|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4524 (0x11ac)
Notes: pts_type(SC)
Names: »CONPAR.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSUTIL/CONPAR.SC«
└─⟦bdcaa0fa2⟧ Bits:30009700 Philips computer tape "600999"
└─⟦this⟧ »TOSSUTIL/CONPAR.SC«
IDENT CONPAR REL 9.2 79-11-16 870136640920 * * ******************************************** * * SORTF-PARAMETERS DEPENDENT ON * 6810 WITH 6875/6876 DU * ******************************************** * * CONNECTION WITH CONDITIONAL ASSEMBLY OF SORTF: * EXTFUN EQU 1 ALLOWS ALL VALUES ON EXTPRT & SYSFNR & TIMER * EXTFUN EQU 0 IMPLIES NO USAGE AT ALL OF EXTPRT, TIMER OR SYSFNR * OPT EQU 0, OPT EQU 1 SAME AS FOR SORTF * ENTRY SYSPAR ENTRY CONPAR ENTRY C,SYSFNR,VBB * * OPT EQU 1 MEANS OPTIMIZING WITH VBB-VECTOR * OPT EQU 0 MEANS NO OPTIMIZING OPT EQU 1 * SYSPAR EQU * CONPAR EQU * C DATA 3 3 LKM'S BETWEEN TWO LOGICAL SECTORS WITH INTERLACING WITH 3 GSYS DATA 5 5 SECTORS PER LAP WITH INTERLACING WITH 3 GSYS = NO. OF DM-BUFFERS WILL OVERRIDE CORRESPONDING PARAMETER IN PBLK IF BSYS IS LESS. EXTPRT DATA 0 0 = EXTENDED PRINTING. 0 ELSE TIMER DATA 0 1 = TIMER INCLUDED, ELSE 0 SYSFNR DATA 1 1 MEANS THAT FREE RECORDS ARE COMPLETELY HANDLED. THUS REPLACEMENTS ARE DELETED. 0 IMPLIES FNR := 0 & REPLACEMENTS ARE NOT DELETED. IFT OPT=1 VBB EQU * BUFFER-SIZE VECTOR FOR BUFOPT DATA /0101 DATA /0105 DATA /0405 DATA /0410 DATA /1010 DATA /1020 DATA /2020 DATA /2000 XIF END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT CONPAR REL 9.2 79-11-16 870136640920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…0086 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0000, t01=0x0056}
0x0086…0090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008a}
0x0090…00b8 Head {h00=0x0024, h01=0x0050, text=»* SORTF-PARAMETERS DEPENDENT ON«, t00=0x0000, t01=0x0094}
0x00b8…00da Head {h00=0x001e, h01=0x0050, text=»* 6810 WITH 6875/6876 DU «, t00=0x0000, t01=0x00bc}
0x00da…00e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00de}
0x00e4…0118 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0000, t01=0x00e8}
0x0118…0122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011c}
0x0122…015c Head {h00=0x0036, h01=0x0050, text=»* CONNECTION WITH CONDITIONAL ASSEMBLY OF SORTF:«, t00=0x0000, t01=0x0126}
0x015c…019a Head {h00=0x003a, h01=0x0050, text=»* EXTFUN EQU 1 ALLOWS ALL VALUES ON EXTPRT & SYSFNR «, t00=0x0000, t01=0x0160}
0x019a…01ac Head {h00=0x000e, h01=0x0050, text=» & TIMER«, t00=0x0001, t01=0x000e}
0x01ac…01b4 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0020}
0x01b4…0200 Head {h00=0x0048, h01=0x0050, text=»* EXTFUN EQU 0 IMPLIES NO USAGE AT ALL OF EXTPRT, TIMER OR SYSFNR «, t00=0x0001, t01=0x0028}
0x0200…0208 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0074}
0x0208…023c Head {h00=0x0030, h01=0x0050, text=»* OPT EQU 0, OPT EQU 1 SAME AS FOR SORTF «, t00=0x0001, t01=0x007c}
0x023c…0246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b0}
0x0246…024e Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00ba}
0x024e…0264 Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSPAR «, t00=0x0001, t01=0x00c2}
0x0264…027a Head {h00=0x0012, h01=0x0050, text=» ENTRY CONPAR «, t00=0x0001, t01=0x00d8}
0x027a…0296 Head {h00=0x0018, h01=0x0050, text=» ENTRY C,SYSFNR,VBB «, t00=0x0001, t01=0x00ee}
0x0296…02a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010a}
0x02a0…02d6 Head {h00=0x0032, h01=0x0050, text=»* OPT EQU 1 MEANS OPTIMIZING WITH VBB-VECTOR«, t00=0x0001, t01=0x0114}
0x02d6…0300 Head {h00=0x0026, h01=0x0050, text=»* OPT EQU 0 MEANS NO OPTIMIZING «, t00=0x0001, t01=0x014a}
0x0300…0308 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0174}
0x0308…031a Head {h00=0x000e, h01=0x0050, text=»OPT EQU 1 «, t00=0x0001, t01=0x017c}
0x031a…0322 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x018e}
0x0322…032c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0008}
0x032c…0340 Head {h00=0x0010, h01=0x0050, text=»SYSPAR EQU *«, t00=0x0002, t01=0x0012}
0x0340…0354 Head {h00=0x0010, h01=0x0050, text=»CONPAR EQU *«, t00=0x0002, t01=0x0026}
0x0354…0380 Head {h00=0x0028, h01=0x0050, text=»C DATA 3 3 LKM'S BETWEEN TWO LOGICAL«, t00=0x0002, t01=0x003a}
0x0380…03aa Head {h00=0x0026, h01=0x0050, text=» SECTORS WITH INTERLACING WITH 3«, t00=0x0002, t01=0x0066}
0x03aa…03d0 Head {h00=0x0022, h01=0x0050, text=»GSYS DATA 5 5 SECTORS PER LAP «, t00=0x0002, t01=0x0090}
0x03d0…03f2 Head {h00=0x001e, h01=0x0050, text=» WITH INTERLACING WITH 3«, t00=0x0002, t01=0x00b6}
0x03f2…041a Head {h00=0x0024, h01=0x0050, text=» GSYS = NO. OF DM-BUFFERS WILL«, t00=0x0002, t01=0x00d8}
0x041a…0446 Head {h00=0x0028, h01=0x0050, text=» OVERRIDE CORRESPONDING PARAMETER «, t00=0x0002, t01=0x0100}
0x0446…046a Head {h00=0x0020, h01=0x0050, text=» IN PBLK IF BSYS IS LESS. «, t00=0x0002, t01=0x012c}
0x046a…049e Head {h00=0x0030, h01=0x0050, text=»EXTPRT DATA 0 0 = EXTENDED PRINTING. 0 ELSE «, t00=0x0002, t01=0x0150}
0x049e…04ce Head {h00=0x002c, h01=0x0050, text=»TIMER DATA 0 1 = TIMER INCLUDED, ELSE 0 «, t00=0x0002, t01=0x0184}
0x04ce…04d6 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0024}
0x04d6…04f8 Head {h00=0x001e, h01=0x0050, text=»SYSFNR DATA 1 1 MEANS THAT«, t00=0x0003, t01=0x002c}
0x04f8…0528 Head {h00=0x002c, h01=0x0050, text=» FREE RECORDS ARE COMPLETELY HANDLED. «, t00=0x0003, t01=0x004e}
0x0528…0552 Head {h00=0x0026, h01=0x0050, text=» THUS REPLACEMENTS ARE DELETED. «, t00=0x0003, t01=0x007e}
0x0552…0572 Head {h00=0x001c, h01=0x0050, text=» 0 IMPLIES FNR := 0 & «, t00=0x0003, t01=0x00a8}
0x0572…059a Head {h00=0x0024, h01=0x0050, text=» REPLACEMENTS ARE NOT DELETED.«, t00=0x0003, t01=0x00c8}
0x059a…05a2 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00f0}
0x05a2…05b4 Head {h00=0x000e, h01=0x0050, text=» IFT OPT=1«, t00=0x0003, t01=0x00f8}
0x05b4…05e4 Head {h00=0x002c, h01=0x0050, text=»VBB EQU * BUFFER-SIZE VECTOR FOR BUFOPT «, t00=0x0003, t01=0x010a}
0x05e4…05f8 Head {h00=0x0010, h01=0x0050, text=» DATA /0101 «, t00=0x0003, t01=0x013a}
0x05f8…060c Head {h00=0x0010, h01=0x0050, text=» DATA /0105 «, t00=0x0003, t01=0x014e}
0x060c…0620 Head {h00=0x0010, h01=0x0050, text=» DATA /0405 «, t00=0x0003, t01=0x0162}
0x0620…0634 Head {h00=0x0010, h01=0x0050, text=» DATA /0410 «, t00=0x0003, t01=0x0176}
0x0634…0648 Head {h00=0x0010, h01=0x0050, text=» DATA /1010 «, t00=0x0003, t01=0x018a}
0x0648…065c Head {h00=0x0010, h01=0x0050, text=» DATA /1020 «, t00=0x0004, t01=0x000e}
0x065c…0670 Head {h00=0x0010, h01=0x0050, text=» DATA /2020 «, t00=0x0004, t01=0x0022}
0x0670…0684 Head {h00=0x0010, h01=0x0050, text=» DATA /2000 «, t00=0x0004, t01=0x0036}
0x0684…0690 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x004a}
0x0690…0698 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0056}
0x0698…06a0 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x005e}
0x06a0…06ac Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0004, t01=0x0066}
0x06ac…06b0 Head {h00=0x4004, h01=0x0000}
0x06b0…06b4 00 04 00 72 ┆ r┆
0x06b4…06bc (5, 1, 8) 20 04 00 00 00 05 00 04 ┆ ┆
0x06bc…070c (6, 0, 400) 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 1e 00 04 00 26 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 4d 49 58 5c 47 45 54 20 45 43 42 4d 49 58 20 41 44 44 52 45 53 53 00 1e 00 14 00 08 00 50 5c 4c 4b 4d 00 1e 00 3e 00 0c 00 50 5c 44 41 54 41 5c ┆ P DATA 1 & P LDKL A8,ECBMIX GET ECBMIX ADDRESS P LKM > P DATA ┆
0x070c…075c 31 20 00 1e 00 4a 00 06 00 50 2a 20 00 1e 00 5a 00 10 00 50 5c 4c 44 4b 5c 41 37 2c 2f 41 32 20 00 1e 00 64 00 22 00 50 5c 4c 4b 4d 5c 5c 43 4c 4f 53 45 20 4d 41 53 54 45 52 20 49 4e 44 45 58 20 46 49 4c 45 20 00 1e 00 78 00 0c 00 50 5c 44 ┆1 J P* Z P LDK A7,/A2 d " P LKM CLOSE MASTER INDEX FILE x P D┆
0x075c…07ac 41 54 41 5c 31 20 00 1e 00 9e 00 06 00 50 2a 20 00 1e 00 ae 00 24 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 4f 55 54 5c 43 4c 4f 53 45 20 49 4e 44 45 58 20 46 49 4c 45 00 1e 00 b8 00 08 00 50 5c 4c 4b 4d 00 1e 00 e0 00 0c 00 50 5c 44 41 54 ┆ATA 1 P* $ P LDKL A8,ECBOUT CLOSE INDEX FILE P LKM P DAT┆
0x07ac…07fc 41 5c 31 20 00 1e 00 ec 00 06 00 50 2a 20 00 1e 00 fc 00 24 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 49 4e 5c 43 4c 4f 53 45 20 49 4e 50 55 54 20 46 49 4c 45 20 00 1e 01 06 00 08 00 50 5c 4c 4b 4d 00 1e 01 2e 00 0c 00 50 5c 44 41 54 41 5c ┆A 1 P* $ P LDKL A8,ECBIN CLOSE INPUT FILE P LKM . P DATA ┆
0x07fc…084c 31 20 00 1e 01 3a 00 06 00 50 2a 20 00 1e 01 4a 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 52 49 4e 44 45 58 20 00 1e 01 54 00 06 00 50 2a 20 00 1e 01 6c 00 06 00 50 2a 20 00 1e 01 76 00 28 00 50 5c 4c 44 5c 41 31 34 2c 53 54 41 43 4b 50 5c 52 ┆1 : P* J P EJECT RINDEX T P* l P* v ( P LD A14,STACKP R┆
0x084c…089c (7, 0, 400) 45 53 54 4f 52 45 20 53 54 41 43 4b 50 4f 49 4e 54 45 52 20 00 1e 01 80 00 1a 00 50 5c 52 54 4e 5c 41 31 34 5c 52 45 54 55 52 4e 20 54 4f 20 43 43 49 00 1f 00 1c 00 06 00 50 2a 20 00 1f 00 3a 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 52 49 4e ┆ESTORE STACKPOINTER P RTN A14 RETURN TO CCI P* : P EJECT RIN┆
0x089c…08ec 44 45 58 20 00 1f 00 44 00 04 00 50 00 1f 00 5c 00 0a 00 50 2a 2a 2a 2a 2a 2a 00 1f 00 64 00 0a 00 50 2a 52 45 41 44 2a 00 1f 00 72 00 0a 00 50 2a 2a 2a 2a 2a 2a 00 1f 00 80 00 04 00 50 00 1f 00 8e 00 04 00 50 00 1f 00 96 00 0e 00 50 52 45 ┆DEX D P P****** d P*READ* r P****** P P PRE┆
0x08ec…093c 41 44 5c 45 51 55 5c 2a 00 1f 00 9e 00 1c 00 50 5c 4c 44 4b 5c 41 37 2c 2f 43 41 5c 52 41 4e 44 4f 4d 20 52 45 41 44 20 00 1f 00 b0 00 24 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 49 4e 5c 47 45 54 20 45 43 42 49 4e 20 41 44 44 52 45 53 53 ┆AD EQU * P LDK A7,/CA RANDOM READ $ P LDKL A8,ECBIN GET ECBIN ADDRESS┆
0x093c…098c 00 1f 00 d0 00 06 00 50 2a 20 00 1f 00 f8 00 10 00 50 52 45 41 44 30 35 5c 45 51 55 5c 2a 00 1f 01 02 00 28 00 50 5c 49 4d 5c 45 43 42 49 4e 2b 31 30 5c 49 4e 43 52 45 4d 45 4e 54 20 52 45 43 4f 52 44 20 4e 55 4d 42 45 52 00 1f 01 16 00 2a ┆ P* PREAD05 EQU * ( P IM ECBIN+10 INCREMENT RECORD NUMBER *┆
0x098c…09dc 00 50 5c 52 46 28 4f 29 5c 52 45 41 44 33 30 5c 4a 55 4d 50 20 49 46 20 4f 56 45 52 46 4c 4f 57 20 49 4e 20 43 57 31 20 00 1f 01 42 00 06 00 50 2a 20 00 1f 01 70 00 0e 00 50 52 45 41 44 31 30 5c 4c 4b 4d 00 1f 01 7a 00 0c 00 50 5c 44 41 54 ┆ P RF(O) READ30 JUMP IF OVERFLOW IN CW1 B P* p PREAD10 LKM z P DAT┆
0x09dc…0a2c (8, 0, 400) 41 5c 31 20 00 1f 01 8c 00 22 00 50 5c 4c 44 5c 41 32 2c 45 43 42 49 4e 2b 38 5c 47 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 00 20 00 0c 00 12 00 50 5c 52 46 28 5a 29 5c 52 45 41 44 32 30 20 00 20 00 32 00 0e 00 50 5c 4c 44 52 5c 41 33 2c ┆A 1 " P LD A2,ECBIN+8 GET RETURN CODE P RF(Z) READ20 2 P LDR A3,┆
0x0a2c…0a7c 41 32 00 20 00 48 00 0e 00 50 5c 53 4c 43 5c 41 33 2c 34 20 00 20 00 5a 00 1a 00 50 5c 52 42 28 4e 29 5c 52 45 41 44 30 35 5c 4e 4f 20 44 41 54 41 3f 00 20 00 6c 00 0e 00 50 5c 53 4c 43 5c 41 33 2c 36 20 00 20 00 8a 00 1e 00 50 5c 52 42 28 ┆A2 H P SLC A3,4 Z P RB(N) READ05 NO DATA? l P SLC A3,6 P RB(┆
0x0a7c…0acc 4e 29 5c 45 4f 4d 5c 45 4e 44 20 4f 46 20 4d 45 44 49 55 4d 3f 20 00 20 00 9c 00 0e 00 50 5c 41 4e 4b 5c 41 32 2c 33 20 00 20 00 be 00 24 00 50 5c 52 42 28 4e 5a 29 5c 52 54 4e 3a 30 31 5c 49 4e 50 55 54 20 49 2f 4f 20 45 52 52 4f 52 3f 20 ┆N) EOM END OF MEDIUM? P ANK A2,3 $ P RB(NZ) RTN:01 INPUT I/O ERROR? ┆
0x0acc…0b1c 00 20 00 d0 00 06 00 50 2a 20 00 20 00 f8 00 12 00 50 52 45 41 44 32 30 5c 52 54 4e 5c 41 31 34 00 20 01 02 00 06 00 50 2a 20 00 20 01 18 00 2a 00 50 52 45 41 44 33 30 5c 49 4d 5c 45 43 42 49 4e 2b 31 32 5c 4f 56 45 52 46 4c 4f 57 20 43 4f ┆ P* PREAD20 RTN A14 P* * PREAD30 IM ECBIN+12 OVERFLOW CO┆
0x0b1c…0b6c 52 52 45 43 54 49 4f 4e 00 20 01 22 00 12 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 37 46 46 46 00 20 01 50 00 14 00 50 5c 41 4e 53 5c 41 32 2c 45 43 42 49 4e 2b 31 30 00 20 01 66 00 0e 00 50 5c 52 42 5c 52 45 41 44 31 30 00 20 01 7e 00 06 00 50 ┆RRECTION " P LDKL A2,/7FFF P P ANS A2,ECBIN+10 f P RB READ10 ~ P┆
0x0b6c…0bbc (9, 0, 400) 2a 20 00 20 01 90 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 52 49 4e 44 45 58 20 00 21 00 0a 00 04 00 50 00 21 00 22 00 04 00 50 00 21 00 2a 00 0c 00 50 2a 2a 2a 2a 2a 2a 2a 20 00 21 00 32 00 0c 00 50 2a 57 52 49 54 45 2a 20 00 21 00 42 00 0c ┆* P EJECT RINDEX ! P ! " P ! * P******* ! 2 P*WRITE* ! B ┆
0x0bbc…0c0c 00 50 2a 2a 2a 2a 2a 2a 2a 20 00 21 00 52 00 04 00 50 00 21 00 62 00 04 00 50 00 21 00 6a 00 10 00 50 57 52 49 54 45 5c 45 51 55 5c 2a 20 00 21 00 72 00 20 00 50 5c 4c 44 4b 5c 41 37 2c 2f 38 36 5c 53 45 51 55 45 4e 54 49 41 4c 20 57 52 49 ┆ P******* ! R P ! b P ! j PWRITE EQU * ! r P LDK A7,/86 SEQUENTIAL WRI┆
0x0c0c…0c5c 54 45 00 21 00 86 00 08 00 50 5c 4c 4b 4d 00 21 00 aa 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 21 00 b6 00 20 00 50 5c 4c 44 5c 41 32 2c 38 2c 41 38 5c 47 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 20 00 21 00 c6 00 12 00 50 5c 52 46 28 5a 29 ┆TE ! P LKM ! P DATA 1 ! P LD A2,8,A8 GET RETURN CODE ! P RF(Z)┆
0x0c5c…0cac 5c 57 52 49 54 31 30 20 00 21 00 ea 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 32 00 21 01 00 00 12 00 50 5c 41 4e 4b 4c 5c 41 32 2c 2f 41 30 38 33 00 21 01 12 00 24 00 50 5c 52 42 28 4e 5a 29 5c 52 54 4e 3a 30 32 5c 4f 55 54 50 55 54 20 49 2f ┆ WRIT10 ! P LDR A3,A2 ! P ANKL A2,/A083 ! $ P RB(NZ) RTN:02 OUTPUT I/┆
0x0cac…0cfc 4f 20 45 52 52 4f 52 3f 00 21 01 28 00 10 00 50 5c 41 4e 4b 5c 41 33 2c 2f 32 30 20 00 21 01 50 00 30 00 50 5c 52 42 28 4e 5a 29 5c 52 54 4e 3a 30 38 5c 4f 55 54 50 55 54 20 46 49 4c 45 20 4e 4f 54 20 4c 41 52 47 45 20 45 4e 4f 55 47 48 3f ┆O ERROR? ! ( P ANK A3,/20 ! P 0 P RB(NZ) RTN:08 OUTPUT FILE NOT LARGE ENOUGH?┆
0x0cfc…0d4c (10, 0, 400) 00 21 01 64 00 06 00 50 2a 20 00 22 00 08 00 12 00 50 57 52 49 54 31 30 5c 52 54 4e 5c 41 31 34 00 22 00 12 00 06 00 50 2a 20 00 22 00 28 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 52 49 4e 44 45 58 20 00 22 00 32 00 04 00 50 00 22 00 4a 00 04 ┆ ! d P* " PWRIT10 RTN A14 " P* " ( P EJECT RINDEX " 2 P " J ┆
0x0d4c…0d9c 00 50 00 22 00 52 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 22 00 5a 00 18 00 50 2a 52 41 4e 44 4f 4d 20 52 45 41 44 2f 44 45 4c 45 54 45 2a 00 22 00 76 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P " R P******************** " Z P*RANDOM READ/DELETE* " v P**************┆
0x0d9c…0dec 2a 2a 2a 2a 2a 2a 00 22 00 92 00 04 00 50 00 22 00 ae 00 04 00 50 00 22 00 b6 00 22 00 50 52 41 4e 44 52 44 5c 4c 44 4b 5c 41 37 2c 2f 38 41 5c 52 41 4e 44 4f 4d 20 52 45 41 44 20 00 22 00 be 00 0c 00 50 5c 52 46 5c 4c 49 4e 4b 00 22 00 e4 ┆****** " P " P " " PRANDRD LDK A7,/8A RANDOM READ " P RF LINK " ┆
0x0dec…0e3c 00 06 00 50 2a 20 00 22 00 f4 00 24 00 50 52 41 4e 44 44 4c 5c 4c 44 4b 5c 41 37 2c 2f 38 45 5c 52 41 4e 44 4f 4d 20 44 45 4c 45 54 45 20 00 22 00 fe 00 0e 00 50 5c 43 57 4b 5c 41 34 2c 31 20 00 22 01 26 00 32 00 50 5c 52 46 28 4e 45 29 5c ┆ P* " $ PRANDDL LDK A7,/8E RANDOM DELETE " P CWK A4,1 " & 2 P RF(NE) ┆
0x0e3c…0e8c 4c 49 4e 4b 5c 4a 55 4d 50 20 49 46 20 4e 4f 54 20 4c 41 53 54 20 52 45 43 4f 52 44 20 49 4e 20 53 45 43 54 4f 52 00 22 01 38 00 2c 00 50 5c 4c 44 4b 5c 41 37 2c 2f 38 43 5c 52 41 4e 44 4f 4d 20 44 45 4c 45 54 45 20 28 4e 4f 54 20 44 45 4c ┆LINK JUMP IF NOT LAST RECORD IN SECTOR " 8 , P LDK A7,/8C RANDOM DELETE (NOT DEL┆
0x0e8c…0edc (11, 0, 400) 41 59 45 44 29 20 00 22 01 6e 00 06 00 50 2a 20 00 23 00 0e 00 2a 00 50 4c 49 4e 4b 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 52 4e 44 5c 47 45 54 20 45 43 42 52 4e 44 20 41 44 44 52 45 53 53 00 23 00 18 00 08 00 50 5c 4c 4b 4d 00 23 00 46 00 0c ┆AYED) " n P* # * PLINK LDKL A8,ECBRND GET ECBRND ADDRESS # P LKM # F ┆
0x0edc…0f2c 00 50 5c 44 41 54 41 5c 31 20 00 23 00 52 00 24 00 50 5c 4c 44 5c 41 32 2c 45 43 42 52 4e 44 2b 38 5c 47 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 20 00 23 00 62 00 0e 00 50 5c 41 4e 4b 5c 41 32 2c 33 20 00 23 00 8a 00 24 00 50 5c 52 42 28 ┆ P DATA 1 # R $ P LD A2,ECBRND+8 GET RETURN CODE # b P ANK A2,3 # $ P RB(┆
0x0f2c…0f7c 4e 5a 29 5c 52 54 4e 3a 30 32 5c 4f 55 54 50 55 54 20 49 2f 4f 20 45 52 52 4f 52 3f 00 23 00 9c 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 23 00 c4 00 06 00 50 2a 20 00 23 00 d4 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 52 49 4e 44 45 58 20 00 23 ┆NZ) RTN:02 OUTPUT I/O ERROR? # P RTN A14 # P* # P EJECT RINDEX #┆
0x0f7c…0fcc 00 de 00 04 00 50 00 23 00 f6 00 04 00 50 00 23 00 fe 00 0c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 00 23 01 06 00 0c 00 50 2a 52 43 50 52 4f 54 2a 00 23 01 16 00 0c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 00 23 01 26 00 04 00 50 00 23 01 36 00 04 00 50 00 23 ┆ P # P # P******** # P*RCPROT* # P******** # & P # 6 P #┆
0x0fcc…101c 01 3e 00 10 00 50 52 43 50 52 4f 54 5c 45 51 55 5c 2a 00 23 01 46 00 2a 00 50 5c 4c 44 5c 41 33 2c 31 30 2c 41 38 5c 47 45 54 20 4c 4f 47 49 43 41 4c 20 52 45 43 4f 52 44 20 4e 55 4d 42 45 52 00 23 01 5a 00 14 00 50 5c 53 54 5c 41 33 2c 45 ┆ > PRCPROT EQU * # F * P LD A3,10,A8 GET LOGICAL RECORD NUMBER # Z P ST A3,E┆
0x101c…106c (12, 0, 400) 43 42 52 4e 44 2b 31 30 00 23 01 88 00 10 00 50 5c 4c 44 5c 41 33 2c 31 32 2c 41 38 00 24 00 10 00 14 00 50 5c 53 54 5c 41 33 2c 45 43 42 52 4e 44 2b 31 32 00 24 00 24 00 1e 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 38 5c 47 45 54 20 46 49 4c 45 ┆CBRND+10 # P LD A3,12,A8 $ P ST A3,ECBRND+12 $ $ P LDR* A3,A8 GET FILE┆
0x106c…10bc 20 43 4f 44 45 20 00 24 00 3c 00 14 00 50 5c 53 43 5c 41 33 2c 45 43 42 52 4e 44 2b 31 20 00 24 00 5e 00 16 00 50 5c 4c 44 52 5c 41 31 2c 41 38 5c 53 41 56 45 20 41 38 00 24 00 76 00 1e 00 50 5c 43 46 5c 41 31 34 2c 52 41 4e 44 52 44 5c 52 ┆ CODE $ < P SC A3,ECBRND+1 $ ^ P LDR A1,A8 SAVE A8 $ v P CF A14,RANDRD R┆
0x10bc…110c 41 4e 44 4f 4d 20 52 45 41 44 00 24 00 90 00 20 00 50 5c 43 46 5c 41 31 34 2c 52 41 4e 44 44 4c 5c 52 41 4e 44 4f 4d 20 44 45 4c 45 54 45 00 24 00 b2 00 1a 00 50 5c 4c 44 52 5c 41 38 2c 41 31 5c 52 45 53 54 4f 52 45 20 41 38 20 00 24 00 d6 ┆ANDOM READ $ P CF A14,RANDDL RANDOM DELETE $ P LDR A8,A1 RESTORE A8 $ ┆
0x110c…115c 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 24 00 f4 00 06 00 50 2a 20 00 24 01 04 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 52 49 4e 44 45 58 20 00 24 01 0e 00 04 00 50 00 24 01 26 00 04 00 50 00 24 01 2e 00 0c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 00 24 ┆ P RTN A14 $ P* $ P EJECT RINDEX $ P $ & P $ . P******** $┆
0x115c…11ac 01 36 00 0c 00 50 2a 48 4b 54 41 50 45 2a 00 24 01 46 00 0c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 00 24 01 56 00 04 00 50 00 24 01 66 00 04 00 50 00 24 01 6e 00 22 00 50 48 4b 54 41 50 45 5c 45 51 55 5c 2a 5c 54 4f 20 42 45 20 49 4d 50 4c 45 4d 45 ┆ 6 P*HKTAPE* $ F P******** $ V P $ f P $ n " PHKTAPE EQU * TO BE IMPLEME┆