Retro1.org codex

User Tools

Site Tools

Trace: • CALLPPU
cdc:nos2.source:opl871:callppu

Table of Contents

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