ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 2020 Source File: \jdfileq.asm FILEQ--RESIDENT COMMA 2 AUG 67 2 | ABS J0400020 0005 3 | $CIBA EQU /5 ADDR OF CIB ON MASTER CARTRIDGE J0400030 0006 4 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 J0400040 0007 5 | $COMN EQU /7 WORD COUNT OF COMMON J0400050 000E 6 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC) J0400060 000F 7 | $CTSW EQU /F MCR SW,NON-ZERO=// RECD TRAPPED J0400070 0010 8 | $DADR EQU /10 SCTR ADDR OF PROG TO BE FETCHED J0400080 0011 9 | $DABL EQU /11 IOCC FOR SCA RESET (ODD ADDR) J0400090 0012 10 | $DREQ EQU /12 INDR FOR REQUESTED V. DISK I/O J0400100 0013 11 | $IBSY EQU /13 PRINC I/O BUSY INDR,NON-ZERO=BSY J0400110 0014 12 | $HASH EQU /14 WORK AREA FOR MONITOR PROGRAMS J0400120 0028 13 | $PRET EQU /28 ADDR PREOPERATIVE ERROR TRAP J0400130 002C 14 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE J0400140 002D 15 | $ULET EQU /2D ADDR OF LET, LOGICAL DRIVE 0 J0400150 0032 16 | $IOCT EQU /32 IOCS CTR,0=NO I/O IN PROGRESS J0400160 0033 17 | $LAST EQU /33 LAST CD INDR,NON-ZERO=LAST CARD J0400170 0034 18 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP J0400180 0035 19 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEQ J0400190 0036 20 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY J0400200 0037 21 | $PGCT EQU /37 PAGE NO. FOR PAGE HEADINGS J0400210 0038 22 | $EXIT EQU /38 ADDR CALL EXIT ENTRY POINT J0400220 0039 23 | $LINK EQU /39 ADDR CALL LINK ENTRY POINT J0400230 003F 24 | $DUMP EQU /3F ADDR OF CALL DUMP, ENTRY POINT J0400240 0077 25 | $DCDE EQU /77 DRIVE CODE FOR CORE LOAD BLDR J0400250 0078 26 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE J0400260 0079 27 | $UFIO EQU /79 ARM POSITION IN UNFORMATTED AREA J0400270 007A 28 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE J0400280 007B 29 | $WRD1 EQU /7B LOAD ADDR FOR CURR USER CORE LD J0400290 007C 30 | $KCSW EQU /7C INHIBIT INPUT/PRINT OVERLAP SW J0400300 007D 31 | $UFDR EQU /7D UNFORMATTED I/O DRIVE CODE J0400310 007E 32 | $CPTR EQU /7E CHANNEL 12 INDICATOR FOR CP J0400320 007F 33 | $1132 EQU /7F CHANNEL 12 INDICATOR FOR 1132 J0400330 0080 34 | $1403 EQU /80 CHANNEL 12 INDICATOR FOR 1403 J0400340 0081 35 | $PST1 EQU /81 ADDR POSTOP ERROR TRAP,LEVEL 1 J0400350 0085 36 | $PST2 EQU /85 ADDR POSTOP ERROR TRAP,LEVEL 2 J0400360 0089 37 | $PST3 EQU /89 ADDR POSTOP ERROR TRAP,LEVEL 3 J0400370 008D 38 | $PST4 EQU /8D ADDR POSTOP ERROR TRAP,LEVEL 4 J0400380 0091 39 | $STOP EQU /91 ADDR PROGRAM STOP KEY TRAP J0400390 0095 40 | $FPAD EQU /95 FILE PROTECT ADDR (ADJ),LOG DR 0 J0400400 009A 41 | $CYLN EQU /9A ARM POSITION FOR LOGICAL DRIVE 0 J0400410 009F 42 | $ACDE EQU /9F AREA CODE FOR LOGICAL DRIVE 0 J0400420 00A4 43 | $DCYL EQU /A4 1ST DEF CYL ADDR, LOGICAL DR 0 J0400430 00B3 44 | $I200 EQU /B3 ENTRY POINT TO ILS FOR LEVEL 2 J0400440 00B8 45 | $I205 EQU /B8 J0400450 00B9 46 | $IBT2 EQU $I205+1 ADDR OF IBT FOR LEVEL 2 J0400460 00C4 47 | $I400 EQU /C4 ENTRY POINT TO ILS FOR LEVEL 4 J0400470 00D3 48 | $I405 EQU /D3 J0400480 00D4 49 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 J0400490 00D5 50 | $I410 EQU /D5 J0400500 00EE 51 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY J0400510 01CB 52 | $BYSW EQU /1CB BYPASS SW,NOP IF FETCHING SOCAL J0400520 00F2 53 | DZ000 EQU /0F2 DISKZ ENTRY POINT J0400530 01E0 54 | $ZEND EQU /1E0 ADDR 1+LAST WORD OF DISKZ J0400540 7FA0 56 | C EQU /7FA0 CATCO POINTER SET TO MIDDLE J0400560 57 | *************************************************** J0400570 58 | * * J0400580 59 | * INDEX REG 1 IS SET TO .C. WHEN CATCO IS FORMED * J0400590 60 | * FOR USE BY ALL OF DUP FUNCTIONS. ANY DUP ROUT * J0400600 61 | * USING XR 1 FOR OTHER REASONS MUST RESTORE. * J0400610 62 | * ALL VALUES IN CATCO HAVE LABELS EQUATED TO THE * J0400620 63 | * VALUE THAT INDICATES THEIR RELATIVE LOCATION * J0400630 64 | * FROM .C. * J0400640 65 | * * J0400650 66 | *************************************************** J0400660 67 | * * J0400670 68 | * CATCO DCOM IMAGE * J0400680 69 | * EQUIVALENCES USED TO REFERENCE CATCO WITH XR1 * J0400690 70 | * * J0400700 71 | *************************************************** J0400710 FF84 72 | #NAME EQU 4-/80 NAME OF PROGRAM J0400720 FF86 73 | #DBCT EQU 6-/80 DISK BLOCK COUNT OF PROGRAM J0400730 FF87 74 | #FCNT EQU 7-/80 FILES SW,ZERO = NO FILES J0400740 FF88 75 | #SYSC EQU 8-/80 NON-ZERO,SYSTEM CARTRIDGE J0400750 FF89 76 | #JBSW EQU 9-/80 JOB SW,NON-ZERO='T' MODE J0400760 FF8A 77 | #CBSW EQU 10-/80 CLB SW,NON-ZERO=STORECI J0400770 FF8B 78 | #LCNT EQU 11-/80 NO. OF LOCALS J0400780 FF8C 79 | #MPSW EQU 12-/80 NON-ZERO, CORE MAP DESIRED J0400790 FF8D 80 | #MDF1 EQU 13-/80 NO. OF DUP CTRL RCDS J0400800 FF8E 81 | #MDF2 EQU 14-/80 ADDR OF MODIF BUFFER J0400810 FF8F 82 | #NCNT EQU 15-/80 NO. OF NOCALS J0400820 FF90 83 | #ENTY EQU 16-/80 RELATIVE ENTRY ADDR OF PROG J0400830 FF91 84 | #RP67 EQU 17-/80 IF NON-ZERO,1442 MOD 6,7 J0400840 85 | * J0400850 86 | * NEGATIVE VALUE REPRESENTS DEFAULT CONDITION * J0400860 FF92 87 | #TODR EQU 18-/80 DR CODE OF 'TO' DRIVE J0400870 FF93 88 | #FRDR EQU 19-/80 DR CODE OF 'FROM' DRIVE J0400880 89 | * * J0400890 FF94 90 | #FHOL EQU 20-/80 ADDR OF LARGEST FXA HOLE J0400900 FF95 91 | #FSZE EQU 21-/80 BLK CNT LARGEST HOLE IN FXA J0400910 FF96 92 | #UHOL EQU 22-/80 ADDR OF LARGEST UA HOLE J0400920 FF97 93 | #USZE EQU 23-/80 BLK CNT LARGEST HOLE IN UA J0400930 FF98 94 | #DCSW EQU 24-/80 NON-ZERO=DUP CALL J0400940 FF99 95 | #PIOD EQU 25-/80 PRINC. I/O INDICATOR J0400950 FF9A 96 | #PPTR EQU 26-/80 PRINC. PRINTER INDICATOR J0400960 FF9B 97 | #CIAD EQU 27-/80 WD NO. SCTR 0,CIL ADDR J0400970 FF9C 98 | #ACIN EQU 28-/80 AVAILABLE CARTRIDGE INDR2-8 J0400980 FF9D 99 | #GRPH EQU 29-/80 2250 INDICATOR 2-8 J0400990 FF9E 100 | #GCNT EQU 30-/80 NO. G2250 RECORDS 2-8 J0401000 FF9F 101 | #LOSW EQU 31-/80 LOCAL-CALLS-LOCAL INDR 2-8 J0401010 FFA0 102 | #X3SW EQU 32-/80 SPECIAL ILS SWITCH 2-8 J0401020 FFA1 103 | #ECNT EQU 33-/80 NO. OF EQUAT RCDS 2-8 J0401030 FFA3 104 | #ANDU EQU 35-/80 END OF UA (ADJ) LOG DR 0-4 J0401040 FFA8 105 | #BNDU EQU 40-/80 END OF UA (BASE) LOG DR 0-4 J0401050 FFAD 106 | #FPAD EQU 45-/80 FILE PROTECT ADDR (BASE) J0401060 FFB2 107 | #PCID EQU 50-/80 CART ID, PHYS DR 0-4 J0401070 FFB7 108 | #CIDN EQU 55-/80 CART ID, LOG DR 0-4 J0401080 FFBC 109 | #CIBA EQU 60-/80 CIB ADDR, LOG DR 0-4 J0401090 FFC1 110 | #SCRA EQU 65-/80 SCRA, LOG DR 0-4 J0401100 FFC6 111 | #FMAT EQU 70-/80 WS FORMAT, LOG DR 0-4 J0401110 FFCB 112 | #FLET EQU 75-/80 FLET ADDR, LOG DR 0-4 J0401120 FFD0 113 | #ULET EQU 80-/80 LET ADDR, LOG DR 0-4 J0401130 FFD5 114 | #WSCT EQU 85-/80 WS BLK CNT, LOG DR 0-4 J0401140 FFDA 115 | #CSHN EQU 90-/80 CUSHION END SCTR ADDR, 0-4 J0401150 0001 116 | #DCOM EQU 1 SCTR ADDR OF DCOM J0401160 0007 117 | #HDNG EQU 7 SCTR WITH PAGE HEADING J0401170 0FB0 118 | @SBFR EQU /FB0 2-8 J0401180 CONCATENATED COMMON AREA (CATCO) 120 | *************************************************** J0401200 121 | * * J0401210 122 | * CATCO IOAR HDRS FOR DUP PHASES * J0401220 123 | * * J0401230 124 | *************************************************** J0401240 FFF0 125 | ORG -/10 J0401250 FFF0 126 | DCHDR BSS 2 DUP CONTROL PH02 J0401260 FFF2 127 | STHDR BSS 2 STORE PH03 J0401270 FFF4 128 | FLHDR BSS 2 FILEQ PH04 J0401280 FFF6 129 | DMHDR BSS 2 DUMP PH05 J0401290 FFF8 130 | DLHDR BSS 2 DUMPLET PH06 J0401300 FFFA 131 | DTHDR BSS 2 DELETE PH07 J0401310 FFFC 132 | DFHDR BSS 2 DEFINE PH08 J0401320 FFFE 133 | DXHDR BSS 2 DUP EXIT PH09 J0401330 0000 134 | UCHDR BSS 2 DUP UPCOR PH13 J0401340 0002 135 | PIHDR BSS 2 PRINCIPAL I/O BLOCK PH14 J0401350 0004 136 | SIHDR BSS 2 PRINC I/O (W/O KB) BLK PH15 J0401360 0006 137 | PTHDR BSS 2 PAPER TAPE I/O BLOCK PH16 J0401370 0008 138 | CIHDR BSS 2 CI PHASE READ BY CL BUILDER J0401380 000A 139 | MUHDR BSS 2 MACRO UPDATE PH206 2-8 J0401390 000C 140 | D2HDR BSS 2 DUP CONTROL 2 PH205 2-8 J0401400 FILEQ--CATCO DUP SWITCHES 142 | *************************************************** J0401420 143 | * * J0401430 144 | * CATCO DUP SWITCHES * J0401440 145 | * WORDS USED FOR COMMUNICATION OF DATA * J0401450 146 | * BETWEEN DUP ROUTINES. * J0401460 147 | * * J0401470 148 | * INITIALIZED TO ZERO BY .REST. OF DUPCO * J0401480 149 | * * J0401490 150 | *************************************************** J0401500 000E 151 | CL1 EQU * J0401510 000E 152 | ASMSW BSS 1 NON ZERO IF DEFINE VOID ASM J0401520 000F 153 | BITSW BSS 1 NON ZERO TO ALLOW MDUMP-S J0401530 0010 154 | BLKSW BSS 1 NON ZERO IF BYPASSING REC J0401540 0011 155 | CIERR BSS 1 ERROR NO DETECTED BY PH 17 J0401550 0012 156 | CISW BSS 1 NON ZERO IF STORE CI J0401560 0013 157 | CLBSW BSS 1 NON ZERO IF PRECI EXECUTED J0401570 0014 158 | CNTNO BSS 1 RECORD NO BEING PCHD OR RD J0401580 159 | * * J0401590 160 | * .DATSW. IS FILLED WITH THE CNT FIELD OF THE * J0401600 161 | * DUP CONTROL RECORD. * J0401610 162 | * USED PRIMARILY FOR DATA MOVEMENT, BUT ALSO IS * J0401620 163 | * USED FOR COUNT OF RECORDS TO READ AFTER A * J0401630 164 | * STORE CI DUP CONTROL RECORD. * J0401640 0015 165 | DATSW BSS 1 RECORDS VALUE IN CNT FIELD J0401650 0016 166 | DBADR BSS 1 DB ADDR OF REFERENCED PROG J0401660 0017 167 | DELSW BSS 1 ADDR OF REQ LET ENTRY - 1 J0401670 0018 168 | DFNSW BSS 1 NON ZERO IF DEFINE FXA J0401680 0019 169 | DKSAD BSS 1 DK SCTR ADDR W/O DR CODE J0401690 001A 170 | DUMPP BSS E 2 LAST LIMITS FOR PRNTR DUMP J0401700 001C 171 | FORSW BSS 1 NON ZERO IF DEFINE VOID FOR J0401710 001D 172 | FRWS BSS 1 NON ZERO IF FROM FLD IS WS J0401720 001E 173 | FXSW BSS 1 NON ZERO IF FIXED AREA REQD J0401730 001F 174 | HOLSW BSS 1 NON ZERO IF NO CONV REQD J0401740 0020 175 | IOSW BSS 1 NON ZERO IF IN/OUT REQD J0401750 176 | * * J0401760 177 | * DUMPLET SWITCH - ZERO IF NOT DUMPLET/DUMPFLET * J0401770 178 | * PLUS VALUE REQUIRES PRINT OF BOTH LET/FLET* J0401780 179 | * NEG. VALUE REQUIRES PRINT OF FLET ONLY * J0401790 0021 180 | LETSW BSS 1 NON ZERO,PRINT LET OR FLET* J0401800 0022 181 | LSTLF BSS 1 LAST LET/FLET SECT PROCESSD J0401810 0023 182 | MODSW BSS 1 NON ZERO IF STORE MOD FUNC J0401820 0024 183 | NAMSW BSS 1 NON ZERO IF NAME IN LET/F J0401830 0025 184 | NEGSW BSS 1 NON ZERO IF SHRINKING FXA J0401840 0026 185 | PGMHL BSS 1 WORD COUNT OF THE PROG HDR J0401850 0027 186 | PRSW BSS 1 NON ZERO IF PRINTING OUTPUT J0401860 0028 187 | PTSW BSS 1 NON ZERO IF PAPER TAPE REQD J0401870 0029 188 | SKWDS BSS 1 WDS TO SEARCH IN L/F SECT J0401880 002A 189 | STCSW BSS 1 NON ZERO IF STORE DATA CI J0401890 002B 190 | STSW BSS 1 NON ZERO IF STORE TYPE J0401900 002C 191 | TEMP1 BSS E 1 1ST WD OF BINEB OUTPUT J0401910 002D 192 | TEMP2 BSS 1 2ND WD OF BINEB OUTPUT J0401920 002E 193 | TOWS BSS 1 NON ZERO IF TO FIELD IS WS J0401930 002F 194 | T3MSW BSS 1 TYPE 3,4 SOCAL LEVEL CELL J0401940 0030 195 | UASW BSS 1 NON ZERO IF USER AREA REQD J0401950 0031 196 | WSSW BSS 1 NON ZERO IF WORK STG REQD J0401960 0032 197 | XEQSW BSS 1 NON ZERO IF NOT RET FR GET J0401970 0033 198 | EBCSW BSS 1 NON ZERO IF EBC DATA OP 2E2 J0401980 0034 199 | HDNSW BSS 1 NON ZERO IF NAME IN HDR 2-3 J0401990 0035 200 | RPGSW BSS 1 NON Z IF DEFINE VOID RPG2-8 J0402000 0036 201 | DFLSW BSS 1 NON ZERO IF *DFILE 2-8 J0402010 0037 202 | BSS 1 RESERVED FOR ADDITION 2-8 J0402020 0037 203 | CL2 EQU *-1 J0402030 DEXIT- CATCO DUP SWITCHES 205 | *************************************************** J0402050 206 | * * J0402060 207 | * CATCO DUP SWITCHES * J0402070 208 | * INITIALIZED BY DCTL AND NOT RESET BY .REST. * J0402080 209 | * * J0402090 210 | *************************************************** J0402100 0038 211 | IOREQ BSS 1 MON-ZERO,AUX I/O SET REQ J0402110 0039 212 | PH2 BSS 1 NON-ZERO IF DCTL IN CORE J0402120 003A 213 | PH3 BSS 1 NON-ZERO IF STORE IN CORE J0402130 003B 214 | PH4 BSS 1 NON-ZERO IF DUMP IN CORE J0402140 215 | ************************************************2-8 J0402150 216 | * 2-8 J0402160 217 | * CATCO SWITCH INITIALIZED TO ZERO 2-8 J0402170 218 | * BY CCAT SUBR AND SET BY MACRO UPDATE PROGRAM2-8 J0402180 219 | * 2-8 J0402190 220 | ************************************************2-8 J0402200 003C 221 | DUPCR BSS 1 NON ZERO IF DUP CTRL RCD2-8 J0402210 222 | *************************************************** J0402220 223 | * * J0402230 224 | * CATCO DUP SWITCHES SET BY CCAT SUBR * J0402240 225 | * * J0402250 226 | *************************************************** J0402260 003D 227 | ADDR2 BSS 1 KB INTERRUPT ADDRESS J0402270 003E 228 | KBREQ BSS 1 CONTENTS OF LOC 13 J0402280 229 | * THE FOLLOWING SWITCH IS SET TO INDICATE THE J0402290 230 | * PRINCIPAL INPUT DEVICE J0402300 231 | * - IS PAPER TAPE J0402310 232 | * 0 IS CARD J0402320 233 | * + IS KEYBOARD J0402330 003F 234 | INOUT BSS 1 PRINCIPAL INPUT SWITCH J0402340 235 | * J0402350 0040 236 | PTPON BSS 1 NON-ZERO IF PAPER TP ON SYS J0402360 237 | *************************************************** J0402370 238 | * * J0402380 239 | * LEVEL 4 INTERRUPT BRANCH TABLE * J0402390 240 | * ADDRESSES. INITIALIZED BY CCAT, * J0402400 241 | * AND CARD/PAPER TAPE INTERFACES. * J0402410 242 | * * J0402420 243 | *************************************************** J0402430 0049 244 | ORG /0049 J0402440 0049 245 | IBT BSS 9 9 WD INTRPT BRANCH TABLE J0402450 246 | *************************************************** J0402460 247 | * * J0402470 248 | * CATCO I/O ADDRESSES REQUIRED BY DUP * J0402480 249 | * * J0402490 250 | *************************************************** J0402500 0052 251 | P1442 BSS E 2 SYS 1442 IOAR HEADER J0402510 0054 252 | PRPAR BSS 2 DEFAULT LIMITS TO PRINT J0402520 0056 253 | PHDUP BSS 1 LAST DUP PHASE IN CORE J0402530 0057 254 | CRBUF BSS 1 81 WD BFR FOR DUP CTRL RCDS J0402540 0058 255 | DCADR BSS 1 ADDR FOR DUP CTRL IOAR HDR J0402550 0059 256 | HDBUF BSS 1 ADDR OF PAGE HEADING BFR J0402560 005A 257 | IOBLK BSS 1 ADDR OF DUP I/O PHASE J0402570 005B 258 | SDBUF BSS 1 STORE/DUMP BUFFER J0402580 005C 259 | LETAR BSS 1 ADDR OF LET SEARCH BUFFER J0402590 005D 260 | PEBUF BSS 1 41 WD BFR FOR PACKED EBCDIC J0402600 005E 261 | THIS BSS 1 ADDR OF DOUBLE BFR, BFR 1 J0402610 005F 262 | NEXT BSS 1 ADDR OF DOUBLE BFR, BFR 2 J0402620 00F2 264 | DISKZ EQU DZ000 DISKZ ENTRY POINT J0402640 01DE 265 | B EQU $ZEND-2 J0402650 01DE 266 | DMPLC EQU B IOAR CORE ADDR FOR DMPLT J0402660 01DE 267 | EXITC EQU B IOAR CORE ADDR FOR DEXIT J0402670 01DE 268 | MUPC EQU B IOAR CORE ADDR FOR MUP 2-8 J0402680 11E0 269 | DCTL EQU B+/1002 ENTRY ADDRESS OF DCTL J0402690 11DE 270 | DCTLC EQU B+/1000 IOAR CORE ADDR FOR DCTL J0402700 21DE 271 | WSDC EQU B+/2000 IOAR CORE ADDR FOR STORE J0402710 41DE 272 | DUMPC EQU B+/4000 IOAR CORE ADDR FOR DDUMP J0402720 7DB0 273 | DUPCO EQU /7DB0 ADDR OF RESIDENT DUPCO J0402730 7F1E 274 | CATCO EQU /7F20-2 ADDR OF DCOM IOAR HEADER J0402740 275 | * * J0402750 276 | * DUPCO ENTRY POINTS...USED WITH INDIRECT BSI * J0402760 277 | * * J0402770 7DB0 278 | ORG DUPCO J0402780 7DB0 279 | BINEB BSS 1 CONVERSION BINARY TO EBCDIC J0402790 7DB1 280 | WRTDC BSS 1 WRITE DCOM(S) SUBROUTINE J0402800 7DB2 281 | ENTER BSS 1 SAVE XR-S AND CONDITIONS J0402810 7DB3 282 | GET BSS 1 READ FROM DISK USING DISKZ J0402820 7DB4 283 | LEAVE BSS 1 HANDLES ALL EXITS FROM DUP J0402830 7DB5 284 | LINE BSS 1 SPACES PRINTER 1 LINE J0402840 7DB6 285 | MASK BSS 1 INHIBITS KB INT REQUEST J0402850 7DB7 286 | MDUMP BSS 1 PRINTS SELECTED CORE LOC-S J0402860 7DB8 287 | PAGE BSS 1 SKIPS TO NEXT PAGE J0402870 7DB9 288 | PHID BSS 1 RECORDS PHASE ID J0402880 7DBA 289 | PHIDM BSS 1 RECORDS PHASE AND MODIFIER J0402890 7DBB 290 | PRINT BSS 1 USE SYS PR SUBR TO PRINT J0402900 7DBC 291 | PUT BSS 1 WRITES TO DISK USING DISKZ J0402910 7DBD 292 | REST BSS 1 RESTORE CATCO,GO TO DCTL J0402920 7DBE 293 | RTURN BSS 1 RESTORE XR-S AND CONDITIONS J0402930 294 | * * J0402940 295 | * INPUT/OUTPUT PARAMETERS , CORE ADDRESSES * J0402950 296 | * * J0402960 7D91 297 | BUF6 EQU DUPCO-/1F ADDR OF PAGE HEADING BUFFER J0402970 7C50 298 | PRPNT EQU BUF6-/141 IOAR ADDR FOR PRINC.PTR J0402980 7A06 299 | IOADR EQU BUF6-/38B START OF I/O INTERFACE J0402990 7A0A 300 | GETHO EQU IOADR+4 ENTRY FOR READING HOLL TYPE J0403000 7A0B 301 | GETBI EQU IOADR+5 ENTRY FOR READING BINARY J0403010 7A0C 302 | PACKB EQU IOADR+6 ENTRY TO PACK BINARY J0403020 7A0D 303 | PCHBI EQU IOADR+7 ENTRY TO PUNCH BINARY J0403030 79B5 304 | BUF1 EQU IOADR-/51 ADDR OF NEXT BUFFER J0403040 7963 305 | BUF2 EQU BUF1-/52 ADDR OF THIS BUFFER J0403050 7925 306 | BUF3 EQU BUF2-/3E ADDR OF PACKED EBC BUFFER J0403060 78D3 307 | BUF4 EQU BUF3-/52 ADDR OF CONTROL RCD BUFFER J0403070 7782 308 | BUF5 EQU IOADR-/284 ADDR OF LET SCTR BFR J0403080 0640 309 | BUF7 EQU BUF5-/7142 ADDR OF STORE/DUMP BFR J0403090 FILEQ--PROLOGUE 311 | *************************************************** J0403110 312 | * * J0403120 313 | *STATUS - VERSION 2, MODIFICATION 11 * J0403130 314 | * * J0403140 315 | *FUNCTION/OPERATION- * J0403150 316 | * *READ AND PROCESS SUPERVISOR CONTROL RECORDS * J0403160 317 | * AS FOLLOWS- * J0403170 318 | * *LOCAL CONVERT EACH MAINLINE AND SUBROUTINE * J0403180 319 | * NAME TO NAMECODE AND STORE TO THE * J0403190 320 | * SCRA. * J0403200 321 | * *NOCAL CONVERT EACH MAINLINE AND SUBROUTINE * J0403210 322 | * NAME TO NAMECODE AND STORE TO THE * J0403220 323 | * SCRA. * J0403230 324 | * *FILES CONVERT EACH FILE NAME TO NAMECODE * J0403240 325 | * AND EACH FILE NUMBER AND CARTRIDGE ID* J0403250 326 | * TO BINARY AND STORE TO THE SCRA. * J0403260 327 | * * J0403270 328 | *ENTRY POINTS- * J0403280 329 | * *LF000 ENTERED BY THE *STORECI CONTROL RCD * J0403290 330 | * PROCESSOR WHEN THE *STORECI RECORD * J0403300 331 | * INDICATES IT IS FOLLOWED BY * J0403310 332 | * SUPERVISOR CONTROL RECORDS. * J0403320 333 | * * J0403330 334 | *INPUT- * J0403340 335 | * *SUPERVISOR CONTROL RECORDS FROM THE * J0403350 336 | * PRINCIPAL INPUT DEVICE. * J0403360 337 | * * J0403370 338 | *OUTPUT- * J0403380 339 | * *EACH SUPERVISOR CONTROL RECORD IS PRINTED * J0403390 340 | * TO THE PRINCIPAL PRINT DEVICE. * J0403400 341 | * *THE SUPERVISOR CONTROL RECORD AREA (SCRA). * J0403410 342 | * *THE FOLLOWING ARE STORED IN DCOM- * J0403420 343 | * #FCNT * J0403430 344 | * #LCNT * J0403440 345 | * #NCNT * J0403450 346 | * * J0403460 347 | *EXTERNAL SUBROUTINES- * J0403470 348 | * *DZ000 SUBROUTINE TO PERFORM DISK I/O. * J0403480 349 | * * J0403490 350 | *EXTERNAL REFERENCES- * J0403500 351 | * NOCRD * J0403510 352 | * SBADR * J0403520 353 | * $CH12 * J0403530 354 | * $DBSY * J0403540 355 | * $PBSY * J0403550 356 | * $IBSY * J0403560 357 | * #SCRA * J0403570 358 | * * J0403580 359 | *EXITS- NORMAL * J0403590 360 | * *AN EXIT IS MADE TO THE *STORECI CONTROL RCD * J0403600 361 | * PROCESSOR UPON SUCESSFUL COMPLETION OF * J0403610 362 | * PROCESSING SUPERVISOR CONTROL RECORDS. * J0403620 363 | * * J0403630 364 | *EXITS- ERROR * J0403640 365 | * *A CALL $EXIT RESTORES THE MONITOR CONTROL * J0403650 366 | * RECORD ANALYZER AFTER PRINTING ONE OF THE * J0403660 367 | * FOLLOWING ERROR MESSAGES- * J0403670 368 | * D 41 INVALID STORECI CONTROL RECORD * J0403680 369 | * D 42 STORECI CONTROL RECORDS INCORRECTLY * J0403690 370 | * ORDERED. * J0403700 371 | * D 43 INCORRECT CONTINUATION. * J0403710 372 | * D 44 ILLEGAL CHARACTER IN RECORD. * J0403720 373 | * D 45 ILLEGAL FILE NUMBER. * J0403730 374 | * D 46 ILLEGAL NAME. * J0403740 375 | * D 47 ILLEGAL CARTRIDGE ID. * J0403750 376 | * D 48 SCRA BUFFER OVERFLOW. * J0403760 377 | * * J0403770 378 | *TABLES AND WORK AREAS- * J0403780 379 | * *SCRAB A 640 WORD BUFFER TO BE STORED TO THE* J0403790 380 | * SCRA. * J0403800 381 | * *PBUFR A 40 WORD BUFFER FOR A PACKED * J0403810 382 | * SUPERVISOR CONTROL RECORD. * J0403820 383 | * * J0403830 384 | *ATTRIBUTES- NONE * J0403840 385 | * * J0403850 386 | *NOTES- NONE * J0403860 387 | * * J0403870 388 | *************************************************** J0403880 FILEQ--PROCESS SUP CONTROL RECORDS 390 | * J0403900 391 | * EXTERNAL EQUATE STATEMENTS J0403910 392 | * J0403920 0015 393 | NORCD EQU DATSW NO. OF SUPV CONTROL RECORDS J0403930 78D4 394 | SBUFR EQU BUF4+1 SUPERVISOR BUFFER J0403940 7926 395 | PBUFR EQU BUF3+1 FILEQ PRINTER BUFFER J0403950 0642 396 | SCRAB EQU BUF7+2 SCRA DISK BUFFER J0403960 FILEQ--PROCESS SUP CONTROL RECORDS 398 | * J0403980 399 | * PROCESS SUPERVISOR CONTROL RECORDS J0403990 400 | * J0404000 01DE 401 | ORG B J0404010 01DE 0000 402 | DC *-* WORD COUNT OF FILEQ J0404020 01DF 0004 403 | DC 4 PHASE ID OF FILEQ J0404030 404 | * J0404040 405 | * INITIALIZE J0404050 406 | * J0404060 01E0 4480 7DB9 407 | LF000 BSI I PHID RECORD PHASE ID J0404070 01E2 0004 408 | DC /0004 FILEQ PHASE IDENTIFICATION J0404080 01E3 1810 409 | SRA 16 SET TYPE J0404090 01E4 D064 410 | STO TYPE2 *OF LAST RECORD ZERO J0404100 01E5 C1C1 411 | LD 1 #SCRA SET J0404110 01E6 D063 412 | STO ASCRA *THE SECTOR ADDRESSES J0404120 01E7 805B 413 | A LF903 *OF THE J0404130 01E8 D062 414 | STO ASCRA+1 *LOCAL, J0404140 01E9 8059 415 | A LF903 *NOCAL AND J0404150 01EA D061 416 | STO ASCRA+2 *FILES AREAS OF THE SCRA J0404160 01EB 8057 417 | A LF903 SET SCTR ADDR OF G2250 2G2 J0404170 01EC D060 418 | STO ASCRA+3 *AREA OF SCRA 2G2 J0404180 01ED 1010 419 | SLA 16 2-2 J0404190 01EE D480 023A 420 | STO I LF900 RESET LOCAL, 2-2 J0404200 01F0 D480 023B 421 | STO I LF900+1 * NOCAL, 2-2 J0404210 01F2 D480 023C 422 | STO I LF900+2 * FILES INDICATOR 2-2 J0404220 01F4 D480 023D 423 | STO I LF900+3 G2250 INDICATOR 2G2 J0404230 424 | * SET BFR WD CNT LATER 2-4 J0404240 425 | * J0404250 426 | * READ AND PRINT A RECORD J0404260 427 | * J0404270 01F6 4400 0466 428 | LF120 BSI L RR000 J0404280 429 | * J0404290 430 | * DETERMINE TYPE OF SUPERVISOR CONTROL RECORD J0404300 431 | * J0404310 01F8 4400 03D6 432 | LF130 BSI L DT000 J0404320 433 | * J0404330 01FA C04D 434 | LD TYPE1 IF THIS RECORD OF SAME TYPE J0404340 01FB 904D 435 | S TYPE2 *AS LAST RECORD BRANCH TO J0404350 01FC 4F98 023E 436 | BSC I3 LF902-1,+- *PROCESS THE RECORD J0404360 437 | * J0404370 01FE 4400 04BA 438 | BSI L WR000 BRANCH TO WRITE THE SCRA J0404380 439 | * J0404390 0200 C780 0239 440 | LD I3 LF900-1 FETCH INDICATOR J0404400 0202 4C20 0233 441 | BSC L LF240,Z BRANCH IF INDICATOR ON J0404410 442 | * J0404420 0204 C03E 443 | LD LF903 FETCH NON-ZERO J0404430 0205 D780 0239 444 | STO I3 LF900-1 SET INDICATOR ON J0404440 0207 C040 445 | LD TYPE1 SET TYPE OF J0404450 0208 D040 446 | STO TYPE2 *LAST RECORD J0404460 0209 C700 0249 447 | LD L3 ASCRA-1 FETCH THE SECTOR ADDRESS J0404470 020B 1890 448 | SRT 16 *AND SHIFT TO EXT 2-4 J0404480 020C C700 0243 449 | LD L3 LF905-1 FETCH THE WD CNT 2-4 J0404490 020E DC00 0640 450 | STD L SCRAB-2 STORE TO THE I/O AREA 2-4 J0404500 0210 4F80 023E 451 | BSC I3 LF902-1 BRANCH TO PROCESS RECORD J0404510 452 | * J0404520 453 | * PREPARE TO READ NEXT SUPV CTRL RECORD J0404530 454 | * J0404540 0212 C03B 455 | LF140 LD WDCNT INCREMENT J0404550 0213 D400 04B9 456 | STO L LWDCT SAVE ADDR OF LAST WORD CNT J0404560 0215 8480 024E 457 | A I WDCNT *ADDRESS J0404570 0217 D036 458 | STO WDCNT *OF WORD COUNT J0404580 0218 7401 03F6 459 | MDX L BFCNT,1 INCREMENT BUFFER COUNT J0404590 021A 1000 460 | NOP J0404600 021B 70DA 461 | MDX LF120 BRANCH TO READ NEXT RECORD J0404610 462 | * J0404620 463 | * CLEAR THE SECTORS OF TYPES NOT SPECIFIED J0404630 464 | * J0404640 021C 63FC 465 | LF200 LDX 3 -4 TYPE COUNT TO XR3 2G2 J0404650 021D C780 023E 466 | LD I3 LF900+4 FETCH INDICATOR 2G2 J0404660 021F 4C20 022A 467 | BSC L LF220,Z BRANCH IF INDICATOR SET J0404670 0221 C700 024E 468 | LD L3 ASCRA+4 SET SECTOR ADDRESS 2G2 J0404680 0223 1890 469 | SRT 16 SHIFT TO THE EXT 2-4 J0404690 0224 C700 0248 470 | LD L3 LF905+4 FETCH THE WD CNT 2-4 J0404700 0226 DC00 0640 471 | STD L SCRAB-2 STORE TO THE I/O AREA 2-4 J0404710 0228 4400 04BA 472 | BSI L WR000 BRANCH TO CLEAR DISK J0404720 022A 7301 473 | LF220 MDX 3 1 INCR TYPE CNT, SKIP IF ZERO J0404730 022B 70F1 474 | MDX LF200+1 BRANCH TO TEST NEXT TYPE J0404740 475 | * J0404750 022C 6700 11DE 476 | LDX L3 DCTLC XR3 IS SET TO DCTL IOAR HDR J0404760 022E C9F0 477 | LDD 1 DCHDR J0404770 022F DB00 478 | STD 3 0 SET-UP DCTL IOAR HEADER J0404780 479 | * * J0404790 0230 D132 480 | STO 1 XEQSW SET XEQ SW TO XEQ DCTL J0404800 0231 4480 7DB3 481 | BSI I GET GET AND EXECUTE DCTL J0404810 482 | * J0404820 0233 6202 483 | LF240 LDX 2 2 POINT TO ERROR MESSAGE J0404830 484 | * J0404840 485 | * PRINT THE ERROR MESSAGE J0404850 486 | * J0404860 0234 7228 487 | LFERR MDX 2 +40 J0404870 0235 6A02 488 | LF255 STX 2 LF250 SET-UP DUP ERROR NO. J0404880 0236 4480 7DB4 489 | BSI I LEAVE PRINT ERROR MESSAGE J0404890 0238 0000 490 | LF250 DC *-* ERROR MESSAGE NO. J0404900 491 | * J0404910 492 | * CONSTANTS AND WORK AREA J0404920 493 | * J0404930 023A 494 | BSS E 0 J0404940 023A 7F2B 495 | LF900 DC #LCNT+C ADDRESS OF LOCAL INDICATOR J0404950 023B 7F2F 496 | DC #NCNT+C ADDRESS OF NOCAL INDICATOR J0404960 023C 7F27 497 | DC #FCNT+C ADDRESS OF FILES INDICATOR J0404970 023D 7F3E 498 | DC #GCNT+C 2G2 J0404980 023E 7001 499 | LF901 DC /7001 PRINT FUNCTION CODE J0404990 023F 0250 500 | LF902 DC LC000 LOCAL-NOCAL PROCESSING ADDR J0405000 0240 0250 501 | DC LC000 LOCAL-NOCAL PROCESSING ADDR J0405010 0241 02B1 502 | DC FR000 FILES PROCESSING ADDRESS J0405020 0242 036D 503 | DC GR000 G2250 PROCESSING ADDR 2G2 J0405030 0243 0002 504 | LF903 DC 2 CONSTANT TWO J0405040 0244 0280 505 | LF905 DC 640 LOCAL BFR WD CNT 2-4 J0405050 0245 0280 506 | DC 640 NOCAL BFR WD CNT 2-4 J0405060 0246 0280 507 | DC 640 FILES BFR WD CNT 2-4 J0405070 0247 0140 508 | DC 320 G2250 BFR WD CNT 2-4 J0405080 0248 0000 509 | TYPE1 DC *-* TYPE CODE OF THIS RECORD J0405090 0249 0000 510 | TYPE2 DC *-* TYPE CODE OF LAST RECORD J0405100 511 | * 0 = NONE J0405110 512 | * 1 = LOCAL J0405120 513 | * 2 = NOCAL J0405130 514 | * 3 = FILES J0405140 515 | * 4 = G2250 2G2 J0405150 024A 0000 516 | ASCRA DC *-* SCTR ADDR OF LOCAL SCRA J0405160 024B 0000 517 | DC *-* SCTR ADDR OF NOCAL SCRA J0405170 024C 0000 518 | DC *-* SCTR ADDR OF FILES SCRA J0405180 024D 0000 519 | DC *-* SCTR ADDR OF G2250 SCRA 2G2 J0405190 024E 0000 520 | WDCNT DC *-* ADDRESS OF WORD COUNT J0405200 024F 0000 521 | COLSW DC *-* COLUMN SWITCH- J0405210 522 | * - = BLANK ENDED NAME J0405220 523 | * 0 = FIRST COLUMN BLANK J0405230 524 | * 1 = COMMA ENDED NAME J0405240 525 | * 2 = RT PAREN ENDED NAME J0405250 FILEQ--PROCESS LOCAL/NOCAL RECORDS 527 | * J0405270 528 | * PROCESS LOCAL AND NOCAL RECORDS J0405280 529 | * J0405290 0250 C05D 530 | LC000 LD LC900 INITIALIZE THE WORD J0405300 0251 D480 024E 531 | STO I WDCNT *COUNT TO ONE J0405310 532 | * J0405320 533 | * INSPECT THE CONTENTS OF COLUMN 7 J0405330 534 | * J0405340 0253 63B6 535 | LDX 3 -74 POINT XR3 TO COLUMN 7 J0405350 0254 C700 7924 536 | LD L3 SBUFR+80 FETCH COLUMN 7 J0405360 0256 9058 537 | S LC901 TEST FOR AND J0405370 0257 4C20 026A 538 | BSC L LC020,Z *BRANCH IF NOT A COMMA J0405380 539 | * J0405390 540 | * MAINLINE NAME NOT GIVEN J0405400 541 | * J0405410 0259 C134 542 | LD 1 HDNSW NAME IN PROGRAM HEADER 2-3 J0405420 025A 4C20 0286 543 | BSC L LC040,Z BR TO ERR D 41 IF YES 2-3 J0405430 544 | * 2-3 J0405440 025C 10A0 545 | SLT 32 SET MAINLINE J0405450 025D DC00 0416 546 | STD L NAMEX *NAME BLANK J0405460 025F C84E 547 | LDD LC900 SET EXT SW TO STORE 2 WORDS J0405470 0260 4400 03F4 548 | BSI L FB000 BR TO STORE NAME TO BUFFER J0405480 0262 7301 549 | LC010 MDX 3 1 INCREMENT THE COLUMN COUNT J0405490 0263 4400 0419 550 | BSI L FN000 BRANCH TO FETCH THE NAME J0405500 0265 C400 024F 551 | LD L COLSW J0405510 0267 4C18 0289 552 | BSC L LC060,+- D 44 ERROR IF NO NAME J0405520 0269 7022 553 | MDX LC080 BRANCH TO STORE NAME J0405530 554 | * 2-3 J0405540 555 | * MAINLINE NAME GIVEN 2-3 J0405550 556 | * 2-3 J0405560 026A C134 557 | LC020 LD 1 HDNSW NAME IN PROGRAM HEADER 2-3 J0405570 026B 4C18 0286 558 | BSC L LC040,+- BR TO ERR D 41 IF NO 2-3 J0405580 026D 4400 0419 559 | BSI L FN000 BR TO FETCH MAIN NAME 2-3 J0405590 026F C400 024F 560 | LD L COLSW 2-3 J0405600 0271 4C18 0289 561 | BSC L LC060,+- D 44 ERROR IF BLANK 2-3 J0405610 562 | * 2-3 J0405620 0273 C984 563 | LDD 1 #NAME NAME SPECIFIED 2-3 J0405630 0274 9C00 0416 564 | SD L NAMEX NAME ON LOCAL/NOCAL RCD 2-3 J0405640 0276 4C20 0286 565 | BSC L LC040,Z D 41 ERR IF NOT SAME 2-3 J0405650 0278 18D0 566 | RTE 16 CHECK SECOND HALF 2-3 J0405660 0279 4C20 0286 567 | BSC L LC040,Z D 41 ERR IF NOT SAME 2-3 J0405670 568 | * 2-3 J0405680 027B C832 569 | LDD LC900 SET EXT TO STORE 2 WDS 2-3 J0405690 027C 4400 03F4 570 | BSI L FB000 BR TO STORE NAME TO BFR 2-3 J0405700 571 | * 2-3 J0405710 027E C400 024F 572 | LD L COLSW CHECK FOR COMMA 2-3 J0405720 0280 4C08 0289 573 | BSC L LC060,+ D 44 ERROR IF BLANK 2-3 J0405730 0282 902B 574 | S LC900 ONE INDICATES COMMA 2-3 J0405740 0283 4C20 0289 575 | BSC L LC060,Z D 44 ERROR IF NOT COMMA 2-3 J0405750 576 | * 2-3 J0405760 0285 70DC 577 | MDX LC010 BRANCH TO CONTINUE 2-3 J0405770 578 | * 2-3 J0405780 579 | * INVALID STORECI CONTROL RECORD 2-3 J0405790 580 | * 2-3 J0405800 0286 6201 581 | LC040 LDX 2 1 MAINLINE NAME NOT ALLOWED J0405810 0287 4C00 0234 582 | BSC L LFERR *WITH STORECI. D 41 ERROR J0405820 583 | * J0405830 584 | * FIRST CHARACTER OF NAME BLANK J0405840 585 | * J0405850 0289 6204 586 | LC060 LDX 2 4 POINT TO ERROR MESSAGE J0405860 028A 4C00 0234 587 | BSC L LFERR BRANCH TO PRINT THE MESSAGE J0405870 588 | * J0405880 589 | * STORE THE NAME TO THE SCRA I/O BUFFER J0405890 590 | * J0405900 028C C821 591 | LC080 LDD LC900 SET EXT SW TO STORE 2 WORDS J0405910 028D 4400 03F4 592 | BSI L FB000 BRANCH TO STORE THE NAME J0405920 593 | * J0405930 028F C400 024F 594 | LD L COLSW FETCH THE COLUMN SWITCH J0405940 0291 4C08 0212 595 | BSC L LF140,+ BRANCH IF NEXT COLUMN BLANK J0405950 0293 7301 596 | MDX 3 1 INCR COL CNT, SKIP IF ZERO J0405960 0294 700E 597 | MDX LC160 J0405970 598 | * J0405980 599 | * RECORD IS CONTINUED, READ CONTINUATION RECORD J0405990 600 | * J0406000 0295 4400 0466 601 | LC120 BSI L RR000 BRANCH TO READ A RECORD J0406010 0297 4400 03D6 602 | BSI L DT000 BR TO DETERMINE TYPE OF RCD J0406020 0299 63B6 603 | LDX 3 -74 POINT XR3 TO COLUMN 7 J0406030 029A C400 0248 604 | LD L TYPE1 IF THIS RECORD OF SAME TYPE J0406040 029C 9400 0249 605 | S L TYPE2 *AS LAST RECORD BRANCH J0406050 029E 4C18 02A3 606 | BSC L LC160,+- *TO PROCESS THE RECORD J0406060 607 | * J0406070 608 | * THE RECORD JUST READ WAS NOT A CONTINUATION J0406080 609 | * J0406090 02A0 6203 610 | LC140 LDX 2 3 POINT TO ERROR MESSAGE J0406100 02A1 4C00 0234 611 | BSC L LFERR BRANCH TO PRINT THE MESSAGE J0406110 612 | * J0406120 613 | * TEST FOR END OF RECORD J0406130 614 | * J0406140 02A3 C700 7924 615 | LC160 LD L3 SBUFR+80 FETCH THE NEXT CHARACTER J0406150 02A5 900A 616 | S LC902 TEST FOR AND J0406160 02A6 4C18 0295 617 | BSC L LC120,+- *BRANCH IF BLANK J0406170 618 | * J0406180 619 | * FETCH A SUBROUTINE NAME J0406190 620 | * J0406200 02A8 4400 0419 621 | LC180 BSI L FN000 BRANCH TO FETCH A NAME J0406210 02AA 7400 024F 622 | MDX L COLSW,0 SKIP NEXT IF COL SW ZERO J0406220 02AC 70DF 623 | MDX LC080 BRANCH TO STORE THE NAME J0406230 02AD 70DB 624 | MDX LC060 BR TO PRINT ERROR MESSAGE J0406240 625 | * J0406250 626 | * CONSTANTS AND WORK AREA J0406260 627 | * J0406270 02AE 0001 628 | LC900 DC 1 CONSTANT ONE J0406280 02AF 006B 629 | LC901 DC /006B EBCDIC COMMA J0406290 02B0 0040 630 | LC902 DC /0040 EBCDIC BLANK J0406300 FILEQ--PROCESS FILES RECORDS 632 | * J0406320 633 | * PROCESS FILES RECORDS J0406330 634 | * J0406340 02B1 C054 635 | FR000 LD FR900 INITIALIZE THE WORD J0406350 02B2 D480 024E 636 | STO I WDCNT *COUNT TO 1 2-9 J0406355 637 | * 2-8 J0406360 638 | * TEST FOR LEFT PARENTHESIS BEFORE FILE NUMBER 2-8 J0406370 639 | * 2-8 J0406380 02B4 63B6 640 | FR010 LDX 3 -74 POINT XR3 TO COLUMN 7 2-8 J0406390 02B5 C700 7924 641 | FR012 LD L3 SBUFR+80 FETCH CHAR 2-8 J0406400 02B7 9051 642 | S FR903 TEST FOR LEFT PAREN 2-8 J0406410 02B8 7301 643 | MDX 3 1 INCR COL COUNT 2-8 J0406420 02B9 7003 644 | MDX FR015 CONTINUE IF NOT ZERO 2-8 J0406430 02BA 6203 645 | LDX 2 3 POINT TO ERROR MSG 2-8 J0406440 02BB 4C00 0234 646 | FR070 BSC L LFERR PRINT ERROR MSG AND EXIT2-8 J0406450 02BD 4C18 02C1 647 | FR015 BSC L FR020,+- BR IF LEFT PAREN 2-8 J0406460 648 | * CODING 2-9 J0406470 649 | * REMOVED 2-9 J0406480 02BF 6201 650 | LDX 2 1 POINT TO ERROR MSG 2-8 J0406490 02C0 70FA 651 | MDX FR070 BR TO PRINT ERROR MSG 2-8 J0406500 652 | * J0406510 653 | * FETCH AND STORE FILE NUMBER (DECIMAL) J0406520 654 | * J0406530 02C1 4400 030B 655 | FR020 BSI L FR100 BR TO FETCH AND CONVERT NO. J0406540 02C3 10A0 656 | SLT 32 SET EXT SW TO STORE 1 WORD J0406550 02C4 4400 03F4 657 | BSI L FB000 BR TO STORE NO. TO I/O BUFR J0406560 658 | * J0406570 659 | * FETCH AND STORE FILE NAME J0406580 660 | * J0406590 02C6 C700 7924 661 | LD L3 SBUFR+80 FETCH THE NEXT COLUMN J0406600 02C8 903F 662 | S FR902 TEST FOR AND J0406610 02C9 4C20 02D2 663 | BSC L FR030,Z *BRANCH IF NOT A COMMA J0406620 02CB 10A0 664 | SLT 32 SET FILE NAME J0406630 02CC DC00 0416 665 | STD L NAMEX *BLANK J0406640 02CE C837 666 | LDD FR900 SET EXT SW TO STORE 2 WORDS J0406650 02CF 4400 03F4 667 | BSI L FB000 BRANCH TO STORE FILE NAME J0406660 02D1 7012 668 | MDX FR040 BRANCH TO FETCH CART ID J0406670 669 | * J0406680 02D2 4400 0419 670 | FR030 BSI L FN000 BR TO FETCH + CONVERT NAME J0406690 02D4 C400 024F 671 | LD L COLSW FETCH THE COLUMN SWITCH J0406700 02D6 4C08 0289 672 | BSC L LC060,+ BRANCH IF BLANK FORE OR AFT J0406710 02D8 1890 673 | SRT 16 SET EXT SW TO STORE 2 WORDS J0406720 02D9 4400 03F4 674 | BSI L FB000 BRANCH TO STORE FILE NAME J0406730 675 | * J0406740 676 | * TEST FOR THE PRESENCE OF CARTRIDGE ID J0406750 677 | * J0406760 02DB C400 024F 678 | LD L COLSW FETCH THE COLUMN SWITCH J0406770 02DD 9028 679 | S FR900 TEST FOR AND BRANCH J0406780 02DE 4C08 02E4 680 | BSC L FR040,+ *IF NOT A RIGHT PARENTHESIS J0406790 02E0 10A0 681 | SLT 32 SET J0406800 02E1 DC00 0416 682 | STD L NAMEX *CARTRIDGE ID BLANK J0406810 02E3 7003 683 | MDX FR060 BRANCH TO STORE CART ID J0406820 684 | * J0406830 685 | * FETCH AND STORE CARTRIDGE ID (HEXADECIMAL) J0406840 686 | * J0406850 02E4 4400 033A 687 | FR040 BSI L FR200 BRANCH TO FETCH CART ID J0406860 02E6 10A0 688 | SLT 32 SET EXT SW TO STORE 1 WORD J0406870 02E7 4400 03F4 689 | FR060 BSI L FB000 BRANCH TO STORE CART ID J0406880 690 | * J0406890 691 | * TEST FOR END OF RECORD J0406900 692 | * J0406910 02E9 7301 693 | MDX 3 1 INCR COL CNT, SKIP IF ZERO J0406920 02EA 7002 694 | MDX *+2 J0406930 02EB 4C00 02FB 695 | BSC L FR080 BRANCH TO READ NEXT RECORD J0406940 02ED C700 7924 696 | LD L3 SBUFR+80 FETCH THE NEXT CHARACTER J0406950 02EF 9017 697 | S FR901 TEST FOR AND J0406960 02F0 4C18 02FB 698 | BSC L FR080,+- *BRANCH IF BLANK J0406970 02F2 7301 699 | MDX 3 1 INCR COL CNT, SKIP IF ZERO J0406980 02F3 7001 700 | MDX *+1 J0406990 02F4 7006 701 | MDX FR080 BR TO READ CONTINUATION RCD J0407000 02F5 C700 7924 702 | LD L3 SBUFR+80 FETCH THE NEXT CHARACTER J0407010 02F7 900F 703 | S FR901 TEST FOR AND J0407020 02F8 4C18 02FB 704 | BSC L FR080,+- *BRANCH IF BLANK J0407030 705 | * INSTRUCTION REMOVED 2-9 J0407040 02FA 70BA 706 | MDX FR012 2-8 J0407050 707 | * J0407060 708 | * RECORD IS CONTINUED, READ CONTINUATION RECORD J0407070 709 | * J0407080 02FB 4400 0466 710 | FR080 BSI L RR000 BRANCH TO READ A RECORD J0407090 02FD 4400 03D6 711 | BSI L DT000 BR TO DETERMINE TYPE OF RCD J0407100 712 | * INSTRUCTION REMOVED 2-9 J0407110 02FF C400 0248 713 | LD L TYPE1 IF THIS RECORD OF SAME TYPE J0407120 0301 9400 0249 714 | S L TYPE2 *AS LAST RECORD BRANCH J0407130 0303 4C20 01F8 715 | BSC L LF130,Z BR TO PROCESS NEW RCD 2-8 J0407140 0305 70AE 716 | MDX FR010 BR TO PROCESS CONT RCD 2-8 J0407150 717 | * J0407160 718 | * CONSTANTS AND WORK AREA J0407170 719 | * J0407180 0306 0001 720 | FR900 DC 1 CONSTANT ONE J0407190 0307 0040 721 | FR901 DC /0040 EBCDIC BLANK J0407200 0308 006B 722 | FR902 DC /006B EBCDIC COMMA J0407210 0309 004D 723 | FR903 DC /004D EBCDIC LEFT PARENTHESIS 2-8 J0407220 030A 001F 724 | FR904 DC /001F PER CENT SIGN-LEFT PAREN2-8 J0407230 FILEQ--GET FILE NUMBER 726 | * J0407250 727 | * FETCH AND CONVERT FILE NUMBER J0407260 728 | * J0407270 030B 0000 729 | FR100 DC *-* ENTRY/RETURN ADDRESS J0407280 730 | * J0407290 030C C700 7924 731 | LD L3 SBUFR+80 FETCH FIRST CHARACTER J0407300 030E 9027 732 | S FR910 MASK AND J0407310 030F 4C28 0320 733 | BSC L FR170,Z+ *BRANCH IF NOT NUMERIC J0407320 0311 D400 0416 734 | STO L NAMEX INITIALIZE SUM J0407330 735 | * J0407340 0313 62FB 736 | LDX 2 -5 CHARACTER COUNT TO XR2 J0407350 737 | * J0407360 0314 7301 738 | FR120 MDX 3 1 INCR COL CNT, SKIP IF ZERO J0407370 0315 7003 739 | MDX FR160 J0407380 740 | * J0407390 0316 6203 741 | FR140 LDX 2 3 POINT TO ERROR MESSAGE J0407400 0317 4C00 0234 742 | BSC L LFERR BRANCH TO PRINT THE MESSAGE J0407410 743 | * J0407420 0319 C700 7924 744 | FR160 LD L3 SBUFR+80 FETCH THE NEXT CHARACTER J0407430 031B 901B 745 | S FR911 TEST FOR AND J0407440 031C 4C18 0331 746 | BSC L FR190,+- *BRANCH IF A COMMA J0407450 747 | * J0407460 031E 7201 748 | MDX 2 1 INCR CHAR CNT, SKIP IF ZERO J0407470 031F 7003 749 | MDX FR180 BRANCH TO FETCH NEXT CHAR J0407480 750 | * J0407490 0320 6205 751 | FR170 LDX 2 5 POINT TO ERROR MESSAGE J0407500 0321 4C00 0234 752 | BSC L LFERR BRANCH TO PRINT THE MESSAGE J0407510 753 | * J0407520 0323 C700 7924 754 | FR180 LD L3 SBUFR+80 FETCH THE CHARACTER AGAIN J0407530 0325 9010 755 | S FR910 MASK AND J0407540 0326 4C28 0320 756 | BSC L FR170,Z+ *BRANCH IF NOT NUMERIC J0407550 0328 D010 757 | STO FR913 SAVE THE NUMBER J0407560 0329 C400 0416 758 | LD L NAMEX FETCH THE SUM J0407570 032B A00C 759 | M FR912 MULTIPLY BY TEN J0407580 032C 1090 760 | SLT 16 SHIFT PRODUCT TO ACC J0407590 032D 800B 761 | A FR913 ADD THE NUMBER J0407600 032E D400 0416 762 | STO L NAMEX SAVE THE NEW SUM J0407610 0330 70E3 763 | MDX FR120 J0407620 764 | * J0407630 0331 7301 765 | FR190 MDX 3 1 POINT TO COLUMN AFTER COMMA J0407640 0332 7001 766 | MDX *+1 SKIP J0407650 0333 70E2 767 | MDX FR140 BRANCH IF RECORD OVER-RUN J0407660 768 | * J0407670 0334 4C80 030B 769 | BSC I FR100 RETURN J0407680 770 | * J0407690 771 | * CONSTANTS AND WORK AREA J0407700 772 | * J0407710 0336 00F0 773 | FR910 DC /00F0 NUMERIC MASK J0407720 0337 006B 774 | FR911 DC /006B EBCDIC COMMA J0407730 0338 000A 775 | FR912 DC 10 CONSTANT TEN J0407740 0339 0000 776 | FR913 DC *-* TEMPORARY STORAGE J0407750 FILEQ--GET CARTRIDGE ID 778 | * J0407770 779 | * FETCH AND CONVERT CARTRIDGE ID J0407780 780 | * J0407790 033A 0000 781 | FR200 DC *-* ENTRY/RETURN ADDRESS J0407800 782 | * J0407810 033B 1010 783 | SLA 16 INITAILIZE J0407820 033C D400 0416 784 | STO L NAMEX *THE CARTRIDGE ID J0407830 033E 62FB 785 | LDX 2 -5 CHARACTER COUNT TO XR2 J0407840 786 | * J0407850 033F 7301 787 | FR210 MDX 3 1 INCR COL CNT, SKIP IF ZERO J0407860 0340 7003 788 | MDX FR230 J0407870 789 | * J0407880 0341 6203 790 | FR220 LDX 2 3 POINT TO ERROR MESSAGE J0407890 0342 4C00 0234 791 | BSC L LFERR BRANCH TO PRINT THE MESSAGE J0407900 792 | * J0407910 0344 C700 7924 793 | FR230 LD L3 SBUFR+80 FETCH A CHARACTER J0407920 0346 9020 794 | S FR920 TEST FOR AND BRANCH J0407930 0347 4C18 0361 795 | BSC L FR270,+- *IF A RIGHT PARENTHESIS J0407940 796 | * J0407950 0349 7201 797 | MDX 2 1 INCR CHAR CNT, SKIP IF ZERO J0407960 034A 7003 798 | MDX FR250 J0407970 799 | * J0407980 034B 6207 800 | FR240 LDX 2 7 POINT TO ERROR MESSAGE J0407990 034C 4C00 0234 801 | BSC L LFERR BRANCH TO PRINT THE MESSAGE J0408000 802 | * J0408010 034E C700 7924 803 | FR250 LD L3 SBUFR+80 FETCH THE CHARACTER AGAIN J0408020 0350 9017 804 | S FR921 TEST FOR AND J0408030 0351 4C10 035A 805 | BSC L FR260,- *BRANCH IF NUMERIC J0408040 0353 8016 806 | A FR925 2-10 J0408050 0354 4C30 034B 807 | BSC L FR240,-Z ERROR IF ABOVE F 2-10 J0408060 0356 8015 808 | A FR926 2-10 J0408070 0357 4C08 034B 809 | BSC L FR240,+ ERROR IF BELOW A 2-10 J0408080 0359 800F 810 | A FR922 CONVERT TO ALPHABETIC 2-10 J0408090 035A 1884 811 | FR260 SRT 4 SAVE DIGIT IN EXT 2-10 J0408100 035B C400 0416 812 | LD L NAMEX GET PREVIOUS 2-10 J0408110 035D 1084 813 | SLT 4 MULT BY 16, ADD NEW 2-10 J0408120 035E D400 0416 814 | STO L NAMEX SAVE NEW SUM J0408160 0360 70DE 815 | MDX FR210 BR TO FETCH NEXT CHARACTER J0408170 816 | * J0408180 0361 C400 0416 817 | FR270 LD L NAMEX FETCH THE CARTRIDGE ID J0408190 0363 4C28 034B 818 | BSC L FR240,Z+ BRANCH IF NEGATIVE J0408200 819 | * J0408210 0365 4C80 033A 820 | BSC I FR200 RETURN J0408220 821 | * J0408230 822 | * CONSTANTS AND WORK AREA J0408240 823 | * J0408250 0367 005D 824 | FR920 DC /005D EBCDIC RIGHT PARENTHESIS J0408260 0368 00F0 825 | FR921 DC /00F0 NUMERIC MASK J0408270 0369 0009 826 | FR922 DC /0009 ALPHABETIC MASK J0408280 036A 002A 827 | FR925 DC /F0-/C6 RANGE TO EBCDIC F 2-10 J0408290 036B 0000 828 | FR924 DC *-* TEMPORARY STORAGE J0408300 036C 0006 829 | FR926 DC /C6-/C1+1 RANGE FROM A TO F +1 2-11 J0408305 FILEQ--PROCESS G2250 RECORDS 831 | * 2G2 J0408320 832 | * PROCESS G2250 RECORDS 2G2 J0408330 833 | * 2G2 J0408340 834 | * 2G2 J0408350 036D C014 835 | GR000 LD GR900 INITIALIZE THE WORD 2G2 J0408360 036E D480 024E 836 | STO I WDCNT *COUNT TO ONE 2G2 J0408370 837 | * 2G2 J0408380 838 | * INSPECT THE CONTENTS OF COL 7 2-11 J0408390 839 | * 2G2 J0408400 0370 63B6 840 | LDX 3 -74 2G2 J0408410 0371 C700 7924 841 | LD L3 SBUFR+80 FETCH COL 7 2G2 J0408420 0373 900F 842 | S GR902 TEST FOR AND 2G2 J0408430 0374 4C20 03C3 843 | BSC L GR030,Z BR IF NOT BLANK 2G2 J0408440 844 | * 2G2 J0408450 845 | * MAINLINE NAME NOT GIVEN 2G2 J0408460 846 | * 2G2 J0408470 0376 10A0 847 | SLT 32 2G2 J0408480 0377 DC00 0416 848 | STD L NAMEX SET M.L. NAME BLANK 2G2 J0408490 0379 7021 849 | MDX GR020 2G2 J0408500 850 | * 2G2 J0408510 851 | * MAINLINE NAME GIVEN 2G2 J0408520 852 | * 2G2 J0408530 037A 4400 0419 853 | GR010 BSI L FN000 FETCH THE N.L. NAME 2G2 J0408540 037C 7400 024F 854 | MDX L COLSW,0 SKIP IF COL.1 OF NAME BL2G2 J0408550 037E 701C 855 | MDX GR020 BR TO NAME STORING RTN 2G2 J0408560 037F 6204 856 | LDX 2 4 POINT TO ERROR MSG. 2G2 J0408570 0380 4C00 0234 857 | BSC L LFERR PRINT THE MESSAGE 2G2 J0408580 858 | * 2G2 J0408590 859 | * CONSTANTS 2G2 J0408600 860 | * 2G2 J0408610 0063 861 | $GCOM EQU /63 G2250 SUBROUTINE INDICAT2G2 J0408620 0382 0001 862 | GR900 DC 1 CONSTANT ONE 2G2 J0408630 0383 0040 863 | GR902 DC /40 EBCDIC BLANK 2G2 J0408640 0384 864 | BSS E 0 2G2 J0408650 0384 070D 865 | GR905 DC /070D GCOM (REQUIRED SUBRTN) 2G2 J0408660 0385 6500 866 | DC /6500 2G2 J0408670 0386 070C 867 | GR906 DC /070C GCHAR (ALL CHAR) 2G2 J0408680 0387 8059 868 | DC /8059 2G2 J0408690 0388 0791 869 | GR907 DC /0791 GUPER (UPPER CASE,NUM,SP2G2 J0408700 0389 7159 870 | DC /7159 2G2 J0408710 038A 0789 871 | GR908 DC /0789 GSP06 (SCISSOR RTN) 2G2 J0408720 038B 7C36 872 | DC /7C36 2G2 J0408730 038C 0095 873 | GR909 DC /95 EBCDIC N-EBCDIC BLANK 2G2 J0408740 038D 00E4 874 | GR910 DC /E4 EBCDIC U 2G2 J0408750 038E 0789 875 | GR911 DC /0789 GSP05 (PUSH UP RTN) 2G2 J0408760 038F 7C35 876 | DC /7C35 2G2 J0408770 0390 0789 877 | GR912 DC /0789 GSP12(LEVEL ENT.SUPPORT)2G2 J0408780 0391 7C72 878 | DC /7C72 2G2 J0408790 0392 0789 879 | GR913 DC /0789 GSP11(INDEX ENT.SEARCH R2G2 J0408800 0393 7C71 880 | DC /7C71 2G2 J0408810 881 | * 2G2 J0408820 882 | * STORE THE NAME IN SCRA BUFFER 2G2 J0408830 0394 0000 883 | GR015 DC *-* RTN TO STORE SUBROUTINE 2G2 J0408840 0395 DC00 0416 884 | STD L NAMEX NAME IN SCRA RECORD 2G2 J0408850 0397 4400 03F4 885 | BSI L FB000 2G2 J0408860 0399 4C80 0394 886 | BSC I GR015 2G2 J0408870 887 | * 2G2 J0408880 039B C8E6 888 | GR020 LDD GR900 SET EXT SW TO STORE 2 WO2G2 J0408890 039C 4400 03F4 889 | BSI L FB000 STORE THE NAINLINE NAME 2G2 J0408900 039E C0E3 890 | GR021 LD GR900 2G2 J0408910 039F D400 0063 891 | STO L $GCOM SET GSP INDICATOR 2G2 J0408920 03A1 C8E2 892 | LDD GR905 GCOM IN NAME CODE 2G2 J0408930 03A2 40F1 893 | BSI GR015 STORE NAME IN SCRA RECOR2G2 J0408940 894 | * 2G2 J0408950 03A3 C400 78E0 895 | LD L SBUFR+12 CHK COL 13 FOR U 2G2 J0408960 03A5 90E7 896 | S GR910 EBCDIC U 2G2 J0408970 03A6 4C18 03C6 897 | BSC L GR040,+- BR IF GUPER 2G2 J0408980 898 | * 2G2 J0408990 03A8 C400 78E0 899 | LD L SBUFR+12 CHK COL 13 FOR BLANK OR 2G2 J0409000 03AA 401D 900 | BSI GR050 CHK COL FOR BLANK OR N 2G2 J0409010 03AB C8DA 901 | LDD GR906 GCHAR 2G2 J0409020 03AC 40E7 902 | GR025 BSI GR015 STORE NAME IN SCRA REC 2G2 J0409030 903 | * 2G2 J0409040 03AD C400 78E8 904 | LD L SBUFR+20 CHK COL 21 2G2 J0409050 03AF 4018 905 | BSI GR050 CHK COL FOR BLANK OR N 2G2 J0409060 03B0 C8DF 906 | LDD GR912 GSP12 2G2 J0409070 03B1 40E2 907 | BSI GR015 STORE NAME IN SCRA REC 2G2 J0409080 908 | * 2G2 J0409090 03B2 C400 78E2 909 | LD L SBUFR+14 CHK COL 15 2G2 J0409100 03B4 4013 910 | BSI GR050 CHK COL FOR BLANK OR N 2G2 J0409110 03B5 C8D4 911 | LDD GR908 GSP06 2G2 J0409120 03B6 40DD 912 | BSI GR015 STORE NAME IN SCRA REC 2G2 J0409130 913 | * 2G2 J0409140 03B7 C400 78E4 914 | LD L SBUFR+16 CHK COL 17 2G2 J0409150 03B9 400E 915 | BSI GR050 CHK COL FOR BLANK OR N 2G2 J0409160 03BA C8D3 916 | LDD GR911 GSP05 2G2 J0409170 03BB 40D8 917 | BSI GR015 STORE NAME IN SCRA REC 2G2 J0409180 918 | * 2G2 J0409190 03BC C400 78E6 919 | LD L SBUFR+18 CHK COL 19 2G2 J0409200 03BE 4009 920 | BSI GR050 CHK COL FOR BLANK OR N 2G2 J0409210 03BF C8D2 921 | LDD GR913 GSP11 2G2 J0409220 03C0 40D3 922 | BSI GR015 STORE NAME IN SCRA REC 2G2 J0409230 923 | * 2G2 J0409240 03C1 4C00 0212 924 | BSC L LF140 FETCH NEXT SUPV REC 2G2 J0409250 925 | * 2G2 J0409260 926 | * ERROR, MAINLINE NAME IN STORECI SUPV 2G2 J0409270 927 | * CONTROL RECORD 2G2 J0409280 928 | * 2G2 J0409290 03C3 6201 929 | GR030 LDX 2 1 D 41 ERROR MSG. 2G2 J0409300 03C4 4C00 0234 930 | BSC L LFERR PRINT ERROR MSG. 2G2 J0409310 931 | * 2G2 J0409320 03C6 C8C1 932 | GR040 LDD GR907 GUPER 2G2 J0409330 03C7 70E4 933 | MDX GR025 STORE NAME 2G2 J0409340 934 | * 2G2 J0409350 935 | * COMMON RTN TO CHK COLUMN FOR 2G2 J0409360 936 | * BLANK OR N. 2G2 J0409370 937 | * 2G2 J0409380 03C8 0000 938 | GR050 DC *-* ENTRY POINT 2G2 J0409390 03C9 90B9 939 | S GR902 CHK IF COL IS BLANK 2G2 J0409400 03CA 4C98 03C8 940 | BSC I GR050,+- BR IF YES 2G2 J0409410 03CC 90BF 941 | S GR909 NO,CHK IF N 2G2 J0409420 03CD 4C20 03D3 942 | BSC L GR060,Z BR IF NO,ERROR 2G2 J0409430 03CF 7402 03C8 943 | MDX L GR050,2 INCR RETURN ADDR TO CHK 2G2 J0409440 03D1 4C80 03C8 944 | BSC I GR050 NEXT COL AND RETURN 2G2 J0409450 945 | * 2G2 J0409460 03D3 6204 946 | GR060 LDX 2 4 SET POINTER TO ERROR 2G2 J0409470 03D4 4C00 0234 947 | BSC L LFERR BR TO PRINT MSG 2G2 J0409480 FILEQ--DETERMINE TYPE OF CONTROL RCD 949 | * J0409500 950 | * DETERMINE TYPE OF SUPERVISOR CONTROL RECORD J0409510 951 | * J0409520 03D6 0000 952 | DT000 DC *-* ENTRY/RETURN ADDRESS J0409530 953 | * J0409540 03D7 6301 954 | LDX 3 1 TYPE COUNT TO XR3 J0409550 03D8 62F8 955 | LDX 2 -8 WORD COUNT TO XR2 2G2 J0409560 956 | * J0409570 03D9 CC00 7926 957 | DT020 LDD L PBUFR FETCH NAME FROM BUFFER J0409580 03DB 9E00 03F4 958 | SD L2 DT900+8 SUBTRACT A SCR NAME 2G2 J0409590 03DD 4C20 03E2 959 | BSC L DT040,Z BR IF FIRST HALF NOT EQUAL J0409600 03DF 1090 960 | SLT 16 SHIFT 2ND HALF DIFF TO ACC J0409610 03E0 4C18 03E8 961 | BSC L DT060,+- BR IF SECOND HALF EQUAL J0409620 03E2 7301 962 | DT040 MDX 3 1 INCREMENT TYPE COUNT J0409630 03E3 7202 963 | MDX 2 2 INCR WORD CNT, SKIP IF ZERO J0409640 03E4 70F4 964 | MDX DT020 BRANCH TO TEST NEXT NAME J0409650 965 | * J0409660 03E5 6201 966 | LDX 2 1 POINT TO ERROR MESSAGE J0409670 03E6 4C00 0234 967 | BSC L LFERR BRANCH TO PRINT THE MESSAGE J0409680 968 | * J0409690 03E8 6F00 0248 969 | DT060 STX L3 TYPE1 SAVE THE RECORD TYPE CODE J0409700 03EA 4C80 03D6 970 | BSC I DT000 RETURN J0409710 971 | * J0409720 972 | * CONSTANTS AND WORK AREA J0409730 973 | * J0409740 03EC 974 | BSS E 0 J0409750 03EC 5CD3 D6C3 975 | DT900 EBC .*LOC. J0409760 03EE 5CD5 D6C3 976 | EBC .*NOC. J0409770 03F0 5CC6 C9D3 977 | EBC .*FIL. J0409780 03F2 5CC7 F2F2 978 | EBC .*G22. 2G2 J0409790 FILEQ--INSERT WORDS INTO SCRA BFR 980 | * J0409810 981 | * STORE ONE OR TWO WORDS TO THE SCRA I/O BUFFER J0409820 982 | * J0409830 03F4 0000 983 | FB000 DC *-* ENTRY/RETURN ADDRESS J0409840 984 | * J0409850 03F5 6600 0000 985 | LDX L2 *-* BUFFER COUNT TO XR2 J0409860 03F6 986 | BFCNT EQU *-1 J0409870 03F7 7201 987 | MDX 2 1 INCR BUFR CNT, SKIP IF ZERO J0409880 03F8 7003 988 | MDX FB040 BRANCH TO STORE WORD J0409890 989 | * J0409900 990 | * SCRA BUFFER FILLED J0409910 991 | * J0409920 03F9 6208 992 | FB020 LDX 2 8 POINT TO ERROR MESSAGE J0409930 03FA 4C00 0234 993 | BSC L LFERR BRANCH TO PRINT THE MESSAGE J0409940 994 | * J0409950 995 | * STORE A WORD J0409960 996 | * J0409970 03FC C019 997 | FB040 LD NAMEX STORE A WORD TO J0409980 03FD D600 08C2 998 | STO L2 SCRAB+640 *THE SCRA I/O BUFFER J0409990 03FF C480 024E 999 | LD I WDCNT INCREMENT J0410000 0401 8016 1000 | A FB900 THE J0410010 0402 D480 024E 1001 | STO I WDCNT WORD COUNT J0410020 1002 | * J0410030 0404 1090 1003 | SLT 16 SHIFT WORD SWITCH TO ACC J0410040 0405 4C18 0412 1004 | BSC L FB060,+- BRANCH IF ONLY ONE WORD J0410050 1005 | * J0410060 1006 | * STORE THE SECOND WORD J0410070 1007 | * J0410080 0407 7201 1008 | MDX 2 1 INCR BUFR CNT, SKIP IF ZERO J0410090 0408 7001 1009 | MDX *+1 SKIP J0410100 0409 70EF 1010 | MDX FB020 BR TO FETCH ERROR MESSAGE J0410110 040A C00C 1011 | LD NAMEX+1 STORE A WORD TO J0410120 040B D600 08C2 1012 | STO L2 SCRAB+640 *THE SCRA I/O BUFFER J0410130 040D C480 024E 1013 | LD I WDCNT INCREMENT J0410140 040F 8008 1014 | A FB900 THE J0410150 0410 D480 024E 1015 | STO I WDCNT WORD COUNT J0410160 1016 | * J0410170 0412 6AE3 1017 | FB060 STX 2 BFCNT SAVE BUFFER COUNT J0410180 0413 4C80 03F4 1018 | BSC I FB000 RETURN J0410190 1019 | * J0410200 1020 | * CONSTANTS AND WORK AREA J0410210 1021 | * J0410220 0416 1022 | BSS E 0 J0410230 0416 0000 1023 | NAMEX DC *-* NAME IN NAME CODE OR J0410240 0417 0000 1024 | DC *-* *BINARY NUMBER J0410250 0418 0001 1025 | FB900 DC 1 CONSTANT ONE J0410260 FILEQ--GET LOCAL,NOCAL,FILES NAME 1027 | * J0410280 1028 | * FETCH A NAME AND CONVERT TO NAME CODE J0410290 1029 | * J0410300 0419 0000 1030 | FN000 DC *-* ENTRY/RETURN ADDRESS J0410310 1031 | * J0410320 1032 | * CLEAR THE NAME AREA J0410330 1033 | * J0410340 041A 62FB 1034 | LDX 2 -5 CHARACTER COUNT TO XR2 J0410350 041B C046 1035 | LD FN901 FETCH EBCDIC BLANK J0410360 041C D600 0462 1036 | FN020 STO L2 FN900+5 STORE TO NAME AREA J0410370 041E 7201 1037 | MDX 2 1 INCR CHAR CNT, SKIP IF ZERO J0410380 041F 70FC 1038 | MDX FN020 BRANCH TO CLEAR NEXT WORD J0410390 1039 | * J0410400 1040 | * FETCH AND TEST THE FIRST CHARACTER J0410410 1041 | * J0410420 0420 C700 7924 1042 | LD L3 SBUFR+80 FETCH FIRST CHARACTER J0410430 0422 903F 1043 | S FN901 TEST FOR AND J0410440 0423 4C20 042A 1044 | BSC L FN040,Z *BRANCH IF NOT BLANK J0410450 0425 1810 1045 | SRA 16 ZERO INDICATES A J0410460 0426 D400 024F 1046 | STO L COLSW *BLANK FIRST COLUMN J0410470 0428 4C80 0419 1047 | BSC I FN000 RETURN J0410480 1048 | * J0410490 1049 | * STORE THE CHARACTERS J0410500 1050 | * J0410510 042A 62FB 1051 | FN040 LDX 2 -5 CHARACTER COUNT TO XR2 J0410520 042B C038 1052 | LD FN903 SET UP EXTENSION J0410530 042C 1887 1053 | SRT 7 *FOR COLUMN SWITCH J0410540 1054 | * J0410550 042D C700 7924 1055 | FN060 LD L3 SBUFR+80 FETCH THE CHARACTER J0410560 042F D600 0462 1056 | STO L2 FN900+5 STORE CHAR TO CONVERT AREA J0410570 0431 7301 1057 | MDX 3 1 INCR COL CNT, SKIP IF ZERO J0410580 0432 7001 1058 | MDX *+1 SKIP J0410590 0433 7019 1059 | MDX FN080 BRANCH IF END OF RECORD J0410600 1060 | * J0410610 0434 C700 7924 1061 | LD L3 SBUFR+80 FETCH THE CHARACTER J0410620 0436 902B 1062 | S FN901 TEST FOR AND J0410630 0437 4C18 044D 1063 | BSC L FN080,+- *BRANCH IF A BLANK J0410640 1064 | * J0410650 0439 C700 7924 1065 | LD L3 SBUFR+80 FETCH THE CHARACTER AGAIN J0410660 043B 9027 1066 | S FN902 TEST FOR AND J0410670 043C 4C18 0450 1067 | BSC L FN100+1,+- *BRANCH IF A COMMA J0410680 1068 | * J0410690 043E C700 7924 1069 | LD L3 SBUFR+80 FETCH THE CHARACTER AGAIN J0410700 0440 9023 1070 | S FN903 TEST FOR AND J0410710 0441 4C18 044F 1071 | BSC L FN100,+- *BRANCH IF A RIGHT PAREN J0410720 1072 | * J0410730 0443 C700 7924 1073 | LD L3 SBUFR+80 FETCH THE CHAR AGAIN 2-8 J0410740 0445 F01F 1074 | EOR FN904 TEST FOR AND 2-8 J0410750 0446 4C18 044F 1075 | BSC L FN100,+- *BRANCH IF A LESS THAN 2-8 J0410760 1076 | * 2-8 J0410770 0448 7201 1077 | MDX 2 1 INCR CHAR CNT, SKIP IF ZERO J0410780 0449 70E3 1078 | MDX FN060 BRANCH TO STORE THE CHAR J0410790 1079 | * J0410800 1080 | * NAME LONGER THAN FIVE CHARACTERS J0410810 1081 | * J0410820 044A 6206 1082 | FN070 LDX 2 6 POINT TO ERROR MESSAGE J0410830 044B 4C00 0234 1083 | BSC L LFERR BRANCH TO PRINT THE MESSAGE J0410840 1084 | * J0410850 1085 | * SET SWITCH INDICATING CHARACTER ENDING NAME J0410860 1086 | * J0410870 1087 | * J0410880 044D 1090 1088 | FN080 SLT 16 NEGATIVE INDICATES A BLANK J0410890 044E 7002 1089 | MDX FN120 J0410900 1090 | * J0410910 044F 1081 1091 | FN100 SLT 1 TWO INDICATES A LEFT PAREN J0410920 0450 1081 1092 | SLT 1 ONE INDICATES A COMMA J0410930 0451 D400 024F 1093 | FN120 STO L COLSW J0410940 1094 | * J0410950 1095 | * CONVERT THE NAME TO NAME CODE J0410960 1096 | * J0410970 0453 6600 045D 1097 | LDX L2 FN900 ADDR OF CHAR BUFFER TO XR2 J0410980 0455 4400 04E2 1098 | BSI L LABCK BRANCH TO CONVERSION SUBR J0410990 0457 7001 1099 | MDX *+1 SKIP ON NORMAL RETURN J0411000 0458 70F1 1100 | MDX FN070 BR TO PRINT ERROR MESSAGE J0411010 0459 DC00 0416 1101 | STD L NAMEX SAVE NAME J0411020 045B 4C80 0419 1102 | BSC I FN000 RETURN J0411030 1103 | * J0411040 1104 | * CONSTANTS AND WORK AREA J0411050 1105 | * J0411060 045D 1106 | FN900 BSS 5 CHARACTER BUFFER J0411070 0462 0040 1107 | FN901 DC /0040 EBCDIC BLANK J0411080 0463 006B 1108 | FN902 DC /006B EBCDIC COMMA J0411090 0464 005D 1109 | FN903 DC /005D EBCDIC RIGHT PARENTHESIS J0411100 0465 004C 1110 | FN904 DC /004C EBCDIC LESS THAN 2-8 J0411110 FILEQ--READ AND PRINT CONTROL RECORD 1112 | * J0411130 1113 | * READ AND PRINT A SUPERVISOR CONTROL RECORD J0411140 1114 | * J0411150 0466 0000 1115 | RR000 DC *-* ENTRY/RETURN ADDRESS J0411160 1116 | * J0411170 0467 7400 7FB5 1117 | MDX L NORCD+C,0 SKIP IF RECORD COUNT ZERO J0411180 0469 7004 1118 | MDX RR020 BRANCH TO READ RECORD J0411190 1119 | * J0411200 1120 | * ALL SUPERVISOR CONTROL RECORDS HAVE BEEN READ J0411210 1121 | * J0411220 046A 4400 04BA 1122 | BSI L WR000 BR TO WRITE BUFFER TO SCRA J0411230 046C 4C00 021C 1123 | BSC L LF200 RETURN - ALL RCDS PROCESSED J0411240 1124 | * J0411250 1125 | * READ A RECORD J0411260 1126 | * J0411270 046E 4480 7A0A 1127 | RR020 BSI I GETHO READ SUP CONTROL RECORD J0411280 0470 7400 0013 1128 | MDX L $IBSY,0 SKIP IF READ COMPLETE J0411290 0472 70FD 1129 | MDX *-3 LOOP TILL READ COMPLETE J0411300 1130 | * * J0411310 1131 | * 2-8 J0411320 1132 | * THE FOLLOWING TWO INSTRUCTIONS ARE 2-8 J0411330 1133 | * MOVED IN V2M8 2-8 J0411340 1134 | * 2-8 J0411350 0473 C15D 1135 | LD 1 PEBUF INITLZ INSTRUCTION TO J0411360 0474 D01B 1136 | STO RR026+1 *STORE J0411370 0475 80A2 1137 | A FB900 POINT ADDR TO PACKED 2-8 J0411380 0476 D01E 1138 | STO RR028+1 *BUFFER 2-8 J0411390 0477 80A0 1139 | A FB900 POINT ADDR TO 2ND WORD 2-8 J0411400 0478 D021 1140 | STO RR030+1 *IN BUFFER 2-8 J0411410 0479 D02D 1141 | STO RR036+1 2-8 J0411420 047A 809D 1142 | A FB900 POINT ADDR TO 3RD WORD 2-8 J0411430 047B D023 1143 | STO RR032+1 *IN BUFFER 2-8 J0411440 1144 | * 2-8 J0411450 047C C110 1145 | LD 1 BLKSW J0411460 047D 4C18 0494 1146 | BSC L RR028,+- BRANCH IF RCD CONVERTED 2-8 J0411470 1147 | * * J0411480 047F C157 1148 | LD 1 CRBUF ADDR OF I/O BFR IN ACC J0411490 0480 D00A 1149 | STO RR024+1 INITIALIZE INSTRUCTION J0411500 0481 C13F 1150 | LD 1 INOUT PRINCIPAL INPUT SWITCH 2-3 J0411510 0482 4C28 0487 1151 | BSC L RR021,+Z BR IF PPTAPE PRINC INPUT2-3 J0411520 0484 C157 1152 | LD 1 CRBUF ADDR OF I/O BFR IN ACC 2-3 J0411530 0485 4480 7A09 1153 | BSI I GETHO-1 CONVERT .CRBUF. TO EBC J0411540 1154 | *************************************************** J0411550 1155 | * * J0411560 1156 | * PACK .CRBUF. INTO .PEBUF. * J0411570 1157 | * * J0411580 1158 | *************************************************** J0411590 0487 6251 1159 | RR021 LDX 2 81 XR2 IS UNPACKED WD CNT + 1 J0411600 0488 6328 1160 | LDX 3 40 XR3 IS PACKED BFR WD CNT J0411610 1161 | * 2-8 J0411620 1162 | * TWO INSTRUCTIONS ARE MOVED FROM HERE IN V2M8 2-8 J0411630 1163 | * 2-8 J0411640 1164 | * * J0411650 0489 72FE 1165 | RR022 MDX 2 -2 NEXT UNPACKED WORDS J0411660 048A CE00 0000 1166 | RR024 LDD L2 *-* PICK UP TWO UNPACKED WORDS J0411670 048C 18D0 1167 | RTE 16 *AND FORM J0411680 048D 1008 1168 | SLA 8 *TWO PACKED CHARACTERS J0411690 048E 18C8 1169 | RTE 8 *IN ACCUMULATOR J0411700 048F D700 0000 1170 | RR026 STO L3 *-* STORE 2 PACKED CHARACTERS J0411710 1171 | * * J0411720 0491 73FF 1172 | MDX 3 -1 NEXT ADDR IN PACKED BUFFER J0411730 0492 70F6 1173 | MDX RR022 CONTINUE PACKING J0411740 0493 7017 1174 | MDX RR050 BR TO PRINT RCD 2-8 J0411750 1175 | * 2-8 J0411760 1176 | * TEST FOR // RECORD 2-8 J0411770 1177 | * 2-8 J0411780 0494 C400 0000 1178 | RR028 LD L *-* TEST FOR // 2-8 J0411790 0496 901E 1179 | S RR900 2-8 J0411800 0497 4C20 04AB 1180 | BSC L RR050,Z BR IF NOT // 2-8 J0411810 0499 C400 0000 1181 | RR030 LD L *-* TEST FOR DUP OR COMMENT 2-8 J0411820 049B 901A 1182 | S RR901 *RECORD 2-8 J0411830 049C 4C20 04A6 1183 | BSC L RR036,Z BR IF NOT DUP 2-8 J0411840 049E C400 0000 1184 | RR032 LD L *-* TEST IF 5TH AND 6TH COLS2-8 J0411850 04A0 9016 1185 | S RR902 *ARE 'UP' 2-8 J0411860 04A1 4C18 04AB 1186 | BSC L RR050,+- BRANCH IF DUP RECORD 2-8 J0411870 04A3 62FF 1187 | RR034 LDX 2 -1 PARAMETER FOR EXIT 2-8 J0411880 04A4 4C00 0235 1188 | BSC L LF255 EXIT TO SUP 2-8 J0411890 1189 | * 2-8 J0411900 04A6 C400 0000 1190 | RR036 LD L *-* TEST FOR COMMENT RCD 2-8 J0411910 04A8 900F 1191 | S RR903 IF NOT COMMENT RCD EXIT 2-8 J0411920 04A9 4C20 04A3 1192 | BSC L RR034,Z *TO SUPERVISOR 2-8 J0411930 1193 | * 2-8 J0411940 1195 | * J0411960 1196 | * PRINT THE RECORD J0411970 1197 | * J0411980 04AB C15D 1198 | RR050 LD 1 PEBUF J0411990 04AC D002 1199 | STO RR060 INITLZ CALL TO PRINT SUBR J0412000 04AD 4480 7DBB 1200 | BSI I PRINT PRINT SUP CONTROL RECORD J0412010 04AF 0000 1201 | RR060 DC *-* ADDR OF PRINT BUFFER J0412020 1202 | * J0412030 04B0 74FF 7FB5 1203 | MDX L NORCD+C,-1 DECR THE NUMBER OF J0412040 04B2 1000 1204 | NOP *SUPERVISOR CONTROL RECORDS J0412050 04B3 4C80 0466 1205 | BSC I RR000 RETURN J0412060 1206 | * J0412070 1207 | * CONSTANTS AND WORK AREA J0412080 1208 | * J0412090 04B5 6161 1209 | RR900 EBC .//. 2-8 J0412100 04B6 40C4 1210 | RR901 EBC . D. 2-8 J0412110 04B7 E4D7 1211 | RR902 EBC .UP. 2-8 J0412120 04B8 405C 1212 | RR903 EBC . *. 2-8 J0412130 04B9 0000 1213 | LWDCT DC *-* ADDR OF LAST WORD COUNT J0412140 FILEQ--OUTPUT SCRA BFR TO DISK 1215 | * J0412160 1216 | * WRITE THE SCRA I/O BUFFER TO THE DISK J0412170 1217 | * J0412180 04BA 0000 1218 | WR000 DC *-* ENTRY/RETURN ADDRESS J0412190 04BB 6B1F 1219 | STX 3 WR070+1 SAVE XR3 J0412200 1220 | * J0412210 04BC C400 0249 1221 | LD L TYPE2 IF LAST RECORD TYPE NOT SET J0412220 04BE 4C18 04CC 1222 | BSC L WR040,+- *BRANCH TO CLEAR THE BUFFER J0412230 04C0 9020 1223 | S WR903 TEST FOR AND J0412240 04C1 4C10 04C8 1224 | BSC L WR020,- *BRANCH IF LAST WAS FILES J0412250 1225 | * J0412260 1226 | * WRITE THE BUFFER J0412270 1227 | * J0412280 04C3 C480 04B9 1228 | LD I LWDCT FETCH LAST WORD COUNT J0412290 04C5 E81A 1229 | OR WR902 -OR- IN NEGATIVE SIGN BIT J0412300 04C6 D480 04B9 1230 | STO I LWDCT RESTORE LAST WORD COUNT J0412310 04C8 6700 0640 1231 | WR020 LDX L3 SCRAB-2 XR3 POINTS TO SCRA BFR J0412320 04CA 4480 7DBC 1232 | BSI I PUT WRITE TO SCRA J0412330 1233 | * J0412340 1234 | * CLEAR THE SCRA BUFFER J0412350 1235 | * J0412360 04CC 6600 FD80 1236 | WR040 LDX L2 -640 WORD COUNT TO XR2 J0412370 04CE 1810 1237 | SRA 16 CLEAR THE ACCUMULATOR J0412380 04CF D600 08C2 1238 | WR060 STO L2 SCRAB+640 STORE THE SCRA BUFFER J0412390 04D1 7201 1239 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO J0412400 04D2 70FC 1240 | MDX WR060 BRANCH TO CLEAR NEXT WORD J0412410 1241 | * J0412420 04D3 6600 0642 1242 | LDX L2 SCRAB INITIALIZE THE ADDRESS OF J0412430 04D5 6E00 024E 1243 | STX L2 WDCNT *THE WD CNT OF THE BUFFER J0412440 04D7 C0F5 1244 | LD WR040+1 INITIALIZE THE J0412450 04D8 D400 03F6 1245 | STO L BFCNT *BUFFER COUNT J0412460 04DA 6700 0000 1246 | WR070 LDX L3 *-* RELOAD XR3 J0412470 04DC 4C80 04BA 1247 | WR080 BSC I WR000 RETURN J0412480 1248 | * J0412490 1249 | * CONSTANTS AND WORK AREA J0412500 1250 | * J0412510 04DE 1251 | BSS E 0 J0412520 04DE 0001 1252 | WR900 DC /0001 WRITE FUNCTION CODE J0412530 04DF 0640 1253 | WR901 DC SCRAB-2 ADDRESS OF SCRA I/O BUFFER J0412540 04E0 8000 1254 | WR902 DC /8000 NEGATIVE SIGN BIT J0412550 04E1 0003 1255 | WR903 DC 3 CONSTANT THREE J0412560 FILEQ--CONVERT NAMES TO NAME CODE 1257 | * CONVERT NAME FROM UNPACKED FORM (1 CHARACTER/ J0412580 1258 | * WORD TO COMPRESSED FORM (5 6-BIT CHARACTERS J0412590 1259 | * TO 30 RIGHT JUSTIFIED BITS IN TWO WORDS.) IF J0412600 1260 | * IS INVALID, PSEUDO-SKIP AND RETURN ZEROS J0412610 1261 | * EQUIVALENT TO 5 BLANKS) IN ACCUMULATOR AND J0412620 1262 | * EXTENTION. J0412630 1263 | * J0412640 04E2 0000 1264 | LABCK DC *-* ENTRY/EXIT J0412650 04E3 C200 1265 | LD 2 0 J0412660 04E4 902C 1266 | S LAB06 FIRST CHARACTER MUST NOT J0412670 04E5 4C10 0500 1267 | BSC L LAB04,- *BE NUMERIC J0412680 04E7 693A 1268 | STX 1 LAB09+1 SAVE XR1 J0412690 04E8 6B3B 1269 | STX 3 LAB09+3 SAVE XR3 J0412700 04E9 63FB 1270 | LDX 3 -5 J0412710 04EA C200 1271 | LD 2 0 J0412720 04EB 9026 1272 | S LAB06+1 J0412730 04EC 4C18 0533 1273 | BSC L LAB12,+- BRANCH IF FIRST CHAR. BLANK J0412740 04EE 6500 0504 1274 | LAB01 LDX L1 LAB05 J0412750 04F0 C200 1275 | LD 2 0 CHECK EACH CHARACTER FOR J0412760 04F1 9020 1276 | S LAB06+1 *BLANK J0412770 04F2 4C18 0527 1277 | BSC L LAB10,+- J0412780 04F4 9100 1278 | LAB02 S 1 0 *AND VALID 8-BIT CHARACTER J0412790 04F5 4C28 0500 1279 | BSC L LAB04,Z+ J0412800 04F7 9101 1280 | S 1 1 J0412810 04F8 4C08 04FC 1281 | BSC L LAB03,+ J0412820 04FA 7102 1282 | MDX 1 2 J0412830 04FB 70F8 1283 | MDX LAB02 J0412840 04FC 7201 1284 | LAB03 MDX 2 1 INCREMENT POINTER J0412850 04FD 7301 1285 | MDX 3 1 COUNT AND TEST CHARACTERS J0412860 04FE 70EF 1286 | MDX LAB01 GO TEST NEXT CHARACTER J0412870 04FF 7014 1287 | MDX LAB07 J0412880 0500 10A0 1288 | LAB04 SLT 32 RETURN BLANKS J0412890 0501 7401 04E2 1289 | MDX L LABCK,1 PSEUDO-SKIP J0412900 0503 701D 1290 | MDX LAB09 J0412910 1291 | * J0412920 0504 001B 1292 | LAB05 DC .$-. TABLE OF VALID CHARACTERS J0412930 0505 0000 1293 | DC .$-.$ (INCLUSIVE LIMITS) J0412940 0506 0020 1294 | DC .#-.$ A-I,J-R,S-Z,0-9,$,#,@ J0412950 0507 0001 1295 | DC /0001 AT SIGN - POUND SIGN 2-8 J0412960 0508 0045 1296 | DC /0045 A - AT SIGN 2-8 J0412970 0509 0008 1297 | DC .I-.A J0412980 050A 0008 1298 | DC .J-.I J0412990 050B 0008 1299 | DC .R-.J J0413000 050C 0009 1300 | DC .S-.R J0413010 050D 0007 1301 | DC .Z-.S J0413020 050E 0007 1302 | DC .0-.Z J0413030 050F 0009 1303 | DC .9-.0 J0413040 0510 3F06 1304 | DC /3FFF-.9 (FORCE END CHECK LOOP) J0413050 0511 00F0 1305 | LAB06 DC .0 J0413060 0512 0040 1306 | DC /0040 J0413070 0513 003F 1307 | DC /003F J0413080 1308 | * J0413090 0514 72FB 1309 | LAB07 MDX 2 -5 LABEL IS VALID J0413100 0515 63FB 1310 | LDX 3 -5 COLLECT IT J0413110 0516 10A0 1311 | SLT 32 J0413120 0517 D820 1312 | LAB08 STD LAB13 J0413130 0518 C200 1313 | LD 2 0 J0413140 0519 E0F9 1314 | AND LAB06+2 J0413150 051A 100A 1315 | SLA 10 J0413160 051B E81C 1316 | OR LAB13 J0413170 051C 18DA 1317 | RTE 32-6 J0413180 051D 7201 1318 | MDX 2 1 J0413190 051E 7301 1319 | MDX 3 1 J0413200 051F 70F7 1320 | MDX LAB08 J0413210 0520 72FB 1321 | MDX 2 -5 J0413220 0521 6500 0000 1322 | LAB09 LDX L1 *-* RESTORE XR1 J0413230 0523 6700 0000 1323 | LDX L3 *-* RESTORE XR3 J0413240 0525 4C80 04E2 1324 | BSC I LABCK EXIT J0413250 0527 C200 1325 | LAB10 LD 2 0 CHECK LABEL FOR EMBEDDED J0413260 0528 90E9 1326 | S LAB06+1 *BLANKS J0413270 0529 4C20 0500 1327 | BSC L LAB04,Z J0413280 052B 7201 1328 | MDX 2 1 J0413290 052C 7301 1329 | MDX 3 1 J0413300 052D 70F9 1330 | MDX LAB10 J0413310 052E 70E5 1331 | MDX LAB07 J0413320 1332 | * J0413330 052F C200 1333 | LAB11 LD 2 0 J0413340 0530 90E1 1334 | S LAB06+1 J0413350 0531 4C20 0500 1335 | BSC L LAB04,Z BRANCH IF CHAR. NOT BLANK J0413360 0533 7201 1336 | LAB12 MDX 2 1 J0413370 0534 7301 1337 | MDX 3 1 J0413380 0535 70F9 1338 | MDX LAB11 J0413390 0536 10A0 1339 | SLT 32 SET NAME CODE TO ZERO J0413400 0537 70E9 1340 | MDX LAB09 J0413410 1341 | * J0413420 0538 1342 | LAB13 BSS E 2 J0413430 1343 | * J0413440 1344 | * J0413450 053A 1345 | BSS LF000+/3BF-* PATCH ROOM J0413460 059F FFFF 1346 | DC /FFFF END OF FILEQ PATCH AREA J0413470 05A0 1347 | END LF000 J0413480 There were no errors in this assembly Program transfer address = 01E0 === 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 #CSHN FFDA 115 #DBCT FF86 73 #DCOM 0001 116 #DCSW FF98 94 #ECNT FFA1 103 #ENTY FF90 83 #FCNT FF87 74 497 #FHOL FF94 90 #FLET FFCB 112 #FMAT FFC6 111 #FPAD FFAD 106 #FRDR FF93 88 #FSZE FF95 91 #GCNT FF9E 100 498 #GRPH FF9D 99 #HDNG 0007 117 #JBSW FF89 76 #LCNT FF8B 78 495 #LOSW FF9F 101 #MDF1 FF8D 80 #MDF2 FF8E 81 #MPSW FF8C 79 #NAME FF84 72 563 #NCNT FF8F 82 496 #PCID FFB2 107 #PIOD FF99 95 #PPTR FF9A 96 #RP67 FF91 84 #SCRA FFC1 110 411 #SYSC FF88 75 #TODR FF92 87 #UHOL FF96 92 #ULET FFD0 113 #USZE FF97 93 #WSCT FFD5 114 #X3SW FFA0 102 $1132 007F 33 $1403 0080 34 $ACDE 009F 42 $BYSW 01CB 52 $CH12 0006 4 $CIBA 0005 3 $COMN 0007 5 $CORE 000E 6 $CPTR 007E 32 $CTSW 000F 7 $CYLN 009A 41 $DABL 0011 9 $DADR 0010 8 $DBSY 00EE 51 $DCDE 0077 25 $DCYL 00A4 43 $DREQ 0012 10 $DUMP 003F 24 $EXIT 0038 22 $FPAD 0095 40 $GCOM 0063 861 891 $HASH 0014 12 $I200 00B3 44 $I205 00B8 45 46 $I400 00C4 47 $I405 00D3 48 49 $I410 00D5 50 $IBSY 0013 11 1128 $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 $ZEND 01E0 54 265 'SBFR 0FB0 118 ADDR2 003D 227 ASCRA 024A 516 412 414 416 418 447 468 ASMSW 000E 152 B 01DE 265 266 267 268 269 270 271 272 401 BFCNT 03F6 986 459 1017 1245 BINEB 7DB0 279 BITSW 000F 153 BLKSW 0010 154 1145 BUF1 79B5 304 305 BUF2 7963 305 306 BUF3 7925 306 307 395 BUF4 78D3 307 394 BUF5 7782 308 309 BUF6 7D91 297 298 299 BUF7 0640 309 396 C 7FA0 56 495 496 497 498 1117 1203 CATCO 7F1E 274 CIERR 0011 155 CIHDR 0008 138 CISW 0012 156 CL1 000E 151 CL2 0037 203 CLBSW 0013 157 CNTNO 0014 158 COLSW 024F 521 551 560 572 594 622 671 678 854 1046 1093 CRBUF 0057 254 1148 1152 D2HDR 000C 140 DATSW 0015 165 393 DBADR 0016 166 DCADR 0058 255 DCHDR FFF0 126 477 DCTL 11E0 269 DCTLC 11DE 270 476 DELSW 0017 167 DFHDR FFFC 132 DFLSW 0036 201 DFNSW 0018 168 DISKZ 00F2 264 DKSAD 0019 169 DLHDR FFF8 130 DMHDR FFF6 129 DMPLC 01DE 266 DT000 03D6 952 432 602 711 970 DT020 03D9 957 964 DT040 03E2 962 959 DT060 03E8 969 961 DT900 03EC 975 958 DTHDR FFFA 131 DUMPC 41DE 272 DUMPP 001A 170 DUPCO 7DB0 273 278 297 DUPCR 003C 221 DXHDR FFFE 133 DZ000 00F2 53 264 EBCSW 0033 198 ENTER 7DB2 281 EXITC 01DE 267 FB000 03F4 983 548 570 592 657 667 674 689 885 889 1018 FB020 03F9 992 1010 FB040 03FC 997 988 FB060 0412 1017 1004 FB900 0418 1025 1000 1014 1137 1139 1142 FLHDR FFF4 128 FN000 0419 1030 550 559 621 670 853 1047 1102 FN020 041C 1036 1038 FN040 042A 1051 1044 FN060 042D 1055 1078 FN070 044A 1082 1100 FN080 044D 1088 1059 1063 FN100 044F 1091 1067 1071 1075 FN120 0451 1093 1089 FN900 045D 1106 1036 1056 1097 FN901 0462 1107 1035 1043 1062 FN902 0463 1108 1066 FN903 0464 1109 1052 1070 FN904 0465 1110 1074 FORSW 001C 171 FR000 02B1 635 502 FR010 02B4 640 716 FR012 02B5 641 706 FR015 02BD 647 644 FR020 02C1 655 647 FR030 02D2 670 663 FR040 02E4 687 668 680 FR060 02E7 689 683 FR070 02BB 646 651 FR080 02FB 710 695 698 701 704 FR100 030B 729 655 769 FR120 0314 738 763 FR140 0316 741 767 FR160 0319 744 739 FR170 0320 751 733 756 FR180 0323 754 749 FR190 0331 765 746 FR200 033A 781 687 820 FR210 033F 787 815 FR220 0341 790 FR230 0344 793 788 FR240 034B 800 807 809 818 FR250 034E 803 798 FR260 035A 811 805 FR270 0361 817 795 FR900 0306 720 635 666 679 FR901 0307 721 697 703 FR902 0308 722 662 FR903 0309 723 642 FR904 030A 724 FR910 0336 773 732 755 FR911 0337 774 745 FR912 0338 775 759 FR913 0339 776 757 761 FR920 0367 824 794 FR921 0368 825 804 FR922 0369 826 810 FR924 036B 828 FR925 036A 827 806 FR926 036C 829 808 FRWS 001D 172 FXSW 001E 173 GET 7DB3 282 481 GETBI 7A0B 301 GETHO 7A0A 300 1127 1153 GR000 036D 835 503 GR010 037A 853 GR015 0394 883 886 893 902 907 912 917 922 GR020 039B 888 849 855 GR021 039E 890 GR025 03AC 902 933 GR030 03C3 929 843 GR040 03C6 932 897 GR050 03C8 938 900 905 910 915 920 940 943 944 GR060 03D3 946 942 GR900 0382 862 835 888 890 GR902 0383 863 842 939 GR905 0384 865 892 GR906 0386 867 901 GR907 0388 869 932 GR908 038A 871 911 GR909 038C 873 941 GR910 038D 874 896 GR911 038E 875 916 GR912 0390 877 906 GR913 0392 879 921 HDBUF 0059 256 HDNSW 0034 199 542 557 HOLSW 001F 174 IBT 0049 245 INOUT 003F 234 1150 IOADR 7A06 299 300 301 302 303 304 308 IOBLK 005A 257 IOREQ 0038 211 IOSW 0020 175 KBREQ 003E 228 LAB01 04EE 1274 1286 LAB02 04F4 1278 1283 LAB03 04FC 1284 1281 LAB04 0500 1288 1267 1279 1327 1335 LAB05 0504 1292 1274 LAB06 0511 1305 1266 1272 1276 1314 1326 1334 LAB07 0514 1309 1287 1331 LAB08 0517 1312 1320 LAB09 0521 1322 1268 1269 1290 1340 LAB10 0527 1325 1277 1330 LAB11 052F 1333 1338 LAB12 0533 1336 1273 LAB13 0538 1342 1312 1316 LABCK 04E2 1264 1098 1289 1324 LC000 0250 530 500 501 LC010 0262 549 577 LC020 026A 557 538 LC040 0286 581 543 558 565 567 LC060 0289 586 552 561 573 575 624 672 LC080 028C 591 553 623 LC120 0295 601 617 LC140 02A0 610 LC160 02A3 615 597 606 LC180 02A8 621 LC900 02AE 628 530 547 569 574 591 LC901 02AF 629 537 LC902 02B0 630 616 LEAVE 7DB4 283 489 LETAR 005C 259 LETSW 0021 180 LF000 01E0 407 1345 1347 LF120 01F6 428 461 LF130 01F8 432 715 LF140 0212 455 595 924 LF200 021C 465 474 1123 LF220 022A 473 467 LF240 0233 483 441 LF250 0238 490 488 LF255 0235 488 1188 LF900 023A 495 420 421 422 423 440 444 466 LF901 023E 499 LF902 023F 500 436 451 LF903 0243 504 413 415 417 443 LF905 0244 505 449 470 LFERR 0234 487 582 587 611 646 742 752 791 801 857 930 947 967 993 1083 LINE 7DB5 284 LSTLF 0022 181 LWDCT 04B9 1213 456 1228 1230 MASK 7DB6 285 MDUMP 7DB7 286 MODSW 0023 182 MUHDR 000A 139 MUPC 01DE 268 NAMEX 0416 1023 546 564 665 682 734 758 762 784 812 814 817 848 884 997 1011 1101 NAMSW 0024 183 NEGSW 0025 184 NEXT 005F 262 NORCD 0015 393 1117 1203 P1442 0052 251 PACKB 7A0C 302 PAGE 7DB8 287 PBUFR 7926 395 957 PCHBI 7A0D 303 PEBUF 005D 260 1135 1198 PGMHL 0026 185 PH2 0039 212 PH3 003A 213 PH4 003B 214 PHDUP 0056 253 PHID 7DB9 288 407 PHIDM 7DBA 289 PIHDR 0002 135 PRINT 7DBB 290 1200 PRPAR 0054 252 PRPNT 7C50 298 PRSW 0027 186 PTHDR 0006 137 PTPON 0040 236 PTSW 0028 187 PUT 7DBC 291 1232 REST 7DBD 292 RPGSW 0035 200 RR000 0466 1115 428 601 710 1205 RR020 046E 1127 1118 RR021 0487 1159 1151 RR022 0489 1165 1173 RR024 048A 1166 1149 RR026 048F 1170 1136 RR028 0494 1178 1138 1146 RR030 0499 1181 1140 RR032 049E 1184 1143 RR034 04A3 1187 1192 RR036 04A6 1190 1141 1183 RR050 04AB 1198 1174 1180 1186 RR060 04AF 1201 1199 RR900 04B5 1209 1179 RR901 04B6 1210 1182 RR902 04B7 1211 1185 RR903 04B8 1212 1191 RTURN 7DBE 293 SBUFR 78D4 394 536 615 641 661 696 702 731 744 754 793 803 841 895 899 904 909 914 919 1042 1055 1061 1065 1069 1073 SCRAB 0642 396 450 471 998 1012 1231 1238 1242 1253 SDBUF 005B 258 SIHDR 0004 136 SKWDS 0029 188 STCSW 002A 189 STHDR FFF2 127 STSW 002B 190 T3MSW 002F 194 TEMP1 002C 191 TEMP2 002D 192 THIS 005E 261 TOWS 002E 193 TYPE1 0248 509 434 445 604 713 969 TYPE2 0249 510 410 435 446 605 714 1221 UASW 0030 195 UCHDR 0000 134 WDCNT 024E 520 455 457 458 531 636 836 999 1001 1013 1015 1243 WR000 04BA 1218 438 472 1122 1247 WR020 04C8 1231 1224 WR040 04CC 1236 1222 1244 WR060 04CF 1238 1240 WR070 04DA 1246 1219 WR080 04DC 1247 WR900 04DE 1252 WR901 04DF 1253 WR902 04E0 1254 1229 WR903 04E1 1255 1223 WRTDC 7DB1 280 WSDC 21DE 271 WSSW 0031 196 XEQSW 0032 197 480