User Tools

Site Tools


cdc:nos2.source:opl871:callppu

CALLPPU

Table Of Contents

  • [00009] CALL PPU COMMON DECKS.

Source Code

CALLPPU.txt
  1. IDENT PPU
  2. PERIPH
  3. BASE MIXED
  4. SST OVLA
  5. *COMMENT CALL PPU COMMON DECKS.
  6. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  7.  
  8. LIST F LIST IF SKIPPED LINES
  9. TITLE CALL PPU COMMON DECKS.
  10. SPACE 4
  11. ** DIRECT LOCATION EQUIVALENCES.
  12.  
  13.  
  14. ES EQU 20 - 24 EST ENTRY (5 LOCATIONS)
  15. FS EQU 20 - 24 FILE STATUS (5 LOCATIONS)
  16. RN EQU 25 MAINTENANCE REGISTER NUMBER
  17. TA EQU 26 IAF *RA* VALUE
  18. LO EQU 27 LAST MASS STORAGE EST ORDINAL + 1
  19. CN EQU 30 - 34 (5 LOCATIONS)
  20. BS EQU 35 BLOCK SIZE
  21. AB EQU 40 - 44 PROGRAM NAME (5 LOCATIONS)
  22. FN EQU 40 - 44 FILE NAME (5 LOCATIONS)
  23. UN EQU 50 - 54 USER NUMBER (5 LOCATIONS)
  24. RU EQU 55 RELATIVE UNIT NUMBER
  25. FA EQU 57 FST ADDRESS
  26. SP EQU 60 - 64 CONTROL STATEMENT POINTER (5 LOCATIONS)
  27. FT EQU 60 - 61 FIRST POINTER
  28. IN EQU 62 - 63 IN POINTER
  29. OT EQU 64 - 65 OUT POINTER
  30. LM EQU 66 - 67 LIMIT POINTER
  31. SPACE 4
  32. ** TAPE DRIVER EQUIVALENCES.
  33.  
  34.  
  35. DRX EQU * DRIVER EXIT ADDRESS
  36. MODE EQU * TAPE MODE
  37. RDF EQU * READ FUNCTION
  38. WTF EQU * WRITE FUNCTION
  39. SKF EQU * SKIP FORWARD FUNCTION
  40. SKB EQU * SKIP BACKWARD FUNCTION
  41. BKR EQU * BACKSPACE RECORD
  42. PRS EQU * PRESET ADDRESS
  43. PNR EQU * PROCESS NOT READY ADDRESS
  44. SPACE 4
  45. ** IAF EQUIVALENCES.
  46.  
  47.  
  48. PA EQU 20 - 21 POT ADDRESS (2 LOCATIONS)
  49. TT EQU 22 - 23 TERMINAL TABLE ADDRESS (2 LOCATIONS)
  50. UI EQU 24 - 25 USER INDEX
  51. TN EQU 26 TERMINAL NUMBER
  52. PP EQU 27 POT POINTER
  53. SPACE 4
  54. ** MASS STORAGE EQUIVALENCES.
  55.  
  56.  
  57. RI EQU 20 - 21 RANDOM INDEX (2 LOCATIONS)
  58. SLMA EQU 0
  59. SLMB EQU 0
  60.  
  61. NAME MICRO 1,2,*DX*
  62. SPACE 4,10
  63. ** *PFM* EQUIVALENCES.
  64.  
  65.  
  66. CCIA EQU PPFW+2 CATALOG TRACK
  67. PFPN EQU CCIA+1 PF CONTROL WORD
  68. PFID EQU PFPN+5 PF CATALOG ADDRESS
  69. PFFM EQU PFID+3 FAMILY AND USER INDEX
  70. PFCD EQU PFFM+5 CREATION DATE AND TIME
  71. ERRC EQU PFCD+1 ERROR PARAMETERS - *COMPACE*
  72. ERRD EQU ERRC+1
  73. SPACE 4
  74. ** STATUS/CONTROL REGISTER ERROR PROCESSING EQUIVALENCES.
  75.  
  76.  
  77. C1 EQU 30 TEMPORARY REGISTER 1
  78. C2 EQU 31 TEMPORARY REGISTER 2
  79. AM EQU 32 ADDRESS OF ERROR MESSAGE
  80. BT EQU 33 FIRST BIT IN WORD BIT NUMBER
  81. BW EQU 34 BIT NUMBER WITHIN WORD
  82. CB EQU 35 CURRENT BIT NUMBER
  83. FW EQU 36 FWA OF ERROR MESSAGE BUFFER
  84. LW EQU 37 LWA+1 OF ERROR MESSAGE BUFFER
  85. RW EQU 40 READ CURRENT WORD FUNCTION
  86. TE EQU 41 ADDRESS IN TABLE *TEMA*
  87. WC EQU 42 S/C REGISTER WORD CONTENTS
  88. MRER EQU PPFW MAINTENANCE REGISTER ERROR HANDLER
  89. SPACE 4,10
  90. ** VALIDATION LIMITS DEFINITIONS.
  91.  
  92.  
  93. CLI$ EQU 0 CONVERT VALIDATION INDICES
  94. CMI$ EQU 0 CONVERT FIELD LENGTH INDEX
  95. CPI$ EQU 0 CONVERT CARDS PUNCHED INDEX
  96. DBI$ EQU 0 CONVERT DEFFERRED BATCH JOBS INDEX
  97. ECI$ EQU 0 CONVERT ECS FIELD LENGTH INDEX
  98. LPI$ EQU 0 CONVERT LINES PRINTED INDEX
  99. NFI$ EQU 0 CONVERT FILE LIMIT INDEX
  100. SLI$ EQU 0 CONVERT SRU INDEX
  101. TLI$ EQU 0 CONVERT TIME LIMIT INDEX
  102. SPACE 4,10
  103. ** VALIDATE MASS STORAGE EQUIVALENCES.
  104.  
  105.  
  106. T8 EQU 16
  107. T9 EQU 17
  108. OD EQU 25 EST ORDINAL/EST ENTRY ADDRESS
  109. DT EQU 26 DEVICE TYPE NMENMONIC
  110. COMPGFP SPACE 4,10
  111. ** *COMPGFP* EQUIVALENCES.
  112.  
  113.  
  114. CLT$ EQU 1 SELECT CLT PROCESSOR
  115. EJT$ EQU 1 SELECT EJT PROCESSOR
  116. FNT$ EQU 1 SELECT FNT PROCESSOR
  117. QFT$ EQU 1 SELECT QFT PROCESSOR
  118. SPACE 4,10
  119. ** *COMP1XM* REFERENCED *CCC* ERRORS.
  120.  
  121.  
  122. CHF EQU 3 (HS0003) CHANNEL HUNG FULL
  123. CHE EQU 4 (HS0004) CHANNEL EMPTY
  124. ITA EQU 5 (HS0005) INPUT TERMINATED ABNORMALLY
  125. OTA EQU 5 (HS0005) OUTPUT TERMINATED ABNORMALLY
  126. CIA EQU 13 (HS0013) CHANNEL INACTIVE AFTER ACTIVATE
  127. CPE EQU 24 (HS0024) CHANNEL PARITY ERROR
  128. FTO EQU 50 (HS0050) FUNCTION TIMEOUT
  129. CGS EQU 74 (HS0074) ABNORMAL GENERAL STATUS
  130. MACROS SPACE 4,10
  131. ** DUMMY MACRO DEFINITIONS.
  132.  
  133.  
  134. COMPARE MACRO
  135. ENDM
  136.  
  137. ERROR MACRO
  138. ENDM
  139.  
  140. EXIT MACRO
  141. ENDM
  142. SPACE 4
  143. ** MISCELLANEOUS EQUIVALENCES.
  144.  
  145.  
  146. STMT EQU * START OF STATEMENT BUFFER
  147. CHAR EQU * START OF CHARACTER BUFFER
  148. BKPK EQU * INITIAL BREAKPOINT ADDRESS
  149. DSW EQU * *DSWM* PROCESSOR
  150. DPP EQU * DROP PP EXIT
  151. OVL0 EQU BFMS LOAD ADDRESS FOR ZERO-LEVEL OVERLAY
  152. MSR$ EQU 0 MASS STORAGE READ ERROR PROCESSING
  153. MSR EQU 0 ERROR PROCESSING SUBROUTINE NAME
  154. MSR EQU 0 MASS STORAGE READ ERROR PROCESSING
  155. RCM$ EQU 0 RESTORE CM TEST WORDS
  156. RLI$ EQU 0 DONT QUALIFY *COMPRLI*
  157. RINST$ EQU 0 RESTORE INSTRUCTIONS
  158.  
  159. *CALL COMPMAC
  160. *CALL COMSACC
  161. *CALL COMSBIO
  162. *CALL COMSCIO
  163. *CALL COMSCPS
  164. *CALL COMSDSL
  165. *CALL COMSEJT
  166. *CALL COMSEVT
  167. QUAL COMSHIO
  168. *CALL COMSHIO
  169. QUAL *
  170. DUCF EQU /COMSHIO/DUCF
  171. PUTLS EQU /COMSHIO/PUTLS
  172. PUTP EQU /COMSHIO/PUTP
  173. UNCT EQU /COMSHIO/UNCT
  174. PILL EQU /COMSHIO/PILL
  175. *CALL COMSIOU
  176. *CALL COMSJIO
  177. *CALL COMSMMF
  178. *CALL COMSMSC
  179. *CALL COMSMSI
  180. *CALL COMSMSP
  181. *CALL COMSMST
  182. *CALL COMSPFM
  183. *CALL COMSPFU
  184. *CALL COMSPIM
  185. QUAL REM
  186. *CALL COMSREM
  187. QUAL *
  188. *CALL COMSSCR
  189. *CALL COMSSCD
  190. *CALL COMSSSD
  191. *CALL COMSSSE
  192. *CALL COMSSSJ
  193. *CALL COMSTCM
  194. *CALL COMSTDR
  195. *CALL COMSWEI
  196. LIST X
  197.  
  198. PURGMAC BITSET,LDBC,ADBC,LPBC,LMBC,DCHAN,DELAY
  199. PURGMAC ENDMS,EXECUTE,MONITOR,OVERFLOW,PAUSE
  200. PURGMAC RCHAN,SETMS,SUBR,.1,BITCON,INDEX
  201. *CALLALL COMP
  202. SPACE 4
  203. END
cdc/nos2.source/opl871/callppu.txt ยท Last modified: 2023/08/05 17:24 by Site Administrator