ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 2020 Source File: \jadupco.asm DUPCO- RESIDENT COMMA 2 AUG 67 2 | ABS J0100020 0005 3 | $CIBA EQU /5 ADDR OF CIB ON MASTER CARTRIDGE J0100030 0006 4 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 J0100040 0007 5 | $COMN EQU /7 WORD COUNT OF COMMON J0100050 000E 6 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC) J0100060 000F 7 | $CTSW EQU /F MCR SW,NON-ZERO=// RECD TRAPPED J0100070 0010 8 | $DADR EQU /10 SCTR ADDR OF PROG TO BE FETCHED J0100080 0011 9 | $DABL EQU /11 IOCC FOR SCA RESET (ODD ADDR) J0100090 0012 10 | $DREQ EQU /12 INDR FOR REQUESTED V. DISK I/O J0100100 0013 11 | $IBSY EQU /13 PRINC I/O BUSY INDR,NON-ZERO=BSY J0100110 0014 12 | $HASH EQU /14 WORK AREA FOR MONITOR PROGRAMS J0100120 0028 13 | $PRET EQU /28 ADDR PREOPERATIVE ERROR TRAP J0100130 002C 14 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE J0100140 002D 15 | $ULET EQU /2D ADDR OF LET, LOGICAL DRIVE 0 J0100150 0032 16 | $IOCT EQU /32 IOCS CTR,0=NO I/O IN PROGRESS J0100160 0033 17 | $LAST EQU /33 LAST CD INDR,NON-ZERO=LAST CARD J0100170 0034 18 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP J0100180 0035 19 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEQ J0100190 0036 20 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY J0100200 0037 21 | $PGCT EQU /37 PAGE NO. FOR PAGE HEADINGS J0100210 0038 22 | $EXIT EQU /38 ADDR CALL EXIT ENTRY POINT J0100220 0039 23 | $LINK EQU /39 ADDR CALL LINK ENTRY POINT J0100230 003F 24 | $DUMP EQU /3F ADDR OF CALL DUMP, ENTRY POINT J0100240 0077 25 | $DCDE EQU /77 DRIVE CODE FOR CORE LOAD BLDR J0100250 0078 26 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE J0100260 0079 27 | $UFIO EQU /79 ARM POSITION IN UNFORMATTED AREA J0100270 007A 28 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE J0100280 007B 29 | $WRD1 EQU /7B LOAD ADDR FOR CURR USER CORE LD J0100290 007C 30 | $KCSW EQU /7C INHIBIT INPUT/PRINT OVERLAP SW J0100300 007D 31 | $UFDR EQU /7D UNFORMATTED I/O DRIVE CODE J0100310 007E 32 | $CPTR EQU /7E CHANNEL 12 INDICATOR FOR CP J0100320 007F 33 | $1132 EQU /7F CHANNEL 12 INDICATOR FOR 1132 J0100330 0080 34 | $1403 EQU /80 CHANNEL 12 INDICATOR FOR 1403 J0100340 0081 35 | $PST1 EQU /81 ADDR POSTOP ERROR TRAP,LEVEL 1 J0100350 0085 36 | $PST2 EQU /85 ADDR POSTOP ERROR TRAP,LEVEL 2 J0100360 0089 37 | $PST3 EQU /89 ADDR POSTOP ERROR TRAP,LEVEL 3 J0100370 008D 38 | $PST4 EQU /8D ADDR POSTOP ERROR TRAP,LEVEL 4 J0100380 0091 39 | $STOP EQU /91 ADDR PROGRAM STOP KEY TRAP J0100390 0095 40 | $FPAD EQU /95 FILE PROTECT ADDR (ADJ),LOG DR 0 J0100400 009A 41 | $CYLN EQU /9A ARM POSITION FOR LOGICAL DRIVE 0 J0100410 009F 42 | $ACDE EQU /9F AREA CODE FOR LOGICAL DRIVE 0 J0100420 00A4 43 | $DCYL EQU /A4 1ST DEF CYL ADDR, LOGICAL DR 0 J0100430 00B3 44 | $I200 EQU /B3 ENTRY POINT TO ILS FOR LEVEL 2 J0100440 00B8 45 | $I205 EQU /B8 J0100450 00B9 46 | $IBT2 EQU $I205+1 ADDR OF IBT FOR LEVEL 2 J0100460 00C4 47 | $I400 EQU /C4 ENTRY POINT TO ILS FOR LEVEL 4 J0100470 00D3 48 | $I405 EQU /D3 J0100480 00D4 49 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 J0100490 00D5 50 | $I410 EQU /D5 J0100500 00EE 51 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY J0100510 01D1 52 | $BYSW EQU /1D1 BYPASS SW,NOP IF FETCHING SOCAL J0100520 00F2 53 | DZ000 EQU /0F2 DISKZ ENTRY POINT J0100530 01E0 54 | $ZEND EQU /1E0 ADDR 1+LAST WORD OF DISKZ J0100540 7FA0 56 | C EQU /7FA0 CATCO POINTER SET TO MIDDLE J0100560 57 | *************************************************** J0100570 58 | * * J0100580 59 | * INDEX REG 1 IS SET TO .C. WHEN CATCO IS FORMED * J0100590 60 | * FOR USE BY ALL OF DUP FUNCTIONS. ANY DUP ROUT * J0100600 61 | * USING XR 1 FOR OTHER REASONS MUST RESTORE. * J0100610 62 | * ALL VALUES IN CATCO HAVE LABELS EQUATED TO THE * J0100620 63 | * VALUE THAT INDICATES THEIR RELATIVE LOCATION * J0100630 64 | * FROM .C. * J0100640 65 | * * J0100650 66 | *************************************************** J0100660 67 | * * J0100670 68 | * CATCO DCOM IMAGE * J0100680 69 | * EQUIVALENCES USED TO REFERENCE CATCO WITH XR1 * J0100690 70 | * * J0100700 71 | *************************************************** J0100710 FF84 72 | #NAME EQU 4-/80 NAME OF PROGRAM J0100720 FF86 73 | #DBCT EQU 6-/80 DISK BLOCK COUNT OF PROGRAM J0100730 FF87 74 | #FCNT EQU 7-/80 FILES SW,ZERO = NO FILES J0100740 FF88 75 | #SYSC EQU 8-/80 NON-ZERO,SYSTEM CARTRIDGE J0100750 FF89 76 | #JBSW EQU 9-/80 JOB SW,NON-ZERO='T' MODE J0100760 FF8A 77 | #CBSW EQU 10-/80 CLB SW,NON-ZERO=STORECI J0100770 FF8B 78 | #LCNT EQU 11-/80 NO. OF LOCALS J0100780 FF8C 79 | #MPSW EQU 12-/80 NON-ZERO, CORE MAP DESIRED J0100790 FF8D 80 | #MDF1 EQU 13-/80 NO. OF DUP CTRL RCDS J0100800 FF8E 81 | #MDF2 EQU 14-/80 ADDR OF MODIF BUFFER J0100810 FF8F 82 | #NCNT EQU 15-/80 NO. OF NOCALS J0100820 FF90 83 | #ENTY EQU 16-/80 RELATIVE ENTRY ADDR OF PROG J0100830 FF91 84 | #RP67 EQU 17-/80 1442-6,7 SW,NZ = 1442-6,7 J0100840 85 | * J0100850 86 | * NEGATIVE VALUE REPRESENTS DEFAULT CONDITION * J0100860 87 | * * J0100870 FF92 88 | #TODR EQU 18-/80 DR CODE OF 'TO' DRIVE J0100880 FF93 89 | #FRDR EQU 19-/80 DR CODE OF 'FROM' DRIVE J0100890 90 | * * J0100900 FF94 91 | #FHOL EQU 20-/80 ADDR OF LARGEST FXA HOLE J0100910 FF95 92 | #FSZE EQU 21-/80 BLK CNT LARGEST HOLE IN FXA J0100920 FF96 93 | #UHOL EQU 22-/80 ADDR OF LARGEST UA HOLE J0100930 FF97 94 | #USZE EQU 23-/80 BLK CNT LARGEST HOLE IN UA J0100940 FF98 95 | #DCSW EQU 24-/80 NON-ZERO=DUP CALL J0100950 FF99 96 | #PIOD EQU 25-/80 PRINC. I/O INDICATOR J0100960 FF9A 97 | #PPTR EQU 26-/80 PRINC. PRINTER INDICATOR J0100970 FF9B 98 | #CIAD EQU 27-/80 WD NO. SCTR 0,CIL ADDR J0100980 FF9C 99 | #ACIN EQU 28-/80 AVAILABLE CARTRIDGE INDR2-8 J0100990 FF9D 100 | #GRPH EQU 29-/80 2250 INDICATOR 2-8 J0101000 FF9E 101 | #GCNT EQU 30-/80 NO. G2250 RECORDS 2-8 J0101010 FF9F 102 | #LOSW EQU 31-/80 LOCAL-CALLS-LOCAL INDR 2-8 J0101020 FFA0 103 | #X3SW EQU 32-/80 SPECIAL ILS SWITCH 2-8 J0101030 FFA1 104 | #ECNT EQU 33-/80 NO. OF EQUAT RCDS 2-8 J0101040 FFA3 105 | #ANDU EQU 35-/80 END OF UA (ADJ) LOG DR 0-4 J0101050 FFA8 106 | #BNDU EQU 40-/80 END OF UA (BASE) LOG DR 0-4 J0101060 FFAD 107 | #FPAD EQU 45-/80 FILE PROTECT ADDR (BASE) J0101070 FFB2 108 | #PCID EQU 50-/80 CART ID, PHYS DR 0-4 J0101080 FFB7 109 | #CIDN EQU 55-/80 CART ID, LOG DR 0-4 J0101090 FFBC 110 | #CIBA EQU 60-/80 CIB ADDR, LOG DR 0-4 J0101100 FFC1 111 | #SCRA EQU 65-/80 SCRA, LOG DR 0-4 J0101110 FFC6 112 | #FMAT EQU 70-/80 WS FORMAT, LOG DR 0-4 J0101120 FFCB 113 | #FLET EQU 75-/80 FLET ADDR, LOG DR 0-4 J0101130 FFD0 114 | #ULET EQU 80-/80 LET ADDR, LOG DR 0-4 J0101140 FFD5 115 | #WSCT EQU 85-/80 WS BLK CNT, LOG DR 0-4 J0101150 FFDA 116 | #CSHN EQU 90-/80 CUSHION END SCTR ADDR, 0-4 J0101160 0001 117 | #DCOM EQU 1 SCTR ADDR OF DCOM J0101170 0007 118 | #HDNG EQU 7 SCTR WITH PAGE HEADING J0101180 0FB0 119 | @SBFR EQU /FB0 * J0101190 CONCATENATED COMMON AREA (CATCO) 121 | *************************************************** J0101210 122 | * * J0101220 123 | * CATCO IOAR HDRS FOR DUP PHASES J0101230 124 | * * J0101240 125 | *************************************************** J0101250 FFF0 126 | ORG -/10 J0101260 FFF0 127 | DCHDR BSS 2 DUP CONTROL PH02 J0101270 FFF2 128 | STHDR BSS 2 STORE PH03 J0101280 FFF4 129 | FLHDR BSS 2 FILEQ PH04 J0101290 FFF6 130 | DMHDR BSS 2 DUMP PH05 J0101300 FFF8 131 | DLHDR BSS 2 DUMPLET PH06 J0101310 FFFA 132 | DTHDR BSS 2 DELETE PH07 J0101320 FFFC 133 | DFHDR BSS 2 DEFINE PH08 J0101330 FFFE 134 | DXHDR BSS 2 DUP EXIT PH09 J0101340 0000 135 | UCHDR BSS 2 DUP UPCOR PH13 J0101350 0002 136 | PIHDR BSS 2 PRINCIPAL I/O BLOCK PH14 J0101360 0004 137 | SIHDR BSS 2 PRINC I/O (W/O KB) BLK PH15 J0101370 0006 138 | PTHDR BSS 2 PAPER TAPE I/O BLOCK PH16 J0101380 0008 139 | CIHDR BSS 2 CI PHASE READ BY CL BUILDER J0101390 000A 140 | MUHDR BSS 2 MACRO UPDATE PH206 2-8 J0101400 000C 141 | D2HDR BSS 2 DUP CONTROL 2 PH205 2-8 J0101410 DUPCO- CATCO DUP SWITCHES 143 | *************************************************** J0101430 144 | * J0101440 145 | * CATCO DUP SWITCHES * J0101450 146 | * WORDS USED FOR COMMUNICATION OF DATA J0101460 147 | * BETWEEN DUP ROUTINES. J0101470 148 | * * J0101480 149 | * INITIALIZED TO ZERO BY .REST. OF DUPCO * J0101490 150 | * J0101500 151 | *************************************************** J0101510 000E 152 | CL1 EQU * J0101520 000E 153 | ASMSW BSS 1 NON ZERO IF DEFINE VOID ASM J0101530 000F 154 | BITSW BSS 1 NON ZERO TO ALLOW MDUMP-S J0101540 0010 155 | BLKSW BSS 1 NON ZERO IF BYPASSING REC J0101550 0011 156 | CIERR BSS 1 ERROR NO DETECTED BY PH 17 J0101560 0012 157 | CISW BSS 1 NON ZERO IF STORE CI J0101570 0013 158 | CLBSW BSS 1 NON ZERO IF PRECI EXECUTED J0101580 0014 159 | CNTNO BSS 1 RECORD NO BEING PCHD OR RD J0101590 160 | * * J0101600 161 | * .DATSW. IS FILLED WITH THE CNT FIELD OF THE * J0101610 162 | * DUP CONTROL RECORD. * J0101620 163 | * USED PRIMARILY FOR DATA MOVEMENT, BUT ALSO IS * J0101630 164 | * USED FOR COUNT OF RECORDS TO READ AFTER A * J0101640 165 | * STORE CI DUP CONTROL RECORD. * J0101650 166 | * * J0101660 0015 167 | DATSW BSS 1 RECORDS VALUE IN CNT FIELD J0101670 0016 168 | DBADR BSS 1 DB ADDR OF REFERENCED PROG J0101680 0017 169 | DELSW BSS 1 ADDR OF REQ LET ENTRY - 1 J0101690 0018 170 | DFNSW BSS 1 NON ZERO IF DEFINE FXA J0101700 0019 171 | DKSAD BSS 1 DK SCTR ADDR W/O DR CODE J0101710 001A 172 | DUMPP BSS E 2 LAST LIMITS FOR PRNTR DUMP J0101720 001C 173 | FORSW BSS 1 NON ZERO IF DEFINE VOID FOR J0101730 001D 174 | FRWS BSS 1 NON ZERO IF FROM FLD IS WS J0101740 001E 175 | FXSW BSS 1 NON ZERO IF FIXED AREA REQD J0101750 001F 176 | HOLSW BSS 1 NON ZERO IF NO CONV REQD J0101760 0020 177 | IOSW BSS 1 NON ZERO IF IN/OUT REQD J0101770 178 | * * J0101780 179 | * DUMPLET SWITCH - ZERO IF NOT DUMPLET/DUMPFLET * J0101790 180 | * PLUS VALUE REQUIRES PRINT OF BOTH LET/FLET* J0101800 181 | * NEG. VALUE REQUIRES PRINT OF FLET ONLY * J0101810 182 | * * J0101820 0021 183 | LETSW BSS 1 NON ZERO,PRINT LET OR FLET* J0101830 0022 184 | LSTLF BSS 1 LAST LET/FLET SECT PROCESSD J0101840 0023 185 | MODSW BSS 1 NON ZERO IF STORE MOD FUNC J0101850 0024 186 | NAMSW BSS 1 NON ZERO IF NAME IN LET/F J0101860 0025 187 | NEGSW BSS 1 NON ZERO IF SHRINKING FXA J0101870 0026 188 | PGMHL BSS 1 WORD COUNT OF THE PROG HDR J0101880 0027 189 | PRSW BSS 1 NON ZERO IF PRINTING OUTPUT J0101890 0028 190 | PTSW BSS 1 NON ZERO IF PAPER TAPE REQD J0101900 0029 191 | SKWDS BSS 1 WDS TO SEARCH IN L/F SECT J0101910 002A 192 | STCSW BSS 1 NON ZERO IF STORE DATA CI J0101920 002B 193 | STSW BSS 1 NON ZERO IF STORE TYPE J0101930 002C 194 | TEMP1 BSS E 1 1ST WD OF BINEB OUTPUT J0101940 002D 195 | TEMP2 BSS 1 2ND WD OF BINEB OUTPUT J0101950 002E 196 | TOWS BSS 1 NON ZERO IF TO FIELD IS WS J0101960 002F 197 | T3MSW BSS 1 TYPE 3,4 SOCAL LEVEL CELL J0101970 0030 198 | UASW BSS 1 NON ZERO IF USER AREA REQD J0101980 0031 199 | WSSW BSS 1 NON ZERO IF WORK STG REQD J0101990 0032 200 | XEQSW BSS 1 NON ZERO IF NOT RET FR GET J0102000 0033 201 | EBCSW BSS 1 NON ZERO IF EBC DATA OP 2E2 J0102010 0034 202 | HDNSW BSS 1 NON ZERO IF NAME IN HDR 2-8 J0102020 0035 203 | RPGSW BSS 1 NON Z IF DEFINE VOID RPG2-8 J0102030 0036 204 | DFLSW BSS 1 NON ZERO IF *DFILE 2-8 J0102040 0037 205 | BSS 1 RESERVED FOR ADDITION 2-8 J0102050 0037 206 | CL2 EQU *-1 J0102060 DUPCO- CATCO DUP SWITCHES 208 | *************************************************** J0102080 209 | * * J0102090 210 | * CATCO DUP SWITCHES * J0102100 211 | * INITIALIZED BY DCTL AND NOT RESET BY .REST. * J0102110 212 | * * J0102120 213 | *************************************************** J0102130 0038 214 | IOREQ BSS 1 NON-ZERO,AUX I/O SET REQ J0102140 0039 215 | PH2 BSS 1 NON-ZERO IF DCTL IN CORE J0102150 003A 216 | PH3 BSS 1 NON-ZERO IF STORE IN CORE J0102160 003B 217 | PH4 BSS 1 NON-ZERO IF DUMP IN CORE J0102170 218 | ************************************************2-8 J0102180 219 | * 2-8 J0102190 220 | * CATCO SWITCH INITIALIZED TO ZERO 2-8 J0102200 221 | * BY CCAT SUBR AND SET BY MACRO UPDATE PROGRAM2-8 J0102210 222 | * 2-8 J0102220 223 | ************************************************2-8 J0102230 003C 224 | DUPCR BSS 1 NON ZERO IF DUP CTRL RCD2-8 J0102240 225 | *************************************************** J0102250 226 | * * J0102260 227 | * CATCO DUP SWITCHES SET BY CCAT SUBR * J0102270 228 | * * J0102280 229 | *************************************************** J0102290 003D 230 | ADDR2 BSS 1 KB INTERRUPT ADDRESS J0102300 003E 231 | KBREQ BSS 1 CONTENTS OF LOC 13 J0102310 232 | * THE FOLLOWING SWITCH IS SET TO INDICATE THE J0102320 233 | * PRINCIPAL INPUT DEVICE J0102330 234 | * - IS PAPER TAPE J0102340 235 | * 0 IS CARD J0102350 236 | * + IS KEYBOARD J0102360 003F 237 | INOUT BSS 1 PRINCIPAL INPUT SWITCH J0102370 238 | * J0102380 0040 239 | PTPON BSS 1 NON-ZERO IF PAPER TP ON SYS J0102390 240 | *************************************************** J0102400 241 | * * J0102410 242 | * LEVEL 4 INTERRUPT BRANCH TABLE * J0102420 243 | * ADDRESSES. INITIALIZED BY CCAT, * J0102430 244 | * AND CARD/PAPER TAPE INTERFACES. * J0102440 245 | * * J0102450 246 | *************************************************** J0102460 0049 247 | ORG /0049 J0102470 0049 248 | IBT BSS 9 9 WD INTRPT BRANCH TABLE J0102480 249 | *************************************************** J0102490 250 | * * J0102500 251 | * CATCO I/O ADDRESSES REQUIRED BY DUP * J0102510 252 | * * J0102520 253 | *************************************************** J0102530 0052 254 | P1442 BSS E 2 SYS 1442 IOAR HEADER J0102540 0054 255 | PRPAR BSS 2 DEFAULT LIMITS TO PRINT J0102550 0056 256 | PHDUP BSS 1 LAST DUP PHASE IN CORE J0102560 0057 257 | CRBUF BSS 1 81 WD BFR FOR DUP CTRL RCDS J0102570 0058 258 | DCADR BSS 1 ADDR FOR DUP CTRL IOAR HDR J0102580 0059 259 | HDBUF BSS 1 ADDR OF PAGE HEADING BFR J0102590 005A 260 | IOBLK BSS 1 ADDR OF DUP I/O PHASE J0102600 005B 261 | SDBUF BSS 1 STORE/DUMP BUFFER J0102610 005C 262 | LETAR BSS 1 ADDR OF LET SEARCH BUFFER J0102620 005D 263 | PEBUF BSS 1 41 WD BFR FOR PACKED EBCDIC J0102630 005E 264 | THIS BSS 1 ADDR OF DOUBLE BFR, BFR 1 J0102640 005F 265 | NEXT BSS 1 ADDR OF DOUBLE BFR, BFR 2 J0102650 00F2 267 | DISKZ EQU DZ000 DISKZ ENTRY POINT J0102670 01DE 268 | B EQU $ZEND-2 J0102680 01DE 269 | DMPLC EQU B IOAR CORE ADDR FOR DMPLT J0102690 01DE 270 | EXITC EQU B IOAR CORE ADDR FOR DEXIT J0102700 01DE 271 | MUPC EQU B IOAR CORE ADDR FOR MUP 2-8 J0102710 11E0 272 | DCTL EQU B+/1002 ENTRY ADDRESS OF DCTL J0102720 11DE 273 | DCTLC EQU B+/1000 IOAR CORE ADDR FOR DCTL J0102730 21DE 274 | WSDC EQU B+/2000 IOAR CORE ADDR FOR STORE J0102740 41DE 275 | DUMPC EQU B+/4000 IOAR CORE ADDR FOR DDUMP J0102750 7DB0 276 | DUPCO EQU /7DB0 ADDR OF RESIDENT DUPCO J0102760 7F1E 277 | CATCO EQU /7F20-2 ADDR OF DCOM IOAR HEADER J0102770 278 | * * J0102780 279 | * DUPCO ENTRY POINTS...USED WITH INDIRECT BSI * J0102790 280 | * * J0102800 7DB0 281 | ORG DUPCO J0102810 7DB0 282 | BINEB BSS 1 CONVERSION BINARY TO EBCDIC J0102820 7DB1 283 | WRTDC BSS 1 WRITE DCOM(S) SUBROUTINE J0102830 7DB2 284 | ENTER BSS 1 SAVE XR-S AND CONDITIONS J0102840 7DB3 285 | GET BSS 1 READ FROM DISK USING DISKZ J0102850 7DB4 286 | LEAVE BSS 1 HANDLES ALL EXITS FROM DUP J0102860 7DB5 287 | LINE BSS 1 SPACES PRINTER 1 LINE J0102870 7DB6 288 | MASK BSS 1 INHIBITS KB INT REQUEST J0102880 7DB7 289 | MDUMP BSS 1 PRINTS SELECTED CORE LOC-S J0102890 7DB8 290 | PAGE BSS 1 SKIPS TO NEXT PAGE J0102900 7DB9 291 | PHID BSS 1 RECORDS PHASE ID J0102910 7DBA 292 | PHIDM BSS 1 RECORDS PHASE AND MODIFIER J0102920 7DBB 293 | PRINT BSS 1 USE SYS PR SUBR TO PRINT J0102930 7DBC 294 | PUT BSS 1 WRITES TO DISK USING DISKZ J0102940 7DBD 295 | REST BSS 1 RESTORE CATCO,GO TO DCTL J0102950 7DBE 296 | RTURN BSS 1 RESTORE XR-S AND CONDITIONS J0102960 297 | * * J0102970 298 | * INPUT/OUTPUT PARAMETERS , CORE ADDRESSES * J0102980 299 | * * J0102990 7D91 300 | BUF6 EQU DUPCO-/1F ADDR OF PAGE HEADING BUFFER J0103000 7C50 301 | PRPNT EQU BUF6-/141 IOAR ADDR FOR PRINC.PTR J0103010 7A06 302 | IOADR EQU BUF6-/38B START OF I/O INTERFACE J0103020 7A0A 303 | GETHO EQU IOADR+4 ENTRY FOR READING HOLL TYPE J0103030 7A0B 304 | GETBI EQU IOADR+5 ENTRY FOR READING BINARY J0103040 7A0C 305 | PACKB EQU IOADR+6 ENTRY TO PACK BINARY J0103050 7A0D 306 | PCHBI EQU IOADR+7 ENTRY TO PUNCH BINARY J0103060 79B5 307 | BUF1 EQU IOADR-/51 ADDR OF NEXT BUFFER J0103070 7963 308 | BUF2 EQU BUF1-/52 ADDR OF THIS BUFFER J0103080 7925 309 | BUF3 EQU BUF2-/3E ADDR OF PACKED EBC BUFFER J0103090 78D3 310 | BUF4 EQU BUF3-/52 ADDR OF CONTROL RCD BUFFER J0103100 7782 311 | BUF5 EQU IOADR-/284 ADDR OF LET SCTR BFR J0103110 0640 312 | BUF7 EQU BUF5-/7142 ADDR OF STORE/DUMP BFR J0103120 DUP COMMON PROLOGUE 1200-20APR67 314 | *************************************************** J0103140 315 | * * J0103150 316 | *STATUS - VERSION -, MODIFICATION 8 * J0103160 317 | * * J0103170 318 | *FUNCTION/OPERATION- THIS MODULE RESIDES IN CORE * J0103180 319 | * WHILE DUP IS IN CONTROL (EXCEPTION-STORE CI). * J0103190 320 | * DUPCO CONSISTS OF RELATIVELY SMALL ROUTINES * J0103200 321 | * COMMON TO MANY DUP FUNCTIONS. * J0103210 322 | * ALL DISK OPERATIONS ARE COORDINATED EXCEPT IN * J0103220 323 | * THOSE SYSTEM LIBRARY FUNCTIONS USED BY DUP. * J0103230 324 | * WHEN THE CORE LOAD BUILDER IS CALLED TO * J0103240 325 | * CONVERT THE DSF PROGRAM TO CI,THE ENTIRE DUP * J0103250 326 | * COMMON AREA IS SAVED ON DISK AND RESTORED BY * J0103260 327 | * THE CORE LOAD BUILDER BEFORE RETURNING TO DUP * J0103270 328 | * ANY EXIT FROM DUP MUST GO THRU DUPCO. * J0103280 329 | * MACHINE INDEPENDENT PORTION OF PRINT ROUTINE * J0103290 330 | * IS INCLUDED. * J0103300 331 | * FACILITY TO CALL DUMMY LINKS INTO CORE IS * J0103310 332 | * PROVIDED. * J0103320 333 | * ENTRY TO DUP FROM THE SUPERVISOR AND CORE * J0103330 334 | * LOAD BUILDER IS PROVIDED. * J0103340 335 | * ROUTINES THAT WILL IDENTIFY THE CURRENT DUP * J0103350 336 | * PHASE AND PREVENT CATASTROPHIC INTERRUPTS * J0103360 337 | * FROM KEYBOARD REQUEST ARE INCLUDED * J0103370 338 | * * J0103380 339 | *ENTRY POINTS- * J0103390 340 | * DUP01 - - ENTRY FROM SUPERVISOR * J0103400 341 | * AFTER DUPCO HAS BEEN READ INTO CORE FROM DISK.* J0103410 342 | * LINKAGE IS BSC L DUP01 EXIT TO REST,DUPCO J0103420 343 | * * J0103430 344 | * DUP02 - WRTDC - ENTRY FROM DUP FUNCTIONS * J0103440 345 | * WHEN UPDATING DCOM OF LOGICAL DRIVE ZERO * J0103450 346 | * AS WELL AS ANY SATELLITE CARTRIDGE EFFECTED. * J0103460 347 | * LINKAGE IS LDC L3 CATCO * J0103470 348 | * BSI I WRTDC * J0103480 349 | * DC /X000 X IS DRIVE CODE * J0103490 350 | * XR2 IS NOT SAVED IN THIS SUBROUTINE * J0103500 351 | * * J0103510 352 | * DUP04 - PHIDM- ENTRY TO MODIFY PHASE ID * J0103520 353 | * USED TO IDENTIFY MODULES OR SUBMODULES OF DUP * J0103530 354 | * FUNCTIONS. * J0103540 355 | * ESPECIALLY USED FOR SEVERAL DUPCO ENTRIES AS * J0103550 356 | * WELL AS PROGRESS CHECKING DURING DEBUGING. * J0103560 357 | * LINKAGE IS BSI I PHIDM * J0103570 358 | * DC /0D00 D IS HEX DIGIT TO * J0103580 359 | * * IDENTIFY SUB MODULE. * J0103590 360 | * THE ADDRESS OF THE SUB MODULE IDENTIFIER IS * J0103600 361 | * RECORDED IN DUP04 AND LATER PUT INTO DUP05. * J0103610 362 | * * J0103620 363 | * DUP05 - PHID - ENTRY TO RECORD THE * J0103630 364 | * PHASE ID FOR ALL DUP ROUTINES. * J0103640 365 | * LINKAGE IS BSI I PHID RECORD ID OF PHASE * J0103650 366 | * DC XXYY YY IS PHASE NO. * J0103660 367 | * * XX IS DUP MODIFIER * J0103670 368 | * THE ADDRESS OF PHASE NUMBER AND THE INTERNAL * J0103680 369 | * DUP MODIFIER IS RECORDED IN DUP05. * J0103690 370 | * * J0103700 371 | * DUP06 - MASK - ENTRY TO MASK KEYBOARD * J0103710 372 | * REQUEST FOR CRITICAL DUP FUNCTIONS. * J0103720 373 | * LINKAGE IS BSI I MASK MASK KB REQUEST * J0103730 374 | * THE ADDRESS OF THE NEXT DUP FUNCTION WORD IS * J0103740 375 | * RECORDED IN THE ENTRY POINT * J0103750 376 | * * J0103760 377 | * DUP08 - LEAVE - ENTRY USED TO EXIT FROM * J0103770 378 | * DUP TO OTHER PARTS OF THE MONITOR SYSTEM. * J0103780 379 | * LINKAGE IS BSI I LEAVE EXIT FROM DUP * J0103790 380 | * DC ZZZZ WHERE IF ZZZZ IS * J0103800 381 | * THE ADDRESS OF THE CONTROL PARAMETER IS * J0103810 382 | * RECORDED IN DUP08. * J0103820 383 | * * J0103830 384 | * * DUP09 - MDUMP - ENTRY TO DUMP SELECTED * J0103840 385 | * PORTIONS OF CORE MEMORY TO PRINCIPLE PRINT * J0103850 386 | * DEVICE. THE LINKAGE IS BSI I MDUMP * J0103860 387 | * THE RETURN ADDRESS IS RECORDED IN THE ENTRY PT* J0103870 388 | * DDMPP OF CATCO CONTAINS THE 2 LIMIT ADDRESSES * J0103880 389 | * * J0103890 390 | * DUP10 - BINEB - ENTRY TO CONVERT 1 BINARY* J0103900 391 | * WORD TO 2 EBCDIC WORDS * J0103910 392 | * LINKAGE IS LD WORD PUT INFO INTO AREG * J0103920 393 | * BSI I BINEB CONVERT TO EBCDIC * J0103930 394 | * THE ADDRESS OF THE NEXT DUP FUNCTION WORD IS * J0103940 395 | * RECORDED IN THE ENTRY POINT * J0103950 396 | * * J0103960 397 | * DUP11 - PRINT - ENTRY TO PRINT A LINE * J0103970 398 | * LINKAGE IS BSI I PRINT PRINT 1 LINE * J0103980 399 | * DC IOAR POINT TO WD CNT * J0103990 400 | * THE ADDRESS OF THE LOC OF THE WORD COUNT THAT * J0104000 401 | * PRECEEDS THE DATA TO BE PRINTED IS RECORDED * J0104010 402 | * IN DUP11 * J0104020 403 | * * J0104030 404 | * DUP12 - PAGE - ENTER TO SKIP TO NEXT PAGE* J0104040 405 | * LINKAGE IS BSI I PAGE SKIP TO NEW PAGE * J0104050 406 | * THE ADDRESS OF THE NEXT DUP FUNCTION WORD IS * J0104060 407 | * RECORDED IN THE ENTRY POINT * J0104070 408 | * * J0104080 409 | * DUP13 - LINE - ENTER TO SKIP 1 LINE * J0104090 410 | * LINKAGE IS BSI I LINE SKIP 1 LINE * J0104100 411 | * THE ADDRESS OF THE NEXT DUP FUNCTION WORD IS * J0104110 412 | * RECORDED IN THE ENTRY POINT * J0104120 413 | * * J0104130 414 | * DUP14 - REST - NORMAL ENTRY AFTER DUP * J0104140 415 | * FUNCTION HAS PRINTED SIGN OFF MESSAGE. * J0104150 416 | * ENTRY USED BY CORE LOAD * J0104160 417 | * BUILDER TO RETURN TO DUP AFTER CORE LOAD IS * J0104170 418 | * BUILT AT THE REQUEST OF DUP (STORECI) * J0104180 419 | * LINKAGE IS BSI I REST RETURN CTL TO DUPCO * J0104190 420 | * THE ADDRESS OF THE NEXT DUP FUNCTION WORD IS * J0104200 421 | * RECORDED IN THE ENTRY POINT * J0104210 422 | * * J0104220 423 | * DUP15 - ENTER - ENTRY TO SAVE A AND Q REGS* J0104230 424 | * INDEX REGISTERS AND STATUS. * J0104240 425 | * LINKAGE IS BSI I ENTER * J0104250 426 | * THE RETURN ADDRESS IS RECORDED IN DUP15 * J0104260 427 | * * J0104270 428 | * DUP16 - RTURN - ENTRY TO RESTORE THE A AND* J0104280 429 | * Q REGISTERS, INDEX REGISTERS, AND STATUS. * J0104290 430 | * LINKAGE IS BSI I RTURN * J0104300 431 | * THE RETURN ADDRESS IS RECORDED IN DUP16 * J0104310 432 | * * J0104320 433 | * DUP30 - GET - ENTRY TO READ FROM DISK * J0104330 434 | * ALL DISK READS DONE IN DUP EXCEPT THOSE FROM * J0104340 435 | * ROUTINES WITHIN THE SYSTEM LIBRARY. * J0104350 436 | * LINKAGE IS LDX L3 IOAR SET XR3 TO I/O AREA * J0104360 437 | * LDD HDR * J0104370 438 | * STD 3 0 INSERT IOAR HDR INFO* J0104380 439 | * BSI I GET READ IN SPEC ROUTINE* J0104390 440 | * TO GET AND EXECUTE SET XEQSW TO NON ZERO BEFORE* J0104400 441 | * GOING TO .GET. * J0104410 442 | * LINKAGE TO GET AND EXECUTE IS * J0104420 443 | * STX L XEQSW+C SET XEQ SWTCH TO NON-ZERO* J0104430 444 | * LDX 3 IOAR XR3 SET TO IOAR HEADER * J0104440 445 | * BSI I GET GET AND EXEC PROG IND * J0104450 446 | * BY WD CNT AND SCTR ADDR * J0104460 447 | * IN THE IOAR SPECIFIED * J0104470 448 | * THE ADDRESS OF THE NEXT DUP FUNCTION WORD IS * J0104480 449 | * RECORDED IN THE ENTRY POINT * J0104490 450 | * * J0104500 451 | * DUP34 - PUT - ENTRY TO WRITE TO DISK * J0104510 452 | * ALL DISK WRITES DONE IN DUP EXCEPT THOSE FROM * J0104520 453 | * ROUTINES WITHIN THE SYSTEM LIBRARY. * J0104530 454 | * LINKAGE IS LDX L3 IOAR SET XR3 TO I/O AREA * J0104540 455 | * LDD HDR * J0104550 456 | * STD 3 0 INSERT IOAR HDR INFO* J0104560 457 | * BSI I PUT WRITE SPEC INFO * J0104570 458 | * THE ADDRESS OF THE NEXT DUP FUNCTION WORD IS * J0104580 459 | * RECORDED IN THE ENTRY POINT * J0104590 460 | * * J0104600 461 | *INPUT/OUTPUT * J0104610 462 | * DUP01 INPUT-PRINCIPAL PRINT DEVICE ROUTINE * J0104620 463 | * PRINCIPAL INPUT DEVICE ROUTINE * J0104630 464 | * PRINCIPAL I/O CONVERSION ROUTINE * J0104640 465 | * PRINCIPAL I/O INTERFACE ROUTINE * J0104650 466 | * DCTL SECTORS FROM DISK * J0104660 467 | * DCOM SECTORS FROM DISK * J0104670 468 | * DUP01 OUTPUT-COMPLETED UPCOR FOR DUP * J0104680 469 | * DUP02 INPUT-DCOM OF LOGICAL ZERO * J0104690 470 | * OUTPUT-DCOM OF LOGICAL ZERO, AND DCOM * J0104700 471 | * OF # TODR IF OTHER THAN ZERO. * J0104710 472 | * DUP04 INPUT-SUB MODULE IDENTIFICATION * J0104720 473 | * OUTPUT-PHASE AND SUB MODULE IDENTITIES * J0104730 474 | * OR-ED TOGETHER AND RECORDED IN * J0104740 475 | * COMMA (PHASE) * J0104750 476 | * DUP05 INPUT-PHASE IDENTIFICATION * J0104760 477 | * OUTPUT-PHASE IDENTIFICATION RECORDED IN* J0104770 478 | * COMMA (PHASE) * J0104780 479 | * DUP06 INPUT-ADDRESS OF KTRAP WITHIN ILS04 * J0104790 480 | * OUTPUT-KBREQ * J0104800 481 | * DUP08 INPUT-EXIT CODE * J0104810 482 | * OUTPUT-EXIT CODE TO XR2 * J0104820 483 | * ADDRESS OF EXIT ROUTINE TO XR3 * J0104830 484 | * XEQ INDICATOR * J0104840 485 | * * DUP09 - 2 WORDS IN CATCO LABELED DUMPP. * J0104850 486 | * THESE WORDS SPECIFY THE FIRST AND LAST CORE * J0104860 487 | * LOCATION REQUIRED FOR THE PRINTED DUMP. * J0104870 488 | * * BIT SWITCHES FROM CONSOLE ARE READ * J0104880 489 | * * DUP09 - PRINT OUT OF AREA SPECIFIED BY * J0104890 490 | * WORDS IN DUMPP OF CATCO * J0104900 491 | * * J0104910 492 | * DUP10 INPUT-BINARY DATA (VIA ACC) * J0104920 493 | * OUTPUT-2 PACKED EBCDIC WORDS TO CATCO * J0104930 494 | * (TEMP1 + TEMP2) * J0104940 495 | * DUP11 INPUT-IOAR HEADER ADDRESS IN XR3 * J0104950 496 | * BFR IN PACKED EBC * J0104960 497 | * OUTPUT-PRINTED BUFFER * J0104970 498 | * DUP12 INPUT-RETURN ADDRESS IN ENTRY POINT * J0104980 499 | * OUTPUT-A PAGE RESTORE * J0104990 500 | * DUP13 INPUT-RETURN ADDRESS IN ENTRY POINT * J0105000 501 | * OUTPUT-A LINE SKIP * J0105010 502 | * DUP14 INPUT-NONE * J0105020 503 | * OUTPUT-DUPCO SWITCHES IN CATCO CLEARED * J0105030 504 | * DUP15 NONE * J0105040 505 | * DUP16 NONE * J0105050 506 | * DUP30 INPUT-IOAR HEADER IN XR3 * J0105060 507 | * XEQ INDICATOR XEQSW IN CATCO * J0105070 508 | * OUTPUT-SPECIFIED NO OF WORDS FROM DISK * J0105080 509 | * DUP34 INPUT-IOAR HEADER (IN XR3) * J0105090 510 | * OUTPUT-SPECIFIED WORDS WRITTEN TO DISK * J0105100 511 | * * J0105110 512 | *EXTERNAL REFERENCES ROUTINES * J0105120 513 | * EXIT (DUP EXIT ROUTINE) * J0105130 514 | * DISK (SYSTEM DISK ROUTINE) * J0105140 515 | * SDR (SYSTEM DEVICE ROUTINE) * J0105150 516 | * DUMP (SYSTEM DUMP TO PRINTER ROUTINE) * J0105160 517 | * SWITCHES + STORAGE DBUSY (IN COMMA) * J0105170 518 | * TEMP1 (IN CATCO) * J0105180 519 | * TEMP2 (IN CATCO) * J0105190 520 | * NAME1 (IN CATCO) * J0105200 521 | * NAME2 (IN CATCO) * J0105210 522 | * XEQSW (IN CATCO) * J0105220 523 | * CORSW (IN CATCO) * J0105230 524 | * KBREQ (IN CATCO) * J0105240 525 | * PHASE (IN COMMA) * J0105250 526 | * * J0105260 527 | * * J0105270 528 | *TABLES AND WORK AREAS * J0105280 529 | * DUP01 INTFC SLET ENTRIES FROM SYSTEM LDR * J0105290 530 | * DUP02 NONE * J0105300 531 | * DUP04 NONE * J0105310 532 | * DUP05 NONE * J0105320 533 | * DUP06 KBSUS SET TO ZERO * J0105330 534 | * DUP08 NONE * J0105340 535 | * DUP09 NONE * J0105350 536 | * DUP10 TOBOR TEMPORARY STORAGE * J0105360 537 | * DUP11 NONE * J0105370 538 | * DUP12 NONE * J0105380 539 | * DUP13 NONE * J0105390 540 | * DUP14 NONE * J0105400 541 | * * J0105410 542 | *************************************************** J0105420 543 | *************************************************** J0105430 DUPCO- ENTRY POINTS 7C50 545 | ORG PRPNT J0105450 7C50 0000 546 | DC *-* WD CNT OF DUPCO (FROM SYS LDR) J0105460 7C51 FFFF 547 | DC -1 SLET ID OF DUPCO J0105470 7C52 02CE 548 | SYSLD DC INTFC-SYSLD SYSTEM LDR SUPPLIES J0105480 7C53 0018 549 | DC 24 REQUIRED SLET ENTRIES 2-8 J0105490 550 | * J0105500 7DB0 551 | ORG DUPCO ALLOW CORE FOR CCAT SUBR J0105510 552 | *************************************************** J0105520 553 | * * J0105530 554 | * DUPCO ENTRY POINTS...USED WITH INDIRECT BSI * J0105540 555 | * * J0105550 556 | *************************************************** J0105560 7DB0 7E35 557 | DC DUP10 (BINEB) ENTRY POINT J0105570 7DB1 7DBF 558 | DC DUP02 (WRTDC) UPDATE DCOM J0105580 7DB2 7EB2 559 | DC DUP15 (ENTER) SAVE SUBR ENT PT J0105590 7DB3 7EC7 560 | DC DUP30 (GET) READ DISK ENTRY POINT J0105600 7DB4 7E02 561 | DC DUP08 (LEAVE) ENTRY POINT J0105610 7DB5 7E75 562 | DC DUP13 (LINE) LINE SPACE ENT PT J0105620 7DB6 7DF5 563 | DC DUP06 (MASK) MASK KB REQ J0105630 7DB7 7E15 564 | DC DUP09 (MDUMP) MONITORING DUMP J0105640 7DB8 7E69 565 | DC DUP12 (PAGE) SKIP TO NEW PAGE J0105650 7DB9 7DEA 566 | DC DUP05 (PHID) SET PHASE IDENT. J0105660 7DBA 7DDC 567 | DC DUP04 (PHIDM) MODIFY PHASE ID J0105670 7DBB 7E53 568 | DC DUP11 (PRINT) PRINT WITH SPACE J0105680 7DBC 7ECF 569 | DC DUP34 (PUT) WRITE TO DISK J0105690 7DBD 7E91 570 | DC DUP14 (REST) ENTRY POINT J0105700 7DBE 7EBC 571 | DC DUP16 (RTURN) RESTORE ENTRY POINT J0105710 DUP COMMON MODULE (DUPCO) 7C52 573 | START ORG SYSLD J0105730 574 | *************************************************** J0105740 575 | * * J0105750 576 | * ENTER HERE WHEN DUPCO READ IN BY THE SUPERVISOR* J0105760 577 | * * J0105770 578 | * EXECUTE THE CCAT ROUTINE AND GO TO * J0105780 579 | * REST IN DUPCO * J0105790 580 | * * J0105800 581 | *************************************************** J0105810 582 | * * J0105820 583 | * BEGIN CCAT * J0105830 584 | * * J0105840 585 | * THIS EXTENSION OF DUPCO FORMS THE * J0105850 586 | * CONCATENATED COMMON AREA OF DUP, READS * J0105860 587 | * DUP'S PRINCIPAL I/O INTERFACE, PRINCIPAL I/O* J0105870 588 | * ROUTINE, PRINCIPAL I/O CONVERSION INTO * J0105880 589 | * CORE, READS DUP CONTROL (DCTL) INTO CORE, * J0105890 590 | * SETS UP IOAR HEADERS FOR STORE,DUMP,DUMPL, * J0105900 591 | * DLETE,DFINE,EXIT,FILEQ,AND MUP FUNCTIONS. 2-8 J0105910 592 | * IF CORE SIZE = 32K, READ DUMP AND STORE * J0105920 593 | * FUNCTIONS. IF CORE SIZE = 16K, READ IN * J0105930 594 | * STORE FUNCTION. USE 1132 MASK WORDS (32-39) * J0105940 595 | * TO READ THE PRINCIPAL PRINT ROUTINE INTO * J0105950 596 | * CORE AND EXIT TO REST IN DUPCO. * J0105960 597 | * * J0105970 598 | *************************************************** J0105980 DUPCO--CCAT,INITIALIZE CATCO TO ZEROS 7C52 4480 7DB9 600 | DUP01 BSI I PHID RECORD PHASE ID FOR DUP J0106000 7C54 0001 601 | DC 1 PHASE ID J0106010 7C55 62A0 602 | LDX 2 -/60 CLEAR CONCATENATED J0106020 7C56 1010 603 | SLA 16 COMMON AREA OF DUP J0106030 7C57 D600 8000 604 | DU011 STO L2 C+/60 (CATCO) TO ZEROS. J0106040 605 | * * J0106050 7C59 7201 606 | MDX 2 +1 J0106060 7C5A 70FC 607 | MDX DU011 J0106070 608 | * J0106080 609 | * SET XR1 TO CATCO MID-POINT ADDRESS J0106090 610 | * J0106100 7C5B 6500 7FA0 611 | LDX L1 C J0106110 612 | *************************************************** J0106120 613 | * * J0106130 614 | * DETERMINE IF PAPER TAPE ATTACHED * J0106140 615 | * * J0106150 616 | *************************************************** J0106160 7C5D 6600 7F2C 617 | LDX L2 PINPT XR2 IS SLET ENTRIES POINTER J0106170 7C5F C20B 618 | LD 2 I1134+3-S J0106180 7C60 4C28 7CB2 619 | BSC L CC030,+Z BR IF PAPT NOT ATTACHED J0106190 620 | * * J0106200 7C62 6C00 7FE0 621 | STX L0 PTPON+C SET PAPT ATTACHED SW J0106210 7C64 C2FD 622 | LD 2 PINTF+1-S J0106220 7C65 D249 623 | STO 2 PHS16+1-S PHASE 16 CORE ADDRESS J0106230 624 | * * J0106240 7C66 CAFE 625 | LDD 2 PINTF+2-S SET-UP IOAR HDR TO READ J0106250 7C67 DC80 7F29 626 | STD I PINTF+1 *DUP PAPT INTERFACE J0106260 7C69 6780 7F29 627 | LDX I3 PINTF+1 J0106270 7C6B 4480 7DB3 628 | BSI I GET READ PAPER TAPE INTERFACE J0106280 629 | * * J0106290 7C6D C249 630 | LD 2 PHS16+1-S J0106300 7C6E 82FE 631 | A 2 PINTF+2-S COMPUTE CORE ADDR FOR J0106310 7C6F 8031 632 | A CC900 *SYSTEM 1134 ROUTINE J0106320 7C70 4804 633 | BSC E J0106330 7C71 8030 634 | A CC901 FORCE IOAR ADDR TO BE EVEN J0106340 7C72 D209 635 | STO 2 I1134+1-S SYSTEM 1134 IOAR HDR ADDR J0106350 636 | * * J0106360 7C73 802F 637 | A CC902 J0106370 7C74 D302 638 | STO 3 +2 SYS DEVICE ENT POINT ADDR J0106380 7C75 CA0A 639 | LDD 2 I1134+2-S SET-UP IOAR HDR TO READ J0106390 7C76 DC80 7F35 640 | STD I I1134+1 *SYS 1134 ROUTINE J0106400 641 | * * J0106410 7C78 6780 7F35 642 | LDX I3 I1134+1 J0106420 7C7A 4480 7DB3 643 | BSI I GET READ SYS PAPT ROUTINE J0106430 644 | *************************************************** J0106440 645 | * * J0106450 646 | * COMPUTE TOTAL WORD COUNT FOR PHASE 16 * J0106460 647 | * * J0106470 648 | *************************************************** J0106480 7C7C C209 649 | LD 2 I1134+1-S J0106490 7C7D 820A 650 | A 2 I1134+2-S ADDR OF CONVERT IOAR HDR, J0106500 7C7E 8022 651 | A CC900 *PLUS WD CNT OF CONVERT, J0106510 7C7F 92FD 652 | S 2 PINTF+1-S *PLUS 2,LESS STARTING ADDR. J0106520 7C80 D24A 653 | STO 2 PHS16+2-S PHASE 16 WORD COUNT J0106530 654 | * * J0106540 7C81 6780 7F75 655 | LDX I3 PHS16+1 J0106550 7C83 CA4A 656 | LDD 2 PHS16+2-S SET-UP IOAR HDR TO J0106560 7C84 DB00 657 | STD 3 0 *WRITE PHASE 16. J0106570 7C85 4480 7DBC 658 | BSI I PUT WRITE PHASE 16 (PAPT I/O) J0106580 659 | *************************************************** J0106590 660 | * * J0106600 661 | * IF PRINCIPAL INPUT (W/O KEYBOARD) IS PAPER * J0106610 662 | * TAPE, PHASE 15 IS THE SAME AS PHASE 16. * J0106620 663 | * * J0106630 664 | *************************************************** J0106640 7C87 C203 665 | LD 2 PINPT+3-S J0106650 7C88 F20B 666 | EOR 2 I1134+3-S J0106660 7C89 4C20 7CB2 667 | BSC L CC030,Z BR IF PAPT NOT PRINC. I/O J0106670 668 | * * J0106680 7C8B C249 669 | LD 2 PHS16+1-S J0106690 7C8C D245 670 | STO 2 PHS15+1-S SET-UP LOAD ADDRESS AND J0106700 7C8D D241 671 | STO 2 PHS14+1-S *WD CNT OF PHASES 14 AND 15 J0106710 7C8E C24A 672 | LD 2 PHS16+2-S *EQUAL TO PHASE 16. J0106720 7C8F D246 673 | STO 2 PHS15+2-S J0106730 7C90 D242 674 | STO 2 PHS14+2-S J0106740 7C91 C247 675 | LD 2 PHS15+3-S J0106750 7C92 D301 676 | STO 3 +1 SET-UP PHASE 15 IOAR HDR J0106760 7C93 4480 7DBC 677 | BSI I PUT WRITE PHASE 15 J0106770 7C95 C0FF 678 | LD *-1 J0106780 7C96 D13F 679 | STO 1 INOUT I/O SW NEGATIVE FOR PAPT J0106790 680 | *************************************************** J0106800 681 | * * J0106810 682 | * IF KEYBOARD INPUT HAS BEEN SELECTED SET-UP * J0106820 683 | * PHASE 14 AS KEYBOARD INPUT PHASE. OTHERWISE, * J0106830 684 | * SET-UP PHASE 14 IOAR HDR, AND WRITE IT TO * J0106840 685 | * THE DISK. * J0106850 686 | * * J0106860 687 | *************************************************** J0106870 7C97 C400 007C 688 | CC010 LD L $KCSW J0106880 7C99 4C20 7CEC 689 | BSC L CC040,Z BR IF KEYBOARD INPUT J0106890 690 | * * J0106900 7C9B C243 691 | CC020 LD 2 PHS14+3-S J0106910 7C9C D301 692 | STO 3 +1 SET-UP PHASE 14 IOAR HDR J0106920 7C9D 4480 7DBC 693 | BSI I PUT WRITE PHASE 14 J0106930 7C9F 4C00 7D21 694 | BSC L CC050 J0106940 DUPCO--CCAT CONSTANTS 7CA1 0002 696 | CC900 DC 2 CONSTANT J0106960 7CA2 0001 697 | CC901 DC 1 CONSTANT J0106970 7CA3 0003 698 | CC902 DC 3 CONSTANT J0106980 7CA4 008D 699 | CC903 DC $PST4 J0106990 7CA5 78D3 700 | CC904 DC BUF4 81 WD BFR FOR DUP CTRL RCDS J0107000 7CA6 0000 701 | DC *-* ADDR FOR DCTL IOAR HDR J0107010 7CA7 7D91 702 | DC BUF6 ADDR OF PAGE HEADING BFR J0107020 7CA8 0000 703 | DC *-* ADDR OF DUP I/O PHASE J0107030 7CA9 0640 704 | DC BUF7 ADDR OF STORE/DUMP BUFFER J0107040 7CAA 7782 705 | DC BUF5 ADDR OF LET SEARCH BUFFER J0107050 7CAB 7925 706 | DC BUF3 41 WD BFR FOR PACKED EBCDIC J0107060 7CAC 7963 707 | DC BUF2 DOUBLE BFR ADDR, 1ST BFR J0107070 7CAD 79B5 708 | DC BUF1 DOUBLE BFR ADDR, 2ST BFR J0107080 7CAE 709 | CC905 BES 0 J0107090 FFF7 710 | CC906 EQU CC904-CC905 J0107100 7CAE 711 | BSS E 0 J0107110 7CAE 78D3 712 | CC910 DC BUF4 LOWER DEFAULT MDUMP LIMIT J0107120 7CAF 7A06 713 | DC IOADR UPPER DEFAULT MDUMP LIMIT J0107130 7CB0 7C50 714 | CC912 DC PRPNT PRINC. PRINTER IOAR ADDR J0107140 7CB1 7FE8 715 | CC913 DC IBT-1+C ILS04 BR ADDR BEFORE IDXING J0107150 DUPCO--CCAT, PAPT NOT ATTACHED 7CB2 C2F5 717 | CC030 LD 2 INTFC+1-S J0107170 7CB3 D245 718 | STO 2 PHS15+1-S PHASE 15 CORE ADDRESS J0107180 719 | * * J0107190 7CB4 CAF6 720 | LDD 2 INTFC+2-S SET-UP IOAR HDR TO READ J0107200 7CB5 DC80 7F21 721 | STD I INTFC+1 *DUP CARD INTERFACE. J0107210 7CB7 6780 7F21 722 | LDX I3 INTFC+1 J0107220 7CB9 4480 7DB3 723 | BSI I GET READ CARD INTERFACE J0107230 724 | * * J0107240 7CBB C245 725 | LD 2 PHS15+1-S J0107250 7CBC 82F6 726 | A 2 INTFC+2-S COMPUTE CORE ADDR FOR J0107260 7CBD 80E3 727 | A CC900 *SYSTEM CARD ROUTINE. J0107270 7CBE 4804 728 | BSC E J0107280 7CBF 80E2 729 | A CC901 FORCE IOAR ADDR TO BE EVEN J0107290 7CC0 D201 730 | STO 2 PINPT+1-S SYSTEM CARD IOAR HDR ADDR J0107300 731 | * * J0107310 7CC1 80E1 732 | A CC902 J0107320 7CC2 D302 733 | STO 3 +2 SYS CARD ENT POINT ADDR J0107330 7CC3 CA02 734 | LDD 2 PINPT+2-S SET-UP IOAR HDR TO READ J0107340 7CC4 DC80 7F2D 735 | STD I PINPT+1 *SYS CARD ROUTINE. J0107350 736 | * * J0107360 7CC6 CA06 737 | LDD 2 I1442+2-S J0107370 7CC7 D952 738 | STD 1 P1442 SYS 1442 WD CNT, SCTR ADDR J0107380 7CC8 8201 739 | A 2 PINPT+1-S COMPUTE CORE ADDR FOR J0107390 7CC9 80D7 740 | A CC900 *SYS CARD CONVERT ROUTINE. J0107400 7CCA 4804 741 | BSC E J0107410 7CCB 80D6 742 | A CC901 FORCE IOAR ADDR TO BE EVEN J0107420 7CCC D215 743 | STO 2 PCVRT+1-S SYS CARD CONVERT IOAR ADDR J0107430 744 | * * J0107440 7CCD 80D5 745 | A CC902 J0107450 7CCE D303 746 | STO 3 +3 SYS CONVERT ENT POINT ADDR J0107460 7CCF CA16 747 | LDD 2 PCVRT+2-S SET-UP IOAR HDR TO READ J0107470 7CD0 DC80 7F41 748 | STD I PCVRT+1 *SYS CARD CONVERT ROUTINE. J0107480 749 | * * J0107490 7CD2 6780 7F2D 750 | LDX I3 PINPT+1 J0107500 7CD4 4480 7DB3 751 | BSI I GET READ SYS CARD ROUTINE J0107510 752 | * * J0107520 7CD6 6780 7F41 753 | LDX I3 PCVRT+1 J0107530 7CD8 4480 7DB3 754 | BSI I GET READ SYS CARD CONVERT J0107540 755 | *************************************************** J0107550 756 | * * J0107560 757 | * COMPUTE TOTAL WORD COUNT FOR PHASE 15 * J0107570 758 | * * J0107580 759 | *************************************************** J0107590 7CDA C215 760 | LD 2 PCVRT+1-S J0107600 7CDB 8216 761 | A 2 PCVRT+2-S ADDR OF CONVERT IOAR HDR, J0107610 7CDC 80C4 762 | A CC900 *PLUS WD CNT OF CONVERT, J0107620 7CDD 92F5 763 | S 2 INTFC+1-S *PLUS 2,LESS STARTING ADDR J0107630 7CDE D246 764 | STO 2 PHS15+2-S PHASE 15 WORD COUNT J0107640 765 | * * J0107650 7CDF 6780 7F71 766 | LDX I3 PHS15+1 J0107660 7CE1 CA46 767 | LDD 2 PHS15+2-S SET-UP IOAR HDR TO J0107670 7CE2 DB00 768 | STD 3 0 *WRITE PHASE 15 (CARD I/O) J0107680 7CE3 4480 7DBC 769 | BSI I PUT WRITE PHASE 15 J0107690 770 | * * J0107700 7CE5 1010 771 | SLA 16 J0107710 7CE6 D13F 772 | STO 1 INOUT INOUT IS 0 FOR CARD I/O J0107720 773 | * * J0107730 7CE7 C245 774 | LD 2 PHS15+1-S J0107740 7CE8 D241 775 | STO 2 PHS14+1-S SET-UP LOAD ADDRESS AND J0107750 7CE9 C246 776 | LD 2 PHS15+2-S *WD CNT OF PHASE 14 EQUAL J0107760 7CEA D242 777 | STO 2 PHS14+2-S *TO PHASE 15. J0107770 7CEB 70AB 778 | MDX CC010 J0107780 DUPCO--CCAT, BUILD KEYBOARD I/O PHASE 7CEC C2F9 780 | CC040 LD 2 KINTF+1-S J0107800 7CED D241 781 | STO 2 PHS14+1-S PHASE 14 CORE ADDRESS J0107810 782 | * * J0107820 7CEE CAFA 783 | LDD 2 KINTF+2-S SET-UP IOAR HDR TO READ J0107830 7CEF DC80 7F25 784 | STD I KINTF+1 *DUP KEYBOARD INTERFACE. J0107840 7CF1 6780 7F25 785 | LDX I3 KINTF+1 J0107850 7CF3 4480 7DB3 786 | BSI I GET READ KEYBOARD INTERFACE J0107860 787 | * * J0107870 7CF5 C241 788 | LD 2 PHS14+1-S J0107880 7CF6 82FA 789 | A 2 KINTF+2-S COMPUTE CORE ADDR FOR J0107890 7CF7 80A9 790 | A CC900 *SYSTEM KEYBOARD ROUTINE. J0107900 7CF8 4804 791 | BSC E J0107910 7CF9 80A8 792 | A CC901 FORCE IOAR ADDR TO BE EVEN J0107920 7CFA D20D 793 | STO 2 IKBRD+1-S SYS KEYBOARD IOAR HDR ADDR J0107930 794 | * * J0107940 7CFB 80A7 795 | A CC902 J0107950 7CFC D302 796 | STO 3 +2 SYS KEYBOARD ENT POINT ADDR J0107960 7CFD CA0E 797 | LDD 2 IKBRD+2-S SET-UP IOAR HDR TO READ J0107970 7CFE DC80 7F39 798 | STD I IKBRD+1 *SYS KEYBOARD ROUTINE. J0107980 799 | * * J0107990 7D00 C20D 800 | LD 2 IKBRD+1-S J0108000 7D01 820E 801 | A 2 IKBRD+2-S COMPUTE CORE ADDR FOR J0108010 7D02 809E 802 | A CC900 *SYS KEYBOARD CONVERT. J0108020 7D03 4804 803 | BSC E J0108030 7D04 809D 804 | A CC901 FORCE IOAR ADDR TO BE EVEN J0108040 7D05 D219 805 | STO 2 CKBRD+1-S SYS KYBRD CONVERT IOAR ADDR J0108050 806 | * * J0108060 7D06 809C 807 | A CC902 J0108070 7D07 D303 808 | STO 3 +3 SYS CONVERT ENT POINT ADDR J0108080 7D08 CA1A 809 | LDD 2 CKBRD+2-S SET-UP IOAR HDR TO READ J0108090 7D09 DC80 7F45 810 | STD I CKBRD+1 *SYS KEYBOARD CONVERT. J0108100 811 | * * J0108110 7D0B 6780 7F39 812 | LDX I3 IKBRD+1 J0108120 7D0D 4480 7DB3 813 | BSI I GET READ SYS KEYBOARD ROUTINE J0108130 814 | * * J0108140 7D0F 6780 7F45 815 | LDX I3 CKBRD+1 J0108150 7D11 4480 7DB3 816 | BSI I GET READ SYS KEYBOARD CONVERT J0108160 817 | * * J0108170 7D13 6C00 7FDF 818 | STX L0 INOUT+C INOUT PLUS FOR KEYBOARD I/O J0108180 819 | *************************************************** J0108190 820 | * * J0108200 821 | * COMPUTE TOTAL WORD COUNT FOR PHASE 14 * J0108210 822 | * * J0108220 823 | *************************************************** J0108230 7D15 C219 824 | LD 2 CKBRD+1-S J0108240 7D16 821A 825 | A 2 CKBRD+2-S ADDR OF CONVERT IOAR HDR, J0108250 7D17 8400 7CA1 826 | A L CC900 *PLUS WD CNT OF CONVERT, J0108260 7D19 92F9 827 | S 2 KINTF+1-S *PLUS 2,LESS STARTING ADDR J0108270 7D1A D242 828 | STO 2 PHS14+2-S PHASE 14 WORD COUNT J0108280 829 | * * J0108290 7D1B 6780 7F6D 830 | LDX I3 PHS14+1 J0108300 7D1D C242 831 | LD 2 PHS14+2-S SET-UP WORD COUNT TO J0108310 7D1E D300 832 | STO 3 0 *WRITE PHASE 14. J0108320 7D1F 4C00 7C9B 833 | BSC L CC020 GO WRITE PHASE 14 J0108330 DUPCO--CCAT,PHASE IOAR HDRS TO CATCO 7D21 630C 835 | CC050 LDX 3 +12 J0108350 7D22 6600 7F2C 836 | LDX L2 PINPT J0108360 7D24 C21D 837 | LD 2 PHS2+1-S SAVE ADDR OF DCTL IOAR HDR J0108370 7D25 D400 7CA6 838 | STO L CC904+1 *IN ADDR TABLE. J0108380 7D27 C241 839 | LD 2 PHS14+1-S SAVE ADDR OF PRINC. INPUT J0108390 7D28 D400 7CA8 840 | STO L CC904+3 *PHASE IN ADDR TABLE J0108400 841 | * * J0108410 7D2A CA1E 842 | CC090 LDD 2 PHS2+2-S MOVE IOAR HDR'S FOR DUP J0108420 7D2B D9F0 843 | STD 1 DCHDR *PHASES 2-9,13,14,15, AND J0108430 7D2C 7102 844 | MDX 1 +2 *16 TO CATCO J0108440 7D2D 7204 845 | MDX 2 +4 J0108450 7D2E 73FF 846 | MDX 3 -1 J0108460 7D2F 70FA 847 | MDX CC090 CONT UNTIL ALL HDR'S MOVED J0108470 7D30 CA1E 848 | LDD 2 PHS2+2-S MOVE PHASE 205 2-8 J0108480 7D31 D9F4 849 | STD 1 DCHDR+4 *HEADER TO CATCO 2-8 J0108490 7D32 CA22 850 | LDD 2 PHS2+6-S MOVE PHASE 206 IOAR 2-8 J0108500 7D33 D9F2 851 | STD 1 DCHDR+2 *HEADER TO CATCO 2-8 J0108510 DUPCO--CCAT,INITLZ CATCO I/O ADDR'S 7D34 6600 7CA5 853 | LDX L2 CC904 J0108530 7D36 63F7 854 | LDX 3 CC906 J0108540 855 | * * J0108550 7D37 C200 856 | CC080 LD 2 0 MOVE TABLE OF ADDRESSES J0108560 7D38 D700 8000 857 | STO L3 C+/60 *FROM CCAT CONSTANTS TO J0108570 7D3A 7201 858 | MDX 2 +1 *CATCO AREA RESERVED FOR J0108580 7D3B 7301 859 | MDX 3 +1 *DUP I/O ADDRESSES J0108590 7D3C 70FA 860 | MDX CC080 J0108600 DUPCO--CCAT,FINAL INITIALIZATION 7D3D 6500 7FA0 862 | LDX L1 C XR1 IS CATCO MIDPOINT J0108620 7D3F CC00 7CAE 863 | LDD L CC910 J0108630 7D41 D954 864 | STD 1 PRPAR DEFAULT LIMITS FOR MDUMP J0108640 865 | * * J0108650 7D42 7406 7CB0 866 | MDX L CC912,6 J0108660 7D44 C400 7CB0 867 | LD L CC912 INITLZ CORE WORD 9 AND J0108670 7D46 D14D 868 | STO 1 IBT+4 *1403 ENTRY IN BRANCH TBL J0108680 7D47 D400 0009 869 | STO L 9 *FOR PRINT IOAR + 6. J0108690 870 | * * J0108700 7D49 C400 7CB1 871 | LD L CC913 INITLZ ILS04 BR ADDR TO J0108710 7D4B D400 00D4 872 | STO L $IBT4 *POINT TO DUP I/O BR TABLE J0108720 873 | * * J0108730 7D4D C400 7CA4 874 | LD L CC903 J0108740 7D4F D148 875 | STO 1 IBT-1 INITIALIZE ALL UNASSIGNED J0108750 7D50 D149 876 | STO 1 IBT *ENTRIES IN DUP'S IBT FOR J0108760 7D51 D14A 877 | STO 1 IBT+1 *LEVEL 4 TO TRAP ALL J0108770 7D52 D14B 878 | STO 1 IBT+2 *SPURIOUS LEVEL 4 INTRPTS J0108780 7D53 D14C 879 | STO 1 IBT+3 *TO $PST4. J0108790 880 | * * J0108800 7D54 6600 7DFD 881 | LDX L2 KBSUS J0108810 7D56 6E00 7FDD 882 | STX L2 ADDR2+C RECORD KB INTERRUPT ADDR J0108820 883 | * * J0108830 7D58 C400 002C 884 | LD L $IREQ J0108840 7D5A D13E 885 | STO 1 KBREQ SYSTEM KB INTERRUPT ADDR J0108850 886 | * * J0108860 7D5B C902 887 | LDD 1 PIHDR SET-UP IOAR HDR TO READ IN J0108870 7D5C DC80 7FFA 888 | STD I IOBLK+C *PRINC. I/O (PHASE 14). J0108880 7D5E 1010 889 | SLA 16 INITIALIZE DUP CONTROL 2-8 J0108890 7D5F D13C 890 | STO 1 DUPCR *RECORD SWITCH TO ZERO 2-8 J0108900 DUPCO--CCAT,FINAL FETCHES TO INIT DUP 892 | *************************************************** J0108920 893 | * * J0108930 894 | * FETCH DCOM, THEN USE HDNG AREA TO FETCH * J0108940 895 | * FETCH PRINC PRINT SUBROUTINE AND TO * J0108950 896 | * FETCH THE HEADING LINE * J0108960 897 | * * J0108970 898 | *************************************************** J0108980 7D60 CC00 7F3E 899 | LDD L PRDVC+2 SET-UP IOAR HDR TO J0108990 7D62 DC00 7C50 900 | STD L PRPNT *READ PRINC. PRINT ROUTINE J0109000 901 | * * J0109010 7D64 6700 7F1E 902 | LDX L3 C-/82 READ DCOM WORDS 1-/70 INTO J0109020 7D66 4480 7DB3 903 | BSI I GET *CATCO WORDS -/80 THRU -/11 J0109030 904 | * * J0109040 7D68 6700 7C50 905 | LDX L3 PRPNT POINT TO PRINT SUBR BUFFER J0109050 7D6A 7027 906 | MDX CC200 SKIP PATCH AREA J0109060 907 | * * J0109070 7D6B 908 | CC150 BSS BUF6-*-1 BASIC PATCH ROOM FOR CCAT J0109080 909 | * * J0109090 7D90 910 | BSS E 0 ADJUST TO EVEN BOUNDARY J0109100 7D90 0010 911 | DC CC300-*+1 LENGTH OF HEADING TO READ J0109110 7D91 0007 912 | DC #HDNG SAD OF HEADING BUFFER J0109120 913 | * * J0109130 914 | *************************************************** J0109140 915 | * * J0109150 916 | * THE FOLLOWING CODE IS OVERLAYED BY THE * J0109160 917 | * CONTENTS OF THE HEADING SECTOR. * J0109170 918 | * * J0109180 919 | *************************************************** J0109190 7D92 4480 7DB3 920 | CC200 BSI I GET FETCH SYS PRINT SUBR J0109200 921 | * * J0109210 7D94 6700 7D90 922 | LDX L3 BUF6-1 POINT TO HEADER BUFFER J0109220 7D96 7009 923 | MDX CC300 SKIP J0109230 924 | * * J0109240 925 | * NOTE.. ADDITIONAL PATCH ROOM AT CC150 * J0109250 926 | * * J0109260 7D97 927 | BSS DUPCO-*-/10 AUXILIARY PATCH ROOM J0109270 928 | * * J0109280 7DA0 929 | BSS E 0 J0109290 7DA0 4480 7DB3 930 | CC300 BSI I GET FETCH HEADING RECORD J0109300 931 | * * J0109310 7DA2 631C 932 | LDX 3 CC400-BUF6 J0109320 7DA3 6F00 7D91 933 | STX L3 BUF6 HEADER LENGTH FOR DUP J0109330 934 | * * J0109340 935 | *************************************************** J0109350 936 | * * J0109360 937 | * CLEAR CC300 THRU CC400 FOR HEADING BUFFER * J0109370 938 | * * J0109380 939 | *************************************************** J0109390 7DA5 10A0 940 | SLT 32 ACC AND EXTENSION TO ZERO J0109400 7DA6 63F8 941 | LDX 3 -8 NO OF WORDS TO ZERO J0109410 7DA7 DF00 7DA8 942 | CC350 STD L3 CC350+1 CLEAR THIS PART OF HDBUF J0109420 7DA9 7302 943 | MDX 3 +2 STEP COUNT BY 2 WORDS J0109430 7DAA 70FC 944 | MDX CC350 LOOP UNTIL 8 WORDS ARE CLRD J0109440 7DAB D8FC 945 | STD CC350+1 J0109450 7DAC D8FD 946 | STD CC350+3 J0109460 7DAD D8FE 947 | CC400 STD CC350+5 CLEAR THRU THIS WORD J0109470 948 | * * J0109480 7DAE 4480 7DBD 949 | BSI I REST CCAT EXIT--TO DUPCO ---- J0109490 950 | *************************************************** J0109500 DUPCO- CCAT WORK AREA 952 | *************************************************** J0109520 953 | * J0109530 954 | * THE FOLLOWING TABLE IS FILLED IN J0109540 955 | * BY THE SYSTEM LOADER AT SYSTEM J0109550 956 | * LOAD TIME. J0109560 957 | * J0109570 958 | *************************************************** J0109580 7F20 959 | ORG #NAME-4+C J0109590 7F20 000A 960 | INTFC DC 10 DUP CARD INTERFACE J0109600 7F21 0000 961 | DC *-* FILLED BY THE SYSTEM LOADER J0109610 7F22 0000 962 | DC *-* FILLED BY THE SYSTEM LOADER J0109620 7F23 0000 963 | DC *-* FILLED BY THE SYSTEM LOADER J0109630 7F24 000B 964 | KINTF DC 11 DUP KEYBOARD INTERFACE J0109640 7F25 0000 965 | DC *-* FILLED BY THE SYSTEM LOADER J0109650 7F26 0000 966 | DC *-* FILLED BY THE SYSTEM LOADER J0109660 7F27 0000 967 | DC *-* FILLED BY THE SYSTEM LOADER J0109670 7F28 000C 968 | PINTF DC 12 DUP PAPER TAPE INTERFACE J0109680 7F29 0000 969 | DC *-* FILLED BY THE SYSTEM LOADER J0109690 7F2A 0000 970 | DC *-* FILLED BY THE SYSTEM LOADER J0109700 7F2B 0000 971 | DC *-* FILLED BY THE SYSTEM LOADER J0109710 972 | * J0109720 7F2C 009A 973 | PINPT DC 154 PRINCIPAL INPUT DEVC RTN J0109730 7F2D 0000 974 | DC *-* FILLED BY THE SYSTEM LOADER J0109740 7F2E 0000 975 | DC *-* FILLED BY THE SYSTEM LOADER J0109750 7F2F 0000 976 | DC *-* FILLED BY THE SYSTEM LOADER J0109760 977 | * J0109770 7F2C 978 | S EQU PINPT SLET ENTRY POINTER J0109780 979 | * J0109790 7F30 0090 980 | I1442 DC 144 1442 DEVICE RTN J0109800 7F31 0000 981 | DC *-* FILLED BY THE SYSTEM LOADER J0109810 7F32 0000 982 | DC *-* FILLED BY THE SYSTEM LOADER J0109820 7F33 0000 983 | DC *-* FILLED BY THE SYSTEM LOADER J0109830 7F34 0091 984 | I1134 DC 145 PAPER TAPE DEVICE RTN J0109840 7F35 0000 985 | DC *-* FILLED BY THE SYSTEM LOADER J0109850 7F36 0000 986 | DC *-* FILLED BY THE SYSTEM LOADER J0109860 7F37 0000 987 | DC *-* FILLED BY THE SYSTEM LOADER J0109870 7F38 0092 988 | IKBRD DC 146 KEYBOARD DEVICE RTN J0109880 7F39 0000 989 | DC *-* FILLED BY THE SYSTEM LOADER J0109890 7F3A 0000 990 | DC *-* FILLED BY THE SYSTEM LOADER J0109900 7F3B 0000 991 | DC *-* FILLED BY THE SYSTEM LOADER J0109910 7F3C 0099 992 | PRDVC DC 153 PRINCIPAL PRINTER DEVC RTN J0109920 7F3D 0000 993 | DC *-* FILLED BY THE SYSTEM LOADER J0109930 7F3E 0000 994 | DC *-* FILLED BY THE SYSTEM LOADER J0109940 7F3F 0000 995 | DC *-* FILLED BY THE SYSTEM LOADER J0109950 996 | * J0109960 7F40 009C 997 | PCVRT DC 156 PRINCIPAL INPUT CNVRT RTN J0109970 7F41 0000 998 | DC *-* FILLED BY THE SYSTEM LOADER J0109980 7F42 0000 999 | DC *-* FILLED BY THE SYSTEM LOADER J0109990 7F43 0000 1000 | DC *-* FILLED BY THE SYSTEM LOADER J0110000 7F44 0095 1001 | CKBRD DC 149 KEYBOARD CONVERT ROUTINE J0110010 7F45 0000 1002 | DC *-* FILLED BY THE SYSTEM LOADER J0110020 7F46 0000 1003 | DC *-* FILLED BY THE SYSTEM LOADER J0110030 7F47 0000 1004 | DC *-* FILLED BY THE SYSTEM LOADER J0110040 1005 | * J0110050 7F48 0002 1006 | PHS2 DC 2 DUP CONTROL J0110060 7F49 0000 1007 | DC *-* FILLED BY THE SYSTEM LOADER J0110070 7F4A 0000 1008 | DC *-* FILLED BY THE SYSTEM LOADER J0110080 7F4B 0000 1009 | DC *-* FILLED BY THE SYSTEM LOADER J0110090 7F4C 0003 1010 | PHS3 DC 3 STORE J0110100 7F4D 0000 1011 | DC *-* FILLED BY THE SYSTEM LOADER J0110110 7F4E 0000 1012 | DC *-* FILLED BY THE SYSTEM LOADER J0110120 7F4F 0000 1013 | DC *-* FILLED BY THE SYSTEM LOADER J0110130 7F50 0004 1014 | PHS4 DC 4 FILEQ J0110140 7F51 0000 1015 | DC *-* FILLED BY THE SYSTEM LOADER J0110150 7F52 0000 1016 | DC *-* FILLED BY THE SYSTEM LOADER J0110160 7F53 0000 1017 | DC *-* FILLED BY THE SYSTEM LOADER J0110170 7F54 0005 1018 | PHS5 DC 5 DUMP J0110180 7F55 0000 1019 | DC *-* FILLED BY THE SYSTEM LOADER J0110190 7F56 0000 1020 | DC *-* FILLED BY THE SYSTEM LOADER J0110200 7F57 0000 1021 | DC *-* FILLED BY THE SYSTEM LOADER J0110210 7F58 0006 1022 | PHS6 DC 6 DUMPLET J0110220 7F59 0000 1023 | DC *-* FILLED BY THE SYSTEM LOADER J0110230 7F5A 0000 1024 | DC *-* FILLED BY THE SYSTEM LOADER J0110240 7F5B 0000 1025 | DC *-* FILLED BY THE SYSTEM LOADER J0110250 7F5C 0007 1026 | PHS7 DC 7 DELETE J0110260 7F5D 0000 1027 | DC *-* FILLED BY THE SYSTEM LOADER J0110270 7F5E 0000 1028 | DC *-* FILLED BY THE SYSTEM LOADER J0110280 7F5F 0000 1029 | DC *-* FILLED BY THE SYSTEM LOADER J0110290 7F60 0008 1030 | PHS8 DC 8 DEFINE J0110300 7F61 0000 1031 | DC *-* FILLED BY THE SYSTEM LOADER J0110310 7F62 0000 1032 | DC *-* FILLED BY THE SYSTEM LOADER J0110320 7F63 0000 1033 | DC *-* FILLED BY THE SYSTEM LOADER J0110330 7F64 0009 1034 | PHS9 DC 9 DUP EXIT J0110340 7F65 0000 1035 | DC *-* FILLED BY THE SYSTEM LOADER J0110350 7F66 0000 1036 | DC *-* FILLED BY THE SYSTEM LOADER J0110360 7F67 0000 1037 | DC *-* FILLED BY THE SYSTEM LOADER J0110370 1038 | * J0110380 7F68 000D 1039 | PHS13 DC 13 DUP UPCOR AREA FOR CLB J0110390 7F69 0000 1040 | DC *-* FILLED BY THE SYSTEM LOADER J0110400 7F6A 0000 1041 | DC *-* FILLED BY THE SYSTEM LOADER J0110410 7F6B 0000 1042 | DC *-* FILLED BY THE SYSTEM LOADER J0110420 1043 | * J0110430 7F6C 000E 1044 | PHS14 DC 14 PRINCIPAL I/O BLOCK J0110440 7F6D 0000 1045 | DC *-* FILLED BY THE SYSTEM LOADER J0110450 7F6E 0000 1046 | DC *-* FILLED BY THE SYSTEM LOADER J0110460 7F6F 0000 1047 | DC *-* FILLED BY THE SYSTEM LOADER J0110470 7F70 000F 1048 | PHS15 DC 15 PRINCIPAL I/O (W/O KB) BLOCK J0110480 7F71 0000 1049 | DC *-* FILLED BY THE SYSTEM LOADER J0110490 7F72 0000 1050 | DC *-* FILLED BY THE SYSTEM LOADER J0110500 7F73 0000 1051 | DC *-* FILLED BY THE SYSTEM LOADER J0110510 7F74 0010 1052 | PHS16 DC 16 PAPER TAPE I/O BLOCK J0110520 7F75 0000 1053 | DC *-* FILLED BY THE SYSTEM LOADER J0110530 7F76 0000 1054 | DC *-* FILLED BY THE SYSTEM LOADER J0110540 7F77 0000 1055 | DC *-* FILLED BY THE SYSTEM LOADER J0110550 7F78 00CD 1056 | PH205 DC /00CD DUP CONTROL 2 2-8 J0110560 7F79 0000 1057 | DC *-* FILLED IN BY SYSTEM LDR 2-8 J0110570 7F7A 0000 1058 | DC *-* FILLED BY THE SYSTEM LDR2-8 J0110580 7F7B 0000 1059 | DC *-* FILLED IN BY SYSTEM LDR 2-8 J0110590 7F7C 00CE 1060 | PH206 DC /00CE MACRO UPDATE PROGRAM 2-8 J0110600 7F7D 0000 1061 | DC *-* FILLED IN BY SYSTEM LDR 2-8 J0110610 7F7E 0000 1062 | DC *-* FILLED BY THE SYSTEM LDR2-8 J0110620 7F7F 0000 1063 | DC *-* FILLED IN BY SYSTEM LDR 2-8 J0110630 1064 | *************************************************** J0110640 1065 | * J0110650 1066 | * THE NEXT CONSTANT WILL J0110660 1067 | * FORCE SYSTEM LDR TO LOAD ALL OF TABLE J0110670 1068 | * J0110680 1069 | *************************************************** J0110690 7F80 FFFF 1070 | DC /FFFF J0110700 1071 | *************************************************** J0110710 1072 | * J0110720 1073 | * END CCAT SUBR J0110730 1074 | * J0110740 1075 | *************************************************** J0110750 DUPCO- WRTDC (UPDATE DCOM) 7DBF 1077 | ORG START J0110770 1078 | *************************************************** J0110780 1079 | * * J0110790 1080 | * WRITE DCOM TO LOGICAL DRIVE ZERO, AND TO * J0110800 1081 | * DESTINATION DRIVE USED BY CALLING DUP FUNCTION* J0110810 1082 | * IF OTHER THAN ZERO. * J0110820 1083 | * * J0110830 1084 | *************************************************** J0110840 7DBF 0000 1085 | DUP02 DC *-* ENTRY POINT J0110850 7DC0 4480 7DBC 1086 | BSI I PUT WRITE DCOM ON LOGICAL ZERO J0110860 1087 | *************************************************** J0110870 1088 | * * J0110880 1089 | * WRITE DCOM TO DRIVE SPECIFIED IN CALLING * J0110890 1090 | * SEQUENCE, IF NOT ZERO. * J0110900 1091 | * * J0110910 1092 | *************************************************** J0110920 7DC2 C480 7DBF 1093 | LD I DUP02 DR CODE FROM CALL J0110930 7DC4 4C18 7DD8 1094 | BSC L DU022,+- BR IF DRIVE CODE IS ZERO J0110940 1095 | * * J0110950 7DC6 EB01 1096 | OR 3 +1 J0110960 7DC7 D301 1097 | STO 3 +1 DCOM SECTOR ADDRESS J0110970 1098 | * * J0110980 7DC8 C400 7E80 1099 | LD L DRNCT READ DR INDEPENT WORDS FROM J0110990 7DCA D300 1100 | STO 3 0 *SATELLITE CART AND MERGE J0111000 7DCB 4480 7DB3 1101 | BSI I GET *WITH DR DEPENDENT TABLES. J0111010 1102 | * * J0111020 7DCD C400 7E90 1103 | LD L DR0CT USE FULL DCOM WD CNT TO J0111030 7DCF D300 1104 | STO 3 0 *OUTPUT MERGED QUANTITIES. J0111040 1105 | * * J0111050 7DD0 4480 7DBC 1106 | BSI I PUT WRITE DCOM TO SATELLITE DR J0111060 1107 | * * J0111070 7DD2 C301 1108 | LD 3 +1 J0111080 7DD3 1004 1109 | SLA 4 J0111090 7DD4 1804 1110 | SRA 4 RE-ESTABLISH SECTOR ADDRESS J0111100 7DD5 D301 1111 | STO 3 +1 *OF LOGICAL ZERO DCOM. J0111110 1112 | * * J0111120 7DD6 4480 7DB3 1113 | BSI I GET READ DCOM FROM LOGICAL ZERO J0111130 1114 | * * J0111140 7DD8 7401 7DBF 1115 | DU022 MDX L DUP02,1 INCR RETURN ADDRESS J0111150 7DDA 4C80 7DBF 1116 | BSC I DUP02 RETURN TO DUP FUNCTION J0111160 DUPCO- PHASE IDENTIFICATION 1118 | *************************************************** J0111180 1119 | * * J0111190 1120 | * MODIFY PHASE ID FOR MOST RECENT SUB MODULE * J0111200 1121 | * * J0111210 1122 | *************************************************** J0111220 7DDC 0000 1123 | DUP04 DC *-* RECORD SOURCE OF ENTRY J0111230 1124 | * J0111240 7DDD C400 0078 1125 | LD L $PHSE J0111250 7DDF E400 7E8C 1126 | AND L HF0FF EXTRACT LAST MODULE IND J0111260 7DE1 EC80 7DDC 1127 | OR I DUP04 INSERT NEW SUB MODULE IND J0111270 7DE3 D001 1128 | STO *+1 RECORD REQUIRED CONSTANT J0111280 1129 | * J0111290 7DE4 4005 1130 | BSI DUP05 GO TO RECORD REQ ID J0111300 7DE5 0000 1131 | DC *-* PHASE ID PUT HERE J0111310 1132 | * J0111320 7DE6 7401 7DDC 1133 | MDX L DUP04,+1 STEP RETURN ADDRESS J0111330 7DE8 4C80 7DDC 1134 | BSC I DUP04 RETURN TO SUB MODULE J0111340 1135 | * J0111350 1136 | *************************************************** J0111360 1137 | * J0111370 1138 | * RECORD PHASE ID FOR THE OVERLAY JUST READ IN CORE J0111380 1139 | * * J0111390 1140 | *************************************************** J0111400 7DEA 0000 1141 | DUP05 DC *-* RECORD SOURCE OF ENTRY J0111410 7DEB C480 7DEA 1142 | LD I DUP05 J0111420 7DED D400 0078 1143 | STO L $PHSE RECORD PHASE IDENTIFICATION J0111430 7DEF D400 7FF6 1144 | STO L PHDUP+C SAVE PHASE IN CATCO J0111440 1145 | * J0111450 7DF1 7401 7DEA 1146 | MDX L DUP05,+1 INCRE RET ADDR J0111460 1147 | * J0111470 7DF3 4C80 7DEA 1148 | BSC I DUP05 RETURN TO DUP OVERLAY J0111480 1149 | *************************************************** J0111490 DUPCO- KB REQUEST MASK 1151 | *************************************************** J0111510 1152 | * * J0111520 1153 | * USE TO ALTER KEYBOARD REQUEST INTERRUPT ADDRESS * J0111530 1154 | * * J0111540 1155 | *************************************************** J0111550 7DF5 0000 1156 | DUP06 DC *-* RECORD SOURCE OF ENTRY J0111560 1157 | * J0111570 7DF6 C13D 1158 | LD 1 ADDR2 J0111580 7DF7 D400 002C 1159 | STO L $IREQ INSERT KB INT SUSPENSE ADDR J0111590 1160 | * J0111600 7DF9 1010 1161 | SLA 16 J0111610 7DFA D002 1162 | STO KBSUS ZERO ENTRY POINT AND SWITCH J0111620 1163 | * J0111630 7DFB 4C80 7DF5 1164 | BSC I DUP06 RETURN TO CALLER J0111640 1165 | * J0111650 7DFD 0000 1166 | KBSUS DC *-* ENTRY POINT FOR KB INT J0111660 7DFE 0C00 7E80 1167 | XIO L RSTKB RESET KEYBOARD/CP DSW J0111670 7E00 4C00 00D5 1168 | BSC L $I410 RETURN TO ILS04 J0111680 1169 | * * J0111690 1170 | * J0111700 1171 | *************************************************** J0111710 DUPCO- COMMON EXIT FROM DUP 1173 | *************************************************** J0111730 1174 | * J0111740 1175 | * SERVICE THE EXIT FROM DUP. THE PARAMETER * J0111750 1176 | * CODES, DESCRIBED BELOW, INDICATE EXIT PROCED * J0111760 1177 | * PLUS WRITE DCOM, ERROR MESSAGE AND GOTO REST* J0111770 1178 | * ZERO WILL CAUSE DECONCATENATION & GO TO EXIT* J0111780 1179 | * MINUS 1 WILL CAUSE DECONCATENATION & GO TO KTRAP J0111790 1180 | * MINUS 2 WILL CAUSE DECONCATENATION & RETURN * J0111800 1181 | * * J0111810 1182 | *************************************************** J0111820 7E02 0000 1183 | DUP08 DC *-* RECORD SOURCE OF ENTRY J0111830 7E03 6700 01DE 1184 | LDX L3 EXITC ADDR OF EXIT ROUT TO XR3 J0111840 7E05 6500 7FA0 1185 | LDX L1 C POINT TO MIDDLE OF CATCO J0111850 7E07 C9FE 1186 | LDD 1 DXHDR SET-UP IOAR HDR TO J0111860 7E08 DB00 1187 | STD 3 0 READ IN DUP EXIT MODULE J0111870 1188 | * J0111880 7E09 10A0 1189 | SLT 32 J0111890 7E0A D91A 1190 | STD 1 DUMPP ZEROS FOR TOTAL CORE DUMP J0111900 1191 | * * J0111910 7E0B 4009 1192 | BSI DUP09 PRINT BETWEEN SPEC LIMITS J0111920 1193 | * * J0111930 7E0C C480 7E02 1194 | LD I DUP08 J0111940 7E0E D001 1195 | STO DU081+1 EXIT CODE J0111950 1196 | * * J0111960 7E0F 6600 0000 1197 | DU081 LDX L2 *-* XR2 CONTAINS EXIT CODE J0111970 7E11 C0FF 1198 | LD *-1 SET TO NON-ZERO J0111980 7E12 D132 1199 | STO 1 XEQSW SET TO XEQ EXIT SUBR J0111990 1200 | * J0112000 7E13 4480 7DB3 1201 | BSI I GET GO TO GET EXIT SUBR J0112010 1202 | *************************************************** J0112020 DUPCO- MONITORING PRINTER DUMPS 1204 | *************************************************** J0112040 1205 | * * J0112050 1206 | * CONTROL MONITORING PRINTING OF SELECTED KEY * J0112060 1207 | * PORTIONS OF CORE AND RETURN * J0112070 1208 | * XR1 IS POINTING AT C OF CATCO * J0112080 1209 | * * J0112090 1210 | *************************************************** J0112100 7E15 0000 1211 | DUP09 DC *-* RECORD RETURN ADDRESS J0112110 7E16 D867 1212 | STD DU096 SAVE THE A AND Q REGS J0112120 7E17 CC00 7FBA 1213 | LDD L DUMPP+C J0112130 7E19 D011 1214 | STO DU092 INSERT PARAMETERS J0112140 7E1A 18D0 1215 | RTE 16 J0112150 7E1B D010 1216 | STO DU092+1 J0112160 1217 | * J0112170 7E1C C954 1218 | LDD 1 PRPAR J0112180 7E1D D91A 1219 | STD 1 DUMPP RESTORE STND PHASE LIMITS J0112190 1220 | * * J0112200 7E1E C10F 1221 | LD 1 BITSW BIT SWITCH SIMULATION.COL 3 J0112210 1222 | * * J0112220 1223 | * FOLLOWING INST IS OVERLAID BY INST AT END OF * J0112230 1224 | * DUPCO DECK TO PREVENT DUMPS DURING DUPCO * J0112240 1225 | * * J0112250 7E1F 4C00 7E28 1226 | DU090 BSC L DU091 FORCE DUMP IF NOT OVERLAID J0112260 1227 | * * J0112270 7E21 4C18 7E32 1228 | BSC L DU093,-+ ALL SW-S OFF -DO NOT DUMP-- J0112280 1229 | * J0112290 7E23 C156 1230 | LD 1 PHDUP PHASE ID J0112300 7E24 E065 1231 | AND H001F MASK WITH /001F J0112310 7E25 F10F 1232 | EOR 1 BITSW BIT SWITCH SIMULATION.COL 3 J0112320 7E26 4C20 7E32 1233 | BSC L DU093,Z NOT EXACT MATCH-DO NOT DUMP J0112330 1234 | * J0112340 7E28 4400 003F 1235 | DU091 BSI L $DUMP PRINT BETWEEN SPEC LIMITS J0112350 7E2A 0000 1236 | DC 0 J0112360 7E2B 0000 1237 | DU092 DC *-* STARTING CORE ADDR J0112370 7E2C 0000 1238 | DC *-* ENDING CORE ADDR J0112380 1239 | * J0112390 7E2D 4400 003F 1240 | BSI L $DUMP PRINT CATCO J0112400 7E2F 0000 1241 | DC 0 HEXIDECIMAL DUMP REQUIRED J0112410 7E30 7F20 1242 | DC CATCO+2 LOWER LIMIT J0112420 7E31 7FFF 1243 | DC NEXT+C UPPER LIMIT J0112430 1244 | *************************************************** J0112440 7E32 C84B 1245 | DU093 LDD DU096 J0112450 7E33 4C80 7E15 1246 | BSC I DUP09 RETURN, PRINTING COMPLETED J0112460 1247 | *************************************************** J0112470 DUPCO- PRINTER INTERFACE SUBRS 1249 | *************************************************** J0112490 1250 | * * J0112500 1251 | * CONVERT BINARY TO PACKED EBC. BIN DATA * J0112510 1252 | * IS ENTERED VIA THE A REG, AND TWO PACKED * J0112520 1253 | * EBC WORDS ARE RETURNED TO TEMP IN CATCO. * J0112530 1254 | * * J0112540 1255 | *************************************************** J0112550 7E35 0000 1256 | DUP10 DC *-* RECORD SOURCE OF ENTRY J0112560 7E36 4400 7EB2 1257 | BSI L DUP15 SAVE CONDITIONS J0112570 7E38 40A3 1258 | BSI DUP04 IDENTIFY PH MOD & SAVE COND J0112580 7E39 0500 1259 | DC /0500 BINEB IS MOD 5 J0112590 1260 | * J0112600 7E3A 6302 1261 | LDX 3 +2 INIT XR3 TO 2 J0112610 7E3B C040 1262 | LD AQ RESTORE A AND Q REGS J0112620 7E3C 1890 1263 | SRT 16 MOVE RT 4 WDS TO Q J0112630 7E3D 6202 1264 | LDX 2 +2 INIT XR2 TO 2 J0112640 7E3E 1010 1265 | DU101 SLA 16 J0112650 7E3F 1084 1266 | SLT 4 MOVE NEXT WD TO ACC J0112660 7E40 9045 1267 | S TEN THIS LOOP DECODES AND J0112670 7E41 4810 1268 | BSC - *CONVERTS BIN WD TO ECB J0112680 7E42 8041 1269 | A CODE1 J0112690 7E43 8041 1270 | A CODE2 J0112700 7E44 72FF 1271 | MDX 2 -1 DECR XR2 J0112710 7E45 7001 1272 | MDX *+1 SKIP J0112720 7E46 7003 1273 | MDX DU102 GO TO PACK 2 WDS J0112730 1274 | * J0112740 7E47 1008 1275 | SLA 8 LEFT JUSTIFY AND J0112750 7E48 D036 1276 | STO TOBOR *STORE TEMP J0112760 1277 | * J0112770 7E49 70F4 1278 | MDX DU101 GO TO DECODE IT J0112780 1279 | * J0112790 1280 | * J0112800 7E4A E834 1281 | DU102 OR TOBOR OR WITH LEFT HALF EBC WD J0112810 7E4B D12C 1282 | STO 1 TEMP1 *AND STO RESULT IN CATCO J0112820 1283 | * J0112830 7E4C 73FF 1284 | MDX 3 -1 DECR XR3 J0112840 7E4D 7003 1285 | MDX DU103 GO TO HANDLE MORE WORDS J0112850 1286 | * J0112860 7E4E 406D 1287 | BSI DUP16 RESTORE A,Q,XRS,AND STATUS J0112870 1288 | * J0112880 7E4F 4C80 7E35 1289 | BSC I DUP10 RETURN TO CALLER J0112890 1290 | * J0112900 7E51 7101 1291 | DU103 MDX 1 1 INCR CATCO POINTER J0112910 7E52 70EA 1292 | MDX DU101-1 GO DECODE LAST 2 WDS J0112920 1293 | *************************************************** J0112930 1294 | * * J0112940 1295 | * INITIALIZE THE PRINC PRINT DEVICE ROUTINE. * J0112950 1296 | * FETCH IOAR ADDR FROM CALLING SEQ. I/O DATA * J0112960 1297 | * TO BE PRINTED MUST BE IN PACKED EBC. * J0112970 1298 | * CHECK BEFORE PRINTING FOR PAGE RESTORE * J0112980 1299 | * * J0112990 1300 | *************************************************** J0113000 7E53 0000 1301 | DUP11 DC *-* RECORD SOURCE OF ENTRY J0113010 1302 | * J0113020 7E54 4480 7DBA 1303 | BSI I PHIDM GO TO IDENTIFY PHASE J0113030 7E56 0400 1304 | DC /0400 *AND MODULE J0113040 1305 | * J0113050 7E57 C480 0006 1306 | LD I $CH12 J0113060 7E59 4420 7E69 1307 | BSI L DUP12,Z NEW PAGE REQUIRED J0113070 1308 | * J0113080 7E5B C480 7E53 1309 | LD I DUP11 J0113090 7E5D 18D0 1310 | RTE 16 IOAR ADDR TO Q-REG J0113100 7E5E C029 1311 | LD FUNC2 PRINT FUNC CODE TO ACC J0113110 1312 | * J0113120 7E5F 4400 7C53 1313 | BSI L PRPNT+3 GO TO PRINT J0113130 1314 | * J0113140 7E61 7401 7E53 1315 | MDX L DUP11,+1 INCR RETURN ADDR J0113150 7E63 C400 0036 1316 | LD L $PBSY J0113160 7E65 4C30 7E63 1317 | BSC L *-4,-Z BR IF PRINTING NOT COMPLETE J0113170 1318 | * J0113180 7E67 4C80 7E53 1319 | BSC I DUP11 RETURN TO CALLER J0113190 1320 | *************************************************** J0113200 1321 | *************************************************** J0113210 1322 | * * J0113220 1323 | * EXECUTE A RESTORE * J0113230 1324 | * J0113240 1325 | *************************************************** J0113250 7E69 0000 1326 | DUP12 DC *-* RECORD SOURCE OF ENTRY J0113260 7E6A C400 7FF9 1327 | LD L HDBUF+C IOAR ADDR OF THE PAGE BFR J0113270 7E6C 18D0 1328 | RTE 16 HEADING BUFFER TO EXTENSION J0113280 7E6D C019 1329 | LD FUNC1 RESTORE CODE (7000) TO ACC J0113290 7E6E 4400 7C53 1330 | BSI L PRPNT+3 GO TO RESTORE A PAGE J0113300 7E70 4400 7C53 1331 | BSI L PRPNT+3 GO TO PRINT HEADING J0113310 7E72 4002 1332 | BSI DUP13 ADDITIONAL LINE AFTER HDG J0113320 1333 | * J0113330 7E73 4C80 7E69 1334 | BSC I DUP12 RETURN J0113340 1335 | *************************************************** J0113350 1336 | *************************************************** J0113360 1337 | * * J0113370 1338 | * EXECUTE A SKIP * J0113380 1339 | * * J0113390 1340 | *************************************************** J0113400 7E75 0000 1341 | DUP13 DC *-* RECORD SOURCE OF ENTRY J0113410 7E76 C012 1342 | LD FUNC3 SPACE FUNC (7002) TO ACC J0113420 7E77 4400 7C53 1343 | BSI L PRPNT+3 GO TO SKIP A LINE J0113430 1344 | * J0113440 7E79 4C80 7E75 1345 | BSC I DUP13 RETURN J0113450 1346 | *************************************************** J0113460 DUPCO- COMMON CONSTANTS+WORK AREAS 7E7C 1348 | AQ BSS E 2 J0113480 7E7E 0000 1349 | DU096 DC *-* WORK AREA FOR A AND Q REGS J0113490 7E7F 0000 1350 | TOBOR DC *-* WORK AREA FOR A AND Q REGS J0113500 7E80 0022 1351 | DRNCT DC 34 WD CNT TO READ DCOM'S 1-4 J0113510 7E81 0F01 1352 | DC /0F01 SENSE KB/CP WITH RESET J0113520 7E80 1353 | RSTKB EQU DRNCT J0113530 7E82 0000 1354 | PARAM DC *-* HOLDS FUNC ID J0113540 7E83 0000 1355 | DC *-* HOLDS IOAR ADDR J0113550 7E84 FFC7 1356 | CODE1 DC .A-.0-10 ALPHA CHAR J0113560 7E85 00FA 1357 | CODE2 DC .0+10 NUMERIC VALUE J0113570 7E86 000A 1358 | TEN DC 10 CONSTANT J0113580 7E87 7000 1359 | FUNC1 DC /7000 RESTORE/READ W/O CONV J0113590 7E88 7001 1360 | FUNC2 DC /7001 PRINT J0113600 7E89 7002 1361 | FUNC3 DC /7002 SKIP(LINE)/READ W/CONV J0113610 7E8A 001F 1362 | H001F DC /001F MASK FOR PHASE PURIFICATION J0113620 7E8B 0FFF 1363 | H0FFF DC /0FFF MASK J0113630 7E8C F0FF 1364 | HF0FF DC /F0FF MASK TO ELIMINATE MODULE J0113640 7E8D 013F 1365 | K319 DC 319 CONSTANT 319 J0113650 7E8E 0140 1366 | K320 DC 320 CONSTANT 320 J0113660 7E8F 0640 1367 | K1600 DC 1600 CONSTANT 1600 J0113670 7E90 0070 1368 | DR0CT DC /70 WD CNT FOR DCOM,LOG DR 0 J0113680 1369 | *************************************************** J0113690 DUPCO- RESTORE DUP AND GO TO DCTL 1371 | *************************************************** J0113710 1372 | * * J0113720 1373 | * CLEAR THE DUP PARAMETER AREA OF CATCO AND J0113730 1374 | * CALL IN DCTL IF CORE SIZE IS 4K. J0113740 1375 | * * J0113750 1376 | *************************************************** J0113760 7E91 0000 1377 | DUP14 DC *-* RECORD SOURCE OF ENTRY J0113770 7E92 4480 7DB9 1378 | BSI I PHID IDENTIFY PHASE J0113780 7E94 0001 1379 | DC /0001 DUPCO IN CHARGE IS PHASE 1 J0113790 1380 | * * J0113800 7E95 6500 7FA0 1381 | LDX L1 C RESTORE XR1 J0113810 7E97 622A 1382 | LDX 2 CL2-CL1+1 NO OF CORE TO CLEAR TO ZERO J0113820 1383 | * * J0113830 7E98 C13E 1384 | LD 1 KBREQ J0113840 7E99 D400 002C 1385 | STO L $IREQ RESTORE SYS INTRPT REQ ADDR J0113850 7E9B C580 003D 1386 | LD I1 ADDR2 J0113860 7E9D 4C18 7EA2 1387 | BSC L DU143,+- BR IF NO INTRPT REQ YET J0113870 1388 | * * J0113880 7E9F 4400 003F 1389 | BSI L $DUMP USE SYS ERROR ANALYSIS PROG J0113890 7EA1 FFFE 1390 | DC -2 *AND TAKE INTRPT REQ ACTION J0113900 1391 | * * J0113910 7EA2 D600 7FAD 1392 | DU143 STO L2 C+CL1-1 START AT THE HIGH END J0113920 7EA4 72FF 1393 | MDX 2 -1 DECREMENT CORE LOC TO CLEAR J0113930 7EA5 70FC 1394 | MDX DU143 NOT ALL CLEARED J0113940 1395 | * J0113950 7EA6 D197 1396 | STO 1 #USZE INITIALIZE TO ZERO J0113960 7EA7 D195 1397 | STO 1 #FSZE INITIALIZE TO ZERO J0113970 1398 | * J0113980 7EA8 C139 1399 | LD 1 PH2 J0113990 7EA9 4C20 11E0 1400 | BSC L DCTL,Z DCTL IN CORE ALREADY J0114000 1401 | * J0114010 7EAB 6700 11DE 1402 | LDX L3 DCTLC ADDR OF DUP CONTROL PHASE 2 J0114020 7EAD C9F0 1403 | LDD 1 DCHDR SET UP IOAR HDR TO READ J0114030 7EAE DB00 1404 | STD 3 0 IN DUP CONTROL J0114040 7EAF D132 1405 | STO 1 XEQSW SET XEQSW TO NON ZERO J0114050 1406 | * J0114060 7EB0 4480 7DB3 1407 | BSI I GET READ IN DCTL AND EXECUTE J0114070 1408 | *************************************************** J0114080 DUPCO- SAVE AND RESTORE XRS, ETC 1410 | *************************************************** J0114100 1411 | * * J0114110 1412 | * SAVE A AND Q REGS, INDEX REGS, AND STATUS * J0114120 1413 | * * J0114130 1414 | *************************************************** J0114140 7EB2 0000 1415 | DUP15 DC *-* RECORD SOURCE OF ENTRY J0114150 7EB3 D8C8 1416 | STD AQ SAVE A AND Q REGISTERS J0114160 1417 | * J0114170 7EB4 280F 1418 | STS DU164 SAVE STATUS J0114180 1419 | * J0114190 7EB5 690C 1420 | STX 1 DU163+1 SAVE INDEX REGISTERS J0114200 7EB6 6A09 1421 | STX 2 DU162+1 J0114210 7EB7 6B06 1422 | STX 3 DU161+1 J0114220 1423 | * J0114230 7EB8 6500 7FA0 1424 | LDX L1 C INITIALIZE XR1 TO CATCO J0114240 7EBA 4C80 7EB2 1425 | BSC I DUP15 RETURN TO CALLING SUBR J0114250 1426 | * * J0114260 1427 | *************************************************** J0114270 1428 | * * J0114280 1429 | * RESTORE A AND Q REGS, INDEX REGS, AND STATUS * J0114290 1430 | * * J0114300 1431 | *************************************************** J0114310 7EBC 0000 1432 | DUP16 DC *-* RECORD SOURCE OF ENTRY J0114320 7EBD 6700 0000 1433 | DU161 LDX L3 *-* RESTORE INDEX REGISTERS J0114330 7EBF 6600 0000 1434 | DU162 LDX L2 *-* J0114340 7EC1 6500 0000 1435 | DU163 LDX L1 *-* J0114350 7EC3 C8B8 1436 | LDD AQ RESTORE A AND Q REGS J0114360 7EC4 2000 1437 | DU164 LDS 0 J0114370 7EC5 4C80 7EBC 1438 | BSC I DUP16 RETURN TO CALLING SUBR J0114380 1439 | *************************************************** J0114390 DUPCO- DISK I/O INTERFACE 1441 | * J0114410 1442 | *************************************************** J0114420 1443 | * * J0114430 1444 | * ENTER HERE TO READ FROM DISK * J0114440 1445 | * * J0114450 1446 | *************************************************** J0114460 7EC7 0000 1447 | DUP30 DC *-* RECORD SOURCE OF ENTRY J0114470 7EC8 4480 7DBA 1448 | BSI I PHIDM IDENTIFY PHASE MODIFICATION J0114480 7ECA 0100 1449 | DC /0100 GET IS MOD 1 J0114490 1450 | * * J0114500 7ECB C0FB 1451 | LD DUP30 J0114510 7ECC D002 1452 | STO DUP34 SET UP EXIT ADDRESS J0114520 1453 | * J0114530 7ECD C0B9 1454 | LD FUNC1 READ FUNC CODE TO ACC J0114540 7ECE 7005 1455 | MDX DU341 GO TO READ FROM DISK J0114550 1456 | * J0114560 1457 | *************************************************** J0114570 1458 | * * J0114580 1459 | * ENTER HERE TO WRITE ON DISK * J0114590 1460 | * * J0114600 1461 | *************************************************** J0114610 7ECF 0000 1462 | DUP34 DC *-* RECORD SOURCE OF ENTRY J0114620 7ED0 4480 7DBA 1463 | BSI I PHIDM IDENTIFY PHASE MODIFICATION J0114630 7ED2 0200 1464 | DC /0200 PUT IS MOD 2 J0114640 1465 | * * J0114650 7ED3 C0B4 1466 | LD FUNC2 SET UP TO WRITE J0114660 1467 | *************************************************** J0114670 1468 | * * J0114680 1469 | * THE BALANCE OF DUP34 IS USED FOR BOTH RD & WRT * J0114690 1470 | * * J0114700 1471 | *************************************************** J0114710 7ED4 D0AD 1472 | DU341 STO PARAM J0114720 1473 | * J0114730 7ED5 6BAD 1474 | STX 3 PARAM+1 SET UP IOAR J0114740 1475 | *************************************************** J0114750 1476 | * * J0114760 1477 | * TEST DISK PARAMS - SCTR 0,NEG WD CNT,CART OVFLO * J0114770 1478 | * * J0114780 1479 | *************************************************** J0114790 7ED6 C301 1480 | LD 3 1 J0114800 7ED7 E0B3 1481 | AND H0FFF /0FFF MASK DRIVE CODE J0114810 7ED8 D119 1482 | STO 1 DKSAD SAVE SAD WITHOUT DRIVE CODE J0114820 1483 | * J0114830 7ED9 4820 1484 | BSC Z SKIP IF SCTR ZERO..ERROR.. J0114840 1485 | * J0114850 7EDA C300 1486 | LD 3 0 J0114860 7EDB 4C30 7EE0 1487 | BSC L DU342,-Z WORD COUNT POSITIVE J0114870 1488 | * J0114880 7EDD 4480 7DB4 1489 | BSI I LEAVE ERROR EXIT J0114890 7EDF 005C 1490 | DC 92 NEGATIVE WORD COUNT J0114900 1491 | * J0114910 1492 | *************************************************** J0114920 1493 | * * J0114930 1494 | * INSURE DISK OPERATION WILL NOT EXCEED CYL 200 * J0114940 1495 | * * J0114950 1496 | *************************************************** J0114960 7EE0 80AC 1497 | DU342 A K319 ADJ WD CNT TO NEXT SCTR J0114970 7EE1 18D0 1498 | RTE 16 J0114980 7EE2 1010 1499 | SLA 16 J0114990 7EE3 A8AA 1500 | D K320 CONVERT TO SECTORS J0115000 7EE4 8119 1501 | A 1 DKSAD SPECIFIED SECTORS J0115010 7EE5 90A9 1502 | S K1600 CYL 200 (SCTRS) J0115020 7EE6 4C08 7EEB 1503 | BSC L DU343,+ WITHIN LIMITS J0115030 1504 | * J0115040 7EE8 4480 7DB4 1505 | BSI I LEAVE PRINT ERROR MESSAGE J0115050 7EEA 005D 1506 | DC 93 CARTRIDGE OVERFLOW J0115060 1507 | * J0115070 1508 | *************************************************** J0115080 1509 | * * J0115090 1510 | * DO REQD DISK FUNCTION AND WAIT UNTIL COMPLETE * J0115100 1511 | * * J0115110 1512 | *************************************************** J0115120 7EEB C896 1513 | DU343 LDD PARAM NO ERROR, SO GO TO DISK J0115130 7EEC 4400 00F2 1514 | BSI L DISKZ *SUBR TO WRITE OUT BUFFER J0115140 1515 | * J0115150 7EEE 7400 00EE 1516 | DU345 MDX L $DBSY,0 TEST DISK BUSY J0115160 7EF0 70FD 1517 | MDX DU345 LOOP ON BUSY J0115170 1518 | * J0115180 1519 | *************************************************** J0115190 1520 | * * J0115200 1521 | * SET UP PARAMETERS REQD FOR MONITORING BY PRINT* J0115210 1522 | * * J0115220 1523 | *************************************************** J0115230 7EF1 C091 1524 | LD PARAM+1 J0115240 7EF2 D11A 1525 | STO 1 DUMPP IOAR ADDR J0115250 1526 | * J0115260 7EF3 8300 1527 | A 3 0 WORD COUNT J0115270 7EF4 D11B 1528 | STO 1 DUMPP+1 TERMINAL ADDR J0115280 1529 | * J0115290 7EF5 4480 7DB7 1530 | BSI I MDUMP PRINT IOAR HEADER & BUFFER J0115300 1531 | * J0115310 1532 | * J0115320 7EF7 C132 1533 | LD 1 XEQSW J0115330 1534 | * J0115340 7EF8 4C98 7ECF 1535 | BSC I DUP34,-+ NORMAL RETURN J0115350 1536 | * J0115360 7EFA 1010 1537 | SLA 16 J0115370 7EFB D132 1538 | STO 1 XEQSW RESET EXEC SW TO ZERO J0115380 1539 | * J0115390 7EFC 4F00 0002 1540 | BSC L3 +2 SET EXIT TO NEW MODULE J0115400 1541 | *************************************************** J0115410 7EFE 1542 | BSS CATCO-* DUPCO PATCH ROOM J0115420 1543 | *************************************************** J0115430 7F1E 1544 | ORG CATCO SET UP DCOM IOAR HDR J0115440 7F1E 0070 1545 | DC /70 WD CNT FOR DCOM READ (CCAT) J0115450 7F1F 0001 1546 | DC #DCOM SCTR ADDR OF 1ST DCOM SCTR J0115460 1547 | *************************************************** J0115470 1548 | * * J0115480 1549 | * THE CARD GENERATED BY THE FOLLOWING * J0115490 1550 | * INSTRUCTION MAY BE REMOVED FROM THE BACK OF * J0115500 1551 | * THE DUPCO (PHASE 01) DECK (JUST PRIOR TO THE * J0115510 1552 | * F TYPE CARD). THIS WILL FORCE DIAGNOSTIC * J0115520 1553 | * DUMPS TO OCCUR DURING ALL REQUIRED DUP PHASES * J0115530 1554 | * INCLUDING DUPCO. * J0115540 1555 | * * J0115550 1556 | *************************************************** J0115560 7E1F 1557 | ORG DU090 J0115570 7E1F 4C28 7E28 1558 | BSC L DU091,+Z SW ZERO ON - FORCE DUMP - J0115580 1559 | * * J0115590 7E21 1560 | END SYSLD J0115600 There were no errors in this assembly Program transfer address = 7C52 === CROSS REFERENCES ========================================================== Name Val Defd Referenced #ACIN FF9C 99 #ANDU FFA3 105 #BNDU FFA8 106 #CBSW FF8A 77 #CIAD FF9B 98 #CIBA FFBC 110 #CIDN FFB7 109 #CSHN FFDA 116 #DBCT FF86 73 #DCOM 0001 117 1546 #DCSW FF98 95 #ECNT FFA1 104 #ENTY FF90 83 #FCNT FF87 74 #FHOL FF94 91 #FLET FFCB 113 #FMAT FFC6 112 #FPAD FFAD 107 #FRDR FF93 89 #FSZE FF95 92 1397 #GCNT FF9E 101 #GRPH FF9D 100 #HDNG 0007 118 912 #JBSW FF89 76 #LCNT FF8B 78 #LOSW FF9F 102 #MDF1 FF8D 80 #MDF2 FF8E 81 #MPSW FF8C 79 #NAME FF84 72 959 #NCNT FF8F 82 #PCID FFB2 108 #PIOD FF99 96 #PPTR FF9A 97 #RP67 FF91 84 #SCRA FFC1 111 #SYSC FF88 75 #TODR FF92 88 #UHOL FF96 93 #ULET FFD0 114 #USZE FF97 94 1396 #WSCT FFD5 115 #X3SW FFA0 103 $1132 007F 33 $1403 0080 34 $ACDE 009F 42 $BYSW 01D1 52 $CH12 0006 4 1306 $CIBA 0005 3 $COMN 0007 5 $CORE 000E 6 $CPTR 007E 32 $CTSW 000F 7 $CYLN 009A 41 $DABL 0011 9 $DADR 0010 8 $DBSY 00EE 51 1516 $DCDE 0077 25 $DCYL 00A4 43 $DREQ 0012 10 $DUMP 003F 24 1235 1240 1389 $EXIT 0038 22 $FPAD 0095 40 $HASH 0014 12 $I200 00B3 44 $I205 00B8 45 46 $I400 00C4 47 $I405 00D3 48 49 $I410 00D5 50 1168 $IBSY 0013 11 $IBT2 00B9 46 $IBT4 00D4 49 872 $IOCT 0032 16 $IREQ 002C 14 884 1159 1385 $KCSW 007C 30 688 $LAST 0033 17 $LINK 0039 23 $NDUP 0034 18 $NXEQ 0035 19 $PBSY 0036 20 1316 $PGCT 0037 21 $PHSE 0078 26 1125 1143 $PRET 0028 13 $PST1 0081 35 $PST2 0085 36 $PST3 0089 37 $PST4 008D 38 699 $STOP 0091 39 $UFDR 007D 31 $UFIO 0079 27 $ULET 002D 15 $WRD1 007B 29 $WSDR 007A 28 $ZEND 01E0 54 268 'SBFR 0FB0 119 ADDR2 003D 230 882 1158 1386 AQ 7E7C 1348 1262 1416 1436 ASMSW 000E 153 B 01DE 268 269 270 271 272 273 274 275 BINEB 7DB0 282 BITSW 000F 154 1221 1232 BLKSW 0010 155 BUF1 79B5 307 308 708 BUF2 7963 308 309 707 BUF3 7925 309 310 706 BUF4 78D3 310 700 712 BUF5 7782 311 312 705 BUF6 7D91 300 301 302 702 908 922 932 933 BUF7 0640 312 704 C 7FA0 56 604 611 621 715 818 857 862 882 888 902 959 1144 1185 1213 1243 1327 1381 1392 1424 CATCO 7F1E 277 1242 1542 1544 CC010 7C97 688 778 CC020 7C9B 691 833 CC030 7CB2 717 619 667 CC040 7CEC 780 689 CC050 7D21 835 694 CC080 7D37 856 860 CC090 7D2A 842 847 CC150 7D6B 908 CC200 7D92 920 906 CC300 7DA0 930 911 923 CC350 7DA7 942 944 945 946 947 CC400 7DAD 947 932 CC900 7CA1 696 632 651 727 740 762 790 802 826 CC901 7CA2 697 634 729 742 792 804 CC902 7CA3 698 637 732 745 795 807 CC903 7CA4 699 874 CC904 7CA5 700 710 838 840 853 CC905 7CAE 709 710 CC906 FFF7 710 854 CC910 7CAE 712 863 CC912 7CB0 714 866 867 CC913 7CB1 715 871 CIERR 0011 156 CIHDR 0008 139 CISW 0012 157 CKBRD 7F44 1001 805 809 810 815 824 825 CL1 000E 152 1382 1392 CL2 0037 206 1382 CLBSW 0013 158 CNTNO 0014 159 CODE1 7E84 1356 1269 CODE2 7E85 1357 1270 CRBUF 0057 257 D2HDR 000C 141 DATSW 0015 167 DBADR 0016 168 DCADR 0058 258 DCHDR FFF0 127 843 849 851 1403 DCTL 11E0 272 1400 DCTLC 11DE 273 1402 DELSW 0017 169 DFHDR FFFC 133 DFLSW 0036 204 DFNSW 0018 170 DISKZ 00F2 267 1514 DKSAD 0019 171 1482 1501 DLHDR FFF8 131 DMHDR FFF6 130 DMPLC 01DE 269 DR0CT 7E90 1368 1103 DRNCT 7E80 1351 1099 1353 DTHDR FFFA 132 DU011 7C57 604 607 DU022 7DD8 1115 1094 DU081 7E0F 1197 1195 DU090 7E1F 1226 1557 DU091 7E28 1235 1226 1558 DU092 7E2B 1237 1214 1216 DU093 7E32 1245 1228 1233 DU096 7E7E 1349 1212 1245 DU101 7E3E 1265 1278 1292 DU102 7E4A 1281 1273 DU103 7E51 1291 1285 DU143 7EA2 1392 1387 1394 DU161 7EBD 1433 1422 DU162 7EBF 1434 1421 DU163 7EC1 1435 1420 DU164 7EC4 1437 1418 DU341 7ED4 1472 1455 DU342 7EE0 1497 1487 DU343 7EEB 1513 1503 DU345 7EEE 1516 1517 DUMPC 41DE 275 DUMPP 001A 172 1190 1213 1219 1525 1528 DUP01 7C52 600 DUP02 7DBF 1085 558 1093 1115 1116 DUP04 7DDC 1123 567 1127 1133 1134 1258 DUP05 7DEA 1141 566 1130 1142 1146 1148 DUP06 7DF5 1156 563 1164 DUP08 7E02 1183 561 1194 DUP09 7E15 1211 564 1192 1246 DUP10 7E35 1256 557 1289 DUP11 7E53 1301 568 1309 1315 1319 DUP12 7E69 1326 565 1307 1334 DUP13 7E75 1341 562 1332 1345 DUP14 7E91 1377 570 DUP15 7EB2 1415 559 1257 1425 DUP16 7EBC 1432 571 1287 1438 DUP30 7EC7 1447 560 1451 DUP34 7ECF 1462 569 1452 1535 DUPCO 7DB0 276 281 300 551 927 DUPCR 003C 224 890 DXHDR FFFE 134 1186 DZ000 00F2 53 267 EBCSW 0033 201 ENTER 7DB2 284 EXITC 01DE 270 1184 FLHDR FFF4 129 FORSW 001C 173 FRWS 001D 174 FUNC1 7E87 1359 1329 1454 FUNC2 7E88 1360 1311 1466 FUNC3 7E89 1361 1342 FXSW 001E 175 GET 7DB3 285 628 643 723 751 754 786 813 816 903 920 930 1101 1113 1201 1407 GETBI 7A0B 304 GETHO 7A0A 303 H001F 7E8A 1362 1231 H0FFF 7E8B 1363 1481 HDBUF 0059 259 1327 HDNSW 0034 202 HF0FF 7E8C 1364 1126 HOLSW 001F 176 I1134 7F34 984 618 635 639 640 642 649 650 666 I1442 7F30 980 737 IBT 0049 248 715 868 875 876 877 878 879 IKBRD 7F38 988 793 797 798 800 801 812 INOUT 003F 237 679 772 818 INTFC 7F20 960 548 717 720 721 722 726 763 IOADR 7A06 302 303 304 305 306 307 311 713 IOBLK 005A 260 888 IOREQ 0038 214 IOSW 0020 177 K1600 7E8F 1367 1502 K319 7E8D 1365 1497 K320 7E8E 1366 1500 KBREQ 003E 231 885 1384 KBSUS 7DFD 1166 881 1162 KINTF 7F24 964 780 783 784 785 789 827 LEAVE 7DB4 286 1489 1505 LETAR 005C 262 LETSW 0021 183 LINE 7DB5 287 LSTLF 0022 184 MASK 7DB6 288 MDUMP 7DB7 289 1530 MODSW 0023 185 MUHDR 000A 140 MUPC 01DE 271 NAMSW 0024 186 NEGSW 0025 187 NEXT 005F 265 1243 P1442 0052 254 738 PACKB 7A0C 305 PAGE 7DB8 290 PARAM 7E82 1354 1472 1474 1513 1524 PCHBI 7A0D 306 PCVRT 7F40 997 743 747 748 753 760 761 PEBUF 005D 263 PGMHL 0026 188 PH2 0039 215 1399 PH205 7F78 1056 PH206 7F7C 1060 PH3 003A 216 PH4 003B 217 PHDUP 0056 256 1144 1230 PHID 7DB9 291 600 1378 PHIDM 7DBA 292 1303 1448 1463 PHS13 7F68 1039 PHS14 7F6C 1044 671 674 691 775 777 781 788 828 830 831 839 PHS15 7F70 1048 670 673 675 718 725 764 766 767 774 776 PHS16 7F74 1052 623 630 653 655 656 669 672 PHS2 7F48 1006 837 842 848 850 PHS3 7F4C 1010 PHS4 7F50 1014 PHS5 7F54 1018 PHS6 7F58 1022 PHS7 7F5C 1026 PHS8 7F60 1030 PHS9 7F64 1034 PIHDR 0002 136 887 PINPT 7F2C 973 617 665 730 734 735 739 750 836 978 PINTF 7F28 968 622 625 626 627 631 652 PRDVC 7F3C 992 899 PRINT 7DBB 293 PRPAR 0054 255 864 1218 PRPNT 7C50 301 545 714 900 905 1313 1330 1331 1343 PRSW 0027 189 PTHDR 0006 138 PTPON 0040 239 621 PTSW 0028 190 PUT 7DBC 294 658 677 693 769 1086 1106 REST 7DBD 295 949 RPGSW 0035 203 RSTKB 7E80 1353 1167 RTURN 7DBE 296 S 7F2C 978 618 622 623 625 630 631 635 639 649 650 652 653 656 665 666 669 670 671 672 673 674 675 691 717 718 720 725 726 730 734 737 739 743 747 760 761 763 764 767 774 775 776 777 780 781 783 788 789 793 797 800 801 805 809 824 825 827 828 831 837 839 842 848 850 SDBUF 005B 261 SIHDR 0004 137 SKWDS 0029 191 START 7DBF 573 1077 STCSW 002A 192 STHDR FFF2 128 STSW 002B 193 SYSLD 7C52 548 573 1560 T3MSW 002F 197 TEMP1 002C 194 1282 TEMP2 002D 195 TEN 7E86 1358 1267 THIS 005E 264 TOBOR 7E7F 1350 1276 1281 TOWS 002E 196 UASW 0030 198 UCHDR 0000 135 WRTDC 7DB1 283 WSDC 21DE 274 WSSW 0031 199 XEQSW 0032 200 1199 1405 1533 1538