ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \jqpreci.asm PRECI- RESIDENT COMMA 2 AUG 67 2 | ABS J1700020 0005 3 | $CIBA EQU /5 ADDR OF CIB ON MASTER CARTRIDGE J1700030 0006 4 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 J1700040 0007 5 | $COMN EQU /7 WORD COUNT OF COMMON J1700050 000E 6 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC) J1700060 000F 7 | $CTSW EQU /F MCR SW,NON-ZERO=// RECD TRAPPED J1700070 0010 8 | $DADR EQU /10 SCTR ADDR OF PROG TO BE FETCHED J1700080 0011 9 | $DABL EQU /11 IOCC FOR SCA RESET (ODD ADDR) J1700090 0012 10 | $DREQ EQU /12 INDR FOR REQUESTED V. DISK I/O J1700100 0013 11 | $IBSY EQU /13 PRINC I/O BUSY INDR,NON-ZERO=BSY J1700110 0014 12 | $HASH EQU /14 WORK AREA FOR MONITOR PROGRAMS J1700120 0028 13 | $PRET EQU /28 ADDR PREOPERATIVE ERROR TRAP J1700130 002C 14 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE J1700140 002D 15 | $ULET EQU /2D ADDR OF LET, LOGICAL DRIVE 0 J1700150 0032 16 | $IOCT EQU /32 IOCS CTR,0=NO I/O IN PROGRESS J1700160 0033 17 | $LAST EQU /33 LAST CD INDR,NON-ZERO=LAST CARD J1700170 0034 18 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP J1700180 0035 19 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEQ J1700190 0036 20 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY J1700200 0037 21 | $PGCT EQU /37 PAGE NO. FOR PAGE HEADINGS J1700210 0038 22 | $EXIT EQU /38 ADDR CALL EXIT ENTRY POINT J1700220 0039 23 | $LINK EQU /39 ADDR CALL LINK ENTRY POINT J1700230 003F 24 | $DUMP EQU /3F ADDR OF CALL DUMP, ENTRY POINT J1700240 0077 25 | $DCDE EQU /77 DRIVE CODE FOR CORE LOAD BLDR J1700250 0078 26 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE J1700260 0079 27 | $UFIO EQU /79 ARM POSITION IN UNFORMATTED AREA J1700270 007A 28 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE J1700280 007B 29 | $WRD1 EQU /7B LOAD ADDR FOR CURR USER CORE LD J1700290 007C 30 | $KCSW EQU /7C INHIBIT INPUT/PRINT OVERLAP SW J1700300 007D 31 | $UFDR EQU /7D UNFORMATTED I/O DRIVE CODE J1700310 007E 32 | $CPTR EQU /7E CHANNEL 12 INDICATOR FOR CP J1700320 007F 33 | $1132 EQU /7F CHANNEL 12 INDICATOR FOR 1132 J1700330 0080 34 | $1403 EQU /80 CHANNEL 12 INDICATOR FOR 1403 J1700340 0081 35 | $PST1 EQU /81 ADDR POSTOP ERROR TRAP,LEVEL 1 J1700350 0085 36 | $PST2 EQU /85 ADDR POSTOP ERROR TRAP,LEVEL 2 J1700360 0089 37 | $PST3 EQU /89 ADDR POSTOP ERROR TRAP,LEVEL 3 J1700370 008D 38 | $PST4 EQU /8D ADDR POSTOP ERROR TRAP,LEVEL 4 J1700380 0091 39 | $STOP EQU /91 ADDR PROGRAM STOP KEY TRAP J1700390 0095 40 | $FPAD EQU /95 FILE PROTECT ADDR (ADJ),LOG DR 0 J1700400 009A 41 | $CYLN EQU /9A ARM POSITION FOR LOGICAL DRIVE 0 J1700410 009F 42 | $ACDE EQU /9F AREA CODE FOR LOGICAL DRIVE 0 J1700420 00A4 43 | $DCYL EQU /A4 1ST DEF CYL ADDR, LOGICAL DR 0 J1700430 00B3 44 | $I200 EQU /B3 ENTRY POINT TO ILS FOR LEVEL 2 J1700440 00B8 45 | $I205 EQU /B8 J1700450 00B9 46 | $IBT2 EQU $I205+1 ADDR OF IBT FOR LEVEL 2 J1700460 00C4 47 | $I400 EQU /C4 ENTRY POINT TO ILS FOR LEVEL 4 J1700470 00D3 48 | $I405 EQU /D3 J1700480 00D4 49 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 J1700490 00D5 50 | $I410 EQU /D5 J1700500 00EE 51 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY J1700510 01CB 52 | $BYSW EQU /1CB BYPASS SW,NOP IF FETCHING SOCAL J1700520 00F2 53 | DZ000 EQU /0F2 DISKZ ENTRY POINT J1700530 01E0 54 | $ZEND EQU /1E0 ADDR 1+LAST WORD OF DISKZ J1700540 7FA0 56 | C EQU /7FA0 CATCO POINTER SET TO MIDDLE J1700560 57 | *************************************************** J1700570 58 | * * J1700580 59 | * INDEX REG 1 IS SET TO .C. WHEN CATCO IS FORMED * J1700590 60 | * FOR USE BY ALL OF DUP FUNCTIONS. ANY DUP ROUT * J1700600 61 | * USING XR 1 FOR OTHER REASONS MUST RESTORE. * J1700610 62 | * ALL VALUES IN CATCO HAVE LABELS EQUATED TO THE * J1700620 63 | * VALUE THAT INDICATES THEIR RELATIVE LOCATION * J1700630 64 | * FROM .C. * J1700640 65 | * * J1700650 66 | *************************************************** J1700660 67 | * * J1700670 68 | * CATCO DCOM IMAGE * J1700680 69 | * EQUIVALENCES USED TO REFERENCE CATCO WITH XR1 * J1700690 70 | * * J1700700 71 | *************************************************** J1700710 FF84 72 | #NAME EQU 4-/80 NAME OF PROGRAM J1700720 FF86 73 | #DBCT EQU 6-/80 DISK BLOCK COUNT OF PROGRAM J1700730 FF87 74 | #FCNT EQU 7-/80 FILES SW,ZERO = NO FILES J1700740 FF88 75 | #SYSC EQU 8-/80 NON-ZERO,SYSTEM CARTRIDGE J1700750 FF89 76 | #JBSW EQU 9-/80 JOB SW,NON-ZERO='T' MODE J1700760 FF8A 77 | #CBSW EQU 10-/80 CLB SW,NON-ZERO=STORECI J1700770 FF8B 78 | #LCNT EQU 11-/80 NO. OF LOCALS J1700780 FF8C 79 | #MPSW EQU 12-/80 NON-ZERO, CORE MAP DESIRED J1700790 FF8D 80 | #MDF1 EQU 13-/80 NO. OF DUP CTRL RCDS J1700800 FF8E 81 | #MDF2 EQU 14-/80 ADDR OF MODIF BUFFER J1700810 FF8F 82 | #NCNT EQU 15-/80 NO. OF NOCALS J1700820 FF90 83 | #ENTY EQU 16-/80 RELATIVE ENTRY ADDR OF PROG J1700830 FF91 84 | #RP67 EQU 17-/80 IF NON-ZERO,1442 MOD 6,7 J1700840 85 | * J1700850 86 | * NEGATIVE VALUE REPRESENTS DEFAULT CONDITION * J1700860 FF92 87 | #TODR EQU 18-/80 DR CODE OF 'TO' DRIVE J1700870 FF93 88 | #FRDR EQU 19-/80 DR CODE OF 'FROM' DRIVE J1700880 89 | * * J1700890 FF94 90 | #FHOL EQU 20-/80 ADDR OF LARGEST FXA HOLE J1700900 FF95 91 | #FSZE EQU 21-/80 BLK CNT LARGEST HOLE IN FXA J1700910 FF96 92 | #UHOL EQU 22-/80 ADDR OF LARGEST UA HOLE J1700920 FF97 93 | #USZE EQU 23-/80 BLK CNT LARGEST HOLE IN UA J1700930 FF98 94 | #DCSW EQU 24-/80 NON-ZERO=DUP CALL J1700940 FF99 95 | #PIOD EQU 25-/80 PRINC. I/O INDICATOR J1700950 FF9A 96 | #PPTR EQU 26-/80 PRINC. PRINTER INDICATOR J1700960 FF9B 97 | #CIAD EQU 27-/80 WD NO. SCTR 0,CIL ADDR J1700970 FF9C 98 | #ACIN EQU 28-/80 AVAILABLE CARTRIDGE INDR2-8 J1700980 FF9D 99 | #GRPH EQU 29-/80 2250 INDICATOR 2-8 J1700990 FF9E 100 | #GCNT EQU 30-/80 NO. G2250 RECORDS 2-8 J1701000 FF9F 101 | #LOSW EQU 31-/80 LOCAL-CALLS-LOCAL INDR 2-8 J1701010 FFA0 102 | #X3SW EQU 32-/80 SPECIAL ILS SWITCH 2-8 J1701020 FFA1 103 | #ECNT EQU 33-/80 NO. OF EQUAT RCDS 2-8 J1701030 FFA3 104 | #ANDU EQU 35-/80 END OF UA (ADJ) LOG DR 0-4 J1701040 FFA8 105 | #BNDU EQU 40-/80 END OF UA (BASE) LOG DR 0-4 J1701050 FFAD 106 | #FPAD EQU 45-/80 FILE PROTECT ADDR (BASE) J1701060 FFB2 107 | #PCID EQU 50-/80 CART ID, PHYS DR 0-4 J1701070 FFB7 108 | #CIDN EQU 55-/80 CART ID, LOG DR 0-4 J1701080 FFBC 109 | #CIBA EQU 60-/80 CIB ADDR, LOG DR 0-4 J1701090 FFC1 110 | #SCRA EQU 65-/80 SCRA, LOG DR 0-4 J1701100 FFC6 111 | #FMAT EQU 70-/80 WS FORMAT, LOG DR 0-4 J1701110 FFCB 112 | #FLET EQU 75-/80 FLET ADDR, LOG DR 0-4 J1701120 FFD0 113 | #ULET EQU 80-/80 LET ADDR, LOG DR 0-4 J1701130 FFD5 114 | #WSCT EQU 85-/80 WS BLK CNT, LOG DR 0-4 J1701140 FFDA 115 | #CSHN EQU 90-/80 CUSHION END SCTR ADDR, 0-4 J1701150 0001 116 | #DCOM EQU 1 SCTR ADDR OF DCOM J1701160 0007 117 | #HDNG EQU 7 SCTR WITH PAGE HEADING J1701170 0FB0 118 | @SBFR EQU /FB0 2-8 J1701180 CONCATENATED COMMON AREA (CATCO) 120 | *************************************************** J1701200 121 | * * J1701210 122 | * CATCO IOAR HDRS FOR DUP PHASES J1701220 123 | * * J1701230 124 | *************************************************** J1701240 FFF0 125 | ORG -/10 J1701250 FFF0 126 | DCHDR BSS 2 DUP CONTROL PH02 J1701260 FFF2 127 | STHDR BSS 2 STORE PH03 J1701270 FFF4 128 | FLHDR BSS 2 FILEQ PH04 J1701280 FFF6 129 | DMHDR BSS 2 DUMP PH05 J1701290 FFF8 130 | DLHDR BSS 2 DUMPLET PH06 J1701300 FFFA 131 | DTHDR BSS 2 DELETE PH07 J1701310 FFFC 132 | DFHDR BSS 2 DEFINE PH08 J1701320 FFFE 133 | DXHDR BSS 2 DUP EXIT PH09 J1701330 0000 134 | UCHDR BSS 2 DUP UPCOR PH13 J1701340 0002 135 | PIHDR BSS 2 PRINCIPAL I/O BLOCK PH14 J1701350 0004 136 | SIHDR BSS 2 PRINC I/O (W/O KB) BLK PH15 J1701360 0006 137 | PTHDR BSS 2 PAPER TAPE I/O BLOCK PH16 J1701370 0008 138 | CIHDR BSS 2 CI PHASE READ BY CL BUILDER J1701380 000A 139 | MUHDR BSS 2 MACRO UPDATE PH206 2-8 J1701390 000C 140 | D2HDR BSS 2 DUP CONTROL 2 PH205 2-8 J1701400 PRECI- CATCO DUP SWITCHES 142 | *************************************************** J1701420 143 | * J1701430 144 | * CATCO DUP SWITCHES * J1701440 145 | * WORDS USED FOR COMMUNICATION OF DATA J1701450 146 | * BETWEEN DUP ROUTINES. J1701460 147 | * * J1701470 148 | * INITIALIZED TO ZERO BY .REST. OF DUPCO * J1701480 149 | * J1701490 150 | *************************************************** J1701500 000E 151 | CL1 EQU * J1701510 000E 152 | ASMSW BSS 1 NON ZERO IF DEFINE VOID ASM J1701520 000F 153 | BITSW BSS 1 NON ZERO TO ALLOW MDUMP-S J1701530 0010 154 | BLKSW BSS 1 NON ZERO IF BYPASSING REC J1701540 0011 155 | CIERR BSS 1 ERROR NO DETECTED BY PH 17 J1701550 0012 156 | CISW BSS 1 NON ZERO IF STORE CI J1701560 0013 157 | CLBSW BSS 1 NON ZERO IF PRECI EXECUTED J1701570 0014 158 | CNTNO BSS 1 RECORD NO BEING PCHD OR RD J1701580 159 | * * J1701590 160 | * .DATSW. IS FILLED WITH THE CNT FIELD OF THE * J1701600 161 | * DUP CONTROL RECORD. * J1701610 162 | * USED PRIMARILY FOR DATA MOVEMENT, BUT ALSO IS * J1701620 163 | * USED FOR COUNT OF RECORDS TO READ AFTER A * J1701630 164 | * STORE CI DUP CONTROL RECORD. * J1701640 0015 165 | DATSW BSS 1 RECORDS VALUE IN CNT FIELD J1701650 0016 166 | DBADR BSS 1 DB ADDR OF REFERENCED PROG J1701660 0017 167 | DELSW BSS 1 ADDR OF REQ LET ENTRY - 1 J1701670 0018 168 | DFNSW BSS 1 NON ZERO IF DEFINE FXA J1701680 0019 169 | DKSAD BSS 1 DK SCTR ADDR W/O DR CODE J1701690 001A 170 | DUMPP BSS E 2 LAST LIMITS FOR PRNTR DUMP J1701700 001C 171 | FORSW BSS 1 NON ZERO IF DEFINE VOID FOR J1701710 001D 172 | FRWS BSS 1 NON ZERO IF FROM FLD IS WS J1701720 001E 173 | FXSW BSS 1 NON ZERO IF FIXED AREA REQD J1701730 001F 174 | HOLSW BSS 1 NON ZERO IF NO CONV REQD J1701740 0020 175 | IOSW BSS 1 NON ZERO IF IN/OUT REQD J1701750 176 | * * J1701760 177 | * DUMPLET SWITCH - ZERO IF NOT DUMPLET/DUMPFLET * J1701770 178 | * PLUS VALUE REQUIRES PRINT OF BOTH LET/FLET* J1701780 179 | * NEG. VALUE REQUIRES PRINT OF FLET ONLY * J1701790 0021 180 | LETSW BSS 1 NON ZERO,PRINT LET OR FLET* J1701800 0022 181 | LSTLF BSS 1 LAST LET/FLET SECT PROCESSD J1701810 0023 182 | MODSW BSS 1 NON ZERO IF STORE MOD FUNC J1701820 0024 183 | NAMSW BSS 1 NON ZERO IF NAME IN LET/F J1701830 0025 184 | NEGSW BSS 1 NON ZERO IF SHRINKING FXA J1701840 0026 185 | PGMHL BSS 1 WORD COUNT OF THE PROG HDR J1701850 0027 186 | PRSW BSS 1 NON ZERO IF PRINTING OUTPUT J1701860 0028 187 | PTSW BSS 1 NON ZERO IF PAPER TAPE REQD J1701870 0029 188 | SKWDS BSS 1 WDS TO SEARCH IN L/F SECT J1701880 002A 189 | STCSW BSS 1 NON ZERO IF STORE DATA CI J1701890 002B 190 | STSW BSS 1 NON ZERO IF STORE TYPE J1701900 002C 191 | TEMP1 BSS E 1 1ST WD OF BINEB OUTPUT J1701910 002D 192 | TEMP2 BSS 1 2ND WD OF BINEB OUTPUT J1701920 002E 193 | TOWS BSS 1 NON ZERO IF TO FIELD IS WS J1701930 002F 194 | T3MSW BSS 1 TYPE 3,4 SOCAL LEVEL CELL J1701940 0030 195 | UASW BSS 1 NON ZERO IF USER AREA REQD J1701950 0031 196 | WSSW BSS 1 NON ZERO IF WORK STG REQD J1701960 0032 197 | XEQSW BSS 1 NON ZERO IF NOT RET FR GET J1701970 0033 198 | EBCSW BSS 1 NON ZERO IF EBC DATA OP 2E2 J1701980 0034 199 | HDNSW BSS 1 NON ZERO IF NAME IN HDR 2-8 J1701990 0035 200 | RPGSW BSS 1 NON Z IF DEFINE VOID RPG2-8 J1702000 0036 201 | DFLSW BSS 1 NON ZERO IF *DFILE 2-8 J1702010 0037 202 | BSS 1 RESERVED FOR ADDITION 2-8 J1702020 0037 203 | CL2 EQU *-1 J1702030 PRECI- CATCO DUP SWITCHES 205 | *************************************************** J1702050 206 | * * J1702060 207 | * CATCO DUP SWITCHES * J1702070 208 | * INITIALIZED BY DCTL AND NOT RESET BY .REST. * J1702080 209 | * * J1702090 210 | *************************************************** J1702100 0038 211 | IOREQ BSS 1 MON-ZERO,AUX I/O SET REQ J1702110 0039 212 | PH2 BSS 1 NON-ZERO IF DCTL IN CORE J1702120 003A 213 | PH3 BSS 1 NON-ZERO IF STORE IN CORE J1702130 003B 214 | PH4 BSS 1 NON-ZERO IF DUMP IN CORE J1702140 215 | ************************************************2-8 J1702150 216 | * 2-8 J1702160 217 | * CATCO SWITCH INITIALIZED TO ZERO 2-8 J1702170 218 | * BY CCAT SUBR AND SET BY MACRO UPDATE PROGRAM2-8 J1702180 219 | * 2-8 J1702190 220 | ************************************************2-8 J1702200 003C 221 | DUPCR BSS 1 NON ZERO IF DUP CTRL RCD2-8 J1702210 222 | *************************************************** J1702220 223 | * * J1702230 224 | * CATCO DUP SWITCHES SET BY CCAT SUBR * J1702240 225 | * * J1702250 226 | *************************************************** J1702260 003D 227 | ADDR2 BSS 1 KB INTERRUPT ADDRESS J1702270 003E 228 | KBREQ BSS 1 CONTENTS OF LOC 13 J1702280 229 | * THE FOLLOWING SWITCH IS SET TO INDICATE THE J1702290 230 | * PRINCIPAL INPUT DEVICE J1702300 231 | * - IS PAPER TAPE J1702310 232 | * 0 IS CARD J1702320 233 | * + IS KEYBOARD J1702330 003F 234 | INOUT BSS 1 PRINCIPAL INPUT SWITCH J1702340 235 | * J1702350 0040 236 | PTPON BSS 1 NON-ZERO IF PAPER TP ON SYS J1702360 237 | *************************************************** J1702370 238 | * * J1702380 239 | * LEVEL 4 INTERRUPT BRANCH TABLE * J1702390 240 | * ADDRESSES. INITIALIZED BY CCAT, * J1702400 241 | * AND CARD/PAPER TAPE INTERFACES. * J1702410 242 | * * J1702420 243 | *************************************************** J1702430 0049 244 | ORG /0049 J1702440 0049 245 | IBT BSS 9 9 WD INTRPT BRANCH TABLE J1702450 246 | *************************************************** J1702460 247 | * * J1702470 248 | * CATCO I/O ADDRESSES REQUIRED BY DUP * J1702480 249 | * * J1702490 250 | *************************************************** J1702500 0052 251 | P1442 BSS E 2 SYS 1442 IOAR HEADER J1702510 0054 252 | PRPAR BSS 2 DEFAULT LIMITS TO PRINT J1702520 0056 253 | PHDUP BSS 1 LAST DUP PHASE IN CORE J1702530 0057 254 | CRBUF BSS 1 81 WD BFR FOR DUP CTRL RCDS J1702540 0058 255 | DCADR BSS 1 ADDR FOR DUP CTRL IOAR HDR J1702550 0059 256 | HDBUF BSS 1 ADDR OF PAGE HEADING BFR J1702560 005A 257 | IOBLK BSS 1 ADDR OF DUP I/O PHASE J1702570 005B 258 | SDBUF BSS 1 STORE/DUMP BUFFER J1702580 005C 259 | LETAR BSS 1 ADDR OF LET SEARCH BUFFER J1702590 005D 260 | PEBUF BSS 1 41 WD BFR FOR PACKED EBCDIC J1702600 005E 261 | THIS BSS 1 ADDR OF DOUBLE BFR, BFR 1 J1702610 005F 262 | NEXT BSS 1 ADDR OF DOUBLE BFR, BFR 2 J1702620 00F2 264 | DISKZ EQU DZ000 DISKZ ENTRY POINT J1702640 01DE 265 | B EQU $ZEND-2 J1702650 01DE 266 | DMPLC EQU B IOAR CORE ADDR FOR DMPLT J1702660 01DE 267 | EXITC EQU B IOAR CORE ADDR FOR DEXIT J1702670 01DE 268 | MUPC EQU B IOAR CORE ADDR FOR MUP 2-8 J1702680 11E0 269 | DCTL EQU B+/1002 ENTRY ADDRESS OF DCTL J1702690 11DE 270 | DCTLC EQU B+/1000 IOAR CORE ADDR FOR DCTL J1702700 21DE 271 | WSDC EQU B+/2000 IOAR CORE ADDR FOR STORE J1702710 41DE 272 | DUMPC EQU B+/4000 IOAR CORE ADDR FOR DDUMP J1702720 7DB0 273 | DUPCO EQU /7DB0 ADDR OF RESIDENT DUPCO J1702730 7F1E 274 | CATCO EQU /7F20-2 ADDR OF DCOM IOAR HEADER J1702740 275 | * * J1702750 276 | * DUPCO ENTRY POINTS...USED WITH INDIRECT BSI * J1702760 277 | * * J1702770 7DB0 278 | ORG DUPCO J1702780 7DB0 279 | BINEB BSS 1 CONVERSION BINARY TO EBCDIC J1702790 7DB1 280 | WRTDC BSS 1 WRITE DCOM(S) SUBROUTINE J1702800 7DB2 281 | ENTER BSS 1 SAVE XR-S AND CONDITIONS J1702810 7DB3 282 | GET BSS 1 READ FROM DISK USING DISKZ J1702820 7DB4 283 | LEAVE BSS 1 HANDLES ALL EXITS FROM DUP J1702830 7DB5 284 | LINE BSS 1 SPACES PRINTER 1 LINE J1702840 7DB6 285 | MASK BSS 1 INHIBITS KB INT REQUEST J1702850 7DB7 286 | MDUMP BSS 1 PRINTS SELECTED CORE LOC-S J1702860 7DB8 287 | PAGE BSS 1 SKIPS TO NEXT PAGE J1702870 7DB9 288 | PHID BSS 1 RECORDS PHASE ID J1702880 7DBA 289 | PHIDM BSS 1 RECORDS PHASE AND MODIFIER J1702890 7DBB 290 | PRINT BSS 1 USE SYS PR SUBR TO PRINT J1702900 7DBC 291 | PUT BSS 1 WRITES TO DISK USING DISKZ J1702910 7DBD 292 | REST BSS 1 RESTORE CATCO,GO TO DCTL J1702920 7DBE 293 | RTURN BSS 1 RESTORE XR-S AND CONDITIONS J1702930 294 | * * J1702940 295 | * INPUT/OUTPUT PARAMETERS , CORE ADDRESSES * J1702950 296 | * * J1702960 7D91 297 | BUF6 EQU DUPCO-/1F ADDR OF PAGE HEADING BUFFER J1702970 7C50 298 | PRPNT EQU BUF6-/141 IOAR ADDR FOR PRINC. PTR J1702980 7A06 299 | IOADR EQU BUF6-/38B START OF I/O INTERFACE J1702990 7A0A 300 | GETHO EQU IOADR+4 ENTRY FOR READING HOLL TYPE J1703000 7A0B 301 | GETBI EQU IOADR+5 ENTRY FOR READING BINARY J1703010 7A0C 302 | PACKB EQU IOADR+6 ENTRY TO PACK BINARY J1703020 7A0D 303 | PCHBI EQU IOADR+7 ENTRY TO PUNCH BINARY J1703030 79B5 304 | BUF1 EQU IOADR-/51 ADDR OF NEXT BUFFER J1703040 7963 305 | BUF2 EQU BUF1-/52 ADDR OF THIS BUFFER J1703050 7925 306 | BUF3 EQU BUF2-/3E ADDR OF PACKED EBC BUFFER J1703060 78D3 307 | BUF4 EQU BUF3-/52 ADDR OF CONTROL RCD BUFFER J1703070 7782 308 | BUF5 EQU IOADR-/284 ADDR OF LET SCTR BFR J1703080 0640 309 | BUF7 EQU BUF5-/7142 ADDR OF STORE/DUMP BFR J1703090 UPCOR-SAVED DURING STORECI BY DEXIT 7782 311 | ORG BUF5 J1703110 7782 0000 312 | DC *-* WD CNT, CREATED BY SYS LDR J1703120 7783 000D 313 | DC 13 UPCOR PHASE ID J1703130 7784 314 | BSS /8000-*-1 UPCOR AREA J1703140 7FFF FFFF 315 | DC /FFFF SIGNIFY END OF UPCOR AREA J1703150 PRINCIPAL I/O-GENERATED BY CCAT 7A06 317 | ORG IOADR J1703170 *SBRKGPW 0E 318 | DUP - PRINCIPAL I/O DUMMY PHASE J1703180 7A06 0000 319 | DC *-* WD CNT, CREATED BY SYS LDR J1703190 7A07 000E 320 | DC 14 PRINC. I/O PHASE ID J1703200 7A08 321 | BSS PRPNT-*-1 AREA REQ FOR PHASE 14 J1703210 7C4F FFFF 322 | DC /FFFF SIGNIFY END OF PHASE 14 J1703220 PRINCIPAL I/O (W/O KB)-BUILT BY CCAT 7A06 324 | ORG IOADR J1703240 *SBRKGPW 0F 325 | DUP - PRINCIPAL I/O (W/O KB) DUMMY PHASE J1703250 7A06 0000 326 | DC *-* WD CNT, CREATED BY SYS LDR J1703260 7A07 000F 327 | DC 15 I/O (W/O DB) PHASE ID J1703270 7A08 328 | BSS PRPNT-*-1 AREA REQ FOR PHASE 15 J1703280 7C4F FFFF 329 | DC /FFFF SIGNIFY END OF PHASE 15 J1703290 PAPER TAPE I/O-BUILT BY CCAT 7A06 331 | ORG IOADR J1703310 *SBRKGPW 10 332 | DUP - PAPER TAPE I/O DUMMY PHASE J1703320 7A06 0000 333 | DC *-* WD CNT, CREATED BY SYS LDR J1703330 7A07 0010 334 | DC 16 PAPT I/O PHASE ID J1703340 7A08 335 | BSS PRPNT-*-1 AREA REQ FOR PHASE 16 J1703350 7C4F FFFF 336 | DC /FFFF SIGNIFY END OF PHASE 16 J1703360 PRECI--PROLOGUE 338 | *************************************************** J1703380 339 | * * J1703390 340 | *STATUS - VERSION 2, MODIFICATION 11 * J1703400 341 | * * J1703410 342 | *FUNCTION/OPERATION- * J1703420 343 | * THIS DUP MODULE MOVES A CORE IMAGE PROGRAM * J1703430 344 | * AS BUILT BY THE CORE LOAD BUILDER TO THE * J1703440 345 | * USER AREA OR FIXED AREA OF ANY DRIVE. * J1703450 346 | * * J1703460 347 | *ENTRY POINTS- * J1703470 348 | * PC000-ENTER FROM CORE LOAD BUILDER AFTER THE * J1703480 349 | * CORE IMAGE PROGRAM HAS BEEN BUILT AS * J1703490 350 | * THE RESULT OF A DUP STORECI FUNCTION. * J1703500 351 | * * J1703510 352 | *INPUT- * J1703520 353 | * * CIB- FIRST 4K OF CORE LOAD. * J1703530 354 | * * CORE- CORE LOAD IS EXCESS OF 4K RESIDES * J1703540 355 | * IN CORE FROM 4K UPWARD. * J1703550 356 | * * WORKING STORAGE- ALL LOCALS SOCALS, AND * J1703560 357 | * NOCALS REQUIRED BY CORE LOAD. THE WORKING * J1703570 358 | * STORAGE DRIVE WILL BE THE 'JOB' WORKING * J1703580 359 | * STORAGE. * J1703590 360 | * * J1703600 361 | *OUTPUT- * J1703610 362 | * * USER AREA-WHEN FUNCTION IS STORECI TO UA. * J1703620 363 | * * FIXED AREA-WHEN FUNCTION IS STORECI TO FXA. * J1703630 364 | * * J1703640 365 | *EXTERNAL REFERENCES- * J1703650 366 | * SUBROUTINES- * J1703660 367 | * * DISKZ-PERFORMS REQUIRED DISK I/O * J1703670 368 | * COMMA/DCOM- * J1703680 369 | * * $ CORE * J1703690 370 | * * #UHOL * J1703700 371 | * * #FHOL * J1703710 372 | * * #USZE * J1703720 373 | * * #FSZE * J1703730 374 | * * $WSDR * J1703740 375 | * * $PHSE * J1703750 376 | * * $CIBA * J1703760 377 | * * #TODR * J1703770 378 | * * J1703780 379 | *EXITS- * J1703790 380 | * NORMAL-EXIT TO DUP CONTROL WITH CATCO SWITCHES* J1703800 381 | * PH2,PH3,PH4 SET TO ZERO. * J1703810 382 | * ERROR-EXIT TO DUP CONTROL AFTER ZEROING * J1703820 383 | * PH2,PH3, AND PH4 WITH THE ERROR CODE * J1703830 384 | * IN CIERR. * J1703840 385 | * * J1703850 386 | *TABLES/WORK AREAS- * J1703860 387 | * DISK BUFFERS- * J1703870 388 | * * DCBUF-ONE SECTOR DCOM BUFFER * J1703880 389 | * * CIBUF-FOUR SECTOR CI PROGRAM BUFFER * J1703890 390 | * * J1703900 391 | *ATTRIBUTES- * J1703910 392 | * SERIALLY REUSEABLE * J1703920 393 | * * J1703930 394 | *NOTES-N/A * J1703940 395 | *************************************************** J1703950 PRECI--ENTRY FROM CORE LOAD BUILDER 01DE 397 | ORG B J1703970 *SBRKGPW 11 398 | DUP - MOVE DCI PROGRAMS TO UA OR FXA J1703980 01DE 0000 399 | DC *-* WD CNT SUPPLIED BY SYS LOADER J1703990 01DF FFEF 400 | DC -17 SLET INFO REQ BY THIS PHASE J1704000 01E0 01A8 401 | DC P-PC000 ADDR OF SLET WORK AREA J1704010 01E1 0001 402 | DC 1 NO. OF SLET ENTRIES REQ J1704020 01E0 403 | ORG *-2 OVERLAY SYS LOADER WORDS J1704030 404 | *************************************************** J1704040 405 | * * J1704050 406 | * DETERMINE IF CORE LOAD WAS BUILT * J1704060 407 | * * J1704070 408 | *************************************************** J1704080 0009 409 | $INT1 EQU /0009 ADDR OF LEVEL 1 INTRPT ADDR J1704090 410 | *************************************************** J1704100 01E0 0000 411 | PC000 DC *-* ENT POINT FROM CLB J1704110 01E1 4480 03D8 412 | BSI I PHIDP PHASE ID OF PRECI TO $PHSE J1704120 01E3 0011 413 | DC /0011 J1704130 01E4 C400 0034 414 | LD L $NDUP J1704140 01E6 4C20 02F0 415 | BSC L PC250,Z BR IF CORE LOAD NOT BUILT J1704150 416 | * * J1704160 01E8 6500 0388 417 | LDX L1 P XR1 IS PRECI WORK AREA PT J1704170 01EA C400 007A 418 | LD L $WSDR J1704180 01EC 100C 419 | SLA 12 WS DR CODE, ACC BITS 0-3 J1704190 01ED E904 420 | OR 1 PC904-P COMPLETE DCOM SCTR ADDR J1704200 01EE 18D0 421 | RTE 16 J1704210 01EF C904 422 | LDD 1 PC904-P SET UP DISK I/O TO READ J1704220 01F0 DD00 FF7E 423 | STD L1 -130 *FIRST 128 WORDS OF DCOM. J1704230 424 | * * J1704240 01F2 6700 0306 425 | LDX L3 P-130 XR3 IS IOAR ADDR FOR DCOM J1704250 01F4 4480 03D9 426 | BSI I GETP READ DCOM J1704260 427 | *************************************************** J1704270 428 | * * J1704280 429 | * SAVE CORE IMAGE HEADER IN PRECI WORK AREA * J1704290 430 | * * J1704300 431 | *************************************************** J1704310 01F6 C400 0005 432 | LD L $CIBA J1704320 01F8 D107 433 | STO 1 PC907-P J1704330 01F9 6700 038E 434 | LDX L3 PC906 I/O ADDR FOR CI HDR IN XR3 J1704340 01FB 4480 03D9 435 | BSI I GETP READ CORE IMAGE HEADER J1704350 436 | *************************************************** J1704360 437 | * * J1704370 438 | * COMPUTE NUMBER OF SECTORS REQUIRED FOR * J1704380 439 | * CORE IMAGE PROGRAM, INCLUDING ANY LOCALS * J1704390 440 | * AND SOCALS. * J1704400 441 | * * J1704410 442 | *************************************************** J1704420 01FD C111 443 | LD 1 PC917-P J1704430 01FE 8130 444 | A 1 PC948-P ROUND WD CNT UP BY 319 J1704440 01FF 18D0 445 | RTE 16 *TO GET NO. OF SCTRS REQ J1704450 0200 1010 446 | SLA 16 J1704460 0201 A931 447 | D 1 PC949-P J1704470 0202 D132 448 | STO 1 PC950-P SCTRS REQ W/O LOCALS/SOCALS J1704480 0203 8122 449 | A 1 PC934-P J1704490 0204 D133 450 | STO 1 PC951-P TOTAL SECTORS REQUIRED J1704500 0205 1004 451 | SLA 4 J1704510 0206 D186 452 | STO 1 #DBCT DB CNT OF TOTAL CI PROGRAM J1704520 453 | *************************************************** J1704530 454 | * * J1704540 455 | * DETERMINE IF DISK AREA DESTINATION WILL * J1704550 456 | * CONTAIN CORE IMAGE PROGRAM * J1704560 457 | * * J1704570 458 | *************************************************** J1704580 0207 C196 459 | LD 1 #UHOL J1704590 0208 4C18 0211 460 | BSC L PC020,+- BR IF STORECI TO FIXED AREA J1704600 461 | * * J1704610 020A D134 462 | STO 1 PC952-P DESTINATION DB ADDR J1704620 020B C197 463 | LD 1 #USZE J1704630 020C 1804 464 | PC010 SRA 4 J1704640 020D 9133 465 | S 1 PC951-P J1704650 020E 4C28 02F5 466 | BSC L PC255,+Z BR IF DESTINATION TOO SMALL J1704660 0210 7004 467 | MDX PC040 J1704670 468 | * * J1704680 0211 C194 469 | PC020 LD 1 #FHOL J1704690 0212 D134 470 | STO 1 PC952-P DESTINATION DB ADDR J1704700 0213 C195 471 | LD 1 #FSZE J1704710 0214 70F7 472 | MDX PC010 J1704720 PRECI--LOCALS/SOCALS TO UA OR FXA 0215 4480 03D8 474 | PC040 BSI I PHIDP MODIFY PHASE ID J1704740 0217 1011 475 | DC /1011 LOCAL/SOCAL PRECI MODIFIER J1704750 0218 6680 03AA 476 | LDX I2 PC934 XR2 IS NO. OF LOCALS/SOCALS J1704760 021A C134 477 | LD 1 PC952-P J1704770 021B E136 478 | AND 1 PC954-P MASK OF LAST POSITION J1704780 021C D14B 479 | STO 1 PC989-P *OF DESTINATION DB ADDR. J1704790 480 | * * J1704800 021D C134 481 | LD 1 PC952-P J1704810 021E 8136 482 | A 1 PC954-P ADJUST DESTINATION DB ADDR J1704820 021F 1890 483 | SRT 16 *TO SECTOR BOUNDARY. J1704830 0220 C192 484 | LD 1 #TODR INCLUDE DR CODE OF 'TO' DR J1704840 0221 108C 485 | SLT 12 J1704850 0222 D135 486 | STO 1 PC953-P INT DESTINATION SCTR ADDR J1704860 0223 D13D 487 | STO 1 PC961-P J1704870 0224 1004 488 | SLA 4 J1704880 0225 D134 489 | STO 1 PC952-P ADJUSTED DB ADDR J1704890 0226 6780 007A 490 | LDX I3 $WSDR XR3 IS DR CODE OF WS J1704900 0228 C132 491 | LD 1 PC950-P IS WS FILE GT 2-5 J1704910 0229 910D 492 | S 1 PC913-P *PROGRAM 2-5 J1704920 022A 4828 493 | BSC +Z NO - SKIP 2-5 J1704930 022B D14E 494 | STO 1 PC992-P YES - SET MOVE INDICATR 2-5 J1704940 022C C700 0095 495 | LD L3 $FPAD J1704950 022E 810D 496 | A 1 PC913-P COMPUTE 2-5 J1704960 022F 7400 03D6 497 | MDX L PC992,0 *INITIAL 2-5 J1704970 0231 7002 498 | MDX PC045 *SOURCE 2-5 J1704980 0232 8122 499 | A 1 PC934-P *SECTOR 2-5 J1704990 0233 914D 500 | S 1 PC991-P *ADDR FOR LOCALS/SOCALS J1705000 0234 D137 501 | PC045 STO 1 PC955-P STORE THE ADDRESS J1705010 502 | * * J1705020 0235 18D0 503 | RTE 16 J1705030 0236 C135 504 | LD 1 PC953-P J1705040 0237 8132 505 | A 1 PC950-P J1705050 0238 7400 03D6 506 | MDX L PC992,0 2-5 J1705060 023A 7002 507 | MDX PC048 2-5 J1705070 023B 8122 508 | A 1 PC934-P J1705080 023C 914D 509 | S 1 PC991-P COMPUTE DESTINATION SCTR J1705090 023D D138 510 | PC048 STO 1 PC956-P *ADDR FOR LOCALS/SOCALS J1705100 511 | *************************************************** J1705110 512 | * * J1705120 513 | * DETERMINE IF ANY LOCALS OR SOCALS * J1705130 514 | * * J1705140 515 | *************************************************** J1705150 023E C122 516 | LD 1 PC934-P J1705160 023F 4C18 025B 517 | BSC L PC100,+- BR IF NO LOCALS OR SOCALS J1705170 0241 C131 518 | LD 1 PC949-P J1705180 0242 6700 0640 519 | LDX L3 BUF7 XR3 IS IOAR ADDR OF WS BFR J1705190 0244 DB00 520 | STD 3 0 SET-UP IOAR TO READ WS J1705200 0245 4480 03D9 521 | PC050 BSI I GETP READ LOCAL/SOCAL SECTOR J1705210 0247 C138 522 | LD 1 PC956-P J1705220 0248 D301 523 | STO 3 +1 SET-UP IOAR TO WRITE UA/FXA J1705230 0249 4480 03DA 524 | BSI I PUTP WRITE LOCAL/SOCAL SECTOR J1705240 525 | * * J1705250 024B C14E 526 | LD 1 PC992-P 2-5 J1705260 024C 4C10 0253 527 | BSC L PC060,- 2-5 J1705270 024E 7401 03BF 528 | MDX L PC955,1 2-5 J1705280 0250 7401 03C0 529 | MDX L PC956,1 2-5 J1705290 0252 7004 530 | MDX PC070 2-5 J1705300 0253 74FF 03BF 531 | PC060 MDX L PC955,-1 DECR WS SECTOR ADDRESS J1705310 0255 74FF 03C0 532 | MDX L PC956,-1 DECR VA/FXA SECTOR ADDRESS J1705320 0257 C137 533 | PC070 LD 1 PC955-P J1705330 0258 D301 534 | STO 3 +1 SET-UP IOAR TO READ WS J1705340 0259 72FF 535 | MDX 2 -1 DECR LOCAL/SOCAL COUNTER J1705350 025A 70EA 536 | MDX PC050 CONT IF MORE LOCALS/SOCALS J1705360 PRECI--CORE IMAGE BUFFER TO UA/FXA 538 | *************************************************** J1705380 539 | * * J1705390 540 | * MOVE CORE LOAD RESIDING IN CIB TO UA/FXA * J1705400 541 | * * J1705410 542 | *************************************************** J1705420 025B 4480 03D8 543 | PC100 BSI I PHIDP MODIFY PHASE ID J1705430 025D 2011 544 | DC /2011 CIB TO UA/FXA MODIFIER J1705440 025E C139 545 | LD 1 PC957-P J1705450 025F 910E 546 | S 1 PC914-P J1705460 0260 4C08 03DB 547 | BSC L PC270,+ BR IF PROG ALL IN CORE J1705470 0262 D13A 548 | STO 1 PC958-P J1705480 0263 9111 549 | S 1 PC917-P J1705490 550 | *************************************************** J1705500 551 | * * J1705510 552 | * DETERMINE IF CORE LOAD EXCEEDS 4K BOUNDARY * J1705520 553 | * * J1705530 554 | *************************************************** J1705540 0264 4C28 029C 555 | BSC L PC170,+Z BR IF CORE LOAD ABOVE 4K J1705550 0266 C111 556 | LD 1 PC917-P J1705560 0267 D002 557 | PC110 STO PC125+1 INITLZ LDX INSTRUCTION J1705570 0268 6104 558 | PC120 LDX 1 4 XR1 IS MOD 4 LOOP COUNTER J1705580 0269 6700 0000 559 | PC125 LDX L3 *-* XR3 IS WD CNT FOR CIB TO DK J1705590 026B 6200 560 | LDX 2 0 XR2 IS MOD 4 SCTR WD CNT J1705600 026C 7600 0140 561 | PC130 MDX L2 +320 INCR MOD 4 WD CNT J1705610 026E 7700 FEC0 562 | MDX L3 -320 DECR CIB TO DK WD COUNT J1705620 0270 7004 563 | MDX PC140 J1705630 0271 7700 0140 564 | MDX L3 +320 INCR CIB TO DK WD COUNT J1705640 0273 1000 565 | NOP ALLOW FOR SKIP J1705650 0274 7016 566 | MDX PC160 J1705660 0275 71FF 567 | PC140 MDX 1 -1 DECR MOD 4 LOOP COUNTER J1705670 0276 70F5 568 | MDX PC130 CONT IF COUNTER POSITIVE J1705680 569 | *************************************************** J1705690 570 | * * J1705700 571 | * MOVE FOUR FULL SECTORS FROM CIB TO UA/FXA * J1705710 572 | * * J1705720 573 | *************************************************** J1705730 0277 6BF2 574 | STX 3 PC125+1 SAVE REMAINING WD CNT J1705740 0278 6E00 0640 575 | STX L2 BUF7 J1705750 027A 6700 0640 576 | LDX L3 BUF7 J1705760 027C C400 038F 577 | LD L PC907 SET UP IOAR TO READ CIB J1705770 027E D301 578 | STO 3 +1 J1705780 027F 4480 03D9 579 | BSI I GETP READ FOUR SCTRS OF CIB J1705790 580 | * * J1705800 0281 C400 03BD 581 | LD L PC953 CHANGE SCTR ADDR TO SCTR J1705810 0283 D301 582 | STO 3 +1 *ADDR OF UA/FXA DESTINATION J1705820 0284 4480 03DA 583 | BSI I PUTP WRITE 4 SECTORS TO UA/FXA J1705830 584 | * * J1705840 0286 7404 038F 585 | MDX L PC907,4 INCR CIB SCTR ADDR J1705850 0288 7404 03BD 586 | MDX L PC953,4 INCR UA/FXA SCTR ADDR J1705860 028A 70DD 587 | MDX PC120 J1705870 588 | *************************************************** J1705880 589 | * * J1705890 590 | * MOVE REMAINING WD CNT FROM CIB TO UA/FXA * J1705900 591 | * * J1705910 592 | *************************************************** J1705920 028B 6E00 0640 593 | PC160 STX L2 BUF7 J1705930 028D 6F00 03C4 594 | STX L3 PC960 NO. OF WORDS IN LAST SCTR J1705940 028F 6700 0640 595 | LDX L3 BUF7 SET UP I/O TO READ CORE J1705950 0291 C400 038F 596 | LD L PC907 *LOAD REMAINING ON CIB. J1705960 0293 D301 597 | STO 3 +1 J1705970 0294 4480 03D9 598 | BSI I GETP READ CIB J1705980 599 | * * J1705990 0296 C400 03BD 600 | LD L PC953 CHANGE SCTR ADDR TO SCTR J1706000 0298 D301 601 | STO 3 +1 *ADDR OF UA/FXA DESTINATION J1706010 0299 4480 03DA 602 | BSI I PUTP WRITE TO UA/FXA J1706020 029B 7003 603 | MDX PC180 J1706030 604 | *************************************************** J1706040 605 | * * J1706050 606 | * CORE LOAD EXCEEDS 4K BOUNDARY. SET UP WORD * J1706060 607 | * COUNT TO MOVE CIB PORTION OF CORE LOAD TO THE * J1706070 608 | * USER AREA OR FIXED AREA. * J1706080 609 | * * J1706090 610 | *************************************************** J1706100 029C D13B 611 | PC170 STO 1 PC959-P SAVE NO. WDS ABOVE 4K J1706110 029D C13A 612 | LD 1 PC958-P WD CNT OF CIB IS 4096 LESS J1706120 029E 70C8 613 | MDX PC110 *STARTING ADDR OF CORE LOAD J1706130 PRECI--MOVE CORE LOAD ABOVE 4K 615 | *************************************************** J1706150 616 | * * J1706160 617 | * IF CORE LOAD EXCEEDED 4K BOUNDARY, MOVE PART * J1706170 618 | * ABOVE 4K TOWARD LOWER CORE TO ENABLE BRINGING * J1706180 619 | * DUP UPCOR PHASE BACK TO CORE. J1706190 620 | * * J1706200 621 | *************************************************** J1706210 029F 4480 03D8 622 | PC180 BSI I PHIDP MODIFY PHASE ID J1706220 02A1 3011 623 | DC /3011 ABOVE 4K PRECI MODIFIER J1706230 02A2 6500 0388 624 | LDX L1 P XR1 IS WORK AREA POINTER * J1706240 02A4 C13B 625 | LD 1 PC959-P NO. OF WDS PAST 4K J1706250 02A5 4C18 02CC 626 | BSC L PC230,+- BR IF NO CORE LOAD ABOVE 4K J1706260 627 | *************************************************** J1706270 628 | * * J1706280 629 | * FIND THE BEGINNING ADDR OF THE LAST SECTOR, * J1706290 630 | * OR PARTIAL SECTOR OF THE CIB PORTION OF THE * J1706300 631 | * CORE LOAD * J1706310 632 | * * J1706320 633 | *************************************************** J1706330 634 | * CODE REMOVED 2-9 J1706380 02A7 C139 635 | LD 1 PC957-P J1706390 02A8 913C 636 | S 1 PC960-P COMPUTE IOAR HDR ADDR FOR J1706400 02A9 913F 637 | S 1 PC964-P *WRITING REMAINDER OF CORE J1706410 02AA D005 638 | STO PC200+1 *LOAD TO UA/FXA. J1706420 02AB C13E 639 | LD 1 PC962-P COMPUTE ADDR FOR MOVING WDS J1706430 02AC 8300 640 | A 3 0 *WRITTEN ON LAST PARTIAL J1706440 02AD 9131 641 | S 1 PC949-P *SCTR ADJACENT TO THOSE J1706450 02AE D012 642 | STO PC215+1 *PAST THE 4K BOUNDARY9 J1706460 02AF 6600 0000 643 | PC200 LDX L2 *-* XR2 IS IOAR OF LAST SCTR(S) J1706470 644 | *************************************************** J1706480 645 | * * J1706490 646 | * BEFORE WRITING THE REMAINDER OF THE CORE LOAD * J1706500 647 | * TO DISK, THE WORDS REMAINING, PLUS THE DISK * J1706510 648 | * IOAR HDR, IS MOVED /700 WORDS TOWARD LOWER * J1706520 649 | * CORE. THIS WILL ALLOW DUP UPPER CORE TO BE * J1706530 650 | * RESTORED BEFORE DOING LAST WRITE. * J1706540 651 | * * J1706550 652 | *************************************************** J1706560 02B1 1010 653 | SLA 16 J1706570 02B2 913B 654 | S 1 PC959-P COMPUTE WD CNT FOR WRITING J1706580 655 | * CODE REMOVED 2-9 J1706590 02B3 813C 656 | A 1 PC960-P *REMAINDER OF CORE LOAD. J1706600 02B4 D200 657 | STO 2 0 WORD COUNT J1706610 658 | * * J1706620 02B5 C139 659 | LD 1 PC957-P J1706630 02B6 910E 660 | S 1 PC914-P J1706640 02B7 9400 03D5 661 | S L PC991 SUB 1 FOR EXACT SECTOR 2-11 J1706645 02B9 18D0 662 | RTE 16 COMPUTE UA/FXA SCTR ADDR J1706650 02BA 1010 663 | SLA 16 *TO WHICH REMAINDER OF J1706660 02BB A931 664 | D 1 PC949-P *CORE LOAD WILL BE WRITTEN. J1706670 02BC 813D 665 | A 1 PC961-P J1706680 02BD D201 666 | STO 2 +1 UA/FXA SCTR ADDR J1706690 667 | * * J1706700 02BE 6780 03C4 668 | LDX I3 PC960 XR3 IS NO. OF WORDS TO MOVE J1706710 02C0 6500 0000 669 | PC215 LDX L1 *-* XR1 IS START OF LAST SCTR J1706720 02C2 C100 670 | PC220 LD 1 0 MOVE EACH WORD FROM LAST J1706730 02C3 D202 671 | STO 2 +2 *SCTR SO AS TO BE ADJACENT J1706740 02C4 7101 672 | MDX 1 +1 *TO CORE LOAD PAST 4K. J1706750 02C5 7201 673 | MDX 2 +1 ADDR OF NEXT WD TO MOVE J1706760 02C6 73FF 674 | MDX 3 -1 DECR MOVE LOOP COUNTER J1706770 02C7 70FA 675 | MDX PC220 CONT IF COUNT POSITIVE J1706780 676 | * CODE REMOVED 2-9 J1706900 02C8 6780 02B0 677 | PC228 LDX I3 PC200+1 J1706910 02CA 4480 03DA 678 | BSI I PUTP WRITE REMAINDER OF PROG J1706920 02CC 402D 679 | PC230 BSI PC260 GET UPCOR J1706930 02CD 4480 03D8 680 | PC240 BSI I PHIDP MODIFY PHASE ID J1706940 02CF 5011 681 | DC /5011 PRECI WRAP-UP MODIFIER J1706950 02D0 C400 030E 682 | LD L #DBCT+P J1706960 02D2 D186 683 | STO 1 #DBCT DB CNT TO CATCO DCOM IMAGE J1706970 02D3 C400 03BC 684 | LD L PC952 J1706980 02D5 D116 685 | STO 1 DBADR DB ADDR TO CATCO J1706990 686 | * * J1707000 02D6 C14D 687 | LD 1 IBT+4 J1707010 02D7 D400 0009 688 | STO L $INT1 RESTORE LEVEL 1 INTERRUPT J1707020 02D9 6600 7FE8 689 | LDX L2 IBT-1+C J1707030 02DB 6E00 00D4 690 | STX L2 $IBT4 POINT TO INTERRUPT TABLE -1 J1707040 691 | * * J1707050 02DD C400 03D4 692 | LD L PC990 COMPUTE NO. OF DB'S J1707060 02DF 9400 03D3 693 | S L PC989 *PADDING REQUIRED. J1707070 02E1 D12C 694 | STO 1 TEMP1 J1707080 02E2 1010 695 | SLA 16 J1707090 02E3 D120 696 | STO 1 IOSW RESET I/O REQ FOR STORE J1707100 697 | * * J1707110 02E4 D139 698 | STO 1 PH2 CLEAR SWITCHES TO CAUSE J1707120 02E5 D13A 699 | STO 1 PH3 DUP CONTROL TO BRING J1707130 02E6 D13B 700 | STO 1 PH4 DUP PHASES BACK TO CORE J1707140 02E7 D400 0034 701 | STO L $NDUP CLEAR SYS DUP INHIBIT SW J1707150 02E9 6700 11DE 702 | LDX L3 DCTLC J1707160 02EB C9F0 703 | LDD 1 DCHDR J1707170 02EC DB00 704 | STD 3 0 J1707180 02ED D132 705 | STO 1 XEQSW J1707190 02EE 4480 7DB3 706 | BSI I GET GET AND EXECUTE DUP CONTROL J1707200 02F0 4009 707 | PC250 BSI PC260 GET UPCOR J1707210 02F1 6320 708 | LDX 3 32 J1707220 02F2 6F00 7FB1 709 | STX L3 CIERR+C SET UP ERROR CODE J1707230 02F4 70D8 710 | MDX PC240 J1707240 02F5 4004 711 | PC255 BSI PC260 GET UPCOR J1707250 02F6 631F 712 | LDX 3 31 J1707260 02F7 6F00 7FB1 713 | STX L3 CIERR+C SET UP ERROR CODE J1707270 02F9 70D3 714 | MDX PC240 J1707280 02FA 0000 715 | PC260 DC *-* GET UPCOR ENTRY POINT J1707290 02FB 6780 0389 716 | LDX I3 PC900+1 XR3 IS IOAR FOR DUP UPCOR J1707300 02FD CC00 038A 717 | LDD L PC902 J1707310 02FF DB00 718 | STD 3 0 SET UP IOAR TO READ UPCOR J1707320 0300 4480 03D9 719 | BSI I GETP READ UPCOR (PHASE 13) J1707330 0302 6500 7FA0 720 | LDX L1 C XR1 IS CATCO MIDPOINT ADDR J1707340 0304 4C80 02FA 721 | BSC I PC260 RETURN FROM GET UPCOR J1707350 722 | * * J1707360 PRECI--CONSTANTS AND WORK AREAS 724 | *************************************************** J1707380 725 | * * J1707390 726 | * DCOM IMAGE. RELATIVE LOCATIONS CORRESPOND TO * J1707400 727 | * THOSE USED IN DUP FRONT END. J1707410 728 | * * J1707420 729 | *************************************************** J1707430 0306 730 | BSS E /82 J1707440 0388 731 | P EQU * PRECI WORK AREA XR1 POINTER J1707450 0388 000D 732 | PC900 DC 13 DUP UPCOR PHASE ID J1707460 0389 0000 733 | DC *-* FILLED BY THE SYSTEM LOADER J1707470 038A 0000 734 | PC902 DC *-* FILLED BY THE SYSTEM LOADE J1707480 038B 0000 735 | DC *-* FILLED BY THE SYSTEM LOADE J1707490 038C 0080 736 | PC904 DC /80 WORD COUNT TO READ DCOM J1707500 038D 0001 737 | DC #DCOM SYMBOLIC DCOM SCTR ADDR J1707510 038E 0028 738 | PC906 DC 40 WD CNT TO READ CI HEADER J1707520 038F 0000 739 | PC907 DC *-* CIB, DRIVE CODE--SCTR ADDR J1707530 0390 740 | BSS 5 WORDS 1-5 OF CI HEADER J1707540 0395 0000 741 | PC913 DC *-* NO. OF FILES SECTORS J1707550 0396 0000 742 | PC914 DC *-* LOAD ADDR OF CORE LOAD J1707560 0397 743 | BSS 2 WORDS 8-9 OF CI HEADER J1707570 0399 0000 744 | PC917 DC *-* LENGTH OF CORE LOAD, WORDS J1707580 039A 745 | BSS 16 WORDS 11-26 OF CI HEADER J1707590 03AA 0000 746 | PC934 DC *-* NO. OF LOCAL/SOCAL SECTORS J1707600 03AB 747 | BSS 13 WORDS 28-40 OF CI HEADER J1707610 03B8 013F 748 | PC948 DC 319 CONSTANT J1707620 03B9 0140 749 | PC949 DC 320 CONSTANT J1707630 03BA 0000 750 | PC950 DC *-* PROG SCTRS W/O LOCAL/SOCALS J1707640 03BB 0000 751 | PC951 DC *-* TOTAL SCTRS REQ FOR PROG J1707650 03BC 0000 752 | PC952 DC *-* DESTINATION DB ADDR J1707660 03BD 0000 753 | PC953 DC *-* DESTINATION SCTR ADDR J1707670 03BE 000F 754 | PC954 DC /F CONSTANT J1707680 03BF 0000 755 | PC955 DC *-* NO. OF LOCAL/SOCAL SCTRS J1707690 03C0 0000 756 | PC956 DC *-* LOCAL/SOCALS UA/FXA ADDR J1707700 03C1 1000 757 | PC957 DC /1000 CONSTANT J1707710 03C2 0000 758 | PC958 DC *-* 4096 - LOAD ADDR OF PROG J1707720 03C3 0000 759 | PC959 DC *-* PC958 - LENGTH OF PROG J1707730 03C4 0000 760 | PC960 DC *-* CIB TO UA/FXA WD CNT J1707740 03C5 0000 761 | PC961 DC *-* DESTINATION SCTR ADDR J1707750 03C6 0642 762 | PC962 DC BUF7+2 ADDR OF DISK BUFFER, WD 1 J1707760 03C7 0002 763 | PC964 DC 2 CONSTANT J1707770 03C8 0000 764 | PC975 DC *-* HOLDS SCTR ADDR J1707780 PRECI--CONSTANTS AND WORK AREAS 03CA 766 | BSS E 0 J1707800 03CA 0000 767 | PC977 DC *-* HOLDS FUNCTION ID J1707810 03CB 0000 768 | DC *-* HOLDS I/O ADDR J1707820 03CC 7000 769 | PC981 DC /7000 RESTORE/READ W/O CONV J1707830 03CD 7001 770 | PC982 DC /7001 PRINT J1707840 03CE 0FFF 771 | PC984 DC /0FFF MASK J1707850 03CF F0FF 772 | PC985 DC /F0FF MASK TO ELIMINATE MODULE J1707860 03D0 013F 773 | PC986 DC 319 CONSTANT 319 J1707870 03D1 0140 774 | PC987 DC 320 CONSTANT 320 J1707880 03D2 0640 775 | PC988 DC 1600 CONSTANT 1600 J1707890 03D3 0000 776 | PC989 DC *-* LOW ORDER DIGIT OF DB ADDR J1707900 03D4 0010 777 | PC990 DC 16 CONSTANT J1707910 03D5 0001 778 | PC991 DC 1 CONSTANT J1707920 03D6 0000 779 | PC992 DC 0 MOVE INDICATOR 2-5 J1707930 03D7 03EB 780 | IDMP DC PC300 RECORDS PHASE ID MODIFIER J1707940 03D8 03F8 781 | PHIDP DC PC310 RECORDS PHASE ID J1707950 03D9 0401 782 | GETP DC PC320 READ FROM DISK USING DISKZ J1707960 03DA 0409 783 | PUTP DC PC330 WRITE TO DISK USING DISKZ J1707970 PRECI--ENTIRE CORE LOAD ABOVE 4K 03DB 4480 03D8 785 | PC270 BSI I PHIDP MODIFY PHASE ID J1707990 03DD 4011 786 | DC /4011 PROG ABOVE 4K MODIFIER J1708000 03DE C10E 787 | LD 1 PC914-P J1708010 03DF 913F 788 | S 1 PC964-P J1708020 03E0 D001 789 | STO PC280+1 J1708030 03E1 6700 0000 790 | PC280 LDX L3 *-* XR3 IS HDR FOR CORE LOAD J1708040 03E3 C135 791 | LD 1 PC953-P J1708050 03E4 D301 792 | STO 3 1 SECOND WD OF IOAR HDR 2-9 J1708060 03E5 C111 793 | LD 1 PC917-P J1708070 03E6 D300 794 | STO 3 0 FIRST WD OF IOAR HDR 2-9 J1708080 03E7 4480 03DA 795 | BSI I PUTP WRITE CORE LOAD TO UA/FXA J1708090 03E9 4C00 02CC 796 | BSC L PC230 BRANCH TO FETCH UPCOR J1708100 PRECI--PHASE ID MODIFICATION 798 | *************************************************** J1708120 799 | * * J1708130 800 | * MODIFY PHASE ID FOR MOST RECENT SUB MODULE * J1708140 801 | * * J1708150 802 | *************************************************** J1708160 03EB 0000 803 | PC300 DC *-* RECORD SOURCE OF ENTRY J1708170 804 | * J1708180 03EC C400 0078 805 | LD L $PHSE J1708190 03EE E0E0 806 | AND PC985 EXTRACT LAST MODULE IND J1708200 03EF EC80 03EB 807 | OR I PC300 INSERT NEW SUB MODULE IND J1708210 03F1 D001 808 | STO *+1 RECORD REQUIRED CONSTANT J1708220 809 | * J1708230 03F2 4005 810 | BSI PC310 GO TO RECORD REQD ID J1708240 03F3 0000 811 | DC *-* PHASE ID PUT HERE J1708250 812 | * J1708260 03F4 7401 03EB 813 | MDX L PC300,+1 STEP RETURN ADDRESS J1708270 03F6 4C80 03EB 814 | BSC I PC300 RETURN TO SUB MODULE J1708280 815 | * J1708290 PRECI--RECORD PHASE ID 817 | *************************************************** J1708310 818 | * J1708320 819 | * RECORD PHASE ID FOR THE OVERLAY JUST READ IN CORE J1708330 820 | * * J1708340 821 | *************************************************** J1708350 03F8 0000 822 | PC310 DC *-* RECORD SOURCE OF ENTRY J1708360 03F9 C480 03F8 823 | LD I PC310 J1708370 03FB D400 0078 824 | STO L $PHSE RECORD PHASE IDENTIFICATION J1708380 825 | * J1708390 03FD 7401 03F8 826 | MDX L PC310,+1 INCRE RET ADDR J1708400 827 | * J1708410 03FF 4C80 03F8 828 | BSC I PC310 RETURN TO DUP OVERLAY J1708420 PRECI--DISKZ INTERFACE 830 | *************************************************** J1708440 831 | * * J1708450 832 | * ENTER HERE TO READ FROM DISK * J1708460 833 | * * J1708470 834 | *************************************************** J1708480 0401 0000 835 | PC320 DC *-* RECORD SOURCE OF ENTRY J1708490 0402 4480 03D7 836 | BSI I IDMP IDENTIFY PHASE MODIFICATION J1708500 0404 0100 837 | DC /0100 GET IS MOD 1 J1708510 838 | * * J1708520 0405 C0FB 839 | LD PC320 J1708530 0406 D002 840 | STO PC330 SET UP EXIT ADDRESS J1708540 841 | * J1708550 0407 C0C4 842 | LD PC981 READ FUNC CODE TO ACC J1708560 0408 7005 843 | MDX PC340 GO TO READ FROM DISK J1708570 844 | * J1708580 845 | *************************************************** J1708590 846 | * * J1708600 847 | * ENTER HERE TO WRITE ON DISK * J1708610 848 | * * J1708620 849 | *************************************************** J1708630 0409 0000 850 | PC330 DC *-* RECORD SOURCE OF ENTRY J1708640 040A 4480 03D7 851 | BSI I IDMP IDENTIFY PHASE MODIFICATION J1708650 040C 0200 852 | DC /0200 PUT IS MOD 2 J1708660 853 | * * J1708670 040D C0BF 854 | LD PC982 SET UP TO WRITE J1708680 855 | *************************************************** J1708690 856 | * * J1708700 857 | * THE BALANCE OF DUP34 IS USED FOR BOTH RD & WRT * J1708710 858 | * * J1708720 859 | *************************************************** J1708730 040E D0BB 860 | PC340 STO PC977 J1708740 861 | * J1708750 040F 6BBB 862 | STX 3 PC977+1 SET UP IOAR J1708760 863 | *************************************************** J1708770 864 | * * J1708780 865 | * TEST DISK PARAMS - SCTR 0,NEG WD CNT,CART OVFLO * J1708790 866 | * * J1708800 867 | *************************************************** J1708810 0410 C301 868 | LD 3 1 J1708820 0411 E0BC 869 | AND PC984 /0FFF MASK DRIVE CODE J1708830 0412 D0B5 870 | STO PC975 SAVE SCTR ADDR W/O OR CODE J1708840 871 | * J1708850 0413 4820 872 | BSC Z SKIP IF SCTR ZERO..ERROR.. J1708860 873 | * J1708870 0414 C300 874 | LD 3 0 J1708880 0415 4C30 041E 875 | BSC L PC350,-Z WORD COUNT POSITIVE J1708890 876 | * J1708900 0417 4400 02FA 877 | BSI L PC260 RESTORE DUP UPCOR J1708910 0419 635C 878 | LDX 3 92 J1708920 041A 6F00 7FB1 879 | STX L3 CIERR+C D 92 ERROR. BAD DISKZ CALL J1708930 041C 4C00 02CD 880 | BSC L PC240 BR TO COMPLETE PRECI J1708940 881 | * J1708950 882 | *************************************************** J1708960 883 | * * J1708970 884 | * INSURE DISK OPERATION WILL NOT EXCEED CYL 200 * J1708980 885 | * * J1708990 886 | *************************************************** J1709000 041E 80B1 887 | PC350 A PC986 ADJ WD CNT TO NEXT SCTR J1709010 041F 18D0 888 | RTE 16 J1709020 0420 1010 889 | SLA 16 J1709030 0421 A8AF 890 | D PC987 CONVERT TO SECTORS J1709040 0422 80A5 891 | A PC975 SPECIFIED SECTORS J1709050 0423 90AE 892 | S PC988 CYL 200 (SCTRS) J1709060 0424 4C28 042D 893 | BSC L PC355,Z+ WITHIN LIMITS 2-9 J1709070 894 | * J1709080 0426 4400 02FA 895 | BSI L PC260 RESTORE DUP UPCOR J1709090 0428 635D 896 | LDX 3 93 J1709100 0429 6F00 7FB1 897 | STX L3 CIERR+C D 93 ERROR9 CART OVERFLOW J1709110 042B 4C00 02CD 898 | BSC L PC240 BR TO COMPLETE PRECI J1709120 899 | * 2-9 J1709121 900 | * IF LD ADR ODD, MOVE COMPLETE CORE LD DOWN 1 2-9 J1709122 901 | * 2-9 J1709123 042D C09D 902 | PC355 LD PC977+1 GET ADR OF IOAR 2-9 J1709124 042E 4C04 0431 903 | BSC L PC356,E IF ODD MOVE LOAD DOWN 2-9 J1709125 0430 700C 904 | MDX PC360 SKIP AROUND IF EVEN 2-9 J1709126 0431 D001 905 | PC356 STO PC357+1 SAVE FOR WD CNT LOAD 2-9 J1709127 0432 6580 0000 906 | PC357 LDX I1 *-* LD WD CNT OF CODE LOAD 2-9 J1709128 0434 90A0 907 | S PC991 SUB 1 2-9 J1709129 0435 D095 908 | STO PC977+1 POINT IOCC TO EVEN ADR 2-9 J1709130 0436 73FF 909 | MDX 3 -1 POINT TO IOAR ADR-1 2-9 J1709131 0437 7102 910 | MDX 1 2 CORE LD SIZE+2 FOR MOVE 2-9 J1709132 0438 C301 911 | PC358 LD 3 1 THIS LOOP MOVES 2-9 J1709133 0439 D300 912 | STO 3 0 *CORE LD DOWN ONE WORD 2-9 J1709134 043A 7301 913 | MDX 3 1 *SO THE BEGINNING 2-9 J1709135 043B 71FF 914 | MDX 1 -1 *ADR IS EVEN 2-9 J1709136 043C 70FB 915 | MDX PC358 *FOR DISKZ WRITE 2-9 J1709137 916 | * J1709138 917 | *************************************************** J1709140 918 | * * J1709150 919 | * DO REQD DISK FUNCTION AND WAIT UNTIL COMPLETE * J1709160 920 | * * J1709170 921 | *************************************************** J1709180 043D C88C 922 | PC360 LDD PC977 NO ERROR, SO GO WRITE OUT J1709190 043E 4400 00F2 923 | BSI L DISKZ *BUFFER J1709200 924 | * J1709210 0440 7400 00EE 925 | PC370 MDX L $DBSY,0 LOOP ON BUSY J1709220 0442 70FD 926 | MDX PC370 J1709230 0443 4C80 0409 927 | BSC I PC330 RETURN FROM GET OR PUT J1709240 0445 928 | BSS $ZEND+/27F-* PATCH AREA J1709250 045F FFFF 929 | DC /FFFF END OF PRECI PATCH AREA J1709260 MODIF EXIT-DUP RETURN TO MODIF 0E6E 931 | ORG @SBFR-322 2-8 J1709280 *SBRKGPW 12 932 | DUP - EXIT TO MODIF DUMMY PHASE J1709290 0E6E 0000 933 | DC *-* WD CNT, CREATED BY SYS LDR J1709300 0E6F 0012 934 | DC 18 MODIF EXIT PHASE ID J1709310 0E70 935 | BSS @SBFR-*-1 AREA REQ FOR PHASE 18 2-8 J1709320 0FAF FFFF 936 | DC /FFFF SIGNIFY END OF PHASE 18 J1709330 0FB0 937 | END PC000 J1709340 There were no errors in this assembly Program transfer address = 01E0 === CROSS REFERENCES ========================================================== Name Val Defd Referenced #ACIN FF9C 98 #ANDU FFA3 104 #BNDU FFA8 105 #CBSW FF8A 77 #CIAD FF9B 97 #CIBA FFBC 109 #CIDN FFB7 108 #CSHN FFDA 115 #DBCT FF86 73 452 682 683 #DCOM 0001 116 737 #DCSW FF98 94 #ECNT FFA1 103 #ENTY FF90 83 #FCNT FF87 74 #FHOL FF94 90 469 #FLET FFCB 112 #FMAT FFC6 111 #FPAD FFAD 106 #FRDR FF93 88 #FSZE FF95 91 471 #GCNT FF9E 100 #GRPH FF9D 99 #HDNG 0007 117 #JBSW FF89 76 #LCNT FF8B 78 #LOSW FF9F 101 #MDF1 FF8D 80 #MDF2 FF8E 81 #MPSW FF8C 79 #NAME FF84 72 #NCNT FF8F 82 #PCID FFB2 107 #PIOD FF99 95 #PPTR FF9A 96 #RP67 FF91 84 #SCRA FFC1 110 #SYSC FF88 75 #TODR FF92 87 484 #UHOL FF96 92 459 #ULET FFD0 113 #USZE FF97 93 463 #WSCT FFD5 114 #X3SW FFA0 102 $1132 007F 33 $1403 0080 34 $ACDE 009F 42 $BYSW 01CB 52 $CH12 0006 4 $CIBA 0005 3 432 $COMN 0007 5 $CORE 000E 6 $CPTR 007E 32 $CTSW 000F 7 $CYLN 009A 41 $DABL 0011 9 $DADR 0010 8 $DBSY 00EE 51 925 $DCDE 0077 25 $DCYL 00A4 43 $DREQ 0012 10 $DUMP 003F 24 $EXIT 0038 22 $FPAD 0095 40 495 $HASH 0014 12 $I200 00B3 44 $I205 00B8 45 46 $I400 00C4 47 $I405 00D3 48 49 $I410 00D5 50 $IBSY 0013 11 $IBT2 00B9 46 $IBT4 00D4 49 690 $INT1 0009 409 688 $IOCT 0032 16 $IREQ 002C 14 $KCSW 007C 30 $LAST 0033 17 $LINK 0039 23 $NDUP 0034 18 414 701 $NXEQ 0035 19 $PBSY 0036 20 $PGCT 0037 21 $PHSE 0078 26 805 824 $PRET 0028 13 $PST1 0081 35 $PST2 0085 36 $PST3 0089 37 $PST4 008D 38 $STOP 0091 39 $UFDR 007D 31 $UFIO 0079 27 $ULET 002D 15 $WRD1 007B 29 $WSDR 007A 28 418 490 $ZEND 01E0 54 265 928 'SBFR 0FB0 118 931 935 ADDR2 003D 227 ASMSW 000E 152 B 01DE 265 266 267 268 269 270 271 272 397 BINEB 7DB0 279 BITSW 000F 153 BLKSW 0010 154 BUF1 79B5 304 305 BUF2 7963 305 306 BUF3 7925 306 307 BUF4 78D3 307 BUF5 7782 308 309 311 BUF6 7D91 297 298 299 BUF7 0640 309 519 575 576 593 595 762 C 7FA0 56 689 709 713 720 879 897 CATCO 7F1E 274 CIERR 0011 155 709 713 879 897 CIHDR 0008 138 CISW 0012 156 CL1 000E 151 CL2 0037 203 CLBSW 0013 157 CNTNO 0014 158 CRBUF 0057 254 D2HDR 000C 140 DATSW 0015 165 DBADR 0016 166 685 DCADR 0058 255 DCHDR FFF0 126 703 DCTL 11E0 269 DCTLC 11DE 270 702 DELSW 0017 167 DFHDR FFFC 132 DFLSW 0036 201 DFNSW 0018 168 DISKZ 00F2 264 923 DKSAD 0019 169 DLHDR FFF8 130 DMHDR FFF6 129 DMPLC 01DE 266 DTHDR FFFA 131 DUMPC 41DE 272 DUMPP 001A 170 DUPCO 7DB0 273 278 297 DUPCR 003C 221 DXHDR FFFE 133 DZ000 00F2 53 264 EBCSW 0033 198 ENTER 7DB2 281 EXITC 01DE 267 FLHDR FFF4 128 FORSW 001C 171 FRWS 001D 172 FXSW 001E 173 GET 7DB3 282 706 GETBI 7A0B 301 GETHO 7A0A 300 GETP 03D9 782 426 435 521 579 598 719 HDBUF 0059 256 HDNSW 0034 199 HOLSW 001F 174 IBT 0049 245 687 689 IDMP 03D7 780 836 851 INOUT 003F 234 IOADR 7A06 299 300 301 302 303 304 308 317 324 331 IOBLK 005A 257 IOREQ 0038 211 IOSW 0020 175 696 KBREQ 003E 228 LEAVE 7DB4 283 LETAR 005C 259 LETSW 0021 180 LINE 7DB5 284 LSTLF 0022 181 MASK 7DB6 285 MDUMP 7DB7 286 MODSW 0023 182 MUHDR 000A 139 MUPC 01DE 268 NAMSW 0024 183 NEGSW 0025 184 NEXT 005F 262 P 0388 731 401 417 420 422 425 433 443 444 447 448 449 450 462 465 470 477 478 479 481 482 486 487 489 491 492 494 496 499 500 501 504 505 508 509 510 516 518 522 526 533 545 546 548 549 556 611 612 624 625 635 636 637 639 641 654 656 659 660 664 665 682 787 788 791 793 P1442 0052 251 PACKB 7A0C 302 PAGE 7DB8 287 PC000 01E0 411 401 937 PC010 020C 464 472 PC020 0211 469 460 PC040 0215 474 467 PC045 0234 501 498 PC048 023D 510 507 PC050 0245 521 536 PC060 0253 531 527 PC070 0257 533 530 PC100 025B 543 517 PC110 0267 557 613 PC120 0268 558 587 PC125 0269 559 557 574 PC130 026C 561 568 PC140 0275 567 563 PC160 028B 593 566 PC170 029C 611 555 PC180 029F 622 603 PC200 02AF 643 638 677 PC215 02C0 669 642 PC220 02C2 670 675 PC228 02C8 677 PC230 02CC 679 626 796 PC240 02CD 680 710 714 880 898 PC250 02F0 707 415 PC255 02F5 711 466 PC260 02FA 715 679 707 711 721 877 895 PC270 03DB 785 547 PC280 03E1 790 789 PC300 03EB 803 780 807 813 814 PC310 03F8 822 781 810 823 826 828 PC320 0401 835 782 839 PC330 0409 850 783 840 927 PC340 040E 860 843 PC350 041E 887 875 PC355 042D 902 893 PC356 0431 905 903 PC357 0432 906 905 PC358 0438 911 915 PC360 043D 922 904 PC370 0440 925 926 PC900 0388 732 716 PC902 038A 734 717 PC904 038C 736 420 422 PC906 038E 738 434 PC907 038F 739 433 577 585 596 PC913 0395 741 492 496 PC914 0396 742 546 660 787 PC917 0399 744 443 549 556 793 PC934 03AA 746 449 476 499 508 516 PC948 03B8 748 444 PC949 03B9 749 447 518 641 664 PC950 03BA 750 448 491 505 PC951 03BB 751 450 465 PC952 03BC 752 462 470 477 481 489 684 PC953 03BD 753 486 504 581 586 600 791 PC954 03BE 754 478 482 PC955 03BF 755 501 528 531 533 PC956 03C0 756 510 522 529 532 PC957 03C1 757 545 635 659 PC958 03C2 758 548 612 PC959 03C3 759 611 625 654 PC960 03C4 760 594 636 656 668 PC961 03C5 761 487 665 PC962 03C6 762 639 PC964 03C7 763 637 788 PC975 03C8 764 870 891 PC977 03CA 767 860 862 902 908 922 PC981 03CC 769 842 PC982 03CD 770 854 PC984 03CE 771 869 PC985 03CF 772 806 PC986 03D0 773 887 PC987 03D1 774 890 PC988 03D2 775 892 PC989 03D3 776 479 693 PC990 03D4 777 692 PC991 03D5 778 500 509 661 907 PC992 03D6 779 494 497 506 526 PCHBI 7A0D 303 PEBUF 005D 260 PGMHL 0026 185 PH2 0039 212 698 PH3 003A 213 699 PH4 003B 214 700 PHDUP 0056 253 PHID 7DB9 288 PHIDM 7DBA 289 PHIDP 03D8 781 412 474 543 622 680 785 PIHDR 0002 135 PRINT 7DBB 290 PRPAR 0054 252 PRPNT 7C50 298 321 328 335 PRSW 0027 186 PTHDR 0006 137 PTPON 0040 236 PTSW 0028 187 PUT 7DBC 291 PUTP 03DA 783 524 583 602 678 795 REST 7DBD 292 RPGSW 0035 200 RTURN 7DBE 293 SDBUF 005B 258 SIHDR 0004 136 SKWDS 0029 188 STCSW 002A 189 STHDR FFF2 127 STSW 002B 190 T3MSW 002F 194 TEMP1 002C 191 694 TEMP2 002D 192 THIS 005E 261 TOWS 002E 193 UASW 0030 195 UCHDR 0000 134 WRTDC 7DB1 280 WSDC 21DE 271 WSSW 0031 196 XEQSW 0032 197 705