ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \namcra.asm
SUPV PHASE 1 - MON CTRL RCD ANALYZER
2 | ABS N0100020
3 | *************************************************** N0100030
4 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * N0100040
5 | * * N0100050
6 | *FUNCTION/OPERATION - * N0100060
7 | * * THE MONITOR CONTROL RECORD ANALYZER (MCRA) * N0100070
8 | * READS MONITOR CONTROL RECORDS FROM THE * N0100080
9 | * PRINCIPAL INPUT DEVICE OR FETCHES THE * N0100090
10 | * RECORD FROM THE SUPERVISOR BUFFER (@SBFR). * N0100100
11 | * * THE MCRA PRINTS THE MONITOR CONTROL RECORDS.* N0100110
12 | * * THE MCRA RECOGNIZES AND PROCESSES THE * N0100120
13 | * FOLLOWING MONITOR CONTROL RECORDS - * N0100130
14 | * * JOB FETCHES AND TRANSFERS TO * N0100140
15 | * SUPERVISOR PHASE 2 FOR JOB * N0100150
16 | * PROCESSING. * N0100160
17 | * * EJE RESTORES THE PAGE, PRINTS THE * N0100170
18 | * HEADING AND BRANCHES TO READ THE * N0100180
19 | * NEXT RECORD. * N0100190
20 | * * PAU WAITS FOR 'PROGRAM START' AND * N0100200
21 | * BRANCHES TO READ THE NEXT RECORD. * N0100210
22 | * * CPR CAUSES THE CONSLE PRINTER TO BE * N0100220
23 | * THE PRINCIPAL PRINT DEVICE AND * N0100230
24 | * BRANCHES TO READ THE NEXT RECORD. * N0100240
25 | * * TYP CAUSES THE KEYBOARD TO BE THE * N0100250
26 | * PRINCIPAL INPUT DEVICE AND * N0100260
27 | * BRANCHES TO READ THE NEXT RECORD. * N0100270
28 | * * TEN CAUSES THE PRINCIPAL INPUT DEVICE * N0100280
29 | * (NOT THE KEYBOARD) TO BE THE * N0100290
30 | * PRINCIPAL INPUT DEVICE AND * N0100300
31 | * BRANCHES TO READ THE NEXT RECORD. * N0100310
32 | * * XEQ FETCHES AND TRANSFERS TO * N0100320
33 | * SUPERVISOR PHASE 4 FOR XEQ * N0100330
34 | * PROCESSING. * N0100340
35 | * * DUP FETCHES AND TRANSFERS TO DISK * N0100350
36 | * UTILITY PROGRAM PHASE 0. * N0100360
37 | * * ASM FETCHES AND TRANSFERS TO ASSEMBLER* N0100370
38 | * PHASE 0. * N0100380
39 | * * FOR FETCHES AND TRANSFERS TO FORTRAN * N0100390
40 | * COMPILER PHASE 1. * N0100400
41 | * * RPG FETCHES AND TRANSFERS TO * N0100410
42 | * RPG COMPILER PHASE . * N0100420
43 | * * CEN RESTORES PRINCIPAL PRINT DEVICE TO* N0100430
44 | * STATUS BEFORE EXECUTION OF // CPR * N0100440
45 | * AND BRANCHES TO READ NEXT RECORD. * N0100450
46 | * * COB FETCHES AND TRANSFERS TO COBOL 2-9* N0100452
47 | * COMPILER PHASE 1. 2-9* N0100454
48 | * * N0100460
49 | *ENTRY POINTS - * N0100470
50 | * PROGRAM START - RA000 * N0100480
51 | * * N0100490
52 | *INPUT - * N0100500
53 | * THE INPUT IS THE ABOVE LISTED MONITOR * N0100510
54 | * CONTROL RECORDS. * N0100520
55 | * * N0100530
56 | *OUTPUT - * N0100540
57 | * THE MONITOR CONTROL RECORDS ARE PRINTED TO * N0100550
58 | * THE PRINCIPAL PRINT DEVICE. * N0100560
59 | * * N0100570
60 | *EXTERNAL REFERENCES * N0100580
61 | * * IN COMMA- * N0100590
62 | * $CH12 * N0100600
63 | * $CTSW * N0100610
64 | * $DBSY * N0100620
65 | * $FLSH * N0100630
66 | * $GRIN * N0100640
67 | * $HASH * N0100650
68 | * $IBSY * N0100660
69 | * $IBT4 * N0100670
70 | * $IOCT * N0100680
71 | * $KCSW * N0100690
72 | * $LEV0 * N0100700
73 | * $LEV1 * N0100710
74 | * $LINK * N0100720
75 | * $NDUP * N0100730
76 | * $NXEQ * N0100740
77 | * $PBSY * N0100750
78 | * $PHSE * N0100760
79 | * $PRET * N0100770
80 | * * SUBROUTINES - * N0100780
81 | * CONVT PRINCIPAL INPUT DEVICE CONVERSION * N0100790
82 | * SUBROUTINE. * N0100800
83 | * DZ000 RESIDENT DISK I/O SUBROUTINE. * N0100810
84 | * INPUT PRINCIPAL INPUT DEVICE SUBROUTINE. * N0100820
85 | * OUTPT PRINCIPAL PRINT DEVICE SUBROUTINE. * N0100830
86 | * * N0100840
87 | *EXITS - * N0100850
88 | * * NORMAL - * N0100860
89 | * AN EXIT IS MADE TO ANOTHER PHASE OF THE * N0100870
90 | * SUPERVISOR TO CONTINUE PROCESSING OR TO THE * N0100880
91 | * FIRST PHASE OF ONE OF THE FOLLOWING SYSTEM * N0100890
92 | * PROGRAMS - * N0100900
93 | * * THE ASSEMBLER * N0100910
94 | * * THE DISK UTILITY PROGRAM * N0100920
95 | * * THE FORTRAN COMPILER * N0100930
96 | * * THE RPG COMPILER. * N0100940
97 | * * THE COBOL COMPILER. 2-9* N0100945
98 | * * ERROR - SEE NOTES. * N0100950
99 | * * N0100960
100 | *TABLES/WORK AREAS - * N0100970
101 | * * @SBFR AN 80 WORD BUFFER INTO WHICH MONITOR* N0100980
102 | * CONTROL RECORDS ARE READ. * N0100990
103 | * * DCOM A 320 WORD BUFFER USED FOR DISK * N0101000
104 | * COMMUNICATIONS AREA (DCOM) I/O. * N0101010
105 | * * N0101020
106 | *ATTRIBUTES - * N0101030
107 | * * ABSOLUTE. * N0101040
108 | * * REUSABLE. * N0101050
109 | * * N0101060
110 | *NOTES - * N0101070
111 | * * ALL I/O DEVICE ERRORS RESULT IN A WAIT AT * N0101080
112 | * $PRET WITH THE CONTENTS OF THE ACCUMULATOR * N0101090
113 | * INDICATING THE DEVICE AND TYPE OF ERROR. * N0101100
114 | * * ALL MONITOR CONTROL RECORD ANALYZER ERRORS * N0101110
115 | * ARE FLAGGED WITH A MESSAGE AND PROCESSING * N0101120
116 | * CONTINUES. * N0101130
117 | * * M 11 INVALID MONITOR CONTROL RECORD * N0101140
118 | * * M 12 EXECUTION SUPPRESSED * N0101150
119 | * * M 13 DUP SUPPRESSED * N0101160
120 | * * M 14 SYSTEM PROGRAM DETECTED MONITOR * N0101170
121 | * CONTROL RECORD * N0101180
122 | * * M 15 ILLEGAL CARTRIDGE ID * N0101190
123 | * * M 16 PROGRAM VOIDED * N0101200
124 | * * N0101210
125 | *************************************************** N0101220
SUPV PHASE 1 - MON CTRL RCD ANALYZER
127 | * N0101240
128 | * COMMA EQUATE STATEMENTS N0101250
129 | * N0101260
009F 130 | $ACDE EQU /9F TABLE OF AREA CODES N0101270
0006 131 | $CH12 EQU /06 CHANNEL 12 INDICATOR N0101280
0007 132 | $COMN EQU /07 LENGTH OF COMMON (IN WORDS) N0101290
000E 133 | $CORE EQU /0E CORE SIZE N0101300
000F 134 | $CTSW EQU /0F CONTROL RECORD TRAP SWITCH N0101310
0005 135 | $CIBA EQU /05 SCTR ADDR OF CIB N0101320
009A 136 | $CYLN EQU /9A ARM POSITION N0101330
0010 137 | $DADR EQU /10 BLK ADDR OF PROG TO BE LOADED N0101340
00EE 138 | $DBSY EQU /EE NON-ZERO WHEN DISKZ BUSY N0101350
0077 139 | $DCDE EQU /77 DRIVE CODE OF PROG IN WRK STG N0101360
00A4 140 | $DCYL EQU /A4 TABLE OF DEFECTIVE CYLINDERS N0101370
0012 141 | $DREQ EQU /12 IND. FOR REQUESTED VERSION DKI/O N0101380
003F 142 | $DUMP EQU /3F CALL DUMP ENTRY POINT N0101390
0038 143 | $EXIT EQU /38 CALL EXIT ENTRY POINT N0101400
0071 144 | $FLSH EQU /71 FLUSH JOB SWITCH N0101410
0095 145 | $FPAD EQU /95 TABLE OF FILE PROTECT ADDRESSES N0101420
0063 146 | $GCOM EQU /63 G2250 SUBROUTINE INDICATOR 2G2 N0101430
0064 147 | $GRIN EQU /64 GRAPHICS INIT PROGRAM INDR 2G2 N0101440
0014 148 | $HASH EQU /14 WORK AREA N0101450
0013 149 | $IBSY EQU /13 NON-ZERO IF CD/PAP TP DEV. BUSY N0101460
00D4 150 | $IBT4 EQU /D4 ADDR OF THE IBT, LEVEL 4 N0101470
0032 151 | $IOCT EQU /32 ZERO IF NO I/O IN PROGRESS N0101480
002C 152 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE N0101490
00E6 153 | $I420 EQU /E6 FLUSH JOB ENTRY POINT 2-2 N0101500
007C 154 | $KCSW EQU /7C 1 IF KB,CP BOTH UTILIZED N0101510
0033 155 | $LAST EQU /33 LAST CARD INDICATOR N0101520
0008 156 | $LEV0 EQU /08 LEVEL 0 BRANCH ADDRESS 2-3 N0101530
0009 157 | $LEV1 EQU /09 LEVEL 1 BRANCH ADDRESS 2-3 N0101540
000A 158 | $LEV2 EQU /0A LEVEL 2 BRANCH ADDRESS 2-3 N0101550
000B 159 | $LEV3 EQU /0B LEVEL 3 BRANCH ADDRESS 2-3 N0101560
000C 160 | $LEV4 EQU /0C LEVEL 4 BRANCH ADDRESS 2-3 N0101570
000D 161 | $LEV5 EQU /0D LEVEL 5 BRANCH ADDRESS 2-3 N0101580
0039 162 | $LINK EQU /39 CALL LINK ENTRY POINT N0101590
0034 163 | $NDUP EQU /34 DO NOT DUP IF NON-ZERO N0101600
0035 164 | $NXEQ EQU /35 DO NOT EXECUTE IF NON-ZERO N0101610
0036 165 | $PBSY EQU /36 NON-ZERO WHEN PRINTER BUSY N0101620
0037 166 | $PGCT EQU /37 PAGE NO. FOR HEADINGS N0101630
0078 167 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE N0101640
0028 168 | $PRET EQU /28 IOCS SOFT ERROR TRAP N0101650
0081 169 | $PST1 EQU /81 TRAP FOR I/O ERRORS, LEVEL 1 N0101660
0085 170 | $PST2 EQU /85 TRAP FOR I/O ERRORS, LEVEL 2 N0101670
0089 171 | $PST3 EQU /89 TRAP FOR I/O ERRORS, LEVEL 3 N0101680
008D 172 | $PST4 EQU /8D TRAP FOR I/O ERRORS, LEVEL 4 N0101690
00EF 173 | $SNLT EQU /EF SENSE LIGHT INDICATOR N0101700
0091 174 | $STOP EQU /91 PROGRAM STOP KEY TRAP N0101710
00E0 175 | $SYSC EQU /E0 MODIFICATION LEVEL N0101720
007D 176 | $UFDR EQU /7D DRIVE CODE OF UNFORMATTED I/O N0101730
0079 177 | $UFIO EQU /79 UNFORMATTED I/O RECORD NO. N0101740
002D 178 | $ULET EQU /2D TABLE OF LET ADDRESSES N0101750
007A 179 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE N0101760
007B 180 | $WRD1 EQU /7B ADDR OF 1ST WD OF CORE LOAD N0101770
01E0 181 | $ZEND EQU /1E0 END OF DISKZ SUBROUTINE 2-3 N0101780
007E 182 | $CPTR EQU /007E CONS PTR CH 12 INDR 212 N0101782
007F 183 | $1132 EQU /007F 1132 CHANNEL 12 INDR 212 N0101785
0080 184 | $1403 EQU /0080 1403 CHANNEL 12 INDR 212 N0101787
185 | * N0101790
186 | * GENERAL EQUATE STATEMENTS N0101800
187 | * N0101810
0000 188 | #IDAD EQU /0000 CART ID-DEF CYL SCTR ADDR N0101820
0002 189 | #RIAD EQU /0002 RESIDENT IMAGE SECTOR ADDR N0101830
0001 190 | #DCOM EQU /0001 DCOM SECTOR ADDRESS N0101840
0007 191 | #HDNG EQU /0007 DATE-PAGE COUNT SECTOR ADDR N0101850
000D 192 | @NMCR EQU 13 NO OF MONITR CNTRL RCDS 2-9 N0101860
000A 193 | @HDWC EQU 10 HEADING BUFFER WORD COUNT N0101870
0028 194 | @PBWC EQU 40 PACKED BUFFER WORD COUNT N0101880
0050 195 | @CCOL EQU 80 NO. OF CHARACTERS/RECORD N0101890
0140 196 | @SCTR EQU 320 NO. OF WORDS PER SECTOR N0101900
1000 197 | @MNCR EQU /1000 MINIMUM CORE SIZE N0101910
00D0 198 | @CSTR EQU /00D0 2-3 N0101920
0800 199 | @PROC EQU /0800 PROCESSING PHASES AREA N0101930
0FB0 200 | @SBFR EQU /0FB0 ADDRESS OF SUPV BUFFER N0101940
0E6E 201 | DCOM EQU @SBFR-@SCTR-2 SYSTEM DCOM I/O BUFFER N0101950
0D2C 202 | BUFFR EQU DCOM-@SCTR-2 COMMON DISK I/O BUFFER N0101960
00F2 203 | DZ000 EQU $DBSY+4 DISKZ ENTRY POINT N0101970
01E1 204 | OUTPT EQU $ZEND+1 PRINT SUBROUTINE ENTRY N0101980
0321 205 | INPUT EQU OUTPT+@SCTR INPUT SUBROUTINE ENTRY N0101990
206 | * N0102000
207 | * PHASE ID EQUATE STATEMENTS N0102010
208 | * N0102020
0001 209 | @DUPC EQU 1 N0102030
001F 210 | @FOR1 EQU 31 N0102040
006E 211 | @MCRA EQU 110 N0102050
006F 212 | @JOBP EQU 111 N0102060
0070 213 | @DELT EQU 112 N0102070
0071 214 | @XEQP EQU 113 N0102080
0072 215 | @SCRP EQU 114 N0102090
0078 216 | @CLB0 EQU 120 N0102100
008E 217 | @CPTR EQU 142 N0102110
0092 218 | @KBCP EQU 146 N0102120
0095 219 | @KBCV EQU 149 N0102130
0099 220 | @PRNT EQU 153 N0102140
009A 221 | @PINP EQU 154 N0102150
009B 222 | @PIDV EQU 155 N0102160
009C 223 | @CNVT EQU 156 N0102170
009D 224 | @CVRT EQU 157 N0102180
00B0 225 | @RG00 EQU 176 2-10 N0102190
00CF 226 | @ASM0 EQU 207 N0102200
0000 227 | @YYYY EQU 0 N0102210
0051 228 | @COB1 EQU 81 2-9 N0102220
229 | * N0102230
230 | * DCOM EQUATE STATEMENTS N0102240
231 | * N0102250
0E72 232 | #NAME EQU DCOM+4 NAME OF PROGRAM N0102260
0E74 233 | #DBCT EQU DCOM+6 DISK BLOCK COUNT OF PROGRAM N0102270
0E75 234 | #FCNT EQU DCOM+7 FILES INDICATOR N0102280
0E76 235 | #SYSC EQU DCOM+8 SYSTEM CARTRIDGE SWITCH N0102290
0E77 236 | #JBSW EQU DCOM+9 TEMPORARY JOB SWITCH N0102300
0E78 237 | #CBSW EQU DCOM+10 CLB SWITCH N0102310
0E79 238 | #LCNT EQU DCOM+11 LOCAL INDICATOR N0102320
0E7A 239 | #MPSW EQU DCOM+12 MAP SWITCH N0102330
0E7B 240 | #MDF1 EQU DCOM+13 NO. DUP CTRL RCDS (MODIF) N0102340
0E7C 241 | #MDF2 EQU DCOM+14 ADDR OF MODIF BUFFER N0102350
0E7D 242 | #NCNT EQU DCOM+15 NOCAL INDICATOR N0102360
0E7E 243 | #ENTY EQU DCOM+16 REL ENTRY ADDR OF PROGRAM N0102370
0E7F 244 | #RP67 EQU DCOM+17 1442-5 SWITCH N0102380
0E80 245 | #TODR EQU DCOM+18 -TO- WK STG DRIVE CODE N0102390
0E81 246 | #FRDR EQU DCOM+19 -FROM- WK STG DRIVE CODE N0102400
0E82 247 | #FHOL EQU DCOM+20 ADDR LARGEST HOLE IN FXA N0102410
0E83 248 | #FSZE EQU DCOM+21 BLK CNT LARGEST HOLE IN FXA N0102420
0E84 249 | #UHOL EQU DCOM+22 ADDR LARGEST HOLE IN UA N0102430
0E85 250 | #USZE EQU DCOM+23 BLK CNT LARGEST HOLE IN UA N0102440
0E86 251 | #DCSW EQU DCOM+24 DUP CALL SWITCH N0102450
0E87 252 | #PIOD EQU DCOM+25 PRINCIPAL I/O DEVICE INDIC N0102460
0E88 253 | #PPTR EQU DCOM+26 PRINC PRINT DEVICE INDIC N0102470
0E89 254 | #CIAD EQU DCOM+27 SCTR 0 LOC OF CIL SCTR ADDR N0102480
0E8A 255 | #ACIN EQU DCOM+28 AVAIL CARTRIDGE INDICATOR N0102490
0E8B 256 | #GRPH EQU DCOM+29 2250 INDICATOR 2-8 N0102500
0E8C 257 | #GCNT EQU DCOM+30 G2250 COUNT 2-8 N0102510
0E8D 258 | #LOSW EQU DCOM+31 LOCALS CALL LOCALS SW 2-2 N0102520
0E8E 259 | #X3SW EQU DCOM+32 SPECIAL ILS SWITCH 2-3 N0102530
0E8F 260 | #ECNT EQU DCOM+33 EQUAT COUNT 2-4 N0102540
0E91 261 | #ANDU EQU DCOM+35 END OF UA ADDRESS (ADJ) N0102550
0E96 262 | #BNDU EQU DCOM+40 END OF UA ADDRESS (BASE) N0102560
0E9B 263 | #FPAD EQU DCOM+45 FILE PROTECTED ADDRESS N0102570
0EA0 264 | #PCID EQU DCOM+50 AVAILABLE CARTRIDGE IDS N0102580
0EA5 265 | #CIDN EQU DCOM+55 CARTRIDGE ID N0102590
0EAA 266 | #CIBA EQU DCOM+60 SECTOR ADDRESS OF CIB N0102600
0EAF 267 | #SCRA EQU DCOM+65 SECTOR ADDRESS OF SCRA N0102610
0EB4 268 | #FMAT EQU DCOM+70 FORMAT OF PROGRAM IN WS N0102620
0EB9 269 | #FLET EQU DCOM+75 FLET SECTOR ADDRESS N0102630
0EBE 270 | #ULET EQU DCOM+80 LET SECTOR ADDRESS N0102640
0EC3 271 | #WSCT EQU DCOM+85 BLK CNT OF PROGRAM IN WS N0102650
0EC8 272 | #CSHN EQU DCOM+90 1+SCTR ADDR OF END OF CUSN. N0102660
SUPV PHASE 1 - MON CTRL RCD ANALYZER
04FE 274 | ORG 4*@SCTR-2 SUPV PH 1 (MCRA) I/O AREA N0102680
275 | * N0102690
276 | * PROVIDE PARAMETERS FOR SYSTEM LOADER N0102700
277 | * N0102710
04FE 02FE 278 | DC RA999-* WORD COUNT OF SUPV PHASE 1 N0102720
04FF FF92 279 | DC -@MCRA PHASE ID OF SUPV PHASE 1 N0102730
0500 0056 280 | DC PRINT-*+1 RLTV ADDR OF SLET TABLE N0102740
0501 0013 281 | DC @NMCR+6 NO. OF ITEMS IN SLET TABLE N0102750
0500 282 | ORG *-2 N0102760
SUPV PHASE 1 - MON CTRL RCD ANALYZER
0500 C400 0064 284 | RA000 LD L $GRIN FETCH GRAPHICS INDICATOR N0102780
0502 4C10 0508 285 | BSC L RA010,- TEST FOR AND N0102790
0504 4400 0039 221D 15C0 286 | LINK SGJP *BRANCH IF 'SGJP' N0102800
0508 4C08 050E 287 | RA010 BSC L RA020,+ TEST FOR AND N0102810
050A 4400 0039 0764 9540 288 | LINK GRIN *BRANCH IF 'GRIN' N0102820
289 | * N0102830
290 | * INITIALIZATION N0102840
291 | * N0102850
050E 616E 292 | RA020 LDX 1 @MCRA SET N0102860
050F 6D00 0078 293 | STX L1 $PHSE *SUPERVISOR PHASE 1 INDR N0102870
0511 1000 294 | NOP A WAIT MAY BE PATCHED HERE N0102880
0512 6500 054C 295 | LDX L1 TABLE-1 SET ADDRESS OF N0102890
0514 6D00 00D4 296 | STX L1 $IBT4 *ILSO4 INTERRUPT BRANCH TBL N0102900
297 | * N0102910
298 | * FETCH PRINCIPAL PRINT SUBROUTINE N0102920
299 | * N0102930
0516 C841 300 | RA040 LDD PRINT+2 FETCH WD CNT AND SCTR ADDR N0102940
0517 6100 301 | LDX 1 0 INDICATE PRINT SUBROUTINE N0102950
0518 4022 302 | BSI RA080 BRANCH TO FETCH SUBROUTINE N0102960
0519 C037 303 | LD TABLE+4 STORE PRINT SUBR INTERRUPT N0102970
051A D400 0009 304 | STO L $LEV1 *ADDR TO LEVEL 1 BR ADDRESS N0102980
305 | * N0102990
306 | * FETCH PRINCIPAL INPUT SUBROUTINE N0103000
307 | * N0103010
051C 6500 057E 308 | RA060 LDX L1 IKBRD XR1 = KEYBRD SUBR SLET ADDR N0103020
051E C400 007C 309 | LD L $KCSW TEST FOR AND N0103030
0520 4C20 0656 310 | BSC L RA480,Z *BRANCH IF IN KEYBOARD MODE N0103040
0522 6500 0582 311 | LDX L1 PIDEV FETCH PRINCIPAL INPUT 2-6 N0103050
0524 4C00 0656 312 | BSC L RA480 *DEVICE OTHER THAN KB 2-6 N0103060
0526 C835 313 | RA070 LDD PINPT+2 FETCH WD CNT AND SCTR ADDR N0103070
0527 6101 314 | LDX 1 1 INDICATE INPUT SUBROUTINE N0103080
0528 4012 315 | BSI RA080 BRANCH TO FETCH SUBROUTINE N0103090
0529 C029 316 | LD TABLE+6 STORE COLUMN INTERRUPT N0103100
052A 801E 317 | A RA903 *ENTRY ADDRESS N0103110
052B D400 0008 318 | STO L $LEV0 *TO LEVEL 0 BRANCH ADDRESS N0103120
052D 4074 319 | BSI RA100 BRANCH TO SET $KCSW N0103130
320 | * N0103140
321 | * FETCH CONVERSION SUBROUTINE N0103150
322 | * N0103160
052E C01C 323 | LD RA905 FETCH ADDR OF INPUT SUBR N0103170
052F 802C 324 | A PINPT+2 ADD INPUT SUBR WORD COUNT N0103180
0530 8018 325 | A RA903 MAKE N0103190
0531 1801 326 | SRA 1 *ADDRESS OF N0103200
0532 1001 327 | SLA 1 *CONVERSION SUBROUTINE N0103210
0533 D018 328 | STO RA906 *EVEN AND SAVE N0103220
0534 8014 329 | A RA903 CALCULATE AND STORE N0103230
0535 D400 06CA 330 | STO L CONVT *CONVERSION SUBR ENTRY ADDR N0103240
0537 C828 331 | LDD CNVRT+2 FETCH WD CNT AND SCTR ADDR N0103250
0538 6102 332 | LDX 1 2 INDICATE CONVERSION SUBR N0103260
0539 4001 333 | BSI RA080 BRANCH TO FETCH SUBROUTINE N0103270
053A 707E 334 | MDX RA200 BRANCH TO CONTINUE N0103280
335 | * N0103290
336 | *************************************************** N0103300
337 | * N0103310
338 | * FETCH A SUBROUTINE INTO CORE N0103320
339 | * N0103330
053B 0000 340 | RA080 DC 0 ENTRY/RETURN ADDRESS N0103340
053C DD80 054A 341 | STD I1 RA904 ST WD CNT/SAD TO I/O AREA N0103350
053E C500 054A 342 | LD L1 RA904 FETCH ADDRESS OF I/O AREA N0103360
0540 1890 343 | SRT 16 SHIFT TO EXTENSION, ACC = 0 N0103370
0541 4400 00F2 344 | BSI L DZ000 BRANCH TO DISK READ N0103380
0543 7400 00EE 345 | RA090 MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0103390
0545 70FD 346 | MDX RA090 BR TO TEST READ COMPLETE N0103400
0546 4C80 053B 347 | BSC I RA080 RETURN N0103410
348 | * N0103420
349 | * CONSTANTS AND WORK AREAS N0103430
350 | * N0103440
0548 351 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0103450
0548 0001 352 | RA901 DC 1 CONSTANT ONE N0103460
0549 0003 353 | RA903 DC 3 CONSTANT THREE N0103470
054A 01DE 354 | RA904 DC OUTPT-3 ADDR OF PRINT SUBR I/O AREA N0103480
054B 031E 355 | RA905 DC INPUT-3 ADDR OF INPUT SUBR I/O AREA N0103490
054C 0000 356 | RA906 DC *-* ADDR OF CNVRT SUBR I/O AREA N0103500
357 | * N0103510
358 | * INTERRUPT LEVEL 4 BRANCH TABLE N0103520
359 | * N0103530
054D 360 | TABLE BSS 3 RESERVED N0103540
0550 0000 361 | DC *-* 1231 OPT. MARK PAGE READER N0103550
0551 01E4 362 | DC OUTPT+3 1403 PRINTER N0103560
0552 0324 363 | DC INPUT+3 2501 CARD READER N0103570
0553 0324 364 | DC INPUT+3 1442 CARD READER/PUNCH N0103580
0554 0000 365 | DC *-* KEYBOARD/CONSOLE PRINTER N0103590
0555 0324 366 | DC INPUT+3 1134/1055 PAPT READER/PUNCH N0103600
367 | * N0103610
368 | * INTERNAL SLET INFORMATION N0103620
369 | * N0103630
0556 0099 370 | PRINT DC @PRNT PRINC PRINT SUBR PHASE ID N0103640
0557 371 | BSS 3 N0103650
372 | * N0103660
055A 009A 373 | PINPT DC @PINP PRINC INPUT SUBR PHASE ID N0103670
055B 374 | BSS 3 N0103680
375 | * N0103690
055E 009C 376 | CNVRT DC @CNVT PRINC CONVERSION SUBR PH ID N0103700
055F 377 | BSS 3 N0103710
378 | * N0103720
0562 0070 379 | SUPV3 DC @DELT SUPV PHASE 3 PHASE ID N0103730
0563 380 | BSS 3 N0103740
381 | * N0103750
0566 0072 382 | SUPV5 DC @SCRP SUPV PHASE 5 PHASE ID N0103760
0567 383 | BSS 3 N0103770
384 | * N0103780
056A 0078 385 | CLBP1 DC @CLB0 CORE LD BLDR PH 0 PHASE ID N0103790
056B 386 | BSS 3 N0103800
387 | * N0103810
056E 006F 388 | SUPV2 DC @JOBP SUPV PHASE 2 PHASE ID N0103820
056F 389 | BSS 3 N0103830
390 | * N0103840
0572 0095 391 | CKBRD DC @KBCV KYBRD CONVERSION SUBR PH ID N0103850
0573 392 | BSS 3 N0103860
393 | * N0103870
0576 009D 394 | CVRT DC @CVRT PRINC CONV (NOT KB) PH ID N0103880
0577 395 | BSS 3 N0103890
396 | * N0103900
057A 008E 397 | PCPAD DC @CPTR CONSOLE PRINTER SUBR PH ID N0103910
057B 398 | BSS 3 N0103920
399 | * N0103930
057E 0092 400 | IKBRD DC @KBCP KEYBOARD SUBR PHASE ID N0103940
057F 401 | BSS 3 N0103950
402 | * N0103960
0582 009B 403 | PIDEV DC @PIDV PRINC INPUT (NOT KB) PH ID N0103970
0583 404 | BSS 3 N0103980
405 | * N0103990
0586 0071 406 | SUPV4 DC @XEQP SUPV PHASE 4 PHASE ID N0104000
0587 407 | BSS 3 N0104010
408 | * N0104020
058A 0001 409 | DUPCO DC @DUPC DUP COMMON PHASE ID N0104030
058B 410 | BSS 3 N0104040
411 | * N0104050
058E 00CF 412 | PHS0 DC @ASM0 ASM PHASE 0 PHASE ID * N0104060
058F 413 | BSS 3 N0104070
414 | * N0104080
0592 001F 415 | FOR01 DC @FOR1 FORTRAN PHASE 1 PHASE ID N0104090
0593 416 | BSS 3 N0104100
417 | * N0104110
0596 00B0 418 | RPG00 DC @RG00 RPG PHASE 0 PHASE ID 2-10 N0104120
0597 419 | BSS 3 2-5 N0104130
420 | * N0104140
059A 0099 421 | SVPRT DC @PRNT SAVE PRINC PRT 2-8 N0104150
059B 0000 422 | DC 0 N0104160
059C 0000 423 | DC 0 N0104170
059D 0000 424 | DC 0 N0104180
425 | * N0104190
059E 0051 426 | COB01 DC @COB1 COBOL PHASE 1 PHASE ID 2-9 N0104200
059F 0000 427 | DC 0 N0104210
05A0 0000 428 | DC 0 N0104220
05A1 0000 429 | DC 0 N0104230
430 | * N0104240
431 | *************************************************** N0104250
432 | * N0104260
433 | * SET KEYBOARD-CONSOLE PRINTER SWITCH N0104270
434 | * N0104280
435 | * -, KEYBOARD ONLY UTILIZED N0104290
436 | * $KCSW = 0, CONSOLE PTR OR NEITHER UTILIZED N0104300
437 | * +, KEYBOARD AND CONSOLE PTR UTILIZED N0104310
438 | * N0104320
05A2 0000 439 | RA100 DC 0 ENTRY/RETURN ADDRESS N0104330
05A3 C0D9 440 | LD PCPAD+3 TEST IF CONSOLE PRINTER N0104340
05A4 90B4 441 | S PRINT+3 *IS PRINCIPAL PRINT DEVICE N0104350
05A5 4C20 05AD 442 | BSC L RA120,Z *AND BRANCH IF NOT N0104360
05A7 C0D9 443 | LD IKBRD+3 TEST IF KEYBOARD N0104370
05A8 90B4 444 | S PINPT+3 *IS PRINCIPAL INPUT DEVICE N0104380
05A9 4C20 05B4 445 | BSC L RA140,Z *AND BRANCH IF NOT N0104390
05AB C09C 446 | LD RA901 FETCH A POSITIVE NUMBER N0104400
05AC 7008 447 | MDX RA160 BRANCH TO SET SWITCH N0104410
05AD C0D3 448 | RA120 LD IKBRD+3 TEST IF KEYBOARD N0104420
05AE 90AE 449 | S PINPT+3 *IS PRINCIPAL INPUT DEVICE N0104430
05AF 4C20 05B4 450 | BSC L RA140,Z *AND BRANCH IF NOT N0104440
05B1 C400 0660 451 | LD L RA942 FETCH A NEGATIVE NUMBER N0104450
05B3 7001 452 | MDX RA160 BRANCH TO SET SWITCH N0104460
05B4 1810 453 | RA140 SRA 16 FETCH ZERO N0104470
05B5 D400 007C 454 | RA160 STO L $KCSW STORE TO KEYBRD-CNSL PTR SW N0104480
05B7 4C80 05A2 455 | BSC I RA100 RETURN N0104490
456 | * N0104500
457 | * TEST CONTROL RECORD INDICATOR N0104510
458 | * N0104520
459 | * +, RECORD TRAPPED BY SYSTEM PROGRAM N0104530
460 | * $CTSW = 0, NO RECORD TRAPPED N0104540
461 | * -, RECORD TRAPPED BY DUP (NO ERROR) N0104550
462 | * N0104560
05B9 C400 000F 463 | RA200 LD L $CTSW FETCH MON CTRL RCD INDR N0104570
05BB 4C28 05C6 464 | BSC L RA240,Z+ BR IF RCD TRAPPED IN BUFFER N0104580
05BD 4C08 05C4 465 | BSC L RA220,+ BRANCH IF NO RCD TRAPPED N0104590
05BF C400 06ED 466 | RA210 LD L RA990+3 FETCH ADDR OF MESSAGE M 14 N0104600
05C1 4400 06CD 467 | BSI L RA850 BRANCH TO PRINT THE MESSAGE N0104610
05C3 7002 468 | MDX RA240 BRANCH TO PACK SUPV BUFFER N0104620
469 | * N0104630
470 | * READ A MONITOR CONTROL RECORD N0104640
471 | * N0104650
05C4 4400 06A6 472 | RA220 BSI L RA800 BRANCH TO READ A RECORD N0104660
473 | * N0104670
474 | * PACK THE SUPV BUFFER (2 EBCDIC CHARS/WORD) N0104680
475 | * N0104690
05C6 1010 476 | RA240 SLA 16 SET N0104700
05C7 D400 000F 477 | STO L $CTSW *MON CTRL RCD INDR OFF N0104710
05C9 C03C 478 | LD RA932 SET N0104720
05CA D480 06C7 479 | STO I SBADR *PACKED BUFFER WORD COUNT N0104730
480 | * N0104740
05CC 6500 0FB0 481 | LDX L1 @SBFR XR1 = SUPV BUFFER ADDRESS N0104750
05CE 62D8 482 | LDX 2 -@PBWC XR2 = PACKED BUFFER WD CNT N0104760
05CF C100 483 | RA260 LD 1 0 FETCH A CHARACTER N0104770
05D0 1008 484 | SLA 8 SHIFT TO LEFT HALF OF WORD N0104780
05D1 E901 485 | OR 1 1 FETCH NEXT CHARACTER N0104790
05D2 D600 0FD8 486 | STO L2 @SBFR+@PBWC STORE TO BUFFER PACKED N0104800
05D4 7102 487 | MDX 1 2 INCRMENT BUFFER ADDRESS N0104810
05D5 7201 488 | MDX 2 1 DECR WORD CNT, SKIP IF ZERO N0104820
05D6 70F8 489 | MDX RA260 BRANCH TO PACK NEXT PAIR N0104830
490 | * N0104840
491 | * TEST FOR MONITOR CONTROL RECORD TYPE N0104850
492 | * N0104860
05D7 C400 0FB2 493 | RA300 LD L @SBFR+2 FETCH SECOND HALF OF NAME N0104870
05D9 1890 494 | SRT 16 *AND SHIFT TO EXTENSION N0104880
05DA C400 0FB1 495 | LD L @SBFR+1 FETCH FIRST HALF OF NAME N0104890
05DC D827 496 | STD RA930 *AND SAVE NAME N0104900
05DD 9029 497 | S RA933 TEST FOR AND N0104910
05DE 4C20 05E2 498 | BSC L RA340,Z *BR IF NOT A COMMENTS RCD N0104920
05E0 63F2 499 | LDX 3 -@NMCR-1 PT TO COMMENTS RCD RETURN NN0104930
05E1 700E 500 | MDX RA370 BRANCH TO PRINT COMMENT RCD N0104940
501 | * N0104950
05E2 6500 056E 502 | RA340 LDX L1 SUPV2 XR1 POINTS TO SLET N0104960
05E4 62E5 503 | LDX 2 -2*@NMCR-1 XR2 = NO. WDS IN NAME TBL N0104970
05E5 63F3 504 | LDX 3 -@NMCR XR3 = NO. MON CTRL NAMES N0104980
05E6 C81D 505 | RA360 LDD RA930 FETCH CONTROL NAME N0104990
05E7 9E00 0623 506 | SD L2 RA934+2*@NMCR+1 TEST FOR AND BRANCH N0105000
05E9 4C20 05F9 507 | BSC L RA390,Z *IF FIRST HALF NOT THE SAME N0105010
05EB 1090 508 | SLT 16 TEST FOR AND BRANCH IF N0105020
05EC 4C20 05F9 509 | BSC L RA390,Z *SECOND HALF NOT THE SAME N0105030
05EE 721A 510 | MDX 2 2*@NMCR SKIP IF NOT A 'JOB' RECORD N0105040
05EF 7007 511 | MDX RA380 BRANCH TO PROCESS 'JOB' RCD N0105050
05F0 7400 0071 512 | RA370 MDX L $FLSH,0 TEST FOR AND BRANCH TO READ N0105060
05F2 70D1 513 | MDX RA220 *NEXT RCD IF ABORT INDR ON N0105070
05F3 C400 06C7 514 | LD L SBADR FETCH ADDR OF SUPV BUFFER N0105080
05F5 4400 06CD 515 | BSI L RA850 BRANCH TO PRINT THE RECORD N0105090
05F7 4F80 0630 516 | RA380 BSC I3 RA936+@NMCR BRANCH TO PROCESS RCD N0105100
517 | * N0105110
05F9 7104 518 | RA390 MDX 1 4 INCREMENT SLET POINTER N0105120
05FA 7202 519 | MDX 2 2 INCREMENT NAME POINTER N0105130
05FB 7301 520 | MDX 3 1 INCR NAME CNT, SKIP IF ZERO N0105140
05FC 70E9 521 | MDX RA360 BRANCH TO TEST NEXT NAME N0105150
05FD C400 06C7 522 | LD L SBADR FETCH ADDR OF SUPV BUFFER N0105160
05FF 4400 06CD 523 | BSI L RA850 BRANCH TO PRINT THE RECORD N0105170
0601 6301 524 | LDX 3 1 POINT TO ERROR MESSAGE M 11 N0105180
0602 4400 06E4 525 | BSI L RA900 BRANCH TO PRINT THE MESSAGE N0105190
526 | * N0105200
527 | * CONSTANTS AND WORK AREAS N0105210
528 | * N0105220
0604 529 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0105230
0604 530 | RA930 BSS 2 CONTROL NAME N0105240
0606 0028 531 | RA932 DC @PBWC PACKED I/O BUFFER WORD CNT N0105250
532 | * N0105260
0607 405C 533 | RA933 EBC . *. COMMENTS CONTROL RECORD N0105270
0608 40D1 D6C2 534 | RA934 EBC . JOB. JOB CONTROL RECORD N0105280
060A 40C5 D1C5 535 | EBC . EJE. EJECT CONTROL RECORD N0105290
060C 40D7 C1E4 536 | EBC . PAU. PAUSE CONTROL RECORD N0105300
060E 40C3 D7D9 537 | EBC . CPR. CPRT CONTROL RECORD N0105310
0610 40E3 E8D7 538 | EBC . TYP. TYPE CONTROL RECORD N0105320
0612 40E3 C5D5 539 | EBC . TEN. TEND CONTROL RECORD N0105330
0614 40E7 C5D8 540 | EBC . XEQ. XEQ CONTROL RECORD N0105340
0616 40C4 E4D7 541 | EBC . DUP. DUP CONTROL RECORD N0105350
0618 40C1 E2D4 542 | EBC . ASM. ASM CONTROL RECORD N0105360
061A 40C6 D6D9 543 | EBC . FOR. FOR CONTROL RECORD N0105370
061C 40D9 D7C7 544 | EBC . RPG. RPG CONTROL RECORD 2-5 N0105380
061E 40C3 C5D5 545 | EBC . CEN. CEN CONTROL RECORD 2-8 N0105390
0620 40C3 D6C2 546 | EBC . COB. COB CONTROL RECORD 2-9 N0105400
547 | * N0105410
0622 05C4 548 | DC RA220 COMMENTS RECORD RETURN N0105420
0623 0670 549 | RA936 DC RA600 JOB PROCESSING N0105430
0624 063B 550 | DC RA440 EJECT PROCESSING N0105440
0625 064E 551 | DC RA460 PAUSE PROCESSING N0105450
0626 0630 552 | DC RA400 CPRNT PROCESSING N0105460
0627 0656 553 | DC RA480 TYPE PROCESSING N0105470
0628 0656 554 | DC RA480 TEND PROCESSING N0105480
0629 0661 555 | DC RA500 XEQ PROCESSING N0105490
062A 0667 556 | DC RA520 DUP PROCESSING N0105500
062B 066D 557 | DC RA560 ASM PROCESSING N0105510
062C 066D 558 | DC RA560 FOR PROCESSING N0105520
062D 066D 559 | DC RA560 RPG PROCESSING 2-5 N0105530
062E 0630 560 | DC RA400 CEN PROCESSING 2-8 N0105540
062F 066D 561 | DC RA560 COB PROCESSING 2-9 N0105550
562 | * N0105560
563 | * SET CONSOLE PRINTER AS PRINCIPAL PRINT DEVICE N0105570
564 | * N0105580
0630 C902 565 | RA400 LDD 1 2 STORE WD CNT/SCTR ADDR OF N0105590
0631 DC00 0558 566 | STD L PRINT+2 *CNSL PTR TO PRINC PR DEV N0105600
567 | * N0105610
0633 C82A 568 | LDD RA940 FETCH FUNC CODE/I/O AR ADDR N0105620
0634 4400 00F2 569 | BSI L DZ000 BR TO WRITE SUPV TO DISK N0105630
0636 7400 00EE 570 | RA420 MDX L $DBSY,0 SKIP NEXT IF WRITE COMPLETE N0105640
0638 70FD 571 | MDX RA420 BR TO TEST WRITE COMPLETE N0105650
0639 4C00 0516 572 | BSC L RA040 BR TO FETCH CNSL PTR SUBR N0105660
573 | * N0105670
574 | * THE NEXT INSTRUCTION SHOULD NOT OCCUR AFTER N0105680
575 | * LOCATION /0500 + @SCTR - 2. N0105690
576 | * N0105700
577 | * EJECT THE PAGE N0105710
063B CC00 0558 578 | RA440 LDD L PRINT+2 IS CONSOLE PRINTER = 212 N0105720
063D 9C00 057C 579 | SD L PCPAD+2 *TO PRINCIPAL PRINTER? 212 N0105722
063F 4C20 0644 580 | BSC L RA442,Z NO, BRANCH 212 N0105724
0641 6C80 0006 581 | STX I $CH12 SET CHANNEL 12 INDICATOR212 N0105730
0643 7008 582 | B RA443 212 N0105737
0644 4400 0750 583 | RA442 BSI L RSTOR GO DO EJECT 212 N0105738
0646 7400 0036 584 | RA441 MDX L $PBSY,0 2-7 N0105740
0648 70FD 585 | MDX RA441 2-7 N0105750
0649 1010 586 | SLA 16 2-10 N0105754
064A D480 0006 587 | STO I $CH12 CLEAR CH 12 INDICATOR 2-10 N0105755
064C 4C00 05C4 588 | RA443 BSC L RA220 BR TO READ NEXT N0105760
589 | * N0105770
590 | * PAUSE UNTIL 'PROGRAM START' KEY PRESSED N0105780
591 | * N0105790
064E 7400 0032 592 | RA460 MDX L $IOCT,0 SKIP NEXT IF I/O COMPLETE N0105800
0650 70FD 593 | MDX RA460 BRANCH TO TEST I/O COMPLETE N0105810
0651 C00E 594 | LD RA942 FETCH DISPLAY WORD N0105820
0652 4400 0028 595 | BSI L $PRET BRANCH TO WAIT N0105830
0654 4C00 05C4 596 | BSC L RA220 BRANCH TO READ NEXT RECORD N0105840
597 | * N0105850
598 | * RESET PRINCIPAL INPUT DEVICE N0105860
599 | * N0105870
0656 C902 600 | RA480 LDD 1 2 STORE WORD CNT/SCTR ADDR N0105880
0657 DC00 055C 601 | STD L PINPT+2 *OF PRINCIPAL INPUT SUBR N0105890
0659 C9F6 602 | LDD 1 -10 STORE WORD CNT/SCTR ADDR N0105900
065A DC00 0560 603 | STD L CNVRT+2 *OF PRINC CONVERSION SUBR N0105910
065C 4C00 0526 604 | BSC L RA070 BR TO FETCH PRINC INPUT N0105920
605 | * N0105930
606 | * CONSTANTS AND WORK AREAS N0105940
607 | * N0105950
065E 608 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0105960
065E 0001 609 | RA940 DC /0001 WRITE FUNCTION CODE N0105970
065F 04FE 610 | DC RA000-2 SUPV PHASE 1 I/O AREA ADDR N0105980
0660 FFFF 611 | RA942 DC /FFFF 'PAUSE' DISPLAY/NEGATIVE NO N0105990
612 | * N0106000
613 | * PROCESS XEQ CONTROL RECORD N0106010
614 | * N0106020
0661 C400 0035 615 | RA500 LD L $NXEQ TEST NON-EXECUTE SWITCH N0106030
0663 4C18 0670 616 | BSC L RA600,+- *AND BRANCH IF OFF N0106040
0665 6302 617 | LDX 3 2 POINT TO ERROR MESSAGE M 12 N0106050
0666 407D 618 | BSI RA900 BRANCH TO PRINT THE MESSAGE N0106060
619 | * N0106070
620 | * PROCESS DUP CONTROL RECORD N0106080
621 | * N0106090
0667 C400 0034 622 | RA520 LD L $NDUP TEST NON-DUP SWITCH N0106100
0669 4C18 0670 623 | BSC L RA600,+- *AND BRANCH IF OFF N0106110
066B 6303 624 | LDX 3 3 POINT TO ERROR MESSAGE M 13 N0106120
066C 4077 625 | BSI RA900 BRANCH TO PRINT THE MESSAGE N0106130
626 | * N0106140
627 | * PROCESS ASM, FOR, RPG, AND COB CTRL RCDS 2-9 N0106150
628 | * N0106160
066D 1810 629 | RA560 SRA 16 SET 2-3 N0106170
066E D400 0034 630 | STO L $NDUP *NON-DUP SWITCH OFF 2-3 N0106180
631 | * N0106190
632 | * FETCH AND TRANSFER TO A NEW PHASE N0106200
633 | * N0106210
0670 C902 634 | RA600 LDD 1 2 FETCH WORD CNT/SCTR ADDRESS N0106220
0671 4C08 0690 635 | BSC L RA700,+ BRANCH IF WORD COUNT ZERO N0106230
0673 D80E 636 | STD RA660 STORE WORD CNT/SCTR ADDRESS N0106240
0674 C101 637 | LD 1 1 FETCH AND N0106250
0675 D00E 638 | STO RA680 *STORE I/O AREA ADDRESS N0106260
0676 6580 0684 639 | LDX I1 RA680 XR1 = I/O AREA ADDRESS N0106270
640 | * N0106280
641 | * MOVE 'FETCH' AND 'TRANSFER' INSTRUCTIONS N0106290
642 | * TO $HASH N0106300
643 | * N0106310
0678 62F2 644 | LDX 2 -@INST XR2 = WORD COUNT N0106320
0679 C600 0690 645 | RA640 LD L2 RA660+@INST FETCH AND STORE N0106330
067B D600 0022 646 | STO L2 $HASH+@INST *A WORD TO $HASH AREA N0106340
067D 7201 647 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO N0106350
067E 70FA 648 | MDX RA640 BRANCH TO FETCH NEXT WORD N0106360
067F 4C00 0017 649 | BSC L $HASH+3 BRANCH TO FETCH NEW PHASE N0106370
650 | * N0106380
651 | * THE FOLLOWING BLOCK IS MOVED TO THE $HASH N0106390
652 | * AREA TO FETCH AND TRANSFER TO A NEW PHASE N0106400
653 | * N0106410
0682 654 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0106420
0682 0000 655 | RA660 DC *-* PHASE WORD COUNT N0106430
0683 0000 656 | DC *-* PHASE SECTOR ADDRESS N0106440
0684 0000 657 | RA680 DC *-* PHASE I/O AREA ADDRESS N0106450
0685 C8FC 658 | LDD RA660 FETCH WD CNT AND SCTR ADDR N0106460
0686 D900 659 | STD 1 0 *AND STORE TO I/O AREA N0106470
0687 C0FC 660 | LD RA680 FETCH ADDRESS OF I/O AREA N0106480
0688 1890 661 | SRT 16 SHIFT TO EXT, ACC = 0 N0106490
0689 4400 00F2 662 | BSI L DZ000 BRANCH TO READ A PHASE N0106500
068B 7400 00EE 663 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0106510
068D 70FD 664 | MDX *-3 BR TO TEST READ COMPLETE N0106520
068E 4D00 0002 665 | BSC L1 2 BRANCH TO THE NEXT PHASE N0106530
666 | * N0106540
667 | * REQUESTED PROGRAM IS NOT AVAILABLE N0106550
668 | * N0106560
0690 C035 669 | RA700 LD RA980 SET N0106570
0691 D400 0034 670 | STO L $NDUP *NON-DUP SWITCH AND N0106580
0693 D400 0035 671 | STO L $NXEQ *NON-EXECUTE SWITCH ON N0106590
0695 6306 672 | LDX 3 6 POINT TO ERROR MESSAGE M 16 N0106600
0696 404D 673 | BSI RA900 BRANCH TO PRINT THE MESSAGE N0106610
674 | * N0106620
675 | * FETCH CORE IMAGE LOADER VIA CALL $LINK N0106630
676 | * N0106631
0697 C0C8 677 | RA740 LD RA942 SET FLAG -1 TO TELL CIL 2-9 N0106633
0698 D400 001B 678 | STO L $HASH+7 *$LNXQ SHOULD BE SET +1 2-9 N0106635
069A 7001 679 | MDX RA745 BR OVER POSSIBLE BSS WD 2-9 N0106638
069C 680 | BSS E 0 FORCE NEXT LOC EVEN 2-9 N0106640
069C 4400 0039 681 | RA745 BSI L $LINK BRANCH TO $LINK 2-9 N0106650
069E 682 | NAMEP BSS 2 MAINLINE NAME N0106670
683 | * N0106680
684 | * FETCH CORE LOAD BUILDER N0106690
685 | * N0106700
06A0 6500 056A 686 | RA760 LDX L1 CLBP1 XR1 PTS TO CLB PH 1 SLET N0106710
06A2 70CD 687 | MDX RA600 BRANCH TO FETCH CLB PH 1 N0106720
688 | * N0106730
689 | * CONSTANTS AND WORK AREAS N0106740
690 | * N0106750
000E 691 | @INST EQU RA700-RA660 WORD COUNT N0106760
06A3 0000 692 | NORCD DC *-* NO. OF SUPV CONTROL RECORDS N0106770
06A4 0000 693 | NINDR DC *-* MAINLINE NAME INDICATOR N0106780
06A5 0000 694 | JOBXQ DC *-* ZERO=EQUAT RCDS ONLY 2-4 N0106790
695 | * N0106800
696 | *************************************************** N0106810
697 | * N0106820
698 | * READ A RECORD AND CONVERT TO EBCDIC N0106830
699 | * N0106840
06A6 0000 700 | RA800 DC 0 ENTRY/RETURN ADDRESS N0106850
06A7 C023 701 | RA810 LD RA985 SET BUFFER WORD COUNT AT212 N0106920
06A8 D480 06C7 702 | STO I SBADR *BEGINNING OF SUPV BUFFER N0106930
06AA C81B 703 | LDD RA980 FETCH FUNC CODE/I/O AREA N0106940
06AB 4400 0321 704 | BSI L INPUT BRANCH TO READ A RECORD N0106950
06AD 7400 0013 705 | RA840 MDX L $IBSY,0 SKIP NEXT IF READ COMPLETE N0106960
06AF 70FD 706 | MDX RA840 BR TO TEST READ COMPLETE N0106970
06B0 C400 007C 707 | LD L $KCSW KEYBOARD UTILIZED? 212 N0106975
06B2 4C20 06BE 708 | BSC L RA845,Z BRANCH IF YES 212 N0106980
06B4 C400 0FB0 709 | LD L @SBFR READ 1ST COL IN RD BUF 212 N0106981
06B6 9015 710 | S RA986 SUB REP OF SLASH 212 N0106982
06B7 4820 711 | BSC Z SKIP IF IT IS A SLASH 212 N0106983
06B8 70EE 712 | MDX RA810 ELSE, LOOP 212 N0106984
06B9 C400 0FB1 713 | LD L @SBFR+1 CHECK SECOND COLUMN FOR 212 N0106985
06BB 9010 714 | S RA986 *A SLASH 212 N0106986
06BC 4820 715 | BSC Z SKIP IF SLASH 212 N0106987
06BD 70E9 716 | MDX RA810 ELSE LOOP 212 N0106988
06BE C008 717 | RA845 LD SBADR BR TO CONVERSION SUBR N0106990
06BF 4480 06CA 718 | BSI I CONVT *TO CONVERT RCD TO EBCDIC N0107000
719 | * N0107010
06C1 C400 000F 720 | LD L $CTSW TEST FOR AND RETURN IF RCD N0107020
06C3 4CA0 06A6 721 | BSC I RA800,Z *JUST READ A MON CTRL RCD N0107030
06C5 70E1 722 | MDX RA810 BRANCH TO READ NEXT RECORD N0107040
723 | * N0107050
724 | * CONSTANTS AND WORK AREAS N0107060
725 | * N0107070
06C6 726 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0107080
06C6 7002 727 | RA980 DC /7002 READ/SPACE A LINE FUNC CODE N0107090
06C7 0FAF 728 | SBADR DC @SBFR-1 ADDR OF SUPV BFR I/O AREA N0107100
06C8 7001 729 | RA982 DC /7001 PRINT FUNCTION CODE N0107110
06C9 0000 730 | RA983 DC *-* I/O AREA ADDRESS N0107120
06CA 0000 731 | CONVT DC *-* CONVERSION SUBR ENTRY ADDR N0107130
06CB 0050 732 | RA985 DC @CCOL SUPV BUFFER WORD COUNT N0107140
06CC 3000 733 | RA986 DC /3000 REPRESENTATION OF SLASH 212 N0107145
734 | * N0107150
735 | *************************************************** N0107160
736 | * N0107170
737 | * PRINT A MONITOR CONTROL RECORD OR MESSAGE N0107180
738 | * N0107190
06CD 0000 739 | RA850 DC 0 ENTRY/RETURN ADDRESS N0107200
06CE D0FA 740 | STO RA983 STORE I/O AREA ADDRESS N0107210
06CF C400 057D 741 | LD L PCPAD+3 TEST IF CP IS PRINC PR 2-8 N0107220
06D1 9400 0559 742 | S L PRINT+3 2-8 N0107230
06D3 4C18 06D9 743 | BSC L RA855,+- BRANCH IF CP PRINC PR 2-8 N0107240
06D5 C480 0006 744 | LD I $CH12 FETCH CHANNEL 12 INDICATOR N0107250
06D7 4420 0750 745 | BSI L RSTOR,Z BR TO RESTORE PAGE IF NON-Z N0107260
06D9 C0EC 746 | RA855 LD RA980 FETCH SPACE FUNCTION CODE N0107270
06DA 4400 01E1 747 | BSI L OUTPT BRANCH TO SPACE A LINE N0107280
06DC C8EB 748 | LDD RA982 FETCH FUNC CODE/I/O AR ADDR N0107290
06DD 4400 01E1 749 | BSI L OUTPT BRANCH TO PRINT A LINE N0107300
06DF 7400 0036 750 | RA860 MDX L $PBSY,0 SKIP NEXT IF PRINT COMPLETE N0107310
06E1 70FD 751 | MDX RA860 BR TO TEST PRINT COMPLETE N0107320
06E2 4C80 06CD 752 | BSC I RA850 RETURN N0107330
753 | * N0107340
754 | *************************************************** N0107350
755 | * N0107360
756 | * PRINT THE ERROR MESSAGES N0107370
757 | * N0107380
06E4 0000 758 | RA900 DC 0 ENTRY/RETURN ADDRESS N0107390
06E5 C700 06E9 759 | LD L3 RA990-1 FETCH ADDR OF ERROR MESSAGE N0107400
06E7 40E5 760 | BSI RA850 BRANCH TO PRINT THE MESSAGE N0107410
06E8 4C00 05C4 761 | BSC L RA220 BRANCH TO READ NEXT RECORD N0107420
762 | * N0107430
763 | * ERROR MESSAGES N0107440
764 | * N0107450
06EA 06F0 765 | RA990 DC RA991 ADDRESS OF MESSAGE M 11 N0107460
06EB 0703 766 | DC RA992 ADDRESS OF MESSAGE M 12 N0107470
06EC 0711 767 | DC RA993 ADDRESS OF MESSAGE M 13 N0107480
06ED 071C 768 | DC RA994 ADDRESS OF MESSAGE M 14 N0107490
06EE 0737 769 | DC RA995 ADDRESS OF MESSAGE M 15 N0107500
06EF 0745 770 | DC RA996 ADDRESS OF MESSAGE M 16 N0107510
771 | * N0107520
06F0 0012 772 | RA991 DC RA992-* WORD COUNT OF MESSAGE M 11 N0107530
06F1 D440 F1F1 40C9 D5E5 773 | EBC .M 11 INVALID MONITOR CONTROL RECORD. N0107540
C1D3 C9C4 40D4 D6D5 |
C9E3 D6D9 40C3 D6D5 |
E3D9 D6D3 40D9 C5C3 |
D6D9 C440 |
0703 000D 774 | RA992 DC RA993-* WORD COUNT OF MESSAGE M 12 N0107550
0704 D440 F1F2 40C5 E7C5 775 | EBC .M 12 EXECUTION SUPPRESSED. N0107560
C3E4 E3C9 D6D5 40E2 |
E4D7 D7D9 C5E2 E2C5 |
C440 |
0711 000A 776 | RA993 DC RA994-* WORD COUNT OF MESSAGE M 13 N0107570
0712 D440 F1F3 40C4 E4D7 777 | EBC .M 13 DUP SUPPRESSED. N0107580
40E2 E4D7 D7D9 C5E2 |
E2C5 C440 |
071C 001A 778 | RA994 DC RA995-* WORD COUNT OF MESSAGE M 14 N0107590
071D D440 F1F4 40E2 E8E2 779 | EBC .M 14 SYSTEM PROGRAM DETECTED MONIT. N0107600
E3C5 D440 D7D9 D6C7 |
D9C1 D440 C4C5 E3C5 |
C3E3 C5C4 40D4 D6D5 |
C9E3 |
072E D6D9 40C3 D6D5 E3D9 780 | EBC .OR CONTROL RECORD. N0107610
D6D3 40D9 C5C3 D6D9 |
C440 |
0737 000D 781 | RA995 DC RA996-* WORD COUNT OF MESSAGE M 15 N0107620
0738 D440 F1F5 40C9 D3D3 782 | EBC .M 15 ILLEGAL CARTRIDGE ID. N0107630
C5C7 C1D3 40C3 C1D9 |
E3D9 C9C4 C7C5 40C9 |
C440 |
0745 000A 783 | RA996 DC RA997-* WORD COUNT OF MESSAGE M 16 N0107640
0746 D440 F1F6 40D7 D9D6 784 | EBC .M 16 PROGRAM VOIDED. N0107650
C7D9 C1D4 40E5 D6C9 |
C4C5 C440 |
0750 785 | RA997 BSS 0 N0107660
786 | * N0107670
787 | *************************************************** N0107680
788 | * N0107690
789 | * RESTORE THE PAGE AND PRINT THE HEADING N0107700
790 | * N0107710
0750 0000 791 | RSTOR DC 0 ENTRY/RETURN ADDRESS N0107720
0751 C015 792 | LD RS903 FETCH HEADING SCTR ADDRESS N0107730
0752 D016 793 | STO RS905 *AND STORE TO HEADING BFR N0107740
0753 C012 794 | LD RS902 FETCH ADDR OF HEADING BFR N0107750
0754 1890 795 | SRT 16 SHIFT TO EXT, ACC = 0 N0107760
0755 4400 00F2 796 | BSI L DZ000 BRANCH TO READ HEADING SCTR N0107770
0757 7400 00EE 797 | RS100 MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE N0107780
0759 70FD 798 | MDX RS100 BR TO TEST READ COMPLETE N0107790
799 | * N0107800
075A C00D 800 | LD RS904 FETCH HEADING WORD COUNT N0107810
075B D00D 801 | STO RS905 *AND STORE TO PRINT BUFFER N0107820
075C C807 802 | LDD RS900 FETCH FUNC CODE/I/O AR ADDR N0107830
075D 4400 01E1 803 | BSI L OUTPT BRANCH TO RESTORE PAGE N0107840
075F 4400 01E1 804 | BSI L OUTPT BRANCH TO PRINT HEADING N0107850
0761 4C80 0750 805 | BSC I RSTOR RETURN N0107860
806 | * N0107870
807 | * CONSTANTS AND WORK AREAS N0107880
808 | * N0107890
0764 809 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0107900
0764 7000 810 | RS900 DC /7000 RESTORE PAGE FUNCTION CODE N0107910
0765 0769 811 | RS901 DC RS905 ADDR OF HEADING PRINT BFR N0107920
0766 0768 812 | RS902 DC RS904 ADDR OF HEADING DISK BUFFER N0107930
0767 0007 813 | RS903 DC #HDNG HEADING SECTOR ADDRESS N0107940
0768 000A 814 | RS904 DC @HDWC HEADING DISK BUFFER WD CNT N0107950
0769 0000 815 | RS905 DC *-* SECTOR ADDRESS/WORD COUNT N0107960
076A 816 | RS906 BSS @HDWC HEADING BUFFER N0107970
817 | * N0107980
0774 0000 818 | RS908 DC /0000 READ FUNCTION CODE N0107990
0775 0E6C 819 | DC DCOM-2 ADDRESS OF DCOM I/O AREA N0108000
0776 0001 820 | RS910 DC /0001 WRITE FUNCTION CODE N0108010
0777 0E6C 821 | DC DCOM-2 ADDRESS OF DCOM I/O AREA N0108020
0778 0140 822 | RS912 DC @SCTR WORD COUNT OF DCOM I/O AREA N0108030
0779 0001 823 | DC #DCOM SECTOR ADDRESS OF DCOM N0108040
824 | * N0108050
825 | *************************************************** N0108060
826 | * N0108070
827 | * READ DCOM FROM DISK N0108080
828 | * N0108090
077A 0000 829 | RDCOM DC 0 ENTRY/RETURN ADDRESS N0108100
077B C0FE 830 | LD RDCOM FETCH AND N0108110
077C D005 831 | STO WDCOM *STORE RETURN ADDRESS N0108120
077D C8FA 832 | LDD RS912 FETCH AND N0108130
077E DC00 0E6C 833 | STD L DCOM-2 *STORE DCOM WORD COUNT N0108140
0780 C8F3 834 | LDD RS908 FETCH FUNC CODE/I/O AR ADDR N0108150
0781 7002 835 | MDX WD010 BRANCH TO READ DCOM N0108160
836 | * N0108170
837 | *************************************************** N0108180
838 | * N0108190
839 | * WRITE UPDATED DCOM TO DISK N0108200
840 | * N0108210
0782 0000 841 | WDCOM DC 0 ENTRY/RETURN ADDRESS N0108220
0783 C8F2 842 | LDD RS910 FETCH FUNC CODE/I/O AR ADDR N0108230
0784 4400 00F2 843 | WD010 BSI L DZ000 BRANCH TO READ OR WRITE N0108240
0786 7400 00EE 844 | WD020 MDX L $DBSY,0 SKIP NEXT IF OP COMPLETE N0108250
0788 70FD 845 | MDX WD020 BRANCH TO TEST OP COMPLETE N0108260
0789 4C80 0782 846 | BSC I WDCOM RETURN N0108270
LABCK SUBR TO CONVERT TO NAME CODE
848 | * CONVERT NAME FROM UNPACKED FORM (1 CHARACTER/ N0108290
849 | * WORD TO COMPRESSED FORM (5 6-BIT CHARACTERS N0108300
850 | * TO 30 RIGHT JUSTIFIED BITS IN TWO WORDS.) IF N0108310
851 | * IS INVALID, PSEUDO-SKIP AND RETURN ZEROS N0108320
852 | * EQUIVALENT TO 5 BLANKS) IN ACCUMULATOR AND N0108330
853 | * EXTENTION. N0108340
854 | * N0108350
078B 0000 855 | LABCK DC 0 ENTRY/RETURN ADDRESS N0108360
078C C200 856 | LD 2 0 N0108370
078D 902E 857 | S LAB06 FIRST CHARACTER MUST NOT N0108380
078E 4C10 07A9 858 | BSC L LAB04,- *BE NUMERIC N0108390
0790 693C 859 | STX 1 LAB09+1 SAVE XR1 N0108400
0791 6B3D 860 | STX 3 LAB09+3 SAVE XR3 N0108410
0792 63FB 861 | LDX 3 -5 N0108420
0793 C200 862 | LD 2 0 N0108430
0794 9028 863 | S LAB06+1 N0108440
0795 4C18 07DE 864 | BSC L LAB12,+- BRANCH IF FIRST CHAR. BLANK N0108450
0797 6500 07AF 865 | LAB01 LDX L1 LAB05 N0108460
0799 C200 866 | LD 2 0 CHECK EACH CHARACTER FOR N0108470
079A 9022 867 | S LAB06+1 *BLANK N0108480
079B 4C18 07D2 868 | BSC L LAB10,+- N0108490
079D 9100 869 | LAB02 S 1 0 *AND VALID 8-BIT CHARACTER N0108500
079E 4C28 07A9 870 | BSC L LAB04,Z+ N0108510
07A0 9101 871 | S 1 1 N0108520
07A1 4C08 07A5 872 | BSC L LAB03,+ N0108530
07A3 7102 873 | MDX 1 2 N0108540
07A4 70F8 874 | MDX LAB02 N0108550
07A5 7201 875 | LAB03 MDX 2 1 INCREMENT POINTER N0108560
07A6 7301 876 | MDX 3 1 COUNT AND TEST CHARACTERS N0108570
07A7 70EF 877 | MDX LAB01 GO TEST NEXT CHARACTER N0108580
07A8 7016 878 | MDX LAB07 N0108590
07A9 6580 07CD 879 | LAB04 LDX I1 LAB09+1 LABEL ERROR N0108600
07AB 10A0 880 | SLT 32 RETURN BLANKS N0108610
07AC 7401 078B 881 | MDX L LABCK,1 PSEUDO-SKIP N0108620
07AE 701D 882 | MDX LAB09 N0108630
883 | * N0108640
07AF 001B 884 | LAB05 DC .$-. TABLE OF VALID CHARACTERS N0108650
07B0 0000 885 | DC .$-.$ (INCLUSIVE LIMITS) N0108660
886 | * DC .@-.$ A-I,J-R,S-Z,0-9,$,#,@ N0108670
887 | * CHANGED THESE LINES TO MATCH MICROFICHE KNITTEL
888 | * AS IT WAS IT DID NOT WORK KNITTEL
07B1 0020 889 | DC .#-.$ A-I,J-R,S-Z,0-9,$,#,@ KNITTEL
890 | * DC /0001 .@-.# APOSTR IS AT SIGN 2-8 N0108680
07B2 0001 891 | DC /0001 .'-.# APOSTR IS AT SIGN 2-8 KNITTEL
892 | * DC /0045 .A-.@ APOSTR IS AT SIGN 2-8 N0108690
07B3 0045 893 | DC /0045 .A-.' APOSTR IS AT SIGN 2-8 KNITTEL
07B4 0008 894 | DC .I-.A N0108700
07B5 0008 895 | DC .J-.I N0108710
07B6 0008 896 | DC .R-.J N0108720
07B7 0009 897 | DC .S-.R N0108730
07B8 0007 898 | DC .Z-.S N0108740
07B9 0007 899 | DC .0-.Z N0108750
07BA 0009 900 | DC .9-.0 N0108760
07BB 3F06 901 | DC /3FFF-.9 (FORCE END CHECK LOOP) N0108770
07BC 00F0 902 | LAB06 DC .0 N0108780
07BD 0040 903 | DC /0040 N0108790
07BE 003F 904 | DC /003F N0108800
905 | * N0108810
07BF 72FB 906 | LAB07 MDX 2 -5 LABEL IS VALID N0108820
07C0 63FB 907 | LDX 3 -5 COLLECT IT N0108830
07C1 10A0 908 | SLT 32 N0108840
07C2 D821 909 | LAB08 STD LAB13 N0108850
07C3 C200 910 | LD 2 0 N0108860
07C4 E0F9 911 | AND LAB06+2 N0108870
07C5 100A 912 | SLA 10 N0108880
07C6 E81D 913 | OR LAB13 N0108890
07C7 18DA 914 | RTE 32-6 N0108900
07C8 7201 915 | MDX 2 1 N0108910
07C9 7301 916 | MDX 3 1 N0108920
07CA 70F7 917 | MDX LAB08 N0108930
07CB 72FB 918 | MDX 2 -5 N0108940
07CC 6500 0000 919 | LAB09 LDX L1 *-* RESTORE XR1 N0108950
07CE 6700 0000 920 | LDX L3 *-* RESTORE XR3 N0108960
07D0 4C80 078B 921 | BSC I LABCK EXIT N0108970
07D2 C200 922 | LAB10 LD 2 0 CHECK LABEL FOR EMBEDDED N0108980
07D3 90E9 923 | S LAB06+1 *BLANKS N0108990
07D4 4C20 07A9 924 | BSC L LAB04,Z N0109000
07D6 7201 925 | MDX 2 1 N0109010
07D7 7301 926 | MDX 3 1 N0109020
07D8 70F9 927 | MDX LAB10 N0109030
07D9 70E5 928 | MDX LAB07 N0109040
929 | * N0109050
07DA C200 930 | LAB11 LD 2 0 N0109060
07DB 90E1 931 | S LAB06+1 N0109070
07DC 4C20 07A9 932 | BSC L LAB04,Z BRANCH IF CHAR. NOT BLANK N0109080
07DE 7201 933 | LAB12 MDX 2 1 N0109090
07DF 7301 934 | MDX 3 1 N0109100
07E0 70F9 935 | MDX LAB11 N0109110
07E1 10A0 936 | SLT 32 SET NAME CODE TO ZERO N0109120
07E2 70E9 937 | MDX LAB09 N0109130
938 | * N0109140
07E4 939 | LAB13 BSS E 2 N0109150
940 | * N0109160
941 | * N0109170
07E6 942 | BSS @PROC-LAB13-5 PATCH AREA N0109180
943 | * N0109190
944 | * N0109200
07FD 0000 945 | RA999 DC 0 END OF PHASE 1 - MCRA N0109210
SUPV PHASE 2 - JOB PROCESSING
947 | *************************************************** N0109230
948 | *STATUS - VERSION 2, MODIFICATION 10 * N0109240
949 | * * N0109250
950 | *FUNCTION/OPERATION - * N0109260
951 | * * RESTORE THE PAGE AND PRINT THE JOB RECORD. * N0109270
952 | * * CONVERT THE CARTRIDGE IDS TO BINARY AND * N0109280
953 | * CALL SYSUP TO UPDATE TABLES IN SYSTEM DCOM. * N0109290
954 | * * INITIALIZE THE HEADING SECTOR - * N0109300
955 | * * WORDS 0-3 CONTAIN 'PAGE 1' * N0109310
956 | * * WORDS 6-9 CONTAIN COLUMNS 51-58 OF THE * N0109320
957 | * JOB RECORD * N0109330
958 | * * WORDS 10-319 CONTAIN BLANKS. * N0109340
959 | * * INITIALIZE COMMA. * N0109350
960 | * * INITIALIZE DCOM. * N0109360
961 | * * PRINT THE SYSTEM VERSION AND MODIFICATION * N0109370
962 | * LEVEL AND THE ACTUAL AND CONFIGURED CORE * N0109380
963 | * SIZES. * N0109390
964 | * * N0109400
965 | *ENTRY POINTS - * N0109410
966 | * PROGRAM START - JB000 * N0109420
967 | * * N0109430
968 | *INPUT - N/A * N0109440
969 | * * N0109450
970 | *OUTPUT - * N0109460
971 | * * THE JOB CONTROL RECORD IS PRINTED. * N0109470
972 | * * THE SYSTEM VERSION AND MODIFICATION LEVEL * N0109480
973 | * ARE PRINTED. * N0109490
974 | * * THE ACTUAL AND CONFIGURED CORE SIZES ARE * N0109500
975 | * PRINTED. * N0109510
976 | * * N0109520
977 | *EXTERNAL REFERENCES - * N0109530
978 | * * IN COMMA - * N0109540
979 | * $CIBA * N0109550
980 | * $COMN * N0109560
981 | * $CORE * N0109570
982 | * $CTSW * N0109580
983 | * $DADR * N0109590
984 | * $DUMP * N0109600
985 | * $FLSH * N0109610
986 | * $I420 * N0109620
987 | * $IBSY * N0109630
988 | * $IOCT * N0109640
989 | * $IREQ * N0109650
990 | * $LEV5 * N0109660
991 | * $LINK * N0109670
992 | * $NDUP * N0109680
993 | * $NXEQ * N0109690
994 | * $PBSY * N0109700
995 | * $PGCT * N0109710
996 | * $PHSE * N0109720
997 | * $PRET * N0109730
998 | * $PST1 * N0109740
999 | * $PST2 * N0109750
1000 | * $PST3 * N0109760
1001 | * $PST4 * N0109770
1002 | * $SNLT * N0109780
1003 | * $STOP * N0109790
1004 | * $SYSC * N0109800
1005 | * $UFDR * N0109810
1006 | * $UFIO * N0109820
1007 | * $WRD1 * N0109830
1008 | * $WSDR * N0109840
1009 | * * IN DCOM - * N0109850
1010 | * #CBSW * N0109860
1011 | * #CIBA * N0109870
1012 | * #CIDN * N0109880
1013 | * #DBCT * N0109890
1014 | * #DCSW * N0109900
1015 | * #ECNT 2-4* N0109910
1016 | * #ENTY * N0109920
1017 | * #FCNT * N0109930
1018 | * #FHOL * N0109940
1019 | * #FMAT * N0109950
1020 | * #FRDR * N0109960
1021 | * #FSZE * N0109970
1022 | * #GCNT * N0109980
1023 | * #JBSW * N0109990
1024 | * #LCNT * N0110000
1025 | * #MDF1 * N0110010
1026 | * #MDF2 * N0110020
1027 | * #MPSW * N0110030
1028 | * #NAME * N0110040
1029 | * #NCNT * N0110050
1030 | * #TODR * N0110060
1031 | * #UHOL * N0110070
1032 | * #USZE * N0110080
1033 | * #WSCT * N0110090
1034 | * * IN MCRA - * N0110100
1035 | * NORCD 2-4* N0110110
1036 | * PIDEV * N0110120
1037 | * PINPT * N0110130
1038 | * RA600 * N0110140
1039 | * RA850 * N0110150
1040 | * RA900 * N0110160
1041 | * RSTOR * N0110170
1042 | * SBADR * N0110180
1043 | * SUPV3 * N0110190
1044 | * * SUBROUTINES - * N0110200
1045 | * DZ000 RESIDENT DISK I/O SUBROUTINE. * N0110210
1046 | * * N0110220
1047 | *EXITS - * N0110230
1048 | * * NORMAL - * N0110240
1049 | * AN EXIT IS MADE TO SUPERVISOR PHASE 3 TO * N0110250
1050 | * DELETE TEMPORARY LET ENTRIES. * N0110260
1051 | * * ERROR - * N0110270
1052 | * AN EXIT IS MADE TO THE MCRA (PHASE 1) TO * N0110280
1053 | * PRINT THE ERROR MESSAGE AND ABORT THE JOB. * N0110290
1054 | * * N0110300
1055 | *TABLES/WORK AREAS - * N0110310
1056 | * * @SBFR AN 80 WORD BUFFER WHICH CONTAINS THE* N0110320
1057 | * JOB MONITOR CONTROL RECORD. * N0110330
1058 | * * DCOM A 320 WORD BUFFER USED FOR DISK * N0110340
1059 | * COMMUNICATIONS AREA (DCOM) I/O. * N0110350
1060 | * * BUFFR A 320 WORD BUFFER USED FOR HEADING * N0110360
1061 | * SECTOR INITIALIZATION AND RESIDENT * N0110370
1062 | * IMAGE SECTOR INPUT. * N0110380
1063 | * * N0110390
1064 | *ATTRIBUTES - * N0110400
1065 | * * ABSOLUTE. * N0110410
1066 | * * REUSABLE. * N0110420
1067 | * * N0110430
1068 | *NOTES - N/A * N0110440
1069 | * * N0110450
1070 | *************************************************** N0110460
SUPV PHASE 2 - JOB PROCESSING
07FE 1072 | ORG @PROC-2 PHASE 2 I/O AREA ADDRESS N0110480
1073 | * N0110490
*SBRKMET 6F 1074 | *SUP PHASE 2 - JOB PROCESSING V2M04 N0110500
07FE 052B 1075 | DC JB999-* WORD COUNT N0110510
07FF 006F 1076 | DC @JOBP PHASE ID N0110520
SUPV PHASE 2 - JOB PROCESSING
0800 616F 1078 | JB000 LDX 1 @JOBP SET N0110540
0801 6D00 0078 1079 | STX L1 $PHSE *SUPERVISOR PHASE 2 INDR N0110550
0803 1000 1080 | NOP A WAIT MAY BE PATCHED HERE N0110560
1081 | * N0110570
1082 | * SET TEMPORARY MODE SWITCH N0110580
1083 | * N0110590
0804 C400 0FB3 1084 | LD L @SBFR+3 FETCH COLUMNS 7-8 N0110600
0806 905E 1085 | S JB900 TEST FOR AND N0110610
0807 4C18 080B 1086 | BSC L JB040,+- *BRANCH IF 'T' IN COLUMN 8 N0110620
0809 1810 1087 | SRA 16 CLEAR ACCUMULATOR N0110630
080A 7001 1088 | MDX JB060 SKIP NEXT INSTRUCTION N0110640
080B C059 1089 | JB040 LD JB900 FETCH NON-ZERO N0110650
080C D059 1090 | JB060 STO JB901 SAVE THE JOB SWITCH N0110660
1091 | * N0110670
1092 | * FETCH AND CONVERT HEXADECIMAL CARTRIDGE IDS N0110680
1093 | * N0110690
080D 61F8 1094 | JB100 LDX 1 -8 CARTRIDGE ID COUNT TO XR1 N0110700
080E 6204 1095 | LDX 2 4 WD CNT OF FIRST ID-1 TO XR2 N0110710
1096 | * N0110720
080F 63FC 1097 | JB110 LDX 3 -4 CHARACTER COUNT TO XR3 N0110730
0810 7201 1098 | JB120 MDX 2 1 INCREMENT WORD COUNT N0110740
0811 C600 0FB0 1099 | LD L2 @SBFR FETCH TWO CHARACTERS OF ID N0110750
0813 1890 1100 | SRT 16 SHIFT CHARACTERS TO EXT N0110760
0814 1810 1101 | SRA 16 CLEAR ACCUMULATOR N0110770
0815 1088 1102 | SLT 8 FETCH LEFT HALF OF WORD N0110780
0816 D700 089A 1103 | STO L3 JB922+4 STORE TO CONVERSION SUBR N0110790
0818 7301 1104 | MDX 3 1 INCR CHAR CNT, SKIP IF ZERO N0110800
0819 7006 1105 | MDX JB130 BR TO FETCH RIGHT HALF N0110810
1106 | * N0110820
081A 4059 1107 | BSI JB200 BR TO CONVERSION SUBR N0110830
081B D500 086F 1108 | STO L1 JB902+8 STORE BINARY CARTRIDGE ID N0110840
081D 7101 1109 | MDX 1 1 INCREMENT CARTRIDGE ID CNT N0110850
081E 70F0 1110 | MDX JB110 BRANCH TO FETCH NEXT ID N0110860
081F 7010 1111 | MDX JB140 N0110870
1112 | * N0110880
0820 1810 1113 | JB130 SRA 16 CLEAR ACCUMULATOR N0110890
0821 1088 1114 | SLT 8 FETCH RIGHT HALF OF WORD N0110900
0822 D700 089A 1115 | STO L3 JB922+4 STORE TO CONVERSION SUBR N0110910
0824 7301 1116 | MDX 3 1 INCR CHAR CNT, SKIP IF ZERO N0110920
0825 70EA 1117 | MDX JB120 BR TO FETCH NEXT TWO CHAR N0110930
1118 | * N0110940
0826 404D 1119 | BSI JB200 BR TO CONVERSION SUBR N0110950
0827 D500 086F 1120 | STO L1 JB902+8 STORE BINARY CARTRIDGE ID N0110960
0829 7201 1121 | MDX 2 1 INCREMENT WORD COUNT N0110970
082A C600 0FB0 1122 | LD L2 @SBFR FETCH A CHARACTER N0110980
082C 1888 1123 | SRT 8 SHIFT TO EXTENTION N0110990
082D 63FC 1124 | LDX 3 -4 CHARACTER COUNT TO XR3 N0111000
082E 7101 1125 | MDX 1 1 INCR CART CNT, SKIP IF ZERO N0111010
082F 70F0 1126 | MDX JB130 BR TO STORE CHARACTER N0111020
1127 | * N0111030
0830 4400 09A0 1128 | JB140 BSI L SYSUP BRANCH TO UPDATE DCOM N0111040
0832 0867 1129 | DC JB902 ADDR OF CARTRIDGE ID TABLE N0111050
1130 | * N0111060
1131 | * DEFINE SECTOR ADDRESS OF CIB, DRIVE CODE OF N0111070
1132 | * WORKING STORAGE AND DRIVE CODE OF UNFORMATTED N0111080
1133 | * I/O N0111090
1134 | * N0111100
0833 6500 086C 1135 | LDX L1 CIBID ADDRESS OF FIRST ID TO XR1 N0111110
0835 63FD 1136 | LDX 3 -3 CARTRIDGE ID COUNT TO XR3 N0111120
1137 | * N0111130
0836 62FB 1138 | JB150 LDX 2 -5 ID LIST COUNT TO XR2 N0111140
0837 C100 1139 | LD 1 0 FETCH A CARTRIDGE ID N0111150
0838 4C18 0844 1140 | BSC L JB180,+- BRANCH IF BLANK N0111160
083A C600 0EAA 1141 | JB160 LD L2 #CIDN+5 FETCH CART ID FROM ID LIST N0111170
083C 4C18 0843 1142 | BSC L JB170,+- BRANCH IF BLANK N0111180
083E 9100 1143 | S 1 0 SUBTRACT THE CARTRIDGE ID N0111190
083F 4C18 0844 1144 | BSC L JB180,+- BRANCH IF THE IDS ARE EQUAL N0111200
0841 7201 1145 | MDX 2 1 INCR ID LIST CNT, SKIP IF Z N0111210
0842 70F7 1146 | MDX JB160 BR TO TEST NEXT IN ID LIST N0111220
1147 | * N0111230
0843 62FB 1148 | JB170 LDX 2 -5 RESET XR2 N0111240
1149 | * N0111250
0844 7205 1150 | JB180 MDX 2 5 SET XR2 POSITIVE N0111260
0845 1000 1151 | NOP N0111270
0846 6A2B 1152 | STX 2 JB905 *AND SAVE AS N0111280
0847 C02A 1153 | LD JB905 *THE DRIVE CODE N0111290
0848 D700 0872 1154 | STO L3 JB904+3 N0111300
1155 | * N0111310
084A 7101 1156 | MDX 1 1 INCR CARTRIDGE ID ADDRESS N0111320
084B 7301 1157 | MDX 3 1 INCR ID COUNT, SKIP IF ZERO N0111330
084C 70E9 1158 | MDX JB150 BRANCH TO FIND NEXT ID N0111340
1159 | * N0111350
084D 6580 086F 1160 | LDX I1 JB904 DRIVE CODE TO XR1 N0111360
084F C500 0EAA 1161 | LD L1 #CIBA FETCH SECTOR ADDRESS OF N0111370
0851 1004 1162 | SLA 4 CHECK IF CIB DLETED 2-6 N0111380
0852 4C18 0857 1163 | BSC L JB185,+- BR IF YES 2-6 N0111390
0854 C500 0EAA 1164 | LD L1 #CIBA 2-6 N0111400
0856 7002 1165 | MDX JB186 2-6 N0111410
0857 C400 0EAA 1166 | JB185 LD L #CIBA USE MASTER CIB IF 2-6 N0111420
1167 | * SPECIFIED CIB DELETED 2-6 N0111430
0859 D400 0005 1168 | JB186 STO L $CIBA *CIB AND STORE TO COMMA N0111440
085B C017 1169 | LD JB906 STORE WORD COUNT OF 2-4 N0111450
085C D400 0004 1170 | STO L $CIBA-1 *THE CIB TO COMMA 2-4 N0111460
085E C011 1171 | LD JB904+1 FETCH DRIVE CODE OF WORKING N0111470
085F D400 007A 1172 | STO L $WSDR *STORAGE AND STORE TO COMMA N0111480
0861 C00F 1173 | LD JB904+2 FETCH UNFORMATTED I/O DRIVE N0111490
0862 D400 007D 1174 | STO L $UFDR *CODE AND STORE TO COMMA N0111500
0864 703D 1175 | MDX JB600 CONTINUE N0111510
1176 | * N0111520
1177 | * CONSTANTS AND WORK AREAS N0111530
1178 | * N0111540
0865 40E3 1179 | JB900 EBC . T. EBCDIC BLANK - T N0111550
0866 0000 1180 | JB901 DC *-* NEW JOB SWITCH N0111560
0867 1181 | JB902 BSS 5 CARTRIDGE IDS (ID LIST) N0111570
086C 0000 1182 | CIBID DC *-* CARTRIDGE ID OF CIB N0111580
086D 0000 1183 | WSCID DC *-* CARTRIDGE ID OF WS N0111590
086E 0000 1184 | UNFIO DC *-* CARTRIDGE ID OF UNFMTED I/O N0111600
086F 0000 1185 | JB904 DC *-* DRIVE CODE OF CIB N0111610
0870 0000 1186 | DC *-* DRIVE CODE OF WS N0111620
0871 0000 1187 | DC *-* DRIVE CODE OF UNFMTED I/O N0111630
0872 0000 1188 | JB905 DC *-* TEMPORARY STORAGE N0111640
0873 0FFA 1189 | JB906 DC 4095-$CIBA WD COUNT OF CIB 2-4 N0111650
1190 | * N0111660
1191 | *************************************************** N0111670
1192 | * N0111680
1193 | * CONVERT FOUR HEXADECIMAL CHARACTERS N0111690
1194 | * TO A BINARY NUMBER N0111700
1195 | * N0111710
0874 0000 1196 | JB200 DC 0 ENTRY/RETURN ADDRESS N0111720
0875 10A0 1197 | SLT 32 CLEAR ACC AND EXT N0111730
0876 D81D 1198 | STD JB920 SET TEMPORARY SUM ZERO N0111740
0877 63FC 1199 | LDX 3 -4 CHARACTER COUNT TO XR3 N0111750
0878 C700 089A 1200 | JB220 LD L3 JB922+4 FETCH A CHARACTER N0111760
087A 9023 1201 | S JB926 SUBTRACT EBCDIC BLANK N0111770
087B 4C18 0886 1202 | BSC L JB240,+- BRANCH IF BLANK N0111780
087D 8020 1203 | A JB926 RESET N0111790
087E 9020 1204 | S JB927 TEST FOR ALPHABETIC/NUMERIC N0111800
087F 4C10 0886 1205 | BSC L JB240,- SKIP IF NUMERIC N0111810
0881 801E 1206 | A JB928 CONVERT ALPHA TO BINARY N0111820
0882 901E 1207 | S JB929 TEST FOR AND N0111830
0883 4C30 088F 1208 | BSC L JB260,Z- *BRANCH IF GREATER THAN F N0111840
0885 801B 1209 | A JB929 RESET N0111850
0886 A700 089E 1210 | JB240 M L3 JB924+4 MULTIPLY BY A POWER OF 16 N0111860
0888 880B 1211 | AD JB920 ADD IN PREVIOUS SUM N0111870
0889 D80A 1212 | STD JB920 SAVE NEW SUM N0111880
088A 7301 1213 | MDX 3 1 INCR CHAR CNT, SKIP IF ZERO N0111890
088B 70EC 1214 | MDX JB220 BR TO FETCH NEXT CHARACTER N0111900
088C 1090 1215 | SLT 16 SHIFT SUM TO ACCUMULATOR N0111910
088D 4C90 0874 1216 | BSC I JB200,- RETURN IF LEGAL N0111920
1217 | * N0111930
088F 6305 1218 | JB260 LDX 3 5 POINT TO ERROR MESSAGE M 15 N0111940
0890 D400 0071 1219 | JB280 STO L $FLSH SET ABORT JOB INDR ON N0111950
0892 4400 06E4 1220 | BSI L RA900 BRANCH TO PRINT THE MESSAGE N0111960
1221 | * N0111970
1222 | * CONSTANTS AND WORK AREA N0111980
1223 | * N0111990
0894 1224 | BSS E 0 N0112000
0894 0000 1225 | JB920 DC *-* TEMPORARY STORAGE FOR A N0112010
0895 0000 1226 | DC *-* *32 BIT BINARY NUMBER N0112020
0896 0000 1227 | JB922 DC *-* FOUR N0112030
0897 0000 1228 | DC *-* *HEXADECIMAL N0112040
0898 0000 1229 | DC *-* *CHARACTERS N0112050
0899 0000 1230 | DC *-* *OF CARTRIDGE ID N0112060
089A 1000 1231 | JB924 DC /1000 THIRD POWER OF 16 N0112070
089B 0100 1232 | DC /0100 SECOND POWER OF 16 N0112080
089C 0010 1233 | DC /0010 FIRST POWER OF 16 N0112090
089D 0001 1234 | DC /0001 ZERO POWER OF 16 N0112100
089E 0040 1235 | JB926 DC /0040 EBCDIC BLANK N0112110
089F 00F0 1236 | JB927 DC /00F0 ALPHA/NUMERIC TEST MASK N0112120
08A0 0039 1237 | JB928 DC /0039 ALPHA TO BINARY MASK N0112130
08A1 000F 1238 | JB929 DC /000F MAXIMUM ALLOWABLE CHARACTER N0112140
1239 | * N0112150
1240 | * MASTER CARTRIDGE MAY HAVE CHANGED N0112160
1241 | * UPDATE HEADING BUFFER AGAIN N0112170
1242 | * N0112180
1243 | * N0112190
1244 | * INITIALIZE COMMA N0112200
1245 | * N0112210
08A2 6142 1246 | JB600 LDX 1 X1 XR1 PTS TO MIDDLE OF COMMA N0112220
08A3 10A0 1247 | SLT 32 CLEAR ACC AND EXT N0112230
08A4 D1C5 1248 | STO 1 $COMN-X1 $COMN = 0 N0112240
08A5 D1CD 1249 | STO 1 $CTSW-X1 $CTSW = 0 N0112250
08A6 D1CE 1250 | STO 1 $DADR-X1 $DADR = 0 N0112260
08A7 D1FD 1251 | STO 1 $DUMP-X1 $DUMP = 0 N0112270
08A8 D12F 1252 | STO 1 $FLSH-X1 $FLSH = 0 N0112280
08A9 D1D1 1253 | STO 1 $IBSY-X1 $IBSY = 0 N0112290
08AA D1F0 1254 | STO 1 $IOCT-X1 $IOCT = 0 N0112300
08AB D1F7 1255 | STO 1 $LINK-X1 $LINK = 0 N0112310
08AC D1F2 1256 | STO 1 $NDUP-X1 $NDUP = 0 N0112320
08AD D1F3 1257 | STO 1 $NXEQ-X1 $NXEQ = 0 N0112330
08AE D1F4 1258 | STO 1 $PBSY-X1 $PBSY = 0 N0112340
08AF D1E6 1259 | STO 1 $PRET-X1 $PRET = 0 N0112350
08B0 D13F 1260 | STO 1 $PST1-X1 $PST1 = 0 N0112360
08B1 D143 1261 | STO 1 $PST2-X1 $PST2 = 0 N0112370
08B2 D147 1262 | STO 1 $PST3-X1 $PST3 = 0 N0112380
08B3 D14B 1263 | STO 1 $PST4-X1 $PST4 = 0 N0112390
08B4 D14F 1264 | STO 1 $STOP-X1 $STOP = 0 N0112400
08B5 D139 1265 | STO 1 $WRD1-X1 $WRD1 = 0 N0112410
08B6 D400 00EF 1266 | STO L $SNLT $SNLT = 0 N0112420
08B8 C04A 1267 | LD JB962 N0112430
08B9 D137 1268 | STO 1 $UFIO-X1 $UFIO = 1 N0112440
08BA C845 1269 | LDD JB960 RESET LEVEL 2 POST 2-2 N0112450
08BB D944 1270 | STD 1 $PST2+1-X1 *OPERATIVE ERROR TRAP 2-2 N0112460
08BC D1E7 1271 | STO 1 $PRET+1-X1 *AND PRE-OP ERROR TRAP2-4 N0112470
08BD C043 1272 | LD JB960+1 2-10 N0112472
08BE D1E8 1273 | STO 1 $PRET+2-X1 2-10 N0112474
08BF C042 1274 | LD JB960+2 2-10 N0112476
08C0 D1E9 1275 | STO 1 $PRET+3-X1 2-10 N0112478
08C1 C042 1276 | LD JB963 RESET INTERRUPT 2-2 N0112480
08C2 D1EA 1277 | STO 1 $IREQ-X1 *REQUEST KEY TRAP 2-2 N0112490
08C3 C041 1278 | LD JB964 RESET LEVEL 5 INTERRUPT 2-2 N0112500
08C4 D1CB 1279 | STO 1 $LEV5-X1 *ADDR TO STOP KEY TRAP 2-2 N0112510
1280 | * N0112520
08C5 C040 1281 | LD JB965 STORE SECTOR ADDRESS N0112530
08C6 D400 0D2B 1282 | STO L BUFFR-1 *OF RESIDENT IMAGE N0112540
08C8 4400 0992 1283 | BSI L JB850 BR TO FETCH RESIDENT IMAGE N0112550
08CA C400 0D34 1284 | LD L BUFFR+$CORE-6 FETCH AND STORE N0112560
08CC D400 000E 1285 | STO L $CORE *CONFIGURED CORE SIZE N0112570
1286 | * N0112580
1287 | * INITIALIZE DCOM N0112590
1288 | * N0112600
08CE 10A0 1289 | JB640 SLT 32 CLEAR ACC AND EXT N0112610
1290 | * N0112620
08CF 61FB 1291 | LDX 1 -5 WORD COUNT TO XR1 N0112630
08D0 D500 0EB9 1292 | JB660 STO L1 #FMAT+5 N0112640
08D2 D500 0EC8 1293 | STO L1 #WSCT+5 N0112650
08D4 7101 1294 | MDX 1 1 INCR WORD CNT, SKIP IF ZERO N0112660
08D5 70FA 1295 | MDX JB660 BRANCH TO CLEAR NEXT WORD N0112670
1296 | * N0112680
08D6 6500 0E6E 1297 | LDX L1 DCOM N0112690
08D8 D904 1298 | STD 1 #NAME-DCOM N0112700
08D9 D106 1299 | STO 1 #DBCT-DCOM N0112710
08DA D107 1300 | STO 1 #FCNT-DCOM N0112720
08DB D10A 1301 | STO 1 #CBSW-DCOM N0112730
08DC D10B 1302 | STO 1 #LCNT-DCOM N0112740
08DD D10C 1303 | STO 1 #MPSW-DCOM N0112750
08DE D10D 1304 | STO 1 #MDF1-DCOM N0112760
08DF D10E 1305 | STO 1 #MDF2-DCOM N0112770
08E0 D10F 1306 | STO 1 #NCNT-DCOM N0112780
08E1 D11E 1307 | STO 1 #GCNT-DCOM 2G2 N0112790
08E2 D110 1308 | STO 1 #ENTY-DCOM N0112800
08E3 D112 1309 | STO 1 #TODR-DCOM N0112810
08E4 D113 1310 | STO 1 #FRDR-DCOM N0112820
08E5 D114 1311 | STO 1 #FHOL-DCOM N0112830
08E6 D115 1312 | STO 1 #FSZE-DCOM N0112840
08E7 D116 1313 | STO 1 #UHOL-DCOM N0112850
08E8 D117 1314 | STO 1 #USZE-DCOM N0112860
08E9 D118 1315 | STO 1 #DCSW-DCOM N0112870
08EA C400 0866 1316 | LD L JB901 SET N0112880
08EC D109 1317 | STO 1 #JBSW-DCOM *TEMPORARY MODE INDICATOR N0112890
1318 | * 2-4 N0112900
1319 | * SET NUMBER OF EQUATE RECORDS 2-4 N0112910
1320 | * 2-4 N0112920
08ED C400 0FCD 1321 | LD L @SBFR+29 FETCH COLUMNS 59-60 2-4 N0112930
08EF E017 1322 | AND JB966 SAVE NO. IN COLUMN 60 2-4 N0112940
08F0 A017 1323 | M JB967 MULTIPLY BY TEN 2-4 N0112950
08F1 1090 1324 | SLT 16 SHIFT PRODUCT TO 2-4 N0112960
08F2 D016 1325 | STO JB968 *ACCUMULATOR AND SAVE 2-4 N0112970
08F3 C400 0FCE 1326 | LD L @SBFR+30 FETCH COLUMNS 61-62 2-4 N0112980
08F5 1808 1327 | SRA 8 SHIFT OUT COLUMN 62 2-4 N0112990
08F6 E010 1328 | AND JB966 SAVE NO. IN COLUMN 61 2-4 N0113000
08F7 8011 1329 | A JB968 ADD TENS COLUMN 2-4 N0113010
08F8 D400 0E8F 1330 | STO L #ECNT SET NO OF EQUAT RCDS 2-4 N0113020
08FA D400 06A3 1331 | STO L NORCD *AND HERE TO 2-4 N0113030
08FC 1010 1332 | SLA 16 2-4 N0113040
08FD D400 06A5 1333 | STO L JOBXQ SET SW TO EQUATS ONLY 2-4 N0113050
08FF 700A 1334 | MDX JB700 BRANCH TO CONTINUE N0113060
1335 | * N0113070
1336 | * CONSTANTS AND WORK AREAS N0113080
1337 | * N0113090
0042 1338 | X1 EQU $DUMP+3 MIDDLE OF COMMA N0113100
0900 1339 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0113110
0900 3000 1340 | JB960 WAIT USED TO RESTORE LEVEL 2 N0113120
0901 4C80 0028 1341 | BSC I $PRET *POST+PRE OP ERROR TRAP2-10 N0113130
0903 0001 1342 | JB962 DC 1 CONSTANT ONE 2-10 N0113140
0904 00E6 1343 | JB963 DC $I420 ADDR OF FLUSH JOB ENTRY PT N0113150
0905 0091 1344 | JB964 DC $STOP ADDRESS OF STOP KEY TRAP N0113160
0906 0002 1345 | JB965 DC #RIAD ADDR OF RESIDENT IMAGE SCTR N0113170
0907 000F 1346 | JB966 DC /000F MASK 2-4 N0113180
0908 000A 1347 | JB967 DC 10 CONSTANT TEN 2-4 N0113190
0909 0000 1348 | JB968 DC *-* TEMPORY STORAGE 2-4 N0113200
1349 | * N0113210
1350 | * FETCH AND PRINT VERSION AND MOD LEVEL, N0113220
1351 | * ACTUAL AND CONFIGURED CORE SIZE N0113230
1352 | * N0113240
090A C400 00E0 1353 | JB700 LD L $SYSC FETCH VERSION AND MOD LEVEL N0113250
090C 1890 1354 | SRT 16 SHIFT TO EXTENSION N0113260
090D 1010 1355 | SLA 16 CONVERT N0113270
090E 1088 1356 | SLT 8 *VERSION TO EBCDIC N0113280
090F E83C 1357 | OR JB972 *AND STORE N0113290
0910 D03B 1358 | STO JB972 *TO I/O AREA N0113300
1359 | * N0113310
0911 1010 1360 | SLA 16 CONVERT N0113320
0912 1888 1361 | SRT 8 *MODIFICATION N0113330
0913 A848 1362 | D JB973 *LEVEL N0113340
0914 1088 1363 | SLT 8 *TO EBCDIC N0113350
0915 1808 1364 | SRA 8 *AND N0113360
0916 1088 1365 | SLT 8 *STORE TO N0113370
0917 E836 1366 | OR JB972+2 *I/O N0113380
0918 D035 1367 | STO JB972+2 *AREA N0113390
1368 | * N0113400
0919 C043 1369 | LD JB974 FETCH 32K N0113410
091A D400 7FFF 1370 | STO L 8*@MNCR-1 *AND STORE TO HIGH ADDRESS N0113420
091C 1801 1371 | SRA 1 HALF N0113430
091D D400 3FFF 1372 | STO L 4*@MNCR-1 *AND STORE TO HIGH ADDRESS N0113440
091F 1801 1373 | SRA 1 HALF N0113450
0920 D400 1FFF 1374 | STO L 2*@MNCR-1 *AND STORE TO HIGH ADDRESS N0113460
0922 1801 1375 | SRA 1 HALF N0113470
0923 D400 0FFF 1376 | STO L 1*@MNCR-1 *AND STORE TO HIGH ADDRESS N0113480
1377 | * N0113490
0925 C400 7FFF 1378 | LD L 8*@MNCR-1 FETCH, N0113500
0927 403B 1379 | BSI JB780 *CONVERT AND N0113510
0928 D02B 1380 | STO JB972+8 *STORE ACTUAL CORE SIZE N0113520
1381 | * N0113530
0929 C400 000E 1382 | LD L $CORE FETCH, N0113540
092B 4037 1383 | BSI JB780 *CONVERT AND N0113550
092C D02D 1384 | STO JB972+14 *STORE CONFIG CORE SIZE N0113560
1385 | * N0113570
092D C01C 1386 | LD JB970 FETCH ADDRESS OF I/O AREA N0113580
092E 4400 06CD 1387 | BSI L RA850 BRANCH TO PRINT LINE N0113590
1388 | * N0113600
1389 | * IF THE MASTER CARTRIDGE HAS CHANGED THE N0113610
1390 | * SLET INFORMATION FOR SUPV PHASE 3 MAY N0113620
1391 | * HAVE CHANGED ALSO. N0113630
1392 | * N0113640
0930 61FD 1393 | LDX 1 -3 XR1 = NO. OF SLET SECTORS N0113650
0931 7401 0D2B 1394 | JB720 MDX L BUFFR-1,1 INCREMENT SECTOR ADDRESS N0113660
0933 405E 1395 | BSI JB850 BRANCH TO READ THE SECTOR N0113670
0934 6600 FEC0 1396 | LDX L2 -@SCTR XR2 = SECTOR WORD COUNT N0113680
0936 C400 0562 1397 | JB740 LD L SUPV3 FETCH SUPV PHASE 3 PHASE ID N0113690
0938 9600 0E6C 1398 | S L2 BUFFR+@SCTR TEST FOR AND BRANCH N0113700
093A 4C18 0943 1399 | BSC L JB760,+- *IF MATCH FOUND IN SLET N0113710
093C 7204 1400 | MDX 2 4 DECR WORD CNT, SKIP IF ZERO N0113720
093D 70F8 1401 | MDX JB740 BR TO TEST NEXT PHASE ID N0113730
093E 7101 1402 | MDX 1 1 DECR SCTR CNT, SKIP IF ZERO N0113740
093F 70F1 1403 | MDX JB720 BR TO FETCH NEXT SLET SCTR N0113750
0940 6306 1404 | LDX 3 6 POINT TO ERROR MESSAGE M 16 N0113760
0941 4C00 0890 1405 | BSC L JB280 BRANCH TO PRINT THE MESSAGE N0113770
0943 6500 0562 1406 | JB760 LDX L1 SUPV3 XR1 PTS TO SUPV PH 3 SLET N0113780
0945 CE00 0E6E 1407 | LDD L2 BUFFR+@SCTR+2 FETCH AND STORE WORD N0113790
0947 D902 1408 | STD 1 2 *COUNT AND SECTOR ADDRESS N0113800
0948 4C00 0670 1409 | BSC L RA600 BRANCH TO FETCH PHASE 3 N0113810
1410 | * N0113820
1411 | * CONSTANTS AND WORK AREAS N0113830
1412 | * N0113840
094A 094B 1413 | JB970 DC JB971 ADDRESS OF I/O AREA N0113850
094B 0010 1414 | JB971 DC JB973-* WORD COUNT N0113860
094C E5F0 40D4 F0F0 4040 1415 | JB972 EBC .V0 M00 ACTUAL 00K CONFIG 00K . N0113870
40C1 C3E3 E4C1 D340 |
F0F0 D240 40C3 D6D5 |
C6C9 C740 F0F0 D240 |
095C 000A 1416 | JB973 DC 10 CONSTANT TEN N0113880
095D 8000 1417 | JB974 DC /8000 MAXIMUM CORE SIZE N0113890
095E 4040 1418 | JB975 EBC . . CORE SIZE = INVALID N0113900
095F 40F4 1419 | EBC . 4. CORE SIZE = 4K N0113910
0960 40F8 1420 | EBC . 8. CORE SIZE = 8K N0113920
0961 F1F6 1421 | EBC .16. CORE SIZE = 16K N0113930
0962 F3F2 1422 | EBC .32. CORE SIZE = 32K N0113940
1423 | * N0113950
1424 | *************************************************** N0113960
1425 | * N0113970
1426 | * CONVERT CORE SIZE TO EBCDIC N0113980
1427 | * N0113990
0963 0000 1428 | JB780 DC 0 ENTRY/RETURN ADDRESS N0114000
0964 6104 1429 | LDX 1 4 XR1 = CORE SIZE COUNT N0114010
0965 1140 1430 | SLCA 1 XR1 = NO. OF ZEROS SHIFTED N0114020
0966 C500 095E 1431 | LD L1 JB975 FETCH EBCDIC CORE SIZE N0114030
0968 4C80 0963 1432 | BSC I JB780 *AND RETURN N0114040
1433 | * N0114050
1434 | *************************************************** N0114060
1435 | * N0114070
1436 | * INITIALIZE THE HEADING BUFFER N0114080
1437 | * N0114090
096A 0000 1438 | JB800 DC 0 ENTRY/RETURN ADDRESS N0114100
096B 6600 FEC0 1439 | LDX L2 -@SCTR XR2 = SECTOR WORD COUNT N0114110
096D C01A 1440 | LD JB982 FETCH BLANK WORD N0114120
096E D600 0E6C 1441 | JB820 STO L2 BUFFR+@SCTR STORE TO HEADING BUFFER N0114130
0970 7201 1442 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO N0114140
0971 70FC 1443 | MDX JB820 BRANCH TO STORE NEXT WORD N0114150
1444 | * N0114160
0972 62FC 1445 | LDX 2 -4 XR2 = WORD COUNT N0114170
0973 C600 098D 1446 | JB840 LD L2 JB983+4 FETCH A WORD OF 'PAGE 1' N0114180
0975 D600 0D30 1447 | STO L2 BUFFR+4 *AND STORE TO HEADING BFR N0114190
0977 C600 0FCD 1448 | LD L2 @SBFR+29 FETCH A WORD OF HEADING N0114200
0979 D600 0D36 1449 | STO L2 BUFFR+10 *AND STORE TO HEADING BFR N0114210
097B 7201 1450 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO N0114220
097C 70F6 1451 | MDX JB840 BRANCH TO STORE NEXT WORD N0114230
1452 | * N0114240
097D C008 1453 | LD JB980 INITIALIZE N0114250
097E D400 0037 1454 | STO L $PGCT *PAGE COUNT N0114260
1455 | * N0114270
0980 C006 1456 | LD JB981 STORE HEADING N0114280
0981 D400 0D2B 1457 | STO L BUFFR-1 *SECTOR ADDRESS TO I/O AREA N0114290
0983 4013 1458 | BSI JB860 BRANCH TO WRITE HDNG SECTOR N0114300
0984 4C80 096A 1459 | BSC I JB800 RETURN N0114310
1460 | * N0114320
1461 | * CONSTANTS AND WORK AREAS N0114330
1462 | * N0114340
0986 0001 1463 | JB980 DC 1 INITIAL PAGE COUNT N0114350
0987 0007 1464 | JB981 DC #HDNG HEADING SECTOR ADDRESS N0114360
0988 4040 1465 | JB982 EBC . . EBCDIC BLANK - BLANK N0114370
0989 D7C1 C7C5 4040 40F1 1466 | JB983 EBC .PAGE 1. N0114380
098E 1467 | BSS E 0 FORCE NEXT LOC TO BE EVEN N0114390
098E 0000 1468 | JB984 DC /0000 READ FUNCTION CODE N0114400
098F 0D2A 1469 | DC BUFFR-2 I/O BUFFER ADDRESS N0114410
0990 0001 1470 | JB986 DC /0001 WRITE FUNCTION CODE N0114420
0991 0D2A 1471 | DC BUFFR-2 I/O BUFFER ADDRESS N0114430
1472 | * N0114440
1473 | *************************************************** N0114450
1474 | * N0114460
1475 | * READ OR WRITE THE BUFFER N0114470
1476 | * N0114480
0992 0000 1477 | JB850 DC 0 READ ENTRY N0114490
0993 C0FE 1478 | LD JB850 FETCH RETURN ADDRESS N0114500
0994 D002 1479 | STO JB860 *AND STORE N0114510
0995 C8F8 1480 | LDD JB984 FETCH FUNC CODE/I/O AR ADDR N0114520
0996 7002 1481 | MDX JB870 BRANCH TO READ N0114530
1482 | * N0114540
0997 0000 1483 | JB860 DC 0 WRITE ENTRY/RETURN ADDRESS N0114550
0998 C8F7 1484 | LDD JB986 FETCH FUNC CODE/I/O AR ADDR N0114560
0999 4400 00F2 1485 | JB870 BSI L DZ000 BRANCH TO READ OR WRITE N0114570
099B 7400 00EE 1486 | JB880 MDX L $DBSY,0 SKIP NEXT IF OP COMPLETE N0114580
099D 70FD 1487 | MDX JB880 BR TO TEST OP COMPLETE N0114590
099E 4C80 0997 1488 | BSC I JB860 RETURN N0114600
SYSUP - UPDATE SYSTEM DCOM
1490 | *************************************************** N0114620
1491 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * N0114630
1492 | * * N0114640
1493 | *FUNCTION/OPERATION - * N0114650
1494 | * * UPDATE THE AREA CODE ($ACDE) IN COMMA TO * N0114660
1495 | * REFLECT THE PHYSICAL DEFINITION OF EACH * N0114670
1496 | * REQUESTED LOGICAL DRIVE. * N0114680
1497 | * * UPDATE THE DEFECTIVE CYLINDER TABLE ($DCYL) * N0114690
1498 | * IN COMMA FROM THE DEFECTIVE CYLINDER TABLE * N0114700
1499 | * ON EACH REQUESTED CARTRIDGE. * N0114710
1500 | * * UPDATE THE SYSTEM CARTRIDGE DCOM FROM DCOM * N0114720
1501 | * OF EACH REQUESTED CARTRIDGE. THE TABLES * N0114730
1502 | * UPDATED ARE - * N0114740
1503 | * #ANDU * N0114750
1504 | * #BNDU * N0114760
1505 | * #FPAD * N0114770
1506 | * #CIDN * N0114780
1507 | * #CIBA * N0114790
1508 | * #SCRA * N0114800
1509 | * #FMAT * N0114810
1510 | * #FLET * N0114820
1511 | * #ULET * N0114830
1512 | * #WSCT * N0114840
1513 | * #CSHN * N0114850
1514 | * * ADDITIONALLY, $CIBA, $FPAD AND $ULET IN * N0114860
1515 | * COMMA AS WELL AS THE WORD COUNT AND SECTOR * N0114870
1516 | * ADDRESS OF THE CORE IMAGE LOADER STORED AT * N0114880
1517 | * THE END OF DISKZ ARE UPDATED. * N0114890
1518 | * * N0114900
1519 | *ENTRY POINTS - * N0114910
1520 | * SUBROUTINE ENTRY - SYSUP * N0114920
1521 | * * N0114930
1522 | *INPUT - * N0114940
1523 | * * THE ADDRESS OF A 5 WORD TABLE CONTAINING THE* N0114950
1524 | * REQUESTED CARTRIDGE IDS IN LOGICAL ORDER * N0114960
1525 | * IS THE ARGUMENT OF THE CALL. * N0114970
1526 | * * N0114980
1527 | *OUTPUT - * N0114990
1528 | * * THE REQUESTED CARTRIDGE IDS AND THEIR * N0115000
1529 | * LOGICAL AND PHYSICAL DEFINITION ARE PRINTED * N0115010
1530 | * ON THE PRINCIPAL PRINT DEVICE. * N0115020
1531 | * * N0115030
1532 | *EXTERNAL REFERENCES - * N0115040
1533 | * * IN COMMA - * N0115050
1534 | * $ACDE * N0115060
1535 | * $CIBA * N0115070
1536 | * $CYLN * N0115080
1537 | * $DBSY * N0115090
1538 | * $DCYL * N0115100
1539 | * $DUMP * N0115110
1540 | * $EXIT * N0115120
1541 | * $FLSH * N0115130
1542 | * $FPAD * N0115140
1543 | * $IBT4 * N0115150
1544 | * $IREQ * N0115160
1545 | * $LEV2 * N0115170
1546 | * $PBSY * N0115180
1547 | * $SYSC * N0115190
1548 | * $ULET * N0115200
1549 | * $ZEND * N0115210
1550 | * *IN DCOM - * N0115220
1551 | * #ACIN * N0115230
1552 | * #ANDU * N0115240
1553 | * #BNDU * N0115250
1554 | * #CIBA * N0115260
1555 | * #CIDN * N0115270
1556 | * #CSHN * N0115280
1557 | * #FLET * N0115290
1558 | * #FMAT * N0115300
1559 | * #FPAD * N0115310
1560 | * #PCID * N0115320
1561 | * #SCRA * N0115330
1562 | * #SYSC * N0115340
1563 | * #ULET * N0115350
1564 | * #WSCT * N0115360
1565 | * * IN MCRA - * N0115370
1566 | * RA850 * N0115380
1567 | * RDCOM * N0115390
1568 | * * SUBROUTINES - * N0115400
1569 | * DZ000 RESIDENT DISK I/O SUBROUTINE. * N0115410
1570 | * OUTPT PRINCIPAL PRINT DEVICE SUBROUTINE. * N0115420
1571 | * * N0115430
1572 | *EXITS - * N0115440
1573 | * * NORMAL - * N0115450
1574 | * RETURN TO SUPERVISOR PHASE 2 AT CALL+3 TO * N0115460
1575 | * TO COMPLETE JOB PROCESSING. * N0115470
1576 | * * ERROR - * N0115480
1577 | * BRANCH TO MCRA TO ABORT JOB AFTER PRINTING * N0115490
1578 | * ERROR MESSAGE. (SEE NOTES.) * N0115500
1579 | * * N0115510
1580 | *TABLES/WORK AREAS - * N0115520
1581 | * * DCOM A 320 WORD BUFFER USED FOR SYSTEM * N0115530
1582 | * DCOM I/O. * N0115540
1583 | * * DCOMX A 320 WORD BUFFER USED FOR SATELLITE* N0115550
1584 | * DCOM INPUT. (EQUIVALENT TO 'BUFFR') * N0115560
1585 | * * N0115570
1586 | *ATTRIBUTES - * N0115580
1587 | * * ABSOLUTE. * N0115590
1588 | * * REUSABLE. * N0115600
1589 | * * N0115610
1590 | *NOTES - * N0115620
1591 | * * THE ERROR MESSAGES PRINTED FROM SYSUP ARE- * N0115630
1592 | * * XXXX IS NOT AN AVAILABLE CARTRIDGE ID * N0115640
1593 | * * XXXX IS A DUPLICATED SPECIFIED * N0115650
1594 | * CARTRIDGE ID * N0115660
1595 | * * XXXX IS A DUPLICATED AVAILABLE * N0115670
1596 | * CARTRIDGE ID * N0115680
1597 | * * XXXX IS NOT A SYSTEM CARTRIDGE * N0115690
1598 | * * N0115700
1599 | *************************************************** N0115710
SYSUP - UPDATE SYSTEM DCOM
1601 | * N0115730
1602 | * UPDATE THE SYSTEM DCOM FROM ALL N0115740
1603 | * REQUESTED CARTRIDGES N0115750
1604 | * N0115760
09A0 0000 1605 | SYSUP DC *-* ENTRY/RETURN ADDRESS N0115770
1606 | * N0115780
1607 | * INITIALIZE N0115790
1608 | * N0115800
09A1 6500 00A4 1609 | LDX L1 $DCYL INITIALIZE ADDRESS AT WHICH N0115810
09A3 6D00 0C9D 1610 | STX L1 SU620 *TO STORE DEF CYL ADDRESSES N0115820
09A5 C900 1611 | LDD 1 0 SAVE 2-8 N0115830
09A6 DC00 0BFE 1612 | STD L SU944 *DEFECTIVE 2-8 N0115840
09A8 C102 1613 | LD 1 2 *CYLINDER 2-8 N0115850
09A9 D400 0C00 1614 | STO L SU944+2 *TABLE 2-8 N0115860
09AB 1810 1615 | SRA 16 SET SYSTEM N0115870
09AC D400 0A4B 1616 | STO L SU919 *CARTRIDGE SWITCH OFF AND N0115880
09AE D400 0A46 1617 | STO L SU915 *AVAIL CART INDICATOR ZERO N0115890
09B0 C400 009F 1618 | LD L $ACDE SAVE N0115900
09B2 1890 1619 | SRT 16 *AREA CODE N0115910
09B3 C400 002C 1620 | LD L $IREQ *AND ADDRESS OF N0115920
09B5 DC00 0BFA 1621 | STD L SU936 *INTERRUPT REQUEST SUBR N0115930
09B7 C400 0BF9 1622 | LD L SU935 POINT INTERRUPT REQUEST N0115940
09B9 D400 002C 1623 | STO L $IREQ *ADDRESS TO SYSUP SUBR N0115950
1624 | * N0115960
1625 | * FETCH ID LIST N0115970
1626 | * N0115980
09BB C480 09A0 1627 | LD I SYSUP FETCH ADDRESS OF ID LIST N0115990
09BD 8400 0A48 1628 | A L SU916 INCREMENT ADDRESS BY 5 N0116000
09BF D002 1629 | STO SU010+1 STORE AS FETCH ADDRESS N0116010
1630 | * N0116020
09C0 61FB 1631 | LDX 1 -5 ID LIST COUNT TO XR1 N0116030
09C1 C500 0000 1632 | SU010 LD L1 *-* FETCH AN ID FROM USERS PROG N0116040
09C3 D500 0A2D 1633 | STO L1 SU902+5 STORE ID TO ID LIST N0116050
09C5 7101 1634 | MDX 1 1 INCR ID COUNT, SKIP IF ZERO N0116060
09C6 70FA 1635 | MDX SU010 BRANCH TO FETCH NEXT ID N0116070
1636 | * N0116080
1637 | * FETCH DCOM FROM PREVIOUS SYSTEM CARTRIDGE N0116090
1638 | * N0116100
09C7 C060 1639 | SU030 LD SU902 FETCH 1ST ID OF ID LIST2-11 N0116110
09C8 4C20 09D1 1640 | BSC L SU040,Z BRANCH IF ID NON-BLANK N0116120
09CA 4400 077A 1641 | BSI L RDCOM BRANCH TO FETCH DCOM N0116130
09CC C400 0EA5 1642 | LD L #CIDN FETCH SYSTEM CARTRIDGE ID N0116140
09CE D059 1643 | STO SU902 STORE TO ID LIST N0116150
09CF D400 0A4B 1644 | STO L SU919 SET SYTEM CARTRIDGE SW ON N0116160
1645 | * N0116170
1646 | * CHECK FOR DUPLICATE CARTRIDGE IDS N0116180
1647 | * N0116190
09D1 10A0 1648 | SU040 SLT 32 CLEAR THE SWITCH N0116200
09D2 6200 1649 | LDX 2 0 ID LIST COUNT TO XR2 N0116210
09D3 C600 0A28 1650 | SU050 LD L2 SU902 FETCH A CARTRIDGE ID N0116220
09D5 4C18 09DC 1651 | BSC L SU070,+- BRANCH IF ID BLANK N0116230
09D7 4400 0C01 1652 | BSI L SU400 BR TO CK FOR A DUPLICATE ID N0116240
09D9 7201 1653 | MDX 2 1 INCREMENT ID COUNT N0116250
09DA 1000 1654 | NOP N0116260
09DB 70F7 1655 | MDX SU050 BRANCH TO CHECK NEXT ID N0116270
1656 | * N0116280
1657 | * FETCH CART LIST N0116290
1658 | * N0116300
09DC 61F5 1659 | SU070 LDX 1 -11 DRIVE COUNT TO XR1 2-11 N0116310
09DD 6200 1660 | LDX 2 0 DEF CYL ADDR COUNT TO XR2 N0116320
09DE C400 000A 1661 | LD L $LEV2 SAVE THE CONTENTS N0116330
09E0 D06E 1662 | STO SU923 *OP LOCATION 10 2-11 N0116340
1663 | * N0116350
09E1 C06C 1664 | SU080 LD SU922 RESET INTERRUPT 2-11 N0116360
09E2 D400 000A 1665 | STO L 10 *BRANCH ADDRESS N0116370
09E4 C500 0A5B 1666 | LD L1 SU924+11 FETCH AREA CODE 2-11 N0116380
09E6 D400 009F 1667 | STO L $ACDE STORE TO COMMA N0116390
09E8 E863 1668 | OR SU920 "OR" IN READ FUNCTION CODE N0116400
09E9 D057 1669 | STO SU910+1 STORE TO 2ND WORD OF IOCC N0116410
09EA E862 1670 | OR SU921 "OR"