ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 2020 Source File: \fsysldr2.asm CARD INPUT SYSTEM LOADER - PHASE 2 2 | *************************************************** FP200020 3 | * * FP200030 4 | *STATUS - VERSION 2, MODIFICATION 11 * FP200040 5 | * * FP200050 6 | *FUNCTION/OPERATION- * FP200060 7 | * PHASE 2 WILL PERFORM THE FOLLOWING DURING * FP200070 8 | * AN INITIAL LOAD- * FP200080 9 | * * LOAD THE SYSTEM PROGRAMS TO DISK AS * FP200090 10 | * DIRECTED BY THE LOAD MODE AND PHID RECORDS. * FP200100 11 | * * ESTABLISH SLET. * FP200110 12 | * * ESTABLISH THE RELOAD TABLE. * FP200120 13 | * * INITIALIZE THE RESIDENT IMAGE AND DCOM. * FP200130 14 | * * DEFINE PRINCIPAL PRINT AND I/O DEVICES. * FP200140 15 | * * ESTABLISH ADDRESS OF AND INITIALIZE FIRST * FP200150 16 | * LET SECTOR. * FP200160 17 | * * PASS CONTROL TO AUXILIARY SUPERVISOR TO CALL* FP200170 18 | * DUP TO LOAD THE SUBROUTINE LIBRARY. * FP200180 19 | * * FP200190 20 | * A RELOAD- * FP200200 21 | * * RELOAD ANY PHASE(S) CURRENTLY IN SLET. * FP200210 22 | * * EXPAND RELOADED SYSTEMS PROGRAMS INTO * FP200220 23 | * CUSHION AREA IF NECESSARY AND SPACE PERMITS.* FP200230 24 | * * COMPRESS OUT OLD OR NEW GAPS BETWEEN 2-4* FP200240 25 | * SYSTEM PROGRAMS (CAUSED BY REDUCED PHASE 2-4* FP200250 26 | * LENGTH DURING A RELOAD) 2-4* FP200260 27 | * * ADD ONE OR MORE ADDITIONAL PHASES TO A * FP200270 28 | * SYSTEM PROGRAM CURRENTLY IN SLET. * FP200280 29 | * * ADD ONE OR MORE NEW PROGRAMS AS SPECIFIED * FP200290 30 | * IN A SECOND PHID RECORD TO THE SYSTEM * FP200300 31 | * PROGRAM AREA. * FP200310 32 | * * SHIFT THE SCRA, CIB, LET AND USER AREA TO * FP200320 33 | * MAKE ROOM FOR ADDED PROGRAMS. * FP200330 34 | * * UPDATE SLET. * FP200340 35 | * * UPDATE AND REPROCESS THE RELOAD TABLE. * FP200350 36 | * * UPDATE THE RESIDENT IMAGE AND DCOM. * FP200360 37 | * * UPDATE THE CHAIN ADDRESSES IN LET IF * FP200370 38 | * PROGRAMS WERE ADDED. * FP200380 39 | * * REDEFINE PRINCIPAL PRINT AND I/O DEVICES AS * FP200390 40 | * DIRECTED BY THE CONFIGURATION RECORDS. * FP200400 41 | * * PRINT 'END RELOAD' OR FETCH 'MODIF' AT * FP200410 42 | * COMPLETION. * FP200420 43 | * * FP200430 44 | *ENTRY POINT- * FP200440 45 | * * ENTERED AT 'BA000' FROM PHASE 1. * FP200450 46 | * * FP200460 47 | *INPUT- * FP200470 48 | * * BINARY INPUT RECORDS ONLY. * FP200480 49 | * * FP200490 50 | *OUTPUT- * FP200500 51 | * * OPERATIONAL SYSTEM CARTRIDGE, LOGICAL DRIVE * FP200510 52 | * ZERO. * FP200520 53 | * * FP200530 54 | *EXTERNAL REFERENCES- * FP200540 55 | * * NONE. * FP200550 56 | * * FP200560 57 | *EXIT- * FP200570 58 | * * BRANCH TO $DUMP AT THE END OF INITIAL LOAD. * FP200580 59 | * * AT END OF A RELOAD BRANCH TO $DUMP IF TYPE * FP200590 60 | * '81' RECORD FOLLWED BY A '// XEQ MODIF' * FP200600 61 | * RECORD. OTHERWISE BRANCH TO $EXIT. * FP200610 62 | * * FP200620 63 | *TABLES/BUFFERS- * FP200630 64 | * * CARD1- 80 WORD CARD INPUT BUFFER. * FP200640 65 | * * CARD2- 80 WORD CARD INPUT BUFFER, USED TO * FP200650 66 | * DOUBLE BUFFER WITH 'CARD1' WHEN THE * FP200660 67 | * CARD READER IS THE 2501. * FP200670 68 | * * PKBFR- 60 WORD BUFFER INTO WHICH DATA FROM * FP200680 69 | * 'CARD1' AND 'CARD2' IS COMPRESSED. * FP200690 70 | * * BUFR1- 320 WORD AREA IN WHICH THE RELOAD * FP200700 71 | * TABLE IS CONSTRUCTED. * FP200710 72 | * * BUFR2- 320 WORD DISK I/O BUFFER USED * FP200720 73 | * PRIMARILY FOR DATA. * FP200730 74 | * * BUFR3- 320 WORD DISK I/O BUFFER USED * FP200740 75 | * PRIMARILY FOR SLET. * FP200750 76 | * * FP200760 77 | *ATTRIBUTES- * FP200770 78 | * * N/A * FP200780 79 | * * FP200790 80 | *NOTES- * FP200800 81 | * * THIS PHASE IS ASSEMBLED IN RELOCATABLE- * FP200810 82 | * ABSOLUTE FORMAT. * FP200820 83 | * * IN ADDITION TO THE FIRST CARD, SECTOR BREAK * FP200830 84 | * CARDS PRECEDE SUBPHASES 1, 2, AND 3. PHASE * FP200840 85 | * 1 USES ABSOLUTE SECTOR ADDRESSES TO LOAD * FP200850 86 | * PHASE 2. * FP200860 87 | * * PROGRAM REVISED IN MOD 2 * FP200870 88 | * * FP200880 89 | *************************************************** FP200890 CARD INPUT SYSTEM LOADER - PHASE 2 91 | ABS FP200910 92 | * FP200920 93 | * COMMA EQUATES FP200930 94 | * FP200940 009F 95 | $ACDE EQU /9F TABLE OF AREA CODES FP200950 0006 96 | $CH12 EQU /06 CHANNEL 12 INDICATOR FP200960 005A 97 | $CILA EQU /5A ADDRESS OF END OF DISK SUBR FP200970 0007 98 | $COMN EQU /07 LENGTH OF COMMON (IN WORDS) FP200980 000E 99 | $CORE EQU /0E SIZE OF CORE FP200990 007E 100 | $CPTR EQU /7E CNSL PTR CHANNEL 12 INDICATOR FP201000 000F 101 | $CTSW EQU /0F CONTROL RECORD TRAP SWITCH FP201010 0005 102 | $CIBA EQU /05 SCTR ADDR OF CIB FP201020 009A 103 | $CYLN EQU /9A ARM POSITION FP201030 00EE 104 | $DBSY EQU /EE NON-ZERO WHEN DISKZ BUSY FP201040 0010 105 | $DADR EQU /10 BLK ADDR OF PROG TO BE LOADED FP201050 0077 106 | $DCDE EQU /77 DRIVE CODE OF PROG IN WRK STG FP201060 00A4 107 | $DCYL EQU /A4 TABLE OF DEFECTIVE CYLINDERS FP201070 0012 108 | $DREQ EQU /12 IND. FOR REQUESTED VERSION DKI/O FP201080 003F 109 | $DUMP EQU /3F CALL DUMP ENTRY POINT FP201090 0076 110 | $DZIN EQU /76 DISK SUBROUTINE IN CORE INDR FP201100 0038 111 | $EXIT EQU /38 CALL EXIT ENTRY POINT FP201110 0071 112 | $FLSH EQU /71 FLUSH JOB SWITCH FP201120 0095 113 | $FPAD EQU /95 TABLE OF FILE PROTECT ADDRESSES FP201130 0014 114 | $HASH EQU /14 WORK AREA FP201140 0013 115 | $IBSY EQU /13 NON-ZERO IF CD/PAP TP DEV. BUSY FP201150 00B9 116 | $IBT2 EQU /B9 LEVEL 2 INTRPT BRANCH TABLE ADDR FP201160 00D4 117 | $IBT4 EQU /D4 ADDR OF THE IBT, LEVEL 4 FP201170 0032 118 | $IOCT EQU /32 ZERO IF NO I/O IN PROGRESS FP201180 002C 119 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE FP201190 00B3 120 | $I200 EQU /B3 ILS02 ENTRY POINT FP201200 00B8 121 | $I205 EQU /B8 ILS02 INTERRUPT ENTRY POINT FP201210 00C4 122 | $I400 EQU /C4 ILS04 ENTRY POINT FP201220 00D0 123 | $I403 EQU /D0 FP201230 007C 124 | $KCSW EQU /7C 1 IF KB,CP BOTH UTILIZED FP201240 0033 125 | $LAST EQU /33 LAST CARD INDICATOR FP201250 0008 126 | $LEV0 EQU /08 LEVEL 0 BRANCH ADDRESS FP201260 0009 127 | $LEV1 EQU /09 LEVEL 1 BRANCH ADDRESS FP201270 000A 128 | $LEV2 EQU /0A LEVEL 2 BRANCH ADDRESS FP201280 000B 129 | $LEV3 EQU /0B LEVEL 3 BRANCH ADDRESS FP201290 000C 130 | $LEV4 EQU /0C LEVEL 4 BRANCH ADDRESS FP201300 000D 131 | $LEV5 EQU /0D LEVEL 5 BRANCH ADDRESS FP201310 0039 132 | $LINK EQU /39 CALL LINK ENTRY POINT FP201320 0034 133 | $NDUP EQU /34 DO NOT DUP IF NON-ZERO FP201330 0035 134 | $NXEQ EQU /35 DO NOT EXECUTE IF NON-ZERO FP201340 0036 135 | $PBSY EQU /36 NON-ZERO WHEN PRINTER BUSY FP201350 0037 136 | $PGCT EQU /37 PAGE NO. FOR HEADINGS FP201360 0078 137 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE FP201370 0028 138 | $PRET EQU /28 IOCS SOFT ERROR TRAP FP201380 0081 139 | $PST1 EQU /81 TRAP FOR I/O ERRORS, LEVEL 1 FP201390 0085 140 | $PST2 EQU /85 TRAP FOR I/O ERRORS, LEVEL 2 FP201400 0089 141 | $PST3 EQU /89 TRAP FOR I/O ERRORS, LEVEL 3 FP201410 008D 142 | $PST4 EQU /8D TRAP FOR I/O ERRORS, LEVEL 4 FP201420 00EF 143 | $SNLT EQU /EF SENSE LIGHT INDICATOR FP201430 0091 144 | $STOP EQU /91 PROGRAM STOP KEY TRAP FP201440 00E0 145 | $SYSC EQU /E0 MODIFICATION LEVEL FP201450 007D 146 | $UFDR EQU /7D DRIVE CODE OF UNFORMATTED I/O FP201460 0079 147 | $UFIO EQU /79 UNFORMATTED I/O RECORD NO. FP201470 002D 148 | $ULET EQU /2D TABLE OF LET ADDRESSES FP201480 007A 149 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE FP201490 007B 150 | $WRD1 EQU /7B ADDR OF 1ST WD OF CORE LOAD FP201500 01E0 151 | $ZEND EQU /1E0 END OF DISKZ FP201510 007F 152 | $1132 EQU /7F 1132 PRINTER CHANNEL 12 INDR FP201520 0080 153 | $1403 EQU /80 1403 PRINTER CHANNEL 12 INDR FP201530 154 | * FP201540 155 | * ABSOLUTE EQUATES FP201550 156 | * FP201560 0000 157 | @IDAD EQU /0000 CART ID, COLD START SAD FP201570 0001 158 | @DCOM EQU /0001 DCOM SECTOR ADDRESS FP201580 0002 159 | @RIAD EQU /0002 RESIDENT IMAGE SECTOR ADDR FP201590 0003 160 | @SLET EQU /0003 FIRST SLET SECTOR ADDRESS FP201600 0006 161 | @RLTB EQU /0006 RELOAD TABLE SECTOR ADDRESS FP201610 0007 162 | @HDNG EQU /0007 PAGE HEADING SECTOR ADDRESS FP201620 0630 163 | @P2AD EQU /0630 SYS LDR - PHASE 2 SCTR ADDR FP201630 0658 164 | @MSCT EQU /0658 MAXIMUM SECTOR ADDRESS - 1 FP201640 0030 165 | @COLD EQU /0030 RLTV ADDR 1ST WD COLD START FP201650 00D0 166 | @CSTR EQU /00D0 FP201660 00F2 167 | DZ000 EQU /00F2 DISKZ ENTRY POINT FP201670 0000 168 | @WDCT EQU 0 RLTV ADDR WORD COUNT IN BFR FP201680 0001 169 | @SADR EQU 1 RLTV ADDR SCTR ADDR IN BFR FP201690 0003 170 | @NDCY EQU 3 MAX NO. OF DEF CYLINDERS FP201700 0005 171 | @MXDR EQU 5 MAX NO. OF DISK CRIVES FP201710 0003 172 | @CIDN EQU 3 RLTV ADDR OF CARTRIDGE ID FP201720 0007 173 | @STAT EQU 7 RLTV ADDR CART STATUS WORD FP201730 003C 174 | @PRWC EQU 60 PRINTER BUFFER LENGTH FP201740 0050 175 | @CCOL EQU 80 NUMBER OF COLUMNS PER CARD FP201750 0140 176 | @SCNT EQU 320 NUMBER OF WORDS PER SECTOR FP201760 1000 177 | @MNCR EQU 4096 MINIMUM ALLOWABLE CORE SIZE FP201770 178 | * FP201780 179 | * SYSTEM DEVICE SUBROUTINE PHASE IDS FP201790 180 | * FP201800 008C 181 | P1403 EQU 140 PHASE ID OF SYS 1403 SUBR FP201810 008D 182 | P1132 EQU 141 PHASE ID OF SYS 1132 SUBR FP201820 008E 183 | PCPAD EQU 142 PHASE ID OF SYS C. P. SUBR FP201830 008F 184 | I2501 EQU 143 PHASE ID OF SYS 2501 SUBR FP201840 0090 185 | I1442 EQU 144 PHASE ID OF SYS 1442 SUBR FP201850 0091 186 | I1134 EQU 145 PHASE ID OF SYS PAPT SUBR FP201860 0092 187 | IKBRD EQU 146 PHASE ID OF SYS KEYBRD SUBR FP201870 0093 188 | CDCNV EQU 147 PH ID OF SYS 2501/1442 CONV FP201880 0094 189 | C1134 EQU 148 PHASE ID OF SYS 1134 CONV FP201890 0095 190 | CKBRD EQU 149 PHASE ID OF SYS KEYBRD CONV FP201900 0096 191 | DISKZ EQU 150 PHASE ID OF DISKZ SUBR FP201910 0097 192 | DISK1 EQU 151 PHASE ID OF DISK1 SUBR FP201920 0098 193 | DISKN EQU 152 PHASE ID OF DISKN SUBR FP201930 0099 194 | PRINT EQU 153 PH ID OF PRINC PRINT SUBR FP201940 009A 195 | PINPT EQU 154 PH ID OF PRINC INPUT SUBR FP201950 009B 196 | PIDEV EQU 155 PRINC INPUT EXCLUDING KEYBD FP201960 009C 197 | CNVRT EQU 156 PRINC SYS CONVERSION SUBR FP201970 009D 198 | CVRT EQU 157 PRINC CONV EXCLUDING KEYBRD FP201980 199 | * FP201990 200 | * SYSTEM LOADER COMMUNICATIONS AREA FP202000 201 | * FP202010 01F0 202 | CILWC EQU /01F0 CORE IMAGE LOADER WORD CNT FP202020 01F2 203 | RINDR EQU CILWC+2 CD RDR INDR- 0=2501,NZ=1442 FP202030 01F3 204 | DCYL1 EQU RINDR+1 SCTR ADDR OF 1ST DEF CYLIN FP202040 01F4 205 | DCYL2 EQU DCYL1+1 SCTR ADDR OF 2ND DEF CYLIN FP202050 01F5 206 | DCYL3 EQU DCYL2+1 SCTR ADDR OF 3RD DEF CYLIN FP202060 01F6 207 | LMODE EQU DCYL3+1 LOAD MODE IMAGE FP202070 01F7 208 | CAREA EQU LMODE+1 NO. SECTORS OF CUSHION AREA FP202080 01F8 209 | T1442 EQU CAREA+1 SET 1 IF 1442-6 OR 7 AVAIL FP202090 01F9 210 | DINDR EQU T1442+1 ISS DEVICE INDICATOR FP202100 01FA 211 | VERSN EQU DINDR+1 VERSION AND MODIFICATION NO FP202110 01FB 212 | CIBFR EQU VERSN+1 SCTR ADDR OF CORE IMAGE BFR FP202120 01FC 213 | SCORE EQU CIBFR+1 CORE SIZE FP202130 01FD 214 | MAXPH EQU SCORE+1 MAXIMUM PHASE ID FP202140 01FE 215 | ASCRA EQU MAXPH+1 SECTOR ADDRESS OF SCRA FP202150 01FF 216 | CARID EQU ASCRA+1 ID OF CARTRIDGE FP202160 0200 217 | FLETI EQU CARID+1 FIXED AREA INDICATOR FP202170 0201 218 | FPADR EQU FLETI+1 FILE PROTECT ADDRESS FP202180 0202 219 | SSBFR EQU FPADR+1 NO. OF SCTR FOR SLET BFR FP202190 0203 220 | LET00 EQU SSBFR+1 PRE-LOAD LET SECTOR ADDRESS FP202200 0204 221 | SHIFT EQU LET00+1 NO. OF SCTRS TO SHIFT FP202210 021C 222 | PTRID EQU SHIFT+24 PH ID OF PRINC PRINT SUBR FP202220 021D 223 | CHN12 EQU PTRID+1 ADDRESS OF CHANNEL 12 INDR FP202230 021E 224 | RDRID EQU PTRID+2 PH ID OF PRINC I/O SUBR FP202240 021F 225 | CNVID EQU RDRID+1 PH ID OF PRINC CONV SUBR FP202250 0220 226 | PRNRD EQU CNVID+1 PRINCIPAL I/O DEVICE INDR FP202260 0221 227 | PRNPR EQU PRNRD+1 PRINCIPAL PRINT DEVICE INDR FP202270 0222 228 | PAIR1 EQU PRNPR+1 FP202280 0224 229 | PAIR2 EQU PAIR1+2 FP202290 0226 230 | PAIR3 EQU PAIR2+2 FP202300 0228 231 | PAIR4 EQU PAIR3+2 FP202310 022A 232 | PAIR5 EQU PAIR4+2 FP202320 022C 233 | PAIR6 EQU PAIR5+2 FP202330 022E 234 | PAIR7 EQU PAIR6+2 FP202340 0230 235 | PAIR8 EQU PAIR7+2 FP202350 0232 236 | PAIR9 EQU PAIR8+2 FP202360 0234 237 | PAIRA EQU PAIR9+2 FP202370 0236 238 | PAIRB EQU PAIRA+2 FP202380 0238 239 | PAIRC EQU PAIRB+2 FP202390 023A 240 | PAIRD EQU PAIRC+2 FP202400 023C 241 | PAIRE EQU PAIRD+2 FP202410 023E 242 | PAIRF EQU PAIRE+2 FP202420 023F 243 | LPHID EQU PAIRF+1 LAST PH ID FOR INITIAL LOAD FP202430 0240 244 | LOLIM EQU LPHID+1 LOWER PHASE ID BYPASS LIMIT FP202440 0241 245 | UPLIM EQU LOLIM+1 UPPER PHASE ID BYPASS LIMIT FP202450 024B 246 | MSG01 EQU UPLIM+10 E 01 CHECKSUM ERROR FP202460 0257 247 | MSG02 EQU MSG01+12 E 02 INVALID RCRD OR BLANK FP202470 0267 248 | MSG03 EQU MSG02+16 E 03 SEQ ERR OR MISSING RCD FP202480 027A 249 | MSG04 EQU MSG03+19 E 04 ORG BACKWARD FP202490 0285 250 | MSG05 EQU MSG04+11 E 05 INITIALIZE THE CART FP202500 0296 251 | INTPT EQU MSG05+17 INHIBIT INTRPT REQ SUBR ENT FP202510 029D 252 | WRTYZ EQU INTPT+7 CONSOLE PRINTER SUBR ENTRY FP202520 029F 253 | TZ100 EQU WRTYZ+2 CONSOLE PTR INTERRUPT ENTRY FP202530 02D6 254 | CD000 EQU WRTYZ+57 CARD READER SUBR ENTRY FP202540 02D9 255 | CD010 EQU CD000+3 CARD READER INTERRUPT ENTRY FP202550 PHASE 2 INITIALIZATION 0376 257 | ORG /0376 BEGIN AT END OF DEVICE SUBR FP202570 258 | * FP202580 259 | * FP202590 0376 063E 260 | DC BZ999-BA000+1 WORD COUNT OF PHASE 2 FP202600 0377 0630 261 | DC @P2AD SCTR ADDR OF PHASE 2 FP202610 262 | * FP202620 263 | * FP202630 0378 1000 264 | BA000 NOP A WAIT MAY BE PATCHED HERE FP202640 0379 6500 0968 265 | LDX L1 BZ930-1 STORE ADDRESS OF INTERRUPT FP202650 037B 6D00 00D4 266 | STX L1 $IBT4 *BRANCH TABLE IN ILS04 FP202660 037D 6700 092A 267 | LDX L3 X XR3 POINTS TO CONSTANTS FP202670 037F C400 01F6 268 | LD L LMODE FETCH AND FP202680 0381 D301 269 | STO 3 BY934-X *STORE LOAD MODE INDICATOR FP202690 0382 4C10 038A 270 | BSC L BA010,- BRANCH IF A RELOAD FUNC FP202700 0384 4400 070E 271 | BSI L FTCH3 ZERO SLET BUFFER VIA READ FP202710 0386 C400 023F 272 | LD L PAIRF+1 FETCH AND FP202720 0388 D3F6 273 | STO 3 BY924-X *STORE LAST PHASE ID FP202730 0389 7005 274 | MDX BB000 BRANCH TO READ A RECORD FP202740 038A C400 01FB 275 | BA010 LD L CIBFR FETCH AND FP202750 038C D302 276 | STO 3 BY935-X *STORE CIB SECTOR ADDRESS FP202760 277 | * CLEAR SIGN BITS IN SLET TABLE SCTR ADDRESSES. 2-4 FP202770 278 | * LOCATE LAST PH ID & LAST USED SCTR ADDRESS. 2-4 FP202780 279 | * COMPRESS OUT EXISTING GAPS BETWEEN 2-4 FP202790 280 | * SYSTEM PROGRAMS. 2-4 FP202800 038D 4400 0D7C 281 | BSI L B0000 GO DO ABOVE 3 FUNCTIONS FP202810 READ A RECORD 038F C400 01F2 283 | BB000 LD L RINDR TEST FOR AND BRANCH TO FP202830 0391 4418 03AA 284 | BSI L BB100,+- *DOUBLE BUFFER IF RDR 2501 FP202840 0393 C04A 285 | LD BB900 SET ADDRESS IN PACKING SUBR FP202850 0394 83D3 286 | A 3 BX901-X *TO MATCH FP202860 0395 D400 0487 287 | STO L PK020 *ADDRESS READ INTO FP202870 0397 4035 288 | BSI BB200 BRANCH TO READ A RECORD FP202880 0398 7400 0013 289 | MDX L $IBSY,0 SKIP IF READ COMPLETE FP202890 039A 70FD 290 | MDX *-3 BR TO TEST READ COMPLETE FP202900 039B C30D 291 | BB020 LD 3 BY946-X TEST FOR AND BRANCH FP202910 039C 4420 0483 292 | BSI L PACK0,Z *IF PACKING INDICATOR ON FP202920 039E C400 0487 293 | LD L PK020 FETCH ADDR OF CURRENT BFR FP202930 03A0 9310 294 | S 3 BY949-X TEST FOR FP202940 03A1 93D3 295 | S 3 BX901-X *AND BRANCH FP202950 03A2 4C18 03A7 296 | BSC L BB040,+- *IF 'CARD2' FP202960 03A4 1810 297 | SRA 16 SET FP202970 03A5 D3FB 298 | STO 3 BY929-X *'CARD1' PACKED INDICATOR FP202980 03A6 7001 299 | MDX BB060 BR TO DETERMINE RECORD TYPE FP202990 03A7 D3FC 300 | BB040 STO 3 BY930-X SET 'CARD2' PACKED INDR FP203000 03A8 4C00 04DC 301 | BB060 BSC L BC000 BR TO DETERMINE RECORD TYPE FP203010 302 | * FP203020 303 | *************************************************** FP203030 304 | * FP203040 305 | * 2501 DOUBLE BUFFERING SUBROUTINE FP203050 306 | * FP203060 03AA 0000 307 | BB100 DC 0 ENTRY/RETURN ADDRESS FP203070 03AB C339 308 | LD 3 BZ909-X TEST FOR AND BRANCH FP203080 03AC 4C18 03B3 309 | BSC L BB110,+- *IF DOUBLE BUFFERING FP203090 03AE C31F 310 | LD 3 BY966-X FETCH 'NOP' FP203100 03AF D00A 311 | STO BB120 *TO CHANGE FP203110 03B0 D013 312 | STO BB160 *'BSI BB200'S FP203120 03B1 D400 01F2 313 | STO L RINDR TURN OFF DOUBLE BUFFERING FP203130 314 | * FP203140 03B3 C3FB 315 | BB110 LD 3 BY929-X TEST FOR AND FP203150 03B4 4C20 03C0 316 | BSC L BB140,Z *BRANCH IF 'CARD1' BUSY FP203160 03B6 C30F 317 | LD 3 BY948-X SET 'CARD1' FP203170 03B7 D400 03DE 318 | STO L BB900 *AS I/O AREA ADDRESS FP203180 03B9 D3FB 319 | STO 3 BY929-X SET 'CARD1' BUSY INDICATOR FP203190 03BA 4012 320 | BB120 BSI BB200 BRANCH TO READ A CARD FP203200 321 | * FP203210 03BB C3FC 322 | LD 3 BY930-X TEST FOR AND FP203220 03BC 4C18 038F 323 | BSC L BB000,+- *BRANCH IF 'CARD2' PACKED FP203230 03BE C310 324 | LD 3 BY949-X FETCH ADDRESS OF 'CARD2' FP203240 03BF 7009 325 | MDX BB180 BRANCH TO PACK 'CARD2' FP203250 326 | * FP203260 03C0 C310 327 | BB140 LD 3 BY949-X SET 'CARD2' FP203270 03C1 D400 03DE 328 | STO L BB900 *AS I/O AREA ADDRESS FP203280 03C3 D3FC 329 | STO 3 BY930-X SET 'CARD2' BUSY INDICATOR FP203290 03C4 4008 330 | BB160 BSI BB200 BRANCH TO READ A CARD FP203300 331 | * FP203310 03C5 C3FB 332 | LD 3 BY929-X TEST FOR AND FP203320 03C6 4C18 038F 333 | BSC L BB000,+- *BRANCH IF 'CARD1' PACKED FP203330 03C8 C30F 334 | LD 3 BY948-X FETCH ADDRESS OF 'CARD1' FP203340 03C9 83D3 335 | BB180 A 3 BX901-X POINT TO FIRST DATA WORD FP203350 03CA D400 0487 336 | STO L PK020 STORE ADDRESS TO PACK SUBR FP203360 03CC 70CE 337 | MDX BB020 BRANCH TO PACK THE RECORD FP203370 338 | * FP203380 339 | *************************************************** FP203390 340 | * FP203400 341 | * READ A RECORD FP203410 342 | * FP203420 03CD 0000 343 | BB200 DC 0 ENTRY/RETURN ADDRESS FP203430 03CE C400 0033 344 | LD L $LAST TEST FOR AND FP203440 03D0 4C18 03D6 345 | BSC L BB250,+- *BRANCH IF NOT LAST CARD FP203450 03D2 C400 0482 346 | LD L BB904 FETCH FEED CONTROL PARAM FP203460 03D4 4400 02D7 347 | BSI L CD000+1 BRANCH TO FEED LAST CARD FP203470 03D6 C007 348 | BB250 LD BB900 FETCH ADDRESS OF I/O BUFFER FP203480 03D7 1890 349 | SRT 16 SHIFT TO EXTENSION FP203490 03D8 C057 350 | LD BB902 FETCH READ CONTROL PARAM FP203500 03D9 4400 02D7 351 | BSI L CD000+1 BRANCH TO READ A RECORD FP203510 03DB 4C80 03CD 352 | BSC I BB200 RETURN FP203520 353 | * FP203530 354 | * CONSTANTS AND WORK AREAS FP203540 355 | * FP203550 03DE 356 | BSS E 0 FORCE NEXT LOC TO BE EVEN FP203560 03DE 03DF 357 | BB900 DC CARD1-1 ADDRESS OF CURRENT I/O BFR FP203570 03DF 0050 358 | DC @CCOL WORD COUNT FP203580 03E0 359 | CARD1 BSS @CCOL FIRST CARD BUFFER FP203590 0430 7002 360 | BB902 DC /7002 READ CONTROL PARAMETER FP203600 0431 0050 361 | DC @CCOL WORD COUNT FP203610 0432 362 | CARD2 BSS @CCOL SECOND CARD BUFFER FP203620 0482 7003 363 | BB904 DC /7003 FEED CONTROL PARAMETER FP203630 364 | * FP203640 365 | *************************************************** FP203650 366 | * FP203660 367 | * PACK 80 CARD IMAGE WORDS TO 60 BINARY WORDS FP203670 368 | * FP203680 0483 0000 369 | PACK0 DC 0 ENTRY/RETURN ADDRESS FP203690 0484 6F00 049D 370 | STX L3 PK060+1 SAVE XR3 FP203700 0486 6500 03E0 371 | LDX L1 CARD1 XR1 POINTS TO FP203710 0487 372 | PK020 EQU *-1 *ADDRESS OF I/O AREA FP203720 0488 6600 04A0 373 | LDX L2 PKBFR XR2 PTS TO PACKED BUFFER FP203730 048A 6314 374 | LDX 3 20 XR3 = NUMBER OF LOOPS FP203740 048B 10A0 375 | PK040 SLT 32 CLEAR ACC AND EXT FP203750 048C C101 376 | LD 1 1 2220 0000 FP203760 048D 18CC 377 | RTE 12 0002 2200 FP203770 048E 8100 378 | A 1 0 1112 2200 FP203780 048F D200 379 | STO 2 0 STORE WORD 1 FP203790 0490 18C8 380 | RTE 8 0011 1222 FP203800 0491 C102 381 | LD 1 2 3330 1222 FP203810 0492 18C8 382 | RTE 8 2233 2333 FP203820 0493 D201 383 | STO 2 1 STORE WORD 2 FP203830 0494 18CC 384 | RTE 12 0122 2333 FP203840 0495 C103 385 | LD 1 3 4440 2333 FP203850 0496 18C4 386 | RTE 4 3444 0233 FP203860 0497 D202 387 | STO 2 2 STORE WORD 3 FP203870 0498 7104 388 | MDX 1 4 INCR UNPACKED ADDRESS FP203880 0499 7203 389 | MDX 2 3 INCR PACKED ADDRESS FP203890 049A 73FF 390 | MDX 3 -1 DECR LOOP CNT, SKIP IF ZERO FP203900 049B 70EF 391 | MDX PK040 BRANCH TO PACK NEXT 4 WORDS FP203910 049C 6700 0000 392 | PK060 LDX L3 *-* RESTORE XR3 FP203920 049E 4C80 0483 393 | BSC I PACK0 RETURN FP203930 394 | * FP203940 395 | * CONSTANTS AND WORK AREAS FP203950 396 | * FP203960 04A0 397 | BSS E 0 FORCE NEXT LOC TO BE EVEN FP203970 04A0 398 | PKBFR BSS @PRWC BINARY RECORD BUFFER FP203980 DETERMINE RECORD TYPE 04DC 6500 049F 400 | BC000 LDX L1 PKBFR-1 XR1 PTS TO BINARY RCDR BFR FP204000 04DE C103 401 | LD 1 3 FETCH WORD 3 OF RECORD FP204010 04DF 1808 402 | SRA 8 *TO DETERMINE RCRD TYPE FP204020 04E0 93D3 403 | S 3 BX901-X TEST FOR AND BRANCH IF FP204030 04E1 4418 04F4 404 | BC020 BSI L BD000,+- *AN ABS HEADER RECORD - /01 FP204040 04E3 93D3 405 | S 3 BX901-X TEST FOR AND BRANCH IF FP204050 04E4 4418 071A 406 | BSI L MODIF,+- *SCTR BK OR XEQ MODIF - /02 FP204060 04E6 93D9 407 | S 3 BX908-X TEST FOR AND BRANCH IF FP204070 04E7 4418 0594 408 | BSI L BE000,+- *A DATA RECORD - /0A FP204080 04E9 93D7 409 | S 3 BX905-X TEST FOR AND BRANCH IF FP204090 04EA 4418 0693 410 | BSI L BF000,+- *AN 'F' RECORD - /0F FP204100 04EC 93DC 411 | S 3 BX912-X TEST FOR AND BRANCH IF FP204110 04ED 4418 06BC 412 | BSI L BG000,+- *AN '81' RECORD - /81 FP204120 04EF C339 413 | LD 3 BZ909-X IF TYPE 81 RCD HAS BEEN FP204130 04F0 4420 0A13 414 | BSI L C3060,Z *READ BR TO CK 'XEQ MODIF' FP204140 04F2 4400 07A3 415 | BSI L ER002 SYS DECK ERROR, PRINT E 02 FP204150 PROCESS A SECTOR BREAK RECORD 04F4 0000 417 | BD000 DC 0 ENTRY FP204170 418 | * FP204180 419 | * IF TWO SECTOR BREAK RECORDS ARE READ IN FP204190 420 | * SUCCESSION PRINT ERROR MESSAGE E 03. FP204200 421 | * FP204210 04F5 C3F9 422 | LD 3 BY927-X TEST TYPE /01 SWITCH FP204220 04F6 4420 07A9 423 | BSI L ER003,Z BR TO PRINT MESSAGE E 03 FP204230 04F8 C33B 424 | LD 3 BZ911-X TEST UNCONDITIONAL BYPASS FP204240 04F9 4C20 038F 425 | BSC L BB000,Z *SW AND GO READ RCD IF ON FP204250 04FB 6C00 0923 426 | STX L0 BY927 SET TYPE /01 SWITCH ON FP204260 04FD 1810 427 | SRA 16 FP204270 04FE D3FF 428 | STO 3 BY933-X SET TYPE 'A' INDR OFF FP204280 04FF C32C 429 | LD 3 BY981-X ANY PROG DATA LEFT TO WRITE FP204290 0500 4420 0764 430 | BSI L WRIT2,Z WRITE PROGRAM DATA TO DISK FP204300 0502 1810 431 | SRA 16 CLEAR FP204310 0503 D308 432 | STO 3 BY941-X *BYPASS THIS PHASE INDR AND FP204320 0504 D32C 433 | STO 3 BY981-X *PROG DATA TO WRITE INDR FP204330 434 | * FP204340 0505 6C00 0930 435 | STX L0 BY939 SET SECTOR BREAK INDC ON FP204350 0507 C3F7 436 | LD 3 BY925-X TEST NOW SKIPPING INDICATOR FP204360 0508 4C20 038F 437 | BSC L BB000,Z KEEP READING IF ON FP204370 050A C304 438 | LD 3 BY937-X PREVIOUS HIGH SCTR ADDR FP204380 050B D32E 439 | STO 3 BY983-X SAVE FOR ERROR RECOVERY FP204390 050C 83D3 440 | A 3 BX901-X ESTABLISH ADDR FOR FIRST FP204400 050D D3E9 441 | STO 3 BY910-X *SECTOR OF THIS PHASE FP204410 442 | * FP204420 443 | * NOW THAT THE PREVIOUS PHASE IS COMPLETELY FP204430 444 | * PROCESSED, SET THE LAST TWO WORDS IN ITS SLET FP204440 445 | * ENTRY FP204450 446 | * FP204460 050E C32D 447 | LD 3 BY982-X DOES SLET ENTRY NEED FINISH FP204470 050F 4C18 051B 448 | BSC L BD045,+- *BR IF ALREADY FINISHED FP204480 0511 6680 09BB 449 | LDX I2 C1020+1 RESTORE XR2 POINTER TO SLET FP204490 0513 C3F2 450 | LD 3 BY919-X STORE WORD COUNT PREV PHASE FP204500 0514 83D3 451 | A 3 BX901-X FORM CORRECT WORD COUNT FP204510 0515 D2FE 452 | STO 2 -2 *PROCESSED IN CURRENT SET FP204520 0516 D328 453 | STO 3 BY977-X SAVE FOR SHRINK TEST 2-4 FP204530 0517 C3EE 454 | LD 3 BY915-X STORE SCTR ADDR OF FIRST FP204540 0518 D2FF 455 | STO 2 -1 *SECTOR IN SLET ENTRY FP204550 0519 1810 456 | SRA 16 RESET WORD COUNT FOR FP204560 051A D3F2 457 | STO 3 BY919-X *EACH PHASE FP204570 458 | * FP204580 459 | * ON RELOAD ALWAYS WRITE OUT SLET TO THE DISK. FP204590 460 | * ON INITIAL AND RELOAD, WRITE AND THEN READ THE FP204600 461 | * NEXT SLET SECTOR IF THE LAST SLET ENTRY WAS AT FP204610 462 | * THE END OF A SECTOR. FP204620 463 | * FP204630 051B C301 464 | BD045 LD 3 BY934-X TEST FOR INITIAL LOAD FP204640 051C 4C28 0525 465 | BSC L BD050,Z+ BR IF INITIAL LOAD FP204650 051E C3F3 466 | LD 3 BY920-X IF SLET SCTR FULL FP204660 051F 4C20 052A 467 | BSC L BD060,Z *THEN WRITE AND READ SLET FP204670 0521 C32D 468 | LD 3 BY982-X DOES SLET NEED WRITING FP204680 0522 4420 078F 469 | BSI L WRIT3,Z ONLY WRITE SLET FP204690 0524 7007 470 | MDX BD080 ALREADY TOOK CARE OF SLET FP204700 0525 6680 09BB 471 | BD050 LDX I2 C1020+1 XR2 = NEXT SLET ENTRY 2-11 FP204705 0527 4400 0A52 472 | BSI L C1400 BR TO INSERT PRIN I/O 2-11 FP204710 0529 C3F3 473 | LD 3 BY920-X IF SLET SCTR FULL FP204720 474 | * WRITE SLET SCTR TO DISK AND FP204730 052A 4420 0585 475 | BD060 BSI L BD200,Z *READ NEXT SLET SECTOR FP204740 052C C326 476 | BD080 LD 3 BY975-X SET JUMP IN RECORD READ FP204750 052D D400 0686 477 | STO L CK060 FP204760 052F C324 478 | LD 3 BY973-X SET INDC FOR REL SECTOR FP204770 0530 D306 479 | STO 3 BY939-X FP204780 0531 1810 480 | SRA 16 CLEAR RCRD COUNT FOR CK-SUM FP204790 0532 D30B 481 | STO 3 BY944-X FP204800 0533 D30A 482 | STO 3 BY943-X FP204810 483 | * SET INDC SO NEXT DATA RCRD FP204820 0534 D400 0672 484 | STO L BE900 *SETS REL ADDR WORD IN SCTR FP204830 0536 D309 485 | STO 3 BY942-X SET INDC ON FOR SCTR BREAK FP204840 0537 C3DE 486 | LD 3 BX914-X FP204850 0538 D305 487 | STO 3 BY938-X FP204860 488 | * 2-4 FP204870 489 | * CHECK IF PHASE SIZE HAS SHRUNK DURING RELOAD 2-4 FP204880 490 | * 2-4 FP204890 0539 C301 491 | BD090 LD 3 BY934-X TEST FOR INITIAL LOAD 2-4 FP204900 053A 4C28 0551 492 | BSC L BD095,Z+ BR IF INITIAL LOAD 2-4 FP204910 053C C32D 493 | LD 3 BY982-X WAS PHASE JUST STORED 2-4 FP204920 053D 4C18 0551 494 | BSC L BD095,+- BR IF NOT 2-4 FP204930 053F C338 495 | LD 3 BZ908-X BR IF NEW PROGRAM ADD 2-4 FP204940 0540 4C20 0551 496 | BSC L BD095,Z *IN PROCESS 2-4 FP204950 0542 C328 497 | LD 3 BY977-X GET NEW WORD COUNT 2-4 FP204960 0543 83DD 498 | A 3 BX913-X CALCULATE NUMBER OF 2-4 FP204970 0544 1890 499 | SRT 16 *SECTORS IN 2-4 FP204980 0545 ABDE 500 | D 3 BX914-X *NEW RELOADED PHASE 2-4 FP204990 0546 D3E2 501 | STO 3 BY902-X SAVE NEW PHASE LENGTH 2-4 FP205000 0547 930E 502 | S 3 BY947-X SUB OLD PHASE LENGTH 2-4 FP205010 0548 4C10 0551 503 | BSC L BD095,- BR IF NOT NOW SMALLER 2-4 FP205020 504 | * 2-4 FP205030 505 | * SET UP PARAMTERS FOR SLET UPDATE AND 2-4 FP205040 506 | * SYSTEM PROGRAM SHIFT 2-4 FP205050 507 | * 2-4 FP205060 054A D3E3 508 | STO 3 BY903-X SAVE LENGTH DIFFERENCE 2-4 FP205070 054B C3EE 509 | LD 3 BY915-X GET SCTR ADDR OF PHASE 2-4 FP205080 054C 83E2 510 | A 3 BY902-X CALCULATE ADDR OF START 2-4 FP205090 054D D3F1 511 | STO 3 BY918-X *OF NEW GAP, 'TO' ADDR 2-4 FP205100 054E 93E3 512 | S 3 BY903-X CALCULATE ADDR OF PHASE 2-4 FP205110 054F D3F0 513 | STO 3 BY917-X *AFTER GAP, 'FROM' ADDR 2-4 FP205120 0550 4004 514 | BSI BD099 GO TO UPDATE/SHIFT SUBR 2-4 FP205130 515 | * 2-4 FP205140 0551 1810 516 | BD095 SRA 16 INDICATE SLET DOESN'T 2-4 FP205150 0552 D32D 517 | STO 3 BY982-X *NEED SETTING OR WRITING FP205160 0553 4C00 038F 518 | BSC L BB000 BR TO READ NEXT RECORD FP205170 519 | * 2-4 FP205180 520 | ************************************************2-4 FP205190 521 | * 2-4 FP205200 522 | * UPDATE SLET TABLE ENTRIES AFFECTED BY LEFT 2-4 FP205210 523 | * SHIFT 2-4 FP205220 524 | * 2-4 FP205230 0555 0000 525 | BD099 DC 0 ENTRY/RETURN ADDR 2-4 FP205240 0556 1000 526 | NOP WAIT MAY BE PATCHED HERE2-4 FP205250 0557 6A11 527 | BD100 STX 2 BD109 GET XR2 POINTER TO NEXT 2-4 FP205260 0558 C010 528 | LD BD109 *SLET ENTRY IN ACC, SUB 2-4 FP205270 0559 93ED 529 | S 3 BY914-X *ADDR LAST ENTRY 2-4 FP205280 530 | * IF BUFFER IS FULL, 2-4 FP205290 531 | * WRITE SCTR BACK TO DISK 2-4 FP205300 055A 4430 0585 532 | BSI L BD200,-Z *AND READ NEXT SECTOR 2-4 FP205310 055C C400 0EBF 533 | LD L BUFR3+1 CHECK FOR END OF SLET 2-4 FP205320 055E 9316 534 | S 3 BY956-X *SLET TABLE SECTORS 2-4 FP205330 055F 4C30 056C 535 | BSC L BD120,-Z BR IF BEYOND END 2-4 FP205340 0561 C203 536 | LD 2 3 GET OLD PHASE SCTR ADDR 2-4 FP205350 0562 4C18 056A 537 | BSC L BD110,+- BR IF NO MORE ENTRIES 2-4 FP205360 0564 93F0 538 | S 3 BY917-X UPDATE PHASE SCTR ADDR 2-4 FP205370 0565 83F1 539 | A 3 BY918-X *BY AMOUNT OF SHIFT 2-4 FP205380 0566 D203 540 | STO 2 3 *DISPLACEMENT 2-4 FP205390 0567 7204 541 | MDX 2 4 ADVANCE SLET ENTRY PTR 2-4 FP205400 0568 70EE 542 | MDX BD100 BR TO TEST NEXT ENTRY 2-4 FP205410 0569 0000 543 | BD109 DC *-* TEMP STORAGE FOR XR2 2-4 FP205420 056A 4400 078F 544 | BD110 BSI L WRIT3 WRITE BACK LAST SECTOR 2-4 FP205430 545 | * 2-4 FP205440 546 | * SHIFT REMAINDER OF SYSTEM PROGRAMS LEFT 2-4 FP205450 547 | * 2-4 FP205460 056C C3F6 548 | BD120 LD 3 BY924-X KNOWN ID OF LAST PHASE 2-4 FP205470 056D 4400 0722 549 | BSI L SSLET SEARCH SLET FOR THIS ID 2-4 FP205480 056F 4408 07FF 550 | BSI L ER027,+ BR IF SOMEHOW MISSING 2-4 FP205490 0571 C202 551 | LD 2 2 CALCULATE NUMBER OF 2-4 FP205500 0572 83DD 552 | A 3 BX913-X *SECTORS IN LAST 2-4 FP205510 0573 1890 553 | SRT 16 *SYSTEM PROGRAM 2-4 FP205520 0574 ABDE 554 | D 3 BX914-X *PHASE 2-4 FP205530 0575 8203 555 | A 2 3 ADD STARTING SCTR ADDR 2-4 FP205540 0576 93D3 556 | S 3 BX901-X SET NEW VALUE FOR 2-4 FP205550 0577 D304 557 | STO 3 BY937-X *LAST SECTOR USED 2-4 FP205560 0578 83D3 558 | A 3 BX901-X ADD BACK 1 2-4 FP205570 0579 93F1 559 | S 3 BY918-X NUMBER OF SCTRS TO SHIFT2-4 FP205580 057A D329 560 | STO 3 BY978-X *IS DIFFERENCE FROM 'TO'2-4 FP205590 057B C400 01F7 561 | LD L CAREA INCREMENT CUSHION SIZE 2-4 FP205600 057D 83F0 562 | A 3 BY917-X *BY AMOUNT 2-4 FP205610 057E 93F1 563 | S 3 BY918-X *OF SHIFT 2-4 FP205620 057F D400 01F7 564 | STO L CAREA *DISPLACEMENT 2-4 FP205630 0581 4400 0A5E 565 | BSI L C0300 GO DO THE LEFT SHIFT 2-4 FP205640 0583 4C80 0555 566 | BSC I BD099 RETURN FROM SUBROUTINE 2-4 FP205650 567 | * FP205660 568 | *************************************************** FP205670 569 | * FP205680 570 | * WRITE A SECTOR OF SLET AND READ NEXT SECTOR FP205690 571 | * OF SLET. FP205700 572 | * FP205710 0585 0000 573 | BD200 DC 0 ENTRY/RETURN ADDRESS FP205720 0586 1810 574 | SRA 16 RESET SLET SCTR FULL FP205730 0587 D3F3 575 | STO 3 BY920-X *INDICATOR FP205740 0588 4400 078F 576 | BSI L WRIT3 BR TO WRITE SLET SECTOR FP205750 058A 7401 0EBF 577 | MDX L BUFR3+1,1 BUMP TO NEXT SLET SCTR ADDR FP205760 058C 4400 070E 578 | BSI L FTCH3 BR TO READ SLET SECTOR FP205770 058E 6680 0916 579 | LDX I2 BY913 SET XR2 ADDR 1ST SLET SET FP205780 0590 6E00 09BB 580 | STX L2 C1020+1 *AND SAVE IN 'C1020'+1 FP205790 0592 4C80 0585 581 | BSC I BD200 RETURN FP205800 PROCESS A TYPE 'A' DATA RECORD 0594 0000 583 | BE000 DC 0 ENTRY FP205820 0595 1810 584 | SRA 16 SET FP205830 0596 D3FA 585 | STO 3 BY928-X *TYPE 'F' INDICATOR AND FP205840 0597 D3F9 586 | STO 3 BY927-X *TYPE '1' INDICATOR OFF FP205850 0598 6C00 0929 587 | STX L0 BY933 SET TYPE 'A' INDR ON FP205860 059A C308 588 | LD 3 BY941-X IF BAD PHASE BEING FLUSHED FP205870 059B 4C20 038F 589 | BSC L BB000,Z *BR TO READ NEXT RECORD FP205880 059D C3F7 590 | LD 3 BY925-X IS SYS LDR BYPASSING PHASES FP205890 059E 4C18 05B2 591 | BSC L BE080,+- BR IF NOT BYPASSING PHASE FP205900 592 | * FP205910 593 | * SYSTEM LOADER IS BYPASSING PHASES FP205920 594 | * FP205930 05A0 C306 595 | LD 3 BY939-X FP205940 05A1 4C18 066C 596 | BSC L BE560,-+ BR IF SCTR BREAK INDR OFF FP205950 05A3 C10B 597 | LD 1 11 PHASE ID FROM 1ST DATA RCD FP205960 05A4 4C10 05A8 598 | BSC L BE020,- IF PHASE ID NEGATIVE FP205970 05A6 1810 599 | SRA 16 *MAKE IT FP205980 05A7 910B 600 | S 1 11 *POSITIVE FP205990 05A8 93F8 601 | BE020 S 3 BY926-X PASS CARDS UNTIL PH ID TO FP206000 05A9 4C28 066C 602 | BSC L BE560,+Z *GO TO IS REACHED FP206010 603 | * FP206020 604 | * A PROGRAM HAS JUST BEEN BYPASSED. INDICATORS 2-3 FP206030 605 | * ARE CLEARED. THE HANDLING OF BYPASS LIMITS 2-3 FP206040 606 | * HAS BEEN MOVED TO BE086. 2-3 FP206050 607 | * FP206060 05AB 1810 608 | SRA 16 FP206070 05AC D3F7 609 | STO 3 BY925-X CLEAR INDICATOR FP206080 05AD D308 610 | STO 3 BY941-X CLEAR PHASE BYPASS INDR FP206090 05AE D30B 611 | STO 3 BY944-X CLEAR CK-SUM RCD SEQ CTR FP206100 05AF C326 612 | LD 3 BY975-X RE-INITIALIZE CKSUM SUBR FP206110 05B0 D400 0686 613 | STO L CK060 FP206120 614 | * FP206130 615 | * CODING REMOVED. 2-3 FP206140 616 | * FP206150 05B2 C103 617 | BE080 LD 1 3 FETCH TYPE & WD COUNT FP206160 05B3 E317 618 | AND 3 BY957-X MASK OUT TYPE FP206170 05B4 D061 619 | STO BE240+1 SAVE WORD COUNT FROM RECORD FP206180 05B5 4400 0673 620 | BSI L CKSUM BR TO CHECK-SUM SUBROUTINE FP206190 05B7 C306 621 | LD 3 BY939-X TEST FOR NEW SCTR SIGNAL FP206200 05B8 4C18 0613 622 | BSC L BE220,+- BR IF NOT NEW SECTOR FP206210 623 | * FP206220 624 | * PROCESS FIRST DATA RECORD AFTER SECTOR BREAK FP206230 625 | * RECORD. FP206240 626 | * FP206250 05BA C400 0616 627 | LD L BE240+1 FETCH WORD COUNT FP206260 05BC 93D3 628 | S 3 BX901-X SUBTRACT 1 FP206270 05BD 4408 07AF 629 | BSI L ER004,+ BR IF WORD COUNT 0 OR 1 FP206280 05BF C3EA 630 | LD 3 BY911-X PREVIOUS CURRENT PHASE NOW FP206290 05C0 D3EB 631 | STO 3 BY912-X *IS OLD PHASE FP206300 05C1 C10B 632 | LD 1 11 PHASE ID FROM FIRST RECORD FP206310 05C2 4C10 05C6 633 | BSC L BE085,- IF PHASE ID NEGATIVE FP206320 05C4 1810 634 | SRA 16 *MAKE FP206330 05C5 910B 635 | S 1 11 *POSITIVE FP206340 05C6 D3EA 636 | BE085 STO 3 BY911-X SET NEW CURRENT PHASE ID FP206350 637 | * FP206360 638 | * BYPASS TEST FOR INITIAL LOAD AND RELOAD. FP206370 639 | * PROGRAMS TO BE SKIPPED BY THIS TEST FP206380 640 | * WERE INDICATED ON LOAD MODE RECORD FP206390 641 | * FP206400 642 | * THE SKIP TABLE IS SEARCHED AND CHECKED 2-3 FP206410 643 | * ON EACH OCCASION UNTIL - THE END OF THE TABLE 2-3 FP206420 644 | * IS REACHED OR THE CURRENT SLET ID IS FOUND TO 2-3 FP206430 645 | * BE LESS THAN A LOWER LIMIT OR THE CURRENT 2-3 FP206440 646 | * SLET ID FITS INTO A LIMIT PAIR. 2-3 FP206450 647 | * FP206460 05C7 6600 0240 648 | LDX L2 LOLIM LD ADDR OF SKIP TABLE 2-3 FP206470 05C9 C200 649 | BE086 LD 2 0 CHK IF NO MORE PAIRS 2-3 FP206480 05CA 93DF 650 | S 3 BX915-X *IN SKIP TABLE 2-3 FP206490 05CB 4C18 05E1 651 | BSC L BE090,+- *BR IF END OF SKIP TBL 2-3 FP206500 05CD C3EA 652 | LD 3 BY911-X IS CURRENT SLET ID 2-3 FP206510 05CE 9200 653 | S 2 0 *LESS THAN LOWER LIMIT 2-3 FP206520 05CF 4C28 05E1 654 | BSC L BE090,+Z *BR ON YES 2-3 FP206530 05D1 C3EA 655 | LD 3 BY911-X IS CURRENT SLET ID LESS 2-3 FP206540 05D2 9201 656 | S 2 1 *THAN OR EQU UPPER LIMIT2-3 FP206550 05D3 4C08 05D7 657 | BSC L BE087,+ *BR IF YES 2-3 FP206560 05D5 7202 658 | MDX 2 2 POINT TO NEXT PAIR 2-3 FP206570 05D6 70F2 659 | MDX BE086 *AND CHECK AGAIN 2-3 FP206580 05D7 C201 660 | BE087 LD 2 1 GET UPPER LIMIT OF 2-3 FP206590 05D8 83D3 661 | A 3 BX901-X *BY-PASS PAIR, ADD ONE FP206600 05D9 D3F8 662 | STO 3 BY926-X PH ID BEING LOOKED FOR FP206610 05DA D3F7 663 | STO 3 BY925-X SET BYPASSING INDR ON FP206620 05DB 1000 664 | NOP A WAIT MAY BE PATCHED HERE FP206630 05DC C301 665 | LD 3 BY934-X IF RELOAD FP206640 05DD 4410 0BCD 666 | BSI L C0720,- *BR TO REMOVE ANY SLET REF FP206650 05DF 4C00 066C 667 | BSC L BE560 BR TO FLUSH DATA RECORDS FP206660 668 | * FP206670 669 | * THIS PHASE IS TO BE LOADED FP206680 670 | * FP206690 671 | * SAVE DATA FROM PHASES WITH NEGATIVE IDS FOR FP206700 672 | * SPECIAL RELOAD TABLE. FP206710 673 | * FP206720 05E1 C10B 674 | BE090 LD 1 11 LOAD PHASE ID FP206730 05E2 4C08 05E8 675 | BSC L BE100,+ BR IF RELOAD TABLE ENTRY FP206740 05E4 C301 676 | LD 3 BY934-X TEST FOR AND BR IF RELOAD FP206750 05E5 4410 0BCD 677 | BSI L C0720,- *TO CHK FOR ID IN TABLE FP206760 05E7 701E 678 | MDX BE180 INITIAL LOAD, NO SLET REF FP206770 679 | * FP206780 680 | * THIS PHASE MAKES SLET TABLE REFERENCE FP206790 681 | * FP206800 05E8 C400 0616 682 | BE100 LD L BE240+1 VERIFY THAT WD CNT IS AT FP206810 05EA 93D6 683 | S 3 BX904-X *LEAST 4, ELSE FP206820 05EB 4428 07C1 684 | BSI L ER021,Z+ *BR TO DISPLAY ERROR E 21 FP206830 05ED C400 0C38 685 | LD L BUFR1 TEST WD CNT NOW IN RELOAD FP206840 05EF 93DE 686 | S 3 BX914-X *TABLE FP206850 05F0 83D4 687 | A 3 BX902-X IF 318 OR OVER, FP206860 05F1 4410 0818 688 | BSI L ER030,- *BR TO DISPLAY ERROR E 30 FP206870 05F3 1810 689 | SRA 16 MAKE NEGATIVE FP206880 05F4 910B 690 | S 1 11 *PHASE ID FP206890 05F5 D10B 691 | STO 1 11 *POSITIVE FP206900 05F6 D400 0C3A 692 | BE120 STO L BUFR1+2 ST IN RELOAD TABLE BUFFER FP206910 05F8 C10C 693 | LD 1 12 FP206920 05F9 D400 0C3B 694 | BE140 STO L BUFR1+3 ST RLTV LOC IN SPEC PHASE FP206930 05FB C10D 695 | LD 1 13 FP206940 05FC D400 0C3C 696 | BE160 STO L BUFR1+4 ST NO. OF SETS REQUIRED FP206950 05FE 7403 05F7 697 | MDX L BE120+1,3 MODIFY STORAGE ADDRESS FP206960 0600 7403 05FA 698 | MDX L BE140+1,3 MODIFY STORAGE ADDRESS FP206970 0602 7403 05FD 699 | MDX L BE160+1,3 MODIFY STORAGE ADDRESS FP206980 0604 7403 0C38 700 | MDX L BUFR1,3 BUMP WD CNT FOR FILE BY 3 FP206990 0606 4C00 09B9 701 | BE180 BSC L OVLAY+3 BRANCH TO OVERLAY 0 OR 1 FP207000 702 | * FP207010 703 | * OVERLAY 0 OR 1 NORMALLY RETURNS HERE FP207020 704 | * FP207030 0608 C3E9 705 | BE200 LD 3 BY910-X 1ST SCTR ADDR OF NEW PHASE FP207040 0609 D30C 706 | STO 3 BY945-X FP207050 060A D3EE 707 | STO 3 BY915-X SAVE FOR SLET FP207060 060B 6C00 0956 708 | STX L0 BY981 INDICATE PROG DATA TO WRITE FP207070 060D C008 709 | LD BE240+1 LOAD WORD COUNT FP207080 060E 93D4 710 | S 3 BX902-X MODIFY WD CNT FROM RECORD FP207090 060F D006 711 | STO BE240+1 SAVE TO SET IN XR2 FP207100 0610 C31F 712 | LD 3 BY966-X FETCH NOP CODING FP207110 0611 D006 713 | STO BE260 CANCEL SKIP PAST INST TO FP207120 0612 7002 714 | MDX BE240 *ADD TWO. BR TO LOAD XR2 FP207130 0613 C321 715 | BE220 LD 3 BY969-X NOP THE ADD 2 INSTRUCTION FP207140 0614 D003 716 | STO BE260 *BY INSERTING A JUMP FP207150 0615 6600 0000 717 | BE240 LDX L2 *-* WORD COUNT OF RECORD FP207160 0617 C101 718 | LD 1 1 SAVE CORE LOC OF 1ST WORD FP207170 0618 7002 719 | BE260 MDX BE280 AT SCTR BREAKS, ADDR OF FP207180 0619 8400 08FE 720 | A L BX902 *FIRST DATA WD IS 2 LARGER FP207190 061B 7400 0672 721 | BE280 MDX L0 BE900,0 IF NOT 0 DONT SET RLTV ADDR FP207200 061D 700B 722 | MDX BE320 BR TO TEST LOAD ADDR OF WD FP207210 723 | * FP207220 724 | * DETERMINE RELATIVE ADDRESS FROM FP207230 725 | * ADDRESS OF FIRST WORD IN SECTOR FP207240 726 | * FP207250 061E 93D3 727 | BE300 S 3 BX901-X SUBTRACT ONE FP207260 061F 7401 0934 728 | MDX L BY943,1 INCR CORR FACTOR CTR FP207270 0621 4C20 061E 729 | BSC L BE300,Z LOOP UNTIL ZERO FP207280 0623 C30A 730 | LD 3 BY943-X *AND SAVE RESULTING ADDR FP207290 0624 D307 731 | STO 3 BY940-X SET UP CORRECTION FACTOR FP207300 0625 6C00 0672 732 | STX L0 BE900 TURN INDC OFF FP207310 0627 C101 733 | LD 1 1 RELOAD ORIGINAL ADDRESS FP207320 0628 83D4 734 | A 3 BX902-X 1ST 2 WDS ARE NOT STORED FP207330 735 | * FP207340 0629 9307 736 | BE320 S 3 BY940-X SUBTRACT RLTV ADDR IN SCTR FP207350 062A 4428 07AF 737 | BSI L ER004,Z+ BR IF ORG BACKWARDS FP207360 062C D303 738 | BE340 STO 3 BY936-X DATA WORD ON RECORD FP207370 062D 93F2 739 | S 3 BY919-X COMPARE RLTV ADDR WITH THE FP207380 062E 4C08 0632 740 | BSC L BE380,+ *HIGHEST SO FAR. BR IF LOW FP207390 0630 C303 741 | LD 3 BY936-X SAVE HIGHEST 'BY936' VALUE FP207400 0631 D3F2 742 | STO 3 BY919-X *FOR SLET TABLE FP207410 0632 C303 743 | BE380 LD 3 BY936-X 'BY936' CLIMBS WITH EACH WD FP207420 0633 1890 744 | SRT 16 SET UP FOR DIVIDE FP207430 0634 ABDE 745 | D 3 BX914-X DIVIDE BY WDS PER SCTR FP207440 0635 DBE0 746 | STD 3 BY900-X SAVE QUOTIENT & REMAINDER FP207450 0636 C338 747 | LD 3 BZ908-X IF A PROGRAM IS BEING ADDED FP207460 0637 4C20 063D 748 | BSC L BE400,Z *BR AROUND LENGTH CHECK FP207470 0639 CBE0 749 | LDD 3 BY900-X SECTORS AND WDS ADDITIONAL FP207480 063A 930E 750 | S 3 BY947-X PHASE LENGTH IN SECTORS FP207490 063B 4C10 0AC7 751 | BSC L C0500,- BRANCH IF A SHIFT REQUIRED FP207500 063D CBE0 752 | BE400 LDD 3 BY900-X SECTORS AND WDS ADDN'L 2-5 FP207510 063E 9305 753 | S 3 BY938-X BR IF NO SCTR CHANGE REQ FP207520 063F 4C18 0655 754 | BSC L BE480,+- PROGRAM ALREADY IN CORE FP207530 0641 C309 755 | LD 3 BY942-X TEST FOR AND BR IF FP207540 0642 4C20 0649 756 | BSC L BE440,Z *END OF PROG INDR ON FP207550 0644 C3E0 757 | LD 3 BY900-X SET INDR WITH FP207560 0645 D305 758 | STO 3 BY938-X *SCTR COUNT FROM DIVIDE FP207570 0646 7401 0933 759 | MDX L BY942,1 SET SCTR BREAK INDR OFF FP207580 0648 7005 760 | MDX BE460 BR TO SET UP A SCTR ADDR FP207590 0649 C3E0 761 | BE440 LD 3 BY900-X SET INDR FOR THIS SCTR FP207600 064A D305 762 | STO 3 BY938-X OF PHASE FP207610 064B 4400 0764 763 | BSI L WRIT2 WRITE A SECTOR FP207620 064D C3E0 764 | LD 3 BY900-X FETCH QUOTIENT FP207630 064E 830C 765 | BE460 A 3 BY945-X ADD SECTOR ADDRESS FP207640 064F D3EF 766 | STO 3 BY916-X MAINTAIN CURR SCTR ADDR FP207650 0650 D400 0D7B 767 | STO L BUFR2+1 SET SECTOR ADDR IN BUFFER FP207660 0652 4400 0702 768 | BSI L FTCH2 READ INTO 'BUFR2' FROM DISK FP207670 0654 CBE0 769 | LDD 3 BY900-X FETCH SPECS FOR THIS PHASE FP207680 0655 1090 770 | BE480 SLT 16 LOAD DISP IN CORE BUFFER FP207690 0656 83D4 771 | A 3 BX902-X INCR BY 2 FP207700 0657 8311 772 | A 3 BY950-X SET UP RLTV STORAGE LOC FP207710 0658 D00B 773 | STO BE520+1 *IN CORE BUFFER FP207720 0659 C306 774 | LD 3 BY939-X TEST FOR SCTR BREAK FP207730 065A 4C18 065F 775 | BSC L BE500,+- BR IF NO SCTR BREAK FP207740 065C 1810 776 | SRA 16 CLEAR NEW SCTR INDR FP207750 065D D306 777 | STO 3 BY939-X FP207760 065E 7102 778 | MDX 1 2 FETCH 3RD DATA WORD INSTEAD FP207770 065F C10A 779 | BE500 LD 1 10 NO SCTR ADDR IN THIS RECORD FP207780 0660 7200 780 | MDX 2 0 SKIP IF XR2 IS ZERO FP207790 0661 7001 781 | MDX BE520 *ELSE STORE A WORD FP207800 0662 7007 782 | MDX BE540 BR TO READ NEXT RECORD FP207810 0663 D400 0000 783 | BE520 STO L *-* DATA WORD TO DISK BUFFER FP207820 0665 C303 784 | LD 3 BY936-X INCR RLTV ADDR POINTER FP207830 0666 83D3 785 | A 3 BX901-X *BY ONE FP207840 0667 7101 786 | MDX 1 1 POINT TO NEXT WD OF RECORD FP207850 0668 72FF 787 | MDX 2 -1 SKIP AFTER LAST DATA WORD FP207860 0669 70C2 788 | MDX BE340 BR TO PROCESS NEXT DATA WD FP207870 066A 4C00 038F 789 | BE540 BSC L BB000 BR TO READ NEXT RECORD FP207880 790 | * FP207890 791 | * SYSTEM LOADER SKIPPING THIS PHASE FP207900 792 | * FP207910 066C C3D5 793 | BE560 LD 3 BX903-X SET FP207920 066D D308 794 | STO 3 BY941-X *BYPASS RECORDS INDR ON FP207930 066E 1810 795 | SRA 16 CLEAR FP207940 066F D306 796 | STO 3 BY939-X *SECTOR BREAK INDICATOR FP207950 0670 4C00 038F 797 | BSC L BB000 BRANCH TO READ NEXT RECORD FP207960 798 | * FP207970 799 | * WORK AREAS FP207980 800 | * FP207990 0672 0000 801 | BE900 DC *-* TO SET RLTV SCTR WD IN SCTR FP208000 802 | * FP208010 803 | *************************************************** FP208020 804 | * FP208030 805 | * PROCESS THE CHECKSUM FP208040 806 | * FP208050 0673 0000 807 | CKSUM DC 0 ENTRY/RETURN ADDRESS FP208060 0674 C400 04A1 808 | CK020 LD L PKBFR+1 FETCH WORD 2 FP208070 0676 4C98 0673 809 | BSC I CKSUM,+- RETURN IF NO CHECKSUM FP208080 0678 7401 0935 810 | MDX L BY944,1 INCREMENT THE SEQ NO. FP208090 067A 1000 811 | NOP AVOID POSSIBLE SKIP FP208100 067B 6236 812 | LDX 2 54 XR2 = NO. WORDS PER RECORD FP208110 067C C30B 813 | LD 3 BY944-X FETCH SEQUENCE NUMBER FP208120 067D 8600 049F 814 | CK040 A L2 PKBFR-1 ADD A WORD FP208130 067F 4802 815 | BSC C SKIP IF NO CARRY FP208140 0680 83D3 816 | A 3 BX901-X ADD ONE FP208150 0681 72FF 817 | MDX 2 -1 DECR WORD CNT, SKIP IF ZERO FP208160 0682 70FA 818 | MDX CK040 BRANCH TO ADD NEXT WORD FP208170 0683 93D3 819 | S 3 BX901-X TEST FOR AND FP208180 0684 4C98 0673 820 | BSC I CKSUM,+- *RETURN IF BLANK RECORD FP208190 0686 7007 821 | CK060 MDX CK080 'NOP' IF SEQUENCE ERROR FP208200 822 | * FP208210 0687 4400 079A 823 | BSI L ER001 BR TO PRINT ERROR MSG E 01 FP208220 0689 74FF 0935 824 | MDX L BY944,-1 DECREMENT SEQUENCE NUMBER FP208230 068B 1000 825 | NOP FP208240 068C 4C00 038F 826 | BSC L BB000 BRANCH TO READ NEXT RECORD FP208250 827 | * FP208260 068E F31E 828 | CK080 EOR 3 BY965-X COMPLIMENT AND FP208270 068F D30B 829 | STO 3 BY944-X *STORE CHECKSUM FP208280 0690 C31F 830 | LD 3 BY966-X CANCEL FP208290 0691 D0F4 831 | STO CK060 *RESET ABILITY FP208300 0692 70E1 832 | MDX CK020 BRANCH TO PROCESS AGAIN FP208310 END OF PROGRAM - 'F' RCRD PROCESSING 0693 0000 834 | BF000 DC 0 ENTRY FP208330 0694 6C00 0924 835 | STX L0 BY928 SET TYPE F INDR ON FP208340 0696 C3FD 836 | LD 3 BY931-X TEST SWITCH FOR LAST PH FP208350 0697 4418 06B3 837 | BSI L BF100,+- ZERO CONDITION IS ON FP208360 0699 C3F7 838 | LD 3 BY925-X TEST NOW SKIPPING INDICATOR FP208370 069A EB08 839 | OR 3 BY941-X *OR FLUSH THIS PHASE INDR FP208380 069B 4C20 038F 840 | BSC L BB000,Z BR TO READ NEXT RCD IF ON FP208390 069D C3FF 841 | LD 3 BY933-X VERIFY THAT 'F' FOLLOWS 'A' FP208400 069E 4418 07A9 842 | BSI L ER003,+- BR IF IT DOES NOT FP208410 06A0 1810 843 | SRA 16 FP208420 06A1 D3FF 844 | STO 3 BY933-X SET TYPE 'A' INDR OFF FP208430 06A2 D32C 845 | STO 3 BY981-X IND NO PROG DATA TO WRITE FP208440 06A3 4400 0764 846 | BSI L WRIT2 WRITE PROGRAM DATA TO DISK FP208450 06A5 6680 09BB 847 | LDX I2 C1020+1 RESTORE XR2 POINTER TO SLET FP208460 06A7 C3F2 848 | LD 3 BY919-X FINISH THIS SLET SET FP208470 06A8 83D3 849 | A 3 BX901-X *IN CASE THIS SHOULD FP208480 06A9 D2FE 850 | STO 2 -2 *BE THE LAST OR ONLY FP208490 06AA D328 851 | STO 3 BY977-X SAVE FOR SHRINK TEST 2-4 FP208500 06AB C3EE 852 | LD 3 BY915-X *PHASE LOADED FP208510 06AC D2FF 853 | STO 2 -1 FP208520 06AD 4400 078F 854 | BSI L WRIT3 WRITE SLET SECTOR TO DISK FP208530 06AF 1810 855 | SRA 16 FP208540 06B0 D3F2 856 | STO 3 BY919-X RESET WORD COUNT EACH PHASE FP208550 06B1 4C00 0539 857 | BSC L BD090 BR TO CHECK FOR GAP 2-4 FP208560 858 | * FP208570 859 | *************************************************** FP208580 860 | * FP208590 861 | * IF THE 2501 IS THE CARD READER WHEN THE 'F' CARD FP208600 862 | * IS ENCOUNTERED THE '81' CARD IS IN THE SECOND FP208610 863 | * BUFFER. THEREFORE A READ IS UNNECCESSARY. FP208620 864 | * FP208630 06B3 0000 865 | BF100 DC 0 ENTRY/RETURN ADDRESS FP208640 06B4 C0FF 866 | LD *-1 *PHASE. INDICATE PRESENT. FP208650 06B5 D3FE 867 | STO 3 BY932-X TEST FOR 2501 READER FP208660 06B6 D339 868 | STO 3 BZ909-X STOP DOUBLE BFR IF 2501 FP208670 06B7 7400 0013 869 | MDX L $IBSY,0 ENSURE THAT '81' RECORD FP208680 06B9 70FD 870 | MDX *-3 *READ IS COMPLETED FP208690 06BA 4C80 06B3 871 | BSC I BF100 CONTINUE FP208700 END OF SYSTEM DECK - PROCESS '81' RCD 06BC 0000 873 | BG000 DC 0 ENTRY/RETURN ADDRESS FP208720 06BD C3FA 874 | LD 3 BY928-X IF 'F' RECORD WAS MISSING FP208730 06BE 4418 07A9 875 | BSI L ER003,+- *DISPLAY OUT OF SEQ ERROR FP208740 06C0 D339 876 | STO 3 BZ909-X NO 2501 DOUBLE BFR WHEN ON FP208750 06C1 C301 877 | LD 3 BY934-X IF RELOAD, BRANCH TO FP208760 06C2 4C10 06CC 878 | BSC L BG060,- *TEST ADD PROGRAM INDICATOR FP208770 06C4 C3FD 879 | LD 3 BY931-X TEST FOR LAST REQ PH DONE FP208780 06C5 4420 07D8 880 | BSI L ER024,Z ERROR IF ANY PH MISSING FP208790 881 | * FP208800 882 | * WHEN 'ER024' RETURNS, PRETEND NOTHING IS MISSING FP208810 883 | * FP208820 884 | * SET UP TO FETCH OVERLAY 2 FP208830 885 | * FP208840 06C7 C319 886 | BG040 LD 3 BY960-X FETCH SECTOR ADDRESS OF, FP208850 06C8 6600 09B9 887 | LDX L2 C2000 *ENTRY POINT TO FP208860 06CA 4400 06E4 888 | BSI L BH000 *AND BR TO FETCH OVERLAY 2 FP208870 889 | * FP208880 06CC C338 890 | BG060 LD 3 BZ908-X TEST ADD PROGRAM SWITCH FP208890 06CD 4C18 06C7 891 | BSC L BG040,+- BRANCH IF OFF FP208900 06CF C400 023F 892 | LD L LPHID TEST IF ALL PHASES IN 2-9 FP208910 06D1 93EA 893 | S 3 BY911-X FP208920 06D2 4430 07D8 894 | BSI L ER024,-Z ERROR IF PHASE MISSING 2-9 FP208930 895 | * FP208940 896 | * CALCULATE NEW LET ADDRESS FP208950 897 | * FP208960 06D4 C304 898 | LD 3 BY937-X FETCH LAST SCTR ADDR USED FP208970 06D5 1803 899 | SRA 3 DECR TO LAST CYLINDER ADDR FP208980 06D6 1003 900 | SLA 3 ADD 1 CYL MORE, AND 1 CYL FP208990 06D7 83DB 901 | A 3 BX910-X *FOR CUSHION, 1 FOR SCRA, FP209000 06D8 D333 902 | STO 3 BZ903-X *AND 2 FOR CIB. 40 SCTRS. FP209010 06D9 D3F1 903 | STO 3 BY918-X SAVE ALSO AS 'TO' ADDR 2-4 FP209020 06DA C318 904 | LD 3 BY958-X CALCULATE 2-4 FP209030 06DB 9400 0204 905 | S L SHIFT *'FROM' 2-4 FP209040 06DD D3F0 906 | STO 3 BY917-X *ADDR 2-4 FP209050 06DE C400 0204 907 | LD L SHIFT SET SECTORS TO SHIFT 2-4 FP209060 06E0 D329 908 | STO 3 BY978-X *COUNT 2-4 FP209070 06E1 4400 0A5E 909 | BSI L C0300 GO SHIFT LET/UA LEFT 2-4 FP209080 06E3 70E3 910 | MDX BG040 SETUP PRINC DEVICE ENTRIES FP209090 FETCH AND BRANCH TO OVERLAYS 06E4 0000 912 | BH000 DC 0 ENTRY FP209110 06E5 6A0C 913 | STX 2 BH020 STORE OVERLAY ENTRY ADDRESS FP209120 06E6 D400 09B7 914 | STO L OVLAY+1 STORE OVERLAY SCTR ADDRESS FP209130 06E8 C00D 915 | LD BH902 FETCH AND FP209140 06E9 D400 09B6 916 | STO L OVLAY *STORE OVERLAY WORD COUNT FP209150 06EB C808 917 | LDD BH900 FETCH FUNC CODE/I/O AR ADDR FP209160 06EC 4400 00F2 918 | BSI L DZ000 BRANCH TO FETCH OVERLAY FP209170 06EE 7400 00EE 919 | BH010 MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE FP209180 06F0 70FD 920 | MDX BH010 BR TO TEST READ COMPLETE FP209190 06F1 4C00 0000 921 | BSC L *-* BRANCH TO THE OVERLAY FP209200 06F2 922 | BH020 EQU *-1 ADDRESS OF OVERLAY ENTRY FP209210 923 | * FP209220 924 | * CONSTANTS AND WORK AREAS FP209230 925 | * FP209240 06F4 926 | BSS E 0 FORCE NEXT LOC TO BE EVEN FP209250 06F4 0000 927 | BH900 DC /0000 READ FUNCTION CODE FP209260 06F5 09B6 928 | DC OVLAY ADDRESS OF OVERLAY I/O AREA FP209270 06F6 0280 929 | BH902 DC 2*@SCNT WORD COUNT OF OVERLAYS FP209280 MISCELLANEOUS SUBROUTINES 931 | *************************************************** FP209300 932 | * FP209310 933 | * SET INDICATORS TO BYPASS PHASE FP209320 934 | * FP209330 06F7 0000 935 | BYPAS DC 0 ENTRY FP209340 06F8 C3D3 936 | LD 3 BX901-X SET FP209350 06F9 D308 937 | STO 3 BY941-X *BYPASS PHASES INDICATOR ON FP209360 06FA 1810 938 | SRA 16 CLEAR FP209370 06FB D306 939 | STO 3 BY939-X *FIRST DATA RECORD INDR FP209380 06FC D32C 940 | STO 3 BY981-X IND NO PROG DATA TO STORE FP209390 06FD D32D 941 | STO 3 BY982-X IND NO SLET TO FINISH FP209400 06FE C32E 942 | LD 3 BY983-X REDUCE HIGHEST SCTR ADDR FP209410 06FF D304 943 | STO 3 BY937-X *WRITTEN TO PREV VALUE FP209420 0700 4C00 038F 944 | BSC L BB000 BRANCH TO READ NEXT RECORD FP209430 945 | * FP209440 946 | *************************************************** FP209450 947 | * FP209460 948 | * READ A SECTOR FROM DISK. FP209470 949 | * FP209480 0702 0000 950 | FTCH2 DC 0 ENTRY/RETURN ADDRESS FP209490 0703 C808 951 | LDD F2900 FETCH FUNC CODE, I/O ADDR FP209500 0704 4400 00F2 952 | BSI L DZ000 BRANCH TO READ A SECTOR FP209510 0706 7400 00EE 953 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE FP209520 0708 70FD 954 | MDX *-3 BR TO TEST READ COMPLETE FP209530 0709 4C80 0702 955 | BSC I FTCH2 RETURN FP209540 956 | * FP209550 957 | * CONSTANTS AND WORK AREAS FP209560 958 | * FP209570 070C 959 | BSS E 0 FORCE NEXT LOC TO BE EVEN FP209580 070C 0000 960 | F2900 DC /0000 READ FUNCTION CODE FP209590 070D 0D7A 961 | DC BUFR2 ADDRESS OF I/O AREA FP209600 962 | * FP209610 963 | *************************************************** FP209620 964 | * FP209630 965 | * READ A SECTOR OF SLET. FP209640 966 | * FP209650 070E 0000 967 | FTCH3 DC 0 ENTRY/RETURN ADDRESS FP209660 070F C808 968 | LDD F3900 FETCH FUNC CODE, I/O ADDR FP209670 0710 4400 00F2 969 | BSI L DZ000 BRANCH TO READ A SECTOR FP209680 0712 7400 00EE 970 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE FP209690 0714 70FD 971 | MDX *-3 BR TO TEST READ COMPLETE FP209700 0715 4C80 070E 972 | BSC I FTCH3 RETURN FP209710 973 | * FP209720 974 | * CONSTANTS AND WORK AREAS FP209730 975 | * FP209740 0718 976 | BSS E 0 FORCE NEXT LOC TO BE EVEN FP209750 0718 0000 977 | F3900 DC /0000 READ FUNCTION CODE FP209760 0719 0EBE 978 | DC BUFR3 ADDRESS OF SLET I/O AREA FP209770 979 | * FP209780 980 | *************************************************** FP209790 981 | * FP209800 982 | * DETERMINE IF RECORD IS // XEQ MODIF OR SCTR BREAK FP209810 983 | * FP209820 071A 0000 984 | MODIF DC 0 ENTRY FP209830 071B C400 09B8 985 | LD L OVLAY+2 FETCH OVERLAY INDICATOR FP209840 071D 93D5 986 | S 3 BX903-X TEST FOR AND BRANCH FP209850 071E 4418 0A13 987 | BSI L C3060,+- *IF BEYOND TYPE '81' RECORD FP209860 0720 4400 04F4 988 | BSI L BD000 BR TO PROCESS SCTR BRK RCD FP209870 989 | * FP209880 990 | *************************************************** FP209890 991 | * FP209900 992 | * SLET SEARCH SUBROUTINE. FP209910 993 | * FP209920 0722 0000 994 | SSLET DC 0 ENTRY/RETURN ADDRESS FP209930 0723 D01C 995 | STO SS900 SAVE PHASE ID TO SEARCH FOR FP209940 0724 6918 996 | STX 1 SS080+1 SAVE XR1 FP209950 0725 C315 997 | LD 3 BY955-X STORE FIRST FP209960 0726 D400 0EBF 998 | STO L BUFR3+1 *SLET SCTR ADDR TO BUFFER FP209970 0728 40E5 999 | SS020 BSI FTCH3 BR TO FETCH A SLET SECTOR FP209980 0729 6680 0916 1000 | LDX I2 BY913 XR2 POINT TO FIRST SLET SET FP209990 072B 6150 1001 | LDX 1 80 XR1 INDICATES SETS PER SCTR FP210000 072C C013 1002 | SS040 LD SS900 FETCH THE PHASE ID FP210010 072D 9200 1003 | S 2 0 TEST FOR AND BRANCH FP210020 072E 4C18 073B 1004 | BSC L SS060,+- *IF MATCH FOUND IN SLET FP210030 0730 7204 1005 | MDX 2 4 INCREMENT SLET SET POINTER FP210040 0731 71FF 1006 | MDX 1 -1 DECR SET CNT, SKIP IF ZERO FP210050 0732 70F9 1007 | MDX SS040 BRANCH TO TEST NEXT SET FP210060 0733 C400 0EBF 1008 | LD L BUFR3+1 FETCH SLET SECTOR ADDRESS FP210070 0735 9316 1009 | S 3 BY956-X TEST FOR AND BRANCH IF LAST FP210080 0736 4C18 073C 1010 | BSC L SS080,+- *SLET SCTR (RET PH ID = 0) FP210090 0738 7401 0EBF 1011 | MDX L BUFR3+1,1 INCR SLET SECTOR ADDRESS FP210100 073A 70ED 1012 | MDX SS020 BR TO FETCH NEXT SLET SCTR FP210110 073B C004 1013 | SS060 LD SS900 FETCH FOUND PHASE ID FP210120 073C 6500 0000 1014 | SS080 LDX L1 *-* RESTORE XR1 FP210130 073E 4C80 0722 1015 | BSC I SSLET RETURN FP210140 1016 | * FP210150 1017 | * CONSTANTS AND WORK AREAS FP210160 1018 | * FP210170 0740 0000 1019 | SS900 DC *-* PHASE ID BEING LOOKED FOR FP210180 1020 | * FP210190 1021 | *************************************************** FP210200 1022 | * FP210210 1023 | * UPDATE CORE ADDRESS OF PHASE AND STORE IN SLET. FP210220 1024 | * FP210230 0741 0000 1025 | UPCAD DC 0 ENTRY/RETURN ADDRESS FP210240 0742 C3EA 1026 | LD 3 BY911-X FETCH ID OF CURRENT PHASE FP210250 0743 D200 1027 | STO 2 0 *AND STORE TO SLET FP210260 0744 C400 04A0 1028 | LD L PKBFR FETCH ADDR OF CURR PROGRAM FP210270 0746 D201 1029 | STO 2 1 *AND STORE TO SLET FP210280 0747 6A0F 1030 | STX 2 UP900 SAVE XR2 FP210290 0748 C00E 1031 | LD UP900 FETCH SLET POINTER FP210300 0749 93ED 1032 | S 3 BY914-X TEST FOR AND FP210310 074A 4C20 074E 1033 | BSC L UP040,Z *BRANCH IF NOT LAST SET FP210320 074C 6C00 091D 1034 | STX L0 BY920 SET SLET UPDATE INDR ON FP210330 074E 7204 1035 | UP040 MDX 2 4 INCR TO NEXT SLET SET FP210340 074F 6E00 09BB 1036 | STX L2 C1020+1 STORE NEW SLET SET POINTER FP210350 0751 6500 049F 1037 | LDX L1 PKBFR-1 XR1 POINTS TO RECORD BUFFER FP210360 0753 6C00 0957 1038 | STX L0 BY982 IND SLET ENTRY TO FINISH FP210370 0755 4C80 0741 1039 | BSC I UPCAD RETURN FP210380 1040 | * FP210390 0757 0000 1041 | UP900 DC *-* TEMPORARY XR2 STORAGE FP210400 1042 | * FP210410 1043 | *************************************************** FP210420 1044 | * FP210430 1045 | * WRITE RELOAD TABLE TO DISK. FP210440 1046 | * FP210450 0758 0000 1047 | WRIT1 DC 0 ENTRY/RETURN ADDRESS FP210460 0759 C808 1048 | LDD W1900 FETCH FUNC CODE, I/O ADDR FP210470 075A 4400 00F2 1049 | BSI L DZ000 BR TO WRITE RELOAD TABLE FP210480 075C 7400 00EE 1050 | W1040 MDX L $DBSY,0 SKIP IF WRITE COMPLETE FP210490 075E 70FD 1051 | MDX W1040 BR TO TEST WRITE COMPLETE FP210500 075F 4C80 0758 1052 | BSC I WRIT1 RETURN FP210510 1053 | * FP210520 1054 | * CONSTANTS AND WORK AREAS. FP210530 1055 | * FP210540 0762 1056 | BSS E 0 FORCE NEXT LOC TO BE EVEN FP210550 0762 0001 1057 | W1900 DC /0001 WRITE FUNCTION CODE FP210560 0763 0C38 1058 | DC BUFR1 ADDRESS OF RELOAD TABLE BFR FP210570 1059 | * FP210580 1060 | *************************************************** FP210590 1061 | * FP210600 1062 | * WRITE A SECTOR TO THE DISK. FP210610 1063 | * FP210620 0764 0000 1064 | WRIT2 DC 0 ENTRY/RETURN ADDRESS FP210630 0765 C400 0D7B 1065 | LD L BUFR2+1 FETCH SECTOR ADDRESS FP210640 0767 F400 0EBC 1066 | EOR L B2END TEST FOR AND FP210650 0769 4C98 0764 1067 | BSC I WRIT2,+- *RETURN IF NOT SET FP210660 076B C022 1068 | LD W2902 FETCH '81' RECORD INDR FP210670 076C 4C18 0776 1069 | BSC L W2100,+- BRANCH IF NOT SET FP210680 076E C81D 1070 | W2040 LDD W2900 FETCH FUNC CODE, I/O ADDR FP210690 076F 4400 00F2 1071 | BSI L DZ000 BRANCH TO WRITE A SECTOR FP210700 0771 7400 00EE 1072 | MDX L $DBSY,0 SPIP NEXT IF WRITE COMPLETE FP210710 0773 70FD 1073 | MDX *-3 BR TO TEST WRITE COMPLETE FP210720 0774 4C80 0764 1074 | BSC I WRIT2 RETURN FP210730 1075 | * FP210740 1076 | * SAVE ADDRESS OF HIGHEST SECTOR TO WHICH A FP210750 1077 | * PROGRAM WAS LOADED. FP210760 1078 | * FP210770 0776 C304 1079 | W2100 LD 3 BY937-X FETCH PREVIOUS HIGH SECTOR FP210780 0777 9400 0D7B 1080 | S L BUFR2+1 TEST FOR AND FP210790 0779 4C10 077E 1081 | BSC L W2140,- *BRANCH IF GT THIS SECTOR FP210800 077B C400 0D7B 1082 | LD L BUFR2+1 RESET FP210810 077D D304 1083 | STO 3 BY937-X *HIGH SECTOR ADDRESS FP210820 077E C301 1084 | W2140 LD 3 BY934-X FETCH LOAD MODE INDICATOR FP210830 077F 4C28 076E 1085 | BSC L W2040,+Z BRANCH IF AN INITIAL LOAD FP210840 0781 C338 1086 | LD 3 BZ908-X TEST FOR AND FP210850 0782 4C20 076E 1087 | BSC L W2040,Z *BRANCH IF PROGRAM(S) ADDED FP210860 0784 C302 1088 | LD 3 BY935-X FETCH SECTOR ADDRESS OF CIB FP210870 0785 93D9 1089 | S 3 BX908-X TEST FOR FP210880 0786 9400 0D7B 1090 | S L BUFR2+1 *AND BRANCH IF FP210890 0788 4C30 076E 1091 | BSC L W2040,Z- *NO ATTEMPT TO OVERLAY SCRA FP210900 078A 4400 07CA 1092 | BSI L ER022 BR TO PRINT ERROR MSG E 22 FP210910 1093 | * FP210920 1094 | * CONSTANTS AND WORK AREAS FP210930 1095 | * FP210940 078C 1096 | BSS E 0 FORCE NEXT LOC TO BE EVEN FP210950 078C 0001 1097 | W2900 DC /0001 WRITE FUNCTION CODE FP210960 078D 0D7A 1098 | DC BUFR2 ADDRESS OF I/O BUFFER FP210970 078E 0000 1099 | W2902 DC *-* '81' RECORD READ INDICATOR FP210980 1100 | * FP210990 1101 | *************************************************** FP211000 1102 | * FP211010 1103 | * WRITE A SLET SECTOR. FP211020 1104 | * FP211030 078F 0000 1105 | WRIT3 DC 0 ENTRY/RETURN ADDRESS FP211040 0790 C807 1106 | LDD W3900 FETCH FUNC CODE, I/O ADDR FP211050 0791 4400 00F2 1107 | BSI L DZ000 BRANCH TO WRITE A SLET SCTR FP211060 0793 7400 00EE 1108 | MDX L $DBSY,0 SKIP NEXT IF WRITE COMPLETE FP211070 0795 70FD 1109 | MDX *-3 BR TO TEST WRITE COMPLETE FP211080 0796 4C80 078F 1110 | BSC I WRIT3 RETURN FP211090 1111 | * FP211100 1112 | * CONSTANTS AND WORK AREAS FP211110 1113 | * FP211120 0798 1114 | BSS E 0 FORCE NEXT LOC TO BE EVEN FP211130 0798 0001 1115 | W3900 DC /0001 WRITE FUNCTION CODE FP211140 0799 0EBE 1116 | DC BUFR3 ADDRESS OF SLET I/O AREA FP211150 PRINT ERROR MESSAGES 079A 0000 1118 | ER001 DC 0 ENTRY/RETURN ADDRESS FP211170 079B 6500 024C 1119 | LDX L1 MSG01+1 POINT TO ERROR MESSAGE E 01 FP211180 079D 6680 024B 1120 | LDX I2 MSG01 FETCH WORD CNT OF MSG E 01 FP211190 079F 4400 08F3 1121 | BSI L CNPTR PRINT THE MESSAGE FP211200 07A1 4C80 079A 1122 | BSC I ER001 RETURN FP211210 1123 | * FP211220 07A3 0000 1124 | ER002 DC 0 ENTRY/RETURN ADDRESS FP211230 07A4 6500 0258 1125 | LDX L1 MSG02+1 POINT TO ERROR MESSAGE E 02 FP211240 07A6 6680 0257 1126 | LDX I2 MSG02 FETCH WORD CNT OF MSG E 02 FP211250 07A8 701D 1127 | MDX ER100 BRANCH TO PRINT MESSAGE FP211260 1128 | * FP211270 07A9 0000 1129 | ER003 DC 0 ENTRY/RETURN ADDRESS FP211280 07AA 6500 0268 1130 | LDX L1 MSG03+1 POINT TO ERROR MESSAGE E 03 FP211290 07AC 6680 0267 1131 | LDX I2 MSG03 FETCH WORD CNT OF MSG E 03 FP211300 07AE 7017 1132 | MDX ER100 BRANCH TO PRINT MESSAGE FP211310 1133 | * FP211320 07AF 0000 1134 | ER004 DC 0 ENTRY/RETURN ADDRESS FP211330 07B0 6500 027B 1135 | LDX L1 MSG04+1 POINT TO ERROR MESSAGE E 04 FP211340 07B2 6680 027A 1136 | LDX I2 MSG04 FETCH WORD CNT OF MSG E 04 FP211350 07B4 7011 1137 | MDX ER100 BRANCH TO PRINT MESSAGE FP211360 1138 | * FP211370 07B5 0000 1139 | ER005 DC 0 ENTRY/RETURN ADDRESS FP211380 07B6 6500 0286 1140 | LDX L1 MSG05+1 POINT TO ERROR MESSAGE E 05 FP211390 07B8 6680 0285 1141 | LDX I2 MSG05 FETCH WORD CNT OF MSG E 05 FP211400 07BA 7074 1142 | MDX ER620 PRINT ABORT MESSAGE FP211410 1143 | * FP211420 07BB 0000 1144 | ER020 DC 0 ENTRY/RETURN ADDRESS FP211430 07BC 6500 083C 1145 | LDX L1 MSG20+1 POINT TO ERROR MESSAGE E 20 FP211440 07BE 6680 083B 1146 | LDX I2 MSG20 FETCH WORD CNT OF MSG E 20 FP211450 07C0 7044 1147 | MDX ER600 BRANCH TO PRINT THE MESSAGE FP211460 1148 | * FP211470 07C1 0000 1149 | ER021 DC 0 ENTRY/RETURN ADDRESS FP211480 07C2 6500 084A 1150 | LDX L1 MSG21+1 POINT TO ERROR MESSAGE E 21 FP211490 07C4 6680 0849 1151 | LDX I2 MSG21 FETCH WORD CNT OF MSG E 21 FP211500 07C6 4400 08F3 1152 | ER100 BSI L CNPTR PRINT THE MESSAGE FP211510 07C8 4C00 038F 1153 | BSC L BB000 BRANCH TO READ NEXT RECORD FP211520 1154 | * FP211530 07CA 0000 1155 | ER022 DC 0 ENTRY/RETURN ADDRESS FP211540 07CB 6500 0857 1156 | LDX L1 MSG22+1 POINT TO ERROR MESSAGE E 22 FP211550 07CD 6680 0856 1157 | LDX I2 MSG22 FETCH WORD CNT OF MSG E 22 FP211560 07CF 7035 1158 | MDX ER600 BRANCH TO PRINT MESSAGE FP211570 1159 | * FP211580 07D0 0000 1160 | ER023 DC 0 ENTRY/RETURN ADDRESS FP211590 07D1 6500 0865 1161 | LDX L1 MSG23+1 POINT TO ERROR MESSAGE E 23 FP211600 07D3 6680 0864 1162 | LDX I2 MSG23 FETCH WORD CNT OF MSG E 23 FP211610 07D5 C400 04AA 1163 | LD L PKBFR-1+11 FETCH PHASE ID FP211620 07D7 7012 1164 | MDX ER400 BRANCH TO STORE PHASE ID FP211630 1165 | * FP211640 07D8 0000 1166 | ER024 DC 0 ENTRY/RETURN ADDRESS FP211650 07D9 6500 0876 1167 | LDX L1 MSG24+1 POINT TO ERROR MESSAGE E 24 FP211660 07DB 6680 0875 1168 | LDX I2 MSG24 FETCH WORD CNT OF MSG E 24 FP211670 07DD C400 04AA 1169 | LD L PKBFR-1+11 FETCH PHASE ID FP211680 07DF D3E6 1170 | STO 3 BY906-X STORE PHASE ID FOR DISPLAY FP211690 07E0 4400 08F3 1171 | BSI L CNPTR PRINT THE MESSAGE FP211700 07E2 4C80 07D8 1172 | BSC I ER024 RETURN FP211710 1173 | * FP211720 07E4 0000 1174 | ER025 DC 0 ENTRY/RETURN ADDRESS FP211730 07E5 6500 0881 1175 | LDX L1 MSG25+1 POINT TO ERROR MESSAGE E 25 FP211740 07E7 6680 0880 1176 | LDX I2 MSG25 FETCH WORD CNT OF MSG E 25 FP211750 07E9 C3EA 1177 | ER300 LD 3 BY911-X FETCH PHASE ID FP211760 07EA D3E6 1178 | ER400 STO 3 BY906-X STORE PHASE ID FOR DISPLAY FP211770 07EB 4400 08F3 1179 | BSI L CNPTR PRINT THE MESSAGE FP211780 07ED 4400 06F7 1180 | BSI L BYPAS BRANCH TO BYPASS THE PHASE FP211790 1181 | * FP211800 07EF 0000 1182 | ER026 DC 0 ENTRY/RETURN ADDRESS FP211810 07F0 6909 1183 | STX 1 ER510+1 SAVE XR1 FP211820 07F1 6A0A 1184 | STX 2 ER520+1 SAVE XR2 FP211830 07F2 DBE6 1185 | STD 3 BY906-X STORE DISPLAY FP211840 07F3 6500 0894 1186 | LDX L1 MSG26+1 POINT TO ERROR MESSAGE E 26 FP211850 07F5 6680 0893 1187 | LDX I2 MSG26 FETCH WORD CNT OF MSG E 26 FP211860 07F7 4400 08F3 1188 | BSI L CNPTR PRINT THE MESSAGE FP211870 07F9 6500 0000 1189 | ER510 LDX L1 *-* RESTORE XR1 FP211880 07FB 6600 0000 1190 | ER520 LDX L2 *-* RESTORE XR2 FP211890 07FD 4C80 07EF 1191 | BSC I ER026 RETURN FP211900 1192 | * FP211910 07FF 0000 1193 | ER027 DC 0 ENTRY/RETURN ADDRESS FP211920 0800 6500 08A3 1194 | LDX L1 MSG27+1 POINT TO ERROR MESSAGE E 27 FP211930 0802 6680 08A2 1195 | LDX I2 MSG27 FETCH WORD CNT OF MSG E 27 FP211940 0804 702A 1196 | MDX ER620 PRINT ABORT MESSAGE FP211950 1197 | * FP211960 0805 4400 08F3 1198 | ER600 BSI L CNPTR PRINT THE MESSAGE FP211970 0807 1000 1199 | NOP A WAIT MAY BE PATCHED HERE FP211980 0808 6C00 0963 1200 | ER610 STX L0 BZ909 STOP DOUBLE CARD BUFFERING FP211990 080A 4C00 06C7 1201 | BSC L BG040 BRANCH TO FETCH OVERLAY 2 FP212000 1202 | * FP212010 080C 0000 1203 | ER028 DC 0 ENTRY/RETURN ADDRESS FP212020 080D 6500 08AF 1204 | LDX L1 MSG28+1 POINT TO ERROR MESSAGE E 28 FP212030 080F 6680 08AE 1205 | LDX I2 MSG28 FETCH WORD CNT OF MSG E 28 FP212040 0811 70D7 1206 | MDX ER300 BRANCH TO FETCH DISPLAY FP212050 1207 | * FP212060 0812 0000 1208 | ER029 DC 0 ENTRY/RETURN ADDRESS FP212070 0813 6500 08B8 1209 | LDX L1 MSG29+1 POINT TO ERROR MESSAGE E 29 FP212080 0815 6680 08B7 1210 | LDX I2 MSG29 FETCH WORD CNT OF MSG E 29 FP212090 0817 70D1 1211 | MDX ER300 BRANCH TO DISPLAY PHASE ID FP212100 1212 | * FP212110 0818 0000 1213 | ER030 DC 0 ENTRY FP212120 0819 6500 08C6 1214 | LDX L1 MSG30+1 POINT TO ERROR MESSAGE E 30 FP212130 081B 6680 08C5 1215 | LDX I2 MSG30 FETCH WORD CNT OF MSG E 30 FP212140 081D 70CB 1216 | MDX ER300 BRANCH TO PRINT MESSAGE FP212150 1217 | * FP212160 081E 0000 1218 | ER130 DC 0 ENTRY FP212170 081F 6500 08C6 1219 | LDX L1 MSG30+1 POINT TO ERROR MESSAGE E 30 FP212180 0821 6680 08C5 1220 | LDX I2 MSG30 FETCH WORD CNT OF MSG E 30 FP212190 0823 700B 1221 | MDX ER620 PRINT ABORT MESSAGE FP212200 1222 | * FP212210 0824 0000 1223 | ER031 DC 0 ENTRY FP212220 0825 6500 08D3 1224 | LDX L1 MSG31+1 POINT TO ERROR MESSAGE E 31 FP212230 0827 6680 08D2 1225 | LDX I2 MSG31 FETCH WORD CNT OF MSG E 31 FP212240 0829 7005 1226 | MDX ER620 PRINT ABORT MESSAGE FP212250 1227 | * FP212260 1228 | * FP212270 082A 0000 1229 | ER032 DC 0 ENTRY FP212280 082B 6500 08E3 1230 | LDX L1 MSG32+1 POINT TO ERROR MSG E 32 FP212290 082D 6680 08E2 1231 | LDX I2 MSG32 FETCH WD CNT OF MSG E 32 FP212300 082F 6907 1232 | ER620 STX 1 ER660+1 SAVE XR1 FP212310 0830 6A08 1233 | STX 2 ER670+1 SAVE XR2 FP212320 0831 C400 0740 1234 | LD L SS900 LOAD MISSING PHASE ID FP212330 0833 D3E6 1235 | STO 3 BY906-X SAVE FOR ACCUM DISPLAY FP212340 0834 4400 08F3 1236 | ER640 BSI L CNPTR PRINT THE MESSAGE FP212350 0836 6500 0000 1237 | ER660 LDX L1 *-* RESTORE XR1 FOR REPRINT FP212360 0838 6600 0000 1238 | ER670 LDX L2 *-* RESTORE XR2 FOR REPRINT FP212370 083A 70F9 1239 | MDX ER640 NO RECOVERY, PRINT AGAIN FP212380 1240 | * FP212390 1241 | * ERROR MESSAGES FP212400 1242 | * FP212410 083B 000D 1243 | MSG20 DC MSG21-* WORD COUNT OF MESSAGE E 20 FP212420 083C 8134 21D8 C421 1020 1244 | DMES 'RE 20 FIXED AREA PRESENT'R'E FP212430 9434 3021 3C60 343C | 2154 6034 9834 749C | 8121 | 0849 000C 1245 | MSG21 DC MSG22-* WORD COUNT OF MESSAGE E 21 FP212440 084A 8134 21D8 FC21 98A4 1246 | DMES 'RE 21 SYSTEM DECK ERROR'R'E FP212450 989C 3470 2130 341C | 5821 3460 6050 6081 | 0856 000D 1247 | MSG22 DC MSG23-* WORD COUNT OF MESSAGE E 22 FP212460 0857 8134 21D8 D821 981C 1248 | DMES 'RE 22 SCRA OVERLAY - STOP'R'E FP212470 603C 2150 B434 605C | 3CA4 2184 2198 9C50 | 5481 | 0864 0010 1249 | MSG23 DC MSG24-* WORD COUNT OF MESSAGE E 23 FP212480 0865 8134 21D8 DC21 5424 1250 | DMES 'RE 23 PHASE ID OUT OF SEQUENCE'R'E FP212490 3C98 3421 2030 2150 | B09C 2150 1021 9834 | 64B0 3474 1C34 8121 | 0875 000A 1251 | MSG24 DC MSG25-* WORD COUNT OF MESSAGE E 24 FP212500 0876 8134 21D8 F021 5424 1252 | DMES 'RE 24 PHASE MISSING'R'E FP212510 3C98 3421 7020 9898 | 2074 1481 | 0880 0012 1253 | MSG25 DC MSG26-* WORD COUNT OF MESSAGE E 25 FP212520 0881 8134 21D8 F421 5424 1254 | DMES 'RE 25 PHASE ID NOT IN PHID RECORD 'R FP212530 3C98 3421 2030 2174 | 509C 2120 7421 5424 | 2030 2160 341C 5060 | 3021 8121 | 0893 000E 1255 | MSG26 DC MSG27-* WORD COUNT OF MESSAGE E 26 FP212540 0894 8134 21D8 D021 5424 1256 | DMES 'RE 26 PHASE ID NOT IN SLET'R'E FP212550 3C98 3421 2030 2174 | 509C 2120 7421 985C | 349C 8121 | 08A2 000B 1257 | MSG27 DC MSG28-* WORD COUNT OF MESSAGE E 27 FP212560 08A3 8134 21D8 D421 3034 1258 | DMES 'RE 27 DEFECTIVE SLET'R'E FP212570 1034 1C9C 20B4 3421 | 985C 349C 8121 | 08AE 0008 1259 | MSG28 DC MSG29-* WORD COUNT OF MESSAGE E 28 FP212580 08AF 8134 21D8 E421 985C 1260 | DMES 'RE 28 SLET FULL'R'E FP212590 349C 2110 B05C 5C81 | 08B7 000D 1261 | MSG29 DC MSG30-* WORD COUNT OF MESSAGE E 29 FP212600 08B8 8134 21D8 E021 5460 1262 | DMES 'RE 29 PROGRAM NOT PRESENT'R'E FP212610 5014 603C 7021 7450 | 9C21 5460 3498 3474 | 9C81 | 08C5 000C 1263 | MSG30 DC MSG31-* WORD COUNT OF MESSAGE E 30 FP212620 08C6 8134 21DC C421 6034 1264 | DMES 'RE 30 RELOAD TABLE FULL'R'E FP212630 5C50 3C30 219C 3C18 | 5C34 2110 B05C 5C81 | 08D2 000F 1265 | MSG31 DC MSG32-* WORD COUNT OF MESSAGE E 31 FP212640 08D3 8134 21DC FC21 7020 1266 | DMES 'RE 31 MISSING PHASE ID DUE TO' FP212650 9898 2074 1421 5424 | 3C98 3421 2030 2130 | B034 219C | 08E1 5021 1267 | DMES DEFECTIVE SLET OR RELOAD TABLE'R'E FP212660 08E2 0010 1268 | MSG32 DC MSG33-* WORD COUNT OF MESSAGE E 32 FP212670 08E3 8134 21DC D821 7020 1269 | DMES 'RE 32 MISSING SYSTEM I/O PHASE'R'E FP212680 9898 2074 1421 98A4 | 989C 3470 2120 BC50 | 2154 243C 9834 8121 | 08F3 1270 | MSG33 BSS 0 FP212690 1271 | * FP212700 1272 | * PRINT TO THE CONSOLE PRINTER AND WAIT. FP212710 1273 | * FP212720 08F3 0000 1274 | CNPTR DC 0 ENTRY/RETURN ADDRESS FP212730 08F4 4400 029D 1275 | BSI L WRTYZ BR TO CONSOLE PRINTER SUBR FP212740 08F6 CBE6 1276 | LDD 3 BY906-X FETCH ACC, EXT TO DISPLAY FP212750 08F7 4400 0028 1277 | BSI L $PRET BRANCH TO PRE-OP TRAP FP212760 08F9 10A0 1278 | SLT 32 CLEAR FP212770 08FA DBE6 1279 | STD 3 BY906-X *DISPLAY WORDS FP212780 08FB 4C80 08F3 1280 | BSC I CNPTR RETURN FP212790 PHASE 2 CONSTANTS AND WORK AREAS 08FD 0001 1282 | BX901 DC 1 CONSTANT ONE FP212810 08FE 0002 1283 | BX902 DC 2 CONSTANT TWO FP212820 08FF 0003 1284 | BX903 DC 3 CONSTANT THREE FP212830 0900 0004 1285 | BX904 DC 4 CONSTANT FOUR FP212840 0901 0005 1286 | BX905 DC 5 CONSTANT FIVE FP212850 0902 0006 1287 | BX906 DC 6 CONSTANT SIX FP212860 0903 0008 1288 | BX908 DC 8 CONSTANT EIGHT FP212870 0904 0010 1289 | BX909 DC 16 NO. OF SCTRS IN 2 CYLINDERS FP212880 0905 0028 1290 | BX910 DC 40 NO. OF SCTRS IN 5 CYLINDERS FP212890 0906 0072 1291 | BX912 DC /0072 USED TO DETERMINE RCD TYPE FP212900 0907 013F 1292 | BX913 DC @SCNT-1 NO. OF WORDS PER SECTOR - 1 FP212910 0908 0140 1293 | BX914 DC @SCNT NO. OF WORDS PER SECTOR FP212920 0909 0999 1294 | BX915 DC /0999 CON FOR END OF SKIP TBL 2-3 FP212930 090A 1295 | BSS E 0 FORCE NEXT LOC TO BE EVEN FP212940 090A 0000 1296 | BY900 DC *-* USED TO DETERMINE SCTR ADDR FP212950 090B 0000 1297 | DC *-* *AND RLTV LOC OF DATA WORDS FP212960 090C 0000 1298 | BY902 DC *-* USED TO DETERMINE NO. OF FP212970 090D 0000 1299 | BY903 DC *-* *SECTORS A PHASE OCCUPIES FP212980 090E 0000 1300 | BY904 DC *-* CURRENT FP212990 090F 0000 1301 | BY905 DC *-* *PHASE ID LIMITS FP213000 0910 0000 1302 | BY906 DC *-* DISPLAY FP213010 0911 0000 1303 | DC *-* *WORDS FP213020 0912 0001 1304 | BY909 DC 1 FIRST PHASE ID OF A PAIR FP213030 0913 0008 1305 | BY910 DC 8 1ST SCTR ADDR OF NEW PHASE FP213040 0914 0000 1306 | BY911 DC *-* CURRENT PHASE ID FP213050 0915 0000 1307 | BY912 DC *-* PREVIOUS PHASE ID FP213060 0916 0EC0 1308 | BY913 DC BUFR3+2 ADDRESS OF FIRST SLET SET FP213070 0917 0FFC 1309 | BY914 DC BUFR3+2+316 ADDRESS OF LAST SLET SET FP213080 0918 0000 1310 | BY915 DC *-* 1ST SCTR ADDR OF EACH PHASE FP213090 0919 0000 1311 | BY916 DC *-* CURRENT SECTOR ADDRESS FP213100 091A 0000 1312 | BY917 DC *-* FROM ADDRESS FOR FETCH FP213110 091B 0000 1313 | BY918 DC *-* TO ADDRESS FOR STORE FP213120 091C 0000 1314 | BY919 DC *-* MAXIMUM WORD CNT PER PHASE FP213130 091D 0000 1315 | BY920 DC *-* SLET UPDATE INDICATOR FP213140 091E 0003 1316 | BY922 DC @RLTB-@SLET NO. OF SECTOR OF SLET FP213150 091F 0000 1317 | BY923 DC *-* HIGHEST SCTR USED BY SYS FP213160 0920 0000 1318 | BY924 DC *-* PHASE ID OF LAST SYS PROG FP213170 0921 0000 1319 | BY925 DC *-* BYPASSING PHASES INDICATOR FP213180 0922 0000 1320 | BY926 DC *-* PHASE ID TO BE BYPASSED FP213190 0923 0000 1321 | BY927 DC *-* SECTOR BREAK RECORD INDR FP213200 0924 0001 1322 | BY928 DC 1 TYPE 'F' RECORD INDICATOR FP213210 0925 0000 1323 | BY929 DC *-* 'CARD1' BUSY/PACKED INDR FP213220 0926 0000 1324 | BY930 DC *-* 'CARD2' BUSY/PACKED INDR FP213230 0927 0001 1325 | BY931 DC 1 LAST PHASE INDICATOR FP213240 0928 0000 1326 | BY932 DC *-* LAST TYPE 'F' RECORD INDR FP213250 0929 0000 1327 | BY933 DC *-* TYPE 'A' RECORD INDICATOR FP213260 092A 0000 1328 | X DC *-* FOR EMERGENCY USE FP213270 092B 0000 1329 | BY934 DC *-* LOAD MODE INDICATOR FP213280 092C 0333 1330 | BY935 DC /0333 SECTOR ADDRESS OF CIB FP213290 092D 0000 1331 | BY936 DC *-* CORE ADDR OF CURR DATA WORD FP213300 092E 0007 1332 | BY937 DC 7 HIGHEST SCTR ADDR WRITTEN FP213310 092F 0000 1333 | BY938 DC *-* SCTR ADDR OF SECTOR IN CORE FP213320 0930 0000 1334 | BY939 DC *-* FIRST DATA RECORD INDR FP213330 0931 0000 1335 | BY940 DC *-* CORE ADDRESS CORRECTION FP213340 0932 0000 1336 | BY941 DC *-* PHASE BYPASS INDICATOR FP213350 0933 0000 1337 | BY942 DC 0 END OF PROGRAM INDICATOR FP213360 0934 0000 1338 | BY943 DC 0 USED TO SET CORRECTION FP213370 0935 0000 1339 | BY944 DC 0 CHECKSUM SEQUENCE COUNTER FP213380 0936 0001 1340 | BY945 DC 1 1ST SCTR ADDR OF NEW PHASE FP213390 0937 0001 1341 | BY946 DC 1 CARD BUFFER PACKING INDR FP213400 0938 7777 1342 | BY947 DC /7777 PHASE LENGTH IN SECTORS FP213410 0939 03DF 1343 | BY948 DC CARD1-1 ADDRESS OF 'CARD1' FP213420 093A 0431 1344 | BY949 DC CARD2-1 ADDRESS OF 'CARD2' FP213430 093B 0D7A 1345 | BY950 DC BUFR2 ADDRESS OF DATA BUFFER FP213440 093C 010A 1346 | BY951 DC $ZEND-@CSTR-4-2 RLTV LOC OF CIL DATA FP213450 093D 0001 1347 | BY952 DC @DCOM DCOM SECTOR ADDRESS FP213460 093E 0002 1348 | BY954 DC @RIAD SECTOR ADDRESS OF RES IMAGE FP213470 093F 0003 1349 | BY955 DC @SLET FIRST SLET SECTOR ADDRESS FP213480 0940 0005 1350 | BY956 DC @SLET+2 THIRD SLET SECTOR ADDRESS FP213490 0941 00FF 1351 | BY957 DC /00FF MASK OUT TYPE IN WORD 3 FP213500 0942 0630 1352 | BY958 DC @P2AD SCTR ADDR OF SYS LDR PH 2 FP213510 0943 063A 1353 | BY960 DC @P2AD+5+2+3 SCTR ADDR OF OVERLAY 2 FP213520 0944 063C 1354 | BY961 DC @P2AD+5+2+3+2 SCTR ADDR OF OVERLAY 3 FP213530 0945 063F 1355 | BY962 DC /063F MAXIMUM SECTOR ADDRESS FP213540 0946 0FFA 1356 | BY963 DC @MNCR-6 WORD COUNT OF CIB FP213550 0947 8000 1357 | BY964 DC /8000 NEGATIVE SIGN BIT FP213560 0948 FFFF 1358 | BY965 DC /FFFF COMPLIMENTING MASK FP213570 0949 1000 1359 | BY966 NOP 'NOP' INSTRUCTION FP213580 094A 7000 1360 | BY967 MDX * SKIP INSTRUCTION FP213590 094B 7002 1361 | BY969 MDX *+2 SKIP INSTRUCTION FP213600 094C 7005 1362 | BY970 MDX X C1050-C1030-1 SKIP INSTRUCTION FP213610 094D 3FFF 1363 | BY972 DC /3FFF USED TO MASK FOR LEFT BITS FP213620 094E 9400 7FFF 1364 | BY973 S L /7FFF SUBTRACT INSTRUCTION FP213630 094F 1365 | BY974 EQU *-1 USED TO MASK OUT SIGN BIT FP213640 0950 7007 1366 | BY975 MDX X CK080-CK060-1 CHECKSUM SKIP INST FP213650 0951 70FF 1367 | BY976 DC /70FF INST FOR LOOP IN LOC 0 2-8 FP213660 0952 0000 1368 | BY977 DC *-* PHASE FINAL WORD COUNT 2-4 FP213670 0953 0000 1369 | BY978 DC *-* NO. OF SCTRS TO SHIFT 2-4 FP213680 0954 0000 1370 | BY979 DC *-* AVAILABLE 2-4 FP213690 0955 0000 1371 | BY980 DC *-* AVAILABLE 2-4 FP213700 0956 0000 1372 | BY981 DC *-* PROG DATA TO WRITE INDR FP213710 0957 0000 1373 | BY982 DC *-* SLET ENTRY HALF DONE INDR FP213720 0958 0007 1374 | BY983 DC 7 HIGHEST SCTR ADDR RECOVERY FP213730 095A 1375 | BSS E 0 FORCE NEXT LOC TO BE EVEN FP213740 095A 0000 1376 | BZ900 DC *-* QUOTIENT FROM MOVE SUBR FP213750 095B 0000 1377 | BZ901 DC *-* REMAINDER FROM MOVE SUBR FP213760 095C 0000 1378 | BZ902 DC *-* AVAILABLE 2-4 FP213770 095D 0000 1379 | BZ903 DC *-* NEW LET SECTOR ADDRESS FP213780 095E 023C 1380 | BZ904 DC PAIRE ADDR OF PAIR 14 (LAST PAIR) FP213790 095F 0230 1381 | BZ905 DC PAIR8 ADDR OF PAIR 08 FP213800 0960 0000 1382 | BZ906 DC *-* NEW MINUS OLD LET SCTR ADDR FP213810 0961 0000 1383 | BZ907 DC *-* NO. OF SCTRS IN SHIFT BFR FP213820 0962 0000 1384 | BZ908 DC 0 NEW PROGRAM RELOADED INDR FP213830 0963 0000 1385 | BZ909 DC *-* 2501 DOUBLE BUFFERING INDR FP213840 0964 0000 1386 | BZ910 DC @IDAD CARTRIDGE ID SECTOR ADDRESS FP213850 0965 0000 1387 | BZ911 DC *-* LOAD NO MORE PHASES INDR FP213860 0966 0000 1388 | BZ912 DC *-* PROGRAM MAY BE ADDED INDR FP213870 0967 0000 1389 | BZ913 DC *-* PHASE ID OF NEXT PROG - 1 FP213880 1390 | * FP213890 1391 | * LEVEL 4 INTERRUPT BRANCH TABLE FP213900 1392 | * FP213910 0968 0028 1393 | DC $PRET PRE-OPERATIVE ERROR TRAP FP213920 0969 1394 | BZ930 BSS 4 RESERVED FP213930 096D 0000 1395 | DC *-* 1403 PRINTER FP213940 096E 02DA 1396 | DC CD010+1 2501 CARD READER FP213950 096F 02DA 1397 | DC CD010+1 1442 CARD READER FP213960 0970 029F 1398 | DC TZ100 CONSOLE PRINTER FP213970 0971 0000 1399 | DC *-* PAPER TAPE READER/PUNCH FP213980 1400 | * FP213990 1401 | * FP214000 0972 1402 | BSS BA000+5*@SCNT-*-2 PATCH AREA FP214010 1403 | * FP214020 1404 | * FP214030 09B5 1405 | BZ999 EQU *-1 END OF PHASE 2 MAINLINE FP214040 OVERLAY 0 - EXPAND SYS PROG AREA 09B6 1407 | ORG BA000+5*@SCNT-2 ALLOW 5 SECTOR ML FP214060 1408 | * FP214070 1409 | * FP214080 09B6 0280 1410 | OVLAY DC C0999-C0000+2 WORD CNT OF OVERLAY 0 FP214090 09B7 0635 1411 | DC @P2AD+5 SCTR ADDR OF OVERLAY 0 FP214100 1412 | * FP214110 1413 | * FP214120 09B8 0000 1414 | DC 0 INDICATES OVERLAY 0 FP214130 09B9 7002 1415 | C0000 MDX C0020 BR AROUND MODIFIABLE PT FP214140 09BA 6600 0EC0 1416 | LDX L2 BUFR3+2 2ND HALF IS USED ELSEWHERE FP214150 09BC C338 1417 | C0020 LD 3 BZ908-X IF INDR ON, NEW PROG IS FP214160 09BD 4C18 09DB 1418 | BSC L C0050,+- *BEING ADDED. BR IF OFF FP214170 09BF C400 0B3D 1419 | LD L C0610+1 FETCH A PAIR ADDRESS FP214180 09C1 83D3 1420 | A 3 BX901-X POINT TO 2ND OF PAIR FP214190 09C2 D00E 1421 | STO C0040+1 PLACE ADDR IN INSTRUCTION FP214200 09C3 C10B 1422 | LD 1 11 WHEN LAST PHASE TO LOAD FP214210 09C4 9400 01FD 1423 | S L MAXPH *IS REACHED, AN INDICATOR FP214220 09C6 D3FD 1424 | STO 3 BY931-X *IS CLEARED FP214230 09C7 C33D 1425 | LD 3 BZ913-X IF NON-ZERO, USE AS PH ID FP214240 09C8 4820 1426 | BSC Z *IN SEQUENCE TEST FP214250 09C9 D3EB 1427 | STO 3 BY912-X REPLACE PREVIOUS PH ID FP214260 09CA C3EA 1428 | LD 3 BY911-X CURRENT PHASE FP214270 09CB 93EB 1429 | S 3 BY912-X PREVIOUS PHASE FP214280 09CC 93D3 1430 | S 3 BX901-X SEQUENCE TEST FP214290 09CD 4C20 0BA4 1431 | BSC L C0660,Z BRANCH IF NOT IN SEQUENCE FP214300 09CF D33D 1432 | STO 3 BZ913-X CLEAR SPECIAL PH ID FP214310 09D0 C400 0000 1433 | C0040 LD L *-* THIS PHASE SHOULD NOT FP214320 09D2 93EA 1434 | S 3 BY911-X *EXCEED PHID PAIR LIMIT FP214330 09D3 4C28 0BAC 1435 | BSC L C0670,+Z GO TO OUT OF SEQ ERROR FP214340 09D5 4C20 09E9 1436 | BSC L C0060,Z BR AROUND SLET SEARCH FP214350 1437 | * FP214360 1438 | * THIS PHASE IS LAST PHASE OF A PROGRAM PAIR FP214370 1439 | * FP214380 09D7 C3D3 1440 | LD 3 BX901-X SET SW TO INDICATE A PROG FP214390 09D8 D33C 1441 | STO 3 BZ912-X *HAS BEEN ADDED & PREPARE FP214400 09D9 4400 0B3B 1442 | BSI L C0600 *TO ADD ANOTHER IF REQ FP214410 1443 | * FP214420 09DB C10B 1444 | C0050 LD 1 11 RELOAD THE PH ID FP214430 09DC 4400 0722 1445 | BSI L SSLET SEARCH SLET FOR PHASE FP214440 1446 | * FP214450 1447 | * IF PHASE FOUND XR2 POINTS TO THE ADDRESS OF SET FP214460 1448 | * IN CORE BUFFER. THE APPLICABLE SLET SECTOR IS FP214470 1449 | * LOADED TO THE IN-CORE BUFFER DURING A SUCCESSFUL FP214480 1450 | * SEARCH. FP214490 1451 | * FP214500 09DE 4408 0B3B 1452 | BSI L C0600,+ BR TO SEE IF CAN RELOAD FP214510 09E0 6E00 0ACB 1453 | STX L2 C0510+1 SAVE XR2 IN 'C0500' SUBR FP214520 09E2 C202 1454 | LD 2 2 FETCH WD CNT TO RUN CHECK FP214530 09E3 83DD 1455 | A 3 BX913-X ADD WORDS/SCTR-1 2-4 FP214540 09E4 1890 1456 | SRT 16 PREPARE FOR DIVIDE FP214550 09E5 ABDE 1457 | D 3 BX914-X DETERMINE HOW MANY SCTRS FP214560 09E6 D30E 1458 | STO 3 BY947-X *SAVE AS LENGTH IN SECTORS FP214570 09E7 C203 1459 | LD 2 3 LOAD THIS PHASE TO OLD SCTR FP214580 1460 | * STATMENT REMOVED 2-4 FP214590 09E8 D3E9 1461 | STO 3 BY910-X FIRST SCTR ADDR OF PHASE FP214600 09E9 4400 0741 1462 | C0060 BSI L UPCAD BR TO UPDATE OLD SLET ENTRY FP214610 09EB 1810 1463 | SRA 16 CLEAR SW THAT IS SET FP214620 09EC D33C 1464 | STO 3 BZ912-X *BETWEEN ADDED PROGRAMS FP214630 09ED 4C00 0608 1465 | BSC L BE200 RETURN FROM OVERLAY 0 FP214640 1466 | * FP214650 1467 | *************************************************** FP214660 1468 | * FP214670 1469 | * INSERT A 4 WORD ENTRY TO BE USED TO BUILD A NEW FP214680 1470 | * PHASE IN SLET. FP214690 1471 | * FP214700 09EF 0000 1472 | C0100 DC 0 ENTRY/EXIT TO SUBROUTINE FP214710 09F0 C10B 1473 | LD 1 11 PHASE ID TO BE INSERTED FP214720 09F1 D064 1474 | STO C0912 STORE ID IN INSERTION PATCH FP214730 09F2 93D3 1475 | S 3 BX901-X PHASE ID - 1 FP214740 09F3 4400 0722 1476 | BSI L SSLET CALL SEARCH SLET FOR ID-1 FP214750 09F5 4C18 0A4E 1477 | BSC L CO180,+- BR IF ID-1 WAS NOT FOUND FP214760 09F7 1010 1478 | SLA 16 ZERO TWO WORDS IN NEW SLET FP214770 09F8 D05E 1479 | STO C0913 *ENTRY FOR NOW FP214780 09F9 D05E 1480 | STO C0914 FP214790 09FA C202 1481 | LD 2 2 WORD COUNT OF PH - 1 FP214800 09FB 83DD 1482 | A 3 BX913-X ADD WORDS/SCTR-1 2-4 FP214810 09FC 1890 1483 | SRT 16 SHIFT TO EXTENSION FP214820 09FD ABDE 1484 | D 3 BX914-X DIVIDE BY WORDS PER SECTOR FP214830 09FE 8203 1485 | A 2 3 ADD SECTOR ADDR OF ID-1 FP214840 09FF D059 1486 | STO C0915 SAVE CALC SCTR ADDR OF PH FP214850 1487 | * FP214860 1488 | * DETERMINE IF AN EMPTY SLET ENTRY EXISTS TO FP214870 1489 | * ABSORD THE NEW SLET ENTRY. FP214880 1490 | * FP214890 0A00 7204 1491 | MDX 2 4 ADVANCE 1 ENTRY IN SLET TBL FP214900 0A01 6A53 1492 | STX 2 C0911 TEST FOR BEYOND END OF SCTR FP214910 0A02 C052 1493 | LD C0911 CONTENTS OF XR2 FP214920 0A03 93ED 1494 | S 3 BY914-X SUB ADDR LAST SLET ENTRY FP214930 0A04 4C08 0A11 1495 | BSC L C0120,+ BR IF XR2 STILL IN SECTOR FP214940 0A06 C400 0EBF 1496 | LD L BUFR3+1 SLET TABLE IS FULL IF THIS FP214950 0A08 9316 1497 | S 3 BY956-X *IS LAST SLET SECTOR FP214960 0A09 4410 080C 1498 | BSI L ER028,- YES, BR IF LAST SLET SECTOR FP214970 0A0B 7401 0EBF 1499 | MDX L BUFR3+1,1 INCREMENT SLET SECTOR ADDR FP214980 0A0D 4400 070E 1500 | BSI L FTCH3 READ NEXT SLET SECTOR FP214990 0A0F 6680 0916 1501 | LDX I2 BY913 RESET PT TO FIRST SLET SET FP215000 0A11 C480 0917 1502 | C0120 LD I BY914 TEST FOR EMPTY ENTRY IN FP215010 0A13 4C18 0A2E 1503 | BSC L C0150,+- *THIS SLET SCTR,BR IF EMPTY FP215020 0A15 C400 0EBF 1504 | LD L BUFR3+1 SAVE SCTR ADDR THAT IS TO FP215030 0A17 D03D 1505 | STO C0911 *HAVE NEW PHASE ENTRY FP215040 0A18 9316 1506 | S 3 BY956-X TEST IF SCTR ADDR ALREADY FP215050 0A19 4C18 0A20 1507 | BSC L C0130,+- *IN CORE, BR IF IN CORE FP215060 0A1B C316 1508 | LD 3 BY956-X SET LAST SLET SCTR ADDR FP215070 0A1C D400 0EBF 1509 | STO L BUFR3+1 *IN DISK I/O BUFFER FP215080 0A1E 4400 070E 1510 | BSI L FTCH3 READ LAST SCTR INTO CORE FP215090 0A20 C480 0917 1511 | C0130 LD I BY914 TEST FOR EMPTY ENTRY IN FP215100 0A22 4420 080C 1512 | BSI L ER028,Z *LAST SLET SCTR, BR IF FULL FP215110 0A24 C400 0EBF 1513 | LD L BUFR3+1 IS SCTR TO HAVE PHASE ID FP215120 0A26 902E 1514 | S C0911 *INSERTION ALREADY IN CORE FP215130 0A27 4C18 0A2E 1515 | BSC L C0150,+- BR IF IT IS IN CORE FP215140 0A29 C02B 1516 | LD C0911 SET ADDR TO SCTR TO HAVE FP215150 0A2A D400 0EBF 1517 | STO L BUFR3+1 *NEW PHASE ID INSERTED FP215160 0A2C 4400 070E 1518 | C0140 BSI L FTCH3 READ THE SECTOR OF SLET FP215170 0A2E CA00 1519 | C0150 LDD 2 0 SAVE 4 WORDS OF SLET TABLE FP215180 0A2F D82A 1520 | STD C0916 *WHERE NEXT INSERT IS TO GO FP215190 0A30 CA02 1521 | LDD 2 2 FP215200 0A31 D82A 1522 | STD C0918 FP215210 0A32 C823 1523 | LDD C0912 INSERT 4 WORDS IN SLET FP215220 0A33 DA00 1524 | STD 2 0 *TABLE FP215230 0A34 C823 1525 | LDD C0914 FP215240 0A35 DA02 1526 | STD 2 2 FP215250 0A36 C823 1527 | LDD C0916 IS NEXT PHASE 0, IE EMPTY FP215260 0A37 4C20 0A3C 1528 | BSC L C0160,Z NO, BR TO CONTINUE SHIFTING FP215270 0A39 4400 078F 1529 | BSI L WRIT3 YES,WRITE SCTR BACK TO DISK FP215280 0A3B 7010 1530 | MDX C0170 BR TO RETURN FP215290 0A3C D819 1531 | C0160 STD C0912 FP215300 0A3D C81E 1532 | LDD C0918 FP215310 0A3E D819 1533 | STD C0914 FP215320 0A3F 7204 1534 | MDX 2 4 INCR POINTER ONE 4 WD ENTRY FP215330 0A40 6A14 1535 | STX 2 C0911 TEST FOR END OF SECTOR FP215340 0A41 C013 1536 | LD C0911 CONTENTS OF XR2 FP215350 0A42 93ED 1537 | S 3 BY914-X SUB ADDR LAST SLET ENTRY FP215360 0A43 4C08 0A2E 1538 | BSC L C0150,+ NO, BR TO LOOP ON ENTRIES FP215370 0A45 4400 078F 1539 | BSI L WRIT3 WRITE SECTOR BACK TO DISK FP215380 0A47 7401 0EBF 1540 | MDX L BUFR3+1,1 INCREMENT SLET SECTOR ADDR FP215390 0A49 6680 0916 1541 | LDX I2 BY913 RESET PT TO FIRST SLET SET FP215400 0A4B 70E0 1542 | MDX C0140 BR TO PROCESS NEXT SECTOR FP215410 0A4C 4C80 09EF 1543 | C0170 BSC I C0100 RETURN FP215420 1544 | * FP215430 0A4E 18A0 1545 | CO180 SRT 32 CLEAR ACCUM AND EXTENSION FP215440 0A4F C400 0740 1546 | LD L SS900 FETCH MISSING PHASE ID FP215450 0A51 4400 07EF 1547 | BSI L ER026 DISPLAY PH ID NOT IN SLET FP215460 0A53 4C00 0808 1548 | BSC L ER610 FETCH OVERLAY 2 TO FINISH FP215470 1549 | * FP215480 1550 | * CONSTANTS AND WORK AREAS FP215490 1551 | * FP215500 0A55 0000 1552 | C0911 DC *-* TEMPORARY STORAGE FP215510 0A56 1553 | BSS E FP215520 0A56 0000 1554 | C0912 DC *-* STORAGE FOR 4 WORDS GOING FP215530 0A57 0000 1555 | C0913 DC *-* *TO FP215540 0A58 0000 1556 | C0914 DC *-* *SLET FP215550 0A59 0000 1557 | C0915 DC *-* *ENTRY FP215560 0A5A 0000 1558 | C0916 DC *-* STORAGE FOR 4 WORDS COMING FP215570 0A5B 0000 1559 | DC *-* *FROM FP215580 0A5C 0000 1560 | C0918 DC *-* *SLET FP215590 0A5D 0000 1561 | DC *-* *ENTRY FP215600 1562 | * FP215610 1563 | *************************************************** FP215620 1564 | * FP215630 1565 | * THIS SUBROUTINE MOVES A BLOCK OF 1 TO 90 SECTORS, FP215640 1566 | * DEPENDING UPON CORE SIZE, FROM 1 PART OF DISK FP215650 1567 | * STORAGE TO ANOTHER. FP215660 1568 | * FP215670 0A5E 0000 1569 | C0300 DC 0 ENTRY/RETURN ADDRESS FP215680 0A5F 1000 1570 | NOP A WAIT MAY BE PATCHEC HERE FP215690 0A60 C400 0202 1571 | LD L SSBFR RELOCATE BUFFER SIZE TO FP215700 0A62 D337 1572 | STO 3 BZ907-X *MAIN CONSTANTS AREA FP215710 0A63 C329 1573 | LD 3 BY978-X LOAD SCTRS TO SHIFT CNT 2-4 FP215720 0A64 1890 1574 | SRT 16 SHIFT INTO EXTENSION FP215730 0A65 AB37 1575 | D 3 BZ907-X DIVIDE BY SCTRS IN BUFFER FP215740 0A66 DB30 1576 | STD 3 BZ900-X SAVE QUOTIENT AND REMAINDER FP215750 1577 | * 2-4 FP215760 0A67 C3F0 1578 | LD 3 BY917-X CALCULATE SHIFT 2-4 FP215770 0A68 93F1 1579 | S 3 BY918-X *DIRECTION (FROM - TO) 2-4 FP215780 0A69 4C10 0A72 1580 | BSC L C0310,- BR IF LEFT SHIFT 2-4 FP215790 1581 | * 2-4 FP215800 0A6B C3F0 1582 | LD 3 BY917-X ADD SECTORS 2-4 FP215810 0A6C 8329 1583 | A 3 BY978-X *TO SHIFT COUNT 2-4 FP215820 0A6D D3F0 1584 | STO 3 BY917-X *TO 'FROM' 2-4 FP215830 0A6E C3F1 1585 | LD 3 BY918-X *AND TO 2-4 FP215840 0A6F 8329 1586 | A 3 BY978-X *'TO' 2-4 FP215850 0A70 D3F1 1587 | STO 3 BY918-X *ADDRESSES 2-4 FP215860 0A71 703B 1588 | MDX C0400 BR TO START RIGHT SHIFT 2-4 FP215870 1589 | * 2-4 FP215880 0A72 7400 095B 1590 | C0310 MDX L BZ901,0 TEST REMAINDER FOR 0 2-4 FP215890 0A74 7004 1591 | MDX C0330 BR IF NOT FP215900 0A75 7400 095A 1592 | C0320 MDX L BZ900,0 TEST QUOTIENT FOR 0 FP215910 0A77 702C 1593 | MDX C0380 BR IF NOT FP215920 0A78 7015 1594 | MDX C0355 BR SHIFTING COMPLETED FP215930 1595 | * FP215940 1596 | * SET UP A WORD COUNT LESS THAN FULL BUFFER SIZE FP215950 1597 | * FP215960 0A79 C331 1598 | C0330 LD 3 BZ901-X SECTOR COUNT IN REMAINDER FP215970 0A7A A3DE 1599 | M 3 BX914-X WORDS PER SECTOR FP215980 0A7B 1090 1600 | SLT 16 FP215990 0A7C D400 0EBE 1601 | STO L BUFR3+0 WORD COUNT FP216000 1602 | * FP216010 0A7E C3F0 1603 | C0340 LD 3 BY917-X SET SCTR ADDR FP216020 0A7F D400 0EBF 1604 | STO L BUFR3+1 *TO READ FROM FP216030 0A81 4400 070E 1605 | BSI L FTCH3 READ FP216040 0A83 C3F1 1606 | LD 3 BY918-X SET SCTR ADDR FP216050 0A84 D400 0EBF 1607 | STO L BUFR3+1 *TO WRITE TO FP216060 0A86 4400 078F 1608 | BSI L WRIT3 WRITE FP216070 0A88 7400 095B 1609 | MDX L BZ901,0 TEST REMAINDER FOR 0 FP216080 0A8A 702C 1610 | MDX C0410 BR IF NOT FP216090 1611 | * STATEMENTS REMOVED 2-4 FP216100 0A8B 7400 095A 1612 | C0350 MDX L BZ900,0 TEST QUOTIENT FOR 0 FP216110 0A8D 7005 1613 | MDX C0360 BR IF NOT FP216120 0A8E C3DE 1614 | C0355 LD 3 BX914-X RESET TO 1 SCTR WD COUNT FP216130 0A8F D400 0EBE 1615 | STO L BUFR3+0 FP216140 0A91 4C80 0A5E 1616 | BSC I C0300 RETURN FP216150 1617 | * FP216160 0A93 C3F0 1618 | C0360 LD 3 BY917-X CALCULATE SHIFT 2-4 FP216170 0A94 93F1 1619 | S 3 BY918-X *DIRECTION 2-4 FP216180 0A95 4C10 0A9E 1620 | BSC L C0370,- BR IF LEFT SHIFT 2-4 FP216190 0A97 C3F1 1621 | LD 3 BY918-X DECR SCTR ADDR'S BY SIZE FP216200 0A98 9337 1622 | S 3 BZ907-X *OF BUFFER FP216210 0A99 D3F1 1623 | STO 3 BY918-X WRITE ADDRESS FP216220 0A9A C3F0 1624 | LD 3 BY917-X DECR THE FP216230 0A9B 9337 1625 | S 3 BZ907-X *READ ADDR FP216240 0A9C D3F0 1626 | STO 3 BY917-X *ALSO FP216250 0A9D 7006 1627 | MDX C0380 SET NEW WD COUNT FOR I/O FP216260 1628 | * FP216270 0A9E C3F1 1629 | C0370 LD 3 BY918-X INCREMENT SCTR FP216280 0A9F 8337 1630 | A 3 BZ907-X *ADDR TO FP216290 0AA0 D3F1 1631 | STO 3 BY918-X *WRITE TO FP216300 0AA1 C3F0 1632 | LD 3 BY917-X INCREMENT SCTR FP216310 0AA2 8337 1633 | A 3 BZ907-X *ADDR TO FP216320 0AA3 D3F0 1634 | STO 3 BY917-X *READ FROM FP216330 1635 | * FP216340 0AA4 C337 1636 | C0380 LD 3 BZ907-X MULTIPLY SCTR COUNT BY FP216350 0AA5 A3DE 1637 | M 3 BX914-X *WORDS PER SCTR FP216360 0AA6 1090 1638 | SLT 16 *AND USE FP216370 0AA7 D400 0EBE 1639 | STO L BUFR3+0 *FOR DISK I/O FP216380 0AA9 74FF 095A 1640 | MDX L BZ900,-1 DECR QUOTIENT FP216390 0AAB 1000 1641 | NOP MAY SKIP FP216400 0AAC 70D1 1642 | MDX C0340 SET UP READ ADDR FP216410 1643 | * FP216420 0AAD C331 1644 | C0400 LD 3 BZ901-X TEST REMAINDER FOR 0 FP216430 0AAE 4C18 0A8B 1645 | BSC L C0350,+- BR IF YES FP216440 0AB0 C3F0 1646 | LD 3 BY917-X DECR THE FP216450 0AB1 9331 1647 | S 3 BZ901-X *READ FP216460 0AB2 D3F0 1648 | STO 3 BY917-X *ADDRESS FP216470 0AB3 C3F1 1649 | LD 3 BY918-X DECR THE FP216480 0AB4 9331 1650 | S 3 BZ901-X *WRITE FP216490 0AB5 D3F1 1651 | STO 3 BY918-X *ADDRESS FP216500 0AB6 70C2 1652 | MDX C0330 SET NEW WD COUNT FOR I/O FP216510 1653 | * FP216520 0AB7 C3F0 1654 | C0410 LD 3 BY917-X CALCULATE SHIFT 2-4 FP216530 0AB8 93F1 1655 | S 3 BY918-X *DIRECTION 2-4 FP216540 0AB9 4C28 0AC4 1656 | BSC L C0420,Z+ BR IF RIGHT SHIFT 2-4 FP216550 0ABB C3F1 1657 | LD 3 BY918-X INCR THE FP216560 0ABC 8331 1658 | A 3 BZ901-X *WRITE FP216570 0ABD D3F1 1659 | STO 3 BY918-X *ADDRESS FP216580 0ABE C3F0 1660 | LD 3 BY917-X INCR THE FP216590 0ABF 8331 1661 | A 3 BZ901-X *READ FP216600 0AC0 D3F0 1662 | STO 3 BY917-X *ADDRESS FP216610 0AC1 1810 1663 | SRA 16 ZERO FP216620 0AC2 D331 1664 | STO 3 BZ901-X *THE REMAINDER FP216630 0AC3 70B1 1665 | MDX C0320 BR TO TEST QUOTIENT FP216640 1666 | * FP216650 0AC4 1810 1667 | C0420 SRA 16 ZERO FP216660 0AC5 D331 1668 | STO 3 BZ901-X *THE REMAINDER FP216670 0AC6 70C4 1669 | MDX C0350 BR TO TEST QUOTIENT FP216680 1670 | * FP216690 1671 | *************************************************** FP216700 1672 | * FP216710 1673 | * SHIFT SYSTEM PROGRAMS ON SECTOR FP216720 1674 | * OUTWARD TOWARDS THE CORE IMAGE BUFFER. FP216730 1675 | * FP216740 0AC7 1000 1676 | C0500 NOP A WAIT MAY BE PATCHED HERE FP216750 0AC8 6E00 0B2C 1677 | STX L2 C0580+1 SAVE XR2'S WD COUNT FP216760 0ACA 6600 0000 1678 | C0510 LDX L2 *-* RELATIVE LOCATION IN SLET FP216770 0ACC C200 1679 | LD 2 0 IF THIS IS LAST PHASE FP216780 0ACD 93F6 1680 | S 3 BY924-X *NO SHIFT IS REQUIRED FP216790 0ACE 4C10 0B2B 1681 | BSC L C0580,- BR IF .GE. LAST PHASE 2-4 FP216800 0AD0 C400 0EBF 1682 | LD L BUFR3+1 SAVE CURRENT SLET SCTR NO. FP216810 0AD2 D05E 1683 | STO C0950 *FOR RE-READING LATER FP216820 1684 | * FP216830 1685 | * DETERMINE SECTOR ADDRESS OF LAST SECTOR FP216840 1686 | * TO BE MOVED FP216850 1687 | * FP216860 0AD3 C203 1688 | LD 2 3 CURRENT PHASE SCTR ADDRESS FP216870 1689 | * STATMENT REMOVED 2-4 FP216880 0AD4 830E 1690 | A 3 BY947-X FORM SCTR ADDR OF SUCCEED- FP216890 0AD5 D3F0 1691 | STO 3 BY917-X *ING PHASE, 'FROM' ADDR 2-4 FP216900 0AD6 83D3 1692 | A 3 BX901-X 'TO' ADDR = 'FROM' ADDR 2-4 FP216910 0AD7 D3F1 1693 | STO 3 BY918-X * + 1 2-4 FP216920 0AD8 C302 1694 | LD 3 BY935-X SAVE THE SLET SCTR FP216930 0AD9 D400 0EBF 1695 | STO L BUFR3+1 *NOW IN THE SLET BUFFER FP216940 0ADB 4400 078F 1696 | BSI L WRIT3 WRITE TEMPORARILY TO CIB FP216950 1697 | * FP216960 1698 | * DETERMINE SECTOR ADDRESS OF LAST SECTOR USED FOR FP216970 1699 | * SYSTEM PROGRAMS AND VERIFY THAT THERE IS ENOUGH FP216980 1700 | * CUSHION TO ABSORB A ONE SECTOR SHIFT. FP216990 1701 | * FP217000 0ADD 1000 1702 | NOP FP217010 0ADE C3F6 1703 | LD 3 BY924-X KNOWN ID OF LAST PHASE FP217020 0ADF 4400 0722 1704 | BSI L SSLET SEARCH SLET FOR THIS ID FP217030 0AE1 4408 07FF 1705 | BSI L ER027,+ BR IF SOMEHOW MISSING FP217040 0AE3 C202 1706 | LD 2 2 LOAD WORD COUNT FP217050 0AE4 1890 1707 | SRT 16 FP217060 0AE5 ABDE 1708 | D 3 BX914-X CALC SECTORS INVOLVED FP217070 0AE6 D3F5 1709 | STO 3 BY923-X SAVE QUOTIENT FP217080 0AE7 18D0 1710 | RTE 16 TEST FOR REMAINDER FP217090 0AE8 4C08 0AEC 1711 | BSC L C0520,+ EXACT MULT OF 320 IF ZERO FP217100 0AEA 7401 091F 1712 | MDX L BY923,1 SCTRS IN VERY LAST PHASE FP217110 0AEC C203 1713 | C0520 LD 2 3 SCTR ADDR OF THIS PHASE FP217120 1714 | * STATMENT REMOVED 2-4 FP217130 0AED 83F5 1715 | A 3 BY923-X FORM ADDR OF LAST SECTOR FP217140 0AEE D304 1716 | STO 3 BY937-X *WITH DATA FP217150 0AEF 9302 1717 | S 3 BY935-X COMPARE WITH FP217160 0AF0 83D3 1718 | A 3 BX901-X *SCRA FP217170 0AF1 93D9 1719 | S 3 BX908-X *ADDRESS FP217180 0AF2 4410 07CA 1720 | BSI L ER022,- BRANCH IF NO SPACE LEFT FP217190 0AF4 C304 1721 | LD 3 BY937-X NUMBER OF SECTORS TO 2-4 FP217200 0AF5 93F0 1722 | S 3 BY917-X *SHIFT = ADDR SCTR AFTER2-4 FP217210 0AF6 D329 1723 | STO 3 BY978-X *LAST PHASE - FROM ADDR 2-4 FP217220 0AF7 C400 01F7 1724 | LD L CAREA DECR BY 1 THS SECTORS FP217230 0AF9 93D3 1725 | S 3 BX901-X *REMAINING IN CUSHION FP217240 0AFA 4428 07CA 1726 | BSI L ER022,Z+ WHEN USED UP, DISPLAY FP217250 0AFC D400 01F7 1727 | STO L CAREA *SCRA OVERLAY ERROR FP217260 0AFE 4400 0A5E 1728 | BSI L C0300 BR TO SHIFT AREA 1 SECTOR FP217270 1729 | * FP217280 0B00 C302 1730 | LD 3 BY935-X PREPARE TO FETCH SAVED FP217290 0B01 D400 0EBF 1731 | STO L BUFR3+1 *SLET SCTR FROM CIB AREA FP217300 0B03 4400 070E 1732 | BSI L FTCH3 READ FP217310 0B05 C02B 1733 | LD C0950 RESTORE THE SLET FP217320 0B06 D400 0EBF 1734 | STO L BUFR3+1 *SCTR ADDR FP217330 0B08 6680 0ACB 1735 | LDX I2 C0510+1 RESET RELATIVE LOC POINTER FP217340 0B0A C400 0002 1736 | C0540 LD L 2 TEST WHETHER THIS SET OF FP217350 0B0C 93ED 1737 | S 3 BY914-X *SLET SCTR IS THE LAST FP217360 0B0D 4C18 0B19 1738 | BSC L C0550,+- FALL THRU IF NOT LAST FP217370 0B0F 7204 1739 | MDX 2 4 POINT TO NEXT SET FP217380 0B10 C203 1740 | LD 2 3 LOAD FROM NEXT SET FP217390 0B11 4820 1741 | BSC Z NO MODIFICATION IF ZERO FP217400 0B12 83D3 1742 | A 3 BX901-X INCR SECTOR ADDRESS FP217410 0B13 D203 1743 | STO 2 3 STORE BACK FP217420 0B14 C200 1744 | LD 2 0 TEST FOR VERY LAST PH ID FP217430 0B15 93F6 1745 | S 3 BY924-X FP217440 0B16 4C18 0B24 1746 | BSC L C0560,+- FALL THRU IF NOT LAST FP217450 0B18 70F1 1747 | MDX C0540 REPEAT FP217460 0B19 4400 0B32 1748 | C0550 BSI L WRFT3 WRITE UPDATED SLET SECTOR FP217470 0B1B C400 0EBF 1749 | LD L BUFR3+1 STOP WHEN FP217480 0B1D 93F4 1750 | S 3 BY922-X *ALL SLET FP217490 0B1E 9315 1751 | S 3 BY955-X *UPDATED FP217500 0B1F 4C10 0B26 1752 | BSC L C0570,- BR TO END OF THIS SUBR, FP217510 0B21 6600 0EBC 1753 | LDX L2 BUFR3+2-4 *ELSE POINT TO NEXT SCTR FP217520 0B23 70E6 1754 | MDX C0540 *OF SLET AND REPEAT FP217530 0B24 4400 078F 1755 | C0560 BSI L WRIT3 WRITE UPDATED SLET FP217540 1756 | * FP217550 0B26 C00A 1757 | C0570 LD C0950 FP217560 0B27 D400 0EBF 1758 | STO L BUFR3+1 RESTORE IN-CORE SLET SCTR FP217570 0B29 4400 070E 1759 | BSI L FTCH3 *TO CONTINUE LOAD FP217580 0B2B 6600 0000 1760 | C0580 LDX L2 *-* RESTORE WD CNT OF DATA RCD FP217590 0B2D 7401 0938 1761 | MDX L BY947,1 INCR OLD PHASE LENGTH FP217600 0B2F 4C00 0632 1762 | BSC L BE380 EXIT BACK TO MAINLINE FP217610 1763 | * FP217620 1764 | * CONSTANTS AND WORK AREAS FP217630 1765 | * FP217640 0B31 0000 1766 | C0950 DC *-* SAVED SLET SECTOR ADDRESS FP217650 1767 | * FP217660 1768 | *************************************************** FP217670 1769 | * FP217680 1770 | * WRITE A SLET SECTOR TO DISK AND READ NEXT SECTOR FP217690 1771 | * FP217700 0B32 0000 1772 | WRFT3 DC 0 ENTRY/RETURN ADDRESS FP217710 0B33 4400 078F 1773 | BSI L WRIT3 FILE THIS SLET SECTOR FP217720 0B35 7401 0EBF 1774 | MDX L BUFR3+1,1 INCR ADDR AND FP217730 0B37 4400 070E 1775 | BSI L FTCH3 *FETCH NEXT SCTR FP217740 0B39 4C80 0B32 1776 | BSC I WRFT3 RETURN FP217750 1777 | * FP217760 1778 | *************************************************** FP217770 1779 | * FP217780 1780 | * THIS SUBROUTINE IS ENTERED DURING RELOAD OF A FP217790 1781 | * PHASE WHICH CANNOT BE FOUND IN SLET. FP217800 1782 | * FP217810 0B3B 0000 1783 | C0600 DC 0 ENTRY FP217820 0B3C CC00 0222 1784 | C0610 LDD L PAIR1 ESTABLISH CORRECT PH PAIR FP217830 0B3E E323 1785 | AND 3 BY972-X REMOVE BITS 0 AND 1 FP217840 0B3F 93EA 1786 | S 3 BY911-X COMPARE TO BRACKET PH ID FP217850 0B40 4C30 0BB0 1787 | BSC L C0680,-Z BRANCH IF PH ID SMALLER FP217860 0B42 18D0 1788 | RTE 16 EXCHANGE ACCUM & EXTENSION FP217870 0B43 E323 1789 | AND 3 BY972-X REMOVE BITS 0 AND 1 FP217880 0B44 93EA 1790 | S 3 BY911-X COMPARE PH ID FP217890 0B45 4C28 0BB4 1791 | BSC L C0690,+Z BRANCH IF PH ID GREATER FP217900 1792 | * FP217910 1793 | * NEXT SECTION PROCESSES PH ID THAT IS IN BOUNDS FP217920 1794 | * OF PHID RECORD PAIR POINTED TO IN 'CO610+1'. FP217930 1795 | * FP217940 0B47 CC80 0B3D 1796 | LDD I C0610+1 TEST FOR NEG BYPASS INDI- FP217950 0B49 4C30 0B53 1797 | BSC L C0615,-Z *CATION IN PAIR, BR IF OFF FP217960 0B4B 18D0 1798 | RTE 16 ELSE USE 2ND PH ID OF PAIR FP217970 0B4C E323 1799 | AND 3 BY972-X *TO SET A PH ID TO GO TO. FP217980 0B4D 83D3 1800 | A 3 BX901-X SET AN ID ONE GREATER FP217990 0B4E D3F8 1801 | STO 3 BY926-X *THAN FP218000 0B4F D3F7 1802 | STO 3 BY925-X *LAST PH ID OF FP218010 0B50 1810 1803 | SRA 16 *CURRENT PAIR FP218020 0B51 4C00 066C 1804 | BSC L BE560 BR TO FLUSH RECORDS FP218030 0B53 C33C 1805 | C0615 LD 3 BZ912-X IF 'BETWEEN ADDED PROG' SW FP218040 0B54 4C20 0B9D 1806 | BSC L C0655,Z *IS ON, BR TO SET SOME SWS FP218050 0B56 C480 0B3D 1807 | LD I C0610+1 RELOAD ADDR FROM POINTER FP218060 1808 | * FP218070 0B58 93EA 1809 | S 3 BY911-X TEST FOR 1ST PH OF PROGRAM FP218080 0B59 4C20 0BC3 1810 | BSC L C0710,Z BRANCH IF NOT FP218090 0B5B C0E1 1811 | C0622 LD C0610+1 TEST FOR 8TH PAIR AND UP FP218100 0B5C 9335 1812 | S 3 BZ905-X FP218110 0B5D 4C28 0BBD 1813 | BSC L C0700,+Z BR IF NOT PAIR 8 OR HIGHER FP218120 0B5F C3EA 1814 | LD 3 BY911-X COMPARE NEW PROG WITH LAST FP218130 0B60 93F6 1815 | S 3 BY924-X *ID IN SLET FP218140 0B61 4C08 0BBB 1816 | BSC L C0695,+ BR IF NEW PHASE NOT LARGER FP218150 1817 | * FP218160 0B63 C33C 1818 | LD 3 BZ912-X TEST AND BR IF 'BETWEEN FP218170 0B64 4C20 09E9 1819 | BSC L C0060,Z *ADDED PROG' SW IS ON FP218180 0B66 C31F 1820 | LD 3 BY966-X PLACE NOP INST TO ALLOW FP218190 0B67 D400 09B9 1821 | STO L C0000 *XR2 TO BE SET FP218200 0B69 C3EA 1822 | LD 3 BY911-X FP218210 0B6A D338 1823 | STO 3 BZ908-X SET SW TO ADD PROG AT END FP218220 0B6B D3EB 1824 | STO 3 BY912-X FP218230 1825 | * STATEMENT REMOVED 2-4 FP218240 0B6C C400 0200 1826 | LD L FLETI TEST FOR AND BR TO ERROR FP218250 0B6E 4420 07BB 1827 | BSI L ER020,Z *IF FIXED AREA PRESENT FP218260 0B70 C3F6 1828 | LD 3 BY924-X FP218270 0B71 4400 0722 1829 | BSI L SSLET LOCATE LAST EXISTING PHASE FP218280 0B73 4418 07FF 1830 | BSI L ER027,+- DEFECTIVE SLET IF MISSING FP218290 0B75 7204 1831 | MDX 2 4 POINT TO 1ST EMPTY SET FP218300 0B76 6A25 1832 | STX 2 C0650 TEMPORARY STORAGE FP218310 0B77 C024 1833 | LD C0650 TEST IF BEYOND LAST ENTRY FP218320 0B78 93ED 1834 | S 3 BY914-X *IN SLET SECTOR FP218330 0B79 4C08 0B83 1835 | BSC L C0640,+ BR IF SPACE EXISTS FP218340 0B7B C400 0EBF 1836 | LD L BUFR3+1 ELSE TEST FOR LAST SLET FP218350 0B7D 9316 1837 | S 3 BY956-X *SECTOR FP218360 0B7E 4410 080C 1838 | BSI L ER028,- DISPLAY SLET FULL IF YES FP218370 0B80 4400 0585 1839 | BSI L BD200 FETCH NEXT SLET SECTOR FP218380 0B82 6A19 1840 | STX 2 C0650 SAVE RLTV LOC IN SLET SCTR FP218390 0B83 1000 1841 | C0640 NOP A WAIT MAY BE PATCHED HERE FP218400 0B84 C400 0EBF 1842 | LD L BUFR3+1 SAVE PRESENT SLET SECTOR FP218410 0B86 D0AA 1843 | STO C0950 *ADDRESS FP218420 1844 | * FP218430 0B87 C400 0203 1845 | LD L LET00 'FROM' ADDR IS START 2-4 FP218440 0B89 D3F0 1846 | STO 3 BY917-X *OF LET TABLE 2-4 FP218450 0B8A C318 1847 | LD 3 BY958-X 'TO' ADDR IS SUCH THAT 2-4 FP218460 0B8B 9400 0204 1848 | S L SHIFT *LET/UA IS SHIFTED UP 2-4 FP218470 0B8D D3F1 1849 | STO 3 BY918-X *AGAINST SYSTEM LOADER 2-4 FP218480 0B8E C400 0204 1850 | LD L SHIFT NUMBER OF SECTORS TO 2-4 FP218490 0B90 D329 1851 | STO 3 BY978-X *SHIFT IS LENGTH LET/UA 2-4 FP218500 0B91 4400 0A5E 1852 | BSI L C0300 SHIFT UA TOWARD END DISK FP218510 0B93 C09D 1853 | LD C0950 SAVED SLET SCTR ADDR FP218520 0B94 D400 0EBF 1854 | STO L BUFR3+1 FETCH CURRENT FP218530 0B96 4400 070E 1855 | BSI L FTCH3 *SLET SECTOR FP218540 0B98 6680 0B9C 1856 | LDX I2 C0650 RESTORE RLTV LOC POINTER FP218550 0B9A 4C00 09E9 1857 | BSC L C0060 BR TO PROCESS PHASE FP218560 1858 | * FP218570 1859 | * CONSTANTS AND WORK AREAS FP218580 1860 | * FP218590 0B9C 0000 1861 | C0650 DC *-* TEMPORARY XR2 STORAGE FP218600 1862 | * FP218610 0B9D 7402 0B3D 1863 | C0655 MDX L C0610+1,2 ADVANCE POINTER NEXT PAIR FP218620 0B9F C480 0B3D 1864 | LD I C0610+1 LOAD 1ST PH ID OF NEW PAIR FP218630 0BA1 93D3 1865 | S 3 BX901-X SET UP AN ID ONE LESS TO FP218640 0BA2 D33D 1866 | STO 3 BZ913-X *USE IN SEQUENCE TEST FP218650 0BA3 70B7 1867 | MDX C0622 BR TO MAKE MORE CHECKS FP218660 1868 | * FP218670 0BA4 4C28 0BAC 1869 | C0660 BSC L C0670,+Z OUT OF SEQ OR MISSING PHASE FP218680 0BA6 C3EB 1870 | LD 3 BY912-X RESET FOR RETRY FP218690 0BA7 D3EA 1871 | STO 3 BY911-X PREVIOUS PHASE ID FP218700 0BA8 4400 07D8 1872 | BSI L ER024 PHASE MISSING FROM PROGRAM FP218710 0BAA 4400 06F7 1873 | BSI L BYPAS BR TO BYPASS THIS PHASE FP218720 1874 | * FP218730 0BAC C3EB 1875 | C0670 LD 3 BY912-X RESET FOR RETRY FP218740 0BAD D3EA 1876 | STO 3 BY911-X FP218750 0BAE 4400 07D0 1877 | BSI L ER023 PH NO. OUT OF SEQUENCE FP218760 1878 | * FP218770 0BB0 CC80 0B3D 1879 | C0680 LDD I C0610+1 CHECK PHASE ID PAIR FP218780 0BB2 4420 07E4 1880 | BSI L ER025,Z PH ID NOT IN PHID RECORD FP218790 1881 | * FP218800 0BB4 7402 0B3D 1882 | C0690 MDX L C0610+1,2 POINT TO NEXT PAIR FP218810 0BB6 C086 1883 | LD C0610+1 FP218820 0BB7 9334 1884 | S 3 BZ904-X TEST FOR PAIR NUMBER FP218830 0BB8 4430 07E4 1885 | BSI L ER025,Z- ERROR IF BEYOND LAST PAIR FP218840 0BBA 7081 1886 | MDX C0610 TEST IF PH ID IN THIS PAIR FP218850 1887 | * FP218860 0BBB CC80 0B3D 1888 | C0695 LDD I C0610+1 FETCH CURRENT PROG ID PAIR FP218870 0BBD 18D0 1889 | C0700 RTE 16 *OTHERWISE SET SW TO PASS FP218880 0BBE 83D3 1890 | A 3 BX901-X *PHASES UNTIL FP218890 0BBF D3F8 1891 | STO 3 BY926-X *NEXT PAIR FP218900 0BC0 D3F7 1892 | STO 3 BY925-X *FROM PHASE ID RCD REACHED FP218910 0BC1 4400 0812 1893 | BSI L ER029 DISPLAY 'PROGRAM NOT FOUND' FP218920 1894 | * FP218930 0BC3 C338 1895 | C0710 LD 3 BZ908-X THE SW FOR ADDING A PROG FP218940 0BC4 4C20 0BAC 1896 | BSC L C0670,Z *SHOULD BE OFF, ELSE ERROR FP218950 0BC6 4400 09EF 1897 | BSI L C0100 FORCE A HOLE IN SLET FP218960 1898 | * FP218970 1899 | * UPON RETURN SYSTEM WILL BE EXPANDED INTO CUSHION FP218980 1900 | * TO MAKE ROOM FOR ADDED PHASE FP218990 1901 | * FP219000 0BC8 C10B 1902 | LD 1 11 FETCH ID OF PHASE TO ADD FP219010 0BC9 4400 0722 1903 | BSI L SSLET SEARCH FOR DUMMY SLET ENTRY FP219020 0BCB 4C80 0B3B 1904 | BSC I C0600 RETURN WITH SLET SET IN TOW FP219030 1905 | * FP219040 1906 | *************************************************** FP219050 1907 | * FP219060 1908 | * REMOVE A RELOAD TABLE ENTRY IF PRESENT FP219070 1909 | * IN DISK RELOAD TABLE FP219080 1910 | * FP219090 0BCD 0000 1911 | C0720 DC 0 ENTRY/RETURN ADDRESS FP219100 0BCE C400 0D7B 1912 | LD L BUFR2+1 FP219110 0BD0 D02B 1913 | STO C0970 SAVE SECTOR ADDRESS FP219120 0BD1 C3D8 1914 | LD 3 BX906-X FP219130 0BD2 D400 0D7B 1915 | STO L BUFR2+1 FP219140 0BD4 4400 0702 1916 | BSI L FTCH2 READ RELOAD TBL INTO BUFR2 FP219150 0BD6 6A1E 1917 | STX 2 C0760+1 SAVE XR2 FP219160 0BD7 6600 0D7C 1918 | LDX L2 BUFR2+2 ADDR FIRST DATA WORD FP219170 0BD9 C200 1919 | C0730 LD 2 0 PHASE ID FROM RELOAD TABLE FP219180 0BDA 910B 1920 | S 1 11 NEW PHASE ID FP219190 0BDB 4C18 0BE3 1921 | BSC L C0740,+- FOUND THE TABLE ENTRY FP219200 0BDD C200 1922 | LD 2 0 STOP SEARCH IF END OF FP219210 0BDE F31E 1923 | EOR 3 BY965-X *RELOAD TABLE FP219220 0BDF 4C18 0BF4 1924 | BSC L C0760,+- BR TO RETURN FP219230 0BE1 7203 1925 | MDX 2 3 GO TRY NEXT 3 WORD ENTRY FP219240 0BE2 70F6 1926 | MDX C0730 *IN RELOAD TABLE FP219250 0BE3 C203 1927 | C0740 LD 2 3 SHIFT REST OF RELOAD TABLE FP219260 0BE4 D200 1928 | STO 2 0 *3 PLACES LEFT FP219270 0BE5 F31E 1929 | EOR 3 BY965-X IS IT /FFFF FP219280 0BE6 4C18 0BEE 1930 | BSC L C0750,+- YES, END OF TABLE FP219290 0BE8 C204 1931 | LD 2 4 THIS 3 WORD SHIFT REMOVES FP219300 0BE9 D201 1932 | STO 2 1 *THE FOUND ENTRY FROM THE FP219310 0BEA C205 1933 | LD 2 5 *TABLE FP219320 0BEB D202 1934 | STO 2 2 FP219330 0BEC 7203 1935 | MDX 2 3 FP219340 0BED 70F5 1936 | MDX C0740 LOOP UNTIL END OF TABLE FP219350 0BEE 1810 1937 | C0750 SRA 16 MAKE SURE 3 WORDS AFTER FP219360 0BEF D201 1938 | STO 2 1 */FFFF ARE ZEROES FP219370 0BF0 D202 1939 | STO 2 2 FP219380 0BF1 D203 1940 | STO 2 3 FP219390 1941 | * FP219400 1942 | * NOTE.. CHECKSUM HAS NOT BEEN ALTERED FP219410 1943 | * FP219420 0BF2 4400 0764 1944 | BSI L WRIT2 WRITE BACK RELOAD TABLE FP219430 0BF4 6600 0000 1945 | C0760 LDX L2 *-* RESTORE XR2 FP219440 0BF6 C005 1946 | LD C0970 RETRIEVE AND RESTORE FP219450 0BF7 D400 0D7B 1947 | STO L BUFR2+1 *SECTOR ADDRESS FP219460 0BF9 C10B 1948 | LD 1 11 RELOAD PHASE ID FP219470 0BFA 4C80 0BCD 1949 | BSC I C0720 RETURN FP219480 1950 | * FP219490 1951 | * CONSTANTS AND WORK AREAS FP219500 1952 | * FP219510 0BFC 0000 1953 | C0970 DC *-* SAVED SECTOR ADDRESS FP219520 1954 | * FP219530 1955 | * FP219540 0BFD 1956 | BSS C0000+2*@SCNT-*-1 PATCH AREA FP219550 1957 | * FP219560 1958 | * FP219570 0C37 1959 | C0999 EQU *-1 END OF OVERLAY 0 FP219580 BUFFER AREAS 1961 | * FP219600 1962 | * RELOAD TABLE BUFFER FP219610 1963 | * FP219620 0C38 1964 | ORG @MNCR-3*@SCNT-8 FP219630 0C38 0001 1965 | BUFR1 DC 1 WORD COUNT FP219640 0C39 0006 1966 | DC @RLTB SECTOR ADDRESS FP219650 1967 | * FP219660 1968 | * SECTOR BUFFER FP219670 1969 | * FP219680 0D7A 1970 | ORG @MNCR-2*@SCNT-6 FP219690 0D7A 0140 1971 | BUFR2 DC @SCNT WORD COUNT FP219700 0D7B 0F0F 1972 | DC /0F0F SECTOR ADDRESS FP219710 1973 | * 2-4 FP219720 1974 | * PERFORM 3 FUNCTIONS AT START OF PHASE 2. 2-4 FP219730 1975 | * THEN THIS IS OVERLAID BY DISK BUFFER. 2-4 FP219740 1976 | * 2-4 FP219750 0D7C 0000 1977 | B0000 DC 0 ENTRY/RETURN ADDRESS FP219760 1978 | * 2-4 FP219770 1979 | * CLEAR SIGN BITS FROM SCTR ADDRS IN SLET TABLE 2-4 FP219780 1980 | * 2-4 FP219790 0D7D C315 1981 | LD 3 BY955-X FETCH AND FP219800 0D7E D400 0EBF 1982 | STO L BUFR3+1 *STORE 1ST SLET SCTR ADDR FP219810 0D80 4400 070E 1983 | C3620 BSI L FTCH3 BR TO FETCH A SLET SECTOR FP219820 0D82 6680 0916 1984 | LDX I2 BY913 XR2 POINTS TO 1ST SLET WD FP219830 0D84 C203 1985 | C3640 LD 2 3 FETCH THE SECTOR ADDRESS FP219840 0D85 E325 1986 | AND 3 BY974-X MASK OUT SIGN BIT FP219850 0D86 D203 1987 | STO 2 3 RESTORE SECTOR ADDRESS FP219860 0D87 6A10 1988 | STX 2 C3960 PLACE POINTER FP219870 0D88 C00F 1989 | LD C3960 *IN ACCUMULATOR FP219880 0D89 93ED 1990 | S 3 BY914-X TEST FOR AND BR FP219890 0D8A 4C18 0D8E 1991 | BSC L C3660,+- *IF SECTOR COMPLETED FP219900 0D8C 7204 1992 | MDX 2 4 INCREMENT FOR NEXT SET FP219910 0D8D 70F6 1993 | MDX C3640 BRANCH FOR NEXT SET FP219920 0D8E 4400 078F 1994 | C3660 BSI L WRIT3 BRANCH TO WRITE SLET SCTR FP219930 0D90 C400 0EBF 1995 | LD L BUFR3+1 FETCH SLET SCTOR ADDRESS FP219940 0D92 9316 1996 | S 3 BY956-X TEST FOR AND BR FP219950 0D93 4C10 0D99 1997 | BSC L B0010,- *IF LAST SLET SECTOR 2-4 FP219960 0D95 7401 0EBF 1998 | MDX L BUFR3+1,1 INCREMENT SLET SCTR ADDRESS FP219970 0D97 70E8 1999 | MDX C3620 BR TO FETCH NEXT SLET SCTR FP219980 0D98 0000 2000 | C3960 DC *-* TEMPORARY XR2 STORAGE FP219990 2001 | * FP220000 2002 | * LOCATE HIGHEST PHASE ID IN SLET AND SAVE FOR FP220010 2003 | * RELOAD PROCESSING. THIS SUBR EXECUTED ONCE ONLY. FP220020 2004 | * THEN OVERLAID BY DISK BUFFER. FP220030 2005 | * FP220040 0D99 C315 2006 | B0010 LD 3 BY955-X FETCH AND STORE SLET FP220050 0D9A D400 0EBF 2007 | STO L BUFR3+1 *SCTR ADDR IN I/O BUFFER FP220060 0D9C 4400 070E 2008 | B0020 BSI L FTCH3 BR TO FETCH A SLET SECTOR FP220070 0D9E 6600 FEC0 2009 | LDX L2 -320 WORDS PER SECTOR FP220080 0DA0 C600 1000 2010 | B0040 LD L2 BUFR3+322 FETCH PHASE ID FROM SLET FP220090 0DA2 4C18 0DBB 2011 | BSC L C0800,+- BR IF END OF SLET 2-4 FP220100 0DA4 C600 1000 2012 | LD L2 BUFR3+322 FETCH AND FP220110 0DA6 D3F6 2013 | STO 3 BY924-X *STORE LARGEST PHASE ID FP220120 0DA7 C600 1002 2014 | LD L2 BUFR3+324 WD COUNT OF LAST PHASE FP220130 0DA9 83DD 2015 | A 3 BX913-X ADD WORDS/SECTOR - 1 2-4 FP220140 0DAA 1890 2016 | SRT 16 SHIFT INTO EXTENSION FP220150 0DAB ABDE 2017 | D 3 BX914-X DIVIDE BY WORDS PER SECTOR FP220160 0DAC 8600 1003 2018 | A L2 BUFR3+325 ADD BEGINNING SCTR ADDR FP220170 0DAE D3E9 2019 | STO 3 BY910-X FIRST AVIALABLE SECTOR 2-4 FP220180 0DAF 93D3 2020 | S 3 BX901-X SUB 1 2-4 FP220190 0DB0 D304 2021 | STO 3 BY937-X LAST SECTOR USED 2-4 FP220200 0DB1 7204 2022 | MDX 2 4 FP220210 0DB2 70ED 2023 | MDX B0040 LOOP WITHIN SECTOR FP220220 0DB3 7401 0EBF 2024 | MDX L BUFR3+1,1 INCREMENT SLET SCTR ADDRESS FP220230 0DB5 C400 0EBF 2025 | LD L BUFR3+1 CHECK IF THREE SLET FP220240 0DB7 9315 2026 | S 3 BY955-X *SECTORS HAVE BEEN FP220250 0DB8 93F4 2027 | S 3 BY922-X *PROCESSED FP220260 0DB9 4C28 0D9C 2028 | BSC L B0020,+Z IF NOT FETCH ANOTHER SECTOR FP220270 2029 | * 2-4 FP220280 2030 | * DURING START OF RELOAD, FIND EXISTING GAPS 2-4 FP220290 2031 | * BETWEEN SYSTEM PROGRAMS AND SHIFT THEM OUT 2-4 FP220300 2032 | * 2-4 FP220310 0DBB C315 2033 | C0800 LD 3 BY955-X SET SCTR ADDR TO FIRST 2-4 FP220320 0DBC D400 0EBF 2034 | STO L BUFR3+1 *SLET SECTOR 2-4 FP220330 0DBE C3D9 2035 | LD 3 BX908-X INITIALIZE EXPECTED SCTR2-4 FP220340 0DBF D3EE 2036 | STO 3 BY915-X *ADDR OF FIRST PHASE= 8 2-4 FP220350 0DC0 C400 0EBF 2037 | C0810 LD L BUFR3+1 TEST FOR END OF SLET 2-4 FP220360 0DC2 9316 2038 | S 3 BY956-X *TABLE SECTORS 2-4 FP220370 0DC3 4CB0 0D7C 2039 | BSC I B0000,-Z RETURN IF END OF SLET 2-4 FP220380 0DC5 4400 070E 2040 | BSI L FTCH3 FETCH NEST SLET SECTOR 2-4 FP220390 0DC7 6680 0916 2041 | LDX I2 BY913 POINT XR2 TO FIRST ENTRY2-4 FP220400 0DC9 C200 2042 | C0820 LD 2 0 RETURN IF END OF SLET 2-4 FP220410 0DCA 4C98 0D7C 2043 | BSC I B0000,+- *TABLE ENTRIES 2-4 FP220420 2044 | * TEST FOR AND SKIP 5 PRINCIPAL I/O SLET ENTRIES2-4 FP220430 0DCC 9021 2045 | S C0841 COMPARE WITH PRINT PH ID2-4 FP220440 0DCD 4C28 0DD2 2046 | BSC L C0822,Z+ BR IF .LT. PRINT 2-4 FP220450 0DCF 93D7 2047 | S 3 BX905-X COMPARE WITH PRINT+5 2-4 FP220460 0DD0 4C28 0DDF 2048 | BSC L C0825,Z+ BR IF PRINCIPAL I/O 2-4 FP220470 0DD2 C203 2049 | C0822 LD 2 3 GET SCTR ADDR OF PHASE 2-4 FP220480 0DD3 D3F0 2050 | STO 3 BY917-X SAVE AS 'FROM' ADDR 2-4 FP220490 0DD4 93EE 2051 | S 3 BY915-X TEST FOR GAP 2-4 FP220500 0DD5 4C20 0DE8 2052 | BSC L C0830,Z BR IF GAP FOUND 2-4 FP220510 0DD7 C202 2053 | LD 2 2 CALCULATE NUMBER 2-4 FP220520 0DD8 83DD 2054 | A 3 BX913-X *OF SECTORS 2-4 FP220530 0DD9 1890 2055 | SRT 16 *IN THIS PHASE 2-4 FP220540 0DDA ABDE 2056 | D 3 BX914-X *FROM WORD COUNT 2-4 FP220550 0DDB D30E 2057 | STO 3 BY947-X SAVE SCTR CNT THIS PHASE2-4 FP220560 0DDC C203 2058 | LD 2 3 GET SCTR ADDR OF PHASE 2-4 FP220570 0DDD 830E 2059 | A 3 BY947-X ADD LENGTH OF THIS PHASE2-4 FP220580 0DDE D3EE 2060 | STO 3 BY915-X *TO GET ADDR NEXT PHASE 2-4 FP220590 0DDF 7204 2061 | C0825 MDX 2 4 ADVANCE SLET POINTER 2-4 FP220600 0DE0 6A0C 2062 | STX 2 C0840 IS XR2 POINTER 2-4 FP220610 0DE1 C00B 2063 | LD C0840 *BEYOND ADDR LAST SLET 2-4 FP220620 0DE2 93ED 2064 | S 3 BY914-X *ENTRY IN SECTOR 2-4 FP220630 0DE3 4C08 0DC9 2065 | BSC L C0820,+ BR IF MORE IN SECTOR 2-4 FP220640 0DE5 7401 0EBF 2066 | MDX L0 BUFR3+1,1 INCR SLET SCTR ADDR BY 12-4 FP220650 0DE7 70D8 2067 | MDX C0810 BR TO READ NEXT SECTOR 2-4 FP220660 2068 | * 2-4 FP220670 0DE8 C3EE 2069 | C0830 LD 3 BY915-X SET 'TO' ADDR TO ADDR 2-4 FP220680 0DE9 D3F1 2070 | STO 3 BY918-X *OF GAP 2-4 FP220690 0DEA 4400 0555 2071 | BSI L BD099 GO TO UPDATE/SHIFT SUBR 2-4 FP220700 0DEC 70CE 2072 | MDX C0800 LOOP UNTIL NO GAPS LEFT 2-4 FP220710 0DED 0000 2073 | C0840 DC *-* TEMP STORAGE FOR XR2 2-4 FP220720 0DEE 0099 2074 | C0841 DC PRINT PH ID OF PRINCIPAL PRINT2-4 FP220730 2075 | * FP220740 0EBC 2076 | ORG B0000+@SCNT SECTOR BUFFER FP220750 0EBC 0F0F 2077 | B2END DC /0F0F INDICATES END OF BUFFER FP220760 0EBD 0000 2078 | DC *-* AVAILABLE FP220770 2079 | * FP220780 2080 | * SLET BUFFER FP220790 2081 | * FP220800 0EBE 2082 | ORG @MNCR-@SCNT-2 FP220810 0EBE 0140 2083 | BUFR3 DC @SCNT WORD COUNT FP220820 0EBF 0003 2084 | DC @SLET SECTOR ADDRESS FP220830 *SBRK XX 2085 | *SYS LDR - PHASE 2 - OVERLAY 1 FP220840 OVERLAY 1 - INITIAL LOAD 09B6 2087 | ORG OVLAY BEGIN IN OVERLAY AREA FP220860 2088 | * FP220870 2089 | * FP220880 09B6 0280 2090 | DC C1999-C1000+2 WORD CNT OF OVERLAY 1 FP220890 09B7 0635 2091 | DC @P2AD+5 SCTR ADDR OF OVERLAY 1 FP220900 2092 | * FP220910 2093 | * DECK TO BE LOADED MUST INCLUDE ALL PHASES FP220920 2094 | * INDICATED ON PHID RECORD. FP220930 2095 | * FP220940 09B8 0001 2096 | DC 1 INDICATES OVERLAY 1 FP220950 09B9 1000 2097 | C1000 NOP A WAIT MAY BE PATCHED HERE FP220960 2098 | * FP220970 2099 | * THE ADDR IN NEXT INST HAS BEEN MODIFIED SO THAT FP220980 2100 | * XR2 WILL POINT TO LOC OF THIS PH IN SLET SECTOR FP220990 2101 | * FP221000 09BA 6600 0EC0 2102 | C1020 LDX L2 BUFR3+2 MODIFIABLE ADDRESS FP221010 09BC C10B 2103 | LD 1 11 OBTAIN PHASE ID FP221020 09BD 93F6 2104 | S 3 BY924-X IF LAST PH OF LAST PAIR FP221030 09BE 4818 2105 | BSC +- *IS PROCESSED, SWITCH FP221040 09BF D3FD 2106 | STO 3 BY931-X *WILL BE SET ON, TO ZERO FP221050 09C0 C10B 2107 | LD 1 11 PHASE ID NUMBER FP221060 09C1 93E8 2108 | S 3 BY909-X COMPARE WITH 1ST PROG PH FP221070 2109 | * FP221080 2110 | * FOLLOWING 'NOP' MAY BE MODIFIED TO 'MDX C1050' FP221090 2111 | * FP221100 09C2 1000 2112 | C1030 NOP BR TO NEXT INST OR 'C1050' FP221110 09C3 4C18 09C8 2113 | BSC L C1050,+- BR IF STARTING PH PRESENT FP221120 09C5 C3E8 2114 | LD 3 BY909-X IF 1ST PH ID OF PAIR IS FP221130 09C6 4C10 09D4 2115 | BSC L C1064,- *NEG, MATCH NOT REQUIRED FP221140 09C8 C322 2116 | C1050 LD 3 BY970-X CANCEL FIRST PHASE TRAP FP221150 09C9 D0F8 2117 | STO C1030 SETUP SKIP TO 'C1050' FP221160 09CA 401F 2118 | BSI C1200 TO TEST PH ID LIMITS FP221170 2119 | * FP221180 09CB C400 0EBF 2120 | LD L BUFR3+1 IF CURRENT SLET SECTOR FP221190 09CD 9316 2121 | S 3 BY956-X *ADDR .GT. END SLET ADDR FP221200 09CE 4430 080C 2122 | BSI L ER028,-Z *BR TO ERROR E 28 SLET FULL FP221210 09D0 4400 0741 2123 | BSI L UPCAD SET UP CORE ADDR IN SLET FP221220 09D2 4C00 0608 2124 | BSC L BE200 RETURN FROM OVERLAY 1 FP221230 2125 | * FP221240 09D4 C10B 2126 | C1064 LD 1 11 IF THE CURRENT PH IS LESS FP221250 09D5 93E8 2127 | S 3 BY909-X *THAN 1ST PH OF NEXT PROG, FP221260 09D6 4428 07E4 2128 | BSI L ER025,+Z *IT MUST BE EXTRANEOUS FP221270 09D8 4000 2129 | BSI C1070 *OTHERWISE A PH IS MISSING FP221280 2130 | * FP221290 2131 | *************************************************** FP221300 2132 | * FP221310 2133 | * IF LAST PH ID PHID RCRD HAS BEEN STORED DISPLAY FP221320 2134 | * PH ID NOT IN PHID RECORD AND SET SW TO PASS ALL FP221330 2135 | * ADDITIONAL PHASES. FP221340 2136 | * FP221350 09D9 0000 2137 | C1070 DC 0 ENTRY FP221360 09DA C3FD 2138 | LD 3 BY931-X TEST FOR LAST PH STORED FP221370 09DB 4C20 09E4 2139 | BSC L C1080,Z BR IF NOT FP221380 09DD C3D3 2140 | LD 3 BX901-X FP221390 09DE 100E 2141 | SLA 14 SET VERY LARGE NUMBER IN FP221400 09DF D3F8 2142 | STO 3 BY926-X *SWITCHES FP221410 09E0 D3F7 2143 | STO 3 BY925-X *TO BYPASS FP221420 09E1 D33B 2144 | STO 3 BZ911-X *SUCCEEDING PHASES FP221430 09E2 4400 07E4 2145 | BSI L ER025 PH ID NOT IN PHID RCD FP221440 2146 | * FP221450 09E4 C3EB 2147 | C1080 LD 3 BY912-X RESET PH ID NUMBERS FP221460 09E5 D3EA 2148 | STO 3 BY911-X *TO PREVIOUS VALUE FP221470 09E6 4400 07D8 2149 | BSI L ER024 BR TO PRINT MESSAGE E 14 FP221480 09E8 4400 06F7 2150 | BSI L BYPAS BR TO BYPASS THIS PHASE FP221490 2151 | * FP221500 2152 | *************************************************** FP221510 2153 | * FP221520 2154 | * DETERMINE IF PHASE ID IS WITHIN ONE OF THE FP221530 2155 | * RANGES SPECIFIED ON PHID RECORD. FP221540 2156 | * FP221550 09EA 0000 2157 | C1200 DC 0 WHEN INDR IS NEG, THIS PAIR FP221560 09EB C3E5 2158 | LD 3 BY905-X *OF LIMITS IS COMPLETED FP221570 09EC 4C10 09F6 2159 | BSC L C1220,- FP221580 09EE 7402 09F7 2160 | C1210 MDX L C1220+1,2 MODIFY ADDR TO NEXT PAIR FP221590 09F0 C480 09F7 2161 | LD I C1220+1 TEST FOR BLANK PHID PAIR FP221600 09F2 4C18 09EE 2162 | BSC L C1210,+- ADVANCE BY 2 IF BLANK FP221610 09F4 C320 2163 | LD 3 BY967-X FETCH A SKIP INSTRUCTION FP221620 09F5 D003 2164 | STO C1230-1 RESET MDX TO 7000 FP221630 09F6 CC00 0222 2165 | C1220 LDD L PAIR1 MODIFIABLE LOAD ADDRESS FP221640 09F8 DBE4 2166 | STD 3 BY904-X STORE THE CURRENT ID PAIR FP221650 09F9 7000 2167 | MDX C1230 GO TO 'C1230' OR C1290' FP221660 2168 | * FP221670 09FA 7429 09F9 2169 | C1230 MDX L C1230-1,C1290-C1230 MODIFY BRANCH FP221680 09FC E323 2170 | AND 3 BY972-X MASK BITS 0 AND 1 FP221690 09FD 93EA 2171 | S 3 BY911-X DOES PH ID MATCH 'BY904' FP221700 09FE 4C18 0A1D 2172 | BSC L C1270,+- BRANCH IF YES FP221710 2173 | * FP221720 2174 | * A PHASE OF A SYSTEM PROGRAM (ASM AND/OR FOR) FP221730 2175 | * MAY BE BYPASSED. FP221740 2176 | * FP221750 0A00 C400 0223 2177 | C1240 LD L PAIR1+1 LD 2ND ENTRY OF 1ST PAIR FP221760 0A02 E323 2178 | AND 3 BY972-X MASK BITS 0 AND 1 FP221770 0A03 93EA 2179 | S 3 BY911-X ESTABLISH WHICH PAIR THIS FP221780 0A04 4C10 0A11 2180 | BSC L C1260,- PH IS IN. BR IF WITHIN FP221790 0A06 C3E4 2181 | LD 3 BY904-X IF THIS PAIR IS TO BE FP221800 0A07 4410 09D9 2182 | BSI L C1070,- *BYPASSED, PREPARE TO FP221810 0A09 7402 0A01 2183 | MDX L C1240+1,2 LOOK FOR ID IN NEXT PAIR FP221820 0A0B 7402 0A12 2184 | MDX L C1260+1,2 POINT TO NEXT PAIR FP221830 0A0D 7402 0A2E 2185 | MDX L C1310+1,2 POINT TO NEXT PAIR FP221840 0A0F D041 2186 | STO C1920 SET SEQ CHECK SW NEG. FP221850 0A10 70DD 2187 | MDX C1210 BR TO ESTABLISH BOUNDS FP221860 2188 | * FP221870 0A11 C400 0222 2189 | C1260 LD L PAIR1 TRY THIS PAIR FP221880 0A13 E323 2190 | AND 3 BY972-X MASK OUT BITS 0 AND 1 FP221890 0A14 93EA 2191 | S 3 BY911-X COMPARE CURRENT PHASE ID FP221900 0A15 4430 07E4 2192 | BSI L ER025,-Z BR IF ID NOT IN PHID RECORD FP221910 0A17 C480 0A12 2193 | LD I C1260+1 TEST IF 'BY904' IS NEG FP221920 0A19 4410 09D9 2194 | BSI L C1070,- MISSING PHASE IF NOT FP221930 0A1B 4400 06F7 2195 | BSI L BYPAS BR TO BYPASS THIS PHASE FP221940 2196 | * FP221950 0A1D C3E4 2197 | C1270 LD 3 BY904-X COMPARE THE HIGH AND LOW ID FP221960 0A1E 93E5 2198 | S 3 BY905-X IF ONLY 1 PH IN PH ID PAIR FP221970 0A1F 4C20 0A47 2199 | BSC L C1360,Z *DO NOT BRANCH FP221980 0A21 C0FF 2200 | LD *-1 SET SEQ CHECK SW ON FP221990 0A22 D02E 2201 | STO C1920 FP222000 0A23 C3E5 2202 | C1290 LD 3 BY905-X COMPARE CURRENT PH WITH FP222010 0A24 93EA 2203 | S 3 BY911-X *HIGH ID OF PAIR FP222020 0A25 4C20 0A33 2204 | BSC L C1320,Z BR IF DIFFERENT FP222030 0A27 C0FF 2205 | C1300 LD *-1 SET 'BY905' NEGATIVE FP222040 0A28 D3E5 2206 | STO 3 BY905-X *TO INDICATE PAIR COMPLETED FP222050 0A29 D027 2207 | STO C1920 SET SEQ CHECK SW ON FP222060 0A2A C31F 2208 | LD 3 BY966-X REINSTATE 1ST PH TEST FP222070 0A2B D400 09C2 2209 | STO L C1030 *FOR NEXT PAIR FP222080 0A2D C400 0224 2210 | C1310 LD L PAIR2 RESET TO BEGINNING PH ID FP222090 0A2F D3E8 2211 | STO 3 BY909-X *OF NEXT PAIR FP222100 0A30 7402 0A2E 2212 | MDX L C1310+1,2 ADVANCE THE POINTER FP222110 0A32 7014 2213 | MDX C1360 TEST FOR BYPASS FP222120 2214 | * FP222130 0A33 4428 0A4C 2215 | C1320 BSI L C1380,Z+ BR IF EXTRANEOUS PHASE FP222140 0A35 C01B 2216 | LD C1920 NO SEQUENCE CHECK IF FP222150 0A36 4C28 0A41 2217 | BSC L C1350,+Z *INDICATOR IS NEGATIVE FP222160 0A38 C3EA 2218 | LD 3 BY911-X TEST FOR SEQUENCE WITH FP222170 0A39 93EB 2219 | S 3 BY912-X *PREVIOUS PHASE ID UNLESS FP222180 0A3A 93D3 2220 | S 3 BX901-X *THIS PHASE FOLLOWS A FP222190 0A3B 4C18 0A41 2221 | BSC L C1350,+- *BYPASSED PROGRAM FP222200 0A3D 4428 0A4C 2222 | BSI L C1380,+Z DISPLAY PH OUT OF SEQ FP222210 0A3F 4400 09D9 2223 | BSI L C1070 DISPLAY PHASE MISSING FP222220 0A41 1810 2224 | C1350 SRA 16 RE-INSTATE SEQ CHECK FP222230 0A42 D00E 2225 | STO C1920 *FOR CONSECUTIVE PHASES FP222240 0A43 C3EA 2226 | LD 3 BY911-X COMPARE CURRENT PH ID WITH FP222250 0A44 93E5 2227 | S 3 BY905-X *THE NON-NEG UPPER ID. IF FP222260 0A45 4C18 0A27 2228 | BSC L C1300,+- *NOT =, CONTINUE UNTIL =. FP222270 0A47 C3E4 2229 | C1360 LD 3 BY904-X FP222280 0A48 4428 06F7 2230 | BSI L BYPAS,+Z BR TO BYPASS THIS PHASE FP222290 0A4A 4C80 09EA 2231 | BSC I C1200 RETURN FP222300 2232 | * FP222310 0A4C 0000 2233 | C1380 DC 0 ENTRY FP222320 0A4D C3EB 2234 | LD 3 BY912-X RESET PHASE ID FP222330 0A4E D3EA 2235 | STO 3 BY911-X *TO PREVIOUS PHASE ID FP222340 0A4F 4400 07D0 2236 | BSI L ER023 BRANCH TO PRINT MSG E 23 FP222350 2237 | * FP222360 2238 | * CONSTANTS AND WORK AREAS FP222370 2239 | * FP222380 0A51 0000 2240 | C1920 DC *-* SEQ CHECK INDICATOR FP222390 2241 | * FP222400 2242 | *************************************************** FP222410 2243 | * FP222420 2244 | * ENTERED ON INITIAL LOADS FROM SCTR BK PROCESSING FP222430 2245 | * FP222440 2246 | * ON INITIAL LOAD SETS THE 5 PHASE IDS FOR THE FP222450 2247 | * PRINCIPAL I/O SUBROUTINES AFTER THE DISKN ID. FP222460 2248 | * FP222470 0A52 0000 2249 | C1400 DC 0 ENTRY/RETURN ADDR TO SUBR FP222480 0A53 C400 022D 2250 | LD L PAIR6+1 TEST IF DISKN WAS LAST FP222490 0A55 93EA 2251 | S 3 BY911-X *PHASE ID TO BE STORED FP222500 0A56 4C20 0A72 2252 | BSC L C1460,Z IF NOT DISKN, RETURN FP222510 0A58 C3D7 2253 | LD 3 BX905-X SET COUNTER TO 5 I/O PHA FP222520 0A59 D01B 2254 | STO C1942 *TO HAVE PRINC IO PH ID SET FP222530 0A5A 6A19 2255 | C1440 STX 2 C1941 TEST IF SLET SECTOR FULL FP222540 0A5B C018 2256 | LD C1941 FP222550 0A5C 93ED 2257 | S 3 BY914-X LAST VALID SLET SET ADDRESS FP222560 0A5D 4C08 0A61 2258 | BSC L C1450,+ BR IF SECTOR NOT FULL FP222570 2259 | * WRITE SLET SECTOR TO DISK FP222580 0A5F 4400 0585 2260 | BSI L BD200 *AND BR TO READ NEXT SECTOR FP222590 0A61 C014 2261 | C1450 LD C1943 STORE PRINCIPLE I/O PHASE FP222600 0A62 D200 2262 | STO 2 0 *ID IN SLET SET FP222610 0A63 7204 2263 | MDX 2 4 INCR POINTER ONE SLET SET FP222620 0A64 7401 0A76 2264 | MDX L C1943,1 INCR I/O PHASE ID FP222630 0A66 74FF 0A75 2265 | MDX L C1942,-1 DECR AND TEST LOOP COUNTER FP222640 0A68 70F1 2266 | MDX C1440 LOOP FOR 5 I/O PHASE IDS FP222650 0A69 6E00 09BB 2267 | STX L2 C1020+1 SAVE ADDR OF NEXT SLET SET FP222660 0A6B C400 09BB 2268 | LD L C1020+1 FP222670 0A6D 93ED 2269 | S 3 BY914-X LAST VALID SLET SET ADDRESS FP222680 0A6E 4C08 0A72 2270 | BSC L C1460,+ BR IF SECTOR NOT FULL FP222690 0A70 6C00 091D 2271 | STX L0 BY920 SET SLET SCTR FULL INDC ON FP222700 0A72 4C80 0A52 2272 | C1460 BSC I C1400 RETURN FP222710 2273 | * FP222720 2274 | * WORK AREAS FP222730 2275 | * FP222740 0A74 0000 2276 | C1941 DC *-* WORD TO HOLD XR2 FOR CALC FP222750 0A75 0000 2277 | C1942 DC *-* LOOP COUNTER FP222760 0A76 0099 2278 | C1943 DC 153 PRINCIPLE I/O PH IDS FP222770 2279 | * FP222780 2280 | * FP222790 0A77 2281 | BSS C1000+2*@SCNT-*-1 PATCH AREA FP222800 2282 | * FP222810 2283 | * FP222820 0C37 2284 | C1999 EQU *-1 END OF OVERLAY 1 FP222830 *SBRK XX 2285 | *SYS LDR - PHASE 2 - OVERLAY 2 FP222840 OVERLAY 2 - INITLZ RES MON/IMAGE,DCOM 2287 | * FP222860 2288 | * DCOM RELATIVE EQUATES FP222870 2289 | * FP222880 0008 2290 | #SYSC EQU 8 SYS/NON-SYS CART INDR FP222890 0011 2291 | #RP67 EQU 17 1442 MODEL 6 OR 7 INDICATOR FP222900 0019 2292 | #PIOD EQU 25 PRINCIPLE I/O DEVICE INDR FP222910 001A 2293 | #PPTR EQU 26 PRINCIPLE PRINT DEVICE INDR FP222920 001B 2294 | #CIAD EQU 27 RLTV LOC OF CIL SCTR ADDR FP222930 0023 2295 | #ANDU EQU 35 ADJUSTED END OF USER AREA FP222940 0028 2296 | #BNDU EQU 40 BASE END OF USER AREA FP222950 002D 2297 | #FPAD EQU 45 FILE PROTECT ADDRESS FP222960 2298 | * FP222970 0037 2299 | #CIDN EQU 55 CARTRIDGE ID FP222980 003C 2300 | #CIBA EQU 60 SECTOR ADDRESS OF CIB FP222990 0041 2301 | #SCRA EQU 65 SECTOR ADDRESS OF SCRA FP223000 0050 2302 | #ULET EQU 80 SECTOR ADDRESS OF LET FP223010 005A 2303 | #CSHN EQU 90 CUSHION SECTOR COUNT FP223020 2304 | * FP223030 2305 | * OTHER EQUATES FP223040 2306 | * FP223050 0050 2307 | Y EQU 80 MIDDLE OF RESIDENT IM/MON FP223060 00F7 2308 | @DKIP EQU DZ000+5 DISKZ INTERRUPT ENTRY POINT FP223070 2309 | * FP223080 2310 | * FP223090 09B6 2311 | ORG OVLAY BEGIN IN OVERLAY AREA FP223100 2312 | * FP223110 2313 | * FP223120 09B6 0280 2314 | DC C2999-C2000+2 WORD CNT OF OVERLAY 2 FP223130 09B7 063A 2315 | DC @P2AD+5+2+3 SCTR ADDR OF OVERLAY 2 FP223140 2316 | * FP223150 2317 | * FP223160 09B8 0002 2318 | DC 2 INDICATES OVERLAY 2 FP223170 09B9 1000 2319 | C2000 NOP A WAIT MAY BE PATCHED HERE FP223180 2320 | * FP223190 2321 | * FILL IN RESERVED SLET AREA WITH PRINCIPAL PRINT, FP223200 2322 | * I/O AND CONVERSION ENTRIES. FP223210 2323 | * FP223220 09BA C480 09DC 2324 | C2010 LD I C2900 FETCH ADDR OF PHASE ID ENT FP223230 09BC D003 2325 | STO C2020+1 *INDIRECTLY, SET BY REQ CRD FP223240 09BD 4C18 09EC 2326 | BSC L C2040,+- WHEN COMPLETE BR TO CONT FP223250 09BF C400 0000 2327 | C2020 LD L *-* FETCH I/O SUBR PHASE ID FP223260 09C1 4400 0722 2328 | BSI L SSLET BRANCH TO SEARCH SLET FP223270 09C3 4418 082A 2329 | BSI L ER032,+- BR IF NOT IN SLET TABLE FP223280 09C5 C201 2330 | LD 2 1 SAVE LAST FP223290 09C6 D022 2331 | STO C2903 *3 WORDS FP223300 09C7 CA02 2332 | LDD 2 2 *OF SLET FP223310 09C8 D821 2333 | STD C2904 *ENTRY FP223320 09C9 7401 09DC 2334 | MDX L C2900,1 INCR POINTER TO PH ID TABLE FP223330 09CB C480 09DC 2335 | C2030 LD I C2900 PH ID OF PRINCIPAL IO ENTRY FP223340 09CD 7401 09DC 2336 | MDX L C2900,1 INCR POINTER TO PH ID TABLE FP223350 09CF 4C18 09BA 2337 | BSC L C2010,+- IF 0 NO MORE STORES THIS ID FP223360 09D1 4400 0722 2338 | BSI L SSLET FIND ID TO RECEIVE ENTRY FP223370 09D3 4418 082A 2339 | BSI L ER032,+- BR IF NO PLACE RESERVED FP223380 09D5 C013 2340 | LD C2903 INSERT PREVIOUSLY FP223390 09D6 D201 2341 | STO 2 1 *SAVED 3 WORDS IN FP223400 09D7 C812 2342 | LDD C2904 *PRINCIPLE I/O FP223410 09D8 DA02 2343 | STD 2 2 *SLET ENTRY FP223420 09D9 4400 078F 2344 | BSI L WRIT3 BRANCH TO WRITE SLET SECTOR FP223430 09DB 70EF 2345 | MDX C2030 BRANCH TO STORE ENTRY TWICE FP223440 2346 | * FP223450 2347 | * CONSTANTS AND WORK AREAS FP223460 2348 | * FP223470 09DC 09DD 2349 | C2900 DC C2901 POINTER TO PH ID TABLE FP223480 09DD 021C 2350 | C2901 DC PTRID PH ID OF PRINC PRINT SUBR FP223490 09DE 0099 2351 | DC PRINT POINT TO ID OF PRINC PRINT FP223500 09DF 0000 2352 | DC 0 TO INDICATE END OF STORES FP223510 09E0 021E 2353 | DC RDRID POINT TO ID OF PRINC I/O FP223520 09E1 009A 2354 | DC PINPT PH ID OF PRINC INPUT SUBR FP223530 09E2 009B 2355 | DC PIDEV PRINC INPUT EXCLUDING KEYBD FP223540 09E3 0000 2356 | DC 0 TO INDICATE END OF STORES FP223550 09E4 021F 2357 | DC CNVID POINT TO ID OF PRINC CONV FP223560 09E5 009C 2358 | DC CNVRT PRINC SYS CONVERSION SUBR FP223570 09E6 009D 2359 | DC CVRT PRINC CONV EXCLUDING KEYBRD FP223580 09E7 0000 2360 | DC 0 TO INDICATE END OF STORES FP223590 09E8 0000 2361 | DC 0 TO INDICATE END OF TABLE FP223600 09E9 0000 2362 | C2903 DC *-* AREA TO SAVE LAST 3 WORDS FP223610 09EA 2363 | BSS E FORCE NEXT LOC TO BE EVEN FP223620 09EA 0000 2364 | C2904 DC *-* *OF A SLET FP223630 09EB 0000 2365 | DC *-* *ENTRY FP223640 2366 | * FP223650 2367 | * CANCEL RECORDS NO LONGER PERMITTED FP223660 2368 | * FP223670 09EC 6C00 078E 2369 | C2040 STX L0 W2902 CANCEL HIGH SCTR ADDR CHECK FP223680 09EE 6500 04E2 2370 | LDX L1 BC020+1 XR1 PTS TO RCRD TYPE BRANCH FP223690 09F0 C400 0A5B 2371 | LD L C2906 FETCH ADDR OF ERR SUBR E 21 FP223700 09F2 D100 2372 | STO 1 0 SECTOR FP223710 09F3 D106 2373 | STO 1 2*3 *BREAK, FP223720 09F4 D109 2374 | STO 1 3*3 *'F' AND FP223730 09F5 D10C 2375 | STO 1 4*3 *'81' RECORDS NOT PERMITTED FP223740 2376 | * FP223750 2377 | * FETCH CORE IMAGE LOADER SLET FOR DISKZ. FP223760 2378 | * FP223770 09F6 C400 022E 2379 | LD L PAIR6+2 FETCH PHASE ID OF CIL FP223780 09F8 4400 0722 2380 | BSI L SSLET BRANCH TO SEARCH SLET FP223790 09FA 4418 07FF 2381 | BSI L ER027,+- BRANCH IF CIL MISSING FP223800 09FC CA02 2382 | LDD 2 2 SAVE WORD COUNT FP223810 09FD DC00 01F0 2383 | STD L CILWC *AND SECTOR ADDRESS OF CIL FP223820 2384 | * FP223830 2385 | * UPDATE SINGLE ENTRIES IN DCOM FP223840 2386 | * (DCOM IS READ INTO 'BUFR3') FP223850 2387 | * FP223860 09FF 4400 0B1B 2388 | BSI L C2400 BRANCH TO READ DCOM FP223870 0A01 6600 0EC0 2389 | LDX L2 BUFR3+2 XR2 PTS TO 1ST WORD OF DCOM FP223880 0A03 C400 01F8 2390 | LD L T1442 STORE FP223890 0A05 D211 2391 | STO 2 #RP67 *1442-6 OR 7 INDICATOR FP223900 0A06 CC00 0220 2392 | LDD L PRNRD STORE FP223910 0A08 D219 2393 | STO 2 #PIOD *PRINCIPLE I/O FP223920 0A09 18D0 2394 | RTE 16 *AND PRINCIPAL PRINT FP223930 0A0A D21A 2395 | STO 2 #PPTR *INDICATORS FP223940 0A0B C400 01FA 2396 | LD L VERSN SAVE VERSION FP223950 0A0D D208 2397 | STO 2 #SYSC *AND MODIFICATION NUMBER FP223960 0A0E D400 00E0 2398 | STO L $SYSC *IN RESIDENT MONITOR 2-4 FP223970 0A10 C312 2399 | LD 3 BY951-X STORE RLTV LOC OF CIL SCTR FP223980 0A11 D21B 2400 | STO 2 #CIAD *ADDR IN @IDAD FOR DUP-DEF FP223990 2401 | * FP224000 2402 | * INITIALIZE RESIDENT IMAGE AND RESIDENT MONITOR. FP224010 2403 | * (RESIDENT IMAGE IS READ INTO 'BUFR2') FP224020 2404 | * FP224030 0A12 C314 2405 | LD 3 BY954-X STORE SCTR ADDR OF RESIDENT FP224040 0A13 D400 0D7B 2406 | STO L BUFR2+1 *IMAGE IN BUFFER I/O AREA FP224050 0A15 4400 0702 2407 | BSI L FTCH2 BRANCH TO READ RES IMAGE FP224060 0A17 6600 0D76 2408 | LDX L2 BUFR2+2-6 XR2 PTS TO PSEUDO WORD 0 FP224070 2409 | * FP224080 0A19 C327 2410 | LD 3 BY976-X FETCH 70FF FP224090 0A1A D400 0000 2411 | STO L /0000 *INSTR AND STORE TO LOC 0 FP224100 0A1C C400 021D 2412 | LD L CHN12 SAVE CHANNEL 12 INDICATOR FP224110 0A1E D206 2413 | STO 2 $CH12 *IN RESIDENT IMAGE FP224120 0A1F D400 0006 2414 | STO L $CH12 *AND RESIDENT MONITOR FP224130 0A21 C400 01FC 2415 | LD L SCORE SAVE CORE SIZE FP224140 0A23 D20E 2416 | STO 2 $CORE *IN RESIDENT IMAGE FP224150 0A24 D400 000E 2417 | STO L $CORE *AND RESIDENT MONITOR FP224160 0A26 C400 0A5D 2418 | LD L C2908 SAVE END OF DISKZ ADDRESS FP224170 0A28 D25A 2419 | STO 2 $CILA *IN RESIDENT IMAGE FP224180 0A29 D400 005A 2420 | STO L $CILA *AND RESIDENT MONITOR FP224190 2421 | * FP224200 0A2B 6A03 2422 | STX 2 C2060 SAVE XR2 FP224210 0A2C 4400 0A5F 2423 | BSI L C2100 BRANCH TO INITIALIZE DCOM FP224220 0A2E 6600 0000 2424 | LDX L2 *-* RESTORE FP224230 0A2F 2425 | C2060 EQU *-1 *XR2 FP224240 2426 | * FP224250 0A30 C31E 2427 | LD 3 BY965-X SAVE DISK SUBR INDICATOR FP224260 0A31 D212 2428 | STO 2 $DREQ *IN RESIDENT IMAGE FP224270 0A32 D400 0012 2429 | STO L $DREQ *AND RESIDENT MONITOR, FP224280 0A34 D276 2430 | STO 2 $DZIN *IN RESIDENT IMAGE FP224290 0A35 D400 0076 2431 | STO L $DZIN *AND RESIDENT MONITOR FP224300 0A37 C333 2432 | LD 3 BZ903-X SAVE LET SECTOR ADDRESS FP224310 0A38 D22D 2433 | STO 2 $ULET *IN RESIDENT IMAGE FP224320 0A39 D400 002D 2434 | STO L $ULET *AND RESIDENT MONITOR FP224330 0A3B 7250 2435 | MDX 2 Y XR2 PTS TO 2ND HALF OF RES FP224340 0A3C C400 01F3 2436 | LD L DCYL1 SAVE FP224350 0A3E D254 2437 | STO 2 $DCYL+0-Y *DEFECTIVE FP224360 0A3F C400 01F4 2438 | LD L DCYL2 *CYLINDERS FP224370 0A41 D255 2439 | STO 2 $DCYL+1-Y *ADDRESSES FP224380 0A42 C400 01F5 2440 | LD L DCYL3 *IN FP224390 0A44 D256 2441 | STO 2 $DCYL+2-Y *RESIDENT IMAGE FP224400 0A45 C400 0201 2442 | LD L FPADR SAVE FILE PROTECT ADDRESS FP224410 0A47 D245 2443 | STO 2 $FPAD-Y *IN RESIDENT IMAGE FP224420 0A48 D400 0095 2444 | STO L $FPAD *AND RESIDENT MONITOR FP224430 0A4A C013 2445 | LD C2909 SAVE DISKZ INTRPT ENTRY PT FP224440 0A4B D269 2446 | STO 2 $IBT2-Y *IN RESIDENT IMAGE FP224450 0A4C C00F 2447 | LD C2907 SAVE DUMP ENTRY POINT FP224460 0A4D D2DC 2448 | STO 2 $IREQ-Y *IN RESIDENT IMAGE FP224470 0A4E C400 01FB 2449 | LD L CIBFR FETCH SECTOR ADDRESS OF CIB FP224480 0A50 1890 2450 | SRT 16 SHIFT TO EXTENSION FP224490 0A51 C31C 2451 | LD 3 BY963-X FETCH WORD COUNT OF CIB FP224500 0A52 DC00 0004 2452 | STD L $CIBA-1 *AND STORE TO LOWER CORE FP224510 2453 | * FP224520 0A54 4400 0764 2454 | BSI L WRIT2 BRANCH TO WRITE RES IMAGE FP224530 2455 | * FP224540 0A56 C31A 2456 | LD 3 BY961-X FETCH SECTOR ADDRESS OF, FP224550 0A57 6600 09B9 2457 | LDX L2 C3000 *ENTRY POINT TO FP224560 0A59 4400 06E4 2458 | BSI L BH000 *AND BR TO FETCH OVERLAY 3 FP224570 2459 | * FP224580 2460 | * CONSTANTS AND WORK AREAS FP224590 2461 | * FP224600 0A5B 07C1 2462 | C2906 DC ER021 ADDRESS OF ERROR SUBR E 21 FP224610 0A5C 003F 2463 | C2907 DC $DUMP DUMP ENTRY POINT FP224620 0A5D 01DC 2464 | C2908 DC $ZEND-4 END OF DISKZ - 4 FP224630 0A5E 00F7 2465 | C2909 DC @DKIP DISKZ INTERRUPT ENTRY POINT FP224640 2466 | * FP224650 2467 | *************************************************** FP224660 2468 | * FP224670 2469 | * INITIALIZE OR UPDATE THE CARTRIDGE FP224680 2470 | * DEPENDENT TABLES IN DCOM. FP224690 2471 | * FP224700 0A5F 0000 2472 | C2100 DC 0 ENTRY/RETURN ADDRESS FP224710 0A60 6600 0EC0 2473 | LDX L2 BUFR3+2 XR2 PTS TO 1ST WORD OF DCOM FP224720 2474 | * FP224730 0A62 61FB 2475 | LDX 1 -5 SET CARTRIDGE ID COUNT FP224740 0A63 C400 01FF 2476 | C2120 LD L CARID FETCH CARTRIDGE ID FP224750 0A65 F237 2477 | EOR 2 #CIDN TEST FOR AND BRANCH IF FP224760 0A66 4C18 0A6D 2478 | BSC L C2140,+- *MATCH FOUND IN DCOM FP224770 0A68 7201 2479 | MDX 2 1 POINT TO NEXT DCOM WORD FP224780 0A69 7101 2480 | MDX 1 1 INCR ID COUNT, SKIP IF ZERO FP224790 0A6A 70F8 2481 | MDX C2120 BRANCH TO TEST NEXT CART ID FP224800 0A6B 4400 07B5 2482 | BSI L ER005 NO MATCH, BR TO PRINT MSG FP224810 2483 | * ER005 FP224820 0A6D C301 2484 | C2140 LD 3 BY934-X TEST FOR AND BRANCH FP224830 0A6E 4C28 0AAB 2485 | BSC L C2180,Z+ *IF AN INITIAL LOAD FP224840 0A70 7400 0962 2486 | MDX L BZ908,0 TEST FOR AND BRANCH FP224850 0A72 7008 2487 | MDX C2160 *IF SYSTEM PROGRAMS ADDED FP224860 0A73 C250 2488 | LD 2 #ULET FETCH AND SAVE FP224870 0A74 D333 2489 | STO 3 BZ903-X *ADDRESS OF USER AREA FP224880 0A75 C400 01F7 2490 | LD L CAREA STORE NEW CUSHION SIZE FP224890 0A77 D25A 2491 | STO 2 #CSHN *TO DCOM FP224900 0A78 4400 078F 2492 | BSI L WRIT3 BRANCH TO WRITE DCOM FP224910 0A7A 7064 2493 | MDX C2190 BRANCH TO RETURN FP224920 2494 | * FP224930 2495 | * UPDATE DCOM ON SYS PROGRAMS ADDED RELOAD FP224940 2496 | * FP224950 0A7B C304 2497 | C2160 LD 3 BY937-X FETCH LAST SAD OF SYS PROGS FP224960 0A7C 83D9 2498 | A 3 BX908-X POINT FP224970 0A7D 1803 2499 | SRA 3 *TO NEXT FP224980 0A7E 1003 2500 | SLA 3 *CYLINDER FP224990 0A7F D064 2501 | STO C2912 SAVE TEMPORARLY FP225000 0A80 9304 2502 | S 3 BY937-X CALCULATE FP225010 0A81 83D9 2503 | A 3 BX908-X *NUMBER OF SECTORS FP225020 0A82 93D3 2504 | S 3 BX901-X *IN CUSHION AREA FP225030 0A83 D25A 2505 | STO 2 #CSHN *AND STORE TO DCOM FP225040 0A84 C05F 2506 | LD C2912 CALCULATE DIFFERENCE FP225050 0A85 83D9 2507 | A 3 BX908-X *BETWEEN OLD SCRA SCTR ADDR FP225060 0A86 9241 2508 | S 2 #SCRA *AND NEW SCRA SCTR ADDRESS FP225070 0A87 D05C 2509 | STO C2912 *AND SAVE FP225080 0A88 C241 2510 | LD 2 #SCRA UPDATE FP225090 0A89 805A 2511 | A C2912 *ADDRESS OF FP225100 0A8A D241 2512 | STO 2 #SCRA *SCRA IN DCOM FP225110 0A8B D400 01FE 2513 | STO L ASCRA *AND COMM AREA FP225120 0A8D C23C 2514 | LD 2 #CIBA UPDATE FP225130 0A8E 8055 2515 | A C2912 *ADDRESS OF FP225140 0A8F D23C 2516 | STO 2 #CIBA *CIB IN DCOM FP225150 0A90 D400 01FB 2517 | STO L CIBFR *AND COMM AREA FP225160 0A92 C250 2518 | LD 2 #ULET UPDATE FP225170 0A93 8050 2519 | A C2912 *ADDRESS OF FP225180 0A94 D250 2520 | STO 2 #ULET *USER AREA IN DCOM FP225190 0A95 1000 2521 | NOP A WAIT MAY BE PATCHED HERE FP225200 0A96 D333 2522 | STO 3 BZ903-X *AND COMM AREA FP225210 0A97 C22D 2523 | LD 2 #FPAD UPDATE FP225220 0A98 804B 2524 | A C2912 *FILE PROTECT FP225230 0A99 D22D 2525 | STO 2 #FPAD *ADDRESS IN DCOM FP225240 0A9A D400 0201 2526 | STO L FPADR *AND COMM AREA FP225250 0A9C C223 2527 | LD 2 #ANDU UPDATE FP225260 0A9D 18C4 2528 | RTE 4 *ADJUSTED FP225270 0A9E 8045 2529 | A C2912 *END OF FP225280 0A9F 1084 2530 | SLT 4 *USER AREA FP225290 0AA0 D223 2531 | STO 2 #ANDU *IN DCOM FP225300 0AA1 C228 2532 | LD 2 #BNDU UPDATE FP225310 0AA2 18C4 2533 | RTE 4 *BASE FP225320 0AA3 8040 2534 | A C2912 *END OF FP225330 0AA4 1084 2535 | SLT 4 *USER AREA FP225340 0AA5 D228 2536 | STO 2 #BNDU *IN DCOM FP225350 0AA6 4400 078F 2537 | BSI L WRIT3 BRANCH TO WRITE DCOM FP225360 0AA8 4400 0AE5 2538 | BSI L C2200 BR TO UPDATE LET CHAIN ADDR FP225370 0AAA 7034 2539 | MDX C2190 BRANCH TO RETURN FP225380 2540 | * FP225390 2541 | * INITIALIZE DCOM ON AN INITIAL LOAD FP225400 2542 | * FP225410 0AAB C304 2543 | C2180 LD 3 BY937-X FETCH LAST SAD OF SYS PROGS FP225420 0AAC 83D9 2544 | A 3 BX908-X POINT FP225430 0AAD 1803 2545 | SRA 3 *TO NEXT FP225440 0AAE 1003 2546 | SLA 3 *CYLINDER FP225450 0AAF D034 2547 | STO C2912 SAVE TEMPORARLY FP225460 0AB0 9304 2548 | S 3 BY937-X CALCULATE FP225470 0AB1 83D9 2549 | A 3 BX908-X *NUMBER OF FP225480 0AB2 93D3 2550 | S 3 BX901-X *SECTORS IN CUSHION AREA FP225490 0AB3 D25A 2551 | STO 2 #CSHN *AND SAVE IN DCOM FP225500 0AB4 C02F 2552 | LD C2912 CALCULATE FP225510 0AB5 83D9 2553 | A 3 BX908-X *ADDRESS OF SCRA FP225520 0AB6 D241 2554 | STO 2 #SCRA *AND SAVE IN DCOM FP225530 0AB7 D400 01FE 2555 | STO L ASCRA *AND COMM AREA FP225540 0AB9 83D9 2556 | A 3 BX908-X CALCULATE FP225550 0ABA D23C 2557 | STO 2 #CIBA *ADDRESS OF CIB AND STORE FP225560 0ABB D400 01FB 2558 | STO L CIBFR *ST IN DCOM AND COMM AREA FP225570 0ABD 83DA 2559 | A 3 BX909-X CALCULATE FP225580 0ABE D250 2560 | STO 2 #ULET *ADDRESS OF USER AREA AND FP225590 0ABF D333 2561 | STO 3 BZ903-X *ST IN DCOM AND COMM AREA FP225600 0AC0 83D9 2562 | A 3 BX908-X CALCULATE FP225610 0AC1 D22D 2563 | STO 2 #FPAD *FILE PROTECT ADDRESS AND FP225620 0AC2 D400 0201 2564 | STO L FPADR *ST IN DCOM AND COMM AREA FP225630 0AC4 1004 2565 | SLA 4 CALCULATE AND STORE IN DCOM FP225640 0AC5 D223 2566 | STO 2 #ANDU *ADJUSTED END UF USER AREA FP225650 0AC6 D228 2567 | STO 2 #BNDU *AND BASE END OF USER AREA FP225660 0AC7 4400 078F 2568 | BSI L WRIT3 BRANCH TO WRITE DCOM FP225670 2569 | * FP225680 2570 | * INITIALIZE LET SECTOR ON AN INITIAL LOAD. FP225690 2571 | * (LET IS BUILT IN 'BUFR3') FP225700 2572 | * FP225710 0AC9 4047 2573 | BSI C2300 BRANCH TO CLEAR BUFFER FP225720 0ACA 6600 0EC0 2574 | LDX L2 BUFR3+2 XR2 PTS TO 1ST WORD OF LET FP225730 0ACC C333 2575 | LD 3 BZ903-X FETCH NEW 1ST LET SCTR ADDR FP225740 0ACD D2FF 2576 | STO 2 -1 *AND STORE TO LET I/O BFR FP225750 0ACE C012 2577 | LD C2910 FETCH AND STORE NUMBER OF FP225760 0ACF D203 2578 | STO 2 3 *WORDS AVAILABLE IN SECTOR FP225770 0AD0 C011 2579 | LD C2911 FETCH FP225780 0AD1 D205 2580 | STO 2 5 *AND STORE FP225790 0AD2 C010 2581 | LD C2911+1 *DUMMY FP225800 0AD3 D206 2582 | STO 2 6 *ENTRY NAME FP225810 0AD4 C31B 2583 | LD 3 BY962-X CALCULATE FP225820 0AD5 9400 0201 2584 | S L FPADR *AND STORE FP225830 0AD7 83D3 2585 | A 3 BX901-X *SIZE OF FP225840 0AD8 1004 2586 | SLA 4 *WORKING STORAGE FP225850 0AD9 D207 2587 | STO 2 7 *IN DISK BYTES FP225860 0ADA C400 0201 2588 | LD L FPADR FETCH AND STORE FP225870 0ADC D201 2589 | STO 2 1 *SECTOR ADDRESS OF UA FP225880 0ADD 4400 078F 2590 | BSI L WRIT3 BRANCH TO WRITE LET SECTOR FP225890 2591 | * FP225900 0ADF 4C80 0A5F 2592 | C2190 BSC I C2100 RETURN FP225910 2593 | * FP225920 2594 | * CONSTANTS AND WORK AREAS FP225930 2595 | * FP225940 0AE1 0138 2596 | C2910 DC @SCNT-8 NO. OF WORDS AVAILABLE FP225950 0AE2 7112 2597 | C2911 DC /7112 '1DUMY' IN FP225960 0AE3 4528 2598 | DC /4528 *TRUNCATED EBCDIC NAME CODE FP225970 0AE4 0000 2599 | C2912 DC *-* TEMPORARY STORAGE FP225980 2600 | * FP225990 2601 | *************************************************** FP226000 2602 | * FP226010 2603 | * IF LET AND UA HAVE BEEN RELOCATED THE UA ADDRESS FP226020 2604 | * (WD 2 IN EACH LET SCTR) AND THE CHAIN ADDR (WD 5 FP226030 2605 | * IN EACH LET SCTR) MUST BE ADJUSTED. FP226040 2606 | * FP226050 0AE5 0000 2607 | C2200 DC 0 ENTRY/RETURN ADDRESS FP226060 0AE6 C338 2608 | LD 3 BZ908-X TEST FOR AND RETURN FP226070 0AE7 4C98 0AE5 2609 | BSC I C2200,+- *IF NO NEW PROGRAMS ADDED FP226080 0AE9 C333 2610 | LD 3 BZ903-X FETCH NEW LET SCTR ADDRESS FP226090 0AEA 9400 0203 2611 | S L LET00 TEST FOR AND RETURN IF FP226100 0AEC 4C98 0AE5 2612 | BSC I C2200,+- *SAME AS OLD LET SCTR ADDR FP226110 0AEE D336 2613 | STO 3 BZ906-X SAVE THE DIFFERENCE FP226120 0AEF 6500 0EC0 2614 | LDX L1 BUFR3+2 XR1 POINT TO FIRST LET WORD FP226130 0AF1 C333 2615 | LD 3 BZ903-X FETCH AND STORE FP226140 0AF2 D1FF 2616 | STO 1 -1 *NEW LET SECTOR ADDRESS FP226150 0AF3 4400 070E 2617 | C2240 BSI L FTCH3 BRANCH TO READ A LET SECTOR FP226160 2618 | * FP226170 2619 | * WHEN CHAIN ADDRESS IS 0 THIS IS LAST LET SCTR FP226180 2620 | * FP226190 0AF5 C101 2621 | LD 1 1 FETCH, FP226200 0AF6 8336 2622 | A 3 BZ906-X *INCREMENT AND STORE FP226210 0AF7 D101 2623 | STO 1 1 *SECTOR ADDRESS OF UA FP226220 0AF8 C104 2624 | LD 1 4 FETCH THE CHAIN ADDRESS FP226230 0AF9 4C18 0B02 2625 | BSC L C2280,+- BRANCH IF ZERO FP226240 0AFB 8336 2626 | A 3 BZ906-X INCREMENT AND FP226250 0AFC D104 2627 | STO 1 4 *STORE THE CHAIN ADDRESS FP226260 0AFD 4400 078F 2628 | BSI L WRIT3 BR TO WRITE THE LET SECTOR FP226270 0AFF 7401 0EBF 2629 | MDX L BUFR3+1,1 INCR ADDR FOR NEXT LET SCTR FP226280 0B01 70F1 2630 | MDX C2240 BR TO READ NEXT LET SECTOR FP226290 2631 | * FP226300 0B02 C3DD 2632 | C2280 LD 3 BX913-X GET CONSTANT HEX 13F 2-5 FP226301 0B03 9103 2633 | S 1 3 SUB NO. WDS AVAILABLE 2-5 FP226302 0B04 D002 2634 | STO C2282+1 SET 2ND WD OF LD INSTR 2-5 FP226303 0B05 D006 2635 | STO C2284+1 SET 2ND WD OF STO INSTR 2-5 FP226304 0B06 C500 0000 2636 | C2282 LD L1 *-* LOAD 1DUMY DB COUNT 2-5 FP226305 0B08 1884 2637 | SRT 4 SECTOR COUNT IN ACC 2-5 FP226306 0B09 9336 2638 | S 3 BZ906-X SUBTRACT DIFFERENCE 2-5 FP226307 0B0A 1084 2639 | SLT 4 GET NEW DB COUNT IN ACC 2-5 FP226308 0B0B D500 0000 2640 | C2284 STO L1 *-* STORE BACK IN LET SCTR 2-5 FP226309 0B0D 4400 078F 2641 | BSI L WRIT3 BR TO WR LAST LET SCTR FP226310 0B0F 4C80 0AE5 2642 | BSC I C2200 RETURN FP226320 2643 | * FP226330 2644 | * FP226340 2645 | *************************************************** FP226350 2646 | * FP226360 2647 | * CLEAR 'BUFR3' TO BUILD LET INTO. FP226370 2648 | * FP226380 0B11 0000 2649 | C2300 DC 0 ENTRY/RETURN ADDRESS FP226390 0B12 6500 0140 2650 | LDX L1 @SCNT XR1 = BUFFER WORD COUNT FP226400 0B14 1810 2651 | SRA 16 FETCH ZERO FP226410 0B15 D500 0EBF 2652 | C2340 STO L1 BUFR3+1 STORE TO BUFFER FP226420 0B17 71FF 2653 | MDX 1 -1 DECR WORD CNT, SKIP IF ZERO FP226430 0B18 70FC 2654 | MDX C2340 BRANCH TO CLEAR NEXT WORD FP226440 0B19 4C80 0B11 2655 | BSC I C2300 RETURN FP226450 2656 | * FP226460 2657 | *************************************************** FP226470 2658 | * FP226480 2659 | * READ DCOM INTO 'BUFR3' FP226490 2660 | * FP226500 0B1B 0000 2661 | C2400 DC 0 ENTRY/RETURN ADDRESS FP226510 0B1C C313 2662 | LD 3 BY952-X FETCH SECTOR ADDR OF DCOM FP226520 0B1D D400 0EBF 2663 | STO L BUFR3+1 *AND STORE TO I/O BFR AREA FP226530 0B1F 4400 070E 2664 | BSI L FTCH3 BRANCH TO READ DCOM FP226540 0B21 4C80 0B1B 2665 | BSC I C2400 RETURN FP226550 2666 | * FP226560 2667 | * FP226570 0B23 2668 | BSS C2000+2*@SCNT-*-1 PATCH AREA FP226580 2669 | * FP226590 2670 | * FP226600 0C37 2671 | C2999 EQU *-1 END OF OVERLAY 2 FP226610 *SBRK XX 2672 | *SYS LDR - PHASE 2 - OVERLAY 3 FP226620 OVERLAY 3 - SET UP RELOAD TABLE 09B6 2674 | ORG OVLAY BEGIN IN OVERLAY AREA FP226640 2675 | * FP226650 2676 | * FP226660 09B6 0280 2677 | DC C3999-C3000+2 WORD CNT OF OVERLAY 3 FP226670 09B7 063C 2678 | DC @P2AD+5+2+2+3 SCTR ADDR OF OVERLAY 3 FP226680 2679 | * FP226690 2680 | * FP226700 09B8 0003 2681 | DC 3 INDICATES OVERLAY 3 FP226710 09B9 1000 2682 | C3000 NOP A WAIT MAY BE PATCHED HERE FP226720 2683 | * STATEMENT REMOVED 2-4 FP226730 09BA 4400 0A78 2684 | BSI L C3800+1 TEST FOR DEVICES NOT HERE FP226740 09BC C31E 2685 | LD 3 BY965-X SET FIRST WORD FOLLOWING FP226750 09BD D480 05F7 2686 | STO I BE120+1 *RELOAD TABLE TO /FFFF FP226760 09BF C301 2687 | LD 3 BY934-X IF RELOAD, BR TO UNITE FP226770 09C0 4410 0A3E 2688 | BSI L C3400,- *CORE & DISK RELOAD TABLES FP226780 09C2 4400 0758 2689 | BSI L WRIT1 UPDATE RELOAD TABLE ON DISK FP226790 09C4 4400 0AA1 2690 | BSI L CK500 BR TO CALCULATE CHECKSUM FP226800 09C6 D400 0D79 2691 | STO L BUFR1+1+@SCNT STORE IN RELOAD TABLE FP226810 09C8 4400 0758 2692 | BSI L WRIT1 UPDATE RELOAD TABLE ON DISK FP226820 09CA 4400 0AD2 2693 | BSI L RLTBL PROCESS RELOAD TBL IN CORE FP226830 2694 | * FP226840 2695 | * SET THE WORD COUNT AND SECTOR ADDRESS AT THE FP226850 2696 | * END OF DISKZ ON THE COLD START SECTOR. FP226860 2697 | * FP226870 09CC CC00 01F0 2698 | LDD L CILWC FETCH AND STORE WORD COUNT FP226880 09CE DC00 01DC 2699 | STD L $ZEND-4 *AND SECTOR ADDRESS OF CIL FP226890 09D0 C83F 2700 | LDD C3902 FETCH AND STORE WD CNT AND FP226900 09D1 DC00 0D7A 2701 | STD L BUFR2 *SCTR ADDR OF COLD START FP226910 09D3 4400 0702 2702 | BSI L FTCH2 BRANCH TO FETCH COLD START FP226920 09D5 CC00 01F0 2703 | LDD L CILWC ST WD CNT AND SCTR ADDR OF FP226930 09D7 DC00 0E86 2704 | STD L BUFR2+$ZEND-@CSTR-4 *CIL TO C.S. END FP226940 09D9 CC00 078C 2705 | LDD L W2900 FETCH FUNC CODE/I/O AR ADDR FP226950 09DB 4400 00F2 2706 | BSI L DZ000 BRANCH TO WRITE COLD START FP226960 09DD 7400 00EE 2707 | MDX L $DBSY,0 SKIP NEXT IF WRITE COMPLET FP226970 09DF 70FD 2708 | MDX *-3 BR TO TEST WRITE COMPLETE FP226980 09E0 4400 0A22 2709 | BSI L C3200 BR TO CLEAR SYS LDR FR DISK FP226990 09E2 6500 003F 2710 | LDX L1 $DUMP SET $IREQ FP227000 09E4 6D00 002C 2711 | STX L1 $IREQ *POINTING TO $DUMP FP227010 09E6 C301 2712 | LD 3 BY934-X TEST FOR AND BRANCH TO READ FP227020 2713 | * FP227030 2714 | * ON RELOAD, TEST FOR XEQ MODIF, ELSE SET UP FP227040 2715 | * PAGE HEADING SECTOR. FP227050 2716 | * FP227060 09E7 4C10 038F 2717 | BSC L BB000,- *NEXT RECORD IF A RELOAD FP227070 2718 | * FP227080 2719 | * CLEAR THE PAGE HEADING BUFFER. FP227090 2720 | * FP227100 09E9 6500 0140 2721 | LDX L1 @SCNT XR1 = SECTOR WORD COUNT FP227110 09EB C050 2722 | LD C3926 FETCH AN EBCDIC BLANK /4040 FP227120 09EC D500 0D7B 2723 | C3040 STO L1 BUFR2+1 STORE TO BUFFER FP227130 09EE 71FF 2724 | MDX 1 -1 DECR WORD CNT, SKIP IF ZERO FP227140 09EF 70FC 2725 | MDX C3040 BRANCH TO STORE NEXT WORD FP227150 09F0 C849 2726 | LDD C3924 FETCH AND STORE FP227160 09F1 DC00 0D7C 2727 | STD L BUFR2+2 *'PAGE' TO BUFFER FP227170 09F3 C049 2728 | LD C3927 FETCH AND STORE FP227180 09F4 D400 0D7F 2729 | STO L BUFR2+5 *PAGE COUNT (1) TO BUFFER FP227190 09F6 C3D3 2730 | LD 3 BX901-X INITIALIZE FP227200 09F7 D400 0037 2731 | STO L $PGCT *PAGE COUNT IN COMMA FP227210 09F9 C03E 2732 | LD C3922 FETCH AND STORE FP227220 09FA D400 0D7B 2733 | STO L BUFR2+1 *HEADING SECTOR ADDRESS FP227230 09FC 4400 0764 2734 | BSI L WRIT2 BR TO WRITE HEADING SECTOR FP227240 2735 | * FP227250 2736 | * UPDATE STATUS WORD IN ID SECTOR FP227260 2737 | * FP227270 09FE C33A 2738 | LD 3 BZ910-X FETCH AND STORE SECTOR FP227280 09FF D400 0D7B 2739 | STO L BUFR2+1 *ADDRESS OF ID SECTOR FP227290 0A01 4400 0702 2740 | BSI L FTCH2 BRANCH TO FETCH ID SECTOR FP227300 0A03 C3D4 2741 | LD 3 BX902-X UPDATE FP227310 0A04 D400 0D83 2742 | STO L BUFR2+2+@STAT *STATUS (WORD 7 = +2) FP227320 0A06 4400 0764 2743 | BSI L WRIT2 BRANCH TO WRITE ID SECTOR FP227330 2744 | * FP227340 2745 | * CALL THE AUXILIARY SUPERVISOR TO PLACE A DUMMY FP227350 2746 | * 'DUP' RECORD IN THE SUPERVISOR BUFFER. FP227360 2747 | * FP227370 0A08 1000 2748 | NOP A WAIT MAY BE PATCHED HERE FP227380 0A09 1810 2749 | SRA 16 CLEAR FP227390 0A0A D400 0032 2750 | STO L $IOCT *I/O COUNTER FP227400 0A0C 4400 003F 2751 | BSI L $DUMP BRANCH TO FETCH AUX SUPV FP227410 0A0E FFFB 2752 | DC -5 INDICATES A DUMMY 'DUP' FP227420 2753 | * FP227430 2754 | * CONSTANTS AND WORK AREAS. FP227440 2755 | * FP227450 0A10 2756 | BSS E 0 FORCE NEXT LOC TO BE EVEN FP227460 0A10 0140 2757 | C3902 DC 320 WORD COUNT FP227470 0A11 0000 2758 | DC @IDAD SECTOR ADDRESS FP227480 0A12 76AF 2759 | C3903 DC /76AF CON TO FIND '// XEQ MODIF' FP227490 2760 | * FP227500 2761 | * TEST WORDS 1, 3, 6 AND 7 FOR // XEQ MODIF FP227510 2762 | * FP227520 0A13 0000 2763 | C3060 DC 0 ENTRY FP227530 0A14 C101 2764 | LD 1 1 FETCH WORD 1 FP227540 0A15 8103 2765 | A 1 3 ADD WORD 3 FP227550 0A16 8106 2766 | A 1 6 ADD WORD 6 FP227560 0A17 8107 2767 | A 1 7 ADD WORD 7 FP227570 0A18 F0F9 2768 | EOR C3903 TEST FOR AND BRANCH FP227580 0A19 4C20 0B5C 2769 | BSC L C3900,Z *IF NOT '// XEQ MODIF' RCD FP227590 2770 | * FP227600 2771 | * SET UP CALLING SEQUENCE TO AUX SUPERVISOR FP227610 2772 | * FP227620 0A1B 1000 2773 | NOP A WAIT MAY BE PATCHED HERE FP227630 0A1C 1810 2774 | SRA 16 CLEAR FP227640 0A1D D400 0032 2775 | STO L $IOCT *I/O COUNTER FP227650 0A1F 4400 003F 2776 | BSI L $DUMP BRANCH TO FETCH AUX SUPV FP227660 0A21 FFFA 2777 | DC -6 INDIC A DUMMY 'XEQ MODIF' FP227670 2778 | * FP227680 2779 | *************************************************** FP227690 2780 | * FP227700 2781 | * CLEAR SYSTEM LOADER FROM DISK. FP227710 2782 | * FP227720 0A22 0000 2783 | C3200 DC 0 ENTRY/RETURN ADDRESS FP227730 0A23 6500 0140 2784 | LDX L1 @SCNT XR1 = SECTOR WORD COUNT FP227740 0A25 1810 2785 | SRA 16 CLEAR ACCUMULATOR FP227750 0A26 D500 0D7B 2786 | C3220 STO L1 BUFR2+1 STORE TO BUFFER FP227760 0A28 71FF 2787 | MDX 1 -1 DECR WORD CNT, SKIP IF ZERO FP227770 0A29 70FC 2788 | MDX C3220 BRANCH TO CLEAR NEXT WORD FP227780 0A2A C00C 2789 | LD C3921 FETCH AND STORE FP227790 0A2B D400 0D7B 2790 | STO L BUFR2+1 *SECTOR ADDRESS FP227800 0A2D 7401 0D7B 2791 | C3260 MDX L BUFR2+1,1 INCREMENT SECTOR ADDRESS FP227810 0A2F 4400 0764 2792 | BSI L WRIT2 BRANCH TO WRITE A SECTOR FP227820 0A31 74FF 0A36 2793 | MDX L C3920,-1 DECR SCTR CNT, SKIP IF ZERO FP227830 0A33 70F9 2794 | MDX C3260 BRANCH TO WRITE NEXT SECTOR FP227840 0A34 4C80 0A22 2795 | BSC I C3200 RETURN FP227850 2796 | * FP227860 2797 | * CONSTANTS AND WORK AREAS. FP227870 2798 | * FP227880 0A36 000F 2799 | C3920 DC 15 NO. SCTRS OCCUPIED BY PH 2 FP227890 0A37 062F 2800 | C3921 DC @P2AD-1 SCTR ADDR OF PHASE 2 - 1 FP227900 0A38 0007 2801 | C3922 DC @HDNG PAGE HEADING SECTOR FP227910 0A3A 2802 | BSS E 0 FORCE NEXT LOC TO BE EVEN FP227920 0A3A D7C1 C7C5 2803 | C3924 EBC .PAGE. FP227930 0A3C 4040 2804 | C3926 DC /4040 EBCDIC BLANKS FP227940 0A3D 40F1 2805 | C3927 DC /40F1 EBCDIC FOR BLANK, ONE FP227950 2806 | * FP227960 2807 | *************************************************** FP227970 2808 | * FP227980 2809 | * COMPARE THE RELOAD TABLE CONSTRUCTED IN CORE TO FP227990 2810 | * THE RELOAD TABLE RESIDING ON DISK. FP228000 2811 | * FP228010 0A3E 0000 2812 | C3400 DC 0 ENTRY/RETURN ADDRESS FP228020 0A3F C480 0A76 2813 | LD I C3940 ADVANCE IN-CORE RELOAD FP228030 0A41 F31E 2814 | EOR 3 BY965-X *TABLE POINTER TO LOCATION FP228040 0A42 4C18 0A47 2815 | BSC L C3410,+- *OF 'FFFF' ENTRY FP228050 0A44 7403 0A76 2816 | MDX L C3940,3 PASS GROUP OF 3 FP228060 0A46 70F8 2817 | MDX C3400+1 TEST FOR 'FFFF' AGAIN FP228070 0A47 C400 0C39 2818 | C3410 LD L BUFR1+1 PREPARE TO FETCH FP228080 0A49 D400 0D7B 2819 | STO L BUFR2+1 *RELOAD TABLE FP228090 0A4B 4400 0702 2820 | BSI L FTCH2 BR TO FETCH RELOAD TABLE FP228100 0A4D 6500 0D7C 2821 | LDX L1 BUFR2+2 XR1 POINTS TO RELOAD TABLE FP228110 0A4F 6600 0C3A 2822 | C3420 LDX L2 BUFR1+2 XR2 POINTS TO IN-CORE TABLE FP228120 0A51 C100 2823 | LD 1 0 IF NO MORE ENTRIES ARE IN FP228130 0A52 F31E 2824 | EOR 3 BY965-X *THE DISK RELOAD TABLE FP228140 0A53 4C98 0A3E 2825 | BSC I C3400,+- *RETURN FP228150 0A55 C200 2826 | C3430 LD 2 0 IF END OF IN-CORE TABLE FP228160 0A56 F31E 2827 | EOR 3 BY965-X *BEFORE MATE WAS FOUND FP228170 0A57 4C18 0A5F 2828 | BSC L C3450,+- *BR TO PLACE AT END OF TBL FP228180 0A59 C100 2829 | LD 1 0 TEST FOR RELOAD PHASE FP228190 0A5A 9200 2830 | S 2 0 *MATE FP228200 0A5B 4C18 0A74 2831 | BSC L C3440,+- *BR IF FOUND FP228210 0A5D 7203 2832 | MDX 2 3 ADVANCE 1 SET IN IN-CORE FP228220 0A5E 70F6 2833 | MDX C3430 *TABLE, TRY FOR MATE AGAIN FP228230 2834 | * FP228240 2835 | * PLACE AN UNMATCHED ENTRY AT END OF IN-CORE TABLE FP228250 2836 | * FP228260 0A5F C400 0C38 2837 | C3450 LD L BUFR1 FETCH WD CNT IN RELOAD TBL FP228270 0A61 93DE 2838 | S 3 BX914-X TEST FOR FP228280 0A62 83D4 2839 | A 3 BX902-X *AND BRANCH FP228290 0A63 4410 081E 2840 | BSI L ER130,- *IF EQ TO/GREATER THAN 318 FP228300 0A65 6680 0A76 2841 | LDX I2 C3940 XR2 = CURRENT POINTER FP228310 0A67 C100 2842 | LD 1 0 MOVE FP228320 0A68 D200 2843 | STO 2 0 *DISK RELOAD TABLE ENTRY FP228330 0A69 C101 2844 | LD 1 1 *TO END OF FP228340 0A6A D201 2845 | STO 2 1 *IN-CORE TABLE FP228350 0A6B C102 2846 | LD 1 2 *TO BE FP228360 0A6C D202 2847 | STO 2 2 *PROCESSED FP228370 0A6D 7403 0A76 2848 | MDX L C3940,3 INCR END OF STRING POINTER FP228380 0A6F 7403 0C38 2849 | MDX L BUFR1,3 INCREMENT STRING WORD COUNT FP228390 0A71 C31E 2850 | LD 3 BY965-X STORE 'FFFF' FP228400 0A72 D480 0A76 2851 | STO I C3940 *AT END OF STRING FP228410 2852 | * FP228420 0A74 7103 2853 | C3440 MDX 1 3 STEP THRU RELOAD TABLE FROM FP228430 0A75 70D9 2854 | MDX C3420 *DISK THAT IS NOW IN BUFFER FP228440 2855 | * FP228450 2856 | * CONSTANTS AND WORK AREAS FP228460 2857 | * FP228470 0A76 0C3A 2858 | C3940 DC BUFR1+2 RELOAD TABLE POINTER FP228480 2859 | * FP228490 2860 | * STATEMENTS MOVED TO MAINLINE 2-4 FP228500 2861 | * FP228510 2862 | *************************************************** FP228520 2863 | * FP228530 2864 | * DETERMINE WHICH DEVICES WERE NOT INCLUDED IN THE FP228540 2865 | * CONFIGURATION DECK. THE SIGN BIT OF THE SECTOR FP228550 2866 | * ADDRESSES OF THE DEVICES NOT PRESENT WILL BE SET FP228560 2867 | * ON. THE SAME WILL BE DONE FOR UNUSED CONVERSION FP228570 2868 | * SUBROUTINES. FP228580 2869 | * FP228590 0A77 4C00 0000 2870 | C3800 BSC L *-* ENTRY/RETURN ADDRESS FP228600 0A79 74FE 0AA0 2871 | C3810 MDX L C3984,-2 DECR LOOP COUNTER FP228610 0A7B 4838 2872 | BSC +-Z CONTINUE UNTIL ZERO FP228620 0A7C 70FA 2873 | MDX C3800 RETURN FP228630 0A7D CC00 0A92 2874 | C3820 LDD L C3980 FETCH A PAIR OF ENTRIES FP228640 0A7F E400 01F9 2875 | AND L DINDR TEST FOR AND FP228650 0A81 4C18 0A86 2876 | BSC L C3860,+- *BRANCH IF BIT IS SET FP228660 0A83 7402 0A7E 2877 | C3840 MDX L C3820+1,2 INCREMENT THE PAIR POINTER FP228670 0A85 70F3 2878 | MDX C3810 BRANCH TO TEST NEXT DEVICE FP228680 2879 | * FP228690 0A86 18D0 2880 | C3860 RTE 16 ROTATE PHASE ID TO ACC FP228700 0A87 4400 0722 2881 | BSI L SSLET BRANCH TO SEARCH SLET FP228710 0A89 4418 082A 2882 | BSI L ER032,+- BR IF PHASE ID MISSING FP228720 0A8B C31D 2883 | LD 3 BY964-X FETCH SIGN BIT FP228730 0A8C EA03 2884 | OR 2 3 MASK IN PHASE ID FP228740 0A8D D203 2885 | STO 2 3 *AND RESTORE TO SLET FP228750 0A8E 4400 078F 2886 | BSI L WRIT3 BRANCH TO WRITE SLET FP228760 0A90 70F2 2887 | MDX C3840 BRANCH TO TEST NEXT DEVICE FP228770 2888 | * FP228780 2889 | * CONSTANTS AND WORK AREAS FP228790 2890 | * FP228800 0A92 2891 | BSS E 0 FORCE NEXT LOC TO BE EVEN FP228810 0A92 0040 2892 | C3980 DC /0040 MASK FOR BIT 9 ISS 9 FP228820 0A93 008C 2893 | DC P1403 1403 PRINTER FP228830 0A94 0200 2894 | DC /0200 MASK FOR BIT 6 ISS 6 FP228840 0A95 008D 2895 | DC P1132 1132 PRINTER FP228850 0A96 0800 2896 | DC /0800 MASK FOR BIT 4 ISS 4 FP228860 0A97 008F 2897 | DC I2501 2501 READER FP228870 0A98 4000 2898 | DC /4000 MASK FOR BIT 1 ISS 1 FP228880 0A99 0090 2899 | DC I1442 1442 READER/PUNCH FP228890 0A9A 1000 2900 | DC /1000 MASK FOR BIT 3 ISS 3 FP228900 0A9B 0091 2901 | DC I1134 PAPER TAPE READ/PUNCH FP228910 0A9C 4800 2902 | DC /4800 MASK FOR BITS 1 AND 4 FP228920 0A9D 0093 2903 | DC CDCNV CARD CONVERSION FP228930 0A9E 1000 2904 | C3982 DC /1000 MASK FOR BIT 3 FP228940 0A9F 0094 2905 | DC C1134 PAPER TAPE CONVERSION FP228950 2906 | * FP228960 0AA0 0010 2907 | C3984 DC C3982+4-C3980 SIZE OF TABLE + 2 FP228970 2908 | * FP228980 2909 | *************************************************** FP228990 2910 | * FP229000 2911 | * SUBROUTINE TO CALCULATE CHECKSUM OF SLET AND FP229010 2912 | * RELOAD TABLE (EXCLUDING LAST WORD OF RELOAD TBL) FP229020 2913 | * FP229030 0AA1 0000 2914 | CK500 DC 0 ENTRY/RETURN ADDRESS FP229040 0AA2 C81F 2915 | LDD CK910 SET UP BUFFER TO START FP229050 0AA3 DC00 0C38 2916 | STD L BUFR1 *READING AT 1ST SCTR SLET FP229060 0AA5 1010 2917 | SLA 16 CLEAR CALCULATED FP229070 0AA6 D01D 2918 | STO CK912 *CHECKSUM FP229080 0AA7 61FC 2919 | LDX 1 -4 4 SECTORS TO CHECKSUM FP229090 0AA8 691C 2920 | STX 1 CK914 FP229100 0AA9 7401 0C39 2921 | CK510 MDX L0 BUFR1+1,1 INCREMENT SECTOR ADDRESS FP229110 0AAB 4400 0AC6 2922 | BSI L FTCH1 READ SECTOR FROM DISK FP229120 0AAD 6500 013F 2923 | LDX L1 @SCNT-1 WORDS - 1 PER SECTOR FP229130 0AAF C014 2924 | LD CK912 RESTORE CHECKSUM TO ACC FP229140 0AB0 8500 0C39 2925 | CK520 A L1 BUFR1+1 CALCULATE CHECKSUM FP229150 0AB2 4802 2926 | BSC C IF CARRY FP229160 0AB3 83D3 2927 | A 3 BX901-X *ADD 1 TO CHECKSUM FP229170 0AB4 71FF 2928 | MDX 1 -1 STEP THROUGH SECTOR FP229180 0AB5 70FA 2929 | MDX CK520 BR TO LOOP IN SECTOR FP229190 0AB6 D00D 2930 | STO CK912 SAVE CHECK SUM FP229200 0AB7 7401 0AC5 2931 | MDX L0 CK914,1 INCREMENT SECTOR LOOP COUNT FP229210 0AB9 7002 2932 | MDX CK530 BR, IS NOT RELOAD SECTOR FP229220 0ABA 4C80 0AA1 2933 | BSC I CK500 RETURN FP229230 2934 | * FP229240 2935 | * INCLUDE LAST WORD OF SECTOR IN ALL BUT RELOAD FP229250 2936 | * SECTOR FP229260 2937 | * FP229270 0ABC 8400 0D79 2938 | CK530 A L BUFR1+1+@SCNT LAST WORD OF SECTOR FP229280 0ABE 4802 2939 | BSC C IF CARRY FP229290 0ABF 83D3 2940 | A 3 BX901-X *ADD 1 TO CHECKSUM FP229300 0AC0 D003 2941 | STO CK912 SAVE CHECK SUM FP229310 0AC1 70E7 2942 | MDX CK510 BR TO LOOP 4 SECTORS FP229320 2943 | * FP229330 2944 | * CONSTANTS AND WORK AREAS FP229340 2945 | * FP229350 0AC2 2946 | BSS E 0 FP229360 0AC2 0140 2947 | CK910 DC @SCNT WORD COUNT 1 SECTOR FP229370 0AC3 0002 2948 | DC @SLET-1 SECTOR ADDRESS OF SLET - 1 FP229380 0AC4 0000 2949 | CK912 DC *-* CALCULATED CHECKSUM FP229390 0AC5 0000 2950 | CK914 DC *-* SECTOR LOOP COUNTER FP229400 2951 | * FP229410 2952 | *************************************************** FP229420 2953 | * FP229430 2954 | * READ A SECTOR FROM DISK INTO 'BUFR1' FP229440 2955 | * FP229450 0AC6 0000 2956 | FTCH1 DC 0 ENTRY/RETURN ADDRESS FP229460 0AC7 C808 2957 | LDD F1900 FETCH FUNC CODE, I/O ADDR FP229470 0AC8 4400 00F2 2958 | BSI L DZ000 BRANCH TO READ A SECTOR FP229480 0ACA 7400 00EE 2959 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE FP229490 0ACC 70FD 2960 | MDX *-3 BR TO TEST READ COMPLETE FP229500 0ACD 4C80 0AC6 2961 | BSC I FTCH1 RETURN FP229510 2962 | * FP229520 2963 | * CONSTANTS AND WORK AREAS FP229530 2964 | * FP229540 0AD0 2965 | BSS E 0 FORCE NEXT LOC TO BE EVEN FP229550 0AD0 0000 2966 | F1900 DC /0000 READ FUNCTION CODE FP229560 0AD1 0C38 2967 | DC BUFR1 ADDRESS OF I/O AREA FP229570 2968 | * FP229580 2969 | *************************************************** FP229590 2970 | * FP229600 2971 | * PROCESS RELOAD TABLE TO DETERMINE PHASES WHICH FP229610 2972 | * REQUIRE SLET TABLE ENTRIES. FP229620 2973 | * FP229630 0AD2 0000 2974 | RLTBL DC 0 ENTRY/RETURN ADDRESS FP229640 0AD3 C400 0C3A 2975 | RL020 LD L BUFR1+2 FETCH A SLET PHASE ID FP229650 0AD5 F31E 2976 | EOR 3 BY965-X TEST FOR AND FP229660 0AD6 4C98 0AD2 2977 | BSC I RLTBL,+- *RETURN IF END OF TABLE FP229670 0AD8 F31E 2978 | EOR 3 BY965-X RESET PHASE ID FP229680 0AD9 4400 0722 2979 | BSI L SSLET BRANCH TO SEARCH SLET FP229690 0ADB 4418 0824 2980 | BSI L ER031,+- BR IF DEF SLET OR RL TBL FP229700 0ADD 4C18 0B33 2981 | BSC L RL150,+- BR TO SKIP BAD ENTRY FP229710 0ADF 6580 0AD4 2982 | LDX I1 RL020+1 XR1 PTS TO POS IN RL TABLE FP229720 0AE1 C101 2983 | LD 1 1 FETCH SECTOR ADDRESS FP229730 0AE2 1890 2984 | SRT 16 DETERMINE WHICH FP229740 0AE3 ABDE 2985 | D 3 BX914-X *SECTOR OF THE PHASE FP229750 0AE4 8203 2986 | A 2 3 *TO WHICH THE FP229760 0AE5 D400 0D7B 2987 | STO L BUFR2+1 *CORRECTIONS WILL BE MADE FP229770 0AE7 18D0 2988 | RTE 16 FETCH AND STORE RLTV FP229780 0AE8 D062 2989 | STO RL900 *LOCATION IN SECTOR FP229790 0AE9 C102 2990 | LD 1 2 FETCH AND SAVE FP229800 0AEA D061 2991 | STO RL901 *NO. OF SETS TO BE FILLED FP229810 0AEB 4400 0702 2992 | BSI L FTCH2 BRANCH TO FETCH THE PHASE FP229820 0AED C05D 2993 | RL060 LD RL900 FETCH SET LOCATION FP229830 0AEE 93DE 2994 | S 3 BX914-X TEST FOR AND BRANCH FP229840 0AEF 4C28 0AF9 2995 | BSC L RL080,Z+ *IF NOT END OF SECTOR FP229850 0AF1 4400 0764 2996 | BSI L WRIT2 BRANCH TO WRITE THE SECTOR FP229860 0AF3 1810 2997 | SRA 16 CLEAR FP229870 0AF4 D056 2998 | STO RL900 *SECTOR LOCATION FP229880 0AF5 7401 0D7B 2999 | MDX L BUFR2+1,1 INCREMENT SECTOR ADDRESS FP229890 0AF7 4400 0702 3000 | BSI L FTCH2 BR TO FETCH NEXT SECTOR FP229900 0AF9 6580 0B4B 3001 | RL080 LDX I1 RL900 RESET XR1 WITH THE REM FP229910 0AFB C500 0D7C 3002 | LD L1 BUFR2+2 FETCH PH ID TO LOOK UP FP229920 0AFD 4400 0722 3003 | BSI L SSLET BRANCH TO SEARCH SLET FP229930 0AFF 4C20 0B1B 3004 | BSC L RL120,Z BRANCH IF PHASE ID FOUND FP229940 3005 | * FP229950 3006 | * CONTINUE IF THE PHASE REQUESTED IS FIRST PHASE OF FP229960 3007 | * A PROGRAM THAT HAS BEEN BYPASSED OR VOIDED. IF FP229970 3008 | * YES, INSERT ZEROS IN REMAINDER OF SLET ENTRY IN FP229980 3009 | * THE REQUESTING PHASE. FP229990 3010 | * FP230000 0B01 6205 3011 | LDX 2 5 XR2 = NO. POSS PROGS VOIDED FP230010 0B02 C680 0B50 3012 | RL100 LD I2 RL906-1 FETCH PHASE ID FP230020 0B04 E323 3013 | AND 3 BY972-X TEST FOR AND FP230030 0B05 F400 0740 3014 | EOR L SS900 *BRANCH IF A FP230040 0B07 4C18 0B19 3015 | BSC L RL110,+- *BYPASSED OR VOIDED PROGRAM FP230050 0B09 C680 0B56 3016 | LD I2 RL908-1 FETCH PHASE ID, TEST 2-5 FP230052 0B0B E323 3017 | AND 3 BY972-X *FOR AND BRANCH IF LAST 2-5 FP230054 0B0C F400 0740 3018 | EOR L SS900 *PHASE OF A BYPASSED OR 2-5 FP230056 0B0E 4C18 0B19 3019 | BSC L RL110,+- *VOIDED PROGRAM 2-5 FP230058 0B10 72FF 3020 | MDX 2 -1 DECR PROG CNT, SKIP IF ZERO FP230060 0B11 70F0 3021 | MDX RL100 BRANCH TO TEST NEXT PROGRAM FP230070 3022 | * FP230080 0B12 C480 0AD4 3023 | LD I RL020+1 FETCH PH ID OF REQUESTING FP230090 0B14 18D0 3024 | RTE 16 *PHASE AND SHIFT TO EXT FP230100 0B15 C400 0740 3025 | LD L SS900 FETCH MISSING PHASE ID FP230110 0B17 4400 07EF 3026 | BSI L ER026 BR TO ERROR E 26, RETURN FP230120 0B19 6600 0B4D 3027 | RL110 LDX L2 RL903-1 XR2 POINTS TO ZEROS FP230130 0B1B 7101 3028 | RL120 MDX 1 1 INCR LOCATION POINTER FP230140 0B1C 6939 3029 | STX 1 RL907 *AND SAVE FP230150 0B1D 7401 0B4B 3030 | MDX L RL900,1 INCREMENT REMAINDER FP230160 0B1F C036 3031 | LD RL907 FETCH LOCATION POINTER FP230170 0B20 93DD 3032 | S 3 BX913-X TEST FOR AND BRANCH FP230180 0B21 4C30 0B48 3033 | BSC L RL200+1,-Z *IF SECTOR COMPLETE FP230190 0B23 C201 3034 | RL140 LD 2 1 FETCH AN ENTRY FP230200 0B24 D500 0D7C 3035 | STO L1 BUFR2+2 *AND STORE TO BUFFER FP230210 0B26 7401 0B4B 3036 | MDX L RL900,1 INCREMENT REMAINDER FP230220 0B28 1000 3037 | NOP AVOID POSSIBLE SKIP FP230230 0B29 74FF 0B4D 3038 | MDX L RL902,-1 DECR CNTR, SKIP IF ZERO FP230240 0B2B 7013 3039 | MDX RL180 BRANCH TO STORE NEXT WORD FP230250 0B2C C3D5 3040 | LD 3 BX903-X RESET FP230260 0B2D D01F 3041 | STO RL902 *COUNTER FP230270 0B2E 74FF 0B4C 3042 | MDX L RL901,-1 DECR SET CNT, SKIP IF ZERO FP230280 0B30 70BC 3043 | MDX RL060 BRANCH TO PROCESS NEXT SET FP230290 0B31 4400 0764 3044 | BSI L WRIT2 BRANCH TO WRITE THE SECTOR FP230300 0B33 7403 0AD4 3045 | RL150 MDX L RL020+1,3 POINT TO NEXT RELOAD ENTRY FP230310 0B35 709D 3046 | MDX RL020 BR TO CHECK NEXT ENTRY FP230320 3047 | * FP230330 0B36 1810 3048 | RL160 SRA 16 CLEAR FP230340 0B37 D013 3049 | STO RL900 *REMAINDER FP230350 0B38 7401 0D7B 3050 | MDX L BUFR2+1,1 INCREMENT SECTOR ADDRESS FP230360 0B3A 4400 0702 3051 | BSI L FTCH2 BRANCH TO FETCH NEXT SECTOR FP230370 0B3C 6580 0B4B 3052 | LDX I1 RL900 XR1 = NEW REMAINDER FP230380 0B3E 70E4 3053 | MDX RL140 BRANCH TO STORE SLET INFO FP230390 3054 | * FP230400 0B3F C00B 3055 | RL180 LD RL900 FETCH REMAINDER FP230410 0B40 93DE 3056 | S 3 BX914-X TEST FOR AND BRANCH FP230420 0B41 4C18 0B47 3057 | BSC L RL200,+- *IF SECTOR COMPLETED FP230430 0B43 7201 3058 | MDX 2 1 INCR TO NEXT SLET WORD FP230440 0B44 6580 0B4B 3059 | LDX I1 RL900 POINT TO NEXT BUFFER WORD FP230450 0B46 70DC 3060 | MDX RL140 BRANCH TO STORE NEXT WORD FP230460 3061 | * FP230470 0B47 7201 3062 | RL200 MDX 2 1 INCR TO NEXT SLET WORD FP230480 0B48 4400 0764 3063 | BSI L WRIT2 BRANCH TO WRITE A SECTOR FP230490 0B4A 70EB 3064 | MDX RL160 BRANCH TO FETCH NEXT SECTOR FP230500 3065 | * FP230510 3066 | * CONSTANTS AND WORK AREAS FP230520 3067 | * FP230530 0B4B 0000 3068 | RL900 DC *-* SAVED REMAINDER FP230540 0B4C 0000 3069 | RL901 DC *-* SAVED SET CNT TO PATCH FP230550 0B4D 0003 3070 | RL902 DC 3 CTR TO UPDATE 3 WDS/SET FP230560 0B4E 0000 3071 | RL903 DC 0 ZEROES TO PLACE IN A FP230570 0B4F 0000 3072 | DC 0 *REQUESTING PHASE WHEN FP230580 0B50 0000 3073 | DC 0 *PROG REQUESTED NOT PRESENT FP230590 3074 | * FP230600 0B51 0224 3075 | RL906 DC PAIR2 FIRST ID FP230610 0B52 0226 3076 | DC PAIR3 *OF FP230620 0B53 0230 3077 | DC PAIR8 *PROGRAMS THAT FP230630 0B54 0232 3078 | DC PAIR9 *MAY BE FP230640 0B55 0234 3079 | DC PAIRA *PASSED OR VOIDED FP230650 0B56 0000 3080 | RL907 DC *-* TEMPORARY XR1 STORAGE FP230660 0B57 0225 3081 | RL908 DC PAIR2+1 LAST ID 2-5 FP230662 0B58 0227 3082 | DC PAIR3+1 *OF 2-5 FP230663 0B59 0231 3083 | DC PAIR8+1 *PROGRAMS THAT MAY 2-5 FP230665 0B5A 0233 3084 | DC PAIR9+1 *BE BYPASSED 2-5 FP230667 0B5B 0235 3085 | DC PAIRA+1 *OR VOIDED 2-5 FP230669 3086 | * FP230670 3087 | *************************************************** FP230680 3088 | * FP230690 3089 | * PRINT 'END OF RELOAD' MESSAGE 2-9 FP230700 3090 | * FP230710 0B5C 6500 0B67 3091 | C3900 LDX L1 MSGXX+1 POINT TO END MESSAGE FP230720 0B5E 6680 0B66 3092 | LDX I2 MSGXX FETCH WORD CNT OF END MSG FP230730 0B60 4400 08F3 3093 | BSI L CNPTR BRANCH TO PRINT MESSAGE FP230740 0B62 6C00 0071 3094 | STX L $FLSH SET 'JOB' RCD REQUIRED INDR FP230750 0B64 4C00 0038 3095 | BSC L $EXIT BRANCH TO FETCH SUPV FP230760 3096 | * FP230770 3097 | * 'END OF RELOAD' MESSAGE 2-9 FP230780 3098 | * FP230790 0B66 0008 3099 | MSGXX DC C3998-* WORD COUNT OF END MESSAGE FP230800 0B67 8134 7430 2150 1021 3100 | DMES 'REND OF RELOAD 'R'E 2-9 FP230810 6034 5C50 3C30 2181 | 3101 | * FP230820 3102 | * FP230830 0B6F 3103 | C3998 BSS C3000+2*@SCNT-*-1 PATCH AREA FP230840 3104 | * FP230850 3105 | * FP230860 0C37 3106 | C3999 EQU *-1 END OF OVERLAY 3 FP230870 3107 | * FP230880 0C38 3108 | END BA000 END OF PHASE 2 FP230890 There were no errors in this assembly Program transfer address = 0378 === CROSS REFERENCES ========================================================== Name Val Defd Referenced #ANDU 0023 2295 2527 2531 2566 #BNDU 0028 2296 2532 2536 2567 #CIAD 001B 2294 2400 #CIBA 003C 2300 2514 2516 2557 #CIDN 0037 2299 2477 #CSHN 005A 2303 2491 2505 2551 #FPAD 002D 2297 2523 2525 2563 #PIOD 0019 2292 2393 #PPTR 001A 2293 2395 #RP67 0011 2291 2391 #SCRA 0041 2301 2508 2510 2512 2554 #SYSC 0008 2290 2397 #ULET 0050 2302 2488 2518 2520 2560 $1132 007F 152 $1403 0080 153 $ACDE 009F 95 $CH12 0006 96 2413 2414 $CIBA 0005 102 2452 $CILA 005A 97 2419 2420 $COMN 0007 98 $CORE 000E 99 2416 2417 $CPTR 007E 100 $CTSW 000F 101 $CYLN 009A 103 $DADR 0010 105 $DBSY 00EE 104 919 953 970 1050 1072 1108 2707 2959 $DCDE 0077 106 $DCYL 00A4 107 2437 2439 2441 $DREQ 0012 108 2428 2429 $DUMP 003F 109 2463 2710 2751 2776 $DZIN 0076 110 2430 2431 $EXIT 0038 111 3095 $FLSH 0071 112 3094 $FPAD 0095 113 2443 2444 $HASH 0014 114 $I200 00B3 120 $I205 00B8 121 $I400 00C4 122 $I403 00D0 123 $IBSY 0013 115 289 869 $IBT2 00B9 116 2446 $IBT4 00D4 117 266 $IOCT 0032 118 2750 2775 $IREQ 002C 119 2448 2711 $KCSW 007C 124 $LAST 0033 125 344 $LEV0 0008 126 $LEV1 0009 127 $LEV2 000A 128 $LEV3 000B 129 $LEV4 000C 130 $LEV5 000D 131 $LINK 0039 132 $NDUP 0034 133 $NXEQ 0035 134 $PBSY 0036 135 $PGCT 0037 136 2731 $PHSE 0078 137 $PRET 0028 138 1277 1393 $PST1 0081 139 $PST2 0085 140 $PST3 0089 141 $PST4 008D 142 $SNLT 00EF 143 $STOP 0091 144 $SYSC 00E0 145 2398 $UFDR 007D 146 $UFIO 0079 147 $ULET 002D 148 2433 2434 $WRD1 007B 150 $WSDR 007A 149 $ZEND 01E0 151 1346 2464 2699 2704 'CCOL 0050 175 358 359 361 362 'CIDN 0003 172 'COLD 0030 165 'CSTR 00D0 166 1346 2704 'DCOM 0001 158 1347 'DKIP 00F7 2308 2465 'HDNG 0007 162 2801 'IDAD 0000 157 1386 2758 'MNCR 1000 177 1356 1964 1970 2082 'MSCT 0658 164 'MXDR 0005 171 'NDCY 0003 170 'P2AD 0630 163 261 1352 1353 1354 1411 2091 2315 2678 2800 'PRWC 003C 174 398 'RIAD 0002 159 1348 'RLTB 0006 161 1316 1966 'SADR 0001 169 'SCNT 0140 176 929 1292 1293 1402 1407 1956 1964 1970 1971 2076 2082 2083 2281 2596 2650 2668 2691 2721 2784 2923 2938 2947 3103 'SLET 0003 160 1316 1349 1350 2084 2948 'STAT 0007 173 2742 'WDCT 0000 168 ASCRA 01FE 215 216 2513 2555 B0000 0D7C 1977 281 2039 2043 2076 B0010 0D99 2006 1997 B0020 0D9C 2008 2028 B0040 0DA0 2010 2023 B2END 0EBC 2077 1066 BA000 0378 264 260 1402 1407 3108 BA010 038A 275 270 BB000 038F 283 274 323 333 425 437 518 589 789 797 826 840 944 1153 2717 BB020 039B 291 337 BB040 03A7 300 296 BB060 03A8 301 299 BB100 03AA 307 284 BB110 03B3 315 309 BB120 03BA 320 311 BB140 03C0 327 316 BB160 03C4 330 312 BB180 03C9 335 325 BB200 03CD 343 288 320 330 352 BB250 03D6 348 345 BB900 03DE 357 285 318 328 348 BB902 0430 360 350 BB904 0482 363 346 BC000 04DC 400 301 BC020 04E1 404 2370 BD000 04F4 417 404 988 BD045 051B 464 448 BD050 0525 471 465 BD060 052A 475 467 BD080 052C 476 470 BD090 0539 491 857 BD095 0551 516 492 494 496 503 BD099 0555 525 514 566 2071 BD100 0557 527 542 BD109 0569 543 527 528 BD110 056A 544 537 BD120 056C 548 535 BD200 0585 573 475 532 581 1839 2260 BE000 0594 583 408 BE020 05A8 601 598 BE080 05B2 617 591 BE085 05C6 636 633 BE086 05C9 649 659 BE087 05D7 660 657 BE090 05E1 674 651 654 BE100 05E8 682 675 BE120 05F6 692 697 2686 BE140 05F9 694 698 BE160 05FC 696 699 BE180 0606 701 678 BE200 0608 705 1465 2124 BE220 0613 715 622 BE240 0615 717 619 627 682 709 711 714 BE260 0618 719 713 716 BE280 061B 721 719 BE300 061E 727 729 BE320 0629 736 722 BE340 062C 738 788 BE380 0632 743 740 1762 BE400 063D 752 748 BE440 0649 761 756 BE460 064E 765 760 BE480 0655 770 754 BE500 065F 779 775 BE520 0663 783 773 781 BE540 066A 789 782 BE560 066C 793 596 602 667 1804 BE900 0672 801 484 721 732 BF000 0693 834 410 BF100 06B3 865 837 871 BG000 06BC 873 412 BG040 06C7 886 891 910 1201 BG060 06CC 890 878 BH000 06E4 912 888 2458 BH010 06EE 919 920 BH020 06F2 922 913 BH900 06F4 927 917 BH902 06F6 929 915 BUFR1 0C38 1965 685 692 694 696 700 1058 2691 2818 2822 2837 2849 2858 2916 2921 2925 2938 2967 2975 BUFR2 0D7A 1971 767 961 1065 1080 1082 1090 1098 1345 1912 1915 1918 1947 2406 2408 2701 2704 2723 2727 2729 2733 2739 2742 2786 2790 2791 2819 2821 2987 2999 3002 3035 3050 BUFR3 0EBE 2083 533 577 978 998 1008 1011 1116 1308 1309 1416 1496 1499 1504 1509 1513 1517 1540 1601 1604 1607 1615 1639 1682 1695 1731 1734 1749 1753 1758 1774 1836 1842 1854 1982 1995 1998 2007 2010 2012 2014 2018 2024 2025 2034 2037 2066 2102 2120 2389 2473 2574 2614 2629 2652 2663 BX901 08FD 1282 286 295 335 403 405 440 451 556 558 628 661 727 785 816 819 849 936 1420 1430 1440 1475 1692 1718 1725 1742 1800 1865 1890 2020 2140 2220 2504 2550 2585 2730 2927 2940 BX902 08FE 1283 687 710 720 734 771 2741 2839 BX903 08FF 1284 793 986 3040 BX904 0900 1285 683 BX905 0901 1286 409 2047 2253 BX906 0902 1287 1914 BX908 0903 1288 407 1089 1719 2035 2498 2503 2507 2544 2549 2553 2556 2562 BX909 0904 1289 2559 BX910 0905 1290 901 BX912 0906 1291 411 BX913 0907 1292 498 552 1455 1482 2015 2054 2632 3032 BX914 0908 1293 486 500 554 686 745 1457 1484 1599 1614 1637 1708 2017 2056 2838 2985 2994 3056 BX915 0909 1294 650 BY900 090A 1296 746 749 752 757 761 764 769 BY902 090C 1298 501 510 BY903 090D 1299 508 512 BY904 090E 1300 2166 2181 2197 2229 BY905 090F 1301 2158 2198 2202 2206 2227 BY906 0910 1302 1170 1178 1185 1235 1276 1279 BY909 0912 1304 2108 2114 2127 2211 BY910 0913 1305 441 705 1461 2019 BY911 0914 1306 630 636 652 655 893 1026 1177 1428 1434 1786 1790 1809 1814 1822 1871 1876 2148 2171 2179 2191 2203 2218 2226 2235 2251 BY912 0915 1307 631 1427 1429 1824 1870 1875 2147 2219 2234 BY913 0916 1308 579 1000 1501 1541 1984 2041 BY914 0917 1309 529 1032 1494 1502 1511 1537 1737 1834 1990 2064 2257 2269 BY915 0918 1310 454 509 707 852 2036 2051 2060 2069 BY916 0919 1311 766 BY917 091A 1312 513 538 562 906 1578 1582 1584 1603 1618 1624 1626 1632 1634 1646 1648 1654 1660 1662 1691 1722 1846 2050 BY918 091B 1313 511 539 559 563 903 1579 1585 1587 1606 1619 1621 1623 1629 1631 1649 1651 1655 1657 1659 1693 1849 2070 BY919 091C 1314 450 457 739 742 848 856 BY920 091D 1315 466 473 575 1034 2271 BY922 091E 1316 1750 2027 BY923 091F 1317 1709 1712 1715 BY924 0920 1318 273 548 1680 1703 1745 1815 1828 2013 2104 BY925 0921 1319 436 590 609 663 838 1802 1892 2143 BY926 0922 1320 601 662 1801 1891 2142 BY927 0923 1321 422 426 586 BY928 0924 1322 585 835 874 BY929 0925 1323 298 315 319 332 BY930 0926 1324 300 322 329 BY931 0927 1325 836 879 1424 2106 2138 BY932 0928 1326 867 BY933 0929 1327 428 587 841 844 BY934 092B 1329 269 464 491 665 676 877 1084 2484 2687 2712 BY935 092C 1330 276 1088 1694 1717 1730 BY936 092D 1331 738 741 743 784 BY937 092E 1332 438 557 898 943 1079 1083 1716 1721 2021 2497 2502 2543 2548 BY938 092F 1333 487 753 758 762 BY939 0930 1334 435 479 595 621 774 777 796 939 BY940 0931 1335 731 736 BY941 0932 1336 432 588 610 794 839 937 BY942 0933 1337 485 755 759 BY943 0934 1338 482 728 730 BY944 0935 1339 481 611 810 813 824 829 BY945 0936 1340 706 765 BY946 0937 1341 291 BY947 0938 1342 502 750 1458 1690 1761 2057 2059 BY948 0939 1343 317 334 BY949 093A 1344 294 324 327 BY950 093B 1345 772 BY951 093C 1346 2399 BY952 093D 1347 2662 BY954 093E 1348 2405 BY955 093F 1349 997 1751 1981 2006 2026 2033 BY956 0940 1350 534 1009 1497 1506 1508 1837 1996 2038 2121 BY957 0941 1351 618 BY958 0942 1352 904 1847 BY960 0943 1353 886 BY961 0944 1354 2456 BY962 0945 1355 2583 BY963 0946 1356 2451 BY964 0947 1357 2883 BY965 0948 1358 828 1923 1929 2427 2685 2814 2824 2827 2850 2976 2978 BY966 0949 1359 310 712 830 1820 2208 BY967 094A 1360 2163 BY969 094B 1361 715 BY970 094C 1362 2116 BY972 094D 1363 1785 1789 1799 2170 2178 2190 3013 3017 BY973 094E 1364 478 BY974 094F 1365 1986 BY975 0950 1366 476 612 BY976 0951 1367 2410 BY977 0952 1368 453 497 851 BY978 0953 1369 560 908 1573 1583 1586 1723 1851 BY979 0954 1370 BY980 0955 1371 BY981 0956 1372 429 433 708 845 940 BY982 0957 1373 447 468 493 517 941 1038 BY983 0958 1374 439 942 BYPAS 06F7 935 1180 1873 2150 2195 2230 BZ900 095A 1376 1576 1592 1612 1640 BZ901 095B 1377 1590 1598 1609 1644 1647 1650 1658 1661 1664 1668 BZ902 095C 1378 BZ903 095D 1379 902 2432 2489 2522 2561 2575 2610 2615 BZ904 095E 1380 1884 BZ905 095F 1381 1812 BZ906 0960 1382 2613 2622 2626 2638 BZ907 0961 1383 1572 1575 1622 1625 1630 1633 1636 BZ908 0962 1384 495 747 890 1086 1417 1823 1895 2486 2608 BZ909 0963 1385 308 413 868 876 1200 BZ910 0964 1386 2738 BZ911 0965 1387 424 2144 BZ912 0966 1388 1441 1464 1805 1818 BZ913 0967 1389 1425 1432 1866 BZ930 0969 1394 265 BZ999 09B5 1405 260 C0000 09B9 1415 1410 1821 1956 C0020 09BC 1417 1415 C0040 09D0 1433 1421 C0050 09DB 1444 1418 C0060 09E9 1462 1436 1819 1857 C0100 09EF 1472 1543 1897 C0120 0A11 1502 1495 C0130 0A20 1511 1507 C0140 0A2C 1518 1542 C0150 0A2E 1519 1503 1515 1538 C0160 0A3C 1531 1528 C0170 0A4C 1543 1530 C0300 0A5E 1569 565 909 1616 1728 1852 C0310 0A72 1590 1580 C0320 0A75 1592 1665 C0330 0A79 1598 1591 1652 C0340 0A7E 1603 1642 C0350 0A8B 1612 1645 1669 C0355 0A8E 1614 1594 C0360 0A93 1618 1613 C0370 0A9E 1629 1620 C0380 0AA4 1636 1593 1627 C0400 0AAD 1644 1588 C0410 0AB7 1654 1610 C0420 0AC4 1667 1656 C0500 0AC7 1676 751 C0510 0ACA 1678 1453 1735 C0520 0AEC 1713 1711 C0540 0B0A 1736 1747 1754 C0550 0B19 1748 1738 C0560 0B24 1755 1746 C0570 0B26 1757 1752 C0580 0B2B 1760 1677 1681 C0600 0B3B 1783 1442 1452 1904 C0610 0B3C 1784 1419 1796 1807 1811 1863 1864 1879 1882 1883 1886 1888 C0615 0B53 1805 1797 C0622 0B5B 1811 1867 C0640 0B83 1841 1835 C0650 0B9C 1861 1832 1833 1840 1856 C0655 0B9D 1863 1806 C0660 0BA4 1869 1431 C0670 0BAC 1875 1435 1869 1896 C0680 0BB0 1879 1787 C0690 0BB4 1882 1791 C0695 0BBB 1888 1816 C0700 0BBD 1889 1813 C0710 0BC3 1895 1810 C0720 0BCD 1911 666 677 1949 C0730 0BD9 1919 1926 C0740 0BE3 1927 1921 1936 C0750 0BEE 1937 1930 C0760 0BF4 1945 1917 1924 C0800 0DBB 2033 2011 2072 C0810 0DC0 2037 2067 C0820 0DC9 2042 2065 C0822 0DD2 2049 2046 C0825 0DDF 2061 2048 C0830 0DE8 2069 2052 C0840 0DED 2073 2062 2063 C0841 0DEE 2074 2045 C0911 0A55 1552 1492 1493 1505 1514 1516 1535 1536 C0912 0A56 1554 1474 1523 1531 C0913 0A57 1555 1479 C0914 0A58 1556 1480 1525 1533 C0915 0A59 1557 1486 C0916 0A5A 1558 1520 1527 C0918 0A5C 1560 1522 1532 C0950 0B31 1766 1683 1733 1757 1843 1853 C0970 0BFC 1953 1913 1946 C0999 0C37 1959 1410 C1000 09B9 2097 2090 2281 C1020 09BA 2102 449 471 580 847 1036 2267 2268 C1030 09C2 2112 1362 2117 2209 C1050 09C8 2116 1362 2113 C1064 09D4 2126 2115 C1070 09D9 2137 2129 2182 2194 2223 C1080 09E4 2147 2139 C1134 0094 189 2905 C1200 09EA 2157 2118 2231 C1210 09EE 2160 2162 2187 C1220 09F6 2165 2159 2160 2161 C1230 09FA 2169 2164 2167 C1240 0A00 2177 2183 C1260 0A11 2189 2180 2184 2193 C1270 0A1D 2197 2172 C1290 0A23 2202 2169 C1300 0A27 2205 2228 C1310 0A2D 2210 2185 2212 C1320 0A33 2215 2204 C1350 0A41 2224 2217 2221 C1360 0A47 2229 2199 2213 C1380 0A4C 2233 2215 2222 C1400 0A52 2249 472 2272 C1440 0A5A 2255 2266 C1450 0A61 2261 2258 C1460 0A72 2272 2252 2270 C1920 0A51 2240 2186 2201 2207 2216 2225 C1941 0A74 2276 2255 2256 C1942 0A75 2277 2254 2265 C1943 0A76 2278 2261 2264 C1999 0C37 2284 2090 C2000 09B9 2319 887 2314 2668 C2010 09BA 2324 2337 C2020 09BF 2327 2325 C2030 09CB 2335 2345 C2040 09EC 2369 2326 C2060 0A2F 2425 2422 C2100 0A5F 2472 2423 2592 C2120 0A63 2476 2481 C2140 0A6D 2484 2478 C2160 0A7B 2497 2487 C2180 0AAB 2543 2485 C2190 0ADF 2592 2493 2539 C2200 0AE5 2607 2538 2609 2612 2642 C2240 0AF3 2617 2630 C2280 0B02 2632 2625 C2282 0B06 2636 2634 C2284 0B0B 2640 2635 C2300 0B11 2649 2573 2655 C2340 0B15 2652 2654 C2400 0B1B 2661 2388 2665 C2900 09DC 2349 2324 2334 2335 2336 C2901 09DD 2350 2349 C2903 09E9 2362 2331 2340 C2904 09EA 2364 2333 2342 C2906 0A5B 2462 2371 C2907 0A5C 2463 2447 C2908 0A5D 2464 2418 C2909 0A5E 2465 2445 C2910 0AE1 2596 2577 C2911 0AE2 2597 2579 2581 C2912 0AE4 2599 2501 2506 2509 2511 2515 2519 2524 2529 2534 2547 2552 C2999 0C37 2671 2314 C3000 09B9 2682 2457 2677 3103 C3040 09EC 2723 2725 C3060 0A13 2763 414 987 C3200 0A22 2783 2709 2795 C3220 0A26 2786 2788 C3260 0A2D 2791 2794 C3400 0A3E 2812 2688 2817 2825 C3410 0A47 2818 2815 C3420 0A4F 2822 2854 C3430 0A55 2826 2833 C3440 0A74 2853 2831 C3450 0A5F 2837 2828 C3620 0D80 1983 1999 C3640 0D84 1985 1993 C3660 0D8E 1994 1991 C3800 0A77 2870 2684 2873 C3810 0A79 2871 2878 C3820 0A7D 2874 2877 C3840 0A83 2877 2887 C3860 0A86 2880 2876 C3900 0B5C 3091 2769 C3902 0A10 2757 2700 C3903 0A12 2759 2768 C3920 0A36 2799 2793 C3921 0A37 2800 2789 C3922 0A38 2801 2732 C3924 0A3A 2803 2726 C3926 0A3C 2804 2722 C3927 0A3D 2805 2728 C3940 0A76 2858 2813 2816 2841 2848 2851 C3960 0D98 2000 1988 1989 C3980 0A92 2892 2874 2907 C3982 0A9E 2904 2907 C3984 0AA0 2907 2871 C3998 0B6F 3103 3099 C3999 0C37 3106 2677 CARD1 03E0 359 357 371 1343 CARD2 0432 362 1344 CAREA 01F7 208 209 561 564 1724 1727 2490 CARID 01FF 216 217 2476 CD000 02D6 254 255 347 351 CD010 02D9 255 1396 1397 CDCNV 0093 188 2903 CHN12 021D 223 2412 CIBFR 01FB 212 213 275 2449 2517 2558 CILWC 01F0 202 203 2383 2698 2703 CK020 0674 808 832 CK040 067D 814 818 CK060 0686 821 477 613 831 1366 CK080 068E 828 821 1366 CK500 0AA1 2914 2690 2933 CK510 0AA9 2921 2942 CK520 0AB0 2925 2929 CK530 0ABC 2938 2932 CK910 0AC2 2947 2915 CK912 0AC4 2949 2918 2924 2930 2941 CK914 0AC5 2950 2920 2931 CKBRD 0095 190 CKSUM 0673 807 620 809 820 CNPTR 08F3 1274 1121 1152 1171 1179 1188 1198 1236 1280 3093 CNVID 021F 225 226 2357 CNVRT 009C 197 2358 CO180 0A4E 1545 1477 CVRT 009D 198 2359 DCYL1 01F3 204 205 2436 DCYL2 01F4 205 206 2438 DCYL3 01F5 206 207 2440 DINDR 01F9 210 211 2875 DISK1 0097 192 DISKN 0098 193 DISKZ 0096 191 DZ000 00F2 167 918 952 969 1049 1071 1107 2308 2706 2958 ER001 079A 1118 823 1122 ER002 07A3 1124 415 ER003 07A9 1129 423 842 875 ER004 07AF 1134 629 737 ER005 07B5 1139 2482 ER020 07BB 1144 1827 ER021 07C1 1149 684 2462 ER022 07CA 1155 1092 1720 1726 ER023 07D0 1160 1877 2236 ER024 07D8 1166 880 894 1172 1872 2149 ER025 07E4 1174 1880 1885 2128 2145 2192 ER026 07EF 1182 1191 1547 3026 ER027 07FF 1193 550 1705 1830 2381 ER028 080C 1203 1498 1512 1838 2122 ER029 0812 1208 1893 ER030 0818 1213 688 ER031 0824 1223 2980 ER032 082A 1229 2329 2339 2882 ER100 07C6 1152 1127 1132 1137 ER130 081E 1218 2840 ER300 07E9 1177 1206 1211 1216 ER400 07EA 1178 1164 ER510 07F9 1189 1183 ER520 07FB 1190 1184 ER600 0805 1198 1147 1158 ER610 0808 1200 1548 ER620 082F 1232 1142 1196 1221 1226 ER640 0834 1236 1239 ER660 0836 1237 1232 ER670 0838 1238 1233 F1900 0AD0 2966 2957 F2900 070C 960 951 F3900 0718 977 968 FLETI 0200 217 218 1826 FPADR 0201 218 219 2442 2526 2564 2584 2588 FTCH1 0AC6 2956 2922 2961 FTCH2 0702 950 768 955 1916 2407 2702 2740 2820 2992 3000 3051 FTCH3 070E 967 271 578 972 999 1500 1510 1518 1605 1732 1759 1775 1855 1983 2008 2040 2617 2664 I1134 0091 186 2901 I1442 0090 185 2899 I2501 008F 184 2897 IKBRD 0092 187 INTPT 0296 251 252 LET00 0203 220 221 1845 2611 LMODE 01F6 207 208 268 LOLIM 0240 244 245 648 LPHID 023F 243 244 892 MAXPH 01FD 214 215 1423 MODIF 071A 984 406 MSG01 024B 246 247 1119 1120 MSG02 0257 247 248 1125 1126 MSG03 0267 248 249 1130 1131 MSG04 027A 249 250 1135 1136 MSG05 0285 250 251 1140 1141 MSG20 083B 1243 1145 1146 MSG21 0849 1245 1150 1151 1243 MSG22 0856 1247 1156 1157 1245 MSG23 0864 1249 1161 1162 1247 MSG24 0875 1251 1167 1168 1249 MSG25 0880 1253 1175 1176 1251 MSG26 0893 1255 1186 1187 1253 MSG27 08A2 1257 1194 1195 1255 MSG28 08AE 1259 1204 1205 1257 MSG29 08B7 1261 1209 1210 1259 MSG30 08C5 1263 1214 1215 1219 1220 1261 MSG31 08D2 1265 1224 1225 1263 MSG32 08E2 1268 1230 1231 1265 MSG33 08F3 1270 1268 MSGXX 0B66 3099 3091 3092 OVLAY 09B6 1410 701 914 916 928 985 2087 2311 2674 P1132 008D 182 2895 P1403 008C 181 2893 PACK0 0483 369 292 393 PAIR1 0222 228 229 1784 2165 2177 2189 PAIR2 0224 229 230 2210 3075 3081 PAIR3 0226 230 231 3076 3082 PAIR4 0228 231 232 PAIR5 022A 232 233 PAIR6 022C 233 234 2250 2379 PAIR7 022E 234 235 PAIR8 0230 235 236 1381 3077 3083 PAIR9 0232 236 237 3078 3084 PAIRA 0234 237 238 3079 3085 PAIRB 0236 238 239 PAIRC 0238 239 240 PAIRD 023A 240 241 PAIRE 023C 241 242 1380 PAIRF 023E 242 243 272 PCPAD 008E 183 PIDEV 009B 196 2355 PINPT 009A 195 2354 PK020 0487 372 287 293 336 PK040 048B 375 391 PK060 049C 392 370 PKBFR 04A0 398 373 400 808 814 1028 1037 1163 1169 PRINT 0099 194 2074 2351 PRNPR 0221 227 228 PRNRD 0220 226 227 2392 PTRID 021C 222 223 224 2350 RDRID 021E 224 225 2353 RINDR 01F2 203 204 283 313 RL020 0AD3 2975 2982 3023 3045 3046 RL060 0AED 2993 3043 RL080 0AF9 3001 2995 RL100 0B02 3012 3021 RL110 0B19 3027 3015 3019 RL120 0B1B 3028 3004 RL140 0B23 3034 3053 3060 RL150 0B33 3045 2981 RL160 0B36 3048 3064 RL180 0B3F 3055 3039 RL200 0B47 3062 3033 3057 RL900 0B4B 3068 2989 2993 2998 3001 3030 3036 3049 3052 3055 3059 RL901 0B4C 3069 2991 3042 RL902 0B4D 3070 3038 3041 RL903 0B4E 3071 3027 RL906 0B51 3075 3012 RL907 0B56 3080 3029 3031 RL908 0B57 3081 3016 RLTBL 0AD2 2974 2693 2977 SCORE 01FC 213 214 2415 SHIFT 0204 221 222 905 907 1848 1850 SS020 0728 999 1012 SS040 072C 1002 1007 SS060 073B 1013 1004 SS080 073C 1014 996 1010 SS900 0740 1019 995 1002 1013 1234 1546 3014 3018 3025 SSBFR 0202 219 220 1571 SSLET 0722 994 549 1015 1445 1476 1704 1829 1903 2328 2338 2380 2881 2979 3003 T1442 01F8 209 210 2390 TZ100 029F 253 1398 UP040 074E 1035 1033 UP900 0757 1041 1030 1031 UPCAD 0741 1025 1039 1462 2123 UPLIM 0241 245 246 VERSN 01FA 211 212 2396 W1040 075C 1050 1051 W1900 0762 1057 1048 W2040 076E 1070 1085 1087 1091 W2100 0776 1079 1069 W2140 077E 1084 1081 W2900 078C 1097 1070 2705 W2902 078E 1099 1068 2369 W3900 0798 1115 1106 WRFT3 0B32 1772 1748 1776 WRIT1 0758 1047 1052 2689 2692 WRIT2 0764 1064 430 763 846 1067 1074 1944 2454 2734 2743 2792 2996 3044 3063 WRIT3 078F 1105 469 544 576 854 1110 1529 1539 1608 1696 1755 1773 1994 2344 2492 2537 2568 2590 2628 2641 2886 WRTYZ 029D 252 253 254 1275 X 092A 1328 267 269 273 276 286 291 294 295 298 300 308 310 315 317 319 322 324 327 329 332 334 335 403 405 407 409 411 413 422 424 428 429 432 433 436 438 439 440 441 447 450 451 453 454 457 464 466 468 473 476 478 479 481 482 485 486 487 491 493 495 497 498 500 501 502 508 509 510 511 512 513 517 529 534 538 539 548 552 554 556 557 558 559 560 562 563 575 585 586 588 590 595 601 609 610 611 612 618 621 628 630 631 636 650 652 655 661 662 663 665 676 683 686 687 705 706 707 710 712 715 727 730 731 734 736 738 739 741 742 743 745 746 747 749 750 752 753 755 757 758 761 762 764 765 766 769 771 772 774 777 784 785 793 794 796 813 816 819 828 829 830 836 838 839 841 844 845 848 849 851 852 856 867 868 874 876 877 879 886 890 893 898 901 902 903 904 906 908 936 937 939 940 941 942 943 986 997 1009 1026 1032 1079 1083 1084 1086 1088 1089 1170 1177 1178 1185 1235 1276 1279 1417 1420 1424 1425 1427 1428 1429 1430 1432 1434 1440 1441 1455 1457 1458 1461 1464 1475 1482 1484 1494 1497 1506 1508 1537 1572 1573 1575 1576 1578 1579 1582 1583 1584 1585 1586 1587 1598 1599 1603 1606 1614 1618 1619 1621 1622 1623 1624 1625 1626 1629 1630 1631 1632 1633 1634 1636 1637 1644 1646 1647 1648 1649 1650 1651 1654 1655 1657 1658 1659 1660 1661 1662 1664 1668 1680 1690 1691 1692 1693 1694 1703 1708 1709 1715 1716 1717 1718 1719 1721 1722 1723 1725 1730 1737 1742 1745 1750 1751 1785 1786 1789 1790 1799 1800 1801 1802 1805 1809 1812 1814 1815 1818 1820 1822 1823 1824 1828 1834 1837 1846 1847 1849 1851 1865 1866 1870 1871 1875 1876 1884 1890 1891 1892 1895 1914 1923 1929 1981 1986 1990 1996 2006 2013 2015 2017 2019 2020 2021 2026 2027 2033 2035 2036 2038 2047 2050 2051 2054 2056 2057 2059 2060 2064 2069 2070 2104 2106 2108 2114 2116 2121 2127 2138 2140 2142 2143 2144 2147 2148 2158 2163 2166 2170 2171 2178 2179 2181 2190 2191 2197 2198 2202 2203 2206 2208 2211 2218 2219 2220 2226 2227 2229 2234 2235 2251 2253 2257 2269 2399 2405 2410 2427 2432 2451 2456 2484 2489 2497 2498 2502 2503 2504 2507 2522 2543 2544 2548 2549 2550 2553 2556 2559 2561 2562 2575 2583 2585 2608 2610 2613 2615 2622 2626 2632 2638 2662 2685 2687 2712 2730 2738 2741 2814 2824 2827 2838 2839 2850 2883 2927 2940 2976 2978 2985 2994 3013 3017 3032 3040 3056 Y 0050 2307 2435 2437 2439 2441 2443 2446 2448