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