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