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