ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 2020
Source File: \jgdelete.asm
DELETE- RESIDENT COMMA 2 AUG 67
2 | ABS J0700020
0005 3 | $CIBA EQU /5 ADDR OF CIB ON MASTER CARTRIDGE J0700030
0006 4 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 J0700040
0007 5 | $COMN EQU /7 WORD COUNT OF COMMON J0700050
000E 6 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC) J0700060
000F 7 | $CTSW EQU /F MCR SW,NON-ZERO=// RECD TRAPPED J0700070
0010 8 | $DADR EQU /10 SCTR ADDR OF PROG TO BE FETCHED J0700080
0011 9 | $DABL EQU /11 IOCC FOR SCA RESET (ODD ADDR) J0700090
0012 10 | $DREQ EQU /12 INDR FOR REQUESTED V. DISK I/O J0700100
0013 11 | $IBSY EQU /13 PRINC I/O BUSY INDR,NON-ZERO=BSY J0700110
0014 12 | $HASH EQU /14 WORK AREA FOR MONITOR PROGRAMS J0700120
0028 13 | $PRET EQU /28 ADDR PREOPERATIVE ERROR TRAP J0700130
002C 14 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE J0700140
002D 15 | $ULET EQU /2D ADDR OF LET, LOGICAL DRIVE 0 J0700150
0032 16 | $IOCT EQU /32 IOCS CTR,0=NO I/O IN PROGRESS J0700160
0033 17 | $LAST EQU /33 LAST CD INDR,NON-ZERO=LAST CARD J0700170
0034 18 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP J0700180
0035 19 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEQ J0700190
0036 20 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY J0700200
0037 21 | $PGCT EQU /37 PAGE NO. FOR PAGE HEADINGS J0700210
0038 22 | $EXIT EQU /38 ADDR CALL EXIT ENTRY POINT J0700220
0039 23 | $LINK EQU /39 ADDR CALL LINK ENTRY POINT J0700230
003F 24 | $DUMP EQU /3F ADDR OF CALL DUMP, ENTRY POINT J0700240
0077 25 | $DCDE EQU /77 DRIVE CODE FOR CORE LOAD BLDR J0700250
0078 26 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE J0700260
0079 27 | $UFIO EQU /79 ARM POSITION IN UNFORMATTED AREA J0700270
007A 28 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE J0700280
007B 29 | $WRD1 EQU /7B LOAD ADDR FOR CURR USER CORE LD J0700290
007C 30 | $KCSW EQU /7C INHIBIT INPUT/PRINT OVERLAP SW J0700300
007D 31 | $UFDR EQU /7D UNFORMATTED I/O DRIVE CODE J0700310
007E 32 | $CPTR EQU /7E CHANNEL 12 INDICATOR FOR CP J0700320
007F 33 | $1132 EQU /7F CHANNEL 12 INDICATOR FOR 1132 J0700330
0080 34 | $1403 EQU /80 CHANNEL 12 INDICATOR FOR 1403 J0700340
0081 35 | $PST1 EQU /81 ADDR POSTOP ERROR TRAP,LEVEL 1 J0700350
0085 36 | $PST2 EQU /85 ADDR POSTOP ERROR TRAP,LEVEL 2 J0700360
0089 37 | $PST3 EQU /89 ADDR POSTOP ERROR TRAP,LEVEL 3 J0700370
008D 38 | $PST4 EQU /8D ADDR POSTOP ERROR TRAP,LEVEL 4 J0700380
0091 39 | $STOP EQU /91 ADDR PROGRAM STOP KEY TRAP J0700390
0095 40 | $FPAD EQU /95 FILE PROTECT ADDR (ADJ),LOG DR 0 J0700400
009A 41 | $CYLN EQU /9A ARM POSITION FOR LOGICAL DRIVE 0 J0700410
009F 42 | $ACDE EQU /9F AREA CODE FOR LOGICAL DRIVE 0 J0700420
00A4 43 | $DCYL EQU /A4 1ST DEF CYL ADDR, LOGICAL DR 0 J0700430
00B3 44 | $I200 EQU /B3 ENTRY POINT TO ILS FOR LEVEL 2 J0700440
00B8 45 | $I205 EQU /B8 J0700450
00B9 46 | $IBT2 EQU $I205+1 ADDR OF IBT FOR LEVEL 2 J0700460
00C4 47 | $I400 EQU /C4 ENTRY POINT TO ILS FOR LEVEL 4 J0700470
00D3 48 | $I405 EQU /D3 J0700480
00D4 49 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 J0700490
00D5 50 | $I410 EQU /D5 J0700500
00EE 51 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY J0700510
01CB 52 | $BYSW EQU /1CB BYPASS SW,NOP IF FETCHING SOCAL J0700520
00F2 53 | DZ000 EQU /0F2 DISKZ ENTRY POINT J0700530
01E0 54 | $ZEND EQU /1E0 ADDR 1+LAST WORD OF DISKZ J0700540
7FA0 56 | C EQU /7FA0 CATCO POINTER SET TO MIDDLE J0700560
57 | *************************************************** J0700570
58 | * * J0700580
59 | * INDEX REG 1 IS SET TO .C. WHEN CATCO IS FORMED * J0700590
60 | * FOR USE BY ALL OF DUP FUNCTIONS. ANY DUP ROUT * J0700600
61 | * USING XR 1 FOR OTHER REASONS MUST RESTORE. * J0700610
62 | * ALL VALUES IN CATCO HAVE LABELS EQUATED TO THE * J0700620
63 | * VALUE THAT INDICATES THEIR RELATIVE LOCATION * J0700630
64 | * FROM .C. * J0700640
65 | * * J0700650
66 | *************************************************** J0700660
67 | * * J0700670
68 | * CATCO DCOM IMAGE * J0700680
69 | * EQUIVALENCES USED TO REFERENCE CATCO WITH XR1 * J0700690
70 | * * J0700700
71 | *************************************************** J0700710
FF84 72 | #NAME EQU 4-/80 NAME OF PROGRAM J0700720
FF86 73 | #DBCT EQU 6-/80 DISK BLOCK COUNT OF PROGRAM J0700730
FF87 74 | #FCNT EQU 7-/80 FILES SW,ZERO = NO FILES J0700740
FF88 75 | #SYSC EQU 8-/80 NON-ZERO,SYSTEM CARTRIDGE J0700750
FF89 76 | #JBSW EQU 9-/80 JOB SW,NON-ZERO='T' MODE J0700760
FF8A 77 | #CBSW EQU 10-/80 CLB SW,NON-ZERO=STORECI J0700770
FF8B 78 | #LCNT EQU 11-/80 NO. OF LOCALS J0700780
FF8C 79 | #MPSW EQU 12-/80 NON-ZERO, CORE MAP DESIRED J0700790
FF8D 80 | #MDF1 EQU 13-/80 NO. OF DUP CTRL RCDS J0700800
FF8E 81 | #MDF2 EQU 14-/80 ADDR OF MODIF BUFFER J0700810
FF8F 82 | #NCNT EQU 15-/80 NO. OF NOCALS J0700820
FF90 83 | #ENTY EQU 16-/80 RELATIVE ENTRY ADDR OF PROG J0700830
FF91 84 | #RP67 EQU 17-/80 IF NON-ZERO,1442 MOD 6,7 J0700840
85 | * J0700850
86 | * NEGATIVE VALUE REPRESENTS DEFAULT CONDITION * J0700860
FF92 87 | #TODR EQU 18-/80 DR CODE OF 'TO' DRIVE J0700870
FF93 88 | #FRDR EQU 19-/80 DR CODE OF 'FROM' DRIVE J0700880
89 | * * J0700890
FF94 90 | #FHOL EQU 20-/80 ADDR OF LARGEST FXA HOLE J0700900
FF95 91 | #FSZE EQU 21-/80 BLK CNT LARGEST HOLE IN FXA J0700910
FF96 92 | #UHOL EQU 22-/80 ADDR OF LARGEST UA HOLE J0700920
FF97 93 | #USZE EQU 23-/80 BLK CNT LARGEST HOLE IN UA J0700930
FF98 94 | #DCSW EQU 24-/80 NON-ZERO=DUP CALL J0700940
FF99 95 | #PIOD EQU 25-/80 PRINC. I/O INDICATOR J0700950
FF9A 96 | #PPTR EQU 26-/80 PRINC. PRINTER INDICATOR J0700960
FF9B 97 | #CIAD EQU 27-/80 WD NO. SCTR 0,CIL ADDR J0700970
FF9C 98 | #ACIN EQU 28-/80 AVAILABLE CARTRIDGE INDR2-8 J0700980
FF9D 99 | #GRPH EQU 29-/80 2250 INDICATOR 2-8 J0700990
FF9E 100 | #GCNT EQU 30-/80 NO. G2250 RECORDS 2-8 J0701000
FF9F 101 | #LOSW EQU 31-/80 LOCAL-CALLS-LOCAL INDR 2-8 J0701010
FFA0 102 | #X3SW EQU 32-/80 SPECIAL ILS SWITCH 2-8 J0701020
FFA1 103 | #ECNT EQU 33-/80 NO. OF EQUAT RCDS 2-8 J0701030
FFA3 104 | #ANDU EQU 35-/80 END OF UA (ADJ) LOG DR 0-4 J0701040
FFA8 105 | #BNDU EQU 40-/80 END OF UA (BASE) LOG DR 0-4 J0701050
FFAD 106 | #FPAD EQU 45-/80 FILE PROTECT ADDR (BASE) J0701060
FFB2 107 | #PCID EQU 50-/80 CART ID, PHYS DR 0-4 J0701070
FFB7 108 | #CIDN EQU 55-/80 CART ID, LOG DR 0-4 J0701080
FFBC 109 | #CIBA EQU 60-/80 CIB ADDR, LOG DR 0-4 J0701090
FFC1 110 | #SCRA EQU 65-/80 SCRA, LOG DR 0-4 J0701100
FFC6 111 | #FMAT EQU 70-/80 WS FORMAT, LOG DR 0-4 J0701110
FFCB 112 | #FLET EQU 75-/80 FLET ADDR, LOG DR 0-4 J0701120
FFD0 113 | #ULET EQU 80-/80 LET ADDR, LOG DR 0-4 J0701130
FFD5 114 | #WSCT EQU 85-/80 WS BLK CNT, LOG DR 0-4 J0701140
FFDA 115 | #CSHN EQU 90-/80 CUSHION END SCTR ADDR, 0-4 J0701150
0001 116 | #DCOM EQU 1 SCTR ADDR OF DCOM J0701160
0007 117 | #HDNG EQU 7 SCTR WITH PAGE HEADING J0701170
0FB0 118 | @SBFR EQU /FB0 2-8 J0701180
CONCATENATED COMMON AREA (CATCO)
120 | *************************************************** J0701200
121 | * * J0701210
122 | * CATCO IOAR HDRS FOR DUP PHASES J0701220
123 | * * J0701230
124 | *************************************************** J0701240
FFF0 125 | ORG -/10 J0701250
FFF0 126 | DCHDR BSS 2 DUP CONTROL PH02 J0701260
FFF2 127 | STHDR BSS 2 STORE PH03 J0701270
FFF4 128 | FLHDR BSS 2 FILEQ PH04 J0701280
FFF6 129 | DMHDR BSS 2 DUMP PH05 J0701290
FFF8 130 | DLHDR BSS 2 DUMPLET PH06 J0701300
FFFA 131 | DTHDR BSS 2 DELETE PH07 J0701310
FFFC 132 | DFHDR BSS 2 DEFINE PH08 J0701320
FFFE 133 | DXHDR BSS 2 DUP EXIT PH09 J0701330
0000 134 | UCHDR BSS 2 DUP UPCOR PH13 J0701340
0002 135 | PIHDR BSS 2 PRINCIPAL I/O BLOCK PH14 J0701350
0004 136 | SIHDR BSS 2 PRINC I/O (W/O KB) BLK PH15 J0701360
0006 137 | PTHDR BSS 2 PAPER TAPE I/O BLOCK PH16 J0701370
0008 138 | CIHDR BSS 2 CI PHASE READ BY CL BUILDER J0701380
000A 139 | MUHDR BSS 2 MACRO UPDATE PH206 2-8 J0701390
000C 140 | D2HDR BSS 2 DUP CONTROL 2 PH205 2-8 J0701400
DLETE- CATCO DUP SWITCHES
142 | *************************************************** J0701420
143 | * J0701430
144 | * CATCO DUP SWITCHES * J0701440
145 | * WORDS USED FOR COMMUNICATION OF DATA J0701450
146 | * BETWEEN DUP ROUTINES. J0701460
147 | * * J0701470
148 | * INITIALIZED TO ZERO BY .REST. OF DUPCO * J0701480
149 | * J0701490
150 | *************************************************** J0701500
000E 151 | CL1 EQU * J0701510
000E 152 | ASMSW BSS 1 NON ZERO IF DEFINE VOID ASM J0701520
000F 153 | BITSW BSS 1 NON ZERO TO ALLOW MDUMP-S J0701530
0010 154 | BLKSW BSS 1 NON ZERO IF BYPASSING REC J0701540
0011 155 | CIERR BSS 1 ERROR NO DETECTED BY PH 17 J0701550
0012 156 | CISW BSS 1 NON ZERO IF STORE CI J0701560
0013 157 | CLBSW BSS 1 NON ZERO IF PRECI EXECUTED J0701570
0014 158 | CNTNO BSS 1 RECORD NO BEING PCHD OR RD J0701580
159 | * * J0701590
160 | * .DATSW. IS FILLED WITH THE CNT FIELD OF THE * J0701600
161 | * DUP CONTROL RECORD. * J0701610
162 | * USED PRIMARILY FOR DATA MOVEMENT, BUT ALSO IS * J0701620
163 | * USED FOR COUNT OF RECORDS TO READ AFTER A * J0701630
164 | * STORE CI DUP CONTROL RECORD. * J0701640
0015 165 | DATSW BSS 1 RECORDS VALUE IN CNT FIELD J0701650
0016 166 | DBADR BSS 1 DB ADDR OF REFERENCED PROG J0701660
0017 167 | DELSW BSS 1 ADDR OF REQ LET ENTRY - 1 J0701670
0018 168 | DFNSW BSS 1 NON ZERO IF DEFINE FXA J0701680
0019 169 | DKSAD BSS 1 DK SCTR ADDR W/O DR CODE J0701690
001A 170 | DUMPP BSS E 2 LAST LIMITS FOR PRNTR DUMP J0701700
001C 171 | FORSW BSS 1 NON ZERO IF DEFINE VOID FOR J0701710
001D 172 | FRWS BSS 1 NON ZERO IF FROM FLD IS WS J0701720
001E 173 | FXSW BSS 1 NON ZERO IF FIXED AREA REQD J0701730
001F 174 | HOLSW BSS 1 NON ZERO IF NO CONV REQD J0701740
0020 175 | IOSW BSS 1 NON ZERO IF IN/OUT REQD J0701750
176 | * * J0701760
177 | * DUMPLET SWITCH - ZERO IF NOT DUMPLET/DUMPFLET * J0701770
178 | * PLUS VALUE REQUIRES PRINT OF BOTH LET/FLET* J0701780
179 | * NEG. VALUE REQUIRES PRINT OF FLET ONLY * J0701790
0021 180 | LETSW BSS 1 NON ZERO,PRINT LET OR FLET* J0701800
0022 181 | LSTLF BSS 1 LAST LET/FLET SECT PROCESSD J0701810
0023 182 | MODSW BSS 1 NON ZERO IF STORE MOD FUNC J0701820
0024 183 | NAMSW BSS 1 NON ZERO IF NAME IN LET/F J0701830
0025 184 | NEGSW BSS 1 NON ZERO IF SHRINKING FXA J0701840
0026 185 | PGMHL BSS 1 WORD COUNT OF THE PROG HDR J0701850
0027 186 | PRSW BSS 1 NON ZERO IF PRINTING OUTPUT J0701860
0028 187 | PTSW BSS 1 NON ZERO IF PAPER TAPE REQD J0701870
0029 188 | SKWDS BSS 1 WDS TO SEARCH IN L/F SECT J0701880
002A 189 | STCSW BSS 1 NON ZERO IF STORE DATA CI J0701890
002B 190 | STSW BSS 1 NON ZERO IF STORE TYPE J0701900
002C 191 | TEMP1 BSS E 1 1ST WD OF BINEB OUTPUT J0701910
002D 192 | TEMP2 BSS 1 2ND WD OF BINEB OUTPUT J0701920
002E 193 | TOWS BSS 1 NON ZERO IF TO FIELD IS WS J0701930
002F 194 | T3MSW BSS 1 TYPE 3,4 SOCAL LEVEL CELL J0701940
0030 195 | UASW BSS 1 NON ZERO IF USER AREA REQD J0701950
0031 196 | WSSW BSS 1 NON ZERO IF WORK STG REQD J0701960
0032 197 | XEQSW BSS 1 NON ZERO IF NOT RET FR GET J0701970
0033 198 | EBCSW BSS 1 NON ZERO IF EBC DATA OP 2E2 J0701980
0034 199 | HDNSW BSS 1 NON ZERO IF NAME IN HDR 2-8 J0701990
0035 200 | RPGSW BSS 1 NON Z IF DEFINE VOID RPG2-8 J0702000
0036 201 | DFLSW BSS 1 NON ZERO IF *DFILE 2-8 J0702010
0037 202 | BSS 1 RESERVED FOR ADDITION 2-8 J0702020
0037 203 | CL2 EQU *-1 J0702030
DLETE- CATCO DUP SWITCHES
205 | *************************************************** J0702050
206 | * * J0702060
207 | * CATCO DUP SWITCHES * J0702070
208 | * INITIALIZED BY DCTL AND NOT RESET BY .REST. * J0702080
209 | * * J0702090
210 | *************************************************** J0702100
0038 211 | IOREQ BSS 1 MON-ZERO,AUX I/O SET REQ J0702110
0039 212 | PH2 BSS 1 NON-ZERO IF DCTL IN CORE J0702120
003A 213 | PH3 BSS 1 NON-ZERO IF STORE IN CORE J0702130
003B 214 | PH4 BSS 1 NON-ZERO IF DUMP IN CORE J0702140
215 | ************************************************2-8 J0702150
216 | * 2-8 J0702160
217 | * CATCO SWITCH INITIALIZED TO ZERO 2-8 J0702170
218 | * BY CCAT SUBR AND SET BY MACRO UPDATE PROGRAM2-8 J0702180
219 | * 2-8 J0702190
220 | ************************************************2-8 J0702200
003C 221 | DUPCR BSS 1 NON ZERO IF DUP CTRL RCD2-8 J0702210
222 | *************************************************** J0702220
223 | * * J0702230
224 | * CATCO DUP SWITCHES SET BY CCAT SUBR * J0702240
225 | * * J0702250
226 | *************************************************** J0702260
003D 227 | ADDR2 BSS 1 KB INTERRUPT ADDRESS J0702270
003E 228 | KBREQ BSS 1 CONTENTS OF LOC 13 J0702280
229 | * THE FOLLOWING SWITCH IS SET TO INDICATE THE J0702290
230 | * PRINCIPAL INPUT DEVICE J0702300
231 | * - IS PAPER TAPE J0702310
232 | * 0 IS CARD J0702320
233 | * + IS KEYBOARD J0702330
003F 234 | INOUT BSS 1 PRINCIPAL INPUT SWITCH J0702340
235 | * J0702350
0040 236 | PTPON BSS 1 NON-ZERO IF PAPER TP ON SYS J0702360
237 | *************************************************** J0702370
238 | * * J0702380
239 | * LEVEL 4 INTERRUPT BRANCH TABLE * J0702390
240 | * ADDRESSES. INITIALIZED BY CCAT, * J0702400
241 | * AND CARD/PAPER TAPE INTERFACES. * J0702410
242 | * * J0702420
243 | *************************************************** J0702430
0049 244 | ORG /0049 J0702440
0049 245 | IBT BSS 9 9 WD INTRPT BRANCH TABLE J0702450
246 | *************************************************** J0702460
247 | * * J0702470
248 | * CATCO I/O ADDRESSES REQUIRED BY DUP * J0702480
249 | * * J0702490
250 | *************************************************** J0702500
0052 251 | P1442 BSS E 2 SYS 1442 IOAR HEADER J0702510
0054 252 | PRPAR BSS 2 DEFAULT LIMITS TO PRINT J0702520
0056 253 | PHDUP BSS 1 LAST DUP PHASE IN CORE J0702530
0057 254 | CRBUF BSS 1 81 WD BFR FOR DUP CTRL RCDS J0702540
0058 255 | DCADR BSS 1 ADDR FOR DUP CTRL IOAR HDR J0702550
0059 256 | HDBUF BSS 1 ADDR OF PAGE HEADING BFR J0702560
005A 257 | IOBLK BSS 1 ADDR OF DUP I/O PHASE J0702570
005B 258 | SDBUF BSS 1 STORE/DUMP BUFFER J0702580
005C 259 | LETAR BSS 1 ADDR OF LET SEARCH BUFFER J0702590
005D 260 | PEBUF BSS 1 41 WD BFR FOR PACKED EBCDIC J0702600
005E 261 | THIS BSS 1 ADDR OF DOUBLE BFR, BFR 1 J0702610
005F 262 | NEXT BSS 1 ADDR OF DOUBLE BFR, BFR 2 J0702620
00F2 264 | DISKZ EQU DZ000 DISKZ ENTRY POINT J0702640
01DE 265 | B EQU $ZEND-2 J0702650
01DE 266 | DMPLC EQU B IOAR CORE ADDR FOR DMPLT J0702660
01DE 267 | EXITC EQU B IOAR CORE ADDR FOR DEXIT J0702670
01DE 268 | MUPC EQU B IOAR CORE ADDR FOR MUP 2-8 J0702680
11E0 269 | DCTL EQU B+/1002 ENTRY ADDRESS OF DCTL J0702690
11DE 270 | DCTLC EQU B+/1000 IOAR CORE ADDR FOR DCTL J0702700
21DE 271 | WSDC EQU B+/2000 IOAR CORE ADDR FOR STORE J0702710
41DE 272 | DUMPC EQU B+/4000 IOAR CORE ADDR FOR DDUMP J0702720
7DB0 273 | DUPCO EQU /7DB0 ADDR OF RESIDENT DUPCO J0702730
7F1E 274 | CATCO EQU /7F20-2 ADDR OF DCOM IOAR HEADER J0702740
275 | * * J0702750
276 | * DUPCO ENTRY POINTS...USED WITH INDIRECT BSI * J0702760
277 | * * J0702770
7DB0 278 | ORG DUPCO J0702780
7DB0 279 | BINEB BSS 1 CONVERSION BINARY TO EBCDIC J0702790
7DB1 280 | WRTDC BSS 1 WRITE DCOM(S) SUBROUTINE J0702800
7DB2 281 | ENTER BSS 1 SAVE XR-S AND CONDITIONS J0702810
7DB3 282 | GET BSS 1 READ FROM DISK USING DISKZ J0702820
7DB4 283 | LEAVE BSS 1 HANDLES ALL EXITS FROM DUP J0702830
7DB5 284 | LINE BSS 1 SPACES PRINTER 1 LINE J0702840
7DB6 285 | MASK BSS 1 INHIBITS KB INT REQUEST J0702850
7DB7 286 | MDUMP BSS 1 PRINTS SELECTED CORE LOC-S J0702860
7DB8 287 | PAGE BSS 1 SKIPS TO NEXT PAGE J0702870
7DB9 288 | PHID BSS 1 RECORDS PHASE ID J0702880
7DBA 289 | PHIDM BSS 1 RECORDS PHASE AND MODIFIER J0702890
7DBB 290 | PRINT BSS 1 USE SYS PR SUBR TO PRINT J0702900
7DBC 291 | PUT BSS 1 WRITES TO DISK USING DISKZ J0702910
7DBD 292 | REST BSS 1 RESTORE CATCO,GO TO DCTL J0702920
7DBE 293 | RTURN BSS 1 RESTORE XR-S AND CONDITIONS J0702930
294 | * * J0702940
295 | * INPUT/OUTPUT PARAMETERS , CORE ADDRESSES * J0702950
296 | * * J0702960
7D91 297 | BUF6 EQU DUPCO-/1F ADDR OF PAGE HEADING BUFFER J0702970
7C50 298 | PRPNT EQU BUF6-/141 IOAR ADDR FOR PRINC.PTR J0702980
7A06 299 | IOADR EQU BUF6-/38B START OF I/O INTERFACE J0702990
7A0A 300 | GETHO EQU IOADR+4 ENTRY FOR READING HOLL TYPE J0703000
7A0B 301 | GETBI EQU IOADR+5 ENTRY FOR READING BINARY J0703010
7A0C 302 | PACKB EQU IOADR+6 ENTRY TO PACK BINARY J0703020
7A0D 303 | PCHBI EQU IOADR+7 ENTRY TO PUNCH BINARY J0703030
79B5 304 | BUF1 EQU IOADR-/51 ADDR OF NEXT BUFFER J0703040
7963 305 | BUF2 EQU BUF1-/52 ADDR OF THIS BUFFER J0703050
7925 306 | BUF3 EQU BUF2-/3E ADDR OF PACKED EBC BUFFER J0703060
78D3 307 | BUF4 EQU BUF3-/52 ADDR OF CONTROL RCD BUFFER J0703070
7782 308 | BUF5 EQU IOADR-/284 ADDR OF LET SCTR BFR J0703080
0640 309 | BUF7 EQU BUF5-/7142 ADDR OF STORE/DUMP BFR J0703090
310 | * J0703100
311 | * J0703110
312 | * J0703120
DUP-DELETE DRIVER
314 | *************************************************** J0703140
315 | *STATUS - VERSION 2, MODIFICATION 10 * J0703150
316 | * * J0703160
317 | *FUNCTION/OPERATION- * J0703170
318 | * *DELETE REMOVES PROGRAMS FROM EITHER THE FIXED* J0703180
319 | * OR USER AREA AND THEIR ENTRIES FROM LET OR * J0703190
320 | * FLET. * J0703200
321 | * *IF THE DELETION IS FROM THE USER AREA, THE * J0703210
322 | * USER AREA IS PACKED. THE FIXED AREA IS NEVER * J0703220
323 | * PACKED SINCE PROGRAMS IN THIS AREA MUST RE- * J0703230
324 | * MAIN AT FIXED LOCATIONS. * J0703240
325 | * *WHEN A PROGRAM IS DELETED FROM THE USER AREA,* J0703250
326 | * THE BOUNDARY BETWEEN THE USER AREA AND WORK- * J0703260
327 | * ING STORAGE USUALLY CHANGES. IF A PROGRAM IS * J0703270
328 | * IN WORKING STORAGE IT IS MOVED TO THE NEW * J0703280
329 | * BOUNDARY. * J0703290
330 | * *IF THE DELETION IS FROM THE USER AREA, THE * J0703300
331 | * 1DUMY ENTRY PRECEEDING THE NEXT DCI OR DDF * J0703310
332 | * PROGRAM IS UPDATED TO KEEP THE PROGRAM AT A * J0703320
333 | * SECTOR BOUNDARY IN THE USER AREA. IT IS POS- * J0703330
334 | * SIBLE THAT THE 1DUMY MUST BE REMOVED TO SEC- * J0703340
335 | * TORIZE THE PROGRAM. * J0703350
336 | * *THE LAST ENTRY IN LET REFLECTS THE DISTANCE * J0703360
337 | * FROM THE LAST PROGRAM IN THE USER AREA TO THE* J0703370
338 | * END OF THE DISK. IF A PROGRAM IS DELETED FROM* J0703380
339 | * THE USER AREA, THIS ENTRY IS UPDATED TO RE- * J0703390
340 | * FLECT THE SIZE OF THE DELETED PROGRAM AND ANY* J0703400
341 | * ADJUSTMENTS TO A 1DUMY ENTRY. * J0703410
342 | * *IF THE DELETION IS FROM THE FIXED AREA, THE * J0703420
343 | * FLET ENTRY IS CONVERTED TO A 1DUMY ENTRY AND * J0703430
344 | * THEN COMBINED WITH ANY ADJACENT 1DUMY ENTRIES* J0703440
345 | * FLET IS SHRUNK ONLY IF THERE ARE ADJACENT * J0703450
346 | * 1DUMY ENTRIES. * J0703460
347 | * *SECONDARY ENTRY POINTS APPEAR ONLY IN DSF * J0703470
348 | * PROGRAMS. * J0703480
349 | * *DSF ARE STORED ONLY IN THE USER AREA. * J0703490
350 | * *SECONDARY ENTRY POINTS ARE NEVER CONTINUED * J0703500
351 | * OVER A SECTOR BOUNDARY OF LET, I.E. ALL ENTRY* J0703510
352 | * POINTS TO A PROGRAM APPEAR IN THE SAME SECTOR* J0703520
353 | * OF LET. * J0703530
354 | * *THE SUBROUTINE, MASK, IS USED TO INHIBIT ALL * J0703540
355 | * KEYBOARD REQUESTS WHILE DELETE HAS CONTROL. * J0703550
356 | * *DE900 CONTAINS PARAMETERS USED BY SEVERAL * J0703560
357 | * DELETE SUBROUTINES. PARAMETERS UNIQUE TO A * J0703570
358 | * SUBROUTINE ARE CODED WITHIN THE SUBROUTINE. * J0703580
359 | * * J0703590
360 | *ENTRY POINTS- * J0703600
361 | * *DE000 IS THE ONLY ENTRY POINT. CONTROL IS * J0703610
362 | * PASSED TO DELETE FROM DCTL. * J0703620
363 | * * J0703630
364 | *EXTERNAL REFERENCES- * J0703640
365 | * SUBROUTINES- ALL IN DUPCO * J0703650
366 | * *BINEB CONVERSION BINARY TO EBCDIC * J0703660
367 | * *GET READ FROM DISK USING DISKZ * J0703670
368 | * *LEAVE HANDLES ALL EXITS FROM DUP * J0703680
369 | * *MASK INHIBITS KB INT REQUEST * J0703690
370 | * *MDUMP PRINTS SELECTED CORE LOCATIONS * J0703700
371 | * *PHID RECORDS PHASE ID * J0703710
372 | * *PRINT USE SYS PR SUBR TO PRINT * J0703720
373 | * *PUT WRITES TO DISK USING DISKZ * J0703730
374 | * *REST RESTORE CATCO, GO TO DCTL * J0703740
375 | * *WRTDC WRITE DCOM(S) SUBROUTINE * J0703750
376 | * CATCO SWITCHES- * J0703760
377 | * *C CATCO POINTER * J0703770
378 | * *DELSW ADDR OF REQUIRED LET/FLET ENTRY * J0703780
379 | * *DUMPP LAST LIMITS FOR PRINTER DUMP * J0703790
380 | * *LETAR ADDR OF LET SEARCH BUFFER * J0703800
381 | * *LSTLF LAST LET/FLET SCTR PROCESSED * J0703810
382 | * *SDBUF STORE/DUMP BUFFER * J0703820
383 | * *TEMP1 1ST WD OF BINEB OUTPUT * J0703830
384 | * COMMA SWITCHES- * J0703840
385 | * $CORE CORE SIZE,/1000=4K,/2000=8K, ETC * J0703850
386 | * $FPAD FILE PROTECT ADDR (ADJ) * J0703860
387 | * $PBSY PRINC PTR BUSY.INDR,NON-ZERO=BSY * J0703870
388 | * DCOM SWITCHES- * J0703880
389 | * #ANDU END OF UA (ADJ) * J0703890
390 | * #BNDU END OF UA (BASE) * J0703900
391 | * #CIDN LOGICAL CARTRIDGE ID * J0703910
392 | * #FLET FLET ADDRESS * J0703920
393 | * #FPAD FILE PROTECT ADDRESS * J0703930
394 | * #WSCT WS BLOCK COUNT * J0703940
395 | * * J0703950
396 | *EXITS- * J0703960
397 | * NORMAL- * J0703970
398 | * *REST RETURNS CONTROL TO DCTL * J0703980
399 | * ERROR- * J0703990
400 | * *LEAVE PRINTS ERROR MESSAGE AND RETURNS * J0704000
401 | * CONTROL TO DCTL * J0704010
402 | * * J0704020
403 | *TABLES/WORK AREAS- * J0704030
404 | * *LETAR MUST POINT TO A BUFFER OF AT LEAST 664 * J0704040
405 | * DECIMAL WORDS. LET/FLET IS PROCESSED IN THIS * J0704050
406 | * BUFFER. THE CONTENTS OF THE TWO LET/FLET SEC-* J0704060
407 | * TORS ARE NEVER EXCHANGED, RATHER THE BUFFER * J0704070
408 | * LOGIC IS SWITCHED. * J0704080
409 | * BFRA POINTS TO THE SECTOR CURRENTLY BEING * J0704090
410 | * PROCESSED. BFRB POINTS TO THE NEXT SECTOR. * J0704100
411 | * A SECTOR OF LET/FLET IS ASSUMED TO BE IN LET-* J0704110
412 | * AR WHEN CONTROL IS PASSED TO DELETE. THIS * J0704120
413 | * SECTOR MUST CONTAIN THE SPECIFIED ENTRY POINT* J0704130
414 | * WHOSE LOCATION -1 IS CONTAINED IN DELSW. * J0704140
415 | * *SDBUF IS USED AS A BUFFER TO SHRINK THE USER * J0704150
416 | * AREA. IF CORE SIZE IS 4K, A 642 DEC. WORD * J0704160
417 | * BUFFER IS USED. FOR LARGER CORE SIZES IT EX- * J0704170
418 | * PANDS TO 2562 WORDS. SDBUF MAY POINT TO A * J0704180
419 | * LOCATION WITHIN DELETE ITSELF. THE PORTION * J0704190
420 | * OVERLAYED WILL HAVE BEEN EXECUTED. NOTE THAT * J0704200
421 | * DI000 DUMPS DELETE BEFORE SDBUF IS USED. * J0704210
422 | * * J0704220
423 | *ATRRIBUTES- NONE * J0704230
424 | * * J0704240
425 | *NOTES- * J0704250
426 | * *THE DIAGNOSTIC ROUTINE DI000 IS UNDER THE * J0704260
427 | * CONTROL OF BIT SWITCH 0 WHEN THE DUP TRACE* J0704270
428 | * IS ENABLED. * J0704280
429 | * * J0704290
430 | *************************************************** J0704300
DUP-DELETE DRIVER
01DE 432 | ORG B ORG TO DZEND-2 J0704320
433 | * PROVIDE PARAMETERS FOR J0704330
434 | * SYSTEM LOADER J0704340
435 | * J0704350
01DE 0598 436 | DC DEND-* WORD COUNT OF DELETE J0704360
01DF 0007 437 | DC 7 ID NO. OF DELETE J0704370
438 | * J0704380
439 | ************************************************** J0704390
440 | * DE000 IS THE DUP-DELETE DRIVER WHICH CALLS THE J0704400
441 | * MAJOR DUP-DELETE SUBROUTINES. J0704410
442 | * DE000 IS THE DUP-DELETE ENTRY POINT. J0704420
443 | * THE PATCH AREA IS NEVER OVERLAYED WHILE J0704430
444 | * DUP-DELETE MAINTAINS CONTROL. J0704440
445 | ************************************************** J0704450
446 | * J0704460
01E0 1000 447 | DE000 NOP ENTRY TO DELETE FROM DCTL J0704470
01E1 1000 448 | NOP J0704480
449 | * J0704490
01E2 4480 7DB9 450 | BSI I PHID RECORD PHASE ID OF DELETE J0704500
01E4 0007 451 | DC 7 J0704510
452 | * J0704520
01E5 4480 7DB6 453 | BSI I MASK INHIBIT ALL KEYBOARD INTER- J0704530
454 | * *RUPTS DURING DELETE J0704540
455 | * J0704550
01E7 4400 073F 456 | BSI L IN000 PERFORM DELETE INITIALIZAT- J0704560
457 | * *ION J0704570
458 | * J0704580
01E9 4400 06DF 459 | BSI L BA000 INVESTIGATE ENTRIES BEFORE J0704590
460 | * *SPECIFIED ENTRY J0704600
461 | * J0704610
01EB 4400 0698 462 | BSI L MU000 INVESTIGATE ENTRIES AFTER J0704620
463 | * *SPECIFIED ENTRY J0704630
464 | * J0704640
01ED 4400 043A 465 | BSI L CN000 PROCESS LET/FLET J0704650
466 | * J0704660
01EF 4400 0402 467 | BSI L DI000 DUMP DELETE AND BUFFERS J0704670
468 | * *TO PRINTER (BIT SW 0 ON) J0704680
01F1 C035 469 | LD DE915 J0704690
01F2 4C20 01FF 470 | BSC L DE010,Z BR IF DELETION IS FROM THE J0704700
471 | * *FIXED AREA J0704710
472 | * J0704720
01F4 4400 0234 473 | BSI L UA000 PACK THE USER AREA J0704730
474 | * J0704740
01F6 4400 0421 475 | BSI L DI500 DUMP DELETE AND BUFFERS J0704750
476 | * *TO PRINTER (BIT SW 0 ON) J0704760
477 | * J0704770
01F8 C02A 478 | LD DE911 SET DRIVE CODE IN CALLING J0704780
01F9 D004 479 | STO DE005 *SEQUENCE J0704790
01FA 6700 7F1E 480 | LDX L3 CATCO J0704800
481 | * J0704810
01FC 4480 7DB1 482 | BSI I WRTDC WRITE DCOM(S) J0704820
01FE 0000 483 | DE005 DC *-* DRIVE CODE SET HERE J0704830
484 | * J0704840
01FF 4400 03CA 485 | DE010 BSI L HK000 PRINT SIGN-OFF MESSAGE J0704850
486 | * J0704860
0201 1000 487 | NOP AREA TO PATCH A WAIT OR J0704870
0202 1000 488 | NOP *BRANCH J0704880
489 | * J0704890
0203 4480 7DBD 490 | BSI I REST DELETE EXIT. RETURN TO DCTL J0704900
491 | * 2-2 J0704910
0205 492 | DE500 BSS 20 PATCH AREA 2-2 J0704920
493 | * J0704930
494 | ************************************************** J0704940
DUP-DELETE CONTROLS
496 | * J0704960
497 | ************************************************** J0704970
498 | * THE FOLLOWING CONTROL CELLS ARE USED BY THE J0704980
499 | * VARIOUS DELETE SUBROUTINES J0704990
500 | ************************************************** J0705000
501 | * J0705010
0219 0000 502 | DE900 DC *-* ADDR IN LET/FLET OF THE PRIMARY J0705020
503 | * *ENTRY POINT OF THE PROGRAM TO J0705030
504 | * *BE DELETED J0705040
505 | * J0705050
021A 0000 506 | DE901 DC *-* AS EACH LET/FLET ENTRY IS MOVED, J0705060
507 | * THE DB SIZE IS SUMED HERE J0705070
508 | * J0705080
021B 0000 509 | DE902 DC *-* IF THE LET/FLET ENTRY PRECEEDING J0705090
510 | * *THE ENTRY TO BE DELETED IS A J0705100
511 | * *DUMY, IT'S ADDRESS IS RECORDED J0705110
512 | * *HERE J0705120
513 | * J0705130
021C 0000 514 | DE904 DC *-* CONTAINS THE PRIMARY ENTRY POINT J0705140
515 | * *ADDRESS OF THE LET/FLET ENTRY J0705150
516 | * *FOLLOWING THE SPECIFIED ENTRY. J0705160
517 | * *MAY BE THE ADDRESS OF A DUMY J0705170
518 | * *ENTRY J0705180
519 | * J0705190
021D 0000 520 | DE905 DC *-* NON-ZERO IF DE906 CONTAINS THE J0705200
521 | * *ADDRESS OF THE LAST LET/FLET J0705210
522 | * *DUMY J0705220
523 | * J0705230
021E 0000 524 | DE906 DC *-* LET/FLET ADDRESS OF A DUMY ENTRY J0705240
525 | * *IF IT FOLLOWS THE SPECIFIED J0705250
526 | * *ENTRY J0705260
527 | * J0705270
021F 0000 528 | DE907 DC *-* USED AS AN INPUT PARAMETER TO J0705280
529 | * *SEVERAL SUBROUTINES. CONTAINS J0705290
530 | * *THE ADDRESS OF BFRA OR BFRB J0705300
531 | * J0705310
0220 0000 532 | DE908 DC *-* CONTAINS THE SECTOR ADDRESS OF J0705320
533 | * *FLET (IF ANY) FOR THIS DRIVE J0705330
534 | * J0705340
0221 0000 535 | DE909 DC *-* DRIVE CODE. BITS 13, 14, AND 15 J0705350
536 | * *ON WHICH TO DELETE SPECIFIED J0705360
537 | * *PROGRAM J0705370
538 | * J0705380
0222 0000 539 | DE910 DC *-* 'FROM' ADDR IN THE UA. CONTAINS J0705390
540 | * *THE DB ADDRESS OF THE FIRST J0705400
541 | * *NON-DUMY PROGRAM FOLLOWING THE J0705410
542 | * *SPECIFIED PROGRAM J0705420
543 | * J0705430
0223 0000 544 | DE911 DC *-* DRIVE CODE SPECIFIED IN DE909 J0705440
545 | * *IN BITS 1, 2, AND 3 J0705450
546 | * J0705460
0224 0000 547 | DE912 DC *-* 'TO' ADDR IN THE UA. CONTAINS J0705470
548 | * *DB ADDRESS OF THE SPECIFIED J0705480
549 | * *PROGRAM OR OF A PRECEEDING J0705490
550 | * *DUMY J0705500
551 | * J0705510
0225 0000 552 | DE913 DC *-* CONTAINS THE ADDRESS OF THE J0705520
553 | * *'FROM' LET/FLET BUFFER. BFRA J0705530
554 | * *OR BFRB J0705540
555 | * J0705550
0226 0000 556 | DE914 DC *-* CONTAINS THE DB ADJUSTMENT WHICH J0705560
557 | * *IS ADDED TO THE LAST LET DUMY J0705570
558 | * *ENTRY J0705580
559 | * J0705590
0227 0000 560 | DE915 DC *-* NON-ZERO INDICATES THE DELETION J0705600
561 | * *IS FROM FLET J0705610
562 | * J0705620
0228 0000 563 | DE917 DC *-* USER AREA DB ADDRESS OF THE J0705630
564 | * *FIRST DDF OR DCI PROGRAM FOLL- J0705640
565 | * *OWING THE SPECIFIED PROGRAM J0705650
566 | * J0705660
0229 0000 567 | DE918 DC *-* SIZE OF DUMMY PRECEDING NEXT 2-1 J0705670
568 | * *DCI/DDF PROG.NEG= NO DUMMY 2-1 J0705680
569 | * J0705690
022A 0000 570 | DE919 DC *-* DB SIZE OF PROGRAM TO DELETE J0705700
571 | * J0705710
022B 0000 572 | DE920 DC *-* DB ADDRESS IN THE USER AREA OF J0705720
573 | * *THE PROGRAM TO BE DELETED J0705730
574 | * J0705740
022C 0000 575 | DE921 DC *-* NON-ZERO IF PREVIOUS LET/FLET J0705750
576 | * SECTOR HAS BEEN READ J0705760
577 | * J0705770
022E 578 | BSS E 0 J0705780
022E 0000 579 | BFRA DC *-* CONTAINS THE ADDRESS OF A 322 J0705790
580 | * *WORD BUFFER REFERED TO AS BFRA J0705800
581 | * J0705810
022F 0000 582 | BFRB DC *-* CONTAINS THE ADDRESS OF A 322 J0705820
583 | * *WORD BUFFER REFERED TO AS BFRB J0705830
584 | * J0705840
0230 0000 585 | BFRAF DC *-* POINTS TO THE FIRST WORD OF THE J0705850
586 | * *FIRST ENTRY IN BFRA J0705860
587 | * J0705870
0231 0000 588 | BFRBF DC *-* POINTS TO THE FIRST WORD OF THE J0705880
589 | * *FIRST ENTRY IN BFRB J0705890
590 | * J0705900
0232 0000 591 | BFRAL DC *-* POINTS TO THE FIRST WORD OF THE J0705910
592 | * *LAST ENTRY IN BFRA (IN THE SEN- J0705920
593 | * *SE OF THE LAST POSSIBLE POSIT- J0705930
594 | * *ION) J0705940
595 | * J0705950
0233 0000 596 | BFRBL DC *-* POINTS TO THE FIRST WORD OF THE J0705960
597 | * *LAST ENTRY IN BFRB J0705970
598 | * J0705980
599 | ************************************************** J0705990
DUP-DELETE UA000
601 | ************************************************** J0706010
602 | * UA000 CONTROLS THE PROCESSING OF THE USER AREA J0706020
603 | * AND OF WORKING STORAGE. J0706030
604 | * *A WORKING AREA OF 2 OR 8 SECTORS IS USED J0706040
605 | * DEPENDING IF CORE IS 4K OR GREATER. THE J0706050
606 | * BUFFER IS SPECIFIED BY SDBUF IN CATCO. J0706060
607 | * THIS BUFFER WILL OVERLAY A PORTION OF J0706070
608 | * DELETE J0706080
609 | * *MOVES FROM FIRST PROGRAM FOLLOWING DELETED J0706090
610 | * PROGRAM TO NEXT DDF/DCI PROGRAM BY WORDS J0706100
611 | * *MOVES THE REMAINDER OF THE USER AREA AND J0706110
612 | * WORKING STORAGE BY SECTORS J0706120
613 | * *SETS #FPAD, #ANDU, AND #BNDU IN THE DCOM J0706130
614 | * IMAGE IN CATCO J0706140
615 | ************************************************** J0706150
616 | * J0706160
0234 0000 617 | UA000 DC *-* ENTRY J0706170
618 | * J0706180
619 | ************************************************** J0706190
620 | * UA000 INITIALIZATION J0706200
621 | ************************************************** J0706210
622 | * J0706220
0235 6500 7FA0 623 | LDX L1 C J0706230
0237 C15B 624 | LD 1 SDBUF SAVE THE ADDRESS OF THE J0706240
0238 D400 02C3 625 | STO L UA922 *SDBUF BUFFER J0706250
023A 6780 02C3 626 | LDX I3 UA922 J0706260
023C 807C 627 | A UA912 *ADDRESS. (2) J0706270
023D D07D 628 | STO UA914 CORE ADDR 1ST WD 'FROM' BFR J0706280
023E D07D 629 | STO UA915 J0706290
630 | * J0706300
631 | * TEST CORE SIZE J0706310
632 | * J0706320
023F C400 000E 633 | LD L $CORE FETCH CORE SIZE J0706330
0241 907B 634 | S UA916 4100 J0706340
0242 4C10 024A 635 | BSC L UA010,- BR IF CORE SIZE GT 4K J0706350
0244 6101 636 | LDX 1 1 J0706360
0245 6600 0140 637 | LDX L2 320 J0706370
0246 638 | UA005 EQU *-1 J0706380
0247 C07B 639 | LD UA922 ADDR OF SDBUF BUFFER J0706390
0248 8078 640 | A UA920 322 J0706400
0249 7005 641 | MDX UA020 BR TO CONTINUE J0706410
642 | * J0706420
643 | * CORE SIZE GREATER THAN 4K J0706430
644 | * J0706440
024A 6107 645 | UA010 LDX 1 7 J0706450
024B 6600 08C0 646 | LDX L2 2240 J0706460
024D C075 647 | LD UA922 ADDR OF SDBUF BUFFER J0706470
024E 8073 648 | A UA921 2242 J0706480
024F 6962 649 | UA020 STX 1 UA905 LENGTH IN SECTORS OF SDBUF J0706490
650 | * *-1 J0706500
0250 6A5F 651 | STX 2 UA903 WORD COUNT OF ABOVE J0706510
652 | * J0706520
0251 D05F 653 | STO UA904 ADDR OF 1ST WORD OF LAST J0706530
654 | * *SECTOR OF SDBUF J0706540
0252 C05F 655 | LD UA905 SCTR COUNT OF 1 OR 7 J0706550
0253 8063 656 | A UA910 1 J0706560
0254 D06A 657 | STO UA918 LENGTH IN SCTRS OF SDBUF J0706570
0255 C05A 658 | LD UA903 WORD COUNT OF 320 OR 2240 J0706580
0256 80EF 659 | A UA005 320 J0706590
0257 D068 660 | STO UA919 LENGTH IN WORDS OF SDBUF J0706600
661 | * J0706610
662 | * COMPUTE NO. WORDS FROM PROGRAM FOLLOWING SPECIF- J0706620
663 | * IED PROGRAM TO NEXT DDF DCI PROGRAM. J0706630
664 | * J0706640
0258 C0D0 665 | LD DE918 BRANCH IF REFLECTING 2-1 J0706650
0259 4C10 025D 666 | BSC L UA022,- *SIZE OF DUMMY 2-1 J0706660
025B 1010 667 | SLA 16 IF NEGATIVE, PUT ZERO 2-1 J0706670
025C D0CC 668 | STO DE918 *FOR NO DUMMY 2-1 J0706680
025D C0CA 669 | UA022 LD DE917 ADDR NEX DDF OR DCI PROG J0706690
025E 90CA 670 | S DE918 SIZE DUMY BEFORE DCI/DDF J0706700
025F 90C2 671 | S DE910 ADDR FOLLOWING PROGRAM J0706710
0260 D052 672 | STO UA906 J0706720
673 | * J0706730
674 | * COMPUTE 'TO' CORE ADDRESS AND SECTOR ADDRESS J0706740
675 | * J0706750
0261 C0C2 676 | LD DE912 'TO' DB ADDRESS J0706760
0262 1884 677 | SRT 4 'TO' SCTR ADDRESS J0706770
0263 E8BF 678 | OR DE911 'OR' IN DRIVE CODE J0706780
0264 D301 679 | STO 3 1 J0706790
0265 D04F 680 | STO UA908 NEXT 'TO' SCTR ADDRESS J0706800
0266 1810 681 | SRA 16 J0706810
0267 1084 682 | SLT 4 J0706820
0268 A04F 683 | M UA911 20 J0706830
0269 18D0 684 | RTE 16 J0706840
026A 8051 685 | A UA915 FIRST WORD IN SDBUF J0706850
026B D05C 686 | STO UA050 SAVE 'TO' CORE ADDRESS J0706860
687 | * J0706870
688 | * COMPUTE 'FROM' SECTOR ADDRESS J0706880
689 | * J0706890
026C C046 690 | LD UA906 FETCH NO DBS AND BRANCH J0706900
026D 4C30 0277 691 | BSC L UA025,Z- *IF SOME LEFT J0706910
026F C0B4 692 | LD DE912 J0706920
0270 E053 693 | AND UA923 DETERMINE IF "TO" SCTR J0706930
0271 4C18 0275 694 | BSC L UA024,+- *EMPTY AND BR IF IT IS J0706940
0273 7401 02B5 695 | MDX L UA908,1 BUMP NEXT 'TO' SCTR ADDR J0706950
0275 4C00 0343 696 | UA024 BSC L UA170 BR TO CONTINUE J0706960
0277 C400 0222 697 | UA025 LD L DE910 'FROM' DB ADDRESS J0706970
0279 1884 698 | SRT 4 'FROM' SCTR ADDRESS J0706980
027A EC00 0223 699 | OR L DE911 'OR' IN DRIVE CODE J0706990
027C D039 700 | STO UA909 SAVE 'FROM' SCTR ADDRESS J0707000
027D 1810 701 | SRA 16 J0707010
027E 1084 702 | SLT 4 J0707020
027F D02D 703 | STO UA900 SAVE NO. REMAINING DB'S J0707030
704 | * J0707040
705 | * COMPUTE NUMBER OF WORDS BETWEEN 'FROM' AND END J0707050
706 | * OF FIRST 'FROM' SECTOR J0707060
707 | * J0707070
0280 C039 708 | LD UA913 16 J0707080
0281 902B 709 | S UA900 J0707090
0282 D043 710 | STO UA925 J0707100
0283 A034 711 | M UA911 J0707110
0284 18D0 712 | RTE 16 J0707120
0285 D046 713 | STO UA070 SAVE THE RESULT J0707130
714 | * J0707140
715 | * DETERMINE IF THERE IS LESS THAN ONE SECTOR TO J0707150
716 | * PROCESS J0707160
717 | * J0707170
0286 C02C 718 | LD UA906 NO. DBS TO NEXT DCI OR DDF J0707180
0287 4C08 0343 719 | BSC L UA170,+ BR IF NO DBS TO MOVE J0707190
0289 903C 720 | S UA925 NO. DBS LEFT THIS SECTOR J0707200
028A 4C10 0291 721 | BSC L UA030,- BR IF MORE 'FROM' SCTRS TO J0707210
722 | * *PROCESS J0707220
028C C026 723 | LD UA906 J0707230
028D A02A 724 | M UA911 CONVERT TO WORDS J0707240
028E 18D0 725 | RTE 16 J0707250
028F D03C 726 | STO UA070 J0707260
0290 1810 727 | SRA 16 INDICATE ALL DBS READ J0707270
0291 D021 728 | UA030 STO UA906 UPDATE NO. WDS LEFT TO RD J0707280
729 | * J0707290
730 | * FETCH FIRST 'TO' SECTOR J0707300
731 | * J0707310
0292 C0B3 732 | LD UA005 SET WORD COUNT OF 320 J0707320
0293 D300 733 | STO 3 0 J0707330
0294 4400 03B6 734 | BSI L GGET READ THE SECTOR J0707340
735 | * J0707350
736 | * J0707360
737 | * DETERMINE IF FIRST 'TO' SCTR IS THE SAME AS J0707370
738 | * FIRST 'FROM' SECTOR J0707380
739 | * J0707390
0296 C301 740 | LD 3 1 FIRST 'TO' SCTR ADDR J0707400
0297 901E 741 | S UA909 FIRST 'FROM' SCTR ADDR J0707410
0298 4C18 02A5 742 | BSC L UA040,+- BRANCH IF THE SAME J0707420
743 | * J0707430
744 | * FETCH FIRST 'FROM' SECTOR J0707440
745 | * J0707450
029A C01B 746 | LD UA909 'FROM' SECTOR ADDRESS J0707460
029B 18D0 747 | RTE 16 J0707470
029C C0A9 748 | LD UA005 WORD COUNT OF 320 J0707480
029D 7700 0140 749 | MDX L3 320 POINT TO 2ND SCTR OF SDBUF J0707490
029F DB00 750 | STD 3 0 J0707500
02A0 4400 03B6 751 | BSI L GGET READ THE SECTOR J0707510
752 | * J0707520
753 | * COMPUTE 'FROM' CORE ADDRESS J0707530
754 | * J0707540
02A2 C018 755 | LD UA914 UPDATE CORE ADDRESS OF 1ST J0707550
02A3 80A2 756 | A UA005 *WORD OF 'FROM' BUFFER J0707560
02A4 D016 757 | STO UA914 J0707570
758 | * J0707580
02A5 C007 759 | UA040 LD UA900 REMAINING DB'S J0707590
02A6 A011 760 | M UA911 20 J0707600
02A7 18D0 761 | RTE 16 J0707610
02A8 8012 762 | A UA914 J0707620
02A9 D020 763 | STO UA060 SAVE 'FROM' CORE ADDRESS J0707630
02AA 7401 02B6 764 | MDX L UA909,1 POINT TO NEXT 'FROM' SCTR J0707640
02AC 701A 765 | MDX UA045 BRANCH TO CONTINUE J0707650
766 | * J0707660
767 | ************************************************** J0707670
768 | * CONSTANTS AND VARIABLES USED IN UA000 J0707680
769 | ************************************************** J0707690
770 | * J0707700
02AD 0000 771 | UA900 DC *-* WASTEBASKET J0707710
02AE 0000 772 | UA901 DC *-* STORAGE FOR THE TWO WORDS J0707720
02AF 0000 773 | UA902 DC *-* *REPLACED BY WD CNT,STR ADR J0707730
02B0 0000 774 | UA903 DC *-* WORD COUNT OF 320 OR 2240 J0707740
02B1 0000 775 | UA904 DC *-* ADDR OF 1ST WORD OF LAST J0707750
776 | * *SECTOR OF SDBUF J0707760
02B2 0000 777 | UA905 DC *-* SECTOR COUNT OF 1 OR 7 J0707770
02B3 0000 778 | UA906 DC *-* NO. OF DBS BETWEEN NEXT J0707780
779 | * *PROG AND NEXT DDF/DCI PROG J0707790
02B4 0000 780 | UA907 DC *-* END+1 ADDR OF LAST WD READ J0707800
02B5 0000 781 | UA908 DC *-* NEXT 'TO' SECTOR ADDRESS J0707810
02B6 0000 782 | UA909 DC *-* NEXT 'FROM' SECTOR ADDRESS J0707820
02B7 0001 783 | UA910 DC 1 CONSTANT J0707830
02B8 0014 784 | UA911 DC 20 WORD COUNT OF 1 DB J0707840
02B9 0002 785 | UA912 DC 2 CONSTANT J0707850
02BA 0010 786 | UA913 DC 16 DB SIZE OF 1 SECTOR J0707860
02BB 0000 787 | UA914 DC *-* (SDBUF)+2 OR (SDBUF)+322 J0707870
02BC 0000 788 | UA915 DC *-* (SDBUF)+2 J0707880
02BD 1004 789 | UA916 DC 4100 USED TO TEST CORE SIZE J0707890
02BE 0000 790 | UA917 DC *-* NO. SCTRS FROM NEXT DDF/DCI J0707900
791 | * *PROG TO END OF PROG IN WS J0707910
02BF 0000 792 | UA918 DC *-* SCTR COUNT OF 2 OR 8 J0707920
02C0 0000 793 | UA919 DC *-* WORD COUNT OF 640 OR 2560 J0707930
02C1 0142 794 | UA920 DC 322 WD CNT+2 OF 1 SECTOR J0707940
02C2 08C2 795 | UA921 DC 2242 WD CNT+2 OF 7 SECTORS J0707950
02C3 0000 796 | UA922 DC *-* ADDR OF SDBUF BUFFER J0707960
02C4 000F 797 | UA923 DC 15 USED TO MASK UNSCTRIZED DBS J0707970
02C5 0140 798 | UA924 DC 320 WORD COUNT OF ONE SECTOR J0707980
02C6 0000 799 | UA925 DC *-* NO. REMAINING DBS FIRST STR J0707990
800 | * J0708000
801 | ************************************************** J0708010
802 | * J0708020
803 | * MOVE 'FROM' AGAINST 'TO' J0708030
804 | * J0708040
02C7 6500 0000 805 | UA045 LDX L1 *-* SET WITH 'TO' CORE ADDRESS J0708050
02C8 806 | UA050 EQU *-1 J0708060
02C9 6600 0000 807 | LDX L2 *-* SET WITH 'FROM' CORE ADDR J0708070
02CA 808 | UA060 EQU *-1 J0708080
02CB 6700 0000 809 | LDX L3 *-* SET WITH NO. WORDS TO MOVE J0708090
02CC 810 | UA070 EQU *-1 J0708100
02CD C200 811 | UA080 LD 2 0 MOVE J0708110
02CE D100 812 | STO 1 0 *A J0708120
02CF 7201 813 | MDX 2 1 *WORD J0708130
02D0 7101 814 | MDX 1 1 J0708140
02D1 73FF 815 | MDX 3 -1 SKIP WHEN MOVE COMPLETE J0708150
02D2 70FA 816 | MDX UA080 BRANCH TO CONTINUE J0708160
02D3 69E0 817 | STX 1 UA907 SAVE CURRENT POSITION J0708170
818 | * J0708180
02D4 6780 02C3 819 | UA090 LDX I3 UA922 POINT TO 1ST WORD OF SDBUF J0708190
02D6 C0DC 820 | LD UA906 J0708200
02D7 4C30 02DD 821 | BSC L UA100,Z- BR IF ALL DBS NOT READ J0708210
02D9 C0DA 822 | LD UA907 ADDR LAST WD IN BFR + 1 J0708220
02DA 90E1 823 | S UA915 ADDR FIRST DATA WORD, SDBUF J0708230
02DB D300 824 | STO 3 0 STORE WORD COUNT J0708240
02DC 7006 825 | MDX UA110 BRANCH TO CONTINUE J0708250
826 | * J0708260
827 | * DETERMINE IF SDBUF BUFFER IS FULL J0708270
828 | * J0708280
02DD C0D6 829 | UA100 LD UA907 ADDR LAST WD IN BFR + 1 J0708290
02DE 90D2 830 | S UA904 LAST SDBUF SECTOR ADDRESS J0708300
02DF 4C28 030C 831 | BSC L UA150,+Z BR IF SDBUF NOT FULL J0708310
832 | * J0708320
02E1 C0CE 833 | LD UA903 WORD COUNT OF 320 OR 2240 J0708330
02E2 D300 834 | STO 3 0 J0708340
02E3 C0D1 835 | UA110 LD UA908 NEXT 'TO' SCTR ADDR J0708350
02E4 D301 836 | STO 3 1 J0708360
837 | * J0708370
02E5 4400 03C0 838 | BSI L PPUT WRITE SDBUF BUFFER TO DISK J0708380
839 | * J0708390
840 | ************************************************** J0708400
841 | * UPDATE NEXT 'TO' SECTOR ADDRESS J0708410
842 | ************************************************** J0708420
843 | * J0708430
02E7 C300 844 | LD 3 0 FETCH WORD COUNT J0708440
02E8 18D0 845 | RTE 16 J0708450
02E9 1810 846 | SRA 16 J0708460
02EA A8DA 847 | D UA924 320 ACC CONTAINS NO. SCTRS J0708470
02EB 18D0 848 | RTE 16 *WRITTEN J0708480
02EC 4C18 02F1 849 | BSC L UA115,+- BR IF WROTE EVEN NO. SCTRS J0708490
02EE 18D0 850 | RTE 16 INCREASE SCTR CNT BY 1 J0708500
02EF 80C7 851 | A UA910 1 J0708510
02F0 7001 852 | MDX UA116 J0708520
02F1 18D0 853 | UA115 RTE 16 J0708530
02F2 80C2 854 | UA116 A UA908 ADD NO. SCTRS WRITTEN TO J0708540
02F3 D0C1 855 | STO UA908 *LAST 'TO' SCTR ADDR J0708550
02F4 C0BE 856 | LD UA906 J0708560
02F5 4C08 0343 857 | BSC L UA170,+ BR IF ALL DBS READ J0708570
858 | * J0708580
859 | ************************************************** J0708590
860 | * MOVE ANY WORDS REMAINING IN RIGHTMOST SDBUF SCTR J0708600
861 | * TO LEFTMOST SDBUF SCTR J0708610
862 | ************************************************** J0708620
863 | * J0708630
02F7 C0BC 864 | LD UA907 ADDR LAST WORD IN BFR + 1 J0708640
02F8 90B8 865 | S UA904 ADDR 1ST WORD OF LAST SCTR J0708650
02F9 4C30 02FE 866 | BSC L UA120,Z- BR IF THERE ARE REM. WORDS J0708660
02FB C0C0 867 | LD UA915 RESET LAST WORD ADDR WITH J0708670
02FC D0B7 868 | STO UA907 *1ST ADDR OF BUFFER J0708680
02FD 700E 869 | MDX UA150 BRANCH TO CONTINUE J0708690
870 | * J0708700
871 | * MOVE THE BLOCK J0708710
872 | * J0708720
02FE 6580 02BC 873 | UA120 LDX I1 UA915 FIRST LOCATION OF BUFFER J0708730
0300 6680 02B1 874 | LDX I2 UA904 ADDR 1ST WD LEFT SCTR SDBUF J0708740
0302 D001 875 | STO UA130 SET NO. WORDS TO MOVE J0708750
0303 6700 0000 876 | LDX L3 *-* J0708760
0304 877 | UA130 EQU *-1 J0708770
0305 C200 878 | UA140 LD 2 0 MOVE J0708780
0306 D100 879 | STO 1 0 *A J0708790
0307 7201 880 | MDX 2 1 *WORD J0708800
0308 7101 881 | MDX 1 1 J0708810
0309 73FF 882 | MDX 3 -1 SKIP WHEN MOVE COMPLETE J0708820
030A 70FA 883 | MDX UA140 *BRANCH OTHERWISE J0708830
030B 69A8 884 | STX 1 UA907 ADDR LAST WORD IN BFR + 1 J0708840
885 | * J0708850
886 | ************************************************** J0708860
887 | * READ USER AREA INTO SDBUF BUFFER J0708870
888 | ************************************************** J0708880
889 | * J0708890
030C 6780 02B4 890 | UA150 LDX I3 UA907 ADDR LAST WORD IN BFR + 1 J0708900
030E 73FE 891 | MDX 3 -2 J0708910
030F C300 892 | LD 3 0 SAVE LAST 2 WORDS IN BFR J0708920
0310 D09D 893 | STO UA901 *SO WD CNT SCTR ADDR MAY J0708930
0311 C301 894 | LD 3 1 *BE SET IN J0708940
0312 D09C 895 | STO UA902 J0708950
0313 C0A2 896 | LD UA909 SET NEXT 'FROM' SECTOR ADDR J0708960
0314 D301 897 | STO 3 1 J0708970
898 | * J0708980
899 | * COMPUTE NO. OF FULL SECTORS WHICH MAY BE READ J0708990
900 | * INTO SDBUF J0709000
901 | * J0709010
0315 C0AA 902 | LD UA919 COMPUTE END OF SDBUF +1 J0709020
0316 80A5 903 | A UA915 J0709030
0317 909C 904 | S UA907 ADDR LAST WD IN BFR + 1 J0709040
905 | * NO. WDS AVAIL NOW IN ACC J0709050
0318 18D0 906 | RTE 16 J0709060
0319 1810 907 | SRA 16 J0709070
031A A8AA 908 | D UA924 320 CONVERT TO SCTRS J0709080
031B D096 909 | STO UA905 SAVE NO. SCTRS TO READ J0709090
031C A09D 910 | M UA913 16 CONVERT TO DBS J0709100
031D 18D0 911 | RTE 16 J0709110
031E D08E 912 | STO UA900 TEMP SAVE J0709120
031F A098 913 | M UA911 20 CONVERT TO WORDS J0709130
0320 18D0 914 | RTE 16 J0709140
0321 D300 915 | STO 3 0 SET WD CNT OF EVEN NO. SCTR J0709150
916 | * J0709160
917 | * UPDATE NEXT 'FROM' SECTOR ADDRESS J0709170
918 | * J0709180
919 | * J0709190
0322 C090 920 | LD UA906 NO. DBS LEFT TO READ J0709200
0323 9089 921 | S UA900 NO. DBS ABOUT TO BE READ J0709210
0324 4C30 032F 922 | BSC L UA160,-Z BR IF NEED TO READ THEM ALL J0709220
923 | * J0709230
0326 C08C 924 | LD UA906 J0709240
0327 809C 925 | A UA923 SECTORIZE REMAINING DBS J0709250
0328 1804 926 | SRA 4 J0709260
0329 D088 927 | STO UA905 J0709270
032A C088 928 | LD UA906 CONVERT TO WORDS J0709280
032B A08C 929 | M UA911 J0709290
032C 18D0 930 | RTE 16 J0709300
032D D300 931 | STO 3 0 J0709310
032E 1810 932 | SRA 16 CLEAR NO. WDS TO READ J0709320
032F D083 933 | UA160 STO UA906 UPDATE TOTAL DBS TO PROCESS J0709330
934 | * J0709340
0330 4400 03B6 935 | BSI L GGET PERFORM THE DISK I/O J0709350
0332 C083 936 | LD UA909 INCREASE LAST FROM SCTR J0709360
0333 8400 02B2 937 | A L UA905 *ADDR BY NO. OF SECTORS J0709370
0335 D080 938 | STO UA909 *READ J0709380
939 | * J0709390
0336 C400 02B4 940 | LD L UA907 UPDATE ADDR OF LAST WORD J0709400
0338 8300 941 | A 3 0 *IN BUFFER J0709410
0339 D400 02B4 942 | STO L UA907 J0709420
033B C400 02AE 943 | LD L UA901 RESTORE 2 WORDS PREVIOUSLY J0709430
033D D300 944 | STO 3 0 *SAVED J0709440
033E C400 02AF 945 | LD L UA902 J0709450
0340 D301 946 | STO 3 1 J0709460
0341 4C00 02D4 947 | BSC L UA090 BRANCH TO CONTINUE J0709470
948 | * J0709480
949 | ************************************************** J0709490
950 | * MOVE THE REMAINDER OF THE USER AREA BY SECTORS J0709500
951 | ************************************************** J0709510
952 | * J0709520
953 | * COMPUTE NEXT 'FROM' SECTOR ADDRESS J0709530
954 | * J0709540
0343 C400 0228 955 | UA170 LD L DE917 CONVERT ADDR NEXT DCI/DDF J0709550
0345 8400 02C4 956 | A L UA923 *TO A SCTR ADDR. IF NO FOL- J0709560
0347 1804 957 | SRA 4 *LOWING DCI/DDF, ADDR WILL J0709570
0348 D400 02AD 958 | STO L UA900 *BE THAT OF FILE PROTECT J0709580
034A EC00 0223 959 | OR L DE911 'OR' IN DRIVE CODE J0709590
034C D400 02B6 960 | STO L UA909 J0709600
961 | * J0709610
962 | * COMPUTE SECTOR ADDRESS OF THE END OF PROGRAM IN J0709620
963 | * WORKING STORAGE. IF NO PROGRAM IN WS, ADDR WILL J0709630
964 | * BE THAT OF FILE PROTECT J0709640
965 | * J0709650
034E 6780 0221 966 | LDX I3 DE909 FETCH DR CODE FOR INDEXING J0709660
0350 C700 7F4D 967 | LD L3 #FPAD+C FETCH FILE PROTECT ADDR J0709670
0352 1004 968 | SLA 4 SHIFT OFF DR CODE IF ANY J0709680
0353 1804 969 | SRA 4 J0709690
0354 9400 02AD 970 | S L UA900 SCTR ADDR DCI/DDF PROG FOL- J0709700
0356 D400 02AD 971 | STO L UA900 *LOWING ENTRY TO BE DELETED J0709710
972 | * J0709720
973 | * UA900 NOW CONTAINS THE NO. OF SECTORS BETWEEN J0709730
974 | * NEXT DCI/DDF PROG AND START OF WORKING STORAGE. J0709740
975 | * WILL BE 0 IF NO FOLLOWING DCI/DDF PROG FOUND J0709750
976 | * J0709760
0358 4C20 035E 977 | BSC L UA173,Z BR IF HAVE SCTRS TO MOVE J0709770
035A C700 7F75 978 | LD L3 #WSCT+C FETCH NO. DBS IN WS AND J0709780
035C 4C18 03A1 979 | BSC L UA200,+- *BRANCH IF NONE J0709790
980 | * J0709800
981 | * COMPUTE NO. SECTORS OF WORKING STORAGE NEEDED TO J0709810
982 | * BE MOVED J0709820
983 | * J0709830
035E C700 7F75 984 | UA173 LD L3 #WSCT+C CONVERT DB COUNT TO SECTORS J0709840
0360 18D0 985 | RTE 16 J0709850
0361 1810 986 | SRA 16 J0709860
0362 AC00 02BA 987 | D L UA913 16 J0709870
0364 18D0 988 | RTE 16 J0709880
0365 4C18 036B 989 | BSC L UA175,+- BR IF EVEN NO. OF SECTORS J0709890
0367 18D0 990 | RTE 16 *OTHERWISE INCREASE SCTR J0709900
0368 8400 02B7 991 | A L UA910 *COUNT BY ONE J0709910
036A 7001 992 | MDX UA178 J0709920
036B 18D0 993 | UA175 RTE 16 J0709930
036C 8400 02AD 994 | UA178 A L UA900 ADD NO. SCTRS BETWEEN NEXT J0709940
036E D400 02BE 995 | STO L UA917 *DCI/DDF PROG AND WS J0709950
0370 4C08 03A1 996 | BSC L UA200,+ BR IF NO SCTRS TO MOVE J0709960
997 | * J0709970
998 | * UA917 NOW CONTAINS NO. ENTIRE SCTRS TO MOVE J0709980
999 | * J0709990
1000 | * PREPARE TO FETCH 2 OR 8 SECTORS J0710000
1001 | * J0710010
0372 6780 02C3 1002 | LDX I3 UA922 POINT TO SDBUF BUFFER J0710020
0374 C400 02B6 1003 | UA180 LD L UA909 FETCH NEXT 'FROM' SCTR ADDR J0710030
0376 18D0 1004 | RTE 16 J0710040
0377 C400 02C0 1005 | LD L UA919 FETCH WD CNT OF 640 OR 2560 J0710050
0379 DB00 1006 | STD 3 0 J0710060
1007 | * J0710070
1008 | * DETERMINE IF READ WILL EXHAUST NO. SCTRS TO MOVE J0710080
1009 | * J0710090
037A C400 02BE 1010 | LD L UA917 NO. SCTRS YET TO MOVE J0710100
037C 9400 02BF 1011 | S L UA918 SCTR COUNT OF 2 OR 8 J0710110
037E 4C10 0387 1012 | BSC L UA190,- BR IF 2 OR 8 STRS CAN BE RD J0710120
0380 C400 02BE 1013 | LD L UA917 FETCH NO. SCTRS YET TO MOVE J0710130
0382 A400 0246 1014 | M L UA005 *AND CONVERT TO A WORD CNT J0710140
0384 18D0 1015 | RTE 16 J0710150
0385 D300 1016 | STO 3 0 J0710160
0386 1810 1017 | SRA 16 INDICATE ALL SCTRS MOVED J0710170
0387 D400 02BE 1018 | UA190 STO L UA917 UPDATE NO. SCTRS YET TO MOV J0710180
1019 | * J0710190
0389 4400 03B6 1020 | BSI L GGET FETCH THE SECTORS J0710200
1021 | * J0710210
1022 | * PREPARE TO WRITE 2 OR 8 SECTORS J0710220
1023 | * J0710230
038B C400 02B5 1024 | LD L UA908 SET NEXT 'TO' SCTR ADDRESS J0710240
038D D301 1025 | STO 3 1 J0710250
1026 | * J0710260
038E 4400 03C0 1027 | BSI L PPUT WRITE TO DISK J0710270
1028 | * J0710280
0390 C400 02BE 1029 | LD L UA917 J0710290
0392 4C08 03A1 1030 | BSC L UA200,+ BR IF ALL SECTORS MOVED J0710300
1031 | * J0710310
0394 C400 02B5 1032 | LD L UA908 UPDATE NEXT 'FROM' SCTR ADR J0710320
0396 8400 02BF 1033 | A L UA918 J0710330
0398 D400 02B5 1034 | STO L UA908 J0710340
1035 | * J0710350
039A C400 02B6 1036 | LD L UA909 UPDATE NEXT 'TO' SCTR ADDR J0710360
039C 8400 02BF 1037 | A L UA918 J0710370
039E D400 02B6 1038 | STO L UA909 J0710380
03A0 70D3 1039 | MDX UA180 BR TO MOVE MORE SCTRS J0710390
1040 | * J0710400
1041 | * UPDATE IN-CORE DCOM J0710410
1042 | * J0710420
03A1 6780 0221 1043 | UA200 LDX I3 DE909 DRIVE CODE FOR INDEXING J0710430
03A3 C700 7F48 1044 | LD L3 #BNDU+C J0710440
03A5 9400 0226 1045 | S L DE914 ADJUST BY NO. DB'S REMOVED J0710450
03A7 D700 7F43 1046 | STO L3 #ANDU+C J0710460
03A9 D700 7F48 1047 | STO L3 #BNDU+C J0710470
03AB 8400 02C4 1048 | A L UA923 15 SECTORIZE J0710480
03AD 1804 1049 | SRA 4 CONVERT FROM DB TO SCTR ADR J0710490
03AE EC00 0223 1050 | OR L DE911 'OR' IN DRIVE CODE J0710500
03B0 D700 7F4D 1051 | STO L3 #FPAD+C STORE IN IN-CORE DCOM J0710510
03B2 D700 0095 1052 | STO L3 $FPAD STOR IN COMMA J0710520
03B4 4C80 0234 1053 | BSC I UA000 EXIT J0710530
1054 | * J0710540
1055 | ************************************************** J0710550
DUP-DELETE GGET AND PPUT
1057 | ************************************************** J0710570
1058 | * GGET AND PPUT CONTROL THE DISK OPERATIONS J0710580
1059 | * FOR DELETE. THE CALLING SEQUENCES ARE AS J0710590
1060 | * IN GET AND PUT J0710600
1061 | ************************************************** J0710610
1062 | * J0710620
03B6 0000 1063 | GGET DC *-* ENTRY J0710630
03B7 6905 1064 | STX 1 G0001 SAVE XR1 J0710640
03B8 6500 7FA0 1065 | LDX L1 C J0710650
03BA 4480 7DB3 1066 | BSI I GET READ FROM THE DISK J0710660
03BC 6500 0000 1067 | LDX L1 *-* RESTORE XR1 J0710670
03BD 1068 | G0001 EQU *-1 J0710680
03BE 4C80 03B6 1069 | BSC I GGET EXIT J0710690
1070 | * J0710700
1071 | * J0710710
1072 | * J0710720
03C0 0000 1073 | PPUT DC *-* ENTRY J0710730
03C1 6905 1074 | STX 1 P0001 SAVE XR1 J0710740
03C2 6500 7FA0 1075 | LDX L1 C J0710750
03C4 4480 7DBC 1076 | BSI I PUT WRITE TO THE DISK J0710760
03C6 6500 0000 1077 | LDX L1 *-* RESTORE XR1 J0710770
03C7 1078 | P0001 EQU *-1 J0710780
03C8 4C80 03C0 1079 | BSC I PPUT EXIT J0710790
1080 | * J0710800
1081 | ************************************************** J0710810
DUP-DELETE HK000
1083 | ************************************************** J0710830
1084 | * HK000 PRINTS THE DELETE SIGN-OFF MESSAGE J0710840
1085 | ************************************************** J0710850
1086 | * J0710860
03CA 0000 1087 | HK000 DC *-* ENTRY J0710870
03CB 6780 0221 1088 | LDX I3 DE909 DRIVE CODE FOR INDEXING J0710880
03CD C700 7F57 1089 | LD L3 #CIDN+C FETCH CARTRIDGE ID J0710890
03CF 4480 7DB0 1090 | BSI I BINEB CONVERT TO EBCDIC J0710900
03D1 CC00 7FCC 1091 | LDD L TEMP1+C J0710910
03D3 D81C 1092 | STD HK902 J0710920
03D4 C400 022B 1093 | LD L DE920 DB ADDR OF PROG TO DELETE J0710930
03D6 4480 7DB0 1094 | BSI I BINEB CONVERT TO EBCDIC J0710940
03D8 CC00 7FCC 1095 | LDD L TEMP1+C J0710950
03DA D81D 1096 | STD HK903 J0710960
03DB C400 022A 1097 | LD L DE919 DB SIZE OF PROG TO DELETE J0710970
03DD 4480 7DB0 1098 | BSI I BINEB CONVERT TO EBCDIC J0710980
03DF CC00 7FCC 1099 | LDD L TEMP1+C J0710990
03E1 D81E 1100 | STD HK904 J0711000
03E2 4480 7DBB 1101 | BSI I PRINT PRINT THE MESSAGE J0711010
03E4 03EB 1102 | DC HK901 ADDR OF WORD COUNT J0711020
03E5 7400 0036 1103 | MDX L $PBSY,0 WAIT FOR PRINTER J0711030
03E7 70FD 1104 | MDX *-3 J0711040
03E8 4C80 03CA 1105 | BSC I HK000 EXIT J0711050
1106 | * J0711060
03EA 1107 | BSS E 0 J0711070
03EA 1108 | BSS 1 BEGIN AT ODD LOCATION J0711080
03EB 0016 1109 | HK901 DC 22 22 WORDS OF DATA J0711090
03EC C3C1 D9E3 40C9 C440 1110 | EBC .CART ID . J0711100
03F0 1111 | HK902 BSS 2 J0711110
03F2 4040 40C4 C240 C1C4 1112 | EBC . DB ADDR . J0711120
C4D9 4040 |
03F8 1113 | HK903 BSS 2 J0711130
03FA 4040 40C4 C240 C3D5 1114 | EBC . DB CNT . J0711140
E340 4040 |
0400 1115 | HK904 BSS 2 J0711150
1116 | * J0711160
1117 | ************************************************** J0711170
DUP-DELETE DI000
1119 | ************************************************** J0711190
1120 | * DI000 DUMPS DUP-DELETE WHEN THE TRACE HAS BEEN J0711200
1121 | * ENABLED. THERE ARE TWO ENTRY POINTS. J0711210
1122 | * *DI000 DUMPS DELETE, BFRA, AND BFRB. J0711220
1123 | * *DI500 DUMPS DELETE AND SDBUF. J0711230
1124 | * *MDUMP IS USED FOR DUMPING. J0711240
1125 | ************************************************** J0711250
1126 | * J0711260
0402 0000 1127 | DI000 DC *-* ENTRY J0711270
0403 6500 7FA0 1128 | LDX L1 C J0711280
0405 C031 1129 | LD DI900 ADDR OF END OF DELETE J0711290
0406 18D0 1130 | RTE 16 J0711300
0407 C030 1131 | LD DI901 ADDR OF BEGINNING OF DELETE J0711310
0408 D91A 1132 | STD 1 DUMPP J0711320
0409 4480 7DB7 1133 | BSI I MDUMP DUMP DELETE J0711330
1134 | * J0711340
040B C400 022E 1135 | LD L BFRA ADDR OF BEGINNING OF BFRA J0711350
040D 18D0 1136 | RTE 16 J0711360
040E C400 022E 1137 | LD L BFRA J0711370
0410 8028 1138 | A DI902 ADDR OF END OF BFRA J0711380
0411 18D0 1139 | RTE 16 J0711390
0412 D91A 1140 | STD 1 DUMPP J0711400
0413 4480 7DB7 1141 | BSI I MDUMP DUMP BFRA J0711410
1142 | * J0711420
0415 C400 022F 1143 | LD L BFRB ADDR OF BEGINNING OF BFRB J0711430
0417 18D0 1144 | RTE 16 J0711440
0418 C400 022F 1145 | LD L BFRB J0711450
041A 801E 1146 | A DI902 ADDR OF END OF BFRB J0711460
041B 18D0 1147 | RTE 16 J0711470
041C D91A 1148 | STD 1 DUMPP J0711480
041D 4480 7DB7 1149 | BSI I MDUMP DUMP BFRB J0711490
041F 4C80 0402 1150 | BSC I DI000 J0711500
1151 | * J0711510
1152 | * ENTRY TO DUMP DELETE AND SDBUF J0711520
1153 | * J0711530
0421 0000 1154 | DI500 DC *-* ENTRY J0711540
0422 6500 7FA0 1155 | LDX L1 C J0711550
0424 C012 1156 | LD DI900 ADDR OF END OF DELETE J0711560
0425 18D0 1157 | RTE 16 J0711570
0426 C011 1158 | LD DI901 ADDR OF BEGINNING OF DELETE J0711580
0427 D91A 1159 | STD 1 DUMPP J0711590
0428 4480 7DB7 1160 | BSI I MDUMP DUMP DELETE J0711600
1161 | * J0711610
042A C15B 1162 | LD 1 SDBUF ADDR OF BEGINNING OF SDBUF J0711620
042B 18D0 1163 | RTE 16 J0711630
042C C15B 1164 | LD 1 SDBUF J0711640
042D 8400 02C0 1165 | A L UA919 J0711650
042F 8400 02B9 1166 | A L UA912 ADDR OF END OF SDBUF J0711660
0431 18D0 1167 | RTE 16 J0711670
0432 D91A 1168 | STD 1 DUMPP J0711680
0433 4480 7DB7 1169 | BSI I MDUMP DUMP SDBUF J0711690
0435 4C80 0421 1170 | BSC I DI500 EXIT J0711700
1171 | * J0711710
1172 | ************************************************** J0711720
1173 | * CONSTANTS AND VARIABLES DI000 J0711730
1174 | ************************************************** J0711740
1175 | * J0711750
0437 0777 1176 | DI900 DC DEND ADDR OF END OF DELETE J0711760
0438 01E0 1177 | DI901 DC DE000 ADDR OF BEGINNING OF DELETE J0711770
0439 0142 1178 | DI902 DC 322 WORD COUNT OF BFRA/BFRB J0711780
1179 | * J0711790
1180 | ************************************************** J0711800
DUP-DELETE CN000
1182 | ************************************************** J0711820
1183 | * CN000 CONTROLS THE PROCESSING OF THE LET/FLET J0711830
1184 | * TABLES. J0711840
1185 | * *IF THE DELETION IS FROM FLET- CONVERTS J0711850
1186 | * THE ENTRY TO BE DELETED TO A 1DUMY ENTRY J0711860
1187 | * AND COMBINES IT WITH ANY SURROUNDING 1DUMY J0711870
1188 | * ENTRY POINTS AND SHRINKS FLET IF NECESSARY J0711880
1189 | * *IF THE DELETION IS FROM LET- REMOVES THE J0711890
1190 | * ENTRY AND ALL SECONDARY ENTRY POINTS FROM J0711900
1191 | * LET. UPDATES OR REMOVES IF NECESSARY THE J0711910
1192 | * 1DUMY ENTRY BEFORE THE NEXT DCI OR DDF J0711920
1193 | * PROGRAM. UPDATES THE LAST 1DUMY ENTRY OF J0711930
1194 | * LET. SHIRNKS LET. J0711940
1195 | * *NOTE- EXCEPT FOR INITIALIZATION AND THE J0711950
1196 | * HANDLING OF THE LAST 1DUMY ENTRY, BOTH LET J0711960
1197 | * AND FLET ARE PROCESSED IN THE SAME MANNER. J0711970
1198 | ************************************************** J0711980
1199 | * J0711990
043A 0000 1200 | CN000 DC *-* ENTRY J0712000
1201 | * J0712010
1202 | * SET SWITCH J0712020
1203 | * J0712030
043B 6700 0467 1204 | LDX L3 CN015 SET .CN090. TO .CN015. J0712040
043D 6F00 04CE 1205 | STX L3 CN090 J0712050
1206 | * J0712060
1207 | * SET 'TO' DB ADDRESS IN USER AREA J0712070
1208 | * J0712080
043F 6780 021B 1209 | LDX I3 DE902 ADDR PREV DUMY, IF ANY J0712090
0441 C400 022B 1210 | LD L DE920 DB ADDR PROG IN U/F AREA J0712100
0443 7300 1211 | MDX 3 0 SKIP IF NO PREV DUMY J0712110
0444 9302 1212 | S 3 2 PT TO DB ADDR OF PREV DUMY J0712120
0445 D400 0224 1213 | STO L DE912 'TO' DB ADDR IN USER AREA J0712130
1214 | * J0712140
0447 E400 0527 1215 | AND L CN908 SAVE DB POSITION WITHIN THE J0712150
0449 D400 0520 1216 | STO L CN901 *SECTOR J0712160
1217 | * J0712170
1218 | ************************************************** J0712180
1219 | * BRANCH FOR INITIALIZATION OF LET/FLET PROCESSING J0712190
1220 | ************************************************** J0712200
1221 | * J0712210
044B C400 0227 1222 | LD L DE915 FETCH LET/FLET INDICATOR J0712220
044D 4C20 04CF 1223 | BSC L CN095,Z *AND BR IF PROCESSING FLET J0712230
1224 | * J0712240
1225 | ************************************************** J0712250
1226 | * INITIALIZE FOR LET PROCESSING J0712260
1227 | ************************************************** J0712270
1228 | * J0712280
044F C400 022C 1229 | LD L DE921 BRANCH IF PREVIOUS LET/FLET J0712290
0451 4C18 045D 1230 | BSC L CN005,+- *SCTR NOT READ J0712300
0453 4400 0665 1231 | BSI L FL000 FLIP BUFFER LOGIC TO PRO- J0712310
1232 | * *CESS PREVIOUS L/F SECTOR J0712320
0455 C400 021B 1233 | LD L DE902 ADDR OF PRECEDING DUMMY 2-1 J0712330
0457 4C20 0463 1234 | BSC L CN008,Z BRANCH IF DUMMY 2-1 J0712340
0459 6580 0732 1235 | LDX I1 BA060 GET ADDR OF LAST ENTRY 2-1 J0712350
045B 7103 1236 | MDX 1 3 POINT TO FOLL ENTRY 2-1 J0712360
045C 7008 1237 | MDX CN010 2-1 J0712370
1238 | * J0712380
045D 6580 0219 1239 | CN005 LDX I1 DE900 SET 'TO' WITH ADDR PRIME J0712390
045F C400 021B 1240 | LD L DE902 *ENTRY OR PRECEEDING DUMY J0712400
0461 4C18 0465 1241 | BSC L CN010,+- J0712410
0463 6580 021B 1242 | CN008 LDX I1 DE902 J0712420
0465 6680 021C 1243 | CN010 LDX I2 DE904 SET 'FROM' WITH ADDR OF J0712430
1244 | * *NEXT PRIME ENTRY J0712440
1245 | * J0712450
0467 C400 0227 1246 | CN015 LD L DE915 FETCH LET/FLET INDICATOR J0712460
0469 4C18 0530 1247 | BSC L CN155,+- *AND BR IF PROCESSING LET J0712470
1248 | * J0712480
1249 | ************************************************** J0712490
1250 | * SEARCH FOR LAST LET/FLET DUMY ENTRY J0712500
1251 | ************************************************** J0712510
1252 | * J0712520
046B C200 1253 | CN020 LD 2 0 FETCH 1ST WORD OF NAME J0712530
046C 1002 1254 | SLA 2 SHIFT OFF INDICATOR BITS J0712540
046D 9400 0521 1255 | S L CN902 '1DUMY MASK' J0712550
046F 4C18 059B 1256 | BSC L CN185,+- BR IF A DUMY ENTRY FOUND J0712560
1257 | * J0712570
0471 C000 1258 | LD * INDICATE ENTRY IS NOT 2-1 J0712580
0472 D400 0522 1259 | STO L CN903 *A DUMMY, WITH NEG NO. 2-1 J0712590
1260 | * J0712600
0474 C202 1261 | CN030 LD 2 2 ADD DB SIZE OF ENTRY TO J0712610
0475 8400 021A 1262 | A L DE901 *COMPUTE ADDR NEXT DCI/DDF J0712620
0477 D400 021A 1263 | STO L DE901 J0712630
0479 C202 1264 | LD 2 2 J0712640
047A 8400 0520 1265 | A L CN901 UPDATE CURRENT SCTR POSN J0712650
047C D400 0520 1266 | STO L CN901 J0712660
1267 | * J0712670
DUP-DELETE CN000
1269 | ************************************************** J0712690
1270 | * DETERMINE IF NEXT LET/FLET ENTRY WILL FIT IN 'TO' J0712700
1271 | * BUFFER (ALWAYS BFRA) J0712710
1272 | ************************************************** J0712720
1273 | * J0712730
047E C400 052F 1274 | LD L CN916 CHECK IF DUMMY TO BE 2-1 J0712740
0480 4C20 0491 1275 | BSC L CN050,Z *REMOVED WAS MOVED LAST 2-1 J0712750
1276 | * *ACROSS SCTR BOUNDARY 2-1 J0712760
1277 | * 2-1 J0712770
0482 6A01 1278 | STX 2 CN040 NU000 EXPECTS XR3 TO J0712780
0483 6700 0000 1279 | LDX L3 *-* *SPECIFY LOCN OF ENTRY J0712790
0484 1280 | CN040 EQU *-1 J0712800
0485 C400 0225 1281 | LD L DE913 NU000 NEEDS THE BFR ADDRESS J0712810
0487 D400 021F 1282 | STO L DE907 J0712820
0489 4400 064D 1283 | BSI L NU000 COMPUTE NO. WDS IN NEXT ENT J0712830
048B D006 1284 | STO CN060 *(RESULTS IN ACC) J0712840
048C 4400 05F8 1285 | BSI L CN800 DETERMINE IF ENT FITS IN J0712850
048E 7002 1286 | MDX CN050 *BFRA. BRANCH IF IT DOES J0712860
048F 4400 05DE 1287 | BSI L CN700 *BRANCH IF IT DOES NOT J0712870
1288 | * J0712880
1289 | ************************************************** J0712890
1290 | * MOVE A LET/FLET ENTRY J0712900
1291 | ************************************************** J0712910
1292 | * J0712920
0491 6700 0000 1293 | CN050 LDX L3 *-* SET WITH NO. WORDS IN ENTRY J0712930
0492 1294 | CN060 EQU *-1 J0712940
1295 | * 2-1 J0712950
0493 C400 052D 1296 | LD L CN914 FLIP INDICATORS FOR 2-1 J0712960
0495 D400 052E 1297 | STO L CN915 *LAST AND 2ND LAST MOVED2-1 J0712970
0497 C200 1298 | LD 2 0 GET TYPE OF ENTRY TO 2-1 J0712980
0498 180F 1299 | SRA 15 *MOVE,AND STORE IN 2-1 J0712990
0499 D400 052D 1300 | STO L CN914 *LAST-MOVED INDICATOR 2-1 J0713000
1301 | * 2-1 J0713010
049B C200 1302 | CN070 LD 2 0 MOVE J0713020
049C D100 1303 | STO 1 0 *A J0713030
049D 7201 1304 | MDX 2 1 *WORD J0713040
049E 7101 1305 | MDX 1 1 J0713050
049F 73FF 1306 | MDX 3 -1 SKIP WHEN ENTRY MOVED J0713060
04A0 70FA 1307 | MDX CN070 *OTHERWISE BR TO CONTINUE J0713070
1308 | * J0713080
1309 | * NOTE THAT XR1 AND XR2 ARE NOW UPDATED TO THEIR J0713090
1310 | * NEXT POSITIONS J0713100
1311 | * J0713110
1312 | ************************************************** J0713120
1313 | * DETERMINE IF THE 'FROM' BFR (BFRA OR BFRB) IS J0713130
1314 | * EMPTY J0713140
1315 | ************************************************** J0713150
1316 | * J0713160
1317 | * 2-10 J0713170
04A1 6780 0225 1318 | LDX I3 DE913 ADDR OF 'FROM' BFR J0713180
04A3 C400 0225 1319 | LD L DE913 ADDR OF 'FROM' BFR J0713190
04A5 8400 052C 1320 | A L CN913 321 J0713200
04A7 9305 1321 | S 3 5 NO. WORDS AVAIL THIS SCTR J0713210
04A8 6A7A 1322 | STX 2 CN904 2-10 J0713215
04A9 9079 1323 | S CN904 CURRENT POSITION J0713220
04AA 4C30 04BC 1324 | BSC L CN075,Z- BR IF "FROM" BFR NOT EMPTY J0713230
1325 | * J0713240
1326 | ************************************************** J0713250
1327 | * READ NEXT LET/FLET SCTR INTO BFRB J0713260
1328 | ************************************************** J0713270
1329 | * J0713280
04AC 6780 022E 1330 | LDX I3 BFRA J0713290
04AE C306 1331 | LD 3 6 FETCH NEXT L/F SCTR ADDR J0713300
04AF EC00 0223 1332 | OR L DE911 'OR' IN DRIVE CODE J0713310
04B1 6780 022F 1333 | LDX I3 BFRB J0713320
04B3 18D0 1334 | RTE 16 J0713330
04B4 C070 1335 | LD CN906 WD CNT OF 320 J0713340
04B5 DB00 1336 | STD 3 0 SET WD CNT, SECTOR ADDRESS J0713350
04B6 4400 03B6 1337 | BSI L GGET FETCH THE SECTOR J0713360
1338 | * J0713370
04B8 6F00 0225 1339 | STX L3 DE913 SAVE ADDR OF 'FROM' BFR J0713380
1340 | * J0713390
04BA 6680 0231 1341 | LDX I2 BFRBF POINT TO NEXT 'FROM' ENTRY J0713400
1342 | ************************************************** J0713410
1343 | * DETERMINE IF THE 'TO' BFR (BFRA) IS FILLED J0713420
1344 | ************************************************** J0713430
1345 | * J0713440
04BC C072 1346 | CN075 LD CN916 BR IF NOT RE-PROCESSING 2-1 J0713450
04BD 4C18 04C7 1347 | BSC L CN077,+- *A DUMMY THAT HAS BEEN 2-1 J0713460
1348 | * *MOVED ACROSS SCTR BNDY 2-1 J0713470
04BF 6780 022F 1349 | LDX I3 BFRB WR NEW VERSION OF PREV 2-1 J0713480
04C1 4400 03C0 1350 | BSI L PPUT *LET SECTOR TO DISK 2-1 J0713490
04C3 1010 1351 | SLA 16 2-1 J0713500
04C4 D06A 1352 | STO CN916 RESET SPECIAL INDICATOR 2-1 J0713510
04C5 7107 1353 | MDX 1 7 MOVE POINTER PAST HEADER2-1 J0713520
04C6 7006 1354 | MDX CN080 2-1 J0713530
04C7 695B 1355 | CN077 STX 1 CN904 J0713540
04C8 C400 0232 1356 | LD L BFRAL J0713550
04CA 9058 1357 | S CN904 J0713560
04CB 4428 05DE 1358 | BSI L CN700,Z+ BRANCH IF BFRA FILLED J0713570
1359 | * J0713580
1360 | * J0713590
1361 | ************************************************** J0713600
1362 | * .CN090. SWITCH J0713610
1363 | ************************************************** J0713620
1364 | * J0713630
04CD 4C00 0000 1365 | CN080 BSC L *-* SET WITH .CN015. OR .CN020. J0713640
04CE 1366 | CN090 EQU *-1 J0713650
1367 | * J0713660
1368 | ************************************************** J0713670
1369 | * INITIALIZE FOR FLET PROCESSING J0713680
1370 | ************************************************** J0713690
1371 | * J0713700
04CF 4400 0673 1372 | CN095 BSI L FD000 CONVERT SPECIFIED ENTRY TO J0713710
1373 | * *A DUMY AND COMBINE SURROU- J0713720
1374 | * *NDING DUMIES. J0713730
04D1 6780 021E 1375 | LDX I3 DE906 J0713740
04D3 7300 1376 | MDX 3 0 DETERMINE IF THERE EXISTS J0713750
04D4 700F 1377 | MDX CN120 *A FOLLOWING DUMY.BR IF YES J0713760
04D5 6680 021B 1378 | CN100 LDX I2 DE902 J0713770
04D7 7200 1379 | MDX 2 0 DETERMINE IF THERE EXISTS J0713780
04D8 7006 1380 | MDX CN110 *A PREV DUMMY. BR IF YES J0713790
1381 | * J0713800
1382 | * EXIT FROM DELETE. THERE IS NO FLET SHRINKAGE J0713810
1383 | * J0713820
1384 | ************************************************** J0713830
1385 | * DELETE EXIT J0713840
1386 | ************************************************** J0713850
1387 | * J0713860
04D9 6780 022E 1388 | LDX I3 BFRA WRITE FLET SCTR BACK TO J0713870
04DB 4400 03C0 1389 | BSI L PPUT *DISK J0713880
04DD 4C80 043A 1390 | CN115 BSC I CN000 EXIT J0713890
1391 | * J0713900
04DF 6580 0219 1392 | CN110 LDX I1 DE900 SET 'TO' WITH PRIME ENTRY J0713910
04E1 6680 021C 1393 | LDX I2 DE904 SET 'FROM' WITH NEXT PRIME J0713920
04E3 7083 1394 | MDX CN015 BRANCH TO CONTINUE J0713930
1395 | * J0713940
04E4 6580 021E 1396 | CN120 LDX I1 DE906 SET 'TO' WITH FOLLOW. DUMY J0713950
04E6 6780 022E 1397 | LDX I3 BFRA J0713960
04E8 C400 021D 1398 | LD L DE905 DETERMINE IF IT IS LAST L/F J0713970
04EA 4C18 04F9 1399 | BSC L CN130,+- *DUMY. BRANCH IF NOT J0713980
1400 | * J0713990
1401 | * LAST PROG IN FLET IS BEING DELETED J0714000
1402 | * J0714010
04EC C400 0232 1403 | LD L BFRAL UPDATE NO. WORDS AVAILABLE J0714020
04EE 9400 0683 1404 | S L FD030 J0714030
04F0 D305 1405 | STO 3 5 J0714040
1406 | * J0714050
04F1 1010 1407 | SLA 16 2-10 J0714053
04F2 D306 1408 | STO 3 6 SET CHAIN ADDR ZERO 2-10 J0714055
1409 | * 2-10 J0714058
04F3 C031 1410 | LD CN906 UPDATE WORD COUNT. THE SCTR J0714060
04F4 9305 1411 | S 3 5 *ADDRESS IS ASSUMED TO BE J0714070
04F5 D300 1412 | STO 3 0 *SET J0714080
04F6 4400 03C0 1413 | BSI L PPUT WRITE BFRA TO DISK J0714090
04F8 70E4 1414 | MDX CN115 EXIT FROM DELETE J0714100
1415 | * J0714110
04F9 C400 0225 1416 | CN130 LD L DE913 DETERMINE IF SECOND ENTRY J0714120
04FB D400 021F 1417 | STO L DE907 *FOLLOWING THE SPECIFIED J0714130
04FD C400 021C 1418 | LD L DE904 *ENTRY IS IN THE 'FROM' BFR J0714140
04FF 8024 1419 | A CN905 * J0714150
0500 D004 1420 | STO CN140 * J0714160
0501 4400 0639 1421 | BSI L IB000 * J0714170
0503 700A 1422 | MDX CN150 *BRANCH IF NOT J0714180
1423 | * J0714190
0504 6600 0000 1424 | LDX L2 *-* SET 'FROM' WITH THIS '2ND' J0714200
0505 1425 | CN140 EQU *-1 *ENTRY J0714210
0506 C400 021B 1426 | LD L DE902 DETERMINE IF HAD PREV DUMY J0714220
0508 4C18 0467 1427 | BSC L CN015,+- BR IF NOT PREV 1DUMY 2-2 J0714230
050A 6580 0219 1428 | LDX I1 DE900 FLET ADDR OF FOLL 1DUMY 2-2 J0714240
050C 4C00 0467 1429 | BSC L CN015 BR TO CONTINUE 2-2 J0714250
1430 | * J0714260
050E C306 1431 | CN150 LD 3 6 SCTR ADDR NEXT LET/FLET STR J0714270
050F EC00 0223 1432 | OR L DE911 'OR' IN DRIVE CODE J0714280
0511 6780 022F 1433 | LDX I3 BFRB J0714290
0513 18D0 1434 | RTE 16 J0714300
0514 C010 1435 | LD CN906 WORD COUNT OF 320 J0714310
0515 DB00 1436 | STD 3 0 SET WD CNT, SCTR ADDR J0714320
0516 4400 03B6 1437 | BSI L GGET FETCH NEXT LET/FLET SCTR J0714330
1438 | * J0714340
0518 6680 0231 1439 | LDX I2 BFRBF SET 'FROM' WITH FIRST ENTRY J0714350
051A C400 022F 1440 | LD L BFRB SAVE ADDR OF 'FROM' BUFFER J0714360
051C D400 0225 1441 | STO L DE913 *(BFRB) J0714370
051E 70B6 1442 | MDX CN100 BRANCH TO CONTINUE J0714380
1443 | ************************************************** J0714390
1444 | * STORAGE FOR CONSTANTS AND VARIABLES J0714400
1445 | ************************************************** J0714410
1446 | * J0714420
051F 0000 1447 | CN900 DC *-* WASTEBASKET J0714430
0520 0000 1448 | CN901 DC *-* DB POSN IN BFR (REM) J0714440
0521 C448 1449 | CN902 DC /C448 1ST WD '1DUMY' SHIFTED LFT2 J0714450
0522 FFFF 1450 | CN903 DC /FFFF NON-NEG IF LAST MOVED DMY2-1 J0714460
0523 0000 1451 | CN904 DC *-* WASTEBASKET J0714470
0524 0003 1452 | CN905 DC 3 NO. WORDS PER ENTRY J0714480
0525 0140 1453 | CN906 DC 320 SCTR WORD COUNT J0714490
0526 0142 1454 | CN907 DC 322 CONSTANT J0714500
0527 000F 1455 | CN908 DC 15 MASK FOR UNSECTORIZED DB'S J0714510
0528 0010 1456 | CN909 DC 16 NO. DB"S PER SECTOR J0714520
0529 7112 1457 | CN910 DC /7112 '1DUMY' IN NAME CODE WITH J0714530
052A 4528 1458 | CN911 DC /4528 *INDICATOR BITS OF 01 J0714540
052B 0000 1459 | CN912 DC *-* UNSECTORIZED DB'S OF REM J0714550
052C 0141 1460 | CN913 DC 321 CONSTANT J0714560
052D 0000 1461 | CN914 DC *-* IND LAST MOVED ENTRY TYP2-1 J0714570
1462 | * *1 = DDF/DCI, 0 = OTHER 2-1 J0714580
052E 0000 1463 | CN915 DC *-* IND 2ND LAST MOVED ENTRY2-1 J0714590
052F 0000 1464 | CN916 DC *-* SPECIAL IND, NON-ZERO IF2-1 J0714600
1465 | * *PREV DUMMY NOT IN BFRA 2-1 J0714610
DUP-DELETE CN000
1467 | ************************************************** J0714630
1468 | * LET PROCESSING. TEST ENTRY FOR BEING A DCI OR J0714640
1469 | * DDF PROGRAM J0714650
1470 | ************************************************** J0714660
1471 | * J0714670
0530 C200 1472 | CN155 LD 2 0 TEST INDICATOR BIT AND J0714680
0531 4C10 046B 1473 | BSC L CN020,- *BRANCH IF NOT DCI OR DDF J0714690
1474 | * J0714700
1475 | * DCI OR DDF ENTRY FOUND J0714710
1476 | * J0714720
0533 C0EE 1477 | LD CN903 SAVE SIZE OF PRECEEDING J0714730
0534 D400 0229 1478 | STO L DE918 *DUMY J0714740
0536 C400 021A 1479 | LD L DE901 SAVE DB ADDR OF NEXT DCI OR J0714750
0538 D400 0228 1480 | STO L DE917 *DDF PROGRAM J0714760
053A C0E5 1481 | LD CN901 'AND' OUT NO. OF DB'S FROM J0714770
053B E0EB 1482 | AND CN908 *START OF SECTOR J0714780
053C D0EE 1483 | STO CN912 J0714790
053D 4C20 0548 1484 | BSC L CN156,Z BR IF NOT UA SCTR BNDRY 2-1 J0714800
053F C0E2 1485 | LD CN903 IF LAST ENTRY PROCESSED 2-1 J0714810
0540 4C10 0564 1486 | BSC L CN165,- *WAS DUMMY,BR TO UPDATE 2-1 J0714820
0542 C0EA 1487 | LD CN914 NO DUMMY. CHK TYPE PREV 2-1 J0714830
0543 4C20 055E 1488 | BSC L CN160,Z *ENTRY, BR IF DDF/DCI 2-1 J0714840
0545 C0E2 1489 | LD CN909 PREV ENTRY DSF. PREPARE 2-1 J0714850
0546 D0E4 1490 | STO CN912 *FOR INSERTING DUMMY OF 2-1 J0714860
0547 7003 1491 | MDX CN157 *ZERO DB'S 2-1 J0714870
1492 | * J0714880
1493 | * INSERT OR UPDATE A DUMY J0714890
1494 | * J0714900
0548 C0D9 1495 | CN156 LD CN903 DETERMINE IF LAST ENTRY J0714910
0549 4C10 0564 1496 | BSC L CN165,- *PROC'D A DUMMY.BR YES 2-1 J0714920
1497 | * J0714930
1498 | * INSERT A DUMY J0714940
1499 | * J0714950
054B C0D8 1500 | CN157 LD CN905 DETERMINE IF ROOM FOR NEW J0714960
054C 4400 05F8 1501 | BSI L CN800 *DUMY ENT IN "TO" BFR J0714970
054E 7002 1502 | MDX CN158 *BRANCH IF THERE IS J0714980
1503 | * J0714990
054F 4400 05DE 1504 | BSI L CN700 J0715000
1505 | * *AND UPDATE FOR NEXT'TO'BFR J0715010
0551 C0D6 1506 | CN158 LD CN909 J0715020
0552 90D8 1507 | S CN912 J0715030
0553 D102 1508 | STO 1 2 SIZE OF DUMY J0715040
0554 C0D4 1509 | LD CN910 J0715050
0555 D100 1510 | STO 1 0 NAME J0715060
0556 C0D3 1511 | LD CN911 *OF J0715070
0557 D101 1512 | STO 1 1 *DUMMY J0715080
0558 C400 0226 1513 | LD L DE914 UPDATE LAST DUMMY INCR J0715090
055A 9102 1514 | S 1 2 J0715100
055B D400 0226 1515 | STO L DE914 J0715110
055D 7103 1516 | MDX 1 3 RESET 'TO' ADDR J0715120
1517 | * J0715130
1518 | * SET SWITCH J0715140
1519 | * J0715150
055E 6700 046B 1520 | CN160 LDX L3 CN020 SET SWITCH CN090 TO J0715160
0560 6F00 04CE 1521 | STX L3 CN090 *CN020 J0715170
0562 4C00 046B 1522 | BSC L CN020 BRANCH TO CONTINUE J0715180
1523 | * J0715190
1524 | * LAST LET ENTRY PROCESSED WAS A DUMY - UPDATE J0715200
1525 | * IT IF NECESSARY J0715210
1526 | * J0715220
0564 69BA 1527 | CN165 STX 1 CN900 2-1 J0715230
0565 C0B9 1528 | LD CN900 2-1 J0715240
0566 90BD 1529 | S CN905 2-1 J0715250
0567 9400 0230 1530 | S L BFRAF DETERMINE IF PREV DUMMY 2-1 J0715260
0569 4C28 058E 1531 | BSC L CN175,Z+ *IS IN BFRA. BR IF NOT 2-1 J0715270
056B C0B4 1532 | CN167 LD CN901 2-1 J0715280
056C 91FF 1533 | S 1 -1 SUB SIZE OF PREV DUMMY 2-1 J0715290
056D E0B9 1534 | AND CN908 2-1 J0715300
056E D0BC 1535 | STO CN912 SAVE REMAINING DBS 2-1 J0715310
1536 | * J0715320
056F C400 0226 1537 | CN168 LD L DE914 UPDATE LAST DUMY INCREMENT J0715330
0571 81FF 1538 | A 1 -1 J0715340
0572 D400 0226 1539 | STO L DE914 J0715350
0574 C0B6 1540 | LD CN912 J0715360
0575 4C20 057C 1541 | BSC L CN170,Z *DUMY WILL SECTORIZE.BR NO J0715370
0577 C0B6 1542 | CN169 LD CN915 CHK TYPE OF ENTRY BEFORE2-1 J0715380
0578 4C18 057E 1543 | BSC L CN172,+- *DUMMY,BRANCH IF DSF 2-1 J0715390
057A 71FD 1544 | MDX 1 -3 POINT 'TO' OVER PREV DUMY J0715400
057B 70E2 1545 | MDX CN160 BRANCH TO CONTINUE J0715410
1546 | * J0715420
057C C0AB 1547 | CN170 LD CN909 UPDATE PREV DUMY TO SECTOR- J0715430
057D 90AD 1548 | S CN912 *IZE NEXT PROGRAM J0715440
057E D1FF 1549 | CN172 STO 1 -1 J0715450
057F C400 0226 1550 | LD L DE914 UPDATE LAST DUMY INCREMENT J0715460
0581 91FF 1551 | S 1 -1 J0715470
0582 D400 0226 1552 | STO L DE914 J0715480
1553 | * 2-1 J0715490
0584 C0AA 1554 | LD CN916 IF DUMMY ENTRY IN PREV 2-1 J0715500
0585 4C18 055E 1555 | BSC L CN160,+- *SECTOR,DON'T BR TO CONT2-1 J0715510
0587 4400 03C0 1556 | BSI L PPUT WRITE SCTR WITH UPDATED 2-1 J0715520
0589 1010 1557 | SLA 16 *DUMMY TO DISK, AND 2-1 J0715530
058A D0A4 1558 | STO CN916 *RESTORE SPECIAL INDR 2-1 J0715540
058B 6580 0230 1559 | LDX I1 BFRAF PT TO 1ST ENT NEXT SCTR 2-3 J0715550
058D 70D0 1560 | MDX CN160 BRANCH TO CONTINUE J0715560
1561 | * J0715570
1562 | * PREVIOUS ENTRY NOT IN BFRA. ASSUME IT IS IN BFRB J0715580
1563 | * J0715590
058E 6780 022F 1564 | CN175 LDX I3 BFRB J0715600
0590 C400 0233 1565 | LD L BFRBL J0715610
0592 9305 1566 | S 3 5 J0715620
0593 D001 1567 | STO CN180 J0715630
0594 6500 0000 1568 | LDX L1 *-* SET WITH ADDR OF LAST ENTRY J0715640
0595 1569 | CN180 EQU *-1 J0715650
0596 7103 1570 | MDX 1 3 J0715660
0597 D097 1571 | STO CN916 IND DUMMY IN PREV SCTR 2-1 J0715670
0598 70D2 1572 | MDX CN167 BR TO COMP REM DB'S 2-1 J0715680
1573 | * J0715690
1574 | ************************************************** J0715700
1575 | * A DUMY ENTRY HAS BEEN FOUND IN EITHER LET OR FLET J0715710
1576 | ************************************************** J0715720
1577 | * J0715730
0599 4C00 0474 1578 | CN183 BSC L CN030 BRANCH TO CONTINUE J0715740
1579 | * J0715750
059B C202 1580 | CN185 LD 2 2 INDICATE DUMMY BEING MOVED J0715760
059C D085 1581 | STO CN903 J0715770
1582 | * J0715780
059D C400 0225 1583 | LD L DE913 ADDR OF 'FROM' BFR J0715790
059F D400 021F 1584 | STO L DE907 J0715800
05A1 4079 1585 | BSI LA000 DETERMINE IF LAST LET/FLET J0715810
05A2 70F6 1586 | MDX CN183 SCTR. BRANCH IF NOT J0715820
05A3 6A01 1587 | STX 2 CN190 J0715830
05A4 6700 0000 1588 | LDX L3 *-* IB000 EXPECTS XR3 SET WITH J0715840
05A5 1589 | CN190 EQU *-1 *ADDRESS TO BE TESTED J0715850
05A6 7303 1590 | MDX 3 3 POINT TO NEXT ENTRY J0715860
05A7 4400 0639 1591 | BSI L IB000 DETERMINE IF NEXT ENTRY IS J0715870
05A9 7001 1592 | MDX CN193 *IN BFR AND BRANCH IF NOT J0715880
05AA 70EE 1593 | MDX CN183 J0715890
1594 | * J0715900
1595 | * THE LAST LET/FLET DUMY HAS BEEN FOUND J0715910
1596 | * J0715920
05AB C400 0227 1597 | CN193 LD L DE915 FETCH LET/FLET INDICATOR J0715930
05AD 4C20 05BB 1598 | BSC L CN195,Z BRANCH IF PROCESSING FLET J0715940
1599 | * J0715950
1600 | * J0715960
05AF C400 0228 1601 | LD L DE917 J0715970
05B1 4C20 05B7 1602 | BSC L CN194,Z J0715980
05B3 C400 021A 1603 | LD L DE901 J0715990
05B5 D400 0228 1604 | STO L DE917 J0716000
05B7 C202 1605 | CN194 LD 2 2 J0716010
05B8 8400 0226 1606 | A L DE914 *ENTRY J0716020
05BA D202 1607 | STO 2 2 J0716030
1608 | * J0716040
05BB C400 0524 1609 | CN195 LD L CN905 3 J0716050
05BD 403A 1610 | BSI CN800 DETERMINE IF DUMY WILL FIT J0716060
05BE 7001 1611 | MDX CN200 *IN BFRA. BR IF IT WILL J0716070
1612 | * J0716080
05BF 401E 1613 | BSI CN700 WRITE 'TO' BFR TO DISK J0716090
1614 | * J0716100
05C0 C200 1615 | CN200 LD 2 0 MOVE J0716110
05C1 D100 1616 | STO 1 0 *THE J0716120
05C2 C201 1617 | LD 2 1 *LAST J0716130
05C3 D101 1618 | STO 1 1 *DUMMY J0716140
05C4 C202 1619 | LD 2 2 *ENTRY J0716150
05C5 D102 1620 | STO 1 2 J0716160
05C6 7103 1621 | MDX 1 3 INCREMENT 'TO' POINTER J0716170
05C7 6D00 051F 1622 | STX L1 CN900 J0716180
05C9 C400 0232 1623 | LD L BFRAL J0716190
05CB 8400 0524 1624 | A L CN905 3 J0716200
05CD 9400 051F 1625 | S L CN900 J0716210
05CF 6780 022E 1626 | LDX I3 BFRA UPDATE NO. WDS AVAILABLE J0716220
05D1 D305 1627 | STO 3 5 *IN LET/FLET HEADER J0716230
1628 | * J0716240
05D2 C400 0525 1629 | LD L CN906 SET WORD COUNT. SCTR ADDR J0716250
05D4 9305 1630 | S 3 5 *ASSUMED TO BE SET J0716260
05D5 D300 1631 | STO 3 0 J0716270
1632 | * J0716280
05D6 6580 0225 1633 | LDX I1 DE913 SET IN SECTOR ID WHICH WAS J0716290
05D8 C106 1634 | LD 1 6 SET CHAIN ADDRESS J0716300
05D9 D306 1635 | STO 3 6 J0716310
1636 | * J0716320
05DA 4400 03C0 1637 | BSI L PPUT WRITE LAST L/F SCTR TO DISK J0716330
1638 | * J0716340
05DC 4C80 043A 1639 | BSC I CN000 EXIT FROM CN000 J0716350
DUP-DELETE CN000
1641 | ************************************************** J0716370
1642 | * CN700 WRITES BFRA TO THE DISK AND RESETS CON- J0716380
1643 | * TROLS J0716390
1644 | * BSI CN700 J0716400
1645 | * NORMAL RETURN J0716410
1646 | ************************************************** J0716420
1647 | * J0716430
1648 | * J0716440
05DE 0000 1649 | CN700 DC *-* ENTRY J0716450
1650 | * J0716460
1651 | * UPDATE NO. WDS AVAILABLE IN HEADER J0716470
1652 | * J0716480
05DF 6D00 0523 1653 | STX L1 CN904 J0716490
05E1 6D00 0523 1654 | STX L1 CN904 J0716500
05E3 C400 0232 1655 | LD L BFRAL J0716510
05E5 8400 0524 1656 | A L CN905 J0716520
05E7 9400 0523 1657 | S L CN904 1ST AVAILABLE POSITION J0716530
05E9 6780 022E 1658 | LDX I3 BFRA J0716540
05EB D305 1659 | STO 3 5 NO. WDS AVAILABLE J0716550
1660 | * J0716560
1661 | * WRITE BFRA TO DISK J0716570
1662 | * J0716580
05EC C400 0525 1663 | LD L CN906 SET WORD COUNT. SCTR ADDR J0716590
05EE 9305 1664 | S 3 5 *ASSUMED SET J0716600
05EF D300 1665 | STO 3 0 J0716610
05F0 4400 03C0 1666 | BSI L PPUT WRITE BFRA TO DISK J0716620
1667 | * J0716630
1668 | * FLIP BFRA/BFRB LOGIC AND RESET 'TO' ADDR J0716640
1669 | * J0716650
05F2 4400 0665 1670 | BSI L FL000 FLIP LOGIC J0716660
05F4 6580 0230 1671 | LDX I1 BFRAF RESET "TO" J0716670
05F6 4C80 05DE 1672 | BSC I CN700 EXIT J0716680
1673 | * J0716690
1674 | ************************************************** J0716700
DUP-DELETE CN000
1676 | ************************************************** J0716720
1677 | * CN800 DETERMINES IF A MULTI-ENTRY WILL FIT INTO J0716730
1678 | * BFRA. THE ACCUMULATOR MUST CONTAIN THE J0716740
1679 | * NUMBER OF WORDS IN THE MULTI-ENTRY AND XR1 J0716750
1680 | * MUST POINT TO THE FIRST AVAILABLE LOCATION J0716760
1681 | * IN BFRA. J0716770
1682 | * BSI CN800 J0716780
1683 | * YES EXIT J0716790
1684 | * NO EXIT J0716800
1685 | ************************************************** J0716810
1686 | * J0716820
05F8 0000 1687 | CN800 DC *-* ENTRY J0716830
05F9 D400 051F 1688 | STO L CN900 NO. WDS IN ENTRY J0716840
05FB 6D00 0523 1689 | STX L1 CN904 1ST AVAILABLE LOCATION J0716850
05FD C400 0232 1690 | LD L BFRAL J0716860
05FF 8400 0524 1691 | A L CN905 J0716870
0601 9400 0523 1692 | S L CN904 ACC SET WITH NO. WDS AVAIL J0716880
0603 9400 051F 1693 | S L CN900 NO. WDS REQUIRED J0716890
0605 4C90 05F8 1694 | BSC I CN800,- EXIT CALL+1 IF IT FITS J0716900
0607 7401 05F8 1695 | MDX L CN800,1 J0716910
0609 4C80 05F8 1696 | BSC I CN800 EXIT CALL+2. DOES NOT FIT J0716920
1697 | * J0716930
1698 | ************************************************** J0716940
DUP-DELETE FI000
1700 | ************************************************** J0716960
1701 | * FI000 DETERMINES IF A SPECIFIED LET/FLET SECTOR J0716970
1702 | * IS THE FIRST LET SECTOR OR FIRST FLET SCTR J0716980
1703 | * BFRA MUST CONTAIN THE ADDRESS OF THE SCTR J0716990
1704 | * TO BE TESTED J0717000
1705 | * BSI FI000 J0717010
1706 | * EXIT IF NOT FIRST SECTOR J0717020
1707 | * EXIT IF FIRST SECTOR J0717030
1708 | ************************************************** J0717040
1709 | * J0717050
060B 0000 1710 | FI000 DC *-* ENTRY J0717060
060C 690A 1711 | STX 1 FI010 SAVE XR1 J0717070
060D 6580 022E 1712 | LDX I1 BFRA POINT TO SECTOR J0717080
060F C102 1713 | LD 1 2 FETCH SECTOR ID J0717090
0610 4820 1714 | BSC Z BR IF FIRST LET SCTR. ID=0 J0717100
0611 9008 1715 | S FI900 FIRST FLET SCTR ID=16 J0717110
0612 4C20 0616 1716 | BSC L FI005,Z BR IF A FIRST SCTR J0717120
0614 7401 060B 1717 | MDX L FI000,1 SET EXIT TO CALL+2 J0717130
0616 6500 0000 1718 | FI005 LDX L1 *-* RESTORE XR1 J0717140
0617 1719 | FI010 EQU *-1 J0717150
0618 4C80 060B 1720 | BSC I FI000 EXIT J0717160
1721 | * J0717170
1722 | ************************************************** J0717180
1723 | *STORAGE FOR CONSTANTS AND VARIABLES IN FI000 J0717190
1724 | ************************************************** J0717200
1725 | * J0717210
061A 0010 1726 | FI900 DC 16 SCTR ID FOR FIRST FLET SCTR J0717220
1727 | * J0717230
1728 | ************************************************** J0717240
DUP-DELETE LA000
1730 | ************************************************** J0717260
1731 | * LA000 DETERMINES IF A SPECIFIED LET/FLET SECTOR J0717270
1732 | * IS THE LAST LET SECTOR OR LAST FLET SECTOR J0717280
1733 | * ACC MUST CONTAIN THE ADDRESS OF THE SECTOR J0717290
1734 | * TO BE TESTED J0717300
1735 | * BSI LA000 J0717310
1736 | * EXIT IF NOT LAST SCTR J0717320
1737 | * EXIT IF LAST SCTR J0717330
1738 | ************************************************** J0717340
1739 | * J0717350
061B 0000 1740 | LA000 DC *-* ENTRY J0717360
061C 6B0B 1741 | STX 3 LA010 SAVE XR3 J0717370
061D D001 1742 | STO LA003 J0717380
061E 6700 0000 1743 | LDX L3 *-* POINT TO BUFFER TO BE J0717390
061F 1744 | LA003 EQU *-1 *TESTED J0717400
0620 C306 1745 | LD 3 6 FETCH CHAIN ADDRESS J0717410
0621 4C18 062B 1746 | BSC L LA020,+- BR IF LAST SECTOR J0717420
0623 9400 0220 1747 | S L DE908 FIRST FLET SCTR ADDRESS J0717430
0625 4C18 062B 1748 | BSC L LA020,+- BR IF LAST LET SCTR J0717440
0627 6700 0000 1749 | LA005 LDX L3 *-* RESTORE XR3 J0717450
0628 1750 | LA010 EQU *-1 J0717460
0629 4C80 061B 1751 | BSC I LA000 EXIT J0717470
062B 7401 061B 1752 | LA020 MDX L LA000,1 SET EXIT TO CALL+2 J0717480
062D 70F9 1753 | MDX LA005 BR TO EXIT J0717490
1754 | * J0717500
1755 | ************************************************** J0717510
DUP-DELETE TD000
1757 | *************************************************** J0717530
1758 | * TD000 DETERMINES IF A SPECIFIED LET/FLET ENTRY J0717540
1759 | * IS A DUMY ENTRY J0717550
1760 | * XR3 MUST POINT TO THE ENTRY J0717560
1761 | * BSI TD000 J0717570
1762 | * EXIT IF IT IS A DUMY J0717580
1763 | * EXIT IF IT IS NOT J0717590
1764 | *************************************************** J0717600
1765 | * J0717610
062E 0000 1766 | TD000 DC *-* ENTRY J0717620
062F C300 1767 | LD 3 0 FIRST WORD OF THE NAME J0717630
0630 1002 1768 | SLA 2 SHIFT OFF INDICATOR BITS J0717640
0631 9006 1769 | S TD900 1ST WD '1DUMY' SHIFTED LFT2 J0717650
0632 4C98 062E 1770 | BSC I TD000,+- EXIT TO CALL + 1 IF IT IS J0717660
0634 7401 062E 1771 | MDX L TD000,1 J0717670
0636 4C80 062E 1772 | BSC I TD000 EXIT TO CALL + 2 IF NOT J0717680
1773 | * J0717690
1774 | *************************************************** J0717700
1775 | * STORAGE FOR CONSTANTS AND VARIABLES IN TD000 J0717710
1776 | *************************************************** J0717720
1777 | * J0717730
0638 C448 1778 | TD900 DC /C448 1ST WD '1DUMY' SHIFTED LFT2 J0717740
1779 | * J0717750
1780 | *************************************************** J0717760
DUP-DELETE IB000
1782 | *************************************************** J0717780
1783 | * IB000 DETERMINES IF A SPECIFIED ENTRY IS IN A J0717790
1784 | * SPECIFIED BUFFER J0717800
1785 | * XR3 MUST POINT TO THE ENTRY TO BE TESTED J0717810
1786 | * DE907 MUST CONTAIN THE BUFFER ADDRESS J0717820
1787 | * BSI IB000 J0717830
1788 | * NOT IN BFR EXIT J0717840
1789 | * IN BFR EXIT J0717850
1790 | *************************************************** J0717860
1791 | * J0717870
0639 0000 1792 | IB000 DC *-* ENTRY J0717880
063A 6B0A 1793 | STX 3 IB010 SAVE ADDRESS TO BE TESTED J0717890
063B 6780 021F 1794 | LDX I3 DE907 ADDR OF BFRA OR BFRB J0717900
063D 7700 0142 1795 | MDX L3 322 POINT TO 1+END OF BFRA/BFRB J0717910
063F 6B0C 1796 | STX 3 IB900 J0717920
0640 C00B 1797 | LD IB900 J0717930
0641 9700 FEC3 1798 | S L3 -317 NO. WDS AVAIL THIS L/F SCTR J0717940
0643 9001 1799 | S IB010 ADDRESS TO CHECK J0717950
0644 6700 0000 1800 | LDX L3 *-* RESTORE XR3 J0717960
0645 1801 | IB010 EQU *-1 J0717970
0646 4C88 0639 1802 | BSC I IB000,+ EXIT CALL + 1 IF NOT IN BFR J0717980
0648 7401 0639 1803 | MDX L IB000,1 J0717990
064A 4C80 0639 1804 | BSC I IB000 EXIT CALL + 2 IF IN BFR J0718000
1805 | * J0718010
1806 | *************************************************** J0718020
1807 | * STORAGE FOR CONSTANTS AND VARIABLES IN IB000 J0718030
1808 | *************************************************** J0718040
1809 | * J0718050
064C 0000 1810 | IB900 DC *-* WASTEBASKET J0718060
1811 | * J0718070
1812 | *************************************************** J0718080
DUP-DELETE NU000
1814 | *************************************************** J0718100
1815 | * NU000 COUNTS THE NUMBER OF WORDS IN A SPECIFIED J0718110
1816 | * ENTRY AND SAVES THE ADDRESS OF THE FOLLOW- J0718120
1817 | * ING ENTRY IN NU900 J0718130
1818 | * XR3 MUST POINT TO THE ENTRY J0718140
1819 | * EXITS WITH THE WORD COUNT IN THE ACC J0718150
1820 | * BSI NU000 J0718160
1821 | *************************************************** J0718170
1822 | * J0718180
064D 0000 1823 | NU000 DC *-* ENTRY J0718190
064E 6B0F 1824 | STX 3 NU040 SAVE INITIAL ADDRESS J0718200
064F C014 1825 | LD NU902 COUNT 3 WDS FOR THE PRIMARY J0718210
0650 D012 1826 | STO NU901 *ENTRY POINT J0718220
1827 | * J0718230
1828 | * TEST FOR NEXT PRIMARY ENTRY POINT J0718240
1829 | * J0718250
0651 7303 1830 | NU020 MDX 3 3 POINT TO NEXT ENTRY AND J0718260
0652 6B0F 1831 | STX 3 NU900 *SAVE ITS LOCATION J0718270
1832 | * J0718280
0653 40E5 1833 | BSI IB000 DETERMINE IF NEXT ENTRY IS J0718290
0654 7008 1834 | MDX NU030 *IN THE BFR. BRANCH IF NOT J0718300
1835 | * J0718310
0655 40D8 1836 | BSI TD000 THIS TEST IS NECESSARY J0718320
0656 7006 1837 | MDX NU030 *BECAUSE THE LAST 1DUMY MAY J0718330
1838 | * *HABE A 0 DB COUNT J0718340
0657 C302 1839 | LD 3 2 J0718350
0658 4C20 065D 1840 | BSC L NU030,Z BR IF NOT SECONDARY ENT PT J0718360
065A 7403 0663 1841 | MDX L NU901,3 COUNT 3 MORE WORDS J0718370
065C 70F4 1842 | MDX NU020 BRANCH TO CONTINUE J0718380
1843 | * J0718390
1844 | * THE NEXT PRIMARY ENTRY POINT HAS BEEN FOUND J0718400
1845 | * J0718410
065D 6700 0000 1846 | NU030 LDX L3 *-* RESTORE XR3 J0718420
065E 1847 | NU040 EQU *-1 J0718430
065F C003 1848 | LD NU901 FETCH NO. WORDS COUNTED J0718440
0660 4C80 064D 1849 | BSC I NU000 EXIT J0718450
1850 | * J0718460
1851 | *************************************************** J0718470
1852 | * STORAGE FOR CONSTANTS AND VARIABLES IN NU000 J0718480
1853 | *************************************************** J0718490
1854 | * J0718500
0662 0000 1855 | NU900 DC *-* ADDR NEXT PRIME ENTRY POINT J0718510
0663 0000 1856 | NU901 DC *-* NO. WORDS IN ENTRY J0718520
0664 0003 1857 | NU902 DC 3 CONSTANT J0718530
1858 | * J0718540
1859 | *************************************************** J0718550
DUP-DELETE FL000
1861 | ************************************************** J0718570
1862 | * FL000 FLIPS THE BUFFER LOGIC BETWEEN BFRA AND J0718580
1863 | * BFRB. THE CONTENTS OF THE FOLLOWING CON- J0718590
1864 | * TROLS ARE EXCHANGED. J0718600
1865 | * BFRA AND BFRB J0718610
1866 | * BFRAF AND BFRBF J0718620
1867 | * BFRAL AND BFRBL J0718630
1868 | * BSI FL000 J0718640
1869 | ************************************************** J0718650
1870 | * J0718660
0665 0000 1871 | FL000 DC *-* ENTRY J0718670
0666 6909 1872 | STX 1 FL030 SAVE XR1 J0718680
0667 6106 1873 | LDX 1 6 SET LOOP COUNTER J0718690
0668 CD00 022C 1874 | FL010 LDD L1 BFRA-2 REVERSE J0718700
066A 18D0 1875 | RTE 16 *TWO J0718710
066B DD00 022C 1876 | STD L1 BFRA-2 *ENTRIES J0718720
066D 71FE 1877 | MDX 1 -2 SKIP WHEN 3 PAIRS REVERSED J0718730
066E 70F9 1878 | MDX FL010 BR TO CONTINUE J0718740
066F 6500 0000 1879 | LDX L1 *-* RESTORE XR1 J0718750
0670 1880 | FL030 EQU *-1 J0718760
0671 4C80 0665 1881 | BSC I FL000 EXIT J0718770
1882 | * J0718780
1883 | ************************************************** J0718790
DUP-DELETE FD000
1885 | ************************************************** J0718810
1886 | * FD000 CONVERTS THE FLET ENTRY TO BE DELETED TO A J0718820
1887 | * 1DUMY ENTRY. ADJACENT 1 DUMY ENTRIES ARE J0718830
1888 | * THEN COMBINED AND STORED IN THE POSITION J0718840
1889 | * OF THE FIRST 1 DUMY ENTRY. I.E. IN PLACE OF J0718850
1890 | * A PREVIOUS 1DUMY ENTRY IF ONE EXISTS OR IN J0718860
1891 | * THE POSITION OF THE CONVERTED FLET ENTRY.N J0718870
1892 | ************************************************* J0718880
1893 | * J0718890
0673 0000 1894 | FD000 DC *-* ENTRY J0718900
0674 6580 0219 1895 | LDX I1 DE900 ADDR OF PRIME ENTRY J0718910
0676 6680 021B 1896 | LDX I2 DE902 ADDR OF PRECEEDING DUMY J0718920
0678 6780 021E 1897 | LDX I3 DE906 ADDR OF FOLLOWING DUMY J0718930
067A 6908 1898 | STX 1 FD030 ADDR FOR CONSTRUCTING DUMY J0718940
067B 7200 1899 | MDX 2 0 SKIP IF NO PRECEEDING DUMY J0718950
067C 700F 1900 | MDX FD040 BR TO PROCESS PRECEED. DUMY J0718960
067D C102 1901 | FD010 LD 1 2 ADD DB"S OF PRIME ENTRY J0718970
067E 8018 1902 | A FD902 *TO DB COUNTER J0718980
067F D017 1903 | STO FD902 J0718990
0680 7300 1904 | MDX 3 0 SKIP IF NO FOLLOWING DUMY J0719000
0681 700F 1905 | MDX FD050 BR TO PROCESS FOLLOWING DMY J0719010
0682 6500 0000 1906 | FD020 LDX L1 *-* SET WITH ADDR TO STORE NEW J0719020
0683 1907 | FD030 EQU *-1 *DUMY ENTRY J0719030
0684 C010 1908 | LD FD900 STORE J0719040
0685 D100 1909 | STO 1 0 *THE J0719050
0686 C00F 1910 | LD FD901 *NEW J0719060
0687 D101 1911 | STO 1 1 *DUMY J0719070
0688 C00E 1912 | LD FD902 *ENTRY J0719080
0689 D102 1913 | STO 1 2 J0719090
068A 4C80 0673 1914 | BSC I FD000 EXIT J0719100
1915 | * J0719110
1916 | * PROCESS PRECEEDING DUMY J0719120
1917 | * J0719130
068C 6AF6 1918 | FD040 STX 2 FD030 ADDR TO CONSTRUCT NEW DUMY J0719140
068D C202 1919 | LD 2 2 ADD DB SIZE OF DUMY TO DB J0719150
068E 8008 1920 | A FD902 *COUNTER J0719160
068F D007 1921 | STO FD902 J0719170
0690 70EC 1922 | MDX FD010 BR TO CONTINUE J0719180
1923 | * J0719190
1924 | * PROCESS FOLLOWING DUMY J0719200
1925 | * J0719210
0691 C302 1926 | FD050 LD 3 2 J0719220
0692 8004 1927 | A FD902 ADD DB SIZE OF DUMY TO DB J0719230
0693 D003 1928 | STO FD902 *COUNTER J0719240
0694 70ED 1929 | MDX FD020 J0719250
1930 | * J0719260
1931 | * J0719270
0695 7112 1932 | FD900 DC /7112 1ST WD '1DUMY' IN NAME CODE J0719280
0696 4528 1933 | FD901 DC /4528 2ND WD "1DUMY" IN NAME CODE J0719290
0697 0000 1934 | FD902 DC *-* DB SIZE OF NEW DUMY J0719300
DUP-DELETE MU000
1936 | ************************************************** J0719320
1937 | * MU000 PERFORMS THE FOLLOWING FUNCTIONS J0719330
1938 | * *SAVES THE LET/FLET ADDRESS OF THE FIRST J0719340
1939 | * PRIMARY ENTRY POINT FOLLOWING THE SPECIF- J0719350
1940 | * IED ENTRY. J0719360
1941 | * *DETERMINES IF THIS ENTRY IS A DUMY ENTRY J0719370
1942 | * *IF IT IS, DETERMINES IF THIS IS THE LAST J0719380
1943 | * LET/FLET DUMY ENTRY J0719390
1944 | * *IF THE FOLLOWING ENTRY IS NOT IN BFRA, J0719400
1945 | * THE NEXT LET/FLET SCTR IS READ INTO BFRB J0719410
1946 | * *SETS THE USER AREA DB ADDRESS OF THE FIRST J0719420
1947 | * NON-DUMY PROGRAM FOLLOWING THE PROGRAM TO J0719430
1948 | * BE DELETED J0719440
1949 | ************************************************** J0719450
1950 | * J0719460
0698 0000 1951 | MU000 DC *-* ENTRY J0719470
1952 | * J0719480
1953 | * SAVE THE DB ADDR OF THE NEXT PROGRAM IN THE UA J0719490
1954 | * J0719500
0699 6780 0219 1955 | LDX I3 DE900 POINT TO PRIME ENTRY J0719510
069B C400 022B 1956 | LD L DE920 DB ADDRESS IN THE UA OF J0719520
1957 | * *PROG TO BE DELETED J0719530
069D 8302 1958 | A 3 2 SIZE OF DELETED PROGRAM J0719540
069E D400 021A 1959 | STO L DE901 UPDATE PROG ADDR COUNTER J0719550
06A0 D400 0222 1960 | STO L DE910 UPDATE 'FROM' ADDR IN UA J0719560
1961 | * J0719570
06A2 C400 022E 1962 | LD L BFRA NU000 NEEDS THE BFR ADDRESS J0719580
06A4 D400 021F 1963 | STO L DE907 J0719590
06A6 4400 064D 1964 | BSI L NU000 POINT TO NEXT ENTRY- J0719600
06A8 6780 0662 1965 | LDX I3 NU900 *NU900 NOW POINTS TO IT J0719610
1966 | * J0719620
06AA 4400 0639 1967 | BSI L IB000 DETERMINE IF NEXT ENTRY IS J0719630
06AC 7016 1968 | MDX MU030 *IN BFRA. BRANCH IF NOT J0719640
1969 | * J0719650
1970 | * SAVE ADDRESS OF THE FOLLOWING PRIME ENTRY POINT J0719660
1971 | * J0719670
06AD 6F00 021C 1972 | MU005 STX L3 DE904 SAVE THE ADDRESS J0719680
1973 | * J0719690
1974 | * DETERMINE IF IT IS A DUMY J0719700
1975 | * J0719710
06AF 4400 062E 1976 | BSI L TD000 TEST FOR BEING A DUMY J0719720
06B1 7002 1977 | MDX MU020 *AND BRANCH IF IT IS J0719730
1978 | * J0719740
06B2 4C80 0698 1979 | MU010 BSC I MU000 EXIT J0719750
1980 | * J0719760
1981 | * J0719770
1982 | * DETERMINE IF DUMY IS THE LAST LET/FLET DUMY J0719780
1983 | * J0719790
06B4 6F00 021E 1984 | MU020 STX L3 DE906 SAVE ADDR FOLLOWING DUMY J0719800
06B6 7303 1985 | MDX 3 3 POINT TO THE NEXT ENTRY J0719810
06B7 4400 0639 1986 | BSI L IB000 DETERMINE IF DUMY WAS LAST J0719820
06B9 7006 1987 | MDX MU025 *ENTRY IN BFRA. BRANCH YES J0719830
06BA C400 0222 1988 | LD L DE910 POINT "FROM" ADDR IN UA J0719840
06BC 83FF 1989 | A 3 -1 *TO THE PROG FOLLOWING 2-1 J0719850
06BD D400 0222 1990 | STO L DE910 *THIS DUMY J0719860
06BF 70F2 1991 | MDX MU010 J0719870
1992 | * J0719880
1993 | * THE LAST LET/FLET DUMY HAS BEEN FOUND J0719890
1994 | * J0719900
06C0 6F00 021D 1995 | MU025 STX L3 DE905 SET LAST DUMY INDICATOR J0719910
06C2 70EF 1996 | MDX MU010 EXIT J0719920
1997 | * J0719930
06C3 C400 022E 1998 | MU030 LD L BFRA DETERMINE IF BFRA CONTAIN J0719940
06C5 4400 061B 1999 | BSI L LA000 *THE LAST LET/FLET SECTOR J0719950
06C7 7003 2000 | MDX MU040 *BRANCH IF NOT J0719960
2001 | * J0719970
2002 | * PRINT DELETE ERROR MESSAGE J0719980
2003 | * J0719990
06C8 4480 7DB4 2004 | BSI I LEAVE THE LAST ENTRY IN LET/FLET J0720000
06CA 0046 2005 | DC 70 *IS NOT A DUMY J0720010
2006 | * J0720020
2007 | * READ NEXT LET/FLET SECTOR INTO BFRB J0720030
2008 | * J0720040
06CB 6780 022F 2009 | MU040 LDX I3 BFRB J0720050
06CD 6680 022E 2010 | LDX I2 BFRA J0720060
06CF C206 2011 | LD 2 6 FETCH SCTR ADDR NEXT LET/ J0720070
06D0 EC00 0223 2012 | OR L DE911 *FLET SCTR. 'OR' IN DR CODE J0720080
06D2 18D0 2013 | RTE 16 J0720090
06D3 C400 0775 2014 | LD L IN904 FETCH WORD COUNT OF 320 J0720100
06D5 DB00 2015 | STD 3 0 J0720110
06D6 4400 03B6 2016 | BSI L GGET FETCH THE SECTOR J0720120
06D8 6F00 0225 2017 | STX L3 DE913 SAVE 'FROM' BUFFER ADDRESS J0720130
06DA 6F00 021F 2018 | STX L3 DE907 FOR IB000 LATER 2-1 J0720140
06DC 6780 0231 2019 | LDX I3 BFRBF POINT TO FIRST ENTRY J0720150
06DE 70CE 2020 | MDX MU005 BRANCH TO CONTINUE J0720160
2021 | * J0720170
2022 | ************************************************** J0720180
DUP-DELETE BA000
2024 | ************************************************** J0720200
2025 | * BA000 PERFORMS THE FOLLOWING FUNCTIONS J0720210
2026 | * *SAVES THE LET/FLET ADDRESS (IN DE900) J0720220
2027 | * OF THE PRIMARY ENTRY OF THE PROGRAM TO J0720230
2028 | * BE DELETED. J0720240
2029 | * *TESTS THE ENTRY PREVIOUS TO THE SPECIFIED J0720250
2030 | * ENTRY. IF IT IS A DUMY, SAVE THE LET/FLET J0720260
2031 | * ADDRESS IN DE902. J0720270
2032 | * *IF THE PREVIOUS ENTRY IS NOT IN BFRA, THE J0720280
2033 | * PRECEEDING LET/FLET SECTOR IS READ. J0720290
2034 | ************************************************** J0720300
2035 | * J0720310
06DF 0000 2036 | BA000 DC *-* ENTRY J0720320
2037 | * J0720330
2038 | * POINT TO ENTRY SPECIFIED TO DELETE J0720340
2039 | * J0720350
06E0 C117 2040 | LD 1 DELSW DELSW (IN CATCO) POINTS J0720360
06E1 D001 2041 | STO BA005 *TO 1-ENTRY POINT ADDR J0720370
06E2 6700 0000 2042 | LDX L3 *-* *OF PROGRAM TO DELETE J0720380
06E3 2043 | BA005 EQU *-1 J0720390
06E4 7301 2044 | MDX 3 1 POINT TO FIRST WD OF ENTRY J0720400
2045 | * J0720410
2046 | * TEST ENTRY TO DETERMINE IF IT IS THE PRIMARY ENT J0720420
2047 | * J0720430
06E5 C302 2048 | BA010 LD 3 2 IF DB SIZE IS NON-ZERO, ENT J0720440
06E6 4C20 06F2 2049 | BSC L BA020,Z *IS THE PRIME. BR IF IT IS J0720450
2050 | * J0720460
06E8 C000 2051 | LD * INDICATE THAT A SECONDARY J0720470
06E9 D054 2052 | STO BA901 *ENTRY POINT HAS BEEN FOUND J0720480
06EA 6B52 2053 | STX 3 BA900 J0720490
06EB C400 0230 2054 | LD L BFRAF DETERMINE IF ENTRY IS FIRST J0720500
06ED 904F 2055 | S BA900 *ENTRY IN THIS LET/FLET J0720510
06EE 4C10 0737 2056 | BSC L BA080,- *SECTOR AND BRANCH IF IT IS J0720520
2057 | * J0720530
06F0 73FD 2058 | MDX 3 -3 POINT TO PREVIOUS ENTRY J0720540
06F1 70F3 2059 | MDX BA010 BRANCH TO CONTINUE J0720550
2060 | * J0720560
2061 | * THE PRIMARY ENTRY POINT HAS BEEN FOUND J0720570
2062 | * J0720580
06F2 C302 2063 | BA020 LD 3 2 UPDATE LAST DUMMY INCREMENT J0720590
06F3 D400 0226 2064 | STO L DE914 *WITH SIZE OF DELETED PROG J0720600
06F5 D400 022A 2065 | STO L DE919 SAVE THE SIZE J0720610
06F7 C046 2066 | LD BA901 DETERMINE IF POINTING TO J0720620
06F8 4C18 06FF 2067 | BSC L BA025,+- *2NDARY ENT PT. BR IF NOT J0720630
06FA C400 022B 2068 | LD L DE920 MOVE DB ADDRESS BACK TO J0720640
06FC 9302 2069 | S 3 2 *POINT AT DESIRED PROGRAM J0720650
06FD D400 022B 2070 | STO L DE920 J0720660
06FF 4400 062E 2071 | BA025 BSI L TD000 DETERMINE IF ENTRY IS A J0720670
0701 7038 2072 | MDX BA090 *DUMMY, BR IF YES J0720680
2073 | * J0720690
0702 6F00 0219 2074 | STX L3 DE900 SAVE ADDR OF PRIME ENT PT J0720700
2075 | * J0720710
0704 73FD 2076 | MDX 3 -3 POINT TO PREVIOUS ENTRY J0720720
0705 6B37 2077 | STX 3 BA900 J0720730
0706 C036 2078 | LD BA900 DETERMINE IF PREVIOUS ENTRY J0720740
0707 9400 0230 2079 | S L BFRAF *IS IN THE BUFFER J0720750
0709 4C28 071C 2080 | BSC L BA040,Z+ *AND BRANCH IF NOT J0720760
2081 | * J0720770
2082 | * DETERMINE IF PREVIOUS ENTRY IS A DUMY J0720780
2083 | * J0720790
070B 4400 062E 2084 | BSI L TD000 TEST ENTRY J0720800
070D 7006 2085 | MDX BA035 *AND BRANCH IF IT IS A DUMY J0720810
2086 | * J0720820
070E C300 2087 | BA030 LD 3 0 GET TYPE OF PREV ENTRY 2-1 J0720830
070F 180F 2088 | SRA 15 2-1 J0720840
0710 D400 052D 2089 | STO L CN914 SET INDICATOR 2-1 J0720850
0712 4C80 06DF 2090 | BSC I BA000 EXIT 2-1 J0720860
2091 | * J0720870
2092 | * A PREVIOUS DUMY HAS BEEN FOUND J0720880
2093 | * J0720890
0714 6F00 021B 2094 | BA035 STX L3 DE902 SAVE ADDR OF PREV DUMY J0720900
2095 | * J0720910
0716 C302 2096 | LD 3 2 ADD SIZE OF PREVIOUS DUMY J0720920
0717 8400 0226 2097 | A L DE914 *TO THE LAST DUMY INCREMENT J0720930
0719 D400 0226 2098 | STO L DE914 J0720940
071B 70F2 2099 | MDX BA030 BRANCH TO EXIT J0720950
2100 | * J0720960
071C 4400 060B 2101 | BA040 BSI L FI000 TEST FOR BEING 1ST LET/FLET J0720970
071E 7001 2102 | MDX BA050 *BRANCH IF IT IS NOT J0720980
071F 70EE 2103 | MDX BA030 *EXIT IF IT IS J0720990
2104 | * J0721000
2105 | * READ PREVIOUS LET/FLET SECTOR J0721010
2106 | * J0721020
0720 6780 022F 2107 | BA050 LDX I3 BFRB INPUT BUFFER ADDRESS J0721030
0722 C122 2108 | LD 1 LSTLF LSTLF (IN CATCO) CONTAINS J0721040
0723 EC00 0223 2109 | OR L DE911 *ADDRESS OF PREV L/F SCTR J0721050
0725 18D0 2110 | RTE 16 'OR' IN DRIVE CODE J0721060
0726 C04E 2111 | LD IN904 *AND FETCH WD CNT OF 320 J0721070
0727 DB00 2112 | STD 3 0 J0721080
0728 4400 03B6 2113 | BSI L GGET READ SCTR INTO BFRB J0721090
072A C000 2114 | LD * INDICATE PREVIOUS LET/FLET J0721100
072B D400 022C 2115 | STO L DE921 *SECTOR HAS BEEN READ J0721110
2116 | * J0721120
2117 | * DETERMINE IF THE LAST ENTRY IN THE PREVIOUS J0721130
2118 | * LET/FLET SECTOR IS A DUMY J0721140
2119 | * J0721150
072D C400 0233 2120 | LD L BFRBL COMPUTE ADDR OF LAST J0721160
072F 9305 2121 | S 3 5 *ENTRY IN BFRB J0721170
0730 D001 2122 | STO BA060 J0721180
0731 6700 0000 2123 | LDX L3 *-* TD000 EXPECTS THE ADDRESS J0721190
0732 2124 | BA060 EQU *-1 *OF ENTRY IN XR3 J0721200
2125 | * J0721210
0733 4400 062E 2126 | BSI L TD000 DETERMINE IF PREVIOUS ENTRY J0721220
0735 70DE 2127 | MDX BA035 *IS A DUMMY. BR IF YES J0721230
0736 70D7 2128 | MDX BA030 *EXIT IF NOT J0721240
2129 | * J0721250
2130 | * PRINT DELETE ERROR MESSAGES J0721260
2131 | * J0721270
0737 4480 7DB4 2132 | BA080 BSI I LEAVE 1ST ENTRY IN THIS LET/FLET J0721280
0739 0048 2133 | DC 72 *SCTR HAS A DB CNT OF 0 J0721290
2134 | * J0721300
073A 4480 7DB4 2135 | BA090 BSI I LEAVE A DUMY ENT FOLLOWED BY J0721310
073C 0047 2136 | DC 71 *SECONDARY ENTRY PTS FOUND J0721320
2137 | * J0721330
2138 | ************************************************** J0721340
2139 | * STORAGE FOR CONSTANTS AND VARIABLES IN BA000 J0721350
2140 | ************************************************** J0721360
2141 | * J0721370
073D 0000 2142 | BA900 DC *-* WASTEBASKET J0721380
073E 0000 2143 | BA901 DC *-* NON-ZERO IF 2ND ENT PT FND J0721390
2144 | * J0721400
2145 | ************************************************** J0721410
DUP-DELETE IN000
2147 | ************************************************** J0721430
2148 | * IN000 PERFORMS THE INITIALIZATION FOR DELETE J0721440
2149 | * *THE DB ADDRESS IN THE USER/FIXED AREA OF J0721450
2150 | * THE PROGRAM TO BE DELETED IS SAVED. J0721460
2151 | * *BFRA, BFRB, BFRAF, BFRBF, BFRAL, AND BFRBL J0721470
2152 | * ARE INITIALIZED. J0721480
2153 | * *THE LOGICAL DRIVE ON WHICH TO DELETE IS J0721490
2154 | * SAVED. J0721500
2155 | * *A TEST IS MADE TO DETERMINE IF THE DELET- J0721510
2156 | * ION IS FROM LET OR FLET. J0721520
2157 | * *THE SECTOR ADDRESS OF THE FIRST FLET SEC- J0721530
2158 | * TOR IS DETERMINED. J0721540
2159 | ************************************************** J0721550
2160 | * J0721560
073F 0000 2161 | IN000 DC *-* ENTRY J0721570
2162 | * J0721580
2163 | * INITIALIZE BFRA AND BFRB ADDRESSES J0721590
2164 | * J0721600
0740 C116 2165 | LD 1 DBADR SAVE ADDRESS IN USER AREA J0721610
0741 D400 022B 2166 | STO L DE920 *OF PROG TO DELETE J0721620
0743 C15C 2167 | LD 1 LETAR LETAR POINTS TO ADDR OF J0721630
0744 D400 022E 2168 | STO L BFRA *LET/FLET SCTR IN CORE J0721640
0746 D012 2169 | STO IN010 J0721650
0747 D400 0225 2170 | STO L DE913 ADDR OF L/F 'FROM' BUFFER J0721660
0749 8028 2171 | A IN901 7 J0721670
074A D400 0230 2172 | STO L BFRAF ADDR FIRST ENTRY IN BFRA J0721680
074C 8026 2173 | A IN902 312 J0721690
074D D400 0232 2174 | STO L BFRAL ADDR LAST ENTRY IN BFRA J0721700
074F 8024 2175 | A IN903 3 J0721710
0750 D400 022F 2176 | STO L BFRB SET ADDR OF BFRB J0721720
0752 801F 2177 | A IN901 7 J0721730
0753 D400 0231 2178 | STO L BFRBF ADDR FIRST ENTRY IN BFRB J0721740
0755 801D 2179 | A IN902 312 J0721750
0756 D400 0233 2180 | STO L BFRBL ADDR LAST ENTRY IN BFRB J0721760
2181 | * J0721770
2182 | * INITIALIZE DRIVE ON WHICH TO DELETE J0721780
2183 | * J0721790
0758 6600 0000 2184 | LDX L2 *-* POINT TO LETAR BUFFER J0721800
0759 2185 | IN010 EQU *-1 J0721810
075A C201 2186 | LD 2 1 FETCH DR CODE, SCTR ADDR J0721820
075B 188C 2187 | SRT 12 J0721830
075C D400 0221 2188 | STO L DE909 SAVE DR CODE, RIGHT JUST. J0721840
075E 100C 2189 | SLA 12 J0721850
075F D400 0223 2190 | STO L DE911 SAVE DR CODE, LEFT JUST. J0721860
2191 | * J0721870
2192 | * DETERMINE IF DELETION IS FROM UA OR FX J0721880
2193 | * J0721890
0761 C202 2194 | LD 2 2 FETCH SECTOR ID J0721900
0762 9013 2195 | S IN905 15 J0721910
0763 4C08 0767 2196 | BSC L IN020,+ J0721920
0765 D400 0227 2197 | STO L DE915 J0721930
2198 | * J0721940
2199 | * DETERMINE SCTR ADDR OF FLET, IF ANY J0721950
2200 | * J0721960
0767 6680 0221 2201 | IN020 LDX I2 DE909 J0721970
0769 C600 7F6B 2202 | LD L2 #FLET+C FETCH FLET DR CODE, STR ADR J0721980
076B 1004 2203 | SLA 4 SHIFT OFF DRIVE CODE J0721990
076C 1804 2204 | SRA 4 J0722000
076D D400 0220 2205 | STO L DE908 SAVE FIRST FLET SCTR ADDR J0722010
076F 4C80 073F 2206 | BSC I IN000 EXIT J0722020
2207 | * J0722030
2208 | ************************************************** J0722040
2209 | * STORAGE FOR CONSTANTS AND VARIABLES IN IN000 J0722050
2210 | ************************************************** J0722060
2211 | * J0722070
0771 0000 2212 | IN900 DC *-* WASTEBASKET J0722080
0772 0007 2213 | IN901 DC 7 CONSTANT J0722090
0773 0138 2214 | IN902 DC 312 CONSTANT J0722100
0774 0003 2215 | IN903 DC 3 CONSTANT J0722110
0775 0140 2216 | IN904 DC 320 CONSTANT J0722120
0776 000F 2217 | IN905 DC 15 CONSTANT J0722130
2218 | * J0722140
0777 2219 | DEND EQU * J0722150
2220 | *************************************************** J0722160
2221 | * * J0722170
2222 | * PATCH AREA FOR OVERLAID SECTION OF DELETE * J0722180
2223 | * (CN000 TO END) SEE DE500 FOR NON-OVERLAID * J0722190
2224 | * PATCH ROOM * J0722200
2225 | * * J0722210
2226 | *************************************************** J0722220
0777 2227 | BSS BUF5-/7000-*-1 DELETE PATCH AREA 2-5 J0722230
0781 FFFF 2228 | DC /FFFF END OF DELETE PATCH AREA J0722240
0782 2229 | END * J0722250
There were no errors in this assembly
Program transfer address = 0782
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
#ACIN FF9C 98
#ANDU FFA3 104 1046
#BNDU FFA8 105 1044 1047
#CBSW FF8A 77
#CIAD FF9B 97
#CIBA FFBC 109
#CIDN FFB7 108 1089
#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 2202
#FMAT FFC6 111
#FPAD FFAD 106 967 1051
#FRDR FF93 88
#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
#USZE FF97 93
#WSCT FFD5 114 978 984
#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 633
$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 1052
$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 1103
$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
'SBFR 0FB0 118
ADDR2 003D 227
ASMSW 000E 152
B 01DE 265 266 267 268 269 270 271 272 432
BA000 06DF 2036 459 2090
BA005 06E3 2043 2041
BA010 06E5 2048 2059
BA020 06F2 2063 2049
BA025 06FF 2071 2067
BA030 070E 2087 2099 2103 2128
BA035 0714 2094 2085 2127
BA040 071C 2101 2080
BA050 0720 2107 2102
BA060 0732 2124 1235 2122
BA080 0737 2132 2056
BA090 073A 2135 2072
BA900 073D 2142 2053 2055 2077 2078
BA901 073E 2143 2052 2066
BFRA 022E 579 1135 1137 1330 1388 1397 1626 1658 1712 1874 1876 1962 1998
2010 2168
BFRAF 0230 585 1530 1559 1671 2054 2079 2172
BFRAL 0232 591 1356 1403 1623 1655 1690 2174
BFRB 022F 582 1143 1145 1333 1349 1433 1440 1564 2009 2107 2176
BFRBF 0231 588 1341 1439 2019 2178
BFRBL 0233 596 1565 2120 2180
BINEB 7DB0 279 1090 1094 1098
BITSW 000F 153
BLKSW 0010 154
BUF1 79B5 304 305
BUF2 7963 305 306
BUF3 7925 306 307
BUF4 78D3 307
BUF5 7782 308 309 2227
BUF6 7D91 297 298 299
BUF7 0640 309
C 7FA0 56 623 967 978 984 1044 1046 1047 1051 1065 1075 1089 1091
1095 1099 1128 1155 2202
CATCO 7F1E 274 480
CIERR 0011 155
CIHDR 0008 138
CISW 0012 156
CL1 000E 151
CL2 0037 203
CLBSW 0013 157
CN000 043A 1200 465 1390 1639
CN005 045D 1239 1230
CN008 0463 1242 1234
CN010 0465 1243 1237 1241
CN015 0467 1246 1204 1394 1427 1429
CN020 046B 1253 1473 1520 1522
CN030 0474 1261 1578
CN040 0484 1280 1278
CN050 0491 1293 1275 1286
CN060 0492 1294 1284
CN070 049B 1302 1307
CN075 04BC 1346 1324
CN077 04C7 1355 1347
CN080 04CD 1365 1354
CN090 04CE 1366 1205 1521
CN095 04CF 1372 1223
CN100 04D5 1378 1442
CN110 04DF 1392 1380
CN115 04DD 1390 1414
CN120 04E4 1396 1377
CN130 04F9 1416 1399
CN140 0505 1425 1420
CN150 050E 1431 1422
CN155 0530 1472 1247
CN156 0548 1495 1484
CN157 054B 1500 1491
CN158 0551 1506 1502
CN160 055E 1520 1488 1545 1555 1560
CN165 0564 1527 1486 1496
CN167 056B 1532 1572
CN168 056F 1537
CN169 0577 1542
CN170 057C 1547 1541
CN172 057E 1549 1543
CN175 058E 1564 1531
CN180 0595 1569 1567
CN183 0599 1578 1586 1593
CN185 059B 1580 1256
CN190 05A5 1589 1587
CN193 05AB 1597 1592
CN194 05B7 1605 1602
CN195 05BB 1609 1598
CN200 05C0 1615 1611
CN700 05DE 1649 1287 1358 1504 1613 1672
CN800 05F8 1687 1285 1501 1610 1694 1695 1696
CN900 051F 1447 1527 1528 1622 1625 1688 1693
CN901 0520 1448 1216 1265 1266 1481 1532
CN902 0521 1449 1255
CN903 0522 1450 1259 1477 1485 1495 1581
CN904 0523 1451 1322 1323 1355 1357 1653 1654 1657 1689 1692
CN905 0524 1452 1419 1500 1529 1609 1624 1656 1691
CN906 0525 1453 1335 1410 1435 1629 1663
CN907 0526 1454
CN908 0527 1455 1215 1482 1534
CN909 0528 1456 1489 1506 1547
CN910 0529 1457 1509
CN911 052A 1458 1511
CN912 052B 1459 1483 1490 1507 1535 1540 1548
CN913 052C 1460 1320
CN914 052D 1461 1296 1300 1487 2089
CN915 052E 1463 1297 1542
CN916 052F 1464 1274 1346 1352 1554 1558 1571
CNTNO 0014 158
CRBUF 0057 254
D2HDR 000C 140
DATSW 0015 165
DBADR 0016 166 2165
DCADR 0058 255
DCHDR FFF0 126
DCTL 11E0 269
DCTLC 11DE 270
DE000 01E0 447 1177
DE005 01FE 483 479
DE010 01FF 485 470
DE500 0205 492
DE900 0219 502 1239 1392 1428 1895 1955 2074
DE901 021A 506 1262 1263 1479 1603 1959
DE902 021B 509 1209 1233 1240 1242 1378 1426 1896 2094
DE904 021C 514 1243 1393 1418 1972
DE905 021D 520 1398 1995
DE906 021E 524 1375 1396 1897 1984
DE907 021F 528 1282 1417 1584 1794 1963 2018
DE908 0220 532 1747 2205
DE909 0221 535 966 1043 1088 2188 2201
DE910 0222 539 671 697 1960 1988 1990
DE911 0223 544 478 678 699 959 1050 1332 1432 2012 2109 2190
DE912 0224 547 676 692 1213
DE913 0225 552 1281 1318 1319 1339 1416 1441 1583 1633 2017 2170
DE914 0226 556 1045 1513 1515 1537 1539 1550 1552 1606 2064 2097 2098
DE915 0227 560 469 1222 1246 1597 2197
DE917 0228 563 669 955 1480 1601 1604
DE918 0229 567 665 668 670 1478
DE919 022A 570 1097 2065
DE920 022B 572 1093 1210 1956 2068 2070 2166
DE921 022C 575 1229 2115
DELSW 0017 167 2040
DEND 0777 2219 436 1176
DFHDR FFFC 132
DFLSW 0036 201
DFNSW 0018 168
DI000 0402 1127 467 1150
DI500 0421 1154 475 1170
DI900 0437 1176 1129 1156
DI901 0438 1177 1131 1158
DI902 0439 1178 1138 1146
DISKZ 00F2 264
DKSAD 0019 169
DLHDR FFF8 130
DMHDR FFF6 129
DMPLC 01DE 266
DTHDR FFFA 131
DUMPC 41DE 272
DUMPP 001A 170 1132 1140 1148 1159 1168
DUPCO 7DB0 273 278 297
DUPCR 003C 221
DXHDR FFFE 133
DZ000 00F2 53 264
EBCSW 0033 198
ENTER 7DB2 281
EXITC 01DE 267
FD000 0673 1894 1372 1914
FD010 067D 1901 1922
FD020 0682 1906 1929
FD030 0683 1907 1404 1898 1918
FD040 068C 1918 1900
FD050 0691 1926 1905
FD900 0695 1932 1908
FD901 0696 1933 1910
FD902 0697 1934 1902 1903 1912 1920 1921 1927 1928
FI000 060B 1710 1717 1720 2101
FI005 0616 1718 1716
FI010 0617 1719 1711
FI900 061A 1726 1715
FL000 0665 1871 1231 1670 1881
FL010 0668 1874 1878
FL030 0670 1880 1872
FLHDR FFF4 128
FORSW 001C 171
FRWS 001D 172
FXSW 001E 173
G0001 03BD 1068 1064
GET 7DB3 282 1066
GETBI 7A0B 301
GETHO 7A0A 300
GGET 03B6 1063 734 751 935 1020 1069 1337 1437 2016 2113
HDBUF 0059 256
HDNSW 0034 199
HK000 03CA 1087 485 1105
HK901 03EB 1109 1102
HK902 03F0 1111 1092
HK903 03F8 1113 1096
HK904 0400 1115 1100
HOLSW 001F 174
IB000 0639 1792 1421 1591 1802 1803 1804 1833 1967 1986
IB010 0645 1801 1793 1799
IB900 064C 1810 1796 1797
IBT 0049 245
IN000 073F 2161 456 2206
IN010 0759 2185 2169
IN020 0767 2201 2196
IN900 0771 2212
IN901 0772 2213 2171 2177
IN902 0773 2214 2173 2179
IN903 0774 2215 2175
IN904 0775 2216 2014 2111
IN905 0776 2217 2195
INOUT 003F 234
IOADR 7A06 299 300 301 302 303 304 308
IOBLK 005A 257
IOREQ 0038 211
IOSW 0020 175
KBREQ 003E 228
LA000 061B 1740 1585 1751 1752 1999
LA003 061F 1744 1742
LA005 0627 1749 1753
LA010 0628 1750 1741
LA020 062B 1752 1746 1748
LEAVE 7DB4 283 2004 2132 2135
LETAR 005C 259 2167
LETSW 0021 180
LINE 7DB5 284
LSTLF 0022 181 2108
MASK 7DB6 285 453
MDUMP 7DB7 286 1133 1141 1149 1160 1169
MODSW 0023 182
MU000 0698 1951 462 1979
MU005 06AD 1972 2020
MU010 06B2 1979 1991 1996
MU020 06B4 1984 1977
MU025 06C0 1995 1987
MU030 06C3 1998 1968
MU040 06CB 2009 2000
MUHDR 000A 139
MUPC 01DE 268
NAMSW 0024 183
NEGSW 0025 184
NEXT 005F 262
NU000 064D 1823 1283 1849 1964
NU020 0651 1830 1842
NU030 065D 1846 1834 1837 1840
NU040 065E 1847 1824
NU900 0662 1855 1831 1965
NU901 0663 1856 1826 1841 1848
NU902 0664 1857 1825
P0001 03C7 1078 1074
P1442 0052 251
PACKB 7A0C 302
PAGE 7DB8 287
PCHBI 7A0D 303
PEBUF 005D 260
PGMHL 0026 185
PH2 0039 212
PH3 003A 213
PH4 003B 214
PHDUP 0056 253
PHID 7DB9 288 450
PHIDM 7DBA 289
PIHDR 0002 135
PPUT 03C0 1073 838 1027 1079 1350 1389 1413 1556 1637 1666
PRINT 7DBB 290 1101
PRPAR 0054 252
PRPNT 7C50 298
PRSW 0027 186
PTHDR 0006 137
PTPON 0040 236
PTSW 0028 187
PUT 7DBC 291 1076
REST 7DBD 292 490
RPGSW 0035 200
RTURN 7DBE 293
SDBUF 005B 258 624 1162 1164
SIHDR 0004 136
SKWDS 0029 188
STCSW 002A 189
STHDR FFF2 127
STSW 002B 190
T3MSW 002F 194
TD000 062E 1766 1770 1771 1772 1836 1976 2071 2084 2126
TD900 0638 1778 1769
TEMP1 002C 191 1091 1095 1099
TEMP2 002D 192
THIS 005E 261
TOWS 002E 193
UA000 0234 617 473 1053
UA005 0246 638 659 732 748 756 1014
UA010 024A 645 635
UA020 024F 649 641
UA022 025D 669 666
UA024 0275 696 694
UA025 0277 697 691
UA030 0291 728 721
UA040 02A5 759 742
UA045 02C7 805 765
UA050 02C8 806 686
UA060 02CA 808 763
UA070 02CC 810 713 726
UA080 02CD 811 816
UA090 02D4 819 947
UA100 02DD 829 821
UA110 02E3 835 825
UA115 02F1 853 849
UA116 02F2 854 852
UA120 02FE 873 866
UA130 0304 877 875
UA140 0305 878 883
UA150 030C 890 831 869
UA160 032F 933 922
UA170 0343 955 696 719 857
UA173 035E 984 977
UA175 036B 993 989
UA178 036C 994 992
UA180 0374 1003 1039
UA190 0387 1018 1012
UA200 03A1 1043 979 996 1030
UA900 02AD 771 703 709 759 912 921 958 970 971 994
UA901 02AE 772 893 943
UA902 02AF 773 895 945
UA903 02B0 774 651 658 833
UA904 02B1 775 653 830 865 874
UA905 02B2 777 649 655 909 927 937
UA906 02B3 778 672 690 718 723 728 820 856 920 924 928 933
UA907 02B4 780 817 822 829 864 868 884 890 904 940 942
UA908 02B5 781 680 695 835 854 855 1024 1032 1034
UA909 02B6 782 700 741 746 764 896 936 938 960 1003 1036 1038
UA910 02B7 783 656 851 991
UA911 02B8 784 683 711 724 760 913 929
UA912 02B9 785 627 1166
UA913 02BA 786 708 910 987
UA914 02BB 787 628 755 757 762
UA915 02BC 788 629 685 823 867 873 903
UA916 02BD 789 634
UA917 02BE 790 995 1010 1013 1018 1029
UA918 02BF 792 657 1011 1033 1037
UA919 02C0 793 660 902 1005 1165
UA920 02C1 794 640
UA921 02C2 795 648
UA922 02C3 796 625 626 639 647 819 1002
UA923 02C4 797 693 925 956 1048
UA924 02C5 798 847 908
UA925 02C6 799 710 720
UASW 0030 195
UCHDR 0000 134
WRTDC 7DB1 280 482
WSDC 21DE 271
WSSW 0031 196
XEQSW 0032 197