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