Table of Contents

STASK

Table Of Contents

  • [00006] STASK - SEND MESSAGE THEN CEASE.
  • [00010] SEND MESSAGE THEN CEASE.
  • [00044] SEND A MESSAGE TO A TERMINAL THEN CEASE.

Source Code

STASK.txt 
  1.           IDENT  STASK 
  2.           ENTRY  STASK
  3.           LCC    OVERLAY(STASK,0,0)
  4.           SST    BEGN,CMBL
  5.           SYSCOM B1
  6.           TITLE  STASK - SEND MESSAGE THEN CEASE.
  7. *COMMENT  STASK - SEND MESSAGE THEN CEASE.
  8.           COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
  9.           SPACE  4,10
  10. ***       STASK - SEND MESSAGE THEN CEASE.
  11. *
  12. *         M. S. PESCHMAN.    84/07/25.
  13.  STASK    SPACE  4,10
  14. ***       STASK SENDS A MESSAGE TO THE TERMINAL AND THEN USING THE
  15. *         *CEASE* MACRO CEASES.  STASK WILL ONLY BE CALLED FROM
  16. *         *ITASK* WHEN *ITASK* WOULD SEND A MESSAGE TO THE TERMINAL
  17. *         AND CEASE.  THIS WILL PREVENT *ITASK* FROM HANGING DUE TO
  18. *         LACK OF OPERATOR RESPONSE.
  19.  
  20. *         COMMON DECKS.
  21.  
  22.  
  23. *CALL     COMKFLD
  24. *CALL     COMKIPR
  25.  BEGN     BSS    0           SAVE ORIGIN COUNTER
  26. *CALL     COMKCBD
  27.           ORG    BEGN        RESTORE ORIGIN COUNTER
  28. *CALL     COMKMAC
  29.           SPACE  4,15
  30.  
  31. ***       COMMUNICATION BLOCK DATA ITEM.
  32. *
  33. *T, TMSW  54/ 0, 6/ MN
  34. *
  35. *         DB  =  DATA BASE FOR TERMINAL.
  36. *         UA  =  USER ARGUMENT FIELD FOR TERMINAL.
  37. *         SEQ =  TRANSACTION SEQUENCE NUMBER.
  38. *         TN  =  TERMINAL NAME.
  39. *         MN  =  MESSAGE NUMBER.
  40.  
  41.  
  42.           BSS    CMBL        RESERVE SPACE FOR COMMUNICATION BLOCK
  43.  STASK    SPACE  4,15
  44. **        STASK - SEND A MESSAGE TO A TERMINAL THEN CEASE.
  45. *
  46. *         ENTRY  (TMSW) = MESSAGE NUMBER.
  47. *                       0 = *INPUT TOO LARGE*.
  48. *                       1 = *BREAK RECIEVED*.
  49. *                       2 = *UNKNOWN NAMED TRANSACTION*.
  50. *
  51. *         EXIT   MESSAGE SENT TO TERMINAL.
  52. *
  53. *         USES   X - 1, 7.
  54. *                A - 1.
  55. *                B - 1.
  56. *
  57. *         MACROS CEASE, SEND.
  58.  
  59.  
  60.  STASK    SB1    1           ENTRY
  61.           SA1    TMSW        MESSAGE NUMBER
  62.           SX1    X1-1
  63.           ZR     X1,STA1     IF *BREAK RECIEVED* MESSAGE
  64.           NG     X1,STA2     IF *INPUT TOO LARGE*
  65.           SX7    STAC        UNKNOWN NAMED TRANSACTION
  66.           EQ     STA3        SEND MESSAGE
  67.  
  68.  STA1     SX7    STAA        *BREAK RECIEVED.* MESSAGE
  69.           EQ     STA3        SEND MESSAGE
  70.  
  71.  STA2     SX7    STAB        *INPUT TOO LARGE.* MESSAGE
  72.  STA3     SEND   X7          SEND MESSAGE
  73.           CEASE              EXIT WITHOUT SCHEDULING TRANSACTION UNIT
  74.  
  75.  
  76.  STAA     FMSG   (BREAK RECEIVED.)
  77.  STAB     FMSG   (INPUT TOO LARGE.)
  78.  STAC     FMSG   (UNKNOWN NAMED TRANSACTION REQUESTED FOR SCHEDULING.)
  79.  
  80.  
  81.           END    STASK