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