ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 2020
Source File: \jfdmplet.asm
DUMPLET- RESIDENT COMMA 2 AUG 67
2 | ABS J0600020
0005 3 | $CIBA EQU /5 ADDR OF CIB ON MASTER CARTRIDGE J0600030
0006 4 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 J0600040
0007 5 | $COMN EQU /7 WORD COUNT OF COMMON J0600050
000E 6 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC) J0600060
000F 7 | $CTSW EQU /F MCR SW,NON-ZERO=// RECD TRAPPED J0600070
0010 8 | $DADR EQU /10 SCTR ADDR OF PROG TO BE FETCHED J0600080
0011 9 | $DABL EQU /11 IOCC FOR SCA RESET (ODD ADDR) J0600090
0012 10 | $DREQ EQU /12 INDR FOR REQUESTED V. DISK I/O J0600100
0013 11 | $IBSY EQU /13 PRINC I/O BUSY INDR,NON-ZERO=BSY J0600110
0014 12 | $HASH EQU /14 WORK AREA FOR MONITOR PROGRAMS J0600120
0028 13 | $PRET EQU /28 ADDR PREOPERATIVE ERROR TRAP J0600130
002C 14 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE J0600140
002D 15 | $ULET EQU /2D ADDR OF LET, LOGICAL DRIVE 0 J0600150
0032 16 | $IOCT EQU /32 IOCS CTR,0=NO I/O IN PROGRESS J0600160
0033 17 | $LAST EQU /33 LAST CD INDR,NON-ZERO=LAST CARD J0600170
0034 18 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP J0600180
0035 19 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEQ J0600190
0036 20 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY J0600200
0037 21 | $PGCT EQU /37 PAGE NO. FOR PAGE HEADINGS J0600210
0038 22 | $EXIT EQU /38 ADDR CALL EXIT ENTRY POINT J0600220
0039 23 | $LINK EQU /39 ADDR CALL LINK ENTRY POINT J0600230
003F 24 | $DUMP EQU /3F ADDR OF CALL DUMP, ENTRY POINT J0600240
0077 25 | $DCDE EQU /77 DRIVE CODE FOR CORE LOAD BLDR J0600250
0078 26 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE J0600260
0079 27 | $UFIO EQU /79 ARM POSITION IN UNFORMATTED AREA J0600270
007A 28 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE J0600280
007B 29 | $WRD1 EQU /7B LOAD ADDR FOR CURR USER CORE LD J0600290
007C 30 | $KCSW EQU /7C INHIBIT INPUT/PRINT OVERLAP SW J0600300
007D 31 | $UFDR EQU /7D UNFORMATTED I/O DRIVE CODE J0600310
007E 32 | $CPTR EQU /7E CHANNEL 12 INDICATOR FOR CP J0600320
007F 33 | $1132 EQU /7F CHANNEL 12 INDICATOR FOR 1132 J0600330
0080 34 | $1403 EQU /80 CHANNEL 12 INDICATOR FOR 1403 J0600340
0081 35 | $PST1 EQU /81 ADDR POSTOP ERROR TRAP,LEVEL 1 J0600350
0085 36 | $PST2 EQU /85 ADDR POSTOP ERROR TRAP,LEVEL 2 J0600360
0089 37 | $PST3 EQU /89 ADDR POSTOP ERROR TRAP,LEVEL 3 J0600370
008D 38 | $PST4 EQU /8D ADDR POSTOP ERROR TRAP,LEVEL 4 J0600380
0091 39 | $STOP EQU /91 ADDR PROGRAM STOP KEY TRAP J0600390
0095 40 | $FPAD EQU /95 FILE PROTECT ADDR (ADJ),LOG DR 0 J0600400
009A 41 | $CYLN EQU /9A ARM POSITION FOR LOGICAL DRIVE 0 J0600410
009F 42 | $ACDE EQU /9F AREA CODE FOR LOGICAL DRIVE 0 J0600420
00A4 43 | $DCYL EQU /A4 1ST DEF CYL ADDR, LOGICAL DR 0 J0600430
00B3 44 | $I200 EQU /B3 ENTRY POINT TO ILS FOR LEVEL 2 J0600440
00B8 45 | $I205 EQU /B8 J0600450
00B9 46 | $IBT2 EQU $I205+1 ADDR OF IBT FOR LEVEL 2 J0600460
00C4 47 | $I400 EQU /C4 ENTRY POINT TO ILS FOR LEVEL 4 J0600470
00D3 48 | $I405 EQU /D3 J0600480
00D4 49 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 J0600490
00D5 50 | $I410 EQU /D5 J0600500
00EE 51 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY J0600510
01CB 52 | $BYSW EQU /1CB BYPASS SW,NOP IF FETCHING SOCAL J0600520
00F2 53 | DZ000 EQU /0F2 DISKZ ENTRY POINT J0600530
01E0 54 | $ZEND EQU /1E0 ADDR 1+LAST WORD OF DISKZ J0600540
7FA0 56 | C EQU /7FA0 CATCO POINTER SET TO MIDDLE J0600560
57 | *************************************************** J0600570
58 | * * J0600580
59 | * INDEX REG 1 IS SET TO .C. WHEN CATCO IS FORMED * J0600590
60 | * FOR USE BY ALL OF DUP FUNCTIONS. ANY DUP ROUT * J0600600
61 | * USING XR 1 FOR OTHER REASONS MUST RESTORE. * J0600610
62 | * ALL VALUES IN CATCO HAVE LABELS EQUATED TO THE * J0600620
63 | * VALUE THAT INDICATES THEIR RELATIVE LOCATION * J0600630
64 | * FROM .C. * J0600640
65 | * * J0600650
66 | *************************************************** J0600660
67 | * * J0600670
68 | * CATCO DCOM IMAGE * J0600680
69 | * EQUIVALENCES USED TO REFERENCE CATCO WITH XR1 * J0600690
70 | * * J0600700
71 | *************************************************** J0600710
FF84 72 | #NAME EQU 4-/80 NAME OF PROGRAM J0600720
FF86 73 | #DBCT EQU 6-/80 DISK BLOCK COUNT OF PROGRAM J0600730
FF87 74 | #FCNT EQU 7-/80 FILES SW,ZERO 0 NO FILES J0600740
FF88 75 | #SYSC EQU 8-/80 NON-ZERO,SYSTEM CARTRIDGE J0600750
FF89 76 | #JBSW EQU 9-/80 JOB SW,NON-ZERO='T' MODE J0600760
FF8A 77 | #CBSW EQU 10-/80 CLB SW,NON-ZERO=STORECI J0600770
FF8B 78 | #LCNT EQU 11-/80 NO. OF LOCALS J0600780
FF8C 79 | #MPSW EQU 12-/80 NON-ZERO, CORE MAP DESIRED J0600790
FF8D 80 | #MDF1 EQU 13-/80 NO. OF DUP CTRL RCDS J0600800
FF8E 81 | #MDF2 EQU 14-/80 ADDR OF MODIF BUFFER J0600810
FF8F 82 | #NCNT EQU 15-/80 NO. OF NOCALS J0600820
FF90 83 | #ENTY EQU 16-/80 RELATIVE ENTRY ADDR OF PROG J0600830
FF91 84 | #RP67 EQU 17-/80 IF NON-ZERO,1442 MOD 6,7 J0600840
85 | * J0600850
86 | * NEGATIVE VALUE REPRESENTS DEFAULT CONDITION * J0600860
FF92 87 | #TODR EQU 18-/80 DR CODE OF 'TO' DRIVE J0600870
FF93 88 | #FRDR EQU 19-/80 DR CODE OF 'FROM' DRIVE J0600880
89 | * * J0600890
FF94 90 | #FHOL EQU 20-/80 ADDR OF LARGEST FXA HOLE J0600900
FF95 91 | #FSZE EQU 21-/80 BLK CNT LARGEST HOLE IN FXA J0600910
FF96 92 | #UHOL EQU 22-/80 ADDR OF LARGEST UA HOLE J0600920
FF97 93 | #USZE EQU 23-/80 BLK CNT LARGEST HOLE IN UA J0600930
FF98 94 | #DCSW EQU 24-/80 NON-ZERO=DUP CALL J0600940
FF99 95 | #PIOD EQU 25-/80 PRINC. I/O INDICATOR J0600950
FF9A 96 | #PPTR EQU 26-/80 PRINC. PRINTER INDICATOR J0600960
FF9B 97 | #CIAD EQU 27-/80 WD NO. SCTR 0,CIL ADDR J0600970
FF9C 98 | #ACIN EQU 28-/80 AVAILABLE CARTRIDGE INDR2-8 J0600980
FF9D 99 | #GRPH EQU 29-/80 2250 INDICATOR 2-8 J0600990
FF9E 100 | #GCNT EQU 30-/80 NO. G2250 RECORDS 2-8 J0601000
FF9F 101 | #LOSW EQU 31-/80 LOCAL-CALLS-LOCAL INDR 2-8 J0601010
FFA0 102 | #X3SW EQU 32-/80 SPECIAL ILS SWITCH 2-8 J0601020
FFA1 103 | #ECNT EQU 33-/80 NO. OF EQUAT RCDS 2-8 J0601030
FFA3 104 | #ANDU EQU 35-/80 END OF UA (ADJ) LOG DR 0-4 J0601040
FFA8 105 | #BNDU EQU 40-/80 END OF UA (BASE) LOG DR 0-4 J0601050
FFAD 106 | #FPAD EQU 45-/80 FILE PROTECT ADDR (BASE) J0601060
FFB2 107 | #PCID EQU 50-/80 CART ID, PHYS DR 0-4 J0601070
FFB7 108 | #CIDN EQU 55-/80 CART ID, LOG DR 0-4 J0601080
FFBC 109 | #CIBA EQU 60-/80 CIB ADDR, LOG DR 0-4 J0601090
FFC1 110 | #SCRA EQU 65-/80 SCRA, LOG DR 0-4 J0601100
FFC6 111 | #FMAT EQU 70-/80 WS FORMAT, LOG DR 0-4 J0601110
FFCB 112 | #FLET EQU 75-/80 FLET ADDR, LOG DR 0-4 J0601120
FFD0 113 | #ULET EQU 80-/80 LET ADDR, LOG DR 0-4 J0601130
FFD5 114 | #WSCT EQU 85-/80 WS BLK CNT, LOG DR 0-4 J0601140
FFDA 115 | #CSHN EQU 90-/80 CUSHION END SCTR ADDR, 0-4 J0601150
0001 116 | #DCOM EQU 1 SCTR ADDR OF DCOM J0601160
0007 117 | #HDNG EQU 7 SCTR WITH PAGE HEADING J0601170
0FB0 118 | @SBFR EQU /FB0 2-8 J0601180
CONCATENATED COMMON AREA (CATCO)
120 | *************************************************** J0601200
121 | * * J0601210
122 | * CATCO IOAR HDRS FOR DUP PHASES J0601220
123 | * * J0601230
124 | *************************************************** J0601240
FFF0 125 | ORG -/10 J0601250
FFF0 126 | DCHDR BSS 2 DUP CONTROL PH02 J0601260
FFF2 127 | STHDR BSS 2 STORE PH03 J0601270
FFF4 128 | FLHDR BSS 2 FILEQ PH04 J0601280
FFF6 129 | DMHDR BSS 2 DUMP PH05 J0601290
FFF8 130 | DLHDR BSS 2 DUMPLET PH06 J0601300
FFFA 131 | DTHDR BSS 2 DELETE PH07 J0601310
FFFC 132 | DFHDR BSS 2 DEFINE PH08 J0601320
FFFE 133 | DXHDR BSS 2 DUP EXIT PH09 J0601330
0000 134 | UCHDR BSS 2 DUP UPCOR PH13 J0601340
0002 135 | PIHDR BSS 2 PRINCIPAL I/O BLOCK PH14 J0601350
0004 136 | SIHDR BSS 2 PRINC I/O (W/O KB) BLK PH15 J0601360
0006 137 | PTHDR BSS 2 PAPER TAPE I/O BLOCK PH16 J0601370
0008 138 | CIHDR BSS 2 CI PHASE READ BY CL BUILDER J0601380
000A 139 | MUHDR BSS 2 MACRO UPDATE PH206 2-8 J0601390
000C 140 | D2HDR BSS 2 DUP CONTROL 2 PH205 2-8 J0601400
DMPLET- CATCO DUP SWITCHES
142 | *************************************************** J0601420
143 | * J0601430
144 | * CATCO DUP SWITCHES * J0601440
145 | * WORDS USED FOR COMMUNICATION OF DATA J0601450
146 | * BETWEEN DUP ROUTINES. J0601460
147 | * * J0601470
148 | * INITIALIZED TO ZERO BY .REST. OF DUPCO * J0601480
149 | * J0601490
150 | *************************************************** J0601500
000E 151 | CL1 EQU * J0601510
000E 152 | ASMSW BSS 1 NON ZERO IF DEFINE VOID ASM J0601520
000F 153 | BITSW BSS 1 NON ZERO TO ALLOW MDUMP-S J0601530
0010 154 | BLKSW BSS 1 NON ZERO IF BYPASSING REC J0601540
0011 155 | CIERR BSS 1 ERROR NO DETECTED BY PH 17 J0601550
0012 156 | CISW BSS 1 NON ZERO IF STORE CI J0601560
0013 157 | CLBSW BSS 1 NON ZERO IF PRECI EXECUTED J0601570
0014 158 | CNTNO BSS 1 RECORD NO BEING PCHD OR RD J0601580
159 | * * J0601590
160 | * .DATSW. IS FILLED WITH THE CNT FIELD OF THE * J0601600
161 | * DUP CONTROL RECORD. * J0601610
162 | * USED PRIMARILY FOR DATA MOVEMENT, BUT ALSO IS * J0601620
163 | * USED FOR COUNT OF RECORDS TO READ AFTER A * J0601630
164 | * STORE CI DUP CONTROL RECORD. * J0601640
0015 165 | DATSW BSS 1 RECORDS VALUE IN CNT FIELD J0601650
0016 166 | DBADR BSS 1 DB ADDR OF REFERENCED PROG J0601660
0017 167 | DELSW BSS 1 ADDR OF REQ LET ENTRY - 1 J0601670
0018 168 | DFNSW BSS 1 NON ZERO IF DEFINE FXA J0601680
0019 169 | DKSAD BSS 1 DK SCTR ADDR W/O DR CODE J0601690
001A 170 | DUMPP BSS E 2 LAST LIMITS FOR PRNTR DUMP J0601700
001C 171 | FORSW BSS 1 NON ZERO IF DEFINE VOID FOR J0601710
001D 172 | FRWS BSS 1 NON ZERO IF FROM FLD IS WS J0601720
001E 173 | FXSW BSS 1 NON ZERO IF FIXED AREA REQD J0601730
001F 174 | HOLSW BSS 1 NON ZERO IF NO CONV REQD J0601740
0020 175 | IOSW BSS 1 NON ZERO IF IN/OUT REQD J0601750
176 | * * J0601760
177 | * DUMPLET SWITCH - ZERO IF NOT DUMPLET/DUMPFLET * J0601770
178 | * PLUS VALUE REQUIRES PRINT OF BOTH LET/FLET* J0601780
179 | * NEG. VALUE REQUIRES PRINT OF FLET ONLY * J0601790
0021 180 | LETSW BSS 1 NON ZERO,PRINT LET OR FLET* J0601800
0022 181 | LSTLF BSS 1 LAST LET/FLET SECT PROCESSD J0601810
0023 182 | MODSW BSS 1 NON ZERO IF STORE MOD FUNC J0601820
0024 183 | NAMSW BSS 1 NON ZERO IF NAME IN LET/F J0601830
0025 184 | NEGSW BSS 1 NON ZERO IF SHRINKING FXA J0601840
0026 185 | PGMHL BSS 1 WORD COUNT OF THE PROG HDR J0601850
0027 186 | PRSW BSS 1 NON ZERO IF PRINTING OUTPUT J0601860
0028 187 | PTSW BSS 1 NON ZERO IF PAPER TAPE REQD J0601870
0029 188 | SKWDS BSS 1 WDS TO SEARCH IN L/F SECT J0601880
002A 189 | STCSW BSS 1 NON ZERO IF STORE DATA CI J0601890
002B 190 | STSW BSS 1 NON ZERO IF STORE TYPE J0601900
002C 191 | TEMP1 BSS E 1 1ST WD OF BINEB OUTPUT J0601910
002D 192 | TEMP2 BSS 1 2ND WD OF BINEB OUTPUT J0601920
002E 193 | TOWS BSS 1 NON ZERO IF TO FIELD IS WS J0601930
002F 194 | T3MSW BSS 1 TYPE 3,4 SOCAL LEVEL CELL J0601940
0030 195 | UASW BSS 1 NON ZERO IF USER AREA REQD J0601950
0031 196 | WSSW BSS 1 NON ZERO IF WORK STG REQD J0601960
0032 197 | XEQSW BSS 1 NON ZERO IF NOT RET FR GET J0601970
0033 198 | EBCSW BSS 1 NON ZERO IF EBC DATA OP 2E2 J0601980
0034 199 | HDNSW BSS 1 NON ZERO IF NAME IN HDR 2-8 J0601990
0035 200 | RPGSW BSS 1 NON Z IF DEFINE VOID RPG2-8 J0602000
0036 201 | DFLSW BSS 1 NON ZERO IF *DFILE 2-8 J0602010
0037 202 | BSS 1 RESERVED FOR ADDITION 2-8 J0602020
0037 203 | CL2 EQU *-1 J0602030
DMPLET- CATCO DUP SWITCHES
205 | *************************************************** J0602050
206 | * * J0602060
207 | * CATCO DUP SWITCHES * J0602070
208 | * INITIALIZED BY DCTL AND NOT RESET BY .REST. * J0602080
209 | * * J0602090
210 | *************************************************** J0602100
0038 211 | IOREQ BSS 1 MON-ZERO,AUX I/O SET REQ J0602110
0039 212 | PH2 BSS 1 NON-ZERO IF DCTL IN CORE J0602120
003A 213 | PH3 BSS 1 NON-ZERO IF STORE IN CORE J0602130
003B 214 | PH4 BSS 1 NON-ZERO IF DUMP IN CORE J0602140
215 | ************************************************2-8 J0602150
216 | * 2-8 J0602160
217 | * CATCO SWITCH INITIALIZED TO ZERO 2-8 J0602170
218 | * BY CCAT SUBR AND SET BY MACRO UPDATE PROGRAM2-8 J0602180
219 | * 2-8 J0602190
220 | ************************************************2-8 J0602200
003C 221 | DUPCR BSS 1 NON ZERO IF DUP CTRL RCD2-8 J0602210
222 | *************************************************** J0602220
223 | * * J0602230
224 | * CATCO DUP SWITCHES SET BY CCAT SUBR * J0602240
225 | * * J0602250
226 | *************************************************** J0602260
003D 227 | ADDR2 BSS 1 KB INTERRUPT ADDRESS J0602270
003E 228 | KBREQ BSS 1 CONTENTS OF LOC 13 J0602280
229 | * THE FOLLOWING SWITCH IS SET TO INDICATE THE J0602290
230 | * PRINCIPAL INPUT DEVICE J0602300
231 | * - IS PAPER TAPE J0602310
232 | * 0 IS CARD J0602320
233 | * + IS KEYBOARD J0602330
003F 234 | INOUT BSS 1 PRINCIPAL INPUT SWITCH J0602340
235 | * J0602350
0040 236 | PTPON BSS 1 NON-ZERO IF PAPER TP ON SYS J0602360
237 | *************************************************** J0602370
238 | * * J0602380
239 | * LEVEL 4 INTERRUPT BRANCH TABLE * J0602390
240 | * ADDRESSES. INITIALIZED BY CCAT, * J0602400
241 | * AND CARD/PAPER TAPE INTERFACES. * J0602410
242 | * * J0602420
243 | *************************************************** J0602430
0049 244 | ORG /0049 J0602440
0049 245 | IBT BSS 9 9 WD INTRPT BRANCH TABLE J0602450
246 | *************************************************** J0602460
247 | * * J0602470
248 | * CATCO I/O ADDRESSES REQUIRED BY DUP * J0602480
249 | * * J0602490
250 | *************************************************** J0602500
0052 251 | P1442 BSS E 2 SYS 1442 IOAR HEADER J0602510
0054 252 | PRPAR BSS 2 DEFAULT LIMITS TO PRINT J0602520
0056 253 | PHDUP BSS 1 LAST DUP PHASE IN CORE J0602530
0057 254 | CRBUF BSS 1 81 WD BFR FOR DUP CTRL RCDS J0602540
0058 255 | DCADR BSS 1 ADDR FOR DUP CTRL IOAR HDR J0602550
0059 256 | HDBUF BSS 1 ADDR OF PAGE HEADING BFR J0602560
005A 257 | IOBLK BSS 1 ADDR OF DUP I/O PHASE J0602570
005B 258 | SDBUF BSS 1 STORE/DUMP BUFFER J0602580
005C 259 | LETAR BSS 1 ADDR OF LET SEARCH BUFFER J0602590
005D 260 | PEBUF BSS 1 41 WD BFR FOR PACKED EBCDIC J0602600
005E 261 | THIS BSS 1 ADDR OF DOUBLE BFR, BFR 1 J0602610
005F 262 | NEXT BSS 1 ADDR OF DOUBLE BFR, BFR 2 J0602620
00F2 264 | DISKZ EQU DZ000 DISKZ ENTRY POINT J0602640
01DE 265 | B EQU $ZEND-2 J0602650
01DE 266 | DMPLC EQU B IOAR CORE ADDR FOR DMPLT J0602660
01DE 267 | EXITC EQU B IOAR CORE ADDR FOR DEXIT J0602670
01DE 268 | MUPC EQU B IOAR CORE ADDR FOR MUP 2-8 J0602680
11E0 269 | DCTL EQU B+/1002 ENTRY ADDRESS OF DCTL J0602690
11DE 270 | DCTLC EQU B+/1000 IOAR CORE ADDR FOR DCTL J0602700
21DE 271 | WSDC EQU B+/2000 IOAR CORE ADDR FOR STORE J0602710
41DE 272 | DUMPC EQU B+/4000 IOAR CORE ADDR FOR DDUMP J0602720
7DB0 273 | DUPCO EQU /7DB0 ADDR OF RESIDENT DUPCO J0602730
7F1E 274 | CATCO EQU /7F20-2 ADDR OF DCOM IOAR HEADER J0602740
275 | * * J0602750
276 | * DUPCO ENTRY POINTS...USED WITH INDIRECT BSI * J0602760
277 | * * J0602770
7DB0 278 | ORG DUPCO J0602780
7DB0 279 | BINEB BSS 1 CONVERSION BINARY TO EBCDIC J0602790
7DB1 280 | WRTDC BSS 1 WRITE DCOM(S) SUBROUTINE J0602800
7DB2 281 | ENTER BSS 1 SAVE XR-S AND CONDITIONS J0602810
7DB3 282 | GET BSS 1 READ FROM DISK USING DISKZ J0602820
7DB4 283 | LEAVE BSS 1 HANDLES ALL EXITS FROM DUP J0602830
7DB5 284 | LINE BSS 1 SPACES PRINTER 1 LINE J0602840
7DB6 285 | MASK BSS 1 INHIBITS KB INT REQUEST J0602850
7DB7 286 | MDUMP BSS 1 PRINTS SELECTED CORE LOC-S J0602860
7DB8 287 | PAGE BSS 1 SKIPS TO NEXT PAGE J0602870
7DB9 288 | PHID BSS 1 RECORDS PHASE ID J0602880
7DBA 289 | PHIDM BSS 1 RECORDS PHASE AND MODIFIER J0602890
7DBB 290 | PRINT BSS 1 USE SYS PR SUBR TO PRINT J0602900
7DBC 291 | PUT BSS 1 WRITES TO DISK USING DISKZ J0602910
7DBD 292 | REST BSS 1 RESTORE CATCO,GO TO DCTL J0602920
7DBE 293 | RTURN BSS 1 RESTORE XR-S AND CONDITIONS J0602930
294 | * * J0602940
295 | * INPUT/OUTPUT PARAMETERS , CORE ADDRESSES * J0602950
296 | * * J0602960
7D91 297 | BUF6 EQU DUPCO-/1F ADDR OF PAGE HEADING BUFFER J0602970
7C50 298 | PRPNT EQU BUF6-/141 IOAR ADDR FOR PRINC. PTR J0602980
7A06 299 | IOADR EQU BUF6-/38B START OF I/O INTERFACE J0602990
7A0A 300 | GETHO EQU IOADR+4 ENTRY FOR READING HOLL TYPE J0603000
7A0B 301 | GETBI EQU IOADR+5 ENTRY FOR READING BINARY J0603010
7A0C 302 | PACKB EQU IOADR+6 ENTRY TO PACK BINARY J0603020
7A0D 303 | PCHBI EQU IOADR+7 ENTRY TO PUNCH BINARY J0603030
79B5 304 | BUF1 EQU IOADR-/51 ADDR OF NEXT BUFFER J0603040
7963 305 | BUF2 EQU BUF1-/52 ADDR OF THIS BUFFER J0603050
7925 306 | BUF3 EQU BUF2-/3E ADDR OF PACKED EBC BUFFER J0603060
78D3 307 | BUF4 EQU BUF3-/52 ADDR OF CONTROL RCD BUFFER J0603070
7782 308 | BUF5 EQU IOADR-/284 ADDR OF LET SCTR BFR J0603080
0640 309 | BUF7 EQU BUF5-/7142 ADDR OF STORE/DUMP BFR J0603090
DUP-- DUMPLET/DUMPFLET PROLOGUE
311 | *************************************************** J0603110
312 | *STATUS-VERSION 2, MODIFICATION 9 * J0603120
313 | * * J0603130
314 | *FUNCTION/OPERATION * J0603140
315 | * THE DUMPLET PROGRAM DUMPS THE CONTENTS OF THE * J0603150
316 | * LOCATION EQUIVALENCE TABLE(LET) AND/OR THE * J0603160
317 | * FIXED AREA LOCATION EQUIVALENCE TABLE(FLET) TO* J0603170
318 | * THE PRINCIPAL PRINT DEVICE. THE EXTENT OF THE * J0603180
319 | * DUMP DEPENDS ON THE SETTING TWO DUPCO SWITCHES* J0603190
320 | * * LETSW-WHEN THIS SWITCH IS POSITIVE BOTH LET * J0603200
321 | * AND FLET ARE,WHEN IT IS NEGATIVE,ONLY * J0603210
322 | * FLET IS DUMPED. * J0603220
323 | * * DRIVF-WHEN THIS SWITCH IS NEGATIVE,LET/FLET * J0603230
324 | * ON ALL CARTRIDGES ARE DUMPED,WHEN IT * J0603240
325 | * IS NON-NEGATIVE,LET/FLET ON ONLY THE * J0603250
326 | * CARTRIDGE SPECIFIED IS DUMPED. IN THIS* J0603260
327 | * CASE THE CARTRIDGE REQUIRED IS * J0603270
328 | * REFLECTED IN DRIVF. * J0603280
329 | * EACH PAGE OF OUTPUT CONTAINS IN ADDITION TO * J0603290
330 | * THE DUMPED OUTPUT,TWO LINES OF HEADER * J0603300
331 | * INFORMATION.THE FIRST HEADER LINE REFLECTS THE* J0603310
332 | * CONTENTS OF THE FOLLOWING DCOM DATA WORDS-- * J0603320
333 | * =CDIN * J0603330
334 | * $FPAD (COMMA) * J0603340
335 | * =FPAD * J0603350
336 | * =CIBA * J0603360
337 | * =ULET * J0603370
338 | * =FLET * J0603380
339 | * THE SECOND HEADER LINE ON EACH PAGE REFLECTS * J0603390
340 | * INFORMATION TAKEN FROM THE FIRST 5 WORDS OF * J0603400
341 | * THE LET/FLET SECTOR BEING DUMPED.THIS INFORM- * J0603410
342 | * ATION IS AS FOLLOWS * J0603420
343 | * SECTOR NUMBER * J0603430
344 | * USER AREA/FIXED AREA * J0603440
345 | * WORDS AVAILABLE * J0603450
346 | * CHAIN ADDRESS * J0603460
347 | * EACH LET/FLET ENTRY WILL HAVE THE FOLLOWING * J0603470
348 | * INFORMATION PRINTED FOR IT-- * J0603480
349 | * FORMAT(DSF,DDF,OR DCI) * J0603490
350 | * NAME * J0603500
351 | * DISK BLOCK COUNT * J0603510
352 | * DISK BLOCK ADDRESS * J0603520
353 | * THE FORMAT OF THE OUTPUT IS THE SAME FOR ALL * J0603530
354 | * PRINT DEVICES,(1053,1132,OR 1403)--FIVE LET/ * J0603540
355 | * FLET ENTRIES ARE FORMATTED AND PRINTED PER * J0603550
356 | * LINE. THE LET/FLET SECTOR IS OUTPUTTED SO THAT* J0603560
357 | * THE ENTRIES ARE LISTED COLUMN-WISE.ILLUSTRATED* J0603570
358 | * BELOW IS THE WAY A SECTOR APPEARS(WITHOUT THE * J0603580
359 | * TWO HEADER LINES)-- * J0603590
360 | * * J0603600
361 | * ENTRY1 ENTRY22 ENTRY43 ENTRY64 ENTRY85 * J0603610
362 | * ENTRY2 ENTRY23 ENTRY44 ENTRY65 ENTRY86 * J0603620
363 | * ENTRY3 ENTRY24 ENTRY45 ENTRY66 ENTRY87 * J0603630
364 | * ENTRY4 ENTRY25 ENTRY46 ENTRY67 ENTRY88 * J0603640
365 | * - - - - - J0603650
366 | * - - - - - J0603660
367 | * - - - - - J0603670
368 | * ENTRY21 ENTRY42 ENTRY63 ENTRY84 ENTRY105 * J0603680
369 | * * J0603690
370 | * IN ADDITION TO PRINTING A COMPLETE LET OR FLET* J0603700
371 | * THIS PROGRAM ALSO HAS THE FACILITY TO DUMP A * J0603710
372 | * SINGLE LET OR FLET ENTRY. THIS OPTION IS * J0603720
373 | * INDICATED BY A SWITCH--NAMSW-- BEING SET NON- * J0603730
374 | * ZERO. * J0603740
375 | * * J0603750
376 | *ENTRY POINTS- * J0603760
377 | * DLET -THIS IS THE ONLY ENTRY POINT INTO THE * J0603770
378 | * PROGRAM. * J0603780
379 | * * J0603790
380 | *INPUT- * J0603800
381 | * * WHEN A SINGLE LET/FLET ENTRY IS DUMPED,INPUT* J0603810
382 | * IS PROVIDED BY THE FOLLOWING CELLS IN CATCO * J0603820
383 | * NAMEP- NAME AND FORMAT CODE * J0603830
384 | * BLKCT- DB SIZE * J0603840
385 | * DBADR- DB ADDRESS * J0603850
386 | * * WHEN AN ENTIRE LET OR FLET IS DUMPED INPUT * J0603860
387 | * IS IN THE FORM OF A LET/FLET SECTOR READ * J0603870
388 | * INTO CORE FROM THE DISK * J0603880
389 | * * J0603890
390 | *OUTPUT- * J0603900
391 | * A LINE PRINTED ON THE PRINCIPAL PRINT DEVICE * J0603910
392 | * FOR EACH 5 ENTRIES. THE NUMBER OF LINES * J0603920
393 | * OUTPUTTED DEPENDS ON THE NUMBER OF ENTRIES IN * J0603930
394 | * THE TABLE. * J0603940
395 | * * J0603950
396 | *EXTERNAL REFERENCES * J0603960
397 | * SUBROUTINES IN DUPCO * J0603970
398 | * * PHID * J0603980
399 | * * PAGE * J0603990
400 | * * PRINT * J0604000
401 | * * BINEB * J0604010
402 | * * LINE * J0604020
403 | * * DUMP * J0604030
404 | * * GET * J0604040
405 | * SWITCHES IN CATCO * J0604050
406 | * * DMPLC * J0604060
407 | * * DRIVF * J0604070
408 | * * LETSW * J0604080
409 | * * =ULET * J0604090
410 | * * TEMP1 * J0604100
411 | * * LETAR * J0604110
412 | * * =FLET * J0604120
413 | * * =CIDN * J0604130
414 | * * $FPAD * J0604140
415 | * * =FPAD * J0604150
416 | * * =CIBA * J0604160
417 | * * C * J0604170
418 | * * J0604180
419 | *EXITS * J0604190
420 | * NORMAL- * J0604200
421 | * DL147 * J0604210
422 | * ERROR - * J0604220
423 | * NONE * J0604230
424 | * * J0604240
425 | *TABLES/WORK AREAS- * J0604250
426 | * * PRNTA PRINTER OUTPUT AREA * J0604260
427 | * * LETAR I/O AREA FOR LET SECTOR * J0604270
428 | * * J0604280
429 | *ATTRIBUTES- * J0604290
430 | * SERIALLY REUSABLE * J0604300
431 | * * J0604310
432 | *NOTES- N/A * J0604320
433 | * * J0604330
434 | * * J0604340
435 | * * J0604350
436 | * * J0604360
437 | *************************************************** J0604370
DUP--DUMPLET/DUMPFLET
01DE 439 | ORG DMPLC J0604390
01DE 0000 440 | DC *-* LOADER STORES WORD COUNT J0604400
01DF 0006 441 | DC 6 DUMPLET/FLET PHASE ID J0604410
442 | * J0604420
01E0 4480 7DB9 443 | DLET BSI I PHID GO TO DUPCO TO J0604430
01E2 0006 444 | DC /0006 RECORD PHASE ID. J0604440
445 | * J0604450
01E3 6780 7FFC 446 | LDX I3 LETAR+C *FORCE A BLANK NAME * J0604460
01E5 18A0 447 | SRT 32 *FOLLOWING THE LAST* J0604470
01E6 DF00 0142 448 | STD L3 322 *ENTRY IN LET SECTOR* J0604480
449 | * J0604490
01E8 633C 450 | LDX 3 60 INITIALIZE WORD COUNT J0604500
01E9 6F00 7925 451 | STX L3 PRNTA OF PRINT BUFFER J0604510
452 | * J0604520
01EB 6300 453 | LDX 3 0 INIT.XR3 FOR LOG.DRIVE 0 J0604530
454 | * J0604540
455 | * TEST IF ALL CARTRIDGES ON SYSTEM ARE REQUIRED,OR J0604550
456 | * ONLY THE ONE SPECIFIED. J0604560
457 | * J0604570
01EC C193 458 | LD 1 #FRDR TEST IF SWITCH IS NEGATIVE J0604580
01ED 4C28 01F1 459 | BSC L DL020,+Z YES,NEED ALL CARTRIDGES J0604590
460 | * J0604600
01EF 6780 7F33 461 | LDX I3 #FRDR+C NO,XR3=DRIVE SPECIFIED J0604610
462 | * J0604620
01F1 6F00 044C 463 | DL020 STX L3 PD020+1 SAVE XR3 J0604630
01F3 6F00 02C0 464 | STX L3 DL085+1 J0604640
465 | * J0604650
466 | * CHECK -NAMSW- TO SEE IF ONLY ONE ENTRY IS REQD., J0604660
467 | * INDICATED BY.NAMSW. NON-ZERO J0604670
468 | * J0604680
01F5 C124 469 | LD 1 NAMSW IS NAMSW NON-ZERO J0604690
01F6 4C20 0307 470 | BSC L DL300,Z YES,GO PROCESS SINGLE ENT J0604700
471 | * J0604710
472 | * TEST IF BOTH LET AND FLET ARE NEEDED,OR ONLY J0604720
473 | * FLET,INDICATED BY.LETSW. POSITIVE OR NEGATIVE J0604730
474 | * J0604740
01F8 C121 475 | DL022 LD 1 LETSW LET & FLET OR JUST FLET J0604750
01F9 4C28 02B3 476 | BSC L DL070,+Z JUST FLET GOTO SETUP FSADR J0604760
477 | * J0604770
01FB C700 7F70 478 | LD L3 #ULET+C LET AND FLET,CHK LET SCTR J0604780
01FD 4C18 02E7 479 | BSC L DL140,+- SIGN-OFF IF ZERO ,IF NOT J0604790
01FF D400 0387 480 | DL025 STO L HDR+1 LET SCTR ADDR IN I/O HDR J0604800
481 | * J0604810
0201 4400 02A9 482 | BSI L RDSCT GO READ A SECTOR J0604820
483 | * J0604830
0203 C302 484 | LD 3 +2 LET OR FLET J0604840
0204 1804 485 | SRA 4 ITS FLET IF 16 OR GREATER J0604850
0205 4C20 020C 486 | BSC L DL026,Z BRANCH IF FLET J0604860
0207 CC00 0342 487 | LDD L LET LOAD LET MESSAGE INTO J0604870
0209 DC00 7DA4 488 | STD L BUF6+19 PAGE HEADING BUFFER J0604880
020B 7004 489 | MDX DL027 GO RESTORE PAGE J0604890
490 | * J0604900
020C CC00 033E 491 | DL026 LDD L SUFFT STORE FLET MESSAGE IN J0604910
020E DC00 7DA4 492 | STD L BUF6+19 PAGE HEADING BUFFER J0604920
493 | * J0604930
0210 4480 7DB8 494 | DL027 BSI I PAGE TO DUPCO TO RESTORE PAGE J0604940
0212 4480 7DB5 495 | BSI I LINE LINE J0604950
0214 4480 7DB5 496 | BSI I LINE SPACES J0604960
0216 4480 7DB5 497 | BSI I LINE TO J0604970
0218 4480 7DB5 498 | BSI I LINE CENTER J0604980
021A 4480 7DB5 499 | BSI I LINE OUTPUT J0604990
500 | * J0605000
501 | * J0605010
502 | * CHECK THE SWITCH CALLED .CHNGE. TO SEE IF WE J0605020
503 | * NEED TO INITIALIZE TO A NEW DISK BLOCK ADDRESS. J0605030
504 | * WE ONLY NEED A NEW DB ADDR.IF WE GO FROM LET TO J0605040
505 | * FLET--SIGNIFIED BY .CHNGE. EQUAL TO ZERO, J0605050
506 | * OTHERWISE .CHNGE. WILL BE NON-ZERO J0605060
507 | * J0605070
021C C400 0378 508 | LD L CHNGE GO INIT. DB ADDR J0605080
021E 4418 03D9 509 | BSI L INDBA,+- IF SWITCH IS ZERO J0605090
510 | * J0605100
0220 4400 043E 511 | BSI L PDCHR PRINT DCOM TITLE AND HDR J0605110
512 | * J0605120
0222 6600 035A 513 | LDX L2 LETH-1 XR2= LET HDR MESSAGE ADDR J0605130
0224 6317 514 | LDX 3 23 XR3= NO.OF WORD TO MOVE J0605140
0225 4079 515 | BSI MOVE MOVE HDR.MSG.,PRINT LINE J0605150
516 | * J0605160
0226 4480 7DBB 517 | BSI I PRINT TO DUPCO TO PRINT A LINE J0605170
0228 7925 518 | DC PRNTA PRINT BUFFER ADDRESS J0605180
519 | * J0605190
0229 405A 520 | BSI CLEAR CLEAR THE PRINT BUFFER J0605200
521 | * J0605210
022A 6600 7925 522 | LDX L2 PRNTA XR2=PRINT BUFFER J0605220
022C 6780 7FFC 523 | LDX I3 LETAR+C XR3=ADDR.OF LET SCTR AREA J0605230
022E C302 524 | LD 3 +2 PICK-UP LET SECTOR NO. J0605240
022F 4480 7DB0 525 | BSI I BINEB CONVERT TO EBC J0605250
526 | * J0605260
0231 C92C 527 | LDD 1 TEMP1 LET SECTOR NO.STORED IN J0605270
0232 DA01 528 | STD 2 +1 PRINT BUFFER J0605280
529 | * J0605290
0233 C303 530 | LD 3 +3 PICK UP SECTOR ADDR OF U/A J0605300
0234 4480 7DB0 531 | BSI I BINEB CONVERT J0605310
532 | * J0605320
0236 C92C 533 | LDD 1 TEMP1 SCTR.ADDR.OF U/A STORED IN J0605330
0237 D206 534 | STO 2 +6 PRINT BUFFER--1ST 2 CHARS J0605340
0238 18D0 535 | RTE 16 2ND. 2 CHARS J0605350
0239 D207 536 | STO 2 +7 J0605360
537 | * J0605370
023A C305 538 | LD 3 +5 PICK-UP SECTOR ADDR OF NO. J0605380
023B 4480 7DB0 539 | BSI I BINEB OF WDS.AVAIL.,CONVERT J0605390
540 | * J0605400
023D C92C 541 | LDD 1 TEMP1 LOAD 2 CONVERTED EBC WORDS J0605410
023E DA0D 542 | STD 2 +13 STORE IN PRINT BUFFER J0605420
543 | * J0605430
023F C306 544 | LD 3 +6 CHAIN ADDRESS J0605440
0240 4480 7DB0 545 | BSI I BINEB CONVERT TO EBC J0605450
546 | * J0605460
0242 C92C 547 | LDD 1 TEMP1 LD.2 CONVERTED WORDS J0605470
0243 DA13 548 | STD 2 +19 STORE IN PRINT BUFFER J0605480
549 | * J0605490
0244 4480 7DBB 550 | BSI I PRINT GOTO DUPCO TO PRINT A LINE J0605500
0246 7925 551 | DC PRNTA PRINT I/O AREA J0605510
552 | * J0605520
0247 4480 7DB5 553 | BSI I LINE LINE SPACE J0605530
0249 4480 7DB5 554 | BSI I LINE LINE SPACE J0605540
024B 4480 7DB5 555 | BSI I LINE LINE SPACE J0605550
556 | * J0605560
024D 4036 557 | BSI CLEAR CLEAR THE PRINT BUFFER J0605570
558 | * J0605580
024E 6600 0363 559 | LDX L2 FORM1-1 XR2=ADDR.OF 1ST.TITLE LINE J0605590
0250 403F 560 | BSI TRLNE MOVE MSG.,PRINT LINE J0605600
561 | * J0605610
0251 6600 036D 562 | LDX L2 FORM2-1 XR2=ADDR.OF 2ND.TITLE LINE J0605620
0253 403C 563 | BSI TRLNE MOVE AND PRINT 2ND HDR J0605630
564 | * J0605640
0254 4480 7DB5 565 | BSI I LINE LINE SPACE J0605650
566 | * J0605660
567 | * J0605670
568 | * INITIALIZE MAX. NUMBER OF LINES PER SECTOR J0605680
569 | * J0605690
0256 6215 570 | LDX 2 21 21 LINES PER SECTOR J0605700
0257 6E00 0391 571 | STX L2 LNCNT J0605710
0259 C400 038D 572 | LD L DBAD INIT DB ADDR J0605720
025B D400 038E 573 | STO L DBAD2 COLUMN-WISE J0605730
574 | * J0605740
575 | * SET XR2 TO THE ADDRESS OF THE FIRST LET/FLET J0605750
576 | * ENTRY (WORD 6) J0605760
577 | * J0605770
025D 6680 7FFC 578 | LDX I2 LETAR+C XR2=ADDR.OF WC OF DISK I/O J0605780
025F 7206 579 | MDX 2 6 XR2=ADDR. OF WORD 5 J0605790
0260 6A5D 580 | STX 2 DL080+1 SAVE FOR FUTURE USE J0605800
0261 7201 581 | MDX 2 1 XR2=ADDR.OF WORD 6 J0605810
0262 6A13 582 | DL060 STX 2 DL065+1 SAVE XR2 J0605820
583 | * J0605830
584 | * J0605840
585 | * GO TO SUBROUTINE WHICH FORMS THE NEXT LINE IN THE J0605850
586 | * PRINT BUFFER,AFTER FIRST HAVING INITIALIZED BLANK J0605860
587 | * LINE SWITCH(BLNSW) TO ZERO J0605870
588 | * J0605880
0263 1810 589 | SRA 16 CLEAR J0605890
0264 D400 038F 590 | STO L BLNSW BLANK LINE SWITCH J0605900
591 | * J0605910
0266 4400 0399 592 | BSI L SCAN GO FORM A LINE J0605920
593 | * J0605930
0268 1000 594 | NOP J0605940
0269 CC00 0382 595 | LDD L PRNTP *INTERMEDIATE DUMP * J0605950
026B D91A 596 | STD 1 DUMPP *CONTENTS OF THE * J0605960
026C 4480 7DB7 597 | BSI I MDUMP *PRINT BUFFER * J0605970
598 | * J0605980
026E C400 038F 599 | DL062 LD L BLNSW CHECK FOR BLANK LINE J0605990
0270 4C18 02BD 600 | BSC L DL080,+- YES,DONE 1 SCTR,GO WRAP-UP J0606000
601 | * J0606010
0272 4480 7DBB 602 | BSI I PRINT NO,GO PRINT THE LINE J0606020
0274 7925 603 | DC PRNTA ADDR.OF WORD COUNT J0606030
604 | * J0606040
0275 6600 0000 605 | DL065 LDX L2 *-* RESTORE XR2 J0606050
0277 C202 606 | LD 2 2 * INITIALIZE * J0606060
0278 8400 038E 607 | A L DBAD2 * DB ADDRESS * J0606070
027A D400 038E 608 | STO L DBAD2 * FOR NEXT LINE* J0606080
609 | * J0606090
027C 7203 610 | MDX 2 3 NEXT SEQUENTIAL ENTRY ADDR J0606100
027D 74FF 0391 611 | MDX L LNCNT,-1 DECREMENT LINE COUNT J0606110
027F 7001 612 | MDX *+1 NOT FINISHED,BRANCH AROUND J0606120
0280 703C 613 | MDX DL080 DONE 1 SECTOR,GO WRAP UP J0606130
614 | * J0606140
0281 D400 038D 615 | STO L DBAD INITIALIZE DB ADDRESS J0606150
0283 70DE 616 | MDX DL060 DO NEXT LINE J0606160
617 | * J0606170
618 | *************************************************** J0606180
619 | * SUBROUTINE TO CLEAR THE PRINTER OUTPUT AREA * J0606190
620 | * TO BLANKS * J0606200
621 | *************************************************** J0606210
622 | * J0606220
0284 1000 623 | CLEAR NOP J0606230
0285 613C 624 | LDX 1 60 NO.OF WORDS TO CLEAR J0606240
0286 C008 625 | LD CL901 TWO BLANKS CHARACTERS J0606250
0287 D500 7925 626 | CL010 STO L1 PRNTA CLEAR WORD J0606260
627 | * J0606270
0289 71FF 628 | MDX 1 -1 DO NEXT WD.IF J0606280
028A 70FC 629 | MDX CL010 NOT FINISHED J0606290
630 | * J0606300
028B 6500 7FA0 631 | LDX L1 C RESTORE XR1 J0606310
028D 4C80 0284 632 | BSC I CLEAR RETURN J0606320
633 | * J0606330
028F 4040 634 | CL901 DC /4040 2 2 EBC BLANK CHARACTERS J0606340
635 | * J0606350
636 | * J0606360
637 | *************************************************** J0606370
638 | * SUBROUTINE TO MOVE A TEN WORD HEADER MESSAGE * J0606380
639 | * SUCCESSIVELY 5 TIMES IN TO CONTIGUOUS LOCA- * J0606390
640 | * TIONS IN THE PRINT BUFFER AND PRINT THE LINE * J0606400
641 | * THUS FORMED IN THE PRINT BUFFER * J0606410
642 | *************************************************** J0606420
0290 1000 643 | TRLNE NOP ************************* J0606430
0291 6105 644 | LDX 1 5 *MOVE A 10 WORD HEADER * J0606440
0292 630A 645 | TR010 LDX 3 10 *MESSAGE 6 SUCCESSIVE * J0606450
0293 400B 646 | BSI MOVE *TIMES INTO CONSECUTIVE * J0606460
0294 740C 02A4 647 | MDX L MV010+1,12 *LOCATIONS IN THE * J0606470
0296 71FF 648 | MDX 1 -1 *PRINT AREA * J0606480
0297 70FA 649 | MDX TR010 ************************* J0606490
650 | * J0606500
0298 C003 651 | LD TR020 J0606510
0299 D00A 652 | STO MV010+1 REINITIALIZE INSTRUCTION J0606520
029A 4480 7DBB 653 | BSI I PRINT TO DUPCO TO PRINT A LINE J0606530
029C 7925 654 | TR020 DC PRNTA PRINT OUTPUT AREA J0606540
655 | * J0606550
029D 4C80 0290 656 | BSC I TRLNE RETURN J0606560
657 | *************************************************** J0606570
658 | * SUBROUTINE TO MOVE EBC MESSAGE INTO PRINT BFR * J0606580
659 | *************************************************** J0606590
660 | * J0606600
029F 1000 661 | MOVE NOP J0606610
02A0 6A01 662 | STX 2 *+1 J0606620
02A1 C700 0000 663 | LD L3 *-* LD.WORD TO BE MOVED J0606630
02A3 D700 7925 664 | MV010 STO L3 PRNTA STORE IN PRINT BUFFER J0606640
665 | * J0606650
02A5 73FF 666 | MDX 3 -1 NEXT WORD J0606660
02A6 70FA 667 | MDX MOVE+2 LOOP IF NOT DONE J0606670
668 | * J0606680
669 | * J0606690
02A7 4C80 029F 670 | BSC I MOVE RETURN J0606700
671 | * J0606710
672 | *************************************************** J0606720
673 | * SUBROUTINE TO READ A SECTOR AND RELATED * J0606730
674 | * HOUSEKEEPING INSTRUCTIONS * J0606740
675 | *************************************************** J0606750
02A9 1000 676 | RDSCT NOP J0606760
02AA 6780 7FFC 677 | LDX I3 LETAR+C CALLING SEQUENCE FOR .GET. J0606770
02AC CC00 0386 678 | LDD L HDR INSERT WORD-COUNT AND J0606780
02AE DB00 679 | STD 3 0 SECTOR ADDRESS J0606790
680 | * J0606800
681 | * J0606810
02AF 4480 7DB3 682 | BSI I GET GO READ A SCTR OF LET/FLET J0606820
683 | * J0606830
02B1 4C80 02A9 684 | DL068 BSC I RDSCT RETURN J0606840
685 | * J0606850
686 | *************************************************** J0606860
02B3 C700 7F6B 687 | DL070 LD L3 #FLET+C SET UP FLET SECTOR ADDR. J0606870
02B5 1004 688 | SLA 4 ELIMINATE J0606880
02B6 1804 689 | SRA 4 *DRIVE CODE J0606890
02B7 4C18 02D9 690 | BSC L DL120,+- NO FLET THIS DR,CHK NXT J0606900
02B9 C700 7F6B 691 | LD L3 #FLET+C GET FLET SECTOR ADR AGAIN J0606910
02BB 4C00 01FF 692 | BSC L DL025 GO DUMP FLET ONLY J0606920
693 | *************************************************** J0606930
694 | * J0606940
02BD C400 0000 695 | DL080 LD L *-* IS WD.5 OF THIS SCTR ZERO J0606950
02BF 6700 0000 696 | DL085 LDX L3 *-* RESTORE XR3 J0606960
02C1 4C18 02D9 697 | BSC L DL120,+- YES,DONE 1 CART,CHK NEXT. J0606970
698 | * J0606980
699 | * J0606990
02C3 C700 7F6B 700 | LD L3 #FLET+C *NO,CHECK WORD 5 OF THIS J0607000
02C5 1004 701 | SLA 4 *SECTOR TO SEE IF WE ARE J0607010
02C6 1804 702 | SRA 4 *CHAINING FROM LET TO FLET, J0607020
02C7 9480 02BE 703 | S I DL080+1 *IF SO,SET SWITCH,.CHNGE. J0607030
02C9 D400 0378 704 | STO L CHNGE *ZERO,IF NOT,SET IT NONZERO J0607040
705 | * J0607050
02CB C600 00FB 706 | DL100 LD L2 2+83*3 J0607060
02CD 8400 038D 707 | A L DBAD J0607070
02CF D400 038D 708 | STO L DBAD UPDATE FOR THE 105TH ENTRY J0607080
02D1 C700 7F70 709 | LD L3 #ULET+C GET DRIVE- J0607090
02D3 180C 710 | SRA 12 *CODE OF THIS J0607100
02D4 100C 711 | SLA 12 *CARTRIDGE. J0607110
02D5 EC80 02BE 712 | OR I DL080+1 FORM ADDRESS OF NEXT SECTOR J0607120
02D7 4C00 01FF 713 | BSC L DL025 *GO READ NEXT SECTOR J0607130
714 | * J0607140
02D9 C193 715 | DL120 LD 1 #FRDR ARE ALL CARTRIDGES REQD J0607150
02DA 4C10 02E7 716 | BSC L DL140,- NO, GO TO SIGN OFF J0607160
717 | * J0607170
02DC 7301 718 | MDX 3 1 STEP TO NEXT CART IN TBL J0607180
02DD 6F00 0336 719 | STX L3 TEMPO XR3 TO TEMP LOC J0607190
02DF 74FC 0336 720 | MDX L TEMPO,-4 HAVE WE DONE ALL CARTRIDGES J0607200
02E1 7005 721 | MDX DL140 YES,GO SIGN OFF, J0607210
02E2 1810 722 | SRA 16 NO,RESET THE DB COUNT- J0607220
02E3 D400 0378 723 | STO L CHNGE *INITIALIZE SWITCH AND J0607230
02E5 4C00 01F1 724 | BSC L DL020 *GO DO NEXT CARTRIDGE J0607240
725 | * J0607250
726 | *************************************************** J0607260
727 | * * J0607270
728 | * PRINT THE DUMPLET/FLET SIGN OFF MESSAGE * J0607280
729 | * * J0607290
730 | *************************************************** J0607300
02E7 4480 7DB5 731 | DL140 BSI I LINE ONE SPACE OR CARRIER RETRN J0607310
732 | * J0607320
02E9 4480 7DB5 733 | BSI I LINE ONE SPACE OR CARRIER RETRN J0607330
734 | * J0607340
02EB 4098 735 | BSI CLEAR CLEAR THE PRINT BUFFER J0607350
736 | * J0607360
02EC C121 737 | LD 1 LETSW WAS THIS JUST A FLET DUMP J0607370
02ED 4C28 02FF 738 | BSC L DL150,+Z YES,GO FORMAT FLET SIGNOFF J0607380
739 | * J0607390
02EF C84A 740 | LDD SUFLT NO,FORMAT LET/FLET SIGNOFF J0607400
02F0 D845 741 | STD LTMSG+6 STORE .LET/. J0607410
742 | * J0607420
02F1 C84A 743 | LDD SUFLT+2 J0607430
02F2 D845 744 | STD LTMSG+8 STORE .FLET. J0607440
745 | * J0607450
02F3 6600 032F 746 | LDX L2 LTMSG-1 *MOVE SIGNOFF MESSAGE--END J0607460
02F5 630A 747 | LDX 3 10 *OF DUMPLET/FLET INTO PR J0607470
02F6 40A8 748 | DL145 BSI MOVE *BUFR AND PRINT IT J0607480
749 | * J0607490
02F7 4480 7DBB 750 | BSI I PRINT TO DUPCO TO PRINT A LINE J0607500
02F9 7925 751 | DC PRNTA J0607510
02FA C845 752 | LDD SUFFT+2 CLEAR OUT LET/FLET TITLE J0607520
02FB DC00 7DA4 753 | STD L BUF6+19 FROM PAGE HEADING BUFFER J0607530
02FD 4480 7DBD 754 | DL147 BSI I REST EXIT TO DUPCO -EXIT- J0607540
755 | * J0607550
02FF C83E 756 | DL150 LDD SUFFT FORMAT SIGNOFF MESSAGE FOR J0607560
0300 D835 757 | STD LTMSG+6 DUMP FLET J0607570
758 | * J0607580
0301 C83E 759 | LDD SUFFT+2 FILL J0607590
0302 D835 760 | STD LTMSG+8 BLANKS J0607600
761 | * J0607610
0303 6600 032F 762 | LDX L2 LTMSG-1 *MOVE SIGNOFF MESSAGE--END J0607620
0305 630A 763 | LDX 3 10 *OF DUMPLET INTO PRINT J0607630
0306 70EF 764 | MDX DL145 *BUFFER AND PRINT MESSAGE J0607640
765 | *************************************************** J0607650
UMPLET/FLET - SINGLE ENTRY
767 | * * J0607670
0307 6827 768 | DL300 STX 0 SECSW INIT SECONDARY ENTRY SW J0607680
0308 4400 043E 769 | BSI L PDCHR PRINT DCOM TITLE AND HDR J0607690
030A 6700 7925 770 | LDX L3 PRNTA INIT PRINT BFR POINTER J0607700
030C 6680 7FB7 771 | LDX I2 DELSW+C XR2=ADDR.LET ENTRY MINUS 1 J0607710
030E 7201 772 | MDX 2 1 XR2=ADDR.OF LET ENTRY J0607720
030F C202 773 | DL310 LD 2 2 CHK DB COUNT FOR NON-ZERO J0607730
0310 4C20 0315 774 | BSC L DL340,Z YES,PRIMARY ENTRY J0607740
0312 D01C 775 | STO SECSW NO,SET SEC ENTRY SW J0607750
0313 72FD 776 | MDX 2 -3 AND KEEP J0607760
0314 70FA 777 | MDX DL310 LOOKING FOR PRIMARY J0607770
778 | * * J0607780
779 | *************************************************** J0607790
780 | * * J0607800
781 | *FOUND PRIMARY ENTRY,HOWEVER, IF ORIGINAL REQUEST J0607810
782 | *WAS FOR A SECONDARY ENTRY--SECSW ZERO-- THEN DBADR J0607820
783 | *HAS ALREADY BEEN UPDATED BY DUP CONTROL,THEREFORE J0607830
784 | *THE DB COUNT OF THIS ENTRY MUST BE SUBTRACTED J0607840
785 | *OUT AGAIN TO REFLECT A CORRECT DB ADDRESS J0607850
786 | * J0607860
787 | *************************************************** J0607870
0315 C019 788 | DL340 LD SECSW WAS ORIG NAME A SEC ENTRY J0607880
0316 4C20 031B 789 | BSC L DL345,Z NO, .DBADR. IS OK,CONTINUE J0607890
0318 C116 790 | LD 1 DBADR YES,SUBTRACT J0607900
0319 9202 791 | S 2 2 DB COUNT OF J0607910
031A D116 792 | STO 1 DBADR THIS ENTRY J0607920
793 | * J0607930
031B 1810 794 | DL345 SRA 16 J0607940
031C D400 038F 795 | STO L BLNSW CLEAR BLANK NAME SWITCH J0607950
796 | * J0607960
031E C116 797 | LD 1 DBADR J0607970
031F D400 038D 798 | STO L DBAD SINGLE ENTRY DB ADDR J0607980
799 | * J0607990
0321 4400 0399 800 | DL350 BSI L SCAN GO FORMAT ONE ENTRY J0608000
801 | * J0608010
0323 C400 0390 802 | LD L BNMSW WRITE SIGN-OFF MESS- 2-9 J0608020
0325 4C18 02E7 803 | BSC L DL140,+- *AGE IF BLANK NAME. * J0608030
804 | * J0608040
0327 4480 7DBB 805 | BSI I PRINT PRINT A LINE J0608050
0329 7925 806 | DC PRNTA PRINTER I/O AREA J0608060
807 | * J0608070
032A 7203 808 | MDX 2 3 STEP TO NEXT ENTRY J0608080
032B C202 809 | LD 2 2 CHK.FOR SECONDARY ENTRY J0608090
032C 4C20 02E7 810 | BSC L DL140,Z NO,SIGN-OFF J0608100
811 | * J0608110
032E 70F2 812 | MDX DL350 YES,GO FORMAT ENTRY J0608120
813 | *************************************************** J0608130
UMPLET/FLET - CONSTANTS AND WORK CELL
815 | *************************************************** J0608150
816 | * CONSTANTS AND WORK CELLS * J0608160
817 | *************************************************** J0608170
032F 0000 818 | SECSW DC *-* SWITCH FOR SECONDARY ENTRY J0608180
7925 819 | PRNTA EQU BUF3 PRINTER OUTPUT AREA J0608190
0330 820 | BSS E 0 J0608200
0330 40C5 D5C4 40D6 C640 821 | LTMSG EBC . END OF DUMP. J0608210
C4E4 D4D7 |
0336 822 | TEMPO BSS 4 J0608220
033A D3C5 E361 C6D3 C5E3 823 | SUFLT EBC .LET/FLET. J0608230
033E C6D3 C5E3 4040 4040 824 | SUFFT EBC .FLET . J0608240
0342 D3C5 E340 825 | LET EBC .LET . J0608250
0344 7EC3 C9C4 D540 4040 826 | DCOMH EBC .=CIDN $FPAD =FPAD =CIBA =U. J0608260
5BC6 D7C1 C440 4040 |
7EC6 D7C1 C440 4040 |
7EC3 C9C2 C140 4040 |
7EE4 |
0355 D3C5 E340 4040 7EC6 827 | EBC .LET =FLET . J0608270
D3C5 E340 |
828 | * J0608280
035B E2C3 E3D9 40D5 D640 829 | LETH EBC .SCTR NO. UA/FXA. WORDS AVAIL. . J0608290
035F C3C8 C1C9 D540 C1C4 830 | EBC .CHAIN ADDR. . J0608300
C4D9 |
831 | * J0608310
0364 40D7 D9D6 C740 40C6 832 | FORM1 EBC . PROG FOR DB DB . J0608320
D6D9 40C4 C240 4040 |
C4C2 4040 |
833 | * J0608330
036E 40D5 C1D4 C540 40D4 834 | FORM2 EBC . NAME MAT CNT ADDR. J0608340
C1E3 40C3 D5E3 4040 |
C1C4 C4D9 |
835 | * J0608350
836 | * J0608360
837 | * THE FOLLOWING WORD IS USED AS A SWITCH TO J0608370
838 | * INDICATE WHEN WE GO FROM LET TO FLET. J0608380
839 | * J0608390
0378 0000 840 | CHNGE DC 0 LET TO FLET SWITCH J0608400
841 | * J0608410
0379 037A 842 | TABAD DC FRMTB ADDRESS OF FORMAT CODE TBL J0608420
037A 843 | BSS E 0 J0608430
844 | * J0608440
845 | * FORMAT CODE TABLE,ARRANGED IN ORDER OF BIT J0608450
846 | * CONFIGURATION,00,01,10,11 J0608460
847 | * J0608470
037A 40C4 E2C6 848 | FRMTB EBC . DSF. E J0608480
037C 4040 4040 849 | EBC . . O J0608490
037E 40C4 C3C9 850 | EBC . DCI. E J0608500
0380 40C4 C4C6 851 | EBC . DDF. O J0608510
852 | * J0608520
853 | * J0608530
854 | * PARAMETERS FOR INTERMEDIATE DUMP J0608540
855 | * J0608550
0382 7925 856 | PRNTP DC PRNTA UPPER LIMIT E J0608560
0383 7961 857 | DC PRNTA+60 LOWER LIMIT O J0608570
858 | * J0608580
0384 0000 859 | SV DC *-* TWO WDS.ON EVEN BOUNDARY USED E J0608590
0385 0000 860 | DC *-* FOR TEMP.STORAGE IN CNAME RTN O J0608600
0386 0140 861 | HDR DC 320 WORD-COUNT FOR LET SECTOR ADDR. J0608610
0387 0000 862 | DC *-* LET SECTOR ADDR. J0608620
0388 00C0 863 | H0C DC /00C0 USED FOR CONV.FROM NAME CDE-EBC J0608630
0389 4000 864 | H40 DC /4000 LEFT-HALF IS EBC BLANK J0608640
038A 0000 865 | TMP DC *-* TEMPORARY STORAGE J0608650
038B 00FF 866 | HFF DC /00FF HEX.CONST.TO AND RT.8 BITS J0608660
038C 0040 867 | H0040 DC /0040 RIGHT-HALF IS EBC BLANK J0608670
038D 0000 868 | DBAD DC *-* DB ADDR.ACROSS A LINE J0608680
038E 0000 869 | DBAD2 DC *-* DB ADDR.DOWN A COLUMN J0608690
038F 0000 870 | BLNSW DC *-* BLANK LINE SWITCH J0608700
0390 0000 871 | BNMSW DC *-* BLANK NAME SWITCH J0608710
0391 0000 872 | LNCNT DC *-* NO. OF LINES/SECTOR J0608720
873 | * J0608730
874 | * TABLE OF ADDRESSES OF DCOM WORDS TO BE PRINTED J0608740
875 | * J0608750
0392 0000 876 | DCTAB DC 0 J0608760
0393 7F57 877 | DC #CIDN+C CARTRIDGE ID ADDR J0608770
0394 0095 878 | DC $FPAD FILE PROTECT ADDR(COMMA) J0608780
0395 7F4D 879 | DC #FPAD+C FILE PROTECT ADDR(DCOM) J0608790
0396 7F5C 880 | DC #CIBA+C CORE IMAGE BUFFER ADDR J0608800
0397 7F70 881 | DC #ULET+C LET SECTOR ADDR J0608810
0398 7F6B 882 | DC #FLET+C FLET SECTOR ADDR. J0608820
UMPLET/FLET - SCAN SUBROUTINE
884 | *************************************************** J0608840
885 | * SCAN SUBROUTINE-- THIS SUBROUTINE FORMS A LINE * J0608850
886 | * IN THE PRINT BUFFER,EACH LET/FLET ENTRY IS * J0608860
887 | * CONVERTED,FORMATED AND STORED IN THE PRINTER * J0608870
888 | * AREA. A LINE IS COMPOSED OF SIX * J0608880
889 | * LET/FLET ENTRIES * J0608890
890 | *************************************************** J0608900
891 | * J0608910
0399 1000 892 | SCAN NOP J0608920
039A 4400 0284 893 | BSI L CLEAR CLEAR THE PRINT BUFFER J0608930
894 | * J0608940
039C 6105 895 | LDX 1 5 XR1=NO.OF ENTRIES PER LINE J0608950
039D 6700 7925 896 | LDX L3 PRNTA XR3=ADDR.OF PRINT BUFFER J0608960
039F 1810 897 | SC010 SRA 16 J0608970
03A0 D0EF 898 | STO BNMSW CLEAR BLANK NAME SWITCH J0608980
899 | * J0608990
03A1 404E 900 | BSI CNAME CNVRT.NAME TO EBC AND STOR J0609000
901 | * J0609010
03A2 C0ED 902 | LD BNMSW CHECK FOR BLANK NAME J0609020
03A3 4C18 03D1 903 | BSC L SC020,+- YES,EXIT J0609030
904 | * J0609040
03A5 E8E9 905 | OR BLNSW UPDATE BLANK LINE SWITCH J0609050
03A6 D0E8 906 | STO BLNSW J0609060
907 | * J0609070
03A7 C200 908 | LD 2 0 GET 1ST.WD.OF LET ENTRY J0609080
03A8 180E 909 | SRA 14 RIGHT-JUSTIFY FORMAT CODE J0609090
03A9 1001 910 | SLA 1 MULTIPLY BY 2 J0609100
03AA 80CE 911 | A TABAD ADD TABLE ADDRESS J0609110
03AB D001 912 | STO *+1 J0609120
03AC CC00 0000 913 | LDD L *-* LD.EBC EQUIVALENCE J0609130
03AE D304 914 | STO 3 4 STORE FORMAT J0609140
03AF 18D0 915 | RTE 16 CODE IN J0609150
03B0 D305 916 | STO 3 5 PRINT BUFFER J0609160
917 | * J0609170
03B1 C202 918 | LD 2 +2 LOAD DB COUNT J0609180
03B2 4C18 03D5 919 | BSC L SC030,+- EXIT IF SECONDARY ENTRY J0609190
920 | * J0609200
03B4 4480 7DB0 921 | BSI I BINEB CONVERT TO EBC J0609210
922 | * J0609220
923 | * FORMAT AND STORE THE DB COUNT IN THE PRINT BFR. J0609230
924 | * J0609240
03B6 C400 7FCC 925 | LD L TEMP1+C 1ST TWO EBC CHARACTERS J0609250
03B8 1808 926 | SRA 8 RT.JUSTIFY 1ST CHARACTER J0609260
03B9 E8CF 927 | OR H40 PUT A BLANK IN FRONT OF IT J0609270
03BA D306 928 | STO 3 +6 STORE IN PRINT BUFFER J0609280
929 | * J0609290
03BB CC00 7FCC 930 | LDD L TEMP1+C LD.ALL 4 EBC CHARACTERS J0609300
03BD 1088 931 | SLT 8 PUT 2ND AND 3RD IN ACCUM. J0609310
03BE D307 932 | STO 3 +7 STORE 2ND AND 3RD J0609320
933 | * J0609330
03BF 1090 934 | SLT 16 4TH CHAR TO LH SIDE OF ACC J0609340
03C0 E8CB 935 | OR H0040 PUT A BLANK BEHIND IT J0609350
03C1 D308 936 | STO 3 +8 STORE IN PRINT BUFFER J0609360
937 | * J0609370
938 | * FORMAT AND STORE THE DB ADDR IN PRINT BUFFER J0609380
939 | * J0609390
03C2 C0CA 940 | LD DBAD DB ADDR OF ENTRY J0609400
03C3 4480 7DB0 941 | BSI I BINEB CONVERT TO EBC J0609410
942 | * J0609420
03C5 CC00 7FCC 943 | LDD L TEMP1+C LD CONVERTED EBC CHARS J0609430
03C7 DB09 944 | STD 3 +9 STORE IN PRINT BUFFER J0609440
945 | * J0609450
03C8 C400 7FC4 946 | SC013 LD L NAMSW+C CHK FOR SINGLE ENTRY J0609460
03CA 4C20 03D1 947 | BSC L SC020,Z YES,EXIT J0609470
948 | * J0609480
03CC 6B20 949 | SC015 STX 3 CM020+2 NO,SAVE XR3 J0609490
950 | * J0609500
951 | * GO TO SUBROUTINE WHICH COMPUTES THE DISK BLOCK J0609510
952 | * ADDRESS OF THE NEXT ENTRY TO BE PROCESSED INTO J0609520
953 | * THE PRINT BUFFER-- ALSO THE NEXT ENTRY ADDRESS J0609530
954 | * WILL BE IN XR2 J0609540
955 | * J0609550
03CD 4012 956 | BSI CMPDB J0609560
957 | * J0609570
03CE 730C 958 | SC018 MDX 3 12 STEP POINTER IN PRINT BFR J0609580
03CF 71FF 959 | MDX 1 -1 HAVE WE DONE ONE LINE J0609590
03D0 70CE 960 | MDX SC010 NO,DO NEXT ENTRY J0609600
961 | * J0609610
03D1 6500 7FA0 962 | SC020 LDX L1 C YES,RESTORE XR1 J0609620
03D3 4C80 0399 963 | BSC I SCAN RETURN J0609630
964 | * J0609640
03D5 C8A6 965 | SC030 LDD FRMTB+2 THIS IS A SECONDARY,SO J0609650
03D6 D304 966 | STO 3 4 REMOVE FORMAT CODE J0609660
03D7 D305 967 | STO 3 5 REMOVE FORMAT CODE J0609670
03D8 70EF 968 | MDX SC013 CONTINUE J0609680
UMPLET/FLET - INDBA SUBROUTINE
970 | *************************************************** J0609700
971 | * SUBROUTINE TO INITIALIZE THE STARTING DISK BLOCK J0609710
972 | * ADDRESS OF THE LET/FLET SECTOR. DONE BY * J0609720
973 | * MULTIPLYING THE UA/FXA BY 16. THE STARTING DB * J0609730
974 | * ADDRESS IS INITIALIZED IN THE BEGINNING AND IF * J0609740
975 | * WE GO FROM LET TO FLET. * J0609750
976 | *************************************************** J0609760
977 | * J0609770
03D9 1000 978 | INDBA NOP J0609780
03DA C303 979 | LD 3 +3 LD SCTR.ADDR OF UA/FXA J0609790
03DB 1004 980 | SLA 4 MULTIPLY BY 16 TO GET J0609800
03DC D0B0 981 | STO DBAD DISK BLOCK ADDR-- LINE J0609810
03DD D0B0 982 | STO DBAD2 COLUMN J0609820
983 | * J0609830
03DE 4C80 03D9 984 | BSC I INDBA RETURN J0609840
UMPLET/FLET - CMPDB SUBROUTINE
986 | *************************************************** J0609860
987 | * SUBROUTINE TO COMPUTE THE DB ADDRESS OF THE * J0609870
988 | * NEXT LET/FLET ENTRY.THIS IS DONE BY * J0609880
989 | * SUCCESSIVE Y ADDING TO THE CONTENTS OF.DBAD. * J0609890
990 | * THE DB COUNTS OF THE NEXT 21 ENTRIES. * J0609900
991 | * AT THE CONCLUSION OF THIS * J0609910
992 | * SUBROUTINE .DBAD. REFLECTS THE DB COUNT OF THE * J0609920
993 | * NEXT LET/FLET ENTRY AND XR2 POINTS TO THE FIRST* J0609930
994 | * WORD OF THE NEXT ENTRY. * J0609940
995 | *************************************************** J0609950
03E0 1000 996 | CMPDB NOP J0609960
03E1 71FF 997 | MDX 1 -1 *BY-PASS THIS * J0609970
03E2 7001 998 | MDX *+1 *ROUTINE IF THIS * J0609980
03E3 7007 999 | MDX CM020 *IS THE LAST ENTRY * J0609990
03E4 6315 1000 | LDX 3 21 ************************* J0610000
03E5 C0A7 1001 | LD DBAD *ADD THE DB COUNTS OF * J0610010
03E6 8202 1002 | CM010 A 2 2 *THE NEXT 21 * J0610020
03E7 7203 1003 | MDX 2 3 *ENTRIES TO .DBAD. ,THIS* J0610030
03E8 73FF 1004 | MDX 3 -1 *GIVES DB ADDR.OF NEXT * J0610040
03E9 70FC 1005 | MDX CM010 *ENTRY TO BE PRINTED * J0610050
03EA D0A2 1006 | STO DBAD ************************* J0610060
1007 | * J0610070
03EB 7101 1008 | CM020 MDX 1 1 ADD BACK ONE J0610080
03EC 6700 0000 1009 | LDX L3 *-* RESTORE XR3 J0610090
03EE 4C80 03E0 1010 | BSC I CMPDB RETURN J0610100
UMPLET/FLET - CNAME SUBROUTINE
1012 | *************************************************** J0610120
1013 | * CNAME-THE SUBROUTINE WHICH CONVERTS A 5 CHAR. * J0610130
1014 | * NAME IN NAME-CODE AND CONVERTS TO 5 PACKED EBC * J0610140
1015 | * CHAR-S STORED IN 3 WDS IN THE PRINT BFR WITH A * J0610150
1016 | * BLANK PRECEDING THE FIRST CHARACTER * J0610160
1017 | *************************************************** J0610170
1018 | * J0610180
1019 | * ******A-REG***********Q-REG***** J0610190
03F0 1000 1020 | CNAME NOP J0610200
03F1 C201 1021 | LD 2 1 CCCCDDDDDDEEEEEE J0610210
03F2 18D0 1022 | RTE 16 CCCCDDDDDDEEEEEE J0610220
03F3 C200 1023 | LD 2 0 XXAAAAAABBBBBBCCCCCCDDDDDDEEEEEE J0610230
03F4 1082 1024 | SLT 2 AAAAAABBBBBBCCCCCCDDDDDDEEEEEE00 J0610240
03F5 D88E 1025 | STD SV SHIFT OUT FORMAT CODE,SAVE A & Q J0610250
03F6 D099 1026 | STO BNMSW SET BLANK NAME SWITCH J0610260
03F7 18D0 1027 | RTE 16 TO ZERO FOR BLANK NAME OR J0610270
03F8 E897 1028 | OR BNMSW NON-Z IF NAME IS NONBLNK J0610280
03F9 18D0 1029 | RTE 16 AAAAAABBBBBBCCCCCCDDDDDDEEEEEE00 J0610290
1030 | * J0610300
03FA 180A 1031 | SRA 10 0000000000AAAAAA J0610310
03FB 401C 1032 | BSI CN010 GO SET-UP 8-BIT EBC CHAR J0610320
1033 | * J0610330
03FC E88C 1034 | OR H40 0100000011AAAAAA J0610340
03FD D301 1035 | STO 3 +1 BLANK+1ST.CHAR IN PRINT BF J0610350
1036 | * J0610360
03FE C885 1037 | LDD SV AAAAAABBBBBBCCCCCCDDDDDDEEEEEE00 J0610370
03FF 1086 1038 | SLT 6 BBBBBBCCCCCCDDDDDDEEEEEE00000000 J0610380
0400 D883 1039 | STD SV J0610390
1040 | * J0610400
0401 180A 1041 | SRA 10 0000000000BBBBBB J0610410
0402 4015 1042 | BSI CN010 GO SET-UP 8-BIT EBC CHAR J0610420
1043 | * J0610430
0403 1008 1044 | SLA 8 11BBBBBB00000000 J0610440
0404 D085 1045 | STO TMP SAVE 2ND.CHAR.TEMPORARILY J0610450
1046 | * J0610460
0405 CC00 0384 1047 | LDD L SV BBBBBBCCCCCCDDDDDDEEEEEE00000000 J0610470
0407 1086 1048 | SLT 6 CCCCCCDDDDDDEEEEEE00000000000000 J0610480
0408 188A 1049 | SRT 10 ..........CCCCCCDDDDDDEEEEEE0000 J0610490
0409 400E 1050 | BSI CN010 GO SET-UP 8-BIT EBC CHAR J0610500
1051 | * J0610510
040A E400 038B 1052 | AND L HFF 0000000011CCCCCCDDDDDDEEEEEE0000 J0610520
040C 8400 038A 1053 | A L TMP 11BBBBBB11CCCCCC J0610530
040E D302 1054 | STO 3 +2 STORE 2ND,3RD.CHARS.IN PRINT BFR J0610540
1055 | * J0610550
040F 1810 1056 | SRA 16 0000000000000000DDDDDDEEEEEE0000 J0610560
0410 1086 1057 | SLT 6 0000000000DDDDDDEEEEEE0000000000 J0610570
0411 4006 1058 | BSI CN010 GO SET-UP 8-BIT EBC CHAR J0610580
1059 | * J0610590
0412 1002 1060 | SLA 2 00000011DDDDDD00EEEEEE0000000000 J0610600
0413 1086 1061 | SLT 6 11DDDDDD00EEEEEE0000000000000000 J0610610
0414 4003 1062 | BSI CN010 GO SET-UP 8-BIT EBC CHAR J0610620
1063 | * J0610630
0415 D303 1064 | STO 3 +3 4TH.,5TH.CHARS IN PR.BFR J0610640
1065 | * J0610650
0416 4C80 03F0 1066 | BSC I CNAME RETURN J0610660
1067 | * J0610670
1068 | * INSTRUCTIONS TO CREATE THE 8-BIT EBC CHARACTER J0610680
1069 | * FROM THE TRUNCATED 6-BIT CHARACTER.THIS IS DONE J0610690
1070 | * BY OR-ING /00C0 IF THE CHARACTER IS ALPHABETIC J0610700
1071 | * OR NUMERIC A-Z,0-9.IF THE CHAR. IS $,OR IN /0040. J0610710
1072 | * IF THE CHAR.IS POUND SIGN(#),CHANGE IT TO EQUAL J0610720
1073 | * SIGN(=),IF IT IS AN AT SIGN (@),CHANGE IT TO AN J0610730
1074 | * APOSTROPHE. J0610740
1075 | * J0610750
0418 0000 1076 | CN010 DC *-* J0610760
0419 D81A 1077 | STD CN900 SAVE ACCUM AND EXTENSION J0610770
041A E01B 1078 | AND H003F ISOLATE THE 6-BIT CHAR J0610780
041B 901B 1079 | S H001B IS IT $ SIGN J0610790
041C 4C18 0429 1080 | BSC L CN040,+- YES,GO PROCESS DOLLAR SIGN J0610800
041E 9019 1081 | S H0020 NO,CHECK POUND SIGN J0610810
041F 4C18 042D 1082 | BSC L CN050,+- YES,GO PROCESS POUND SIGN J0610820
0421 1801 1083 | SRA 1 NO,VERIFY AT SIGN J0610830
0422 4820 1084 | BSC Z SKIP IF AT SIGN J0610840
0423 700D 1085 | MDX CN060 CHAR.IS ALPHA OR NUMERIC J0610850
0424 C80F 1086 | LDD CN900 RESTORE ORIGINAL CONTENTS J0610860
0425 E013 1087 | AND HFF00 KEEP LEFT-HALF OF WORD J0610870
0426 E813 1088 | OR H007D CHANGE AT TO APOSTROPHE J0610880
0427 4C80 0418 1089 | CN020 BSC I CN010 EXIT J0610890
1090 | * J0610900
0429 C80A 1091 | CN040 LDD CN900 RESTORE ORIGINAL CONTENTS J0610910
042A E00E 1092 | AND HFF00 KEEP LEFT-HALF OF WORD J0610920
042B E810 1093 | OR H005B INSERT DOLLAR SIGN J0610930
042C 70FA 1094 | MDX CN020 EXIT J0610940
1095 | * J0610950
042D C806 1096 | CN050 LDD CN900 RESTORE ORIGINAL CONTENTS J0610960
042E E00A 1097 | AND HFF00 KEEP LEFT HALF J0610970
042F E80B 1098 | OR H007E CHANGE POIND TO EQUAL SIGN J0610980
0430 70F6 1099 | MDX CN020 EXIT J0610990
1100 | * J0611000
0431 C802 1101 | CN060 LDD CN900 RESTORE ORIGINAL CONTENTS J0611010
0432 E80A 1102 | OR H00C0 CREATE 8-BIT EBC CHAR J0611020
0433 70F3 1103 | MDX CN020 EXIT J0611030
1104 | * J0611040
0434 0000 0000 1105 | CN900 DEC 0 WDS.TO SAVE ACCUM & EXT. J0611050
0436 003F 1106 | H003F DC /003F CONST.TO SAVE RIGHT 6 BITS J0611060
0437 001B 1107 | H001B DC /001B CONST.TO TEST FOR $ SIGN J0611070
0438 0020 1108 | H0020 DC /0020 CONST.TO TEST POUND SIGN J0611080
0439 FF00 1109 | HFF00 DC /FF00 CONST.TO SAVE LEFT 8 BITS J0611090
043A 007D 1110 | H007D DC /007D EBC APOSTROPHE SIGN J0611100
043B 007E 1111 | H007E DC /007E EBC EQUAL SIGN J0611110
043C 005B 1112 | H005B DC /005B EBC DOLLAR SIGN J0611120
043D 00C0 1113 | H00C0 DC /00C0 CONST.TO CREATE EBC CHARS J0611130
1114 | * J0611140
1115 | *************************************************** J0611150
1116 | * SUBROUTINE TO FORMAT A DCOM TITLE LINE IN * J0611160
1117 | * THE PRINT BUFFER,PRINT IT, CLEAR THE BUFFER AND* J0611170
1118 | * FORMAT DCOM HEADER INFORMATION IN THE BUFFER AND J0611180
1119 | * PRINT THE LINE.THE BUFFER IS CLEARED BEFORE EXIT J0611190
1120 | *************************************************** J0611200
043E 0000 1121 | PDCHR DC *-* J0611210
043F 4400 0284 1122 | BSI L CLEAR GO CLEAR PRINTER AREA J0611220
1123 | * J0611230
0441 6600 0343 1124 | LDX L2 DCOMH-1 XR2=HEADER MESSAGE ADDRESS J0611240
0443 6317 1125 | LDX 3 23 XR3=NO.OF WORDS TO MOVE J0611250
0444 4400 029F 1126 | BSI L MOVE MOVE HDR.MSG,PRINT A LINE J0611260
1127 | * J0611270
0446 4480 7DBB 1128 | BSI I PRINT TO DUPCO TO PRINT A LINE J0611280
0448 7925 1129 | DC PRNTA PRINT BUFFER ADDRESS J0611290
1130 | * J0611300
0449 4400 0284 1131 | BSI L CLEAR CLEAR THE PRINT BUFFER J0611310
1132 | * J0611320
1133 | * CODING TO MOVE THE DCOM DATA INTO THE PRINT AREA J0611330
1134 | * J0611340
044B 6700 0000 1135 | PD020 LDX L3 *-* RESTORE XR3 TO LOG.DR NO. J0611350
044D 6600 7925 1136 | LDX L2 PRNTA XR2=PRNT BFR POINTER J0611360
044F 6106 1137 | LDX 1 6 XR1=NO.DCOM WDS TO PICK UP J0611370
0450 C500 0392 1138 | PD030 LD L1 DCTAB PICK UP DCOM WORD ADDR J0611380
0452 D001 1139 | STO *+1 J0611390
0453 C700 0000 1140 | LD L3 *-* LD.DCOM WORD. J0611400
0455 4480 7DB0 1141 | BSI I BINEB CONVERT TO EBC J0611410
1142 | * J0611420
0457 CC00 7FCC 1143 | LDD L TEMP1+C LD.4 CONVERTED EBC CHARS. J0611430
0459 DA15 1144 | STD 2 +21 STORE IN PRINT BUFFER J0611440
1145 | * J0611450
045A 72FC 1146 | MDX 2 -4 NXT.ADDR.TO STORE IN BFR J0611460
045B 71FF 1147 | MDX 1 -1 NXT.DCOM WD IN TABLE J0611470
045C 70F3 1148 | MDX PD030 LOOP IF NOT FINISHED J0611480
1149 | * J0611490
045D 6500 7FA0 1150 | LDX L1 C RESTORE XR1 J0611500
1151 | * J0611510
1152 | * J0611520
1153 | * CONVERTED AND FORMATED DCOM INFORMATION IS J0611530
1154 | * SITTING IN THE PRINT BUFFER,NOW PRINT A LINE J0611540
1155 | * J0611550
045F 4480 7DBB 1156 | BSI I PRINT PRINT DCOM INFORMATION J0611560
0461 7925 1157 | DC PRNTA J0611570
1158 | * J0611580
0462 4480 7DB5 1159 | BSI I LINE ONE SPACE OR CARRIER RETRN J0611590
1160 | * J0611600
0464 4400 0284 1161 | BSI L CLEAR CLEAR PRINT BUFFER J0611610
1162 | * J0611620
0466 4C80 043E 1163 | BSC I PDCHR RETURN J0611630
1164 | * J0611640
1165 | * PATCH AREA J0611650
1166 | * J0611660
0468 1167 | BSS $ZEND+/3BF-* PATCH ROOM J0611670
059F FFFF 1168 | DC /FFFF END OF DUMPLET PATCH AREA J0611680
1169 | *************************************************** J0611690
05A0 1170 | END DLET J0611700
There were no errors in this assembly
Program transfer address = 01E0
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
#ACIN FF9C 98
#ANDU FFA3 104
#BNDU FFA8 105
#CBSW FF8A 77
#CIAD FF9B 97
#CIBA FFBC 109 880
#CIDN FFB7 108 877
#CSHN FFDA 115
#DBCT FF86 73
#DCOM 0001 116
#DCSW FF98 94
#ECNT FFA1 103
#ENTY FF90 83
#FCNT FF87 74
#FHOL FF94 90
#FLET FFCB 112 687 691 700 882
#FMAT FFC6 111
#FPAD FFAD 106 879
#FRDR FF93 88 458 461 715
#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
#NCNT FF8F 82
#PCID FFB2 107
#PIOD FF99 95
#PPTR FF9A 96
#RP67 FF91 84
#SCRA FFC1 110
#SYSC FF88 75
#TODR FF92 87
#UHOL FF96 92
#ULET FFD0 113 478 709 881
#USZE FF97 93
#WSCT FFD5 114
#X3SW FFA0 102
$1132 007F 33
$1403 0080 34
$ACDE 009F 42
$BYSW 01CB 52
$CH12 0006 4
$CIBA 0005 3
$COMN 0007 5
$CORE 000E 6
$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 878
$HASH 0014 12
$I200 00B3 44
$I205 00B8 45 46
$I400 00C4 47
$I405 00D3 48 49
$I410 00D5 50
$IBSY 0013 11
$IBT2 00B9 46
$IBT4 00D4 49
$IOCT 0032 16
$IREQ 002C 14
$KCSW 007C 30
$LAST 0033 17
$LINK 0039 23
$NDUP 0034 18
$NXEQ 0035 19
$PBSY 0036 20
$PGCT 0037 21
$PHSE 0078 26
$PRET 0028 13
$PST1 0081 35
$PST2 0085 36
$PST3 0089 37
$PST4 008D 38
$STOP 0091 39
$UFDR 007D 31
$UFIO 0079 27
$ULET 002D 15
$WRD1 007B 29
$WSDR 007A 28
$ZEND 01E0 54 265 1167
'SBFR 0FB0 118
ADDR2 003D 227
ASMSW 000E 152
B 01DE 265 266 267 268 269 270 271 272
BINEB 7DB0 279 525 531 539 545 921 941 1141
BITSW 000F 153
BLKSW 0010 154
BLNSW 038F 870 590 599 795 905 906
BNMSW 0390 871 802 898 902 1026 1028
BUF1 79B5 304 305
BUF2 7963 305 306
BUF3 7925 306 307 819
BUF4 78D3 307
BUF5 7782 308 309
BUF6 7D91 297 298 299 488 492 753
BUF7 0640 309
C 7FA0 56 446 461 478 523 578 631 677 687 691 700 709 771
877 879 880 881 882 925 930 943 946 962 1143 1150
CATCO 7F1E 274
CHNGE 0378 840 508 704 723
CIERR 0011 155
CIHDR 0008 138
CISW 0012 156
CL010 0287 626 629
CL1 000E 151
CL2 0037 203
CL901 028F 634 625
CLBSW 0013 157
CLEAR 0284 623 520 557 632 735 893 1122 1131 1161
CM010 03E6 1002 1005
CM020 03EB 1008 949 999
CMPDB 03E0 996 956 1010
CN010 0418 1076 1032 1042 1050 1058 1062 1089
CN020 0427 1089 1094 1099 1103
CN040 0429 1091 1080
CN050 042D 1096 1082
CN060 0431 1101 1085
CN900 0434 1105 1077 1086 1091 1096 1101
CNAME 03F0 1020 900 1066
CNTNO 0014 158
CRBUF 0057 254
D2HDR 000C 140
DATSW 0015 165
DBAD 038D 868 572 615 707 708 798 940 981 1001 1006
DBAD2 038E 869 573 607 608 982
DBADR 0016 166 790 792 797
DCADR 0058 255
DCHDR FFF0 126
DCOMH 0344 826 1124
DCTAB 0392 876 1138
DCTL 11E0 269
DCTLC 11DE 270
DELSW 0017 167 771
DFHDR FFFC 132
DFLSW 0036 201
DFNSW 0018 168
DISKZ 00F2 264
DKSAD 0019 169
DL020 01F1 463 459 724
DL022 01F8 475
DL025 01FF 480 692 713
DL026 020C 491 486
DL027 0210 494 489
DL060 0262 582 616
DL062 026E 599
DL065 0275 605 582
DL068 02B1 684
DL070 02B3 687 476
DL080 02BD 695 580 600 613 703 712
DL085 02BF 696 464
DL100 02CB 706
DL120 02D9 715 690 697
DL140 02E7 731 479 716 721 803 810
DL145 02F6 748 764
DL147 02FD 754
DL150 02FF 756 738
DL300 0307 768 470
DL310 030F 773 777
DL340 0315 788 774
DL345 031B 794 789
DL350 0321 800 812
DLET 01E0 443 1170
DLHDR FFF8 130
DMHDR FFF6 129
DMPLC 01DE 266 439
DTHDR FFFA 131
DUMPC 41DE 272
DUMPP 001A 170 596
DUPCO 7DB0 273 278 297
DUPCR 003C 221
DXHDR FFFE 133
DZ000 00F2 53 264
EBCSW 0033 198
ENTER 7DB2 281
EXITC 01DE 267
FLHDR FFF4 128
FORM1 0364 832 559
FORM2 036E 834 562
FORSW 001C 171
FRMTB 037A 848 842 965
FRWS 001D 172
FXSW 001E 173
GET 7DB3 282 682
GETBI 7A0B 301
GETHO 7A0A 300
H001B 0437 1107 1079
H0020 0438 1108 1081
H003F 0436 1106 1078
H0040 038C 867 935
H005B 043C 1112 1093
H007D 043A 1110 1088
H007E 043B 1111 1098
H00C0 043D 1113 1102
H0C 0388 863
H40 0389 864 927 1034
HDBUF 0059 256
HDNSW 0034 199
HDR 0386 861 480 678
HFF 038B 866 1052
HFF00 0439 1109 1087 1092 1097
HOLSW 001F 174
IBT 0049 245
INDBA 03D9 978 509 984
INOUT 003F 234
IOADR 7A06 299 300 301 302 303 304 308
IOBLK 005A 257
IOREQ 0038 211
IOSW 0020 175
KBREQ 003E 228
LEAVE 7DB4 283
LET 0342 825 487
LETAR 005C 259 446 523 578 677
LETH 035B 829 513
LETSW 0021 180 475 737
LINE 7DB5 284 495 496 497 498 499 553 554 555 565 731 733 1159
LNCNT 0391 872 571 611
LSTLF 0022 181
LTMSG 0330 821 741 744 746 757 760 762
MASK 7DB6 285
MDUMP 7DB7 286 597
MODSW 0023 182
MOVE 029F 661 515 646 667 670 748 1126
MUHDR 000A 139
MUPC 01DE 268
MV010 02A3 664 647 652
NAMSW 0024 183 469 946
NEGSW 0025 184
NEXT 005F 262
P1442 0052 251
PACKB 7A0C 302
PAGE 7DB8 287 494
PCHBI 7A0D 303
PD020 044B 1135 463
PD030 0450 1138 1148
PDCHR 043E 1121 511 769 1163
PEBUF 005D 260
PGMHL 0026 185
PH2 0039 212
PH3 003A 213
PH4 003B 214
PHDUP 0056 253
PHID 7DB9 288 443
PHIDM 7DBA 289
PIHDR 0002 135
PRINT 7DBB 290 517 550 602 653 750 805 1128 1156
PRNTA 7925 819 451 518 522 551 603 626 654 664 751 770 806 856
857 896 1129 1136 1157
PRNTP 0382 856 595
PRPAR 0054 252
PRPNT 7C50 298
PRSW 0027 186
PTHDR 0006 137
PTPON 0040 236
PTSW 0028 187
PUT 7DBC 291
RDSCT 02A9 676 482 684
REST 7DBD 292 754
RPGSW 0035 200
RTURN 7DBE 293
SC010 039F 897 960
SC013 03C8 946 968
SC015 03CC 949
SC018 03CE 958
SC020 03D1 962 903 947
SC030 03D5 965 919
SCAN 0399 892 592 800 963
SDBUF 005B 258
SECSW 032F 818 768 775 788
SIHDR 0004 136
SKWDS 0029 188
STCSW 002A 189
STHDR FFF2 127
STSW 002B 190
SUFFT 033E 824 491 752 756 759
SUFLT 033A 823 740 743
SV 0384 859 1025 1037 1039 1047
T3MSW 002F 194
TABAD 0379 842 911
TEMP1 002C 191 527 533 541 547 925 930 943 1143
TEMP2 002D 192
TEMPO 0336 822 719 720
THIS 005E 261
TMP 038A 865 1045 1053
TOWS 002E 193
TR010 0292 645 649
TR020 029C 654 651
TRLNE 0290 643 560 563 656
UASW 0030 195
UCHDR 0000 134
WRTDC 7DB1 280
WSDC 21DE 271
WSSW 0031 196
XEQSW 0032 197