ibm:ibm1130-lib:dmsr2v12:pmonitor_lst
PMONITOR
| Table Of Contents |
|---|
|
- pmonitor.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020 Source File: \pmonitor.asm 1 | * RLTV ADDR* SYMBOL* DESCRIPTION PMN00010 2 | * * * PMN00020 3 | * 0-3 * * RESERVED FOR EVEN BOUNDARIES PMN00030 4 | * 4-5 * #NAME * NAME OF PROGRAM/CORE LOAD PMN00040 5 | * 6 * #DBCT * BLOCK COUNT OF PROG/CORE LOAD PMN00050 6 | * 7 * #FCNT * *FILES SWITCH--ZERO MEANS NO PMN00060 7 | * * * FILES HAVE BEEN EQUATED PMN00070 8 | * 8 * #SYSC * SYS/NON-SYS CARTRIDGE INDR PMN00080 9 | * 9 * #JBSW * JOBT SWITCH-- NON-ZERO MEANS PMN00090 10 | * * * TEMPORARY MODE PMN00100 11 | * 10 * #CBSW * CLB-RETURN-TO-DUP SWITCH-- PMN00110 12 | * * * ZERO=CLB RETURN TO SUPV PMN00120 13 | * 11 * #LCNT * NO. OF LOCALS PMN00130 14 | * 12 * #MPSW * CORE MAP SWITCH--ZERO MEANS PMN00140 15 | * * * DO NOT PRINT A CORE MAP PMN00150 16 | * 13 * #MDF1 * NO. DUP CTRL RECDS (MODIF) PMN00160 17 | * 14 * #MDF2 * ADDR OF MODIF BUFFER PMN00170 18 | * 15 * #NCNT * NO. OF NOCALS PMN00180 19 | * 16 * #ENTY * RLTV ENTRY ADDR OF PROGRAM PMN00190 20 | * 17 * #RP67 * 1442-5 SW (0=1442-5 ON SYSTEM PMN00200 21 | * 18 * #TODR * 'TO' WORKING STG DRIVE CODE PMN00210 22 | * 19 * #FRDR * 'FROM' WORKING STG DRIVE CODE PMN00220 23 | * 20 * #FHOL * ADDR OF LARGEST HOLE IN FXA PMN00230 24 | * 21 * #FSZE * BLK CNT OF LARGEST HOLE IN FXA PMN00240 25 | * 22 * #UHOL * ADDR OF LAST HOLE IN UA 2-10 PMN00250 26 | * 23 * #USZE * BLK CNT OF LAST HOLE IN UA2-10 PMN00260 27 | * 24 * #DCSW * DUP CALL SW--NON-ZERO=DUP CALL PMN00270 28 | * 25 * #PIOD * PRINCIPAL I/O DEVICE INDICATOR PMN00280 29 | * 26 * #PPTR * PRINC. PRINT DEVICE INDICATOR PMN00290 30 | * 27 * #CIAD * RLTV ADDR IN @STRT OF CIL ADDR PMN00300 31 | * 28 * #ACIN * AVAILABLE CARTRIDGE INDICAT2-2 PMN00310 32 | * 29 * #GRPH * 2250 INDICATOR 2G2 PMN00320 33 | * 30 * #GCNT * NO. G2250 RECORDS 2G2 PMN00330 34 | * 31 * #LOSW * LOCAL-CANNOT-CALL-LOCAL SW 2-2 PMN00340 35 | * 32 * #X3SW * SPECIAL ILS SWITCH 2-2 PMN00350 36 | * 33 * #ECNT * NO. OF *EQUAT RCDS 2-4 PMN00360 37 | * 33-34 * * RESERVED FOR FUTURE USE 2-2 PMN00370 38 | * 35 * #ANDU * 1+BLOCK ADDR OF END OF USER PMN00380 39 | * * * AREA (ADJUSTED) LOGICAL DR 0 PMN00390 40 | * 36 * * 1+BLOCK ADDR OF END OF USER PMN00400 41 | * * * AREA (ADJUSTED) LOGICAL DR 1 PMN00410 42 | * 37 * * 1+BLOCK ADDR OF END OF USER PMN00420 43 | * * * AREA (ADJUSTED) LOGICAL DR 2 PMN00430 44 | * 38 * * 1+BLOCK ADDR OF END OF USER PMN00440 45 | * * * AREA (ADJUSTED) LOGICAL DR 3 PMN00450 46 | * 39 * * 1+BLOCK ADDR OF END OF USER PMN00460 47 | * * * AREA (ADJUSTED) LOGICAL DR 4 PMN00470 48 | * 40 * #BNDU * 1+BLOCK ADDR OF END OF USER PMN00480 49 | * * * AREA (BASE) LOGICAL DRIVE 0 PMN00490 50 | * 41 * * 1+BLOCK ADDR OF END OF USER PMN00500 51 | * * * AREA (BASE) LOGICAL DRIVE 1 PMN00510 52 | * 42 * * 1+BLOCK ADDR OF END OF USER PMN00520 53 | * * * AREA (BASE) LOGICAL DRIVE 2 PMN00530 54 | * 43 * * 1+BLOCK ADDR OF END OF USER PMN00540 55 | * * * AREA (BASE) LOGICAL DRIVE 3 PMN00550 56 | * 44 * * 1+BLOCK ADDR OF END OF USER PMN00560 57 | * * * AREA (BASE) LOGICAL DRIVE 4 PMN00570 58 | * 45 * #FPAD * FILE PROTECT ADDR, LOGICAL PMN00580 59 | * * * DRIVE 0 (BASE) PMN00590 60 | * 46 * * FILE PROTECT ADDR, LOGICAL PMN00600 61 | * * * DRIVE 1 (BASE) PMN00610 62 | * 47 * * FILE PROTECT ADDR, LOGICAL PMN00620 63 | * * * DRIVE 2 (BASE) PMN00630 64 | * 48 * * FILE PROTECT ADDR, LOGICAL PMN00640 65 | * * * DRIVE 3 (BASE) PMN00650 66 | * 49 * * FILE PROTECT ADDR,LOGICAL PMN00660 67 | * * * DRIVE 4 (BASE) PMN00670 68 | * 50 * #PCID * CARTRIDGE ID, PHYSICAL DRIVE 0 PMN00680 69 | * 51 * * CARTRIDGE ID, PHYSICAL DRIVE 1 PMN00690 70 | * 52 * * CARTRIDGE ID, PHYSICAL DRIVE 2 PMN00700 71 | * 53 * * CARTRIDGE ID, PHYSICAL DRIVE 3 PMN00710 72 | * 54 * * CARTRIDGE ID, PHYSICAL DRIVE 4 PMN00720 73 | * 55 * #CIDN * CARTRIDGE ID, LOGICAL DRIVE 0 PMN00730 74 | * 56 * * CARTRIDGE ID, LOGICAL DRIVE 1 PMN00740 75 | * 57 * * CARTRIDGE ID, LOGICAL DRIVE 2 PMN00750 76 | * 58 * * CARTRIDGE ID, LOGICAL DRIVE 3 PMN00760 77 | * 59 * * CARTRIDGE ID, LOGICAL DRIVE 4 PMN00770 78 | * 60 * #CIBA * SCTR ADDR OF CIB, LOGICAL DR 0 PMN00780 79 | * 61 * * SCTR ADDR OF CIB, LOGICAL DR 1 PMN00790 80 | * 62 * * SCTR ADDR OF CIB, LOGICAL DR 2 PMN00800 81 | * 63 * * SCTR ADDR OF CIB, LOGICAL DR 3 PMN00810 82 | * 64 * * SCTR ADDR OF CIB, LOGICAL DR 4 PMN00820 83 | * 65 * #SCRA * SCRA, LOGICAL DRIVE 0 PMN00830 84 | * 66 * * SCRA, LOGICAL DRIVE 1 PMN00840 85 | * 67 * * SCRA, LOGICAL DRIVE 2 PMN00850 86 | * 68 * * SCRA, LOGICAL DRIVE 3 PMN00860 87 | * 69 * * SCRA, LOGICAL DRIVE 4 PMN00870 88 | * 70 * #FMAT * FORMAT OF PROG IN WS, DRIVE 0 PMN00880 89 | * 71 * * FORMAT OF PROG IN WS, DRIVE 1 PMN00890 90 | * 72 * * FORMAT OF PROG IN WS, DRIVE 2 PMN00900 91 | * 73 * * FORMAT OF PROG IN WS, DRIVE 3 PMN00910 92 | * 74 * * FORMAT OF PROG IN WS, DRIVE 4 PMN00920 93 | * 75 * #FLET * FLET SCTR ADDR, LOGICAL DR 0 PMN00930 94 | * 76 * * FLET SCTR ADDR, LOGICAL DR 1 PMN00940 95 | * 77 * * FLET SCTR ADDR, LOGICAL DR 2 PMN00950 96 | * 78 * * FLET SCTR ADDR, LOGICAL DR 3 PMN00960 97 | * 79 * * FLET SCTR ADDR, LOGICAL DR 4 PMN00970 98 | * 80 * #ULET * LET SCTR ADDR, LOGICAL DR 0 PMN00980 99 | * 81 * * LET SCTR ADDR, LOGICAL DR 1 PMN00990 100 | * 82 * * LET SCTR ADDR, LOGICAL DR 2 PMN01000 101 | * 83 * * LET SCTR ADDR, LOGICAL DR 3 PMN01010 102 | * 84 * * LET SCTR ADDR, LOGICAL DR 4 PMN01020 103 | * 85 * #WSCT * BLK CNT OF PROG IN WS, DRIVE 0 PMN01030 104 | * 86 * * BLK CNT OF PROG IN WS, DRIVE 1 PMN01040 105 | * 87 * * BLK CNT OF PROG IN WS, DRIVE 2 PMN01050 106 | * 88 * * BLK CNT OF PROG IN WS, DRIVE 3 PMN01060 107 | * 89 * * BLK CNT OF PROG IN WS, DRIVE 4 PMN01070 108 | * 90 * #CSHN * SCTR CNT CUSHION,LOGICAL DR 0 PMN01080 109 | * 91 * * SCTR CNT CUSHION,LOGICAL DR 1 PMN01090 110 | * 92 * * SCTR CNT CUSHION,LOGICAL DR 2 PMN01100 111 | * 93 * * SCTR CNT CUSHION,LOGICAL DR 3 PMN01110 112 | * 94 * * SCTR CNT CUSHION,LOGICAL DR 4 PMN01120 113 | * 95-319 * * RESERVED FOR FUTURE USE PMN01130 RESIDENT MONITOR 115 | *************************************************** PMN01150 116 | * * PMN01160 117 | *STATUS-VERSION 2, MODIFICATION 10 * PMN01170 118 | * * PMN01180 119 | *FUNCTION/OPERATION- * PMN01190 120 | * THIS SECTION ALWAYS REMAINS IN CORE. IT * PMN01200 121 | * IS COMPRISED OF THE COMMUNICATIONS * PMN01210 122 | * AREA (COMMA), THE SKELETON SUPERVISOR, AND * PMN01220 123 | * A DISK I/O SUBROUTINE, NOMINALLY DISKZ. (THE * PMN01230 124 | * FIRST TWO OF THESE SECTIONS ARE INTERMIXED.) * PMN01240 125 | * COMMA CONTAINS THE SYSTEM PARAMETERS REQUIR- * PMN01250 126 | * ED TO FETCH A CORE LOAD IN CORE IMAGE FOR- * PMN01260 127 | * MAT. THE SKELETON SUPERVISOR PROVIDES IN- * PMN01270 128 | * STRUCTIONS FOR INITIATING A CALL EXIT, A * PMN01280 129 | * CALL LINK, A DUMP-TO-PRINTER OR A CALL TO THE * PMN01290 130 | * AUXILIARY SUPERVISOR. IN ADDITION, THE SKELE-* PMN01300 131 | * TON SUPERVISOR CONTAINS SEVERAL TRAPS FOR CER-* PMN01310 132 | * TAIN I/O FUNCTIONS/CONDITIONS. THE DISK I/O * PMN01320 133 | * SECTION CONSISTS OF A SUBROUTINE FOR READING * PMN01330 134 | * FROM OR WRITING ON A DISK CARTRIDGE ON A * PMN01340 135 | * GIVEN LOGICAL DISK DRIVE. * PMN01350 136 | * * PMN01360 137 | *ENTRY POINTS- * PMN01370 138 | * * $PRET-A TRAP FOR PREOPERATIVE I/O ERRORS. * PMN01380 139 | * THE CALLING SEQUENCE IS * PMN01390 140 | * BSI L $PRET * PMN01400 141 | * * $PSTX-A POSTOPERATIVE ERROR TRAP FOR I/O * PMN01410 142 | * DEVICES ON LEVEL X (X=1,2,3,OR 4). * PMN01420 143 | * THE CALLING SEQUENCE IS * PMN01430 144 | * BSI L $PSTX * PMN01440 145 | * * $STOP-THE PROGRAM STOP KEY TRAP. * PMN01450 146 | * * $EXIT-THE ENTRY POINT FOR THE EXIT/CALL * PMN01460 147 | * EXIT STATEMENT. THE CALLING SEQUENCE IS* PMN01470 148 | * LDX 0 $EXIT * PMN01480 149 | * * $LINK-THE ENTRY POINT FOR THE LINK/CALL * PMN01490 150 | * LINK STATEMENT. THE CALLING SEQUENCE IS* PMN01500 151 | * BSI L $LINK * PMN01510 152 | * * $DUMP-THE ENTRY POINT FOR THE DUMP/PDMP * PMN01520 153 | * STATEMENT. THE CALLING SEQUENCE IS * PMN01530 154 | * BSI L $DUMP * PMN01540 155 | * DC FORMAT * PMN01550 156 | * DC LIMIT1 * PMN01560 157 | * DC LIMIT2 * PMN01570 158 | * WHERE LIMIT1 AND LIMIT2 ARE THE LIMITS * PMN01580 159 | * BETWEEN WHICH THE DUMP IS TO OCCUR, AND* PMN01590 160 | * FORMAT IS A CODE INDICATING THE FORMAT * PMN01600 161 | * OF THE DUMP. IF FORMAT IS NEGATIVE, * PMN01610 162 | * THE AUXILIARY SUPERVISOR IS FETCHED * PMN01620 163 | * AND CONTROL PASSED TO IT. * PMN01630 164 | * * DZ000-ENTERED WHEN THE CALLER WISHES TO * PMN01640 165 | * PERFORM A DISK I/O OPERATION. THE * PMN01650 166 | * CALLING SEQUENCE VARIES WITH THE * PMN01660 167 | * VERSION OF THE DISK I/O SUBROUTINE. * PMN01670 168 | * * $I200/$I400-ENTERED WHEN THE OPERATION- * PMN01680 169 | * COMPLETE INTERRUPT OCCURS ON * PMN01690 170 | * LEVEL 2/4. * PMN01700 171 | * * PMN01710 172 | *INPUT-N/A * PMN01720 173 | * * PMN01730 174 | *OUTPUT-WORDS 6-4090 SAVED ON THE CIB ON A CALL * PMN01740 175 | * DUMP * PMN01750 176 | * * PMN01760 177 | *EXTERNAL REFERENCES-N/A * PMN01770 178 | * * PMN01780 179 | *EXITS- * PMN01790 180 | * * NORMAL * PMN01800 181 | * *THE EXITS FROM THE SUBROUTINES AT $PRET * PMN01810 182 | * $PST1, $PST2, $PST3, $PST4, AND $STOP * PMN01820 183 | * ARE BRANCH INSTRUCTIONS FOLLOWING A * PMN01830 184 | * WAIT INSTRUCTION. $STOP TURNS OFF IN- * PMN01840 185 | * TERRUPT LEVEL 5 AFTER THE START KEY IS * PMN01850 186 | * DEPRESSED. * PMN01860 187 | * *THE EXITS FROM $EXIT,$LINK,AND $DUMP ARE * PMN01870 188 | * TO THE CORE IMAGE LOADER, PHASE 1, * PMN01880 189 | * AFTER THAT PHASE HAS BEEN FETCHED. * PMN01890 190 | * *THE EXIT FROM DZ000 IS BACK TO THE * PMN01900 191 | * CALLER AFTER THE REQUESTED DISK OPERA- * PMN01910 192 | * TION HAS BEEN INITIATED. * PMN01920 193 | * *THE EXITS FROM $I200/$I400 ARE BACK TO * PMN01930 194 | * THE ADDRESSES FROM WHICH THE DISK OP- * PMN01940 195 | * ERATION COMPLETE INTERRUPT OCCURED * PMN01950 196 | * AFTER THE INTERRUPT HAS BEEN SERVICED * PMN01960 197 | * BY THE APPROPRIATE ISS. * PMN01970 198 | * * ERROR-N/A * PMN01980 199 | * * PMN01990 200 | *TABLES/WORK AREAS- * PMN02000 201 | * * $ACDE * PMN02010 202 | * * $CH12 * PMN02020 203 | * * $CILA * PMN02030 204 | * * $CLSW * PMN02040 205 | * * $COMN * PMN02050 206 | * * $CORE * PMN02060 207 | * * $CTSW * PMN02070 208 | * * $CXR1 * PMN02080 209 | * * $CYLN * PMN02090 210 | * * $DADR * PMN02100 211 | * * $DBSY * PMN02110 212 | * * $DCYL * PMN02120 213 | * * $DMPF * PMN02130 214 | * * $DREQ * PMN02140 215 | * * $FPAD * PMN02150 216 | * * $GCOM 2G2 * PMN02160 217 | * * $GRIN 2G2 * PMN02170 218 | * * $HASH * PMN02180 219 | * * $IBT2 * PMN02190 220 | * * $IBT4 * PMN02200 221 | * * $IBSY * PMN02210 222 | * * $IOCT * PMN02220 223 | * * $KCSW * PMN02230 224 | * * $LAST * PMN02240 225 | * * $LNXQ 2-9 * PMN02250 226 | * * $NDUP * PMN02260 227 | * * $NXEQ * PMN02270 228 | * * $PBSY * PMN02280 229 | * * $PGCT * PMN02290 230 | * * $PHSE * PMN02300 231 | * * $RMSW * PMN02310 232 | * * $SCAT 2-4 * PMN02320 233 | * * $SNLT * PMN02330 234 | * * $UFIO * PMN02340 235 | * * $ULET * PMN02350 236 | * * $WRD1 * PMN02360 237 | * * $WSDR * PMN02370 238 | * * $XR3X 2-2 * PMN02380 239 | * * PMN02390 240 | *ATTRIBUTES-REUSABLE * PMN02400 241 | * * PMN02410 242 | *NOTES- * PMN02420 243 | * THERE ARE WAIT INSTRUCTIONS AT $PRET+1, * PMN02430 244 | * $STOP+1, AND $PSTX+1. DEPRESSING THE START * PMN02440 245 | * KEY WILL RETURN CONTROL TO THE CALLER IN ALL * PMN02450 246 | * CASES. * PMN02460 247 | *************************************************** PMN02470 RESIDENT MONITOR 249 | * PROVIDE PARAMETERS FOR SYSTEM LOADER PMN02490 250 | * PMN02500 251 | ABS PMN02510 0004 252 | ORG 4 PMN02520 0004 0FFA 253 | DC 4095-* WD CNT FOR WRITING CORE ON CIB PMN02530 0005 0000 254 | $CIBA DC *-* SCTR ADDR OF THE CIB PMN02540 0006 0000 255 | $CH12 DC *-* ADDR OF CHANNEL 12 INDICATOR PMN02550 0007 0000 256 | $COMN DC *-* LENGTH OF COMMON (IN WORDS) PMN02560 257 | * PMN02570 258 | * ULTIMATE RESIDENCE OF THE INTERRUPT TV PMN02580 259 | * PMN02590 0008 0000 260 | $LEV0 DC *-* LEVEL 0 BRANCH ADDRESS PMN02600 0009 0000 261 | $LEV1 DC *-* LEVEL 1 BRANCH ADDRESS PMN02610 000A 00B3 262 | $LEV2 DC $I200 LEVEL 2 BRANCH ADDR PMN02620 000B 0000 263 | $LEV3 DC *-* LEVEL 3 BRANCH ADDRESS PMN02630 000C 00C4 264 | $LEV4 DC $I400 LEVEL 4 BRANCH ADDR PMN02640 000D 0091 265 | $LEV5 DC $STOP LEVEL 5 BRANCH ADDR PMN02650 266 | * PMN02660 267 | * PMN02670 000E 0000 268 | $CORE DC *-* SIZE OF CORE, E.G., /1000=4K PMN02680 000F 0000 269 | $CTSW DC *-* CONTROL RECORD TRAP SWITCH PMN02690 0010 0000 270 | $DADR DC *-* SCTR ADDR OF PROG TO BE LOADED PMN02700 0011 0000 271 | $SCAT DC *-* NON ZERO=SCA INTRPT PNDNG 2-4 PMN02710 0012 0000 272 | $DREQ DC *-* IND. FOR REQUESTED VERSION DKI/O PMN02720 0013 0000 273 | $IBSY DC *-* NON-ZERO IF CD/PAP TP DEV. BUSY PMN02730 0014 274 | $HASH BSS E 12 WORK AREA PMN02740 275 | * PMN02750 276 | * PMN02760 0020 277 | $SCAN BSS 8 1132 SCAN AREA 32 PMN02770 278 | * PMN02780 279 | * PMN02790 280 | * PMN02800 281 | * TRAP FOR PREOPERATIVE I/O ERRORS PMN02810 282 | * PMN02820 0028 0000 283 | $PRET DC *-* ENTRY POINT PMN02830 0029 3000 284 | WAIT WAIT TIL START KEY PUSHED PMN02840 002A 4C80 0028 285 | BSC I $PRET RETURN TO CALLER PMN02850 286 | * PMN02860 287 | * PMN02870 002C 0000 288 | $IREQ DC *-* ADDR OF INT REQUEST SUBROUTINE PMN02880 002D 0000 289 | $ULET DC *-* ADDR OF LET, LOGICAL DR 0 PMN02890 002E 0000 290 | DC *-* ADDR OF LET, LOGICAL DR 1 PMN02900 002F 0000 291 | DC *-* ADDR OF LET, LOGICAL DR 2 PMN02910 0030 0000 292 | DC *-* ADDR OF LET, LOGICAL DR 3 PMN02920 0031 0000 293 | DC *-* ADDR OF LET, LOGICAL DR 4 PMN02930 0032 0000 294 | $IOCT DC *-* ZERO IF NO I/O IN PROGRESS 50 PMN02940 0033 0000 295 | $LAST DC *-* NON-ZERO WHEN LAST CARD SENSED PMN02950 0034 0000 296 | $NDUP DC *-* DO NOT DUP IF NON-ZERO PMN02960 0035 0000 297 | $NXEQ DC *-* DO NOT EXECUTE IF NON-ZERO PMN02970 0036 0000 298 | $PBSY DC *-* NON-ZERO WHEN PRINTER BUSY PMN02980 0037 0000 299 | $PGCT DC *-* PAGE NO. FOR HEADINGS PMN02990 300 | * PMN03000 301 | * CALL EXIT ENTRY POINT TO SKELETON SUPERVISOR PMN03010 302 | * PMN03020 0038 7019 303 | $EXIT MDX $S000 BR TO FETCH CIL, PHASE 1 56 PMN03030 304 | * PMN03040 305 | *** CALL LINK ENTRY POINT PMN03050 306 | * PMN03060 0039 0000 307 | $LINK DC *-* ENTRY POINT 57 PMN03070 003A 1810 308 | SRA 16 PMN03080 003B 7017 309 | MDX $S100 BR TO FETCH CIL, PHASE 1 PMN03090 003C 310 | BSS E 0 PMN03100 003C 0001 311 | $S900 DC 1 DISK PARAMETERS FOR SAVING CORE PMN03110 312 | *$S900 ALSO USED AS CONSTANT 1 BY CIL PH2 2-10 PMN03111 003D 0004 313 | DC $CIBA-1 *IN CONNECTION WITH DUMP PMN03120 003E FFFF 314 | $S910 DC -1 CALL EXIT INDICATOR PMN03130 315 | *$S910 ALSO USED AS CONSTANT-1 BY CIL PH2 2-10 PMN03131 316 | * PMN03140 317 | *** SAVE 1ST 4K OF CORE ON THE CIB PMN03150 318 | * PMN03160 003F 0000 319 | $DUMP DC *-* ENTRY POINT 63 PMN03170 0040 D8D9 320 | STD $ACEX SAVE ACCUMULATOR, EXTENSION PMN03180 0041 4023 321 | BSI $S250 CHK PNDNG INTRPT 2-4 PMN03190 0042 282A 322 | STS $SSTS SAVE STATUS 2-6 PMN03200 0043 69D3 323 | STX 1 $CXR1 SAVE XR1 PMN03210 0044 C480 003F 324 | LD I $DUMP PMN03220 0046 D0D2 325 | STO $DMPF SAVE DUMP FORMAT CODE PMN03230 0047 C8F4 326 | LDD $S900 PMN03240 0048 4400 00F2 327 | BSI L DZ000 SAVE WDS 6-4095 ON CIB PMN03250 004A C0F1 328 | LD $S900 PMN03260 004B 7007 329 | MDX $S100 BR TO FETCH CIL, PHASE 1 PMN03270 330 | * 2-6 PMN03280 004C 331 | BSS 6 PATCH AREA 2-7 PMN03290 RESIDENT MONITOR 333 | * PMN03310 334 | *** FETCH CORE IMAGE LOADER, PHASE 1 PMN03320 335 | * PMN03330 0052 C0EB 336 | $S000 LD $S910 PMN03340 0053 D0C2 337 | $S100 STO $RMSW SAVE EXIT-LINK-DUMP SWITCH PMN03350 0054 6580 0039 338 | LDX I1 $LINK LINK ADDR TO XR1 PMN03360 0056 C101 339 | LD 1 1 FETCH 2ND WD OF LINK NAME PMN03370 0057 18D0 340 | RTE 16 PMN03380 0058 C100 341 | LD 1 0 FETCH 1ST WD OF LINK NAME PMN03390 342 | * $S150+1 CONTAINS ADDR LAST WD OF DISK I/O MINUS 3 PMN03400 0059 6500 0000 343 | $S150 LDX L1 *-* ADDR END OF DKI/O-1 TO XR1 PMN03410 005B D8B8 344 | STD $LKNM SAVE LINK NAME PMN03420 005C 4008 345 | BSI $S250 CHK ANY PNDNG INTRPT 2-4 PMN03430 005D C0FC 346 | LD $CILA PMN03440 005E 1890 347 | $S200 SRT 16 PMN03450 005F 4400 00F2 348 | BSI L DZ000 FETCH CI LOADER, PHASE 1 PMN03460 0061 4003 349 | BSI $S250 CHK DISK OP FINISHED 2-4 PMN03470 0062 4102 350 | BSI 1 2 BR TO CI LOADER, PHASE 1 PMN03480 351 | * PMN03490 0063 0000 352 | $GCOM DC *-* GRAPHIC SUBR PACKAGE INDR 2G2 PMN03500 0064 0000 353 | $GRIN DC *-* GRAPHIC INITLZN PROGRAM INDR 2G2 PMN03510 354 | * PMN03520 355 | *** SUBR TO CHECK IF ANY INTRPT IS PENDING PMN03530 356 | * PMN03540 0065 0000 357 | $S250 DC *-* ENTRY POINT PMN03550 0066 C0CB 358 | $S300 LD $IOCT IS THERE INTRPT PNDNG PMN03560 0067 E8A9 359 | OR $SCAT *OR SCA INTRPT PNDNG PMN03570 0068 4C20 0066 360 | BSC L $S300,Z *THEN BR,IF ALL INTRPT PMN03580 006A 0803 361 | XIO $I499 RESET 2250 2-7 PMN03590 006B 4C80 0065 362 | BSC I $S250 *IS SERVICED-RETURN PMN03600 363 | * 2-6 PMN03610 006D 2000 364 | $SSTS LDS *-* STATUS SAVED FOR DUMP 2-7 PMN03620 006E 0000 365 | $I499 DC 0 IOCC FOR RESET 2-7 PMN03630 006F CC80 366 | DC /CC80 *OF 2250 2-7 PMN03640 0070 0000 367 | $LNXQ DC *-* LINK/XEQ SW, -1 LINK,+1 XEQ 2-9 PMN03650 368 | * PMN03660 0071 0000 369 | $FLSH DC *-* FLUSH-TO-NEXT-JOB SWITCH 1=FLUSH PMN03670 0072 370 | BSS E 0 PMN03680 0072 0000 371 | $CWCT DC *-* WORD COUNT AND SECTOR ADDRESS PMN03690 0073 0000 372 | DC *-* *FOR SAVING/RESTORING COMMON PMN03700 0074 0000 373 | $CCAD DC *-* ADDR FOR SAVING/RESTORING COMMON PMN03710 0075 0000 374 | $LSAD DC *-* SCTR ADDR OF 1ST LOCAL/SOCAL PMN03720 0076 0000 375 | $DZ1N DC *-* DISKZ/1/N INDICATOR (-1,0,+1) PMN03730 0077 0000 376 | $DCDE DC *-* LOGICAL DRIVE CODE FOR PROGRAM PMN03740 0078 0000 377 | $PHSE DC *-* NO. OF PHASE NOW IN CORE PMN03750 0079 0000 378 | $UFIO DC *-* UNFORMATTED I/O RECORD NO. PMN03760 007A 0000 379 | $WSDR DC *-* WORKING STORAGE DRIVE CODE PMN03770 007B 0000 380 | $WRD1 DC *-* LOADING ADDR OF THE CORE LOAD PMN03780 007C 0000 381 | $KCSW DC *-* 1 IF KB,CP BOTH UTILIZED PMN03790 007D 0000 382 | $UFDR DC *-* UNFORMATTED I/O DRIVE CODE PMN03800 007E 0000 383 | $CPTR DC *-* CHANNEL 12 INDICATOR FOR CP PMN03810 007F 0000 384 | $1132 DC *-* CHANNEL 12 INDICATOR FOR 1132 PMN03820 0080 0000 385 | $1403 DC *-* CHANNEL 12 INDICATOR FOR 1403 PMN03830 RESIDENT MONITOR 387 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 1 PMN03850 388 | * PMN03860 0081 0000 389 | $PST1 DC *-* ENTRY POINT PMN03870 0082 3000 390 | WAIT PMN03880 0083 4C80 0081 391 | BSC I $PST1 RETURN TO DEVICE SUBROUTINE PMN03890 392 | * PMN03900 393 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 2 PMN03910 394 | * PMN03920 0085 0000 395 | $PST2 DC *-* ENTRY POINT PMN03930 0086 3000 396 | WAIT PMN03940 0087 4C80 0085 397 | BSC I $PST2 RETURN TO DEVICE SUBROUTINE PMN03950 398 | * PMN03960 399 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 3 PMN03970 400 | * PMN03980 0089 0000 401 | $PST3 DC *-* ENTRY POINT PMN03990 008A 3000 402 | WAIT PMN04000 008B 4C80 0089 403 | BSC I $PST3 RETURN TO DEVICE SUBROUTINE PMN04010 404 | * PMN04020 405 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 4 PMN04030 406 | * PMN04040 008D 0000 407 | $PST4 DC *-* ENTRY POINT PMN04050 008E 3000 408 | WAIT PMN04060 008F 4C80 008D 409 | BSC I $PST4 RETURN TO DEVICE SUBROUTINE PMN04070 410 | * PMN04080 411 | * PMN04090 412 | * PROGRAM STOP KEY TRAP PMN04100 413 | * PMN04110 0091 0000 414 | $STOP DC *-* ENTRY POINT PMN04120 0092 3000 415 | WAIT WAIT TIL START KEY PUSHED PMN04130 0093 4CC0 0091 416 | BOSC I $STOP RETURN TO CALLER PMN04140 RESIDENT MONITOR 418 | * PMN04160 419 | * PARAMETERS USED BY THE DISK I/O SUBROUTINES. THE PMN04170 420 | * LOGICAL DRIVE CODE IS FOUND IN BITS 1-3 FOR ALL PMN04180 421 | * BUT THE AREA CODE. BIT 0 WILL ALWAYS BE ZERO. PMN04190 422 | * PMN04200 423 | * PMN04210 424 | *** DISK1 AND DISKN WILL NOT WRITE BELOW THE PMN04220 425 | *** FOLLOWING SCTR ADDRESSES (EXCEPT WRITE IMMED). PMN04230 426 | * PMN04240 0095 0000 427 | $FPAD DC *-* FILE PROTECT ADDR, LOGICAL DR 0 PMN04250 0096 0000 428 | DC *-* FILE PROTECT ADDR, LOGICAL DR 1 PMN04260 0097 0000 429 | DC *-* FILE PROTECT ADDR, LOGICAL DR 2 PMN04270 0098 0000 430 | DC *-* FILE PROTECT ADDR, LOGICAL DR 3 PMN04280 0099 0000 431 | DC *-* FILE PROTECT ADDR, LOGICAL DR 4 PMN04290 432 | * PMN04300 433 | *** THE ARM POSITION IS UPDATED WHENEVER A SEEK PMN04310 434 | *** OCCURS. PMN04320 435 | * PMN04330 009A 0000 436 | $CYLN DC 0 ARM POSITION FOR LOGICAL DRIVE 0 PMN04340 009B 0000 437 | DC 0 ARM POSITION FOR LOGICAL DRIVE 1 PMN04350 009C 0000 438 | DC 0 ARM POSITION FOR LOGICAL DRIVE 2 PMN04360 009D 0000 439 | DC 0 ARM POSITION FOR LOGICAL DRIVE 3 PMN04370 009E 0000 440 | DC 0 ARM POSITION FOR LOGICAL DRIVE 4 PMN04380 441 | * PMN04390 442 | *** BELOW ARE THE DISK AREA CODES. A ZERO PMN04400 443 | *** INDICATES THE CORRESPONDING DRIVE IS NOT PMN04410 444 | *** ON THE SYSTEM PMN04420 445 | * PMN04430 009F 0000 446 | $ACDE DC *-* AREA CODE FOR LOGICAL DRIVE 0 PMN04440 00A0 0000 447 | DC *-* AREA CODE FOR LOGICAL DRIVE 1 PMN04450 00A1 0000 448 | DC *-* AREA CODE FOR LOGICAL DRIVE 2 PMN04460 00A2 0000 449 | DC *-* AREA CODE FOR LOGICAL DRIVE 3 PMN04470 00A3 0000 450 | DC *-* AREA CODE FOR LOGICAL DRIVE 4 PMN04480 451 | * PMN04490 452 | *** THE ADR OF THE CYLINDER IN WHICH A DEFECT OC- PMN04500 453 | *** CURS, IF ANY, IS STORED IN THE 1ST, 2ND, OR 3RD PMN04510 454 | *** WORD BELOW, DEPENDING ON WHETHER IT IS THE 1ST, PMN04520 455 | *** 2ND, OR 3RD DEFECT ON THE CARTRIDGE. PMN04530 456 | * PMN04540 00A4 0000 457 | $DCYL DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04550 00A5 0000 458 | DC *-* *FOR LOGICAL DRIVE 0 2 PMN04560 00A6 0000 459 | DC *-* 3 PMN04570 00A7 0000 460 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04580 00A8 0000 461 | DC *-* *FOR LOGICAL DRIVE 1 2 PMN04590 00A9 0000 462 | DC *-* 3 PMN04600 00AA 0000 463 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04610 00AB 0000 464 | DC *-* *FOR LOGICAL DRIVE 2 2 PMN04620 00AC 0000 465 | DC *-* 3 PMN04630 00AD 0000 466 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04640 00AE 0000 467 | DC *-* *FOR LOGICAL DRIVE 3 2 PMN04650 00AF 0000 468 | DC *-* 3 PMN04660 00B0 0000 469 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04670 00B1 0000 470 | DC *-* *FOR LOGICAL DRIVE 4 2 PMN04680 00B2 0000 471 | DC *-* 3 PMN04690 RESIDENT MONITOR 473 | * PMN04710 474 | * ILS02--THIS SUBROUTINE SAVES XR1, XR2, STATUS, PMN04720 475 | * AND THE ACCUMULATOR AND ITS EXTENSION. PMN04730 476 | * THE ADDRESS OF THE INTERRUPT SERVICE ROU- PMN04740 477 | * TINE IS STORED IN $I205 BY PHASE 2 OF PMN04750 478 | * THE CORE IMAGE LOADER. WORD 10 ALWAYS PMN04760 479 | * CONTAINS THE ADDRESS OF $I200. PMN04770 480 | * PMN04780 481 | * PMN04790 482 | * PMN04800 00B3 0000 483 | $I200 DC *-* ENTRY PT (LEVEL 2 INTRUPT) PMN04810 00B4 6906 484 | STX 1 $I210+1 SAVE XR1 PMN04820 00B5 6A07 485 | STX 2 $I210+3 SAVE XR2 PMN04830 00B6 2807 486 | STS $I210+4 STORE STATUS PMN04840 00B7 D80A 487 | STD $I290 SAVE ACCUMULATOR,EXTENSION PMN04850 488 | * $I205+1 CONTAINS ADDR INTERRUPT ENTRY PT TO DKI/O PMN04860 00B8 4400 0000 489 | $I205 BSI L *-* BR TO SERVICE THE INTERRUPT PMN04870 00BA 6500 0000 490 | $I210 LDX L1 *-* RESTORE XR1 PMN04880 00BC 6600 0000 491 | LDX L2 *-* RESTORE XR2 PMN04890 00BE 2000 492 | LDS 0 RESTORE STATUS PMN04900 00BF C802 493 | LDD $I290 RESTORE ACCUMULATOR,EXT PMN04910 00C0 4CC0 00B3 494 | BOSC I $I200 RETURN FROM INTERRUPT PMN04920 00C2 495 | $I290 BSS E 0 PMN04930 00C2 0000 496 | DC *-* CONTENTS OF ACCUMULATOR AND PMN04940 00C3 0000 497 | DC *-* *EXTENTION PMN04950 RESIDENT MONITOR 499 | * PMN04970 500 | * ILS04--THIS SUBROUTINE SAVES XR1, XR2, STATUS, PMN04980 501 | * AND THE ACCUMULATOR AND ITS EXTENSION. PMN04990 502 | * IF THE INTERRUPT IS FOR A KEYBOARD REQ- * PMN05000 503 | * UEST,AND IF A MONITOR PROGRAM IS IN CON- * PMN05010 504 | * TROL, CONTROL IS PASSED TO DUMP. OTHER- * PMN05020 505 | * WISE, CONTROL IS PASSED TO THE KEYBOARD/ * PMN05030 506 | * CONSOLE PRINTER SUBROUTINE. WORD 12 AL- * PMN05040 507 | * WAYS CONTAINS THE ADDRESS OF $I400. * PMN05050 508 | * PMN05060 509 | * THE TABLE BELOW CONTAINS THE ADDRESSES OF THE PMN05070 510 | * INTERRUPT SERVICE ROUTINES FOR ALL THE DEVICES PMN05080 511 | * ON LEVEL 4. PMN05090 512 | * PMN05100 513 | * PMN05110 514 | * PMN05120 00C4 0000 515 | $I400 DC *-* ENTRY POINT PMN05130 00C5 D818 516 | STD $I490 SAVE ACCUMULATOR, EXTENSION PMN05140 00C6 280E 517 | STS $I410 SAVE STATUS PMN05150 00C7 690F 518 | STX 1 $I410+2 SAVE XR1 PMN05160 00C8 6A10 519 | STX 2 $I410+4 SAVE XR2 PMN05170 00C9 0816 520 | XIO $I492 SENSE DSW PMN05180 00CA 1002 521 | SLA 2 IS THIS INTERRUPT REQUEST PMN05190 00CB 4C10 00D0 522 | BSC L $I403,- BR IF NOT INTERRUPT REQUEST PMN05200 00CD 4480 002C 523 | BSI I $IREQ BR IF INTERRUPT REQUEST PMN05210 00CF FFFE 524 | DC -2 ERROR CODE PMN05220 00D0 6109 525 | $I403 LDX 1 9 NO. DEVICES ON LEVEL TO XR1 PMN05230 00D1 0810 526 | XIO $I494 SENSE ILSW PMN05240 00D2 1140 527 | SLCA 1 FIND CAUSE OF INTERRUPT PMN05250 528 | * $I405+1 CONTAINS ADDR OF LEVEL 4 IBT MINUS 1 PMN05260 00D3 4580 0000 529 | $I405 BSI I1 *-* BR TO SERVICE THE INTERRUPT PMN05270 00D5 2000 530 | $I410 LDS 0 RESTORE STATUS PMN05280 00D6 6500 0000 531 | LDX L1 *-* RESTORE XR1 PMN05290 00D8 6600 0000 532 | LDX L2 *-* RESTORE XR2 PMN05300 00DA C803 533 | LDD $I490 RESTORE ACCUMULATOR, EXT. PMN05310 00DB 4CC0 00C4 534 | BOSC I $I400 RETURN PMN05320 535 | * PMN05330 536 | * CONSTANTS AND WORK AREAS PMN05340 537 | * EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES PMN05350 538 | * PMN05360 00DD 0000 539 | $DDSW DC *-* DSW FOR THE DISK PMN05370 00DE 540 | $I490 BSS E 2 CONTENTS OF ACCUMULATOR, EXT. PMN05380 00E0 0000 541 | $I492 DC *-* PMN05390 00E0 542 | $SYSC EQU *-1 VERSION AND MOD NO. PMN05400 00E1 0F00 543 | DC /0F00 IOCC FOR SENSE IOCC FOR KB/CP PMN05410 00E2 544 | $I494 BSS 1 PATCH AREA PMN05420 00E3 0300 545 | DC /0300 IOCC FOR SENSING ILSW04 PMN05430 RESIDENT MONITOR 547 | * 2-2 PMN05450 548 | * 2-2 PMN05460 00E4 0000 549 | $I496 DC *-* XR3 SETTING DURING XEQ 2-2 PMN05470 00E5 0F01 550 | DC /0F01 SENSE KEY BOARD W RESET2-2 PMN05480 551 | * 2-2 PMN05490 00E6 0000 552 | $I420 DC *-* ENTRY POINT FLUSH JOB 2-2 PMN05500 00E7 08FC 553 | XIO $I496 SENSE KEY BOARD W RESET2-2 PMN05510 00E8 4C40 00EA 554 | BOSC L $I425 TURN OF INTERRUPT 2-2 PMN05520 00EA 4400 003F 555 | $I425 BSI L $DUMP BR TO $DUMP 2-7 PMN05530 00EC FFFE 556 | DC -2 CALLING AUX SUP 2-7 PMN05540 557 | * 2-2 PMN05550 00ED 558 | BSS 1 PATCH AREA 2-7 PMN05560 00EE 0000 559 | $DBSY DC *-* NON-ZERO WHEN DISK I/O BUSY PMN05570 DISKZ 561 | *************************************************** PMN05590 562 | * * PMN05600 563 | *STATUS - VERSION 2, MODIFICATION 11 * PMN05610 564 | * * PMN05620 565 | *PROGRAM NAME- * PMN05630 566 | * *FULL NAME-FORTRAN/SYSTEM DISK I/O SUBROUTINE * PMN05640 567 | * *CALLING SEQUENCE- * PMN05650 568 | * LDD PARAM * PMN05660 569 | * BSI L DZ000 * PMN05670 570 | * WHERE PARAM IS THE LABEL OF A DOUBLE-WORD * PMN05680 571 | * CELL CONTAINING THE FUNCTION CODE AND THE * PMN05690 572 | * ADDR OF THE I/O BUFFER,I.E., ADDR OF WD CNT. * PMN05700 573 | * SEE 'CAPABILITIES' FOR DISCUSSION OF PARAM- * PMN05710 574 | * ETERS. * PMN05720 575 | * PMN05730 576 | *PURPOSE- * PMN05740 577 | * TO PROVIDE A SUBROUTINE TO PERFORM DISK OPERA-* PMN05750 578 | * TIONS. THIS SUBROUTINE IS INTENDED FOR USE BY * PMN05760 579 | * MONITOR PROGRAMS AND USER PROGRAMS WRITTEN IN * PMN05770 580 | * FORTRAN. THUS,IT IS INTENDED FOR USE IN AN * PMN05780 581 | * ERROR-FREE ENVIRONMENT. * PMN05790 582 | * * PMN05800 583 | *METHOD- * PMN05810 584 | * DISKZ REQUIRES A BUFFER,THE LENGTH OF WHICH IS* PMN05820 585 | * 2 GREATER THAN THE NO. WORDS TO BE READ/WRIT- * PMN05830 586 | * TEN. * PMN05840 587 | * * PMN05850 588 | *CAPABILITIES AND LIMITATIONS- * PMN05860 589 | * THE WD CNT,AS WELL AS DZ000,MUST BE ON AN EVEN* PMN05870 590 | * BOUNDARY,MUST BE IN THE RANGE 0-32767. THE * PMN05880 591 | * DRIVE CODE MUST BE IN BITS 1-3 OF THE SECTOR * PMN05890 592 | * ADDR,WHICH FOLLOWS THE WD CNT. THE FUNCTION * PMN05900 593 | * INDICATOR MUST BE XX00 FOR A READ OR XX01 FOR * PMN05910 594 | * A WRITE,WHERE 'XX' MEANS ANY 2 HEXADECIMAL * PMN05920 595 | * CHARACTERS. A WD CNT OF ZERO INDICATES A SEEK.* PMN05930 596 | * (READ OR WRITE MAY BE INDICATED.) AUTOMATIC * PMN05940 597 | * SEEKING IS PROVIDED AS A PART OF READ/WRITE. * PMN05950 598 | * A WRITE IS ALWAYS WITH A READ-BACK-CHECK. * PMN05960 599 | * DISKZ MAKES NO PREOPERATIVE PARAMETER CHECKS. * PMN05970 600 | * * PMN05980 601 | *SPECIAL FEATURES- * PMN05990 602 | * DISKZ PROVIDES ONLY THOSE FUNCTIONS MENTIONED * PMN06000 603 | * ABOVE. DISK1 AND DISKN OFFER THIS BASIC SET OF* PMN06010 604 | * FUNCTIONS PLUS OTHERS. * PMN06020 605 | * * PMN06030 606 | *************************************************** PMN06040 DISKZ 608 | * PROVIDE PARAMETERS FOR SYSTEM LOADER PMN06060 609 | * PMN06070 00F0 610 | BSS E 0 PMN06080 00F0 00EF 611 | DC $ZEND-* DISKZ WORD COUNT PMN06090 00F1 FF6A 612 | DC -@DZID PHASE ID PMN06100 00F2 00E8 613 | DC $ZEND-6-*+1 ADDR OF SLET EXTRACT PMN06110 00F3 0001 614 | DC 1 NO. ENTRIES IN SLET EXTRACT PMN06120 00F2 615 | ORG *-2 PMN06130 DISKZ 00F2 0000 617 | DZ000 DC *-* ENTRY POINT PMN06150 00F3 7400 00EE 618 | MDX L $DBSY,0 LOOP UNTIL OPERATION IN PMN06160 00F5 70FD 619 | MDX *-3 *PROGRESS IS COMPLETE PMN06170 00F6 7002 620 | MDX DZ020 BR AROUND INT ENTRY POINT PMN06180 621 | * PMN06190 622 | * INTERRUPT ENTRY POINT PMN06200 623 | * PMN06210 00F7 0000 624 | DZ010 DC *-* INTERRUPT ADDRESS PMN06220 00F8 7018 625 | MDX DZ180 BR TO SERVICE INTERRUPT PMN06230 00F9 690B 626 | DZ020 STX 1 DZ100+1 SAVE XR1 PMN06240 00FA 6A0C 627 | STX 2 DZ100+3 SAVE XR2 PMN06250 00FB 1008 628 | SLA 8 SHIFT INDICATOR 8 BITS PMN06260 00FC D03C 629 | STO DZ945 SAVE FUNCTION INDICATOR PMN06270 00FD 18D0 630 | RTE 16 PMN06280 00FE D05A 631 | STO DZ235+1 SAVE ADDR OF THE I/O AREA PMN06290 00FF 7054 632 | MDX DZ230 BR TO CONTINUE PMN06300 0100 4C00 0000 633 | DZ060 BSC L *-* BR TO SERVICE THE INTERRUPT PMN06310 634 | * PMN06320 635 | * START ALL DISK OPERATIONS PMN06330 636 | * PMN06340 0102 690F 637 | DZ070 STX 1 DZ180+1 SAVE ADDR OF THE I/O AREA PMN06350 0103 0822 638 | XIO DZ904 START AN OPERATION PMN06360 639 | * PMN06370 640 | * RETURN TO USER PMN06380 641 | * PMN06390 0104 6500 0000 642 | DZ100 LDX L1 *-* RESTORE XR1 PMN06400 0106 6600 0000 643 | LDX L2 *-* RESTORE XR2 PMN06410 0108 C0EE 644 | LD DZ010 INTERRUPT ENTRY 2-6 PMN06420 0109 4C98 00F2 645 | BSC I DZ000,+- NO,MONITOR ENTRY 2-6 PMN06430 010B D003 646 | STO DZ110+1 YES,INT ENTRY 2-6 PMN06440 010C 1810 647 | SRA 16 RESET 2-6 PMN06450 010D D0E9 648 | STO DZ010 *INT ENTRY 2-6 PMN06460 010E 4C00 0000 649 | DZ110 BSC L *-* 2-6 PMN06470 0110 1000 650 | NOP DUMMY OP 2-6 PMN06480 651 | * PMN06490 652 | * SERVICE ALL INTERRUPTS PMN06500 653 | * PMN06510 0111 6500 0000 654 | DZ180 LDX L1 *-* ADDR OF I/O AREA TO XR1 PMN06520 0113 6600 00F2 655 | LDX L2 DZ000 ADDR OF DZ000 TO XR2 PMN06530 0115 0816 656 | XIO DZ910 SENSE THE DSW PMN06540 0116 D0C6 657 | STO $DDSW SAVE THE DSW PMN06550 0117 4810 658 | BSC - SKIP IF ERROR BIT SET 2-6 PMN06560 0118 70E7 659 | MDX DZ060 BRANCH IF ERROR BIT NOT SET PMN06570 0119 C80A 660 | DZ185 LDD DZ902 RESTORE WORD COUNT PMN06580 011A D900 661 | STD 1 0 *AND SECTOR ADDRESS PMN06590 011B 74FF 00EE 662 | MDX L $DBSY,-1 SKIP IF 16 RETRIES DONE PMN06600 011D 703A 663 | MDX DZ235 BRANCH IF LESS THAN 16 PMN06610 664 | * PMN06620 665 | * TRAP OUT TO POSTOPERATIVE TRAP PMN06630 666 | * PMN06640 011E C80F 667 | LDD DZ912 1+SCTR ADDR TO EXTENSION PMN06650 011F C011 668 | LD DZ915 PMN06660 0120 4293 669 | DZ190 BSI 2 $PST2-X2 BR TO POSTOPERATIVE ER TRAP PMN06670 0121 7034 670 | MDX DZ232 RETRY OPERATION 2-6 PMN06680 671 | * PMN06690 672 | * CONSTANTS AND WORK AREAS PMN06700 673 | * PMN06710 0122 674 | BSS E 0 PMN06720 675 | * EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES PMN06730 0122 0001 676 | DZ900 DC 1 CONSTANT,READ-AFTER-SEEK WD CNT PMN06740 0123 0000 677 | DZ901 DC 0 CURRENT ARM POSITION PMN06750 0124 0000 678 | DZ902 DC *-* LAST TWO WORDS OF SECTOR PMN06760 0125 0000 679 | DC *-* *PREVIOUSLY READ PMN06770 0126 0000 680 | DZ904 DC *-* IOCC FOR OPERATION CURRENTLY PMN06780 0127 0000 681 | DZ905 DC *-* *BEING PERFORMED PMN06790 0128 0000 682 | DZ906 DC *-* SAVE AREA FOR IOCC FOR PMN06800 0129 0000 683 | DZ907 DC *-* *USER-REQUESTED OPERATION PMN06810 012A 0122 684 | DZ908 DC DZ900 IOCC FOR READ PMN06820 012B 0000 685 | DZ909 DC *-* *AFTER SEEK PMN06830 012C 0000 686 | DZ910 DC *-* 2ND WORD OF SEEK IOCC PMN06840 012D 0000 687 | DZ911 DC *-* SENSE IOCC PMN06850 012E 0000 688 | DZ912 DC *-* INTERMEDIATE WORD COUNT PMN06860 012F 0000 689 | DZ913 DC *-* ADDR OF NEXT SEQUENTIAL SECTOR PMN06870 0130 5002 690 | DZ914 DC /5002 WRITE SELECT/POWER UNSAFE INDR PMN06880 0131 5004 691 | DZ915 DC /5004 READ/WRITE/SEEK ERROR INDICATOR PMN06890 0132 FEC0 692 | DZ916 DC -320 TO BE USED TO SIMULTANEOUSLY PMN06900 0133 0001 693 | DC 1 *DECR WD CNT, INCR SCTR ADDR PMN06910 0134 0080 694 | DZ920 DC /0080 READ CHECK BIT FOR IOCC PMN06920 0135 0600 695 | DZ925 DC /0600 2ND WD OF READ IOCC W/O AREA CD PMN06930 0136 0008 696 | DZ930 DC 8 NO. SECTORS PER CYLINDER PMN06940 0137 5000 697 | DZ935 DC /5000 NOT READY DISPLAY CODE PMN06950 0138 0FF8 698 | DZ940 DC /0FF8 'AND' OUT DR CODE, SCTR ADDR PMN06960 0139 0000 699 | DZ945 DC *-* FUNC INDICATOR (0=READ,1=WRITE) PMN06970 013A 0701 700 | DZ950 DC /0701 SENSE IOCC W/O AREA CODE PMN06980 013B 0007 701 | DZ955 DC /0007 'AND' OUT ALL BUT SCTR NO. PMN06990 013C 000A 702 | DZ960 DC $DCYL-$CYLN BASE DEFECTIVE CYL ADDR PMN07000 013D 009F 703 | DZ965 DC $ACDE BASE AREA CODE ADDR PMN07010 013E FFFB 704 | DZ970 DC $CYLN-$ACDE BASE ARM POSITION ADDR PMN07020 013F 0000 705 | DZ975 DC *-* 2ND WORD OF READ CHECK IOCC PMN07030 0140 0400 706 | DZ980 DC /0400 2ND WD OF SEEK IOCC W/O AREA CD PMN07040 0141 0141 707 | DZ985 DC 321 NO. WORDS PER SECTOR (W/ ADDR) PMN07050 0142 0000 708 | DZ990 DC *-* CURRENT SECTOR NO. PMN07060 0143 FFFF 709 | DZ995 DC -1 MASK FOR COMPLEMENTING PMN07070 710 | * PMN07080 711 | * RESERVED FOR SAVING CORE ON A DUMP ENTRY TO SKEL PMN07090 712 | * PMN07100 0144 713 | BSS 2 THIS AREA MUST BE AT $CIBA+319 PMN07110 00F2 714 | X2 EQU DZ000 PMN07120 715 | * PMN07130 716 | * PMN07140 717 | * PMN07150 0146 1810 718 | DZ210 SRA 16 PMN07160 0147 D0A6 719 | STO $DBSY CLEAR BUSY INDICATOR PMN07170 0148 74FF 0032 720 | MDX L $IOCT,-1 DECREMENT IOCS COUNTER PMN07180 014A 1000 721 | NOP PMN07190 014B 70B8 722 | MDX DZ100 TO EXIT PMN07200 723 | * PMN07210 724 | * PREPARE TO TRAP OUT ON 'POWER UNSAFE' CONDITION PMN07220 725 | * PMN07230 014C C8D7 726 | DZ215 LDD DZ902 RESTORE WORD COUNT 2-6 PMN07240 014D D900 727 | STD 1 0 *AND SECTOR ADDRES 2-6 PMN07250 014E C0E1 728 | LD DZ914 PMN07260 014F 70D0 729 | MDX DZ190 BR TO TPAP OUT PMN07270 730 | * PMN07280 731 | * PREPARE TO TRAP OUT ON 'NOT READY' CONDITION PMN07290 732 | * PMN07300 0150 C0E6 733 | DZ220 LD DZ935 FETCH ERROR CODE PMN07310 0151 4400 0028 734 | BSI L $PRET BR TO PREOPERATIVE ERR TRAP PMN07320 0153 7038 735 | MDX DZ340 RETRY THE OPERATION PMN07330 736 | * PMN07340 737 | * STATEMENTS MOVED 2-1 PMN07350 738 | * PMN07360 0154 7401 0032 739 | DZ230 MDX L $IOCT,1 INCREMENT IOCS COUNTER PMN07370 0156 6211 740 | DZ232 LDX 2 @TCNT TURN BUSY INDICATOR ON 2-10 PMN07380 0157 6A96 741 | STX 2 $DBSY * 2-6 PMN07390 0158 6500 0000 742 | DZ235 LDX L1 *-* ADDR I/O AREA TO XR1 PMN07400 015A C900 743 | LDD 1 0 PMN07410 015B D8C8 744 | STD DZ902 SAVE WORD COUNT, SCTR ADDR PMN07420 015C D8D1 745 | STD DZ912 PMN07430 015D 1810 746 | DZ240 SRA 16 PMN07440 015E 1084 747 | SLT 4 DRIVE CODE IN BITS 12-15 PMN07450 015F D00E 748 | STO DZ280+1 PMN07460 0160 80DC 749 | A DZ965 COMPUTE AND STORE THE PMN07470 0161 D01C 750 | STO DZ330+1 *ADDR OF THE AREA CODE PMN07480 0162 80DB 751 | A DZ970 COMPUTE AND STORE THE PMN07490 0163 D034 752 | STO DZ350+1 *ADDR OF THE ARM POSITION PMN07500 0164 80D7 753 | A DZ960 ADD IN BASE DT ADDR PMN07510 0165 8008 754 | A DZ280+1 ADD IN THE DRIVE PMN07520 0166 8007 755 | A DZ280+1 *CODE TWICE MORE PMN07530 0167 D006 756 | STO DZ280+1 PMN07540 0168 62FD 757 | LDX 2 -3 INITIALIZE COUNTER FOR LOOP PMN07550 0169 69BE 758 | STX 1 DZ906 PMN07560 016A C101 759 | LD 1 1 FETCH DESIRED SECTOR ADDR PMN07570 016B E0CC 760 | AND DZ940 'AND' OUT SECTOR NO. PMN07580 016C D101 761 | DZ250 STO 1 1 *AND DRIVE CODE PMN07590 016D 9400 0000 762 | DZ280 S L *-* SUB DEFECTIVE CYLINDER ADDR PMN07600 016F 4828 763 | BSC Z+ SKIP IF BAD CYLINDER PMN07610 0170 7007 764 | MDX DZ300 BR TO CONTINUE PROCESSING PMN07620 0171 C101 765 | LD 1 1 PMN07630 0172 80C3 766 | A DZ930 INCREMENT SCTR ADDR BY 8 PMN07640 0173 7401 016E 767 | MDX L DZ280+1,1 POINT TO NEXT DEFECTIVE CYL PMN07650 0175 7201 768 | MDX 2 1 SKIP AFTER 3RD PASS PMN07660 0176 70F5 769 | MDX DZ250 COMPARE W/ NEXT DEF CYL ADR PMN07670 0177 D101 770 | STO 1 1 SCTR ADDR WITH 3 DEF CYL2-4 PMN07680 771 | * PMN07690 772 | * CONSTRUCT THE 2ND WORD OF ALL IOCC'S PMN07700 773 | * PMN07710 0178 6600 00F2 774 | DZ300 LDX L2 DZ000 ADDR OF DZ000 TO XR2 PMN07720 017A C23D 775 | LD 2 DZ913-X2 FETCH SECTOR ADDRESS PMN07730 017B E249 776 | AND 2 DZ955-X2 'AND' OUT ALL BUT SECTOR NO PMN07740 017C D250 777 | STO 2 DZ990-X2 SAVE SECTOR NO. PMN07750 017D C400 0000 778 | DZ330 LD L *-* FETCH AREA CODE PMN07760 017F EA4E 779 | OR 2 DZ980-X2 'OR' IN SEEK FUNCTION CODE PMN07770 0180 D23A 780 | STO 2 DZ910-X2 SEEK IOCC MINUS DIRECTION PMN07780 0181 EA43 781 | OR 2 DZ925-X2 'OR' IN READ FUNCTION CODE PMN07790 0182 D239 782 | STO 2 DZ909-X2 IOCC FOR READ-AFTER-SEEK PMN07800 0183 EA50 783 | OR 2 DZ990-X2 'OR' IN SECTOR NO. PMN07810 0184 9247 784 | S 2 DZ945-X2 COMPLETE READ/WRITE CODE PMN07820 0185 D237 785 | STO 2 DZ907-X2 2ND WD OF READ/WRITE IOCC PMN07830 0186 EA42 786 | OR 2 DZ920-X2 'OR' IN READ CHECK BIT PMN07840 0187 8247 787 | A 2 DZ945-X2 PMN07850 0188 D24D 788 | STO 2 DZ975-X2 2ND WD OF READ CHECK IOCC PMN07860 0189 EA48 789 | OR 2 DZ950-X2 'OR' IN SENSE IOCC BITS PMN07870 018A D23B 790 | STO 2 DZ911-X2 COMPLETED SENSE IOCC PMN07880 018B CA3C 791 | LDD 2 DZ912-X2 1+SCTR ADDR TO EXTENSION PMN07890 018C 0A3A 792 | DZ340 XIO 2 DZ910-X2 SENSE FOR DISK READY PMN07900 018D D2EB 793 | STO 2 $DDSW-X2 SAVE THE DSW PMN07910 018E 4828 794 | BSC Z+ SKIP UNLESS POWER UNSAFE OR PMN07920 018F 70BC 795 | MDX DZ215 *WRITE SELECT, BR OTHERWISE PMN07930 0190 1002 796 | SLA 2 BR TO PREOPERATIVE ERR TRAP PMN07940 0191 4828 797 | BSC Z+ *IF DISK NOT READY, SKIP PMN07950 0192 70BD 798 | MDX DZ220 *OTHERWISE PMN07960 799 | * STATEMENTS REMOVED 2-1 PMN07970 0193 1002 800 | SLA 2 CHECK FOR ARM AT HOME 2-11 PMN07980 0194 4828 801 | BSC +Z SKIP IF NOT HOME 2-11 PMN07990 0195 7010 802 | MDX DZ390+1 BR TO VERIFY ARM AT HOM2-11 PMN08000 803 | * 2-11 PMN08010 804 | * 3 INSTRUCTIONS REMOVED 2-11 PMN08020 805 | * 2-11 PMN08025 0196 C101 806 | LD 1 1 FETCH DESIRED CYLINDER ADDR PMN08030 0197 9400 0000 807 | DZ350 S L *-* SUBTRACT ARM POSITION PMN08040 0199 4818 808 | BSC +- SKIP IF SEEK NECESSARY PMN08050 019A 701B 809 | MDX DZ400 BRANCH TO PERFORM OPERATION PMN08060 810 | * PMN08070 811 | * SEEK PMN08080 812 | * PMN08090 019B 1893 813 | SRT 19 PUT NO. CYLINDERS IN EXT PMN08100 019C 180F 814 | SRA 15 + OR - SIGN TO BIT 15 PMN08110 019D 1002 815 | SLA 2 SHIFT SIGN TO BIT 13 PMN08120 019E EA3A 816 | OR 2 DZ910-X2 "OR"
ibm/ibm1130-lib/dmsr2v12/pmonitor_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator