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