ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 2020
Source File: \jbdupctl.asm
DCTL -DUP CONTROL - COMMA 2 AUG 67
2 | ABS J0200020
0005 3 | $CIBA EQU /5 ADDR OF CIB ON MASTER CARTRIDGE J0200030
0006 4 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 J0200040
0007 5 | $COMN EQU /7 WORD COUNT OF COMMON J0200050
000E 6 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC) J0200060
000F 7 | $CTSW EQU /F MCR SW,NON-ZERO=// RECD TRAPPED J0200070
0010 8 | $DADR EQU /10 SCTR ADDR OF PROG TO BE FETCHED J0200080
0011 9 | $DABL EQU /11 IOCC FOR SCA RESET (ODD ADDR) J0200090
0012 10 | $DREQ EQU /12 INDR FOR REQUESTED V. DISK I/O J0200100
0013 11 | $IBSY EQU /13 PRINC I/O BUSY INDR,NON-ZERO=BSY J0200110
0014 12 | $HASH EQU /14 WORK AREA FOR MONITOR PROGRAMS J0200120
0028 13 | $PRET EQU /28 ADDR PREOPERATIVE ERROR TRAP J0200130
002C 14 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE J0200140
002D 15 | $ULET EQU /2D ADDR OF LET, LOGICAL DRIVE 0 J0200150
0032 16 | $IOCT EQU /32 IOCS CTR,0=NO I/O IN PROGRESS J0200160
0033 17 | $LAST EQU /33 LAST CD INDR,NON-ZERO=LAST CARD J0200170
0034 18 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP J0200180
0035 19 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEQ J0200190
0036 20 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY J0200200
0037 21 | $PGCT EQU /37 PAGE NO. FOR PAGE HEADINGS J0200210
0038 22 | $EXIT EQU /38 ADDR CALL EXIT ENTRY POINT J0200220
0039 23 | $LINK EQU /39 ADDR CALL LINK ENTRY POINT J0200230
003F 24 | $DUMP EQU /3F ADDR OF CALL DUMP, ENTRY POINT J0200240
0077 25 | $DCDE EQU /77 DRIVE CODE FOR CORE LOAD BLDR J0200250
0078 26 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE J0200260
0079 27 | $UFIO EQU /79 ARM POSITION IN UNFORMATTED AREA J0200270
007A 28 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE J0200280
007B 29 | $WRD1 EQU /7B LOAD ADDR FOR CURR USER CORE LD J0200290
007C 30 | $KCSW EQU /7C INHIBIT INPUT/PRINT OVERLAP SW J0200300
007D 31 | $UFDR EQU /7D UNFORMATTED I/O DRIVE CODE J0200310
007E 32 | $CPTR EQU /7E CHANNEL 12 INDICATOR FOR CP J0200320
007F 33 | $1132 EQU /7F CHANNEL 12 INDICATOR FOR 1132 J0200330
0080 34 | $1403 EQU /80 CHANNEL 12 INDICATOR FOR 1403 J0200340
0081 35 | $PST1 EQU /81 ADDR POSTOP ERROR TRAP,LEVEL 1 J0200350
0085 36 | $PST2 EQU /85 ADDR POSTOP ERROR TRAP,LEVEL 2 J0200360
0089 37 | $PST3 EQU /89 ADDR POSTOP ERROR TRAP,LEVEL 3 J0200370
008D 38 | $PST4 EQU /8D ADDR POSTOP ERROR TRAP,LEVEL 4 J0200380
0091 39 | $STOP EQU /91 ADDR PROGRAM STOP KEY TRAP J0200390
0095 40 | $FPAD EQU /95 FILE PROTECT ADDR (ADJ),LOG DR 0 J0200400
009A 41 | $CYLN EQU /9A ARM POSITION FOR LOGICAL DRIVE 0 J0200410
009F 42 | $ACDE EQU /9F AREA CODE FOR LOGICAL DRIVE 0 J0200420
00A4 43 | $DCYL EQU /A4 1ST DEF CYL ADDR, LOGICAL DR 0 J0200430
00B3 44 | $I200 EQU /B3 ENTRY POINT TO ILS FOR LEVEL 2 J0200440
00B8 45 | $I205 EQU /B8 J0200450
00B9 46 | $IBT2 EQU $I205+1 ADDR OF IBT FOR LEVEL 2 J0200460
00C4 47 | $I400 EQU /C4 ENTRY POINT TO ILS FOR LEVEL 4 J0200470
00D3 48 | $I405 EQU /D3 J0200480
00D4 49 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 J0200490
00D5 50 | $I410 EQU /D5 J0200500
00EE 51 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY J0200510
01CB 52 | $BYSW EQU /1CB BYPASS SW,NOP IF FETCHING SOCAL J0200520
00F2 53 | DZ000 EQU /0F2 DISKZ ENTRY POINT J0200530
01E0 54 | $ZEND EQU /1E0 ADDR 1+LAST WORD OF DISKZ J0200540
7FA0 56 | C EQU /7FA0 CATCO POINTER SET TO MIDDLE J0200560
57 | *************************************************** J0200570
58 | * * J0200580
59 | * INDEX REG 1 IS SET TO .C. WHEN CATCO IS FORMED * J0200590
60 | * FOR USE BY ALL OF DUP FUNCTIONS. ANY DUP ROUT * J0200600
61 | * USING XR 1 FOR OTHER REASONS MUST RESTORE. * J0200610
62 | * ALL VALUES IN CATCO HAVE LABELS EQUATED TO THE * J0200620
63 | * VALUE THAT INDICATES THEIR RELATIVE LOCATION * J0200630
64 | * FROM .C. * J0200640
65 | * * J0200650
66 | *************************************************** J0200660
67 | * * J0200670
68 | * CATCO DCOM IMAGE * J0200680
69 | * EQUIVALENCES USED TO REFERENCE CATCO WITH XR1 * J0200690
70 | * * J0200700
71 | *************************************************** J0200710
FF84 72 | #NAME EQU 4-/80 NAME OF PROGRAM J0200720
FF86 73 | #DBCT EQU 6-/80 DISK BLOCK COUNT OF PROGRAM J0200730
FF87 74 | #FCNT EQU 7-/80 FILES SW,ZERO = NO FILES J0200740
FF88 75 | #SYSC EQU 8-/80 NON-ZERO,SYSTEM CARTRIDGE J0200750
FF89 76 | #JBSW EQU 9-/80 JOB SW,NON-ZERO='T' MODE J0200760
FF8A 77 | #CBSW EQU 10-/80 CLB SW,NON-ZERO=STORECI J0200770
FF8B 78 | #LCNT EQU 11-/80 NO. OF LOCALS J0200780
FF8C 79 | #MPSW EQU 12-/80 NON-ZERO, CORE MAP DESIRED J0200790
FF8D 80 | #MDF1 EQU 13-/80 NO. OF DUP CTRL RCDS J0200800
FF8E 81 | #MDF2 EQU 14-/80 ADDR OF MODIF BUFFER J0200810
FF8F 82 | #NCNT EQU 15-/80 NO. OF NOCALS J0200820
FF90 83 | #ENTY EQU 16-/80 RELATIVE ENTRY ADDR OF PROG J0200830
FF91 84 | #RP67 EQU 17-/80 IF NON-ZERO,1442 MOD 6,7 J0200840
85 | * J0200850
86 | * NEGATIVE VALUE REPRESENTS DEFAULT CONDITION * J0200860
FF92 87 | #TODR EQU 18-/80 DR CODE OF 'TO' DRIVE J0200870
FF93 88 | #FRDR EQU 19-/80 DR CODE OF 'FROM' DRIVE J0200880
89 | * * J0200890
FF94 90 | #FHOL EQU 20-/80 ADDR OF LARGEST FXA HOLE J0200900
FF95 91 | #FSZE EQU 21-/80 BLK CNT LARGEST HOLE IN FXA J0200910
FF96 92 | #UHOL EQU 22-/80 ADDR OF LAST UA 1DUMY 2-10 J0200920
FF97 93 | #USZE EQU 23-/80 BLK CNT LAST UA 1DUMY 2-10 J0200930
FF98 94 | #DCSW EQU 24-/80 NON-ZERO=DUP CALL J0200940
FF99 95 | #PIOD EQU 25-/80 PRINC. I/O INDICATOR J0200950
FF9A 96 | #PPTR EQU 26-/80 PRINC. PRINTER INDICATOR J0200960
FF9B 97 | #CIAD EQU 27-/80 WD NO. SCTR 0,CIL ADDR J0200970
FF9C 98 | #ACIN EQU 28-/80 AVAILABLE CARTRIDGE INDR2-8 J0200980
FF9D 99 | #GRPH EQU 29-/80 2250 INDICATOR 2-8 J0200990
FF9E 100 | #GCNT EQU 30-/80 NO. G2250 RECORDS 2-8 J0201000
FF9F 101 | #LOSW EQU 31-/80 LOCAL-CALL-LOCAL SWITCH 2-3 J0201010
FFA0 102 | #X3SW EQU 32-/80 SPECIAL-ILS SWITCH 2-3 J0201020
FFA1 103 | #ECNT EQU 33-/80 NO. OF EQUAT RCDS 2-8 J0201030
FFA3 104 | #ANDU EQU 35-/80 END OF UA (ADJ) LOG DR 0-4 J0201040
FFA8 105 | #BNDU EQU 40-/80 END OF UA (BASE) LOG DR 0-4 J0201050
FFAD 106 | #FPAD EQU 45-/80 FILE PROTECT ADDR (BASE) J0201060
FFB2 107 | #PCID EQU 50-/80 CART ID, PHYS DR 0-4 J0201070
FFB7 108 | #CIDN EQU 55-/80 CART ID, LOG DR 0-4 J0201080
FFBC 109 | #CIBA EQU 60-/80 CIB ADDR, LOG DR 0-4 J0201090
FFC1 110 | #SCRA EQU 65-/80 SCRA, LOG DR 0-4 J0201100
FFC6 111 | #FMAT EQU 70-/80 WS FORMAT, LOG DR 0-4 J0201110
FFCB 112 | #FLET EQU 75-/80 FLET ADDR, LOG DR 0-4 J0201120
FFD0 113 | #ULET EQU 80-/80 LET ADDR, LOG DR 0-4 J0201130
FFD5 114 | #WSCT EQU 85-/80 WS BLK CNT, LOG DR 0-4 J0201140
FFDA 115 | #CSHN EQU 90-/80 CUSHION END SCTR ADDR, 0-4 J0201150
0001 116 | #DCOM EQU 1 SCTR ADDR OF DCOM J0201160
0007 117 | #HDNG EQU 7 SCTR WITH PAGE HEADING J0201170
0FB0 118 | @SBFR EQU /FB0 2-8 J0201180
CONCATENATED COMMON AREA (CATCO)
120 | *************************************************** J0201200
121 | * * J0201210
122 | * CATCO IOAR HDRS FOR DUP PHASES J0201220
123 | * * J0201230
124 | *************************************************** J0201240
FFF0 125 | ORG -/10 J0201250
FFF0 126 | DCHDR BSS 2 DUP CONTROL PH02 J0201260
FFF2 127 | STHDR BSS 2 STORE PH03 J0201270
FFF4 128 | FLHDR BSS 2 FILEQ PH04 J0201280
FFF6 129 | DMHDR BSS 2 DUMP PH05 J0201290
FFF8 130 | DLHDR BSS 2 DUMPLET PH06 J0201300
FFFA 131 | DTHDR BSS 2 DELETE PH07 J0201310
FFFC 132 | DFHDR BSS 2 DEFINE PH08 J0201320
FFFE 133 | DXHDR BSS 2 DUP EXIT PH09 J0201330
0000 134 | UCHDR BSS 2 DUP UPCOR PH13 J0201340
0002 135 | PIHDR BSS 2 PRINCIPAL I/O BLOCK PH14 J0201350
0004 136 | SIHDR BSS 2 PRINC I/O (W/O KB) BLK PH15 J0201360
0006 137 | PTHDR BSS 2 PAPER TAPE I/O BLOCK PH16 J0201370
0008 138 | CIHDR BSS 2 CI PHASE READ BY CL BUILDER J0201380
000A 139 | MUHDR BSS 2 MACRO UPDATE PH206 2-8 J0201390
000C 140 | D2HDR BSS 2 DUP CONTROL 2 PH205 2-8 J0201400
DCTL - CATCO DUP SWITCHES
142 | *************************************************** J0201420
143 | * J0201430
144 | * CATCO DUP SWITCHES * J0201440
145 | * WORDS USED FOR COMMUNICATION OF DATA J0201450
146 | * BETWEEN DUP ROUTINES. J0201460
147 | * * J0201470
148 | * INITIALIZED TO ZERO BY .REST. OF DUPCO * J0201480
149 | * J0201490
150 | *************************************************** J0201500
000E 151 | CL1 EQU * J0201510
000E 152 | ASMSW BSS 1 NON ZERO IF DEFINE VOID ASM J0201520
000F 153 | BITSW BSS 1 NON ZERO TO ALLOW MDUMP-S J0201530
0010 154 | BLKSW BSS 1 NON ZERO IF BYPASSING REC J0201540
0011 155 | CIERR BSS 1 ERROR NO DETECTED BY PH 17 J0201550
0012 156 | CISW BSS 1 NON ZERO IF STORE CI J0201560
0013 157 | CLBSW BSS 1 NON ZERO IF PRECI EXECUTED J0201570
0014 158 | CNTNO BSS 1 RECORD NO BEING PCHD OR RD J0201580
159 | * * J0201590
160 | * .DATSW. IS FILLED WITH THE CNT FIELD OF THE * J0201600
161 | * DUP CONTROL RECORD. * J0201610
162 | * USED PRIMARILY FOR DATA MOVEMENT, BUT ALSO IS * J0201620
163 | * USED FOR COUNT OF RECORDS TO READ AFTER A * J0201630
164 | * STORE CI DUP CONTROL RECORD. * J0201640
0015 165 | DATSW BSS 1 RECORDS VALUE IN CNT FIELD J0201650
0016 166 | DBADR BSS 1 DB ADDR OF REFERENCED PROG J0201660
0017 167 | DELSW BSS 1 ADDR OF REQ LET ENTRY - 1 J0201670
0018 168 | DFNSW BSS 1 NON ZERO IF DEFINE FXA J0201680
0019 169 | DKSAD BSS 1 DK SCTR ADDR W/O DR CODE J0201690
001A 170 | DUMPP BSS E 2 LAST LIMITS FOR PRNTR DUMP J0201700
001C 171 | FORSW BSS 1 NON ZERO IF DEFINE VOID FOR J0201710
001D 172 | FRWS BSS 1 NON ZERO IF FROM FLD IS WS J0201720
001E 173 | FXSW BSS 1 NON ZERO IF FIXED AREA REQD J0201730
001F 174 | HOLSW BSS 1 NON ZERO IF NO CONV REQD J0201740
0020 175 | IOSW BSS 1 NON ZERO IF IN/OUT REQD J0201750
176 | * * J0201760
177 | * DUMPLET SWITCH - ZERO IF NOT DUMPLET/DUMPFLET * J0201770
178 | * PLUS VALUE REQUIRES PRINT OF BOTH LET/FLET* J0201780
179 | * NEG. VALUE REQUIRES PRINT OF FLET ONLY * J0201790
0021 180 | LETSW BSS 1 NON ZERO,PRINT LET OR FLET* J0201800
0022 181 | LSTLF BSS 1 LAST LET/FLET SECT PROCESSD J0201810
0023 182 | MODSW BSS 1 NON ZERO IF STORE MOD FUNC J0201820
0024 183 | NAMSW BSS 1 NON ZERO IF NAME IN LET/F J0201830
0025 184 | NEGSW BSS 1 NON ZERO IF SHRINKING FXA J0201840
0026 185 | PGMHL BSS 1 WORD COUNT OF THE PROG HDR J0201850
0027 186 | PRSW BSS 1 NON ZERO IF PRINTING OUTPUT J0201860
0028 187 | PTSW BSS 1 NON ZERO IF PAPER TAPE REQD J0201870
0029 188 | SKWDS BSS 1 WDS TO SEARCH IN L/F SECT J0201880
002A 189 | STCSW BSS 1 NON ZERO IF STORE DATA CI J0201890
002B 190 | STSW BSS 1 NON ZERO IF STORE TYPE J0201900
002C 191 | TEMP1 BSS E 1 1ST WD OF BINEB OUTPUT J0201910
002D 192 | TEMP2 BSS 1 2ND WD OF BINEB OUTPUT J0201920
002E 193 | TOWS BSS 1 NON ZERO IF TO FIELD IS WS J0201930
002F 194 | T3MSW BSS 1 TYPE 3,4 SOCAL LEVEL CELL J0201940
0030 195 | UASW BSS 1 NON ZERO IF USER AREA REQD J0201950
0031 196 | WSSW BSS 1 NON ZERO IF WORK STG REQD J0201960
0032 197 | XEQSW BSS 1 NON ZERO IF NOT RET FR GET J0201970
0033 198 | EBCSW BSS 1 NON ZERO IF EBC DATA OP 2E2 J0201980
0034 199 | HDNSW BSS 1 NON ZERO IF NAME IN HDR 2-3 J0201990
0035 200 | RPGSW BSS 1 NON Z IF DEFINE VOID RPG2-5 J0202000
0036 201 | DFLSW BSS 1 NON ZERO IF *DFILE 2-8 J0202010
0037 202 | BSS 1 RESERVED FOR ADDITION 2-8 J0202020
0037 203 | CL2 EQU *-1 J0202030
DCTL - CATCO DUP SWITCHES
205 | *************************************************** J0202050
206 | * * J0202060
207 | * CATCO DUP SWITCHES * J0202070
208 | * INITIALIZED BY DCTL AND NOT RESET BY .REST. * J0202080
209 | * * J0202090
210 | *************************************************** J0202100
0038 211 | IOREQ BSS 1 NON-ZERO,AUX I/O SET REQ J0202110
0039 212 | PH2 BSS 1 NON-ZERO IF DCTL IN CORE J0202120
003A 213 | PH3 BSS 1 NON-ZERO IF STORE IN CORE J0202130
003B 214 | PH4 BSS 1 NON-ZERO IF DUMP IN CORE J0202140
215 | ************************************************2-8 J0202150
216 | * 2-8 J0202160
217 | * CATCO SWITCH INITIALIZED TO ZERO 2-8 J0202170
218 | * BY CCAT SUBR AND SET BY MACRO UPDATE PROGRAM2-8 J0202180
219 | * 2-8 J0202190
220 | ************************************************2-8 J0202200
003C 221 | DUPCR BSS 1 NON ZERO IF DUP CTRL RCD2-8 J0202210
222 | *************************************************** J0202220
223 | * * J0202230
224 | * CATCO DUP SWITCHES SET BY CCAT SUBR * J0202240
225 | * * J0202250
226 | *************************************************** J0202260
003D 227 | ADDR2 BSS 1 KB INTERRUPT ADDRESS J0202270
003E 228 | KBREQ BSS 1 CONTENTS OF LOC 13 J0202280
229 | * THE FOLLOWING SWITCH IS SET TO INDICATE THE J0202290
230 | * PRINCIPAL INPUT DEVICE J0202300
231 | * - IS PAPER TAPE J0202310
232 | * 0 IS CARD J0202320
233 | * + IS KEYBOARD J0202330
003F 234 | INOUT BSS 1 PRINCIPAL INPUT SWITCH J0202340
235 | * J0202350
0040 236 | PTPON BSS 1 NON-ZERO IF PAPER TP ON SYS J0202360
237 | *************************************************** J0202370
238 | * * J0202380
239 | * LEVEL 4 INTERRUPT BRANCH TABLE * J0202390
240 | * ADDRESSES. INITIALIZED BY CCAT, * J0202400
241 | * AND CARD/PAPER TAPE INTERFACES. * J0202410
242 | * * J0202420
243 | *************************************************** J0202430
0049 244 | ORG /0049 J0202440
0049 245 | IBT BSS 9 9 WD INTRPT BRANCH TABLE J0202450
246 | *************************************************** J0202460
247 | * * J0202470
248 | * CATCO I/O ADDRESSES REQUIRED BY DUP * J0202480
249 | * * J0202490
250 | *************************************************** J0202500
0052 251 | P1442 BSS E 2 SYS 1442 IOAR HEADER J0202510
0054 252 | PRPAR BSS 2 DEFAULT LIMITS TO PRINT J0202520
0056 253 | PHDUP BSS 1 LAST DUP PHASE IN CORE J0202530
0057 254 | CRBUF BSS 1 81 WD BFR FOR DUP CTRL RCDS J0202540
0058 255 | DCADR BSS 1 ADDR FOR DUP CTRL IOAR HDR J0202550
0059 256 | HDBUF BSS 1 ADDR OF PAGE HEADING BFR J0202560
005A 257 | IOBLK BSS 1 ADDR OF DUP I/O PHASE J0202570
005B 258 | SDBUF BSS 1 STORE/DUMP BUFFER J0202580
005C 259 | LETAR BSS 1 ADDR OF LET SEARCH BUFFER J0202590
005D 260 | PEBUF BSS 1 41 WD BFR FOR PACKED EBCDIC J0202600
005E 261 | THIS BSS 1 ADDR OF DOUBLE BFR, BFR 1 J0202610
005F 262 | NEXT BSS 1 ADDR OF DOUBLE BFR, BFR 2 J0202620
00F2 264 | DISKZ EQU DZ000 DISKZ ENTRY POINT J0202640
01DE 265 | B EQU $ZEND-2 J0202650
01DE 266 | DMPLC EQU B IOAR CORE ADDR FOR DMPLT J0202660
01DE 267 | EXITC EQU B IOAR CORE ADDR FOR DEXIT J0202670
01DE 268 | MUPC EQU B IOAR CORE ADDR FOR MUP 2-8 J0202680
11E0 269 | DCTL EQU B+/1002 ENTRY ADDRESS OF DCTL J0202690
11DE 270 | DCTLC EQU B+/1000 IOAR CORE ADDR FOR DCTL J0202700
21DE 271 | WSDC EQU B+/2000 IOAR CORE ADDR FOR STORE J0202710
41DE 272 | DUMPC EQU B+/4000 IOAR CORE ADDR FOR DDUMP J0202720
7DB0 273 | DUPCO EQU /7DB0 ADDR OF RESIDENT DUPCO J0202730
7F1E 274 | CATCO EQU /7F20-2 ADDR OF DCOM IOAR HEADER J0202740
275 | * * J0202750
276 | * DUPCO ENTRY POINTS...USED WITH INDIRECT BSI * J0202760
277 | * * J0202770
7DB0 278 | ORG DUPCO J0202780
7DB0 279 | BINEB BSS 1 CONVERSION BINARY TO EBCDIC J0202790
7DB1 280 | WRTDC BSS 1 WRITE DCOM(S) SUBROUTINE J0202800
7DB2 281 | ENTER BSS 1 SAVE XR-S AND CONDITIONS J0202810
7DB3 282 | GET BSS 1 READ FROM DISK USING DISKZ J0202820
7DB4 283 | LEAVE BSS 1 HANDLES ALL EXITS FROM DUP J0202830
7DB5 284 | LINE BSS 1 SPACES PRINTER 1 LINE J0202840
7DB6 285 | MASK BSS 1 INHIBITS KB INT REQUEST J0202850
7DB7 286 | MDUMP BSS 1 PRINTS SELECTED CORE LOC-S J0202860
7DB8 287 | PAGE BSS 1 SKIPS TO NEXT PAGE J0202870
7DB9 288 | PHID BSS 1 RECORDS PHASE ID J0202880
7DBA 289 | PHIDM BSS 1 RECORDS PHASE AND MODIFIER J0202890
7DBB 290 | PRINT BSS 1 USE SYS PR SUBR TO PRINT J0202900
7DBC 291 | PUT BSS 1 WRITES TO DISK USING DISKZ J0202910
7DBD 292 | REST BSS 1 RESTORE CATCO,GO TO DCTL J0202920
7DBE 293 | RTURN BSS 1 RESTORE XR-S AND CONDITIONS J0202930
294 | * * J0202940
295 | * INPUT/OUTPUT PARAMETERS , CORE ADDRESSES * J0202950
296 | * * J0202960
7D91 297 | BUF6 EQU DUPCO-/1F ADDR OF PAGE HEADING BUFFER J0202970
7C50 298 | PRPNT EQU BUF6-/141 IOAR ADDR FOR PRINC. PTR J0202980
7A06 299 | IOADR EQU BUF6-/38B START OF I/O INTERFACE J0202990
7A0A 300 | GETHO EQU IOADR+4 ENTRY FOR READING HOLL TYPE J0203000
7A0B 301 | GETBI EQU IOADR+5 ENTRY FOR READING BINARY J0203010
7A0C 302 | PACKB EQU IOADR+6 ENTRY TO PACK BINARY J0203020
7A0D 303 | PCHBI EQU IOADR+7 ENTRY TO PUNCH BINARY J0203030
79B5 304 | BUF1 EQU IOADR-/51 ADDR OF NEXT BUFFER J0203040
7963 305 | BUF2 EQU BUF1-/52 ADDR OF THIS BUFFER J0203050
7925 306 | BUF3 EQU BUF2-/3E ADDR OF PACKED EBC BUFFER J0203060
78D3 307 | BUF4 EQU BUF3-/52 ADDR OF CONTROL RCD BUFFER J0203070
7782 308 | BUF5 EQU IOADR-/284 ADDR OF LET SCTR BFR J0203080
0640 309 | BUF7 EQU BUF5-/7142 ADDR OF STORE/DUMP BFR J0203090
DUP CONTROL(DCTL*PROLOGUE 1200-20APR
311 | *************************************************** J0203110
312 | * * J0203120
313 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * J0203130
314 | * * J0203140
315 | *FUNCTION/OPERATION-DUP CONTROL (DCTL) READS * J0203150
316 | * DECODES PRINTS AND ANALYZES DUP CONTROL * J0203160
317 | * RECORDS. * J0203170
318 | * DCTL SEARCHES LET/FLET AS REQUIRED, RECORDS * J0203180
319 | * LET/FLET ENTRY INFIRMATION, SETS UP REQUIRED * J0203190
320 | * ENTRY CODES AND CALLS IN REQUIRED DUP MODULE. * J0203200
321 | * * J0203210
322 | *ENTRY POINTS- DCTL - ENTRY FROM DUPCO TO READ * J0203220
323 | * AND PROCESS THE NEXT RECORD. LINKAGE IS * J0203230
324 | * BSC L3 2 FROM THE .GET. SUBR OF DUPCO * J0203240
325 | * WHERE XR3 CONTAINS THE CORE * J0203250
326 | * ADDRESS OF THE IOAR HEADER OF * J0203260
327 | * DCTL. * J0203270
328 | * * J0203280
329 | *INPUT- RECORDS FROM CARDS, PAPER TAPE OR KEY- * J0203290
330 | * BOARD. THESE ARE GENERALLY DUP CONTROL RECORDS* J0203300
331 | * BUT LAST ONE,BEFORE RETURNING CONTROL TO THE * J0203310
332 | * SUPERVISOR,IS A SUPERVISOR CONTROL RECORD. * J0203320
333 | * IF,THE DUP CTL REC IS A STORE FROM CARDS * J0203330
334 | * THEN 2 CARDS IN DISK SYSTEM FORMAT ARE READ * J0203340
335 | * LET/FLET FROM ALL CARTRIDGES ASSIGNED TO THE * J0203350
336 | * CURRENT JOB * J0203360
337 | * * J0203370
338 | *OUTPUT- PRINTING OF DUP CONTROL RECORDS & PAGE NO* J0203380
339 | * * J0203390
340 | *EXTERNAL REFERENCES- * J0203400
341 | * ENTER - SAVE XR-S, A AND Q REGS, AND STATUS * J0203410
342 | * RTURN -RESTORE XR, A AND Q REGS, AND STATUS * J0203420
343 | * GET -READ FROM THE DISK * J0203430
344 | * -FETCH DUP MODULE FROM DISK AND EXECUTE * J0203440
345 | * GETBI -READ DSF HDR REC,CONV TO UNPACKED EBC * J0203450
346 | * GETHO -READ CONTROL RECORD CONV TO PACKED EBC * J0203460
347 | * LEAVE -EXIT FROM DUP-SUPERVISOR CONTROL REC RD* J0203470
348 | * -RECORD ERROR MESSAGE,GO TO REST (DUPCO)* J0203480
349 | * LINE -TO SPACE 1 LINE ON PRINCIPAL PRINT DEV.* J0203490
350 | * PACKB -CONVERT UNPACKED EBCDIC TO PACKED EBC * J0203500
351 | * PAGE -TO RESTORE PAPER * J0203510
352 | * PHID -TO IDENTIFY DCTL BEING IN CORE * J0203520
353 | * PHIDM -TO MARK PROGRESS OF DCTL * J0203530
354 | * PRINT -TO PRINT DUP CONTROL RECORDS * J0203540
355 | * * J0203550
356 | *EXITS-NORMAL * J0203560
357 | * 2-8 J0203570
358 | * 2-8 J0203580
359 | * STORE,DUMP,DELETE OR DUMPLET DUP CONTROL 2-8 J0203590
360 | * RECORDS RECOGNIZED. EXIT IS THRU GET SUBR OF * J0203600
361 | * DUPCO. * J0203610
362 | * EXIT TO DCTL2 VIA GET IF DUP CONTROL RECORD 2-8 J0203620
363 | * IS NOT A STORE,DUMP,DELETE OR DUMPLET/FLET. 2-8 J0203630
364 | * EXIT TO FILEQ (PH04) TO PROCESS RECORDS THAT * J0203640
365 | * ARE REQUIRED FOR STORE CI (*FILES,*LOCALS, * J0203650
366 | * *NOCALS). * J0203660
367 | * EXIT TO STORE TO COMPLETE STORECI AFTER * J0203670
368 | * RETURNING FROM THE CORE LOAD BUILDER * J0203680
369 | * MONITOR CONTROL RECORD REQUIRES EXIT THRU THE * J0203690
370 | * LEAVE ROUTINE OF DUPCO * J0203700
371 | * -ERROR * J0203710
372 | * INVALID DUP CTRL REC CAUSES EXIT THRU THE * J0203720
373 | * LEAVE SUBR OF DUPCO WITH ERROR CODES OF 13 * J0203730
374 | * THRU 18. * J0203740
375 | * INVALID DSF HEADER RECORD WILL CAUSE EXIT THRU* J0203750
376 | * THE LEAVE SUBR OF DUPCO WITH DUP ERROR CODES * J0203760
377 | * OF 01,02,03, OR 05. * J0203770
378 | * * J0203780
379 | *TABLES/WORK AREAS- CATCO * J0203790
380 | * CATCO - CONCATENATED COMMON AREA OF DUPCO * J0203800
381 | * CRBUF - ADDR OF INPUT BFR FOR CONTROL RECORDS * J0203810
382 | * LETAR - ADDR OF AREA USED TO SEARCH EACH * J0203820
383 | * SECTOR OF EACH LET/FLET. * J0203830
384 | * NEXT - ADDR OF PACKED BINARY DATA RECORDS * J0203840
385 | * PEBUF - ADDR FOR PACKED EBCDIC CONTROL RECORDS* J0203850
386 | * THIS - ADDR OF INPUT BFR FOR DATA RECORDS * J0203860
387 | * * J0203870
388 | *ATTRIBUTES- REUSABLE * J0203880
389 | * * J0203890
390 | *NOTES * J0203900
391 | *************************************************** J0203910
DCTL - READ DUP CONTROL RECORDS
393 | *************************************************** J0203930
11DE 394 | ORG DCTLC J0203940
11DE 0000 395 | DC *-* USED BY SYSTEM LOADER J0203950
11DF 0002 396 | DC +/0002 PHASE ID FOR DCTL J0203960
397 | *************************************************** J0203970
398 | * * J0203980
399 | * LABELS FOR ERROR MESSAGES FROM DCTL * J0203990
400 | * * J0204000
401 | *************************************************** J0204010
0001 402 | PH201 EQU 01 NAME IS NOT PRIME ENTRY J0204020
0002 403 | PH202 EQU 02 INVALID HEADER RECORD TYPE J0204030
0003 404 | PH203 EQU 03 INVALID HEADER LENGTH J0204040
0005 405 | PH205 EQU 05 SECONDARY ENT PT IN LET/FLE J0204050
0006 406 | PH206 EQU 06 ENTRY POINT OR NAME IN LET J0204060
000C 407 | PH212 EQU 12 INVALID DISK I/O SPECIFIED J0204070
000D 408 | PH213 EQU 13 INVALID FUNCTION FIELD J0204080
000E 409 | PH214 EQU 14 INVALID FROM FIELD J0204090
000F 410 | PH215 EQU 15 INVALID TO FIELD J0204100
0010 411 | PH216 EQU 16 INVALID NAME FIELD J0204110
0011 412 | PH217 EQU 17 INVALID COUNT FIELD J0204120
0012 413 | PH218 EQU 18 INVALID DURING TEMP MODE J0204130
0013 414 | PH219 EQU 19 CARTRIDGE NOT ON SYSTEM J0204140
0014 415 | PH220 EQU 20 CART ID OUTSIDE VALID RANGE J0204150
0015 416 | PH221 EQU 21 INVALID STOREMOD J0204160
0016 417 | PH222 EQU 22 PROGRAM NOT IN WORK STORAGE J0204170
0017 418 | PH223 EQU 23 INVALID SYSTEM OVERLAY SPEC J0204180
0018 419 | PH224 EQU 24 COUNT FIELD TOO LONG J0204190
0019 420 | PH225 EQU 25 REQUIRED FORMAT NOT IN WS J0204200
001A 421 | PH226 EQU 26 NAME NOT FOUND IN LET/FLET J0204210
001B 422 | PH227 EQU 27 SOURCE NOT IN DSF J0204220
0055 423 | PH285 EQU 85 FIXED AREA NOT PRESENT J0204230
424 | *************************************************** J0204240
0023 425 | FLQSW EQU MODSW NON ZERO IF FILEQ REQUIRED J0204250
11E0 426 | READ EQU * LABEL NEXT INSTRUCTION J0204260
11E0 4480 7DB9 427 | BSI I PHID IDENTIFY DUP PHASE IN CORE J0204270
11E2 0002 428 | DC /0002 DUP CONTROL (DCTL) J0204280
429 | * * J0204290
11E3 CC00 127A 430 | LDD L RE902 J0204300
11E5 D954 431 | STD 1 PRPAR PRINT PARAMETER LIMITS J0204310
11E6 D91A 432 | STD 1 DUMPP J0204320
433 | * J0204330
11E7 1010 434 | SLA 16 J0204340
11E8 D198 435 | STO 1 #DCSW CLEAR DUP CALL SWITCH J0204350
436 | * J0204360
437 | *************************************************** J0204370
438 | * * J0204380
439 | * GO AND PROCESS HEADER IF RETURNING FROM FILEQ * J0204390
440 | * * J0204400
441 | *************************************************** J0204410
11E9 C123 442 | LD 1 FLQSW J0204420
11EA 4C18 11F0 443 | BSC L RE005,-+ NOT RETURNING FROM FILEQ J0204430
444 | * * J0204440
11EC 1010 445 | SLA 16 J0204450
11ED D123 446 | STO 1 FLQSW CLEAR FILEQ XEQ SW J0204460
11EE 4C00 133B 447 | BSC L ST015 READ AND PROCESS HEADER J0204470
448 | * * J0204480
449 | *************************************************** J0204490
450 | * * J0204500
451 | * GO GET AND EXECUTE STORE MODULE IF RETURNING * J0204510
452 | * FROM THE CORE LOAD BUILDER * J0204520
453 | * * J0204530
454 | *************************************************** J0204540
11F0 C112 455 | RE005 LD 1 CISW J0204550
11F1 4C20 1548 456 | BSC L PL035,Z RETURNING FROM THE CLB J0204560
457 | * * J0204570
458 | *************************************************** J0204580
459 | * * J0204590
460 | * FETCH DUP PHASE 14 TO OVERLAY DUP SUBR SET * J0204600
461 | * CURRENTLY IN IOBLK AREA OF CORE * J0204610
462 | * * J0204620
463 | *************************************************** J0204630
11F3 C138 464 | LD 1 IOREQ J0204640
11F4 4420 15FA 465 | BSI L RI710,Z PRINC I/O IS NOT IN CORE J0204650
466 | * * J0204660
467 | *************************************************** J0204670
468 | * * J0204680
469 | * READ NEXT DUP CONTROL RECORD * J0204690
470 | * RETURNS WITH PACKED EBCDIC IN PEBUF * J0204700
471 | * * J0204710
472 | *************************************************** J0204720
11F6 6600 7926 473 | RE010 LDX L2 BUF3+1 SET CC POINTER TO CD COL 1 J0204730
11F8 1010 474 | SLA 16 J0204740
11F9 D400 000F 475 | STO L $CTSW CLEAR CONTROL REC SW J0204750
476 | * * J0204760
11FB D192 477 | STO 1 #TODR INITIALIZE SPECIAL DCOM SWS J0204770
11FC D193 478 | STO 1 #FRDR J0204780
11FD D194 479 | STO 1 #FHOL J0204790
11FE D196 480 | STO 1 #UHOL J0204800
11FF C13C 481 | LD 1 DUPCR TEST FOR DUP CONTROL 2-8 J0204810
1200 4C20 1204 482 | BSC L RE015,Z *RECORD IN BFR-BR IF SO 2-8 J0204820
483 | * * J0204830
1202 4480 7A0A 484 | BSI I GETHO READ CONTROL RECORD J0204840
485 | * * J0204850
DCTL -DECODE FUNCTION OF DUP CTRL REC
487 | *************************************************** J0204870
488 | * * J0204880
489 | * PROCESS ALL NON MON OR DUP CONTROL RECORDS * J0204890
490 | * * J0204900
491 | *************************************************** J0204910
1204 C110 492 | RE015 LD 1 BLKSW J0204920
1205 4C20 11F6 493 | BSC L RE010,Z BYPASS NON CONTROL RECORDS J0204930
494 | * J0204940
495 | * RESET DUP CONTROL RECORD2-8 J0204950
1207 D13C 496 | STO 1 DUPCR *IN BUFFER SWITCH 2-8 J0204960
497 | * 2-8 J0204970
1208 C400 000F 498 | LD L $CTSW NON ZERO IF MON CTRL RECORD J0204980
120A 4C20 125D 499 | BSC L RE060,Z PROCESS MONITOR CTRL REC J0204990
500 | * J0205000
120C 4062 501 | BSI RE080 PRINT DUP CONTROL RECORD J0205010
502 | * * J0205020
503 | *************************************************** J0205030
504 | * * J0205040
505 | * CHECK COL 35 FOR MDUMP REQUEST * J0205050
506 | * BLANK FOR NO DUMP * J0205060
507 | * ZERO FOR ALL DUP PHASES EXCEPT DUPCO * J0205070
508 | * 2 THRU 9 FOR DUP PHASES 2 THRU 9 RESPECTIVELY * J0205080
509 | * 11 AND 12 ZONE PUNCHES WILL INHIBIT DUMP. * J0205090
510 | * * J0205100
511 | *************************************************** J0205110
120D C0FF 512 | LD *-1 NEGATIVE NUMBER J0205120
120E D10F 513 | STO 1 BITSW SET TO DUMP ALL PHASES J0205130
514 | * * J0205140
120F C400 7937 515 | LD L BUF3+18 COLUMNS 35 AND 36 J0205150
1211 E06A 516 | AND RE903 /FF00 MASK COL 36 J0205160
1212 F06A 517 | EOR RE904 /F000. ONLY NUMBERS WILL J0205170
1213 1808 518 | SRA 8 * HAVE BITS 0 THRU 11 ZERO J0205180
1214 4820 519 | BSC Z SKIP IF DUMP OF ALL PHASES J0205190
520 | * * J0205200
1215 D10F 521 | STO 1 BITSW RECORD PHASE REQUESTED J0205210
522 | * * J0205220
523 | *************************************************** J0205230
524 | * * J0205240
525 | * CHECK FOR STORE TYPE DUP FUNCTION * J0205250
526 | * * J0205260
527 | *************************************************** J0205270
1216 4400 128F 528 | BSI L DCBAF CHECK COLS 1,2 J0205280
1218 5CE2 529 | EBC .*S. STORE CONSTANT J0205290
1219 7008 530 | MDX RE020 NOT STORE TYPE J0205300
531 | * J0205310
121A 4063 532 | BSI DCEXF CHECK COLS 3,4 J0205320
121B E3D6 533 | EBC .TO. STORE CONSTANT J0205330
121C 000D 534 | DC PH213 INVALID FUNCTION CODE J0205340
535 | * J0205350
121D 4060 536 | BSI DCEXF CHECK COLS 5,6 J0205360
121E D9C5 537 | EBC .RE. STORE CONSTANT J0205370
121F 000D 538 | DC PH213 INVALID FUNCTION CODE J0205380
539 | * J0205390
1220 4C00 12F3 540 | BSC L STCTL STORE TYPE CONTROL RECORD J0205400
541 | * * J0205410
542 | *************************************************** J0205420
543 | * * J0205430
544 | * CHECK FOR DUMP TYPE DUP FUNCTION * J0205440
545 | * * J0205450
546 | *************************************************** J0205460
1222 406C 547 | RE020 BSI DCBAF CHECK COLS 1, 2 2-11 J0205470
1223 5CC4 548 | EBC .*D. DUMP CONSTANT J0205480
1224 7033 549 | MDX RE050 NOT D, GET DCTL2 PHASE 2-8 J0205490
550 | * J0205500
1225 4069 551 | BSI DCBAF CHECK COLS 3,4 J0205510
1226 E4D4 552 | EBC .UM. DUMP CONSTANT J0205520
1227 701D 553 | MDX RE040 NOT STORE OR DUMP TYPE 2-8 J0205530
554 | * * J0205540
1228 4400 14D2 555 | BSI L FRLAB DECODE FR AND TO CART ID-S J0205550
556 | * J0205560
122A 4064 557 | BSI DCBAF CHECK COLS 5,6 J0205570
122B D740 558 | EBC .P . DUMP CONSTANT J0205580
122C 7002 559 | MDX RE030 NOT DUP DUMP CONTROL RECORD J0205590
560 | * J0205600
122D 4C00 143F 561 | BSC L DUCTL DUMP CONTROL RECORD J0205610
562 | * J0205620
122F 405F 563 | RE030 BSI DCBAF CHECK COLS 5,6 J0205630
1230 D7C4 564 | EBC .PD. DUMP DATA CONSTANT J0205640
1231 7008 565 | MDX RE035 NOT DUMPDATA,TRY DUMPLET2-8 J0205650
566 | * J0205660
1232 404B 567 | BSI DCEXF CHECK COLS 7,8 J0205670
1233 C1E3 568 | EBC .AT. DUMPDATA CONSTANT J0205680
1234 000D 569 | DC PH213 INVALID FUNCTION CODE J0205690
570 | * J0205700
1235 4048 571 | BSI DCEXF CHECK COLS 9,10 J0205710
1236 C140 572 | EBC .A . DUMPDATA CONSTANT J0205720
1237 000D 573 | DC PH213 INVALID FUNCTION CODE J0205730
574 | * J0205740
1238 4C00 1434 575 | BSC L DACTL DUMP DATA TYPE J0205750
123A 4054 576 | RE035 BSI DCBAF CHECK COLS 5,6 J0205760
123B D7D3 577 | EBC .PL. DUMPLET CONSTANT J0205770
123C 7003 578 | MDX RE038 NOT DUMPLET J0205780
579 | * J0205790
123D D121 580 | STO 1 LETSW INDICATE LET/FLET PRINT J0205800
581 | * * J0205810
123E 4C00 14B1 582 | BSC L LECTL DUMPLET TYPE J0205820
583 | * J0205830
1240 403D 584 | RE038 BSI DCEXF CHECK COLS 5,6 J0205840
1241 D7C6 585 | EBC .PF. DUMPFLET CONSTANT J0205850
1242 000D 586 | DC PH213 INVALID FUNCTION CODE J0205860
587 | * J0205870
1243 4C00 14A0 588 | BSC L FLCTL DUMPFLET CONTROL RECORD J0205880
589 | * * J0205890
1245 4049 590 | RE040 BSI DCBAF CHECK COLS 3,4 2-8 J0205900
1246 C6C9 591 | EBC .FI. DFILE CONSTANT 2-8 J0205910
1247 7005 592 | MDX RE045 NOT DFILE, TRY DELETE 2-8 J0205920
593 | * 2-8 J0205930
1248 4035 594 | BSI DCEXF CHECK COLS 5,6 2-8 J0205940
1249 D3C5 595 | EBC .LE. DFILE CONSTANT 2-8 J0205950
124A 000D 596 | DC PH213 INVALID FUNCTION CODE 2-8 J0205960
597 | * 2-8 J0205970
124B 4C00 1478 598 | BSC L DDCTL DFILE TYPE CONTROL RECD 2-8 J0205980
124D 4041 599 | RE045 BSI DCBAF CHECK COLS 3,4 J0205990
124E C5D3 600 | EBC .EL. DELETE CONSTANT J0206000
124F 7008 601 | MDX RE050 NOT DELETE,GET DCTL2 2-8 J0206010
602 | * J0206020
1250 402D 603 | BSI DCEXF CHECK COLS 5,6 J0206030
1251 C5E3 604 | EBC .ET. DELETE CONSTANT J0206040
1252 000D 605 | DC PH213 INVALID FUNCTION CODE J0206050
606 | * J0206060
1253 402A 607 | BSI DCEXF CHECK COLS 7,8 J0206070
1254 C540 608 | EBC .E . DELETE CONSTANT J0206080
1255 000D 609 | DC PH213 INVALID FUNCTION CODE J0206090
610 | * J0206100
1256 4C00 14C0 611 | BSC L DLCTL DELETE FUNCTION J0206110
612 | * J0206120
613 | *************************************************** J0206130
1258 614 | RE050 EQU * 2-8 J0206140
1258 6700 11DE 615 | LDX L3 DCTLC IOAR HDR CORE ADDR OF DCTL2 J0206150
125A C90C 616 | LDD 1 D2HDR IOAR HDR FOR DCTL2 J0206160
125B 4C00 1536 617 | BSC L PLUS2 GO TO FETCH DCTL2 PHASE 2-8 J0206170
618 | *************************************************** J0206180
619 | * * J0206190
620 | * PROCESS MONITOR CONTROL RECORD * J0206200
621 | * * J0206210
622 | *************************************************** J0206220
125D 7201 623 | RE060 MDX 2 +1 INCREMENT CD COL POINTER J0206230
125E 4030 624 | BSI DCBAF CHECK COLS 3,4 J0206240
125F 40C4 625 | EBC . D. MON DCR CONSTANT J0206250
1260 7009 626 | MDX RE070 NOT // DUP RECORD J0206260
627 | * J0206270
1261 401C 628 | BSI DCEXF CHECK COLS 5,6 J0206280
1262 E4D7 629 | EBC .UP. MON DCR CONSTANT J0206290
1263 0000 630 | DC 0 NOT // DUP RECORD J0206300
631 | * J0206310
1264 4019 632 | BSI DCEXF CHECK COLS 7,8 J0206320
1265 4040 633 | EBC . . MON DCE CONSTANT J0206330
1266 0000 634 | DC 0 NOT .// DUP . RECORD J0206340
635 | * J0206350
1267 D400 000F 636 | STO L $CTSW CLEAR MON CTRL REG SWITCH J0206360
637 | * J0206370
1269 708C 638 | MDX RE010 BYPASS .// DUP . RECORD J0206380
639 | * J0206390
126A 4013 640 | RE070 BSI DCEXF CHECK COLS 3,4 J0206400
126B 405C 641 | EBC . *. COMMENT CONSTANT J0206410
126C 0000 642 | DC 0 NOT A MON COMMENT RECORD J0206420
643 | * J0206430
126D 4001 644 | BSI RE080 PRINT COMMENT RECORD J0206440
645 | * J0206450
126E 7087 646 | MDX RE010 READ NEXT DUP CONTROL REC J0206460
647 | * * J0206470
648 | *************************************************** J0206480
649 | * * J0206490
650 | * COMMON (DCTL) SUBR TO PRINT AN EBCDIC RECORD * J0206500
651 | * AFTER A LINE SPACE. (AN INTERFACE TO PRINT * J0206510
652 | * * J0206520
653 | *************************************************** J0206530
126F 0000 654 | RE080 DC *-* RECORD RETURN ADDR J0206540
1270 4480 7DB5 655 | BSI I LINE SPACE 1 LINE BEFORE PRINT J0206550
656 | * J0206560
1272 4480 7DBB 657 | BSI I PRINT GO TO PRINT EBCDIC INTERFCE J0206570
1274 7925 658 | DC BUF3 IOAR ADDR J0206580
659 | * J0206590
1275 74FF 7F2D 660 | MDX L #MDF1+C,-1 REDUCE #MDF1 COUNT J0206600
1277 1000 661 | NOP J0206610
662 | * * J0206620
1278 4C80 126F 663 | BSC I RE080 RETURN TO CALLING SUBR J0206630
664 | * * J0206640
665 | *************************************************** J0206650
127A 666 | BSS E 0 J0206660
127A 78D3 667 | RE902 DC BUF4 LOWER PRINT LIMIT FOR DCTL J0206670
127B 7DBB 668 | DC PRINT UPPER PRINT LIMIT FOR DCTL J0206680
127C FF00 669 | RE903 DC /FF00 MASK J0206690
127D F000 670 | RE904 DC /F000 MASK J0206700
671 | *************************************************** J0206710
DCTL -- COMPARE 2 EBCDIC CHARS. SUBR
673 | *************************************************** J0206730
674 | * * J0206740
675 | * COMPARE EBCDIC CHARS SPEC WITH 2 EBCDIC CHAR * J0206750
676 | * IN PEBUF SPEC BY THE CC POINTER (XR2) * J0206760
677 | * ADVANCES CC POINTER TO NEXT 2 COLS * J0206770
678 | * RETURNS TO SOURCE ADDR + 2 IF ALIKE. * J0206780
679 | * IF UNEQUAL THEN GO TO LEAVE (DUPCO) WITH SPEC * J0206790
680 | * ERROR CODE. LINKAGE IS * J0206800
681 | * BSI DCEXF COMPARING SUBROUTINE * J0206810
682 | * EBC .XX. EBCDIC CHARACTERS * J0206820
683 | * DC YY ERROR CODE * J0206830
684 | * * J0206840
685 | *************************************************** J0206850
127E 0000 686 | DCEXF DC *-* RECORD SOURCE ADDR J0206860
127F C480 127E 687 | LD I DCEXF 2 EBCDIC CHAR FROM PROG J0206870
1281 7402 127E 688 | MDX L DCEXF,+2 STEP SOURCE ADDR FOR RETURN J0206880
1283 9200 689 | S 2 0 2 EBCDIC CHAR FROM PEBUF J0206890
1284 7201 690 | MDX 2 +1 STEP CC PT TO NEXT 2 COLS J0206900
1285 4C98 127E 691 | BSC I DCEXF,-+ EQUAL SO RETURN J0206910
1287 74FF 127E 692 | MDX L DCEXF,-1 J0206920
1289 C480 127E 693 | LD I DCEXF J0206930
128B D002 694 | STO *+2 RECORD ERROR CODE J0206940
695 | * J0206950
696 | *************************************************** J0206960
128C 4480 7DB4 697 | BSI I LEAVE PRINT ERROR MESSAGE J0206970
128E 0000 698 | DC *-* ERROR CODE SPECIFIED J0206980
699 | *************************************************** J0206990
700 | * * J0207000
701 | *************************************************** J0207010
702 | * * J0207020
703 | * COMPARE 2 EBCDIC CHARS SPEC WITH THE 2 EBCDIC * J0207030
704 | * CHAR IN PEBUF SPEC BY THE CC POINTER (XR2). * J0207040
705 | * ADVANCE CC POINTER TO NEXT 2 COLS ONLY IF SAME* J0207050
706 | * IF ALIKE RETURN TO SOURCE ADDR + 2 * J0207060
707 | * WITH SOURCE ADDR + 2 IN THE A REG. * J0207070
708 | * IF UNEQUAL THEN RETURN TO SOURCE ADDR +1 * J0207080
709 | * THE LINKAGE IS * J0207090
710 | * BSI DCBAF COMPARE .XX. WITH NEXT COL* J0207100
711 | * EBC .XX. EBCDIC CHARACTERS * J0207110
712 | * MDX NG UNEQUAL * J0207120
713 | * * J0207130
714 | *************************************************** J0207140
128F 0000 715 | DCBAF DC *-* RECORD SOURCE ADDR J0207150
1290 C480 128F 716 | LD I DCBAF 2 EBCDIC CHAR FOR COMPARE J0207160
1292 7401 128F 717 | MDX L DCBAF,+1 STEP SOURCE ADDR J0207170
1294 9200 718 | S 2 0 2 EBCDIC CHAR FROM CTRL REC J0207180
1295 4CA0 128F 719 | DCBAG BSC I DCBAF,Z UNEQUAL, RETURN 2-11 J0207190
720 | * J0207200
1297 7201 721 | MDX 2 +1 STEP CC POINTER TO NEXT COL J0207210
1298 7401 128F 722 | MDX L DCBAF,+1 STEP SOURCE ADDR J0207220
129A C0F4 723 | LD DCBAF PUT SOURCE ADDR IN A REG J0207230
129B 70F9 724 | MDX DCBAG EQUAL COMPARE, RETURN 2-11 J0207240
725 | *************************************************** J0207250
DCTL -- DECODE THE .FROM. FIELD
727 | *************************************************** J0207270
728 | * * J0207280
729 | * DECODE FROM FIELD AND RECORD IN IOSW, PTSW, * J0207290
730 | * WSSW, UASW, AND FXSW AS REQUIRED * J0207300
731 | * * J0207310
732 | *************************************************** J0207320
129C 0000 733 | SC130 DC *-* RECORD RETURN ADDRESS J0207330
129D 6600 792C 734 | LDX L2 BUF3+7 SET POINTER TO CD COL 13 J0207340
735 | * J0207350
129F 40EF 736 | BSI DCBAF CHECK COLS 13,14 J0207360
12A0 E6E2 737 | EBC .WS. J0207370
12A1 7003 738 | MDX SC132 NOT FROM WS J0207380
739 | * J0207390
12A2 D131 740 | STO 1 WSSW FROM WORK STORAGE J0207400
12A3 D11D 741 | STO 1 FRWS FROM FIELD IS WS J0207410
12A4 7017 742 | MDX SC139 EXIT FROM THIS SUBR J0207420
743 | * * J0207430
12A5 40E9 744 | SC132 BSI DCBAF CHECK COLS 13,14 J0207440
12A6 D7E3 745 | EBC .PT. J0207450
12A7 7002 746 | MDX SC134 NOT FROM PT UNLESS PRIN I/O J0207460
747 | * J0207470
12A8 D128 748 | STO 1 PTSW FROM PAPER TAPE J0207480
12A9 7010 749 | MDX SC138 SET I/O SW AND EXIT J0207490
750 | * J0207500
12AA 40E4 751 | SC134 BSI DCBAF CHECK COLS 13,14 J0207510
12AB E4C1 752 | EBC .UA. J0207520
12AC 7002 753 | MDX SC135 NOT FROM USER AREA J0207530
754 | * J0207540
12AD D130 755 | STO 1 UASW J0207550
12AE 700D 756 | MDX SC139 EXIT IF FROM UA J0207560
757 | * J0207570
12AF 40DF 758 | SC135 BSI DCBAF CHECK COLS 13,14 J0207580
12B0 C6E7 759 | EBC .FX. J0207590
12B1 7002 760 | MDX SC137 NOT FROM FIXED AREA J0207600
761 | * J0207610
12B2 D11E 762 | STO 1 FXSW SET FIXED AREA SWITCH J0207620
12B3 7008 763 | MDX SC139 EXIT IF FROM FIXED AREA J0207630
764 | * J0207640
12B4 40C9 765 | SC137 BSI DCEXF CHECK COLS 13,14 J0207650
12B5 C3C4 766 | EBC .CD. J0207660
12B6 000E 767 | DC PH214 INVALID FROM FIELD J0207670
768 | * J0207680
12B7 C199 769 | LD 1 #PIOD CHECK IF PAPER TAPE DEFAULT J0207690
12B8 4828 770 | BSC +Z SKIP IF PAPERTAPE NOT I/O J0207700
12B9 D128 771 | STO 1 PTSW NEG,NON ZERO FOR PAPER TAPE J0207710
772 | * * J0207720
12BA 6C00 7FC0 773 | SC138 STX L0 IOSW+C FROM CARD OR PAPER TAPE J0207730
12BC 4C80 129C 774 | SC139 BSC I SC130 RETURN TO CALLER J0207740
775 | *************************************************** J0207750
DCTL -- DECODE THE .TO. FIELD OF DCR
777 | *************************************************** J0207770
778 | * * J0207780
779 | * DECODE TO FIELD AND RECORD IN IOSW, PTSW * J0207790
780 | * PRSW, WSSW, UASW, AND FXSW AS REQUIRED. * J0207800
781 | * THE .FRLAB. SUBR MUST HAVE BEEN EXECUTED FIRST* J0207810
782 | * * J0207820
783 | *************************************************** J0207830
12BE 0000 784 | SC170 DC *-* RECORD RETURN ADDRESS J0207840
12BF 6600 792E 785 | LDX L2 BUF3+9 SET POINTER TO COL 17 J0207850
786 | * J0207860
12C1 40CD 787 | BSI DCBAF CHECK COLS 17,18 J0207870
12C2 D7E3 788 | EBC .PT. J0207880
12C3 7002 789 | MDX SC172 NOT TO PT UNLESS PRINC I/O J0207890
790 | * J0207900
12C4 D128 791 | STO 1 PTSW TO PAPER TAPE J0207910
12C5 7029 792 | MDX SC178 SET I/O SW AND EXIT J0207920
793 | * J0207930
12C6 40C8 794 | SC172 BSI DCBAF CHECK COLS 17,18 J0207940
12C7 D7D9 795 | EBC .PR. J0207950
12C8 7002 796 | MDX SC173 NOT TO PRINTER J0207960
797 | * J0207970
12C9 D127 798 | STO 1 PRSW TO PRINTER J0207980
12CA 7024 799 | MDX SC178 SET I/O SW AND EXIT J0207990
800 | * J0208000
12CB 40C3 801 | SC173 BSI DCBAF CHECK COLS 17,18 J0208010
12CC E6E2 802 | EBC .WS. J0208020
12CD 7006 803 | MDX SC175 NOT TO WS J0208030
804 | * J0208040
12CE D131 805 | STO 1 WSSW TO WORK STORAGE J0208050
12CF D12E 806 | STO 1 TOWS THE TO FIELD IS WS J0208060
807 | * * J0208070
12D0 C11D 808 | LD 1 FRWS J0208080
12D1 4C20 141D 809 | BSC L ST820,Z FROM WS INDICATED J0208090
810 | * J0208100
12D3 701D 811 | MDX SC179 EXIT IF TO WS J0208110
812 | *************************************************** J0208120
813 | * * J0208130
12D4 40BA 814 | SC175 BSI DCBAF CHECK COLS 17,18 J0208140
12D5 E4C1 815 | EBC .UA. J0208150
12D6 7002 816 | MDX SC176 NOT TO UA J0208160
817 | * J0208170
12D7 D130 818 | STO 1 UASW TO USER AREA J0208180
12D8 7018 819 | MDX SC179 EXIT IF TO UA J0208190
820 | * J0208200
12D9 40B5 821 | SC176 BSI DCBAF CHECK COLS 17,18 J0208210
12DA C6E7 822 | EBC .FX. J0208220
12DB 700D 823 | MDX SC177 NOT TO THE FIXED AREA J0208230
824 | * J0208240
12DC D11E 825 | STO 1 FXSW TO FIXED AREA INDICATOR J0208250
826 | * J0208260
12DD 6680 7F32 827 | LDX I2 #TODR+C SELECT LOG DRIVE NO J0208270
12DF C192 828 | LD 1 #TODR J0208280
12E0 4828 829 | BSC Z+ SKIP IF 'TO' DR SPECIFIED J0208290
12E1 6200 830 | LDX 2 0 DEFAULT IS LOG DRIVE ZERO J0208300
12E2 C600 7F6B 831 | LD L2 #FLET+C SELECT FLET SAD OF THAT DR J0208310
12E4 4400 1423 832 | BSI L CKFXA ERROR EXIT IF NO FIXED AREA J0208320
833 | * J0208330
12E6 4400 140D 834 | BSI L CKTMP INHIBIT IF IN JOB T MODE J0208340
835 | * J0208350
12E8 7008 836 | MDX SC179 EXIT J0208360
837 | * J0208370
12E9 4094 838 | SC177 BSI DCEXF CHECK COLS 17,18 J0208380
12EA C3C4 839 | EBC .CD. J0208390
12EB 000F 840 | DC PH215 INVALID TO FIELD J0208400
841 | * J0208410
12EC C199 842 | LD 1 #PIOD CHECK IF PAPER TAPE DEFAULT J0208420
12ED 4828 843 | BSC +Z SKIP IF PAPERTAPE NOT I/O J0208430
12EE D128 844 | STO 1 PTSW NEG,NON ZERO FOR PAPER TAPE J0208440
845 | * * J0208450
12EF 6C00 7FC0 846 | SC178 STX L0 IOSW+C TO AN I/O DEVICE INDICATED J0208460
12F1 4C80 12BE 847 | SC179 BSC I SC170 RETURN TO CALLER J0208470
848 | *************************************************** J0208480
DCTL -- PROCESS DCR OF STORE TYPE
12F3 6C00 7FCB 850 | STCTL STX L STSW+C SET STORE SWITCH (IN CATCO) J0208500
851 | * J0208510
852 | *************************************************** J0208520
853 | * * J0208530
854 | * COMMON CHECKS FOR FROM,TO,NAME & CART ID FIELDS J0208540
855 | * * J0208550
856 | *************************************************** J0208560
12F5 4400 14D2 857 | BSI L FRLAB DECODE FR AND TO CART ID-S J0208570
858 | * J0208580
12F7 40A4 859 | BSI SC130 SCAN THE FROM FIELD 2-11 J0208590
860 | * * J0208600
12F8 C11D 861 | LD 1 FRWS J0208610
12F9 E920 862 | OR 1 IOSW J0208620
12FA 4C18 1417 863 | BSC L ST810,-+ SOURCE NOT I/O OR WS-ERROR- J0208630
864 | * * J0208640
865 | *************************************************** J0208650
866 | * * J0208660
867 | * STORE TO WS DOES NOT REQUIRE A NAME * J0208670
868 | * * J0208680
869 | *************************************************** J0208690
12FC 40C1 870 | BSI SC170 SCAN THE TO FIELD 2-11 J0208700
12FD C12E 871 | LD 1 TOWS J0208710
12FE 4C20 130B 872 | BSC L ST001,Z STORING TO WORKING STORAGE J0208720
873 | * * J0208730
1300 E930 874 | OR 1 UASW J0208740
1301 E91E 875 | OR 1 FXSW J0208750
1302 4C18 141D 876 | BSC L ST820,-+ NOT TO WS,UA,OR FXA -ERROR- J0208760
877 | * J0208770
1304 4400 156F 878 | BSI L SNAME CONVERT NAME FIELD J0208780
879 | * J0208790
1306 C184 880 | LD 1 #NAME J0208800
1307 4C18 1592 881 | BSC L ST830,-+ NAME NOT SPECIFIED -ERROR- J0208810
882 | * * J0208820
1309 4400 16BF 883 | BSI L LETSR SEARCH LET/FLET FOR NAME J0208830
884 | * * J0208840
DCTL -- PROCESS DCR OF STORE TYPE
886 | *************************************************** J0208860
887 | * * J0208870
888 | * SET UP #FRDR AND #TODR FOR DEFAULT CONDITIONS * J0208880
889 | * * J0208890
890 | * IF STORING, FROM WORKING STORAGE,THEN $WSDR * J0208900
891 | * IS THE DEFAULT CONDITION FOR #FRDR. * J0208910
892 | * IF STORING, FROM AN INPUT DEVICE,THEN THE * J0208920
893 | * MASTER CARTRIDGE (LOGICAL ZERO) IS THE DEFAULT* J0208930
894 | * CONDITION. * J0208940
895 | * * J0208950
896 | * IF STORE IS TO UA/FXA THEN DEFAULT TO LOG ZERO* J0208960
897 | * (MASTER CARTRIDGE). IF TO WS, THEN $WSDR * J0208970
898 | * IS THE DEFAULT SETTING FOR #TODR * J0208980
899 | * * J0208990
900 | *************************************************** J0209000
130B C193 901 | ST001 LD 1 #FRDR J0209010
130C 4C10 1314 902 | BSC L ST002,- FROM CART IS SPECIFIED J0209020
903 | * * J0209030
130E C400 007A 904 | LD L $WSDR DEFAULT IF FROM WS J0209040
1310 7400 7FC0 905 | MDX L IOSW+C,0 DO A SKIP IF FROM WS J0209050
1312 1010 906 | SLA 16 DEFAULT IF FROM I/O J0209060
1313 D193 907 | STO 1 #FRDR SELECTED DEFAULT DRIVE NO. J0209070
908 | * * J0209080
1314 C192 909 | ST002 LD 1 #TODR J0209090
1315 D02A 910 | STO DSPEC 0,+ DRIVE SPEC SW ON 2-10 J0209095
911 | * * - DRIVE SPEC SW OFF 2-10 J0209097
1316 4C10 131E 912 | BSC L ST003,- THE TO CART IS SPECIFIED J0209100
913 | * * J0209110
1318 C12E 914 | LD 1 TOWS J0209120
1319 4C18 131D 915 | BSC L *+2,-+ BR IF DEFAULT IS TO ZERO J0209130
131B C400 007A 916 | LD L $WSDR J0209140
131D D192 917 | STO 1 #TODR J0209150
918 | * * J0209160
919 | *************************************************** J0209170
920 | * * J0209180
921 | * DECODE BALANCE OF FUNC FIELD (STORE MODIFIERS)* J0209190
922 | * * J0209200
923 | *************************************************** J0209210
131E 924 | ST003 BSS 0 LABEL OF NEXT INSTRUCTION J0209220
131E 6600 7929 925 | LDX L2 BUF3+4 POINT TO COLS 7 AND 8 J0209230
1320 4400 128F 926 | BSI L DCBAF CHECK COLS 7,8 J0209240
1322 4040 927 | EBC . . STORE CONSTANT J0209250
1323 7020 928 | MDX ST200 NOT .STORE . TRY STOREMOD J0209260
DCTL -- PROCESS DCR OF STORE TYPE
930 | *************************************************** J0209280
931 | * * J0209290
932 | * DECODE COL 11 FOR SYSTEM OVERLAY SPECIFICATION* J0209300
933 | * * J0209310
934 | *************************************************** J0209320
1324 6600 792B 935 | ST004 LDX L2 BUF3+6 POINT TO COLS 11 AND 12 J0209330
1326 4400 128F 936 | BSI L DCBAF CHECK COLS 11,12 J0209340
1328 4040 937 | EBC . . SOCAL CONSTANT J0209350
1329 7001 938 | MDX *+1 IT IS A SOCAL J0209360
939 | * * J0209370
132A 700A 940 | MDX ST010 NOT ELIGIBLE TO BE A SOCAL J0209380
941 | * J0209390
132B C200 942 | LD 2 0 PICK UP COLS 11,12 J0209400
132C 8016 943 | A ST904 J0209410
132D 4C02 1332 944 | BSC L ST005,C NUMERIC CHARACTER J0209420
945 | * J0209430
946 | *************************************************** J0209440
132F 4480 7DB4 947 | ST007 BSI I LEAVE PRINT ERROR MESSAGE 212 J0209450
1331 0017 948 | DC PH223 INVALID SYSTEM OVERLAY J0209460
949 | *************************************************** J0209470
950 | * J0209480
1332 E00F 951 | ST005 AND ST903 LEAVE NUMERIC PART OF COL11 J0209490
1333 1004 952 | SLA 4 J0209500
1334 D12F 953 | STO 1 T3MSW RECORD NUMERIC VALUE ONLY J0209510
954 | * J0209520
955 | *************************************************** J0209530
956 | * * J0209540
957 | * SPECIAL .STORE . ERROR CHECKING * J0209550
958 | * * J0209560
959 | *************************************************** J0209570
1335 C124 960 | ST010 LD 1 NAMSW J0209580
1336 4C20 142A 961 | BSC L ST850,Z NAME IN LET/FLET - ERROR J0209590
962 | * J0209600
1338 C11E 963 | LD 1 FXSW J0209610
1339 4C20 141D 964 | BSC L ST820,Z FX IS INVALID TO FIELD J0209620
965 | * * J0209630
966 | *************************************************** J0209640
967 | * * J0209650
968 | * FETCH REQD I/O SET AND PROCESS THE HEADER REC * J0209660
969 | * * J0209670
970 | *************************************************** J0209680
133B 4400 1565 971 | ST015 BSI L PL500 GET REQD I/O SUBRS IN CORE J0209690
972 | * J0209700
133D 4400 1614 973 | BSI L RDHDR READ AND PROCESS HEADER REC J0209710
974 | * J0209720
975 | *************************************************** J0209730
133F 7058 976 | MDX ST230 GET AND EXEC STORE 2-11 J0209740
977 | *************************************************** J0209750
1340 978 | DSPEC BSS 1 DRIVE SPECIFIED SWITCH 2-10 J0209753
1341 0000 979 | COUNT DC *-* TEMP STORAGE FOR DB CNT 212 J0209756
1342 0F00 980 | ST903 DC /0F00 212 J0209757
1343 1000 981 | ST904 DC /1000 212 J0209758
DCTL -- STORE MOD CTRL REC DECODE
983 | *************************************************** J0209770
984 | * * J0209780
985 | * VERIFY THE FUNCTION SPEC BY THE DUP CTRL REC * J0209790
986 | * * J0209800
987 | *************************************************** J0209810
1344 988 | ST200 EQU * LABEL FOR NEXT INSTRUCTION J0209820
1344 4400 128F 989 | BSI L DCBAF CHECK COLS 7,8 J0209830
1346 D4D6 990 | EBC .MO. STOREMOD CONSTANT J0209840
1347 7052 991 | MDX ST400 NOT STOREMOD, TRY STOREDATA J0209850
992 | * * J0209860
1348 C0F7 993 | LD DSPEC BRANCH IF CARTRIDGE 2-10 J0209862
1349 4C10 1353 994 | BSC L ST205,- * ID SPECIFIED 2-10 J0209864
995 | * 2-10 J0209866
134B C122 996 | LD 1 LSTLF DRIVE CODE & SAD OF L/F J0209870
134C 180C 997 | SRA 12 ELIMINATE SAD J0209880
134D D192 998 | STO 1 #TODR SAVE DRIVE CODE FOR STORE J0209890
999 | * * J0209900
1000 | *************************************************** J0209910
1001 | * * J0209920
1002 | * CHECK CRITICAL FIELDS OF THE DUP CTRL REC * J0209930
1003 | * * J0209940
1004 | *************************************************** J0209950
134E C124 1005 | LD 1 NAMSW J0209960
134F 4C20 1353 1006 | BSC L ST205,Z NAME FOUND IN LET/FLET 2-11 J0209965
1351 1010 1007 | SLA 16 DEFAULT TO DRIVE 0 2-11 J0209970
1352 D192 1008 | STO 1 #TODR *IF NO DRIVE SPECIFIED 212 J0209971
1353 C186 1009 | ST205 LD 1 #DBCT GET AN SAVE ORIGINAL 212 J0209972
1354 D0EC 1010 | STO COUNT *DISK BLOCK COUNT 212 J0209975
1355 C11D 1011 | LD 1 FRWS STORE FROM WS 212 J0209976
1356 4C18 1417 1012 | BSC L ST810,-+ ST MOD NOT FROM WS-ERR 2-11 J0209977
1358 6680 7F33 1013 | LDX I2 #FRDR+C XR2=DR CDE OF SOURCE 2-11 J0209980
135A C600 7F75 1014 | LD L2 #WSCT+C DB CNT,SRCE DTA OR PROG2-11 J0209985
135C 4C18 16B0 1015 | BSC L RD830,+- NOTHING IN WS-ERROR 2-11 J0209986
135E D186 1016 | STO 1 #DBCT SAVE PROPER DB COUNT 2-11 J0209987
135F 7400 7FC4 1017 | MDX L NAMSW+C,0 CHECK IF NAME FOUND 2-11 J0209988
1361 7008 1018 | MDX ST210 BR IF NAME IN LET/FLET 2-11 J0209989
1362 D115 1019 | STO 1 DATSW SET IN DB CNT 2-11 J0209990
1363 C600 7F66 1020 | LD L2 #FMAT+C GET FROM FORMAT IND 2-11 J0210000
1365 4818 1021 | BSC +- SKIP IF NOT DSF 2-11 J0210010
1366 D115 1022 | STO 1 DATSW CLEAR DB COUNT 2-11 J0210020
1367 4828 1023 | BSC +Z SKIP IF NOT CI 2-11 J0210030
1368 D12A 1024 | STO 1 STCSW SET CI SWITCH 2-11 J0210040
1369 700E 1025 | MDX ST220 FINISH PROCESSING J0210050
1026 | * 212 J0210060
136A 6C00 7FC3 1027 | ST210 STX L0 MODSW+C INDICATE STORE MOD 2-11 J0210070
136C C0D4 1028 | LD COUNT GET ORIGINAL DB CNT 212 J0210075
136D 9186 1029 | S 1 #DBCT J0210080
136E 4C28 141A 1030 | BSC L ST815,+Z INVALID,NEW VERS GT OLD 212 J0210090
1031 | * * J0210100
1370 C184 1032 | LD 1 #NAME J0210110
1371 188E 1033 | SRT 14 FORM 0, -1, OR -2 J0210120
1372 4804 1034 | BSC E SKIP IF NOT DATA J0210130
1035 | * * J0210140
1373 180F 1036 | SRA 15 FORM 0, +1 J0210150
1374 9600 7F66 1037 | S L2 #FMAT+C J0210160
1376 4C20 1414 1038 | BSC L ST805,Z REQ FORMAT NOT IN WS -ERRO J0210170
1039 | * * J0210180
1378 C130 1040 | ST220 LD 1 UASW 2-11 J0210190
1379 E91E 1041 | OR 1 FXSW J0210200
137A 4C18 141D 1042 | BSC L ST820,-+ INVALID,MUST BE UA OR FX J0210210
1043 | * * J0210220
137C 4400 140D 1044 | BSI L CKTMP INHIBIT IF JOB TEMP 2-11 J0210230
137E C600 7F66 1045 | LD L2 #FMAT+C DSF MOCULE ? 212 J0210231
1380 4C20 1398 1046 | BSC L ST230,Z BR IF NOT DSF 212 J0210232
1382 D115 1047 | STO 1 DATSW DO NOT PROCESS NAME SW 212 J0210233
1383 4400 1614 1048 | BSI L RDHDR GET MODULE HEADER 212 J0210234
1385 C203 1049 | LD 2 3 LOAD PROG TYPE 212 J0210235
1386 180C 1050 | SRA 12 SAVE BITS 0 - 3, 212 J0210236
1387 100C 1051 | SLA 12 * THE SUBTYPE 212 J0210237
1388 D12F 1052 | STO 1 T3MSW * AND SAVE IT 212 J0210238
1389 6600 792B 1053 | LDX L2 BUF3+6 POINT TO COL 11 + 12 212 J0210239
138B 4400 128F 1054 | BSI L DCBAF CHECK CONTENTS OF COLS 212 J0210240
138D 4040 1055 | EBC . . 212 J0210241
138E 7001 1056 | MDX *+1 SKIP ONE IF NOT BLANK 212 J0210242
138F 7008 1057 | MDX ST230 COMPLETE PROCESSING 212 J0210243
1390 C200 1058 | LD 2 0 LOAD CONTENTS OF 11+12 212 J0210244
1391 80B1 1059 | A ST904 CHECK IF NUMERIC 212 J0210245
1392 4C02 1395 1060 | BSC L *+1,C SKIP IF NUMERIC 212 J0210246
1394 709A 1061 | MDX ST007 INVALID SOCAL TYPE 212 J0210247
1395 E0AC 1062 | AND ST903 SAVE NUMERIC PORTION 212 J0210248
1396 1004 1063 | SLA 4 *AND SHIFT TO 0-3 BITS 212 J0210249
1397 D12F 1064 | STO 1 T3MSW SAVE SUBTYPE FOR STORE 212 J0210250
1065 | * 212 J0210251
1066 | *************************************************** J0210259
1398 4C00 1541 1067 | ST230 BSC L PL030 GET AND EXEC STORE 2-11 J0210260
1068 | *************************************************** J0210270
DCTL -- STORE DATA CTRL REC DECODE
139A 4400 128F 1070 | ST400 BSI L DCBAF CHECK COLS 7,8 J0210290
139C C4C1 1071 | EBC .DA. STOREDATA CONSTANT J0210300
139D 7028 1072 | MDX ST600 NOT STOREDATA,TRY STORECI J0210310
1073 | *************************************************** J0210320
1074 | * * J0210330
1075 | * PROCESSING REQUIRED FOR STOREDATA ONLY * J0210340
1076 | * * J0210350
1077 | *************************************************** J0210360
1078 | * J0210370
139E 4400 1598 1079 | BSI L DACNT RECORD REC COUNT IN DATSW J0210380
1080 | * J0210390
13A0 1004 1081 | SLA 4 CONVERT TO DB J0210400
13A1 7400 7FBD 1082 | MDX L FRWS+C,0 SKIP, IF NOT FROM WS J0210410
13A3 D115 1083 | STO 1 DATSW RECORD DB-S IF FROM WS J0210420
1084 | * * J0210430
13A4 6600 792B 1085 | LDX L2 BUF3+6 POINT TO COLS 11,12 J0210440
1086 | * * J0210450
13A6 4400 128F 1087 | BSI L DCBAF CHECK COLS 11,12 J0210460
13A8 C540 1088 | EBC .E . STOREDATAE CONSTANT 2E2 J0210470
1089 | * * J0210480
13A9 7002 1090 | MDX ST410 NOT EBCDIC DATA, TRY CI 2E2 J0210490
1091 | * J0210500
13AA D133 1092 | STO 1 EBCSW SET EBCDIC SWITCH 2E2 J0210510
1093 | * * J0210520
13AB 7012 1094 | MDX ST500 COMMON STOREDATA ERR CHECKS J0210530
1095 | * J0210540
13AC 4400 128F 1096 | ST410 BSI L DCBAF CHECK COLS 11,12 J0210550
13AE C3C9 1097 | EBC .CI. STOREDATACI CONSTANT J0210560
13AF 7001 1098 | MDX ST412 212 J0210570
1099 | * J0210580
13B0 D12A 1100 | STO 1 STCSW SET STORE CI DATA SWITCH J0210590
13B1 C11D 1101 | ST412 LD 1 FRWS 212 J0210600
13B2 4C18 13BE 1102 | BSC L ST500,-+ NOT FROM WS.MAKE ERR CHECKS J0210610
1103 | * * J0210620
13B4 C115 1104 | LD 1 DATSW DB COUNT 212 J0210624
13B5 4C20 13BE 1105 | BSC L ST500,Z BR IF DB COUNT SPECIFIED212 J0210626
13B7 6680 7F33 1106 | LDX I2 #FRDR+C XR2 IS DR CODE OF SOURCE DR J0210630
13B9 C600 7F75 1107 | LD L2 #WSCT+C 2-11 J0210640
13BB D115 1108 | STO 1 DATSW DB COUNT OF PROG IN SPEC WS J0210650
1109 | * * J0210660
13BC 4C18 16B0 1110 | BSC L RD830,-+ NO PROGRAM IN WS -ERROR- J0210670
1111 | * * J0210680
1112 | * FIVE WORDS REMOVED 212 J0210690
1113 | * J0210700
13BE C124 1114 | ST500 LD 1 NAMSW J0210750
13BF 4C20 142A 1115 | BSC L ST850,Z NAME FOUND IN LET/FLET--ERR J0210760
1116 | * * J0210770
13C1 C115 1117 | LD 1 DATSW J0210780
13C2 D186 1118 | STO 1 #DBCT ACTUAL DB OR RECORD COUNT J0210790
1119 | * * J0210800
13C3 4C18 142D 1120 | BSC L ST855,-+ INVALID RECORD COUNT J0210810
1121 | *************************************************** J0210820
13C5 70D2 1122 | MDX ST230 GET AND EXEC STORE 2-11 J0210830
1123 | *************************************************** J0210840
DCTL -- STORE CORE IMAGE CTRL REC
1125 | *************************************************** J0210860
1126 | * * J0210870
1127 | * PROCESS BALANCE OF DCR OF STORECI TYPE * J0210880
1128 | * * J0210890
1129 | *************************************************** J0210900
13C6 4400 127E 1130 | ST600 BSI L DCEXF CHECK COLS 7,8 J0210910
13C8 C3C9 1131 | EBC .CI. STORE CI CONSTANT J0210920
13C9 000D 1132 | DC PH213 INVALID FUNCTION CODE J0210930
1133 | * J0210940
13CA 1810 1134 | SRA 16 CLEAR ACCUMULATOR 2-8 J0210950
13CB D18C 1135 | STO 1 #MPSW RESET CORE MAP SW 2-8 J0210960
1136 | * 2-8 J0210970
13CC C000 1137 | LD * J0210980
13CD D112 1138 | STO 1 CISW SET STORE CORE IMAGE SW J0210990
1139 | *************************************************** J0211000
1140 | * * J0211010
1141 | * DECODE COL 9 FOR TYPE OF DISK I/O REQUIRED * J0211020
1142 | * DISKZ IF BLANK. RECORD -1 IN $DREQ * J0211030
1143 | * DISK1 IF 0 . RECORD 0 IN $DREQ * J0211040
1144 | * DISK1 IF 1 . RECORD 0 IN $DREQ * J0211050
1145 | * DISKN IF N . RECORD +1 IN $DREQ * J0211060
1146 | * * J0211070
1147 | *************************************************** J0211080
13CE 4400 128F 1148 | BSI L DCBAF CHECK COLS 9,10 J0211090
13D0 4040 1149 | EBC . . DISKZ CONSTANT J0211100
13D1 7001 1150 | MDX ST610 NOT BLANK, TRY Z J0211110
1151 | * * J0211120
13D2 7004 1152 | MDX ST615 RECORD -1 FOR DISKZ J0211130
1153 | * * J0211140
13D3 4400 128F 1154 | ST610 BSI L DCBAF CHECK COLS 9,10 J0211150
13D5 E940 1155 | EBC .Z . DISKZ CONSTANT J0211160
13D6 7002 1156 | MDX ST620 NOT DISKZ, TRY DISK1 J0211170
1157 | * J0211180
13D7 63FF 1158 | ST615 LDX 3 -1 SET XR3 MINUS 1, DISKZ J0211190
13D8 7010 1159 | MDX ST640 RECORD -1 FOR DISK Z J0211200
1160 | * * J0211210
1161 | * * J0211220
13D9 4400 128F 1162 | ST620 BSI L DCBAF CHECK COLS 9,10 J0211230
13DB F040 1163 | EBC .0 . DISK0 CONSTANT J0211240
13DC 7001 1164 | MDX ST630 NOT DISK0, TRY DISK 1 J0211250
1165 | * * J0211260
13DD 7004 1166 | MDX ST633 RECORD 0 FOR DISK0 J0211270
1167 | * * J0211280
13DE 4400 128F 1168 | ST630 BSI L DCBAF CHECK COLS 9,10 J0211290
13E0 F140 1169 | EBC .1 . DISK1 CONSTANT J0211300
13E1 7002 1170 | MDX ST635 NOT DISK1, TRY DISK N J0211310
1171 | * J0211320
13E2 6300 1172 | ST633 LDX 3 0 SET XR3 ZERO, DISK0/1 J0211330
13E3 7005 1173 | MDX ST640 RECORD 0 FOR DISK1 J0211340
1174 | * J0211350
13E4 4400 127E 1175 | ST635 BSI L DCEXF CHECK COLS 9,10 J0211360
13E6 D540 1176 | EBC .N . DISKN CON J0211370
13E7 000C 1177 | DC PH212 INVALID DISK I/O SPEC J0211380
1178 | * J0211390
13E8 6301 1179 | LDX 3 1 SET XR3 PLUS 1, DISKN J0211400
13E9 6F00 0012 1180 | ST640 STX L3 $DREQ RECORD REQ DISK CODE J0211410
1181 | * 2-3 J0211420
1182 | ************************************************2-3 J0211430
1183 | * 2-3 J0211440
1184 | * DECODE COL 11 FOR LOCAL-CALL-LOCAL REQUEST. 2-3 J0211450
1185 | * ANY PUNCH SETS #LOSW. 2-3 J0211460
1186 | * DECODE COL 12 FOR SPECIAL ILS REQUEST. 2-3 J0211470
1187 | * ANY PUNCH SETS #X3SW 2-3 J0211480
1188 | * 2-3 J0211490
1189 | ************************************************2-3 J0211500
13EB C200 1190 | LD 2 0 LOAD COLS 11 AND 12 2-3 J0211510
13EC 1888 1191 | SRT 8 SHIFT OUT COL 11 TO EXT 2-3 J0211520
13ED 9045 1192 | S ST905 SUBTRACT EBCDIC BLANK 2-3 J0211530
13EE D19F 1193 | STO 1 #LOSW SET SW IF NOT BLANK 2-3 J0211540
13EF 1010 1194 | SLA 16 2-3 J0211550
13F0 1088 1195 | SLT 8 SHIFT IN COL 12 2-3 J0211560
13F1 9041 1196 | S ST905 SUBTRACT EBCDIC BLANK 2-3 J0211570
13F2 D1A0 1197 | STO 1 #X3SW SET SW IF NOT BLANK 2-3 J0211580
1198 | * 2-3 J0211590
1199 | *************************************************** J0211600
1200 | * 2-8 J0211610
1201 | * CHECK COL 42 FOR CORE MAP REQUEST. 2-8 J0211620
1202 | * N CAUSES CORE MAP SUPPRESSION 2-8 J0211630
1203 | * 2-8 J0211640
1204 | ************************************************2-8 J0211650
13F3 6600 793A 1205 | LDX L2 BUF3+21 POINT TO COLS 41-42 2-8 J0211660
13F5 4400 128F 1206 | BSI L DCBAF CHECK COLS 41-42 2-8 J0211670
13F7 40D5 1207 | EBC . N. NO CORE MAP CONSTANT 2-8 J0211680
13F8 D18C 1208 | STO 1 #MPSW NOT N, SET SW NON-ZERO 2-8 J0211690
1209 | * 2-8 J0211700
1210 | *************************************************** J0211710
1211 | * * J0211720
1212 | * CHECK SPECIFIED PARAMETERS * J0211730
1213 | * * J0211740
1214 | *************************************************** J0211750
1215 | * REDUNDANT CODING 2-3 J0211760
1216 | * *REMOVED 2-3 J0211770
1217 | * * J0211780
13F9 4400 1598 1218 | ST650 BSI L DACNT REC NO OF *FILES RECORDS J0211790
1219 | * J0211800
13FB C12E 1220 | LD 1 TOWS J0211810
13FC 4C20 141D 1221 | BSC L ST820,Z WS IS NOT A VALID TO FIELD J0211820
1222 | * J0211830
13FE C124 1223 | LD 1 NAMSW J0211840
13FF 4C20 142A 1224 | BSC L ST850,Z NAME FOUND - ERROR J0211850
1225 | * J0211860
1226 | * ACC CONTAINS ZERO 2-4 J0211870
1401 D18B 1227 | STO 1 #LCNT CLEAR LOCAL, 2-4 J0211880
1402 D18F 1228 | STO 1 #NCNT * NOCAL, 2-4 J0211890
1403 D187 1229 | STO 1 #FCNT * FILES, 2-4 J0211900
1404 D19E 1230 | STO 1 #GCNT * G2250 INDICATORS 2-4 J0211910
1231 | * 2-4 J0211920
1405 C115 1232 | LD 1 DATSW J0211930
1406 4C18 133B 1233 | BSC L ST015,+- BR IF NO SUPV CTRL RCDS 2-3 J0211940
1234 | * 2-3 J0211950
1408 C11D 1235 | LD 1 FRWS PROC HDR BEFORE FETCHING2-3 J0211960
1409 4420 1614 1236 | BSI L RDHDR,Z *FILEQ, IF FROM WS ONLY 2-3 J0211970
1237 | * 2-3 J0211980
140B 4C00 1552 1238 | BSC L PL040 FETCH FILEQ 2-3 J0211990
1239 | * J0212000
1240 | * 2-3 J0212010
1241 | *************************************************** J0212020
DCTL -- ERROR MESSAGE EXITS
1243 | *************************************************** J0212040
1244 | * * J0212050
1245 | * INHIBIT FURTHER PROCESSING IF JOB IS TEMP MODE* J0212060
1246 | * * J0212070
1247 | *************************************************** J0212080
140D 0000 1248 | CKTMP DC *-* RECORD RETURN ADDR J0212090
140E C189 1249 | LD 1 #JBSW J0212100
140F 4C98 140D 1250 | BSC I CKTMP,-+ NOT A TEMP JOB-RETURN-- J0212110
1251 | * J0212120
1411 4480 7DB4 1252 | BSI I LEAVE PRINT ERROR MESSAGE J0212130
1413 0012 1253 | DC PH218 INVALID DURING TEMP-ER EXIT J0212140
1254 | *************************************************** J0212150
1414 4480 7DB4 1255 | ST805 BSI I LEAVE PRINT ERROR MESSAGE J0212160
1416 0019 1256 | DC PH225 REQ FORMAT NOT IN WS -ERROR J0212170
1257 | *************************************************** J0212180
1417 4480 7DB4 1258 | ST810 BSI I LEAVE PRINT ERROR MESSAGE J0212190
1419 000E 1259 | DC PH214 INVALID FROM FLD-ERROR EXIT J0212200
1260 | *************************************************** J0212210
141A 4480 7DB4 1261 | ST815 BSI I LEAVE PRINT ERROR MESSAGE J0212220
141C 0015 1262 | DC PH221 INVALID STOREMOD-ERR EXIT J0212230
1263 | *************************************************** J0212240
141D 4480 7DB4 1264 | ST820 BSI I LEAVE PRINT ERROR MESSAGE J0212250
141F 000F 1265 | DC PH215 INVALID TO FIELD-ERROR EXIT J0212260
1266 | *************************************************** J0212270
1267 | *************************************************** J0212300
1420 4480 7DB4 1268 | ST835 BSI I LEAVE PRINT ERROR MESSAGE J0212310
1422 001A 1269 | DC PH226 NAME NOT IN LET/FLET J0212320
1270 | *************************************************** J0212330
1423 0000 1271 | CKFXA DC *-* RECORD RETURN ADDR J0212340
1424 1004 1272 | SLA 4 STRIP OFF DRIVE CODE J0212350
1425 4CA0 1423 1273 | BSC I CKFXA,Z FIXED AREA PRESENT J0212360
1274 | * * J0212370
1427 4480 7DB4 1275 | ST840 BSI I LEAVE J0212380
1429 0055 1276 | DC PH285 NO FIXED AREA PRESENT J0212390
1277 | *************************************************** J0212400
142A 4480 7DB4 1278 | ST850 BSI I LEAVE PRINT ERROR MESSAGE J0212410
142C 0006 1279 | DC PH206 ENTRY POINT IN LET/FLET J0212420
1280 | *************************************************** J0212430
142D 4480 7DB4 1281 | ST855 BSI I LEAVE PRINT ERROR MESSAGE J0212440
142F 0011 1282 | DC PH217 INVALID COUNT FIELD J0212450
1283 | *************************************************** J0212460
1430 4480 7DB4 1284 | ST860 BSI I LEAVE PRINT ERROR MESSAGE J0212470
1432 0000 1285 | ST861 DC *-* WORK AREA FOR DUP ERROR CDE J0212480
1286 | *************************************************** J0212490
1433 0040 1287 | ST905 DC /0040 BLANK 2-3 J0212520
1288 | *************************************************** J0212530
DCTL -- *DUMP, *DUMPDATA DUP CTRL REC
1290 | *************************************************** J0212550
1291 | * * J0212560
1292 | * INITIALIZATION REQUIRED BY *DUMPDATA ONLY * J0212570
1293 | * * J0212580
1294 | *************************************************** J0212590
1434 4400 1598 1295 | DACTL BSI L DACNT CONVERT COUNT FIELD J0212600
1296 | * J0212610
1436 1004 1297 | SLA 4 CONVERT TO DB-S,FROM SCTRS J0212620
1437 4808 1298 | BSC + SKIP IF THERE IS A CNT 212 J0212630
1438 C0FF 1299 | LD *-1 ELSE SET CNT NEG. 212 J0212640
1439 D115 1300 | STO 1 DATSW SET CNT AND DUMPDATA SW 212 J0212650
1301 | * 212 J0212660
143A 4400 128F 1302 | BSI L DCBAF CHECK COLS 11,12 J0212670
143C C540 1303 | EBC .E . DUMPDATA E CONSTANT 2E2 J0212680
143D 7001 1304 | MDX DUCTL NOT EBCDIC DATA DUMP 2E2 J0212690
1305 | * J0212700
143E D133 1306 | STO 1 EBCSW SET EBCDIC SWITCH 2E2 J0212710
1307 | * J0212720
1308 | *************************************************** J0212730
1309 | * * J0212740
1310 | * USE COMMON SUBROUTINES TO PROCESS CART ID, * J0212750
1311 | * FROM, AND TO FIELDS FOR DUMP AND DUMP DATA * J0212760
1312 | * * J0212770
1313 | *************************************************** J0212780
143F 4400 129C 1314 | DUCTL BSI L SC130 SCAN THE FROM FIELD J0212790
1315 | * J0212800
1441 C120 1316 | LD 1 IOSW J0212810
1442 4C20 1417 1317 | BSC L ST810,Z I/O IS NOT VALID FROM FIELD J0212820
1318 | * J0212830
1444 4400 12BE 1319 | BSI L SC170 SCAN THE TO FIELD J0212840
1320 | * J0212850
1446 C120 1321 | LD 1 IOSW J0212860
1447 E92E 1322 | OR 1 TOWS J0212870
1448 4C18 141D 1323 | BSC L ST820,-+ TO FIELD NEITHER I/O NOR WS J0212880
1324 | * J0212890
1325 | *************************************************** J0212900
1326 | * * J0212910
1327 | * DUMP AND DUMPDATA NAME FIELD DECODE AND CHECK * J0212920
1328 | * * J0212930
1329 | *************************************************** J0212940
144A 4400 156F 1330 | BSI L SNAME CONVERT THE NAME FIELD J0212950
1331 | * J0212960
144C C184 1332 | LD 1 #NAME J0212970
144D 4C20 1456 1333 | BSC L DU002,Z NAME IS ON THE DUP CTRL REC J0212980
1334 | * J0212990
144F C120 1335 | LD 1 IOSW J0213000
1450 4C18 1592 1336 | BSC L ST830,-+ FROM UA/FXA,REQ NAME--ERROR J0213010
1337 | * J0213020
1452 C128 1338 | LD 1 PTSW J0213030
1453 E927 1339 | OR 1 PRSW J0213040
1454 4C18 1592 1340 | BSC L ST830,-+ TO CARDS,REQ NAME --ERROR J0213050
1341 | * J0213060
1456 C130 1342 | DU002 LD 1 UASW J0213070
1457 E91E 1343 | OR 1 FXSW J0213080
1458 4C20 1471 1344 | BSC L DU006,Z BR IF LET SEARCH REQD 2-5 J0213090
145A C193 1345 | LD 1 #FRDR WAS CART SPECIFIED 2-5 J0213100
145B 4C10 1460 1346 | BSC L DU003,- BR IF SPECIFIED 2-10 J0213105
145D C400 007A 1347 | LD L $WSDR 2-10 J0213110
145F D193 1348 | STO 1 #FRDR SET TO DEFAULT WS DRIVE2-10 J0213115
1460 6680 7F33 1349 | DU003 LDX I2 #FRDR+C XR2 IS DR CODE OF SRCE 2-10 J0213120
1462 C115 1350 | LD 1 DATSW 2-10 J0213125
1463 4C20 1469 1351 | BSC L DU004,Z BR IF DUMPDATA 2-10 J0213130
1465 C600 7F75 1352 | LD L2 #WSCT+C ANY PROG IN WS' 2-10 J0213135
1467 4C08 16B0 1353 | BSC L RD830,+ BR IF NO PROG --ERROR- 2-10 J0213140
1469 C600 7F66 1354 | DU004 LD L2 #FMAT+C GET FORMAT OF SOJRCE WS2-10 J0213150
146B 4C10 1476 1355 | BSC L DU008,- BR IF FORMAT NOT CI 2-5 J0213160
146D 100E 1356 | SLA 14 IF CI, INSERT FORMAT 2-5 J0213170
146E E984 1357 | OR 1 #NAME *BITS IN NAME 2-5 J0213180
146F D184 1358 | STO 1 #NAME * 2-5 J0213190
1470 7005 1359 | MDX DU008 GO FETCH DUMP 2-5 J0213200
1360 | * J0213210
1471 4400 16BF 1361 | DU006 BSI L LETSR SEARCH LET FOR NAME J0213220
1362 | * J0213230
1473 C124 1363 | LD 1 NAMSW J0213240
1474 4C18 1420 1364 | BSC L ST835,+- NAME NOT FOUND --ERROR J0213250
1365 | * J0213260
1476 4C00 1557 1366 | DU008 BSC L PL050 GO TO FETCH DUMP TO CORE J0213270
1367 | *************************************************** J0213280
*DFILE DUP CONTROL RECORD
1478 C000 1369 | DDCTL LD * GET NON ZERO VALUE 2-8 J0213300
1479 D136 1370 | STO 1 DFLSW SET DFILE SW ON 2-8 J0213310
147A D12B 1371 | STO 1 STSW INDICATE STORE-TYPE OPER2-8 J0213320
1372 | * 2-8 J0213330
1373 | * INSTRUCTION MOVED 2-10 J0213340
1374 | * 2-8 J0213350
147B 4400 1598 1375 | BSI L DACNT PUT COUNT FIELD IN DATSW2-8 J0213360
147D 1004 1376 | SLA 4 CONVERT SECTOR COUNT TO 2-8 J0213370
147E D115 1377 | STO 1 DATSW *DISK BLOCK COUNT 2-8 J0213380
147F D186 1378 | STO 1 #DBCT *SAVE IN CATCO 2-8 J0213390
1480 4C18 142D 1379 | BSC L ST855,+- INVALID BLOCK COUNT 2-8 J0213400
1380 | * 2-8 J0213410
1482 4400 14D2 1381 | BSI L FRLAB DECODE CART ID FIELDS 2-9 J0213415
1484 4400 12BE 1382 | BSI L SC170 DECODE TO FIELD 2-8 J0213420
1486 C130 1383 | LD 1 UASW TEST IF TO USER AREA 2-10 J0213430
1487 4C00 148C 1384 | BSC L DU009 SKIP INHIBIT TEST IF UA2-10 J0213440
1489 4400 140D 1385 | BSI L CKTMP INHIBIT IF TEMP MODE 2-10 J0213445
148B C130 1386 | LD 1 UASW RESUME CHECK FOR UA 2-10 J0213447
148C E91E 1387 | DU009 OR 1 FXSW TEST IF TO UA,FXA 2-10 J0213450
148D 4C18 141D 1388 | BSC L ST820,+- NOT TO UA OR FXA-ERROR 2-8 J0213460
1389 | * 2-8 J0213470
1390 | * INSTRUCTION MOVED ELSEWHERE 2-9 J0213480
1391 | * 2-8 J0213490
148F 4400 156F 1392 | BSI L SNAME CONVERT NAME FIELD 2-8 J0213500
1491 C184 1393 | LD 1 #NAME TEST FOR NAME 2-8 J0213510
1492 4C18 1592 1394 | BSC L ST830,+- ERROR IF NO NAME 2-8 J0213520
1395 | * 2-8 J0213530
1494 4400 16BF 1396 | BSI L LETSR SEARCH LET/FLET FOR NAME2-8 J0213540
1496 C124 1397 | LD 1 NAMSW TEST IF NAME FOUND IN 2-8 J0213550
1497 4C20 142A 1398 | BSC L ST850,Z *LET/FLET - BR IF SO -ER2-8 J0213560
1399 | * 2-8 J0213570
1499 C192 1400 | LD 1 #TODR SEE IF TO CART SPECFIED 2-8 J0213580
149A 4C10 1541 1401 | BSC L PL030,- GET STORE PHASE IF SO 2-8 J0213590
149C 1010 1402 | SLA 16 OTHERWISE,DEFAULT TO 2-8 J0213600
149D D192 1403 | STO 1 #TODR *LOGICAL DRIVE ZERO 2-8 J0213610
149E 4C00 1541 1404 | BSC L PL030 GET AND EXECUTE STORE 2-8 J0213620
DCTL -- PROCESS BALANCE OF DUMPLET
1406 | *************************************************** J0213640
1407 | * * J0213650
1408 | * PROCESS DUMPFLET DUP CONTROL RECORD * J0213660
1409 | * * J0213670
1410 | *************************************************** J0213680
14A0 C0FF 1411 | FLCTL LD *-1 J0213690
14A1 D121 1412 | STO 1 LETSW INDICATE FLET PRINT ONLY J0213700
1413 | * * J0213710
1414 | *************************************************** J0213720
1415 | * * J0213730
1416 | * CHECK FOR EXISTENCE OF REQUESTED FLET * J0213740
1417 | * * J0213750
1418 | *************************************************** J0213760
14A2 C193 1419 | LD 1 #FRDR J0213770
14A3 4C10 14AB 1420 | BSC L FL050,- CARTRIDGE WAS SPECIFIED J0213780
1421 | * * J0213790
14A5 C1CB 1422 | LD 1 #FLET FLET ADDR WILL BE ZERO IF J0213800
14A6 E9CC 1423 | OR 1 #FLET+1 *NO FIXED AREA ON CART J0213810
14A7 E9CD 1424 | OR 1 #FLET+2 J0213820
14A8 E9CE 1425 | OR 1 #FLET+3 J0213830
14A9 E9CF 1426 | OR 1 #FLET+4 J0213840
14AA 7004 1427 | MDX FL060 COMPLETE THE CHECK FOR FLET J0213850
1428 | * * J0213860
14AB 6680 7F33 1429 | FL050 LDX I2 #FRDR+C FROM DRIVE NO INTO XR 2 J0213870
14AD C600 7F6B 1430 | LD L2 #FLET+C SELECT SPECIFIED FLET J0213880
14AF 4400 1423 1431 | FL060 BSI L CKFXA ERROR EXIT IF NO FLET 2-8 J0213890
1432 | * * J0213900
1433 | *************************************************** J0213910
1434 | * * J0213920
1435 | * NAME FIELD PROCESSING FOR DUMPLET AND DUMPFLET* J0213930
1436 | * * J0213940
1437 | *************************************************** J0213950
14B1 4400 156F 1438 | LECTL BSI L SNAME CONVERT THE NAME, IF ANY J0213960
1439 | * J0213970
14B3 C184 1440 | LD 1 #NAME J0213980
14B4 4C18 155D 1441 | BSC L PL060,-+ NO NAME,FETCH DUMPLET/FLET J0213990
1442 | * J0214000
14B6 4400 16BF 1443 | BSI L LETSR FIND NAME IN LET J0214010
1444 | * J0214020
14B8 C122 1445 | LD 1 LSTLF DRIVE CODE FROM .LETSR.SUBR J0214030
14B9 180C 1446 | SRA 12 RIGHT JUSTIFY TO LOG DRIVE J0214040
14BA D193 1447 | STO 1 #FRDR LOGICAL .FROM. DRIVE J0214050
1448 | * * J0214060
14BB C124 1449 | LD 1 NAMSW J0214070
14BC 4C18 1420 1450 | BSC L ST835,-+ ERROR - NO NAME FOUND J0214080
1451 | * J0214090
14BE 4C00 155D 1452 | BSC L PL060 FETCH THE DUMPLET/FLET SUBR J0214100
1453 | *************************************************** J0214110
DCTL -- *DELETE DUP CONTROL RECORD
1455 | *************************************************** J0214130
1456 | * * J0214140
1457 | * PROCESS BAL OF DELETE DUP CONTROL RECORD * J0214150
1458 | * * J0214160
1459 | *************************************************** J0214170
14C0 4400 140D 1460 | DLCTL BSI L CKTMP CHECK FOR JOB T MODE J0214180
1461 | * J0214190
14C2 400F 1462 | BSI FRLAB DECODE FR AND TO CART ID-S J0214200
1463 | * J0214210
14C3 4400 156F 1464 | BSI L SNAME CONVERT NAME FIELD J0214220
1465 | * J0214230
14C5 C184 1466 | LD 1 #NAME J0214240
14C6 4C18 1592 1467 | BSC L ST830,-+ NO NAME ON CTRL REC --ERROR J0214250
1468 | * J0214260
14C8 4400 16BF 1469 | BSI L LETSR SEARCH LET FOR NAME J0214270
1470 | * J0214280
14CA C124 1471 | LD 1 NAMSW J0214290
14CB 4C18 1420 1472 | BSC L ST835,-+ NAME NOT FOUND --ERROR J0214300
1473 | * J0214310
14CD C400 170A 1474 | LD L LE929 J0214320
14CF D122 1475 | STO 1 LSTLF ADDR OF LAST COMPLETE SCTR J0214330
1476 | * * J0214340
14D0 4C00 1561 1477 | BSC L PL070 GO TO SET UP FETCH OF DLETE J0214350
1478 | *************************************************** J0214360
DCTL -FRLAB- CVRT CART ID TO LOG DR
1480 | *************************************************** J0214380
1481 | * * J0214390
1482 | * CONVERT COLUMNS 31-34 AND 37-40 FROM PACKED * J0214400
1483 | * EBCDIC TO THE FROM AND TO LOGICAL DRIVE NO. * J0214410
1484 | * IF NONE SPECIFIED DEFAULT TO NEGATIVE VALUE. * J0214420
1485 | * * J0214430
1486 | *************************************************** J0214440
14D2 0000 1487 | FRLAB DC *-* RECORD RETURN ADDR J0214450
14D3 6A0B 1488 | STX 2 FR040+1 SAVE RECORD IMAGE POINTER J0214460
14D4 6680 7FFD 1489 | LDX I2 PEBUF+C POINT TO PACKED EBCDIC BFR J0214470
14D6 C118 1490 | LD 1 DFNSW J0214480
14D7 4C20 14DB 1491 | BSC L FR020,Z DEFINE FXA,DECODE TO FIELD J0214490
1492 | * * J0214500
14D9 4008 1493 | BSI FR050 PROCESS THE FROM ID FIELD J0214510
1494 | * * J0214520
14DA D193 1495 | STO 1 #FRDR RECORD LOGICAL FROM DRIVE J0214530
1496 | * * J0214540
1497 | *************************************************** J0214550
1498 | * * J0214560
1499 | * CONVERT COLUMNS 37-40 FROM PACKED EBCDIC TO * J0214570
1500 | * LOGICAL DRIVE NUMBER AND PUT INTO #TODR. * J0214580
1501 | * * J0214590
1502 | *************************************************** J0214600
14DB 7203 1503 | FR020 MDX 2 +3 STEP POINTER 6COLS.TO-FIELD J0214610
14DC 4005 1504 | BSI FR050 PROCESS THE TO ID FIELD J0214620
1505 | * * J0214630
14DD D192 1506 | STO 1 #TODR RECORD LOGICAL TO DRIVE J0214640
1507 | * * J0214650
1508 | * * J0214660
14DE 6600 0000 1509 | FR040 LDX L2 *-* RESTORE REC IMAGE POINTER J0214670
14E0 4C80 14D2 1510 | BSC I FRLAB FROM AND TO FIELDS DONE-RET J0214680
1511 | *************************************************** J0214690
1512 | * * J0214700
1513 | *************************************************** J0214710
1514 | * * J0214720
1515 | * PROCESS EITHER THE FROM OR THE TO ID FIELD * J0214730
1516 | * * J0214740
1517 | *************************************************** J0214750
14E2 0000 1518 | FR050 DC *-* RECORD RETURN ADDRESS J0214760
14E3 7007 1519 | MDX FR100 CONVERT FROM CART ID 212 J0214770
1520 | * * J0214780
14E4 4C28 152A 1521 | FR055 BSC L FR810,Z+ INVALID RANGE -ERROR- 212 J0214790
1522 | * * J0214800
14E6 4820 1523 | BSC Z CART ID SPECIFIED 212 J0214810
1524 | * ONE INSTR REMOVED 212 J0214820
14E7 7030 1525 | MDX FR600 COMPARE ADD WITH CARD ID212 J0214830
14E8 C0FF 1526 | LD *-1 212 J0214835
1527 | * * J0214840
14E9 4C80 14E2 1528 | FR060 BSC I FR050 RETURN 212 J0214850
1529 | *************************************************** J0214860
1530 | * * J0214870
1531 | * CONVERT 4 UNPACKED EBCDIC CHARACTERS INTO * J0214880
1532 | * ONE BINARY WORD * J0214890
1533 | * * J0214900
1534 | *************************************************** J0214910
14EB 1535 | FR100 EQU * ENTRY POINT 212 J0214920
14EB 6304 1536 | LDX 3 4 COUNT OF HEX CHARACTERS J0214930
14EC 10A0 1537 | SLT 32 CLEAR THE ACC AND EXT J0214940
1538 | * J0214950
14ED C210 1539 | LD 2 16 LOAD RELATIVE COLS 31,32 J0214960
14EE 18C8 1540 | RTE 8 ONE CHAR IN EACH A AND Q J0214970
14EF D042 1541 | STO FR960 HI ORDER,UNPACKED EBCDIC J0214980
1542 | * J0214990
14F0 1010 1543 | SLA 16 CONVERT TO UNPACKED EBCDIC J0215000
14F1 1088 1544 | SLT 8 J0215010
14F2 D040 1545 | STO FR960+1 2ND HIGHEST ORDER DIGIT J0215020
1546 | * J0215030
14F3 C211 1547 | LD 2 17 LOAD RELATIVE COLS 33,34 J0215040
14F4 18C8 1548 | RTE 8 J0215050
14F5 D03E 1549 | STO FR960+2 3RD HIGHEST ORDER DIGIT J0215060
1550 | * J0215070
14F6 1010 1551 | SLA 16 J0215080
14F7 1088 1552 | SLT 8 J0215090
14F8 D03C 1553 | STO FR960+3 LO ORDER DIGIT J0215100
1554 | *************************************************** J0215110
1555 | * * J0215120
1556 | * CONVERT 4 UNPACKED EBCDIC CHARACTERS INTO * J0215130
1557 | * ONE BINARY WORD AND RETURN WITH IT IN THE AREG* J0215140
1558 | * * J0215150
1559 | *************************************************** J0215160
14F9 6304 1560 | LDX 3 +4 J0215170
1561 | * J0215180
14FA C700 1531 1562 | FR310 LD L3 FR960-1 PICK UP NEXT CHARACTER J0215190
14FC F030 1563 | EOR FR930 /00F0 J0215200
14FD 1884 1564 | SRT 4 J0215210
14FE 4C20 1504 1565 | BSC L FR350,Z NONNUMERIC RANGE TRY A-F212 J0215220
1566 | * * J0215230
1500 73FF 1567 | FR320 MDX 3 -1 DECR WD CNT, VAL IN EXT J0215240
1501 70F8 1568 | MDX FR310 GET NEXT CHAR J0215250
1569 | * * J0215260
1502 18D0 1570 | RTE 16 MOVE BINARY RESULT TO A REG J0215270
1503 70E0 1571 | MDX FR055 CONVERSION COMPLETE-RTN 212 J0215280
1572 | * J0215290
1573 | *************************************************** J0215300
1574 | * * J0215310
1575 | * CHECK FOR VALID HEX CHARACTER BETWEEN A AND F * J0215320
1576 | * * J0215330
1577 | *************************************************** J0215340
1504 1578 | FR350 EQU * ENTRY POINT 212 J0215350
1504 C700 1531 1579 | LD L3 FR960-1 CHAR VALUE J0215360
1506 9028 1580 | S FR932 /00C1 MASK FOR -A- J0215370
1507 4C28 1512 1581 | BSC L FR370,Z+ TOO LOW TRY BLANK (0040) J0215380
1582 | * * J0215390
1509 C700 1531 1583 | LD L3 FR960-1 CHAR VALUE J0215400
150B 9022 1584 | S FR931 /00C6 MASK FOR -F- J0215410
150C 4C30 152A 1585 | BSC L FR810,Z- OUTSIDE THE RANGE. --ERROR J0215420
1586 | * * J0215430
150E 1084 1587 | SLT 4 SELECT EBCDIC CHAR FR QREG J0215440
150F 8020 1588 | A FR933 /0009 TO CONVERT TO HEX J0215450
1510 1884 1589 | SRT 4 SAVE HEX DIGIT IN EXT 2-4 J0215460
1511 7005 1590 | MDX FR380 THIS CHARACTER OK J0215470
1591 | * * J0215480
1592 | *************************************************** J0215490
1593 | * * J0215500
1594 | * CHECK FOR A BLANK DIGIT,INSERT A ZERO IF FOUND* J0215510
1595 | * * J0215520
1596 | *************************************************** J0215530
1512 C700 1531 1597 | FR370 LD L3 FR960-1 CHAR VALUE J0215540
1514 901C 1598 | S FR937 /0040 EBCDIC BLANK CHAR J0215550
1515 4C20 152A 1599 | BSC L FR810,Z OUTSIDE THE RANGE -ERROR- J0215560
1600 | * J0215570
1601 | * INSTRUCTION MOVED 2-4 J0215580
1602 | * J0215590
1517 70E8 1603 | FR380 MDX FR320 CHECK NEXT CHAR-RTN 212 J0215600
1604 | * J0215610
1605 | *************************************************** J0215620
1606 | * * J0215630
1607 | * MATCH THE ACC WITH CONTENTS OF THE QUINTUPLE * J0215640
1608 | * LABELED #CIDN (CART ID-S IN LOGICAL ORDER) * J0215650
1609 | * * J0215660
1610 | *************************************************** J0215670
1518 1611 | FR600 EQU * ENTRY POINT 212 J0215680
1612 | * ONE INSTR REMOVED 212 J0215690
1613 | * J0215700
1518 D019 1614 | STO FR960 SAVE SPECIFIED CART ID J0215710
1519 6305 1615 | LDX 3 +5 NO OF ELEMENTS J0215720
1616 | * J0215730
151A C700 7F56 1617 | FR610 LD L3 #CIDN+C-1 PICK UP CART ID J0215740
151C 9015 1618 | S FR960 ADJUST BY SPECIFIED CART ID J0215750
151D 4C18 1522 1619 | BSC L FR690,-+ MATCH FOUND J0215760
1620 | * J0215770
151F 73FF 1621 | MDX 3 -1 J0215780
1520 70F9 1622 | MDX FR610 LAST ENTRY NOT YET CHECKED J0215790
1623 | *************************************************** J0215800
1521 7005 1624 | MDX FR800 CART ID NOT FOUND --ERROR- J0215810
1625 | *************************************************** J0215820
1626 | * J0215830
1522 73FF 1627 | FR690 MDX 3 -1 ADJUST TO LOGICAL DRIVE NO. J0215840
1523 1000 1628 | NOP ALLOW SKIP WHEN STEP TO 0 J0215850
1524 6B0E 1629 | STX 3 FR960+1 J0215860
1525 C00D 1630 | LD FR960+1 PUT LOGICAL DR NO. IN ACC J0215870
1526 70C2 1631 | MDX FR060 MATCH FOUND -RETURN- 212 J0215880
1632 | *************************************************** J0215890
DCTL-FRLAB- ERROR EXITS AND CONSTANTS
1634 | *************************************************** J0215910
1635 | * * J0215920
1636 | * ERROR EXIT FOR CARTRIDGE ID FIELDS J0215930
1637 | * * J0215940
1638 | *************************************************** J0215950
1527 4480 7DB4 1639 | FR800 BSI I LEAVE PRINT ERROR MESSAGE J0215960
1529 0013 1640 | DC PH219 CARTRIDGE NOT ON SYSTEM J0215970
1641 | *************************************************** J0215980
152A 4480 7DB4 1642 | FR810 BSI I LEAVE PRINT ERROR MESSAGE J0215990
152C 0014 1643 | DC PH220 OUTSIDE VALID RANGE J0216000
1644 | *************************************************** J0216010
1645 | *************************************************** J0216020
1646 | * * J0216030
1647 | * CONSTANTS AND WORK AREAS * J0216040
1648 | * * J0216050
1649 | *************************************************** J0216060
152D 00F0 1650 | FR930 DC /00F0 MASK FOR NUMERICS VS A - F J0216070
152E 00C6 1651 | FR931 DC /00C6 MASK FOR HEX F J0216080
152F 00C1 1652 | FR932 DC /00C1 MASK FOR HEX A J0216090
1530 0009 1653 | FR933 DC /0009 CONSTANT FOR CONVERSION J0216100
1531 0040 1654 | FR937 DC /0040 EBCDIC BLANK CONSTANT J0216110
1532 1655 | FR960 BSS 4 WORK AREA J0216120
1656 | *************************************************** J0216130
DCTL -- FETCH AND EXECUTE SUBROUTINE
1658 | *************************************************** J0216150
1659 | * * J0216160
1660 | * SET UP CORE LOC, WD CNT AND SECT ADDR FOR ALL * J0216170
1661 | * MODULES REQUIRED BY DCTL TO PROCESS SPEC FUNC * J0216180
1662 | * * J0216190
1663 | *************************************************** J0216200
1536 D132 1664 | PLUS2 STO 1 XEQSW SET TO EXECUTE FETCHED PROG J0216210
1537 DB00 1665 | PLUSX STD 3 0 INSERT REQD IOAR HEADER J0216220
1666 | * * J0216230
1538 4480 7DB9 1667 | BSI I PHID RECORD PROGRESS OF PHASE 2 J0216240
153A C002 1668 | DC /C002 NEXT PHASE BEING CALLED J0216250
1669 | * * J0216260
153B 4480 7DB7 1670 | BSI I MDUMP PRINT MONITORED OUTPUT J0216270
1671 | * * J0216280
153D 4480 7DB3 1672 | BSI I GET FETCH REQD PHASE -EXIT- J0216290
1673 | * * J0216300
153F 4C00 0000 1674 | PL009 BSC L *-* EXIT TO DCTL EXTENSIONS J0216310
1675 | *************************************************** J0216320
1676 | *************************************************** J0216330
1677 | * * J0216340
1678 | * FETCH AS REQD, EXECUTE STORE MODULE * J0216350
1679 | * * J0216360
1680 | *************************************************** J0216370
1541 4023 1681 | PL030 BSI PL500 FETCH AUX I/O IF REQUIRED J0216380
1682 | * * J0216390
1542 1801 1683 | SRA 1 NON ZERO IF CORE GT 8K J0216400
1543 4C18 1548 1684 | BSC L PL035,-+ STORE MODULE NOT IN CORE J0216410
1685 | * * J0216420
1545 C13A 1686 | LD 1 PH3 J0216430
1546 4C20 21E0 1687 | BSC L WSDC+2,Z EXECUTE STORE IF IN CORE J0216440
1688 | * J0216450
1548 6700 21DE 1689 | PL035 LDX L3 WSDC IOAR HEADER ADDR FOR STORE J0216460
154A C111 1690 | LD 1 CIERR J0216470
154B D400 1432 1691 | STO L ST861 RECORD ANY ERROR OF PRECI J0216480
1692 | * J0216490
154D 4C20 1430 1693 | BSC L ST860,Z ERROR EXIT, PRINT MESSAGE J0216500
1694 | * J0216510
154F C9F2 1695 | LDD 1 STHDR IOAR HDR FOR STORE J0216520
1550 D13A 1696 | STO 1 PH3 RECORD THAT STORE IS CALLED J0216530
1697 | * J0216540
1551 70E4 1698 | MDX PLUS2 GO TO FETCH STORE J0216550
1699 | * J0216560
DCTL -- FETCH AND EXECUTE SUBROUTINE
1701 | *************************************************** J0216580
1702 | * * J0216590
1703 | * FETCH AND EXECUTE THE FILEQ MODULE * J0216600
1704 | * * J0216610
1705 | *************************************************** J0216620
1552 6700 01DE 1706 | PL040 LDX L3 B IOAR HDR CORE ADDR OF FILEQ J0216630
1554 C9F4 1707 | LDD 1 FLHDR IOAR HDR OF FILEQ J0216640
1555 D123 1708 | STO 1 FLQSW SET FILEQ REQD SW NON ZERO J0216650
1709 | * * J0216660
1556 70DF 1710 | MDX PLUS2 J0216670
1711 | * * J0216680
1712 | *************************************************** J0216690
1713 | * * J0216700
1714 | * FETCH AS REQUIRED, EXECUTE THE DDUMP MODULE * J0216710
1715 | * * J0216720
1716 | *************************************************** J0216730
1557 400D 1717 | PL050 BSI PL500 FETCH AUX I/O IF REQUIRED J0216740
1718 | * * J0216750
1719 | * DUMP IS ALWAYS FETCHED BEFORE ENTERED 2E2 J0216760
1720 | * J0216770
1558 6700 41DE 1721 | PL055 LDX L3 DUMPC IOAR HDR ADDR FOR DDUMP J0216780
155A C9F6 1722 | LDD 1 DMHDR IOAR HEADER FOR DDUMP J0216790
155B D13B 1723 | STO 1 PH4 RECORD THAT DDUMP IS CALLED J0216800
1724 | * J0216810
155C 70D9 1725 | MDX PLUS2 GO TO FETCH DDUMP J0216820
1726 | * J0216830
DCTL -- FETCH AND EXECUTE SUBROUTINE
1728 | *************************************************** J0216850
1729 | * * J0216860
1730 | * FETCH AND EXECUTE THE DUMPLET/DUMPFLET MODULE * J0216870
1731 | * * J0216880
1732 | *************************************************** J0216890
155D 6700 01DE 1733 | PL060 LDX L3 B INITIAL CORE LOCATION J0216900
155F C9F8 1734 | LDD 1 DLHDR IOAR HDR ADDR FOR DUMPLET J0216910
1560 70D5 1735 | MDX PLUS2 FETCH DUMPLET AND EXECUTE J0216920
1736 | * J0216930
1737 | *************************************************** J0216940
1738 | * * J0216950
1739 | * SET UP TO FETCH AND EXECUTE THE DELETE MODULE * J0216960
1740 | * * J0216970
1741 | *************************************************** J0216980
1561 6700 01DE 1742 | PL070 LDX L3 B IOAR HDR ADDR FOR DELETE J0216990
1563 C9FA 1743 | LDD 1 DTHDR IOAR HDR FOR DELETE J0217000
1564 70D1 1744 | MDX PLUS2 GO TO FETCH DELETE J0217010
1745 | * J0217020
1746 | * * J0217030
1747 | *************************************************** J0217040
1748 | * * J0217050
1749 | * FETCH AUX I/O SUBR REQD AND SIZE OF CORE * J0217060
1750 | * * J0217070
1751 | *************************************************** J0217080
1565 0000 1752 | PL500 DC *-* RECORD RETURN ADDR J0217090
1566 C0FF 1753 | LD *-1 J0217100
1567 D138 1754 | STO 1 IOREQ SET NON ZERO J0217110
1755 | * * J0217120
1568 7070 1756 | MDX RI700 CHECK IF AUX I/O REQD 212 J0217130
1757 | * * J0217140
1569 C400 000E 1758 | PL510 LD L $CORE 212 J0217150
156B 180D 1759 | SRA 13 J0217160
156C D139 1760 | STO 1 PH2 INDICATE DCTL IN CORE IF 8K J0217170
1761 | * * J0217180
156D 4C80 1565 1762 | BSC I PL500 RETURN - EXIT FROM PL500 J0217190
1763 | *************************************************** J0217200
DCTL -- PROCESS NAME FIELD OF DCR
1765 | *************************************************** J0217220
1766 | * * J0217230
1767 | * CONVERT CHAR IN NAME FIELD TO NAME CODE * J0217240
1768 | * STORE RESULT IN .#NAME. * J0217250
1769 | * CHECK VALIDITY OF FIRST CHARACTER (ALPHA ONLY)* J0217260
1770 | * * J0217270
1771 | * IN REMARKS AAAA REFERS TO THE FIRST CHAR * J0217280
1772 | * BBBB REFERS TO THE SECOND CHAR * J0217290
1773 | * CCCC REFERS TO THE THIRD CHAR * J0217300
1774 | * DDDD REFERS TO THE FOURTH CHAR * J0217310
1775 | * EEEE REFERS TO THE FIFTH CHAR * J0217320
1776 | * Z IS INDETERMINATE VALUE * J0217330
1777 | * NUMBERS ARE FACE VALUE * J0217340
1778 | * AND THE REMARKS ILLUSTRATE CONTENTS OF THE A * J0217350
1779 | * AND Q REGISTERS AFTER THE INSTRUCTION IS EXEC.* J0217360
1780 | * WHERE THE CONTENTS ARE NOT SHOWN THEY ARE THE * J0217370
1781 | * SAME AS THE PREVIOUS INSTRUCTION. * J0217380
1782 | * * J0217390
1783 | *************************************************** J0217400
1784 | * * J0217410
156F 0000 1785 | SNAME DC *-* RECORD RETURN ADDR J0217420
1570 6600 7930 1786 | LDX L2 BUF3+11 POINT TO COL 21,22 OF DCR J0217430
1787 | * J0217440
1572 CA00 1788 | LDD 2 0 AAAA BBBB CCCC DDDD J0217450
1573 1082 1789 | SLT 2 AAAB BBBC CCCD DDD0 J0217460
1574 18C8 1790 | RTE 8 DDD0 AAAB BBBC CCCD J0217470
1575 1802 1791 | SRA 2 ZDDD ZAAA J0217480
1576 18D8 1792 | RTE 24 ZAAA BBBC CCCD ZDDD J0217490
1577 1802 1793 | SRA 2 ZZAA ABBB J0217500
1578 1082 1794 | SLT 2 ZAAA BBBC CCDZ DDD0 J0217510
1579 D184 1795 | STO 1 #NAME RECORD FIRST WORD OF NAME J0217520
1796 | * J0217530
157A 4C98 156F 1797 | BSC I SNAME,-+ NAME FIELD BLANK J0217540
1798 | * * J0217550
157C C202 1799 | LD 2 2 EEEE 4444 CCDZ DDD0 J0217560
157D 18D8 1800 | RTE 24 4444 CCDZ DDD0 EEEE J0217570
157E 1804 1801 | SRA 4 0044 44CC J0217580
157F 18D6 1802 | RTE 22 4CCD DD0E EEE0 0444 J0217590
1580 1804 1803 | SRA 4 044C CDDD J0217600
1581 188A 1804 | SRT 10 0000 0044 CCDD DEEE J0217610
1582 C184 1805 | LD 1 #NAME ZAAA BBBC CCDD DEEE J0217620
1583 D984 1806 | STD 1 #NAME RECORD BOTH RESULTS J0217630
1807 | * J0217640
1808 | *************************************************** J0217650
1809 | * * J0217660
1810 | * CHECK THAT THE FIRST CHAR IS ALPHABETIC * J0217670
1811 | * NAME CODE FOR THE NAME IS IN THE A+Q REGISTERS* J0217680
1812 | * * J0217690
1813 | *************************************************** J0217700
1584 9010 1814 | S SN901 LOWER LIMIT J0217710
1585 4C28 1592 1815 | BSC L SN100,+Z BELOW LOWEST ALPHA CHAR J0217720
1816 | * J0217730
1587 C184 1817 | LD 1 #NAME RESTORE A+Q REGISTERS J0217740
1588 1808 1818 | SRA 8 RIGHT JUSTIFY 2-8 J0217750
1589 900C 1819 | S SN902 HIGHER LIMIT J0217760
158A 4C88 156F 1820 | BSC I SNAME,+ WITHIN VALID RANGE..RETURN. J0217770
158C 900A 1821 | S SN903 TEST FOR POUND SIGN 2-8 J0217780
158D 4C98 156F 1822 | BSC I SNAME,+- EXIT IF SO - VALID 2-8 J0217790
158F 1801 1823 | SRA 1 TEST FOR AT SIGN 2-8 J0217800
1590 4C98 156F 1824 | BSC I SNAME,+- EXIT IF SO - VALID 2-8 J0217810
1825 | * * J0217820
1826 | *************************************************** J0217830
1592 4480 7DB4 1827 | SN100 BSI I LEAVE PRINT ERROR MESSAGE J0217840
1594 0010 1828 | DC PH216 INVALID NAME FIELD J0217850
1592 1829 | ST830 EQU SN100 212 J0217855
1830 | *************************************************** J0217860
1831 | *************************************************** J0217870
1595 0100 1832 | SN901 DC /0100 LOWEST ALPHA CHAR J0217880
1596 0029 1833 | SN902 DC /0029 HIGHEST ALPHA CHAR (Z) 2-8 J0217890
1597 0012 1834 | SN903 DC /0012 #-9 (6BIT) 2-8 J0217900
1835 | *************************************************** J0217910
DCTL -- PROCESS THE COUNT FIELD
1837 | *************************************************** J0217930
1838 | * * J0217940
1839 | * PUT DECIMAL VALUE FROM COLS 27-30 TO DATSW * J0217950
1840 | * IN HEX. * J0217960
1841 | * * J0217970
1842 | *************************************************** J0217980
1598 0000 1843 | DACNT DC *-* RECORD RETURN ADDR J0217990
1599 6A27 1844 | STX 2 DA200+1 SAVE XR 2 J0218000
159A 6680 7FFD 1845 | LDX I2 PEBUF+C POINT TO PACKED EBCDIC BFR J0218010
159C 6304 1846 | LDX 3 4 J0218020
1847 | *************************************************** J0218030
1848 | * * J0218040
1849 | * PROCESS COLUMNS 29 AND 30 * J0218050
1850 | * * J0218060
1851 | *************************************************** J0218070
159D C20F 1852 | LD 2 15 COLS 29,30 J0218080
159E 1008 1853 | SLA 8 COL 30 ONLY J0218090
159F 4029 1854 | BSI DA800 CHECK FOR NUMERIC FIELD J0218100
1855 | * J0218110
15A0 4023 1856 | BSI DA700 RECORD INTO DATSW,UNITS J0218120
1857 | * J0218130
15A1 C20F 1858 | LD 2 15 COLS 29,30 J0218140
15A2 4026 1859 | BSI DA800 CHECK FOR COL 29 NUMERIC J0218150
1860 | * J0218160
15A3 1004 1861 | SLA 4 J0218170
15A4 401F 1862 | BSI DA700 RECORD COL 29 INTO DATSW J0218180
1863 | *************************************************** J0218190
1864 | * * J0218200
1865 | * PROCESS COLUMNS 27 AND 28 * J0218210
1866 | * * J0218220
1867 | *************************************************** J0218230
15A5 C20E 1868 | LD 2 14 COLS 27,28 J0218240
15A6 1008 1869 | SLA 8 COL 28 ONLY J0218250
15A7 4021 1870 | BSI DA800 CHECK COL 28 FOR NUMERIC J0218260
1871 | * J0218270
15A8 1008 1872 | SLA 8 J0218280
15A9 401A 1873 | BSI DA700 RECORD COL 28 AS HUNDREDS J0218290
1874 | * J0218300
15AA C20E 1875 | LD 2 14 J0218310
15AB 401D 1876 | BSI DA800 CHECK COL 27 FOR NUMERIC J0218320
1877 | * J0218330
15AC 100C 1878 | SLA 12 J0218340
15AD 4016 1879 | BSI DA700 RECORD COL 27 AS THOUSANDS J0218350
1880 | *************************************************** J0218360
1881 | * * J0218370
1882 | * CONVERT DECIMAL VALUE IN DATSW TO HEX VALUE * J0218380
1883 | * * J0218390
1884 | *************************************************** J0218400
15AE 10A0 1885 | DA100 SLT 32 CLEAR THE A AND Q REGISTERS J0218410
15AF D12C 1886 | STO 1 TEMP1 CLEAR WORKING LOCATION J0218420
1887 | * J0218430
15B0 C115 1888 | LD 1 DATSW WORD TO BE CONVERTED J0218440
1889 | * J0218450
15B1 18DC 1890 | DA150 RTE 32-4 J0218460
15B2 D12D 1891 | STO 1 TEMP2 SAVE REST OF DIGITS J0218470
1892 | * J0218480
15B3 73FF 1893 | MDX 3 -1 STEP DOWN NO OF DIGITS LEFT J0218490
15B4 7001 1894 | MDX DA170 J0218500
15B5 7007 1895 | MDX DA180 LAST DIGIT PROCESSED J0218510
1896 | * J0218520
15B6 1090 1897 | DA170 SLT 16 MOVE DIGIT TO THE A REG J0218530
15B7 812C 1898 | A 1 TEMP1 RUNNING TOTAL J0218540
15B8 A01C 1899 | M DA900 TIMES 10 J0218550
15B9 1090 1900 | SLT 16 J0218560
15BA D12C 1901 | STO 1 TEMP1 NEW TOTAL J0218570
1902 | * J0218580
15BB C12D 1903 | LD 1 TEMP2 BALANCE OF WORD TO CONVERT J0218590
15BC 70F4 1904 | MDX DA150 PROCESS NEXT DIGIT J0218600
1905 | * J0218610
15BD 1090 1906 | DA180 SLT 16 J0218620
15BE 812C 1907 | A 1 TEMP1 J0218630
15BF D115 1908 | STO 1 DATSW HEX VALUE INTO DATSW J0218640
1909 | *************************************************** J0218650
15C0 6600 0000 1910 | DA200 LDX L2 *-* RESTORE XR 2 J0218660
15C2 4C80 1598 1911 | BSC I DACNT RETURN--- FROM DACNT --- J0218670
1912 | *************************************************** J0218680
1913 | * J0218690
15C4 0000 1914 | DA700 DC *-* RECORD RETURN ADDR J0218700
15C5 E915 1915 | OR 1 DATSW J0218710
15C6 D115 1916 | STO 1 DATSW ACCUMULATIVE DECIMAL COUNT J0218720
1917 | * J0218730
15C7 4C80 15C4 1918 | BSC I DA700 RETURN - DATSW UPDATED J0218740
1919 | *************************************************** J0218750
15C9 0000 1920 | DA800 DC *-* RECORD RETURN ADDR J0218760
15CA E00B 1921 | AND DA901 MASK WITH FFOO J0218770
15CB F00B 1922 | EOR DA902 MASK WITH 4000 J0218780
15CC 4C18 15AE 1923 | BSC L DA100,+- FIRST LOW ORDER BLANK J0218790
15CE F009 1924 | EOR DA903 MASK WITH B000 J0218800
15CF 188C 1925 | SRT 12 J0218810
15D0 4C20 142D 1926 | BSC L ST855,Z INVALID COUNT FIELD --ERROR J0218820
15D2 1084 1927 | SLT 4 J0218830
15D3 4C80 15C9 1928 | BSC I DA800 RETURN-DIGIT IS NUMERIC J0218840
1929 | * J0218850
1930 | *************************************************** J0218860
1931 | * * J0218870
1932 | * CONSTANT USED BY THE DACNT SUBROUTINE * J0218880
1933 | * * J0218890
1934 | *************************************************** J0218900
15D5 000A 1935 | DA900 DC 10 CONSTANT MULTIPLIER J0218910
15D6 FF00 1936 | DA901 DC /FF00 MASK J0218920
15D7 4000 1937 | DA902 DC /4000 MASK J0218930
15D8 B000 1938 | DA903 DC /B000 MASK J0218940
1939 | *************************************************** J0218950
DCTL READ IN REQD IOCS SUBRS FOR DUP
1941 | *************************************************** J0218970
1942 | * * J0218980
1943 | * INSURE THAT THE DUP I/O SUBR SET REQUESTED * J0218990
1944 | * BY THE DUP CONTROL RECORD IS IN CORE * J0219000
1945 | * PH 14 IS PRINCIPAL I/O SUBR SET * J0219010
1946 | * PH 15 IS PRINCIPAL I/O SUBR SET EXCLUDING KB * J0219020
1947 | * PH 16 IS PAPER TAPE I/O SUBR SET * J0219030
1948 | * * J0219040
1949 | * IF PAPER TAPE IS REQUESTED THEN FETCH PHASE 16* J0219050
1950 | * * J0219060
1951 | * IF KEYBOARD IS IN CORE THEN FETCH PHASE 15 * J0219070
1952 | * * J0219080
1953 | * OTHERWISE CORRECT SUBR SET IS IN CORE * J0219090
1954 | * * J0219100
1955 | *************************************************** J0219110
15D9 1956 | RI700 EQU * ENTRY POINT 212 J0219120
15D9 6B0E 1957 | STX 3 RI708+1 SAVE XR 3 J0219130
15DA 6700 15E7 1958 | LDX L3 RI708 J0219140
15DC 6B26 1959 | STX 3 RI800 INSERT RIOCS EXIT ADDR J0219150
1960 | * * J0219160
15DD C128 1961 | LD 1 PTSW J0219170
15DE 4C20 1601 1962 | BSC L RI730,Z PAPER TAPE REQUESTED J0219180
1963 | * J0219190
15E0 C13F 1964 | LD 1 INOUT J0219200
15E1 4C30 15FF 1965 | BSC L RI720,-Z KB IN.FETCH PH 15 J0219210
1966 | * J0219220
15E3 C133 1967 | LD 1 EBCSW 2-9 J0219225
15E4 4820 1968 | BSC Z IF DATA E SWITCH SET 2-9 J0219230
15E5 7005 1969 | MDX RI709 *GO OVERLAY CONV TABLE 2-9 J0219235
15E6 D138 1970 | STO 1 IOREQ PRINC I/O STILL IN CORE J0219240
1971 | * * J0219250
15E7 6700 0000 1972 | RI708 LDX L3 *-* RESTORE XR 3 J0219260
15E9 4C00 1569 1973 | BSC L PL510 RETURN 212 J0219270
1974 | ************************************************2-9 J0219271
1975 | * 2-9 J0219272
1976 | * IF DUMPDATA E OR STOREDATA E 2-9 J0219273
1977 | * OVERLAY THE 1442 CONVERSION TABLE. 2-9 J0219274
1978 | * 2-9 J0219275
1979 | ************************************************2-9 J0219276
15EB 6780 7A09 1980 | RI709 LDX I3 IOADR+3 GET LD ADDR OF 1442 CONV2-9 J0219277
15ED 7780 160E 1981 | MDX I3 RI900 POINT TO TABLE BEGIN 2-9 J0219278
15EF C01F 1982 | LD RI905 OVERLAY 2-9 J0219279
15F0 D308 1983 | STO 3 8 *FIVE 2-9 J0219280
15F1 C01E 1984 | LD RI906 *WORDS 2-9 J0219281
15F2 D341 1985 | STO 3 65 *OF 2-9 J0219282
15F3 C01D 1986 | LD RI907 *1442 2-9 J0219283
15F4 D343 1987 | STO 3 67 *CONVERSION 2-9 J0219284
15F5 C01C 1988 | LD RI908 *TABLE 2-9 J0219285
15F6 D349 1989 | STO 3 73 2-9 J0219286
15F7 C01B 1990 | LD RI909 2-9 J0219287
15F8 D351 1991 | STO 3 81 RETURN WITH IOREQ 2-9 J0219288
15F9 70ED 1992 | MDX RI708 *STILL SET FOR RESTORE 2-9 J0219289
READ IN REQD IOCS SUBRS FOR DUP
1994 | *************************************************** J0219300
1995 | * * J0219310
1996 | * SET UP IOAR HEADER FOR PRINCIPAL INPUT SUBRS * J0219320
1997 | * * J0219330
1998 | *************************************************** J0219340
15FA 0000 1999 | RI710 DC *-* RECORD RETURN ADDR J0219350
15FB C902 2000 | LDD 1 PIHDR PRINC INPUT IOAR J0219360
2001 | * J0219370
15FC 4006 2002 | BSI RI800 READ IN DUP PRINC IN SUBRS J0219380
2003 | * J0219390
15FD 4C80 15FA 2004 | BSC I RI710 RETURN J0219400
2005 | *************************************************** J0219410
2006 | *************************************************** J0219420
2007 | * * J0219430
2008 | * SET UP IOAR HEADER FOR PRINC IN SUBRS(EXCL KB)* J0219440
2009 | * * J0219450
2010 | *************************************************** J0219460
15FF C904 2011 | RI720 LDD 1 PIHDR+2 REQD IOAR J0219470
1600 7003 2012 | MDX RI810 FETCH PRINC I/O (EXCL KB) J0219480
2013 | *************************************************** J0219490
2014 | *************************************************** J0219500
2015 | * * J0219510
2016 | * SET UP IOAR HEADER FOR PAPER TAPE SUBRS J0219520
2017 | * * J0219530
2018 | *************************************************** J0219540
1601 C906 2019 | RI730 LDD 1 PIHDR+4 PT IOAR HDR J0219550
1602 7001 2020 | MDX RI810 FETCH PAPER TAPE I/O SUBRS J0219560
2021 | *************************************************** J0219570
2022 | *************************************************** J0219580
2023 | * * J0219590
2024 | * READ INTO CORE THE REQD DUP I/O SUBROUTINES * J0219600
2025 | * * J0219610
2026 | *************************************************** J0219620
1603 0000 2027 | RI800 DC *-* RECORD RETURN ADDR J0219630
1604 6700 7A06 2028 | RI810 LDX L3 IOADR REQD CORE LOCATION J0219640
1606 DB00 2029 | STD 3 0 INSERT SPEC IOAR HEADER J0219650
2030 | * J0219660
1607 7400 0013 2031 | MDX L $IBSY,0 DO NOT RRAD IN AN I/O 2-6 J0219670
1609 70FD 2032 | MDX *-3 *ROUTINE UNTIL ALL I/O 2-6 J0219680
2033 | * *OPERATIONS FINISHED 2-6 J0219690
160A 4480 7DB3 2034 | BSI I GET GET SPEC GROUP OF SUBRS J0219700
2035 | * J0219710
160C 4C80 1603 2036 | BSC I RI800 RETURN J0219720
2037 | * 2-9 J0219722
160E 0038 2038 | RI900 DC /0038 SP130-SP000-1, TABL BEG 2-9 J0219723
160F 50C9 2039 | RI905 DC /50C9 OVERLAY 2-9 J0219724
1610 7C3C 2040 | RI906 DC /7C3C *TABLE 2-9 J0219725
1611 6C2C 2041 | RI907 DC /6C2C *WITH 2-9 J0219726
1612 4C0C 2042 | RI908 DC /4C0C *THESE 2-9 J0219727
1613 7B3B 2043 | RI909 DC /7B3B *WORDS 2-9 J0219728
2044 | * 2-9 J0219729
2045 | *************************************************** J0219730
DCTL READ AND PROCESS HEADER RECORD
2047 | *************************************************** J0219750
2048 | * * J0219760
2049 | * READ FIRST DATA RECORD (HEADER RECORD) INTO * J0219770
2050 | * BUFFER WHOSE ADDR IS SPECIFIED IN .THIS. (IN * J0219780
2051 | * CATCO) * J0219790
2052 | * USES .GETBI. OF I/O INTERFACE SUBR TO READ THE* J0219800
2053 | * RECORD. * J0219810
2054 | * USES .RD110. TO PROCESS MULTI ENTRY NAMES THRU* J0219820
2055 | * LET SEARCH * J0219830
2056 | * FILTERS LEADING LOADER OVERLAY RECORDS * J0219840
2057 | * LEAVES HEADER RECORD IN BUFFER SPEC BY .NEXT. * J0219850
2058 | * LEAVES FOLLOWING REC IN BFR SPEC BY .THIS. BUT* J0219860
2059 | * IN UNPACKED STATUS. * J0219870
2060 | * * J0219880
2061 | * EXIT-NORMAL RETURN TO CALLER * J0219890
2062 | * EXIT-ERROR INVALID TYPE J0219900
2063 | * EXIT-ERROR SECONDARY NAME ALREADY IN LET * J0219910
2064 | * * J0219920
2065 | *************************************************** J0219930
1614 0000 2066 | RDHDR DC *-* RECORD RETURN ADDR J0219940
1615 C120 2067 | LD 1 IOSW J0219950
1616 4C18 166C 2068 | BSC L RD500,-+ SOURCE NOT I/O.RD FROM DISK J0219960
2069 | * J0219970
1618 C128 2070 | LD 1 PTSW J0219980
1619 4498 7A0B 2071 | BSI I GETBI,-+ READ BINARY RCD (IF CARD) J0219990
2072 | * * J0220000
161B C95E 2073 | RD010 LDD 1 THIS J0220010
161C 18D0 2074 | RTE 16 J0220020
161D D95E 2075 | STD 1 THIS SWITCH BUFFERS J0220030
2076 | * J0220040
161E 4480 7A0B 2077 | BSI I GETBI READ NEXT BINARY RECORD J0220050
2078 | * * J0220060
1620 4480 7A0C 2079 | BSI I PACKB PACK THIS BINARY RECORD J0220070
2080 | * * J0220080
2081 | *************************************************** J0220090
2082 | * * J0220100
2083 | * DECODE TYPE OF HEADER RECORD * J0220110
2084 | * TYPES 3,4 SEARCH LET FOR SECONDARY ENTRY* J0220120
2085 | * TYPES 1,2,5,6,7 RETURN TO CALLING SUBR * J0220130
2086 | * POINTS * J0220140
2087 | * * J0220150
2088 | * TYPES 8,9,A,B,F ARE ERRONEOUS TYPES * J0220160
2089 | * TYPES C,D,E ARE LOADER OVERLAY. BYPASSED* J0220170
2090 | * * J0220180
2091 | *************************************************** J0220190
1622 6680 7FFF 2092 | RD015 LDX I2 NEXT+C PT TO WD CNT OF BUFFER J0220200
1624 C203 2093 | LD 2 3 PICK UP TYPE AND PRECISION J0220210
1625 1004 2094 | SLA 4 SHIFT OFF SUB TYPE J0220220
1626 180C 2095 | SRA 12 SHIFT OFF PRECISION J0220230
1627 8024 2096 | A RD904 ADD MDX OP CODE 212 J0220240
1628 D000 2097 | STO RD020 SET UP REQUIRED MDX INST J0220250
2098 | *************************************************** J0220260
2099 | * * J0220270
2100 | * DECODE TYPE. POSITION IN TABLE IS THE TYPE NO.* J0220280
2101 | * * J0220290
2102 | *************************************************** J0220300
1629 2103 | RD020 EQU * LABEL NEXT INSTURCYION J0220310
1629 7000 2104 | MDX * J0220320
162A 707C 2105 | MDX RD800 TYPE 0 - ERROR J0220330
162B 700E 2106 | MDX RD060 TYPE 1 - MAINLINE ABSOLUTE J0220340
162C 700D 2107 | MDX RD060 TYPE 2 - MAINLINE RELOC J0220350
162D 7018 2108 | MDX RD100 TYPE 3 - LIBF SUBROUTINE J0220360
162E 7017 2109 | MDX RD100 TYPE 4 - CALL SUBROUTINE J0220370
162F 701A 2110 | MDX RD150 TYPE 5 - LIBF ISS J0220380
1630 7019 2111 | MDX RD150 TYPE 6 - CALL ISS J0220390
1631 7018 2112 | MDX RD150 TYPE 7 - ILS J0220400
1632 7074 2113 | MDX RD800 TYPE 8 - INVALID J0220410
1633 7073 2114 | MDX RD800 TYPE 9 - INVALID J0220420
1634 7072 2115 | MDX RD800 TYPE A - DATA - INVALID J0220430
1635 7071 2116 | MDX RD800 TYPE B - INVALID J0220440
1636 70E4 2117 | MDX RD010 TYPE C -LDR OVERLAY- BYPASS J0220450
1637 70E3 2118 | MDX RD010 TYPE D -LDR OVERLAY- BYPASS J0220460
1638 70E2 2119 | MDX RD010 TYPE E -LDR OVERLAY- BYPASS J0220470
1639 706D 2120 | MDX RD800 TYPE F - END - INVALID J0220480
2121 | * * J0220490
2122 | *************************************************** J0220500
2123 | * * J0220510
2124 | * DRIVER FOR PROCESSING HEADER RECORDS WITH * J0220520
2125 | * RD060 - MAIN LINE HEADERS TYPES 1+2 ENTRY* J0220530
2126 | * RD100 - LIBF AND CALL SUBR TYPES 3+4 ENTRY* J0220540
2127 | * RD150 - LIBF,CALL ISS+ILS SUBR TYPES 5-7 ENTRY* J0220550
2128 | * * J0220560
2129 | *************************************************** J0220570
163A C112 2130 | RD060 LD 1 CISW GO TO CHECK PROG HDR 2-3 J0220580
163B 4C18 1640 2131 | BSC L RD065,+- *NAME ONLY IF STORECI 2-3 J0220590
163D C115 2132 | LD 1 DATSW *WITH SUPV CONTROL 2-3 J0220600
163E 4420 1683 2133 | BSI L RD550,Z *RECORDS SPECIFIED 2-3 J0220610
2134 | * 2-3 J0220620
1640 1010 2135 | RD065 SLA 16 J0220630
1641 D20A 2136 | STO 2 10 CLEAR ML NAME FROM DSF HDR J0220640
1642 D20B 2137 | STO 2 11 J0220650
2138 | * * J0220660
1643 C074 2139 | LD RD902 THREE J0220670
1644 D206 2140 | STO 2 6 FORCE ML HEADER LENGTH 12 J0220680
2141 | * * J0220690
1645 7005 2142 | MDX RD160 COMMON HEADER PROCESSING J0220700
2143 | * * J0220710
1646 2144 | RD100 EQU * LABEL NEXT INSTRUCTION J0220720
1646 C130 2145 | LD 1 UASW J0220730
1647 E91E 2146 | OR 1 FXSW J0220740
1648 4C20 164D 2147 | BSC L RD210,Z STORE TO UA OR FX,SEARCH212 J0220750
2148 | * J0220760
164A 2149 | RD150 EQU * LABEL FOR NEXT INSTRUCTION J0220770
164A 4038 2150 | BSI RD550 CHECK PROGRAM NAME J0220780
2151 | * * J0220790
164B 704B 2152 | RD160 MDX RD600 CHECK PROG HDR LNGH 212 J0220800
2153 | * J0220810
2154 | * ONE INSTR REMOVED 212 J0220820
2155 | *************************************************** J0220830
164C 7000 2156 | RD904 DC /7000 MDX OP CODE 212 J0220835
DCTL -- PROCESS THE HEADER RECORD
2158 | *************************************************** J0220850
2159 | * * J0220860
2160 | * SEARCH LET FOR EACH SECONDARY ENTRY POINT * J0220870
2161 | * * J0220880
2162 | *************************************************** J0220890
164D 2163 | RD210 EQU * ENTRY POINT 212 J0220900
164D C123 2164 | LD 1 MODSW BY-PASS SECONDARY ENTRY 212 J0220903
164E 4C20 164A 2165 | BSC L RD150,Z *POINTS IF STOREMOD 212 J0220906
1650 6A19 2166 | STX 2 RD240+1 SAVE XR2 WHILE IN SUBR J0220910
1651 C206 2167 | LD 2 6 3 * NO OF ENTRY POINTS J0220920
1652 9065 2168 | S RD902 REDUCE BY WORDS OF ONE NTRY J0220930
1653 D065 2169 | STO RD903 RECORD 3*(NO OF ENTRYS-1) J0220940
2170 | * J0220950
1654 4C18 164A 2171 | BSC L RD150,-+ NO SECONDARY 212 J0220960
2172 | * J0220970
1656 C984 2173 | LDD 1 #NAME J0220980
1657 D85E 2174 | STD RD900 SAVE NAME FROM DCR J0220990
2175 | * J0221000
1658 C20E 2176 | RD220 LD 2 14 J0221010
1659 18D0 2177 | RTE 16 J0221020
165A C20D 2178 | LD 2 13 J0221030
165B D984 2179 | STD 1 #NAME SECONDARY ENTRY NAME J0221040
165C 6A02 2180 | STX 2 RD230+1 SAVE XR2 OVER LETSR J0221050
2181 | * J0221060
165D 4061 2182 | BSI LETSR SEARCH LET FOR NAME J0221070
2183 | * J0221080
165E 6600 0000 2184 | RD230 LDX L2 *-* RESTORE XR2 AFTER LETSEARCH J0221090
1660 C124 2185 | LD 1 NAMSW J0221100
1661 4C20 16B3 2186 | BSC L RD850,Z NAME FOUND ---ERROR--- J0221110
2187 | * J0221120
1663 7203 2188 | MDX 2 +3 ADVANCE PT TO THE NEXT NAME J0221130
1664 74FD 16B9 2189 | MDX L RD903,-3 REDUCE ENTRY COUNT BY 1 J0221140
1666 70F1 2190 | MDX RD220 LOOP FOR NEXT ENTRY J0221150
2191 | * * J0221160
1667 C84E 2192 | LDD RD900 J0221170
1668 D984 2193 | STD 1 #NAME RESTORE PRIME ENTRY NAME J0221180
2194 | * * J0221190
1669 6600 0000 2195 | RD240 LDX L2 *-* RESTORE XR2 TO ORIG VALUE J0221200
166B 70DE 2196 | MDX RD150 RTN-LET SRCH COMPLETE 212 J0221210
2197 | *************************************************** J0221220
2198 | *************************************************** J0221230
2199 | * * J0221240
2200 | * MULTIPLE ENTRYS REQUIRE SCAN OF LET/FLET * J0221250
2201 | * READ HEADER RECORD FROM DISK (WS) AFTER * J0221260
2202 | * CHECKING VALIDITY OF THE PROGRAM IN WS * J0221270
2203 | * * J0221280
2204 | *************************************************** J0221290
166C 6780 7FFF 2205 | RD500 LDX I3 NEXT+C J0221300
166E 73FF 2206 | MDX 3 -1 POINT TO IOAR HEADER AREA J0221310
2207 | * J0221320
166F C04D 2208 | LD RD952 J0221330
1670 D300 2209 | STO 3 0 INSERT WORD COUNT MAXIMUM J0221340
2210 | * J0221350
1671 6680 7F33 2211 | LDX I2 #FRDR+C SELECT DRIVE REQD FOR WS J0221360
1673 C600 7F75 2212 | LD L2 #WSCT+C J0221370
1675 4C18 16B0 2213 | BSC L RD830,-+ NO PROGRAM IN WS -ERROR- J0221380
2214 | * * J0221390
1677 C600 7F66 2215 | LD L2 #FMAT+C J0221400
1679 4C20 16AD 2216 | BSC L RD820,Z PROG NOT IN DSF -ERROR- J0221410
2217 | * J0221420
167B C193 2218 | LD 1 #FRDR J0221430
167C 100C 2219 | SLA 12 LEFT JUSTIFY 4 BIT DRIVE NO J0221440
167D EE00 0095 2220 | OR L2 $FPAD COMBINE DR # WITH SCTR ADDR J0221450
167F D301 2221 | STO 3 1 RECORD WORK STORAGE SCTR J0221460
2222 | * J0221470
1680 4480 7DB3 2223 | BSI I GET READ PROG HDR WDS FROM WS J0221480
2224 | * J0221490
1682 709F 2225 | MDX RD015 HEADER RECORD READ J0221500
2226 | *************************************************** J0221510
2227 | *************************************************** J0221520
2228 | * * J0221530
2229 | * PROCESS HEADER FOR SPECIFIED NAME AND * J0221540
2230 | * LEGITIMATE PROGRAM HEADER LENGTH. * J0221550
2231 | * * J0221560
2232 | *************************************************** J0221570
1683 0000 2233 | RD550 DC *-* RECORD RETURN ADDRESS J0221580
1684 C12E 2234 | LD 1 TOWS J0221590
1685 4CA0 1683 2235 | BSC I RD550,Z NAME NOT REQD. STORE TO WS J0221600
2236 | * * J0221610
1687 C20A 2237 | LD 2 10 J0221620
1688 4C98 1683 2238 | BSC I RD550,-+ SKIP CHECK IF NAME BLANK J0221630
2239 | * J0221640
168A C184 2240 | LD 1 #NAME J0221650
168B E032 2241 | AND RD999 AND OUT THE 2 HIORDER BITS J0221660
168C 920A 2242 | S 2 10 J0221670
168D 4C20 16A4 2243 | BSC L RD790,Z FIRST WORD OF NAME NOT SAME J0221680
2244 | * J0221690
168F C20B 2245 | LD 2 11 J0221700
1690 9185 2246 | S 1 #NAME+1 J0221710
1691 4C20 16A4 2247 | BSC L RD790,Z BRANCH IF NAME NOT SAME 2-3 J0221720
1693 C000 2248 | LD * NAME IN HDR AGREES WITH 2-3 J0221730
1694 D134 2249 | STO 1 HDNSW *NAME SPECIFIED. SET 2-3 J0221740
1695 4C80 1683 2250 | BSC I RD550 *HDR NAME SW AND RETURN 2-3 J0221750
2251 | *************************************************** J0221760
2252 | *************************************************** J0221770
2253 | * * J0221780
2254 | * RECORD REQD PROGRAM HEADER LENGTH AND CHECK * J0221790
2255 | * * J0221800
2256 | *************************************************** J0221810
1697 2257 | RD600 EQU * ENTRY POINT 212 J0221820
1697 C20C 2258 | LD 2 12 WORD 12 OF THE PROG HEADER J0221830
1698 D190 2259 | STO 1 #ENTY CORE LOC FOR PRIME ENTRY J0221840
2260 | * J0221850
1699 C206 2261 | LD 2 6 WORD 6 OF THE PROG HEADER J0221860
169A 801F 2262 | A RD909 J0221870
169B D126 2263 | STO 1 PGMHL RECORD DSF PROG HDR LENGTH J0221880
2264 | * J0221890
169C 901E 2265 | S RD912 J0221900
169D 4C28 16AA 2266 | BSC L RD810,+Z HEADER LENGTH LESS THAN 12 J0221910
2267 | * J0221920
169F 901C 2268 | S RD939 J0221930
16A0 4830 2269 | BSC -Z HDR LENGTH L.T. 52 212 J0221940
2270 | * J0221950
16A1 7008 2271 | MDX RD810 HEADER LENGTH TOO LONG J0221960
2272 | *************************************************** J0221970
DCTL -- EXITS FROM READING HEADER REC
2274 | *************************************************** J0221990
16A2 4C80 1614 2275 | RD750 BSC I RDHDR RETURN -- EXIT -- NORMAL -- J0222000
2276 | *************************************************** J0222010
2277 | * * J0222020
2278 | *************************************************** J0222030
16A4 4480 7DB4 2279 | RD790 BSI I LEAVE PRINT ERROR MESSAGE J0222040
16A6 0001 2280 | DC PH201 NOT PRIME ENTRY-ERROR EXIT- J0222050
2281 | *************************************************** J0222060
2282 | *************************************************** J0222070
16A7 4480 7DB4 2283 | RD800 BSI I LEAVE PRINT ERROR MESSAGE J0222080
16A9 0002 2284 | DC PH202 INVALID TYPE -- ERROR EXIT J0222090
2285 | *************************************************** J0222100
2286 | *************************************************** J0222110
16AA 4480 7DB4 2287 | RD810 BSI I LEAVE PRINT ERROR MESSAGE J0222120
16AC 0003 2288 | DC PH203 INVALID HEADER LENGTH--EXIT J0222130
2289 | *************************************************** J0222140
2290 | *************************************************** J0222150
16AD 4480 7DB4 2291 | RD820 BSI I LEAVE PRINT ERROR MESSAGE J0222160
16AF 001B 2292 | DC PH227 SOURCE IS NOT IN DSF -EXIT- J0222170
2293 | *************************************************** J0222180
2294 | *************************************************** J0222190
16B0 4480 7DB4 2295 | RD830 BSI I LEAVE PRINT ERROR MESSAGE J0222200
16B2 0016 2296 | DC PH222 PROG NOT IN WS -EXIT- J0222210
2297 | *************************************************** J0222220
2298 | *************************************************** J0222230
16B3 2299 | RD850 EQU * LABEL FOR NEXT INSTRUCTION J0222240
16B3 4480 7DB4 2300 | BSI I LEAVE PRINT ERROR MESSAGE J0222250
16B5 0005 2301 | DC PH205 ENTRY POINT IN LET --EXIT J0222260
2302 | *************************************************** J0222270
16B6 2303 | BSS E 0 J0222280
16B6 0000 2304 | RD900 DC *-* 2 WORDS FOR SAVEING PRIME J0222290
16B7 0000 2305 | DC *-* ENTRY NAME J0222300
16B8 0003 2306 | RD902 DC 3 CONSTANT J0222320
16B9 0000 2307 | RD903 DC *-* TEMP STG OF ENTRY PT WD CNT J0222330
16BA 0009 2308 | RD909 DC 9 CONSTANT J0222350
16BB 000C 2309 | RD912 DC 12 CONSTANT J0222360
16BC 0027 2310 | RD939 DC 39 CONSTANT J0222370
16BD 0034 2311 | RD952 DC 52 CONSTANT J0222380
16BE 3FFF 2312 | RD999 DC /3FFF CONSTANT FOR MASKING J0222390
2313 | *************************************************** J0222400
DCTL -- DUP LET SEARCH
2315 | *************************************************** J0222420
2316 | * * J0222430
2317 | * *SEARCH LET/FLET FOR NAME RECORDED IN .#NAME. * J0222440
2318 | * OF DCOM. * J0222450
2319 | * * STORE FUNCTION WILL SUPPLY DRIVE NO TO BE * J0222460
2320 | * SEARCHED IN .#TODR. WHILE DUMP,DUMPLET, AND * J0222470
2321 | * DELETE SPECIFY THE DRIVE NO. IN .#FRDR. * J0222480
2322 | * *AS EACH SECTOR OF LET/FLET FOR THE FIRST * J0222490
2323 | * CARTRIDGE IS SEARCHED THE SIZE AND ADDR OF * J0222500
2324 | * THE LARGEST AREA AVAILABLE FOR STORAGE IS * J0222510
2325 | * RECORDED. * J0222520
2326 | * * IF A 1DUMY ENTRY IS LOCATED AND THE RECORD * J0222530
2327 | * SWITCH .LE960. IS ON THEN THE LET ENTRY AND * J0222540
2328 | * DB LOCATION IS RECORDED FOR LET OR FLET. * J0222550
2329 | * THE SIZE IS IN #USZE, AND #FSZE * J0222560
2330 | * THE DB ADDR IS PUT IN #UHOL AND #FHOL * J0222570
2331 | * * IF THE NAME WAS FOUND THE LET ENTRY AND THE * J0222580
2332 | * PROG/DATA DBADR ARE RECORDED BEFORE RETURNING* J0222590
2333 | * TO THE CALLING SUBROUTINE. * J0222600
2334 | * * WHEN THE FIRST SECTOR OF LET IS SEARCHED * J0222610
2335 | * WORD 5 OF THE LET SECTOR HEADER SPECIFIES THE * J0222620
2336 | * NEXT SECTOR OF LET/FLET TO FETCH. * J0222630
2337 | * * AFTER FETCHING AND SEARCHING UNTIL WORD 5 * J0222640
2338 | * OF THE LET HEADER IS ZERO A CHECK IS MADE * J0222650
2339 | * TO GET THE FIRST SECTOR OF LET ON THE NEXT * J0222660
2340 | * LOGICAL CARTRIDGE. * J0222670
2341 | * * WHEN THE LAST SPECIFIED CARTRIDGE HAS BEEN * J0222680
2342 | * SEARCHED,OR THE NAME FOUND CONTROL IS RETURNED* J0222690
2343 | * TO THE CALLING SUBROUTINE. * J0222700
2344 | * * AT THE END OF EACH LET A SYSTEM CHECK IS * J0222710
2345 | * MADE OF THE CALC (BASED ON DB CNT OF LET * J0222720
2346 | * ENTRIES)OF DBADR OF THE END OF THE UA AND * J0222730
2347 | * THE ACTUAL END OF THE UA AS SPECIFIED IN #ANDU* J0222740
2348 | * IN DCOM FOR THE SPECIFIED CARTRIDGE. * J0222750
2349 | * * IF THEY ARE NOT EQUAL A DIAGNOSTIC PRINTOUT * J0222760
2350 | * WILL OCCUR AND THE LONGER WILL BE REDUCED TO * J0222770
2351 | * THE SHORTER WHERE POSSIBLE. * J0222780
2352 | * * IF BY REMOVING 1 OR MORE LET ENTRIES A * J0222790
2353 | * MATCH WILL OCCUR THEN THE NAMES OF THOSE * J0222800
2354 | * ENTRY(S) WILL BE PRINTED AS THEY ARE REMOVED. * J0222810
2355 | * * J0222820
2356 | *************************************************** J0222830
2357 | * * J0222840
2358 | * INITIALIZATION * J0222850
2359 | * * J0222860
2360 | *************************************************** J0222870
16BF 0000 2361 | LETSR DC *-* RECORD RETURN ADDR J0222880
16C0 4480 7DB9 2362 | BSI I PHID RECORD PHASE ID J0222890
16C2 C002 2363 | DC /C002 INITIAL LET SEARCH IN DCTL J0222900
2364 | * J0222910
16C3 C12B 2365 | LD 1 STSW J0222920
16C4 D04C 2366 | STO LE960 PERMIT RECORDING IF STORING J0222930
2367 | * J0222940
16C5 4C18 16CB 2368 | BSC L LE010,-+ NOT STORE FUNCTION J0222950
2369 | * J0222960
16C7 C192 2370 | LD 1 #TODR PICK UP DRIVE NO FOR STORE J0222970
16C8 6680 7F32 2371 | LDX I2 #TODR+C PICK UP LOG DRIVE NO. J0222980
16CA 7003 2372 | MDX LE020 CONTINUE SEARCH,STORE TYPE J0222990
2373 | * J0223000
16CB C193 2374 | LE010 LD 1 #FRDR PICK UP PROPER DRIVE IND. J0223010
16CC 6680 7F33 2375 | LDX I2 #FRDR+C PICK UP LOG DRIVE NO. J0223020
16CE 6301 2376 | LE020 LDX 3 1 SET UP FOR SINGLE DRIVE J0223030
16CF 4C10 16D3 2377 | BSC L LE030,- SINGLE DRIVE SPECIFIED J0223040
2378 | * J0223050
16D1 6200 2379 | LDX 2 0 SET DRIVE NO TO LOG ZERO J0223060
16D2 6305 2380 | LDX 3 5 ALLOW FOR MAX OF 5 DRIVES J0223070
16D3 6B3C 2381 | LE030 STX 3 LE950 MAX DRIVE COUNT TO SEARCH J0223080
2382 | * J0223090
16D4 C984 2383 | LDD 1 #NAME PICK UP NAME SPECIFIED J0223100
16D5 1082 2384 | SLT 2 ELIMINATE FIRST TWO BITS J0223110
16D6 D835 2385 | STD LE930 RECORD SHIFTED NAME J0223120
2386 | * J0223130
16D7 6780 7FFC 2387 | LDX I3 LETAR+C RECORD L/F IOAR HDR ADDR J0223140
2388 | * J0223150
16D9 7005 2389 | MDX LE042 BYPASS RESET OF RECORD SW J0223160
2390 | *************************************************** J0223170
2391 | * * J0223180
2392 | * SET UP NEW DRIVE PROCESSING * J0223190
2393 | * * J0223200
2394 | *************************************************** J0223210
16DA 1010 2395 | LE040 SLA 16 CREATE ZERO J0223220
16DB D035 2396 | STO LE960 TURN OFF RECORD SWITCH J0223230
2397 | * * J0223240
16DC 74FF 1710 2398 | MDX L LE950,-1 REDUCE NO OF DRIVES TO SRCH J0223250
16DE 7201 2399 | MDX 2 +1 ADVANCE TO NEXT DRIVE J0223260
16DF C030 2400 | LE042 LD LE950 J0223270
16E0 4C08 1703 2401 | BSC L LE090,+ LAST REQD DRIVE SEARCHED J0223280
2402 | * J0223290
16E2 7030 2403 | MDX LE200 PROCESS NEW DRIVE 212 J0223300
2404 | * J0223310
16E3 4480 7DB9 2405 | LE044 BSI I PHID RECORD PH IN PROGRESS 212 J0223320
16E5 E002 2406 | DC /E002 NEW DRIVE OR EXIT LETSR J0223330
2407 | * J0223340
16E6 4480 7DB7 2408 | BSI I MDUMP PRINT UPCOR EXCLUDING LETAR J0223350
2409 | * J0223360
16E8 C306 2410 | LD 3 6 LET SECTOR ADDR INCL DRIVE J0223370
16E9 1004 2411 | SLA 4 J0223380
16EA 4C18 1703 2412 | BSC L LE090,-+ ZERO ADDR.L/F SEARCH COMP J0223390
2413 | * J0223400
2414 | *************************************************** J0223410
2415 | * * J0223420
2416 | * SET UP NEW SECTOR PROCESSING * J0223430
2417 | * * J0223440
2418 | *************************************************** J0223450
16EC C306 2419 | LE050 LD 3 6 LET SECTOR ADDR J0223460
16ED 4C18 16DA 2420 | BSC L LE040,-+ LAST L/F SCTR OF DR SEARCHD J0223470
2421 | * J0223480
16EF 4480 7DB9 2422 | BSI I PHID RECORD PHASE ID PROGRESS J0223490
16F1 D002 2423 | DC /D002 NEW SECTOR OF FLET SEARCH J0223500
2424 | * J0223510
16F2 7027 2425 | MDX LE400 PROCESS NEW SCTR AND HDR212 J0223520
2426 | * J0223530
2427 | *************************************************** J0223540
2428 | * * J0223550
2429 | * SET UP NEXT ENTRY PROCESSING * J0223560
2430 | * * J0223570
2431 | *************************************************** J0223580
16F3 74FD 7FC9 2432 | LE060 MDX L SKWDS+C,-3 DECREMENT BY 1 ENTRY J0223590
16F5 7003 2433 | MDX LE062 MORE ENTRYS TO PROCESS J0223600
2434 | * J0223610
16F6 6780 7FFC 2435 | LDX I3 LETAR+C POINT TO IOAR HDR OF LET J0223620
16F8 70F3 2436 | MDX LE050 LAST ENTRY OF SCTR PROCESSD J0223630
2437 | * * J0223640
16F9 7042 2438 | LE062 MDX LE600 PROCESS NEXT L/F ENTRY 212 J0223650
2439 | * * J0223660
16FA C124 2440 | LE063 LD 1 NAMSW 212 J0223670
16FB 4C18 16F3 2441 | BSC L LE060,-+ NAME NOT FOUND J0223680
2442 | * * J0223690
2443 | *************************************************** J0223700
2444 | * * J0223710
2445 | * PROCESS ENTRY OF NAME THAT WAS FOUND * J0223720
2446 | * * J0223730
2447 | *************************************************** J0223740
16FD C303 2448 | LD 3 3 J0223750
16FE D186 2449 | STO 1 #DBCT DB SIZE OF ENTRY J0223760
2450 | * J0223770
16FF C80E 2451 | LDD LE932 J0223780
1700 D984 2452 | STD 1 #NAME RECORD FOUND NAME & INDR-S J0223790
2453 | * J0223800
1701 6F00 7FB7 2454 | STX L3 DELSW+C REL ADDR OF L/F ENTRY -1 J0223810
2455 | * J0223820
2456 | *************************************************** J0223830
2457 | * * J0223840
2458 | * EXIT FROM .LETSR. SUBROUTINE * J0223850
2459 | * * J0223860
2460 | *************************************************** J0223870
1703 2461 | LE090 EQU * LABEL FOR NEXT INSTRUCTION J0223880
2462 | * J0223890
2463 | *************************************************** J0223900
1703 4C80 16BF 2464 | BSC I LETSR LET SEARCH COMPLETE -RETURN J0223910
2465 | *************************************************** J0223920
DCTL - LET SEARCH - CONSTANTS+WK AREA
2467 | *************************************************** J0223940
2468 | * * J0223950
2469 | * CONSTANTS AND WORK AREAS USED BY LET SEARCH * J0223960
2470 | * * J0223970
2471 | *************************************************** J0223980
1705 7112 2472 | LE906 DC /7112 FIRST WORD OF 1DUMY J0223990
1706 0000 2473 | LE908 DC 0 NON ZERO FOR LET SEARCHING J0224000
1707 F000 2474 | LE917 DC /F000 MASK FOR THE DRIVE CODE J0224020
1708 0000 2475 | LE918 DC *-* CURRENT LOGICAL DRIVE J0224030
1709 0140 2476 | LE920 DC 320 WORD COUNT OF 1 SECTOR J0224040
170A 0000 2477 | LE929 DC *-* SCTR ADDR OF LAST PROC SCTR J0224050
170C 2478 | LE930 BSS E 2 GIVEN NAME SHIFTED LEFT 2 J0224060
170E 2479 | LE932 BSS 2 CURRENT ENTRY NAME J0224070
1710 2480 | LE950 BSS 1 NO.OF DRIVES YET TO SEARCH J0224080
1711 2481 | LE960 BSS 1 NON ZERO TO RECORD LET INFO J0224090
1712 6400 2482 | LE970 DC /6400 NO. DB PER CART 2-10 J0224095
2483 | *************************************************** J0224100
DCTL - LET SEARCH - NEW DRIVE
2485 | *************************************************** J0224120
2486 | * * J0224130
2487 | * PROCESS A NEW DRIVE * J0224140
2488 | * * J0224150
2489 | *************************************************** J0224160
1713 2490 | LE200 EQU * ENTRY POINT 212 J0224170
1713 C600 7F70 2491 | LD L2 #ULET+C PICK UP LET SECT ADDR J0224180
1715 D306 2492 | STO 3 6 RECORD NEXT LET SCTR ADDR J0224190
2493 | * J0224200
1716 E0F0 2494 | AND LE917 MASK J0224210
1717 D0F0 2495 | STO LE918 SAVE DRIVE CODE BITS ONLY J0224220
2496 | * * J0224230
2497 | * ONE INSTR REMOVED 212 J0224240
1718 68ED 2498 | STX LE908 SET L/F SW TO LET 212 J0224250
2499 | * * J0224260
1719 70C9 2500 | MDX LE044 NEW DRIVE SELECTED-RTN 212 J0224270
2501 | *************************************************** J0224280
DCTL - LET SEARCH - NEW SECTOR
2503 | *************************************************** J0224300
2504 | * * J0224310
2505 | * PROCESS NEW LET/FLET SECTOR * J0224320
2506 | * RECORD THE PREVIOUS SECTOR ADDR * J0224330
2507 | * RECORD THE REQD LET/FLET SCTR IOAR HDR,FETCHIT* J0224340
2508 | * * J0224350
2509 | *************************************************** J0224360
171A 2510 | LE400 EQU * ENTRY POINT 212 J0224370
171A 6780 7FFC 2511 | LDX I3 LETAR+C INIT XR3 FOR L/F IOAR HDR J0224380
171C C301 2512 | LD 3 1 J0224390
171D D0EC 2513 | STO LE929 RECORD LAST SCTR PROCESSED J0224400
2514 | * * J0224410
171E C306 2515 | LD 3 6 REQD SCTR ADDR J0224420
171F E8E8 2516 | OR LE918 INCL DRIVE CODE J0224430
1720 D301 2517 | STO 3 1 RECORD REQD SCTR ADDR J0224440
1721 D122 2518 | STO 1 LSTLF RECORD SECTOR AND DRIVE J0224450
2519 | * J0224460
1722 C0E6 2520 | LD LE920 J0224470
1723 D300 2521 | STO 3 0 WORD COUNT FOR 1 SECTOR J0224480
2522 | * * J0224490
1724 4480 7DB3 2523 | BSI I GET FETCH REQD LET/FLET SECTOR J0224500
2524 | * * J0224510
2525 | *************************************************** J0224520
2526 | * * J0224530
2527 | * CHECK FOR FIRST LET AND FLET SECTORS ON THIS * J0224540
2528 | * DRIVE AND SET RESPECTIVE PARAMETERS FOR THE * J0224550
2529 | * UA AND FIXED AREA IF A FIRST SCTR IS IDENTIFD * J0224560
2530 | * * J0224570
2531 | *************************************************** J0224580
1726 C600 7F70 2532 | LE450 LD L2 #ULET+C FIRST LET SECTOR ADDR J0224590
1728 9301 2533 | S 3 1 SCTR JUST IN CORE J0224600
1729 4C20 172C 2534 | BSC L LE460,Z NOT FIRST LET SECTOR J0224610
2535 | * J0224620
172B 7006 2536 | MDX LE465 SET UP FOR FIRST LET SCTR J0224630
2537 | * * J0224640
172C C600 7F6B 2538 | LE460 LD L2 #FLET+C FLET SCTR ADDR J0224650
172E 9301 2539 | S 3 1 ADDR OF SCTR JUST READ J0224660
172F 4C20 1735 2540 | BSC L LE470,Z NOT FIRST FLET SCTR J0224670
2541 | * * J0224680
1731 D0D4 2542 | STO LE908 SET LET/FLET SW TO FLET J0224690
2543 | * * J0224700
1732 C303 2544 | LE465 LD 3 3 STARTING SECTOR J0224710
1733 1004 2545 | SLA 4 CONVERT TO DB-S J0224720
1734 D116 2546 | STO 1 DBADR DB ADDR,STARTING J0224730
2547 | * J0224740
1735 C0D3 2548 | LE470 LD LE920 WORDS/SCTR J0224750
1736 9305 2549 | S 3 5 WORDS AVAIL ON THIS SCTR J0224760
1737 D129 2550 | STO 1 SKWDS NO OF WORDS TO SEARCH J0224770
2551 | * J0224780
1738 74FE 7FC9 2552 | MDX L SKWDS+C,-2 SUB HDR WDS,ADD 1 ENTRY J0224790
2553 | * J0224800
173A 7303 2554 | MDX 3 +3 PT TO 1ST ENTRY -1,-1 ENTRY J0224810
2555 | * J0224820
173B 70B7 2556 | MDX LE060 SCTR HDR PROCESSED-RTN 212 J0224830
2557 | *************************************************** J0224840
DCTL - LET SEARCH - NEW ENTRY
2559 | *************************************************** J0224860
2560 | * * J0224870
2561 | * PROCESS A NEW LET/FLET ENTRY.NAME AND DB COUNT* J0224880
2562 | * * J0224890
2563 | *************************************************** J0224900
173C 2564 | LE600 EQU * ENTRY POINT 212 J0224910
173C 7303 2565 | MDX 3 +3 ADVANCE POINTER 1 ENTRY J0224920
173D C302 2566 | LD 3 2 WORD 2 OF THE NAME J0224930
173E 18D0 2567 | RTE 16 J0224940
173F C301 2568 | LD 3 1 WORD 1 OF THE NAME J0224950
1740 D8CD 2569 | STD LE932 CURRENT ENTRY NAME J0224960
2570 | * J0224970
1741 1082 2571 | SLT 2 ELIMINATE TYPE ID J0224980
1742 98C9 2572 | SD LE930 J0224990
1743 4C20 174B 2573 | BSC L LE650,Z FIRST WORD OF NAME DIFFERS J0225000
2574 | * J0225010
1745 18D0 2575 | RTE 16 J0225020
1746 4C20 174B 2576 | BSC L LE650,Z SECOND WORD OF NAME DIFFERS J0225030
2577 | * * J0225040
2578 | *************************************************** J0225050
2579 | * * J0225060
2580 | * SPECIFIED PROGRAM NAME FOUND IN LET/FLET SCTR J0225070
2581 | * * J0225080
2582 | *************************************************** J0225090
1748 6C00 7FC4 2583 | STX L NAMSW+C INDICATE THAT NAME FOUND J0225100
174A 70AF 2584 | LE625 MDX LE063 NAME FOUND, RETURN 212 J0225110
2585 | * * J0225120
2586 | *************************************************** J0225130
2587 | *************************************************** J0225140
2588 | * * J0225150
2589 | * CHECK FOR AND PROCESS 1DUMY ENTRIES * J0225160
2590 | * * J0225170
2591 | *************************************************** J0225180
174B C0C5 2592 | LE650 LD LE960 *IS RECORDING REQUIRED J0225190
174C 4C18 1773 2593 | BSC L LE685,-+ *NO,PARAMS OF 1DUMY NOT REQ J0225200
2594 | * J0225210
174E C301 2595 | LD 3 1 FIRST WORD OF NAME J0225220
174F 90B5 2596 | S LE906 J0225230
1750 4C20 1773 2597 | BSC L LE685,Z NOT A 1DUMY ENTRY J0225240
2598 | * J0225250
1752 C0B3 2599 | LD LE908 J0225260
1753 4C20 1761 2600 | BSC L LE670,Z SEARCHING A LET SECTOR 212 J0225270
2601 | * * J0225280
2602 | *************************************************** J0225290
2603 | * * J0225300
2604 | * PROCESS A 1DUMY FLET ENTRY * J0225310
2605 | * * J0225320
2606 | *************************************************** J0225330
1755 C303 2607 | LD 3 3 J0225340
1756 9195 2608 | S 1 #FSZE J0225350
1757 4C08 1773 2609 | BSC L LE685,+ CURRENT ENTRY NOT LARGER J0225360
2610 | * J0225370
1759 C11E 2611 | LD 1 FXSW J0225380
175A 4C18 1773 2612 | BSC L LE685,-+ STORE IS TO UA J0225390
2613 | * * J0225400
175C C303 2614 | LD 3 3 J0225410
175D D195 2615 | STO 1 #FSZE RECORD LARGER ENTRY J0225420
2616 | * J0225430
175E C116 2617 | LD 1 DBADR J0225440
175F D194 2618 | STO 1 #FHOL RECORD DBADR OF LARGER HOLE J0225450
2619 | * J0225460
1760 700C 2620 | MDX LE680 FINISH PROCESSING FLET ENTR J0225470
2621 | * * J0225480
2622 | *************************************************** J0225490
2623 | * * J0225500
2624 | * PROCESS A 1DUMY LET ENTRY * J0225510
2625 | * * J0225520
2626 | *************************************************** J0225530
1761 C130 2627 | LE670 LD 1 UASW 2-10 J0225540
1762 4C18 1773 2628 | BSC L LE685,-+ STORE IS TO FXA 2-10 J0225550
2629 | * 2-10 J0225560
1764 C303 2630 | LD 3 3 DB CNT OF THIS 1DUMY 2-10 J0225570
1765 8116 2631 | A 1 DBADR BEGIN ADDR THIS 1DUMY 2-10 J0225580
1766 90AB 2632 | S LE970 SUB NO. DB PER CART 2-10 J0225590
1767 4C28 1773 2633 | BSC L LE685,+Z BR IF NOT LAST 1DUMY 2-10 J0225595
2634 | * * J0225600
1769 C303 2635 | LD 3 3 J0225610
176A D197 2636 | STO 1 #USZE DB SIZE LAST UA 1DUMY 2-10 J0225620
2637 | * J0225630
176B C116 2638 | LD 1 DBADR J0225640
176C D196 2639 | STO 1 #UHOL DB ADDR LAST UA 1DUMY 2-10 J0225650
2640 | * J0225660
2641 | *************************************************** J0225670
2642 | * * J0225680
2643 | * COMPLETE THE PROCESSING OF THE LET/FLET ENTRY * J0225690
2644 | * * J0225700
2645 | *************************************************** J0225710
176D 6F00 7FB7 2646 | LE680 STX L3 DELSW+C POINT TO 1DUMY ENTRY -1 J0225720
2647 | * J0225730
176F C400 7783 2648 | LD L BUF5+1 PICK UP CURRENT SECTOR ADDR J0225740
1771 E896 2649 | OR LE918 INCL DRIVE CODE J0225750
1772 D12B 2650 | STO 1 STSW SCTR ADDR & DRIVE CODE J0225760
2651 | * J0225770
1773 C303 2652 | LE685 LD 3 3 J0225780
1774 8116 2653 | A 1 DBADR J0225790
1775 D116 2654 | STO 1 DBADR RECORD DB ADDR OF NEXT NTRY J0225800
2655 | * J0225810
1776 C12B 2656 | LD 1 STSW J0225820
1777 4C20 177B 2657 | BSC L LE690,Z STORE TYPE OPERATION J0225830
2658 | * * J0225840
1779 6F00 7FB7 2659 | STX L3 DELSW+C RECORD REL POSITION IN L/F J0225850
2660 | * J0225860
2661 | *************************************************** J0225870
2662 | *************************************************** J0225880
2663 | * * J0225890
177B 70CE 2664 | LE690 MDX LE625 ENTRY COMPLETED-RETURN 212 J0225900
2665 | * * J0225910
2666 | *************************************************** J0225920
2667 | *************************************************** J0225930
2668 | * * J0225940
177C 2669 | BSS BUF5-*-/6000-1 PATCH ROOM J0225950
1781 FFFF 2670 | DC /FFFF END OF DCTL PATCH AREA J0225960
2671 | * * J0225970
2672 | *************************************************** J0225980
2673 | *************************************************** J0225990
1782 2674 | END READ J0226000
There were no errors in this assembly
Program transfer address = 11E0
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
#ACIN FF9C 98
#ANDU FFA3 104
#BNDU FFA8 105
#CBSW FF8A 77
#CIAD FF9B 97
#CIBA FFBC 109
#CIDN FFB7 108 1617
#CSHN FFDA 115
#DBCT FF86 73 1009 1016 1029 1118 1378 2449
#DCOM 0001 116
#DCSW FF98 94 435
#ECNT FFA1 103
#ENTY FF90 83 2259
#FCNT FF87 74 1229
#FHOL FF94 90 479 2618
#FLET FFCB 112 831 1422 1423 1424 1425 1426 1430 2538
#FMAT FFC6 111 1020 1037 1045 1354 2215
#FPAD FFAD 106
#FRDR FF93 88 478 901 907 1013 1106 1345 1348 1349 1419 1429 1447 1495
2211 2218 2374 2375
#FSZE FF95 91 2608 2615
#GCNT FF9E 100 1230
#GRPH FF9D 99
#HDNG 0007 117
#JBSW FF89 76 1249
#LCNT FF8B 78 1227
#LOSW FF9F 101 1193
#MDF1 FF8D 80 660
#MDF2 FF8E 81
#MPSW FF8C 79 1135 1208
#NAME FF84 72 880 1032 1332 1357 1358 1393 1440 1466 1795 1805 1806 1817
2173 2179 2193 2240 2246 2383 2452
#NCNT FF8F 82 1228
#PCID FFB2 107
#PIOD FF99 95 769 842
#PPTR FF9A 96
#RP67 FF91 84
#SCRA FFC1 110
#SYSC FF88 75
#TODR FF92 87 477 827 828 909 917 998 1008 1400 1403 1506 2370 2371
#UHOL FF96 92 480 2639
#ULET FFD0 113 2491 2532
#USZE FF97 93 2636
#WSCT FFD5 114 1014 1107 1352 2212
#X3SW FFA0 102 1197
$1132 007F 33
$1403 0080 34
$ACDE 009F 42
$BYSW 01CB 52
$CH12 0006 4
$CIBA 0005 3
$COMN 0007 5
$CORE 000E 6 1758
$CPTR 007E 32
$CTSW 000F 7 475 498 636
$CYLN 009A 41
$DABL 0011 9
$DADR 0010 8
$DBSY 00EE 51
$DCDE 0077 25
$DCYL 00A4 43
$DREQ 0012 10 1180
$DUMP 003F 24
$EXIT 0038 22
$FPAD 0095 40 2220
$HASH 0014 12
$I200 00B3 44
$I205 00B8 45 46
$I400 00C4 47
$I405 00D3 48 49
$I410 00D5 50
$IBSY 0013 11 2031
$IBT2 00B9 46
$IBT4 00D4 49
$IOCT 0032 16
$IREQ 002C 14
$KCSW 007C 30
$LAST 0033 17
$LINK 0039 23
$NDUP 0034 18
$NXEQ 0035 19
$PBSY 0036 20
$PGCT 0037 21
$PHSE 0078 26
$PRET 0028 13
$PST1 0081 35
$PST2 0085 36
$PST3 0089 37
$PST4 008D 38
$STOP 0091 39
$UFDR 007D 31
$UFIO 0079 27
$ULET 002D 15
$WRD1 007B 29
$WSDR 007A 28 904 916 1347
$ZEND 01E0 54 265
'SBFR 0FB0 118
ADDR2 003D 227
ASMSW 000E 152
B 01DE 265 266 267 268 269 270 271 272 1706 1733 1742
BINEB 7DB0 279
BITSW 000F 153 513 521
BLKSW 0010 154 492
BUF1 79B5 304 305
BUF2 7963 305 306
BUF3 7925 306 307 473 515 658 734 785 925 935 1053 1085 1205 1786
BUF4 78D3 307 667
BUF5 7782 308 309 2648 2669
BUF6 7D91 297 298 299
BUF7 0640 309
C 7FA0 56 660 773 827 831 846 850 905 1013 1014 1017 1020 1027
1037 1045 1082 1106 1107 1349 1352 1354 1429 1430 1489 1617
1845 2092 2205 2211 2212 2215 2371 2375 2387 2432 2435 2454
2491 2511 2532 2538 2552 2583 2646 2659
CATCO 7F1E 274
CIERR 0011 155 1690
CIHDR 0008 138
CISW 0012 156 455 1138 2130
CKFXA 1423 1271 832 1273 1431
CKTMP 140D 1248 834 1044 1250 1385 1460
CL1 000E 151
CL2 0037 203
CLBSW 0013 157
CNTNO 0014 158
COUNT 1341 979 1010 1028
CRBUF 0057 254
D2HDR 000C 140 616
DA100 15AE 1885 1923
DA150 15B1 1890 1904
DA170 15B6 1897 1894
DA180 15BD 1906 1895
DA200 15C0 1910 1844
DA700 15C4 1914 1856 1862 1873 1879 1918
DA800 15C9 1920 1854 1859 1870 1876 1928
DA900 15D5 1935 1899
DA901 15D6 1936 1921
DA902 15D7 1937 1922
DA903 15D8 1938 1924
DACNT 1598 1843 1079 1218 1295 1375 1911
DACTL 1434 1295 575
DATSW 0015 165 1019 1022 1047 1083 1104 1108 1117 1232 1300 1350 1377 1888
1908 1915 1916 2132
DBADR 0016 166 2546 2617 2631 2638 2653 2654
DCADR 0058 255
DCBAF 128F 715 528 547 551 557 563 576 590 599 624 716 717 719
722 723 736 744 751 758 787 794 801 814 821 926
936 989 1054 1070 1087 1096 1148 1154 1162 1168 1206 1302
DCBAG 1295 719 724
DCEXF 127E 686 532 536 567 571 584 594 603 607 628 632 640 687
688 691 692 693 765 838 1130 1175
DCHDR FFF0 126
DCTL 11E0 269
DCTLC 11DE 270 394 615
DDCTL 1478 1369 598
DELSW 0017 167 2454 2646 2659
DFHDR FFFC 132
DFLSW 0036 201 1370
DFNSW 0018 168 1490
DISKZ 00F2 264
DKSAD 0019 169
DLCTL 14C0 1460 611
DLHDR FFF8 130 1734
DMHDR FFF6 129 1722
DMPLC 01DE 266
DSPEC 1340 978 910 993
DTHDR FFFA 131 1743
DU002 1456 1342 1333
DU003 1460 1349 1346
DU004 1469 1354 1351
DU006 1471 1361 1344
DU008 1476 1366 1355 1359
DU009 148C 1387 1384
DUCTL 143F 1314 561 1304
DUMPC 41DE 272 1721
DUMPP 001A 170 432
DUPCO 7DB0 273 278 297
DUPCR 003C 221 481 496
DXHDR FFFE 133
DZ000 00F2 53 264
EBCSW 0033 198 1092 1306 1967
ENTER 7DB2 281
EXITC 01DE 267
FL050 14AB 1429 1420
FL060 14AF 1431 1427
FLCTL 14A0 1411 588
FLHDR FFF4 128 1707
FLQSW 0023 425 442 446 1708
FORSW 001C 171
FR020 14DB 1503 1491
FR040 14DE 1509 1488
FR050 14E2 1518 1493 1504 1528
FR055 14E4 1521 1571
FR060 14E9 1528 1631
FR100 14EB 1535 1519
FR310 14FA 1562 1568
FR320 1500 1567 1603
FR350 1504 1578 1565
FR370 1512 1597 1581
FR380 1517 1603 1590
FR600 1518 1611 1525
FR610 151A 1617 1622
FR690 1522 1627 1619
FR800 1527 1639 1624
FR810 152A 1642 1521 1585 1599
FR930 152D 1650 1563
FR931 152E 1651 1584
FR932 152F 1652 1580
FR933 1530 1653 1588
FR937 1531 1654 1598
FR960 1532 1655 1541 1545 1549 1553 1562 1579 1583 1597 1614 1618 1629 1630
FRLAB 14D2 1487 555 857 1381 1462 1510
FRWS 001D 172 741 808 861 1011 1082 1101 1235
FXSW 001E 173 762 825 875 963 1041 1343 1387 2146 2611
GET 7DB3 282 1672 2034 2223 2523
GETBI 7A0B 301 2071 2077
GETHO 7A0A 300 484
HDBUF 0059 256
HDNSW 0034 199 2249
HOLSW 001F 174
IBT 0049 245
INOUT 003F 234 1964
IOADR 7A06 299 300 301 302 303 304 308 1980 2028
IOBLK 005A 257
IOREQ 0038 211 464 1754 1970
IOSW 0020 175 773 846 862 905 1316 1321 1335 2067
KBREQ 003E 228
LE010 16CB 2374 2368
LE020 16CE 2376 2372
LE030 16D3 2381 2377
LE040 16DA 2395 2420
LE042 16DF 2400 2389
LE044 16E3 2405 2500
LE050 16EC 2419 2436
LE060 16F3 2432 2441 2556
LE062 16F9 2438 2433
LE063 16FA 2440 2584
LE090 1703 2461 2401 2412
LE200 1713 2490 2403
LE400 171A 2510 2425
LE450 1726 2532
LE460 172C 2538 2534
LE465 1732 2544 2536
LE470 1735 2548 2540
LE600 173C 2564 2438
LE625 174A 2584 2664
LE650 174B 2592 2573 2576
LE670 1761 2627 2600
LE680 176D 2646 2620
LE685 1773 2652 2593 2597 2609 2612 2628 2633
LE690 177B 2664 2657
LE906 1705 2472 2596
LE908 1706 2473 2498 2542 2599
LE917 1707 2474 2494
LE918 1708 2475 2495 2516 2649
LE920 1709 2476 2520 2548
LE929 170A 2477 1474 2513
LE930 170C 2478 2385 2572
LE932 170E 2479 2451 2569
LE950 1710 2480 2381 2398 2400
LE960 1711 2481 2366 2396 2592
LE970 1712 2482 2632
LEAVE 7DB4 283 697 947 1252 1255 1258 1261 1264 1268 1275 1278 1281 1284
1639 1642 1827 2279 2283 2287 2291 2295 2300
LECTL 14B1 1438 582
LETAR 005C 259 2387 2435 2511
LETSR 16BF 2361 883 1361 1396 1443 1469 2182 2464
LETSW 0021 180 580 1412
LINE 7DB5 284 655
LSTLF 0022 181 996 1445 1475 2518
MASK 7DB6 285
MDUMP 7DB7 286 1670 2408
MODSW 0023 182 425 1027 2164
MUHDR 000A 139
MUPC 01DE 268
NAMSW 0024 183 960 1005 1017 1114 1223 1363 1397 1449 1471 2185 2440 2583
NEGSW 0025 184
NEXT 005F 262 2092 2205
P1442 0052 251
PACKB 7A0C 302 2079
PAGE 7DB8 287
PCHBI 7A0D 303
PEBUF 005D 260 1489 1845
PGMHL 0026 185 2263
PH2 0039 212 1760
PH201 0001 402 2280
PH202 0002 403 2284
PH203 0003 404 2288
PH205 0005 405 2301
PH206 0006 406 1279
PH212 000C 407 1177
PH213 000D 408 534 538 569 573 586 596 605 609 1132
PH214 000E 409 767 1259
PH215 000F 410 840 1265
PH216 0010 411 1828
PH217 0011 412 1282
PH218 0012 413 1253
PH219 0013 414 1640
PH220 0014 415 1643
PH221 0015 416 1262
PH222 0016 417 2296
PH223 0017 418 948
PH224 0018 419
PH225 0019 420 1256
PH226 001A 421 1269
PH227 001B 422 2292
PH285 0055 423 1276
PH3 003A 213 1686 1696
PH4 003B 214 1723
PHDUP 0056 253
PHID 7DB9 288 427 1667 2362 2405 2422
PHIDM 7DBA 289
PIHDR 0002 135 2000 2011 2019
PL009 153F 1674
PL030 1541 1681 1067 1401 1404
PL035 1548 1689 456 1684
PL040 1552 1706 1238
PL050 1557 1717 1366
PL055 1558 1721
PL060 155D 1733 1441 1452
PL070 1561 1742 1477
PL500 1565 1752 971 1681 1717 1762
PL510 1569 1758 1973
PLUS2 1536 1664 617 1698 1710 1725 1735 1744
PLUSX 1537 1665
PRINT 7DBB 290 657 668
PRPAR 0054 252 431
PRPNT 7C50 298
PRSW 0027 186 798 1339
PTHDR 0006 137
PTPON 0040 236
PTSW 0028 187 748 771 791 844 1338 1961 2070
PUT 7DBC 291
RD010 161B 2073 2117 2118 2119
RD015 1622 2092 2225
RD020 1629 2103 2097
RD060 163A 2130 2106 2107
RD065 1640 2135 2131
RD100 1646 2144 2108 2109
RD150 164A 2149 2110 2111 2112 2165 2171 2196
RD160 164B 2152 2142
RD210 164D 2163 2147
RD220 1658 2176 2190
RD230 165E 2184 2180
RD240 1669 2195 2166
RD500 166C 2205 2068
RD550 1683 2233 2133 2150 2235 2238 2250
RD600 1697 2257 2152
RD750 16A2 2275
RD790 16A4 2279 2243 2247
RD800 16A7 2283 2105 2113 2114 2115 2116 2120
RD810 16AA 2287 2266 2271
RD820 16AD 2291 2216
RD830 16B0 2295 1015 1110 1353 2213
RD850 16B3 2299 2186
RD900 16B6 2304 2174 2192
RD902 16B8 2306 2139 2168
RD903 16B9 2307 2169 2189
RD904 164C 2156 2096
RD909 16BA 2308 2262
RD912 16BB 2309 2265
RD939 16BC 2310 2268
RD952 16BD 2311 2208
RD999 16BE 2312 2241
RDHDR 1614 2066 973 1048 1236 2275
RE005 11F0 455 443
RE010 11F6 473 493 638 646
RE015 1204 492 482
RE020 1222 547 530
RE030 122F 563 559
RE035 123A 576 565
RE038 1240 584 578
RE040 1245 590 553
RE045 124D 599 592
RE050 1258 614 549 601
RE060 125D 623 499
RE070 126A 640 626
RE080 126F 654 501 644 663
RE902 127A 667 430
RE903 127C 669 516
RE904 127D 670 517
READ 11E0 426 2674
REST 7DBD 292
RI700 15D9 1956 1756
RI708 15E7 1972 1957 1958 1992
RI709 15EB 1980 1969
RI710 15FA 1999 465 2004
RI720 15FF 2011 1965
RI730 1601 2019 1962
RI800 1603 2027 1959 2002 2036
RI810 1604 2028 2012 2020
RI900 160E 2038 1981
RI905 160F 2039 1982
RI906 1610 2040 1984
RI907 1611 2041 1986
RI908 1612 2042 1988
RI909 1613 2043 1990
RPGSW 0035 200
RTURN 7DBE 293
SC130 129C 733 774 859 1314
SC132 12A5 744 738
SC134 12AA 751 746
SC135 12AF 758 753
SC137 12B4 765 760
SC138 12BA 773 749
SC139 12BC 774 742 756 763
SC170 12BE 784 847 870 1319 1382
SC172 12C6 794 789
SC173 12CB 801 796
SC175 12D4 814 803
SC176 12D9 821 816
SC177 12E9 838 823
SC178 12EF 846 792 799
SC179 12F1 847 811 819 836
SDBUF 005B 258
SIHDR 0004 136
SKWDS 0029 188 2432 2550 2552
SN100 1592 1827 1815 1829
SN901 1595 1832 1814
SN902 1596 1833 1819
SN903 1597 1834 1821
SNAME 156F 1785 878 1330 1392 1438 1464 1797 1820 1822 1824
ST001 130B 901 872
ST002 1314 909 902
ST003 131E 924 912
ST004 1324 935
ST005 1332 951 944
ST007 132F 947 1061
ST010 1335 960 940
ST015 133B 971 447 1233
ST200 1344 988 928
ST205 1353 1009 994 1006
ST210 136A 1027 1018
ST220 1378 1040 1025
ST230 1398 1067 976 1046 1057 1122
ST400 139A 1070 991
ST410 13AC 1096 1090
ST412 13B1 1101 1098
ST500 13BE 1114 1094 1102 1105
ST600 13C6 1130 1072
ST610 13D3 1154 1150
ST615 13D7 1158 1152
ST620 13D9 1162 1156
ST630 13DE 1168 1164
ST633 13E2 1172 1166
ST635 13E4 1175 1170
ST640 13E9 1180 1159 1173
ST650 13F9 1218
ST805 1414 1255 1038
ST810 1417 1258 863 1012 1317
ST815 141A 1261 1030
ST820 141D 1264 809 876 964 1042 1221 1323 1388
ST830 1592 1829 881 1336 1340 1394 1467
ST835 1420 1268 1364 1450 1472
ST840 1427 1275
ST850 142A 1278 961 1115 1224 1398
ST855 142D 1281 1120 1379 1926
ST860 1430 1284 1693
ST861 1432 1285 1691
ST903 1342 980 951 1062
ST904 1343 981 943 1059
ST905 1433 1287 1192 1196
STCSW 002A 189 1024 1100
STCTL 12F3 850 540
STHDR FFF2 127 1695
STSW 002B 190 850 1371 2365 2650 2656
T3MSW 002F 194 953 1052 1064
TEMP1 002C 191 1886 1898 1901 1907
TEMP2 002D 192 1891 1903
THIS 005E 261 2073 2075
TOWS 002E 193 806 871 914 1220 1322 2234
UASW 0030 195 755 818 874 1040 1342 1383 1386 2145 2627
UCHDR 0000 134
WRTDC 7DB1 280
WSDC 21DE 271 1687 1689
WSSW 0031 196 740 805
XEQSW 0032 197 1664