ibm:ibm1130-lib:dmsr2v12:psadctl2_lst
PSADCTL2
| Table Of Contents |
|---|
|
- psadctl2.lst
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
ibm/ibm1130-lib/dmsr2v12/psadctl2_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator