ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \ocldbldr.asm 1 | ABS OCB00010 2 | * OCB00020 3 | * EQUIVALENCES FOR THE RESIDENT MONITOR OCB00030 4 | * OCB00040 0006 5 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 OCB00050 0005 6 | $CIBA EQU /5 ADDR OF CIB ON MASTER CARTRIDGE OCB00060 0018 7 | $CLSW EQU /18 CORE IMAGE LADER SW OCB00070 000E 8 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC) OCB00080 0010 9 | $DADR EQU /10 SCTR ADDR OF PROG TO BE FETCHED OCB00090 0063 10 | $GCOM EQU /63 GRAPHICS CORE LOAD INDICATOR OCB00100 00EE 11 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY OCB00110 0077 12 | $DCDE EQU /77 LOGICAL DRIVE NO. OF PROGRAM OCB00120 0012 13 | $DREQ EQU /12 INDR FOR REQUESTED V. DISK I/O OCB00130 0095 14 | $FPAD EQU /95 ADDR OF WORKING STORAGE,LOG DR 0 OCB00140 0014 15 | $HASH EQU /14 WORK AREA FOR MONITOR PROGRAMS OCB00150 00B3 16 | $I200 EQU /B3 ENTRY POINT TO ILS FOR LEVEL 2 OCB00160 00C4 17 | $I400 EQU /C4 ENTRY POINT TO ILS FOR LEVEL 4 OCB00170 00D3 18 | $I405 EQU /D3 OCB00180 0009 19 | $LEV1 EQU 9 ADDR OF LEVEL 1 INTERRUPT WORD OCB00190 0034 20 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP OCB00200 03A2 21 | $NEND EQU /3A2 1+ADDR OF LAST WORD OF DISKN OCB00210 0035 22 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEC OCB00220 0036 23 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY OCB00230 0078 24 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE OCB00240 0091 25 | $STOP EQU /91 ADDR PROGRAM STOP KEY TRAP OCB00250 007D 26 | $UFDR EQU /7D DRIVE CODE FOR UFIO AREA OCB00260 002D 27 | $ULET EQU /2D ADDR OF LET, LOGICAL DRIVE 0 OCB00270 007A 28 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE OCB00280 01E0 29 | $ZEND EQU /1E0 1+ADDR OF LAST WORD OF DISKZ OCB00290 0294 30 | $1END EQU /294 1+ADDR OF LAST WORD OF DISK1 OCB00300 00D4 31 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 OCB00310 00F2 32 | DZ000 EQU /F2 ENTRY PT TO DISKZ,DISK1,DISKN OCB00320 33 | * OCB00330 34 | * EQUIVALENCES FOR LOCAL/SOCAL FLIPPER (FLIPR) OCB00340 35 | * OCB00350 0001 36 | FL010 EQU 1 ADDR OF LIBF ENTRY POINT (LOCAL) OCB00360 0009 37 | FL020 EQU 9 ADDR OF CALL ENTRY POINT (LOCAL) OCB00370 0033 38 | FL200 EQU /33 ADDR OF FUNCTION SUBR ENTRY PT OCB00380 003A 39 | FL210 EQU /3A ADDR OF ARITHMETIC SUBR ENTRY PT OCB00390 003D 40 | FL220 EQU /3D ADDR OF SOCAL 2 ENTRY POINT OCB00400 0040 41 | FL230 EQU /40 ADDR OF SOCAL 3 ENTRY POINT OCB00410 004D 42 | FL350 EQU /4D ADDR OF SOCAL INPUT AREA (SOCAR) OCB00420 0050 43 | FL380 EQU /50 ADDR OF DUMMY TV ENTRY FOR SOC 1 OCB00430 005A 44 | FL900 EQU /5A ADDR OF SOCAL1 SCTR ADDR,WD CNT OCB00440 0061 45 | FL915 EQU /61 ADDR OF SPECIAL MDX INSTRUCTION OCB00450 0064 46 | FL998 EQU /64 ADDR OF LOCAL INPUT AREA (LOCAR) OCB00460 47 | * OCB00470 48 | * EQUIVALENCES FOR PHASE ID NOS. OCB00480 49 | * OCB00490 0011 50 | @DU17 EQU 17 ID NO. FOR DUP, PHASE 17 OCB00500 0078 51 | @CLB0 EQU 120 ID NO. FOR CORE LOAD BLDR,PH 0/1 OCB00510 0079 52 | @CLB2 EQU 121 ID NO. FOR CORE LOAD BLDR, PH 2 OCB00520 007A 53 | @CLB3 EQU 122 ID NO. FOR CORE LOAD BLDR, PH 3 OCB00530 007B 54 | @CLB4 EQU 123 ID NO. FOR CORE LOAD BLDR, PH 4 OCB00540 007C 55 | @CLB5 EQU 124 ID NO. FOR CORE LOAD BLDR, PH 5 OCB00550 007D 56 | @CLB6 EQU 125 ID NO. FOR CORE LOAD BLDR, PH 6 OCB00560 007E 57 | @CLB7 EQU 126 ID NO. FOR CORE LOAD BLDR, PH 6 OCB00570 007F 58 | @CLB8 EQU 127 ID NO. FOR CORE LOAD BLDR, PH 8 OCB00580 0080 59 | @CLB9 EQU 128 ID NO. FOR CORE LOAD BLDR, PH 9 OCB00590 0081 60 | @CLBA EQU 129 ID NO. FOR CORE LOAD BLDR, PH 10 OCB00600 0082 61 | @CLBB EQU 130 ID NO. FOR CORE LOAD BLDR, PH 11 OCB00610 0083 62 | @CLBC EQU 131 ID NO. FOR CORE LOAD BLDR, PH 12 OCB00620 0084 63 | @CLBD EQU 132 ID FOR CLB PH 13 2G2 OCB00630 0099 64 | @PRNT EQU 153 ID NO. FOR PRINC PRINT SUBR OCB00640 00A1 65 | @CIL2 EQU 161 ID NO. FOR CORE IMAGE LDR, PH 2 OCB00650 66 | * OCB00660 67 | * EQUIVALENCES FOR MESSAGE NOS. OCB00670 68 | * OCB00680 0000 69 | MSG00 EQU 0 OCB00690 0001 70 | MSG01 EQU 1 OCB00700 0002 71 | MSG02 EQU 2 OCB00710 0003 72 | MSG03 EQU 3 OCB00720 0004 73 | MSG04 EQU 4 OCB00730 0005 74 | MSG05 EQU 5 OCB00740 0006 75 | MSG06 EQU 6 OCB00750 0007 76 | MSG07 EQU 7 OCB00760 0008 77 | MSG08 EQU 8 OCB00770 0009 78 | MSG09 EQU 9 OCB00780 000A 79 | MSG10 EQU 10 OCB00790 0010 80 | MSG16 EQU 16 OCB00800 0011 81 | MSG17 EQU 17 OCB00810 0012 82 | MSG18 EQU 18 OCB00820 0013 83 | MSG19 EQU 19 OCB00830 0014 84 | MSG20 EQU 20 OCB00840 0015 85 | MSG21 EQU 21 OCB00850 0016 86 | MSG22 EQU 22 OCB00860 0017 87 | MSG23 EQU 23 OCB00870 0018 88 | MSG24 EQU 24 OCB00880 0019 89 | MSG25 EQU 25 OCB00890 001A 90 | MSG26 EQU 26 OCB00900 0025 91 | MSG37 EQU 37 OCB00910 0027 92 | MSG39 EQU 39 OCB00920 0028 93 | MSG40 EQU 40 OCB00930 0029 94 | MSG41 EQU 41 OCB00940 002A 95 | MSG42 EQU 42 OCB00950 002B 96 | MSG43 EQU 43 OCB00960 002C 97 | MSG44 EQU 44 OCB00970 002D 98 | MSG45 EQU 45 OCB00980 002E 99 | MSG46 EQU 46 OCB00990 002F 100 | MSG47 EQU 47 OCB01000 0030 101 | MSG48 EQU 48 2-6 OCB01010 0040 102 | MSG64 EQU 64 OCB01020 0041 103 | MSG65 EQU 65 OCB01030 0042 104 | MSG66 EQU 66 OCB01040 0043 105 | MSG67 EQU 67 OCB01050 0044 106 | MSG68 EQU 68 OCB01060 107 | * OCB01070 108 | * EQUIVALENCES FOR THE LOAD TABLE OCB01080 109 | * OCB01090 0000 110 | @WRD1 EQU 0 RELATIVE ADDR OF 1ST WD LD TBL OCB01100 0001 111 | @WRD2 EQU 1 RELATIVE ADDR OF 2ND WD LD TBL OCB01110 0002 112 | @WRD3 EQU 2 RELATIVE ADDR OF 3RD WD LD TBL OCB01120 0003 113 | @WRD4 EQU 3 RELATIVE ADDR OF 4TH WD LD TBL OCB01130 0004 114 | @LTEN EQU 4 LENGTH OF A LOAD TABLE ENTRY OCB01140 115 | * OCB01150 116 | * EQUIVALENCES FOR THE DEFINE FILE TABLE OCB01160 117 | * OCB01170 0000 118 | @FLNR EQU 0 RELATIVE ADDR OF FILE NO. OCB01180 0001 119 | @RCCT EQU 1 RELATIVE ADDR OF RECORD COUNT OCB01190 0002 120 | @WDRC EQU 2 RELATIVE ADDR OF WORDS/RECORD OCB01200 0003 121 | @ASOC EQU 3 RELATIVE ADDR OF ASSOC VARIABLE OCB01210 0004 122 | @SCAD EQU 4 RELATIVE ADDR OF SECTOR ADDR OCB01220 0005 123 | @RCSC EQU 5 RELATIVE ADDR OF RECORDS/SECTOR OCB01230 0006 124 | @BCNT EQU 6 RELATIVE ADDR OF BLOCK COUNT OCB01240 0007 125 | @DFEN EQU 7 LENGTH OF A DEFINE FILE TBL ENT OCB01250 126 | * OCB01260 127 | * EQUIVALENCES FOR THE *FILES EQUATE TABLE OCB01270 128 | * OCB01280 0004 129 | @EQEN EQU 4 WD CNT OF AN ENTRY OCB01290 0000 130 | @EQNO EQU 0 RELATIVE ADDR OF FILE NO. OCB01300 0001 131 | @EQNM EQU 1 RELATIVE ADDR OF FILE NAME OCB01310 0003 132 | @EQID EQU 3 RELATIVE ADDR OF CARTRIDGE ID OCB01320 133 | * OCB01330 134 | * MISCELLANEOUS EQIVALENCES OCB01340 135 | * OCB01350 0019 136 | @EQLM EQU 25 MAX NO. EQUATES PERMITTED 2-8 OCB01360 0004 137 | @EETY EQU 4 NO. WDS PER EQUATE 2-4 OCB01370 0055 138 | @MXLB EQU 85 MAX NO. ENTRIES IN LIBF TV OCB01380 000E 139 | @MXEP EQU 14 MAX NO. ENTRY PTS ALLOWED OCB01390 0010 140 | @DBSC EQU 16 NO. DISK BLOCKS PER SECTOR OCB01400 0005 141 | @MXDR EQU 5 MAX NO. DISK DRIVES SUPPORTED OCB01410 0003 142 | @LFEN EQU 3 WD CNT OF A LET/FLET ENTRY OCB01420 0003 143 | @LBEN EQU 3 WD CNT OF A LIBF TV ENTRY OCB01430 0001 144 | @CLEN EQU 1 WD CNT OF A CALL TV ENTRY OCB01440 0380 145 | @COMZ EQU 896 LOW COMMON LIMIT, DISKZ OCB01450 04C0 146 | @COM1 EQU 1216 LOW COMMON LIMIT, DISK1 OCB01460 0600 147 | @COM2 EQU 1536 LOW COMMON LIMIT, DISKN OCB01470 0001 148 | @DCOM EQU 1 SCTR CONTAINING DCOM OCB01480 0007 149 | @HDNG EQU 7 SCTR ADDR OF PAGE HEADING OCB01490 0033 150 | @ISTV EQU 51 ISS NO. ADJUSTMENT FACTOR 2-1 OCB01500 0004 151 | @DFOF EQU 4 OFFSET TO *FILES TABLE OCB01510 0010 152 | @SCIB EQU 16 NO. SECTORS IN THE CIB OCB01520 0003 153 | @HCIB EQU 3 NO. SECTORS IN HIGH COMMON 2-2 OCB01530 0005 154 | @FLEN EQU 5 WD CNT OF LIBF FLIPPER TBL ENTRY OCB01540 0006 155 | @FCEN EQU 6 WD CNT OF CALL FLIPPER TBL ENTRY OCB01550 00F9 156 | @DKEP EQU DZ000+7 LIBF ENTRY PT TO DISK1/DISKN OCB01560 1000 157 | @MCOR EQU 4096 SIZE OF MINIMIMUM CORE SUPPO 2-2 OCB01570 0000 158 | @LOAD EQU 0 RLTV ADDR OF LOCALS IN SCRA 2-4 OCB01580 0002 159 | @NOAD EQU 2 RLTV ADDR OF NOCALS IN SCRA 2-4 OCB01590 0004 160 | @FIAD EQU 4 RLTV ADDR OF FILES IN SCRA 2-4 OCB01600 0006 161 | @GRAD EQU 6 RLTV ADDR OF G2250 IN SCRA 2-4 OCB01610 0007 162 | @EQAD EQU 7 RLTV ADDR OF EQUAT IN SCRA 2-4 OCB01620 163 | * OCB01630 164 | * EQUIVALENCES FOR LET/FLET OCB01640 165 | * OCB01650 0005 166 | @LFHD EQU 5 WORD COUNT OF LET/FLET HEADER OCB01660 0000 167 | @SCTN EQU 0 LET/FLET SECTOR NO. OCB01670 0001 168 | @UAFX EQU 1 SCTR ADDR OF USER/FIXED AREA OCB01680 0003 169 | @WDSA EQU 3 NO. WDS IN LET/FLET SECTOR OCB01690 0004 170 | @NEXT EQU 4 ADDR OF NEXT LET/FLET SECTOR OCB01700 0000 171 | @LFNM EQU 0 NAME OF LET/FLET ENTRY OCB01710 0002 172 | @BLCT EQU 2 DISK BLOCK CNT OF LET/FLET ENTRY OCB01720 173 | * OCB01730 174 | * EQUIVALENCES FOR THE PROGRAM HEADER RECORD OCB01740 175 | * OCB01750 0000 176 | @ZERO EQU 0 RELATIVE ADDR OF 1ST WD PROG HDR OCB01760 0002 177 | @TYPE EQU 2 RELATIVE ADDR OF PROG TYPE OCB01770 0002 178 | @PREC EQU 2 REL ATIVE ADDR OF PRECISION OCB01780 0003 179 | @WDCT EQU 3 REL ATIVE ADDR OF EFFECTIVE LNG OCB01790 0004 180 | @COMN EQU 4 RELATIVE ADDR OF COMMON WD CNT OCB01800 0005 181 | @LHDR EQU 5 RELATIVE ADDR FOR HDR WD CNT - 9 OCB01810 0007 182 | @DBCT EQU 7 RELATIVE ADDR FOR PROG DB CNT OCB01820 0008 183 | @FILS EQU 8 RELATIVE ADDR FOR NO. FILES OCB01830 0008 184 | @FORT EQU 8 RELATIVE ADDR FOR FOR/ASM INDR OCB01840 0009 185 | @NAME EQU 9 RELATIVE ADDR FOR ENTRY PT NAME OCB01850 000B 186 | @ENTY EQU 11 RELATIVE ADDR FOR RELATIVE ENTRY OCB01860 000C 187 | @ISSP EQU 12 RELATIVE ADDR OF ISS NO. + @ISTV OCB01870 000D 188 | @ISSN EQU 13 RELATIVE ADDR OF ISS NO. OCB01880 000E 189 | @NILS EQU 14 RELATIVE ADDR OF NO. LEVELS OCB01890 000F 190 | @ILN1 EQU 15 RELATIVE ADDR OF 1ST LEVEL NO. OCB01900 191 | * OCB01910 192 | * EQUIVALENCES FOR DCOM OCB01920 193 | * OCB01930 0007 194 | #FCNT EQU 7 *FILES COUNT--ZERO=NO *FILES REC OCB01940 000A 195 | #CBSW EQU 10 CORE LOAD BUILDER SWITCH OCB01950 000B 196 | #LCNT EQU 11 LOCAL COUNT OCB01960 000C 197 | #MPSW EQU 12 CORE MAP SWITCH OCB01970 000F 198 | #NCNT EQU 15 NOCAL COUNT OCB01980 001D 199 | #GRPH EQU 29 2250 INDICATOR 2-8 OCB01990 001E 200 | #GCNT EQU 30 NO. G2250 RECORDS 2-8 OCB02000 001F 201 | #LOSW EQU 31 LOCALS CALL LOCALS SWITCH 2-2 OCB02010 0020 202 | #X3SW EQU 32 SPECIAL ILS SWITCH 2-2 OCB02020 0021 203 | #ECNT EQU 33 1+NO. WDS IN EQUATE TABLE 2-4 OCB02030 0037 204 | #CIDN EQU 55 CARTRIDGE ID FOR LOGICAL DR 0 OCB02040 0041 205 | #SCRA EQU 65 ADDR OF 1ST SCTR OF SCRA OCB02050 0046 206 | #FMAT EQU 70 FORMAT OF WS PROG INDICATOR OCB02060 0055 207 | #WSCT EQU 85 BLOCK CNT OF PROG IN WS OCB02070 CORE LOAD BUILDER, PHASE 0 209 | * PARAMETERS FOR THE SYSTEM LOADER OCB02090 210 | * OCB02100 01E0 211 | ORG $ZEND OCB02110 01E0 0781 212 | DC P1END-*-1 WD CNT OF PHASE OCB02120 01E1 FF88 213 | DC -@CLB0 ID NO. OF PHASE OCB02130 01E2 01C2 214 | DC LK910-*+1 ADDR OF SLET EXTRACT OCB02140 01E3 000F 215 | DC 15 NO.ENTRIES IN SLET EXTR.2G2 OCB02150 01E2 216 | ORG *-2 OCB02160 CORE LOAD BUILDER, PHASE 0 218 | *************************************************** OCB02180 219 | * * OCB02190 220 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * OCB02200 221 | * * OCB02210 222 | *FUNCTION/OPERATION- * OCB02220 223 | * * PHASE 0 ALWAYS REMAINS IN CORE. IT CONSISTS * OCB02230 224 | * OF TWO SECTIONS * OCB02240 225 | * * BASIC SUBROUTINES NEEDED BY OTHER PHASES * OCB02250 226 | * * CONSTANTS SHARED BY SUBROUTINES, RCOM * OCB02260 227 | * * OCB02270 228 | *ENTRY POINTS- * OCB02280 229 | * * PM000-THIS SUBROUTINE HAS TWO ENTRY POINTS * OCB02290 230 | * * ENTRY FOR ERROR MESSAGES * OCB02300 231 | * BSI L PM000 * OCB02310 232 | * * ENTRY FOR CHECK MAP SWITCH * OCB02320 233 | * BSI L PM300 * OCB02330 234 | * * ALL OTHER SUBROUTINES HAVE ONLY ONE ENTRY * OCB02340 235 | * POINT * OCB02350 236 | * BSI L XX000 * OCB02360 237 | * WHERE XX000 IS THE FIRST EXECUTABLE INSTRUC-* OCB02370 238 | * TION IN THE SUBROUTINE * OCB02380 239 | * * OCB02390 240 | *INPUT-N/A * OCB02400 241 | * * OCB02410 242 | *OUTPUT-N/A * OCB02420 243 | * * OCB02430 244 | *EXTERNAL REFERENCES- * OCB02440 245 | * * SUBROUTINES-N/A * OCB02450 246 | * * COMMA/DCOM * OCB02460 247 | * * $CLSW * OCB02470 248 | * * $DBSY * OCB02480 249 | * * $DREQ * OCB02490 250 | * * $HASH * OCB02500 251 | * * $NDUP * OCB02510 252 | * * $PHSE * OCB02520 253 | * * $ULET * OCB02530 254 | * * OCB02540 255 | *EXITS- * OCB02550 256 | * * NORMAL- * OCB02560 257 | * * BACK TO CALLER INDIRECTLY VIA ENTRY POINT * OCB02570 258 | * * ERROR- * OCB02580 259 | * * TO TL000 FOR PRINTING MESSAGE(S) AND OUT * OCB02590 260 | * * OCB02600 261 | *TABLES/WORK AREAS- * OCB02610 262 | * * RCOM * OCB02620 263 | * * LOAD TABLE * OCB02630 264 | * * ISS TABLE 2-8* OCB02640 265 | * * EQUATE TABLE 2-8* OCB02650 266 | * * OCB02660 267 | *NOTES-N/A * OCB02670 268 | *************************************************** OCB02680 CORE LOAD BUILDER, PHASE 0 01E2 4400 05BE 270 | BSI L IN000 ENTRY POINT TO CLB OCB02700 CORE LOAD BUILDER, PHASE 0 272 | * SUBROUTINE FOR FINDING A PROGRAM IN LET/FLET OCB02720 273 | * OCB02730 01E4 0000 274 | LS000 DC *-* ENTRY POINT OCB02740 01E5 695F 275 | STX 1 LS380+1 SAVE XR1 OCB02750 01E6 6A60 276 | STX 2 LS380+3 SAVE XR2 OCB02760 01E7 CB82 277 | LDD 3 NAME OCB02770 01E8 1082 278 | SLT 2 MASK OUT FLAG BITS OCB02780 01E9 DB86 279 | STD 3 RNAME SAVE NAME OF PROG SOUGHT OCB02790 01EA 1810 280 | SRA 16 OCB02800 01EB D074 281 | STO LS900 *ACCUMULATOR OCB02810 01EC C399 282 | LD 3 K8000 INITIALIZE SW 11 TO INDI- OCB02820 01ED D3E3 283 | STO 3 LSW11 *CATE SEARCHING LET OCB02830 01EE 62FA 284 | LDX 2 -@MXDR-1 1+NO. DRIVES TO XR2 OCB02840 01EF 7680 0556 285 | MDX I2 IGNOR+X3 OCB02850 01F1 6500 0AA0 286 | LS230 LDX L1 BUFLS ADDR OF LET SEARCH BUFFER OCB02860 01F3 C600 0033 287 | LD L2 $ULET+@MXDR+1 SAVE LET SCTR ADDR OCB02870 01F5 D101 288 | STO 1 1 *FOR CURRENT CARTRIDGE OCB02880 01F6 7201 289 | MDX 2 +1 SKIP IF ALL CARTS SEARCHED, OCB02890 01F7 700A 290 | MDX LS270 *BRANCH OTHERWISE OCB02900 291 | * OCB02910 292 | * PROGRAM SOUGHT IS NOT IN LET OR FLET OCB02920 293 | * OCB02930 01F8 C3EF 294 | LS240 LD 3 LSW23 CHECK FOR EQUAT 212 OCB02940 01F9 4C20 01FE 295 | BSC L LS250,Z DON'T PRINT MSG IF EQUAT212 OCB02950 01FB 6210 296 | LDX 2 MSG16 BRANCH 212 OCB02960 01FC 4400 0407 297 | BSI L TL000 *TO PRINT ERROR MESSAGE OCB02970 01FE 6865 298 | LS250 STX 0 LS925 SET MATCH = PRIMARY 212 OCB03000 01FF C39D 299 | LD 3 KFF0F SET LET/FLET INDR = THIS212 OCB03010 0200 D3EE 300 | STO 3 LSW22 *PROGRAM NOT FOUND 212 OCB03020 0201 7042 301 | MDX LS380 RETURN 212 OCB03030 302 | * OCB03040 303 | * PREPARE TO SEARCH LET AND FLET ON CURR CARTRIDGE OCB03050 304 | * OCB03060 0202 4818 305 | LS270 BSC +- SKIP UNLESS CARTRIDGE NOT OCB03070 0203 70F4 306 | MDX LS240 *DEFINED FOR CURRENT JOB OCB03080 307 | * OCB03090 308 | * INITIALIZE TO START LET/FLET SEARCH OCB03100 309 | * OCB03110 0204 C3D7 310 | LS280 LD 3 LSBUF ADDRS OF LET SEARCH BUFFER OCB03120 0205 1890 311 | SRT 16 *STORED IN EXTENSION OCB03130 0206 4400 0418 312 | BSI L GP000 FETCH 1 SCTR OF LET/FLET OCB03140 0208 C101 313 | LD 1 1 FETCH CURR LET SCTR ADDR OCB03150 0209 E39A 314 | AND 3 KF000 'AND' OUT ALL BUT DRIVE COD OCB03160 020A D3AB 315 | STO 3 DRCDE STORE DRIVE CODE OCB03170 020B E906 316 | OR 1 @NEXT+2 'OR' IN NEXT SECTOR ADDR OCB03180 020C D101 317 | STO 1 1 STORE SCTR ADDR W/ DR CODE OCB03190 020D C052 318 | LD LS900 OCB03200 020E D3A1 319 | STO 3 BYADR OCB03210 020F C102 320 | LD 1 @SCTN+2 FETCH LET/FLET SCTR NO. OCB03220 0210 4818 321 | BSC +- SKIP IF NOT 1ST SCTR, OCB03230 0211 7006 322 | MDX LS290 *BRANCH OTHERWISE OCB03240 0212 904E 323 | S LS905 OCB03250 0213 4828 324 | BSC Z+ SKIP IF SEARCHING FLET, OCB03260 0214 7007 325 | MDX LS300 *BR IF SEARCHING LET OCB03270 0215 D3E3 326 | STO 3 LSW11 SET SW 11 TO INDICATE FLET OCB03280 0216 4820 327 | BSC Z SKIP IF 1ST FLET SECTOR, OCB03290 0217 7004 328 | MDX LS300 *BRANCH OTHERWISE OCB03300 0218 C103 329 | LS290 LD 1 @UAFX+2 INITIALIZE BLK ADDR ACCUM OCB03310 0219 1004 330 | SLA 4 *TO ADDR OF 1ST PROG STORED OCB03320 021A D045 331 | STO LS900 *IN LET/FLET OCB03330 021B D3A1 332 | STO 3 BYADR INITIALIZE ADDR ACCUMULATOR OCB03340 021C C045 333 | LS300 LD LS915 COMPUTE AND STORE NO. WDS OCB03350 021D 9105 334 | S 1 @WDSA+2 *IN CURRENT LET/FLET SCTR OCB03360 021E D044 335 | STO LS920 OCB03370 336 | * OCB03380 337 | * START SEARCHING LET/FLET OCB03390 338 | * OCB03400 021F C109 339 | LS320 LD 1 @BLCT+@LFHD+2 SAVE BLOCK COUNT OF OCB03410 0220 D043 340 | STO LS925 *CURRENT LET/FLET ENTRY OCB03420 0221 4820 341 | BSC Z SKIP IF SECONDARY ENTRY PT OCB03430 0222 D3C6 342 | STO 3 LDBCT SAVE PRIMARY DISK BLOCK CNT OCB03440 0223 C108 343 | LD 1 @LFNM+1+@LFHD+2 OCB03450 0224 1890 344 | SRT 16 SAVE NAME OF LET/FLET ENTRY OCB03460 0225 C107 345 | LD 1 @LFNM+@LFHD+2 *CURRENTLY COMPARED OCB03470 0226 D3E4 346 | STO 3 LSW12 SET LET/FLET ENTRY SWITCH OCB03480 0227 1082 347 | SLT 2 MASK OUT FLAG BITS OCB03490 0228 DB84 348 | STD 3 NAME2 COMPARE NAME IN LET/FLET OCB03500 0229 9B86 349 | SD 3 RNAME *W/ NAME SOUGHT OCB03510 022A 4818 350 | BSC +- SKIP IF 1ST WDS DON'T MATCH OCB03520 022B 18D0 351 | RTE 16 OCB03530 022C 4C20 024D 352 | BSC L LS400,Z BR IF 2ND WDS DO NOT MATCH OCB03540 022E C107 353 | LD 1 @LFNM+@LFHD+2 FETCH 1ST WD OF NAME OCB03550 022F 180F 354 | SRA 15 ZERO TO LSW18 IF PROG IN OCB03560 0230 D034 355 | STO LS930 *DSF, 1 OTHERWISE OCB03570 0231 C3DE 356 | LD 3 LSW06 OCB03580 0232 4818 357 | BSC +- SKIP UNLESS THE MATCH WAS OCB03590 0233 7007 358 | MDX LS360 *WITH THE NAME OF DATA FILE OCB03600 0234 C3E7 359 | LD 3 LSW15 OCB03610 0235 F02F 360 | EOR LS930 OCB03620 0236 4818 361 | BSC +- SKIP IF WRONG FORMAT, OCB03630 0237 7003 362 | MDX LS360 *BRANCH OTHERWISE OCB03640 363 | * OCB03650 364 | * LOOKING FOR A DSF PROGRAM AND FOUND A CORE IMAGE OCB03660 365 | * PROGRAM/DATA FILE OR VICE VERSA OCB03670 366 | * OCB03680 0238 6242 367 | LDX 2 MSG66 OCB03690 0239 4400 0407 368 | BSI L TL000 PRINT ERROR MESSAGE, EXIT OCB03700 369 | * OCB03710 370 | * CONTINUE AFTER FINDING A PROGRAM IN LET OR FLET OCB03720 371 | * OCB03730 023B 6D00 05B7 372 | LS360 STX L1 XR1LS+X3 SAVE POINTER FOR LS BUFFER OCB03740 023D CC80 0547 373 | LDD I CURTV+X3 RESTORE NAME OF SUBROUTINE OCB03750 023F 1082 374 | SLT 2 *CURRENTLY BEING RELOCATED OCB03760 0240 DB86 375 | STD 3 RNAME OCB03770 0241 C022 376 | LD LS925 OCB03780 0242 4C18 025C 377 | BSC L LS450,+- BR IF MATCH WAS SECONDARY OCB03790 0244 6500 0000 378 | LS380 LDX L1 *-* RESTORE XR1 OCB03800 0246 6600 0000 379 | LDX L2 *-* RESTORE XR2 OCB03810 0248 1010 380 | SLA 16 CLEAR EQUAT INDR 212 OCB03813 0249 D3EF 381 | STO 3 LSW23 * 212 OCB03817 024A C3EE 382 | LD 3 LSW22 ACC=LET/FLET INDR 212 OCB03820 024B 4C80 01E4 383 | BSC I LS000 RETURN OCB03830 384 | * OCB03840 385 | * PREPARE TO CONTINUE SEARCHING OCB03850 386 | * OCB03860 024D C3A1 387 | LS400 LD 3 BYADR OCB03870 024E 8015 388 | A LS925 OCB03880 024F D3A1 389 | STO 3 BYADR ACCUMULATE THE BLOCK ADDR OCB03890 0250 7103 390 | MDX 1 @LFEN POINT TO NEXT LET/FLET ENT OCB03900 0251 74FD 0263 391 | MDX L LS920,-@LFEN SKIP WHEN SCTR SEARCHED, OCB03910 0253 70CB 392 | MDX LS320 *BRANCH OTHERWISE OCB03920 393 | * OCB03930 394 | * PREPARE TO FETCH NEXT LET/FLET SECTOR OCB03940 395 | * OCB03950 0254 6500 0AA0 396 | LDX L1 BUFLS ADDR LET SEARCH BUFFER OCB03960 0256 C3A1 397 | LD 3 BYADR SAVE CURRENT ACCUMULATED OCB03970 0257 D008 398 | STO LS900 *BLOCK ADDRESS OCB03980 0258 C106 399 | LD 1 @NEXT+2 OCB03990 0259 4820 400 | BSC Z SKIP IF LAST LET/FLET SCTR OCB04000 025A 70A9 401 | MDX LS280 *ON CURR CART,BR OTHERWISE OCB04010 025B 7095 402 | MDX LS230 BR TO SEARCH ANOTHER CART OCB04020 025C C3A1 403 | LS450 LD 3 BYADR ADJUST PROGRAM BLOCK ADDR OCB04030 025D 93C6 404 | S 3 LDBCT *BECAUSE MATCH WAS TO A OCB04040 025E D3A1 405 | STO 3 BYADR *SECONDARY ENTRY PT AND OCB04050 025F 70E4 406 | MDX LS380 *BYADR POINTED TO NEXT PROG OCB04060 407 | * OCB04070 408 | * CONSTANTS AND WORK AREAS OCB04080 409 | * OCB04090 0260 0000 410 | LS900 DC *-* BLK ADDR 1ST PROG IN CURR SCTR OCB04100 0261 0010 411 | LS905 DC 16 NO. OF 1ST SCTR IN FLET OCB04110 0262 013B 412 | LS915 DC 320-@LFHD NO. WDS PER LET/FLET SCTR OCB04120 0263 0000 413 | LS920 DC *-* NO. WDS LEFT FOR COMPARISON OCB04130 0264 0000 414 | LS925 DC *-* BLK CNT OF CURRENT LET ENTRY OCB04140 0265 0000 415 | LS930 DC *-* DSF SWITCH OCB04150 CORE LOAD BUILDER, PHASE 0 417 | * READ THE HEADER RECORD INTO THE DATA BUFFER OCB04170 418 | * OCB04180 419 | * OCB04190 0266 0000 420 | RH000 DC *-* ENTRY POINT OCB04200 0267 C3D2 421 | LD 3 LOBUF OCB04210 0268 D3A0 422 | STO 3 BUFFR OCB04220 0269 C3A4 423 | LD 3 CIBLM SET INDEX TO FORCE A RD 2-2 OCB04230 026A D3B9 424 | STO 3 INDEX OCB04240 026B C38D 425 | LD 3 K0 ZERO TO COUNT OF NO. WORDS OCB04250 026C D3E6 426 | STO 3 LSW14 OCB04260 026D 4400 0271 427 | BSI L NW000 READ HEADER+PART OF PROGRAM OCB04270 026F 4C80 0266 428 | BSC I RH000 RETURN OCB04280 CORE LOAD BUILDER, PHASE 0 430 | * FETCH THE NEXT DATA WD IN SEQUENCE FROM DATA OCB04300 431 | * BUFFER, READING IN A NEW SECTOR IF NECESSARY OCB04310 432 | * OCB04320 433 | * OCB04330 0271 0000 434 | NW000 DC *-* ENTRY POINT OCB04340 0272 6A0D 435 | STX 2 NW015+1 SAVE XR2 OCB04350 0273 6680 0559 436 | LDX I2 INDEX+X3 POINT XR2 AT DATA BFR WD OCB04360 0275 7201 437 | MDX 2 1 POINT TO NEXT WORD OCB04370 0276 6E00 0559 438 | NW010 STX L2 INDEX+X3 OCB04380 0278 C3B9 439 | LD 3 INDEX OCB04390 0279 93D2 440 | S 3 LOBUF OCB04400 027A 9397 441 | S 3 K320 OCB04410 027B 938F 442 | S 3 K2 OCB04420 027C 4C10 0283 443 | BSC L NW020,- BR IF BUFFER EXHAUSTED OCB04430 027E C200 444 | LD 2 0 LOAD NEXT WD IN DATA BUFFER OCB04440 027F 6600 0000 445 | NW015 LDX L2 *-* RESTORE XR2 OCB04450 0281 4C80 0271 446 | BSC I NW000 RETURN OCB04460 447 | * OCB04470 448 | * FETCH A NEW BUFFER WORD OCB04480 449 | * OCB04490 0283 6680 0540 450 | NW020 LDX I2 BUFFR+X3 POINT XR2 AT 1ST WORD IN OCB04500 0285 7202 451 | MDX 2 2 *DATA BUFFER OCB04510 0286 C3E6 452 | LD 3 LSW14 BRANCH IF BLOCK ADDR IS TO OCB04520 0287 4C18 028E 453 | BSC L NW025,+- *BE FETCHED FROM BYADR OCB04530 0289 C3F5 454 | LD 3 NEXT FETCH BLOCK ADDR OCB04540 028A 1804 455 | SRA 4 SHIFT OUT BLOCK NO. OCB04550 028B 1004 456 | SLA 4 OCB04560 028C 8395 457 | A 3 K16 COMPUTE NEXT SECTOR ADDR OCB04570 028D 7001 458 | MDX NW025+1 OCB04580 028E C3A1 459 | NW025 LD 3 BYADR FETCH BLOCK ADDR OCB04590 028F D3F5 460 | STO 3 NEXT OCB04600 0290 E39E 461 | AND 3 BLCKS COMPUTE NO. WORDS IN SECTOR OCB04610 0291 A396 462 | M 3 K20 *WHICH PRECEDE DESIRED WD OCB04620 0292 18D0 463 | RTE 16 OCB04630 0293 D012 464 | STO NW910 OCB04640 0294 C3F5 465 | LD 3 NEXT COMPUTE AND STORE THE OCB04650 0295 1804 466 | SRA 4 *SECTOR ADDRESS OCB04660 0296 EBC0 467 | OR 3 LDCDE OCB04670 0297 93FF 468 | S 3 SADDR BRANCH IF DESIRED SECT0R IS OCB04680 0298 4C18 02A1 469 | BSC L NW050,+- *ALREADY IN THE DATA BUFFER OCB04690 029A 83FF 470 | A 3 SADDR OCB04700 029B D3FF 471 | STO 3 SADDR OCB04710 029C D2FF 472 | STO 2 -1 OCB04720 029D C3A0 473 | LD 3 BUFFR OCB04730 029E 1890 474 | SRT 16 OCB04740 029F 4400 0418 475 | BSI L GP000 READ 1 SCTR INTO DATA BFR OCB04750 02A1 7680 02A6 476 | NW050 MDX I2 NW910 POINT XR2 AT DESIRED WD OCB04760 02A3 C38E 477 | LD 3 K1 OCB04770 02A4 D3E6 478 | STO 3 LSW14 SET DATA BUFFER SWITCH OCB04780 02A5 70D0 479 | MDX NW010 BR TO FETCH DATA WORD OCB04790 480 | * OCB04800 481 | * CONSTANTS AND WORK AREAS OCB04810 482 | * OCB04820 02A6 0000 483 | NW910 DC 0 NO. OF WDS. PRECEDING DATA OCB04830 CORE LOAD BUILDER, PHASE 0 485 | * COMPARE A SUBROUTINE NAME WITH NAMES OF DISK I/O OCB04850 486 | * OCB04860 02A7 0000 487 | CN000 DC *-* ENTRY POINT OCB04870 02A8 690F 488 | STX 1 CN120+1 SAVE XR1 OCB04880 02A9 61FD 489 | LDX 1 CN900-CN915 OCB04890 02AA C019 490 | LD CN900 OCB04900 02AB 9382 491 | S 3 NAME BR IF NAME BEING CHECKED OCB04910 02AC 4C20 02B5 492 | BSC L CN100,Z *NOT THAT OF DISK I/O SUBR OCB04920 02AE C500 02C8 493 | CN050 LD L1 CN900+4 OCB04930 02B0 9383 494 | S 3 NAME+1 BR IF NAME BEING COMPARED OCB04940 02B1 4C18 02BB 495 | BSC L CN150,+- *IS THAT OF DISK I/O SUBR OCB04950 02B3 7101 496 | MDX 1 1 SKIP WHEN ALL NAMES CHECKED OCB04960 02B4 70F9 497 | MDX CN050 *BR OTHERWISE OCB04970 02B5 1810 498 | CN100 SRA 16 CLEAR LSW18 OCB04980 02B6 D3EA 499 | CN110 STO 3 LSW18 OCB04990 02B7 6500 0000 500 | CN120 LDX L1 *-* RESTORE XR1 OCB05000 02B9 4C80 02A7 501 | BSC I CN000 RETURN OCB05010 02BB C500 02CB 502 | CN150 LD L1 CN920+3 FETCH SETTING FOR $DREQ OCB05020 02BD D3C7 503 | STO 3 LDREQ OCB05030 02BE C008 504 | LD CN900+3 FETCH 2ND WORD OF #DISKN# OCB05040 02BF 7101 505 | MDX 1 1 SKIP IF DISKN CALLED OCB05050 02C0 C005 506 | LD CN900+2 FETCH 2ND WORD OF #DISK1# OCB05060 02C1 D383 507 | STO 3 NAME+1 OCB05070 02C2 C008 508 | LD CN935 DK I/O ENTRY POINT TO LSW18 OCB05080 02C3 70F2 509 | MDX CN110 BR TO SET LSW18 OCB05090 510 | * OCB05100 511 | * CONSTANTS AND WORK AREAS OCB05110 512 | * OCB05120 02C4 0426 24B0 513 | CN900 DN DISK0 OCB05130 02C6 24B1 514 | DC /24B1 2ND 16 BITS OF 'DISK1' OCB05140 02C7 2495 515 | CN915 DC /2495 2ND 16 BITS OF 'DISKN' OCB05150 02C8 0000 516 | CN920 DC 0 'DISK0' SETTING FOR $DREQ OCB05160 02C9 0000 517 | DC 0 'DISK1' SETTING FOR $DREQ OCB05170 02CA 0001 518 | DC +1 'DISKN' SETTING FOR $DREQ OCB05180 02CB 00F9 519 | CN935 DC @DKEP LIBF ENTRY PT TO DISK1, DISKN OCB05190 CORE LOAD BUILDER, PHASE 0 521 | * ENTER A PROGRAM IN THE LOAD TABLE IF IT IS OCB05210 522 | * NOT ALREADY THERE OCB05220 523 | * OCB05230 02CC 0000 524 | BT000 DC *-* ENTRY POINT OCB05240 02CD 6D00 034C 525 | STX L1 BT360+1 SAVE XR1 OCB05250 02CF 6E00 034E 526 | STX L2 BT360+3 SAVE XR2 OCB05260 527 | * OCB05270 528 | * INITIALIZE OCB05280 529 | * OCB05290 02D1 C38D 530 | LD 3 K0 OCB05300 02D2 D057 531 | STO BT930 OCB05310 02D3 D057 532 | STO BT940 OCB05320 02D4 D3BB 533 | STO 3 ITVCT CLEAR CALL TV COUNTER OCB05330 02D5 CB82 534 | LDD 3 NAME OCB05340 02D6 1082 535 | SLT 2 OCB05350 02D7 DB84 536 | STD 3 NAME2 SAVE NAME TO BE ADDED OCB05360 02D8 DB86 537 | STD 3 RNAME *TO THE LOAD TABLE OCB05370 02D9 4400 02A7 538 | BSI L CN000 CHECK NAME WITH DKI/O NAME OCB05380 02DB C3EA 539 | LD 3 LSW18 BR IF NAME IS NOT THAT OF OCB05390 02DC 4C18 02E4 540 | BSC L BT020,+- *A DISK I/O SUBR OCB05400 02DE D04B 541 | STO BT930 OCB05410 02DF C400 0012 542 | LD L $DREQ BR IF NAME IN LIBF STATE- OCB05420 02E1 93C7 543 | S 3 LDREQ *MENT INCONSISTENT WITH OCB05430 02E2 4C20 0374 544 | BSC L BT540,Z *DISK REQUESTED ON XEQ RECD OCB05440 02E4 617A 545 | BT020 LDX 1 127-@LBEN-2 INITIALIZE DISPLACEMENT OCB05450 02E5 6D00 054A 546 | STX L1 DISPL+X3 *BE USED IN BSI TO TV OCB05460 02E7 6580 059C 547 | LDX I1 RIGHT+X3 RT LIMIT OF LD TBL TO XR1 OCB05470 02E9 C3BE 548 | LD 3 LBATV OCB05480 02EA 4C18 0303 549 | BSC L BT150,+- BR IF NO ENT IN LOAD TABLE OCB05490 550 | * OCB05500 551 | * FIND OUT IF NAME TO BE ADDED ALREADY IN LOAD TBL OCB05510 552 | * OCB05520 02EC 6680 055E 553 | LDX I2 LBATV+X3 OCB05530 02EE C100 554 | BT060 LD 1 @WRD1 BR IF TABLE ENTRY CURRENT- OCB05540 02EF 1001 555 | SLA 1 *LY BEING COMPARED IS A OCB05550 02F0 4C28 035B 556 | BSC L BT420,Z+ *CALL ENTRY OCB05560 02F2 C3AA 557 | LD 3 DISPL COMPUTE 8-BIT DIS - OCB05570 02F3 9033 558 | S BT900 *PLACEMENT FOR CURRENT OCB05580 02F4 E39B 559 | AND 3 K00FF *LIBF ENTRY OCB05590 02F5 D3AA 560 | STO 3 DISPL OCB05600 02F6 C101 561 | BT090 LD 1 @WRD2 BR IF 2ND WORD OF TBL ENTRY OCB05610 02F7 9383 562 | S 3 NAME+1 *NOT EQUAL TO 2ND WORD OF OCB05620 02F8 4C20 0300 563 | BSC L BT120,Z *NAME OF PROG TO BE ADDED OCB05630 02FA C100 564 | LD 1 @WRD1 OCB05640 02FB 9382 565 | S 3 NAME OCB05650 02FC D02C 566 | STO BT920 OCB05660 02FD 1002 567 | SLA 2 BRANCH IF CORRESPONDING OCB05670 02FE 4C18 032F 568 | BSC L BT210,+- *1ST WORDS ARE EQUAL OCB05680 0300 71FC 569 | BT120 MDX 1 -@LTEN POINT TO NEXT LOAD TBL ENT OCB05690 0301 72FC 570 | MDX 2 -@LTEN SKIP AT END OF LOAD TABLE OCB05700 0302 70EB 571 | MDX BT060 BACK TO TEST NEXT TBL ENTRY OCB05710 572 | * OCB05720 573 | * ADD A NAME TO LOAD TABLE, IF POSSIBLE OCB05730 574 | * OCB05740 0303 C3C8 575 | BT150 LD 3 LEFTX OCB05750 0304 93AC 576 | S 3 ENDRL BRANCH IF NO ROOM TO ADD OCB05760 0305 4C08 036A 577 | BSC L BT480,+ *ANOTHER ENTRY TO LOAD TBL OCB05770 0307 C382 578 | LD 3 NAME OCB05780 0308 1001 579 | SLA 1 BRANCH IF NAME TO BE ADDED OCB05790 0309 4C28 036D 580 | BSC L BT510,Z+ *IS THAT OF A CALL OCB05800 030B C3AA 581 | LD 3 DISPL OCB05810 030C 901A 582 | S BT900 COMPUTE 8-BIT DISPLACEMENT OCB05820 030D E39B 583 | AND 3 K00FF *FOR LIBF ENTRY WHICH OCB05830 030E D3AA 584 | STO 3 DISPL *IS TO BE ADDED NOW OCB05840 030F C3F0 585 | LD 3 LTVWC OCB05850 0310 901B 586 | S BT950 BR IF THERE ARE ALREADY 84 OCB05860 0311 4C18 0377 587 | BSC L BT570,+- *LIBF ENTRIES IN LOAD TABLE OCB05870 0313 7403 0590 588 | MDX L LTVWC+X3,@LBEN ACCUMULATE LIBF TV LNG OCB05880 0315 C3FD 589 | LD 3 RLCOR DECR AVAILABLE CORE CNT BY OCB05890 0316 9010 590 | S BT900 *TO ACCOUNT FOR A LIBF OCB05900 0317 D3FD 591 | BT180 STO 3 RLCOR OCB05910 0318 CB82 592 | LDD 3 NAME ENTER THE NAME OF THE OCB05920 0319 D900 593 | STD 1 @WRD1 *CALL/LIBF IN LOAD TABLE OCB05930 031A C00F 594 | LD BT930 ZERO/DISK ENT TO 3RD WD ENT OCB05940 031B D102 595 | STO 1 @WRD3 *NOW BEING ADDED OCB05950 031C C38D 596 | LD 3 K0 OCB05960 031D EBE8 597 | OR 3 LSW16 'OR' IN LOCAL INDICATOR AND OCB05970 031E D103 598 | STO 1 @WRD4 *STORE RESULT IN 4TH WORD OCB05980 031F 7404 055E 599 | MDX L LBATV+X3,@LTEN ACCUM LOAD TABLE LNG OCB05990 0321 7404 0558 600 | MDX L INCRE+X3,@LTEN ACCUM LENGTH ADDED OCB06000 0323 C3C8 601 | LD 3 LEFTX DECREMENT ADDRESS OF LEFT OCB06010 0324 9003 602 | S BT910 *LIMIT OF LOAD TABLE OCB06020 0325 D3C8 603 | STO 3 LEFTX OCB06030 0326 701B 604 | MDX BT270 BR TO CHECK 2ND PASS SW OCB06040 605 | * OCB06050 606 | * CONSTANTS AND WORKING STORAGE OCB06060 607 | * OCB06070 0327 0003 608 | BT900 DC @LBEN WD CNT OF A LIBF TV ENTRY OCB06080 0328 0004 609 | BT910 DC @LTEN WD CNT OF LOAD TABLE ENTRY OCB06090 0329 0000 610 | BT920 DC *-* FLAG BITS FORM SUBR NAME OCB06100 032A 0000 611 | BT930 DC *-* INITIAL SETTING FOR WD 3 OCB06110 032B 0000 612 | BT940 DC *-* SOCAL TV POINTER OCB06120 032C 00F9 613 | BT950 DC @MXLB*@LBEN-2*@LBEN MAX LIBF TV @WCNT OCB06130 032D 0001 614 | BT960 DC @CLEN WD CNT OF A CALL TV ENTRY OCB06140 032E 0000 615 | BT970 DC *-* NO OF CALLS PROCESSED 2-8 OCB06150 616 | * OCB06160 617 | * OCB06170 618 | * OCB06180 619 | * OCB06190 620 | * DETERMINE WHETHER OR NOT CURRENT LOAD TABLE OCB06200 621 | * ENTRY IS A LOCAL CALLED BY A LOCAL OCB06210 622 | * OCB06220 032F 6D00 05B5 623 | BT210 STX L1 WASTE+X3 SAVE ADDR OF CURR TBL ENTRY OCB06230 0331 C3E8 624 | LD 3 LSW16 BR UNLESS CURRENT OCB06240 0332 4C18 033A 625 | BSC L BT240,+- *ENTRY CALLED BY A LOCAL OCB06250 0334 C100 626 | LD 1 @WRD1 OCB06260 0335 7400 056D 627 | MDX L LLOSW+X3,0 SKIP IF LOC CANT CALLLL2-2 OCB06270 0337 7002 628 | MDX *+2 *LOCALS, BR OTHERWISE 2-2 OCB06280 0338 4C28 037A 629 | BSC L BT600,+Z BR IF CURRENT ENTRY A LOCAL OCB06290 630 | * 3 INSTRUCTIONS REMOVED 2-11 OCB06300 631 | * OCB06310 632 | * DETERMINE WHETHER OR NOT CURRENT ENTRY HAS BEEN OCB06320 633 | * REFERENCED PROPERLY OCB06330 634 | * OCB06340 033A C0EE 635 | BT240 LD BT920 OCB06350 033B 1001 636 | SLA 1 OCB06360 033C 1801 637 | SRA 1 BRANCH UNLESS CURRENT ENTRY OCB06370 033D 4C18 0342 638 | BSC L BT270,+- *WAS IMPROPERLY REFERENCED OCB06380 033F 6240 639 | LDX 2 MSG64 OCB06390 0340 4400 0407 640 | BSI L TL000 PRINT ERROR MESSAGE, EXIT OCB06400 641 | * OCB06410 642 | * PREPARE TO RETURN TO CALLER OCB06420 643 | * OCB06430 0342 C3E9 644 | BT270 LD 3 LSW17 OCB06440 0343 4C20 0351 645 | BSC L BT390,Z BRANCH DURING 2ND PASS OCB06450 0345 C3A2 646 | BT300 LD 3 CALTV COMPUTE AND STORE ADDR OF OCB06460 0346 93BB 647 | S 3 ITVCT *CALL TV ENTRY IN CASE OCB06470 0347 8393 648 | A 3 K7 *A CALL IS BEING PROCESSED OCB06480 0348 D314 649 | BT330 STO 3 TVPTR OCB06490 0349 C0E4 650 | LD BT970 SET ITVCT TO NUMBER OF 2-8 OCB06500 034A D3BB 651 | STO 3 ITVCT *CALLS PROCESSED SO FAR 2-8 OCB06510 034B 6500 0000 652 | BT360 LDX L1 *-* RESTORE XR1 OCB06520 034D 6600 0000 653 | LDX L2 *-* RESTORE XR2 OCB06530 034F 4C80 02CC 654 | BSC I BT000 RETURN OCB06540 655 | * OCB06550 656 | * COMPUTE ADDR OF SOCAL TV ENTRY OCB06560 657 | * IN CASE A CALL IS BEING PROCESSED OCB06570 658 | * OCB06580 0351 C100 659 | BT390 LD 1 @WRD1 OCB06590 0352 4C28 0345 660 | BSC L BT300,+Z BR IF CURRENT ENTRY A LOCAL OCB06600 0354 C103 661 | LD 1 @WRD4 OCB06610 0355 4C18 0345 662 | BSC L BT300,+- BR IF CURR ENTRY AN IN-CORE OCB06620 0357 C309 663 | LD 3 SOCAR OCB06630 0358 80D2 664 | A BT940 OCB06640 0359 90D3 665 | S BT960 OCB06650 035A 70ED 666 | MDX BT330 TO EXIT OCB06660 667 | * OCB06670 668 | * ACCUMULATE SOCAL TV LENGTH AND/OR CALL TV LENGTH OCB06680 669 | * OCB06690 035B C100 670 | BT420 LD 1 @WRD1 OCB06700 035C 4C28 0367 671 | BSC L BT450,+Z BR IF CURRENT ENTRY A LOCAL OCB06710 035E C103 672 | LD 1 @WRD4 OCB06720 035F 4C18 0367 673 | BSC L BT450,+- BR IF CURR ENTRY AN IN-CORE OCB06730 0361 C3E9 674 | LD 3 LSW17 OCB06740 0362 4C18 0367 675 | BSC L BT450,+- BRANCH DURING 1ST PASS OCB06750 0364 7401 032B 676 | MDX L BT940,@CLEN TALLY 1 SOCAL TV ENTRY OCB06760 0366 708F 677 | MDX BT090 BACK TO FINISH COMPARE OCB06770 0367 7401 055B 678 | BT450 MDX L ITVCT+X3,@CLEN ACCUM IN-CORE CALL TV OCB06780 0369 708C 679 | MDX BT090 BACK TO FINISH COMPARE OCB06790 680 | * OCB06800 681 | * LOAD TABLE IS ALREADY FULL OCB06810 682 | * OCB06820 036A 6207 683 | BT480 LDX 2 MSG07 LOAD TABLE TOO LONG OCB06830 036B 4400 0407 684 | BSI L TL000 PRINT MESSAGE R07 AND EXIT OCB06840 036D C3BB 685 | BT510 LD 3 ITVCT ACCUMULATE NUMBER OF 2-8 OCB06850 036E 838E 686 | A 3 K1 *CALLS AND SAVE 2-8 OCB06860 036F D3BB 687 | STO 3 ITVCT *NEW MAXIMUM 2-8 OCB06870 0370 D0BD 688 | STO BT970 *VALUE 2-8 OCB06880 0371 C3FD 689 | LD 3 RLCOR DECREMENT AVAILBLE CORE 2-8 OCB06890 0372 938E 690 | S 3 K1 *COUNT BY 1 FOR A CALL 2-8 OCB06900 0373 70A3 691 | MDX BT180 BACK TO ENTER NAME IN TBL OCB06910 692 | * OCB06920 693 | * CONTINUE CONSISTENCY CHECK OF DISK I/O LIBF OCB06930 694 | * OCB06940 0374 6216 695 | BT540 LDX 2 MSG22 INCONSISTENT DISK I/O LIBF OCB06950 0375 4400 0407 696 | BSI L TL000 PRINT MESSAGE R22 AND EXIT OCB06960 697 | * OCB06970 698 | * LIBF TV IS ALREADY FULL OCB06980 699 | * OCB06990 0377 6209 700 | BT570 LDX 2 MSG09 TOO MANY LIBF ENTRIES OCB07000 0378 4400 0407 701 | BSI L TL000 PRINT MESSAGE R09 AND EXIT OCB07010 702 | * OCB07020 703 | * A LOCAL HAS CALLED A LOCAL OCB07030 704 | * OCB07040 037A C900 705 | BT600 LDD 1 @WRD1 LD NAME OF LOCAL 2-9 OCB07050 037B 1082 706 | BT610 SLT 2 2-10 OCB07060 037C DB86 707 | STD 3 RNAME SAVE NAME OF CURRENT ENTRY OCB07070 037D 6211 708 | LDX 2 MSG17 LOCAL CALLS A LOCAL OCB07080 037E 4400 0407 709 | BSI L TL000 PRINT MESSAGE R17 AND EXIT OCB07090 CORE LOAD BUILDER, PHASE 0 711 | * PRINT A DIAGNOSTIC AND EXIT OCB07110 712 | * FETCH A PHASE OCB07120 713 | * OCB07130 0380 0000 714 | LK000 DC *-* ENTRY POINT OCB07140 0381 1000 715 | NOP OCB07150 0382 691F 716 | STX 1 LK900 OCB07160 0383 D051 717 | STO LK985 OCB07170 0384 C397 718 | LD 3 K320 OCB07180 0385 D050 719 | STO LK985+1 OCB07190 0386 6100 720 | LDX 1 0 OCB07200 0387 C500 03A4 721 | LK030 LD L1 LK910 COMPARE DESIRED ID WITH OCB07210 0389 9018 722 | S LK900 *AN ID FROM SLET EXTRACT OCB07220 038A 4C18 038E 723 | BSC L LK040,+- BR WHEN MATCH OCCURS OCB07230 038C 7104 724 | MDX 1 4 OCB07240 038D 70F9 725 | MDX LK030 BACK TO TRY AGAIN OCB07250 038E C500 03A5 726 | LK040 LD L1 LK910+1 FETCH LOADING ADDR OF OCB07260 0390 D003 727 | STO LK050+1 *DESIRED PHASE OCB07270 0391 CD00 03A6 728 | LDD L1 LK910+2 SET UP WD CNT AND SCTR ADDR OCB07280 0393 DC00 0000 729 | LK050 STD L *-* *ADDR OF DESIRED PHASE OCB07290 0395 C0FE 730 | LD LK050+1 OCB07300 0396 1890 731 | SRT 16 OCB07310 0397 4400 0418 732 | BSI L GP000 FETCH DESIRED PHASE OCB07320 0399 C008 733 | LD LK900 SET PHASE ID IN COMMA WITH OCB07330 039A 9039 734 | S LK985-1 BRANCH IF FETCHING PRINCI- OCB07340 039B 4C18 03A0 735 | BSC L LK100,+- *PAL PRINT SUBROUTINE OCB07350 039D C004 736 | LD LK900 OCB07360 039E D400 0078 737 | STO L $PHSE *ID OF PHASE JUST FETCHED OCB07370 03A0 4C80 0380 738 | LK100 BSC I LK000 RETURN OCB07380 739 | * OCB07390 740 | * CONSTANTS AND WORK AREAS OCB07400 741 | * OCB07410 03A2 0000 742 | LK900 DC *-* PHASE ID OF DESIRED PHASE OCB07420 03A4 743 | BSS E 0 OCB07430 744 | * SLET ENTRY FOR CORE LOAD BUILDER, PHASE 2 OCB07440 03A4 0079 745 | LK910 DC @CLB2 ID NO. OCB07450 03A5 0000 746 | DC *-* CORE ADDR OCB07460 03A6 0000 747 | DC *-* WD CNT OCB07470 03A7 0000 748 | DC *-* SCTR ADDR OCB07480 749 | * SLET ENTRY FOR CORE LOAD BUILDER, PHASE 3 OCB07490 03A8 007A 750 | DC @CLB3 ID NO. OCB07500 03A9 0000 751 | DC *-* CORE ADDR OCB07510 03AA 0000 752 | DC *-* WD CNT OCB07520 03AB 0000 753 | DC *-* SCTR ADDR OCB07530 754 | * SLET ENTRY FOR CORE LOAD BUILDER, PHASE 4 OCB07540 03AC 007B 755 | DC @CLB4 ID NO. OCB07550 03AD 0000 756 | DC *-* CORE ADDR OCB07560 03AE 0000 757 | DC *-* WD CNT OCB07570 03AF 0000 758 | DC *-* SCTR ADDR OCB07580 759 | * SLET ENTRY FOR CORE LOAD BUILDER, PHASE 5 OCB07590 03B0 007C 760 | DC @CLB5 ID NO. OCB07600 03B1 0000 761 | DC *-* CORE ADDR OCB07610 03B2 0000 762 | DC *-* WD CNT OCB07620 03B3 0000 763 | DC *-* SCTR ADDR OCB07630 764 | * SLET ENTRY FOR CORE LOAD BUILDER, PHASE 6 OCB07640 03B4 007D 765 | DC @CLB6 ID NO. OCB07650 03B5 0000 766 | DC *-* CORE ADDR OCB07660 03B6 0000 767 | DC *-* WD CNT OCB07670 03B7 0000 768 | DC *-* SCTR ADDR OCB07680 769 | * SLET ENTRY FOR CORE LOAD BUILDER, PHASE 7 OCB07690 03B8 007E 770 | DC @CLB7 ID NO. OCB07700 03B9 0000 771 | DC *-* CORE ADDR OCB07710 03BA 0000 772 | DC *-* WD CNT OCB07720 03BB 0000 773 | DC *-* SCTR ADDR OCB07730 774 | * SLET ENTRY FOR CORE LOAD BUILDER, PHASE 8 OCB07740 03BC 007F 775 | DC @CLB8 ID NO. OCB07750 03BD 0000 776 | DC *-* CORE ADDR OCB07760 03BE 0000 777 | DC *-* WD CNT OCB07770 03BF 0000 778 | DC *-* SCTR ADDR OCB07780 779 | * SLET ENTRY FOR CORE LOAD BUILDER, PHASE 9 OCB07790 03C0 0080 780 | DC @CLB9 ID NO. OCB07800 03C1 0000 781 | DC *-* CORE ADDR OCB07810 03C2 0000 782 | DC *-* WD CNT OCB07820 03C3 0000 783 | DC *-* SCTR ADDR OCB07830 784 | * SLET ENTRY FOR CORE LOAD BUILDER, PHASE 10 OCB07840 03C4 0081 785 | DC @CLBA ID NO. OCB07850 03C5 0000 786 | DC *-* CORE ADDR OCB07860 03C6 0000 787 | DC *-* WD CNT OCB07870 03C7 0000 788 | DC *-* SCTR ADDR OCB07880 789 | * SLET ENTRY FOR CORE LOAD BUILDER, PHASE 11 OCB07890 03C8 0082 790 | DC @CLBB ID NO. OCB07900 03C9 0000 791 | DC *-* CORE ADDR OCB07910 03CA 0000 792 | DC *-* WD CNT OCB07920 03CB 0000 793 | DC *-* SCTR ADDR OCB07930 794 | * SLET ENTRY FOR CORE LOAD BUILDER, PHASE 12 OCB07940 03CC 0083 795 | DC @CLBC ID NO. OCB07950 03CD 0000 796 | DC *-* CORE ADDR OCB07960 03CE 0000 797 | DC *-* WD CNT OCB07970 03CF 0000 798 | DC *-* SCTR ADDR OCB07980 799 | * SLET ENTRY FOR CORE LOAD BUILDER, PHASE 13 2G2 OCB07990 03D0 0084 800 | DC @CLBD ID NO. 2G2 OCB08000 03D1 0000 801 | DC *-* CORE ADDR 2G2 OCB08010 03D2 0000 802 | DC *-* WORD COUNT 2G2 OCB08020 03D3 0000 803 | DC *-* SCTR ADDR 2G2 OCB08030 804 | * SLET ENTRY FOR SYSTEM PRINCIPAL PRINT SUBROUTINE OCB08040 03D4 0099 805 | DC @PRNT ID NO. OCB08050 03D5 0000 806 | LK985 DC *-* CORE ADDR OCB08060 03D6 0000 807 | DC *-* WD CNT OCB08070 03D7 0000 808 | DC *-* SCTR ADDR OCB08080 CORE LOAD BUILDER, PHASE 0 810 | * OCB08100 811 | * CONSTANTS AND WORK AREAS OCB08110 812 | * EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES OCB08120 813 | * OCB08130 03D8 814 | BSS E 0 OCB08140 815 | * SLET EXTRACT FOR DUP, PHASE 17 OCB08150 03D8 0011 816 | EX900 DC @DU17 PHASE ID OCB08160 03D9 0000 817 | DC *-* CORE ADDR OF DUP, PHASE 17 OCB08170 03DA 0000 818 | DC *-* WD CNT OF DUP, PHASE 17 OCB08180 03DB 0000 819 | DC *-* SCTR ADDR OF DUP, PHASE 17 OCB08190 820 | * SLET EXTRACT FOR CORE IMAGE LOADER, PHASE 2 OCB08200 03DC 00A1 821 | EX910 DC @CIL2 PHASE ID OCB08210 03DD 0000 822 | DC *-* CORE ADDR OF CIL,PHASE 2 OCB08220 03DE 0000 823 | DC *-* WD CNT OF CORE IMAGE LDR,P2 OCB08230 03DF 0000 824 | DC *-* SCTR ADDR OF SAME OCB08240 825 | * EXIT SUBROUTINE OCB08250 03E0 4400 0000 826 | EX920 BSI L *-* BR TO CIL,PH 2 OR DUP,PH 17 OCB08260 03E2 DC00 0000 827 | STD L *-* STORE WD CNT, SCTR ADDR OCB08270 03E4 C0FE 828 | LD *-2 OCB08280 03E5 1890 829 | SRT 16 OCB08290 03E6 4400 00F2 830 | BSI L DZ000 FETCH CIL,PH 2 OR DUP,PH 17 OCB08300 03E8 7400 00EE 831 | MDX L $DBSY,0 LOOP UNTIL PHASE HAS OCB08310 03EA 70FD 832 | MDX *-3 *BEEN READ INTO CORE OCB08320 03EB 70F4 833 | EX929 MDX *-12 BR TO CIL,PH 2 OR DUP,PH 17 OCB08330 834 | * OCB08340 835 | * EXIT FROM THE CORE LOAD BUILDER OCB08350 836 | * OCB08360 03EC 0000 837 | EX000 DC *-* ENTRY POINT OCB08370 838 | * OCB08380 839 | * MOVE EXIT SUBR TO 1132 SCAN AREA OCB08390 840 | * OCB08400 03ED 61F4 841 | LDX 1 EX920-EX929-1 OCB08410 03EE CD00 03EC 842 | EX150 LDD L1 EX929+1 OCB08420 03F0 DD00 0028 843 | STD L1 $HASH+EX929+1-EX900 OCB08430 03F2 7102 844 | MDX 1 2 SKIP WHEN DONE OCB08440 03F3 70FA 845 | MDX EX150 BR TO STORE 2 MORE WORDS OCB08450 03F4 6600 03D8 846 | LDX L2 EX900 OCB08460 03F6 C3BF 847 | LD 3 LCBSW OCB08470 03F7 4C20 0400 848 | BSC L EX200,Z BR IF STORE CORE IMAGE OCB08480 03F9 7400 0034 849 | MDX L $NDUP,0 SKIP IF NO ERRORS DETECTED OCB08490 03FB 6038 850 | EXIT CALL EXIT OCB08500 851 | * OCB08510 852 | * PREPARE TO EXIT TO CORE IMAGE LOADER, PHASE 2 OCB08520 853 | * OCB08530 03FC D118 854 | STO 1 $CLSW-0 INDICATE XEQ DSF IN CIL SW OCB08540 03FD C3A5 855 | LD 3 CILCA OCB08550 03FE D0DE 856 | STO EX910+1 OCB08560 03FF 7204 857 | MDX 2 EX910-EX900 OCB08570 0400 C201 858 | EX200 LD 2 1 FETCH CORE ADDR OCB08580 0401 D11F 859 | STO 1 $HASH+11-0 OCB08590 0402 838F 860 | A 3 K2 OCB08600 0403 D11D 861 | STO 1 $HASH+9-0 OCB08610 0404 CA02 862 | LDD 2 2 OCB08620 863 | * OCB08630 864 | * EXIT TO CORE IMAGE LOADER OR DUP OCB08640 865 | * OCB08650 0405 1000 866 | NOP OCB08660 0406 601E 867 | LDX 0 $HASH+10-0 BR TO FETCH,EXEC CIL,PH 2 OCB08670 CORE LOAD BUILDER, PHASE 0 0407 0000 869 | TL000 DC *-* ENTRY POINT OCB08690 0408 6A0E 870 | STX 2 TL900 OCB08700 0409 C00D 871 | LD TL900 BR IF ERROR MESSAGE TO BE OCB08710 040A 4410 0426 872 | BSI L PM000,- *PRINTED BEFORE ABORT MSG OCB08720 040C C00A 873 | LD TL900 TEST FOR MSG 16-PROGRAM 212 OCB08730 040D 9395 874 | S 3 K16 *NOT FOUND IN LET/FLET 212 OCB08740 040E 4C98 0407 875 | BSC I TL000,+- RETURN IF MSG 16 212 OCB08750 0410 CB80 876 | TL100 LDD 3 LNAME 212 OCB08760 0411 DB86 877 | STD 3 RNAME OCB08770 0412 6212 878 | LDX 2 MSG18 OCB08780 0413 4400 0426 879 | BSI L PM000 PRINT ABORT MESSAGE OCB08790 0415 4400 03EC 880 | BSI L EX000 EXIT FROM CLB OCB08800 881 | * OCB08810 882 | * CONSTANTS AND WORK AREAS OCB08820 883 | * OCB08830 0417 0000 884 | TL900 DC *-* NO. OF DESIRED MESSAGE OCB08840 CORE LOAD BUILDER, PHASE 0 886 | * GET/PUT SUBROUTINE OCB08860 887 | * OCB08870 0418 0000 888 | GP000 DC *-* ENTRY POINT OCB08880 0419 4C08 041F 889 | BSC L GP100,+ BR IF READ REQUEST 212 OCB08890 041B C3EE 890 | LD 3 LSW22 TEST FOR ALL SUBR FOUND 212 OCB08900 041C 4CA0 0418 891 | BSC I GP000,Z *BR IF NOT 212 OCB08910 041E C38E 892 | LD 3 K1 RESTORE WRITE REQUEST 212 OCB08920 041F 4400 00F2 893 | GP100 BSI L DZ000 CALL DISK I/O 212 OCB08930 0421 7400 00EE 894 | MDX L $DBSY,0 LOOP UNTIL OCB08940 0423 70FD 895 | MDX *-3 *OPERATION COMPLETE OCB08950 0424 4C80 0418 896 | BSC I GP000 RETURN OCB08960 CORE LOAD BUILDER, PHASE 0 898 | * FLIPPER FOR PRINTING MESSAGES OCB08980 899 | * OCB08990 0426 0000 900 | PM000 DC *-* ENTRY POINT FOR ERROR MSGES OCB09000 0427 1000 901 | NOP OCB09010 0428 691B 902 | STX 1 PM100+1 SAVE XR1 OCB09020 0429 6A24 903 | STX 2 PM910 SAVE MAP/MESSAGE INDICATOR OCB09030 042A C400 0078 904 | LD L $PHSE SAVE PHASE ID OCB09040 042C D020 905 | STO PM900 *CURRENTLY IN COMMA OCB09050 042D C020 906 | LD PM910 FETCH INDICATOR OCB09060 042E 1804 907 | SRA 4 OCB09070 042F 6100 908 | LDX 1 0 ZERO TO XR1 OCB09080 0430 4C18 043B 909 | BSC L PM030,+- BR IF NO. LT 16 OCB09090 0432 7101 910 | MDX 1 1 OCB09100 0433 1801 911 | SRA 1 OCB09110 0434 4C18 043B 912 | BSC L PM030,+- BR IF NO. LT 32 OCB09120 0436 7101 913 | MDX 1 1 OCB09130 0437 1801 914 | SRA 1 OCB09140 0438 4C18 043B 915 | BSC L PM030,+- BR IF NO. LT 64 OCB09150 043A 7101 916 | MDX 1 1 OCB09160 043B 717E 917 | PM030 MDX 1 @CLB8-1 PHASE NO. TO XR1 OCB09170 043C 4400 0380 918 | BSI L LK000 FETCH DESIRED PHASE OCB09180 043E 4400 0AA2 919 | BSI L BUFLS+2 BR TO MAP/MESSAGE PHASE OCB09190 0440 C00C 920 | LD PM900 RESTORE PHASE ID OCB09200 0441 D400 0078 921 | STO L $PHSE *IN COMMA OCB09210 0443 6500 0000 922 | PM100 LDX L1 *-* RESTORE XR1 OCB09220 0445 4C80 0426 923 | BSC I PM000 RETURN OCB09230 0447 0000 924 | PM300 DC *-* ENTRY PT. TO CHECK MAP SW OCB09240 0448 7400 056E 925 | MDX L LMPSW+X3,0 SKIP IF NO MAP REQUESTED OCB09250 044A 40DB 926 | BSI PM000 BR TO PRINT MESSAGE OCB09260 044B 4C80 0447 927 | BSC I PM300 RETURN OCB09270 928 | * OCB09280 929 | * CONSTANTS AND WORK AREAS OCB09290 930 | * OCB09300 044D 0000 931 | PM900 DC *-* PHASE ID FROM COMMA OCB09310 044E 0000 932 | PM910 DC *-* MESSAGE/MAP INDICATOR OCB09320 CORE LOAD BUILDER, PHASE 0 934 | * OCB09340 935 | * LET ENTRIES FOR CURRENT SUBPROGRAM OCB09350 936 | * OCB09360 0450 937 | ENTPT BSS E @MXEP*@LTEN OCB09370 938 | * OCB09380 939 | * CORE IMAGE HEADER OCB09390 940 | * OCB09400 0488 941 | B EQU * OCB09410 942 | * MISCELLANEOUS LOADING PARAMETERS OCB09420 0488 0000 943 | @XEQA DC *-* CORE LOAD EXECUTION ADDR 1 OCB09430 0489 0000 944 | @CMON DC *-* WD CNT OF COMMON 2 OCB09440 048A 0000 945 | @DREQ DC *-* DISK I/O INDICATOR 3 OCB09450 048B 0000 946 | @FILE DC *-* NO. DEFINED FILES 4 OCB09460 048C 001E 947 | @HWCT DC @HEND-@XEQA+1 CORE IMAGE HDR WD CNT 5 OCB09470 048D 0000 948 | @LSCT DC *-* SCTR CNT OF FILES IN SYS WS 6 OCB09480 048E 0000 949 | @LDAD DC *-* LOADING ADDR OF CORE LOAD 7 OCB09490 048F 0000 950 | @XCTL DC *-* EXIT CTRL ADDR FOR DISK1/N 8 OCB09500 0490 0000 951 | @TVWC DC *-* TRANSFER VECTOR WD CNT 9 OCB09510 0491 0000 952 | @WCNT DC *-* WD CNT OF CORE LOAD 10 OCB09520 0492 0000 953 | @XR3X DC *-* SETTING FOR XR3 DURING EXECUTION OCB09530 954 | * INTERRUPT TV (ITV) OCB09540 0493 0000 955 | @ITVX DC *-* WORD 8 12 OCB09550 0494 0000 956 | DC *-* WORD 9 13 OCB09560 0495 0000 957 | DC *-* WORD 10 14 OCB09570 0496 0000 958 | DC *-* WORD 11 15 OCB09580 0497 0000 959 | DC *-* WORD 12 16 OCB09590 0498 0000 960 | DC *-* WORD 13 17 OCB09600 961 | * INTERRUPT BRANCH TABLE FOR LEVEL 4 (IBT4) OCB09610 0499 0000 962 | @ILS4 DC *-* RESERVED FOR FUTURE USE 18 OCB09620 049A 0000 963 | DC *-* RESERVED FOR FUTURE USE 19 OCB09630 049B 0000 964 | DC *-* RESERVED FOR FUTURE USE 20 OCB09640 049C 0000 965 | DC *-* ISS FOR 1231 21 OCB09650 049D 0000 966 | DC *-* ISS FOR 1403 22 OCB09660 049E 0000 967 | DC *-* ISS FOR 2501 23 OCB09670 049F 0000 968 | DC *-* ISS FOR 1442 24 OCB09680 04A0 0000 969 | DC *-* ISS FOR KEYBOARD/CONSOLE PRINTER OCB09690 04A1 0000 970 | DC *-* ISS FOR 1134/1055 26 OCB09700 971 | * OCB09710 04A2 0000 972 | @OVSW DC *-* LOCAL/SOCAL SECTOR COUNT 27 OCB09720 04A3 0000 973 | @CORE DC *-* CORE SIZE OF SYS BUILDING LOAD OCB09730 974 | * OCB09740 04A4 0000 975 | DC *-* USED BY SDFIO FOR CHECKSUMMING OCB09750 04A5 0000 976 | DC *-* *DEFINE FILE TABLE 30 OCB09760 04A5 977 | @HEND EQU *-1 OCB09770 CORE LOAD BUILDER, PHASE 0 979 | * ISS TABLE OCB09790 04A6 0000 980 | DC 0 ISS NO. 0, UNASSIGNED OCB09800 04A7 0000 981 | ISTVX DC 0 ISS NO. 1, 1442 CD READ/PUNCH OCB09810 04A8 0000 982 | DC 0 ISS NO. 2, KEYBOARD/CONSOLE PTR OCB09820 04A9 0000 983 | DC 0 ISS NO. 3, 1134/1055 PAPER TAPE OCB09830 04AA 0000 984 | DC 0 ISS NO. 4, 2501 CARD READER OCB09840 04AB 0000 985 | DKISS DC 0 ISS NO. 5, 2310 DISK 2-2 OCB09850 04AC 0000 986 | DC 0 ISS NO. 6, 1132 PRINTER OCB09860 04AD 0000 987 | DC 0 ISS NO. 7, 1627 PLOTTER OCB09870 04AE 0000 988 | DC 0 ISS NO. 8, SCA OCB09880 04AF 0000 989 | DC 0 ISS NO. 9, 1403 PRINTER OCB09890 04B0 0000 990 | DC 0 ISS NO. 10, 1231 MARK READER OCB09900 04B1 0000 991 | DC 0 ISS NO. 11, 2250 GRAPHIC DISPLAY OCB09910 04B2 0000 992 | DC 0 ISS NO. 12, RESERVED OCB09920 04B3 0000 993 | DC 0 ISS NO. 13, RESERVED OCB09930 04B4 0000 994 | DC 0 ISS NO. 14, RESERVED OCB09940 04B5 0000 995 | DC 0 ISS NO. 15, RESERVED OCB09950 04B6 0000 996 | DC 0 ISS NO. 16, RESERVED OCB09960 04B7 0000 997 | DC 0 ISS NO. 17, RESERVED OCB09970 04B8 0000 998 | DC 0 ISS NO. 18, RESERVED OCB09980 04B9 0000 999 | DC 0 ISS NO. 19, RESERVED OCB09990 04BA 0000 1000 | DC 0 ISS NO. 20, RESERVED OCB10000 CORE LOAD BUILDER, PHASE 0 1002 | * 2-4 OCB10020 1003 | * EQUATE TABLE 2-4 OCB10030 1004 | * 2-4 OCB10040 0520 1005 | EQTBL BES E @EQLM*@EETY 2-10 OCB10050 CORE LOAD BUILDER, PHASE 0 1007 | * RCOM, CONSTANTS AND WORK AREAS SHARED BY PHASES OCB10070 0520 1008 | BSS E 0 OCB10080 1009 | * OCB10090 1010 | * THE FOLLOWING 2-WD CELLS ARE ON EVEN-BOUNDARIES OCB10100 1011 | * OCB10110 05A0 1012 | X3 EQU *+128 OCB10120 0520 1013 | ORG * OCB10130 05A1 1014 | W EQU *+129 OCB10140 0520 0000 1015 | DC *-* MAINLINE NAME IN OCB10150 FF80 1016 | LNAME EQU *-W OCB10160 0521 0000 1017 | DC *-* *NAME CODE OCB10170 0522 0000 1018 | DC *-* CELL FOR HOLDING NAME BEING OCB10180 FF82 1019 | NAME EQU *-W OCB10190 0523 0000 1020 | DC *-* *COMPARED WITH THOSE IN LOAD TBL OCB10200 0524 0000 1021 | DC *-* CELL FOR HOLDING 2ND PARA- OCB10210 FF84 1022 | NAME2 EQU *-W OCB10220 0525 0000 1023 | DC *-* *METER FOR ERROR MESSAGES OCB10230 0526 0000 1024 | DC *-* NAME OF SUBROUTINE CURRENTLY OCB10240 FF86 1025 | RNAME EQU *-W OCB10250 0527 0000 1026 | DC *-* *BEING RELOCATED,IN NAME CODE OCB10260 1027 | * OCB10270 1028 | * THE FOLLOWING CELLS MUST APPEAR IN OCB10280 1029 | * THIS ORDER TO FACILITATE INDEXING OCB10290 1030 | * OCB10300 0528 0000 1031 | DC *-* LENGTH OF MISC. IN-CORE SUBRS OCB10310 FF88 1032 | INCOR EQU *-W OCB10320 0529 0000 1033 | DC *-* ARITH & FUNCTIONAL LENGTH OCB10330 FF89 1034 | ARITH EQU *-W OCB10340 052A 0000 1035 | DC *-* LENGTH OF FI/O OCB10350 FF8A 1036 | FORIO EQU *-W OCB10360 052B 0000 1037 | DC *-* LENGTH OF DISK FI/O OCB10370 FF8B 1038 | DKFIO EQU *-W OCB10380 052C 0000 1039 | DC *-* LENGTH OF LONGEST LOCAL SUBR OCB10390 FF8C 1040 | LOCAL EQU *-W OCB10400 1041 | * OCB10410 1042 | * THE FOLLOWING ARE CONSTANTS USED OCB10420 1043 | * FOR VARIOUS PURPOSES OCB10430 1044 | * OCB10440 052D 0000 1045 | DC 0 ZERO OCB10450 FF8D 1046 | K0 EQU *-W OCB10460 052E 0001 1047 | DC 1 ONE OCB10470 FF8E 1048 | K1 EQU *-W OCB10480 052F 0002 1049 | DC 2 TWO OCB10490 FF8F 1050 | K2 EQU *-W OCB10500 0530 0003 1051 | DC 3 THREE OCB10510 FF90 1052 | K3 EQU *-W OCB10520 0531 0005 1053 | DC 5 FIVE OCB10530 FF91 1054 | K5 EQU *-W OCB10540 0532 0006 1055 | DC 6 SIX OCB10550 FF92 1056 | K6 EQU *-W OCB10560 0533 0007 1057 | DC 7 SEVEN OCB10570 FF93 1058 | K7 EQU *-W OCB10580 0534 0008 1059 | DC 8 EIGHT OCB10590 FF94 1060 | K8 EQU *-W OCB10600 0535 0010 1061 | DC 16 SIXTEEN OCB10610 FF95 1062 | K16 EQU *-W OCB10620 0536 0014 1063 | DC 20 NO. WORDS PER DISK BLOCK OCB10630 FF96 1064 | K20 EQU *-W OCB10640 0537 0140 1065 | DC 320 NO. WORDS PER SECTOR OCB10650 FF97 1066 | K320 EQU *-W OCB10660 0538 4000 1067 | DC /4000 MASK OCB10670 FF98 1068 | K4000 EQU *-W OCB10680 1069 | * 2 INSTRUCTIONS REMOVED 2-2 OCB10690 0539 8000 1070 | DC /8000 MASK OCB10700 FF99 1071 | K8000 EQU *-W OCB10710 053A F000 1072 | DC /F000 MASK OCB10720 FF9A 1073 | KF000 EQU *-W OCB10730 053B 00FF 1074 | DC /00FF MASK OCB10740 FF9B 1075 | K00FF EQU *-W OCB10750 053C 0FFF 1076 | DC /0FFF MASK OCB10760 FF9C 1077 | K0FFF EQU *-W OCB10770 053D FF0F 1078 | DC /FF0F MASK OCB10780 FF9D 1079 | KFF0F EQU *-W OCB10790 1080 | * OCB10800 1081 | * THE FOLLOWING CONSTANTS AND WORK OCB10810 1082 | * AREAS ARE ARRANGED ALPHABETICALLY OCB10820 1083 | * OCB10830 053E 000F 1084 | DC @DBSC-1 NO. DISK BLOCKS PER OCB10840 FF9E 1085 | BLCKS EQU *-W *SECTOR MINUS 1 OCB10850 053F 4300 1086 | BSI 3 0 BSI TO REPLACE LIBF NAME OCB10860 FF9F 1087 | BSIT3 EQU *-W *IN PROCESSING LIBF STATEMENTS OCB10870 0540 0000 1088 | DC *-* CORE ADDR OF DESIRED BUFFER OCB10880 FFA0 1089 | BUFFR EQU *-W OCB10890 0541 0000 1090 | DC *-* DISK BLOCK ADDR OF PROGRAM OCB10900 FFA1 1091 | BYADR EQU *-W *JUST LOOKED UP IN LET/FLET OCB10910 0542 0000 1092 | DC *-* RIGHTMOST ADDR IN CALL TV OCB10920 FFA2 1093 | CALTV EQU *-W OCB10930 0543 0D24 1094 | DC BUFCI CORE ADDR OF CIB BUFFER OCB10940 FFA3 1095 | CIBBF EQU *-W OCB10950 0544 0000 1096 | DC *-* UPPER LIMIT OF CORE TO BE 2-2 OCB10960 FFA4 1097 | CIBLM EQU *-W *STORED IN THE CIB 2-2 OCB10970 0545 0000 1098 | DC *-* CORE ADDR OF CORE IMAGE LDR,PH 2 OCB10980 FFA5 1099 | CILCA EQU *-W OCB10990 0546 0000 1100 | DC *-* CLASS CODE OF PROGRAM CURRENTLY OCB11000 FFA6 1101 | CLASS EQU *-W *BEING RELOCATED OCB11010 0547 0000 1102 | DC *-* LOAD TABLE ADDR OF SUBROUTINE OCB11020 FFA7 1103 | CURTV EQU *-W *CURRENTLY BEING RELOCATED OCB11030 0548 0000 1104 | DC *-* DATA WD TO BE WRITTEN ON THE CIB OCB11040 FFA8 1105 | DATWD EQU *-W OCB11050 0549 0000 1106 | DC *-* CORE ADDR TO WHICH DEFINE FILE OCB11060 FFA9 1107 | DFADR EQU *-W *TABLE HAS BEEN MOVED OCB11070 054A 0000 1108 | DC *-* DISPLACEMENT IN LIBF TV FOR OCB11080 FFAA 1109 | DISPL EQU *-W *CURRENT LOAD TABLE ENTRY OCB11090 054B 0000 1110 | DC *-* DRIVE CODE OF LAST NAME SOUGHT OCB11100 FFAB 1111 | DRCDE EQU *-W *IN LET/FLET OCB11110 054C 0E66 1112 | DC BUFCI+322 HIGHEST ADDR USED BY CLB, OCB11120 FFAC 1113 | ENDRL EQU *-W *EXCLUDING THE LOAD TABLE OCB11130 054D 0000 1114 | DC 0 THE NEG NO. OF WORDS 2-4 OCB11140 FFAD 1115 | EQCNT EQU *-W *THE EQUATE TABLE 2-4 OCB11150 054E 0000 1116 | DC 0 WORD COUNT OF THE LOCAL OCB11160 FFAE 1117 | FLIPT EQU *-W *FLIPPER TABLE OCB11170 054F 0000 1118 | DC *-* ADDR OF LOCAL FLIPPER,I.E.,1+ OCB11180 FFAF 1119 | FLPAD EQU *-W *ADDR OF END OF FLIPPER TABLE OCB11190 0550 0000 1120 | DC *-* SECTOR ADDR OF LAST SECTOR OF OCB11200 FFB0 1121 | FSCTR EQU *-W *LAST FILE IN WORKING STORAGE OCB11210 0551 0000 1122 | DC 0 HIGHEST ADDR OCCUPIED BY CORE OCB11220 FFB1 1123 | HADDR EQU *-W *LOAD TO THIS POINT IN LOADING OCB11230 0552 0000 1124 | IBT04 DC *-* IBT04 ENTRY FOR THE 1403 OCB11240 FFB2 1125 | IBT4X EQU *-W OCB11250 0553 1126 | BSS 2 OCB11260 0555 0000 1127 | DC *-* IBT04 ENTRY FOR CONSOLE PRINTER OCB11270 0556 0000 1128 | DC *-* MINUS DRIVE NO. FROM WHICH LET/ OCB11280 FFB6 1129 | IGNOR EQU *-W *FLET SEARCHING BEGINS OCB11290 0557 0000 1130 | DC 0 WORD COUNT OF ALL INTERRUPT LEVEL OCB11300 FFB7 1131 | ILSCT EQU *-W *SUBROUTINES IN THIS CORE LOAD OCB11310 0558 0000 1132 | DC *-* NO. WORDS PROG CURRENTLY BEING OCB11320 FFB8 1133 | INCRE EQU *-W *RELOCATED ADDR TO LOAD TABLE OCB11330 0559 0000 1134 | DC *-* ADDR IN DATA BFR OF CURRENT WD OCB11340 FFB9 1135 | INDEX EQU *-W OCB11350 055A 0000 1136 | DC *-* ISS TBL ADDR FOR CURR I/O DEVICE OCB11360 FFBA 1137 | ISSTV EQU *-W OCB11370 055B 0000 1138 | DC 0 NO. OF IN-CORE CALLS (NOT LIBFS) OCB11380 FFBB 1139 | ITVCT EQU *-W OCB11390 055C 0000 1140 | DC *-* LOCATION ADDRESS COUNTER OCB11400 FFBC 1141 | LACTR EQU *-W OCB11410 055D 0000 1142 | DC *-* LOADING ADDR OF PROGRAM OCB11420 FFBD 1143 | LADDR EQU *-W *CURRENTLY BEING RELOCATED OCB11430 055E 0000 1144 | DC 0 WORD LENGTH OF LOAD TABLE OCB11440 FFBE 1145 | LBATV EQU *-W OCB11450 055F 0000 1146 | DC *-* STORE CI INDICATOR-- OCB11460 FFBF 1147 | LCBSW EQU *-W *ZERO MEANS STORE CORE IMAGE OCB11470 0560 0000 1148 | DC *-* LOGICAL DR NO. OF DRIVE CON- OCB11480 FFC0 1149 | LDCDE EQU *-W *TAINING DESIRED PROGRAM OCB11490 0561 0000 1150 | DC *-* CARTRIDGE ID FOR LOGICAL DRIVE 0 OCB11500 FFC1 1151 | LCIDN EQU *-W OCB11510 0562 0000 1152 | DC *-* CARTRIDGE ID FOR LOGICAL DRIVE 1 OCB11520 0563 0000 1153 | DC *-* CARTRIDGE ID FOR LOGICAL DRIVE 2 OCB11530 0564 0000 1154 | DC *-* CARTRIDGE ID FOR LOGICAL DRIVE 3 OCB11540 0565 0000 1155 | DC *-* CARTRIDGE ID FOR LOGICAL DRIVE 4 OCB11550 0566 0000 1156 | DC *-* NO. BLOCKS IN FILE/PROG OCB11560 FFC6 1157 | LDBCT EQU *-W *JUST LOOKED UP IN LET/FLET OCB11570 0567 0000 1158 | DC *-* DISK I/O REQUESTED INDICATOR OCB11580 FFC7 1159 | LDREQ EQU *-W *(FROM LIBF STATEMENT) OCB11590 0568 0000 1160 | DC *-* ADDR OF 1ST WORD OF RIGHTMOST OCB11600 FFC8 1161 | LEFTX EQU *-W *AVAILABLE ENTRY IN LOAD TABLE OCB11610 0569 0000 1162 | DC *-* NO. DEVICES ON INTERRUPT LEVEL OCB11620 FFC9 1163 | LEVLS EQU *-W *CURRENTLY BEING SERVICED OCB11630 056A 0000 1164 | DC *-* NO. *FILES RECORDS IN THE SCRA OCB11640 FFCA 1165 | LFCNT EQU *-W OCB11650 056B 0000 1166 | DC *-* WORD 9 OF MAINLINE HEADER OCB11660 FFCB 1167 | LFORT EQU *-W OCB11670 056C 0000 1168 | DC *-* NO. *LOCAL RECORDS IN THE SCRA OCB11680 FFCC 1169 | LLCNT EQU *-W OCB11690 056D 0000 1170 | DC *-* LOCAL-CANNOT-CALL-LOCAL SW, 2-2 OCB11700 FFCD 1171 | LLOSW EQU *-W *ZERO=CANNOT 2-2 OCB11710 056E 0000 1172 | DC *-* MAP SWITCH--ZERO=NO MAP REQUESTD OCB11720 FFCE 1173 | LMPSW EQU *-W OCB11730 056F 0000 1174 | DC *-* NO. OF NOCALS REQUESTED OCB11740 FFCF 1175 | LNCNT EQU *-W OCB11750 0570 0000 1176 | DC *-* LENGTH OF PROGRAM REFERENCED OCB11760 FFD0 1177 | LNGTH EQU *-W *IN DSA STATEMENT OCB11770 0571 0000 1178 | DC *-* LOWEST ADDR OCCUPIED BY CURR- OCB11780 FFD1 1179 | LOADR EQU *-W *ENTLY RELOCATED SUBROUTINE OCB11790 0572 0BE2 1180 | DC BUFLO CORE ADR OF DATA BUFFER OCB11800 FFD2 1181 | LOBUF EQU *-W OCB11810 0573 0000 1182 | DC *-* CORE ADDR OF LOCAL AREA OCB11820 FFD3 1183 | LOCAR EQU *-W OCB11830 0574 0013 1184 | DC 19 WORD COUNT OF A FILE MAP LINE OCB11840 FFD4 1185 | LONGX EQU *-W *FOR A TRUNCATED FILE OCB11850 0575 0000 1186 | DC *-* ML PRECISION -- 0=NONE,1= OCB11860 FFD5 1187 | LPREC EQU *-W *STANDARD,2 = EXTENDED OCB11870 0576 0000 1188 | DC *-* ADDR OF LOCAL AREA (SW 9=0) OR OCB11880 FFD6 1189 | LSADR EQU *-W *SOCAL AREA (SW 9=1,2,OR 3) OCB11890 0577 0AA0 1190 | DC BUFLS CORE ADDR OF LET/FLET OCB11900 FFD7 1191 | LSBUF EQU *-W *SEARCH BUFFER OCB11910 0578 0000 1192 | DC *-* SCTR ADDR OF SCRA OCB11920 FFD8 1193 | LSCRA EQU *-W OCB11930 0579 0000 1194 | DC *-* BYPASS SW--NON-ZERO INDICATES OCB11940 FFD9 1195 | LSW01 EQU *-W NOT TO LOAD CURRENT PROGRAM OCB11950 057A 0000 1196 | DC 0 FILES ALLOC HDNG SW-0=NOT PRINTD OCB11960 FFDA 1197 | LSW02 EQU *-W OCB11970 057B 0001 1198 | DC 1 DO NOT STORE EXECUTION ADDR OCB11980 FFDB 1199 | LSW03 EQU *-W *IN 3RD WD OF LD TBL IF NON-ZERO OCB11990 057C 0000 1200 | DC *-* TRUNCATED FILE SWITCH--CURRENT OCB12000 FFDC 1201 | LSW04 EQU *-W *FILE HAS BEEN TRUNCATED OCB12010 057D 0000 1202 | DC *-* DO-NOT-LOAD SW--1=DO NOT RELO- OCB12020 FFDD 1203 | LSW05 EQU *-W *CATE CURRENT SUBROUTINE OCB12030 057E 0000 1204 | DC 0 DF SW--1=DEFINE FILE TABLE OCB12040 FFDE 1205 | LSW06 EQU *-W *PROCESSING INCOMPLETE OCB12050 057F 0000 1206 | DC 0 ILS SWITCH--1=PROCESSING BRANCH OCB12060 FFDF 1207 | LSW07 EQU *-W *TABLE OF AN ILS OCB12070 0580 0000 1208 | DC *-* CALL/LIBF SW--1=CALL,ZERO=LIBF OCB12080 FFE0 1209 | LSW08 EQU *-W OCB12090 0581 0000 1210 | DC *-* MODE SW--0=PROCESSING LOCALS, OCB12100 FFE1 1211 | LSW09 EQU *-W *-1=PROCESSING IN-CORES,+=SOCALS OCB12110 0582 0000 1212 | DC 0 INHIBITED TRANSFER TO CIB SW-- OCB12120 FFE2 1213 | LSW10 EQU *-W 1=DO NOT WRITE ON CIB OCB12130 0583 0000 1214 | DC *-* LET/FLET SW--0=LET, 1=FLET OCB12140 FFE3 1215 | LSW11 EQU *-W OCB12150 0584 0000 1216 | DC *-* LET ENTRY TYPE SW--+ =DSF ENTRY, OCB12160 FFE4 1217 | LSW12 EQU *-W * - = DDF OR DCI OCB12170 0585 0000 1218 | DC *-* 1ST TIME SW FOR THE PS SUBR IN OCB12180 FFE5 1219 | LSW13 EQU *-W *PHASE 5 OCB12190 0586 0000 1220 | DC *-* DATA BFR SW--ZERO=GET DISK ADDR OCB12200 FFE6 1221 | LSW14 EQU *-W *FROM BYADR,OTHERWISE COMPUTE IT OCB12210 0587 0000 1222 | DC 0 DSA SWITCH-- 1=PROCESSING OCB12220 FFE7 1223 | LSW15 EQU *-W *A DSA STATEMENT OCB12230 0588 0000 1224 | DC *-* LOCAL SWITCH-- 8=PROCESSING OCB12240 FFE8 1225 | LSW16 EQU *-W *A SUBR CALLED BY A LOCAL OCB12250 0589 0000 1226 | DC 0 PASS SWITCH - ZERO= OCB12260 FFE9 1227 | LSW17 EQU *-W *1ST PASS, 1=2ND PASS OCB12270 058A 0000 1228 | DC *-* DISK I/O SW--0=CALL/LIBF NOT A OCB12280 FFEA 1229 | LSW18 EQU *-W *DISK I/O CALL OCB12290 058B 0000 1230 | DC 0 OVERLAY SWITCH--NON-ZERO MEANS OCB12300 FFEB 1231 | LSW19 EQU *-W *LOCALS/SOCALS IN THE CORE LOAD OCB12310 058C 0000 1232 | DC *-* CORE IMAGE HDR SW--NON-ZERO= OCB12320 FFEC 1233 | LSW20 EQU *-W *OUTPUTTING CORE IMAGE HEADER OCB12330 058D 0000 1234 | DC *-* CIB SWITCH--0=1ST TIME CIB SCTR OCB12340 FFED 1235 | LSW21 EQU *-W *READ INTO CIB BUFFER OCB12350 058E 0000 1236 | DC 0 WORD LENGTH OF TRANSFER VECTOR OCB12360 FFEE 1237 | LSW22 EQU *-W LET/FLET SW--0=ALL PROGS212 OCB12370 058F 0000 1238 | DC 0 *FOUND,+=PREVIOUS PROG 212 OCB12380 1239 | * *NOT FOUND,-=THIS PROG 212 OCB12390 1240 | * *NOT FOUND 212 OCB12400 FFEF 1241 | LSW23 EQU *-W PROCESSING EQUAT--NON- 212 OCB12410 0590 0000 1242 | DC 0 ZERO = PROCESSING EQUAT 212 OCB12420 FFF0 1243 | LTVWC EQU *-W OCB12430 0591 0000 1244 | DC *-* TYPE FOR PROGRAM CURRENTLY OCB12440 FFF1 1245 | LTYPE EQU *-W *BEING RELOCATED OCB12450 0592 0000 1246 | DC *-* EXEC ADDR, IF ANY, FOR DSA OCB12460 FFF2 1247 | LXEQA EQU *-W *CURRENTLY BEING PROCESSED OCB12470 0593 0000 1248 | DC *-* SPECIAL ILS INDICATOR--NON-ZE2-2 OCB12480 FFF3 1249 | LX3SW EQU *-W *USE SPECIAL IL SUBROUTINES 2-2 OCB12490 0594 0000 1250 | DC *-* ADDR ASSIGNED TO THE FIRST OCB12500 FFF4 1251 | MLWD1 EQU *-W *WORD OF THE MAINLINE OCB12510 0595 0000 1252 | DC *-* ADDR OF NEXT SECTOR TO BE READ OCB12520 FFF5 1253 | NEXT EQU *-W *INTO DATA BUFFER OCB12530 0596 0000 1254 | DC *-* NO. ENTRY POINTS IN SUBROUTINE OCB12540 FFF6 1255 | NOPTS EQU *-W *CURRENTLY BEING RELOCATED OCB12550 0597 01FE 1256 | DC $ZEND+@HEND-@XEQA+1 ORIGIN FOR DISKZ OCB12560 0598 02B2 1257 | DC $1END+@HEND-@XEQA+1 ORIGIN FOR DISK1 OCB12570 FFF8 1258 | ORGIN EQU *-W OCB12580 0599 03C0 1259 | DC $NEND+@HEND-@XEQA+1 ORIGIN FOR DISKN OCB12590 059A 0000 1260 | DC 0 LOCAL/SOCAL SWITCH--2=OPTION 1, OCB12600 FFFA 1261 | OVLAY EQU *-W *3 = OPTION 2 OCB12610 059B 0000 1262 | DC *-* RELOCATION FACTOR OCB12620 FFFB 1263 | RELOC EQU *-W OCB12630 059C 0000 1264 | DC *-* ADDR OF 1ST WORD OF 1ST OCB12640 FFFC 1265 | RIGHT EQU *-W *ENTRY IN LOAD TABLE OCB12650 059D 0000 1266 | DC *-* AVAILABLE CORE AFTER ALLOWING OCB12660 FFFD 1267 | RLCOR EQU *-W *FOR TRANSFER VECTOR, COMMON OCB12670 059E 0000 1268 | DC *-* RELATIVE ENTRY ADDR OF PROGRAM OCB12680 FFFE 1269 | RLXEQ EQU *-W *CURRENTLY BEING RELOCATED OCB12690 059F 0000 1270 | DC *-* ADDR OF SECTOR NOW OCB12700 FFFF 1271 | SADDR EQU *-W *IN THE DATA BUFFER OCB12710 05A0 0000 1272 | DC *-* NO. OF ENTRIES IN SOCAL TV,I.E., OCB12720 0000 1273 | SCLCT EQU *-W *NO. OF FUNCTION SUBPROGRAMS OCB12730 05A1 0000 1274 | DC *-* ADDR OF 1ST SCTR OF LOCAL/SOCAL OCB12740 0001 1275 | SCTAD EQU *-W *CURRENTLY BEING PROCESSED OCB12750 05A2 0000 1276 | DC *-* SAME FOR LOGICAL DRIVE 1 OCB12760 05A3 0000 1277 | DC *-* SAME FOR LOGICAL DRIVE 2 OCB12770 05A4 0000 1278 | DC *-* SAME FOR LOGICAL DRIVE 3 OCB12780 05A5 0000 1279 | DC *-* SAME FOR LOGICAL DRIVE 4 OCB12790 05A6 0000 1280 | DC *-* NO. OF CURR CIB SCTR IN CIB BFR OCB12800 0006 1281 | SCTRX EQU *-W *BFR, NO. = 0, 1, ..., 13 OCB12810 05A7 000E 1282 | DC 14 WORD COUNT OF A NORMAL OCB12820 0007 1283 | SHORT EQU *-W *LINE OF THE FILE MAP OCB12830 05A8 063F 1284 | DC 1599 HIGHEST SCTR ADDR ALLOWABLE OCB12840 0008 1285 | SLIMT EQU *-W OCB12850 05A9 0000 1286 | DC *-* CORE ADDR OF THE SOCAL AREA OCB12860 0009 1287 | SOCAR EQU *-W OCB12870 05AA 0000 1288 | DC *-* ADDR OF THE FUNCTION ENTRY 2-2 OCB12880 000A 1289 | STVAD EQU *-W *POINT IN LOCAL/SOCAL FLIPPER2-2 OCB12890 05AB 0000 1290 | DC *-* WD CNT OF SUBROUTINE CURRENTLY OCB12900 000B 1291 | SUBWC EQU *-W *BEING RELOCATED OCB12910 05AC 0000 1292 | DC *-* WD CNT OF SOCAL 1 OCB12920 000C 1293 | S1WCT EQU *-W OCB12930 05AD 0000 1294 | DC *-* WD CNT OF SOCAL 2 OCB12940 05AE 0000 1295 | DC *-* WD CNT OF SOCAL 3 OCB12950 05AF 0000 1296 | DC *-* SCTR ADDR OF SOCAL 1 OCB12960 000F 1297 | S1SAD EQU *-W OCB12970 05B0 0000 1298 | DC *-* SCTR ADDR OF SOCAL 2 OCB12980 05B1 0000 1299 | DC *-* SCTR ADDR OF SOCAL 3 OCB12990 05B2 0000 1300 | DC *-* TRANSFER VECTOR POINTER OCB13000 0012 1301 | TVADR EQU *-W OCB13010 05B3 0000 1302 | DC *-* ADDR OF 1ST WORD OF LAST (LH) OCB13020 0013 1303 | TVEND EQU *-W *ENTRY IN LIBF TV OCB13030 05B4 0000 1304 | DC *-* CALL TV ADDR OF CALL JUST OCB13040 0014 1305 | TVPTR EQU *-W *ENTERED IN LOAD TABLE OCB13050 05B5 0000 1306 | DC *-* WASTEBASKET OCB13060 0015 1307 | WASTE EQU *-W OCB13070 05B6 0000 1308 | DC *-* ADDR OF CURRENT SCTR ADDR IN OCB13080 0016 1309 | WSADR EQU *-W *WORKING STORAGE OCB13090 05B7 0000 1310 | DC *-* ADDR IN LET SEARCH BFR OF OCB13100 0017 1311 | XR1LS EQU *-W *NAME OF DESIRED PROGRAM OCB13110 05B8 0000 1312 | IND05 DC *-* STORE AREA TO DENOTE 2-11 OCB13120 1313 | * *ISSUING OF R05 ERROR 2-11 OCB13130 05B9 1314 | BSS /05BB-* PATCH AREA 2-11 OCB13140 CORE LOAD BUILDER, PHASE 1 1316 | *************************************************** OCB13160 1317 | *STATUS - VERSION 2, MODIFICATIOON LEVEL 12 * OCB13170 1318 | * * OCB13180 1319 | *FUNCTION/OPERATION- * OCB13190 1320 | * * PHASE 1 PERFORMS THE INITIALIZATION AND THEN* OCB13200 1321 | * OVERLAYS ITSELF WITH PHASE 2. IT CONSISTS OF* OCB13210 1322 | * THE SUBROUTINES, * OCB13220 1323 | * * IN000-INITIALIZE THE CORE LOAD BUILDER, * OCB13230 1324 | * PROCESS THE MAINLINE PROGRAM HEADER AND * OCB13240 1325 | * READ LOCALS AND NOCALS FROM SCRA. * OCB13250 1326 | * * LN000-ENTER A LOCAL NOCAL NAME TO THE * OCB13260 1327 | * LOAD TABLE. * OCB13270 1328 | * * OCB13280 1329 | *ENTRY POINTS- * OCB13290 1330 | * * IN000-THE ONLY ENTRY POINT * OCB13300 1331 | * BSI L IN000 * OCB13310 1332 | * * OCB13320 1333 | *INPUT- * OCB13330 1334 | * * DCOM * OCB13340 1335 | * * MAINLINE HEADER RECORD * OCB13350 1336 | * * SCRA * OCB13360 1337 | * * LOCAL/NOCAL HEADER * OCB13370 1338 | * * OCB13380 1339 | *OUTPUT- * OCB13390 1340 | * * INITIALIZED SWITCHES, ETC. * OCB13400 1341 | * * OCB13410 1342 | *EXTERNAL REFERENCES- * OCB13420 1343 | * * SUBROUTINES- * OCB13430 1344 | * * BT000-ENTER NAME IN LOAD TABLE * OCB13440 1345 | * * GP000-GET/PUT SUBROUTINE * OCB13450 1346 | * * LK000-FETCH A PHASE * OCB13460 1347 | * * MC000-MASTER CONTROL SUBROUTINE * OCB13470 1348 | * * NW000-FETCH WORD FROM DATA BUFFER * OCB13480 1349 | * * LS000-FIND A PROGRAM IN LET/FLET * OCB13490 1350 | * * PM000-FLIPPER FOR PRINTING MESSAGE * OCB13500 1351 | * * RH000-READ PROGRAM HEADER TO DATA BUFFER * OCB13510 1352 | * * TL000-PRINT ERROR MESSAGE(S), EXIT * OCB13520 1353 | * * COMMA/DCOM * OCB13530 1354 | * * $CIBA * OCB13540 1355 | * * $CORE * OCB13550 1356 | * * $DADR * OCB13560 1357 | * * $DCDE * OCB13570 1358 | * * $DREQ * OCB13580 1359 | * * $FPAD * OCB13590 1360 | * * $IBT4 * OCB13600 1361 | * * $LEV1 * OCB13610 1362 | * * $WSDR * OCB13620 1363 | * * #CBSW * OCB13630 1364 | * * #CIND * OCB13640 1365 | * * #FMAT * OCB13650 1366 | * * #LCNT * OCB13660 1367 | * * #MPSW * OCB13670 1368 | * * #NCNT * OCB13680 1369 | * * #SCRA * OCB13690 1370 | * * #WSCT * OCB13700 1371 | * * OCB13710 1372 | *EXITS- * OCB13720 1373 | * * NORMAL- * OCB13730 1374 | * * TO MASTER CONTROL SUBROUTINE IN PHASE 2 * OCB13740 1375 | * LDX L1 MC000 ENTRY POINT TO PHASE 2 * OCB13750 1376 | * STX L1 LK000 SIMULATE A BSI TO LK000 * OCB13760 1377 | * BSC L LK000 FETCH PHASE 2 AND BRANCH * OCB13770 1378 | * * ERROR * OCB13780 1379 | * * TO SUBROUTINE TL000 TO PRINT * OCB13790 1380 | * MESSAGE(S) AND EXIT FROM CLB. * OCB13800 1381 | * * OCB13810 1382 | *TABLES/WORK AREAS- * OCB13820 1383 | * * RCOM * OCB13830 1384 | * * LOAD TABLE * OCB13840 1385 | * * OCB13850 1386 | *NOTES-N/A * OCB13860 1387 | *************************************************** OCB13870 CORE LOAD BUILDER, PHASE 1 1389 | * MASTER CONTROL SUBROUTINE, OVERLAY 1 OCB13890 1390 | * OCB13900 05BC 1391 | BSS E 2 OCB13910 1392 | * OCB13920 1393 | * INITIALIZATION OCB13930 1394 | * OCB13940 05BE 0000 1395 | IN000 DC *-* ENTRY POINT OCB13950 05BF 1000 1396 | NOP OCB13960 05C0 6500 0078 1397 | LDX L1 @CLB0 OCB13970 05C2 6D00 0078 1398 | STX L1 $PHSE OCB13980 05C4 6700 05A0 1399 | LDX L3 X3 POINT XR3 AT WORK AREA OCB13990 05C6 6500 0BE8 1400 | LDX L1 BUFLO+6 OCB14000 05C8 6D00 0552 1401 | STX L1 IBT4X+X3 INITIALIZE OCB14010 05CA 6D00 0555 1402 | STX L1 IBT4X+3+X3 *FOR OCB14020 05CC 6D00 0009 1403 | STX L1 $LEV1 *PRINTING OCB14030 05CE C400 066E 1404 | LD L IN925 COMPUTE 2-2 OCB14040 05D0 1801 1405 | SRA 1 *INITIAL OCB14050 05D1 9400 066F 1406 | S L IN930 *TV ENTRIES 2-2 OCB14060 05D3 D3AA 1407 | STO 3 DISPL OCB14070 05D4 C400 007A 1408 | LD L $WSDR OCB14080 05D6 8400 0672 1409 | A L IN950 2-2 OCB14090 05D8 D316 1410 | STO 3 WSADR OCB14100 05D9 C400 066D 1411 | LD L IN920 2-2 OCB14110 05DB D400 00D4 1412 | STO L $IBT4 SET UP ADDR OF IBT04 OCB14120 05DD C400 0010 1413 | LD L $DADR FETCH MAINLINE BLOCK ADDR OCB14130 05DF D3A1 1414 | STO 3 BYADR OCB14140 05E0 C400 0077 1415 | LD L $DCDE FETCH DRIVE CODE OF CART OCB14150 05E2 D3C0 1416 | STO 3 LDCDE *CONTAINING MAINLINE OCB14160 05E3 C400 0012 1417 | LD L $DREQ OCB14170 05E5 D400 048A 1418 | STO L @DREQ OCB14180 05E7 C400 0005 1419 | LD L $CIBA OCB14190 05E9 18D0 1420 | RTE 16 OCB14200 05EA C397 1421 | LD 3 K320 OCB14210 05EB DC00 0AA0 1422 | STD L BUFLS OCB14220 05ED DC00 0BE2 1423 | STD L BUFLO OCB14230 05EF DC00 0D24 1424 | STD L BUFCI OCB14240 1425 | * 3 INSTRUCTIONS MOVED 2-2 OCB14250 05F1 C400 0671 1426 | LD L IN940 PUT A NO. IN SCTRX THAT IS OCB14260 05F3 D306 1427 | STO 3 SCTRX *OUTSIDE ITS NORMAL RANGE OCB14270 05F4 C38D 1428 | LD 3 K0 INITIALIZE SO THAT LET/FLET OCB14280 05F5 D3B6 1429 | STO 3 IGNOR *SEARCH BEGINS ON DRIVE 0 OCB14290 05F6 C399 1430 | LD 3 K8000 SET MODE SWITCH TO OCB14300 05F7 D3E1 1431 | STO 3 LSW09 *INDICATE IN-CORE MODE OCB14310 05F8 D3DA 1432 | STO 3 LSW02 SET TO PRINT FILES HEADING OCB14320 05F9 6680 0012 1433 | LDX I2 $DREQ OCB14330 05FB C600 0598 1434 | LD L2 ORGIN+X3 OCB14340 05FD 9400 048C 1435 | S L @HWCT OCB14350 05FF 938F 1436 | S 3 K2 OCB14360 0600 D3A5 1437 | STO 3 CILCA OCB14370 1438 | * OCB14380 1439 | * FETCH DCOM AND EXTRACT WHAT IS OCB14390 1440 | * NEEDED BY THE CORE LOAD BUILDER OCB14400 1441 | * OCB14410 0601 C06A 1442 | LD IN915 FETCH ADDR OF DCOM OCB14420 0602 D400 0AA1 1443 | STO L BUFLS+1 STORE DCOM SCTR ADDR OCB14430 0604 C3D7 1444 | LD 3 LSBUF OCB14440 0605 1890 1445 | SRT 16 OCB14450 0606 4400 0418 1446 | BSI L GP000 FETCH DCOM OCB14460 0608 6500 0AA2 1447 | LDX L1 BUFLS+2 OCB14470 060A 6600 00F2 1448 | LDX L2 DZ000 2-2 OCB14480 060C 6E00 04AB 1449 | STX L2 DKISS FLAG DISK I/O 2-2 OCB14490 060E C120 1450 | IN006 LD 1 #X3SW 2-2 OCB14500 060F D3F3 1451 | STO 3 LX3SW 2-2 OCB14510 0610 C107 1452 | LD 1 #FCNT OCB14520 0611 D3CA 1453 | STO 3 LFCNT SAVE *FILES SWITCH OCB14530 0612 C10A 1454 | LD 1 #CBSW OCB14540 0613 D3BF 1455 | STO 3 LCBSW SAVE CLB SWITCH OCB14550 0614 C10C 1456 | LD 1 #MPSW OCB14560 0615 D3CE 1457 | STO 3 LMPSW SAVE MAP SWITCH OCB14570 0616 C10B 1458 | LD 1 #LCNT OCB14580 0617 D3CC 1459 | STO 3 LLCNT OCB14590 0618 C11F 1460 | LD 1 #LOSW 2-2 OCB14600 0619 D3CD 1461 | STO 3 LLOSW SAVE LOCAL SWITCH 2-2 OCB14610 061A C10F 1462 | LD 1 #NCNT OCB14620 061B D3CF 1463 | STO 3 LNCNT OCB14630 061C C11E 1464 | LD 1 #GCNT 2G2 OCB14640 061D D400 0063 1465 | STO L $GCOM 2G2 OCB14650 061F C121 1466 | LD 1 #ECNT 2-4 OCB14660 0620 D057 1467 | STO IN975 SAVE NO. OF EQUAT RCDS 2-4 OCB14670 0621 C141 1468 | LD 1 #SCRA OCB14680 0622 D3D8 1469 | STO 3 LSCRA SAVE ADDR OF SCRA OCB14690 0623 C137 1470 | LD 1 #CIDN SAVE OCB14700 0624 D3C1 1471 | STO 3 LCIDN *CARTRIDGE OCB14710 0625 C138 1472 | LD 1 #CIDN+1 *ID NOS. OCB14720 0626 D3C2 1473 | STO 3 LCIDN+1 *FOR OCB14730 0627 C139 1474 | LD 1 #CIDN+2 *CARTRIDGES OCB14740 0628 D3C3 1475 | STO 3 LCIDN+2 *CURRENTLY OCB14750 0629 C13A 1476 | LD 1 #CIDN+3 *MOUNTED OCB14760 062A D3C4 1477 | STO 3 LCIDN+3 *ON OCB14770 062B C13B 1478 | LD 1 #CIDN+4 *THE OCB14780 062C D3C5 1479 | STO 3 LCIDN+4 *SYSTEM OCB14790 062D C400 0077 1480 | LD L $DCDE LEFT-JUSTIFY DR CODE FOR2-2 OCB14800 062F 180C 1481 | SRA 12 *DRIVE CONTAINING MAINLN2-2 OCB14810 0630 D315 1482 | STO 3 WASTE 2-2 OCB14820 0631 6680 05B5 1483 | LDX I2 WASTE+X3 DRIVE CODE TO XR2 2-2 OCB14830 0633 C400 0010 1484 | LD L $DADR CONVERT DB ADDR OF MAINL2-2 OCB14840 0635 1804 1485 | SRA 4 *TO A SECTOR ADDR 2-2 OCB14850 1486 | * INSTRUCTION REMOVED 2-2 OCB14860 0636 EC00 0077 1487 | OR L $DCDE OCB14870 0638 9600 0095 1488 | S L2 $FPAD OCB14880 063A 4C20 0647 1489 | BSC L IN015,Z BR IF MAINLINE NOT IN WS2-2 OCB14890 1490 | * 2-2 OCB14900 1491 | * CHECK TO SEE IF DSF PROGRAM IS IN WORKING STRG2-2 OCB14910 1492 | * 2-2 OCB14920 063C 7580 05B5 1493 | MDX I1 WASTE+X3 PT TO MEMBER OF QUINTPLS2-2 OCB14930 063E C146 1494 | LD 1 #FMAT 2-2 OCB14940 063F 4C20 0644 1495 | BSC L IN010,Z BR IF NO DSF PROGRAM IN 2-2 OCB14950 0641 C155 1496 | LD 1 #WSCT 2-2 OCB14960 0642 4C30 0647 1497 | BSC L IN015,Z- BR IF NO PROGRAM IN WS 2-2 OCB14970 0644 6203 1498 | IN010 LDX 2 MSG03 2-2 OCB14980 0645 4400 0407 1499 | BSI L TL000 PRINT ERROR MESSAGE, EXT2-2 OCB14990 0647 C02D 1500 | IN015 LD IN960 2-2 OCB15000 0648 938E 1501 | S 3 K1 SET CIB LIMIT FOR A 2-2 OCB15010 0649 D3A4 1502 | STO 3 CIBLM *4K SYSTEM 2-2 OCB15020 064A C028 1503 | LD IN954 SET LOAD TABLE LIMITS 2-2 OCB15030 064B D3FC 1504 | STO 3 RIGHT *FOR A 2-2 OCB15040 064C D3C8 1505 | STO 3 LEFTX *4 K SYSTEM 2-2 OCB15050 064D C400 000E 1506 | LD L $CORE 2-2 OCB15060 064F 9025 1507 | S IN960 2-2 OCB15070 0650 4C18 0664 1508 | BSC L IN020,+- BR IF IT IS A 4K SYSTEM 2-2 OCB15080 0652 C021 1509 | LD IN955 SET LOAD TABLE LIMITS 2-2 OCB15090 0653 D3FC 1510 | STO 3 RIGHT *FOR A SYSTEM 2-2 OCB15100 0654 D3C8 1511 | STO 3 LEFTX *LAGER THAN 4 K 2-2 OCB15110 0655 C3A4 1512 | LD 3 CIBLM 2-2 OCB15120 0656 801F 1513 | A IN965 SET CIB LIMIT FOR A 2-2 OCB15130 0657 D3A4 1514 | STO 3 CIBLM *SYSTEM LARGER THAN 4K 2-2 OCB15140 0658 C400 0005 1515 | LD L $CIBA COMPUTE CIB SCTR ADDR ON2-2 OCB15150 065A 801C 1516 | A IN970 *WHICH TO SAVE HIGH COMM2-2 OCB15160 065B 18D0 1517 | RTE 16 2-2 OCB15170 065C C019 1518 | LD IN965 FETCH WORD COUNT 2-2 OCB15180 065D DC00 0FFE 1519 | STD L @MCOR-2 WC ,SCTR ADDR TO IO AREA2-2 OCB15190 065F C0FE 1520 | LD *-2 2-2 OCB15200 0660 18D0 1521 | RTE 16 2-2 OCB15210 0661 C38E 1522 | LD 3 K1 2-2 OCB15220 0662 4400 0418 1523 | BSI L GP000 SAVE HIGH COMMON 2-2 OCB15230 1524 | * 7 INSTRUCTIONS REMOVED 2-2 OCB15240 1525 | * OCB15250 1526 | * FETCH AND PROCESS THE MAINLINE HEADER OCB15260 1527 | * OCB15270 0664 4400 0266 1528 | IN020 BSI L RH000 FETCH MAINLINE HEADER OCB15280 0666 6580 0559 1529 | LDX I1 INDEX+X3 OCB15290 0668 C909 1530 | LDD 1 @NAME OCB15300 0669 1082 1531 | SLT 2 OCB15310 066A DB80 1532 | STD 3 LNAME SAVE NAME OF MAINLINE OCB15320 066B 700D 1533 | MDX IN060 BR AROUND CONSTANTS OCB15330 1534 | * OCB15340 1535 | * CONSTANTS AND WORK AREAS OCB15350 1536 | * OCB15360 066C 0001 1537 | IN915 DC @DCOM SCTR ADDR OF DCOM OCB15370 066D 054D 1538 | IN920 DC IBT04-5 ADDR OF IBT04 MINUS 1 OCB15380 066E 00FF 1539 | IN925 DC @MXLB*@LBEN MAX WD CNT OF LIBF TV OCB15390 066F 0008 1540 | IN930 DC 3*@LBEN-1 WD CNT OF 3 ENTRIES MINUS 1 OCB15400 0670 0007 1541 | IN935 DC 2*@LBEN+1 WD CNT OF 2 ENTRIES PLUS 1 OCB15410 0671 0011 1542 | IN940 DC @SCIB+1 1+NO. SCTRS IN THE CIB OCB15420 0672 05A1 1543 | IN950 DC SCTAD+X3 OCB15430 0673 0FF6 1544 | IN954 DC @MCOR-2*@LTEN-2 2-2 OCB15440 0674 13B6 1545 | IN955 DC @MCOR-2-2*@LTEN+320*@HCIB 2-2 OCB15450 0675 1000 1546 | IN960 DC @MCOR MINIMUM CORE SUPPORTED 2-2 OCB15460 0676 03C0 1547 | IN965 DC 320*@HCIB HIGH COMMON WORD COUNT 2-2 OCB15470 0677 000D 1548 | IN970 DC @SCIB-@HCIB CIB SCTR FOR HIGH COMM2-2 OCB15480 0678 0000 1549 | IN975 DC *-* NO. WDS (+1) IN EQUATE TABLE 2-4 OCB15490 1550 | * OCB15500 1551 | * FETCH NAME OF MAINLINE FROM PROGRAM HEADER OCB15510 1552 | * OCB15520 0679 C10A 1553 | IN060 LD 1 @NAME+1 OCB15530 067A 1890 1554 | SRT 16 OCB15540 067B C109 1555 | LD 1 @NAME OCB15550 067C 1082 1556 | SLT 2 OCB15560 067D DB80 1557 | STD 3 LNAME SAVE NAME OF ML OCB15570 067E C102 1558 | LD 1 @TYPE OCB15580 067F 1808 1559 | SRA 8 OCB15590 0680 D3F1 1560 | STO 3 LTYPE SAVE PROGRAM TYPE (1 OR 2) OCB15600 0681 C102 1561 | LD 1 @PREC OCB15610 0682 1008 1562 | SLA 8 OCB15620 0683 D3D5 1563 | STO 3 LPREC SAVE PRECISION OCB15630 0684 C108 1564 | LD 1 @FORT OCB15640 0685 D3CB 1565 | STO 3 LFORT SAVE FORTRAN FLAG OCB15650 0686 1008 1566 | SLA 8 OCB15660 0687 1808 1567 | SRA 8 OCB15670 0688 D400 048B 1568 | STO L @FILE SAVE NO. FILES DEFINED OCB15680 068A 4C20 068E 1569 | BSC L IN160,Z BRANCH IF THERE ARE FILES OCB15690 068C 6C00 057E 1570 | STX L0 LSW06+X3 SET DEFINE FILE SWITCH OCB15700 1571 | * OCB15710 1572 | * PROCESS MAINLINE HEADER INFORMATION OCB15720 1573 | * OCB15730 068E C104 1574 | IN160 LD 1 @COMN OCB15740 068F D400 0489 1575 | STO L @CMON OCB15750 0691 C3F1 1576 | LD 3 LTYPE OCB15760 0692 938E 1577 | S 3 K1 OCB15770 0693 6680 0012 1578 | LDX I2 $DREQ DISK CODE TO XR2 OCB15780 0695 4C28 06F0 1579 | BSC L IN300,Z+ BR IF TYPE LESS THAN 1 OCB15790 0697 4C18 06EB 1580 | BSC L IN270,+- BR IF TYPE=1,I.E.,ML ABS OCB15800 0699 938E 1581 | S 3 K1 OCB15810 069A 4C20 06F0 1582 | BSC L IN300,Z BR IF TYPE GREATER THAN 2 OCB15820 069C C600 0598 1583 | LD L2 ORGIN+X3 OCB15830 069E D3FB 1584 | STO 3 RELOC SET RELOCATION FACTOR OCB15840 069F D3F4 1585 | STO 3 MLWD1 OCB15850 06A0 810B 1586 | A 1 @ENTY OCB15860 06A1 D400 0488 1587 | STO L @XEQA SAVE EXECUTION ADDR OCB15870 06A3 D386 1588 | STO 3 RNAME OCB15880 06A4 9400 048C 1589 | S L @HWCT OCB15890 06A6 910B 1590 | S 1 @ENTY OCB15900 06A7 D400 048E 1591 | STO L @LDAD STORE LOADING ADDRESS OCB15910 06A9 C400 0012 1592 | LD L $DREQ OCB15920 06AB 4C10 06B1 1593 | BSC L IN190,- BR UNLESS DISKZ UTILIZED OCB15930 06AD C400 048E 1594 | LD L @LDAD OCB15940 06AF 4C04 06B6 1595 | BSC L IN200,E BR IF LOAD ADDR IS ODD OCB15950 06B1 C386 1596 | IN190 LD 3 RNAME OCB15960 06B2 9600 0598 1597 | S L2 ORGIN+X3 BRANCH IF EXECUTION ADDRESS OCB15970 06B4 4C10 06B9 1598 | BSC L IN210,- *IS LEGAL OCB15980 06B6 622E 1599 | IN200 LDX 2 MSG46 CORE LOAD EXEC ADDR TOO LOW OCB15990 06B7 4400 0407 1600 | BSI L TL000 PRINT MESSAGE R46 AND EXIT OCB16000 1601 | * OCB16010 1602 | * INITIALIZE OCB16020 1603 | * OCB16030 06B9 C400 000E 1604 | IN210 LD L $CORE COMPUTE RIGHTMOST ADDRESS OCB16040 06BB D400 04A3 1605 | STO L @CORE OCB16050 06BD 9400 0489 1606 | S L @CMON *OF LIBF TV OCB16060 06BF 90B0 1607 | S IN935 ACCOUNT FOR FAC,IND TV ENTS OCB16070 06C0 D3FD 1608 | STO 3 RLCOR SET AVAILABLE CORE OCB16080 06C1 D3A2 1609 | STO 3 CALTV SET CALL TV ADDR OCB16090 06C2 C38E 1610 | LD 3 K1 OCB16100 06C3 D400 0495 1611 | STO L @ITVX+2 ASSURE THAT ILS02 PROCESSED OCB16110 06C5 D400 0497 1612 | STO L @ITVX+4 ASSURE THAT ILS04 PROCESSED OCB16120 1613 | * 2-4 OCB16130 1614 | * PROCESS *EQUAT ENTRIES 2-4 OCB16140 1615 | * 2-4 OCB16150 06C7 C0B0 1616 | LD IN975 2-4 OCB16160 06C8 4430 06F5 1617 | BSI L EQ000,Z- BR IF THERE ARE ENTRIES 2-4 OCB16170 1618 | * 2G2 OCB16180 1619 | * CHECK GSP INDICATOR. IF ON PROCESS G2250 REC 2G2 OCB16190 1620 | * 2G2 OCB16200 06CA C400 0063 1621 | LD L $GCOM 2G2 OCB16210 06CC 4430 07FF 1622 | BSI L GR000,Z- BR IF INDICATOR ON 2G2 OCB16220 1623 | * 2G2 OCB16230 1624 | * OCB16240 1625 | * PROCESS *LOCAL AND *NOCAL RECORDS OCB16250 1626 | * OCB16260 06CE 7400 056C 1627 | MDX L LLCNT+X3,0 SKIP IF NO LOCALS OCB16270 06D0 7002 1628 | MDX *+2 BR TO PROCESS *LOCAL/*NOCAL OCB16280 06D1 7400 056F 1629 | MDX L LNCNT+X3,0 SKIP IF NO NOCALS OCB16290 06D3 4056 1630 | BSI LN000 BR TO PROCESS *LOCAL/*NOCAL OCB16300 06D4 6105 1631 | LDX 1 @MXDR LOAD NUMBER OF DRIVES OCB16310 06D5 C500 0094 1632 | IN250 LD L1 $FPAD-1 OCB16320 06D7 D500 05A0 1633 | STO L1 SCTAD+X3-1 OCB16330 06D9 71FF 1634 | MDX 1 -1 DECREMENT DRIVE COUNT OCB16340 06DA 70FA 1635 | MDX IN250 BRANCH IF NOT ZERO OCB16350 06DB 6580 007A 1636 | LDX I1 $WSDR OCB16360 06DD C500 0095 1637 | LD L1 $FPAD OCB16370 06DF D3B0 1638 | STO 3 FSCTR OCB16380 06E0 C400 0005 1639 | LD L $CIBA INITIALIZE SECTOR ADDR IN OCB16390 06E2 D400 0D25 1640 | STO L BUFCI+1 *CIB BUFFER OCB16400 06E4 6500 05BE 1641 | LDX L1 MC000 ENTRY POINT TO PHASE 2 OCB16410 06E6 6D00 0380 1642 | STX L1 LK000 SIMULATE A BSI TO LK000 OCB16420 06E8 6179 1643 | LDX 1 @CLB2 OCB16430 06E9 4C00 0381 1644 | BSC L LK000+1 FETCH PHASE 2 OCB16440 1645 | * OCB16450 1646 | * SET RELOCATION FACTOR AND EXEC ADDR FOR ML ABS OCB16460 1647 | * OCB16470 06EB D3FB 1648 | IN270 STO 3 RELOC ZERO TO RELOCATION FACTOR OCB16480 06EC C10B 1649 | LD 1 @ENTY OCB16490 06ED D400 0488 1650 | STO L @XEQA OCB16500 06EF 70C9 1651 | MDX IN210 OCB16510 1652 | * OCB16520 1653 | * MAINLINE IS NOT TYPE 1 OR 2 OCB16530 1654 | * OCB16540 06F0 CB80 1655 | IN300 LDD 3 LNAME OCB16550 06F1 DB86 1656 | STD 3 RNAME OCB16560 06F2 6242 1657 | LDX 2 MSG66 OCB16570 06F3 4400 0407 1658 | BSI L TL000 PRINT ERROR MESSAGE, EXIT OCB16580 CORE LOAD BUILDER, PHASE 1 1660 | * FETCH EQUATE TABLE FROM SCRA 2-4 OCB16600 1661 | * 2-4 OCB16610 06F5 0000 1662 | EQ000 DC *-* ENTRY POINT 2-4 OCB16620 06F6 C3D8 1663 | LD 3 LSCRA 2-4 OCB16630 06F7 8031 1664 | A EQ905 2-4 OCB16640 06F8 1004 1665 | SLA 4 SET UP DB ADDR OF EQUATE2-4 OCB16650 06F9 D3A1 1666 | STO 3 BYADR *TABLE 2-4 OCB16660 06FA C3A4 1667 | LD 3 CIBLM FORCE INDEX TO POINT 2-4 OCB16670 06FB D3B9 1668 | STO 3 INDEX *OUTSIDE DATA BUFFER 2-4 OCB16680 06FC C38D 1669 | LD 3 K0 SET SWITCH SO THAT NW TA2-4 OCB16690 06FD D3E6 1670 | STO 3 LSW14 *DB ADDR FROM BYADDR 2-4 OCB16700 06FE D3C0 1671 | STO 3 LDCDE SET DRIVE CODE TO ZERO 2-4 OCB16710 06FF C3D2 1672 | LD 3 LOBUF SET UP TO READ EQUATE 2-4 OCB16720 0700 D3A0 1673 | STO 3 BUFFR *SECTOR INTO DATA BUFFER2-4 OCB16730 0701 4400 0271 1674 | BSI L NW000 FETCH WD CNT OF TABLE 2-4 OCB16740 0703 4C08 071E 1675 | BSC L EQ200,+ BRANCH IF CNT ZERO 2-10 OCB16750 0705 F022 1676 | EOR EQ900 SET TO NEG NO. OF 2-4 OCB16760 0706 838F 1677 | A 3 K2 *WORDS IN EQUAT TABLE 2-4 OCB16770 0707 D3AD 1678 | STO 3 EQCNT 2-4 OCB16780 0708 6580 054D 1679 | LDX I1 EQCNT+X3 COMPLEMENTED WD CNT TO X2-4 OCB16790 070A 4400 0271 1680 | EQ100 BSI L NW000 FETCH A WD OF EQUATE TAB2-4 OCB16800 070C D382 1681 | STO 3 NAME *AND STORE IN CORE 2-4 OCB16810 070D 4400 0271 1682 | BSI L NW000 FETCH 2ND WD OF NAME 2-4 OCB16820 070F 18D0 1683 | RTE 16 2-4 OCB16830 0710 C382 1684 | LD 3 NAME 2-4 OCB16840 0711 DD00 0520 1685 | STD L1 EQTBL SAVE LEFT SIDE OF EQU EN2-4 OCB16850 0713 4400 0271 1686 | BSI L NW000 FETCH 1ST WD OF NAME 2-4 OCB16860 0715 D382 1687 | STO 3 NAME 2-4 OCB16870 0716 4400 0271 1688 | BSI L NW000 FETCH 2ND WD OF NAME 2-4 OCB16880 0718 18D0 1689 | RTE 16 2-4 OCB16890 0719 C382 1690 | LD 3 NAME COMBINE 2-4 OCB16900 071A DD00 0522 1691 | STD L1 EQTBL+2 SAVE RT SIDE OF EQU ENTR2-4 OCB16910 071C 7104 1692 | MDX 1 @EETY SKIP AFTER LAST ENTRY 2-4 OCB16920 071D 70EC 1693 | MDX EQ100 BR TO FETCH NEXT WORD 2-4 OCB16930 071E C400 0010 1694 | EQ200 LD L $DADR RESTORE SEC ADDR TO 2-10 OCB16940 0720 D3A1 1695 | STO 3 BYADR *POINT AT MAIN LINE 2-4 OCB16950 0721 C400 0077 1696 | LD L $DCDE RESTORE DRIVE CODE 2-4 OCB16960 0723 D3C0 1697 | STO 3 LDCDE *OF MAINLINE 2-4 OCB16970 0724 4400 0266 1698 | BSI L RH000 RESTORE MAINLINE HEADER 2-4 OCB16980 1699 | * 2-4 OCB16990 0726 4C80 06F5 1700 | BSC I EQ000 RETURN 2-4 OCB17000 1701 | * 2-4 OCB17010 1702 | * CONSTANTS AND WORK AREAS 2-4 OCB17020 1703 | * 2-4 OCB17030 0728 FFFF 1704 | EQ900 DC /FFFF CONSTANT FOR COMPLEMENTI2-4 OCB17040 0729 0007 1705 | EQ905 DC @EQAD RLTN ADDR OF *EQUAT SCTR2-4 OCB17050 CORE LOAD BUILDER, PHASE 1 1707 | * ENTER ALL LOCAL/NOCAL NAMES IN THE LOAD TABLE OCB17070 1708 | * OCB17080 072A 0000 1709 | LN000 DC *-* OCB17090 072B 6D00 07F4 1710 | STX L1 LN430+1 SAVE XR1 OCB17100 072D C3CC 1711 | LD 3 LLCNT OCB17110 072E 4C18 07D5 1712 | BSC L LN350,+- BR IF NO LOCALS OCB17120 0730 C3D8 1713 | LD 3 LSCRA COMPUTE ADDR OF OCB17130 0731 802E 1714 | A LN905 COMPUTE ADDR OF 2-4 OCB17140 0732 1004 1715 | LN030 SLA 4 *LOCAL/NOCAL SECTOR TO BE OCB17150 0733 D3A1 1716 | STO 3 BYADR *READ NEXT OCB17160 0734 C3A4 1717 | LD 3 CIBLM FORCE INDEX TO POINT 2-2 OCB17170 0735 D3B9 1718 | STO 3 INDEX *OUTSIDE DATA BUFFER OCB17180 0736 C38D 1719 | LD 3 K0 SET SWITCH SO THAT NW TAKES OCB17190 0737 D3E6 1720 | STO 3 LSW14 *DISK BLOCK ADDR FROM BYADR OCB17200 0738 D3C0 1721 | STO 3 LDCDE SET DR CODE TO ZERO 2-2 OCB17210 0739 C3D2 1722 | LD 3 LOBUF SET UP TO READ LOCAL/NOCAL OCB17220 073A D3A0 1723 | STO 3 BUFFR *SECTOR INTO DATA BUFFER OCB17230 073B 4400 0271 1724 | LN050 BSI L NW000 FETCH BLOCK WORD COUNT OCB17240 073D D023 1725 | STO LN910 SAVE WORD BLOCK COUNT. 2-11 OCB17250 073E 4C10 0742 1726 | BSC L LN070,- BR. IF POS. WORD COUNT 2-11 OCB17260 0740 1001 1727 | SLA 1 CLEAR SIGN BIT OCB17270 0741 1801 1728 | SRA 1 OCB17280 0742 4C18 07D5 1729 | LN070 BSC L LN350,+- BR IF WORD COUNT IS ZERO OCB17290 0744 D01A 1730 | STO LN900 SAVE POSITIVE WORD COUNT OCB17300 0745 4400 0271 1731 | BSI L NW000 FETCH AND STORE 1ST WORD OCB17310 0747 D382 1732 | STO 3 NAME *OF MAINLINE NAME OCB17320 0748 4400 0271 1733 | BSI L NW000 FETCH AND STORE 2ND WORD OCB17330 074A D383 1734 | STO 3 NAME+1 *OF MAINLINE NAME OCB17340 074B CB82 1735 | LDD 3 NAME OCB17350 074C 1082 1736 | SLT 2 OCB17360 074D 9B80 1737 | SD 3 LNAME OCB17370 074E 6580 075F 1738 | LDX I1 LN900 BLOCK WORD COUNT MINUS 3 OCB17380 0750 71FD 1739 | MDX 1 -3 OCB17390 0751 1000 1740 | NOP MAY SKIP 2-6 OCB17400 0752 4C20 0757 1741 | BSC L LN090,Z BR ON NO MATCH OF NAMES OCB17410 0754 18D0 1742 | RTE 16 OCB17420 0755 4C18 076D 1743 | BSC L LN140,+- BR IF NAME MATCHES ML NAME OCB17430 0757 C009 1744 | LN090 LD LN910 BRANCH IF CURRENT BLOCK OCB17440 0758 4C28 07D5 1745 | BSC L LN350,Z+ *IS LAST BLOCK OCB17450 075A 4400 0271 1746 | LN100 BSI L NW000 PASS OVER ALL LOCAL/NOCAL OCB17460 075C 71FF 1747 | MDX 1 -1 *NAMES IN CURRENT BLOCK, OCB17470 075D 70FC 1748 | MDX LN100 *SKIPPING AFTER FETCHING OCB17480 075E 70DC 1749 | MDX LN050 *NEXT BLOCK WORD COUNT OCB17490 1750 | * OCB17500 1751 | * CONSTANTS AND WORK AREAS OCB17510 1752 | * OCB17520 075F 0000 1753 | LN900 DC *-* WD CNT FOR CURR BLOCK (W/O SIGN) OCB17530 0760 0000 1754 | LN905 DC @LOAD RLTV ADDR OF *LOCAL SCTR2-4 OCB17540 0761 0000 1755 | LN910 DC *-* WD CNT FOR CURR BLOCK (W/ SIGN) OCB17550 0762 0002 1756 | LN915 DC @NOAD RLTV ADDR OF *NOCAL SCTR2-4 OCB17560 0763 8000 1757 | LN920 DC /8000 SWITCH--/8000=LOCAL, ZERO=NOCAL OCB17570 0764 0002 1758 | LN930 DC @TYPE RELATIVE ADDR OF PROG TYPE OCB17580 0765 0000 1759 | LN940 DC 0 ABORT SWITCH--NON-ZERO = ABORT OCB17590 0766 0000 1760 | LN950 DC *-* POINTER IN DATA BUFFER FOR LOCAL OCB17600 0767 0000 1761 | LN960 DC *-* DISK BLOCK ADDR OF LOCAL OCB17610 0768 0000 1762 | LN970 DC *-* ADDR OF NEXT SCTR IN SEQUENCE OCB17620 0769 0BE2 1763 | LN980 DC BUFLO ADDR OF DATA BUFFER OCB17630 076A 0013 1764 | LN990 DC /13 TYPE 3, SUBTYPE 1 OCB17640 076B 0035 1765 | DC /35 TYPE 5, SUBTYPE 3 OCB17650 076C 0084 1766 | DC /84 TYPE 4, SUBTYPE 8 OCB17660 1767 | * OCB17670 1768 | * OCB17680 1769 | * OCB17690 076D C0F5 1770 | LN140 LD LN920 OCB17700 076E 4C10 0773 1771 | BSC L LN150,- BR IF PROCESSING NOCALS OCB17710 0770 C38E 1772 | LD 3 K1 SET LOCAL/SOCAL SW TO OCB17720 0771 D400 04A2 1773 | STO L @OVSW *INDICATE LOCALS OCB17730 0773 4400 0271 1774 | LN150 BSI L NW000 FETCH 1ST WD LOCAL/NOCAL OCB17740 0775 D382 1775 | STO 3 NAME *NAME OCB17750 0776 4400 0271 1776 | BSI L NW000 FETCH AND SAVE 2ND WORD OF OCB17760 0778 D383 1777 | STO 3 NAME+1 *LOCAL/NOCAL NAME OCB17770 0779 C3B9 1778 | LD 3 INDEX SAVE POINTER FOR LOCAL RECD OCB17780 077A D0EB 1779 | STO LN950 RESTORE POINTER OCB17790 077B C3F5 1780 | LD 3 NEXT SAVE SECTOR ADDRESS OCB17800 077C D0EB 1781 | STO LN970 OCB17810 077D C3A1 1782 | LD 3 BYADR SAVE DISK BLOCK ADDR OCB17820 077E D0E8 1783 | STO LN960 *OF LOCAL RECORD OCB17830 077F 4400 0840 1784 | BSI L ES000 CK FOR EQUAT,SEARCH LET2-10 OCB17840 1785 | * *UPON RETURN, ACC = 212 OCB17850 1786 | * *LET/FLET INDR (LSW22) 212 OCB17860 0781 4C28 07BE 1787 | BSC L LN300,Z+ BR IF NOT IN LET 212 OCB17870 0783 C3AB 1788 | LD 3 DRCDE OCB17880 0784 D3C0 1789 | STO 3 LDCDE OCB17890 0785 C3A4 1790 | LD 3 CIBLM FORCE INDEX TO POINT 2-2 OCB17900 0786 D3B9 1791 | STO 3 INDEX *OUTSIDE DATA BUFFER OCB17910 0787 C38D 1792 | LD 3 K0 SET SWITCH SO THAT NW TAKES OCB17920 0788 D3E6 1793 | STO 3 LSW14 *DISK BLOCK ADDR FROM BYADR OCB17930 0789 C3A3 1794 | LD 3 CIBBF SET UP TO READ HEADER OF OCB17940 078A D3A0 1795 | STO 3 BUFFR *LOCAL INTO CIB BUFFER OCB17950 078B D3D2 1796 | STO 3 LOBUF OCB17960 078C 4400 0271 1797 | BSI L NW000 FETCH LOCAL HEADER RECD OCB17970 078E C0D9 1798 | LD LN970 RESTORE SECTOR ADDRESS OCB17980 078F D3F5 1799 | STO 3 NEXT OCB17990 0790 C0D8 1800 | LD LN980 OCB18000 0791 D3D2 1801 | STO 3 LOBUF OCB18010 1802 | * OCB18020 1803 | * CHECK THAT TYPE IS 3-6, /13, /23, /33, /43,OR /84 OCB18030 1804 | * OCB18040 0792 CB82 1805 | LDD 3 NAME OCB18050 0793 1082 1806 | SLT 2 OCB18060 0794 DB86 1807 | STD 3 RNAME OCB18070 0795 C3B9 1808 | LD 3 INDEX OCB18080 0796 80CD 1809 | A LN930 COMPUTE AND STORE CORE ADDR OCB18090 0797 D001 1810 | STO *+1 *OF TYPE AND SUBTYPE CODES OCB18100 0798 C400 0000 1811 | LD L *-* FETCH TYPE/SUBTYPE CODES OCB18110 079A 1808 1812 | SRA 8 OCB18120 079B D315 1813 | STO 3 WASTE OCB18130 079C 9390 1814 | S 3 K3 BRANCH IF TYPE/SUBTYPE LESS OCB18140 079D 4C28 07B9 1815 | BSC L LN180,Z+ *THAN 03 OCB18150 079F 4C18 07F7 1816 | BSC L LN500,+- BR IF EQUAL TO 03 OCB18160 07A1 9390 1817 | S 3 K3 BRANCH IF TYPE/SUBTYPE OCB18170 07A2 4C18 07FD 1818 | BSC L LN550,+- *EQUAL TO 06 OCB18180 07A4 838E 1819 | A 3 K1 BRANCH IF OCB18190 07A5 4C18 07F7 1820 | BSC L LN500,+- *EQUAL TO 05 OCB18200 07A7 4C28 07FD 1821 | BSC L LN550,Z+ BR IF EQUAL TO 04 OCB18210 07A9 C315 1822 | LD 3 WASTE OCB18220 07AA 90BF 1823 | S LN990 OCB18230 07AB 4820 1824 | BSC Z SKIP IF TYPE/SUBTYPE=/13 OCB18240 07AC 9395 1825 | S 3 K16 OCB18250 07AD 4820 1826 | BSC Z SKIP IF TYPE/SUBTYPE=/23 OCB18260 07AE 9395 1827 | S 3 K16 OCB18270 07AF 4C18 07F7 1828 | BSC L LN500,+- BRANCH IF TYPE/SUBTYPE=/33 OCB18280 07B1 C315 1829 | LD 3 WASTE OCB18290 07B2 90B9 1830 | S LN990+2 OCB18300 07B3 4C18 07FD 1831 | BSC L LN550,+- BRANCH IF TYPE/SUBTYPE=/84 OCB18310 07B5 C315 1832 | LD 3 WASTE OCB18320 07B6 90B4 1833 | S LN990+1 OCB18330 07B7 4C18 07F7 1834 | BSC L LN500,+- BR IF TYPE 35 OCB18340 1835 | * OCB18350 1836 | * PRINT AN ERROR MESSAGE AND SET NON-DUP, NON-XEQAD OCB18360 1837 | * OCB18370 07B9 6211 1838 | LN180 LDX 2 MSG17 OCB18380 07BA C38E 1839 | LD 3 K1 OCB18390 07BB D0A9 1840 | STO LN940 SET ABORT SWITCH OCB18400 07BC 4400 0426 1841 | BSI L PM000 PRINT MESSAGE R17 OCB18410 07BE C0A4 1842 | LN300 LD LN920 OCB18420 07BF 4C10 07C3 1843 | BSC L LN315,- BRANCH IF PROCESSING NOCALS OCB18430 07C1 C38E 1844 | LD 3 K1 SET OVERLAY SWITCH OCB18440 07C2 D3EB 1845 | STO 3 LSW19 *FOR FORTRAN OCB18450 07C3 C400 0766 1846 | LN315 LD L LN950 OCB18460 07C5 D3B9 1847 | STO 3 INDEX OCB18470 07C6 C400 0767 1848 | LD L LN960 RESTORE DISK BLOCK ADDR OCB18480 07C8 D3A1 1849 | STO 3 BYADR OCB18490 07C9 C3D2 1850 | LD 3 LOBUF RESTORE BUFFER ADDRESS OCB18500 07CA D3A0 1851 | STO 3 BUFFR OCB18510 07CB 4400 02CC 1852 | BSI L BT000 ENTER LOCAL/NOCAL IN LD TBL OCB18520 07CD C38D 1853 | LD 3 K0 OCB18530 07CE D3C0 1854 | STO 3 LDCDE OCB18540 07CF 71FE 1855 | MDX 1 -2 SKIP AT END OF BLOCK OCB18550 07D0 70A2 1856 | MDX LN150 BR IF NOT END OF BLOCK OCB18560 07D1 C400 0761 1857 | LD L LN910 BRANCH UNLESS THIS WAS OCB18570 07D3 4C10 073B 1858 | BSC L LN050,- *THE LAST BLOCK OCB18580 07D5 C400 0763 1859 | LN350 LD L LN920 BRANCH IF DONE, I.E., NOCAL OCB18590 07D7 4C10 07E3 1860 | BSC L LN400,- *RECORD IS PROCESSED OCB18600 07D9 C38D 1861 | LD 3 K0 CHANGE SWITCH FROM OCB18610 07DA D400 0763 1862 | STO L LN920 */8000 TO ZERO OCB18620 07DC C3CF 1863 | LD 3 LNCNT OCB18630 07DD 4C18 07E3 1864 | BSC L LN400,+- BRANCH IF NO NOCALS OCB18640 07DF C3D8 1865 | LD 3 LSCRA PREPARE TO FETCH NOCAL OCB18650 07E0 8081 1866 | A LN915 *RECORD 2-4 OCB18660 07E1 4C00 0732 1867 | BSC L LN030 BR TO FETCH NEXT SCTR OCB18670 07E3 C400 0765 1868 | LN400 LD L LN940 OCB18680 07E5 62FF 1869 | LDX 2 -1 OCB18690 07E6 4420 0407 1870 | BSI L TL000,Z BRANCH IF INVALID LOCAL(S) OCB18700 07E8 C400 0010 1871 | LD L $DADR OCB18710 07EA D3A1 1872 | STO 3 BYADR OCB18720 07EB C400 0077 1873 | LD L $DCDE RESTORE DRIVE CODE OCB18730 07ED D3C0 1874 | STO 3 LDCDE *OF MAINLINE OCB18740 07EE C400 0BE3 1875 | LD L BUFLO+1 SAVE ADDR OF SECTOR NOW OCB18750 07F0 D3FF 1876 | STO 3 SADDR *IN DATA BUFFER OCB18760 07F1 4400 0266 1877 | BSI L RH000 RESTORE MAINLINE HEADER OCB18770 07F3 6500 0000 1878 | LN430 LDX L1 *-* OCB18780 07F5 4C80 072A 1879 | BSC I LN000 RETURN OCB18790 07F7 C38D 1880 | LN500 LD 3 K0 FLAG A LIBF OCB18800 07F8 EC00 0763 1881 | LN520 OR L LN920 FLAG NOCAL OR LOCAL OCB18810 07FA EB82 1882 | OR 3 NAME OCB18820 07FB D382 1883 | STO 3 NAME OCB18830 07FC 70C1 1884 | MDX LN300 BR TO CONTINUE PROCESSING OCB18840 07FD C398 1885 | LN550 LD 3 K4000 FLAG A CALL OCB18850 07FE 70F9 1886 | MDX LN520 BR TO FLAG THE NAME OCB18860 CORE LOAD BUILDER,PHASE 1 1888 | * GR SUBROUTINE FOR C.L.B. PHASE 1 2G2 OCB18880 1889 | * 2G2 OCB18890 1890 | * THIS SUBROUTINE ENTERS THE GSP SUPPORT 2G2 OCB18900 1891 | * SUBROUTINE NAMES IN THE LOAD TABLE AS 2G2 OCB18910 1892 | * THE FIRST IN-CORE TYPE SUBROUTINES. 2G2 OCB18920 1893 | * 2G2 OCB18930 1894 | * 2G2 OCB18940 07FF 0000 1895 | GR000 DC *-* ENTRY POINT 2G2 OCB18950 0800 692B 1896 | STX 1 GR060+1 SAVE XR1 2G2 OCB18960 1897 | * 2G2 OCB18970 1898 | * 2G2 OCB18980 1899 | * 2G2 OCB18990 0801 C3D8 1900 | LD 3 LSCRA COMPUTE ADDR OF 2G2 OCB19000 0802 802D 1901 | A GR905 *G2250 SECTOR TO 2-4 OCB19010 0803 1004 1902 | SLA 4 *BE READ NEXT 2G2 OCB19020 0804 D3A1 1903 | STO 3 BYADR 2G2 OCB19030 0805 C38D 1904 | LD 3 K0 SET DRIVE CODE 2G2 OCB19040 0806 D3C0 1905 | STO 3 LDCDE *FOR MASTER 2G2 OCB19050 0807 4400 0266 1906 | BSI L RH000 READ G2250 SECTOR INTO 2G2 OCB19060 1907 | * *DATA BUFFER 2G2 OCB19070 1908 | * 2G2 OCB19080 0809 D025 1909 | GR030 STO GR900 SAVE POSITIVE WORD COUNT2G2 OCB19090 080A 4400 0271 1910 | BSI L NW000 FETCH AND STORE 1ST WORD2G2 OCB19100 080C D382 1911 | STO 3 NAME *OF MAINLINE NAME 2G2 OCB19110 080D 4400 0271 1912 | BSI L NW000 FETCH AND STORE 2ND WORD2G2 OCB19120 080F D383 1913 | STO 3 NAME+1 *OF MAINLINE NAME 2G2 OCB19130 0810 6580 082F 1914 | LDX I1 GR900 RECORD WORD COUNT 2G2 OCB19140 0812 71FD 1915 | MDX 1 -3 DECR. 3 WORDS 2G2 OCB19150 0813 CB82 1916 | LDD 3 NAME 2G2 OCB19160 0814 1082 1917 | SLT 2 2G2 OCB19170 0815 9B80 1918 | SD 3 LNAME 2G2 OCB19180 0816 4C20 081B 1919 | BSC L GR050,Z BR IF NO MATCH 2G2 OCB19190 0818 18D0 1920 | RTE 16 2G2 OCB19200 0819 4818 1921 | BSC +- SKIP IF NAMES NOT THE SA2G2 OCB19210 081A 7016 1922 | MDX GR100 BR IF SAME 2G2 OCB19220 1923 | * 2G2 OCB19230 1924 | * 2G2 OCB19240 081B 4400 0271 1925 | GR050 BSI L NW000 PASS OVER REST OF G2250 2G2 OCB19250 081D 71FF 1926 | MDX 1 -1 *SUBRTN NAMES TO LOOK AT2G2 OCB19260 081E 70FC 1927 | MDX GR050 *NEXT RECORD, IF ANY. 2G2 OCB19270 081F 4400 0271 1928 | BSI L NW000 2G2 OCB19280 0821 4C30 0809 1929 | BSC L GR030,Z- BR IF NEXT REC COUNT POS2G2 OCB19290 1930 | * 2G2 OCB19300 1931 | * 2G2 OCB19310 0823 C400 0010 1932 | GR055 LD L $DADR 2G2 OCB19320 0825 D3A1 1933 | STO 3 BYADR 2G2 OCB19330 0826 C400 0077 1934 | LD L $DCDE 2G2 OCB19340 0828 D3C0 1935 | STO 3 LDCDE 2G2 OCB19350 0829 4400 0266 1936 | BSI L RH000 2G2 OCB19360 082B 6500 0000 1937 | GR060 LDX L1 *-* RESTORE XR1 2G2 OCB19370 082D 4C80 07FF 1938 | BSC I GR000 RETURN 2G2 OCB19380 1939 | * 2G2 OCB19390 1940 | * CONSTANTS 2G2 OCB19400 1941 | * 2G2 OCB19410 082F 0000 1942 | GR900 DC *-* RECORD WORD COUNT 2G2 OCB19420 0830 0006 1943 | GR905 DC @GRAD RLTV ADDR OF *G2250 SCTR2-4 OCB19430 1944 | * 2G2 OCB19440 0831 4400 0271 1945 | GR100 BSI L NW000 FETCH AND STORE 1ST WORD2G2 OCB19450 0833 D382 1946 | STO 3 NAME *OF G2250 SUBRTN 2G2 OCB19460 0834 4400 0271 1947 | BSI L NW000 FETCH AND STORE 2ND WORD2G2 OCB19470 0836 D383 1948 | STO 3 NAME+1 *OF G2250 SUBRTN 2G2 OCB19480 1949 | * 2-9 OCB19490 0837 4008 1950 | BSI ES000 CK FOR EQUAT,SEARCH LET2-10 OCB19500 1951 | * 2G2 OCB19510 0838 C398 1952 | LD 3 K4000 FLAG AS A CALL 2G2 OCB19520 0839 EB82 1953 | OR 3 NAME *THE FIRST WORD (BIT 1) 2G2 OCB19530 083A D382 1954 | STO 3 NAME *OF G2250 SUBRTN NAME 2G2 OCB19540 1955 | * 2G2 OCB19550 1956 | * 2G2 OCB19560 083B 4400 02CC 1957 | BSI L BT000 ENTER G2250 SUBRTN NAME 2G2 OCB19570 1958 | * *IN LOAD TABLE 2G2 OCB19580 1959 | * 2G2 OCB19590 083D 71FE 1960 | MDX 1 -2 DECR WORD COUNT TO 2G2 OCB19600 083E 70F2 1961 | MDX GR100 *FETCH NEXT G2250 SUBRTN2G2 OCB19610 083F 70E3 1962 | MDX GR055 *OR RETURN IF END OF REC2G2 OCB19620 CORE LOAD BUILDER, PHASE 1 1964 | * 2-10 OCB19640 1965 | * SEARCH EQUAT TABLE FOR ROUTINES 2-10 OCB19650 1966 | * AND LOOK UP FINAL NAME IN LET. 2-10 OCB19660 1967 | * 2-10 OCB19670 0840 0000 1968 | ES000 DC *-* ENTRY POINT 2-10 OCB19680 0841 C3AD 1969 | LD 3 EQCNT BRANCH IF 2-10 OCB19690 0842 4C18 0856 1970 | BSC L ES300,+- *NO EQUAT TABLE 2-10 OCB19700 0844 6910 1971 | STX 1 ES200+1 SAVE XR1 2-10 OCB19710 0845 6580 054D 1972 | LDX I1 EQCNT+X3 COMPLEMENTED WD CNT 2-10 OCB19720 0847 CB82 1973 | ES125 LDD 3 NAME COMPARE CURRENT NAME 2-10 OCB19730 0848 9D00 0520 1974 | SD L1 EQTBL *WITH EQUAT TBL ENTRY 2-10 OCB19740 084A 4818 1975 | BSC +- SKIP IF UNEQUAL 2-10 OCB19750 084B 18D0 1976 | RTE 16 CHECK 2ND WD 2-10 OCB19760 084C 4C20 0852 1977 | BSC L ES175,Z BRANCH IF NO MATCH 2-10 OCB19770 084E CD00 0522 1978 | LDD L1 EQTBL+2 REPLACE NAME EQUATED 2-10 OCB19780 0850 DB82 1979 | STD 3 NAME *WITH NEW NAME 2-10 OCB19790 0851 7002 1980 | MDX ES200 2-10 OCB19800 0852 7104 1981 | ES175 MDX 1 @EETY SKIP IF NO MATCH 2-10 OCB19810 0853 70F3 1982 | MDX ES125 LOOP THRU TBL 2-10 OCB19820 0854 6500 0000 1983 | ES200 LDX L1 *-* RESTORE XR1 2-10 OCB19830 0856 C0FF 1984 | ES300 LD *-1 LOAD NEGATIVE NUMBER 212 OCB19840 0857 D3EF 1985 | STO 3 LSW23 SET EQUATE INDICATOR 212 OCB19850 0858 4400 01E4 1986 | BSI L LS000 LOOK UP NAME IN LET 212 OCB19860 1987 | * *UPON RETURN, ACC = 212 OCB19870 1988 | * *LET/FLET INDR (LSW22) 212 OCB19880 1989 | * 2-10 OCB19890 085A 4C80 0840 1990 | BSC I ES000 RETURN 2-10 OCB19900 1991 | * 2-10 OCB19910 1992 | * THE FOLLOWING PATCH AREA IS DESIGNED SO 2-10 OCB19920 1993 | * THIS PHASE IS AN INTEGRAL NO. OF SECTORS. 2-10 OCB19930 1994 | * 2-10 OCB19940 085C 1995 | BSS 6*320+LS000-*-1 PATCH AREA 2-8 OCB19950 0963 0000 1996 | DC 0 PATCH AREA OCB19960 0963 1997 | P1END EQU *-1 OCB19970 CORE LOAD BUILDER, PHASE 2 1999 | *************************************************** OCB19990 2000 | *STATUS -VERSION 2, MODIFICATION LEVEL 12 * OCB20000 2001 | * * OCB20010 2002 | *FUNCTION/OPERATION- * OCB20020 2003 | * * PHASE 2 IS READ INTO CORE AT THE END * OCB20030 2004 | * OF INITIALIZATION. IT OVERLAYS PHASE 1 AND * OCB20040 2005 | * ITS SUBROUTINES MC000, RL000, TS000, 2-8* OCB20050 2006 | * CQ000, TR000, XC000, AND DC000 2-8* OCB20060 2007 | * REMAIN IN CORE FOR THE REMAINDER 2-8* OCB20070 2008 | * OF THE PROCESS. 2-8* OCB20080 2009 | * * MC000-THE MASTER CONTROL SUPPLIES THE * OCB20090 2010 | * BASIC LOGIC. HERE THE FLOW OF THE CORE * OCB20100 2011 | * LOAD BUILDING PROCESS CAN BE FOLLOWED. * OCB20110 2012 | * * RL000-PERFORMS THE ACTUAL RELOCATION. * OCB20120 2013 | * IT DETERMINES FROM THE INDICATOR WORD IN * OCB20130 2014 | * THE CURRENT DSF BLOCK AND INFORMATION * OCB20140 2015 | * EXTRACTED FROM THE PROGRAM HEADER HOW TO * OCB20150 2016 | * RELOCATE DATA WORDS, PUT NEW ENTRIES IN * OCB20160 2017 | * THE LOAD TABLE, PROCESS LIBF, CALL AND DSA* OCB20170 2018 | * STATEMENTS. * OCB20180 2019 | * * TR000-TRANSFERS A RELOCATED WORD OF THE * OCB20190 2020 | * CORE LOAD TO CORE, THE CIB BUFFER, OR * OCB20200 2021 | * WORKING STORAGE. * OCB20210 2022 | * * OCB20220 2023 | *ENTRY POINTS- * OCB20230 2024 | * * THERE IS ONE ENTRY POINT TO EACH SUBROUTINE* OCB20240 2025 | * BSI L XX000 * OCB20250 2026 | * WHERE XX000 IS THE FIRST EXECUTABLE INSTRUC-* OCB20260 2027 | * TION IN THE SUBROUTINE * OCB20270 2028 | * * OCB20280 2029 | *INPUT- * OCB20290 2030 | * * THE MAINLINE AND ITS RELATED SUBROUTINES. * OCB20300 2031 | * * OCB20310 2032 | *OUTPUT- * OCB20320 2033 | * * A CORE LOAD * OCB20330 2034 | * * OCB20340 2035 | *EXTERNAL REFECENCES- * OCB20350 2036 | * * SUBROUTINES- * OCB20360 2037 | * * BT000-ENTER NAME IN LOAD TABLE * OCB20370 2038 | * * CC000-CONTROL LOADING OF SUBROUT. BY TYPE * OCB20380 2039 | * * CN000-TEST A SUBROUTINE NAME FOR DISK I/O * OCB20390 2040 | * * ET000-COMPUTE CORE AVAILABLE * OCB20400 2041 | * * EX000-PRINT A MESSAGE AND EXIT * OCB20410 2042 | * * GP000-GET/PUT DISK SUBROUTINE * OCB20420 2043 | * * IL000-RELOCATE AN ILS * OCB20430 2044 | * * LK000-FETCH A PHASE * OCB20440 2045 | * * LS000-FIND NAME IN LET/FLET * OCB20450 2046 | * * NW000-FETCH A WORD FROM DATA BUFFER * OCB20460 2047 | * * PL000-CREATE FLIPPER TBL, RELOCATE FLIPR * OCB20470 2048 | * * PM000-FLIPPER FOR PRINTING MESSAGE * OCB20480 2049 | * * PS000-PROCESS SOCALS * OCB20490 2050 | * * TL000-PRINT A MESSAGE AND TERMIN. LOADING * OCB20500 2051 | * * TP000-TERMINAL PROCESSING * OCB20510 2052 | * * TV000-CREATE THE TRANSFER VECTOR * OCB20520 2053 | * * COMMA/DCOM- * OCB20530 2054 | * * $CIBA * OCB20540 2055 | * * $CORE * OCB20550 2056 | * * $FPAD * OCB20560 2057 | * * $STOP * OCB20570 2058 | * * $UFDR * OCB20580 2059 | * * $WSDR * OCB20590 2060 | * * OCB20600 2061 | *EXITS- * OCB20610 2062 | * *NORMAL- * OCB20620 2063 | * * BACK TO CALLER INDIRECTLY VIA FIRST WORD * OCB20630 2064 | * * ERROR- * OCB20640 2065 | * * TO SUBROUTINE PM000 WITH MESSAGE NUMBER * OCB20650 2066 | * IN XR2. * OCB20660 2067 | * * OCB20670 2068 | *TABLES/WORK AREAS * OCB20680 2069 | * * RCOM * OCB20690 2070 | * * LOAD TABLE * OCB20700 2071 | * * OCB20710 2072 | *NOTES-N/A * OCB20720 2073 | *************************************************** OCB20730 CORE LOAD BUILDER, PHASE 2 2075 | * MASTER CONTROL SUBROUTINE, OVERLAY 2 OCB20750 2076 | * OCB20760 2077 | * OCB20770 2078 | * PARAMETERS FOR THE SYSTEM LOADER OCB20780 2079 | * OCB20790 05BC 2080 | ORG IN000-2 OCB20800 *SBRKGL 79 2081 | *CORE LOAD BUILDER, PHASE 2 V2M04 OCB20810 05BC 04E1 2082 | DC P2END-*-1 PHASE 2 WD CNT OCB20820 05BD 0079 2083 | DC @CLB2 PHASE 2 ID NO. OCB20830 CORE LOAD BUILDER, PHASE 2 05BE 2085 | MC000 EQU * ENTRY POINT 212 OCB20850 05BE 4400 0648 2086 | BSI L RL000 RELOCATE MAINLINE PROGRAM OCB20860 05C0 4400 092F 2087 | BSI L CK000 CHECK LENGTH OF COMMON OCB20870 2088 | * OCB20880 2089 | * START PASS 1 OF THE CORE LOAD BUILDING PROCESS OCB20890 2090 | * OCB20900 05C2 617A 2091 | MC030 LDX 1 @CLB3 OCB20910 05C3 4400 0380 2092 | BSI L LK000 FETCH CORE LOAD BLDR, PH 3 OCB20920 05C5 6680 055E 2093 | LDX I2 LBATV+X3 OCB20930 05C7 6580 059C 2094 | LDX I1 RIGHT+X3 OCB20940 05C9 C3FC 2095 | LD 3 RIGHT INITIALIZE TO 1ST OCB20950 05CA D3A7 2096 | STO 3 CURTV *ENTRY IN LOAD TABLE OCB20960 05CB C3BE 2097 | LD 3 LBATV IS THERE ANY ENTRIES IN 2-2 OCB20970 05CC 4C18 05D9 2098 | BSC L MC100,+- *LOAD TABLE, BR IF NOS 2-2 OCB20980 2099 | * OCB20990 2100 | * MAKE A PASS THROUGH THE LOAD TABLE OCB21000 2101 | * OCB21010 05CE C102 2102 | MC060 LD 1 @WRD3 BR IF CURRENT SUBR HAS OCB21020 05CF 4C18 0625 2103 | BSC L MC210,+- *NOT YET BEEN LOADED OCB21030 05D1 71FC 2104 | MC090 MDX 1 -@LTEN POINT TO NEXT LOAD TBL ENT OCB21040 05D2 74FC 0547 2105 | MDX L CURTV+X3,-4 OCB21050 05D4 72FC 2106 | MDX 2 -@LTEN SKIP AT END OF LOAD TABLE OCB21060 05D5 70F8 2107 | MDX MC060 BR TO CHECK NEXT TBL ENTRY OCB21070 05D6 C3EE 2108 | LD 3 LSW22 GET LET/FLET SW 212 OCB21080 05D7 4C20 0622 2109 | BSC L MC200,Z BR IF ALL ROUT NOT FND 212 OCB21090 2110 | * OCB21100 2111 | * START PROCESSING AS RESULT OF A PASS THROUGH OCB21110 2112 | * THE LOAD TABLE OCB21120 2113 | * OCB21130 05D9 C3E9 2114 | MC100 LD 3 LSW17 OCB21140 05DA 4C20 05EC 2115 | BSC L MC120,Z BRANCH DURING 2ND PASS OCB21150 05DC 617B 2116 | LDX 1 @CLB4 OCB21160 05DD 4400 0380 2117 | BSI L LK000 FETCH PHASE 4 OCB21170 05DF 4400 08B8 2118 | BSI L IL000 RELOCATE ILS SUBROUTINES OCB21180 05E1 4400 0963 2119 | BSI L ET000 COMPUTE CORE AVAILABLE OCB21190 2120 | * ONE INSTR REMOVED---ACC = @OVSW 212 OCB21200 05E3 4C18 05FB 2121 | BSC L MC150,+- BR IF NO LOCALS OR SOCALS OCB21210 05E5 6500 05BE 2122 | LDX L1 MC000 SIMULATE A BSI OCB21220 05E7 6D00 0380 2123 | STX L1 LK000 TO LK000 OCB21230 05E9 6179 2124 | LDX 1 @CLB2 OCB21240 05EA 4C00 0381 2125 | BSC L LK000+1 FETCH PHASE 2 OCB21250 05EC 617C 2126 | MC120 LDX 1 @CLB5 OCB21260 05ED 4400 0380 2127 | BSI L LK000 FETCH PHASE 5 OCB21270 05EF C3E1 2128 | LD 3 LSW09 BR IF LOCALS OCB21280 05F0 4C28 0641 2129 | BSC L MC330,Z+ *HAVE NOT BEEN PROCESSED OCB21290 05F2 4400 0945 2130 | MC130 BSI L PS000 INITIALIZE TO PROCESS A SCL OCB21300 2131 | * ONE INSTR REMOVED---ACC = LSW09 212 OCB21310 05F4 4C10 05C2 2132 | BSC L MC030,- BR UNTIL SOCALS RELOCATED OCB21320 05F6 617B 2133 | LDX 1 @CLB4 OCB21330 05F7 4400 0380 2134 | BSI L LK000 FETCH CORE LOAD BLDR, PH 4 OCB21340 05F9 4400 08B8 2135 | BSI L IL000 RELOCATE ILS SUBROUTINES OCB21350 05FB 6500 0083 2136 | MC150 LDX L1 @CLBC OCB21360 05FD 4400 0380 2137 | BSI L LK000 FETCH CORE MAP PHASE OCB21370 05FF C3CE 2138 | LD 3 LMPSW OCB21380 0600 4420 08B8 2139 | BSI L M2000,Z PRINT MAP IF REQUESTED OCB21390 0602 617D 2140 | LDX 1 @CLB6 OCB21400 0603 4400 0380 2141 | BSI L LK000 FETCH PHASE 6 OCB21410 0605 4400 08B8 2142 | BSI L TV000 CREATE THE TRANSFER VECTOR OCB21420 0607 4400 095A 2143 | BSI L TP000 DO TERMINAL PROCESSING OCB21430 2144 | * OCB21440 2145 | * THIS POINT MARKS THE END OF THE CORE OCB21450 2146 | * LOAD BUILDING PROCESS,I.E., THE CORE LOAD IS OCB21460 2147 | * NOW COMPLETE OCB21470 2148 | * OCB21480 0609 C3E2 2149 | LD 3 LSW10 OCB21490 060A 4C18 0610 2150 | BSC L MC170,+- BR UNLESS COMMON TOO LONG OCB21500 060C D386 2151 | STO 3 RNAME STORE OVERAGE OCB21510 060D 622F 2152 | LDX 2 MSG47 COMMON TOO LONG OCB21520 060E 4400 0426 2153 | BSI L PM000 PRINT MESSAGE R47 OCB21530 0610 C0A7 2154 | MC170 LD IND05 R05 ISSUED? 2-11 OCB21540 0611 4C18 0617 2155 | BSC L MC175,+- BR IF NO 2-11 OCB21550 0613 6C00 0034 2156 | STX L0 $NDUP SET NON-DUP AND 2-11 OCB21560 0615 6C00 0035 2157 | STX L0 $NXEQ *NON-EXECUTE SWITCHES 2-11 OCB21570 0617 7400 0034 2158 | MC175 MDX L $NDUP,0 SKIP IF NO ERRORS FOUND2-11 OCB21580 0619 7008 2159 | MDX MC200 BR TO ABORT LOADING OCB21590 061A C400 0488 2160 | LD L @XEQA OCB21600 061C D386 2161 | STO 3 RNAME OCB21610 061D 622A 2162 | LDX 2 MSG42 OCB21620 061E 4400 0447 2163 | BSI L PM300 PRINT EXEC ADDR MESSAGE OCB21630 0620 4400 03EC 2164 | MC190 BSI L EX000 EXIT FROM CORE LOAD BUILDER OCB21640 0622 62FF 2165 | MC200 LDX 2 -1 OCB21650 0623 4400 0407 2166 | BSI L TL000 PRINT ABORT MESSAGE OCB21660 2167 | * ONE INSTRUCTION REMOVED 2-11 OCB21670 2168 | * OCB21680 2169 | * DETERMINE WHETHER OR NOT TO RELOCATE CURRENT OCB21690 2170 | * ENTRY NOW OCB21700 2171 | * OCB21710 0625 C900 2172 | MC210 LDD 1 @WRD1 OCB21720 0626 DB82 2173 | STD 3 NAME OCB21730 0627 C3EE 2174 | LD 3 LSW22 INSURE L/F IND DOES NOT 212 OCB21740 0628 E398 2175 | AND 3 K4000 *INDICATE PROG NOT 212 OCB21750 0629 D3EE 2176 | STO 3 LSW22 *FOUND IN LET/FLET 212 OCB21760 062A 4400 02A7 2177 | BSI L CN000 CHECK NAME OF CALL/LIBF OCB21770 2178 | * ONE INSTR REMOVED---ACC = LSW18 212 OCB21780 2179 | * BRANCH IF NAME IS NOT THAT OCB21790 062C 4C18 0630 2180 | BSC L MC220,+- *OF A DISK I/O SUBR OCB21800 062E D102 2181 | STO 1 @WRD3 OCB21810 062F 70A1 2182 | MC215 MDX MC090 BR TO LOOK AT NEXT SUBR OCB21820 0630 C3E9 2183 | MC220 LD 3 LSW17 OCB21830 0631 4820 2184 | BSC Z SKIP DURING 1ST PASS, OCB21840 0632 7004 2185 | MDX MC240 *BRANCH OTHERWISE OCB21850 0633 C103 2186 | LD 1 @WRD4 OCB21860 0634 1804 2187 | SRA 4 BRANCH IF CURR ENTRY IS A OCB21870 0635 4C20 05D1 2188 | BSC L MC090,Z *PREVIOUSLY RELOCATED LOCAL OCB21880 0637 4400 0993 2189 | MC240 BSI L CC000 DECIDE WHETHER OR NOT TO OCB21890 2190 | * ONE INSTR REMOVED--ACC = LSW01 212 OCB21900 2191 | * BRANCH IF CURRENT SUBR 212 OCB21910 0639 4C20 05D1 2192 | BSC L MC090,Z *SHOULD BE BYPASSED OCB21920 063B C38D 2193 | LD 3 K0 OCB21930 063C D3B8 2194 | STO 3 INCRE OCB21940 063D 400A 2195 | BSI RL000 RELOC CURRENT SUBR 2-11 OCB21950 063E 7680 0558 2196 | MDX I2 INCRE+X3 OCB21960 0640 70EE 2197 | MDX MC215 BR TO PROCESS NEXT SUBR OCB21970 0641 C3AE 2198 | MC330 LD 3 FLIPT OCB21980 0642 4C18 05F2 2199 | BSC L MC130,+- BR IF NO LOCALS OCB21990 0644 4400 08B8 2200 | BSI L PL000 INCORPORATE FLIPPER OCB22000 0646 4C00 05C2 2201 | BSC L MC030 BR TO FETCH PHASE 3 2-11 OCB22010 CORE LOAD BUILDER, PHASE 2 2203 | * CONVERT A PROGRAM FROM DSF TO CORE IMAGE FORMAT OCB22030 2204 | * OCB22040 0648 0000 2205 | RL000 DC *-* ENTRY POINT OCB22050 0649 C3EE 2206 | LD 3 LSW22 GET LET/FLET SW 212 OCB22060 064A 4CA8 0648 2207 | BSC I RL000,+Z BR IF ROUT NOT FND 212 OCB22070 064C 6E00 0705 2208 | STX L2 RL200+1 SAVE XR2 OCB22080 064E 6600 070A 2209 | LDX L2 RL900 POINT XR2 TO CONSTANTS OCB22090 0650 740B 0559 2210 | MDX L INDEX+X3,@ENTY-@ZERO POINT TO LAST WD OCB22100 0652 C38D 2211 | LD 3 K0 OCB22110 0653 D207 2212 | STO 2 RL970-RL900 ZERO TO 1ST-BLOCK SWITCH OCB22120 0654 D204 2213 | STO 2 RL930-RL900 ZERO TO HIGH REFERENCE OCB22130 0655 D3C9 2214 | STO 3 LEVLS ZERO TO NO. DEVICES OCB22140 0656 C3FB 2215 | LD 3 RELOC RELOCATION FACTOR TO OCB22150 0657 D3BD 2216 | STO 3 LADDR *LOADING ADDR OF PROGRAM OCB22160 0658 D3D1 2217 | STO 3 LOADR * AND LOW REFERENCE OCB22170 2218 | * OCB22180 2219 | * FETCH LOADING ADDRESS FOR CURRENT DSF MODULE OCB22190 2220 | * OCB22200 0659 4400 0271 2221 | RL010 BSI L NW000 FETCH LOADING ADDRESS OCB22210 065B D315 2222 | STO 3 WASTE OCB22220 065C C205 2223 | LD 2 RL940-RL900 BR UNLESS PROCESSING A OCB22230 065D 4C20 068D 2224 | BSC L RL050,Z *CALL, LIBF, OR DSA OCB22240 065F C315 2225 | LD 3 WASTE RELOCATE LOADING ADDRESS OCB22250 0660 83FB 2226 | A 3 RELOC *FOR CURRENT DSF MODULE OCB22260 0661 D3BC 2227 | STO 3 LACTR INITIALIZE LOCATION ADDR CT OCB22270 0662 C207 2228 | LD 2 RL970-RL900 BRANCH ON ALL BUT 1ST OCB22280 0663 4C20 068D 2229 | BSC L RL050,Z *DSF MODULE OF PROGRAM OCB22290 2230 | * OCB22300 2231 | * INITIALIZATION TO BE DONE AT BEGINNING OCB22310 2232 | * OF RELOCATION OF EACH SUBROUTINE OCB22320 2233 | * OCB22330 0665 C3F1 2234 | LD 3 LTYPE OCB22340 0666 D207 2235 | STO 2 RL970-RL900 SET 1ST-DSF-MODULE SW OCB22350 0667 938F 2236 | S 3 K2 OCB22360 0668 4C10 066D 2237 | BSC L RL015,- BR UNLESS MAINLINE ABS OCB22370 066A 4400 0910 2238 | BSI L ML000 BR TO CHECK LOADING ADDR OCB22380 066C 7020 2239 | MDX RL050 BR TO FETCH NEXT DATA WORD OCB22390 066D 4C18 068D 2240 | RL015 BSC L RL050,+- BR IF MAINLINE RELOCATABLE OCB22400 066F C3DB 2241 | LD 3 LSW03 BRANCH IF RELOCATING AN OCB22410 0670 4C20 068D 2242 | BSC L RL050,Z *ILS OR FLIPPER OCB22420 0672 C3E9 2243 | LD 3 LSW17 OCB22430 0673 4C20 067D 2244 | BSC L RL030,Z BRANCH ON 2ND PASS OCB22440 0675 C100 2245 | LD 1 @WRD1 BR UNLESS CURRENT ENTRY IS OCB22450 0676 4C10 067A 2246 | BSC L RL020,- *A LOCAL OCB22460 0678 C3FE 2247 | LD 3 RLXEQ OCB22470 0679 7005 2248 | MDX RL040 PUT EXEC ADDR IN LOAD TABLE OCB22480 067A C3A6 2249 | RL020 LD 3 CLASS PUT CLASS CODE AND LOCAL OCB22490 067B EBE8 2250 | OR 3 LSW16 *INDICATOR IN 4TH WORD OF OCB22500 067C D103 2251 | STO 1 @WRD4 *LOAD TABLE ENTRY OCB22510 067D C3BD 2252 | RL030 LD 3 LADDR OCB22520 067E 83FE 2253 | A 3 RLXEQ COMPUTE ABSOLUTE ENTRY ADDR OCB22530 067F D102 2254 | RL040 STO 1 @WRD3 *STORE IN 3RD WD LD TBL ENT OCB22540 0680 C3F1 2255 | LD 3 LTYPE OCB22550 0681 9391 2256 | S 3 K5 OCB22560 0682 4820 2257 | BSC Z SKIP IF RELOCATING TYPE 5 OCB22570 0683 938E 2258 | S 3 K1 OCB22580 0684 4820 2259 | BSC Z SKIP IF RELOCATING SUBTP 3 OCB22590 0685 9201 2260 | S 2 RL905-RL900 OCB22600 0686 4C20 068D 2261 | BSC L RL050,Z BR UNLESS RELOCATING TYPE 6 OCB22610 0688 C3BA 2262 | LD 3 ISSTV OCB22620 0689 D002 2263 | STO *+2 OCB22630 068A C102 2264 | LD 1 @WRD3 STORE ENTRY POINT 2-10 OCB22640 068B D400 0000 2265 | STO L *-* *ADDRESS IN ISS TABLE 2-7 OCB22650 2266 | * OCB22660 2267 | * FETCH WORD COUNT FOR CURRENT DSF MODULE OCB22670 2268 | * OCB22680 068D 4400 0271 2269 | RL050 BSI L NW000 FETCH WD CNT OF DSF MODULE OCB22690 068F D202 2270 | STO 2 RL910-RL900 OCB22700 0690 C3BC 2271 | LD 3 LACTR BRANCH UNLESS CURRENT DSF OCB22710 0691 9204 2272 | S 2 RL930-RL900 *MODULE ADDR IS A NEW OCB22720 0692 4C08 0696 2273 | BSC L RL060,+ *MAXIMUM VALUE OCB22730 0694 C3BC 2274 | LD 3 LACTR SAVE NEW MAXIMUM OCB22740 0695 D078 2275 | STO RL930 OCB22750 0696 C075 2276 | RL060 LD RL910 OCB22760 0697 4C18 06D8 2277 | BSC L RL150,+- BR IF END OF PROG (WDCNT=0) OCB22770 0699 938F 2278 | S 3 K2 BRANCH IF NO DATA IN MOD- OCB22780 069A 4C18 0659 2279 | BSC L RL010,+- *ULE,I.E., WD CNT = 2 OCB22790 2280 | * OCB22800 2281 | * FETCH AN INDICATOR WORD OCB22810 2282 | * OCB22820 069C 4400 0271 2283 | RL070 BSI L NW000 FETCH INDICATOR WORD OCB22830 069E D06E 2284 | STO RL920 OCB22840 069F C38D 2285 | LD 3 K0 OCB22850 06A0 D069 2286 | STO RL900 ZERO TO DSF BLOCK COUNTER OCB22860 06A1 74FF 070C 2287 | MDX L RL910,-1 DECREMENT BLOCK WD CNT BY 1 OCB22870 2288 | * OCB22880 2289 | * FETCH A DATA WORD OCB22890 2290 | * OCB22900 06A3 4400 0271 2291 | RL080 BSI L NW000 FETCH A DATA WORD OCB22910 06A5 D382 2292 | STO 3 NAME OCB22920 06A6 7401 070A 2293 | MDX L RL900,1 INCR DSF BLOCK COUNTER BY 1 OCB22930 06A8 74FF 070C 2294 | MDX L RL910,-1 DECR MODULE WD CNT BY 1 OCB22940 06AA C205 2295 | LD 2 RL940-RL900 BR IF PROCESSING 2ND WORD OCB22950 06AB 4C20 0756 2296 | BSC L RL380,Z *OF A CALL, LIBF, OR DSA OCB22960 06AD C05F 2297 | LD RL920 OCB22970 06AE 1001 2298 | SLA 1 OCB22980 06AF D05D 2299 | STO RL920 BR IF PROCESSING 1ST WD OCB22990 06B0 4C02 073B 2300 | BSC L RL320,C *OF A CALL, LIBF, OR DSA OCB23000 06B2 C05A 2301 | LD RL920 OCB23010 06B3 1001 2302 | SLA 1 OCB23020 06B4 D058 2303 | STO RL920 OCB23030 06B5 4802 2304 | BSC C SKIP UNLESS WORD SHOULD OCB23040 06B6 7001 2305 | MDX *+1 *BE INCREMENTED OCB23050 06B7 7003 2306 | MDX RL085 BR TO CONTINUE PROCESSING OCB23060 06B8 C382 2307 | LD 3 NAME INCREMENT DATA WORD OCB23070 06B9 83FB 2308 | A 3 RELOC OCB23080 06BA D382 2309 | STO 3 NAME OCB23090 06BB C3DF 2310 | RL085 LD 3 LSW07 BRANCH IF FILLING IN BRANCH OCB23100 06BC 4C20 06C4 2311 | BSC L RL092,Z *TABLE OF AN ILS OCB23110 06BE C3DE 2312 | RL090 LD 3 LSW06 BRANCH UNLESS PROCESSING OCB23120 06BF 4C20 06CC 2313 | BSC L RL100,Z *DEFINE FILE TABLE OCB23130 06C1 4400 08B6 2314 | BSI L MV000 MOVE DEFINE FILE TABLE OCB23140 06C3 700B 2315 | MDX RL120 BR TO PROCESS NEXT DATA WD OCB23150 06C4 C382 2316 | RL092 LD 3 NAME OCB23160 06C5 4C20 06C9 2317 | BSC L RL095,Z BR UNLESS END OF ILS TABLE OCB23170 06C7 D3DF 2318 | STO 3 LSW07 OCB23180 06C8 70F5 2319 | MDX RL090 BR TO PROCESS NEXT WORD OCB23190 06C9 4400 07BB 2320 | RL095 BSI L TS000 PROCESS 1 IBT WORD OCB23200 06CB 7001 2321 | MDX RL110 OUTPUT 1 WORD OF IBT OCB23210 2322 | * OCB23220 2323 | * OUTPUT A WORD OF THE CORE LOAD AND DECIDE WHAT OCB23230 2324 | * TO DO NEXT OCB23240 2325 | * OCB23250 06CC C382 2326 | RL100 LD 3 NAME OCB23260 06CD 4400 07E7 2327 | RL110 BSI L TR000 OUTPUT 1 DATA WORD OCB23270 06CF C03C 2328 | RL120 LD RL910 OCB23280 06D0 938F 2329 | S 3 K2 BR IF END OF DSF MODULE, OCB23290 06D1 4C08 0659 2330 | BSC L RL010,+ *I.E., MODULE WD CNT = 2 OCB23300 06D3 C036 2331 | LD RL900 OCB23310 06D4 9394 2332 | S 3 K8 BRANCH TO FETCH INDICATOR OCB23320 06D5 4C10 069C 2333 | BSC L RL070,- *WD IF DSF BLOCK COUNTER=8 OCB23330 06D7 70CB 2334 | MDX RL080 BR TO FETCH NEXT DATA WD OCB23340 2335 | * OCB23350 2336 | * TERMINAL PROCESSING--THE SUBROUTINE HAS OCB23360 2337 | * BEEN RELOCATED OCB23370 2338 | * OCB23380 06D8 C035 2339 | RL150 LD RL930 OCB23390 06D9 93D1 2340 | S 3 LOADR COMPUTE AND STORE LENGTH OF OCB23400 06DA D30B 2341 | STO 3 SUBWC *PROGRAM JUST RELOCATED OCB23410 06DB C3BC 2342 | LD 3 LACTR SKIP IF LOCATION ADDR CTR OCB23420 06DC 4804 2343 | BSC E *ENDED ON AN EVEN BOUNDARY OCB23430 06DD 7001 2344 | MDX *+1 BR IF ODD OCB23440 06DE 7003 2345 | MDX RL155 BR TO CHECK PASS NO. OCB23450 06DF 838E 2346 | A 3 K1 MAKE LOCATION ADDR CTR EVEN OCB23460 06E0 7401 05AB 2347 | MDX L SUBWC+X3,1 INCREMENT WORD COUNT BY 1 OCB23470 06E2 7400 0589 2348 | RL155 MDX L LSW17+X3,0 SKIP DURING 1ST PASS OCB23480 06E4 7006 2349 | MDX RL160 BRANCH IF 2ND PASS OCB23490 06E5 7400 058B 2350 | MDX L LSW19+X3,0 SKIP IF NO LOCALS OCB23500 06E7 7001 2351 | MDX *+1 BRANCH IF LOCALS OCB23510 06E8 7002 2352 | MDX RL160 BRANCH IF NO LOCALS OCB23520 06E9 1003 2353 | SLA 3 PREVENT LACTR FROM 2-11 OCB23530 06EA 1803 2354 | SRA 3 * EXCEEDING 8,191 2-11 OCB23540 2355 | * * DURING PASS 1 2-11 OCB23550 06EB D3FB 2356 | RL160 STO 3 RELOC SAVE NEXT RELOCATION FACTOR OCB23560 06EC 93B1 2357 | S 3 HADDR BR IF HIGHEST ADDR ENCOUN- OCB23570 06ED 4C08 06F1 2358 | BSC L RL170,+ *TERED EXCEEDS RELOC FACTOR OCB23580 06EF C3FB 2359 | LD 3 RELOC REPLACE HIGH ADDR WITH OCB23590 06F0 D3B1 2360 | STO 3 HADDR *RELOCATION FACTOR OCB23600 06F1 4400 0890 2361 | RL170 BSI L XC000 FILL IN EXIT CONTROL CELL OCB23610 06F3 C3F1 2362 | LD 3 LTYPE OCB23620 06F4 938F 2363 | S 3 K2 OCB23630 06F5 4C08 06FD 2364 | BSC L RL180,+ BRANCH IF A MAINLINE OCB23640 06F7 C3DB 2365 | LD 3 LSW03 BRANCH IF RELOCATING AN OCB23650 06F8 4C20 06FD 2366 | BSC L RL180,Z *ILS OR FLIPPER OCB23660 06FA C100 2367 | LD 1 @WRD1 BR IF CURRENTLY RELOCATING OCB23670 06FB 4C28 0720 2368 | BSC L RL250,Z+ *A LOCAL OCB23680 06FD C3F1 2369 | RL180 LD 3 LTYPE OCB23690 06FE 9393 2370 | S 3 K7 BRANCH UNLESS PROCESSING OCB23700 06FF 4C20 0715 2371 | BSC L RL240,Z *AN ILS OCB23710 0701 C3B7 2372 | LD 3 ILSCT OCB23720 0702 830B 2373 | A 3 SUBWC ACCUMULATE LENGTH OF ILS OCB23730 0703 D3B7 2374 | STO 3 ILSCT *SUBROUTINES IN CORE LOAD OCB23740 2375 | * OCB23750 2376 | * RETURN TO CALLER OCB23760 2377 | * OCB23770 0704 6600 0000 2378 | RL200 LDX L2 *-* RESTORE XR2 OCB23780 0706 4C80 0648 2379 | BSC I RL000 RETURN OCB23790 2380 | * OCB23800 2381 | * CONSTANTS AND WORK AREAS OCB23810 2382 | * OCB23820 0708 2383 | BSS E 0 212 OCB23830 0708 1B6D B6DB 2384 | RL992 DN $$$$$ NAME OF UFIO AREA 212 OCB23840 070A 0000 2385 | RL900 DC *-* DSF BLOCK COUNTER (CNT UP TO 8) OCB23850 070B 002F 2386 | RL905 DC /0035-5-1 OCB23860 070C 0000 2387 | RL910 DC *-* NO. WORDS IN CURRENT DSF MODULE OCB23870 070D 0000 2388 | RL920 DC *-* INDICATOR BITS OCB23880 070E 0000 2389 | RL930 DC *-* HIGHEST CORE ADDR IN PROGRAM OCB23890 070F 0000 2390 | RL940 DC *-* CALL-LIBF-DSA SWITCH OCB23900 0710 0000 2391 | RL950 DC *-* MASK OCB23910 0711 0000 2392 | RL970 DC *-* 1ST BLOCK SWITCH--0=1ST DATA BLK OCB23920 0712 0000 2393 | RL980 DC *-* CALL-LIBF SWITCH--ZERO LIBF OCB23930 0713 4480 2394 | RL990 DC /4480 1ST WORD OF AN INDIRECT BSI OCB23940 0714 0000 2395 | RL999 DC *-* GRAPHICS INDICATOR 2G2 OCB23950 2396 | * 212 OCB23960 2397 | * 1 CONSTANT MOVED 212 OCB23970 2398 | * OCB23980 2399 | * OCB23990 2400 | * OCB24000 2401 | * OCB24010 2402 | * ACCUMULATE WORD COUNTS OF THE VARIOUS CLASSES OCB24020 2403 | * OF SUBROUTINES OCB24030 2404 | * OCB24040 0715 6680 0546 2405 | RL240 LDX I2 CLASS+X3 OCB24050 0717 7400 0589 2406 | MDX L LSW17+X3,0 SKIP DURING 1ST PASS, OCB24060 0719 70EA 2407 | MDX RL200 *BRANCH OTHERWISE OCB24070 071A C30B 2408 | LD 3 SUBWC ACCUMULATE LENGTH OF OCB24080 071B 8600 0528 2409 | A L2 INCOR+X3 *SUBROUTINES IN THIS CLASS OCB24090 071D D600 0528 2410 | STO L2 INCOR+X3 OCB24100 071F 70E4 2411 | MDX RL200 TO EXIT OCB24110 2412 | * OCB24120 2413 | * SAVE WORD COUNT AND SECTOR ADDRESS OF EACH LOCAL OCB24130 2414 | * AS WELL AS THE WORD COUNT OF THE LONGEST LOCAL OCB24140 2415 | * OCB24150 0720 C38C 2416 | RL250 LD 3 LOCAL BRANCH UNLESS THIS IS THE OCB24160 0721 930B 2417 | S 3 SUBWC *LONGEST LOCAL ENCOUNTERED OCB24170 0722 4C10 0726 2418 | BSC L RL260,- * SO FAR OCB24180 0724 C30B 2419 | LD 3 SUBWC SAVE LENGTH OF THE OCB24190 0725 D38C 2420 | STO 3 LOCAL *LONGEST LOCAL OCB24200 0726 C3E9 2421 | RL260 LD 3 LSW17 OCB24210 0727 4C20 072F 2422 | BSC L RL280,Z BRANCH IF 2ND PASS OCB24220 0729 6680 0547 2423 | LDX I2 CURTV+X3 OCB24230 072B C30B 2424 | LD 3 SUBWC SAVE LOCAL LENGTH IN 4TH OCB24240 072C EB99 2425 | OR 3 K8000 *WORD OF LOAD TABLE (BIT OCB24250 072D D203 2426 | STO 2 @WRD4 *ZERO IS A FLAG) OCB24260 072E 70D5 2427 | MDX RL200 TO EXIT OCB24270 072F C3E1 2428 | RL280 LD 3 LSW09 BRANCH UNLESS PROCESSING OCB24280 0730 4C20 0704 2429 | BSC L RL200,Z *LOCALS OCB24290 0732 C316 2430 | LD 3 WSADR OCB24300 0733 D002 2431 | STO RL290+1 OCB24310 0734 C30B 2432 | LD 3 SUBWC OCB24320 0735 7401 0000 2433 | RL290 MDX L *-*,1 ACCUMULATE SECTOR OCB24330 0737 9397 2434 | S 3 K320 *ADDR FOR NEXT LOCAL OCB24340 0738 4C30 0735 2435 | BSC L RL290,Z- BR UNTIL SCTR NO. FORMED. OCB24350 073A 70C9 2436 | MDX RL200 TO EXIT OCB24360 2437 | * OCB24370 2438 | * PROCESS 1ST WORD OF NAME OF CALL, LIBF, OR DSA OCB24380 2439 | * OCB24390 073B C38E 2440 | RL320 LD 3 K1 SET SWITCH TO INDICATE NOW OCB24400 073C D0D2 2441 | STO RL940 *PROCESSING CALL,LIBF,DSA OCB24410 073D C0CF 2442 | LD RL920 OCB24420 073E 1001 2443 | SLA 1 OCB24430 073F D0CD 2444 | STO RL920 OCB24440 0740 C38D 2445 | LD 3 K0 OCB24450 0741 4802 2446 | BSC C SKIP IF PROCESSING A LIBF OCB24460 0742 C398 2447 | LD 3 K4000 OCB24470 0743 D0CC 2448 | STO RL950 MASK=4000 FOR CALL,0 LIBF OCB24480 0744 D0CD 2449 | STO RL980 NON-ZERO=PROCESSING A CALL OCB24490 0745 4820 2450 | BSC Z SKIP IF IND BITS=10 2G2 OCB24500 0746 7003 2451 | MDX RL330 CHECK IF GCB ORDER 2G2 OCB24510 0747 C382 2452 | RL325 LD 3 NAME 2G2 OCB24520 0748 D383 2453 | STO 3 NAME+1 OCB24530 0749 7085 2454 | MDX RL120 BR TO PROCESS NEXT DATA WD OCB24540 074A C382 2455 | RL330 LD 3 NAME CHECK IF BIT 0=1 2G2 OCB24550 074B 4810 2456 | BSC - SKIP IF YES (A GSB ORDE 2G2 OCB24560 074C 70FA 2457 | MDX RL325 NO,RESUME PROCESSING 2G2 OCB24570 074D C38E 2458 | LD 3 K1 2G2 OCB24580 074E D0C5 2459 | STO RL999 2G2 OCB24590 074F 69BF 2460 | RL340 STX 1 RL940 SAVE XR1 2G2 OCB24600 0750 6500 0084 2461 | LDX L1 @CLBD CLB PH 13 ID 2G2 OCB24610 0752 4400 0380 2462 | BSI L LK000 LOAD GRAPHIC PHASE 2G2 OCB24620 0754 4C00 0AA2 2463 | BSC L GC000 BR TO GRAPHICS PHASE 2G2 OCB24630 2464 | * OCB24640 2465 | * PROCESS 2ND WORD OF NAME OF CALL, LIBF, OR DSA OCB24650 2466 | * OCB24660 0756 C0B6 2467 | RL380 LD RL920 OCB24670 0757 1001 2468 | SLA 1 2G2 OCB24680 0758 4C02 074F 2469 | BSC L RL340,C 2G2 OCB24690 075A 1001 2470 | SLA 1 OCB24700 075B 2808 2471 | STS RL385 SAVE CARRY TO IND DSA 2-4 OCB24710 075C D0B0 2472 | STO RL920 OCB24720 075D C38D 2473 | LD 3 K0 CLEAR CALL-LIBF-DSA OCB24730 075E D0B0 2474 | STO RL940 *PROCESSING SWITCH OCB24740 075F CB82 2475 | LDD 3 NAME OCB24750 0760 18D0 2476 | RTE 16 RESTORE NAME OF PROGRAM OCB24760 0761 DB82 2477 | STD 3 NAME *BEING PROCESSED OCB24770 0762 406C 2478 | BSI CQ000 BR TO CHK FOR EQUATES 2-11 OCB24780 0763 CB82 2479 | LDD 3 NAME 2-4 OCB24790 0764 2000 2480 | RL385 LDS *-* SET CARRY IF PROC DSA 2-4 OCB24800 0765 4C02 0777 2481 | BSC L RL450,C BR IF PROCESSING A DSA OCB24810 0767 E8A8 2482 | OR RL950 FLAG NAME AS A CALL OCB24820 0768 D382 2483 | STO 3 NAME *OR A LIBF OCB24830 2484 | * OCB24840 2485 | * PROCESS CALLS AND LIBFS OCB24850 2486 | * OCB24860 0769 4400 02CC 2487 | BSI L BT000 ENTER NAME IN LOAD TABLE OCB24870 076B C0A6 2488 | LD RL980 OCB24880 076C 4C20 0773 2489 | BSC L RL410,Z BRANCH IF PROCESSING A CALL OCB24890 076E C3AA 2490 | LD 3 DISPL REPLACE NAME OF SUBROUTINE OCB24900 076F EB9F 2491 | OR 3 BSIT3 *WITH SHORT BSI TO LIBF TV OCB24910 0770 D382 2492 | RL390 STO 3 NAME OCB24920 0771 4C00 06CC 2493 | BSC L RL100 BR TO OUTPUT A DATA WD OCB24930 2494 | * OCB24940 2495 | * PROCESS CALLS OCB24950 2496 | * OCB24960 0773 C09F 2497 | RL410 LD RL990 REPLACE 1ST WD OF NAME WITH OCB24970 0774 4072 2498 | BSI TR000 *1ST WD OF A LONG BSI 2-11 OCB24980 0775 C314 2499 | LD 3 TVPTR REPLACE 2ND WD OF NAME WITH OCB24990 0776 70F9 2500 | MDX RL390 *ADDR OF CALL TV ENTRY OCB25000 2501 | * OCB25010 2502 | * PROCESS DSA STATEMENTS OCB25020 2503 | * OCB25030 0777 C38E 2504 | RL450 LD 3 K1 OCB25040 0778 D3E7 2505 | STO 3 LSW15 SET DSA SWITCH OCB25050 0779 CB82 2506 | LDD 3 NAME OCB25060 077A 9AFE 2507 | SD 2 RL992-RL900 OCB25070 077B 4818 2508 | BSC +- SKIP UNLESS 1ST NAMES MATCH OCB25080 077C 18D0 2509 | RTE 16 OCB25090 077D 4C20 0782 2510 | BNZ DC000 BR IF NAME OF UFIO AREA 212 OCB25100 077F C400 007D 2511 | LD L $UFDR OCB25110 0781 D3B6 2512 | STO 3 IGNOR 212 OCB25120 2513 | * 212 OCB25130 2514 | *FETCH 1ST AND 3RD WORDS OF DSA STATEMENTS 212 OCB25140 2515 | * 212 OCB25150 0782 2516 | DC000 EQU * ENTRY POINT 212 OCB25160 0782 6A24 2517 | STX 2 DC100+1 SAVE XR2 212 OCB25170 0783 4400 01E4 2518 | BSI L LS000 LOOK UP NAME IN LET/FLET212 OCB25180 2519 | * *UPON RETURN, ACC = 212 OCB25190 2520 | * *LET/FLET INDR(LSW22) 212 OCB25200 0785 4C28 0410 2521 | BSC L TL100,+Z EXIT IF NAME NOT FOUND 212 OCB25210 0787 C3BF 2522 | LD 3 LCBSW TEST FOR STORECI 212 OCB25220 0788 4C18 0793 2523 | BSC L DC020,+- BRANCH IF DSF LOAD 212 OCB25230 078A C3E3 2524 | LD 3 LSW11 TEST WHERE FOUND 212 OCB25240 078B 4C10 0793 2525 | BSC L DC020,- BR IF IN FLET 212 OCB25250 078D CB82 2526 | LDD 3 NAME PREPARE 212 OCB25260 078E 1082 2527 | SLT 2 *NAME FOR 212 OCB25270 078F DB86 2528 | STD 3 RNAME *ERROR MSG 212 OCB25280 0790 6217 2529 | LDX 2 MSG23 FLAG ERROR R23 212 OCB25290 0791 4400 0426 2530 | BSI L PM000 GO PRINT ERROR MESSAG 212 OCB25300 0793 C3A1 2531 | DC020 LD 3 BYADR COMPUTE AND STORE DISK 212 OCB25310 0794 1804 2532 | SRA 4 *BLOCK ADDR OF 1ST SCTR 212 OCB25320 0795 EBAB 2533 | OR 3 DRCDE 212 OCB25330 0796 D400 0AA1 2534 | STO L BUFLS+1 *OF PROGRAM/DATA FILE 212 OCB25340 0798 C3E4 2535 | LD 3 LSW12 212 OCB25350 0799 1001 2536 | SLA 1 212 OCB25360 079A 4C28 07B2 2537 | BSC L DC150,Z+ BR IF DSA FOR A DATA FIL212 OCB25370 079C C3D7 2538 | LD 3 LSBUF 212 OCB25380 079D 1890 2539 | SRT 16 212 OCB25390 079E 4400 0418 2540 | BSI L GP000 FETCH CORE IMAGE HEADER 212 OCB25400 07A0 6600 0AA2 2541 | LDX L2 BUFLS+2 POINT XR2 AT HDR 212 OCB25410 07A2 C209 2542 | LD 2 @WCNT-@XEQA FETCH WORD COUNT OF 212 OCB25420 07A3 D3D0 2543 | STO 3 LNGTH *CORE LOAD 212 OCB25430 07A4 C200 2544 | LD 2 @XEQA-@XEQA 212 OCB25440 07A5 D3F2 2545 | DC050 STO 3 LXEQA SAVE EXECUTION ADDRESS 212 OCB25450 07A6 6600 0000 2546 | DC100 LDX L2 *-* RESTORE XR2 212 OCB25460 07A8 C38D 2547 | LD 3 K0 212 OCB25470 07A9 D3E7 2548 | STO 3 LSW15 CLEAR DSA SWITCH 212 OCB25480 07AA D3B6 2549 | STO 3 IGNOR OCB25490 07AB C3D0 2550 | LD 3 LNGTH OUTPUT LENGTH OF PROGRAM OCB25500 07AC 403A 2551 | BSI TR000 *REFERENCED IN THE DSA 2-11 OCB25510 07AD C400 0AA1 2552 | LD L BUFLS+1 OUTPUT SCTR ADDR OF PRO- OCB25520 07AF 4037 2553 | BSI TR000 *GRAM REF'NCED IN DSA 2-11 OCB25530 07B0 C3F2 2554 | LD 3 LXEQA OUTPUT EXECUTION ADDR OCB25540 07B1 70BE 2555 | MDX RL390 BR TO OUTPUT A DATA WD OCB25550 07B2 C3C6 2556 | DC150 LD 3 LDBCT 212 OCB25560 07B3 A396 2557 | M 3 K20 212 OCB25570 07B4 1091 2558 | SLT 17 TRUNCATE WD CNT TO 32K 212 OCB25580 07B5 1801 2559 | SRA 1 212 OCB25590 07B6 D3D0 2560 | STO 3 LNGTH SAVE WD COUNT 212 OCB25600 07B7 C3C6 2561 | LD 3 LDBCT 212 OCB25610 07B8 839E 2562 | A 3 BLCKS 212 OCB25620 07B9 1804 2563 | SRA 4 212 OCB25630 07BA 70EA 2564 | MDX DC050 BR TO STORE WD 3 212 OCB25640 CORE LOAD BUILDER, PHASE 2 07BB 0000 2566 | TS000 DC *-* ENTRY POINT OCB25660 2567 | * OCB25670 2568 | * PROCESS THE BRANCH TABLE AT BEGINNING OF AN ILS OCB25680 2569 | * OCB25690 07BC E39B 2570 | AND 3 K00FF TURN OFF BITS 0-7 212 OCB25700 07BD 800F 2571 | A TS900 ADD ADDR OF ISS TBL+@ISTV OCB25710 07BE D006 2572 | STO TS100+1 OCB25720 07BF 7401 0569 2573 | MDX L LEVLS+X3,1 ACCUMULATE NO. WDS IN TBL OCB25730 07C1 C382 2574 | LD 3 NAME OCB25740 07C2 1808 2575 | SRA 8 OCB25750 07C3 D382 2576 | STO 3 NAME OCB25760 07C4 C400 0000 2577 | TS100 LD L *-* BRANCH IF NO. THIS ENTRY IN OCB25770 07C6 4C18 07CB 2578 | BSC L TS160,+- *ISS TBL IS STILL VACANT OCB25780 07C8 8382 2579 | A 3 NAME OCB25790 07C9 4C80 07BB 2580 | TS130 BSC I TS000 RETURN OCB25800 07CB C002 2581 | TS160 LD TS905 PUT ADDR OF PREOPERATIVE ER OCB25810 07CC 70FC 2582 | MDX TS130 *IN CURRENT ISS TABLE ENTRY OCB25820 2583 | * OCB25830 2584 | * CONSTANTS AND WORK AREAS OCB25840 2585 | * OCB25850 07CD 0473 2586 | TS900 DC ISTVX-@ISTV-1 ADDR ISS TBL + @ISTV2-1 OCB25860 07CE 0091 2587 | TS905 DC $STOP ADDR OF PROG STOP KEY TRAP OCB25870 CORE LOAD BUILDER, PHASE 2 2589 | * CHECK CALLS AGAINST THE EQUATE TABLE 2-4 OCB25890 2590 | * 2-4 OCB25900 07CF 0000 2591 | CQ000 DC *-* ENTRY POINT 2-4 OCB25910 07D0 6910 2592 | STX 1 CQ100+1 SAVE XR1 2-4 OCB25920 07D1 C3AD 2593 | LD 3 EQCNT BR IF THERE IS 2-4 OCB25930 07D2 4C18 07E0 2594 | BSC L CQ100,+- *NO EQUATE TABLE 2-4 OCB25940 07D4 6580 054D 2595 | LDX I1 EQCNT+X3 COMPLEMENTED WD CNT TO X2-4 OCB25950 07D6 CB82 2596 | CQ050 LDD 3 NAME COMPARE CURRENT CALL WIT2-4 OCB25960 07D7 9D00 0520 2597 | SD L1 EQTBL *AN EQUATE TABLE ENTRY 2-4 OCB25970 07D9 4818 2598 | BSC +- SKIP IF UNEQUAL 2-4 OCB25980 07DA 18D0 2599 | RTE 16 READY TO COMPARE 2ND WOR2-4 OCB25990 07DB 4C20 07E4 2600 | BSC L CQ150,Z BR IF UNEQUAL 2-4 OCB26000 07DD CD00 0522 2601 | LDD L1 EQTBL+2 REPLACE NAME OF CALL WIT2-4 OCB26010 07DF DB82 2602 | STD 3 NAME *SUBSTITUTE NAME 2-4 OCB26020 07E0 6500 0000 2603 | CQ100 LDX L1 *-* RESTORE XR1 2-4 OCB26030 07E2 4C80 07CF 2604 | BSC I CQ000 RETURN 2-4 OCB26040 07E4 7104 2605 | CQ150 MDX 1 @EETY SKIP IF NO MATCH IN TABL2-4 OCB26050 07E5 70F0 2606 | MDX CQ050 BR TO COMPARE NEXT ENTRY2-4 OCB26060 07E6 70F9 2607 | MDX CQ100 BR TO EXIT 2-4 OCB26070 CORE LOAD BUILDER, PHASE 2 2609 | * MOVE 1 DATA WORD TO CORE,THE CIB,OR WKNG STORAGE OCB26090 2610 | * OCB26100 07E7 0000 2611 | TR000 DC *-* ENTRY POINT OCB26110 07E8 D3A8 2612 | STO 3 DATWD OCB26120 07E9 694B 2613 | STX 1 TR190+1 SAVE REGISTER 1 OCB26130 07EA 6A4C 2614 | STX 2 TR190+3 SAVE XR2 2-11 OCB26140 07EB 6500 0489 2615 | LDX L1 @CMON XR1 POINTS AT CI HDR 2-11 OCB26150 07ED 6680 007A 2616 | LDX I2 $WSDR XR2 = VAL OF WS DRIVE 2-11 OCB26160 2617 | * OCB26170 2618 | * GUARD AGAINST OVERLAYING COMMON OCB26180 2619 | * OCB26190 07EF C100 2620 | LD 1 @CMON-@CMON 2-11 OCB26200 07F0 4C18 0805 2621 | BSC L TR030,+- BRANCH IF NO COMMON OCB26210 07F2 C400 000E 2622 | LD L $CORE OCB26220 07F4 9100 2623 | S 1 @CMON-@CMON 2-11 OCB26230 07F5 93BC 2624 | S 3 LACTR BRANCH IF THIS DATA WORD OCB26240 07F6 4C30 0805 2625 | BSC L TR030,Z- *WILL NOT OVERLAY COMMON OCB26250 07F8 C3E2 2626 | LD 3 LSW10 ACCUMULATE PROGRAM/COMMON OCB26260 07F9 838E 2627 | A 3 K1 *OVERLAP OCB26270 07FA D3E2 2628 | STO 3 LSW10 OCB26280 07FB C3EB 2629 | LD 3 LSW19 BRANCH TO CHECK LACTR 2-8 OCB26290 07FC 4C18 0801 2630 | BSC L TR020,+- *IF NO LOCALS/SOCALS 2-8 OCB26300 07FE C3E9 2631 | LD 3 LSW17 BRANCH TO CONTINUE 2-8 OCB26310 07FF 4C18 0832 2632 | BSC L TR180,+- *IF PASS ONE 2-8 OCB26320 0801 C3BC 2633 | TR020 LD 3 LACTR BRANCH IF CORE LOAD 2-4 OCB26330 0802 4C08 083A 2634 | BSC L TR200,+ *EXCEEDS 32 K 2-4 OCB26340 0804 702D 2635 | MDX TR180 BR W/O TRANSFERRING DATA WD OCB26350 2636 | * OCB26360 2637 | * SAVE THE HIGHEST ADDRESS LOADED THUS FAR OCB26370 2638 | * OCB26380 0805 C3B1 2639 | TR030 LD 3 HADDR OCB26390 0806 93BC 2640 | S 3 LACTR BR IF HIGHEST ADDR LOADED OCB26400 0807 4C10 080B 2641 | BSC L TR050,- *THUS FAR LT THE LACTR OCB26410 0809 C3BC 2642 | LD 3 LACTR SAME HIGHEST ADDR OCB26420 080A D3B1 2643 | STO 3 HADDR *LOADED THUS FAR OCB26430 080B C3E9 2644 | TR050 LD 3 LSW17 OCB26440 080C 4C18 0812 2645 | BSC L TR110,+- BRANCH DURING 1ST PASS OCB26450 080E C3E1 2646 | LD 3 LSW09 OCB26460 080F 4C28 082B 2647 | BSC L TR150,Z+ BR IF PROCESSING IN-CORES OCB26470 0811 702B 2648 | MDX TR250 BR IF PROCESSING LOCAL/SOCL OCB26480 2649 | * OCB26490 2650 | * OUTPUT THE DATA WD TO CIB OR WKNG STORAGE OCB26500 2651 | * OCB26510 0812 7400 058B 2652 | TR110 MDX L LSW19+X3,0 SKIP IF THERE ARE NO OCB26520 0814 701D 2653 | MDX TR180 *LOCALS/SOCALS,BR OTHERWISE OCB26530 0815 C3BC 2654 | LD 3 LACTR OCB26540 0816 4C08 083A 2655 | BSC L TR200,+ BR IF LACTR EXCEEDS 32767 OCB26550 0818 9400 000E 2656 | S L $CORE BRANCH IF PROGRAM TOO OCB26560 081A 4C10 0832 2657 | BSC L TR180,- *LARGE FOR CORE OCB26570 081C C3ED 2658 | LD 3 LSW21 OCB26580 081D 4C20 082B 2659 | BSC L TR150,Z BR IF OUTPUTTING CI HEADER OCB26590 081F C3BC 2660 | LD 3 LACTR OCB26600 0820 93F4 2661 | S 3 MLWD1 BR UNLESS LOCATION ADDR CTR OCB26610 0821 4C10 0825 2662 | BSC L TR130,- *LESS THAN 1ST WD OF ML OCB26620 0823 6201 2663 | LDX 2 MSG01 INVALID ORG OCB26630 0824 7016 2664 | MDX TR200+1 PRNT MSG R01 AND EXIT 2-11 OCB26640 2665 | * OCB26650 2666 | * DETERMINE WHETHER TO OUTPUT THE WD OCB26660 2667 | * OCB26670 0825 C3DE 2668 | TR130 LD 3 LSW06 OCB26680 0826 4C18 082B 2669 | BSC L TR150,+- BR IF PROCESSING FILES OCB26690 0828 C3EB 2670 | LD 3 LSW19 BRANCH IF PROCESSING OCB26700 0829 4C20 0832 2671 | BSC L TR180,Z *LOCALS/SOCALS OCB26710 082B C3BC 2672 | TR150 LD 3 LACTR BR IF DATA WORD IS TO BE OCB26720 082C 93A4 2673 | S 3 CIBLM *WRITTEN ON CIB,I.E., TO2-2 OCB26730 082D 4C08 083D 2674 | BSC L TR250,+ *RESIDE BELOW HIGH COMM 2-2 OCB26740 2675 | * OCB26750 2676 | * OUTPUT THE DATA WD TO CORE (ABOVE HIGH COMMON)2-2 OCB26760 2677 | * OCB26770 082F C3A8 2678 | LD 3 DATWD LOAD CURRENT DATA WORD DIR- OCB26780 0830 D780 FFBC 2679 | STO I3 LACTR *ECTLY IN CORE (ABOVE 4095) OCB26790 2680 | * 2 INSTRUCTIONS REMOVED 2-11 OCB26800 2681 | * 2-11 OCB26810 0832 7401 055C 2682 | TR180 MDX L LACTR+X3,1 INCRE LACTR BY 1 2-11 OCB26820 0834 6500 0000 2683 | TR190 LDX L1 *-* RESTORE REGISTER 1 OCB26830 0836 6600 0000 2684 | LDX L2 *-* RESTORE REGISTER 2 2-11 OCB26840 0838 4C80 07E7 2685 | BSC I TR000 RETURN OCB26850 083A 6208 2686 | TR200 LDX 2 MSG08 CORE LOAD EXCEEDS 32K OCB26860 083B 4500 FF7E 2687 | BSI L1 TL000-@CMON PRINT MSG AND EXIT 212 OCB26870 2688 | * OCB26880 2689 | * WRITE DATA WORD ON CIB OR WORKING STORAGE OCB26890 2690 | *BY PLACING IT FIRST IN THE CIB BUFFER OCB26900 2691 | * OCB26910 083D C3E1 2692 | TR250 LD 3 LSW09 OCB26920 083E 4C10 084C 2693 | BSC L TR270,- BRANCH IF LOCAL OR SOCAL OCB26930 2694 | * OCB26940 2695 | * INITIALIZE IF PROCESSING IN-CORES OCB26950 0840 C400 0005 2696 | LD L $CIBA INITIALIZE WITH LEFTMOST2-2 OCB26960 0842 D049 2697 | STO TR920 *DISK SECTOR ADDR IN CIB2-2 OCB26970 0843 C3A4 2698 | LD 3 CIBLM 2-2 OCB26980 0844 9048 2699 | S TR930 2-2 OCB26990 0845 4C18 0855 2700 | BSC L TR290,+- BR IF MINIMUM SIZE CORE 2-2 OCB27000 0847 C3BC 2701 | LD 3 LACTR 2-2 OCB27010 0848 9044 2702 | S TR930 BR IF LAC IS IN 2-2 OCB27020 0849 4C30 0886 2703 | BSC L TR430,Z- *HIGH COMMON 2-2 OCB27030 084B 7009 2704 | MDX TR290 BR TO CONTINUE PROC 2-2 OCB27040 2705 | * OCB27050 2706 | * INITIALIZE IF PROCESSING LOCALS OR SOCALS OCB27060 2707 | * OCB27070 084C C600 05A1 2708 | TR270 LD L2 SCTAD+X3 INITIALIZE WITH CURRENT2-11 OCB27080 084E D03D 2709 | STO TR920 *ADDR IN WORKING STORAGE OCB27090 084F CB82 2710 | LDD 3 NAME OCB27100 0850 1082 2711 | SLT 2 OCB27110 0851 DB86 2712 | STD 3 RNAME OCB27120 0852 C3BC 2713 | LD 3 LACTR COMPUTE ADDR CURR DATA WD OCB27130 0853 93D6 2714 | S 3 LSADR *RELATIVE TO LOCAL/SOCAL AR OCB27140 0854 7003 2715 | MDX TR310 BR TO CONTINUE PROCESSING OCB27150 2716 | * OCB27160 2717 | * PREPARE TO TRANSFER DATA WD TO CIB OR OCB27170 2718 | * TO WORKING STORAGE OCB27180 2719 | * OCB27190 0855 C3BC 2720 | TR290 LD 3 LACTR COMPUTE WHICH CIB SECTOR OCB27200 0856 93F4 2721 | S 3 MLWD1 *DATA WD TO BE STORED IN OCB27210 0857 8103 2722 | A 1 @HWCT-@CMON ADJST FOR CI HDR 2-11 OCB27220 0858 1890 2723 | TR310 SRT 16 OCB27230 0859 AB97 2724 | D 3 K320 OCB27240 085A 9306 2725 | TR315 S 3 SCTRX OCB27250 085B DB84 2726 | STD 3 NAME2 BRANCH IF DESIRED SECTOR IS OCB27260 085C 4C18 087C 2727 | BSC L TR370,+- *ALREADY IN CIB BUFFER OCB27270 085E 8306 2728 | A 3 SCTRX REPLACE OLD SECTOR NO. OCB27280 085F D306 2729 | STO 3 SCTRX *WITH ONE JUST COMPUTED OCB27290 0860 C3E1 2730 | LD 3 LSW09 OCB27300 0861 4C28 086A 2731 | BSC L TR330,Z+ BR UNLESS PROCESSING LOCALS OCB27310 2732 | * OCB27320 2733 | * CHECK FOR SUFFICIENT WORKING STORAGE OCB27330 2734 | * OCB27340 0863 C600 05A1 2735 | LD L2 SCTAD+X3 2-11 OCB27350 0865 E39C 2736 | AND 3 K0FFF OCB27360 0866 8306 2737 | A 3 SCTRX OCB27370 0867 9308 2738 | S 3 SLIMT BRANCH IF INSUFFICIENT OCB27380 0868 4C30 0884 2739 | BSC L TR410,Z- *WORKING STORAGE OCB27390 086A C3EC 2740 | TR330 LD 3 LSW20 BRANCH 1ST TIME THIS OCB27400 086B 4C18 0871 2741 | BSC L TR350,+- *WORD IS CHECKED OCB27410 2742 | * OCB27420 2743 | * WRITE OUT PRESENT CONTENTS OF CIB OCB27430 2744 | * BUFFER ON THE CIB OR ON WORKING STORAGE OCB27440 2745 | * OCB27450 086D C3A3 2746 | LD 3 CIBBF WRITE PRESENT CONTENTS OF OCB27460 086E 18D0 2747 | RTE 16 *CIB BUFFER ON THE CIB OCB27470 086F C38E 2748 | LD 3 K1 *OR ON WORKING STORAGE OCB27480 0870 418F 2749 | BSI 1 GP000-@CMON OUT TO WRITE 2-11 OCB27490 2750 | * OCB27500 2751 | * PLACE THE DATA WORD IN THE CIB BUFFER OCB27510 2752 | * OCB27520 0871 C306 2753 | TR350 LD 3 SCTRX COMPUTE AND STORE DESIRED OCB27530 0872 8019 2754 | A TR920 *DISK SECTOR ADDRESS OCB27540 0873 D400 0D25 2755 | STO L BUFCI+1 OCB27550 2756 | * 1 INSTRUCTION MOVED 2-11 OCB27560 0875 C3A3 2757 | LD 3 CIBBF OCB27570 0876 1890 2758 | SRT 16 OCB27580 0877 7400 058C 2759 | MDX L LSW20+X3,0 SKIP 1ST TIME THRU 2-11 OCB27590 0879 418F 2760 | BSI 1 GP000-@CMON FETCH DESIRED SECTOR2-11 OCB27600 087A 6C00 058C 2761 | STX L0 LSW20+X3 SET 1ST TIME SWITCH 2-11 OCB27610 087C C385 2762 | TR370 LD 3 NAME2+1 OCB27620 087D 83A3 2763 | A 3 CIBBF COMPUTE ADDR IN CIB BFR OF OCB27630 087E 838F 2764 | A 3 K2 OCB27640 087F D002 2765 | STO TR390+1 *DATA WORD TO BE WRITTEN OCB27650 0880 C3A8 2766 | LD 3 DATWD OCB27660 0881 D400 0000 2767 | TR390 STO L *-* STORE DATA WORD IN CIB BFR OCB27670 0883 70AE 2768 | MDX TR180 TO EXIT OCB27680 0884 6200 2769 | TR410 LDX 2 MSG00 INSUFFICIENT WKNG STORAGE OCB27690 0885 70B5 2770 | MDX TR200+1 PRNT MSG R00 AND EXIT 2-11 OCB27700 2771 | * 2-2 OCB27710 2772 | * PREPARE TO PUT DATA WD IN HIGH COMMON 2-2 OCB27720 2773 | * 2-2 OCB27730 0886 938E 2774 | TR430 S 3 K1 2-2 OCB27740 0887 1890 2775 | SRT 16 2-2 OCB27750 0888 AB97 2776 | D 3 K320 COMPUTE SCTR NUMBER OF 2-2 OCB27760 0889 8004 2777 | A TR940 *SCTRS IN CIB 2-2 OCB27770 088A 70CF 2778 | MDX TR315 BR TO LOOK IF SCTR IS IN2-2 OCB27780 2779 | * 2-2 OCB27790 2780 | * CONSTANTS AND WORK AREAS 2-2 OCB27800 2781 | * OCB27810 088B 007D 2782 | TR910 DC @CLB6 ID NO. OF CLB, PHASE 6 OCB27820 088C 0000 2783 | TR920 DC *-* CIB OR WS BASE DISK ADDR OCB27830 088D 0FFF 2784 | TR930 DC @MCOR-1 MIN CORE SIZE MINUS 1 2-2 OCB27840 088E 000D 2785 | TR940 DC @SCIB-@HCIB ADDR IN CIB OF HI COMM2-2 OCB27850 088F 13C0 2786 | TR950 DC @MCOR+@HCIB*320 ADDR END OF HI COM2-2 OCB27860 CORE LOAD BUILDER, PHASE 2 2788 | * FILL IN EXIT CTL WORDS FOR TYPE 3 PROGRAMS OCB27880 2789 | * OCB27890 2790 | * OCB27900 0890 0000 2791 | XC000 DC *-* OCB27910 0891 690C 2792 | STX 1 XC050+1 SAVE XR1 OCB27920 0892 6A0D 2793 | STX 2 XC050+3 SAVE XR2 OCB27930 0893 C3DB 2794 | LD 3 LSW03 BR IF PROCESSING ML, OCB27940 0894 4C20 089D 2795 | BSC L XC050,Z *FLIPPER, OR AN ILS OCB27950 0896 C3E9 2796 | LD 3 LSW17 BRANCH UNLESS THIS IS THE OCB27960 0897 4C18 089D 2797 | BSC L XC050,+- *SECOND PASS OCB27970 0899 C100 2798 | LD 1 @WRD1 FETCH 1ST WORD OF NAME OCB27980 089A 1001 2799 | SLA 1 BR IF SUBROUTINE JUST OCB27990 089B 4C10 08A3 2800 | BSC L XC100,- *RELOCATED WAS A LIBF OCB28000 089D 6500 0000 2801 | XC050 LDX L1 *-* RESTORE XR1 OCB28010 089F 6600 0000 2802 | LDX L2 *-* RESTORE XR2 OCB28020 08A1 4C80 0890 2803 | BSC I XC000 RETURN OCB28030 08A3 6500 0450 2804 | XC100 LDX L1 ENTPT ADDR ENTRY PT TABLE TO XR1 OCB28040 08A5 6680 0596 2805 | LDX I2 NOPTS+X3 NO. ENTRY POINTS TO XR2 OCB28050 08A7 C103 2806 | XC170 LD 1 @WRD4 BR IF CURRENT ENTRY POINT OCB28060 08A8 4C18 08B1 2807 | BSC L XC200,+- *WAS NOT REFERENCED OCB28070 08AA C102 2808 | LD 1 @WRD3 FETCH RELATIVE EXEC ADDR OCB28080 08AB 83BD 2809 | A 3 LADDR COMPUTE ABSOLUTE ENTRY ADDR OCB28090 08AC 838F 2810 | A 3 K2 COMPUTE AND STORE ABSOLUTE OCB28100 08AD D3BC 2811 | STO 3 LACTR *ADDR OF EXIT CONTROL WORD OCB28110 08AE C103 2812 | LD 1 @WRD4 FETCH ADDR OF LIBF TV ENTRY OCB28120 08AF 4400 07E7 2813 | BSI L TR000 FILL IN EXIT CONTROL WORD OCB28130 08B1 7104 2814 | XC200 MDX 1 4 OCB28140 08B2 72FF 2815 | MDX 2 -1 SKIP AFTER LAST ENTRY POINT OCB28150 08B3 70F3 2816 | MDX XC170 BR TO CONTINUE PROCESSING OCB28160 08B4 70E8 2817 | MDX XC050 BR IF ALL LIBFS PROCESSED OCB28170 CORE LOAD BUILDER, PHASE 2 08B5 2819 | BSS /08B6-* PATCH AREA 2-11 OCB28190 2820 | * 2-8 OCB28200 2821 | ************************************************2-8 OCB28210 2822 | * 2-8 OCB28220 2823 | * THE PRECEDING PORTION OF PHASE 2 REMAINS IN 2-8 OCB28230 2824 | * CORE FOR THE REMAINDER OF THE CORE LOAD BUILD2-8 OCB28240 2825 | * PROCESS. THE REMAINING PORTION OF PHASE 2 2-8 OCB28250 2826 | * IS OVERLAID BY SUBSEQUENT PHASES. 2-8 OCB28260 2827 | * 2-8 OCB28270 2828 | ************************************************2-8 OCB28280 CORE LOAD BUILDER, PHASE 2 2830 | * SAVE THE DEFINE FILE TABLE IN TEMPORARY STORAGE OCB28300 2831 | * PRIOR TO FILLING IN THE SECTOR ADDRESSES OCB28310 2832 | * OCB28320 08B6 2833 | BSS E 0 OCB28330 08B6 0000 2834 | MV000 DC *-* ENTRY POINT OCB28340 08B7 C054 2835 | LD MV900 BRANCH AFTER 1ST TIME OCB28350 08B8 4C20 08CB 2836 | BSC L MV080,Z *THIS SUBROUTINE IS ENTERED OCB28360 08BA C400 048B 2837 | LD L @FILE OCB28370 08BC A393 2838 | M 3 K7 COMPUTE AND STORE LENGTH OCB28380 08BD 1090 2839 | SLT 16 OCB28390 08BE D04D 2840 | STO MV900 *OF DEFINE FILE TABLE OCB28400 08BF D04D 2841 | STO MV920 OCB28410 08C0 83BC 2842 | A 3 LACTR SAVE LACTR SETTING FOR E2-2 OCB28420 08C1 D04D 2843 | STO MV940 *OF DEFINE FILE TABLE 2-2 OCB28430 08C2 7400 0589 2844 | MDX L LSW17+X3,0 SKIP DURING 1ST PASS OCB28440 08C4 7002 2845 | MDX MV060 BR DURING 2ND PASS OCB28450 08C5 C3BD 2846 | LD 3 LADDR OCB28460 08C6 D048 2847 | STO MV940 OCB28470 08C7 C3C8 2848 | MV060 LD 3 LEFTX PREPARE TO SAVE TABLE OCB28480 08C8 9043 2849 | S MV900 *TEMPORARILY IN UNUSED OCB28490 08C9 D008 2850 | STO MV100+1 *LOAD TABLE AREA OCB28500 08CA D3A9 2851 | STO 3 DFADR OCB28510 08CB 7400 0589 2852 | MV080 MDX L LSW17+X3,0 SKIP DURING FIRST PASS OCB28520 08CD 7005 2853 | MDX MV120 BR DURING 2ND PASS OCB28530 2854 | * OCB28540 2855 | * MOVE 1 WORD OF DEFINE FILE TABLE OCB28550 2856 | * OCB28560 08CE C382 2857 | LD 3 NAME OCB28570 08CF 7401 090F 2858 | MDX L MV940,1 INCREMENT AUXILLIARY LACTR OCB28580 08D1 D400 0000 2859 | MV100 STO L *-* SAVE 1 WD OF FILE TABLE OCB28590 08D3 C0FE 2860 | MV120 LD MV100+1 OCB28600 08D4 838E 2861 | A 3 K1 OCB28610 08D5 D0FC 2862 | STO MV100+1 OCB28620 08D6 93C8 2863 | S 3 LEFTX BRANCH AFTER LAST WORD OF OCB28630 08D7 4C18 08DB 2864 | BSC L MV250,+- *TABLE HAS BEEN MOVED OCB28640 08D9 4C80 08B6 2865 | MV150 BSC I MV000 RETURN OCB28650 08DB C3E9 2866 | MV250 LD 3 LSW17 OCB28660 08DC 4C18 08E1 2867 | BSC L MV270,+- BR DURING 1ST PASS OCB28670 08DE C030 2868 | LD MV940 OCB28680 08DF D3BC 2869 | STO 3 LACTR OCB28690 08E0 7026 2870 | MDX MV380 BR WHEN DF TABLE MOVED OCB28700 2871 | * OCB28710 2872 | * PROCESS THE DEFINE FILE TABLE OCB28720 2873 | * OCB28730 08E1 406E 2874 | MV270 BSI DF000 PROCESS FILES IN UA/FX 2-9 OCB28740 08E2 C3EE 2875 | LD 3 LSW22 GET LET/FLET INDR +BR 212 OCB28750 08E3 4C28 0907 2876 | BSC L MV380,+Z *IF FILE NOT IN LET/FLET212 OCB28760 08E5 C3EB 2877 | LD 3 LSW19 OCB28770 08E6 D027 2878 | STO MV930 SAVE LOCAL/SOCAL SWITCH OCB28780 08E7 1810 2879 | SRA 16 OCB28790 08E8 D3EB 2880 | STO 3 LSW19 CLEAR LOCAL/SOCAL SWITCH OCB28800 08E9 C400 0005 2881 | LD L $CIBA OCB28810 08EB D400 0D25 2882 | STO L BUFCI+1 SECTOR ADDR TO CIB BUFFER OCB28820 08ED C3F1 2883 | LD 3 LTYPE LOAD PROGRAM TYPE 2-4 OCB28830 08EE 938E 2884 | S 3 K1 IS IT ABS MAINLINE 2-4 OCB28840 08EF 4C18 08F3 2885 | BSC L MV280,+- YES - BRANCH 2-9 OCB28850 08F1 C3BD 2886 | LD 3 LADDR SET LOCN ADDR CTR TO ADDR OCB28860 08F2 7001 2887 | MDX MV290 *SKIP TO STORE 2-9 OCB28870 08F3 C3F4 2888 | MV280 LD 3 MLWD1 1ST WD FOR ABS ML 2-9 OCB28880 08F4 D3BC 2889 | MV290 STO 3 LACTR ADDR OF DEFINE FILE TABL2-9 OCB28890 08F5 C3A9 2890 | LD 3 DFADR PRESET TEMP ADDR OF 2-9 OCB28900 08F6 D001 2891 | STO MV310+1 *1ST DEFINE FILE TBL ENTRY OCB28910 2892 | * OCB28920 2893 | * OUTPUT DEFINE FILE TABLE AFTER PROCESSING OCB28930 2894 | * OCB28940 08F7 C400 0000 2895 | MV310 LD L *-* FETCH WD FROM DEFINE FILE OCB28950 08F9 4400 07E7 2896 | BSI L TR000 WRITE IT ON THE CIB OCB28960 08FB 7401 08F8 2897 | MDX L MV310+1,1 OCB28970 08FD 74FF 090D 2898 | MDX L MV920,-1 SKIP AT END OF DF TABLE OCB28980 08FF 70F7 2899 | MDX MV310 BACK TO MOVE 1 WD OF TABLE OCB28990 0900 C3A3 2900 | LD 3 CIBBF OCB29000 0901 18D0 2901 | RTE 16 OCB29010 0902 C38E 2902 | LD 3 K1 OCB29020 0903 4400 0418 2903 | BSI L GP000 OUTPUT FILES DATA TO CIB OCB29030 0905 C008 2904 | LD MV930 OCB29040 0906 D3EB 2905 | STO 3 LSW19 RESTORE LOCAL/SOCAL SWITCH OCB29050 0907 C38E 2906 | MV380 LD 3 K1 1 TO SW 6, I.E. TABLE HAS OCB29060 0908 D3DE 2907 | STO 3 LSW06 *BEEN PROCESSED OCB29070 0909 C38D 2908 | LD 3 K0 CLEAR FOR RE-ENTRY OCB29080 090A D001 2909 | STO MV900 OCB29090 090B 70CD 2910 | MDX MV150 TO EXIT OCB29100 2911 | * OCB29110 2912 | * CONSTANTS AND WORK AREAS OCB29120 2913 | * OCB29130 090C 0000 2914 | MV900 DC 0 SWITCH--NON-ZERO AFTER 1ST TIME OCB29140 090D 0000 2915 | MV920 DC *-* NO. FILES DEFINED OCB29150 090E 0000 2916 | MV930 DC *-* WASTEBASKET OCB29160 090F 0000 2917 | MV940 DC *-* AUXILLIARY LOCATION ADDR CTR OCB29170 CORE LOAD BUILDER, PHASE 2 2919 | * CHECK MAINLINE LOADING ADDRESS OCB29190 2920 | * OCB29200 0910 0000 2921 | ML000 DC *-* ENTRY POINT OCB29210 0911 691A 2922 | STX 1 ML100+1 SAVE XR1 OCB29220 0912 C3BC 2923 | LD 3 LACTR SAVE ADDRESS OF 1ST OCB29230 0913 D386 2924 | STO 3 RNAME OCB29240 0914 D3F4 2925 | STO 3 MLWD1 *WORD OF MAINLINE OCB29250 0915 D3D1 2926 | STO 3 LOADR OCB29260 0916 9400 048C 2927 | S L @HWCT OCB29270 0918 D400 048E 2928 | STO L @LDAD OCB29280 091A 1010 2929 | SLA 16 OCB29290 091B C400 048A 2930 | LD L @DREQ FETCH DISK REQUESTED CODE OCB29300 091D 4C10 0921 2931 | BSC L ML050,- BR UNLESS DISKZ UTILIZED OCB29310 091F 4C02 0928 2932 | BSC L ML070,C BR IF LOADING ADDR ODD OCB29320 0921 6580 048A 2933 | ML050 LDX I1 @DREQ DISK REQUESTED CODE TO XR1 OCB29330 0923 C500 0598 2934 | LD L1 ORGIN+X3 FETCH LOWEST ALLOWABLE ORG OCB29340 0925 93F4 2935 | S 3 MLWD1 BRANCH IF REQUESTED TO OCB29350 0926 4C08 092B 2936 | BSC L ML100,+ *ORIGIN BELOW DISK I/O OCB29360 0928 622E 2937 | ML070 LDX 2 MSG46 INVALID ORG OCB29370 0929 4400 0407 2938 | BSI L TL000 PRINT MESSAGE AND EXIT OCB29380 092B 6500 0000 2939 | ML100 LDX L1 *-* RESTORE XR1 OCB29390 092D 4C80 0910 2940 | BSC I ML000 RETURN OCB29400 CORE LOAD BUILDER, PHASE 2 2942 | * CHECK LENGTH OF MAINLINE COMMON OCB29420 2943 | * OCB29430 092F 0000 2944 | CK000 DC *-* ENTRY POINT OCB29440 0930 690B 2945 | STX 1 CK100+1 SAVE XR1 OCB29450 0931 C38D 2946 | LD 3 K0 CLEAR SW 3 OCB29460 0932 D3DB 2947 | STO 3 LSW03 OCB29470 0933 C400 0489 2948 | LD L @CMON BR IF COMMON IS OCB29480 0935 4C10 093F 2949 | BSC L CK150,- *NON-NEGATIVE OCB29490 0937 D386 2950 | CK050 STO 3 RNAME SAVE EXCESS COMMON OCB29500 0938 622F 2951 | LDX 2 MSG47 COMMON TOO LONG OCB29510 0939 4400 0426 2952 | BSI L PM000 PRINT ERROR MESSAGE OCB29520 093B 6500 0000 2953 | CK100 LDX L1 *-* RESTORE XR1 OCB29530 093D 4C80 092F 2954 | BSC I CK000 RETURN OCB29540 093F C400 000E 2955 | CK150 LD L $CORE OCB29550 0941 9400 0489 2956 | S L @CMON OCB29560 0943 6580 0012 2957 | LDX I1 $DREQ DISK TYPE CODE TO XR1 OCB29570 0945 9500 094E 2958 | S L1 CK930 BR UNLESS COMMON EXTENDS OCB29580 0947 4C10 093B 2959 | BSC L CK100,- *TOO FAR LEFTWARD OCB29590 0949 F002 2960 | EOR CK920 COMPLEMENT EXCESS COMMON OCB29600 094A 838E 2961 | A 3 K1 OCB29610 094B 70EB 2962 | MDX CK050 BR TO PRINT ERROR MESSAGE OCB29620 2963 | * OCB29630 2964 | * CONSTANTS AND WORK AREAS OCB29640 2965 | * OCB29650 094C FFFF 2966 | CK920 DC /FFFF CONSTANT FOR COMPLEMENTING OCB29660 094D 0380 2967 | DC @COMZ LOW COMMON LIMIT FOR DISKZ OCB29670 094E 04C0 2968 | CK930 DC @COM1 LOW COMMON LIMIT FOR DISK1 OCB29680 094F 0600 2969 | DC @COM2 LOW COMMON LIMIT FOR DISKN OCB29690 CORE LOAD BUILDER, PHASE 2 2971 | * PUT SECTOR ADDRESSES IN THE DEFINE FILE TABLE OCB29710 2972 | * OCB29720 0950 0000 2973 | DF000 DC *-* ENTRY POINT OCB29730 0951 6960 2974 | STX 1 DF125+1 SAVE XR1 OCB29740 0952 6A61 2975 | STX 2 DF125+3 SAVE XR2 OCB29750 0953 6500 09FC 2976 | LDX L1 DF910 PNT XR1 TO CONSTANTS 2-11 OCB29760 0955 C3B9 2977 | LD 3 INDEX SAVE POINTER FOR MAINLINE OCB29770 0956 D100 2978 | STO 1 DF910-DF910 2-11 OCB29780 0957 C400 0BE3 2979 | LD L BUFLO+1 SAVE ADDR FROM DATA BUFFER OCB29790 0959 D105 2980 | STO 1 DF960-DF910 2-11 OCB29800 095A C3CE 2981 | LD 3 LMPSW SAVE MAP SWITCH OCB29810 095B D103 2982 | STO 1 DF940-DF910 2-11 OCB29820 095C C400 048B 2983 | LD L @FILE INITIALIZE COUNTER WITH OCB29830 095E D1FF 2984 | STO 1 DF900-DF910 2-11 OCB29840 2985 | * OCB29850 2986 | * FETCH THE DEFINE FILE EQUATE TABLE OCB29860 2987 | * OCB29870 095F 6580 0549 2988 | LDX I1 DFADR+X3 ADDR DEFINE FILE TBL TO XR1 OCB29880 0961 C3CA 2989 | LD 3 LFCNT OCB29890 0962 4C18 0993 2990 | BSC L DF070,+- BR IF NO FILES EQUATED 2-8 OCB29900 0964 6600 0BE2 2991 | LDX L2 BUFLO START OF BUFFER TO XR2 OCB29910 0966 C3D8 2992 | LD 3 LSCRA FETCH AND STORE SECTOR OCB29920 0967 8400 09FD 2993 | A L DF920 ADD IN OFFSET OCB29930 0969 D201 2994 | STO 2 1 *ADDR OF SCRA OCB29940 096A C3A4 2995 | LD 3 CIBLM CHECK IF MINIMUM 2-11 OCB29950 096B 180C 2996 | SRA 12 *CORE SIZE 2-11 OCB29960 096C 4820 2997 | BSC Z SKIP IF 4K SYSTEM 2-11 OCB29970 096D C397 2998 | LD 3 K320 **READ 2 SECTORS IF NOT2-11 OCB29980 096E 8397 2999 | A 3 K320 **4K.IF 4K,ONLY READ 1.2-11 OCB29990 096F D200 3000 | STO 2 0 *BOTH SECTORS OCB30000 0970 C3D2 3001 | LD 3 LOBUF OCB30010 0971 1890 3002 | SRT 16 OCB30020 0972 4400 0418 3003 | BSI L GP000 FETCH DF EQUATE TABLE OCB30030 0974 C397 3004 | LD 3 K320 RESTORE WORD COUNT OCB30040 0975 D200 3005 | STO 2 0 *OF 320 TO DATA BUFFER OCB30050 0976 7203 3006 | MDX 2 3 ADDR 1ST DATA WD TO XR2 OCB30060 0977 C2FF 3007 | LD 2 -1 FETCH WD CNT FOR EQU BLOCK OCB30070 0978 938E 3008 | S 3 K1 SUB ONE 2-9 OCB30080 0979 D400 0A00 3009 | STO L DF950 SAVE WORD COUNT OCB30090 3010 | * CODE REMOVED 2-8 OCB30100 3011 | * 2-9 OCB30110 3012 | * OCB30120 3013 | * COMPARE ENTRIES IN EQUATE TABLE WITH OCB30130 3014 | * THOSE IN DEFINE FILE TABLE OCB30140 3015 | * OCB30150 097B C200 3016 | DF040 LD 2 @EQNO BR IF A DEFINED FILE NO. OCB30160 097C 9100 3017 | S 1 @FLNR *EQUALS A NO. FROM THE OCB30170 097D 4C18 0A05 3018 | BSC L DF195,+- *EQUATE TABLE 2-9 OCB30180 097F 7107 3019 | DF050 MDX 1 @DFEN POINT TO NEXT FILE NO. OCB30190 0980 C38D 3020 | LD 3 K0 OCB30200 0981 D3B6 3021 | STO 3 IGNOR OCB30210 0982 74FF 09FB 3022 | MDX L DF900,-1 SKIP ON LAST FILE NO. OCB30220 0984 70F6 3023 | MDX DF040 BACK TO MAKE NEXT COMPARE OCB30230 0985 C3EE 3024 | LD 3 LSW22 GET LET/FLET INDR 212 OCB30240 0986 4C20 09B1 3025 | BSC L DF125,Z BR IF FILES NOT FOUND 212 OCB30250 0988 6580 0549 3026 | LDX I1 DFADR+X3 ADDR DEFINE FILE TBL TO XR1 OCB30260 098A C400 048B 3027 | LD L @FILE INITIALIZE COUNTER WITH OCB30270 098C D06E 3028 | STO DF900 *NO. OF FILES DEFINED OCB30280 098D 7204 3029 | DF060 MDX 2 @EQEN OCB30290 098E C38D 3030 | LD 3 K0 OCB30300 098F D3B6 3031 | STO 3 IGNOR OCB30310 0990 74FC 0A00 3032 | MDX L DF950,-@EQEN SKIP ON LAST ENTRY OCB30320 0992 70E8 3033 | MDX DF040 BACK TO MAKE NEXT COMPARE OCB30330 0993 C400 007A 3034 | DF070 LD L $WSDR 2-8 OCB30340 0995 D3B6 3035 | STO 3 IGNOR WS DRIVE FOR FILES OCB30350 3036 | * OCB30360 3037 | * FIND SECTOR ADDRESSES NOT YET FILLED IN OCB30370 3038 | * OCB30380 0996 C104 3039 | DF080 LD 1 @SCAD BR IF SCTR ADDR FOR CURRENT OCB30390 0997 4418 09B7 3040 | BSI L DF135,+- *FILE NOT YET FILLED IN OCB30400 0999 7107 3041 | DF100 MDX 1 @DFEN POINT TO NEXT FILE NO. OCB30410 099A 74FF 09FB 3042 | MDX L DF900,-1 SKIP ON LAST DEFINE FILE OCB30420 099C 70F9 3043 | MDX DF080 BR TO CHECK NEXT FILE OCB30430 099D C38D 3044 | LD 3 K0 OCB30440 099E D3DA 3045 | STO 3 LSW02 STORAGE ALLOCATION SWITCH OCB30450 099F 4400 0A81 3046 | BSI L FM000 PRINT 'STORAGE ALLOCATION' OCB30460 09A1 C397 3047 | LD 3 K320 RESTORE WORD COUNT OCB30470 09A2 D400 0D24 3048 | STO L BUFCI *TO CIB BUFFER OCB30480 09A4 C05C 3049 | LD DF960 OCB30490 09A5 D400 0BE3 3050 | STO L BUFLO+1 OCB30500 09A7 C054 3051 | LD DF910 RESTORE POINTER OCB30510 09A8 D3B9 3052 | STO 3 INDEX OCB30520 09A9 C3D2 3053 | LD 3 LOBUF OCB30530 09AA 1890 3054 | SRT 16 OCB30540 09AB D3B6 3055 | STO 3 IGNOR OCB30550 09AC 4400 0418 3056 | BSI L GP000 RESTORE DATA BUFFER OCB30560 09AE C780 0016 3057 | LD I3 WSADR FETCH AND STORE SCTR CNT OF OCB30570 09B0 D3B0 3058 | STO 3 FSCTR *FILES IN SYSTEM WS OCB30580 09B1 6500 0000 3059 | DF125 LDX L1 *-* RESTORE XR1 OCB30590 09B3 6600 0000 3060 | LDX L2 *-* RESTORE XR2 OCB30600 09B5 4C80 0950 3061 | BSC I DF000 RETURN OCB30610 3062 | * OCB30620 3063 | * PROCESS CURRENT WORKING STORAGE FILE OCB30630 3064 | * OCB30640 09B7 0000 3065 | DF135 DC 0 SWITCH FOR DIRECTION OCB30650 09B8 C106 3066 | DF140 LD 1 @BCNT COMPUTE NEXT AVAILABLE SCTR OCB30660 09B9 6A1F 3067 | STX 2 DF170+1 OCB30670 09BA 6680 0556 3068 | LDX I2 IGNOR+X3 OCB30680 09BC 839E 3069 | A 3 BLCKS OCB30690 09BD 1804 3070 | SRA 4 OCB30700 09BE 8600 05A1 3071 | A L2 SCTAD+X3 OCB30710 09C0 D03D 3072 | STO DF930 OCB30720 09C1 E39C 3073 | AND 3 K0FFF OCB30730 09C2 9308 3074 | S 3 SLIMT OCB30740 09C3 4C10 09DF 3075 | BSC L DF180,- BR IF NO WS REMAINS 2-10 OCB30750 09C5 C307 3076 | LD 3 SHORT OCB30760 09C6 D3DC 3077 | STO 3 LSW04 CALL FOR SHORT MAP LINE OCB30770 09C7 C600 05A1 3078 | DF160 LD L2 SCTAD+X3 FILL IN THE STARTING ADDR OCB30780 09C9 D104 3079 | STO 1 @SCAD *FOR CURRENT FILE (IN WS) OCB30790 09CA C033 3080 | LD DF930 OCB30800 09CB D600 05A1 3081 | STO L2 SCTAD+X3 OCB30810 09CD C031 3082 | LD DF940 RESTORE MAP SWITCH OCB30820 09CE D3CE 3083 | STO 3 LMPSW OCB30830 09CF C104 3084 | LD 1 @SCAD FETCH SECTOR ADDR OCB30840 09D0 E39A 3085 | AND 3 KF000 DOUBLE THE DRIVE 2-3 OCB30850 09D1 8104 3086 | A 1 @SCAD *CODE 2-10 OCB30860 09D2 9600 0095 3087 | S L2 $FPAD RELATIVEIZE SCTR ADDR TO OCB30870 09D4 EB99 3088 | OR 3 K8000 *BEGINNING OF WKNG STORAGE OCB30880 09D5 D104 3089 | STO 1 @SCAD OCB30890 09D6 4400 0A81 3090 | BSI L FM000 PRINT A LINE OF FILE MAP OCB30900 09D8 6600 0000 3091 | DF170 LDX L2 *-* RESTORE XR2 OCB30910 09DA C0DC 3092 | LD DF135 OCB30920 09DB 9028 3093 | S DF996 OCB30930 09DC 4C98 09B7 3094 | BSC I DF135,+- BR IF EQUATED FILE IN WS OCB30940 09DE 7073 3095 | MDX DF270 BR TO PROCESS NEXT FILE OCB30950 3096 | * OCB30960 3097 | * TRUNCATE CURRENT WORKING STORAGE FILE, OCB30970 3098 | * IF POSSIBLE OCB30980 3099 | * OCB30990 09DF C3B6 3100 | DF180 LD 3 IGNOR OCB31000 09E0 100C 3101 | SLA 12 OCB31010 09E1 EB08 3102 | OR 3 SLIMT OCB31020 09E2 838E 3103 | A 3 K1 COMPUTE SA OF END 2-9 OCB31030 09E3 D01A 3104 | STO DF930 *OF DISK. OCB31040 09E4 9600 05A1 3105 | S L2 SCTAD+X3 FIND LENGTH OF FILE AND OCB31050 09E6 1004 3106 | SLA 4 *COMPUTE FILE INFORMATION. OCB31060 09E7 D106 3107 | STO 1 @BCNT STORE FILE BLOCK COUNT OCB31070 09E8 A105 3108 | M 1 @RCSC OCB31080 09E9 108C 3109 | SLT 12 OCB31090 09EA D101 3110 | STO 1 @RCCT STORE SECTOR COUNT OCB31100 09EB C3D4 3111 | LD 3 LONGX OCB31110 09EC D3DC 3112 | STO 3 LSW04 CALL FOR LONG MAP LINE OCB31120 09ED C106 3113 | LD 1 @BCNT ERROR IF NO WS LEFT 2-10 OCB31130 09EE 4C18 09F3 3114 | BSC L DF190,+- *FOR THIS FILE 2-10 OCB31140 09F0 4400 0A70 3115 | BSI L TF000 BR TO TRUNCATE FILE OCB31150 09F2 70D4 3116 | MDX DF160 BR TO FILL IN SCTR ADDR OCB31160 3117 | * OCB31170 3118 | * INSUFFICIENT WORKING STORAGE FOR FILE(S) OCB31180 3119 | * OCB31190 09F3 6202 3120 | DF190 LDX 2 MSG02 FILE(S) EXCEED WORK STORAGE OCB31200 09F4 4400 0426 3121 | BSI L PM000 PRINT MESSAGE R02 OCB31210 09F6 C00C 3122 | LD DF995 OCB31220 09F7 D0FC 3123 | STO DF190+1 OCB31230 09F8 6680 0556 3124 | LDX I2 IGNOR+X3 RESTORE XR2 OCB31240 09FA 70CC 3125 | MDX DF160 BACK TO FILL IN SECTOR ADDR OCB31250 3126 | * OCB31260 3127 | * CONSTANTS AND WORK AREAS OCB31270 3128 | * OCB31280 09FB 0000 3129 | DF900 DC *-* NO. FILES DEFINED OCB31290 09FC 0000 3130 | DF910 DC *-* TEMPORARY STORE FOR DATA BUFFER OCB31300 09FD 0004 3131 | DF920 DC @DFOF CONSTANT OCB31310 09FE 0000 3132 | DF930 DC *-* WASTEBASKET OCB31320 09FF 0000 3133 | DF940 DC *-* ORIGINAL SETTING OF MAP SWITCH OCB31330 0A00 0000 3134 | DF950 DC *-* DF EQU BLOCK WORD COUNT OCB31340 0A01 0000 3135 | DF960 DC *-* SCTR ADDR FROM DATA BUFFER OCB31350 3136 | * CONSTANTS REMOVED 2-10 OCB31360 0A02 0005 3137 | DF990 DC @MXDR MAX NO. DRIVES SUPPORTED OCB31370 0A03 7003 3138 | DF995 MDX *+3 OCB31380 0A04 0999 3139 | DF996 DC DF100 OCB31390 3140 | * OCB31400 3141 | * PROCESS CURRENT EQUATED FILE OCB31410 3142 | * OCB31420 0A05 C104 3143 | DF195 LD 1 @SCAD IF ZERO FILE HAS NOT 2-10 OCB31430 0A06 4C18 0A0D 3144 | BSC L DF200,+- *BEEN EQUATED BEFORE 2-9 OCB31440 0A08 CA01 3145 | LDD 2 @EQNM GET FILE NAME 2-10 OCB31450 0A09 1082 3146 | SLT 2 *FOR ERROR MSG 2-9 OCB31460 0A0A 6A16 3147 | STX 2 DF209+1 SAVE XR2 2-9 OCB31470 0A0B 6244 3148 | LDX 2 MSG68 POINT TO ERR MSG 2-9 OCB31480 0A0C 7010 3149 | MDX DF208 GO TO SET UP PRINT 2-9 OCB31490 0A0D 690C 3150 | DF200 STX 1 DF207+1 SAVE XR1 OCB31500 0A0E 61FB 3151 | LDX 1 -@MXDR NO. DRIVES TO XR1 OCB31510 0A0F C203 3152 | DF205 LD 2 @EQID COMPARE AN *FILES CART ID OCB31520 0A10 4C18 0A24 3153 | BSC L DF210,+- BRANCH IF NO CART ID OCB31530 0A12 9500 0566 3154 | S L1 LCIDN+X3+@MXDR *W/ CART ID ON SYSTEM OCB31540 0A14 4C18 0A24 3155 | BSC L DF210,+- BR IF MATCH OCCURS OCB31550 0A16 7101 3156 | MDX 1 1 SKIP IF NOT MOUNTED OCB31560 0A17 70F7 3157 | MDX DF205 BR TO CHECK NEXT CART ID OCB31570 0A18 C203 3158 | LD 2 @EQID OCB31580 3159 | * CODE MOVED 2-9 OCB31590 0A19 6500 0000 3160 | DF207 LDX L1 *-* RESTORE XR1 OCB31600 0A1B 6A05 3161 | STX 2 DF209+1 SAVE XR2 2-9 OCB31610 0A1C 6227 3162 | LDX 2 MSG39 CARTRIDGE NOT MOUNTED 2-1 OCB31620 0A1D DB86 3163 | DF208 STD 3 RNAME 2-9 OCB31630 0A1E 4400 0426 3164 | BSI L PM000 PRINT ERROR MESSAGE OCB31640 0A20 6600 0000 3165 | DF209 LDX L2 *-* RESTORE XR2 2-9 OCB31650 0A22 4C00 098D 3166 | BSC L DF060 BR TO CHECK NEXT *FILES ENT OCB31660 0A24 69D9 3167 | DF210 STX 1 DF930 OCB31670 0A25 C0D8 3168 | LD DF930 OCB31680 0A26 80DB 3169 | A DF990 INITIALIZE TO START LET OCB31690 0A27 D3B6 3170 | STO 3 IGNOR *SEARCH CORRECTLY OCB31700 0A28 6580 0A1A 3171 | LDX I1 DF207+1 RESTORE XR1 OCB31710 0A2A CA01 3172 | LDD 2 @EQNM 2-10 OCB31720 0A2B 4418 09B7 3173 | BSI L DF135,+- BR IF FILE IN WORK STORAGE OCB31730 0A2D DB82 3174 | STD 3 NAME OCB31740 0A2E 4400 01E4 3175 | BSI L LS000 LOOK UP FILE NAME IN LET OCB31750 3176 | * *UPON RETURN, ACC = 212 OCB31760 3177 | * *LET/FLET INDR (LSW22) 212 OCB31770 0A30 4C20 0410 3178 | BSC L TL100,Z BR IF NOT IN LET 212 OCB31780 0A32 CB82 3179 | LDD 3 NAME OCB31790 0A33 1082 3180 | SLT 2 OCB31800 0A34 DB86 3181 | STD 3 RNAME OCB31810 0A35 C203 3182 | LD 2 @EQID CHECK 2-10 OCB31820 0A36 4C18 0A42 3183 | BSC L DF215,+- *IF SPECIFIED 2-7 OCB31830 0A38 C3AB 3184 | LD 3 DRCDE *CARTRIDGE 2-7 OCB31840 0A39 180C 3185 | SRA 12 *IS SAME AS 2-7 OCB31850 0A3A 93B6 3186 | S 3 IGNOR *ON WHICH FILE IS FOUND 2-7 OCB31860 0A3B 4C18 0A42 3187 | BSC L DF215,+- BRANCH IF YES 2-7 OCB31870 0A3D 6210 3188 | LDX 2 MSG16 PRINT ERROR MESSAGE 2-7 OCB31880 0A3E 4400 0407 3189 | BSI L TL000 *IF NO 2-7 OCB31890 0A40 4400 0410 3190 | BSI L TL100 BR TO EXIT FROM CLB 212 OCB31900 0A42 C3E3 3191 | DF215 LD 3 LSW11 BRANCH IF THIS FILE IS OCB31910 0A43 4C28 0A5A 3192 | BSC L DF600,Z+ *IN THE USER AREA OCB31920 0A45 C3C6 3193 | DF220 LD 3 LDBCT OCB31930 0A46 9106 3194 | S 1 @BCNT OCB31940 0A47 4C28 0A56 3195 | BSC L DF280,+Z BR IF FILE TO BE TRUNCATED OCB31950 0A49 C307 3196 | LD 3 SHORT OCB31960 0A4A D3DC 3197 | STO 3 LSW04 CALL FOR SHORT MAP LINE OCB31970 0A4B C3A1 3198 | DF260 LD 3 BYADR FILL IN THE STARTING SECTOR OCB31980 0A4C 1804 3199 | SRA 4 OCB31990 0A4D D104 3200 | STO 1 @SCAD OCB32000 0A4E C3AB 3201 | LD 3 DRCDE OCB32010 0A4F E904 3202 | OR 1 @SCAD PUT LOGICAL DRIVE CODE IN OCB32020 0A50 D104 3203 | STO 1 @SCAD *1ST CHARACTER OF SCTR ADDR OCB32030 0A51 402F 3204 | BSI FM000 PRNT ALLOCATION OF FILE 2-9 OCB32040 0A52 C0AC 3205 | DF270 LD DF940 RESTORE MAP SWITCH OCB32050 0A53 D3CE 3206 | STO 3 LMPSW OCB32060 0A54 4C00 097F 3207 | BSC L DF050 BACK TO CONTINUE PROCESSING OCB32070 3208 | * OCB32080 3209 | * TRUNCATE CURRENT UA/FXA FILE, IF POSSIBLE OCB32090 3210 | * OCB32100 0A56 C3C6 3211 | DF280 LD 3 LDBCT PUT ADJUSTED NO OF RECORDS OCB32110 0A57 D106 3212 | STO 1 @BCNT *IN DEFINE FILE TABLE OCB32120 0A58 4017 3213 | BSI TF000 BR TO TRUNCATE FILE 2-9 OCB32130 0A59 70F1 3214 | MDX DF260 BR TO FILL IN SCTR ADDR OCB32140 3215 | * OCB32150 3216 | *DO NOT ALLOW A DSF PROGRAM TO BE OCB32160 3217 | *USED AS A DATA FILE OCB32170 3218 | * OCB32180 0A5A 6A13 3219 | DF600 STX 2 DF730+1 SAVE XR2 OCB32190 0A5B C3A1 3220 | LD 3 BYADR BRANCH IF FILE DOES NOT OCB32200 0A5C 100C 3221 | SLA 12 *BEGIN ON SECTOR OCB32210 0A5D 4C18 0A65 3222 | BSC L DF650,+- *BOUNDARY OCB32220 0A5F C3E4 3223 | LD 3 LSW12 OCB32230 0A60 4C28 0A65 3224 | BSC L DF650,Z+ BR IF CI PROG OR DATA OCB32240 0A62 6213 3225 | LDX 2 MSG19 FILE NOT ON SECTOR BOUNDARY OCB32250 0A63 4400 0426 3226 | BSI L PM000 PRINT MESSAGE R19 OCB32260 3227 | * OCB32270 3228 | * DO NOT ALLOW A CORE IMAGE PROGRAM TO REFERENCE OCB32280 3229 | * A FILE STORED IN THE USER AREA OCB32290 3230 | * OCB32300 0A65 C3BF 3231 | DF650 LD 3 LCBSW OCB32310 0A66 4C18 0A6D 3232 | BSC L DF730,+- BR IF LOADING A DSF PROGRAM OCB32320 0A68 6217 3233 | DF700 LDX 2 MSG23 SHOULD BE IN FIXED AREA2-1 OCB32330 0A69 4400 0426 3234 | BSI L PM000 PRINT ERROR MESSAGE OCB32340 0A6B C097 3235 | LD DF995 OCB32350 0A6C D0FC 3236 | STO DF700+1 OCB32360 0A6D 6600 0000 3237 | DF730 LDX L2 *-* OCB32370 0A6F 70D5 3238 | MDX DF220 OCB32380 CORE LOAD BUILDER, PHASE 2 3240 | * TRUNCATE A FILE OCB32400 3241 | * OCB32410 0A70 0000 3242 | TF000 DC *-* OCB32420 0A71 A105 3243 | M 1 @RCSC OCB32430 0A72 108C 3244 | SLT 12 OCB32440 0A73 D101 3245 | STO 1 @RCCT OCB32450 0A74 C3D4 3246 | LD 3 LONGX CALL FOR LONG MAP LINE OCB32460 0A75 D3DC 3247 | STO 3 LSW04 OCB32470 0A76 6A07 3248 | STX 2 TF150+1 SAVE XR2 OCB32480 0A77 6206 3249 | LDX 2 MSG06 OCB32490 0A78 4400 0447 3250 | TF100 BSI L PM300 PRNT ERROR MSG IF MAP REQ-2 OCB32500 0A7A C0FF 3251 | LD *-1 OCB32510 0A7B D0FC 3252 | STO TF100 OCB32520 0A7C D0FC 3253 | STO TF100+1 OCB32530 0A7D 6600 0000 3254 | TF150 LDX L2 *-* RESTORE XR2 OCB32540 0A7F 4C80 0A70 3255 | BSC I TF000 RETURN OCB32550 CORE LOAD BUILDER, PHASE 2 3257 | * MAP THE FILES OCB32570 3258 | * OCB32580 0A81 0000 3259 | FM000 DC *-* ENTRY POINT OCB32590 0A82 C3CE 3260 | LD 3 LMPSW OCB32600 0A83 4C18 0A98 3261 | BSC L FM200,+- BR IF NO MAP REQUESTED OCB32610 0A85 6908 3262 | STX 1 FM100+1 SAVE XR1 OCB32620 0A86 C400 0BE3 3263 | LD L BUFLO+1 OCB32630 0A88 D011 3264 | STO FM900 OCB32640 0A89 6500 0082 3265 | LDX L1 @CLBB OCB32650 0A8B 4400 0380 3266 | BSI L LK000 FETCH PHASE 11 OCB32660 0A8D 6500 0000 3267 | FM100 LDX L1 *-* RESTORE XR1 OCB32670 0A8F 4400 0BE4 3268 | BSI L M1000 PRINT A LINE OCB32680 0A91 C008 3269 | LD FM900 OCB32690 0A92 D400 0BE3 3270 | STO L BUFLO+1 OCB32700 0A94 C3D2 3271 | LD 3 LOBUF OCB32710 0A95 1890 3272 | SRT 16 OCB32720 0A96 4400 0418 3273 | BSI L GP000 RESTORE DATA BUFFER OCB32730 0A98 4C80 0A81 3274 | FM200 BSC I FM000 RETURN OCB32740 3275 | * OCB32750 3276 | * CONSTANTS AND WORK AREAS OCB32760 3277 | * OCB32770 0A9A 0000 3278 | FM900 DC *-* SCTR ADDR FROM DATA BUFFER OCB32780 3279 | * 2-2 OCB32790 0A9B 3280 | BSS /0AA0-* PATCH AREA 2-11 OCB32800 3281 | * 2-2 OCB32810 0A9F 3282 | P2END EQU *-1 OCB32820 CORE LOAD BUILDER, PHASE 3 3284 | *************************************************** OCB32840 3285 | *STATUS -VERSION 2, MODIFICATION LEVEL 12 * OCB32850 3286 | * * OCB32860 3287 | *FUNCTION/OPERATION- * OCB32870 3288 | * * PHASE 3 OVERLAYS UPPER PART OF PHASE 2. IF * OCB32880 3289 | * ANY LOCALS/SOCALS IT IS CALLED INTO CORE * OCB32890 3290 | * MORE THAN ONCE. * OCB32900 3291 | * * HR000-CHECKS THE INFORMATION IN SUBROUTINE* OCB32910 3292 | * HEADER RECORDS ( EXEPT ILS'S) AND STORES * OCB32920 3293 | * IT IN RCOM. * OCB32930 3294 | * * CC000-IS CALLED BY MASTER CONTROL * OCB32940 3295 | * SUBROUTINE TO CONTROL LOADING OF A * OCB32950 3296 | * SUBROUTINE BY TYPE. THE OTHER SUBROUTINES * OCB32960 3297 | * OF THIS PHASE ARE CALLED FROM HERE. * OCB32970 3298 | * * TY000-CHECKS THAT LIBFS ARE REFERENCED BY * OCB32980 3299 | * LIBF AND CALLS BY CALL. NO CHECK DURING * OCB32990 3300 | * 2ND PASS. * OCB33000 3301 | * * SV000-CHECKS WHETHER OR NOT A SUBPROGRAM * OCB33010 3302 | * HAS ALREADY BEEN RELOCATED UNDER A * OCB33020 3303 | * DIFFRENT NAME I.E. ANOTHER ENTRY POINT. * OCB33030 3304 | * * OCB33040 3305 | *ENTRY POINTS- * OCB33050 3306 | * * EACH SUBROUTINE HAS ONLY ONE ENTRY POINT * OCB33060 3307 | * BSI L XX000 * OCB33070 3308 | * WHERE XX000 IS THE FIRST WORD IN THE SUBROUT* OCB33080 3309 | * * OCB33090 3310 | *INPUT- * OCB33100 3311 | * * SUBROUTINE HEADER RECORDS * OCB33110 3312 | * * OCB33120 3313 | *OUTPUT- * OCB33130 3314 | * * INITIALIZED WORDS IN RCOM * OCB33140 3315 | * * OCB33150 3316 | *EXTERNAL REFERENCES- * OCB33160 3317 | * * SUBROUTINES- * OCB33170 3318 | * * LS000-FIND A PROGRAM IN LET/FLET * OCB33180 3319 | * * NW000-FETCH A WORD FROM DATA BUFFER * OCB33190 3320 | * * PM000-FLIPPER FOR PRINTING MESSAGE * OCB33200 3321 | * * RH000-READ PROGRAM HEADER TO DATA BUFFER * OCB33210 3322 | * * TL000-PRINT ERROR MESSAGE AND EXIT * OCB33220 3323 | * * COMMA/DCOM-N/A * OCB33230 3324 | * * OCB33240 3325 | *EXITS- * OCB33250 3326 | * * NORMAL- * OCB33260 3327 | * * BACK TO CALLER VIA FIRST WORD * OCB33270 3328 | * * ERROR- * OCB33280 3329 | * * TO TL000 FDR PRINTING MESSAGES AND EXIT * OCB33290 3330 | * FROM CLB * OCB33300 3331 | * * OCB33310 3332 | *TABLES/WORK AREAS- * OCB33320 3333 | * * LOAD TABLE * OCB33330 3334 | * * RCOM * OCB33340 3335 | * * OCB33350 3336 | *NOTES-N/A * OCB33360 3337 | *************************************************** OCB33370 CORE LOAD BUILDER, PHASE 3 3339 | * PARAMETERS FOR THE SYSTEM LOADER OCB33390 3340 | * OCB33400 08B6 3341 | ORG MV000 OCB33410 *SBRKGL 7A 3342 | *CORE LOAD BUILDER, PHASE 3 V2M03 OCB33420 08B6 01E7 3343 | DC P3END-*-1 PHASE 3 WD CNT OCB33430 08B7 007A 3344 | DC @CLB3 ID NO. OF CLB, PHASE 3 OCB33440 CORE LOAD BUILDER, PHASE 3 3346 | * PROCESS THE PROGRAM HEADER RECORD OCB33460 3347 | * OCB33470 08B8 0000 3348 | HR000 DC *-* ENTRY POINT OCB33480 08B9 6917 3349 | STX 1 HR065+1 SAVE XR1 OCB33490 08BA 6A18 3350 | STX 2 HR065+3 SAVE XR2 OCB33500 08BB 10A0 3351 | SLT 32 OCB33510 08BC D3BA 3352 | STO 3 ISSTV OCB33520 08BD D3A6 3353 | STO 3 CLASS SET CLASS TO ZERO OCB33530 08BE 6580 0559 3354 | LDX I1 INDEX+X3 OCB33540 08C0 C102 3355 | LD 1 @TYPE OCB33550 08C1 1808 3356 | SRA 8 OCB33560 08C2 D3F1 3357 | STO 3 LTYPE SAVE THE PROGRAM TYPE OCB33570 08C3 C102 3358 | LD 1 @PREC OCB33580 08C4 1008 3359 | SLA 8 OCB33590 08C5 D315 3360 | STO 3 WASTE SAVE CURRENT PRECISION OCB33600 08C6 C3F1 3361 | LD 3 LTYPE OCB33610 08C7 938F 3362 | S 3 K2 BR ON MAINLINES OCB33620 08C8 4C08 08CD 3363 | BSC L HR060,+ *I.E., TYPES 1 AND 2 OCB33630 08CA 9391 3364 | S 3 K5 BR UNLESS AN ILS OCB33640 08CB 4C20 08D6 3365 | BSC L HR080,Z *(TYPE 7) PROGRAM OCB33650 08CD 6242 3366 | HR060 LDX 2 MSG66 OCB33660 08CE 4400 0407 3367 | BSI L TL000 PRINT ERROR MESSAGE, EXIT OCB33670 08D0 6500 0000 3368 | HR065 LDX L1 *-* RESTORE XR1 OCB33680 08D2 6600 0000 3369 | LDX L2 *-* RESTORE XR2 OCB33690 08D4 4C80 08B8 3370 | BSC I HR000 RETURN OCB33700 3371 | * OCB33710 3372 | * PROCESS A TYPE 3, 4, 5, OR 6 PROGRAM OCB33720 3373 | * OCB33730 08D6 C38D 3374 | HR080 LD 3 K0 OCB33740 08D7 D3DD 3375 | STO 3 LSW05 OCB33750 08D8 D3DF 3376 | STO 3 LSW07 OCB33760 08D9 C3D5 3377 | LD 3 LPREC OCB33770 08DA 4820 3378 | BSC Z SKIP IF ML PRECISION = ZERO OCB33780 08DB C315 3379 | LD 3 WASTE OCB33790 08DC 4820 3380 | BSC Z SKIP IF CURR PRECISION ZERO OCB33800 08DD 93D5 3381 | S 3 LPREC BRANCH IF ML PRE AND CURR OCB33810 08DE 4C18 08ED 3382 | BSC L HR100,+- *PRECISIONS AGREE OCB33820 08E0 C3D5 3383 | LD 3 LPREC SKIP IF NO MAINLINE 2-5 OCB33830 08E1 4828 3384 | BSC +Z *INTEGER PREC SPECIFIED 2-5 OCB33840 08E2 C315 3385 | LD 3 WASTE ERROR R 21 IF CURRENT 2-5 OCB33850 08E3 4C28 08EA 3386 | BSC L HR090,+Z *INTEGER PREC SPECIFIED 2-5 OCB33860 08E5 C3D5 3387 | LD 3 LPREC COMPARE ONLY REAL 2-5 OCB33870 08E6 F315 3388 | EOR 3 WASTE *PRECISION OF MAINLINE 2-5 OCB33880 08E7 1004 3389 | SLA 4 *AND SUBROUTINE 2-5 OCB33890 08E8 4C18 08ED 3390 | BSC L HR100,+- BRANCH IF SAME 2-5 OCB33900 08EA 6215 3391 | HR090 LDX 2 MSG21 INCONSISTENT PRECISIONS OCB33910 08EB 4400 0426 3392 | BSI L PM000 PRINT MESSAGE R21 OCB33920 08ED C400 0489 3393 | HR100 LD L @CMON BR IF MAINLINE OCB33930 08EF 9104 3394 | S 1 @COMN *COMMON NOT LONGER THAN OCB33940 08F0 4C10 08F5 3395 | BSC L HR110,- *ANY OTHER COMMON OCB33950 08F2 6214 3396 | LDX 2 MSG20 INCONSISTENT COMMON OCB33960 08F3 4400 0426 3397 | BSI L PM000 PRINT MESSAGE R20 OCB33970 08F5 C105 3398 | HR110 LD 1 @LHDR SAVE WD CNT OF VARIABLE OCB33980 08F6 D037 3399 | STO HR930 *LENGTH PART OF HEADER OCB33990 08F7 1890 3400 | SRT 16 OCB34000 08F8 A833 3401 | D HR910 OCB34010 08F9 D3F6 3402 | STO 3 NOPTS SAVE NO. OF ENTRY PTS. OCB34020 08FA 9032 3403 | S HR920 BRANCH IF NO. ENTRY POINTS OCB34030 08FB 4C28 0900 3404 | BSC L HR130,Z+ *IS LESS THAN MAX ALLOWED OCB34040 08FD 6241 3405 | LDX 2 MSG65 OCB34050 08FE 4400 0407 3406 | BSI L TL000 PRINT ERROR MESSAGE, EXIT OCB34060 0900 C3F1 3407 | HR130 LD 3 LTYPE OCB34070 0901 1010 3408 | SLA 16 OCB34080 0902 C38E 3409 | LD 3 K1 OCB34090 0903 4802 3410 | BSC C OCB34100 0904 C38D 3411 | LD 3 K0 SET SWITCH TO INDICATE THAT OCB34110 0905 D029 3412 | STO HR940 *THIS IS A LIBF OCB34120 0906 C3F1 3413 | LD 3 LTYPE OCB34130 0907 9391 3414 | S 3 K5 SKIP ON ISS, I.E., OCB34140 0908 4820 3415 | BSC Z *TYPE 5 AND 6 PROGRAMS OCB34150 0909 938E 3416 | S 3 K1 OCB34160 090A 4C18 095C 3417 | BSC L HR300,+- BR ON ISS PROGRAMS OCB34170 090C C3F1 3418 | LD 3 LTYPE OCB34180 090D 9022 3419 | S HR950 OCB34190 090E 4C18 095C 3420 | BSC L HR300,+- BR IF TYPE 35 OCB34200 3421 | * OCB34210 3422 | * BUILD TABLE OF NAMES,ENTRY PTS.,TV ENTRY ADDR. OCB34220 3423 | * OCB34230 0910 6600 0450 3424 | LDX L2 ENTPT OCB34240 0912 7408 0559 3425 | MDX L INDEX+X3,@NAME-@ZERO-1 OCB34250 0914 4400 0271 3426 | HR150 BSI L NW000 GO GET 1ST PART OF NAME OCB34260 0916 D200 3427 | STO 2 @WRD1 OCB34270 0917 4400 0271 3428 | BSI L NW000 GO GET 2ND PART OF NAME OCB34280 0919 D201 3429 | STO 2 @WRD2 OCB34290 091A 4400 0271 3430 | BSI L NW000 FETCH RELATIVE EXEC ADDR, OCB34300 091C D202 3431 | STO 2 @WRD3 *STORE IN ENTRY PT TBL OCB34310 091D CA00 3432 | LDD 2 @WRD1 OCB34320 091E 9B82 3433 | SD 3 NAME OCB34330 091F 4818 3434 | BSC +- SKIP IF NAMES UNEQUAL OCB34340 0920 18D0 3435 | RTE 16 OCB34350 0921 4C20 0925 3436 | BSC L HR155,Z BRANCH IF NAMES UNEQUAL OCB34360 0923 C202 3437 | LD 2 @WRD3 OCB34370 0924 D3FE 3438 | STO 3 RLXEQ OCB34380 0925 C38D 3439 | HR155 LD 3 K0 OCB34390 0926 D203 3440 | STO 2 @WRD4 OCB34400 0927 7204 3441 | MDX 2 @LTEN SET TO LOOK AT NXT ENT OCB34410 0928 74FD 092E 3442 | MDX L HR930,+@NAME-@ENTY-1 OCB34420 092A 70E9 3443 | MDX HR150 BACK TO MAKE NEXT COMPARE OCB34430 092B 7009 3444 | MDX HR200 BR TO CHECK TYPE, SUBTYPE OCB34440 3445 | * OCB34450 3446 | * CONSTANTS AND WORKING STORAGE OCB34460 3447 | * OCB34470 092C 0003 3448 | HR910 DC @ENTY-@NAME+1 OCB34480 092D 000F 3449 | HR920 DC @MXEP+1 1+MAX NO. ENTRY PTS ALLOWED OCB34490 092E 0000 3450 | HR930 DC *-* NO. HDR WDS LEFT TO PROCESS OCB34500 092F 0000 3451 | HR940 DC *-* SWITCH TO INDICATE LIBF OR CALL OCB34510 0930 0035 3452 | HR950 DC /0035 TYPE FOR 'Z' SUBROUTINES OCB34520 0931 0013 3453 | HR960 DC /0013 TYPE FOR DISK FI/O OCB34530 0932 04A6 3454 | HR970 DC ISTVX-1 ADDR OF ISS TBL MINUS 1 OCB34540 0933 0084 3455 | HR980 DC /0084 TYPE FOR FUNCTIONALS OCB34550 0934 0493 3456 | HR990 DC @ITVX ADDR OF ITV IN CORE IMAGE HDR OCB34560 3457 | * OCB34570 3458 | * CHECK TYPE AND SUBTYPE FOR VALIDITY OCB34580 3459 | * OCB34590 0935 C3F1 3460 | HR200 LD 3 LTYPE OCB34600 0936 74F5 0559 3461 | MDX L INDEX+X3,@ZERO-@ENTY OCB34610 0938 9392 3462 | S 3 K6 OCB34620 0939 4820 3463 | BSC Z SKIP ON TYPE 06 OCB34630 093A 838E 3464 | A 3 K1 OCB34640 093B 4820 3465 | BSC Z SKIP ON TYPE 05 OCB34650 093C 838E 3466 | A 3 K1 OCB34660 093D 4820 3467 | BSC Z SKIP ON TYPE 04 OCB34670 093E 838E 3468 | A 3 K1 OCB34680 093F 4C18 08D0 3469 | BSC L HR065,+- BRANCH ON TYPE 03 OCB34690 0941 C3F1 3470 | LD 3 LTYPE OCB34700 0942 90F0 3471 | S HR980 OCB34710 0943 4C18 094E 3472 | BSC L HR230,+- BRANCH ON TYPE 84 OCB34720 0945 C3F1 3473 | LD 3 LTYPE OCB34730 0946 90EA 3474 | S HR960 OCB34740 0947 4C20 094B 3475 | BSC L *+2,Z BRANCH UNLESS TYPE 13 OCB34750 0949 C390 3476 | LD 3 K3 CLASS 3 OCB34760 094A 7009 3477 | MDX HR250 BR TO STORE CLASS CODE OCB34770 094B 9395 3478 | S 3 K16 OCB34780 094C 4C20 0950 3479 | BSC L *+2,Z BRANCH UNLESS TYPE 23 OCB34790 094E C38E 3480 | HR230 LD 3 K1 TYPE 23, CLASS 1 OCB34800 094F 7004 3481 | MDX HR250 OCB34810 0950 9395 3482 | S 3 K16 OCB34820 0951 4C20 0957 3483 | BSC L HR270,Z BR UNLESS TYPE 33 OCB34830 0953 C38F 3484 | HR240 LD 3 K2 CLASS 2 OCB34840 0954 D3A6 3485 | HR250 STO 3 CLASS OCB34850 0955 4C00 08D0 3486 | BSC L HR065 TO EXIT OCB34860 0957 C3F1 3487 | HR270 LD 3 LTYPE OCB34870 0958 90D7 3488 | S HR950 OCB34880 0959 4C20 08CD 3489 | BSC L HR060,Z BR UNLESS TYPE 35 OCB34890 095B 70F7 3490 | MDX HR240 BR TO STORE CLASS CODE OCB34900 3491 | * OCB34910 3492 | * PROCESS A SUBROUTINE ASSOCIATED WITH AN INTERRUPT OCB34920 3493 | * LEVEL (5). OCB34930 3494 | * OCB34940 095C C10D 3495 | HR300 LD 1 @ISSN COMP, STORE ISS TBL ADDR OCB34950 095D 740A 0559 3496 | MDX L INDEX+X3,@NAME+1-@ZERO 2-10 OCB34960 095F 74FA 092E 3497 | MDX L HR930,+@NAME-@NILS-1 OCB34970 0961 80D0 3498 | A HR970 OCB34980 0962 D3BA 3499 | STO 3 ISSTV OCB34990 0963 D012 3500 | STO HR320+1 OCB35000 0964 6600 0450 3501 | LDX L2 ENTPT ADDR ENTRY PT TBL TO XR2 OCB35010 0966 C38E 3502 | LD 3 K1 OCB35020 0967 D3F6 3503 | STO 3 NOPTS OCB35030 0968 CB82 3504 | LDD 3 NAME STORE THE NAME IN THE OCB35040 0969 DA00 3505 | STD 2 @WRD1 *ENTRY POINT TABLE OCB35050 096A C38D 3506 | LD 3 K0 OCB35060 096B D203 3507 | STO 2 @WRD4 2-10 OCB35070 096C 4400 0271 3508 | BSI L NW000 GET RELATIVE ENTRY 2-7 OCB35080 096E D202 3509 | STO 2 @WRD3 *POINT ADDRESS AND 2-10 OCB35090 096F D3FE 3510 | STO 3 RLXEQ *SAVE IT 2-7 OCB35100 0970 7403 0559 3511 | MDX L INDEX+X3,@NILS-@ENTY 2-10 OCB35110 0972 C3E9 3512 | LD 3 LSW17 OCB35120 0973 4C20 0984 3513 | BSC L HR370,Z BRANCH DURING 2ND PASS OCB35130 3514 | * OCB35140 3515 | * DETERMINE WHETHER ANOTHER VERSION OF OCB35150 3516 | * THIS DEVICE SUBROUTINE ALREADY RELOCATED OCB35160 3517 | * OCB35170 0975 C400 0000 3518 | HR320 LD L *-* FETCH ISS TABLE ENTRY OCB35180 0977 4C20 0987 3519 | BSC L HR440,Z *OF PROGRAM ALREADY LOADED OCB35190 3520 | * OCB35200 3521 | * FLAG THE INTERRUPT LEVELS REQUIRED OCB35210 3522 | * OCB35220 0979 4400 0271 3523 | HR340 BSI L NW000 GO GET ILS LVL OCB35230 097B 80B8 3524 | A HR990 OCB35240 097C D001 3525 | STO *+1 *FOR THIS INTERRUPT LEVEL OCB35250 097D D400 0000 3526 | STO L *-* FLAG THIS ITV ENTRY OCB35260 097F 74FF 092E 3527 | HR350 MDX L HR930,-1 SKIP WHEN NO MORE IL NOS. OCB35270 0981 70F7 3528 | MDX HR340 BR TO PROCESS NEXT WD OCB35280 0982 7103 3529 | MDX 1 @ENTY-@NAME+1 OCB35290 0983 70B1 3530 | MDX HR200 BR TO CHECK TYPE OCB35300 0984 4400 0271 3531 | HR370 BSI L NW000 INCREMENT INDEX POINTER OCB35310 0986 70F8 3532 | MDX HR350 BR IF MORE TO PROCESS OCB35320 3533 | * OCB35330 3534 | * ANOTHER ISS FOR SAME DEVICE HAS OCB35340 3535 | * ALREADY BEEN BUILT INTO THE CORE LOAD OCB35350 3536 | * OCB35360 0987 6680 08D1 3537 | HR440 LDX I2 HR065+1 OCB35370 0989 D202 3538 | STO 2 @WRD3 PUT 1 IN EXEC ADDR OF TV EN OCB35380 098A C38E 3539 | LD 3 K1 1 TO SWITCH 5, I.E., DO OCB35390 098B D3DD 3540 | STO 3 LSW05 *NOT LOAD THIS PROGRAM OCB35400 098C 6A04 3541 | STX 2 HR470+1 SAVE XR2 OCB35410 098D 6216 3542 | LDX 2 MSG22 ANOTHER VERSION LOADED OCB35420 098E 4400 0426 3543 | BSI L PM000 PRINT MESSAGE R22 OCB35430 0990 6600 0000 3544 | HR470 LDX L2 *-* RESTORE XR2 OCB35440 0992 70E6 3545 | MDX HR340 SHOW ENTRY BEEN SERVICED OCB35450 CORE LOAD BUILDER, PHASE 3 3547 | * CONTROL LOADING OF SUBROUTINES BY TYPE OCB35470 3548 | * OCB35480 0993 0000 3549 | CC000 DC *-* ENTRY POINT OCB35490 0994 C101 3550 | LD 1 @WRD2 OCB35500 0995 D383 3551 | STO 3 NAME+1 OCB35510 0996 C38D 3552 | LD 3 K0 ZERO OUT LSW16 OCB35520 0997 D3E8 3553 | STO 3 LSW16 OCB35530 0998 D3D9 3554 | STO 3 LSW01 CLEAR BYPASS SWITCH OCB35540 0999 C3E9 3555 | LD 3 LSW17 OCB35550 099A 4C18 09CF 3556 | BSC L CC160,+- BRANCH DURING 1ST PASS OCB35560 099C C100 3557 | LD 1 @WRD1 BRANCH IF CURRENT PROG OCB35570 099D 4C10 09C6 3558 | BSC L CC120,- *IS NOT A LOCAL OCB35580 099F C3E1 3559 | LD 3 LSW09 BRANCH IF NOT CURRENTLY OCB35590 09A0 4C20 09CC 3560 | BSC L CC140,Z *PROCESSING LOCALS OCB35600 3561 | * OCB35610 3562 | * INITIALIZE FOR PROCESSING LOCALS OCB35620 3563 | * OCB35630 09A2 C398 3564 | LD 3 K4000 INITIALIZE FOR LOCAL OCB35640 09A3 D306 3565 | STO 3 SCTRX *PROCESSING OCB35650 09A4 C3D3 3566 | LD 3 LOCAR SET START OF LOCAL AREA OCB35660 09A5 D3FB 3567 | STO 3 RELOC *IN RELOCATION FACTOR OCB35670 09A6 D3BC 3568 | STO 3 LACTR OCB35680 09A7 C100 3569 | CC040 LD 1 @WRD1 OCB35690 09A8 1002 3570 | SLA 2 OCB35700 09A9 1802 3571 | SRA 2 OCB35710 09AA D382 3572 | STO 3 NAME OCB35720 09AB C38D 3573 | LD 3 K0 OCB35730 09AC 4802 3574 | BSC C SKIP IF CALL FLAG NOT SET OCB35740 09AD C38E 3575 | LD 3 K1 OCB35750 09AE D3E0 3576 | STO 3 LSW08 SET CALL/LIBF SWITCH OCB35760 09AF 4400 01E4 3577 | BSI L LS000 FIND PROGRAM IN LET OCB35770 3578 | * *UPON RETURN, ACC = 212 OCB35780 3579 | * *LET/FLET INDR (LSW22) 212 OCB35790 09B1 4C28 09BA 3580 | BSC L CC060,+Z BR IF PROGRAM NOT FOUND 212 OCB35800 09B3 C3AB 3581 | LD 3 DRCDE OCB35810 09B4 D3C0 3582 | STO 3 LDCDE OCB35820 09B5 4400 0266 3583 | BSI L RH000 READ DOWN HEADER RECORD OCB35830 09B7 4400 08B8 3584 | BSI L HR000 PROCESS HEADER RECORD OCB35840 09B9 4024 3585 | BSI TY000 CHK CONSISTENT CALL 2-10 OCB35850 09BA C3DD 3586 | CC060 LD 3 LSW05 BR IF ANOTHER VERSION 212 OCB35860 09BB 4C20 09CC 3587 | BSC L CC140,Z *OF THIS I/O PROGRAM LOADED OCB35870 3588 | * OCB35880 3589 | * SCAN LOAD TABLE BACKWARD TO FIND OUT IF OCB35890 3590 | * CURR PROG ALREADY LOADED OCB35900 3591 | * OCB35910 3592 | * ACC ZERO, CHK IF PROG 2-10 OCB35920 09BD 4035 3593 | BSI SV000 *ALREADY LOADED 2-10 OCB35930 09BE C3D9 3594 | LD 3 LSW01 OCB35940 09BF 4C20 09C3 3595 | BSC L CC080,Z BR IF LOADING TO BE BYPASSD OCB35950 3596 | * OCB35960 3597 | * SCAN LOAD TABLE FORWARD TO FIND ANY OCB35970 3598 | * OTHER ENTRY POINTS TO CURRENT PROG OCB35980 3599 | * OCB35990 09C1 C38E 3600 | LD 3 K1 OUT TO FIND OUT IF OTHER OCB36000 09C2 4030 3601 | BSI SV000 *ENT PTS AHEAD IN LD TB2-10 OCB36010 09C3 C3D9 3602 | CC080 LD 3 LSW01 LOAD BY-PASS SW (A MUST 212 OCB36020 09C4 4C80 0993 3603 | BSC I CC000 RETURN *FOR MC000) 212 OCB36030 3604 | * OCB36040 3605 | * CHECK FOR LOADING A PART OF A SOCAL OCB36050 3606 | * OCB36060 09C6 C3E1 3607 | CC120 LD 3 LSW09 OCB36070 09C7 4C08 09D5 3608 | BSC L CC240,+ BR IF NOT PROCESSING SOCALS OCB36080 09C9 9103 3609 | S 1 @WRD4 BR IF CURR PROG CAN BE OCB36090 09CA 4C18 09A7 3610 | BSC L CC040,+- *LOADED NOW OCB36100 09CC C38E 3611 | CC140 LD 3 K1 OCB36110 09CD D3D9 3612 | STO 3 LSW01 SET BYPASS SWITCH OCB36120 09CE 70F4 3613 | MDX CC080 TO EXIT OCB36130 3614 | * OCB36140 3615 | * SET LOCAL SWITCH IF CURR PROG A LOCAL OCB36150 3616 | * OCB36160 09CF C100 3617 | CC160 LD 1 @WRD1 BRANCH IF CURRENT PROG OCB36170 09D0 4C10 09D9 3618 | BSC L CC280,- *IS NOT A LOCAL OCB36180 09D2 C394 3619 | CC200 LD 3 K8 SET LSW16 TO NON ZERO OCB36190 09D3 D3E8 3620 | STO 3 LSW16 OCB36200 09D4 70D2 3621 | MDX CC040 BR TO CONTINUE PROCESSING OCB36210 3622 | * OCB36220 3623 | * DETERMINE WHETHER CURR PROG IS AN IN-CORE OCB36230 3624 | * OCB36240 09D5 C103 3625 | CC240 LD 1 @WRD4 BRANCH IF CURRENT PROG OCB36250 09D6 4C18 09A7 3626 | BSC L CC040,+- *IS AN IN-CORE OCB36260 09D8 70F3 3627 | MDX CC140 TO EXIT OCB36270 3628 | * OCB36280 3629 | * DETERMINE WHETHER CURR PROG CALLED BY A LOCAL OCB36290 3630 | * OCB36300 09D9 C103 3631 | CC280 LD 1 @WRD4 OCB36310 09DA 1803 3632 | SRA 3 BRANCH UNLESS CURR OCB36320 09DB 4C18 09A7 3633 | BSC L CC040,+- *PROG CALLED BY A LOCAL OCB36330 09DD 70F4 3634 | MDX CC200 BR TO SET THE LOCAL SW OCB36340 CORE LOAD BUILDER, PHASE 3 3636 | * CHECK TO SEE THAT LIBFS ARE REFERENCED BY OCB36360 3637 | * LIBF AND CALLS BY CALL OCB36370 3638 | * OCB36380 09DE 0000 3639 | TY000 DC *-* ENTRY POINT OCB36390 09DF C3E9 3640 | LD 3 LSW17 RETURN IMMEDIATELY OCB36400 09E0 4CA0 09DE 3641 | BSC I TY000,Z BRANCH DURING 2ND PASS OCB36410 09E2 C3F1 3642 | LD 3 LTYPE GET HEADER TYPE OCB36420 09E3 E39D 3643 | AND 3 KFF0F OCB36430 09E4 9390 3644 | S 3 K3 CHK TYPE 3 AND LIBF OCB36440 09E5 93E0 3645 | S 3 LSW08 OR TYPE 4 AND CALL OCB36450 09E6 4C98 09DE 3646 | BSC I TY000,+- EXIT IF OK OCB36460 09E8 C3F1 3647 | LD 3 LTYPE OCB36470 09E9 E39D 3648 | AND 3 KFF0F OCB36480 09EA 9391 3649 | S 3 K5 CHK TYPE 5 FOR LIBF OCB36490 09EB 93E0 3650 | S 3 LSW08 *AND TYPE 6 FOR CALL OCB36500 09EC 4C18 09F1 3651 | BSC L TY050,+- BR IF TYPE IS VALID OCB36510 09EE 6240 3652 | LDX 2 MSG64 OCB36520 09EF 4400 0426 3653 | BSI L PM000 PRINT ERROR MESSAGE OCB36530 09F1 4C80 09DE 3654 | TY050 BSC I TY000 RETURN OCB36540 CORE LOAD BUILDER, PHASE 3 3656 | * SCAN LOAD-TABLE AHEAD OF OR BEHIND CURRENT OCB36560 3657 | * ENTRY FOR OTHER ENTRY PTS TO THE SAME SUBROUTINE OCB36570 3658 | * OCB36580 09F3 0000 3659 | SV000 DC *-* ENTRY POINT OCB36590 09F4 6940 3660 | STX 1 SV150+1 SAVE XR1 OCB36600 09F5 6A41 3661 | STX 2 SV150+3 SAVE XR2 OCB36610 09F6 D400 0A80 3662 | STO L SV950 BR IF SWITCH=1, I.E., IF2-2 OCB36620 09F8 4C20 0A45 3663 | BSC L SV240,Z *SEARCHING AHEAD IN LD TBL OCB36630 3664 | * OCB36640 3665 | * PREPARE TO SEARCH LOAD TABLE FROM 1ST NON-LOCAL OCB36650 3666 | * ENTRY TO THE CURRENT ENTRY (BACKWARD SCAN) OCB36660 3667 | * OCB36670 09FA C3E9 3668 | LD 3 LSW17 OCB36680 09FB 4C20 0A34 3669 | BSC L SV150,Z BRANCH DURING 2ND PASS OCB36690 09FD C3FC 3670 | LD 3 RIGHT PREPARE TO SCAN BACKWARD IN OCB36700 09FE D07D 3671 | STO SV910 *LD TBL I.E.,FROM 1ST NON- OCB36710 09FF 93A7 3672 | S 3 CURTV OCB36720 0A00 4C18 0A34 3673 | BSC L SV150,+- BR ON 1ST LD TBL ENTRY OCB36730 0A02 C3A7 3674 | LD 3 CURTV *LOCAL ENTRY TO CURRENT OCB36740 0A03 807D 3675 | SV030 A SV960 OCB36750 0A04 D07A 3676 | STO SV940 OCB36760 0A05 6580 0A7C 3677 | LDX I1 SV910 START ADDR FOR LD TBL SCAN OCB36770 0A07 C3F6 3678 | SV060 LD 3 NOPTS OCB36780 0A08 D075 3679 | STO SV930 OCB36790 0A09 6600 0450 3680 | LDX L2 ENTPT ADDR ENTRY PT TBL TO XR2 OCB36800 0A0B C900 3681 | SV090 LDD 1 @WRD1 FETCH NAME OCB36810 0A0C 1002 3682 | SLA 2 OCB36820 0A0D 1802 3683 | SRA 2 OCB36830 0A0E 9A00 3684 | SD 2 @WRD1 OCB36840 0A0F 4818 3685 | BSC +- SKIP IF NAMES UNEQUAL OCB36850 0A10 18D0 3686 | RTE 16 OCB36860 0A11 4C20 0A3A 3687 | BSC L SV180,Z BR IF NAMES UNEQUAL OCB36870 0A13 C06C 3688 | LD SV950 BRANCH IF SEARCHING FORWARD OCB36880 0A14 4C20 0A54 3689 | BSC L SV270,Z OCB36890 0A16 C100 3690 | LD 1 @WRD1 BR IF CURR ENTRY IN LOAD OCB36900 0A17 4C10 0A2A 3691 | BSC L SV120,- *TABLE IS NOT A LOCAL OCB36910 3692 | * OCB36920 3693 | * CHECK FOR LOCAL CALLING A LOCAL AND FLAG SUBR OCB36930 3694 | * CURRENTLY BEING RELOCATED ON A LOCAL OCB36940 3695 | * OCB36950 0A19 6962 3696 | STX 1 SV910 SAVE POINTER OCB36960 0A1A 6580 0547 3697 | LDX I1 CURTV+X3 OCB36970 0A1C C399 3698 | LD 3 K8000 FLAG ENTRY IN LOAD TBL CUR- OCB36980 0A1D E900 3699 | OR 1 @WRD1 *RENTLY BEING RELOCATED OCB36990 0A1E D100 3700 | STO 1 @WRD1 *AS A LOCAL OCB37000 0A1F C103 3701 | LD 1 @WRD4 BRANCH IF CURRENTLY RE- OCB37010 0A20 7400 056D 3702 | MDX L LLOSW+X3,0 SKIP IF LOCALS CANT CAL2-3 OCB37020 0A22 7002 3703 | MDX *+2 *LOCALS, BR OTHERWISE 2-3 OCB37030 0A23 4C20 037A 3704 | BSC L BT600,Z BR IF CUR LOC CALL LOC 2-10 OCB37040 0A25 C056 3705 | LD SV910 FLAG CURRENTLY RELOCATED OCB37050 0A26 D103 3706 | STO 1 @WRD4 *ENTRY AS AN UNSPECIFIED OCB37060 0A27 C3FE 3707 | LD 3 RLXEQ *LOCAL OCB37070 0A28 D102 3708 | STO 1 @WRD3 SAVE RELATIVE EXEC ADDR OCB37080 0A29 7008 3709 | MDX SV140 TO EXIT OCB37090 3710 | * OCB37100 3711 | * COMPUTE ENTRY POINT ADDRESS OCB37110 3712 | * OCB37120 0A2A C102 3713 | SV120 LD 1 @WRD3 FETCH PREVIOUS EXEC ADDR OCB37130 0A2B 9202 3714 | S 2 @WRD3 SUB PREVIOUS RLTV EXEC ADDR OCB37140 0A2C 83FE 3715 | A 3 RLXEQ ADD CURR RELATIVE ADDR OCB37150 0A2D 6580 0547 3716 | LDX I1 CURTV+X3 *AND STORE FOR EXEC ADDR OF OCB37160 0A2F D102 3717 | STO 1 @WRD3 *THIS NON-LOCAL SUBROUTINE OCB37170 0A30 C3A6 3718 | LD 3 CLASS SAVE CLASS CODE FOR NON- OCB37180 0A31 D103 3719 | STO 1 @WRD4 *LOCAL SUBROUTINE OCB37190 0A32 C38E 3720 | SV140 LD 3 K1 OCB37200 0A33 D3D9 3721 | STO 3 LSW01 SET BYPASS SWITCH OCB37210 3722 | * OCB37220 3723 | * RETURN TO CALLER OCB37230 3724 | * OCB37240 0A34 6500 0000 3725 | SV150 LDX L1 *-* RESTORE XR1 OCB37250 0A36 6600 0000 3726 | LDX L2 *-* RESTORE XR2 OCB37260 0A38 4C80 09F3 3727 | BSC I SV000 RETURN OCB37270 0A3A 7204 3728 | SV180 MDX 2 @LTEN PICK OUT NEXT ENTRY POINT OCB37280 0A3B 74FF 0A7E 3729 | MDX L SV930,-1 SKIP IF NO MORE ENTRY PTS. OCB37290 0A3D 70CD 3730 | MDX SV090 BACK TO MAKE NEXT COMPARE OCB37300 3731 | * OCB37310 3732 | * HAS BACKWARD SCAN ENDED OCB37320 3733 | * OCB37330 0A3E 693D 3734 | SV210 STX 1 SV910 OCB37340 0A3F C03C 3735 | LD SV910 OCB37350 0A40 903E 3736 | S SV940 BRANCH IF SEARCH HAS REACH- OCB37360 0A41 4C08 0A34 3737 | BSC L SV150,+ *ED LEFTMOST LIMIT OCB37370 0A43 71FC 3738 | MDX 1 -@LTEN PICK OUT NEXT LD TBL ENTRY OCB37380 0A44 70C2 3739 | MDX SV060 BACK TO MAKE NEXT COMPARE OCB37390 3740 | * OCB37400 3741 | * PREPARE TO SEARCH LOAD TABLE FROM CURRENT ENTRY OCB37410 3742 | * TO THE END (FORWARD SCAN) OCB37420 3743 | * OCB37430 0A45 C3A7 3744 | SV240 LD 3 CURTV OCB37440 0A46 7400 0589 3745 | MDX L LSW17+X3,0 SKIP DURING FIRST PASS OCB37450 0A48 7001 3746 | MDX *+1 START SCAN WITH THIS ENTRY OCB37460 0A49 9037 3747 | S SV960 OCB37470 0A4A D031 3748 | STO SV910 OCB37480 0A4B 93C8 3749 | S 3 LEFTX BR OUT IF CURR ENTRY IS2-10 OCB37490 0A4C 4C18 0A34 3750 | BSC L SV150,+- *LEFTMOST IN LD TBL 2-10 OCB37500 0A4E C100 3751 | LD 1 @WRD1 IF PRIME NAME IS LOCAL OCB37510 0A4F 180F 3752 | SRA 15 *SET SWITCH=0 IF LOCAL OCB37520 0A50 F38E 3753 | EOR 3 K1 *AND 1 IF NON-LOCAL OCB37530 0A51 D029 3754 | STO SV900 OCB37540 0A52 C3C8 3755 | LD 3 LEFTX OCB37550 0A53 70AF 3756 | MDX SV030 BACK TO ANOTHER PASS OCB37560 0A54 C100 3757 | SV270 LD 1 @WRD1 SET LSW08 TO ZERO IF TABLE OCB37570 0A55 1002 3758 | SLA 2 *ENTRY BEING COMPARED OCB37580 0A56 C38D 3759 | LD 3 K0 *AGAINST IS A LIBF OCB37590 0A57 4802 3760 | BSC C *OR ONE IF IT IS A CALL OCB37600 0A58 C38E 3761 | LD 3 K1 OCB37610 0A59 D3E0 3762 | STO 3 LSW08 OCB37620 0A5A 4083 3763 | BSI TY000 CHECK CONSISTENT CALL 2-10 OCB37630 0A5B C3E9 3764 | LD 3 LSW17 OCB37640 0A5C 4820 3765 | BSC Z SKIP DURING 1ST PASS OCB37650 0A5D D01D 3766 | STO SV900 SET SWITCH TO NON-LOCAL OCB37660 0A5E 1010 3767 | SLA 16 OCB37670 0A5F 7400 0A7B 3768 | MDX L SV900,0 SKIP IF PROCESSING A LOCAL OCB37680 0A61 83FB 3769 | A 3 RELOC ADD RELOCATION FACTOR TO OCB37690 0A62 8202 3770 | A 2 @WRD3 *RELATIVE EXECUTION ADDR OCB37700 0A63 D102 3771 | STO 1 @WRD3 *STORE IN 3RD LD TBL WORD OCB37710 0A64 7400 0589 3772 | MDX L LSW17+X3,0 SKIP DURING FIRST PASS OCB37720 0A66 701B 3773 | MDX SV390 GET EXIT CONTROL ADDR OCB37730 0A67 C3A6 3774 | LD 3 CLASS OCB37740 0A68 7400 0A7B 3775 | MDX L SV900,0 SKIP IF A LOCAL OCB37750 0A6A 700E 3776 | MDX SV360 BR TO STORE CLASS CODE OCB37760 0A6B C103 3777 | LD 1 @WRD4 TEST IF LOC HAS CALLED 2-10 OCB37770 0A6C 7400 056D 3778 | MDX L LLOSW+X3,0 SKIP IF LOC-CALL-LOC 2-10 OCB37780 0A6E 7002 3779 | MDX *+2 *BYPASS SPECIFIED 2-10 OCB37790 0A6F 4C20 0A9B 3780 | BSC L SV510,Z BR IF LOC CALLED LOC 2-10 OCB37800 0A71 C0C3 3781 | LD SV150+1 STORE ENTRY POINTER OCB37810 0A72 D103 3782 | SV300 STO 1 @WRD4 *INTO 4TH WD OF LD TBL ENT OCB37820 3783 | * OCB37830 3784 | * SET LOCAL FLAG IF CURRENT ENTRY WAS SPECIFIED OCB37840 3785 | * AS A LOCAL ON AN *LOCAL RECORD OCB37850 0A73 C007 3786 | LD SV900 OCB37860 0A74 F38E 3787 | EOR 3 K1 OCB37870 0A75 100F 3788 | SLA 15 OCB37880 0A76 E900 3789 | OR 1 @WRD1 OCB37890 0A77 D100 3790 | STO 1 @WRD1 OCB37900 0A78 70C5 3791 | MDX SV210 GO CONTINUE SCAN AHEAD OCB37910 0A79 EBE8 3792 | SV360 OR 3 LSW16 SET CALLED-BY-A-LOCAL SW OCB37920 0A7A 70F7 3793 | MDX SV300 BR TO FILL IN 4TH WD OCB37930 3794 | * OCB37940 3795 | * CONSTANTS AND WORK AREAS OCB37950 3796 | * OCB37960 0A7B 0000 3797 | SV900 DC *-* ZERO=LOCAL 1=NON-LOCAL OCB37970 0A7C 0000 3798 | SV910 DC *-* WASTEBASKET OCB37980 0A7D 0000 3799 | SV920 DC *-* CONTENTS OF EXIT CONTROL WORD OCB37990 0A7E 0000 3800 | SV930 DC *-* CT. OF NO. ENTRY PTS. IN PROGRAM OCB38000 0A7F 0000 3801 | SV940 DC *-* RIGHT LIMIT OF SEARCH OCB38010 0A80 0000 3802 | SV950 DC *-* SWITCH FOR DETERMINING MODE OCB38020 0A81 0004 3803 | SV960 DC @LTEN WD CNT OF A LOAD TABLE ENTRY OCB38030 3804 | * OCB38040 3805 | * OCB38050 3806 | * OCB38060 0A82 6D00 05B5 3807 | SV390 STX L1 WASTE+X3 STORE CURRENT POINTER OCB38070 0A84 6A12 3808 | STX 2 SV480+1 SCAN TBL TO FIND EXIT CTRL OCB38080 0A85 6680 059C 3809 | LDX I2 RIGHT+X3 *ADDR TO STORE IN 4TH OCB38090 0A87 C313 3810 | LD 3 TVEND *WORD OF LOAD TABLE ENTRY OCB38100 0A88 D0F4 3811 | STO SV920 OCB38110 0A89 C200 3812 | SV420 LD 2 @WRD1 FETCH 1ST WD OF NAME OCB38120 0A8A 1001 3813 | SLA 1 OCB38130 0A8B 4C08 0A94 3814 | BSC L SV450,+ BRANCH IF CALL OCB38140 0A8D 74FD 0A7D 3815 | MDX L SV920,-@LBEN ADJUST EXIT CTRL ADDR OCB38150 0A8F 6AEC 3816 | STX 2 SV910 OCB38160 0A90 C315 3817 | LD 3 WASTE OCB38170 0A91 90EA 3818 | S SV910 BR IF ADDR HAS OCB38180 0A92 4C18 0A96 3819 | BSC L SV480,+- *BEEN OBTAINED OCB38190 0A94 72FC 3820 | SV450 MDX 2 -@LTEN POINT TO NEXT LD TBL ENTRY OCB38200 0A95 70F3 3821 | MDX SV420 BR TO CHK IF CALL OR LIBF OCB38210 0A96 6600 0000 3822 | SV480 LDX L2 *-* RESTORE XR2 OCB38220 0A98 C0E4 3823 | LD SV920 STORE EXIT CTRL TO ENT TBL OCB38230 0A99 D203 3824 | STO 2 @WRD4 OCB38240 0A9A 70A3 3825 | MDX SV210 GO CONTINUE SCAN AHEAD OCB38250 3826 | * OCB38260 3827 | * A LOCAL HAS CALLED A LOCAL OCB38270 3828 | * OCB38280 0A9B CC80 0547 3829 | SV510 LDD I CURTV+X3 LD CURR NAME 2-10 OCB38290 0A9D 4C00 037B 3830 | BSC L BT610 GO SET UP ERR MSG17 2-10 OCB38300 0A9F 3831 | BSS /0A9F-* PATCH AREA 2-10 OCB38310 0A9F 0000 3832 | DC 0 PATCH AREA OCB38320 0A9F 3833 | P3END EQU *-1 OCB38330 BUFFERS REQUIRED BY CORE LOAD BUILDER 0AA0 3835 | BSS E 0 OCB38350 0AA0 3836 | BUFLS EQU * LET/FLET SEARCH BUFFER OCB38360 0BE2 3837 | BUFLO EQU *+322 DATA BUFFER OCB38370 0D24 3838 | BUFCI EQU *+644 CIB BUFFER OCB38380 CORE LOAD BUILDER, PHASE 4 3840 | *************************************************** OCB38400 3841 | *STATUS - VERSION 2,MODIFICATION LEVEL 12 * OCB38410 3842 | * * OCB38420 3843 | *FUNCTION/OPERATION- * OCB38430 3844 | * * PHASE 4 OVERLAYS PHASE 3 OR 5 AND CONSISTS * OCB38440 3845 | * OF SUBROUTINES * OCB38450 3846 | * * IL000-SEEKS FLAGGED INTERUPT LEVELS AND * OCB38460 3847 | * FETCHES AND RELOCATES CORESPONDING ILS. * OCB38470 3848 | * * ET000-DETERMINES WHETHER OR NOT CORE LOAD * OCB38480 3849 | * FITS IN CORE STORAGE OR CAN BE MADE TO FIT* OCB38490 3850 | * BY COMPUTNG CORE THAT CAN BE SAVED BY * OCB38500 3851 | * EMPLOYING SOCALS. * OCB38510 3852 | * * OCB38520 3853 | *ENTRY POINTS- * OCB38530 3854 | * * ONE ENTRY POINT IN EACH SUBROUTINE * OCB38540 3855 | * BSI L XX000 * OCB38550 3856 | * WHERE XX000 IS THE FIRST WORD. * OCB38560 3857 | * * OCB38570 3858 | *INPUT- * OCB38580 3859 | * * ILS IN DSF * OCB38590 3860 | * * OCB38600 3861 | *OUTPUT * OCB38610 3862 | * * RELOCATED ILS * OCB38620 3863 | * * OCB38630 3864 | *EXTERNAL REFERENCES- * OCB38640 3865 | * * SUBROUTINES- * OCB38650 3866 | * * CN000-CHECK NAME WITH THAT OF DISK I/O * OCB38660 3867 | * * LS000-FIND A PROGRAM IN LET/FLET * OCB38670 3868 | * * NW000-FETCH WORD FROM DATA BUFFER * OCB38680 3869 | * * PM300-FLIPPER FOR PRINTING MESSAGE * OCB38690 3870 | * * RH000-READ PROGRAM HEADER TO DATA BUFFER * OCB38700 3871 | * * RL000-RELOCATE A PROGRAM * OCB38710 3872 | * * TL000-PRINT ERROR MESSAGE(S),EXIT FROM CLB* OCB38720 3873 | * * TS000-PROCESS THE ILS BRANCH TABLE * OCB38730 3874 | * * COMMA/DCOM * OCB38740 3875 | * * $DADR * OCB38750 3876 | * * $D200 * OCB38760 3877 | * * $I400 * OCB38770 3878 | * * $STOP * OCB38780 3879 | * * OCB38790 3880 | *EXITS- * OCB38800 3881 | * * NORMAL- * OCB38810 3882 | * * BACK TO CALLER VIA THE FIRST WORD * OCB38820 3883 | * * ERROR- * OCB38830 3884 | * * TO TL000 FOR PRINTING MESSAGE(S) AND EXIT * OCB38840 3885 | * FROM CLB. * OCB38850 3886 | * * OCB38860 3887 | *TABLES/WORK AREAS * OCB38870 3888 | * * LOAD TABLE * OCB38880 3889 | * * RCOM * OCB38890 3890 | * * OCB38900 3891 | *NOTES-N/A * OCB38910 3892 | *************************************************** OCB38920 CORE LOAD BUILDER, PHASE 4 3894 | * PARAMETERS FOR SYSTEM LOADER OCB38940 3895 | * OCB38950 08B6 3896 | ORG MV000 ORG TO PHASE OVERLAY AREA OCB38960 *SBRKGL 7B 3897 | *CORE LOAD BUILDER, PHASE 4 V2M02 OCB38970 08B6 01E3 3898 | DC P4END-*-1 PHASE 4 WD CNT OCB38980 08B7 007B 3899 | DC @CLB4 ID NO. OF CLB, PHASE 4 OCB38990 CORE LOAD BUILDER, PHASE 4 3901 | * FIND ILS ON DISK, FETCH IT, AND RELOCATE IT OCB39010 3902 | * OCB39020 08B8 0000 3903 | IL000 DC *-* ENTRY POINT OCB39030 08B9 6A0C 3904 | STX 2 IL120+1 SAVE XR2 OCB39040 08BA 690D 3905 | STX 1 IL120+3 SAVE XR1 OCB39050 08BB 6206 3906 | LDX 2 6 NO. INTERRUPT LEVELS TO XR1 OCB39060 08BC C600 0492 3907 | IL050 LD L2 @ITVX-1 BRANCH IF THIS INTERRUPT OCB39070 08BE 4C20 08CB 3908 | BSC L IL150,Z *LEVEL HAS BEEN FLAGGED OCB39080 08C0 C06A 3909 | LD IL930 OCB39090 08C1 D600 0492 3910 | IL070 STO L2 @ITVX-1 OCB39100 08C3 72FF 3911 | IL100 MDX 2 -1 SKIP AFTER CHECKING LEVEL 0 OCB39110 08C4 70F7 3912 | MDX IL050 BACK TO CHECK NEXT LEVEL OCB39120 08C5 6600 0000 3913 | IL120 LDX L2 *-* OCB39130 08C7 6500 0000 3914 | LDX L1 *-* OCB39140 08C9 4C80 08B8 3915 | BSC I IL000 RETURN OCB39150 08CB 6A5C 3916 | IL150 STX 2 IL900 OCB39160 08CC 905E 3917 | S IL930 BR IF CURR INT LEVEL OCB39170 08CD 4C18 08C3 3918 | BSC L IL100,+- *FLAGGED WITH TRAP ADDR OCB39180 3919 | * OCB39190 3920 | * CREATE NAME OF REQUIRED ILS OCB39200 3921 | * OCB39210 08CF C059 3922 | LD IL910 OCB39220 08D0 D382 3923 | STO 3 NAME OCB39230 08D1 C056 3924 | LD IL900 LOAD ILS NUMBER + 1 OCB39240 08D2 938E 3925 | S 3 K1 OCB39250 08D3 1884 3926 | SRT 4 CONVERT NUMBER TO OCB39260 08D4 1002 3927 | SLA 2 *TRUNCATED EBCDIC OCB39270 08D5 1084 3928 | SLT 4 OCB39280 08D6 D055 3929 | STO IL935 2-2 OCB39290 08D7 C400 0063 3930 | LD L $GCOM BRANCH IF THIS IS A 2-2 OCB39300 08D9 4C20 0925 3931 | BSC L IL450,Z *GRAPHICS CORE LOAD 2-2 OCB39310 08DB C3F3 3932 | LD 3 LX3SW BRANCH IF SPECIAL IL SUB2-2 OCB39320 08DC 4C20 0925 3933 | BSC L IL450,Z *REQUIRED 2-2 OCB39330 08DE C04D 3934 | LD IL935 2-2 OCB39340 08DF E84A 3935 | OR IL910+1 OCB39350 08E0 D383 3936 | IL200 STO 3 NAME+1 OCB39360 08E1 D054 3937 | STO IL999 SAVE FOR LATER TEST 2-6 OCB39370 3938 | * OCB39380 3939 | * FIND ILS AND RELOCATE IT OCB39390 3940 | * OCB39400 08E2 4400 01E4 3941 | BSI L LS000 FIND ILS IN LET OCB39410 3942 | * *UPON RETURN, ACC = 212 OCB39420 3943 | * *LET/FLET INDR (LSW22) 212 OCB39430 08E4 4C28 0900 3944 | BSC L IL240,+Z BR IF NOT IN LET/FLET 212 OCB39440 08E6 C3AB 3945 | LD 3 DRCDE OCB39450 08E7 D3C0 3946 | STO 3 LDCDE OCB39460 08E8 4400 0266 3947 | BSI L RH000 FETCH REQUIRED ILS OCB39470 08EA 6580 0559 3948 | LDX I1 INDEX+X3 OCB39480 08EC C102 3949 | LD 1 @TYPE FETCH TYPE CODE OCB39490 08ED 9041 3950 | S IL950 CHECK FOR TYPE 7, SUBTYPE 1 OCB39500 08EE 4C18 0905 3951 | BSC L IL250,+- BR IF TYPE 17 OCB39510 08F0 C38D 3952 | LD 3 K0 ZERO TO CLASS CODE OCB39520 08F1 D3A6 3953 | STO 3 CLASS OCB39530 08F2 C393 3954 | LD 3 K7 7 TO TYPE OCB39540 08F3 D3F1 3955 | STO 3 LTYPE OCB39550 08F4 D3DF 3956 | STO 3 LSW07 SET SWITCH 7 OCB39560 08F5 D3DB 3957 | STO 3 LSW03 SET INHIBIT TV STORE IN RL OCB39570 08F6 7401 0559 3958 | MDX L INDEX+X3,@ISSP-@ENTY OCB39580 08F8 4400 0648 3959 | BSI L RL000 RELOCATE PROGRAM OCB39590 08FA C03B 3960 | LD IL999 TEST FOR ILSX2 2-6 OCB39600 08FB 100E 3961 | SLA 14 * OR ILS02 2-6 OCB39610 08FC 180E 3962 | SRA 14 * 2-6 OCB39620 08FD 938F 3963 | S 3 K2 2-6 OCB39630 08FE 4C18 093A 3964 | BSC L IL460,+- BRANCH IF YES 2-6 OCB39640 0900 C38D 3965 | IL240 LD 3 K0 RESET INHIBIT TV STORE OCB39650 0901 D3DB 3966 | STO 3 LSW03 OCB39660 0902 C3BD 3967 | LD 3 LADDR SAVE LOADING ADDRESS FOR OCB39670 0903 83C9 3968 | A 3 LEVLS OCB39680 0904 70BC 3969 | MDX IL070 BACK TO CONTINUE PROCESSING OCB39690 0905 C022 3970 | IL250 LD IL900 OCB39700 0906 9390 3971 | S 3 K3 OCB39710 0907 4C20 090B 3972 | BSC L IL270,Z BR IF PROCESSING ILS04 OCB39720 0909 C028 3973 | LD IL985 FETCH ADDR OF SYS ILS02 OCB39730 090A 70B6 3974 | MDX IL070 BR TO OUTPUT THE ADDR OCB39740 090B C024 3975 | IL270 LD IL970 FETCH ADDR OF IBT4 OCB39750 090C D012 3976 | STO IL350+1 OCB39760 090D 740E 0559 3977 | MDX L INDEX+X3,@ENTY-@ZERO+3 OCB39770 090F C38E 3978 | LD 3 K1 OCB39780 0910 7001 3979 | MDX IL310 BR TO SET 9-COUNTER OCB39790 0911 C022 3980 | IL300 LD IL995 OCB39800 0912 D020 3981 | IL310 STO IL990 INITIALIZE 9-COUNTER OCB39810 0913 4400 0271 3982 | IL320 BSI L NW000 FETCH DATA WORD OCB39820 0915 74FF 0933 3983 | MDX L IL990,-1 SKIP IF NEXT WD IS AN OCB39830 0917 7001 3984 | MDX *+1 *INDICATOR,BR OTHERWISE OCB39840 0918 70F8 3985 | MDX IL300 BR TO FETCH INDICATOR WORD OCB39850 0919 4C18 0923 3986 | BSC L IL400,+- BR IF END OF TABLE OCB39860 091B D382 3987 | STO 3 NAME OCB39870 091C 4400 07BB 3988 | BSI L TS000 PROCESS AN IBT WORD OCB39880 091E D400 0000 3989 | IL350 STO L *-* STORE A WORD IN IBT4 OCB39890 0920 7401 091F 3990 | MDX L IL350+1,1 PT TO NEXT WORD IN IBT4 OCB39900 0922 70F0 3991 | MDX IL320 BR TO FETCH NEXT DATA WORD OCB39910 0923 C00D 3992 | IL400 LD IL980 FETCH ADDR OF SYS ILS04 OCB39920 0924 709C 3993 | MDX IL070 BR TO OUTPUT THE ADDR OCB39930 0925 C006 3994 | IL450 LD IL935 'OR' IN SPECIAL 2-2 OCB39940 0926 E807 3995 | OR IL940+1 *ILS NAME 2-2 OCB39950 0927 70B8 3996 | MDX IL200 BR TO STORE NAME 2-2 OCB39960 3997 | * OCB39970 3998 | * CONSTANTS AND WORK AREAS OCB39980 3999 | * OCB39990 0928 0000 4000 | IL900 DC *-* 1+CURRENT ILS NO. OCB40000 0929 094E 2C30 4001 | IL910 DN ILS00 OCB40010 092B 0091 4002 | IL930 DC $STOP ADDR PROGRAM STOP KEY TRAP OCB40020 092C 0000 4003 | IL935 DC *-* WASTEBASKET 2-2 OCB40030 092D 094E 29F0 4004 | IL940 DN ILSX0 2-2 OCB40040 092F 1700 4005 | IL950 DC /1700 TYPE 7, SUBTYPE 1 OCB40050 0930 0499 4006 | IL970 DC @ILS4 ADDR OF IBT4 OCB40060 0931 00C4 4007 | IL980 DC $I400 ADDR OF SYSTEM ILS04 OCB40070 0932 00B3 4008 | IL985 DC $I200 ADDR OF SYSTEM ILS02 OCB40080 0933 0000 4009 | IL990 DC *-* 9-COUNTER OCB40090 0934 0009 4010 | IL995 DC 9 NO. WDS FROM 1 INDR TO NEXT OCB40100 0935 0004 4011 | IL998 DC 4 2-6 OCB40110 0936 0000 4012 | IL999 DC 0 2-6 OCB40120 0937 0000 4013 | IL901 DC 0 2-6 OCB40130 0938 1000 4014 | IL902 DC /1000 2-6 OCB40140 0939 0140 4015 | IL903 DC /140 2-6 OCB40150 093A D400 05B8 4016 | IL460 STO L IND05 ZERO R05 INDICATOR 2-11 OCB40160 093C C30B 4017 | LD 3 SUBWC COMPUTE AND STORE LENG.2-11 OCB40170 093D 838E 4018 | A 3 K1 * OF SUBROUTINE 2-6 OCB40180 093E D0F7 4019 | STO IL999 * 2-6 OCB40190 093F C3BC 4020 | LD 3 LACTR IS LOADING 2-6 OCB40200 0940 938E 4021 | S 3 K1 ADDRESS 2-6 OCB40210 0941 D0F5 4022 | STO IL901 BELOW 2-6 OCB40220 0942 90F5 4023 | S IL902 4 K 2-6 OCB40230 0943 4C10 0900 4024 | BSC L IL240,- BRANCH IF NO 2-6 OCB40240 0945 80F2 4025 | A IL902 ADD BACK 2-6 OCB40250 0946 90EE 4026 | IL470 S IL998 SUBTRACT 4 2-6 OCB40260 0947 1890 4027 | SRT 16 DIVIDE 2-6 OCB40270 0948 A8F0 4028 | D IL903 *MODULO /140 2-6 OCB40280 0949 1090 4029 | SLT 16 2-6 OCB40290 094A 4C18 0954 4030 | BSC L IL480,+- BR IF LOCATION MOD /140 2-6 OCB40300 094C 74FF 0936 4031 | MDX L IL999,-1 DECREMENT COUNTER 2-6 OCB40310 094E 7001 4032 | MDX *+1 2-6 OCB40320 094F 70B0 4033 | MDX IL240 BR BACK IF FINISHED 2-6 OCB40330 0950 74FF 0937 4034 | MDX L IL901,-1 DECREMENT CORE COUNTER 2-6 OCB40340 0952 C0E4 4035 | LD IL901 CHECK NEXT LOCATION 2-6 OCB40350 0953 70F2 4036 | MDX IL470 2-6 OCB40360 0954 C0E1 4037 | IL480 LD IL999 LOAD COUNTER FOR OUTPUT 2-6 OCB40370 0955 D386 4038 | STO 3 RNAME STORE IN OUTPUT AREA 2-6 OCB40380 0956 6A09 4039 | STX 2 IL481+1 SAVE XR2 2-6 OCB40390 0957 6230 4040 | LDX 2 MSG48 LOAD MESSAGE NUMBER 2-6 OCB40400 0958 4400 0426 4041 | BSI L PM000 BR FOR PRINTING OUTPUT 2-6 OCB40410 095A 6205 4042 | LDX 2 MSG05 LOAD MESSAGE 2-6 OCB40420 095B 4400 0426 4043 | BSI L PM000 BR TO PRINT OUTPU 2-6 OCB40430 095D 6C00 05B8 4044 | STX L0 IND05 SET INDR FOR R05 MSG 2-11 OCB40440 095F 6600 0000 4045 | IL481 LDX L2 *-* RESTORE XR2 2-6 OCB40450 0961 4C00 0900 4046 | BSC L IL240 BR BACK 2-6 OCB40460 CORE LOAD BUILDER, PHASE 4 0963 0000 4048 | ET000 DC *-* ENTRY POINT OCB40480 0964 C38D 4049 | LD 3 K0 CLEAR THE LOCAL SWITCH OCB40490 0965 D3E8 4050 | STO 3 LSW16 OCB40500 0966 7400 04A2 4051 | MDX L @OVSW,0 SKIP IF THERE ARE NO LOCALS OCB40510 0968 7031 4052 | MDX ET080 *BRANCH OTHERWISE OCB40520 4053 | * OCB40530 4054 | * COMPUTE NO. WORDS OF CORE AVAILABLE, OCB40540 4055 | * ALLOWING FOR THE LOAD TABLE OCB40550 4056 | * OCB40560 0969 C3BB 4057 | ET020 LD 3 ITVCT ADJUST LEFT END OF 2-8 OCB40570 096A 100F 4058 | SLA 15 *TRANSFER VECTOR IF WE 2-8 OCB40580 096B 180F 4059 | SRA 15 *HAD AN EVEN NUMBER OF 2-8 OCB40590 096C F38E 4060 | EOR 3 K1 *CALLS IN THIS PROGRAM 2-8 OCB40600 096D D3BB 4061 | STO 3 ITVCT * 2-8 OCB40610 096E 83FD 4062 | A 3 RLCOR * 2-8 OCB40620 096F 93F4 4063 | S 3 MLWD1 SUB ADDR OF MAINLINE OCB40630 0970 7400 04A2 4064 | MDX L @OVSW,0 SKIP IF NO LOCALS OCB40640 0972 9046 4065 | S ET940 ALLOW FOR FLIPR ROUTINE 2-8 OCB40650 0973 93AE 4066 | S 3 FLIPT SUB LENGTH OF FLIPPER TABLE OCB40660 0974 D03C 4067 | STO ET900 STORE NO. WORDS AVAILABLE OCB40670 4068 | * OCB40680 4069 | * COMPUTE NO. WORDS OF CORE REQUIRED BY CORE LOAD, OCB40690 4070 | * EXCLUSIVE OF THE LOAD TABLE OCB40700 4071 | * OCB40710 0975 1010 4072 | SLA 16 CLEAR ACCUMULATOR OCB40720 0976 61FB 4073 | LDX 1 INCOR-LOCAL-1 OCB40730 0977 8500 052D 4074 | ET040 A L1 LOCAL+X3+1 ACCUMULATE CORE LD WD CNT OCB40740 0979 7101 4075 | MDX 1 1 SKIP WHEN DONE,BRANCH OCB40750 097A 70FC 4076 | MDX ET040 *TO CONTINUE ACCUMULATION OCB40760 097B 83B7 4077 | A 3 ILSCT ADD IN ILS LENGTHS OCB40770 097C 9034 4078 | S ET900 COMPARE WITH CORE AVAILABLE OCB40780 097D 4C30 0A16 4079 | BSC L ET320,Z- BR IF CORE LOAD TOO LONG OCB40790 097F F400 0A98 4080 | EOR L ET905 COMPLEMENT THE DIFFERENCE OCB40800 0981 4804 4081 | BSC E SKIP IF DIFFERENCE EVEN OCB40810 0982 838E 4082 | A 3 K1 MAKE DIFFERENCE EVEN OCB40820 0983 D386 4083 | STO 3 RNAME OCB40830 0984 C3EE 4084 | LD 3 LSW22 GET LET/FLET SWITCH 212 OCB40840 0985 4C20 098A 4085 | BSC L ET050,Z BR IF ALL SUBR NOT FOUND212 OCB40850 0987 6229 4086 | LDX 2 MSG41 WORDS AVAILABLE OCB40860 0988 4400 0447 4087 | BSI L PM300 PRINT MESSAGE R41 OCB40870 098A 7400 058B 4088 | ET050 MDX L LSW19+X3,0 SKIP IF NO LOCALS 212 OCB40880 098C 702D 4089 | MDX ET180 *BRANCH OTHERWISE OCB40890 4090 | * OCB40900 4091 | * CLEAR ALL CLASS CODES IN LOAD TABLE TO ZERO OCB40910 4092 | * OCB40920 098D 6680 055E 4093 | LDX I2 LBATV+X3 LOAD TABLE LENGTH TO XR2 OCB40930 098F 6580 059C 4094 | LDX I1 RIGHT+X3 RIGHT LIMIT OF TBL TO XR1 OCB40940 0991 1010 4095 | SLA 16 CLEAR ACCUMULATOR TO ZERO OCB40950 0992 D103 4096 | ET060 STO 1 @WRD4 SET CLASS CODE TO ZERO OCB40960 0993 71FC 4097 | MDX 1 -@LTEN POINT TO NEXT LD TBL ENTRY OCB40970 0994 72FC 4098 | MDX 2 -@LTEN SKIP AT END OF LOAD TABLE OCB40980 0995 70FC 4099 | MDX ET060 *TBL, BRANCH OTHERWISE OCB40990 0996 C400 04A2 4100 | LD L @OVSW MUST BE FOR MC000 ROUT 212 OCB41000 0998 4C80 0963 4101 | ET070 BSC I ET000 RETURN OCB41010 4102 | * OCB41020 4103 | * GET SIZE OF FLIPPER TABLE AND OCB41030 4104 | * REFLECT IT IN CORE AVAILABLE COUNT OCB41040 4105 | * OCB41050 099A 6680 055E 4106 | ET080 LDX I2 LBATV+X3 LOAD TABLE LENGTH TO XR2 OCB41060 099C 6580 059C 4107 | LDX I1 RIGHT+X3 RIGHT LIMIT OF TBL TO XR1 OCB41070 099E C100 4108 | ET100 LD 1 @WRD1 FETCH 1ST WORD OF NAME OCB41080 099F 4C10 09A6 4109 | BSC L ET120,- BRANCH IF NOT LOCAL OCB41090 09A1 1001 4110 | SLA 1 ZERO TO ACCUMULATOR FOR A OCB41100 09A2 180F 4111 | SRA 15 *LIBF, 1 FOR A CALL OCB41110 09A3 8012 4112 | A ET925 OCB41120 09A4 800C 4113 | A ET900 COMPUTE AND STORE NEW NO. OCB41130 09A5 D00B 4114 | STO ET900 * WORDS AVAILABLE OCB41140 09A6 71FC 4115 | ET120 MDX 1 -@LTEN POINT TO NEXT LD TBL ENTRY OCB41150 09A7 72FC 4116 | MDX 2 -@LTEN SKIP AT END OF LOAD TABLE OCB41160 09A8 70F5 4117 | MDX ET100 * BRANCH OTHERWISE OCB41170 09A9 C007 4118 | LD ET900 OCB41180 09AA 4804 4119 | BSC E SKIP IF AVAILABLE CNT EVEN OCB41190 09AB 7002 4120 | MDX ET160 BR TO INCR IN-CORE WD CNT OCB41200 09AC D3AE 4121 | ET140 STO 3 FLIPT STORE FLIPPER TABLE WD CNT OCB41210 09AD 70BB 4122 | MDX ET020 BR TO CHECK CORE LOAD LNG OCB41220 09AE 7401 0528 4123 | ET160 MDX L INCOR+X3,1 INCR IN-CORE TALLY BY 1 OCB41230 09B0 70FB 4124 | MDX ET140 BR TO STORE FLIPPER TBL CNT OCB41240 4125 | * OCB41250 4126 | * CONSTANTS AND WORK AREAS OCB41260 4127 | * OCB41270 09B1 0000 4128 | ET900 DC *-* WORDS OF CORE AVAILABLE OCB41280 09B2 FFF7 4129 | ET901 DC /FFF7 MASK OUT BITS 0-12 OCB41290 09B3 0001 4130 | ET910 DC @LBEN-2 OCB41300 09B4 0007 4131 | ET915 DC 2*@LBEN+1 OCB41310 09B5 0001 4132 | ET920 DC @CLEN OCB41320 09B6 0005 4133 | ET925 DC @FLEN WD CNT OF LIBF FLIP TBL ENT OCB41330 09B7 0064 4134 | ET930 DC FL998 WD CNT OF LOCAL/SOCAL FLIPR OCB41340 09B8 0091 4135 | ET935 DC $STOP ADDR OF PROGRAM STOP TRAP OCB41350 09B9 0066 4136 | ET940 DC FL998+2 SIZE OF FLIPR+WC/SA 2-8 OCB41360 4137 | * OCB41370 4138 | * OCB41380 4139 | * OCB41390 4140 | * CLEAR BITS 0-12 OF NON-LOCAL LOAD TABLE ENTRIES, OCB41400 4141 | * SET CLASS CODE TO ZERO FOR IN-CORE SUBROUTINES, OCB41410 4142 | * AND SET EXECUTION ADDRESS TO ZERO FOR NON-LOCALS OCB41420 4143 | * OCB41430 09BA 6580 059C 4144 | ET180 LDX I1 RIGHT+X3 RIGHT LIMIT OF TBL TO XR1 OCB41440 09BC 6680 055E 4145 | LDX I2 LBATV+X3 LOAD TABLE LENGTH TO XR2 OCB41450 09BE C100 4146 | ET200 LD 1 @WRD1 FETCH 1ST WORD OF NAME OCB41460 09BF 4C28 09D2 4147 | BSC L ET220,+Z BRANCH IF LOCAL OCB41470 09C1 C900 4148 | LDD 1 @WRD1 OCB41480 09C2 DB82 4149 | STD 3 NAME OCB41490 09C3 4400 02A7 4150 | BSI L CN000 CHECK NAME OCB41500 09C5 C3EA 4151 | LD 3 LSW18 BR IF NAME OF ONE OF THE OCB41510 09C6 4C20 0A13 4152 | BSC L ET310,Z *DISK I/O SUBROUTINES OCB41520 09C8 C103 4153 | LD 1 @WRD4 'AND' OUT BIT 12 OCB41530 09C9 E0E8 4154 | AND ET901 * OF 4TH WORD OF ENTRY OCB41540 09CA D103 4155 | STO 1 @WRD4 OCB41550 09CB C3FA 4156 | LD 3 OVLAY COMPARE CLASS CODE OCB41560 09CC 9103 4157 | S 1 @WRD4 *WITH OVERLAY MODE OCB41570 09CD 1001 4158 | SLA 1 OCB41580 09CE C38D 4159 | LD 3 K0 SKIP IF CURR ENTRY NOT OCB41590 09CF 4802 4160 | BSC C *AN IN-CORE SUBROUTINE OCB41600 09D0 D103 4161 | STO 1 @WRD4 SET CLASS CODE TO ZERO OCB41610 09D1 D102 4162 | STO 1 @WRD3 SET EXEC ADDR TO ZERO OCB41620 09D2 71FC 4163 | ET220 MDX 1 -@LTEN POINT TO NEXT LD TBL ENTRY OCB41630 09D3 72FC 4164 | MDX 2 -@LTEN SKIP AT END OF LOAD TABLE, OCB41640 09D4 70E9 4165 | MDX ET200 *BRANCH OTHERWISE OCB41650 4166 | * OCB41660 4167 | * GET NO. CALLS IN ARITH/FUNC OVERLAY (SOCAL 1) OCB41670 4168 | * OCB41680 09D5 6580 059C 4169 | LDX I1 RIGHT+X3 RIGHT LIMIT OF TBL TO XR1 OCB41690 09D7 6680 055E 4170 | LDX I2 LBATV+X3 LOAD TABLE LENGTH TO XR2 OCB41700 09D9 C100 4171 | ET240 LD 1 @WRD1 FETCH 1ST WORD OF NAME OCB41710 09DA 1001 4172 | SLA 1 OCB41720 09DB 4C10 09E5 4173 | BSC L ET260,- BR IF CURR ENTRY IS A LIBF OCB41730 09DD C103 4174 | LD 1 @WRD4 FETCH 4TH WORD OF ENTRY OCB41740 09DE 938E 4175 | S 3 K1 BRANCH IF CURR ENTRY COULD OCB41750 09DF 4C20 09E5 4176 | BSC L ET260,Z *NOT BE IN SOCAL 1 OCB41760 09E1 7401 05A0 4177 | MDX L SCLCT+X3,1 ACCUMULATE NO.SOCAL CALLS OCB41770 09E3 7401 059D 4178 | MDX L RLCOR+X3,1 INCR AVAILABLE CORE BY 1 OCB41780 09E5 71FC 4179 | ET260 MDX 1 -@LTEN POINT TO NEXT LD TBL ENTRY OCB41790 09E6 72FC 4180 | MDX 2 -@LTEN SKIP AT END OF LOAD TABLE OCB41800 09E7 70F1 4181 | MDX ET240 *BRANCH OTHERWISE OCB41810 4182 | * OCB41820 4183 | * COMPUTE ADDR OF LEFT SIDE OF LIBF TV OCB41830 4184 | * OCB41840 09E8 C3FD 4185 | LD 3 RLCOR OCB41850 09E9 83F0 4186 | A 3 LTVWC OCB41860 09EA 4804 4187 | BSC E SKIP IF NO GAP OCB41870 09EB 80C7 4188 | A ET910 ALLOW FOR DUMMY CALL OCB41880 09EC D313 4189 | STO 3 TVEND *LIBF TV AND STORE RESULT OCB41890 4190 | * OCB41900 4191 | * PREPARE TO FETCH PHASE 2 AND BEGIN PASS 2 OCB41910 4192 | * OCB41920 09ED C38E 4193 | LD 3 K1 OCB41930 09EE D3E9 4194 | STO 3 LSW17 SET 2ND PASS SWITCH OCB41940 09EF 1810 4195 | SRA 16 OCB41950 09F0 D3E2 4196 | STO 3 LSW10 RESET INHIBIT TRANSFER SW OCB41960 09F1 C400 0498 4197 | LD L @ITVX+5 OCB41970 09F3 90C4 4198 | S ET935 BR UNLESS LEVEL 5 FLAGGED OCB41980 09F4 4C20 09F8 4199 | BSC L ET280,Z *W/ ADDR PROG STOP KEY TRAP OCB41990 09F6 D400 0498 4200 | STO L @ITVX+5 CLEAR LEVEL 5 FLAG OCB42000 09F8 C400 0010 4201 | ET280 LD L $DADR OCB42010 09FA D3A1 4202 | STO 3 BYADR STORE MAINLINE BLOCK ADDR OCB42020 09FB C400 0077 4203 | LD L $DCDE RESTORE DRIVE CODE OCB42030 09FD D3C0 4204 | STO 3 LDCDE *OF MAINLINE OCB42040 09FE 4400 0266 4205 | BSI L RH000 GET ML HEADER OCB42050 0A00 6580 0559 4206 | LDX I1 INDEX+X3 POINT TO 1ST WD OF HDR OCB42060 0A02 C38D 4207 | LD 3 K0 OCB42070 0A03 D3B1 4208 | STO 3 HADDR CLEAR HIGH-ADDR COUNTER OCB42080 0A04 C3DE 4209 | LD 3 LSW06 OCB42090 0A05 1801 4210 | SRA 1 SET FILE SWITCH TO OCB42100 0A06 D3DE 4211 | STO 3 LSW06 *REPROCESS DEFINE FILES OCB42110 0A07 C102 4212 | LD 1 @TYPE OCB42120 0A08 1808 4213 | SRA 8 OCB42130 0A09 D3F1 4214 | STO 3 LTYPE SAVE MAINLINE TYPE OCB42140 0A0A 938E 4215 | S 3 K1 OCB42150 0A0B 4C18 0A0E 4216 | BSC L ET300,+- BR IF MAINLINE ABSOLUTE OCB42160 0A0D C3F4 4217 | LD 3 MLWD1 OCB42170 0A0E D3FB 4218 | ET300 STO 3 RELOC RESET RELOCATION FACTOR OCB42180 0A0F C38E 4219 | LD 3 K1 OCB42190 0A10 D3DB 4220 | STO 3 LSW03 SET SWITCH 3 OCB42200 0A11 4C00 0998 4221 | BSC L ET070 TO EXIT OCB42210 4222 | * OCB42220 4223 | * CLEAR 4TH WD OF LOAD TBL ENTRY FOR DISK1/N OCB42230 4224 | * OCB42240 0A13 C38D 4225 | ET310 LD 3 K0 OCB42250 0A14 D103 4226 | STO 1 @WRD4 CLEAR WD 4 OF LD TBL ENTRY OCB42260 0A15 70BC 4227 | MDX ET220 BR TO EXAMINE NEXT ENTRY OCB42270 4228 | * OCB42280 4229 | * DETERMINE WHETHER OR NOT CORE LOAD CAN OCB42290 4230 | * BE MADE TO FIT BY EMPLOYING SOCALS OCB42300 4231 | * OCB42310 0A16 D07F 4232 | ET320 STO ET902 SAVE SHORTAGE OCB42320 0A17 D386 4233 | STO 3 RNAME OCB42330 0A18 C3CB 4234 | LD 3 LFORT OCB42340 0A19 1002 4235 | SLA 2 FORTRAN IND INTO SIGN 2-7 OCB42350 0A1A 6228 4236 | ET340 LDX 2 MSG40 SET UP ERROR R40 2-7 OCB42360 0A1B 4410 0407 4237 | BSI L TL000,- ERROR IF ML NOT FORTRAN 2-7 OCB42370 4238 | * OCB42380 4239 | * OCB42390 0A1D 7400 04A2 4240 | MDX L @OVSW,0 SKIP IF NO LOCALS OCB42400 0A1F 7003 4241 | MDX ET370 *BRANCH OTHERWISE OCB42410 0A20 C075 4242 | LD ET902 OCB42420 0A21 8095 4243 | A ET930 OCB42430 0A22 D073 4244 | STO ET902 ALLOW FOR LOCAL/SOCAL FLIPR OCB42440 0A23 740E 0A96 4245 | ET370 MDX L ET902,4*@LBEN+2 OPTION 1 OVERHEAD OCB42450 4246 | * 2-2 OCB42460 4247 | * COMPARE THE SIZES OF SOCALS 2-2 OCB42470 4248 | * CHECK IF ANY TWO SOCALS ARE ZERO 2-2 OCB42480 4249 | * 2-2 OCB42490 0A25 C389 4250 | LD 3 ARITH COMPARE THE SIZE OF 2-2 OCB42500 0A26 D06D 4251 | STO ET950 *SOCAL 1 WITH 2-2 OCB42510 0A27 C38A 4252 | LD 3 FORIO *THE SIZE OF 2-2 OCB42520 0A28 D06C 4253 | STO ET950+1 * 2-2 OCB42530 0A29 9389 4254 | S 3 ARITH *SOCAL 2 AND 2-2 OCB42540 0A2A 1001 4255 | SLA 1 *SET 2-2 OCB42550 0A2B C868 4256 | LDD ET950 *ET950 WITH THE 2-2 OCB42560 0A2C 4802 4257 | BSC C *SMALLEST OF THE TWO 2-2 OCB42570 0A2D 18D0 4258 | RTE 16 *AND 2-2 OCB42580 0A2E D865 4259 | STD ET950 *ET950+1 WITH THE LARGER2-2 OCB42590 4260 | * 2-2 OCB42600 0A2F 838B 4261 | A 3 DKFIO IS ANY TWO SOCALS 2-2 OCB42610 0A30 4820 4262 | BSC Z *ZERO, BR TO PRINT 2-2 OCB42620 0A31 C063 4263 | LD ET950+1 *MSG 18 AND 2-2 OCB42630 0A32 4418 0407 4264 | BSI L TL000,+- *EXIT 2-2 OCB42640 4265 | * OCB42650 0A34 4400 0447 4266 | BSI L PM300 PRINT ERROR R40 2-7 OCB42660 4267 | * 2-2 OCB42670 0A36 C38B 4268 | LD 3 DKFIO COMPARE SOCAL 3 WITH THE2-2 OCB42680 0A37 905D 4269 | S ET950+1 *LAGER OF SOCAL 1 AND 2-2 OCB42690 0A38 4C10 0A3C 4270 | BSC L ET390,- *SOCAL 2 AND SET 2-2 OCB42700 0A3A C38B 4271 | LD 3 DKFIO *ET950+1 2-2 OCB42710 0A3B D059 4272 | STO ET950+1 *WITH THE SMALLEST 2-2 OCB42720 4273 | * OCB42730 4274 | * (SOCAL OVERHEAD IS COST OF 2 ADDITIONAL LIBF TV OCB42740 4275 | * ENTRIES, 2 LONG BRANCHES, AND 1 WORD EACH FOR THE OCB42750 4276 | * WORD COUNT AND SECTOR ADDRESS OF THE SOCAL AREA.) OCB42760 4277 | * OCB42770 4278 | * PRINT SOCAL MESSAGES OCB42780 4279 | * OCB42790 0A3C C389 4280 | ET390 LD 3 ARITH OCB42800 0A3D D386 4281 | STO 3 RNAME OCB42810 0A3E 622B 4282 | LDX 2 MSG43 ARITH/FUNCTIONAL SIZE OCB42820 0A3F 4400 0447 4283 | BSI L PM300 PRINT MESSAGE R43 OCB42830 0A41 C38A 4284 | LD 3 FORIO OCB42840 0A42 D386 4285 | STO 3 RNAME OCB42850 0A43 622C 4286 | LDX 2 MSG44 FI/O SIZE OCB42860 0A44 4400 0447 4287 | BSI L PM300 PRINT MESSAGE R44 OCB42870 4288 | * OCB42880 4289 | * ARE THERE 2 MORE LIBF TV ENTRIES OCB42890 4290 | * OCB42900 0A46 C3F0 4291 | LD 3 LTVWC COMPARE LIBF TV LENGTH OCB42910 0A47 904F 4292 | S ET904 WITH MAX LENGTH,OPTION 1 OCB42920 0A48 4C30 0A90 4293 | BSC L ET460,Z- BR IF NOT ENOUGH ROOM OCB42930 4294 | * OCB42940 4295 | * DETERMINE WHETHER OR NOT SOCAL OPTION OCB42950 4296 | * 1 IS SUFFICIENT OCB42960 4297 | * OCB42970 0A4A C049 4298 | LD ET950 GET SMALLES OF SOCAL 1/22-2 OCB42980 4299 | * 6 STATEMENTS REMOVED 2-2 OCB42990 0A4B 904A 4300 | S ET902 SUB +(EXCESS CORE REQD) OCB43000 0A4C 93BB 4301 | S 3 ITVCT IF WE HAVE AN EVEN NMBR 2-8 OCB43010 0A4D 93BB 4302 | S 3 ITVCT *OF CALLS,TAKE CARE OF 2-8 OCB43020 4303 | * *THE TWO EXTRA WORDS 2-8 OCB43030 4304 | * *NEEDED IF AN ODD NUMBR 2-8 OCB43040 4305 | * *GOES INTO SOCAL 1 2-8 OCB43050 0A4E D047 4306 | STO ET902 *AND SAVE RESULT OCB43060 0A4F 7402 059A 4307 | MDX L OVLAY+X3,@LBEN-1 INDICATE OPTION 1 OCB43070 0A51 4C10 0A6C 4308 | BSC L ET420,- BRANCH IF FITS W/ OPTION 1 OCB43080 0A53 7401 059A 4309 | MDX L OVLAY+X3,@LBEN-2 INDICATE OPTION 2 OCB43090 4310 | * OCB43100 4311 | * DETERMINE WHETHER OR NOT SOCAL OPTION OCB43110 4312 | * 2 IS SUFFICIENT OCB43120 4313 | * OCB43130 0A55 C38B 4314 | LD 3 DKFIO OCB43140 0A56 D386 4315 | STO 3 RNAME OCB43150 0A57 4C18 0A5E 4316 | BSC L ET400,+- BR IF NO DISK FI/O CALLED OCB43160 0A59 74FA 0A96 4317 | MDX L ET902,-2*@LBEN OCB43170 0A5B 622D 4318 | LDX 2 MSG45 DISK FI/O SIZE OCB43180 0A5C 4400 0447 4319 | BSI L PM300 PRINT MESSAGE R45 OCB43190 0A5E C3F0 4320 | ET400 LD 3 LTVWC COMPARE LIBF TV LENGTH OCB43200 0A5F 903A 4321 | S ET907 *WITH MAX LENGTH, OPTION 2 OCB43210 0A60 4C30 0A90 4322 | BSC L ET460,Z- BR IF NOT ENOUGH ROOM OCB43220 0A62 C033 4323 | LD ET902 OCB43230 0A63 8031 4324 | A ET950+1 ADD THE SMALLES IN OP 2 2-2 OCB43240 0A64 4C10 0A6C 4325 | BSC L ET420,- *WITH SOCAL, OPTION 2 OCB43250 0A66 F031 4326 | EOR ET905 COMPLEMENT SHORTAGE LEFT OCB43260 0A67 838E 4327 | A 3 K1 * 2-1 OCB43270 0A68 4804 4328 | ET405 BSC E SKIP IF SHORTAGE EVEN OCB43280 0A69 838E 4329 | A 3 K1 MAKE SHORTAGE EVEN OCB43290 0A6A D386 4330 | STO 3 RNAME OCB43300 0A6B 70AE 4331 | MDX ET340 BR BECAUSE WILL NOT FIT OCB43310 4332 | * OCB43320 4333 | * COMPLETE THE SOCAL PROCESSING OCB43330 4334 | * OCB43340 0A6C 4804 4335 | ET420 BSC E SKIP IF WDS AVAILABLE EVEN OCB43350 0A6D 938E 4336 | S 3 K1 MAKE WDS AVAILABLE EVEN OCB43360 0A6E D386 4337 | STO 3 RNAME OCB43370 0A6F C3EE 4338 | LD 3 LSW22 GET LET/FLET SWITCH 212 OCB43380 0A70 4C20 0A75 4339 | BSC L ET430,Z BR IF ALL SUBR NOT FOUND212 OCB43390 0A72 6229 4340 | LDX 2 MSG41 WORDS AVAILABLE OCB43400 0A73 4400 0447 4341 | BSI L PM300 PRINT MESSAGE R41 OCB43410 0A75 C38E 4342 | ET430 LD 3 K1 212 OCB43420 0A76 83FA 4343 | A 3 OVLAY ADD SOCAL OPTION SWITCH OCB43430 0A77 D400 04A2 4344 | STO L @OVSW SET OVERLAY SWITCH OCB43440 0A79 C3F4 4345 | LD 3 MLWD1 CALCULATE ADDR OF END OCB43450 0A7A 8388 4346 | A 3 INCOR *OF LAST IN-CORE SUBROUTINE OCB43460 0A7B D01D 4347 | STO ET906 OCB43470 0A7C C3FA 4348 | LD 3 OVLAY OCB43480 0A7D 9390 4349 | S 3 K3 OCB43490 0A7E 4C18 0A83 4350 | BSC L ET440,+- BR IF OPTION 2 EMPLOYED OCB43500 0A80 C018 4351 | LD ET906 OCB43510 0A81 838B 4352 | A 3 DKFIO ADD IN LENGTH OF OCB43520 0A82 D016 4353 | STO ET906 DISK FORIO TO IN-CORE OCB43530 4354 | * OCB43540 4355 | * COMPUTE ADDR OF SOCAL AREA OCB43550 4356 | * OCB43560 0A83 C38C 4357 | ET440 LD 3 LOCAL FETCH WD CNT LONGEST LOCAL OCB43570 0A84 4820 4358 | BSC Z SKIP IF NO LOCALS OCB43580 0A85 838F 4359 | A 3 K2 ALLOW FOR LOCAL WD CNT,SAD OCB43590 0A86 8012 4360 | A ET906 ALLOW FOR IN-CORE SUBRS OCB43600 0A87 8400 09B7 4361 | A L ET930 ALLOW FOR THE OCB43610 0A89 838E 4362 | A 3 K1 *LOCAL/SOCAL FLIPPER OCB43620 0A8A 83AE 4363 | A 3 FLIPT OCB43630 0A8B 4804 4364 | BSC E SKIP IF ADDR ALREADY EVEN OCB43640 0A8C 838E 4365 | A 3 K1 ADJUST TO EVEN BOUNDARY OCB43650 0A8D D309 4366 | STO 3 SOCAR OCB43660 0A8E 4C00 09BA 4367 | BSC L ET180 BR TO MODIFY LOAD TABLE OCB43670 0A90 6209 4368 | ET460 LDX 2 MSG09 TOO MANY LIBFS OCB43680 0A91 4400 0407 4369 | BSI L TL000 PRINT MESSAGE R10 AND EXIT OCB43690 4370 | * 2-2 OCB43700 4371 | * OCB43710 4372 | * CONSTANTS AND WORK AREAS OCB43720 4373 | * OCB43730 0A94 4374 | BSS E 0 2-2 OCB43740 0A94 0000 4375 | ET950 DC *-* 2-2 OCB43750 0A95 0000 4376 | DC *-* 2-2 OCB43760 0A96 0000 4377 | ET902 DC *-* -(EXCESS CORE REQUIRED) OCB43770 0A97 00F6 4378 | ET904 DC @MXLB*@LBEN-3*@LBEN MAX LIBF TV,SCL 1 OCB43780 0A98 FFFF 4379 | ET905 DC /FFFF CONSTANT FOR COMPLEMENTING OCB43790 0A99 0000 4380 | ET906 DC *-* IN-CORE WORD COUNT OCB43800 0A9A 00F3 4381 | ET907 DC @MXLB*@LBEN-4*@LBEN MAX LIBF TV,SCL 2 OCB43810 4382 | * OCB43820 0A9B 4383 | P4END BSS P3END-* PATCH AREA OCB43830 0A9F 0000 4384 | DC 0 PATCH AREA OCB43840 CORE LOAD BUILDER, PHASE 5 4386 | *************************************************** OCB43860 4387 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * OCB43870 4388 | * * OCB43880 4389 | *FUNCTION/OPERATION- * OCB43890 4390 | * * THIS PHASE IS FLIP-FLOPPED WITH PHASE 3. IT * OCB43900 4391 | * IS BROUGHT INTO CORE ONCE IF THERE ARE * OCB43910 4392 | * LOCALS AND ONCE FOR EACH SOCAL. IT CONSISTS * OCB43920 4393 | * OF SUBROUTINES * OCB43930 4394 | * * PL000-BUILDS FLIPPER TABLE IF LOCALS ARE * OCB43940 4395 | * SPECIFIED. * OCB43950 4396 | * * PS000-PROCESSES THE BUILDING OF EACH SOCAL* OCB43960 4397 | * * FF000-RELOCATES FLIPPER SUBROUTINE. * OCB43970 4398 | * * OCB43980 4399 | *ENTRY POINTS- * OCB43990 4400 | * * EACH SUBROUTINE HAS ONE ENTRY POINT * OCB44000 4401 | * BSI L XX000 * OCB44010 4402 | * WHERE XX000 IS THE FIRST WORD. * OCB44020 4403 | * * OCB44030 4404 | *INPUT- * OCB44040 4405 | * * FLIPPER SUBROUTINE IN DSF * OCB44050 4406 | * * OCB44060 4407 | *OUTPUT- * OCB44070 4408 | * * THE FLIPPER TABLE * OCB44080 4409 | * * SOCALS * OCB44090 4410 | * * RELOCATED FLIPPER SUBROUTINE * OCB44100 4411 | * * OCB44110 4412 | *EXTERNAL REFERENCES- * OCB44120 4413 | * * SUBROUTINES- * OCB44130 4414 | * * GP000-GET/PUT DISK SUBROUTINE * OCB44140 4415 | * * LS000-FINDING PROGRAM IN LET/FLET * OCB44150 4416 | * * RH000-READ PROGRAM HEADER TO DATA BUFFER * OCB44160 4417 | * * RL000-RELOCATE A PROGRAM * OCB44170 4418 | * * TR000-OUTPUT ONE DATA WORD TO CORE OR DISK* OCB44180 4419 | * * COMMA/DCOM- * OCB44190 4420 | * * $FPAD * OCB44200 4421 | * * $WSDR * OCB44210 4422 | * * OCB44220 4423 | *EXITS- * OCB44230 4424 | * * NORMA- * OCB44240 4425 | * * BACK TO CALLER VIA THE FIRST WORD * OCB44250 4426 | * * ERROR-N/A * OCB44260 4427 | * * OCB44270 4428 | *TABLES/WORK AREAS- * OCB44280 4429 | * * RCOM * OCB44290 4430 | * * OCB44300 4431 | *NOTES-N/A * OCB44310 4432 | *************************************************** OCB44320 CORE LOAD BUILDER, PHASE 5 4434 | * PARAMETERS FOR SYSTEM LOADER OCB44340 4435 | * OCB44350 08B6 4436 | ORG MV000 ORG TO PHASE OVERLAY AREA OCB44360 *SBRKGL 7C 4437 | *CORE LOAD BUILDER, PHASE 5 V2M02 OCB44370 08B6 013D 4438 | DC P5END-*-1 PHASE 5 WD CNT OCB44380 08B7 007C 4439 | DC @CLB5 ID NO. OF CLB, PHASE 5 OCB44390 CORE LOAD BUILDER, PHASE 5 08B8 0000 4441 | PL000 DC *-* ENTRY POINT OCB44410 4442 | * OCB44420 4443 | * LOCAL PROCESSING OCB44430 4444 | * OCB44440 08B9 C3E1 4445 | LD 3 LSW09 OCB44450 08BA D3EB 4446 | STO 3 LSW19 SET OVERLAY SWITCH OCB44460 08BB C3FB 4447 | LD 3 RELOC OCB44470 08BC D3BC 4448 | STO 3 LACTR OCB44480 08BD C3AE 4449 | LD 3 FLIPT OCB44490 08BE 4804 4450 | BSC E SKIP IF ALREADY EVEN OCB44500 08BF 838E 4451 | A 3 K1 MAKE FLIPPER TBL @WCNT EVEN OCB44510 08C0 83FB 4452 | A 3 RELOC COMPUTE STARTING ADDR OF OCB44520 08C1 D3AF 4453 | STO 3 FLPAD *FLIPPER TBL AND SAVE IT OCB44530 08C2 8032 4454 | A PL930 ADD IN FLIPPER WD CNT OCB44540 08C3 4804 4455 | BSC E SKIP IF ADDR OF LOCAL AREA OCB44550 08C4 838E 4456 | A 3 K1 *EVEN, ADJUST OTHERWISE OCB44560 08C5 D3D3 4457 | STO 3 LOCAR *GET ADDR OF LOCAL AREA OCB44570 08C6 D3D6 4458 | STO 3 LSADR OCB44580 08C7 6580 007A 4459 | LDX I1 $WSDR OCB44590 08C9 C3B0 4460 | LD 3 FSCTR OCB44600 08CA 9500 0095 4461 | S L1 $FPAD OCB44610 08CC D400 048D 4462 | STO L @LSCT OCB44620 4463 | * OCB44630 4464 | * BUILD THE FLIPPER TABLE OCB44640 4465 | * OCB44650 08CE 6580 059C 4466 | PL040 LDX I1 RIGHT+X3 RIGHT LIMIT OF TBL TO XR1 OCB44660 08D0 6680 055E 4467 | LDX I2 LBATV+X3 LOAD TABLE LENGTH TO XR2 OCB44670 08D2 1810 4468 | SRA 16 OCB44680 08D3 D01D 4469 | STO PL910 CLEAR BYPASS SWITCH OCB44690 08D4 C100 4470 | PL060 LD 1 @WRD1 FETCH 1ST WORD OF NAME OCB44700 08D5 4C10 0939 4471 | BSC L PL340,- BR IF NOT A LOCAL OCB44710 08D7 C103 4472 | LD 1 @WRD4 BR IF ANOTHER ENTRY POINT OCB44720 08D8 4C10 0932 4473 | BSC L PL320,- *TO A LOCAL OCB44730 08DA 7400 08F1 4474 | MDX L PL910,0 SKIP IF CURR ENTRY NOT OCB44740 08DC 705C 4475 | MDX PL340 *PROCESSED, BR OTHERWISE OCB44750 08DD 6913 4476 | STX 1 PL910 SET BYPASS SWITCH OCB44760 08DE F399 4477 | EOR 3 K8000 SAVE WD CNT CURR LOCAL OCB44770 08DF D012 4478 | STO PL915 *WITH SIGN BIT SET OCB44780 08E0 C102 4479 | PL080 LD 1 @WRD3 FETCH RELATIVE EXEC ADDR OCB44790 08E1 83D3 4480 | A 3 LOCAR ADD ADDR OF LOCAL AREA OCB44800 08E2 D102 4481 | STO 1 @WRD3 OCB44810 08E3 C3BC 4482 | LD 3 LACTR STORE ADDR OF FLIPPER OCB44820 08E4 D103 4483 | STO 1 @WRD4 *TABLE ENTRY IN LOAD TABLE OCB44830 08E5 C100 4484 | LD 1 @WRD1 FETCH 1ST WORD OF NAME OCB44840 08E6 1001 4485 | SLA 1 OCB44850 08E7 4C10 08F8 4486 | BSC L PL220,- BR IF CURR LOCAL A LIBF OCB44860 4487 | * OCB44870 4488 | * START TO CREATE AN ENTRY IN FLIPPER TABLE FOR OCB44880 4489 | * A CALL STATEMENT OCB44890 4490 | * OCB44900 08E9 1810 4491 | SRA 16 OCB44910 08EA 4400 07E7 4492 | PL100 BSI L TR000 OUTPUT THE LINK WORD OCB44920 08EC 74FF 054E 4493 | MDX L FLIPT+X3,-@FCEN+@FLEN ACCUM FLIPT CNT OCB44930 08EE C3AF 4494 | LD 3 FLPAD OCB44940 08EF 8006 4495 | A PL935 OCB44950 08F0 7009 4496 | MDX PL240 BR TO CONTINUE PROCESSING OCB44960 4497 | * OCB44970 4498 | * CONSTANTS AND WORK AREAS OCB44980 4499 | * OCB44990 08F1 0000 4500 | PL910 DC *-* SWITCH--NON-ZERO=BYPASS OCB45000 08F2 0000 4501 | PL915 DC *-* LOCAL WORD COUNT OCB45010 08F3 0000 4502 | PL920 DC *-* ENTRY POINT TO FLIPPER OCB45020 08F4 0001 4503 | PL925 DC FL010 LIBF ENTRY POINT TO FLIPPER OCB45030 08F5 0065 4504 | PL930 DC FL998+1 WD CNT OF LOCAL/SOCAL FLIPPER OCB45040 08F6 0009 4505 | PL935 DC FL020 CALL ENTRY POINT TO FLIPPER OCB45050 08F7 0095 4506 | PL940 DC $FPAD ADDR OF WKNG STORAGE,LOG DR 0 OCB45060 4507 | * OCB45070 4508 | * OCB45080 4509 | * OCB45090 4510 | * OCB45100 4511 | * START TO CREATE A ENTRY IN FLIPPER OCB45110 4512 | * TABLE FOR A LIBF STATEMENT OCB45120 4513 | * OCB45130 08F8 C3AF 4514 | PL220 LD 3 FLPAD OCB45140 08F9 80FA 4515 | A PL925 OCB45150 4516 | * OCB45160 4517 | * CREATE REMAINDER OF ENTRY OCB45170 4518 | * OCB45180 08FA D0F8 4519 | PL240 STO PL920 SAVE FLIPR ENTRY ADDR OCB45190 08FB C0EE 4520 | LD PL100 OCB45200 08FC 4400 07E7 4521 | BSI L TR000 OUTPUT BSI L OCB45210 08FE C0F4 4522 | LD PL920 OCB45220 08FF 4400 07E7 4523 | BSI L TR000 OUTPUT FLIPPER ENTRY ADDR OCB45230 0901 C0F0 4524 | LD PL915 OCB45240 0902 4400 07E7 4525 | BSI L TR000 OUTPUT LOCAL WORD COUNT OCB45250 0904 C400 007A 4526 | LD L $WSDR OCB45260 0906 80F0 4527 | A PL940 OCB45270 0907 D003 4528 | STO PL250+1 OCB45280 0908 C480 05B6 4529 | LD I WSADR+X3 FETCH CURR LOCAL SCTR ADDR OCB45290 090A 9400 0000 4530 | PL250 S L *-* *ADDR AND RELATIVEIZE IT OCB45300 090C 4400 07E7 4531 | BSI L TR000 OUTPUT SECTOR ADDR OCB45310 090E C102 4532 | LD 1 @WRD3 FETCH ABS EXEC ADDR OCB45320 090F 4400 07E7 4533 | BSI L TR000 OUTPUT EXEC ADDR OCB45330 0911 C102 4534 | LD 1 @WRD3 FLAG CURR LOCAL IN LD TBL OCB45340 0912 F399 4535 | EOR 3 K8000 *AS HAVING BEEN PROCESSED OCB45350 0913 D102 4536 | STO 1 @WRD3 OCB45360 0914 74FB 054E 4537 | MDX L FLIPT+X3,-@FLEN SKIP IF LAST FLIP TBL OCB45370 0916 7022 4538 | MDX PL340 *ENTRY PROCESSED,BR OTHERWS OCB45380 0917 C3BC 4539 | LD 3 LACTR ASSURE THAT FLIPPER OCB45390 0918 4804 4540 | BSC E *SUBROUTINE WILL START ON OCB45400 0919 838E 4541 | A 3 K1 *AN EVEN BOUNDARY OCB45410 091A D3FB 4542 | STO 3 RELOC OCB45420 091B 4400 09DA 4543 | BSI L FF000 RELOCATE FLIPPER SUBROUTINE OCB45430 4544 | * OCB45440 4545 | * CLEAR WD 3 OF ALL LOCALS IN THE LOAD TABLE OCB45450 4546 | * OCB45460 091D 6580 059C 4547 | LDX I1 RIGHT+X3 RIGHT LIMIT OF TBL TO XR1 OCB45470 091F 6680 055E 4548 | LDX I2 LBATV+X3 LOAD TABLE LENGTH TO XR2 OCB45480 0921 C100 4549 | PL260 LD 1 @WRD1 FETCH 1ST WORD OF NAME OCB45490 0922 4C10 0926 4550 | BSC L PL280,- BR IF NOT A LOCAL OCB45500 0924 1810 4551 | SRA 16 OCB45510 0925 D102 4552 | STO 1 @WRD3 CLEAR EXEC ADDR TO ZERO OCB45520 0926 71FC 4553 | PL280 MDX 1 -@LTEN POINT TO NEXT LD TBL ENTRY OCB45530 0927 72FC 4554 | MDX 2 -@LTEN SKIP AT END OF LOAD TABLE OCB45540 0928 70F8 4555 | MDX PL260 BACK TO CHECK NEXT ENTRY OCB45550 0929 C38D 4556 | LD 3 K0 OCB45560 092A D3E1 4557 | STO 3 LSW09 ZERO TO SWITCH 9 OCB45570 092B C3B0 4558 | LD 3 FSCTR RESTORE LOCAL SCTR ADDR OCB45580 092C 6580 007A 4559 | LDX I1 $WSDR OCB45590 092E D500 05A1 4560 | STO L1 SCTAD+X3 OCB45600 0930 4C80 08B8 4561 | BSC I PL000 RETURN OCB45610 4562 | * OCB45620 4563 | * DETERMINE WHETHER OR NOT TO PROCESS CURR LOCAL OCB45630 4564 | * OCB45640 0932 C102 4565 | PL320 LD 1 @WRD3 FETCH EXEC ADDR OCB45650 0933 4C28 0939 4566 | BSC L PL340,+Z BR IF PROCESSED PREVIOUSLY OCB45660 0935 C0BB 4567 | LD PL910 OCB45670 0936 9103 4568 | S 1 @WRD4 BR IF ANOTHER ENTRY TO AN OCB45680 0937 4C18 08E0 4569 | BSC L PL080,+- *ALREADY-PROCESSED LOCAL OCB45690 0939 71FC 4570 | PL340 MDX 1 -@LTEN POINT TO NEXT LD TBL ENTRY OCB45700 093A 72FC 4571 | MDX 2 -@LTEN SKIP AT END OF LOAD TABLE, OCB45710 093B 7098 4572 | MDX PL060 *BRANCH OTHERWISE OCB45720 4573 | * OCB45730 4574 | * GET SECTOR ADDR OF LAST LOCAL OCB45740 4575 | * OCB45750 093C C316 4576 | LD 3 WSADR OCB45760 093D D002 4577 | STO PL360+1 OCB45770 093E C0B3 4578 | LD PL915 FETCH LOCAL WD CNT OCB45780 093F 7401 0000 4579 | PL360 MDX L *-*,1 ACCUMULATE SECTOR ADDRESS OCB45790 0941 9397 4580 | S 3 K320 SUB LENGTH OF 1 SCTR OCB45800 0942 4C08 08CE 4581 | BSC L PL040,+ BR IF ADDR COMPUTED OCB45810 0944 70FA 4582 | MDX PL360 BACK TO CONTINUE COUNTING OCB45820 CORE LOAD BUILDER, PHASE 5 4584 | * OCB45840 4585 | * SOCAL PROCESSING OCB45850 4586 | * OCB45860 0945 0000 4587 | PS000 DC *-* ENTRY POINT OCB45870 0946 C3E5 4588 | LD 3 LSW13 OCB45880 0947 4C20 0963 4589 | BSC L PS020,Z BR UNLESS 1ST TIME THROUGH OCB45890 0949 C38E 4590 | LD 3 K1 OCB45900 094A D3E5 4591 | STO 3 LSW13 OCB45910 094B C3E1 4592 | LD 3 LSW09 OCB45920 094C D3EB 4593 | STO 3 LSW19 OCB45930 094D C300 4594 | LD 3 SCLCT FETCH SOCAL TV COUNT OCB45940 094E 4804 4595 | BSC E SKIP IF COUNT EVEN OCB45950 094F 8030 4596 | A PS940 MAKE COUNT EVEN OCB45960 0950 D300 4597 | STO 3 SCLCT OCB45970 0951 C309 4598 | LD 3 SOCAR OCB45980 0952 D3D6 4599 | STO 3 LSADR OCB45990 0953 C3AF 4600 | LD 3 FLPAD OCB46000 0954 4C20 0961 4601 | BSC L PS010,Z BR UNLESS NO LOCALS OCB46010 0956 6580 007A 4602 | LDX I1 $WSDR OCB46020 0958 C3B0 4603 | LD 3 FSCTR OCB46030 0959 9500 0095 4604 | S L1 $FPAD STORE RELATIVEIZED SOCAL OCB46040 095B D400 048D 4605 | STO L @LSCT *SECTOR ADDR OCB46050 095D C3FB 4606 | LD 3 RELOC OCB46060 095E D3AF 4607 | STO 3 FLPAD OCB46070 095F 4400 09DA 4608 | BSI L FF000 FETCH THE FLIPPER SUBR OCB46080 0961 C38D 4609 | PS010 LD 3 K0 SET SW9 TO INDICATE END OF OCB46090 0962 D3E1 4610 | STO 3 LSW09 *LOCAL PROCESSING MODE OCB46100 0963 C3E1 4611 | PS020 LD 3 LSW09 OCB46110 0964 938E 4612 | S 3 K1 OCB46120 0965 4C18 09AF 4613 | BSC L PS340,+- BR IF PROCESSING SOCAL 1 OCB46130 0967 C3E1 4614 | LD 3 LSW09 OCB46140 0968 4C20 09CE 4615 | BSC L PS480,Z BR UNLESS IN LOCAL MODE OCB46150 096A C309 4616 | PS060 LD 3 SOCAR OCB46160 096B D3FB 4617 | STO 3 RELOC OCB46170 096C C3E1 4618 | LD 3 LSW09 COMPARE CURR SOCAL NO. OCB46180 096D 93FA 4619 | S 3 OVLAY *WITH OVERLAY SWITCH OCB46190 096E 4C20 0983 4620 | BSC L PS260,Z BR IF MORE SOCALS TO DO OCB46200 4621 | * OCB46210 4622 | * PREPARE TO RELOCATE REMAINING IN-CORE SUBROUTINES OCB46220 4623 | * OCB46230 0970 C3B1 4624 | LD 3 HADDR SET RELOCATION FACTOR TO OCB46240 0971 D3FB 4625 | STO 3 RELOC OCB46250 0972 C399 4626 | LD 3 K8000 GO BACK TO IN-CORE MODE FOR OCB46260 0973 D3E1 4627 | STO 3 LSW09 *RELOCATING THE ILS'S OCB46270 0974 C00D 4628 | LD PS950 OCB46280 0975 D306 4629 | STO 3 SCTRX OCB46290 4630 | * OCB46300 4631 | * WRITE OUT LAST SOCAL SECTOR OUTSIDE CONTROL OF TR OCB46310 4632 | * SUBROUTINE SO THAT IT WILL NOT BE LOST OCB46320 4633 | * OCB46330 0976 C3A3 4634 | LD 3 CIBBF OCB46340 0977 18D0 4635 | RTE 16 OCB46350 0978 C38E 4636 | LD 3 K1 OCB46360 0979 4400 0418 4637 | BSI L GP000 WRITE OUT CIB BUFFER OCB46370 097B C3E1 4638 | LD 3 LSW09 MUST BE FOR MC000 ROUT 212 OCB46380 097C 4C80 0945 4639 | PS120 BSC I PS000 RETURN OCB46390 4640 | * OCB46400 4641 | * CONSTANTS AND WORK AREAS OCB46410 4642 | * OCB46420 097E 0000 4643 | PS900 DC *-* NO. FUNCTIONALS REMAINING OCB46430 097F 0033 4644 | PS905 DC FL200 ADDR FUNC ENT,SOCAL FLIPPER OCB46440 0980 0001 4645 | PS940 DC @CLEN WD CNT OF A CALL TV ENTRY OCB46450 0981 0095 4646 | PS945 DC $FPAD OCB46460 0982 0011 4647 | PS950 DC @SCIB+1 1 + NO. SECTORS IN THE CIB OCB46470 4648 | * OCB46480 4649 | * COMPUTE WORD COUNT AND SECTOR ADDR FOR CURR SOCAL OCB46490 4650 | * OCB46500 0983 6680 0581 4651 | PS260 LDX I2 LSW09+X3 SOCAL NO. TO XR2 OCB46510 0985 C300 4652 | LD 3 SCLCT FETCH SOCAL TV WD CNT OCB46520 0986 8600 0529 4653 | A L2 ARITH+X3 OCB46530 0988 D600 05AC 4654 | STO L2 S1WCT+X3 STORE SOCAL WD CNT OCB46540 098A C400 007A 4655 | LD L $WSDR OCB46550 098C 80F4 4656 | A PS945 OCB46560 098D D003 4657 | STO PS270+1 OCB46570 098E C480 05B6 4658 | LD I WSADR+X3 FETCH CURR SOCAL SCTR ADDR OCB46580 0990 9400 0000 4659 | PS270 S L *-* *ADDR AND RELATIVEIZE IT OCB46590 0992 D600 05AF 4660 | STO L2 S1SAD+X3 STORE RLTV SCTR ADDR OCB46600 4661 | * OCB46610 4662 | * OUTPUT SOCALS AND THE SOCAL TV OCB46620 4663 | * OCB46630 0994 C0ED 4664 | LD PS950 OCB46640 0995 D306 4665 | STO 3 SCTRX OCB46650 0996 C309 4666 | LD 3 SOCAR FETCH ADDR OF SOCAL AREA OCB46660 0997 8300 4667 | A 3 SCLCT ADD NO. OF FUNCTION SUBRS OCB46670 0998 D3BC 4668 | STO 3 LACTR OCB46680 0999 D3FB 4669 | STO 3 RELOC OCB46690 099A C3E1 4670 | LD 3 LSW09 OCB46700 099B 838E 4671 | A 3 K1 OCB46710 099C D3E1 4672 | STO 3 LSW09 OCB46720 099D 938E 4673 | S 3 K1 BR IF CURRENTLY PROCESSING OCB46730 099E 4C18 097C 4674 | BSC L PS120,+- *SOCAL, OPTION 1 OCB46740 09A0 C300 4675 | LD 3 SCLCT FETCH SOCAL TV COUNT OCB46750 09A1 D0DC 4676 | STO PS900 OCB46760 09A2 4C18 097C 4677 | BSC L PS120,+- BRANCH IF NO FUNCTIONS OCB46770 4678 | * OCB46780 4679 | * OUTPUT THE SOCAL TV FOR SOCALS 2 AND/OR 3 OCB46790 4680 | * OCB46800 09A4 C309 4681 | LD 3 SOCAR SET LOCATION ADDR CTR TO OCB46810 09A5 D3BC 4682 | STO 3 LACTR *OUTPUT THE SOCAL TV OCB46820 09A6 C0D8 4683 | PS280 LD PS905 OUTPUT ADDR OF SOCAL FLIP- OCB46830 09A7 83AF 4684 | A 3 FLPAD *PER ENTRY FOR FUNCTIONS OCB46840 09A8 D30A 4685 | STO 3 STVAD 2-2 OCB46850 09A9 4400 07E7 4686 | BSI L TR000 *AND OUTPUT IT OCB46860 09AB 74FF 097E 4687 | MDX L PS900,-1 SKIP AFTER LAST SOCAL TV OCB46870 09AD 70F8 4688 | MDX PS280 *ENTRY, BR OTHERWISE OCB46880 09AE 70CD 4689 | MDX PS120 TO EXIT OCB46890 4690 | * OCB46900 4691 | * OUTPUT THE SOCAL TV FOR SOCAL 1 OCB46910 4692 | * OCB46920 09AF C300 4693 | PS340 LD 3 SCLCT OCB46930 09B0 D0CD 4694 | STO PS900 OCB46940 09B1 4C18 09CE 4695 | BSC L PS480,+- BR IF NO FUNCTION SUBRS OCB46950 09B3 6580 059C 4696 | LDX I1 RIGHT+X3 SCAN FOR SOCAL OCB46960 09B5 C309 4697 | LD 3 SOCAR *TV EXECUTION ADDR OCB46970 09B6 D3BC 4698 | STO 3 LACTR SET TO OUTPUT SOCAL TV OCB46980 09B7 C100 4699 | PS360 LD 1 @WRD1 FETCH 1ST WORD OF NAME OCB46990 09B8 4C28 09C7 4700 | BSC L PS380,Z+ BRANCH FOR LOCAL ENTRIES OCB47000 09BA 1001 4701 | SLA 1 OCB47010 09BB 4C10 09C7 4702 | BSC L PS380,- BR IF CURR ENTRY IS A LIBF OCB47020 09BD C103 4703 | LD 1 @WRD4 FETCH CLASS CODE OCB47030 09BE 4C18 09C7 4704 | BSC L PS380,+- BR IF ENTRY IS AN IN-CORE OCB47040 09C0 C102 4705 | LD 1 @WRD3 FETCH EXECUTION ADDR OCB47050 09C1 4400 07E7 4706 | BSI L TR000 OUTPUT A SOCAL TV ENTRY OCB47060 09C3 74FF 097E 4707 | MDX L PS900,-1 SKIP AFTER LAST FUNCTION OCB47070 09C5 7001 4708 | MDX PS380 BR TO PROCESS NEXT FUNC OCB47080 09C6 7002 4709 | MDX PS400 BR AFTER LAST FUNCTIONS OCB47090 09C7 71FC 4710 | PS380 MDX 1 -@LTEN SKIP AT END OF LOAD TABLE OCB47100 09C8 70EE 4711 | MDX PS360 BR TO OUTPUT NEXT ENTRY OCB47110 09C9 C3A3 4712 | PS400 LD 3 CIBBF OCB47120 09CA 18D0 4713 | RTE 16 OCB47130 09CB C38E 4714 | LD 3 K1 OCB47140 09CC 4400 0418 4715 | BSI L GP000 WRITE CONTENTS OF CIB BFR OCB47150 4716 | * OCB47160 4717 | * ACCUMULATE SCTR ADDR OF NEXT SOCAL OCB47170 4718 | * OCB47180 09CE 6680 0581 4719 | PS480 LDX I2 LSW09+X3 SOCAL NO. TO XR2 OCB47190 09D0 C316 4720 | LD 3 WSADR OCB47200 09D1 D003 4721 | STO PS500+1 OCB47210 09D2 C600 05AB 4722 | LD L2 S1WCT-1+X3 FETCH CURR SOCAL WD CNT OCB47220 09D4 7401 0000 4723 | PS500 MDX L *-*,1 ACCUMULATE SOCAL SCTR ADDR OCB47230 09D6 9397 4724 | S 3 K320 OCB47240 09D7 4C08 096A 4725 | BSC L PS060,+ BR TO CONTINUE PROCESSING OCB47250 09D9 70FA 4726 | MDX PS500 BR UNTIL SCTR CT ACCUMULATD OCB47260 CORE LOAD BUILDER, PHASE 5 4728 | * RELOCATE FLIPPER SUBROUTINE OCB47280 4729 | * OCB47290 09DA 0000 4730 | FF000 DC *-* ENTRY POINT OCB47300 09DB C816 4731 | LDD FF900 FETCH NAME OF FLIPPER SUBR OCB47310 09DC DB82 4732 | STD 3 NAME OCB47320 09DD C38E 4733 | LD 3 K1 SET SW 3 OCB47330 09DE D3DB 4734 | STO 3 LSW03 OCB47340 09DF 4400 01E4 4735 | BSI L LS000 LOOK UP FLIPPER IN LET OCB47350 4736 | * *UPON RETURN, ACC = 212 OCB47360 4737 | * *LET/FLET INDR (LSW22) 212 OCB47370 09E1 4CA8 09DA 4738 | BSC I FF000,+Z RETURN IF NOT IN LET 212 OCB47380 09E3 C3AB 4739 | LD 3 DRCDE OCB47390 09E4 D3C0 4740 | STO 3 LDCDE OCB47400 09E5 4400 0266 4741 | BSI L RH000 FETCH PROGRAM HEADER OCB47410 09E7 C38D 4742 | LD 3 K0 OCB47420 09E8 D3A6 4743 | STO 3 CLASS ZERO TO CLASS CODE OCB47430 09E9 C00A 4744 | LD FF910 OCB47440 09EA D3F1 4745 | STO 3 LTYPE SET TYPE TO 4 OCB47450 09EB 4400 0648 4746 | BSI L RL000 RELOCATE FLIPPER SUBROUTINE OCB47460 09ED C38D 4747 | LD 3 K0 RESET SW 3 OCB47470 09EE D3DB 4748 | STO 3 LSW03 OCB47480 09EF 4C80 09DA 4749 | BSC I FF000 RETURN OCB47490 4750 | * OCB47500 4751 | * CONSTANTS AND WORK AREAS OCB47510 4752 | * OCB47520 09F2 4753 | BSS E 0 OCB47530 09F2 064C 95D9 4754 | FF900 DN FLIPR OCB47540 09F4 0004 4755 | FF910 DC 4 TYPE CODE FOR CALL SUBR OCB47550 4756 | * OCB47560 09F5 4757 | P5END BSS P3END-* PATCH AREA OCB47570 0A9F 0000 4758 | DC 0 PATCH AREA OCB47580 CORE LOAD BUILDER, PHASE 6 4760 | *************************************************** OCB47600 4761 | *STATUS-VERSION 2, MODIFICATION 10 * OCB47610 4762 | * * OCB47620 4763 | *FUNCTION/OPERATION- * OCB47630 4764 | * PHASE 6 PERFORMS MISCELLANEOUS FUNCTIONS TO * OCB47640 4765 | * TERMINATE THE BUILDING OF A CORE LOAD. PHASE* OCB47650 4766 | * 6 IS READ INTO CORE ON THE SAME PLACE AS * OCB47660 4767 | * PHASES 3, 4 AND 5. * OCB47670 4768 | * * TV000-REPLACES 3RD WORD OF LOCAL ENTRIES * OCB47680 4769 | * IN THE LOAD TABLE WITH 4TH WORD, * OCB47690 4770 | * CREATES THE TRANSFER VECTOR. * OCB47700 4771 | * * TP000-FILLS IN THE 3RD WORD OF LIBF ENTRY * OCB47710 4772 | * POINTS, OUTPUTS PARAMETERS IN LOCAL/SOCAL * OCB47720 4773 | * FLIPPER, WRITES CORE IMAGE HEADER ON 1ST * OCB47730 4774 | * SECTOR OF CIB, CLEARS #FMAT AND WSCT IN * OCB47740 4775 | * DCOM. * OCB47750 4776 | * * OCB47760 4777 | *ENTRY POINTS- * OCB47770 4778 | * * EACH SUBROUTINE HAS ONE ENTRY POINT * OCB47780 4779 | * BSI L XX000 * OCB47790 4780 | * WHERE XX000 IS THE FIRST WORD * OCB47800 4781 | * * OCB47810 4782 | *INPUT-N/A * OCB47820 4783 | * * OCB47830 4784 | *OUTPUT-N/A * OCB47840 4785 | * * OCB47850 4786 | *EXTERNAL REFERENCES- * OCB47860 4787 | * * SUBROUTINES- * OCB47870 4788 | * * BT000-ENTER NAME IN LOAD TABLE * OCB47880 4789 | * * GP000-GET/PUT DISK SUBROUTINE * OCB47890 4790 | * * PM000-FLIPPER FOR PRINTING MESSAGES * OCB47900 4791 | * * TR000-OUTPUT ONE DATA WORD TO CORE OR DISK* OCB47910 4792 | * * COMMA/DCOM- * OCB47920 4793 | * * $CIBA * OCB47930 4794 | * * $DADR * OCB47940 4795 | * * $DCDE * OCB47950 4796 | * * $DREQ * OCB47960 4797 | * * $I200 * OCB47970 4798 | * * $WSDR * OCB47980 4799 | * * #FMAT * OCB47990 4800 | * * #WSCT * OCB48000 4801 | * * OCB48010 4802 | *EXITS- * OCB48020 4803 | * * NORMAL- * OCB48030 4804 | * * BACK TO CALLER VIA THE FIRST WORD * OCB48040 4805 | * * ERROR-N/A * OCB48050 4806 | * * OCB48060 4807 | *TABLES/WORK AREAS- * OCB48070 4808 | * * LOAD TABLE * OCB48080 4809 | * * RCOM * OCB48090 4810 | * * OCB48100 4811 | *NOTES-N/A * OCB48110 4812 | *************************************************** OCB48120 CORE LOAD BUILDER, PHASE 6 4814 | * PARAMETERS FOR THE SYSTEM LOADER OCB48140 4815 | * OCB48150 08B6 4816 | ORG MV000 OCB48160 *SBRKGL 7D 4817 | *CORE LOAD BUILDER, PHASE 6 V2M03 OCB48170 08B6 01CA 4818 | DC P6END-*-1 PHASE 6 WD CNT OCB48180 08B7 007D 4819 | DC @CLB6 ID NO. OF CLB, PHASE 6 OCB48190 CORE LOAD BUILDER, PHASE 6 4821 | * TERMINAL PROCESSING SUCH AS CREATING THE TRANSFER OCB48210 4822 | * VECTOR, FILLING IN EXIT CTRL CELLS, AND COMPLET- OCB48220 4823 | * ING THE CORE IMAGE HEADER RECORD OCB48230 4824 | * OCB48240 08B8 0000 4825 | TV000 DC *-* ENTRY POINT OCB48250 08B9 C3B1 4826 | LD 3 HADDR STORE HIGHEST ADDR USED OCB48260 08BA D3BC 4827 | STO 3 LACTR OCB48270 4828 | * THIS AND NEXT INSTRUCTION MOVED TO FIX 2-2 OCB48280 4829 | * CALLS ONLY W/ LOCALS BUG 2-2 OCB48290 08BB 7406 0490 4830 | MDX L @TVWC,2*@LBEN ALLOW FOR FAC,INDICATRS OCB48300 4831 | * OCB48310 4832 | * PUT WD 4 IN WD 3 FOR ALL LOCAL ENTRIES OCB48320 4833 | * OCB48330 08BD 6580 059C 4834 | LDX I1 RIGHT+X3 RIGHT LIMIT OF TBL TO XR1 OCB48340 08BF 6680 055E 4835 | LDX I2 LBATV+X3 LOAD TABLE LENGTH TO XR2 OCB48350 08C1 C100 4836 | TV040 LD 1 0 OCB48360 08C2 4810 4837 | BSC - SKIP ON LOCAL ENTRIES OCB48370 08C3 7004 4838 | MDX TV060 BR ON NON-LOCAL ENTRIES OCB48380 08C4 C103 4839 | LD 1 @WRD4 REPLACE 3RD WORD OF LOAD OCB48390 08C5 D102 4840 | STO 1 @WRD3 *TABLE ENTRY WITH 4TH WORD OCB48400 08C6 1810 4841 | SRA 16 ZERO TO 4TH WORD OCB48410 08C7 D103 4842 | STO 1 @WRD4 OCB48420 08C8 71FC 4843 | TV060 MDX 1 -@LTEN POINT TO NEXT LD TBL ENTRY OCB48430 08C9 72FC 4844 | MDX 2 -@LTEN SKIP AT END OF LOAD TABLE OCB48440 08CA 70F6 4845 | MDX TV040 BR TO CHECK NEXT ENTRY OCB48450 4846 | * OCB48460 4847 | * CREATE THE LINKAGES TO THE SOCAL FLIPPER OCB48470 4848 | * OCB48480 08CB 6580 059A 4849 | LDX I1 OVLAY+X3 SOCAL LEVEL TO XR1 OCB48490 08CD 7100 4850 | TV080 MDX 1 0 SKIP IF NO SOCALS OCB48500 08CE 7001 4851 | MDX TV100 BR TO PROCESS SOCAL ENTRIES OCB48510 08CF 7021 4852 | MDX TV140 BR TO PROCESS LIBF TV OCB48520 08D0 C059 4853 | TV100 LD TV920 1ST WORD OF A LONG BSC OCB48530 08D1 4400 07E7 4854 | BSI L TR000 OUTPUT 1ST WD OF TV ENTRY OCB48540 08D3 C500 092A 4855 | LD L1 TV920 2ND WORD OF A LONG BSC OCB48550 08D5 83AF 4856 | A 3 FLPAD OCB48560 08D6 4400 07E7 4857 | BSI L TR000 OUTPUT 2ND WD OF TV ENTRY OCB48570 08D8 7403 0490 4858 | MDX L @TVWC,@LBEN ACCUMULATE TV WORD COUNT OCB48580 08DA 4400 07E7 4859 | BSI L TR000 OUTPUT 3RD WD OF TV ENTRY OCB48590 08DC 71FF 4860 | MDX 1 -1 SKIP ON LAST SOCAL ENTRY OCB48600 08DD 70F2 4861 | MDX TV100 BR TO CONTINUE SOCAL WORK OCB48610 4862 | * OCB48620 4863 | * CREATE SPECIAL TV ENTRIES FOR SOCALS OCB48630 08DE 6580 059A 4864 | LDX I1 OVLAY+X3 SOCAL LEVEL TO XR1 OCB48640 08E0 C047 4865 | TV120 LD TV900 1ST WORD OF A BSC INDIRECT OCB48650 08E1 4400 07E7 4866 | BSI L TR000 OUTPUT 1ST WD SPECIAL ENTRY OCB48660 08E3 C38D 4867 | LD 3 K0 OCB48670 08E4 4400 07E7 4868 | BSI L TR000 OUTPUT 2ND WD SPECIAL ENTRY OCB48680 08E6 C0E6 4869 | LD TV080 OCB48690 08E7 9390 4870 | S 3 K3 OCB48700 08E8 93FA 4871 | S 3 OVLAY OCB48710 08E9 93FA 4872 | S 3 OVLAY OCB48720 08EA 93FA 4873 | S 3 OVLAY OCB48730 08EB 4400 07E7 4874 | BSI L TR000 OUTPUT 3RD WD SPECIAL ENTRY OCB48740 08ED 7403 0490 4875 | MDX L @TVWC,@LBEN ACCUMULATE TV WORD COUNT OCB48750 08EF 71FF 4876 | MDX 1 -1 SKIP ON LAST SOCAL ENTRY OCB48760 08F0 70EF 4877 | MDX TV120 BR TO DO NEXT SPECIAL ENTRY OCB48770 4878 | * OCB48780 4879 | * CREATE A DUMMY CALL ENTRY IF NECESSARY OCB48790 4880 | * OCB48800 08F1 C3FD 4881 | TV140 LD 3 RLCOR OCB48810 08F2 83F0 4882 | A 3 LTVWC COMPUTE LEFTMOST ADDRESS OCB48820 08F3 803C 4883 | A TV950 *IN CALL TRANSFER VECTOR OCB48830 08F4 D312 4884 | STO 3 TVADR OCB48840 08F5 4C04 08F8 4885 | BSC L TV160,E BRANCH IF ODD, I.E., OCB48850 08F7 7008 4886 | MDX TV180 *DUMMY CALL ENTRY NECESSARY OCB48860 08F8 938E 4887 | TV160 S 3 K1 MAKE ADDRESS EVEN OCB48870 08F9 D312 4888 | STO 3 TVADR OCB48880 08FA C398 4889 | LD 3 K4000 CREATE A DUMMY CALL ENTRY OCB48890 08FB DB82 4890 | STD 3 NAME OCB48900 08FC C38D 4891 | LD 3 K0 OCB48910 08FD D3AC 4892 | STO 3 ENDRL OCB48920 08FE 4400 02CC 4893 | BSI L BT000 ADD DUMMY CALL TO LOAD TBL OCB48930 0900 6580 059C 4894 | TV180 LDX I1 RIGHT+X3 RIGHT LIMIT OF TBL TO XR1 OCB48940 0902 C38D 4895 | LD 3 K0 CREATE 2 DUMMY LIBF ENTRIES OCB48950 0903 D104 4896 | STO 1 @WRD1+1*@LTEN *TO RIGHT OF RTMOST LD OCB48960 0904 D108 4897 | STO 1 @WRD1+2*@LTEN *TBL ENT FOR FAC, INDR OCB48970 0905 C3F0 4898 | LD 3 LTVWC 2-10 OCB48980 0906 4C18 0956 4899 | BSC L TV530,+- BR IF NO LIBF TV 2-10 OCB48990 4900 | * OCB49000 4901 | * CREATE THE LIBF TRANSFER VECTOR OCB49010 4902 | * OCB49020 0908 6580 0568 4903 | LDX I1 LEFTX+X3 LEFT LIMIT OF LD TBL TO XR1 OCB49030 090A 7104 4904 | MDX 1 @LTEN POINT TO LAST ENTRY OCB49040 090B 6680 055E 4905 | LDX I2 LBATV+X3 LOAD TABLE LENGTH TO XR2 OCB49050 090D C100 4906 | TV200 LD 1 @WRD1 FETCH 1ST WORD OF NAME OCB49060 090E 1001 4907 | SLA 1 OCB49070 090F 4828 4908 | BSC Z+ SKIP ON LIBF ENTRIES OCB49080 0910 7020 4909 | MDX TV400 BR ON CALL ENTRIES OCB49090 0911 C38D 4910 | LD 3 K0 ZERO TO 1ST WORD OF LIBF OCB49100 0912 4400 07E7 4911 | BSI L TR000 *TV ENTRIES OCB49110 0914 C103 4912 | LD 1 @WRD4 FETCH SOCAL LEVEL INDICATOR OCB49120 0915 4818 4913 | BSC +- SKIP ON SOCAL ENTRIES OCB49130 0916 7008 4914 | MDX TV220 BR TO OUTPUT 2ND WD OF TV OCB49140 0917 C011 4915 | LD TV905 OCB49150 0918 9103 4916 | S 1 @WRD4 OCB49160 0919 9103 4917 | S 1 @WRD4 OCB49170 091A 9103 4918 | S 1 @WRD4 OCB49180 091B 93F0 4919 | S 3 LTVWC OCB49190 091C E39B 4920 | AND 3 K00FF OCB49200 091D EB9F 4921 | OR 3 BSIT3 CREATE A SHORT BSI 3 OCB49210 091E 7001 4922 | MDX TV240 BR TO OUTPUT 2ND WD OF TV OCB49220 091F C00A 4923 | TV220 LD TV920 BSC L TO 2ND WORD OF LIBF OCB49230 0920 4400 07E7 4924 | TV240 BSI L TR000 *TV ENTRIES OCB49240 0922 C102 4925 | LD 1 @WRD3 FETCH EXECUTION ADDR OCB49250 0923 4400 07E7 4926 | BSI L TR000 *OF LIBF TV ENTRIES OCB49260 0925 7403 0490 4927 | MDX L @TVWC,@LBEN ACCUMULATE TV WORD COUNT OCB49270 0927 7009 4928 | MDX TV400 CONTINUE OCB49280 4929 | * OCB49290 4930 | * CONSTANTS AND WORK AREAS OCB49300 4931 | * OCB49310 0928 4C80 4932 | TV900 DC /4C80 1ST WD OF A BSC INDIRECT OCB49320 0929 007B 4933 | TV905 DC 127-1*@LBEN-1 OCB49330 092A 4C00 003A 4934 | TV920 BSC L FL210 BSC TO ARITH SOCAL FLIPPER OCB49340 092C 003D 4935 | DC FL220 ADDR FI/O SOCAL FLIPPER ENT OCB49350 092D 0040 4936 | DC FL230 ADDR DK FI/O FLIPPER ENTRY OCB49360 092E FF89 4937 | TV940 DC 2+2*@LBEN-127 OCB49370 092F 0009 4938 | TV945 DC 3*@LBEN WD CNT FOR 3 LIBF TV ENTRIES OCB49380 0930 0007 4939 | TV950 DC 1+2*@LBEN OCB49390 4940 | * OCB49400 4941 | * OCB49410 4942 | * OCB49420 0931 7104 4943 | TV400 MDX 1 @LTEN POINT TO NEXT LD TBL ENTRY OCB49430 0932 72FC 4944 | MDX 2 -@LTEN SKIP AT END OF LOAD TABLE OCB49440 0933 70D9 4945 | MDX TV200 BR IF MORE TO DO OCB49450 0934 6206 4946 | LDX 2 2*@LBEN WD CNT OF FAC, INDICATORS OCB49460 0935 C38D 4947 | TV420 LD 3 K0 STORE ZEROS IN FAC AND IN- OCB49470 0936 4400 07E7 4948 | BSI L TR000 *DICATOR ENTRIES IN LIBF TV OCB49480 0938 72FF 4949 | MDX 2 -1 OCB49490 0939 70FB 4950 | MDX TV420 BR UNTIL DONE OCB49500 4951 | * OCB49510 4952 | * CREATE THE CALL TRANSFER VECTOR OCB49520 4953 | * OCB49530 093A 6580 0568 4954 | TV430 LDX I1 LEFTX+X3 LEFT LIMIT OF LD TBL TO XR1 OCB49540 093C 7104 4955 | MDX 1 @LTEN POINT TO LAST ENTRY OCB49550 093D 6680 055E 4956 | LDX I2 LBATV+X3 LOAD TABLE LENGTH TO XR2 OCB49560 093F C100 4957 | TV440 LD 1 @WRD1 FETCH 1ST WORD OF NAME OCB49570 0940 1001 4958 | SLA 1 OCB49580 0941 4810 4959 | BSC - SKIP ON CALL ENTRIES OCB49590 0942 7008 4960 | MDX TV460 BR ON ALL LIBF ENTRIES OCB49600 0943 C103 4961 | LD 1 @WRD4 FETCH CLASS CODE OCB49610 0944 4820 4962 | BSC Z SKIP IF AN IN-CORE SUBR OCB49620 0945 7005 4963 | MDX TV460 BRANCH ON SOCALS OCB49630 0946 C102 4964 | LD 1 @WRD3 MOVE THE EXECUTION ADDR OCB49640 0947 4400 07E7 4965 | BSI L TR000 *THE CALL TRANSFER VECTOR OCB49650 0949 7401 0490 4966 | MDX L @TVWC,@CLEN ACCUMULATE TV WORD COUNT OCB49660 094B 7104 4967 | TV460 MDX 1 @LTEN POINT TO NEXT LD TBL ENTRY OCB49670 094C 72FC 4968 | MDX 2 -@LTEN SKIP AT END OF LOAD TABLE OCB49680 094D 70F1 4969 | MDX TV440 BR UNTIL ALL CALL TV DONE OCB49690 094E C312 4970 | TV500 LD 3 TVADR OCB49700 094F 90DF 4971 | S TV945 *TV OF 1ST ENTRY TO LEFT OCB49710 0950 D312 4972 | STO 3 TVADR OCB49720 0951 80DC 4973 | A TV940 COMPUTE AND STORE ADDR FOR OCB49730 0952 D400 0492 4974 | STO L @XR3X *XR3 DURING EXECUTION OCB49740 0954 4C80 08B8 4975 | BSC I TV000 RETURN OCB49750 0956 C3BE 4976 | TV530 LD 3 LBATV COMPUTE AND STORE ADDR IN OCB49760 0957 4C20 093A 4977 | BSC L TV430,Z BR IF THERE IS A CALL TV OCB49770 0959 70F4 4978 | MDX TV500 BR IF NO TV AT ALL OCB49780 CORE LOAD BUILDER, PHASE 6 095A 0000 4980 | TP000 DC *-* ENTRY POINT OCB49800 095B C3BE 4981 | LD 3 LBATV OCB49810 095C 4C18 09BF 4982 | BSC L TP300,+- BR IF NO LD TBL ENTRIES OCB49820 4983 | * OCB49830 4984 | * FILL IN THE 3RD WORD OF EVERY LIBF ENTRY POINT OCB49840 4985 | * OCB49850 095E 6580 059C 4986 | TP010 LDX I1 RIGHT+X3 RIGHT LIMIT OF TBL TO XR1 OCB49860 0960 1810 4987 | SRA 16 OCB49870 0961 D03D 4988 | STO TP900 INITIALIZE LIBF TV POINTER OCB49880 0962 6680 055E 4989 | LDX I2 LBATV+X3 LOAD TABLE LENGTH TO XR2 OCB49890 0964 C312 4990 | LD 3 TVADR INITIALIZE CELL TO ADDR OF OCB49900 0965 D03D 4991 | STO TP920 *1ST ENTRY IN LIBF TV OCB49910 0966 C04B 4992 | LD TP990 OCB49920 0967 D049 4993 | STO TP985 OCB49930 0968 C100 4994 | TP030 LD 1 @WRD1 FETCH 1ST WORD OF NAME OCB49940 0969 1001 4995 | SLA 1 OCB49950 096A 4C28 098E 4996 | BSC L TP120,+Z BR IF CURR ENT IS A CALL OCB49960 096C C102 4997 | LD 1 @WRD3 STORE ADDR OF 3RD WD OF OCB49970 096D 9042 4998 | S TP980 OCB49980 096E 4C18 0997 4999 | BSC L TP150,+- BR IF DISK1/N ENTRY OCB49990 0970 C3E9 5000 | LD 3 LSW17 OCB50000 0971 4C20 0988 5001 | BSC L TP090,Z BR DURING 2ND PASS OCB50010 0973 C102 5002 | LD 1 @WRD3 OCB50020 0974 8036 5003 | A TP955 *EVERY ENTRY PT IN TV INTO OCB50030 0975 D3BC 5004 | STO 3 LACTR *THE LOCATION ADDR COUNTER OCB50040 0976 93A4 5005 | S 3 CIBLM 2-2 OCB50050 0977 4C30 0983 5006 | BSC L TP060,Z- BR IF NOT IN CIB 2-2 OCB50060 0979 C102 5007 | LD 1 @WRD3 BRANCH IF THIS ENTRY HAS OCB50070 097A 4C18 0988 5008 | BSC L TP090,+- *ALREADY BEEN PROCESSED OCB50080 097C 9400 048E 5009 | S L @LDAD ADJUST TO 1ST WD IN CIB BFR OCB50090 097E 1890 5010 | SRT 16 OCB50100 097F AB97 5011 | D 3 K320 OCB50110 0980 9306 5012 | S 3 SCTRX BR IF DESIRED SCTR IS NOT OCB50120 0981 4C20 09B8 5013 | BSC L TP240,Z *NOW IN THE CIB BUFFER OCB50130 0983 C01F 5014 | TP060 LD TP920 FETCH EXIT CONTROL ADDR OCB50140 0984 4400 07E7 5015 | BSI L TR000 *AND STORE IT IN THE SUBR OCB50150 0986 C38D 5016 | LD 3 K0 INDICATE ENTRY NOW OCB50160 0987 D102 5017 | STO 1 @WRD3 *PROCESSED OCB50170 0988 74FD 09A3 5018 | TP090 MDX L TP920,-@LBEN POINT TO NEXT LIBF IN TB OCB50180 098A C026 5019 | LD TP985 OCB50190 098B 9027 5020 | S TP995 OCB50200 098C E39B 5021 | AND 3 K00FF ACCUMULATE DISPLACEMENT OCB50210 098D D023 5022 | STO TP985 *FOR LIBF BSI OCB50220 098E 71FC 5023 | TP120 MDX 1 -@LTEN POINT TO NEXT LD TBL ENTRY OCB50230 098F 72FC 5024 | MDX 2 -@LTEN SKIP AT END OF LOAD TABLE OCB50240 0990 70D7 5025 | MDX TP030 BR TO CHECK NEXT LD TBL ENT OCB50250 0991 C010 5026 | LD TP915 BR IF UNNECESSARY TO MAKE OCB50260 0992 4C18 09BF 5027 | BSC L TP300,+- *ANOTHER PASS THRU LD TBL OCB50270 0994 C38D 5028 | LD 3 K0 ZERO OUT LAST TIME THRU SW OCB50280 0995 D00C 5029 | STO TP915 OCB50290 0996 70C7 5030 | MDX TP010 GO MAKE ANOTHER PASS OCB50300 0997 C019 5031 | TP150 LD TP985 OCB50310 0998 1008 5032 | SLA 8 IF DISP NEG FILL 2-3 OCB50320 0999 1888 5033 | SRT 8 *OUT WITH ONES 2-3 OCB50330 099A 8400 0492 5034 | A L @XR3X COMPUTE EXIT CTRL ADDR OF OCB50340 099C D400 048F 5035 | STO L @XCTL *DISK1/N OCB50350 099E 70E9 5036 | MDX TP090 BR TO FILL IN OTHER EXITS OCB50360 5037 | * OCB50370 5038 | * OCB50380 5039 | * CONSTANTS AND WORK AREAS OCB50390 099F 0000 5040 | TP900 DC *-* ZERO WHEN SCAN OF LD TBL STARTS OCB50400 09A0 0079 5041 | TP905 DC 127-2*@LBEN OCB50410 09A1 005A 5042 | TP910 DC FL900 ADDR OF SOCAL 1 SCTR ADDR IN FL OCB50420 09A2 0000 5043 | TP915 DC *-* NON-ZERO UNTIL ALL WDS FILLED IN OCB50430 09A3 0000 5044 | TP920 DC *-* CURR ADDR IN LIBF TV OCB50440 09A4 00B3 5045 | TP925 DC $I200 ADDR OF SYSTEM ILS02 OCB50450 09A5 0380 5046 | DC @COMZ LOW COMMON LIMIT FOR DISKZ OCB50460 09A6 04C0 5047 | TP935 DC @COM1 LOW COMMON LIMIT FOR DISK1 OCB50470 09A7 0600 5048 | DC @COM2 LOW COMMON LIMIT FOR DISKN OCB50480 09A8 0061 5049 | TP940 DC FL915 ADDR OF SPECIAL MDX IN FLIPPER OCB50490 09A9 0006 5050 | TP945 DC 2*@LBEN WD CNT OF 2 LIBF TV ENTRIES OCB50500 09AA 0003 5051 | TP950 DC @LBEN WD CNT OF 1 LIBF TV ENTRY OCB50510 09AB 0002 5052 | TP955 DC @LBEN-1 OCB50520 09AC 004D 5053 | TP960 DC FL350 ADDR IN FLIPPER OF SOCAL AREA OCB50530 09AD 0050 5054 | TP965 DC FL380 ADDR IN FLIPR OF SOCAL 1 DUMMY OCB50540 09AE 70F7 5055 | TP970 MDX *-9 SPECIAL MDX FOR OPTION 1 OCB50550 09AF 70F4 5056 | TP975 MDX *-12 SPECIAL MDX FOR OPTION 2 OCB50560 09B0 00F9 5057 | TP980 DC @DKEP LIBF ENTRY POINT TO DISK1,DFSKN OCB50570 09B1 0000 5058 | TP985 DC *-* DISPLACEMENT ACCUMULATOR OCB50580 09B2 0077 5059 | TP990 DC 127-2*@LBEN-2 OCB50590 09B3 0003 5060 | TP995 DC @LBEN WD CNT OF A LIBF TV ENTRY OCB50600 09B4 0001 5061 | TP996 DC @DCOM SCTR ADDR OF DCOM OCB50610 09B5 0FFF 5062 | TP997 DC @MCOR-1 2-2 OCB50620 09B6 03C0 5063 | TP998 DC 320*@HCIB HIGH COMMON WORD COUNT 2-2 OCB50630 09B7 000D 5064 | TP999 DC @SCIB-@HCIB CIB SCTR FOR HIGH COMM2-2 OCB50640 5065 | * OCB50650 5066 | * OCB50660 5067 | * OCB50670 09B8 7400 099F 5068 | TP240 MDX L TP900,0 SKIP IF SWITCH ZERO OCB50680 09BA 7002 5069 | MDX TP270 BR TO SET SWITCH OCB50690 09BB D0E3 5070 | STO TP900 SET SWITCH NON-ZERO OCB50700 09BC 70C6 5071 | MDX TP060 BR TO STORE EXIT CTRL ADDR OCB50710 09BD D0E4 5072 | TP270 STO TP915 SET SWITCH NON-ZERO OCB50720 09BE 70C9 5073 | MDX TP090 BR TO CHECK FOR DONE OCB50730 09BF 6600 0488 5074 | TP300 LDX L2 B POINT XR2 TO ADDR CI HDR OCB50740 09C1 C3B1 5075 | LD 3 HADDR FETCH RIGHTMOST ADDR OF TV OCB50750 09C2 838E 5076 | A 3 K1 OCB50760 09C3 8204 5077 | A 2 @HWCT-B OCB50770 09C4 93F4 5078 | S 3 MLWD1 STORE LENGTH OF PROGRAM+TV, OCB50780 09C5 D209 5079 | STO 2 @WCNT-B *I.E., LENGTH OF CORE LOAD OCB50790 09C6 C21A 5080 | LD 2 @OVSW-B OCB50800 09C7 4C18 09CF 5081 | BSC L TP330,+- BR IF NO LOCALS OR SOCALS OCB50810 09C9 6580 007A 5082 | LDX I1 $WSDR OCB50820 09CB C500 05A1 5083 | LD L1 SCTAD+X3 OCB50830 09CD 93B0 5084 | S 3 FSCTR STORE LOCAL/SOCAL SCTR OCB50840 09CE D21A 5085 | STO 2 @OVSW-B *CNT IN CORE IMAGE HEADER OCB50850 5086 | * OCB50860 5087 | * OUTPUT THE CORE IMAGE HEADER OCB50870 5088 | * OCB50880 09CF C3F4 5089 | TP330 LD 3 MLWD1 OCB50890 09D0 9204 5090 | S 2 @HWCT-B OCB50900 09D1 D3BC 5091 | STO 3 LACTR OCB50910 09D2 D3ED 5092 | STO 3 LSW21 SET CORE IMAGE HDR SW OCB50920 09D3 D306 5093 | STO 3 SCTRX ASSURE INVALID SCTR NO. 2-2 OCB50930 09D4 6500 FFE2 5094 | LDX L1 @XEQA-@HEND-1 MINUS HDR WD CNT TO XR1 OCB50940 09D6 C500 04A6 5095 | TP360 LD L1 @HEND+1 FETCH A WD FROM CI HEADER OCB50950 09D8 4400 07E7 5096 | BSI L TR000 OUT TO TRANSFER 1 WORD OCB50960 09DA 7101 5097 | MDX 1 1 SKIP WHEN HEADER TRANSFRD OCB50970 09DB 70FA 5098 | MDX TP360 TRANSFER 1 MORE WORD OCB50980 09DC C38D 5099 | LD 3 K0 OCB50990 09DD D3ED 5100 | STO 3 LSW21 CLEAR CORE IMAGE HDR SW OCB51000 5101 | * OCB51010 5102 | * OUTPUT PARAMETERS IN LOCAL/SOCAL FLIPPER OCB51020 5103 | * OCB51030 09DE C3FA 5104 | LD 3 OVLAY OCB51040 09DF 4C18 0A1E 5105 | BSC L TP380,+- BR IF NO SOCALS OCB51050 09E1 C3AF 5106 | LD 3 FLPAD SET LOCATION ADDR COUNTER OCB51060 09E2 80CA 5107 | A TP965 OCB51070 09E3 D3BC 5108 | STO 3 LACTR OCB51080 09E4 C0BB 5109 | LD TP905 OCB51090 09E5 93F0 5110 | S 3 LTVWC OCB51100 09E6 820A 5111 | A 2 @XR3X-B OCB51110 09E7 D315 5112 | STO 3 WASTE OCB51120 09E8 4400 07E7 5113 | BSI L TR000 STO ADDR DUMMY ENT,SOCAL 1 OCB51130 09EA C315 5114 | LD 3 WASTE OCB51140 09EB 90BE 5115 | S TP950 OCB51150 09EC 7401 055C 5116 | MDX L LACTR+X3,1 POINT TO SOCAL 2 DUMMY OCB51160 09EE 4400 07E7 5117 | BSI L TR000 STO ADDR DUMMY ENT, SOCAL 2 OCB51170 09F0 C315 5118 | LD 3 WASTE OCB51180 09F1 90B7 5119 | S TP945 OCB51190 09F2 7401 055C 5120 | MDX L LACTR+X3,1 POINT TO SOCAL 3 DUMMY OCB51200 09F4 4400 07E7 5121 | BSI L TR000 STO ADDR DUMMY ENT, SOCAL 3 OCB51210 09F6 C3AF 5122 | LD 3 FLPAD OCB51220 09F7 80B4 5123 | A TP960 OCB51230 09F8 D3BC 5124 | STO 3 LACTR SET LOCATION ADDR COUNTER OCB51240 09F9 C309 5125 | LD 3 SOCAR OCB51250 09FA 938F 5126 | S 3 K2 ALLOW FOR WD CNT, SCTR ADDR OCB51260 09FB 4400 07E7 5127 | BSI L TR000 STO ADDR OF SOCAL AREA OCB51270 09FD C3AF 5128 | LD 3 FLPAD OCB51280 09FE 80A2 5129 | A TP910 OCB51290 09FF D3BC 5130 | STO 3 LACTR OCB51300 0A00 61FD 5131 | LDX 1 -3 MINUS MAX NO. SOCALS TO XR1 OCB51310 0A01 C500 05B2 5132 | TP370 LD L1 S1SAD+3+X3 OCB51320 0A03 4400 07E7 5133 | BSI L TR000 OUTPUT SOCAL SCTR ADDR OCB51330 0A05 C500 05AF 5134 | LD L1 S1WCT+3+X3 OCB51340 0A07 4400 07E7 5135 | BSI L TR000 OUTPUT SOCAL WD CNT OCB51350 0A09 7101 5136 | MDX 1 1 SKIP AFTER LAST SOCAL DONE OCB51360 0A0A 70F6 5137 | MDX TP370 BR TO OUTPUT MORE PARAMS OCB51370 0A0B C3AF 5138 | LD 3 FLPAD OCB51380 0A0C 809B 5139 | A TP940 OCB51390 0A0D D3BC 5140 | STO 3 LACTR OCB51400 0A0E C3FA 5141 | LD 3 OVLAY OCB51410 0A0F 938F 5142 | S 3 K2 OCB51420 0A10 4C20 0A7F 5143 | BSC L TP450,Z BR IF OPTION 2 EMPLOYED OCB51430 0A12 C09B 5144 | LD TP970 OCB51440 0A13 4400 07E7 5145 | TP375 BSI L TR000 OUTPUT THE SPECIAL MDX OCB51450 0A15 6580 05A0 5146 | LDX I1 SCLCT+X3 SOCAL TV COUNT TO XR1 2-2 OCB51460 0A17 C309 5147 | LD 3 SOCAR FETCH ADDR OF SOCAL AREA2-2 OCB51470 0A18 D3BC 5148 | STO 3 LACTR 2-2 OCB51480 0A19 C30A 5149 | TP377 LD 3 STVAD PUT ADDR OF FUNCTION ENT2-2 OCB51490 0A1A 4400 07E7 5150 | BSI L TR000 *PT TO FLIPR IN SOCAL AR2-2 OCB51500 0A1C 71FF 5151 | MDX 1 -1 SKIP AT END OF SOCAL TV 2-2 OCB51510 0A1D 70FB 5152 | MDX TP377 BR TO OUTPUT ANOTHER ENT2-2 OCB51520 5153 | * OCB51530 5154 | * WRITE LAST CONTENTS OF CIB BUFFER ONTO THE CIB OCB51540 5155 | * OCB51550 0A1E C3A3 5156 | TP380 LD 3 CIBBF OCB51560 0A1F 18D0 5157 | RTE 16 OCB51570 0A20 C38E 5158 | LD 3 K1 OCB51580 0A21 4400 0418 5159 | BSI L GP000 WRITE OUT CONTENTS CIB BFR OCB51590 5160 | * 2-2 OCB51600 5161 | * RESTORE HIGH COMMON 2-2 OCB51610 5162 | * 2-2 OCB51620 0A23 C3A4 5163 | LD 3 CIBLM 2-2 OCB51630 0A24 9400 09B5 5164 | S L TP997 BR IF UNNECESSARY TO 2-2 OCB51640 0A26 4C18 0A35 5165 | BSC L TP383,+- *RESTORE HIGH COMMON 2-2 OCB51650 0A28 C400 0005 5166 | LD L $CIBA COMPUTE SCTR ADDR OF 2-2 OCB51660 0A2A 8400 09B7 5167 | A L TP999 *HIGH COMMON 2-2 OCB51670 0A2C 18D0 5168 | RTE 16 2-2 OCB51680 0A2D C400 09B6 5169 | LD L TP998 FETCH HIGH COMMON WD CNT2-2 OCB51690 0A2F DC00 0FFE 5170 | STD L @MCOR-2 WC ,SCTR ADDR TO IO AREA2-2 OCB51700 0A31 C0FE 5171 | LD *-2 2-2 OCB51710 0A32 1890 5172 | SRT 16 2-2 OCB51720 0A33 4400 0418 5173 | BSI L GP000 RESTORE HIGH COMMON 2-2 OCB51730 0A35 C400 0005 5174 | TP383 LD L $CIBA INDICATE TO CIL THAT COR2-2 OCB51740 0A37 1004 5175 | SLA 4 OCB51750 0A38 D400 0010 5176 | STO L $DADR *LOAD IS IN THE CIB OCB51760 0A3A C400 0005 5177 | LD L $CIBA OCB51770 0A3C E39A 5178 | AND 3 KF000 OCB51780 0A3D D400 0077 5179 | STO L $DCDE STORE CIB DRIVE CODE OCB51790 0A3F C20D 5180 | LD 2 @ITVX+2-B OCB51800 0A40 9400 09A4 5181 | S L TP925 BR IF THE SYSTEM ILS02 2-2 OCB51810 0A42 4C18 0A50 5182 | BSC L TP385,+- *IS TO BE UTILIZED OCB51820 0A44 6580 0012 5183 | LDX I1 $DREQ OCB51830 0A46 C500 09A6 5184 | LD L1 TP935 COMPARE ADDR WITH THAT OCB51840 0A48 920D 5185 | S 2 @ITVX+2-B *OF LOW COMMON MINUS 320 OCB51850 0A49 4C08 0A50 5186 | BSC L TP385,+ BR IF LOW COMMON LESS OCB51860 0A4B 6205 5187 | LDX 2 MSG05 INVALID ADDR FOR ILS02 OCB51870 0A4C 4400 0426 5188 | BSI L PM000 OUT TO PRINT MESSAGE OCB51880 0A4E 6C00 05B8 5189 | STX L0 IND05 SET R05 INDICATOR 2-11 OCB51890 5190 | * OCB51900 5191 | * ASSURE THAT CI HDR WRITTEN ON 1ST SCTR OF CIB OCB51910 5192 | * OCB51920 0A50 C400 0005 5193 | TP385 LD L $CIBA OCB51930 0A52 D400 0D25 5194 | STO L BUFCI+1 OCB51940 0A54 C3A3 5195 | LD 3 CIBBF OCB51950 0A55 1890 5196 | SRT 16 FETCH PRESENT CONTENTS OF OCB51960 0A56 4400 0418 5197 | BSI L GP000 *1ST SCTR OF THE CIB OCB51970 0A58 6500 FFE2 5198 | LDX L1 @XEQA-@HEND-1 MINUS CI HDR WD CNT OCB51980 0A5A C500 04A6 5199 | TP390 LD L1 @HEND+1 TRANSFER CORE IMAGE HEADER OCB51990 0A5C D500 0D44 5200 | STO L1 BUFCI+2+@HEND+1-@XEQA *TO CIB BUFFER OCB52000 0A5E 7101 5201 | MDX 1 1 SKIP WHEN DONE, OCB52010 0A5F 70FA 5202 | MDX TP390 *BRANCH OTHERWISE OCB52020 0A60 C3A3 5203 | LD 3 CIBBF OCB52030 0A61 18D0 5204 | RTE 16 OCB52040 0A62 C38E 5205 | LD 3 K1 OCB52050 0A63 4400 0418 5206 | BSI L GP000 WRITE OUT CONTENTS OF BFR OCB52060 0A65 C400 04A2 5207 | LD L @OVSW OCB52070 0A67 4C18 0A7D 5208 | BSC L TP400,+- BR IF NO LOCALS OR SOCALS OCB52080 5209 | * OCB52090 5210 | * CLEAR #FMAT AND #WSCT IN MASTER DCOM OCB52100 5211 | * OCB52110 0A69 6500 0AA2 5212 | LDX L1 BUFLS+2 OCB52120 0A6B C400 09B4 5213 | LD L TP996 OCB52130 0A6D D1FF 5214 | STO 1 -1 OCB52140 0A6E C3D7 5215 | LD 3 LSBUF OCB52150 0A6F 1890 5216 | SRT 16 OCB52160 0A70 4400 0418 5217 | BSI L GP000 FETCH DCOM OCB52170 0A72 7580 007A 5218 | MDX I1 $WSDR OCB52180 0A74 1810 5219 | SRA 16 CLEAR BLOCK COUNT OCB52190 0A75 D155 5220 | STO 1 #WSCT *OF MASTER WORKING STORAGE OCB52200 0A76 C38E 5221 | LD 3 K1 SET FORMAT INDICATOR FOR OCB52210 0A77 D146 5222 | STO 1 #FMAT *MASTER WS TO DDF OCB52220 0A78 C3D7 5223 | LD 3 LSBUF OCB52230 0A79 1890 5224 | SRT 16 OCB52240 0A7A C38E 5225 | LD 3 K1 OCB52250 0A7B 4400 0418 5226 | BSI L GP000 WRITE OUT DCOM OCB52260 0A7D 4C80 095A 5227 | TP400 BSC I TP000 RETURN OCB52270 0A7F C400 09AF 5228 | TP450 LD L TP975 OCB52280 0A81 7091 5229 | MDX TP375 BR TO OUTPUT THE MDX OCB52290 5230 | * OCB52300 0A82 5231 | P6END BSS P3END-* PATCH AREA OCB52310 0A9F 0000 5232 | DC 0 PATCH AREA OCB52320 CORE LOAD BUILDER, PHASE 7 5234 | *************************************************** OCB52340 5235 | * * OCB52350 5236 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * OCB52360 5237 | * * OCB52370 5238 | *FUNCTION/OPERATION- * OCB52380 5239 | * * PRINTS ERROR MESSAGES R00-R11 * OCB52390 5240 | * * SETS DO-NOT-EXEQUTE AND DO-NOT-DUP SWITCHES * OCB52400 5241 | * EXCEPT FOR R05 AND R06. * OCB52410 5242 | * * OCB52420 5243 | *ENTRY POINTS- * OCB52430 5244 | * * E1000-THE ONLY ENTRY POINT * OCB52440 5245 | * BSI L E1000 * OCB52450 5246 | * * OCB52460 5247 | *INPUT- * OCB52470 5248 | * * XR2 HOLDS THE ERROR NUMBER * OCB52480 5249 | * * OCB52490 5250 | *OUTPUT- * OCB52500 5251 | * * PRINTED MESSAGE * OCB52510 5252 | * * SKIP TO CHANNEL 1 AND PRINT HEADING WHEN * OCB52520 5253 | * CHANNEL 12 SENSED * OCB52530 5254 | * * SWITCHES $NDUP AND $NXEQ SET * OCB52540 5255 | * * OCB52550 5256 | *EXTERNAL REFERENCES- * OCB52560 5257 | * SUBROUTINES- * OCB52570 5258 | * * GP000 READ AND WRITE ON DISK * OCB52580 5259 | * * LK000 FETCH A PHASE VIA SLET * OCB52590 5260 | * COMMA/DCOM- * OCB52600 5261 | * * $CH12 * OCB52610 5262 | * * $NDUP * OCB52620 5263 | * * $NXEQ * OCB52630 5264 | * * $PBSY * OCB52640 5265 | * * OCB52650 5266 | *EXITS- * OCB52660 5267 | * NORMAL- * OCB52670 5268 | * BACK TO CALLER INDIRECTLY VIA E1000 * OCB52680 5269 | * ERROR-N/A * OCB52690 5270 | * * OCB52700 5271 | *TABLES/WORK AREAS- * OCB52710 5272 | * * E1955 TABLE OF WORD COUNTS AND MESSAGES * OCB52720 5273 | * * OCB52730 5274 | *NOTES-N/A * OCB52740 5275 | * * OCB52750 5276 | *************************************************** OCB52760 CORE LOAD BUILDER, PHASE 7 5278 | * PARAMETERS FOR THE SYSTEM LOADER OCB52780 5279 | * OCB52790 0AA0 5280 | ORG BUFLS OCB52800 *SBRKGL 7E 5281 | *CORE LOAD BUILDER, PHASE 7 V2M00 OCB52810 0AA0 013F 5282 | DC P7END-*-1 PHASE 7 WD CNT OCB52820 0AA1 007E 5283 | DC @CLB7 ID NO. FOR CLB, PHASE 7 OCB52830 CORE LOAD BUILDER, PHASE 7 5285 | * PRINT MESSAGES R00-R10 AND SET $NXEQ, $NDUP OCB52850 5286 | * UNLESS PRINTING R05 OR R06 2-11 OCB52860 5287 | * OCB52870 0AA2 0000 5288 | E1000 DC *-* ENTRY POINT OCB52880 0AA3 1000 5289 | NOP OCB52890 0AA4 C397 5290 | LD 3 K320 OCB52900 0AA5 D0FA 5291 | STO E1000-2 OCB52910 0AA6 6931 5292 | STX 1 E1200+1 SAVE XR1 OCB52920 0AA7 6A3C 5293 | STX 2 E1900 SAVE MESSAGE NO. OCB52930 0AA8 C400 0BE3 5294 | LD L BUFLO+1 SAVE ADDR OF SCTR CURRENTLY OCB52940 0AAA D04B 5295 | STO E1920 OCB52950 0AAB 6500 0099 5296 | LDX L1 @PRNT OCB52960 0AAD C3D2 5297 | LD 3 LOBUF OCB52970 0AAE 4400 0380 5298 | BSI L LK000 FETCH PRINCIPAL PRINT SUBR OCB52980 0AB0 C480 0006 5299 | LD I $CH12 OCB52990 0AB2 4C18 0ABE 5300 | BSC L E1050,+- BR UNLESS CHANNEL 12 SENSED OCB53000 0AB4 C032 5301 | LD E1902+1 OCB53010 0AB5 938E 5302 | S 3 K1 OCB53020 0AB6 1890 5303 | SRT 16 OCB53030 0AB7 4400 0418 5304 | BSI L GP000 FETCH HEADING SECTOR OCB53040 0AB9 C02E 5305 | LD E1905-1 OCB53050 0ABA D02E 5306 | STO E1905 OCB53060 0ABB C82A 5307 | LDD E1902 OCB53070 0ABC 401E 5308 | BSI E1400 SKIP TO CHANNEL 1 OCB53080 0ABD 401D 5309 | BSI E1400 PRINT PAGE HEADING OCB53090 0ABE C025 5310 | E1050 LD E1900 COMPUTE CORE ADDR OF OCB53100 0ABF A03A 5311 | M E1955 *REQUESTED MESSAGE OCB53110 0AC0 18D0 5312 | RTE 16 OCB53120 0AC1 8032 5313 | A E1910 OCB53130 0AC2 18D0 5314 | RTE 16 MESSAGE ADDR TO EXTENSION OCB53140 0AC3 C031 5315 | LD E1915 OCB53150 0AC4 4016 5316 | BSI E1400 PRINT REQUESTED MESSAGE OCB53160 0AC5 C030 5317 | LD E1920 OCB53170 0AC6 D400 0BE3 5318 | STO L BUFLO+1 OCB53180 0AC8 C3D2 5319 | LD 3 LOBUF OCB53190 0AC9 1890 5320 | SRT 16 OCB53200 0ACA 4400 0418 5321 | BSI L GP000 RESTORE DATA BUFFER OCB53210 0ACC C017 5322 | LD E1900 OCB53220 0ACD 902A 5323 | S E1926 2-11 OCB53230 0ACE 4C18 0AD7 5324 | BSC L E1200,+- BRANCH IF R05 2-11 OCB53240 0AD0 9026 5325 | S E1925 SUBTRACT 1 MORE 2-11 OCB53250 0AD1 4C18 0AD7 5326 | BSC L E1200,+- BRANCH IF R06 2-11 OCB53260 0AD3 6C00 0034 5327 | STX L0 $NDUP SET DO-NOT-EXECUTE SWITCH OCB53270 0AD5 6C00 0035 5328 | STX L0 $NXEQ SET DO-NOT-DUP SWITCH OCB53280 0AD7 6500 0000 5329 | E1200 LDX L1 *-* RESTORE XR1 OCB53290 0AD9 4C80 0AA2 5330 | BSC I E1000 RETURN OCB53300 5331 | * OCB53310 5332 | * CALL PRINCIPAL PRINTER OCB53320 5333 | * OCB53330 0ADB 0000 5334 | E1400 DC *-* ENTRY POINT OCB53340 0ADC 4400 0BE5 5335 | BSI L BUFLO+3 CALL THE PRINTER OCB53350 0ADE 7400 0036 5336 | MDX L $PBSY,0 LOOP UNTIL OPERATION OCB53360 0AE0 70FD 5337 | MDX *-3 *REQUESTED IS COMPLETE OCB53370 0AE1 4C80 0ADB 5338 | BSC I E1400 RETURN TO CALLER OCB53380 5339 | * OCB53390 5340 | * CONSTANTS AND WORK AREAS OCB53400 5341 | * EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES OCB53410 5342 | * OCB53420 0AE4 5343 | BSS E 0 OCB53430 0AE4 0000 5344 | E1900 DC *-* NO. OF REQUESTED MESSAGE OCB53440 0AE5 5345 | BSS 1 PATCH AREA OCB53450 0AE6 7000 5346 | E1902 MDX * SKIP-TO-CHANNEL-1 INDR, OCB53460 0AE7 0AE9 5347 | DC E1905 ADDR OF HEADING BUFFER OCB53470 0AE8 000A 5348 | DC 10 PAGE HEADING WD CNT OCB53480 0AE9 0007 5349 | E1905 DC @HDNG PAGE HEADING SCTR ADDR OCB53490 0AEA 5350 | BSS 10 PAGE HEADING BUFFER OCB53500 0AF4 0AFA 5351 | E1910 DC E1955 ADDR OF 1ST MESSAGE OCB53510 0AF5 7001 5352 | E1915 MDX *+1 PRINT FUNCTION INDICATOR OCB53520 0AF6 0000 5353 | E1920 DC *-* DATA BUFFER SCTR ADDR OCB53530 0AF7 0001 5354 | E1925 DC 1 ADDED TO E1926 = R06 2-11 OCB53540 0AF8 0005 5355 | E1926 DC MSG05 MESSAGE NUMBER FOR R05 2-11 OCB53550 0AF9 5356 | BSS 1 PATCH AREA OCB53560 0AFA 0015 5357 | E1955 DC 21 R00 WORD COUNT OCB53570 0AFB D940 F0F0 40D3 D6C3 5358 | EBC .R 00 LOCALS/SOCALS O. OCB53580 C1D3 E261 E2D6 C3C1 | D3E2 40D6 | 0B05 E5C5 D9C6 D3D6 E640 5359 | EBC .VERFLOW WORK STORAGE. OCB53590 E6D6 D9D2 40E2 E3D6 | D9C1 C7C5 | 0B0F 0015 5360 | DC 21 R 01 WORD COUNT OCB53600 0B10 D940 F0F1 40D6 D9C9 5361 | EBC .R 01 ORIGIN BELOW 1S. OCB53610 C7C9 D540 C2C5 D3D6 | E640 F1E2 | 0B1A E340 E6D6 D9C4 40D6 5362 | EBC .T WORD OF MAINLINE . OCB53620 C640 D4C1 C9D5 D3C9 | D5C5 4040 | 0B24 0015 5363 | DC 21 R 02 WORD COUNT OCB53630 0B25 D940 F0F2 40C4 C5C6 5364 | EBC .R 02 DEFINE FILE(S) . OCB53640 C9D5 C540 C6C9 D3C5 | 4DE2 5D40 | 0B2F D6E5 C5D9 C6D3 D6E6 5365 | EBC .OVERFLOW WORK STORGE. OCB53650 40E6 D6D9 D240 E2E3 | D6D9 C7C5 | 0B39 0015 5366 | DC 21 R 03 WORD COUNT OCB53660 0B3A D940 F0F3 40D5 D640 5367 | EBC .R 03 NO DSF PROGRAM . OCB53670 C4E2 C640 D7D9 D6C7 | D9C1 D440 | 0B44 C9D5 40E6 D6D9 D2C9 5368 | EBC .IN WORKING STORAGE . OCB53680 D5C7 40E2 E3D6 D9C1 | C7C5 4040 | 0B4E 0015 5369 | DC 21 R04 WORD COUNT OCB53690 0B4F D940 F0F4 4040 4040 5370 | EBC .R 04 . OCB53700 4040 4040 4040 4040 | 4040 4040 | 0B59 4040 4040 4040 4040 5371 | EBC . . OCB53710 4040 4040 4040 4040 | 4040 4040 | 0B63 0015 5372 | DC 21 R05 WORD COUNT OCB53720 0B64 D940 F0F5 40C9 D5E5 5373 | EBC .R 05 INVALID LOADING. OCB53730 C1D3 C9C4 40D3 D6C1 | C4C9 D5C7 | 0B6E 40C1 C4C4 D940 C6D6 5374 | EBC . ADDR FOR ILS02 . OCB53740 D940 C9D3 E2F0 F240 | 4040 4040 | 0B78 0015 5375 | DC 21 R 06 WORD COUNT OCB53750 0B79 D940 F0F6 40C6 C9D3 5376 | EBC .R 06 FILE(S) TRUNCAT. OCB53760 C54D E25D 40E3 D9E4 | D5C3 C1E3 | 0B83 C5C4 404D E2C5 C540 5377 | EBC .ED (SEE FILE MAP) . OCB53770 C6C9 D3C5 40D4 C1D7 | 5D40 4040 | 0B8D 0015 5378 | DC 21 R 07 WORD COUNT OCB53780 0B8E D940 F0F7 40E3 D6D6 5379 | EBC .R 07 TOO MANY ENTRIE. OCB53790 40D4 C1D5 E840 C5D5 | E3D9 C9C5 | 0B98 E240 C9D5 40D3 D6C1 5380 | EBC .S IN LOAD TABLE . OCB53800 C440 E3C1 C2D3 C540 | 4040 4040 | 0BA2 0015 5381 | DC 21 R 08 WORD COUNT OCB53810 0BA3 D940 F0F8 40C3 D6D9 5382 | EBC .R 08 CORE LOAD EXCEE. OCB53820 C540 D3D6 C1C4 40C5 | E7C3 C5C5 | 0BAD C4E2 40F3 F2D2 4040 5383 | EBC .DS 32K . OCB53830 4040 4040 4040 4040 | 4040 4040 | 0BB7 0015 5384 | DC 21 R 09 WORD COUNT OCB53840 0BB8 D940 F0F9 40D3 C9C2 5385 | EBC .R 09 LIBF TV REQUIRE. OCB53850 C640 E3E5 40D9 C5D8 | E4C9 D9C5 | 0BC2 E240 F8F4 40D6 D940 5386 | EBC .S 84 OR MORE ENTRIES. 212 OCB53860 D4D6 D9C5 40C5 D5E3 | D9C9 C5E2 | 0BCC 0015 5387 | DC 21 R 10 WORD COUNT OCB53870 0BCD D940 F1F0 4040 4040 5388 | EBC .R 10 . OCB53880 4040 4040 4040 4040 | 4040 4040 | 0BD7 4040 4040 4040 4040 5389 | EBC . . OCB53890 4040 4040 4040 4040 | 4040 4040 | 5390 | * OCB53900 0BE1 5391 | P7END BSS E1000+319-* PATCH AREA OCB53910 0BE1 0000 5392 | DC 0 PATCH AREA OCB53920 CORE LOAD BUILDER, PHASE 8 5394 | *************************************************** OCB53940 5395 | * * OCB53950 5396 | *STATUS-VERSION 2, MODIFICATION 0 * OCB53960 5397 | * * OCB53970 5398 | *FUNCTION/OPERATION- * OCB53980 5399 | * * PRINTS ERROR MESSAGES R16-R23 * OCB53990 5400 | * * SETS DO-NOT-EXECUTE AND DO-NOT-DUP SWITCHES * OCB54000 5401 | * * OCB54010 5402 | *ENTRY POINTS- * OCB54020 5403 | * * E2000-THIS IS THE ONLY ENTRY POINT * OCB54030 5404 | * BSI L E2000 * OCB54040 5405 | * * OCB54050 5406 | *INPUT- * OCB54060 5407 | * * XR2 HOLDS THE ERROR NUMBER * OCB54070 5408 | * * RNAME THE NAME OF THE PROGRAM INVOLVED * OCB54080 5409 | * * OCB54090 5410 | *OUTPUT- * OCB54100 5411 | * *PRINTED MESSAGE * OCB54110 5412 | * * SKIP TO CHANNEL 1 AND PRINT HEADING WHEN * OCB54120 5413 | * CHANNEL 12 SENSED * OCB54130 5414 | * *SWITCHES $NDUP AND $NEXQ SET * OCB54140 5415 | * * OCB54150 5416 | *EXTERNAL REFERENCES- * OCB54160 5417 | * SUBROUTINES * OCB54170 5418 | * * GP000 READ AND WRITE ON DISK * OCB54180 5419 | * * LK000 FETCH A PHASE VIA SLET * OCB54190 5420 | * COMMA/DCOM- * OCB54200 5421 | * * $CH12 * OCB54210 5422 | * * $NEXQ * OCB54220 5423 | * * $NDUP * OCB54230 5424 | * * $PBSY * OCB54240 5425 | * * OCB54250 5426 | *EXITS- * OCB54260 5427 | * NORMAL- * OCB54270 5428 | * BACK TO CALLER INDIRECTLY VIA E2000 * OCB54280 5429 | * ERROR-N/A * OCB54290 5430 | * * OCB54300 5431 | *TABLES/WORK AREAS- * OCB54310 5432 | * * E2950 TABLE OF WORD COUNTS AND MESSAGES * OCB54320 5433 | * * OCB54330 5434 | *NOTES-N/A * OCB54340 5435 | * * OCB54350 5436 | *************************************************** OCB54360 CORE LOAD BUILDER, PHASE 8 5438 | * OCB54380 5439 | * PARAMETERS FOR THE SYSTEM LOADER OCB54390 0AA0 5440 | ORG BUFLS OCB54400 *SBRKGL 7F 5441 | *CORE LOAD BUILDER, PHASE 8 V2M00 OCB54410 0AA0 012B 5442 | DC P8END-*-1 PHASE 8 WD CNT OCB54420 0AA1 007F 5443 | DC @CLB8 ID NO. FOR CLB, PHASE 8 OCB54430 CORE LOAD BUILDER, PHASE 8 5445 | * PRINT MESSAGES R16-R23 AND SET $NDUP, $NXEQ OCB54450 5446 | * OCB54460 5447 | * OCB54470 0AA2 0000 5448 | E2000 DC *-* ENTRY POINT OCB54480 0AA3 1000 5449 | NOP OCB54490 0AA4 C397 5450 | LD 3 K320 OCB54500 0AA5 D0FA 5451 | STO E2000-2 OCB54510 0AA6 694C 5452 | STX 1 E2200+1 SAVE XR1 OCB54520 0AA7 6A62 5453 | STX 2 E2900 SAVE MESSAGE NO. OCB54530 0AA8 C400 0BE3 5454 | LD L BUFLO+1 OCB54540 0AAA D072 5455 | STO E2931 OCB54550 0AAB 6500 0099 5456 | LDX L1 @PRNT OCB54560 0AAD C3D2 5457 | LD 3 LOBUF OCB54570 0AAE 4400 0380 5458 | BSI L LK000 FETCH PRINCIPAL PRINT SUBR OCB54580 0AB0 C480 0006 5459 | LD I $CH12 OCB54590 0AB2 4C18 0ABE 5460 | BSC L E2050,+- BR UNLESS CHANNEL 12 SENSED OCB54600 0AB4 C05A 5461 | LD E2920+1 OCB54610 0AB5 938E 5462 | S 3 K1 OCB54620 0AB6 1890 5463 | SRT 16 OCB54630 0AB7 4400 0418 5464 | BSI L GP000 FETCH PAGE HEADING OCB54640 0AB9 C056 5465 | LD E2925-1 OCB54650 0ABA D056 5466 | STO E2925 OCB54660 0ABB C852 5467 | LDD E2920 OCB54670 0ABC 4039 5468 | BSI E2400 SKIP TO CHANNEL 1 OCB54680 0ABD 4038 5469 | BSI E2400 PRINT PAGE HEADING OCB54690 0ABE C04B 5470 | E2050 LD E2900 COMPUTE CORE ADDR OF OCB54700 0ABF 904B 5471 | S E2905 *REQUESTED MESSAGE OCB54710 0AC0 A05E 5472 | M E2935 OCB54720 0AC1 18D0 5473 | RTE 16 OCB54730 0AC2 8049 5474 | A E2910 OCB54740 0AC3 D001 5475 | STO *+1 OCB54750 0AC4 6500 0000 5476 | E2100 LDX L1 *-* ADDR OF MESSAGE TO XR1 OCB54760 5477 | * OCB54770 5478 | * CONVERT NAME TO 5 EBCDIC CHARACTERS OCB54780 5479 | * OCB54790 0AC6 CB86 5480 | LDD 3 RNAME OCB54800 0AC7 1882 5481 | SRT 2 OCB54810 0AC8 1002 5482 | SLA 2 OCB54820 0AC9 1802 5483 | SRA 2 OCB54830 0ACA 1888 5484 | SRT 8 OCB54840 0ACB 4032 5485 | BSI E2450 CONVERT @,#,$ OCB54850 0ACC D103 5486 | STO 1 3 STORE 1ST CHARACTER OCB54860 0ACD 180A 5487 | SRA 10 OCB54870 0ACE 1086 5488 | SLT 6 OCB54880 0ACF 402E 5489 | BSI E2450 CONVERT @,#,$ OCB54890 0AD0 1008 5490 | SLA 8 OCB54900 0AD1 D04E 5491 | STO E2940 OCB54910 0AD2 1002 5492 | SLA 2 OCB54920 0AD3 1086 5493 | SLT 6 OCB54930 0AD4 4029 5494 | BSI E2450 CONVERT @,#,$ OCB54940 0AD5 E84A 5495 | OR E2940 OCB54950 0AD6 D104 5496 | STO 1 4 STORE 2ND, 3RD CHARACTERS OCB54960 0AD7 CB86 5497 | LDD 3 RNAME OCB54970 0AD8 1082 5498 | SLT 2 OCB54980 0AD9 1810 5499 | SRA 16 OCB54990 0ADA 1086 5500 | SLT 6 OCB55000 0ADB 4022 5501 | BSI E2450 CONVERT @,#,$ OCB55010 0ADC 1008 5502 | SLA 8 OCB55020 0ADD D042 5503 | STO E2940 OCB55030 0ADE 1002 5504 | SLA 2 OCB55040 0ADF 1086 5505 | SLT 6 OCB55050 0AE0 401D 5506 | BSI E2450 CONVERT @,#,$ OCB55060 0AE1 E83E 5507 | OR E2940 OCB55070 0AE2 D105 5508 | STO 1 5 STORE 5TH CHARACTER OCB55080 0AE3 C0E1 5509 | LD E2100+1 OCB55090 0AE4 18D0 5510 | RTE 16 OCB55100 0AE5 C027 5511 | LD E2915 OCB55110 0AE6 400F 5512 | BSI E2400 PRINT REQUESTED MESSAGE OCB55120 0AE7 C035 5513 | LD E2931 OCB55130 0AE8 D400 0BE3 5514 | STO L BUFLO+1 OCB55140 0AEA C3D2 5515 | LD 3 LOBUF OCB55150 0AEB 1890 5516 | SRT 16 OCB55160 0AEC 4400 0418 5517 | BSI L GP000 RESTORE DATA BUFFER OCB55170 0AEE 6C00 0035 5518 | STX L0 $NXEQ SET DO-NOT-EXECUTE SWITCH OCB55180 0AF0 6C00 0034 5519 | STX L0 $NDUP SET DO-NOT-DUP SWITCH OCB55190 0AF2 6500 0000 5520 | E2200 LDX L1 *-* RESTORE XR1 OCB55200 0AF4 4C80 0AA2 5521 | BSC I E2000 RETURN OCB55210 5522 | * OCB55220 5523 | * CALL PRINCIPAL PRINTER OCB55230 5524 | * OCB55240 0AF6 0000 5525 | E2400 DC *-* ENTRY POINT OCB55250 0AF7 4400 0BE5 5526 | BSI L BUFLO+3 CALL THE PRINTER OCB55260 0AF9 7400 0036 5527 | MDX L $PBSY,0 LOOP UNTIL OPERATION OCB55270 0AFB 70FD 5528 | MDX *-3 *REQUESTED IS COMPLETE OCB55280 0AFC 4C80 0AF6 5529 | BSC I E2400 RETURN TO CALLER OCB55290 5530 | * OCB55300 5531 | * CHECK FOR SPECIAL CHARACTERS OCB55310 5532 | * OCB55320 0AFE 0000 5533 | E2450 DC *-* ENTRY POINT OCB55330 0AFF D021 5534 | STO E2941 OCB55340 0B00 E022 5535 | AND E2943 OCB55350 0B01 9020 5536 | S E2942 OCB55360 0B02 4C28 0B06 5537 | BSC L E2470,Z+ BR IF NOT A SPECIAL CHAR OCB55370 0B04 C01F 5538 | LD E2944 OCB55380 0B05 7001 5539 | MDX E2470+1 BR TO CONVERT CHARACTER OCB55390 0B06 C017 5540 | E2470 LD E2932 OCB55400 0B07 E819 5541 | OR E2941 OCB55410 0B08 4C80 0AFE 5542 | BSC I E2450 RETURN OCB55420 5543 | * OCB55430 5544 | * CONSTANTS AND WORK AREAS OCB55440 5545 | * EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES OCB55450 5546 | * OCB55460 0B0A 5547 | BSS E 0 OCB55470 0B0A 0000 5548 | E2900 DC *-* NO. OF REQUESTED MESSAGE OCB55480 0B0B 0010 5549 | E2905 DC MSG16 NO. 1ST MESSAGE IN THIS PHASE OCB55490 0B0C 0B25 5550 | E2910 DC E2950 ADDR 1ST MESSAGE IN PHASE OCB55500 0B0D 7001 5551 | E2915 MDX *+1 PRINT FUNCTION-INDICATOR OCB55510 0B0E 7000 5552 | E2920 MDX * SKIP-TO-CHANNEL-1 INDICATOR AND OCB55520 0B0F 0B11 5553 | DC E2925 *ADDR OF HEADING BUFFER OCB55530 0B10 000A 5554 | DC 10 PAGE HEADING WORD COUNT OCB55540 0B11 0007 5555 | E2925 DC @HDNG PAGE HEADING SCTR ADDR OCB55550 0B12 5556 | BSS 10 PAGE HEADING BUFFER OCB55560 0B1C 5557 | BSS 1 PATCH AREA OCB55570 0B1D 0000 5558 | E2931 DC *-* DATA BUFFER SCTR ADDR OCB55580 0B1E 00C0 5559 | E2932 DC /00C0 MASK FOR A-Z, 0-9 IN EBCDIC OCB55590 0B1F 0015 5560 | E2935 DC 21 OCB55600 0B20 0000 5561 | E2940 DC *-* CHAR TO BE CONVERTED OCB55610 0B21 0000 5562 | E2941 DC *-* CHAR CONVERTED TO EBCDIC OCB55620 0B22 000A 5563 | E2942 DC /000A 2ND HALF SPECIAL CHAR LIMIT OCB55630 0B23 000F 5564 | E2943 DC /000F MASK 1ST HALF EBCDIC CHAR OCB55640 0B24 0040 5565 | E2944 DC /0040 EBCDIC BLANK OCB55650 0B25 0015 5566 | E2950 DC 21 R 16 WORD COUNT OCB55660 0B26 D940 F1F6 40E7 E7E7 5567 | EBC .R 16 XXXXX IS NOT IN. OCB55670 E7E7 40C9 E240 D5D6 | E340 C9D5 | 0B30 40D3 C5E3 40D6 D940 5568 | EBC . LET OR FLET . OCB55680 C6D3 C5E3 4040 4040 | 4040 4040 | 0B3A 0015 5569 | DC 21 R 17 WORD COUNT OCB55690 0B3B D940 F1F7 40E7 E7E7 5570 | EBC .R 17 XXXXX CANNOT BE. OCB55700 E7E7 40C3 C1D5 D5D6 | E340 C2C5 | 0B45 40C1 40D3 D6C3 C1D3 5571 | EBC . A LOCAL/NOCAL . OCB55710 61D5 D6C3 C1D3 4040 | 4040 4040 | 0B4F 0015 5572 | DC 21 R 18 WORD COUNT OCB55720 0B50 D940 F1F8 40E7 E7E7 5573 | EBC .R 18 XXXXX LOADING H. OCB55730 E7E7 40D3 D6C1 C4C9 | D5C7 40C8 | 0B5A C1E2 40C2 C5C5 D540 5574 | EBC .AS BEEN TERMINATED . OCB55740 E3C5 D9D4 C9D5 C1E3 | C5C4 4040 | 0B64 0015 5575 | DC 21 R 19 WORD COUNT OCB55750 0B65 D940 F1F9 40E7 E7E7 5576 | EBC .R 19 XXXXX IS NOT A . OCB55760 E7E7 40C9 E240 D5D6 | E340 C140 | 0B6F C4C1 E3C1 40C6 C9D3 5577 | EBC .DATA FILE . OCB55770 C540 4040 4040 4040 | 4040 4040 | 0B79 0015 5578 | DC 21 R 20 WORD COUNT OCB55780 0B7A D940 F2F0 40E7 E7E7 5579 | EBC .R 20 XXXXX COMMON EX. OCB55790 E7E7 40C3 D6D4 D4D6 | D540 C5E7 | 0B84 C3C5 C5C4 E240 E3C8 5580 | EBC .CEEDS THAT OF ML . OCB55800 C1E3 40D6 C640 D4D3 | 4040 4040 | 0B8E 0015 5581 | DC 21 R 21 WORD COUNT OCB55810 0B8F D940 F2F1 40E7 E7E7 5582 | EBC .R 21 XXXXX PRECISION. OCB55820 E7E7 40D7 D9C5 C3C9 | E2C9 D6D5 | 0B99 40C4 C9C6 C6C5 D9C5 5583 | EBC . DIFFERENT FROM ML . OCB55830 D5E3 40C6 D9D6 D440 | D4D3 4040 | 0BA3 0015 5584 | DC 21 R 22 WORD COUNT OCB55840 0BA4 D940 F2F2 40E7 E7E7 5585 | EBC .R 22 XXXXX AND ANOTH. OCB55850 E7E7 40C1 D5C4 40C1 | D5D6 E3C8 | 0BAE C5D9 40E5 C5D9 E2C9 5586 | EBC .ER VERSION REF'ENCED. OCB55860 D6D5 40D9 C5C6 7DC5 | D5C3 C5C4 | 0BB8 0015 5587 | DC 21 R 23 WORD COUNT OCB55870 0BB9 D940 F2F3 40E7 E7E7 5588 | EBC .R 23 XXXXX SHOULD BE. OCB55880 E7E7 40E2 C8D6 E4D3 | C440 C2C5 | 0BC3 40C9 D540 E3C8 C540 5589 | EBC . IN THE FIXED AREA . OCB55890 C6C9 E7C5 C440 C1D9 | C5C1 4040 | 5590 | * OCB55900 0BCD 5591 | P8END BSS E2000+319-* PATCH AREA OCB55910 0BE1 0000 5592 | DC 0 PATCH AREA OCB55920 CORE LOAD BUILDER, PHASE 9 5594 | *************************************************** OCB55940 5595 | * * OCB55950 5596 | *STATUS-VERSION 2, MODIFICATION 6 * OCB55960 5597 | * * OCB55970 5598 | *FUNCTION/OPERATION- * OCB55980 5599 | * * PRINTS ERROR MESSAGES R38-R47 * OCB55990 5600 | * * SETS DO-NOT-EXEQUTE AND DO-NOT-DUP SWITCHES * OCB56000 5601 | * FOR R39, R46 AND R47 * OCB56010 5602 | * * OCB56020 5603 | *ENTRY POINTS- * OCB56030 5604 | * * E3000 THIS IS THE ONLY ENTRY POINT * OCB56040 5605 | * BSI L E3000 * OCB56050 5606 | * * OCB56060 5607 | *INPUT- * OCB56070 5608 | * * XR2 HOLDS TE ERROR NUMBER * OCB56080 5609 | * * RNAME HOLDS THE NAME OF THE PROGRAM INVOLVED* OCB56090 5610 | * IN NAME CODE * OCB56100 5611 | * * OCB56110 5612 | *OUTPUT- * OCB56120 5613 | * *PRINTED MESSAGE * OCB56130 5614 | * * SKIP TO CHANNEL 1 AND PRINT HEADING WHEN * OCB56140 5615 | * CHANNEL 12 SENSED * OCB56150 5616 | * *SWICHES $NDUP AND $NEXQ SET ONLY IF PRINTING * OCB56160 5617 | * R39, R46, R47 * OCB56170 5618 | * * OCB56180 5619 | *EXTERNAL REFERENCES- * OCB56190 5620 | * SUBROUTINES- * OCB56200 5621 | * * GP000 READ AND WRITE ON DISK * OCB56210 5622 | * * LK000 FETCH A PHASE VIA SLET * OCB56220 5623 | * COMMA/DCOM- * OCB56230 5624 | * * $CH12 * OCB56240 5625 | * * $NEXQ * OCB56250 5626 | * * $NDUP * OCB56260 5627 | * * $PBSY * OCB56270 5628 | * * OCB56280 5629 | *EXITS- * OCB56290 5630 | * NORMAL- * OCB56300 5631 | * BACK TO CALLER INDIRECTLY VIA E2000 * OCB56310 5632 | * ERROR-N/A * OCB56320 5633 | * * OCB56330 5634 | *TABLES/WORK AREAS- * OCB56340 5635 | * * E3960 TABLE OF WORD COUNTS AND MESSAGES * OCB56350 5636 | * * OCB56360 5637 | *NOTES-N/A * OCB56370 5638 | * * OCB56380 5639 | *************************************************** OCB56390 CORE LOAD BUILDER, PHASE 9 5641 | * PARAMETERS FOR THE SYSTEM LOADER OCB56410 5642 | * OCB56420 0AA0 5643 | ORG BUFLS OCB56430 *SBRKGL 80 5644 | *CORE LOAD BUILDER, PHASE 9 V2M00 OCB56440 0AA0 013F 5645 | DC P9END-*-1 PHASE 9 WD CNT OCB56450 0AA1 0080 5646 | DC @CLB9 ID NO. FOR CLB, PHASE 9 OCB56460 CORE LOAD BUILDER, PHASE 9 5648 | * PRINT MESSAGES R39-R47 AND SET $NXEQ, $NDUP OCB56480 5649 | * FOR R39, R46, AND R47 ONLY OCB56490 5650 | * OCB56500 5651 | * OCB56510 0AA2 0000 5652 | E3000 DC *-* ENTRY POINT OCB56520 0AA3 1000 5653 | NOP OCB56530 0AA4 C397 5654 | LD 3 K320 OCB56540 0AA5 D0FA 5655 | STO E3000-2 OCB56550 0AA6 694F 5656 | STX 1 E3300+1 SAVE XR1 OCB56560 0AA7 6A5A 5657 | STX 2 E3900 SAVE MESSAGE NO. OCB56570 0AA8 C400 0BE3 5658 | LD L BUFLO+1 SAVE ADDR OF SCTR CURRENTLY OCB56580 0AAA D06E 5659 | STO E3950 OCB56590 0AAB 6500 0099 5660 | LDX L1 @PRNT OCB56600 0AAD C3D2 5661 | LD 3 LOBUF OCB56610 0AAE 4400 0380 5662 | BSI L LK000 FETCH PRINCIPAL PRINT SUBR OCB56620 0AB0 C480 0006 5663 | LD I $CH12 OCB56630 0AB2 4C18 0ABE 5664 | BSC L E3050,+- BR UNLESS CHANNEL 12 SENSED OCB56640 0AB4 C052 5665 | LD E3920+1 OCB56650 0AB5 938E 5666 | S 3 K1 OCB56660 0AB6 1890 5667 | SRT 16 OCB56670 0AB7 4400 0418 5668 | BSI L GP000 FETCH PAGE HEADING OCB56680 0AB9 C04E 5669 | LD E3925-1 OCB56690 0ABA D04E 5670 | STO E3925 OCB56700 0ABB C84A 5671 | LDD E3920 OCB56710 0ABC 403C 5672 | BSI E3400 SKIP TO CHANNEL 1 OCB56720 0ABD 403B 5673 | BSI E3400 PRINT PAGE HEADING OCB56730 0ABE C043 5674 | E3050 LD E3900 COMPUTE CORE ADDR OF OCB56740 0ABF 9043 5675 | S E3905 *REQUESTED MESSAGE OCB56750 0AC0 A05A 5676 | M E3960 OCB56760 0AC1 18D0 5677 | RTE 16 OCB56770 0AC2 8041 5678 | A E3910 OCB56780 0AC3 8392 5679 | A 3 K6 OCB56790 0AC4 D011 5680 | STO E3200+1 OCB56800 5681 | * OCB56810 5682 | * CONVERT FROM BINARY TO 4 HEX CHARACTERS IN EBCDIC OCB56820 5683 | * OCB56830 0AC5 CB86 5684 | LDD 3 RNAME OCB56840 0AC6 1890 5685 | SRT 16 OCB56850 0AC7 62FE 5686 | LDX 2 -2 OCB56860 0AC8 1084 5687 | E3150 SLT 4 FETCH 1ST OR 3RD HEX CHAR OCB56870 0AC9 904C 5688 | S E3935 COMPARE CHARACTER WITH 9 OCB56880 0ACA 4808 5689 | BSC + SKIP IF GREATER THAN 9 OCB56890 0ACB 804B 5690 | A E3940 OCB56900 0ACC 1008 5691 | SLA 8 OCB56910 0ACD D04A 5692 | STO E3945 OCB56920 0ACE 1004 5693 | SLA 4 OCB56930 0ACF 1084 5694 | SLT 4 FETCH 2ND OR 4TH HEX CHAR OCB56940 0AD0 9045 5695 | S E3935 COMPARE CHARACTER WITH 9 OCB56950 0AD1 4808 5696 | BSC + SKIP IF GREATER THAN 9 OCB56960 0AD2 8044 5697 | A E3940 OCB56970 0AD3 E844 5698 | OR E3945 OCB56980 0AD4 E83F 5699 | OR E3932 OCB56990 0AD5 D600 0000 5700 | E3200 STO L2 *-* OCB57000 0AD7 1810 5701 | SRA 16 CLEAR ACCUMULATOR OCB57010 0AD8 7201 5702 | MDX 2 1 SKIP AFTER 2ND PASS OCB57020 0AD9 70EE 5703 | MDX E3150 CONVERT 3RD, 4TH CHARACTER OCB57030 0ADA C0FB 5704 | LD E3200+1 OCB57040 0ADB 9392 5705 | S 3 K6 OCB57050 0ADC 18D0 5706 | RTE 16 OCB57060 0ADD C027 5707 | LD E3915 OCB57070 0ADE 401A 5708 | BSI E3400 PRINT REQUESTED MESSAGE OCB57080 0ADF C039 5709 | LD E3950 OCB57090 0AE0 D400 0BE3 5710 | STO L BUFLO+1 OCB57100 0AE2 C3D2 5711 | LD 3 LOBUF OCB57110 0AE3 1890 5712 | SRT 16 OCB57120 0AE4 4400 0418 5713 | BSI L GP000 RESTORE DATA BUFFER OCB57130 0AE6 C01B 5714 | LD E3900 OCB57140 0AE7 901B 5715 | S E3905 OCB57150 0AE8 4C18 0AF1 5716 | BSC L E3270,+- BR IF MESSAGE R39 OCB57160 0AEA C017 5717 | LD E3900 OCB57170 0AEB 902E 5718 | S E3953 OCB57180 0AEC 4C28 0AF5 5719 | BSC L E3300,Z+ *TO BE PRINTED GTE 46 OCB57190 0AEE 9026 5720 | S E3933 2-6 OCB57200 0AEF 4C18 0AF5 5721 | BSC L E3300,+- 2-6 OCB57210 0AF1 6C00 0035 5722 | E3270 STX L0 $NXEQ SET DO-NOT-EXECUTE SWITCH OCB57220 0AF3 6C00 0034 5723 | STX L0 $NDUP SET DO-NOT-DUP SWITCH OCB57230 0AF5 6500 0000 5724 | E3300 LDX L1 *-* RESTORE XR1 OCB57240 0AF7 4C80 0AA2 5725 | BSC I E3000 RETURN OCB57250 5726 | * OCB57260 5727 | * CALL PRINCIPAL PRINTER OCB57270 5728 | * OCB57280 0AF9 0000 5729 | E3400 DC *-* ENTRY POINT OCB57290 0AFA 4400 0BE5 5730 | BSI L BUFLO+3 CALL THE PRINTER OCB57300 0AFC 7400 0036 5731 | MDX L $PBSY,0 LOOP UNTIL OPERATION OCB57310 0AFE 70FD 5732 | MDX *-3 *REQUESTED IS COMPLETE OCB57320 0AFF 4C80 0AF9 5733 | BSC I E3400 RETURN TO CALLER OCB57330 5734 | * OCB57340 5735 | * CONSTANTS AND WORK AREAS OCB57350 5736 | * EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES OCB57360 0B02 5737 | BSS E 0 OCB57370 0B02 0000 5738 | E3900 DC *-* NO. OF REQUESTED MESSAGE OCB57380 0B03 0027 5739 | E3905 DC MSG39 ADDR OF 1ST MESSAGE OCB57390 0B04 0B1B 5740 | E3910 DC E3960 ADDR OF 1ST MESSAGE OCB57400 0B05 7001 5741 | E3915 MDX *+1 PRINT FUNCTION-INDICATOR OCB57410 0B06 7000 5742 | E3920 MDX * SKIP-TO-CHANNEL-1 INDICATOR OCB57420 0B07 0B09 5743 | DC E3925 ADDR OF HEADING BUFFER OCB57430 0B08 000A 5744 | DC 10 PAGE HEADING WD CNT OCB57440 0B09 0007 5745 | E3925 DC @HDNG PAGE HEADING SCTR ADDR OCB57450 0B0A 5746 | BSS 10 PAGE HEADING BUFFER OCB57460 0B14 C0C0 5747 | E3932 DC /C0C0 OCB57470 0B15 0002 5748 | E3933 DC 2 2-6 OCB57480 0B16 0009 5749 | E3935 DC 9 HIGHEST MARK IN THE DECIMAL SYS OCB57490 0B17 0039 5750 | E3940 DC /39 OCB57500 0B18 0000 5751 | E3945 DC *-* OCB57510 0B19 0000 5752 | E3950 DC *-* DATA BUFFER SCTR ADDR OCB57520 0B1A 002E 5753 | E3953 DC MSG46 NO. 1ST MESSAGE CAUSING ABORT OCB57530 0B1B 0015 5754 | E3960 DC 21 R 39 WORD COUNT OCB57540 0B1C D940 F3F9 4040 E7E7 5755 | EBC .R 39 XXXX IS NOT CU. OCB57550 E7E7 40C9 E240 D5D6 | E340 C3E4 | 0B26 D9D9 C5D5 E3D3 E840 5756 | EBC .RRENTLY MOUNTED . OCB57560 D4D6 E4D5 E3C5 C440 | 4040 4040 | 0B30 0015 5757 | DC 21 R40 WORD COUNT OCB57570 0B31 D940 F4F0 4040 E7E7 5758 | EBC .R 40 XXXX (HEX)=ADD. OCB57580 E7E7 404D C8C5 E75D | 7EC1 C4C4 | 0B3B C9E3 C9D6 D5C1 D340 5759 | EBC .ITIONAL CORE REQUIRD. OCB57590 C3D6 D9C5 40D9 C5D8 | E4C9 D9C4 | 0B45 0015 5760 | DC 21 R41 WORD COUNT OCB57600 0B46 D940 F4F1 4040 E7E7 5761 | EBC .R 41 XXXX (HEX) WDS. OCB57610 E7E7 404D C8C5 E75D | 40E6 C4E2 | 0B50 40E4 D5E4 E2C5 C440 5762 | EBC . UNUSED BY CORE LOAD. OCB57620 C2E8 40C3 D6D9 C540 | D3D6 C1C4 | 0B5A 0015 5763 | DC 21 R42 WORD COUNT OCB57630 0B5B 4040 4040 4040 E7E7 5764 | EBC . XXXX (HEX) IS . OCB57640 E7E7 404D C8C5 E75D | 40C9 E240 | 0B65 E3C8 C540 C5E7 C5C3 5765 | EBC .THE EXECUTION ADDR . OCB57650 E4E3 C9D6 D540 C1C4 | C4D9 4040 | 0B6F 0015 5766 | DC 21 R43 WORD COUNT OCB57660 0B70 D940 F4F3 4040 E7E7 5767 | EBC .R 43 XXXX (HEX)=ARI. OCB57670 E7E7 404D C8C5 E75D | 7EC1 D9C9 | 0B7A E3C8 61C6 E4D5 C340 5768 | EBC .TH/FUNC SOCAL WD CNT. OCB57680 E2D6 C3C1 D340 E6C4 | 40C3 D5E3 | 0B84 0015 5769 | DC 21 R44 WORD COUNT OCB57690 0B85 D940 F4F4 4040 E7E7 5770 | EBC .R 44 XXXX (HEX)=FI/. OCB57700 E7E7 404D C8C5 E75D | 7EC6 C961 | 0B8F D66B 40C9 61D6 40E2 5771 | EBC .O, I/O SOCAL WD CNT . OCB57710 D6C3 C1D3 40E6 C440 | C3D5 E340 | 0B99 0015 5772 | DC 21 R45 WORD COUNT OCB57720 0B9A D940 F4F5 4040 E7E7 5773 | EBC .R 45 XXXX (HEX)=DIS. OCB57730 E7E7 404D C8C5 E75D | 7EC4 C9E2 | 0BA4 D240 C6C9 61D6 40E2 5774 | EBC .K FI/O SOCAL WD CNT . OCB57740 D6C3 C1D3 40E6 C440 | C3D5 E340 | 0BAE 0015 5775 | DC 21 R46 WORD COUNT OCB57750 0BAF D940 F4F6 4040 E7E7 5776 | EBC .R 46 XXXX (HEX)=AN . OCB57760 E7E7 404D C8C5 E75D | 7EC1 D540 | 0BB9 C9D3 D3C5 C7C1 D340 5777 | EBC .ILLEGAL ML LOAD ADDR. OCB57770 D4D3 40D3 D6C1 C440 | C1C4 C4D9 | 0BC3 0015 5778 | DC 21 R47 WORD COUNT OCB57780 0BC4 D940 F4F7 4040 E7E7 5779 | EBC .R 47 XXXX (HEX) TOO. OCB57790 E7E7 404D C8C5 E75D | 40E3 D6D6 | 0BCE 40D4 C1D5 E840 E6C4 5780 | EBC . MANY WDS IN COMMON . OCB57800 E240 C9D5 40C3 D6D4 | D4D6 D540 | 0BD8 0008 5781 | DC 8 R 48 WORD COUNT 2-6 OCB57810 0BD9 D940 F4F8 4040 E7E7 5782 | EBC .R 48 XXXX (HEX). 2-6 OCB57820 E7E7 404D C8C5 E75D | 5783 | * OCB57830 0BE1 5784 | P9END BSS E3000+319-* PATCH AREA OCB57840 0BE1 0000 5785 | DC 0 PATCH AREA OCB57850 CORE LOAD BUILDER, PHASE 10 5787 | *************************************************** OCB57870 5788 | * * OCB57880 5789 | *STATUS-VERSION 2, MODIFICATION 9 * OCB57890 5790 | * * OCB57900 5791 | *FUNCTION/OPERATION- * OCB57910 5792 | * * PRINTS ERROR MESSAGES R64-R68 * OCB57920 5793 | * * SETS D0-NOT-EXECUTE AND DO-NOT-DUP SWITCHES * OCB57930 5794 | * * OCB57940 5795 | *ENTRY POINTS- * OCB57950 5796 | * * E4000-THIS IS THE ONLY ENTRY POINT * OCB57960 5797 | * BSI L E4000 * OCB57970 5798 | * * OCB57980 5799 | *INPUT- * OCB57990 5800 | * * XR2 HOLDS THE ERROR NUMBER * OCB58000 5801 | * * RNAME THE NAME OF THE PROGRAM INVOLVED * OCB58010 5802 | * * OCB58020 5803 | *OUTPUT- * OCB58030 5804 | * *PRINTED MESSAGE * OCB58040 5805 | * * SKIP TO CHANNEL 1 AND PRINT HEADING WHEN * OCB58050 5806 | * CHANNEL 12 SENSED * OCB58060 5807 | * *SWITCHES $NDUP AND $NXEQ SET * OCB58070 5808 | * * OCB58080 5809 | *EXTERNAL REFERENCES- * OCB58090 5810 | * SUBROUTINES * OCB58100 5811 | * * GP000 READ AND WRITE ON DISK * OCB58110 5812 | * * LK000 FETCH A PHASE VIA SLET * OCB58120 5813 | * COMMA/DCOM- * OCB58130 5814 | * * $CH12 * OCB58140 5815 | * * $NEXQ * OCB58150 5816 | * * $NDUP * OCB58160 5817 | * * $PBSY * OCB58170 5818 | * * OCB58180 5819 | *EXITS- * OCB58190 5820 | * NORMAL- * OCB58200 5821 | * BACK TO CALLER INDIRECTLY VIA E4000 * OCB58210 5822 | * ERROR-N/A * OCB58220 5823 | * * OCB58230 5824 | *TABLES/WORK AREAS- * OCB58240 5825 | * * E4955 TABLE OF WORD COUNTS AND MESSAGES * OCB58250 5826 | * * OCB58260 5827 | *NOTES-N/A * OCB58270 5828 | * * OCB58280 5829 | *************************************************** OCB58290 CORE LOAD BUILDER, PHASE 10 5831 | * PARAMETERS FOR THE SYSTEM LOADER OCB58310 5832 | * OCB58320 0AA0 5833 | ORG BUFLS OCB58330 *SBRKGL 81 5834 | *CORE LOAD BUILDER, PHASE 10 V2M02 OCB58340 0AA0 00EA 5835 | DC PAEND-*-1 PHASE 10 WD CNT OCB58350 0AA1 0081 5836 | DC @CLBA ID NO. OCB58360 CORE LOAD BUILDER, PHASE 10 5838 | * PRINT MESSAGES R64-R68 AND SET $NXEQ, $NDUP OCB58380 5839 | * OCB58390 0AA2 0000 5840 | E4000 DC *-* ENTRY POINT OCB58400 0AA3 1000 5841 | NOP OCB58410 0AA4 C397 5842 | LD 3 K320 OCB58420 0AA5 D0FA 5843 | STO E4000-2 OCB58430 0AA6 694C 5844 | STX 1 E4300+1 SAVE XR1 OCB58440 0AA7 6A62 5845 | STX 2 E4900 SAVE NO. OF REQUESTED MSG OCB58450 0AA8 C400 0BE3 5846 | LD L BUFLO+1 OCB58460 0AAA D071 5847 | STO E4940 OCB58470 0AAB 6500 0099 5848 | LDX L1 @PRNT OCB58480 0AAD C3D2 5849 | LD 3 LOBUF OCB58490 0AAE 4400 0380 5850 | BSI L LK000 FETCH PRINCIPAL PRINT SUBR OCB58500 0AB0 C480 0006 5851 | LD I $CH12 OCB58510 0AB2 4C18 0ABE 5852 | BSC L E4050,+- BR UNLESS CHANNEL 12 SENSED OCB58520 0AB4 C05A 5853 | LD E4930+1 OCB58530 0AB5 938E 5854 | S 3 K1 OCB58540 0AB6 1890 5855 | SRT 16 OCB58550 0AB7 4400 0418 5856 | BSI L GP000 FETCH PAGE HEADING OCB58560 0AB9 C056 5857 | LD E4935-1 OCB58570 0ABA D056 5858 | STO E4935 OCB58580 0ABB C852 5859 | LDD E4930 OCB58590 0ABC 4039 5860 | BSI E4400 SKIP TO CHANNEL 1 OCB58600 0ABD 4038 5861 | BSI E4400 PRINT PAGE HEADING OCB58610 0ABE C04B 5862 | E4050 LD E4900 OCB58620 0ABF 904B 5863 | S E4905 OCB58630 0AC0 A062 5864 | M E4955 OCB58640 0AC1 18D0 5865 | RTE 16 OCB58650 0AC2 8049 5866 | A E4910 OCB58660 0AC3 D001 5867 | STO *+1 SAVE ADDR OF REQUESTED MSG OCB58670 0AC4 6500 0000 5868 | E4100 LDX L1 *-* ADDR OF MESSAGE TO XR1 OCB58680 5869 | * OCB58690 5870 | * CONVERT NAME TO PACKED EBCDIC OCB58700 5871 | * OCB58710 0AC6 CB86 5872 | LDD 3 RNAME OCB58720 0AC7 1882 5873 | SRT 2 OCB58730 0AC8 1002 5874 | SLA 2 OCB58740 0AC9 1802 5875 | SRA 2 OCB58750 0ACA 1888 5876 | SRT 8 OCB58760 0ACB 4032 5877 | BSI E4450 CONVERT @,#,$ OCB58770 0ACC D103 5878 | STO 1 3 STORE 1ST CHARACTER OCB58780 0ACD 180A 5879 | SRA 10 OCB58790 0ACE 1086 5880 | SLT 6 OCB58800 0ACF 402E 5881 | BSI E4450 CONVERT @,#,$ OCB58810 0AD0 1008 5882 | SLA 8 OCB58820 0AD1 D04C 5883 | STO E4946 OCB58830 0AD2 1002 5884 | SLA 2 OCB58840 0AD3 1086 5885 | SLT 6 OCB58850 0AD4 4029 5886 | BSI E4450 CONVERT @,#,$ OCB58860 0AD5 E848 5887 | OR E4946 OCB58870 0AD6 D104 5888 | STO 1 4 STORE 2ND, 3RD CHARACTERS OCB58880 0AD7 CB86 5889 | LDD 3 RNAME OCB58890 0AD8 1082 5890 | SLT 2 OCB58900 0AD9 1810 5891 | SRA 16 OCB58910 0ADA 1086 5892 | SLT 6 OCB58920 0ADB 4022 5893 | BSI E4450 CONVERT @,#,$ OCB58930 0ADC 1008 5894 | SLA 8 OCB58940 0ADD D040 5895 | STO E4946 OCB58950 0ADE 1002 5896 | SLA 2 OCB58960 0ADF 1086 5897 | SLT 6 OCB58970 0AE0 401D 5898 | BSI E4450 CONVERT @,#,$ OCB58980 0AE1 E83C 5899 | OR E4946 OCB58990 0AE2 D105 5900 | STO 1 5 STORE 4TH, 5TH CHARACTERS OCB59000 0AE3 C0E1 5901 | LD E4100+1 OCB59010 0AE4 18D0 5902 | RTE 16 OCB59020 0AE5 C027 5903 | LD E4915 OCB59030 0AE6 400F 5904 | BSI E4400 PRINT REQUESTED MESSAGE OCB59040 0AE7 C034 5905 | LD E4940 OCB59050 0AE8 D400 0BE3 5906 | STO L BUFLO+1 OCB59060 0AEA C3D2 5907 | LD 3 LOBUF OCB59070 0AEB 1890 5908 | SRT 16 OCB59080 0AEC 4400 0418 5909 | BSI L GP000 RESTORE DATA BUFFER OCB59090 0AEE 6C00 0035 5910 | STX L0 $NXEQ OCB59100 0AF0 6C00 0034 5911 | STX L0 $NDUP OCB59110 0AF2 6500 0000 5912 | E4300 LDX L1 *-* RESTORE XR1 OCB59120 0AF4 4C80 0AA2 5913 | BSC I E4000 RETURN OCB59130 5914 | * OCB59140 5915 | * CALL PRINCIPAL PRINTER OCB59150 5916 | * OCB59160 0AF6 0000 5917 | E4400 DC *-* ENTRY POINT OCB59170 0AF7 4400 0BE5 5918 | BSI L BUFLO+3 OUT TO PRINT OCB59180 0AF9 7400 0036 5919 | MDX L $PBSY,0 LOOP UNTIL OCB59190 0AFB 70FD 5920 | MDX *-3 *MESSAGE PRINTED OCB59200 0AFC 4C80 0AF6 5921 | BSC I E4400 RETURN OCB59210 5922 | * OCB59220 5923 | * CHECK FOR SPECIAL CHARACTERS OCB59230 5924 | * OCB59240 0AFE 0000 5925 | E4450 DC *-* ENTRY POINT OCB59250 0AFF D01F 5926 | STO E4947 OCB59260 0B00 E020 5927 | AND E4949 OCB59270 0B01 901E 5928 | S E4948 OCB59280 0B02 4C28 0B06 5929 | BSC L E4470,Z+ BR IF NOT A SPECIAL CHAR OCB59290 0B04 C01D 5930 | LD E4950 OCB59300 0B05 7001 5931 | MDX E4470+1 BR TO CONVERT CHARACTER OCB59310 0B06 C016 5932 | E4470 LD E4945 OCB59320 0B07 E817 5933 | OR E4947 OCB59330 0B08 4C80 0AFE 5934 | BSC I E4450 RETURN OCB59340 5935 | * OCB59350 5936 | * CONSTANTS AND WORK AREAS OCB59360 5937 | * EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES OCB59370 5938 | * OCB59380 0B0A 5939 | BSS E 0 OCB59390 0B0A 0000 5940 | E4900 DC *-* NO. OR REQUESTED MESSAGE OCB59400 0B0B 0040 5941 | E4905 DC MSG64 NO. OF 1ST MESSAGE OCB59410 0B0C 0B23 5942 | E4910 DC E4955 ADDR 1ST MESSAGE OCB59420 0B0D 7001 5943 | E4915 MDX *+1 PRINT FUNCTION INDICATOR OCB59430 0B0E 7000 5944 | E4930 MDX * SKIP-TO-CHANNEL-1 INDICATOR OCB59440 0B0F 0B11 5945 | DC E4935 ADDR OF HEADING BUFFER OCB59450 0B10 000A 5946 | DC 10 PAGE HEADING WD CNT OCB59460 0B11 0007 5947 | E4935 DC @HDNG PAGE HEADING SCTR ADDR OCB59470 0B12 5948 | BSS 10 PAGE HEADING BUFFER OCB59480 0B1C 0000 5949 | E4940 DC *-* DATA BUFFER SCTR ADDR OCB59490 0B1D 00C0 5950 | E4945 DC /00C0 MASK FOR A-Z, 0-9 OCB59500 0B1E 0000 5951 | E4946 DC *-* CHAR TO BE CONVERTED OCB59510 0B1F 0000 5952 | E4947 DC *-* CHAR CONVERTED TO EBCDIC OCB59520 0B20 000A 5953 | E4948 DC /000A 2ND HALF SPECIAL CHAR LIMIT OCB59530 0B21 000F 5954 | E4949 DC /000F MASK 1ST HALF EBCDIC CHAR OCB59540 0B22 0040 5955 | E4950 DC /0040 EBCDIC BLANK OCB59550 0B23 0015 5956 | E4955 DC 21 R64 WORD COUNT OCB59560 0B24 D940 F6F4 40E7 E7E7 5957 | EBC .R 64 XXXXX IS BOTH A. OCB59570 E7E7 40C9 E240 C2D6 | E3C8 40C1 | 0B2E 40D3 C9C2 C640 C1D5 5958 | EBC . LIBF AND A CALL . OCB59580 C440 C140 C3C1 D3D3 | 4040 4040 | 0B38 0015 5959 | DC 21 R65 WORD COUNT OCB59590 0B39 D940 F6F5 40E7 E7E7 5960 | EBC .R 65 XXXXX HAS MORE . OCB59600 E7E7 40C8 C1E2 40D4 | D6D9 C540 | 0B43 E3C8 C1D5 40F1 F440 5961 | EBC .THAN 14 ENTRY POINTS. OCB59610 C5D5 E3D9 E840 D7D6 | C9D5 E3E2 | 0B4D 0015 5962 | DC 21 R 66 WORD COUNT OCB59620 0B4E D940 F6F6 40E7 E7E7 5963 | EBC .R 66 XXXXX HAS AN IN. OCB59630 E7E7 40C8 C1E2 40C1 | D540 C9D5 | 0B58 E5C1 D3C9 C440 E3E8 5964 | EBC .VALID TYPE CODE . OCB59640 D7C5 40C3 D6C4 C540 | 4040 4040 | 0B62 0015 5965 | DC 21 R 67 WORD COUNT OCB59650 0B63 D940 F6F7 40E7 E7E7 5966 | EBC .R 67 XXXXX HAS AN IN. 2G2 OCB59660 E7E7 40C8 C1E2 40C1 | D540 C9D5 | 0B6D E5C1 D3C9 C440 C7E2 5967 | EBC .VALID GSB ADDRESS . 2G2 OCB59670 C240 C1C4 C4D9 C5E2 | E240 4040 | 0B77 0015 5968 | DC 21 R 68 WORD COUNT OCB59680 0B78 D940 F6F8 40E7 E7E7 5969 | EBC .R 68 XXXXX FILE NUMB. 2-9 OCB59690 E7E7 40C6 C9D3 C540 | D5E4 D4C2 | 0B82 C5D9 40D7 D9C5 E5C9 5970 | EBC .ER PREVIOUSLY USED . 2-9 OCB59700 D6E4 E2D3 E840 E4E2 | C5C4 4040 | 5971 | * OCB59710 0B8C 5972 | PAEND BSS E4000+319-* PATCH AREA OCB59720 0BE1 0000 5973 | DC 0 PATCH AREA OCB59730 CORE LOAD BUILDER, PHASE 11 5975 | *************************************************** OCB59750 5976 | * * OCB59760 5977 | *STATUS-VERSION 2, MODIFICATION 9 * OCB59770 5978 | * * OCB59780 5979 | *FUNCTION/OPERATION- * OCB59790 5980 | * THIS PHASE IS FETCHED INTO CORE BY SUBROUTINE * OCB59800 5981 | * FM000 (IN PHASE 2) EVERY TIME A LINE WITH * OCB59810 5982 | * * 'FILES ALLOCATION' (1) * OCB59820 5983 | * * FILES ALLOCATION DATA (2) * OCB59830 5984 | * * 'STORAGE ALLOCATION (3) * OCB59840 5985 | * HAS TO BE PRINTED. * OCB59850 5986 | * * OCB59860 5987 | *ENTRY POINTS- * OCB59870 5988 | * * M1000 IS THE ONLY ENTRY POINT * OCB59880 5989 | * * M1000 TIS IS THE ONLY ENTRY POINT * OCB59890 5990 | * BSI L M1000 * OCB59900 5991 | * * OCB59910 5992 | *INPUT- * OCB59920 5993 | * * LSW02 THIS SWITCH CONTROLS WHAT TO BE DONE * OCB59930 5994 | * NEG. OUTPUT A, ZERO OUTPUT B, POS. OUTPUT C * OCB59940 5995 | *OUTPUT- * OCB59950 5996 | * * A ONE LINE OF EACH (7) AND (2) (SEE ABOVE) * OCB59960 5997 | * B ONE LINE OF (3) * OCB59970 5998 | * C ONE LINE OF (2) * OCB59980 5999 | * * SKIP TO CHANNEL 1 AND PRINT HEADING WHEN * OCB59990 6000 | * CHANNEL 12 SENSED * OCB60000 6001 | * * OCB60010 6002 | *EXTERNAL REFERENCES- * OCB60020 6003 | * SUBROUTINES * OCB60030 6004 | * * GP000 READ AND WRITE ON DISK * OCB60040 6005 | * * LK000 FETCH A PHASE VIA SLET * OCB60050 6006 | * COMMA/DCOM- * OCB60060 6007 | * * $LEV1 * OCB60070 6008 | * * $PBSY * OCB60080 6009 | * * $CH12 * OCB60090 6010 | * * $FPAD * OCB60100 6011 | * * OCB60110 6012 | *EXITS- * OCB60120 6013 | * NORMAL- * OCB60130 6014 | * BACK TO CALLER VIA M1000 * OCB60140 6015 | * ERROR-N/A * OCB60150 6016 | * * OCB60160 6017 | *TABLES/WORK AREAS-N/A * OCB60170 6018 | * * OCB60180 6019 | *NOTES-N/A * OCB60190 6020 | * * OCB60200 6021 | *************************************************** OCB60210 CORE LOAD BUILDER, PHASE 11 0BE2 6023 | ORG BUFLO OCB60230 *SBRKGL 82 6024 | *CORE LOAD BUILDER, PHASE 11 V2M03 OCB60240 0BE2 012D 6025 | DC PBEND-*-1 PHASE 11 WD CNT OCB60250 0BE3 0082 6026 | DC @CLBB PHASE ID OCB60260 CORE LOAD BUILDER, PHASE 11 6028 | * MAP-1,SUBR FOR MAPPING FILES AND PRINTING OCB60280 6029 | * THE HEADING 'STORAGE ALLOCATION' OCB60290 6030 | * OCB60300 0BE4 0000 6031 | M1000 DC *-* ENTRY POINT OCB60310 0BE5 C397 6032 | LD 3 K320 OCB60320 0BE6 D0FB 6033 | STO M1000-2 OCB60330 0BE7 6918 6034 | STX 1 M1010+1 SAVE XR1 OCB60340 0BE8 6E00 0C76 6035 | STX L2 M1190+1 SAVE XR2 OCB60350 0BEA C400 0CD7 6036 | LD L M1990+1 OCB60360 0BEC 938E 6037 | S 3 K1 OCB60370 0BED 1890 6038 | SRT 16 OCB60380 0BEE 4400 0418 6039 | BSI L GP000 FETCH PAGE HEADING OCB60390 0BF0 C400 0CD8 6040 | LD L M1995-1 OCB60400 0BF2 D400 0CD9 6041 | STO L M1995 OCB60410 0BF4 C3D7 6042 | LD 3 LSBUF OCB60420 0BF5 8392 6043 | A 3 K6 OCB60430 0BF6 D3B2 6044 | STO 3 IBT4X PLACE INTERUPT ADDRESS OCB60440 0BF7 D3B5 6045 | STO 3 IBT4X+3 OCB60450 0BF8 D400 0009 6046 | STO L $LEV1 OCB60460 0BFA 6500 0099 6047 | LDX L1 @PRNT OCB60470 0BFC C3D7 6048 | LD 3 LSBUF OCB60480 0BFD 4400 0380 6049 | BSI L LK000 FETCH PRINT SUBROUTINE OCB60490 0BFF 6500 0000 6050 | M1010 LDX L1 *-* RESTORE XR1 OCB60500 0C01 C3DA 6051 | LD 3 LSW02 BR IF FILES ALLOCATION OCB60510 0C02 4C10 0C0B 6052 | BSC L M1020,- *HEADING ALREADY PRINTED OCB60520 0C04 6C00 057A 6053 | STX L0 LSW02+X3 SET HEADER SWITCH OFF OCB60530 0C06 C400 0CBA 6054 | LD L M1960 OCB60540 0C08 4400 0C92 6055 | BSI L M1600 PRINT 'FILES ALLOCATION' OCB60550 0C0A 700F 6056 | MDX M1030 BR TO MAP A FILE OCB60560 0C0B 4C20 0C1A 6057 | M1020 BSC L M1030,Z BR UNLESS STORAGE ALLOCA- OCB60570 0C0D C400 0CC4 6058 | LD L M1970 OCB60580 0C0F 4400 0C92 6059 | BSI L M1600 PRINT 'STORAGE ALLOCATION' OCB60590 0C11 705D 6060 | MDX M1180 TO EXIT OCB60600 6061 | * OCB60610 6062 | * CALL PRINCIPAL PRINTER OCB60620 6063 | * OCB60630 0C12 0000 6064 | M1025 DC *-* ENTRY POINT OCB60640 0C13 4400 0AA3 6065 | BSI L BUFLS+3 OUT TO SKIP OCB60650 0C15 7400 0036 6066 | MDX L $PBSY,0 SKIP IF PRINTER NOT BUSY, OCB60660 0C17 70FD 6067 | MDX *-3 *BRANCH OTHERWISE OCB60670 0C18 4C80 0C12 6068 | BSC I M1025 RETURN OCB60680 0C1A C07F 6069 | M1030 LD M1900 OCB60690 0C1B D020 6070 | STO M1130+1 INITIALIZE LINE ADDR OCB60700 0C1C C100 6071 | LD 1 0 FETCH FILE NO. FROM TABLE OCB60710 6072 | * OCB60720 6073 | * CONVERT FILE NO. TO 5-DIGIT NO. IN EBCDIC AND OCB60730 6074 | * STORE IN XXXXX POSITIONS OF LINE TO BE PRINTED OCB60740 6075 | * OCB60750 0C1D 6205 6076 | LDX 2 5 NO. DIGITS TO XR2 OCB60760 0C1E 1890 6077 | SRT 16 OCB60770 0C1F AC00 0CE4 6078 | M1050 D L M1996 OCB60780 0C21 18D0 6079 | RTE 16 OCB60790 0C22 D600 0CCF 6080 | STO L2 M1980-1 OCB60800 0C24 1810 6081 | SRA 16 CLEAR ACCUMULATOR OCB60810 0C25 72FF 6082 | MDX 2 -1 SKIP AFTER 5TH DIGIT FORMED OCB60820 0C26 70F8 6083 | MDX M1050 BR TO FORM NEXT DIGIT OCB60830 0C27 62FC 6084 | LDX 2 -4 OCB60840 0C28 C600 0CD4 6085 | M1080 LD L2 M1980+4 FETCH A DIGIT OCB60850 0C2A 4C20 0C32 6086 | BSC L M1110,Z BRANCH IF DIGIT NOT ZERO OCB60860 0C2C C400 0CD5 6087 | LD L M1980+5 REPLACE ZERO WITH AN 'F' OCB60870 0C2E D600 0CD4 6088 | STO L2 M1980+4 OCB60880 0C30 7201 6089 | MDX 2 1 SKIP WHEN LEFT 4 DGTS. DONE OCB60890 0C31 70F6 6090 | MDX M1080 BR TO CHECK NEXT DIGIT OCB60900 0C32 62FA 6091 | M1110 LDX 2 -6 OCB60910 0C33 C600 0CD6 6092 | M1120 LD L2 M1980+6 OCB60920 0C35 1008 6093 | SLA 8 OCB60930 0C36 EE00 0CD7 6094 | OR L2 M1980+7 OCB60940 0C38 E862 6095 | OR M1905 OCB60950 0C39 7401 0C3C 6096 | MDX L M1130+1,1 OCB60960 0C3B D400 0000 6097 | M1130 STO L *-* STORE EBCDIC CHARACTER OCB60970 0C3D 7202 6098 | MDX 2 2 SKIP AFTER 5TH CHAR. STORED OCB60980 0C3E 70F4 6099 | MDX M1120 BR TO STORE NEXT CHARACTER OCB60990 6100 | * OCB61000 6101 | * STORE SECTOR ADDRESS OF FILE IN YYYY POSITIONS OF OCB61010 6102 | * LINE TO BE PRINTED OCB61020 6103 | * OCB61030 0C3F C104 6104 | LD 1 @SCAD FETCH SECTOR ADDR OCB61040 0C40 1004 6105 | SLA 4 SHIFT OUT WORKING 2-3 OCB61050 0C41 1804 6106 | SRA 4 *STORAGE INDICATOR 2-3 OCB61060 0C42 6600 0CA9 6107 | LDX L2 M1952 ADDR YYYY VALUE TO XR2 OCB61070 0C44 4034 6108 | BSI M1500 MOVE SCTR ADDR INTO LINE OCB61080 6109 | * OCB61090 6110 | * STORE SECTOR COUNT OF FILE IN ZZZZ POSITIONS OF OCB61100 6111 | * LINE TO BE PRINTED OCB61110 6112 | * OCB61120 0C45 6600 0CAC 6113 | LDX L2 M1954 ADDR OF ZZZZ TO XR2 OCB61130 0C47 C106 6114 | LD 1 @BCNT OCB61140 0C48 8400 0CD5 6115 | A L M1980+5 OCB61150 0C4A 1804 6116 | SRA 4 OCB61160 0C4B 402D 6117 | BSI M1500 MOVE SCTR CNT INTO LINE OCB61170 6118 | * OCB61180 6119 | * STORE CARTRIDGE ID NO. OF FILE IN UUUU POSITIONS OCB61190 6120 | * OCB61200 0C4C 6600 0CAF 6121 | LDX L2 M1956 ADDR OF UUUU TO XR2 OCB61210 0C4E C104 6122 | LD 1 @SCAD BR IF NOT 2-10 OCB61220 0C4F 4C28 0C54 6123 | BSC L M1135,Z+ *UA/FX FILE 2-7 OCB61230 0C51 C3AB 6124 | LD 3 DRCDE COMPUTE CART ID 2-7 OCB61240 0C52 180C 6125 | SRA 12 *FOR PRINTING 2-7 OCB61250 0C53 7001 6126 | MDX M1136 2-7 OCB61260 0C54 C3B6 6127 | M1135 LD 3 IGNOR OCB61270 0C55 804D 6128 | M1136 A M1935 OCB61280 0C56 D001 6129 | STO *+1 OCB61290 0C57 C400 0000 6130 | LD L *-* FETCH CART ID NO. OCB61300 0C59 401F 6131 | BSI M1500 MOVE CART ID INTO LINE OCB61310 0C5A C104 6132 | LD 1 @SCAD FETCH SECTOR ADDR OF FILE OCB61320 0C5B 4C10 0CE7 6133 | BSC L M1650,- BR IF UA/FXA FILE OCB61330 6134 | * OCB61340 6135 | * STORE ADDR OF WORKING STORAGE IN NEXT 4 POSITIONS OCB61350 0C5D 7201 6136 | MDX 2 1 OCB61360 0C5E C3B6 6137 | LD 3 IGNOR OCB61370 0C5F 8041 6138 | A M1925 OCB61380 0C60 D001 6139 | STO *+1 OCB61390 0C61 C400 0000 6140 | LD L *-* FETCH ADDR OF WORKING STG OCB61400 0C63 4015 6141 | BSI M1500 MOVE WS ADDR INTO LINE OCB61410 0C64 C480 0006 6142 | M1140 LD I $CH12 BRANCH UNLESS CHANNEL 12 OCB61420 0C66 4C18 0C6B 6143 | BSC L M1150,+- *HAS BEEN SENSED OCB61430 0C68 C86D 6144 | LDD M1990 OCB61440 0C69 40A8 6145 | BSI M1025 SKIP TO CHANNEL 1 OCB61450 0C6A 40A7 6146 | BSI M1025 PRINT PAGE HEADING OCB61460 0C6B C3DC 6147 | M1150 LD 3 LSW04 SET UP WORD COUNT FOR LINE OCB61470 0C6C D038 6148 | STO M1945 *TO BE MAPPED OCB61480 0C6D C02C 6149 | LD M1900 FETCH ADDR OF LINE OCB61490 0C6E 4023 6150 | BSI M1600 PRINT A LINE OCB61500 0C6F C3D2 6151 | M1180 LD 3 LOBUF OCB61510 0C70 8392 6152 | A 3 K6 OCB61520 0C71 D3B2 6153 | STO 3 IBT4X OCB61530 0C72 D3B5 6154 | STO 3 IBT4X+3 OCB61540 0C73 D400 0009 6155 | STO L $LEV1 OCB61550 0C75 6600 0000 6156 | M1190 LDX L2 *-* RESTORE REGISTER 2 OCB61560 0C77 4C80 0BE4 6157 | BSC I M1000 RETURN OCB61570 6158 | * OCB61580 6159 | * CONVERT 4 HEX CHARACTERS TO EBCDIC OCB61590 6160 | * OCB61600 0C79 0000 6161 | M1500 DC *-* ENTRY POINT OCB61610 0C7A 1890 6162 | SRT 16 PUT NO. IN EXTENSION OCB61620 0C7B 1084 6163 | M1550 SLT 4 FETCH A HEX CHARACTER AND OCB61630 0C7C 901F 6164 | S M1910 *COMPARE IT WITH 9 OCB61640 0C7D 4808 6165 | BSC + SKIP IF GREATER THAN 9 OCB61650 0C7E 801E 6166 | A M1915 OCB61660 0C7F 1008 6167 | SLA 8 SHIFT TO LEFT HALF OF WORD OCB61670 0C80 D050 6168 | STO M1980+1 OCB61680 0C81 1004 6169 | SLA 4 OCB61690 0C82 1084 6170 | SLT 4 FETCH NEXT HEX CHARACTER OCB61700 0C83 9018 6171 | S M1910 *AND COMPARE IT WITH 9 OCB61710 0C84 4808 6172 | BSC + SKIP IF GREATER THAN 9 OCB61720 0C85 8017 6173 | A M1915 OCB61730 0C86 E84A 6174 | OR M1980+1 'OR' IN LEFT HALF OF WORD OCB61740 0C87 E816 6175 | OR M1920 OCB61750 0C88 D200 6176 | STO 2 0 STORE PACKED EBCDIC WORD OCB61760 0C89 1810 6177 | SRA 16 CLEAR ACCUMULATOR OCB61770 0C8A 7201 6178 | MDX 2 1 POINT XR2 TO NXT WD IN LINE OCB61780 0C8B 74FF 0CA4 6179 | MDX L M1940,-1 SKIP AFTER 2 PASSES OCB61790 0C8D 70ED 6180 | MDX M1550 BR TO CONVERT 2 MORE DIGITS OCB61800 0C8E C38F 6181 | LD 3 K2 OCB61810 0C8F D014 6182 | STO M1940 RESTORE COUNTER TO 2 OCB61820 0C90 4C80 0C79 6183 | BSC I M1500 RETURN OCB61830 6184 | * OCB61840 6185 | * TRANSFER TO PRINCIPAL PRINT SUBR TO PRINT A LINE OCB61850 6186 | * OCB61860 0C92 0000 6187 | M1600 DC *-* ENTRY POINT OCB61870 0C93 18D0 6188 | RTE 16 OCB61880 0C94 C00D 6189 | LD M1930 OCB61890 0C95 4400 0C12 6190 | BSI L M1025 CALL PRINCIPAL PRINTER OCB61900 0C97 4C80 0C92 6191 | BSC I M1600 RETURN OCB61910 6192 | * OCB61920 6193 | * CONSTANTS AND WORK AREAS OCB61930 6194 | * EVEN-NUMBEREB LABELS ARE ON EVEN BOUNDARIES OCB61940 6195 | * OCB61950 0C9A 6196 | BSS E 0 OCB61960 0C9A 0CA5 6197 | M1900 DC M1950-1 ADDR OF XXXXX POS MINUS 1 OCB61970 0C9B F0F0 6198 | M1905 DC /F0F0 OCB61980 0C9C 0009 6199 | M1910 DC 9 HIGHEST DECIMAL MARK OCB61990 0C9D 0039 6200 | M1915 DC /39 OCB62000 0C9E C0C0 6201 | M1920 DC /C0C0 OCB62010 0C9F 000A 6202 | M1921 DC /000A 2ND HALF SPECIAL CHAR LIMIT OCB62020 0CA0 000F 6203 | M1922 DC /000F MASK 1ST HALF EBCDIC CHAR OCB62030 0CA1 0095 6204 | M1925 DC $FPAD ADDR WORKING STORAGE,DR 0 OCB62040 0CA2 7001 6205 | M1930 MDX *+1 PRINT-A-LINE INDICATOR OCB62050 0CA3 0561 6206 | M1935 DC LCIDN+X3 ADDR OF CART ID NO. LOG DR 0 OCB62060 0CA4 0002 6207 | M1940 DC 2 COUNTER FOR PACKED EBCDIC OCB62070 0CA5 0000 6208 | M1945 DC *-* WD CNT OF FILE MAP LINE OCB62080 0CA6 E7E7 E7E7 E740 6209 | M1950 EBC .XXXXX . OCB62090 0CA9 E8E8 E8E8 4040 6210 | M1952 EBC .YYYY . OCB62100 0CAC E9E9 E9E9 4040 6211 | M1954 EBC .ZZZZ . OCB62110 0CAF E4E4 E4E4 6212 | M1956 EBC .UUUU. OCB62120 0CB1 4040 4040 4040 40E3 6213 | M1958 EBC . TRUNCATED. 2-9 OCB62130 D9E4 D5C3 C1E3 C5C4 | 0CBA 6214 | BSS E 0 OCB62140 0CBA 0CBB 6215 | M1960 DC M1965 ADDR FILES ALLOCATION LINE OCB62150 0CBB 0008 6216 | M1965 DC M1970-* WD CNT OF FILE ALLOC LINE OCB62160 0CBC C6C9 D3C5 E240 C1D3 6217 | EBC .FILES ALLOCATION. OCB62170 D3D6 C3C1 E3C9 D6D5 | 0CC4 6218 | BSS E 0 OCB62180 0CC4 0CC5 6219 | M1970 DC M1975 ADDR STGE ALLOCATION LINE OCB62190 0CC5 0009 6220 | M1975 DC 9 'STORAGE ALLOCATION' WD CNT OCB62200 0CC6 E2E3 D6D9 C1C7 C540 6221 | EBC .STORAGE ALLOCATION. OCB62210 C1D3 D3D6 C3C1 E3C9 | D6D5 | 0CD0 6222 | M1980 BSS E 5 WORK AREA FOR X, Y, AND Z OCB62220 0CD5 000F 6223 | DC @DBSC-1 NO. BLOCKS/SCTR MINUS 1 OCB62230 0CD6 7000 6224 | M1990 MDX * SKIP-TO-CHANNEL-1 INDICATOR OCB62240 0CD7 0CD9 6225 | DC M1995 HDDR OF PAGE HEADING WD CNT OCB62250 0CD8 000A 6226 | DC 10 PAGE HEADING WD CNT OCB62260 0CD9 0007 6227 | M1995 DC @HDNG PAGE HEADING SCTR ADDR OCB62270 0CDA 6228 | BSS 10 PAGE HEADING BUFFER OCB62280 0CE4 000A 6229 | M1996 DC 10 1+HIGHEST DECIMAL MARK OCB62290 0CE5 0040 6230 | M1997 DC /0040 EBCDIC BLANK OCB62300 0CE6 00C0 6231 | M1998 DC /00C0 OCB62310 6232 | * OCB62320 6233 | * STORE NAME OF FILE IN LINE TO BE PRINTED OCB62330 6234 | * OCB62340 0CE7 CB82 6235 | M1650 LDD 3 NAME FETCH FILE NAME OCB62350 0CE8 1002 6236 | SLA 2 OCB62360 0CE9 1802 6237 | SRA 2 OCB62370 0CEA 1888 6238 | SRT 8 OCB62380 0CEB 4019 6239 | BSI M1670 CONVERT @,#,$ OCB62390 0CEC D0C4 6240 | STO M1958 STORE 1ST CHARACTER OCB62400 0CED 180A 6241 | SRA 10 OCB62410 0CEE 1086 6242 | SLT 6 OCB62420 0CEF 4015 6243 | BSI M1670 CONVERT @,#,$ OCB62430 0CF0 1008 6244 | SLA 8 OCB62440 0CF1 D0DE 6245 | STO M1980 OCB62450 0CF2 1002 6246 | SLA 2 OCB62460 0CF3 1086 6247 | SLT 6 OCB62470 0CF4 4010 6248 | BSI M1670 CONVERT @,#,$ OCB62480 0CF5 E8DA 6249 | OR M1980 OCB62490 0CF6 D0BB 6250 | STO M1958+1 STORE 2ND, 3RD CHARACTERS OCB62500 0CF7 CB82 6251 | LDD 3 NAME OCB62510 0CF8 1084 6252 | SLT 4 OCB62520 0CF9 1810 6253 | SRA 16 OCB62530 0CFA 1086 6254 | SLT 6 OCB62540 0CFB 4009 6255 | BSI M1670 CONVERT @,#,$ OCB62550 0CFC 1008 6256 | SLA 8 OCB62560 0CFD D0D2 6257 | STO M1980 OCB62570 0CFE 1002 6258 | SLA 2 OCB62580 0CFF 1086 6259 | SLT 6 OCB62590 0D00 4004 6260 | BSI M1670 CONVERT @,#,$ OCB62600 0D01 E8CE 6261 | OR M1980 OCB62610 0D02 D0B0 6262 | STO M1958+2 STORE 4TH, 5TH CHARACTERS OCB62620 0D03 4C00 0C64 6263 | BSC L M1140 BR TO PRINT THE LINE OCB62630 6264 | * OCB62640 6265 | * CONVERT SPECIAL CHARACTERS OCB62650 6266 | * OCB62660 0D05 0000 6267 | M1670 DC *-* ENTRY POINT OCB62670 0D06 D0CA 6268 | STO M1980+1 OCB62680 0D07 E098 6269 | AND M1922 OCB62690 0D08 9096 6270 | S M1921 OCB62700 0D09 4C28 0D0D 6271 | BSC L M1700,Z+ BR UNLESS $,#,@ OCB62710 0D0B C0D9 6272 | LD M1997 OCB62720 0D0C 7001 6273 | MDX M1700+1 BR TO COMPLETE CONVERSION OCB62730 0D0D C0D8 6274 | M1700 LD M1998 OCB62740 0D0E E8C2 6275 | OR M1980+1 OCB62750 0D0F 4C80 0D05 6276 | BSC I M1670 RETURN OCB62760 6277 | * OCB62770 0D11 6278 | PBEND BSS M1000+319-* PATCH AREA OCB62780 0D23 0000 6279 | DC *-* PATCH AREA OCB62790 CORE LOAD BUILDER, PHASE 12 6281 | *************************************************** OCB62810 6282 | * * OCB62820 6283 | *STATUS-VERSION 2, MODIFICATION 2 * OCB62830 6284 | * * OCB62840 6285 | *FUNCTION/OPERATION- * OCB62850 6286 | * * MAPS CALL/LIBF TRANSFER VECTORS IF ANY * OCB62860 6287 | * * MAPS INTERUPT LEVEL SUBROUTINES * OCB62870 6288 | * * MAPS FLIPPER FOR LOCALS/SOCALS IF ANY * OCB62880 6289 | * * OCB62890 6290 | *ENTRY POINTS- * OCB62900 6291 | * * M2000 TIS IS THE ONLY ENTRY POINT * OCB62910 6292 | * BSI L M2000 * OCB62920 6293 | * * OCB62930 6294 | *INPUT- * OCB62940 6295 | * * LBATV IN RCOM = ZERO, NO TRANSFER VECTORS * OCB62950 6296 | * * @ITVX AND FOLLOWING FOUR WORDS = ADDR OF * OCB62960 6297 | * PROGRAM STOP KEY TRAP, NO ILS * OCB62970 6298 | * * FLPAD IN RCOM = ZERO, NO FLIPPER * OCB62980 6299 | * * OCB62990 6300 | *OUTPUT- * OCB63000 6301 | * * 'CALL TRANSFER VECTOR' AND NAME AND ADDR, OR* OCB63010 6302 | * 'LIBF TRANSFER VECTOR' AND NAME AND ADDR * OCB63020 6303 | * * 'SYSTEMS SUBROUTINES' NAME ADDR * OCB63030 6304 | * * 'FLIPR' ADDR * OCB63040 6305 | * * OCB63050 6306 | *EXTERNAL REFERENCES- * OCB63060 6307 | * SUBROUTINES- * OCB63070 6308 | * * GP000 READ AND WRITE ON DISK * OCB63080 6309 | * * LK000 FETCH A PHASE VIA SLET * OCB63090 6310 | * COMMA/DCOM- * OCB63100 6311 | * * $PBSY * OCB63110 6312 | * * $CH12 * OCB63120 6313 | * * $STOP * OCB63130 6314 | * * OCB63140 6315 | *EXITS- * OCB63150 6316 | * NORMAL- * OCB63160 6317 | * BACK TO CALLER INDIRECTLY VIA M2000 * OCB63170 6318 | * ERROR-N/A * OCB63180 6319 | * * OCB63190 6320 | *TABLES/WORK AREA-N/A * OCB63200 6321 | * * OCB63210 6322 | *NOTES-N/A * OCB63220 6323 | * * OCB63230 6324 | *************************************************** OCB63240 CORE LOAD BUILDER, PHASE 12 6326 | * PARAMETERS FOR THE SYSTEM LOADER OCB63260 6327 | * OCB63270 08B6 6328 | ORG MV000 OCB63280 *SBRKGL 83 6329 | *CORE LOAD BUILDER, PHASE 12 V2M02 OCB63290 08B6 0136 6330 | DC PCEND-*-1 PHASE 12 WD CNT OCB63300 08B7 0083 6331 | DC @CLBC ID NO. OCB63310 CORE LOAD BUILDER, PHASE 12 6333 | * PRINT THE CORE MAP OCB63330 6334 | * OCB63340 08B8 0000 6335 | M2000 DC *-* ENTRY POINT OCB63350 08B9 6600 0994 6336 | LDX L2 Z POINT TO CONSTANTS OCB63360 08BB C241 6337 | LD 2 M2998+1-Z OCB63370 08BC 938E 6338 | S 3 K1 OCB63380 08BD 1890 6339 | SRT 16 OCB63390 08BE 4400 0418 6340 | BSI L GP000 FETCH PAGE HEADING OCB63400 08C0 C242 6341 | LD 2 M2999-1-Z OCB63410 08C1 D243 6342 | STO 2 M2999-Z OCB63420 08C2 C3D2 6343 | LD 3 LOBUF OCB63430 08C3 6500 0099 6344 | LDX L1 @PRNT OCB63440 08C5 4400 0380 6345 | BSI L LK000 FETCH PRINCIPAL PRINT SUBR OCB63450 08C7 C3BE 6346 | LD 3 LBATV OCB63460 08C8 4C18 08D0 6347 | BSC L M2005,+- BR IF NO TRANSFER VECTOR OCB63470 08CA 4058 6348 | BSI M2300 MAP CALL TRANSFER VECTOR OCB63480 08CB C38D 6349 | LD 3 K0 OCB63490 08CC D226 6350 | STO 2 M2982-Z SET CALL/LIBF SWITCH OCB63500 08CD CA24 6351 | LDD 2 M2980-Z OCB63510 08CE DA34 6352 | STD 2 M2995+1-Z OCB63520 08CF 4053 6353 | BSI M2300 MAP LIBF TRANSFER VECTOR OCB63530 6354 | * OCB63540 6355 | * MAP THE INTERRUPT LEVEL SUBROUTINES OCB63550 6356 | * OCB63560 08D0 6106 6357 | M2005 LDX 1 6 NO. IL SUBROUTINES TO XR1 OCB63570 08D1 C38D 6358 | LD 3 K0 OCB63580 08D2 D20C 6359 | STO 2 M2930-Z OCB63590 08D3 C500 0492 6360 | M2010 LD L1 @ITVX-1 OCB63600 08D5 9218 6361 | S 2 M2940-Z BR IF NO ILS REQUIRED FOR OCB63610 08D6 4C18 08FD 6362 | BSC L M2030,+- *CURRENT INTERRUPT LEVEL OCB63620 08D8 923F 6363 | S 2 M2997-Z BR IF NO ILS05 OCB63630 08D9 4C18 08FD 6364 | BSC L M2030,+- *REQUIRED OCB63640 08DB 7400 09A0 6365 | MDX L M2930,0 SKIP IF HEADING NOT PRINTED OCB63650 08DD 7005 6366 | MDX M2020 BR TO MAP THE ILS OCB63660 08DE C23E 6367 | LD 2 M2996-Z OCB63670 08DF D20C 6368 | STO 2 M2930-Z OCB63680 08E0 18D0 6369 | RTE 16 OCB63690 08E1 C201 6370 | LD 2 M2901-Z OCB63700 08E2 4033 6371 | BSI M2200 PRINT 'SYSTEM SUBROUTINES' OCB63710 08E3 6D00 099C 6372 | M2020 STX L1 M2920 SAVE 1 PLUS CURRENT ILS NO. OCB63720 08E5 C400 0063 6373 | LD L $GCOM CHECK IF ILS TYPE .X. 2-2 OCB63730 08E7 EBF3 6374 | OR 3 LX3SW *TO BE MAPPED 2-2 OCB63740 08E8 4C20 08EE 6375 | BSC L M2025,Z BRANCH IF YES 2-2 OCB63750 08EA C208 6376 | LD 2 M2920-Z OCB63760 08EB 938E 6377 | S 3 K1 COMPUTE ILS NO. OCB63770 08EC EA1C 6378 | OR 2 M2945+1-Z OCB63780 08ED 7003 6379 | MDX M2027 2-2 OCB63790 08EE C208 6380 | M2025 LD 2 M2920-Z 2-2 OCB63800 08EF 938E 6381 | S 3 K1 2-2 OCB63810 08F0 EA1A 6382 | OR 2 M2944+1-Z 2-2 OCB63820 08F1 18D0 6383 | M2027 RTE 16 OCB63830 08F2 C21B 6384 | LD 2 M2945-Z OCB63840 08F3 4066 6385 | BSI M2500 PUT ILS NAME IN PRINT BFR OCB63850 08F4 C232 6386 | LD 2 M2994-Z OCB63860 08F5 D227 6387 | STO 2 M2985-Z OCB63870 08F6 C500 0492 6388 | LD L1 @ITVX-1 OCB63880 08F8 42E5 6389 | BSI 2 M2600-Z PUT ILS ENTRY ADDR IN BFR OCB63890 08F9 C221 6390 | LD 2 M2965-Z OCB63900 08FA 18D0 6391 | RTE 16 OCB63910 08FB C201 6392 | LD 2 M2901-Z OCB63920 08FC 4019 6393 | BSI M2200 MAP CURRENT ILS OCB63930 08FD 71FF 6394 | M2030 MDX 1 -1 SKIP AFTER MAPPING ILS00 OCB63940 08FE 70D4 6395 | MDX M2010 BR TO CHECK FOR NEXT ILS OCB63950 6396 | * OCB63960 6397 | * MAP THE FLIPPER OCB63970 6398 | * OCB63980 08FF C3AF 6399 | LD 3 FLPAD FETCH THE ADDR OF FLIPPER OCB63990 0900 4C18 090C 6400 | BSC L M2180,+- BR IF NO LOCALS/SOCALS USED OCB64000 0902 CA1E 6401 | LDD 2 M2950-Z PUT THE WORD 'FLIPR' OCB64010 0903 4056 6402 | BSI M2500 *IN PRINT BUFFER OCB64020 0904 C3AF 6403 | LD 3 FLPAD PUT ENTRY POINT ADDR TO OCB64030 0905 4073 6404 | BSI M2600 *FLIPPER IN BUFFER OCB64040 0906 C232 6405 | LD 2 M2994-Z OCB64050 0907 D227 6406 | STO 2 M2985-Z OCB64060 0908 C221 6407 | LD 2 M2965-Z OCB64070 0909 18D0 6408 | RTE 16 OCB64080 090A C201 6409 | LD 2 M2901-Z OCB64090 090B 400A 6410 | BSI M2200 MAP THE FLIPPER OCB64100 090C 4C80 08B8 6411 | M2180 BSC I M2000 RETURN TO ER SUBROUTINE OCB64110 6412 | * OCB64120 6413 | * CALL PRINTER OCB64130 6414 | * OCB64140 090E 0000 6415 | M2190 DC *-* ENTRY POINT OCB64150 090F 4400 0BE5 6416 | BSI L BUFLO+3 OUT TO PRINTER OCB64160 0911 7400 0036 6417 | MDX L $PBSY,0 SKIP IF PRINTER NOT BUSY, OCB64170 0913 70FD 6418 | MDX *-3 *BRANCH OTHERWISE OCB64180 0914 4C80 090E 6419 | BSC I M2190 RETURN OCB64190 6420 | * OCB64200 6421 | * PRINT A LINE OCB64210 6422 | * OCB64220 0916 0000 6423 | M2200 DC *-* ENTRY POINT OCB64230 0917 DA08 6424 | STD 2 M2920-Z OCB64240 0918 C480 0006 6425 | LD I $CH12 OCB64250 091A 4C18 091F 6426 | BSC L M2230,+- BR UNLESS CHAN 12 SENSED OCB64260 091C CA40 6427 | LDD 2 M2998-Z OCB64270 091D 40F0 6428 | BSI M2190 SKIP TO CHANNEL 1 OCB64280 091E 40EF 6429 | BSI M2190 PRINT PAGE HEADING OCB64290 091F CA08 6430 | M2230 LDD 2 M2920-Z OCB64300 0920 40ED 6431 | BSI M2190 PRINT A LINE OCB64310 0921 4C80 0916 6432 | BSC I M2200 RETURN OCB64320 6433 | * OCB64330 6434 | * MAP THE CALL OR LIBF TRANSFER VECTOR OCB64340 6435 | * OCB64350 0923 0000 6436 | M2300 DC *-* ENTRY POINT OCB64360 0924 1810 6437 | SRA 16 OCB64370 0925 D20C 6438 | STO 2 M2930-Z CLEAR HEADING SWITCH OCB64380 0926 6580 0568 6439 | LDX I1 LEFTX+X3 LEFT LIMIT OF LD TBL TO XR1 OCB64390 0928 7104 6440 | MDX 1 @LTEN PT TO LAST LD TBL ENTRY OCB64400 0929 C100 6441 | M2320 LD 1 @WRD1 FETCH 1ST WORD OF NAME OCB64410 092A 1001 6442 | SLA 1 OCB64420 092B 180F 6443 | SRA 15 OCB64430 092C F226 6444 | EOR 2 M2982-Z OCB64440 092D 4C20 0952 6445 | BSC L M2400,Z BR IF NOT TIME TO PRINT OCB64450 092F C232 6446 | LD 2 M2994-Z OCB64460 0930 D227 6447 | STO 2 M2985-Z SET UP LINE WD CNT OCB64470 0931 C100 6448 | LD 1 @WRD1 OCB64480 0932 4C10 0939 6449 | BSC L M2370,- BR UNLESS CURR ENT A LOCAL OCB64490 0934 C222 6450 | LD 2 M2970-Z OCB64500 0935 D22E 6451 | STO 2 M2990-Z OCB64510 0936 C206 6452 | LD 2 M2906-Z INCREASE WD CNT TO INCLUDE OCB64520 0937 D227 6453 | STO 2 M2985-Z *THE WORD 'LOCAL' OCB64530 0938 7009 6454 | MDX M2380 BR TO DECIDE TO PRINT OCB64540 0939 C103 6455 | M2370 LD 1 @WRD4 OCB64550 093A 4C18 0942 6456 | BSC L M2380,+- BR UNLESS ENTRY IS A SOCAL OCB64560 093C EA3F 6457 | OR 2 M2997-Z PUT SOCAL NO. IN OCB64570 093D D231 6458 | STO 2 M2992-Z *LINE TO BE PRINTED OCB64580 093E C078 6459 | LD M2975 OCB64590 093F D22E 6460 | STO 2 M2990-Z OCB64600 0940 C200 6461 | LD 2 M2900-Z INCREASE WD CNT TO INCLUDE OCB64610 0941 D079 6462 | STO M2985 *THE WORD 'SOCAL' OCB64620 0942 7400 09A0 6463 | M2380 MDX L M2930,0 SKIP IF HEADING NOT PRINTED OCB64630 0944 7005 6464 | MDX M2390 BR IF HEADING ALREADY DONE OCB64640 0945 C06E 6465 | LD M2960 OCB64650 0946 1890 6466 | SRT 16 OCB64660 0947 C04D 6467 | LD M2901 OCB64670 0948 D057 6468 | STO M2930 OCB64680 0949 40C4 6469 | BSI M2190 PRINT CALL/LIBF HEADING OCB64690 094A C900 6470 | M2390 LDD 1 @WRD1 FETCH SUBROUTINE NAME OCB64700 094B 400E 6471 | BSI M2500 PUT NAME IN PRINT BUFFER OCB64710 094C C102 6472 | LD 1 @WRD3 FETCH ENTRY POINT OCB64720 094D 402B 6473 | BSI M2600 PUT EXEC ADDR IN PRINT BFR OCB64730 094E C066 6474 | LD M2965 OCB64740 094F 18D0 6475 | RTE 16 OCB64750 0950 C044 6476 | LD M2901 OCB64760 0951 40C4 6477 | BSI M2200 MAP THE CURRENT LD TBL ENT OCB64770 0952 6949 6478 | M2400 STX 1 M2920 OCB64780 0953 C048 6479 | LD M2920 COMPARE ADDR OF CURR LOAD OCB64790 0954 93FC 6480 | S 3 RIGHT *TBL ENTRY W/ ADDR OF LAST OCB64800 0955 7104 6481 | MDX 1 @LTEN POINT TO NEXT LD TBL ENTRY OCB64810 0956 4C20 0929 6482 | BSC L M2320,Z BR IF NOT YET AT END OF TBL OCB64820 0958 4C80 0923 6483 | BSC I M2300 RETURN OCB64830 6484 | * OCB64840 6485 | * CONVERT SUBROUTINE NAME FROM NAME CODE TO PACKED OCB64850 6486 | * EBCDIC AND STORE IT IN THE XXXXX POSITIONS OCB64860 6487 | * OCB64870 095A 0000 6488 | M2500 DC *-* ENTRY POINT OCB64880 095B DB86 6489 | STD 3 RNAME OCB64890 095C 1002 6490 | SLA 2 OCB64900 095D 1802 6491 | SRA 2 OCB64910 095E 1888 6492 | SRT 8 OCB64920 095F 424E 6493 | BSI 2 M2650-Z CONVERT @,#,$ OCB64930 0960 D05B 6494 | STO M2986 STORE 1ST CHARACTER OCB64940 0961 180A 6495 | SRA 10 OCB64950 0962 1086 6496 | SLT 6 OCB64960 0963 424E 6497 | BSI 2 M2650-Z CONVERT @,#,$ OCB64970 0964 1008 6498 | SLA 8 OCB64980 0965 D036 6499 | STO M2920 OCB64990 0966 1002 6500 | SLA 2 OCB65000 0967 1086 6501 | SLT 6 OCB65010 0968 424E 6502 | BSI 2 M2650-Z CONVERT @,#,$ OCB65020 0969 E832 6503 | OR M2920 OCB65030 096A D052 6504 | STO M2986+1 STORE 2ND, 3RD CHARACTERS OCB65040 096B CB86 6505 | LDD 3 RNAME OCB65050 096C 1084 6506 | SLT 4 OCB65060 096D 1810 6507 | SRA 16 OCB65070 096E 1086 6508 | SLT 6 OCB65080 096F 4072 6509 | BSI M2650 CONVERT @,#,$ OCB65090 0970 1008 6510 | SLA 8 OCB65100 0971 D02A 6511 | STO M2920 OCB65110 0972 1002 6512 | SLA 2 OCB65120 0973 1086 6513 | SLT 6 OCB65130 0974 406D 6514 | BSI M2650 CONVERT @,#,$ OCB65140 0975 E826 6515 | OR M2920 OCB65150 0976 D047 6516 | STO M2986+2 STORE 4TH, 5TH CHARACTERS OCB65160 0977 4C80 095A 6517 | BSC I M2500 RETURN OCB65170 6518 | * OCB65180 6519 | * CONVERT SUBROUTINE ENTRY POINT ADR FROM BINARY TO OCB65190 6520 | * PACKED EBCDIC AND STORE IT IN THE YYYY POSITIONS OCB65200 6521 | * OCB65210 0979 0000 6522 | M2600 DC *-* ENTRY POINT OCB65220 097A 1890 6523 | SRT 16 OCB65230 097B 1084 6524 | M2630 SLT 4 OCB65240 097C 901C 6525 | S M2905 SKIP IF CHARACTER IS OCB65250 097D 4808 6526 | BSC + *LESS THAN 10, I.E., A OCB65260 097E 8018 6527 | A M2903 OCB65270 097F 1008 6528 | SLA 8 OCB65280 0980 D01B 6529 | STO M2920 OCB65290 0981 1004 6530 | SLA 4 OCB65300 0982 1084 6531 | SLT 4 OCB65310 0983 9015 6532 | S M2905 SKIP IF CHARACTER IS OCB65320 0984 4808 6533 | BSC + *LESS THAN 10, I.E., A OCB65330 0985 8011 6534 | A M2903 OCB65340 0986 E815 6535 | OR M2920 OCB65350 0987 E80E 6536 | OR M2902 OCB65360 0988 D600 002C 6537 | STO L2 M2986+4-Z STORE CONVERTED CHARACTER OCB65370 098A 1810 6538 | SRA 16 CLEAR ACCUMULATOR OCB65380 098B 7201 6539 | MDX 2 1 OCB65390 098C 74FF 0998 6540 | MDX L M2904,-1 SKIP AFTER 2ND PASS OCB65400 098E 70EC 6541 | MDX M2630 BR TO CONVERT RIGHT HALF OCB65410 098F C38F 6542 | LD 3 K2 OCB65420 0990 D007 6543 | STO M2904 RESTORE COUNTER TO 2 OCB65430 0991 72FE 6544 | MDX 2 -2 OCB65440 0992 4C80 0979 6545 | BSC I M2600 RETURN OCB65450 6546 | * OCB65460 6547 | * CONSTANTS AND WORK AREAS OCB65470 6548 | * OCB65480 0994 6549 | Z BES E 0 OCB65490 0994 000A 6550 | M2900 DC 10 WD CNT FOR A SOCAL LINE OCB65500 0995 7001 6551 | M2901 MDX *+1 PRINT FUNCTION-INDICATOR OCB65510 0996 C0C0 6552 | M2902 DC /C0C0 OCB65520 0997 0039 6553 | M2903 DC /39 OCB65530 0998 0002 6554 | M2904 DC 2 COUNTER OCB65540 0999 0009 6555 | M2905 DC 9 HIGHEST DECIMAL MARK OCB65550 099A 0009 6556 | M2906 DC 9 LONG LINE WORD COUNT OCB65560 099B 6557 | BSS 1 PATCH AREA OCB65570 099C 6558 | M2920 BSS E 2 WASTEBASKET OCB65580 099E 000A 6559 | M2922 DC /000A 2ND HALF SPECIAL CHAR LIMIT OCB65590 099F 000F 6560 | M2925 DC /000F MASK 1ST HALF EBCDIC CHAR OCB65600 09A0 0000 6561 | M2930 DC *-* HDNG SW-ZERO=PRINT HEADING OCB65610 09A1 0009 6562 | M2935 DC 9 ILS/FLIPR HEADING OCB65620 09A2 E2E8 E2E3 C5D4 40E2 6563 | EBC .SYSTEM SUBROUTINES. OCB65630 E4C2 D9D6 E4E3 C9D5 | C5E2 | 09AB 0040 6564 | M2937 DC /0040 EBCDIC BLANK OCB65640 09AC 0091 6565 | M2940 DC $STOP ADDR OF PROG STOP KEY TRAP OCB65650 09AD 094E 29F0 6566 | M2944 DN ILSX0 2-2 OCB65660 09AF 094E 2C30 6567 | M2945 DN ILS00 OCB65670 09B1 00C0 6568 | M2946 DC /00C0 OCB65680 09B2 064C 95D9 6569 | M2950 DN FLIPR OCB65690 09B4 09C7 6570 | M2960 DC M2995 ADDR OF HEADING LINE BUFFER OCB65700 09B5 09BB 6571 | M2965 DC M2985 ADDR OF MAP LINE BUFFER OCB65710 09B6 40D3 6572 | M2970 EBC . L. OCB65720 09B7 40E2 6573 | M2975 EBC . S. OCB65730 09B8 D3C9 C2C6 6574 | M2980 EBC .LIBF. OCB65740 09BA 0001 6575 | M2982 DC 1 CALL/LIBF SW OCB65750 09BB 0000 6576 | M2985 DC *-* WD CNT FOR MAP LINE OCB65760 09BC 40E7 E7E7 E7E7 4040 6577 | M2986 EBC . XXXXX . OCB65770 09C0 E8E8 E8E8 6578 | M2988 EBC .YYYY. OCB65780 09C2 40E9 D6C3 C1D3 6579 | M2990 EBC . ZOCAL. OCB65790 09C5 40E4 6580 | M2992 EBC . U. OCB65800 09C6 0006 6581 | M2994 DC 6 SHORT LINE WD CNT OCB65810 09C7 000A 6582 | M2995 DC 10 HEADING WORD COUNT OCB65820 09C8 C3C1 D3D3 40E3 D9C1 6583 | EBC .CALL TRANSFER VECTOR. OCB65830 D5E2 C6C5 D940 E5C5 | C3E3 D6D9 | 09D2 09A1 6584 | M2996 DC M2935 ADDR OF SYSTEM SUBR HDNG OCB65840 09D3 40F0 6585 | M2997 DC /40F0 MASK FOR SOCAL NO. OCB65850 09D4 6586 | BSS E 0 OCB65860 09D4 7000 6587 | M2998 MDX * SKIP-TO-CHANNEL-1 INDICATOR OCB65870 09D5 09D7 6588 | DC M2999 ADDR OF PAGE HEADING WD CNT OCB65880 09D6 000A 6589 | DC 10 PAGE HEADING WD CNT OCB65890 09D7 0007 6590 | M2999 DC @HDNG PAGE HEADING SCTR ADDR OCB65900 09D8 6591 | BSS 10 PAGE HEADING BUFFER OCB65910 6592 | * OCB65920 6593 | * CONVERT SPECIAL CHARACTERS OCB65930 6594 | * OCB65940 09E2 0000 6595 | M2650 DC *-* ENTRY POINT OCB65950 09E3 D0B9 6596 | STO M2920+1 OCB65960 09E4 E0BA 6597 | AND M2925 OCB65970 09E5 90B8 6598 | S M2922 OCB65980 09E6 4C28 09EA 6599 | BSC L M2670,Z+ BR UNLESS $,#,@ OCB65990 09E8 C0C2 6600 | LD M2937 OCB66000 09E9 7001 6601 | MDX M2670+1 BR TO COMPLETE CONVERSION OCB66010 09EA C0C6 6602 | M2670 LD M2946 OCB66020 09EB E8B1 6603 | OR M2920+1 OCB66030 09EC 4C80 09E2 6604 | BSC I M2650 RETURN OCB66040 6605 | * OCB66050 09EE 6606 | PCEND BSS P3END-* PATCH AREA OCB66060 0A9F 0000 6607 | DC 0 PATCH AREA OCB66070 CORE LOAD BUILDER, PHASE 13 2G2 6609 | *************************************************** OCB66090 6610 | *STATUS - VERSION 2 MODIFICATION 10 * OCB66100 6611 | * * OCB66110 6612 | *FUNCTION/OPERATION * OCB66120 6613 | * * THIS PHASE PROCESSES THE FOLLOWING * OCB66130 6614 | * 2250-4 ORDERS * OCB66140 6615 | * 1. GSB (GRAPHIC SHORT BRANCH) * OCB66150 6616 | * 2. GBE (GRAPHIC BRANCH EXTERNAL) * OCB66160 6617 | * 3. GBCE(GRAPHIC BRANCH CONDITIONAL * OCB66170 6618 | * EXTERNAL) * OCB66180 6619 | * * OCB66190 6620 | *ENTRY POINT * OCB66200 6621 | * * GC000 * OCB66210 6622 | * * OCB66220 6623 | *INPUT * OCB66230 6624 | * *FOR GSB-ADDR TO BE RELOCATED IF LESS THAN * OCB66240 6625 | * 8K AFTER RELDC FACTER IS ADDED. * OCB66250 6626 | * *FOR GBE,GBCE-NAME OF AN EXTERNAL GRAPHIC * OCB66260 6627 | * ORDER SUBROUTINE * OCB66270 6628 | * * OCB66280 6629 | *OUTPUT * OCB66290 6630 | * *FOR GSB-RELOCATED GSB ORDER WITH ADDRESS * OCB66300 6631 | * LESS THAN OR EQUAL TO 8191. * OCB66310 6632 | * *FOR GSB,GBCE-GB I TO THE CALL TV TBL ENTRY * OCB66320 6633 | * ADDRESS. * OCB66330 6634 | * * OCB66340 6635 | *EXTERNAL REFERENCES * OCB66350 6636 | * SUBROUTINES * OCB66360 6637 | * * BT000 * OCB66370 6638 | * * TL000 * OCB66380 6639 | * COMMA/DCOM * OCB66390 6640 | * * $PHSE * OCB66400 6641 | * * OCB66410 6642 | *EXITS * OCB66420 6643 | * NORMAL-BACK TO PHASE 2 * OCB66430 6644 | * ERROR- * OCB66440 6645 | * OCB66450 6646 | * * OCB66460 6647 | *************************************************** OCB66470 GRAPHICS 2250 PHASE (CLB,PHASE 13) 6649 | * 2G2 OCB66490 6650 | * PARAMETERS FOR THE SYSTEM LOADER 2G2 OCB66500 0AA0 6651 | ORG BUFLS 2G2 OCB66510 *SBRKDM 84 08/01/68 6652 | *CORE LOAD BUILDER, PHASE 13 2-10 OCB66520 0AA0 0052 6653 | DC PDEND-*-1 PH 13 WORD COUNT 2G2 OCB66530 0AA1 0084 6654 | DC 132 PHASE ID OF GRAPHICS PHASE.2G2 OCB66540 GRAPHICS 2250 PHASE (CLB,PHASE 13) 0AA2 C397 6656 | GC000 LD 3 K320 2G2 OCB66560 0AA3 D0FC 6657 | STO GC000-2 2G2 OCB66570 0AA4 C04B 6658 | LD GC950 2G2 OCB66580 0AA5 D400 0078 6659 | STO L $PHSE 2G2 OCB66590 0AA7 6580 070F 6660 | LDX I1 RL940 RESTORE XR1 2G2 OCB66600 0AA9 C400 0714 6661 | LD L RL999 TEST GRAPHIC INDICATOR 2G2 OCB66610 0AAB 4C18 0ACA 6662 | BSC L GC200,+- BR IF GBC,GBCE PROCESSIN2G2 OCB66620 0AAD C38D 6663 | LD 3 K0 2G2 OCB66630 0AAE D400 070F 6664 | STO L RL940 CLEAR LIBF,CALL,DSA SW 2G2 OCB66640 0AB0 D400 0714 6665 | STO L RL999 CLEAR GRAPHIC INDICATOR 2G2 OCB66650 0AB2 C382 6666 | LD 3 NAME 2G2 OCB66660 0AB3 1001 6667 | SLA 1 CLEAR GSB INDICATOR BIT 2G2 OCB66670 0AB4 1801 6668 | SRA 1 2G2 OCB66680 0AB5 83FB 6669 | A 3 RELOC 2G2 OCB66690 0AB6 D382 6670 | STO 3 NAME 2G2 OCB66700 0AB7 C3E9 6671 | LD 3 LSW17 CHECK IF PASS 1 2G6 OCB66710 0AB8 4C20 0AC1 6672 | BSC L GC150,Z BRANCH IF NO 2G6 OCB66720 0ABA C3EB 6673 | LD 3 LSW19 CHECK IF PASS 2 REQUIRD 2G6 OCB66730 0ABB 4C18 0AC1 6674 | BSC L GC150,+- BRANCH IF NO 2G6 OCB66740 0ABD C382 6675 | LD 3 NAME YES - RESET GSB FLAG 2G6 OCB66750 0ABE EB99 6676 | OR 3 K8000 *FOR PASS 2 RELOCATION 2G6 OCB66760 0ABF D382 6677 | STO 3 NAME 2G6 OCB66770 0AC0 7004 6678 | MDX GC160 BRANCH TO RETURN POINT 2G6 OCB66780 0AC1 C382 6679 | GC150 LD 3 NAME TEST IF GSB ADDR AFTER 2G6 OCB66790 0AC2 9028 6680 | S GC900 *RELOC IS VALID(LT 8192)2G6 OCB66800 0AC3 4C30 0AC7 6681 | BSC L GC170,Z- BR IF GSB ADDR IS INVLD 2G6 OCB66810 0AC5 4C00 06CC 6682 | GC160 BSC L RL100 RETURN 2G6 OCB66820 0AC7 6243 6683 | GC170 LDX 2 MSG67 INVALID GSB ADDR MSG 2G6 OCB66830 0AC8 4400 0407 6684 | BSI L TL000 PRINT MSG AND TERMINATE 2G6 OCB66840 6685 | * 2G2 OCB66850 0ACA C38D 6686 | GC200 LD 3 K0 2G2 OCB66860 0ACB D022 6687 | STO GC930 CLEAR NOP BIT HOLD AREA 2G2 OCB66870 0ACC C400 070D 6688 | LD L RL920 2G2 OCB66880 0ACE 1001 6689 | SLA 1 2G2 OCB66890 0ACF 1001 6690 | SLA 1 2G2 OCB66900 0AD0 D400 070D 6691 | STO L RL920 2G2 OCB66910 0AD2 4802 6692 | BSC C SKIP IF GBE OR GBCE 2G2 OCB66920 0AD3 701D 6693 | MDX GC300 BR TO GBCE(NOP) 2G2 OCB66930 0AD4 C38D 6694 | GC210 LD 3 K0 2G2 OCB66940 0AD5 D400 070F 6695 | STO L RL940 2G2 OCB66950 0AD7 CB82 6696 | LDD 3 NAME 2G2 OCB66960 0AD8 18D0 6697 | RTE 16 2G2 OCB66970 0AD9 DB82 6698 | STD 3 NAME 2G2 OCB66980 0ADA 180E 6699 | SRA 14 2G2 OCB66990 0ADB D010 6700 | STO GC910 2G2 OCB67000 0ADC C382 6701 | LD 3 NAME 2G2 OCB67010 0ADD 1002 6702 | SLA 2 CLEAR CONDITION INDICATO2G2 OCB67020 0ADE 1802 6703 | SRA 2 2G2 OCB67030 0ADF EB98 6704 | OR 3 K4000 2G2 OCB67040 0AE0 D382 6705 | STO 3 NAME 2G2 OCB67050 0AE1 4400 02CC 6706 | BSI L BT000 2G2 OCB67060 0AE3 C009 6707 | LD GC920 MODEL GB I ORDER 2G2 OCB67070 0AE4 E807 6708 | OR GC910 OR IN CONDITION BITS,IF 2G2 OCB67080 0AE5 E808 6709 | OR GC930 OR IN NOP BIT,IF ANY 2G2 OCB67090 0AE6 4400 07E7 6710 | BSI L TR000 STORE WORD 1 OF ORDER 2G2 OCB67100 0AE8 C314 6711 | LD 3 TVPTR CALL TV ENTRY ADDR. 2G2 OCB67110 0AE9 4C00 0770 6712 | BSC L RL390 STORE WORD 2 OF ORDER 2G2 OCB67120 6713 | * 2G2 OCB67130 6714 | * CONSTANTS AND WORK AREA 2G2 OCB67140 6715 | * 2G2 OCB67150 0AEB 1FFF 6716 | GC900 DC 8191 MAX ADDR FOR GSB ORDER 2G2 OCB67160 0AEC 0000 6717 | GC910 DC *-* CONDITION BIT HOLD AREA 2G2 OCB67170 0AED 2880 6718 | GC920 DC /2880 MODEL GB I ORDER 2G2 OCB67180 0AEE 0000 6719 | GC930 DC *-* NOP BIT HOLD AREA 2G2 OCB67190 0AEF 0400 6720 | GC940 DC /0400 NOP BIT 2G2 OCB67200 0AF0 0079 6721 | GC950 DC /79 2G2 OCB67210 6722 | * 2G2 OCB67220 6723 | * 2G2 OCB67230 0AF1 C0FD 6724 | GC300 LD GC940 2G2 OCB67240 0AF2 D0FB 6725 | STO GC930 2G2 OCB67250 0AF3 70E0 6726 | MDX GC210 2G2 OCB67260 6727 | * 2G2 OCB67270 0AF4 6728 | PDEND BSS GC000+319-* PATCH AREA OCB67280 0BE1 0000 6729 | DC 0 PATCH AREA OCB67290 0BE2 6730 | END * OCB67300 There were no errors in this assembly Program transfer address = 0BE2 === CROSS REFERENCES ========================================================== Name Val Defd Referenced #CBSW 000A 195 1454 #CIDN 0037 204 1470 1472 1474 1476 1478 #ECNT 0021 203 1466 #FCNT 0007 194 1452 #FMAT 0046 206 1494 5222 #GCNT 001E 200 1464 #GRPH 001D 199 #LCNT 000B 196 1458 #LOSW 001F 201 1460 #MPSW 000C 197 1456 #NCNT 000F 198 1462 #SCRA 0041 205 1468 #WSCT 0055 207 1496 5220 #X3SW 0020 202 1450 $1END 0294 30 1257 $CH12 0006 5 5299 5459 5663 5851 6142 6425 $CIBA 0005 6 1419 1515 1639 2696 2881 5166 5174 5177 5193 $CLSW 0018 7 854 $CORE 000E 8 1506 1604 2622 2656 2955 $DADR 0010 9 1413 1484 1694 1871 1932 4201 5176 $DBSY 00EE 11 831 894 $DCDE 0077 12 1415 1480 1487 1696 1873 1934 4203 5179 $DREQ 0012 13 542 1417 1433 1578 1592 2957 5183 $FPAD 0095 14 1488 1632 1637 3087 4461 4506 4604 4646 6204 $GCOM 0063 10 1465 1621 3930 6373 $HASH 0014 15 843 859 861 867 $I200 00B3 16 4008 5045 $I400 00C4 17 4007 $I405 00D3 18 31 $IBT4 00D4 31 1412 $LEV1 0009 19 1403 6046 6155 $NDUP 0034 20 849 2156 2158 5327 5519 5723 5911 $NEND 03A2 21 1259 $NXEQ 0035 22 2157 5328 5518 5722 5910 $PBSY 0036 23 5336 5527 5731 5919 6066 6417 $PHSE 0078 24 737 904 921 1398 6659 $STOP 0091 25 2587 4002 4135 6565 $UFDR 007D 26 2511 $ULET 002D 27 287 $WSDR 007A 28 1408 1636 2616 3034 4459 4526 4559 4602 4655 5082 5218 $ZEND 01E0 29 211 1256 'ASOC 0003 121 'BCNT 0006 124 3066 3107 3113 3194 3212 6114 'BLCT 0002 172 339 'CIL2 00A1 65 821 'CLB0 0078 51 213 1397 'CLB2 0079 52 745 1643 2083 2124 'CLB3 007A 53 750 2091 3344 'CLB4 007B 54 755 2116 2133 3899 'CLB5 007C 55 760 2126 4439 'CLB6 007D 56 765 2140 2782 4819 'CLB7 007E 57 770 5283 'CLB8 007F 58 775 917 5443 'CLB9 0080 59 780 5646 'CLBA 0081 60 785 5836 'CLBB 0082 61 790 3265 6026 'CLBC 0083 62 795 2136 6331 'CLBD 0084 63 800 2461 'CLEN 0001 144 614 676 678 4132 4645 4966 'CMON 0489 944 1575 1606 2615 2620 2623 2687 2722 2749 2760 2948 2956 3393 'COM1 04C0 146 2968 5047 'COM2 0600 147 2969 5048 'COMN 0004 180 1574 3394 'COMZ 0380 145 2967 5046 'CORE 04A3 973 1605 'DBCT 0007 182 'DBSC 0010 140 1084 6223 'DCOM 0001 148 1537 5061 'DFEN 0007 125 3019 3041 'DFOF 0004 151 3131 'DKEP 00F9 156 519 5057 'DREQ 048A 945 1418 2930 2933 'DU17 0011 50 816 'EETY 0004 137 1005 1692 1981 2605 'ENTY 000B 186 1586 1590 1649 2210 3442 3448 3461 3511 3529 3958 3977 'EQAD 0007 162 1705 'EQEN 0004 129 3029 3032 'EQID 0003 132 3152 3158 3182 'EQLM 0019 136 1005 'EQNM 0001 131 3145 3172 'EQNO 0000 130 3016 'FCEN 0006 155 4493 'FIAD 0004 160 'FILE 048B 946 1568 2837 2983 3027 'FILS 0008 183 'FLEN 0005 154 4133 4493 4537 'FLNR 0000 118 3017 'FORT 0008 184 1564 'GRAD 0006 161 1943 'HCIB 0003 153 1545 1547 1548 2785 2786 5063 5064 'HDNG 0007 149 5349 5555 5745 5947 6227 6590 'HEND 04A5 977 947 1256 1257 1259 5094 5095 5198 5199 5200 'HWCT 048C 947 1435 1589 2722 2927 5077 5090 'ILN1 000F 190 'ILS4 0499 962 4006 'ISSN 000D 188 3495 'ISSP 000C 187 3958 'ISTV 0033 150 2586 'ITVX 0493 955 1611 1612 3456 3907 3910 4197 4200 5180 5185 6360 6388 'LBEN 0003 143 545 588 608 613 1539 1540 1541 3815 4130 4131 4245 4307 4309 4317 4378 4381 4830 4858 4875 4927 4933 4937 4938 4939 4946 5018 5041 5050 5051 5052 5059 5060 'LDAD 048E 949 1591 1594 2928 5009 'LFEN 0003 142 390 391 'LFHD 0005 166 339 343 345 353 412 'LFNM 0000 171 343 345 353 'LHDR 0005 181 3398 'LOAD 0000 158 1754 'LSCT 048D 948 4462 4605 'LTEN 0004 114 569 570 599 600 609 937 1544 1545 2104 2106 3441 3728 3738 3803 3820 4097 4098 4115 4116 4163 4164 4179 4180 4553 4554 4570 4571 4710 4843 4844 4896 4897 4904 4943 4944 4955 4967 4968 5023 5024 6440 6481 'MCOR 1000 157 1519 1544 1545 1546 2784 2786 5062 5170 'MXDR 0005 141 284 287 1631 3137 3151 3154 'MXEP 000E 139 937 3449 'MXLB 0055 138 613 1539 4378 4381 'NAME 0009 185 1530 1553 1555 3425 3442 3448 3496 3497 3529 'NEXT 0004 170 316 399 'NILS 000E 189 3497 3511 'NOAD 0002 159 1756 'OVSW 04A2 972 1773 4051 4064 4100 4240 4344 5080 5085 5207 'PREC 0002 178 1561 3358 'PRNT 0099 64 805 5296 5456 5660 5848 6047 6344 'RCCT 0001 119 3110 3245 'RCSC 0005 123 3108 3243 'SCAD 0004 122 3039 3079 3084 3086 3089 3143 3200 3202 3203 6104 6122 6132 'SCIB 0010 152 1542 1548 2785 4647 5064 'SCTN 0000 167 320 'TVWC 0490 951 4830 4858 4875 4927 4966 'TYPE 0002 177 1558 1758 3355 3949 4212 'UAFX 0001 168 329 'WCNT 0491 952 2542 5079 'WDCT 0003 179 'WDRC 0002 120 'WDSA 0003 169 334 'WRD1 0000 110 554 564 593 626 659 670 705 2172 2245 2367 2798 3427 3432 3505 3557 3569 3617 3681 3684 3690 3699 3700 3751 3757 3789 3790 3812 4108 4146 4148 4171 4470 4484 4549 4699 4896 4897 4906 4957 4994 6441 6448 6470 'WRD2 0001 111 561 3429 3550 'WRD3 0002 112 595 2102 2181 2254 2264 2808 3431 3437 3509 3538 3708 3713 3714 3717 3770 3771 4162 4479 4481 4532 4534 4536 4552 4565 4705 4840 4925 4964 4997 5002 5007 5017 6472 'WRD4 0003 113 598 661 672 2186 2251 2426 2806 2812 3440 3507 3609 3625 3631 3701 3706 3719 3777 3782 3824 4096 4153 4155 4157 4161 4174 4226 4472 4483 4568 4703 4839 4842 4912 4916 4917 4918 4961 6455 'XCTL 048F 950 5035 'XEQA 0488 943 947 1256 1257 1259 1587 1650 2160 2542 2544 5094 5198 5200 'XR3X 0492 953 4974 5034 5111 'ZERO 0000 176 2210 3425 3461 3496 3977 ARITH FF89 1034 4250 4254 4280 4653 B 0488 941 5074 5077 5079 5080 5085 5090 5111 5180 5185 BLCKS FF9E 1085 461 2562 3069 BSIT3 FF9F 1087 2491 4921 BT000 02CC 524 654 1852 1957 2487 4893 6706 BT020 02E4 545 540 BT060 02EE 554 571 BT090 02F6 561 677 679 BT120 0300 569 563 BT150 0303 575 549 BT180 0317 591 691 BT210 032F 623 568 BT240 033A 635 625 BT270 0342 644 604 638 BT300 0345 646 660 662 BT330 0348 649 666 BT360 034B 652 525 526 BT390 0351 659 645 BT420 035B 670 556 BT450 0367 678 671 673 675 BT480 036A 683 577 BT510 036D 685 580 BT540 0374 695 544 BT570 0377 700 587 BT600 037A 705 629 3704 BT610 037B 706 3830 BT900 0327 608 558 582 590 BT910 0328 609 602 BT920 0329 610 566 635 BT930 032A 611 531 541 594 BT940 032B 612 532 664 676 BT950 032C 613 586 BT960 032D 614 665 BT970 032E 615 650 688 BUFCI 0D24 3838 1094 1112 1424 1640 2755 2882 3048 5194 5200 BUFFR FFA0 1089 422 450 473 1673 1723 1795 1851 BUFLO 0BE2 3837 1180 1400 1423 1763 1875 2979 2991 3050 3263 3270 5294 5318 5335 5454 5514 5526 5658 5710 5730 5846 5906 5918 6023 6416 BUFLS 0AA0 3836 286 396 919 1190 1422 1443 1447 2534 2541 2552 5212 5280 5440 5643 5833 6065 6651 BYADR FFA1 1091 319 332 387 389 397 403 405 459 1414 1666 1695 1716 1782 1849 1872 1903 1933 2531 3198 3220 4202 CALTV FFA2 1093 646 1609 CC000 0993 3549 2189 3603 CC040 09A7 3569 3610 3621 3626 3633 CC060 09BA 3586 3580 CC080 09C3 3602 3595 3613 CC120 09C6 3607 3558 CC140 09CC 3611 3560 3587 3627 CC160 09CF 3617 3556 CC200 09D2 3619 3634 CC240 09D5 3625 3608 CC280 09D9 3631 3618 CIBBF FFA3 1095 1794 2746 2757 2763 2900 4634 4712 5156 5195 5203 CIBLM FFA4 1097 423 1502 1512 1514 1667 1717 1790 2673 2698 2995 5005 5163 CILCA FFA5 1099 855 1437 CK000 092F 2944 2087 2954 CK050 0937 2950 2962 CK100 093B 2953 2945 2959 CK150 093F 2955 2949 CK920 094C 2966 2960 CK930 094E 2968 2958 CLASS FFA6 1101 2249 2405 3353 3485 3718 3774 3953 4743 CN000 02A7 487 501 538 2177 4150 CN050 02AE 493 497 CN100 02B5 498 492 CN110 02B6 499 509 CN120 02B7 500 488 CN150 02BB 502 495 CN900 02C4 513 489 490 493 504 506 CN915 02C7 515 489 CN920 02C8 516 502 CN935 02CB 519 508 CQ000 07CF 2591 2478 2604 CQ050 07D6 2596 2606 CQ100 07E0 2603 2592 2594 2607 CQ150 07E4 2605 2600 CURTV FFA7 1103 373 2096 2105 2423 3672 3674 3697 3716 3744 3829 DATWD FFA8 1105 2612 2678 2766 DC000 0782 2516 2510 DC020 0793 2531 2523 2525 DC050 07A5 2545 2564 DC100 07A6 2546 2517 DC150 07B2 2556 2537 DF000 0950 2973 2874 3061 DF040 097B 3016 3023 3033 DF050 097F 3019 3207 DF060 098D 3029 3166 DF070 0993 3034 2990 DF080 0996 3039 3043 DF100 0999 3041 3139 DF125 09B1 3059 2974 2975 3025 DF135 09B7 3065 3040 3092 3094 3173 DF140 09B8 3066 DF160 09C7 3078 3116 3125 DF170 09D8 3091 3067 DF180 09DF 3100 3075 DF190 09F3 3120 3114 3123 DF195 0A05 3143 3018 DF200 0A0D 3150 3144 DF205 0A0F 3152 3157 DF207 0A19 3160 3150 3171 DF208 0A1D 3163 3149 DF209 0A20 3165 3147 3161 DF210 0A24 3167 3153 3155 DF215 0A42 3191 3183 3187 DF220 0A45 3193 3238 DF260 0A4B 3198 3214 DF270 0A52 3205 3095 DF280 0A56 3211 3195 DF600 0A5A 3219 3192 DF650 0A65 3231 3222 3224 DF700 0A68 3233 3236 DF730 0A6D 3237 3219 3232 DF900 09FB 3129 2984 3022 3028 3042 DF910 09FC 3130 2976 2978 2980 2982 2984 3051 DF920 09FD 3131 2993 DF930 09FE 3132 3072 3080 3104 3167 3168 DF940 09FF 3133 2982 3082 3205 DF950 0A00 3134 3009 3032 DF960 0A01 3135 2980 3049 DF990 0A02 3137 3169 DF995 0A03 3138 3122 3235 DF996 0A04 3139 3093 DFADR FFA9 1107 2851 2890 2988 3026 DISPL FFAA 1109 546 557 560 581 584 1407 2490 DKFIO FF8B 1038 4261 4268 4271 4314 4352 DKISS 04AB 985 1449 DRCDE FFAB 1111 315 1788 2533 3184 3201 3581 3945 4739 6124 DZ000 00F2 32 156 830 893 1448 E1000 0AA2 5288 5291 5330 5391 E1050 0ABE 5310 5300 E1200 0AD7 5329 5292 5324 5326 E1400 0ADB 5334 5308 5309 5316 5338 E1900 0AE4 5344 5293 5310 5322 E1902 0AE6 5346 5301 5307 E1905 0AE9 5349 5305 5306 5347 E1910 0AF4 5351 5313 E1915 0AF5 5352 5315 E1920 0AF6 5353 5295 5317 E1925 0AF7 5354 5325 E1926 0AF8 5355 5323 E1955 0AFA 5357 5311 5351 E2000 0AA2 5448 5451 5521 5591 E2050 0ABE 5470 5460 E2100 0AC4 5476 5509 E2200 0AF2 5520 5452 E2400 0AF6 5525 5468 5469 5512 5529 E2450 0AFE 5533 5485 5489 5494 5501 5506 5542 E2470 0B06 5540 5537 5539 E2900 0B0A 5548 5453 5470 E2905 0B0B 5549 5471 E2910 0B0C 5550 5474 E2915 0B0D 5551 5511 E2920 0B0E 5552 5461 5467 E2925 0B11 5555 5465 5466 5553 E2931 0B1D 5558 5455 5513 E2932 0B1E 5559 5540 E2935 0B1F 5560 5472 E2940 0B20 5561 5491 5495 5503 5507 E2941 0B21 5562 5534 5541 E2942 0B22 5563 5536 E2943 0B23 5564 5535 E2944 0B24 5565 5538 E2950 0B25 5566 5550 E3000 0AA2 5652 5655 5725 5784 E3050 0ABE 5674 5664 E3150 0AC8 5687 5703 E3200 0AD5 5700 5680 5704 E3270 0AF1 5722 5716 E3300 0AF5 5724 5656 5719 5721 E3400 0AF9 5729 5672 5673 5708 5733 E3900 0B02 5738 5657 5674 5714 5717 E3905 0B03 5739 5675 5715 E3910 0B04 5740 5678 E3915 0B05 5741 5707 E3920 0B06 5742 5665 5671 E3925 0B09 5745 5669 5670 5743 E3932 0B14 5747 5699 E3933 0B15 5748 5720 E3935 0B16 5749 5688 5695 E3940 0B17 5750 5690 5697 E3945 0B18 5751 5692 5698 E3950 0B19 5752 5659 5709 E3953 0B1A 5753 5718 E3960 0B1B 5754 5676 5740 E4000 0AA2 5840 5843 5913 5972 E4050 0ABE 5862 5852 E4100 0AC4 5868 5901 E4300 0AF2 5912 5844 E4400 0AF6 5917 5860 5861 5904 5921 E4450 0AFE 5925 5877 5881 5886 5893 5898 5934 E4470 0B06 5932 5929 5931 E4900 0B0A 5940 5845 5862 E4905 0B0B 5941 5863 E4910 0B0C 5942 5866 E4915 0B0D 5943 5903 E4930 0B0E 5944 5853 5859 E4935 0B11 5947 5857 5858 5945 E4940 0B1C 5949 5847 5905 E4945 0B1D 5950 5932 E4946 0B1E 5951 5883 5887 5895 5899 E4947 0B1F 5952 5926 5933 E4948 0B20 5953 5928 E4949 0B21 5954 5927 E4950 0B22 5955 5930 E4955 0B23 5956 5864 5942 ENDRL FFAC 1113 576 4892 ENTPT 0450 937 2804 3424 3501 3680 EQ000 06F5 1662 1617 1700 EQ100 070A 1680 1693 EQ200 071E 1694 1675 EQ900 0728 1704 1676 EQ905 0729 1705 1664 EQCNT FFAD 1115 1678 1679 1969 1972 2593 2595 EQTBL 0520 1005 1685 1691 1974 1978 2597 2601 ES000 0840 1968 1784 1950 1990 ES125 0847 1973 1982 ES175 0852 1981 1977 ES200 0854 1983 1971 1980 ES300 0856 1984 1970 ET000 0963 4048 2119 4101 ET020 0969 4057 4122 ET040 0977 4074 4076 ET050 098A 4088 4085 ET060 0992 4096 4099 ET070 0998 4101 4221 ET080 099A 4106 4052 ET100 099E 4108 4117 ET120 09A6 4115 4109 ET140 09AC 4121 4124 ET160 09AE 4123 4120 ET180 09BA 4144 4089 4367 ET200 09BE 4146 4165 ET220 09D2 4163 4147 4227 ET240 09D9 4171 4181 ET260 09E5 4179 4173 4176 ET280 09F8 4201 4199 ET300 0A0E 4218 4216 ET310 0A13 4225 4152 ET320 0A16 4232 4079 ET340 0A1A 4236 4331 ET370 0A23 4245 4241 ET390 0A3C 4280 4270 ET400 0A5E 4320 4316 ET405 0A68 4328 ET420 0A6C 4335 4308 4325 ET430 0A75 4342 4339 ET440 0A83 4357 4350 ET460 0A90 4368 4293 4322 ET900 09B1 4128 4067 4078 4113 4114 4118 ET901 09B2 4129 4154 ET902 0A96 4377 4232 4242 4244 4245 4300 4306 4317 4323 ET904 0A97 4378 4292 ET905 0A98 4379 4080 4326 ET906 0A99 4380 4347 4351 4353 4360 ET907 0A9A 4381 4321 ET910 09B3 4130 4188 ET915 09B4 4131 ET920 09B5 4132 ET925 09B6 4133 4112 ET930 09B7 4134 4243 4361 ET935 09B8 4135 4198 ET940 09B9 4136 4065 ET950 0A94 4375 4251 4253 4256 4259 4263 4269 4272 4298 4324 EX000 03EC 837 880 2164 EX150 03EE 842 845 EX200 0400 858 848 EX900 03D8 816 843 846 857 EX910 03DC 821 856 857 EX920 03E0 826 841 EX929 03EB 833 841 842 843 FF000 09DA 4730 4543 4608 4738 4749 FF900 09F2 4754 4731 FF910 09F4 4755 4744 FL010 0001 36 4503 FL020 0009 37 4505 FL200 0033 38 4644 FL210 003A 39 4934 FL220 003D 40 4935 FL230 0040 41 4936 FL350 004D 42 5053 FL380 0050 43 5054 FL900 005A 44 5042 FL915 0061 45 5049 FL998 0064 46 4134 4136 4504 FLIPT FFAE 1117 2198 4066 4121 4363 4449 4493 4537 FLPAD FFAF 1119 4453 4494 4514 4600 4607 4684 4856 5106 5122 5128 5138 6399 6403 FM000 0A81 3259 3046 3090 3204 3274 FM100 0A8D 3267 3262 FM200 0A98 3274 3261 FM900 0A9A 3278 3264 3269 FORIO FF8A 1036 4252 4284 FSCTR FFB0 1121 1638 3058 4460 4558 4603 5084 GC000 0AA2 6656 2463 6657 6728 GC150 0AC1 6679 6672 6674 GC160 0AC5 6682 6678 GC170 0AC7 6683 6681 GC200 0ACA 6686 6662 GC210 0AD4 6694 6726 GC300 0AF1 6724 6693 GC900 0AEB 6716 6680 GC910 0AEC 6717 6700 6708 GC920 0AED 6718 6707 GC930 0AEE 6719 6687 6709 6725 GC940 0AEF 6720 6724 GC950 0AF0 6721 6658 GP000 0418 888 312 475 732 891 896 1446 1523 2540 2749 2760 2903 3003 3056 3273 4637 4715 5159 5173 5197 5206 5217 5226 5304 5321 5464 5517 5668 5713 5856 5909 6039 6340 GP100 041F 893 889 GR000 07FF 1895 1622 1938 GR030 0809 1909 1929 GR050 081B 1925 1919 1927 GR055 0823 1932 1962 GR060 082B 1937 1896 GR100 0831 1945 1922 1961 GR900 082F 1942 1909 1914 GR905 0830 1943 1901 HADDR FFB1 1123 2357 2360 2639 2643 4208 4624 4826 5075 HR000 08B8 3348 3370 3584 HR060 08CD 3366 3363 3489 HR065 08D0 3368 3349 3350 3469 3486 3537 HR080 08D6 3374 3365 HR090 08EA 3391 3386 HR100 08ED 3393 3382 3390 HR110 08F5 3398 3395 HR130 0900 3407 3404 HR150 0914 3426 3443 HR155 0925 3439 3436 HR200 0935 3460 3444 3530 HR230 094E 3480 3472 HR240 0953 3484 3490 HR250 0954 3485 3477 3481 HR270 0957 3487 3483 HR300 095C 3495 3417 3420 HR320 0975 3518 3500 HR340 0979 3523 3528 3545 HR350 097F 3527 3532 HR370 0984 3531 3513 HR440 0987 3537 3519 HR470 0990 3544 3541 HR910 092C 3448 3401 HR920 092D 3449 3403 HR930 092E 3450 3399 3442 3497 3527 HR940 092F 3451 3412 HR950 0930 3452 3419 3488 HR960 0931 3453 3474 HR970 0932 3454 3498 HR980 0933 3455 3471 HR990 0934 3456 3524 IBT04 0552 1124 1538 IBT4X FFB2 1125 1401 1402 6044 6045 6153 6154 IGNOR FFB6 1129 285 1429 2512 2549 3021 3031 3035 3055 3068 3100 3124 3170 3186 6127 6137 IL000 08B8 3903 2118 2135 3915 IL050 08BC 3907 3912 IL070 08C1 3910 3969 3974 3993 IL100 08C3 3911 3918 IL120 08C5 3913 3904 3905 IL150 08CB 3916 3908 IL200 08E0 3936 3996 IL240 0900 3965 3944 4024 4033 4046 IL250 0905 3970 3951 IL270 090B 3975 3972 IL300 0911 3980 3985 IL310 0912 3981 3979 IL320 0913 3982 3991 IL350 091E 3989 3976 3990 IL400 0923 3992 3986 IL450 0925 3994 3931 3933 IL460 093A 4016 3964 IL470 0946 4026 4036 IL480 0954 4037 4030 IL481 095F 4045 4039 IL900 0928 4000 3916 3924 3970 IL901 0937 4013 4022 4034 4035 IL902 0938 4014 4023 4025 IL903 0939 4015 4028 IL910 0929 4001 3922 3935 IL930 092B 4002 3909 3917 IL935 092C 4003 3929 3934 3994 IL940 092D 4004 3995 IL950 092F 4005 3950 IL970 0930 4006 3975 IL980 0931 4007 3992 IL985 0932 4008 3973 IL990 0933 4009 3981 3983 IL995 0934 4010 3980 IL998 0935 4011 4026 IL999 0936 4012 3937 3960 4019 4031 4037 ILSCT FFB7 1131 2372 2374 4077 IN000 05BE 1395 270 2080 IN006 060E 1450 IN010 0644 1498 1495 IN015 0647 1500 1489 1497 IN020 0664 1528 1508 IN060 0679 1553 1533 IN160 068E 1574 1569 IN190 06B1 1596 1593 IN200 06B6 1599 1595 IN210 06B9 1604 1598 1651 IN250 06D5 1632 1635 IN270 06EB 1648 1580 IN300 06F0 1655 1579 1582 IN915 066C 1537 1442 IN920 066D 1538 1411 IN925 066E 1539 1404 IN930 066F 1540 1406 IN935 0670 1541 1607 IN940 0671 1542 1426 IN950 0672 1543 1409 IN954 0673 1544 1503 IN955 0674 1545 1509 IN960 0675 1546 1500 1507 IN965 0676 1547 1513 1518 IN970 0677 1548 1516 IN975 0678 1549 1467 1616 INCOR FF88 1032 2409 2410 4073 4123 4346 INCRE FFB8 1133 600 2194 2196 IND05 05B8 1312 2154 4016 4044 5189 INDEX FFB9 1135 424 436 438 439 1529 1668 1718 1778 1791 1808 1847 2210 2977 3052 3354 3425 3461 3496 3511 3948 3958 3977 4206 ISSTV FFBA 1137 2262 3352 3499 ISTVX 04A7 981 2586 3454 ITVCT FFBB 1139 533 647 651 678 685 687 4057 4061 4301 4302 K0 FF8D 1046 425 530 596 1428 1669 1719 1792 1853 1861 1880 1904 2193 2211 2285 2445 2473 2547 2908 2946 3020 3030 3044 3374 3411 3439 3506 3552 3573 3759 3952 3965 4049 4159 4207 4225 4556 4609 4742 4747 4867 4891 4895 4910 4947 5016 5028 5099 6349 6358 6663 6686 6694 K00FF FF9B 1075 559 583 2570 4920 5021 K0FFF FF9C 1077 2736 3073 K1 FF8E 1048 477 686 690 892 1501 1522 1577 1581 1610 1772 1819 1839 1844 2258 2346 2440 2458 2504 2627 2748 2774 2861 2884 2902 2906 2961 3008 3103 3409 3416 3464 3466 3468 3480 3502 3539 3575 3600 3611 3720 3753 3761 3787 3925 3978 4018 4021 4060 4082 4175 4193 4215 4219 4327 4329 4336 4342 4362 4365 4451 4456 4541 4590 4612 4636 4671 4673 4714 4733 4887 5076 5158 5205 5221 5225 5302 5462 5666 5854 6037 6338 6377 6381 K16 FF95 1062 457 874 1825 1827 3478 3482 K2 FF8F 1050 442 860 1436 1677 2236 2278 2329 2363 2764 2810 3362 3484 3963 4359 5126 5142 6181 6542 K20 FF96 1064 462 2557 K3 FF90 1052 1814 1817 3476 3644 3971 4349 4870 K320 FF97 1066 441 718 1421 2434 2724 2776 2998 2999 3004 3047 4580 4724 5011 5290 5450 5654 5842 6032 6656 K4000 FF98 1068 1885 1952 2175 2447 3564 4889 6704 K5 FF91 1054 2256 3364 3414 3649 K6 FF92 1056 3462 5679 5705 6043 6152 K7 FF93 1058 648 2370 2838 3954 K8 FF94 1060 2332 3619 K8000 FF99 1071 282 1430 2425 3088 3698 4477 4535 4626 6676 KF000 FF9A 1073 314 3085 5178 KFF0F FF9D 1079 299 3643 3648 LACTR FFBC 1141 2227 2271 2274 2342 2624 2633 2640 2642 2654 2660 2672 2679 2682 2701 2713 2720 2811 2842 2869 2889 2923 3568 4020 4448 4482 4539 4668 4682 4698 4827 5004 5091 5108 5116 5120 5124 5130 5140 5148 LADDR FFBD 1143 2216 2252 2809 2846 2886 3967 LBATV FFBE 1145 548 553 599 2093 2097 4093 4106 4145 4170 4467 4548 4835 4905 4956 4976 4981 4989 6346 LCBSW FFBF 1147 847 1455 2522 3231 LCIDN FFC1 1151 1471 1473 1475 1477 1479 3154 6206 LDBCT FFC6 1157 342 404 2556 2561 3193 3211 LDCDE FFC0 1149 467 1416 1671 1697 1721 1789 1854 1874 1905 1935 3582 3946 4204 4740 LDREQ FFC7 1159 503 543 LEFTX FFC8 1161 575 601 603 1505 1511 2848 2863 3749 3755 4903 4954 6439 LEVLS FFC9 1163 2214 2573 3968 LFCNT FFCA 1165 1453 2989 LFORT FFCB 1167 1565 4234 LK000 0380 714 738 918 1642 1644 2092 2117 2123 2125 2127 2134 2137 2141 2462 3266 5298 5458 5662 5850 6049 6345 LK030 0387 721 725 LK040 038E 726 723 LK050 0393 729 727 730 LK100 03A0 738 735 LK900 03A2 742 716 722 733 736 LK910 03A4 745 214 721 726 728 LK985 03D5 806 717 719 734 LLCNT FFCC 1169 1459 1627 1711 LLOSW FFCD 1171 627 1461 3702 3778 LMPSW FFCE 1173 925 1457 2138 2981 3083 3206 3260 LN000 072A 1709 1630 1879 LN030 0732 1715 1867 LN050 073B 1724 1749 1858 LN070 0742 1729 1726 LN090 0757 1744 1741 LN100 075A 1746 1748 LN140 076D 1770 1743 LN150 0773 1774 1771 1856 LN180 07B9 1838 1815 LN300 07BE 1842 1787 1884 LN315 07C3 1846 1843 LN350 07D5 1859 1712 1729 1745 LN400 07E3 1868 1860 1864 LN430 07F3 1878 1710 LN500 07F7 1880 1816 1820 1828 1834 LN520 07F8 1881 1886 LN550 07FD 1885 1818 1821 1831 LN900 075F 1753 1730 1738 LN905 0760 1754 1714 LN910 0761 1755 1725 1744 1857 LN915 0762 1756 1866 LN920 0763 1757 1770 1842 1859 1862 1881 LN930 0764 1758 1809 LN940 0765 1759 1840 1868 LN950 0766 1760 1779 1846 LN960 0767 1761 1783 1848 LN970 0768 1762 1781 1798 LN980 0769 1763 1800 LN990 076A 1764 1823 1830 1833 LNAME FF80 1016 876 1532 1557 1655 1737 1918 LNCNT FFCF 1175 1463 1629 1863 LNGTH FFD0 1177 2543 2550 2560 LOADR FFD1 1179 2217 2340 2926 LOBUF FFD2 1181 421 440 1672 1722 1796 1801 1850 3001 3053 3271 5297 5319 5457 5515 5661 5711 5849 5907 6151 6343 LOCAL FF8C 1040 2416 2420 4073 4074 4357 LOCAR FFD3 1183 3566 4457 4480 LONGX FFD4 1185 3111 3246 LPREC FFD5 1187 1563 3377 3381 3383 3387 LS000 01E4 274 383 1986 1995 2518 3175 3577 3941 4735 LS230 01F1 286 402 LS240 01F8 294 306 LS250 01FE 298 295 LS270 0202 305 290 LS280 0204 310 401 LS290 0218 329 322 LS300 021C 333 325 328 LS320 021F 339 392 LS360 023B 372 358 362 LS380 0244 378 275 276 301 406 LS400 024D 387 352 LS450 025C 403 377 LS900 0260 410 281 318 331 398 LS905 0261 411 323 LS915 0262 412 333 LS920 0263 413 335 391 LS925 0264 414 298 340 376 388 LS930 0265 415 355 360 LSADR FFD6 1189 2714 4458 4599 LSBUF FFD7 1191 310 1444 2538 5215 5223 6042 6048 LSCRA FFD8 1193 1469 1663 1713 1865 1900 2992 LSW01 FFD9 1195 3554 3594 3602 3612 3721 LSW02 FFDA 1197 1432 3045 6051 6053 LSW03 FFDB 1199 2241 2365 2794 2947 3957 3966 4220 4734 4748 LSW04 FFDC 1201 3077 3112 3197 3247 6147 LSW05 FFDD 1203 3375 3540 3586 LSW06 FFDE 1205 356 1570 2312 2668 2907 4209 4211 LSW07 FFDF 1207 2310 2318 3376 3956 LSW08 FFE0 1209 3576 3645 3650 3762 LSW09 FFE1 1211 1431 2128 2428 2646 2692 2730 3559 3607 4445 4557 4592 4610 4611 4614 4618 4627 4638 4651 4670 4672 4719 LSW10 FFE2 1213 2149 2626 2628 4196 LSW11 FFE3 1215 283 326 2524 3191 LSW12 FFE4 1217 346 2535 3223 LSW13 FFE5 1219 4588 4591 LSW14 FFE6 1221 426 452 478 1670 1720 1793 LSW15 FFE7 1223 359 2505 2548 LSW16 FFE8 1225 597 624 2250 3553 3620 3792 4050 LSW17 FFE9 1227 644 674 2114 2183 2243 2348 2406 2421 2631 2644 2796 2844 2852 2866 3512 3555 3640 3668 3745 3764 3772 4194 5000 6671 LSW18 FFEA 1229 499 539 4151 LSW19 FFEB 1231 1845 2350 2629 2652 2670 2877 2880 2905 4088 4446 4593 6673 LSW20 FFEC 1233 2740 2759 2761 LSW21 FFED 1235 2658 5092 5100 LSW22 FFEE 1237 300 382 890 2108 2174 2176 2206 2875 3024 4084 4338 LSW23 FFEF 1241 294 381 1985 LTVWC FFF0 1243 585 588 4186 4291 4320 4882 4898 4919 5110 LTYPE FFF1 1245 1560 1576 2234 2255 2362 2369 2883 3357 3361 3407 3413 3418 3460 3470 3473 3487 3642 3647 3955 4214 4745 LX3SW FFF3 1249 1451 3932 6374 LXEQA FFF2 1247 2545 2554 M1000 0BE4 6031 3268 6033 6157 6278 M1010 0BFF 6050 6034 M1020 0C0B 6057 6052 M1025 0C12 6064 6068 6145 6146 6190 M1030 0C1A 6069 6056 6057 M1050 0C1F 6078 6083 M1080 0C28 6085 6090 M1110 0C32 6091 6086 M1120 0C33 6092 6099 M1130 0C3B 6097 6070 6096 M1135 0C54 6127 6123 M1136 0C55 6128 6126 M1140 0C64 6142 6263 M1150 0C6B 6147 6143 M1180 0C6F 6151 6060 M1190 0C75 6156 6035 M1500 0C79 6161 6108 6117 6131 6141 6183 M1550 0C7B 6163 6180 M1600 0C92 6187 6055 6059 6150 6191 M1650 0CE7 6235 6133 M1670 0D05 6267 6239 6243 6248 6255 6260 6276 M1700 0D0D 6274 6271 6273 M1900 0C9A 6197 6069 6149 M1905 0C9B 6198 6095 M1910 0C9C 6199 6164 6171 M1915 0C9D 6200 6166 6173 M1920 0C9E 6201 6175 M1921 0C9F 6202 6270 M1922 0CA0 6203 6269 M1925 0CA1 6204 6138 M1930 0CA2 6205 6189 M1935 0CA3 6206 6128 M1940 0CA4 6207 6179 6182 M1945 0CA5 6208 6148 M1950 0CA6 6209 6197 M1952 0CA9 6210 6107 M1954 0CAC 6211 6113 M1956 0CAF 6212 6121 M1958 0CB1 6213 6240 6250 6262 M1960 0CBA 6215 6054 M1965 0CBB 6216 6215 M1970 0CC4 6219 6058 6216 M1975 0CC5 6220 6219 M1980 0CD0 6222 6080 6085 6087 6088 6092 6094 6115 6168 6174 6245 6249 6257 6261 6268 6275 M1990 0CD6 6224 6036 6144 M1995 0CD9 6227 6040 6041 6225 M1996 0CE4 6229 6078 M1997 0CE5 6230 6272 M1998 0CE6 6231 6274 M2000 08B8 6335 2139 6411 M2005 08D0 6357 6347 M2010 08D3 6360 6395 M2020 08E3 6372 6366 M2025 08EE 6380 6375 M2027 08F1 6383 6379 M2030 08FD 6394 6362 6364 M2180 090C 6411 6400 M2190 090E 6415 6419 6428 6429 6431 6469 M2200 0916 6423 6371 6393 6410 6432 6477 M2230 091F 6430 6426 M2300 0923 6436 6348 6353 6483 M2320 0929 6441 6482 M2370 0939 6455 6449 M2380 0942 6463 6454 6456 M2390 094A 6470 6464 M2400 0952 6478 6445 M2500 095A 6488 6385 6402 6471 6517 M2600 0979 6522 6389 6404 6473 6545 M2630 097B 6524 6541 M2650 09E2 6595 6493 6497 6502 6509 6514 6604 M2670 09EA 6602 6599 6601 M2900 0994 6550 6461 M2901 0995 6551 6370 6392 6409 6467 6476 M2902 0996 6552 6536 M2903 0997 6553 6527 6534 M2904 0998 6554 6540 6543 M2905 0999 6555 6525 6532 M2906 099A 6556 6452 M2920 099C 6558 6372 6376 6380 6424 6430 6478 6479 6499 6503 6511 6515 6529 6535 6596 6603 M2922 099E 6559 6598 M2925 099F 6560 6597 M2930 09A0 6561 6359 6365 6368 6438 6463 6468 M2935 09A1 6562 6584 M2937 09AB 6564 6600 M2940 09AC 6565 6361 M2944 09AD 6566 6382 M2945 09AF 6567 6378 6384 M2946 09B1 6568 6602 M2950 09B2 6569 6401 M2960 09B4 6570 6465 M2965 09B5 6571 6390 6407 6474 M2970 09B6 6572 6450 M2975 09B7 6573 6459 M2980 09B8 6574 6351 M2982 09BA 6575 6350 6444 M2985 09BB 6576 6387 6406 6447 6453 6462 6571 M2986 09BC 6577 6494 6504 6516 6537 M2988 09C0 6578 M2990 09C2 6579 6451 6460 M2992 09C5 6580 6458 M2994 09C6 6581 6386 6405 6446 M2995 09C7 6582 6352 6570 M2996 09D2 6584 6367 M2997 09D3 6585 6363 6457 M2998 09D4 6587 6337 6427 M2999 09D7 6590 6341 6342 6588 MC000 05BE 2085 1641 2122 MC030 05C2 2091 2132 2201 MC060 05CE 2102 2107 MC090 05D1 2104 2182 2188 2192 MC100 05D9 2114 2098 MC120 05EC 2126 2115 MC130 05F2 2130 2199 MC150 05FB 2136 2121 MC170 0610 2154 2150 MC175 0617 2158 2155 MC190 0620 2164 MC200 0622 2165 2109 2159 MC210 0625 2172 2103 MC215 062F 2182 2197 MC220 0630 2183 2180 MC240 0637 2189 2185 MC330 0641 2198 2129 ML000 0910 2921 2238 2940 ML050 0921 2933 2931 ML070 0928 2937 2932 ML100 092B 2939 2922 2936 MLWD1 FFF4 1251 1585 2661 2721 2888 2925 2935 4063 4217 4345 5078 5089 MSG00 0000 69 2769 MSG01 0001 70 2663 MSG02 0002 71 3120 MSG03 0003 72 1498 MSG04 0004 73 MSG05 0005 74 4042 5187 5355 MSG06 0006 75 3249 MSG07 0007 76 683 MSG08 0008 77 2686 MSG09 0009 78 700 4368 MSG10 000A 79 MSG16 0010 80 296 3188 5549 MSG17 0011 81 708 1838 MSG18 0012 82 878 MSG19 0013 83 3225 MSG20 0014 84 3396 MSG21 0015 85 3391 MSG22 0016 86 695 3542 MSG23 0017 87 2529 3233 MSG24 0018 88 MSG25 0019 89 MSG26 001A 90 MSG37 0025 91 MSG39 0027 92 3162 5739 MSG40 0028 93 4236 MSG41 0029 94 4086 4340 MSG42 002A 95 2162 MSG43 002B 96 4282 MSG44 002C 97 4286 MSG45 002D 98 4318 MSG46 002E 99 1599 2937 5753 MSG47 002F 100 2152 2951 MSG48 0030 101 4040 MSG64 0040 102 639 3652 5941 MSG65 0041 103 3405 MSG66 0042 104 367 1657 3366 MSG67 0043 105 6683 MSG68 0044 106 3148 MV000 08B6 2834 2314 2865 3341 3896 4436 4816 6328 MV060 08C7 2848 2845 MV080 08CB 2852 2836 MV100 08D1 2859 2850 2860 2862 MV120 08D3 2860 2853 MV150 08D9 2865 2910 MV250 08DB 2866 2864 MV270 08E1 2874 2867 MV280 08F3 2888 2885 MV290 08F4 2889 2887 MV310 08F7 2895 2891 2897 2899 MV380 0907 2906 2870 2876 MV900 090C 2914 2835 2840 2849 2909 MV920 090D 2915 2841 2898 MV930 090E 2916 2878 2904 MV940 090F 2917 2843 2847 2858 2868 NAME FF82 1019 277 491 494 507 534 562 565 578 592 1681 1684 1687 1690 1732 1734 1735 1775 1777 1805 1882 1883 1911 1913 1916 1946 1948 1953 1954 1973 1979 2173 2292 2307 2309 2316 2326 2452 2453 2455 2475 2477 2479 2483 2492 2506 2526 2574 2576 2579 2596 2602 2710 2857 3174 3179 3433 3504 3551 3572 3923 3936 3987 4149 4732 4890 6235 6251 6666 6670 6675 6677 6679 6696 6698 6701 6705 NAME2 FF84 1022 348 536 2726 2762 NEXT FFF5 1253 454 460 465 1780 1799 NOPTS FFF6 1255 2805 3402 3503 3678 NW000 0271 434 427 446 1674 1680 1682 1686 1688 1724 1731 1733 1746 1774 1776 1797 1910 1912 1925 1928 1945 1947 2221 2269 2283 2291 3426 3428 3430 3508 3523 3531 3982 NW010 0276 438 479 NW015 027F 445 435 NW020 0283 450 443 NW025 028E 459 453 458 NW050 02A1 476 469 NW910 02A6 483 464 476 ORGIN FFF8 1258 1434 1583 1597 2934 OVLAY FFFA 1261 4156 4307 4309 4343 4348 4619 4849 4864 4871 4872 4873 5104 5141 P1END 0963 1997 212 P2END 0A9F 3282 2082 P3END 0A9F 3833 3343 4383 4757 5231 6606 P4END 0A9B 4383 3898 P5END 09F5 4757 4438 P6END 0A82 5231 4818 P7END 0BE1 5391 5282 P8END 0BCD 5591 5442 P9END 0BE1 5784 5645 PAEND 0B8C 5972 5835 PBEND 0D11 6278 6025 PCEND 09EE 6606 6330 PDEND 0AF4 6728 6653 PL000 08B8 4441 2200 4561 PL040 08CE 4466 4581 PL060 08D4 4470 4572 PL080 08E0 4479 4569 PL100 08EA 4492 4520 PL220 08F8 4514 4486 PL240 08FA 4519 4496 PL250 090A 4530 4528 PL260 0921 4549 4555 PL280 0926 4553 4550 PL320 0932 4565 4473 PL340 0939 4570 4471 4475 4538 4566 PL360 093F 4579 4577 4582 PL910 08F1 4500 4469 4474 4476 4567 PL915 08F2 4501 4478 4524 4578 PL920 08F3 4502 4519 4522 PL925 08F4 4503 4515 PL930 08F5 4504 4454 PL935 08F6 4505 4495 PL940 08F7 4506 4527 PM000 0426 900 872 879 923 926 1841 2153 2530 2952 3121 3164 3226 3234 3392 3397 3543 3653 4041 4043 5188 PM030 043B 917 909 912 915 PM100 0443 922 902 PM300 0447 924 927 2163 3250 4087 4266 4283 4287 4319 4341 PM900 044D 931 905 920 PM910 044E 932 903 906 PS000 0945 4587 2130 4639 PS010 0961 4609 4601 PS020 0963 4611 4589 PS060 096A 4616 4725 PS120 097C 4639 4674 4677 4689 PS260 0983 4651 4620 PS270 0990 4659 4657 PS280 09A6 4683 4688 PS340 09AF 4693 4613 PS360 09B7 4699 4711 PS380 09C7 4710 4700 4702 4704 4708 PS400 09C9 4712 4709 PS480 09CE 4719 4615 4695 PS500 09D4 4723 4721 4726 PS900 097E 4643 4676 4687 4694 4707 PS905 097F 4644 4683 PS940 0980 4645 4596 PS945 0981 4646 4656 PS950 0982 4647 4628 4664 RELOC FFFB 1263 1584 1648 2215 2226 2308 2356 2359 3567 3769 4218 4447 4452 4542 4606 4617 4625 4669 6669 RH000 0266 420 428 1528 1698 1877 1906 1936 3583 3947 4205 4741 RIGHT FFFC 1265 547 1504 1510 2094 2095 3670 3809 4094 4107 4144 4169 4466 4547 4696 4834 4894 4986 6480 RL000 0648 2205 2086 2195 2207 2379 3959 4746 RL010 0659 2221 2279 2330 RL015 066D 2240 2237 RL020 067A 2249 2246 RL030 067D 2252 2244 RL040 067F 2254 2248 RL050 068D 2269 2224 2229 2239 2240 2242 2261 RL060 0696 2276 2273 RL070 069C 2283 2333 RL080 06A3 2291 2334 RL085 06BB 2310 2306 RL090 06BE 2312 2319 RL092 06C4 2316 2311 RL095 06C9 2320 2317 RL100 06CC 2326 2313 2493 6682 RL110 06CD 2327 2321 RL120 06CF 2328 2315 2454 RL150 06D8 2339 2277 RL155 06E2 2348 2345 RL160 06EB 2356 2349 2352 RL170 06F1 2361 2358 RL180 06FD 2369 2364 2366 RL200 0704 2378 2208 2407 2411 2427 2429 2436 RL240 0715 2405 2371 RL250 0720 2416 2368 RL260 0726 2421 2418 RL280 072F 2428 2422 RL290 0735 2433 2431 2435 RL320 073B 2440 2300 RL325 0747 2452 2457 RL330 074A 2455 2451 RL340 074F 2460 2469 RL380 0756 2467 2296 RL385 0764 2480 2471 RL390 0770 2492 2500 2555 6712 RL410 0773 2497 2489 RL450 0777 2504 2481 RL900 070A 2385 2209 2212 2213 2223 2228 2235 2260 2270 2272 2286 2293 2295 2331 2507 RL905 070B 2386 2260 RL910 070C 2387 2270 2276 2287 2294 2328 RL920 070D 2388 2284 2297 2299 2301 2303 2442 2444 2467 2472 6688 6691 RL930 070E 2389 2213 2272 2275 2339 RL940 070F 2390 2223 2295 2441 2460 2474 6660 6664 6695 RL950 0710 2391 2448 2482 RL970 0711 2392 2212 2228 2235 RL980 0712 2393 2449 2488 RL990 0713 2394 2497 RL992 0708 2384 2507 RL999 0714 2395 2459 6661 6665 RLCOR FFFD 1267 589 591 689 1608 4062 4178 4185 4881 RLXEQ FFFE 1269 2247 2253 3438 3510 3707 3715 RNAME FF86 1025 279 349 375 537 707 877 1588 1596 1656 1807 2151 2161 2528 2712 2924 2950 3163 3181 4038 4083 4233 4281 4285 4315 4330 4337 5480 5497 5684 5872 5889 6489 6505 S1SAD 000F 1297 4660 5132 S1WCT 000C 1293 4654 4722 5134 SADDR FFFF 1271 468 470 471 1876 SCLCT 0000 1273 4177 4594 4597 4652 4667 4675 4693 5146 SCTAD 0001 1275 1543 1633 2708 2735 3071 3078 3081 3105 4560 5083 SCTRX 0006 1281 1427 2725 2728 2729 2737 2753 3565 4629 4665 5012 5093 SHORT 0007 1283 3076 3196 SLIMT 0008 1285 2738 3074 3102 SOCAR 0009 1287 663 4366 4598 4616 4666 4681 4697 5125 5147 STVAD 000A 1289 4685 5149 SUBWC 000B 1291 2341 2347 2373 2408 2417 2419 2424 2432 4017 SV000 09F3 3659 3593 3601 3727 SV030 0A03 3675 3756 SV060 0A07 3678 3739 SV090 0A0B 3681 3730 SV120 0A2A 3713 3691 SV140 0A32 3720 3709 SV150 0A34 3725 3660 3661 3669 3673 3737 3750 3781 SV180 0A3A 3728 3687 SV210 0A3E 3734 3791 3825 SV240 0A45 3744 3663 SV270 0A54 3757 3689 SV300 0A72 3782 3793 SV360 0A79 3792 3776 SV390 0A82 3807 3773 SV420 0A89 3812 3821 SV450 0A94 3820 3814 SV480 0A96 3822 3808 3819 SV510 0A9B 3829 3780 SV900 0A7B 3797 3754 3766 3768 3775 3786 SV910 0A7C 3798 3671 3677 3696 3705 3734 3735 3748 3816 3818 SV920 0A7D 3799 3811 3815 3823 SV930 0A7E 3800 3679 3729 SV940 0A7F 3801 3676 3736 SV950 0A80 3802 3662 3688 SV960 0A81 3803 3675 3747 TF000 0A70 3242 3115 3213 3255 TF100 0A78 3250 3252 3253 TF150 0A7D 3254 3248 TL000 0407 869 297 368 640 684 696 701 709 875 1499 1600 1658 1870 2166 2687 2938 3189 3367 3406 4237 4264 4369 6684 TL100 0410 876 2521 3178 3190 TL900 0417 884 870 871 873 TP000 095A 4980 2143 5227 TP010 095E 4986 5030 TP030 0968 4994 5025 TP060 0983 5014 5006 5071 TP090 0988 5018 5001 5008 5036 5073 TP120 098E 5023 4996 TP150 0997 5031 4999 TP240 09B8 5068 5013 TP270 09BD 5072 5069 TP300 09BF 5074 4982 5027 TP330 09CF 5089 5081 TP360 09D6 5095 5098 TP370 0A01 5132 5137 TP375 0A13 5145 5229 TP377 0A19 5149 5152 TP380 0A1E 5156 5105 TP383 0A35 5174 5165 TP385 0A50 5193 5182 5186 TP390 0A5A 5199 5202 TP400 0A7D 5227 5208 TP450 0A7F 5228 5143 TP900 099F 5040 4988 5068 5070 TP905 09A0 5041 5109 TP910 09A1 5042 5129 TP915 09A2 5043 5026 5029 5072 TP920 09A3 5044 4991 5014 5018 TP925 09A4 5045 5181 TP935 09A6 5047 5184 TP940 09A8 5049 5139 TP945 09A9 5050 5119 TP950 09AA 5051 5115 TP955 09AB 5052 5003 TP960 09AC 5053 5123 TP965 09AD 5054 5107 TP970 09AE 5055 5144 TP975 09AF 5056 5228 TP980 09B0 5057 4998 TP985 09B1 5058 4993 5019 5022 5031 TP990 09B2 5059 4992 TP995 09B3 5060 5020 TP996 09B4 5061 5213 TP997 09B5 5062 5164 TP998 09B6 5063 5169 TP999 09B7 5064 5167 TR000 07E7 2611 2327 2498 2551 2553 2685 2813 2896 4492 4521 4523 4525 4531 4533 4686 4706 4854 4857 4859 4866 4868 4874 4911 4924 4926 4948 4965 5015 5096 5113 5117 5121 5127 5133 5135 5145 5150 6710 TR020 0801 2633 2630 TR030 0805 2639 2621 2625 TR050 080B 2644 2641 TR110 0812 2652 2645 TR130 0825 2668 2662 TR150 082B 2672 2647 2659 2669 TR180 0832 2682 2632 2635 2653 2657 2671 2768 TR190 0834 2683 2613 2614 TR200 083A 2686 2634 2655 2664 2770 TR250 083D 2692 2648 2674 TR270 084C 2708 2693 TR290 0855 2720 2700 2704 TR310 0858 2723 2715 TR315 085A 2725 2778 TR330 086A 2740 2731 TR350 0871 2753 2741 TR370 087C 2762 2727 TR390 0881 2767 2765 TR410 0884 2769 2739 TR430 0886 2774 2703 TR910 088B 2782 TR920 088C 2783 2697 2709 2754 TR930 088D 2784 2699 2702 TR940 088E 2785 2777 TR950 088F 2786 TS000 07BB 2566 2320 2580 3988 TS100 07C4 2577 2572 TS130 07C9 2580 2582 TS160 07CB 2581 2578 TS900 07CD 2586 2571 TS905 07CE 2587 2581 TV000 08B8 4825 2142 4975 TV040 08C1 4836 4845 TV060 08C8 4843 4838 TV080 08CD 4850 4869 TV100 08D0 4853 4851 4861 TV120 08E0 4865 4877 TV140 08F1 4881 4852 TV160 08F8 4887 4885 TV180 0900 4894 4886 TV200 090D 4906 4945 TV220 091F 4923 4914 TV240 0920 4924 4922 TV400 0931 4943 4909 4928 TV420 0935 4947 4950 TV430 093A 4954 4977 TV440 093F 4957 4969 TV460 094B 4967 4960 4963 TV500 094E 4970 4978 TV530 0956 4976 4899 TV900 0928 4932 4865 TV905 0929 4933 4915 TV920 092A 4934 4853 4855 4923 TV940 092E 4937 4973 TV945 092F 4938 4971 TV950 0930 4939 4883 TVADR 0012 1301 4884 4888 4970 4972 4990 TVEND 0013 1303 3810 4189 TVPTR 0014 1305 649 2499 6711 TY000 09DE 3639 3585 3641 3646 3654 3763 TY050 09F1 3654 3651 W 05A1 1014 1016 1019 1022 1025 1032 1034 1036 1038 1040 1046 1048 1050 1052 1054 1056 1058 1060 1062 1064 1066 1068 1071 1073 1075 1077 1079 1085 1087 1089 1091 1093 1095 1097 1099 1101 1103 1105 1107 1109 1111 1113 1115 1117 1119 1121 1123 1125 1129 1131 1133 1135 1137 1139 1141 1143 1145 1147 1149 1151 1157 1159 1161 1163 1165 1167 1169 1171 1173 1175 1177 1179 1181 1183 1185 1187 1189 1191 1193 1195 1197 1199 1201 1203 1205 1207 1209 1211 1213 1215 1217 1219 1221 1223 1225 1227 1229 1231 1233 1235 1237 1241 1243 1245 1247 1249 1251 1253 1255 1258 1261 1263 1265 1267 1269 1271 1273 1275 1281 1283 1285 1287 1289 1291 1293 1297 1301 1303 1305 1307 1309 1311 WASTE 0015 1307 623 1482 1483 1493 1813 1822 1829 1832 2222 2225 3360 3379 3385 3388 3807 3817 5112 5114 5118 WSADR 0016 1309 1410 2430 3057 4529 4576 4658 4720 X3 05A0 1012 285 372 373 436 438 450 546 547 553 588 599 600 623 627 678 925 1399 1401 1402 1434 1483 1493 1529 1543 1570 1583 1597 1627 1629 1633 1679 1972 2093 2094 2105 2196 2210 2347 2348 2350 2405 2406 2409 2410 2423 2573 2595 2652 2682 2708 2735 2759 2761 2805 2844 2852 2934 2988 3026 3068 3071 3078 3081 3105 3124 3154 3354 3425 3461 3496 3511 3697 3702 3716 3745 3772 3778 3807 3809 3829 3948 3958 3977 4074 4088 4093 4094 4106 4107 4123 4144 4145 4169 4170 4177 4178 4206 4307 4309 4466 4467 4493 4529 4537 4547 4548 4560 4651 4653 4654 4658 4660 4696 4719 4722 4834 4835 4849 4864 4894 4903 4905 4954 4956 4986 4989 5083 5116 5120 5132 5134 5146 6053 6206 6439 XC000 0890 2791 2361 2803 XC050 089D 2801 2792 2793 2795 2797 2817 XC100 08A3 2804 2800 XC170 08A7 2806 2816 XC200 08B1 2814 2807 XR1LS 0017 1311 372 Z 0994 6549 6336 6337 6341 6342 6350 6351 6352 6359 6361 6363 6367 6368 6370 6376 6378 6380 6382 6384 6386 6387 6389 6390 6392 6401 6405 6406 6407 6409 6424 6427 6430 6438 6444 6446 6447 6450 6451 6452 6453 6457 6458 6460 6461 6493 6497 6502 6537