ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 2020
Source File: \asysldr1.asm
P.T. INPUT SYSTEM LOADER - PHASE 1
2 | *************************************************** AP100020
3 | * * AP100030
4 | *STATUS - VERSION 2, MODIFICATION 9 * AP100040
5 | * * AP100050
6 | *FUNCTION/OPERATION- * AP100060
7 | * PHASE 1 WILL PERFORM THE FOLLWING DURING A * AP100070
8 | * SYSTEM LOAD- * AP100080
9 | * * READ AND PROCESS THE LOAD MODE RECORD. * AP100090
10 | * * READ THE RESIDENT MONITOR, DISKZ AND THE * AP100100
11 | * COLD START PROGRAM AND ROLL THE RESIDENT * AP100110
12 | * MONITOR AND DISKZ TO THEIR PROPER CORE * AP100120
13 | * LOCATIONS FOR USE. * AP100130
14 | * * CHECK THE CHECKSUM OF SLET AND THE RELOAD * AP100140
15 | * TABLE FOR VALIDITY AND PACK SLET IF PREVIOUS* AP100150
16 | * CHECKSUM IS ZERO ON A RELOAD FUNCTION. * AP100160
17 | * * WRITE THE COLD START PROGRAM AND RESIDENT * AP100170
18 | * IMAGE TO DISK. * AP100180
19 | * * READ PHASE 2 AND WRITE IT TEMPORARILY TO * AP100190
20 | * DISK. * AP100200
21 | * * READ AND CONDENSE THE SYSTEM CONFIGURATION * AP100210
22 | * RECORDS. * AP100220
23 | * * READ AND PROCESS THE PHID RECORD(S). * AP100230
24 | * * READ PHASE 2 INTO CORE AND BRANCH TO IT. * AP100240
25 | * * AP100250
26 | *ENTRY POINT- * AP100260
27 | * * ENTERED AT 'AA000' FROM THE CORE IMAGE * AP100270
28 | * LOADER. * AP100280
29 | * * AP100290
30 | *INPUT- * AP100300
31 | * * LOAD MODE TAPE, SYSTEM CONFIGURATION TAPE, * AP100310
32 | * AND PHID TAPE ARE IN PTTC/8. * AP100320
33 | * * ALL OTHER INPUT TAPES ARE BINARY, ASSEMBLED * AP100330
34 | * IN RELOCATABLE-ABSOLUTE FORMAT. * AP100340
35 | * * AP100350
36 | *OUTPUT- * AP100360
37 | * * PARTIAL CARTRIDGE LOAD. * AP100370
38 | * * AP100380
39 | *EXTERNAL REFERENCES- * AP100390
40 | * NONE * AP100400
41 | * * AP100410
42 | *EXIT- * AP100420
43 | * * EXITS FROM 'LDPH2' TO ENTER PHASE 2 AT * AP100430
44 | * 'BA000' AFTER THE PHID RECORD IS READ * AP100440
45 | * AND PROCESSED. * AP100450
46 | * * AP100460
47 | *TABLES/BUFFERS- * AP100470
48 | * * CONFG- TABLE INTO WHICH DATA FROM SYSTEM * AP100480
49 | * CONFIGURATION RECORDS IS ACCUMULATED * AP100490
50 | * * AA908- 1 WORD BUFFER FOR DELETE CHAR TEST. * AP100500
51 | * * AA904- 80 WORD INPUT BUFFER FOR PTTC/8 RCDS.* AP100510
52 | * * AA906- 108 WORD BUFFER FOR 108 FRAMES OF * AP100520
53 | * BINARY PAPER TAPE DATA, LEFT JUSTIFIED. * AP100530
54 | * * AA902- 60 WORD BUFFER INTO WHICH BINARY DATA* AP100540
55 | * FROM AA906 IS PACKED. * AP100550
56 | * * BUFFR- 320 (OR 640) WORD DISK I/O BUFFER. * AP100560
57 | * * AP100570
58 | *ATTRIBUTES- * AP100580
59 | * * N/A * AP100590
60 | * * AP100600
61 | *NOTES- * AP100610
62 | * * THIS PHASE MUST BE ASSEMBLED IN, OR CONVERT-* AP100620
63 | * ED TO, CORE IMAGE FORMAT FOR LOADING BY THE * AP100630
64 | * PAPER TAPE CORE IMAGE BOOTSTRAP LOADER. * AP100640
65 | * * THE SYSTEM LOAD IS PERFORMED ON DRIVE WHOSE * AP100650
66 | * PHYSICAL NUMBER IS SET IN BIT SWITCHES 12-15* AP100660
67 | * * AP100670
68 | *************************************************** AP100680
CARD INPUT SYSTEM LOADER - PHASE 1
70 | ABS AP100700
71 | * AP100710
72 | * COMMA EQUATES AP100720
73 | * AP100730
009F 74 | $ACDE EQU /9F TABLE OF AREA CODES AP100740
0006 75 | $CH12 EQU /06 CHANNEL 12 INDICATOR AP100750
005A 76 | $CILA EQU /5A ADDRESS OF END OF DISK SUBR AP100760
0007 77 | $COMN EQU /07 LENGTH OF COMMON (IN WORDS) AP100770
000E 78 | $CORE EQU /0E SIZE OF CORE AP100780
007E 79 | $CPTR EQU /7E CNSL PTR CHANNEL 12 INDICATOR AP100790
000F 80 | $CTSW EQU /0F CONTROL RECORD TRAP SWITCH AP100800
0005 81 | $CIBA EQU /05 SCTR ADDR OF CIB AP100810
009A 82 | $CYLN EQU /9A ARM POSITION AP100820
00EE 83 | $DBSY EQU /EE NON-ZERO WHEN DISKZ BUSY AP100830
0010 84 | $DADR EQU /10 BLK ADDR OF PROG TO BE LOADED AP100840
0077 85 | $DCDE EQU /77 DRIVE CODE OF PROG IN WRK STG AP100850
00A4 86 | $DCYL EQU /A4 TABLE OF DEFECTIVE CYLINDERS AP100860
0012 87 | $DREQ EQU /12 IND. FOR REQUESTED VERSION DKI/O AP100870
003F 88 | $DUMP EQU /3F CALL DUMP ENTRY POINT AP100880
0076 89 | $DZIN EQU /76 DISK SUBROUTINE IN CORE INDR AP100890
0038 90 | $EXIT EQU /38 CALL EXIT ENTRY POINT AP100900
0071 91 | $FLSH EQU /71 FLUSH JOB SWITCH AP100910
0095 92 | $FPAD EQU /95 TABLE OF FILE PROTECT ADDRESSES AP100920
0014 93 | $HASH EQU /14 WORK AREA AP100930
0013 94 | $IBSY EQU /13 NON-ZERO IF CD/PAP TP DEV. BUSY AP100940
00B9 95 | $IBT2 EQU /B9 LEVEL 2 INTRPT BRANCH TABLE ADDR AP100950
00D4 96 | $IBT4 EQU /D4 ADDR OF THE IBT, LEVEL 4 AP100960
0032 97 | $IOCT EQU /32 ZERO IF NO I/O IN PROGRESS AP100970
002C 98 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE AP100980
00B3 99 | $I200 EQU /B3 ILS02 ENTRY POINT AP100990
00B8 100 | $I205 EQU /B8 ILS02 INTERRUPT ENTRY POINT AP101000
00C4 101 | $I400 EQU /C4 ILS04 ENTRY POINT AP101010
00D0 102 | $I403 EQU /D0 AP101020
007C 103 | $KCSW EQU /7C 1 IF KB,CP BOTH UTILIZED AP101030
0033 104 | $LAST EQU /33 LAST CARD INDICATOR AP101040
0008 105 | $LEV0 EQU /08 LEVEL 0 BRANCH ADDRESS AP101050
0009 106 | $LEV1 EQU /09 LEVEL 1 BRANCH ADDRESS AP101060
000A 107 | $LEV2 EQU /0A LEVEL 2 BRANCH ADDRESS AP101070
000B 108 | $LEV3 EQU /0B LEVEL 3 BRANCH ADDRESS AP101080
000C 109 | $LEV4 EQU /0C LEVEL 4 BRANCH ADDRESS AP101090
000D 110 | $LEV5 EQU /0D LEVEL 5 BRANCH ADDRESS AP101100
0039 111 | $LINK EQU /39 CALL LINK ENTRY POINT AP101110
0034 112 | $NDUP EQU /34 DO NOT DUP IF NON-ZERO AP101120
0035 113 | $NXEQ EQU /35 DO NOT EXECUTE IF NON-ZERO AP101130
0036 114 | $PBSY EQU /36 NON-ZERO WHEN PRINTER BUSY AP101140
0037 115 | $PGCT EQU /37 PAGE NO. FOR HEADINGS AP101150
0078 116 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE AP101160
0028 117 | $PRET EQU /28 IOCS SOFT ERROR TRAP AP101170
0081 118 | $PST1 EQU /81 TRAP FOR I/O ERRORS, LEVEL 1 AP101180
0085 119 | $PST2 EQU /85 TRAP FOR I/O ERRORS, LEVEL 2 AP101190
0089 120 | $PST3 EQU /89 TRAP FOR I/O ERRORS, LEVEL 3 AP101200
008D 121 | $PST4 EQU /8D TRAP FOR I/O ERRORS, LEVEL 4 AP101210
00EF 122 | $SNLT EQU /EF SENSE LIGHT INDICATOR AP101220
0091 123 | $STOP EQU /91 PROGRAM STOP KEY TRAP AP101230
00E0 124 | $SYSC EQU /E0 MODIFICATION LEVEL AP101240
007D 125 | $UFDR EQU /7D DRIVE CODE OF UNFORMATTED I/O AP101250
0079 126 | $UFIO EQU /79 UNFORMATTED I/O RECORD NO. AP101260
002D 127 | $ULET EQU /2D TABLE OF LET ADDRESSES AP101270
007A 128 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE AP101280
007B 129 | $WRD1 EQU /7B ADDR OF 1ST WD OF CORE LOAD AP101290
01E0 130 | $ZEND EQU /1E0 END OF DISKZ AP101300
007F 131 | $1132 EQU /7F 1132 PRINTER CHANNEL 12 INDR AP101310
0080 132 | $1403 EQU /80 1403 PRINTER CHANNEL 12 INDR AP101320
133 | * AP101330
134 | * DCOM RELATIVE EQUATES AP101340
135 | * AP101350
0008 136 | #SYSC EQU 08 SYS/NON-SYS CARTRIDGE INDR AP101360
002D 137 | #FPAD EQU 45 FILE PROTECT ADDRESS AP101370
0037 138 | #CIDN EQU 55 CARTRIDGE ID AP101380
003C 139 | #CIBA EQU 60 SECTOR ADDRESS OF CIB AP101390
0041 140 | #SCRA EQU 65 SECTOR ADDRESS OF SCRA AP101400
004B 141 | #FLET EQU 75 FLET SECTOR ADDRESS AP101410
0050 142 | #ULET EQU 80 LET SECTOR ADDRESS AP101420
005A 143 | #CSHN EQU 90 SECTOR COUNT OF CUSHION AP101430
144 | * AP101440
145 | * ABSOLUTE EQUATES AP101450
146 | * AP101460
0000 147 | @IDAD EQU /0000 CART ID, COLD START SAD AP101470
0001 148 | @DCOM EQU /0001 DCOM SECTOR ADDRESS AP101480
0002 149 | @RIAD EQU /0002 RESIDENT IMAGE SECTOR ADDR AP101490
0003 150 | @SLET EQU /0003 FIRST SLET SECTOR ADDRESS AP101500
0006 151 | @RLTB EQU /0006 RELOAD TABLE SECTOR ADDRESS AP101510
0007 152 | @HDNG EQU /0007 PAGE HEADING SECTOR ADDRESS AP101520
0630 153 | @P2AD EQU /0630 SYS LDR - PHASE 2 SCTR ADDR AP101530
0658 154 | @MSCT EQU /0658 MAXIMUM SECTOR ADDRESS - 1 AP101540
0030 155 | @COLD EQU /0030 RLTV ADDR 1ST WD COLD START AP101550
00D0 156 | @CSTR EQU /00D0 AP101560
00F2 157 | DZ000 EQU /00F2 DISKZ ENTRY POINT AP101570
0000 158 | @WDCT EQU 0 RLTV ADDR WORD COUNT IN BFR AP101580
0001 159 | @SADR EQU 1 RLTV ADDR SCTR ADDR IN BFR AP101590
0003 160 | @NDCY EQU 3 MAX NO. OF DEF CYLINDERS AP101600
0005 161 | @MXDR EQU 5 MAX NO. OF DISK DRIVES AP101610
0003 162 | @CIDN EQU 3 RLTV ADDR OF CARTRIDGE ID AP101620
0007 163 | @STAT EQU 7 RLTV ADDR CART STATUS WORD AP101630
003C 164 | @PRWC EQU 60 PRINTER BUFFER LENGTH AP101640
0050 165 | @CCOL EQU 80 NUMBER OF COLUMNS PER CARD AP101650
0140 166 | @SCNT EQU 320 NUMBER OF WORDS PER SECTOR AP101660
1000 167 | @MNCR EQU 4096 MINIMUM ALLOWABLE CORE SIZE AP101670
168 | * AP101680
169 | * SYSTEM DEVICE SUBROUTINE PHASE IDS AP101690
170 | * AP101700
008C 171 | P1403 EQU 140 PHASE ID OF SYS 1403 SUBR AP101710
008D 172 | P1132 EQU 141 PHASE ID OF SYS 1132 SUBR AP101720
008E 173 | PCPAD EQU 142 PHASE ID OF SYS C. P. SUBR AP101730
008F 174 | I2501 EQU 143 PHASE ID OF SYS 2501 SUBR AP101740
0090 175 | I1442 EQU 144 PHASE ID OF SYS 1442 SUBR AP101750
0091 176 | @1134 EQU 145 PHASE ID OF SYS PAPT SUBR AP101760
0092 177 | IKBRD EQU 146 PHASE ID OF SYS KEYBRD SUBR AP101770
0093 178 | CDCNV EQU 147 PH ID OF SYS 2501/1442 CONV AP101780
0094 179 | C1134 EQU 148 PHASE ID OF SYS 1134 CONV AP101790
0095 180 | CKBRD EQU 149 PHASE ID OF SYS KEYBRD CONV AP101800
0096 181 | DISKZ EQU 150 PHASE ID OF DISKZ SUBR AP101810
0097 182 | DISK1 EQU 151 PHASE ID OF DISK1 SUBR AP101820
0098 183 | DISKN EQU 152 PHASE ID OF DISKN SUBR AP101830
0099 184 | PRINT EQU 153 PH ID OF PRINC PRINT SUBR AP101840
009A 185 | PINPT EQU 154 PH ID OF PRINC INPUT SUBR AP101850
009B 186 | PIDEV EQU 155 PRINC INPUT EXCLUDING KEYBD AP101860
009C 187 | CNVRT EQU 156 PRINC SYS CONVERSION SUBR AP101870
009D 188 | CVRT EQU 157 PRINC CONV EXCLUDING KEYBRD AP101880
189 | * AP101890
190 | * DEVICE CODES AP101900
191 | * AP101910
2000 192 | @I510 EQU /2000 AREA CODE FOR DISK DRIVE 0 AP101920
8800 193 | @I511 EQU /8800 AREA CODE FOR DISK DRIVE 1 AP101930
9000 194 | @I512 EQU /9000 AREA CODE FOR DISK DRIVE 2 AP101940
9800 195 | @I513 EQU /9800 AREA CODE FOR DISK DRIVE 3 AP101950
A000 196 | @I514 EQU /A000 AREA CODE FOR DISK DRIVE 4 AP101960
0900 197 | @I208 EQU /0900 CNSL PTR PRINT IOCC AP101970
0F01 198 | @I206 EQU /0F01 CNSL PTR SENSE DSW W/RESET AP101980
1000 199 | @D100 EQU /1000 1442 NOT READY DISPLAY CODE AP101990
1100 200 | @I102 EQU /1100 1442 PUNCH A COLUMN IOCC AP102000
1200 201 | @I103 EQU /1200 1442 READ A COLUMN IOCC AP102010
1401 202 | @I104 EQU /1401 1442 START PUNCH IOCC AP102020
1402 203 | @I105 EQU /1402 1442 FEED A CARD IOCC AP102030
1404 204 | @I106 EQU /1404 1442 START READER IOCC AP102040
1701 205 | @I108 EQU /1701 1442 SEN DSW W/RESET HI PRI AP102050
1702 206 | @I109 EQU /1702 1442 SEN DSW W/RESET LO PRI AP102060
2000 207 | @D200 EQU /2000 CNSL PTR NOT READY DISPLAY AP102070
3A00 208 | @I000 EQU /3A00 READ DATA SWITCHES IOCC AP102080
4E00 209 | @I402 EQU /4E00 2501 INITIATE READ IOCC AP102090
4F01 210 | @I404 EQU /4F01 2501 SENSE DSW WITH RESET AP102100
FETCH AND BRANCH TO PHASE 2
01E0 212 | ORG $ZEND BEGIN AT END OF DISKZ AP102120
213 | * AP102130
214 | * AP102140
01E0 C80B 215 | LDPH2 LDD LD900 FETCH AND STORE AP102150
01E1 DC00 0376 216 | STD L PHAS2 *WORD COUNT AND SCTR ADDR AP102160
01E3 C80A 217 | LDD LD902 FETCH FUNC CODE, I/O ADDR AP102170
01E4 4400 00F2 218 | BSI L DZ000 BRANCH TO DISK READ AP102180
01E6 7400 00EE 219 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE AP102190
01E8 70FD 220 | MDX *-3 BR TO TEST READ COMPLETE AP102200
01E9 4C00 0378 221 | BSC L PHAS2+2 BRANCH TO PHASE 2 AP102210
222 | * AP102220
223 | * CONSTANTS AND WORK AREAS AP102230
224 | * AP102240
01EC 225 | BSS E 0 AP102250
01EC 0C88 226 | LD900 DC @MNCR-PHAS2-2 WORD COUNT OF PHASE 2 AP102260
01ED 0630 227 | DC @P2AD SCTR ADDR OF PHASE 2 AP102270
01EE 0000 228 | LD902 DC /0000 READ FUNCTION CODE AP102280
01EF 0376 229 | DC PHAS2 PHASE 2 I/O AREA AP102290
SYSTEM LOADER COMMUNICATIONS AREA
01F0 0000 231 | CILWC DC *-* CORE IMAGE LOADER WORD CNT AP102310
01F1 0000 232 | DC *-* CORE IMAGE LOADER SCTR ADDR AP102320
01F2 0658 233 | DCYL1 DC /0658 SCTR ADDR OF 1ST DEF CYLIN AP102330
01F3 0658 234 | DCYL2 DC /0658 SCTR ADDR OF 2ND DEF CYLIN AP102340
01F4 0658 235 | DCYL3 DC /0658 SCTR ADDR OF 3RD DEF CYLIN AP102350
01F5 0000 236 | LMODE DC *-* LOAD MODE IMAGE AP102360
01F6 0000 237 | CAREA DC *-* NO. SECTORS OF CUSHION AREA AP102370
01F7 0000 238 | T1442 DC *-* SET 1 IF 1442-6 OR 7 AVAIL AP102380
01F8 0000 239 | DINDR DC *-* ISS DEVICE INDICATOR AP102390
01F9 0000 240 | VERSN DC *-* VERSION AND MODIFICATION NO AP102400
01FA 0000 241 | CIBFR DC *-* SCTR ADDR OF CORE IMAGE BFR AP102410
01FB 0000 242 | SCORE DC *-* CORE SIZE AP102420
01FC 0000 243 | MAXPH DC *-* MAXIMUM PHASE ID AP102430
01FD 0000 244 | ASCRA DC *-* SECTOR ADDRESS OF SCRA AP102440
01FE 0000 245 | CARID DC *-* ID OF CARTRIDGE AP102450
01FF 0000 246 | FLETI DC *-* FIXED AREA INDICATOR AP102460
0200 0000 247 | FPADR DC *-* FILE PROTECT ADDRESS AP102470
0201 0000 248 | SSBFR DC *-* NO. OF SCTRS FOR SLET BFR AP102480
0202 0000 249 | LET00 DC *-* PRE-LOAD LET SECTOR ADDRESS AP102490
0203 0000 250 | SHIFT DC *-* NO. OF SCTRS TO SHIFT AP102500
251 | * AP102510
0204 252 | BSS 2 COMMUNICATIONS PATCH AREA AP102520
253 | * AP102530
0206 254 | BSS E 0 FORCE EVEN ADDRESS AP102540
0206 0000 255 | PTRID DC *-* PH ID OF PRINC PRINT SUBR AP102550
0207 0000 256 | CHN12 DC *-* ADDRESS OF CHANNEL 12 INDR AP102560
0208 0000 257 | RDRID DC *-* PH ID OF PRINC I/O SUBR AP102570
0209 0000 258 | CNVID DC *-* PH ID OF PRINC CONV SUBR AP102580
020A 0000 259 | PRNRD DC *-* PRINCIPLE I/O DEVICE INDR AP102590
020B 0000 260 | PRNPR DC *-* PRINCIPLE PRINT DEVICE INDR AP102600
261 | * AP102610
020C 262 | BSS E 0 FORCE NEXT LOC TO BE EVEN AP102620
020C 0000 263 | PAIR1 DC *-* LOWER PHASE ID RANGE E AP102630
020D 0000 264 | DC *-* UPPER PHASE ID RANGE O AP102640
020E 0000 265 | PAIR2 DC *-* LOWER PHASE ID RANGE E AP102650
020F 0000 266 | DC *-* UPPER PHASE ID RANGE O AP102660
0210 0000 267 | PAIR3 DC *-* LOWER PHASE ID RANGE E AP102670
0211 0000 268 | DC *-* UPPER PHASE ID RANGE O AP102680
0212 0000 269 | PAIR4 DC *-* LOWER PHASE ID RANGE E AP102690
0213 0000 270 | DC *-* UPPER PHASE ID RANGE O AP102700
0214 0000 271 | PAIR5 DC *-* LOWER PHASE ID RANGE E AP102710
0215 0000 272 | DC *-* UPPER PHASE ID RANGE O AP102720
0216 0000 273 | PAIR6 DC *-* LOWER PHASE ID RANGE E AP102730
0217 0000 274 | DC *-* UPPER PHASE ID RANGE O AP102740
0218 0000 275 | PAIR7 DC *-* LOWER PHASE ID RANGE E AP102750
0219 0000 276 | DC *-* UPPER PHASE ID RANGE O AP102760
021A 0000 277 | PAIR8 DC *-* LOWER PHASE ID RANGE E AP102770
021B 0000 278 | DC *-* UPPER PHASE ID RANGE O AP102780
021C 0000 279 | PAIR9 DC *-* LOWER PHASE ID RANGE E AP102790
021D 0000 280 | DC *-* UPPER PHASE ID RANGE O AP102800
021E 0000 281 | PAIRA DC *-* LOWER PHASE ID RANGE E AP102810
021F 0000 282 | DC *-* UPPER PHASE ID RANGE O AP102820
0220 0000 283 | PAIRB DC *-* LOWER PHASE ID RANGE E AP102830
0221 0000 284 | DC *-* UPPER PHASE ID RANGE O AP102840
0222 0000 285 | PAIRC DC *-* LOWER PHASE ID RANGE E AP102850
0223 0000 286 | DC *-* UPPER PHASE ID RANGE O AP102860
0224 0000 287 | PAIRD DC *-* LOWER PHASE ID RANGE E AP102870
0225 0000 288 | DC *-* UPPER PHASE ID RANGE O AP102880
0226 0000 289 | PAIRE DC *-* LOWER PHASE ID RANGE E AP102890
0227 0000 290 | DC *-* UPPER PHASE ID RANGE O AP102900
0228 0000 291 | PAIRF DC 0 ZERO INDIC END OF PAIRS E AP102910
0229 0000 292 | LPHID DC *-* LAST PH ID FOR INITIAL LOAD AP102920
293 | * AP102930
022A 294 | BSS E 0 FORCE NEXT LOC TO BE EVEN AP102940
022A 0333 295 | LOLIM DC /0333 LOWER PHASE ID BYPASS LIMIT AP102950
022B 0999 296 | UPLIM DC /0999 UPPER PHASE ID BYPASS LIMIT AP102960
022C 0000 297 | DC *-* AP102970
022D 0000 298 | DC *-* AP102980
022E 0000 299 | DC *-* AP102990
022F 0000 300 | DC *-* AP103000
0230 0000 301 | DC *-* AP103010
0231 0000 302 | DC *-* AP103020
0232 0000 303 | DC *-* AP103030
0233 0000 304 | DC *-* AP103040
0234 0000 305 | DC *-* AP103050
306 | * AP103060
307 | * ERROR MESSAGES AP103070
308 | * AP103080
0235 000B 309 | MSG01 DC MSG02-* WORD COUNT OF MESSAGE E 01 AP103090
0236 8134 21C4 FC21 1C24 310 | DMES 'RE 01 CHECKSUM ERROR'R'E AP103100
341C 5898 B070 2134 |
6060 5060 8121 |
311 | * AP103110
0241 000F 312 | MSG02 DC MSG03-* WORD COUNT OF MESSAGE E 02 AP103120
0242 8134 21C4 D821 2074 313 | DMES 'RE 02 INVALID RECORD OR BLANK'R'E AP103130
B43C 5C20 3021 6034 |
1C50 6030 2150 6021 |
185C 3C74 5881 |
314 | * AP103140
0251 0012 315 | MSG03 DC MSG04-* WORD COUNT OF MESSAGE E 03 AP103150
0252 8134 21C4 DC21 9834 316 | DMES 'RE 03 SEQ ERROR OR MISSING RECORDS'R AP103160
6421 3460 6050 6021 |
5060 2170 2098 9820 |
7414 2160 341C 5060 |
3098 8121 |
317 | * AP103170
0264 000A 318 | MSG04 DC MSG05-* WORD COUNT OF MESSAGE E 04 AP103180
0265 8134 21C4 F021 5060 319 | DMES 'RE 04 ORG BACKWARD'R'E AP103190
1421 183C 1C58 903C |
6030 8121 |
320 | * AP103200
026F 0010 321 | MSG05 DC INTPT-* WORD COUNT OF MESSAGE E 05 AP103210
0270 8134 21C4 F421 2074 322 | DMES 'RE 05 INITIALIZE THE CARTRIDGE'R'E AP103220
209C 203C 5C20 A034 |
219C 2434 211C 3C60 |
9C60 2030 1434 8121 |
323 | * AP103230
324 | * INHIBIT INTERRUPT REQUEST AP103240
325 | * AP103250
0280 0000 326 | INTPT DC 0 ENTRY AP103260
0281 0802 327 | XIO IN901-1 SENSE INTRPT DSW WITH RESET AP103270
0282 4C00 00D5 328 | BSC L $I403+5 BRANCH TO ILS04 SUBROUTINE AP103280
329 | * AP103290
330 | * CONSTANTS AND WORK AREAS AP103300
331 | * AP103310
0284 332 | BSS E 1 FORCE NEXT LOC TO BE ODD AP103320
0285 0F01 333 | IN901 DC /0F01 SEN INTRPT DSW W/RESET IOCC AP103330
0286 0000 334 | DC 0 AVAILABLE AP103340
CONSOLE PRINTER SUBROUTINE - WRTYZ
336 | * AP103360
337 | * PROGRAM ENTRY AP103370
338 | * AP103380
0287 0000 339 | WRTYZ DC 0 ENTRY/RETURN ADDRESS AP103390
0288 7005 340 | MDX TZ200 BRANCH TO START AP103400
341 | * AP103410
342 | * INTERRUPT ENTRY - ILS04 BRANCHES TO 'TZ100' AP103420
343 | * WHEN AN INTERRUPT OCCURS. THIS SECTION AP103430
344 | * PROCESSES INTERRUPTS AND RETURNS TO THE POINT AP103440
345 | * FROM WHICH THE INTERRUPT OCCURED THROUGH AP103450
346 | * THE ILS04 SUBROUTINE AP103460
347 | * AP103470
0289 0000 348 | TZ100 DC 0 INTERRUPT ENTRY AP103480
028A 0823 349 | XIO TZ900 SENSE DSW WITH RESET AP103490
028B 6828 350 | STX TZ906 SET FLAG TO INDICATE INTRPT AP103500
028C 4C80 0289 351 | BSC I TZ100 RETURN TO ILS04 AP103510
352 | * AP103520
353 | * 'WRTYZ' MAINLINE SECTION AP103530
354 | * INITIALIZE SUBROUTINE AP103540
355 | * AP103550
028E 6A26 356 | TZ200 STX 2 TZ907 SAVE I/O BUFFER WORD COUNT AP103560
028F 1810 357 | SRA 16 SET INDICATOR TO PRINT AP103570
0290 D022 358 | STO TZ905 *FROM LEFT HALF OF WORD AP103580
0291 4025 359 | BSI TZ400 BR TO TEST IF DEVICE READY AP103590
360 | * AP103600
361 | * MAIN LOOP AP103610
362 | * DETERMINE WHICH HALF OF WORD FROM WHICH TO AP103620
363 | * FETCH CHARACTER, SAVE CHARACTER TO BE AP103630
364 | * PRINTED AND UPDATE LEFT-RIGHT INDICATOR AP103640
365 | * AP103650
0292 C020 366 | TZ300 LD TZ905 FETCH LEFT-RIGHT INDICATOR AP103660
0293 4C20 0298 367 | BSC L TZ310,Z BRANCH TO FETCH RIGHT HALF AP103670
0295 681D 368 | STX TZ905 SET INDR FOR RIGHT HALF AP103680
0296 C100 369 | LD 1 0 FETCH A WORD FROM I/O BFR AP103690
0297 7004 370 | MDX TZ320 AP103700
0298 1810 371 | TZ310 SRA 16 SET INDICATOR AP103710
0299 D019 372 | STO TZ905 *FOR LEFT HALF NEXT AP103720
029A C100 373 | LD 1 0 FETCH A WORD FROM I/O BFR AP103730
029B 1088 374 | SLT 8 SHIFT TO LEFT HALF AP103740
029C E015 375 | TZ320 AND TZ904 MASK OUT RIGHT HALF OF WORD AP103750
376 | * AP103760
377 | * PRINT THE CHARACTER AP103770
378 | * AP103780
029D D018 379 | STO TZ908 STORE IN OUTPUT BUFFER WORD AP103790
029E 0811 380 | XIO TZ902 PRINT CHARACTER AP103800
381 | * AP103810
382 | * WAIT FOR INTERRUPT TO OCCUR AP103820
383 | * AP103830
029F C014 384 | TZ340 LD TZ906 FETCH INTERRUPT INDICATOR AP103840
02A0 4C18 029F 385 | BSC L TZ340,+- BRANCH IF INDR = 0 AP103850
02A2 1010 386 | SLA 16 CLEAR INDICATOR FOR AP103860
02A3 D010 387 | STO TZ906 *NEXT INTERRUPT AP103870
388 | * AP103880
389 | * TEST FOR FORMS CHECK AP103890
390 | * AP103900
02A4 4012 391 | BSI TZ400 BR TO TEST IF DEVICE READY AP103910
02A5 7400 02B3 392 | MDX L TZ905,0 SKIP IF LEFT HALF NEXT AP103920
02A7 70EA 393 | MDX TZ300 BRANCH TO FETCH NEXT CHAR AP103930
02A8 7101 394 | MDX 1 1 INCREMENT I/O BUFFER ADDR AP103940
02A9 72FF 395 | MDX 2 -1 DECR WORD CNT, SKIP IF ZERO AP103950
02AA 70E7 396 | MDX TZ300 BRANCH TO FETCH NEXT CHAR AP103960
02AB 4C80 0287 397 | BSC I WRTYZ RETURN AP103970
398 | * AP103980
399 | * CONSTANTS AND WORK AREAS AP103990
400 | * AP104000
02AE 401 | BSS E 0 FORCE NEXT LOC TO BE EVEN AP104010
02AE 2000 402 | TZ900 DC @D200 ERROR INDICATOR AP104020
02AF 0F01 403 | DC @I206 SENSE DSW WITH RESET IOCC AP104030
02B0 02B6 404 | TZ902 DC TZ908 ADDRESS OF CHARACTER BUFFER AP104040
02B1 0900 405 | DC @I208 PRINT IOCC AP104050
02B2 FF00 406 | TZ904 DC /FF00 MASK OUT RIGHT HALF OF WORD AP104060
02B3 0000 407 | TZ905 DC *-* LEFT-RIGHT CHARACTER INDR AP104070
02B4 0000 408 | TZ906 DC *-* INTERRUPT WAIT INDICATOR AP104080
02B5 0000 409 | TZ907 DC *-* I/O BUFFER WORD COUNT AP104090
02B6 0000 410 | TZ908 DC *-* CHARACTER PRINT BUFFER AP104100
02AE 411 | TZ909 EQU TZ900 ADDRESS OF ERROR INDICATOR AP104110
412 | * AP104120
413 | * CHECK FOR CONSOLE PRINTER READY AP104130
414 | * IF CONSOLE PRINTER AP104140
415 | * NOT READY AP104150
416 | * FETCH ERROR CODE TO ACCUMULATOR AND AP104160
417 | * BRANCH TO SYSTEM PRE OPERATIVE ERROR TRAP AP104170
418 | * AP104180
02B7 0000 419 | TZ400 DC 0 ENTRY POINT AP104190
02B8 08F5 420 | XIO TZ900 SENSE DSW WITH RESET AP104200
02B9 1005 421 | SLA 5 SHIFT DEV BUSY BIT TO SIGN AP104210
02BA 4C90 02B7 422 | BSC I TZ400,- RETURN IF NOT BUSY AP104220
02BC C0F1 423 | LD TZ909 FETCH ERROR INDICATOR AP104230
02BD 4400 0028 424 | BSI L $PRET BR TO PRE-OP ERROR TRAP AP104240
02BF 70F8 425 | MDX TZ400+1 BRANCH TO TEST BUSY AGAIN AP104250
SYSTEM 1134/1055 SUBROUTINE
427 | *************************************************** AP104270
428 | * * AP104280
429 | *STATUS- VERSION 2, MODIFICATION LEVEL 2 * AP104290
430 | * * AP104300
431 | *FUNCTION/OPERATION- * AP104310
432 | * *READ WITHOUT CONVERSION (EBCDIC) * AP104320
433 | * *READ WITH CONVERSION (PTTC/8) * AP104330
434 | * *PUNCH (EBCDIC) * AP104340
435 | * * AP104350
436 | *ENTRY POINTS- * AP104360
437 | * *PI000+1 IS THE USER ENTRY. * AP104370
438 | * *PT010+1 IS THE INTERRUPT ENTRY. * AP104380
439 | * * AP104390
440 | *INPUT- * AP104400
441 | * *READ WITHOUT CONVERSION * AP104410
442 | * ACC = 7000 * AP104420
443 | * EXT = ADDRESS OF I/O AREA * AP104430
444 | * *READ WITH CONVERSION * AP104440
445 | * ACC = 7002 * AP104450
446 | * EXT = ADDRESS OF I/O AREA * AP104460
447 | * *PUNCH * AP104470
448 | * ACC = 7001 * AP104480
449 | * EXT = ADDRESS OF I/O AREA * AP104490
450 | * **THE I/O AREA CONSISTS OF ONE WORD OF WORD * AP104500
451 | * COUNT FOLLOW BY THAT NUMBER OF WORDS OF * AP104510
452 | * PACKED EBCDIC. * AP104520
453 | * * AP104530
454 | *OUTPUT- * AP104540
455 | * *I/O AREA IN UNPACKED EBCDIC. * AP104550
456 | * *PUNCHED EBCDIC TAPE. * AP104560
457 | * * AP104570
458 | *EXTERNAL REFERENCES- * AP104580
459 | * $CTSW * AP104590
460 | * $IBSY * AP104600
461 | * $IOCT 2-2 * AP104610
462 | * $PRET * AP104620
463 | * $PST4 * AP104630
464 | * * AP104640
465 | *EXITS- NORMAL * AP104650
466 | * *SUBROUTINE RETURNS TO USER AFTER FUNCTION * AP104660
467 | * HAS BEEN INITIATED. * AP104670
468 | * *SUBROUTINE RETURNS TO INTERRUPT LEVEL * AP104680
469 | * SUBROUTINE AFTER A INTERRUPT HAS BEEN * AP104690
470 | * SERVICED. * AP104700
471 | * * AP104710
472 | *EXITS- ERROR * AP104720
473 | * *$PRET WITH 3000 IN THE ACCUMULATOR WHEN * AP104730
474 | * DEVICE NOT READY. * AP104740
475 | * * AP104750
476 | *TABLES/WORK AREAS- * AP104760
477 | * PT780 IS A 119 WORD TABLE OF PTTC/8 TO * AP104770
478 | * EBCDIC CONVERSION WITH PTTC/8 IN BITS 0-7 * AP104780
479 | * AND EBCDIC IN BITS 8-16. * AP104790
480 | * * AP104800
481 | *ATTRIBUTES- * AP104810
482 | * *NATURALLY RELOCATABLE. * AP104820
483 | * *REUSABLE. * AP104830
484 | *************************************************** AP104840
SYSTEM 1134/1055 SUBROUTINE
02C0 0172 486 | DC PT790-*-1 WORD CNT OF SYS 1134 SUBR AP104860
02C1 0091 487 | DC @1134 PHASE ID OF SYS 1134 SUBR AP104870
02C2 4C00 0000 488 | PT000 BSC L *-* ENTRY FROM MAIN (+2) AP104880
02C3 489 | ORG *-1 AP104890
02C3 03B8 490 | DC PT780 ADDR OF CONV TBL FOR ASM AP104900
02C4 7008 491 | MDX PT040 GO TO SERVICE AP104910
02C5 4C00 0000 492 | PT010 BSC L *-* ENTRY FROM INTRPT (+5) AP104920
02C7 C003 493 | LD PT020 INITLZ SYST TRAP ADDR AP104930
02C8 D04B 494 | STO PT160+1 TO 'TEST DEV RDY' SUBR AP104940
02C9 704C 495 | MDX PT170 GO TO SERVICE INTRPT AP104950
496 | * * AP104960
02CA 0001 497 | PT015 DC 1 CHANGED BY THE ASM AP104970
02CB 008D 498 | PT020 DC $PST4 ADDR OF INTRPT TRAP ADDR AP104980
02CC 0028 499 | PT030 DC $PRET ADDR OF CALL TRAP ADDR AP104990
500 | * * AP105000
02CD D015 501 | PT040 STO PT060 SET UP FOR FUNCTION BRANCH AP105010
02CE C400 0013 502 | LD L $IBSY TEST SUBR BUSY INDR. AP105020
02D0 4820 503 | BSC Z AP105030
02D1 70FC 504 | MDX *-4 LOOP UNTIL NOT BUSY AP105040
505 | * * AP105050
02D2 D075 506 | STO PT310 INITLZ THE CASE SWITCH AP105060
02D3 D073 507 | STO PT300 AND FILL-MODE SWITCH AP105070
508 | * TO ZERO * AP105080
02D4 C0F7 509 | LD PT030 CALL SYSTEM TRAP ADDR AP105090
02D5 D03E 510 | STO PT160+1 TO 'TEST DEV RDY' SUBR AP105100
02D6 18D0 511 | RTE 16 AP105110
02D7 D003 512 | STO *+3 FETCH THE WORD COUNT AP105120
02D8 80F1 513 | A PT015 AND I/O AREA ADDR AP105130
02D9 D071 514 | STO PT340 AND ASSIGN THEM AP105140
02DA C400 0000 515 | LD L *-* TO IN-LINE STORAGE AP105150
02DC D070 516 | STO PT360 AP105160
02DD 6842 517 | STX 0 PT200+1 AP105170
02DE C041 518 | PT050 LD PT200+1 COMPUTE RELATIVE ADDR AP105180
02DF 8069 519 | A PT320 OF I/O AREA POINTER. AP105190
02E0 D03F 520 | STO PT200+1 INITLZ IN-LINE AP105200
02E1 D020 521 | STO PT130+1 CODING AP105210
02E2 D05F 522 | STO PT270+1 AP105220
523 | * * AP105230
02E3 0000 524 | PT060 DC 0 FUNCTION BR (MDX *+ ) AP105240
02E4 7002 525 | MDX PT080 *TO HERE FOR READ EBC AP105250
02E5 7003 526 | MDX PT090 *TO HERE FOR PUNCH,AND AP105260
02E6 D068 527 | PT070 STO PT380 *TO HERE FOR READ PTTC/8 AP105270
02E7 C064 528 | PT080 LD PT350 SET READ INDR AP105280
02E8 7001 529 | MDX PT090+1 AP105290
530 | * * AP105300
02E9 C060 531 | PT090 LD PT330 AP105310
02EA D063 532 | STO PT370 AP105320
02EB D400 0013 533 | STO L $IBSY TURN ON SUBR BUSY INDR AP105330
02ED 4019 534 | BSI PT140 GO TO SENSE DEVICE RDY AP105340
02EE 7401 0032 535 | MDX L $IOCT,1 INCREMENT IOCS CNTR 2-2 AP105350
536 | * * AP105360
02F0 C05D 537 | PT100 LD PT370 SET UP IOCC WORD AP105370
02F1 1008 538 | SLA 8 FOR READ/PUNCH AP105380
02F2 E85D 539 | OR PT390 AP105390
02F3 D065 540 | STO PT460+1 AP105400
541 | * * AP105410
02F4 6863 542 | STX 0 PT460 COMPUTE THE BUFFER AP105420
02F5 C062 543 | PT110 LD PT460 ADDRESS FOR THE AP105430
02F6 805A 544 | A PT400 IOCC INST AP105440
02F7 D060 545 | STO PT460 AP105450
546 | * * AP105460
02F8 C055 547 | LD PT370 DETERMINE WHAT SERVICE AP105470
02F9 4804 548 | BSC E REQUESTED AP105480
02FA 7006 549 | MDX PT130 GO TO PUNCH AP105490
550 | * * AP105500
02FB 085A 551 | XIO PT450 EXEC A READER START AP105510
552 | * * AP105520
02FC C060 553 | LD PT510 SET TO COUNT FIRST 3 CHAR AP105530
02FD D05E 554 | STO PT500 AS THEY ARE READ IN AP105540
555 | * * AP105550
02FE C05F 556 | LD PT520 INITLZ SLASH CTR AP105560
02FF D060 557 | STO PT540 TO 3 AP105570
558 | * * AP105580
0300 70C1 559 | PT120 MDX PT000 EXIT AP105590
560 | * * AP105600
0301 C480 0000 561 | PT130 LD I *-* AP105610
0303 D057 562 | STO PT480 AP105620
563 | * * AP105630
0304 0853 564 | XIO PT460 PUNCH FIRST WORD AP105640
0305 70FA 565 | MDX PT120 RETURN TO MAIN AP105650
566 | * * AP105660
0306 4C00 567 | DC /4C00 BRANCH BACK TO CALLER AP105670
0307 0000 568 | PT140 DC *-* ENT HERE TO TEST DEVICE AP105680
0308 C045 569 | LD PT370 DETM DEVICE REQUESTED AP105690
0309 4804 570 | BSC E AP105700
030A 7001 571 | MDX *+1 SKIP TO SENSE PUNCH AP105710
030B 7002 572 | MDX PT150-1 GO TO SENSE READER AP105720
573 | * * AP105730
030C C045 574 | LD PT410 MODIFY SHIFT INSTR TO AP105740
030D D001 575 | STO PT150 SENSE FOR PUNCH AP105750
576 | * * AP105760
030E 0845 577 | XIO PT430 SENSE AND RESET AP105770
030F 1005 578 | PT150 SLA 5 TEST FOR I/O AP105780
0310 4810 579 | BSC - DEVICE READY AP105790
580 | * * AP105800
0311 70F4 581 | MDX PT140-1 GO TO RETURN FROM TEST AP105810
582 | * * AP105820
0312 C041 583 | LD PT420 ERROR CD TO ACC AND AP105830
0313 4400 0000 584 | PT160 BSI L *-* GO TO WAIT IF NOT RDY AP105840
0315 70F8 585 | MDX PT150-1 TRY AGAIN AP105850
586 | *************************************************** AP105860
587 | * * AP105870
588 | * THIS BLOCK OF CODING SERVICES * AP105880
589 | * AN INTERRUPT FOR READ/PUNCH * AP105890
590 | * * AP105900
591 | *************************************************** AP105910
0316 083D 592 | PT170 XIO PT430 SENSE AND RESET AP105920
0317 1001 593 | SLA 1 AP105930
0318 4810 594 | BSC - DETM SERVICE REQUEST AP105940
0319 701F 595 | MDX PT260 PUNCH REQUEST AP105950
031A 083D 596 | PT180 XIO PT460 READ A WORD AP105960
597 | * * AP105970
031B C033 598 | PT190 LD PT380 AP105980
031C 4820 599 | BSC Z BRANCH IF NO CONV REQUEST AP105990
031D 7063 600 | MDX PT670 OTHERWISE, GO TO CONVERT AP106000
031E C03C 601 | LD PT480 AP106010
031F D480 0000 602 | PT200 STO I *-* STORE THE WORD AP106020
0321 C029 603 | LD PT340 INCR THE I/O AREA POINTER AP106030
0322 8027 604 | A PT330 AP106040
0323 D027 605 | STO PT340 AP106050
0324 C028 606 | LD PT360 DECR THE WORD COUNT AP106060
0325 9024 607 | S PT330 AP106070
0326 D026 608 | STO PT360 AP106080
0327 4830 609 | BSC -Z AP106090
0328 7008 610 | MDX PT230 CHECK FILL-MODE SWITCH AP106100
611 | * * AP106110
0329 1010 612 | PT210 SLA 16 AP106120
032A D024 613 | STO PT380 AP106130
032B D400 0013 614 | STO L $IBSY TURN OFF SUBR BUSY INDR AP106140
032D 74FF 0032 615 | MDX L $IOCT,-1 DECREMENT IOCS CNTR 2-2 AP106150
032F 1000 616 | NOP IN CASE OF SKIP 2-2 AP106160
0330 7094 617 | PT220 MDX PT010 EXIT AP106170
618 | * * AP106180
0331 C015 619 | PT230 LD PT300 AP106190
0332 4818 620 | BSC +- TEST FILL-MODE SWITCH AP106200
0333 7002 621 | MDX *+2 BRANCH IF OFF AP106210
0334 C04A 622 | LD PT640 OTHERWISE, FILL OUT AP106220
0335 70E9 623 | PT240 MDX PT200 RECORD WITH BLANKS AP106230
624 | * * AP106240
0336 40D0 625 | PT250 BSI PT140 GO TO TEST DEVC RDY AP106250
0337 081E 626 | XIO PT450 START THE READER AP106260
0338 70F7 627 | MDX PT220 GO TO RETURN FROM INTRPT AP106270
628 | * * AP106280
629 | * * AP106290
0339 C013 630 | PT260 LD PT360 DECR THE WORD COUNT AP106300
033A 900F 631 | S PT330 AP106310
033B D011 632 | STO PT360 AP106320
033C 4808 633 | BSC + AP106330
033D 70EB 634 | MDX PT210 GO TO EXIT AP106340
033E C00C 635 | LD PT340 INCR THE I/O AREA POINTER AP106350
033F 800A 636 | A PT330 AP106360
0340 D00A 637 | STO PT340 AP106370
638 | * * AP106380
0341 C480 0000 639 | PT270 LD I *-* FETCH WORD INTO BUFFER AP106390
0343 D017 640 | STO PT480 AP106400
0344 40C2 641 | PT280 BSI PT140 GO TO SENSE DEVICE RDY AP106410
642 | * * AP106420
0345 0812 643 | PT290 XIO PT460 PUNCH A WORD AP106430
0346 70E9 644 | MDX PT220 GO TO EXIT AP106440
645 | * * AP106450
0347 0000 646 | PT300 DC 0 FILL-MODE SWITCH AP106460
0348 0000 647 | PT310 DC 0 PTTC/8 CASE IND AP106470
648 | *************************************************** AP106480
649 | * * AP106490
650 | * FOLLOWING IS A TABLE OF * AP106500
651 | * CONSTANTS AND STORAGE LOCATIONS * AP106510
652 | * * AP106520
653 | *************************************************** AP106530
0349 006D 654 | PT320 DC PT340-PT050 ADDR DISPLACEMENT AP106540
034A 0001 655 | PT330 DC /0001 PUNCH FUNC INDR AP106550
034B 0000 656 | PT340 DC 0 STORAGE FOR I/O ADDRESS AP106560
034C 0002 657 | PT350 DC /0002 RD FUNC INDR AP106570
034D 0000 658 | PT360 DC 0 STORAGE FOR WD CNT AP106580
034E 0000 659 | PT370 DC 0 RD/PNCH IND SWTCH AP106590
034F 0000 660 | PT380 DC 0 CONVERSION SWITCH AP106600
0350 1800 661 | PT390 DC /1800 PAPER TAPE AREA CODE AP106610
0351 0066 662 | PT400 DC PT480-PT110 ADDR DISPLACEMENT AP106620
0352 1007 663 | PT410 DC /1007 SHFT INSTR FOR PNCH SENSE AP106630
0354 664 | BSS E 0 AP106640
0354 3000 665 | PT420 DC /3000 DEVICE NOT RDY ERROR CODE AP106650
0354 666 | PT430 EQU PT420 AP106660
0355 1F01 667 | DC /1F01 SENSE AND RESET AP106670
0356 1000 668 | PT490 DC /1000 PTTC/8 CODE FOR SPACE AP106680
0356 669 | PT450 EQU PT490 AP106690
0357 1C10 670 | DC /1C10 THE READER AP106700
0358 0000 671 | PT460 DC *-* I/O CONTROL COMMAND AP106710
0359 0000 672 | DC 0 PUNCH OR READ AP106720
035A 3100 673 | PT470 DC /3100 PTTC/8 CODE FOR SLASH AP106730
035B 0000 674 | PT480 DC *-* STORAGE FOR I/O DATA AP106740
035C 0000 675 | PT500 DC 0 INITIAL INPUT CNTR AP106750
035D 0004 676 | PT510 DC 4 CONSTANT FOUR AP106760
035E 0003 677 | PT520 DC 3 CONSTANT 3 AP106770
678 | *************************************************** AP106780
679 | * ENTER HERE TO CHECK INPUT * AP106790
680 | * FOR A MONITOR CONTROL RECORD * AP106800
681 | *************************************************** AP106810
035F 700B 682 | PT530 DC /700B BR TO * +11 AP106820
0360 0000 683 | PT540 DC 0 SLASH COUNTER AP106830
684 | * AP106840
0361 C0FE 685 | PT550 LD PT540 ENTER HERE TO CHK FOR AP106850
0362 90E7 686 | S PT330 A CONTROL RECORD AP106860
0363 D0FC 687 | STO PT540 DECR SLASH INDR AP106870
0364 4820 688 | BSC Z SKIP IF TWO SLASHES CHEKED AP106880
689 | * * AP106890
0365 7008 690 | MDX PT570 GO CHK FOR A SLASH AP106900
691 | * * AP106910
0366 C0F4 692 | LD PT480 AP106920
0367 90EE 693 | S PT490 IS 3RD CHAR A BLANK AP106930
0368 4820 694 | BSC Z YES - SKIP AP106940
0369 7003 695 | MDX PT560 NO - GO TO EXIT AP106950
036A C0DF 696 | LD PT330 AP106960
036B D400 000F 697 | STO L $CTSW IND INPUT IS CTRL RECORD AP106970
698 | * * AP106980
036D 7034 699 | PT560 MDX PT730-1 EXIT AP106990
700 | * * AP107000
036E C0EC 701 | PT570 LD PT480 AP107010
036F 90EA 702 | S PT470 CHECK FOR A SLASH AP107020
0370 4818 703 | BSC +- SKIP IF NOT A SLASH AP107030
0371 70FB 704 | MDX PT560 GO TO EXIT AP107040
705 | * * AP107050
706 | * * AP107060
0372 1010 707 | SLA 16 SET CNT TO AVOID AP107070
0373 D0E8 708 | STO PT500 FURTHER CHECKING AP107080
0374 70F8 709 | MDX PT560 CHECKING AND EXIT AP107090
710 | * AP107100
711 | *************************************************** AP107110
712 | * * AP107120
0376 713 | BSS E 0 FORCE NEXT LOC TO BE EVEN AP107130
0376 0000 714 | PHAS2 DC *-* PHASE 2 WORD COUNT AP107140
0377 0000 715 | DC *-* PHASE 2 SECTOR ADDRESS AP107150
716 | * AP107160
717 | *************************************************** AP107170
718 | * AP107180
719 | *************************************************** AP107190
720 | * * AP107200
721 | * THIS BLOCK OF CODING PROVIDES * AP107210
722 | * FOR CONVERSION FROM PTTC/8 TO EBC. * AP107220
723 | * ALL OF THE CODING WHICH FOLLOWS IS * AP107230
724 | * CONCERNED WITH, AND ONLY WITH, * AP107240
725 | * THIS CONVERSION. * AP107250
726 | *************************************************** AP107260
0378 00FF 727 | PT580 DC /00FF CONSTANT TO MASK BITS 0-7 AP107270
0379 FF00 728 | PT582 DC /FF00 PTTC/8 SUPERDELETE 2-8 AP107280
037A 8000 729 | PT590 DC /7F00-/FF00 2-8 AP107290
037B 8F00 730 | PT600 DC /0E00-/7F00 *CODE AP107300
037C 6000 731 | PT610 DC /6E00-/0E00 *FOR AP107310
037D 8000 732 | PT620 DC /8000 *SPECIAL AP107320
037E 6F00 733 | PT630 DC /DD00-/6E00 *CHARACTERS AP107330
037F 0040 734 | PT640 DC /0040 EBC BLANK AP107340
0380 0015 735 | PT660 DC PT780-PT730 ADDR HELP FOR CONV AP107350
736 | * * AP107360
0381 C0D9 737 | PT670 LD PT480 COME HERE ON CONV REQ AP107370
0382 90F6 738 | S PT582 IS CHAR SUPERDELETE 2-8 AP107380
0383 4C18 0336 739 | BSC L PT250,+- YES, GO TO EXIT 2-8 AP107390
0385 90F4 740 | S PT590 IS CHAR A DELETE AP107400
0386 4818 741 | BSC +- NO, BRANCH AP107410
0387 70AE 742 | MDX PT250 YES, GO TO EXIT AP107420
0388 90F2 743 | S PT600 IS CHAR AN UP CASE AP107430
0389 4820 744 | BSC Z YES, SKIP AP107440
038A 7003 745 | MDX PT690 NO, BRANCH AP107450
038B C0F1 746 | LD PT620 INDICATE CASE AND AP107460
038C D0BB 747 | PT680 STO PT310 SET CASE SWITCH AP107470
038D 70A8 748 | MDX PT250 GO TO EXIT AP107480
749 | * * AP107490
038E 90ED 750 | PT690 S PT610 IS CHAR A LOW CASE AP107500
038F 4818 751 | BSC +- NO, SKIP AP107510
0390 70FB 752 | MDX PT680 YES, GO TO SET INDR AP107520
0391 90EC 753 | PT700 S PT630 IS CHAR A NEW LINE AP107530
0392 4818 754 | BSC +- NO, SKIP AP107540
0393 7001 755 | MDX PT710 YES, GO TO SET INDR AP107550
0394 7008 756 | MDX PT720 NO, GO TO TABLE LOOK-UP AP107560
757 | * * AP107570
758 | * * AP107580
0395 C0C6 759 | PT710 LD PT500 TEST FOR FIRST CHAR A NEW AP107590
0396 F0C6 760 | EOR PT510 * LINE AP107600
0397 4818 761 | BSC +- NO, SKIP AP107610
0398 709D 762 | MDX PT250 GO TO EXIT AP107620
763 | * * AP107630
0399 C0FF 764 | LD *-1 SET FILL SWITCH AP107640
039A D0AC 765 | STO PT300 TO ON AP107650
039B 7098 766 | MDX PT230+3 BR TO FILL RECORD W/BLANKS AP107660
039C 7098 767 | PT715 MDX PT240 AP107670
768 | * * AP107680
039D C0BE 769 | PT720 LD PT500 AP107690
039E 90AB 770 | S PT330 DECR CHAR CNT AP107700
039F D0BC 771 | STO PT500 AP107710
03A0 4830 772 | BSC -Z SKIP TO CONVERT AP107720
773 | * * AP107730
03A1 70BF 774 | MDX PT550 BR TO SAVE FIRST 3 CHAR AP107740
03A2 6809 775 | STX PT750+1 INITILZ TBL ADDR FOR AP107750
03A3 C008 776 | PT730 LD PT750+1 *LOOPING TO SCAN THE AP107760
03A4 80DB 777 | A PT660 *CONV TABLE AP107770
03A5 D006 778 | STO PT750+1 AP107780
03A6 D00E 779 | STO PT760+1 AP107790
03A7 6500 0077 780 | LDX L1 PT785-PT780 SIZE OF CONVERSION TABLE AP107800
03A9 C0B1 781 | PT740 LD PT480 FETCH WORD AP107810
03AA E89D 782 | OR PT310 DETM UPPER/LOWER CASE FOR AP107820
03AB F500 0000 783 | PT750 EOR L1 *-* COMPARE WITH TBL ENTRY AP107830
03AD 1808 784 | SRA 8 SHIFT OUT EBC AP107840
03AE 4818 785 | BSC +- SKIP IF NON ZERO RESULT AP107850
03AF 7004 786 | MDX PT760 GO TO TREAT CONV CHAR AP107860
03B0 71FF 787 | MDX 1 -1 DECR LOOP COUNTER AP107870
03B1 70F7 788 | MDX PT740 LOOP THRU SCAN AP107880
789 | * * AP107890
03B2 C005 790 | LD PT780 INVALID CHAR DETECTED, GO AP107900
03B3 7002 791 | MDX PT770 TO ST FF IN STRING AP107910
792 | * * AP107920
03B4 C500 0000 793 | PT760 LD L1 *-* FETCH CONV CHAR AP107930
03B6 E0C1 794 | PT770 AND PT580 CLEAR OUT PTTC/8 HALF AP107940
03B7 70E4 795 | MDX PT715 AP107950
796 | *************************************************** AP107960
797 | * * AP107970
798 | * FOLLOWING IS A TABLE WITH * AP107980
799 | * 119 ACCEPTABLE PTTC/8 CODES * AP107990
800 | * IN BITS 0-7, AND THEIR CORRESPONDING * AP108000
801 | * EBCDIC REPRESENTATION IN BITS 8-15. * AP108010
802 | * * AP108020
803 | *************************************************** AP108030
03B8 0050 804 | PT780 DC /0050 INVAL CHAR CODE AP108040
03B9 704E 805 | DC /704E AMPERSAND AP108050
03BA 0B7E 806 | DC /0B7E POUND AP108060
03BB 207D 807 | DC /207D AT AP108070
03BC 954D 808 | DC /954D PERCENT AP108080
03BD 825D 809 | DC /825D LESS THAN AP108090
03BE 6D05 810 | DC /6D05 HORIZONTAL TAB AP108100
03BF 5E16 811 | DC /5E16 BACKSPACE AP108110
03C0 4C14 812 | DC /4C14 RESTORE AP108120
03C1 3D25 813 | DC /3D25 LINE FEED AP108130
03C2 3E26 814 | DC /3E26 END OF BLOCK AP108140
03C3 1040 815 | DC /1040 SPACE AP108150
03C4 01F1 816 | DC /01F1 1 AP108160
03C5 02F2 817 | DC /02F2 2 AP108170
03C6 13F3 818 | DC /13F3 3 AP108180
03C7 04F4 819 | DC /04F4 4 AP108190
03C8 15F5 820 | DC /15F5 5 AP108200
03C9 16F6 821 | DC /16F6 6 AP108210
03CA 07F7 822 | DC /07F7 7 AP108220
03CB 08F8 823 | DC /08F8 8 AP108230
03CC 19F9 824 | DC /19F9 9 AP108240
03CD 1AF0 825 | DC /1AF0 0 (NUMERIC) AP108250
03CE E1C1 826 | DC /E1C1 A AP108260
03CF E2C2 827 | DC /E2C2 B AP108270
03D0 F3C3 828 | DC /F3C3 C AP108280
03D1 E4C4 829 | DC /E4C4 D AP108290
03D2 F5C5 830 | DC /F5C5 E AP108300
03D3 F6C6 831 | DC /F6C6 F AP108310
03D4 E7C7 832 | DC /E7C7 G AP108320
03D5 E8C8 833 | DC /E8C8 H AP108330
03D6 F9C9 834 | DC /F9C9 I AP108340
03D7 D1D1 835 | DC /D1D1 J AP108350
03D8 D2D2 836 | DC /D2D2 K AP108360
03D9 C3D3 837 | DC /C3D3 L AP108370
03DA D4D4 838 | DC /D4D4 M AP108380
03DB C5D5 839 | DC /C5D5 N AP108390
03DC C6D6 840 | DC /C6D6 O (ALPHA) AP108400
03DD D7D7 841 | DC /D7D7 P AP108410
03DE D8D8 842 | DC /D8D8 Q AP108420
03DF C9D9 843 | DC /C9D9 R AP108430
03E0 B2E2 844 | DC /B2E2 S AP108440
03E1 A3E3 845 | DC /A3E3 T AP108450
03E2 B4E4 846 | DC /B4E4 U AP108460
03E3 A5E5 847 | DC /A5E5 V AP108470
03E4 A6E6 848 | DC /A6E6 W AP108480
03E5 B7E7 849 | DC /B7E7 X AP108490
03E6 B8E8 850 | DC /B8E8 Y AP108500
03E7 A9E9 851 | DC /A9E9 Z AP108510
03E8 EB5F 852 | DC /EB5F LOGICAL NOT AP108520
03E9 F04E 853 | DC /F04E PLUS AP108530
03EA DB5A 854 | DC /DB5A EXCLAMATION MARK AP108540
03EB C06D 855 | DC /C06D UNDERSCORE AP108550
03EC BB4F 856 | DC /BB4F LOGICAL OR AP108560
03ED A04A 857 | DC /A04A CENT AP108570
03EE B16F 858 | DC /B16F QUESTION MARK AP108580
03EF 994D 859 | DC /994D LEFT PARENTHESIS AP108590
03F0 9A5D 860 | DC /9A5D RIGHT PARENTHESIS AP108600
03F1 8B7F 861 | DC /8B7F QUOTE AP108610
03F2 817E 862 | DC /817E EQUAL AP108620
03F3 935E 863 | DC /935E SEMICOLON AP108630
03F4 847A 864 | DC /847A COLON AP108640
03F5 967D 865 | DC /967D APOSTROPHE AP108650
03F6 876E 866 | DC /876E GREATER THAN AP108660
03F7 885C 867 | DC /885C ASTERISK AP108670
03F8 6B4B 868 | DC /6B4B PERIOD AP108680
03F9 5B5B 869 | DC /5B5B DOLLAR SIGN AP108690
03FA 4060 870 | DC /4060 DASH AP108700
03FB 3B6B 871 | DC /3B6B COMMA AP108710
03FC 3161 872 | DC /3161 SLASH AP108720
03FD ED05 873 | DC /ED05 NO GRAPHIC AP108730
03FE FC04 874 | DC /FC04 NO GRAPHIC AP108740
03FF FA79 875 | DC /FA79 NO GRAPHIC AP108750
0400 DE16 876 | DC /DE16 NO GRAPHIC AP108760
0401 CF17 877 | DC /CF17 NO GRAPHIC AP108770
0402 CC14 878 | DC /CC14 NO GRAPHIC AP108780
0403 CA49 879 | DC /CA49 NO GRAPHIC AP108790
0404 AC24 880 | DC /AC24 NO GRAPHIC AP108800
0405 B025 881 | DC /B025 NO GRAPHIC AP108810
0406 BE26 882 | DC /BE26 NO GRAPHIC AP108820
0407 AF27 883 | DC /AF27 NO GRAPHIC AP108830
0408 AA69 884 | DC /AA69 NO GRAPHIC AP108840
0409 9C34 885 | DC /9C34 NO GRAPHIC AP108850
040A 9F37 886 | DC /9F37 NO GRAPHIC AP108860
040B 9040 887 | DC /9040 NO GRAPHIC AP108870
040C 7C04 888 | DC /7C04 NO GRAPHIC AP108880
040D 6181 889 | DC /6181 NO GRAPHIC AP108890
040E 6282 890 | DC /6282 NO GRAPHIC AP108900
040F 7383 891 | DC /7383 NO GRAPHIC AP108910
0410 6484 892 | DC /6484 NO GRAPHIC AP108920
0411 7585 893 | DC /7585 NO GRAPHIC AP108930
0412 7686 894 | DC /7686 NO GRAPHIC AP108940
0413 6787 895 | DC /6787 NO GRAPHIC AP108950
0414 6889 896 | DC /6889 NO GRAPHIC AP108960
0415 79C0 897 | DC /79C0 NO GRAPHIC AP108970
0416 7A4B 898 | DC /7A4B NO GRAPHIC AP108980
0417 4F17 899 | DC /4F17 NO GRAPHIC AP108990
0418 5797 900 | DC /5797 NO GRAPHIC AP109000
0419 5898 901 | DC /5898 NO GRAPHIC AP109010
041A 4999 902 | DC /4999 NO GRAPHIC AP109020
041B 4AD0 903 | DC /4AD0 NO GRAPHIC AP109030
041C 5191 904 | DC /5191 NO GRAPHIC AP109040
041D 5292 905 | DC /5292 NO GRAPHIC AP109050
041E 4393 906 | DC /4393 NO GRAPHIC AP109060
041F 5494 907 | DC /5494 NO GRAPHIC AP109070
0420 4595 908 | DC /4595 NO GRAPHIC AP109080
0421 4696 909 | DC /4696 NO GRAPHIC AP109090
0422 2F27 910 | DC /2F27 NO GRAPHIC AP109100
0423 2C24 911 | DC /2C24 NO GRAPHIC AP109110
0424 32A0 912 | DC /32A0 NO GRAPHIC AP109120
0425 23A1 913 | DC /23A1 NO GRAPHIC AP109130
0426 34A2 914 | DC /34A2 NO GRAPHIC AP109140
0427 25A3 915 | DC /25A3 NO GRAPHIC AP109150
0428 26A4 916 | DC /26A4 NO GRAPHIC AP109160
0429 37A5 917 | DC /37A5 NO GRAPHIC AP109170
042A 38A6 918 | DC /38A6 NO GRAPHIC AP109180
042B 29A7 919 | DC /29A7 NO GRAPHIC AP109190
042C 2AE0 920 | DC /2AE0 NO GRAPHIC AP109200
042D 1F37 921 | DC /1F37 NO GRAPHIC AP109210
042E 1C34 922 | DC /1C34 NO GRAPHIC AP109220
042F 0D35 923 | PT785 DC /0D35 AP109230
0430 924 | BSS 4 PATCH AREA 2-2 AP109240
0434 0000 925 | PT790 DC 0 *AREA AP109250
926 | * AP109260
BEGIN SYSTEM LOAD/RELOAD
928 | * AP109280
929 | * ROLL NEEDED PARTS OF RESIDENT IMAGE AP109290
930 | * TEMPORARLY STORED IN BUFFR TO LOWER CORE AP109300
931 | * AP109310
0435 1000 932 | AA000 NOP ENTER PHASE1 FROM C.I.L. AP109320
0436 6500 00D8 933 | LDX L1 $I494-BUFFR ROLL RESIDENT IMAGE AP109330
0438 C500 0BF7 934 | AA010 LD L1 BUFFR+1 *FROM 'BUFFR' AP109340
043A D500 000B 935 | STO L1 $IBSY-8 *TO AP109350
043C 71FF 936 | MDX 1 -1 *LOWER AP109360
043D 70FA 937 | MDX AA010 *CORE AP109370
043E 6500 0553 938 | LDX L1 AA060-1 STORE ADDRESS OF INTERRUPT AP109380
0440 6D00 00D4 939 | STX L1 $IBT4 *BRANCH TABLE TO ILS04 AP109390
0442 6500 0244 940 | LDX L1 CONFG-BUFFR-1 AP109400
0444 1810 941 | SRA 16 AP109410
0445 D500 0BF8 942 | AA020 STO L1 BUFFR+2 CLEAR AP109420
0447 71FF 943 | MDX 1 -1 *THE AP109430
0448 70FC 944 | MDX AA020 *BUFFER AP109440
0449 6700 0B52 945 | LDX L3 E XR3 BASE ADDR TO CONSTANTS AP109450
044B C30B 946 | LD 3 AZ912-E DOUBLE AP109460
044C 1001 947 | SLA 1 *THE AP109470
044D D30B 948 | STO 3 AZ912-E *BUFFER SIZE (640) AP109480
044E D324 949 | STO 3 AZ938-E SET 'FETCH' INHIBIT INDR AP109490
044F D328 950 | STO 3 AZ942-E *AND RES IMAGE INDR ON AP109500
0450 6500 0280 951 | LDX L1 INTPT STORE ADDR OF INTRPT SUBR AP109510
0452 6D00 002C 952 | STX L1 $IREQ *TO INTERRUPT REQUEST AP109520
953 | * AP109530
954 | * READ A RECORD AP109540
955 | * AP109550
0454 C002 956 | AA040 LD AA900 SET COLUMNS TO READ INDR AP109560
0455 D03F 957 | STO AA903 *TO 80 COLUMNS AP109570
0456 7012 958 | MDX AA042 BEGIN READING AP109580
959 | * AP109590
960 | * CONSTANTS AND WORK AREAS AP109600
961 | * AP109610
0457 0050 962 | AA900 DC @CCOL NUMBER OF COLUMNS PER CARD AP109620
0458 963 | BSS E FORCE EVEN ADDRESS AP109630
0458 7002 964 | AA914 DC /7002 READ PTTC/8 AND CVRT AP109640
0459 0495 965 | DC AA904-1 WD CNT LOC OF 80-WD BUFFER AP109650
045A 7000 966 | AA918 DC /7000 READ BINARY TO 1-WD BUFFER AP109660
045B 0492 967 | DC AA908 AP109670
045C 7000 968 | AA916 DC /7000 READ BINARY AP109680
045D 04E6 969 | DC AA906 AP109690
970 | * AP109700
045E 7F00 971 | AA912 DC /7F00 DELETE CODE CONSTANT AP109710
045F 3600 972 | AA913 DC /3600 MAXIMUM VALID WORD COUNT AP109720
973 | * AP109730
974 | * AP109740
0460 0000 975 | AA050 DC 0 ENTRY/RETURN AP109750
0461 C400 0013 976 | LD L $IBSY TEST FOR BUSY AP109760
0463 4C20 0461 977 | BSC L *-4,Z AP109770
0465 4C80 0460 978 | BSC I AA050 RETURN AP109780
979 | * AP109790
0467 4400 0A80 980 | ERR21 BSI L ER018 PAPER TAPE WD CNT ERROR AP109800
981 | * FALL THRU TO RETRY AFTER AP109810
982 | * *RETURN FROM $PRET AP109820
983 | * AP109830
0469 40F6 984 | AA042 BSI AA050 TEST FOR BUSY AP109840
046A C32F 985 | LD 3 AZ952-E INDICATES READ-IN FORMAT AP109850
046B 4C18 0487 986 | BSC L AA046,+- READ PTTC/8 IF OFF AP109860
987 | * AP109870
046D C8EC 988 | AA044 LDD AA918 TEST 1 FRAME FOR DELETE AP109880
046E 4400 02C3 989 | BSI L PT000+1 AP109890
0470 40EF 990 | BSI AA050 WAIT FOR OP COMPLETE AP109900
0471 C400 0493 991 | LD L AA908+1 TEST FRAME READ IN AP109910
0473 F0EA 992 | EOR AA912 *AGAINST DELETE CODE AND AP109920
0474 4C18 046D 993 | BSC L AA044,+- *READ AGAIN IF YES AP109930
994 | * AP109940
0476 C400 0493 995 | LD L AA908+1 TEST FOR VALID WORD COUNT AP109950
0478 90E6 996 | S AA913 TEST FOR VALID WD CNT AP109960
0479 4C30 0467 997 | BSC L ERR21,Z- BR IF OVER 54 AP109970
998 | * AP109980
047B C017 999 | LD AA908+1 AP109990
047C 1807 1000 | SRA 7 FORM FRAME COUNT AP110000
047D D400 04E6 1001 | STO L AA906 *AHEAD OF BUFFER AP110010
047F 1801 1002 | SRA 1 FORM WORD COUNT AP110020
0480 D400 0913 1003 | STO L CK200+1 *FOR CHECKSUM PROCESSING AP110030
1004 | * AP110040
0482 C8D9 1005 | LDD AA916 AP110050
0483 4400 02C3 1006 | BSI L PT000+1 READ BINARY AP110060
0485 40DA 1007 | BSI AA050 WAIT FOR OP COMPLETE AP110070
1008 | * AP110080
0486 7006 1009 | MDX AA048 TEST PACKING INDICATOR AP110090
1010 | * AP110100
0487 C8D0 1011 | AA046 LDD AA914 READ PTTC/8 AND CVRT AP110110
0488 4400 02C3 1012 | BSI L PT000+1 AP110120
048A 40D5 1013 | BSI AA050 WAIT FOR OP COMPLETE AP110130
1014 | * AP110140
1015 | * AP110150
048B 6700 0B52 1016 | LDX L3 E RESET XR3 AP110160
048D C32F 1017 | AA048 LD 3 AZ952-E TEST FOR PACKING AP110170
048E 4420 0A0B 1018 | BSI L PACK0,Z *BR TO PACK RECORD AP110180
0490 4C00 055D 1019 | BSC L AA070 BRANCH TO PROCESS RECORD AP110190
1020 | * AP110200
1021 | *************************************************** AP110210
1022 | * AP110220
1023 | * TAPE INPUT BUFFERS AP110230
1024 | * AP110240
0492 0001 1025 | AA908 DC 1 1-WORD BUFFER AP110250
0493 0000 1026 | DC *-* AP110260
0494 1027 | BSS E 0 FORCE NEXT LOC TO BE EVEN AP110270
0494 0000 1028 | AA902 DC 0 PACKED BINARY DATA AP110280
0495 0050 1029 | AA903 DC @CCOL WORD COUNT AP110290
0496 1030 | AA904 BSS @CCOL INPUT BUFFER, PTTC/8 AP110300
04E6 1031 | AA906 BSS 109 108-FRAME BUFFER AP110310
1032 | * AP110320
1033 | * LEVEL 4 INTERRUPT BRANCH TABLE AP110330
1034 | * AP110340
0553 0028 1035 | DC $PRET PRE-OPERATIVE ERROR TRAP AP110350
0554 1036 | AA060 BSS 4 RESERVED AP110360
0558 0000 1037 | DC *-* 1403 PRINTER AP110370
0559 0000 1038 | DC *-* 2501 CARD READER AP110380
055A 0000 1039 | DC *-* 1442 CARD READER AP110390
055B 0289 1040 | DC TZ100 CONSOLE PRINTER AP110400
055C 02C6 1041 | DC PT000+4 PAPER TAPE READER/PUNCH AP110410
1042 | * AP110420
1043 | * DETERMINE RECORD TYPE AP110430
1044 | * IF THE INDICATOR 'AZ949' IS POSITIVE A AP110440
1045 | * CERTAIN TYPE IS EXPECTED AP110450
1046 | * AP110460
055D C32D 1047 | AA070 LD 3 AZ949-E FETCH NEXT RECORD TYPE INDR AP110470
055E 4C18 0569 1048 | BSC L AA080,+- BR TO REGULAR PROC IF ZERO AP110480
0560 6500 0496 1049 | LDX L1 AA904 POINT TO INPUT BUFFER AP110490
0562 C320 1050 | LD 3 AZ933-E FETCH TYPE EXPECTED INDR AP110500
0563 4418 0582 1051 | BSI L AB000,+- BR TO TEST FOR LOAD MODE AP110510
0565 4408 058B 1052 | BSI L AC000,+ BR TO TEST FOR SCON RECORD AP110520
0567 4400 0595 1053 | BSI L AD000 BR TO TEST FOR PHID RECORD AP110530
1054 | * AP110540
0569 C32F 1055 | AA080 LD 3 AZ952-E TEST FOR AND BRANCH IF SCON AP110550
056A 4418 0613 1056 | BSI L AE000,+- *RCRDS ARE TO BE CONVERTED AP110560
056C 6500 0493 1057 | LDX L1 AA902-1 XR1 PTS TO BINARY RCD BFR AP110570
056E C103 1058 | LD 1 3 FETCH WORD 3 AP110580
056F 1888 1059 | SRT 8 SAVE LEFT HALF OF WORD AP110590
0570 E30E 1060 | AND 3 AZ914-E *RIGHT JUSTIFIED AP110600
0571 9301 1061 | S 3 AZ901-E TEST FOR AND BRANCH IF AP110610
0572 4418 06F5 1062 | BSI L AH000,+- *AN ABS HEADER RECORD - /01 AP110620
0574 9301 1063 | S 3 AZ901-E TEST FOR AND BRANCH IF AP110630
0575 4C18 06FE 1064 | BSC L AH020,+- *A RLTV HEADER RECORD - /02 AP110640
0577 9307 1065 | S 3 AZ907-E TEST FOR AND BRANCH IF AP110650
0578 4C18 0702 1066 | BSC L AH030,+- *REL TO LAST ABS RCRD - /09 AP110660
057A 9301 1067 | S 3 AZ901-E TEST FOR AND BRANCH IF AP110670
057B 4418 0779 1068 | BSI L AJ000,+- *A DATA RECORD - /0A AP110680
057D 9305 1069 | S 3 AZ905-E TEST FOR AND BRANCH IF AP110690
057E 4418 07E0 1070 | BSI L AK000,+- *AN 'F' RECORD - /0F AP110700
0580 4400 0A5E 1071 | BSI L ER002 INVALID RCRD, PRINT MESSAGE AP110710
TEST FOR LOAD MODE RECORD
1073 | * AP110730
1074 | * RECORD MUST BE LOAD MODE TYPE AP110740
1075 | * AP110750
0582 0000 1076 | AB000 DC 0 ENTRY AP110760
0583 4400 0A01 1077 | BSI L COM34 TEST WORDS 3 AND 4 OF RCD AP110770
0585 9313 1078 | S 3 AZ919-E *AGAINST EBCDIC 'DE' AP110780
0586 4420 0A76 1079 | BSI L ER017,Z BRANCH IF MODE RCRD MISSING AP110790
0588 D32D 1080 | STO 3 AZ949-E CLEAR MODE RCRD TEST INDR AP110800
0589 4400 0735 1081 | BSI L AI000 BRANCH TO PROCESS RECORD AP110810
TEST FOR SCON RECORD
1083 | * AP110830
1084 | * RECORD MUST BE SCON TYPE AP110840
1085 | * AP110850
058B 0000 1086 | AC000 DC 0 ENTRY AP110860
058C 4400 0A01 1087 | BSI L COM34 TEST WORDS 3 AND 4 OF RCD AP110870
058E 931B 1088 | S 3 AZ927-E *AGAINST EBCDIC 'ON' AP110880
058F 4420 0A64 1089 | BSI L ER003,Z BR IF 'SCON' RCRD MISSING AP110890
0591 D32F 1090 | STO 3 AZ952-E INDC NO PACK OF 'REQ' RCRDS AP110900
0592 D32D 1091 | STO 3 AZ949-E CLEAR INDR FOR SPEC RCRD AP110910
0593 4C00 0454 1092 | BSC L AA040 BRANCH TO READ NEXT RECORD AP110920
PROCESS PHASE ID RECORD(S)
1094 | * AP110940
1095 | * PHASE ID RECORD(S) PROCESS ON AP110950
1096 | * BOTH INITIAL LOAD AND RELOAD AP110960
1097 | * AP110970
0595 0000 1098 | AD000 DC 0 ENTRY AP110980
0596 4400 0A01 1099 | BSI L COM34 TEST WORDS 3 AND 4 OF RCD AP110990
0598 933F 1100 | S 3 AZ971-E *AGAINST EBCDIC 'ID' AP111000
0599 4420 0A70 1101 | BSI L ER015,Z *IF NOT AN 'I' AP111010
1102 | * AP111020
1103 | * FETCH A 3-DIGIT NUMBER IN EBCDIC FROM PHID RECORD AP111030
1104 | * AND CONVERT IT TO BINARY AP111040
1105 | * AP111050
1106 | * AP111060
059B 6500 049B 1107 | AD010 LDX L1 AA904+5 1ST ID STARTS IN COL 5 AP111070
059D 6203 1108 | LDX 2 3 AP111080
059E 4400 09EF 1109 | BSI L EBTDC EBCDIC TO DECIMAL AP111090
1110 | * AP111100
05A0 C340 1111 | LD 3 AZ972-E FETCH RESULTS AP111110
05A1 9342 1112 | S 3 AZ974-E TEST FOR CONVERSION OF A AP111120
05A2 4C18 05A7 1113 | BSC L AD040,+- *BLANK & STORE ZERO IF YES AP111130
05A4 C340 1114 | LD 3 AZ972-E DECIMAL OUTPUT AP111140
05A5 1004 1115 | SLA 4 REMOVE 1ST 4 BITS AP111150
05A6 1804 1116 | SRA 4 RIGHT JUSTIFY AP111160
1117 | * AP111170
1118 | * AP111180
05A7 D400 020C 1119 | AD040 STO L PAIR1 SAVE PHASE ID RANGE AP111190
05A9 C039 1120 | LD AD900 FETCH INDICATOR AND AP111200
05AA 4420 05B7 1121 | BSI L AD050,Z *BRANCH IF END OF RECORD AP111210
05AC 7401 05A8 1122 | MDX L AD040+1,1 INCREMENT PH ID STORE ADDR AP111220
05AE 7404 059C 1123 | MDX L AD010+1,4 INCR HUNDREDS COLUMN ADDR AP111230
05B0 74FF 05E4 1124 | MDX L AD901,-1 DECR PH ID CNT, SK IF ZERO AP111240
05B2 70E8 1125 | MDX AD010 BR TO CONVERT NEXT PH ID AP111250
05B3 4400 09D0 1126 | BSI L MODNO BR TO PROCESS MOD NUMBER AP111260
05B5 682D 1127 | STX 0 AD900 SET TO TEST FOR 2ND RECORD AP111270
05B6 70E4 1128 | MDX AD010 BR TO CONVERT NEXT PH ID AP111280
1129 | * AP111290
05B7 0000 1130 | AD050 DC 0 ENTRY AP111300
05B8 C480 05A8 1131 | LD I AD040+1 TEST FOR AND BRANCH IF AP111310
05BA 4C18 05C5 1132 | BSC L AD060,+- *LAST PH ID WAS ZERO AP111320
05BC 6500 049B 1133 | LDX L1 AA904+5 RESET AP111330
05BE 69DD 1134 | STX 1 AD010+1 *HUNDREDS COLUMN ADDRESS, AP111340
05BF 740E 05E4 1135 | MDX L AD901,14 RESET PHASE ID/RECORD COUNT AP111350
05C1 1810 1136 | SRA 16 CLEAR AP111360
05C2 D020 1137 | STO AD900 *END OF RECORD INDICATOR AP111370
05C3 4C00 0454 1138 | BSC L AA040 BRANCH TO READ NEXT RECORD AP111380
1139 | * AP111390
1140 | * CHECK VALIDITY OF PHID RECORD INPUT AP111400
1141 | * AP111410
05C5 6580 0B85 1142 | AD060 LDX I1 AZ958 XR1 POINTS TO PHID PAIRS AP111420
05C7 C100 1143 | LD 1 0 FETCH 1ST ENT OF 1ST PAIR AP111430
05C8 9301 1144 | S 3 AZ901-E TEST FOR AND AP111440
05C9 71FE 1145 | MDX 1 -2 AP111450
05CA 4420 0A70 1146 | BSI L ER015,Z *BRANCH IF NOT '001' AP111460
05CC 7102 1147 | AD070 MDX 1 2 POINT TO NEXT PAIR AP111470
05CD C101 1148 | LD 1 1 FETCH AND AP111480
05CE D017 1149 | STO AD903 *SAVE UPPER LIMIT OF RANGE AP111490
05CF C100 1150 | LD 1 0 FETCH AND AP111500
05D0 D014 1151 | STO AD902 *SAVE LOWER LIMIT OF RANGE AP111510
05D1 4C18 05DD 1152 | BSC L AD080,+- BRANCH IF NO MORE PAIRS AP111520
05D3 9012 1153 | S AD903 TEST FOR AND BRANCH IF AP111530
05D4 4430 0A70 1154 | BSI L ER015,-Z *UPPER LT LOWER LIMIT AP111540
05D6 C102 1155 | LD 1 2 FETCH NEXT LOWER LIMIT AND AP111550
05D7 4C18 05DD 1156 | BSC L AD080,+- *BRANCH IF ZERO AP111560
05D9 900C 1157 | S AD903 TEST FOR AND BRANCH IF LESS AP111570
05DA 4408 0A70 1158 | BSI L ER015,+ *THAN PREVIOUS UPPER LIMIT AP111580
05DC 70EF 1159 | MDX AD070 BRANCH TO CHECK NEXT PAIR AP111590
05DD C101 1160 | AD080 LD 1 1 FETCH AND AP111600
05DE D400 01FC 1161 | STO L MAXPH *STORE MAXIMUM PHASE ID AP111610
05E0 1810 1162 | SRA 16 CLEAR AP111620
05E1 D32D 1163 | STO 3 AZ949-E *SPEC RECORD NEXT INDICATOR AP111630
05E2 7004 1164 | MDX AD100 BR TO TEST IF PAIRS VOIDED AP111640
1165 | * AP111650
1166 | * CONSTANTS AND WORK AREAS AP111660
1167 | * AP111670
05E3 0000 1168 | AD900 DC *-* END OF A 'PHID' RECORD INDR AP111680
05E4 000E 1169 | AD901 DC 14 NO. OF PHASE IDS PER RECORD AP111690
05E5 0000 1170 | AD902 DC *-* TEMP STORAGE FOR LOWER LIM AP111700
05E6 0000 1171 | AD903 DC *-* TEMP STORAGE FOR UPPER LIM AP111710
1172 | * AP111720
1173 | * IF ASM, FOR, PH ID PAIR 8, 9 AND/OR 10 NOT TO AP111730
1174 | * BE LOADED THE PHASE ID PAIRS WILL BE PLACED IN AP111740
1175 | * A SKIP TABLE AND BITS 0 AND 1 IN THE NORMAL AP111750
1176 | * PAIR TABLE WILL BE SET ON AP111760
1177 | * AP111770
05E7 6A16 1178 | AD100 STX 2 AD120+1 SAVE XR2 AP111780
05E8 6205 1179 | LDX 2 5 5 ID PAIRS MAY BE SKIPPED AP111790
05E9 C326 1180 | AD105 LD 3 AZ940-E BITS INDICATE PAIRS TO SKIP AP111800
05EA 100A 1181 | SLA 10 SHIFT BIT TO BE TESTED AP111810
05EB 1200 1182 | SLA 2 0 *TO BIT 0 AP111820
05EC 4C10 05F7 1183 | BSC L AD110,- BR IF BIT 0 NOT ON AP111830
05EE CE80 060C 1184 | LDD I2 AD910-1 LOAD PAIR TO BE SKIPPED AP111840
05F0 DC80 0612 1185 | STD I AD920 STORE IN SKIP TABLE AP111850
05F2 EB1D 1186 | OR 3 AZ929-E SET BITS 0,1 ON IN FIRST AP111860
05F3 D680 060C 1187 | STO I2 AD910-1 *WORD OF PAIR IN PAIR TABLE AP111870
05F5 7402 0612 1188 | MDX L AD920,2 INCR POINTER TO SKIP TABLE AP111880
05F7 72FF 1189 | AD110 MDX 2 -1 DECR BIT SHIFT COUNTER AP111890
05F8 70F0 1190 | MDX AD105 LOOP UNTIL 5 PAIRS TESTED AP111900
05F9 6600 0999 1191 | LDX L2 /0999 TERMINATE SKIP TABLE AP111910
05FB 6E80 0612 1192 | STX I2 AD920 *WITH /0999 WORD AP111920
05FD 6600 0000 1193 | AD120 LDX L2 *-* RESTORE XR2 AP111930
1194 | * AP111940
1195 | * EXTRACT THE LAST PHASE ID THAT MUST BE LOADED AP111950
1196 | * DURING AN INITIAL LOAD AP111960
1197 | * AP111970
05FF CC00 020C 1198 | AD122 LDD L PAIR1 PAIR ADDR WILL BE MODIFIED AP111980
0601 1000 1199 | NOP A WAIT MAY BE PATCHED HERE AP111990
0602 4C18 01E0 1200 | BSC L LDPH2,+- BR TO LD PH 2 IF END OF JOB AP112000
0604 4C30 0609 1201 | BSC L AD128,Z- BRANCH TO SAVE ID AP112010
0606 7402 0600 1202 | AD124 MDX L AD122+1,2 MODIFY ADDR UNTIL 0 FOUND AP112020
0608 70F6 1203 | MDX AD122 AP112030
1204 | * AP112040
0609 18D0 1205 | AD128 RTE 16 SAVE 2ND ID OF THIS PAIR AP112050
060A D400 0229 1206 | STO L LPHID *FOR SYSTEM LOADER PHASE 2 AP112060
060C 70F9 1207 | MDX AD124 BRANCH TO TEST NEXT PAIR AP112070
1208 | * AP112080
1209 | * CONSTANTS AND WORK AREAS AP112090
1210 | * AP112100
060D 0220 1211 | AD910 DC PAIRB POINTER USED IF BIT 11 ON AP112110
060E 021E 1212 | DC PAIRA PTR USED IF BIT 12 ON 2-9 AP112120
060F 021A 1213 | DC PAIR8 POINTER USED IF BIT 13 ON AP112130
0610 0210 1214 | DC PAIR3 PTR USED IF BIT 14 ON 2-9 AP112140
0611 020E 1215 | DC PAIR2 POINTER USED IF BIT 15 ON AP112150
0612 022A 1216 | AD920 DC LOLIM MODIFIABLE PTR TO SKIP TBL AP112160
PROCESS SYSTEM CONFIG RECORDS
0613 0000 1218 | AE000 DC 0 ENTRY AP112180
0614 4400 0A01 1219 | BSI L COM34 TEST WORDS 3 AND 4 OF RCD AP112190
0616 902B 1220 | S AE904 *AGAINST EBCDIC 'RE' AP112200
0617 4C18 0645 1221 | BSC L AF000,+- BR IF A 'CORE' RECORD AP112210
0619 8028 1222 | A AE904 TEST FOR AP112220
061A 9025 1223 | S AE902 *AND AP112230
061B 4C18 0667 1224 | BSC L AG000,+- *BR IF 'TERM' RECORD AP112240
061D 8022 1225 | A AE902 TEST FOR AND AP112250
061E 9022 1226 | S AE903 *BR IF NOT 'REQ' RECORD AP112260
061F 4420 0B2E 1227 | BSI L ER013,Z CONFIG TAPE ERROR BRANCH AP112270
1228 | * AP112280
1229 | * PROCESS 'REQ' RECORDS AP112290
1230 | * AP112300
0621 74FF 0643 1231 | MDX L AE905,-1 DECR 'REQ' CNT, SK IF ZERO AP112310
0623 7002 1232 | MDX AE010 BRANCH TO PROCESS 'REQ' RCD AP112320
0624 4400 0B2E 1233 | BSI L ER013 BR IF MORE THAN 20 'REQ'S AP112330
0626 6500 049E 1234 | AE010 LDX L1 AA904+8 FETCH 2 DIGIT ISS AP112340
0628 6202 1235 | LDX 2 2 *NUMBER AND CONVERT AP112350
0629 4400 09EF 1236 | BSI L EBTDC *TO DECIMAL AP112360
062B 1000 1237 | NOP DEBUG STOP AP112370
062C C340 1238 | LD 3 AZ972-E FETCH RESULT AP112380
062D E341 1239 | AND 3 AZ973-E MASK OUT LEFT 11 BITS AP112390
062E D400 0E3B 1240 | AE040 STO L CONFG SAVE ISS NO. IN CONFIG TBL AP112400
0630 7401 062F 1241 | MDX L AE040+1,1 INCR CONFIG TBL STORE ADDR AP112410
0632 7405 0627 1242 | MDX L AE010+1,5 INCR TO NEXT RECORD FIELD AP112420
0634 74FF 0644 1243 | MDX L AE906,-1 DECR DATA SETS COUNT AP112430
0636 70EF 1244 | MDX AE010 FETCH NEXT DATA SET AP112440
0637 7403 0644 1245 | MDX L AE906,3 RESET DATA SETS COUNT AP112450
0639 74F1 0627 1246 | MDX L AE010+1,-15 RESET REL LOC IN INPUT AP112460
063B C325 1247 | LD 3 AZ939-E INCREMENT AP112470
063C 8301 1248 | A 3 AZ901-E *THE 'REQ' AP112480
063D D325 1249 | STO 3 AZ939-E *RECORD COUNT AP112490
063E 4C00 0454 1250 | BSC L AA040 BRANCH TO READ NEXT RECORD AP112500
1251 | * AP112510
1252 | * CONSTANTS AND WORK AREAS AP112520
1253 | * AP112530
0640 D9D4 1254 | AE902 EBC .RM. TO TEST FOR 'TERM' AP112540
0641 D840 1255 | AE903 EBC .Q . TO TEST FOR 'REQ ' AP112550
0642 D9C5 1256 | AE904 EBC .RE. TO TEST FOR 'CORE' AP112560
0643 0015 1257 | AE905 DC 20+1 'REQ' RECORDS LIMIT AP112570
0644 0003 1258 | AE906 DC 3 NO. OF GROUPS/'REQ' RECORD AP112580
SET CORE SIZE
1260 | *************************************************** AP112600
1261 | * AP112610
1262 | * AP112620
0645 6500 049B 1263 | AF000 LDX L1 AA904+5 POINT XR1 TO WORD 6 AP112630
0647 6202 1264 | LDX 2 2 AP112640
0648 4400 09EF 1265 | BSI L EBTDC EBCDIC TO DECIMAL AP112650
1266 | * AP112660
064A C340 1267 | LD 3 AZ972-E TEST RESULT FOR AP112670
064B 100A 1268 | SLA 10 AP112680
064C 4C28 0659 1269 | BSC L AF032,+Z *32K AP112690
064E 1001 1270 | SLA 1 AP112700
064F 4C28 065E 1271 | BSC L AF016,+Z *OR 16K AP112710
0651 1001 1272 | SLA 1 AP112720
0652 4C28 0661 1273 | BSC L AF008,+Z *OR 8K AP112730
0654 1001 1274 | SLA 1 AP112740
0655 4C28 0664 1275 | BSC L AF004,+Z *OR 4K AP112750
0657 4400 0B2E 1276 | BSI L ER013 INVALID CORE RECORD AP112760
1277 | * AP112770
1278 | * AP112780
0659 C31A 1279 | AF032 LD 3 AZ926-E SET 32K AP112790
065A D400 01FB 1280 | STO L SCORE *CORE SIZE AP112800
065C 4C00 0454 1281 | BSC L AA040 BR TO READ NEXT RECORD AP112810
1282 | * AP112820
065E C31A 1283 | AF016 LD 3 AZ926-E SET 16K AP112830
065F 1801 1284 | SRA 1 *CORE SIZE AP112840
0660 70F9 1285 | MDX AF032+1 READ NEXT RECORD AP112850
1286 | * AP112860
0661 C31A 1287 | AF008 LD 3 AZ926-E SET 8K AP112870
0662 1802 1288 | SRA 2 *CORE SIZE AP112880
0663 70F6 1289 | MDX AF032+1 READ NEXT RECORD AP112890
1290 | * AP112900
0664 C001 1291 | AF004 LD AF901 SET 4K CORE SIZE AP112910
0665 70F4 1292 | MDX AF032+1 READ NEXT RECORD AP112920
1293 | * AP112930
0666 1000 1294 | AF901 DC /1000 CONSTANT FOR 4K AP112940
1295 | * AP112950
1296 | *************************************************** AP112960
PROCESS TERM RECORD
0667 4400 0A31 1298 | AG000 BSI L SAVXR BR TO SAVE INDEX REGISTERS AP112980
0669 6500 0E3A 1299 | AG010 LDX L1 CONFG-1 XR1 PTS TO 'REQ' STG AREA AP112990
066B C101 1300 | LD 1 1 FETCH AN ISS NUMBER AP113000
066C 4408 0B2E 1301 | BSI L ER013,+ BRANCH IF NOT POSITIVE AP113010
066E 930A 1302 | S 3 AZ909-E TEST FOR AND BRANCH IF AP113020
066F 4430 0B2E 1303 | BSI L ER013,Z- *GREATER THAN MAXIMUM (20) AP113030
0671 C101 1304 | LD 1 1 FETCH ISS NUMBER AGAIN AP113040
0672 9301 1305 | S 3 AZ901-E TEST FOR AND BRANCH IF AP113050
0673 4C30 0689 1306 | BSC L AG030,Z- *GREATER THAN 1 (NOT 1442) AP113060
0675 C103 1307 | LD 1 3 TEST FOR AND BRANCH IF AP113070
0676 4408 0B2E 1308 | BSI L ER013,+ *NO MOD (5, 6 OR 7) NUMBER AP113080
0678 7401 06F3 1309 | MDX L AG913,1 INCREMENT ISS 1 INDICATOR AP113090
067A 9305 1310 | S 3 AZ905-E TEST FOR AND AP113100
067B 4C18 0685 1311 | BSC L AG020,+- *BRANCH IF A 1442-5 AP113110
067D 9301 1312 | S 3 AZ901-E TEST FOR AND AP113120
067E 4C18 068B 1313 | BSC L AG040,+- *BRANCH IF A 1442-6 AP113130
0680 9301 1314 | S 3 AZ901-E TEST FOR AND AP113140
0681 4C18 068B 1315 | BSC L AG040,+- *BRANCH IF A 1442-7 AP113150
0683 4400 0B2E 1316 | BSI L ER013 BRANCH, MODEL UNKNOWN AP113160
1317 | * AP113170
0685 C06D 1318 | AG020 LD AG913 FETCH INDICATOR AP113180
0686 9302 1319 | S 3 AZ902-E TEST FOR AND AP113190
0687 4420 0B2E 1320 | BSI L ER013,Z *BRANCH IF NOT EQUAL TO 2 AP113200
0689 C101 1321 | AG030 LD 1 1 FETCH ISS NUMBER AP113210
068A 7003 1322 | MDX AG050 BR TO PROCESS NEXT 'REQ' AP113220
068B C301 1323 | AG040 LD 3 AZ901-E INDICATE AP113230
068C D400 01F7 1324 | STO L T1442 *1442-6 OR 7 AP113240
068E 10A0 1325 | AG050 SLT 32 CLEAR ACC AND EXT AP113250
068F C101 1326 | LD 1 1 FETCH ISS NUMBER AP113260
0690 9309 1327 | S 3 AZ908-E TEST FOR AND AP113270
0691 4C30 069D 1328 | BSC L AG060,Z- *BRANCH IF GREATER THAN 15 AP113280
0693 C101 1329 | LD 1 1 FETCH ISS NUMBER AP113290
0694 D001 1330 | STO AG054+1 *AND SAVE TO SET XR2 AP113300
0695 6600 0000 1331 | AG054 LDX L2 *-* SET XR2 FOR SHIFT AP113310
0697 C31A 1332 | LD 3 AZ926-E FETCH SIGN BIT AP113320
0698 1AC0 1333 | RTE 2 0 SHIFT TO APPROPRIATE POS AP113330
0699 EC00 01F8 1334 | OR L DINDR 'OR' IN REST OF INDICATOR AP113340
069B D400 01F8 1335 | STO L DINDR *AND SAVE AP113350
069D 7403 066A 1336 | AG060 MDX L AG010+1,3 POINT TO NEXT 'REQ' RCRD AP113360
069F 4400 0A37 1337 | BSI L RSTXR RESTORE INDEX REGISTERS AP113370
06A1 74FF 0B77 1338 | MDX L AZ939,-1 DECR 'REQ' CNT, SK IF ZERO AP113380
06A3 70C5 1339 | MDX AG010 BR TO PROCESS NEXT 'REQ' AP113390
1340 | * AP113400
1341 | * SET INDICATOR TO PROCESS PHASE ID RECORD(S) NEXT AP113410
1342 | * AP113420
06A4 1000 1343 | NOP A WAIT MAY BE PATCHED HERE AP113430
06A5 C400 01F8 1344 | LD L DINDR FETCH ISS INDICATOR AP113440
06A7 D04A 1345 | STO AG912 *AND SAVE TEMPORARLY AP113450
06A8 1806 1346 | SRA 6 TEST FOR AND AP113460
06A9 4C04 06D6 1347 | BSC L AG120,E *BRANCH IF 1403 AP113470
06AB 1803 1348 | SRA 3 TEST FOR AND AP113480
06AC 4C04 06DB 1349 | BSC L AG130,E *BRANCH IF 1132 AP113490
06AE C31A 1350 | LD 3 AZ926-E SET CONSOLE PRINTER AP113500
06AF D400 020B 1351 | STO L PRNPR *AS PRINCIPAL PRINT DEVICE AP113510
06B1 C83E 1352 | LDD AG910 SAVE PHASE ID AND CHAN 12 AP113520
06B2 DC00 0206 1353 | AG080 STD L PTRID *INDR OF PRINC PRINT DEVICE AP113530
06B4 7400 06F4 1354 | MDX L AG914,0 SKIP IF BRANCH INDR ZERO AP113540
06B6 7029 1355 | MDX AG140 BR IF END OF REQ PROCESS AP113550
06B7 683C 1356 | STX 0 AG914 SET BRANCH INDR NON-ZERO AP113560
06B8 7402 06B3 1357 | MDX L AG080+1,2 INCREMENT STORE ADDRESS AP113570
06BA C037 1358 | LD AG912 FETCH ISS SUMMARY WORD AP113580
06BB 180B 1359 | SRA 11 TEST FOR AND AP113590
06BC 4C04 06C7 1360 | BSC L AG090,E *BRANCH IF 2501 AP113600
06BE 1803 1361 | SRA 3 TEST FOR AND AP113610
06BF 4C04 06CC 1362 | BSC L AG100,E *BRANCH IF 1442-6 OR 7 AP113620
06C1 C030 1363 | LD AG912 FETCH ISS SUMMARY WORD AP113630
06C2 180C 1364 | SRA 12 TEST FOR AND AP113640
06C3 4C04 06D1 1365 | BSC L AG110,E *BRANCH IF 1134 (PAP TAPE) AP113650
06C5 4400 0B2E 1366 | BSI L ER013 BRANCH, NO INPUT DEVICE AP113660
06C7 C301 1367 | AG090 LD 3 AZ901-E SET 2501/1442 AP113670
06C8 D400 020A 1368 | STO L PRNRD *AS PRINCIPAL I/O DEVICE AP113680
06CA C81B 1369 | LDD AG900 SAVE PHASE ID OF PRINC I/O AP113690
06CB 70E6 1370 | MDX AG080 *DEVICE AND CONVERSION SUBR AP113700
06CC 1810 1371 | AG100 SRA 16 SET 1442/1442 AP113710
06CD D400 020A 1372 | STO L PRNRD *AS PRINCIPAL I/O DEVICE AP113720
06CF C818 1373 | LDD AG902 SAVE PHASE ID OF PRINC I/O AP113730
06D0 70E1 1374 | MDX AG080 *DEVICE AND CONVERSION SUBR AP113740
06D1 C31A 1375 | AG110 LD 3 AZ926-E SET 1134/1055 AP113750
06D2 D400 020A 1376 | STO L PRNRD *AS PRINCIPAL I/O DEVICE AP113760
06D4 C815 1377 | LDD AG904 SAVE PHASE ID OF PRINC I/O AP113770
06D5 70DC 1378 | MDX AG080 *DEVICE AND CONVERSION SUBR AP113780
06D6 C301 1379 | AG120 LD 3 AZ901-E SET 1403 AP113790
06D7 D400 020B 1380 | STO L PRNPR *AS PRINCIPAL PRINT DEVICE AP113800
06D9 C812 1381 | LDD AG906 SAVE PHASE ID AND CHAN 12 AP113810
06DA 70D7 1382 | MDX AG080 *INDR OF PRINC PRINT DEVICE AP113820
06DB 1810 1383 | AG130 SRA 16 SET 1132 AP113830
06DC D400 020B 1384 | STO L PRNPR *AS PRINCIPAL PRINT DEVICE AP113840
06DE C80F 1385 | LDD AG908 SAVE PHASE ID AND CHAN 12 AP113850
06DF 70D2 1386 | MDX AG080 *INDR OF PRINC PRINT DEVICE AP113860
06E0 D32D 1387 | AG140 STO 3 AZ949-E INDICATE SPEC RECORD NEXT AP113870
06E1 C301 1388 | LD 3 AZ901-E INDICATE AP113880
06E2 D320 1389 | STO 3 AZ933-E *'PHID' RECORD NEXT AP113890
06E3 4C00 0454 1390 | BSC L AA040 BRANCH TO READ NEXT RECORD AP113900
1391 | * AP113910
1392 | * CONSTANTS AND WORK AREAS AP113920
1393 | * AP113930
06E6 1394 | BSS E 0 FORCE NEXT LOC TO BE EVEN AP113940
06E6 008F 1395 | AG900 DC I2501 PHASE ID 2501 RDR SUBR AP113950
06E7 0093 1396 | DC CDCNV PHASE ID 2501 CNV SUBR AP113960
06E8 0090 1397 | AG902 DC I1442 PHASE ID 1442 RDR SUBR AP113970
06E9 0093 1398 | DC CDCNV PHASE ID 1442 CNV SUBR AP113980
06EA 0091 1399 | AG904 DC @1134 PHASE ID 1134 RDR SUBR AP113990
06EB 0094 1400 | DC C1134 PHASE ID 1134 CNV SUBR AP114000
06EC 008C 1401 | AG906 DC P1403 PHASE ID 1403 PTR SUBR AP114010
06ED 0080 1402 | DC $1403 1403 PTR CHANNEL 12 INDR AP114020
06EE 008D 1403 | AG908 DC P1132 PHASE ID 1132 PTR SUBR AP114030
06EF 007F 1404 | DC $1132 1132 PTR CHANNEL 12 INDR AP114040
06F0 008E 1405 | AG910 DC PCPAD PHASE ID CNSL PTR SUBR AP114050
06F1 007E 1406 | DC $CPTR CNSL PTR CHANNEL 12 INDR AP114060
06F2 0000 1407 | AG912 DC *-* DEVICE INDR TEMPORARY STG AP114070
06F3 0001 1408 | AG913 DC 1 INDR TO CHECK ISS 1 RECORDS AP114080
06F4 0000 1409 | AG914 DC 0 BRANCH INDICATOR AP114090
VERIFY PRESENCE OF F RECORD
06F5 0000 1411 | AH000 DC 0 ENTRY AP114110
06F6 C32E 1412 | LD 3 AZ950-E TEST FOR AND BRANCH AP114120
06F7 4418 0A64 1413 | BSI L ER003,+- *IF TYPE 'F' INDR NOT SET AP114130
06F9 1010 1414 | SLA 16 CLEAR AP114140
06FA D32E 1415 | AH010 STO 3 AZ950-E *TYPE 'F' INDICATOR AP114150
06FB C301 1416 | LD 3 AZ901-E INDICATE AP114160
06FC D32A 1417 | STO 3 AZ944-E *ABSOLUTE PROGRAM AP114170
06FD 7008 1418 | MDX AH050 BRANCH TO WRITE SECTOR AP114180
06FE C400 0BF7 1419 | AH020 LD L BUFFR+1 FETCH AND STORE AP114190
0700 D327 1420 | STO 3 AZ941-E *CURRENT SECTOR ADDRESS AP114200
0701 7002 1421 | MDX AH040 BR TO INDICATE REL PROGRAM AP114210
0702 C31F 1422 | AH030 LD 3 AZ932-E FETCH AND STORE AP114220
0703 D327 1423 | STO 3 AZ941-E *LAST SECTOR ADDRESS AP114230
0704 C31C 1424 | AH040 LD 3 AZ928-E INDICATE AP114240
0705 D32A 1425 | STO 3 AZ944-E *RELOCATABLE PROGRAM AP114250
0706 C336 1426 | AH050 LD 3 AZ961-E RESET AP114260
0707 D400 091E 1427 | STO L CK300 *CHECKSUM PROCESSING AP114270
0709 4400 0A40 1428 | BSI L WRITE BR TO WRITE PREVIOUS SECTOR AP114280
070B 1810 1429 | SRA 16 CLEAR AP114290
070C D400 0933 1430 | STO L CK900 *CHECKSUM SEQUENCE NUMBER AP114300
070E D321 1431 | STO 3 AZ934-E *AND CORRELATION FACTOR AP114310
070F C331 1432 | LD 3 AZ956-E SET BRANCH ADDRESS AP114320
0710 D400 078F 1433 | STO L AJ040+1 *IN DATA RECORD PROCESSING AP114330
0712 C316 1434 | LD 3 AZ922-E SET OPERATION AP114340
0713 D400 078E 1435 | STO L AJ040 *IN DATA RECORD PROCESSING AP114350
0715 1810 1436 | SRA 16 CLEAR AP114360
0716 D32C 1437 | STO 3 AZ948-E *SECTOR BREAK INDICATOR AP114370
0717 C30B 1438 | LD 3 AZ912-E FORCE NEXT PROGRAM TO BE AP114380
0718 D329 1439 | STO 3 AZ943-E *STORED ON A NEW SECTOR AP114390
1440 | * AP114400
1441 | * SAVE COMMA WORDS ON RELOAD FUNCTION AP114410
1442 | * AP114420
0719 C328 1443 | LD 3 AZ942-E TEST FOR AND BRANCH IF AP114430
071A 4C18 0733 1444 | BSC L AH060,+- *NOT READING THE RES IMAGE AP114440
071C C400 01F5 1445 | LD L LMODE FETCH LOAD MODE INDICATOR AP114450
071E 4C28 0733 1446 | BSC L AH060,Z+ BRANCH IF AN INITIAL LOAD AP114460
0720 C334 1447 | LD 3 AZ959-E FETCH RES IMAGE SCTR ADDR AP114470
0721 D400 0BF7 1448 | STO L BUFFR+1 *AND STORE TO I/O AREA AP114480
0723 4400 09C2 1449 | BSI L FETCH BRANCH TO FETCH RES IMAGE AP114490
0725 6600 0BF2 1450 | LDX L2 BUFFR+2-6 POINT TO PSEUDO WORD 0 AP114500
0727 C212 1451 | LD 2 $DREQ AP114510
0728 D33A 1452 | STO 3 AZ966-E AP114520
0729 C22D 1453 | LD 2 $ULET AP114530
072A D33B 1454 | STO 3 AZ967-E SAVE WORDS TO BE RESTORED AP114540
072B C276 1455 | LD 2 $DZIN *AFTER THE RESIDENT IMAGE AP114550
072C D33C 1456 | STO 3 AZ968-E *DECK HAS BEEN READ AP114560
072D C400 0C87 1457 | LD L BUFFR+2-6+$FPAD AP114570
072F D33D 1458 | STO 3 AZ969-E AP114580
0730 C400 0C96 1459 | LD L BUFFR+2-6+$DCYL AP114590
0732 D33E 1460 | STO 3 AZ970-E AP114600
0733 4C00 0454 1461 | AH060 BSC L AA040 BRANCH TO READ NEXT RECORD AP114610
PROCESS LOAD MODE RECORD
1463 | * AP114630
1464 | * DETERMINE LOAD MODE AP114640
1465 | * AP114650
0735 0000 1466 | AI000 DC 0 ENTRY AP114660
0736 C107 1467 | LD 1 7 FETCH WORD 7 AP114670
0737 F03A 1468 | EOR AI900 TEST FOR AND AP114680
0738 4C18 073F 1469 | BSC L AI010,+- *BRANCH IF AN 'R' AP114690
073A C107 1470 | LD 1 7 FETCH WORD 7 AGAIN AP114700
073B F037 1471 | EOR AI901 TEST FOR AND AP114710
073C 4420 0A76 1472 | BSI L ER017,Z *BRANCH IF NOT AN 'I' AP114720
073E C31A 1473 | LD 3 AZ926-E SET SIGN FOR INIT LOAD AP114730
073F D034 1474 | AI010 STO AI902 *RELOAD=0, INIT LOAD=NON-Z AP114740
1475 | * AP114750
1476 | * INDICATE PH ID PAIRS TO BE BYPASSED AP114760
1477 | * AP114770
0740 C10B 1478 | LD 1 11 FETCH WORD 12 2-5 AP114780
0741 F033 1479 | EOR AI903 TEST FOR BLANK 2-5 AP114790
0742 4C18 074A 1480 | BSC L AI020,+- BRANCH IF BLANK 2-5 AP114800
0744 C10B 1481 | LD 1 11 FETCH WORD 12 2-5 AP114810
0745 F030 1482 | EOR AI904 TEST FOR 'A' 2-5 AP114820
0746 4C20 0A76 1483 | BSC L ER017,Z BRANCH IF NOT 2-5 AP114830
0748 7408 0774 1484 | MDX L AI902,8 SET INT BIT 12 2-9 AP114840
074A C10C 1485 | AI020 LD 1 12 FETCH WORD 13 2-5 AP114850
074B F029 1486 | EOR AI903 TEST FOR BLANK 2-5 AP114860
074C 4C18 0754 1487 | BSC L AI030,+- BRANCH IF BLANK 2-5 AP114870
074E C10C 1488 | LD 1 12 FETCH WORD 13 2-5 AP114880
074F F027 1489 | EOR AI905 TEST FOR 'F' 2-5 AP114890
0750 4C20 0A76 1490 | BSC L ER017,Z BRANCH IF NOT 2-5 AP114900
0752 7401 0774 1491 | MDX L AI902,1 SET IND BIT 15 2-5 AP114910
0754 C10D 1492 | AI030 LD 1 13 FETCH WORD 14 2-5 AP114920
0755 F01F 1493 | EOR AI903 TEST FOR BLANK 2-5 AP114930
0756 4C18 075E 1494 | BSC L AI040,+- BRANCH IF BLANK 2-5 AP114940
0758 C10D 1495 | LD 1 13 FETCH WORD 14 2-5 AP114950
0759 F018 1496 | EOR AI900 TEST FOR 'R' 2-5 AP114960
075A 4C20 0A76 1497 | BSC L ER017,Z BRANCH IF NOT 2-5 AP114970
075C 7404 0774 1498 | MDX L AI902,4 SET IND BIT 13 2-5 AP114980
075E C10E 1499 | AI040 LD 1 14 FETCH WORD 15 2-5 AP114990
075F F015 1500 | EOR AI903 TEST FOR BLANK 2-5 AP115000
0760 4C18 0767 1501 | BSC L AI045,+- BRANCH IF BLANK 2-8 AP115010
0762 C10E 1502 | LD 1 14 FETCH WORD 15 2-5 AP115020
0763 F014 1503 | EOR AI906 IF 'C', LOAD COBOL 2-9 AP115030
0764 4C20 0A76 1504 | BSC L ER017,Z BRANCH IF NOT 2-5 AP115040
0766 7002 1505 | MDX AI050 DO NOT SET BIT 14 ON 2-9 AP115050
0767 7402 0774 1506 | AI045 MDX L AI902,2 SET INT BIT 14 ON 2-9 AP115060
0769 C00A 1507 | AI050 LD AI902 SAVE 2-5 AP115070
076A D400 01F5 1508 | STO L LMODE *THE 2-5 AP115080
076C D700 0026 1509 | STO L3 AZ940-E *INDICATORS 2-5 AP115090
076E 6C00 0B81 1510 | STX L0 AZ952 SET INDR FOR BINARY INPUT AP115100
0770 4C00 0454 1511 | BSC L AA040 BRANCH TO READ NEXT RECORD AP115110
1512 | * AP115120
1513 | * CONSTANTS AND WORK AREAS AP115130
1514 | * AP115140
0772 00D9 1515 | AI900 DC /00D9 EBCDIC 'R' AP115150
0773 00C9 1516 | AI901 DC /00C9 EBCDIC 'I' AP115160
0774 0000 1517 | AI902 DC *-* TEMPORARY STORAGE AP115170
0775 0040 1518 | AI903 DC /0040 EBCDIC BLANK 2-5 AP115180
0776 00C1 1519 | AI904 DC /00C1 EBCDIC 'A' 2-5 AP115190
0777 00C6 1520 | AI905 DC /00C6 EBCDIC 'F' 2-5 AP115200
0778 00C3 1521 | AI906 DC /00C3 EBCDIC 'C' 2-9 AP115210
PROCESS TYPE A DATA RECORD
0779 0000 1523 | AJ000 DC 0 ENTRY AP115230
077A 18D0 1524 | RTE 16 ISOLATE WORD COUNT AP115240
077B 1808 1525 | SRA 8 AP115250
077C D00C 1526 | STO AJ020+1 WD CNT FROM RCD TO XR2 AP115260
077D 4400 090B 1527 | BSI L CKSUM PROCESS CHK-SUM IF PRESENT AP115270
077F C32A 1528 | LD 3 AZ944-E TEST NEW SCTR INDR & IF ON AP115280
0780 4C20 07CF 1529 | BSC L AJ140,Z *BR TO VERIFY WD CNT OVER 1 AP115290
0782 4C30 07C1 1530 | AJ010 BSC L AJ110,Z- BR TO ABS SCTR BREAK SUBR AP115300
0784 4C28 07C5 1531 | BSC L AJ120,Z+ BR TO RELATIVE BREAK SUBR AP115310
0786 C319 1532 | LD 3 AZ925-E AVOID LONG ADD INSTRUCTION AP115320
0787 D003 1533 | STO AJ030 *BY INSERTING A SKIP AP115330
0788 6600 0000 1534 | AJ020 LDX L2 *-* SET XR2 WITH WD CNT OF RCD AP115340
078A C101 1535 | LD 1 1 FETCH CORE LOADING ADDR AP115350
078B 7002 1536 | AJ030 MDX *+2 AT SCTR BREAKS, ADDR OF AP115360
078C 8400 0B54 1537 | A L AZ902 *1ST WD TO STORE IS UP BY 2 AP115370
078E 4400 0A21 1538 | AJ040 BSI L RELAD CALC RELOCATION FACTOR AP115380
0790 9400 0B7D 1539 | S L AZ945 MAINTAIN LONG FORMAT INST AP115390
0792 4428 0A6A 1540 | BSI L ER004,Z+ ORG BACKWARD MSG AP115400
0794 D323 1541 | AJ050 STO 3 AZ937-E SAVE RELATIVE ADDR AP115410
0795 1890 1542 | SRT 16 SHIFT TO EXTENSION AP115420
0796 AB0B 1543 | D 3 AZ912-E DIVIDE BY WDS PER SECTOR AP115430
0797 DB38 1544 | STD 3 AZ964-E SAVE QUOTIENT & REMAINDER AP115440
0798 9329 1545 | S 3 AZ943-E BR IF SCTR FOR THIS PART OF AP115450
0799 4C18 07A9 1546 | BSC L AJ070,+- *PROGRAM ALREADY IN CORE AP115460
079B C32C 1547 | LD 3 AZ948-E THIS INDR CLEARED ON SCTR AP115470
079C 4C18 07D9 1548 | BSC L AJ160,+- *BREAKS AP115480
079E C338 1549 | LD 3 AZ964-E FETCH QUOTIENT AP115490
079F D329 1550 | STO 3 AZ943-E SET POINTER AP115500
07A0 4400 0A40 1551 | BSI L WRITE WRITE A SECTOR AP115510
07A2 C338 1552 | LD 3 AZ964-E FETCH QUOTIENT AP115520
07A3 8322 1553 | AJ060 A 3 AZ935-E ADD SCTR ADDR AP115530
07A4 D400 0BF7 1554 | STO L BUFFR+1 SET SCTR ADDR IN BUFFER AP115540
07A6 4400 09C2 1555 | BSI L FETCH READ A SECTOR FROM DISK AP115550
07A8 CB38 1556 | LDD 3 AZ964-E FETCH REMAINDER AP115560
07A9 1090 1557 | AJ070 SLT 16 REL LOC IN CORE BUFFER AP115570
07AA 8400 0B54 1558 | A L AZ902 INCR BY 2 AP115580
07AC 8330 1559 | A 3 AZ954-E ADD BUFFER ADDR AP115590
07AD D00B 1560 | STO AJ090+1 SET ADDR IN STORE INST AP115600
07AE C32A 1561 | LD 3 AZ944-E TEST FOR SECTOR BREAK AP115610
07AF 4C18 07B4 1562 | BSC L AJ080,+- BR IF NOT AP115620
07B1 1810 1563 | SRA 16 INDICATE NEW SCTR REQ AP115630
07B2 D32A 1564 | STO 3 AZ944-E AP115640
07B3 7102 1565 | MDX 1 2 FETCH 3RD DATA WORD AP115650
07B4 C10A 1566 | AJ080 LD 1 10 NO SCTR ADDR IN THIS CARD AP115660
07B5 7200 1567 | MDX 2 0 TEST XR2 FOR 0 AP115670
07B6 7001 1568 | MDX AJ090 STORE A WORD AP115680
07B7 7007 1569 | MDX AJ100 READ NEXT RECORD AP115690
07B8 D400 0000 1570 | AJ090 STO L *-* DATA WD TO DISK BUFFER AP115700
07BA C323 1571 | LD 3 AZ937-E CORE ADDR OF DATA WD AP115710
07BB 8301 1572 | A 3 AZ901-E MODIFY POINTER AP115720
07BC 7101 1573 | MDX 1 1 AP115730
07BD 72FF 1574 | MDX 2 -1 SKIP AFTER LAST WD DONE AP115740
07BE 70D5 1575 | MDX AJ050 *ELSE PROCESS NEXT WORD AP115750
07BF 4C00 0454 1576 | AJ100 BSC L AA040 READ NEXT RECORD AP115760
1577 | * AP115770
07C1 C10B 1578 | AJ110 LD 1 11 FETCH FROM 1ST DATA RECORD AP115780
07C2 D322 1579 | STO 3 AZ935-E SAVE SCTR ADDR AP115790
07C3 D31F 1580 | STO 3 AZ932-E SAVE BASE SCTR ADDR AP115800
07C4 7003 1581 | MDX AJ130 TO FETCH WD CNT AP115810
1582 | * AP115820
07C5 C10B 1583 | AJ120 LD 1 11 SECTOR ADDR AP115830
07C6 8327 1584 | A 3 AZ941-E PREVIOUS SCTR ADDR AP115840
07C7 D322 1585 | STO 3 AZ935-E AP115850
1586 | * AP115860
07C8 C0C0 1587 | AJ130 LD AJ020+1 FETCH WORD COUNT AP115870
07C9 9400 0B54 1588 | S L AZ902 DECR BY 2 AP115880
07CB D0BD 1589 | STO AJ020+1 STORE BACK AP115890
07CC C315 1590 | LD 3 AZ921-E FETCH 'NOP' INST AP115900
07CD D0BD 1591 | STO AJ030 *TO CANCEL 'MDX *+2' AP115910
07CE 70B9 1592 | MDX AJ020 TO PROCESS DATA RCD AP115920
1593 | * AP115930
07CF C400 0789 1594 | AJ140 LD L AJ020+1 FETCH WD COUNT AP115940
07D1 9301 1595 | S 3 AZ901-E DECR BY 1 AP115950
07D2 4830 1596 | BSC Z- SKIP IF WD CNT 0 OR 1 AP115960
07D3 7002 1597 | MDX AJ150 CONTINUE IF POSITIVE AP115970
07D4 4400 0A6A 1598 | BSI L ER004 ORG BACKWARD ERROR AP115980
07D6 C32A 1599 | AJ150 LD 3 AZ944-E RELOAD SCTR INDICATOR AP115990
07D7 4C00 0782 1600 | BSC L AJ010 RETURN AP116000
1601 | * AP116010
07D9 C338 1602 | AJ160 LD 3 AZ964-E FETCH NEW SCTR INDR AP116020
07DA D329 1603 | STO 3 AZ943-E AP116030
07DB 7401 0B7E 1604 | MDX L AZ948,1 TEST FOR AND AP116040
07DD 70C5 1605 | MDX AJ060 *BR IF NOT SCTR BREAK AP116050
07DE 4400 06F5 1606 | BSI L AH000 BRANCH TO FETCH NEXT SECTOR AP116060
INITIALIZE RES MON AND DISKZ
1608 | * AP116080
1609 | * ROLL RESIDENT IMAGE AND DISKZ TO LOWER CORE AP116090
1610 | * AP116100
07E0 0000 1611 | AK000 DC 0 ENTRY AP116110
07E1 C328 1612 | LD 3 AZ942-E TEST FOR AND BRANCH IF AP116120
07E2 4C18 08E5 1613 | BSC L AK080,+- *PROG JUST READ NOT RES IMG AP116130
07E4 D32E 1614 | STO 3 AZ950-E SET 'F' RECORD INDR ON AP116140
07E5 6500 FE26 1615 | LDX L1 6-$ZEND WORD COUNT = -(-6+$ZEND) AP116150
07E7 C500 0DD2 1616 | AK010 LD L1 BUFFR+$ZEND-4 FETCH WORD FROM BUFFER AP116160
07E9 D500 01E0 1617 | STO L1 $ZEND STORE TO LOWER CORE AP116170
07EB 7101 1618 | MDX 1 1 INCR WORD CNT, SKIP IF ZERO AP116180
07EC 70FA 1619 | MDX AK010 BRANCH TO FETCH NEXT WORD AP116190
07ED 6500 00F7 1620 | LDX L1 DZ000+5 STORE ADDRESS OF DISKZ AP116200
07EF 6D00 00B9 1621 | STX L1 $I205+1 *INTERRUPT TO ILS02 AP116210
07F1 6500 0280 1622 | LDX L1 INTPT STORE ADDR OF INTRPT SUBR AP116220
07F3 6D00 002C 1623 | STX L1 $IREQ *TO INTERRUPT REQUEST AP116230
07F5 6500 0553 1624 | LDX L1 AA060-1 STORE ADDRESS OF INTERRUPT AP116240
07F7 6D00 00D4 1625 | STX L1 $IBT4 *BRANCH TABLE TO ILS04 AP116250
1626 | * AP116260
1627 | * FETCH DRIVE CODE FROM BIT SWITCHES AP116270
1628 | * AP116280
07F9 0862 1629 | AK020 XIO AK900 READ THE BIT SWITCHES AP116290
07FA C06C 1630 | LD AK907 TEST FOR AP116300
07FB 4C28 0855 1631 | BSC L AK030,Z+ *AND BRANCH AP116310
07FD 9304 1632 | S 3 AZ904-E *IF DRIVE CODE AP116320
07FE 4C30 0855 1633 | BSC L AK030,Z- *NOT 0-1-2-3-4 AP116330
0800 6580 0867 1634 | LDX I1 AK907 FETCH DRIVE CODE TO XR1 AP116340
0802 C500 0860 1635 | LD L1 AK904 FETCH AREA CODE AP116350
0804 D400 009F 1636 | STO L $ACDE *AND STORE TO COMMA AP116360
0806 C05F 1637 | LD AK906 INITIALIZE AP116370
0807 D400 00A4 1638 | STO L $DCYL *DEFECTIVE CYLINDER AP116380
0809 D400 00A5 1639 | STO L $DCYL+1 *ADDRESSES IN COMMA AP116390
080B D400 00A6 1640 | STO L $DCYL+2 FORCE DISKZ TO SEEK AP116400
080D D400 009A 1641 | STO L $CYLN *BEFORE FIRST OPERATION AP116410
080F C30B 1642 | LD 3 AZ912-E RESET AP116420
0810 1801 1643 | SRA 1 *BUFFER SIZE AP116430
0811 D30B 1644 | STO 3 AZ912-E *TO 320 AP116440
0812 1810 1645 | SRA 16 SET AP116450
0813 D324 1646 | STO 3 AZ938-E *INHIBIT SWITCH OFF AP116460
0814 D328 1647 | STO 3 AZ942-E *AND RES IMAGE SWITCH OFF AP116470
0815 C315 1648 | LD 3 AZ921-E CANCEL INSTRUCTION TO AP116480
0816 D400 06FA 1649 | STO L AH010 *SET 'F' RECORD INDICATOR AP116490
1650 | * AP116500
1651 | * IF RELOAD CHECK SLET/RELOAD TABLE CHECKSUM AP116510
1652 | * BEFORE WRITING TO THE DISK AP116520
1653 | * AP116530
0818 C400 01F5 1654 | LD L LMODE FETCH LOAD MODE INDICATOR AP116540
081A 4410 0966 1655 | BSI L CK600,- BRANCH IF A RELOAD AP116550
1656 | * AP116560
1657 | * AP116570
1658 | * UPDATE THE RESIDENT IMAGE ON RELOAD FUNCTION AP116580
1659 | * AP116590
081C C400 01F5 1660 | LD L LMODE FETCH LOAD MODE INDICATOR AP116600
081E 4C28 082E 1661 | BSC L AK025,Z+ BRANCH IF AN INITIAL LOAD AP116610
0820 6600 0BF2 1662 | LDX L2 BUFFR+2-6 POINT TO PSEUDO WORD 0 AP116620
0822 C33A 1663 | LD 3 AZ966-E AP116630
0823 D212 1664 | STO 2 $DREQ AP116640
0824 C33B 1665 | LD 3 AZ967-E RESTORE SAVED WORDS TO AP116650
0825 D22D 1666 | STO 2 $ULET *TO RESIDENT IMAGE BEFORE AP116660
0826 C33C 1667 | LD 3 AZ968-E *WRITING IT TO DISK AP116670
0827 D276 1668 | STO 2 $DZIN AP116680
0828 C33D 1669 | LD 3 AZ969-E AP116690
0829 D400 0C87 1670 | STO L BUFFR+2-6+$FPAD AP116700
082B C33E 1671 | LD 3 AZ970-E AP116710
082C D400 0C96 1672 | STO L BUFFR+2-6+$DCYL AP116720
1673 | * AP116730
1674 | * WRITE RESIDENT IMAGE TO DISK AP116740
1675 | * AP116750
082E C335 1676 | AK025 LD 3 AZ960-E FETCH AND STORE SECTOR ADDR AP116760
082F D400 0BF7 1677 | STO L BUFFR+1 *OF RES IMAGE TO I/O BUFFER AP116770
0831 4400 0A40 1678 | BSI L WRITE BRANCH TO WRITE RES. IMAGE AP116780
1679 | * AP116790
1680 | * FETCH FIRST THIRTY WORDS OF ID SECTOR AP116800
1681 | * AP116810
0833 6500 0CC2 1682 | LDX L1 BUFFR+@CSTR-4 SET UP ADDRESS OF AP116820
0835 6D00 0865 1683 | STX L1 AK905 *COLD START BUFFER AP116830
0837 C826 1684 | LDD AK902 STORE WORD COUNT AND SECTOR AP116840
0838 DC80 0865 1685 | STD I AK905 *ADDR TO COLD START BUFFER AP116850
083A C02A 1686 | LD AK905 FETCH ADDR OF C. S. BUFFER AP116860
083B 1890 1687 | SRT 16 SHIFT TO EXT, ACC = 0 AP116870
083C 4400 00F2 1688 | BSI L DZ000 BRANCH TO READ DISK AP116880
083E 7400 00EE 1689 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE AP116890
0840 70FD 1690 | MDX *-3 BR TO TEST READ COMPLETE AP116900
1691 | * AP116910
1692 | * WRITE NEW ID SECTOR (30 WDS & DISKZ & COLD START) AP116920
1693 | * AP116930
0841 C30B 1694 | LD 3 AZ912-E SET WORD COUNT TO WRITE AP116940
0842 D480 0865 1695 | STO I AK905 *COMPLETE SECTOR AP116950
0844 C020 1696 | LD AK905 FETCH ADDR OF C. S. BUFFER AP116960
0845 1890 1697 | SRT 16 SHIFT TO EXTENSION AP116970
0846 C301 1698 | LD 3 AZ901-E FETCH WRITE FUNCTION CODE AP116980
0847 4400 00F2 1699 | BSI L DZ000 BRANCH TO WRITE DISK AP116990
0849 7400 00EE 1700 | MDX L $DBSY,0 SKIP NEXT IF WRITE COMPLETE AP117000
084B 70FD 1701 | MDX *-3 BR TO TEST WRITE COMPLETE AP117010
1702 | * AP117020
1703 | * HISTORIC COMPATABILITY..... AP117030
1704 | * IF SLET/RELOAD TABLE CHECKSUM WAS ZERO, UPDATE AP117040
1705 | * SLET TO SPECIFICATIONS OF NEW SYSTEM LOADER. AP117050
1706 | * AP117060
084C C400 01F5 1707 | LD L LMODE FETCH LOAD MODE INDICATOR AP117070
084E 4C28 0854 1708 | BSC L AK029,Z+ BR IF INITIAL LOAD AP117080
0850 C400 095B 1709 | LD L CK913 FETCH OLD CHECKSUM AP117090
0852 4418 0980 1710 | BSI L CK630,+- BRANCH TO PACK SLET TABLE AP117100
1711 | * AP117110
0854 7015 1712 | AK029 MDX AK040 TEST CARTRIDGE STATUS AP117120
1713 | * AP117130
1714 | * ILLEGAL DRIVE CODE - PRINT MESSAGE E 11 AP117140
1715 | * AP117150
0855 6500 0A93 1716 | AK030 LDX L1 MSG11+1 POINT TO ERROR MESSAGE E 11 AP117160
0857 6680 0A92 1717 | LDX I2 MSG11 FETCH WORD CNT OF MSG E 11 AP117170
0859 4400 0B48 1718 | BSI L CNPTR BRANCH TO PRINT THE MESSAGE AP117180
085B 709D 1719 | MDX AK020 BRANCH TO RETRY AP117190
1720 | * AP117200
1721 | * CONSTANTS AND WORK AREAS AP117210
1722 | * AP117220
085C 1723 | BSS E 0 FORCE NEXT LOC TO BE EVEN AP117230
085C 0867 1724 | AK900 DC AK907 ADDRESS OF DRIVE CODE AP117240
085D 3A00 1725 | DC @I000 2ND WD OF READ BIT SW IOCC AP117250
085E 001E 1726 | AK902 DC $DBSY-@CSTR WORD COUNT AP117260
085F 0000 1727 | DC @IDAD SECTOR ADDRESS AP117270
0860 2000 1728 | AK904 DC @I510 AREA CODE OF PHY DRIVE 0 AP117280
0861 8800 1729 | DC @I511 AREA CODE OF PHY DRIVE 1 AP117290
0862 9000 1730 | DC @I512 AREA CODE OF PHY DRIVE 2 AP117300
0863 9800 1731 | DC @I513 AREA CODE OF PHY DRIVE 3 AP117310
0864 A000 1732 | DC @I514 AREA CODE OF PHY DRIVE 4 AP117320
0865 0000 1733 | AK905 DC *-* ADDR OF COLD AA040 BUFFER AP117330
0866 0658 1734 | AK906 DC @MSCT MAXIMUM ARM POSITION AP117340
0867 0000 1735 | AK907 DC *-* DRIVE CODE AP117350
0868 0800 1736 | AK908 DC /0800 HALF MIN CORE SIZE (2K) AP117360
0869 1000 1737 | AK909 DC @MNCR MINIMUM CORE SIZE (4K) AP117370
1738 | * AP117380
1739 | * DETERMINE STATUS OF CARTRIDGE AP117390
1740 | * AP117400
086A C334 1741 | AK040 LD 3 AZ959-E FETCH ID SECTOR ADDRESS AP117410
086B D400 0BF7 1742 | STO L BUFFR+1 *AND STORE TO I/O BUFFER AP117420
086D 4400 09C2 1743 | BSI L FETCH BRANCH TO FETCH ID SECTOR AP117430
1744 | * AP117440
086F C400 0BFF 1745 | LD L BUFFR+2+@STAT FETCH STATUS (WORD 7) AP117450
0871 9302 1746 | S 3 AZ902-E BR IF CARTRIDGE NOT ALREADY AP117460
0872 4C20 0879 1747 | BSC L AK045,Z *DM2 INITIAL LOADED AP117470
0874 C400 01F5 1748 | LD L LMODE FETCH LOAD MODE INDICATOR AP117480
0876 4428 0B22 1749 | BSI L ER005,Z+ BRANCH IF NOT A RELOAD FUNC AP117490
0878 7007 1750 | MDX AK050 AP117500
1751 | * AP117510
0879 8304 1752 | AK045 A 3 AZ904-E BR IF CARTRIDGE NOT JUST AP117520
087A 4420 0B22 1753 | BSI L ER005,Z *INITIALIZED AP117530
087C C400 01F5 1754 | LD L LMODE FETCH LOAD MODE INDICATOR AP117540
087E 4410 0B3A 1755 | BSI L ER016,- BRANCH IF NOT AN INIT LOAD AP117550
1756 | * AP117560
1757 | * DETERMINE VALIDITY OF CARTRIDGE INITIALIZATION AP117570
1758 | * AP117580
0880 C400 0BFB 1759 | AK050 LD L BUFFR+2+@CIDN FETCH CART ID (WORD 3) AP117590
0882 4408 0B28 1760 | BSI L ER012,+ BRANCH IF INVALID ID AP117600
0884 D400 01FE 1761 | STO L CARID SAVE CART ID FOR PHASE 2 AP117610
0886 62FD 1762 | LDX 2 -3 SET DEF CYL ADDRESSES COUNT AP117620
0887 C600 0BFB 1763 | AK055 LD L2 BUFFR+5 FETCH A DEF CYL ADDRESS AP117630
0889 9312 1764 | S 3 AZ918-E TEST FOR AND BRANCH IF AP117640
088A 4C30 0B28 1765 | BSC L ER012,Z- *INVALID (GT /0658) AP117650
088C 7201 1766 | MDX 2 1 INCR CYL CNT, SKIP IF ZERO AP117660
088D 7001 1767 | MDX *+1 AP117670
088E 7006 1768 | MDX AK060 LAST DEF CYL ADDRESS BRANCH AP117680
088F C600 0BFA 1769 | LD L2 BUFFR+4 FETCH DEF CYL ADDRESS AGAIN AP117690
0891 9600 0BFB 1770 | S L2 BUFFR+5 TEST FOR AND BRANCH IF AP117700
0893 4C30 0B28 1771 | BSC L ER012,Z- *GT NEXT DEF CYL ADDRESS AP117710
0895 C600 0BFA 1772 | AK060 LD L2 BUFFR+4 FETCH DEF CYL ADDRESS AP117720
0897 D600 00A6 1773 | STO L2 $DCYL+2 *AND STORE TO COMMA AP117730
0899 D600 01F4 1774 | STO L2 DCYL1+2 *AND SYS LOADER COMM AREA AP117740
089B 7200 1775 | MDX 2 0 SKIP IF LAST ADDR PROCESSED AP117750
089C 70EA 1776 | MDX AK055 BR TO FETCH NEXT DEF CYL AP117760
1777 | * AP117770
1778 | * SAVE DCOM ITEMS FOR PHASE 2 AP117780
1779 | * AP117790
089D C332 1780 | LD 3 AZ957-E FETCH DCOM SECTOR ADDRESS AP117800
089E D400 0BF7 1781 | STO L BUFFR+1 *AND STORE TO I/O BUFFER AP117810
08A0 4400 09C2 1782 | BSI L FETCH BRANCH TO FETCH DCOM SECTOR AP117820
1783 | * AP117830
08A2 61FB 1784 | LDX 1 -5 SET CARTRIDGE ID COUNT AP117840
08A3 6600 0BF8 1785 | LDX L2 BUFFR+2 XR2 PTS TO 1ST WD OF BFR2-3 AP117850
08A5 C400 01FE 1786 | AK065 LD L CARID FETCH CARTRIDGE ID AP117860
1787 | * 2-3 AP117870
08A7 F600 0037 1788 | EOR L2 #CIDN TEST FOR AND BRANCH IF AP117880
08A9 4C18 08B0 1789 | BSC L AK070,+- *MATCH FOUND IN DCOM AP117890
08AB 7201 1790 | MDX 2 1 POINT TO NEXT DCOM WORD AP117900
08AC 7101 1791 | MDX 1 1 INCR ID COUNT, SKIP IF ZERO AP117910
08AD 70F7 1792 | MDX AK065 BR TO TEST NEXT CART ID AP117920
08AE 4400 0B28 1793 | BSI L ER012 NO MATCH, BR TO PRINT MSG AP117930
1794 | * AP117940
08B0 C23C 1795 | AK070 LD 2 #CIBA SAVE AP117950
08B1 D400 01FA 1796 | STO L CIBFR *SECTOR ADDR OF CIB AP117960
08B3 C22D 1797 | LD 2 #FPAD FETCH FILE PROTECT ADDRESS AP117970
08B4 9250 1798 | S 2 #ULET SAVE AP117980
08B5 D400 0203 1799 | STO L SHIFT *NO. OF SECTORS TO SHIFT, AP117990
08B7 C250 1800 | LD 2 #ULET AP118000
08B8 D400 0202 1801 | STO L LET00 *OLD LET SECTOR ADDRESS, AP118010
08BA C241 1802 | LD 2 #SCRA AP118020
08BB D400 01FD 1803 | STO L ASCRA *SCRA SECTOR ADDRESS, AP118030
08BD C24B 1804 | LD 2 #FLET AP118040
08BE 1004 1805 | SLA 4 AP118050
08BF 1804 1806 | SRA 4 AP118060
08C0 D400 01FF 1807 | STO L FLETI *FIXED AREA INDICATOR AP118070
08C2 C25A 1808 | LD 2 #CSHN AP118080
08C3 D400 01F6 1809 | STO L CAREA *AND CUSHION SIZE FOR PH 2 AP118090
08C5 C400 01F5 1810 | LD L LMODE TEST FOR AND BRANCH AP118100
08C7 4C10 0454 1811 | BSC L AA040,- *IF A RELOAD FUNCTION AP118110
1812 | * AP118120
1813 | * CLEAR DCOM AND SLET SECTORS ON INITIAL LOAD ONLY AP118130
1814 | * AP118140
08C9 4400 08DB 1815 | BSI L AK074 BRANCH TO CLEAR 'BUFFR' AP118150
08CB 6500 0003 1816 | LDX L1 @SLET SET SECTOR ADDRESS AP118160
08CD 6D00 0BF7 1817 | STX L1 BUFFR+1 *OF FIRST SLET SECTOR AP118170
08CF 4400 0A40 1818 | BSI L WRITE BR TO WRITE 1ST SLET SECTOR AP118180
08D1 7401 0BF7 1819 | MDX L BUFFR+1,1 SET SAD OF 2ND SLET SECTOR AP118190
08D3 4400 0A40 1820 | BSI L WRITE BR TO WRITE 2ND SLET SECTOR AP118200
08D5 7401 0BF7 1821 | MDX L BUFFR+1,1 SET SAD OF 3RD SLET SECTOR AP118210
08D7 4400 0A40 1822 | BSI L WRITE BR TO WRITE 3RD SLET SECTOR AP118220
08D9 4C00 0454 1823 | BSC L AA040 BRANCH TO READ PHASE 2 AP118230
1824 | * AP118240
08DB 0000 1825 | AK074 DC 0 ENTRY/RETURN ADDRESS AP118250
08DC 6500 0140 1826 | LDX L1 320 *LOOP AP118260
08DE 1810 1827 | SRA 16 *CLEARS AP118270
08DF D500 0BF7 1828 | AK076 STO L1 BUFFR+1 *'BUFFR' AP118280
08E1 71FF 1829 | MDX 1 -1 *TO AP118290
08E2 70FC 1830 | MDX AK076 *ZEROS AP118300
08E3 4C80 08DB 1831 | BSC I AK074 RETURN AP118310
1832 | * AP118320
1833 | * 'F' RECORD OF PHASE 2 RECOGNIZED AP118330
1834 | * AP118340
08E5 4400 0A40 1835 | AK080 BSI L WRITE BR TO WRITE PHASE 2 TO DISK AP118350
08E7 1000 1836 | NOP A WAIT MAY BE PATCHED HERE AP118360
08E8 C0FF 1837 | LD *-1 SET AP118370
08E9 D32D 1838 | STO 3 AZ949-E *'SCON' RECORD AP118380
08EA D320 1839 | STO 3 AZ933-E *NEXT INDICATORS ON AP118390
08EB 1810 1840 | SRA 16 SET INDR TO READ PTTC/8 AP118400
08EC D32F 1841 | STO 3 AZ952-E *FROM NEXT TAPE AP118410
1842 | * AP118420
1843 | * DETERMINE SYSTEM CORE SIZE AP118430
1844 | * AP118440
08ED 6200 1845 | LDX 2 0 SET ADDRESS OF LOCATION 0 AP118450
08EE 6E00 0000 1846 | STX L2 0 *IN LOCATION 0 AP118460
08F0 C400 0868 1847 | LD L AK908 FETCH MAX ADDR OF MIN CORE AP118470
08F2 7001 1848 | MDX AK100+1 SKIP NEXT INSTRUCTION AP118480
08F3 C003 1849 | AK100 LD AK110+1 FETCH NEXT CORE SIZE ADDR AP118490
08F4 1001 1850 | SLA 1 MULTIPLY BY TWO AP118500
08F5 D001 1851 | STO AK110+1 *AND STORE THE ADDRESS AP118510
08F6 D400 0000 1852 | AK110 STO L *-* STORE CORE ADDR IN ADDRESS AP118520
08F8 D400 01FB 1853 | STO L SCORE SAVE ACTUAL CORE SIZE AP118530
08FA 4C10 08FE 1854 | BSC L AK120,- BRANCH IF CORE SIZE LT 32K AP118540
08FC C30C 1855 | LD 3 AZ911-E FETCH NO. OF SECTORS AP118550
08FD 7004 1856 | MDX AK130 BRANCH TO STORE AP118560
08FE 9400 0869 1857 | AK120 S L AK909 SUBTRACT MINIMUM CORE SIZE AP118570
0900 1890 1858 | SRT 16 SHIFT TO EXTENSION AP118580
0901 AB14 1859 | D 3 AZ920-E DIVIDE BY SECTOR SIZE AP118590
0902 8301 1860 | AK130 A 3 AZ901-E INCREMENT BY ONE AND AP118600
0903 D400 0201 1861 | STO L SSBFR *SAVE NO. OF SCTRS/FLET BFR AP118610
0905 C400 0000 1862 | LD L 0 FETCH CONTENTS OF LOC 0 AP118620
0907 4818 1863 | BSC +- SKIP IF NON-ZERO AP118630
0908 70EA 1864 | MDX AK100 BR TO TRY NEXT CORE INCR AP118640
0909 4C00 0454 1865 | BSC L AA040 BRANCH TO READ NEXT RECORD AP118650
MISCELLANEOUS SUBROUTINES
1867 | *************************************************** AP118670
1868 | * AP118680
1869 | * PROCESS THE CHECKSUM AP118690
1870 | * AP118700
090B 0000 1871 | CKSUM DC 0 ENTRY/RETURN ADDRESS AP118710
090C C400 0495 1872 | CK100 LD L AA902+1 FETCH WORD 2 AP118720
090E 4C98 090B 1873 | BSC I CKSUM,+- RETURN IF NO CHECKSUM AP118730
0910 7401 0933 1874 | MDX L CK900,1 INCREMENT THE SEQUENCE NO. AP118740
0912 6600 0000 1875 | CK200 LDX L2 *-* XR2 = NO. WORDS PER RECORD AP118750
0914 C01E 1876 | LD CK900 FETCH SEQUENCE NUMBER AP118760
0915 8600 0493 1877 | CK250 A L2 AA902-1 ADD A WORD AP118770
0917 4802 1878 | BSC C SKIP IF NO CARRY AP118780
0918 8301 1879 | A 3 AZ901-E ADD ONE AP118790
0919 72FF 1880 | MDX 2 -1 DECR WORD CNT, SKIP IF ZERO AP118800
091A 70FA 1881 | MDX CK250 BRANCH TO ADD NEXT WORD AP118810
091B 9301 1882 | S 3 AZ901-E TEST FOR AND AP118820
091C 4C98 090B 1883 | BSC I CKSUM,+- *RETURN IF BLANK RECORD AP118830
091E 700F 1884 | CK300 MDX CK400 'NOP' IF SEQUENCE ERROR AP118840
1885 | * AP118850
091F 6500 0236 1886 | LDX L1 MSG01+1 POINT TO ERROR MESSAGE E 01 AP118860
0921 6680 0235 1887 | LDX I2 MSG01 FETCH WORD CNT OF MSG E 01 AP118870
0923 C0EF 1888 | LD CK200+1 GET WORDCOUNT 2-9 AP118871
0924 1001 1889 | SLA 1 GET FRAMECOUNT 2-9 AP118872
0925 8302 1890 | A 3 AZ902-E ADD 2 FRAMES FOR WC 2-9 AP118873
0926 D30D 1891 | STO 3 AZ913-E STORE FOR DISPLAY 2-9 AP118874
0927 4400 0B48 1892 | BSI L CNPTR BRANCH TO PRINT THE MESSAGE AP118880
0929 74FF 0933 1893 | MDX L CK900,-1 DECREMENT SEQUENCE NUMBER AP118890
092B 1000 1894 | NOP AVOID POSSIBLE SKIP AP118900
092C 4C00 0454 1895 | BSC L AA040 BRANCH TO READ NEXT RECORD AP118910
1896 | * AP118920
092E F31E 1897 | CK400 EOR 3 AZ931-E COMPLIMENT AND STORE AP118930
092F D003 1898 | STO CK900 *STORE CHECKSUM AP118940
0930 C315 1899 | LD 3 AZ921-E CANCEL AP118950
0931 D0EC 1900 | STO CK300 *RESET ABILITY AP118960
0932 70D9 1901 | MDX CK100 BRANCH TO PROCESS AGAIN AP118970
1902 | * AP118980
1903 | * CONSTANTS AND WORK AREAS AP118990
1904 | * AP119000
0933 0000 1905 | CK900 DC *-* SEQUENCE NUMBER AP119010
1906 | * AP119020
1907 | *************************************************** AP119030
1908 | * AP119040
1909 | * SUBROUTINE TO CALCULATE CHECKSUM OF SLET AND AP119050
1910 | * RELOAD TABLE (EXCLUDING LAST WORD OF RELOAD TBL) AP119060
1911 | * AP119070
0934 0000 1912 | CK500 DC 0 ENTRY/RETURN ADDRESS AP119080
0935 C822 1913 | LDD CK910 SET UP BUFFER TO START AP119090
0936 DC00 0E78 1914 | STD L BUFR1 *READING AT 1ST SCTR SLET AP119100
0938 1010 1915 | SLA 16 CLEAR CALCULATED AP119110
0939 D020 1916 | STO CK912 *CHECKSUM AP119120
093A 61FC 1917 | LDX 1 -4 4 SECTORS TO CHECKSUM AP119130
093B 6920 1918 | STX 1 CK914 AP119140
093C 7401 0E79 1919 | CK510 MDX L0 BUFR1+1,1 INCREMENT SECTOR ADDRESS AP119150
093E 4400 09B6 1920 | BSI L FTCH1 READ SECTOR FROM DISK AP119160
0940 6500 013F 1921 | LDX L1 @SCNT-1 WORDS - 1 PER SECTOR AP119170
0942 C017 1922 | LD CK912 RESTORE CHECKSUM TO ACC AP119180
0943 8500 0E79 1923 | CK520 A L1 BUFR1+1 CALCULATE CHECKSUM AP119190
0945 4802 1924 | BSC C IF CARRY AP119200
0946 8301 1925 | A 3 AZ901-E *ADD 1 TO CHECK SUM AP119210
0947 71FF 1926 | MDX 1 -1 STEP THROUGH SECTOR AP119220
0948 70FA 1927 | MDX CK520 BR TO LOOP IN SECTOR AP119230
0949 D010 1928 | STO CK912 SAVE CHECK SUM AP119240
094A 7401 095C 1929 | MDX L0 CK914,1 INCREMENT SECTOR LOOP COUNT AP119250
094C 7002 1930 | MDX CK530 BR, IS NOT RELOAD SECTOR AP119260
094D 4C80 0934 1931 | BSC I CK500 RETURN AP119270
1932 | * AP119280
1933 | * INCLUDE LAST WORD OF SECTOR IN ALL BUT RELOAD AP119290
1934 | * SECTOR AP119300
1935 | * AP119310
094F 8400 0FB9 1936 | CK530 A L BUFR1+1+@SCNT LAST WORD OF SECTOR AP119320
0951 4802 1937 | BSC C IF CARRY AP119330
0952 8301 1938 | A 3 AZ901-E *ADD 1 TO CHECK SUM AP119340
0953 D006 1939 | STO CK912 SAVE CHECK SUM AP119350
0954 70E7 1940 | MDX CK510 BR TO LOOP 4 SECTORS AP119360
1941 | * AP119370
1942 | * CONSTANTS AND WORK AREAS AP119380
1943 | * AP119390
0956 1944 | BSS E 0 FORCE EVEN ADDRESS AP119400
0956 0140 1945 | CK902 DC @SCNT WORD COUNT 1 SECTOR AP119410
0957 0001 1946 | DC @DCOM SECTOR ADDRESS OF DCOM AP119420
0958 1947 | BSS E 0 AP119430
0958 0140 1948 | CK910 DC @SCNT WORD COUNT 1 SECTOR AP119440
0959 0002 1949 | DC @SLET-1 SECTOR ADDRESS OF SLET - 1 AP119450
095A 0000 1950 | CK912 DC *-* CALCULATED CHECKSUM AP119460
095B 0000 1951 | CK913 DC *-* OLD CHECKSUM FROM TABLE AP119470
095C 0000 1952 | CK914 DC *-* SECTOR LOOP COUNTER AP119480
095D FF60 1953 | CK915 DC -160 NUMBER ENTRIES IN OLD SLET AP119490
095E 0140 1954 | CK916 DC @SCNT WORD COUNT 1 SECTOR AP119500
095F 0005 1955 | DC @SLET+2 LAST SCTR ADDR SLET TABLE AP119510
0960 0000 1956 | CK918 DC *-* SAVE MAINLINE BUFFER AP119520
0961 0000 1957 | DC *-* *PARAMETERS HERE AP119530
0962 0280 1958 | CK920 DC 2*@SCNT WORDS IN 2 SLET SECTORS AP119540
0963 0003 1959 | DC @SLET SECTOR ADDRESS OF SLET AP119550
0964 0000 1960 | CK922 DC *-* STORAGE FOR XR1 'TO' ADDR AP119560
0965 0000 1961 | CK923 DC *-* STORAGE FOR XR2 'FROM' ADDR AP119570
1962 | *************************************************** AP119580
1963 | * AP119590
1964 | * ENTERED ON RELOAD. CALCULATE AND CHECK AP119600
1965 | * SLET/RELOAD TABLE CHECKSUM AP119610
1966 | * AND FILE PROTECT ADDRESS. AP119620
1967 | * AP119630
0966 0000 1968 | CK600 DC 0 ENTRY/RETURN ADDRESS AP119640
0967 C8EE 1969 | LDD CK902 FETCH DCOM AP119650
0968 DC00 0E78 1970 | STD L BUFR1 *FROM AP119660
096A 4400 09B6 1971 | BSI L FTCH1 *DISK AP119670
096C 6600 0E7A 1972 | LDX L2 BUFR1+2 POINT TO FIRST WORD AP119680
096E C22D 1973 | LD 2 #FPAD SAVE FILE AP119690
096F D400 0200 1974 | STO L FPADR *PROTECT ADDRESS AP119700
0971 9310 1975 | S 3 AZ916-E TEST FOR AND BR IF INADEQ AP119710
0972 4410 0B34 1976 | BSI L ER014,- *DISK AREA TO SAVE PHASE 2 AP119720
0974 4400 0934 1977 | BSI L CK500 BR TO CALCULATE CHECKSUM AP119730
0976 C400 0FB9 1978 | LD L BUFR1+1+@SCNT LOAD OLD CHECKSUM AP119740
0978 D0E2 1979 | STO CK913 SAVE OLD CHECKSUM AP119750
0979 4C98 0966 1980 | BSC I CK600,+- RETURN IF NOT CHECKSUM AP119760
097B F0DE 1981 | EOR CK912 COMPARE WITH CALC CHECKSUM AP119770
097C 4420 0A89 1982 | BSI L ER019,Z BR IF INVALID CHECKSUM AP119780
097E 4C80 0966 1983 | BSC I CK600 RETURN AP119790
1984 | * AP119800
1985 | *************************************************** AP119810
1986 | * AP119820
1987 | * HISTORIC COMPATABILITY..... AP119830
1988 | * COMPRESS OUT GAPS IN SLET TABLE AND ZERO NEW AP119840
1989 | * THIRD SECTOR OF SLET. AP119850
1990 | * AP119860
0980 0000 1991 | CK630 DC 0 ENTRY/RETURN ADDRESS AP119870
0981 CC00 0BF6 1992 | LDD L BUFFR SAVE 'BUFFR' WORD COUNT AP119880
0983 D8DC 1993 | STD CK918 *AND SECTOR ADDRESS AP119890
0984 C8DD 1994 | LDD CK920 SET WORD COUNT AND SECTOR AP119900
0985 DC00 0BF6 1995 | STD L BUFFR *ADDR TO TWO SLET SECTORS AP119910
0987 4400 09C2 1996 | BSI L FETCH BR TO READ 1ST 2 SLET SCTRS AP119920
1997 | * AP119930
0989 6500 0BF8 1998 | LDX L1 BUFFR+2 PT TO 'TO' ADDRESS IN SLET AP119940
098B 6600 0BF8 1999 | LDX L2 BUFFR+2 PT TO 'FROM' ADDR IN SLET AP119950
098D CA00 2000 | CK640 LDD 2 0 FETCH 1ST 2 WDS OF SLET ENT AP119960
098E 4C18 0994 2001 | BSC L CK650,+- BRANCH IF EMPTY ENTRY AP119970
0990 D900 2002 | STD 1 0 SHIFT TO BOTTOM OF TABLE AP119980
0991 CA02 2003 | LDD 2 2 *(MAY OVERLAY ITSELF) AP119990
0992 D902 2004 | STD 1 2 AP120000
0993 7104 2005 | MDX 1 4 ADVANCE TO ADDR 1 ENTRY AP120010
0994 7204 2006 | CK650 MDX 2 4 ADVANCE FROM ADDR 1 ENTRY AP120020
0995 7401 095D 2007 | MDX L0 CK915,1 INCR ENTRY COUNTER AP120030
0997 70F5 2008 | MDX CK640 LOOP UNTIL 2 SECTORS TESTED AP120040
2009 | * AP120050
0998 6ACC 2010 | STX 2 CK923 SAVE FROM ADDR AP120060
0999 69CA 2011 | CK660 STX 1 CK922 SAVE TO ADDR AP120070
099A C0C9 2012 | LD CK922 LOAD TO ADDR AP120080
099B 90C9 2013 | S CK923 SUB FROM ADDR AP120090
099C 4C10 09A3 2014 | BSC L CK670,- BR IF END OF SLET REACHED AP120100
099E 10A0 2015 | SLT 32 ZERO TAIL AP120110
099F D900 2016 | STD 1 0 *OF SLET AP120120
09A0 D902 2017 | STD 1 2 *TABLE AP120130
09A1 7104 2018 | MDX 1 4 ADVANCE TO POINTER 1 ENTRY AP120140
09A2 70F6 2019 | MDX CK660 LOOP UNTIL END OF 2 SECTORS AP120150
2020 | * AP120160
09A3 4400 0A40 2021 | CK670 BSI L WRITE UPDATE SLET TABLE AP120170
09A5 C8BA 2022 | LDD CK918 RESTORE 'BUFFR' WORD COUNT AP120180
09A6 DC00 0BF6 2023 | STD L BUFFR *AND SECTOR ADDRESS AP120190
2024 | * AP120200
09A8 C8B5 2025 | LDD CK916 SET WORD COUNT AND SCTR AP120210
09A9 DC00 0BF6 2026 | STD L BUFFR *ADDR FOR END SLET TABLE AP120220
09AB 6500 0140 2027 | LDX L1 @SCNT CLEAR AP120230
09AD 1810 2028 | SRA 16 *'BUFFR' AP120240
09AE D500 0BF7 2029 | CK680 STO L1 BUFFR+1 *TO AP120250
09B0 71FF 2030 | MDX 1 -1 *ZEROS AP120260
09B1 70FC 2031 | MDX CK680 AP120270
09B2 4400 0A40 2032 | BSI L WRITE WRITE LAST SLET SECTOR AP120280
09B4 4C80 0980 2033 | BSC I CK630 RETURN AP120290
2034 | * AP120300
2035 | *************************************************** AP120310
2036 | * AP120320
2037 | * READ A SECTOR FROM DISK INTO 'BUFR1' AP120330
2038 | * AP120340
09B6 0000 2039 | FTCH1 DC 0 ENTRY/RETURN ADDRESS AP120350
09B7 C808 2040 | LDD F1900 FETCH FUNC CODE, I/O ADDR AP120360
09B8 4400 00F2 2041 | BSI L DZ000 BRANCH TO READ A SECTOR AP120370
09BA 7400 00EE 2042 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE AP120380
09BC 70FD 2043 | MDX *-3 BR TO TEST READ COMPLETE AP120390
09BD 4C80 09B6 2044 | BSC I FTCH1 RETURN AP120400
2045 | * AP120410
2046 | * CONSTANTS AND WORK AREAS AP120420
2047 | * AP120430
09C0 2048 | BSS E 0 FORCE NEXT LOC TO BE EVEN AP120440
09C0 0000 2049 | F1900 DC /0000 READ FUNCTION CODE AP120450
09C1 0E78 2050 | DC BUFR1 ADDRESS OF I/O AREA AP120460
2051 | * AP120470
2052 | *************************************************** AP120480
2053 | * AP120490
2054 | * READ FROM DISK INTO BUFFR AP120500
2055 | * AP120510
09C2 0000 2056 | FETCH DC 0 ENTRY/RETURN ADDRESS AP120520
09C3 C324 2057 | LD 3 AZ938-E RETURN AP120530
09C4 4CA0 09C2 2058 | BSC I FETCH,Z *IF INHIBIT SWITCH ON AP120540
09C6 C807 2059 | LDD FE900 FETCH FUNC CODE/I/O ADDRESS AP120550
09C7 4400 00F2 2060 | BSI L DZ000 BRANCH TO DISK SUBROUTINE AP120560
09C9 7400 00EE 2061 | MDX L $DBSY,0 SKIP NEXT IF OP COMPLETE AP120570
09CB 70FD 2062 | MDX *-3 BRANCH TO TEST OP COMPLETE AP120580
09CC 4C80 09C2 2063 | BSC I FETCH RETURN AP120590
2064 | * AP120600
2065 | * CONSTANTS AND WORK AREAS AP120610
2066 | * AP120620
09CE 2067 | BSS E 0 FORCE NEXT LOC TO BE EVEN AP120630
09CE 0000 2068 | FE900 DC /0000 READ FUNCTION CODE AP120640
09CF 0BF6 2069 | DC BUFFR ADDRESS OF I/O BUFFER AP120650
2070 | * AP120660
2071 | *************************************************** AP120670
2072 | * AP120680
2073 | * PROCESS MOD NUMBER ON PHASE ID RECORD AP120690
2074 | * AP120700
09D0 0000 2075 | MODNO DC 0 ENTRY/RETURN ADDRESS AP120710
09D1 C01C 2076 | LD MO900 IF VERSION AND MOD NUMBER AP120720
09D2 4CA0 09D0 2077 | BSC I MODNO,Z *ALREADY SET, RETURN AP120730
09D4 6500 04D8 2078 | MO090 LDX L1 AA904+66 VERSION NUMBER AP120740
09D6 6202 2079 | LDX 2 2 FROM COLUMNS 67 AND 68 AP120750
09D7 4400 09EF 2080 | BSI L EBTDC EBCDIC TO DECIMAL AP120760
2081 | * AP120770
09D9 1000 2082 | NOP FOR DEBUG STOP AP120780
09DA C340 2083 | LD 3 AZ972-E LOAD RESULT AP120790
09DB 1000 2084 | MO200 NOP MAY BE AN 'MDX M0300' AP120800
09DC 1008 2085 | SLA 8 SHIFT VERSION TO LEFT HALF AP120810
09DD D400 01F9 2086 | STO L VERSN *AND SAVE AP120820
09DF 930F 2087 | S 3 AZ915-E TEST FOR AND AP120830
09E0 4428 0A70 2088 | BSI L ER015,+Z *BR IF VERSION INVALID AP120840
09E2 7404 09D5 2089 | MDX L MO090+1,4 POINT TO COLUMN 71 AP120850
09E4 C337 2090 | LD 3 AZ962-E SET INSTRUCTION AP120860
09E5 D0F5 2091 | STO MO200 *TO STORE MOD NUMBER AP120870
09E6 70EA 2092 | MDX MODNO+1 BRANCH TO FETCH MOD NUMBER AP120880
2093 | * AP120890
09E7 EC00 01F9 2094 | MO300 OR L VERSN 'OR' IN VERSION NUMBER AP120900
09E9 D400 01F9 2095 | STO L VERSN STORE VERSION-MOD NUMBER AP120910
09EB 6802 2096 | STX MO900 INDICATE VERSION-MOD DONE AP120920
09EC 4C80 09D0 2097 | BSC I MODNO RETURN AP120930
2098 | * AP120940
2099 | * CONSTANTS AND WORK AREAS AP120950
2100 | * AP120960
09EE 0000 2101 | MO900 DC *-* INDICATES VERSION NO. SET AP120970
2102 | * AP120980
2103 | *************************************************** AP120990
2104 | * AP121000
2105 | * THIS SECTION CONVERTS SELECTED EBCDIC INPUT AP121010
2106 | * TO HEXADECIMAL NUMBERS. UP TO 4 EBC CHARS AP121020
2107 | * CAN BE CONTAINED IN 1 WORD OF OUTPUT. AP121030
2108 | * AP121040
2109 | * XR1 POINTS TO WORDS TO CONVERT. XR2 IS LOOP AP121050
2110 | * COUNTER. OUTPUT IS CONTAINED IN AZ972. AP121060
2111 | * AP121070
2112 | *************************************************** AP121080
2113 | * AP121090
09EF 0000 2114 | EBTDC DC 0 ENTRY/RETURN AP121100
09F0 1010 2115 | SLA 16 AP121110
09F1 D340 2116 | STO 3 AZ972-E CLEAR BEFORE USING AP121120
09F2 C100 2117 | EB020 LD 1 0 AP121130
09F3 900B 2118 | S EB901 SUBTRACT EBCDIC ZERO AP121140
09F4 D00B 2119 | STO EB902 TEMPORARY STORAGE AP121150
09F5 C308 2120 | LD 3 AZ910-E MULTIPLY BY 10 FOR HEX AP121160
09F6 A340 2121 | M 3 AZ972-E AP121170
09F7 1090 2122 | SLT 16 AP121180
09F8 8007 2123 | A EB902 AP121190
09F9 D340 2124 | STO 3 AZ972-E AP121200
09FA 7101 2125 | MDX 1 1 BUMP IOAR ADDRESS AP121210
09FB 72FF 2126 | MDX 2 -1 DECR LOOP COUNTER AP121220
09FC 70F5 2127 | MDX EB020 REPEAT AP121230
09FD 4C80 09EF 2128 | BSC I EBTDC AP121240
2129 | * AP121250
09FF 00F0 2130 | EB901 DC /00F0 EBCDIC ZERO AP121260
0A00 0000 2131 | EB902 DC *-* WORK AREA AP121270
2132 | * AP121280
2133 | *************************************************** AP121290
2134 | * AP121300
2135 | * THIS SECTION PACKS THE EBCDIC CODE FROM WDS AP121310
2136 | * 3 AND 4 OF BUFFER AA904. THEY WILL BE AP121320
2137 | * COMPARED WITH A CONSTANT TO FIND RCD TYPE. AP121330
2138 | * AP121340
2139 | *************************************************** AP121350
0A01 0000 2140 | COM34 DC *-* AP121360
0A02 CC00 0498 2141 | LDD L AA904+2 EVEN ADDRESS AP121370
0A04 1008 2142 | SLA 8 DATE COMES RIGHT JUSTIFIED AP121380
0A05 D004 2143 | STO TEM WORK AREA AP121390
0A06 18D0 2144 | RTE 16 AP121400
0A07 E802 2145 | OR TEM RETURN WITH 2 EBCDIC AP121410
0A08 4C80 0A01 2146 | BSC I COM34 *CHARACTERS IN ACCUMULATOR AP121420
2147 | * AP121430
0A0A 0000 2148 | TEM DC *-* SHARED WORK AREA AP121440
2149 | * AP121450
2150 | *************************************************** AP121460
2151 | * AP121470
2152 | * THIS SUBROUTINE PACKS LEFT-JUSTIFIED 8-BIT AP121480
2153 | * BINARY DATA FROM PAPER TAPE FRAMES INTO 16 AP121490
2154 | * BITS PER WORD. AP121500
2155 | * XR3 CONTAINS FRAME COUNT AP121510
2156 | * XR2 POINTS TO COMPRESSED BUFFER AP121520
2157 | * XR1 POINTS TO SOURCE BUFFER AP121530
2158 | * AP121540
2159 | *************************************************** AP121550
0A0B 0000 2160 | PACK0 DC *-* AP121560
0A0C 6B11 2161 | STX 3 PA030+1 AP121570
0A0D 6780 04E6 2162 | LDX I3 AA906 FRAME COUNT -ALWAYS EVEN- AP121580
0A0F 6500 04E7 2163 | LDX L1 AA906+1 ADDRESS OF 1ST DATA LOC AP121590
0A11 6600 0494 2164 | LDX L2 AA902 AP121600
0A13 C101 2165 | PA020 LD 1 1 LOAD 2ND HALF OF 16-BIT WD AP121610
0A14 1808 2166 | SRA 8 AP121620
0A15 D0F4 2167 | STO TEM AP121630
0A16 C100 2168 | LD 1 0 AP121640
0A17 E8F2 2169 | OR TEM AP121650
0A18 D200 2170 | STO 2 0 STORE A PACKED WORD AP121660
0A19 7201 2171 | MDX 2 1 AP121670
0A1A 7102 2172 | MDX 1 2 AP121680
0A1B 73FE 2173 | MDX 3 -2 AP121690
0A1C 70F6 2174 | MDX PA020 LOOP AP121700
0A1D 6700 0000 2175 | PA030 LDX L3 *-* RESTORE POINTER AP121710
0A1F 4C80 0A0B 2176 | BSC I PACK0 RETURN AP121720
2177 | *************************************************** AP121730
2178 | * AP121740
2179 | * DETERMINE RELATIVE ADDRESS FROM ADDRESS AP121750
2180 | * OF FIRST WORD IN A SECTOR AP121760
2181 | * AP121770
0A21 0000 2182 | RELAD DC 0 ENTRY/RETURN ADDRESS AP121780
0A22 9301 2183 | RE100 S 3 AZ901-E SUBTRACT ONE FROM ADDRESS AP121790
0A23 7401 0B73 2184 | MDX L AZ934,1 INCR CORRELATION FACTOR AP121800
0A25 4C20 0A22 2185 | BSC L RE100,Z BR IF ADDR NOT REDUCED TO Z AP121810
0A27 C321 2186 | LD 3 AZ934-E FETCH AND SAVE AP121820
0A28 D32B 2187 | STO 3 AZ945-E *NEW CORRELATION FACTOR AP121830
0A29 C318 2188 | LD 3 AZ924-E STORE SKIP INSTRUCTION AP121840
0A2A D400 078E 2189 | STO L AJ040 *IN TYPE 'A' PROC SUBR AP121850
0A2C C101 2190 | LD 1 1 FETCH ORIGINAL ADDRESS AP121860
0A2D 8400 0B54 2191 | A L AZ902 ADD TWO AP121870
0A2F 4C80 0A21 2192 | BSC I RELAD RETURN AP121880
2193 | * AP121890
2194 | *************************************************** AP121900
2195 | * AP121910
2196 | * SAVE INDEX REGISTERS AP121920
2197 | * AP121930
0A31 0000 2198 | SAVXR DC 0 ENTRY/RETURN ADDRESS AP121940
0A32 6906 2199 | STX 1 RS100+1 SAVE XR1 AP121950
0A33 6A07 2200 | STX 2 RS200+1 SAVE XR2 AP121960
0A34 6B08 2201 | STX 3 RS300+1 SAVE XR3 AP121970
0A35 4C80 0A31 2202 | BSC I SAVXR RETURN AP121980
2203 | * AP121990
2204 | * RESTORE INDEX REGISTERS AP122000
2205 | * AP122010
0A37 0000 2206 | RSTXR DC 0 ENTRY/RETURN ADDRESS AP122020
0A38 6500 0000 2207 | RS100 LDX L1 *-* RESTORE XR1 AP122030
0A3A 6600 0000 2208 | RS200 LDX L2 *-* RESTORE XR2 AP122040
0A3C 6700 0000 2209 | RS300 LDX L3 *-* RESTORE XR3 AP122050
0A3E 4C80 0A37 2210 | BSC I RSTXR RETURN AP122060
2211 | * AP122070
2212 | *************************************************** AP122080
2213 | * AP122090
2214 | * WRITE THE RESIDENT IMAGE AND AP122100
2215 | * THE SYSTEM LOADER PHASE 2 TO THE DISK AP122110
2216 | * AP122120
0A40 0000 2217 | WRITE DC 0 ENTRY/RETURN ADDRESS AP122130
0A41 C400 0BF7 2218 | LD L BUFFR+1 RETURN IF AP122140
0A43 4C98 0A40 2219 | BSC I WRITE,+- *SECTOR ADDRESS = @IDAD AP122150
0A45 C326 2220 | LD 3 AZ940-E TEST FOR AND AP122160
0A46 4C28 0A52 2221 | BSC L WR100,+Z *BRANCH IF AN INITIAL LOAD AP122170
0A48 C400 0BF7 2222 | LD L BUFFR+1 FETCH SECTOR ADDRESS AP122180
0A4A 9311 2223 | S 3 AZ917-E TEST FOR AND BRANCH AP122190
0A4B 4C20 0A52 2224 | BSC L WR100,Z *IF NOT OVERLAY 0/1 SECTOR AP122200
0A4D C400 0BF8 2225 | LD L BUFFR+2 FETCH OVERLAY IDENTIFIER AP122210
0A4F 9301 2226 | S 3 AZ901-E TEST FOR AND RETURN AP122220
0A50 4C98 0A40 2227 | BSC I WRITE,+- *IF OVERLAY 1 AP122230
2228 | * AP122240
2229 | * WRITE TO DISK FROM BUFFR AP122250
2230 | * AP122260
0A52 1000 2231 | WR100 NOP A WAIT MAY BE PATCHED HERE AP122270
0A53 C808 2232 | LDD WR900 FETCH FUNC CODE/I/O ADDRESS AP122280
0A54 4400 00F2 2233 | BSI L DZ000 BRANCH TO DISK SUBROUTINE AP122290
0A56 7400 00EE 2234 | MDX L $DBSY,0 SKIP NEXT IF OP COMPLETE AP122300
0A58 70FD 2235 | MDX *-3 BRANCH TO TEST OP COMPLETE AP122310
0A59 4C80 0A40 2236 | BSC I WRITE RETURN AP122320
2237 | * AP122330
2238 | * CONSTANTS AND WORK AREAS AP122340
2239 | * AP122350
0A5C 2240 | BSS E 0 FORCE NEXT LOC TO BE EVEN AP122360
0A5C 0001 2241 | WR900 DC /0001 WRITE FUNCTION CODE AP122370
0A5D 0BF6 2242 | DC BUFFR ADDRESS OF I/O BUFFER AP122380
PRINT ERROR MESSAGES
2244 | * AP122400
2245 | * PRINT ERROR MESSAGE AND BRANCH TO READ AP122410
2246 | * THE NEXT RECORD AP122420
2247 | * AP122430
0A5E 0000 2248 | ER002 DC 0 ENTRY/RETURN ADDRESS AP122440
0A5F 6500 0242 2249 | LDX L1 MSG02+1 POINT TO ERROR MESSAGE E 02 AP122450
0A61 6680 0241 2250 | LDX I2 MSG02 FETCH WORD CNT OF MSG E 02 AP122460
0A63 7017 2251 | MDX ER100 BRANCH TO PRINT THE MESSAGE AP122470
2252 | * AP122480
0A64 0000 2253 | ER003 DC 0 ENTRY/RETURN ADDRESS AP122490
0A65 6500 0252 2254 | LDX L1 MSG03+1 POINT TO ERROR MESSAGE E 03 AP122500
0A67 6680 0251 2255 | LDX I2 MSG03 FETCH WORD CNT OF MSG E 03 AP122510
0A69 7011 2256 | MDX ER100 BRANCH TO PRINT THE MESSAGE AP122520
2257 | * AP122530
0A6A 0000 2258 | ER004 DC 0 ENTRY/RETURN ADDRESS AP122540
0A6B 6500 0265 2259 | LDX L1 MSG04+1 POINT TO ERROR MESSAGE E 04 AP122550
0A6D 6680 0264 2260 | LDX I2 MSG04 FETCH WORD CNT OF MSG E 04 AP122560
0A6F 700B 2261 | MDX ER100 BRANCH TO PRINT THE MESSAGE AP122570
2262 | * AP122580
0A70 0000 2263 | ER015 DC 0 ENTRY/RETURN ADDRESS AP122590
0A71 6500 0ACF 2264 | LDX L1 MSG15+1 POINT TO ERROR MESSAGE E 15 AP122600
0A73 6680 0ACE 2265 | LDX I2 MSG15 FETCH WORD CNT OF MSG E 15 AP122610
0A75 7005 2266 | MDX ER100 BRANCH TO PRINT THE MESSAGE AP122620
2267 | * AP122630
0A76 0000 2268 | ER017 DC 0 ENTRY/RETURN ADDRESS AP122640
0A77 6500 0AEE 2269 | LDX L1 MSG17+1 POINT TO ERROR MESSAGE E 17 AP122650
0A79 6680 0AED 2270 | LDX I2 MSG17 FETCH WORD CNT OF MSG E 17 AP122660
0A7B 4400 0B48 2271 | ER100 BSI L CNPTR PRINT THE MESSAGE AP122670
0A7D 1000 2272 | NOP A WAIT MAY BE PATCHED HERE AP122680
0A7E 4C00 0454 2273 | BSC L AA040 BRANCH TO READ NEXT RECORD AP122690
2274 | * AP122700
0A80 0000 2275 | ER018 DC 0 ENTRY/RETURN ADDRESS AP122710
0A81 6500 0AFF 2276 | LDX L1 MSG18+1 POINT TO ERROR MESSAGE E 18 AP122720
0A83 6680 0AFE 2277 | LDX I2 MSG18 FETCH WORD CNT OF MSG E 18 AP122730
0A85 4400 0B48 2278 | BSI L CNPTR PRINT THE MESSAGE AP122740
0A87 4C80 0A80 2279 | BSC I ER018 RETURN AP122750
2280 | * AP122760
0A89 0000 2281 | ER019 DC 0 ENTRY/RETURN ADDRESS AP122770
0A8A 6500 0B0C 2282 | LDX L1 MSG19+1 POINT TO ERROR MESSAGE E 19 AP122780
0A8C 6680 0B0B 2283 | LDX I2 MSG19 FETCH WORD CNT OF MSG E 19 AP122790
0A8E 4400 0B48 2284 | BSI L CNPTR PRINT THE MESSAGE AP122800
0A90 4C80 0A89 2285 | BSC I ER019 RETURN AP122810
2286 | * AP122820
2287 | * ERROR MESSAGES FROM SYSTEM LOADER PHASE 1 ONLY AP122830
2288 | * AP122840
0A92 000C 2289 | MSG11 DC MSG12-* WORD COUNT OF MESSAGE E 11 AP122850
0A93 8134 21FC FC21 2074 2290 | DMES 'RE 11 INVALID DRIVE NO.'R'E AP122860
B43C 5C20 3021 3060 |
20B4 3421 7450 0081 |
0A9F 000F 2291 | MSG12 DC MSG13-* WORD COUNT OF MESSAGE E 12 AP122870
0AA0 8134 21FC D821 2030 2292 | DMES 'RE 12 ID SECTOR DATA INVALID'R'E AP122880
2198 341C 9C50 6021 |
303C 9C3C 2120 74B4 |
3C5C 2030 8121 |
0AAF 000C 2293 | MSG13 DC MSG14-* WORD COUNT OF MESSAGE E 13 AP122890
0AB0 8134 21FC DC21 1C50 2294 | DMES 'RE 13 CONFIG TAPE ERROR'R'E AP122900
7410 2014 219C 3C54 |
3421 3460 6050 6081 |
0ABC 0011 2295 | MSG14 DC MSG15-* WORD COUNT OF MESSAGE E 14 AP122910
0ABD 8134 21FC F021 1020 2296 | DMES 'RE 14 FILE PROTECT ADDR TOO HIGH'R'E AP122920
5C34 2154 6050 9C34 |
1C9C 213C 3030 6021 |
9C50 5021 2420 1424 |
8121 |
0ACE 000C 2297 | MSG15 DC MSG16-* WORD COUNT OF MESSAGE E 15 AP122930
0ACF 8134 21FC F421 5424 2298 | DMES 'RE 15 PHID RECORD ERROR'R'E AP122940
2030 2160 341C 5060 |
3021 3460 6050 6081 |
0ADB 0011 2299 | MSG16 DC MSG17-* WORD COUNT OF MESSAGE E 16 AP122950
0ADC 8134 21FC D021 2074 2300 | DMES 'RE 16 INITIAL LOAD THE CARTRIDGE'R'E AP122960
209C 203C 5C21 5C50 |
3C30 219C 2434 211C |
3C60 9C60 2030 1434 |
8121 |
0AED 0010 2301 | MSG17 DC MSG18-* WORD COUNT OF MESSAGE E 17 AP122970
0AEE 8134 21FC D421 3460 2302 | DMES 'RE 17 ERROR IN LOAD MODE RECORD'R'E AP122980
6050 6021 2074 215C |
503C 3021 7050 3034 |
2160 341C 5060 3081 |
0AFE 000C 2303 | MSG18 DC MSG19-* WORD COUNT OF MESSAGE E 18 AP122990
0AFF 8134 21FC E421 543C 2304 | DMES 'RE 18 PAPER TAPE ERROR'R'E AP123000
5434 6021 9C3C 5434 |
2134 6060 5060 8121 |
0B0B 0015 2305 | MSG19 DC MSG20-* WORD COUNT OF MESSAGE E 19 AP123010
0B0C 8134 21FC E021 2074 2306 | DMES 'RE 19 INVALID SLET/RELOAD TABLE ' AP123020
B43C 5C20 3021 985C |
349C BC60 345C 503C |
3021 9C3C 185C 3421 |
0B1C 1C24 341C 5898 B070 2307 | DMES CHECKSUM'R'E AP123030
8121 |
0B21 0000 2308 | MSG20 DC 0 E 20 USED BY SYS LDR PH 2 AP123040
2309 | * AP123050
2310 | * PRINT ERROR MESSAGES WITH NO RECOVERY AP123060
2311 | * AP123070
0B22 0000 2312 | ER005 DC 0 ENTRY/RETURN ADDRESS AP123080
0B23 6500 0270 2313 | LDX L1 MSG05+1 POINT TO ERROR MESSAGE E 05 AP123090
0B25 6680 026F 2314 | LDX I2 MSG05 FETCH WORD CNT OF MSG E 05 AP123100
0B27 7017 2315 | MDX ER200 BRANCH TO PRINT THE MESSAGE AP123110
2316 | * AP123120
0B28 0000 2317 | ER012 DC 0 ENTRY/RETURN ADDRESS AP123130
0B29 6500 0AA0 2318 | LDX L1 MSG12+1 POINT TO ERROR MESSAGE E 12 AP123140
0B2B 6680 0A9F 2319 | LDX I2 MSG12 FETCH WORD CNT OF MSG E 12 AP123150
0B2D 7011 2320 | MDX ER200 BRANCH TO PRINT THE MESSAGE AP123160
2321 | * AP123170
0B2E 0000 2322 | ER013 DC 0 ENTRY/RETURN ADDRESS AP123180
0B2F 6500 0AB0 2323 | LDX L1 MSG13+1 POINT TO ERROR MESSAGE E 13 AP123190
0B31 6680 0AAF 2324 | LDX I2 MSG13 FETCH WORD CNT OF MSG E 13 AP123200
0B33 700B 2325 | MDX ER200 BRANCH TO PRINT THE MESSAGE AP123210
2326 | * AP123220
0B34 0000 2327 | ER014 DC 0 ENTRY/RETURN ADDRESS AP123230
0B35 6500 0ABD 2328 | LDX L1 MSG14+1 POINT TO ERROR MESSAGE E 14 AP123240
0B37 6680 0ABC 2329 | LDX I2 MSG14 FETCH WORD CNT OF MSG E 14 AP123250
0B39 7005 2330 | MDX ER200 BRANCH TO PRINT THE MESSAGE AP123260
2331 | * AP123270
0B3A 0000 2332 | ER016 DC 0 ENTRY/RETURN ADDRESS AP123280
0B3B 6500 0ADC 2333 | LDX L1 MSG16+1 POINT TO ERROR MESSAGE E 16 AP123290
0B3D 6680 0ADB 2334 | LDX I2 MSG16 FETCH WORD CNT OF MSG E 16 AP123300
0B3F 6904 2335 | ER200 STX 1 ER310+1 SAVE XR1 AP123310
0B40 6A05 2336 | STX 2 ER320+1 SAVE XR2 AP123320
0B41 4006 2337 | ER300 BSI CNPTR PRINT THE MESSAGE AP123330
0B42 1000 2338 | NOP A WAIT MAY BE PATCHED HERE AP123340
0B43 6500 0000 2339 | ER310 LDX L1 *-* RESTORE XR1 AP123350
0B45 6600 0000 2340 | ER320 LDX L2 *-* RESTORE XR2 AP123360
0B47 70F9 2341 | MDX ER300 NO RECOVERY, PRINT AGAIN AP123370
2342 | * AP123380
2343 | * BRANCH TO CONSOLE PRINTER SUBROUTINE AP123390
2344 | * AP123400
0B48 0000 2345 | CNPTR DC 0 ENTRY/RETURN ADDRESS AP123410
0B49 4400 0287 2346 | BSI L WRTYZ BR TO CONSOLE PRINTER SUBR AP123420
0B4B C0FC 2347 | LD CNPTR FETCH RETURN ADDRESS AP123430
0B4C 1890 2348 | SRT 16 *AND SHIFT TO EXTENSION AP123440
0B4D C30D 2349 | LD 3 AZ913-E FETCH DISPLAY CODE AND AP123450
0B4E 4400 0028 2350 | BSI L $PRET *BRANCH TO PRE-OP TRAP AP123460
0B50 4C80 0B48 2351 | BSC I CNPTR RETURN AP123470
PHASE 1 CONSTANTS AND WORK AREAS
0B52 0000 2353 | E DC 0 FOR EMERGENCY USE ONLY AP123490
0B53 0001 2354 | AZ901 DC 1 CONSTANT ONE AP123500
0B54 0002 2355 | AZ902 DC 2 CONSTANT TWO AP123510
0B55 0003 2356 | AZ903 DC 3 CONSTANT THREE AP123520
0B56 0004 2357 | AZ904 DC 4 CONSTANT FOUR AP123530
0B57 0005 2358 | AZ905 DC 5 CONSTANT FIVE AP123540
0B58 0006 2359 | AZ906 DC 6 CONSTANT SIX AP123550
0B59 0007 2360 | AZ907 DC 7 CONSTANT SEVEN AP123560
0B5A 000A 2361 | AZ910 DC 10 CONSTANT 10 AP123570
0B5B 000F 2362 | AZ908 DC 15 MAX SYS DEVICE ISS NUMBER AP123580
0B5C 0014 2363 | AZ909 DC 20 MAXIMUM ISS NUMBER AP123590
0B5D 0140 2364 | AZ912 DC @SCNT NO. OF WORDS PER SECTOR AP123600
0B5E 0059 2365 | AZ911 DC 89 NO. OF SCTR IN 32K - 4K AP123610
0B5F FFFE 2366 | AZ913 DC -2 DISPLAY CODE AP123620
0B60 00FF 2367 | AZ914 DC /00FF MASK OUT LEFT HALF OF WORD AP123630
0B61 0200 2368 | AZ915 DC /0200 MASK TO TEST VALID VER/MOD AP123640
0B62 0630 2369 | AZ916 DC @P2AD SECTOR ADDRESS OF PHASE 2 AP123650
0B63 0635 2370 | AZ917 DC @P2AD+5 SECTOR ADDRESS OF OVERLAY AP123660
0B64 0658 2371 | AZ918 DC /658 MAXIMUM DISK ADDRESS AP123670
0B65 C4C5 2372 | AZ919 EBC .DE. FOR MODE RECORD TEST AP123680
0B66 0AA0 2373 | AZ920 DC /0AA0 MASK AP123690
0B67 1000 2374 | AZ921 NOP 'NOP' INSTRUCTION AP123700
0B68 4400 7002 2375 | AZ922 BSI L /7002 'BSI L' INSTRUCTION AP123710
0B69 2376 | AZ923 EQU *-1 READ FUNCTION CODE AP123720
0B6A 7001 2377 | AZ924 MDX *+1 SKIP INSTRUCTION AP123730
0B6B 7002 2378 | AZ925 MDX *+2 SKIP INSTRUCTION AP123740
0B6C 8000 2379 | AZ926 DC /8000 MINUS SIGN MASK AP123750
0B6D D6D5 2380 | AZ927 EBC .ON. USE TO CK FOR 'SCON' RECORD AP123760
0B6E 9400 C000 2381 | AZ928 S L /C000 'S L' INSTRUCTION AP123770
0B6F 2382 | AZ929 EQU *-1 PHASE ID PROCESSING INDR AP123780
0B70 FFFF 2383 | AZ931 DC /FFFF MASK TO COMPLEMENT AP123790
0B71 0000 2384 | AZ932 DC *-* BASE SECTOR ADDRESS AP123800
0B72 0000 2385 | AZ933 DC *-* NEXT RCRD EXPECTED INDR AP123810
0B73 0000 2386 | AZ934 DC 0 CORRELATION FACTOR AP123820
0B74 0000 2387 | AZ935 DC *-* SCTR ADDR OF CURRENT PHASE AP123830
0B75 0000 2388 | AZ937 DC *-* CORE ADDRESS OF DATA WORD AP123840
0B76 0000 2389 | AZ938 DC *-* 'FETCH' INHIBIT INDICATOR AP123850
0B77 0000 2390 | AZ939 DC *-* 'REQ' RECORD COUNT AP123860
0B78 0000 2391 | AZ940 DC *-* LOAD MODE INDICATOR AP123870
0B79 0000 2392 | AZ941 DC *-* PREVIOUS SECTOR ADDRESS AP123880
0B7A 0000 2393 | AZ942 DC *-* RESIDENT IMAGE INDICATOR AP123890
0B7B 0000 2394 | AZ943 DC *-* SCTR ADDR OF SCTR IN CORE AP123900
0B7C 0000 2395 | AZ944 DC *-* ABS/REL PROGRAM INDICATOR AP123910
0B7D 0000 2396 | AZ945 DC *-* CORE ADDRESS CORRELATION AP123920
0B7E 0000 2397 | AZ948 DC 0 SECTOR BREAK INDICATOR AP123930
0B7F 0001 2398 | AZ949 DC 1 NEXT RECORD TYPE INDICATOR AP123940
0B80 0001 2399 | AZ950 DC 1 'F' RECORD INDICATOR AP123950
0B81 0000 2400 | AZ952 DC 0 PACKED/UNPACKED BFR INDR AP123960
0B82 0BF6 2401 | AZ954 DC BUFFR ADDRESS OF DISK I/O BUFFER AP123970
0B83 0A21 2402 | AZ956 DC RELAD ADDRESS OF RLTV ADDR SUBR AP123980
0B84 0001 2403 | AZ957 DC @DCOM SECTOR ADDRESS OF DCOM AP123990
0B85 020C 2404 | AZ958 DC PAIR1 ADDR OF FIRST PHASE ID PAIR AP124000
0B86 0000 2405 | AZ959 DC @IDAD ID SECTOR ADDRESS AP124010
0B87 0002 2406 | AZ960 DC @RIAD RES IMAGE SECTOR ADDRESS AP124020
0B88 700F 2407 | AZ961 MDX X CK400-CK300-1 SKIP INSTRUCTION AP124030
0B89 700B 2408 | AZ962 MDX X MO300-MO200-1 SKIP INSTRUCTION AP124040
2409 | * AP124050
0B8A 2410 | BSS E 0 FORCE NEXT LOC TO BE EVEN AP124060
0B8A 0000 2411 | AZ964 DC *-* USED TO CALCULATE RELATIVE AP124070
0B8B 0000 2412 | DC *-* *DATA WORD LOC IN SCTR BFR AP124080
2413 | * AP124090
2414 | * RESTORED COMMA WORDS ON RELOAD FUNCTION AP124100
2415 | * AP124110
0B8C 0000 2416 | AZ966 DC *-* $DREQ AP124120
0B8D 0000 2417 | AZ967 DC *-* $ULET AP124130
0B8E 0000 2418 | AZ968 DC *-* $DZIN AP124140
0B8F 0000 2419 | AZ969 DC *-* $FPAD AP124150
0B90 0000 2420 | AZ970 DC *-* $DCYL AP124160
0B91 C9C4 2421 | AZ971 EBC .ID. TO TEST FOR PHID RECORD AP124170
0B92 0000 2422 | AZ972 DC *-* DEC OUTPUT FROM EBTDC AP124180
0B93 000F 2423 | AZ973 DC /000F MASK BITS 0-11 AP124190
0B94 B3B0 2424 | AZ974 DC /B3B0 RESULT OF PTTC BLANK CVRT AP124200
2425 | * AP124210
2426 | * AP124220
0B95 2427 | BSS 96 PATCH AREA 2-9 AP124230
2428 | * AP124240
2429 | * AP124250
BUFFER AREAS
2431 | * AP124270
0BF6 2432 | BSS E 0 START WD CNT ON EVEN LOC AP124280
0BF6 0140 2433 | BUFFR DC @SCNT WORD COUNT AP124290
0BF7 0000 2434 | DC *-* SECTOR ADDRESS AP124300
2435 | * AP124310
2436 | * TEMPORARY LOWER CORE TO BE AP124320
2437 | * OVER-LAYED BY RESIDENT IMAGE AP124330
2438 | * AP124340
0BF8 00C4 2439 | DC $I400 0C AP124350
0BF9 0091 2440 | DC $STOP AP124360
0BFA 2441 | BSS 5 AP124370
0BFF 0000 2442 | DC *-* 13 AP124380
0C00 2443 | BSS 20 AP124390
0C14 0000 2444 | DC *-* 28 AP124400
0C15 3000 2445 | WAIT AP124410
0C16 4C80 0028 2446 | BSC I $PRET AP124420
0C18 002D 2447 | DC $IREQ+1 AP124430
0C19 0000 2448 | DC *-* AP124440
0C1A 3000 2449 | WAIT AP124450
0C1B 70FE 2450 | MDX *-2 AP124460
0C1C 4CC0 002D 2451 | BOSC I $IREQ+1 AP124470
0C1E 0000 2452 | DC *-* 32 AP124480
0C1F 2453 | BSS 90 AP124490
0C79 0000 2454 | DC *-* 8D AP124500
0C7A 3000 2455 | WAIT AP124510
0C7B 4C80 008D 2456 | BSC I $PST4 AP124520
0C7D 0000 2457 | DC *-* AP124530
0C7E 3000 2458 | WAIT AP124540
0C7F 4CC0 0091 2459 | BOSC I $STOP AP124550
0C81 2460 | BSS 47 AP124560
0CB0 0000 2461 | DC *-* C4 AP124570
0CB1 D818 2462 | STD $I490 AP124580
0CB2 280E 2463 | STS $I410 AP124590
0CB3 690F 2464 | STX 1 $I410+2 AP124600
0CB4 6A10 2465 | STX 2 $I410+4 AP124610
0CB5 0816 2466 | XIO $I492 AP124620
0CB6 1002 2467 | SLA 2 AP124630
0CB7 4C10 00D0 2468 | BSC L $I403,- AP124640
0CB9 4480 002C 2469 | BSI I $IREQ AP124650
0CBB FFFE 2470 | DC -2 AP124660
0CBC 6109 2471 | LDX 1 9 AP124670
0CBD 0810 2472 | XIO $I494 AP124680
0CBE 1140 2473 | SLCA 1 9 AP124690
0CBF 4580 0000 2474 | $I405 BSI I1 *-* AP124700
0CC1 2000 2475 | $I410 LDS 0 AP124710
0CC2 6500 0000 2476 | LDX L1 *-* AP124720
0CC4 6600 0000 2477 | LDX L2 *-* AP124730
0CC6 C803 2478 | LDD $I490 AP124740
0CC7 4CC0 00C4 2479 | BOSC I $I400 AP124750
0CCA 2480 | $I490 BSS E 2 AP124760
0CCC 2481 | $I492 BSS 1 AP124770
0CCD 0F00 2482 | DC /0F00 AP124780
0CCE 2483 | $I494 BSS 1 AP124790
0CCF 0300 2484 | DC /0300 E3 AP124800
0E3B 2485 | CONFG EQU BUFFR+2*@SCNT-@PRWC+1 AP124810
0CD0 2486 | BSS @PRWC AP124820
0E78 2487 | ORG BUFFR+2+2*@SCNT AP124830
0E78 2488 | BUFR1 BSS E 1 WORD COUNT AP124840
0E79 2489 | BSS 1 SECTOR ADDRESS AP124850
0E7A 2490 | BSS @SCNT BUFFER FOR CHECKSUM CALC AP124860
2491 | * AP124870
2492 | * AP124880
0FBA 2493 | BSS @MNCR-* PATCH AREA AP124890
1000 2494 | END AA000 AP124900
There were no errors in this assembly
Program transfer address = 0435
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
#CIBA 003C 139 1795
#CIDN 0037 138 1788
#CSHN 005A 143 1808
#FLET 004B 141 1804
#FPAD 002D 137 1797 1973
#SCRA 0041 140 1802
#SYSC 0008 136
#ULET 0050 142 1798 1800
$1132 007F 131 1404
$1403 0080 132 1402
$ACDE 009F 74 1636
$CH12 0006 75
$CIBA 0005 81
$CILA 005A 76
$COMN 0007 77
$CORE 000E 78
$CPTR 007E 79 1406
$CTSW 000F 80 697
$CYLN 009A 82 1641
$DADR 0010 84
$DBSY 00EE 83 219 1689 1700 1726 2042 2061 2234
$DCDE 0077 85
$DCYL 00A4 86 1459 1638 1639 1640 1672 1773
$DREQ 0012 87 1451 1664
$DUMP 003F 88
$DZIN 0076 89 1455 1668
$EXIT 0038 90
$FLSH 0071 91
$FPAD 0095 92 1457 1670
$HASH 0014 93
$I200 00B3 99
$I205 00B8 100 1621
$I400 00C4 101 2439 2479
$I403 00D0 102 328 2468
$I405 0CBF 2474
$I410 0CC1 2475 2463 2464 2465
$I490 0CCA 2480 2462 2478
$I492 0CCC 2481 2466
$I494 0CCE 2483 933 2472
$IBSY 0013 94 502 533 614 935 976
$IBT2 00B9 95
$IBT4 00D4 96 939 1625
$IOCT 0032 97 535 615
$IREQ 002C 98 952 1623 2447 2451 2469
$KCSW 007C 103
$LAST 0033 104
$LEV0 0008 105
$LEV1 0009 106
$LEV2 000A 107
$LEV3 000B 108
$LEV4 000C 109
$LEV5 000D 110
$LINK 0039 111
$NDUP 0034 112
$NXEQ 0035 113
$PBSY 0036 114
$PGCT 0037 115
$PHSE 0078 116
$PRET 0028 117 424 499 1035 2350 2446
$PST1 0081 118
$PST2 0085 119
$PST3 0089 120
$PST4 008D 121 498 2456
$SNLT 00EF 122
$STOP 0091 123 2440 2459
$SYSC 00E0 124
$UFDR 007D 125
$UFIO 0079 126
$ULET 002D 127 1453 1666
$WRD1 007B 129
$WSDR 007A 128
$ZEND 01E0 130 212 1615 1616 1617
'1134 0091 176 487 1399
'CCOL 0050 165 962 1029 1030
'CIDN 0003 162 1759
'COLD 0030 155
'CSTR 00D0 156 1682 1726
'D100 1000 199
'D200 2000 207 402
'DCOM 0001 148 1946 2403
'HDNG 0007 152
'I000 3A00 208 1725
'I102 1100 200
'I103 1200 201
'I104 1401 202
'I105 1402 203
'I106 1404 204
'I108 1701 205
'I109 1702 206
'I206 0F01 198 403
'I208 0900 197 405
'I402 4E00 209
'I404 4F01 210
'I510 2000 192 1728
'I511 8800 193 1729
'I512 9000 194 1730
'I513 9800 195 1731
'I514 A000 196 1732
'IDAD 0000 147 1727 2405
'MNCR 1000 167 226 1737 2493
'MSCT 0658 154 1734
'MXDR 0005 161
'NDCY 0003 160
'P2AD 0630 153 227 2369 2370
'PRWC 003C 164 2485 2486
'RIAD 0002 149 2406
'RLTB 0006 151
'SADR 0001 159
'SCNT 0140 166 1921 1936 1945 1948 1954 1958 1978 2027 2364 2433 2485 2487
2490
'SLET 0003 150 1816 1949 1955 1959
'STAT 0007 163 1745
'WDCT 0000 158
AA000 0435 932 2494
AA010 0438 934 937
AA020 0445 942 944
AA040 0454 956 1092 1138 1250 1281 1390 1461 1511 1576 1811 1823 1865 1895
2273
AA042 0469 984 958
AA044 046D 988 993
AA046 0487 1011 986
AA048 048D 1017 1009
AA050 0460 975 978 984 990 1007 1013
AA060 0554 1036 938 1624
AA070 055D 1047 1019
AA080 0569 1055 1048
AA900 0457 962 956
AA902 0494 1028 1057 1872 1877 2164
AA903 0495 1029 957
AA904 0496 1030 965 1049 1107 1133 1234 1263 2078 2141
AA906 04E6 1031 969 1001 2162 2163
AA908 0492 1025 967 991 995 999
AA912 045E 971 992
AA913 045F 972 996
AA914 0458 964 1011
AA916 045C 968 1005
AA918 045A 966 988
AB000 0582 1076 1051
AC000 058B 1086 1052
AD000 0595 1098 1053
AD010 059B 1107 1123 1125 1128 1134
AD040 05A7 1119 1113 1122 1131
AD050 05B7 1130 1121
AD060 05C5 1142 1132
AD070 05CC 1147 1159
AD080 05DD 1160 1152 1156
AD100 05E7 1178 1164
AD105 05E9 1180 1190
AD110 05F7 1189 1183
AD120 05FD 1193 1178
AD122 05FF 1198 1202 1203
AD124 0606 1202 1207
AD128 0609 1205 1201
AD900 05E3 1168 1120 1127 1137
AD901 05E4 1169 1124 1135
AD902 05E5 1170 1151
AD903 05E6 1171 1149 1153 1157
AD910 060D 1211 1184 1187
AD920 0612 1216 1185 1188 1192
AE000 0613 1218 1056
AE010 0626 1234 1232 1242 1244 1246
AE040 062E 1240 1241
AE902 0640 1254 1223 1225
AE903 0641 1255 1226
AE904 0642 1256 1220 1222
AE905 0643 1257 1231
AE906 0644 1258 1243 1245
AF000 0645 1263 1221
AF004 0664 1291 1275
AF008 0661 1287 1273
AF016 065E 1283 1271
AF032 0659 1279 1269 1285 1289 1292
AF901 0666 1294 1291
AG000 0667 1298 1224
AG010 0669 1299 1336 1339
AG020 0685 1318 1311
AG030 0689 1321 1306
AG040 068B 1323 1313 1315
AG050 068E 1325 1322
AG054 0695 1331 1330
AG060 069D 1336 1328
AG080 06B2 1353 1357 1370 1374 1378 1382 1386
AG090 06C7 1367 1360
AG100 06CC 1371 1362
AG110 06D1 1375 1365
AG120 06D6 1379 1347
AG130 06DB 1383 1349
AG140 06E0 1387 1355
AG900 06E6 1395 1369
AG902 06E8 1397 1373
AG904 06EA 1399 1377
AG906 06EC 1401 1381
AG908 06EE 1403 1385
AG910 06F0 1405 1352
AG912 06F2 1407 1345 1358 1363
AG913 06F3 1408 1309 1318
AG914 06F4 1409 1354 1356
AH000 06F5 1411 1062 1606
AH010 06FA 1415 1649
AH020 06FE 1419 1064
AH030 0702 1422 1066
AH040 0704 1424 1421
AH050 0706 1426 1418
AH060 0733 1461 1444 1446
AI000 0735 1466 1081
AI010 073F 1474 1469
AI020 074A 1485 1480
AI030 0754 1492 1487
AI040 075E 1499 1494
AI045 0767 1506 1501
AI050 0769 1507 1505
AI900 0772 1515 1468 1496
AI901 0773 1516 1471
AI902 0774 1517 1474 1484 1491 1498 1506 1507
AI903 0775 1518 1479 1486 1493 1500
AI904 0776 1519 1482
AI905 0777 1520 1489
AI906 0778 1521 1503
AJ000 0779 1523 1068
AJ010 0782 1530 1600
AJ020 0788 1534 1526 1587 1589 1592 1594
AJ030 078B 1536 1533 1591
AJ040 078E 1538 1433 1435 2189
AJ050 0794 1541 1575
AJ060 07A3 1553 1605
AJ070 07A9 1557 1546
AJ080 07B4 1566 1562
AJ090 07B8 1570 1560 1568
AJ100 07BF 1576 1569
AJ110 07C1 1578 1530
AJ120 07C5 1583 1531
AJ130 07C8 1587 1581
AJ140 07CF 1594 1529
AJ150 07D6 1599 1597
AJ160 07D9 1602 1548
AK000 07E0 1611 1070
AK010 07E7 1616 1619
AK020 07F9 1629 1719
AK025 082E 1676 1661
AK029 0854 1712 1708
AK030 0855 1716 1631 1633
AK040 086A 1741 1712
AK045 0879 1752 1747
AK050 0880 1759 1750
AK055 0887 1763 1776
AK060 0895 1772 1768
AK065 08A5 1786 1792
AK070 08B0 1795 1789
AK074 08DB 1825 1815 1831
AK076 08DF 1828 1830
AK080 08E5 1835 1613
AK100 08F3 1849 1848 1864
AK110 08F6 1852 1849 1851
AK120 08FE 1857 1854
AK130 0902 1860 1856
AK900 085C 1724 1629
AK902 085E 1726 1684
AK904 0860 1728 1635
AK905 0865 1733 1683 1685 1686 1695 1696
AK906 0866 1734 1637
AK907 0867 1735 1630 1634 1724
AK908 0868 1736 1847
AK909 0869 1737 1857
ASCRA 01FD 244 1803
AZ901 0B53 2354 1061 1063 1067 1144 1248 1305 1312 1314 1323 1367 1379 1388
1416 1572 1595 1698 1860 1879 1882 1925 1938 2183 2226
AZ902 0B54 2355 1319 1537 1558 1588 1746 1890 2191
AZ903 0B55 2356
AZ904 0B56 2357 1632 1752
AZ905 0B57 2358 1069 1310
AZ906 0B58 2359
AZ907 0B59 2360 1065
AZ908 0B5B 2362 1327
AZ909 0B5C 2363 1302
AZ910 0B5A 2361 2120
AZ911 0B5E 2365 1855
AZ912 0B5D 2364 946 948 1438 1543 1642 1644 1694
AZ913 0B5F 2366 1891 2349
AZ914 0B60 2367 1060
AZ915 0B61 2368 2087
AZ916 0B62 2369 1975
AZ917 0B63 2370 2223
AZ918 0B64 2371 1764
AZ919 0B65 2372 1078
AZ920 0B66 2373 1859
AZ921 0B67 2374 1590 1648 1899
AZ922 0B68 2375 1434
AZ923 0B69 2376
AZ924 0B6A 2377 2188
AZ925 0B6B 2378 1532
AZ926 0B6C 2379 1279 1283 1287 1332 1350 1375 1473
AZ927 0B6D 2380 1088
AZ928 0B6E 2381 1424
AZ929 0B6F 2382 1186
AZ931 0B70 2383 1897
AZ932 0B71 2384 1422 1580
AZ933 0B72 2385 1050 1389 1839
AZ934 0B73 2386 1431 2184 2186
AZ935 0B74 2387 1553 1579 1585
AZ937 0B75 2388 1541 1571
AZ938 0B76 2389 949 1646 2057
AZ939 0B77 2390 1247 1249 1338
AZ940 0B78 2391 1180 1509 2220
AZ941 0B79 2392 1420 1423 1584
AZ942 0B7A 2393 950 1443 1612 1647
AZ943 0B7B 2394 1439 1545 1550 1603
AZ944 0B7C 2395 1417 1425 1528 1561 1564 1599
AZ945 0B7D 2396 1539 2187
AZ948 0B7E 2397 1437 1547 1604
AZ949 0B7F 2398 1047 1080 1091 1163 1387 1838
AZ950 0B80 2399 1412 1415 1614
AZ952 0B81 2400 985 1017 1055 1090 1510 1841
AZ954 0B82 2401 1559
AZ956 0B83 2402 1432
AZ957 0B84 2403 1780
AZ958 0B85 2404 1142
AZ959 0B86 2405 1447 1741
AZ960 0B87 2406 1676
AZ961 0B88 2407 1426
AZ962 0B89 2408 2090
AZ964 0B8A 2411 1544 1549 1552 1556 1602
AZ966 0B8C 2416 1452 1663
AZ967 0B8D 2417 1454 1665
AZ968 0B8E 2418 1456 1667
AZ969 0B8F 2419 1458 1669
AZ970 0B90 2420 1460 1671
AZ971 0B91 2421 1100
AZ972 0B92 2422 1111 1114 1238 1267 2083 2116 2121 2124
AZ973 0B93 2423 1239
AZ974 0B94 2424 1112
BUFFR 0BF6 2433 933 934 940 942 1419 1448 1450 1457 1459 1554 1616 1662
1670 1672 1677 1682 1742 1745 1759 1763 1769 1770 1772 1781
1785 1817 1819 1821 1828 1992 1995 1998 1999 2023 2026 2029
2069 2218 2222 2225 2242 2401 2485 2487
BUFR1 0E78 2488 1914 1919 1923 1936 1970 1972 1978 2050
C1134 0094 179 1400
CAREA 01F6 237 1809
CARID 01FE 245 1761 1786
CDCNV 0093 178 1396 1398
CHN12 0207 256
CIBFR 01FA 241 1796
CILWC 01F0 231
CK100 090C 1872 1901
CK200 0912 1875 1003 1888
CK250 0915 1877 1881
CK300 091E 1884 1427 1900 2407
CK400 092E 1897 1884 2407
CK500 0934 1912 1931 1977
CK510 093C 1919 1940
CK520 0943 1923 1927
CK530 094F 1936 1930
CK600 0966 1968 1655 1980 1983
CK630 0980 1991 1710 2033
CK640 098D 2000 2008
CK650 0994 2006 2001
CK660 0999 2011 2019
CK670 09A3 2021 2014
CK680 09AE 2029 2031
CK900 0933 1905 1430 1874 1876 1893 1898
CK902 0956 1945 1969
CK910 0958 1948 1913
CK912 095A 1950 1916 1922 1928 1939 1981
CK913 095B 1951 1709 1979
CK914 095C 1952 1918 1929
CK915 095D 1953 2007
CK916 095E 1954 2025
CK918 0960 1956 1993 2022
CK920 0962 1958 1994
CK922 0964 1960 2011 2012
CK923 0965 1961 2010 2013
CKBRD 0095 180
CKSUM 090B 1871 1527 1873 1883
CNPTR 0B48 2345 1718 1892 2271 2278 2284 2337 2347 2351
CNVID 0209 258
CNVRT 009C 187
COM34 0A01 2140 1077 1087 1099 1219 2146
CONFG 0E3B 2485 940 1240 1299
CVRT 009D 188
DCYL1 01F2 233 1774
DCYL2 01F3 234
DCYL3 01F4 235
DINDR 01F8 239 1334 1335 1344
DISK1 0097 182
DISKN 0098 183
DISKZ 0096 181
DZ000 00F2 157 218 1620 1688 1699 2041 2060 2233
E 0B52 2353 945 946 948 949 950 985 1016 1017 1047 1050 1055 1060
1061 1063 1065 1067 1069 1078 1080 1088 1090 1091 1100 1111
1112 1114 1144 1163 1180 1186 1238 1239 1247 1248 1249 1267
1279 1283 1287 1302 1305 1310 1312 1314 1319 1323 1327 1332
1350 1367 1375 1379 1387 1388 1389 1412 1415 1416 1417 1420
1422 1423 1424 1425 1426 1431 1432 1434 1437 1438 1439 1443
1447 1452 1454 1456 1458 1460 1473 1509 1528 1532 1541 1543
1544 1545 1547 1549 1550 1552 1553 1556 1559 1561 1564 1571
1572 1579 1580 1584 1585 1590 1595 1599 1602 1603 1612 1614
1632 1642 1644 1646 1647 1648 1663 1665 1667 1669 1671 1676
1694 1698 1741 1746 1752 1764 1780 1838 1839 1841 1855 1859
1860 1879 1882 1890 1891 1897 1899 1925 1938 1975 2057 2083
2087 2090 2116 2120 2121 2124 2183 2186 2187 2188 2220 2223
2226 2349
EB020 09F2 2117 2127
EB901 09FF 2130 2118
EB902 0A00 2131 2119 2123
EBTDC 09EF 2114 1109 1236 1265 2080 2128
ER002 0A5E 2248 1071
ER003 0A64 2253 1089 1413
ER004 0A6A 2258 1540 1598
ER005 0B22 2312 1749 1753
ER012 0B28 2317 1760 1765 1771 1793
ER013 0B2E 2322 1227 1233 1276 1301 1303 1308 1316 1320 1366
ER014 0B34 2327 1976
ER015 0A70 2263 1101 1146 1154 1158 2088
ER016 0B3A 2332 1755
ER017 0A76 2268 1079 1472 1483 1490 1497 1504
ER018 0A80 2275 980 2279
ER019 0A89 2281 1982 2285
ER100 0A7B 2271 2251 2256 2261 2266
ER200 0B3F 2335 2315 2320 2325 2330
ER300 0B41 2337 2341
ER310 0B43 2339 2335
ER320 0B45 2340 2336
ERR21 0467 980 997
F1900 09C0 2049 2040
FE900 09CE 2068 2059
FETCH 09C2 2056 1449 1555 1743 1782 1996 2058 2063
FLETI 01FF 246 1807
FPADR 0200 247 1974
FTCH1 09B6 2039 1920 1971 2044
I1442 0090 175 1397
I2501 008F 174 1395
IKBRD 0092 177
IN901 0285 333 327
INTPT 0280 326 321 951 1622
LD900 01EC 226 215
LD902 01EE 228 217
LDPH2 01E0 215 1200
LET00 0202 249 1801
LMODE 01F5 236 1445 1508 1654 1660 1707 1748 1754 1810
LOLIM 022A 295 1216
LPHID 0229 292 1206
MAXPH 01FC 243 1161
MO090 09D4 2078 2089
MO200 09DB 2084 2091 2408
MO300 09E7 2094 2408
MO900 09EE 2101 2076 2096
MODNO 09D0 2075 1126 2077 2092 2097
MSG01 0235 309 1886 1887
MSG02 0241 312 309 2249 2250
MSG03 0251 315 312 2254 2255
MSG04 0264 318 315 2259 2260
MSG05 026F 321 318 2313 2314
MSG11 0A92 2289 1716 1717
MSG12 0A9F 2291 2289 2318 2319
MSG13 0AAF 2293 2291 2323 2324
MSG14 0ABC 2295 2293 2328 2329
MSG15 0ACE 2297 2264 2265 2295
MSG16 0ADB 2299 2297 2333 2334
MSG17 0AED 2301 2269 2270 2299
MSG18 0AFE 2303 2276 2277 2301
MSG19 0B0B 2305 2282 2283 2303
MSG20 0B21 2308 2305
P1132 008D 172 1403
P1403 008C 171 1401
PA020 0A13 2165 2174
PA030 0A1D 2175 2161
PACK0 0A0B 2160 1018 2176
PAIR1 020C 263 1119 1198 2404
PAIR2 020E 265 1215
PAIR3 0210 267 1214
PAIR4 0212 269
PAIR5 0214 271
PAIR6 0216 273
PAIR7 0218 275
PAIR8 021A 277 1213
PAIR9 021C 279
PAIRA 021E 281 1212
PAIRB 0220 283 1211
PAIRC 0222 285
PAIRD 0224 287
PAIRE 0226 289
PAIRF 0228 291
PCPAD 008E 173 1405
PHAS2 0376 714 216 221 226 229
PIDEV 009B 186
PINPT 009A 185
PRINT 0099 184
PRNPR 020B 260 1351 1380 1384
PRNRD 020A 259 1368 1372 1376
PT000 02C2 488 559 989 1006 1012 1041
PT010 02C5 492 617
PT015 02CA 497 513
PT020 02CB 498 493
PT030 02CC 499 509
PT040 02CD 501 491
PT050 02DE 518 654
PT060 02E3 524 501
PT070 02E6 527
PT080 02E7 528 525
PT090 02E9 531 526 529
PT100 02F0 537
PT110 02F5 543 662
PT120 0300 559 565
PT130 0301 561 521 549
PT140 0307 568 534 581 625 641
PT150 030F 578 572 575 585
PT160 0313 584 494 510
PT170 0316 592 495
PT180 031A 596
PT190 031B 598
PT200 031F 602 517 518 520 623
PT210 0329 612 634
PT220 0330 617 627 644
PT230 0331 619 610 766
PT240 0335 623 767
PT250 0336 625 739 742 748 762
PT260 0339 630 595
PT270 0341 639 522
PT280 0344 641
PT290 0345 643
PT300 0347 646 507 619 765
PT310 0348 647 506 747 782
PT320 0349 654 519
PT330 034A 655 531 604 607 631 636 686 696 770
PT340 034B 656 514 603 605 635 637 654
PT350 034C 657 528
PT360 034D 658 516 606 608 630 632
PT370 034E 659 532 537 547 569
PT380 034F 660 527 598 613
PT390 0350 661 539
PT400 0351 662 544
PT410 0352 663 574
PT420 0354 665 583 666
PT430 0354 666 577 592
PT450 0356 669 551 626
PT460 0358 671 540 542 543 545 564 596 643
PT470 035A 673 702
PT480 035B 674 562 601 640 662 692 701 737 781
PT490 0356 668 669 693
PT500 035C 675 554 708 759 769 771
PT510 035D 676 553 760
PT520 035E 677 556
PT530 035F 682
PT540 0360 683 557 685 687
PT550 0361 685 774
PT560 036D 699 695 704 709
PT570 036E 701 690
PT580 0378 727 794
PT582 0379 728 738
PT590 037A 729 740
PT600 037B 730 743
PT610 037C 731 750
PT620 037D 732 746
PT630 037E 733 753
PT640 037F 734 622
PT660 0380 735 777
PT670 0381 737 600
PT680 038C 747 752
PT690 038E 750 745
PT700 0391 753
PT710 0395 759 755
PT715 039C 767 795
PT720 039D 769 756
PT730 03A3 776 699 735
PT740 03A9 781 788
PT750 03AB 783 775 776 778
PT760 03B4 793 779 786
PT770 03B6 794 791
PT780 03B8 804 490 735 780 790
PT785 042F 923 780
PT790 0434 925 486
PTRID 0206 255 1353
RDRID 0208 257
RE100 0A22 2183 2185
RELAD 0A21 2182 1538 2192 2402
RS100 0A38 2207 2199
RS200 0A3A 2208 2200
RS300 0A3C 2209 2201
RSTXR 0A37 2206 1337 2210
SAVXR 0A31 2198 1298 2202
SCORE 01FB 242 1280 1853
SHIFT 0203 250 1799
SSBFR 0201 248 1861
T1442 01F7 238 1324
TEM 0A0A 2148 2143 2145 2167 2169
TZ100 0289 348 351 1040
TZ200 028E 356 340
TZ300 0292 366 393 396
TZ310 0298 371 367
TZ320 029C 375 370
TZ340 029F 384 385
TZ400 02B7 419 359 391 422 425
TZ900 02AE 402 349 411 420
TZ902 02B0 404 380
TZ904 02B2 406 375
TZ905 02B3 407 358 366 368 372 392
TZ906 02B4 408 350 384 387
TZ907 02B5 409 356
TZ908 02B6 410 379 404
TZ909 02AE 411 423
UPLIM 022B 296
VERSN 01F9 240 2086 2094 2095
WR100 0A52 2231 2221 2224
WR900 0A5C 2241 2232
WRITE 0A40 2217 1428 1551 1678 1818 1820 1822 1835 2021 2032 2219 2227 2236
WRTYZ 0287 339 397 2346