ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 2020
Source File: \jedupdmp.asm
DDUMP- RESIDENT COMMA 2 AUG 67
2 | ABS J0500020
0005 3 | $CIBA EQU /5 ADDR OF CIB ON MASTER CARTRIDGE J0500030
0006 4 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 J0500040
0007 5 | $COMN EQU /7 WORD COUNT OF COMMON J0500050
000E 6 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC) J0500060
000F 7 | $CTSW EQU /F MCR SW,NON-ZERO0// RECD TRAPPED J0500070
0010 8 | $DADR EQU /10 SCTR ADDR OF PROG TO BE FETCHED J0500080
0011 9 | $DABL EQU /11 IOCC FOR SCA RESET (ODD ADDR) J0500090
0012 10 | $DREQ EQU /12 INDR FOR REQUESTED V. DISK I/O J0500100
0013 11 | $IBSY EQU /13 PRINC I/O BUSY INDR,NON-ZERO0BSY J0500110
0014 12 | $HASH EQU /14 WORK AREA FOR MONITOR PROGRAMS J0500120
0028 13 | $PRET EQU /28 ADDR PREOPERATIVE ERROR TRAP J0500130
002C 14 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE J0500140
002D 15 | $ULET EQU /2D ADDR OF LET, LOGICAL DRIVE 0 J0500150
0032 16 | $IOCT EQU /32 IOCS CTR,0=NO I/O IN PROGRESS J0500160
0033 17 | $LAST EQU /33 LAST CD INDR,NON-ZERO=LAST CARD J0500170
0034 18 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP J0500180
0035 19 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEQ J0500190
0036 20 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY J0500200
0037 21 | $PGCT EQU /37 PAGE NO. FOR PAGE HEADINGS J0500210
0038 22 | $EXIT EQU /38 ADDR CALL EXIT ENTRY POINT J0500220
0039 23 | $LINK EQU /39 ADDR CALL LINK ENTRY POINT J0500230
003F 24 | $DUMP EQU /3F ADDR OF CALL DUMP, ENTRY POINT J0500240
0077 25 | $DCDE EQU /77 DRIVE CODE FOR CORE LOAD BLDR J0500250
0078 26 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE J0500260
0079 27 | $UFIO EQU /79 ARM POSITION IN UNFORMATTED AREA J0500270
007A 28 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE J0500280
007B 29 | $WRD1 EQU /7B LOAD ADDR FOR CURR USER CORE LD J0500290
007C 30 | $KCSW EQU /7C INHIBIT INPUT/PRINT OVERLAP SW J0500300
007D 31 | $UFDR EQU /7D UNFORMATTED I/O DRIVE CODE J0500310
007E 32 | $CPTR EQU /7E CHANNEL 12 INDICATOR FOR CP J0500320
007F 33 | $1132 EQU /7F CHANNEL 12 INDICATOR FOR 1132 J0500330
0080 34 | $1403 EQU /80 CHANNEL 12 INDICATOR FOR 1403 J0500340
0081 35 | $PST1 EQU /81 ADDR POSTOP ERROR TRAP,LEVEL 1 J0500350
0085 36 | $PST2 EQU /85 ADDR POSTOP ERROR TRAP,LEVEL 2 J0500360
0089 37 | $PST3 EQU /89 ADDR POSTOP ERROR TRAP,LEVEL 3 J0500370
008D 38 | $PST4 EQU /8D ADDR POSTOP ERROR TRAP,LEVEL 4 J0500380
0091 39 | $STOP EQU /91 ADDR PROGRAM STOP KEY TRAP J0500390
0095 40 | $FPAD EQU /95 FILE PROTECT ADDR (ADJ),LOG DR 0 J0500400
009A 41 | $CYLN EQU /9A ARM POSITION FOR LOGICAL DRIVE 0 J0500410
009F 42 | $ACDE EQU /9F AREA CODE FOR LOGICAL DRIVE 0 J0500420
00A4 43 | $DCYL EQU /A4 1ST DEF CYL ADDR, LOGICAL DR 0 J0500430
00B3 44 | $I200 EQU /B3 ENTRY POINT TO ILS FOR LEVEL 2 J0500440
00B8 45 | $I205 EQU /B8 J0500450
00B9 46 | $IBT2 EQU $I205+1 ADDR OF IBT FOR LEVEL 2 J0500460
00C4 47 | $I400 EQU /C4 ENTRY POINT TO ILS FOR LEVEL 4 J0500470
00D3 48 | $I405 EQU /D3 J0500480
00D4 49 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 J0500490
00D5 50 | $I410 EQU /D5 J0500500
00EE 51 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY J0500510
01CB 52 | $BYSW EQU /1CB BYPASS SW,NOP IF FETCHING SOCAL J0500520
00F2 53 | DZ000 EQU /0F2 DISKZ ENTRY POINT J0500530
01E0 54 | $ZEND EQU /1E0 ADDR 1+LAST WORD OF DISKZ J0500540
7FA0 56 | C EQU /7FA0 CATCO POINTER SET TO MIDDLE J0500560
57 | *************************************************** J0500570
58 | * * J0500580
59 | * INDEX REG 1 IS SET TO .C. WHEN CATCO IS FORMED * J0500590
60 | * FOR USE BY ALL OF DUP FUNCTIONS. ANY DUP ROUT * J0500600
61 | * USING XR 1 FOR OTHER REASONS MUST RESTORE. * J0500610
62 | * ALL VALUES IN CATCO HAVE LABELS EQUATED TO THE * J0500620
63 | * VALUE THAT INDICATES THEIR RELATIVE LOCATION * J0500630
64 | * FROM .C. * J0500640
65 | * * J0500650
66 | *************************************************** J0500660
67 | * * J0500670
68 | * CATCO DCOM IMAGE * J0500680
69 | * EQUIVALENCES USED TO REFERENCE CATCO WITH XR1 * J0500690
70 | * * J0500700
71 | *************************************************** J0500710
FF84 72 | #NAME EQU 4-/80 NAME OF PROGRAM J0500720
FF86 73 | #DBCT EQU 6-/80 DISK BLOCK COUNT OF PROGRAM J0500730
FF87 74 | #FCNT EQU 7-/80 FILES SW,ZERO = NO FILES J0500740
FF88 75 | #SYSC EQU 8-/80 NON-ZERO,SYSTEM CARTRIDGE J0500750
FF89 76 | #JBSW EQU 9-/80 JOB SW,NON-ZERO='T' MODE J0500760
FF8A 77 | #CBSW EQU 10-/80 CLB SW,NON-ZERO=STORECI J0500770
FF8B 78 | #LCNT EQU 11-/80 NO. OF LOCALS J0500780
FF8C 79 | #MPSW EQU 12-/80 NON-ZERO, CORE MAP DESIRED J0500790
FF8D 80 | #MDF1 EQU 13-/80 NO. OF DUP CTRL RCDS J0500800
FF8E 81 | #MDF2 EQU 14-/80 ADDR OF MODIF BUFFER J0500810
FF8F 82 | #NCNT EQU 15-/80 NO. OF NOCALS J0500820
FF90 83 | #ENTY EQU 16-/80 RELATIVE ENTRY ADDR OF PROG J0500830
FF91 84 | #RP67 EQU 17-/80 IF NON-ZERO,1442 MOD 6,7 J0500840
85 | * J0500850
86 | * NEGATIVE VALUE REPRESENTS DEFAULT CONDITION * J0500860
FF92 87 | #TODR EQU 18-/80 DR CODE OF 'TO' DRIVE J0500870
FF93 88 | #FRDR EQU 19-/80 DR CODE OF 'FROM' DRIVE J0500880
89 | * * J0500890
FF94 90 | #FHOL EQU 20-/80 ADDR OF LARGEST FXA HOLE J0500900
FF95 91 | #FSZE EQU 21-/80 BLK CNT LARGEST HOLE IN FXA J0500910
FF96 92 | #UHOL EQU 22-/80 ADDR OF LARGEST UA HOLE J0500920
FF97 93 | #USZE EQU 23-/80 BLK CNT LARGEST HOLE IN UA J0500930
FF98 94 | #DCSW EQU 24-/80 NON-ZERO=DUP CALL J0500940
FF99 95 | #PIOD EQU 25-/80 PRINC. I/O INDICATOR J0500950
FF9A 96 | #PPTR EQU 26-/80 PRINC. PRINTER INDICATOR J0500960
FF9B 97 | #CIAD EQU 27-/80 WD NO. SCTR 0,CIL ADDR J0500970
FF9C 98 | #ACIN EQU 28-/80 AVAILABLE CARTRIDGE INDR2-8 J0500980
FF9D 99 | #GRPH EQU 29-/80 2250 INDICATOR 2-8 J0500990
FF9E 100 | #GCNT EQU 30-/80 NO. G2250 RECORDS 2-8 J0501000
FF9F 101 | #LOSW EQU 31-/80 LOCAL-CALLS-LOCAL INDR 2-8 J0501010
FFA0 102 | #X3SW EQU 32-/80 SPECIAL ILS SWITCH 2-8 J0501020
FFA1 103 | #ECNT EQU 33-/80 NO. OF EQUAT RCDS 2-8 J0501030
FFA3 104 | #ANDU EQU 35-/80 END OF UA (ADJ) LOG DR 0-4 J0501040
FFA8 105 | #BNDU EQU 40-/80 END OF UA (BASE) LOG DR 0-4 J0501050
FFAD 106 | #FPAD EQU 45-/80 FILE PROTECT ADDR (BASE) J0501060
FFB2 107 | #PCID EQU 50-/80 CART ID, PHYS DR 0-4 J0501070
FFB7 108 | #CIDN EQU 55-/80 CART ID, LOG DR 0-4 J0501080
FFBC 109 | #CIBA EQU 60-/80 CIB ADDR, LOG DR 0-4 J0501090
FFC1 110 | #SCRA EQU 65-/80 SCRA, LOG DR 0-4 J0501100
FFC6 111 | #FMAT EQU 70-/80 WS FORMAT, LOG DR 0-4 J0501110
FFCB 112 | #FLET EQU 75-/80 FLET ADDR, LOG DR 0-4 J0501120
FFD0 113 | #ULET EQU 80-/80 LET ADDR, LOG DR 0-4 J0501130
FFD5 114 | #WSCT EQU 85-/80 WS BLK CNT, LOG DR 0-4 J0501140
FFDA 115 | #CSHN EQU 90-/80 CUSHION END SCTR ADDR, 0-4 J0501150
0001 116 | #DCOM EQU 1 SCTR ADDR OF DCOM J0501160
0007 117 | #HDNG EQU 7 SCTR WITH PAGE HEADING J0501170
0FB0 118 | @SBFR EQU /FB0 2-8 J0501180
0003 119 | @LFEN EQU 3 SYMBOLIC SIZE OF LET ENT2-3 J0501190
CONCATENATED COMMON AREA (CATCO)
121 | *************************************************** J0501210
122 | * * J0501220
123 | * CATCO IOAR HDRS FOR DUP PHASES * J0501230
124 | * * J0501240
125 | *************************************************** J0501250
FFF0 126 | ORG -/10 J0501260
FFF0 127 | DCHDR BSS 2 DUP CONTROL PH02 J0501270
FFF2 128 | STHDR BSS 2 STORE PH03 J0501280
FFF4 129 | FLHDR BSS 2 FILEQ PH04 J0501290
FFF6 130 | DMHDR BSS 2 DUMP PH05 J0501300
FFF8 131 | DLHDR BSS 2 DUMPLET PH06 J0501310
FFFA 132 | DTHDR BSS 2 DELETE PH07 J0501320
FFFC 133 | DFHDR BSS 2 DEFINE PH08 J0501330
FFFE 134 | DXHDR BSS 2 DUP EXIT PH09 J0501340
0000 135 | UCHDR BSS 2 DUP UPCOR PH13 J0501350
0002 136 | PIHDR BSS 2 PRINCIPAL I/O BLOCK PH14 J0501360
0004 137 | SIHDR BSS 2 PRINC I/O (W/O KB) BLK PH15 J0501370
0006 138 | PTHDR BSS 2 PAPER TAPE I/O BLOCK PH16 J0501380
0008 139 | CIHDR BSS 2 CI PHASE READ BY CL BUILDER J0501390
000A 140 | MUHDR BSS 2 MACRO UPDATE PH206 2-8 J0501400
000C 141 | D2HDR BSS 2 DUP CONTROL 2 PH205 2-8 J0501410
DDUMP- CATCO DUP SWITCHES
143 | *************************************************** J0501430
144 | * * J0501440
145 | * CATCO DUP SWITCHES * J0501450
146 | * WORDS USED FOR COMMUNICATION OF DATA * J0501460
147 | * BETWEEN DUP ROUTINES. * J0501470
148 | * * J0501480
149 | * INITIALIZED TO ZERO BY .REST. OF DUPCO * J0501490
150 | * * J0501500
151 | *************************************************** J0501510
000E 152 | CL1 EQU * J0501520
000E 153 | ASMSW BSS 1 NON ZERO IF DEFINE VOID ASM J0501530
000F 154 | BITSW BSS 1 NON ZERO TO ALLOW MDUMP-S J0501540
0010 155 | BLKSW BSS 1 NON ZERO IF BYPASSING REC J0501550
0011 156 | CIERR BSS 1 ERROR NO DETECTED BY PH 17 J0501560
0012 157 | CISW BSS 1 NON ZERO IF STORE CI J0501570
0013 158 | CLBSW BSS 1 NON ZERO IF PRECI EXECUTED J0501580
0014 159 | CNTNO BSS 1 RECORD NO BEING PCHD OR RD J0501590
160 | * * J0501600
161 | * .DATSW. IS FILLED WITH THE CNT FIELD OF THE * J0501610
162 | * DUP CONTROL RECORD. * J0501620
163 | * USED PRIMARILY FOR DATA MOVEMENT, BUT ALSO IS * J0501630
164 | * USED FOR COUNT OF RECORDS TO READ AFTER A * J0501640
165 | * STORE CI DUP CONTROL RECORD. * J0501650
0015 166 | DATSW BSS 1 RECORDS VALUE IN CNT FIELD J0501660
0016 167 | DBADR BSS 1 DB ADDR OF REFERENCED PROG J0501670
0017 168 | DELSW BSS 1 ADDR OF REQ LET ENTRY - 1 J0501680
0018 169 | DFNSW BSS 1 NON ZERO IF DEFINE FXA J0501690
0019 170 | DKSAD BSS 1 DK SCTR ADDR W/O DR CODE J0501700
001A 171 | DUMPP BSS E 2 LAST LIMITS FOR PRNTR DUMP J0501710
001C 172 | FORSW BSS 1 NON ZERO IF DEFINE VOID FOR J0501720
001D 173 | FRWS BSS 1 NON ZERO IF FROM FLD IS WS J0501730
001E 174 | FXSW BSS 1 NON ZERO IF FIXED AREA REQD J0501740
001F 175 | HOLSW BSS 1 NON ZERO IF NO CONV REQD J0501750
0020 176 | IOSW BSS 1 NON ZERO IF IN/OUT REQD J0501760
177 | * * J0501770
178 | * DUMPLET SWITCH - ZERO IF NOT DUMPLET/DUMPFLET * J0501780
179 | * PLUS VALUE REQUIRES PRINT OF BOTH LET/FLET* J0501790
180 | * NEG. VALUE REQUIRES PRINT OF FLET ONLY * J0501800
0021 181 | LETSW BSS 1 NON ZERO,PRINT LET OR FLET* J0501810
0022 182 | LSTLF BSS 1 LAST LET/FLET SECT PROCESSD J0501820
0023 183 | MODSW BSS 1 NON ZERO IF STORE MOD FUNC J0501830
0024 184 | NAMSW BSS 1 NON ZERO IF NAME IN LET/F J0501840
0025 185 | NEGSW BSS 1 NON ZERO IF SHRINKING FXA J0501850
0026 186 | PGMHL BSS 1 WORD COUNT OF THE PROG HDR J0501860
0027 187 | PRSW BSS 1 NON ZERO IF PRINTING OUTPUT J0501870
0028 188 | PTSW BSS 1 NON ZERO IF PAPER TAPE REQD J0501880
0029 189 | SKWDS BSS 1 WDS TO SEARCH IN L/F SECT J0501890
002A 190 | STCSW BSS 1 NON ZERO IF STORE DATA CI J0501900
002B 191 | STSW BSS 1 NON ZERO IF STORE TYPE J0501910
002C 192 | TEMP1 BSS E 1 1ST WD OF BINEB OUTPUT J0501920
002D 193 | TEMP2 BSS 1 2ND WD OF BINEB OUTPUT J0501930
002E 194 | TOWS BSS 1 NON ZERO IF TO FIELD IS WS J0501940
002F 195 | T3MSW BSS 1 TYPE 3,4 SOCAL LEVEL CELL J0501950
0030 196 | UASW BSS 1 NON ZERO IF USER AREA REQD J0501960
0031 197 | WSSW BSS 1 NON ZERO IF WORK STG REQD J0501970
0032 198 | XEQSW BSS 1 NON ZERO IF NOT RET FR GET J0501980
0033 199 | EBCSW BSS 1 NON ZERO IF EBC DATA OP 2E2 J0501990
0034 200 | HDNSW BSS 1 NON ZERO IF NAME IN HDR 2-8 J0502000
0035 201 | RPGSW BSS 1 NON Z IF DEFINE VOID RPG2-8 J0502010
0036 202 | DFLSW BSS 1 NON ZERO IF *DFILE 2-8 J0502020
0037 203 | BSS 1 RESERVED FOR ADDITION 2-8 J0502030
0037 204 | CL2 EQU *-1 J0502040
DDUMP- CATCO DUP SWITCHES
206 | *************************************************** J0502060
207 | * * J0502070
208 | * CATCO DUP SWITCHES * J0502080
209 | * INITIALIZED BY DCTL AND NOT RESET BY .REST. * J0502090
210 | * * J0502100
211 | *************************************************** J0502110
0038 212 | IOREQ BSS 1 MON-ZERO,AUX I/O SET REQ J0502120
0039 213 | PH2 BSS 1 NON-ZERO IF DCTL IN CORE J0502130
003A 214 | PH3 BSS 1 NON-ZERO IF STORE IN CORE J0502140
003B 215 | PH4 BSS 1 NON-ZERO IF DUMP IN CORE J0502150
216 | ************************************************2-8 J0502160
217 | * CATCO SWITCH INITIALIZED TO ZERO 2-8 J0502170
218 | * BY CCAT SUBR AND SET BY MACRO UPDATE PROGRAM2-8 J0502180
219 | * 2-8 J0502190
220 | ************************************************2-8 J0502200
003C 221 | DUPCR BSS 1 NON ZERO IF DUP CTRL RCD2-8 J0502210
222 | *************************************************** J0502220
223 | * * J0502230
224 | * CATCO DUP SWITCHES SET BY CCAT SUBR * J0502240
225 | * * J0502250
226 | *************************************************** J0502260
003D 227 | ADDR2 BSS 1 KB INTERRUPT ADDRESS J0502270
003E 228 | KBREQ BSS 1 CONTENTS OF LOC 13 J0502280
229 | * THE FOLLOWING SWITCH IS SET TO INDICATE THE J0502290
230 | * PRINCIPAL INPUT DEVICE J0502300
231 | * - IS PAPER TAPE J0502310
232 | * 0 IS CARD J0502320
233 | * + IS KEYBOARD J0502330
003F 234 | INOUT BSS 1 PRINCIPAL INPUT SWITCH J0502340
235 | * J0502350
0040 236 | PTPON BSS 1 NON-ZERO IF PAPER TP ON SYS J0502360
237 | *************************************************** J0502370
238 | * * J0502380
239 | * LEVEL 4 INTERRUPT BRANCH TABLE * J0502390
240 | * ADDRESSES. INITIALIZED BY CCAT, * J0502400
241 | * AND CARD/PAPER TAPE INTERFACES. * J0502410
242 | * * J0502420
243 | *************************************************** J0502430
0049 244 | ORG /0049 J0502440
0049 245 | IBT BSS 9 9 WD INTRPT BRANCH TABLE J0502450
246 | *************************************************** J0502460
247 | * * J0502470
248 | * CATCO I/O ADDRESSES REQUIRED BY DUP * J0502480
249 | * * J0502490
250 | *************************************************** J0502500
0052 251 | P1442 BSS E 2 SYS 1442 IOAR HEADER J0502510
0054 252 | PRPAR BSS 2 DEFAULT LIMITS TO PRINT J0502520
0056 253 | PHDUP BSS 1 LAST DUP PHASE IN CORE J0502530
0057 254 | CRBUF BSS 1 81 WD BFR FOR DUP CTRL RCDS J0502540
0058 255 | DCADR BSS 1 ADDR FOR DUP CTRL IOAR HDR J0502550
0059 256 | HDBUF BSS 1 ADDR OF PAGE HEADING BFR J0502560
005A 257 | IOBLK BSS 1 ADDR OF DUP I/O PHASE J0502570
005B 258 | SDBUF BSS 1 STORE/DUMP BUFFER J0502580
005C 259 | LETAR BSS 1 ADDR OF LET SEARCH BUFFER J0502590
005D 260 | PEBUF BSS 1 41 WD BFR FOR PACKED EBCDIC J0502600
005E 261 | THIS BSS 1 ADDR OF DOUBLE BFR, BFR 1 J0502610
005F 262 | NEXT BSS 1 ADDR OF DOUBLE BFR, BFR 2 J0502620
00F2 264 | DISKZ EQU DZ000 DISKZ ENTRY POINT J0502640
01DE 265 | B EQU $ZEND-2 J0502650
01DE 266 | DMPLC EQU B IOAR CORE ADDR FOR DMPLT J0502660
01DE 267 | EXITC EQU B IOAR CORE ADDR FOR DEXIT J0502670
01DE 268 | MUPC EQU B IOAR CORE ADDR FOR MUP 2-8 J0502680
11E0 269 | DCTL EQU B+/1002 ENTRY ADDRESS OF DCTL J0502690
11DE 270 | DCTLC EQU B+/1000 IOAR CORE ADDR FOR DCTL J0502700
21DE 271 | WSDC EQU B+/2000 IOAR CORE ADDR FOR STORE J0502710
41DE 272 | DUMPC EQU B+/4000 IOAR CORE ADDR FOR DDUMP J0502720
7DB0 273 | DUPCO EQU /7DB0 ADDR OF RESIDENT DUPCO J0502730
7F1E 274 | CATCO EQU /7F20-2 ADDR OF DCOM IOAR HEADER J0502740
275 | * * J0502750
276 | * DUPCO ENTRY POINTS...USED WITH INDIRECT BSI * J0502760
277 | * * J0502770
7DB0 278 | ORG DUPCO J0502780
7DB0 279 | BINEB BSS 1 CONVERSION BINARY TO EBCDIC J0502790
7DB1 280 | WRTDC BSS 1 WRITE DCOM(S) SUBROUTINE J0502800
7DB2 281 | ENTER BSS 1 SAVE XR-S AND CONDITIONS J0502810
7DB3 282 | GET BSS 1 READ FROM DISK USING DISKZ J0502820
7DB4 283 | LEAVE BSS 1 HANDLES ALL EXITS FROM DUP J0502830
7DB5 284 | LINE BSS 1 SPACES PRINTER 1 LINE J0502840
7DB6 285 | MASK BSS 1 INHIBITS KB INT REQUEST J0502850
7DB7 286 | MDUMP BSS 1 PRINTS SELECTED CORE LOC-S J0502860
7DB8 287 | PAGE BSS 1 SKIPS TO NEXT PAGE J0502870
7DB9 288 | PHID BSS 1 RECORDS PHASE ID J0502880
7DBA 289 | PHIDM BSS 1 RECORDS PHASE AND MODIFIER J0502890
7DBB 290 | PRINT BSS 1 USE SYS PR SUBR TO PRINT J0502900
7DBC 291 | PUT BSS 1 WRITES TO DISK USING DISKZ J0502910
7DBD 292 | REST BSS 1 RESTORE CATCO,GO TO DCTL J0502920
7DBE 293 | RTURN BSS 1 RESTORE XR-S AND CONDITIONS J0502930
294 | * * J0502940
295 | * INPUT/OUTPUT PARAMETERS , CORE ADDRESSES * J0502950
296 | * * J0502960
7D91 297 | BUF6 EQU DUPCO-/1F ADDR OF PAGE HEADING BUFFER J0502970
7C50 298 | PRPNT EQU BUF6-/141 IOAR ADDR FOR PRINC.PTR J0502980
7A06 299 | IOADR EQU BUF6-/38B START OF I/O INTERFACE J0502990
7A0A 300 | GETHO EQU IOADR+4 ENTRY FOR READING HOLL TYPE J0503000
7A0B 301 | GETBI EQU IOADR+5 ENTRY FOR READING BINARY J0503010
7A0C 302 | PACKB EQU IOADR+6 ENTRY TO PACK BINARY J0503020
7A0D 303 | PCHBI EQU IOADR+7 ENTRY TO PUNCH BINARY J0503030
79B5 304 | BUF1 EQU IOADR-/51 ADDR OF NEXT BUFFER J0503040
7963 305 | BUF2 EQU BUF1-/52 ADDR OF THIS BUFFER J0503050
7925 306 | BUF3 EQU BUF2-/3E ADDR OF PACKED EBC BUFFER J0503060
78D3 307 | BUF4 EQU BUF3-/52 ADDR OF CONTROL RCD BUFFER J0503070
7782 308 | BUF5 EQU IOADR-/284 ADDR OF LET SCTR BFR J0503080
0640 309 | BUF7 EQU BUF5-/7142 ADDR OF STORE/DUMP BFR J0503090
DUMP-MAINLINE
311 | ************************************************2-1 J0503110
312 | * *2-1 J0503120
313 | *STATUS-VERSION2, MODIFICATION 12 * J0503130
314 | * *2-1 J0503140
315 | * DUP-DUMP MODULE *2-1 J0503150
316 | * *2-1 J0503160
317 | ************************************************2-1 J0503170
318 | * 2-1 J0503180
319 | * PARAMETERS FOR THE SYSTEM LOADER J0503190
320 | * J0503200
41DE 321 | ORG DUMPC J0503210
41DE 0000 322 | DC *-* WORD COUNT FILLED BY LOADER J0503220
41DF 0005 323 | DC 5 PHASE ID J0503230
324 | * J0503240
325 | * INDICATE THE PHASE OF THE SYSTEM THAT HAS J0503250
326 | * CONTROL OF THE MACHINE J0503260
327 | * J0503270
41E0 4480 7DB9 328 | DD000 BSI I PHID PLACE PHASE ID NUMBER J0503280
41E2 0005 329 | DC /0005 J0503290
330 | * 2E2 J0503300
41E3 1010 331 | SLA 16 DUMP MODULE MUST ALWAYS 2E2 J0503310
41E4 D13B 332 | STO 1 PH4 *BE RELOADED INTO CORE 2E2 J0503320
41E5 4C00 4642 333 | BSC L DD050 BR TO INITLZ PART 2E2 J0503330
334 | * J0503340
335 | * PUNCH HEADER CARD J0503350
336 | * J0503360
337 | * FORMAT THE HEADER RECORD J0503370
338 | * J0503380
41E7 C2C0 339 | DD290 LD 2 DD974-X J0503390
41E8 D2B1 340 | STO 2 DD962-X STORE WORD COUNT OF 6 J0503400
41E9 4400 42B8 341 | DD300 BSI L XG000 LINK TO GET DATA FROM DISK J0503410
41EB 4400 4307 342 | BSI L XW000 LINK TO PLACE DATA IN WS J0503420
41ED 4400 4336 343 | BSI L XF000 LINK TO PLACE DATA ON PUNCH J0503430
41EF 74FF 460F 344 | MDX L DD962,-1 DECREMENT WORD COUNT J0503440
41F1 70F7 345 | MDX DD300 BRANCH IF WORD COUNT NOT 0 J0503450
41F2 C2AD 346 | LD 2 DD958-X J0503460
41F3 4C20 41FA 347 | BSC L DD320,Z BRANCH IF HEADER PLACED J0503470
41F5 C288 348 | LD 2 DD921-X J0503480
41F6 82BE 349 | A 2 DD972-X J0503490
41F7 D2B1 350 | STO 2 DD962-X CALCULATE LENGTH OF HEADER J0503500
41F8 D2AD 351 | STO 2 DD958-X SET SECOND HALF SWITCH J0503510
41F9 70EF 352 | MDX DD300 BRANCH J0503520
353 | * J0503530
354 | * GET INFORMATION FROM HEADER J0503540
355 | * J0503550
41FA 6780 7FFF 356 | DD320 LDX I3 NEXT+C REGISTER 3 POINTS AT BUFFER J0503560
41FC C30C 357 | LD 3 12 J0503570
41FD D29D 358 | STO 2 DD942-X GET EXECUTION ADDRESS J0503580
41FE C301 359 | LD 3 1 J0503590
41FF D297 360 | STO 2 DD936-X GET PUNCH ADDRESS VALUE J0503600
4200 1010 361 | SLA 16 2-1 J0503610
4201 D302 362 | STO 3 2 ZERO THE OLD CHECKSUM 2-1 J0503620
4202 C308 363 | LD 3 8 GET WD 8 OF HEADER 2-1 J0503630
4203 4818 364 | BSC +- SKIP IF DB CNT INSERTED 2-8 J0503640
4204 C2B4 365 | LD 2 DD965-X GET DB COUNT OF PROGRAM 2-1 J0503650
4205 D308 366 | STO 3 8 INSERT INTO WD 8 2-1 J0503660
367 | * 2-4 J0503670
4206 C303 368 | DD325 LD 3 3 GET WORD 3 2-4 J0503680
4207 1004 369 | SLA 4 SHIFT OUT 2-4 J0503690
4208 1804 370 | SRA 4 * SUBTYPE 2-4 J0503700
4209 D303 371 | STO 3 3 *AND CHANGE WORD 3 2-4 J0503710
372 | * 2-2 J0503720
420A C131 373 | DD327 LD 1 WSSW CHECK IF FROM WS 2-2 J0503730
420B 4C18 4211 374 | BSC L DD330,+- BRANCH IF NOT 2-2 J0503740
420D C984 375 | LDD 1 #NAME GET NAME ON CTRL CARD 2-2 J0503750
420E D30A 376 | STO 3 10 2-2 J0503760
420F 18D0 377 | RTE 16 CHANGE THE NAME 2-2 J0503770
4210 D30B 378 | STO 3 11 2-2 J0503780
379 | * J0503790
380 | * SET WORD COUNT TO ZERO J0503800
381 | * J0503810
4211 C15F 382 | DD330 LD 1 NEXT J0503820
4212 82C3 383 | A 2 DD977-X J0503830
4213 D29B 384 | STO 2 DD940-X POINT AT FIRST DATA WORD J0503840
385 | * J0503850
386 | * INDICATE PROGRAM TO BE PUNCHED IS DSF J0503860
387 | * J0503870
4214 1010 388 | SLA 16 J0503880
4215 D28A 389 | STO 2 DD923-X INDICATE DSF PROGRAM J0503890
4216 4400 43D0 390 | BSI L XP001 LINK TO PUNCH RECORD J0503900
391 | * J0503910
392 | * TEST TO SEE IF WORKING STORAGE IS USED AT ALL J0503920
393 | * J0503930
4218 C131 394 | DD340 LD 1 WSSW J0503940
4219 4818 395 | BSC +- BRANCH IF PROG IN WS 2-8 J0503950
396 | * J0503960
397 | * TEST IF DUMP DATA J0503970
398 | * J0503980
421A C115 399 | LD 1 DATSW J0503990
421B 4C20 424C 400 | BSC L DD400,Z BRANCH IF DUMP DATA J0504000
401 | * J0504010
421D C184 402 | LD 1 #NAME CHECK FORMAT BITS 2-6 J0504020
421E 1001 403 | SLA 1 *FOR CORE IMAGE 2-6 J0504030
421F 4802 404 | BSC C SKIP IF DSF FORMAT 2-6 J0504040
4220 702B 405 | MDX DD400 CI FORMAT, BRANCH 2-6 J0504050
406 | * 2-6 J0504060
407 | * INDICATE THAT THE PROGRAM IS TO BE PLACED IN J0504070
408 | * WORKING STORAGE J0504080
409 | * J0504090
4221 6C00 4608 410 | DD360 STX L0 DD955 SET TO WS SWITCH ON J0504100
4223 7028 411 | MDX DD400 J0504110
412 | * J0504120
413 | * INDICATE THE PRINTER IS TO BE USED J0504130
414 | * J0504140
4224 6C00 4609 415 | DD380 STX L0 DD956 SET PRINTER SWITCH ON J0504150
416 | * J0504160
417 | * TEST TO SEE IF PROGRAM IS IN CORE IMAGE FORMAT J0504170
418 | * J0504180
4226 C184 419 | LD 1 #NAME LOAD 1ST WORD OF LET NAME J0504190
4227 1001 420 | SLA 1 J0504200
4228 4802 421 | BSC C SKIP IF DSF FORMAT J0504210
4229 4828 422 | BSC +Z SKIP IF CORE IMAGE FORMAT J0504220
422A 70ED 423 | MDX DD340 BR IF NOT CORE IMAGE J0504230
424 | * J0504240
425 | * SET TO PRINT CORE IMAGE PROGRAM J0504250
426 | * J0504260
422B 4400 42B8 427 | BSI L XG000 GET FIRST WORD 2-8 J0504270
422D 6780 7FFC 428 | LDX I3 LETAR+C REGISTER 3 POINTS AT BUFFER J0504280
422F C115 429 | LD 1 DATSW LOAD DATA SWITCH 2-8 J0504290
4230 4C20 423C 430 | BSC L DD390,Z BRANCH IF DUMP DATA 2-8 J0504300
431 | * 2-8 J0504310
432 | * FOR DCI DUMP USE WD CNT FROM DCI HEADER 2-8 J0504320
433 | * 2-8 J0504330
4232 C30B 434 | LD 3 11 GET CORE LOAD LENGTH 2-8 J0504340
4233 92BC 435 | S 2 DD970-X SUBTRACT 1 2-8 J0504350
4234 4C08 423C 436 | BSC L DD390,+ USE BLK IF NEG OR ZERO 2-8 J0504360
4236 1890 437 | SRT 16 2-8 J0504370
4237 9A80 438 | SD 2 DD900-X SUB WD CNT OF DK BLKS 2-8 J0504380
4238 4810 439 | BSC - USE MIN OF WD CNT FROM 2-8 J0504390
4239 10A0 440 | SLT 32 *CORE LD AND DK BLK CNT 2-8 J0504400
423A 8A80 441 | AD 2 DD900-X ADD EXISTING WD CNT 2-8 J0504410
423B DA80 442 | STD 2 DD900-X SET WD CNT FOR DCI DUMP 2-8 J0504420
423C C308 443 | DD390 LD 3 8 COMPUTE LINE ADDR 2-8 J0504430
423D E2D6 444 | AND 2 DD998-X J0504440
423E 92C5 445 | S 2 DD979-X J0504450
423F D2A7 446 | STO 2 DD952-X STORE LINE ADDRESS J0504460
4240 C308 447 | LD 3 8 J0504470
4241 D2A3 448 | STO 2 DD948-X SET CORE IMAGE SWITCH J0504480
4242 E2C4 449 | AND 2 DD978-X J0504490
4243 D2A1 450 | STO 2 DD946-X STORE NUMBER OF BLANKS J0504500
4244 4400 44B6 451 | BSI L XL000 PLACE ON PRINTER J0504510
4246 C2AA 452 | LD 2 DD955-X LOAD WS SWITCH J0504520
4247 4420 4307 453 | BSI L XW000,Z BRANCH TO PLACE IN WS J0504530
454 | * J0504540
455 | * SET THE NEW BLOCK SIZE FOR PRINTED OUTPUT J0504550
456 | * J0504560
4249 C2C5 457 | LD 2 DD979-X J0504570
424A D2A4 458 | STO 2 DD949-X LINES PER BLOCK = 16 J0504580
424B 70CC 459 | MDX DD340 BRANCH J0504590
460 | * J0504600
461 | * THE MAIN SUBROUTINE DRIVER J0504610
462 | * J0504620
424C 406B 463 | DD400 BSI XG000 GET DATA FROM DISK 2-8 J0504630
424D C2AA 464 | LD 2 DD955-X LOAD WORKING STORAGE SWITCH J0504640
424E 4420 4307 465 | BSI L XW000,Z BRANCH TO PLACE IN WS J0504650
4250 C2AB 466 | LD 2 DD956-X LOAD PRINT SWITCH J0504660
4251 4420 44B6 467 | BSI L XL000,Z BRANCH TO PLACE ON PRINTER J0504670
4253 C2AC 468 | LD 2 DD957-X LOAD PUNCH SWITCH J0504680
4254 4420 4336 469 | BSI L XF000,Z BRANCH TO PLACE ON PUNCH J0504690
4256 C289 470 | LD 2 DD922-X TEST INDICATOR WORD J0504700
4257 92BE 471 | S 2 DD972-X J0504710
4258 4C20 424C 472 | BSC L DD400,Z BRANCH IF NOT DONE J0504720
473 | * J0504730
474 | * TEST TO SEE IF PUNCH FUNCTION J0504740
475 | * J0504750
425A C2AC 476 | LD 2 DD957-X J0504760
425B 4C18 4263 477 | BSC L DD410,+- BRANCH IF NOT PUNCHING J0504770
478 | * J0504780
479 | * READ IN I/O BLOCK (PHASE 15) J0504790
480 | * J0504800
425D 6700 7A06 481 | LDX L3 IOADR POINT AT IOAR HDR J0504810
425F C904 482 | LDD 1 PIHDR+2 J0504820
4260 DB00 483 | STD 3 0 SET IOAR HDR J0504830
4261 4480 7DB3 484 | BSI I GET GET PRINCIPAL I/O J0504840
485 | * J0504850
486 | * TEST TO SEE IF DATA IS LEFT IN WORKING STORAGE J0504860
487 | * J0504870
4263 C2B6 488 | DD410 LD 2 DD967-X LOAD FROM WS SWITCH J0504880
4264 4C20 4277 489 | BSC L DD440,Z BRANCH IF FROM WS J0504890
4266 C131 490 | LD 1 WSSW LOAD WS SWITCH J0504900
4267 4C20 426C 491 | BSC L DD420,Z BRANCH IF DUMP TO WS J0504910
4269 C115 492 | LD 1 DATSW LOAD DATA SWITCH J0504920
426A 4C20 4277 493 | BSC L DD440,Z BRANCH IF WS NOT USED J0504930
494 | * J0504940
495 | * INDICATE THE CHARACTER OF WORKING STORAGE J0504950
496 | * J0504960
426C C184 497 | DD420 LD 1 #NAME LOAD NAME INDICATOR BITS J0504970
426D 188E 498 | SRT 14 FORM -1 OR ZERO J0504980
426E 4804 499 | BSC E SKIP IF DSF OR DCI J0504990
426F 180F 500 | SRA 15 FORM +1 FOR DDF J0505000
4270 6780 4610 501 | LDX I3 DD963 LOAD TO DRIVE J0505010
4272 D700 7F66 502 | STO L3 #FMAT+C INDICATE WS FORMAT J0505020
4274 C2B4 503 | LD 2 DD965-X J0505030
4275 D700 7F75 504 | STO L3 #WSCT+C STORE WS DB COUNT J0505040
505 | * J0505050
506 | * FORMAT THE EXITING MESSAGE J0505060
507 | * J0505070
4277 6780 4611 508 | DD440 LDX I3 DD964 LOAD FROM DRIVE J0505080
4279 C700 7F57 509 | LD L3 #CIDN+C J0505090
427B 4480 7DB0 510 | BSI I BINEB J0505100
427D C92C 511 | LDD 1 TEMP1 J0505110
427E D827 512 | STD DD898+5 STORE CARTRIDGE ID J0505120
427F C2B5 513 | LD 2 DD966-X J0505130
4280 4480 7DB0 514 | BSI I BINEB J0505140
4282 C92C 515 | LDD 1 TEMP1 J0505150
4283 D029 516 | STO DD898+12 STORE DB ADDRESS (1ST) J0505160
4284 18D0 517 | RTE 16 J0505170
4285 D028 518 | STO DD898+13 STORE DB ADDRESS (2ND) J0505180
519 | * 2-3 J0505190
4286 C128 520 | LD 1 PTSW 2-3 J0505200
4287 4C18 4293 521 | BSC L DD445,+- BR IF NOT TO PAPER TAPE 2-3 J0505210
4289 C82C 522 | LDD DD89X GET .RCD . 2-3 J0505220
428A D825 523 | STD DD898+15 MODIFY MESSAGE 2-3 J0505230
524 | * 2-3 J0505240
428B C2B4 525 | LD 2 DD965-X GET DB COUNT 2-3 J0505250
428C A2C7 526 | M 2 DD982-X CALC. # OF WORDS 2-12 J0505260
428D 8AD8 527 | AD 2 DD99A-X INCR TO NEXT REC,IF NEC2-12 J0505265
428E AAC9 528 | D 2 DD984-X DIVIDE BY # WDS/REC 2-12 J0505270
428F D2B4 529 | STO 2 DD965-X SAVE TEMP 2-9 J0505280
4290 C29F 530 | LD 2 DD944-X GET CARD SEQ CNT 2-9 J0505285
4291 92BC 531 | S 2 DD970-X IF NON ZERO USE FOR 2-9 J0505290
4292 4808 532 | BSC + *RCD CNT, ELSE USE SAVE 2-9 J0505300
4293 C2B4 533 | DD445 LD 2 DD965-X GET DB COUNT 2-3 J0505310
4294 4480 7DB0 534 | DD446 BSI I BINEB J0505320
4296 C92C 535 | LDD 1 TEMP1 J0505330
4297 D81C 536 | STD DD898+19 STORE DB COUNT J0505340
537 | * J0505350
538 | * PRINT THE EXITING MESSAGE J0505360
539 | * J0505370
4298 4480 7DBB 540 | BSI I PRINT BRANCH TO PRINT MESSAGE J0505380
429A 42A1 541 | DC DD898 J0505390
542 | * J0505400
543 | * RESTORE PAGE IF DUMP TO PRINTER J0505410
544 | * J0505420
429B C2AB 545 | LD 2 DD956-X LOAD PRINT SWITCH J0505430
429C 44A0 7DB8 546 | BSI I PAGE,Z BRANCH TO RESTORE PAGE J0505440
547 | * J0505450
548 | * EXIT FROM DUMP PROGRAM J0505460
549 | * J0505470
429E 4480 7DBD 550 | BSI I REST RETURN TO DUP CONTROL J0505480
551 | * J0505490
552 | * EXIT MESSAGE J0505500
553 | * J0505510
42A0 0000 554 | DC *-* J0505520
42A2 555 | BSS E 0 J0505530
42A1 556 | ORG *-1 J0505540
42A1 0014 557 | DD898 DC DD899-* WORD COUNT J0505550
42A2 C3C1 D9E3 40C9 C440 558 | EBC .CART ID XXXX DB ADDR XXXX DB CN. J0505560
E7E7 E7E7 4040 C4C2 |
40C1 C4C4 D940 E7E7 |
E7E7 4040 40C4 C240 |
C3D5 |
42B3 E340 E7E7 E7E7 559 | EBC .T XXXX. J0505570
42B6 560 | DD899 EQU * END OF MESSAGE J0505580
42B6 D9C3 C440 561 | DD89X EBC .RCD . FOR PAPER TAPE MESSAGE 2-3 J0505590
DUMP-GET DATA FROM DISK TO DUMP
563 | *************************************************** J0505610
564 | * * J0505620
565 | *FUNCTION- * J0505630
566 | * *THIS SUBROUTINE GETS A SECTOR FROM THE DISK * J0505640
567 | * AND PLACES IT IN A BUFFER, AND HANDS OUT THE * J0505650
568 | * WORDS FROM THE SECTOR ALONG WITH AN INDICATOR* J0505660
569 | * TELLING THE TYPE OF WORD IT IS. * J0505670
570 | * * J0505680
571 | *ENTRY POINTS- * J0505690
572 | * *XG000-PLACES THE DATA WORD IN DD921 AND THE * J0505700
573 | * TYPE OF DATA IN DD922 * J0505710
574 | * * J0505720
575 | *INPUT- * J0505730
576 | * *THIS SUBROUTINE READ SECTORS FROM THE USERS * J0505740
577 | * AREA, FIXED AREA, OR WORKING STORAGE OF THE * J0505750
578 | * DISK SPECIFIED IN THE FROM FIELD OF * J0505760
579 | * THE DUP CONTROL RECORD. * J0505770
580 | * * J0505780
581 | *OUTPUT- * J0505790
582 | * *N/A * J0505800
583 | * * J0505810
584 | *EXTERNAL REFERANCES- * J0505820
585 | * *DD921-THIS WORD HOLDS THE DATA WORD THAT IS * J0505830
586 | * BEING GIVEN OUT. * J0505840
587 | * INITIALIZED BY THIS SUBROUTINE. * J0505850
588 | * * J0505860
589 | * *DD922-THIS WORD TELLS THE TYPE OF DATA THAT * J0505870
590 | * DD921 IS. * J0505880
591 | * 0 = DATA WORD. * J0505890
592 | * 1 = INDICATOR WORD (IF DSF). * J0505900
593 | * 2 = PROGRAM HEADER WORD (IF DSF). * J0505910
594 | * 3 = LAST WORD OF DATA. * J0505920
595 | * INITIALIZED BY THIS SUBROUTINE. * J0505930
596 | * * J0505940
597 | * *DD923-THIS WORD INDICATES IF THE FUNCTION IS * J0505950
598 | * BY WORD COUNT. * J0505960
599 | * 0 = NOT BY WORD COUNT. * J0505970
600 | * NOT 0 = BY WORD COUNT. * J0505980
601 | * INITIALIZED BY DUMP MAINLINE. * J0505990
602 | * * J0506000
603 | * *GET -THIS SUBR IN DUPCO READS THE BUFFER * J0506010
604 | * FROM THE DISK. * J0506020
605 | * * J0506030
606 | *EXITS-NORMAL- * J0506040
607 | * *THE NORMAL EXIT IS TO THE WORD FOLLOWING THE * J0506050
608 | * BSI INSTRUCTION THAT CALLED THIS SUBROUTINE. * J0506060
609 | * * J0506070
610 | *EXITS-ERRORS- * J0506080
611 | * *N/A * J0506090
612 | * * J0506100
613 | *TABLES/WORK AREAS- * J0506110
614 | * *DD900-THIS IS A DOUBLE WORD THAT HOLDS THE * J0506120
615 | * WORD COUNT IF THE DUMP FUNCTION IS BY WORD * J0506130
616 | * COUNT. * J0506140
617 | * INITIALIZED BY DUMP MAINLINE. * J0506150
618 | * MAINTAINED BY THIS SUBROUTINE. * J0506160
619 | * * J0506170
620 | * *DD924-THIS WORD IS A SWITCH THAT TELLS WHEN * J0506180
621 | * TO READ SOME MORE DATA FROM THE DISK. * J0506190
622 | * 0 = READ IN NEXT SECTOR. * J0506200
623 | * NOT 0 # SECTOR IS IN CORE. * J0506210
624 | * INITIALIZED BY DUMP MAINLINE. * J0506220
625 | * MAINTAINED BY THIS SUBROUTINE. * J0506230
626 | * * J0506240
627 | * *DD925-THIS WORD HOLDS THE ADDRESS OF THE NEXT* J0506250
628 | * WORD TO BE GIVEN. * J0506260
629 | * INITIALIZED BY DUMP MAINLINE. * J0506270
630 | * MAINTAINED BY THIS SUBROUTINE. * J0506280
631 | * * J0506290
632 | * *DD926-THIS WORD HOLDS THE COUNT OF THE * J0506300
633 | * NUMBER OF WORDS STILL PRESENT IN THE BUFFER. * J0506310
634 | * INITIALIZED BY DUMP MAINLINE * J0506320
635 | * MAINTAINED BY THIS SUBROUTINE. * J0506330
636 | * * J0506340
637 | * *DD927-THIS WORD HOLDS THE COUNT OF THE * J0506350
638 | * NUMBER OF WORDS TO THE NEXT PROGRAM HEADER * J0506360
639 | * IF THE DUMP FUNCTION IS NOT BY WORD COUNT. * J0506370
640 | * INITIALIZED BY DUMP MAINLINE. * J0506380
641 | * MAINTAINED BY THIS SUBROUTINE. * J0506390
642 | * * J0506400
643 | * *DD928-THIS WORD IS A SWITCH TO INDICATE IF * J0506410
644 | * THE NEXT PROGRAM HEADER WORD IS THE FIRST OR * J0506420
645 | * SECOND WORD OF A PROGRAM HEADER IF THE DUMP * J0506430
646 | * FUNCTION IS NOT BY WORD COUNT. * J0506440
647 | * 0 = NEXT IS FIRST WORD. * J0506450
648 | * NOT 0 = NEXT IS SECOND WORD. * J0506460
649 | * INITIALIZED BY DUMP MAINLINE. * J0506470
650 | * MAINTAINED BY THIS SUBROUTINE. * J0506480
651 | * * J0506490
652 | * *DD929-THIS WORD HOLDS THE COUNT OF THE * J0506500
653 | * NUMBER OF WORDS TO THE NEXT INDICATOR WORD IF* J0506510
654 | * THE DUMP FUNCTION IS NOT BY WORD COUNT * J0506520
655 | * MAINTAINED BY THIS SUBROUTINE. * J0506530
656 | * * J0506540
657 | * *LETAR-THIS WORD HOLDS THE ADDRESS OF A 322 * J0506550
658 | * WORD BUFFER THAT IS USED TO HOLD THE DATA * J0506560
659 | * FROM THE DISK. THIS WORD IS LOCATED IN DUPCO.* J0506570
660 | * IOAR HEADER INITIALIZED BY DUMP MAINLINE. * J0506580
661 | * MAINTAINED BY THIS SUBROUTINE. * J0506590
662 | * * J0506600
663 | *NOTES- * J0506610
664 | * *THE CALLING SEQUENCE TO THIS ROUTINE IS A * J0506620
665 | * BSI INSTRUCTION TO IT. * J0506630
666 | * * J0506640
667 | * *INDEX REGISTER 1 POINTS TO THE LABEL C IN * J0506650
668 | * DUPCO. * J0506660
669 | * * J0506670
670 | * *INDEX REGISTER 2 POINTS TO THE LABEL X IN THE* J0506680
671 | * MIDDLE OF DUMPS CONSTANTS AND WORKING STORAGE* J0506690
672 | * AREA. * J0506700
673 | * * J0506710
674 | * *INDEX REGISTER 3 IS USED AS A WORKING * J0506720
675 | * REGISTER SO THE CONTENTS ARE DESTROYED. * J0506730
676 | * * J0506740
677 | *************************************************** J0506750
DUMP-GET DATA FROM DISK TO DUMP
679 | * J0506770
680 | * ENTRY POINT J0506780
681 | * J0506790
42B8 0000 682 | XG000 DC *-* LINK WORD J0506800
683 | * J0506810
684 | * CHECK TO SEE IF THE SECTOR IS IN CORE J0506820
685 | * J0506830
42B9 C28B 686 | LD 2 DD924-X LOAD IN CORE SWITCH J0506840
42BA 4C20 42C7 687 | BSC L XG100,Z BRANCH IF SECTOR IN CORE J0506850
688 | * J0506860
689 | * READ IN THE NEXT SECTOR FROM DISK J0506870
690 | * J0506880
42BC 6780 7FFC 691 | LDX I3 LETAR+C REGISTER 3 POINTS AT BUFFER J0506890
42BE 4480 7DB3 692 | BSI I GET LINK TO GET DISK SECTOR J0506900
42C0 6780 7FFC 693 | LDX I3 LETAR+C REGISTER 3 POINTS AT BUFFER J0506910
42C2 C301 694 | LD 3 1 J0506920
42C3 82BC 695 | A 2 DD970-X J0506930
42C4 D301 696 | STO 3 1 INCREMENT SECTOR ADDRESS J0506940
42C5 6C00 45E9 697 | STX L0 DD924 INDICATE SECTOR IS IN CORE J0506950
698 | * J0506960
699 | * MOVE DATA WORD FROM SECTOR J0506970
700 | * J0506980
42C7 C480 45EA 701 | XG100 LD I DD925 J0506990
42C9 D288 702 | STO 2 DD921-X SAVE WORD FROM SECTOR J0507000
42CA 7401 45EA 703 | MDX L DD925,1 INCREMENT GET ADDRESS J0507010
704 | * J0507020
705 | * DECREMENT NUMBER OF WORDS LEFT IN BUFFER J0507030
706 | * J0507040
42CC 74FF 45EB 707 | MDX L DD926,-1 DECREMENT WORD COUNT J0507050
42CE 7007 708 | MDX XG120 BRANCH IF WORD COUNT NOT 0 J0507060
709 | * J0507070
710 | * INDICATE THAT A NEW SECTOR MUST BE READ J0507080
711 | * J0507090
42CF 1010 712 | SLA 16 J0507100
42D0 D28B 713 | STO 2 DD924-X SET IN CORE SWITCH TO 0 J0507110
714 | * J0507120
715 | * INITIALIZE TO READ A NEW SECTOR J0507130
716 | * J0507140
42D1 C2CE 717 | LD 2 DD989-X J0507150
42D2 D28D 718 | STO 2 DD926-X WORDS PER SECTOR COUNT J0507160
42D3 C15C 719 | LD 1 LETAR J0507170
42D4 82BD 720 | A 2 DD971-X J0507180
42D5 D28C 721 | STO 2 DD925-X POINTER AT START OF BUFFER J0507190
722 | * J0507200
723 | * TEST TO SEE IF DATA IS TO BE OBTAINED BY WORD J0507210
724 | * COUNT J0507220
725 | * J0507230
42D6 C28A 726 | XG120 LD 2 DD923-X TEST WORD COUNT FUNCTION J0507240
42D7 4C18 42E1 727 | BSC L XG140,+- BRANCH IF NOT J0507250
728 | * J0507260
729 | * DECREMENT THE DOUBLE WORD WORD COUNT OF DATA TO J0507270
730 | * BE DUMPED BY 1 J0507280
731 | * J0507290
42D9 CA80 732 | LDD 2 DD900-X J0507300
42DA 9AB8 733 | SD 2 DD968-X J0507310
42DB DA80 734 | STD 2 DD900-X SAVE ADJUSTED WORD COUNT J0507320
735 | * J0507330
736 | * TEST TO SEE IF THE WORD COUNT HAS BEEN J0507340
737 | * SATISFIED J0507350
738 | * J0507360
42DC 4818 739 | BSC +- SKIP IF NOT FINISHED J0507370
42DD 18D0 740 | RTE 16 CHECK Q REGISTER J0507380
42DE 4C18 42F8 741 | BSC L XG180,+- BRANCH IF LAST WORD J0507390
42E0 7022 742 | MDX XG220 BRANCH J0507400
743 | * J0507410
744 | * DECREMENT THE COUNT OF WORDS TO NEXT HEADER J0507420
745 | * J0507430
42E1 74FF 45EC 746 | XG140 MDX L DD927,-1 DECREMENT COUNT TO HEADER J0507440
42E3 7017 747 | MDX XG200 BRANCH IF WORD COUNT NOT 0 J0507450
748 | * J0507460
749 | * TEST TO SEE IF FIRST OR SECOND WORD OF HEADER J0507470
750 | * BEING PROCESSED J0507480
751 | * J0507490
42E4 C28F 752 | LD 2 DD928-X LOAD HEADER SWITCH J0507500
42E5 4C20 42EF 753 | BSC L XG160,Z BRANCH IF 2ND HEADER WORD J0507510
754 | * J0507520
755 | * INDICATE THAT THE FIRST WORD OF THE HEADER J0507530
756 | * HAS BEEN PROCESSED J0507540
757 | * J0507550
42E7 6C00 45ED 758 | STX L0 DD928 SET 2ND WORD SWITCH NOT = 0 J0507560
759 | * J0507570
760 | * INITIALIZE LENGTH OF HEADER WORD COUNT AND THE J0507580
761 | * WORD COUNT TO FETCH NEXT INDICATOR WORD J0507590
762 | * J0507600
42E9 C2BC 763 | LD 2 DD970-X J0507610
42EA D28E 764 | STO 2 DD927-X NEXT HEADER WORD COUNT = 1 J0507620
42EB D290 765 | STO 2 DD929-X NEXT INDICATOR COUNT = 1 J0507630
766 | * J0507640
767 | * INDICATE THAT THE PRESENT WORD IS PART OF A J0507650
768 | * PROGRAM HEADER J0507660
769 | * J0507670
42EC C2BD 770 | LD 2 DD971-X J0507680
42ED D289 771 | STO 2 DD922-X TYPE = 2 (PROGRAM HEADER) J0507690
42EE 7016 772 | MDX XG240 BRANCH J0507700
773 | * J0507710
774 | * TEST TO SE IF THIS IS THE END OF PROGRAM J0507720
775 | * HEADER J0507730
776 | * J0507740
42EF C288 777 | XG160 LD 2 DD921-X LOAD WORD FROM SECTOR J0507750
42F0 4C18 42F8 778 | BSC L XG180,+- BRANCH IF LAST HEADER J0507760
779 | * J0507770
780 | * PLACE THE WORD COUNT TO THE NEXT PROGRAM HEADER J0507780
781 | * J0507790
42F2 C288 782 | LD 2 DD921-X LOAD LENGTH FROM HEADER J0507800
42F3 92BC 783 | S 2 DD970-X SUBTRACT 1 FOR HEADER WORDS J0507810
42F4 D28E 784 | STO 2 DD927-X STORE COUNT TO NEXT HEADER J0507820
785 | * J0507830
786 | * INDICATE THAT NEXT HEADER WORD INCOUNTERED IS J0507840
787 | * THE FIRST ONE OF A NEW HEADER J0507850
788 | * J0507860
42F5 1010 789 | SLA 16 J0507870
42F6 D28F 790 | STO 2 DD928-X SET 2ND WORD SWITCH = 0 J0507880
42F7 700D 791 | MDX XG240 BRANCH J0507890
792 | * J0507900
793 | * INDICATE THE PRESENT WORD IS LAST WORD OF J0507910
794 | * PROGRAM J0507920
795 | * J0507930
42F8 C2BE 796 | XG180 LD 2 DD972-X J0507940
42F9 D289 797 | STO 2 DD922-X TYPE = 3 (END OF PROGRAM) J0507950
42FA 700A 798 | MDX XG240 BRANCH J0507960
799 | * J0507970
800 | * DECREMENT THE WORD COUNT TO THE NEXT INDICATOR J0507980
801 | * WORD J0507990
802 | * J0508000
42FB 74FF 45EE 803 | XG200 MDX L DD929,-1 DECREMENT WORD COUNT J0508010
42FD 7005 804 | MDX XG220 BRANCH IF WORD COUNT NOT =0 J0508020
805 | * J0508030
806 | * INDICATE THAT WORD IS AN INDICATOR WORD J0508040
807 | * J0508050
42FE C2BC 808 | LD 2 DD970-X J0508060
42FF D289 809 | STO 2 DD922-X TYPE = 1 (INDICATOR WORD) J0508070
810 | * J0508080
811 | * INITIALIZE THE WORD COUNT TO THE NEXT INDICATOR J0508090
812 | * WORD J0508100
813 | * J0508110
4300 C2C2 814 | LD 2 DD976-X J0508120
4301 D290 815 | STO 2 DD929-X INDICATOR WORD COUNT = 9 J0508130
4302 7002 816 | MDX XG240 BRANCH J0508140
817 | * J0508150
818 | * INDICATE THAT THE WORD IS A DATA WORD J0508160
819 | * J0508170
4303 1010 820 | XG220 SLA 16 J0508180
4304 D289 821 | STO 2 DD922-X TYPE = 0 (DATA WORD) J0508190
822 | * J0508200
823 | * RETURN TO THE CALLING PROGRAM J0508210
824 | * J0508220
4305 4C80 42B8 825 | XG240 BSC I XG000 RETURN J0508230
826 | *************************************************** J0508240
827 | * * J0508250
828 | * END OF SOURCE * J0508260
829 | * * J0508270
830 | *************************************************** J0508280
DUMP-PLACE DATA IN WORKING STORAGE
832 | *************************************************** J0508300
833 | * * J0508310
834 | *FUNCTION- * J0508320
835 | * *THIS SUBROUTINE COLLECTS DATA WORDS INTO A * J0508330
836 | * BUFFER TO BE PLACED IN WORKING STORAGE ON THE* J0508340
837 | * SPECIFIED DRIVE. * J0508350
838 | * * J0508360
839 | *ENTRY POINT- * J0508370
840 | * *XW000-TAKES THE DATA FROM DD921 AND PLACES IT* J0508380
841 | * IN A BUFFER TO WRITE INTO WORKING STORAGE. * J0508390
842 | * * J0508400
843 | *INPUT- * J0508410
844 | * *N/A * J0508420
845 | * * J0508430
846 | *OUTPUT- * J0508440
847 | * *THIS SUBROUTINE WRITES SECTORS OF DATA TO * J0508450
848 | * WORKING STORAGE ON THE SPECIFIED DRIVE. * J0508460
849 | * * J0508470
850 | *EXTERNAL REFERANCES- * J0508480
851 | * *DD921-THIS WORD HOLDS THE DATA WORD THAT IS * J0508490
852 | * TO BE PLACED IN THE BUFFER AND ON THE DISK. * J0508500
853 | * INITIALIZED BY XG000. * J0508510
854 | * * J0508520
855 | * *DD922-THIS WORD INDICATES THE TYPE ON DD921. * J0508530
856 | * IF DD922 IS EQUAL TO 3 THEN DD921 IS THE * J0508540
857 | * LAST WORD OF THE DATA. * J0508550
858 | * INITIALIZED BY XG000. * J0508560
859 | * * J0508570
860 | * *PUT -THIS SUBR IN DUPCO WRITES THE * J0508580
861 | * BUFFER ON THE DISK. * J0508590
862 | * * J0508600
863 | *EXITS-NORMAL- * J0508610
864 | * *THE NORMAL EXIT IS TO THE WORD FOLLOWING THE * J0508620
865 | * BSI INSTRUCTION THAT CALLED THIS SUBROUTINE. * J0508630
866 | * * J0508640
867 | *EXITS-ERRORS- * J0508650
868 | * *N/A * J0508660
869 | * * J0508670
870 | *TABLES/WORK AREAS- * J0508680
871 | * *DD930-THIS WORD HOLDS THE COUNT OF THE * J0508690
872 | * NUMBER WORDS STILL UNFILLED IN THE BUFFER. * J0508700
873 | * INITIALIZED BY DUMP MAINLINE. * J0508710
874 | * MAINTAINED BY THIS SUBROUTINE. * J0508720
875 | * * J0508730
876 | * *DD931-THIS WORD HOLDS THE ADDRESS OF THE NEXT* J0508740
877 | * WORD IN THE BUFFER TO RECEIVE THE DATA FROM * J0508750
878 | * DD921. * J0508760
879 | * INITIALIZED BY DUMP MAINLINE. * J0508770
880 | * MAINTAINED BY THIS SUBROUTINE. * J0508780
881 | * * J0508790
882 | * *SDBUF-THIS WORD HOLDS THE ADDRESS OF A 322 * J0508800
883 | * WORD BUFFER THAT IS USED TO HOLD THE DATA * J0508810
884 | * GOING TO THE DISK. THIS WORD IS LOCATED IN * J0508820
885 | * DUPCO. * J0508830
886 | * IOAR HEADER INITIALIZED BY DUMP MAINLINE. * J0508840
887 | * MAINTAINED BY THIS SUBROUTINE. * J0508850
888 | * * J0508860
889 | *NOTES- * J0508870
890 | * *THE CALLING SEQUENCE TO THIS ROUTINE IS A * J0508880
891 | * BSI INSTRUCTION TO IT. * J0508890
892 | * * J0508900
893 | * *INDEX REGISTER 1 POINTS AT THE LABEL C IN * J0508910
894 | * DUPCO. * J0508920
895 | * * J0508930
896 | * *INDEX REGISTER 2 POINTS AT THE LABEL X IN THE* J0508940
897 | * MIDDLE OF DUMPS CONSTANTS AND WORKING STORAGE* J0508950
898 | * AREA. * J0508960
899 | * * J0508970
900 | * *INDEX REGISTER 3 IS USED AS A WORKING * J0508980
901 | * REGISTER SO THE CONTENTS ARE DESTROYED. * J0508990
902 | * * J0509000
903 | *************************************************** J0509010
DUMP-PLACE DATA IN WORKING STORAGE
905 | * J0509030
906 | * ENTRY POINT J0509040
907 | * J0509050
4307 0000 908 | XW000 DC *-* LINK WORD J0509060
909 | * J0509070
910 | * PLACE WORD IN BUFFER TO PLACE IN WORKING J0509080
911 | * STORAGE. J0509090
912 | * J0509100
4308 C288 913 | LD 2 DD921-X LOAD WORD TO PLACE IN WS J0509110
4309 D480 45F0 914 | STO I DD931 STORE IN BUFFER J0509120
430B 7401 45F0 915 | MDX L DD931,1 INCREMENT ADDRESS BY 1 J0509130
916 | * J0509140
917 | * TEST TO SEE IF ALL DATA HAS BEEN TRANSFERED J0509150
918 | * J0509160
430D C289 919 | LD 2 DD922-X LOAD DATA TYPE WORD J0509170
430E 92BE 920 | S 2 DD972-X CHECK FOR END OF DATA J0509180
430F 4C18 4314 921 | BSC L XW050,+- BR TO WRITE LAST SCTR 2-4 J0509190
922 | * J0509200
923 | * CHECK TO SEE IF THE BUFFER IS FULL J0509210
924 | * J0509220
4311 74FF 45EF 925 | MDX L DD930,-1 DECREMENT WORD COUNT J0509230
4313 7020 926 | MDX XW120 BRANCH IF WORD COUNT NOT 0 J0509240
4314 6780 7FFB 927 | XW050 LDX I3 SDBUF+C REGISTER 3 POINTS AT BUFFER J0509250
4316 C287 928 | LD 2 DD920-X J0509260
4317 4C20 4326 929 | BSC L XW100,Z BRANCH IF NOT 1ST FULL BFR J0509270
4319 6C00 45E5 930 | STX L0 DD920 SET FIRST BFR FULL SW J0509280
931 | * J0509290
932 | * CHECK TO SEE IF A DSF PROGRAM J0509300
933 | * J0509310
431B C184 934 | LD 1 #NAME CHECK TYPE OF UA/FXA ENTRY J0509320
431C 4808 935 | BSC + SKIP IF DSF 2-4 J0509330
431D 7008 936 | MDX XW100 J0509340
937 | * * J0509350
938 | * CHECK TO SEE IF MAINLINE PROGRAM * J0509360
939 | * * J0509370
431E C304 940 | LD 3 +4 J0509380
431F 1808 941 | SRA 8 SHIFT TO CK IF TYPE 2 2-4 J0509390
4320 92BD 942 | S 2 DD971-X J0509400
4321 4C30 4326 943 | BSC L XW100,-Z BRANCH IF NOT A MAINLINE J0509410
944 | * * J0509420
945 | * CLEAR MAINLINE NAME IN HEADER * J0509430
946 | * * J0509440
4323 1010 947 | SLA 16 J0509450
4324 D30B 948 | STO 3 +11 WORD 1 OF NAME J0509460
4325 D30C 949 | STO 3 +12 WORD 2 OF NAME J0509470
950 | * J0509480
951 | * WRITE THE BUFFER TO WORKING STORAGE J0509490
952 | * J0509500
4326 6780 7FFB 953 | XW100 LDX I3 SDBUF+C REGISTER 3 POINTS AT BUFFER J0509510
4328 4480 7DBC 954 | BSI I PUT LINK TO PLACE ON DISK J0509520
432A 6780 7FFB 955 | LDX I3 SDBUF+C REGISTER 3 POINTS AT BUFFER J0509530
432C C301 956 | LD 3 1 J0509540
432D 82BC 957 | A 2 DD970-X J0509550
432E D301 958 | STO 3 1 INCREMENT SECTOR ADDRESS J0509560
959 | * J0509570
960 | * INITIALIZE TO CREATE NEXT BUFFER J0509580
961 | * J0509590
432F C15B 962 | LD 1 SDBUF J0509600
4330 82BD 963 | A 2 DD971-X J0509610
4331 D292 964 | STO 2 DD931-X POINTER AT START OF BUFFER J0509620
4332 C2CE 965 | LD 2 DD989-X J0509630
4333 D291 966 | STO 2 DD930-X WORD PER SECTOR COUNT J0509640
967 | * J0509650
968 | * RETURN TO CALLING PROGRAM J0509660
969 | * J0509670
4334 4C80 4307 970 | XW120 BSC I XW000 RETURN J0509680
971 | *************************************************** J0509690
972 | * * J0509700
973 | * END OF SOURCE * J0509710
974 | * * J0509720
975 | *************************************************** J0509730
DUMP-FORMAT THE PUNCHED OUTPUT
977 | *************************************************** J0509750
978 | * * J0509760
979 | *FUNCTION- * J0509770
980 | * *THIS SUBROUTINE FORMATS THE DATA INTO PUNCHED* J0509780
981 | * OUTPUT RECORDS AND CALLS XP000 OR XP001 TO * J0509790
982 | * OUTPUT THE RECORDS. IF THE DUMP FUNCTION IS * J0509800
983 | * BY WORD COUNT THE RECORDS ARE FORMATED INTO * J0509810
984 | * THE DATA FORMAT, AND IF NOT THE RECORDS ARE * J0509820
985 | * FORMATED INTO RELOCATABLE OBJECT DECKS. * J0509830
986 | * * J0509840
987 | *ENTRY POINTS- * J0509850
988 | * *XF000-THIS ROUTINE FORMATS THE PUNCHED OUTPUT* J0509860
989 | * AND DIRECTS ITS PUNCHING. * J0509870
990 | * * J0509880
991 | *INPUT- * J0509890
992 | * *N/A * J0509900
993 | * * J0509910
994 | *OUTPUT- * J0509920
995 | * *THIS ROUTINE DIRECTS RECORDS TO BE PUNCHED ON* J0509930
996 | * ETHER CARDS OR PAPER TAPE. * J0509940
997 | * * J0509950
998 | *EXTERNAL REFERANCES- * J0509960
999 | * *DD921-THIS WORD HOLDS THE DATA THAT IS TO BE * J0509970
1000 | * PLACED IN THE PUNCHED OUTPUT RECORDS. * J0509980
1001 | * INITIALIZED BY XG000. * J0509990
1002 | * * J0510000
1003 | * *DD922-THIS WORD HOLDS THE TYPE OF DATA THAT * J0510010
1004 | * IS IN DD921. * J0510020
1005 | * 0 = DATA WORD. * J0510030
1006 | * 1 = INDICATOR WORD (IF DSF). * J0510040
1007 | * 2 = PROGRAM HEADER WORD (IF DSF). * J0510050
1008 | * 3 = LAST WORD OF DATA. * J0510060
1009 | * INITIALIZED BY XG000. * J0510070
1010 | * * J0510080
1011 | * *DD923-THIS WORD INDICATES IF THE FUNCTION IS * J0510090
1012 | * BY WORD OUTPUT. * J0510100
1013 | * 0 = NOT BY WORD COUNT. * J0510110
1014 | * NOT 0 = BY WORD COUNT. * J0510120
1015 | * INITIALIZED BY DUMP MAINLINE. * J0510130
1016 | * * J0510140
1017 | * *DD936-THIS WORD HOLDS THE ADDRESS THAT IS TO * J0510150
1018 | * BE PLACED IN THE NEXT RECORD TO BE PUNCHED * J0510160
1019 | * IF THE DUMP FUNCTION IS NOT BY WORD COUNT. * J0510170
1020 | * MAINTAINED BY THIS SUBROUTINE. * J0510180
1021 | * * J0510190
1022 | * *DD942-THIS WORD HOLDS THE EXECUTION ADDRESS * J0510200
1023 | * OF THE PROGRAM IF THE DUMP FUNCTION IS NOT BY* J0510210
1024 | * WORD COUNT. * J0510220
1025 | * INITIALIZE BY DUMP MAINLINE. * J0510230
1026 | * * J0510240
1027 | * *XP000-THIS ROUTINE IN DUMP PUNCHS * J0510250
1028 | * DATA FORMATED OUTPUT ON THE DEVICE SPECIFIED.* J0510260
1029 | * * J0510270
1030 | * *XP001-THIS ROUTINE IN DUMP PUNCHS RELOCATABLE* J0510280
1031 | * FORMATED OUTPUT ON THE DEVICE SPECIFIED. * J0510290
1032 | * * J0510300
1033 | *EXITS-NORMAL- * J0510310
1034 | * *THE NORMAL EXIT IS TO THE WORD FOLLOWING THE * J0510320
1035 | * BSI INSTRUCTION THAT CALLED THIS SUBROUTINE. * J0510330
1036 | * * J0510340
1037 | *EXITS-ERRORS- * J0510350
1038 | * *N/A * J0510360
1039 | * * J0510370
1040 | *TABLES/WORK AREAS- * J0510380
1041 | * *DD932-THIS WORD HOLDS THE 8 SETS OF INDICATOR* J0510390
1042 | * BITS FOR A BLOCK OF 8 DATA WORDS IF DUMP * J0510400
1043 | * FUNCTION IS NOT BY WORD COUNT. * J0510410
1044 | * MAINTAINED BY THIS SUBROUTINE. * J0510420
1045 | * * J0510430
1046 | * *DD933-THIS WORD HOLDS THE SHIFT COUNT NEEDED * J0510440
1047 | * TO GET THE NEXT SET OF INDICATOR BITS FROM * J0510450
1048 | * DD932 IF THE DUMP FUNCTION IS NOT BY WORD * J0510460
1049 | * COUNT. * J0510470
1050 | * MAINTAINED BY THIS SUBROUTINE. * J0510480
1051 | * * J0510490
1052 | * *DD934-THIS WORD IS A SWITCH TO INDICATE IF * J0510500
1053 | * THE NEXT PROGRAM HEADER WORD IS THE FIRST OR * J0510510
1054 | * SECOND WORD OF A PROGRAM HEADER IF THE DUMP * J0510520
1055 | * FUNCTION IS NOT BY WORD COUNT. * J0510530
1056 | * 0 = NEXT IS FIRST WORD. * J0510540
1057 | * NOT 0 = NEXT IS SECOND WORD. * J0510550
1058 | * INITIALIZED BY DUMP MAINLINE. * J0510560
1059 | * MAINTAINED BY THIS SUBROUTINE. * J0510570
1060 | * * J0510580
1061 | * *DD935-THIS WORD IS A SWITCH TO INDICATE IF * J0510590
1062 | * THE FIRST PROGRAM HEADER HAS PASSED IF DUMP * J0510600
1063 | * FUNCTION IS NOT BY WORD COUNT. * J0510610
1064 | * 0 = FIRST HEADER NOT PASSED. * J0510620
1065 | * NOT 0 = FIRST HEADER HAS PASSED. * J0510630
1066 | * INITIALIZED BY DUMP MAINLINE. * J0510640
1067 | * MAINTAINED BY THIS SUBROUTINE. * J0510650
1068 | * * J0510660
1069 | * *DD937-THIS WORD HOLDS THE RELATIVE ADDRESS OF* J0510670
1070 | * THE NEXT WORD TO BE RECEIVED IF THE FUNCTION * J0510680
1071 | * IS NOT BY WORD COUNT. * J0510690
1072 | * MAINTAINED BY THIS SUBROUTINE. * J0510700
1073 | * * J0510710
1074 | * *DD938-THIS WORD HOLDS THE SHIFT COUNT NEEDED * J0510720
1075 | * TO PLACE THE INDICATOR BITS IN DD939 INTO * J0510730
1076 | * THE WORD REFERANCED BY DD941 IF THE DUMP * J0510740
1077 | * FUNCTION IS NOT BY WORD COUNT. * J0510750
1078 | * INITIALIZED BY DUMP MAINLINE AND XP001. * J0510760
1079 | * MAINTAINED BY THIS SUBROUTINE. * J0510770
1080 | * * J0510780
1081 | * *DD939-THIS WORD HOLDS THE INDICATOR BIT FOR * J0510790
1082 | * THE DATA HELD BY DD921 IF THE DUMP FUNCTION * J0510800
1083 | * IS NOT BY WORD COUNT. * J0510810
1084 | * MAINTAINED BY THIS SUBROUTINE. * J0510820
1085 | * * J0510830
1086 | * *DD940-THIS WORD HOLDS THE ADDRESS IN THE * J0510840
1087 | * RECORD WHERE DD921 IS TO BE PLACED. * J0510850
1088 | * INITIALIZED BY DUMP MAINLINE AND XP001. * J0510860
1089 | * MAINTAINED BY THIS SUBROUTINE. * J0510870
1090 | * * J0510880
1091 | * *DD941-THIS WORD HOLDS THE ADDRESS OF THE * J0510890
1092 | * PRESENT INDICATOR WORD BEING FILLED IN THE * J0510900
1093 | * RECORD IF THE DUMP FUNCTION IS NOT BY WORD * J0510910
1094 | * COUNT. * J0510920
1095 | * INITIALIZED BY DUMP MAINLINE AND XP001. * J0510930
1096 | * MAINTAINED BY THIS SUBROUTINE. * J0510940
1097 | * * J0510950
1098 | *NOTES- * J0510960
1099 | * *THE CALLING SEQUENCE TO THIS SUBROUTINE IS A * J0510970
1100 | * BSI INSTRUCTION TO IT. * J0510980
1101 | * * J0510990
1102 | * *INDEX REGISTER 1 POINTS AT THE LABEL C IN * J0511000
1103 | * DUPCO. * J0511010
1104 | * * J0511020
1105 | * *INDEX REGISTER 2 POINTS AT THE LABEL X IN THE* J0511030
1106 | * MIDDLE OF DUMPS CONSTANTS AND WORKING STORAGE* J0511040
1107 | * AREA. * J0511050
1108 | * * J0511060
1109 | * *INDEX REGISTER 3 IS USED AS A WORKING * J0511070
1110 | * REGISTER SO THE CONTENTS ARE DESTROYED. * J0511080
1111 | * * J0511090
1112 | *************************************************** J0511100
DUMP-FORMAT THE PUNCHED OUTPUT
1114 | * J0511120
1115 | * ENTRY POINT J0511130
1116 | * J0511140
4336 0000 1117 | XF000 DC *-* LINK WORD J0511150
1118 | * J0511160
1119 | * CHECK TO SEE IF WORD COUNT TYPE DUMP J0511170
1120 | * J0511180
4337 C28A 1121 | LD 2 DD923-X J0511190
4338 4C20 43B1 1122 | BSC L XF260,Z BRANCH IF DUMP BY WORD CNT J0511200
1123 | * J0511210
1124 | * BRANCH TO THE CORRECT ROUTINE DEPENDING ON THE J0511220
1125 | * VALUE OF THE TYPE OF DATA J0511230
1126 | * J0511240
433A 6780 45E7 1127 | LDX I3 DD922 REGISTER 3 HOLDS DATA TYPE J0511250
433C 4F80 433E 1128 | BSC I3 * BRANCH TO ROUTINE J0511260
433E 436D 1129 | DC XF200 O = DATA WORD J0511270
433F 4342 1130 | DC XF100 1 = INDICATOR WORD J0511280
4340 4347 1131 | DC XF120 2 = HEADER WORD J0511290
4341 439E 1132 | DC XF240 3 = END OF PROGRAM WORD J0511300
1133 | * J0511310
1134 | * SAVE THE INDICATOR BITS FOR NEXT 8 WORDS J0511320
1135 | * J0511330
4342 C288 1136 | XF100 LD 2 DD921-X J0511340
4343 D293 1137 | STO 2 DD932-X SAVE INDICATOR BITS J0511350
1138 | * J0511360
1139 | * INITIALIZE SHIFT COUNTER TO FIND THE BITS J0511370
1140 | * J0511380
4344 1010 1141 | SLA 16 J0511390
4345 D294 1142 | STO 2 DD933-X SHIFT COUNT = 0 J0511400
4346 700D 1143 | MDX XF140 BRANCH J0511410
1144 | * J0511420
1145 | * TEST TO SEE IF THIS IS THE FIRST WORD OF A J0511430
1146 | * PROGRAM HEADER J0511440
1147 | * J0511450
4347 C295 1148 | XF120 LD 2 DD934-X LOAD FIRST HEADER SWITCH J0511460
4348 4C20 436A 1149 | BSC L XF180,Z BRANCH IF 2ND HEADER WORD J0511470
1150 | * J0511480
1151 | * SET THE SWITCH TO INDICATE NEXT HEADER WORD J0511490
1152 | * IS SECOND J0511500
1153 | * J0511510
434A 6C00 45F3 1154 | STX L0 DD934 SET FIRST HEADER WORD SW J0511520
1155 | * J0511530
1156 | * TEST TO SEE IF THIS IS THE FIRST DATA HEADER J0511540
1157 | * J0511550
434C C296 1158 | LD 2 DD935-X LOAD FIRST HEADER SWITCH J0511560
434D 4C20 4356 1159 | BSC L XF160,Z BRANCH IF NOT FIRST HEADER J0511570
1160 | * J0511580
1161 | * SAVE FIRST LOCATION OF PROGRAM J0511590
1162 | * J0511600
434F C288 1163 | LD 2 DD921-X J0511610
4350 D298 1164 | STO 2 DD937-X SET LOCATION COUNTER J0511620
4351 D297 1165 | STO 2 DD936-X SET PUNCH ADDRESS J0511630
1166 | * J0511640
1167 | * SET THE SWITCH TO INDICATE THAT FIRST HEADER J0511650
1168 | * HAS PASSED J0511660
1169 | * J0511670
4352 6C00 45F4 1170 | STX L0 DD935 SET FIRST HEADER SWITCH J0511680
1171 | * J0511690
1172 | * RETURN TO THE CALLING PROGRAM J0511700
1173 | * J0511710
4354 4C80 4336 1174 | XF140 BSC I XF000 RETURN J0511720
1175 | * J0511730
1176 | * CHECK TO SEE IF THERE IS A SEQUENCE BREAK AND J0511740
1177 | * IF SO PUNCH THE CARD BUFFER J0511750
1178 | * J0511760
4356 C288 1179 | XF160 LD 2 DD921-X LOAD NEW DATA ADDRESS J0511770
4357 9298 1180 | S 2 DD937-X CHECK WITH EXPECTED J0511780
4358 4C18 4354 1181 | BSC L XF140,+- BRANCH TO NOT PUNCH J0511790
1182 | * J0511800
1183 | * CHECK IF NO DATA ON CARD J0511810
1184 | * J0511820
435A C29B 1185 | LD 2 DD940-X J0511830
435B 915F 1186 | S 1 NEXT J0511840
435C 92C3 1187 | S 2 DD977-X J0511850
435D 4C20 4362 1188 | BSC L XF166,Z PUNCH IF DATA ON CARD 2-8 J0511860
1189 | * J0511870
435F C296 1190 | LD 2 DD935-X LOAD FIRST HDR SWITCH 2-7 J0511880
4360 4C08 4366 1191 | BSC L XF170,+ BRANCH IF NOT 2ND HDR 2-7 J0511890
4362 C0FF 1192 | XF166 LD *-1 SET 1ST HDR SW NEG TO 2-8 J0511900
4363 D296 1193 | STO 2 DD935-X *INDICATE 2ND HDR 2-7 J0511910
4364 4400 43D0 1194 | BSI L XP001 GO TO PUNCH CARD 2-7 J0511920
1195 | * 2-7 J0511930
1196 | * SAVE THE NEW LOCATION ADDRESS J0511940
1197 | * J0511950
4366 C288 1198 | XF170 LD 2 DD921-X J0511960
4367 D298 1199 | STO 2 DD937-X SET LOCATION COUNTER J0511970
4368 D297 1200 | STO 2 DD936-X SET PUNCH ADDRESS J0511980
4369 70EA 1201 | MDX XF140 BRANCH J0511990
1202 | * J0512000
1203 | * SET SWITCH TO INDICATE THAT THE NEXT HEADER J0512010
1204 | * WORD IS THE FIRST OF A SET J0512020
1205 | * J0512030
436A 1010 1206 | XF180 SLA 16 J0512040
436B D295 1207 | STO 2 DD934-X FIRST HEADER WORD SWITCH =0 J0512050
436C 70E7 1208 | MDX XF140 BRANCH J0512060
1209 | * J0512070
1210 | * GET THE NEXT TWO INDICATOR BITS J0512080
1211 | * J0512090
436D 6780 45F2 1212 | XF200 LDX I3 DD933 REGISTER 3 HOLDS SHIFT CNT J0512100
436F C293 1213 | LD 2 DD932-X LOAD INDICATOR BITS J0512110
4370 1300 1214 | SLA 3 0 (XX--------------) J0512120
4371 180E 1215 | SRA 14 (00000000000000XX) J0512130
4372 D29A 1216 | STO 2 DD939-X SAVE DESIRED BITS J0512140
1217 | * J0512150
1218 | * INCREMENT THE SHIFT COUNT TO THE NEXT SET OF J0512160
1219 | * BITS J0512170
1220 | * J0512180
4373 7402 45F2 1221 | MDX L DD933,2 INCREMENT SHIFT COUNT J0512190
1222 | * J0512200
1223 | * IF THE INDICATOR BITS ARE NOT A 2 INCREMENT THE J0512210
1224 | * LOCATION ADDRESS J0512220
1225 | * J0512230
4375 C29A 1226 | LD 2 DD939-X LOAD INDICATOR BITS J0512240
4376 92BD 1227 | S 2 DD971-X CHECK FOR A LIBF (2) J0512250
4377 4C18 437B 1228 | BSC L *+2,+- BRANCH IF A LIBF J0512260
4379 7401 45F6 1229 | MDX L DD937,1 INCREMENT THE LOCATION ADR J0512270
1230 | * J0512280
1231 | * PLACE THE DATA WORD ON THE CARD J0512290
1232 | * J0512300
437B C288 1233 | LD 2 DD921-X LOAD DATA WORD J0512310
437C D480 45F9 1234 | STO I DD940 PLACE WORD ON CARD J0512320
437E 7401 45F9 1235 | MDX L DD940,1 INCREMENT PLACEMENT ADDRESS J0512330
1236 | * J0512340
1237 | * PLACE THE INDICATOR BITS ON CARD J0512350
1238 | * J0512360
4380 6780 45F7 1239 | LDX I3 DD938 REGISTER 3 HOLDS SHIFT CNT J0512370
4382 1090 1240 | SLT 16 CLEAR Q REGISTER TO ZERO J0512380
4383 C480 45FA 1241 | LD I DD941 LOAD INDICATOR WORD J0512390
4385 1BC0 1242 | RTE 3 0 (--------YYYYYYYY/000...) J0512400
4386 1082 1243 | SLT 2 (------YYYYYYYY00/000...) J0512410
4387 EA9A 1244 | OR 2 DD939-X (------YYYYYYYYXX/000...) J0512420
4388 1882 1245 | SRT 2 (--------YYYYYYYY/XX0...) J0512430
4389 1380 1246 | SLT 3 0 (YYYYYYYYXX000000/000...) J0512440
438A D480 45FA 1247 | STO I DD941 SAVE NEW INDICATOR WORD J0512450
1248 | * J0512460
1249 | * ALTER SHIFT COUNT AND TEST TO SEE IF WORD IS J0512470
1250 | * FULL J0512480
1251 | * J0512490
438C 74FE 45F7 1252 | MDX L DD938,-2 DECREMENT SHIFT COUNT J0512500
438E 7004 1253 | MDX XF220 BRANCH IF SHIFT COUNT NOT=0 J0512510
1254 | * J0512520
1255 | * INITIALIZE FOR NEXT INDICATOR WORD J0512530
1256 | * J0512540
438F 7401 45FA 1257 | MDX L DD941,1 INCREMENT INDICATOR BIT ADR J0512550
4391 C2C5 1258 | LD 2 DD979-X J0512560
4392 D299 1259 | STO 2 DD938-X SET SHIFT COUNT = 16 J0512570
1260 | * J0512580
1261 | * PUNCH THE CARD IF IT IS FULL OF DATA J0512590
1262 | * J0512600
4393 C29B 1263 | XF220 LD 2 DD940-X LOAD PLACEMENT ADDRESS J0512610
4394 92CB 1264 | S 2 DD986-X CHECK FOR 46TH WORD J0512620
4395 915F 1265 | S 1 NEXT CHECK CORRECT BUFFER J0512630
4396 4C20 4354 1266 | BSC L XF140,Z BRANCH TO NOT PUNCH J0512640
4398 4037 1267 | BSI XP001 LINK TO PUNCH CARD J0512650
4399 C298 1268 | LD 2 DD937-X J0512660
439A D297 1269 | STO 2 DD936-X SET PUNCH ADDRESS J0512670
439B C0FF 1270 | LD *-1 SET 1ST HDR SW NEG TO 2-11 J0512672
439C D296 1271 | STO 2 DD935-X *INDICATE 2ND HDR 2-11 J0512674
439D 70B6 1272 | MDX XF140 BRANCH J0512680
1273 | * J0512690
1274 | * PUNCH THE PARTIAL BUFFER IF ONE IS PRESENT J0512700
1275 | * J0512710
439E C29B 1276 | XF240 LD 2 DD940-X LOAD PLACEMENT ADDRESS J0512720
439F 92C3 1277 | S 2 DD977-X CHECK WITH 10TH WORD J0512730
43A0 915F 1278 | S 1 NEXT CHECK CORRECT BUFFER J0512740
43A1 4420 43D0 1279 | BSI L XP001,Z BRANCH TO PUNCH BUFFER J0512750
1280 | * J0512760
1281 | * FORMAT AND PUNCH THE TRAILER CARD J0512770
1282 | * J0512780
43A3 6780 7FFF 1283 | LDX I3 NEXT+C REGISTER 3 POINTS AT BUFFER J0512790
43A5 6F00 45F9 1284 | STX L3 DD940 J0512800
43A7 740A 45F9 1285 | MDX L DD940,10 MAKE CALCULATED WORD CNT 0 J0512810
43A9 C2D0 1286 | LD 2 DD992-X J0512820
43AA D303 1287 | STO 3 3 STORE TYPE CODE J0512830
43AB C298 1288 | LD 2 DD937-X J0512840
43AC D297 1289 | STO 2 DD936-X STORE PROGRAM LENGTH J0512850
43AD C29D 1290 | LD 2 DD942-X J0512860
43AE D304 1291 | STO 3 4 STORE ENTRY ADDRESS J0512870
43AF 4020 1292 | BSI XP001 LINK TO PUNCH RECORD J0512880
43B0 70A3 1293 | MDX XF140 BRANCH J0512890
1294 | * J0512900
1295 | * PLACE THE DATA ON THE CARD J0512910
1296 | * J0512920
43B1 C133 1297 | XF260 LD 1 EBCSW IF DUMP EBCDIC ON CARDS 2E2 J0512930
43B2 4C20 457B 1298 | BSC L XE000,Z *GO TO SPECIAL ROUTINE 2E2 J0512940
1299 | * 2E2 J0512950
43B4 C288 1300 | LD 2 DD921-X J0512960
43B5 D480 45F9 1301 | STO I DD940 PLACE DATA WORD ON CARD J0512970
43B7 7401 45F9 1302 | MDX L DD940,1 INCREMENT PLACEMENT ADDRESS J0512980
1303 | * J0512990
1304 | * PUNCH THE CARD IF THE LAST DATA WORD J0513000
1305 | * J0513010
43B9 C289 1306 | XF265 LD 2 DD922-X LOAD TYPE WORD J0513020
43BA 92BE 1307 | S 2 DD972-X CHECK FOR LAST DATA WORD J0513030
43BB 4C20 43BF 1308 | BSC L XF270,Z BRANCH NOT LAST DATA WORD J0513040
43BD 400D 1309 | BSI XP000 LINK TO PUNCH RECORD J0513050
43BE 7095 1310 | MDX XF140 BRANCH J0513060
1311 | * J0513070
1312 | * PUNCH THE CARD IF IT IS FULL J0513080
1313 | * J0513090
43BF C133 1314 | XF270 LD 1 EBCSW 2E2 J0513100
43C0 4C18 43C5 1315 | BSC L XF280,+- BRANCH IF NOT DUMPDATA E2E2 J0513110
43C2 C29B 1316 | LD 2 DD940-X CHECK FOR 80TH WORD 2E2 J0513120
43C3 92CA 1317 | S 2 DD985-X 2E2 J0513130
43C4 7002 1318 | MDX *+2 2E2 J0513140
1319 | * 2E2 J0513150
43C5 C29B 1320 | XF280 LD 2 DD940-X LOAD PLACEMENT ADDRESS J0513160
43C6 92CB 1321 | S 2 DD986-X CHECK FOR 55TH WORD J0513170
43C7 915F 1322 | S 1 NEXT CHECK CORRECT BUFFER J0513180
43C8 4410 43CB 1323 | BSI L XP000,- BRANCH TO PUNCH CARD J0513190
43CA 7089 1324 | MDX XF140 BRANCH J0513200
1325 | *************************************************** J0513210
1326 | * * J0513220
1327 | * END OF SOURCE * J0513230
1328 | * * J0513240
1329 | *************************************************** J0513250
DUMP-PUNCH THE FORMATED OUTPUT
1331 | *************************************************** J0513270
1332 | * * J0513280
1333 | *FUNCTION- * J0513290
1334 | * *THIS SUBROUTINE TAKES THE FORMATED PUNCHED * J0513300
1335 | * OUTPUT BUFFER AND UNPACKS IT TO PLACE ON THE * J0513310
1336 | * CARD PUNCH OR PAPER TAPE PUNCH AS SPECIFIED. * J0513320
1337 | * THE CORRECT ENTRY POINT WILL PLACE THE WORD * J0513330
1338 | * COUNT, LOAD ADDRESS, AND CHECK SUM. THE CARD * J0513340
1339 | * SEQUENCE NUMBERS ARE ALSO INCREMENTED BY THIS* J0513350
1340 | * ROUTINE. * J0513360
1341 | * * J0513370
1342 | *ENTRY POINTS- * J0513380
1343 | * *XP000-UNPACKS THE BUFFER TO BE PUNCHED. * J0513390
1344 | * * J0513400
1345 | * *XP001-PLACES THE CHECK SUM, LOAD ADDRESS, AND* J0513410
1346 | * WORD COUNT ON THE RECORDS TO BE PUNCHED. ALSO* J0513420
1347 | * UNPACKS THE BUFFER TO BE PUNCHED. * J0513430
1348 | * * J0513440
1349 | *INPUT- * J0513450
1350 | * *IN THE CASE WHERE THE INPUT IS FROM THE 1442 * J0513460
1351 | * CARD READER (READING AND PUNCHING ON SAME * J0513470
1352 | * DEVICE) THIS ROUTINE READS THE CARD TO SEE IF* J0513480
1353 | * IT IS A BLANK BEFORE PUNCHING ON IT. * J0513490
1354 | * * J0513500
1355 | *OUTPUT- * J0513510
1356 | * *THE PCHBI ROUTINE IN DUPCO IS CALLED TO PUNCH* J0513520
1357 | * ETHER CARDS OR PAPER TAPE AS REQUESTED. * J0513530
1358 | * * J0513540
1359 | *EXTERNAL REFERANCES- * J0513550
1360 | * *DD923-THIS WORD IS A SWITCH THAT INDICATES * J0513560
1361 | * THAT THE DUMP FUNCTION IS BY WORD COUNT. * J0513570
1362 | * 0 = NOT BY WORD COUNT. * J0513580
1363 | * NOT 0 = BY WORD COUNT. * J0513590
1364 | * INITIALIZED BY DUMP MAINLINE. * J0513600
1365 | * * J0513610
1366 | * *DD941-THIS WORD HOLDS THE ADDRESS OF THE * J0513620
1367 | * INDICATOR WORD TO BE FILLED WITH BITS IF THE * J0513630
1368 | * DUMP FUNCTION IS NOT BY WORD COUNT. * J0513640
1369 | * INITIALIZED BY THIS ROUTINE AND DUMP * J0513650
1370 | * MAINLINE. * J0513660
1371 | * MAINTAINED BY XF000. * J0513670
1372 | * * J0513680
1373 | * *DD938-THIS WORD HOLDS THE SHIFT COUNT NEEDED * J0513690
1374 | * TO PLACE THE INDICATOR BITS INTO DD941 IF THE* J0513700
1375 | * DUMP FUNCTION IS NOT BY WORD COUNT. * J0513710
1376 | * INITIALIZED BY THIS ROUTINE AND DUMP * J0513720
1377 | * MAINLINE. * J0513730
1378 | * MAINTAINED BY XF000. * J0513740
1379 | * * J0513750
1380 | * *DD936-THIS WORD HOLDS THE ADDRESS TO BE * J0513760
1381 | * PUNCHED IN THE RECORD IF DUMP FUNCTION IS * J0513770
1382 | * NOT BY WORD COUNT. * J0513780
1383 | * INITIALIZED BY XF000. * J0513790
1384 | * * J0513800
1385 | * *DD940-THIS WORD HOLDS THE ADDRESS IN THE * J0513810
1386 | * RECORD WHERE DD921 IS TO BE PLACED BY XF000. * J0513820
1387 | * INITIALIZED BY THIS SUBR AND BY THE DUMP * J0513830
1388 | * MAINLINE. * J0513840
1389 | * * J0513850
1390 | * *PTSW -THIS WORD LOCATED IN DUPCO IS A SWITCH * J0513860
1391 | * TO INDICATE IF THE PUNCHED OUTPUT IS TO BE ON* J0513870
1392 | * PAPER TAPE. * J0513880
1393 | * 0 = NOT PAPER TAPE OUTPUT * J0513890
1394 | * NOT 0 = PAPER TAPE OUTPUT. * J0513900
1395 | * * J0513910
1396 | * *PCHBI-THIS IS A ROUTINE THAT PUNCHS BINARY * J0513920
1397 | * FROM THE BUFFER POINTED AT BY THE WORD(NEXT).* J0513930
1398 | * THIS SUBROUTINE IS TO CARD OR PAPER TAPE AS * J0513940
1399 | * SPECIFIED. * J0513950
1400 | * * J0513960
1401 | * *GETBI-THIS IS A ROUTINE THAT READS BINARY * J0513970
1402 | * INTO THE BUFFER POINTED AT BY THE WORD(THIS).* J0513980
1403 | * THIS SUBROUTINE IS FROM CARD OR PAPER TAPE AS* J0513990
1404 | * SPECIFIED. * J0514000
1405 | * * J0514010
1406 | * *RBLNK-THIS WORD IS A SWITCH THAT INDICATES * J0514020
1407 | * IF A BLANK CARD MUST BE READ BEFORE PUNCHING.* J0514030
1408 | * 0 = 2501 OR PAPER TAPE INPUT. * J0514040
1409 | * NOT 0 = 1442 INPUT. * J0514050
1410 | * * J0514060
1411 | * *PRINT-THIS SUBROUTINE IN DUPCO PRINTS A LINE * J0514070
1412 | * ON THE PRINCIPAL PRINT DEVICE. * J0514080
1413 | * * J0514090
1414 | * *LINE -THIS SUBROUTINE IN DUPCO SPACES A LINE * J0514100
1415 | * ON THE PRINCIPAL PRINT DEVICE. * J0514110
1416 | * * J0514120
1417 | * *NEXT -THIS IS A WORD IN DUPCO THAT POINTS AT * J0514130
1418 | * A 111 WORD BUFFER TO BE USED TO HOLD THE * J0514140
1419 | * PUNCHED OUTPUT. * J0514150
1420 | * * J0514160
1421 | * *THIS -THIS IS A WORD IN DUPCO THAT POINTS AT * J0514170
1422 | * A 81 WORD BUFFER TO BE USED TO CHECK CARDS * J0514180
1423 | * TO SEE THEY ARE BLANK BEFORE PUNCHING INTO * J0514190
1424 | * THEM. * J0514200
1425 | * * J0514210
1426 | *EXITS-NORMAL- * J0514220
1427 | * *THE NORMAL EXIT IS TO THE WORD FOLLOWING THE * J0514230
1428 | * BSI INSTRUCTION THAT CALLED THIS SUBROUTINE. * J0514240
1429 | * * J0514250
1430 | *EXITS-ERRORS- * J0514260
1431 | * *N/A * J0514270
1432 | * * J0514280
1433 | *TABLES/WORK AREAS- * J0514290
1434 | * *DD943-THIS WORD IS USED TO HOLD A WORD COUNT * J0514300
1435 | * DURING THE CALCULATION OF CHECK SUMS AND WHEN* J0514310
1436 | * THE BUFFER IS BEING UNPACKED FOR OUTPUTING. * J0514320
1437 | * * J0514330
1438 | * *DD944-THIS WORD HOLDS THE RECORD NUMBER OF * J0514340
1439 | * THE RECORD BEING CHECK SUMED NOW. * J0514350
1440 | * INITIALIZED BY DUMP MAINLINE. * J0514360
1441 | * MAINTAINED BY THIS SUBROUTINE. * J0514370
1442 | * * J0514380
1443 | * *DD901-THIS DOUBLE WORD HOLDS A COMMAND TO * J0514390
1444 | * SENSE THE DEVICE STATUS WORD OF THE 1442 TO * J0514400
1445 | * DETERMINE THE STATUS. * J0514410
1446 | * * J0514420
1447 | *NOTES- * J0514430
1448 | * *THE CALLING SEQUENCE TO THIS SUBROUTINE IS A * J0514440
1449 | * BSI INSTRUCTION TO ITS ENTRY POINT. * J0514450
1450 | * * J0514460
1451 | * *INDEX REGISTER 1 POINTS TO THE LABEL C IN * J0514470
1452 | * DUPCO. * J0514480
1453 | * * J0514490
1454 | * *INDEX REGISTER 2 POINTS TO THE LABEL X IN THE* J0514500
1455 | * MIDDLE OF DUMPS CONSTANTS AND WORKING STORAGE* J0514510
1456 | * AREA. * J0514520
1457 | * * J0514530
1458 | * *INDEX REGISTER 3 IS USED AS A WORKING * J0514540
1459 | * REGISTER SO THE CONTENTS ARE DESTROYED. * J0514550
1460 | * * J0514560
1461 | *************************************************** J0514570
DUMP-PUNCH THE FORMATED OUTPUT
1463 | * J0514590
1464 | * ENTRY POINT J0514600
1465 | * J0514610
43CB 0000 1466 | XP000 DC *-* LINK WORD J0514620
1467 | * J0514630
1468 | * INITIALIZE FOR NEXT BUFFER FULL J0514640
1469 | * J0514650
43CC C15F 1470 | LD 1 NEXT J0514660
43CD 82BC 1471 | A 2 DD970-X J0514670
43CE D29B 1472 | STO 2 DD940-X STORE DATA PLACEMENT ADDRES J0514680
43CF 7023 1473 | MDX XP120 J0514690
1474 | * J0514700
1475 | * ENTRY POINT J0514710
1476 | * J0514720
43D0 0000 1477 | XP001 DC *-* LINK WORD J0514730
1478 | * J0514740
1479 | * SET REGISTER 3 TO POINT AT THE BUFFER TO PUNCH J0514750
1480 | * J0514760
43D1 6780 7FFF 1481 | LDX I3 NEXT+C REGISTER 3 POINTS AT BUFFER J0514770
1482 | * J0514780
1483 | * PLACE THE ADDRESS AND WORD COUNT IN THE CARD J0514790
1484 | * TO PUNCH J0514800
1485 | * J0514810
43D3 C297 1486 | LD 2 DD936-X J0514820
43D4 D301 1487 | STO 3 1 PLACE ADDRESS ON CARD J0514830
43D5 C29B 1488 | LD 2 DD940-X LOAD PLACEMENT ADDRESS J0514840
43D6 92C3 1489 | S 2 DD977-X SUBTRACT OFFSET J0514850
43D7 915F 1490 | S 1 NEXT SUBTRACT BUFFER START J0514860
43D8 EB03 1491 | OR 3 3 OR IN CARD TYPE J0514870
43D9 D303 1492 | STO 3 3 STORE WORD COUNT AND TYPE J0514880
1493 | * J0514890
1494 | * CHECK SUM THE CARD J0514900
1495 | * J0514910
43DA C133 1496 | LD 1 EBCSW NO CHECK SUM IF EBCDIC 2E2 J0514920
43DB 4C20 43EC 1497 | BSC L XP110,Z *DATA, BRANCH IF SO 2E2 J0514930
1498 | * 2E2 J0514940
43DD C2C9 1499 | LD 2 DD984-X J0514950
43DE D29E 1500 | STO 2 DD943-X WORD COUNT = 54 J0514960
43DF C29F 1501 | LD 2 DD944-X LOAD THE CARD NUMBER J0514970
43E0 7401 45FD 1502 | MDX L DD944,1 INCREMENT CARD NO J0514980
43E2 8301 1503 | XP100 A 3 1 ADD A WORD J0514990
43E3 4802 1504 | BSC C SKIP ON NO CARRY J0515000
43E4 82BC 1505 | A 2 DD970-X ADD A 1 FOR A CARRY J0515010
43E5 7301 1506 | MDX 3 1 MOVE TO NEXT WORD J0515020
43E6 74FF 45FC 1507 | MDX L DD943,-1 DECREASE COUNT BY 1 J0515030
43E8 70F9 1508 | MDX XP100 BRANCH IF COUNT NOT = 0 J0515040
43E9 F2D7 1509 | EOR 2 DD999-X COMPLAMENT SUM TO CHECK SUM J0515050
43EA 82BC 1510 | A 2 DD970-X J0515060
43EB D3CC 1511 | STO 3 -52 STORE CHECK SUM J0515070
1512 | * J0515080
1513 | * INITIALIZE FOR NEXT BUFFER FULL J0515090
1514 | * J0515100
43EC C15F 1515 | XP110 LD 1 NEXT J0515110
43ED 82BF 1516 | A 2 DD973-X J0515120
43EE D29C 1517 | STO 2 DD941-X STORE INDICATOR BIT ADDRESS J0515130
43EF 82C0 1518 | A 2 DD974-X J0515140
43F0 D29B 1519 | STO 2 DD940-X STORE DATA PLACEMENT ADDRES J0515150
43F1 C2C5 1520 | LD 2 DD979-X J0515160
43F2 D299 1521 | STO 2 DD938-X SHIFT = 16 J0515170
1522 | * J0515180
1523 | * TEST TO SEE IF OUTPUT IS TO BE PLACED ON THE J0515190
1524 | * PAPER TAPE PUNCH J0515200
1525 | * J0515210
43F3 C128 1526 | XP120 LD 1 PTSW LOAD PAPER TAPE SWITCH J0515220
43F4 4C18 442C 1527 | BSC L XP165,+- BRANCH TO PUNCH ON CARDS J0515230
1528 | * J0515240
1529 | * OPEN THE BUFFER SO AS TO PUNCH ON PAPER TAPE J0515250
1530 | * J0515260
43F6 6780 7FFF 1531 | LDX I3 NEXT+C J0515270
43F8 7336 1532 | MDX 3 54 POINT AT PACKED BUFFER J0515280
43F9 C2C9 1533 | LD 2 DD984-X J0515290
43FA D29E 1534 | STO 2 DD943-X STORE WORD COUNT TO MOVE J0515300
43FB 6680 7FFF 1535 | LDX I2 NEXT+C J0515310
43FD 726E 1536 | MDX 2 110 POINT AT UNPACKED BUFFER J0515320
43FE C300 1537 | XP140 LD 3 0 (XXYY/0000) J0515330
43FF 18C8 1538 | RTE 8 (00XX/YY00) J0515340
4400 1008 1539 | SLA 8 (XX00/YY00) J0515350
4401 D2FF 1540 | STO 2 -1 STORE LEFT FRAME J0515360
4402 1090 1541 | SLT 16 (YY00/0000) J0515370
4403 D200 1542 | STO 2 0 STORE RIGHT FRAME J0515380
4404 73FF 1543 | MDX 3 -1 ADJUST PACKED POINTER J0515390
4405 72FE 1544 | MDX 2 -2 ADJUST UNPACKED POINTER J0515400
4406 74FF 45FC 1545 | MDX L DD943,-1 DECREMENT WORD COUNT J0515410
4408 70F5 1546 | MDX XP140 BRANCH IF WORD COUNT NOT =0 J0515420
4409 6600 465E 1547 | LDX L2 X RESTORE REGISTER 2 J0515430
1548 | * J0515440
1549 | * PLACE WORD COUNT AND HEADER TO PUNCH PAPER J0515450
1550 | * TAPE J0515460
1551 | * J0515470
440B C28A 1552 | LD 2 DD923-X J0515480
440C 4C18 4411 1553 | BSC L XP145,+- BRANCH IF DSF PROGRAM J0515490
440E C2C9 1554 | LD 2 DD984-X J0515500
440F 1001 1555 | SLA 1 J0515510
4410 7011 1556 | MDX XP160 J0515520
4411 C307 1557 | XP145 LD 3 7 J0515530
4412 92CF 1558 | S 2 DD991-X J0515540
4413 4C18 441F 1559 | BSC L XP155,+- BRANCH DATA RECORD J0515550
4415 C307 1560 | LD 3 7 J0515560
4416 92D0 1561 | S 2 DD992-X J0515570
4417 4C18 441D 1562 | BSC L XP150,+- BRANCH IF TRAILER RECORD J0515580
4419 C30E 1563 | LD 3 14 J0515590
441A 1807 1564 | SRA 7 J0515600
441B 82C6 1565 | A 2 DD981-X CALCULATE WORD COUNT J0515610
441C 7005 1566 | MDX XP160 J0515620
441D C2C1 1567 | XP150 LD 2 DD975-X LOAD WORD COUNT J0515630
441E 7003 1568 | MDX XP160 J0515640
441F C308 1569 | XP155 LD 3 8 J0515650
4420 1807 1570 | SRA 7 J0515660
4421 82C6 1571 | A 2 DD981-X CALCULATE WORD COUNT J0515670
4422 82BD 1572 | XP160 A 2 DD971-X J0515680
4423 D300 1573 | STO 3 0 STORE PUNCH WORD COUNT J0515690
4424 92BD 1574 | S 2 DD971-X J0515700
4425 1007 1575 | SLA 7 J0515710
4426 D302 1576 | STO 3 2 STORE READ WORD COUNT J0515720
4427 C2D2 1577 | LD 2 DD994-X J0515730
4428 D301 1578 | STO 3 1 STORE DELETE CODE J0515740
4429 4480 7A0D 1579 | BSI I PCHBI LINK TO PUNCH RECORD J0515750
442B 705F 1580 | MDX XP280 BRANCH J0515760
1581 | * J0515770
1582 | * INCREMENT THE CARD NUMBER J0515780
1583 | * J0515790
442C C133 1584 | XP165 LD 1 EBCSW NO CARD NO. IF EBC DATA 2E2 J0515800
442D 4C20 445D 1585 | BSC L XP230,Z 2E2 J0515810
1586 | * 2E2 J0515820
442F 6780 7FFF 1587 | LDX I3 NEXT+C REGISTER 3 POINTS AT BUFFER J0515830
4431 6103 1588 | LDX 1 3 INITLZ COUNTER 2-4 J0515840
4432 C286 1589 | LD 2 DD919-X CHECK 4 COL SEQ SW 2-9 J0515842
4433 4828 1590 | BSC +Z SKIP IF 3 COL 2-9 J0515845
4434 7101 1591 | MDX 1 1 RAISE COUNTER TO 4 2-9 J0515847
4435 C350 1592 | XP180 LD 3 80 LOAD SEQUENCE NUMBER J0515850
4436 1801 1593 | SRA 1 ADD 1 IN HOLLERITH J0515860
4437 D350 1594 | STO 3 80 STORE NEW SEQUENCE NUMBER J0515870
4438 1804 1595 | SRA 4 CHECK FOR PAST 9 J0515880
4439 4C20 4440 1596 | BSC L XP200,Z BRANCH IF NOT PAST 9 J0515890
443B C2D1 1597 | LD 2 DD993-X J0515900
443C D350 1598 | STO 3 80 STORE A ZERO J0515910
443D 73FF 1599 | MDX 3 -1 DECREMENT TO NEXT DIGIT J0515920
443E 71FF 1600 | MDX 1 -1 SKIP IF SEQ NO. OVERFLOW2-4 J0515930
443F 70F5 1601 | MDX XP180 BRANCH TO DO NEXT DIGIT J0515940
1602 | * J0515950
1603 | * OPEN THE BUFFER SO AS TO PUNCH ON CARDS J0515960
1604 | * J0515970
4440 C2C6 1605 | XP200 LD 2 DD981-X J0515980
4441 D29E 1606 | STO 2 DD943-X STORE WORD COUNT TO MOVE J0515990
4442 6500 7FA0 1607 | LDX L1 C RESTORE INDEX REG 1 2-4 J0516000
4444 6780 7FFF 1608 | LDX I3 NEXT+C J0516010
4446 7336 1609 | MDX 3 54 POINT AT PACKED BUFFER J0516020
4447 6680 7FFF 1610 | LDX I2 NEXT+C J0516030
4449 7248 1611 | MDX 2 72 POINT AT UNPACKED BUFFER J0516040
444A 1090 1612 | XP220 SLT 16 SET Q REGISTER TO ZERO J0516050
444B C300 1613 | LD 3 0 (XXXX/0000) J0516060
444C 18DC 1614 | RTE 28 (XXX0/000X) J0516070
444D D200 1615 | STO 2 0 STORE RIGHT COLUMN J0516080
444E 108C 1616 | SLT 12 (0000/X000) J0516090
444F C3FF 1617 | LD 3 -1 (XXXX/X000) J0516100
4450 18D8 1618 | RTE 24 (XXX0/00XX) J0516110
4451 D2FF 1619 | STO 2 -1 STORE RIGHT CENTER COLUMN J0516120
4452 1088 1620 | SLT 8 (X000/XX00) J0516130
4453 C3FE 1621 | LD 3 -2 (XXXX/XX00) J0516140
4454 18D4 1622 | RTE 20 (XXX0/0XXX) J0516150
4455 D2FE 1623 | STO 2 -2 STORE LEFT CENTER COLUMN J0516160
4456 1094 1624 | SLT 20 (XXX0/0000) J0516170
4457 D2FD 1625 | STO 2 -3 STORE LEFT COLUMN J0516180
4458 73FD 1626 | MDX 3 -3 ADJUST PACKED POINTER J0516190
4459 72FC 1627 | MDX 2 -4 ADJUST UNPACKED POINTER J0516200
445A 74FF 45FC 1628 | MDX L DD943,-1 DECREMENT WORD COUNT J0516210
445C 70ED 1629 | MDX XP220 BRANCH IF WORD COUNT NOT =0 J0516220
1630 | * J0516230
1631 | * TEST TO SEE IF BLANK CARD MUST BE READ J0516240
1632 | * J0516250
445D C191 1633 | XP230 LD 1 #RP67 LOAD READ BLANK SWITCH J0516260
445E 4C18 4480 1634 | BSC L XP260,+- BRANCH TO NOT READ BLANK J0516270
1635 | * J0516280
1636 | * READ A CARD AND CHECK TO SEE IF IT IS BLANK J0516290
1637 | * J0516300
4460 4480 7A0B 1638 | XP240 BSI I GETBI LINK TO READ A CARD J0516310
4462 6780 7FFE 1639 | LDX I3 THIS+C REGISTER 3 POINTS AT BUFFER J0516320
1640 | * J0516330
1641 | * WAIT TILL CARD READING DONE J0516340
1642 | * J0516350
4464 7400 0013 1643 | MDX L $IBSY,0 SKIP IF NOT BUSY J0516360
4466 70FD 1644 | MDX *-3 BRANCH IF BUSY J0516370
4467 6250 1645 | LDX 2 80 REGISTER 2 HOLDS WORD COUNT J0516380
4468 1010 1646 | SLA 16 ZERO A REGISTER J0516390
4469 EB01 1647 | OR 3 1 OR IN A WORD J0516400
446A 7301 1648 | MDX 3 1 MOVE BUFFER POINTER J0516410
446B 72FF 1649 | MDX 2 -1 DECREMENT WORD COUNT J0516420
446C 70FC 1650 | MDX *-4 BRANCH IF WORD COUNT NOT =0 J0516430
446D 4C18 4480 1651 | BSC L XP260,+- BRANCH IF BLANK CARD J0516440
1652 | * J0516450
1653 | * PRINT A LINE TO ASK FOR BLANK CARDS J0516460
1654 | * J0516470
446F 4480 7DBB 1655 | BSI I PRINT LINK TO PRINT A LINE J0516480
4471 449F 1656 | DC XP300 J0516490
4472 4480 7DB5 1657 | BSI I LINE LINK TO SPACE A LINE J0516500
4474 4480 7DB5 1658 | BSI I LINE LINK TO SPACE A LINE J0516510
4476 C400 0036 1659 | LD L $PBSY J0516520
4478 4C20 4476 1660 | BSC L *-4,Z LOOP TILL PRINTER NOT BUSY J0516530
1661 | * J0516540
1662 | * WAIT UNTIL THE OPERATOR HAS INTERVENED J0516550
1663 | * J0516560
447A 1090 1664 | SLT 16 CLEAR EXTENSION J0516570
447B C400 4631 1665 | LD L DD995 (100F/0000) J0516580
447D 4400 0028 1666 | BSI L $PRET WAIT AT PRE-OPERATIVE TRAP J0516590
447F 70E0 1667 | MDX XP240 BRANCH J0516600
1668 | * J0516610
1669 | * PUNCH THE CARD J0516620
1670 | * J0516630
4480 6780 7FFF 1671 | XP260 LDX I3 NEXT+C REGISTER 3 POINTS AT BUFFER J0516640
4482 C350 1672 | LD 3 80 J0516650
4483 EC00 461F 1673 | OR L DD975 J0516660
4485 D350 1674 | STO 3 80 PLACE END OF CARD INDICATOR J0516670
4486 4480 7A0D 1675 | BSI I PCHBI LINK TO PUNCH CARD J0516680
1676 | * J0516690
1677 | * WAIT UNTIL THE CARD PUNCHING ROUTINE IS NOT J0516700
1678 | * BUSY J0516710
1679 | * J0516720
4488 7400 0013 1680 | MDX L $IBSY,0 TEST CARD PUNCH BUSY J0516730
448A 70FD 1681 | MDX *-3 BRANCH IF BUSY J0516740
1682 | * J0516750
1683 | * CLEAR THE PUNCH AREA J0516760
1684 | * J0516770
448B 6780 7FFF 1685 | XP280 LDX I3 NEXT+C REGISTER 3 POINTS AT BUFFER J0516780
448D 6236 1686 | LDX 2 54 REGISTER 2 HOLDS WORD COUNT J0516790
448E C133 1687 | LD 1 EBCSW 2E2 J0516800
448F 4820 1688 | BSC Z 2E2 J0516810
4490 6250 1689 | LDX 2 80 SET TO 80 IF DUMPDATA E 2E2 J0516820
4491 1010 1690 | SLA 16 SET A REGISTER TO ZERO J0516830
4492 D301 1691 | STO 3 1 CLEAR A BUFFER WORD J0516840
4493 7301 1692 | MDX 3 1 ADJUST BUFFER POINTER J0516850
4494 72FF 1693 | MDX 2 -1 DECREMENT WORD COUNT J0516860
4495 70FC 1694 | MDX *-4 BRANCH IF WORD COUNT NOT =0 J0516870
4496 6600 465E 1695 | LDX L2 X RESTORE REGISTER 2 J0516880
1696 | * J0516890
1697 | * TEST TO SEE IF WORD COUNT TYPE DUMP FUNCTION J0516900
1698 | * J0516910
4498 C28A 1699 | LD 2 DD923-X TEST DATA WORD FUNCTION J0516920
4499 4CA0 43CB 1700 | BSC I XP000,Z BRANCH IF IT IS J0516930
1701 | * J0516940
1702 | * PLACE CARD TYPE J0516950
1703 | * J0516960
449B C2CF 1704 | LD 2 DD991-X J0516970
449C D3CD 1705 | STO 3 -51 STORE DATA TYPE FOR CARD J0516980
1706 | * J0516990
1707 | * RETURN TO CALLING PROGRAM J0517000
1708 | * J0517010
449D 4C80 43D0 1709 | BSC I XP001 RETURN J0517020
1710 | * J0517030
1711 | * THE FOLLOWING IS THE MESSAGE TO BE PRINTED WHEN J0517040
1712 | * BLANK CARDS ARE REQUIRED BUT NOT PRESENT J0517050
1713 | * J0517060
449F 0016 1714 | XP300 DC XP320-* WORD COUNT J0517070
44A0 C4F1 F1F2 40D5 D6D5 1715 | EBC .D112 NON-BLANK CARD READ ENTER . 2-8 J0517080
60C2 D3C1 D5D2 40C3 |
C1D9 C440 D9C5 C1C4 |
40C5 D5E3 C5D9 4040 |
44B0 C2D3 C1D5 D240 C3C1 1716 | EBC .BLANK CARDS. 2-8 J0517090
D9C4 E240 |
44B6 1717 | XP320 EQU * J0517100
1718 | *************************************************** J0517110
1719 | * * J0517120
1720 | * END OF SOURCE * J0517130
1721 | * * J0517140
1722 | *************************************************** J0517150
DUMP-PLACE DATA ON PRINTER
1724 | *************************************************** J0517170
1725 | * * J0517180
1726 | *FUNCTION- * J0517190
1727 | * *THIS SUBROUTINE PLACES THE DATA IN DD921 IN * J0517200
1728 | * A BUFFER TO PRINT THE ON THE PRINCIPAL * J0517210
1729 | * PRINTER. * J0517220
1730 | * * J0517230
1731 | *ENTRY POINTS- * J0517240
1732 | * *XL000-THIS SUBROUTINE PLACES THE DATA IN THE * J0517250
1733 | * BUFFER AND DIRECTS THE PRINTING ON THE * J0517260
1734 | * PRINCIPAL PRINT DEVICE. * J0517270
1735 | * * J0517280
1736 | *INPUT- * J0517290
1737 | * *N/A * J0517300
1738 | * * J0517310
1739 | *OUTPUT- * J0517320
1740 | * *THIS SUBR PRINTS ON THE PRINCIPAL PRINT * J0517330
1741 | * DEVICE. * J0517340
1742 | * * J0517350
1743 | *EXTERNAL REFERANCES- * J0517360
1744 | * *PRINT-THIS SUBR IN DUPCO PRINTS A LINE * J0517370
1745 | * ON THE PRINCIPAL PRINT DEVICE. * J0517380
1746 | * * J0517390
1747 | * *LINE - THIS SUBR IN DUPCO SPACES A LINE * J0517400
1748 | * ON THE PRINCIPAL PRINT DEVICE. * J0517410
1749 | * * J0517420
1750 | * *BINEB- THIS SUBR IN DUPCO CONVERTS ONE * J0517430
1751 | * BINERY WORD INTO TWO EBCDIC WORDS. * J0517440
1752 | * * J0517450
1753 | * *TEMP1-THIS DOUBLE WORD IN DUPCO HOLDS THE * J0517460
1754 | * OUTPUT OF BINEB. * J0517470
1755 | * * J0517480
1756 | * *XC000- THIS SUBR IN DUMP CLEARS THE PRINT * J0517490
1757 | * AREA AND INITIALIZES SOME OF THE POINTERS IN * J0517500
1758 | * THIS ROUTINE. * J0517510
1759 | * * J0517520
1760 | * *XI000- THIS SUBR IN DUMP PLACES A DOUBLE * J0517530
1761 | * WORD IN THE PRINT AREA AND HANDLES THE * J0517540
1762 | * SPACING ON A LINE. * J0517550
1763 | * * J0517560
1764 | * *DD921-THIS WORD HOLDS THE DATA WORD THAT IS * J0517570
1765 | * TO BE PLACED IN THE BUFFER AND ON THE SYSTEM * J0517580
1766 | * PRINTER. * J0517590
1767 | * INITIALIZED BY DU200. * J0517600
1768 | * * J0517610
1769 | * *DD922-THIS WORD INDICATES THE TYPE ON DD921. * J0517620
1770 | * IF DD921 IS EQUAL TO 3 THEN IT IS THE * J0517630
1771 | * LAST WORD OF THE DATA. * J0517640
1772 | * INITIALIZED BY XG000. * J0517650
1773 | * * J0517660
1774 | * *DD999-THIS IS A 60 WORD BUFFER USED TO PRINT * J0517670
1775 | * THE DATA WORDS FROM. * J0517680
1776 | * THE IOAR HEADER IS INITIALIZED BY DUMP * J0517690
1777 | * MAINLINE. * J0517700
1778 | * * J0517710
1779 | *EXITS- * J0517720
1780 | * NORMAL- * J0517730
1781 | * *THE NORMAL EXIT IS TO THE WORD FOLLOWING * J0517740
1782 | * THE BSI INSTRUCTION THAT CALLED THIS * J0517750
1783 | * SUBROUTINE. * J0517760
1784 | * * J0517770
1785 | * ERRORS- * J0517780
1786 | * *N/A * J0517790
1787 | * * J0517800
1788 | *TABLES/WORK AREAS- * J0517810
1789 | * *DD945-THIS WORD IS A SWITCH THAT INDICATES * J0517820
1790 | * THAT A HEADER SHOULD BE PRINTED. * J0517830
1791 | * 0 = PRINT HEADER * J0517840
1792 | * NOT 0 = HEADER IS PRINTED * J0517850
1793 | * INITIALIZED BY DUMP MAINLINE. * J0517860
1794 | * MAINTAINED BY THIS SUBROUTINE. * J0517870
1795 | * * J0517880
1796 | * *DD946-THIS WORD IS A COUNT OF THE BLANK WORDS* J0517890
1797 | * THAT ARE TO BE PLACED ON THE FIRST LINE OF * J0517900
1798 | * PRINTED OUTPUT. * J0517910
1799 | * INITIALIZED BY DUMP MAINLINE. * J0517920
1800 | * MAINTAINED BY THIS SUBROUTINE. * J0517930
1801 | * * J0517940
1802 | * *DD947-THIS WORD IS THE COUNT OF NUMBER OF * J0517950
1803 | * WORDS ON THE PRINT LINE STILL TO BE FILLED. * J0517960
1804 | * INITIALIZED BY XC000. * J0517970
1805 | * MAINTAINED BY THIS SUBROUTINE. * J0517980
1806 | * * J0517990
1807 | * *DD948-THIS WORD IS A SWITCH THAT INDICATES IF* J0518000
1808 | * THE PROGRAM BEING DUMPED IS CORE IMAGE OR * J0518010
1809 | * NOT. * J0518020
1810 | * 0 = NOT CORE IMAGE * J0518030
1811 | * NOT 0 = CORE IMAGE * J0518040
1812 | * INITIALIZED BY DUMP MAINLINE. * J0518050
1813 | * * J0518060
1814 | * *DD949-THIS WORD IS THE NUMBER OF LINES TO BE * J0518070
1815 | * PRINTED BEFORE A SPACE TO BLOCK THE OUTPUT. * J0518080
1816 | * INITIALIZED BY DUMP MAINLINE. * J0518090
1817 | * MAINTAINED BY THIS SUBROUTINE. * J0518100
1818 | * * J0518110
1819 | *NOTES- * J0518120
1820 | * *THE CALLING SEQUENCE TO THIS SUBROUTINE IS A * J0518130
1821 | * BSI INSTRUCTION TO IT. * J0518140
1822 | * * J0518150
1823 | * *INDEX REGISTER 1 POINTS AT THE LABEL C IN * J0518160
1824 | * DUPCO. * J0518170
1825 | * * J0518180
1826 | * *INDEX REGISTER 2 POINTS AT THE LABEL X IN THE* J0518190
1827 | * MIDDLE OF DUMPS CONSTANTS AND WORKING STORAGE* J0518200
1828 | * AREA. * J0518210
1829 | * * J0518220
1830 | * *INDEX REGISTER 3 IS USED AS A WORKING * J0518230
1831 | * REGISTER SO ITS CONTENTS ARE DESTROYED. * J0518240
1832 | * * J0518250
1833 | *************************************************** J0518260
DUMP-PLACE DATA ON PRINTER
1835 | * J0518280
1836 | * ENTRY POINT J0518290
1837 | * J0518300
44B6 0000 1838 | XL000 DC *-* LINK WORD J0518310
1839 | * 2E2 J0518320
1840 | * TEST TO SEE IF DUMP EBCDIC ON PRINTER 2E2 J0518330
1841 | * 2E2 J0518340
44B7 C133 1842 | LD 1 EBCSW 2E2 J0518350
44B8 4C18 44D9 1843 | BSC L XL050,+- BRANCH IF NOT DUMPDATA E2E2 J0518360
1844 | * 2E2 J0518370
44BA 4400 454D 1845 | BSI L XC000 LINK TO CLEAR PRINT BFR 2E2 J0518380
1846 | * 2E2 J0518390
44BC C2B4 1847 | LD 2 DD965-X GET DB COUNT 2E2 J0518400
44BD D2AE 1848 | STO 2 DD959-X 2E2 J0518410
44BE C15D 1849 | LD 1 PEBUF 2E2 J0518420
44BF D012 1850 | STO XL030 STORE ADDRESS OF LINE 2E2 J0518430
44C0 C2CD 1851 | XL010 LD 2 DD988-X 40 WORDS TO MOVE 2E2 J0518440
44C1 1801 1852 | SRA 1 DIVIDE 80 BY 2 2E2 J0518450
44C2 D2A9 1853 | STO 2 DD954-X STORE IN COUNTER 2E2 J0518460
44C3 6780 7FFD 1854 | LDX I3 PEBUF+C 2E2 J0518470
44C5 C288 1855 | XL020 LD 2 DD921-X GET DATA WORD 2E2 J0518480
44C6 D301 1856 | STO 3 1 2E2 J0518490
44C7 6B03 1857 | STX 3 XL025+1 SAVE XR3 TEMPORARILY 2-8 J0518500
44C8 4400 42B8 1858 | BSI L XG000 FETCH NEW DATA WORD 2E2 J0518510
44CA 6700 0000 1859 | XL025 LDX L3 *-* RESTORE XR3 2-8 J0518520
44CC 7301 1860 | MDX 3 1 POINT TO NEXT CHARACTER 2E2 J0518530
44CD 74FF 4607 1861 | MDX L DD954,-1 DECREASE COUNTER 2E2 J0518540
44CF 70F5 1862 | MDX XL020 MOVE 40 WORDS,THEN PRINT2E2 J0518550
44D0 4480 7DBB 1863 | BSI I PRINT PRINT 1 LINE, 80 COLUMNS2E2 J0518560
44D2 0000 1864 | XL030 DC *-* 2E2 J0518570
44D3 74FE 460C 1865 | MDX L DD959,-2 DECR BY 2 DB'S (=ONE CD)2E2 J0518580
44D5 70EA 1866 | MDX XL010 PROCESS NEXT CARD IMAGE 2E2 J0518590
44D6 C2BE 1867 | LD 2 DD972-X PLACE CONSTANT 3 TO 2E2 J0518600
44D7 D289 1868 | STO 2 DD922-X *INDICATE LAST RECORD 2E2 J0518610
44D8 703A 1869 | MDX XL190 2E2 J0518620
1870 | * J0518630
1871 | * TEST TO SEE IF THE HEADER HAS TO BE PRINTED J0518640
1872 | * J0518650
44D9 C2A0 1873 | XL050 LD 2 DD945-X LOAD PRINT HEADER SWITCH J0518660
44DA 4C20 44EF 1874 | BSC L XL120,Z BRANCH TO NOT PRINT HEADER J0518670
1875 | * J0518680
1876 | * PRINT HEADER J0518690
1877 | * J0518700
44DC 4480 7DBB 1878 | BSI I PRINT LINK TO PRINT A LINE J0518710
44DE 4516 1879 | DC XL220 ADDRESS OF HEADER J0518720
44DF 4480 7DB5 1880 | BSI I LINE SKIP A LINE ON PRINTER J0518730
1881 | * J0518740
1882 | * INDICATE THAT HEADER HAS BEEN PRINTED J0518750
1883 | * J0518760
44E1 6C00 45FE 1884 | STX L0 DD945 SET PRINT HEADER SWITCH J0518770
1885 | * J0518780
1886 | * LINK THE CLEAR PRINT AREA AND READY IT FOR J0518790
1887 | * DUMPING OF DATA TO PRINTER J0518800
1888 | * J0518810
44E3 4069 1889 | BSI XC000 LINK TO CLEAR ROUTINE J0518820
1890 | * J0518830
1891 | * TEST TO SEE IF BLANKS ARE TO BE PLACED IN THE J0518840
1892 | * PRINT AREA TO POSITION DATA J0518850
1893 | * J0518860
44E4 C2A1 1894 | LD 2 DD946-X LOAD BLANK COUNT J0518870
44E5 4C18 44EF 1895 | BSC L XL120,+- BRANCH IF NONE TO BE PLACED J0518880
1896 | * J0518890
1897 | * PLACE A BLANK WORD IN PRINT AREA J0518900
1898 | * J0518910
44E7 CABA 1899 | XL100 LDD 2 DD969-X LOAD BLANK WORD J0518920
44E8 4400 4568 1900 | BSI L XI000 LINK TO PLACE BLANK WORD J0518930
1901 | * J0518940
1902 | * DECREMENT WORD COUNT AND CHECK TO SEE IF NOW J0518950
1903 | * ZERO J0518960
44EA 74FF 4600 1904 | MDX L DD947,-1 DECR WORDS PER LINE COUNT J0518970
44EC 74FF 45FF 1905 | MDX L DD946,-1 DECREMENT COUNT J0518980
44EE 70F8 1906 | MDX XL100 BRANCH IF COUNT NOT ZERO J0518990
1907 | * J0519000
1908 | * PLACE DATA WORD IN PRINT AREA J0519010
1909 | * J0519020
44EF C288 1910 | XL120 LD 2 DD921-X LOAD WORD J0519030
44F0 4480 7DB0 1911 | BSI I BINEB LINK TO FORMAT TO EBCDIC J0519040
44F2 C92C 1912 | LDD 1 TEMP1 LOAD FORMATED WORD J0519050
44F3 4074 1913 | BSI XI000 LINK TO PLACE IN BUFFER J0519060
1914 | * J0519070
1915 | * J0519080
1916 | * TEST TO SEE IF THAT WAS THE LAST WORD OF DATA J0519090
1917 | * TO BE PRINTED J0519100
1918 | * J0519110
44F4 C289 1919 | LD 2 DD922-X LOAD INDICATOR WORD J0519120
44F5 92BE 1920 | S 2 DD972-X J0519130
44F6 4C18 44FB 1921 | BSC L XL140,+- BRANCH IF LAST DATA WORD J0519140
1922 | * J0519150
1923 | * DECREMENT LINE COUNT AND TEST TO SEE IF LINE J0519160
1924 | * IS FULL J0519170
1925 | * J0519180
44F8 74FF 4600 1926 | MDX L DD947,-1 DECREMENT WORD COUNT J0519190
44FA 7019 1927 | MDX XL200 BRANCH IF WORD COUNT NOT 0 J0519200
1928 | * J0519210
1929 | * PRINT THE LINE OF DATA J0519220
1930 | * J0519230
44FB C15D 1931 | XL140 LD 1 PEBUF J0519240
44FC D002 1932 | STO *+2 SAVE PRINT AREA ADDRESS J0519250
44FD 4480 7DBB 1933 | BSI I PRINT LINT TO PRINT LINE J0519260
44FF 0000 1934 | DC *-* ADDRESS OF PRINT AREA J0519270
1935 | * J0519280
1936 | * DECREMENT THE COUNT OF LINES PER BLOCK AND TEST J0519290
1937 | * FOR WHEN IT REACHS ZERO J0519300
1938 | * J0519310
4500 74FF 4602 1939 | MDX L DD949,-1 DECREMENT LINE COUNT J0519320
4502 7009 1940 | MDX XL180 BRANCH IF LINE COUNT NOT 0 J0519330
1941 | * J0519340
1942 | * SPACE A LINE ON THE SYSTEM PRINTER J0519350
1943 | * J0519360
4503 C480 0006 1944 | LD I $CH12 LOAD CHANNEL 12 INDICATOR J0519370
4505 4498 7DB5 1945 | BSI I LINE,+- BRANCH TO SPACE A LINE J0519380
1946 | * ***CODING REMOVED*** 2-8 J0519390
1947 | * J0519400
1948 | * INITIALIZE COUNT OF LINES PER BLOCK TO 20 J0519410
1949 | * J0519420
4507 C2C7 1950 | LD 2 DD982-X J0519430
1951 | * 2-8 J0519440
1952 | * TEST IF CORE IMAGE PROGRAM IS BEING DUMPED 2-8 J0519450
1953 | * 2-8 J0519460
4508 7400 4601 1954 | MDX L DD948,0 SKIP IF NOT DCI 2-8 J0519470
1955 | * J0519480
1956 | * INITIALIZE COUNT OF LINES PER BLOCK TO 16 J0519490
1957 | * J0519500
450A C2C5 1958 | LD 2 DD979-X SET LINE CNT TO 16 2-8 J0519510
450B D2A4 1959 | STO 2 DD949-X STORE LINES PER BLOCK J0519520
1960 | * J0519530
1961 | * CHECK IF PAGE RESTORED J0519540
1962 | * J0519550
450C C480 0006 1963 | XL180 LD I $CH12 LOAD CHANNEL 12 INDICATOR J0519560
450E 4C18 4513 1964 | BSC L XL190,+- BRANCH IF NOT CHANNEL 12 J0519570
1965 | * J0519580
1966 | * INDICATE THAT A NEW HEADING SHOULD BE PRINTED J0519590
1967 | * J0519600
4510 1010 1968 | SLA 16 J0519610
4511 D2A0 1969 | STO 2 DD945-X SET PRINT HEADER SWITCH J0519620
4512 7001 1970 | MDX XL200 BRANCH J0519630
1971 | * J0519640
1972 | * LINK TO CLEAR PRINT AREA AND READY IT DUMPING J0519650
1973 | * OF DATA TO PRINTER J0519660
1974 | * J0519670
4513 4039 1975 | XL190 BSI XC000 LINK TO CLEAR AREA J0519680
1976 | * J0519690
1977 | * RETURN TO THE CALLING PROGRAM J0519700
1978 | * J0519710
4514 4C80 44B6 1979 | XL200 BSC I XL000 RETURN J0519720
1980 | * J0519730
1981 | * PRINTER HEADING J0519740
1982 | * J0519750
4516 0036 1983 | XL220 DC XL240-* WORD COUNT J0519760
4517 C1C4 C4D9 4040 4040 1984 | EBC .ADDR ***0 ***1 ***2 ***3 . J0519770
5C5C 5CF0 4040 5C5C |
5CF1 4040 5C5C 5CF2 |
4040 5C5C 5CF3 4040 |
4040 |
4528 5C5C 5CF4 4040 5C5C 1985 | EBC .***4 ***5 ***6 ***7 ***8 **. J0519780
5CF5 4040 5C5C 5CF6 |
4040 5C5C 5CF7 4040 |
4040 5C5C 5CF8 4040 |
5C5C |
4539 5CF9 4040 5C5C 5CC1 1986 | EBC .*9 ***A ***B ***C ***D ***E. J0519790
4040 5C5C 5CC2 4040 |
4040 5C5C 5CC3 4040 |
5C5C 5CC4 4040 5C5C |
5CC5 |
454A 4040 5C5C 5CC6 1987 | EBC . ***F. J0519800
454D 1988 | XL240 EQU * J0519810
1989 | *************************************************** J0519820
1990 | * * J0519830
1991 | * END OF SOURCE * J0519840
1992 | * * J0519850
1993 | *************************************************** J0519860
DUMP-CLEAR PRINT AREA
1995 | *************************************************** J0519880
1996 | * * J0519890
1997 | *FUNCTION- * J0519900
1998 | * *THIS SUBROUTINE CLEARS THE PRINT BUFFER TO * J0519910
1999 | * BLANKS AND INITIALIZES SOME POINTERS IN * J0519920
2000 | * XL000. * J0519930
2001 | * * J0519940
2002 | *ENTRY POINTS- * J0519950
2003 | * *XC000-THIS SUBR PERFORMS THE ABOVE FUNCTION. * J0519960
2004 | * * J0519970
2005 | *INPUT- * J0519980
2006 | * *N/A * J0519990
2007 | * * J0520000
2008 | *OUTPUT- * J0520010
2009 | * *N/A * J0520020
2010 | * * J0520030
2011 | *EXTERNAL REFERENCES- * J0520040
2012 | * *BINEB-THIS SUBR IN DUPCO CONVERTS ONE * J0520050
2013 | * BINARY WORD INTO TWO EBCDIC WORDS. * J0520060
2014 | * * J0520070
2015 | * *TEMP1-THIS DOUBLE WORD IN DUPCO HOLDS THE * J0520080
2016 | * OUTPUT OF BINEB. * J0520090
2017 | * * J0520100
2018 | * *DD951-THIS WORD HOLDS THE ADDRESS OF THE * J0520110
2019 | * NEXT WORD OF THE PRINT AREA THAT WILL ACCEPT * J0520120
2020 | * DATA. * J0520130
2021 | * INITIALIZED BY THIS ROUTINE. * J0520140
2022 | * * J0520150
2023 | * *DD953-THIS WORD HOLDS THE COUNT OF THE NUMBER* J0520160
2024 | * OF XI000 FUNCTIONS THAT ARE TO BE DONE BEFORE* J0520170
2025 | * AN ADDITIONAL SET OF SPACES ARE TO BE PLACED * J0520180
2026 | * ON THE LINE. * J0520190
2027 | * INITIALIZED BY THIS ROUTINE. * J0520200
2028 | * * J0520210
2029 | * *DD947-THIS WORD HOLDS THE COUNT OF THE * J0520220
2030 | * NUMBER OF DATA WORD TO BE PLACED ON THE LINE.* J0520230
2031 | * INITIALIZED BY THIS ROUTINE. * J0520240
2032 | * * J0520250
2033 | *EXITS- * J0520260
2034 | * *NORMAL- * J0520270
2035 | * *THE NORMAL EXIT IS TO THE WORD FOLLOWING * J0520280
2036 | * THE BSI INSTRUCTION THAT CALLED THIS * J0520290
2037 | * SUBROUTINE. * J0520300
2038 | * * J0520310
2039 | * *ERRORS- * J0520320
2040 | * *N/A * J0520330
2041 | * * J0520340
2042 | *TABLES/WORK AREAS- * J0520350
2043 | * *DD950-THIS WORD HOLDS THE COUNT OF THE NUMBER* J0520360
2044 | * OF WORDS IN THE PRINT AREA TO CLEAR. * J0520370
2045 | * MAINTAINED BY THIS SUBROUTINE. * J0520380
2046 | * * J0520390
2047 | * *PEBUF-THIS WORD HOLDS THE ADDRESS OF A 61 * J0520400
2048 | * WORD BUFFER THAT IS USED TO HOLD THE DATA * J0520410
2049 | * GOING TO THE PRINTER. THIS WORD IS LOCATED IN* J0520420
2050 | * DUPCO. * J0520430
2051 | * IOAR HEADER INITIALIZED BY DUMP MAINLINE. * J0520440
2052 | * * J0520450
2053 | *NOTES- * J0520460
2054 | * *THE CALLING SEQUENCE TO THIS SUBROUTINE IS A * J0520470
2055 | * BSI INSTRUCTION TO IT. * J0520480
2056 | * * J0520490
2057 | * *INDEX REGISTER 1 POINTS AT THE LABEL C IN * J0520500
2058 | * DUPCO. * J0520510
2059 | * * J0520520
2060 | * *INDEX REGISTER 2 POINTS AT THE LABEL X IN THE* J0520530
2061 | * MIDDLE OF DUMPS CONSTANTS AND WORKING STORAGE* J0520540
2062 | * AREA. * J0520550
2063 | * * J0520560
2064 | * *INDEX REGISTER 3 IS USED AS A WORKING * J0520570
2065 | * REGISTER SO ITS CONTENTS ARE DESTROYED. * J0520580
2066 | * * J0520590
2067 | *************************************************** J0520600
2068 | * J0520610
2069 | * ENTRY POINT J0520620
2070 | * J0520630
454D 0000 2071 | XC000 DC *-* LINK WORD J0520640
2072 | * J0520650
2073 | * CLEAR PRINT BUFFER J0520660
2074 | * J0520670
454E C2CC 2075 | LD 2 DD987-X J0520680
454F D2A5 2076 | STO 2 DD950-X WORD COUNT TO CLEAR J0520690
4550 6780 7FFD 2077 | LDX I3 PEBUF+C REGISTER 3 POINTS AT BUFFER J0520700
4552 C2BA 2078 | LD 2 DD969-X LOAD DOUBLE BLANKS J0520710
4553 D301 2079 | XC100 STO 3 1 STORA A DOUBLE BLANK J0520720
4554 7301 2080 | MDX 3 1 INCREMENT BUFFER POINTER J0520730
4555 74FF 4603 2081 | MDX L DD950,-1 DECREMENT WORD COUNT J0520740
4557 70FB 2082 | MDX XC100 BRANCH IF WORD COUNT NOT 0 J0520750
2083 | * J0520760
2084 | * INITIALIZE POINTERS J0520770
2085 | * J0520780
4558 C15D 2086 | LD 1 PEBUF J0520790
4559 82BC 2087 | A 2 DD970-X J0520800
455A D2A6 2088 | STO 2 DD951-X SET PLACEMENT ADDRESS J0520810
455B C2BC 2089 | LD 2 DD970-X J0520820
455C D2A8 2090 | STO 2 DD953-X SET SKIP COUNT TO 1 J0520830
455D C2C5 2091 | LD 2 DD979-X J0520840
455E D2A2 2092 | STO 2 DD947-X PLACE WORDS PER LINE J0520850
2093 | * J0520860
2094 | * PLACE THE ADDRESS OF THE LINE J0520870
2095 | * J0520880
455F C2A7 2096 | LD 2 DD952-X LOAD LINE ADDRESS J0520890
4560 82C5 2097 | A 2 DD979-X INCREMENT LINE ADDRESS J0520900
4561 D2A7 2098 | STO 2 DD952-X STORE UPDATED ADDRESS J0520910
4562 4480 7DB0 2099 | BSI I BINEB FORMAT ADDRESS TO PRINT J0520920
4564 C92C 2100 | LDD 1 TEMP1 LOAD FORMATED ADDRESS J0520930
4565 4002 2101 | BSI XI000 PLACE DATA IN BUFFER J0520940
2102 | * J0520950
2103 | * RETURN TO THE CALLING PROGRAM J0520960
2104 | * J0520970
4566 4C80 454D 2105 | BSC I XC000 RETURN J0520980
2106 | *************************************************** J0520990
2107 | * * J0521000
2108 | * END OF SOURCE * J0521010
2109 | * * J0521020
2110 | *************************************************** J0521030
DUMP-PLACE IN PRINT AREA
2112 | *************************************************** J0521050
2113 | * * J0521060
2114 | *FUNCTION- * J0521070
2115 | * *THIS SUBROUTINE PLACES THE DATA IN THE A AND * J0521080
2116 | * Q REGISTERS IN THE PRINT BUFFER. * J0521090
2117 | * * J0521100
2118 | *ENTRY POINTS- * J0521110
2119 | * *XI000-THIS SUBROUTINE DOES THE ABOVE FUNCTION* J0521120
2120 | * * J0521130
2121 | *INPUT- * J0521140
2122 | * *N/A * J0521150
2123 | * * J0521160
2124 | *OUTPUT- * J0521170
2125 | * *N/A * J0521180
2126 | * * J0521190
2127 | *EXTERNAL REFERANCES- * J0521200
2128 | * *DD951-THIS WORD HOLDS THE ADDRESS OF WHERE * J0521210
2129 | * THE DATA IS TO BE PLACED IN THE BUFFER. * J0521220
2130 | * INITIALIZED BY XC000. * J0521230
2131 | * MAINTAINED BY THIS SUBROUTINE. * J0521240
2132 | * * J0521250
2133 | * *DD953-THIS WORD HOLDS THE COUNT OF THE * J0521260
2134 | * NUMBER OF DATA ELEMENTS TO BE PLACED BEFORE * J0521270
2135 | * AN ADDITIONAL SET OF SKIPS IS REQUIRED. * J0521280
2136 | * INITIALIZED BY XC000. * J0521290
2137 | * MAINTAINED BY THIS SUBROUTINE. * J0521300
2138 | * * J0521310
2139 | *EXITS- * J0521320
2140 | * *NORMAL- * J0521330
2141 | * *THE NORMAL EXIT IS TO THE WORD FOLLOWING * J0521340
2142 | * THE BSI INSTRUCTION THAT CALLED THIS * J0521350
2143 | * SUBROUTINE. * J0521360
2144 | * * J0521370
2145 | * *ERRORS- * J0521380
2146 | * *N/A * J0521390
2147 | * * J0521400
2148 | *TABLES/WORK AREAS- * J0521410
2149 | * *PEBUF-THIS WORD HOLDS THE ADDRESS OF A 61 * J0521420
2150 | * WORD BUFFER THAT IS USED TO HOLD THE DATA * J0521430
2151 | * GOING TO THE PRINTER. THIS WORD IS LOCATED IN* J0521440
2152 | * DUPCO. * J0521450
2153 | * IOAR HEADER INITIALIZED BY DUMP MAINLINE. * J0521460
2154 | * * J0521470
2155 | *NOTES- * J0521480
2156 | * *THE CALLING SEQUENCE TO THIS SUBROUTINE IS A * J0521490
2157 | * LDD DATA * J0521500
2158 | * BSI XI000 * J0521510
2159 | * * J0521520
2160 | * *INDEX REGISTER 1 POINTS AT THE LABEL C IN * J0521530
2161 | * DUPCO. * J0521540
2162 | * * J0521550
2163 | * *INDEX REGISTER 2 POINTS AT THE LABEL X IN THE* J0521560
2164 | * MIDDLE OF DUMPS CONSTANTS AND WORKING STORAGE* J0521570
2165 | * AREA. * J0521580
2166 | * * J0521590
2167 | *************************************************** J0521600
2168 | * J0521610
2169 | * ENTRY POINT J0521620
2170 | * J0521630
4568 0000 2171 | XI000 DC *-* LINK WORD J0521640
2172 | * J0521650
2173 | * PLACE THE FORMATED DATA J0521660
2174 | * J0521670
4569 D480 4604 2175 | STO I DD951 PLACE FIRST WORD J0521680
456B 7401 4604 2176 | MDX L DD951,1 INCREMENT ADDRESS J0521690
456D 18D0 2177 | RTE 16 J0521700
456E D480 4604 2178 | STO I DD951 PLACE SECOND WORD J0521710
4570 7402 4604 2179 | MDX L DD951,2 INCREMENT ADDRESS J0521720
2180 | * J0521730
2181 | * INCREMENT SKIP COUNT AND CHECK FOR ZERO J0521740
2182 | * J0521750
4572 74FF 4606 2183 | MDX L DD953,-1 DECREMENT SKIP COUNT J0521760
4574 7004 2184 | MDX XI500 BRANCH IF COUNT NOT 0 J0521770
2185 | * J0521780
2186 | * INCREMENT FOR ADDITIONAL BLANKS J0521790
2187 | * J0521800
4575 7401 4604 2188 | MDX L DD951,1 INCREMENT ADDRESS J0521810
2189 | * J0521820
2190 | * RESET SKIP COUNT TO 4 J0521830
2191 | * J0521840
4577 C2BF 2192 | LD 2 DD973-X J0521850
4578 D2A8 2193 | STO 2 DD953-X SKIP COUNT = 4 J0521860
2194 | * J0521870
2195 | * RETURN TO CALLING PROGRAM J0521880
2196 | * J0521890
4579 4C80 4568 2197 | XI500 BSC I XI000 RETURN J0521900
2198 | *************************************************** J0521910
2199 | * * J0521920
2200 | * END OF SOURCE * J0521930
2201 | * * J0521940
2202 | *************************************************** J0521950
CONV EBCDIC - CARD CODE. RJE. 2E2
2204 | ************************************************2E2 J0521970
2205 | * 2E2 J0521980
2206 | * SPECIAL SUBROUTINE TO CONVERT FROM EBCDIC TO2E2 J0521990
2207 | * CARD CODE AND PLACE DATA ON CARD, FOR RJE. 2E2 J0522000
2208 | * USED BY XF000 AND ENTERED FROM XF260 ONLY. 2E2 J0522010
2209 | * 2E2 J0522020
2210 | ************************************************2E2 J0522030
2211 | * 2E2 J0522040
457B C049 2212 | XE000 LD XE960 SET FIRST HALF SWITCH 2-9 J0522050
457C D047 2213 | STO XE950 *POSITIVE 2-9 J0522060
457D C288 2214 | LD 2 DD921-X LD PACKED EBCDIC WD 2-9 J0522070
457E D041 2215 | STO XE910 SAVE WD 2-9 J0522080
457F 693A 2216 | STX 1 XE110+1 SAVE XR1 2-9 J0522090
4580 6A3B 2217 | STX 2 XE111+1 SAVE XR2 2-9 J0522100
4581 1808 2218 | SRA 8 2-9 J0522110
4582 E042 2219 | XE020 AND XE960 MASK OFF HALF 2-9 J0522120
4583 D03D 2220 | STO XE920 SAVE CURRENT HALF 2-9 J0522130
2221 | * 2-9 J0522140
2222 | * SEARCH TABLE IN 1442 CONVERSION ROUTINE. 2-9 J0522150
2223 | * THE CONSTANT XE900 IS THE TABLE LOCATION 2-9 J0522160
2224 | * RELATIVE TO THE BEGINNING OF THE ROUTINE. 2-9 J0522170
2225 | * THIS CONSTANT MUST BE MANUALLY CHANGED 2-9 J0522180
2226 | * IF THE POSITION OF THE TABLE MOVES. 2-9 J0522190
2227 | * 2-9 J0522200
4584 6580 7A09 2228 | LDX I1 IOADR+3 GET LD ADDR OF 1442 CONV2-9 J0522210
4586 7580 45BF 2229 | MDX I1 XE900 POINT TO TABL BEGIN 2-9 J0522220
4588 6680 45C3 2230 | LDX I2 XE940 SET TO -TABL SIZE 2-9 J0522230
458A 10A0 2231 | XE040 SLT 32 CLEAR ACC-EXT 2-9 J0522240
458B C100 2232 | LD 1 GET TABL WD LLRR 0000 2-9 J0522250
458C 18C8 2233 | RTE 8 00LL RR00 2-9 J0522260
458D 9033 2234 | S XE920 COMPARE WITH CURR HALF 2-9 J0522270
458E 4C18 459B 2235 | BSC L XE060,+- BR IF FOUND LEFT 2-9 J0522280
4590 1010 2236 | SLA 16 GET RT HALF 0000 RR00 2-9 J0522290
4591 1088 2237 | SLT 8 *OF TABL WD 00RR 0000 2-9 J0522300
4592 902E 2238 | S XE920 COMPARE 2-9 J0522310
4593 4C18 459A 2239 | BSC L XE050,+- BR IF FOUND RIGHT 2-9 J0522320
4595 7101 2240 | MDX 1 1 PT TO NEXT TABL WD 2-9 J0522330
4596 7201 2241 | MDX 2 1 MODIFY WD CNT 2-9 J0522340
4597 70F2 2242 | MDX XE040 LOOP 2-9 J0522350
4598 1010 2243 | SLA 16 NOT FOUND IN TABL 2-9 J0522360
4599 7014 2244 | MDX XE100 *OUTPUT BLANK CHAR 2-9 J0522370
2245 | * 2-9 J0522380
2246 | * DISPLACEMENT IN TABL IS CONVERTED TO CD CODE2-9 J0522390
2247 | * 2-9 J0522400
459A C02B 2248 | XE050 LD XE980 SET TO PUN 9 COL 2-9 J0522410
459B D02C 2249 | XE060 STO XE990 *AS FOUND RIGHT OR LEFT 2-9 J0522420
459C 6A25 2250 | STX 2 XE930 2-9 J0522430
459D C024 2251 | LD XE930 GET PLACE WHERE FOUND 2-9 J0522440
459E 9024 2252 | S XE940 SET POSITIVE 007F XXXX 2-9 J0522450
459F 1884 2253 | SRT 4 1-7 PUN IN ACC0007 FXXX 2-9 J0522460
45A0 4C18 45A7 2254 | BSC L XE090,+- BR IF NO PUN IN 1-7 2-9 J0522470
45A2 D001 2255 | STO XE080+1 2-9 J0522480
45A3 6600 0000 2256 | XE080 LDX L2 *-* USE TO SHIFT PUN CHAR 2-9 J0522490
45A5 C021 2257 | LD XE970 PUNCH CHAR FOR 1-7 2-9 J0522500
45A6 1200 2258 | SLA 2 *SHIFTED TO CORR PLACE 2-9 J0522510
45A7 E820 2259 | XE090 OR XE990 PUT IN 9 PUNCH 2-9 J0522520
45A8 D018 2260 | STO XE920 SAVE TEMP 2-9 J0522530
45A9 1083 2261 | SLT 3 GET 12 11 0 PUN FROM EXT2-9 J0522540
45AA 1007 2262 | SLA 7 ALLOW FOR 1-7 PUNCH 2-9 J0522550
45AB 1081 2263 | SLT 1 PICK UP 8 PUN FROM EXT 2-9 J0522560
45AC 1005 2264 | SLA 5 POSITION 2-9 J0522570
45AD E813 2265 | OR XE920 PUT IN 1-7 AND 9 2-9 J0522580
2266 | * 2-9 J0522590
45AE D480 45F9 2267 | XE100 STO I DD940 CONV CD CODE TO BUFFER 2-9 J0522600
45B0 7401 45F9 2268 | MDX L DD940,1 INCREMENT ADDR 2-9 J0522610
45B2 C011 2269 | LD XE950 LD FIRST/SEC HALF SW 2-9 J0522620
45B3 4C18 45B9 2270 | BSC L XE110,+- BR IF THROUGH 2-9 J0522630
45B5 1010 2271 | SLA 16 2-9 J0522640
45B6 D00D 2272 | STO XE950 SET FOR SEC HALF 2-9 J0522650
45B7 C008 2273 | LD XE910 GET SEC HALF 2-9 J0522660
45B8 70C9 2274 | MDX XE020 GO TO CONVERT 2-9 J0522670
2275 | * 2-9 J0522680
45B9 6500 0000 2276 | XE110 LDX L1 *-* RESTORE XR1 2-9 J0522690
45BB 6600 0000 2277 | XE111 LDX L2 *-* RESTORE XR2 2-9 J0522700
45BD 4C00 43B9 2278 | BSC L XF265 BRANCH BACK 2-9 J0522710
2279 | * 2-9 J0522720
45BF 0038 2280 | XE900 DC /0038 1442 CONV TABL BEGIN 2-9 J0522730
2281 | * *ALWAYS SP130-SP000-1 2-9 J0522740
45C0 0000 2282 | XE910 DC *-* SAVE WD BEING COMVERTED 2-9 J0522750
45C1 0000 2283 | XE920 DC *-* TEMP STORE- CIRR HALF 2-9 J0522760
45C2 0000 2284 | XE930 DC *-* NEG OF TABL DISP 2-9 J0522770
45C3 FF7F 2285 | XE940 DC -129 NEG OF TABL SIZE -1 2-9 J0522780
45C4 0000 2286 | XE950 DC *-* FIRST HALF IF NON ZERO 2-9 J0522790
45C5 00FF 2287 | XE960 DC /00FF MASK FOR HALF EBCDIC WD 2-9 J0522800
45C6 0010 2288 | XE980 DC /0010 CARD CODE FOR 9 PUNCH 2-9 J0522810
45C7 0020 2289 | XE970 DC /0020 CARD CODE FOR 8 PUNCH 2-9 J0522820
45C8 0000 2290 | XE990 DC *-* 9 PUNCH SW 2-9 J0522830
2291 | * 2-9 J0522840
2292 | * 2-9 J0522850
45C9 2293 | BSS 19 PATCH AREA 2-9 J0522860
45DC FFFF 2294 | DC /FFFF 2-9 J0522870
2295 | * 2-9 J0522880
2296 | * 2-9 J0522890
2297 | * 2-9 J0522900
2298 | * 2-9 J0522910
2299 | * 2E2 J0522920
2300 | ************************************************2E2 J0522930
2301 | * END OF SOURCE 2E2 J0522940
2302 | ************************************************2E2 J0522950
DUMP-TABLES/WORK AREAS
2304 | * J0522970
2305 | * DUMPS CONSTANTS AND WORKING STORAGE J0522980
2306 | * J0522990
45DE 2307 | BSS E 0 MAKE LOCATION COUNTER EVEN J0523000
465E 2308 | X EQU *+128 J0523010
45DE 0000 0000 2309 | DD900 DEC 0 PROGRAM WORD COUNT J0523020
45E0 0000 2310 | DD901 DC 0 DSW SENSE FUNCTION J0523030
45E1 1700 2311 | DC /1700 J0523040
45E2 0000 0000 2312 | DD902 DEC 0 PROGRAM NAME J0523050
45E4 0000 2313 | DD919 DC *-* PUNCH SEQ SW,4 COL IF - 2-9 J0523055
45E5 0000 2314 | DD920 DC *-* FIRST BFR FULL SWITCH J0523060
45E6 0000 2315 | DD921 DC *-* DATA WORD J0523070
45E7 0000 2316 | DD922 DC *-* INDICATOR WORD FOR DD921 J0523080
45E8 0000 2317 | DD923 DC *-* DUMP FUNCTION SWITCH J0523090
45E9 0000 2318 | DD924 DC *-* SECTOR READ SWITCH J0523100
45EA 0000 2319 | DD925 DC *-* GET WORD ADDRESS J0523110
45EB 0000 2320 | DD926 DC *-* GET WORD COUNT J0523120
45EC 0000 2321 | DD927 DC *-* WORDS TO HEADER J0523130
45ED 0000 2322 | DD928 DC *-* FIRST HEADER WORD SWITCH J0523140
45EE 0000 2323 | DD929 DC *-* WORDS TO INDICATOR J0523150
45EF 0000 2324 | DD930 DC *-* PUT WORD COUNT J0523160
45F0 0000 2325 | DD931 DC *-* PUT WORD ADDRESS J0523170
45F1 0000 2326 | DD932 DC *-* DISK INDICATOR BITS J0523180
45F2 0000 2327 | DD933 DC *-* SHIFT COUNT FOR DD932 J0523190
45F3 0000 2328 | DD934 DC *-* FIRST HEADER WORD SWITCH J0523200
45F4 0000 2329 | DD935 DC *-* FIRST HEADER SWITCH J0523210
45F5 0000 2330 | DD936 DC *-* PUNCH ADDRESS VALUE J0523220
45F6 0000 2331 | DD937 DC *-* LOCATION COUNTER J0523230
45F7 0000 2332 | DD938 DC *-* SHIFT COUNT FOR DD939 J0523240
45F8 0000 2333 | DD939 DC *-* WORD INDICATOR BITS J0523250
45F9 0000 2334 | DD940 DC *-* PUNCH WORD ADDRESS J0523260
45FA 0000 2335 | DD941 DC *-* CARD INDICATOR ADDRESS J0523270
45FB 0000 2336 | DD942 DC *-* PROGRAM EXECUTION ADDRESS J0523280
45FC 0000 2337 | DD943 DC *-* TEMPERARY COUNTER FOR LOOPS J0523290
45FD 0000 2338 | DD944 DC *-* CARD COUNT J0523300
45FE 0000 2339 | DD945 DC *-* HEADER PRINT SWITCH J0523310
45FF 0000 2340 | DD946 DC *-* BLANK WORD COUNT J0523320
4600 0000 2341 | DD947 DC *-* WORDS PER LINE J0523330
4601 0000 2342 | DD948 DC *-* CORE IMAGE SWITCH J0523340
4602 0000 2343 | DD949 DC *-* LINES PER BLOCK COUNT J0523350
4603 0000 2344 | DD950 DC *-* WORD COUNT TO CLEAR J0523360
4604 0000 2345 | DD951 DC *-* PLACEMENT ADDRESS J0523370
4605 0000 2346 | DD952 DC *-* LINE ADDRESS J0523380
4606 0000 2347 | DD953 DC *-* SKIP COUNT ON LINE J0523390
4607 0000 2348 | DD954 DC *-* TEMPERARY STORAGE J0523400
4608 0000 2349 | DD955 DC *-* TO WORKING STORAGE SWITCH J0523410
4609 0000 2350 | DD956 DC *-* TO PRINTER SWITCH J0523420
460A 0000 2351 | DD957 DC *-* TO PUNCH SWITCH J0523430
460B 0000 2352 | DD958 DC *-* SECOND HALF SWITCH J0523440
460C 0000 2353 | DD959 DC *-* TEMPORARY STORAGE J0523450
460D 0000 2354 | DD960 DC *-* CONVERTED CHARACTER J0523460
460E 0000 2355 | DD961 DC *-* SHIFT COUNT J0523470
460F 0000 2356 | DD962 DC *-* TEMPORARY WORD COUNT J0523480
4610 0000 2357 | DD963 DC *-* TO DRIVE J0523490
4611 0000 2358 | DD964 DC *-* FROM DRIVE J0523500
4612 0000 2359 | DD965 DC *-* DB COUNT J0523510
4613 0000 2360 | DD966 DC *-* DB ADDRESS J0523520
4614 0000 2361 | DD967 DC *-* FROM WS SWITCH J0523530
2362 | * J0523540
2363 | * CONSTANTS J0523550
2364 | * J0523560
4616 0000 0001 2365 | DD968 DEC 1 CONSTANT J0523570
4618 4040 2366 | DD969 DC /4040 DOUBLE CONSTANT J0523580
4619 4040 2367 | DC /4040 J0523590
461A 0001 2368 | DD970 DC /1 CONSTANT J0523600
461B 0002 2369 | DD971 DC /2 CONSTANT J0523610
461C 0003 2370 | DD972 DC /3 CONSTANT J0523620
461D 0004 2371 | DD973 DC /4 CONSTANT J0523630
461E 0006 2372 | DD974 DC /6 CONSTANT J0523640
461F 0008 2373 | DD975 DC /8 CONSTANT J0523650
4620 0009 2374 | DD976 DC /9 CONSTANT J0523660
4621 000A 2375 | DD977 DC /A CONSTANT J0523670
4622 000F 2376 | DD978 DC /F CONSTANT J0523680
4623 0010 2377 | DD979 DC /10 CONSTANT J0523690
4624 0012 2378 | DD981 DC /12 CONSTANT J0523700
4625 0014 2379 | DD982 DC /14 CONSTANT J0523710
4626 0020 2380 | DD983 DC /20 CONSTANT J0523720
4627 0036 2381 | DD984 DC /36 CONSTANT J0523730
4628 0051 2382 | DD985 DC /51 CONSTANT 2E2 J0523740
4629 0037 2383 | DD986 DC /37 CONSTANT J0523750
462A 003B 2384 | DD987 DC /3B CONSTANT J0523760
462B 0050 2385 | DD988 DC /50 CONSTANT J0523770
462C 0140 2386 | DD989 DC /140 CONSTANT J0523780
462D 0A00 2387 | DD991 DC /A00 CONSTANT J0523790
462E 0F00 2388 | DD992 DC /F00 CONSTANT J0523800
462F 2000 2389 | DD993 DC /2000 CONSTANT J0523810
4630 7F00 2390 | DD994 DC /7F00 CONSTANT J0523820
4631 100F 2391 | DD995 DC /100F CONSTANT J0523830
4632 8000 2392 | DD996 DC /8000 CONSTANT J0523840
4633 E000 2393 | DD997 DC /E000 CONSTANT J0523850
4634 FFF0 2394 | DD998 DC /FFF0 CONSTANT J0523860
4635 FFFF 2395 | DD999 DC /FFFF CONSTANT J0523870
4636 2396 | BSS E 0 J0523872
4636 0000 2397 | DD99A DC /0000 DOUBLE CONSTANT USED TO2-12 J0523874
4637 0035 2398 | DC /0035 *CALC NO. OF RECORDS 2-12 J0523876
2399 | * J0523880
2400 | * PATCH AREA J0523890
2401 | * J0523900
4638 2402 | BSS BUF7+/4000-* J0523910
4640 FFFF 2403 | DC /FFFF END OF DDUMP PATCH AREA J0523920
2404 | * J0523930
2405 | * 2E2 J0523940
2406 | * THE FOLLOWING INITIALIZATION PART OF DUMP 2E2 J0523950
2407 | * IS OVERLAID BY BUF7 AFTER IT HAS BEEN 2E2 J0523960
2408 | * EXECUTED. THUS DUMP CANNOT BE REENTERED. 2E2 J0523970
2409 | * 2E2 J0523980
2410 | * ORDER THIS AND NEXT J0523990
2411 | * J0524000
4642 2412 | ORG BUF7+/4002 2E2 J0524010
4642 6600 465E 2413 | DD050 LDX L2 X LOAD REGISTER 2 J0524020
4644 C15E 2414 | LD 1 THIS CHECK ORDER (THIS AND NEXT) J0524030
4645 915F 2415 | S 1 NEXT J0524040
4646 4C10 464B 2416 | BSC L DD100,- BRANCH IF ORDER CORRECT J0524050
4648 C95E 2417 | LDD 1 THIS REVERSE THIS AND NEXT J0524060
4649 18D0 2418 | RTE 16 J0524070
464A D95E 2419 | STD 1 THIS STORE REVERSED ADDRESSES J0524080
2420 | * J0524090
2421 | * TEST TO SEE IF FUNCTION IS FROM WORKING J0524100
2422 | * STORAGE J0524110
2423 | * J0524120
464B C120 2424 | DD100 LD 1 IOSW LOAD I/O SWITCH J0524130
464C 4820 2425 | BSC Z SKIP IF FUNCTION TO WS J0524140
464D C131 2426 | LD 1 WSSW LOAD WS SWITCH J0524150
464E 4820 2427 | BSC Z SKIP IF FUNCTION FROM UA/FX J0524160
464F C2BC 2428 | LD 2 DD970-X LOAD TO SET SWITCH J0524170
4650 D2B6 2429 | STO 2 DD967-X SET SWITCH J0524180
2430 | * J0524190
2431 | * DECIDE ON THE DRIVE THAT WORKING STORAGE WILL J0524200
2432 | * BE USED IF REQUIRED. J0524210
2433 | * J0524220
4651 C192 2434 | LD 1 #TODR LOAD TO DRIVE J0524230
4652 4C10 4656 2435 | BSC L *+2,- BRANCH IF DRIVE SPECIFIED J0524240
4654 C400 007A 2436 | LD L $WSDR LOAD JOB WS DRIVE J0524250
4656 D2B2 2437 | STO 2 DD963-X STORE TO DRIVE J0524260
2438 | * J0524270
2439 | * DECIDE ON THE DRIVE THAT THE DATA IS TO BE J0524280
2440 | * RETRIEVED FROM J0524290
2441 | * J0524300
4657 C193 2442 | LD 1 #FRDR LOAD FROM DRIVE J0524310
4658 4C10 4662 2443 | BSC L DD120,- BRANCH IF DRIVE SPECIFIED J0524320
465A C2B6 2444 | LD 2 DD967-X PLACE INDICATOR IN CARRY J0524330
465B 1010 2445 | SLA 16 J0524340
465C C400 007A 2446 | LD L $WSDR LOAD JOB WS DRIVE J0524350
465E 4C02 4662 2447 | BSC L DD120,C BRANCH IF UA/FX PROGRAM J0524360
4660 C122 2448 | LD 1 LSTLF LOAD ADDRESS OF LET SECTOR J0524370
4661 180C 2449 | SRA 12 ISOLATE DRIVE CODE J0524380
4662 D2B3 2450 | DD120 STO 2 DD964-X STORE FROM DRIVE J0524390
2451 | * J0524400
2452 | * FIND THE DB LENGTH OF DATA BEING DUMPED J0524410
2453 | * J0524420
4663 6780 4611 2454 | LDX I3 DD964 REGISTER 3 HOLDS DRIVE NO J0524430
4665 C115 2455 | LD 1 DATSW LOAD DATA SWITCH J0524440
4666 4C30 466F 2456 | BSC L DD140,Z- BRANCH IF DUMPDATA CNT 212 J0524450
4668 C2B6 2457 | LD 2 DD967-X PLACE INDICATOR IN CARRY J0524460
4669 1010 2458 | SLA 16 J0524470
466A C700 7F75 2459 | LD L3 #WSCT+C LOAD DB COUNT FROM WS J0524480
466C 4C02 466F 2460 | BSC L DD140,C SKIP IF DATA IN WS J0524490
466E C186 2461 | LD 1 #DBCT LOAD DB COUNT FROM LET J0524500
466F D2B4 2462 | DD140 STO 2 DD965-X STORE DB COUNT J0524510
4670 4C20 4675 2463 | BNZ DD150 BR IF CNT NOT ZERO 212 J0524512
4672 4480 7DB4 2464 | BSI I LEAVE INVALID COUNT FIELD 212 J0524514
4674 0011 2465 | DC 17 *MESSAGE 212 J0524516
2466 | * J0524520
2467 | * FIND THE DB ADDRESS OF DATA BEING DUMPED J0524530
2468 | * J0524540
4675 C2B6 2469 | DD150 LD 2 DD967-X LOAD FROM WS SWITCH 212 J0524550
4676 4C18 467C 2470 | BSC L DD160,+- BRANCH IF DATA IN UA/FX J0524560
4678 C700 0095 2471 | LD L3 $FPAD LOAD WS SECTOR ADDRESS J0524570
467A 1004 2472 | SLA 4 MAKE DB ADDRESS J0524580
467B 700F 2473 | MDX DD180 BRANCH J0524590
467C 6780 7FB7 2474 | DD160 LDX I3 DELSW+C XR3 =(ADDR OF LET ENT-1)2-3 J0524600
467E C303 2475 | LD 3 @LFEN LOAD DB COUNT OF ENTRY 2-3 J0524610
467F 4C20 468A 2476 | BSC L DD170,Z BRANCH IF PRIME ENTRY PT2-3 J0524620
2477 | * 2-3 J0524630
2478 | * LET SEARCH WAS USED TO LOCATE A SECONDARY 2-3 J0524640
2479 | * ENTRY POINT (DB COUNT = 3). THE FOLLOWING 2-3 J0524650
2480 | * LOOP IS USED TO SCAN BACK THROUGH THE LET 2-3 J0524660
2481 | * ENTRIES UNTIL THE PRIME ENTRY POINT IS FOUND2-3 J0524670
2482 | * 2-3 J0524680
4681 73FD 2483 | DD165 MDX 3 -@LFEN MOVE POINTER BACK 1 ENT 2-3 J0524690
4682 C303 2484 | LD 3 @LFEN LOAD DB COUNT OF ENTRY 2-3 J0524700
4683 4C18 4681 2485 | BSC L DD165,+- BR IF STILL NOT PR ENT 2-3 J0524710
2486 | * 2-3 J0524720
2487 | * PRIME ENTRY POINT FOUND 2-3 J0524730
2488 | * 2-3 J0524740
4685 D186 2489 | STO 1 #DBCT DB COUNT OF SUBROUTINE 2-3 J0524750
4686 D2B4 2490 | STO 2 DD965-X SAVE FOR TERMINAL MSG 2-3 J0524760
4687 C116 2491 | LD 1 DBADR 2-3 J0524770
4688 9186 2492 | S 1 #DBCT ADJUST DB ADDR TO POINT 2-3 J0524780
4689 D116 2493 | STO 1 DBADR *TO THIS SUBROUTINE 2-3 J0524790
2494 | * J0524800
468A C116 2495 | DD170 LD 1 DBADR LOAD DB ADDRESS FROM LET2-3 J0524810
468B D2B5 2496 | DD180 STO 2 DD966-X STORE DB ADDRESS 2-3 J0524820
2497 | * 2-3 J0524830
2498 | * INITIALIZE ALL THE SUBROUTINE PARAMETER J0524840
2499 | * J0524850
468C 1010 2500 | SLA 16 J0524860
468D D28B 2501 | STO 2 DD924-X SECTOR READ SWITCH (XG000) J0524870
468E D28F 2502 | STO 2 DD928-X HEADER WORD SWITCH (XG000) J0524880
468F D295 2503 | STO 2 DD934-X HEADER WORD SWITCH (XF000) J0524890
4690 D296 2504 | STO 2 DD935-X FIRST HEADER SWITCH (XF000) J0524900
4691 D2A0 2505 | STO 2 DD945-X PRINT HEADER SWITCH (XL000) J0524910
4692 D2A3 2506 | STO 2 DD948-X CORE IMAGE SWITCH (XL000) J0524920
4693 D2AA 2507 | STO 2 DD955-X TO WORKING STORAGE (DD000) J0524930
4694 D2AB 2508 | STO 2 DD956-X TO PRINTER (DD000) J0524940
4695 D2AC 2509 | STO 2 DD957-X TO PUNCH (DD000) J0524950
4696 D2AD 2510 | STO 2 DD958-X ZERO SECOND HALF SWITCH J0524960
4697 D287 2511 | STO 2 DD920-X CLEAR FIRST BFR FULL SW J0524970
4698 C2BC 2512 | LD 2 DD970-X J0524980
4699 D28A 2513 | STO 2 DD923-X DUMP FUNCTION SWITCH(ALL) J0524990
469A D28E 2514 | STO 2 DD927-X WORDS TO HEADER (XG000) J0525000
469B D29F 2515 | STO 2 DD944-X RECORD PUNCH COUNT (XP000) J0525010
469C C2C5 2516 | LD 2 DD979-X J0525020
469D D2A2 2517 | STO 2 DD947-X WORDS PER LINE (XL000) J0525030
469E C2C7 2518 | LD 2 DD982-X J0525040
469F D2A4 2519 | STO 2 DD949-X LINES PER BLOCK (XL000) J0525050
46A0 C15B 2520 | LD 1 SDBUF J0525060
46A1 82BD 2521 | A 2 DD971-X J0525070
46A2 D292 2522 | STO 2 DD931-X PUT WORD ADDRESS (XF000) J0525080
46A3 C2B4 2523 | LD 2 DD965-X LOAD DB COUNT J0525090
46A4 A2C7 2524 | M 2 DD982-X J0525100
46A5 DA80 2525 | STD 2 DD900-X PROGRAM WORD COUNT (XG000) J0525110
46A6 C2D6 2526 | LD 2 DD998-X J0525120
46A7 D2A7 2527 | STO 2 DD952-X LINE ADDRESS (XL000) J0525130
46A8 C2B5 2528 | LD 2 DD966-X LOAD DB ADDRESS J0525140
46A9 E2C4 2529 | AND 2 DD978-X GET DB IN SECTOR J0525150
46AA A2C7 2530 | M 2 DD982-X J0525160
46AB 18D0 2531 | RTE 16 J0525170
46AC D2A9 2532 | STO 2 DD954-X COMPUTE WORD IN SECTOR J0525180
46AD 815C 2533 | A 1 LETAR J0525190
46AE 82BD 2534 | A 2 DD971-X J0525200
46AF D28C 2535 | STO 2 DD925-X GET WORD ADDRESS (XG000) J0525210
46B0 C2CE 2536 | LD 2 DD989-X J0525220
46B1 D291 2537 | STO 2 DD930-X PUT WORD COUNT (XW000) J0525230
46B2 92A9 2538 | S 2 DD954-X J0525240
46B3 D28D 2539 | STO 2 DD926-X GET WORD COUNT (XG000) J0525250
46B4 C15F 2540 | LD 1 NEXT J0525260
46B5 82BC 2541 | A 2 DD970-X J0525270
46B6 D29B 2542 | STO 2 DD940-X PUNCH WORD ADDRESS (XF000) J0525280
2543 | * J0525290
2544 | * PLACE ALL IOAR HEADERS J0525300
2545 | * J0525310
46B7 C2B5 2546 | LD 2 DD966-X (AAA-/----) J0525320
46B8 18D0 2547 | RTE 16 (----/AAA-) J0525330
46B9 C2B3 2548 | LD 2 DD964-X (000D/AAA-) J0525340
46BA 1884 2549 | SRT 4 (0000/DAAA) J0525350
46BB C2CE 2550 | LD 2 DD989-X (0140/DAAA) J0525360
46BC DC80 7FFC 2551 | STD I LETAR+C LETAR IOAR HEADER (XG000) J0525370
46BE 6780 4610 2552 | LDX I3 DD963 LOAD DRIVE CODE J0525380
46C0 C700 0095 2553 | LD L3 $FPAD (-AAA/----) J0525390
46C2 188C 2554 | SRT 12 (----/AAA-) J0525400
46C3 C2B2 2555 | LD 2 DD963-X (000D/AAA-) J0525410
46C4 1884 2556 | SRT 4 (0000/DAAA) J0525420
46C5 C2CE 2557 | LD 2 DD989-X (0140/DAAA) J0525430
46C6 DC80 7FFB 2558 | STD I SDBUF+C SDBUF IOAR HEADER (XW000) J0525440
46C8 C2CD 2559 | LD 2 DD988-X J0525450
46C9 D480 7FFF 2560 | STO I NEXT+C NEXT IOAR HEADER J0525460
46CB D480 7FFE 2561 | STO I THIS+C THIS IOAR HEADER J0525470
46CD C2CC 2562 | LD 2 DD987-X J0525480
46CE D480 7FFD 2563 | STO I PEBUF+C PEBUF IOAR HEADER J0525490
2564 | * J0525500
2565 | * TEST TO SEE IF THE DUMP IS TO AN I/O DEVICE J0525510
2566 | * J0525520
46D0 C120 2567 | LD 1 IOSW J0525530
46D1 4C18 4221 2568 | BSC L DD360,+- BRANCH IF DUMP TO WS J0525540
2569 | * J0525550
2570 | * TEST THE TYPE OF I/O DEVICE USED J0525560
2571 | * J0525570
46D3 C127 2572 | LD 1 PRSW J0525580
46D4 4C20 4224 2573 | BSC L DD380,Z BRANCH IF PRINTER J0525590
2574 | * J0525600
2575 | * PUNCHING ON PAPER TAPE J0525610
2576 | * J0525620
46D6 C128 2577 | LD 1 PTSW J0525630
46D7 4C20 46E0 2578 | BSC L DD190,Z BR IF PUNCHING PAPER TAPE J0525640
2579 | * J0525650
2580 | * READ IN 1442 ROUTINE J0525660
2581 | * J0525670
46D9 6780 7A08 2582 | LDX I3 IOADR+2 J0525680
46DB 73FD 2583 | MDX 3 -3 POINT AT IOAR HEADER J0525690
46DC C952 2584 | LDD 1 P1442 J0525700
46DD DB00 2585 | STD 3 0 SET IOAR HEADER J0525710
46DE 4480 7DB3 2586 | BSI I GET GET 1442 ROUTINE J0525720
2587 | * J0525730
2588 | * INDICATE THAT THE PUNCH IS TO BE USED J0525740
2589 | * J0525750
46E0 6C00 460A 2590 | DD190 STX L0 DD957 TURN PUNCH SWITCH ON J0525760
2591 | * J0525770
2592 | * CLEAR THE PUNCH AREA J0525780
2593 | * J0525790
46E2 6780 7FFF 2594 | LDX I3 NEXT+C REGISTER 3 POINTS AT BUFFER J0525800
46E4 6250 2595 | LDX 2 80 REGISTER 2 HOLDS WORD COUNT J0525810
46E5 1010 2596 | SLA 16 LOAD A ZERO J0525820
46E6 D301 2597 | DD200 STO 3 1 CLEAR A WORD OF BUFFER J0525830
46E7 7301 2598 | MDX 3 1 MOVE REGISTER 3 J0525840
46E8 72FF 2599 | MDX 2 -1 DECREMENT WORD COUNT J0525850
46E9 70FC 2600 | MDX DD200 BRANCH TO WORD COUNT NOT 0 J0525860
2601 | * J0525870
2602 | * PLACE SEQUENCE NUMBER J0525880
2603 | * J0525890
46EA 6600 465E 2604 | LDX L2 X RESTORE REGISTER 2 J0525900
46EC C133 2605 | LD 1 EBCSW NEITHER SEQUENCE NO. NOR2E2 J0525910
2606 | * *NAME IF DUMPDATA E 2E2 J0525920
46ED C2D1 2607 | LD 2 DD993-X J0525930
46EE D3FD 2608 | STO 3 -3 ASSUME NAME NOT 5 CHAR 2-9 J0525935
46EF D3FE 2609 | STO 3 -2 J0525940
46F0 D3FF 2610 | STO 3 -1 J0525950
46F1 D300 2611 | STO 3 0 STORE SEQ NUMBER 0000 2-9 J0525960
2612 | * J0525970
2613 | * PLACE NAME ON CARD J0525980
2614 | * J0525990
46F2 C984 2615 | LDD 1 #NAME J0526000
46F3 DA84 2616 | DD220 STD 2 DD902-X PLACE NAME REMAINING J0526010
46F4 1002 2617 | SLA 2 (XXXXXX----------) J0526020
46F5 180A 2618 | SRA 10 (0000000000XXXXXX) J0526030
46F6 D2AE 2619 | STO 2 DD959-X STORE EBCDIC CHARACTER J0526040
46F7 1010 2620 | SLA 16 J0526050
46F8 D2AF 2621 | STO 2 DD960-X ZERO CHARACTER J0526060
46F9 C2AE 2622 | LD 2 DD959-X J0526070
46FA E2C4 2623 | AND 2 DD978-X J0526080
46FB 4C20 4700 2624 | BSC L DD240,Z BRANCH IF NUMERIC NOT ZERO J0526090
46FD 74F0 460C 2625 | MDX L DD959,-16 DECREMENT ZONE J0526100
46FF 700E 2626 | MDX DD280 BRANCH J0526110
4700 D2B0 2627 | DD240 STO 2 DD961-X STORE NUMERIC SHIFT J0526120
4701 92C2 2628 | S 2 DD976-X J0526130
4702 4C08 4708 2629 | BSC L DD260,+ BRANCH IF UNDER 9 J0526140
4704 82BC 2630 | A 2 DD970-X J0526150
4705 D2B0 2631 | STO 2 DD961-X STORE NUMERIC SHIFT J0526160
4706 C2C8 2632 | LD 2 DD983-X J0526170
4707 D2AF 2633 | STO 2 DD960-X STORE 8 PUNCH J0526180
4708 6580 460E 2634 | DD260 LDX I1 DD961 LOAD SHIFT COUNT J0526190
470A C2D1 2635 | LD 2 DD993-X LOAD A ZERO BIT J0526200
470B 1900 2636 | SRA 1 0 SHIFT TO CORRECT POSITION J0526210
470C EAAF 2637 | OR 2 DD960-X J0526220
470D D2AF 2638 | STO 2 DD960-X STORE PARTIAL CONVERSION J0526230
470E C2AE 2639 | DD280 LD 2 DD959-X J0526240
470F 1804 2640 | SRA 4 J0526250
4710 E2BE 2641 | AND 2 DD972-X J0526260
4711 D2B0 2642 | STO 2 DD961-X STORE ZONE SHIFT COUNT J0526270
4712 6580 460E 2643 | LDX I1 DD961 LOAD SHIFT COUNT J0526280
4714 C2D4 2644 | LD 2 DD996-X LOAD A 12 BIT J0526290
4715 1900 2645 | SRA 1 0 SHIFT TO CORRECT ZONE J0526300
4716 E2D5 2646 | AND 2 DD997-X SAVE 12,11 OR 0 ZONE J0526310
4717 EAAF 2647 | OR 2 DD960-X MAKE THE WHOLE CHARACTER J0526320
4718 D3F9 2648 | STO 3 -7 PLACE CHARACTER OF NAME J0526330
4719 7301 2649 | MDX 3 1 ADJUST BUFFER POINTER J0526340
471A CA84 2650 | LDD 2 DD902-X J0526350
471B 1088 2651 | SLT 8 (XXXXXX----------) J0526360
471C 1882 2652 | SRT 2 (--XXXXXX--------) J0526370
471D 4C20 46F3 2653 | BSC L DD220,Z BRANCH IF NAME ALL DONE J0526380
471F 6500 7FA0 2654 | LDX L1 C RESTORE REGISTER 1 J0526390
4721 73AB 2655 | MDX 3 -85 NO. CHAR & BUF BEG 2-9 J0526394
4722 6F00 45E4 2656 | STX L3 DD919 STORE TEMP 2-9 J0526395
4724 C286 2657 | LD 2 DD919-X SET COL SEQ SWITCH 2-9 J0526396
4725 9400 7FFF 2658 | S L NEXT+C *NEG IF 4 COL SEQ 2-10 J0526397
4727 D286 2659 | STO 2 DD919-X *ZERO IF 3 COL 2-9 J0526398
2660 | * J0526400
2661 | * TEST TO SEE IF THE PROGRAM IS DISK SYSTEM J0526410
2662 | * FORMAT J0526420
2663 | * J0526430
4728 C115 2664 | LD 1 DATSW J0526440
4729 4C20 4218 2665 | BSC L DD340,Z BRANCH IF DUMP DATA J0526450
472B C184 2666 | LD 1 #NAME J0526460
472C 4C08 4218 2667 | BSC L DD340,+ BRANCH IF NOT DSF J0526470
472E 4C00 41E7 2668 | BSC L DD290 BRANCH TO REST OF DUMP 2E2 J0526480
4730 2669 | END DD000 J0526490
There were no errors in this assembly
Program transfer address = 41E0
=== 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 509
#CSHN FFDA 115
#DBCT FF86 73 2461 2489 2492
#DCOM 0001 116
#DCSW FF98 94
#ECNT FFA1 103
#ENTY FF90 83
#FCNT FF87 74
#FHOL FF94 90
#FLET FFCB 112
#FMAT FFC6 111 502
#FPAD FFAD 106
#FRDR FF93 88 2442
#FSZE FF95 91
#GCNT FF9E 100
#GRPH FF9D 99
#HDNG 0007 117
#JBSW FF89 76
#LCNT FF8B 78
#LOSW FF9F 101
#MDF1 FF8D 80
#MDF2 FF8E 81
#MPSW FF8C 79
#NAME FF84 72 375 402 419 497 934 2615 2666
#NCNT FF8F 82
#PCID FFB2 107
#PIOD FF99 95
#PPTR FF9A 96
#RP67 FF91 84 1633
#SCRA FFC1 110
#SYSC FF88 75
#TODR FF92 87 2434
#UHOL FF96 92
#ULET FFD0 113
#USZE FF97 93
#WSCT FFD5 114 504 2459
#X3SW FFA0 102
$1132 007F 33
$1403 0080 34
$ACDE 009F 42
$BYSW 01CB 52
$CH12 0006 4 1944 1963
$CIBA 0005 3
$COMN 0007 5
$CORE 000E 6
$CPTR 007E 32
$CTSW 000F 7
$CYLN 009A 41
$DABL 0011 9
$DADR 0010 8
$DBSY 00EE 51
$DCDE 0077 25
$DCYL 00A4 43
$DREQ 0012 10
$DUMP 003F 24
$EXIT 0038 22
$FPAD 0095 40 2471 2553
$HASH 0014 12
$I200 00B3 44
$I205 00B8 45 46
$I400 00C4 47
$I405 00D3 48 49
$I410 00D5 50
$IBSY 0013 11 1643 1680
$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 1659
$PGCT 0037 21
$PHSE 0078 26
$PRET 0028 13 1666
$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 2436 2446
$ZEND 01E0 54 265
'LFEN 0003 119 2475 2483 2484
'SBFR 0FB0 118
ADDR2 003D 227
ASMSW 000E 153
B 01DE 265 266 267 268 269 270 271 272
BINEB 7DB0 279 510 514 534 1911 2099
BITSW 000F 154
BLKSW 0010 155
BUF1 79B5 304 305
BUF2 7963 305 306
BUF3 7925 306 307
BUF4 78D3 307
BUF5 7782 308 309
BUF6 7D91 297 298 299
BUF7 0640 309 2402 2412
C 7FA0 56 356 428 502 504 509 691 693 927 953 955 1283 1481
1531 1535 1587 1607 1608 1610 1639 1671 1685 1854 2077 2459
2474 2551 2558 2560 2561 2563 2594 2654 2658
CATCO 7F1E 274
CIERR 0011 156
CIHDR 0008 139
CISW 0012 157
CL1 000E 152
CL2 0037 204
CLBSW 0013 158
CNTNO 0014 159
CRBUF 0057 254
D2HDR 000C 141
DATSW 0015 166 399 429 492 2455 2664
DBADR 0016 167 2491 2493 2495
DCADR 0058 255
DCHDR FFF0 127
DCTL 11E0 269
DCTLC 11DE 270
DD000 41E0 328 2669
DD050 4642 2413 333
DD100 464B 2424 2416
DD120 4662 2450 2443 2447
DD140 466F 2462 2456 2460
DD150 4675 2469 2463
DD160 467C 2474 2470
DD165 4681 2483 2485
DD170 468A 2495 2476
DD180 468B 2496 2473
DD190 46E0 2590 2578
DD200 46E6 2597 2600
DD220 46F3 2616 2653
DD240 4700 2627 2624
DD260 4708 2634 2629
DD280 470E 2639 2626
DD290 41E7 339 2668
DD300 41E9 341 345 352
DD320 41FA 356 347
DD325 4206 368
DD327 420A 373
DD330 4211 382 374
DD340 4218 394 423 459 2665 2667
DD360 4221 410 2568
DD380 4224 415 2573
DD390 423C 443 430 436
DD400 424C 463 400 405 411 472
DD410 4263 488 477
DD420 426C 497 491
DD440 4277 508 489 493
DD445 4293 533 521
DD446 4294 534
DD898 42A1 557 512 516 518 523 536 541
DD899 42B6 560 557
DD89X 42B6 561 522
DD900 45DE 2309 438 441 442 732 734 2525
DD901 45E0 2310
DD902 45E2 2312 2616 2650
DD919 45E4 2313 1589 2656 2657 2659
DD920 45E5 2314 928 930 2511
DD921 45E6 2315 348 702 777 782 913 1136 1163 1179 1198 1233 1300 1855
1910 2214
DD922 45E7 2316 470 771 797 809 821 919 1127 1306 1868 1919
DD923 45E8 2317 389 726 1121 1552 1699 2513
DD924 45E9 2318 686 697 713 2501
DD925 45EA 2319 701 703 721 2535
DD926 45EB 2320 707 718 2539
DD927 45EC 2321 746 764 784 2514
DD928 45ED 2322 752 758 790 2502
DD929 45EE 2323 765 803 815
DD930 45EF 2324 925 966 2537
DD931 45F0 2325 914 915 964 2522
DD932 45F1 2326 1137 1213
DD933 45F2 2327 1142 1212 1221
DD934 45F3 2328 1148 1154 1207 2503
DD935 45F4 2329 1158 1170 1190 1193 1271 2504
DD936 45F5 2330 360 1165 1200 1269 1289 1486
DD937 45F6 2331 1164 1180 1199 1229 1268 1288
DD938 45F7 2332 1239 1252 1259 1521
DD939 45F8 2333 1216 1226 1244
DD940 45F9 2334 384 1185 1234 1235 1263 1276 1284 1285 1301 1302 1316 1320
1472 1488 1519 2267 2268 2542
DD941 45FA 2335 1241 1247 1257 1517
DD942 45FB 2336 358 1290
DD943 45FC 2337 1500 1507 1534 1545 1606 1628
DD944 45FD 2338 530 1501 1502 2515
DD945 45FE 2339 1873 1884 1969 2505
DD946 45FF 2340 450 1894 1905
DD947 4600 2341 1904 1926 2092 2517
DD948 4601 2342 448 1954 2506
DD949 4602 2343 458 1939 1959 2519
DD950 4603 2344 2076 2081
DD951 4604 2345 2088 2175 2176 2178 2179 2188
DD952 4605 2346 446 2096 2098 2527
DD953 4606 2347 2090 2183 2193
DD954 4607 2348 1853 1861 2532 2538
DD955 4608 2349 410 452 464 2507
DD956 4609 2350 415 466 545 2508
DD957 460A 2351 468 476 2509 2590
DD958 460B 2352 346 351 2510
DD959 460C 2353 1848 1865 2619 2622 2625 2639
DD960 460D 2354 2621 2633 2637 2638 2647
DD961 460E 2355 2627 2631 2634 2642 2643
DD962 460F 2356 340 344 350
DD963 4610 2357 501 2437 2552 2555
DD964 4611 2358 508 2450 2454 2548
DD965 4612 2359 365 503 525 529 533 1847 2462 2490 2523
DD966 4613 2360 513 2496 2528 2546
DD967 4614 2361 488 2429 2444 2457 2469
DD968 4616 2365 733
DD969 4618 2366 1899 2078
DD970 461A 2368 435 531 695 763 783 808 957 1471 1505 1510 2087 2089
2428 2512 2541 2630
DD971 461B 2369 720 770 942 963 1227 1572 1574 2521 2534
DD972 461C 2370 349 471 796 920 1307 1867 1920 2641
DD973 461D 2371 1516 2192
DD974 461E 2372 339 1518
DD975 461F 2373 1567 1673
DD976 4620 2374 814 2628
DD977 4621 2375 383 1187 1277 1489
DD978 4622 2376 449 2529 2623
DD979 4623 2377 445 457 1258 1520 1958 2091 2097 2516
DD981 4624 2378 1565 1571 1605
DD982 4625 2379 526 1950 2518 2524 2530
DD983 4626 2380 2632
DD984 4627 2381 528 1499 1533 1554
DD985 4628 2382 1317
DD986 4629 2383 1264 1321
DD987 462A 2384 2075 2562
DD988 462B 2385 1851 2559
DD989 462C 2386 717 965 2536 2550 2557
DD991 462D 2387 1558 1704
DD992 462E 2388 1286 1561
DD993 462F 2389 1597 2607 2635
DD994 4630 2390 1577
DD995 4631 2391 1665
DD996 4632 2392 2644
DD997 4633 2393 2646
DD998 4634 2394 444 2526
DD999 4635 2395 1509
DD99A 4636 2397 527
DELSW 0017 168 2474
DFHDR FFFC 133
DFLSW 0036 202
DFNSW 0018 169
DISKZ 00F2 264
DKSAD 0019 170
DLHDR FFF8 131
DMHDR FFF6 130
DMPLC 01DE 266
DTHDR FFFA 132
DUMPC 41DE 272 321
DUMPP 001A 171
DUPCO 7DB0 273 278 297
DUPCR 003C 221
DXHDR FFFE 134
DZ000 00F2 53 264
EBCSW 0033 199 1297 1314 1496 1584 1687 1842 2605
ENTER 7DB2 281
EXITC 01DE 267
FLHDR FFF4 129
FORSW 001C 172
FRWS 001D 173
FXSW 001E 174
GET 7DB3 282 484 692 2586
GETBI 7A0B 301 1638
GETHO 7A0A 300
HDBUF 0059 256
HDNSW 0034 200
HOLSW 001F 175
IBT 0049 245
INOUT 003F 234
IOADR 7A06 299 300 301 302 303 304 308 481 2228 2582
IOBLK 005A 257
IOREQ 0038 212
IOSW 0020 176 2424 2567
KBREQ 003E 228
LEAVE 7DB4 283 2464
LETAR 005C 259 428 691 693 719 2533 2551
LETSW 0021 181
LINE 7DB5 284 1657 1658 1880 1945
LSTLF 0022 182 2448
MASK 7DB6 285
MDUMP 7DB7 286
MODSW 0023 183
MUHDR 000A 140
MUPC 01DE 268
NAMSW 0024 184
NEGSW 0025 185
NEXT 005F 262 356 382 1186 1265 1278 1283 1322 1470 1481 1490 1515 1531
1535 1587 1608 1610 1671 1685 2415 2540 2560 2594 2658
P1442 0052 251 2584
PACKB 7A0C 302
PAGE 7DB8 287 546
PCHBI 7A0D 303 1579 1675
PEBUF 005D 260 1849 1854 1931 2077 2086 2563
PGMHL 0026 186
PH2 0039 213
PH3 003A 214
PH4 003B 215 332
PHDUP 0056 253
PHID 7DB9 288 328
PHIDM 7DBA 289
PIHDR 0002 136 482
PRINT 7DBB 290 540 1655 1863 1878 1933
PRPAR 0054 252
PRPNT 7C50 298
PRSW 0027 187 2572
PTHDR 0006 138
PTPON 0040 236
PTSW 0028 188 520 1526 2577
PUT 7DBC 291 954
REST 7DBD 292 550
RPGSW 0035 201
RTURN 7DBE 293
SDBUF 005B 258 927 953 955 962 2520 2558
SIHDR 0004 137
SKWDS 0029 189
STCSW 002A 190
STHDR FFF2 128
STSW 002B 191
T3MSW 002F 195
TEMP1 002C 192 511 515 535 1912 2100
TEMP2 002D 193
THIS 005E 261 1639 2414 2417 2419 2561
TOWS 002E 194
UASW 0030 196
UCHDR 0000 135
WRTDC 7DB1 280
WSDC 21DE 271
WSSW 0031 197 373 394 490 2426
X 465E 2308 339 340 346 348 349 350 351 358 360 365 383 384
389 435 438 441 442 444 445 446 448 449 450 452
457 458 464 466 468 470 471 476 488 503 513 525
526 527 528 529 530 531 533 545 686 695 702 713
717 718 720 721 726 732 733 734 752 763 764 765
770 771 777 782 783 784 790 796 797 808 809 814
815 821 913 919 920 928 942 957 963 964 965 966
1121 1136 1137 1142 1148 1158 1163 1164 1165 1179 1180 1185
1187 1190 1193 1198 1199 1200 1207 1213 1216 1226 1227 1233
1244 1258 1259 1263 1264 1268 1269 1271 1276 1277 1286 1288
1289 1290 1300 1306 1307 1316 1317 1320 1321 1471 1472 1486
1488 1489 1499 1500 1501 1505 1509 1510 1516 1517 1518 1519
1520 1521 1533 1534 1547 1552 1554 1558 1561 1565 1567 1571
1572 1574 1577 1589 1597 1605 1606 1695 1699 1704 1847 1848
1851 1853 1855 1867 1868 1873 1894 1899 1910 1919 1920 1950
1958 1959 1969 2075 2076 2078 2087 2088 2089 2090 2091 2092
2096 2097 2098 2192 2193 2214 2413 2428 2429 2437 2444 2450
2457 2462 2469 2490 2496 2501 2502 2503 2504 2505 2506 2507
2508 2509 2510 2511 2512 2513 2514 2515 2516 2517 2518 2519
2521 2522 2523 2524 2525 2526 2527 2528 2529 2530 2532 2534
2535 2536 2537 2538 2539 2541 2542 2546 2548 2550 2555 2557
2559 2562 2604 2607 2616 2619 2621 2622 2623 2627 2628 2630
2631 2632 2633 2635 2637 2638 2639 2641 2642 2644 2646 2647
2650 2657 2659
XC000 454D 2071 1845 1889 1975 2105
XC100 4553 2079 2082
XE000 457B 2212 1298
XE020 4582 2219 2274
XE040 458A 2231 2242
XE050 459A 2248 2239
XE060 459B 2249 2235
XE080 45A3 2256 2255
XE090 45A7 2259 2254
XE100 45AE 2267 2244
XE110 45B9 2276 2216 2270
XE111 45BB 2277 2217
XE900 45BF 2280 2229
XE910 45C0 2282 2215 2273
XE920 45C1 2283 2220 2234 2238 2260 2265
XE930 45C2 2284 2250 2251
XE940 45C3 2285 2230 2252
XE950 45C4 2286 2213 2269 2272
XE960 45C5 2287 2212 2219
XE970 45C7 2289 2257
XE980 45C6 2288 2248
XE990 45C8 2290 2249 2259
XEQSW 0032 198
XF000 4336 1117 343 469 1174
XF100 4342 1136 1130
XF120 4347 1148 1131
XF140 4354 1174 1143 1181 1201 1208 1266 1272 1293 1310 1324
XF160 4356 1179 1159
XF166 4362 1192 1188
XF170 4366 1198 1191
XF180 436A 1206 1149
XF200 436D 1212 1129
XF220 4393 1263 1253
XF240 439E 1276 1132
XF260 43B1 1297 1122
XF265 43B9 1306 2278
XF270 43BF 1314 1308
XF280 43C5 1320 1315
XG000 42B8 682 341 427 463 825 1858
XG100 42C7 701 687
XG120 42D6 726 708
XG140 42E1 746 727
XG160 42EF 777 753
XG180 42F8 796 741 778
XG200 42FB 803 747
XG220 4303 820 742 804
XG240 4305 825 772 791 798 816
XI000 4568 2171 1900 1913 2101 2197
XI500 4579 2197 2184
XL000 44B6 1838 451 467 1979
XL010 44C0 1851 1866
XL020 44C5 1855 1862
XL025 44CA 1859 1857
XL030 44D2 1864 1850
XL050 44D9 1873 1843
XL100 44E7 1899 1906
XL120 44EF 1910 1874 1895
XL140 44FB 1931 1921
XL180 450C 1963 1940
XL190 4513 1975 1869 1964
XL200 4514 1979 1927 1970
XL220 4516 1983 1879
XL240 454D 1988 1983
XP000 43CB 1466 1309 1323 1700
XP001 43D0 1477 390 1194 1267 1279 1292 1709
XP100 43E2 1503 1508
XP110 43EC 1515 1497
XP120 43F3 1526 1473
XP140 43FE 1537 1546
XP145 4411 1557 1553
XP150 441D 1567 1562
XP155 441F 1569 1559
XP160 4422 1572 1556 1566 1568
XP165 442C 1584 1527
XP180 4435 1592 1601
XP200 4440 1605 1596
XP220 444A 1612 1629
XP230 445D 1633 1585
XP240 4460 1638 1667
XP260 4480 1671 1634 1651
XP280 448B 1685 1580
XP300 449F 1714 1656
XP320 44B6 1717 1714
XW000 4307 908 342 453 465 970
XW050 4314 927 921
XW100 4326 953 929 936 943
XW120 4334 970 926