ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 2020 Source File: \csysldr2.asm P.T. INPUT SYSTEM LOADER - PHASE 2 2 | *************************************************** CP200020 3 | * * CP200030 4 | *STATUS - VERSION 2, MODIFICATION 9 * CP200040 5 | * * CP200050 6 | *FUNCTION/OPERATION- * CP200060 7 | * PHASE 2 WILL PERFORM THE FOLLOWING DURING * CP200070 8 | * AN INITIAL LOAD- * CP200080 9 | * * LOAD THE SYSTEM PROGRAMS TO DISK AS * CP200090 10 | * DIRECTED BY THE LOAD MODE AND PHID RECORDS. * CP200100 11 | * * ESTABLISH SLET. * CP200110 12 | * * ESTABLISH THE RELOAD TABLE. * CP200120 13 | * * INITIALIZE THE RESIDENT IMAGE AND DCOM. * CP200130 14 | * * DEFINE PRINCIPAL PRINT AND I/O DEVICES. * CP200140 15 | * * ESTABLISH ADDRESS OF AND INITIALIZE FIRST * CP200150 16 | * LET SECTOR. * CP200160 17 | * * PASS CONTROL TO AUXILIARY SUPERVISOR TO CALL* CP200170 18 | * DUP TO LOAD THE SUBROUTINE LIBRARY. * CP200180 19 | * * CP200190 20 | * A RELOAD- * CP200200 21 | * * RELOAD ANY PHASE(S) CURRENTLY IN SLET. * CP200210 22 | * * EXPAND RELOADED SYSTEMS PROGRAMS INTO * CP200220 23 | * CUSHION AREA IF NECESSARY AND SPACE PERMITS.* CP200230 24 | * * COMPRESS OUT OLD OR NEW GAPS BETWEEN 2-4* CP200240 25 | * SYSTEM PROGRAMS (CAUSED BY REDUCED PHASE 2-4* CP200250 26 | * LENGTH DURING A RELOAD) 2-4* CP200260 27 | * * ADD ONE OR MORE ADDITIONAL PHASES TO A * CP200270 28 | * SYSTEM PROGRAM CURRENTLY IN SLET. * CP200280 29 | * * ADD ONE OR MORE NEW PROGRAMS AS SPECIFIED * CP200290 30 | * IN A SECOND PHID RECORD TO THE SYSTEM * CP200300 31 | * PROGRAM AREA. * CP200310 32 | * * SHIFT THE SCRA, CIB, LET AND USER AREA TO * CP200320 33 | * MAKE ROOM FOR ADDED PROGRAMS. * CP200330 34 | * * UPDATE SLET. * CP200340 35 | * * UPDATE AND REPROCESS THE RELOAD TABLE. * CP200350 36 | * * UPDATE THE RESIDENT IMAGE AND DCOM. * CP200360 37 | * * UPDATE THE CHAIN ADDRESSES IN LET IF * CP200370 38 | * PROGRAMS WERE ADDED. * CP200380 39 | * * REDEFINE PRINCIPAL PRINT AND I/O DEVICES AS * CP200390 40 | * DIRECTED BY THE CONFIGURATION RECORDS. * CP200400 41 | * * DISPLAY 'END RELOAD' AT COMPLETION. * CP200410 42 | * * CP200420 43 | *ENTRY POINT- * CP200430 44 | * * ENTERED AT 'BA000' FROM PHASE 1. * CP200440 45 | * * CP200450 46 | *INPUT- * CP200460 47 | * * BINARY INPUT RECORDS ONLY. * CP200470 48 | * * CP200480 49 | *OUTPUT- * CP200490 50 | * * OPERATIONAL SYSTEM CARTRIDGE, LOGICAL DRIVE * CP200500 51 | * ZERO. * CP200510 52 | * * CP200520 53 | *EXTERNAL REFERENCES- * CP200530 54 | * * NONE. * CP200540 55 | * * CP200550 56 | *EXIT- * CP200560 57 | * * BRANCH TO $DUMP AT THE END OF INITIAL LOAD. * CP200570 58 | * * AT END OF A RELOAD BRANCH TO $DUMP IF TYPE * CP200580 59 | * '81' RECORD FOLLWED BY A '// XEQ MODIF' * CP200590 60 | * RECORD. OTHERWISE BRANCH TO $EXIT. * CP200600 61 | * * CP200610 62 | *TABLES/BUFFERS- * CP200620 63 | * * BA902- 60 WORD BUFFER INTO WHICH DATA FROM * CP200630 64 | * BA906 IS PACKED. * CP200640 65 | * * BA908- 1 WD BUFFER FOR DELETE CHARACTERS. * CP200650 66 | * * BA906- 108 WD BUFFER FOR 108 FRAMES BINARY * CP200660 67 | * PAPER TAPE DATA, LEFT JUSTIFIED. * CP200670 68 | * * BUFR1- 320 WORD AREA IN WHICH THE RELOAD * CP200680 69 | * TABLE IS CONSTRUCTED. * CP200690 70 | * * BUFR2- 320 WORD DISK I/O BUFFER USED * CP200700 71 | * PRIMARILY FOR DATA. * CP200710 72 | * * BUFR3- 320 WORD DISK I/O BUFFER USED * CP200720 73 | * PRIMARILY FOR SLET. * CP200730 74 | * * CP200740 75 | *ATTRIBUTES- * CP200750 76 | * * N/A * CP200760 77 | * * CP200770 78 | *NOTES- * CP200780 79 | * * THIS PHASE IS ASSEMBLED IN RELOCATABLE- * CP200790 80 | * ABSOLUTE FORMAT. * CP200800 81 | * * IN ADDITION TO THE FIRST CARD, SECTOR BREAK * CP200810 82 | * CARDS PRECEDE SUBPHASES 1, 2, AND 3. PHASE * CP200820 83 | * 1 USES ABSOLUTE SECTOR ADDRESSES TO LOAD * CP200830 84 | * PHASE 2. * CP200840 85 | * * PROGRAM REVISED IN MOD 3. CP200850 86 | * * CP200860 87 | *************************************************** CP200870 P.T. INPUT SYSTEM LOADER - PHASE 2 89 | ABS CP200890 90 | * CP200900 91 | * COMMA EQUATES CP200910 92 | * CP200920 009F 93 | $ACDE EQU /9F TABLE OF AREA CODES CP200930 0006 94 | $CH12 EQU /06 CHANNEL 12 INDICATOR CP200940 005A 95 | $CILA EQU /5A ADDRESS OF END OF DISK SUBR CP200950 0007 96 | $COMN EQU /07 LENGTH OF COMMON (IN WORDS) CP200960 000E 97 | $CORE EQU /0E SIZE OF CORE CP200970 007E 98 | $CPTR EQU /7E CNSL PTR CHANNEL 12 INDICATOR CP200980 000F 99 | $CTSW EQU /0F CONTROL RECORD TRAP SWITCH CP200990 0005 100 | $CIBA EQU /05 SCTR ADDR OF CIB CP201000 009A 101 | $CYLN EQU /9A ARM POSITION CP201010 00EE 102 | $DBSY EQU /EE NON-ZERO WHEN DISKZ BUSY CP201020 0010 103 | $DADR EQU /10 BLK ADDR OF PROG TO BE LOADED CP201030 0077 104 | $DCDE EQU /77 DRIVE CODE OF PROG IN WRK STG CP201040 00A4 105 | $DCYL EQU /A4 TABLE OF DEFECTIVE CYLINDERS CP201050 0012 106 | $DREQ EQU /12 IND. FOR REQUESTED VERSION DKI/O CP201060 003F 107 | $DUMP EQU /3F CALL DUMP ENTRY POINT CP201070 0076 108 | $DZIN EQU /76 DISK SUBROUTINE IN CORE INDR CP201080 0038 109 | $EXIT EQU /38 CALL EXIT ENTRY POINT CP201090 0071 110 | $FLSH EQU /71 FLUSH JOB SWITCH CP201100 0095 111 | $FPAD EQU /95 TABLE OF FILE PROTECT ADDRESSES CP201110 0014 112 | $HASH EQU /14 WORK AREA CP201120 0013 113 | $IBSY EQU /13 NON-ZERO IF CD/PAP TP DEV. BUSY CP201130 00B9 114 | $IBT2 EQU /B9 LEVEL 2 INTRPT BRANCH TABLE ADDR CP201140 00D4 115 | $IBT4 EQU /D4 ADDR OF THE IBT, LEVEL 4 CP201150 0032 116 | $IOCT EQU /32 ZERO IF NO I/O IN PROGRESS CP201160 002C 117 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE CP201170 00B3 118 | $I200 EQU /B3 ILS02 ENTRY POINT CP201180 00B8 119 | $I205 EQU /B8 ILS02 INTERRUPT ENTRY POINT CP201190 00C4 120 | $I400 EQU /C4 ILS04 ENTRY POINT CP201200 00D0 121 | $I403 EQU /D0 CP201210 007C 122 | $KCSW EQU /7C 1 IF KB,CP BOTH UTILIZED CP201220 0033 123 | $LAST EQU /33 LAST CARD INDICATOR CP201230 0008 124 | $LEV0 EQU /08 LEVEL 0 BRANCH ADDRESS CP201240 0009 125 | $LEV1 EQU /09 LEVEL 1 BRANCH ADDRESS CP201250 000A 126 | $LEV2 EQU /0A LEVEL 2 BRANCH ADDRESS CP201260 000B 127 | $LEV3 EQU /0B LEVEL 3 BRANCH ADDRESS CP201270 000C 128 | $LEV4 EQU /0C LEVEL 4 BRANCH ADDRESS CP201280 000D 129 | $LEV5 EQU /0D LEVEL 5 BRANCH ADDRESS CP201290 0039 130 | $LINK EQU /39 CALL LINK ENTRY POINT CP201300 0034 131 | $NDUP EQU /34 DO NOT DUP IF NON-ZERO CP201310 0035 132 | $NXEQ EQU /35 DO NOT EXECUTE IF NON-ZERO CP201320 0036 133 | $PBSY EQU /36 NON-ZERO WHEN PRINTER BUSY CP201330 0037 134 | $PGCT EQU /37 PAGE NO. FOR HEADINGS CP201340 0078 135 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE CP201350 0028 136 | $PRET EQU /28 IOCS SOFT ERROR TRAP CP201360 0081 137 | $PST1 EQU /81 TRAP FOR I/O ERRORS, LEVEL 1 CP201370 0085 138 | $PST2 EQU /85 TRAP FOR I/O ERRORS, LEVEL 2 CP201380 0089 139 | $PST3 EQU /89 TRAP FOR I/O ERRORS, LEVEL 3 CP201390 008D 140 | $PST4 EQU /8D TRAP FOR I/O ERRORS, LEVEL 4 CP201400 00EF 141 | $SNLT EQU /EF SENSE LIGHT INDICATOR CP201410 0091 142 | $STOP EQU /91 PROGRAM STOP KEY TRAP CP201420 00E0 143 | $SYSC EQU /E0 MODIFICATION LEVEL CP201430 007D 144 | $UFDR EQU /7D DRIVE CODE OF UNFORMATTED I/O CP201440 0079 145 | $UFIO EQU /79 UNFORMATTED I/O RECORD NO. CP201450 002D 146 | $ULET EQU /2D TABLE OF LET ADDRESSES CP201460 007A 147 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE CP201470 007B 148 | $WRD1 EQU /7B ADDR OF 1ST WD OF CORE LOAD CP201480 01E0 149 | $ZEND EQU /1E0 END OF DISKZ CP201490 007F 150 | $1132 EQU /7F 1132 PRINTER CHANNEL 12 INDR CP201500 0080 151 | $1403 EQU /80 1403 PRINTER CHANNEL 12 INDR CP201510 152 | * CP201520 153 | * ABSOLUTE EQUATES CP201530 154 | * CP201540 0000 155 | @IDAD EQU /0000 CART ID, COLD START SAD CP201550 0001 156 | @DCOM EQU /0001 DCOM SECTOR ADDRESS CP201560 0002 157 | @RIAD EQU /0002 RESIDENT IMAGE SECTOR ADDR CP201570 0003 158 | @SLET EQU /0003 FIRST SLET SECTOR ADDRESS CP201580 0006 159 | @RLTB EQU /0006 RELOAD TABLE SECTOR ADDRESS CP201590 0007 160 | @HDNG EQU /0007 PAGE HEADING SECTOR ADDRESS CP201600 0630 161 | @P2AD EQU /0630 SYS LDR - PHASE 2 SCTR ADDR CP201610 0658 162 | @MSCT EQU /0658 MAXIMUM SECTOR ADDRESS - 1 CP201620 0030 163 | @COLD EQU /0030 RLTV ADDR 1ST WD COLD START CP201630 00D0 164 | @CSTR EQU /00D0 CP201640 00F2 165 | DZ000 EQU /00F2 DISKZ ENTRY POINT CP201650 0000 166 | @WDCT EQU 0 RLTV ADDR WORD COUNT IN BFR CP201660 0001 167 | @SADR EQU 1 RLTV ADDR SCTR ADDR IN BFR CP201670 0003 168 | @NDCY EQU 3 MAX NO. OF DEF CYLINDERS CP201680 0005 169 | @MXDR EQU 5 MAX NO. OF DISK CRIVES CP201690 0003 170 | @CIDN EQU 3 RLTV ADDR OF CARTRIDGE ID CP201700 0007 171 | @STAT EQU 7 RLTV ADDR CART STATUS WORD CP201710 003C 172 | @PRWC EQU 60 PRINTER BUFFER LENGTH CP201720 0050 173 | @CCOL EQU 80 NUMBER OF COLUMNS PER CARD CP201730 0140 174 | @SCNT EQU 320 NUMBER OF WORDS PER SECTOR CP201740 1000 175 | @MNCR EQU 4096 MINIMUM ALLOWABLE CORE SIZE CP201750 176 | * CP201760 177 | * SYSTEM DEVICE SUBROUTINE PHASE IDS CP201770 178 | * CP201780 008C 179 | P1403 EQU 140 PHASE ID OF SYS 1403 SUBR CP201790 008D 180 | P1132 EQU 141 PHASE ID OF SYS 1132 SUBR CP201800 008E 181 | PCPAD EQU 142 PHASE ID OF SYS C. P. SUBR CP201810 008F 182 | I2501 EQU 143 PHASE ID OF SYS 2501 SUBR CP201820 0090 183 | I1442 EQU 144 PHASE ID OF SYS 1442 SUBR CP201830 0091 184 | I1134 EQU 145 PHASE ID OF SYS PAPT SUBR CP201840 0092 185 | IKBRD EQU 146 PHASE ID OF SYS KEYBRD SUBR CP201850 0093 186 | CDCNV EQU 147 PH ID OF SYS 2501/1442 CONV CP201860 0094 187 | C1134 EQU 148 PHASE ID OF SYS 1134 CONV CP201870 0095 188 | CKBRD EQU 149 PHASE ID OF SYS KEYBRD CONV CP201880 0096 189 | DISKZ EQU 150 PHASE ID OF DISKZ SUBR CP201890 0097 190 | DISK1 EQU 151 PHASE ID OF DISK1 SUBR CP201900 0098 191 | DISKN EQU 152 PHASE ID OF DISKN SUBR CP201910 0099 192 | PRINT EQU 153 PH ID OF PRINC PRINT SUBR CP201920 009A 193 | PINPT EQU 154 PH ID OF PRINC INPUT SUBR CP201930 009B 194 | PIDEV EQU 155 PRINC INPUT EXCLUDING KEYBD CP201940 009C 195 | CNVRT EQU 156 PRINC SYS CONVERSION SUBR CP201950 009D 196 | CVRT EQU 157 PRINC CONV EXCLUDING KEYBRD CP201960 197 | * CP201970 198 | * SYSTEM LOADER COMMUNICATIONS AREA CP201980 199 | * CP201990 01F0 200 | CILWC EQU /01F0 CORE IMAGE LOADER WORD CNT CP202000 01F2 201 | DCYL1 EQU CILWC+2 SCTR ADDR OF 1ST DEF CYLIN CP202010 01F3 202 | DCYL2 EQU DCYL1+1 SCTR ADDR OF 2ND DEF CYLIN CP202020 01F4 203 | DCYL3 EQU DCYL2+1 SCTR ADDR OF 3RD DEF CYLIN CP202030 01F5 204 | LMODE EQU DCYL3+1 LOAD MODE IMAGE CP202040 01F6 205 | CAREA EQU LMODE+1 NO. SECTORS OF CUSHION AREA CP202050 01F7 206 | T1442 EQU CAREA+1 SET 1 IF 1442-6 OR 7 AVAIL CP202060 01F8 207 | DINDR EQU T1442+1 ISS DEVICE INDICATOR CP202070 01F9 208 | VERSN EQU DINDR+1 VERSION AND MODIFICATION NO CP202080 01FA 209 | CIBFR EQU VERSN+1 SCTR ADDR OF CORE IMAGE BFR CP202090 01FB 210 | SCORE EQU CIBFR+1 CORE SIZE CP202100 01FC 211 | MAXPH EQU SCORE+1 MAXIMUM PHASE ID CP202110 01FD 212 | ASCRA EQU MAXPH+1 SECTOR ADDRESS OF SCRA CP202120 01FE 213 | CARID EQU ASCRA+1 ID OF CARTRIDGE CP202130 01FF 214 | FLETI EQU CARID+1 FIXED AREA INDICATOR CP202140 0200 215 | FPADR EQU FLETI+1 FILE PROTECT ADDRESS CP202150 0201 216 | SSBFR EQU FPADR+1 NO. OF SCTR FOR SLET BFR CP202160 0202 217 | LET00 EQU SSBFR+1 PRE-LOAD LET SECTOR ADDRESS CP202170 0203 218 | SHIFT EQU LET00+1 NO. OF SCTRS TO SHIFT CP202180 219 | * CP202190 220 | * COMMUNICATIONS PATCH AREA CP202200 221 | * CP202210 0206 222 | PTRID EQU SHIFT+1+2 PH ID OF PRINC PRINT SUBR CP202220 0207 223 | CHN12 EQU PTRID+1 ADDRESS OF CHANNEL 12 INDR CP202230 0208 224 | RDRID EQU PTRID+2 PH ID OF PRINC I/O SUBR CP202240 0209 225 | CNVID EQU RDRID+1 PH ID OF PRINC CONV SUBR CP202250 020A 226 | PRNRD EQU CNVID+1 PRINCIPAL I/O DEVICE INDR CP202260 020B 227 | PRNPR EQU PRNRD+1 PRINCIPAL PRINT DEVICE INDR CP202270 228 | * CP202280 020C 229 | PAIR1 EQU PRNPR+1 PH ID PAIRS AT EVEN LOC'S CP202290 020E 230 | PAIR2 EQU PAIR1+2 CP202300 0210 231 | PAIR3 EQU PAIR2+2 CP202310 0212 232 | PAIR4 EQU PAIR3+2 CP202320 0214 233 | PAIR5 EQU PAIR4+2 CP202330 0216 234 | PAIR6 EQU PAIR5+2 CP202340 0218 235 | PAIR7 EQU PAIR6+2 CP202350 021A 236 | PAIR8 EQU PAIR7+2 CP202360 021C 237 | PAIR9 EQU PAIR8+2 CP202370 021E 238 | PAIRA EQU PAIR9+2 CP202380 0220 239 | PAIRB EQU PAIRA+2 CP202390 0222 240 | PAIRC EQU PAIRB+2 CP202400 0224 241 | PAIRD EQU PAIRC+2 CP202410 0226 242 | PAIRE EQU PAIRD+2 CP202420 0228 243 | PAIRF EQU PAIRE+2 CP202430 0229 244 | LPHID EQU PAIRF+1 LAST PH ID FOR INITIAL LOAD CP202440 022A 245 | LOLIM EQU LPHID+1 LOWER PHASE ID BYPASS LIMIT CP202450 022B 246 | UPLIM EQU LOLIM+1 UPPER PHASE ID BYPASS LIMIT CP202460 0235 247 | MSG01 EQU UPLIM+10 E 01 CHECKSUM ERROR CP202470 0241 248 | MSG02 EQU MSG01+12 E 02 INVALID RCRD OR BLANK CP202480 0251 249 | MSG03 EQU MSG02+16 E 03 SEQ ERR OR MISSING RCD CP202490 0264 250 | MSG04 EQU MSG03+19 E 04 ORG BACKWARD CP202500 026F 251 | MSG05 EQU MSG04+11 E 05 INITIALIZE THE CART CP202510 0280 252 | INTPT EQU MSG05+17 INHIBIT INTRPT REQ SUBR ENT CP202520 0287 253 | WRTYZ EQU INTPT+7 CONSOLE PRINTER SUBR ENTRY CP202530 0289 254 | TZ100 EQU WRTYZ+2 CONSOLE PTR INTERRUPT ENTRY CP202540 02C2 255 | PT000 EQU WRTYZ+59 PAPER TAPE SUBR ENTRY CP202550 02C5 256 | PT010 EQU PT000+3 PAPER TAPE INTERRUPT EXIT CP202560 PHASE 2 INITIALIZATION 0376 258 | ORG /0376 BEGIN AT END OF DEVICE SUBR CP202580 259 | * CP202590 260 | * CP202600 0376 063E 261 | DC BZ999-BA000+1 WORD COUNT OF PHASE 2 CP202610 0377 0630 262 | DC @P2AD SCTR ADDR OF PHASE 2 CP202620 263 | * CP202630 264 | * CP202640 0378 1000 265 | BA000 NOP A WAIT MAY BE PATCHED HERE CP202650 0379 6500 08CA 266 | LDX L1 BZ930-1 STORE ADDRESS OF INTERRUPT CP202660 037B 6D00 00D4 267 | STX L1 $IBT4 *BRANCH TABLE IN ILS04 CP202670 037D 6700 088F 268 | LDX L3 X XR3 POINTS TO CONSTANTS CP202680 037F C400 01F5 269 | LD L LMODE FETCH AND CP202690 0381 D301 270 | STO 3 BY934-X *STORE LOAD MODE INDICATOR CP202700 0382 4C10 038A 271 | BSC L BA010,- BRANCH IF A RELOAD FUNC CP202710 0384 4400 0668 272 | BSI L FTCH3 ZERO SLET BUFFER VIA READ CP202720 0386 C400 0229 273 | LD L PAIRF+1 FETCH AND CP202730 0388 D3F9 274 | STO 3 BY924-X *STORE LAST PHASE ID CP202740 0389 7005 275 | MDX BB000 BRANCH TO READ A RECORD CP202750 038A C400 01FA 276 | BA010 LD L CIBFR FETCH AND CP202760 038C D302 277 | STO 3 BY935-X *STORE CIB SECTOR ADDRESS CP202770 278 | * CLEAR SIGN BITS IN SLET TABLE SCTR ADDRESSES. 2-4 CP202780 279 | * LOCATE LAST PH ID & LAST USED SCTR ADDRESS. 2-4 CP202790 280 | * COMPRESS OUT EXISTING GAPS BETWEEN 2-4 CP202800 281 | * SYSTEM PROGRAMS. 2-4 CP202810 038D 4400 0D7C 282 | BSI L B0000 GO DO ABOVE 3 FUNCTIONS CP202820 READ A RECORD 284 | *************************************************** CP202840 285 | * CP202850 286 | * READ A RECORD CP202860 287 | * CP202870 288 | * CP202880 038F 1000 289 | BB000 NOP A 'WAIT' MAY BE PATCHED IN CP202890 0390 401F 290 | BSI BB050 TEST FOR BUSY CP202900 291 | * CP202910 0391 C826 292 | BB010 LDD BB904 TEST 1 CHAR FOR DELETE CP202920 0392 4400 02C3 293 | BSI L PT000+1 READ 1 FRAME CP202930 0394 401B 294 | BSI BB050 WAIT FOR OP COMPLETE CP202940 0395 C400 042E 295 | LD L BA908+1 TEST FRAME READ IN CP202950 0397 F024 296 | EOR BB912 *AGAINST DELETE CODE AND CP202960 0398 4C18 0391 297 | BSC L BB010,+- *READ AGAIN IF YES CP202970 298 | * CP202980 039A C400 042E 299 | LD L BA908+1 TEST FOR VALID WORD COUNT CP202990 039C 9020 300 | S BB913 CP203000 039D 4430 0710 301 | BSI L ER018,Z- ERROR IF WD CNT TOO LARGE CP203010 302 | * CP203020 039F C400 042E 303 | LD L BA908+1 CP203030 03A1 1807 304 | SRA 7 FORM FRAME COUNT CP203040 03A2 D400 03BF 305 | STO L BA906 *AHEAD OF BUFFER CP203050 03A4 1801 306 | SRA 1 FORM WORD COUNT CP203060 03A5 D400 05E2 307 | STO L CK030+1 *FOR CHECKSUM PROCESSING CP203070 308 | * CP203080 03A7 C812 309 | BB020 LDD BB906 FETCH PARAMETERS CP203090 03A8 4400 02C3 310 | BSI L PT000+1 *TO READ BINARY RECORD CP203100 03AA 4005 311 | BSI BB050 WAIT FOR OP COMPLETE CP203110 312 | * CP203120 313 | * CP203130 03AB 4400 042F 314 | BSI L PACK0 COMPRESS AA906 INTO AA902 CP203140 03AD 4C00 0447 315 | BSC L BC000 DETERMINE RECORD TYPE CP203150 316 | * CP203160 317 | * CP203170 03AF 006C 318 | BB901 DC 54*2 FRAME CNT (FULL LENGTH) CP203180 319 | *************************************************** CP203190 320 | * CP203200 03B0 0000 321 | BB050 DC 0 ENTRY/RETURN CP203210 03B1 C400 0013 322 | LD L $IBSY TEST FOR PAPER TAPE BUSY CP203220 03B3 4C20 03B1 323 | BSC L *-4,Z CP203230 03B5 4C80 03B0 324 | BSC I BB050 RETURN CP203240 325 | *************************************************** CP203250 03B8 326 | BSS E CONSTANTS AND BUFFERS CP203260 327 | *************************************************** CP203270 03B8 7000 328 | BB904 DC /7000 READ WITHOUT CONVERSION CP203280 03B9 042D 329 | DC BA908 BUFFER LOCATION CP203290 03BA 7000 330 | BB906 DC /7000 READ WITHOUT CONVERSION CP203300 03BB 03BF 331 | DC BA906 108 FRAME BUFFER CP203310 332 | * CP203320 03BC 7F00 333 | BB912 DC /7F00 DELETE CODE CONSTANT CP203330 03BD 3600 334 | BB913 DC /3600 MAXIMUM VALID WORD COUNT CP203340 335 | * CP203350 03BE 336 | BSS E CP203360 03BE 0000 337 | BA902 DC *-* FIRST WORD AFTER PACKING CP203370 03BE 338 | PKBFR EQU BA902 PACKED BINARY INPUT BUFFER CP203380 03BF 0000 339 | BA906 DC *-* WORD COUNT TO BE SET CP203390 03C0 340 | BSS 108 UNPACKED BUFFER CP203400 042C FFFF 341 | DC /FFFF END OF FRAME BUFFER CP203410 342 | * CP203420 042D 0001 343 | BA908 DC 1 1-WORD DELETE BUFFER CP203430 042E 0000 344 | DC *-* CP203440 345 | * CP203450 346 | * CP203460 347 | *************************************************** CP203470 348 | * CP203480 349 | * THIS SUBROUTINE PACKS LEFT-JUSTIFIED 8-BIT CP203490 350 | * BINARY DATA FROM PAPER TAPE FRAMES INTO 16 CP203500 351 | * BITS PER WORD. CP203510 352 | * XR3 CONTAINS FRAM COUNT CP203520 353 | * XR2 POINTS TO COMPRESSED BUFFER CP203530 354 | * XR1 POINTS TO SOURCE BUFFER CP203540 355 | * CP203550 356 | *************************************************** CP203560 042F 0000 357 | PACK0 DC 0 ENTRY/RETURN ADDRESS CP203570 0430 6F00 0443 358 | STX L3 PK060+1 SAVE XR3 CP203580 0432 6780 03BF 359 | LDX I3 BA906 FRAME COUNT CP203590 0434 6500 03C0 360 | LDX L1 BA906+1 1ST WD ADDR IN UNPACKED BFR CP203600 0436 6600 03BE 361 | LDX L2 BA902 CP203610 0438 C101 362 | PK020 LD 1 1 2ND HALF OF WORD CP203620 0439 1808 363 | SRA 8 CP203630 043A D00B 364 | STO PK900 RIGHT JUSTIFIED CP203640 043B C100 365 | LD 1 0 1ST HALF OF WORD CP203650 043C E809 366 | OR PK900 CP203660 043D D200 367 | STO 2 0 STORE A PACKED WORD CP203670 043E 7201 368 | MDX 2 1 CP203680 043F 7102 369 | MDX 1 2 CP203690 0440 73FE 370 | MDX 3 -2 CP203700 0441 70F6 371 | MDX PK020 LOOP UNTIL WD CNT FINISHED CP203710 0442 6700 0000 372 | PK060 LDX L3 *-* RESTORE XR3 CP203720 0444 4C80 042F 373 | BSC I PACK0 RETURN CP203730 374 | * CP203740 0446 0000 375 | PK900 DC *-* WORK AREA CP203750 376 | * CP203760 377 | *************************************************** CP203770 DETERMINE RECORD TYPE 379 | * CP203790 0447 6500 03BD 380 | BC000 LDX L1 PKBFR-1 XR1 PTS TO BINARY RCDR BFR CP203800 0449 C103 381 | LD 1 3 FETCH WORD 3 OF RECORD CP203810 044A 1808 382 | SRA 8 *TO DETERMINE RCRD TYPE CP203820 044B 93D6 383 | S 3 BX901-X TEST FOR AND BRANCH IF CP203830 044C 4418 045C 384 | BC020 BSI L BD000,+- *AN ABS HEADER RECORD - /01 CP203840 044E 93D6 385 | S 3 BX901-X TEST FOR AND BRANCH IF CP203850 044F 4418 045C 386 | BSI L BD000,+- *TYPE 2 SECTOR BREAK - /02 CP203860 0451 93DC 387 | S 3 BX908-X TEST FOR AND BRANCH IF CP203870 0452 4418 04FA 388 | BSI L BE000,+- *A DATA RECORD - /0A CP203880 0454 93DA 389 | S 3 BX905-X TEST FOR AND BRANCH IF CP203890 0455 4418 05FB 390 | BSI L BF000,+- *AN 'F' RECORD - /0F CP203900 0457 93DF 391 | S 3 BX912-X TEST FOR AND BRANCH IF CP203910 0458 4418 0618 392 | BSI L BG000,+- *AN '81' RECORD - /81 CP203920 045A 4400 06F8 393 | BSI L ER002 SYS TAPE ERROR, PRINT E 02 CP203930 PROCESS A SECTOR BREAK RECORD 045C 0000 395 | BD000 DC 0 ENTRY CP203950 396 | * CP203960 397 | * IF TWO SECTOR BREAK RECORDS ARE READ IN CP203970 398 | * SUCCESSION PRINT ERROR MESSAGE E 03. CP203980 399 | * CP203990 045D C3FC 400 | LD 3 BY927-X TEST TYPE /01 SWITCH CP204000 045E 4420 06FE 401 | BSI L ER003,Z BR TO PRINT MESSAGE E 03 CP204010 0460 C338 402 | LD 3 BZ911-X TEST UNCONDITIONAL BYPASS CP204020 0461 4C20 038F 403 | BSC L BB000,Z *SW AND GO READ RCD IF ON CP204030 0463 6C00 088B 404 | STX L0 BY927 SET TYPE /01 SWITCH ON CP204040 0465 1810 405 | SRA 16 CP204050 0466 D3FF 406 | STO 3 BY933-X SET TYPE 'A' INDR OFF CP204060 0467 C329 407 | LD 3 BY981-X ANY PROG DATA LEFT TO WRITE CP204070 0468 4420 06B6 408 | BSI L WRIT2,Z WRITE PROGRAM DATA TO DISK CP204080 046A 1810 409 | SRA 16 CLEAR CP204090 046B D308 410 | STO 3 BY941-X *BYPASS THIS PHASE INDR AND CP204100 046C D329 411 | STO 3 BY981-X *PROG DATA TO WRITE INDR CP204110 412 | * CP204120 046D 6C00 0895 413 | STX L0 BY939 SET SECTOR BREAK INDC ON CP204130 046F C3FA 414 | LD 3 BY925-X TEST NOW SKIPPING INDICATOR CP204140 0470 4C20 038F 415 | BSC L BB000,Z KEEP READING IF ON CP204150 0472 C304 416 | LD 3 BY937-X PREVIOUS HIGH SCTR ADDR CP204160 0473 D32B 417 | STO 3 BY983-X SAVE FOR ERROR RECOVERY CP204170 0474 83D6 418 | A 3 BX901-X ESTABLISH ADDR FOR FIRST CP204180 0475 D3EC 419 | STO 3 BY910-X *SECTOR OF THIS PHASE CP204190 420 | * CP204200 421 | * NOW THAT THE PREVIOUS PHASE IS COMPLETELY CP204210 422 | * PROCESSED, SET THE LAST TWO WORDS IN ITS SLET CP204220 423 | * ENTRY CP204230 424 | * CP204240 0476 C32A 425 | LD 3 BY982-X DOES SLET ENTRY NEED FINISH CP204250 0477 4C18 0483 426 | BSC L BD045,+- *BR IF ALREADY FINISHED CP204260 0479 6680 09BB 427 | LDX I2 C1020+1 RESTORE XR2 POINTER TO SLET CP204270 047B C3F5 428 | LD 3 BY919-X STORE WORD COUNT PREV PHASE CP204280 047C 83D6 429 | A 3 BX901-X FORM CORRECT WORD COUNT CP204290 047D D2FE 430 | STO 2 -2 *PROCESSED IN CURRENT SET CP204300 047E D325 431 | STO 3 BY977-X SAVE FOR SHRINK TEST 2-4 CP204310 047F C3F1 432 | LD 3 BY915-X STORE SCTR ADDR OF FIRST CP204320 0480 D2FF 433 | STO 2 -1 *SECTOR IN SLET ENTRY CP204330 0481 1810 434 | SRA 16 RESET WORD COUNT FOR CP204340 0482 D3F5 435 | STO 3 BY919-X *EACH PHASE CP204350 436 | * CP204360 437 | * ON RELOAD ALWAYS WRITE OUT SLET TO THE DISK. CP204370 438 | * ON INITIAL AND RELOAD, WRITE AND THEN READ THE CP204380 439 | * NEXT SLET SECTOR IF THE LAST SLET ENTRY WAS AT CP204390 440 | * THE END OF A SECTOR. CP204400 441 | * CP204410 0483 C301 442 | BD045 LD 3 BY934-X TEST FOR INITIAL LOAD CP204420 0484 4C28 048D 443 | BSC L BD050,Z+ BR IF INITIAL LOAD CP204430 0486 C3F6 444 | LD 3 BY920-X IF SLET SCTR FULL CP204440 0487 4C20 0490 445 | BSC L BD060,Z *THEN WRITE AND READ SLET CP204450 0489 C32A 446 | LD 3 BY982-X DOES SLET NEED WRITING CP204460 048A 4420 06E1 447 | BSI L WRIT3,Z ONLY WRITE SLET CP204470 048C 7005 448 | MDX BD080 ALREADY TOOK CARE OF SLET CP204480 048D 4400 0A52 449 | BD050 BSI L C1400 BR TO INSERT PRINCIPAL I/O CP204490 048F C3F6 450 | LD 3 BY920-X IF SLET SCTR FULL CP204500 451 | * WRITE SLET SCTR TO DISK AND CP204510 0490 4420 04EB 452 | BD060 BSI L BD200,Z *READ NEXT SLET SECTOR CP204520 0492 C323 453 | BD080 LD 3 BY975-X SET JUMP IN RECORD READ CP204530 0493 D400 05ED 454 | STO L CK060 CP204540 0495 C321 455 | LD 3 BY973-X SET INDC FOR REL SECTOR CP204550 0496 D306 456 | STO 3 BY939-X CP204560 0497 1810 457 | SRA 16 CLEAR RCRD COUNT FOR CK-SUM CP204570 0498 D30B 458 | STO 3 BY944-X CP204580 0499 D30A 459 | STO 3 BY943-X CP204590 460 | * SET INDC SO NEXT DATA RCRD CP204600 049A D400 05D8 461 | STO L BE900 *SETS REL ADDR WORD IN SCTR CP204610 049C D309 462 | STO 3 BY942-X SET INDC ON FOR SCTR BREAK CP204620 049D C3E1 463 | LD 3 BX914-X CP204630 049E D305 464 | STO 3 BY938-X CP204640 465 | * 2-4 CP204650 466 | * CHECK IF PHASE SIZE HAS SHRUNK DURING RELOAD 2-4 CP204660 467 | * 2-4 CP204670 049F C301 468 | BD090 LD 3 BY934-X TEST FOR INITIAL LOAD 2-4 CP204680 04A0 4C28 04B7 469 | BSC L BD095,Z+ BR IF INITIAL LOAD 2-4 CP204690 04A2 C32A 470 | LD 3 BY982-X WAS PHASE JUST STORED 2-4 CP204700 04A3 4C18 04B7 471 | BSC L BD095,+- BR IF NOT 2-4 CP204710 04A5 C335 472 | LD 3 BZ908-X BR IF NEW PROGRAM ADD 2-4 CP204720 04A6 4C20 04B7 473 | BSC L BD095,Z *IN PROCESS 2-4 CP204730 04A8 C325 474 | LD 3 BY977-X GET NEW WORD COUNT 2-4 CP204740 04A9 83E0 475 | A 3 BX913-X CALCULATE NUMBER OF 2-4 CP204750 04AA 1890 476 | SRT 16 *SECTORS IN 2-4 CP204760 04AB ABE1 477 | D 3 BX914-X *NEW RELOADED PHASE 2-4 CP204770 04AC D3E5 478 | STO 3 BY902-X SAVE NEW PHASE LENGTH 2-4 CP204780 04AD 930D 479 | S 3 BY947-X SUB OLD PHASE LENGTH 2-4 CP204790 04AE 4C10 04B7 480 | BSC L BD095,- BR IF NOT NOW SMALLER 2-4 CP204800 481 | * 2-4 CP204810 482 | * SET UP PARAMTERS FOR SLET UPDATE AND 2-4 CP204820 483 | * SYSTEM PROGRAM SHIFT 2-4 CP204830 484 | * 2-4 CP204840 04B0 D3E6 485 | STO 3 BY903-X SAVE LENGTH DIFFERENCE 2-4 CP204850 04B1 C3F1 486 | LD 3 BY915-X GET SCTR ADDR OF PHASE 2-4 CP204860 04B2 83E5 487 | A 3 BY902-X CALCULATE ADDR OF START 2-4 CP204870 04B3 D3F4 488 | STO 3 BY918-X *OF NEW GAP, 'TO' ADDR 2-4 CP204880 04B4 93E6 489 | S 3 BY903-X CALCULATE ADDR OF PHASE 2-4 CP204890 04B5 D3F3 490 | STO 3 BY917-X *AFTER GAP, 'FROM' ADDR 2-4 CP204900 04B6 4004 491 | BSI BD099 GO TO UPDATE/SHIFT SUBR 2-4 CP204910 492 | * 2-4 CP204920 04B7 1810 493 | BD095 SRA 16 INDICATE SLET DOESN'T 2-4 CP204930 04B8 D32A 494 | STO 3 BY982-X *NEED SETTING OR WRITING CP204940 04B9 4C00 038F 495 | BSC L BB000 BR TO READ NEXT RECORD CP204950 496 | * 2-4 CP204960 497 | ************************************************2-4 CP204970 498 | * 2-4 CP204980 499 | * UPDATE SLET TABLE ENTRIES AFFECTED BY LEFT 2-4 CP204990 500 | * SHIFT 2-4 CP205000 501 | * 2-4 CP205010 04BB 0000 502 | BD099 DC 0 ENTRY/RETURN ADDR 2-4 CP205020 04BC 1000 503 | NOP WAIT MAY BE PATCHED HERE2-4 CP205030 04BD 6A11 504 | BD100 STX 2 BD109 GET XR2 POINTER TO NEXT 2-4 CP205040 04BE C010 505 | LD BD109 *SLET ENTRY IN ACC, SUB 2-4 CP205050 04BF 93F0 506 | S 3 BY914-X *ADDR LAST ENTRY 2-4 CP205060 507 | * IF BUFFER IS FULL, 2-4 CP205070 508 | * WRITE SCTR BACK TO DISK 2-4 CP205080 04C0 4430 04EB 509 | BSI L BD200,-Z *AND READ NEXT SECTOR 2-4 CP205090 04C2 C400 0EBF 510 | LD L BUFR3+1 CHECK FOR END OF SLET 2-4 CP205100 04C4 9313 511 | S 3 BY956-X *SLET TABLE SECTORS 2-4 CP205110 04C5 4C30 04D2 512 | BSC L BD120,-Z BR IF BEYOND END 2-4 CP205120 04C7 C203 513 | LD 2 3 GET OLD PHASE SCTR ADDR 2-4 CP205130 04C8 4C18 04D0 514 | BSC L BD110,+- BR IF NO MORE ENTRIES 2-4 CP205140 04CA 93F3 515 | S 3 BY917-X UPDATE PHASE SCTR ADDR 2-4 CP205150 04CB 83F4 516 | A 3 BY918-X *BY AMOUNT OF SHIFT 2-4 CP205160 04CC D203 517 | STO 2 3 *DISPLACEMENT 2-4 CP205170 04CD 7204 518 | MDX 2 4 ADVANCE SLET ENTRY PTR 2-4 CP205180 04CE 70EE 519 | MDX BD100 BR TO TEST NEXT ENTRY 2-4 CP205190 04CF 0000 520 | BD109 DC *-* TEMP STORAGE FOR XR2 2-4 CP205200 04D0 4400 06E1 521 | BD110 BSI L WRIT3 WRITE BACK LAST SECTOR 2-4 CP205210 522 | * 2-4 CP205220 523 | * SHIFT REMAINDER OF SYSTEM PROGRAMS LEFT 2-4 CP205230 524 | * 2-4 CP205240 04D2 C3F9 525 | BD120 LD 3 BY924-X KNOWN ID OF LAST PHASE 2-4 CP205250 04D3 4400 0674 526 | BSI L SSLET SEARCH SLET FOR THIS ID 2-4 CP205260 04D5 4408 075A 527 | BSI L ER027,+ BR IF SOMEHOW MISSING 2-4 CP205270 04D7 C202 528 | LD 2 2 CALCULATE NUMBER OF 2-4 CP205280 04D8 83E0 529 | A 3 BX913-X *SECTORS IN LAST 2-4 CP205290 04D9 1890 530 | SRT 16 *SYSTEM PROGRAM 2-4 CP205300 04DA ABE1 531 | D 3 BX914-X *PHASE 2-4 CP205310 04DB 8203 532 | A 2 3 ADD STARTING SCTR ADDR 2-4 CP205320 04DC 93D6 533 | S 3 BX901-X SET NEW VALUE FOR 2-4 CP205330 04DD D304 534 | STO 3 BY937-X *LAST SECTOR USED 2-4 CP205340 04DE 83D6 535 | A 3 BX901-X ADD BACK 1 2-4 CP205350 04DF 93F4 536 | S 3 BY918-X NUMBER OF SCTRS TO SHIFT2-4 CP205360 04E0 D326 537 | STO 3 BY978-X *IS DIFFERENCE FROM 'TO'2-4 CP205370 04E1 C400 01F6 538 | LD L CAREA INCREMENT CUSHION SIZE 2-4 CP205380 04E3 83F3 539 | A 3 BY917-X *BY AMOUNT 2-4 CP205390 04E4 93F4 540 | S 3 BY918-X *OF SHIFT 2-4 CP205400 04E5 D400 01F6 541 | STO L CAREA *DISPLACEMENT 2-4 CP205410 04E7 4400 0A5E 542 | BSI L C0300 GO DO THE LEFT SHIFT 2-4 CP205420 04E9 4C80 04BB 543 | BSC I BD099 RETURN FROM SUBROUTINE 2-4 CP205430 544 | * CP205440 545 | *************************************************** CP205450 546 | * CP205460 547 | * WRITE A SECTOR OF SLET AND READ NEXT SECTOR CP205470 548 | * OF SLET. CP205480 549 | * CP205490 04EB 0000 550 | BD200 DC 0 ENTRY/RETURN ADDRESS CP205500 04EC 1810 551 | SRA 16 RESET SLET SCTR FULL CP205510 04ED D3F6 552 | STO 3 BY920-X *INDICATOR CP205520 04EE 4400 06E1 553 | BSI L WRIT3 BR TO WRITE SLET SECTOR CP205530 04F0 7401 0EBF 554 | MDX L BUFR3+1,1 BUMP TO NEXT SLET SCTR ADDR CP205540 04F2 4400 0668 555 | BSI L FTCH3 BR TO READ SLET SECTOR CP205550 04F4 6680 087E 556 | LDX I2 BY913 SET XR2 ADDR 1ST SLET SET CP205560 04F6 6E00 09BB 557 | STX L2 C1020+1 *AND SAVE IN 'C1020'+1 CP205570 04F8 4C80 04EB 558 | BSC I BD200 RETURN CP205580 PROCESS A TYPE 'A' DATA RECORD 04FA 0000 560 | BE000 DC 0 ENTRY CP205600 04FB 1810 561 | SRA 16 SET CP205610 04FC D3FD 562 | STO 3 BY928-X *TYPE 'F' INDICATOR AND CP205620 04FD D3FC 563 | STO 3 BY927-X *TYPE '1' INDICATOR OFF CP205630 04FE 6C00 088E 564 | STX L0 BY933 SET TYPE 'A' INDR ON CP205640 0500 C308 565 | LD 3 BY941-X IF BAD PHASE BEING FLUSHED CP205650 0501 4C20 038F 566 | BSC L BB000,Z *BR TO READ NEXT RECORD CP205660 0503 C3FA 567 | LD 3 BY925-X IS SYS LDR BYPASSING PHASES CP205670 0504 4C18 0518 568 | BSC L BE080,+- BR IF NOT BYPASSING PHASE CP205680 569 | * CP205690 570 | * SYSTEM LOADER IS BYPASSING PHASES CP205700 571 | * CP205710 0506 C306 572 | LD 3 BY939-X CP205720 0507 4C18 05D2 573 | BSC L BE560,-+ BR IF SCTR BREAK INDR OFF CP205730 0509 C10B 574 | LD 1 11 PHASE ID FROM 1ST DATA RCD CP205740 050A 4C10 050E 575 | BSC L BE020,- IF PHASE ID NEGATIVE CP205750 050C 1810 576 | SRA 16 *MAKE IT CP205760 050D 910B 577 | S 1 11 *POSITIVE CP205770 050E 93FB 578 | BE020 S 3 BY926-X PASS TAPE UNTIL PH ID TO CP205780 050F 4C28 05D2 579 | BSC L BE560,+Z *GO TO IS REACHED CP205790 580 | * CP205800 581 | * A PROGRAM HAS JUST BEEN BYPASSED. INDICATORS 2-3 CP205810 582 | * ARE CLEARED. THE HANDLING OF BYPASS LIMITS 2-3 CP205820 583 | * HAS BEEN MOVED TO BE086. 2-3 CP205830 584 | * CP205840 0511 1810 585 | SRA 16 CP205850 0512 D3FA 586 | STO 3 BY925-X CLEAR INDICATOR CP205860 0513 D308 587 | STO 3 BY941-X CLEAR PHASE BYPASS INDR CP205870 0514 D30B 588 | STO 3 BY944-X CLEAR CK-SUM RCD SEQ CTR CP205880 0515 C323 589 | LD 3 BY975-X RE-INITIALIZE CKSUM SUBR CP205890 0516 D400 05ED 590 | STO L CK060 CP205900 591 | * CP205910 592 | * CODING REMOVED. 2-3 CP205920 593 | * CP205930 0518 C103 594 | BE080 LD 1 3 FETCH TYPE & WD COUNT CP205940 0519 E314 595 | AND 3 BY957-X MASK OUT TYPE CP205950 051A D061 596 | STO BE240+1 SAVE WORD COUNT FROM RECORD CP205960 051B 4400 05D9 597 | BSI L CKSUM BR TO CHECK-SUM SUBROUTINE CP205970 051D C306 598 | LD 3 BY939-X TEST FOR NEW SCTR SIGNAL CP205980 051E 4C18 0579 599 | BSC L BE220,+- BR IF NOT NEW SECTOR CP205990 600 | * CP206000 601 | * PROCESS FIRST DATA RECORD AFTER SECTOR BREAK CP206010 602 | * RECORD. CP206020 603 | * CP206030 0520 C400 057C 604 | LD L BE240+1 FETCH WORD COUNT CP206040 0522 93D6 605 | S 3 BX901-X SUBTRACT 1 CP206050 0523 4408 0704 606 | BSI L ER004,+ BR IF WORD COUNT 0 OR 1 CP206060 0525 C3ED 607 | LD 3 BY911-X PREVIOUS CURRENT PHASE NOW CP206070 0526 D3EE 608 | STO 3 BY912-X *IS OLD PHASE CP206080 0527 C10B 609 | LD 1 11 PHASE ID FROM FIRST RECORD CP206090 0528 4C10 052C 610 | BSC L BE085,- IF PHASE ID NEGATIVE CP206100 052A 1810 611 | SRA 16 *MAKE CP206110 052B 910B 612 | S 1 11 *POSITIVE CP206120 052C D3ED 613 | BE085 STO 3 BY911-X SET NEW CURRENT PHASE ID CP206130 614 | * CP206140 615 | * BYPASS TEST FOR INITIAL LOAD AND RELOAD. CP206150 616 | * PROGRAMS TO BE SKIPPED BY THIS TEST CP206160 617 | * WERE INDICATED ON LOAD MODE RECORD CP206170 618 | * CP206180 619 | * THE SKIP TABLE IS SEARCHED AND CHECKED 2-3 CP206190 620 | * ON EACH OCCASION UNTIL - THE END OF THE TABLE 2-3 CP206200 621 | * IS REACHED OR THE CURRENT SLET ID IS FOUND TO 2-3 CP206210 622 | * BE LESS THAN A LOWER LIMIT OR THE CURRENT 2-3 CP206220 623 | * SLET ID FITS INTO A LIMIT PAIR. 2-3 CP206230 624 | * CP206240 052D 6600 022A 625 | LDX L2 LOLIM LD ADDR OF SKIP TABLE 2-3 CP206250 052F C200 626 | BE086 LD 2 0 CHK IF NO MORE PAIRS 2-3 CP206260 0530 93E2 627 | S 3 BX915-X *IN SKIP TABLE 2-3 CP206270 0531 4C18 0547 628 | BSC L BE090,+- *BR IF END OF SKIP TBL 2-3 CP206280 0533 C3ED 629 | LD 3 BY911-X IS CURRENT SLET ID 2-3 CP206290 0534 9200 630 | S 2 0 *LESS THAN LOWER LIMIT 2-3 CP206300 0535 4C28 0547 631 | BSC L BE090,+Z *BR ON YES 2-3 CP206310 0537 C3ED 632 | LD 3 BY911-X IS CURRENT SLET ID LESS 2-3 CP206320 0538 9201 633 | S 2 1 *THAN OR EQU UPPER LIMIT2-3 CP206330 0539 4C08 053D 634 | BSC L BE087,+ *BR IF YES 2-3 CP206340 053B 7202 635 | MDX 2 2 POINT TO NEXT PAIR 2-3 CP206350 053C 70F2 636 | MDX BE086 *AND CHECK AGAIN 2-3 CP206360 053D C201 637 | BE087 LD 2 1 GET UPPER LIMIT OF 2-3 CP206370 053E 83D6 638 | A 3 BX901-X *BY-PASS PAIR, ADD ONE CP206380 053F D3FB 639 | STO 3 BY926-X PH ID BEING LOOKED FOR CP206390 0540 D3FA 640 | STO 3 BY925-X SET BYPASSING INDR ON CP206400 0541 1000 641 | NOP A WAIT MAY BE PATCHED HERE CP206410 0542 C301 642 | LD 3 BY934-X IF RELOAD CP206420 0543 4410 0BCD 643 | BSI L C0720,- *BR TO REMOVE ANY SLET REF CP206430 0545 4C00 05D2 644 | BSC L BE560 BR TO FLUSH DATA RECORDS CP206440 645 | * CP206450 646 | * THIS PHASE IS TO BE LOADED CP206460 647 | * CP206470 648 | * SAVE DATA FROM PHASES WITH NEGATIVE IDS FOR CP206480 649 | * SPECIAL RELOAD TABLE. CP206490 650 | * CP206500 0547 C10B 651 | BE090 LD 1 11 LOAD PHASE ID CP206510 0548 4C08 054E 652 | BSC L BE100,+ BR IF RELOAD TABLE ENTRY CP206520 054A C301 653 | LD 3 BY934-X TEST FOR AND BR IF RELOAD CP206530 054B 4410 0BCD 654 | BSI L C0720,- *TO CHK FOR ID IN TABLE CP206540 054D 701E 655 | MDX BE180 INITIAL LOAD, NO SLET REF CP206550 656 | * CP206560 657 | * THIS PHASE MAKES SLET TABLE REFERENCE CP206570 658 | * CP206580 054E C400 057C 659 | BE100 LD L BE240+1 VERIFY THAT WD CNT IS AT CP206590 0550 93D9 660 | S 3 BX904-X *LEAST 4, ELSE CP206600 0551 4428 071C 661 | BSI L ER021,Z+ *BR TO DISPLAY ERROR E 21 CP206610 0553 C400 0C38 662 | LD L BUFR1 TEST WD CNT NOW IN RELOAD CP206620 0555 93E1 663 | S 3 BX914-X *TABLE CP206630 0556 83D7 664 | A 3 BX902-X IF 318 OR OVER, CP206640 0557 4410 0773 665 | BSI L ER030,- *BR TO DISPLAY ERROR E 30 CP206650 0559 1810 666 | SRA 16 MAKE NEGATIVE CP206660 055A 910B 667 | S 1 11 *PHASE ID CP206670 055B D10B 668 | STO 1 11 *POSITIVE CP206680 055C D400 0C3A 669 | BE120 STO L BUFR1+2 ST IN RELOAD TABLE BUFFER CP206690 055E C10C 670 | LD 1 12 CP206700 055F D400 0C3B 671 | BE140 STO L BUFR1+3 ST RLTV LOC IN SPEC PHASE CP206710 0561 C10D 672 | LD 1 13 CP206720 0562 D400 0C3C 673 | BE160 STO L BUFR1+4 ST NO. OF SETS REQUIRED CP206730 0564 7403 055D 674 | MDX L BE120+1,3 MODIFY STORAGE ADDRESS CP206740 0566 7403 0560 675 | MDX L BE140+1,3 MODIFY STORAGE ADDRESS CP206750 0568 7403 0563 676 | MDX L BE160+1,3 MODIFY STORAGE ADDRESS CP206760 056A 7403 0C38 677 | MDX L BUFR1,3 BUMP WD CNT FOR FILE BY 3 CP206770 056C 4C00 09B9 678 | BE180 BSC L OVLAY+3 BRANCH TO OVERLAY 0 OR 1 CP206780 679 | * CP206790 680 | * OVERLAY 0 OR 1 NORMALLY RETURNS HERE CP206800 681 | * CP206810 056E C3EC 682 | BE200 LD 3 BY910-X 1ST SCTR ADDR OF NEW PHASE CP206820 056F D30C 683 | STO 3 BY945-X CP206830 0570 D3F1 684 | STO 3 BY915-X SAVE FOR SLET CP206840 0571 6C00 08B8 685 | STX L0 BY981 INDICATE PROG DATA TO WRITE CP206850 0573 C008 686 | LD BE240+1 LOAD WORD COUNT CP206860 0574 93D7 687 | S 3 BX902-X MODIFY WD CNT FROM RECORD CP206870 0575 D006 688 | STO BE240+1 SAVE TO SET IN XR2 CP206880 0576 C31C 689 | LD 3 BY966-X FETCH NOP CODING CP206890 0577 D006 690 | STO BE260 CANCEL SKIP PAST INST TO CP206900 0578 7002 691 | MDX BE240 *ADD TWO. BR TO LOAD XR2 CP206910 0579 C31E 692 | BE220 LD 3 BY969-X NOP THE ADD 2 INSTRUCTION CP206920 057A D003 693 | STO BE260 *BY INSERTING A JUMP CP206930 057B 6600 0000 694 | BE240 LDX L2 *-* WORD COUNT OF RECORD CP206940 057D C101 695 | LD 1 1 SAVE CORE LOC OF 1ST WORD CP206950 057E 7002 696 | BE260 MDX BE280 AT SCTR BREAKS, ADDR OF CP206960 057F 8400 0866 697 | A L BX902 *FIRST DATA WD IS 2 LARGER CP206970 0581 7400 05D8 698 | BE280 MDX L0 BE900,0 IF NOT 0 DONT SET RLTV ADDR CP206980 0583 700B 699 | MDX BE320 BR TO TEST LOAD ADDR OF WD CP206990 700 | * CP207000 701 | * DETERMINE RELATIVE ADDRESS FROM CP207010 702 | * ADDRESS OF FIRST WORD IN SECTOR CP207020 703 | * CP207030 0584 93D6 704 | BE300 S 3 BX901-X SUBTRACT ONE CP207040 0585 7401 0899 705 | MDX L BY943,1 INCR CORR FACTOR CTR CP207050 0587 4C20 0584 706 | BSC L BE300,Z LOOP UNTIL ZERO CP207060 0589 C30A 707 | LD 3 BY943-X *AND SAVE RESULTING ADDR CP207070 058A D307 708 | STO 3 BY940-X SET UP CORRECTION FACTOR CP207080 058B 6C00 05D8 709 | STX L0 BE900 TURN INDC OFF CP207090 058D C101 710 | LD 1 1 RELOAD ORIGINAL ADDRESS CP207100 058E 83D7 711 | A 3 BX902-X 1ST 2 WDS ARE NOT STORED CP207110 712 | * CP207120 058F 9307 713 | BE320 S 3 BY940-X SUBTRACT RLTV ADDR IN SCTR CP207130 0590 4428 0704 714 | BSI L ER004,Z+ BR IF ORG BACKWARDS CP207140 0592 D303 715 | BE340 STO 3 BY936-X DATA WORD ON RECORD CP207150 0593 93F5 716 | S 3 BY919-X COMPARE RLTV ADDR WITH THE CP207160 0594 4C08 0598 717 | BSC L BE380,+ *HIGHEST SO FAR. BR IF LOW CP207170 0596 C303 718 | LD 3 BY936-X SAVE HIGHEST 'BY936' VALUE CP207180 0597 D3F5 719 | STO 3 BY919-X *FOR SLET TABLE CP207190 0598 C303 720 | BE380 LD 3 BY936-X 'BY936' CLIMBS WITH EACH WD CP207200 0599 1890 721 | SRT 16 SET UP FOR DIVIDE CP207210 059A ABE1 722 | D 3 BX914-X DIVIDE BY WDS PER SCTR CP207220 059B DBE3 723 | STD 3 BY900-X SAVE QUOTIENT & REMAINDER CP207230 059C C335 724 | LD 3 BZ908-X IF A PROGRAM IS BEING ADDED CP207240 059D 4C20 05A4 725 | BSC L BE400,Z *BR AROUND LENGTH CHECK CP207250 059F CBE3 726 | LDD 3 BY900-X SECTORS AND WDS ADDITIONAL CP207260 05A0 930D 727 | S 3 BY947-X PHASE LENGTH IN SECTORS CP207270 05A1 4C10 0AC7 728 | BSC L C0500,- BRANCH IF A SHIFT REQUIRED CP207280 05A3 830D 729 | A 3 BY947-X ADD PHASE LENGTH IN SECTORS CP207290 05A4 9305 730 | BE400 S 3 BY938-X BR IF NO SCTR CHANGE REQ CP207300 05A5 4C18 05BB 731 | BSC L BE480,+- PROGRAM ALREADY IN CORE CP207310 05A7 C309 732 | LD 3 BY942-X TEST FOR AND BR IF CP207320 05A8 4C20 05AF 733 | BSC L BE440,Z *END OF PROG INDR ON CP207330 05AA C3E3 734 | LD 3 BY900-X SET INDR WITH CP207340 05AB D305 735 | STO 3 BY938-X *SCTR COUNT FROM DIVIDE CP207350 05AC 7401 0898 736 | MDX L BY942,1 SET SCTR BREAK INDR OFF CP207360 05AE 7005 737 | MDX BE460 BR TO SET UP A SCTR ADDR CP207370 05AF C3E3 738 | BE440 LD 3 BY900-X SET INDR FOR THIS SCTR CP207380 05B0 D305 739 | STO 3 BY938-X OF PHASE CP207390 05B1 4400 06B6 740 | BSI L WRIT2 WRITE A SECTOR CP207400 05B3 C3E3 741 | LD 3 BY900-X FETCH QUOTIENT CP207410 05B4 830C 742 | BE460 A 3 BY945-X ADD SECTOR ADDRESS CP207420 05B5 D3F2 743 | STO 3 BY916-X MAINTAIN CURR SCTR ADDR CP207430 05B6 D400 0D7B 744 | STO L BUFR2+1 SET SECTOR ADDR IN BUFFER CP207440 05B8 4400 065C 745 | BSI L FTCH2 READ INTO 'BUFR2' FROM DISK CP207450 05BA CBE3 746 | LDD 3 BY900-X FETCH SPECS FOR THIS PHASE CP207460 05BB 1090 747 | BE480 SLT 16 LOAD DISP IN CORE BUFFER CP207470 05BC 83D7 748 | A 3 BX902-X INCR BY 2 CP207480 05BD 830E 749 | A 3 BY950-X SET UP RLTV STORAGE LOC CP207490 05BE D00B 750 | STO BE520+1 *IN CORE BUFFER CP207500 05BF C306 751 | LD 3 BY939-X TEST FOR SCTR BREAK CP207510 05C0 4C18 05C5 752 | BSC L BE500,+- BR IF NO SCTR BREAK CP207520 05C2 1810 753 | SRA 16 CLEAR NEW SCTR INDR CP207530 05C3 D306 754 | STO 3 BY939-X CP207540 05C4 7102 755 | MDX 1 2 FETCH 3RD DATA WORD INSTEAD CP207550 05C5 C10A 756 | BE500 LD 1 10 NO SCTR ADDR IN THIS RECORD CP207560 05C6 7200 757 | MDX 2 0 SKIP IF XR2 IS ZERO CP207570 05C7 7001 758 | MDX BE520 *ELSE STORE A WORD CP207580 05C8 7007 759 | MDX BE540 BR TO READ NEXT RECORD CP207590 05C9 D400 0000 760 | BE520 STO L *-* DATA WORD TO DISK BUFFER CP207600 05CB C303 761 | LD 3 BY936-X INCR RLTV ADDR POINTER CP207610 05CC 83D6 762 | A 3 BX901-X *BY ONE CP207620 05CD 7101 763 | MDX 1 1 POINT TO NEXT WD OF RECORD CP207630 05CE 72FF 764 | MDX 2 -1 SKIP AFTER LAST DATA WORD CP207640 05CF 70C2 765 | MDX BE340 BR TO PROCESS NEXT DATA WD CP207650 05D0 4C00 038F 766 | BE540 BSC L BB000 BR TO READ NEXT RECORD CP207660 767 | * CP207670 768 | * SYSTEM LOADER SKIPPING THIS PHASE CP207680 769 | * CP207690 05D2 C3D8 770 | BE560 LD 3 BX903-X SET CP207700 05D3 D308 771 | STO 3 BY941-X *BYPASS RECORDS INDR ON CP207710 05D4 1810 772 | SRA 16 CLEAR CP207720 05D5 D306 773 | STO 3 BY939-X *SECTOR BREAK INDICATOR CP207730 05D6 4C00 038F 774 | BSC L BB000 BRANCH TO READ NEXT RECORD CP207740 775 | * CP207750 776 | * WORK AREAS CP207760 777 | * CP207770 05D8 0000 778 | BE900 DC *-* TO SET RLTV SCTR WD IN SCTR CP207780 779 | * CP207790 780 | *************************************************** CP207800 781 | * CP207810 782 | * PROCESS THE CHECKSUM CP207820 783 | * CP207830 05D9 0000 784 | CKSUM DC 0 ENTRY/RETURN ADDRESS CP207840 05DA C400 03BF 785 | CK020 LD L PKBFR+1 FETCH WORD 2 CP207850 05DC 4C98 05D9 786 | BSC I CKSUM,+- RETURN IF NO CHECKSUM CP207860 05DE 7401 089A 787 | MDX L BY944,1 INCREMENT THE SEQ NO. CP207870 05E0 1000 788 | NOP AVOID POSSIBLE SKIP CP207880 05E1 6600 0000 789 | CK030 LDX L2 *-* XR2 = NO. WORDS PER RECORD CP207890 05E3 C30B 790 | LD 3 BY944-X FETCH SEQUENCE NUMBER CP207900 05E4 8600 03BD 791 | CK040 A L2 PKBFR-1 ADD A WORD CP207910 05E6 4802 792 | BSC C SKIP IF NO CARRY CP207920 05E7 83D6 793 | A 3 BX901-X ADD ONE CP207930 05E8 72FF 794 | MDX 2 -1 DECR WORD CNT, SKIP IF ZERO CP207940 05E9 70FA 795 | MDX CK040 BRANCH TO ADD NEXT WORD CP207950 05EA 93D6 796 | S 3 BX901-X TEST FOR AND CP207960 05EB 4C98 05D9 797 | BSC I CKSUM,+- *RETURN IF BLANK RECORD CP207970 05ED 7008 798 | CK060 MDX CK080 'NOP' IF SEQUENCE ERROR CP207980 799 | * CP207990 05EE C0F3 800 | LD CK030+1 GET WORDCOUNT 2-9 CP207999 05EF 4400 06EC 801 | BSI L ER001 BR TO PRINT ERROR MSG E 01 CP208000 05F1 74FF 089A 802 | MDX L BY944,-1 DECREMENT SEQUENCE NUMBER CP208010 05F3 1000 803 | NOP CP208020 05F4 4C00 038F 804 | BSC L BB000 BRANCH TO READ NEXT RECORD CP208030 805 | * CP208040 05F6 F31B 806 | CK080 EOR 3 BY965-X COMPLIMENT AND CP208050 05F7 D30B 807 | STO 3 BY944-X *STORE CHECKSUM CP208060 05F8 C31C 808 | LD 3 BY966-X CANCEL CP208070 05F9 D0F3 809 | STO CK060 *RESET ABILITY CP208080 05FA 70DF 810 | MDX CK020 BRANCH TO PROCESS AGAIN CP208090 END OF PROGRAM - 'F' RCRD PROCESSING 05FB 0000 812 | BF000 DC 0 ENTRY CP208110 05FC 6C00 088C 813 | STX L0 BY928 SET TYPE F INDR ON CP208120 05FE C3FA 814 | LD 3 BY925-X TEST NOW SKIPPING INDICATOR CP208130 05FF EB08 815 | OR 3 BY941-X *OR FLUSH THIS PHASE INDR CP208140 0600 4C20 038F 816 | BSC L BB000,Z BR TO READ NEXT RCD IF ON CP208150 0602 C3FF 817 | LD 3 BY933-X VERIFY THAT 'F' FOLLOWS 'A' CP208160 0603 4418 06FE 818 | BSI L ER003,+- BR IF IT DOES NOT CP208170 0605 1810 819 | SRA 16 CP208180 0606 D3FF 820 | STO 3 BY933-X SET TYPE 'A' INDR OFF CP208190 0607 D329 821 | STO 3 BY981-X IND NO PROG DATA TO WRITE CP208200 0608 4400 06B6 822 | BSI L WRIT2 WRITE PROGRAM DATA TO DISK CP208210 060A 6680 09BB 823 | LDX I2 C1020+1 RESTORE XR2 POINTER TO SLET CP208220 060C C3F5 824 | LD 3 BY919-X FINISH THIS SLET SET CP208230 060D 83D6 825 | A 3 BX901-X *IN CASE THIS SHOULD CP208240 060E D2FE 826 | STO 2 -2 *BE THE LAST OR ONLY CP208250 060F D325 827 | STO 3 BY977-X SAVE FOR SHRINK TEST 2-4 CP208260 0610 C3F1 828 | LD 3 BY915-X *PHASE LOADED CP208270 0611 D2FF 829 | STO 2 -1 CP208280 0612 4400 06E1 830 | BSI L WRIT3 WRITE SLET SECTOR TO DISK CP208290 0614 1810 831 | SRA 16 CP208300 0615 D3F5 832 | STO 3 BY919-X RESET WORD COUNT EACH PHASE CP208310 0616 4C00 049F 833 | BSC L BD090 BR TO CHECK FOR GAP 2-4 CP208320 834 | * CP208330 835 | *************************************************** CP208340 END OF SYSTEM DECK - PROCESS '81' RCD 0618 0000 837 | BG000 DC 0 ENTRY/RETURN ADDRESS CP208360 0619 C3FD 838 | LD 3 BY928-X IF 'F' RECORD WAS MISSING CP208370 061A 4418 06FE 839 | BSI L ER003,+- *DISPLAY OUT OF SEQ ERROR CP208380 061C C301 840 | LD 3 BY934-X IF RELOAD, BRANCH TO CP208390 061D 4C10 0627 841 | BSC L BG060,- *TEST ADD PROGRAM INDICATOR CP208400 061F C3FE 842 | LD 3 BY931-X TEST FOR LAST REQ PH DONE CP208410 0620 4420 0733 843 | BSI L ER024,Z ERROR IF ANY PH MISSING CP208420 844 | * CP208430 845 | * WHEN 'ER024' RETURNS, PRETEND NOTHING IS MISSING CP208440 846 | * CP208450 847 | * SET UP TO FETCH OVERLAY 2 CP208460 848 | * CP208470 0622 C316 849 | BG040 LD 3 BY960-X FETCH SECTOR ADDRESS OF, CP208480 0623 6600 09B9 850 | LDX L2 C2000 *ENTRY POINT TO CP208490 0625 4400 063F 851 | BSI L BH000 *AND BR TO FETCH OVERLAY 2 CP208500 852 | * CP208510 0627 C335 853 | BG060 LD 3 BZ908-X TEST ADD PROGRAM SWITCH CP208520 0628 4C18 0622 854 | BSC L BG040,+- BRANCH IF OFF CP208530 062A C400 0229 855 | LD L LPHID TEST IF ALL PHASES IN 2-9 CP208540 062C 93ED 856 | S 3 BY911-X CP208550 062D 4430 0733 857 | BSI L ER024,-Z ERROR IF PHASE MISSING 2-9 CP208560 858 | * CP208570 859 | * CALCULATE NEW LET ADDRESS CP208580 860 | * CP208590 062F C304 861 | LD 3 BY937-X FETCH LAST SCTR ADDR USED CP208600 0630 1803 862 | SRA 3 DECR TO LAST CYLINDER ADDR CP208610 0631 1003 863 | SLA 3 ADD 1 CYL MORE, AND 1 CYL CP208620 0632 83DE 864 | A 3 BX910-X *FOR CUSHION, 1 FOR SCRA, CP208630 0633 D330 865 | STO 3 BZ903-X *AND 2 FOR CIB. 40 SCTRS. CP208640 0634 D3F4 866 | STO 3 BY918-X SAVE ALSO AS 'TO' ADDR 2-4 CP208650 0635 C315 867 | LD 3 BY958-X CALCULATE 2-4 CP208660 0636 9400 0203 868 | S L SHIFT *'FROM' 2-4 CP208670 0638 D3F3 869 | STO 3 BY917-X *ADDR 2-4 CP208680 0639 C400 0203 870 | LD L SHIFT SET SECTORS TO SHIFT 2-4 CP208690 063B D326 871 | STO 3 BY978-X *COUNT 2-4 CP208700 063C 4400 0A5E 872 | BSI L C0300 GO SHIFT LET/UA LEFT 2-4 CP208710 063E 70E3 873 | MDX BG040 SETUP PRINC DEVICE ENTRIES CP208720 FETCH AND BRANCH TO OVERLAYS 063F 0000 875 | BH000 DC 0 ENTRY CP208740 0640 6A0C 876 | STX 2 BH020 STORE OVERLAY ENTRY ADDRESS CP208750 0641 D400 09B7 877 | STO L OVLAY+1 STORE OVERLAY SCTR ADDRESS CP208760 0643 C00C 878 | LD BH902 FETCH AND CP208770 0644 D400 09B6 879 | STO L OVLAY *STORE OVERLAY WORD COUNT CP208780 0646 C807 880 | LDD BH900 FETCH FUNC CODE/I/O AR ADDR CP208790 0647 4400 00F2 881 | BSI L DZ000 BRANCH TO FETCH OVERLAY CP208800 0649 7400 00EE 882 | BH010 MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE CP208810 064B 70FD 883 | MDX BH010 BR TO TEST READ COMPLETE CP208820 064C 4C00 0000 884 | BSC L *-* BRANCH TO THE OVERLAY CP208830 064D 885 | BH020 EQU *-1 ADDRESS OF OVERLAY ENTRY CP208840 886 | * CP208850 887 | * CONSTANTS AND WORK AREAS CP208860 888 | * CP208870 064E 889 | BSS E 0 FORCE NEXT LOC TO BE EVEN CP208880 064E 0000 890 | BH900 DC /0000 READ FUNCTION CODE CP208890 064F 09B6 891 | DC OVLAY ADDRESS OF OVERLAY I/O AREA CP208900 0650 0280 892 | BH902 DC 2*@SCNT WORD COUNT OF OVERLAYS CP208910 MISCELLANEOUS SUBROUTINES 894 | *************************************************** CP208930 895 | * CP208940 896 | * SET INDICATORS TO BYPASS PHASE CP208950 897 | * CP208960 0651 0000 898 | BYPAS DC 0 ENTRY CP208970 0652 C3D6 899 | LD 3 BX901-X SET CP208980 0653 D308 900 | STO 3 BY941-X *BYPASS PHASES INDICATOR ON CP208990 0654 1810 901 | SRA 16 CLEAR CP209000 0655 D306 902 | STO 3 BY939-X *FIRST DATA RECORD INDR CP209010 0656 D329 903 | STO 3 BY981-X IND NO PROG DATA TO STORE CP209020 0657 D32A 904 | STO 3 BY982-X IND NO SLET TO FINISH CP209030 0658 C32B 905 | LD 3 BY983-X REDUCE HIGHEST SCTR ADDR CP209040 0659 D304 906 | STO 3 BY937-X *WRITTEN TO PREV VALUE CP209050 065A 4C00 038F 907 | BSC L BB000 BRANCH TO READ NEXT RECORD CP209060 908 | * CP209070 909 | *************************************************** CP209080 910 | * CP209090 911 | * READ A SECTOR FROM DISK. CP209100 912 | * CP209110 065C 0000 913 | FTCH2 DC 0 ENTRY/RETURN ADDRESS CP209120 065D C808 914 | LDD F2900 FETCH FUNC CODE, I/O ADDR CP209130 065E 4400 00F2 915 | BSI L DZ000 BRANCH TO READ A SECTOR CP209140 0660 7400 00EE 916 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE CP209150 0662 70FD 917 | MDX *-3 BR TO TEST READ COMPLETE CP209160 0663 4C80 065C 918 | BSC I FTCH2 RETURN CP209170 919 | * CP209180 920 | * CONSTANTS AND WORK AREAS CP209190 921 | * CP209200 0666 922 | BSS E 0 FORCE NEXT LOC TO BE EVEN CP209210 0666 0000 923 | F2900 DC /0000 READ FUNCTION CODE CP209220 0667 0D7A 924 | DC BUFR2 ADDRESS OF I/O AREA CP209230 925 | * CP209240 926 | *************************************************** CP209250 927 | * CP209260 928 | * READ A SECTOR OF SLET. CP209270 929 | * CP209280 0668 0000 930 | FTCH3 DC 0 ENTRY/RETURN ADDRESS CP209290 0669 C808 931 | LDD F3900 FETCH FUNC CODE, I/O ADDR CP209300 066A 4400 00F2 932 | BSI L DZ000 BRANCH TO READ A SECTOR CP209310 066C 7400 00EE 933 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE CP209320 066E 70FD 934 | MDX *-3 BR TO TEST READ COMPLETE CP209330 066F 4C80 0668 935 | BSC I FTCH3 RETURN CP209340 936 | * CP209350 937 | * CONSTANTS AND WORK AREAS CP209360 938 | * CP209370 0672 939 | BSS E 0 FORCE NEXT LOC TO BE EVEN CP209380 0672 0000 940 | F3900 DC /0000 READ FUNCTION CODE CP209390 0673 0EBE 941 | DC BUFR3 ADDRESS OF SLET I/O AREA CP209400 942 | * CP209410 943 | *************************************************** CP209420 944 | * CP209430 945 | * SLET SEARCH SUBROUTINE. CP209440 946 | * CP209450 0674 0000 947 | SSLET DC 0 ENTRY/RETURN ADDRESS CP209460 0675 D01C 948 | STO SS900 SAVE PHASE ID TO SEARCH FOR CP209470 0676 6918 949 | STX 1 SS080+1 SAVE XR1 CP209480 0677 C312 950 | LD 3 BY955-X STORE FIRST CP209490 0678 D400 0EBF 951 | STO L BUFR3+1 *SLET SCTR ADDR TO BUFFER CP209500 067A 40ED 952 | SS020 BSI FTCH3 BR TO FETCH A SLET SECTOR CP209510 067B 6680 087E 953 | LDX I2 BY913 XR2 POINT TO FIRST SLET SET CP209520 067D 6150 954 | LDX 1 80 XR1 INDICATES SETS PER SCTR CP209530 067E C013 955 | SS040 LD SS900 FETCH THE PHASE ID CP209540 067F 9200 956 | S 2 0 TEST FOR AND BRANCH CP209550 0680 4C18 068D 957 | BSC L SS060,+- *IF MATCH FOUND IN SLET CP209560 0682 7204 958 | MDX 2 4 INCREMENT SLET SET POINTER CP209570 0683 71FF 959 | MDX 1 -1 DECR SET CNT, SKIP IF ZERO CP209580 0684 70F9 960 | MDX SS040 BRANCH TO TEST NEXT SET CP209590 0685 C400 0EBF 961 | LD L BUFR3+1 FETCH SLET SECTOR ADDRESS CP209600 0687 9313 962 | S 3 BY956-X TEST FOR AND BRANCH IF LAST CP209610 0688 4C18 068E 963 | BSC L SS080,+- *SLET SCTR (RET PH ID = 0) CP209620 068A 7401 0EBF 964 | MDX L BUFR3+1,1 INCR SLET SECTOR ADDRESS CP209630 068C 70ED 965 | MDX SS020 BR TO FETCH NEXT SLET SCTR CP209640 068D C004 966 | SS060 LD SS900 FETCH FOUND PHASE ID CP209650 068E 6500 0000 967 | SS080 LDX L1 *-* RESTORE XR1 CP209660 0690 4C80 0674 968 | BSC I SSLET RETURN CP209670 969 | * CP209680 970 | * CONSTANTS AND WORK AREAS CP209690 971 | * CP209700 0692 0000 972 | SS900 DC *-* PHASE ID BEING LOOKED FOR CP209710 973 | * CP209720 974 | *************************************************** CP209730 975 | * CP209740 976 | * UPDATE CORE ADDRESS OF PHASE AND STORE IN SLET. CP209750 977 | * CP209760 0693 0000 978 | UPCAD DC 0 ENTRY/RETURN ADDRESS CP209770 0694 C3ED 979 | LD 3 BY911-X FETCH ID OF CURRENT PHASE CP209780 0695 D200 980 | STO 2 0 *AND STORE TO SLET CP209790 0696 C400 03BE 981 | LD L PKBFR FETCH ADDR OF CURR PROGRAM CP209800 0698 D201 982 | STO 2 1 *AND STORE TO SLET CP209810 0699 6A0F 983 | STX 2 UP900 SAVE XR2 CP209820 069A C00E 984 | LD UP900 FETCH SLET POINTER CP209830 069B 93F0 985 | S 3 BY914-X TEST FOR AND CP209840 069C 4C20 06A0 986 | BSC L UP040,Z *BRANCH IF NOT LAST SET CP209850 069E 6C00 0885 987 | STX L0 BY920 SET SLET UPDATE INDR ON CP209860 06A0 7204 988 | UP040 MDX 2 4 INCR TO NEXT SLET SET CP209870 06A1 6E00 09BB 989 | STX L2 C1020+1 STORE NEW SLET SET POINTER CP209880 06A3 6500 03BD 990 | LDX L1 PKBFR-1 XR1 POINTS TO RECORD BUFFER CP209890 06A5 6C00 08B9 991 | STX L0 BY982 IND SLET ENTRY TO FINISH CP209900 06A7 4C80 0693 992 | BSC I UPCAD RETURN CP209910 993 | * CP209920 06A9 0000 994 | UP900 DC *-* TEMPORARY XR2 STORAGE CP209930 995 | * CP209940 996 | *************************************************** CP209950 997 | * CP209960 998 | * WRITE RELOAD TABLE TO DISK. CP209970 999 | * CP209980 06AA 0000 1000 | WRIT1 DC 0 ENTRY/RETURN ADDRESS CP209990 06AB C808 1001 | LDD W1900 FETCH FUNC CODE, I/O ADDR CP210000 06AC 4400 00F2 1002 | BSI L DZ000 BR TO WRITE RELOAD TABLE CP210010 06AE 7400 00EE 1003 | W1040 MDX L $DBSY,0 SKIP IF WRITE COMPLETE CP210020 06B0 70FD 1004 | MDX W1040 BR TO TEST WRITE COMPLETE CP210030 06B1 4C80 06AA 1005 | BSC I WRIT1 RETURN CP210040 1006 | * CP210050 1007 | * CONSTANTS AND WORK AREAS. CP210060 1008 | * CP210070 06B4 1009 | BSS E 0 FORCE NEXT LOC TO BE EVEN CP210080 06B4 0001 1010 | W1900 DC /0001 WRITE FUNCTION CODE CP210090 06B5 0C38 1011 | DC BUFR1 ADDRESS OF RELOAD TABLE BFR CP210100 1012 | * CP210110 1013 | *************************************************** CP210120 1014 | * CP210130 1015 | * WRITE A SECTOR TO THE DISK. CP210140 1016 | * CP210150 06B6 0000 1017 | WRIT2 DC 0 ENTRY/RETURN ADDRESS CP210160 06B7 C400 0D7B 1018 | LD L BUFR2+1 FETCH SECTOR ADDRESS CP210170 06B9 F400 0EBC 1019 | EOR L B2END TEST FOR AND CP210180 06BB 4C98 06B6 1020 | BSC I WRIT2,+- *RETURN IF NOT SET CP210190 06BD C022 1021 | LD W2902 FETCH '81' RECORD INDR CP210200 06BE 4C18 06C8 1022 | BSC L W2100,+- BRANCH IF NOT SET CP210210 06C0 C81D 1023 | W2040 LDD W2900 FETCH FUNC CODE, I/O ADDR CP210220 06C1 4400 00F2 1024 | BSI L DZ000 BRANCH TO WRITE A SECTOR CP210230 06C3 7400 00EE 1025 | MDX L $DBSY,0 SPIP NEXT IF WRITE COMPLETE CP210240 06C5 70FD 1026 | MDX *-3 BR TO TEST WRITE COMPLETE CP210250 06C6 4C80 06B6 1027 | BSC I WRIT2 RETURN CP210260 1028 | * CP210270 1029 | * SAVE ADDRESS OF HIGHEST SECTOR TO WHICH A CP210280 1030 | * PROGRAM WAS LOADED. CP210290 1031 | * CP210300 06C8 C304 1032 | W2100 LD 3 BY937-X FETCH PREVIOUS HIGH SECTOR CP210310 06C9 9400 0D7B 1033 | S L BUFR2+1 TEST FOR AND CP210320 06CB 4C10 06D0 1034 | BSC L W2140,- *BRANCH IF GT THIS SECTOR CP210330 06CD C400 0D7B 1035 | LD L BUFR2+1 RESET CP210340 06CF D304 1036 | STO 3 BY937-X *HIGH SECTOR ADDRESS CP210350 06D0 C301 1037 | W2140 LD 3 BY934-X FETCH LOAD MODE INDICATOR CP210360 06D1 4C28 06C0 1038 | BSC L W2040,+Z BRANCH IF AN INITIAL LOAD CP210370 06D3 C335 1039 | LD 3 BZ908-X TEST FOR AND CP210380 06D4 4C20 06C0 1040 | BSC L W2040,Z *BRANCH IF PROGRAM(S) ADDED CP210390 06D6 C302 1041 | LD 3 BY935-X FETCH SECTOR ADDRESS OF CIB CP210400 06D7 93DC 1042 | S 3 BX908-X TEST FOR CP210410 06D8 9400 0D7B 1043 | S L BUFR2+1 *AND BRANCH IF CP210420 06DA 4C30 06C0 1044 | BSC L W2040,Z- *NO ATTEMPT TO OVERLAY SCRA CP210430 06DC 4400 0725 1045 | BSI L ER022 BR TO PRINT ERROR MSG E 22 CP210440 1046 | * CP210450 1047 | * CONSTANTS AND WORK AREAS CP210460 1048 | * CP210470 06DE 1049 | BSS E 0 FORCE NEXT LOC TO BE EVEN CP210480 06DE 0001 1050 | W2900 DC /0001 WRITE FUNCTION CODE CP210490 06DF 0D7A 1051 | DC BUFR2 ADDRESS OF I/O BUFFER CP210500 06E0 0000 1052 | W2902 DC *-* '81' RECORD READ INDICATOR CP210510 1053 | * CP210520 1054 | *************************************************** CP210530 1055 | * CP210540 1056 | * WRITE A SLET SECTOR. CP210550 1057 | * CP210560 06E1 0000 1058 | WRIT3 DC 0 ENTRY/RETURN ADDRESS CP210570 06E2 C807 1059 | LDD W3900 FETCH FUNC CODE, I/O ADDR CP210580 06E3 4400 00F2 1060 | BSI L DZ000 BRANCH TO WRITE A SLET SCTR CP210590 06E5 7400 00EE 1061 | MDX L $DBSY,0 SKIP NEXT IF WRITE COMPLETE CP210600 06E7 70FD 1062 | MDX *-3 BR TO TEST WRITE COMPLETE CP210610 06E8 4C80 06E1 1063 | BSC I WRIT3 RETURN CP210620 1064 | * CP210630 1065 | * CONSTANTS AND WORK AREAS CP210640 1066 | * CP210650 06EA 1067 | BSS E 0 FORCE NEXT LOC TO BE EVEN CP210660 06EA 0001 1068 | W3900 DC /0001 WRITE FUNCTION CODE CP210670 06EB 0EBE 1069 | DC BUFR3 ADDRESS OF SLET I/O AREA CP210680 PRINT ERROR MESSAGES 06EC 0000 1071 | ER001 DC 0 ENTRY/RETURN ADDRESS CP210700 06ED 1001 1072 | SLA 1 GET FRAMECOUNT 2-9 CP210701 06EE 83D7 1073 | A 3 BX902-X ADD 2 FRAMES FOR WC 2-9 CP210702 06EF D3E9 1074 | STO 3 BY906-X STORE FOR DISPLAY 2-9 CP210703 06F0 6500 0236 1075 | LDX L1 MSG01+1 POINT TO ERROR MESSAGE E 01 CP210710 06F2 6680 0235 1076 | LDX I2 MSG01 FETCH WORD CNT OF MSG E 01 CP210720 06F4 4400 085B 1077 | BSI L CNPTR PRINT THE MESSAGE CP210730 06F6 4C80 06EC 1078 | BSC I ER001 RETURN CP210740 1079 | * CP210750 06F8 0000 1080 | ER002 DC 0 ENTRY/RETURN ADDRESS CP210760 06F9 6500 0242 1081 | LDX L1 MSG02+1 POINT TO ERROR MESSAGE E 02 CP210770 06FB 6680 0241 1082 | LDX I2 MSG02 FETCH WORD CNT OF MSG E 02 CP210780 06FD 7023 1083 | MDX ER100 BRANCH TO PRINT MESSAGE CP210790 1084 | * CP210800 06FE 0000 1085 | ER003 DC 0 ENTRY/RETURN ADDRESS CP210810 06FF 6500 0252 1086 | LDX L1 MSG03+1 POINT TO ERROR MESSAGE E 03 CP210820 0701 6680 0251 1087 | LDX I2 MSG03 FETCH WORD CNT OF MSG E 03 CP210830 0703 701D 1088 | MDX ER100 BRANCH TO PRINT MESSAGE CP210840 1089 | * CP210850 0704 0000 1090 | ER004 DC 0 ENTRY/RETURN ADDRESS CP210860 0705 6500 0265 1091 | LDX L1 MSG04+1 POINT TO ERROR MESSAGE E 04 CP210870 0707 6680 0264 1092 | LDX I2 MSG04 FETCH WORD CNT OF MSG E 04 CP210880 0709 7017 1093 | MDX ER100 BRANCH TO PRINT MESSAGE CP210890 1094 | * CP210900 070A 0000 1095 | ER005 DC 0 ENTRY/RETURN ADDRESS CP210910 070B 6500 0270 1096 | LDX L1 MSG05+1 POINT TO ERROR MESSAGE E 05 CP210920 070D 6680 026F 1097 | LDX I2 MSG05 FETCH WORD CNT OF MSG E 05 CP210930 070F 707A 1098 | MDX ER620 PRINT ABORT MESSAGE CP210940 1099 | * CP210950 0710 0000 1100 | ER018 DC 0 ENTRY/RETURN CP210960 0711 6500 0797 1101 | LDX L1 MSG18+1 POINT TO MESSAGE CP210970 0713 6680 0796 1102 | LDX I2 MSG18 FETCH WORD COUNT CP210980 0715 7074 1103 | MDX ER620 PRINT ABORT MESSAGE CP210990 1104 | * CP211000 0716 0000 1105 | ER020 DC 0 ENTRY/RETURN ADDRESS CP211010 0717 6500 07A4 1106 | LDX L1 MSG20+1 POINT TO ERROR MESSAGE E 20 CP211020 0719 6680 07A3 1107 | LDX I2 MSG20 FETCH WORD CNT OF MSG E 20 CP211030 071B 7044 1108 | MDX ER600 BRANCH TO PRINT THE MESSAGE CP211040 1109 | * CP211050 071C 0000 1110 | ER021 DC 0 ENTRY/RETURN ADDRESS CP211060 071D 6500 07B2 1111 | LDX L1 MSG21+1 POINT TO ERROR MESSAGE E 21 CP211070 071F 6680 07B1 1112 | LDX I2 MSG21 FETCH WORD CNT OF MSG E 21 CP211080 0721 4400 085B 1113 | ER100 BSI L CNPTR PRINT THE MESSAGE CP211090 0723 4C00 038F 1114 | BSC L BB000 BRANCH TO READ NEXT RECORD CP211100 1115 | * CP211110 0725 0000 1116 | ER022 DC 0 ENTRY/RETURN ADDRESS CP211120 0726 6500 07BF 1117 | LDX L1 MSG22+1 POINT TO ERROR MESSAGE E 22 CP211130 0728 6680 07BE 1118 | LDX I2 MSG22 FETCH WORD CNT OF MSG E 22 CP211140 072A 7035 1119 | MDX ER600 BRANCH TO PRINT MESSAGE CP211150 1120 | * CP211160 072B 0000 1121 | ER023 DC 0 ENTRY/RETURN ADDRESS CP211170 072C 6500 07CD 1122 | LDX L1 MSG23+1 POINT TO ERROR MESSAGE E 23 CP211180 072E 6680 07CC 1123 | LDX I2 MSG23 FETCH WORD CNT OF MSG E 23 CP211190 0730 C400 03C8 1124 | LD L PKBFR-1+11 FETCH PHASE ID CP211200 0732 7012 1125 | MDX ER400 BRANCH TO STORE PHASE ID CP211210 1126 | * CP211220 0733 0000 1127 | ER024 DC 0 ENTRY/RETURN ADDRESS CP211230 0734 6500 07DE 1128 | LDX L1 MSG24+1 POINT TO ERROR MESSAGE E 24 CP211240 0736 6680 07DD 1129 | LDX I2 MSG24 FETCH WORD CNT OF MSG E 24 CP211250 0738 C400 03C8 1130 | LD L PKBFR-1+11 FETCH PHASE ID CP211260 073A D3E9 1131 | STO 3 BY906-X STORE PHASE ID FOR DISPLAY CP211270 073B 4400 085B 1132 | BSI L CNPTR PRINT THE MESSAGE CP211280 073D 4C80 0733 1133 | BSC I ER024 RETURN CP211290 1134 | * CP211300 073F 0000 1135 | ER025 DC 0 ENTRY/RETURN ADDRESS CP211310 0740 6500 07E9 1136 | LDX L1 MSG25+1 POINT TO ERROR MESSAGE E 25 CP211320 0742 6680 07E8 1137 | LDX I2 MSG25 FETCH WORD CNT OF MSG E 25 CP211330 0744 C3ED 1138 | ER300 LD 3 BY911-X FETCH PHASE ID CP211340 0745 D3E9 1139 | ER400 STO 3 BY906-X STORE PHASE ID FOR DISPLAY CP211350 0746 4400 085B 1140 | BSI L CNPTR PRINT THE MESSAGE CP211360 0748 4400 0651 1141 | BSI L BYPAS BRANCH TO BYPASS THE PHASE CP211370 1142 | * CP211380 074A 0000 1143 | ER026 DC 0 ENTRY/RETURN ADDRESS CP211390 074B 6909 1144 | STX 1 ER510+1 SAVE XR1 CP211400 074C 6A0A 1145 | STX 2 ER520+1 SAVE XR2 CP211410 074D DBE9 1146 | STD 3 BY906-X STORE DISPLAY CP211420 074E 6500 07FC 1147 | LDX L1 MSG26+1 POINT TO ERROR MESSAGE E 26 CP211430 0750 6680 07FB 1148 | LDX I2 MSG26 FETCH WORD CNT OF MSG E 26 CP211440 0752 4400 085B 1149 | BSI L CNPTR PRINT THE MESSAGE CP211450 0754 6500 0000 1150 | ER510 LDX L1 *-* RESTORE XR1 CP211460 0756 6600 0000 1151 | ER520 LDX L2 *-* RESTORE XR2 CP211470 0758 4C80 074A 1152 | BSC I ER026 RETURN CP211480 1153 | * CP211490 075A 0000 1154 | ER027 DC 0 ENTRY/RETURN ADDRESS CP211500 075B 6500 080B 1155 | LDX L1 MSG27+1 POINT TO ERROR MESSAGE E 27 CP211510 075D 6680 080A 1156 | LDX I2 MSG27 FETCH WORD CNT OF MSG E 27 CP211520 075F 702A 1157 | MDX ER620 PRINT ABORT MESSAGE CP211530 1158 | * CP211540 0760 4400 085B 1159 | ER600 BSI L CNPTR PRINT THE MESSAGE CP211550 0762 1000 1160 | NOP A WAIT MAY BE PATCHED HERE CP211560 0763 6C00 08C5 1161 | ER610 STX L0 BZ909 SET INDR AND ATTEMPT FINISH CP211570 0765 4C00 0622 1162 | BSC L BG040 BRANCH TO FETCH OVERLAY 2 CP211580 1163 | * CP211590 0767 0000 1164 | ER028 DC 0 ENTRY/RETURN ADDRESS CP211600 0768 6500 0817 1165 | LDX L1 MSG28+1 POINT TO ERROR MESSAGE E 28 CP211610 076A 6680 0816 1166 | LDX I2 MSG28 FETCH WORD CNT OF MSG E 28 CP211620 076C 70D7 1167 | MDX ER300 BRANCH TO FETCH DISPLAY CP211630 1168 | * CP211640 076D 0000 1169 | ER029 DC 0 ENTRY/RETURN ADDRESS CP211650 076E 6500 0820 1170 | LDX L1 MSG29+1 POINT TO ERROR MESSAGE E 29 CP211660 0770 6680 081F 1171 | LDX I2 MSG29 FETCH WORD CNT OF MSG E 29 CP211670 0772 70D1 1172 | MDX ER300 BRANCH TO DISPLAY PHASE ID CP211680 1173 | * CP211690 0773 0000 1174 | ER030 DC 0 ENTRY CP211700 0774 6500 082E 1175 | LDX L1 MSG30+1 POINT TO ERROR MESSAGE E 30 CP211710 0776 6680 082D 1176 | LDX I2 MSG30 FETCH WORD CNT OF MSG E 30 CP211720 0778 70CB 1177 | MDX ER300 BRANCH TO PRINT MESSAGE CP211730 1178 | * CP211740 0779 0000 1179 | ER130 DC 0 ENTRY CP211750 077A 6500 082E 1180 | LDX L1 MSG30+1 POINT TO ERROR MESSAGE E 30 CP211760 077C 6680 082D 1181 | LDX I2 MSG30 FETCH WORD CNT OF MSG E 30 CP211770 077E 700B 1182 | MDX ER620 PRINT ABORT MESSAGE CP211780 1183 | * CP211790 077F 0000 1184 | ER031 DC 0 ENTRY CP211800 0780 6500 083B 1185 | LDX L1 MSG31+1 POINT TO ERROR MESSAGE E 31 CP211810 0782 6680 083A 1186 | LDX I2 MSG31 FETCH WORD CNT OF MSG E 31 CP211820 0784 7005 1187 | MDX ER620 PRINT ABORT MESSAGE CP211830 1188 | * CP211840 1189 | * CP211850 0785 0000 1190 | ER032 DC 0 ENTRY CP211860 0786 6500 084B 1191 | LDX L1 MSG32+1 POINT TO ERROR MSG E 32 CP211870 0788 6680 084A 1192 | LDX I2 MSG32 FETCH WD CNT OF MSG E 32 CP211880 078A 6907 1193 | ER620 STX 1 ER660+1 SAVE XR1 CP211890 078B 6A08 1194 | STX 2 ER670+1 SAVE XR2 CP211900 078C C400 0692 1195 | LD L SS900 LOAD MISSING PHASE ID CP211910 078E D3E9 1196 | STO 3 BY906-X SAVE FOR ACCUM DISPLAY CP211920 078F 4400 085B 1197 | ER640 BSI L CNPTR PRINT THE MESSAGE CP211930 0791 6500 0000 1198 | ER660 LDX L1 *-* RESTORE XR1 FOR REPRINT CP211940 0793 6600 0000 1199 | ER670 LDX L2 *-* RESTORE XR2 FOR REPRINT CP211950 0795 70F9 1200 | MDX ER640 NO RECOVERY, PRINT AGAIN CP211960 1201 | * CP211970 1202 | * ERROR MESSAGES CP211980 1203 | * CP211990 0796 000C 1204 | MSG18 DC MSG20-* WD COUNT OF MESSAGE E 18 CP212000 0797 8134 21FC E421 543C 1205 | DMES 'RE 18 PAPER TAPE ERROR'R'E CP212010 5434 6021 9C3C 5434 | 2134 6060 5060 8121 | 1206 | * CP212020 07A3 000D 1207 | MSG20 DC MSG21-* WORD COUNT OF MESSAGE E 20 CP212030 07A4 8134 21D8 C421 1020 1208 | DMES 'RE 20 FIXED AREA PRESENT'R'E CP212040 9434 3021 3C60 343C | 2154 6034 9834 749C | 8121 | 07B1 000C 1209 | MSG21 DC MSG22-* WORD COUNT OF MESSAGE E 21 CP212050 07B2 8134 21D8 FC21 98A4 1210 | DMES 'RE 21 SYSTEM TAPE ERROR'R'E CP212060 989C 3470 219C 3C54 | 3421 3460 6050 6081 | 07BE 000D 1211 | MSG22 DC MSG23-* WORD COUNT OF MESSAGE E 22 CP212070 07BF 8134 21D8 D821 981C 1212 | DMES 'RE 22 SCRA OVERLAY - STOP'R'E CP212080 603C 2150 B434 605C | 3CA4 2184 2198 9C50 | 5481 | 07CC 0010 1213 | MSG23 DC MSG24-* WORD COUNT OF MESSAGE E 23 CP212090 07CD 8134 21D8 DC21 5424 1214 | DMES 'RE 23 PHASE ID OUT OF SEQUENCE'R'E CP212100 3C98 3421 2030 2150 | B09C 2150 1021 9834 | 64B0 3474 1C34 8121 | 07DD 000A 1215 | MSG24 DC MSG25-* WORD COUNT OF MESSAGE E 24 CP212110 07DE 8134 21D8 F021 5424 1216 | DMES 'RE 24 PHASE MISSING'R'E CP212120 3C98 3421 7020 9898 | 2074 1481 | 07E8 0012 1217 | MSG25 DC MSG26-* WORD COUNT OF MESSAGE E 25 CP212130 07E9 8134 21D8 F421 5424 1218 | DMES 'RE 25 PHASE ID NOT IN PHID RECORD 'R CP212140 3C98 3421 2030 2174 | 509C 2120 7421 5424 | 2030 2160 341C 5060 | 3021 8121 | 07FB 000E 1219 | MSG26 DC MSG27-* WORD COUNT OF MESSAGE E 26 CP212150 07FC 8134 21D8 D021 5424 1220 | DMES 'RE 26 PHASE ID NOT IN SLET'R'E CP212160 3C98 3421 2030 2174 | 509C 2120 7421 985C | 349C 8121 | 080A 000B 1221 | MSG27 DC MSG28-* WORD COUNT OF MESSAGE E 27 CP212170 080B 8134 21D8 D421 3034 1222 | DMES 'RE 27 DEFECTIVE SLET'R'E CP212180 1034 1C9C 20B4 3421 | 985C 349C 8121 | 0816 0008 1223 | MSG28 DC MSG29-* WORD COUNT OF MESSAGE E 28 CP212190 0817 8134 21D8 E421 985C 1224 | DMES 'RE 28 SLET FULL'R'E CP212200 349C 2110 B05C 5C81 | 081F 000D 1225 | MSG29 DC MSG30-* WORD COUNT OF MESSAGE E 29 CP212210 0820 8134 21D8 E021 5460 1226 | DMES 'RE 29 PROGRAM NOT PRESENT'R'E CP212220 5014 603C 7021 7450 | 9C21 5460 3498 3474 | 9C81 | 082D 000C 1227 | MSG30 DC MSG31-* WORD COUNT OF MESSAGE E 30 CP212230 082E 8134 21DC C421 6034 1228 | DMES 'RE 30 RELOAD TABLE FULL'R'E CP212240 5C50 3C30 219C 3C18 | 5C34 2110 B05C 5C81 | 083A 000F 1229 | MSG31 DC MSG32-* WORD COUNT OF MESSAGE E 31 CP212250 083B 8134 21DC FC21 7020 1230 | DMES 'RE 31 MISSING PHASE ID DUE TO' CP212260 9898 2074 1421 5424 | 3C98 3421 2030 2130 | B034 219C | 0849 5021 1231 | DMES DEFECTIVE SLET OR RELOAD TABLE'R'E CP212270 084A 0010 1232 | MSG32 DC MSG33-* WORD COUNT OF MESSAGE E 32 CP212280 084B 8134 21DC D821 7020 1233 | DMES 'RE 32 MISSING SYSTEM I/O PHASE'R'E CP212290 9898 2074 1421 98A4 | 989C 3470 2120 BC50 | 2154 243C 9834 8121 | 085B 1234 | MSG33 BSS 0 CP212300 1235 | * CP212310 1236 | * PRINT TO THE CONSOLE PRINTER AND WAIT. CP212320 1237 | * CP212330 085B 0000 1238 | CNPTR DC 0 ENTRY/RETURN ADDRESS CP212340 085C 4400 0287 1239 | BSI L WRTYZ BR TO CONSOLE PRINTER SUBR CP212350 085E CBE9 1240 | LDD 3 BY906-X FETCH ACC, EXT TO DISPLAY CP212360 085F 4400 0028 1241 | BSI L $PRET BRANCH TO PRE-OP TRAP CP212370 0861 10A0 1242 | SLT 32 CLEAR CP212380 0862 DBE9 1243 | STD 3 BY906-X *DISPLAY WORDS CP212390 0863 4C80 085B 1244 | BSC I CNPTR RETURN CP212400 PHASE 2 CONSTANTS AND WORK AREAS 0865 0001 1246 | BX901 DC 1 CONSTANT ONE CP212420 0866 0002 1247 | BX902 DC 2 CONSTANT TWO CP212430 0867 0003 1248 | BX903 DC 3 CONSTANT THREE CP212440 0868 0004 1249 | BX904 DC 4 CONSTANT FOUR CP212450 0869 0005 1250 | BX905 DC 5 CONSTANT FIVE CP212460 086A 0006 1251 | BX906 DC 6 CONSTANT SIX CP212470 086B 0008 1252 | BX908 DC 8 CONSTANT EIGHT CP212480 086C 0010 1253 | BX909 DC 16 NO. OF SCTRS IN 2 CYLINDERS CP212490 086D 0028 1254 | BX910 DC 40 NO. OF SCTRS IN 5 CYLINDERS CP212500 086E 0072 1255 | BX912 DC /0072 USED TO DETERMINE RCD TYPE CP212510 086F 013F 1256 | BX913 DC @SCNT-1 NO. OF WORDS PER SECTOR - 1 CP212520 0870 0140 1257 | BX914 DC @SCNT NO. OF WORDS PER SECTOR CP212530 0871 0999 1258 | BX915 DC /0999 CON FOR END OF SKIP TBL 2-3 CP212540 0872 1259 | BSS E 0 FORCE NEXT LOC TO BE EVEN CP212550 0872 0000 1260 | BY900 DC *-* USED TO DETERMINE SCTR ADDR CP212560 0873 0000 1261 | DC *-* *AND RLTV LOC OF DATA WORDS CP212570 0874 0000 1262 | BY902 DC *-* USED TO DETERMINE NO. OF CP212580 0875 0000 1263 | BY903 DC *-* *SECTORS A PHASE OCCUPIES CP212590 0876 0000 1264 | BY904 DC *-* CURRENT CP212600 0877 0000 1265 | BY905 DC *-* *PHASE ID LIMITS CP212610 0878 0000 1266 | BY906 DC *-* DISPLAY CP212620 0879 0000 1267 | DC *-* *WORDS CP212630 087A 0001 1268 | BY909 DC 1 FIRST PHASE ID OF A PAIR CP212640 087B 0008 1269 | BY910 DC 8 1ST SCTR ADDR OF NEW PHASE CP212650 087C 0000 1270 | BY911 DC *-* CURRENT PHASE ID CP212660 087D 0000 1271 | BY912 DC *-* PREVIOUS PHASE ID CP212670 087E 0EC0 1272 | BY913 DC BUFR3+2 ADDRESS OF FIRST SLET SET CP212680 087F 0FFC 1273 | BY914 DC BUFR3+2+316 ADDRESS OF LAST SLET SET CP212690 0880 0000 1274 | BY915 DC *-* 1ST SCTR ADDR OF EACH PHASE CP212700 0881 0000 1275 | BY916 DC *-* CURRENT SECTOR ADDRESS CP212710 0882 0000 1276 | BY917 DC *-* FROM ADDRESS FOR FETCH CP212720 0883 0000 1277 | BY918 DC *-* TO ADDRESS FOR STORE CP212730 0884 0000 1278 | BY919 DC *-* MAXIMUM WORD CNT PER PHASE CP212740 0885 0000 1279 | BY920 DC *-* SLET UPDATE INDICATOR CP212750 0886 0003 1280 | BY922 DC @RLTB-@SLET NO. OF SECTOR OF SLET CP212760 0887 0000 1281 | BY923 DC *-* HIGHEST SCTR USED BY SYS CP212770 0888 0000 1282 | BY924 DC *-* PHASE ID OF LAST SYS PROG CP212780 0889 0000 1283 | BY925 DC *-* BYPASSING PHASES INDICATOR CP212790 088A 0000 1284 | BY926 DC *-* PHASE ID TO BE BYPASSED CP212800 088B 0000 1285 | BY927 DC *-* SECTOR BREAK RECORD INDR CP212810 088C 0001 1286 | BY928 DC 1 TYPE 'F' RECORD INDICATOR CP212820 088D 0001 1287 | BY931 DC 1 LAST PHASE INDICATOR CP212830 088E 0000 1288 | BY933 DC *-* TYPE 'A' RECORD INDICATOR CP212840 088F 0000 1289 | X DC *-* FOR EMERGENCY USE CP212850 0890 0000 1290 | BY934 DC *-* LOAD MODE INDICATOR CP212860 0891 0333 1291 | BY935 DC /0333 SECTOR ADDRESS OF CIB CP212870 0892 0000 1292 | BY936 DC *-* CORE ADDR OF CURR DATA WORD CP212880 0893 0007 1293 | BY937 DC 7 HIGHEST SCTR ADDR WRITTEN CP212890 0894 0000 1294 | BY938 DC *-* SCTR ADDR OF SECTOR IN CORE CP212900 0895 0000 1295 | BY939 DC *-* FIRST DATA RECORD INDR CP212910 0896 0000 1296 | BY940 DC *-* CORE ADDRESS CORRECTION CP212920 0897 0000 1297 | BY941 DC *-* PHASE BYPASS INDICATOR CP212930 0898 0000 1298 | BY942 DC 0 END OF PROGRAM INDICATOR CP212940 0899 0000 1299 | BY943 DC 0 USED TO SET CORRECTION CP212950 089A 0000 1300 | BY944 DC 0 CHECKSUM SEQUENCE COUNTER CP212960 089B 0001 1301 | BY945 DC 1 1ST SCTR ADDR OF NEW PHASE CP212970 089C 7777 1302 | BY947 DC /7777 PHASE LENGTH IN SECTORS CP212980 089D 0D7A 1303 | BY950 DC BUFR2 ADDRESS OF DATA BUFFER CP212990 089E 010A 1304 | BY951 DC $ZEND-@CSTR-4-2 RLTV LOC OF CIL DATA CP213000 089F 0001 1305 | BY952 DC @DCOM DCOM SECTOR ADDRESS CP213010 08A0 0002 1306 | BY954 DC @RIAD SECTOR ADDRESS OF RES IMAGE CP213020 08A1 0003 1307 | BY955 DC @SLET FIRST SLET SECTOR ADDRESS CP213030 08A2 0005 1308 | BY956 DC @SLET+2 THIRD SLET SECTOR ADDRESS CP213040 08A3 00FF 1309 | BY957 DC /00FF MASK OUT TYPE IN WORD 3 CP213050 08A4 0630 1310 | BY958 DC @P2AD SCTR ADDR OF SYS LDR PH 2 CP213060 08A5 063A 1311 | BY960 DC @P2AD+5+2+3 SCTR ADDR OF OVERLAY 2 CP213070 08A6 063C 1312 | BY961 DC @P2AD+5+2+3+2 SCTR ADDR OF OVERLAY 3 CP213080 08A7 063F 1313 | BY962 DC /063F MAXIMUM SECTOR ADDRESS CP213090 08A8 0FFA 1314 | BY963 DC @MNCR-6 WORD COUNT OF CIB CP213100 08A9 8000 1315 | BY964 DC /8000 NEGATIVE SIGN BIT CP213110 08AA FFFF 1316 | BY965 DC /FFFF COMPLIMENTING MASK CP213120 08AB 1000 1317 | BY966 NOP 'NOP' INSTRUCTION CP213130 08AC 7000 1318 | BY967 MDX * SKIP INSTRUCTION CP213140 08AD 7002 1319 | BY969 MDX *+2 SKIP INSTRUCTION CP213150 08AE 7005 1320 | BY970 MDX X C1050-C1030-1 SKIP INSTRUCTION CP213160 08AF 3FFF 1321 | BY972 DC /3FFF USED TO MASK FOR LEFT BITS CP213170 08B0 9400 7FFF 1322 | BY973 S L /7FFF SUBTRACT INSTRUCTION CP213180 08B1 1323 | BY974 EQU *-1 USED TO MASK OUT SIGN BIT CP213190 08B2 7008 1324 | BY975 MDX X CK080-CK060-1 CHECKSUM SKIP INST CP213200 08B3 70FF 1325 | BY976 DC /70FF INST FOR LOOP IN LOC 0 2-8 CP213210 08B4 0000 1326 | BY977 DC *-* PHASE FINAL WORD COUNT 2-4 CP213220 08B5 0000 1327 | BY978 DC *-* NO. OF SCTRS TO SHIFT 2-4 CP213230 08B6 0000 1328 | BY979 DC *-* AVAILABLE 2-4 CP213240 08B7 0000 1329 | BY980 DC *-* AVAILABLE 2-4 CP213250 08B8 0000 1330 | BY981 DC *-* PROG DATA TO WRITE INDR CP213260 08B9 0000 1331 | BY982 DC *-* SLET ENTRY HALF DONE INDR CP213270 08BA 0007 1332 | BY983 DC 7 HIGHEST SCTR ADDR RECOVERY CP213280 08BC 1333 | BSS E 0 FORCE NEXT LOC TO BE EVEN CP213290 08BC 0000 1334 | BZ900 DC *-* QUOTIENT FROM MOVE SUBR CP213300 08BD 0000 1335 | BZ901 DC *-* REMAINDER FROM MOVE SUBR CP213310 08BE 0000 1336 | BZ902 DC *-* AVAILABLE 2-4 CP213320 08BF 0000 1337 | BZ903 DC *-* NEW LET SECTOR ADDRESS CP213330 08C0 0226 1338 | BZ904 DC PAIRE ADDR OF PAIR 14 (LAST PAIR) CP213340 08C1 021A 1339 | BZ905 DC PAIR8 ADDR OF PAIR 08 CP213350 08C2 0000 1340 | BZ906 DC *-* NEW MINUS OLD LET SCTR ADDR CP213360 08C3 0000 1341 | BZ907 DC *-* NO. OF SCTRS IN SHIFT BFR CP213370 08C4 0000 1342 | BZ908 DC 0 NEW PROGRAM RELOADED INDR CP213380 08C5 0000 1343 | BZ909 DC *-* END RELOAD/XEQ MODIF INDR CP213390 08C6 0000 1344 | BZ910 DC @IDAD CARTRIDGE ID SECTOR ADDRESS CP213400 08C7 0000 1345 | BZ911 DC *-* LOAD NO MORE PHASES INDR CP213410 08C8 0000 1346 | BZ912 DC *-* PROGRAM MAY BE ADDED INDR CP213420 08C9 0000 1347 | BZ913 DC *-* PHASE ID OF NEXT PROG - 1 CP213430 1348 | * CP213440 1349 | * LEVEL 4 INTERRUPT BRANCH TABLE CP213450 1350 | * CP213460 08CA 0028 1351 | DC $PRET PRE-OPERATIVE ERROR TRAP CP213470 08CB 1352 | BZ930 BSS 4 RESERVED CP213480 08CF 0000 1353 | DC *-* 1403 PRINTER CP213490 08D0 0000 1354 | DC *-* 2501 CARD READER CP213500 08D1 0000 1355 | DC *-* 1442 CARD READER CP213510 08D2 0289 1356 | DC TZ100 CONSOLE PRINTER CP213520 08D3 02C6 1357 | DC PT000+4 PAPER TAPE READER/PUNCH CP213530 1358 | * CP213540 1359 | * CP213550 08D4 1360 | BSS BA000+5*@SCNT-*-2 PATCH AREA CP213560 1361 | * CP213570 1362 | * CP213580 09B5 1363 | BZ999 EQU *-1 END OF PHASE 2 MAINLINE CP213590 OVERLAY 0 - EXPAND SYS PROG AREA 09B6 1365 | ORG BA000+5*@SCNT-2 ALLOW 5 SECTOR ML CP213610 1366 | * CP213620 1367 | * CP213630 09B6 0280 1368 | OVLAY DC C0999-C0000+2 WORD CNT OF OVERLAY 0 CP213640 09B7 0635 1369 | DC @P2AD+5 SCTR ADDR OF OVERLAY 0 CP213650 1370 | * CP213660 1371 | * CP213670 09B8 0000 1372 | DC 0 INDICATES OVERLAY 0 CP213680 09B9 7002 1373 | C0000 MDX C0020 BR AROUND MODIFIABLE PT CP213690 09BA 6600 0EC0 1374 | LDX L2 BUFR3+2 2ND HALF IS USED ELSEWHERE CP213700 09BC C335 1375 | C0020 LD 3 BZ908-X IF INDR ON, NEW PROG IS CP213710 09BD 4C18 09DB 1376 | BSC L C0050,+- *BEING ADDED. BR IF OFF CP213720 09BF C400 0B3D 1377 | LD L C0610+1 FETCH A PAIR ADDRESS CP213730 09C1 83D6 1378 | A 3 BX901-X POINT TO 2ND OF PAIR CP213740 09C2 D00E 1379 | STO C0040+1 PLACE ADDR IN INSTRUCTION CP213750 09C3 C10B 1380 | LD 1 11 WHEN LAST PHASE TO LOAD CP213760 09C4 9400 01FC 1381 | S L MAXPH *IS REACHED, AN INDICATOR CP213770 09C6 D3FE 1382 | STO 3 BY931-X *IS CLEARED CP213780 09C7 C33A 1383 | LD 3 BZ913-X IF NON-ZERO, USE AS PH ID CP213790 09C8 4820 1384 | BSC Z *IN SEQUENCE TEST CP213800 09C9 D3EE 1385 | STO 3 BY912-X REPLACE PREVIOUS PH ID CP213810 09CA C3ED 1386 | LD 3 BY911-X CURRENT PHASE CP213820 09CB 93EE 1387 | S 3 BY912-X PREVIOUS PHASE CP213830 09CC 93D6 1388 | S 3 BX901-X SEQUENCE TEST CP213840 09CD 4C20 0BA4 1389 | BSC L C0660,Z BRANCH IF NOT IN SEQUENCE CP213850 09CF D33A 1390 | STO 3 BZ913-X CLEAR SPECIAL PH ID CP213860 09D0 C400 0000 1391 | C0040 LD L *-* THIS PHASE SHOULD NOT CP213870 09D2 93ED 1392 | S 3 BY911-X *EXCEED PHID PAIR LIMIT CP213880 09D3 4C28 0BAC 1393 | BSC L C0670,+Z GO TO OUT OF SEQ ERROR CP213890 09D5 4C20 09E9 1394 | BSC L C0060,Z BR AROUND SLET SEARCH CP213900 1395 | * CP213910 1396 | * THIS PHASE IS LAST PHASE OF A PROGRAM PAIR CP213920 1397 | * CP213930 09D7 C3D6 1398 | LD 3 BX901-X SET SW TO INDICATE A PROG CP213940 09D8 D339 1399 | STO 3 BZ912-X *HAS BEEN ADDED & PREPARE CP213950 09D9 4400 0B3B 1400 | BSI L C0600 *TO ADD ANOTHER IF REQ CP213960 1401 | * CP213970 09DB C10B 1402 | C0050 LD 1 11 RELOAD THE PH ID CP213980 09DC 4400 0674 1403 | BSI L SSLET SEARCH SLET FOR PHASE CP213990 1404 | * CP214000 1405 | * IF PHASE FOUND XR2 POINTS TO THE ADDRESS OF SET CP214010 1406 | * IN CORE BUFFER. THE APPLICABLE SLET SECTOR IS CP214020 1407 | * LOADED TO THE IN-CORE BUFFER DURING A SUCCESSFUL CP214030 1408 | * SEARCH. CP214040 1409 | * CP214050 09DE 4408 0B3B 1410 | BSI L C0600,+ BR TO SEE IF CAN RELOAD CP214060 09E0 6E00 0ACB 1411 | STX L2 C0510+1 SAVE XR2 IN 'C0500' SUBR CP214070 09E2 C202 1412 | LD 2 2 FETCH WD CNT TO RUN CHECK CP214080 09E3 83E0 1413 | A 3 BX913-X ADD WORDS/SCTR-1 2-4 CP214090 09E4 1890 1414 | SRT 16 PREPARE FOR DIVIDE CP214100 09E5 ABE1 1415 | D 3 BX914-X DETERMINE HOW MANY SCTRS CP214110 09E6 D30D 1416 | STO 3 BY947-X *SAVE AS LENGTH IN SECTORS CP214120 09E7 C203 1417 | LD 2 3 LOAD THIS PHASE TO OLD SCTR CP214130 1418 | * STATMENT REMOVED 2-4 CP214140 09E8 D3EC 1419 | STO 3 BY910-X FIRST SCTR ADDR OF PHASE CP214150 09E9 4400 0693 1420 | C0060 BSI L UPCAD BR TO UPDATE OLD SLET ENTRY CP214160 09EB 1810 1421 | SRA 16 CLEAR SW THAT IS SET CP214170 09EC D339 1422 | STO 3 BZ912-X *BETWEEN ADDED PROGRAMS CP214180 09ED 4C00 056E 1423 | BSC L BE200 RETURN FROM OVERLAY 0 CP214190 1424 | * CP214200 1425 | *************************************************** CP214210 1426 | * CP214220 1427 | * INSERT A 4 WORD ENTRY TO BE USED TO BUILD A NEW CP214230 1428 | * PHASE IN SLET. CP214240 1429 | * CP214250 09EF 0000 1430 | C0100 DC 0 ENTRY/EXIT TO SUBROUTINE CP214260 09F0 C10B 1431 | LD 1 11 PHASE ID TO BE INSERTED CP214270 09F1 D064 1432 | STO C0912 STORE ID IN INSERTION PATCH CP214280 09F2 93D6 1433 | S 3 BX901-X PHASE ID - 1 CP214290 09F3 4400 0674 1434 | BSI L SSLET CALL SEARCH SLET FOR ID-1 CP214300 09F5 4C18 0A4E 1435 | BSC L CO180,+- BR IF ID-1 WAS NOT FOUND CP214310 09F7 1010 1436 | SLA 16 ZERO TWO WORDS IN NEW SLET CP214320 09F8 D05E 1437 | STO C0913 *ENTRY FOR NOW CP214330 09F9 D05E 1438 | STO C0914 CP214340 09FA C202 1439 | LD 2 2 WORD COUNT OF PH - 1 CP214350 09FB 83E0 1440 | A 3 BX913-X ADD WORDS/SCTR-1 2-4 CP214360 09FC 1890 1441 | SRT 16 SHIFT TO EXTENSION CP214370 09FD ABE1 1442 | D 3 BX914-X DIVIDE BY WORDS PER SECTOR CP214380 09FE 8203 1443 | A 2 3 ADD SECTOR ADDR OF ID-1 CP214390 09FF D059 1444 | STO C0915 SAVE CALC SCTR ADDR OF PH CP214400 1445 | * CP214410 1446 | * DETERMINE IF AN EMPTY SLET ENTRY EXISTS TO CP214420 1447 | * ABSORD THE NEW SLET ENTRY. CP214430 1448 | * CP214440 0A00 7204 1449 | MDX 2 4 ADVANCE 1 ENTRY IN SLET TBL CP214450 0A01 6A53 1450 | STX 2 C0911 TEST FOR BEYOND END OF SCTR CP214460 0A02 C052 1451 | LD C0911 CONTENTS OF XR2 CP214470 0A03 93F0 1452 | S 3 BY914-X SUB ADDR LAST SLET ENTRY CP214480 0A04 4C08 0A11 1453 | BSC L C0120,+ BR IF XR2 STILL IN SECTOR CP214490 0A06 C400 0EBF 1454 | LD L BUFR3+1 SLET TABLE IS FULL IF THIS CP214500 0A08 9313 1455 | S 3 BY956-X *IS LAST SLET SECTOR CP214510 0A09 4410 0767 1456 | BSI L ER028,- YES, BR IF LAST SLET SECTOR CP214520 0A0B 7401 0EBF 1457 | MDX L BUFR3+1,1 INCREMENT SLET SECTOR ADDR CP214530 0A0D 4400 0668 1458 | BSI L FTCH3 READ NEXT SLET SECTOR CP214540 0A0F 6680 087E 1459 | LDX I2 BY913 RESET PT TO FIRST SLET SET CP214550 0A11 C480 087F 1460 | C0120 LD I BY914 TEST FOR EMPTY ENTRY IN CP214560 0A13 4C18 0A2E 1461 | BSC L C0150,+- *THIS SLET SCTR,BR IF EMPTY CP214570 0A15 C400 0EBF 1462 | LD L BUFR3+1 SAVE SCTR ADDR THAT IS TO CP214580 0A17 D03D 1463 | STO C0911 *HAVE NEW PHASE ENTRY CP214590 0A18 9313 1464 | S 3 BY956-X TEST IF SCTR ADDR ALREADY CP214600 0A19 4C18 0A20 1465 | BSC L C0130,+- *IN CORE, BR IF IN CORE CP214610 0A1B C313 1466 | LD 3 BY956-X SET LAST SLET SCTR ADDR CP214620 0A1C D400 0EBF 1467 | STO L BUFR3+1 *IN DISK I/O BUFFER CP214630 0A1E 4400 0668 1468 | BSI L FTCH3 READ LAST SCTR INTO CORE CP214640 0A20 C480 087F 1469 | C0130 LD I BY914 TEST FOR EMPTY ENTRY IN CP214650 0A22 4420 0767 1470 | BSI L ER028,Z *LAST SLET SCTR, BR IF FULL CP214660 0A24 C400 0EBF 1471 | LD L BUFR3+1 IS SCTR TO HAVE PHASE ID CP214670 0A26 902E 1472 | S C0911 *INSERTION ALREADY IN CORE CP214680 0A27 4C18 0A2E 1473 | BSC L C0150,+- BR IF IT IS IN CORE CP214690 0A29 C02B 1474 | LD C0911 SET ADDR TO SCTR TO HAVE CP214700 0A2A D400 0EBF 1475 | STO L BUFR3+1 *NEW PHASE ID INSERTED CP214710 0A2C 4400 0668 1476 | C0140 BSI L FTCH3 READ THE SECTOR OF SLET CP214720 0A2E CA00 1477 | C0150 LDD 2 0 SAVE 4 WORDS OF SLET TABLE CP214730 0A2F D82A 1478 | STD C0916 *WHERE NEXT INSERT IS TO GO CP214740 0A30 CA02 1479 | LDD 2 2 CP214750 0A31 D82A 1480 | STD C0918 CP214760 0A32 C823 1481 | LDD C0912 INSERT 4 WORDS IN SLET CP214770 0A33 DA00 1482 | STD 2 0 *TABLE CP214780 0A34 C823 1483 | LDD C0914 CP214790 0A35 DA02 1484 | STD 2 2 CP214800 0A36 C823 1485 | LDD C0916 IS NEXT PHASE 0, IE EMPTY CP214810 0A37 4C20 0A3C 1486 | BSC L C0160,Z NO, BR TO CONTINUE SHIFTING CP214820 0A39 4400 06E1 1487 | BSI L WRIT3 YES,WRITE SCTR BACK TO DISK CP214830 0A3B 7010 1488 | MDX C0170 BR TO RETURN CP214840 0A3C D819 1489 | C0160 STD C0912 CP214850 0A3D C81E 1490 | LDD C0918 CP214860 0A3E D819 1491 | STD C0914 CP214870 0A3F 7204 1492 | MDX 2 4 INCR POINTER ONE 4 WD ENTRY CP214880 0A40 6A14 1493 | STX 2 C0911 TEST FOR END OF SECTOR CP214890 0A41 C013 1494 | LD C0911 CONTENTS OF XR2 CP214900 0A42 93F0 1495 | S 3 BY914-X SUB ADDR LAST SLET ENTRY CP214910 0A43 4C08 0A2E 1496 | BSC L C0150,+ NO, BR TO LOOP ON ENTRIES CP214920 0A45 4400 06E1 1497 | BSI L WRIT3 WRITE SECTOR BACK TO DISK CP214930 0A47 7401 0EBF 1498 | MDX L BUFR3+1,1 INCREMENT SLET SECTOR ADDR CP214940 0A49 6680 087E 1499 | LDX I2 BY913 RESET PT TO FIRST SLET SET CP214950 0A4B 70E0 1500 | MDX C0140 BR TO PROCESS NEXT SECTOR CP214960 0A4C 4C80 09EF 1501 | C0170 BSC I C0100 RETURN CP214970 1502 | * CP214980 0A4E 18A0 1503 | CO180 SRT 32 CLEAR ACCUM AND EXTENSION CP214990 0A4F C400 0692 1504 | LD L SS900 FETCH MISSING PHASE ID CP215000 0A51 4400 074A 1505 | BSI L ER026 DISPLAY PH ID NOT IN SLET CP215010 0A53 4C00 0763 1506 | BSC L ER610 FETCH OVERLAY 2 TO FINISH CP215020 1507 | * CP215030 1508 | * CONSTANTS AND WORK AREAS CP215040 1509 | * CP215050 0A55 0000 1510 | C0911 DC *-* TEMPORARY STORAGE CP215060 0A56 1511 | BSS E CP215070 0A56 0000 1512 | C0912 DC *-* STORAGE FOR 4 WORDS GOING CP215080 0A57 0000 1513 | C0913 DC *-* *TO CP215090 0A58 0000 1514 | C0914 DC *-* *SLET CP215100 0A59 0000 1515 | C0915 DC *-* *ENTRY CP215110 0A5A 0000 1516 | C0916 DC *-* STORAGE FOR 4 WORDS COMING CP215120 0A5B 0000 1517 | DC *-* *FROM CP215130 0A5C 0000 1518 | C0918 DC *-* *SLET CP215140 0A5D 0000 1519 | DC *-* *ENTRY CP215150 1520 | * CP215160 1521 | *************************************************** CP215170 1522 | * CP215180 1523 | * THIS SUBROUTINE MOVES A BLOCK OF 1 TO 90 SECTORS, CP215190 1524 | * DEPENDING UPON CORE SIZE, FROM 1 PART OF DISK CP215200 1525 | * STORAGE TO ANOTHER. CP215210 1526 | * CP215220 0A5E 0000 1527 | C0300 DC 0 ENTRY/RETURN ADDRESS CP215230 0A5F 1000 1528 | NOP A WAIT MAY BE PATCHEC HERE CP215240 0A60 C400 0201 1529 | LD L SSBFR RELOCATE BUFFER SIZE TO CP215250 0A62 D334 1530 | STO 3 BZ907-X *MAIN CONSTANTS AREA CP215260 0A63 C326 1531 | LD 3 BY978-X LOAD SCTRS TO SHIFT CNT 2-4 CP215270 0A64 1890 1532 | SRT 16 SHIFT INTO EXTENSION CP215280 0A65 AB34 1533 | D 3 BZ907-X DIVIDE BY SCTRS IN BUFFER CP215290 0A66 DB2D 1534 | STD 3 BZ900-X SAVE QUOTIENT AND REMAINDER CP215300 1535 | * 2-4 CP215310 0A67 C3F3 1536 | LD 3 BY917-X CALCULATE SHIFT 2-4 CP215320 0A68 93F4 1537 | S 3 BY918-X *DIRECTION (FROM - TO) 2-4 CP215330 0A69 4C10 0A72 1538 | BSC L C0310,- BR IF LEFT SHIFT 2-4 CP215340 1539 | * 2-4 CP215350 0A6B C3F3 1540 | LD 3 BY917-X ADD SECTORS 2-4 CP215360 0A6C 8326 1541 | A 3 BY978-X *TO SHIFT COUNT 2-4 CP215370 0A6D D3F3 1542 | STO 3 BY917-X *TO 'FROM' 2-4 CP215380 0A6E C3F4 1543 | LD 3 BY918-X *AND TO 2-4 CP215390 0A6F 8326 1544 | A 3 BY978-X *'TO' 2-4 CP215400 0A70 D3F4 1545 | STO 3 BY918-X *ADDRESSES 2-4 CP215410 0A71 703B 1546 | MDX C0400 BR TO START RIGHT SHIFT 2-4 CP215420 1547 | * 2-4 CP215430 0A72 7400 08BD 1548 | C0310 MDX L BZ901,0 TEST REMAINDER FOR 0 2-4 CP215440 0A74 7004 1549 | MDX C0330 BR IF NOT CP215450 0A75 7400 08BC 1550 | C0320 MDX L BZ900,0 TEST QUOTIENT FOR 0 CP215460 0A77 702C 1551 | MDX C0380 BR IF NOT CP215470 0A78 7015 1552 | MDX C0355 BR SHIFTING COMPLETED CP215480 1553 | * CP215490 1554 | * SET UP A WORD COUNT LESS THAN FULL BUFFER SIZE CP215500 1555 | * CP215510 0A79 C32E 1556 | C0330 LD 3 BZ901-X SECTOR COUNT IN REMAINDER CP215520 0A7A A3E1 1557 | M 3 BX914-X WORDS PER SECTOR CP215530 0A7B 1090 1558 | SLT 16 CP215540 0A7C D400 0EBE 1559 | STO L BUFR3+0 WORD COUNT CP215550 1560 | * CP215560 0A7E C3F3 1561 | C0340 LD 3 BY917-X SET SCTR ADDR CP215570 0A7F D400 0EBF 1562 | STO L BUFR3+1 *TO READ FROM CP215580 0A81 4400 0668 1563 | BSI L FTCH3 READ CP215590 0A83 C3F4 1564 | LD 3 BY918-X SET SCTR ADDR CP215600 0A84 D400 0EBF 1565 | STO L BUFR3+1 *TO WRITE TO CP215610 0A86 4400 06E1 1566 | BSI L WRIT3 WRITE CP215620 0A88 7400 08BD 1567 | MDX L BZ901,0 TEST REMAINDER FOR 0 CP215630 0A8A 702C 1568 | MDX C0410 BR IF NOT CP215640 1569 | * STATEMENTS REMOVED 2-4 CP215650 0A8B 7400 08BC 1570 | C0350 MDX L BZ900,0 TEST QUOTIENT FOR 0 CP215660 0A8D 7005 1571 | MDX C0360 BR IF NOT CP215670 0A8E C3E1 1572 | C0355 LD 3 BX914-X RESET TO 1 SCTR WD COUNT CP215680 0A8F D400 0EBE 1573 | STO L BUFR3+0 CP215690 0A91 4C80 0A5E 1574 | BSC I C0300 RETURN CP215700 1575 | * CP215710 0A93 C3F3 1576 | C0360 LD 3 BY917-X CALCULATE SHIFT 2-4 CP215720 0A94 93F4 1577 | S 3 BY918-X *DIRECTION 2-4 CP215730 0A95 4C10 0A9E 1578 | BSC L C0370,- BR IF LEFT SHIFT 2-4 CP215740 0A97 C3F4 1579 | LD 3 BY918-X DECR SCTR ADDR'S BY SIZE CP215750 0A98 9334 1580 | S 3 BZ907-X *OF BUFFER CP215760 0A99 D3F4 1581 | STO 3 BY918-X WRITE ADDRESS CP215770 0A9A C3F3 1582 | LD 3 BY917-X DECR THE CP215780 0A9B 9334 1583 | S 3 BZ907-X *READ ADDR CP215790 0A9C D3F3 1584 | STO 3 BY917-X *ALSO CP215800 0A9D 7006 1585 | MDX C0380 SET NEW WD COUNT FOR I/O CP215810 1586 | * CP215820 0A9E C3F4 1587 | C0370 LD 3 BY918-X INCREMENT SCTR CP215830 0A9F 8334 1588 | A 3 BZ907-X *ADDR TO CP215840 0AA0 D3F4 1589 | STO 3 BY918-X *WRITE TO CP215850 0AA1 C3F3 1590 | LD 3 BY917-X INCREMENT SCTR CP215860 0AA2 8334 1591 | A 3 BZ907-X *ADDR TO CP215870 0AA3 D3F3 1592 | STO 3 BY917-X *READ FROM CP215880 1593 | * CP215890 0AA4 C334 1594 | C0380 LD 3 BZ907-X MULTIPLY SCTR COUNT BY CP215900 0AA5 A3E1 1595 | M 3 BX914-X *WORDS PER SCTR CP215910 0AA6 1090 1596 | SLT 16 *AND USE CP215920 0AA7 D400 0EBE 1597 | STO L BUFR3+0 *FOR DISK I/O CP215930 0AA9 74FF 08BC 1598 | MDX L BZ900,-1 DECR QUOTIENT CP215940 0AAB 1000 1599 | NOP MAY SKIP CP215950 0AAC 70D1 1600 | MDX C0340 SET UP READ ADDR CP215960 1601 | * CP215970 0AAD C32E 1602 | C0400 LD 3 BZ901-X TEST REMAINDER FOR 0 CP215980 0AAE 4C18 0A8B 1603 | BSC L C0350,+- BR IF YES CP215990 0AB0 C3F3 1604 | LD 3 BY917-X DECR THE CP216000 0AB1 932E 1605 | S 3 BZ901-X *READ CP216010 0AB2 D3F3 1606 | STO 3 BY917-X *ADDRESS CP216020 0AB3 C3F4 1607 | LD 3 BY918-X DECR THE CP216030 0AB4 932E 1608 | S 3 BZ901-X *WRITE CP216040 0AB5 D3F4 1609 | STO 3 BY918-X *ADDRESS CP216050 0AB6 70C2 1610 | MDX C0330 SET NEW WD COUNT FOR I/O CP216060 1611 | * CP216070 0AB7 C3F3 1612 | C0410 LD 3 BY917-X CALCULATE SHIFT 2-4 CP216080 0AB8 93F4 1613 | S 3 BY918-X *DIRECTION 2-4 CP216090 0AB9 4C28 0AC4 1614 | BSC L C0420,Z+ BR IF RIGHT SHIFT 2-4 CP216100 0ABB C3F4 1615 | LD 3 BY918-X INCR THE CP216110 0ABC 832E 1616 | A 3 BZ901-X *WRITE CP216120 0ABD D3F4 1617 | STO 3 BY918-X *ADDRESS CP216130 0ABE C3F3 1618 | LD 3 BY917-X INCR THE CP216140 0ABF 832E 1619 | A 3 BZ901-X *READ CP216150 0AC0 D3F3 1620 | STO 3 BY917-X *ADDRESS CP216160 0AC1 1810 1621 | SRA 16 ZERO CP216170 0AC2 D32E 1622 | STO 3 BZ901-X *THE REMAINDER CP216180 0AC3 70B1 1623 | MDX C0320 BR TO TEST QUOTIENT CP216190 1624 | * CP216200 0AC4 1810 1625 | C0420 SRA 16 ZERO CP216210 0AC5 D32E 1626 | STO 3 BZ901-X *THE REMAINDER CP216220 0AC6 70C4 1627 | MDX C0350 BR TO TEST QUOTIENT CP216230 1628 | * CP216240 1629 | *************************************************** CP216250 1630 | * CP216260 1631 | * SHIFT SYSTEM PROGRAMS ON SECTOR CP216270 1632 | * OUTWARD TOWARDS THE CORE IMAGE BUFFER. CP216280 1633 | * CP216290 0AC7 1000 1634 | C0500 NOP A WAIT MAY BE PATCHED HERE CP216300 0AC8 6E00 0B2C 1635 | STX L2 C0580+1 SAVE XR2'S WD COUNT CP216310 0ACA 6600 0000 1636 | C0510 LDX L2 *-* RELATIVE LOCATION IN SLET CP216320 0ACC C200 1637 | LD 2 0 IF THIS IS LAST PHASE CP216330 0ACD 93F9 1638 | S 3 BY924-X *NO SHIFT IS REQUIRED CP216340 0ACE 4C10 0B2B 1639 | BSC L C0580,- BR IF .GE. LAST PHASE 2-4 CP216350 0AD0 C400 0EBF 1640 | LD L BUFR3+1 SAVE CURRENT SLET SCTR NO. CP216360 0AD2 D05E 1641 | STO C0950 *FOR RE-READING LATER CP216370 1642 | * CP216380 1643 | * DETERMINE SECTOR ADDRESS OF LAST SECTOR CP216390 1644 | * TO BE MOVED CP216400 1645 | * CP216410 0AD3 C203 1646 | LD 2 3 CURRENT PHASE SCTR ADDRESS CP216420 1647 | * STATMENT REMOVED 2-4 CP216430 0AD4 830D 1648 | A 3 BY947-X FORM SCTR ADDR OF SUCCEED- CP216440 0AD5 D3F3 1649 | STO 3 BY917-X *ING PHASE, 'FROM' ADDR 2-4 CP216450 0AD6 83D6 1650 | A 3 BX901-X 'TO' ADDR = 'FROM' ADDR 2-4 CP216460 0AD7 D3F4 1651 | STO 3 BY918-X * + 1 2-4 CP216470 0AD8 C302 1652 | LD 3 BY935-X SAVE THE SLET SCTR CP216480 0AD9 D400 0EBF 1653 | STO L BUFR3+1 *NOW IN THE SLET BUFFER CP216490 0ADB 4400 06E1 1654 | BSI L WRIT3 WRITE TEMPORARILY TO CIB CP216500 1655 | * CP216510 1656 | * DETERMINE SECTOR ADDRESS OF LAST SECTOR USED FOR CP216520 1657 | * SYSTEM PROGRAMS AND VERIFY THAT THERE IS ENOUGH CP216530 1658 | * CUSHION TO ABSORB A ONE SECTOR SHIFT. CP216540 1659 | * CP216550 0ADD 1000 1660 | NOP CP216560 0ADE C3F9 1661 | LD 3 BY924-X KNOWN ID OF LAST PHASE CP216570 0ADF 4400 0674 1662 | BSI L SSLET SEARCH SLET FOR THIS ID CP216580 0AE1 4408 075A 1663 | BSI L ER027,+ BR IF SOMEHOW MISSING CP216590 0AE3 C202 1664 | LD 2 2 LOAD WORD COUNT CP216600 0AE4 1890 1665 | SRT 16 CP216610 0AE5 ABE1 1666 | D 3 BX914-X CALC SECTORS INVOLVED CP216620 0AE6 D3F8 1667 | STO 3 BY923-X SAVE QUOTIENT CP216630 0AE7 18D0 1668 | RTE 16 TEST FOR REMAINDER CP216640 0AE8 4C08 0AEC 1669 | BSC L C0520,+ EXACT MULT OF 320 IF ZERO CP216650 0AEA 7401 0887 1670 | MDX L BY923,1 SCTRS IN VERY LAST PHASE CP216660 0AEC C203 1671 | C0520 LD 2 3 SCTR ADDR OF THIS PHASE CP216670 1672 | * STATMENT REMOVED 2-4 CP216680 0AED 83F8 1673 | A 3 BY923-X FORM ADDR OF LAST SECTOR CP216690 0AEE D304 1674 | STO 3 BY937-X *WITH DATA CP216700 0AEF 9302 1675 | S 3 BY935-X COMPARE WITH CP216710 0AF0 83D6 1676 | A 3 BX901-X *SCRA CP216720 0AF1 93DC 1677 | S 3 BX908-X *ADDRESS CP216730 0AF2 4410 0725 1678 | BSI L ER022,- BRANCH IF NO SPACE LEFT CP216740 0AF4 C304 1679 | LD 3 BY937-X NUMBER OF SECTORS TO 2-4 CP216750 0AF5 93F3 1680 | S 3 BY917-X *SHIFT = ADDR SCTR AFTER2-4 CP216760 0AF6 D326 1681 | STO 3 BY978-X *LAST PHASE - FROM ADDR 2-4 CP216770 0AF7 C400 01F6 1682 | LD L CAREA DECR BY 1 THS SECTORS CP216780 0AF9 93D6 1683 | S 3 BX901-X *REMAINING IN CUSHION CP216790 0AFA 4428 0725 1684 | BSI L ER022,Z+ WHEN USED UP, DISPLAY CP216800 0AFC D400 01F6 1685 | STO L CAREA *SCRA OVERLAY ERROR CP216810 0AFE 4400 0A5E 1686 | BSI L C0300 BR TO SHIFT AREA 1 SECTOR CP216820 1687 | * CP216830 0B00 C302 1688 | LD 3 BY935-X PREPARE TO FETCH SAVED CP216840 0B01 D400 0EBF 1689 | STO L BUFR3+1 *SLET SCTR FROM CIB AREA CP216850 0B03 4400 0668 1690 | BSI L FTCH3 READ CP216860 0B05 C02B 1691 | LD C0950 RESTORE THE SLET CP216870 0B06 D400 0EBF 1692 | STO L BUFR3+1 *SCTR ADDR CP216880 0B08 6680 0ACB 1693 | LDX I2 C0510+1 RESET RELATIVE LOC POINTER CP216890 0B0A C400 0002 1694 | C0540 LD L 2 TEST WHETHER THIS SET OF CP216900 0B0C 93F0 1695 | S 3 BY914-X *SLET SCTR IS THE LAST CP216910 0B0D 4C18 0B19 1696 | BSC L C0550,+- FALL THRU IF NOT LAST CP216920 0B0F 7204 1697 | MDX 2 4 POINT TO NEXT SET CP216930 0B10 C203 1698 | LD 2 3 LOAD FROM NEXT SET CP216940 0B11 4820 1699 | BSC Z NO MODIFICATION IF ZERO CP216950 0B12 83D6 1700 | A 3 BX901-X INCR SECTOR ADDRESS CP216960 0B13 D203 1701 | STO 2 3 STORE BACK CP216970 0B14 C200 1702 | LD 2 0 TEST FOR VERY LAST PH ID CP216980 0B15 93F9 1703 | S 3 BY924-X CP216990 0B16 4C18 0B24 1704 | BSC L C0560,+- FALL THRU IF NOT LAST CP217000 0B18 70F1 1705 | MDX C0540 REPEAT CP217010 0B19 4400 0B32 1706 | C0550 BSI L WRFT3 WRITE UPDATED SLET SECTOR CP217020 0B1B C400 0EBF 1707 | LD L BUFR3+1 STOP WHEN CP217030 0B1D 93F7 1708 | S 3 BY922-X *ALL SLET CP217040 0B1E 9312 1709 | S 3 BY955-X *UPDATED CP217050 0B1F 4C10 0B26 1710 | BSC L C0570,- BR TO END OF THIS SUBR, CP217060 0B21 6600 0EBC 1711 | LDX L2 BUFR3+2-4 *ELSE POINT TO NEXT SCTR CP217070 0B23 70E6 1712 | MDX C0540 *OF SLET AND REPEAT CP217080 0B24 4400 06E1 1713 | C0560 BSI L WRIT3 WRITE UPDATED SLET CP217090 1714 | * CP217100 0B26 C00A 1715 | C0570 LD C0950 CP217110 0B27 D400 0EBF 1716 | STO L BUFR3+1 RESTORE IN-CORE SLET SCTR CP217120 0B29 4400 0668 1717 | BSI L FTCH3 *TO CONTINUE LOAD CP217130 0B2B 6600 0000 1718 | C0580 LDX L2 *-* RESTORE WD CNT OF DATA RCD CP217140 0B2D 7401 089C 1719 | MDX L BY947,1 INCR OLD PHASE LENGTH CP217150 0B2F 4C00 0598 1720 | BSC L BE380 EXIT BACK TO MAINLINE CP217160 1721 | * CP217170 1722 | * CONSTANTS AND WORK AREAS CP217180 1723 | * CP217190 0B31 0000 1724 | C0950 DC *-* SAVED SLET SECTOR ADDRESS CP217200 1725 | * CP217210 1726 | *************************************************** CP217220 1727 | * CP217230 1728 | * WRITE A SLET SECTOR TO DISK AND READ NEXT SECTOR CP217240 1729 | * CP217250 0B32 0000 1730 | WRFT3 DC 0 ENTRY/RETURN ADDRESS CP217260 0B33 4400 06E1 1731 | BSI L WRIT3 FILE THIS SLET SECTOR CP217270 0B35 7401 0EBF 1732 | MDX L BUFR3+1,1 INCR ADDR AND CP217280 0B37 4400 0668 1733 | BSI L FTCH3 *FETCH NEXT SCTR CP217290 0B39 4C80 0B32 1734 | BSC I WRFT3 RETURN CP217300 1735 | * CP217310 1736 | *************************************************** CP217320 1737 | * CP217330 1738 | * THIS SUBROUTINE IS ENTERED DURING RELOAD OF A CP217340 1739 | * PHASE WHICH CANNOT BE FOUND IN SLET. CP217350 1740 | * CP217360 0B3B 0000 1741 | C0600 DC 0 ENTRY CP217370 0B3C CC00 020C 1742 | C0610 LDD L PAIR1 ESTABLISH CORRECT PH PAIR CP217380 0B3E E320 1743 | AND 3 BY972-X REMOVE BITS 0 AND 1 CP217390 0B3F 93ED 1744 | S 3 BY911-X COMPARE TO BRACKET PH ID CP217400 0B40 4C30 0BB0 1745 | BSC L C0680,-Z BRANCH IF PH ID SMALLER CP217410 0B42 18D0 1746 | RTE 16 EXCHANGE ACCUM & EXTENSION CP217420 0B43 E320 1747 | AND 3 BY972-X REMOVE BITS 0 AND 1 CP217430 0B44 93ED 1748 | S 3 BY911-X COMPARE PH ID CP217440 0B45 4C28 0BB4 1749 | BSC L C0690,+Z BRANCH IF PH ID GREATER CP217450 1750 | * CP217460 1751 | * NEXT SECTION PROCESSES PH ID THAT IS IN BOUNDS CP217470 1752 | * OF PHID RECORD PAIR POINTED TO IN 'CO610+1'. CP217480 1753 | * CP217490 0B47 CC80 0B3D 1754 | LDD I C0610+1 TEST FOR NEG BYPASS INDI- CP217500 0B49 4C30 0B53 1755 | BSC L C0615,-Z *CATION IN PAIR, BR IF OFF CP217510 0B4B 18D0 1756 | RTE 16 ELSE USE 2ND PH ID OF PAIR CP217520 0B4C E320 1757 | AND 3 BY972-X *TO SET A PH ID TO GO TO. CP217530 0B4D 83D6 1758 | A 3 BX901-X SET AN ID ONE GREATER CP217540 0B4E D3FB 1759 | STO 3 BY926-X *THAN CP217550 0B4F D3FA 1760 | STO 3 BY925-X *LAST PH ID OF CP217560 0B50 1810 1761 | SRA 16 *CURRENT PAIR CP217570 0B51 4C00 05D2 1762 | BSC L BE560 BR TO FLUSH RECORDS CP217580 0B53 C339 1763 | C0615 LD 3 BZ912-X IF 'BETWEEN ADDED PROG' SW CP217590 0B54 4C20 0B9D 1764 | BSC L C0655,Z *IS ON, BR TO SET SOME SWS CP217600 0B56 C480 0B3D 1765 | LD I C0610+1 RELOAD ADDR FROM POINTER CP217610 1766 | * CP217620 0B58 93ED 1767 | S 3 BY911-X TEST FOR 1ST PH OF PROGRAM CP217630 0B59 4C20 0BC3 1768 | BSC L C0710,Z BRANCH IF NOT CP217640 0B5B C0E1 1769 | C0622 LD C0610+1 TEST FOR 8TH PAIR AND UP CP217650 0B5C 9332 1770 | S 3 BZ905-X CP217660 0B5D 4C28 0BBD 1771 | BSC L C0700,+Z BR IF NOT PAIR 8 OR HIGHER CP217670 0B5F C3ED 1772 | LD 3 BY911-X COMPARE NEW PROG WITH LAST CP217680 0B60 93F9 1773 | S 3 BY924-X *ID IN SLET CP217690 0B61 4C08 0BBB 1774 | BSC L C0695,+ BR IF NEW PHASE NOT LARGER CP217700 1775 | * CP217710 0B63 C339 1776 | LD 3 BZ912-X TEST AND BR IF 'BETWEEN CP217720 0B64 4C20 09E9 1777 | BSC L C0060,Z *ADDED PROG' SW IS ON CP217730 0B66 C31C 1778 | LD 3 BY966-X PLACE NOP INST TO ALLOW CP217740 0B67 D400 09B9 1779 | STO L C0000 *XR2 TO BE SET CP217750 0B69 C3ED 1780 | LD 3 BY911-X CP217760 0B6A D335 1781 | STO 3 BZ908-X SET SW TO ADD PROG AT END CP217770 0B6B D3EE 1782 | STO 3 BY912-X CP217780 1783 | * STATEMENT REMOVED 2-4 CP217790 0B6C C400 01FF 1784 | LD L FLETI TEST FOR AND BR TO ERROR CP217800 0B6E 4420 0716 1785 | BSI L ER020,Z *IF FIXED AREA PRESENT CP217810 0B70 C3F9 1786 | LD 3 BY924-X CP217820 0B71 4400 0674 1787 | BSI L SSLET LOCATE LAST EXISTING PHASE CP217830 0B73 4418 075A 1788 | BSI L ER027,+- DEFECTIVE SLET IF MISSING CP217840 0B75 7204 1789 | MDX 2 4 POINT TO 1ST EMPTY SET CP217850 0B76 6A25 1790 | STX 2 C0650 TEMPORARY STORAGE CP217860 0B77 C024 1791 | LD C0650 TEST IF BEYOND LAST ENTRY CP217870 0B78 93F0 1792 | S 3 BY914-X *IN SLET SECTOR CP217880 0B79 4C08 0B83 1793 | BSC L C0640,+ BR IF SPACE EXISTS CP217890 0B7B C400 0EBF 1794 | LD L BUFR3+1 ELSE TEST FOR LAST SLET CP217900 0B7D 9313 1795 | S 3 BY956-X *SECTOR CP217910 0B7E 4410 0767 1796 | BSI L ER028,- DISPLAY SLET FULL IF YES CP217920 0B80 4400 04EB 1797 | BSI L BD200 FETCH NEXT SLET SECTOR CP217930 0B82 6A19 1798 | STX 2 C0650 SAVE RLTV LOC IN SLET SCTR CP217940 0B83 1000 1799 | C0640 NOP A WAIT MAY BE PATCHED HERE CP217950 0B84 C400 0EBF 1800 | LD L BUFR3+1 SAVE PRESENT SLET SECTOR CP217960 0B86 D0AA 1801 | STO C0950 *ADDRESS CP217970 1802 | * CP217980 0B87 C400 0202 1803 | LD L LET00 'FROM' ADDR IS START 2-4 CP217990 0B89 D3F3 1804 | STO 3 BY917-X *OF LET TABLE 2-4 CP218000 0B8A C315 1805 | LD 3 BY958-X 'TO' ADDR IS SUCH THAT 2-4 CP218010 0B8B 9400 0203 1806 | S L SHIFT *LET/UA IS SHIFTED UP 2-4 CP218020 0B8D D3F4 1807 | STO 3 BY918-X *AGAINST SYSTEM LOADER 2-4 CP218030 0B8E C400 0203 1808 | LD L SHIFT NUMBER OF SECTORS TO 2-4 CP218040 0B90 D326 1809 | STO 3 BY978-X *SHIFT IS LENGTH LET/UA 2-4 CP218050 0B91 4400 0A5E 1810 | BSI L C0300 SHIFT UA TOWARD END DISK CP218060 0B93 C09D 1811 | LD C0950 SAVED SLET SCTR ADDR CP218070 0B94 D400 0EBF 1812 | STO L BUFR3+1 FETCH CURRENT CP218080 0B96 4400 0668 1813 | BSI L FTCH3 *SLET SECTOR CP218090 0B98 6680 0B9C 1814 | LDX I2 C0650 RESTORE RLTV LOC POINTER CP218100 0B9A 4C00 09E9 1815 | BSC L C0060 BR TO PROCESS PHASE CP218110 1816 | * CP218120 1817 | * CONSTANTS AND WORK AREAS CP218130 1818 | * CP218140 0B9C 0000 1819 | C0650 DC *-* TEMPORARY XR2 STORAGE CP218150 1820 | * CP218160 0B9D 7402 0B3D 1821 | C0655 MDX L C0610+1,2 ADVANCE POINTER NEXT PAIR CP218170 0B9F C480 0B3D 1822 | LD I C0610+1 LOAD 1ST PH ID OF NEW PAIR CP218180 0BA1 93D6 1823 | S 3 BX901-X SET UP AN ID ONE LESS TO CP218190 0BA2 D33A 1824 | STO 3 BZ913-X *USE IN SEQUENCE TEST CP218200 0BA3 70B7 1825 | MDX C0622 BR TO MAKE MORE CHECKS CP218210 1826 | * CP218220 0BA4 4C28 0BAC 1827 | C0660 BSC L C0670,+Z OUT OF SEQ OR MISSING PHASE CP218230 0BA6 C3EE 1828 | LD 3 BY912-X RESET FOR RETRY CP218240 0BA7 D3ED 1829 | STO 3 BY911-X PREVIOUS PHASE ID CP218250 0BA8 4400 0733 1830 | BSI L ER024 PHASE MISSING FROM PROGRAM CP218260 0BAA 4400 0651 1831 | BSI L BYPAS BR TO BYPASS THIS PHASE CP218270 1832 | * CP218280 0BAC C3EE 1833 | C0670 LD 3 BY912-X RESET FOR RETRY CP218290 0BAD D3ED 1834 | STO 3 BY911-X CP218300 0BAE 4400 072B 1835 | BSI L ER023 PH NO. OUT OF SEQUENCE CP218310 1836 | * CP218320 0BB0 CC80 0B3D 1837 | C0680 LDD I C0610+1 CHECK PHASE ID PAIR CP218330 0BB2 4420 073F 1838 | BSI L ER025,Z PH ID NOT IN PHID RECORD CP218340 1839 | * CP218350 0BB4 7402 0B3D 1840 | C0690 MDX L C0610+1,2 POINT TO NEXT PAIR CP218360 0BB6 C086 1841 | LD C0610+1 CP218370 0BB7 9331 1842 | S 3 BZ904-X TEST FOR PAIR NUMBER CP218380 0BB8 4430 073F 1843 | BSI L ER025,Z- ERROR IF BEYOND LAST PAIR CP218390 0BBA 7081 1844 | MDX C0610 TEST IF PH ID IN THIS PAIR CP218400 1845 | * CP218410 0BBB CC80 0B3D 1846 | C0695 LDD I C0610+1 FETCH CURRENT PROG ID PAIR CP218420 0BBD 18D0 1847 | C0700 RTE 16 *OTHERWISE SET SW TO PASS CP218430 0BBE 83D6 1848 | A 3 BX901-X *PHASES UNTIL CP218440 0BBF D3FB 1849 | STO 3 BY926-X *NEXT PAIR CP218450 0BC0 D3FA 1850 | STO 3 BY925-X *FROM PHASE ID RCD REACHED CP218460 0BC1 4400 076D 1851 | BSI L ER029 DISPLAY 'PROGRAM NOT FOUND' CP218470 1852 | * CP218480 0BC3 C335 1853 | C0710 LD 3 BZ908-X THE SW FOR ADDING A PROG CP218490 0BC4 4C20 0BAC 1854 | BSC L C0670,Z *SHOULD BE OFF, ELSE ERROR CP218500 0BC6 4400 09EF 1855 | BSI L C0100 FORCE A HOLE IN SLET CP218510 1856 | * CP218520 1857 | * UPON RETURN SYSTEM WILL BE EXPANDED INTO CUSHION CP218530 1858 | * TO MAKE ROOM FOR ADDED PHASE CP218540 1859 | * CP218550 0BC8 C10B 1860 | LD 1 11 FETCH ID OF PHASE TO ADD CP218560 0BC9 4400 0674 1861 | BSI L SSLET SEARCH FOR DUMMY SLET ENTRY CP218570 0BCB 4C80 0B3B 1862 | BSC I C0600 RETURN WITH SLET SET IN TOW CP218580 1863 | * CP218590 1864 | *************************************************** CP218600 1865 | * CP218610 1866 | * REMOVE A RELOAD TABLE ENTRY IF PRESENT CP218620 1867 | * IN DISK RELOAD TABLE CP218630 1868 | * CP218640 0BCD 0000 1869 | C0720 DC 0 ENTRY/RETURN ADDRESS CP218650 0BCE C400 0D7B 1870 | LD L BUFR2+1 CP218660 0BD0 D02B 1871 | STO C0970 SAVE SECTOR ADDRESS CP218670 0BD1 C3DB 1872 | LD 3 BX906-X CP218680 0BD2 D400 0D7B 1873 | STO L BUFR2+1 CP218690 0BD4 4400 065C 1874 | BSI L FTCH2 READ RELOAD TBL INTO BUFR2 CP218700 0BD6 6A1E 1875 | STX 2 C0760+1 SAVE XR2 CP218710 0BD7 6600 0D7C 1876 | LDX L2 BUFR2+2 ADDR FIRST DATA WORD CP218720 0BD9 C200 1877 | C0730 LD 2 0 PHASE ID FROM RELOAD TABLE CP218730 0BDA 910B 1878 | S 1 11 NEW PHASE ID CP218740 0BDB 4C18 0BE3 1879 | BSC L C0740,+- FOUND THE TABLE ENTRY CP218750 0BDD C200 1880 | LD 2 0 STOP SEARCH IF END OF CP218760 0BDE F31B 1881 | EOR 3 BY965-X *RELOAD TABLE CP218770 0BDF 4C18 0BF4 1882 | BSC L C0760,+- BR TO RETURN CP218780 0BE1 7203 1883 | MDX 2 3 GO TRY NEXT 3 WORD ENTRY CP218790 0BE2 70F6 1884 | MDX C0730 *IN RELOAD TABLE CP218800 0BE3 C203 1885 | C0740 LD 2 3 SHIFT REST OF RELOAD TABLE CP218810 0BE4 D200 1886 | STO 2 0 *3 PLACES LEFT CP218820 0BE5 F31B 1887 | EOR 3 BY965-X IS IT /FFFF CP218830 0BE6 4C18 0BEE 1888 | BSC L C0750,+- YES, END OF TABLE CP218840 0BE8 C204 1889 | LD 2 4 THIS 3 WORD SHIFT REMOVES CP218850 0BE9 D201 1890 | STO 2 1 *THE FOUND ENTRY FROM THE CP218860 0BEA C205 1891 | LD 2 5 *TABLE CP218870 0BEB D202 1892 | STO 2 2 CP218880 0BEC 7203 1893 | MDX 2 3 CP218890 0BED 70F5 1894 | MDX C0740 LOOP UNTIL END OF TABLE CP218900 0BEE 1810 1895 | C0750 SRA 16 MAKE SURE 3 WORDS AFTER CP218910 0BEF D201 1896 | STO 2 1 */FFFF ARE ZEROES CP218920 0BF0 D202 1897 | STO 2 2 CP218930 0BF1 D203 1898 | STO 2 3 CP218940 1899 | * CP218950 1900 | * NOTE.. CHECKSUM HAS NOT BEEN ALTERED CP218960 1901 | * CP218970 0BF2 4400 06B6 1902 | BSI L WRIT2 WRITE BACK RELOAD TABLE CP218980 0BF4 6600 0000 1903 | C0760 LDX L2 *-* RESTORE XR2 CP218990 0BF6 C005 1904 | LD C0970 RETRIEVE AND RESTORE CP219000 0BF7 D400 0D7B 1905 | STO L BUFR2+1 *SECTOR ADDRESS CP219010 0BF9 C10B 1906 | LD 1 11 RELOAD PHASE ID CP219020 0BFA 4C80 0BCD 1907 | BSC I C0720 RETURN CP219030 1908 | * CP219040 1909 | * CONSTANTS AND WORK AREAS CP219050 1910 | * CP219060 0BFC 0000 1911 | C0970 DC *-* SAVED SECTOR ADDRESS CP219070 1912 | * CP219080 0BFD 1913 | BSS C0000+2*@SCNT-*-1 PATCH AREA CP219090 1914 | * CP219100 0C37 1915 | C0999 EQU *-1 END OF OVERLAY 0 CP219110 BUFFER AREAS 1917 | * CP219130 1918 | * RELOAD TABLE BUFFER CP219140 1919 | * CP219150 0C38 1920 | ORG @MNCR-3*@SCNT-8 CP219160 0C38 0001 1921 | BUFR1 DC 1 WORD COUNT CP219170 0C39 0006 1922 | DC @RLTB SECTOR ADDRESS CP219180 1923 | * CP219190 1924 | * SECTOR BUFFER CP219200 1925 | * CP219210 0D7A 1926 | ORG @MNCR-2*@SCNT-6 CP219220 0D7A 0140 1927 | BUFR2 DC @SCNT WORD COUNT CP219230 0D7B 0F0F 1928 | DC /0F0F SECTOR ADDRESS CP219240 1929 | * 2-4 CP219250 1930 | * PERFORM 3 FUNCTIONS AT START OF PHASE 2. 2-4 CP219260 1931 | * THEN THIS IS OVERLAID BY DISK BUFFER. 2-4 CP219270 1932 | * 2-4 CP219280 0D7C 0000 1933 | B0000 DC 0 ENTRY/RETURN ADDRESS CP219290 1934 | * 2-4 CP219300 1935 | * CLEAR SIGN BITS FROM SCTR ADDRS IN SLET TABLE 2-4 CP219310 1936 | * 2-4 CP219320 0D7D C312 1937 | LD 3 BY955-X FETCH AND CP219330 0D7E D400 0EBF 1938 | STO L BUFR3+1 *STORE 1ST SLET SCTR ADDR CP219340 0D80 4400 0668 1939 | C3620 BSI L FTCH3 BR TO FETCH A SLET SECTOR CP219350 0D82 6680 087E 1940 | LDX I2 BY913 XR2 POINTS TO 1ST SLET WD CP219360 0D84 C203 1941 | C3640 LD 2 3 FETCH THE SECTOR ADDRESS CP219370 0D85 E322 1942 | AND 3 BY974-X MASK OUT SIGN BIT CP219380 0D86 D203 1943 | STO 2 3 RESTORE SECTOR ADDRESS CP219390 0D87 6A10 1944 | STX 2 C3960 PLACE POINTER CP219400 0D88 C00F 1945 | LD C3960 *IN ACCUMULATOR CP219410 0D89 93F0 1946 | S 3 BY914-X TEST FOR AND BR CP219420 0D8A 4C18 0D8E 1947 | BSC L C3660,+- *IF SECTOR COMPLETED CP219430 0D8C 7204 1948 | MDX 2 4 INCREMENT FOR NEXT SET CP219440 0D8D 70F6 1949 | MDX C3640 BRANCH FOR NEXT SET CP219450 0D8E 4400 06E1 1950 | C3660 BSI L WRIT3 BRANCH TO WRITE SLET SCTR CP219460 0D90 C400 0EBF 1951 | LD L BUFR3+1 FETCH SLET SCTOR ADDRESS CP219470 0D92 9313 1952 | S 3 BY956-X TEST FOR AND BR CP219480 0D93 4C10 0D99 1953 | BSC L B0010,- *IF LAST SLET SECTOR 2-4 CP219490 0D95 7401 0EBF 1954 | MDX L BUFR3+1,1 INCREMENT SLET SCTR ADDRESS CP219500 0D97 70E8 1955 | MDX C3620 BR TO FETCH NEXT SLET SCTR CP219510 0D98 0000 1956 | C3960 DC *-* TEMPORARY XR2 STORAGE CP219520 1957 | * CP219530 1958 | * LOCATE HIGHEST PHASE ID IN SLET AND SAVE FOR CP219540 1959 | * RELOAD PROCESSING. THIS SUBR EXECUTED ONCE ONLY. CP219550 1960 | * THEN OVERLAID BY DISK BUFFER. CP219560 1961 | * CP219570 0D99 C312 1962 | B0010 LD 3 BY955-X FETCH AND STORE SLET CP219580 0D9A D400 0EBF 1963 | STO L BUFR3+1 *SCTR ADDR IN I/O BUFFER CP219590 0D9C 4400 0668 1964 | B0020 BSI L FTCH3 BR TO FETCH A SLET SECTOR CP219600 0D9E 6600 FEC0 1965 | LDX L2 -320 WORDS PER SECTOR CP219610 0DA0 C600 1000 1966 | B0040 LD L2 BUFR3+322 FETCH PHASE ID FROM SLET CP219620 0DA2 4C18 0DBB 1967 | BSC L C0800,+- BR IF END OF SLET 2-4 CP219630 0DA4 C600 1000 1968 | LD L2 BUFR3+322 FETCH AND CP219640 0DA6 D3F9 1969 | STO 3 BY924-X *STORE LARGEST PHASE ID CP219650 0DA7 C600 1002 1970 | LD L2 BUFR3+324 WD COUNT OF LAST PHASE CP219660 0DA9 83E0 1971 | A 3 BX913-X ADD WORDS/SECTOR - 1 2-4 CP219670 0DAA 1890 1972 | SRT 16 SHIFT INTO EXTENSION CP219680 0DAB ABE1 1973 | D 3 BX914-X DIVIDE BY WORDS PER SECTOR CP219690 0DAC 8600 1003 1974 | A L2 BUFR3+325 ADD BEGINNING SCTR ADDR CP219700 0DAE D3EC 1975 | STO 3 BY910-X FIRST AVIALABLE SECTOR 2-4 CP219710 0DAF 93D6 1976 | S 3 BX901-X SUB 1 2-4 CP219720 0DB0 D304 1977 | STO 3 BY937-X LAST SECTOR USED 2-4 CP219730 0DB1 7204 1978 | MDX 2 4 CP219740 0DB2 70ED 1979 | MDX B0040 LOOP WITHIN SECTOR CP219750 0DB3 7401 0EBF 1980 | MDX L BUFR3+1,1 INCREMENT SLET SCTR ADDRESS CP219760 0DB5 C400 0EBF 1981 | LD L BUFR3+1 CHECK IF THREE SLET CP219770 0DB7 9312 1982 | S 3 BY955-X *SECTORS HAVE BEEN CP219780 0DB8 93F7 1983 | S 3 BY922-X *PROCESSED CP219790 0DB9 4C28 0D9C 1984 | BSC L B0020,+Z IF NOT FETCH ANOTHER SECTOR CP219800 1985 | * 2-4 CP219810 1986 | * DURING START OF RELOAD, FIND EXISTING GAPS 2-4 CP219820 1987 | * BETWEEN SYSTEM PROGRAMS AND SHIFT THEM OUT 2-4 CP219830 1988 | * 2-4 CP219840 0DBB C312 1989 | C0800 LD 3 BY955-X SET SCTR ADDR TO FIRST 2-4 CP219850 0DBC D400 0EBF 1990 | STO L BUFR3+1 *SLET SECTOR 2-4 CP219860 0DBE C3DC 1991 | LD 3 BX908-X INITIALIZE EXPECTED SCTR2-4 CP219870 0DBF D3F1 1992 | STO 3 BY915-X *ADDR OF FIRST PHASE= 8 2-4 CP219880 0DC0 C400 0EBF 1993 | C0810 LD L BUFR3+1 TEST FOR END OF SLET 2-4 CP219890 0DC2 9313 1994 | S 3 BY956-X *TABLE SECTORS 2-4 CP219900 0DC3 4CB0 0D7C 1995 | BSC I B0000,-Z RETURN IF END OF SLET 2-4 CP219910 0DC5 4400 0668 1996 | BSI L FTCH3 FETCH NEST SLET SECTOR 2-4 CP219920 0DC7 6680 087E 1997 | LDX I2 BY913 POINT XR2 TO FIRST ENTRY2-4 CP219930 0DC9 C200 1998 | C0820 LD 2 0 RETURN IF END OF SLET 2-4 CP219940 0DCA 4C98 0D7C 1999 | BSC I B0000,+- *TABLE ENTRIES 2-4 CP219950 2000 | * TEST FOR AND SKIP 5 PRINCIPAL I/O SLET ENTRIES2-4 CP219960 0DCC 9021 2001 | S C0841 COMPARE WITH PRINT PH ID2-4 CP219970 0DCD 4C28 0DD2 2002 | BSC L C0822,Z+ BR IF .LT. PRINT 2-4 CP219980 0DCF 93DA 2003 | S 3 BX905-X COMPARE WITH PRINT+5 2-4 CP219990 0DD0 4C28 0DDF 2004 | BSC L C0825,Z+ BR IF PRINCIPAL I/O 2-4 CP220000 0DD2 C203 2005 | C0822 LD 2 3 GET SCTR ADDR OF PHASE 2-4 CP220010 0DD3 D3F3 2006 | STO 3 BY917-X SAVE AS 'FROM' ADDR 2-4 CP220020 0DD4 93F1 2007 | S 3 BY915-X TEST FOR GAP 2-4 CP220030 0DD5 4C20 0DE8 2008 | BSC L C0830,Z BR IF GAP FOUND 2-4 CP220040 0DD7 C202 2009 | LD 2 2 CALCULATE NUMBER 2-4 CP220050 0DD8 83E0 2010 | A 3 BX913-X *OF SECTORS 2-4 CP220060 0DD9 1890 2011 | SRT 16 *IN THIS PHASE 2-4 CP220070 0DDA ABE1 2012 | D 3 BX914-X *FROM WORD COUNT 2-4 CP220080 0DDB D30D 2013 | STO 3 BY947-X SAVE SCTR CNT THIS PHASE2-4 CP220090 0DDC C203 2014 | LD 2 3 GET SCTR ADDR OF PHASE 2-4 CP220100 0DDD 830D 2015 | A 3 BY947-X ADD LENGTH OF THIS PHASE2-4 CP220110 0DDE D3F1 2016 | STO 3 BY915-X *TO GET ADDR NEXT PHASE 2-4 CP220120 0DDF 7204 2017 | C0825 MDX 2 4 ADVANCE SLET POINTER 2-4 CP220130 0DE0 6A0C 2018 | STX 2 C0840 IS XR2 POINTER 2-4 CP220140 0DE1 C00B 2019 | LD C0840 *BEYOND ADDR LAST SLET 2-4 CP220150 0DE2 93F0 2020 | S 3 BY914-X *ENTRY IN SECTOR 2-4 CP220160 0DE3 4C08 0DC9 2021 | BSC L C0820,+ BR IF MORE IN SECTOR 2-4 CP220170 0DE5 7401 0EBF 2022 | MDX L0 BUFR3+1,1 INCR SLET SCTR ADDR BY 12-4 CP220180 0DE7 70D8 2023 | MDX C0810 BR TO READ NEXT SECTOR 2-4 CP220190 2024 | * 2-4 CP220200 0DE8 C3F1 2025 | C0830 LD 3 BY915-X SET 'TO' ADDR TO ADDR 2-4 CP220210 0DE9 D3F4 2026 | STO 3 BY918-X *OF GAP 2-4 CP220220 0DEA 4400 04BB 2027 | BSI L BD099 GO TO UPDATE/SHIFT SUBR 2-4 CP220230 0DEC 70CE 2028 | MDX C0800 LOOP UNTIL NO GAPS LEFT 2-4 CP220240 0DED 0000 2029 | C0840 DC *-* TEMP STORAGE FOR XR2 2-4 CP220250 0DEE 0099 2030 | C0841 DC PRINT PH ID OF PRINCIPAL PRINT2-4 CP220260 2031 | * CP220270 0EBC 2032 | ORG B0000+@SCNT SECTOR BUFFER CP220280 0EBC 0F0F 2033 | B2END DC /0F0F INDICATES END OF BUFFER CP220290 0EBD 0000 2034 | DC *-* AVAILABLE CP220300 2035 | * CP220310 2036 | * SLET BUFFER CP220320 2037 | * CP220330 0EBE 2038 | ORG @MNCR-@SCNT-2 CP220340 0EBE 0140 2039 | BUFR3 DC @SCNT WORD COUNT CP220350 0EBF 0003 2040 | DC @SLET SECTOR ADDRESS CP220360 *SBRK XX 2041 | *SYS LDR - PHASE 2 - OVERLAY 1 CP220370 OVERLAY 1 - INITIAL LOAD 09B6 2043 | ORG OVLAY BEGIN IN OVERLAY AREA CP220390 2044 | * CP220400 2045 | * CP220410 09B6 0280 2046 | DC C1999-C1000+2 WORD CNT OF OVERLAY 1 CP220420 09B7 0635 2047 | DC @P2AD+5 SCTR ADDR OF OVERLAY 1 CP220430 2048 | * CP220440 2049 | * TAPE TO BE LOADED MUST INCLUDE ALL PHASES CP220450 2050 | * INDICATED ON PHID RECORD. CP220460 2051 | * CP220470 09B8 0001 2052 | DC 1 INDICATES OVERLAY 1 CP220480 09B9 1000 2053 | C1000 NOP A WAIT MAY BE PATCHED HERE CP220490 2054 | * CP220500 2055 | * THE ADDR IN NEXT INST HAS BEEN MODIFIED SO THAT CP220510 2056 | * XR2 WILL POINT TO LOC OF THIS PH IN SLET SECTOR CP220520 2057 | * CP220530 09BA 6600 0EC0 2058 | C1020 LDX L2 BUFR3+2 MODIFIABLE ADDRESS CP220540 09BC C10B 2059 | LD 1 11 OBTAIN PHASE ID CP220550 09BD 93F9 2060 | S 3 BY924-X IF LAST PH OF LAST PAIR CP220560 09BE 4818 2061 | BSC +- *IS PROCESSED, SWITCH CP220570 09BF D3FE 2062 | STO 3 BY931-X *WILL BE SET ON, TO ZERO CP220580 09C0 C10B 2063 | LD 1 11 PHASE ID NUMBER CP220590 09C1 93EB 2064 | S 3 BY909-X COMPARE WITH 1ST PROG PH CP220600 2065 | * CP220610 2066 | * FOLLOWING 'NOP' MAY BE MODIFIED TO 'MDX C1050' CP220620 2067 | * CP220630 09C2 1000 2068 | C1030 NOP BR TO NEXT INST OR 'C1050' CP220640 09C3 4C18 09C8 2069 | BSC L C1050,+- BR IF STARTING PH PRESENT CP220650 09C5 C3EB 2070 | LD 3 BY909-X IF 1ST PH ID OF PAIR IS CP220660 09C6 4C10 09D4 2071 | BSC L C1064,- *NEG, MATCH NOT REQUIRED CP220670 09C8 C31F 2072 | C1050 LD 3 BY970-X CANCEL FIRST PHASE TRAP CP220680 09C9 D0F8 2073 | STO C1030 SETUP SKIP TO 'C1050' CP220690 09CA 401F 2074 | BSI C1200 TO TEST PH ID LIMITS CP220700 2075 | * CP220710 09CB C400 0EBF 2076 | LD L BUFR3+1 IF CURRENT SLET SECTOR CP220720 09CD 9313 2077 | S 3 BY956-X *ADDR .GT. END SLET ADDR CP220730 09CE 4430 0767 2078 | BSI L ER028,-Z *BR TO ERROR E 28 SLET FULL CP220740 09D0 4400 0693 2079 | BSI L UPCAD SET UP CORE ADDR IN SLET CP220750 09D2 4C00 056E 2080 | BSC L BE200 RETURN FROM OVERLAY 1 CP220760 2081 | * CP220770 09D4 C10B 2082 | C1064 LD 1 11 IF THE CURRENT PH IS LESS CP220780 09D5 93EB 2083 | S 3 BY909-X *THAN 1ST PH OF NEXT PROG, CP220790 09D6 4428 073F 2084 | BSI L ER025,+Z *IT MUST BE EXTRANEOUS CP220800 09D8 4000 2085 | BSI C1070 *OTHERWISE A PH IS MISSING CP220810 2086 | * CP220820 2087 | *************************************************** CP220830 2088 | * CP220840 2089 | * IF LAST PH ID PHID RCRD HAS BEEN STORED DISPLAY CP220850 2090 | * PH ID NOT IN PHID RECORD AND SET SW TO PASS ALL CP220860 2091 | * ADDITIONAL PHASES. CP220870 2092 | * CP220880 09D9 0000 2093 | C1070 DC 0 ENTRY CP220890 09DA C3FE 2094 | LD 3 BY931-X TEST FOR LAST PH STORED CP220900 09DB 4C20 09E4 2095 | BSC L C1080,Z BR IF NOT CP220910 09DD C3D6 2096 | LD 3 BX901-X CP220920 09DE 100E 2097 | SLA 14 SET VERY LARGE NUMBER IN CP220930 09DF D3FB 2098 | STO 3 BY926-X *SWITCHES CP220940 09E0 D3FA 2099 | STO 3 BY925-X *TO BYPASS CP220950 09E1 D338 2100 | STO 3 BZ911-X *SUCCEEDING PHASES CP220960 09E2 4400 073F 2101 | BSI L ER025 PH ID NOT IN PHID RCD CP220970 2102 | * CP220980 09E4 C3EE 2103 | C1080 LD 3 BY912-X RESET PH ID NUMBERS CP220990 09E5 D3ED 2104 | STO 3 BY911-X *TO PREVIOUS VALUE CP221000 09E6 4400 0733 2105 | BSI L ER024 BR TO PRINT MESSAGE E 14 CP221010 09E8 4400 0651 2106 | BSI L BYPAS BR TO BYPASS THIS PHASE CP221020 2107 | * CP221030 2108 | *************************************************** CP221040 2109 | * CP221050 2110 | * DETERMINE IF PHASE ID IS WITHIN ONE OF THE CP221060 2111 | * RANGES SPECIFIED ON PHID RECORD. CP221070 2112 | * CP221080 09EA 0000 2113 | C1200 DC 0 WHEN INDR IS NEG, THIS PAIR CP221090 09EB C3E8 2114 | LD 3 BY905-X *OF LIMITS IS COMPLETED CP221100 09EC 4C10 09F6 2115 | BSC L C1220,- CP221110 09EE 7402 09F7 2116 | C1210 MDX L C1220+1,2 MODIFY ADDR TO NEXT PAIR CP221120 09F0 C480 09F7 2117 | LD I C1220+1 TEST FOR BLANK PHID PAIR CP221130 09F2 4C18 09EE 2118 | BSC L C1210,+- ADVANCE BY 2 IF BLANK CP221140 09F4 C31D 2119 | LD 3 BY967-X FETCH A SKIP INSTRUCTION CP221150 09F5 D003 2120 | STO C1230-1 RESET MDX TO 7000 CP221160 09F6 CC00 020C 2121 | C1220 LDD L PAIR1 MODIFIABLE LOAD ADDRESS CP221170 09F8 DBE7 2122 | STD 3 BY904-X STORE THE CURRENT ID PAIR CP221180 09F9 7000 2123 | MDX C1230 GO TO 'C1230' OR C1290' CP221190 2124 | * CP221200 09FA 7429 09F9 2125 | C1230 MDX L C1230-1,C1290-C1230 MODIFY BRANCH CP221210 09FC E320 2126 | AND 3 BY972-X MASK BITS 0 AND 1 CP221220 09FD 93ED 2127 | S 3 BY911-X DOES PH ID MATCH 'BY904' CP221230 09FE 4C18 0A1D 2128 | BSC L C1270,+- BRANCH IF YES CP221240 2129 | * CP221250 2130 | * A PHASE OF A SYSTEM PROGRAM (ASM AND/OR FOR) CP221260 2131 | * MAY BE BYPASSED. CP221270 2132 | * CP221280 0A00 C400 020D 2133 | C1240 LD L PAIR1+1 LD 2ND ENTRY OF 1ST PAIR CP221290 0A02 E320 2134 | AND 3 BY972-X MASK BITS 0 AND 1 CP221300 0A03 93ED 2135 | S 3 BY911-X ESTABLISH WHICH PAIR THIS CP221310 0A04 4C10 0A11 2136 | BSC L C1260,- PH IS IN. BR IF WITHIN CP221320 0A06 C3E7 2137 | LD 3 BY904-X IF THIS PAIR IS TO BE CP221330 0A07 4410 09D9 2138 | BSI L C1070,- *BYPASSED, PREPARE TO CP221340 0A09 7402 0A01 2139 | MDX L C1240+1,2 LOOK FOR ID IN NEXT PAIR CP221350 0A0B 7402 0A12 2140 | MDX L C1260+1,2 POINT TO NEXT PAIR CP221360 0A0D 7402 0A2E 2141 | MDX L C1310+1,2 POINT TO NEXT PAIR CP221370 0A0F D041 2142 | STO C1920 SET SEQ CHECK SW NEG. CP221380 0A10 70DD 2143 | MDX C1210 BR TO ESTABLISH BOUNDS CP221390 2144 | * CP221400 0A11 C400 020C 2145 | C1260 LD L PAIR1 TRY THIS PAIR CP221410 0A13 E320 2146 | AND 3 BY972-X MASK OUT BITS 0 AND 1 CP221420 0A14 93ED 2147 | S 3 BY911-X COMPARE CURRENT PHASE ID CP221430 0A15 4430 073F 2148 | BSI L ER025,-Z BR IF ID NOT IN PHID RECORD CP221440 0A17 C480 0A12 2149 | LD I C1260+1 TEST IF 'BY904' IS NEG CP221450 0A19 4410 09D9 2150 | BSI L C1070,- MISSING PHASE IF NOT CP221460 0A1B 4400 0651 2151 | BSI L BYPAS BR TO BYPASS THIS PHASE CP221470 2152 | * CP221480 0A1D C3E7 2153 | C1270 LD 3 BY904-X COMPARE THE HIGH AND LOW ID CP221490 0A1E 93E8 2154 | S 3 BY905-X IF ONLY 1 PH IN PH ID PAIR CP221500 0A1F 4C20 0A47 2155 | BSC L C1360,Z *DO NOT BRANCH CP221510 0A21 C0FF 2156 | LD *-1 SET SEQ CHECK SW ON CP221520 0A22 D02E 2157 | STO C1920 CP221530 0A23 C3E8 2158 | C1290 LD 3 BY905-X COMPARE CURRENT PH WITH CP221540 0A24 93ED 2159 | S 3 BY911-X *HIGH ID OF PAIR CP221550 0A25 4C20 0A33 2160 | BSC L C1320,Z BR IF DIFFERENT CP221560 0A27 C0FF 2161 | C1300 LD *-1 SET 'BY905' NEGATIVE CP221570 0A28 D3E8 2162 | STO 3 BY905-X *TO INDICATE PAIR COMPLETED CP221580 0A29 D027 2163 | STO C1920 SET SEQ CHECK SW ON CP221590 0A2A C31C 2164 | LD 3 BY966-X REINSTATE 1ST PH TEST CP221600 0A2B D400 09C2 2165 | STO L C1030 *FOR NEXT PAIR CP221610 0A2D C400 020E 2166 | C1310 LD L PAIR2 RESET TO BEGINNING PH ID CP221620 0A2F D3EB 2167 | STO 3 BY909-X *OF NEXT PAIR CP221630 0A30 7402 0A2E 2168 | MDX L C1310+1,2 ADVANCE THE POINTER CP221640 0A32 7014 2169 | MDX C1360 TEST FOR BYPASS CP221650 2170 | * CP221660 0A33 4428 0A4C 2171 | C1320 BSI L C1380,Z+ BR IF EXTRANEOUS PHASE CP221670 0A35 C01B 2172 | LD C1920 NO SEQUENCE CHECK IF CP221680 0A36 4C28 0A41 2173 | BSC L C1350,+Z *INDICATOR IS NEGATIVE CP221690 0A38 C3ED 2174 | LD 3 BY911-X TEST FOR SEQUENCE WITH CP221700 0A39 93EE 2175 | S 3 BY912-X *PREVIOUS PHASE ID UNLESS CP221710 0A3A 93D6 2176 | S 3 BX901-X *THIS PHASE FOLLOWS A CP221720 0A3B 4C18 0A41 2177 | BSC L C1350,+- *BYPASSED PROGRAM CP221730 0A3D 4428 0A4C 2178 | BSI L C1380,+Z DISPLAY PH OUT OF SEQ CP221740 0A3F 4400 09D9 2179 | BSI L C1070 DISPLAY PHASE MISSING CP221750 0A41 1810 2180 | C1350 SRA 16 RE-INSTATE SEQ CHECK CP221760 0A42 D00E 2181 | STO C1920 *FOR CONSECUTIVE PHASES CP221770 0A43 C3ED 2182 | LD 3 BY911-X COMPARE CURRENT PH ID WITH CP221780 0A44 93E8 2183 | S 3 BY905-X *THE NON-NEG UPPER ID. IF CP221790 0A45 4C18 0A27 2184 | BSC L C1300,+- *NOT =, CONTINUE UNTIL =. CP221800 0A47 C3E7 2185 | C1360 LD 3 BY904-X CP221810 0A48 4428 0651 2186 | BSI L BYPAS,+Z BR TO BYPASS THIS PHASE CP221820 0A4A 4C80 09EA 2187 | BSC I C1200 RETURN CP221830 2188 | * CP221840 0A4C 0000 2189 | C1380 DC 0 ENTRY CP221850 0A4D C3EE 2190 | LD 3 BY912-X RESET PHASE ID CP221860 0A4E D3ED 2191 | STO 3 BY911-X *TO PREVIOUS PHASE ID CP221870 0A4F 4400 072B 2192 | BSI L ER023 BRANCH TO PRINT MSG E 23 CP221880 2193 | * CP221890 2194 | * CONSTANTS AND WORK AREAS CP221900 2195 | * CP221910 0A51 0000 2196 | C1920 DC *-* SEQ CHECK INDICATOR CP221920 2197 | * CP221930 2198 | *************************************************** CP221940 2199 | * CP221950 2200 | * ENTERED ON INITIAL LOADS FROM SCTR BK PROCESSING CP221960 2201 | * CP221970 2202 | * ON INITIAL LOAD SETS THE 5 PHASE IDS FOR THE CP221980 2203 | * PRINCIPAL I/O SUBROUTINES AFTER THE DISKN ID. CP221990 2204 | * CP222000 0A52 0000 2205 | C1400 DC 0 ENTRY/RETURN ADDR TO SUBR CP222010 0A53 C400 0217 2206 | LD L PAIR6+1 TEST IF DISKN WAS LAST CP222020 0A55 93ED 2207 | S 3 BY911-X *PHASE ID TO BE STORED CP222030 0A56 4C20 0A72 2208 | BSC L C1460,Z IF NOT DISKN, RETURN CP222040 0A58 C3DA 2209 | LD 3 BX905-X SET COUNTER TO 5 I/O PHA CP222050 0A59 D01B 2210 | STO C1942 *TO HAVE PRINC IO PH ID SET CP222060 0A5A 6A19 2211 | C1440 STX 2 C1941 TEST IF SLET SECTOR FULL CP222070 0A5B C018 2212 | LD C1941 CP222080 0A5C 93F0 2213 | S 3 BY914-X LAST VALID SLET SET ADDRESS CP222090 0A5D 4C08 0A61 2214 | BSC L C1450,+ BR IF SECTOR NOT FULL CP222100 2215 | * WRITE SLET SECTOR TO DISK CP222110 0A5F 4400 04EB 2216 | BSI L BD200 *AND BR TO READ NEXT SECTOR CP222120 0A61 C014 2217 | C1450 LD C1943 STORE PRINCIPLE I/O PHASE CP222130 0A62 D200 2218 | STO 2 0 *ID IN SLET SET CP222140 0A63 7204 2219 | MDX 2 4 INCR POINTER ONE SLET SET CP222150 0A64 7401 0A76 2220 | MDX L C1943,1 INCR I/O PHASE ID CP222160 0A66 74FF 0A75 2221 | MDX L C1942,-1 DECR AND TEST LOOP COUNTER CP222170 0A68 70F1 2222 | MDX C1440 LOOP FOR 5 I/O PHASE IDS CP222180 0A69 6E00 09BB 2223 | STX L2 C1020+1 SAVE ADDR OF NEXT SLET SET CP222190 0A6B C400 09BB 2224 | LD L C1020+1 CP222200 0A6D 93F0 2225 | S 3 BY914-X LAST VALID SLET SET ADDRESS CP222210 0A6E 4C08 0A72 2226 | BSC L C1460,+ BR IF SECTOR NOT FULL CP222220 0A70 6C00 0885 2227 | STX L0 BY920 SET SLET SCTR FULL INDC ON CP222230 0A72 4C80 0A52 2228 | C1460 BSC I C1400 RETURN CP222240 2229 | * CP222250 2230 | * WORK AREAS CP222260 2231 | * CP222270 0A74 0000 2232 | C1941 DC *-* WORD TO HOLD XR2 FOR CALC CP222280 0A75 0000 2233 | C1942 DC *-* LOOP COUNTER CP222290 0A76 0099 2234 | C1943 DC 153 PRINCIPLE I/O PH IDS CP222300 2235 | * CP222310 2236 | * CP222320 0A77 2237 | BSS C1000+2*@SCNT-*-1 PATCH AREA CP222330 2238 | * CP222340 2239 | * CP222350 0C37 2240 | C1999 EQU *-1 END OF OVERLAY 1 CP222360 *SBRK XX 2241 | *SYS LDR - PHASE 2 - OVERLAY 2 CP222370 OVERLAY 2 - INITLZ RES MON/IMAGE,DCOM 2243 | * CP222390 2244 | * DCOM RELATIVE EQUATES CP222400 2245 | * CP222410 0008 2246 | #SYSC EQU 8 SYS/NON-SYS CART INDR CP222420 0011 2247 | #RP67 EQU 17 1442 MODEL 6 OR 7 INDICATOR CP222430 0019 2248 | #PIOD EQU 25 PRINCIPLE I/O DEVICE INDR CP222440 001A 2249 | #PPTR EQU 26 PRINCIPLE PRINT DEVICE INDR CP222450 001B 2250 | #CIAD EQU 27 RLTV LOC OF CIL SCTR ADDR CP222460 0023 2251 | #ANDU EQU 35 ADJUSTED END OF USER AREA CP222470 0028 2252 | #BNDU EQU 40 BASE END OF USER AREA CP222480 002D 2253 | #FPAD EQU 45 FILE PROTECT ADDRESS CP222490 2254 | * CP222500 0037 2255 | #CIDN EQU 55 CARTRIDGE ID CP222510 003C 2256 | #CIBA EQU 60 SECTOR ADDRESS OF CIB CP222520 0041 2257 | #SCRA EQU 65 SECTOR ADDRESS OF SCRA CP222530 0050 2258 | #ULET EQU 80 SECTOR ADDRESS OF LET CP222540 005A 2259 | #CSHN EQU 90 CUSHION SECTOR COUNT CP222550 2260 | * CP222560 2261 | * OTHER EQUATES CP222570 2262 | * CP222580 0050 2263 | Y EQU 80 MIDDLE OF RESIDENT IM/MON CP222590 00F7 2264 | @DKIP EQU DZ000+5 DISKZ INTERRUPT ENTRY POINT CP222600 2265 | * CP222610 2266 | * CP222620 09B6 2267 | ORG OVLAY BEGIN IN OVERLAY AREA CP222630 2268 | * CP222640 2269 | * CP222650 09B6 0280 2270 | DC C2999-C2000+2 WORD CNT OF OVERLAY 2 CP222660 09B7 063A 2271 | DC @P2AD+5+2+3 SCTR ADDR OF OVERLAY 2 CP222670 2272 | * CP222680 2273 | * CP222690 09B8 0002 2274 | DC 2 INDICATES OVERLAY 2 CP222700 09B9 1000 2275 | C2000 NOP A WAIT MAY BE PATCHED HERE CP222710 2276 | * CP222720 2277 | * FILL IN RESERVED SLET AREA WITH PRINCIPAL PRINT, CP222730 2278 | * I/O AND CONVERSION ENTRIES. CP222740 2279 | * CP222750 09BA C480 09DC 2280 | C2010 LD I C2900 FETCH ADDR OF PHASE ID ENT CP222760 09BC D003 2281 | STO C2020+1 *INDIRECTLY, SET BY REQ CRD CP222770 09BD 4C18 09EC 2282 | BSC L C2040,+- WHEN COMPLETE BR TO CONT CP222780 09BF C400 0000 2283 | C2020 LD L *-* FETCH I/O SUBR PHASE ID CP222790 09C1 4400 0674 2284 | BSI L SSLET BRANCH TO SEARCH SLET CP222800 09C3 4418 0785 2285 | BSI L ER032,+- BR IF NOT IN SLET TABLE CP222810 09C5 C201 2286 | LD 2 1 SAVE LAST CP222820 09C6 D022 2287 | STO C2903 *3 WORDS CP222830 09C7 CA02 2288 | LDD 2 2 *OF SLET CP222840 09C8 D821 2289 | STD C2904 *ENTRY CP222850 09C9 7401 09DC 2290 | MDX L C2900,1 INCR POINTER TO PH ID TABLE CP222860 09CB C480 09DC 2291 | C2030 LD I C2900 PH ID OF PRINCIPAL IO ENTRY CP222870 09CD 7401 09DC 2292 | MDX L C2900,1 INCR POINTER TO PH ID TABLE CP222880 09CF 4C18 09BA 2293 | BSC L C2010,+- IF 0 NO MORE STORES THIS ID CP222890 09D1 4400 0674 2294 | BSI L SSLET FIND ID TO RECEIVE ENTRY CP222900 09D3 4418 0785 2295 | BSI L ER032,+- BR IF NO PLACE RESERVED CP222910 09D5 C013 2296 | LD C2903 INSERT PREVIOUSLY CP222920 09D6 D201 2297 | STO 2 1 *SAVED 3 WORDS IN CP222930 09D7 C812 2298 | LDD C2904 *PRINCIPLE I/O CP222940 09D8 DA02 2299 | STD 2 2 *SLET ENTRY CP222950 09D9 4400 06E1 2300 | BSI L WRIT3 BRANCH TO WRITE SLET SECTOR CP222960 09DB 70EF 2301 | MDX C2030 BRANCH TO STORE ENTRY TWICE CP222970 2302 | * CP222980 2303 | * CONSTANTS AND WORK AREAS CP222990 2304 | * CP223000 09DC 09DD 2305 | C2900 DC C2901 POINTER TO PH ID TABLE CP223010 09DD 0206 2306 | C2901 DC PTRID PH ID OF PRINC PRINT SUBR CP223020 09DE 0099 2307 | DC PRINT POINT TO ID OF PRINC PRINT CP223030 09DF 0000 2308 | DC 0 TO INDICATE END OF STORES CP223040 09E0 0208 2309 | DC RDRID POINT TO ID OF PRINC I/O CP223050 09E1 009A 2310 | DC PINPT PH ID OF PRINC INPUT SUBR CP223060 09E2 009B 2311 | DC PIDEV PRINC INPUT EXCLUDING KEYBD CP223070 09E3 0000 2312 | DC 0 TO INDICATE END OF STORES CP223080 09E4 0209 2313 | DC CNVID POINT TO ID OF PRINC CONV CP223090 09E5 009C 2314 | DC CNVRT PRINC SYS CONVERSION SUBR CP223100 09E6 009D 2315 | DC CVRT PRINC CONV EXCLUDING KEYBRD CP223110 09E7 0000 2316 | DC 0 TO INDICATE END OF STORES CP223120 09E8 0000 2317 | DC 0 TO INDICATE END OF TABLE CP223130 09E9 0000 2318 | C2903 DC *-* AREA TO SAVE LAST 3 WORDS CP223140 09EA 2319 | BSS E FORCE NEXT LOC TO BE EVEN CP223150 09EA 0000 2320 | C2904 DC *-* *OF A SLET CP223160 09EB 0000 2321 | DC *-* *ENTRY CP223170 2322 | * CP223180 2323 | * CANCEL RECORDS NO LONGER PERMITTED CP223190 2324 | * CP223200 09EC 6C00 06E0 2325 | C2040 STX L0 W2902 CANCEL HIGH SCTR ADDR CHECK CP223210 09EE 6500 044D 2326 | LDX L1 BC020+1 XR1 PTS TO RCRD TYPE BRANCH CP223220 09F0 C400 0A5B 2327 | LD L C2906 FETCH ADDR OF ERR SUBR E 21 CP223230 09F2 D100 2328 | STO 1 0 SECTOR CP223240 09F3 D106 2329 | STO 1 2*3 *BREAK, CP223250 09F4 D109 2330 | STO 1 3*3 *'F' AND CP223260 09F5 D10C 2331 | STO 1 4*3 *'81' RECORDS NOT PERMITTED CP223270 2332 | * CP223280 2333 | * FETCH CORE IMAGE LOADER SLET FOR DISKZ. CP223290 2334 | * CP223300 09F6 C400 0218 2335 | LD L PAIR6+2 FETCH PHASE ID OF CIL CP223310 09F8 4400 0674 2336 | BSI L SSLET BRANCH TO SEARCH SLET CP223320 09FA 4418 075A 2337 | BSI L ER027,+- BRANCH IF CIL MISSING CP223330 09FC CA02 2338 | LDD 2 2 SAVE WORD COUNT CP223340 09FD DC00 01F0 2339 | STD L CILWC *AND SECTOR ADDRESS OF CIL CP223350 2340 | * CP223360 2341 | * UPDATE SINGLE ENTRIES IN DCOM CP223370 2342 | * (DCOM IS READ INTO 'BUFR3') CP223380 2343 | * CP223390 09FF 4400 0B1B 2344 | BSI L C2400 BRANCH TO READ DCOM CP223400 0A01 6600 0EC0 2345 | LDX L2 BUFR3+2 XR2 PTS TO 1ST WORD OF DCOM CP223410 0A03 C400 01F7 2346 | LD L T1442 STORE CP223420 0A05 D211 2347 | STO 2 #RP67 *1442-6 OR 7 INDICATOR CP223430 0A06 CC00 020A 2348 | LDD L PRNRD STORE CP223440 0A08 D219 2349 | STO 2 #PIOD *PRINCIPLE I/O CP223450 0A09 18D0 2350 | RTE 16 *AND PRINCIPAL PRINT CP223460 0A0A D21A 2351 | STO 2 #PPTR *INDICATORS CP223470 0A0B C400 01F9 2352 | LD L VERSN SAVE VERSION CP223480 0A0D D208 2353 | STO 2 #SYSC *AND MODIFICATION NUMBER CP223490 0A0E D400 00E0 2354 | STO L $SYSC *IN RESIDENT MONITOR 2-4 CP223500 0A10 C30F 2355 | LD 3 BY951-X STORE RLTV LOC OF CIL SCTR CP223510 0A11 D21B 2356 | STO 2 #CIAD *ADDR IN @IDAD FOR DUP-DEF CP223520 2357 | * CP223530 2358 | * INITIALIZE RESIDENT IMAGE AND RESIDENT MONITOR. CP223540 2359 | * (RESIDENT IMAGE IS READ INTO 'BUFR2') CP223550 2360 | * CP223560 0A12 C311 2361 | LD 3 BY954-X STORE SCTR ADDR OF RESIDENT CP223570 0A13 D400 0D7B 2362 | STO L BUFR2+1 *IMAGE IN BUFFER I/O AREA CP223580 0A15 4400 065C 2363 | BSI L FTCH2 BRANCH TO READ RES IMAGE CP223590 0A17 6600 0D76 2364 | LDX L2 BUFR2+2-6 XR2 PTS TO PSEUDO WORD 0 CP223600 2365 | * CP223610 0A19 C324 2366 | LD 3 BY976-X FETCH 70FF CP223620 0A1A D400 0000 2367 | STO L /0000 *INSTR AND STORE TO LOC 0 CP223630 0A1C C400 0207 2368 | LD L CHN12 SAVE CHANNEL 12 INDICATOR CP223640 0A1E D206 2369 | STO 2 $CH12 *IN RESIDENT IMAGE CP223650 0A1F D400 0006 2370 | STO L $CH12 *AND RESIDENT MONITOR CP223660 0A21 C400 01FB 2371 | LD L SCORE SAVE CORE SIZE CP223670 0A23 D20E 2372 | STO 2 $CORE *IN RESIDENT IMAGE CP223680 0A24 D400 000E 2373 | STO L $CORE *AND RESIDENT MONITOR CP223690 0A26 C400 0A5D 2374 | LD L C2908 SAVE END OF DISKZ ADDRESS CP223700 0A28 D25A 2375 | STO 2 $CILA *IN RESIDENT IMAGE CP223710 0A29 D400 005A 2376 | STO L $CILA *AND RESIDENT MONITOR CP223720 2377 | * CP223730 0A2B 6A03 2378 | STX 2 C2060 SAVE XR2 CP223740 0A2C 4400 0A5F 2379 | BSI L C2100 BRANCH TO INITIALIZE DCOM CP223750 0A2E 6600 0000 2380 | LDX L2 *-* RESTORE CP223760 0A2F 2381 | C2060 EQU *-1 *XR2 CP223770 2382 | * CP223780 0A30 C31B 2383 | LD 3 BY965-X SAVE DISK SUBR INDICATOR CP223790 0A31 D212 2384 | STO 2 $DREQ *IN RESIDENT IMAGE CP223800 0A32 D400 0012 2385 | STO L $DREQ *AND RESIDENT MONITOR, CP223810 0A34 D276 2386 | STO 2 $DZIN *IN RESIDENT IMAGE CP223820 0A35 D400 0076 2387 | STO L $DZIN *AND RESIDENT MONITOR CP223830 0A37 C330 2388 | LD 3 BZ903-X SAVE LET SECTOR ADDRESS CP223840 0A38 D22D 2389 | STO 2 $ULET *IN RESIDENT IMAGE CP223850 0A39 D400 002D 2390 | STO L $ULET *AND RESIDENT MONITOR CP223860 0A3B 7250 2391 | MDX 2 Y XR2 PTS TO 2ND HALF OF RES CP223870 0A3C C400 01F2 2392 | LD L DCYL1 SAVE CP223880 0A3E D254 2393 | STO 2 $DCYL+0-Y *DEFECTIVE CP223890 0A3F C400 01F3 2394 | LD L DCYL2 *CYLINDERS CP223900 0A41 D255 2395 | STO 2 $DCYL+1-Y *ADDRESSES CP223910 0A42 C400 01F4 2396 | LD L DCYL3 *IN CP223920 0A44 D256 2397 | STO 2 $DCYL+2-Y *RESIDENT IMAGE CP223930 0A45 C400 0200 2398 | LD L FPADR SAVE FILE PROTECT ADDRESS CP223940 0A47 D245 2399 | STO 2 $FPAD-Y *IN RESIDENT IMAGE CP223950 0A48 D400 0095 2400 | STO L $FPAD *AND RESIDENT MONITOR CP223960 0A4A C013 2401 | LD C2909 SAVE DISKZ INTRPT ENTRY PT CP223970 0A4B D269 2402 | STO 2 $IBT2-Y *IN RESIDENT IMAGE CP223980 0A4C C00F 2403 | LD C2907 SAVE DUMP ENTRY POINT CP223990 0A4D D2DC 2404 | STO 2 $IREQ-Y *IN RESIDENT IMAGE CP224000 0A4E C400 01FA 2405 | LD L CIBFR FETCH SECTOR ADDRESS OF CIB CP224010 0A50 1890 2406 | SRT 16 SHIFT TO EXTENSION CP224020 0A51 C319 2407 | LD 3 BY963-X FETCH WORD COUNT OF CIB CP224030 0A52 DC00 0004 2408 | STD L $CIBA-1 *AND STORE TO LOWER CORE CP224040 2409 | * CP224050 0A54 4400 06B6 2410 | BSI L WRIT2 BRANCH TO WRITE RES IMAGE CP224060 2411 | * CP224070 0A56 C317 2412 | LD 3 BY961-X FETCH SECTOR ADDRESS OF, CP224080 0A57 6600 09B9 2413 | LDX L2 C3000 *ENTRY POINT TO CP224090 0A59 4400 063F 2414 | BSI L BH000 *AND BR TO FETCH OVERLAY 3 CP224100 2415 | * CP224110 2416 | * CONSTANTS AND WORK AREAS CP224120 2417 | * CP224130 0A5B 071C 2418 | C2906 DC ER021 ADDRESS OF ERROR SUBR E 21 CP224140 0A5C 003F 2419 | C2907 DC $DUMP DUMP ENTRY POINT CP224150 0A5D 01DC 2420 | C2908 DC $ZEND-4 END OF DISKZ - 4 CP224160 0A5E 00F7 2421 | C2909 DC @DKIP DISKZ INTERRUPT ENTRY POINT CP224170 2422 | * CP224180 2423 | *************************************************** CP224190 2424 | * CP224200 2425 | * INITIALIZE OR UPDATE THE CARTRIDGE CP224210 2426 | * DEPENDENT TABLES IN DCOM. CP224220 2427 | * CP224230 0A5F 0000 2428 | C2100 DC 0 ENTRY/RETURN ADDRESS CP224240 0A60 6600 0EC0 2429 | LDX L2 BUFR3+2 XR2 PTS TO 1ST WORD OF DCOM CP224250 2430 | * CP224260 0A62 61FB 2431 | LDX 1 -5 SET CARTRIDGE ID COUNT CP224270 0A63 C400 01FE 2432 | C2120 LD L CARID FETCH CARTRIDGE ID CP224280 0A65 F237 2433 | EOR 2 #CIDN TEST FOR AND BRANCH IF CP224290 0A66 4C18 0A6D 2434 | BSC L C2140,+- *MATCH FOUND IN DCOM CP224300 0A68 7201 2435 | MDX 2 1 POINT TO NEXT DCOM WORD CP224310 0A69 7101 2436 | MDX 1 1 INCR ID COUNT, SKIP IF ZERO CP224320 0A6A 70F8 2437 | MDX C2120 BRANCH TO TEST NEXT CART ID CP224330 0A6B 4400 070A 2438 | BSI L ER005 NO MATCH, BR TO PRINT MSG CP224340 2439 | * ER005 CP224350 0A6D C301 2440 | C2140 LD 3 BY934-X TEST FOR AND BRANCH CP224360 0A6E 4C28 0AAB 2441 | BSC L C2180,Z+ *IF AN INITIAL LOAD CP224370 0A70 7400 08C4 2442 | MDX L BZ908,0 TEST FOR AND BRANCH CP224380 0A72 7008 2443 | MDX C2160 *IF SYSTEM PROGRAMS ADDED CP224390 0A73 C250 2444 | LD 2 #ULET FETCH AND SAVE CP224400 0A74 D330 2445 | STO 3 BZ903-X *ADDRESS OF USER AREA CP224410 0A75 C400 01F6 2446 | LD L CAREA STORE NEW CUSHION SIZE CP224420 0A77 D25A 2447 | STO 2 #CSHN *TO DCOM CP224430 0A78 4400 06E1 2448 | BSI L WRIT3 BRANCH TO WRITE DCOM CP224440 0A7A 7064 2449 | MDX C2190 BRANCH TO RETURN CP224450 2450 | * CP224460 2451 | * UPDATE DCOM ON SYS PROGRAMS ADDED RELOAD CP224470 2452 | * CP224480 0A7B C304 2453 | C2160 LD 3 BY937-X FETCH LAST SAD OF SYS PROGS CP224490 0A7C 83DC 2454 | A 3 BX908-X POINT CP224500 0A7D 1803 2455 | SRA 3 *TO NEXT CP224510 0A7E 1003 2456 | SLA 3 *CYLINDER CP224520 0A7F D064 2457 | STO C2912 SAVE TEMPORARLY CP224530 0A80 9304 2458 | S 3 BY937-X CALCULATE CP224540 0A81 83DC 2459 | A 3 BX908-X *NUMBER OF SECTORS CP224550 0A82 93D6 2460 | S 3 BX901-X *IN CUSHION AREA CP224560 0A83 D25A 2461 | STO 2 #CSHN *AND STORE TO DCOM CP224570 0A84 C05F 2462 | LD C2912 CALCULATE DIFFERENCE CP224580 0A85 83DC 2463 | A 3 BX908-X *BETWEEN OLD SCRA SCTR ADDR CP224590 0A86 9241 2464 | S 2 #SCRA *AND NEW SCRA SCTR ADDRESS CP224600 0A87 D05C 2465 | STO C2912 *AND SAVE CP224610 0A88 C241 2466 | LD 2 #SCRA UPDATE CP224620 0A89 805A 2467 | A C2912 *ADDRESS OF CP224630 0A8A D241 2468 | STO 2 #SCRA *SCRA IN DCOM CP224640 0A8B D400 01FD 2469 | STO L ASCRA *AND COMM AREA CP224650 0A8D C23C 2470 | LD 2 #CIBA UPDATE CP224660 0A8E 8055 2471 | A C2912 *ADDRESS OF CP224670 0A8F D23C 2472 | STO 2 #CIBA *CIB IN DCOM CP224680 0A90 D400 01FA 2473 | STO L CIBFR *AND COMM AREA CP224690 0A92 C250 2474 | LD 2 #ULET UPDATE CP224700 0A93 8050 2475 | A C2912 *ADDRESS OF CP224710 0A94 D250 2476 | STO 2 #ULET *USER AREA IN DCOM CP224720 0A95 1000 2477 | NOP A WAIT MAY BE PATCHED HERE CP224730 0A96 D330 2478 | STO 3 BZ903-X *AND COMM AREA CP224740 0A97 C22D 2479 | LD 2 #FPAD UPDATE CP224750 0A98 804B 2480 | A C2912 *FILE PROTECT CP224760 0A99 D22D 2481 | STO 2 #FPAD *ADDRESS IN DCOM CP224770 0A9A D400 0200 2482 | STO L FPADR *AND COMM AREA CP224780 0A9C C223 2483 | LD 2 #ANDU UPDATE CP224790 0A9D 18C4 2484 | RTE 4 *ADJUSTED CP224800 0A9E 8045 2485 | A C2912 *END OF CP224810 0A9F 1084 2486 | SLT 4 *USER AREA CP224820 0AA0 D223 2487 | STO 2 #ANDU *IN DCOM CP224830 0AA1 C228 2488 | LD 2 #BNDU UPDATE CP224840 0AA2 18C4 2489 | RTE 4 *BASE CP224850 0AA3 8040 2490 | A C2912 *END OF CP224860 0AA4 1084 2491 | SLT 4 *USER AREA CP224870 0AA5 D228 2492 | STO 2 #BNDU *IN DCOM CP224880 0AA6 4400 06E1 2493 | BSI L WRIT3 BRANCH TO WRITE DCOM CP224890 0AA8 4400 0AE5 2494 | BSI L C2200 BR TO UPDATE LET CHAIN ADDR CP224900 0AAA 7034 2495 | MDX C2190 BRANCH TO RETURN CP224910 2496 | * CP224920 2497 | * INITIALIZE DCOM ON AN INITIAL LOAD CP224930 2498 | * CP224940 0AAB C304 2499 | C2180 LD 3 BY937-X FETCH LAST SAD OF SYS PROGS CP224950 0AAC 83DC 2500 | A 3 BX908-X POINT CP224960 0AAD 1803 2501 | SRA 3 *TO NEXT CP224970 0AAE 1003 2502 | SLA 3 *CYLINDER CP224980 0AAF D034 2503 | STO C2912 SAVE TEMPORARLY CP224990 0AB0 9304 2504 | S 3 BY937-X CALCULATE CP225000 0AB1 83DC 2505 | A 3 BX908-X *NUMBER OF CP225010 0AB2 93D6 2506 | S 3 BX901-X *SECTORS IN CUSHION AREA CP225020 0AB3 D25A 2507 | STO 2 #CSHN *AND SAVE IN DCOM CP225030 0AB4 C02F 2508 | LD C2912 CALCULATE CP225040 0AB5 83DC 2509 | A 3 BX908-X *ADDRESS OF SCRA CP225050 0AB6 D241 2510 | STO 2 #SCRA *AND SAVE IN DCOM CP225060 0AB7 D400 01FD 2511 | STO L ASCRA *AND COMM AREA CP225070 0AB9 83DC 2512 | A 3 BX908-X CALCULATE CP225080 0ABA D23C 2513 | STO 2 #CIBA *ADDRESS OF CIB AND STORE CP225090 0ABB D400 01FA 2514 | STO L CIBFR *ST IN DCOM AND COMM AREA CP225100 0ABD 83DD 2515 | A 3 BX909-X CALCULATE CP225110 0ABE D250 2516 | STO 2 #ULET *ADDRESS OF USER AREA AND CP225120 0ABF D330 2517 | STO 3 BZ903-X *ST IN DCOM AND COMM AREA CP225130 0AC0 83DC 2518 | A 3 BX908-X CALCULATE CP225140 0AC1 D22D 2519 | STO 2 #FPAD *FILE PROTECT ADDRESS AND CP225150 0AC2 D400 0200 2520 | STO L FPADR *ST IN DCOM AND COMM AREA CP225160 0AC4 1004 2521 | SLA 4 CALCULATE AND STORE IN DCOM CP225170 0AC5 D223 2522 | STO 2 #ANDU *ADJUSTED END UF USER AREA CP225180 0AC6 D228 2523 | STO 2 #BNDU *AND BASE END OF USER AREA CP225190 0AC7 4400 06E1 2524 | BSI L WRIT3 BRANCH TO WRITE DCOM CP225200 2525 | * CP225210 2526 | * INITIALIZE LET SECTOR ON AN INITIAL LOAD. CP225220 2527 | * (LET IS BUILT IN 'BUFR3') CP225230 2528 | * CP225240 0AC9 4047 2529 | BSI C2300 BRANCH TO CLEAR BUFFER CP225250 0ACA 6600 0EC0 2530 | LDX L2 BUFR3+2 XR2 PTS TO 1ST WORD OF LET CP225260 0ACC C330 2531 | LD 3 BZ903-X FETCH NEW 1ST LET SCTR ADDR CP225270 0ACD D2FF 2532 | STO 2 -1 *AND STORE TO LET I/O BFR CP225280 0ACE C012 2533 | LD C2910 FETCH AND STORE NUMBER OF CP225290 0ACF D203 2534 | STO 2 3 *WORDS AVAILABLE IN SECTOR CP225300 0AD0 C011 2535 | LD C2911 FETCH CP225310 0AD1 D205 2536 | STO 2 5 *AND STORE CP225320 0AD2 C010 2537 | LD C2911+1 *DUMMY CP225330 0AD3 D206 2538 | STO 2 6 *ENTRY NAME CP225340 0AD4 C318 2539 | LD 3 BY962-X CALCULATE CP225350 0AD5 9400 0200 2540 | S L FPADR *AND STORE CP225360 0AD7 83D6 2541 | A 3 BX901-X *SIZE OF CP225370 0AD8 1004 2542 | SLA 4 *WORKING STORAGE CP225380 0AD9 D207 2543 | STO 2 7 *IN DISK BYTES CP225390 0ADA C400 0200 2544 | LD L FPADR FETCH AND STORE CP225400 0ADC D201 2545 | STO 2 1 *SECTOR ADDRESS OF UA CP225410 0ADD 4400 06E1 2546 | BSI L WRIT3 BRANCH TO WRITE LET SECTOR CP225420 2547 | * CP225430 0ADF 4C80 0A5F 2548 | C2190 BSC I C2100 RETURN CP225440 2549 | * CP225450 2550 | * CONSTANTS AND WORK AREAS CP225460 2551 | * CP225470 0AE1 0138 2552 | C2910 DC @SCNT-8 NO. OF WORDS AVAILABLE CP225480 0AE2 7112 2553 | C2911 DC /7112 '1DUMY' IN CP225490 0AE3 4528 2554 | DC /4528 *TRUNCATED EBCDIC NAME CODE CP225500 0AE4 0000 2555 | C2912 DC *-* TEMPORARY STORAGE CP225510 2556 | * CP225520 2557 | *************************************************** CP225530 2558 | * CP225540 2559 | * IF LET AND UA HAVE BEEN RELOCATED THE UA ADDRESS CP225550 2560 | * (WD 2 IN EACH LET SCTR) AND THE CHAIN ADDR (WD 5 CP225560 2561 | * IN EACH LET SCTR) MUST BE ADJUSTED. CP225570 2562 | * CP225580 0AE5 0000 2563 | C2200 DC 0 ENTRY/RETURN ADDRESS CP225590 0AE6 C335 2564 | LD 3 BZ908-X TEST FOR AND RETURN CP225600 0AE7 4C98 0AE5 2565 | BSC I C2200,+- *IF NO NEW PROGRAMS ADDED CP225610 0AE9 C330 2566 | LD 3 BZ903-X FETCH NEW LET SCTR ADDRESS CP225620 0AEA 9400 0202 2567 | S L LET00 TEST FOR AND RETURN IF CP225630 0AEC 4C98 0AE5 2568 | BSC I C2200,+- *SAME AS OLD LET SCTR ADDR CP225640 0AEE D333 2569 | STO 3 BZ906-X SAVE THE DIFFERENCE CP225650 0AEF 6500 0EC0 2570 | LDX L1 BUFR3+2 XR1 POINT TO FIRST LET WORD CP225660 0AF1 C330 2571 | LD 3 BZ903-X FETCH AND STORE CP225670 0AF2 D1FF 2572 | STO 1 -1 *NEW LET SECTOR ADDRESS CP225680 0AF3 4400 0668 2573 | C2240 BSI L FTCH3 BRANCH TO READ A LET SECTOR CP225690 2574 | * CP225700 2575 | * WHEN CHAIN ADDRESS IS 0 THIS IS LAST LET SCTR CP225710 2576 | * CP225720 0AF5 C101 2577 | LD 1 1 FETCH, CP225730 0AF6 8333 2578 | A 3 BZ906-X *INCREMENT AND STORE CP225740 0AF7 D101 2579 | STO 1 1 *SECTOR ADDRESS OF UA CP225750 0AF8 C104 2580 | LD 1 4 FETCH THE CHAIN ADDRESS CP225760 0AF9 4C18 0B02 2581 | BSC L C2280,+- BRANCH IF ZERO CP225770 0AFB 8333 2582 | A 3 BZ906-X INCREMENT AND CP225780 0AFC D104 2583 | STO 1 4 *STORE THE CHAIN ADDRESS CP225790 0AFD 4400 06E1 2584 | BSI L WRIT3 BR TO WRITE THE LET SECTOR CP225800 0AFF 7401 0EBF 2585 | MDX L BUFR3+1,1 INCR ADDR FOR NEXT LET SCTR CP225810 0B01 70F1 2586 | MDX C2240 BR TO READ NEXT LET SECTOR CP225820 2587 | * CP225830 0B02 C3E0 2588 | C2280 LD 3 BX913-X GET CONSTANT HEX 13F 2-5 CP225831 0B03 9103 2589 | S 1 3 SUB NO. WDS AVAILABLE 2-5 CP225832 0B04 D002 2590 | STO C2282+1 SET 2ND WD OF LD INSTR 2-5 CP225833 0B05 D006 2591 | STO C2284+1 SET 2ND WD OF STO INSTR 2-5 CP225834 0B06 C500 0000 2592 | C2282 LD L1 *-* LOAD 1DUMY DB COUNT 2-5 CP225835 0B08 1884 2593 | SRT 4 SECTOR COUNT IN ACC 2-5 CP225836 0B09 9333 2594 | S 3 BZ906-X SUBTRACT DIFFERENCE 2-5 CP225837 0B0A 1084 2595 | SLT 4 GET NEW DB COUNT IN ACC 2-5 CP225838 0B0B D500 0000 2596 | C2284 STO L1 *-* STORE BACK IN LET SCTR 2-5 CP225839 0B0D 4400 06E1 2597 | BSI L WRIT3 BR TO WR LAST LET SCTR CP225840 0B0F 4C80 0AE5 2598 | BSC I C2200 RETURN CP225850 2599 | * CP225860 2600 | * CP225870 2601 | *************************************************** CP225880 2602 | * CP225890 2603 | * CLEAR 'BUFR3' TO BUILD LET INTO. CP225900 2604 | * CP225910 0B11 0000 2605 | C2300 DC 0 ENTRY/RETURN ADDRESS CP225920 0B12 6500 0140 2606 | LDX L1 @SCNT XR1 = BUFFER WORD COUNT CP225930 0B14 1810 2607 | SRA 16 FETCH ZERO CP225940 0B15 D500 0EBF 2608 | C2340 STO L1 BUFR3+1 STORE TO BUFFER CP225950 0B17 71FF 2609 | MDX 1 -1 DECR WORD CNT, SKIP IF ZERO CP225960 0B18 70FC 2610 | MDX C2340 BRANCH TO CLEAR NEXT WORD CP225970 0B19 4C80 0B11 2611 | BSC I C2300 RETURN CP225980 2612 | * CP225990 2613 | *************************************************** CP226000 2614 | * CP226010 2615 | * READ DCOM INTO 'BUFR3' CP226020 2616 | * CP226030 0B1B 0000 2617 | C2400 DC 0 ENTRY/RETURN ADDRESS CP226040 0B1C C310 2618 | LD 3 BY952-X FETCH SECTOR ADDR OF DCOM CP226050 0B1D D400 0EBF 2619 | STO L BUFR3+1 *AND STORE TO I/O BFR AREA CP226060 0B1F 4400 0668 2620 | BSI L FTCH3 BRANCH TO READ DCOM CP226070 0B21 4C80 0B1B 2621 | BSC I C2400 RETURN CP226080 2622 | * CP226090 2623 | * CP226100 0B23 2624 | BSS C2000+2*@SCNT-*-1 PATCH AREA CP226110 2625 | * CP226120 2626 | * CP226130 0C37 2627 | C2999 EQU *-1 END OF OVERLAY 2 CP226140 *SBRK XX 2628 | *SYS LDR - PHASE 2 - OVERLAY 3 CP226150 OVERLAY 3 - SET UP RELOAD TABLE 09B6 2630 | ORG OVLAY BEGIN IN OVERLAY AREA CP226170 2631 | * CP226180 2632 | * CP226190 09B6 0280 2633 | DC C3999-C3000+2 WORD CNT OF OVERLAY 3 CP226200 09B7 063C 2634 | DC @P2AD+5+2+2+3 SCTR ADDR OF OVERLAY 3 CP226210 2635 | * CP226220 2636 | * CP226230 09B8 0003 2637 | DC 3 INDICATES OVERLAY 3 CP226240 09B9 1000 2638 | C3000 NOP A WAIT MAY BE PATCHED HERE CP226250 2639 | * STATEMENT REMOVED 2-4 CP226260 09BA 4400 0A68 2640 | BSI L C3800+1 TEST FOR DEVICES NOT HERE CP226270 09BC C31B 2641 | LD 3 BY965-X SET FIRST WORD FOLLOWING CP226280 09BD D480 055D 2642 | STO I BE120+1 *RELOAD TABLE TO /FFFF CP226290 09BF C301 2643 | LD 3 BY934-X IF RELOAD, BR TO UNITE CP226300 09C0 4410 0A2E 2644 | BSI L C3400,- *CORE & DISK RELOAD TABLES CP226310 09C2 4400 06AA 2645 | BSI L WRIT1 UPDATE RELOAD TABLE ON DISK CP226320 09C4 4400 0A91 2646 | BSI L CK500 BR TO CALCULATE CHECKSUM CP226330 09C6 D400 0D79 2647 | STO L BUFR1+1+@SCNT STORE IN RELOAD TABLE CP226340 09C8 4400 06AA 2648 | BSI L WRIT1 UPDATE RELOAD TABLE ON DISK CP226350 09CA 4400 0AC2 2649 | BSI L RLTBL PROCESS RELOAD TBL IN CORE CP226360 2650 | * CP226370 2651 | * SET THE WORD COUNT AND SECTOR ADDRESS AT THE CP226380 2652 | * END OF DISKZ ON THE COLD START SECTOR. CP226390 2653 | * CP226400 09CC CC00 01F0 2654 | LDD L CILWC FETCH AND STORE WORD COUNT CP226410 09CE DC00 01DC 2655 | STD L $ZEND-4 *AND SECTOR ADDRESS OF CIL CP226420 09D0 C83F 2656 | LDD C3902 FETCH AND STORE WD CNT AND CP226430 09D1 DC00 0D7A 2657 | STD L BUFR2 *SCTR ADDR OF COLD START CP226440 09D3 4400 065C 2658 | BSI L FTCH2 BRANCH TO FETCH COLD START CP226450 09D5 CC00 01F0 2659 | LDD L CILWC ST WD CNT AND SCTR ADDR OF CP226460 09D7 DC00 0E86 2660 | STD L BUFR2+$ZEND-@CSTR-4 *CIL TO C.S. END CP226470 09D9 CC00 06DE 2661 | LDD L W2900 FETCH FUNC CODE/I/O AR ADDR CP226480 09DB 4400 00F2 2662 | BSI L DZ000 BRANCH TO WRITE COLD START CP226490 09DD 7400 00EE 2663 | MDX L $DBSY,0 SKIP NEXT IF WRITE COMPLET CP226500 09DF 70FD 2664 | MDX *-3 BR TO TEST WRITE COMPLETE CP226510 09E0 4400 0A12 2665 | BSI L C3200 BR TO CLEAR SYS LDR FR DISK CP226520 09E2 6500 003F 2666 | LDX L1 $DUMP SET $IREQ CP226530 09E4 6D00 002C 2667 | STX L1 $IREQ *POINTING TO $DUMP CP226540 09E6 C301 2668 | LD 3 BY934-X TEST FOR AND BRANCH TO CP226550 09E7 4C10 0B4C 2669 | BSC L C3900,- *END RELOAD IF RELOAD MODE CP226560 2670 | * CP226570 2671 | * CLEAR THE PAGE HEADING BUFFER. CP226580 2672 | * CP226590 09E9 6500 0140 2673 | LDX L1 @SCNT XR1 = SECTOR WORD COUNT CP226600 09EB C040 2674 | LD C3926 FETCH AN EBCDIC BLANK /4040 CP226610 09EC D500 0D7B 2675 | C3040 STO L1 BUFR2+1 STORE TO BUFFER CP226620 09EE 71FF 2676 | MDX 1 -1 DECR WORD CNT, SKIP IF ZERO CP226630 09EF 70FC 2677 | MDX C3040 BRANCH TO STORE NEXT WORD CP226640 09F0 C839 2678 | LDD C3924 FETCH AND STORE CP226650 09F1 DC00 0D7C 2679 | STD L BUFR2+2 *'PAGE' TO BUFFER CP226660 09F3 C039 2680 | LD C3927 FETCH AND STORE CP226670 09F4 D400 0D7F 2681 | STO L BUFR2+5 *PAGE COUNT (1) TO BUFFER CP226680 09F6 C3D6 2682 | LD 3 BX901-X INITIALIZE CP226690 09F7 D400 0037 2683 | STO L $PGCT *PAGE COUNT IN COMMA CP226700 09F9 C02E 2684 | LD C3922 FETCH AND STORE CP226710 09FA D400 0D7B 2685 | STO L BUFR2+1 *HEADING SECTOR ADDRESS CP226720 09FC 4400 06B6 2686 | BSI L WRIT2 BR TO WRITE HEADING SECTOR CP226730 2687 | * CP226740 2688 | * UPDATE STATUS WORD IN ID SECTOR CP226750 2689 | * CP226760 09FE C337 2690 | LD 3 BZ910-X FETCH AND STORE SECTOR CP226770 09FF D400 0D7B 2691 | STO L BUFR2+1 *ADDRESS OF ID SECTOR CP226780 0A01 4400 065C 2692 | BSI L FTCH2 BRANCH TO FETCH ID SECTOR CP226790 0A03 C3D7 2693 | LD 3 BX902-X UPDATE CP226800 0A04 D400 0D83 2694 | STO L BUFR2+2+@STAT *STATUS (WORD 7 = +2) CP226810 0A06 4400 06B6 2695 | BSI L WRIT2 BRANCH TO WRITE ID SECTOR CP226820 2696 | * CP226830 2697 | * CALL THE AUXILIARY SUPERVISOR TO PLACE A DUMMY CP226840 2698 | * 'DUP' RECORD IN THE SUPERVISOR BUFFER. CP226850 2699 | * CP226860 0A08 1000 2700 | NOP A WAIT MAY BE PATCHED HERE CP226870 0A09 1810 2701 | SRA 16 CLEAR CP226880 0A0A D400 0032 2702 | STO L $IOCT *I/O COUNTER CP226890 0A0C 4400 003F 2703 | BSI L $DUMP BRANCH TO FETCH AUX SUPV CP226900 0A0E FFFB 2704 | DC -5 INDICATES A DUMMY 'DUP' CP226910 2705 | * CP226920 2706 | * CONSTANTS AND WORK AREAS. CP226930 2707 | * CP226940 0A10 2708 | BSS E 0 FORCE NEXT LOC TO BE EVEN CP226950 0A10 0140 2709 | C3902 DC 320 WORD COUNT CP226960 0A11 0000 2710 | DC @IDAD SECTOR ADDRESS CP226970 2711 | * CP226980 2712 | *************************************************** CP226990 2713 | * CP227000 2714 | * CLEAR SYSTEM LOADER FROM DISK. CP227010 2715 | * CP227020 0A12 0000 2716 | C3200 DC 0 ENTRY/RETURN ADDRESS CP227030 0A13 6500 0140 2717 | LDX L1 @SCNT XR1 = SECTOR WORD COUNT CP227040 0A15 1810 2718 | SRA 16 CLEAR ACCUMULATOR CP227050 0A16 D500 0D7B 2719 | C3220 STO L1 BUFR2+1 STORE TO BUFFER CP227060 0A18 71FF 2720 | MDX 1 -1 DECR WORD CNT, SKIP IF ZERO CP227070 0A19 70FC 2721 | MDX C3220 BRANCH TO CLEAR NEXT WORD CP227080 0A1A C00C 2722 | LD C3921 FETCH AND STORE CP227090 0A1B D400 0D7B 2723 | STO L BUFR2+1 *SECTOR ADDRESS CP227100 0A1D 7401 0D7B 2724 | C3260 MDX L BUFR2+1,1 INCREMENT SECTOR ADDRESS CP227110 0A1F 4400 06B6 2725 | BSI L WRIT2 BRANCH TO WRITE A SECTOR CP227120 0A21 74FF 0A26 2726 | MDX L C3920,-1 DECR SCTR CNT, SKIP IF ZERO CP227130 0A23 70F9 2727 | MDX C3260 BRANCH TO WRITE NEXT SECTOR CP227140 0A24 4C80 0A12 2728 | BSC I C3200 RETURN CP227150 2729 | * CP227160 2730 | * CONSTANTS AND WORK AREAS. CP227170 2731 | * CP227180 0A26 000F 2732 | C3920 DC 15 NO. SCTRS OCCUPIED BY PH 2 CP227190 0A27 062F 2733 | C3921 DC @P2AD-1 SCTR ADDR OF PHASE 2 - 1 CP227200 0A28 0007 2734 | C3922 DC @HDNG PAGE HEADING SECTOR CP227210 0A2A 2735 | BSS E 0 FORCE NEXT LOC TO BE EVEN CP227220 0A2A D7C1 C7C5 2736 | C3924 EBC .PAGE. CP227230 0A2C 4040 2737 | C3926 DC /4040 EBCDIC BLANKS CP227240 0A2D 40F1 2738 | C3927 DC /40F1 EBCDIC FOR BLANK, ONE CP227250 2739 | * CP227260 2740 | *************************************************** CP227270 2741 | * CP227280 2742 | * COMPARE THE RELOAD TABLE CONSTRUCTED IN CORE TO CP227290 2743 | * THE RELOAD TABLE RESIDING ON DISK. CP227300 2744 | * CP227310 0A2E 0000 2745 | C3400 DC 0 ENTRY/RETURN ADDRESS CP227320 0A2F C480 0A66 2746 | LD I C3940 ADVANCE IN-CORE RELOAD CP227330 0A31 F31B 2747 | EOR 3 BY965-X *TABLE POINTER TO LOCATION CP227340 0A32 4C18 0A37 2748 | BSC L C3410,+- *OF 'FFFF' ENTRY CP227350 0A34 7403 0A66 2749 | MDX L C3940,3 PASS GROUP OF 3 CP227360 0A36 70F8 2750 | MDX C3400+1 TEST FOR 'FFFF' AGAIN CP227370 0A37 C400 0C39 2751 | C3410 LD L BUFR1+1 PREPARE TO FETCH CP227380 0A39 D400 0D7B 2752 | STO L BUFR2+1 *RELOAD TABLE CP227390 0A3B 4400 065C 2753 | BSI L FTCH2 BR TO FETCH RELOAD TABLE CP227400 0A3D 6500 0D7C 2754 | LDX L1 BUFR2+2 XR1 POINTS TO RELOAD TABLE CP227410 0A3F 6600 0C3A 2755 | C3420 LDX L2 BUFR1+2 XR2 POINTS TO IN-CORE TABLE CP227420 0A41 C100 2756 | LD 1 0 IF NO MORE ENTRIES ARE IN CP227430 0A42 F31B 2757 | EOR 3 BY965-X *THE DISK RELOAD TABLE CP227440 0A43 4C98 0A2E 2758 | BSC I C3400,+- *RETURN CP227450 0A45 C200 2759 | C3430 LD 2 0 IF END OF IN-CORE TABLE CP227460 0A46 F31B 2760 | EOR 3 BY965-X *BEFORE MATE WAS FOUND CP227470 0A47 4C18 0A4F 2761 | BSC L C3450,+- *BR TO PLACE AT END OF TBL CP227480 0A49 C100 2762 | LD 1 0 TEST FOR RELOAD PHASE CP227490 0A4A 9200 2763 | S 2 0 *MATE CP227500 0A4B 4C18 0A64 2764 | BSC L C3440,+- *BR IF FOUND CP227510 0A4D 7203 2765 | MDX 2 3 ADVANCE 1 SET IN IN-CORE CP227520 0A4E 70F6 2766 | MDX C3430 *TABLE, TRY FOR MATE AGAIN CP227530 2767 | * CP227540 2768 | * PLACE AN UNMATCHED ENTRY AT END OF IN-CORE TABLE CP227550 2769 | * CP227560 0A4F C400 0C38 2770 | C3450 LD L BUFR1 FETCH WD CNT IN RELOAD TBL CP227570 0A51 93E1 2771 | S 3 BX914-X TEST FOR CP227580 0A52 83D7 2772 | A 3 BX902-X *AND BRANCH CP227590 0A53 4410 0779 2773 | BSI L ER130,- *IF EQ TO/GREATER THAN 318 CP227600 0A55 6680 0A66 2774 | LDX I2 C3940 XR2 = CURRENT POINTER CP227610 0A57 C100 2775 | LD 1 0 MOVE CP227620 0A58 D200 2776 | STO 2 0 *DISK RELOAD TABLE ENTRY CP227630 0A59 C101 2777 | LD 1 1 *TO END OF CP227640 0A5A D201 2778 | STO 2 1 *IN-CORE TABLE CP227650 0A5B C102 2779 | LD 1 2 *TO BE CP227660 0A5C D202 2780 | STO 2 2 *PROCESSED CP227670 0A5D 7403 0A66 2781 | MDX L C3940,3 INCR END OF STRING POINTER CP227680 0A5F 7403 0C38 2782 | MDX L BUFR1,3 INCREMENT STRING WORD COUNT CP227690 0A61 C31B 2783 | LD 3 BY965-X STORE 'FFFF' CP227700 0A62 D480 0A66 2784 | STO I C3940 *AT END OF STRING CP227710 2785 | * CP227720 0A64 7103 2786 | C3440 MDX 1 3 STEP THRU RELOAD TABLE FROM CP227730 0A65 70D9 2787 | MDX C3420 *DISK THAT IS NOW IN BUFFER CP227740 2788 | * CP227750 2789 | * CONSTANTS AND WORK AREAS CP227760 2790 | * CP227770 0A66 0C3A 2791 | C3940 DC BUFR1+2 RELOAD TABLE POINTER CP227780 2792 | * CP227790 2793 | * STATEMENTS MOVED TO MAINLINE 2-4 CP227800 2794 | * CP227810 2795 | *************************************************** CP227820 2796 | * CP227830 2797 | * DETERMINE WHICH DEVICES WERE NOT INCLUDED IN THE CP227840 2798 | * CONFIGURATION DECK. THE SIGN BIT OF THE SECTOR CP227850 2799 | * ADDRESSES OF THE DEVICES NOT PRESENT WILL BE SET CP227860 2800 | * ON. THE SAME WILL BE DONE FOR UNUSED CONVERSION CP227870 2801 | * SUBROUTINES. CP227880 2802 | * CP227890 0A67 4C00 0000 2803 | C3800 BSC L *-* ENTRY/RETURN ADDRESS CP227900 0A69 74FE 0A90 2804 | C3810 MDX L C3984,-2 DECR LOOP COUNTER CP227910 0A6B 4838 2805 | BSC +-Z CONTINUE UNTIL ZERO CP227920 0A6C 70FA 2806 | MDX C3800 RETURN CP227930 0A6D CC00 0A82 2807 | C3820 LDD L C3980 FETCH A PAIR OF ENTRIES CP227940 0A6F E400 01F8 2808 | AND L DINDR TEST FOR AND CP227950 0A71 4C18 0A76 2809 | BSC L C3860,+- *BRANCH IF BIT IS SET CP227960 0A73 7402 0A6E 2810 | C3840 MDX L C3820+1,2 INCREMENT THE PAIR POINTER CP227970 0A75 70F3 2811 | MDX C3810 BRANCH TO TEST NEXT DEVICE CP227980 2812 | * CP227990 0A76 18D0 2813 | C3860 RTE 16 ROTATE PHASE ID TO ACC CP228000 0A77 4400 0674 2814 | BSI L SSLET BRANCH TO SEARCH SLET CP228010 0A79 4418 0785 2815 | BSI L ER032,+- BR IF PHASE ID MISSING CP228020 0A7B C31A 2816 | LD 3 BY964-X FETCH SIGN BIT CP228030 0A7C EA03 2817 | OR 2 3 MASK IN PHASE ID CP228040 0A7D D203 2818 | STO 2 3 *AND RESTORE TO SLET CP228050 0A7E 4400 06E1 2819 | BSI L WRIT3 BRANCH TO WRITE SLET CP228060 0A80 70F2 2820 | MDX C3840 BRANCH TO TEST NEXT DEVICE CP228070 2821 | * CP228080 2822 | * CONSTANTS AND WORK AREAS CP228090 2823 | * CP228100 0A82 2824 | BSS E 0 FORCE NEXT LOC TO BE EVEN CP228110 0A82 0040 2825 | C3980 DC /0040 MASK FOR BIT 9 ISS 9 CP228120 0A83 008C 2826 | DC P1403 1403 PRINTER CP228130 0A84 0200 2827 | DC /0200 MASK FOR BIT 6 ISS 6 CP228140 0A85 008D 2828 | DC P1132 1132 PRINTER CP228150 0A86 0800 2829 | DC /0800 MASK FOR BIT 4 ISS 4 CP228160 0A87 008F 2830 | DC I2501 2501 READER CP228170 0A88 4000 2831 | DC /4000 MASK FOR BIT 1 ISS 1 CP228180 0A89 0090 2832 | DC I1442 1442 READER/PUNCH CP228190 0A8A 1000 2833 | DC /1000 MASK FOR BIT 3 ISS 3 CP228200 0A8B 0091 2834 | DC I1134 PAPER TAPE READ/PUNCH CP228210 0A8C 4800 2835 | DC /4800 MASK FOR BITS 1 AND 4 CP228220 0A8D 0093 2836 | DC CDCNV CARD CONVERSION CP228230 0A8E 1000 2837 | C3982 DC /1000 MASK FOR BIT 3 CP228240 0A8F 0094 2838 | DC C1134 PAPER TAPE CONVERSION CP228250 2839 | * CP228260 0A90 0010 2840 | C3984 DC C3982+4-C3980 SIZE OF TABLE + 2 CP228270 2841 | * CP228280 2842 | *************************************************** CP228290 2843 | * CP228300 2844 | * SUBROUTINE TO CALCULATE CHECKSUM OF SLET AND CP228310 2845 | * RELOAD TABLE (EXCLUDING LAST WORD OF RELOAD TBL) CP228320 2846 | * CP228330 0A91 0000 2847 | CK500 DC 0 ENTRY/RETURN ADDRESS CP228340 0A92 C81F 2848 | LDD CK910 SET UP BUFFER TO START CP228350 0A93 DC00 0C38 2849 | STD L BUFR1 *READING AT 1ST SCTR SLET CP228360 0A95 1010 2850 | SLA 16 CLEAR CALCULATED CP228370 0A96 D01D 2851 | STO CK912 *CHECKSUM CP228380 0A97 61FC 2852 | LDX 1 -4 4 SECTORS TO CHECKSUM CP228390 0A98 691C 2853 | STX 1 CK914 CP228400 0A99 7401 0C39 2854 | CK510 MDX L0 BUFR1+1,1 INCREMENT SECTOR ADDRESS CP228410 0A9B 4400 0AB6 2855 | BSI L FTCH1 READ SECTOR FROM DISK CP228420 0A9D 6500 013F 2856 | LDX L1 @SCNT-1 WORDS - 1 PER SECTOR CP228430 0A9F C014 2857 | LD CK912 RESTORE CHECKSUM TO ACC CP228440 0AA0 8500 0C39 2858 | CK520 A L1 BUFR1+1 CALCULATE CHECKSUM CP228450 0AA2 4802 2859 | BSC C IF CARRY CP228460 0AA3 83D6 2860 | A 3 BX901-X *ADD 1 TO CHECKSUM CP228470 0AA4 71FF 2861 | MDX 1 -1 STEP THROUGH SECTOR CP228480 0AA5 70FA 2862 | MDX CK520 BR TO LOOP IN SECTOR CP228490 0AA6 D00D 2863 | STO CK912 SAVE CHECK SUM CP228500 0AA7 7401 0AB5 2864 | MDX L0 CK914,1 INCREMENT SECTOR LOOP COUNT CP228510 0AA9 7002 2865 | MDX CK530 BR, IS NOT RELOAD SECTOR CP228520 0AAA 4C80 0A91 2866 | BSC I CK500 RETURN CP228530 2867 | * CP228540 2868 | * INCLUDE LAST WORD OF SECTOR IN ALL BUT RELOAD CP228550 2869 | * SECTOR CP228560 2870 | * CP228570 0AAC 8400 0D79 2871 | CK530 A L BUFR1+1+@SCNT LAST WORD OF SECTOR CP228580 0AAE 4802 2872 | BSC C IF CARRY CP228590 0AAF 83D6 2873 | A 3 BX901-X *ADD 1 TO CHECKSUM CP228600 0AB0 D003 2874 | STO CK912 SAVE CHECK SUM CP228610 0AB1 70E7 2875 | MDX CK510 BR TO LOOP 4 SECTORS CP228620 2876 | * CP228630 2877 | * CONSTANTS AND WORK AREAS CP228640 2878 | * CP228650 0AB2 2879 | BSS E 0 CP228660 0AB2 0140 2880 | CK910 DC @SCNT WORD COUNT 1 SECTOR CP228670 0AB3 0002 2881 | DC @SLET-1 SECTOR ADDRESS OF SLET - 1 CP228680 0AB4 0000 2882 | CK912 DC *-* CALCULATED CHECKSUM CP228690 0AB5 0000 2883 | CK914 DC *-* SECTOR LOOP COUNTER CP228700 2884 | * CP228710 2885 | *************************************************** CP228720 2886 | * CP228730 2887 | * READ A SECTOR FROM DISK INTO 'BUFR1' CP228740 2888 | * CP228750 0AB6 0000 2889 | FTCH1 DC 0 ENTRY/RETURN ADDRESS CP228760 0AB7 C808 2890 | LDD F1900 FETCH FUNC CODE, I/O ADDR CP228770 0AB8 4400 00F2 2891 | BSI L DZ000 BRANCH TO READ A SECTOR CP228780 0ABA 7400 00EE 2892 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE CP228790 0ABC 70FD 2893 | MDX *-3 BR TO TEST READ COMPLETE CP228800 0ABD 4C80 0AB6 2894 | BSC I FTCH1 RETURN CP228810 2895 | * CP228820 2896 | * CONSTANTS AND WORK AREAS CP228830 2897 | * CP228840 0AC0 2898 | BSS E 0 FORCE NEXT LOC TO BE EVEN CP228850 0AC0 0000 2899 | F1900 DC /0000 READ FUNCTION CODE CP228860 0AC1 0C38 2900 | DC BUFR1 ADDRESS OF I/O AREA CP228870 2901 | * CP228880 2902 | *************************************************** CP228890 2903 | * CP228900 2904 | * PROCESS RELOAD TABLE TO DETERMINE PHASES WHICH CP228910 2905 | * REQUIRE SLET TABLE ENTRIES. CP228920 2906 | * CP228930 0AC2 0000 2907 | RLTBL DC 0 ENTRY/RETURN ADDRESS CP228940 0AC3 C400 0C3A 2908 | RL020 LD L BUFR1+2 FETCH A SLET PHASE ID CP228950 0AC5 F31B 2909 | EOR 3 BY965-X TEST FOR AND CP228960 0AC6 4C98 0AC2 2910 | BSC I RLTBL,+- *RETURN IF END OF TABLE CP228970 0AC8 F31B 2911 | EOR 3 BY965-X RESET PHASE ID CP228980 0AC9 4400 0674 2912 | BSI L SSLET BRANCH TO SEARCH SLET CP228990 0ACB 4418 077F 2913 | BSI L ER031,+- BR IF DEF SLET OR RL TBL CP229000 0ACD 4C18 0B23 2914 | BSC L RL150,+- BR TO SKIP BAD ENTRY CP229010 0ACF 6580 0AC4 2915 | LDX I1 RL020+1 XR1 PTS TO POS IN RL TABLE CP229020 0AD1 C101 2916 | LD 1 1 FETCH SECTOR ADDRESS CP229030 0AD2 1890 2917 | SRT 16 DETERMINE WHICH CP229040 0AD3 ABE1 2918 | D 3 BX914-X *SECTOR OF THE PHASE CP229050 0AD4 8203 2919 | A 2 3 *TO WHICH THE CP229060 0AD5 D400 0D7B 2920 | STO L BUFR2+1 *CORRECTIONS WILL BE MADE CP229070 0AD7 18D0 2921 | RTE 16 FETCH AND STORE RLTV CP229080 0AD8 D062 2922 | STO RL900 *LOCATION IN SECTOR CP229090 0AD9 C102 2923 | LD 1 2 FETCH AND SAVE CP229100 0ADA D061 2924 | STO RL901 *NO. OF SETS TO BE FILLED CP229110 0ADB 4400 065C 2925 | BSI L FTCH2 BRANCH TO FETCH THE PHASE CP229120 0ADD C05D 2926 | RL060 LD RL900 FETCH SET LOCATION CP229130 0ADE 93E1 2927 | S 3 BX914-X TEST FOR AND BRANCH CP229140 0ADF 4C28 0AE9 2928 | BSC L RL080,Z+ *IF NOT END OF SECTOR CP229150 0AE1 4400 06B6 2929 | BSI L WRIT2 BRANCH TO WRITE THE SECTOR CP229160 0AE3 1810 2930 | SRA 16 CLEAR CP229170 0AE4 D056 2931 | STO RL900 *SECTOR LOCATION CP229180 0AE5 7401 0D7B 2932 | MDX L BUFR2+1,1 INCREMENT SECTOR ADDRESS CP229190 0AE7 4400 065C 2933 | BSI L FTCH2 BR TO FETCH NEXT SECTOR CP229200 0AE9 6580 0B3B 2934 | RL080 LDX I1 RL900 RESET XR1 WITH THE REM CP229210 0AEB C500 0D7C 2935 | LD L1 BUFR2+2 FETCH PH ID TO LOOK UP CP229220 0AED 4400 0674 2936 | BSI L SSLET BRANCH TO SEARCH SLET CP229230 0AEF 4C20 0B0B 2937 | BSC L RL120,Z BRANCH IF PHASE ID FOUND CP229240 2938 | * CP229250 2939 | * CONTINUE IF THE PHASE REQUESTED IS FIRST PHASE OF CP229260 2940 | * A PROGRAM THAT HAS BEEN BYPASSED OR VOIDED. IF CP229270 2941 | * YES, INSERT ZEROS IN REMAINDER OF SLET ENTRY IN CP229280 2942 | * THE REQUESTING PHASE. CP229290 2943 | * CP229300 0AF1 6205 2944 | LDX 2 5 XR2 = NO. POSS PROGS VOIDED CP229310 0AF2 C680 0B40 2945 | RL100 LD I2 RL906-1 FETCH PHASE ID CP229320 0AF4 E320 2946 | AND 3 BY972-X TEST FOR AND CP229330 0AF5 F400 0692 2947 | EOR L SS900 *BRANCH IF A CP229340 0AF7 4C18 0B09 2948 | BSC L RL110,+- *BYPASSED OR VOIDED PROGRAM CP229350 0AF9 C680 0B46 2949 | LD I2 RL908-1 FETCH PHASE ID, TEST 2-5 CP229352 0AFB E320 2950 | AND 3 BY972-X *FOR AND BRANCH IF LAST 2-5 CP229354 0AFC F400 0692 2951 | EOR L SS900 *PHASE OF A BYPASSED OR 2-5 CP229356 0AFE 4C18 0B09 2952 | BSC L RL110,+- *VOIDED PROGRAM 2-5 CP229358 0B00 72FF 2953 | MDX 2 -1 DECR PROG CNT, SKIP IF ZERO CP229360 0B01 70F0 2954 | MDX RL100 BRANCH TO TEST NEXT PROGRAM CP229370 2955 | * CP229380 0B02 C480 0AC4 2956 | LD I RL020+1 FETCH PH ID OF REQUESTING CP229390 0B04 18D0 2957 | RTE 16 *PHASE AND SHIFT TO EXT CP229400 0B05 C400 0692 2958 | LD L SS900 FETCH MISSING PHASE ID CP229410 0B07 4400 074A 2959 | BSI L ER026 BR TO ERROR E 26, RETURN CP229420 0B09 6600 0B3D 2960 | RL110 LDX L2 RL903-1 XR2 POINTS TO ZEROS CP229430 0B0B 7101 2961 | RL120 MDX 1 1 INCR LOCATION POINTER CP229440 0B0C 6939 2962 | STX 1 RL907 *AND SAVE CP229450 0B0D 7401 0B3B 2963 | MDX L RL900,1 INCREMENT REMAINDER CP229460 0B0F C036 2964 | LD RL907 FETCH LOCATION POINTER CP229470 0B10 93E0 2965 | S 3 BX913-X TEST FOR AND BRANCH CP229480 0B11 4C30 0B38 2966 | BSC L RL200+1,-Z *IF SECTOR COMPLETE CP229490 0B13 C201 2967 | RL140 LD 2 1 FETCH AN ENTRY CP229500 0B14 D500 0D7C 2968 | STO L1 BUFR2+2 *AND STORE TO BUFFER CP229510 0B16 7401 0B3B 2969 | MDX L RL900,1 INCREMENT REMAINDER CP229520 0B18 1000 2970 | NOP AVOID POSSIBLE SKIP CP229530 0B19 74FF 0B3D 2971 | MDX L RL902,-1 DECR CNTR, SKIP IF ZERO CP229540 0B1B 7013 2972 | MDX RL180 BRANCH TO STORE NEXT WORD CP229550 0B1C C3D8 2973 | LD 3 BX903-X RESET CP229560 0B1D D01F 2974 | STO RL902 *COUNTER CP229570 0B1E 74FF 0B3C 2975 | MDX L RL901,-1 DECR SET CNT, SKIP IF ZERO CP229580 0B20 70BC 2976 | MDX RL060 BRANCH TO PROCESS NEXT SET CP229590 0B21 4400 06B6 2977 | BSI L WRIT2 BRANCH TO WRITE THE SECTOR CP229600 0B23 7403 0AC4 2978 | RL150 MDX L RL020+1,3 POINT TO NEXT RELOAD ENTRY CP229610 0B25 709D 2979 | MDX RL020 BR TO CHECK NEXT ENTRY CP229620 2980 | * CP229630 0B26 1810 2981 | RL160 SRA 16 CLEAR CP229640 0B27 D013 2982 | STO RL900 *REMAINDER CP229650 0B28 7401 0D7B 2983 | MDX L BUFR2+1,1 INCREMENT SECTOR ADDRESS CP229660 0B2A 4400 065C 2984 | BSI L FTCH2 BRANCH TO FETCH NEXT SECTOR CP229670 0B2C 6580 0B3B 2985 | LDX I1 RL900 XR1 = NEW REMAINDER CP229680 0B2E 70E4 2986 | MDX RL140 BRANCH TO STORE SLET INFO CP229690 2987 | * CP229700 0B2F C00B 2988 | RL180 LD RL900 FETCH REMAINDER CP229710 0B30 93E1 2989 | S 3 BX914-X TEST FOR AND BRANCH CP229720 0B31 4C18 0B37 2990 | BSC L RL200,+- *IF SECTOR COMPLETED CP229730 0B33 7201 2991 | MDX 2 1 INCR TO NEXT SLET WORD CP229740 0B34 6580 0B3B 2992 | LDX I1 RL900 POINT TO NEXT BUFFER WORD CP229750 0B36 70DC 2993 | MDX RL140 BRANCH TO STORE NEXT WORD CP229760 2994 | * CP229770 0B37 7201 2995 | RL200 MDX 2 1 INCR TO NEXT SLET WORD CP229780 0B38 4400 06B6 2996 | BSI L WRIT2 BRANCH TO WRITE A SECTOR CP229790 0B3A 70EB 2997 | MDX RL160 BRANCH TO FETCH NEXT SECTOR CP229800 2998 | * CP229810 2999 | * CONSTANTS AND WORK AREAS CP229820 3000 | * CP229830 0B3B 0000 3001 | RL900 DC *-* SAVED REMAINDER CP229840 0B3C 0000 3002 | RL901 DC *-* SAVED SET CNT TO PATCH CP229850 0B3D 0003 3003 | RL902 DC 3 CTR TO UPDATE 3 WDS/SET CP229860 0B3E 0000 3004 | RL903 DC 0 ZEROES TO PLACE IN A CP229870 0B3F 0000 3005 | DC 0 *REQUESTING PHASE WHEN CP229880 0B40 0000 3006 | DC 0 *PROG REQUESTED NOT PRESENT CP229890 3007 | * CP229900 0B41 020E 3008 | RL906 DC PAIR2 FIRST ID CP229910 0B42 0210 3009 | DC PAIR3 *OF CP229920 0B43 021A 3010 | DC PAIR8 *PROGRAMS THAT CP229930 0B44 021C 3011 | DC PAIR9 *MAY BE CP229940 0B45 021E 3012 | DC PAIRA *PASSED OR VOIDED CP229950 0B46 0000 3013 | RL907 DC *-* TEMPORARY XR1 STORAGE CP229960 0B47 020F 3014 | RL908 DC PAIR2+1 LAST ID 2-5 CP229962 0B48 0211 3015 | DC PAIR3+1 *OF 2-5 CP229963 0B49 021B 3016 | DC PAIR8+1 *PROGRAMS THAT MAY 2-5 CP229965 0B4A 021D 3017 | DC PAIR9+1 *BE BYPASSED 2-5 CP229967 0B4B 021F 3018 | DC PAIRA+1 *OR VOIDED 2-5 CP229969 3019 | * CP229970 3020 | *************************************************** CP229980 3021 | * CP229990 3022 | * PRINT 'END OF RELOAD' MESSAGE 2-9 CP230000 3023 | * CP230010 0B4C 6500 0B54 3024 | C3900 LDX L1 MSGXX+1 POINT TO END MESSAGE CP230020 0B4E 6680 0B53 3025 | LDX I2 MSGXX FETCH WORD CNT OF END MSG CP230030 0B50 4400 085B 3026 | BSI L CNPTR BRANCH TO PRINT MESSAGE CP230040 0B52 70F9 3027 | MDX C3900 REPEAT MESSAGE CP230050 3028 | * CP230060 3029 | * 'END OF RELOAD' MESSAGE 2-9 CP230070 3030 | * CP230080 0B53 0008 3031 | MSGXX DC C3998-* WORD COUNT OF END MESSAGE CP230090 0B54 8134 7430 2150 1021 3032 | DMES 'REND OF RELOAD 'R'E 2-9 CP230100 6034 5C50 3C30 2181 | 3033 | * CP230110 3034 | * CP230120 0B5C 3035 | C3998 BSS C3000+2*@SCNT-*-1 PATCH AREA CP230130 3036 | * CP230140 3037 | * CP230150 0C37 3038 | C3999 EQU *-1 END OF OVERLAY 3 CP230160 3039 | * CP230170 0C38 3040 | END BA000 END OF PHASE 2 CP230180 There were no errors in this assembly Program transfer address = 0378 === CROSS REFERENCES ========================================================== Name Val Defd Referenced #ANDU 0023 2251 2483 2487 2522 #BNDU 0028 2252 2488 2492 2523 #CIAD 001B 2250 2356 #CIBA 003C 2256 2470 2472 2513 #CIDN 0037 2255 2433 #CSHN 005A 2259 2447 2461 2507 #FPAD 002D 2253 2479 2481 2519 #PIOD 0019 2248 2349 #PPTR 001A 2249 2351 #RP67 0011 2247 2347 #SCRA 0041 2257 2464 2466 2468 2510 #SYSC 0008 2246 2353 #ULET 0050 2258 2444 2474 2476 2516 $1132 007F 150 $1403 0080 151 $ACDE 009F 93 $CH12 0006 94 2369 2370 $CIBA 0005 100 2408 $CILA 005A 95 2375 2376 $COMN 0007 96 $CORE 000E 97 2372 2373 $CPTR 007E 98 $CTSW 000F 99 $CYLN 009A 101 $DADR 0010 103 $DBSY 00EE 102 882 916 933 1003 1025 1061 2663 2892 $DCDE 0077 104 $DCYL 00A4 105 2393 2395 2397 $DREQ 0012 106 2384 2385 $DUMP 003F 107 2419 2666 2703 $DZIN 0076 108 2386 2387 $EXIT 0038 109 $FLSH 0071 110 $FPAD 0095 111 2399 2400 $HASH 0014 112 $I200 00B3 118 $I205 00B8 119 $I400 00C4 120 $I403 00D0 121 $IBSY 0013 113 322 $IBT2 00B9 114 2402 $IBT4 00D4 115 267 $IOCT 0032 116 2702 $IREQ 002C 117 2404 2667 $KCSW 007C 122 $LAST 0033 123 $LEV0 0008 124 $LEV1 0009 125 $LEV2 000A 126 $LEV3 000B 127 $LEV4 000C 128 $LEV5 000D 129 $LINK 0039 130 $NDUP 0034 131 $NXEQ 0035 132 $PBSY 0036 133 $PGCT 0037 134 2683 $PHSE 0078 135 $PRET 0028 136 1241 1351 $PST1 0081 137 $PST2 0085 138 $PST3 0089 139 $PST4 008D 140 $SNLT 00EF 141 $STOP 0091 142 $SYSC 00E0 143 2354 $UFDR 007D 144 $UFIO 0079 145 $ULET 002D 146 2389 2390 $WRD1 007B 148 $WSDR 007A 147 $ZEND 01E0 149 1304 2420 2655 2660 'CCOL 0050 173 'CIDN 0003 170 'COLD 0030 163 'CSTR 00D0 164 1304 2660 'DCOM 0001 156 1305 'DKIP 00F7 2264 2421 'HDNG 0007 160 2734 'IDAD 0000 155 1344 2710 'MNCR 1000 175 1314 1920 1926 2038 'MSCT 0658 162 'MXDR 0005 169 'NDCY 0003 168 'P2AD 0630 161 262 1310 1311 1312 1369 2047 2271 2634 2733 'PRWC 003C 172 'RIAD 0002 157 1306 'RLTB 0006 159 1280 1922 'SADR 0001 167 'SCNT 0140 174 892 1256 1257 1360 1365 1913 1920 1926 1927 2032 2038 2039 2237 2552 2606 2624 2647 2673 2717 2856 2871 2880 3035 'SLET 0003 158 1280 1307 1308 2040 2881 'STAT 0007 171 2694 'WDCT 0000 166 ASCRA 01FD 212 213 2469 2511 B0000 0D7C 1933 282 1995 1999 2032 B0010 0D99 1962 1953 B0020 0D9C 1964 1984 B0040 0DA0 1966 1979 B2END 0EBC 2033 1019 BA000 0378 265 261 1360 1365 3040 BA010 038A 276 271 BA902 03BE 337 338 361 BA906 03BF 339 305 331 359 360 BA908 042D 343 295 299 303 329 BB000 038F 289 275 403 415 495 566 766 774 804 816 907 1114 BB010 0391 292 297 BB020 03A7 309 BB050 03B0 321 290 294 311 324 BB901 03AF 318 BB904 03B8 328 292 BB906 03BA 330 309 BB912 03BC 333 296 BB913 03BD 334 300 BC000 0447 380 315 BC020 044C 384 2326 BD000 045C 395 384 386 BD045 0483 442 426 BD050 048D 449 443 BD060 0490 452 445 BD080 0492 453 448 BD090 049F 468 833 BD095 04B7 493 469 471 473 480 BD099 04BB 502 491 543 2027 BD100 04BD 504 519 BD109 04CF 520 504 505 BD110 04D0 521 514 BD120 04D2 525 512 BD200 04EB 550 452 509 558 1797 2216 BE000 04FA 560 388 BE020 050E 578 575 BE080 0518 594 568 BE085 052C 613 610 BE086 052F 626 636 BE087 053D 637 634 BE090 0547 651 628 631 BE100 054E 659 652 BE120 055C 669 674 2642 BE140 055F 671 675 BE160 0562 673 676 BE180 056C 678 655 BE200 056E 682 1423 2080 BE220 0579 692 599 BE240 057B 694 596 604 659 686 688 691 BE260 057E 696 690 693 BE280 0581 698 696 BE300 0584 704 706 BE320 058F 713 699 BE340 0592 715 765 BE380 0598 720 717 1720 BE400 05A4 730 725 BE440 05AF 738 733 BE460 05B4 742 737 BE480 05BB 747 731 BE500 05C5 756 752 BE520 05C9 760 750 758 BE540 05D0 766 759 BE560 05D2 770 573 579 644 1762 BE900 05D8 778 461 698 709 BF000 05FB 812 390 BG000 0618 837 392 BG040 0622 849 854 873 1162 BG060 0627 853 841 BH000 063F 875 851 2414 BH010 0649 882 883 BH020 064D 885 876 BH900 064E 890 880 BH902 0650 892 878 BUFR1 0C38 1921 662 669 671 673 677 1011 2647 2751 2755 2770 2782 2791 2849 2854 2858 2871 2900 2908 BUFR2 0D7A 1927 744 924 1018 1033 1035 1043 1051 1303 1870 1873 1876 1905 2362 2364 2657 2660 2675 2679 2681 2685 2691 2694 2719 2723 2724 2752 2754 2920 2932 2935 2968 2983 BUFR3 0EBE 2039 510 554 941 951 961 964 1069 1272 1273 1374 1454 1457 1462 1467 1471 1475 1498 1559 1562 1565 1573 1597 1640 1653 1689 1692 1707 1711 1716 1732 1794 1800 1812 1938 1951 1954 1963 1966 1968 1970 1974 1980 1981 1990 1993 2022 2058 2076 2345 2429 2530 2570 2585 2608 2619 BX901 0865 1246 383 385 418 429 533 535 605 638 704 762 793 796 825 899 1378 1388 1398 1433 1650 1676 1683 1700 1758 1823 1848 1976 2096 2176 2460 2506 2541 2682 2860 2873 BX902 0866 1247 664 687 697 711 748 1073 2693 2772 BX903 0867 1248 770 2973 BX904 0868 1249 660 BX905 0869 1250 389 2003 2209 BX906 086A 1251 1872 BX908 086B 1252 387 1042 1677 1991 2454 2459 2463 2500 2505 2509 2512 2518 BX909 086C 1253 2515 BX910 086D 1254 864 BX912 086E 1255 391 BX913 086F 1256 475 529 1413 1440 1971 2010 2588 2965 BX914 0870 1257 463 477 531 663 722 1415 1442 1557 1572 1595 1666 1973 2012 2771 2918 2927 2989 BX915 0871 1258 627 BY900 0872 1260 723 726 734 738 741 746 BY902 0874 1262 478 487 BY903 0875 1263 485 489 BY904 0876 1264 2122 2137 2153 2185 BY905 0877 1265 2114 2154 2158 2162 2183 BY906 0878 1266 1074 1131 1139 1146 1196 1240 1243 BY909 087A 1268 2064 2070 2083 2167 BY910 087B 1269 419 682 1419 1975 BY911 087C 1270 607 613 629 632 856 979 1138 1386 1392 1744 1748 1767 1772 1780 1829 1834 2104 2127 2135 2147 2159 2174 2182 2191 2207 BY912 087D 1271 608 1385 1387 1782 1828 1833 2103 2175 2190 BY913 087E 1272 556 953 1459 1499 1940 1997 BY914 087F 1273 506 985 1452 1460 1469 1495 1695 1792 1946 2020 2213 2225 BY915 0880 1274 432 486 684 828 1992 2007 2016 2025 BY916 0881 1275 743 BY917 0882 1276 490 515 539 869 1536 1540 1542 1561 1576 1582 1584 1590 1592 1604 1606 1612 1618 1620 1649 1680 1804 2006 BY918 0883 1277 488 516 536 540 866 1537 1543 1545 1564 1577 1579 1581 1587 1589 1607 1609 1613 1615 1617 1651 1807 2026 BY919 0884 1278 428 435 716 719 824 832 BY920 0885 1279 444 450 552 987 2227 BY922 0886 1280 1708 1983 BY923 0887 1281 1667 1670 1673 BY924 0888 1282 274 525 1638 1661 1703 1773 1786 1969 2060 BY925 0889 1283 414 567 586 640 814 1760 1850 2099 BY926 088A 1284 578 639 1759 1849 2098 BY927 088B 1285 400 404 563 BY928 088C 1286 562 813 838 BY931 088D 1287 842 1382 2062 2094 BY933 088E 1288 406 564 817 820 BY934 0890 1290 270 442 468 642 653 840 1037 2440 2643 2668 BY935 0891 1291 277 1041 1652 1675 1688 BY936 0892 1292 715 718 720 761 BY937 0893 1293 416 534 861 906 1032 1036 1674 1679 1977 2453 2458 2499 2504 BY938 0894 1294 464 730 735 739 BY939 0895 1295 413 456 572 598 751 754 773 902 BY940 0896 1296 708 713 BY941 0897 1297 410 565 587 771 815 900 BY942 0898 1298 462 732 736 BY943 0899 1299 459 705 707 BY944 089A 1300 458 588 787 790 802 807 BY945 089B 1301 683 742 BY947 089C 1302 479 727 729 1416 1648 1719 2013 2015 BY950 089D 1303 749 BY951 089E 1304 2355 BY952 089F 1305 2618 BY954 08A0 1306 2361 BY955 08A1 1307 950 1709 1937 1962 1982 1989 BY956 08A2 1308 511 962 1455 1464 1466 1795 1952 1994 2077 BY957 08A3 1309 595 BY958 08A4 1310 867 1805 BY960 08A5 1311 849 BY961 08A6 1312 2412 BY962 08A7 1313 2539 BY963 08A8 1314 2407 BY964 08A9 1315 2816 BY965 08AA 1316 806 1881 1887 2383 2641 2747 2757 2760 2783 2909 2911 BY966 08AB 1317 689 808 1778 2164 BY967 08AC 1318 2119 BY969 08AD 1319 692 BY970 08AE 1320 2072 BY972 08AF 1321 1743 1747 1757 2126 2134 2146 2946 2950 BY973 08B0 1322 455 BY974 08B1 1323 1942 BY975 08B2 1324 453 589 BY976 08B3 1325 2366 BY977 08B4 1326 431 474 827 BY978 08B5 1327 537 871 1531 1541 1544 1681 1809 BY979 08B6 1328 BY980 08B7 1329 BY981 08B8 1330 407 411 685 821 903 BY982 08B9 1331 425 446 470 494 904 991 BY983 08BA 1332 417 905 BYPAS 0651 898 1141 1831 2106 2151 2186 BZ900 08BC 1334 1534 1550 1570 1598 BZ901 08BD 1335 1548 1556 1567 1602 1605 1608 1616 1619 1622 1626 BZ902 08BE 1336 BZ903 08BF 1337 865 2388 2445 2478 2517 2531 2566 2571 BZ904 08C0 1338 1842 BZ905 08C1 1339 1770 BZ906 08C2 1340 2569 2578 2582 2594 BZ907 08C3 1341 1530 1533 1580 1583 1588 1591 1594 BZ908 08C4 1342 472 724 853 1039 1375 1781 1853 2442 2564 BZ909 08C5 1343 1161 BZ910 08C6 1344 2690 BZ911 08C7 1345 402 2100 BZ912 08C8 1346 1399 1422 1763 1776 BZ913 08C9 1347 1383 1390 1824 BZ930 08CB 1352 266 BZ999 09B5 1363 261 C0000 09B9 1373 1368 1779 1913 C0020 09BC 1375 1373 C0040 09D0 1391 1379 C0050 09DB 1402 1376 C0060 09E9 1420 1394 1777 1815 C0100 09EF 1430 1501 1855 C0120 0A11 1460 1453 C0130 0A20 1469 1465 C0140 0A2C 1476 1500 C0150 0A2E 1477 1461 1473 1496 C0160 0A3C 1489 1486 C0170 0A4C 1501 1488 C0300 0A5E 1527 542 872 1574 1686 1810 C0310 0A72 1548 1538 C0320 0A75 1550 1623 C0330 0A79 1556 1549 1610 C0340 0A7E 1561 1600 C0350 0A8B 1570 1603 1627 C0355 0A8E 1572 1552 C0360 0A93 1576 1571 C0370 0A9E 1587 1578 C0380 0AA4 1594 1551 1585 C0400 0AAD 1602 1546 C0410 0AB7 1612 1568 C0420 0AC4 1625 1614 C0500 0AC7 1634 728 C0510 0ACA 1636 1411 1693 C0520 0AEC 1671 1669 C0540 0B0A 1694 1705 1712 C0550 0B19 1706 1696 C0560 0B24 1713 1704 C0570 0B26 1715 1710 C0580 0B2B 1718 1635 1639 C0600 0B3B 1741 1400 1410 1862 C0610 0B3C 1742 1377 1754 1765 1769 1821 1822 1837 1840 1841 1844 1846 C0615 0B53 1763 1755 C0622 0B5B 1769 1825 C0640 0B83 1799 1793 C0650 0B9C 1819 1790 1791 1798 1814 C0655 0B9D 1821 1764 C0660 0BA4 1827 1389 C0670 0BAC 1833 1393 1827 1854 C0680 0BB0 1837 1745 C0690 0BB4 1840 1749 C0695 0BBB 1846 1774 C0700 0BBD 1847 1771 C0710 0BC3 1853 1768 C0720 0BCD 1869 643 654 1907 C0730 0BD9 1877 1884 C0740 0BE3 1885 1879 1894 C0750 0BEE 1895 1888 C0760 0BF4 1903 1875 1882 C0800 0DBB 1989 1967 2028 C0810 0DC0 1993 2023 C0820 0DC9 1998 2021 C0822 0DD2 2005 2002 C0825 0DDF 2017 2004 C0830 0DE8 2025 2008 C0840 0DED 2029 2018 2019 C0841 0DEE 2030 2001 C0911 0A55 1510 1450 1451 1463 1472 1474 1493 1494 C0912 0A56 1512 1432 1481 1489 C0913 0A57 1513 1437 C0914 0A58 1514 1438 1483 1491 C0915 0A59 1515 1444 C0916 0A5A 1516 1478 1485 C0918 0A5C 1518 1480 1490 C0950 0B31 1724 1641 1691 1715 1801 1811 C0970 0BFC 1911 1871 1904 C0999 0C37 1915 1368 C1000 09B9 2053 2046 2237 C1020 09BA 2058 427 557 823 989 2223 2224 C1030 09C2 2068 1320 2073 2165 C1050 09C8 2072 1320 2069 C1064 09D4 2082 2071 C1070 09D9 2093 2085 2138 2150 2179 C1080 09E4 2103 2095 C1134 0094 187 2838 C1200 09EA 2113 2074 2187 C1210 09EE 2116 2118 2143 C1220 09F6 2121 2115 2116 2117 C1230 09FA 2125 2120 2123 C1240 0A00 2133 2139 C1260 0A11 2145 2136 2140 2149 C1270 0A1D 2153 2128 C1290 0A23 2158 2125 C1300 0A27 2161 2184 C1310 0A2D 2166 2141 2168 C1320 0A33 2171 2160 C1350 0A41 2180 2173 2177 C1360 0A47 2185 2155 2169 C1380 0A4C 2189 2171 2178 C1400 0A52 2205 449 2228 C1440 0A5A 2211 2222 C1450 0A61 2217 2214 C1460 0A72 2228 2208 2226 C1920 0A51 2196 2142 2157 2163 2172 2181 C1941 0A74 2232 2211 2212 C1942 0A75 2233 2210 2221 C1943 0A76 2234 2217 2220 C1999 0C37 2240 2046 C2000 09B9 2275 850 2270 2624 C2010 09BA 2280 2293 C2020 09BF 2283 2281 C2030 09CB 2291 2301 C2040 09EC 2325 2282 C2060 0A2F 2381 2378 C2100 0A5F 2428 2379 2548 C2120 0A63 2432 2437 C2140 0A6D 2440 2434 C2160 0A7B 2453 2443 C2180 0AAB 2499 2441 C2190 0ADF 2548 2449 2495 C2200 0AE5 2563 2494 2565 2568 2598 C2240 0AF3 2573 2586 C2280 0B02 2588 2581 C2282 0B06 2592 2590 C2284 0B0B 2596 2591 C2300 0B11 2605 2529 2611 C2340 0B15 2608 2610 C2400 0B1B 2617 2344 2621 C2900 09DC 2305 2280 2290 2291 2292 C2901 09DD 2306 2305 C2903 09E9 2318 2287 2296 C2904 09EA 2320 2289 2298 C2906 0A5B 2418 2327 C2907 0A5C 2419 2403 C2908 0A5D 2420 2374 C2909 0A5E 2421 2401 C2910 0AE1 2552 2533 C2911 0AE2 2553 2535 2537 C2912 0AE4 2555 2457 2462 2465 2467 2471 2475 2480 2485 2490 2503 2508 C2999 0C37 2627 2270 C3000 09B9 2638 2413 2633 3035 C3040 09EC 2675 2677 C3200 0A12 2716 2665 2728 C3220 0A16 2719 2721 C3260 0A1D 2724 2727 C3400 0A2E 2745 2644 2750 2758 C3410 0A37 2751 2748 C3420 0A3F 2755 2787 C3430 0A45 2759 2766 C3440 0A64 2786 2764 C3450 0A4F 2770 2761 C3620 0D80 1939 1955 C3640 0D84 1941 1949 C3660 0D8E 1950 1947 C3800 0A67 2803 2640 2806 C3810 0A69 2804 2811 C3820 0A6D 2807 2810 C3840 0A73 2810 2820 C3860 0A76 2813 2809 C3900 0B4C 3024 2669 3027 C3902 0A10 2709 2656 C3920 0A26 2732 2726 C3921 0A27 2733 2722 C3922 0A28 2734 2684 C3924 0A2A 2736 2678 C3926 0A2C 2737 2674 C3927 0A2D 2738 2680 C3940 0A66 2791 2746 2749 2774 2781 2784 C3960 0D98 1956 1944 1945 C3980 0A82 2825 2807 2840 C3982 0A8E 2837 2840 C3984 0A90 2840 2804 C3998 0B5C 3035 3031 C3999 0C37 3038 2633 CAREA 01F6 205 206 538 541 1682 1685 2446 CARID 01FE 213 214 2432 CDCNV 0093 186 2836 CHN12 0207 223 2368 CIBFR 01FA 209 210 276 2405 2473 2514 CILWC 01F0 200 201 2339 2654 2659 CK020 05DA 785 810 CK030 05E1 789 307 800 CK040 05E4 791 795 CK060 05ED 798 454 590 809 1324 CK080 05F6 806 798 1324 CK500 0A91 2847 2646 2866 CK510 0A99 2854 2875 CK520 0AA0 2858 2862 CK530 0AAC 2871 2865 CK910 0AB2 2880 2848 CK912 0AB4 2882 2851 2857 2863 2874 CK914 0AB5 2883 2853 2864 CKBRD 0095 188 CKSUM 05D9 784 597 786 797 CNPTR 085B 1238 1077 1113 1132 1140 1149 1159 1197 1244 3026 CNVID 0209 225 226 2313 CNVRT 009C 195 2314 CO180 0A4E 1503 1435 CVRT 009D 196 2315 DCYL1 01F2 201 202 2392 DCYL2 01F3 202 203 2394 DCYL3 01F4 203 204 2396 DINDR 01F8 207 208 2808 DISK1 0097 190 DISKN 0098 191 DISKZ 0096 189 DZ000 00F2 165 881 915 932 1002 1024 1060 2264 2662 2891 ER001 06EC 1071 801 1078 ER002 06F8 1080 393 ER003 06FE 1085 401 818 839 ER004 0704 1090 606 714 ER005 070A 1095 2438 ER018 0710 1100 301 ER020 0716 1105 1785 ER021 071C 1110 661 2418 ER022 0725 1116 1045 1678 1684 ER023 072B 1121 1835 2192 ER024 0733 1127 843 857 1133 1830 2105 ER025 073F 1135 1838 1843 2084 2101 2148 ER026 074A 1143 1152 1505 2959 ER027 075A 1154 527 1663 1788 2337 ER028 0767 1164 1456 1470 1796 2078 ER029 076D 1169 1851 ER030 0773 1174 665 ER031 077F 1184 2913 ER032 0785 1190 2285 2295 2815 ER100 0721 1113 1083 1088 1093 ER130 0779 1179 2773 ER300 0744 1138 1167 1172 1177 ER400 0745 1139 1125 ER510 0754 1150 1144 ER520 0756 1151 1145 ER600 0760 1159 1108 1119 ER610 0763 1161 1506 ER620 078A 1193 1098 1103 1157 1182 1187 ER640 078F 1197 1200 ER660 0791 1198 1193 ER670 0793 1199 1194 F1900 0AC0 2899 2890 F2900 0666 923 914 F3900 0672 940 931 FLETI 01FF 214 215 1784 FPADR 0200 215 216 2398 2482 2520 2540 2544 FTCH1 0AB6 2889 2855 2894 FTCH2 065C 913 745 918 1874 2363 2658 2692 2753 2925 2933 2984 FTCH3 0668 930 272 555 935 952 1458 1468 1476 1563 1690 1717 1733 1813 1939 1964 1996 2573 2620 I1134 0091 184 2834 I1442 0090 183 2832 I2501 008F 182 2830 IKBRD 0092 185 INTPT 0280 252 253 LET00 0202 217 218 1803 2567 LMODE 01F5 204 205 269 LOLIM 022A 245 246 625 LPHID 0229 244 245 855 MAXPH 01FC 211 212 1381 MSG01 0235 247 248 1075 1076 MSG02 0241 248 249 1081 1082 MSG03 0251 249 250 1086 1087 MSG04 0264 250 251 1091 1092 MSG05 026F 251 252 1096 1097 MSG18 0796 1204 1101 1102 MSG20 07A3 1207 1106 1107 1204 MSG21 07B1 1209 1111 1112 1207 MSG22 07BE 1211 1117 1118 1209 MSG23 07CC 1213 1122 1123 1211 MSG24 07DD 1215 1128 1129 1213 MSG25 07E8 1217 1136 1137 1215 MSG26 07FB 1219 1147 1148 1217 MSG27 080A 1221 1155 1156 1219 MSG28 0816 1223 1165 1166 1221 MSG29 081F 1225 1170 1171 1223 MSG30 082D 1227 1175 1176 1180 1181 1225 MSG31 083A 1229 1185 1186 1227 MSG32 084A 1232 1191 1192 1229 MSG33 085B 1234 1232 MSGXX 0B53 3031 3024 3025 OVLAY 09B6 1368 678 877 879 891 2043 2267 2630 P1132 008D 180 2828 P1403 008C 179 2826 PACK0 042F 357 314 373 PAIR1 020C 229 230 1742 2121 2133 2145 PAIR2 020E 230 231 2166 3008 3014 PAIR3 0210 231 232 3009 3015 PAIR4 0212 232 233 PAIR5 0214 233 234 PAIR6 0216 234 235 2206 2335 PAIR7 0218 235 236 PAIR8 021A 236 237 1339 3010 3016 PAIR9 021C 237 238 3011 3017 PAIRA 021E 238 239 3012 3018 PAIRB 0220 239 240 PAIRC 0222 240 241 PAIRD 0224 241 242 PAIRE 0226 242 243 1338 PAIRF 0228 243 244 273 PCPAD 008E 181 PIDEV 009B 194 2311 PINPT 009A 193 2310 PK020 0438 362 371 PK060 0442 372 358 PK900 0446 375 364 366 PKBFR 03BE 338 380 785 791 981 990 1124 1130 PRINT 0099 192 2030 2307 PRNPR 020B 227 229 PRNRD 020A 226 227 2348 PT000 02C2 255 256 293 310 1357 PT010 02C5 256 PTRID 0206 222 223 224 2306 RDRID 0208 224 225 2309 RL020 0AC3 2908 2915 2956 2978 2979 RL060 0ADD 2926 2976 RL080 0AE9 2934 2928 RL100 0AF2 2945 2954 RL110 0B09 2960 2948 2952 RL120 0B0B 2961 2937 RL140 0B13 2967 2986 2993 RL150 0B23 2978 2914 RL160 0B26 2981 2997 RL180 0B2F 2988 2972 RL200 0B37 2995 2966 2990 RL900 0B3B 3001 2922 2926 2931 2934 2963 2969 2982 2985 2988 2992 RL901 0B3C 3002 2924 2975 RL902 0B3D 3003 2971 2974 RL903 0B3E 3004 2960 RL906 0B41 3008 2945 RL907 0B46 3013 2962 2964 RL908 0B47 3014 2949 RLTBL 0AC2 2907 2649 2910 SCORE 01FB 210 211 2371 SHIFT 0203 218 222 868 870 1806 1808 SS020 067A 952 965 SS040 067E 955 960 SS060 068D 966 957 SS080 068E 967 949 963 SS900 0692 972 948 955 966 1195 1504 2947 2951 2958 SSBFR 0201 216 217 1529 SSLET 0674 947 526 968 1403 1434 1662 1787 1861 2284 2294 2336 2814 2912 2936 T1442 01F7 206 207 2346 TZ100 0289 254 1356 UP040 06A0 988 986 UP900 06A9 994 983 984 UPCAD 0693 978 992 1420 2079 UPLIM 022B 246 247 VERSN 01F9 208 209 2352 W1040 06AE 1003 1004 W1900 06B4 1010 1001 W2040 06C0 1023 1038 1040 1044 W2100 06C8 1032 1022 W2140 06D0 1037 1034 W2900 06DE 1050 1023 2661 W2902 06E0 1052 1021 2325 W3900 06EA 1068 1059 WRFT3 0B32 1730 1706 1734 WRIT1 06AA 1000 1005 2645 2648 WRIT2 06B6 1017 408 740 822 1020 1027 1902 2410 2686 2695 2725 2929 2977 2996 WRIT3 06E1 1058 447 521 553 830 1063 1487 1497 1566 1654 1713 1731 1950 2300 2448 2493 2524 2546 2584 2597 2819 WRTYZ 0287 253 254 255 1239 X 088F 1289 268 270 274 277 383 385 387 389 391 400 402 406 407 410 411 414 416 417 418 419 425 428 429 431 432 435 442 444 446 450 453 455 456 458 459 462 463 464 468 470 472 474 475 477 478 479 485 486 487 488 489 490 494 506 511 515 516 525 529 531 533 534 535 536 537 539 540 552 562 563 565 567 572 578 586 587 588 589 595 598 605 607 608 613 627 629 632 638 639 640 642 653 660 663 664 682 683 684 687 689 692 704 707 708 711 713 715 716 718 719 720 722 723 724 726 727 729 730 732 734 735 738 739 741 742 743 746 748 749 751 754 761 762 770 771 773 790 793 796 806 807 808 814 815 817 820 821 824 825 827 828 832 838 840 842 849 853 856 861 864 865 866 867 869 871 899 900 902 903 904 905 906 950 962 979 985 1032 1036 1037 1039 1041 1042 1073 1074 1131 1138 1139 1146 1196 1240 1243 1375 1378 1382 1383 1385 1386 1387 1388 1390 1392 1398 1399 1413 1415 1416 1419 1422 1433 1440 1442 1452 1455 1464 1466 1495 1530 1531 1533 1534 1536 1537 1540 1541 1542 1543 1544 1545 1556 1557 1561 1564 1572 1576 1577 1579 1580 1581 1582 1583 1584 1587 1588 1589 1590 1591 1592 1594 1595 1602 1604 1605 1606 1607 1608 1609 1612 1613 1615 1616 1617 1618 1619 1620 1622 1626 1638 1648 1649 1650 1651 1652 1661 1666 1667 1673 1674 1675 1676 1677 1679 1680 1681 1683 1688 1695 1700 1703 1708 1709 1743 1744 1747 1748 1757 1758 1759 1760 1763 1767 1770 1772 1773 1776 1778 1780 1781 1782 1786 1792 1795 1804 1805 1807 1809 1823 1824 1828 1829 1833 1834 1842 1848 1849 1850 1853 1872 1881 1887 1937 1942 1946 1952 1962 1969 1971 1973 1975 1976 1977 1982 1983 1989 1991 1992 1994 2003 2006 2007 2010 2012 2013 2015 2016 2020 2025 2026 2060 2062 2064 2070 2072 2077 2083 2094 2096 2098 2099 2100 2103 2104 2114 2119 2122 2126 2127 2134 2135 2137 2146 2147 2153 2154 2158 2159 2162 2164 2167 2174 2175 2176 2182 2183 2185 2190 2191 2207 2209 2213 2225 2355 2361 2366 2383 2388 2407 2412 2440 2445 2453 2454 2458 2459 2460 2463 2478 2499 2500 2504 2505 2506 2509 2512 2515 2517 2518 2531 2539 2541 2564 2566 2569 2571 2578 2582 2588 2594 2618 2641 2643 2668 2682 2690 2693 2747 2757 2760 2771 2772 2783 2816 2860 2873 2909 2911 2918 2927 2946 2950 2965 2973 2989 Y 0050 2263 2391 2393 2395 2397 2399 2402 2404