|
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: 4560 (0x11d0)
Notes: pts_type(SC)
Names: »CONPAR.SC«
└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
└─⟦this⟧ »TOSSUTIL/CONPAR.SC«
IDENT CONPAR REL 8.2 78-09-15 870136640820 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.2 78-09-15 870136640820 «, 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) 41 54 41 5c 31 20 00 05 01 8e 00 04 00 50 00 06 00 0e 00 26 00 50 5c 4c 44 5c 41 32 2c 45 43 42 52 44 2b 31 30 5c 41 32 20 3d 20 43 4f 4e 54 52 4f 4c 20 57 4f 52 44 20 00 06 00 16 00 10 00 50 5c 52 42 28 4e 29 5c 52 45 41 44 20 00 06 00 40 ┆ATA 1 P & P LD A2,ECBRD+10 A2 = CONTROL WORD P RB(N) READ @┆
0x0730…0780 00 12 00 50 5c 5c 5c 50 4f 57 45 52 20 46 41 49 4c 20 00 06 00 54 00 24 00 50 5c 4c 44 5c 41 31 2c 45 43 42 52 44 2b 38 5c 41 31 20 3d 20 52 45 54 55 52 4e 20 43 4f 44 45 20 00 06 00 6a 00 14 00 50 5c 52 46 28 5a 29 5c 52 45 41 44 31 30 5c ┆ P POWER FAIL T $ P LD A1,ECBRD+8 A1 = RETURN CODE j P RF(Z) READ10 ┆
0x0780…07d0 4f 4b 00 06 00 92 00 0a 00 50 5c 45 4a 45 43 54 00 06 00 aa 00 04 00 50 00 06 00 b8 00 12 00 50 2a 20 20 52 45 41 44 20 45 52 52 4f 52 20 00 06 00 c0 00 04 00 50 00 06 00 d6 00 1a 00 50 52 44 45 52 52 5c 45 51 55 5c 2a 5c 50 52 49 4e 54 20 ┆OK P EJECT P P* READ ERROR P PRDERR EQU * PRINT ┆
0x07d0…0820 27 3f 27 20 00 06 00 de 00 14 00 50 5c 4c 44 4b 4c 5c 41 31 2c 51 55 45 53 54 42 20 00 06 00 fc 00 1a 00 50 5c 4c 44 4b 5c 41 32 2c 34 5c 4e 4f 2e 20 4f 46 20 43 48 41 52 53 00 06 01 14 00 12 00 50 5c 43 46 5c 41 31 34 2c 57 52 49 54 45 20 ┆'?' P LDKL A1,QUESTB P LDK A2,4 NO. OF CHARS P CF A14,WRITE ┆
0x0820…0870 00 06 01 32 00 0c 00 50 5c 52 42 5c 52 45 41 44 00 06 01 48 00 0a 00 50 5c 45 4a 45 43 54 00 06 01 58 00 04 00 50 00 06 01 66 00 14 00 50 2a 20 20 42 52 41 4e 43 48 20 54 41 42 4c 45 20 00 06 01 6e 00 04 00 50 00 06 01 86 00 18 00 50 52 45 ┆ 2 P RB READ H P EJECT X P f P* BRANCH TABLE n P PRE┆
0x0870…08c0 (7, 0, 400) 41 44 31 30 5c 41 42 49 5c 4b 57 54 41 42 2c 41 32 20 00 06 01 8e 00 04 00 50 00 07 00 1a 00 10 00 50 4b 57 54 41 42 5c 45 51 55 5c 2a 20 00 07 00 22 00 14 00 50 5c 44 41 54 41 5c 52 45 41 44 32 30 5c 27 2f 27 00 07 00 36 00 16 00 50 5c 44 ┆AD10 ABI KWTAB,A2 P PKWTAB EQU * " P DATA READ20 '/' 6 P D┆
0x08c0…0910 41 54 41 5c 52 45 41 44 32 30 5c 27 53 50 27 20 00 07 00 4e 00 0e 00 50 5c 49 46 54 5c 43 52 45 3d 31 00 07 00 68 00 14 00 50 5c 44 41 54 41 5c 43 52 45 41 54 45 5c 27 3d 27 00 07 00 7a 00 08 00 50 5c 58 49 46 00 07 00 92 00 0e 00 50 5c 49 ┆ATA READ20 'SP' N P IFT CRE=1 h P DATA CREATE '=' z P XIF P I┆
0x0910…0960 46 46 5c 43 52 45 3d 31 00 07 00 9e 00 14 00 50 5c 44 41 54 41 5c 52 44 45 52 52 5c 27 3d 27 20 00 07 00 b0 00 08 00 50 5c 58 49 46 00 07 00 c8 00 12 00 50 5c 44 41 54 41 5c 53 4f 52 54 5c 27 21 27 00 07 00 d4 00 14 00 50 5c 44 41 54 41 5c ┆FF CRE=1 P DATA RDERR '=' P XIF P DATA SORT '!' P DATA ┆
0x0960…09b0 50 52 49 4e 54 5c 27 3f 27 20 00 07 00 ea 00 14 00 50 5c 44 41 54 41 5c 52 44 45 52 52 5c 27 43 52 27 00 07 01 02 00 14 00 50 5c 44 41 54 41 5c 52 44 45 52 52 5c 27 4c 46 27 00 07 01 1a 00 14 00 50 5c 44 41 54 41 5c 52 44 45 52 52 5c 27 2a ┆PRINT '?' P DATA RDERR 'CR' P DATA RDERR 'LF' P DATA RDERR '*┆
0x09b0…0a00 27 20 00 07 01 32 00 0a 00 50 5c 45 4a 45 43 54 00 07 01 4a 00 04 00 50 00 07 01 58 00 20 00 50 2a 20 20 20 53 43 41 4e 20 50 41 52 54 41 42 20 46 4f 52 20 4b 45 59 20 57 4f 52 44 00 07 01 60 00 04 00 50 00 07 01 84 00 2e 00 50 52 45 41 44 ┆' 2 P EJECT J P X P* SCAN PARTAB FOR KEY WORD ` P . PREAD┆
0x0a00…0a50 (8, 0, 400) 32 30 5c 4c 44 5c 41 31 2c 4b 42 42 55 46 46 5c 41 31 20 3d 20 45 4e 54 45 52 45 44 20 4b 45 59 20 57 4f 52 44 20 00 07 01 8c 00 1c 00 50 5c 4c 44 4b 4c 5c 41 31 31 2c 2d 36 5c 41 31 31 20 3d 20 49 4e 44 45 58 00 08 00 2e 00 16 00 50 52 45 ┆20 LD A1,KBBUFF A1 = ENTERED KEY WORD P LDKL A11,-6 A11 = INDEX . PRE┆
0x0a50…0aa0 41 44 32 35 5c 41 44 4b 4c 5c 41 31 31 2c 36 20 00 08 00 4e 00 16 00 50 5c 4c 44 5c 41 33 2c 50 41 52 54 41 42 2c 41 31 31 20 00 08 00 68 00 22 00 50 5c 52 42 28 5a 29 5c 52 44 45 52 52 5c 45 4e 44 20 4f 46 20 50 41 52 54 41 42 2e 20 5c 20 ┆AD25 ADKL A11,6 N P LD A3,PARTAB,A11 h " P RB(Z) RDERR END OF PARTAB. ┆
0x0aa0…0af0 00 08 00 82 00 1a 00 50 5c 5c 5c 4b 45 59 20 57 4f 52 44 20 4e 4f 54 20 46 4f 55 4e 44 20 00 08 00 a8 00 0e 00 50 5c 43 57 52 5c 41 31 2c 41 33 00 08 00 c6 00 1c 00 50 5c 52 42 28 4e 45 29 5c 52 45 41 44 32 35 5c 54 52 59 20 4e 45 58 54 20 ┆ P KEY WORD NOT FOUND P CWR A1,A3 P RB(NE) READ25 TRY NEXT ┆
0x0af0…0b40 00 08 00 d8 00 04 00 50 00 08 00 f8 00 2e 00 50 2a 20 20 20 4b 45 59 20 57 4f 52 44 20 46 4f 55 4e 44 2e 20 41 31 31 20 3d 20 49 4e 44 45 58 20 49 4e 20 50 41 52 54 41 42 20 00 08 01 00 00 1c 00 50 2a 20 20 20 44 49 53 50 4c 41 59 20 4f 4c ┆ P . P* KEY WORD FOUND. A11 = INDEX IN PARTAB P* DISPLAY OL┆
0x0b40…0b90 44 20 45 4c 45 4d 45 4e 54 20 00 08 01 32 00 04 00 50 00 08 01 52 00 28 00 50 5c 4c 44 4b 4c 5c 41 31 30 2c 45 4c 42 55 46 32 2b 34 5c 41 31 30 20 3d 20 53 54 52 49 4e 47 20 41 44 52 20 00 08 01 5a 00 10 00 50 5c 4c 44 52 5c 41 31 2c 41 31 ┆D ELEMENT 2 P R ( P LDKL A10,ELBUF2+4 A10 = STRING ADR Z P LDR A1,A1┆
0x0b90…0be0 (9, 0, 400) 30 20 00 08 01 86 00 1c 00 50 5c 4c 44 4b 5c 41 32 2c 31 30 5c 4e 4f 2e 20 4f 46 20 42 59 54 45 53 20 00 09 00 0a 00 1a 00 50 5c 4c 44 4b 4c 5c 41 33 2c 2f 32 30 32 30 5c 53 50 41 43 45 53 20 00 09 00 2a 00 2c 00 50 5c 43 46 5c 41 31 34 2c ┆0 P LDK A2,10 NO. OF BYTES P LDKL A3,/2020 SPACES * , P CF A14,┆
0x0be0…0c30 43 4f 50 4d 4f 56 5c 53 50 41 43 45 20 57 48 4f 4c 45 20 4f 55 54 50 55 54 20 42 55 46 46 45 52 00 09 00 48 00 24 00 50 5c 43 46 5c 41 31 34 2c 4d 4f 56 45 4c 5c 4d 4f 56 45 2f 45 44 49 54 20 45 4c 45 4d 45 4e 54 20 00 09 00 78 00 28 00 50 ┆COPMOV SPACE WHOLE OUTPUT BUFFER H $ P CF A14,MOVEL MOVE/EDIT ELEMENT x ( P┆
0x0c30…0c80 5c 41 44 4b 5c 41 32 2c 36 5c 41 32 20 3d 20 4e 4f 2e 20 4f 46 20 42 59 54 45 53 20 54 4f 20 50 52 49 4e 54 00 09 00 a0 00 22 00 50 5c 4c 44 4b 4c 5c 41 31 2c 45 4c 42 55 46 32 5c 41 31 20 3d 20 42 55 46 46 2d 41 44 52 20 00 09 00 cc 00 20 ┆ ADK A2,6 A2 = NO. OF BYTES TO PRINT " P LDKL A1,ELBUF2 A1 = BUFF-ADR ┆
0x0c80…0cd0 00 50 5c 43 46 5c 41 31 34 2c 57 52 49 54 45 5c 50 52 49 4e 54 20 45 4c 45 4d 45 4e 54 20 00 09 00 f2 00 0a 00 50 5c 45 4a 45 43 54 00 09 01 16 00 04 00 50 00 09 01 24 00 22 00 50 2a 20 20 20 52 45 41 44 20 45 4c 45 4d 45 4e 54 20 46 52 4f ┆ P CF A14,WRITE PRINT ELEMENT P EJECT P $ " P* READ ELEMENT FRO┆
0x0cd0…0d20 4d 20 4b 45 59 42 4f 41 52 44 00 09 01 2c 00 04 00 50 00 09 01 52 00 14 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4b 42 54 41 42 32 20 00 09 01 5a 00 1e 00 50 5c 53 54 5c 41 31 2c 45 43 42 52 44 2b 31 30 5c 4b 45 59 20 54 41 42 4c 45 20 00 09 01 72 ┆M KEYBOARD , P R P LDKL A1,KBTAB2 Z P ST A1,ECBRD+10 KEY TABLE r┆
0x0d20…0d70 (10, 0, 400) 00 1a 00 50 5c 4c 44 4b 5c 41 31 2c 39 5c 52 45 51 2e 20 4c 45 4e 47 54 48 20 00 0a 00 04 00 12 00 50 5c 53 54 5c 41 31 2c 45 43 42 52 44 2b 34 00 0a 00 22 00 28 00 50 5c 4c 44 4b 5c 41 37 2c 2f 43 32 5c 53 54 41 4e 44 41 52 44 20 52 45 41 ┆ P LDK A1,9 REQ. LENGTH P ST A1,ECBRD+4 " ( P LDK A7,/C2 STANDARD REA┆
0x0d70…0dc0 44 20 57 49 54 48 20 45 43 48 4f 20 00 0a 00 38 00 12 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 52 44 00 0a 00 64 00 04 00 50 00 0a 00 7a 00 08 00 50 5c 4c 4b 4d 00 0a 00 82 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 0a 00 8e 00 04 00 50 00 0a ┆D WITH ECHO 8 P LDKL A8,ECBRD d P z P LKM P DATA 1 P ┆
0x0dc0…0e10 00 9e 00 26 00 50 5c 4c 44 5c 41 32 2c 45 43 42 52 44 2b 31 30 5c 41 32 20 3d 20 43 4f 4e 54 52 4f 4c 20 57 4f 52 44 20 00 0a 00 a6 00 1a 00 50 5c 52 42 28 4e 29 5c 52 45 41 44 5c 50 4f 57 45 52 20 46 41 49 4c 00 0a 00 d0 00 24 00 50 5c 4c ┆ & P LD A2,ECBRD+10 A2 = CONTROL WORD P RB(N) READ POWER FAIL $ P L┆
0x0e10…0e60 44 5c 41 31 2c 45 43 42 52 44 2b 38 5c 41 31 20 3d 20 52 45 54 55 52 4e 20 43 4f 44 45 20 00 0a 00 ee 00 18 00 50 5c 52 42 28 4e 5a 29 5c 52 44 45 52 52 5c 45 52 52 4f 52 20 00 0a 01 16 00 24 00 50 5c 4c 44 5c 41 31 2c 45 43 42 52 44 2b 36 ┆D A1,ECBRD+8 A1 = RETURN CODE P RB(NZ) RDERR ERROR $ P LD A1,ECBRD+6┆
0x0e60…0eb0 5c 41 31 20 3d 20 45 46 46 2e 20 4c 45 4e 47 54 48 20 00 0a 01 32 00 24 00 50 5c 53 55 4b 5c 41 31 2c 31 5c 41 31 20 3d 20 4e 4f 2e 20 4f 46 20 44 41 54 41 20 43 48 41 52 53 00 0a 01 5a 00 24 00 50 5c 52 42 28 5a 29 5c 52 45 41 44 5c 45 4f ┆ A1 = EFF. LENGTH 2 $ P SUK A1,1 A1 = NO. OF DATA CHARS Z $ P RB(Z) READ EO┆
0x0eb0…0f00 (11, 0, 400) 52 2d 4b 45 59 20 4f 4e 4c 59 20 45 4e 54 45 52 45 44 00 0a 01 82 00 28 00 50 5c 4c 44 52 5c 41 31 32 2c 41 31 5c 41 31 32 20 3d 20 4e 4f 2e 20 4f 46 20 44 41 54 41 20 43 48 41 52 53 20 00 0b 00 1a 00 22 00 50 5c 4c 44 5c 41 32 2c 45 43 42 ┆R-KEY ONLY ENTERED ( P LDR A12,A1 A12 = NO. OF DATA CHARS " P LD A2,ECB┆
0x0f00…0f50 52 44 2b 32 5c 41 32 20 3d 20 42 55 46 46 45 52 20 41 44 52 00 0b 00 46 00 0a 00 50 5c 45 4a 45 43 54 00 0b 00 6c 00 04 00 50 00 0b 00 7a 00 22 00 50 2a 20 20 20 53 50 41 43 45 20 52 45 53 54 20 4f 46 20 49 4e 50 55 54 20 42 55 46 46 45 52 ┆RD+2 A2 = BUFFER ADR F P EJECT l P z " P* SPACE REST OF INPUT BUFFER┆
0x0f50…0fa0 00 0b 00 82 00 04 00 50 00 0b 00 a8 00 1e 00 50 5c 41 44 52 5c 41 32 2c 41 31 5c 41 32 20 3d 20 53 54 41 52 54 20 41 44 52 20 00 0b 00 b0 00 1a 00 50 5c 4c 44 4b 5c 41 33 2c 2f 32 30 5c 41 33 20 3d 20 53 50 41 43 45 00 0b 00 d2 00 24 00 50 ┆ P P ADR A2,A1 A2 = START ADR P LDK A3,/20 A3 = SPACE $ P┆
0x0fa0…0ff0 5c 53 55 4b 5c 41 31 2c 39 5c 41 31 20 3d 20 4e 45 47 41 54 49 56 45 20 43 4f 55 4e 54 45 52 20 00 0b 00 f0 00 04 00 50 00 0b 01 18 00 14 00 50 52 45 41 44 33 35 5c 53 43 52 5c 41 33 2c 41 32 00 0b 01 20 00 0e 00 50 5c 41 44 4b 5c 41 32 2c ┆ SUK A1,9 A1 = NEGATIVE COUNTER P PREAD35 SCR A3,A2 P ADK A2,┆
0x0ff0…1040 31 20 00 0b 01 38 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 31 20 00 0b 01 4a 00 12 00 50 5c 52 42 28 4e 29 5c 52 45 41 44 33 35 20 00 0b 01 5c 00 0a 00 50 5c 45 4a 45 43 54 00 0b 01 72 00 04 00 50 00 0b 01 80 00 26 00 50 2a 20 20 20 4d 4f 56 45 ┆1 8 P ADK A1,1 J P RB(N) READ35 P EJECT r P & P* MOVE┆
0x1040…1090 (12, 0, 400) 2f 43 4f 4e 56 45 52 54 20 49 4e 50 55 54 20 54 4f 20 45 4c 45 4d 45 4e 54 20 00 0b 01 88 00 04 00 50 00 0c 00 22 00 10 00 50 52 45 41 44 35 30 5c 45 51 55 5c 2a 00 0c 00 2a 00 20 00 50 5c 4c 44 5c 41 38 2c 45 43 42 52 44 2b 32 5c 41 38 20 ┆/CONVERT INPUT TO ELEMENT P " PREAD50 EQU * * P LD A8,ECBRD+2 A8 ┆
0x1090…10e0 3d 20 42 55 46 46 20 41 44 52 00 0c 00 3e 00 28 00 50 5c 4c 44 5c 41 31 30 2c 50 41 52 54 41 42 2b 32 2c 41 31 31 5c 41 31 30 20 3d 20 4c 41 42 45 4c 20 41 44 52 00 0c 00 62 00 24 00 50 5c 4c 44 5c 41 39 2c 50 41 52 54 41 42 2b 34 2c 41 31 ┆= BUFF ADR > ( P LD A10,PARTAB+2,A11 A10 = LABEL ADR b $ P LD A9,PARTAB+4,A1┆
0x10e0…1130 31 5c 41 39 20 3d 20 4c 45 4e 47 54 48 20 00 0c 00 8e 00 20 00 50 5c 43 57 4b 5c 41 39 2c 32 5c 4b 49 4e 44 20 4f 46 20 45 4c 45 4d 45 4e 54 20 3f 20 00 0c 00 b6 00 20 00 50 5c 52 46 28 4e 47 29 5c 48 45 58 50 43 4b 5c 42 59 54 45 20 4f 52 ┆1 A9 = LENGTH P CWK A9,2 KIND OF ELEMENT ? P RF(NG) HEXPCK BYTE OR┆
0x1130…1180 20 57 4f 52 44 20 00 0c 00 da 00 24 00 50 5c 43 46 5c 41 31 34 2c 4d 4f 56 45 31 5c 4d 4f 56 45 20 41 53 43 49 49 2d 53 54 52 49 4e 47 20 00 0c 00 fe 00 0c 00 50 5c 52 42 5c 52 45 41 44 00 0c 01 26 00 0a 00 50 5c 45 4a 45 43 54 00 0c 01 36 ┆ WORD $ P CF A14,MOVE1 MOVE ASCII-STRING P RB READ & P EJECT 6┆
0x1180…11d0 00 04 00 50 00 0c 01 44 00 26 00 50 2a 20 20 20 50 41 43 4b 20 42 59 54 45 20 4f 52 20 57 4f 52 44 20 46 52 4f 4d 20 49 4e 50 55 54 2e 20 00 0c 01 4c 00 46 00 50 2a 20 20 20 41 38 20 3d 20 49 4e 50 55 54 20 41 44 52 2c 20 41 31 30 20 3d 20 ┆ P D & P* PACK BYTE OR WORD FROM INPUT. L F P* A8 = INPUT ADR, A10 = ┆