|
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: 4558 (0x11ce)
Notes: pts_type(SC)
Names: »CONPAR.SC«
└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
└─⟦this⟧ »TOSSUTIL/CONPAR.SC«
IDENT CONPAR REL 8.3 79-06-25 870136640830 UPD 78-04-18/KAHO UPD 78-04-26/KAHO ******************************************** * * 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 8.3 79-06-25 870136640830 «, t00=0x0000, t01=0x0004}
0x0036…0052 Head {h00=0x0018, h01=0x0050, text=» UPD 78-04-18/KAHO«, t00=0x0000, t01=0x003a}
0x0052…006e Head {h00=0x0018, h01=0x0050, text=» UPD 78-04-26/KAHO«, t00=0x0000, t01=0x0056}
0x006e…0076 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0072}
0x0076…00aa Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0000, t01=0x007a}
0x00aa…00b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ae}
0x00b4…00dc Head {h00=0x0024, h01=0x0050, text=»* SORTF-PARAMETERS DEPENDENT ON«, t00=0x0000, t01=0x00b8}
0x00dc…00fe Head {h00=0x001e, h01=0x0050, text=»* 6810 WITH 6875/6876 DU «, t00=0x0000, t01=0x00e0}
0x00fe…0108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0102}
0x0108…013c Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0000, t01=0x010c}
0x013c…0146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0140}
0x0146…0180 Head {h00=0x0036, h01=0x0050, text=»* CONNECTION WITH CONDITIONAL ASSEMBLY OF SORTF:«, t00=0x0000, t01=0x014a}
0x0180…01be Head {h00=0x003a, h01=0x0050, text=»* EXTFUN EQU 1 ALLOWS ALL VALUES ON EXTPRT & SYSFNR «, t00=0x0000, t01=0x0184}
0x01be…01d0 Head {h00=0x000e, h01=0x0050, text=» & TIMER«, t00=0x0001, t01=0x0032}
0x01d0…01d8 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0044}
0x01d8…0224 Head {h00=0x0048, h01=0x0050, text=»* EXTFUN EQU 0 IMPLIES NO USAGE AT ALL OF EXTPRT, TIMER OR SYSFNR «, t00=0x0001, t01=0x004c}
0x0224…022c Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0098}
0x022c…0260 Head {h00=0x0030, h01=0x0050, text=»* OPT EQU 0, OPT EQU 1 SAME AS FOR SORTF «, t00=0x0001, t01=0x00a0}
0x0260…026a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d4}
0x026a…0272 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00de}
0x0272…0288 Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSPAR «, t00=0x0001, t01=0x00e6}
0x0288…029e Head {h00=0x0012, h01=0x0050, text=» ENTRY CONPAR «, t00=0x0001, t01=0x00fc}
0x029e…02ba Head {h00=0x0018, h01=0x0050, text=» ENTRY C,SYSFNR,VBB «, t00=0x0001, t01=0x0112}
0x02ba…02c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012e}
0x02c4…02fa Head {h00=0x0032, h01=0x0050, text=»* OPT EQU 1 MEANS OPTIMIZING WITH VBB-VECTOR«, t00=0x0001, t01=0x0138}
0x02fa…0324 Head {h00=0x0026, h01=0x0050, text=»* OPT EQU 0 MEANS NO OPTIMIZING «, t00=0x0001, t01=0x016e}
0x0324…032c Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0008}
0x032c…033e Head {h00=0x000e, h01=0x0050, text=»OPT EQU 1 «, t00=0x0002, t01=0x0010}
0x033e…0346 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0022}
0x0346…0350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002a}
0x0350…0364 Head {h00=0x0010, h01=0x0050, text=»SYSPAR EQU *«, t00=0x0002, t01=0x0034}
0x0364…0378 Head {h00=0x0010, h01=0x0050, text=»CONPAR EQU *«, t00=0x0002, t01=0x0048}
0x0378…03a4 Head {h00=0x0028, h01=0x0050, text=»C DATA 3 3 LKM'S BETWEEN TWO LOGICAL«, t00=0x0002, t01=0x005c}
0x03a4…03ce Head {h00=0x0026, h01=0x0050, text=» SECTORS WITH INTERLACING WITH 3«, t00=0x0002, t01=0x0088}
0x03ce…03f4 Head {h00=0x0022, h01=0x0050, text=»GSYS DATA 5 5 SECTORS PER LAP «, t00=0x0002, t01=0x00b2}
0x03f4…0416 Head {h00=0x001e, h01=0x0050, text=» WITH INTERLACING WITH 3«, t00=0x0002, t01=0x00d8}
0x0416…043e Head {h00=0x0024, h01=0x0050, text=» GSYS = NO. OF DM-BUFFERS WILL«, t00=0x0002, t01=0x00fa}
0x043e…046a Head {h00=0x0028, h01=0x0050, text=» OVERRIDE CORRESPONDING PARAMETER «, t00=0x0002, t01=0x0122}
0x046a…048e Head {h00=0x0020, h01=0x0050, text=» IN PBLK IF BSYS IS LESS. «, t00=0x0002, t01=0x014e}
0x048e…04c2 Head {h00=0x0030, h01=0x0050, text=»EXTPRT DATA 0 0 = EXTENDED PRINTING. 0 ELSE «, t00=0x0002, t01=0x0172}
0x04c2…04f2 Head {h00=0x002c, h01=0x0050, text=»TIMER DATA 0 1 = TIMER INCLUDED, ELSE 0 «, t00=0x0003, t01=0x0016}
0x04f2…04fa Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0046}
0x04fa…051c Head {h00=0x001e, h01=0x0050, text=»SYSFNR DATA 1 1 MEANS THAT«, t00=0x0003, t01=0x004e}
0x051c…054c Head {h00=0x002c, h01=0x0050, text=» FREE RECORDS ARE COMPLETELY HANDLED. «, t00=0x0003, t01=0x0070}
0x054c…0576 Head {h00=0x0026, h01=0x0050, text=» THUS REPLACEMENTS ARE DELETED. «, t00=0x0003, t01=0x00a0}
0x0576…0596 Head {h00=0x001c, h01=0x0050, text=» 0 IMPLIES FNR := 0 & «, t00=0x0003, t01=0x00ca}
0x0596…05be Head {h00=0x0024, h01=0x0050, text=» REPLACEMENTS ARE NOT DELETED.«, t00=0x0003, t01=0x00ea}
0x05be…05c6 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0112}
0x05c6…05d8 Head {h00=0x000e, h01=0x0050, text=» IFT OPT=1«, t00=0x0003, t01=0x011a}
0x05d8…0608 Head {h00=0x002c, h01=0x0050, text=»VBB EQU * BUFFER-SIZE VECTOR FOR BUFOPT «, t00=0x0003, t01=0x012c}
0x0608…061c Head {h00=0x0010, h01=0x0050, text=» DATA /0101 «, t00=0x0003, t01=0x015c}
0x061c…0630 Head {h00=0x0010, h01=0x0050, text=» DATA /0105 «, t00=0x0003, t01=0x0170}
0x0630…0644 Head {h00=0x0010, h01=0x0050, text=» DATA /0405 «, t00=0x0003, t01=0x0184}
0x0644…0658 Head {h00=0x0010, h01=0x0050, text=» DATA /0410 «, t00=0x0004, t01=0x0008}
0x0658…066c Head {h00=0x0010, h01=0x0050, text=» DATA /1010 «, t00=0x0004, t01=0x001c}
0x066c…0680 Head {h00=0x0010, h01=0x0050, text=» DATA /1020 «, t00=0x0004, t01=0x0030}
0x0680…0694 Head {h00=0x0010, h01=0x0050, text=» DATA /2020 «, t00=0x0004, t01=0x0044}
0x0694…06a8 Head {h00=0x0010, h01=0x0050, text=» DATA /2000 «, t00=0x0004, t01=0x0058}
0x06a8…06b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x006c}
0x06b4…06bc Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0078}
0x06bc…06c4 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0080}
0x06c4…06d0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0004, t01=0x0088}
0x06d0…06d4 Head {h00=0x4004, h01=0x0000}
0x06d4…06d8 00 04 00 94 ┆ ┆
0x06d8…06e0 (5, 1, 8) 20 04 00 00 00 05 00 04 ┆ ┆
0x06e0…0730 (6, 0, 400) 52 4b 45 59 20 3d 20 52 53 45 4c 20 3d 20 30 20 00 35 01 84 00 1c 00 50 5c 53 54 5c 41 31 2c 52 53 45 4c 5c 52 53 45 4c 20 3a 3d 20 52 49 4e 50 00 36 00 18 00 22 00 50 53 52 54 32 37 30 5c 43 57 52 5c 41 32 2c 41 31 5c 52 4b 45 59 20 3e 20 ┆RKEY = RSEL = 0 5 P ST A1,RSEL RSEL := RINP 6 " PSRT270 CWR A2,A1 RKEY > ┆
0x0730…0780 52 53 45 4c 20 3f 00 36 00 38 00 1c 00 50 5c 52 42 28 47 29 5c 53 52 54 32 35 30 5c 59 45 53 2e 20 45 52 52 4f 52 00 36 00 5e 00 1e 00 50 5c 43 57 5c 41 31 2c 52 49 4e 50 5c 52 53 45 4c 20 3e 20 52 49 4e 50 20 3f 20 00 36 00 7e 00 1c 00 50 ┆RSEL ? 6 8 P RB(G) SRT250 YES. ERROR 6 ^ P CW A1,RINP RSEL > RINP ? 6 ~ P┆
0x0780…07d0 5c 52 42 28 47 29 5c 53 52 54 32 35 30 5c 59 45 53 2e 20 45 52 52 4f 52 00 36 00 a0 00 18 00 50 5c 43 57 4b 5c 41 31 2c 36 5c 52 53 45 4c 20 3c 20 36 20 3f 00 36 00 c0 00 1c 00 50 5c 52 42 28 4c 29 5c 53 52 54 32 35 30 5c 59 45 53 2e 20 45 ┆ RB(G) SRT250 YES. ERROR 6 P CWK A1,6 RSEL < 6 ? 6 P RB(L) SRT250 YES. E┆
0x07d0…0820 52 52 4f 52 00 36 00 dc 00 0a 00 50 5c 45 4a 45 43 54 00 36 00 fc 00 06 00 50 2a 20 00 36 01 0a 00 12 00 50 2a 20 20 41 4e 41 4c 59 5a 45 20 54 4e 52 00 36 01 14 00 06 00 50 2a 20 00 36 01 2a 00 26 00 50 5c 43 4d 50 5c 54 4e 52 2c 5a 45 52 ┆RROR 6 P EJECT 6 P* 6 P* ANALYZE TNR 6 P* 6 * & P CMP TNR,ZER┆
0x0820…0870 4f 5c 54 4e 52 20 3d 20 30 3f 20 45 4d 50 54 59 20 46 49 4c 45 3f 00 36 01 34 00 1c 00 50 5c 52 46 28 45 29 5c 53 52 54 45 58 54 5c 59 45 53 2c 20 45 58 49 54 20 00 36 01 5e 00 1c 00 50 5c 43 4d 50 5c 54 4e 52 2c 5a 45 52 4f 4e 45 5c 54 4e ┆O TNR = 0? EMPTY FILE? 6 4 P RF(E) SRTEXT YES, EXIT 6 ^ P CMP TNR,ZERONE TN┆
0x0870…08c0 (7, 0, 400) 52 20 3d 20 31 3f 00 36 01 7e 00 1e 00 50 5c 52 46 28 47 29 5c 53 52 54 32 37 31 5c 4e 4f 2e 20 43 4f 4e 54 49 4e 55 45 00 37 00 0e 00 12 00 50 5c 45 4a 45 43 54 5c 5c 5c 53 4f 52 54 46 00 37 00 30 00 06 00 50 2a 20 00 37 00 46 00 34 00 50 ┆R = 1? 6 ~ P RF(G) SRT271 NO. CONTINUE 7 P EJECT SORTF 7 0 P* 7 F 4 P┆
0x08c0…0910 2a 20 20 20 54 4e 52 20 3d 20 31 2e 20 43 48 45 43 4b 20 49 46 20 52 45 43 4f 52 44 20 49 53 20 46 52 45 45 20 42 45 46 4f 52 45 20 45 58 49 54 00 37 00 50 00 06 00 50 2a 20 00 37 00 88 00 1c 00 50 5c 4d 4f 56 45 5c 52 4e 2c 5a 45 52 4f 4e ┆* TNR = 1. CHECK IF RECORD IS FREE BEFORE EXIT 7 P P* 7 P MOVE RN,ZERON┆
0x0910…0960 45 5c 52 4e 20 3a 3d 20 31 20 00 37 00 92 00 26 00 50 5c 4c 44 4b 4c 5c 41 31 2c 44 55 42 53 43 52 5c 47 45 54 20 44 55 42 53 43 52 20 41 44 44 52 45 53 53 00 37 00 b2 00 24 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 49 4e 5c 47 45 54 20 45 ┆E RN := 1 7 & P LDKL A1,DUBSCR GET DUBSCR ADDRESS 7 $ P LDKL A8,ECBIN GET E┆
0x0960…09b0 43 42 49 4e 20 41 44 44 52 45 53 53 00 37 00 dc 00 24 00 50 5c 53 54 5c 41 31 2c 32 2c 41 38 5c 42 55 46 46 20 41 44 44 52 20 3a 3d 20 44 55 42 53 43 52 20 00 37 01 04 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 32 20 00 37 01 2c 00 26 00 50 5c 53 ┆CBIN ADDRESS 7 $ P ST A1,2,A8 BUFF ADDR := DUBSCR 7 P LDK A1,2 7 , & P S┆
0x09b0…0a00 54 5c 41 31 2c 34 2c 41 38 5c 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 20 3a 3d 20 32 20 00 37 01 3e 00 2e 00 50 5c 4c 44 4b 5c 41 37 2c 2f 43 46 5c 52 41 4e 44 4f 4d 20 52 45 41 44 20 41 4e 44 20 52 45 4c 45 41 53 45 20 42 55 46 46 ┆T A1,4,A8 REQUESTED LENGTH := 2 7 > . P LDK A7,/CF RANDOM READ AND RELEASE BUFF┆
0x0a00…0a50 (8, 0, 400) 45 52 00 37 01 68 00 12 00 50 5c 43 46 5c 41 31 34 2c 4c 4b 4d 52 45 51 00 38 00 0a 00 16 00 50 5c 4c 44 5c 41 31 2c 46 46 52 45 45 5c 46 52 45 45 3f 00 38 00 20 00 1a 00 50 5c 52 46 28 5a 29 5c 53 52 54 45 58 54 5c 4e 4f 2c 20 45 58 49 54 ┆ER 7 h P CF A14,LKMREQ 8 P LD A1,FFREE FREE? 8 P RF(Z) SRTEXT NO, EXIT┆
0x0a50…0aa0 00 38 00 3a 00 16 00 50 5c 43 4d 5c 54 4e 52 2b 32 5c 54 4e 52 20 3a 3d 20 30 00 38 00 58 00 24 00 50 5c 43 46 5c 41 31 34 2c 46 52 45 54 4e 52 5c 54 4e 52 20 3a 3d 20 30 20 49 4e 20 50 42 4c 4b 20 00 38 00 72 00 14 00 50 5c 52 46 5c 53 52 ┆ 8 : P CM TNR+2 TNR := 0 8 X $ P CF A14,FRETNR TNR := 0 IN PBLK 8 r P RF SR┆
0x0aa0…0af0 54 45 58 54 5c 45 58 49 54 20 00 38 00 9a 00 06 00 50 2a 20 00 38 00 b2 00 0a 00 50 5c 45 4a 45 43 54 00 38 00 bc 00 06 00 50 2a 20 00 38 00 ca 00 4e 00 50 2a 20 20 20 43 41 4c 43 55 4c 41 54 45 20 45 46 46 45 43 54 49 56 45 20 42 4c 4f 43 ┆TEXT EXIT 8 P* 8 P EJECT 8 P* 8 N P* CALCULATE EFFECTIVE BLOC┆
0x0af0…0b40 4b 20 46 41 43 54 4f 52 20 28 46 49 4e 50 29 20 54 48 41 54 20 53 48 41 4c 4c 20 43 4f 4e 54 41 49 4e 20 46 49 2c 20 46 4f 20 26 20 46 57 00 38 00 d4 00 06 00 50 2a 20 00 38 01 26 00 10 00 50 53 52 54 32 37 31 5c 45 51 55 5c 2a 00 38 01 30 ┆K FACTOR (FINP) THAT SHALL CONTAIN FI, FO & FW 8 P* 8 & PSRT271 EQU * 8 0┆
0x0b40…0b90 00 10 00 50 5c 4c 44 5c 41 36 2c 42 4c 46 57 4b 00 38 01 44 00 0e 00 50 5c 4c 44 5c 41 31 2c 46 49 20 00 38 01 58 00 0e 00 50 5c 4c 44 5c 41 35 2c 46 4f 20 00 38 01 6a 00 18 00 50 5c 43 57 52 5c 41 31 2c 41 35 5c 46 49 20 3e 20 46 4f 20 3f ┆ P LD A6,BLFWK 8 D P LD A1,FI 8 X P LD A5,FO 8 j P CWR A1,A5 FI > FO ?┆
0x0b90…0be0 (9, 0, 400) 00 38 01 7c 00 16 00 50 5c 52 46 28 47 29 5c 53 52 54 32 37 32 5c 59 45 53 20 00 39 00 08 00 0e 00 50 5c 4c 44 52 5c 41 35 2c 41 31 00 39 00 22 00 0e 00 50 5c 4c 44 5c 41 31 2c 46 4f 20 00 39 00 34 00 28 00 50 53 52 54 32 37 32 5c 43 57 52 ┆ 8 | P RF(G) SRT272 YES 9 P LDR A5,A1 9 " P LD A1,FO 9 4 ( PSRT272 CWR┆
0x0be0…0c30 5c 41 31 2c 41 36 5c 4d 41 58 20 28 46 49 2c 46 4f 29 20 3e 20 46 57 20 3f 20 00 39 00 46 00 16 00 50 5c 52 46 28 47 29 5c 53 52 54 32 37 34 5c 59 45 53 20 00 39 00 72 00 0e 00 50 5c 4c 44 52 5c 41 36 2c 41 31 00 39 00 8c 00 10 00 50 5c 4c ┆ A1,A6 MAX (FI,FO) > FW ? 9 F P RF(G) SRT274 YES 9 r P LDR A6,A1 9 P L┆
0x0c30…0c80 44 5c 41 31 2c 42 4c 46 57 4b 00 39 00 9e 00 2e 00 50 53 52 54 32 37 34 5c 4c 44 52 5c 41 38 2c 41 31 5c 41 38 20 3d 20 41 31 20 3d 20 4d 41 58 20 28 46 49 2c 46 4f 2c 46 57 29 20 00 39 00 b2 00 14 00 50 53 52 54 32 37 36 5c 4c 44 4b 5c 41 ┆D A1,BLFWK 9 . PSRT274 LDR A8,A1 A8 = A1 = MAX (FI,FO,FW) 9 PSRT276 LDK A┆
0x0c80…0cd0 37 2c 30 20 00 39 00 e4 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 35 00 39 00 fc 00 1c 00 50 5c 43 46 5c 41 31 34 2c 53 57 44 49 56 5c 41 33 20 3d 20 41 31 2f 41 35 00 39 01 0e 00 1e 00 50 5c 41 44 52 5c 41 37 2c 41 34 5c 41 34 20 3d 20 52 45 ┆7,0 9 P LDR A2,A5 9 P CF A14,SWDIV A3 = A1/A5 9 P ADR A7,A4 A4 = RE┆
0x0cd0…0d20 4d 41 49 4e 44 45 52 20 00 39 01 2e 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 36 00 39 01 50 00 1c 00 50 5c 43 46 5c 41 31 34 2c 53 57 44 49 56 5c 41 33 20 3d 20 41 31 2f 41 36 00 39 01 62 00 1e 00 50 5c 41 44 52 5c 41 37 2c 41 34 5c 41 34 20 ┆MAINDER 9 . P LDR A2,A6 9 P P CF A14,SWDIV A3 = A1/A6 9 b P ADR A7,A4 A4 ┆
0x0d20…0d70 (10, 0, 400) 3d 20 52 45 4d 41 49 4e 44 45 52 20 00 39 01 82 00 28 00 50 5c 52 46 28 5a 29 5c 53 52 54 32 38 30 5c 42 4f 54 48 20 52 45 4d 41 49 4e 44 45 52 53 20 3d 20 5a 45 52 4f 00 3a 00 14 00 20 00 50 5c 41 44 52 5c 41 31 2c 41 38 5c 54 52 59 20 4e ┆= REMAINDER 9 ( P RF(Z) SRT280 BOTH REMAINDERS = ZERO : P ADR A1,A8 TRY N┆
0x0d70…0dc0 45 58 54 20 48 49 47 48 45 52 20 46 00 3a 00 40 00 0e 00 50 5c 52 42 5c 53 52 54 32 37 36 00 3a 00 64 00 1e 00 50 53 52 54 32 38 30 5c 53 54 5c 41 31 2c 46 49 4e 50 5c 53 45 54 20 46 49 4e 50 00 3a 00 76 00 0a 00 50 5c 45 4a 45 43 54 00 3a ┆EXT HIGHER F : @ P RB SRT276 : d PSRT280 ST A1,FINP SET FINP : v P EJECT :┆
0x0dc0…0e10 00 98 00 06 00 50 2a 20 00 3a 00 a6 00 4a 00 50 2a 20 20 20 43 41 4c 43 55 4c 41 54 45 20 45 46 46 45 43 54 49 56 45 20 42 4c 4f 43 4b 20 46 41 43 54 4f 52 20 28 46 53 45 4c 29 20 54 48 41 54 20 53 48 41 4c 4c 20 43 4f 4e 54 41 49 4e 20 46 ┆ P* : J P* CALCULATE EFFECTIVE BLOCK FACTOR (FSEL) THAT SHALL CONTAIN F┆
0x0e10…0e60 4f 20 26 20 46 57 00 3a 00 b0 00 3c 00 50 2a 20 20 20 46 53 45 4c 20 3a 3d 20 46 49 4e 50 20 49 46 20 52 4b 45 59 20 3d 20 30 20 49 2e 45 2e 20 4e 4f 20 53 45 4c 45 43 54 49 4f 4e 20 44 45 4d 41 4e 44 45 44 20 00 3a 00 fe 00 06 00 50 2a 20 ┆O & FW : < P* FSEL := FINP IF RKEY = 0 I.E. NO SELECTION DEMANDED : P* ┆
0x0e60…0eb0 00 3a 01 3e 00 10 00 50 5c 4c 44 5c 41 32 2c 52 4b 45 59 20 00 3a 01 48 00 26 00 50 5c 52 46 28 5a 29 5c 53 52 54 32 38 37 5c 52 4b 45 59 20 3d 20 30 2e 20 41 31 20 3d 20 46 49 4e 50 20 00 3a 01 5c 00 0e 00 50 5c 4c 44 5c 41 31 2c 46 4f 20 ┆ : > P LD A2,RKEY : H & P RF(Z) SRT287 RKEY = 0. A1 = FINP : P LD A1,FO ┆
0x0eb0…0f00 (11, 0, 400) 00 3a 01 86 00 10 00 50 5c 4c 44 5c 41 32 2c 42 4c 46 57 4b 00 3b 00 08 00 18 00 50 5c 43 57 52 5c 41 31 2c 41 32 5c 46 4f 20 3e 20 46 57 20 3f 00 3b 00 1c 00 16 00 50 5c 52 46 28 47 29 5c 53 52 54 32 38 33 5c 59 45 53 20 00 3b 00 38 00 0e ┆ : P LD A2,BLFWK ; P CWR A1,A2 FO > FW ? ; P RF(G) SRT283 YES ; 8 ┆
0x0f00…0f50 00 50 5c 4c 44 52 5c 41 31 2c 41 32 00 3b 00 52 00 0e 00 50 5c 4c 44 5c 41 32 2c 46 4f 20 00 3b 00 64 00 2c 00 50 53 52 54 32 38 33 5c 4c 44 52 5c 41 35 2c 41 31 5c 41 35 20 3a 3d 20 41 31 20 3d 20 4d 41 58 20 28 46 4f 2c 46 57 29 20 00 3b ┆ P LDR A1,A2 ; R P LD A2,FO ; d , PSRT283 LDR A5,A1 A5 := A1 = MAX (FO,FW) ;┆
0x0f50…0fa0 00 76 00 24 00 50 53 52 54 32 38 35 5c 43 46 5c 41 31 34 2c 53 57 44 49 56 5c 41 33 20 3a 3d 20 41 31 2f 41 32 20 00 3b 00 a6 00 1e 00 50 5c 4c 44 52 5c 41 34 2c 41 34 5c 52 45 4d 41 49 4e 44 45 52 20 3d 20 30 20 3f 00 3b 00 ce 00 16 00 50 ┆ v $ PSRT285 CF A14,SWDIV A3 := A1/A2 ; P LDR A4,A4 REMAINDER = 0 ? ; P┆
0x0fa0…0ff0 5c 52 46 28 5a 29 5c 53 52 54 32 38 37 5c 59 45 53 20 00 3b 00 f0 00 20 00 50 5c 41 44 52 5c 41 31 2c 41 35 5c 54 52 59 20 4e 45 58 54 20 48 49 47 48 45 52 20 46 00 3b 01 0a 00 0e 00 50 5c 52 42 5c 53 52 54 32 38 35 00 3b 01 2e 00 1e 00 50 ┆ RF(Z) SRT287 YES ; P ADR A1,A5 TRY NEXT HIGHER F ; P RB SRT285 ; . P┆
0x0ff0…1040 53 52 54 32 38 37 5c 53 54 5c 41 31 2c 46 53 45 4c 5c 53 45 54 20 46 53 45 4c 00 3b 01 40 00 08 00 50 5c 58 49 46 00 3b 01 62 00 12 00 50 5c 49 46 46 5c 45 58 54 46 55 4e 3d 31 20 00 3b 01 6e 00 06 00 50 2a 20 00 3b 01 84 00 2e 00 50 2a 20 ┆SRT287 ST A1,FSEL SET FSEL ; @ P XIF ; b P IFF EXTFUN=1 ; n P* ; . P* ┆
0x1040…1090 (12, 0, 398) 20 20 43 48 45 43 4b 20 54 48 41 54 20 41 4c 4c 20 42 4c 4f 43 4b 20 46 41 43 54 4f 52 53 20 41 52 45 20 45 51 55 41 4c 00 3b 01 8e 00 18 00 50 2a 20 20 20 49 46 20 53 4f 20 46 49 4e 50 20 3a 3d 20 46 49 00 3c 00 30 00 06 00 50 2a 20 00 3c ┆ CHECK THAT ALL BLOCK FACTORS ARE EQUAL ; P* IF SO FINP := FI < 0 P* <┆
0x1090…10e0 00 4c 00 14 00 50 53 52 54 32 30 30 5c 4c 44 5c 41 31 2c 46 49 20 00 3c 00 56 00 0e 00 50 5c 43 57 5c 41 31 2c 46 4f 20 00 3c 00 6e 00 24 00 50 5c 41 42 4c 28 4e 45 29 5c 52 54 4e 3a 30 33 5c 42 4c 4f 43 4b 20 53 49 5a 45 20 45 52 52 4f 52 ┆ L PSRT200 LD A1,FI < V P CW A1,FO < n $ P ABL(NE) RTN:03 BLOCK SIZE ERROR┆
0x10e0…1130 00 3c 00 80 00 10 00 50 5c 43 57 5c 41 31 2c 42 4c 46 57 4b 00 3c 00 a8 00 24 00 50 5c 41 42 4c 28 4e 45 29 5c 52 54 4e 3a 30 33 5c 42 4c 4f 43 4b 20 53 49 5a 45 20 45 52 52 4f 52 00 3c 00 bc 00 1a 00 50 5c 53 54 5c 41 31 2c 46 49 4e 50 5c ┆ < P CW A1,BLFWK < $ P ABL(NE) RTN:03 BLOCK SIZE ERROR < P ST A1,FINP ┆
0x1130…1180 46 49 4e 50 20 3a 3d 20 46 49 00 3c 00 e4 00 06 00 50 2a 20 00 3c 01 02 00 1a 00 50 2a 20 20 20 43 48 45 43 4b 20 54 48 41 54 20 54 4e 52 20 3e 20 31 00 3c 01 0c 00 06 00 50 2a 20 00 3c 01 2a 00 14 00 50 5c 43 4d 50 5c 54 4e 52 2c 5a 45 52 ┆FINP := FI < P* < P* CHECK THAT TNR > 1 < P* < * P CMP TNR,ZER┆
0x1180…11ce 4f 4e 45 20 00 3c 01 34 00 1e 00 50 5c 41 42 4c 28 4e 47 29 5c 52 54 4e 3a 31 31 5c 53 4d 41 4c 4c 20 46 49 4c 45 00 3c 01 4c 00 08 00 50 5c 58 49 46 00 3c 01 6e 00 0a 00 50 5c 45 4a 45 43 54 00 3c 01 7a 00 06 00 50 2a 20 00 3c 01 88 ┆ONE < 4 P ABL(NG) RTN:11 SMALL FILE < L P XIF < n P EJECT < z P* < ┆