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