ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 2020 Source File: \dsysldr1.asm CARD INPUT SYSTEM LOADER - PHASE 1 2 | *************************************************** DP100020 3 | *STATUS - VERSION 2, MODIFICATION 12 * DP100030 4 | * * DP100040 5 | *FUNCTION/OPERATION- * DP100050 6 | * PHASE 1 WILL PERFORM THE FOLLWING DURING A * DP100060 7 | * SYSTEM LOAD- * DP100070 8 | * * READ AND PROCESS THE LOAD MODE RECORD. * DP100080 9 | * * READ THE RESIDENT MONITOR, DISKZ AND THE * DP100090 10 | * COLD START PROGRAM AND ROLL THE RESIDENT * DP100100 11 | * MONITOR AND DISKZ TO THEIR PROPER CORE * DP100110 12 | * LOCATIONS FOR USE. * DP100120 13 | * * CHECK THE CHECKSUM OF SLET AND THE RELOAD * DP100130 14 | * TABLE FOR VALIDITY AND PACK SLET IF PREVIOUS* DP100140 15 | * CHECKSUM IS ZERO ON A RELOAD FUNCTION. * DP100150 16 | * * WRITE THE COLD START PROGRAM AND RESIDENT * DP100160 17 | * IMAGE TO DISK. * DP100170 18 | * * READ PHASE 2 AND WRITE IT TEMPORARLY TO * DP100180 19 | * DISK. * DP100190 20 | * * READ AND CONDENSE THE SYSTEM CONFIGURATION * DP100200 21 | * RECORDS. * DP100210 22 | * * READ AND PROCESS THE PHID RECORD(S). * DP100220 23 | * * READ PHASE 2 INTO CORE AND BRANCH TO IT. * DP100230 24 | * * DP100240 25 | *ENTRY POINT- * DP100250 26 | * * ENTERED AT 'AA000' FROM THE CORE IMAGE * DP100260 27 | * LOADER. * DP100270 28 | * * DP100280 29 | *INPUT- * DP100290 30 | * * LOAD MODE CARD, SYSTEM CONFIGURATION CARDS, * DP100300 31 | * AND PHID CARD ARE IN HOLLERITH * DP100310 32 | * * ALL OTHER INPUT CARDS ARE BINARY, ASSEMBLED * DP100320 33 | * IN RELOCATABLE-ABSOLUTE FORMAT. * DP100330 34 | * * DP100340 35 | *OUTPUT- * DP100350 36 | * * PARTIAL CARTRIDGE LOAD. * DP100360 37 | * * DP100370 38 | *EXTERNAL REFERENCES- * DP100380 39 | * NONE * DP100390 40 | * * DP100400 41 | *EXIT- * DP100410 42 | * * EXITS FROM 'LDPH2' TO ENTER PHASE 2 AT * DP100420 43 | * 'BA000' AFTER THE PHID RECORD IS READ * DP100430 44 | * AND PROCESSED. * DP100440 45 | * * DP100450 46 | *TABLES/BUFFERS- * DP100460 47 | * * CONFG- TABLE INTO WHICH DATA FROM SYSTEM * DP100470 48 | * CONFIGURATION RECORDS IS ACCUMULATED * DP100480 49 | * * AA904- 80 WORD CARD INPUT BUFFER * DP100490 50 | * * AA902- 60 WORD CARD BUFFER INTO WHICH DATA * DP100500 51 | * FROM AA904 IS COMPRESSED. * DP100510 52 | * * BUFFR- 320 (OR 640) WORD DISK I/O BUFFER. * DP100520 53 | * * DP100530 54 | *ATTRIBUTES- * DP100540 55 | * * N/A * DP100550 56 | * * DP100560 57 | *NOTES- * DP100570 58 | * * THIS PHASE MUST BE IN CORE IMAGE FORMAT TO * DP100580 59 | * BE LOADED BY 2501/1442 CORE IMAGE LOADER. * DP100590 60 | * * THE SYSTEM LOAD IS PERFORMED ON DRIVE WHOSE * DP100600 61 | * PHYSICAL NUMBER IS SET IN BIT SWITCHES 12-15* DP100610 62 | * * DP100620 63 | *************************************************** DP100630 CARD INPUT SYSTEM LOADER - PHASE 1 65 | ABS DP100650 66 | * DP100660 67 | * COMMA EQUATES DP100670 68 | * DP100680 009F 69 | $ACDE EQU /9F TABLE OF AREA CODES DP100690 0006 70 | $CH12 EQU /06 CHANNEL 12 INDICATOR DP100700 005A 71 | $CILA EQU /5A ADDRESS OF END OF DISK SUBR DP100710 0007 72 | $COMN EQU /07 LENGTH OF COMMON (IN WORDS) DP100720 000E 73 | $CORE EQU /0E SIZE OF CORE DP100730 007E 74 | $CPTR EQU /7E CNSL PTR CHANNEL 12 INDICATOR DP100740 000F 75 | $CTSW EQU /0F CONTROL RECORD TRAP SWITCH DP100750 0005 76 | $CIBA EQU /05 SCTR ADDR OF CIB DP100760 009A 77 | $CYLN EQU /9A ARM POSITION DP100770 00EE 78 | $DBSY EQU /EE NON-ZERO WHEN DISKZ BUSY DP100780 0010 79 | $DADR EQU /10 BLK ADDR OF PROG TO BE LOADED DP100790 0077 80 | $DCDE EQU /77 DRIVE CODE OF PROG IN WRK STG DP100800 00A4 81 | $DCYL EQU /A4 TABLE OF DEFECTIVE CYLINDERS DP100810 0012 82 | $DREQ EQU /12 IND. FOR REQUESTED VERSION DKI/O DP100820 003F 83 | $DUMP EQU /3F CALL DUMP ENTRY POINT DP100830 0076 84 | $DZIN EQU /76 DISK SUBROUTINE IN CORE INDR DP100840 0038 85 | $EXIT EQU /38 CALL EXIT ENTRY POINT DP100850 0071 86 | $FLSH EQU /71 FLUSH JOB SWITCH DP100860 0095 87 | $FPAD EQU /95 TABLE OF FILE PROTECT ADDRESSES DP100870 0014 88 | $HASH EQU /14 WORK AREA DP100880 0013 89 | $IBSY EQU /13 NON-ZERO IF CD/PAP TP DEV. BUSY DP100890 00B9 90 | $IBT2 EQU /B9 LEVEL 2 INTRPT BRANCH TABLE ADDR DP100900 00D4 91 | $IBT4 EQU /D4 ADDR OF THE IBT, LEVEL 4 DP100910 0032 92 | $IOCT EQU /32 ZERO IF NO I/O IN PROGRESS DP100920 002C 93 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE DP100930 00B3 94 | $I200 EQU /B3 ILS02 ENTRY POINT DP100940 00B8 95 | $I205 EQU /B8 ILS02 INTERRUPT ENTRY POINT DP100950 00C4 96 | $I400 EQU /C4 ILS04 ENTRY POINT DP100960 00D0 97 | $I403 EQU /D0 DP100970 007C 98 | $KCSW EQU /7C 1 IF KB,CP BOTH UTILIZED DP100980 0033 99 | $LAST EQU /33 LAST CARD INDICATOR DP100990 0008 100 | $LEV0 EQU /08 LEVEL 0 BRANCH ADDRESS DP101000 0009 101 | $LEV1 EQU /09 LEVEL 1 BRANCH ADDRESS DP101010 000A 102 | $LEV2 EQU /0A LEVEL 2 BRANCH ADDRESS DP101020 000B 103 | $LEV3 EQU /0B LEVEL 3 BRANCH ADDRESS DP101030 000C 104 | $LEV4 EQU /0C LEVEL 4 BRANCH ADDRESS DP101040 000D 105 | $LEV5 EQU /0D LEVEL 5 BRANCH ADDRESS DP101050 0039 106 | $LINK EQU /39 CALL LINK ENTRY POINT DP101060 0034 107 | $NDUP EQU /34 DO NOT DUP IF NON-ZERO DP101070 0035 108 | $NXEQ EQU /35 DO NOT EXECUTE IF NON-ZERO DP101080 0036 109 | $PBSY EQU /36 NON-ZERO WHEN PRINTER BUSY DP101090 0037 110 | $PGCT EQU /37 PAGE NO. FOR HEADINGS DP101100 0078 111 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE DP101110 0028 112 | $PRET EQU /28 IOCS SOFT ERROR TRAP DP101120 0081 113 | $PST1 EQU /81 TRAP FOR I/O ERRORS, LEVEL 1 DP101130 0085 114 | $PST2 EQU /85 TRAP FOR I/O ERRORS, LEVEL 2 DP101140 0089 115 | $PST3 EQU /89 TRAP FOR I/O ERRORS, LEVEL 3 DP101150 008D 116 | $PST4 EQU /8D TRAP FOR I/O ERRORS, LEVEL 4 DP101160 00EF 117 | $SNLT EQU /EF SENSE LIGHT INDICATOR DP101170 0091 118 | $STOP EQU /91 PROGRAM STOP KEY TRAP DP101180 00E0 119 | $SYSC EQU /E0 MODIFICATION LEVEL DP101190 007D 120 | $UFDR EQU /7D DRIVE CODE OF UNFORMATTED I/O DP101200 0079 121 | $UFIO EQU /79 UNFORMATTED I/O RECORD NO. DP101210 002D 122 | $ULET EQU /2D TABLE OF LET ADDRESSES DP101220 007A 123 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE DP101230 007B 124 | $WRD1 EQU /7B ADDR OF 1ST WD OF CORE LOAD DP101240 01E0 125 | $ZEND EQU /1E0 END OF DISKZ DP101250 007F 126 | $1132 EQU /7F 1132 PRINTER CHANNEL 12 INDR DP101260 0080 127 | $1403 EQU /80 1403 PRINTER CHANNEL 12 INDR DP101270 128 | * DP101280 129 | * DCOM RELATIVE EQUATES DP101290 130 | * DP101300 0008 131 | #SYSC EQU 08 SYS/NON-SYS CARTRIDGE INDR DP101310 002D 132 | #FPAD EQU 45 FILE PROTECT ADDRESS DP101320 0037 133 | #CIDN EQU 55 CARTRIDGE ID DP101330 003C 134 | #CIBA EQU 60 SECTOR ADDRESS OF CIB DP101340 0041 135 | #SCRA EQU 65 SECTOR ADDRESS OF SCRA DP101350 004B 136 | #FLET EQU 75 FLET SECTOR ADDRESS DP101360 0050 137 | #ULET EQU 80 LET SECTOR ADDRESS DP101370 005A 138 | #CSHN EQU 90 SECTOR COUNT OF CUSHION DP101380 139 | * DP101390 140 | * ABSOLUTE EQUATES DP101400 141 | * DP101410 0000 142 | @IDAD EQU /0000 CART ID, COLD START SAD DP101420 0001 143 | @DCOM EQU /0001 DCOM SECTOR ADDRESS DP101430 0002 144 | @RIAD EQU /0002 RESIDENT IMAGE SECTOR ADDR DP101440 0003 145 | @SLET EQU /0003 FIRST SLET SECTOR ADDRESS DP101450 0006 146 | @RLTB EQU /0006 RELOAD TABLE SECTOR ADDRESS DP101460 0007 147 | @HDNG EQU /0007 PAGE HEADING SECTOR ADDRESS DP101470 0630 148 | @P2AD EQU /0630 SYS LDR - PHASE 2 SCTR ADDR DP101480 0658 149 | @MSCT EQU /0658 MAXIMUM SECTOR ADDRESS - 1 DP101490 0030 150 | @COLD EQU /0030 RLTV ADDR 1ST WD COLD START DP101500 00D0 151 | @CSTR EQU /00D0 DP101510 00F2 152 | DZ000 EQU /00F2 DISKZ ENTRY POINT DP101520 0000 153 | @WDCT EQU 0 RLTV ADDR WORD COUNT IN BFR DP101530 0001 154 | @SADR EQU 1 RLTV ADDR SCTR ADDR IN BFR DP101540 0003 155 | @NDCY EQU 3 MAX NO. OF DEF CYLINDERS DP101550 0005 156 | @MXDR EQU 5 MAX NO. OF DISK DRIVES DP101560 0003 157 | @CIDN EQU 3 RLTV ADDR OF CARTRIDGE ID DP101570 0007 158 | @STAT EQU 7 RLTV ADDR CART STATUS WORD DP101580 003C 159 | @PRWC EQU 60 PRINTER BUFFER LENGTH DP101590 0050 160 | @CCOL EQU 80 NUMBER OF COLUMNS PER CARD DP101600 0140 161 | @SCNT EQU 320 NUMBER OF WORDS PER SECTOR DP101610 1000 162 | @MNCR EQU 4096 MINIMUM ALLOWABLE CORE SIZE DP101620 163 | * DP101630 164 | * SYSTEM DEVICE SUBROUTINE PHASE IDS DP101640 165 | * DP101650 008C 166 | P1403 EQU 140 PHASE ID OF SYS 1403 SUBR DP101660 008D 167 | P1132 EQU 141 PHASE ID OF SYS 1132 SUBR DP101670 008E 168 | PCPAD EQU 142 PHASE ID OF SYS C. P. SUBR DP101680 008F 169 | I2501 EQU 143 PHASE ID OF SYS 2501 SUBR DP101690 0090 170 | I1442 EQU 144 PHASE ID OF SYS 1442 SUBR DP101700 0091 171 | I1134 EQU 145 PHASE ID OF SYS PAPT SUBR DP101710 0092 172 | IKBRD EQU 146 PHASE ID OF SYS KEYBRD SUBR DP101720 0093 173 | CDCNV EQU 147 PH ID OF SYS 2501/1442 CONV DP101730 0094 174 | C1134 EQU 148 PHASE ID OF SYS 1134 CONV DP101740 0095 175 | CKBRD EQU 149 PHASE ID OF SYS KEYBRD CONV DP101750 0096 176 | DISKZ EQU 150 PHASE ID OF DISKZ SUBR DP101760 0097 177 | DISK1 EQU 151 PHASE ID OF DISK1 SUBR DP101770 0098 178 | DISKN EQU 152 PHASE ID OF DISKN SUBR DP101780 0099 179 | PRINT EQU 153 PH ID OF PRINC PRINT SUBR DP101790 009A 180 | PINPT EQU 154 PH ID OF PRINC INPUT SUBR DP101800 009B 181 | PIDEV EQU 155 PRINC INPUT EXCLUDING KEYBD DP101810 009C 182 | CNVRT EQU 156 PRINC SYS CONVERSION SUBR DP101820 009D 183 | CVRT EQU 157 PRINC CONV EXCLUDING KEYBRD DP101830 184 | * DP101840 185 | * DEVICE CODES DP101850 186 | * DP101860 2000 187 | @I510 EQU /2000 AREA CODE FOR DISK DRIVE 0 DP101870 8800 188 | @I511 EQU /8800 AREA CODE FOR DISK DRIVE 1 DP101880 9000 189 | @I512 EQU /9000 AREA CODE FOR DISK DRIVE 2 DP101890 9800 190 | @I513 EQU /9800 AREA CODE FOR DISK DRIVE 3 DP101900 A000 191 | @I514 EQU /A000 AREA CODE FOR DISK DRIVE 4 DP101910 B000 192 | @I515 EQU /B000 AREA CODE FO PHY DR 5 2-11 DP101911 B800 193 | @I516 EQU /B800 AREA CODE FO PHY DR 6 2-11 DP101912 B810 194 | @I517 EQU /B810 AREA CODE FO PHY DR 7 2-11 DP101913 B820 195 | @I518 EQU /B820 AREA CODE OF PHY DR 8 2-11 DP101914 B830 196 | @I519 EQU /B830 AREA CODE OF PHY DR 9 2-11 DP101915 B840 197 | @I520 EQU /B840 AREA CODE OF PHY DR 10 2-11 DP101916 0900 198 | @I208 EQU /0900 CNSL PTR PRINT IOCC DP101920 0F01 199 | @I206 EQU /0F01 CNSL PTR SENSE DSW W/RESET DP101930 1000 200 | @D100 EQU /1000 1442 NOT READY DISPLAY CODE DP101940 1100 201 | @I102 EQU /1100 1442 PUNCH A COLUMN IOCC DP101950 1200 202 | @I103 EQU /1200 1442 READ A COLUMN IOCC DP101960 1401 203 | @I104 EQU /1401 1442 START PUNCH IOCC DP101970 1402 204 | @I105 EQU /1402 1442 FEED A CARD IOCC DP101980 1404 205 | @I106 EQU /1404 1442 START READER IOCC DP101990 1701 206 | @I108 EQU /1701 1442 SEN DSW W/RESET HI PRI DP102000 1702 207 | @I109 EQU /1702 1442 SEN DSW W/RESET LO PRI DP102010 2000 208 | @D200 EQU /2000 CNSL PTR NOT READY DISPLAY DP102020 3A00 209 | @I000 EQU /3A00 READ DATA SWITCHES IOCC DP102030 4E00 210 | @I402 EQU /4E00 2501 INITIATE READ IOCC DP102040 4F01 211 | @I404 EQU /4F01 2501 SENSE DSW WITH RESET DP102050 FETCH AND BRANCH TO PHASE 2 01E0 213 | ORG $ZEND BEGIN AT END OF DISKZ DP102070 214 | * DP102080 215 | * DP102090 01E0 C80B 216 | LDPH2 LDD LD900 FETCH AND STORE DP102100 01E1 DC00 0376 217 | STD L PHAS2 *WORD COUNT AND SCTR ADDR DP102110 01E3 C80A 218 | LDD LD902 FETCH FUNC CODE, I/O ADDR DP102120 01E4 4400 00F2 219 | BSI L DZ000 BRANCH TO DISK READ DP102130 01E6 7400 00EE 220 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE DP102140 01E8 70FD 221 | MDX *-3 BR TO TEST READ COMPLETE DP102150 01E9 4C00 0378 222 | BSC L PHAS2+2 BRANCH TO PHASE 2 DP102160 223 | * DP102170 224 | * CONSTANTS AND WORK AREAS DP102180 225 | * DP102190 01EC 226 | BSS E 0 DP102200 01EC 0C88 227 | LD900 DC @MNCR-PHAS2-2 WORD COUNT OF PHASE 2 DP102210 01ED 0630 228 | DC @P2AD SCTR ADDR OF PHASE 2 DP102220 01EE 0000 229 | LD902 DC /0000 READ FUNCTION CODE DP102230 01EF 0376 230 | DC PHAS2 PHASE 2 I/O AREA DP102240 SYSTEM LOADER COMMUNICATIONS AREA 01F0 0000 232 | CILWC DC *-* CORE IMAGE LOADER WORD CNT DP102260 01F1 0000 233 | DC *-* CORE IMAGE LOADER SCTR ADDR DP102270 01F2 0000 234 | RINDR DC *-* CD RDR INDR- 0=2501,NZ=1442 DP102280 01F3 0658 235 | DCYL1 DC /0658 SCTR ADDR OF 1ST DEF CYLIN DP102290 01F4 0658 236 | DCYL2 DC /0658 SCTR ADDR OF 2ND DEF CYLIN DP102300 01F5 0658 237 | DCYL3 DC /0658 SCTR ADDR OF 3RD DEF CYLIN DP102310 01F6 0000 238 | LMODE DC *-* LOAD MODE IMAGE DP102320 01F7 0000 239 | CAREA DC *-* NO. SECTORS OF CUSHION AREA DP102330 01F8 0000 240 | T1442 DC *-* SET 1 IF 1442-6 OR 7 AVAIL DP102340 01F9 0000 241 | DINDR DC *-* ISS DEVICE INDICATOR DP102350 01FA 0000 242 | VERSN DC *-* VERSION AND MODIFICATION NO DP102360 01FB 0000 243 | CIBFR DC *-* SCTR ADDR OF CORE IMAGE BFR DP102370 01FC 0000 244 | SCORE DC *-* CORE SIZE DP102380 01FD 0000 245 | MAXPH DC *-* MAXIMUM PHASE ID DP102390 01FE 0000 246 | ASCRA DC *-* SECTOR ADDRESS OF SCRA DP102400 01FF 0000 247 | CARID DC *-* ID OF CARTRIDGE DP102410 0200 0000 248 | FLETI DC *-* FIXED AREA INDICATOR DP102420 0201 0000 249 | FPADR DC *-* FILE PROTECT ADDRESS DP102430 0202 0000 250 | SSBFR DC *-* NO. OF SCTRS FOR SLET BFR DP102440 0203 0000 251 | LET00 DC *-* PRE-LOAD LET SECTOR ADDRESS DP102450 0204 0000 252 | SHIFT DC *-* NO. OF SCTRS TO SHIFT DP102460 253 | * DP102470 0205 254 | BSS 23 COMMUNICATIONS PATCH AREA DP102480 255 | * DP102490 021C 0000 256 | PTRID DC *-* PH ID OF PRINC PRINT SUBR DP102500 021D 0000 257 | CHN12 DC *-* ADDRESS OF CHANNEL 12 INDR DP102510 021E 0000 258 | RDRID DC *-* PH ID OF PRINC I/O SUBR DP102520 021F 0000 259 | CNVID DC *-* PH ID OF PRINC CONV SUBR DP102530 0220 0000 260 | PRNRD DC *-* PRINCIPLE I/O DEVICE INDR DP102540 0221 0000 261 | PRNPR DC *-* PRINCIPLE PRINT DEVICE INDR DP102550 262 | * DP102560 0222 263 | BSS E 0 FORCE NEXT LOC TO BE EVEN DP102570 0222 0000 264 | PAIR1 DC *-* LOWER PHASE ID RANGE E DP102580 0223 0000 265 | DC *-* UPPER PHASE ID RANGE O DP102590 0224 0000 266 | PAIR2 DC *-* LOWER PHASE ID RANGE E DP102600 0225 0000 267 | DC *-* UPPER PHASE ID RANGE O DP102610 0226 0000 268 | PAIR3 DC *-* LOWER PHASE ID RANGE E DP102620 0227 0000 269 | DC *-* UPPER PHASE ID RANGE O DP102630 0228 0000 270 | PAIR4 DC *-* LOWER PHASE ID RANGE E DP102640 0229 0000 271 | DC *-* UPPER PHASE ID RANGE O DP102650 022A 0000 272 | PAIR5 DC *-* LOWER PHASE ID RANGE E DP102660 022B 0000 273 | DC *-* UPPER PHASE ID RANGE O DP102670 022C 0000 274 | PAIR6 DC *-* LOWER PHASE ID RANGE E DP102680 022D 0000 275 | DC *-* UPPER PHASE ID RANGE O DP102690 022E 0000 276 | PAIR7 DC *-* LOWER PHASE ID RANGE E DP102700 022F 0000 277 | DC *-* UPPER PHASE ID RANGE O DP102710 0230 0000 278 | PAIR8 DC *-* LOWER PHASE ID RANGE E DP102720 0231 0000 279 | DC *-* UPPER PHASE ID RANGE O DP102730 0232 0000 280 | PAIR9 DC *-* LOWER PHASE ID RANGE E DP102740 0233 0000 281 | DC *-* UPPER PHASE ID RANGE O DP102750 0234 0000 282 | PAIRA DC *-* LOWER PHASE ID RANGE E DP102760 0235 0000 283 | DC *-* UPPER PHASE ID RANGE O DP102770 0236 0000 284 | PAIRB DC *-* LOWER PHASE ID RANGE E DP102780 0237 0000 285 | DC *-* UPPER PHASE ID RANGE O DP102790 0238 0000 286 | PAIRC DC *-* LOWER PHASE ID RANGE E DP102800 0239 0000 287 | DC *-* UPPER PHASE ID RANGE O DP102810 023A 0000 288 | PAIRD DC *-* LOWER PHASE ID RANGE E DP102820 023B 0000 289 | DC *-* UPPER PHASE ID RANGE O DP102830 023C 0000 290 | PAIRE DC *-* LOWER PHASE ID RANGE E DP102840 023D 0000 291 | DC *-* UPPER PHASE ID RANGE O DP102850 023E 0000 292 | PAIRF DC 0 ZERO INDIC END OF PAIRS E DP102860 023F 0000 293 | LPHID DC *-* LAST PH ID FOR INITIAL LOAD DP102870 294 | * DP102880 0240 295 | BSS E 0 FORCE NEXT LOC TO BE EVEN DP102890 0240 0333 296 | LOLIM DC /0333 LOWER PHASE ID BYPASS LIMIT DP102900 0241 0999 297 | UPLIM DC /0999 UPPER PHASE ID BYPASS LIMIT DP102910 0242 0000 298 | DC *-* DP102920 0243 0000 299 | DC *-* DP102930 0244 0000 300 | DC *-* DP102940 0245 0000 301 | DC *-* DP102950 0246 0000 302 | DC *-* DP102960 0247 0000 303 | DC *-* DP102970 0248 0000 304 | DC *-* DP102980 0249 0000 305 | DC *-* DP102990 024A 0000 306 | DC *-* DP103000 307 | * DP103010 308 | * ERROR MESSAGES DP103020 309 | * DP103030 024B 000B 310 | MSG01 DC MSG02-* WORD COUNT OF MESSAGE E 01 DP103040 024C 8134 21C4 FC21 1C24 311 | DMES 'RE 01 CHECKSUM ERROR'R'E DP103050 341C 5898 B070 2134 | 6060 5060 8121 | 312 | * DP103060 0257 000F 313 | MSG02 DC MSG03-* WORD COUNT OF MESSAGE E 02 DP103070 0258 8134 21C4 D821 2074 314 | DMES 'RE 02 INVALID RECORD OR BLANK'R'E DP103080 B43C 5C20 3021 6034 | 1C50 6030 2150 6021 | 185C 3C74 5881 | 315 | * DP103090 0267 0012 316 | MSG03 DC MSG04-* WORD COUNT OF MESSAGE E 03 DP103100 0268 8134 21C4 DC21 9834 317 | DMES 'RE 03 SEQ ERROR OR MISSING RECORDS'R DP103110 6421 3460 6050 6021 | 5060 2170 2098 9820 | 7414 2160 341C 5060 | 3098 8121 | 318 | * DP103120 027A 000A 319 | MSG04 DC MSG05-* WORD COUNT OF MESSAGE E 04 DP103130 027B 8134 21C4 F021 5060 320 | DMES 'RE 04 ORG BACKWARD'R'E DP103140 1421 183C 1C58 903C | 6030 8121 | 321 | * DP103150 0285 0010 322 | MSG05 DC INTPT-* WORD COUNT OF MESSAGE E 05 DP103160 0286 8134 21C4 F421 2074 323 | DMES 'RE 05 INITIALIZE THE CARTRIDGE'R'E DP103170 209C 203C 5C20 A034 | 219C 2434 211C 3C60 | 9C60 2030 1434 8121 | 324 | * DP103180 325 | * INHIBIT INTERRUPT REQUEST DP103190 326 | * DP103200 0296 0000 327 | INTPT DC 0 ENTRY DP103210 0297 0802 328 | XIO IN901-1 SENSE INTRPT DSW WITH RESET DP103220 0298 4C00 00D5 329 | BSC L $I403+5 BRANCH TO ILS04 SUBROUTINE DP103230 330 | * DP103240 331 | * CONSTANTS AND WORK AREAS DP103250 332 | * DP103260 029A 333 | BSS E 1 FORCE NEXT LOC TO BE ODD DP103270 029B 0F01 334 | IN901 DC /0F01 SEN INTRPT DSW W/RESET IOCC DP103280 029C 0000 335 | DC 0 AVAILABLE DP103290 CONSOLE PRINTER SUBROUTINE - WRTYZ 337 | * DP103310 338 | * PROGRAM ENTRY DP103320 339 | * DP103330 029D 0000 340 | WRTYZ DC 0 ENTRY/RETURN ADDRESS DP103340 029E 7005 341 | MDX TZ200 BRANCH TO START DP103350 342 | * DP103360 343 | * INTERRUPT ENTRY - ILS04 BRANCHES TO 'TZ100' DP103370 344 | * WHEN AN INTERRUPT OCCURS. THIS SECTION DP103380 345 | * PROCESSES INTERRUPTS AND RETURNS TO THE POINT DP103390 346 | * FROM WHICH THE INTERRUPT OCCURED THROUGH DP103400 347 | * THE ILS04 SUBROUTINE DP103410 348 | * DP103420 029F 0000 349 | TZ100 DC 0 INTERRUPT ENTRY DP103430 02A0 0823 350 | XIO TZ900 SENSE DSW WITH RESET DP103440 02A1 6828 351 | STX TZ906 SET FLAG TO INDICATE INTRPT DP103450 02A2 4C80 029F 352 | BSC I TZ100 RETURN TO ILS04 DP103460 353 | * DP103470 354 | * 'WRTYZ' MAINLINE SECTION DP103480 355 | * INITIALIZE SUBROUTINE DP103490 356 | * DP103500 02A4 6A26 357 | TZ200 STX 2 TZ907 SAVE I/O BUFFER WORD COUNT DP103510 02A5 1810 358 | SRA 16 SET INDICATOR TO PRINT DP103520 02A6 D022 359 | STO TZ905 *FROM LEFT HALF OF WORD DP103530 02A7 4025 360 | BSI TZ400 BR TO TEST IF DEVICE READY DP103540 361 | * DP103550 362 | * MAIN LOOP DP103560 363 | * DETERMINE WHICH HALF OF WORD FROM WHICH TO DP103570 364 | * FETCH CHARACTER, SAVE CHARACTER TO BE DP103580 365 | * PRINTED AND UPDATE LEFT-RIGHT INDICATOR DP103590 366 | * DP103600 02A8 C020 367 | TZ300 LD TZ905 FETCH LEFT-RIGHT INDICATOR DP103610 02A9 4C20 02AE 368 | BSC L TZ310,Z BRANCH TO FETCH RIGHT HALF DP103620 02AB 681D 369 | STX TZ905 SET INDR FOR RIGHT HALF DP103630 02AC C100 370 | LD 1 0 FETCH A WORD FROM I/O BFR DP103640 02AD 7004 371 | MDX TZ320 DP103650 02AE 1810 372 | TZ310 SRA 16 SET INDICATOR DP103660 02AF D019 373 | STO TZ905 *FOR LEFT HALF NEXT DP103670 02B0 C100 374 | LD 1 0 FETCH A WORD FROM I/O BFR DP103680 02B1 1088 375 | SLT 8 SHIFT TO LEFT HALF DP103690 02B2 E015 376 | TZ320 AND TZ904 MASK OUT RIGHT HALF OF WORD DP103700 377 | * DP103710 378 | * PRINT THE CHARACTER DP103720 379 | * DP103730 02B3 D018 380 | STO TZ908 STORE IN OUTPUT BUFFER WORD DP103740 02B4 0811 381 | XIO TZ902 PRINT CHARACTER DP103750 382 | * DP103760 383 | * WAIT FOR INTERRUPT TO OCCUR DP103770 384 | * DP103780 02B5 C014 385 | TZ340 LD TZ906 FETCH INTERRUPT INDICATOR DP103790 02B6 4C18 02B5 386 | BSC L TZ340,+- BRANCH IF INDR = 0 DP103800 02B8 1010 387 | SLA 16 CLEAR INDICATOR FOR DP103810 02B9 D010 388 | STO TZ906 *NEXT INTERRUPT DP103820 389 | * DP103830 390 | * TEST FOR FORMS CHECK DP103840 391 | * DP103850 02BA 4012 392 | BSI TZ400 BR TO TEST IF DEVICE READY DP103860 02BB 7400 02C9 393 | MDX L TZ905,0 SKIP IF LEFT HALF NEXT DP103870 02BD 70EA 394 | MDX TZ300 BRANCH TO FETCH NEXT CHAR DP103880 02BE 7101 395 | MDX 1 1 INCREMENT I/O BUFFER ADDR DP103890 02BF 72FF 396 | MDX 2 -1 DECR WORD CNT, SKIP IF ZERO DP103900 02C0 70E7 397 | MDX TZ300 BRANCH TO FETCH NEXT CHAR DP103910 02C1 4C80 029D 398 | BSC I WRTYZ RETURN DP103920 399 | * DP103930 400 | * CONSTANTS AND WORK AREAS DP103940 401 | * DP103950 02C4 402 | BSS E 0 FORCE NEXT LOC TO BE EVEN DP103960 02C4 2000 403 | TZ900 DC @D200 ERROR INDICATOR DP103970 02C5 0F01 404 | DC @I206 SENSE DSW WITH RESET IOCC DP103980 02C6 02CC 405 | TZ902 DC TZ908 ADDRESS OF CHARACTER BUFFER DP103990 02C7 0900 406 | DC @I208 PRINT IOCC DP104000 02C8 FF00 407 | TZ904 DC /FF00 MASK OUT RIGHT HALF OF WORD DP104010 02C9 0000 408 | TZ905 DC *-* LEFT-RIGHT CHARACTER INDR DP104020 02CA 0000 409 | TZ906 DC *-* INTERRUPT WAIT INDICATOR DP104030 02CB 0000 410 | TZ907 DC *-* I/O BUFFER WORD COUNT DP104040 02CC 0000 411 | TZ908 DC *-* CHARACTER PRINT BUFFER DP104050 02C4 412 | TZ909 EQU TZ900 ADDRESS OF ERROR INDICATOR DP104060 413 | * DP104070 414 | * CHECK FOR CONSOLE PRINTER READY DP104080 415 | * IF CONSOLE PRINTER DP104090 416 | * NOT READY DP104100 417 | * FETCH ERROR CODE TO ACCUMULATOR AND DP104110 418 | * BRANCH TO SYSTEM PRE OPERATIVE ERROR TRAP DP104120 419 | * DP104130 02CD 0000 420 | TZ400 DC 0 ENTRY POINT DP104140 02CE 08F5 421 | XIO TZ900 SENSE DSW WITH RESET DP104150 02CF 1005 422 | SLA 5 SHIFT DEV BUSY BIT TO SIGN DP104160 02D0 4C90 02CD 423 | BSC I TZ400,- RETURN IF NOT BUSY DP104170 02D2 C0F1 424 | LD TZ909 FETCH ERROR INDICATOR DP104180 02D3 4400 0028 425 | BSI L $PRET BR TO PRE-OP ERROR TRAP DP104190 02D5 70F8 426 | MDX TZ400+1 BRANCH TO TEST BUSY AGAIN DP104200 SYSTEM 1442/1442 SUBROUTINE 02D6 428 | BSS E 0 FORCE NEXT LOC TO BE EVEN DP104220 02D6 4C00 0000 429 | CD000 BSC L *-* EXIT/ENTRY DP104230 02D8 704B 430 | MDX CD080 GO TO CALL PROCESSING DP104240 431 | * DP104250 432 | * END OF CARD INTERRUPT (LEVEL 4) DP104260 433 | * DP104270 02D9 4C00 0000 434 | CD010 BSC L *-* EXIT/ENTRY DP104280 02DB 700C 435 | MDX CD020 DP104290 436 | * DP104300 437 | * COLUMN INTERRUPT (LEVEL 0) DP104310 438 | * DP104320 02DC 4C40 0000 439 | CD016 BOSC L *-* EXIT (LEVEL 0 OFF)/ENTER DP104330 02DE D87B 440 | STD CD190 SAVE ACC AND EXTENSION DP104340 02DF 2806 441 | STS CD018 SAVE STATUS INDICATORS DP104350 02E0 087B 442 | XIO CD210 RESET LEVEL 0 DSW DP104360 02E1 087E 443 | XIO CD250 READ OR PUNCH COLUMN DP104370 02E2 C07D 444 | LD CD250 ADD 1 TO COLUMN ADDRESS DP104380 02E3 807E 445 | A CD240 OF READ OR PUNCH COLUMN DP104390 02E4 D07B 446 | STO CD250 IOCC FOR NEXT COLUMN DP104400 02E5 C874 447 | LDD CD190 RELOAD ACC AND EXTENSION DP104410 02E6 2000 448 | CD018 LDS 0 RELOAD STATUS INDICATORS DP104420 02E7 70F4 449 | MDX CD016 GO TO LEVEL 0 EXIT DP104430 450 | * DP104440 02E8 6500 0028 451 | CD020 LDX L1 $PRET ADDRESS OF SOFTWARE TRAP DP104450 02EA 0873 452 | XIO CD215 DP104460 02EB 1003 453 | SLA 3 SAVE ERROR BIT IN CARRY DP104470 02EC 4802 454 | BSC C IF NO ERROR CHECK LAST CARD DP104480 02ED 701F 455 | MDX CD050 ERROR CONTINUE AT CD050 DP104490 02EE 4828 456 | BSC +Z NOT LAST CARD IF NOT MINUS DP104500 02EF 701B 457 | MDX CD040 LAST CARD CONTINUE AT CD040 DP104510 02F0 1090 458 | SLT 16 SET ZEROS IN EXTENSION DP104520 02F1 C07A 459 | LD CD188 AFTER LOADING CARD SKIP DP104530 02F2 18D0 460 | RTE 16 INDICATOR, UNCONDITIONALLY DP104540 02F3 D078 461 | STO CD188 CLEAR IT ZERO. DP104550 02F4 18D0 462 | RTE 16 IF LAST OPERATION WAS A DP104560 02F5 4820 463 | BSC Z SKIP, INITIATE FUNCTION DP104570 02F6 701E 464 | MDX CD060 AT CD060. DP104580 465 | * DP104590 466 | * NO ERRORS IN CARD JUST COMPLETED DP104600 467 | * DP104610 02F7 1010 468 | CD030 SLA 16 DP104620 02F8 D1EB 469 | STO 1 $IBSY-X1 SET I/O BUSY SW = ZERO DP104630 02F9 C062 470 | LD CD210 FETCH ADDR OF 1ST COLUMN DP104640 02FA D001 471 | STO CD034+1 AND INITLZ LDX INSTRUCTION DP104650 02FB 6600 0000 472 | CD034 LDX L2 *-* DP104660 02FD C201 473 | LD 2 +1 DP104670 02FE 18D0 474 | RTE 16 PLACE FIRST TWO COLUMNS DP104680 02FF C200 475 | LD 2 0 IN ACC AND EXTENSION DP104690 0300 9869 476 | SD CD280 DP104700 0301 4818 477 | BSC +- DP104710 0302 18D0 478 | RTE 16 CHECK 1ST TWO COLUMNS DP104720 0303 4820 479 | BSC Z FOR DOUBLE SLASH (//) DP104730 0304 70D4 480 | MDX CD010 EXIT IF NOT EQUAL DP104740 0305 C202 481 | LD 2 +2 IF EQUAL CHECK 3RD DP104750 0306 4820 482 | BSC Z COLUMN FOR BLANK DP104760 0307 70D1 483 | MDX CD010 EXIT IF NOT EQUAL DP104770 0308 6C00 000F 484 | STX L0 $CTSW SET RECORD TRAP SW NON-ZERO DP104780 030A 70CE 485 | MDX CD010 GO TO LEVEL 4 EXIT DP104790 030B D10B 486 | CD040 STO 1 $LAST-X1 SET LAST CARD INDICATOR DP104800 030C 70EA 487 | MDX CD030 DP104810 488 | * DP104820 489 | * CARD JUST COMPLETED WITH ERROR INDICATOR ON DP104830 490 | * DP104840 030D C05B 491 | CD050 LD CD230 IF FUNCTION WAS PUNCH, DP104850 030E F057 492 | EOR CD204 DO NOT SKIP 1ST CARD DP104860 030F 4818 493 | BSC +- DP104870 0310 7004 494 | MDX CD060 FUNCTION IS PUNCH DP104880 0311 C04E 495 | LD CD250 IF FUNCTION IS READ, AND DP104890 0312 F049 496 | EOR CD210 NO COLUMNS HAVE BEEN READ, DP104900 0313 4818 497 | BSC +- SET INDICATOR TO SKIP DP104910 0314 6857 498 | STX 0 CD188 FIRST CARD DP104920 0315 0846 499 | CD060 XIO CD210 TEST FOR 1442 READY DP104930 0316 4804 500 | BSC E IF BIT 15 OF ACC = 1, DP104940 0317 7009 501 | MDX CD070 1442 IS NOT READY DP104950 502 | * DP104960 503 | * 1442 IS READY FOR RE-INITTIATION OF OPERATION DP104970 504 | * DP104980 0318 C053 505 | LD CD188 IF SKIP 1ST CARD INDICATOR DP104990 0319 4818 506 | BSC +- IS ON, TAKE O5E FEED CYCLE DP105000 031A 7002 507 | MDX CD066 SKIP IND IS NOT ON DP105010 031B 0846 508 | XIO CD240 INITIATE FEED OPERATION DP105020 031C 70BC 509 | MDX CD010 GO TO LEVEL 4 EXIT DP105030 031D C03E 510 | CD066 LD CD210 RESET COLUMN IOCC DP105040 031E D041 511 | STO CD250 FOR FIRST COLUMN DP105050 031F 0848 512 | XIO CD220 RESTART LAST OPERATION DP105060 0320 70B8 513 | MDX CD010 GO TO LEVEL 4 EXIT DP105070 514 | * DP105080 515 | * 1442 IS NOT READY TO REPEAT LAST OPERATION DP105090 516 | * DP105100 0321 C046 517 | CD070 LD CD220 1442 NOT READY CODE = 1000 DP105110 0322 4165 518 | BSI 1 $PST4-X1 WAIT AT INTRPT 4 TRAP DP105120 0323 70F1 519 | MDX CD060 REPEAT TEST FOR 1442 READY DP105130 520 | * DP105140 521 | * CONTINUE CALL PROCESSING DP105150 522 | * DP105160 0324 2817 523 | CD080 STS CD120 SAVE STATUS INDICATORS DP105170 524 | * DP105180 525 | * DECODE FUNCTION IN ACCUMULATOR DP105190 526 | * DP105200 0325 D000 527 | STO CD090 DP105210 0326 0000 528 | CD090 DC *-* BRANCH TO PROPER FUNCTION DP105220 0327 700C 529 | MDX CD100 7000 = READ W/O CONVERSION DP105230 0328 7015 530 | MDX CD130 7001 = PUNCH DP105240 0329 700A 531 | MDX CD100 7002 = READ WITH CONV. DP105250 532 | * DP105260 533 | * FEED A CARD DP105270 534 | * DP105280 032A 4017 535 | BSI CD140+1 COMMON INITLZ SUBROUTINE DP105290 032B 0836 536 | XIO CD240 FEED CARD DP105300 032C C400 0033 537 | LD L $LAST IF LAST CARD, NO EOC DP105310 032E 4818 538 | BSC +- INTRPT AFTER CARD FEED. DP105320 032F 700A 539 | MDX CD110+1 THEREFORE CLEAR LAST CARD DP105330 0330 1010 540 | SLA 16 IND, BUT DO NOT SET I/O DP105340 0331 D400 0033 541 | STO L $LAST BUSY SWITCH NON-ZERO. DP105350 0333 7008 542 | MDX CD120 GO TO LOAD STATUS DP105360 543 | * DP105370 0334 400D 544 | CD100 BSI CD140+1 COMMON INITLZ SUBROUTINE DP105380 0335 C82E 545 | LDD CD200 SET-UP CONTROL 1442 IOCC DP105390 0336 D032 546 | CD102 STO CD230 TO START READER OR PUNCH DP105400 0337 18D0 547 | RTE 16 SET-UP COLUMN 1442 IOCC DP105410 0338 D028 548 | STO CD260 TO READ OR PUNCH A COLUMN DP105420 0339 082E 549 | CD110 XIO CD220 START READER OR PUNCH DP105430 033A 6C00 0013 550 | STX L0 $IBSY SET I/O BUSY SW NON-ZERO DP105440 033C 2000 551 | CD120 LDS 0 RELOAD STATUS INDICATORS DP105450 033D 7098 552 | MDX CD000 GO TO CALL EXIT DP105460 553 | * DP105470 554 | * PUNCH DP105480 555 | * DP105490 033E 4003 556 | CD130 BSI CD140+1 COMMON INITLZ SUBROUTINE DP105500 033F C826 557 | LDD CD204 SET-UP PUNCH IOCC'S DP105510 0340 70F5 558 | MDX CD102 CONTINUE FIXING IOCC'S DP105520 559 | * DP105530 560 | * COMMON INITIALIZATION SUBROUTINE DP105540 561 | * DP105550 0341 4C00 0000 562 | CD140 BSC L *-* EXIT/ENTRY DP105560 0343 7400 0013 563 | CD150 MDX L $IBSY,0 LOOP UNTIL LAST FUNCTION DP105570 0345 70FD 564 | MDX CD150 COMPLETE AND IBUSY = ZERO DP105580 0346 0815 565 | CD160 XIO CD210 TEST FOR 1442 READY DP105590 0347 4804 566 | BSC E IF BIT 15 OF ACC = 1, DP105600 0348 7005 567 | MDX CD180 1442 IS NOT READY DP105610 568 | * DP105620 569 | * 1442 READY TO INITIATE OPERATION DP105630 570 | * DP105640 0349 18D0 571 | RTE 16 PUT I/O AREA ADDR IN ACC DP105650 034A 8017 572 | A CD240 ADD 1 TO FORM COL. 1 ADDR DP105660 034B D014 573 | STO CD250 SET-UP ADDR OF COLUMN IOCC DP105670 034C D00F 574 | STO CD210 FOR 1ST COLUMN DP105680 034D 70F3 575 | MDX CD140 GO TO EXIT COMMON SUBRTNE DP105690 576 | * DP105700 577 | * 1442 NOT READY TO INITIATE OPERATION DP105710 578 | * DP105720 034E 1003 579 | CD180 SLA 3 SAVE ERROR BIT IN CARRY DP105730 034F C0D6 580 | LD CD090 NO SKIP OF 1ST CARD DP105740 0350 F011 581 | EOR CD240 WHEN FUNCTION IS PUNCH DP105750 0351 4818 582 | BSC +- FUNCTION = PUNCH IF NOT 0 DP105760 0352 7002 583 | MDX CD184 PUNCH DP105770 0353 4802 584 | BSC C FUNCTION = READ. IF CARRY DP105780 0354 6817 585 | STX 0 CD188 SET, SKIP 1ST CARD DP105790 0355 C012 586 | CD184 LD CD220 DISPLAY 1442 NOT READY CODE DP105800 0356 4400 0028 587 | BSI L $PRET WAIT AT PREOPERATIVE TRAP DP105810 0358 70ED 588 | MDX CD160 REPEAT TEST FOR 1442 READY DP105820 589 | * DP105830 590 | * IOCCS AND CONSTANTS DP105840 591 | * DP105850 035A 592 | BSS E 0 ADJUST IC TO EVEN DP105860 035A 593 | CD190 BSS 2 SAVE OF ACC AND EXTENSION DP105870 035C 0000 594 | CD210 DC *-* RESET 1ST COLUMN ADDR DP105880 035D 1701 595 | DC @I108 SENSE 1442 DSW (RESET 0) DP105890 035E 0000 596 | CD215 DC 0 1ST WORD OF SENSE DSW IOCC DP105900 035F 1702 597 | DC @I109 SENSE DSW , LEVEL 4 W/RESET DP105910 0360 0000 598 | CD250 DC *-* CURRENT COLUMN ADDRESS DP105920 0361 0000 599 | CD260 DC *-* READ OR PUNCH COLUMN IOCC DP105930 0362 0001 600 | CD240 DC 1 INCREMENTS COL. ADDR DP105940 0363 1402 601 | DC @I105 IOCC FEED CARD DP105950 0364 1404 602 | CD200 DC @I106 START READER WHEN AT CD230 DP105960 0365 1200 603 | DC @I103 READ COLUMN WHEN AT CD260 DP105970 0366 1401 604 | CD204 DC @I104 START PUNCH WHEN AT CD230 DP105980 0367 1100 605 | DC @I102 PUNCH COLUMN WHEN AT CD260 DP105990 0368 1000 606 | CD220 DC @D100 1442 NOT READY DISPLAY DP106000 0369 0000 607 | CD230 DC *-* START READER OR PUNCH IOCC DP106010 036A 3000 608 | CD280 DC /3000 DOUBLE SLASH IN (/) DP106020 036B 3000 609 | DC /3000 COLUMN IMAGE (/) DP106030 036C 0000 610 | CD188 DC *-* SKIP 1ST CARD INDICATOR DP106040 0028 611 | X1 EQU $PRET XR1 INSTRUCTION POINTER DP106050 036D 612 | BSS 8 PATCH DP106060 0375 FFFF 613 | CD990 DC /FFFF *AREA DP106070 SYSTEM 2501/1442 SUBROUTINE 0376 615 | BSS E 0 FORCE NEXT LOC TO BE EVEN DP106090 0376 0000 616 | PHAS2 DC *-* PHASE 2 WORD COUNT DP106100 0377 0000 617 | DC *-* PHASE 2 SECTOR ADDRESS DP106110 618 | * DP106120 619 | * DP106130 0378 4C00 0000 620 | RP000 BSC L *-* ENTER 2ND WORD OF INSTR DP106140 037A 7057 621 | MDX RP320 BR TO PROCESS CALL DP106150 622 | * DP106160 037B 4C00 0000 623 | RP020 BSC L *-* END OF CARD INTERRUPT DP106170 037D 700C 624 | MDX RP080 PROCESS END OF CARD INTRP DP106180 625 | *************************************************** DP106190 626 | * DP106200 627 | * PROCESS PUNCH REQUEST INTERRUPT DP106210 628 | * DP106220 037E 4C40 0000 629 | RP040 BOSC L *-* LEVEL 0 INT -1442 ONLY- DP106230 0380 D879 630 | STD RP480 SAVE ACC AND EXT DP106240 0381 2806 631 | STS RP060 SAVE STATUS DP106250 0382 0879 632 | XIO RP500 PUNCH A COLUMN DP106260 0383 C078 633 | LD RP500 INCR COLUMN ADDRESS DP106270 0384 807F 634 | A RP640 *FOR PUNCH DP106280 0385 D076 635 | STO RP500 DP106290 0386 0877 636 | XIO RP540-1 SENSE WITH RESET LEVEL 0 DP106300 0387 C872 637 | LDD RP480 RELOAD ACC AND EXT DP106310 0388 2000 638 | RP060 LDS 0 RESET STATUS DP106320 0389 70F4 639 | MDX RP040 TURN OFF INTERRUPT DP106330 640 | * DP106340 641 | *************************************************** DP106350 038A 0827 642 | RP080 XIO RP200-1 SENSE DSW WITH RESET DP106360 038B 1002 643 | SLA 2 DP106370 038C 4828 644 | BSC +Z ERROR INDICATOR ON DP106380 038D 7018 645 | MDX RP140 BRANCH IF YES DP106390 038E 1001 646 | SLA 1 NO ERROR. IS LAST CARD DP106400 038F 4828 647 | BSC +Z *INDICATOR ON. DP106410 0390 7023 648 | MDX RP220 BRANCH IF YES DP106420 0391 1010 649 | RP100 SLA 16 DP106430 0392 D400 0013 650 | STO L $IBSY CLEAR PROGRAM BUSY INDIC DP106440 651 | * DP106450 652 | * BEFORE EXIT TEST IF THE CARD READ IN IS A CONTROL DP106460 653 | * CARD, INDICATED BY '// ' IN COLUMNS 1-3. IF SO, DP106470 654 | * SET THE CONTROL RECORD INDR '$CTSW' IN LOW CORE. DP106480 655 | * DP106490 0394 C069 656 | LD RP520 LOAD ADDRESS OF I/O AREA DP106500 0395 D001 657 | STO RP120+1 STORE IN DP106510 0396 6600 0000 658 | RP120 LDX L2 *-* INDEX REGISTER 2 DP106520 0398 C202 659 | LD 2 2 LOAD SECOND WORD DP106530 0399 18D0 660 | RTE 16 PLACE IN EXTENSION DP106540 039A C201 661 | LD 2 1 FIRST WORD IN ACC DP106550 039B 986C 662 | SD RP720 TEST FOR // DP106560 039C 4818 663 | BSC +- SKIP IF ACC NON-ZERO DP106570 039D 18D0 664 | RTE 16 ACC = 0, CHECK IF EXT = 0 DP106580 039E 4820 665 | BSC Z NO,RETURN TO ILS04 DP106590 039F 70DB 666 | MDX RP020 DP106600 03A0 C203 667 | LD 2 3 CHECK THIRD WORD FOR DP106610 03A1 4820 668 | BSC Z ZERO--BLANK COL.IN CARD DP106620 03A2 70D8 669 | MDX RP020 NO,RETURN TO ILS04 DP106630 03A3 6C00 000F 670 | STX L0 $CTSW FOUND //BLANK,SET SWITCH DP106640 03A5 70D5 671 | MDX RP020 RETURN TO ILS04 DP106650 03A6 C057 672 | RP140 LD RP520 DP106660 03A7 D054 673 | STO RP500 RESET ADDRESSES TO FIRST DP106670 03A8 D059 674 | STO RP600 RESET TO ADDRESS OF WD CNT DP106680 03A9 C009 675 | LD RP200 WHICH DVC IS IN USE DP106690 03AA 4804 676 | BSC E SKIP IF 1442 DP106700 03AB 7002 677 | MDX RP160-1 *ELSE TEST 2501 DP106710 03AC 400E 678 | BSI RP240+1 TEST 1442 READY DP106720 03AD 7001 679 | MDX RP160 TO REPEAT LAST FUNCTION DP106730 03AE 4018 680 | BSI RP280+1 TEST 2501 READY DP106740 03AF 0852 681 | RP160 XIO RP620-1 REPEAT LAST FUNCTION DP106750 03B0 70CA 682 | MDX RP020 RETURN TO ILS04 DP106760 683 | * DP106770 03B2 684 | BSS E 0 DP106780 03B2 1401 685 | RP180 DC /1401 START 1442 PCH IOCC E DP106790 03B3 1702 686 | RP200 DC /1702 SNS LEV 4 WITH RESET O DP106800 687 | *************************************************** DP106810 688 | * DP106820 689 | * LAST CARD SUBROUTINE DP106830 690 | * DP106840 03B4 C0FE 691 | RP220 LD RP200 DETERMINE WHICH DEVICE DP106850 03B5 4804 692 | BSC E SKIP IF 1442 DP106860 03B6 70DA 693 | MDX RP100 CLEAR BUSY AND EXIT DP106870 03B7 D400 0033 694 | STO L $LAST SET LAST CARD INDICATOR DP106880 03B9 70D7 695 | MDX RP100 CLEAR BUSY AND EXIT DP106890 696 | * DP106900 697 | * 1442-5 READY TEST DP106910 698 | * DP106920 03BA 4C00 0000 699 | RP240 BSC L *-* DP106930 03BC 0849 700 | XIO RP700-1 SENSE 1442 W/RESET DP106940 03BD 4804 701 | BSC E FALL THRU IF NR DP106950 03BE 7003 702 | MDX RP260 TO DISPLAY ERROR CODE DP106960 03BF C047 703 | LD RP700 CHANGE 2501 SENSE W/RESET DP106970 03C0 D0F2 704 | STO RP200 *TO 1442 SENSE W/RESET DP106980 03C1 70F8 705 | MDX RP240 1442 IS READY DP106990 03C2 C043 706 | RP260 LD RP680 FETCH DISPLAY CODE DP107000 03C3 4400 0028 707 | BSI L $PRET TO PREOPERATIVE ERROR TRAP DP107010 03C5 70F6 708 | MDX RP240+2 RETEST DP107020 709 | * DP107030 710 | * 2501 READY TEST DP107040 03C6 4C00 0000 711 | RP280 BSC L *-* DP107050 03C8 0837 712 | XIO RP580-1 SENSE 2501 W/RESET DP107060 03C9 4804 713 | BSC E FALL THRU IF NOT READY DP107070 03CA 7003 714 | MDX RP300 TO SETUP ERROR CODE DP107080 03CB C035 715 | LD RP580 CHANGE 1442 SENSE W/RESET DP107090 03CC D0E6 716 | STO RP200 *TO 2501 SENSE W/RESET DP107100 03CD 70F8 717 | MDX RP280 2501 IS READY DP107110 03CE C03B 718 | RP300 LD RP740 FETCH DISPLAY CODE DP107120 03CF 4400 0028 719 | BSI L $PRET TO PREOPERATIVE ERROR TRAP DP107130 03D1 70F6 720 | MDX RP280+2 RETEST FOR READY DP107140 721 | * DP107150 722 | *************************************************** DP107160 723 | * DP107170 724 | * GENERAL CALL PROCESSING DP107180 725 | * DP107190 03D2 281D 726 | RP320 STS RP440 SAVE STATUS DP107200 03D3 D003 727 | STO RP360 DECODE CALLING FUNCTION DP107210 03D4 7400 0013 728 | RP340 MDX L $IBSY,0 TEST PROGRAM BUSY DP107220 03D6 70FD 729 | MDX RP340 LOOP UNTIL NOT BUSY DP107230 03D7 0000 730 | RP360 DC *-* TO CONTAIN MDX INSTRUC DP107240 03D8 700E 731 | MDX RP400 READ DP107250 03D9 7018 732 | MDX RP460 PUNCH DP107260 03DA 700C 733 | MDX RP400 READ DP107270 03DB 7000 734 | MDX RP380 FEED -1442 ONLY- DP107280 735 | * DP107290 736 | *************************************************** DP107300 737 | * DP107310 738 | * 1442 FEED CALL PROCESSING DP107320 739 | * DP107330 03DC 40DE 740 | RP380 BSI RP240+1 TEST READY ON 1442-5 DP107340 03DD C027 741 | LD RP660 SETUP FEED IOCC DP107350 03DE D024 742 | STO RP620 DP107360 03DF C400 0033 743 | LD L $LAST TEST LAST CARD INDICATOR DP107370 03E1 4818 744 | BSC +- SKIP IF ON DP107380 03E2 700A 745 | MDX RP420+1 GO SET BUSY & START FEED DP107390 03E3 1010 746 | SLA 16 DP107400 03E4 D400 0033 747 | STO L $LAST CLEAR LAST CARD INDICATOR DP107410 03E6 7008 748 | MDX RP420+3 DO NOT SET BUSY ON DP107420 749 | * DP107430 750 | *************************************************** DP107440 751 | * DP107450 752 | * 2501 READER CALL PROCESSING DP107460 753 | * DP107470 03E7 40DF 754 | RP400 BSI RP280+1 TO TEST 2501 READY DP107480 03E8 C017 755 | LD RP560 SET UP CTRL IOCC TO START DP107490 03E9 D019 756 | STO RP620 *2501 READER DP107500 03EA 18D0 757 | RTE 16 ROTATE I/O AREA ADDR IN DP107510 03EB D016 758 | STO RP600 WORD COUNT DP107520 03EC D011 759 | RP420 STO RP520 SAVE FOR RESTART PROC DP107530 03ED 6C00 0013 760 | STX L0 $IBSY TURN ON BUSY INDICATOR DP107540 03EF 0812 761 | XIO RP620-1 START DEVICE DP107550 03F0 2000 762 | RP440 LDS 0 RESET STATUS DP107560 03F1 7086 763 | MDX RP000 RETURN TO CALLING PROGRAM DP107570 764 | * DP107580 765 | *************************************************** DP107590 766 | * DP107600 767 | * 1442 PUNCH CALL PROCESSING DP107610 768 | * DP107620 03F2 40C8 769 | RP460 BSI RP240+1 TO TEST 1442 READY DP107630 03F3 C0BE 770 | LD RP180 SETUP CONTROL IOCC TO DP107640 03F4 D00E 771 | STO RP620 START CARD PUNCH DP107650 03F5 18D0 772 | RTE 16 DP107660 03F6 800D 773 | A RP640 BUMP TO ADDR OF DATA WD 1 DP107670 03F7 D004 774 | STO RP500 SET UP ADDR OF FIRST COL DP107680 03F8 70F3 775 | MDX RP420 TO SET BUSY AND START DP107690 776 | * DP107700 777 | *************************************************** DP107710 778 | * DP107720 779 | * CONSTANTS AND WORK AREAS DP107730 780 | * DP107740 03FA 781 | BSS E 0 DP107750 03FA 0000 782 | RP480 DC *-* SAVE ACCUMULATOR E DP107760 03FB 0000 783 | DC *-* SAVE EXTENSION O DP107770 03FC 0000 784 | RP500 DC *-* CURRENT COL ADDRESS E DP107780 03FD 1100 785 | DC @I102 PUNCH A COLUMN O DP107790 03FE 0000 786 | RP520 DC *-* RESTART INFORMATION E DP107800 03FF 1701 787 | RP540 DC @I108 SENSE LEVEL 0 WITH RESET O DP107810 0400 4E00 788 | RP560 DC @I402 INITIATE 2501 READ E DP107820 0401 4F01 789 | RP580 DC @I404 SENSE 2501 WITH RESET O DP107830 0402 0000 790 | RP600 DC *-* WD CNT ADRS FOR 2501 E DP107840 0403 0000 791 | RP620 DC *-* PRESET CONTROL FUNCTION O DP107850 0404 0001 792 | RP640 DC 1 CONSTANT E DP107860 0405 1402 793 | RP660 DC @I105 FEED CARD FROM 1442 O DP107870 0406 1000 794 | RP680 DC @D100 CONSTANT E DP107880 0407 1702 795 | RP700 DC @I109 SENSE LEV 4 W/RESET 1442 O DP107890 0408 3000 796 | RP720 DC /3000 CONSTANTS,REPRESENT SLASH DP107900 0409 3000 797 | DC /3000 IN IBM CARD CODE DP107910 798 | * DP107920 799 | * DP107930 040A 4000 800 | RP740 DC /4000 CONSTANT DP107940 801 | * DP107950 802 | * DP107960 803 | * PATCH AREA DP107970 804 | * DP107980 040B 805 | BSS 8 PATCH DP107990 0413 2542 806 | RP750 DC /2542 *AREA DP108000 BEGIN SYSTEM LOAD/RELOAD 808 | * DP108020 809 | * ROLL NEEDED PARTS OF RESIDENT IMAGE DP108030 810 | * TEMPORARLY STORED IN BUFFR TO LOWER CORE DP108040 811 | * DP108050 0414 1000 812 | AA000 NOP ENTER PHASE1 FROM C.I.L. DP108060 0415 6500 00D8 813 | LDX L1 $I494-BUFFR ROLL RESIDENT IMAGE DP108070 0417 C500 0BCB 814 | AA010 LD L1 BUFFR+1 *FROM 'BUFFR' DP108080 0419 D500 000B 815 | STO L1 $IBSY-8 *TO DP108090 041B 71FF 816 | MDX 1 -1 *LOWER DP108100 041C 70FA 817 | MDX AA010 *CORE DP108110 041D 6500 04AA 818 | LDX L1 AA060-1 STORE ADDRESS OF INTERRUPT DP108120 041F 6D00 00D4 819 | STX L1 $IBT4 *BRANCH TABLE TO ILS04 DP108130 0421 6500 0244 820 | LDX L1 CONFG-BUFFR-1 DP108140 0423 1810 821 | SRA 16 DP108150 0424 D500 0BCC 822 | AA020 STO L1 BUFFR+2 CLEAR DP108160 0426 71FF 823 | MDX 1 -1 *THE DP108170 0427 70FC 824 | MDX AA020 *BUFFER DP108180 0428 6700 0B26 825 | LDX L3 E XR3 BASE ADDR TO CONSTANTS DP108190 042A C30B 826 | LD 3 AZ912-E DOUBLE DP108200 042B 1001 827 | SLA 1 *THE DP108210 042C D30B 828 | STO 3 AZ912-E *BUFFER SIZE (640) DP108220 042D D323 829 | STO 3 AZ938-E SET 'FETCH' INHIBIT INDR DP108230 042E D327 830 | STO 3 AZ942-E *AND RES IMAGE INDR ON DP108240 042F 6500 0296 831 | LDX L1 INTPT STORE ADDR OF INTRPT SUBR DP108250 0431 6D00 002C 832 | STX L1 $IREQ *TO INTERRUPT REQUEST DP108260 0433 6500 02DD 833 | LDX L1 CD016+1 INITIATE COLUMN INTERRUPT DP108270 0435 6D00 0008 834 | STX L1 $LEV0 *BRANCH ADDRESS TO ILS00 DP108280 835 | * DP108290 836 | * DETERMINE WHICH CARD READ SUBROUTINE IS REQUIRED DP108300 837 | * DP108310 0437 C400 0005 838 | LD L /0005 FETCH INDR WORD FROM C.I.L. DP108320 0439 1008 839 | SLA 8 DP108330 043A D400 01F2 840 | STO L RINDR SET INDR FOR TYPE OF READER DP108340 043C 4C20 0446 841 | BSC L AA040,Z BR IF USING 1442 READER DP108350 842 | * DP108360 843 | * OVERLAY 1442 CARD READ SUBROUTINE DP108370 844 | * WITH 2501 CARD READ SUBROUTINE DP108380 845 | * DP108390 043E 6500 009C 846 | LDX L1 RP750-RP000+1 XR1 = 2501 SUBR WD CNT DP108400 0440 C500 0377 847 | AA030 LD L1 RP000-1 FETCH A WORD OF 2501 SUBR DP108410 0442 D500 02D5 848 | STO L1 CD000-1 AND MOVE TO 1442 SUBR AREA DP108420 0444 71FF 849 | MDX 1 -1 DECR WORD CNT, SKIP IF ZERO DP108430 0445 70FA 850 | MDX AA030 BRANCH TO FETCH NEXT WORD DP108440 851 | * DP108450 852 | * READ A RECORD DP108460 853 | * DP108470 0446 C00F 854 | AA040 LD AA900 SET COLUMNS TO READ INDR DP108480 0447 D011 855 | STO AA903 *TO 80 COLUMNS DP108490 856 | * DP108500 0448 C330 857 | LD 3 AZ955-E FETCH ADDR OF RECORD BUFFER DP108510 0449 1890 858 | SRT 16 SHIFT TO EXTENSION DP108520 044A C316 859 | LD 3 AZ923-E FETCH READ FUNCTION CODE DP108530 044B 4400 02D7 860 | BSI L CD000+1 BRANCH TO READ A RECORD DP108540 044D 7400 0013 861 | AA050 MDX L $IBSY,0 SKIP IF READ COMPLETE DP108550 044F 70FD 862 | MDX AA050 BR TO TEST READ COMPLETE DP108560 863 | * DP108570 0450 C32E 864 | LD 3 AZ952-E IF INDICATOR IS NON-ZERO DP108580 0451 4420 09D8 865 | BSI L PACK0,Z *BR TO PACK RECORD DP108590 0453 6500 0457 866 | LDX L1 AA902-1 XR1 PTS TO BINARY RCD BFR DP108600 0455 705E 867 | MDX AA070 BRANCH TO PROCESS RECORD DP108610 868 | * DP108620 869 | * CONSTANTS AND WORK AREAS DP108630 870 | * DP108640 0456 0050 871 | AA900 DC @CCOL NUMBER OF COLUMNS PER CARD DP108650 0458 872 | BSS E 0 FORCE NEXT LOC TO BE EVEN DP108660 0458 0000 873 | AA902 DC 0 PACKED CARD BUFFER DP108670 0459 0050 874 | AA903 DC @CCOL NUMBER OF COLUMNS PER CARD DP108680 045A 875 | AA904 BSS @CCOL CARD BUFFER DP108690 876 | * DP108700 877 | * LEVEL 4 INTERRUPT BRANCH TABLE DP108710 878 | * DP108720 04AA 0028 879 | DC $PRET PRE-OPERATIVE ERROR TRAP DP108730 04AB 880 | AA060 BSS 4 RESERVED DP108740 04AF 0000 881 | DC *-* 1403 PRINTER DP108750 04B0 02DA 882 | DC CD010+1 2501 CARD READER DP108760 04B1 02DA 883 | DC CD010+1 1442 CARD READER DP108770 04B2 029F 884 | DC TZ100 CONSOLE PRINTER DP108780 04B3 0000 885 | DC *-* PAPER TAPE READER/PUNCH DP108790 886 | * DP108800 887 | * DETERMINE RECORD TYPE DP108810 888 | * IF THE INDICATOR 'AZ949' IS POSITIVE A DP108820 889 | * CERTAIN TYPE IS EXPECTED DP108830 890 | * DP108840 04B4 C32C 891 | AA070 LD 3 AZ949-E FETCH NEXT RECORD TYPE INDR DP108850 04B5 4C18 04BE 892 | BSC L AA080,+- BR TO REGULAR PROC IF ZERO DP108860 04B7 C31F 893 | LD 3 AZ933-E FETCH TYPE EXPECTED INDR DP108870 04B8 4418 04D5 894 | BSI L AB000,+- BR TO TEST FOR LOAD MODE DP108880 04BA 4408 04DE 895 | BSI L AC000,+ BR TO TEST FOR SCON RECORD DP108890 04BC 4400 04E8 896 | BSI L AD000 BR TO TEST FOR PHID RECORD DP108900 897 | * DP108910 04BE C32E 898 | AA080 LD 3 AZ952-E TEST FOR AND BRANCH IF SCON DP108920 04BF 4418 0577 899 | BSI L AE000,+- *RCRDS ARE TO BE CONVERTED DP108930 04C1 C103 900 | LD 1 3 FETCH WORD 3 DP108940 04C2 1888 901 | SRT 8 SAVE LEFT HALF OF WORD DP108950 04C3 E30D 902 | AND 3 AZ914-E *RIGHT JUSTIFIED DP108960 04C4 9301 903 | S 3 AZ901-E TEST FOR AND BRANCH IF DP108970 04C5 4418 066B 904 | BSI L AH000,+- *AN ABS HEADER RECORD - /01 DP108980 04C7 9301 905 | S 3 AZ901-E TEST FOR AND BRANCH IF DP108990 04C8 4C18 0674 906 | BSC L AH020,+- *A RLTV HEADER RECORD - /02 DP109000 04CA 9307 907 | S 3 AZ907-E TEST FOR AND BRANCH IF DP109010 04CB 4C18 0678 908 | BSC L AH030,+- *REL TO LAST ABS RCRD - /09 DP109020 04CD 9301 909 | S 3 AZ901-E TEST FOR AND BRANCH IF DP109030 04CE 4418 06EF 910 | BSI L AJ000,+- *A DATA RECORD - /0A DP109040 04D0 9305 911 | S 3 AZ905-E TEST FOR AND BRANCH IF DP109050 04D1 4418 0756 912 | BSI L AK000,+- *AN 'F' RECORD - /0F DP109060 04D3 4400 0A32 913 | BSI L ER002 INVALID RCRD, PRINT MESSAGE DP109070 TEST FOR LOAD MODE RECORD 915 | * DP109090 916 | * RECORD MUST BE LOAD MODE TYPE DP109100 917 | * DP109110 04D5 0000 918 | AB000 DC 0 ENTRY DP109120 04D6 C400 045A 919 | LD L AA902+2 FETCH WORD 3 OF RECORD DP109130 04D8 9312 920 | S 3 AZ919-E TEST FOR 'E' IN 'MODE' RCRD DP109140 04D9 4420 0A4A 921 | BSI L ER017,Z BRANCH IF MODE RCRD MISSING DP109150 04DB D32C 922 | STO 3 AZ949-E CLEAR MODE RCRD TEST INDR DP109160 04DC 4400 06AB 923 | BSI L AI000 BRANCH TO PROCESS RECORD DP109170 TEST FOR SCON RECORD 925 | * DP109190 926 | * RECORD MUST BE SCON TYPE DP109200 927 | * DP109210 04DE 0000 928 | AC000 DC 0 ENTRY DP109220 04DF C400 045A 929 | LD L AA902+2 FETCH WORD 3 OF RECORD DP109230 04E1 931A 930 | S 3 AZ927-E TEST FOR 'N' IN 'SCON' RCRD DP109240 04E2 4420 0A38 931 | BSI L ER003,Z BR IF 'SCON' RCRD MISSING DP109250 04E4 D32E 932 | STO 3 AZ952-E INDC NO PACK OF 'REQ' RCRDS DP109260 04E5 D32C 933 | STO 3 AZ949-E CLEAR INDR FOR SPEC RCRD DP109270 04E6 4C00 0446 934 | BSC L AA040 BRANCH TO READ NEXT RECORD DP109280 PROCESS PHASE ID RECORD(S) 936 | * DP109300 937 | * PHASE ID RECORD(S) PROCESS ON DP109310 938 | * BOTH INITIAL LOAD AND RELOAD DP109320 939 | * DP109330 04E8 0000 940 | AD000 DC 0 ENTRY DP109340 04E9 C400 045C 941 | LD L AA904+2 FETCH COLUMN 3 DP109350 04EB F05F 942 | EOR AD904 TEST FOR AND BRANCH DP109360 04EC 4420 0A44 943 | BSI L ER015,Z *IF NOT AN 'I' DP109370 944 | * DP109380 945 | * PICK UP A 3-DIGIT DECIMAL NUMBER FROM PHID RECORD DP109390 946 | * AND CONVERT IT TO BINARY DP109400 947 | * DP109410 04EE C400 045F 948 | AD010 LD L AA904+5 FETCH HUNDREDS COLUMN DP109420 04F0 E400 05B3 949 | AND L AE901 MASK OUT ZONE PUNCHES DP109430 04F2 D400 05B0 950 | STO L AE900+3 STORE DIGIT FOR CONVERSION DP109440 04F4 C400 0460 951 | AD020 LD L AA904+6 FETCH TENS COLUMN DP109450 04F6 E400 05B3 952 | AND L AE901 MASK OUT ZONE PUNCHES DP109460 04F8 D400 05B1 953 | STO L AE900+4 STORE DIGIT FOR CONVERSION DP109470 04FA C400 0461 954 | AD030 LD L AA904+7 FETCH UNITS COLUMN DP109480 04FC E400 05B3 955 | AND L AE901 MASK OUT ZONE PUNCHES DP109490 04FE D400 05B2 956 | STO L AE900+5 STORE DIGIT FOR CONVERSION DP109500 957 | * DP109510 0500 4400 0889 958 | BSI L DCBIN BR TO CONVERT PH ID TO BIN DP109520 0502 05AD 959 | DC AE900 ADDRESS OF INPUT AREA DP109530 960 | * DP109540 0503 D400 0222 961 | AD040 STO L PAIR1 SAVE PHASE ID RANGE DP109550 0505 C041 962 | LD AD900 FETCH INDICATOR AND DP109560 0506 4420 0517 963 | BSI L AD050,Z *BRANCH IF END OF RECORD DP109570 0508 7401 0504 964 | MDX L AD040+1,1 INCREMENT PH ID STORE ADDR DP109580 050A 7404 04EF 965 | MDX L AD010+1,4 INCR HUNDREDS COLUMN ADDR DP109590 050C 7404 04F5 966 | MDX L AD020+1,4 INCR TENS COLUMN ADDRESS DP109600 050E 7404 04FB 967 | MDX L AD030+1,4 INCR UNITS COLUMN ADDRESS DP109610 0510 74FF 0548 968 | MDX L AD901,-1 DECR PH ID CNT, SK IF ZERO DP109620 0512 70DB 969 | MDX AD010 BR TO CONVERT NEXT PH ID DP109630 0513 4400 09AC 970 | BSI L MODNO BR TO PROCESS MOD NUMBER DP109640 0515 6831 971 | STX 0 AD900 SET TO TEST FOR 2ND RECORD DP109650 0516 70D7 972 | MDX AD010 BR TO CONVERT NEXT PH ID DP109660 973 | * DP109670 0517 0000 974 | AD050 DC 0 ENTRY DP109680 0518 C480 0504 975 | LD I AD040+1 TEST FOR AND BRANCH IF DP109690 051A 4C18 0529 976 | BSC L AD060,+- *LAST PH ID WAS ZERO DP109700 051C 6500 045F 977 | LDX L1 AA904+5 RESET DP109710 051E 69D0 978 | STX 1 AD010+1 *HUNDREDS COLUMN ADDRESS, DP109720 051F 7101 979 | MDX 1 1 DP109730 0520 69D4 980 | STX 1 AD020+1 *TENS COLUMN ADDRESS DP109740 0521 7101 981 | MDX 1 1 DP109750 0522 69D8 982 | STX 1 AD030+1 *AND UNITS COLUMN ADDRESS DP109760 0523 740E 0548 983 | MDX L AD901,14 RESET PHASE ID/RECORD COUNT DP109770 0525 1810 984 | SRA 16 CLEAR DP109780 0526 D020 985 | STO AD900 *END OF RECORD INDICATOR DP109790 0527 4C00 0446 986 | BSC L AA040 BRANCH TO READ NEXT RECORD DP109800 987 | * DP109810 988 | * CHECK VALIDITY OF PHID RECORD INPUT DP109820 989 | * DP109830 0529 6580 0B59 990 | AD060 LDX I1 AZ958 XR1 POINTS TO PHID PAIRS DP109840 052B C100 991 | LD 1 0 FETCH 1ST ENT OF 1ST PAIR DP109850 052C 9301 992 | S 3 AZ901-E TEST FOR AND DP109860 052D 71FE 993 | MDX 1 -2 DP109870 052E 4420 0A44 994 | BSI L ER015,Z *BRANCH IF NOT '001' DP109880 0530 7102 995 | AD070 MDX 1 2 POINT TO NEXT PAIR DP109890 0531 C101 996 | LD 1 1 FETCH AND DP109900 0532 D017 997 | STO AD903 *SAVE UPPER LIMIT OF RANGE DP109910 0533 C100 998 | LD 1 0 FETCH AND DP109920 0534 D014 999 | STO AD902 *SAVE LOWER LIMIT OF RANGE DP109930 0535 4C18 0541 1000 | BSC L AD080,+- BRANCH IF NO MORE PAIRS DP109940 0537 9012 1001 | S AD903 TEST FOR AND BRANCH IF DP109950 0538 4430 0A44 1002 | BSI L ER015,-Z *UPPER LT LOWER LIMIT DP109960 053A C102 1003 | LD 1 2 FETCH NEXT LOWER LIMIT AND DP109970 053B 4C18 0541 1004 | BSC L AD080,+- *BRANCH IF ZERO DP109980 053D 900C 1005 | S AD903 TEST FOR AND BRANCH IF LESS DP109990 053E 4408 0A44 1006 | BSI L ER015,+ *THAN PREVIOUS UPPER LIMIT DP110000 0540 70EF 1007 | MDX AD070 BRANCH TO CHECK NEXT PAIR DP110010 0541 C101 1008 | AD080 LD 1 1 FETCH AND DP110020 0542 D400 01FD 1009 | STO L MAXPH *STORE MAXIMUM PHASE ID DP110030 0544 1810 1010 | SRA 16 CLEAR DP110040 0545 D32C 1011 | STO 3 AZ949-E *SPEC RECORD NEXT INDICATOR DP110050 0546 7005 1012 | MDX AD100 BR TO TEST IF PAIRS VOIDED DP110060 1013 | * DP110070 1014 | * CONSTANTS AND WORK AREAS DP110080 1015 | * DP110090 0547 0000 1016 | AD900 DC *-* END OF A 'PHID' RECORD INDR DP110100 0548 000E 1017 | AD901 DC 14 NO. OF PHASE IDS PER RECORD DP110110 0549 0000 1018 | AD902 DC *-* TEMP STORAGE FOR LOWER LIM DP110120 054A 0000 1019 | AD903 DC *-* TEMP STORAGE FOR UPPER LIM DP110130 054B 8010 1020 | AD904 DC /8010 BINARY 'I' DP110140 1021 | * DP110150 1022 | * IF FOR, COB, RPG, PHID PAIR 9, OR ASM NOT TO 2-9 DP110160 1023 | * BE LOADED THE PHASE ID PAIRS WILL BE PLACED IN DP110170 1024 | * A SKIP TABLE AND BITS 0 AND 1 IN THE NORMAL DP110180 1025 | * PAIR TABLE WILL BE SET ON DP110190 1026 | * DP110200 054C 6A16 1027 | AD100 STX 2 AD120+1 SAVE XR2 DP110210 054D 6205 1028 | LDX 2 5 5 ID PAIRS MAY BE SKIPPED DP110220 054E C325 1029 | AD105 LD 3 AZ940-E BITS INDICATE PAIRS TO SKIP DP110230 054F 100A 1030 | SLA 10 SHIFT BIT TO BE TESTED DP110240 0550 1200 1031 | SLA 2 0 *TO BIT 0 DP110250 0551 4C10 055C 1032 | BSC L AD110,- BR IF BIT 0 NOT ON DP110260 0553 CE80 0570 1033 | LDD I2 AD910-1 LOAD PAIR TO BE SKIPPED DP110270 0555 DC80 0576 1034 | STD I AD920 STORE IN SKIP TABLE DP110280 0557 EB1C 1035 | OR 3 AZ929-E SET BITS 0,1 ON IN FIRST DP110290 0558 D680 0570 1036 | STO I2 AD910-1 *WORD OF PAIR IN PAIR TABLE DP110300 055A 7402 0576 1037 | MDX L AD920,2 INCR POINTER TO SKIP TABLE DP110310 055C 72FF 1038 | AD110 MDX 2 -1 DECR BIT SHIFT COUNTER DP110320 055D 70F0 1039 | MDX AD105 LOOP UNTIL 5 PAIRS TESTED DP110330 055E 6600 0999 1040 | LDX L2 /0999 TERMINATE SKIP TABLE DP110340 0560 6E80 0576 1041 | STX I2 AD920 *WITH /0999 WORD DP110350 0562 6600 0000 1042 | AD120 LDX L2 *-* RESTORE XR2 DP110360 1043 | * DP110370 1044 | * EXTRACT THE LAST PHASE ID THAT MUST BE LOADED DP110380 1045 | * DURING AN INITIAL LOAD DP110390 1046 | * DP110400 0564 CC00 0222 1047 | AD122 LDD L PAIR1 PAIR ADDR WILL BE MODIFIED DP110410 0566 4C18 01E0 1048 | BSC L LDPH2,+- BR TO LD PH 2 IF END OF JOB DP110420 0568 4C30 056D 1049 | BSC L AD128,Z- BRANCH TO SAVE ID DP110430 056A 7402 0565 1050 | AD124 MDX L AD122+1,2 MODIFY ADDR UNTIL 0 FOUND DP110440 056C 70F7 1051 | MDX AD122 DP110450 1052 | * DP110460 056D 18D0 1053 | AD128 RTE 16 SAVE 2ND ID OF THIS PAIR DP110470 056E D400 023F 1054 | STO L LPHID *FOR SYSTEM LOADER PHASE 2 DP110480 0570 70F9 1055 | MDX AD124 BRANCH TO TEST NEXT PAIR DP110490 1056 | * DP110500 1057 | * CONSTANTS AND WORK AREAS DP110510 1058 | * DP110520 0571 0236 1059 | AD910 DC PAIRB POINTER USED IF BIT 11 ON DP110530 0572 0234 1060 | DC PAIRA PTR USED IF BIT 12 ON 2-9 DP110540 0573 0230 1061 | DC PAIR8 POINTER USED IF BIT 13 ON DP110550 0574 0226 1062 | DC PAIR3 PTR USED IF BIT 14 ON 2-9 DP110560 0575 0224 1063 | DC PAIR2 POINTER USED IF BIT 15 ON DP110570 0576 0240 1064 | AD920 DC LOLIM MODIFIABLE PTR TO SKIP TBL DP110580 PROCESS SYSTEM CONFIG RECORDS 0577 0000 1066 | AE000 DC 0 ENTRY DP110600 0578 C400 045D 1067 | LD L AA904+3 FETCH COLUMN 4 DP110610 057A F03B 1068 | EOR AE904 TEST FOR AND DP110620 057B 4C18 05B9 1069 | BSC L AF000,+- *BRANCH IF A 'CORE' RECORD DP110630 057D C400 045C 1070 | LD L AA904+2 FETCH COLUMN 3 DP110640 057F F034 1071 | EOR AE902 TEST FOR AND DP110650 0580 4C18 05DE 1072 | BSC L AG000,+- *BRANCH IF A 'TERM' RECORD DP110660 0582 C400 045C 1073 | LD L AA904+2 FETCH COLUMN 3 DP110670 0584 F030 1074 | EOR AE903 TEST FOR AND DP110680 0585 4420 0B02 1075 | BSI L ER013,Z *BRANCH IF NOT AN 'REQ' RCD DP110690 1076 | * DP110700 1077 | * PROCESS 'REQ' RECORDS DP110710 1078 | * DP110720 0587 74FF 05B7 1079 | MDX L AE905,-1 DECR 'REQ' CNT, SK IF ZERO DP110730 0589 7002 1080 | MDX AE010 BRANCH TO PROCESS 'REQ' RCD DP110740 058A 4400 0B02 1081 | BSI L ER013 BR IF MORE THAN 15 'REQ'S DP110750 058C C400 0462 1082 | AE010 LD L AA904+8 FETCH COLUMN 9 (ISS NO.) DP110760 058E E024 1083 | AND AE901 MASK OUT ZONE PUNCHES DP110770 058F D021 1084 | STO AE900+4 SAVE AS TENS DIGIT DP110780 0590 C400 0463 1085 | AE020 LD L AA904+9 FETCH COLUMN 10 (ISS NO.) DP110790 0592 E020 1086 | AND AE901 MASK OUT ZONE PUNCHES DP110800 0593 D01E 1087 | STO AE900+5 SAVE AS UNITS DIGIT DP110810 1088 | * DP110820 0594 4400 0889 1089 | BSI L DCBIN BRANCH TO CONVERT TO BINARY DP110830 0596 05AD 1090 | DC AE900 ADDRESS OF INPUT AREA DP110840 1091 | * DP110850 0597 D400 0E0F 1092 | AE040 STO L CONFG SAVE ISS NO. IN CONFIG TBL DP110860 0599 7401 0598 1093 | MDX L AE040+1,1 INCR CONFIG TBL STORE ADDR DP110870 059B 7405 058D 1094 | MDX L AE010+1,5 INCR TENS COLUMN ADDRESS DP110880 059D 7405 0591 1095 | MDX L AE020+1,5 INCR UNITS COLUMN ADDRESS DP110890 059F 74FF 05B8 1096 | MDX L AE906,-1 DECR NO. OF DATA SETS DP110900 05A1 70EA 1097 | MDX AE010 BR TO FETCH NEXT DATA SET DP110910 1098 | * DP110920 05A2 7403 05B8 1099 | MDX L AE906,3 RESET DATA SET COUNT DP110930 05A4 74F1 058D 1100 | MDX L AE010+1,-15 RESET TENS COLUMN ADDR DP110940 05A6 74F1 0591 1101 | MDX L AE020+1,-15 RESET UNITS COLUMN ADDR DP110950 05A8 C324 1102 | LD 3 AZ939-E INCREMENT DP110960 05A9 8301 1103 | A 3 AZ901-E *THE 'REQ' DP110970 05AA D324 1104 | STO 3 AZ939-E *RECORD COUNT DP110980 05AB 4C00 0446 1105 | BSC L AA040 BRANCH TO READ NEXT RECORD DP110990 1106 | * DP111000 1107 | * CONSTANTS AND WORK AREAS DP111010 1108 | * DP111020 05AD 80A0 1109 | AE900 DC /80A0 SIGN DIGIT DP111030 05AE 0000 1110 | DC 0 TEN-THOUSANDS DIGIT DP111040 05AF 0000 1111 | DC 0 THOUSANDS DIGIT DP111050 05B0 0000 1112 | DC 0 HUNDREDS DIGIT DP111060 05B1 0000 1113 | DC 0 TENS DIGIT DP111070 05B2 0000 1114 | DC 0 UNITS DIGIT DP111080 05B3 3FF0 1115 | AE901 DC /3FF0 MASK OUT ZONE PUNCHES DP111090 05B4 4010 1116 | AE902 DC /4010 CARD IMAGE 'R' DP111100 05B5 4020 1117 | AE903 DC /4020 CARD IMAGE 'Q' DP111110 05B6 8100 1118 | AE904 DC /8100 CARD IMAGE 'E' DP111120 05B7 0015 1119 | AE905 DC 20+1 'REQ' RECORDS LIMIT DP111130 05B8 0003 1120 | AE906 DC 3 NO. OF GROUPS/'REQ' RECORD DP111140 SET CORE SIZE 05B9 62FC 1122 | AF000 LDX 2 -4 4 CORE SIZES TO TEST FOR DP111160 05BA C400 0460 1123 | AF010 LD L AA904+6 FETCH COL 7 OF 'CORE' RCRD DP111170 05BC F600 05D6 1124 | EOR L2 AF900+4 TEST FOR 4, 8, 6, 2 DP111180 05BE 4C18 05C4 1125 | BSC L AF020,+- BR IF COL 7 IDENTIFIED DP111190 05C0 7201 1126 | MDX 2 1 LOOP TO DP111200 05C1 70F8 1127 | MDX AF010 *TRY AGAIN DP111210 05C2 4400 0B02 1128 | BSI L ER013 BRANCH, COLUMN 7 INVALID DP111220 05C4 C400 045F 1129 | AF020 LD L AA904+5 LOAD COL 6 TO DOUBLE CHECK DP111230 05C6 F600 05DA 1130 | EOR L2 AF910+4 TEST FOR 0, 0, 1, 3 DP111240 05C8 4C18 05CC 1131 | BSC L AF030,+- BR IF COL 6 MATCHES DP111250 05CA 4400 0B02 1132 | BSI L ER013 BRANCH, COLUMN 6 INVALID DP111260 05CC C600 05DE 1133 | AF030 LD L2 AF920+4 SET BIT FOR DP111270 05CE D400 01FC 1134 | STO L SCORE *CORE SIZE DP111280 05D0 4C00 0446 1135 | BSC L AA040 BR TO READ NEXT RECORD DP111290 1136 | * DP111300 1137 | * CONSTANTS DP111310 1138 | * DP111320 05D2 0200 1139 | AF900 DC /0200 4 IN CARD CODE DP111330 05D3 0020 1140 | DC /0020 8 IN CARD CODE DP111340 05D4 0080 1141 | DC /0080 6 IN CARD CODE DP111350 05D5 0800 1142 | DC /0800 2 IN CARD CODE DP111360 05D6 2000 1143 | AF910 DC /2000 0 IN CARD CODE DP111370 05D7 2000 1144 | DC /2000 0 IN CARD CODE DP111380 05D8 1000 1145 | DC /1000 1 IN CARD CODE DP111390 05D9 0400 1146 | DC /0400 3 IN CARD CODE DP111400 05DA 1000 1147 | AF920 DC /1000 BIT 3 INDICATES 04K CORE DP111410 05DB 2000 1148 | DC /2000 BIT 2 INDICATES 08K CORE DP111420 05DC 4000 1149 | DC /4000 BIT 1 INDICATES 16K CORE DP111430 05DD 8000 1150 | DC /8000 BIT 0 INDICATES 32K CORE DP111440 PROCESS TERM RECORD 05DE 4400 0A05 1152 | AG000 BSI L SAVXR BR TO SAVE INDEX REGISTERS DP111460 05E0 6500 0E0E 1153 | AG010 LDX L1 CONFG-1 XR1 PTS TO 'REQ' STG AREA DP111470 05E2 C101 1154 | LD 1 1 FETCH AN ISS NUMBER DP111480 05E3 4408 0B02 1155 | BSI L ER013,+ BRANCH IF NOT POSITIVE DP111490 05E5 9309 1156 | S 3 AZ909-E TEST FOR AND BRANCH IF DP111500 05E6 4430 0B02 1157 | BSI L ER013,Z- *GREATER THAN MAXIMUM (20) DP111510 05E8 C101 1158 | LD 1 1 FETCH ISS NUMBER AGAIN DP111520 05E9 9301 1159 | S 3 AZ901-E TEST FOR AND BRANCH IF DP111530 05EA 4C30 0600 1160 | BSC L AG030,Z- *GREATER THAN 1 (NOT 1442) DP111540 05EC C103 1161 | LD 1 3 TEST FOR AND BRANCH IF DP111550 05ED 4408 0B02 1162 | BSI L ER013,+ *NO MOD (5, 6 OR 7) NUMBER DP111560 05EF 7401 0669 1163 | MDX L AG913,1 INCREMENT ISS 1 INDICATOR DP111570 05F1 9305 1164 | S 3 AZ905-E TEST FOR AND DP111580 05F2 4C18 05FC 1165 | BSC L AG020,+- *BRANCH IF A 1442-5 DP111590 05F4 9301 1166 | S 3 AZ901-E TEST FOR AND DP111600 05F5 4C18 0602 1167 | BSC L AG040,+- *BRANCH IF A 1442-6 DP111610 05F7 9301 1168 | S 3 AZ901-E TEST FOR AND DP111620 05F8 4C18 0602 1169 | BSC L AG040,+- *BRANCH IF A 1442-7 DP111630 05FA 4400 0B02 1170 | BSI L ER013 BRANCH, MODEL UNKNOWN DP111640 1171 | * DP111650 05FC C06C 1172 | AG020 LD AG913 FETCH INDICATOR DP111660 05FD 9302 1173 | S 3 AZ902-E TEST FOR AND DP111670 05FE 4420 0B02 1174 | BSI L ER013,Z *BRANCH IF NOT EQUAL TO 2 DP111680 0600 C101 1175 | AG030 LD 1 1 FETCH ISS NUMBER DP111690 0601 7003 1176 | MDX AG050 BR TO PROCESS NEXT 'REQ' DP111700 0602 C301 1177 | AG040 LD 3 AZ901-E INDICATE DP111710 0603 D400 01F8 1178 | STO L T1442 *1442-6 OR 7 DP111720 0605 10A0 1179 | AG050 SLT 32 CLEAR ACC AND EXT DP111730 0606 C101 1180 | LD 1 1 FETCH ISS NUMBER DP111740 0607 9308 1181 | S 3 AZ908-E TEST FOR AND DP111750 0608 4C30 0614 1182 | BSC L AG060,Z- *BRANCH IF GREATER THAN 15 DP111760 060A C101 1183 | LD 1 1 FETCH ISS NUMBER DP111770 060B D001 1184 | STO AG054+1 *AND SAVE TO SET XR2 DP111780 060C 6600 0000 1185 | AG054 LDX L2 *-* SET XR2 FOR SHIFT DP111790 060E C319 1186 | LD 3 AZ926-E FETCH SIGN BIT DP111800 060F 1AC0 1187 | RTE 2 0 SHIFT TO APPROPRIATE POS DP111810 0610 EC00 01F9 1188 | OR L DINDR 'OR' IN REST OF INDICATOR DP111820 0612 D400 01F9 1189 | STO L DINDR *AND SAVE DP111830 0614 7403 05E1 1190 | AG060 MDX L AG010+1,3 POINT TO NEXT 'REQ' RCRD DP111840 0616 4400 0A0B 1191 | BSI L RSTXR RESTORE INDEX REGISTERS DP111850 0618 74FF 0B4A 1192 | MDX L AZ939,-1 DECR 'REQ' CNT, SK IF ZERO DP111860 061A 70C5 1193 | MDX AG010 BR TO PROCESS NEXT 'REQ' DP111870 1194 | * DP111880 1195 | * SET INDICATOR TO PROCESS PHASE ID RECORD(S) NEXT DP111890 1196 | * DP111900 061B 1000 1197 | NOP A WAIT MAY BE PATCHED HERE DP111910 061C C400 01F9 1198 | LD L DINDR FETCH ISS INDICATOR DP111920 061E D049 1199 | STO AG912 *AND SAVE TEMPORARLY DP111930 061F 1806 1200 | SRA 6 TEST FOR AND DP111940 0620 4C04 064D 1201 | BSC L AG120,E *BRANCH IF 1403 DP111950 0622 1803 1202 | SRA 3 TEST FOR AND DP111960 0623 4C04 0652 1203 | BSC L AG130,E *BRANCH IF 1132 DP111970 0625 C319 1204 | LD 3 AZ926-E SET CONSOLE PRINTER DP111980 0626 D400 0221 1205 | STO L PRNPR *AS PRINCIPAL PRINT DEVICE DP111990 0628 C83D 1206 | LDD AG910 SAVE PHASE ID AND CHAN 12 DP112000 0629 DC00 021C 1207 | AG080 STD L PTRID *INDR OF PRINC PRINT DEVICE DP112010 062B 7400 066A 1208 | MDX L AG914,0 SKIP IF BRANCH INDR ZERO DP112020 062D 7029 1209 | MDX AG140 BR IF END OF REQ PROCESS DP112030 062E 683B 1210 | STX 0 AG914 SET BRANCH INDR NON-ZERO DP112040 062F 7402 062A 1211 | MDX L AG080+1,2 INCREMENT STORE ADDRESS DP112050 0631 C036 1212 | LD AG912 FETCH ISS SUMMARY WORD DP112060 0632 180B 1213 | SRA 11 TEST FOR AND DP112070 0633 4C04 063E 1214 | BSC L AG090,E *BRANCH IF 2501 DP112080 0635 1803 1215 | SRA 3 TEST FOR AND DP112090 0636 4C04 0643 1216 | BSC L AG100,E *BRANCH IF 1442-6 OR 7 DP112100 0638 C02F 1217 | LD AG912 FETCH ISS SUMMARY WORD DP112110 0639 180C 1218 | SRA 12 TEST FOR AND DP112120 063A 4C04 0648 1219 | BSC L AG110,E *BRANCH IF 1134 (PAP TAPE) DP112130 063C 4400 0B02 1220 | BSI L ER013 BRANCH, NO INPUT DEVICE DP112140 063E C301 1221 | AG090 LD 3 AZ901-E SET 2501/1442 DP112150 063F D400 0220 1222 | STO L PRNRD *AS PRINCIPAL I/O DEVICE DP112160 0641 C81A 1223 | LDD AG900 SAVE PHASE ID OF PRINC I/O DP112170 0642 70E6 1224 | MDX AG080 *DEVICE AND CONVERSION SUBR DP112180 0643 1810 1225 | AG100 SRA 16 SET 1442/1442 DP112190 0644 D400 0220 1226 | STO L PRNRD *AS PRINCIPAL I/O DEVICE DP112200 0646 C817 1227 | LDD AG902 SAVE PHASE ID OF PRINC I/O DP112210 0647 70E1 1228 | MDX AG080 *DEVICE AND CONVERSION SUBR DP112220 0648 C319 1229 | AG110 LD 3 AZ926-E SET 1134/1055 DP112230 0649 D400 0220 1230 | STO L PRNRD *AS PRINCIPAL I/O DEVICE DP112240 064B C814 1231 | LDD AG904 SAVE PHASE ID OF PRINC I/O DP112250 064C 70DC 1232 | MDX AG080 *DEVICE AND CONVERSION SUBR DP112260 064D C301 1233 | AG120 LD 3 AZ901-E SET 1403 DP112270 064E D400 0221 1234 | STO L PRNPR *AS PRINCIPAL PRINT DEVICE DP112280 0650 C811 1235 | LDD AG906 SAVE PHASE ID AND CHAN 12 DP112290 0651 70D7 1236 | MDX AG080 *INDR OF PRINC PRINT DEVICE DP112300 0652 1810 1237 | AG130 SRA 16 SET 1132 DP112310 0653 D400 0221 1238 | STO L PRNPR *AS PRINCIPAL PRINT DEVICE DP112320 0655 C80E 1239 | LDD AG908 SAVE PHASE ID AND CHAN 12 DP112330 0656 70D2 1240 | MDX AG080 *INDR OF PRINC PRINT DEVICE DP112340 0657 D32C 1241 | AG140 STO 3 AZ949-E INDICATE SPEC RECORD NEXT DP112350 0658 C301 1242 | LD 3 AZ901-E INDICATE DP112360 0659 D31F 1243 | STO 3 AZ933-E *'PHID' RECORD NEXT DP112370 065A 4C00 0446 1244 | BSC L AA040 BRANCH TO READ NEXT RECORD DP112380 1245 | * DP112390 1246 | * CONSTANTS AND WORK AREAS DP112400 1247 | * DP112410 065C 1248 | BSS E 0 FORCE NEXT LOC TO BE EVEN DP112420 065C 008F 1249 | AG900 DC I2501 PHASE ID 2501 RDR SUBR DP112430 065D 0093 1250 | DC CDCNV PHASE ID 2501 CNV SUBR DP112440 065E 0090 1251 | AG902 DC I1442 PHASE ID 1442 RDR SUBR DP112450 065F 0093 1252 | DC CDCNV PHASE ID 1442 CNV SUBR DP112460 0660 0091 1253 | AG904 DC I1134 PHASE ID 1134 RDR SUBR DP112470 0661 0094 1254 | DC C1134 PHASE ID 1134 CNV SUBR DP112480 0662 008C 1255 | AG906 DC P1403 PHASE ID 1403 PTR SUBR DP112490 0663 0080 1256 | DC $1403 1403 PTR CHANNEL 12 INDR DP112500 0664 008D 1257 | AG908 DC P1132 PHASE ID 1132 PTR SUBR DP112510 0665 007F 1258 | DC $1132 1132 PTR CHANNEL 12 INDR DP112520 0666 008E 1259 | AG910 DC PCPAD PHASE ID CNSL PTR SUBR DP112530 0667 007E 1260 | DC $CPTR CNSL PTR CHANNEL 12 INDR DP112540 0668 0000 1261 | AG912 DC *-* DEVICE INDR TEMPORARY STG DP112550 0669 0001 1262 | AG913 DC 1 INDR TO CHECK ISS 1 RECORDS DP112560 066A 0000 1263 | AG914 DC 0 BRANCH INDICATOR DP112570 VERIFY PRESENCE OF F RECORD 066B 0000 1265 | AH000 DC 0 ENTRY DP112590 066C C32D 1266 | LD 3 AZ950-E TEST FOR AND BRANCH DP112600 066D 4418 0A38 1267 | BSI L ER003,+- *IF TYPE 'F' INDR NOT SET DP112610 066F 1010 1268 | SLA 16 CLEAR DP112620 0670 D32D 1269 | AH010 STO 3 AZ950-E *TYPE 'F' INDICATOR DP112630 0671 C301 1270 | LD 3 AZ901-E INDICATE DP112640 0672 D329 1271 | STO 3 AZ944-E *ABSOLUTE PROGRAM DP112650 0673 7008 1272 | MDX AH050 BRANCH TO WRITE SECTOR DP112660 0674 C400 0BCB 1273 | AH020 LD L BUFFR+1 FETCH AND STORE DP112670 0676 D326 1274 | STO 3 AZ941-E *CURRENT SECTOR ADDRESS DP112680 0677 7002 1275 | MDX AH040 BR TO INDICATE REL PROGRAM DP112690 0678 C31E 1276 | AH030 LD 3 AZ932-E FETCH AND STORE DP112700 0679 D326 1277 | STO 3 AZ941-E *LAST SECTOR ADDRESS DP112710 067A C31B 1278 | AH040 LD 3 AZ928-E INDICATE DP112720 067B D329 1279 | STO 3 AZ944-E *RELOCATABLE PROGRAM DP112730 067C C336 1280 | AH050 LD 3 AZ961-E RESET DP112740 067D D400 08F3 1281 | STO L CK300 *CHECKSUM PROCESSING DP112750 067F 4400 0A14 1282 | BSI L WRITE BR TO WRITE PREVIOUS SECTOR DP112760 0681 1810 1283 | SRA 16 CLEAR DP112770 0682 D400 0904 1284 | STO L CK900 *CHECKSUM SEQUENCE NUMBER DP112780 0684 D320 1285 | STO 3 AZ934-E *AND CORRELATION FACTOR DP112790 0685 C331 1286 | LD 3 AZ956-E SET BRANCH ADDRESS DP112800 0686 D400 0705 1287 | STO L AJ040+1 *IN DATA RECORD PROCESSING DP112810 0688 C315 1288 | LD 3 AZ922-E SET OPERATION DP112820 0689 D400 0704 1289 | STO L AJ040 *IN DATA RECORD PROCESSING DP112830 068B 1810 1290 | SRA 16 CLEAR DP112840 068C D32B 1291 | STO 3 AZ948-E *SECTOR BREAK INDICATOR DP112850 068D C30B 1292 | LD 3 AZ912-E FORCE NEXT PROGRAM TO BE DP112860 068E D328 1293 | STO 3 AZ943-E *STORED ON A NEW SECTOR DP112870 1294 | * DP112880 1295 | * SAVE COMMA WORDS ON RELOAD FUNCTION DP112890 1296 | * DP112900 068F C327 1297 | LD 3 AZ942-E TEST FOR AND BRANCH IF DP112910 0690 4C18 06A9 1298 | BSC L AH060,+- *NOT READING THE RES IMAGE DP112920 0692 C400 01F6 1299 | LD L LMODE FETCH LOAD MODE INDICATOR DP112930 0694 4C28 06A9 1300 | BSC L AH060,Z+ BRANCH IF AN INITIAL LOAD DP112940 0696 C334 1301 | LD 3 AZ959-E FETCH RES IMAGE SCTR ADDR DP112950 0697 D400 0BCB 1302 | STO L BUFFR+1 *AND STORE TO I/O AREA DP112960 0699 4400 099E 1303 | BSI L FETCH BRANCH TO FETCH RES IMAGE DP112970 069B 6600 0BC6 1304 | LDX L2 BUFFR+2-6 POINT TO PSEUDO WORD 0 DP112980 069D C212 1305 | LD 2 $DREQ DP112990 069E D33A 1306 | STO 3 AZ966-E DP113000 069F C22D 1307 | LD 2 $ULET DP113010 06A0 D33B 1308 | STO 3 AZ967-E SAVE WORDS TO BE RESTORED DP113020 06A1 C276 1309 | LD 2 $DZIN *AFTER THE RESIDENT IMAGE DP113030 06A2 D33C 1310 | STO 3 AZ968-E *DECK HAS BEEN READ DP113040 06A3 C400 0C5B 1311 | LD L BUFFR+2-6+$FPAD DP113050 06A5 D33D 1312 | STO 3 AZ969-E DP113060 06A6 C400 0C6A 1313 | LD L BUFFR+2-6+$DCYL DP113070 06A8 D33E 1314 | STO 3 AZ970-E DP113080 06A9 4C00 0446 1315 | AH060 BSC L AA040 BRANCH TO READ NEXT RECORD DP113090 PROCESS LOAD MODE RECORD 1317 | * DP113110 1318 | * DETERMINE LOAD MODE DP113120 1319 | * DP113130 06AB 0000 1320 | AI000 DC 0 ENTRY DP113140 06AC C106 1321 | LD 1 6 FETCH WORD 6 (COLUMN 8) DP113150 06AD F03A 1322 | EOR AI900 TEST FOR AND DP113160 06AE 4C18 06B4 1323 | BSC L AI010,+- *BRANCH IF AN 'R' DP113170 06B0 C106 1324 | LD 1 6 FETCH WORD 6 AGAIN DP113180 06B1 F037 1325 | EOR AI901 TEST FOR AND DP113190 06B2 4420 0A4A 1326 | BSI L ER017,Z *BRANCH IF NOT AN 'I' DP113200 06B4 C106 1327 | AI010 LD 1 6 FETCH WORD 6 DP113210 06B5 180B 1328 | SRA 11 SET UP DP113220 06B6 100F 1329 | SLA 15 *LOAD MODE INDICATOR, DP113230 06B7 D032 1330 | STO AI902 *RELOAD=0, INIT LOAD=NON-Z DP113240 1331 | * DP113250 1332 | * INDICATE PH ID PAIRS TO BE BYPASSED DP113260 1333 | * DP113270 06B8 C10C 1334 | LD 1 12 CHECK COLUMN 15 2-5 DP113280 06B9 18D0 1335 | RTE 16 *'C' SAYS LOAD COBOL 2-9 DP113290 06BA C10B 1336 | LD 1 11 * 2-5 DP113300 06BB 18D8 1337 | RTE 24 * 2-5 DP113310 06BC 1804 1338 | SRA 4 * 2-5 DP113320 06BD 4C18 06C3 1339 | BSC L AI015,+- BRANCH IF BLANK 2-8 DP113330 06BF F02E 1340 | EOR AI906 CHECK IF 'C' 2-9 DP113340 06C0 4420 0A4A 1341 | BSI L ER017,Z BRANCH IF NOT 2-5 DP113350 06C2 7002 1342 | MDX AI020 DO NOT SET BIT 14 ON 2-9 DP113360 06C3 7402 06EA 1343 | AI015 MDX L AI902,2 SET BIT 14 ON 2-9 DP113370 06C5 18D8 1344 | AI020 RTE 24 CHECK COLUMN 14 2-5 DP113380 06C6 C10A 1345 | LD 1 10 *BYPASS RPG COMPILER 2-5 DP113390 06C7 18D4 1346 | RTE 20 * 2-5 DP113400 06C8 1804 1347 | SRA 4 * 2-5 DP113410 06C9 4C18 06D0 1348 | BSC L AI030,+- BRANCH IF BLANK 2-5 DP113420 06CB F01C 1349 | EOR AI900 CHECK IF 'R' 2-5 DP113430 06CC 4420 0A4A 1350 | BSI L ER017,Z BRANCH IF NOT 2-5 DP113440 06CE 7404 06EA 1351 | MDX L AI902,4 SET BIT 13 ON 2-5 DP113450 06D0 18CC 1352 | AI030 RTE 12 CHECK COLUMN 13 2-5 DP113460 06D1 1804 1353 | SRA 4 *BYPASS FORTRAN COMPILR 2-5 DP113470 06D2 4C18 06D9 1354 | BSC L AI040,+- BRANCH IF BLANK 2-5 DP113480 06D4 F017 1355 | EOR AI904 CHECK IF 'F' 2-5 DP113490 06D5 4420 0A4A 1356 | BSI L ER017,Z BRANCH IF NOT 2-5 DP113500 06D7 7401 06EA 1357 | MDX L AI902,1 SET BIT 15 ON 2-5 DP113510 06D9 C109 1358 | AI040 LD 1 9 CHECK COLUMN 12 2-5 DP113520 06DA 1004 1359 | SLA 4 *BYPASS ASSEMBLER 2-5 DP113530 06DB 4C18 06E2 1360 | BSC L AI050,+- BRANCH IF BLANK 2-5 DP113540 06DD F00F 1361 | EOR AI905 CHECK IF 'A' 2-5 DP113550 06DE 4420 0A4A 1362 | BSI L ER017,Z BRANCH IF NOT 2-5 DP113560 06E0 7408 06EA 1363 | MDX L AI902,8 SET BIT 12 ON 2-9 DP113570 06E2 C007 1364 | AI050 LD AI902 SAVE 2-5 DP113580 06E3 D400 01F6 1365 | STO L LMODE *THE 2-5 DP113590 06E5 D325 1366 | STO 3 AZ940-E *INDICATORS 2-5 DP113600 06E6 4C00 0446 1367 | BSC L AA040 BRANCH TO READ NEXT RECORD DP113610 1368 | * DP113620 1369 | * CONSTANTS AND WORK AREAS DP113630 1370 | * DP113640 06E8 0401 1371 | AI900 DC /0401 BINARY 'R' DP113650 06E9 0801 1372 | AI901 DC /0801 BINARY 'I' DP113660 06EA 0000 1373 | AI902 DC *-* TEMPORARY STORAGE DP113670 06EB FFFF 1374 | AI903 DC /FFFF DUMMY ENTRY 2-5 DP113680 06EC 0808 1375 | AI904 DC /0808 BINARY 'F' 2-5 DP113690 06ED 9000 1376 | AI905 DC /9000 BINARY 'A' 2-5 DP113700 06EE 0840 1377 | AI906 DC /0840 BINARY 'C' 2-9 DP113710 06EF 0000 1378 | AJ000 DC 0 ENTRY DP113720 06F0 18D0 1379 | RTE 16 ISOLATE WORD COUNT DP113730 06F1 1808 1380 | SRA 8 DP113740 06F2 D00C 1381 | STO AJ020+1 WD CNT FROM RCD TO XR2 DP113750 06F3 4400 08E1 1382 | BSI L CKSUM PROCESS CHK-SUM IF PRESENT DP113760 06F5 C329 1383 | LD 3 AZ944-E TEST NEW SCTR INDR & IF ON DP113770 06F6 4C20 0745 1384 | BSC L AJ140,Z *BR TO VERIFY WD CNT OVER 1 DP113780 06F8 4C30 0737 1385 | AJ010 BSC L AJ110,Z- BR TO ABS SCTR BREAK SUBR DP113790 06FA 4C28 073B 1386 | BSC L AJ120,Z+ BR TO RELATIVE BREAK SUBR DP113800 06FC C318 1387 | LD 3 AZ925-E AVOID LONG ADD INSTRUCTION DP113810 06FD D003 1388 | STO AJ030 *BY INSERTING A SKIP DP113820 06FE 6600 0000 1389 | AJ020 LDX L2 *-* SET XR2 WITH WD CNT OF RCD DP113830 0700 C101 1390 | LD 1 1 FETCH CORE LOADING ADDR DP113840 0701 7002 1391 | AJ030 MDX *+2 AT SCTR BREAKS, ADDR OF DP113850 0702 8400 0B28 1392 | A L AZ902 *1ST WD TO STORE IS UP BY 2 DP113860 0704 4400 09F5 1393 | AJ040 BSI L RELAD CALC RELOCATION FACTOR DP113870 0706 9400 0B50 1394 | S L AZ945 MAINTAIN LONG FORMAT INST DP113880 0708 4428 0A3E 1395 | BSI L ER004,Z+ ORG BACKWARD MSG DP113890 070A D322 1396 | AJ050 STO 3 AZ937-E SAVE RELATIVE ADDR DP113900 070B 1890 1397 | SRT 16 SHIFT TO EXTENSION DP113910 070C AB0B 1398 | D 3 AZ912-E DIVIDE BY WDS PER SECTOR DP113920 070D DB38 1399 | STD 3 AZ964-E SAVE QUOTIENT & REMAINDER DP113930 070E 9328 1400 | S 3 AZ943-E BR IF SCTR FOR THIS PART OF DP113940 070F 4C18 071F 1401 | BSC L AJ070,+- *PROGRAM ALREADY IN CORE DP113950 0711 C32B 1402 | LD 3 AZ948-E THIS INDR CLEARED ON SCTR DP113960 0712 4C18 074F 1403 | BSC L AJ160,+- *BREAKS DP113970 0714 C338 1404 | LD 3 AZ964-E FETCH QUOTIENT DP113980 0715 D328 1405 | STO 3 AZ943-E SET POINTER DP113990 0716 4400 0A14 1406 | BSI L WRITE WRITE A SECTOR DP114000 0718 C338 1407 | LD 3 AZ964-E FETCH QUOTIENT DP114010 0719 8321 1408 | AJ060 A 3 AZ935-E ADD SCTR ADDR DP114020 071A D400 0BCB 1409 | STO L BUFFR+1 SET SCTR ADDR IN BUFFER DP114030 071C 4400 099E 1410 | BSI L FETCH READ A SECTOR FROM DISK DP114040 071E CB38 1411 | LDD 3 AZ964-E FETCH REMAINDER DP114050 071F 1090 1412 | AJ070 SLT 16 REL LOC IN CORE BUFFER DP114060 0720 8400 0B28 1413 | A L AZ902 INCR BY 2 DP114070 0722 832F 1414 | A 3 AZ954-E ADD BUFFER ADDR DP114080 0723 D00B 1415 | STO AJ090+1 SET ADDR IN STORE INST DP114090 0724 C329 1416 | LD 3 AZ944-E TEST FOR SECTOR BREAK DP114100 0725 4C18 072A 1417 | BSC L AJ080,+- BR IF NOT DP114110 0727 1810 1418 | SRA 16 INDICATE NEW SCTR REQ DP114120 0728 D329 1419 | STO 3 AZ944-E DP114130 0729 7102 1420 | MDX 1 2 FETCH 3RD DATA WORD DP114140 072A C10A 1421 | AJ080 LD 1 10 NO SCTR ADDR IN THIS CARD DP114150 072B 7200 1422 | MDX 2 0 TEST XR2 FOR 0 DP114160 072C 7001 1423 | MDX AJ090 STORE A WORD DP114170 072D 7007 1424 | MDX AJ100 READ NEXT RECORD DP114180 072E D400 0000 1425 | AJ090 STO L *-* DATA WD TO DISK BUFFER DP114190 0730 C322 1426 | LD 3 AZ937-E CORE ADDR OF DATA WD DP114200 0731 8301 1427 | A 3 AZ901-E MODIFY POINTER DP114210 0732 7101 1428 | MDX 1 1 DP114220 0733 72FF 1429 | MDX 2 -1 SKIP AFTER LAST WD DONE DP114230 0734 70D5 1430 | MDX AJ050 *ELSE PROCESS NEXT WORD DP114240 0735 4C00 0446 1431 | AJ100 BSC L AA040 READ NEXT RECORD DP114250 1432 | * DP114260 0737 C10B 1433 | AJ110 LD 1 11 FETCH FROM 1ST DATA RECORD DP114270 0738 D321 1434 | STO 3 AZ935-E SAVE SCTR ADDR DP114280 0739 D31E 1435 | STO 3 AZ932-E SAVE BASE SCTR ADDR DP114290 073A 7003 1436 | MDX AJ130 TO FETCH WD CNT DP114300 1437 | * DP114310 073B C10B 1438 | AJ120 LD 1 11 SECTOR ADDR DP114320 073C 8326 1439 | A 3 AZ941-E PREVIOUS SCTR ADDR DP114330 073D D321 1440 | STO 3 AZ935-E DP114340 1441 | * DP114350 073E C0C0 1442 | AJ130 LD AJ020+1 FETCH WORD COUNT DP114360 073F 9400 0B28 1443 | S L AZ902 DECR BY 2 DP114370 0741 D0BD 1444 | STO AJ020+1 STORE BACK DP114380 0742 C314 1445 | LD 3 AZ921-E FETCH 'NOP' INST DP114390 0743 D0BD 1446 | STO AJ030 *TO CANCEL 'MDX *+2' DP114400 0744 70B9 1447 | MDX AJ020 TO PROCESS DATA RCD DP114410 1448 | * DP114420 0745 C400 06FF 1449 | AJ140 LD L AJ020+1 FETCH WD COUNT DP114430 0747 9301 1450 | S 3 AZ901-E DECR BY 1 DP114440 0748 4830 1451 | BSC Z- SKIP IF WD CNT 0 OR 1 DP114450 0749 7002 1452 | MDX AJ150 CONTINUE IF POSITIVE DP114460 074A 4400 0A3E 1453 | BSI L ER004 ORG BACKWARD ERROR DP114470 074C C329 1454 | AJ150 LD 3 AZ944-E RELOAD SCTR INDICATOR DP114480 074D 4C00 06F8 1455 | BSC L AJ010 RETURN DP114490 1456 | * DP114500 074F C338 1457 | AJ160 LD 3 AZ964-E FETCH NEW SCTR INDR DP114510 0750 D328 1458 | STO 3 AZ943-E DP114520 0751 7401 0B51 1459 | MDX L AZ948,1 TEST FOR AND DP114530 0753 70C5 1460 | MDX AJ060 *BR IF NOT SCTR BREAK DP114540 0754 4400 066B 1461 | BSI L AH000 BRANCH TO FETCH NEXT SECTOR DP114550 INITIALIZE RES MON AND DISKZ 1463 | * DP114570 1464 | * ROLL RESIDENT IMAGE AND DISKZ TO LOWER CORE DP114580 1465 | * DP114590 0756 0000 1466 | AK000 DC 0 ENTRY DP114600 0757 C327 1467 | LD 3 AZ942-E TEST FOR AND BRANCH IF DP114610 0758 4C18 0865 1468 | BSC L AK080,+- *PROG JUST READ NOT RES IMG DP114620 075A D32D 1469 | STO 3 AZ950-E SET 'F' RECORD INDR ON DP114630 075B 6500 FE26 1470 | LDX L1 6-$ZEND WORD COUNT = -(-6+$ZEND) DP114640 075D C500 0DA6 1471 | AK010 LD L1 BUFFR+$ZEND-4 FETCH WORD FROM BUFFER DP114650 075F D500 01E0 1472 | STO L1 $ZEND STORE TO LOWER CORE DP114660 0761 7101 1473 | MDX 1 1 INCR WORD CNT, SKIP IF ZERO DP114670 0762 70FA 1474 | MDX AK010 BRANCH TO FETCH NEXT WORD DP114680 0763 6500 00F7 1475 | LDX L1 DZ000+5 STORE ADDRESS OF DISKZ DP114690 0765 6D00 00B9 1476 | STX L1 $I205+1 *INTERRUPT TO ILS02 DP114700 0767 6500 0296 1477 | LDX L1 INTPT STORE ADDR OF INTRPT SUBR DP114710 0769 6D00 002C 1478 | STX L1 $IREQ *TO INTERRUPT REQUEST DP114720 076B 6500 04AA 1479 | LDX L1 AA060-1 STORE ADDRESS OF INTERRUPT DP114730 076D 6D00 00D4 1480 | STX L1 $IBT4 *BRANCH TABLE TO ILS04 DP114740 076F 6500 02DD 1481 | LDX L1 CD016+1 SET UP COLUMN INTERRUPT DP114750 0771 6D00 0008 1482 | STX L1 $LEV0 *BRANCH ADDRESS DP114760 1483 | * DP114770 1484 | * FETCH DRIVE CODE FROM BIT SWITCHES DP114780 1485 | * DP114790 0773 0862 1486 | AK020 XIO AK900 READ THE BIT SWITCHES DP114800 0774 C072 1487 | LD AK907 TEST FOR DP114810 0775 4C28 07CF 1488 | BSC L AK030,Z+ *AND BRANCH DP114820 0777 9306 1489 | S 3 AZ910-E *IF DRIVE CODE 2-11 DP114830 0778 4C30 07CF 1490 | BSC L AK030,-Z *NOT LEGAL DP114840 077A 6580 07E7 1491 | LDX I1 AK907 FETCH DRIVE CODE TO XR1 DP114850 077C C500 07DA 1492 | LD L1 AK904 FETCH AREA CODE DP114860 077E D400 009F 1493 | STO L $ACDE *AND STORE TO COMMA DP114870 0780 C065 1494 | LD AK906 INITIALIZE DP114880 0781 D400 00A4 1495 | STO L $DCYL *DEFECTIVE CYLINDER DP114890 0783 D400 00A5 1496 | STO L $DCYL+1 *ADDRESSES IN COMMA DP114900 0785 D400 00A6 1497 | STO L $DCYL+2 FORCE DISKZ TO SEEK DP114910 0787 D400 009A 1498 | STO L $CYLN *BEFORE FIRST OPERATION DP114920 0789 C30B 1499 | LD 3 AZ912-E RESET DP114930 078A 1801 1500 | SRA 1 *BUFFER SIZE DP114940 078B D30B 1501 | STO 3 AZ912-E *TO 320 DP114950 078C 1810 1502 | SRA 16 SET DP114960 078D D323 1503 | STO 3 AZ938-E *INHIBIT SWITCH OFF DP114970 078E D327 1504 | STO 3 AZ942-E *AND RES IMAGE SWITCH OFF DP114980 078F C314 1505 | LD 3 AZ921-E CANCEL INSTRUCTION TO DP114990 0790 D400 0670 1506 | STO L AH010 *SET 'F' RECORD INDICATOR DP115000 1507 | * DP115010 1508 | * IF RELOAD CHECK SLET/RELOAD TABLE CHECKSUM DP115020 1509 | * BEFORE WRITING TO THE DISK DP115030 1510 | * DP115040 0792 C400 01F6 1511 | LD L LMODE FETCH LOAD MODE INDICATOR DP115050 0794 4410 0932 1512 | BSI L CK600,- BRANCH IF A RELOAD DP115060 1513 | * DP115070 1514 | * DP115080 1515 | * UPDATE THE RESIDENT IMAGE ON RELOAD FUNCTION DP115090 1516 | * DP115100 0796 C400 01F6 1517 | LD L LMODE FETCH LOAD MODE INDICATOR DP115110 0798 4C28 07A8 1518 | BSC L AK025,Z+ BRANCH IF AN INITIAL LOAD DP115120 079A 6600 0BC6 1519 | LDX L2 BUFFR+2-6 POINT TO PSEUDO WORD 0 DP115130 079C C33A 1520 | LD 3 AZ966-E DP115140 079D D212 1521 | STO 2 $DREQ DP115150 079E C33B 1522 | LD 3 AZ967-E RESTORE SAVED WORDS TO DP115160 079F D22D 1523 | STO 2 $ULET *TO RESIDENT IMAGE BEFORE DP115170 07A0 C33C 1524 | LD 3 AZ968-E *WRITING IT TO DISK DP115180 07A1 D276 1525 | STO 2 $DZIN DP115190 07A2 C33D 1526 | LD 3 AZ969-E DP115200 07A3 D400 0C5B 1527 | STO L BUFFR+2-6+$FPAD DP115210 07A5 C33E 1528 | LD 3 AZ970-E DP115220 07A6 D400 0C6A 1529 | STO L BUFFR+2-6+$DCYL DP115230 1530 | * DP115240 1531 | * WRITE RESIDENT IMAGE TO DISK DP115250 1532 | * DP115260 07A8 C335 1533 | AK025 LD 3 AZ960-E FETCH AND STORE SECTOR ADDR DP115270 07A9 D400 0BCB 1534 | STO L BUFFR+1 *OF RES IMAGE TO I/O BUFFER DP115280 07AB 4400 0A14 1535 | BSI L WRITE BRANCH TO WRITE RES. IMAGE DP115290 1536 | * DP115300 1537 | * FETCH FIRST THIRTY WORDS OF ID SECTOR DP115310 1538 | * DP115320 07AD 6500 0C96 1539 | LDX L1 BUFFR+@CSTR-4 SET UP ADDRESS OF DP115330 07AF 6D00 07E5 1540 | STX L1 AK905 *COLD START BUFFER DP115340 07B1 C826 1541 | LDD AK902 STORE WORD COUNT AND SECTOR DP115350 07B2 DC80 07E5 1542 | STD I AK905 *ADDR TO COLD START BUFFER DP115360 07B4 C030 1543 | LD AK905 FETCH ADDR OF C. S. BUFFER DP115370 07B5 1890 1544 | SRT 16 SHIFT TO EXT, ACC = 0 DP115380 07B6 4400 00F2 1545 | BSI L DZ000 BRANCH TO READ DISK DP115390 07B8 7400 00EE 1546 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE DP115400 07BA 70FD 1547 | MDX *-3 BR TO TEST READ COMPLETE DP115410 1548 | * DP115420 1549 | * WRITE NEW ID SECTOR (30 WDS & DISKZ & COLD START) DP115430 1550 | * DP115440 07BB C30B 1551 | LD 3 AZ912-E SET WORD COUNT TO WRITE DP115450 07BC D480 07E5 1552 | STO I AK905 *COMPLETE SECTOR DP115460 07BE C026 1553 | LD AK905 FETCH ADDR OF C. S. BUFFER DP115470 07BF 1890 1554 | SRT 16 SHIFT TO EXTENSION DP115480 07C0 C301 1555 | LD 3 AZ901-E FETCH WRITE FUNCTION CODE DP115490 07C1 4400 00F2 1556 | BSI L DZ000 BRANCH TO WRITE DISK DP115500 07C3 7400 00EE 1557 | MDX L $DBSY,0 SKIP NEXT IF WRITE COMPLETE DP115510 07C5 70FD 1558 | MDX *-3 BR TO TEST WRITE COMPLETE DP115520 1559 | * DP115530 1560 | * HISTORIC COMPATABILITY..... DP115540 1561 | * IF SLET/RELOAD TABLE CHECKSUM WAS ZERO, UPDATE DP115550 1562 | * SLET TO SPECIFICATIONS OF NEW SYSTEM LOADER. DP115560 1563 | * DP115570 07C6 C400 01F6 1564 | LD L LMODE FETCH LOAD MODE INDICATOR DP115580 07C8 4C28 07CE 1565 | BSC L AK029,Z+ BR IF INITIAL LOAD DP115590 07CA C400 092B 1566 | LD L CK913 FETCH OLD CHECKSUM DP115600 07CC 4418 0958 1567 | BSI L CK630,+- BRANCH TO PACK SLET TABLE DP115610 1568 | * DP115620 07CE 701B 1569 | AK029 MDX AK040 BR TO TEST FILE PROT ADDRS DP115630 1570 | * DP115640 1571 | * ILLEGAL DRIVE CODE - PRINT MESSAGE E 11 DP115650 1572 | * DP115660 07CF 6500 0A67 1573 | AK030 LDX L1 MSG11+1 POINT TO ERROR MESSAGE E 11 DP115670 07D1 6680 0A66 1574 | LDX I2 MSG11 FETCH WORD CNT OF MSG E 11 DP115680 07D3 4400 0B1C 1575 | BSI L CNPTR BRANCH TO PRINT THE MESSAGE DP115690 07D5 709D 1576 | MDX AK020 BRANCH TO RETRY DP115700 1577 | * DP115710 1578 | * CONSTANTS AND WORK AREAS DP115720 1579 | * DP115730 07D6 1580 | BSS E 0 FORCE NEXT LOC TO BE EVEN DP115740 07D6 07E7 1581 | AK900 DC AK907 ADDRESS OF DRIVE CODE DP115750 07D7 3A00 1582 | DC @I000 2ND WD OF READ BIT SW IOCC DP115760 07D8 001E 1583 | AK902 DC $DBSY-@CSTR WORD COUNT DP115770 07D9 0000 1584 | DC @IDAD SECTOR ADDRESS DP115780 07DA 2000 1585 | AK904 DC @I510 AREA CODE OF PHY DRIVE 0 DP115790 07DB 8800 1586 | DC @I511 AREA CODE OF PHY DRIVE 1 DP115800 07DC 9000 1587 | DC @I512 AREA CODE OF PHY DRIVE 2 DP115810 07DD 9800 1588 | DC @I513 AREA CODE OF PHY DRIVE 3 DP115820 07DE A000 1589 | DC @I514 AREA CODE OF PHY DRIVE 4 DP115830 07DF B000 1590 | DC @I515 AREA CODE OF PHY DR 5 2-11 DP115831 07E0 B800 1591 | DC @I516 AREA CODE OF PHY DR 6 2-11 DP115832 07E1 B810 1592 | DC @I517 AREA CODE OF PHY DR 7 2-11 DP115833 07E2 B820 1593 | DC @I518 AREA CODE OF PHY DR 8 2-11 DP115834 07E3 B830 1594 | DC @I519 AREA CODE OF PHY DR 9 2-11 DP115835 07E4 B840 1595 | DC @I520 AREA CODE OF PHY DR 10 2-11 DP115836 07E5 0000 1596 | AK905 DC *-* ADDR OF COLD AA040 BUFFER DP115840 07E6 0658 1597 | AK906 DC @MSCT MAXIMUM ARM POSITION DP115850 07E7 0000 1598 | AK907 DC *-* DRIVE CODE DP115860 07E8 0800 1599 | AK908 DC /0800 HALF MIN CORE SIZE (2K) DP115870 07E9 1000 1600 | AK909 DC @MNCR MINIMUM CORE SIZE (4K) DP115880 1601 | * DP115890 1602 | * DETERMINE STATUS OF CARTRIDGE DP115900 1603 | * DP115910 07EA C334 1604 | AK040 LD 3 AZ959-E FETCH ID SECTOR ADDRESS DP115920 07EB D400 0BCB 1605 | STO L BUFFR+1 *AND STORE TO I/O BUFFER DP115930 07ED 4400 099E 1606 | BSI L FETCH BRANCH TO FETCH ID SECTOR DP115940 1607 | * DP115950 07EF C400 0BD3 1608 | LD L BUFFR+2+@STAT FETCH STATUS (WORD 7) DP115960 07F1 9302 1609 | S 3 AZ902-E BR IF CARTRIDGE NOT ALREADY DP115970 07F2 4C20 07F9 1610 | BSC L AK045,Z *DM2 INITIAL LOADED DP115980 07F4 C400 01F6 1611 | LD L LMODE FETCH LOAD MODE INDICATOR DP115990 07F6 4428 0AF6 1612 | BSI L ER005,Z+ BRANCH IF NOT A RELOAD FUNC DP116000 07F8 7007 1613 | MDX AK050 DP116010 1614 | * DP116020 07F9 8304 1615 | AK045 A 3 AZ904-E BR IF CARTRIDGE NOT JUST DP116030 07FA 4420 0AF6 1616 | BSI L ER005,Z *INITIALIZED DP116040 07FC C400 01F6 1617 | LD L LMODE FETCH LOAD MODE INDICATOR DP116050 07FE 4410 0B0E 1618 | BSI L ER016,- BRANCH IF NOT AN INIT LOAD DP116060 1619 | * DP116070 1620 | * DETERMINE VALIDITY OF CARTRIDGE INITIALIZATION DP116080 1621 | * DP116090 0800 C400 0BCF 1622 | AK050 LD L BUFFR+2+@CIDN FETCH CART ID (WORD 3) DP116100 0802 4408 0AFC 1623 | BSI L ER012,+ BRANCH IF INVALID ID DP116110 0804 D400 01FF 1624 | STO L CARID SAVE CART ID FOR PHASE 2 DP116120 0806 62FD 1625 | LDX 2 -3 SET DEF CYL ADDRESSES COUNT DP116130 0807 C600 0BCF 1626 | AK055 LD L2 BUFFR+5 FETCH A DEF CYL ADDRESS DP116140 0809 9311 1627 | S 3 AZ918-E TEST FOR AND BRANCH IF DP116150 080A 4C30 0AFC 1628 | BSC L ER012,Z- *INVALID (GT /0658) DP116160 080C 7201 1629 | MDX 2 1 INCR CYL CNT, SKIP IF ZERO DP116170 080D 7001 1630 | MDX *+1 DP116180 080E 7006 1631 | MDX AK060 LAST DEF CYL ADDRESS BRANCH DP116190 080F C600 0BCE 1632 | LD L2 BUFFR+4 FETCH DEF CYL ADDRESS AGAIN DP116200 0811 9600 0BCF 1633 | S L2 BUFFR+5 TEST FOR AND BRANCH IF DP116210 0813 4C30 0AFC 1634 | BSC L ER012,Z- *GT NEXT DEF CYL ADDRESS DP116220 0815 C600 0BCE 1635 | AK060 LD L2 BUFFR+4 FETCH DEF CYL ADDRESS DP116230 0817 D600 00A6 1636 | STO L2 $DCYL+2 *AND STORE TO COMMA DP116240 0819 D600 01F5 1637 | STO L2 DCYL1+2 *AND SYS LOADER COMM AREA DP116250 081B 7200 1638 | MDX 2 0 SKIP IF LAST ADDR PROCESSED DP116260 081C 70EA 1639 | MDX AK055 BR TO FETCH NEXT DEF CYL DP116270 1640 | * DP116280 1641 | * SAVE DCOM ITEMS FOR PHASE 2 DP116290 1642 | * DP116300 081D C332 1643 | LD 3 AZ957-E FETCH DCOM SECTOR ADDRESS DP116310 081E D400 0BCB 1644 | STO L BUFFR+1 *AND STORE TO I/O BUFFER DP116320 0820 4400 099E 1645 | BSI L FETCH BRANCH TO FETCH DCOM SECTOR DP116330 1646 | * DP116340 0822 61FB 1647 | LDX 1 -5 SET CARTRIDGE ID COUNT DP116350 0823 6600 0BCC 1648 | LDX L2 BUFFR+2 XR2 PTS TO 1ST WD OF BFR2-3 DP116360 0825 C400 01FF 1649 | AK065 LD L CARID FETCH CARTRIDGE ID DP116370 1650 | * 2-3 DP116380 0827 F600 0037 1651 | EOR L2 #CIDN TEST FOR AND BRANCH IF DP116390 0829 4C18 0830 1652 | BSC L AK070,+- *MATCH FOUND IN DCOM DP116400 082B 7201 1653 | MDX 2 1 POINT TO NEXT DCOM WORD DP116410 082C 7101 1654 | MDX 1 1 INCR ID COUNT, SKIP IF ZERO DP116420 082D 70F7 1655 | MDX AK065 BR TO TEST NEXT CART ID DP116430 082E 4400 0AFC 1656 | BSI L ER012 NO MATCH, BR TO PRINT MSG DP116440 1657 | * DP116450 0830 C23C 1658 | AK070 LD 2 #CIBA SAVE DP116460 0831 D400 01FB 1659 | STO L CIBFR *SECTOR ADDR OF CIB DP116470 1660 | * 2-3 DP116480 1661 | * CODING TO CHECK FILE PROTECT ADDRESS MOVED 2-3 DP116490 1662 | * 2-3 DP116500 0833 C22D 1663 | LD 2 #FPAD FETCH FILE PROTECT ADDRESS DP116510 0834 9250 1664 | S 2 #ULET SAVE DP116520 0835 D400 0204 1665 | STO L SHIFT *NO. OF SECTORS TO SHIFT, DP116530 0837 C250 1666 | LD 2 #ULET DP116540 0838 D400 0203 1667 | STO L LET00 *OLD LET SECTOR ADDRESS, DP116550 083A C241 1668 | LD 2 #SCRA DP116560 083B D400 01FE 1669 | STO L ASCRA *SCRA SECTOR ADDRESS, DP116570 083D C24B 1670 | LD 2 #FLET DP116580 083E 1004 1671 | SLA 4 DP116590 083F 1804 1672 | SRA 4 DP116600 0840 D400 0200 1673 | STO L FLETI *FIXED AREA INDICATOR DP116610 0842 C25A 1674 | LD 2 #CSHN DP116620 0843 D400 01F7 1675 | STO L CAREA *AND CUSHION SIZE FOR PH 2 DP116630 0845 C400 01F6 1676 | LD L LMODE TEST FOR AND BRANCH DP116640 0847 4C10 0446 1677 | BSC L AA040,- *IF A RELOAD FUNCTION DP116650 1678 | * DP116660 1679 | * CLEAR DCOM AND SLET SECTORS ON INITIAL LOAD ONLY DP116670 1680 | * DP116680 0849 4400 085B 1681 | BSI L AK074 BRANCH TO CLEAR 'BUFFR' DP116690 084B 6500 0003 1682 | LDX L1 @SLET SET SECTOR ADDRESS DP116700 084D 6D00 0BCB 1683 | STX L1 BUFFR+1 *OF FIRST SLET SECTOR DP116710 084F 4400 0A14 1684 | BSI L WRITE BR TO WRITE 1ST SLET SECTOR DP116720 0851 7401 0BCB 1685 | MDX L BUFFR+1,1 SET SAD OF 2ND SLET SECTOR DP116730 0853 4400 0A14 1686 | BSI L WRITE BR TO WRITE 2ND SLET SECTOR DP116740 0855 7401 0BCB 1687 | MDX L BUFFR+1,1 SET SAD OF 3RD SLET SECTOR DP116750 0857 4400 0A14 1688 | BSI L WRITE BR TO WRITE 3RD SLET SECTOR DP116760 0859 4C00 0446 1689 | BSC L AA040 BRANCH TO READ PHASE 2 DP116770 1690 | * DP116780 085B 0000 1691 | AK074 DC 0 ENTRY/RETURN ADDRESS DP116790 085C 6500 0140 1692 | LDX L1 320 *LOOP DP116800 085E 1810 1693 | SRA 16 *CLEARS DP116810 085F D500 0BCB 1694 | AK076 STO L1 BUFFR+1 *'BUFFR' DP116820 0861 71FF 1695 | MDX 1 -1 *TO DP116830 0862 70FC 1696 | MDX AK076 *ZEROS DP116840 0863 4C80 085B 1697 | BSC I AK074 RETURN DP116850 1698 | * DP116860 1699 | * 'F' RECORD OF PHASE 2 RECOGNIZED DP116870 1700 | * DP116880 0865 4400 0A14 1701 | AK080 BSI L WRITE BR TO WRITE PHASE 2 TO DISK DP116890 0867 1000 1702 | NOP A WAIT MAY BE PATCHED HERE DP116900 0868 C0FF 1703 | LD *-1 SET DP116910 0869 D32C 1704 | STO 3 AZ949-E *'SCON' RECORD DP116920 086A D31F 1705 | STO 3 AZ933-E *NEXT INDICATORS ON DP116930 1706 | * DP116940 1707 | * DETERMINE SYSTEM CORE SIZE DP116950 1708 | * DP116960 086B 6200 1709 | LDX 2 0 SET ADDRESS OF LOCATION 0 DP116970 086C 6E00 0000 1710 | STX L2 0 *IN LOCATION 0 DP116980 086E C400 07E8 1711 | LD L AK908 FETCH MAX ADDR OF MIN CORE DP116990 0870 7001 1712 | MDX AK100+1 SKIP NEXT INSTRUCTION DP117000 0871 C003 1713 | AK100 LD AK110+1 FETCH NEXT CORE SIZE ADDR DP117010 0872 1001 1714 | SLA 1 MULTIPLY BY TWO DP117020 0873 D001 1715 | STO AK110+1 *AND STORE THE ADDRESS DP117030 0874 D400 0000 1716 | AK110 STO L *-* STORE CORE ADDR IN ADDRESS DP117040 0876 D400 01FC 1717 | STO L SCORE SAVE ACTUAL CORE SIZE DP117050 0878 4C10 087C 1718 | BSC L AK120,- BRANCH IF CORE SIZE LT 32K DP117060 087A C30A 1719 | LD 3 AZ911-E FETCH NO. OF SECTORS DP117070 087B 7004 1720 | MDX AK130 BRANCH TO STORE DP117080 087C 9400 07E9 1721 | AK120 S L AK909 SUBTRACT MINIMUM CORE SIZE DP117090 087E 1890 1722 | SRT 16 SHIFT TO EXTENSION DP117100 087F AB13 1723 | D 3 AZ920-E DIVIDE BY SECTOR SIZE DP117110 0880 8301 1724 | AK130 A 3 AZ901-E INCREMENT BY ONE AND DP117120 0881 D400 0202 1725 | STO L SSBFR *SAVE NO. OF SCTRS/FLET BFR DP117130 0883 C400 0000 1726 | LD L 0 FETCH CONTENTS OF LOC 0 DP117140 0885 4818 1727 | BSC +- SKIP IF NON-ZERO DP117150 0886 70EA 1728 | MDX AK100 BR TO TRY NEXT CORE INCR DP117160 0887 4C00 0446 1729 | BSC L AA040 BRANCH TO READ NEXT RECORD DP117170 DECIMAL TO BINARY CONVERSION 1731 | * DP117190 1732 | * CONVERT A DECIMAL NUMBER IN THE FIRST PARAMETER DP117200 1733 | * TO BINARY AND RETURN IT IN THE ACCUMULATOR DP117210 1734 | * DP117220 0889 0000 1735 | DCBIN DC 0 ENTRY/RETURN ADDRESS DP117230 088A D84B 1736 | STD DC900 SAVE ACC AND EXT DP117240 088B 6935 1737 | STX 1 DC080+1 SAVE XR1 DP117250 088C 6A36 1738 | STX 2 DC090+1 SAVE XR2 DP117260 088D 2830 1739 | STS DC060 SAVE STATUS DP117270 088E 6580 0889 1740 | LDX I1 DCBIN XR1 POINTS TO PARAMETER DP117280 0890 C100 1741 | LD 1 0 FETCH AND STORE DP117290 0891 D003 1742 | STO DC010+1 *INPUT PARAMETER DP117300 0892 7101 1743 | MDX 1 +1 INCREMENT FOR DP117310 0893 6931 1744 | STX 1 DC100+1 *AND SAVE RETURN ADDRESS DP117320 0894 6500 0000 1745 | DC010 LDX L1 *-* XR1 POINTS TO INPUT PARAM DP117330 0896 C043 1746 | LD DC904 FETCH AND DP117340 0897 D041 1747 | STO DC903 *STORE DIGIT COUNT (5) DP117350 0898 1810 1748 | SRA 16 CLEAR DP117360 0899 D03C 1749 | STO DC900 *OUTPUT REGISTER DP117370 089A C101 1750 | DC020 LD 1 1 FETCH A DIGIT DP117380 089B 4C18 08A9 1751 | BSC L DC030,+- BRANCH IF ZERO DP117390 089D E042 1752 | AND DC910 TEST FOR AND BRANCH IF DP117400 089E 4C20 08BC 1753 | BSC L DC050,Z *BITS 0, 1, 12-15 ON DP117410 08A0 C101 1754 | LD 1 1 FETCH DIGIT AGAIN DP117420 08A1 620C 1755 | LDX 2 12 XR2 = BIT COUNT (+, -, 0-9) DP117430 08A2 1240 1756 | SLCA 2 0 COUNT NUMBER OF BITS SET DP117440 08A3 903B 1757 | S DC909 TEST FOR AND BR IF NO. OF DP117450 08A4 4C20 08BC 1758 | BSC L DC050,Z *BITS EQUALS ZERO OR GT ONE DP117460 08A6 6A31 1759 | STX 2 DC902 SAVE VALUE OF DIGIT DP117470 08A7 C033 1760 | LD DC905 FETCH FIVE DP117480 08A8 902F 1761 | S DC902 SUBTRACT VALUE DP117490 08A9 802C 1762 | DC030 A DC900 ADD ACCUMULATED VALUE DP117500 08AA 74FF 08D9 1763 | MDX L DC903,-1 DECR DIGIT CNT, SK IF ZERO DP117510 08AC 701C 1764 | MDX DC120 BRANCH TO FETCH NEXT DIGIT DP117520 08AD D028 1765 | STO DC900 STORE BINARY VALUE DP117530 08AE 4C01 08D0 1766 | BSC L DC130,O BRANCH IF OVERFLOW DP117540 08B0 C1FC 1767 | LD 1 -4 FETCH SIGN CHARACTER DP117550 08B1 4C18 08BE 1768 | BSC L DC060,+- BRANCH IF BLANK (POSITIVE) DP117560 08B3 902A 1769 | S DC908 TEST FOR AND DP117570 08B4 4C18 08C6 1770 | BSC L DC110,+- *BRANCH IF SIGN NEGATIVE DP117580 08B6 9027 1771 | S DC908 TEST FOR AND DP117590 08B7 4C18 08BE 1772 | BSC L DC060,+- *BRANCH IF SIGN AMPERSAND DP117600 08B9 9023 1773 | S DC907 TEST FOR AND DP117610 08BA 4C18 08BE 1774 | DC040 BSC L DC060,+- *BRANCH IF SIGN POSITIVE DP117620 08BC 2001 1775 | DC050 LDS 1 SET OVERFLOW ON, CARRY OFF DP117630 08BD 7001 1776 | MDX DC070 BRANCH TO RETURN DP117640 08BE 2000 1777 | DC060 LDS 0 RESTORE STATUS DP117650 08BF C816 1778 | DC070 LDD DC900 RESTORE ACC AND EXT DP117660 08C0 6500 0000 1779 | DC080 LDX L1 *-* RESTORE XR1 DP117670 08C2 6600 0000 1780 | DC090 LDX L2 *-* RESTORE XR2 DP117680 08C4 4C00 0000 1781 | DC100 BSC L *-* RETURN DP117690 08C6 900F 1782 | DC110 S DC900 COMPLEMENT AND DP117700 08C7 D00E 1783 | STO DC900 *SAVE BINARY VALUE DP117710 08C8 70F5 1784 | MDX DC060 BRANCH TO RETURN DP117720 08C9 A012 1785 | DC120 M DC906 MULTIPLY BY TEN SCALED DP117730 08CA 4C20 08BC 1786 | BSC L DC050,Z BRANCH IF GT 32760 DP117740 08CC 108F 1787 | SLT 15 SHIFT PRODUCT TO EXTENSION DP117750 08CD D008 1788 | STO DC900 *AND SAVE VALUE DP117760 08CE 7101 1789 | MDX 1 +1 POINT TO NEXT DIGIT DP117770 08CF 70CA 1790 | MDX DC020 BRANCH TO FETCH NEXT DIGIT DP117780 08D0 F00E 1791 | DC130 EOR DC909 TEST FOR AND BRANCH DP117790 08D1 4C20 08BC 1792 | BSC L DC050,Z *IF BINARY VALUE NOT -32768 DP117800 08D3 C1FC 1793 | LD 1 -4 FETCH SIGN CHARACTER DP117810 08D4 F009 1794 | EOR DC908 TEST FOR AND DP117820 08D5 70E4 1795 | MDX DC040 *BRANCH IF SIGN NEGATIVE DP117830 1796 | * DP117840 1797 | * CONSTANTS AND WORK AREAS DP117850 1798 | * DP117860 08D6 1799 | BSS E 0 FORCE NEXT LOC TO BE EVEN DP117870 08D6 0000 1800 | DC900 DC *-* CONTENTS OF ACCUMULATOR DP117880 08D7 0000 1801 | DC *-* CONTENTS OF EXTENSION DP117890 08D8 0000 1802 | DC902 DC 0 TEMP STG FOR DIGIT VALUE DP117900 08D9 0000 1803 | DC903 DC 0 DIGIT COUNT DP117910 08DA 0005 1804 | DC904 DC +5 CONSTANT FIVE DP117920 08DB 000A 1805 | DC905 DC +10 CONSTANT TEN DP117930 08DC 0014 1806 | DC906 DC /0014 TEN SCALED DP117940 08DD 00A0 1807 | DC907 DC /00A0 MASK FOR SIGN CHARACTER DP117950 08DE 4000 1808 | DC908 DC /4000 MASK FOR SIGN CHARACTER DP117960 08DF 8000 1809 | DC909 DC /8000 MASK FOR BITS ON AFTER SLCA DP117970 08E0 C00F 1810 | DC910 DC /C00F MASK FOR ILLEGAL BITS DP117980 MISCELLANEOUS SUBROUTINES 1812 | *************************************************** DP118000 1813 | * DP118010 1814 | * PROCESS THE CHECKSUM DP118020 1815 | * DP118030 08E1 0000 1816 | CKSUM DC 0 ENTRY/RETURN ADDRESS DP118040 08E2 C400 0459 1817 | CK100 LD L AA902+1 FETCH WORD 2 DP118050 08E4 4C98 08E1 1818 | BSC I CKSUM,+- RETURN IF NO CHECKSUM DP118060 08E6 7401 0904 1819 | MDX L CK900,1 INCREMENT THE SEQUENCE NO. DP118070 08E8 6236 1820 | LDX 2 54 XR2 = NO. WORDS PER RECORD DP118080 08E9 C01A 1821 | LD CK900 FETCH SEQUENCE NUMBER DP118090 08EA 8600 0457 1822 | CK200 A L2 AA902-1 ADD A WORD DP118100 08EC 4802 1823 | BSC C SKIP IF NO CARRY DP118110 08ED 8301 1824 | A 3 AZ901-E ADD ONE DP118120 08EE 72FF 1825 | MDX 2 -1 DECR WORD CNT, SKIP IF ZERO DP118130 08EF 70FA 1826 | MDX CK200 BRANCH TO ADD NEXT WORD DP118140 08F0 9301 1827 | S 3 AZ901-E TEST FOR AND DP118150 08F1 4C98 08E1 1828 | BSC I CKSUM,+- *RETURN IF BLANK RECORD DP118160 08F3 700B 1829 | CK300 MDX CK400 'NOP' IF SEQUENCE ERROR DP118170 1830 | * DP118180 08F4 6500 024C 1831 | LDX L1 MSG01+1 POINT TO ERROR MESSAGE E 01 DP118190 08F6 6680 024B 1832 | LDX I2 MSG01 FETCH WORD CNT OF MSG E 01 DP118200 08F8 4400 0B1C 1833 | BSI L CNPTR BRANCH TO PRINT THE MESSAGE DP118210 08FA 74FF 0904 1834 | MDX L CK900,-1 DECREMENT SEQUENCE NUMBER DP118220 08FC 1000 1835 | NOP AVOID POSSIBLE SKIP DP118230 08FD 4C00 0446 1836 | BSC L AA040 BRANCH TO READ NEXT RECORD DP118240 1837 | * DP118250 08FF F31D 1838 | CK400 EOR 3 AZ931-E COMPLIMENT AND STORE DP118260 0900 D003 1839 | STO CK900 *STORE CHECKSUM DP118270 0901 C314 1840 | LD 3 AZ921-E CANCEL DP118280 0902 D0F0 1841 | STO CK300 *RESET ABILITY DP118290 0903 70DE 1842 | MDX CK100 BRANCH TO PROCESS AGAIN DP118300 1843 | * DP118310 1844 | * CONSTANTS AND WORK AREAS DP118320 1845 | * DP118330 0904 0000 1846 | CK900 DC *-* SEQUENCE NUMBER DP118340 1847 | * DP118350 1848 | *************************************************** DP118360 1849 | * DP118370 1850 | * SUBROUTINE TO CALCULATE CHECKSUM OF SLET AND DP118380 1851 | * RELOAD TABLE (EXCLUDING LAST WORD OF RELOAD TBL) DP118390 1852 | * DP118400 0905 0000 1853 | CK500 DC 0 ENTRY/RETURN ADDRESS DP118410 0906 C821 1854 | LDD CK910 SET UP BUFFER TO START DP118420 0907 DC00 0E4C 1855 | STD L BUFR1 *READING AT 1ST SCTR SLET DP118430 0909 1010 1856 | SLA 16 CLEAR CALCULATED DP118440 090A D01F 1857 | STO CK912 *CHECKSUM DP118450 090B 61FC 1858 | LDX 1 -4 4 SECTORS TO CHECKSUM DP118460 090C 691F 1859 | STX 1 CK914 DP118470 090D 7401 0E4D 1860 | CK510 MDX L0 BUFR1+1,1 INCREMENT SECTOR ADDRESS DP118480 090F 4400 0992 1861 | BSI L FTCH1 READ SECTOR FROM DISK DP118490 0911 6500 013F 1862 | LDX L1 @SCNT-1 WORDS - 1 PER SECTOR DP118500 0913 C016 1863 | LD CK912 RESTORE CHECKSUM TO ACC DP118510 0914 8500 0E4D 1864 | CK520 A L1 BUFR1+1 CALCULATE CHECKSUM DP118520 0916 4802 1865 | BSC C IF CARRY DP118530 0917 8301 1866 | A 3 AZ901-E *ADD 1 TO CHECK SUM DP118540 0918 71FF 1867 | MDX 1 -1 STEP THROUGH SECTOR DP118550 0919 70FA 1868 | MDX CK520 BR TO LOOP IN SECTOR DP118560 091A D00F 1869 | STO CK912 SAVE CHECK SUM DP118570 091B 7401 092C 1870 | MDX L0 CK914,1 INCREMENT SECTOR LOOP COUNT DP118580 091D 7002 1871 | MDX CK530 BR, IS NOT RELOAD SECTOR DP118590 091E 4C80 0905 1872 | BSC I CK500 RETURN DP118600 1873 | * DP118610 1874 | * INCLUDE LAST WORD OF SECTOR IN ALL BUT RELOAD DP118620 1875 | * SECTOR DP118630 1876 | * DP118640 0920 8400 0F8D 1877 | CK530 A L BUFR1+1+@SCNT LAST WORD OF SECTOR DP118650 0922 4802 1878 | BSC C IF CARRY DP118660 0923 8301 1879 | A 3 AZ901-E *ADD 1 TO CHECK SUM DP118670 0924 D005 1880 | STO CK912 SAVE CHECK SUM DP118680 0925 70E7 1881 | MDX CK510 BR TO LOOP 4 SECTORS DP118690 1882 | * DP118700 1883 | * CONSTANTS AND WORK AREAS DP118710 1884 | * DP118720 0926 1885 | BSS E 0 DP118730 0926 0140 1886 | CK902 DC @SCNT WORD COUNT 1 SECTOR 2-3 DP118740 0927 0001 1887 | DC @DCOM SECTOR ADDRESS OF DCOM 2-3 DP118750 0928 0140 1888 | CK910 DC @SCNT WORD COUNT 1 SECTOR DP118760 0929 0002 1889 | DC @SLET-1 SECTOR ADDRESS OF SLET - 1 DP118770 092A 0000 1890 | CK912 DC *-* CALCULATED CHECKSUM DP118780 092B 0000 1891 | CK913 DC *-* OLD CHECKSUM FROM TABLE DP118790 092C 0000 1892 | CK914 DC *-* SECTOR LOOP COUNTER DP118800 092D FF10 1893 | CK915 DC -240 # OF ENTRIES IN SLET. 2-11 DP118810 1894 | * 4 WORDS OF WORK AREA REMOVED 2-11 DP118820 092E 03C0 1895 | CK920 DC 3*@SCNT # OF WORDS IN 3 SECTORS2-11 DP118860 092F 0003 1896 | DC @SLET SECTOR ADDRESS OF SLET DP118870 0930 0000 1897 | CK922 DC *-* STORAGE FOR XR1 'TO' ADDR DP118880 0931 0000 1898 | CK923 DC *-* STORAGE FOR XR2 'FROM' ADDR DP118890 1899 | *************************************************** DP118900 1900 | * DP118910 1901 | * ENTERED ON RELOAD. CALCULATE AND CHECK DP118920 1902 | * SLET/RELOAD TABLE CHECKSUM DP118930 1903 | * AND FILE PROTECT ADDRESS. 2-3 DP118940 1904 | * DP118950 0932 0000 1905 | CK600 DC 0 ENTRY/RETURN ADDRESS DP118960 0933 C8F2 1906 | LDD CK902 FETCH DCOM 2-3 DP118970 0934 DC00 0E4C 1907 | STD L BUFR1 *FROM 2-3 DP118980 0936 4400 0992 1908 | BSI L FTCH1 *DISK 2-3 DP118990 0938 6600 0E4E 1909 | LDX L2 BUFR1+2 POINT TO FIRST WORD 2-3 DP119000 093A 61FB 1910 | LDX 1 -5 SET CARTRIDGE ID COUNT 2-12 DP119001 093B C400 01FF 1911 | CK610 LD L CARID FETCH CARTRIDGE ID 2-12 DP119002 093D F600 0037 1912 | EOR L2 #CIDN TEST FOR AND BRANCH IF 2-12 DP119003 093F 4C18 0946 1913 | BSC L CK620,+- *MATCH FOUND IN DCOM 2-12 DP119004 0941 7201 1914 | MDX 2 1 POINT TO NEXT DCOM WORD2-12 DP119005 0942 7101 1915 | MDX 1 1 INCR ID CNT SKP IF ZERO2-12 DP119006 0943 70F7 1916 | MDX CK610 BR TO TST NXT CART ID 2-12 DP119007 0944 4400 0AFC 1917 | BSI L ER012 NO MATCH PRNT MSG 2-12 DP119008 0946 C22D 1918 | CK620 LD 2 #FPAD SAVE FILE 2-12 DP119010 0947 D400 0201 1919 | STO L FPADR *PROTECT ADDRESS 2-3 DP119020 0949 930F 1920 | S 3 AZ916-E TEST AND BR IF INADEQ 2-3 DP119030 094A 4410 0B08 1921 | BSI L ER014,- *DISK AREA FOR PHASE 2 2-3 DP119040 094C 4400 0905 1922 | BSI L CK500 BR TO CALCULATE CHECKSUM DP119050 094E C400 0F8D 1923 | LD L BUFR1+1+@SCNT LOAD OLD CHECKSUM DP119060 0950 D0DA 1924 | STO CK913 SAVE OLD CHECKSUM DP119070 0951 4C98 0932 1925 | BSC I CK600,+- RETURN IF NOT CHECKSUM DP119080 0953 F0D6 1926 | EOR CK912 COMPARE WITH CALC CHECKSUM DP119090 0954 4420 0A5D 1927 | BSI L ER019,Z BR IF INVALID CHECKSUM DP119100 0956 4C80 0932 1928 | BSC I CK600 RETURN DP119110 1929 | * DP119120 1930 | *************************************************** DP119130 1931 | * DP119140 1932 | * HISTORIC COMPATABILITY..... DP119150 1933 | * COMPRESS OUT GAPS IN SLET TABLE AND ZERO NEW DP119160 1934 | * THIRD SECTOR OF SLET. DP119170 1935 | * DP119180 0958 0000 1936 | CK630 DC 0 ENTRY/RETURN ADDRESS DP119190 1937 | * 2 INSTRUCTIONS REMOVED 2-11 DP119200 0959 C8D4 1938 | LDD CK920 SET WORD COUNT AND SECTOR DP119220 095A DC00 0BCA 1939 | STD L BUFFR *ADDR TO TWO SLET SECTORS DP119230 095C 4400 099E 1940 | BSI L FETCH BR TO READ 1ST 2 SLET SCTRS DP119240 1941 | * DP119250 095E 6500 0BCC 1942 | LDX L1 BUFFR+2 PT TO 'TO' ADDRESS IN SLET DP119260 0960 6600 0BCC 1943 | LDX L2 BUFFR+2 PT TO 'FROM' ADDR IN SLET DP119270 0962 CA00 1944 | CK640 LDD 2 0 FETCH 1ST 2 WDS OF SLET ENT DP119280 0963 4C18 0969 1945 | BSC L CK650,+- BRANCH IF EMPTY ENTRY DP119290 0965 D900 1946 | STD 1 0 SHIFT TO BOTTOM OF TABLE DP119300 0966 CA02 1947 | LDD 2 2 *(MAY OVERLAY ITSELF) DP119310 0967 D902 1948 | STD 1 2 DP119320 0968 7104 1949 | MDX 1 4 ADVANCE TO ADDR 1 ENTRY DP119330 0969 7204 1950 | CK650 MDX 2 4 ADVANCE FROM ADDR 1 ENTRY DP119340 096A 7401 092D 1951 | MDX L0 CK915,1 INCR ENTRY COUNTER DP119350 096C 70F5 1952 | MDX CK640 LOOP UNTIL 2 SECTORS TESTED DP119360 1953 | * DP119370 096D 6AC3 1954 | STX 2 CK923 SAVE FROM ADDR DP119380 096E 69C1 1955 | CK660 STX 1 CK922 SAVE TO ADDR DP119390 096F C0C0 1956 | LD CK922 LOAD TO ADDR DP119400 0970 90C0 1957 | S CK923 SUB FROM ADDR DP119410 0971 4C10 0978 1958 | BSC L CK670,- BR IF END OF SLET REACHED DP119420 0973 10A0 1959 | SLT 32 ZERO TAIL DP119430 0974 D900 1960 | STD 1 0 *OF SLET DP119440 0975 D902 1961 | STD 1 2 *TABLE DP119450 0976 7104 1962 | MDX 1 4 ADVANCE TO POINTER 1 ENTRY DP119460 0977 70F6 1963 | MDX CK660 LOOP UNTIL END OF 2 SECTORS DP119470 1964 | * DP119480 0978 4400 0A14 1965 | CK670 BSI L WRITE UPDATE SLET TABLE DP119490 1966 | *10 INSTRUCTIONS REMOVED 2-11 DP119500 097A 4C80 0958 1967 | BSC I CK630 RETURN DP119620 097C 1968 | BSS 22 PATCH AREA. 2-11 DP119625 1969 | * DP119630 1970 | *************************************************** DP119640 1971 | * DP119650 1972 | * READ A SECTOR FROM DISK INTO 'BUFR1' DP119660 1973 | * DP119670 0992 0000 1974 | FTCH1 DC 0 ENTRY/RETURN ADDRESS DP119680 0993 C808 1975 | LDD F1900 FETCH FUNC CODE, I/O ADDR DP119690 0994 4400 00F2 1976 | BSI L DZ000 BRANCH TO READ A SECTOR DP119700 0996 7400 00EE 1977 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE DP119710 0998 70FD 1978 | MDX *-3 BR TO TEST READ COMPLETE DP119720 0999 4C80 0992 1979 | BSC I FTCH1 RETURN DP119730 1980 | * DP119740 1981 | * CONSTANTS AND WORK AREAS DP119750 099C 1982 | BSS E 0 FORCE NEXT LOC TO BE EVEN DP119760 099C 0000 1983 | F1900 DC /0000 READ FUNCTION CODE DP119770 099D 0E4C 1984 | DC BUFR1 ADDRESS OF I/O AREA DP119780 1985 | * DP119790 1986 | *************************************************** DP119800 1987 | * DP119810 1988 | * READ FROM DISK INTO BUFFR DP119820 1989 | * DP119830 099E 0000 1990 | FETCH DC 0 ENTRY/RETURN ADDRESS DP119840 099F C323 1991 | LD 3 AZ938-E RETURN DP119850 09A0 4CA0 099E 1992 | BSC I FETCH,Z *IF INHIBIT SWITCH ON DP119860 09A2 C807 1993 | LDD FE900 FETCH FUNC CODE/I/O ADDRESS DP119870 09A3 4400 00F2 1994 | BSI L DZ000 BRANCH TO DISK SUBROUTINE DP119880 09A5 7400 00EE 1995 | MDX L $DBSY,0 SKIP NEXT IF OP COMPLETE DP119890 09A7 70FD 1996 | MDX *-3 BRANCH TO TEST OP COMPLETE DP119900 09A8 4C80 099E 1997 | BSC I FETCH RETURN DP119910 1998 | * DP119920 1999 | * CONSTANTS AND WORK AREAS DP119930 2000 | * DP119940 09AA 2001 | BSS E 0 FORCE NEXT LOC TO BE EVEN DP119950 09AA 0000 2002 | FE900 DC /0000 READ FUNCTION CODE DP119960 09AB 0BCA 2003 | DC BUFFR ADDRESS OF I/O BUFFER DP119970 2004 | * DP119980 2005 | *************************************************** DP119990 2006 | * DP120000 2007 | * PROCESS MOD NUMBER ON PHASE ID RECORD DP120010 2008 | * DP120020 09AC 0000 2009 | MODNO DC 0 ENTRY/RETURN ADDRESS DP120030 09AD C029 2010 | LD MO900 IF VERSION AND MOD NUMBER DP120040 09AE 4CA0 09AC 2011 | BSC I MODNO,Z *ALREADY SET, RETURN DP120050 09B0 C400 049C 2012 | LD L AA904+66 FETCH COLUMN 67 DP120060 09B2 E400 05B3 2013 | AND L AE901 MASK OUT ZONE PUNCHES AND DP120070 09B4 D400 05B1 2014 | STO L AE900+4 *STORE TO CONVERSION AREA DP120080 09B6 C400 049D 2015 | MO100 LD L AA904+67 FETCH COLUMN 68 DP120090 09B8 E400 05B3 2016 | AND L AE901 MASK OUT ZONE PUNCHES AND DP120100 09BA D400 05B2 2017 | STO L AE900+5 *STORE TO CONVERSION AREA DP120110 09BC 1810 2018 | SRA 16 CLEAR DP120120 09BD D400 05B0 2019 | STO L AE900+3 *REMAINING POSITION DP120130 2020 | * DP120140 09BF 4400 0889 2021 | BSI L DCBIN BRANCH TO CONVERT TO BINARY DP120150 09C1 05AD 2022 | DC AE900 ADDRESS OF INPUT AREA DP120160 2023 | * DP120170 09C2 1000 2024 | MO200 NOP MAY BE AN 'MDX M0300' DP120180 09C3 1008 2025 | SLA 8 SHIFT VERSION TO LEFT HALF DP120190 09C4 D400 01FA 2026 | STO L VERSN *AND SAVE DP120200 09C6 930E 2027 | S 3 AZ915-E TEST FOR AND DP120210 09C7 4428 0A44 2028 | BSI L ER015,+Z *BR IF VERSION INVALID DP120220 09C9 7404 09B1 2029 | MDX L MODNO+5,4 POINT TO COLUMN 71 2-10 DP120230 09CB 7404 09B7 2030 | MDX L MO100+1,4 POINT TO COLUMN 72 DP120240 09CD C337 2031 | LD 3 AZ962-E SET INSTRUCTION DP120250 09CE D0F3 2032 | STO MO200 *TO STORE MOD NUMBER DP120260 09CF 70DD 2033 | MDX MODNO+1 BRANCH TO FETCH MOD NUMBER DP120270 2034 | * DP120280 09D0 EC00 01FA 2035 | MO300 OR L VERSN 'OR' IN VERSION NUMBER DP120290 09D2 D400 01FA 2036 | STO L VERSN STORE VERSION-MOD NUMBER DP120300 09D4 6802 2037 | STX MO900 INDICATE VERSION-MOD DONE DP120310 09D5 4C80 09AC 2038 | BSC I MODNO RETURN DP120320 2039 | * DP120330 2040 | * CONSTANTS AND WORK AREAS DP120340 2041 | * DP120350 09D7 0000 2042 | MO900 DC *-* INDICATES VERSION NO. SET DP120360 2043 | * DP120370 2044 | *************************************************** DP120380 2045 | * DP120390 2046 | * PACK AN 80 WD CARD IMAGE BUFFER TO 60 BINARY WDS DP120400 2047 | * DP120410 09D8 0000 2048 | PACK0 DC 0 ENTRY/RETURN ADDRESS DP120420 09D9 6F00 09F2 2049 | STX L3 PK200+1 SAVE XR3 DP120430 09DB 6500 045A 2050 | LDX L1 AA904 XR1 PTS TO 1ST UNPACKED WD DP120440 09DD 6600 0458 2051 | LDX L2 AA902 XR2 PTS TO 1ST PACKED WD DP120450 09DF 6314 2052 | LDX 3 20 XR3 = NUMBER OF LOOPS DP120460 09E0 10A0 2053 | PK100 SLT 32 CLEAR ACC AND EXT DP120470 09E1 C101 2054 | LD 1 1 2220 0000 DP120480 09E2 18CC 2055 | RTE 12 0002 2200 DP120490 09E3 8100 2056 | A 1 0 1112 2200 DP120500 09E4 D200 2057 | STO 2 0 STORE WORD 1 DP120510 09E5 18C8 2058 | RTE 8 0011 1222 DP120520 09E6 C102 2059 | LD 1 2 3330 1222 DP120530 09E7 18C8 2060 | RTE 8 2233 3012 DP120540 09E8 D201 2061 | STO 2 1 STORE WORD 2 DP120550 09E9 18CC 2062 | RTE 12 0122 2333 DP120560 09EA C103 2063 | LD 1 3 4440 2333 DP120570 09EB 18C4 2064 | RTE 4 3444 0233 DP120580 09EC D202 2065 | STO 2 2 STORE WORD 3 DP120590 09ED 7104 2066 | MDX 1 4 INCR UNPACKED ADDRESS DP120600 09EE 7203 2067 | MDX 2 3 INCR PACKED ADDRESS DP120610 09EF 73FF 2068 | MDX 3 -1 DECR LOOP CNT, SKIP IF ZERO DP120620 09F0 70EF 2069 | MDX PK100 BRANCH TO PACK NEXT 4 WORDS DP120630 09F1 6700 0000 2070 | PK200 LDX L3 *-* RESET XR3 DP120640 09F3 4C80 09D8 2071 | BSC I PACK0 DP120650 2072 | * DP120660 2073 | *************************************************** DP120670 2074 | * DP120680 2075 | * DETERMINE RELATIVE ADDRESS FROM ADDRESS DP120690 2076 | * OF FIRST WORD IN A SECTOR DP120700 2077 | * DP120710 09F5 0000 2078 | RELAD DC 0 ENTRY/RETURN ADDRESS DP120720 09F6 9301 2079 | RE100 S 3 AZ901-E SUBTRACT ONE FROM ADDRESS DP120730 09F7 7401 0B46 2080 | MDX L AZ934,1 INCR CORRELATION FACTOR DP120740 09F9 4C20 09F6 2081 | BSC L RE100,Z BR IF ADDR NOT REDUCED TO Z DP120750 09FB C320 2082 | LD 3 AZ934-E FETCH AND SAVE DP120760 09FC D32A 2083 | STO 3 AZ945-E *NEW CORRELATION FACTOR DP120770 09FD C317 2084 | LD 3 AZ924-E STORE SKIP INSTRUCTION DP120780 09FE D400 0704 2085 | STO L AJ040 *IN TYPE 'A' PROC SUBR DP120790 0A00 C101 2086 | LD 1 1 FETCH ORIGINAL ADDRESS DP120800 0A01 8400 0B28 2087 | A L AZ902 ADD TWO DP120810 0A03 4C80 09F5 2088 | BSC I RELAD RETURN DP120820 2089 | * DP120830 2090 | *************************************************** DP120840 2091 | * DP120850 2092 | * SAVE INDEX REGISTERS DP120860 2093 | * DP120870 0A05 0000 2094 | SAVXR DC 0 ENTRY/RETURN ADDRESS DP120880 0A06 6906 2095 | STX 1 RS100+1 SAVE XR1 DP120890 0A07 6A07 2096 | STX 2 RS200+1 SAVE XR2 DP120900 0A08 6B08 2097 | STX 3 RS300+1 SAVE XR3 DP120910 0A09 4C80 0A05 2098 | BSC I SAVXR RETURN DP120920 2099 | * DP120930 2100 | * RESTORE INDEX REGISTERS DP120940 2101 | * DP120950 0A0B 0000 2102 | RSTXR DC 0 ENTRY/RETURN ADDRESS DP120960 0A0C 6500 0000 2103 | RS100 LDX L1 *-* RESTORE XR1 DP120970 0A0E 6600 0000 2104 | RS200 LDX L2 *-* RESTORE XR2 DP120980 0A10 6700 0000 2105 | RS300 LDX L3 *-* RESTORE XR3 DP120990 0A12 4C80 0A0B 2106 | BSC I RSTXR RETURN DP121000 2107 | * DP121010 2108 | *************************************************** DP121020 2109 | * DP121030 2110 | * WRITE THE RESIDENT IMAGE AND DP121040 2111 | * THE SYSTEM LOADER PHASE 2 TO THE DISK DP121050 2112 | * DP121060 0A14 0000 2113 | WRITE DC 0 ENTRY/RETURN ADDRESS DP121070 0A15 C400 0BCB 2114 | LD L BUFFR+1 RETURN IF DP121080 0A17 4C98 0A14 2115 | BSC I WRITE,+- *SECTOR ADDRESS = @IDAD DP121090 0A19 C325 2116 | LD 3 AZ940-E TEST FOR AND DP121100 0A1A 4C28 0A26 2117 | BSC L WR100,+Z *BRANCH IF AN INITIAL LOAD DP121110 0A1C C400 0BCB 2118 | LD L BUFFR+1 FETCH SECTOR ADDRESS DP121120 0A1E 9310 2119 | S 3 AZ917-E TEST FOR AND BRANCH DP121130 0A1F 4C20 0A26 2120 | BSC L WR100,Z *IF NOT OVERLAY 0/1 SECTOR DP121140 0A21 C400 0BCC 2121 | LD L BUFFR+2 FETCH OVERLAY IDENTIFIER DP121150 0A23 9301 2122 | S 3 AZ901-E TEST FOR AND RETURN DP121160 0A24 4C98 0A14 2123 | BSC I WRITE,+- *IF OVERLAY 1 DP121170 2124 | * DP121180 2125 | * WRITE TO DISK FROM BUFFR DP121190 2126 | * DP121200 0A26 1000 2127 | WR100 NOP A WAIT MAY BE PATCHED HERE DP121210 0A27 C808 2128 | LDD WR900 FETCH FUNC CODE/I/O ADDRESS DP121220 0A28 4400 00F2 2129 | BSI L DZ000 BRANCH TO DISK SUBROUTINE DP121230 0A2A 7400 00EE 2130 | MDX L $DBSY,0 SKIP NEXT IF OP COMPLETE DP121240 0A2C 70FD 2131 | MDX *-3 BRANCH TO TEST OP COMPLETE DP121250 0A2D 4C80 0A14 2132 | BSC I WRITE RETURN DP121260 2133 | * DP121270 2134 | * CONSTANTS AND WORK AREAS DP121280 2135 | * DP121290 0A30 2136 | BSS E 0 FORCE NEXT LOC TO BE EVEN DP121300 0A30 0001 2137 | WR900 DC /0001 WRITE FUNCTION CODE DP121310 0A31 0BCA 2138 | DC BUFFR ADDRESS OF I/O BUFFER DP121320 PRINT ERROR MESSAGES 2140 | * DP121340 2141 | * PRINT ERROR MESSAGE AND BRANCH TO READ DP121350 2142 | * THE NEXT RECORD DP121360 2143 | * DP121370 0A32 0000 2144 | ER002 DC 0 ENTRY/RETURN ADDRESS DP121380 0A33 6500 0258 2145 | LDX L1 MSG02+1 POINT TO ERROR MESSAGE E 02 DP121390 0A35 6680 0257 2146 | LDX I2 MSG02 FETCH WORD CNT OF MSG E 02 DP121400 0A37 7017 2147 | MDX ER100 BRANCH TO PRINT THE MESSAGE DP121410 2148 | * DP121420 0A38 0000 2149 | ER003 DC 0 ENTRY/RETURN ADDRESS DP121430 0A39 6500 0268 2150 | LDX L1 MSG03+1 POINT TO ERROR MESSAGE E 03 DP121440 0A3B 6680 0267 2151 | LDX I2 MSG03 FETCH WORD CNT OF MSG E 03 DP121450 0A3D 7011 2152 | MDX ER100 BRANCH TO PRINT THE MESSAGE DP121460 2153 | * DP121470 0A3E 0000 2154 | ER004 DC 0 ENTRY/RETURN ADDRESS DP121480 0A3F 6500 027B 2155 | LDX L1 MSG04+1 POINT TO ERROR MESSAGE E 04 DP121490 0A41 6680 027A 2156 | LDX I2 MSG04 FETCH WORD CNT OF MSG E 04 DP121500 0A43 700B 2157 | MDX ER100 BRANCH TO PRINT THE MESSAGE DP121510 2158 | * DP121520 0A44 0000 2159 | ER015 DC 0 ENTRY/RETURN ADDRESS DP121530 0A45 6500 0AA3 2160 | LDX L1 MSG15+1 POINT TO ERROR MESSAGE E 15 DP121540 0A47 6680 0AA2 2161 | LDX I2 MSG15 FETCH WORD CNT OF MSG E 15 DP121550 0A49 7005 2162 | MDX ER100 BRANCH TO PRINT THE MESSAGE DP121560 2163 | * DP121570 0A4A 0000 2164 | ER017 DC 0 ENTRY/RETURN ADDRESS DP121580 0A4B 6500 0AC2 2165 | LDX L1 MSG17+1 POINT TO ERROR MESSAGE E 17 DP121590 0A4D 6680 0AC1 2166 | LDX I2 MSG17 FETCH WORD CNT OF MSG E 17 DP121600 0A4F 4400 0B1C 2167 | ER100 BSI L CNPTR PRINT THE MESSAGE DP121610 0A51 1000 2168 | NOP A WAIT MAY BE PATCHED HERE DP121620 0A52 4C00 0446 2169 | BSC L AA040 BRANCH TO READ NEXT RECORD DP121630 2170 | * DP121640 0A54 0000 2171 | ER018 DC 0 ENTRY/RETURN ADDRESS DP121650 0A55 6500 0AD3 2172 | LDX L1 MSG18+1 POINT TO ERROR MESSAGE E 18 DP121660 0A57 6680 0AD2 2173 | LDX I2 MSG18 FETCH WORD CNT OF MSG E 18 DP121670 0A59 4400 0B1C 2174 | BSI L CNPTR PRINT THE MESSAGE DP121680 0A5B 4C80 0A54 2175 | BSC I ER018 RETURN DP121690 2176 | * DP121700 0A5D 0000 2177 | ER019 DC 0 ENTRY/RETURN ADDRESS DP121710 0A5E 6500 0AE0 2178 | LDX L1 MSG19+1 POINT TO ERROR MESSAGE E 19 DP121720 0A60 6680 0ADF 2179 | LDX I2 MSG19 FETCH WORD CNT OF MSG E 19 DP121730 0A62 4400 0B1C 2180 | BSI L CNPTR PRINT THE MESSAGE DP121740 0A64 4C80 0A5D 2181 | BSC I ER019 RETURN DP121750 2182 | * DP121760 2183 | * ERROR MESSAGES FROM SYSTEM LOADER PHASE 1 ONLY DP121770 2184 | * DP121780 0A66 000C 2185 | MSG11 DC MSG12-* WORD COUNT OF MESSAGE E 11 DP121790 0A67 8134 21FC FC21 2074 2186 | DMES 'RE 11 INVALID DRIVE NO.'R'E DP121800 B43C 5C20 3021 3060 | 20B4 3421 7450 0081 | 0A73 000F 2187 | MSG12 DC MSG13-* WORD COUNT OF MESSAGE E 12 DP121810 0A74 8134 21FC D821 2030 2188 | DMES 'RE 12 ID SECTOR DATA INVALID'R'E DP121820 2198 341C 9C50 6021 | 303C 9C3C 2120 74B4 | 3C5C 2030 8121 | 0A83 000C 2189 | MSG13 DC MSG14-* WORD COUNT OF MESSAGE E 13 DP121830 0A84 8134 21FC DC21 1C50 2190 | DMES 'RE 13 CONFIG DECK ERROR'R'E DP121840 7410 2014 2130 341C | 5821 3460 6050 6081 | 0A90 0011 2191 | MSG14 DC MSG15-* WORD COUNT OF MESSAGE E 14 DP121850 0A91 8134 21FC F021 1020 2192 | DMES 'RE 14 FILE PROTECT ADDR TOO HIGH'R'E DP121860 5C34 2154 6050 9C34 | 1C9C 213C 3030 6021 | 9C50 5021 2420 1424 | 8121 | 0AA2 000C 2193 | MSG15 DC MSG16-* WORD COUNT OF MESSAGE E 15 DP121870 0AA3 8134 21FC F421 5424 2194 | DMES 'RE 15 PHID RECORD ERROR'R'E DP121880 2030 2160 341C 5060 | 3021 3460 6050 6081 | 0AAF 0011 2195 | MSG16 DC MSG17-* WORD COUNT OF MESSAGE E 16 DP121890 0AB0 8134 21FC D021 2074 2196 | DMES 'RE 16 INITIAL LOAD THE CARTRIDGE'R'E DP121900 209C 203C 5C21 5C50 | 3C30 219C 2434 211C | 3C60 9C60 2030 1434 | 8121 | 0AC1 0010 2197 | MSG17 DC MSG18-* WORD COUNT OF MESSAGE E 17 DP121910 0AC2 8134 21FC D421 3460 2198 | DMES 'RE 17 ERROR IN LOAD MODE RECORD'R'E DP121920 6050 6021 2074 215C | 503C 3021 7050 3034 | 2160 341C 5060 3081 | 0AD2 000C 2199 | MSG18 DC MSG19-* WORD COUNT OF MESSAGE E 18 DP121930 0AD3 8134 21FC E421 543C 2200 | DMES 'RE 18 PAPER TAPE ERROR'R'E DP121940 5434 6021 9C3C 5434 | 2134 6060 5060 8121 | 0ADF 0015 2201 | MSG19 DC MSG20-* WORD COUNT OF MESSAGE E 19 DP121950 0AE0 8134 21FC E021 2074 2202 | DMES 'RE 19 INVALID SLET/RELOAD TABLE ' DP121960 B43C 5C20 3021 985C | 349C BC60 345C 503C | 3021 9C3C 185C 3421 | 0AF0 1C24 341C 5898 B070 2203 | DMES CHECKSUM'R'E DP121970 8121 | 0AF5 0000 2204 | MSG20 DC 0 E 20 USED BY SYS LDR PH 2 DP121980 2205 | * DP121990 2206 | * PRINT ERROR MESSAGES WITH NO RECOVERY DP122000 2207 | * DP122010 0AF6 0000 2208 | ER005 DC 0 ENTRY/RETURN ADDRESS DP122020 0AF7 6500 0286 2209 | LDX L1 MSG05+1 POINT TO ERROR MESSAGE E 05 DP122030 0AF9 6680 0285 2210 | LDX I2 MSG05 FETCH WORD CNT OF MSG E 05 DP122040 0AFB 7017 2211 | MDX ER200 BRANCH TO PRINT THE MESSAGE DP122050 2212 | * DP122060 0AFC 0000 2213 | ER012 DC 0 ENTRY/RETURN ADDRESS DP122070 0AFD 6500 0A74 2214 | LDX L1 MSG12+1 POINT TO ERROR MESSAGE E 12 DP122080 0AFF 6680 0A73 2215 | LDX I2 MSG12 FETCH WORD CNT OF MSG E 12 DP122090 0B01 7011 2216 | MDX ER200 BRANCH TO PRINT THE MESSAGE DP122100 2217 | * DP122110 0B02 0000 2218 | ER013 DC 0 ENTRY/RETURN ADDRESS DP122120 0B03 6500 0A84 2219 | LDX L1 MSG13+1 POINT TO ERROR MESSAGE E 13 DP122130 0B05 6680 0A83 2220 | LDX I2 MSG13 FETCH WORD CNT OF MSG E 13 DP122140 0B07 700B 2221 | MDX ER200 BRANCH TO PRINT THE MESSAGE DP122150 2222 | * DP122160 0B08 0000 2223 | ER014 DC 0 ENTRY/RETURN ADDRESS DP122170 0B09 6500 0A91 2224 | LDX L1 MSG14+1 POINT TO ERROR MESSAGE E 14 DP122180 0B0B 6680 0A90 2225 | LDX I2 MSG14 FETCH WORD CNT OF MSG E 14 DP122190 0B0D 7005 2226 | MDX ER200 BRANCH TO PRINT THE MESSAGE DP122200 2227 | * DP122210 0B0E 0000 2228 | ER016 DC 0 ENTRY/RETURN ADDRESS DP122220 0B0F 6500 0AB0 2229 | LDX L1 MSG16+1 POINT TO ERROR MESSAGE E 16 DP122230 0B11 6680 0AAF 2230 | LDX I2 MSG16 FETCH WORD CNT OF MSG E 16 DP122240 0B13 6904 2231 | ER200 STX 1 ER310+1 SAVE XR1 DP122250 0B14 6A05 2232 | STX 2 ER320+1 SAVE XR2 DP122260 0B15 4006 2233 | ER300 BSI CNPTR PRINT THE MESSAGE DP122270 0B16 1000 2234 | NOP A WAIT MAY BE PATCHED HERE DP122280 0B17 6500 0000 2235 | ER310 LDX L1 *-* RESTORE XR1 DP122290 0B19 6600 0000 2236 | ER320 LDX L2 *-* RESTORE XR2 DP122300 0B1B 70F9 2237 | MDX ER300 NO RECOVERY, PRINT AGAIN DP122310 2238 | * DP122320 2239 | * BRANCH TO CONSOLE PRINTER SUBROUTINE DP122330 2240 | * DP122340 0B1C 0000 2241 | CNPTR DC 0 ENTRY/RETURN ADDRESS DP122350 0B1D 4400 029D 2242 | BSI L WRTYZ BR TO CONSOLE PRINTER SUBR DP122360 0B1F C0FC 2243 | LD CNPTR FETCH RETURN ADDRESS DP122370 0B20 1890 2244 | SRT 16 *AND SHIFT TO EXTENSION DP122380 0B21 C30C 2245 | LD 3 AZ913-E FETCH DISPLAY CODE AND DP122390 0B22 4400 0028 2246 | BSI L $PRET *BRANCH TO PRE-OP TRAP DP122400 0B24 4C80 0B1C 2247 | BSC I CNPTR RETURN DP122410 PHASE 1 CONSTANTS AND WORK AREAS 0B26 0000 2249 | E DC 0 FOR EMERGENCY USE ONLY DP122430 0B27 0001 2250 | AZ901 DC 1 CONSTANT ONE DP122440 0B28 0002 2251 | AZ902 DC 2 CONSTANT TWO DP122450 0B29 0003 2252 | AZ903 DC 3 CONSTANT THREE DP122460 0B2A 0004 2253 | AZ904 DC 4 CONSTANT FOUR DP122470 0B2B 0005 2254 | AZ905 DC 5 CONSTANT FIVE DP122480 0B2C 000A 2255 | AZ910 DC 10 CONSTANT OF TEN 2-11 DP122490 0B2D 0007 2256 | AZ907 DC 7 CONSTANT SEVEN DP122500 0B2E 000F 2257 | AZ908 DC 15 MAX SYS DEVICE ISS NUMBER DP122510 0B2F 0014 2258 | AZ909 DC 20 MAXIMUM ISS NUMBER DP122520 0B30 0059 2259 | AZ911 DC 89 NO. OF SCTR IN 32K-4K DP122530 0B31 0140 2260 | AZ912 DC @SCNT NO. OF WORDS PER SECTOR DP122540 0B32 FFFE 2261 | AZ913 DC -2 DISPLAY CODE DP122550 0B33 00FF 2262 | AZ914 DC /00FF MASK OUT LEFT HALF OF WORD DP122560 0B34 0200 2263 | AZ915 DC /0200 MASK TO TEST VALID VER/MOD DP122570 0B35 0630 2264 | AZ916 DC @P2AD SECTOR ADDRESS OF PHASE 2 DP122580 0B36 0635 2265 | AZ917 DC @P2AD+5 SECTOR ADDRESS OF OVERLAY DP122590 0B37 0658 2266 | AZ918 DC /658 MAXIMUM DISK ADDRESS DP122600 0B38 0810 2267 | AZ919 DC /0810 BINARY 'A' DP122610 0B39 0AA0 2268 | AZ920 DC /0AA0 MASK DP122620 0B3A 1000 2269 | AZ921 NOP 'NOP' INSTRUCTION DP122630 0B3B 4400 7002 2270 | AZ922 BSI L /7002 'BSI L' INSTRUCTION DP122640 0B3C 2271 | AZ923 EQU *-1 READ FUNCTION CODE DP122650 0B3D 7001 2272 | AZ924 MDX *+1 SKIP INSTRUCTION DP122660 0B3E 7002 2273 | AZ925 MDX *+2 SKIP INSTRUCTION DP122670 0B3F 8000 2274 | AZ926 DC /8000 MINUS SIGN MASK DP122680 0B40 8410 2275 | AZ927 DC /8410 USE TO CK FOR 'SCON' RECORD DP122690 0B41 9400 C000 2276 | AZ928 S L /C000 'S L' INSTRUCTION DP122700 0B42 2277 | AZ929 EQU *-1 PHASE ID PROCESSING INDR DP122710 0B43 FFFF 2278 | AZ931 DC /FFFF MASK TO COMPLEMENT DP122720 0B44 0000 2279 | AZ932 DC *-* BASE SECTOR ADDRESS DP122730 0B45 0000 2280 | AZ933 DC *-* NEXT RCRD EXPECTED INDR DP122740 0B46 0000 2281 | AZ934 DC 0 CORRELATION FACTOR DP122750 0B47 0000 2282 | AZ935 DC *-* SCTR ADDR OF CURRENT PHASE DP122760 0B48 0000 2283 | AZ937 DC *-* CORE ADDRESS OF DATA WORD DP122770 0B49 0000 2284 | AZ938 DC *-* 'FETCH' INHIBIT INDICATOR DP122780 0B4A 0000 2285 | AZ939 DC *-* 'REQ' RECORD COUNT DP122790 0B4B 0000 2286 | AZ940 DC *-* LOAD MODE INDICATOR DP122800 0B4C 0000 2287 | AZ941 DC *-* PREVIOUS SECTOR ADDRESS DP122810 0B4D 0000 2288 | AZ942 DC *-* RESIDENT IMAGE INDICATOR DP122820 0B4E 0000 2289 | AZ943 DC *-* SCTR ADDR OF SCTR IN CORE DP122830 0B4F 0000 2290 | AZ944 DC *-* ABS/REL PROGRAM INDICATOR DP122840 0B50 0000 2291 | AZ945 DC *-* CORE ADDRESS CORRELATION DP122850 0B51 0000 2292 | AZ948 DC 0 SECTOR BREAK INDICATOR DP122860 0B52 0001 2293 | AZ949 DC 1 NEXT RECORD TYPE INDICATOR DP122870 0B53 0001 2294 | AZ950 DC 1 'F' RECORD INDICATOR DP122880 0B54 0001 2295 | AZ952 DC 1 PACKED/UNPACKED BFR INDR DP122890 0B55 0BCA 2296 | AZ954 DC BUFFR ADDRESS OF DISK I/O BUFFER DP122900 0B56 0459 2297 | AZ955 DC AA903 ADDRESS OF RECORD BUFFER DP122910 0B57 09F5 2298 | AZ956 DC RELAD ADDRESS OF RLTV ADDR SUBR DP122920 0B58 0001 2299 | AZ957 DC @DCOM SECTOR ADDRESS OF DCOM DP122930 0B59 0222 2300 | AZ958 DC PAIR1 ADDR OF FIRST PHASE ID PAIR DP122940 0B5A 0000 2301 | AZ959 DC @IDAD ID SECTOR ADDRESS DP122950 0B5B 0002 2302 | AZ960 DC @RIAD RES IMAGE SECTOR ADDRESS DP122960 0B5C 700B 2303 | AZ961 MDX X CK400-CK300-1 SKIP INSTRUCTION DP122970 0B5D 700D 2304 | AZ962 MDX X MO300-MO200-1 SKIP INSTRUCTION DP122980 2305 | * DP122990 0B5E 2306 | BSS E 0 FORCE NEXT LOC TO BE EVEN DP123000 0B5E 0000 2307 | AZ964 DC *-* USED TO CALCULATE RELATIVE DP123010 0B5F 0000 2308 | DC *-* *DATA WORD LOC IN SCTR BFR DP123020 2309 | * DP123030 2310 | * RESTORED COMMA WORDS ON RELOAD FUNCTION DP123040 2311 | * DP123050 0B60 0000 2312 | AZ966 DC *-* $DREQ DP123060 0B61 0000 2313 | AZ967 DC *-* $ULET DP123070 0B62 0000 2314 | AZ968 DC *-* $DZIN DP123080 0B63 0000 2315 | AZ969 DC *-* $FPAD DP123090 0B64 0000 2316 | AZ970 DC *-* $DCYL DP123100 2317 | * DP123110 2318 | * DP123120 0B65 2319 | BSS 100 PATCH AREA DP123130 2320 | * DP123140 2321 | * DP123150 BUFFER AREAS 2323 | * DP123170 0BCA 2324 | BSS E 0 START WD CNT ON EVEN LOC DP123180 0BCA 0140 2325 | BUFFR DC @SCNT WORD COUNT DP123190 0BCB 0000 2326 | DC *-* SECTOR ADDRESS DP123200 2327 | * DP123210 2328 | * TEMPORARY LOWER CORE TO BE DP123220 2329 | * OVER-LAYED BY RESIDENT IMAGE DP123230 2330 | * DP123240 0BCC 00C4 2331 | DC $I400 0C DP123250 0BCD 0091 2332 | DC $STOP DP123260 0BCE 2333 | BSS 5 DP123270 0BD3 0000 2334 | DC *-* 13 DP123280 0BD4 2335 | BSS 20 DP123290 0BE8 0000 2336 | DC *-* 28 DP123300 0BE9 3000 2337 | WAIT DP123310 0BEA 4C80 0028 2338 | BSC I $PRET DP123320 0BEC 002D 2339 | DC $IREQ+1 DP123330 0BED 0000 2340 | DC *-* DP123340 0BEE 3000 2341 | WAIT DP123350 0BEF 70FE 2342 | MDX *-2 DP123360 0BF0 4CC0 002D 2343 | BOSC I $IREQ+1 DP123370 0BF2 0000 2344 | DC *-* 32 DP123380 0BF3 2345 | BSS 90 DP123390 0C4D 0000 2346 | DC *-* 8D DP123400 0C4E 3000 2347 | WAIT DP123410 0C4F 4C80 008D 2348 | BSC I $PST4 DP123420 0C51 0000 2349 | DC *-* DP123430 0C52 3000 2350 | WAIT DP123440 0C53 4CC0 0091 2351 | BOSC I $STOP DP123450 0C55 2352 | BSS 47 DP123460 0C84 0000 2353 | DC *-* C4 DP123470 0C85 D818 2354 | STD $I490 DP123480 0C86 280E 2355 | STS $I410 DP123490 0C87 690F 2356 | STX 1 $I410+2 DP123500 0C88 6A10 2357 | STX 2 $I410+4 DP123510 0C89 0816 2358 | XIO $I492 DP123520 0C8A 1002 2359 | SLA 2 DP123530 0C8B 4C10 00D0 2360 | BSC L $I403,- DP123540 0C8D 4480 002C 2361 | BSI I $IREQ DP123550 0C8F FFFE 2362 | DC -2 DP123560 0C90 6109 2363 | LDX 1 9 DP123570 0C91 0810 2364 | XIO $I494 DP123580 0C92 1140 2365 | SLCA 1 9 DP123590 0C93 4580 0000 2366 | $I405 BSI I1 *-* DP123600 0C95 2000 2367 | $I410 LDS 0 DP123610 0C96 6500 0000 2368 | LDX L1 *-* DP123620 0C98 6600 0000 2369 | LDX L2 *-* DP123630 0C9A C803 2370 | LDD $I490 DP123640 0C9B 4CC0 00C4 2371 | BOSC I $I400 DP123650 0C9E 2372 | $I490 BSS E 2 DP123660 0CA0 2373 | $I492 BSS 1 DP123670 0CA1 0F00 2374 | DC /0F00 DP123680 0CA2 2375 | $I494 BSS 1 DP123690 0CA3 0300 2376 | DC /0300 E3 DP123700 0E0F 2377 | CONFG EQU BUFFR+2*@SCNT-@PRWC+1 DP123710 0CA4 2378 | BSS @PRWC DP123720 0E4C 2379 | ORG BUFFR+2+2*@SCNT DP123730 0E4C 2380 | BUFR1 BSS E 1 WORD COUNT DP123740 0E4D 2381 | BSS 1 SECTOR ADDRESS DP123750 0E4E 2382 | BSS @SCNT BUFFER FOR CHECKSUM CALC DP123760 0F8E 2383 | BSS @MNCR-* PATCH AREA DP123770 1000 2384 | END AA000 DP123780 There were no errors in this assembly Program transfer address = 0414 === CROSS REFERENCES ========================================================== Name Val Defd Referenced #CIBA 003C 134 1658 #CIDN 0037 133 1651 1912 #CSHN 005A 138 1674 #FLET 004B 136 1670 #FPAD 002D 132 1663 1918 #SCRA 0041 135 1668 #SYSC 0008 131 #ULET 0050 137 1664 1666 $1132 007F 126 1258 $1403 0080 127 1256 $ACDE 009F 69 1493 $CH12 0006 70 $CIBA 0005 76 $CILA 005A 71 $COMN 0007 72 $CORE 000E 73 $CPTR 007E 74 1260 $CTSW 000F 75 484 670 $CYLN 009A 77 1498 $DADR 0010 79 $DBSY 00EE 78 220 1546 1557 1583 1977 1995 2130 $DCDE 0077 80 $DCYL 00A4 81 1313 1495 1496 1497 1529 1636 $DREQ 0012 82 1305 1521 $DUMP 003F 83 $DZIN 0076 84 1309 1525 $EXIT 0038 85 $FLSH 0071 86 $FPAD 0095 87 1311 1527 $HASH 0014 88 $I200 00B3 94 $I205 00B8 95 1476 $I400 00C4 96 2331 2371 $I403 00D0 97 329 2360 $I405 0C93 2366 $I410 0C95 2367 2355 2356 2357 $I490 0C9E 2372 2354 2370 $I492 0CA0 2373 2358 $I494 0CA2 2375 813 2364 $IBSY 0013 89 469 550 563 650 728 760 815 861 $IBT2 00B9 90 $IBT4 00D4 91 819 1480 $IOCT 0032 92 $IREQ 002C 93 832 1478 2339 2343 2361 $KCSW 007C 98 $LAST 0033 99 486 537 541 694 743 747 $LEV0 0008 100 834 1482 $LEV1 0009 101 $LEV2 000A 102 $LEV3 000B 103 $LEV4 000C 104 $LEV5 000D 105 $LINK 0039 106 $NDUP 0034 107 $NXEQ 0035 108 $PBSY 0036 109 $PGCT 0037 110 $PHSE 0078 111 $PRET 0028 112 425 451 587 611 707 719 879 2246 2338 $PST1 0081 113 $PST2 0085 114 $PST3 0089 115 $PST4 008D 116 518 2348 $SNLT 00EF 117 $STOP 0091 118 2332 2351 $SYSC 00E0 119 $UFDR 007D 120 $UFIO 0079 121 $ULET 002D 122 1307 1523 $WRD1 007B 124 $WSDR 007A 123 $ZEND 01E0 125 213 1470 1471 1472 'CCOL 0050 160 871 874 875 'CIDN 0003 157 1622 'COLD 0030 150 'CSTR 00D0 151 1539 1583 'D100 1000 200 606 794 'D200 2000 208 403 'DCOM 0001 143 1887 2299 'HDNG 0007 147 'I000 3A00 209 1582 'I102 1100 201 605 785 'I103 1200 202 603 'I104 1401 203 604 'I105 1402 204 601 793 'I106 1404 205 602 'I108 1701 206 595 787 'I109 1702 207 597 795 'I206 0F01 199 404 'I208 0900 198 406 'I402 4E00 210 788 'I404 4F01 211 789 'I510 2000 187 1585 'I511 8800 188 1586 'I512 9000 189 1587 'I513 9800 190 1588 'I514 A000 191 1589 'I515 B000 192 1590 'I516 B800 193 1591 'I517 B810 194 1592 'I518 B820 195 1593 'I519 B830 196 1594 'I520 B840 197 1595 'IDAD 0000 142 1584 2301 'MNCR 1000 162 227 1600 2383 'MSCT 0658 149 1597 'MXDR 0005 156 'NDCY 0003 155 'P2AD 0630 148 228 2264 2265 'PRWC 003C 159 2377 2378 'RIAD 0002 144 2302 'RLTB 0006 146 'SADR 0001 154 'SCNT 0140 161 1862 1877 1886 1888 1895 1923 2260 2325 2377 2379 2382 'SLET 0003 145 1682 1889 1896 'STAT 0007 158 1608 'WDCT 0000 153 AA000 0414 812 2384 AA010 0417 814 817 AA020 0424 822 824 AA030 0440 847 850 AA040 0446 854 841 934 986 1105 1135 1244 1315 1367 1431 1677 1689 1729 1836 2169 AA050 044D 861 862 AA060 04AB 880 818 1479 AA070 04B4 891 867 AA080 04BE 898 892 AA900 0456 871 854 AA902 0458 873 866 919 929 1817 1822 2051 AA903 0459 874 855 2297 AA904 045A 875 941 948 951 954 977 1067 1070 1073 1082 1085 1123 1129 2012 2015 2050 AB000 04D5 918 894 AC000 04DE 928 895 AD000 04E8 940 896 AD010 04EE 948 965 969 972 978 AD020 04F4 951 966 980 AD030 04FA 954 967 982 AD040 0503 961 964 975 AD050 0517 974 963 AD060 0529 990 976 AD070 0530 995 1007 AD080 0541 1008 1000 1004 AD100 054C 1027 1012 AD105 054E 1029 1039 AD110 055C 1038 1032 AD120 0562 1042 1027 AD122 0564 1047 1050 1051 AD124 056A 1050 1055 AD128 056D 1053 1049 AD900 0547 1016 962 971 985 AD901 0548 1017 968 983 AD902 0549 1018 999 AD903 054A 1019 997 1001 1005 AD904 054B 1020 942 AD910 0571 1059 1033 1036 AD920 0576 1064 1034 1037 1041 AE000 0577 1066 899 AE010 058C 1082 1080 1094 1097 1100 AE020 0590 1085 1095 1101 AE040 0597 1092 1093 AE900 05AD 1109 950 953 956 959 1084 1087 1090 2014 2017 2019 2022 AE901 05B3 1115 949 952 955 1083 1086 2013 2016 AE902 05B4 1116 1071 AE903 05B5 1117 1074 AE904 05B6 1118 1068 AE905 05B7 1119 1079 AE906 05B8 1120 1096 1099 AF000 05B9 1122 1069 AF010 05BA 1123 1127 AF020 05C4 1129 1125 AF030 05CC 1133 1131 AF900 05D2 1139 1124 AF910 05D6 1143 1130 AF920 05DA 1147 1133 AG000 05DE 1152 1072 AG010 05E0 1153 1190 1193 AG020 05FC 1172 1165 AG030 0600 1175 1160 AG040 0602 1177 1167 1169 AG050 0605 1179 1176 AG054 060C 1185 1184 AG060 0614 1190 1182 AG080 0629 1207 1211 1224 1228 1232 1236 1240 AG090 063E 1221 1214 AG100 0643 1225 1216 AG110 0648 1229 1219 AG120 064D 1233 1201 AG130 0652 1237 1203 AG140 0657 1241 1209 AG900 065C 1249 1223 AG902 065E 1251 1227 AG904 0660 1253 1231 AG906 0662 1255 1235 AG908 0664 1257 1239 AG910 0666 1259 1206 AG912 0668 1261 1199 1212 1217 AG913 0669 1262 1163 1172 AG914 066A 1263 1208 1210 AH000 066B 1265 904 1461 AH010 0670 1269 1506 AH020 0674 1273 906 AH030 0678 1276 908 AH040 067A 1278 1275 AH050 067C 1280 1272 AH060 06A9 1315 1298 1300 AI000 06AB 1320 923 AI010 06B4 1327 1323 AI015 06C3 1343 1339 AI020 06C5 1344 1342 AI030 06D0 1352 1348 AI040 06D9 1358 1354 AI050 06E2 1364 1360 AI900 06E8 1371 1322 1349 AI901 06E9 1372 1325 AI902 06EA 1373 1330 1343 1351 1357 1363 1364 AI903 06EB 1374 AI904 06EC 1375 1355 AI905 06ED 1376 1361 AI906 06EE 1377 1340 AJ000 06EF 1378 910 AJ010 06F8 1385 1455 AJ020 06FE 1389 1381 1442 1444 1447 1449 AJ030 0701 1391 1388 1446 AJ040 0704 1393 1287 1289 2085 AJ050 070A 1396 1430 AJ060 0719 1408 1460 AJ070 071F 1412 1401 AJ080 072A 1421 1417 AJ090 072E 1425 1415 1423 AJ100 0735 1431 1424 AJ110 0737 1433 1385 AJ120 073B 1438 1386 AJ130 073E 1442 1436 AJ140 0745 1449 1384 AJ150 074C 1454 1452 AJ160 074F 1457 1403 AK000 0756 1466 912 AK010 075D 1471 1474 AK020 0773 1486 1576 AK025 07A8 1533 1518 AK029 07CE 1569 1565 AK030 07CF 1573 1488 1490 AK040 07EA 1604 1569 AK045 07F9 1615 1610 AK050 0800 1622 1613 AK055 0807 1626 1639 AK060 0815 1635 1631 AK065 0825 1649 1655 AK070 0830 1658 1652 AK074 085B 1691 1681 1697 AK076 085F 1694 1696 AK080 0865 1701 1468 AK100 0871 1713 1712 1728 AK110 0874 1716 1713 1715 AK120 087C 1721 1718 AK130 0880 1724 1720 AK900 07D6 1581 1486 AK902 07D8 1583 1541 AK904 07DA 1585 1492 AK905 07E5 1596 1540 1542 1543 1552 1553 AK906 07E6 1597 1494 AK907 07E7 1598 1487 1491 1581 AK908 07E8 1599 1711 AK909 07E9 1600 1721 ASCRA 01FE 246 1669 AZ901 0B27 2250 903 905 909 992 1103 1159 1166 1168 1177 1221 1233 1242 1270 1427 1450 1555 1724 1824 1827 1866 1879 2079 2122 AZ902 0B28 2251 1173 1392 1413 1443 1609 2087 AZ903 0B29 2252 AZ904 0B2A 2253 1615 AZ905 0B2B 2254 911 1164 AZ907 0B2D 2256 907 AZ908 0B2E 2257 1181 AZ909 0B2F 2258 1156 AZ910 0B2C 2255 1489 AZ911 0B30 2259 1719 AZ912 0B31 2260 826 828 1292 1398 1499 1501 1551 AZ913 0B32 2261 2245 AZ914 0B33 2262 902 AZ915 0B34 2263 2027 AZ916 0B35 2264 1920 AZ917 0B36 2265 2119 AZ918 0B37 2266 1627 AZ919 0B38 2267 920 AZ920 0B39 2268 1723 AZ921 0B3A 2269 1445 1505 1840 AZ922 0B3B 2270 1288 AZ923 0B3C 2271 859 AZ924 0B3D 2272 2084 AZ925 0B3E 2273 1387 AZ926 0B3F 2274 1186 1204 1229 AZ927 0B40 2275 930 AZ928 0B41 2276 1278 AZ929 0B42 2277 1035 AZ931 0B43 2278 1838 AZ932 0B44 2279 1276 1435 AZ933 0B45 2280 893 1243 1705 AZ934 0B46 2281 1285 2080 2082 AZ935 0B47 2282 1408 1434 1440 AZ937 0B48 2283 1396 1426 AZ938 0B49 2284 829 1503 1991 AZ939 0B4A 2285 1102 1104 1192 AZ940 0B4B 2286 1029 1366 2116 AZ941 0B4C 2287 1274 1277 1439 AZ942 0B4D 2288 830 1297 1467 1504 AZ943 0B4E 2289 1293 1400 1405 1458 AZ944 0B4F 2290 1271 1279 1383 1416 1419 1454 AZ945 0B50 2291 1394 2083 AZ948 0B51 2292 1291 1402 1459 AZ949 0B52 2293 891 922 933 1011 1241 1704 AZ950 0B53 2294 1266 1269 1469 AZ952 0B54 2295 864 898 932 AZ954 0B55 2296 1414 AZ955 0B56 2297 857 AZ956 0B57 2298 1286 AZ957 0B58 2299 1643 AZ958 0B59 2300 990 AZ959 0B5A 2301 1301 1604 AZ960 0B5B 2302 1533 AZ961 0B5C 2303 1280 AZ962 0B5D 2304 2031 AZ964 0B5E 2307 1399 1404 1407 1411 1457 AZ966 0B60 2312 1306 1520 AZ967 0B61 2313 1308 1522 AZ968 0B62 2314 1310 1524 AZ969 0B63 2315 1312 1526 AZ970 0B64 2316 1314 1528 BUFFR 0BCA 2325 813 814 820 822 1273 1302 1304 1311 1313 1409 1471 1519 1527 1529 1534 1539 1605 1608 1622 1626 1632 1633 1635 1644 1648 1683 1685 1687 1694 1939 1942 1943 2003 2114 2118 2121 2138 2296 2377 2379 BUFR1 0E4C 2380 1855 1860 1864 1877 1907 1909 1923 1984 C1134 0094 174 1254 CAREA 01F7 239 1675 CARID 01FF 247 1624 1649 1911 CD000 02D6 429 552 848 860 CD010 02D9 434 480 483 485 509 513 882 883 CD016 02DC 439 449 833 1481 CD018 02E6 448 441 CD020 02E8 451 435 CD030 02F7 468 487 CD034 02FB 472 471 CD040 030B 486 457 CD050 030D 491 455 CD060 0315 499 464 494 519 CD066 031D 510 507 CD070 0321 517 501 CD080 0324 523 430 CD090 0326 528 527 580 CD100 0334 544 529 531 CD102 0336 546 558 CD110 0339 549 539 CD120 033C 551 523 542 CD130 033E 556 530 CD140 0341 562 535 544 556 575 CD150 0343 563 564 CD160 0346 565 588 CD180 034E 579 567 CD184 0355 586 583 CD188 036C 610 459 461 498 505 585 CD190 035A 593 440 447 CD200 0364 602 545 CD204 0366 604 492 557 CD210 035C 594 442 470 496 499 510 565 574 CD215 035E 596 452 CD220 0368 606 512 517 549 586 CD230 0369 607 491 546 CD240 0362 600 445 508 536 572 581 CD250 0360 598 443 444 446 495 511 573 CD260 0361 599 548 CD280 036A 608 476 CD990 0375 613 CDCNV 0093 173 1250 1252 CHN12 021D 257 CIBFR 01FB 243 1659 CILWC 01F0 232 CK100 08E2 1817 1842 CK200 08EA 1822 1826 CK300 08F3 1829 1281 1841 2303 CK400 08FF 1838 1829 2303 CK500 0905 1853 1872 1922 CK510 090D 1860 1881 CK520 0914 1864 1868 CK530 0920 1877 1871 CK600 0932 1905 1512 1925 1928 CK610 093B 1911 1916 CK620 0946 1918 1913 CK630 0958 1936 1567 1967 CK640 0962 1944 1952 CK650 0969 1950 1945 CK660 096E 1955 1963 CK670 0978 1965 1958 CK900 0904 1846 1284 1819 1821 1834 1839 CK902 0926 1886 1906 CK910 0928 1888 1854 CK912 092A 1890 1857 1863 1869 1880 1926 CK913 092B 1891 1566 1924 CK914 092C 1892 1859 1870 CK915 092D 1893 1951 CK920 092E 1895 1938 CK922 0930 1897 1955 1956 CK923 0931 1898 1954 1957 CKBRD 0095 175 CKSUM 08E1 1816 1382 1818 1828 CNPTR 0B1C 2241 1575 1833 2167 2174 2180 2233 2243 2247 CNVID 021F 259 CNVRT 009C 182 CONFG 0E0F 2377 820 1092 1153 CVRT 009D 183 DC010 0894 1745 1742 DC020 089A 1750 1790 DC030 08A9 1762 1751 DC040 08BA 1774 1795 DC050 08BC 1775 1753 1758 1786 1792 DC060 08BE 1777 1739 1768 1772 1774 1784 DC070 08BF 1778 1776 DC080 08C0 1779 1737 DC090 08C2 1780 1738 DC100 08C4 1781 1744 DC110 08C6 1782 1770 DC120 08C9 1785 1764 DC130 08D0 1791 1766 DC900 08D6 1800 1736 1749 1762 1765 1778 1782 1783 1788 DC902 08D8 1802 1759 1761 DC903 08D9 1803 1747 1763 DC904 08DA 1804 1746 DC905 08DB 1805 1760 DC906 08DC 1806 1785 DC907 08DD 1807 1773 DC908 08DE 1808 1769 1771 1794 DC909 08DF 1809 1757 1791 DC910 08E0 1810 1752 DCBIN 0889 1735 958 1089 1740 2021 DCYL1 01F3 235 1637 DCYL2 01F4 236 DCYL3 01F5 237 DINDR 01F9 241 1188 1189 1198 DISK1 0097 177 DISKN 0098 178 DISKZ 0096 176 DZ000 00F2 152 219 1475 1545 1556 1976 1994 2129 E 0B26 2249 825 826 828 829 830 857 859 864 891 893 898 902 903 905 907 909 911 920 922 930 932 933 992 1011 1029 1035 1102 1103 1104 1156 1159 1164 1166 1168 1173 1177 1181 1186 1204 1221 1229 1233 1241 1242 1243 1266 1269 1270 1271 1274 1276 1277 1278 1279 1280 1285 1286 1288 1291 1292 1293 1297 1301 1306 1308 1310 1312 1314 1366 1383 1387 1396 1398 1399 1400 1402 1404 1405 1407 1408 1411 1414 1416 1419 1426 1427 1434 1435 1439 1440 1445 1450 1454 1457 1458 1467 1469 1489 1499 1501 1503 1504 1505 1520 1522 1524 1526 1528 1533 1551 1555 1604 1609 1615 1627 1643 1704 1705 1719 1723 1724 1824 1827 1838 1840 1866 1879 1920 1991 2027 2031 2079 2082 2083 2084 2116 2119 2122 2245 ER002 0A32 2144 913 ER003 0A38 2149 931 1267 ER004 0A3E 2154 1395 1453 ER005 0AF6 2208 1612 1616 ER012 0AFC 2213 1623 1628 1634 1656 1917 ER013 0B02 2218 1075 1081 1128 1132 1155 1157 1162 1170 1174 1220 ER014 0B08 2223 1921 ER015 0A44 2159 943 994 1002 1006 2028 ER016 0B0E 2228 1618 ER017 0A4A 2164 921 1326 1341 1350 1356 1362 ER018 0A54 2171 2175 ER019 0A5D 2177 1927 2181 ER100 0A4F 2167 2147 2152 2157 2162 ER200 0B13 2231 2211 2216 2221 2226 ER300 0B15 2233 2237 ER310 0B17 2235 2231 ER320 0B19 2236 2232 F1900 099C 1983 1975 FE900 09AA 2002 1993 FETCH 099E 1990 1303 1410 1606 1645 1940 1992 1997 FLETI 0200 248 1673 FPADR 0201 249 1919 FTCH1 0992 1974 1861 1908 1979 I1134 0091 171 1253 I1442 0090 170 1251 I2501 008F 169 1249 IKBRD 0092 172 IN901 029B 334 328 INTPT 0296 327 322 831 1477 LD900 01EC 227 216 LD902 01EE 229 218 LDPH2 01E0 216 1048 LET00 0203 251 1667 LMODE 01F6 238 1299 1365 1511 1517 1564 1611 1617 1676 LOLIM 0240 296 1064 LPHID 023F 293 1054 MAXPH 01FD 245 1009 MO100 09B6 2015 2030 MO200 09C2 2024 2032 2304 MO300 09D0 2035 2304 MO900 09D7 2042 2010 2037 MODNO 09AC 2009 970 2011 2029 2033 2038 MSG01 024B 310 1831 1832 MSG02 0257 313 310 2145 2146 MSG03 0267 316 313 2150 2151 MSG04 027A 319 316 2155 2156 MSG05 0285 322 319 2209 2210 MSG11 0A66 2185 1573 1574 MSG12 0A73 2187 2185 2214 2215 MSG13 0A83 2189 2187 2219 2220 MSG14 0A90 2191 2189 2224 2225 MSG15 0AA2 2193 2160 2161 2191 MSG16 0AAF 2195 2193 2229 2230 MSG17 0AC1 2197 2165 2166 2195 MSG18 0AD2 2199 2172 2173 2197 MSG19 0ADF 2201 2178 2179 2199 MSG20 0AF5 2204 2201 P1132 008D 167 1257 P1403 008C 166 1255 PACK0 09D8 2048 865 2071 PAIR1 0222 264 961 1047 2300 PAIR2 0224 266 1063 PAIR3 0226 268 1062 PAIR4 0228 270 PAIR5 022A 272 PAIR6 022C 274 PAIR7 022E 276 PAIR8 0230 278 1061 PAIR9 0232 280 PAIRA 0234 282 1060 PAIRB 0236 284 1059 PAIRC 0238 286 PAIRD 023A 288 PAIRE 023C 290 PAIRF 023E 292 PCPAD 008E 168 1259 PHAS2 0376 616 217 222 227 230 PIDEV 009B 181 PINPT 009A 180 PK100 09E0 2053 2069 PK200 09F1 2070 2049 PRINT 0099 179 PRNPR 0221 261 1205 1234 1238 PRNRD 0220 260 1222 1226 1230 PTRID 021C 256 1207 RDRID 021E 258 RE100 09F6 2079 2081 RELAD 09F5 2078 1393 2088 2298 RINDR 01F2 234 840 RP000 0378 620 763 846 847 RP020 037B 623 666 669 671 682 RP040 037E 629 639 RP060 0388 638 631 RP080 038A 642 624 RP100 0391 649 693 695 RP120 0396 658 657 RP140 03A6 672 645 RP160 03AF 681 677 679 RP180 03B2 685 770 RP200 03B3 686 642 675 691 704 716 RP220 03B4 691 648 RP240 03BA 699 678 705 708 740 769 RP260 03C2 706 702 RP280 03C6 711 680 717 720 754 RP300 03CE 718 714 RP320 03D2 726 621 RP340 03D4 728 729 RP360 03D7 730 727 RP380 03DC 740 734 RP400 03E7 754 731 733 RP420 03EC 759 745 748 775 RP440 03F0 762 726 RP460 03F2 769 732 RP480 03FA 782 630 637 RP500 03FC 784 632 633 635 673 774 RP520 03FE 786 656 672 759 RP540 03FF 787 636 RP560 0400 788 755 RP580 0401 789 712 715 RP600 0402 790 674 758 RP620 0403 791 681 742 756 761 771 RP640 0404 792 634 773 RP660 0405 793 741 RP680 0406 794 706 RP700 0407 795 700 703 RP720 0408 796 662 RP740 040A 800 718 RP750 0413 806 846 RS100 0A0C 2103 2095 RS200 0A0E 2104 2096 RS300 0A10 2105 2097 RSTXR 0A0B 2102 1191 2106 SAVXR 0A05 2094 1152 2098 SCORE 01FC 244 1134 1717 SHIFT 0204 252 1665 SSBFR 0202 250 1725 T1442 01F8 240 1178 TZ100 029F 349 352 884 TZ200 02A4 357 341 TZ300 02A8 367 394 397 TZ310 02AE 372 368 TZ320 02B2 376 371 TZ340 02B5 385 386 TZ400 02CD 420 360 392 423 426 TZ900 02C4 403 350 412 421 TZ902 02C6 405 381 TZ904 02C8 407 376 TZ905 02C9 408 359 367 369 373 393 TZ906 02CA 409 351 385 388 TZ907 02CB 410 357 TZ908 02CC 411 380 405 TZ909 02C4 412 424 UPLIM 0241 297 VERSN 01FA 242 2026 2035 2036 WR100 0A26 2127 2117 2120 WR900 0A30 2137 2128 WRITE 0A14 2113 1282 1406 1535 1684 1686 1688 1701 1965 2115 2123 2132 WRTYZ 029D 340 398 2242 X1 0028 611 469 486 518