ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 2020 Source File: \emonitor.asm *SAVE SYMBOL TABLE 1 | 2 | * RLTV ADDR* SYMBOL* DESCRIPTION PMN00010 3 | * * * PMN00020 4 | * 0-3 * * RESERVED FOR EVEN BOUNDARIES PMN00030 5 | * 4-5 * #NAME * NAME OF PROGRAM/CORE LOAD PMN00040 6 | * 6 * #DBCT * BLOCK COUNT OF PROG/CORE LOAD PMN00050 7 | * 7 * #FCNT * *FILES SWITCH--ZERO MEANS NO PMN00060 8 | * * * FILES HAVE BEEN EQUATED PMN00070 9 | * 8 * #SYSC * SYS/NON-SYS CARTRIDGE INDR PMN00080 10 | * 9 * #JBSW * JOBT SWITCH-- NON-ZERO MEANS PMN00090 11 | * * * TEMPORARY MODE PMN00100 12 | * 10 * #CBSW * CLB-RETURN-TO-DUP SWITCH-- PMN00110 13 | * * * ZERO=CLB RETURN TO SUPV PMN00120 14 | * 11 * #LCNT * NO. OF LOCALS PMN00130 15 | * 12 * #MPSW * CORE MAP SWITCH--ZERO MEANS PMN00140 16 | * * * DO NOT PRINT A CORE MAP PMN00150 17 | * 13 * #MDF1 * NO. DUP CTRL RECDS (MODIF) PMN00160 18 | * 14 * #MDF2 * ADDR OF MODIF BUFFER PMN00170 19 | * 15 * #NCNT * NO. OF NOCALS PMN00180 20 | * 16 * #ENTY * RLTV ENTRY ADDR OF PROGRAM PMN00190 21 | * 17 * #RP67 * 1442-5 SW (0=1442-5 ON SYSTEM PMN00200 22 | * 18 * #TODR * 'TO' WORKING STG DRIVE CODE PMN00210 23 | * 19 * #FRDR * 'FROM' WORKING STG DRIVE CODE PMN00220 24 | * 20 * #FHOL * ADDR OF LARGEST HOLE IN FXA PMN00230 25 | * 21 * #FSZE * BLK CNT OF LARGEST HOLE IN FXA PMN00240 26 | * 22 * #UHOL * ADDR OF LAST HOLE IN UA 2-10 PMN00250 27 | * 23 * #USZE * BLK CNT OF LAST HOLE IN UA2-10 PMN00260 28 | * 24 * #DCSW * DUP CALL SW--NON-ZERO=DUP CALL PMN00270 29 | * 25 * #PIOD * PRINCIPAL I/O DEVICE INDICATOR PMN00280 30 | * 26 * #PPTR * PRINC. PRINT DEVICE INDICATOR PMN00290 31 | * 27 * #CIAD * RLTV ADDR IN @STRT OF CIL ADDR PMN00300 32 | * 28 * #ACIN * AVAILABLE CARTRIDGE INDICAT2-2 PMN00310 33 | * 29 * #GRPH * 2250 INDICATOR 2G2 PMN00320 34 | * 30 * #GCNT * NO. G2250 RECORDS 2G2 PMN00330 35 | * 31 * #LOSW * LOCAL-CANNOT-CALL-LOCAL SW 2-2 PMN00340 36 | * 32 * #X3SW * SPECIAL ILS SWITCH 2-2 PMN00350 37 | * 33 * #ECNT * NO. OF *EQUAT RCDS 2-4 PMN00360 38 | * 33-34 * * RESERVED FOR FUTURE USE 2-2 PMN00370 39 | * 35 * #ANDU * 1+BLOCK ADDR OF END OF USER PMN00380 40 | * * * AREA (ADJUSTED) LOGICAL DR 0 PMN00390 41 | * 36 * * 1+BLOCK ADDR OF END OF USER PMN00400 42 | * * * AREA (ADJUSTED) LOGICAL DR 1 PMN00410 43 | * 37 * * 1+BLOCK ADDR OF END OF USER PMN00420 44 | * * * AREA (ADJUSTED) LOGICAL DR 2 PMN00430 45 | * 38 * * 1+BLOCK ADDR OF END OF USER PMN00440 46 | * * * AREA (ADJUSTED) LOGICAL DR 3 PMN00450 47 | * 39 * * 1+BLOCK ADDR OF END OF USER PMN00460 48 | * * * AREA (ADJUSTED) LOGICAL DR 4 PMN00470 49 | * 40 * #BNDU * 1+BLOCK ADDR OF END OF USER PMN00480 50 | * * * AREA (BASE) LOGICAL DRIVE 0 PMN00490 51 | * 41 * * 1+BLOCK ADDR OF END OF USER PMN00500 52 | * * * AREA (BASE) LOGICAL DRIVE 1 PMN00510 53 | * 42 * * 1+BLOCK ADDR OF END OF USER PMN00520 54 | * * * AREA (BASE) LOGICAL DRIVE 2 PMN00530 55 | * 43 * * 1+BLOCK ADDR OF END OF USER PMN00540 56 | * * * AREA (BASE) LOGICAL DRIVE 3 PMN00550 57 | * 44 * * 1+BLOCK ADDR OF END OF USER PMN00560 58 | * * * AREA (BASE) LOGICAL DRIVE 4 PMN00570 59 | * 45 * #FPAD * FILE PROTECT ADDR, LOGICAL PMN00580 60 | * * * DRIVE 0 (BASE) PMN00590 61 | * 46 * * FILE PROTECT ADDR, LOGICAL PMN00600 62 | * * * DRIVE 1 (BASE) PMN00610 63 | * 47 * * FILE PROTECT ADDR, LOGICAL PMN00620 64 | * * * DRIVE 2 (BASE) PMN00630 65 | * 48 * * FILE PROTECT ADDR, LOGICAL PMN00640 66 | * * * DRIVE 3 (BASE) PMN00650 67 | * 49 * * FILE PROTECT ADDR,LOGICAL PMN00660 68 | * * * DRIVE 4 (BASE) PMN00670 69 | * 50 * #PCID * CARTRIDGE ID, PHYSICAL DRIVE 0 PMN00680 70 | * 51 * * CARTRIDGE ID, PHYSICAL DRIVE 1 PMN00690 71 | * 52 * * CARTRIDGE ID, PHYSICAL DRIVE 2 PMN00700 72 | * 53 * * CARTRIDGE ID, PHYSICAL DRIVE 3 PMN00710 73 | * 54 * * CARTRIDGE ID, PHYSICAL DRIVE 4 PMN00720 74 | * 55 * #CIDN * CARTRIDGE ID, LOGICAL DRIVE 0 PMN00730 75 | * 56 * * CARTRIDGE ID, LOGICAL DRIVE 1 PMN00740 76 | * 57 * * CARTRIDGE ID, LOGICAL DRIVE 2 PMN00750 77 | * 58 * * CARTRIDGE ID, LOGICAL DRIVE 3 PMN00760 78 | * 59 * * CARTRIDGE ID, LOGICAL DRIVE 4 PMN00770 79 | * 60 * #CIBA * SCTR ADDR OF CIB, LOGICAL DR 0 PMN00780 80 | * 61 * * SCTR ADDR OF CIB, LOGICAL DR 1 PMN00790 81 | * 62 * * SCTR ADDR OF CIB, LOGICAL DR 2 PMN00800 82 | * 63 * * SCTR ADDR OF CIB, LOGICAL DR 3 PMN00810 83 | * 64 * * SCTR ADDR OF CIB, LOGICAL DR 4 PMN00820 84 | * 65 * #SCRA * SCRA, LOGICAL DRIVE 0 PMN00830 85 | * 66 * * SCRA, LOGICAL DRIVE 1 PMN00840 86 | * 67 * * SCRA, LOGICAL DRIVE 2 PMN00850 87 | * 68 * * SCRA, LOGICAL DRIVE 3 PMN00860 88 | * 69 * * SCRA, LOGICAL DRIVE 4 PMN00870 89 | * 70 * #FMAT * FORMAT OF PROG IN WS, DRIVE 0 PMN00880 90 | * 71 * * FORMAT OF PROG IN WS, DRIVE 1 PMN00890 91 | * 72 * * FORMAT OF PROG IN WS, DRIVE 2 PMN00900 92 | * 73 * * FORMAT OF PROG IN WS, DRIVE 3 PMN00910 93 | * 74 * * FORMAT OF PROG IN WS, DRIVE 4 PMN00920 94 | * 75 * #FLET * FLET SCTR ADDR, LOGICAL DR 0 PMN00930 95 | * 76 * * FLET SCTR ADDR, LOGICAL DR 1 PMN00940 96 | * 77 * * FLET SCTR ADDR, LOGICAL DR 2 PMN00950 97 | * 78 * * FLET SCTR ADDR, LOGICAL DR 3 PMN00960 98 | * 79 * * FLET SCTR ADDR, LOGICAL DR 4 PMN00970 99 | * 80 * #ULET * LET SCTR ADDR, LOGICAL DR 0 PMN00980 100 | * 81 * * LET SCTR ADDR, LOGICAL DR 1 PMN00990 101 | * 82 * * LET SCTR ADDR, LOGICAL DR 2 PMN01000 102 | * 83 * * LET SCTR ADDR, LOGICAL DR 3 PMN01010 103 | * 84 * * LET SCTR ADDR, LOGICAL DR 4 PMN01020 104 | * 85 * #WSCT * BLK CNT OF PROG IN WS, DRIVE 0 PMN01030 105 | * 86 * * BLK CNT OF PROG IN WS, DRIVE 1 PMN01040 106 | * 87 * * BLK CNT OF PROG IN WS, DRIVE 2 PMN01050 107 | * 88 * * BLK CNT OF PROG IN WS, DRIVE 3 PMN01060 108 | * 89 * * BLK CNT OF PROG IN WS, DRIVE 4 PMN01070 109 | * 90 * #CSHN * SCTR CNT CUSHION,LOGICAL DR 0 PMN01080 110 | * 91 * * SCTR CNT CUSHION,LOGICAL DR 1 PMN01090 111 | * 92 * * SCTR CNT CUSHION,LOGICAL DR 2 PMN01100 112 | * 93 * * SCTR CNT CUSHION,LOGICAL DR 3 PMN01110 113 | * 94 * * SCTR CNT CUSHION,LOGICAL DR 4 PMN01120 114 | * 95-319 * * RESERVED FOR FUTURE USE PMN01130 RESIDENT MONITOR 116 | *************************************************** PMN01150 117 | * * PMN01160 118 | *STATUS-VERSION 2, MODIFICATION 10 * PMN01170 119 | * * PMN01180 120 | *FUNCTION/OPERATION- * PMN01190 121 | * THIS SECTION ALWAYS REMAINS IN CORE. IT * PMN01200 122 | * IS COMPRISED OF THE COMMUNICATIONS * PMN01210 123 | * AREA (COMMA), THE SKELETON SUPERVISOR, AND * PMN01220 124 | * A DISK I/O SUBROUTINE, NOMINALLY DISKZ. (THE * PMN01230 125 | * FIRST TWO OF THESE SECTIONS ARE INTERMIXED.) * PMN01240 126 | * COMMA CONTAINS THE SYSTEM PARAMETERS REQUIR- * PMN01250 127 | * ED TO FETCH A CORE LOAD IN CORE IMAGE FOR- * PMN01260 128 | * MAT. THE SKELETON SUPERVISOR PROVIDES IN- * PMN01270 129 | * STRUCTIONS FOR INITIATING A CALL EXIT, A * PMN01280 130 | * CALL LINK, A DUMP-TO-PRINTER OR A CALL TO THE * PMN01290 131 | * AUXILIARY SUPERVISOR. IN ADDITION, THE SKELE-* PMN01300 132 | * TON SUPERVISOR CONTAINS SEVERAL TRAPS FOR CER-* PMN01310 133 | * TAIN I/O FUNCTIONS/CONDITIONS. THE DISK I/O * PMN01320 134 | * SECTION CONSISTS OF A SUBROUTINE FOR READING * PMN01330 135 | * FROM OR WRITING ON A DISK CARTRIDGE ON A * PMN01340 136 | * GIVEN LOGICAL DISK DRIVE. * PMN01350 137 | * * PMN01360 138 | *ENTRY POINTS- * PMN01370 139 | * * $PRET-A TRAP FOR PREOPERATIVE I/O ERRORS. * PMN01380 140 | * THE CALLING SEQUENCE IS * PMN01390 141 | * BSI L $PRET * PMN01400 142 | * * $PSTX-A POSTOPERATIVE ERROR TRAP FOR I/O * PMN01410 143 | * DEVICES ON LEVEL X (X=1,2,3,OR 4). * PMN01420 144 | * THE CALLING SEQUENCE IS * PMN01430 145 | * BSI L $PSTX * PMN01440 146 | * * $STOP-THE PROGRAM STOP KEY TRAP. * PMN01450 147 | * * $EXIT-THE ENTRY POINT FOR THE EXIT/CALL * PMN01460 148 | * EXIT STATEMENT. THE CALLING SEQUENCE IS* PMN01470 149 | * LDX 0 $EXIT * PMN01480 150 | * * $LINK-THE ENTRY POINT FOR THE LINK/CALL * PMN01490 151 | * LINK STATEMENT. THE CALLING SEQUENCE IS* PMN01500 152 | * BSI L $LINK * PMN01510 153 | * * $DUMP-THE ENTRY POINT FOR THE DUMP/PDMP * PMN01520 154 | * STATEMENT. THE CALLING SEQUENCE IS * PMN01530 155 | * BSI L $DUMP * PMN01540 156 | * DC FORMAT * PMN01550 157 | * DC LIMIT1 * PMN01560 158 | * DC LIMIT2 * PMN01570 159 | * WHERE LIMIT1 AND LIMIT2 ARE THE LIMITS * PMN01580 160 | * BETWEEN WHICH THE DUMP IS TO OCCUR, AND* PMN01590 161 | * FORMAT IS A CODE INDICATING THE FORMAT * PMN01600 162 | * OF THE DUMP. IF FORMAT IS NEGATIVE, * PMN01610 163 | * THE AUXILIARY SUPERVISOR IS FETCHED * PMN01620 164 | * AND CONTROL PASSED TO IT. * PMN01630 165 | * * DZ000-ENTERED WHEN THE CALLER WISHES TO * PMN01640 166 | * PERFORM A DISK I/O OPERATION. THE * PMN01650 167 | * CALLING SEQUENCE VARIES WITH THE * PMN01660 168 | * VERSION OF THE DISK I/O SUBROUTINE. * PMN01670 169 | * * $I200/$I400-ENTERED WHEN THE OPERATION- * PMN01680 170 | * COMPLETE INTERRUPT OCCURS ON * PMN01690 171 | * LEVEL 2/4. * PMN01700 172 | * * PMN01710 173 | *INPUT-N/A * PMN01720 174 | * * PMN01730 175 | *OUTPUT-WORDS 6-4090 SAVED ON THE CIB ON A CALL * PMN01740 176 | * DUMP * PMN01750 177 | * * PMN01760 178 | *EXTERNAL REFERENCES-N/A * PMN01770 179 | * * PMN01780 180 | *EXITS- * PMN01790 181 | * * NORMAL * PMN01800 182 | * *THE EXITS FROM THE SUBROUTINES AT $PRET * PMN01810 183 | * $PST1, $PST2, $PST3, $PST4, AND $STOP * PMN01820 184 | * ARE BRANCH INSTRUCTIONS FOLLOWING A * PMN01830 185 | * WAIT INSTRUCTION. $STOP TURNS OFF IN- * PMN01840 186 | * TERRUPT LEVEL 5 AFTER THE START KEY IS * PMN01850 187 | * DEPRESSED. * PMN01860 188 | * *THE EXITS FROM $EXIT,$LINK,AND $DUMP ARE * PMN01870 189 | * TO THE CORE IMAGE LOADER, PHASE 1, * PMN01880 190 | * AFTER THAT PHASE HAS BEEN FETCHED. * PMN01890 191 | * *THE EXIT FROM DZ000 IS BACK TO THE * PMN01900 192 | * CALLER AFTER THE REQUESTED DISK OPERA- * PMN01910 193 | * TION HAS BEEN INITIATED. * PMN01920 194 | * *THE EXITS FROM $I200/$I400 ARE BACK TO * PMN01930 195 | * THE ADDRESSES FROM WHICH THE DISK OP- * PMN01940 196 | * ERATION COMPLETE INTERRUPT OCCURED * PMN01950 197 | * AFTER THE INTERRUPT HAS BEEN SERVICED * PMN01960 198 | * BY THE APPROPRIATE ISS. * PMN01970 199 | * * ERROR-N/A * PMN01980 200 | * * PMN01990 201 | *TABLES/WORK AREAS- * PMN02000 202 | * * $ACDE * PMN02010 203 | * * $CH12 * PMN02020 204 | * * $CILA * PMN02030 205 | * * $CLSW * PMN02040 206 | * * $COMN * PMN02050 207 | * * $CORE * PMN02060 208 | * * $CTSW * PMN02070 209 | * * $CXR1 * PMN02080 210 | * * $CYLN * PMN02090 211 | * * $DADR * PMN02100 212 | * * $DBSY * PMN02110 213 | * * $DCYL * PMN02120 214 | * * $DMPF * PMN02130 215 | * * $DREQ * PMN02140 216 | * * $FPAD * PMN02150 217 | * * $GCOM 2G2 * PMN02160 218 | * * $GRIN 2G2 * PMN02170 219 | * * $HASH * PMN02180 220 | * * $IBT2 * PMN02190 221 | * * $IBT4 * PMN02200 222 | * * $IBSY * PMN02210 223 | * * $IOCT * PMN02220 224 | * * $KCSW * PMN02230 225 | * * $LAST * PMN02240 226 | * * $LNXQ 2-9 * PMN02250 227 | * * $NDUP * PMN02260 228 | * * $NXEQ * PMN02270 229 | * * $PBSY * PMN02280 230 | * * $PGCT * PMN02290 231 | * * $PHSE * PMN02300 232 | * * $RMSW * PMN02310 233 | * * $SCAT 2-4 * PMN02320 234 | * * $SNLT * PMN02330 235 | * * $UFIO * PMN02340 236 | * * $ULET * PMN02350 237 | * * $WRD1 * PMN02360 238 | * * $WSDR * PMN02370 239 | * * $XR3X 2-2 * PMN02380 240 | * * PMN02390 241 | *ATTRIBUTES-REUSABLE * PMN02400 242 | * * PMN02410 243 | *NOTES- * PMN02420 244 | * THERE ARE WAIT INSTRUCTIONS AT $PRET+1, * PMN02430 245 | * $STOP+1, AND $PSTX+1. DEPRESSING THE START * PMN02440 246 | * KEY WILL RETURN CONTROL TO THE CALLER IN ALL * PMN02450 247 | * CASES. * PMN02460 248 | *************************************************** PMN02470 RESIDENT MONITOR 250 | * PROVIDE PARAMETERS FOR SYSTEM LOADER PMN02490 251 | * PMN02500 252 | ABS PMN02510 0004 253 | ORG 4 PMN02520 0004 0FFA 254 | DC 4095-* WD CNT FOR WRITING CORE ON CIB PMN02530 0005 0000 255 | $CIBA DC *-* SCTR ADDR OF THE CIB PMN02540 0006 0000 256 | $CH12 DC *-* ADDR OF CHANNEL 12 INDICATOR PMN02550 0007 0000 257 | $COMN DC *-* LENGTH OF COMMON (IN WORDS) PMN02560 258 | * PMN02570 259 | * ULTIMATE RESIDENCE OF THE INTERRUPT TV PMN02580 260 | * PMN02590 0008 0000 261 | $LEV0 DC *-* LEVEL 0 BRANCH ADDRESS PMN02600 0009 0000 262 | $LEV1 DC *-* LEVEL 1 BRANCH ADDRESS PMN02610 000A 00B3 263 | $LEV2 DC $I200 LEVEL 2 BRANCH ADDR PMN02620 000B 0000 264 | $LEV3 DC *-* LEVEL 3 BRANCH ADDRESS PMN02630 000C 00C4 265 | $LEV4 DC $I400 LEVEL 4 BRANCH ADDR PMN02640 000D 0091 266 | $LEV5 DC $STOP LEVEL 5 BRANCH ADDR PMN02650 267 | * PMN02660 268 | * PMN02670 000E 0000 269 | $CORE DC *-* SIZE OF CORE, E.G., /1000=4K PMN02680 000F 0000 270 | $CTSW DC *-* CONTROL RECORD TRAP SWITCH PMN02690 0010 0000 271 | $DADR DC *-* SCTR ADDR OF PROG TO BE LOADED PMN02700 0011 0000 272 | $SCAT DC *-* NON ZERO=SCA INTRPT PNDNG 2-4 PMN02710 0012 0000 273 | $DREQ DC *-* IND. FOR REQUESTED VERSION DKI/O PMN02720 0013 0000 274 | $IBSY DC *-* NON-ZERO IF CD/PAP TP DEV. BUSY PMN02730 0014 275 | $HASH BSS E 12 WORK AREA PMN02740 276 | * PMN02750 277 | * PMN02760 0020 278 | $SCAN BSS 8 1132 SCAN AREA 32 PMN02770 279 | * PMN02780 280 | * PMN02790 281 | * PMN02800 282 | * TRAP FOR PREOPERATIVE I/O ERRORS PMN02810 283 | * PMN02820 0028 0000 284 | $PRET DC *-* ENTRY POINT PMN02830 0029 3000 285 | WAIT WAIT TIL START KEY PUSHED PMN02840 002A 4C80 0028 286 | BSC I $PRET RETURN TO CALLER PMN02850 287 | * PMN02860 288 | * PMN02870 002C 0000 289 | $IREQ DC *-* ADDR OF INT REQUEST SUBROUTINE PMN02880 002D 0000 290 | $ULET DC *-* ADDR OF LET, LOGICAL DR 0 PMN02890 002E 0000 291 | DC *-* ADDR OF LET, LOGICAL DR 1 PMN02900 002F 0000 292 | DC *-* ADDR OF LET, LOGICAL DR 2 PMN02910 0030 0000 293 | DC *-* ADDR OF LET, LOGICAL DR 3 PMN02920 0031 0000 294 | DC *-* ADDR OF LET, LOGICAL DR 4 PMN02930 0032 0000 295 | $IOCT DC *-* ZERO IF NO I/O IN PROGRESS 50 PMN02940 0033 0000 296 | $LAST DC *-* NON-ZERO WHEN LAST CARD SENSED PMN02950 0034 0000 297 | $NDUP DC *-* DO NOT DUP IF NON-ZERO PMN02960 0035 0000 298 | $NXEQ DC *-* DO NOT EXECUTE IF NON-ZERO PMN02970 0036 0000 299 | $PBSY DC *-* NON-ZERO WHEN PRINTER BUSY PMN02980 0037 0000 300 | $PGCT DC *-* PAGE NO. FOR HEADINGS PMN02990 301 | * PMN03000 302 | * CALL EXIT ENTRY POINT TO SKELETON SUPERVISOR PMN03010 303 | * PMN03020 0038 7019 304 | $EXIT MDX $S000 BR TO FETCH CIL, PHASE 1 56 PMN03030 305 | * PMN03040 306 | *** CALL LINK ENTRY POINT PMN03050 307 | * PMN03060 0039 0000 308 | $LINK DC *-* ENTRY POINT 57 PMN03070 003A 1810 309 | SRA 16 PMN03080 003B 7017 310 | MDX $S100 BR TO FETCH CIL, PHASE 1 PMN03090 003C 311 | BSS E 0 PMN03100 003C 0001 312 | $S900 DC 1 DISK PARAMETERS FOR SAVING CORE PMN03110 313 | *$S900 ALSO USED AS CONSTANT 1 BY CIL PH2 2-10 PMN03111 003D 0004 314 | DC $CIBA-1 *IN CONNECTION WITH DUMP PMN03120 003E FFFF 315 | $S910 DC -1 CALL EXIT INDICATOR PMN03130 316 | *$S910 ALSO USED AS CONSTANT-1 BY CIL PH2 2-10 PMN03131 317 | * PMN03140 318 | *** SAVE 1ST 4K OF CORE ON THE CIB PMN03150 319 | * PMN03160 003F 0000 320 | $DUMP DC *-* ENTRY POINT 63 PMN03170 0040 D8D9 321 | STD $ACEX SAVE ACCUMULATOR, EXTENSION PMN03180 0041 4023 322 | BSI $S250 CHK PNDNG INTRPT 2-4 PMN03190 0042 282A 323 | STS $SSTS SAVE STATUS 2-6 PMN03200 0043 69D3 324 | STX 1 $CXR1 SAVE XR1 PMN03210 0044 C480 003F 325 | LD I $DUMP PMN03220 0046 D0D2 326 | STO $DMPF SAVE DUMP FORMAT CODE PMN03230 0047 C8F4 327 | LDD $S900 PMN03240 0048 4400 00F2 328 | BSI L DZ000 SAVE WDS 6-4095 ON CIB PMN03250 004A C0F1 329 | LD $S900 PMN03260 004B 7007 330 | MDX $S100 BR TO FETCH CIL, PHASE 1 PMN03270 331 | * 2-6 PMN03280 004C 332 | BSS 6 PATCH AREA 2-7 PMN03290 RESIDENT MONITOR 334 | * PMN03310 335 | *** FETCH CORE IMAGE LOADER, PHASE 1 PMN03320 336 | * PMN03330 0052 C0EB 337 | $S000 LD $S910 PMN03340 0053 D0C2 338 | $S100 STO $RMSW SAVE EXIT-LINK-DUMP SWITCH PMN03350 0054 6580 0039 339 | LDX I1 $LINK LINK ADDR TO XR1 PMN03360 0056 C101 340 | LD 1 1 FETCH 2ND WD OF LINK NAME PMN03370 0057 18D0 341 | RTE 16 PMN03380 0058 C100 342 | LD 1 0 FETCH 1ST WD OF LINK NAME PMN03390 343 | * $S150+1 CONTAINS ADDR LAST WD OF DISK I/O MINUS 3 PMN03400 0059 6500 0000 344 | $S150 LDX L1 *-* ADDR END OF DKI/O-1 TO XR1 PMN03410 005B D8B8 345 | STD $LKNM SAVE LINK NAME PMN03420 005C 4008 346 | BSI $S250 CHK ANY PNDNG INTRPT 2-4 PMN03430 005D C0FC 347 | LD $CILA PMN03440 005E 1890 348 | $S200 SRT 16 PMN03450 005F 4400 00F2 349 | BSI L DZ000 FETCH CI LOADER, PHASE 1 PMN03460 0061 4003 350 | BSI $S250 CHK DISK OP FINISHED 2-4 PMN03470 0062 4102 351 | BSI 1 2 BR TO CI LOADER, PHASE 1 PMN03480 352 | * PMN03490 0063 0000 353 | $GCOM DC *-* GRAPHIC SUBR PACKAGE INDR 2G2 PMN03500 0064 0000 354 | $GRIN DC *-* GRAPHIC INITLZN PROGRAM INDR 2G2 PMN03510 355 | * PMN03520 356 | *** SUBR TO CHECK IF ANY INTRPT IS PENDING PMN03530 357 | * PMN03540 0065 0000 358 | $S250 DC *-* ENTRY POINT PMN03550 0066 C0CB 359 | $S300 LD $IOCT IS THERE INTRPT PNDNG PMN03560 0067 E8A9 360 | OR $SCAT *OR SCA INTRPT PNDNG PMN03570 0068 4C20 0066 361 | BSC L $S300,Z *THEN BR,IF ALL INTRPT PMN03580 006A 0803 362 | XIO $I499 RESET 2250 2-7 PMN03590 006B 4C80 0065 363 | BSC I $S250 *IS SERVICED-RETURN PMN03600 364 | * 2-6 PMN03610 006D 2000 365 | $SSTS LDS *-* STATUS SAVED FOR DUMP 2-7 PMN03620 006E 0000 366 | $I499 DC 0 IOCC FOR RESET 2-7 PMN03630 006F CC80 367 | DC /CC80 *OF 2250 2-7 PMN03640 0070 0000 368 | $LNXQ DC *-* LINK/XEQ SW, -1 LINK,+1 XEQ 2-9 PMN03650 369 | * PMN03660 0071 0000 370 | $FLSH DC *-* FLUSH-TO-NEXT-JOB SWITCH 1=FLUSH PMN03670 0072 371 | BSS E 0 PMN03680 0072 0000 372 | $CWCT DC *-* WORD COUNT AND SECTOR ADDRESS PMN03690 0073 0000 373 | DC *-* *FOR SAVING/RESTORING COMMON PMN03700 0074 0000 374 | $CCAD DC *-* ADDR FOR SAVING/RESTORING COMMON PMN03710 0075 0000 375 | $LSAD DC *-* SCTR ADDR OF 1ST LOCAL/SOCAL PMN03720 0076 0000 376 | $DZ1N DC *-* DISKZ/1/N INDICATOR (-1,0,+1) PMN03730 0077 0000 377 | $DCDE DC *-* LOGICAL DRIVE CODE FOR PROGRAM PMN03740 0078 0000 378 | $PHSE DC *-* NO. OF PHASE NOW IN CORE PMN03750 0079 0000 379 | $UFIO DC *-* UNFORMATTED I/O RECORD NO. PMN03760 007A 0000 380 | $WSDR DC *-* WORKING STORAGE DRIVE CODE PMN03770 007B 0000 381 | $WRD1 DC *-* LOADING ADDR OF THE CORE LOAD PMN03780 007C 0000 382 | $KCSW DC *-* 1 IF KB,CP BOTH UTILIZED PMN03790 007D 0000 383 | $UFDR DC *-* UNFORMATTED I/O DRIVE CODE PMN03800 007E 0000 384 | $CPTR DC *-* CHANNEL 12 INDICATOR FOR CP PMN03810 007F 0000 385 | $1132 DC *-* CHANNEL 12 INDICATOR FOR 1132 PMN03820 0080 0000 386 | $1403 DC *-* CHANNEL 12 INDICATOR FOR 1403 PMN03830 RESIDENT MONITOR 388 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 1 PMN03850 389 | * PMN03860 0081 0000 390 | $PST1 DC *-* ENTRY POINT PMN03870 0082 3000 391 | WAIT PMN03880 0083 4C80 0081 392 | BSC I $PST1 RETURN TO DEVICE SUBROUTINE PMN03890 393 | * PMN03900 394 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 2 PMN03910 395 | * PMN03920 0085 0000 396 | $PST2 DC *-* ENTRY POINT PMN03930 0086 3000 397 | WAIT PMN03940 0087 4C80 0085 398 | BSC I $PST2 RETURN TO DEVICE SUBROUTINE PMN03950 399 | * PMN03960 400 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 3 PMN03970 401 | * PMN03980 0089 0000 402 | $PST3 DC *-* ENTRY POINT PMN03990 008A 3000 403 | WAIT PMN04000 008B 4C80 0089 404 | BSC I $PST3 RETURN TO DEVICE SUBROUTINE PMN04010 405 | * PMN04020 406 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 4 PMN04030 407 | * PMN04040 008D 0000 408 | $PST4 DC *-* ENTRY POINT PMN04050 008E 3000 409 | WAIT PMN04060 008F 4C80 008D 410 | BSC I $PST4 RETURN TO DEVICE SUBROUTINE PMN04070 411 | * PMN04080 412 | * PMN04090 413 | * PROGRAM STOP KEY TRAP PMN04100 414 | * PMN04110 0091 0000 415 | $STOP DC *-* ENTRY POINT PMN04120 0092 3000 416 | WAIT WAIT TIL START KEY PUSHED PMN04130 0093 4CC0 0091 417 | BOSC I $STOP RETURN TO CALLER PMN04140 RESIDENT MONITOR 419 | * PMN04160 420 | * PARAMETERS USED BY THE DISK I/O SUBROUTINES. THE PMN04170 421 | * LOGICAL DRIVE CODE IS FOUND IN BITS 1-3 FOR ALL PMN04180 422 | * BUT THE AREA CODE. BIT 0 WILL ALWAYS BE ZERO. PMN04190 423 | * PMN04200 424 | * PMN04210 425 | *** DISK1 AND DISKN WILL NOT WRITE BELOW THE PMN04220 426 | *** FOLLOWING SCTR ADDRESSES (EXCEPT WRITE IMMED). PMN04230 427 | * PMN04240 0095 0000 428 | $FPAD DC *-* FILE PROTECT ADDR, LOGICAL DR 0 PMN04250 0096 0000 429 | DC *-* FILE PROTECT ADDR, LOGICAL DR 1 PMN04260 0097 0000 430 | DC *-* FILE PROTECT ADDR, LOGICAL DR 2 PMN04270 0098 0000 431 | DC *-* FILE PROTECT ADDR, LOGICAL DR 3 PMN04280 0099 0000 432 | DC *-* FILE PROTECT ADDR, LOGICAL DR 4 PMN04290 433 | * PMN04300 434 | *** THE ARM POSITION IS UPDATED WHENEVER A SEEK PMN04310 435 | *** OCCURS. PMN04320 436 | * PMN04330 009A 0000 437 | $CYLN DC 0 ARM POSITION FOR LOGICAL DRIVE 0 PMN04340 009B 0000 438 | DC 0 ARM POSITION FOR LOGICAL DRIVE 1 PMN04350 009C 0000 439 | DC 0 ARM POSITION FOR LOGICAL DRIVE 2 PMN04360 009D 0000 440 | DC 0 ARM POSITION FOR LOGICAL DRIVE 3 PMN04370 009E 0000 441 | DC 0 ARM POSITION FOR LOGICAL DRIVE 4 PMN04380 442 | * PMN04390 443 | *** BELOW ARE THE DISK AREA CODES. A ZERO PMN04400 444 | *** INDICATES THE CORRESPONDING DRIVE IS NOT PMN04410 445 | *** ON THE SYSTEM PMN04420 446 | * PMN04430 009F 0000 447 | $ACDE DC *-* AREA CODE FOR LOGICAL DRIVE 0 PMN04440 00A0 0000 448 | DC *-* AREA CODE FOR LOGICAL DRIVE 1 PMN04450 00A1 0000 449 | DC *-* AREA CODE FOR LOGICAL DRIVE 2 PMN04460 00A2 0000 450 | DC *-* AREA CODE FOR LOGICAL DRIVE 3 PMN04470 00A3 0000 451 | DC *-* AREA CODE FOR LOGICAL DRIVE 4 PMN04480 452 | * PMN04490 453 | *** THE ADR OF THE CYLINDER IN WHICH A DEFECT OC- PMN04500 454 | *** CURS, IF ANY, IS STORED IN THE 1ST, 2ND, OR 3RD PMN04510 455 | *** WORD BELOW, DEPENDING ON WHETHER IT IS THE 1ST, PMN04520 456 | *** 2ND, OR 3RD DEFECT ON THE CARTRIDGE. PMN04530 457 | * PMN04540 00A4 0000 458 | $DCYL DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04550 00A5 0000 459 | DC *-* *FOR LOGICAL DRIVE 0 2 PMN04560 00A6 0000 460 | DC *-* 3 PMN04570 00A7 0000 461 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04580 00A8 0000 462 | DC *-* *FOR LOGICAL DRIVE 1 2 PMN04590 00A9 0000 463 | DC *-* 3 PMN04600 00AA 0000 464 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04610 00AB 0000 465 | DC *-* *FOR LOGICAL DRIVE 2 2 PMN04620 00AC 0000 466 | DC *-* 3 PMN04630 00AD 0000 467 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04640 00AE 0000 468 | DC *-* *FOR LOGICAL DRIVE 3 2 PMN04650 00AF 0000 469 | DC *-* 3 PMN04660 00B0 0000 470 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04670 00B1 0000 471 | DC *-* *FOR LOGICAL DRIVE 4 2 PMN04680 00B2 0000 472 | DC *-* 3 PMN04690 RESIDENT MONITOR 474 | * PMN04710 475 | * ILS02--THIS SUBROUTINE SAVES XR1, XR2, STATUS, PMN04720 476 | * AND THE ACCUMULATOR AND ITS EXTENSION. PMN04730 477 | * THE ADDRESS OF THE INTERRUPT SERVICE ROU- PMN04740 478 | * TINE IS STORED IN $I205 BY PHASE 2 OF PMN04750 479 | * THE CORE IMAGE LOADER. WORD 10 ALWAYS PMN04760 480 | * CONTAINS THE ADDRESS OF $I200. PMN04770 481 | * PMN04780 482 | * PMN04790 483 | * PMN04800 00B3 0000 484 | $I200 DC *-* ENTRY PT (LEVEL 2 INTRUPT) PMN04810 00B4 6906 485 | STX 1 $I210+1 SAVE XR1 PMN04820 00B5 6A07 486 | STX 2 $I210+3 SAVE XR2 PMN04830 00B6 2807 487 | STS $I210+4 STORE STATUS PMN04840 00B7 D80A 488 | STD $I290 SAVE ACCUMULATOR,EXTENSION PMN04850 489 | * $I205+1 CONTAINS ADDR INTERRUPT ENTRY PT TO DKI/O PMN04860 00B8 4400 0000 490 | $I205 BSI L *-* BR TO SERVICE THE INTERRUPT PMN04870 00BA 6500 0000 491 | $I210 LDX L1 *-* RESTORE XR1 PMN04880 00BC 6600 0000 492 | LDX L2 *-* RESTORE XR2 PMN04890 00BE 2000 493 | LDS 0 RESTORE STATUS PMN04900 00BF C802 494 | LDD $I290 RESTORE ACCUMULATOR,EXT PMN04910 00C0 4CC0 00B3 495 | BOSC I $I200 RETURN FROM INTERRUPT PMN04920 00C2 496 | $I290 BSS E 0 PMN04930 00C2 0000 497 | DC *-* CONTENTS OF ACCUMULATOR AND PMN04940 00C3 0000 498 | DC *-* *EXTENTION PMN04950 RESIDENT MONITOR 500 | * PMN04970 501 | * ILS04--THIS SUBROUTINE SAVES XR1, XR2, STATUS, PMN04980 502 | * AND THE ACCUMULATOR AND ITS EXTENSION. PMN04990 503 | * IF THE INTERRUPT IS FOR A KEYBOARD REQ- * PMN05000 504 | * UEST,AND IF A MONITOR PROGRAM IS IN CON- * PMN05010 505 | * TROL, CONTROL IS PASSED TO DUMP. OTHER- * PMN05020 506 | * WISE, CONTROL IS PASSED TO THE KEYBOARD/ * PMN05030 507 | * CONSOLE PRINTER SUBROUTINE. WORD 12 AL- * PMN05040 508 | * WAYS CONTAINS THE ADDRESS OF $I400. * PMN05050 509 | * PMN05060 510 | * THE TABLE BELOW CONTAINS THE ADDRESSES OF THE PMN05070 511 | * INTERRUPT SERVICE ROUTINES FOR ALL THE DEVICES PMN05080 512 | * ON LEVEL 4. PMN05090 513 | * PMN05100 514 | * PMN05110 515 | * PMN05120 00C4 0000 516 | $I400 DC *-* ENTRY POINT PMN05130 00C5 D818 517 | STD $I490 SAVE ACCUMULATOR, EXTENSION PMN05140 00C6 280E 518 | STS $I410 SAVE STATUS PMN05150 00C7 690F 519 | STX 1 $I410+2 SAVE XR1 PMN05160 00C8 6A10 520 | STX 2 $I410+4 SAVE XR2 PMN05170 00C9 0816 521 | XIO $I492 SENSE DSW PMN05180 00CA 1002 522 | SLA 2 IS THIS INTERRUPT REQUEST PMN05190 00CB 4C10 00D0 523 | BSC L $I403,- BR IF NOT INTERRUPT REQUEST PMN05200 00CD 4480 002C 524 | BSI I $IREQ BR IF INTERRUPT REQUEST PMN05210 00CF FFFE 525 | DC -2 ERROR CODE PMN05220 00D0 6109 526 | $I403 LDX 1 9 NO. DEVICES ON LEVEL TO XR1 PMN05230 00D1 0810 527 | XIO $I494 SENSE ILSW PMN05240 00D2 1140 528 | SLCA 1 FIND CAUSE OF INTERRUPT PMN05250 529 | * $I405+1 CONTAINS ADDR OF LEVEL 4 IBT MINUS 1 PMN05260 00D3 4580 0000 530 | $I405 BSI I1 *-* BR TO SERVICE THE INTERRUPT PMN05270 00D5 2000 531 | $I410 LDS 0 RESTORE STATUS PMN05280 00D6 6500 0000 532 | LDX L1 *-* RESTORE XR1 PMN05290 00D8 6600 0000 533 | LDX L2 *-* RESTORE XR2 PMN05300 00DA C803 534 | LDD $I490 RESTORE ACCUMULATOR, EXT. PMN05310 00DB 4CC0 00C4 535 | BOSC I $I400 RETURN PMN05320 536 | * PMN05330 537 | * CONSTANTS AND WORK AREAS PMN05340 538 | * EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES PMN05350 539 | * PMN05360 00DD 0000 540 | $DDSW DC *-* DSW FOR THE DISK PMN05370 00DE 541 | $I490 BSS E 2 CONTENTS OF ACCUMULATOR, EXT. PMN05380 00E0 0000 542 | $I492 DC *-* PMN05390 00E0 543 | $SYSC EQU *-1 VERSION AND MOD NO. PMN05400 00E1 0F00 544 | DC /0F00 IOCC FOR SENSE IOCC FOR KB/CP PMN05410 00E2 545 | $I494 BSS 1 PATCH AREA PMN05420 00E3 0300 546 | DC /0300 IOCC FOR SENSING ILSW04 PMN05430 RESIDENT MONITOR 548 | * 2-2 PMN05450 549 | * 2-2 PMN05460 00E4 0000 550 | $I496 DC *-* XR3 SETTING DURING XEQ 2-2 PMN05470 00E5 0F01 551 | DC /0F01 SENSE KEY BOARD W RESET2-2 PMN05480 552 | * 2-2 PMN05490 00E6 0000 553 | $I420 DC *-* ENTRY POINT FLUSH JOB 2-2 PMN05500 00E7 08FC 554 | XIO $I496 SENSE KEY BOARD W RESET2-2 PMN05510 00E8 4C40 00EA 555 | BOSC L $I425 TURN OF INTERRUPT 2-2 PMN05520 00EA 4400 003F 556 | $I425 BSI L $DUMP BR TO $DUMP 2-7 PMN05530 00EC FFFE 557 | DC -2 CALLING AUX SUP 2-7 PMN05540 558 | * 2-2 PMN05550 00ED 559 | BSS 1 PATCH AREA 2-7 PMN05560 00EE 0000 560 | $DBSY DC *-* NON-ZERO WHEN DISK I/O BUSY PMN05570 DISKZ 562 | *************************************************** PMN05590 563 | * * PMN05600 564 | *STATUS - VERSION 2, MODIFICATION 11 * PMN05610 565 | * * PMN05620 566 | *PROGRAM NAME- * PMN05630 567 | * *FULL NAME-FORTRAN/SYSTEM DISK I/O SUBROUTINE * PMN05640 568 | * *CALLING SEQUENCE- * PMN05650 569 | * LDD PARAM * PMN05660 570 | * BSI L DZ000 * PMN05670 571 | * WHERE PARAM IS THE LABEL OF A DOUBLE-WORD * PMN05680 572 | * CELL CONTAINING THE FUNCTION CODE AND THE * PMN05690 573 | * ADDR OF THE I/O BUFFER,I.E., ADDR OF WD CNT. * PMN05700 574 | * SEE 'CAPABILITIES' FOR DISCUSSION OF PARAM- * PMN05710 575 | * ETERS. * PMN05720 576 | * PMN05730 577 | *PURPOSE- * PMN05740 578 | * TO PROVIDE A SUBROUTINE TO PERFORM DISK OPERA-* PMN05750 579 | * TIONS. THIS SUBROUTINE IS INTENDED FOR USE BY * PMN05760 580 | * MONITOR PROGRAMS AND USER PROGRAMS WRITTEN IN * PMN05770 581 | * FORTRAN. THUS,IT IS INTENDED FOR USE IN AN * PMN05780 582 | * ERROR-FREE ENVIRONMENT. * PMN05790 583 | * * PMN05800 584 | *METHOD- * PMN05810 585 | * DISKZ REQUIRES A BUFFER,THE LENGTH OF WHICH IS* PMN05820 586 | * 2 GREATER THAN THE NO. WORDS TO BE READ/WRIT- * PMN05830 587 | * TEN. * PMN05840 588 | * * PMN05850 589 | *CAPABILITIES AND LIMITATIONS- * PMN05860 590 | * THE WD CNT,AS WELL AS DZ000,MUST BE ON AN EVEN* PMN05870 591 | * BOUNDARY,MUST BE IN THE RANGE 0-32767. THE * PMN05880 592 | * DRIVE CODE MUST BE IN BITS 1-3 OF THE SECTOR * PMN05890 593 | * ADDR,WHICH FOLLOWS THE WD CNT. THE FUNCTION * PMN05900 594 | * INDICATOR MUST BE XX00 FOR A READ OR XX01 FOR * PMN05910 595 | * A WRITE,WHERE 'XX' MEANS ANY 2 HEXADECIMAL * PMN05920 596 | * CHARACTERS. A WD CNT OF ZERO INDICATES A SEEK.* PMN05930 597 | * (READ OR WRITE MAY BE INDICATED.) AUTOMATIC * PMN05940 598 | * SEEKING IS PROVIDED AS A PART OF READ/WRITE. * PMN05950 599 | * A WRITE IS ALWAYS WITH A READ-BACK-CHECK. * PMN05960 600 | * DISKZ MAKES NO PREOPERATIVE PARAMETER CHECKS. * PMN05970 601 | * * PMN05980 602 | *SPECIAL FEATURES- * PMN05990 603 | * DISKZ PROVIDES ONLY THOSE FUNCTIONS MENTIONED * PMN06000 604 | * ABOVE. DISK1 AND DISKN OFFER THIS BASIC SET OF* PMN06010 605 | * FUNCTIONS PLUS OTHERS. * PMN06020 606 | * * PMN06030 607 | *************************************************** PMN06040 DISKZ 609 | * PROVIDE PARAMETERS FOR SYSTEM LOADER PMN06060 610 | * PMN06070 00F0 611 | BSS E 0 PMN06080 00F0 00EF 612 | DC $ZEND-* DISKZ WORD COUNT PMN06090 00F1 FF6A 613 | DC -@DZID PHASE ID PMN06100 00F2 00E8 614 | DC $ZEND-6-*+1 ADDR OF SLET EXTRACT PMN06110 00F3 0001 615 | DC 1 NO. ENTRIES IN SLET EXTRACT PMN06120 00F2 616 | ORG *-2 PMN06130 DISKZ 00F2 0000 618 | DZ000 DC *-* ENTRY POINT PMN06150 00F3 7400 00EE 619 | MDX L $DBSY,0 LOOP UNTIL OPERATION IN PMN06160 00F5 70FD 620 | MDX *-3 *PROGRESS IS COMPLETE PMN06170 00F6 7002 621 | MDX DZ020 BR AROUND INT ENTRY POINT PMN06180 622 | * PMN06190 623 | * INTERRUPT ENTRY POINT PMN06200 624 | * PMN06210 00F7 0000 625 | DZ010 DC *-* INTERRUPT ADDRESS PMN06220 00F8 7018 626 | MDX DZ180 BR TO SERVICE INTERRUPT PMN06230 00F9 690B 627 | DZ020 STX 1 DZ100+1 SAVE XR1 PMN06240 00FA 6A0C 628 | STX 2 DZ100+3 SAVE XR2 PMN06250 00FB 1008 629 | SLA 8 SHIFT INDICATOR 8 BITS PMN06260 00FC D03C 630 | STO DZ945 SAVE FUNCTION INDICATOR PMN06270 00FD 18D0 631 | RTE 16 PMN06280 00FE D05A 632 | STO DZ235+1 SAVE ADDR OF THE I/O AREA PMN06290 00FF 7054 633 | MDX DZ230 BR TO CONTINUE PMN06300 0100 4C00 0000 634 | DZ060 BSC L *-* BR TO SERVICE THE INTERRUPT PMN06310 635 | * PMN06320 636 | * START ALL DISK OPERATIONS PMN06330 637 | * PMN06340 0102 690F 638 | DZ070 STX 1 DZ180+1 SAVE ADDR OF THE I/O AREA PMN06350 0103 0822 639 | XIO DZ904 START AN OPERATION PMN06360 640 | * PMN06370 641 | * RETURN TO USER PMN06380 642 | * PMN06390 0104 6500 0000 643 | DZ100 LDX L1 *-* RESTORE XR1 PMN06400 0106 6600 0000 644 | LDX L2 *-* RESTORE XR2 PMN06410 0108 C0EE 645 | LD DZ010 INTERRUPT ENTRY 2-6 PMN06420 0109 4C98 00F2 646 | BSC I DZ000,+- NO,MONITOR ENTRY 2-6 PMN06430 010B D003 647 | STO DZ110+1 YES,INT ENTRY 2-6 PMN06440 010C 1810 648 | SRA 16 RESET 2-6 PMN06450 010D D0E9 649 | STO DZ010 *INT ENTRY 2-6 PMN06460 010E 4C00 0000 650 | DZ110 BSC L *-* 2-6 PMN06470 0110 1000 651 | NOP DUMMY OP 2-6 PMN06480 652 | * PMN06490 653 | * SERVICE ALL INTERRUPTS PMN06500 654 | * PMN06510 0111 6500 0000 655 | DZ180 LDX L1 *-* ADDR OF I/O AREA TO XR1 PMN06520 0113 6600 00F2 656 | LDX L2 DZ000 ADDR OF DZ000 TO XR2 PMN06530 0115 0816 657 | XIO DZ910 SENSE THE DSW PMN06540 0116 D0C6 658 | STO $DDSW SAVE THE DSW PMN06550 0117 4810 659 | BSC - SKIP IF ERROR BIT SET 2-6 PMN06560 0118 70E7 660 | MDX DZ060 BRANCH IF ERROR BIT NOT SET PMN06570 0119 C80A 661 | DZ185 LDD DZ902 RESTORE WORD COUNT PMN06580 011A D900 662 | STD 1 0 *AND SECTOR ADDRESS PMN06590 011B 74FF 00EE 663 | MDX L $DBSY,-1 SKIP IF 16 RETRIES DONE PMN06600 011D 703A 664 | MDX DZ235 BRANCH IF LESS THAN 16 PMN06610 665 | * PMN06620 666 | * TRAP OUT TO POSTOPERATIVE TRAP PMN06630 667 | * PMN06640 011E C80F 668 | LDD DZ912 1+SCTR ADDR TO EXTENSION PMN06650 011F C011 669 | LD DZ915 PMN06660 0120 4293 670 | DZ190 BSI 2 $PST2-X2 BR TO POSTOPERATIVE ER TRAP PMN06670 0121 7034 671 | MDX DZ232 RETRY OPERATION 2-6 PMN06680 672 | * PMN06690 673 | * CONSTANTS AND WORK AREAS PMN06700 674 | * PMN06710 0122 675 | BSS E 0 PMN06720 676 | * EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES PMN06730 0122 0001 677 | DZ900 DC 1 CONSTANT,READ-AFTER-SEEK WD CNT PMN06740 0123 0000 678 | DZ901 DC 0 CURRENT ARM POSITION PMN06750 0124 0000 679 | DZ902 DC *-* LAST TWO WORDS OF SECTOR PMN06760 0125 0000 680 | DC *-* *PREVIOUSLY READ PMN06770 0126 0000 681 | DZ904 DC *-* IOCC FOR OPERATION CURRENTLY PMN06780 0127 0000 682 | DZ905 DC *-* *BEING PERFORMED PMN06790 0128 0000 683 | DZ906 DC *-* SAVE AREA FOR IOCC FOR PMN06800 0129 0000 684 | DZ907 DC *-* *USER-REQUESTED OPERATION PMN06810 012A 0122 685 | DZ908 DC DZ900 IOCC FOR READ PMN06820 012B 0000 686 | DZ909 DC *-* *AFTER SEEK PMN06830 012C 0000 687 | DZ910 DC *-* 2ND WORD OF SEEK IOCC PMN06840 012D 0000 688 | DZ911 DC *-* SENSE IOCC PMN06850 012E 0000 689 | DZ912 DC *-* INTERMEDIATE WORD COUNT PMN06860 012F 0000 690 | DZ913 DC *-* ADDR OF NEXT SEQUENTIAL SECTOR PMN06870 0130 5002 691 | DZ914 DC /5002 WRITE SELECT/POWER UNSAFE INDR PMN06880 0131 5004 692 | DZ915 DC /5004 READ/WRITE/SEEK ERROR INDICATOR PMN06890 0132 FEC0 693 | DZ916 DC -320 TO BE USED TO SIMULTANEOUSLY PMN06900 0133 0001 694 | DC 1 *DECR WD CNT, INCR SCTR ADDR PMN06910 0134 0080 695 | DZ920 DC /0080 READ CHECK BIT FOR IOCC PMN06920 0135 0600 696 | DZ925 DC /0600 2ND WD OF READ IOCC W/O AREA CD PMN06930 0136 0008 697 | DZ930 DC 8 NO. SECTORS PER CYLINDER PMN06940 0137 5000 698 | DZ935 DC /5000 NOT READY DISPLAY CODE PMN06950 0138 0FF8 699 | DZ940 DC /0FF8 'AND' OUT DR CODE, SCTR ADDR PMN06960 0139 0000 700 | DZ945 DC *-* FUNC INDICATOR (0=READ,1=WRITE) PMN06970 013A 0701 701 | DZ950 DC /0701 SENSE IOCC W/O AREA CODE PMN06980 013B 0007 702 | DZ955 DC /0007 'AND' OUT ALL BUT SCTR NO. PMN06990 013C 000A 703 | DZ960 DC $DCYL-$CYLN BASE DEFECTIVE CYL ADDR PMN07000 013D 009F 704 | DZ965 DC $ACDE BASE AREA CODE ADDR PMN07010 013E FFFB 705 | DZ970 DC $CYLN-$ACDE BASE ARM POSITION ADDR PMN07020 013F 0000 706 | DZ975 DC *-* 2ND WORD OF READ CHECK IOCC PMN07030 0140 0400 707 | DZ980 DC /0400 2ND WD OF SEEK IOCC W/O AREA CD PMN07040 0141 0141 708 | DZ985 DC 321 NO. WORDS PER SECTOR (W/ ADDR) PMN07050 0142 0000 709 | DZ990 DC *-* CURRENT SECTOR NO. PMN07060 0143 FFFF 710 | DZ995 DC -1 MASK FOR COMPLEMENTING PMN07070 711 | * PMN07080 712 | * RESERVED FOR SAVING CORE ON A DUMP ENTRY TO SKEL PMN07090 713 | * PMN07100 0144 714 | BSS 2 THIS AREA MUST BE AT $CIBA+319 PMN07110 00F2 715 | X2 EQU DZ000 PMN07120 716 | * PMN07130 717 | * PMN07140 718 | * PMN07150 0146 1810 719 | DZ210 SRA 16 PMN07160 0147 D0A6 720 | STO $DBSY CLEAR BUSY INDICATOR PMN07170 0148 74FF 0032 721 | MDX L $IOCT,-1 DECREMENT IOCS COUNTER PMN07180 014A 1000 722 | NOP PMN07190 014B 70B8 723 | MDX DZ100 TO EXIT PMN07200 724 | * PMN07210 725 | * PREPARE TO TRAP OUT ON 'POWER UNSAFE' CONDITION PMN07220 726 | * PMN07230 014C C8D7 727 | DZ215 LDD DZ902 RESTORE WORD COUNT 2-6 PMN07240 014D D900 728 | STD 1 0 *AND SECTOR ADDRES 2-6 PMN07250 014E C0E1 729 | LD DZ914 PMN07260 014F 70D0 730 | MDX DZ190 BR TO TPAP OUT PMN07270 731 | * PMN07280 732 | * PREPARE TO TRAP OUT ON 'NOT READY' CONDITION PMN07290 733 | * PMN07300 0150 C0E6 734 | DZ220 LD DZ935 FETCH ERROR CODE PMN07310 0151 4400 0028 735 | BSI L $PRET BR TO PREOPERATIVE ERR TRAP PMN07320 0153 7038 736 | MDX DZ340 RETRY THE OPERATION PMN07330 737 | * PMN07340 738 | * STATEMENTS MOVED 2-1 PMN07350 739 | * PMN07360 0154 7401 0032 740 | DZ230 MDX L $IOCT,1 INCREMENT IOCS COUNTER PMN07370 0156 6211 741 | DZ232 LDX 2 @TCNT TURN BUSY INDICATOR ON 2-10 PMN07380 0157 6A96 742 | STX 2 $DBSY * 2-6 PMN07390 0158 6500 0000 743 | DZ235 LDX L1 *-* ADDR I/O AREA TO XR1 PMN07400 015A C900 744 | LDD 1 0 PMN07410 015B D8C8 745 | STD DZ902 SAVE WORD COUNT, SCTR ADDR PMN07420 015C D8D1 746 | STD DZ912 PMN07430 015D 1810 747 | DZ240 SRA 16 PMN07440 015E 1084 748 | SLT 4 DRIVE CODE IN BITS 12-15 PMN07450 015F D00E 749 | STO DZ280+1 PMN07460 0160 80DC 750 | A DZ965 COMPUTE AND STORE THE PMN07470 0161 D01C 751 | STO DZ330+1 *ADDR OF THE AREA CODE PMN07480 0162 80DB 752 | A DZ970 COMPUTE AND STORE THE PMN07490 0163 D034 753 | STO DZ350+1 *ADDR OF THE ARM POSITION PMN07500 0164 80D7 754 | A DZ960 ADD IN BASE DT ADDR PMN07510 0165 8008 755 | A DZ280+1 ADD IN THE DRIVE PMN07520 0166 8007 756 | A DZ280+1 *CODE TWICE MORE PMN07530 0167 D006 757 | STO DZ280+1 PMN07540 0168 62FD 758 | LDX 2 -3 INITIALIZE COUNTER FOR LOOP PMN07550 0169 69BE 759 | STX 1 DZ906 PMN07560 016A C101 760 | LD 1 1 FETCH DESIRED SECTOR ADDR PMN07570 016B E0CC 761 | AND DZ940 'AND' OUT SECTOR NO. PMN07580 016C D101 762 | DZ250 STO 1 1 *AND DRIVE CODE PMN07590 016D 9400 0000 763 | DZ280 S L *-* SUB DEFECTIVE CYLINDER ADDR PMN07600 016F 4828 764 | BSC Z+ SKIP IF BAD CYLINDER PMN07610 0170 7007 765 | MDX DZ300 BR TO CONTINUE PROCESSING PMN07620 0171 C101 766 | LD 1 1 PMN07630 0172 80C3 767 | A DZ930 INCREMENT SCTR ADDR BY 8 PMN07640 0173 7401 016E 768 | MDX L DZ280+1,1 POINT TO NEXT DEFECTIVE CYL PMN07650 0175 7201 769 | MDX 2 1 SKIP AFTER 3RD PASS PMN07660 0176 70F5 770 | MDX DZ250 COMPARE W/ NEXT DEF CYL ADR PMN07670 0177 D101 771 | STO 1 1 SCTR ADDR WITH 3 DEF CYL2-4 PMN07680 772 | * PMN07690 773 | * CONSTRUCT THE 2ND WORD OF ALL IOCC'S PMN07700 774 | * PMN07710 0178 6600 00F2 775 | DZ300 LDX L2 DZ000 ADDR OF DZ000 TO XR2 PMN07720 017A C23D 776 | LD 2 DZ913-X2 FETCH SECTOR ADDRESS PMN07730 017B E249 777 | AND 2 DZ955-X2 'AND' OUT ALL BUT SECTOR NO PMN07740 017C D250 778 | STO 2 DZ990-X2 SAVE SECTOR NO. PMN07750 017D C400 0000 779 | DZ330 LD L *-* FETCH AREA CODE PMN07760 017F EA4E 780 | OR 2 DZ980-X2 'OR' IN SEEK FUNCTION CODE PMN07770 0180 D23A 781 | STO 2 DZ910-X2 SEEK IOCC MINUS DIRECTION PMN07780 0181 EA43 782 | OR 2 DZ925-X2 'OR' IN READ FUNCTION CODE PMN07790 0182 D239 783 | STO 2 DZ909-X2 IOCC FOR READ-AFTER-SEEK PMN07800 0183 EA50 784 | OR 2 DZ990-X2 'OR' IN SECTOR NO. PMN07810 0184 9247 785 | S 2 DZ945-X2 COMPLETE READ/WRITE CODE PMN07820 0185 D237 786 | STO 2 DZ907-X2 2ND WD OF READ/WRITE IOCC PMN07830 0186 EA42 787 | OR 2 DZ920-X2 'OR' IN READ CHECK BIT PMN07840 0187 8247 788 | A 2 DZ945-X2 PMN07850 0188 D24D 789 | STO 2 DZ975-X2 2ND WD OF READ CHECK IOCC PMN07860 0189 EA48 790 | OR 2 DZ950-X2 'OR' IN SENSE IOCC BITS PMN07870 018A D23B 791 | STO 2 DZ911-X2 COMPLETED SENSE IOCC PMN07880 018B CA3C 792 | LDD 2 DZ912-X2 1+SCTR ADDR TO EXTENSION PMN07890 018C 0A3A 793 | DZ340 XIO 2 DZ910-X2 SENSE FOR DISK READY PMN07900 018D D2EB 794 | STO 2 $DDSW-X2 SAVE THE DSW PMN07910 018E 4828 795 | BSC Z+ SKIP UNLESS POWER UNSAFE OR PMN07920 018F 70BC 796 | MDX DZ215 *WRITE SELECT, BR OTHERWISE PMN07930 0190 1002 797 | SLA 2 BR TO PREOPERATIVE ERR TRAP PMN07940 0191 4828 798 | BSC Z+ *IF DISK NOT READY, SKIP PMN07950 0192 70BD 799 | MDX DZ220 *OTHERWISE PMN07960 800 | * STATEMENTS REMOVED 2-1 PMN07970 0193 1002 801 | SLA 2 CHECK FOR ARM AT HOME 2-11 PMN07980 0194 4828 802 | BSC +Z SKIP IF NOT HOME 2-11 PMN07990 0195 7010 803 | MDX DZ390+1 BR TO VERIFY ARM AT HOM2-11 PMN08000 804 | * 2-11 PMN08010 805 | * 3 INSTRUCTIONS REMOVED 2-11 PMN08020 806 | * 2-11 PMN08025 0196 C101 807 | LD 1 1 FETCH DESIRED CYLINDER ADDR PMN08030 0197 9400 0000 808 | DZ350 S L *-* SUBTRACT ARM POSITION PMN08040 0199 4818 809 | BSC +- SKIP IF SEEK NECESSARY PMN08050 019A 701B 810 | MDX DZ400 BRANCH TO PERFORM OPERATION PMN08060 811 | * PMN08070 812 | * SEEK PMN08080 813 | * PMN08090 019B 1893 814 | SRT 19 PUT NO. CYLINDERS IN EXT PMN08100 019C 180F 815 | SRA 15 + OR - SIGN TO BIT 15 PMN08110 019D 1002 816 | SLA 2 SHIFT SIGN TO BIT 13 PMN08120 019E EA3A 817 | OR 2 DZ910-X2 "OR" IN REMAINDER OF IOCC PMN08130 019F 18D0 818 | RTE 16 PMN08140 01A0 4810 819 | BSC - SKIP IF SEEK TOWARD HOME PMN08150 01A1 7002 820 | MDX DZ380 BRANCH IF SEEK TOWARD CENTR PMN08160 01A2 F251 821 | EOR 2 DZ995-X2 COMPLEMENT NO. CYLS TO BE PMN08170 01A3 8230 822 | A 2 DZ900-X2 *SOUGHT TO GET POSITIVE NO. PMN08180 01A4 DA34 823 | DZ380 STD 2 DZ904-X2 PMN08190 01A5 420F 824 | DZ390 BSI 2 DZ070-1-X2 START SEEK 2-1 PMN08200 825 | * PMN08210 826 | * SEEK COMPLETE INTERRUPT PROCESSING PMN08220 827 | * PMN08230 01A6 CA38 828 | LDD 2 DZ908-X2 SET UP IOCC FOR PMN08240 01A7 DA34 829 | STD 2 DZ904-X2 *READ AFTER SEEK PMN08250 01A8 420F 830 | BSI 2 DZ070-1-X2 START READ-AFTER-SEEK PMN08260 831 | * PMN08270 832 | * READ-AFTER-SEEK COMPLETE INTERRUPT PROCESSING PMN08280 833 | * PMN08290 01A9 C231 834 | LD 2 DZ901-X2 FETCH ADR OF SCTR JUST READ PMN08300 01AA D480 0198 835 | STO I DZ350+1 UPDATE ARM POSITION PMN08310 01AC 9101 836 | S 1 1 SUB DESIRED SCTR ADDR PMN08320 01AD 4C18 01B6 837 | BSC L DZ400,+- BR IF SEEK SUCCESSFUL 2-11 PMN08330 01AF 74FF 00EE 838 | MDX L $DBSY,-1 SKIP IF NO MORE RETRIES2-11 PMN08332 01B1 70E4 839 | MDX DZ350-1 BR TO CALC NEW SEEK 2-11 PMN08334 01B2 7401 00EE 840 | MDX L $DBSY,1 PREVENT A MINUS $DBSY 2-11 PMN08336 01B4 4C00 0119 841 | BSC L DZ185 BR TO TRAP OUT 2-11 PMN08338 842 | * PMN08340 843 | * PMN08350 844 | * READ/WRITE PMN08360 845 | * PMN08370 01B6 CA3C 846 | DZ400 LDD 2 DZ912-X2 FETCH INTERMEDIATE WD CNT PMN08380 01B7 4808 847 | BSC + SKIP, WD CNT NOT EXHAUSTED PMN08390 01B8 7011 848 | MDX DZ410 BR IF WD CNT EXHAUSTED 2-11 PMN08400 01B9 8A40 849 | AD 2 DZ916-X2 DECREMENT WORD COUNT AND PMN08410 01BA DA3C 850 | STD 2 DZ912-X2 *INCREMENT SECTOR ADDRESS PMN08420 01BB 4830 851 | BSC Z- SKIP IF THIS IS LAST SECTOR PMN08430 01BC 1810 852 | SRA 16 CLEAR ACCUMULATOR PMN08440 01BD 824F 853 | A 2 DZ985-X2 ADD BACK 321 TO WD CNT PMN08450 01BE D100 854 | STO 1 0 STORE RESULT IN I/O AREA PMN08460 01BF CA36 855 | LDD 2 DZ906-X2 RESTORE IOCC FOR ORIGINALLY PMN08470 01C0 DA34 856 | STD 2 DZ904-X2 *REQUESTED OPERATION PMN08480 01C1 C101 857 | LD 1 1 ADD SECTOR NO. TO SECTOR PMN08490 01C2 EA50 858 | OR 2 DZ990-X2 *ADDRESS PMN08500 01C3 D101 859 | STO 1 1 PMN08510 01C4 420F 860 | BSI 2 DZ070-1-X2 START READ/WRITE OPERATION PMN08520 861 | * PMN08530 862 | * READ/WRITE COMPLETE INTERRUPT PROCESSING PMN08540 863 | * PMN08550 01C5 C24D 864 | LD 2 DZ975-X2 SET UP FOR READ CHECK PMN08560 01C6 D235 865 | STO 2 DZ905-X2 PMN08570 01C7 C247 866 | LD 2 DZ945-X2 FETCH FUNCTION INDICATOR PMN08580 01C8 4820 867 | BSC Z SKIP IF READ REQUESTED PMN08590 01C9 420F 868 | BSI 2 DZ070-1-X2 START READ CHECK OPERATION PMN08600 01CA CA32 869 | DZ410 LDD 2 DZ902-X2 RESTORE LST 2 WDS, SEC-2-11 PMN08610 01CB D900 870 | STD 1 0 *TOR PREVIOUSLY READ PMN08620 01CC C23C 871 | LD 2 DZ912-X2 FETCH INTERMEDIATE WD CNT PMN08630 872 | * SHORT BSC AND MDX CHANGED TO FOLLOWING BSC L 2-11 PMN08640 01CD 4C08 0146 873 | BSC L DZ210,+ BR IF WD CNT EXHAUSTED 2-11 PMN08650 01CF 7500 0140 874 | MDX L1 320 POINT XR1 TO NEW I/O AREA PMN08660 01D1 C900 875 | LDD 1 0 SAVE LAST 2 WDS OF SECTOR PMN08670 01D2 DA32 876 | STD 2 DZ902-X2 *JUST READ/WRITTEN PMN08680 01D3 CA3C 877 | LDD 2 DZ912-X2 WD CNT, SCTR ADDR NEXT OP PMN08690 01D4 D900 878 | STD 1 0 STORE BOTH IN NEW I/O AREA PMN08700 01D5 7087 879 | MDX DZ240 BACK TO SET UP NEXT OPERATN PMN08710 880 | * PMN08720 881 | * PMN08730 01E0 882 | $ZEND EQU /01E0 1 + END OF DISKZ 2-11 PMN08735 01D6 883 | BSS $ZEND-*-6 PATCH AREA 2-11 PMN08740 884 | * PMN08750 885 | * PMN08760 01DA 00A0 886 | DC @CIL1 ID NO. OF CORE IMAGE LDR,P1 PMN08770 01DB 0000 887 | $CIDN DC *-* CORE ADDR/CID NO. PMN08780 01DC 0000 888 | DC *-* WORD COUNT PMN08790 01DD 0000 889 | DC *-* SCTR ADDR PMN08800 01DE 890 | BSS 2 WD CNT, SCTR ADDR CORE LDS PMN08810 891 | * $ZEND EQUATE MOVED 2-11 PMN08820 EQUIVALENCES 893 | * PMN08840 894 | * EQUIVALENCES FOR DCOM PARAMETERS PMN08850 895 | * PMN08860 0004 896 | #NAME EQU 4 NAME OF PROGRAM/CORE LOAD PMN08870 0006 897 | #DBCT EQU 6 BLOCK CT OF PROGRAM/CORE LOAD PMN08880 0007 898 | #FCNT EQU 7 FILES SWITCH PMN08890 0008 899 | #SYSC EQU 8 SYSTEM/NON-SYSTEM CARTRIDGE INDR PMN08900 0009 900 | #JBSW EQU 9 JOBT SWITCH PMN08910 000A 901 | #CBSW EQU 10 CLB-RETURN SWITCH PMN08920 000B 902 | #LCNT EQU 11 NO. OF LOCALS PMN08930 000C 903 | #MPSW EQU 12 CORE MAP SWITCH PMN08940 000D 904 | #MDF1 EQU 13 NO. DUP CTRL RECORDS (MODIF) PMN08950 000E 905 | #MDF2 EQU 14 ADDR OF MODIF BUFFER PMN08960 000F 906 | #NCNT EQU 15 NO. OF NOCALS PMN08970 0010 907 | #ENTY EQU 16 RLTV ENTRY ADDR OF PROGRAM PMN08980 0011 908 | #RP67 EQU 17 1442-5 SWITCH PMN08990 0012 909 | #TODR EQU 18 OBJECT WORK STORAGE DRIVE CODE PMN09000 0014 910 | #FHOL EQU 20 ADDR LARGEST HOLE IN FIXED AREA PMN09010 0015 911 | #FSZE EQU 21 BLK CNT LARGEST HOLE IN FXA PMN09020 0016 912 | #UHOL EQU 22 ADDR LAST HOLE IN USER AREA 2-10 PMN09030 0017 913 | #USZE EQU 23 BLK CNT LAST HOLE IN UA 2-10 PMN09040 0018 914 | #DCSW EQU 24 DUP CALL SWITCH PMN09050 0019 915 | #PIOD EQU 25 PRINCIPAL I/O DEVICE INDICATOR PMN09060 001A 916 | #PPTR EQU 26 PRINCIPAL PRINT DEVICE INDICATOR PMN09070 001B 917 | #CIAD EQU 27 RLTV ADDR IN @STRT OF CIL ADDR PMN09080 001C 918 | #ACIN EQU 28 AVAILABLE CARTRIDGE INDICATOR PMN09090 001D 919 | #GRPH EQU 29 2250 INDICATOR 2G2 PMN09100 001E 920 | #GCNT EQU 30 NO. G2250 RECORDS 2G2 PMN09110 001F 921 | #LOSW EQU 31 LOCAL-CALLS-LOCAL SWITCH 2-2 PMN09120 0020 922 | #X3SW EQU 32 SPECIAL ILS SWITCH 2-2 PMN09130 0021 923 | #ECNT EQU 33 NO. OF *EQUAT RCDS 2-4 PMN09140 0023 924 | #ANDU EQU 35 1+BLK ADDR END OF UA (ADJUSTED) PMN09150 0028 925 | #BNDU EQU 40 1+BLK ADDR END OF UA (BASE) PMN09160 002D 926 | #FPAD EQU 45 FILE PROTECT ADDR PMN09170 0032 927 | #PCID EQU 50 CARTRIDGE ID, PHYSICAL DRIVE PMN09180 0037 928 | #CIDN EQU 55 CARTRIDGE ID, LOGICAL DRIVE PMN09190 003C 929 | #CIBA EQU 60 SCTR ADDR OF CIB PMN09200 0041 930 | #SCRA EQU 65 SCTR ADDR OF SCRA PMN09210 0046 931 | #FMAT EQU 70 FORMAT OF PROG IN WORKING STG PMN09220 004B 932 | #FLET EQU 75 SCTR ADDR 1ST SCTR OF FLET PMN09230 0050 933 | #ULET EQU 80 SCTR ADDR 1ST SCTR OF LET PMN09240 0055 934 | #WSCT EQU 85 BLK CNT OF PROG IN WORKING STG PMN09250 005A 935 | #CSHN EQU 90 NO. SCTRS IN CUSHION AREA PMN09260 936 | * PMN09270 937 | * EQUIVALENCES FOR PHASE ID NUMBERS PMN09280 938 | * PMN09290 006E 939 | @MCRA EQU 110 PHASE ID FOR MCRA PMN09300 0073 940 | @SUP6 EQU 115 PHASE ID FOR DUMP PROG 2-10 PMN09310 0074 941 | @SUP7 EQU 116 PHASE ID FOR AUX SUPV 2-10 PMN09320 0078 942 | @CLB0 EQU 120 PHASE ID FOR CLB, PHASE 0/1 PMN09330 008C 943 | @1403 EQU 140 PHASE ID FOR SYS 1403 SUBR PMN09340 008D 944 | @1132 EQU 141 PHASE ID FOR SYS 1132 SUBR PMN09350 008E 945 | @CPTR EQU 142 PHASE ID FOR SYS CP SUBR PMN09360 008F 946 | @2501 EQU 143 PHASE ID FOR SYS 2501 SUBR PMN09370 0090 947 | @1442 EQU 144 PHASE ID FOR SYS 1442 SUBR PMN09380 0091 948 | @1134 EQU 145 PHASE ID FOR SYS 1134 SUBR PMN09390 0092 949 | @KBCP EQU 146 PHASE ID FOR SYS KB/CP SUBR PMN09400 0093 950 | @CDCV EQU 147 PHASE ID FOR SYS CD CONV PMN09410 0094 951 | @PTCV EQU 148 PHASE ID FOR SYS 1134 CONV PMN09420 0095 952 | @KBCV EQU 149 PHASE ID FOR SYS KB CONV PMN09430 0096 953 | @DZID EQU 150 PHASE ID FOR DISKZ PMN09440 0097 954 | @D1ID EQU 151 PHASE ID FOR DISKI PMN09450 0098 955 | @DNID EQU 152 PHASE ID FOR DISKN PMN09460 00A0 956 | @CIL1 EQU 160 PHASE ID FOR CI LOADER,PH 1 PMN09470 00A1 957 | @CIL2 EQU 161 PHASE ID FOR CI LOADER,PH 2 PMN09480 958 | * PMN09490 959 | * EQUIVALENCES FOR RESIDENT MONITOR PMN09500 960 | * PMN09510 0014 961 | $LKNM EQU $HASH SAVE AREA FOR NAME OF LINK PMN09520 0016 962 | $RMSW EQU $HASH+2 EXIT-LINK-DUMP SW(-1,0,+1) PMN09530 0017 963 | $CXR1 EQU $HASH+3 SAVE AREA FOR XR1 PMN09540 0018 964 | $CLSW EQU $HASH+4 SW FOR CORE IMAGE LDR,PH 2 PMN09550 0019 965 | $DMPF EQU $HASH+5 DUMP FORMAT CODE PMN09560 001A 966 | $ACEX EQU $HASH+6 ACC AND EXT WHEN ENTER DUMP PMN09570 005A 967 | $CILA EQU $S150+1 ADDR OF END OF DK I/O - 3 PMN09580 00B9 968 | $IBT2 EQU $I205+1 ADR OF SERVICE PART OF DKIO PMN09590 00D4 969 | $IBT4 EQU $I405+1 ADDR OF THE IBT PMN09600 00EF 970 | $SNLT EQU $DBSY+1 SENSE LIGHT INDICATOR PMN09610 00F0 971 | $PAUS EQU DZ000-2 PAUSE,INTERRUPT INDICATOR PMN09620 00F1 972 | $RWCZ EQU DZ000-1 READ/WRITE SWITCH (CARDZ) PMN09630 00E4 973 | $XR3X EQU $I496 XR3 SETTING DURING XEQ 2-2 PMN09640 974 | * PMN09650 975 | * EQUIVALENCES FOR ABSOLUTE SECTOR ADDRESSES PMN09660 976 | * PMN09670 0000 977 | @IDAD EQU 0 ADDR OF SCTR WITH ID,DEF CYL ADR PMN09680 0001 978 | @DCOM EQU 1 ADDR OF SCTR CONTAINING DCOM PMN09690 0002 979 | @RIAD EQU 2 ADDROOF SCTR CONTAINING RES IMGE PMN09700 0003 980 | @SLET EQU 3 ADDR OF SCTR CONTAINING SLET PMN09710 0006 981 | @RTBL EQU 6 ADDR OF SCTR CONTAINING RELD TBL PMN09720 0007 982 | @HDNG EQU 7 ADDR OF SCTR CONTAINING PAGE HDR PMN09730 0000 983 | @STRT EQU 0 ADDR OF SCTR W/ COLD START PROG PMN09740 984 | * PMN09750 985 | * EQUIVALENCES FOR THE CORE IMAGE HEADER PMN09760 986 | * PMN09770 0000 987 | @XEQA EQU 0 RLTV ADDR OF CORE LOAD EXEC ADDR PMN09780 0001 988 | @CMON EQU 1 RLTV ADDR OF WD CNT OF COMMON PMN09790 0002 989 | @DREQ EQU 2 RLTV ADDR OF DISK I/O INDICATOR PMN09800 0003 990 | @FILE EQU 3 RLTV ADDR OF NO. FILES DEFINED PMN09810 0004 991 | @HWCT EQU 4 RLTV ADDR OF WD CNT OF CI HEADER PMN09820 0005 992 | @LSCT EQU 5 SCTR CNT OF FILES IN WK STORAGE PMN09830 0006 993 | @LDAD EQU 6 RLTV ADDR OF LOAD ADDR CORE LOAD PMN09840 0007 994 | @XCTL EQU 7 RLTV ADDR DISK1/DISKN EXIT CTRL PMN09850 0008 995 | @TVWC EQU 8 RLTV ADDR OF WD CNT OF TV PMN09860 0009 996 | @WCNT EQU 9 RLTV ADDR OF WD CNT OF CORE LOAD PMN09870 000A 997 | @XR3X EQU 10 RLTV ADDR OF EXEC SETTING OF XR3 PMN09880 000B 998 | @ITVX EQU 11 RLTV ADDR OF 1ST WD OF ITV PMN09890 0011 999 | @ILS4 EQU 17 RLTV ADDR OF 1ST WD OF IBT4 PMN09900 001A 1000 | @OVSW EQU 26 RLTV ADDR OF LOCAL/SOCAL SWITCH PMN09910 001B 1001 | @CORE EQU 27 CORE SIZE OF BUILDING SYST 2-10 PMN09920 001D 1002 | @HEND EQU 29 RLTV ADDR OF LAST WD OF CI HDR PMN09930 1003 | * PMN09940 1004 | * EQUIVALENCES FOR LET/FLET PMN09950 1005 | * PMN09960 0005 1006 | @LFHD EQU 5 WORD COUNT OF LET/FLET HEADER PMN09970 0003 1007 | @LFEN EQU 3 NO OF WDS PER LET/FLET ENTRY PMN09980 0000 1008 | @SCTN EQU 0 RLTY ADDR OF LET/FLET SCTR NO. PMN09990 0001 1009 | @UAFX EQU 1 RLTV ADDR OF SCTR ADDR OF UA/FXA PMN10000 0003 1010 | @WDSA EQU 3 RLTV ADDR OF WDS AVAIL IN SCTR PMN10010 0004 1011 | @NEXT EQU 4 RLTV ADDR OF ADDR NEXT SCTR PMN10020 0000 1012 | @LFNM EQU 0 RLTV ADDR OF LET/FLET ENTRY NAME PMN10030 0002 1013 | @BLCT EQU 2 RLTV ADDR OF LET/FLET ENTRY DBCT PMN10040 1014 | * PMN10050 1015 | * MISCELLANEOUS EQUIVALENCES PMN10060 1016 | * PMN10070 0033 1017 | @ISTV EQU 51 ISS NO. ADJUSTMENT FACTOR 2-1 PMN10080 0005 1018 | @MXDR EQU 5 MAX NO. DRIVES SUPPORTED PMN10090 0380 1019 | @COMZ EQU 896 LOW COMMON LIMIT FOR DISKZ PMN10100 04C0 1020 | @COM1 EQU 1216 LOW COMMON LIMIT FOR DISK1 PMN10110 0600 1021 | @COM2 EQU 1536 LOW COMMON LIMIT OF DISKN PMN10120 0011 1022 | @TCNT EQU 17 NO. TRIES BEFORE DISK ERROR PMN10130 00F9 1023 | @DKEP EQU DZ000+7 LIBF ENTRY TO DISK1/N PMN10140 00F7 1024 | @DKIP EQU DZ000+5 DISK I/O INTERRUPT ENTRY PT PMN10150 0010 1025 | @SCIB EQU 16 CIB SECTOR COUNT 2-2 PMN10160 0003 1026 | @HCIB EQU 3 HIGH COMMON SECTOR COUNT 2-2 PMN10170 1000 1027 | @MCOR EQU 4096 SIZE OF MINIMUM CORE 2-2 PMN10180 007F 1028 | Y EQU 127 PMN10190 1029 | * PMN10200 0004 1030 | @CIDN EQU 4 RLTV ADDR CARTRIDGE ID 2-2 PMN10210 0005 1031 | @COPY EQU 5 RLTV ADDR COPY INDICATOR 2-2 PMN10220 0001 1032 | @DCTB EQU 1 RLTV ADDR DEFECTIV CYL TBL 2-2 PMN10230 0008 1033 | @DTYP EQU 8 RLTV ADDR DISK TYPE INDR 2-2 PMN10240 COLD START PROGRAM 1035 | *************************************************** PMN10260 1036 | * * PMN10270 1037 | *STATUS - VERSION 2, MODIFICATION 11 * PMN10280 1038 | * * PMN10290 1039 | *FUNCTION/OPERATION - * PMN10300 1040 | * THIS PROGRAM IS READ INTO CORE FROM SECTOR 0 * PMN10310 1041 | * OF THE SYSTEM CARTRIDGE AND TRANSFERRED TO BY * PMN10320 1042 | * THE COLD START CARD. DEFECTIVE CYLINDER * PMN10330 1043 | * ADDRESSES, CARTRIDGE ID AND DISKZ ARE ALSO ON * PMN10340 1044 | * SECTOR 0 AND ARE READ IN AT THE SAME TIME. * PMN10350 1045 | * ALL THAT REMAINS FOR THE COLD START PROGRAM IS* PMN10360 1046 | * TO READ IN THE RESIDENT IMAGE, SAVE THE * PMN10370 1047 | * CARTRIDGE ID AND TRANSFER TO THE AUXILIARY * PMN10380 1048 | * SUPERVISOR THROUGH $DUMP IN THE RESIDENT * PMN10390 1049 | * MONITOR. * PMN10400 1050 | * * PMN10410 1051 | *ENTRY - CR010-2 * PMN10420 1052 | * ENTER PROGRAM BY TRANSFER FROM COLD START CARD* PMN10430 1053 | * * PMN10440 1054 | *INPUT - * PMN10450 1055 | * THE CARTRIDGE ID OF LOGICAL DRIVE ZERO (THE * PMN10460 1056 | * SYSTEM CARTRIDGE) IS READ IN FROM SECTOR 0 * PMN10470 1057 | * WITH THE COLD START PROGRAM. * PMN10480 1058 | * * PMN10490 1059 | *OUTPUT - * PMN10500 1060 | * * THE RESIDENT IMAGE IS READ INTO CORE FROM * PMN10510 1061 | * THE DISK. * PMN10520 1062 | * * IN COMMA- * PMN10530 1063 | * $ACDE * PMN10540 1064 | * $CIBA-1 * PMN10550 1065 | * $CIDN * PMN10560 1066 | * $CYLN * PMN10570 1067 | * $DBSY * PMN10580 1068 | * $IOCT * PMN10590 1069 | * * PMN10600 1070 | *EXTERNAL REFERENCES - * PMN10610 1071 | * DZ000 SUBROUTINE TO PERFORM DISK I/O. * PMN10620 1072 | * * PMN10630 1073 | *EXITS - * PMN10640 1074 | * THE ONLY EXIT IS TO THE AUXILIARY SUPERVISOR * PMN10650 1075 | * AS FOLLOWS- * PMN10660 1076 | * BSI $DUMP * PMN10670 1077 | * DC -1 * PMN10680 1078 | * * PMN10690 1079 | *TABLES/WORK AREAS - N/A * PMN10700 1080 | * * PMN10710 1081 | *ATTRIBUTES - * PMN10720 1082 | * THIS PROGRAM IS NOT NATURALLY RELOCATABLE. * PMN10730 1083 | * * PMN10740 1084 | *NOTES - * PMN10750 1085 | * DISK ERRORS RESULT IN A WAIT AT $PST2. * PMN10760 1086 | *************************************************** PMN10770 COLD START PROGRAM 1088 | * PMN10790 1089 | * READ THE RESIDENT IMAGE INTO CORE PMN10800 1090 | * PMN10810 01E0 617F 1091 | LDX 1 Y PMN10820 01E1 C824 1092 | LDD CR920 SET UP WORD COUNT AND SCTR PMN10830 01E2 DC00 0004 1093 | CR010 STD L $CIBA-1 *ADDR OF RESIDENT IMAGE PMN10840 01E4 D125 1094 | STO 1 $DCYL-Y *INITIALIZE DEF CYL NO. 1 PMN10850 01E5 C184 1095 | LD 1 3-Y FETCH LOG DRIVE 0 AREA CODE PMN10860 01E6 D120 1096 | STO 1 $ACDE-Y *AND STORE IT IN COMMA PMN10870 01E7 D01F 1097 | STO CR920+1 SAVE THE AREA CODE PMN10880 01E8 C156 1098 | LD 1 DZ000-2-27-Y FETCH AND SAVE THE PMN10890 01E9 D0F1 1099 | STO $CIDN *CARTRIDGE ID PMN10900 01EA 6600 01FE 1100 | LDX L2 CR020 SET UP TEMPORARY 2-11 PMN10902 01EC 6E00 000A 1101 | STX L2 $LEV2 *ILS02 2-11 PMN10904 01EE C0F4 1102 | LD CR010+1 FETCH CORE ADDR OF RESIDENT PMN10910 01EF 1890 1103 | SRT 16 *IMAGE AND PUT IN EXTENSION PMN10920 01F0 D16F 1104 | STO 1 $DBSY-Y CLEAR DISK BUSY INDICATOR PMN10930 01F1 D11B 1105 | STO 1 $CYLN-Y INITIALIZE ARM POSITION PMN10940 01F2 4173 1106 | BSI 1 DZ000-Y FETCH RESIDENT IMAGE PMN10950 01F3 3000 1107 | WAIT WAIT OUT THE INTERRUPT PMN10960 1108 | * PMN10970 1109 | * INITIALIZE ITEMS IN COMMA PMN10980 1110 | * PMN10990 01F4 1810 1111 | SRA 16 PMN11000 01F5 D1B3 1112 | STO 1 $IOCT-Y CLEAR IOCS COUNTER PMN11010 01F6 C80D 1113 | LDD CR910 PMN11020 01F7 D985 1114 | STD 1 $CIBA-1-Y *FOR SAVING CORE ON THE CIB PMN11030 01F8 C00E 1115 | LD CR920+1 FETCH AREA CODE PMN11040 01F9 D120 1116 | STO 1 $ACDE-Y RESET AREA CODE PMN11050 01FA C00D 1117 | LD CR905 INITIALIZE WD ZERO TO PMN11060 01FB D181 1118 | STO 1 0-Y *AN 'MDX *-1' LOOP PMN11070 1119 | * PMN11080 1120 | * TRANSFER TO THE AUXILIARY SUPERVISOR PMN11090 1121 | * TO COMPLETE INITIALIZATION PMN11100 1122 | * PMN11110 01FC 41C0 1123 | BSI 1 $DUMP-Y BR TO AUXILLIARY SUPERVISOR PMN11120 01FD FFFF 1124 | DC -1 *FOR JOB PROCESSING PMN11130 1125 | * PMN11140 01FE 0000 1126 | CR020 DC *-* 2-11 PMN11142 01FF 4178 1127 | BSI 1 DZ010-Y BR TO SERVICE INTERRUPT2-11 PMN11144 0200 74FF 01FE 1128 | MDX L CR020,-1 2-11 PMN11146 0202 4CC0 01FE 1129 | BOSC I CR020 RETURN 2-11 PMN11148 1130 | * PMN11160 1131 | * CONSTANTS AND WORK AREAS PMN11170 1132 | * PMN11180 0204 1133 | BSS E 0 ASSURE EVEN BOUNDARY 2-11 PMN11190 0204 0000 1134 | CR910 DC 0 WD CNT,SCTR ADDR OF 2-5 PMN11200 0205 0007 1135 | DC @HDNG *HARMLESS WRITE TO DISK PMN11210 0206 00E8 1136 | CR920 DC $DBSY-$CH12 WD CNT AND SCTR PMN11220 0207 0002 1137 | DC @RIAD *ADDR OF RESIDENT IMAGE PMN11230 0208 70FF 1138 | CR905 MDX *-1 TO BE PUT AT ADDR 0000 2-11 PMN11231 0209 1139 | BSS /0212-* PATCH AREA 2-11 PMN11232 0212 1140 | END * PMN66890 There were no errors in this assembly Program transfer address = 0212 === CROSS REFERENCES ========================================================== Name Val Defd Referenced #ACIN 001C 918 #ANDU 0023 924 #BNDU 0028 925 #CBSW 000A 901 #CIAD 001B 917 #CIBA 003C 929 #CIDN 0037 928 #CSHN 005A 935 #DBCT 0006 897 #DCSW 0018 914 #ECNT 0021 923 #ENTY 0010 907 #FCNT 0007 898 #FHOL 0014 910 #FLET 004B 932 #FMAT 0046 931 #FPAD 002D 926 #FSZE 0015 911 #GCNT 001E 920 #GRPH 001D 919 #JBSW 0009 900 #LCNT 000B 902 #LOSW 001F 921 #MDF1 000D 904 #MDF2 000E 905 #MPSW 000C 903 #NAME 0004 896 #NCNT 000F 906 #PCID 0032 927 #PIOD 0019 915 #PPTR 001A 916 #RP67 0011 908 #SCRA 0041 930 #SYSC 0008 899 #TODR 0012 909 #UHOL 0016 912 #ULET 0050 933 #USZE 0017 913 #WSCT 0055 934 #X3SW 0020 922 $1132 007F 385 $1403 0080 386 $ACDE 009F 447 704 705 1096 1116 $ACEX 001A 966 321 $CCAD 0074 374 $CH12 0006 256 1136 $CIBA 0005 255 314 1093 1114 $CIDN 01DB 887 1099 $CILA 005A 967 347 $CLSW 0018 964 $COMN 0007 257 $CORE 000E 269 $CPTR 007E 384 $CTSW 000F 270 $CWCT 0072 372 $CXR1 0017 963 324 $CYLN 009A 437 703 705 1105 $DADR 0010 271 $DBSY 00EE 560 619 663 720 742 838 840 970 1104 1136 $DCDE 0077 377 $DCYL 00A4 458 703 1094 $DDSW 00DD 540 658 794 $DMPF 0019 965 326 $DREQ 0012 273 $DUMP 003F 320 325 556 1123 $DZ1N 0076 376 $EXIT 0038 304 $FLSH 0071 370 $FPAD 0095 428 $GCOM 0063 353 $GRIN 0064 354 $HASH 0014 275 961 962 963 964 965 966 $I200 00B3 484 263 495 $I205 00B8 490 968 $I210 00BA 491 485 486 487 $I290 00C2 496 488 494 $I400 00C4 516 265 535 $I403 00D0 526 523 $I405 00D3 530 969 $I410 00D5 531 518 519 520 $I420 00E6 553 $I425 00EA 556 555 $I490 00DE 541 517 534 $I492 00E0 542 521 $I494 00E2 545 527 $I496 00E4 550 554 973 $I499 006E 366 362 $IBSY 0013 274 $IBT2 00B9 968 $IBT4 00D4 969 $IOCT 0032 295 359 721 740 1112 $IREQ 002C 289 524 $KCSW 007C 382 $LAST 0033 296 $LEV0 0008 261 $LEV1 0009 262 $LEV2 000A 263 1101 $LEV3 000B 264 $LEV4 000C 265 $LEV5 000D 266 $LINK 0039 308 339 $LKNM 0014 961 345 $LNXQ 0070 368 $LSAD 0075 375 $NDUP 0034 297 $NXEQ 0035 298 $PAUS 00F0 971 $PBSY 0036 299 $PGCT 0037 300 $PHSE 0078 378 $PRET 0028 284 286 735 $PST1 0081 390 392 $PST2 0085 396 398 670 $PST3 0089 402 404 $PST4 008D 408 410 $RMSW 0016 962 338 $RWCZ 00F1 972 $S000 0052 337 304 $S100 0053 338 310 330 $S150 0059 344 967 $S200 005E 348 $S250 0065 358 322 346 350 363 $S300 0066 359 361 $S900 003C 312 327 329 $S910 003E 315 337 $SCAN 0020 278 $SCAT 0011 272 360 $SNLT 00EF 970 $SSTS 006D 365 323 $STOP 0091 415 266 417 $SYSC 00E0 543 $UFDR 007D 383 $UFIO 0079 379 $ULET 002D 290 $WRD1 007B 381 $WSDR 007A 380 $XR3X 00E4 973 $ZEND 01E0 882 612 614 883 '1132 008D 944 '1134 0091 948 '1403 008C 943 '1442 0090 947 '2501 008F 946 'BLCT 0002 1013 'CDCV 0093 950 'CIDN 0004 1030 'CIL1 00A0 956 886 'CIL2 00A1 957 'CLB0 0078 942 'CMON 0001 988 'COM1 04C0 1020 'COM2 0600 1021 'COMZ 0380 1019 'COPY 0005 1031 'CORE 001B 1001 'CPTR 008E 945 'D1ID 0097 954 'DCOM 0001 978 'DCTB 0001 1032 'DKEP 00F9 1023 'DKIP 00F7 1024 'DNID 0098 955 'DREQ 0002 989 'DTYP 0008 1033 'DZID 0096 953 613 'FILE 0003 990 'HCIB 0003 1026 'HDNG 0007 982 1135 'HEND 001D 1002 'HWCT 0004 991 'IDAD 0000 977 'ILS4 0011 999 'ISTV 0033 1017 'ITVX 000B 998 'KBCP 0092 949 'KBCV 0095 952 'LDAD 0006 993 'LFEN 0003 1007 'LFHD 0005 1006 'LFNM 0000 1012 'LSCT 0005 992 'MCOR 1000 1027 'MCRA 006E 939 'MXDR 0005 1018 'NEXT 0004 1011 'OVSW 001A 1000 'PTCV 0094 951 'RIAD 0002 979 1137 'RTBL 0006 981 'SCIB 0010 1025 'SCTN 0000 1008 'SLET 0003 980 'STRT 0000 983 'SUP6 0073 940 'SUP7 0074 941 'TCNT 0011 1022 741 'TVWC 0008 995 'UAFX 0001 1009 'WCNT 0009 996 'WDSA 0003 1010 'XCTL 0007 994 'XEQA 0000 987 'XR3X 000A 997 CR010 01E2 1093 1102 CR020 01FE 1126 1100 1128 1129 CR905 0208 1138 1117 CR910 0204 1134 1113 CR920 0206 1136 1092 1097 1115 DZ000 00F2 618 328 349 646 656 715 775 971 972 1023 1024 1098 1106 DZ010 00F7 625 645 649 1127 DZ020 00F9 627 621 DZ060 0100 634 660 DZ070 0102 638 824 830 860 868 DZ100 0104 643 627 628 723 DZ110 010E 650 647 DZ180 0111 655 626 638 DZ185 0119 661 841 DZ190 0120 670 730 DZ210 0146 719 873 DZ215 014C 727 796 DZ220 0150 734 799 DZ230 0154 740 633 DZ232 0156 741 671 DZ235 0158 743 632 664 DZ240 015D 747 879 DZ250 016C 762 770 DZ280 016D 763 749 755 756 757 768 DZ300 0178 775 765 DZ330 017D 779 751 DZ340 018C 793 736 DZ350 0197 808 753 835 839 DZ380 01A4 823 820 DZ390 01A5 824 803 DZ400 01B6 846 810 837 DZ410 01CA 869 848 DZ900 0122 677 685 822 DZ901 0123 678 834 DZ902 0124 679 661 727 745 869 876 DZ904 0126 681 639 823 829 856 DZ905 0127 682 865 DZ906 0128 683 759 855 DZ907 0129 684 786 DZ908 012A 685 828 DZ909 012B 686 783 DZ910 012C 687 657 781 793 817 DZ911 012D 688 791 DZ912 012E 689 668 746 792 846 850 871 877 DZ913 012F 690 776 DZ914 0130 691 729 DZ915 0131 692 669 DZ916 0132 693 849 DZ920 0134 695 787 DZ925 0135 696 782 DZ930 0136 697 767 DZ935 0137 698 734 DZ940 0138 699 761 DZ945 0139 700 630 785 788 866 DZ950 013A 701 790 DZ955 013B 702 777 DZ960 013C 703 754 DZ965 013D 704 750 DZ970 013E 705 752 DZ975 013F 706 789 864 DZ980 0140 707 780 DZ985 0141 708 853 DZ990 0142 709 778 784 858 DZ995 0143 710 821 X2 00F2 715 670 776 777 778 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 817 821 822 823 824 828 829 830 834 846 849 850 853 855 856 858 860 864 865 866 868 869 871 876 877 Y 007F 1028 1091 1094 1095 1096 1098 1104 1105 1106 1112 1114 1116 1118 1123 1127