ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020
Source File: \psadctl2.asm
DCTL2 - DUP CONTROL 2 - 15 JAN 70
2 | ABS PS000020
0005 3 | $CIBA EQU /5 ADDR OF CIB ON MASTER CARTRIDGE PS000030
0006 4 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 PS000040
0007 5 | $COMN EQU /7 WORD COUNT OF COMMON PS000050
000E 6 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC) PS000060
000F 7 | $CTSW EQU /F MCR SW,NON-ZERO=// RECD TRAPPED PS000070
0010 8 | $DADR EQU /10 SCTR ADDR OF PROG TO BE FETCHED PS000080
0011 9 | $DABL EQU /11 IOCC FOR SCA RESET (ODD ADDR) PS000090
0012 10 | $DREQ EQU /12 INDR FOR REQUESTED V. DISK I/O PS000100
0013 11 | $IBSY EQU /13 PRINC I/O BUSY INDR,NON-ZERO=BSY PS000110
0014 12 | $HASH EQU /14 WORK AREA FOR MONITOR PROGRAMS PS000120
0028 13 | $PRET EQU /28 ADDR PREOPERATIVE ERROR TRAP PS000130
002C 14 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE PS000140
002D 15 | $ULET EQU /2D ADDR OF LET, LOGICAL DRIVE 0 PS000150
0032 16 | $IOCT EQU /32 IOCS CTR,0=NO I/O IN PROGRESS PS000160
0033 17 | $LAST EQU /33 LAST CD INDR,NON-ZERO=LAST CARD PS000170
0034 18 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP PS000180
0035 19 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEQ PS000190
0036 20 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY PS000200
0037 21 | $PGCT EQU /37 PAGE NO. FOR PAGE HEADINGS PS000210
0038 22 | $EXIT EQU /38 ADDR CALL EXIT ENTRY POINT PS000220
0039 23 | $LINK EQU /39 ADDR CALL LINK ENTRY POINT PS000230
003F 24 | $DUMP EQU /3F ADDR OF CALL DUMP, ENTRY POINT PS000240
0077 25 | $DCDE EQU /77 DRIVE CODE FOR CORE LOAD BLDR PS000250
0078 26 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE PS000260
0079 27 | $UFIO EQU /79 ARM POSITION IN UNFORMATTED AREA PS000270
007A 28 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE PS000280
007B 29 | $WRD1 EQU /7B LOAD ADDR FOR CURR USER CORE LD PS000290
007C 30 | $KCSW EQU /7C INHIBIT INPUT/PRINT OVERLAP SW PS000300
007D 31 | $UFDR EQU /7D UNFORMATTED I/O DRIVE CODE PS000310
007E 32 | $CPTR EQU /7E CHANNEL 12 INDICATOR FOR CP PS000320
007F 33 | $1132 EQU /7F CHANNEL 12 INDICATOR FOR 1132 PS000330
0080 34 | $1403 EQU /80 CHANNEL 12 INDICATOR FOR 1403 PS000340
0081 35 | $PST1 EQU /81 ADDR POSTOP ERROR TRAP,LEVEL 1 PS000350
0085 36 | $PST2 EQU /85 ADDR POSTOP ERROR TRAP,LEVEL 2 PS000360
0089 37 | $PST3 EQU /89 ADDR POSTOP ERROR TRAP,LEVEL 3 PS000370
008D 38 | $PST4 EQU /8D ADDR POSTOP ERROR TRAP,LEVEL 4 PS000380
0091 39 | $STOP EQU /91 ADDR PROGRAM STOP KEY TRAP PS000390
0095 40 | $FPAD EQU /95 FILE PROTECT ADDR (ADJ),LOG DR 0 PS000400
009A 41 | $CYLN EQU /9A ARM POSITION FOR LOGICAL DRIVE 0 PS000410
009F 42 | $ACDE EQU /9F AREA CODE FOR LOGICAL DRIVE 0 PS000420
00A4 43 | $DCYL EQU /A4 1ST DEF CYL ADDR, LOGICAL DR 0 PS000430
00B3 44 | $I200 EQU /B3 ENTRY POINT TO ILS FOR LEVEL 2 PS000440
00B8 45 | $I205 EQU /B8 PS000450
00B9 46 | $IBT2 EQU $I205+1 ADDR OF IBT FOR LEVEL 2 PS000460
00C4 47 | $I400 EQU /C4 ENTRY POINT TO ILS FOR LEVEL 4 PS000470
00D3 48 | $I405 EQU /D3 PS000480
00D4 49 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 PS000490
00D5 50 | $I410 EQU /D5 PS000500
00EE 51 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY PS000510
01CB 52 | $BYSW EQU /1CB BYPASS SW,NOP IF FETCHING SOCAL PS000520
00F2 53 | DZ000 EQU /0F2 DISKZ ENTRY POINT PS000530
01E0 54 | $ZEND EQU /1E0 ADDR 1+LAST WORD OF DISKZ PS000540
7FA0 56 | C EQU /7FA0 CATCO POINTER SET TO MIDDLE PS000560
57 | *************************************************** PS000570
58 | * * PS000580
59 | * INDEX REG 1 IS SET TO .C. WHEN CATCO IS FORMED * PS000590
60 | * FOR USE BY ALL OF DUP FUNCTIONS. ANY DUP ROUT * PS000600
61 | * USING XR 1 FOR OTHER REASONS MUST RESTORE. * PS000610
62 | * ALL VALUES IN CATCO HAVE LABELS EQUATED TO THE * PS000620
63 | * VALUE THAT INDICATES THEIR RELATIVE LOCATION * PS000630
64 | * FROM .C. * PS000640
65 | * * PS000650
66 | *************************************************** PS000660
67 | * * PS000670
68 | * CATCO DCOM IMAGE * PS000680
69 | * EQUIVALENCES USED TO REFERENCE CATCO WITH XR1 * PS000690
70 | * * PS000700
71 | *************************************************** PS000710
FF84 72 | #NAME EQU 4-/80 NAME OF PROGRAM PS000720
FF86 73 | #DBCT EQU 6-/80 DISK BLOCK COUNT OF PROGRAM PS000730
FF87 74 | #FCNT EQU 7-/80 FILES SW,ZERO = NO FILES PS000740
FF88 75 | #SYSC EQU 8-/80 NON-ZERO,SYSTEM CARTRIDGE PS000750
FF89 76 | #JBSW EQU 9-/80 JOB SW,NON-ZERO='T' MODE PS000760
FF8A 77 | #CBSW EQU 10-/80 CLB SW,NON-ZERO=STORECI PS000770
FF8B 78 | #LCNT EQU 11-/80 NO. OF LOCALS PS000780
FF8C 79 | #MPSW EQU 12-/80 NON-ZERO, CORE MAP DESIRED PS000790
FF8D 80 | #MDF1 EQU 13-/80 NO. OF DUP CTRL RCDS PS000800
FF8E 81 | #MDF2 EQU 14-/80 ADDR OF MODIF BUFFER PS000810
FF8F 82 | #NCNT EQU 15-/80 NO. OF NOCALS PS000820
FF90 83 | #ENTY EQU 16-/80 RELATIVE ENTRY ADDR OF PROG PS000830
FF91 84 | #RP67 EQU 17-/80 IF NON-ZERO,1442 MOD 6,7 PS000840
85 | * PS000850
86 | * NEGATIVE VALUE REPRESENTS DEFAULT CONDITION * PS000860
FF92 87 | #TODR EQU 18-/80 DR CODE OF 'TO' DRIVE PS000870
FF93 88 | #FRDR EQU 19-/80 DR CODE OF 'FROM' DRIVE PS000880
89 | * * PS000890
FF94 90 | #FHOL EQU 20-/80 ADDR OF LARGEST FXA HOLE PS000900
FF95 91 | #FSZE EQU 21-/80 BLK CNT LARGEST HOLE IN FXA PS000910
FF96 92 | #UHOL EQU 22-/80 ADDR OF LARGEST UA HOLE PS000920
FF97 93 | #USZE EQU 23-/80 BLK CNT LARGEST HOLE IN UA PS000930
FF98 94 | #DCSW EQU 24-/80 NON-ZERO=DUP CALL PS000940
FF99 95 | #PIOD EQU 25-/80 PRINC. I/O INDICATOR PS000950
FF9A 96 | #PPTR EQU 26-/80 PRINC. PRINTER INDICATOR PS000960
FF9B 97 | #CIAD EQU 27-/80 WD NO. SCTR 0,CIL ADDR PS000970
FF9C 98 | #ACIN EQU 28-/80 AVAILABLE CARTRIDGE INDR PS000980
FF9D 99 | #GRPH EQU 29-/80 2250 INDICATOR PS000990
FF9E 100 | #GCNT EQU 30-/80 G2250 INDICATOR 2-4 PS001000
FF9F 101 | #LOSW EQU 31-/80 LOCAL-CALL-LOCAL SWITCH 2-3 PS001010
FFA0 102 | #X3SW EQU 32-/80 SPECIAL-ILS SWITCH 2-3 PS001020
FFA1 103 | #ECNT EQU 33-/80 NO. OF EQUAT RECORDS PS001030
FFA3 104 | #ANDU EQU 35-/80 END OF UA (ADJ) LOG DR 0-4 PS001040
FFA8 105 | #BNDU EQU 40-/80 END OF UA (BASE) LOG DR 0-4 PS001050
FFAD 106 | #FPAD EQU 45-/80 FILE PROTECT ADDR (BASE) PS001060
FFB2 107 | #PCID EQU 50-/80 CART ID, PHYS DR 0-4 PS001070
FFB7 108 | #CIDN EQU 55-/80 CART ID, LOG DR 0-4 PS001080
FFBC 109 | #CIBA EQU 60-/80 CIB ADDR, LOG DR 0-4 PS001090
FFC1 110 | #SCRA EQU 65-/80 SCRA, LOG DR 0-4 PS001100
FFC6 111 | #FMAT EQU 70-/80 WS FORMAT, LOG DR 0-4 PS001110
FFCB 112 | #FLET EQU 75-/80 FLET ADDR, LOG DR 0-4 PS001120
FFD0 113 | #ULET EQU 80-/80 LET ADDR, LOG DR 0-4 PS001130
FFD5 114 | #WSCT EQU 85-/80 WS BLK CNT, LOG DR 0-4 PS001140
FFDA 115 | #CSHN EQU 90-/80 CUSHION END SCTR ADDR, 0-4 PS001150
0001 116 | #DCOM EQU 1 SCTR ADDR OF DCOM PS001160
0007 117 | #HDNG EQU 7 SCTR WITH PAGE HEADING PS001170
0FB0 118 | @SBFR EQU /FB0 PS001180
CONCATENATED COMMON AREA (CATCO)
120 | *************************************************** PS001200
121 | * * PS001210
122 | * CATCO IOAR HDRS FOR DUP PHASES PS001220
123 | * * PS001230
124 | *************************************************** PS001240
FFF0 125 | ORG -/10 PS001250
FFF0 126 | DCHDR BSS 2 DUP CONTROL PH02 PS001260
FFF2 127 | STHDR BSS 2 STORE PH03 PS001270
FFF4 128 | FLHDR BSS 2 FILEQ PH04 PS001280
FFF6 129 | DMHDR BSS 2 DUMP PH05 PS001290
FFF8 130 | DLHDR BSS 2 DUMPLET PH06 PS001300
FFFA 131 | DTHDR BSS 2 DELETE PH07 PS001310
FFFC 132 | DFHDR BSS 2 DEFINE PH08 PS001320
FFFE 133 | DXHDR BSS 2 DUP EXIT PH09 PS001330
0000 134 | UCHDR BSS 2 DUP UPCOR PH13 PS001340
0002 135 | PIHDR BSS 2 PRINCIPAL I/O BLOCK PH14 PS001350
0004 136 | SIHDR BSS 2 PRINC I/O (W/O KB) BLK PH15 PS001360
0006 137 | PTHDR BSS 2 PAPER TAPE I/O BLOCK PH16 PS001370
0008 138 | CIHDR BSS 2 CI PHASE READ BY CL BUILDER PS001380
000A 139 | MUHDR BSS 2 MACRO UPDATE PH206 PS001390
000C 140 | D2HDR BSS 2 DUP CONTROL 2 PH205 PS001400
DCTL2 - CATCO DUP SWITCHES
142 | *************************************************** PS001420
143 | * PS001430
144 | * CATCO DUP SWITCHES * PS001440
145 | * WORDS USED FOR COMMUNICATION OF DATA PS001450
146 | * BETWEEN DUP ROUTINES. PS001460
147 | * * PS001470
148 | * INITIALIZED TO ZERO BY .REST. OF DUPCO * PS001480
149 | * PS001490
150 | *************************************************** PS001500
000E 151 | CL1 EQU * PS001510
000E 152 | ASMSW BSS 1 NON ZERO IF DEFINE VOID ASM PS001520
000F 153 | BITSW BSS 1 NON ZERO TO ALLOW MDUMP-S PS001530
0010 154 | BLKSW BSS 1 NON ZERO IF BYPASSING REC PS001540
0011 155 | CIERR BSS 1 ERROR NO DETECTED BY PH 17 PS001550
0012 156 | CISW BSS 1 NON ZERO IF STORE CI PS001560
0013 157 | CLBSW BSS 1 NON ZERO IF PRECI EXECUTED PS001570
0014 158 | CNTNO BSS 1 RECORD NO BEING PCHD OR RD PS001580
159 | * * PS001590
160 | * .DATSW. IS FILLED WITH THE CNT FIELD OF THE * PS001600
161 | * DUP CONTROL RECORD. * PS001610
162 | * USED PRIMARILY FOR DATA MOVEMENT, BUT ALSO IS * PS001620
163 | * USED FOR COUNT OF RECORDS TO READ AFTER A * PS001630
164 | * STORE CI DUP CONTROL RECORD. * PS001640
0015 165 | DATSW BSS 1 RECORDS VALUE IN CNT FIELD PS001650
0016 166 | DBADR BSS 1 DB ADDR OF REFERENCED PROG PS001660
0017 167 | DELSW BSS 1 ADDR OF REQ LET ENTRY - 1 PS001670
0018 168 | DFNSW BSS 1 NON ZERO IF DEFINE FXA PS001680
0019 169 | DKSAD BSS 1 DK SCTR ADDR W/O DR CODE PS001690
001A 170 | DUMPP BSS E 2 LAST LIMITS FOR PRNTR DUMP PS001700
001C 171 | FORSW BSS 1 NON ZERO IF DEFINE VOID FOR PS001710
001D 172 | FRWS BSS 1 NON ZERO IF FROM FLD IS WS PS001720
001E 173 | FXSW BSS 1 NON ZERO IF FIXED AREA REQD PS001730
001F 174 | HOLSW BSS 1 NON ZERO IF NO CONV REQD PS001740
0020 175 | IOSW BSS 1 NON ZERO IF IN/OUT REQD PS001750
176 | * * PS001760
177 | * DUMPLET SWITCH - ZERO IF NOT DUMPLET/DUMPFLET * PS001770
178 | * PLUS VALUE REQUIRES PRINT OF BOTH LET/FLET* PS001780
179 | * NEG. VALUE REQUIRES PRINT OF FLET ONLY * PS001790
0021 180 | LETSW BSS 1 NON ZERO,PRINT LET OR FLET* PS001800
0022 181 | LSTLF BSS 1 LAST LET/FLET SECT PROCESSD PS001810
0023 182 | MODSW BSS 1 NON ZERO IF STORE MOD FUNC PS001820
0024 183 | NAMSW BSS 1 NON ZERO IF NAME IN LET/F PS001830
0025 184 | NEGSW BSS 1 NON ZERO IF SHRINKING FXA PS001840
0026 185 | PGMHL BSS 1 WORD COUNT OF THE PROG HDR PS001850
0027 186 | PRSW BSS 1 NON ZERO IF PRINTING OUTPUT PS001860
0028 187 | PTSW BSS 1 NON ZERO IF PAPER TAPE REQD PS001870
0029 188 | SKWDS BSS 1 WDS TO SEARCH IN L/F SECT PS001880
002A 189 | STCSW BSS 1 NON ZERO IF STORE DATA CI PS001890
002B 190 | STSW BSS 1 NON ZERO IF STORE TYPE PS001900
002C 191 | TEMP1 BSS E 1 1ST WD OF BINEB OUTPUT PS001910
002D 192 | TEMP2 BSS 1 2ND WD OF BINEB OUTPUT PS001920
002E 193 | TOWS BSS 1 NON ZERO IF TO FIELD IS WS PS001930
002F 194 | T3MSW BSS 1 TYPE 3,4 SOCAL LEVEL CELL PS001940
0030 195 | UASW BSS 1 NON ZERO IF USER AREA REQD PS001950
0031 196 | WSSW BSS 1 NON ZERO IF WORK STG REQD PS001960
0032 197 | XEQSW BSS 1 NON ZERO IF NOT RET FR GET PS001970
0033 198 | EBCSW BSS 1 NON ZERO IF EBC DATA OP 2E2 PS001980
0034 199 | HDNSW BSS 1 NON ZERO IF NAME IN HDR 2-3 PS001990
0035 200 | RPGSW BSS 1 POSITIVE=DEFINE VOID RPG2-9 PS002000
201 | * *NEG=DEFINE VOID COBOL 2-9 PS002005
0036 202 | DFLSW BSS 1 NON ZERO IF *DFILE 2-8 PS002010
0037 203 | BSS 1 RESERVED FOR ADDITION 2-8 PS002020
0037 204 | CL2 EQU *-1 PS002030
DCTL2 - CATCO DUP SWITCHES
206 | *************************************************** PS002050
207 | * * PS002060
208 | * CATCO DUP SWITCHES * PS002070
209 | * INITIALIZED BY DCTL AND NOT RESET BY .REST. * PS002080
210 | * * PS002090
211 | *************************************************** PS002100
0038 212 | IOREQ BSS 1 NON-ZERO,AUX I/O SET REQ PS002110
0039 213 | PH2 BSS 1 NON-ZERO IF DCTL IN CORE PS002120
003A 214 | PH3 BSS 1 NON-ZERO IF STORE IN CORE PS002130
003B 215 | PH4 BSS 1 NON-ZERO IF DUMP IN CORE PS002140
216 | ************************************************2-8 PS002150
217 | * 2-8 PS002160
218 | * CATCO SWITCH INITIALIZED TO ZERO 2-8 PS002170
219 | * BY CCAT SUBR AND SET BY MACRO UPDATE PROGRAM2-8 PS002180
220 | * 2-8 PS002190
221 | ************************************************2-8 PS002200
003C 222 | DUPCR BSS 1 NON ZERO IF DUP CTRL RCD2-8 PS002210
223 | *************************************************** PS002220
224 | * * PS002230
225 | * CATCO DUP SWITCHES SET BY CCAT SUBR * PS002240
226 | * * PS002250
227 | *************************************************** PS002260
003D 228 | ADDR2 BSS 1 KB INTERRUPT ADDRESS PS002270
003E 229 | KBREQ BSS 1 CONTENTS OF LOC 13 PS002280
230 | * THE FOLLOWING SWITCH IS SET TO INDICATE THE PS002290
231 | * PRINCIPAL INPUT DEVICE PS002300
232 | * - IS PAPER TAPE PS002310
233 | * 0 IS CARD PS002320
234 | * + IS KEYBOARD PS002330
003F 235 | INOUT BSS 1 PRINCIPAL INPUT SWITCH PS002340
236 | * PS002350
0040 237 | PTPON BSS 1 NON-ZERO IF PAPER TP ON SYS PS002360
238 | *************************************************** PS002370
239 | * * PS002380
240 | * LEVEL 4 INTERRUPT BRANCH TABLE * PS002390
241 | * ADDRESSES. INITIALIZED BY CCAT, * PS002400
242 | * AND CARD/PAPER TAPE INTERFACES. * PS002410
243 | * * PS002420
244 | *************************************************** PS002430
0049 245 | ORG /0049 PS002440
0049 246 | IBT BSS 9 9 WD INTRPT BRANCH TABLE PS002450
247 | *************************************************** PS002460
248 | * * PS002470
249 | * CATCO I/O ADDRESSES REQUIRED BY DUP * PS002480
250 | * * PS002490
251 | *************************************************** PS002500
0052 252 | P1442 BSS E 2 SYS 1442 IOAR HEADER PS002510
0054 253 | PRPAR BSS 2 DEFAULT LIMITS TO PRINT PS002520
0056 254 | PHDUP BSS 1 LAST DUP PHASE IN CORE PS002530
0057 255 | CRBUF BSS 1 81 WD BFR FOR DUP CTRL RCDS PS002540
0058 256 | DCADR BSS 1 ADDR FOR DUP CTRL IOAR HDR PS002550
0059 257 | HDBUF BSS 1 ADDR OF PAGE HEADING BFR PS002560
005A 258 | IOBLK BSS 1 ADDR OF DUP I/O PHASE PS002570
005B 259 | SDBUF BSS 1 STORE/DUMP BUFFER PS002580
005C 260 | LETAR BSS 1 ADDR OF LET SEARCH BUFFER PS002590
005D 261 | PEBUF BSS 1 41 WD BFR FOR PACKED EBCDIC PS002600
005E 262 | THIS BSS 1 ADDR OF DOUBLE BFR, BFR 1 PS002610
005F 263 | NEXT BSS 1 ADDR OF DOUBLE BFR, BFR 2 PS002620
00F2 265 | DISKZ EQU DZ000 DISKZ ENTRY POINT PS002640
01DE 266 | B EQU $ZEND-2 PS002650
01DE 267 | DMPLC EQU B IOAR CORE ADDR FOR DMPLT PS002660
01DE 268 | EXITC EQU B IOAR CORE ADDR FOR DEXIT PS002670
01DE 269 | MUPC EQU B IOAR CORE ADDR FOR MUP 2-8 PS002680
11E0 270 | DCTL EQU B+/1002 ENTRY ADDRESS OF DCTL PS002690
11DE 271 | DCTLC EQU B+/1000 IOAR CORE ADDR FOR DCTL PS002700
21DE 272 | WSDC EQU B+/2000 IOAR CORE ADDR FOR STORE PS002710
41DE 273 | DUMPC EQU B+/4000 IOAR CORE ADDR FOR DDUMP PS002720
7DB0 274 | DUPCO EQU /7DB0 ADDR OF RESIDENT DUPCO PS002730
7F1E 275 | CATCO EQU /7F20-2 ADDR OF DCOM IOAR HEADER PS002740
276 | * * PS002750
277 | * DUPCO ENTRY POINTS...USED WITH INDIRECT BSI * PS002760
278 | * * PS002770
7DB0 279 | ORG DUPCO PS002780
7DB0 280 | BINEB BSS 1 CONVERSION BINARY TO EBCDIC PS002790
7DB1 281 | WRTDC BSS 1 WRITE DCOM(S) SUBROUTINE PS002800
7DB2 282 | ENTER BSS 1 SAVE XR-S AND CONDITIONS PS002810
7DB3 283 | GET BSS 1 READ FROM DISK USING DISKZ PS002820
7DB4 284 | LEAVE BSS 1 HANDLES ALL EXITS FROM DUP PS002830
7DB5 285 | LINE BSS 1 SPACES PRINTER 1 LINE PS002840
7DB6 286 | MASK BSS 1 INHIBITS KB INT REQUEST PS002850
7DB7 287 | MDUMP BSS 1 PRINTS SELECTED CORE LOC-S PS002860
7DB8 288 | PAGE BSS 1 SKIPS TO NEXT PAGE PS002870
7DB9 289 | PHID BSS 1 RECORDS PHASE ID PS002880
7DBA 290 | PHIDM BSS 1 RECORDS PHASE AND MODIFIER PS002890
7DBB 291 | PRINT BSS 1 USE SYS PR SUBR TO PRINT PS002900
7DBC 292 | PUT BSS 1 WRITES TO DISK USING DISKZ PS002910
7DBD 293 | REST BSS 1 RESTORE CATCO,GO TO DCTL PS002920
7DBE 294 | RTURN BSS 1 RESTORE XR-S AND CONDITIONS PS002930
295 | * * PS002940
296 | * INPUT/OUTPUT PARAMETERS , CORE ADDRESSES * PS002950
297 | * * PS002960
7D91 298 | BUF6 EQU DUPCO-/1F ADDR OF PAGE HEADING BUFFER PS002970
7C50 299 | PRPNT EQU BUF6-/141 IOAR ADDR FOR PRINC. PTR PS002980
7A06 300 | IOADR EQU BUF6-/38B START OF I/O INTERFACE PS002990
7A0A 301 | GETHO EQU IOADR+4 ENTRY FOR READING HOLL TYPE PS003000
7A0B 302 | GETBI EQU IOADR+5 ENTRY FOR READING BINARY PS003010
7A0C 303 | PACKB EQU IOADR+6 ENTRY TO PACK BINARY PS003020
7A0D 304 | PCHBI EQU IOADR+7 ENTRY TO PUNCH BINARY PS003030
79B5 305 | BUF1 EQU IOADR-/51 ADDR OF NEXT BUFFER PS003040
7963 306 | BUF2 EQU BUF1-/52 ADDR OF THIS BUFFER PS003050
7925 307 | BUF3 EQU BUF2-/3E ADDR OF PACKED EBC BUFFER PS003060
78D3 308 | BUF4 EQU BUF3-/52 ADDR OF CONTROL RCD BUFFER PS003070
7782 309 | BUF5 EQU IOADR-/284 ADDR OF LET SCTR BFR PS003080
0640 310 | BUF7 EQU BUF5-/7142 ADDR OF STORE/DUMP BFR PS003090
DUP CONTROL 2 (DCTL2) PROLOGUE
312 | *************************************************** PS003110
313 | * * PS003120
314 | *STATUS - VERSION 2, MODIFICATION 9 * PS003130
315 | * * PS003140
316 | *FUNCTION/OPERATION - * PS003150
317 | * DUP CONTROL 2 (DCTL2) DECODES AND ANALYZES THE* PS003160
318 | * DUP CONTROL RECORDS NOT PROCESSED BY DCTL * PS003170
319 | * (*DEFINE, *MACRO UPDATE, AND *DWADR). DCTL2 * PS003180
320 | * PROCESSES THE DUP CONTROL RECORD AND CALLS IN * PS003190
321 | * THE REQUIRED DUP MODULE. * PS003200
322 | * * PS003210
323 | *ENTRY POINTS - * PS003220
324 | * PROGRAM START - CHECK - ENTERED FROM DUP * PS003230
325 | * CONTROL * PS003240
326 | * * PS003250
327 | *INPUT - * PS003260
328 | * UPON ENTRY, A DUP CONTROL RECORD IS IN THE * PS003270
329 | * PACKED EBCDIC BUFFER ADDRESSED VIA PEBUF. * PS003280
330 | * * PS003290
331 | *OUTPUT - N/A * PS003300
332 | * * PS003310
333 | *EXTERNAL REFERENCES- * PS003320
334 | * SUBROUTINES - * PS003330
335 | * *GET - FETCH DUP MODULE FROM DISK AND * PS003340
336 | * EXECUTE * PS003350
337 | * *LEAVE - RECORD ERROR MESSAGE, GO TO REST * PS003360
338 | * IN DUPCO * PS003370
339 | * *PHID - TO IDENTIFY DCTL2 AS IN CONTROL * PS003380
340 | * COMMUNICATIONS AREAS - * PS003390
341 | * *COMMA * PS003400
342 | * $CORE * PS003410
343 | * *DCOM * PS003420
344 | * #CIDN * PS003430
345 | * #DCSW * PS003440
346 | * #FRDR * PS003450
347 | * #JBSW * PS003460
348 | * #NAME * PS003470
349 | * #TODR * PS003480
350 | * * PS003490
351 | *EXITS - * PS003500
352 | * NORMAL - * PS003510
353 | * *DWADR DUP CONTROL RECORD RECOGNIZED. EXIT * PS003520
354 | * THRU LINK SUBROUTINE OF DUPCO. * PS003530
355 | * *DEFINE OR MACRO UPDATE DUP CONTROL RECORD * PS003540
356 | * RECOGNIZED. EXIT THRU GET SUBR OF DUPCO. * PS003550
357 | * ERROR - * PS003560
358 | * *INVALID DUP CTRL RECORD CAUSES EXIT THRU * PS003570
359 | * LEAVE SUBR OF DUPCO WITH ERROR CODE OF * PS003580
360 | * 13,17,18,19,20, OR 24. * PS003590
361 | * * PS003600
362 | *TABLES/WORK AREAS- CATCO * PS003610
363 | * CATCO - CONCATENATED COMMON AREA OF DUPCO * PS003620
364 | * CRBUF - ADDR OF INPUT BFR FOR CONTROL RECORDS * PS003630
365 | * PEBUF - ADDR FOR PACKED EBCDIC CONTROL RECORDS* PS003640
366 | * * PS003650
367 | *ATTRIBUTES- REUSABLE * PS003660
368 | * * PS003670
369 | *NOTES - * PS003680
370 | * DCTL2 IS A PHASE CREATED IN MODIFICATION 8 * PS003690
371 | * BY DIVIDING DUP CONTROL (DCTL) INTO 2 PHASES. * PS003700
372 | * THEREFORE THE VERSION AND MODIFICATION LEVEL * PS003710
373 | * INDICATORS(CC 69-71) FROM DCTL APPEAR IN DCTL2* PS003720
374 | *************************************************** PS003730
DCTL2 - CHECK DUP CONTROL RECORD
376 | *************************************************** PS003750
11DE 377 | ORG DCTLC PS003760
11DE 0000 378 | DC *-* USED BY SYSTEM LOADER PS003770
11DF 00CD 379 | DC /00CD PHASE ID FOR DCTL2 PS003780
380 | *************************************************** PS003790
381 | * * PS003800
382 | * LABELS FOR ERROR MESSAGES FROM DCTL2 * PS003810
383 | * * PS003820
384 | *************************************************** PS003830
000D 385 | PH213 EQU 13 INVALID FUNCTION FIELD PS003840
0011 386 | PH217 EQU 17 INVALID COUNT FIELD PS003850
0012 387 | PH218 EQU 18 INVALID DURING TEMP MODE PS003860
0013 388 | PH219 EQU 19 CARTRIDGE NOT ON SYSTEM PS003870
0014 389 | PH220 EQU 20 CART ID OUTSIDE VALID RANGE PS003880
0018 390 | PH224 EQU 24 COUNT FIELD TOO LONG PS003890
391 | *************************************************** PS003900
11E0 392 | CHECK EQU * DCTL2 ENTRY POINT PS003910
11E0 4480 7DB9 393 | BSI I PHID IDENTIFY DUP PHASE IN CORE PS003920
11E2 00CD 394 | DC /00CD DUP CONTROL 2 (DCTL2) PS003930
395 | * * PS003940
11E3 CC00 121A 396 | LDD L RE902 PS003950
11E5 D954 397 | STD 1 PRPAR PRINT PARAMETER LIMITS PS003960
11E6 D91A 398 | STD 1 DUMPP PS003970
399 | * PS003980
11E7 1010 400 | SLA 16 PS003990
11E8 D139 401 | STO 1 PH2 INDICATE DCTL IS NOT IN COREPS004000
402 | * PS004010
11E9 6600 7926 403 | LDX L2 BUF3+1 POINT TO COLS 1,2 PS004020
404 | * PS004030
11EB 4043 405 | BSI DCBAF CHECK COLS 1,2 PS004040
11EC 5CC4 406 | EBC .*D. PS004050
11ED 7001 407 | MDX RE055 NOT *D, TRY MUP PS004060
11EE 7017 408 | MDX RE110 GO TO CHECK DEF,DWA PS004070
409 | * PS004080
11EF 402E 410 | RE055 BSI DCEXF CHECK COLS 1,2 PS004090
11F0 5CD4 411 | EBC .*M. MACRO UPDATE CONSTANT PS004100
11F1 000D 412 | DC PH213 INVALID FUNCTION CODE PS004110
413 | * PS004120
11F2 402B 414 | BSI DCEXF CHECK COLS 3,4 PS004130
11F3 C1C3 415 | EBC .AC. MACRO UPDATE CONSTANT PS004140
11F4 000D 416 | DC PH213 INVALID FUNCTION CODE PS004150
417 | * PS004160
11F5 4028 418 | BSI DCEXF CHECK COLS 5,6 PS004170
11F6 D9D6 419 | EBC .RO. MACRO UPDATE CONSTANT PS004180
11F7 000D 420 | DC PH213 INVALID FUNCTION CODE PS004190
DCTL2 - PROCESS *MACRO UPDATE RECO
11F8 C400 000E 422 | MUCTL LD L $CORE TEST CORE SIZE FOR 8K PS004210
11FA 180D 423 | SRA 13 *OR MORE PS004220
11FB 4C20 1200 424 | BSC L RE058,Z BRANCH IF 8K OR MORE PS004230
11FD 4480 7DB4 425 | BSI I LEAVE ERROR IF NOT 8K OR MORE PS004240
11FF 000D 426 | DC PH213 ERROR CODE PS004250
427 | * PS004260
1200 6700 01DE 428 | RE058 LDX L3 MUPC IOAR HEADER ADDR FOR MUP PS004270
1202 403A 429 | BSI CKTMP ERROR EXIT IF TEMP MODE PS004280
430 | * PS004290
1203 C90A 431 | LDD 1 MUHDR IOAR HEADER FOR MUP PS004300
1204 4C00 1304 432 | BSC L PLUS2 GO TO FETCH MUP PS004310
DCTL2 - CHECK DUP CONTROL RECORD
434 | *************************************************** PS004330
435 | * * PS004340
436 | * NOT A MACRO UPDATE FUNCTION, THEREFORE * PS004350
437 | * CHECK FOR MISCELLANEOUS TYPE,DEF OR DWA * PS004360
438 | * * PS004370
439 | *************************************************** PS004380
440 | * PS004390
1206 4028 441 | RE110 BSI DCBAF CHECK COLS 3,4 PS004400
1207 C5C6 442 | EBC .EF. DEFINE CONSTANT PS004410
1208 7008 443 | MDX RE120 NOT A DEFINE FUNCITON PS004420
444 | * PS004430
1209 4014 445 | BSI DCEXF CHECK COLS 5,6 PS004440
120A C9D5 446 | EBC .IN. DEFINE CONSTANT PS004450
120B 000D 447 | DC PH213 INVALID FUNCTION CODE PS004460
448 | * PS004470
120C 4011 449 | BSI DCEXF CHECK COLS 7,8 PS004480
120D C540 450 | EBC .E . DEFINE CONSTANT PS004490
120E 000D 451 | DC PH213 INVALID FUNCTION CODE PS004500
452 | * PS004510
120F 4C00 1247 453 | BSC L DFCTL DEFINE FUNCTION PS004520
454 | * PS004530
1211 400C 455 | RE120 BSI DCEXF CHECK COLS 3,4 PS004540
1212 E6C1 456 | EBC .WA. DWADR CONSTANT PS004550
1213 000D 457 | DC PH213 INVALID FUNCTION CODE PS004560
458 | * PS004570
1214 4009 459 | BSI DCEXF CHECK COLS 5,6 PS004580
1215 C4D9 460 | EBC .DR. DWADR CONSTANT PS004590
1216 000D 461 | DC PH213 INVALID FUNCTION CODE PS004600
462 | * PS004610
463 | *************************************************** PS004620
1217 4C00 128D 464 | BSC L WACTL DISK WRITE ADDR FUNCTION PS004630
465 | *************************************************** PS004640
121A 466 | BSS E 0 PS004650
121A 78D3 467 | RE902 DC BUF4 LOWER PRINT LIMIT FOR DCTL PS004660
121B 7DBB 468 | DC PRINT UPPER PRINT LIMIT FOR DCTL PS004670
121C FF00 469 | RE903 DC /FF00 MASK PS004680
121D F000 470 | RE904 DC /F000 MASK PS004690
471 | *************************************************** PS004700
DCTL2 - COMPARE 2 EBCDIC CHARS. SUBR.
473 | *************************************************** PS004720
474 | * * PS004730
475 | * COMPARE EBCDIC CHARS SPEC WITH 2 EBCDIC CHAR * PS004740
476 | * IN PEBUF SPEC BY THE CC POINTER (XR2) * PS004750
477 | * ADVANCES CC POINTER TO NEXT 2 COLS * PS004760
478 | * RETURNS TO SOURCE ADDR + 2 IF ALIKE. * PS004770
479 | * IF UNEQUAL THEN GO TO LEAVE (DUPCO) WITH SPEC * PS004780
480 | * ERROR CODE. LINKAGE IS * PS004790
481 | * BSI DCEXF COMPARING SUBROUTINE * PS004800
482 | * EBC .XX. EBCDIC CHARACTERS * PS004810
483 | * DC YY ERROR CODE * PS004820
484 | * * PS004830
485 | *************************************************** PS004840
121E 0000 486 | DCEXF DC *-* RECORD SOURCE ADDR PS004850
121F C480 121E 487 | LD I DCEXF 2 EBCDIC CHAR FROM PROG PS004860
1221 7402 121E 488 | MDX L DCEXF,+2 STEP SOURCE ADDR FOR RETURN PS004870
1223 9200 489 | S 2 0 2 EBCDIC CHAR FROM PEBUF PS004880
1224 7201 490 | MDX 2 +1 STEP CC PT TO NEXT 2 COLS PS004890
1225 4C98 121E 491 | BSC I DCEXF,-+ EQUAL SO RETURN PS004900
1227 74FF 121E 492 | MDX L DCEXF,-1 PS004910
1229 C480 121E 493 | LD I DCEXF PS004920
122B D002 494 | STO *+2 RECORD ERROR CODE PS004930
495 | * PS004940
496 | *************************************************** PS004950
122C 4480 7DB4 497 | BSI I LEAVE PRINT ERROR MESSAGE PS004960
122E 0000 498 | DC *-* ERROR CODE SPECIFIED PS004970
499 | *************************************************** PS004980
500 | * * PS004990
501 | *************************************************** PS005000
502 | * * PS005010
503 | * COMPARE 2 EBCDIC CHARS SPEC WITH THE 2 EBCDIC * PS005020
504 | * CHAR IN PEBUF SPEC BY THE CC POINTER (XR2). * PS005030
505 | * ADVANCE CC POINTER TO NEXT 2 COLS ONLY IF SAME* PS005040
506 | * IF ALIKE RETURN TO SOURCE ADDR + 2 * PS005050
507 | * WITH SOURCE ADDR + 2 IN THE A REG. * PS005060
508 | * IF UNEQUAL THEN RETURN TO SOURCE ADDR +1 * PS005070
509 | * THE LINKAGE IS * PS005080
510 | * BSI DCBAF COMPARE .XX. WITH NEXT COL* PS005090
511 | * EBC .XX. EBCDIC CHARACTERS * PS005100
512 | * MDX NG UNEQUAL * PS005110
513 | * * PS005120
514 | *************************************************** PS005130
122F 0000 515 | DCBAF DC *-* RECORD SOURCE ADDR PS005140
1230 C480 122F 516 | LD I DCBAF 2 EBCDIC CHAR FOR COMPARE PS005150
1232 7401 122F 517 | MDX L DCBAF,+1 STEP SOURCE ADDR PS005160
1234 9200 518 | S 2 0 2 EBCDIC CHAR FROM CTRL REC PS005170
1235 4CA0 122F 519 | BSC I DCBAF,Z UNEQUAL, RETURN PS005180
520 | * PS005190
1237 7201 521 | MDX 2 +1 STEP CC POINTER TO NEXT COL PS005200
1238 7401 122F 522 | MDX L DCBAF,+1 STEP SOURCE ADDR PS005210
123A C0F4 523 | LD DCBAF PUT SOURCE ADDR IN A REG PS005220
123B 4C80 122F 524 | BSC I DCBAF EQUAL COMPARE, RETURN PS005230
525 | *************************************************** PS005240
526 | * * PS005250
527 | * INHIBIT FURTHER PROCESSING IF JOB IS TEMP MODE* PS005260
528 | * * PS005270
529 | *************************************************** PS005280
123D 0000 530 | CKTMP DC *-* RECORD RETURN ADDR PS005290
123E C189 531 | LD 1 #JBSW PS005300
123F 4C98 123D 532 | BSC I CKTMP,-+ NOT A TEMP JOB-RETURN-- PS005310
533 | * PS005320
1241 4480 7DB4 534 | BSI I LEAVE PRINT ERROR MESSAGE PS005330
1243 0012 535 | DC PH218 INVALID DURING TEMP-ER EXIT PS005340
536 | *************************************************** PS005350
1244 4480 7DB4 537 | ST855 BSI I LEAVE PRINT ERROR MESSAGE PS005360
1246 0011 538 | DC PH217 INVALID COUNT FIELD PS005370
539 | *************************************************** PS005380
DCTL2 - *DEFINE TYPE DUP CTRL RECORD
541 | *************************************************** PS005400
542 | * * PS005410
543 | * DECODE DEFINE FIXED AREA DUP CONTROL RECORD * PS005420
544 | * * PS005430
545 | *************************************************** PS005440
1247 4400 122F 546 | DFCTL BSI L DCBAF CHECK COLS 9,10 PS005450
1249 C6C9 547 | EBC .FI. DEFINE FIXED AREA CONSTANT PS005460
124A 7019 548 | MDX DF200 NOT FIXED AREA,TRY VOID PS005470
549 | * PS005480
124B 7203 550 | MDX 2 +3 SKIP 6 COLS PS005490
551 | * PS005500
124C 4400 121E 552 | BSI L DCEXF CHECK COLS 17,18 PS005510
124E C5C1 553 | EBC .EA. FIXED AREA CONSTANT PS005520
124F 000D 554 | DC PH213 INVALID FUNCTION CODE PS005530
555 | * PS005540
1250 7206 556 | MDX 2 +6 ADJUST CC POINTER PS005550
1251 4400 122F 557 | BSI L DCBAF CHECK COLS 31,32 PS005560
1253 4040 558 | EBC . . BLANK COLS CONSTANT PS005570
1254 7001 559 | MDX DF150 NOT BLANK COLS,TRY MINUS PS005580
560 | * PS005590
1255 7006 561 | MDX DF160 EXPANDING FIXED AREA PS005600
562 | * PS005610
1256 4400 121E 563 | DF150 BSI L DCEXF CHECK COLS 31,32 PS005620
1258 6040 564 | EBC .- . MINUS CONSTANT PS005630
1259 0018 565 | DC PH224 COUNT FIELD OFFSET PS005640
566 | * PS005650
125A 6C00 7FC5 567 | STX L0 NEGSW+C INDICATE DECREASING FXA PS005660
568 | * PS005670
125C 4400 1315 569 | DF160 BSI L DACNT PUT CYL COUNT INTO DATSW PS005680
570 | * PS005690
125E C115 571 | LD 1 DATSW PS005700
125F D11E 572 | STO 1 FXSW RECORD CYL COUNT AND SET SW PS005710
1260 D118 573 | STO 1 DFNSW INDICATE DEFINE FIXED AREA PS005720
574 | * PS005730
1261 4C18 1244 575 | BSC L ST855,-+ ZERO CYL COUNT SPEC--ERROR PS005740
576 | * * PS005750
1263 7024 577 | MDX DF800 DO COMMON DEFINE CHECKS PS005760
578 | *************************************************** PS005770
579 | *************************************************** PS005780
580 | * * PS005790
581 | * DECODE DEFINE VOID ASSEMBLED DUP CONTROL REC * PS005800
582 | * * PS005810
583 | *************************************************** PS005820
1264 4400 121E 584 | DF200 BSI L DCEXF CHECK COLS 09,10 PS005830
1266 E5D6 585 | EBC .VO. VOID CONSTANT PS005840
1267 000D 586 | DC PH213 INVALID FUNCTION CODE PS005850
587 | * PS005860
1268 7203 588 | MDX 2 +3 SKIP 6 COLS PS005870
589 | * PS005880
1269 4400 122F 590 | BSI L DCBAF CHECK COLS 17,18 PS005890
126B C5D4 591 | EBC .EM. VOID ASSEMBLER CONSTANT PS005900
126C 7002 592 | MDX DF300 NOT VOID ASMBL, TRY FORTRAN PS005910
593 | * PS005920
126D D10E 594 | STO 1 ASMSW SET VOID ASM SW PS005930
595 | * PS005940
126E 7019 596 | MDX DF800 DO COMMON DEFINE CHECKS PS005950
597 | *************************************************** PS005960
598 | *************************************************** PS005970
599 | * * PS005980
600 | * DECODE DEFINE VOID FORTRAN DUP CONTROL RECORD * PS005990
601 | * * PS006000
602 | *************************************************** PS006010
126F 4400 122F 603 | DF300 BSI L DCBAF CHECK COLS 17,18 2-5 PS006020
1271 E3D9 604 | EBC .TR. VOID FORTRAN CONSTANT PS006030
1272 7002 605 | MDX DF350 NOT FORTRAN, TRY COBOL 2-9 PS006040
606 | * PS006050
1273 D11C 607 | STO 1 FORSW SET VOID FORTRAN SW 2-5 PS006060
608 | * 2-5 PS006070
1274 7013 609 | MDX DF800 DO COMMON DEFINE CHECKS 2-5 PS006080
610 | ************************************************2-5 PS006090
611 | *************************************************** PS006091
612 | * 2-9* PS006092
613 | * DECODE DEFINE VOID COBOL DUP CTL RECORD 2-9* PS006093
614 | * 2-9* PS006094
615 | *************************************************** PS006095
1275 4400 122F 616 | DF350 BSI L DCBAF CHECK COLS. 17,18 2-9 PS006096
1277 D6D3 617 | EBC .OL. VOID COBOL CONSTANT 2-9 PS006097
1278 7004 618 | MDX DF400 NOT VOID COBOL, TRY RPG 2-9 PS006098
619 | * 2-9 PS006099
1279 C0FF 620 | LD *-1 ACC=NEGATIVE VALUE 2-9 PS006100
127A D400 7FD5 621 | STO L RPGSW+C SET SW TO VOID COBOL 2-9 PS006101
622 | * 2-9 PS006102
127C 700B 623 | MDX DF800 DO COMMON DEFINE CHECKS 2-9 PS006103
624 | *************************************************** PS006104
625 | *************************************************** PS006105
626 | * 2-5 PS006110
627 | * DECODE DEFINE VOID RPG DUP CONTROL RECORD 2-5 PS006120
628 | * 2-5 PS006130
629 | ************************************************2-5 PS006140
127D 72FE 630 | DF400 MDX 2 -2 STEP BACK POINTER 2-5 PS006150
127E 4400 121E 631 | BSI L DCEXF CHECK COLS 13,14 2-5 PS006160
1280 40D9 632 | EBC . R. RPG, 1ST HALF 2-5 PS006170
1281 000D 633 | DC PH213 INVALID FUNCTION CODE 2-5 PS006180
634 | * 2-5 PS006190
1282 4400 121E 635 | BSI L DCEXF CHECK COLS 15,16 IF . R.2-5 PS006200
1284 D7C7 636 | EBC .PG. RPG, 2ND HALF 2-5 PS006210
1285 000D 637 | DC PH213 INVALID FUNCTION CODE 2-5 PS006220
638 | * 2-5 PS006230
1286 6C00 7FD5 639 | STX L0 RPGSW+C SET VOID RPG SWITCH 2-5 PS006240
640 | ************************************************2-5 PS006250
641 | *************************************************** PS006260
642 | * * PS006270
643 | * PROCESS COMMON FIELDS FOR DEFINE DUP CTRL REC * PS006280
644 | * * PS006290
645 | *************************************************** PS006300
1288 4400 123D 646 | DF800 BSI L CKTMP ERROR EXIT IF IN JOB T MODE PS006310
647 | * PS006320
128A 400D 648 | DF810 BSI FRLAB IDENTIFY CARTRIDGE REQUIRED PS006330
649 | * PS006340
128B 4C00 130F 650 | BSC L PL080 GO TO FETCH DEFINE PS006350
651 | * * PS006360
652 | *************************************************** PS006370
DCTL2 -- *DWADR DUP CONTROL RECORD
654 | *************************************************** PS006390
655 | * * PS006400
656 | * PROCESS THE BALANCE OF THE DWADR DUP CTRL REC * PS006410
657 | * * PS006420
658 | *************************************************** PS006430
128D 400A 659 | WACTL BSI FRLAB PROCESS CART ID FIELDS PS006440
660 | * PS006450
128E 4400 123D 661 | BSI L CKTMP RETURN ONLY IF NOT JOB T PS006460
662 | * PS006470
1290 C805 663 | LDD WA900 PS006480
1291 D984 664 | STD 1 #NAME NAME OF PROG TO BE LINKED PS006490
1292 D198 665 | STO 1 #DCSW ADRWS IS TO RETURN TO DUP PS006500
666 | * PS006510
1293 4480 7DB4 667 | BSI I LEAVE RECORD CATCO TO COMMA+DCOM PS006520
1295 FFFC 668 | DC -4 *AND XEQ LINK PROCEDURE PS006530
669 | *************************************************** PS006540
1296 670 | BSS E 0 PS006550
1296 0111 671 | WA900 DC /0111 NAME CODE FOR ADRWS PS006560
1297 99A2 672 | DC /99A2 PS006570
673 | *************************************************** PS006580
DCTL2 -FRLAB- CVRT CART ID TO LOG DR
675 | *************************************************** PS006600
676 | * * PS006610
677 | * CONVERT COLUMNS 31-34 AND 37-40 FROM PACKED * PS006620
678 | * EBCDIC TO THE FROM AND TO LOGICAL DRIVE NO. * PS006630
679 | * IF NONE SPECIFIED DEFAULT TO NEGATIVE VALUE. * PS006640
680 | * * PS006650
681 | *************************************************** PS006660
1298 0000 682 | FRLAB DC *-* RECORD RETURN ADDR PS006670
1299 6A0B 683 | STX 2 FR040+1 SAVE RECORD IMAGE POINTER PS006680
129A 6680 7FFD 684 | LDX I2 PEBUF+C POINT TO PACKED EBCDIC BFR PS006690
129C C118 685 | LD 1 DFNSW PS006700
129D 4C20 12A1 686 | BSC L FR020,Z DEFINE FXA,DECODE TO FIELD PS006710
687 | * * PS006720
129F 4008 688 | BSI FR050 PROCESS THE FROM ID FIELD PS006730
689 | * * PS006740
12A0 D193 690 | STO 1 #FRDR RECORD LOGICAL FROM DRIVE PS006750
691 | * * PS006760
692 | *************************************************** PS006770
693 | * * PS006780
694 | * CONVERT COLUMNS 37-40 FROM PACKED EBCDIC TO * PS006790
695 | * LOGICAL DRIVE NUMBER AND PUT INTO #TODR. * PS006800
696 | * * PS006810
697 | *************************************************** PS006820
12A1 7203 698 | FR020 MDX 2 +3 STEP POINTER 6COLS.TO-FIELD PS006830
12A2 4005 699 | BSI FR050 PROCESS THE TO ID FIELD PS006840
700 | * * PS006850
12A3 D192 701 | STO 1 #TODR RECORD LOGICAL TO DRIVE PS006860
702 | * * PS006870
703 | * * PS006880
12A4 6600 0000 704 | FR040 LDX L2 *-* RESTORE REC IMAGE POINTER PS006890
12A6 4C80 1298 705 | BSC I FRLAB FROM AND TO FIELDS DONE-RET PS006900
706 | *************************************************** PS006910
707 | * * PS006920
708 | *************************************************** PS006930
709 | * * PS006940
710 | * PROCESS EITHER THE FROM OR THE TO ID FIELD * PS006950
711 | * * PS006960
712 | *************************************************** PS006970
12A8 0000 713 | FR050 DC *-* RECORD RETURN ADDRESS PS006980
12A9 4007 714 | BSI FR100 CONVERT FROM CART ID PS006990
715 | * * PS007000
12AA 4C28 12F8 716 | BSC L FR810,Z+ INVALID RANGE --ERROR PS007010
717 | * * PS007020
12AC 4808 718 | BSC + CART ID SPECIFIED PS007030
12AD C0FF 719 | LD *-1 NO,SET ACC NEGATIVE PS007040
12AE 4033 720 | BSI FR600 COMPARE ACC WITH CARD ID-S PS007050
721 | * * PS007060
12AF 4C80 12A8 722 | BSC I FR050 RETURN PS007070
723 | *************************************************** PS007080
724 | * * PS007090
725 | * CONVERT 4 UNPACKED EBCDIC CHARACTERS INTO * PS007100
726 | * ONE BINARY WORD * PS007110
727 | * * PS007120
728 | *************************************************** PS007130
12B1 0000 729 | FR100 DC PS007140
12B2 6304 730 | LDX 3 4 COUNT OF HEX CHARACTERS PS007150
12B3 10A0 731 | SLT 32 CLEAR THE ACC AND EXT PS007160
732 | * PS007170
12B4 C210 733 | LD 2 16 LOAD RELATIVE COLS 31,32 PS007180
12B5 18C8 734 | RTE 8 ONE CHAR IN EACH A AND Q PS007190
12B6 D049 735 | STO FR960 HI ORDER,UNPACKED EBCDIC PS007200
736 | * PS007210
12B7 1010 737 | SLA 16 CONVERT TO UNPACKED EBCDIC PS007220
12B8 1088 738 | SLT 8 PS007230
12B9 D047 739 | STO FR960+1 2ND HIGHEST ORDER DIGIT PS007240
740 | * PS007250
12BA C211 741 | LD 2 17 LOAD RELATIVE COLS 33,34 PS007260
12BB 18C8 742 | RTE 8 PS007270
12BC D045 743 | STO FR960+2 3RD HIGHEST ORDER DIGIT PS007280
744 | * PS007290
12BD 1010 745 | SLA 16 PS007300
12BE 1088 746 | SLT 8 PS007310
12BF D043 747 | STO FR960+3 LO ORDER DIGIT PS007320
748 | *************************************************** PS007330
749 | * * PS007340
750 | * CONVERT 4 UNPACKED EBCDIC CHARACTERS INTO * PS007350
751 | * ONE BINARY WORD AND RETURN WITH IT IN THE AREG* PS007360
752 | * * PS007370
753 | *************************************************** PS007380
12C0 6304 754 | LDX 3 +4 PS007390
755 | * PS007400
12C1 C700 12FF 756 | FR310 LD L3 FR960-1 PICK UP NEXT CHARACTER PS007410
12C3 F037 757 | EOR FR930 /00F0 PS007420
12C4 1884 758 | SRT 4 PS007430
12C5 4420 12CC 759 | BSI L FR350,Z NOT NUMERIC RANGE TRY A-F PS007440
760 | * * PS007450
12C7 73FF 761 | FR320 MDX 3 -1 DECR WD CNT, VAL IN EXT PS007460
12C8 70F8 762 | MDX FR310 GET NEXT CHAR PS007470
763 | * * PS007480
12C9 18D0 764 | RTE 16 MOVE BINARY RESULT TO A REG PS007490
12CA 4C80 12B1 765 | BSC I FR100 CONVERSION COMPLETE -RETURN PS007500
766 | * PS007510
767 | *************************************************** PS007520
768 | * * PS007530
769 | * CHECK FOR VALID HEX CHARACTER BETWEEN A AND F * PS007540
770 | * * PS007550
771 | *************************************************** PS007560
12CC 0000 772 | FR350 DC *-* RECORD RETURN ADDR PS007570
12CD C700 12FF 773 | LD L3 FR960-1 CHAR VALUE PS007580
12CF 902D 774 | S FR932 /00C1 MASK FOR -A- PS007590
12D0 4C28 12DB 775 | BSC L FR370,Z+ TOO LOW TRY BLANK (0040) PS007600
776 | * * PS007610
12D2 C700 12FF 777 | LD L3 FR960-1 CHAR VALUE PS007620
12D4 9027 778 | S FR931 /00C6 MASK FOR -F- PS007630
12D5 4C30 12F8 779 | BSC L FR810,Z- OUTSIDE THE RANGE. --ERROR PS007640
780 | * * PS007650
12D7 1084 781 | SLT 4 SELECT EBCDIC CHAR FR QREG PS007660
12D8 8025 782 | A FR933 /0009 TO CONVERT TO HEX PS007670
12D9 1884 783 | SRT 4 SAVE HEX DIGIT IN EXT 2-4 PS007680
12DA 7005 784 | MDX FR380 THIS CHARACTER OK PS007690
785 | * * PS007700
786 | *************************************************** PS007710
787 | * * PS007720
788 | * CHECK FOR A BLANK DIGIT,INSERT A ZERO IF FOUND* PS007730
789 | * * PS007740
790 | *************************************************** PS007750
12DB C700 12FF 791 | FR370 LD L3 FR960-1 CHAR VALUE PS007760
12DD 9021 792 | S FR937 /0040 EBCDIC BLANK CHAR PS007770
12DE 4C20 12F8 793 | BSC L FR810,Z OUTSIDE THE RANGE -ERROR- PS007780
794 | * PS007790
795 | * INSTRUCTION MOVED 2-4 PS007800
796 | * PS007810
12E0 4C80 12CC 797 | FR380 BSC I FR350 CHECK NEXT CHAR -RETURN PS007820
798 | * PS007830
799 | *************************************************** PS007840
800 | * * PS007850
801 | * MATCH THE ACC WITH CONTENTS OF THE QUINTUPLE * PS007860
802 | * LABELED #CIDN (CART ID-S IN LOGICAL ORDER) * PS007870
803 | * * PS007880
804 | *************************************************** PS007890
12E2 0000 805 | FR600 DC *-* RECORD RETURN ADDRESS PS007900
12E3 4CA8 12E2 806 | BSC I FR600,Z+ DEFAULT CONDITION --RETURN- PS007910
807 | * PS007920
12E5 D01A 808 | STO FR960 SAVE SPECIFIED CART ID PS007930
12E6 6305 809 | LDX 3 +5 NO OF ELEMENTS PS007940
810 | * PS007950
12E7 C700 7F56 811 | FR610 LD L3 #CIDN+C-1 PICK UP CART ID PS007960
12E9 9016 812 | S FR960 ADJUST BY SPECIFIED CART ID PS007970
12EA 4C18 12EF 813 | BSC L FR690,-+ MATCH FOUND PS007980
814 | * PS007990
12EC 73FF 815 | MDX 3 -1 PS008000
12ED 70F9 816 | MDX FR610 LAST ENTRY NOT YET CHECKED PS008010
817 | *************************************************** PS008020
12EE 7006 818 | MDX FR800 CART ID NOT FOUND --ERROR- PS008030
819 | *************************************************** PS008040
820 | * PS008050
12EF 73FF 821 | FR690 MDX 3 -1 ADJUST TO LOGICAL DRIVE NO. PS008060
12F0 1000 822 | NOP ALLOW SKIP WHEN STEP TO 0 PS008070
12F1 6B0F 823 | STX 3 FR960+1 PS008080
12F2 C00E 824 | LD FR960+1 PUT LOGICAL DR NO. IN ACC PS008090
12F3 4C80 12E2 825 | BSC I FR600 MATCH FOUND --RETURN- PS008100
826 | *************************************************** PS008110
DCTL2 -FRLAB- ERR EXITS AND CONSTANTS
828 | *************************************************** PS008130
829 | * * PS008140
830 | * ERROR EXIT FOR CARTRIDGE ID FIELDS PS008150
831 | * * PS008160
832 | *************************************************** PS008170
12F5 4480 7DB4 833 | FR800 BSI I LEAVE PRINT ERROR MESSAGE PS008180
12F7 0013 834 | DC PH219 CARTRIDGE NOT ON SYSTEM PS008190
835 | *************************************************** PS008200
12F8 4480 7DB4 836 | FR810 BSI I LEAVE PRINT ERROR MESSAGE PS008210
12FA 0014 837 | DC PH220 OUTSIDE VALID RANGE PS008220
838 | *************************************************** PS008230
839 | *************************************************** PS008240
840 | * * PS008250
841 | * CONSTANTS AND WORK AREAS * PS008260
842 | * * PS008270
843 | *************************************************** PS008280
12FB 00F0 844 | FR930 DC /00F0 MASK FOR NUMERICS VS A - F PS008290
12FC 00C6 845 | FR931 DC /00C6 MASK FOR HEX F PS008300
12FD 00C1 846 | FR932 DC /00C1 MASK FOR HEX A PS008310
12FE 0009 847 | FR933 DC /0009 CONSTANT FOR CONVERSION PS008320
12FF 0040 848 | FR937 DC /0040 EBCDIC BLANK CONSTANT PS008330
1300 849 | FR960 BSS 4 WORK AREA PS008340
850 | *************************************************** PS008350
DCTL2 -- FETCH AND EXECUTE SUBROUTINE
852 | *************************************************** PS008370
853 | * * PS008380
854 | * SET UP CORE LOC, WD CNT AND SECT ADDR FOR ALL * PS008390
855 | * MODULES REQUIRED BY DCTL TO PROCESS SPEC FUNC * PS008400
856 | * * PS008410
857 | *************************************************** PS008420
1304 D132 858 | PLUS2 STO 1 XEQSW SET TO EXECUTE FETCHED PROG PS008430
1305 DB00 859 | PLUSX STD 3 0 INSERT REQD IOAR HEADER PS008440
860 | * * PS008450
1306 4480 7DB9 861 | BSI I PHID RECORD PROGRESS OF PHASE 2 PS008460
1308 C002 862 | DC /C002 NEXT PHASE BEING CALLED PS008470
863 | * * PS008480
1309 4480 7DB7 864 | BSI I MDUMP PRINT MONITORED OUTPUT PS008490
865 | * * PS008500
130B 4480 7DB3 866 | BSI I GET FETCH REQD PHASE -EXIT- PS008510
867 | * * PS008520
130D 4C00 0000 868 | PL009 BSC L *-* EXIT TO DCTL EXTENSIONS PS008530
869 | *************************************************** PS008540
DCTL -- FETCH AND EXECUTE SUBROUTINE
871 | *************************************************** PS008560
872 | * * PS008570
873 | * SET UP TO FETCH AND EXECUTE THE DEFINE MODULE * PS008580
874 | * * PS008590
875 | *************************************************** PS008600
130F 6700 01DE 876 | PL080 LDX L3 B CORE LOC TO PLACE IOAR HDR PS008610
1311 1010 877 | SLA 16 PS008620
1312 D10F 878 | STO 1 BITSW INHIBIT PRINT DURING MDUMP PS008630
1313 C9FC 879 | LDD 1 DFHDR IOAR HDR FOR DEFINE PS008640
1314 70EF 880 | MDX PLUS2 GO TO FETCH DEFINE PS008650
881 | * * PS008660
DCTL2 -- PROCESS THE COUNT FIELD
883 | *************************************************** PS008680
884 | * * PS008690
885 | * PUT DECIMAL VALUE FROM COLS 27-30 TO DATSW * PS008700
886 | * IN HEX. * PS008710
887 | * * PS008720
888 | *************************************************** PS008730
1315 0000 889 | DACNT DC *-* RECORD RETURN ADDR PS008740
1316 6A27 890 | STX 2 DA200+1 SAVE XR 2 PS008750
1317 6680 7FFD 891 | LDX I2 PEBUF+C POINT TO PACKED EBCDIC BFR PS008760
1319 6304 892 | LDX 3 4 PS008770
893 | *************************************************** PS008780
894 | * * PS008790
895 | * PROCESS COLUMNS 29 AND 30 * PS008800
896 | * * PS008810
897 | *************************************************** PS008820
131A C20F 898 | LD 2 15 COLS 29,30 PS008830
131B 1008 899 | SLA 8 COL 30 ONLY PS008840
131C 4029 900 | BSI DA800 CHECK FOR NUMERIC FIELD PS008850
901 | * PS008860
131D 4023 902 | BSI DA700 RECORD INTO DATSW,UNITS PS008870
903 | * PS008880
131E C20F 904 | LD 2 15 COLS 29,30 PS008890
131F 4026 905 | BSI DA800 CHECK FOR COL 29 NUMERIC PS008900
906 | * PS008910
1320 1004 907 | SLA 4 PS008920
1321 401F 908 | BSI DA700 RECORD COL 29 INTO DATSW PS008930
909 | *************************************************** PS008940
910 | * * PS008950
911 | * PROCESS COLUMNS 27 AND 28 * PS008960
912 | * * PS008970
913 | *************************************************** PS008980
1322 C20E 914 | LD 2 14 COLS 27,28 PS008990
1323 1008 915 | SLA 8 COL 28 ONLY PS009000
1324 4021 916 | BSI DA800 CHECK COL 28 FOR NUMERIC PS009010
917 | * PS009020
1325 1008 918 | SLA 8 PS009030
1326 401A 919 | BSI DA700 RECORD COL 28 AS HUNDREDS PS009040
920 | * PS009050
1327 C20E 921 | LD 2 14 PS009060
1328 401D 922 | BSI DA800 CHECK COL 27 FOR NUMERIC PS009070
923 | * PS009080
1329 100C 924 | SLA 12 PS009090
132A 4016 925 | BSI DA700 RECORD COL 27 AS THOUSANDS PS009100
926 | *************************************************** PS009110
927 | * * PS009120
928 | * CONVERT DECIMAL VALUE IN DATSW TO HEX VALUE * PS009130
929 | * * PS009140
930 | *************************************************** PS009150
132B 10A0 931 | DA100 SLT 32 CLEAR THE A AND Q REGISTERS PS009160
132C D12C 932 | STO 1 TEMP1 CLEAR WORKING LOCATION PS009170
933 | * PS009180
132D C115 934 | LD 1 DATSW WORD TO BE CONVERTED PS009190
935 | * PS009200
132E 18DC 936 | DA150 RTE 32-4 PS009210
132F D12D 937 | STO 1 TEMP2 SAVE REST OF DIGITS PS009220
938 | * PS009230
1330 73FF 939 | MDX 3 -1 STEP DOWN NO OF DIGITS LEFT PS009240
1331 7001 940 | MDX DA170 PS009250
1332 7007 941 | MDX DA180 LAST DIGIT PROCESSED PS009260
942 | * PS009270
1333 1090 943 | DA170 SLT 16 MOVE DIGIT TO THE A REG PS009280
1334 812C 944 | A 1 TEMP1 RUNNING TOTAL PS009290
1335 A01C 945 | M DA900 TIMES 10 PS009300
1336 1090 946 | SLT 16 PS009310
1337 D12C 947 | STO 1 TEMP1 NEW TOTAL PS009320
948 | * PS009330
1338 C12D 949 | LD 1 TEMP2 BALANCE OF WORD TO CONVERT PS009340
1339 70F4 950 | MDX DA150 PROCESS NEXT DIGIT PS009350
951 | * PS009360
133A 1090 952 | DA180 SLT 16 PS009370
133B 812C 953 | A 1 TEMP1 PS009380
133C D115 954 | STO 1 DATSW HEX VALUE INTO DATSW PS009390
955 | *************************************************** PS009400
133D 6600 0000 956 | DA200 LDX L2 *-* RESTORE XR 2 PS009410
133F 4C80 1315 957 | BSC I DACNT RETURN--- FROM DACNT --- PS009420
958 | *************************************************** PS009430
959 | * PS009440
1341 0000 960 | DA700 DC *-* RECORD RETURN ADDR PS009450
1342 E915 961 | OR 1 DATSW PS009460
1343 D115 962 | STO 1 DATSW ACCUMULATIVE DECIMAL COUNT PS009470
963 | * PS009480
1344 4C80 1341 964 | BSC I DA700 RETURN - DATSW UPDATED PS009490
965 | *************************************************** PS009500
1346 0000 966 | DA800 DC *-* RECORD RETURN ADDR PS009510
1347 E00B 967 | AND DA901 MASK WITH FFOO PS009520
1348 F00B 968 | EOR DA902 MASK WITH 4000 PS009530
1349 4C18 132B 969 | BSC L DA100,+- FIRST LOW ORDER BLANK PS009540
134B F009 970 | EOR DA903 MASK WITH B000 PS009550
134C 188C 971 | SRT 12 PS009560
134D 4C20 1244 972 | BSC L ST855,Z INVALID COUNT FIELD --ERROR PS009570
134F 1084 973 | SLT 4 PS009580
1350 4C80 1346 974 | BSC I DA800 RETURN-DIGIT IS NUMERIC PS009590
975 | * PS009600
976 | *************************************************** PS009610
977 | * * PS009620
978 | * CONSTANT USED BY THE DACNT SUBROUTINE * PS009630
979 | * * PS009640
980 | *************************************************** PS009650
1352 000A 981 | DA900 DC 10 CONSTANT MULTIPLIER PS009660
1353 FF00 982 | DA901 DC /FF00 MASK PS009670
1354 4000 983 | DA902 DC /4000 MASK PS009680
1355 B000 984 | DA903 DC /B000 MASK PS009690
985 | *************************************************** PS009700
986 | *************************************************** PS009710
987 | *************************************************** PS009720
988 | * * PS009730
1356 989 | BSS DCTL+640-*-1 DCTL2 PATCH (2 SCTR) * PS009740
145F FFFF 990 | DC /FFFF END OF DCTL2 PATCH AREA * PS009750
991 | * * PS009760
992 | *************************************************** PS009770
993 | *************************************************** PS009780
1460 994 | END CHECK PS009790
There were no errors in this assembly
Program transfer address = 11E0
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
#ACIN FF9C 98
#ANDU FFA3 104
#BNDU FFA8 105
#CBSW FF8A 77
#CIAD FF9B 97
#CIBA FFBC 109
#CIDN FFB7 108 811
#CSHN FFDA 115
#DBCT FF86 73
#DCOM 0001 116
#DCSW FF98 94 665
#ECNT FFA1 103
#ENTY FF90 83
#FCNT FF87 74
#FHOL FF94 90
#FLET FFCB 112
#FMAT FFC6 111
#FPAD FFAD 106
#FRDR FF93 88 690
#FSZE FF95 91
#GCNT FF9E 100
#GRPH FF9D 99
#HDNG 0007 117
#JBSW FF89 76 531
#LCNT FF8B 78
#LOSW FF9F 101
#MDF1 FF8D 80
#MDF2 FF8E 81
#MPSW FF8C 79
#NAME FF84 72 664
#NCNT FF8F 82
#PCID FFB2 107
#PIOD FF99 95
#PPTR FF9A 96
#RP67 FF91 84
#SCRA FFC1 110
#SYSC FF88 75
#TODR FF92 87 701
#UHOL FF96 92
#ULET FFD0 113
#USZE FF97 93
#WSCT FFD5 114
#X3SW FFA0 102
$1132 007F 33
$1403 0080 34
$ACDE 009F 42
$BYSW 01CB 52
$CH12 0006 4
$CIBA 0005 3
$COMN 0007 5
$CORE 000E 6 422
$CPTR 007E 32
$CTSW 000F 7
$CYLN 009A 41
$DABL 0011 9
$DADR 0010 8
$DBSY 00EE 51
$DCDE 0077 25
$DCYL 00A4 43
$DREQ 0012 10
$DUMP 003F 24
$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
$IBSY 0013 11
$IBT2 00B9 46
$IBT4 00D4 49
$IOCT 0032 16
$IREQ 002C 14
$KCSW 007C 30
$LAST 0033 17
$LINK 0039 23
$NDUP 0034 18
$NXEQ 0035 19
$PBSY 0036 20
$PGCT 0037 21
$PHSE 0078 26
$PRET 0028 13
$PST1 0081 35
$PST2 0085 36
$PST3 0089 37
$PST4 008D 38
$STOP 0091 39
$UFDR 007D 31
$UFIO 0079 27
$ULET 002D 15
$WRD1 007B 29
$WSDR 007A 28
$ZEND 01E0 54 266
'SBFR 0FB0 118
ADDR2 003D 228
ASMSW 000E 152 594
B 01DE 266 267 268 269 270 271 272 273 876
BINEB 7DB0 280
BITSW 000F 153 878
BLKSW 0010 154
BUF1 79B5 305 306
BUF2 7963 306 307
BUF3 7925 307 308 403
BUF4 78D3 308 467
BUF5 7782 309 310
BUF6 7D91 298 299 300
BUF7 0640 310
C 7FA0 56 567 621 639 684 811 891
CATCO 7F1E 275
CHECK 11E0 392 994
CIERR 0011 155
CIHDR 0008 138
CISW 0012 156
CKTMP 123D 530 429 532 646 661
CL1 000E 151
CL2 0037 204
CLBSW 0013 157
CNTNO 0014 158
CRBUF 0057 255
D2HDR 000C 140
DA100 132B 931 969
DA150 132E 936 950
DA170 1333 943 940
DA180 133A 952 941
DA200 133D 956 890
DA700 1341 960 902 908 919 925 964
DA800 1346 966 900 905 916 922 974
DA900 1352 981 945
DA901 1353 982 967
DA902 1354 983 968
DA903 1355 984 970
DACNT 1315 889 569 957
DATSW 0015 165 571 934 954 961 962
DBADR 0016 166
DCADR 0058 256
DCBAF 122F 515 405 441 516 517 519 522 523 524 546 557 590 603
616
DCEXF 121E 486 410 414 418 445 449 455 459 487 488 491 492 493
552 563 584 631 635
DCHDR FFF0 126
DCTL 11E0 270 989
DCTLC 11DE 271 377
DELSW 0017 167
DF150 1256 563 559
DF160 125C 569 561
DF200 1264 584 548
DF300 126F 603 592
DF350 1275 616 605
DF400 127D 630 618
DF800 1288 646 577 596 609 623
DF810 128A 648
DFCTL 1247 546 453
DFHDR FFFC 132 879
DFLSW 0036 202
DFNSW 0018 168 573 685
DISKZ 00F2 265
DKSAD 0019 169
DLHDR FFF8 130
DMHDR FFF6 129
DMPLC 01DE 267
DTHDR FFFA 131
DUMPC 41DE 273
DUMPP 001A 170 398
DUPCO 7DB0 274 279 298
DUPCR 003C 222
DXHDR FFFE 133
DZ000 00F2 53 265
EBCSW 0033 198
ENTER 7DB2 282
EXITC 01DE 268
FLHDR FFF4 128
FORSW 001C 171 607
FR020 12A1 698 686
FR040 12A4 704 683
FR050 12A8 713 688 699 722
FR100 12B1 729 714 765
FR310 12C1 756 762
FR320 12C7 761
FR350 12CC 772 759 797
FR370 12DB 791 775
FR380 12E0 797 784
FR600 12E2 805 720 806 825
FR610 12E7 811 816
FR690 12EF 821 813
FR800 12F5 833 818
FR810 12F8 836 716 779 793
FR930 12FB 844 757
FR931 12FC 845 778
FR932 12FD 846 774
FR933 12FE 847 782
FR937 12FF 848 792
FR960 1300 849 735 739 743 747 756 773 777 791 808 812 823 824
FRLAB 1298 682 648 659 705
FRWS 001D 172
FXSW 001E 173 572
GET 7DB3 283 866
GETBI 7A0B 302
GETHO 7A0A 301
HDBUF 0059 257
HDNSW 0034 199
HOLSW 001F 174
IBT 0049 246
INOUT 003F 235
IOADR 7A06 300 301 302 303 304 305 309
IOBLK 005A 258
IOREQ 0038 212
IOSW 0020 175
KBREQ 003E 229
LEAVE 7DB4 284 425 497 534 537 667 833 836
LETAR 005C 260
LETSW 0021 180
LINE 7DB5 285
LSTLF 0022 181
MASK 7DB6 286
MDUMP 7DB7 287 864
MODSW 0023 182
MUCTL 11F8 422
MUHDR 000A 139 431
MUPC 01DE 269 428
NAMSW 0024 183
NEGSW 0025 184 567
NEXT 005F 263
P1442 0052 252
PACKB 7A0C 303
PAGE 7DB8 288
PCHBI 7A0D 304
PEBUF 005D 261 684 891
PGMHL 0026 185
PH2 0039 213 401
PH213 000D 385 412 416 420 426 447 451 457 461 554 586 633 637
PH217 0011 386 538
PH218 0012 387 535
PH219 0013 388 834
PH220 0014 389 837
PH224 0018 390 565
PH3 003A 214
PH4 003B 215
PHDUP 0056 254
PHID 7DB9 289 393 861
PHIDM 7DBA 290
PIHDR 0002 135
PL009 130D 868
PL080 130F 876 650
PLUS2 1304 858 432 880
PLUSX 1305 859
PRINT 7DBB 291 468
PRPAR 0054 253 397
PRPNT 7C50 299
PRSW 0027 186
PTHDR 0006 137
PTPON 0040 237
PTSW 0028 187
PUT 7DBC 292
RE055 11EF 410 407
RE058 1200 428 424
RE110 1206 441 408
RE120 1211 455 443
RE902 121A 467 396
RE903 121C 469
RE904 121D 470
REST 7DBD 293
RPGSW 0035 200 621 639
RTURN 7DBE 294
SDBUF 005B 259
SIHDR 0004 136
SKWDS 0029 188
ST855 1244 537 575 972
STCSW 002A 189
STHDR FFF2 127
STSW 002B 190
T3MSW 002F 194
TEMP1 002C 191 932 944 947 953
TEMP2 002D 192 937 949
THIS 005E 262
TOWS 002E 193
UASW 0030 195
UCHDR 0000 134
WA900 1296 671 663
WACTL 128D 659 464
WRTDC 7DB1 281
WSDC 21DE 272
WSSW 0031 196
XEQSW 0032 197 858