|
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: 4456 (0x1168)
Notes: pts_type(UF)
Names: »KT805.UF«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/KT805.UF«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/KT805.UF«
└─⟦this⟧ »REMIT2/KT805.UF«
PRT KT805 PRT C805T MES BR NDERSLEV KOMMUNE, REMITTERING ASG 2,NO SCR LED KMD08,/S !!DL 67,68 FD03,FD04 !!IL 70 REENTER REENTC !!RE 71,$$256$$300$$ !!IL 87 REENTER REENKA !!IL 106 REENTER REENGA !!IL 123 REENTER REENLA !!IL 138 REENTER REEND0 !!DL 184 MF1KBV STRG 32X'C1C2C3C4C5C6C750' DV ADR KB/VDU !!DL 188 MF1CU STRG X'6E4E' CU ADR !!DL 190 CNFHC STRGI (16),'GA','LA',' ' HARDCOPY PRINTER !!DL 195,196 OFF STRGI (12)2C'TD','TE',' ' !!RE 202,$$FALSE$$TRUE$$ BKO !!RE 203,$$FALSE$$TRUE$$ SALDO KORT !!RE 209,$$TRUE$$FALSE$$ CKTAUTO !!RE 210,$$FALSE$$TRUE$$ DC !!RE 213,$$FALSE$$TRUE$$ 5M DISK !!RE 214,$$TRUE$$FALSE$$ DISK BACKUP !!RE 239,$$FALSE$$TRUE$$ CREMITFLG !!RE 248,$$FALSE$$TRUE$$ TEXT REG !!RE 249,$$FALSE$$TRUE$$ LEV REG !!DL 283 CFLAG BINI (12),X'0051',X'0068',X'0064' !!RE 316,$$128$$80$$ !!RE 324,$$6'OD-KOM$$12X'42525C4E442E$$ !!RE 325,$$01014610$$05028059$$ VERSION !!RE 372,$$1400$$10000$$ NO OF REG. !!RE 381,$$20$$200$$ LEV INDEX !!RE 386,$$5$$1$$ KORT LINE !!DL 389,390 ON STRGI (12)2C' ','KA','KB',' ' !!IL 664 ENTRY REENTC !!IL 665 ENTRY REENKA !!IL 666 ENTRY REENGA !!IL 667 ENTRY REEND0 !!IL 668 ENTRY REENLA !!DL 670,672 !!IL 784 REENTC PROC RET PEND REENKA REENGA REENLA REEND0 B REENKA !!EN NOD C TRA /S INC DIV805 INC RGADM NOD INC RGSUBS INC KMDIO NOD INC RGSUB3 LED SCREEN,/S !!CH $$KEY461$$KEYCOP$$ !!CH $$SL461$$SLCOP$$ !!EN TRA /S,NL NOD INC SUBAPL NOD INC RGFRMT NOD INC KTOPR INC KTPLN INC ADM6 NOD INC RGSUB1 INC RGSUB2 INC DKSUBS NOD INC RGMAIN INC RGSTRT NOD INC REMFMT INC REMTXT NOD INC REMLEV ASG 2,LP0F TLK U,4K LKE M KPF /L,RGLOAD SCR MES $PDISC M=M:9.2D,MU=M:9.2D,A=RGLOAD,C=C805T $ASG2
0x0000…0012 (0, 0, 400) Head {h00=0x000e, h01=0x0050, text=»PRT KT805 «, t00=0x0000, t01=0x0004}
0x0012…0024 Head {h00=0x000e, h01=0x0050, text=»PRT C805T «, t00=0x0000, t01=0x0016}
0x0024…0050 Head {h00=0x0028, h01=0x0050, text=»MES BR NDERSLEV KOMMUNE, REMITTERING«, t00=0x0000, t01=0x0028}
0x0050…0060 Head {h00=0x000c, h01=0x0050, text=»ASG 2,NO«, t00=0x0000, t01=0x0054}
0x0060…006c Head {h00=0x0008, h01=0x0050, text=»SCR «, t00=0x0000, t01=0x0064}
0x006c…0080 Head {h00=0x0010, h01=0x0050, text=»LED KMD08,/S«, t00=0x0000, t01=0x0070}
0x0080…009c Head {h00=0x0018, h01=0x0050, text=»!!DL 67,68 FD03,FD04«, t00=0x0000, t01=0x0084}
0x009c…00ac Head {h00=0x000c, h01=0x0050, text=»!!IL 70 «, t00=0x0000, t01=0x00a0}
0x00ac…00c4 Head {h00=0x0014, h01=0x0050, text=» REENTER REENTC «, t00=0x0000, t01=0x00b0}
0x00c4…00e0 Head {h00=0x0018, h01=0x0050, text=»!!RE 71,$$256$$300$$«, t00=0x0000, t01=0x00c8}
0x00e0…00f0 Head {h00=0x000c, h01=0x0050, text=»!!IL 87 «, t00=0x0000, t01=0x00e4}
0x00f0…0108 Head {h00=0x0014, h01=0x0050, text=» REENTER REENKA «, t00=0x0000, t01=0x00f4}
0x0108…0118 Head {h00=0x000c, h01=0x0050, text=»!!IL 106«, t00=0x0000, t01=0x010c}
0x0118…0130 Head {h00=0x0014, h01=0x0050, text=» REENTER REENGA «, t00=0x0000, t01=0x011c}
0x0130…0140 Head {h00=0x000c, h01=0x0050, text=»!!IL 123«, t00=0x0000, t01=0x0134}
0x0140…0158 Head {h00=0x0014, h01=0x0050, text=» REENTER REENLA «, t00=0x0000, t01=0x0144}
0x0158…0168 Head {h00=0x000c, h01=0x0050, text=»!!IL 138«, t00=0x0000, t01=0x015c}
0x0168…0180 Head {h00=0x0014, h01=0x0050, text=» REENTER REEND0 «, t00=0x0000, t01=0x016c}
0x0180…0190 Head {h00=0x000c, h01=0x0050, text=»!!DL 184«, t00=0x0000, t01=0x0184}
0x0190…01c8 (1, 0, 400) Head {h00=0x0034, h01=0x0050, text=»MF1KBV STRG 32X'C1C2C3C4C5C6C750' DV ADR KB/VDU «, t00=0x0001, t01=0x0004}
0x01c8…01d8 Head {h00=0x000c, h01=0x0050, text=»!!DL 188«, t00=0x0001, t01=0x003c}
0x01d8…01fa Head {h00=0x001e, h01=0x0050, text=»MF1CU STRG X'6E4E' CU ADR «, t00=0x0001, t01=0x004c}
0x01fa…020a Head {h00=0x000c, h01=0x0050, text=»!!DL 190«, t00=0x0001, t01=0x006e}
0x020a…0242 Head {h00=0x0034, h01=0x0050, text=»CNFHC STRGI (16),'GA','LA',' ' HARDCOPY PRINTER«, t00=0x0001, t01=0x007e}
0x0242…0256 Head {h00=0x0010, h01=0x0050, text=»!!DL 195,196«, t00=0x0001, t01=0x00b6}
0x0256…027c Head {h00=0x0022, h01=0x0050, text=»OFF STRGI (12)2C'TD','TE',' '«, t00=0x0001, t01=0x00ca}
0x027c…02a0 Head {h00=0x0020, h01=0x0050, text=»!!RE 202,$$FALSE$$TRUE$$ BKO«, t00=0x0001, t01=0x00f0}
0x02a0…02cc Head {h00=0x0028, h01=0x0050, text=»!!RE 203,$$FALSE$$TRUE$$ SALDO KORT «, t00=0x0001, t01=0x0114}
0x02cc…02f4 Head {h00=0x0024, h01=0x0050, text=»!!RE 209,$$TRUE$$FALSE$$ CKTAUTO«, t00=0x0001, t01=0x0140}
0x02f4…0318 Head {h00=0x0020, h01=0x0050, text=»!!RE 210,$$FALSE$$TRUE$$ DC «, t00=0x0001, t01=0x0168}
0x0318…0340 Head {h00=0x0024, h01=0x0050, text=»!!RE 213,$$FALSE$$TRUE$$ 5M DISK«, t00=0x0001, t01=0x018c}
0x0340…036c Head {h00=0x0028, h01=0x0050, text=»!!RE 214,$$TRUE$$FALSE$$ DISK BACKUP«, t00=0x0002, t01=0x0024}
0x036c…0396 Head {h00=0x0026, h01=0x0050, text=»!!RE 239,$$FALSE$$TRUE$$ CREMITFLG«, t00=0x0002, t01=0x0050}
0x0396…03c0 Head {h00=0x0026, h01=0x0050, text=»!!RE 248,$$FALSE$$TRUE$$ TEXT REG «, t00=0x0002, t01=0x007a}
0x03c0…03e8 Head {h00=0x0024, h01=0x0050, text=»!!RE 249,$$FALSE$$TRUE$$ LEV REG«, t00=0x0002, t01=0x00a4}
0x03e8…03f8 Head {h00=0x000c, h01=0x0050, text=»!!DL 283«, t00=0x0002, t01=0x00cc}
0x03f8…0428 Head {h00=0x002c, h01=0x0050, text=»CFLAG BINI (12),X'0051',X'0068',X'0064' «, t00=0x0002, t01=0x00dc}
0x0428…0444 Head {h00=0x0018, h01=0x0050, text=»!!RE 316,$$128$$80$$«, t00=0x0002, t01=0x010c}
0x0444…0474 Head {h00=0x002c, h01=0x0050, text=»!!RE 324,$$6'OD-KOM$$12X'42525C4E442E$$ «, t00=0x0002, t01=0x0128}
0x0474…04a4 Head {h00=0x002c, h01=0x0050, text=»!!RE 325,$$01014610$$05028059$$ VERSION «, t00=0x0002, t01=0x0158}
0x04a4…04d0 Head {h00=0x0028, h01=0x0050, text=»!!RE 372,$$1400$$10000$$ NO OF REG. «, t00=0x0002, t01=0x0188}
0x04d0…04f6 Head {h00=0x0022, h01=0x0050, text=»!!RE 381,$$20$$200$$ LEV INDEX«, t00=0x0003, t01=0x0024}
0x04f6…051a Head {h00=0x0020, h01=0x0050, text=»!!RE 386,$$5$$1$$ KORT LINE «, t00=0x0003, t01=0x004a}
0x051a…052e Head {h00=0x0010, h01=0x0050, text=»!!DL 389,390«, t00=0x0003, t01=0x006e}
0x052e…0558 Head {h00=0x0026, h01=0x0050, text=»ON STRGI (12)2C' ','KA','KB',' '«, t00=0x0003, t01=0x0082}
0x0558…0568 Head {h00=0x000c, h01=0x0050, text=»!!IL 664«, t00=0x0003, t01=0x00ac}
0x0568…057e Head {h00=0x0012, h01=0x0050, text=» ENTRY REENTC «, t00=0x0003, t01=0x00bc}
0x057e…058e Head {h00=0x000c, h01=0x0050, text=»!!IL 665«, t00=0x0003, t01=0x00d2}
0x058e…05a4 Head {h00=0x0012, h01=0x0050, text=» ENTRY REENKA «, t00=0x0003, t01=0x00e2}
0x05a4…05b4 Head {h00=0x000c, h01=0x0050, text=»!!IL 666«, t00=0x0003, t01=0x00f8}
0x05b4…05ca Head {h00=0x0012, h01=0x0050, text=» ENTRY REENGA «, t00=0x0003, t01=0x0108}
0x05ca…05da Head {h00=0x000c, h01=0x0050, text=»!!IL 667«, t00=0x0003, t01=0x011e}
0x05da…05f0 Head {h00=0x0012, h01=0x0050, text=» ENTRY REEND0 «, t00=0x0003, t01=0x012e}
0x05f0…0600 Head {h00=0x000c, h01=0x0050, text=»!!IL 668«, t00=0x0003, t01=0x0144}
0x0600…0616 Head {h00=0x0012, h01=0x0050, text=» ENTRY REENLA «, t00=0x0003, t01=0x0154}
0x0616…062a Head {h00=0x0010, h01=0x0050, text=»!!DL 670,672«, t00=0x0003, t01=0x016a}
0x062a…063a Head {h00=0x000c, h01=0x0050, text=»!!IL 784«, t00=0x0003, t01=0x017e}
0x063a…064e Head {h00=0x0010, h01=0x0050, text=»REENTC PROC «, t00=0x0003, t01=0x018e}
0x064e…065a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x0012}
0x065a…0668 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x001e}
0x0668…0676 Head {h00=0x000a, h01=0x0050, text=»REENKA«, t00=0x0004, t01=0x002c}
0x0676…0684 Head {h00=0x000a, h01=0x0050, text=»REENGA«, t00=0x0004, t01=0x003a}
0x0684…0692 Head {h00=0x000a, h01=0x0050, text=»REENLA«, t00=0x0004, t01=0x0048}
0x0692…06a0 Head {h00=0x000a, h01=0x0050, text=»REEND0«, t00=0x0004, t01=0x0056}
0x06a0…06b2 Head {h00=0x000e, h01=0x0050, text=» B REENKA «, t00=0x0004, t01=0x0064}
0x06b2…06be Head {h00=0x0008, h01=0x0050, text=»!!EN«, t00=0x0004, t01=0x0076}
0x06be…06cc Head {h00=0x000a, h01=0x0050, text=»NOD C «, t00=0x0004, t01=0x0082}
0x06cc…06da Head {h00=0x000a, h01=0x0050, text=»TRA /S«, t00=0x0004, t01=0x0090}
0x06da…06ec Head {h00=0x000e, h01=0x0050, text=»INC DIV805«, t00=0x0004, t01=0x009e}
0x06ec…06fe Head {h00=0x000e, h01=0x0050, text=»INC RGADM «, t00=0x0004, t01=0x00b0}
0x06fe…070a Head {h00=0x0008, h01=0x0050, text=»NOD «, t00=0x0004, t01=0x00c2}
0x070a…071c Head {h00=0x000e, h01=0x0050, text=»INC RGSUBS«, t00=0x0004, t01=0x00ce}
0x071c…072e Head {h00=0x000e, h01=0x0050, text=»INC KMDIO «, t00=0x0004, t01=0x00e0}
0x072e…073a Head {h00=0x0008, h01=0x0050, text=»NOD «, t00=0x0004, t01=0x00f2}
0x073a…074c Head {h00=0x000e, h01=0x0050, text=»INC RGSUB3«, t00=0x0004, t01=0x00fe}
0x074c…0762 Head {h00=0x0012, h01=0x0050, text=»LED SCREEN,/S «, t00=0x0004, t01=0x0110}
0x0762…0782 Head {h00=0x001c, h01=0x0050, text=»!!CH $$KEY461$$KEYCOP$$ «, t00=0x0004, t01=0x0126}
0x0782…07a0 Head {h00=0x001a, h01=0x0050, text=»!!CH $$SL461$$SLCOP$$ «, t00=0x0004, t01=0x0146}
0x07a0…07ac Head {h00=0x0008, h01=0x0050, text=»!!EN«, t00=0x0004, t01=0x0164}
0x07ac…07be Head {h00=0x000e, h01=0x0050, text=»TRA /S,NL «, t00=0x0004, t01=0x0170}
0x07be…07ca Head {h00=0x0008, h01=0x0050, text=»NOD «, t00=0x0004, t01=0x0182}
0x07ca…07dc Head {h00=0x000e, h01=0x0050, text=»INC SUBAPL«, t00=0x0004, t01=0x018e}
0x07dc…07e8 Head {h00=0x0008, h01=0x0050, text=»NOD «, t00=0x0005, t01=0x0010}
0x07e8…07fa Head {h00=0x000e, h01=0x0050, text=»INC RGFRMT«, t00=0x0005, t01=0x001c}
0x07fa…0806 Head {h00=0x0008, h01=0x0050, text=»NOD «, t00=0x0005, t01=0x002e}
0x0806…0818 Head {h00=0x000e, h01=0x0050, text=»INC KTOPR «, t00=0x0005, t01=0x003a}
0x0818…082a Head {h00=0x000e, h01=0x0050, text=»INC KTPLN «, t00=0x0005, t01=0x004c}
0x082a…083a Head {h00=0x000c, h01=0x0050, text=»INC ADM6«, t00=0x0005, t01=0x005e}
0x083a…0846 Head {h00=0x0008, h01=0x0050, text=»NOD «, t00=0x0005, t01=0x006e}
0x0846…0858 Head {h00=0x000e, h01=0x0050, text=»INC RGSUB1«, t00=0x0005, t01=0x007a}
0x0858…086a Head {h00=0x000e, h01=0x0050, text=»INC RGSUB2«, t00=0x0005, t01=0x008c}
0x086a…087c Head {h00=0x000e, h01=0x0050, text=»INC DKSUBS«, t00=0x0005, t01=0x009e}
0x087c…0888 Head {h00=0x0008, h01=0x0050, text=»NOD «, t00=0x0005, t01=0x00b0}
0x0888…089a Head {h00=0x000e, h01=0x0050, text=»INC RGMAIN«, t00=0x0005, t01=0x00bc}
0x089a…08ac Head {h00=0x000e, h01=0x0050, text=»INC RGSTRT«, t00=0x0005, t01=0x00ce}
0x08ac…08b8 Head {h00=0x0008, h01=0x0050, text=»NOD «, t00=0x0005, t01=0x00e0}
0x08b8…08ca Head {h00=0x000e, h01=0x0050, text=»INC REMFMT«, t00=0x0005, t01=0x00ec}
0x08ca…08dc Head {h00=0x000e, h01=0x0050, text=»INC REMTXT«, t00=0x0005, t01=0x00fe}
0x08dc…08e8 Head {h00=0x0008, h01=0x0050, text=»NOD «, t00=0x0005, t01=0x0110}
0x08e8…08fa Head {h00=0x000e, h01=0x0050, text=»INC REMLEV«, t00=0x0005, t01=0x011c}
0x08fa…090c Head {h00=0x000e, h01=0x0050, text=»ASG 2,LP0F«, t00=0x0005, t01=0x012e}
0x090c…091c Head {h00=0x000c, h01=0x0050, text=»TLK U,4K«, t00=0x0005, t01=0x0140}
0x091c…092a Head {h00=0x000a, h01=0x0005, text=»LKE M «, t00=0x0005, t01=0x0150}
0x092a…0940 Head {h00=0x0012, h01=0x0050, text=»KPF /L,RGLOAD «, t00=0x0005, t01=0x015e}
0x0940…094c Head {h00=0x0008, h01=0x0050, text=»SCR «, t00=0x0005, t01=0x0174}
0x094c…0982 Head {h00=0x0032, h01=0x0050, text=»MES $PDISC M=M:9.2D,MU=M:9.2D,A=RGLOAD,C=C805T«, t00=0x0005, t01=0x0180}
0x0982…0990 Head {h00=0x000a, h01=0x0050, text=»$ASG2 «, t00=0x0006, t01=0x0026}
0x0990…0994 (7, 1, 8) Head {h00=0x2004, h01=0x0000}
0x0994…0998 00 07 00 04 ┆ ┆
0x0998…09e8 (8, 0, 400) 24 4f 50 54 5c 4d 4f 56 45 20 54 4f 20 56 41 52 49 41 42 4c 45 20 00 07 01 82 00 22 00 50 5c 5c 5c 54 4f 20 41 4c 4c 4f 57 20 49 4e 53 54 52 2e 53 20 43 4d 50 20 41 4e 44 20 49 42 00 08 00 1e 00 26 00 50 5c 43 4d 50 5c 53 50 42 49 4e 57 32 ┆$OPT MOVE TO VARIABLE " P TO ALLOW INSTR.S CMP AND IB & P CMP SPBINW2┆
0x09e8…0a38 2c 3d 27 30 27 5c 22 53 50 45 52 52 22 20 45 4e 54 52 59 20 3f 20 00 08 00 44 00 16 00 50 5c 42 45 5c 45 52 52 50 52 49 4e 54 5c 59 45 53 20 21 00 08 00 6e 00 04 00 50 00 08 00 88 00 2e 00 50 20 54 42 54 20 53 50 50 52 4f 4d 50 54 2c 45 4e ┆,='0' "SPERR" ENTRY ? D P BE ERRPRINT YES ! n P . P TBT SPPROMPT,EN┆
0x0a38…0a88 54 49 52 45 20 4a 55 4d 50 20 49 46 20 45 4e 54 49 52 45 20 46 4f 52 4d 41 54 00 08 00 90 00 1a 00 50 5c 5c 5c 53 48 4f 55 4c 44 20 42 45 20 44 49 53 50 4c 41 59 45 44 00 08 00 c2 00 06 00 50 2a 20 00 08 00 e0 00 1e 00 50 2a 20 20 20 20 4f ┆TIRE JUMP IF ENTIRE FORMAT P SHOULD BE DISPLAYED P* P* O┆
0x0a88…0ad8 4e 4c 59 20 56 41 52 49 41 42 4c 45 20 46 49 45 4c 44 53 20 00 08 00 ea 00 06 00 50 2a 20 00 08 01 0c 00 38 00 50 20 49 42 20 53 50 42 49 4e 57 32 2c 43 4c 45 41 52 41 2c 43 4c 45 41 52 53 2c 43 4f 4e 54 20 4a 55 4d 50 20 4f 4e 20 52 4f 55 ┆NLY VARIABLE FIELDS P* 8 P IB SPBINW2,CLEARA,CLEARS,CONT JUMP ON ROU┆
0x0ad8…0b28 54 49 4e 45 20 49 4e 44 45 58 00 08 01 16 00 06 00 50 2a 20 00 08 01 52 00 0a 00 50 43 4c 45 41 52 41 00 08 01 5c 00 38 00 50 20 45 52 41 53 45 20 31 30 2c 53 50 4c 49 4e 54 4f 50 2c 53 50 4c 49 4e 4c 4f 57 20 45 52 41 53 45 20 41 4c 4c 20 ┆TINE INDEX P* R PCLEARA 8 P ERASE 10,SPLINTOP,SPLINLOW ERASE ALL ┆
0x0b28…0b78 (9, 0, 400) 46 52 4f 4d 20 31 20 41 4e 44 20 55 50 20 00 08 01 6a 00 0a 00 50 5c 54 48 4f 4d 45 00 09 00 16 00 0c 00 50 20 42 20 43 4f 4e 54 20 00 09 00 24 00 06 00 50 2a 20 00 09 00 34 00 0a 00 50 43 4c 45 41 52 53 00 09 00 3e 00 38 00 50 20 45 52 41 ┆FROM 1 AND UP j P THOME P B CONT $ P* 4 PCLEARS > 8 P ERA┆
0x0b78…0bc8 53 45 20 35 2c 53 50 4c 49 4e 54 4f 50 2c 53 50 4c 49 4e 4c 4f 57 20 45 52 41 53 45 20 53 4f 4d 45 20 46 52 4f 4d 20 31 20 41 4e 44 20 55 50 20 00 09 00 4c 00 0c 00 50 5c 42 5c 43 4f 4e 54 20 00 09 00 88 00 04 00 50 00 09 00 98 00 06 00 50 ┆SE 5,SPLINTOP,SPLINLOW ERASE SOME FROM 1 AND UP L P B CONT P P┆
0x0bc8…0c18 2a 20 00 09 00 a0 00 1e 00 50 2a 20 20 20 20 44 49 53 50 4c 41 59 20 45 4e 54 49 52 45 20 46 4f 52 4d 41 54 00 09 00 aa 00 06 00 50 2a 20 00 09 00 cc 00 0a 00 50 45 4e 54 49 52 45 00 09 00 d6 00 38 00 50 5c 49 42 5c 53 50 42 49 4e 57 32 2c ┆* P* DISPLAY ENTIRE FORMAT P* PENTIRE 8 P IB SPBINW2,┆
0x0c18…0c68 45 43 4c 52 41 2c 45 43 4c 52 53 2c 45 43 4c 52 4e 5c 4a 55 4d 50 20 4f 4e 20 52 4f 55 54 49 4e 45 20 49 4e 44 45 58 20 00 09 00 e4 00 06 00 50 2a 20 00 09 01 20 00 1c 00 50 2a 20 20 20 20 43 4c 45 41 52 20 41 4c 4c 20 56 41 52 49 41 42 4c ┆ECLRA,ECLRS,ECLRN JUMP ON ROUTINE INDEX P* P* CLEAR ALL VARIABL┆
0x0c68…0cb8 45 53 00 09 01 2a 00 06 00 50 2a 20 00 09 01 4a 00 0a 00 50 45 43 4c 52 41 20 00 09 01 54 00 2a 00 50 5c 45 52 41 53 45 5c 31 31 2c 53 50 4c 49 4e 54 4f 50 2c 53 50 4c 49 4e 4c 4f 57 5c 43 4c 45 41 52 20 41 4c 4c 20 00 09 01 62 00 10 00 50 ┆ES * P* J PECLRA T * P ERASE 11,SPLINTOP,SPLINLOW CLEAR ALL b P┆
0x0cb8…0d08 (10, 0, 400) 5c 5c 5c 49 4e 20 4d 45 4d 4f 52 59 00 09 01 90 00 0c 00 50 5c 42 5c 45 43 4c 52 4e 00 0a 00 14 00 06 00 50 2a 20 00 0a 00 24 00 1e 00 50 2a 20 20 20 20 43 4c 45 41 52 20 53 4f 4d 45 20 56 41 52 49 41 42 4c 45 53 20 00 0a 00 2e 00 06 00 50 ┆ IN MEMORY P B ECLRN P* $ P* CLEAR SOME VARIABLES . P┆
0x0d08…0d58 2a 20 00 0a 00 50 00 0a 00 50 45 43 4c 52 53 20 00 0a 00 5a 00 36 00 50 20 45 52 41 53 45 20 36 2c 53 50 4c 49 4e 54 4f 50 2c 53 50 4c 49 4e 4c 4f 57 20 43 4c 45 41 52 20 53 4f 4d 45 20 46 49 45 4c 44 53 20 46 52 4f 4d 20 00 0a 00 68 00 1a ┆* P PECLRS Z 6 P ERASE 6,SPLINTOP,SPLINLOW CLEAR SOME FIELDS FROM h ┆
0x0d58…0da8 00 50 5c 5c 5c 31 20 41 4e 44 20 55 50 20 49 4e 20 4d 45 4d 4f 52 59 20 00 0a 00 a2 00 06 00 50 2a 20 00 0a 00 c0 00 26 00 50 2a 20 20 20 20 43 4c 45 41 52 20 4e 4f 20 56 41 52 49 41 42 4c 45 53 20 49 4e 20 4d 45 4d 4f 52 59 20 00 0a 00 ca ┆ P 1 AND UP IN MEMORY P* & P* CLEAR NO VARIABLES IN MEMORY ┆
0x0da8…0df8 00 06 00 50 2a 20 00 0a 00 f4 00 0a 00 50 45 43 4c 52 4e 20 00 0a 00 fe 00 2c 00 50 5c 49 42 5c 53 50 45 52 41 53 45 2c 45 43 4c 52 4e 31 2c 45 43 4c 52 4e 32 2c 45 43 4c 52 4e 33 2c 45 43 4c 52 4e 34 20 00 0a 01 0c 00 20 00 50 5c 44 49 53 ┆ P* PECLRN , P IB SPERASE,ECLRN1,ECLRN2,ECLRN3,ECLRN4 P DIS┆
0x0df8…0e48 50 4c 41 59 5c 30 2c 53 50 4c 49 4e 54 4f 50 2c 53 50 4c 49 4e 4c 4f 57 00 0a 01 3c 00 0c 00 50 5c 42 5c 43 4f 4e 54 20 00 0a 01 60 00 0a 00 50 45 43 4c 52 4e 31 00 0a 01 70 00 20 00 50 5c 44 49 53 50 4c 41 59 5c 31 2c 53 50 4c 49 4e 54 4f ┆PLAY 0,SPLINTOP,SPLINLOW < P B CONT ` PECLRN1 p P DISPLAY 1,SPLINTO┆
0x0e48…0e98 (11, 0, 400) 50 2c 53 50 4c 49 4e 4c 4f 57 00 0a 01 7e 00 0c 00 50 5c 42 5c 43 4f 4e 54 20 00 0b 00 12 00 0a 00 50 45 43 4c 52 4e 32 00 0b 00 22 00 20 00 50 5c 44 49 53 50 4c 41 59 5c 32 2c 53 50 4c 49 4e 54 4f 50 2c 53 50 4c 49 4e 4c 4f 57 00 0b 00 30 ┆P,SPLINLOW ~ P B CONT PECLRN2 " P DISPLAY 2,SPLINTOP,SPLINLOW 0┆
0x0e98…0ee8 00 0c 00 50 5c 42 5c 43 4f 4e 54 20 00 0b 00 54 00 0a 00 50 45 43 4c 52 4e 33 00 0b 00 64 00 20 00 50 5c 44 49 53 50 4c 41 59 5c 33 2c 53 50 4c 49 4e 54 4f 50 2c 53 50 4c 49 4e 4c 4f 57 00 0b 00 72 00 0c 00 50 5c 42 5c 43 4f 4e 54 20 00 0b ┆ P B CONT T PECLRN3 d P DISPLAY 3,SPLINTOP,SPLINLOW r P B CONT ┆
0x0ee8…0f38 00 96 00 0a 00 50 45 43 4c 52 4e 34 00 0b 00 a6 00 20 00 50 5c 44 49 53 50 4c 41 59 5c 34 2c 53 50 4c 49 4e 54 4f 50 2c 53 50 4c 49 4e 4c 4f 57 00 0b 00 b4 00 0c 00 50 5c 42 5c 43 4f 4e 54 20 00 0b 00 d8 00 06 00 50 5c 20 00 0b 00 e8 00 08 ┆ PECLRN4 P DISPLAY 4,SPLINTOP,SPLINLOW P B CONT P ┆
0x0f38…0f88 00 50 43 4f 4e 54 00 0b 00 f2 00 26 00 50 20 47 45 54 41 42 58 20 53 50 42 49 4e 57 34 20 47 45 54 20 43 55 52 52 45 4e 54 20 49 4e 44 45 58 20 00 0b 00 fe 00 28 00 50 20 42 4c 20 4b 54 48 4f 4d 45 20 4a 55 4d 50 20 49 46 20 4e 4f 20 43 55 ┆ PCONT & P GETABX SPBINW4 GET CURRENT INDEX ( P BL KTHOME JUMP IF NO CU┆
0x0f88…0fd8 52 52 45 4e 54 20 46 49 45 4c 44 20 00 0b 01 28 00 0a 00 50 43 4f 4e 54 35 20 00 0b 01 54 00 36 00 50 20 47 45 54 46 4c 44 20 30 2c 53 50 42 49 4e 57 34 2c 53 50 42 49 4e 57 33 20 53 45 41 52 43 48 20 43 55 52 52 45 4e 54 20 50 4f 53 49 54 ┆RRENT FIELD ( PCONT5 T 6 P GETFLD 0,SPBINW4,SPBINW3 SEARCH CURRENT POSIT┆
0x0fd8…1028 (12, 0, 400) 49 4f 4e 20 00 0b 01 62 00 1e 00 50 20 42 5a 20 53 45 54 43 52 45 41 44 20 4a 55 4d 50 20 49 46 20 46 4f 55 4e 44 00 0c 00 0c 00 22 00 50 20 42 4c 20 4b 54 48 4f 4d 45 20 50 4f 53 49 54 49 4f 4e 20 4e 4f 54 20 46 4f 55 4e 44 20 00 0c 00 2e ┆ION b P BZ SETCREAD JUMP IF FOUND " P BL KTHOME POSITION NOT FOUND .┆
0x1028…1078 00 06 00 50 2a 20 00 0c 00 54 00 20 00 50 2a 20 20 20 20 43 4f 4d 50 55 4c 53 4f 52 59 20 46 49 45 4c 44 20 46 4f 55 4e 44 20 00 0c 00 5e 00 06 00 50 2a 20 00 0c 00 82 00 26 00 50 20 4d 4f 56 45 20 53 50 42 49 4e 57 34 2c 53 50 42 49 4e 57 ┆ P* T P* COMPULSORY FIELD FOUND ^ P* & P MOVE SPBINW4,SPBINW┆
0x1078…10c8 33 20 43 48 41 4e 47 45 20 49 4e 44 45 58 00 0c 00 8c 00 1a 00 50 20 42 20 43 4f 4e 54 35 20 53 45 41 52 43 48 20 41 47 41 49 4e 20 00 0c 00 b6 00 06 00 50 2a 20 00 0c 00 d4 00 04 00 50 00 0c 00 de 00 06 00 50 2a 20 00 0c 00 e6 00 26 00 50 ┆3 CHANGE INDEX P B CONT5 SEARCH AGAIN P* P P* & P┆
0x10c8…1118 2a 20 20 20 20 53 45 54 20 43 55 52 53 4f 52 20 41 4e 44 20 52 45 41 44 20 4b 45 59 42 4f 41 52 44 20 00 0c 00 f0 00 06 00 50 2a 20 00 0c 01 1a 00 0c 00 50 53 45 54 43 52 45 41 44 00 0c 01 24 00 28 00 50 5c 53 45 54 43 55 52 5c 5c 53 45 54 ┆* SET CURSOR AND READ KEYBOARD P* PSETCREAD $ ( P SETCUR SET┆
0x1118…1168 20 43 55 52 53 4f 52 20 4f 4e 20 43 55 52 52 45 4e 54 20 46 49 45 4c 44 00 0c 01 34 00 04 00 50 00 0c 01 60 00 06 00 50 2a 20 00 0c 01 68 00 2a 00 50 2a 20 20 20 20 52 45 41 44 20 54 4f 20 43 55 52 52 45 4e 54 20 46 49 45 4c 44 20 4f 4e 20 ┆ CURSOR ON CURRENT FIELD 4 P ` P* h * P* READ TO CURRENT FIELD ON ┆