Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.dio +++| IDENT DIO,0
00002 M01S00002.dio +++| PERIPH
00003 M01S00003.dio +++| BASE M
00004 M01S00004.dio +++| SST
00005 M01S00005.dio +++| TITLE DIO - DEADSTART I/O PROCESSOR.
00006 M01S00006.dio +++|*COMMENT DIO - DEADSTART I/O PROCESSOR.
| Line S00007 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.
00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00009 M01S00008.dio +++| DIO SPACE 4,10
00010 M01S00009.dio +++|***** DIO - DEADSTART I/O PROCESSOR.
00011 M01S00010.dio +++|*
00012 M01S00011.dio +++|* P. D. HAAS. 78/08/04.
00013 M01S00012.dio +++| DIO SPACE 4,10
00014 M01S00013.dio +++|*** *DIO* IS THE CENTRALIZED MEANS OF READING DATA FROM
00015 M01S00014.dio +++|* THE DEADSTART MEDIUM, BE IT TAPE OR DISK. THIS ALLOWS THE
00016 M01S00015.dio +++|* OTHER DEADSTART TIME ROUTINES TO REMAIN MORE OR LESS
00017 M01S00016.dio +++|* UNAWARE OF THE MEDIUM BEING READ. TO THIS END, 10B DISK
00018 M01S00017.dio +++|* SECTORS WILL BE ASSEMBLED, IF DEADSTART IS FROM RMS, INTO
00019 M01S00018.dio +++|* A FACSIMILE OF A TAPE PRU. COMMANDS ARE ISSUED TO *DIO*
00020 M01S00019.dio +++|* VIA AN INTERCOMMUNICATIONS CHANNEL, ACCORDING TO A
00021 M01S00020.dio +++|* PROTOCOL RESEMBLING THAT OF A 3000 TYPE TAPE CONTROLLER
00022 M01S00021.dio +++|* AND A 6681. *DIO* IN THE DISPLAY CHANNEL PP FUNCTIONS AS
00023 M01S00022.dio +++|* THE 6681, READING DATA FROM AN EXTERNAL EQUIPMENT, AND
00024 M01S00023.dio +++|* RETURNING SAME TO THE REQUESTING PP.
00025 M01S00024.dio +++| DIO SPACE 4,10
00026 M01S00025.dio +++|*** OPERATOR MESSAGES.
00027 M01S00026.dio +++|*
00028 M01S00027.dio +++|* REFER TO OPERATORS GUIDE FOR INFORMATION AS TO CAUSE
00029 M01S00028.dio +++|* OF ERROR AND RECOMMENDED CORRECTIVE ACTION.
00030 M01S00029.dio +++|*
00031 M01S00030.dio +++|* *SYSTEM TAPE PARITY ERROR.*
00032 M01S00031.dio +++|*
00033 M01S00032.dio +++|* *BLOCK SEQUENCE ERROR.*
00034 M01S00033.dio +++|*
00035 M01S00034.dio +++|* *CHXX, UNYY - SZZZZ.*
00036 M01S00035.dio +++| DIO SPACE 4,10
00037 M01S00036.dio +++|*CALL COMPMAC
00038 M01S00037.dio +++|*CALL COMPCHM
00039 M01S00038.dio +++|*CALL COMSDSL
00040 M01S00039.dio +++|*CALL COMSMSP
00041 M01S00040.dio +++|*CALL COMSPIM
00042 M01S00041.dio +++| TITLE DIRECT LOCATION ASSIGNMENTS.
00043 M01S00042.dio +++| DIO SPACE 4,10
00044 M01S00043.dio +++|**** DIRECT LOCATION ASSIGNMENTS.
00045 M01S00044.dio +++|
00046 M01S00045.dio +++|
00047 M01S00046.dio +++| ORG 0
00048 M01S00047.dio +++| CON PRS-1 TRANSFER ADDRESS - 1
00049 M01S00048.dio +++| BSS 16-*
00050 M01S00049.dio +++| L1 BSS 1 SCRATCH
00051 M01S00050.dio +++| L2 BSS 1 SCRATCH
00052 M01S00001.241l630 +++| DT CON 0 895 DEADSTART READ FLAG
00053 M01S00002.241l630 +++| ERRNZ DT-MP DIRECT CELL LOCATION MUST MATCH IN *OSB*
00054 M01S00051.dio +++| UN BSS 4 PHYSICAL DISK ADDRESS
00055 M01S00052.dio +++| BF CON 0 TAPE BACKSPACE FUNCTION
00056 M01S00053.dio +++| RF CON 0 TAPE READ FUNCTION
00057 M01S00054.dio +++| SF CON 0 TAPE STATUS FUNCTION
00058 M01S00055.dio +++| LT BSS 1 LOGICAL TRACK FOR BACKSPACE
00059 M01S00056.dio +++| LS BSS 1 LOGICAL SECTOR FOR BACKSPACE
00060 M01S00057.dio +++| DM BSS 1 DEADSTART MEDIUM
00061 M01S00058.dio +++| ST BSS 1 GENERAL STATUS
00062 M01S00059.dio +++| RC BSS 1 ERROR RETRY COUNT
00063 M01S00060.dio +++| WC BSS 1 WORD COUNT
00064 M01S00061.dio +++| DH BSS 1 DEADSTART CHANNEL
00065 M01S00062.dio +++| IH BSS 1 INTERCOMMUNICATIONS CHANNEL
00066 M01S00063.dio +++| ZR CON 0 ZERO BYTE
00067 M01S00064.dio +++| TM CON 0 TAPE MOTION FLAG
00068 M01S00065.dio +++| CN BSS 5 CM WORD BUFFER
00069 M01S00066.dio +++|
00070 M01S00067.dio +++| ERRPL *-IR OVERFLOW CELLS DESTROYED BY RESIDENT
00071 M01S00068.dio +++|
00072 M01S00069.dio +++| BSS 100-*
00073 M01S00001.ns22000 +++| DN EQU 57 DECK NUMBER
00074 M01S00070.dio +++| DP EQU 60 - 64 CM WORD BUFFER (5 LOCATIONS)
00075 M01S00071.dio +++| BL EQU 65 PP BUFFER LIMIT
00076 M01S00072.dio +++| BC EQU 66 - 67 BLOCK COUNT (2 LOCATIONS)
00077 M01S00073.dio +++|****
00078 M01S00001.ns21000 +++|
00079 M01S00002.ns21000 +++|* IN ORDER TO AVOID CONFLICTS BETWEEN *COMSMSP* AND THE
00080 M01S00003.ns21000 +++|* *CHTB* MACRO, *DC* IS CHANGED TO *DS*.
00081 M01S00004.ns21000 +++|
00082 M01S00005.ns21000 +++| DS EQU DC DEADSTART CHANNEL
00083 M01S00002.ns22000 +++| TITLE MACRO DEFINITIONS.
00084 M01S00003.ns22000 +++| SPACE 4,10
00085 M01S00004.ns22000 +++|** JMP - THREADED JUMP.
00086 M01S00005.ns22000 +++|*
00087 M01S00006.ns22000 +++|*
00088 M01S00007.ns22000 +++|* JMP ADDR
00089 M01S00008.ns22000 +++|* ENTRY *ADDR* = JUMP ADDRESS.
00090 M01S00009.ns22000 +++|
00091 M01S00010.ns22000 +++|
00092 M01S00011.ns22000 +++| JMP MACRO ADDR
00093 M01S00012.ns22000 +++| IF -DEF,.ADDR,2
00094 M01S00013.ns22000 +++| NOREF .ADDR
00095 M01S00014.ns22000 +++| .ADDR MAX ADDR,*-40
00096 M01S00015.ns22000 +++| IFGT .ADDR,*-40
00097 M01S00016.ns22000 +++| UJN .ADDR
00098 M01S00017.ns22000 +++| .ADDR SET *-1
00099 M01S00018.ns22000 +++| ELSE 2
00100 M01S00019.ns22000 +++| .ADDR SET *
00101 M01S00020.ns22000 +++| LJM ADDR
00102 M01S00021.ns22000 +++| JMP ENDM
00103 M01S00074.dio +++| TITLE PRESET.
00104 M01S00075.dio +++| PRS SPACE 4,10
00105 M01S00076.dio +++| ORG MSFW
00106 M01S00077.dio +++|
| Line S00078 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00107 M02S00078.ns2776 ---| PRS LDM MXRL+CM SET DEADSTART CHANNEL
| Line S00079 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00108 M02S00079.ns2776 ---| STD T4
| Line S00080 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00109 M02S00080.ns2776 ---| STD DH
| Line S00081 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00110 M02S00081.ns2776 ---| RJM C2D CONVERT FOR STATUS MESSAGE
| Line S00082 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00111 M02S00082.ns2776 ---| STM DSMA+1
| Line S00001 Modification History |
M01 (Added by) | v23l617 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00112 M02S00001.ns2776 ---| LDM MXRL+LA PRESERVE DISPLAY CONSOLE STATUS
| Line S00002 Modification History |
M01 (Added by) | v23l617 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00113 M02S00002.ns2776 ---| STD DN
| Line S00083 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
M03 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00114 M03S00083.ns2776 ---| LDC CTDC MODIFY CHANNEL INSTRUCTIONS
| Line S00006 Modification History |
M01 (Added by) | ns21000 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00115 M02S00006.ns2776 ---| LDC CTDS MODIFY CHANNEL INSTRUCTIONS
| Line S00084 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00116 M02S00084.ns2776 ---| RJM MCI
| Line S00085 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00117 M02S00085.ns2776 ---| LDN PC CHECK DEADSTART CHANNEL
| Line S00086 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00118 M02S00086.ns2776 ---| STD IH
| Line S00087 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00119 M02S00087.ns2776 ---| LMD DH
| Line S00088 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00120 M02S00088.ns2776 ---| NJN PRS1 IF NOT PP COMMUNICATIONS CHANNEL
| Line S00089 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00121 M02S00089.ns2776 ---| LDN 12 SET INTERCOMMUNICATIONS CHANNEL
| Line S00090 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00122 M02S00090.ns2776 ---| STD IH
| Line S00091 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00123 M02S00091.ns2776 ---| STD T4
| Line S00092 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00124 M02S00092.ns2776 ---| LDC CTPC MODIFY PP INTERCOMMUNICATION CHANNELS
| Line S00093 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00125 M02S00093.ns2776 ---| RJM MCI
| Line S00094 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00126 M02S00094.ns2776 ---| PRS1 LDM MXRL+T7 DISK SECTOR / DEADSTART FUNCTION
| Line S00095 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00127 M02S00095.ns2776 ---| STD T7
| Line S00096 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00128 M02S00096.ns2776 ---| LDM MXRL+T6 TRACK / TAPE STATUS
| Line S00097 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00129 M02S00097.ns2776 ---| STD T6
| Line S00098 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00130 M02S00098.ns2776 ---| STD DM
| Line S00099 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00131 M02S00099.ns2776 ---| RJM PSD PRESET DRIVERS
| Line S00100 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00132 M02S00100.ns2776 ---| LDN 3 DEFINE CONSTANT 3
| Line S00101 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00133 M02S00101.ns2776 ---| STD TR
| Line S00102 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00134 M02S00102.ns2776 ---|
00135 M01S00001.ns2776 +++| PRS BSS 0 ENTRY
00136 M01S00002.ns2776 +++| RJM BRP EXECUTE BUFFER RESIDENT PORTION OF PRESET
00137 M01S00003.ns2776 +++|
00138 M01S00103.dio +++|* SEARCH FOR *SET* AND TRANSMIT TO PP0.
00139 M01S00104.dio +++|
00140 M01S00105.dio +++| PRS2 RJM RNR READ NEXT RECORD
00141 M01S00106.dio +++| LDM BUF+5*1+1 CHECK NAME IN *PRFX* TABLE
00142 M01S00107.dio +++| SHN 6
00143 M01S00108.dio +++| LMM BUF+5*1+0
00144 M01S00109.dio +++| LMC 3RTSE
00145 M01S00110.dio +++| NJN PRS2 IF NOT *SET*
00146 M01S00111.dio +++| LDD DH PASS CHANNEL DEFINITIONS TO *SET*
00147 M01S00112.dio +++| STM BUF+5*20+T4
00148 M01S00113.dio +++| LDD IH
00149 M01S00114.dio +++| STM BUF+5*20+T5
00150 M01S00003.v23l617 +++| LDD DN PASS CONSOLE STATUS TO *SET*
00151 M01S00004.v23l617 +++| STM BUF+5*20+T2
| Line S00115 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00152 M02S00115.ns22000 ---| LDD WC TRANSMIT *SET* TO PP0
00153 M01S00022.ns22000 +++| LCN 20 TRANSMIT *SET* TO PP0
00154 M01S00023.ns22000 +++| RAD WC
00155 M01S00116.dio +++| SHN 2
00156 M01S00117.dio +++| ADD WC
00157 M01S00118.dio +++| OAM. BUF+5*20,CH
| Line S00119 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00158 M02S00119.ns22000 ---| FJM. *,CH
00159 M01S00024.ns22000 +++| LDD WC
00160 M01S00025.ns22000 +++| LMC MXRL/5
00161 M01S00026.ns22000 +++| NJN PRS3 IF *SET* DOES NOT EXCEED ONE TAPE PRU
00162 M01S00027.ns22000 +++| RJM RNR READ REMAINDER OF *SET*
00163 M01S00028.ns22000 +++| LDD WC
00164 M01S00029.ns22000 +++| ZJN PRS3 IF ZERO LENGTH PRU
00165 M01S00030.ns22000 +++| SHN 2
00166 M01S00031.ns22000 +++| ADD WC
00167 M01S00032.ns22000 +++| OAM. BUF,CH TRANSMIT REMAINDER OF *SET*
00168 M01S00033.ns22000 +++| PRS3 FJM. *,CH WAIT OUTPUT COMPLETE
00169 M01S00120.dio +++| DCN. CH
00170 M01S00121.dio +++| RJM RNR READ NEXT RECORD
00171 M01S00122.dio +++| LJM DIO ENTER IDLE LOOP
| Line S00123 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00172 M02S00123.ns2776 ---| PSD SPACE 4,10
| Line S00124 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00173 M02S00124.ns2776 ---|** PSD - PRESET DRIVERS.
| Line S00125 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00174 M02S00125.ns2776 ---|*
| Line S00126 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00175 M02S00126.ns2776 ---|* ENTRY (A) = 0 IF TAPE DEADSTART.
| Line S00127 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00176 M02S00127.ns2776 ---|* (T6) = TRACK / TAPE STATUS.
| Line S00128 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00177 M02S00128.ns2776 ---|* (T7) = DISK SECTOR / DEADSTART FUNCTION.
| Line S00129 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00178 M02S00129.ns2776 ---|*
| Line S00130 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00179 M02S00130.ns2776 ---|* EXIT (UN) = UNIT NUMBER (DISK DEADSTART).
| Line S00131 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00180 M02S00131.ns2776 ---|* (BF) = BACKSPACE FUNCTION (TAPE DEADSTART).
| Line S00132 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00181 M02S00132.ns2776 ---|* (RF) = READ FUNCTION (TAPE DEADSTART).
| Line S00133 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00182 M02S00133.ns2776 ---|* (SF) = STATUS FUNCTION (TAPE DEADSTART).
| Line S00134 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00183 M02S00134.ns2776 ---|*
| Line S00135 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00184 M02S00135.ns2776 ---|* CALLS CAU, C2D, PDA.
| Line S00136 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00185 M02S00136.ns2776 ---|
| Line S00137 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00186 M02S00137.ns2776 ---|
| Line S00138 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00187 M02S00138.ns2776 ---| PSD3 LDM MXRL+T5 SET SEEK FUNCTION
| Line S00139 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00188 M02S00139.ns2776 ---| SHN 14
| Line S00140 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00189 M02S00140.ns2776 ---| STM POSA
| Line S00141 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00190 M02S00141.ns2776 ---| SHN -14 POSITION ALGORITHM INDEX
| Line S00142 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00191 M02S00142.ns2776 ---| RJM PDA PRESET DISK ADDRESS CONVERSION
| Line S00003 Modification History |
M01 (Added by) | 241l630 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00192 M02S00003.ns2776 ---| LDM MXRL+DT GET 895 DEADSTART READ FLAG
| Line S00004 Modification History |
M01 (Added by) | 241l630 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00193 M02S00004.ns2776 ---| STD DT
| Line S00143 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00194 M02S00143.ns2776 ---| LDM MXRL+T4 SET UNIT NUMBER
| Line S00144 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00195 M02S00144.ns2776 ---| PSD4 STD UN
| Line S00145 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00196 M02S00145.ns2776 ---| RJM C2D CONVERT FOR STATUS MESSAGE
| Line S00146 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00197 M02S00146.ns2776 ---| STM DSMA+4
| Line S00147 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00198 M02S00147.ns2776 ---|
| Line S00148 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00199 M02S00148.ns2776 ---| PSD SUBR ENTRY/EXIT
| Line S00149 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00200 M02S00149.ns2776 ---| NJN PSD3 IF DISK DEADSTART
| Line S00150 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00201 M02S00150.ns2776 ---| LDC RTR SET TAPE DRIVER ADDRESS
| Line S00151 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00202 M02S00151.ns2776 ---| STM RNRA
| Line S00152 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00203 M02S00152.ns2776 ---| LDD T7
| Line S00153 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00204 M02S00153.ns2776 ---| SHN -6
| Line S00154 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00205 M02S00154.ns2776 ---| LPN 7
| Line S00155 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00206 M02S00155.ns2776 ---| LMN 1
| Line S00156 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00207 M02S00156.ns2776 ---| NJN PSD1 IF NOT ATS TAPE SYSTEM
| Line S00157 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00208 M02S00157.ns2776 ---| LCN 0 SET DETAIL STATUS MASK
| Line S00158 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00209 M02S00158.ns2776 ---| STM GTSB
| Line S00159 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00210 M02S00159.ns2776 ---| RJM CAU CHECK ATS UNIT
| Line S00160 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
M03 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00211 M03S00160.ns2776 ---| PSD1 LDD T7 EXTRACT EQUIPMENT NUMBER
| Line S00034 Modification History |
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00212 M02S00034.ns2776 ---| PSD1 LDD T7 EXTRACT EQUIPMENT (CONTROLLER) NUMBER
| Line S00161 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00213 M02S00161.ns2776 ---| LPC 7000
| Line S00162 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00214 M02S00162.ns2776 ---| ADN 12 SET GENERAL STATUS FUNCTION
| Line S00163 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00215 M02S00163.ns2776 ---| STD SF
| Line S00164 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00216 M02S00164.ns2776 ---| ADN 40-12 SET READ FUNCTION
| Line S00165 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00217 M02S00165.ns2776 ---| STD RF
| Line S00166 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00218 M02S00166.ns2776 ---| ADN 112-40 SET DETAILED STATUS FUNCTION
| Line S00167 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00219 M02S00167.ns2776 ---| STM GTSA
| Line S00168 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00220 M02S00168.ns2776 ---| ADN 113-112 SET BACKSPACE FUNCTION
| Line S00169 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00221 M02S00169.ns2776 ---| STD BF
| Line S00170 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00222 M02S00170.ns2776 ---| PSD2 LDD T7 EXTRACT UNIT NUMBER
| Line S00171 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00223 M02S00171.ns2776 ---| LPN 17
| Line S00172 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00224 M02S00172.ns2776 ---| LJM PSD4 CONVERT FOR STATUS MESSAGE
| Line S00173 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00225 M02S00173.ns2776 ---| CAU SPACE 4,10
| Line S00174 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00226 M02S00174.ns2776 ---|** CAU - CHECK ATS UNIT.
| Line S00175 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00227 M02S00175.ns2776 ---|*
| Line S00176 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00228 M02S00176.ns2776 ---|* ENTRY (T7) = WORD 6 OF DEADSTART PANEL.
| Line S00177 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00229 M02S00177.ns2776 ---|*
| Line S00178 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | dio3 |
M03 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00230 M03S00178.ns2776 ---|* EXIT TAPE READ LOOP MODIFIED FOR 200 IPS 6250 DENSITY
| Line S00179 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | dio3 |
M03 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00231 M03S00179.ns2776 ---|* AT 2X PPU SPEED OR ANY 6250 DENSITY AT 1X PPU
| Line S00180 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | dio3 |
M03 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00232 M03S00180.ns2776 ---|* SPEED.
| Line S00001 Modification History |
M01 (Added by) | dio3 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00233 M02S00001.ns2776 ---|* EXIT TAPE READ LOOP MODIFIED FOR 200 OR 150 IPS 6250
| Line S00002 Modification History |
M01 (Added by) | dio3 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00234 M02S00002.ns2776 ---|* DENSITY AT 2X PPU SPEED OR ANY 6250 DENSITY AT 1X PPU
| Line S00003 Modification History |
M01 (Added by) | dio3 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00235 M02S00003.ns2776 ---|* SPEED.
| Line S00181 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00236 M02S00181.ns2776 ---|*
| Line S00182 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00237 M02S00182.ns2776 ---|* USES T1.
| Line S00183 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00238 M02S00183.ns2776 ---|
| Line S00184 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00239 M02S00184.ns2776 ---|
| Line S00185 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
M03 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00240 M03S00185.ns2776 ---| CAU2 LDD T1
| Line S00035 Modification History |
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00241 M02S00035.ns2776 ---| CAU2 SBN 2
| Line S00036 Modification History |
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00242 M02S00036.ns2776 ---| PJN CAUX IF PP SPEED .GE. 4X
| Line S00037 Modification History |
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00243 M02S00037.ns2776 ---| LDD T1
| Line S00186 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00244 M02S00186.ns2776 ---| LPN 7
| Line S00187 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00245 M02S00187.ns2776 ---| LMN 5
| Line S00188 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00246 M02S00188.ns2776 ---| ZJN CAU1 IF 200 IPS UNIT
| Line S00004 Modification History |
M01 (Added by) | dio3 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00247 M02S00004.ns2776 ---| LMN 6&5
| Line S00005 Modification History |
M01 (Added by) | dio3 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00248 M02S00005.ns2776 ---| ZJN CAU1 IF 150 IPS UNIT
| Line S00189 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00249 M02S00189.ns2776 ---|
| Line S00190 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00250 M02S00190.ns2776 ---| CAU SUBR ENTRY/EXIT
| Line S00191 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
M03 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00251 M03S00191.ns2776 ---| LDD T7 GET EQUIPMENT NUMBER
| Line S00038 Modification History |
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00252 M02S00038.ns2776 ---| LDD T7 GET EQUIPMENT (CONTROLLER) NUMBER
| Line S00192 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00253 M02S00192.ns2776 ---| LPC 7000
| Line S00193 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00254 M02S00193.ns2776 ---| ADC 212 ADD UNIT STATUS FUNCTION
| Line S00194 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
M03 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00255 M03S00194.ns2776 ---| FAN DC
| Line S00195 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
M03 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00256 M03S00195.ns2776 ---| ACN DC
| Line S00196 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
M03 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00257 M03S00196.ns2776 ---| IAN DC
| Line S00197 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
M03 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00258 M03S00197.ns2776 ---| DCN DC
| Line S00007 Modification History |
M01 (Added by) | ns21000 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00259 M02S00007.ns2776 ---| FAN DS
| Line S00008 Modification History |
M01 (Added by) | ns21000 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00260 M02S00008.ns2776 ---| ACN DS
| Line S00009 Modification History |
M01 (Added by) | ns21000 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00261 M02S00009.ns2776 ---| IAN DS
| Line S00010 Modification History |
M01 (Added by) | ns21000 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00262 M02S00010.ns2776 ---| DCN DS
| Line S00198 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00263 M02S00198.ns2776 ---| STD T1
| Line S00199 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00264 M02S00199.ns2776 ---| LPN 30 CHECK UNIT STATUS
| Line S00200 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00265 M02S00200.ns2776 ---| LMN 30
| Line S00201 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00266 M02S00201.ns2776 ---| NJN CAUX IF DENSITY NOT 6250 CPI
| Line S00202 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
M03 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00267 M03S00202.ns2776 ---| AJM. CAU2,SC IF C170 MAINFRAME (2X PPU SPEED)
| Line S00039 Modification History |
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00268 M02S00039.ns2776 ---| LDM MXRL+T3
| Line S00040 Modification History |
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00269 M02S00040.ns2776 ---| NJN CAU2 IF PP SPEED .GT. 1X
| Line S00203 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00270 M02S00203.ns2776 ---| CAU1 LDC UJNI+2 DISABLE INITIATE TAPE MOTION
| Line S00204 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00271 M02S00204.ns2776 ---| STM RSTA
| Line S00205 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00272 M02S00205.ns2776 ---| UJN CAUX RETURN
| Line S00206 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00273 M02S00206.ns2776 ---| MCI SPACE 4,10
| Line S00207 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00274 M02S00207.ns2776 ---|** MCI - MODIFY CHANNEL INSTRUCTIONS.
| Line S00208 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00275 M02S00208.ns2776 ---|*
| Line S00209 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00276 M02S00209.ns2776 ---|* ENTRY (A) = ADDRESS OF INSTRUCTION LIST.
| Line S00210 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00277 M02S00210.ns2776 ---|* (T4) = CHANNEL NUMBER.
| Line S00211 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00278 M02S00211.ns2776 ---|*
| Line S00212 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00279 M02S00212.ns2776 ---|* USES T1, T2.
| Line S00213 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00280 M02S00213.ns2776 ---|
| Line S00214 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00281 M02S00214.ns2776 ---|
| Line S00215 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00282 M02S00215.ns2776 ---| MCI1 STD T2 SET INSTRUCTION ADDRESS
| Line S00216 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00283 M02S00216.ns2776 ---| LDI T2 MODIFY INSTRUCTION
| Line S00217 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00284 M02S00217.ns2776 ---| SCN 37
| Line S00218 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00285 M02S00218.ns2776 ---| LMD T4
| Line S00219 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00286 M02S00219.ns2776 ---| STI T2
| Line S00220 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00287 M02S00220.ns2776 ---| AOD T1 ADVANCE LIST ADDRESS
| Line S00221 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00288 M02S00221.ns2776 ---| MCI2 LDI T1
| Line S00222 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00289 M02S00222.ns2776 ---| NJN MCI1 IF NOT END OF LIST
| Line S00223 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00290 M02S00223.ns2776 ---|
| Line S00224 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00291 M02S00224.ns2776 ---| MCI SUBR ENTRY/EXIT
| Line S00225 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00292 M02S00225.ns2776 ---| STD T1 SET LIST ADDRESS
| Line S00226 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
00293 M02S00226.ns2776 ---| UJN MCI2 ENTER LOOP
00294 M01S00041.ns22000 +++| LRO SPACE 4,10
00295 M01S00042.ns22000 +++|** LRO - LOAD RECOVERY OVERLAY.
00296 M01S00043.ns22000 +++|
00297 M01S00044.ns22000 +++|
00298 M01S00045.ns22000 +++| LRO BSS 0
00299 M01S00046.ns22000 +++|* LDC LRO CHECK NEXT RECORD
00300 M01S00047.ns22000 +++| LRO1 RJM CSR
00301 M01S00048.ns22000 +++| NJN LRO1 IF NOT OVERLAY
00302 M01S00049.ns22000 +++| LDM BUF+5*1+1
00303 M01S00050.ns22000 +++| SHN 6
00304 M01S00051.ns22000 +++| LMM BUF+5*1+0
00305 M01S00052.ns22000 +++| LMC 3RMRC
00306 M01S00053.ns22000 +++| NJN LRO1 IF NOT *RCM*
00307 M01S00054.ns22000 +++| DCN PC INDICATE FUNCTION COMPLETE
00308 M01S00055.ns22000 +++| LJM DIO RETURN
00309 M01S00227.dio +++| SPACE 4,10
00310 M01S00228.dio +++| ERRZR PC-12 ILLEGAL CHANNEL DEFINITION
00311 M01S00229.dio +++| ERRPL *-PPFW PRESET OVERFLOWS DRIVER AREA
00312 M01S00230.dio +++| TITLE MAIN ROUTINE.
00313 M01S00231.dio +++| ORG PPFW
00314 M01S00232.dio +++|
00315 M01S00233.dio +++| DIO IAN PC INPUT REQUEST
00316 M01S00234.dio +++| STD L1
00317 M01S00235.dio +++| SBN MXDF
00318 M01S00236.dio +++| PJN * IF ILLEGAL FUNCTION
00319 M01S00237.dio +++| LDM TFPA,L1
00320 M01S00238.dio +++| STD L2
00321 M01S00239.dio +++| LJM 0,L2 PROCESS FUNCTION
00322 M01S00240.dio +++| TFPA SPACE 4,10
00323 M01S00241.dio +++|** TFPA - TABLE OF FUNCTION PROCESSORS.
00324 M01S00242.dio +++|
00325 M01S00243.dio +++|
00326 M01S00244.dio +++| TFPA INDEX
00327 M01S00245.dio +++| INDEX DPPF,DPP DROP PP
00328 M01S00246.dio +++| INDEX LPRF,LPR LOAD PP RESIDENT
00329 M01S00247.dio +++| INDEX IPRF,IPR INITIALIZE PP RESIDENT
00330 M01S00248.dio +++| INDEX RTBF,RTB READ TAPE BLOCK
00331 M01S00249.dio +++| INDEX IPPF,IPP IDLE PP
00332 M01S00250.dio +++| INDEX LSLF,LSL LOAD SYSTEM LIBRARY
00333 M01S00056.ns22000 +++| INDEX LNOF,LNO LOAD NEXT OVERLAY
00334 M01S00057.ns22000 +++| INDEX LTDF,LTD LOAD SELECTED TEXT DECK
00335 M01S00058.ns22000 +++| INDEX LROF,LRO LOAD RECOVERY OVERLAY
00336 M01S00251.dio +++| INDEX MXDF
00337 M01S00252.dio +++| TITLE FUNCTION PROCESSORS.
00338 M01S00253.dio +++| DPP SPACE 4,10
00339 M01S00254.dio +++|** DPP - DROP PP.
00340 M01S00255.dio +++|
00341 M01S00256.dio +++|
00342 M01S00257.dio +++| DPP BSS 0
00343 M01S00258.dio +++| RJM RDT REWIND DEADSTART TAPE
00344 M01S00259.dio +++| RJM RTU RELEASE TAPE UNIT
00345 M01S00260.dio +++| RJM CRI CHECK RESIDENT INITIALIZED
00346 M01S00261.dio +++| RJM WOC WAIT OUTPUT REGISTER CLEAR
00347 M01S00262.dio +++| LDD DH RELEASE DEADSTART CHANNEL
00348 M01S00263.dio +++| DCHAN
| Line S00264 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00349 M02S00264.ns22000 ---| DCN PC INDICATE FUNCTION ACCEPT
00350 M01S00059.ns22000 +++| DPPA DCN PC INDICATE FUNCTION ACCEPT
00351 M01S00060.ns22000 +++|* PSN (SYSTEM LIBRARY LOAD)
| Line S00265 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00352 M02S00265.273l780 ---| LDN NCPL GET NUMBER OF CONTROL POINTS
| Line S00266 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00353 M02S00266.273l780 ---| CRD CM
| Line S00267 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00354 M02S00267.273l780 ---| AOD CM+1 MOVE TO SYSTEM CONTROL POINT
| Line S00268 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00355 M02S00268.273l780 ---| MONITOR CCAM
00356 M01S00269.dio +++| MONITOR DPPM DROP PP
00357 M01S00270.dio +++| LJM PPR EXIT TO PP RESIDENT
00358 M01S00271.dio +++| IPP SPACE 4,10
00359 M01S00272.dio +++|** IPP - IDLE PP UNTIL (IR+4) .NE. 0.
00360 M01S00273.dio +++|
00361 M01S00274.dio +++|
00362 M01S00275.dio +++| IPP BSS 0
00363 M01S00276.dio +++| LDD IA CLEAR (IR+4)
00364 M01S00277.dio +++| CRD IR
00365 M01S00278.dio +++| RJM CRI CHECK RESIDENT INITIALIZED
00366 M01S00279.dio +++| STD IR+4
00367 M01S00280.dio +++| LDD IA
00368 M01S00281.dio +++| CWD IR
00369 M01S00282.dio +++| LDD DH RELEASE DEADSTART CHANNEL
00370 M01S00283.dio +++| DCHAN
00371 M01S00284.dio +++| DCN PC INDICATE FUNCTION ACCEPT
00372 M01S00285.dio +++| IPP1 DELAY WAIT AWHILE
00373 M01S00286.dio +++| LDD IA CHECK (IR+4)
00374 M01S00287.dio +++| CRD IR
00375 M01S00288.dio +++| LDD IR+4
00376 M01S00289.dio +++| ZJN IPP1 IF IDLE NOT CLEARED
00377 M01S00290.dio +++| LDD DH RESERVE DEADSTART CHANNEL
00378 M01S00291.dio +++| RCHAN
| Line S00292 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00379 M02S00292.ns22000 ---| LJM DIO RETURN
00380 M01S00061.ns22000 +++| JMP DIO RETURN
00381 M01S00293.dio +++| IPR SPACE 4,10
00382 M01S00294.dio +++|** IPR - INITIALIZE PP RESIDENT.
00383 M01S00295.dio +++|
00384 M01S00296.dio +++|
00385 M01S00297.dio +++| IPR BSS 0
00386 M01S00298.dio +++| DCN PC INDICATE FUNCTION ACCEPT
00387 M01S00001.273l780 +++| LDN 1 SET NO PP DROP
00388 M01S00002.273l780 +++| STD T1
00389 M01S00299.dio +++| RJM MSFW+1 INITIALIZE RESIDENT
00390 M01S00300.dio +++| SOM CRIA SET RESIDENT INITIALIZED
00391 M01S00301.dio +++| LDD DH RESERVE DEADSTART CHANNEL
00392 M01S00302.dio +++| RCHAN
| Line S00303 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00393 M02S00303.ns22000 ---| LJM DIO RETURN
00394 M01S00062.ns22000 +++| JMP DIO RETURN
00395 M01S00063.ns22000 +++| LNO SPACE 4,10
00396 M01S00064.ns22000 +++|** LNO - LOAD NEXT OVERLAY.
00397 M01S00065.ns22000 +++|
00398 M01S00066.ns22000 +++|
00399 M01S00067.ns22000 +++| LNO BSS 0
00400 M01S00068.ns22000 +++| LDN 0 CHECK CURRENT RECORD
00401 M01S00069.ns22000 +++| LNO1 RJM CSR
00402 M01S00070.ns22000 +++| NJN LNO1 IF NOT OVERLAY
00403 M01S00071.ns22000 +++| LJM RTB TRANSMIT TAPE BLOCK
00404 M01S00304.dio +++| LPR SPACE 4,10
00405 M01S00305.dio +++|** LPR - LOAD PP RESIDENT.
00406 M01S00306.dio +++|
00407 M01S00307.dio +++|
00408 M01S00308.dio +++| LPR BSS 0
00409 M01S00309.dio +++| DCN PC INDICATE FUNCTION ACCEPT
00410 M01S00310.dio +++| LDN IR SKIP DIRECT LOCATIONS BELOW *IR*
00411 M01S00311.dio +++| ACN PC
00412 M01S00312.dio +++| IAM IR,PC
00413 M01S00313.dio +++| LDC PPFW-IR INPUT PP RESIDENT
00414 M01S00314.dio +++| IAM IR,PC
00415 M01S00315.dio +++| DCN PC
| Line S00316 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00416 M02S00316.ns22000 ---| LJM DIO RETURN
00417 M01S00072.ns22000 +++| JMP DIO RETURN
00418 M01S00317.dio +++| LSL SPACE 4,10
00419 M01S00318.dio +++|** LSL - LOAD SYSTEM LIBRARY.
00420 M01S00319.dio +++|
00421 M01S00320.dio +++|
00422 M01S00321.dio +++| LSL BSS 0
| Line S00322 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00423 M02S00322.ns22000 ---| LDD DM
| Line S00323 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00424 M02S00323.ns22000 ---| ZJN LSL1 IF TAPE DEADSTART
| Line S00324 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00425 M02S00324.ns22000 ---| LJM DPP DROP PP
| Line S00325 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00426 M02S00325.ns22000 ---|
| Line S00326 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00427 M02S00326.ns22000 ---| LSL1 RJM RDT REWIND DEADSTART TAPE
00428 M01S00073.ns22000 +++| RJM RDT REWIND DEADSTART TAPE
00429 M01S00327.dio +++| RJM CRI CHECK RESIDENT INITIALIZED
00430 M01S00328.dio +++| STD BC+1 CLEAR BLOCK COUNT
00431 M01S00329.dio +++| STD BC
00432 M01S00330.dio +++| LDN DSCP MOVE TO DEADSTART CONTROL POINT
00433 M01S00331.dio +++| STD CM+1
| Line S00332 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00434 M02S00332.273l780 ---| SHN 7
| Line S00333 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00435 M02S00333.273l780 ---| STD CP
00436 M01S00334.dio +++| MONITOR CCAM
00437 M01S00335.dio +++| DCN PC INDICATE FUNCTION ACCEPT
00438 M01S00074.ns22000 +++| STM DPPA
| Line S00336 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00439 M02S00336.273l780 ---| PAUSE NE
00440 M01S00337.dio +++| LSL2 LDD RA READ (RA+2)
00441 M01S00338.dio +++| SHN 6
00442 M01S00339.dio +++| ADN 2
00443 M01S00340.dio +++| CRD CM
00444 M01S00341.dio +++| LDD CM+4 SET FET ADDRESS
00445 M01S00342.dio +++| STD IR+4
00446 M01S00343.dio +++| ZJN LSL2 IF NOT YET DEFINED
00447 M01S00344.dio +++| LDM BKSC ENABLE TAPE PARITY ERROR REPORTING
00448 M01S00345.dio +++| STM BKSA
00449 M01S00346.dio +++| LSL3 RJM GTS GET TAPE STATUS
00450 M01S00347.dio +++| LPN 3
00451 M01S00348.dio +++| LMN 1
00452 M01S00349.dio +++| NJN LSL3 IF REWIND NOT COMPLETE
00453 M01S00350.dio +++|
00454 M01S00351.dio +++|* READ SYSTEM TAPE.
00455 M01S00352.dio +++|
00456 M01S00353.dio +++| RJM RST READ SYSTEM TAPE
00457 M01S00354.dio +++| LDD RA
00458 M01S00355.dio +++| SHN 6
00459 M01S00356.dio +++| ADD IR+4
00460 M01S00357.dio +++| CRD CM
00461 M01S00358.dio +++| LDN 33 SET EOF STATUS
00462 M01S00359.dio +++| STD CM+4
00463 M01S00360.dio +++| LDD RA STORE EOF STATUS
00464 M01S00361.dio +++| SHN 6
00465 M01S00362.dio +++| ADD IR+4
00466 M01S00363.dio +++| CWD CM
00467 M01S00364.dio +++| LJM DPP DROP PP
00468 M01S00075.ns22000 +++| LTD SPACE 4,10
00469 M01S00076.ns22000 +++|** LTD - LOAD SELECTED TEXT DECK.
00470 M01S00077.ns22000 +++|
00471 M01S00078.ns22000 +++|
00472 M01S00079.ns22000 +++| LTD BSS 0
00473 M01S00080.ns22000 +++| IAN PC
00474 M01S00081.ns22000 +++| RJM C2D CONVERT DECK NUMBER
00475 M01S00082.ns22000 +++| STD DN
00476 M01S00083.ns22000 +++| LDN 0
00477 M01S00084.ns22000 +++| UJN LTD2 CHECK CURRENT RECORD
00478 M01S00085.ns22000 +++|
00479 M01S00086.ns22000 +++| LTD1 LDM BUF+2 CHECK TEXT DECK NUMBER
00480 M01S00087.ns22000 +++| LMD DN
00481 M01S00088.ns22000 +++| ZJN RTB IF REQUESTED DECK FOUND
00482 M01S00089.ns22000 +++| LTD2 RJM CSR
00483 M01S00090.ns22000 +++| NJN LTD1 IF NOT BINARY RECORD
00484 M01S00091.ns22000 +++| STD WC
00485 M01S00092.ns22000 +++|* UJN RTB INDICATE DECK NOT FOUND
00486 M01S00365.dio +++| RTB SPACE 4,10
00487 M01S00366.dio +++|** RTB - READ TAPE BLOCK.
00488 M01S00367.dio +++|
00489 M01S00368.dio +++|
00490 M01S00369.dio +++| RTB BSS 0
00491 M01S00370.dio +++| DCN PC INDICATE FUNCTION ACCEPT
00492 M01S00371.dio +++| IJM *,PC IF CALLER NOT READY
00493 M01S00372.dio +++| LDD WC OUTPUT RECORD LENGTH
00494 M01S00373.dio +++| OAN PC
00495 M01S00374.dio +++| ZJN RTB1 IF ZERO LENGTH RECORD
00496 M01S00375.dio +++| SHN 2 CONVERT TO BYTE COUNT
00497 M01S00376.dio +++| ADD WC
00498 M01S00377.dio +++| FJM *,PC WAIT CHANNEL EMPTY
00499 M01S00378.dio +++| OAM BUF,PC TRANSMIT RECORD
00500 M01S00379.dio +++| RTB1 FJM *,PC WAIT TRANSMISSION COMPLETE
00501 M01S00380.dio +++| DCN PC
00502 M01S00381.dio +++| RJM RNR READ NEXT RECORD
| Line S00382 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00503 M02S00382.ns22000 ---| LJM DIO RETURN
00504 M01S00093.ns22000 +++| JMP DIO RETURN
00505 M01S00383.dio +++| TITLE SUBROUTINES.
00506 M01S00384.dio +++| CBN SPACE 4,10
00507 M01S00385.dio +++|** CBN - CHECK BLOCK NUMBER.
00508 M01S00386.dio +++|*
00509 M01S00387.dio +++|* ENTRY (WC) = WORD COUNT OF BLOCK.
00510 M01S00388.dio +++|* (BC - BC+1) = EXPECTED BLOCK NUMBER OF BLOCK.
00511 M01S00389.dio +++|*
00512 M01S00390.dio +++|* EXIT BLOCK COUNT INCREMENTED.
00513 M01S00391.dio +++|* MESSAGE ISSUED IF BLOCK SEQUENCE ERROR.
00514 M01S00392.dio +++|*
00515 M01S00393.dio +++|* USES BL.
00516 M01S00394.dio +++|*
00517 M01S00395.dio +++|* CALLS WOG.
00518 M01S00396.dio +++|
00519 M01S00397.dio +++|
00520 M01S00398.dio +++| CBN2 AOD BC+1 ADVANCE BLOCK COUNT
00521 M01S00399.dio +++| SHN -14
00522 M01S00400.dio +++| RAD BC
00523 M01S00401.dio +++|
00524 M01S00402.dio +++| CBN SUBR ENTRY/EXIT
00525 M01S00403.dio +++| LDD WC SET BLOCK LENGTH IN CONTROL WORD
00526 M01S00404.dio +++| SHN 2
00527 M01S00405.dio +++| ADD WC
00528 M01S00406.dio +++| STM BUF-1
00529 M01S00407.dio +++| CBNA ADC BUF SET PP BUFFER LIMIT
00530 M01S00408.dio +++|* UJN CBNX (BLOCK CHECKING DISABLED)
00531 M01S00409.dio +++| STD BL
00532 M01S00410.dio +++| LDM 2,BL CHECK BLOCK NUMBER
00533 M01S00411.dio +++| LMD BC+1
00534 M01S00412.dio +++| NJN CBN1 IF NOT CORRECT BLOCK
00535 M01S00413.dio +++| LDM 1,BL
00536 M01S00414.dio +++| LMD BC
00537 M01S00415.dio +++| ZJN CBN2 IF CORRECT BLOCK
00538 M01S00416.dio +++| CBN1 LDC CBNB *BLOCK SEQUENCE ERROR*
00539 M01S00417.dio +++| RJM WOG ISSUE MESSAGE AND WAIT OPERATOR GO
00540 M01S00418.dio +++| LDM CBNC DISABLE FURTHER BLOCK CHECKING
00541 M01S00419.dio +++| STM CBNA
00542 M01S00420.dio +++| UJN CBNX EXIT
00543 M01S00421.dio +++|
00544 M01S00422.dio +++| CBNB DATA C*BLOCK SEQUENCE ERROR.*
00545 M01S00423.dio +++|
00546 M01S00424.dio +++| CBNC BSS 0
00547 M01S00425.dio +++| LOC CBNA
00548 M01S00426.dio +++| UJN CBNX
00549 M01S00427.dio +++| LOC *O
00550 M01S00428.dio +++| CDD SPACE 4,10
00551 M01S00429.dio +++|** CDD - CONNECT DEADSTART DISK.
00552 M01S00430.dio +++|*
00553 M01S00431.dio +++|* USES ST.
00554 M01S00432.dio +++|*
00555 M01S00433.dio +++|* CALLS DSM, GDS, POS.
00556 M01S00434.dio +++|
00557 M01S00435.dio +++|
00558 M01S00436.dio +++| CDD2 RJM POS POSITION DISK
| Line S00437 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2393 |
Seq # *Modification Id* Act
----------------------------+
00559 M02S00437.ns2393 ---| LDC DSCP*CPAS+MS2W CLEAR STATUS MESSAGE
| Line S00438 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2393 |
Seq # *Modification Id* Act
----------------------------+
00560 M02S00438.ns2393 ---| CWD ZR
00561 M01S00439.dio +++|
00562 M01S00440.dio +++| CDD SUBR ENTRY/EXIT
00563 M01S00441.dio +++| CDD1 RJM GDS GET DISK STATUS (CONNECT)
00564 M01S00442.dio +++| LPC 2000
00565 M01S00443.dio +++| ZJN CDD2 IF COUPLER NOT RESERVED
00566 M01S00444.dio +++| STD ST
00567 M01S00445.dio +++| RJM DSM DISPLAY STATUS MESSAGE
00568 M01S00446.dio +++| UJN CDD1 LOOP
00569 M01S00447.dio +++| CRI SPACE 4,10
00570 M01S00448.dio +++|** CRI - CHECK PP RESIDENT INITIALIZED.
00571 M01S00449.dio +++|*
00572 M01S00450.dio +++|* EXIT (A) = 0.
00573 M01S00451.dio +++|
00574 M01S00452.dio +++|
00575 M01S00453.dio +++| CRI SUBR ENTRY/EXIT
00576 M01S00454.dio +++| CRIA LDN 1
00577 M01S00455.dio +++|* LDN 0 (PP RESIDENT INITIALIZED)
00578 M01S00456.dio +++| ZJN CRIX IF RESIDENT INITIALIZED
00579 M01S00457.dio +++| UJN * HANG PP
00580 M01S00094.ns22000 +++| CSR SPACE 4,10
00581 M01S00095.ns22000 +++|** CSR - CHECK OR SKIP CURRENT RECORD.
00582 M01S00096.ns22000 +++|*
00583 M01S00097.ns22000 +++|* ENTRY (A) = 0 TO CHECK RECORD.
00584 M01S00098.ns22000 +++|* .NE. 0 TO SKIP RECORD.
00585 M01S00099.ns22000 +++|*
00586 M01S00100.ns22000 +++|* EXIT (A) = 0 IF BINARY RECORD (OVERLAY)
00587 M01S00101.ns22000 +++|*
00588 M01S00102.ns22000 +++|* USES T4.
00589 M01S00103.ns22000 +++|*
00590 M01S00104.ns22000 +++|* CALLS RNR.
00591 M01S00105.ns22000 +++|
00592 M01S00106.ns22000 +++|
00593 M01S00107.ns22000 +++| CSR SUBR ENTRY/EXIT
00594 M01S00108.ns22000 +++| ZJN CSR2 IF CHECKING CURRENT RECORD
00595 M01S00109.ns22000 +++| CSR1 LDD WC
00596 M01S00110.ns22000 +++| LMC TPLN/5 SET EOR STATUS
00597 M01S00111.ns22000 +++| STD T4
00598 M01S00112.ns22000 +++| RJM RNR READ NEXT BLOCK
00599 M01S00113.ns22000 +++| LDD T4
00600 M01S00114.ns22000 +++| ZJN CSR1 IF NOT NEXT RECORD
00601 M01S00115.ns22000 +++| CSR2 LDM BUF
00602 M01S00116.ns22000 +++| LMC 7700
00603 M01S00117.ns22000 +++| UJN CSRX RETURN
00604 M01S00458.dio +++| DSM SPACE 4,10
00605 M01S00459.dio +++|** DSM - DISPLAY STATUS MESSAGE.
00606 M01S00460.dio +++|*
00607 M01S00461.dio +++|* ENTRY (ST) = GENERAL STATUS.
00608 M01S00462.dio +++|*
00609 M01S00463.dio +++|* CALLS C2D.
00610 M01S00464.dio +++|
00611 M01S00465.dio +++|
00612 M01S00466.dio +++| DSM SUBR ENTRY/EXIT
00613 M01S00467.dio +++| LDD ST CONVERT STATUS
00614 M01S00468.dio +++| RJM C2D
00615 M01S00469.dio +++| STM DSMA+10 SET IN MESSAGE
00616 M01S00470.dio +++| LDD ST
00617 M01S00471.dio +++| SHN -6
00618 M01S00472.dio +++| RJM C2D
00619 M01S00473.dio +++| STM DSMA+7
00620 M01S00474.dio +++| LDC DSCP*CPAS+MS2W STORE MESSAGE
00621 M01S00475.dio +++| CWM DSMA,TR
00622 M01S00476.dio +++| UJN DSMX RETURN
00623 M01S00477.dio +++|
00624 M01S00478.dio +++| DSMA DATA C*CHXX, UNYY - SZZZZ.*
00625 M01S00479.dio +++| RNR SPACE 4,10
00626 M01S00480.dio +++|** RNR - READ NEXT RECORD.
00627 M01S00481.dio +++|*
00628 M01S00482.dio +++|* EXIT (BUF) = NEXT RECORD ON DEADSTART FILE.
00629 M01S00483.dio +++|*
00630 M01S00484.dio +++|* USES RC.
00631 M01S00485.dio +++|*
00632 M01S00486.dio +++|* CALLS RDR, RTR.
00633 M01S00487.dio +++|
00634 M01S00488.dio +++|
00635 M01S00489.dio +++| RNR SUBR ENTRY/EXIT
00636 M01S00490.dio +++| LDN 10 SET RETRY COUNT
00637 M01S00491.dio +++| STD RC
00638 M01S00492.dio +++| RJM RDR READ DISK RECORD
00639 M01S00493.dio +++| RNRA EQU *-1
00640 M01S00494.dio +++|* RJM RTR (TAPE DEADSTART)
00641 M01S00001.ns2393 +++| LDC DSCP*200+MS2W
00642 M01S00002.ns2393 +++| CWD ZR
00643 M01S00495.dio +++| UJN RNRX RETURN
00644 M01S00496.dio +++| RST SPACE 4,10
00645 M01S00497.dio +++|** RST - READ SYSTEM TAPE.
00646 M01S00498.dio +++|*
00647 M01S00499.dio +++|* USES WC, T1, T2, CM - CM+4, CN - CN+4, DP - DP+4.
00648 M01S00500.dio +++|*
00649 M01S00501.dio +++|* CALLS CBN, ITM, RNR, SBP, WOC.
00650 M01S00502.dio +++|
00651 M01S00503.dio +++|
00652 M01S00504.dio +++| RST SUBR ENTRY/EXIT
00653 M01S00505.dio +++| RJM SRP SET READ PARAMETERS
00654 M01S00506.dio +++| RST1 RJM WOC WAIT OUTPUT REGISTER CLEAR
00655 M01S00507.dio +++| PAUSE NE
00656 M01S00508.dio +++| LDD RA READ OUT
00657 M01S00509.dio +++| SHN 6
00658 M01S00510.dio +++| ADD IR+4
00659 M01S00511.dio +++| ADN 3
00660 M01S00512.dio +++| CRD CN
00661 M01S00513.dio +++| RST2 LDD CN+3 LENGTH = OUT - IN+1
00662 M01S00514.dio +++| SBD DP+3
00663 M01S00515.dio +++| SHN 14
00664 M01S00516.dio +++| ADD CN+4
00665 M01S00517.dio +++| SBD DP+4
00666 M01S00518.dio +++| SBN 1
00667 M01S00519.dio +++| PJN RST3 IF IN+1 .GE OUT
00668 M01S00520.dio +++| .BSA ADC ** (LIMIT - FIRST)
00669 M01S00521.dio +++| RST3 ADC -1002
00670 M01S00522.dio +++| MJN RST1 IF NO ROOM FOR ANOTHER BLOCK
00671 M01S00523.dio +++| RSTA RJM ITM INITIATE TAPE MOTION FOR NEXT READ
00672 M01S00524.dio +++|* UJN *+2 (READ AHEAD DISABLED)
00673 M01S00525.dio +++| LDN 2 INCLUDE CONTROL WORDS IN WORD COUNT
00674 M01S00526.dio +++| RAD WC
00675 M01S00527.dio +++| WCB SPACE 4,10
00676 M01S00528.dio +++|** WCB - WRITE CENTRAL BUFFER.
00677 M01S00529.dio +++|
00678 M01S00530.dio +++|
00679 M01S00531.dio +++| WCB LDD DP+3 CHECK IN + WORD COUNT
00680 M01S00532.dio +++| SHN 14
00681 M01S00533.dio +++| ADD DP+4
00682 M01S00534.dio +++| ADD WC
00683 M01S00535.dio +++| .LMA ADC -** (-LIMIT)
00684 M01S00536.dio +++| STD T2 SET SECOND PART WORD COUNT
00685 M01S00537.dio +++| LMC -0
00686 M01S00538.dio +++| PJN WCB3 IF LIMIT NOT REACHED
00687 M01S00539.dio +++|
00688 M01S00540.dio +++|* PROCESS WRAP AROUND BLOCK.
00689 M01S00541.dio +++|
00690 M01S00542.dio +++| ADD WC SET FIRST PART WORD COUNT
00691 M01S00543.dio +++| STD T1
00692 M01S00544.dio +++| ZJN WCB1 IF NO FIRST PART
00693 M01S00545.dio +++| LDD DP+3 STORE FIRST PART
00694 M01S00546.dio +++| SHN 6
00695 M01S00547.dio +++| ADD RA
00696 M01S00548.dio +++| SHN 6
00697 M01S00549.dio +++| ADD DP+4
00698 M01S00550.dio +++| CWM BUF-5,T1
00699 M01S00551.dio +++| WCB1 LDD T2 CHECK SECOND PART LENGTH
00700 M01S00552.dio +++| ZJN WCB2 IF NO SECOND PART
00701 M01S00553.dio +++| LDD T1 SET PP BUFFER ADDRESS
00702 M01S00554.dio +++| SHN 2
00703 M01S00555.dio +++| ADD T1
00704 M01S00556.dio +++| RAM WCBA
00705 M01S00557.dio +++| LDD RA STORE SECOND PART
00706 M01S00558.dio +++| SHN 6
00707 M01S00559.dio +++| .FTA ADC ** STORE SECOND PART (FIRST)
00708 M01S00560.dio +++| CWM BUF-5,T2
00709 M01S00561.dio +++| WCBA EQU *-1 (RESET)
00710 M01S00562.dio +++| WCB2 LDD T2 SET IN AFTER SECOND PART
00711 M01S00563.dio +++| .FTB ADC ** (FIRST)
00712 M01S00564.dio +++| STD DP+4
00713 M01S00565.dio +++| SHN -14
00714 M01S00566.dio +++| STD DP+3
00715 M01S00567.dio +++| UJN WCB4
00716 M01S00568.dio +++|
00717 M01S00569.dio +++|* PROCESS NORMAL BLOCK.
00718 M01S00570.dio +++|
00719 M01S00571.dio +++| WCB3 LDD DP+3 STORE BLOCK
00720 M01S00572.dio +++| SHN 6
00721 M01S00573.dio +++| ADD RA
00722 M01S00574.dio +++| SHN 6
00723 M01S00575.dio +++| ADD DP+4
00724 M01S00576.dio +++| CWM BUF-5,WC
00725 M01S00577.dio +++| LDC BUF-5 RESET (WCBA)
00726 M01S00578.dio +++| STM WCBA
00727 M01S00579.dio +++| LDD WC ADVANCE IN
00728 M01S00580.dio +++| RAD DP+4
00729 M01S00581.dio +++| SHN -14
00730 M01S00582.dio +++| RAD DP+3
00731 M01S00583.dio +++| WCB4 LDD RA STORE IN
00732 M01S00584.dio +++| SHN 6
00733 M01S00585.dio +++| .INA ADC ** (ADDRESS OF IN)
00734 M01S00586.dio +++| CWD DP
00735 M01S00587.dio +++| ADN 1 READ OUT
00736 M01S00588.dio +++| CRD CN
00737 M01S00589.dio +++| LDN DRCM RECALL CPU
00738 M01S00590.dio +++| STD CM
00739 M01S00591.dio +++| LDD OA
00740 M01S00592.dio +++| CWD CM
00741 M01S00593.dio +++| RJM RNR READ NEXT RECORD
00742 M01S00594.dio +++| RJM CBN CHECK BLOCK NUMBER
00743 M01S00595.dio +++| LJM RST2 LOOP
00744 M01S00596.dio +++| SRP SPACE 4,10
00745 M01S00597.dio +++|** SRP - SET READ PARAMETERS.
00746 M01S00598.dio +++|*
00747 M01S00599.dio +++|* EXIT (DP - DP+4) = IN POINTER.
00748 M01S00600.dio +++|* PARAMETERS INITIALIZED.
00749 M01S00601.dio +++|* FIRST TAPE BLOCK READ.
00750 M01S00602.dio +++|*
00751 M01S00603.dio +++|* USES CM - CM+5, CN - CN+4, T1 - T1+4.
00752 M01S00604.dio +++|*
00753 M01S00605.dio +++|* CALLS CBN, RNR.
00754 M01S00606.dio +++|*
00755 M01S00607.dio +++|* MACROS PAUSE.
00756 M01S00608.dio +++|
00757 M01S00609.dio +++|
00758 M01S00610.dio +++| SRP SUBR ENTRY/EXIT
00759 M01S00611.dio +++| SRP1 PAUSE NE
00760 M01S00612.dio +++| LDD RA READ FILE STATUS
00761 M01S00613.dio +++| SHN 6
00762 M01S00614.dio +++| ADD IR+4
00763 M01S00615.dio +++| CRD CM+1
00764 M01S00616.dio +++| ADN 1 READ FIRST
00765 M01S00617.dio +++| CRD T1
00766 M01S00618.dio +++| ADN 1 READ IN
00767 M01S00619.dio +++| CRD DP
00768 M01S00620.dio +++| ADN 1 READ OUT
00769 M01S00621.dio +++| CRD CN
00770 M01S00622.dio +++| ADN 1 READ LIMIT
00771 M01S00623.dio +++| CRD CM
00772 M01S00624.dio +++| LDD CM+5
00773 M01S00625.dio +++| NJN SRP1 IF *SYSEDIT* NOT READY
00774 M01S00626.dio +++| LDD T1+3
00775 M01S00627.dio +++| LPN 37
00776 M01S00628.dio +++| STD T1+3
00777 M01S00629.dio +++|
00778 M01S00630.dio +++| LDD CM+3 LIMIT - FIRST
00779 M01S00631.dio +++| SBD T1+3
00780 M01S00632.dio +++| SHN 14
00781 M01S00633.dio +++| ADD CM+4
00782 M01S00634.dio +++| SBD T1+4
00783 M01S00635.dio +++| STM .BSA+1
00784 M01S00636.dio +++| SHN -14
00785 M01S00637.dio +++| LMC ADCI
00786 M01S00638.dio +++| STM .BSA
00787 M01S00639.dio +++|
00788 M01S00640.dio +++| LDC ADCI+77 -LIMIT
00789 M01S00641.dio +++| LMD CM+3
00790 M01S00642.dio +++| STM .LMA
00791 M01S00643.dio +++| LCN 0
00792 M01S00644.dio +++| LMD CM+4
00793 M01S00645.dio +++| STM .LMA+1
00794 M01S00646.dio +++|
00795 M01S00647.dio +++| LDD T1+3 FIRST
00796 M01S00648.dio +++| LMC ADCI
00797 M01S00649.dio +++| STM .FTA
00798 M01S00650.dio +++| STM .FTB
00799 M01S00651.dio +++| LDD T1+4
00800 M01S00652.dio +++| STM .FTA+1
00801 M01S00653.dio +++| STM .FTB+1
00802 M01S00654.dio +++|
00803 M01S00655.dio +++| LDD IR+3 ADDRESS OF IN
00804 M01S00656.dio +++| SHN 14
00805 M01S00657.dio +++| ADD IR+4
00806 M01S00658.dio +++| ADN 2
00807 M01S00659.dio +++| STM .INA+1
00808 M01S00660.dio +++| SHN -14
00809 M01S00661.dio +++| LMC ADCI
00810 M01S00662.dio +++| STM .INA
00811 M01S00663.dio +++|
00812 M01S00664.dio +++| LDN ZERL CLEAR CONTROL WORD
00813 M01S00665.dio +++| CRM BUF-5,ON
00814 M01S00666.dio +++| LDD TH SET PRU SIZE IN CONTROL WORD
00815 M01S00667.dio +++| STM BUF-4
00816 M01S00668.dio +++| RJM RNR READ NEXT RECORD
00817 M01S00669.dio +++| RJM CBN CHECK BLOCK NUMBER
00818 M01S00670.dio +++| LJM SRPX RETURN
00819 M01S00671.dio +++| WOC SPACE 4,10
00820 M01S00672.dio +++|** WOC - WAIT OUTPUT REGISTER CLEAR.
00821 M01S00673.dio +++|*
00822 M01S00674.dio +++|* USES CM - CM+4.
00823 M01S00675.dio +++|
00824 M01S00676.dio +++|
00825 M01S00677.dio +++| WOC SUBR ENTRY/EXIT
00826 M01S00678.dio +++| WOC1 LDD OA READ OUTPUT REGISTER
00827 M01S00679.dio +++| CRD CM
00828 M01S00680.dio +++| LDD CM
00829 M01S00681.dio +++| ZJN WOCX RETURN IF CLEAR
00830 M01S00682.dio +++| LDN 77 DELAY
00831 M01S00683.dio +++| SBN 1
00832 M01S00684.dio +++| NJN *-1
00833 M01S00685.dio +++| UJN WOC1 LOOP
00834 M01S00686.dio +++| WOG SPACE 4,10
00835 M01S00687.dio +++|** WOG - WAIT FOR OPERATOR GO.
00836 M01S00688.dio +++|*
00837 M01S00689.dio +++|* ENTRY (A) = ADDRESS OF MESSAGE.
00838 M01S00690.dio +++|*
00839 M01S00691.dio +++|* EXIT (A) = 0.
00840 M01S00692.dio +++|* OPERATOR ENTERED *GO,.* OR *GO,SYS.*.
00841 M01S00693.dio +++|*
00842 M01S00694.dio +++|* USES T3, CM - CM+4.
00843 M01S00695.dio +++|*
00844 M01S00696.dio +++|* MACROS PAUSE.
00845 M01S00697.dio +++|
00846 M01S00698.dio +++|
00847 M01S00699.dio +++| WOG SUBR ENTRY/EXIT
00848 M01S00700.dio +++| STM WOGA SET MESSAGE ADDRESS
00849 M01S00701.dio +++| LDN NCPL
00850 M01S00702.dio +++| CRD CM
00851 M01S00703.dio +++| AOD CM+1 READ SENSE SWITCH WORD AT SYSTEM CP
00852 M01S00704.dio +++| SHN 7
00853 M01S00705.dio +++| ADN SNSW
00854 M01S00706.dio +++| STD T3
00855 M01S00707.dio +++| CRD CM
00856 M01S00708.dio +++| LDD CM+3 SET PAUSE BIT
00857 M01S00709.dio +++| SCN 1
00858 M01S00710.dio +++| LMN 1
00859 M01S00711.dio +++| STD CM+3
00860 M01S00712.dio +++| LDC DSCP*200+MS2W STORE MESSAGE
00861 M01S00713.dio +++| CWM *,TR
00862 M01S00714.dio +++| WOGA EQU *-1 MESSAGE ADDRESS
00863 M01S00715.dio +++| LDD T3 STORE PAUSE FLAG
00864 M01S00716.dio +++| CWD CM
00865 M01S00717.dio +++| WOG1 PAUSE NE
00866 M01S00718.dio +++| LDD T3 CHECK PAUSE BIT
00867 M01S00719.dio +++| CRD CM
00868 M01S00720.dio +++| LDD CM+3
00869 M01S00721.dio +++| LPN 1
00870 M01S00722.dio +++| ZJN WOGX IF PAUSE BIT CLEAR
00871 M01S00723.dio +++| UJN WOG1 LOOP
00872 M01S00724.dio +++| TITLE DISK/TAPE ROUTINES.
00873 M01S00725.dio +++| BKS SPACE 4,10
00874 M01S00726.dio +++|** BKS - BACKSPACE DEADSTART MEDIUM.
00875 M01S00727.dio +++|*
00876 M01S00728.dio +++|* ENTRY (RC) = RETRY COUNT.
00877 M01S00729.dio +++|*
00878 M01S00730.dio +++|* EXIT (RC) DECREMENTED.
00879 M01S00731.dio +++|*
00880 M01S00732.dio +++|* CALLS DSM, GTS, POS, WOG.
00881 M01S00733.dio +++|
00882 M01S00734.dio +++|
00883 M01S00735.dio +++| BKS4 LDD LT RESET DISK ADDRESS
00884 M01S00736.dio +++| STD T6
00885 M01S00737.dio +++| LDD LS
00886 M01S00738.dio +++| STD T7
00887 M01S00739.dio +++| RJM POS POSITION MASS STORAGE
00888 M01S00740.dio +++|
00889 M01S00741.dio +++| BKS SUBR ENTRY/EXIT
00890 M01S00742.dio +++| RJM DSM DISPLAY STATUS MESSAGE
00891 M01S00743.dio +++| SOD RC DECREMENT RETRY COUNT
00892 M01S00744.dio +++| BKSA ZJN * IF RETRY COUNT EXHAUSTED
00893 M01S00745.dio +++|* ZJN BKS3 (TAPE ERROR LOADING SYSTEM FILE)
00894 M01S00746.dio +++| LDD DM
00895 M01S00747.dio +++| NJN BKS4 IF DISK DEADSTART
00896 M01S00748.dio +++| BKS1 RJM GTS GET TAPE STATUS
00897 M01S00749.dio +++| LPN 2
00898 M01S00750.dio +++| NJN BKS1 IF UNIT BUSY
00899 M01S00751.dio +++| LDD BF BACKSPACE TAPE
| Line S00752 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00900 M02S00752.ns21000 ---| FAN DC
00901 M01S00011.ns21000 +++| FAN DS
00902 M01S00753.dio +++| BKS2 RJM GTS GET TAPE STATUS
00903 M01S00754.dio +++| LPN 2
00904 M01S00755.dio +++| NJN BKS2 IF BACKSPACE NOT COMPLETE
00905 M01S00756.dio +++| UJN BKSX RETURN
00906 M01S00757.dio +++|
00907 M01S00758.dio +++| BKS3 LDC BKSB *SYSTEM TAPE PARITY ERROR.*
00908 M01S00759.dio +++| RJM WOG WAIT FOR OPERATOR *GO.*
00909 M01S00760.dio +++| LJM RTRX EXIT TAPE READ ROUTINE
00910 M01S00761.dio +++|
00911 M01S00762.dio +++| BKSB DATA C*SYSTEM TAPE PARITY ERROR.*
00912 M01S00763.dio +++|
00913 M01S00764.dio +++| BKSC BSS 0
00914 M01S00765.dio +++| LOC BKSA
00915 M01S00766.dio +++| ZJN BKS3 IF TAPE ERROR LOADING SYSTEM FILE
00916 M01S00767.dio +++| LOC *O
00917 M01S00768.dio +++| GDS SPACE 4,10
00918 M01S00769.dio +++|** GDS - GET DISK STATUS.
00919 M01S00770.dio +++|*
00920 M01S00771.dio +++|* EXIT (A) = (ST) = GENERAL STATUS.
00921 M01S00772.dio +++|
00922 M01S00773.dio +++|
00923 M01S00774.dio +++| GDS SUBR ENTRY/EXIT
| Line S00775 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00924 M02S00775.ns21000 ---| FNC 12,DC GET GENERAL STATUS
| Line S00776 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00925 M02S00776.ns21000 ---| ACN DC
| Line S00777 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00926 M02S00777.ns21000 ---| IAN DC
00927 M01S00012.ns21000 +++| FNC 12,DS GET GENERAL STATUS
00928 M01S00013.ns21000 +++| ACN DS
00929 M01S00014.ns21000 +++| IAN DS
00930 M01S00778.dio +++| STD ST
00931 M01S00779.dio +++| UJN GDSX RETURN
00932 M01S00780.dio +++| GTS SPACE 4,10
00933 M01S00781.dio +++|** GTS - GET TAPE STATUS.
00934 M01S00782.dio +++|*
00935 M01S00783.dio +++|* EXIT (A) = (ST) = GENERAL STATUS.
00936 M01S00784.dio +++|
00937 M01S00785.dio +++|
00938 M01S00786.dio +++| GTS1 LDN 70
| Line S00787 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00939 M02S00787.ns21000 ---| GTS2 FJM GTS4,DC IF STATUS READY
00940 M01S00015.ns21000 +++| GTS2 FJM GTS4,DS IF STATUS READY
00941 M01S00788.dio +++| SBN 1
00942 M01S00789.dio +++| NJN GTS2 WAIT STATUS READY
| Line S00790 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00943 M02S00790.ns21000 ---| DCN DC
00944 M01S00016.ns21000 +++| DCN DS
00945 M01S00791.dio +++| GTS3 LDD SF REQUEST GENERAL STATUS
| Line S00792 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00946 M02S00792.ns21000 ---| FAN DC
| Line S00793 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00947 M02S00793.ns21000 ---| ACN DC
| Line S00794 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00948 M02S00794.ns21000 ---| EJM GTS1,DC IF CHANNEL EMPTY
| Line S00795 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00949 M02S00795.ns21000 ---| GTS4 IAN DC
| Line S00796 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00950 M02S00796.ns21000 ---| DCN DC
00951 M01S00017.ns21000 +++| FAN DS
00952 M01S00018.ns21000 +++| ACN DS
00953 M01S00019.ns21000 +++| EJM GTS1,DS IF CHANNEL EMPTY
00954 M01S00020.ns21000 +++| GTS4 IAN DS
00955 M01S00021.ns21000 +++| DCN DS
00956 M01S00797.dio +++| STD ST SET GENERAL STATUS
00957 M01S00798.dio +++| SHN 0-13
00958 M01S00799.dio +++| ZJN GTS5 IF ALERT FLAG NOT SET
| Line S00800 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00959 M02S00800.ns21000 ---| FNC 112,DC GET DETAILED STATUS
00960 M01S00022.ns21000 +++| FNC 112,DS GET DETAILED STATUS
00961 M01S00801.dio +++| GTSA EQU *-1
| Line S00802 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00962 M02S00802.ns21000 ---| ACN DC
| Line S00803 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00963 M02S00803.ns21000 ---| IAN DC
| Line S00804 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00964 M02S00804.ns21000 ---| DCN DC
00965 M01S00023.ns21000 +++| ACN DS
00966 M01S00024.ns21000 +++| IAN DS
00967 M01S00025.ns21000 +++| DCN DS
00968 M01S00805.dio +++| LPC 7077
00969 M01S00806.dio +++| GTSB EQU *-1
00970 M01S00807.dio +++|* LPC 7777 (ATS TAPE SYSTEM)
00971 M01S00808.dio +++| NJN GTS5 IF NOT ONLY WARNING
00972 M01S00809.dio +++| LDD ST CLEAR ALERT FLAG
00973 M01S00810.dio +++| LPN 77
00974 M01S00811.dio +++| STD ST
00975 M01S00812.dio +++| GTS5 LDD ST
00976 M01S00813.dio +++|
00977 M01S00814.dio +++| GTS SUBR ENTRY/EXIT
00978 M01S00815.dio +++| UJN GTS3 GET GENERAL STATUS
00979 M01S00816.dio +++| ITM SPACE 4,10
00980 M01S00817.dio +++|** ITM - INITIATE TAPE MOTION.
00981 M01S00818.dio +++|*
00982 M01S00819.dio +++|* ENTRY (TM) = 5005 IF TAPE MOTION INITIATED.
00983 M01S00820.dio +++|*
00984 M01S00821.dio +++|* EXIT (A) = (TM) = 5005.
00985 M01S00822.dio +++|* CHANNEL ACTIVE.
00986 M01S00823.dio +++|
00987 M01S00824.dio +++|
00988 M01S00825.dio +++| ITM SUBR ENTRY/EXIT
00989 M01S00826.dio +++| LDD TM
00990 M01S00827.dio +++| NJN ITMX IF TAPE MOTION ALREADY INITIATED
00991 M01S00828.dio +++| LDD RF ISSUE READ FUNCTION
| Line S00829 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00992 M02S00829.ns21000 ---| FAN DC
00993 M01S00026.ns21000 +++| FAN DS
00994 M01S00830.dio +++| LDC TPLN+5 SET TAPE MOTION FLAG
00995 M01S00831.dio +++| STD TM
| Line S00832 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00996 M02S00832.ns21000 ---| ACN DC
00997 M01S00027.ns21000 +++| ACN DS
00998 M01S00833.dio +++| UJN ITMX RETURN
00999 M01S00834.dio +++| POS SPACE 4,10
01000 M01S00835.dio +++|** POS - POSITION MASS STORAGE.
01001 M01S00836.dio +++|*
01002 M01S00837.dio +++|* ENTRY (T6) = LOGICAL TRACK.
01003 M01S00838.dio +++|* (T7) = LOGICAL SECTOR.
01004 M01S00839.dio +++|* (UN) = UNIT NUMBER.
01005 M01S00840.dio +++|* (POSA) = SEEK FUNCTION.
01006 M01S00841.dio +++|*
01007 M01S00842.dio +++|* USES T2.
01008 M01S00843.dio +++|*
01009 M01S00844.dio +++|* CALLS DSM, GDS, LDA.
01010 M01S00845.dio +++|
01011 M01S00846.dio +++|
01012 M01S00847.dio +++| POS SUBR ENTRY/EXIT
01013 M01S00848.dio +++| LDN 0
01014 M01S00849.dio +++| STD T2
01015 M01S00850.dio +++| RJM LDA CONVERT DISK ADDRESS
01016 M01S00005.241l630 +++| LDD DT SET 895 DEADSTART READ FLAG
01017 M01S00006.241l630 +++| RAD UN+2
01018 M01S00851.dio +++| POS1 SOD T2
01019 M01S00852.dio +++| ZJN POS2 IF BUSY COUNT EXHAUSTED
| Line S00853 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01020 M02S00853.ns21000 ---| FNC 2,DC SEEK FUNCTION
01021 M01S00028.ns21000 +++| FNC 2,DS SEEK FUNCTION
01022 M01S00854.dio +++| POSA EQU *-1
| Line S00855 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01023 M02S00855.ns21000 ---|* FNC 1,DC (1 TO 1 INTERLACE)
| Line S00856 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01024 M02S00856.ns21000 ---| ACN DC
01025 M01S00029.ns21000 +++|* FNC 1,DS (1 TO 1 INTERLACE)
01026 M01S00030.ns21000 +++| ACN DS
01027 M01S00857.dio +++| LDN 4 OUTPUT SEEK PARAMETERS
| Line S00858 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01028 M02S00858.ns21000 ---| OAM UN,DC
| Line S00859 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01029 M02S00859.ns21000 ---| FJM *,DC
| Line S00860 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01030 M02S00860.ns21000 ---| DCN DC
01031 M01S00031.ns21000 +++| OAM UN,DS
01032 M01S00032.ns21000 +++| FJM *,DS IF CHANNEL FULL
01033 M01S00033.ns21000 +++| DCN DS
01034 M01S00861.dio +++| RJM GDS GET DISK STATUS
01035 M01S00862.dio +++| ZJN POSX IF POSITIONING COMPLETE
01036 M01S00863.dio +++| LPN 2
01037 M01S00864.dio +++| NJN POS1 IF BUSY
01038 M01S00865.dio +++| POS2 RJM DSM DISPLAY STATUS MESSAGE
01039 M01S00866.dio +++| UJN POS1 LOOP
01040 M01S00867.dio +++| RDR SPACE 4,10
01041 M01S00868.dio +++|** RDR - READ DISK RECORD.
01042 M01S00869.dio +++|*
01043 M01S00870.dio +++|* ENTRY (T6) = CURRENT LOGICAL TRACK.
01044 M01S00871.dio +++|* (T7) = CURRENT LOGICAL SECTOR.
01045 M01S00872.dio +++|*
01046 M01S00873.dio +++|* EXIT (A) = 0 IF ERROR.
01047 M01S00874.dio +++|* (LT) = (T6) ON ENTRY.
01048 M01S00875.dio +++|* (LS) = (T7) ON ENTRY.
01049 M01S00876.dio +++|* (WC) = CM WORD COUNT OF RECORD.
01050 M01S00877.dio +++|*
01051 M01S00878.dio +++|* CALLS CDD, RNS.
01052 M01S00879.dio +++|
01053 M01S00880.dio +++|
01054 M01S00881.dio +++| RDR SUBR ENTRY/EXIT
01055 M01S00882.dio +++| RJM CDD CONNECT
01056 M01S00883.dio +++| RDR1 LDN 0 CLEAR WORD COUNT
01057 M01S00884.dio +++| STD WC
01058 M01S00885.dio +++| LDD T6 SAVE CURRENT DISK ADDRESS
01059 M01S00886.dio +++| STD LT
01060 M01S00887.dio +++| LDD T7
01061 M01S00888.dio +++| STD LS
01062 M01S00889.dio +++| RDR2 LDD WC READ NEXT SECTOR
01063 M01S00890.dio +++| RJM RNS
01064 M01S00891.dio +++| MJN RDR1 IF DISK ERROR
01065 M01S00892.dio +++| RAD WC
01066 M01S00893.dio +++| LMC TPLN/5
01067 M01S00894.dio +++| ZJN RDR3 IF TAPE PRU ASSEMBLED
01068 M01S00895.dio +++| LDD T2 CHECK SECTOR WORD COUNT
01069 M01S00896.dio +++| SHN -6
01070 M01S00897.dio +++| NJN RDR2 IF NOT EOR
| Line S00898 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01071 M02S00898.ns21000 ---| RDR3 FNC 10,DC RELEASE CONTROLLER / DRIVE
01072 M01S00034.ns21000 +++| RDR3 FNC 10,DS RELEASE CONTROLLER / DRIVE
01073 M01S00001.dio2 +++| AJM *,DS IF FUNCTION NOT COMPLETE
01074 M01S00899.dio +++| UJN RDRX RETURN
01075 M01S00900.dio +++| RDT SPACE 4,10
01076 M01S00901.dio +++|** RDT - REWIND DEADSTART TAPE.
01077 M01S00902.dio +++|
01078 M01S00903.dio +++|
01079 M01S00904.dio +++| RDT SUBR ENTRY/EXIT
01080 M01S00905.dio +++| LDD DM
01081 M01S00906.dio +++| NJN RDTX IF DISK DEADSTART
01082 M01S00907.dio +++| RDT1 RJM GTS GET TAPE STATUS
01083 M01S00908.dio +++| LPN 2
01084 M01S00909.dio +++| NJN RDT1 IF UNIT BUSY
01085 M01S00910.dio +++| LDD SF
01086 M01S00911.dio +++| SBN 12-10 REWIND TAPE
| Line S00912 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01087 M02S00912.ns21000 ---| FAN DC
01088 M01S00035.ns21000 +++| FAN DS
01089 M01S00913.dio +++| UJN RDTX RETURN
01090 M01S00914.dio +++| RNS SPACE 4,10
01091 M01S00915.dio +++|** RNS - READ NEXT SECTOR.
01092 M01S00916.dio +++|*
01093 M01S00917.dio +++|* ENTRY (A) = BIAS FOR BUFFER ADDRESS.
01094 M01S00918.dio +++|*
01095 M01S00919.dio +++|* EXIT (A) = (T2) = SECTOR WORD COUNT.
01096 M01S00920.dio +++|* (T6) = LOGICAL TRACK FOR NEXT READ.
01097 M01S00921.dio +++|* (T7) = LOGICAL SECTOR FOR NEXT READ.
01098 M01S00922.dio +++|*
01099 M01S00923.dio +++|* EREXIT (A) .LT. 0.
01100 M01S00924.dio +++|* DISK BACKSPACED.
01101 M01S00925.dio +++|*
01102 M01S00926.dio +++|* USES T3, L1, L2.
01103 M01S00927.dio +++|*
01104 M01S00928.dio +++|* CALLS BKS, GDS, POS.
01105 M01S00929.dio +++|
01106 M01S00930.dio +++|
01107 M01S00004.ns2776 +++| RNS2.1 LDN 0 ZERO IF *DR* DEADSTART DEVICE
01108 M01S00005.ns2776 +++| RNSB EQU *-1
01109 M01S00006.ns2776 +++| NJN RNS2.2 IF NOT *DR* DEADSTART DEVICE
01110 M01S00007.ns2776 +++| LDD T7
01111 M01S00008.ns2776 +++| LMC 1200
01112 M01S00009.ns2776 +++| ZJN RNS3.1 IF POSSIBLE CYLINDER SWITCH
01113 M01S00010.ns2776 +++| LMC 1200&2400
01114 M01S00011.ns2776 +++| ZJN RNS3.1 IF POSSIBLE CYLINDER SWITCH
01115 M01S00012.ns2776 +++| RNS2.2 UJN RNS4 RESTORE LINKAGE CELLS AND RETURN
01116 M01S00013.ns2776 +++|
01117 M01S00931.dio +++| RNS3 AOD T7 ADVANCE LOGICAL SECTOR
01118 M01S00932.dio +++| LMI T3
| Line S00933 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
01119 M02S00933.ns2776 ---| ZJN RNS4 IF MATCHING SECTOR LINKAGE
01120 M01S00014.ns2776 +++| ZJN RNS2.1 IF MATCHING SECTOR LINKAGE
01121 M01S00015.ns2776 +++| LDI T3 SET NEXT TRACK
01122 M01S00016.ns2776 +++| SHN 21-13
01123 M01S00017.ns2776 +++| PJN * IF NOT TRACK SWITCH
01124 M01S00018.ns2776 +++| SHN 13-21
01125 M01S00019.ns2776 +++| STD T6
01126 M01S00934.dio +++| LDN 0 SET FIRST SECTOR
01127 M01S00935.dio +++| STD T7
| Line S00936 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
01128 M02S00936.ns2776 ---| LDI T3 SET NEXT TRACK
| Line S00937 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
01129 M02S00937.ns2776 ---| STD T6
| Line S00938 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
01130 M02S00938.ns2776 ---| SHN 0-13
| Line S00939 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
01131 M02S00939.ns2776 ---| ZJN * IF NOT TRACK SWITCH
| Line S00940 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act
----------------------------+
01132 M02S00940.ns2776 ---| RJM POS POSITION MASS STORAGE
01133 M01S00020.ns2776 +++| RNS3.1 RJM POS POSITION MASS STORAGE
01134 M01S00941.dio +++| RNS4 LDD L1 RESTORE CELLS OVERLAID BY LINKAGE
01135 M01S00942.dio +++| STI T3
01136 M01S00943.dio +++| AOD T3
01137 M01S00944.dio +++| LDI T3
01138 M01S00945.dio +++| STD T2
01139 M01S00946.dio +++| LDD L2
01140 M01S00947.dio +++| STI T3
01141 M01S00948.dio +++| LDD T2
01142 M01S00949.dio +++|
01143 M01S00950.dio +++| RNS SUBR ENTRY/EXIT
01144 M01S00951.dio +++| STD T3 CALCULATE BUFFER ADDRESS
01145 M01S00952.dio +++| SHN 2
01146 M01S00953.dio +++| ADC BUF-2
01147 M01S00954.dio +++| RAD T3
01148 M01S00955.dio +++| STM RNSA
01149 M01S00956.dio +++| LDI T3 SAVE LOCATIONS OVERLAID BY LINKAGE
01150 M01S00957.dio +++| STD L1
01151 M01S00958.dio +++| LDM 1,T3
01152 M01S00959.dio +++| STD L2
| Line S00960 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01153 M02S00960.ns21000 ---| FNC 4,DC READ DISK SECTOR
01154 M01S00036.ns21000 +++| FNC 4,DS READ DISK SECTOR
| Line S00961 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | dio1 |
Seq # *Modification Id* Act
----------------------------+
01155 M02S00961.dio1 ---| LDC DSLN+2
01156 M01S00001.dio1 +++| RNS1 LDC DSLN+2
| Line S00962 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01157 M02S00962.ns21000 ---| ACN DC
| Line S00963 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01158 M02S00963.ns21000 ---| IAM BUF,DC
01159 M01S00037.ns21000 +++| ACN DS
01160 M01S00038.ns21000 +++| IAM BUF,DS
01161 M01S00964.dio +++| RNSA EQU *-1
| Line S00965 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | dio1 |
Seq # *Modification Id* Act
----------------------------+
01162 M02S00965.dio1 ---| RNS1 RJM GDS GET DISK STATUS
| Line S00966 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | dio1 |
Seq # *Modification Id* Act
----------------------------+
01163 M02S00966.dio1 ---| NJN RNS2 IF NOT READY
| Line S00967 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | dio1 |
Seq # *Modification Id* Act
----------------------------+
01164 M02S00967.dio1 ---| LJM RNS3 COMPLETE PROCESSING
| Line S00968 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | dio1 |
Seq # *Modification Id* Act
----------------------------+
01165 M02S00968.dio1 ---|
| Line S00969 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | dio1 |
Seq # *Modification Id* Act
----------------------------+
01166 M02S00969.dio1 ---| RNS2 LPC 5001
| Line S00970 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | dio1 |
Seq # *Modification Id* Act
----------------------------+
01167 M02S00970.dio1 ---| ZJN RNS1 IF NO ERRORS
| Line S00971 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | dio1 |
Seq # *Modification Id* Act
----------------------------+
01168 M02S00971.dio1 ---| RJM BKS BACKSPACE DISK
01169 M01S00002.dio1 +++| RJM GDS GET DISK STATUS
01170 M01S00003.dio1 +++| ZJP RNS3 IF NO ERRORS
01171 M01S00004.dio1 +++| SHN 21-13
01172 M01S00005.dio1 +++| PJN RNS2 IF NOT ABNORMAL TERMINATION
01173 M01S00006.dio1 +++| SHN 21-10-21+13
01174 M01S00007.dio1 +++| PJN RNS2 IF NOT TO ISSUE CONTINUE
01175 M01S00008.dio1 +++| FNC 14,DS ISSUE CONTINUE FUNCTION
01176 M01S00009.dio1 +++| UJN RNS1 CONTINUE
01177 M01S00010.dio1 +++|
01178 M01S00011.dio1 +++| RNS2 RJM BKS BACKSPACE DISK
01179 M01S00972.dio +++| LCN 0
01180 M01S00973.dio +++| LJM RNSX RETURN
01181 M01S00974.dio +++| RTR SPACE 4,10
01182 M01S00975.dio +++|** RTR - READ TAPE RECORD.
01183 M01S00976.dio +++|*
01184 M01S00977.dio +++|* EXIT (WC) = CM WORD COUNT FOR RECORD.
01185 M01S00978.dio +++|* (TM) = 0.
01186 M01S00979.dio +++|* TO *RSTX* WHEN EOF ENCOUNTERED.
01187 M01S00980.dio +++|*
01188 M01S00981.dio +++|* CALLS BKS, DV5, GTS, ITM.
01189 M01S00982.dio +++|
01190 M01S00983.dio +++|
01191 M01S00984.dio +++| RTR SUBR ENTRY/EXIT
01192 M01S00985.dio +++| RTR1 RJM ITM INITIATE TAPE MOTION
01193 M01S00986.dio +++| STD WC
| Line S00987 Modification History |
M01 (Added by) | dio |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01194 M02S00987.ns21000 ---| IAM BUF,DC INPUT TAPE RECORD
01195 M01S00039.ns21000 +++| IAM BUF,DS INPUT TAPE RECORD
01196 M01S00988.dio +++| LMC -0
01197 M01S00989.dio +++| ADD WC
01198 M01S00990.dio +++| SBN 3
01199 M01S00991.dio +++| PJN RTR2 IF NOT NOISE
01200 M01S00992.dio +++| LDN 0
01201 M01S00993.dio +++| RTR2 RJM DV5 DIVIDE BY FIVE
01202 M01S00994.dio +++| STD WC
01203 M01S00995.dio +++| RTR3 RJM GTS GET TAPE STATUS
01204 M01S00996.dio +++| LPN 20
01205 M01S00997.dio +++| NJN RTR4 IF EOF
01206 M01S00998.dio +++| STD TM
01207 M01S00999.dio +++| LDD ST
01208 M01S01000.dio +++| LPC 4010
01209 M01S01001.dio +++| ZJN RTRX IF NO ERRORS
01210 M01S01002.dio +++| RJM BKS BACKSPACE TAPE
01211 M01S01003.dio +++| UJN RTR1 RETRY
01212 M01S01004.dio +++|
01213 M01S01005.dio +++| RTR4 LJM RSTX EXIT SYSTEM TAPE LOAD