|
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: 4762 (0x129a)
Notes: pts_type(SC)
Names: »DE80ST.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DE80ST.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE80ST.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE80ST.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DE80ST.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DE80ST.SC«
IDENT DE80ST REL 1.0 79-08-14/DALI DDUM DEDDIV PDIV ENTRY DE80ST ENTRY DEAP8A * * EXTERNAL REFERENCES TO SCREEN * EXT DECLRA EXT DECLRN EXT DERR EXT DERROR EXT CHANFC EXT DEDISC EXT DEANOK EXT DEAOK0 * * EXTERNAL FOR APPLICATIONAL CONVERTING EXT DECONV WEOF EQU 3 CLOSE FILE EJECT DE80ST PROC DEST DEST80 ATTFMT F80ST DEST72 SET DEPROMPT PROMPT-TEXTS DISPLAY STA050 CLEAR DECHANGE PERF DECLRA STA100 IB DEBINW2,CANCEL,DE80RE,DE80EN B ERROR CANCEL CLEAR DEPROMPT B STA050 * * ERROR MOVE DEBINW4,W0 ERR2 PERF DERR B STA100 * DE80RE MOVE BIN1,W0 MOVE BIN2,W1 RET DE80EN MOVE DEBINW3,BCD13A PERF DECONV,W2,DEBINW3,DEBINW4 CBE DEBINW4,W0,DE80RE PEND EJECT * DEAP8A IB DEBINW3,TYPE80,REST80 B TYPE81 TYPE80 MOVE BCD2A,DEINPUT MOVE DEBINW3,BCD2A IB DEBINW3,DEAOK0,DEAOK0,DEAOK0 TYPE81 MOVE DEBINW4,W6 ILLEGAL VALUE B DEANOK REST80 MOVE STR1A,DEINPUT CBE STR1A,=C'Y',REST81 CBNE STR1A,=C'N',TYPE81 REST81 B DEAOK0 EJECT * * FORMATS * F80ST FRMT FSL FTEXT '80 ' FCOPY =C'RECEIVE MODE' FNL FCOPY =C'UNIT' FTEXT ':U' FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 FMEL 'X',USERFILE FTAB 20 FCOPY =C'VOLUME' FILLR ':',1 FINP 27 FCOPY TABLE FNL FTEXT 'TYPE:' FKI 6,MINL=1,MAXL=1,ME,NEOI,APPL=101 FMEL 'X',BCD13A FNL FTEXT '1= LINE TO PRINTER' FNL FTEXT '2= LINE TO DISK' FNL FTEXT '3= DISK TO PRINTER' FNL FTEXT 'RESTART(Y/N):' FKI 15,ALPHA,MAXL=1,ME,NEOI,APPL=102 FCOPY STR1A FNL FLINK F80END FMEND F80END FRMT FKI 1 FCOPY HEX00 FMEND END
0x0000…002c (0, 0, 400) Head {h00=0x0028, h01=0x0050, text=» IDENT DE80ST REL 1.0 79-08-14/DALI «, t00=0x0000, t01=0x0004}
0x002c…0040 Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0030}
0x0040…004e Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0044}
0x004e…0064 Head {h00=0x0012, h01=0x0050, text=» ENTRY DE80ST «, t00=0x0000, t01=0x0052}
0x0064…007a Head {h00=0x0012, h01=0x0050, text=» ENTRY DEAP8A «, t00=0x0000, t01=0x0068}
0x007a…0084 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x007e}
0x0084…00b2 Head {h00=0x002a, h01=0x002a, text=»* EXTERNAL REFERENCES TO SCREEN«, t00=0x0000, t01=0x0088}
0x00b2…00bc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00b6}
0x00bc…00d0 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRA «, t00=0x0000, t01=0x00c0}
0x00d0…00e4 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRN «, t00=0x0000, t01=0x00d4}
0x00e4…00f6 Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0000, t01=0x00e8}
0x00f6…010a Head {h00=0x0010, h01=0x0050, text=» EXT DERROR «, t00=0x0000, t01=0x00fa}
0x010a…011e Head {h00=0x0010, h01=0x0050, text=» EXT CHANFC «, t00=0x0000, t01=0x010e}
0x011e…0132 Head {h00=0x0010, h01=0x0050, text=» EXT DEDISC «, t00=0x0000, t01=0x0122}
0x0132…0146 Head {h00=0x0010, h01=0x0050, text=» EXT DEANOK «, t00=0x0000, t01=0x0136}
0x0146…015a Head {h00=0x0010, h01=0x0050, text=» EXT DEAOK0 «, t00=0x0000, t01=0x014a}
0x015a…0164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x0164…019c Head {h00=0x0034, h01=0x0050, text=»* EXTERNAL FOR APPLICATIONAL CONVERTING «, t00=0x0000, t01=0x0168}
0x019c…01b0 Head {h00=0x0010, h01=0x0050, text=» EXT DECONV «, t00=0x0001, t01=0x0010}
0x01b0…01ce Head {h00=0x001a, h01=0x0050, text=»WEOF EQU 3 CLOSE FILE «, t00=0x0001, t01=0x0024}
0x01ce…01dc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0001, t01=0x0042}
0x01dc…01f0 Head {h00=0x0010, h01=0x0050, text=»DE80ST PROC «, t00=0x0001, t01=0x0050}
0x01f0…01fc Head {h00=0x0008, h01=0x0050, text=»DEST«, t00=0x0001, t01=0x0064}
0x01fc…020a Head {h00=0x000a, h01=0x0050, text=»DEST80«, t00=0x0001, t01=0x0070}
0x020a…0220 Head {h00=0x0012, h01=0x0050, text=» ATTFMT F80ST «, t00=0x0001, t01=0x007e}
0x0220…022e Head {h00=0x000a, h01=0x0050, text=»DEST72«, t00=0x0001, t01=0x0094}
0x022e…0258 Head {h00=0x0026, h01=0x0050, text=» SET DEPROMPT PROMPT-TEXTS DISPLAY«, t00=0x0001, t01=0x00a2}
0x0258…0266 Head {h00=0x000a, h01=0x0006, text=»STA050«, t00=0x0001, t01=0x00cc}
0x0266…027e Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0001, t01=0x00da}
0x027e…0292 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0001, t01=0x00f2}
0x0292…02a0 Head {h00=0x000a, h01=0x0006, text=»STA100«, t00=0x0001, t01=0x0106}
0x02a0…02c8 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,CANCEL,DE80RE,DE80EN«, t00=0x0001, t01=0x0114}
0x02c8…02d8 Head {h00=0x000c, h01=0x0050, text=» B ERROR«, t00=0x0001, t01=0x013c}
0x02d8…02e6 Head {h00=0x000a, h01=0x0006, text=»CANCEL«, t00=0x0001, t01=0x014c}
0x02e6…02fe Head {h00=0x0014, h01=0x0050, text=» CLEAR DEPROMPT «, t00=0x0001, t01=0x015a}
0x02fe…0310 Head {h00=0x000e, h01=0x0009, text=» B STA050 «, t00=0x0001, t01=0x0172}
0x0310…031a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0184}
0x031a…0324 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x018e}
0x0324…0332 Head {h00=0x000a, h01=0x0005, text=»ERROR «, t00=0x0002, t01=0x0008}
0x0332…034a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0002, t01=0x0016}
0x034a…0356 Head {h00=0x0008, h01=0x0004, text=»ERR2«, t00=0x0002, t01=0x002e}
0x0356…0368 Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0002, t01=0x003a}
0x0368…037a Head {h00=0x000e, h01=0x0009, text=» B STA100 «, t00=0x0002, t01=0x004c}
0x037a…0384 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x005e}
0x0384…0392 Head {h00=0x000a, h01=0x0050, text=»DE80RE«, t00=0x0002, t01=0x0068}
0x0392…03a8 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W0 «, t00=0x0002, t01=0x0076}
0x03a8…03be Head {h00=0x0012, h01=0x0050, text=» MOVE BIN2,W1 «, t00=0x0002, t01=0x008c}
0x03be…03ca Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x00a2}
0x03ca…03d8 Head {h00=0x000a, h01=0x0050, text=»DE80EN«, t00=0x0002, t01=0x00ae}
0x03d8…03f4 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW3,BCD13A«, t00=0x0002, t01=0x00bc}
0x03f4…041c Head {h00=0x0024, h01=0x0050, text=» PERF DECONV,W2,DEBINW3,DEBINW4 «, t00=0x0002, t01=0x00d8}
0x041c…043a Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W0,DE80RE«, t00=0x0002, t01=0x0100}
0x043a…0448 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0002, t01=0x011e}
0x0448…0456 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x012c}
0x0456…0460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013a}
0x0460…046e Head {h00=0x000a, h01=0x0050, text=»DEAP8A«, t00=0x0002, t01=0x0144}
0x046e…0490 Head {h00=0x001e, h01=0x0050, text=» IB DEBINW3,TYPE80,REST80 «, t00=0x0002, t01=0x0152}
0x0490…04a2 Head {h00=0x000e, h01=0x0050, text=» B TYPE81 «, t00=0x0002, t01=0x0174}
0x04a2…04b0 Head {h00=0x000a, h01=0x0050, text=»TYPE80«, t00=0x0002, t01=0x0186}
0x04b0…04cc (3, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE BCD2A,DEINPUT «, t00=0x0003, t01=0x0004}
0x04cc…04e8 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW3,BCD2A «, t00=0x0003, t01=0x0020}
0x04e8…0510 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW3,DEAOK0,DEAOK0,DEAOK0«, t00=0x0003, t01=0x003c}
0x0510…051e Head {h00=0x000a, h01=0x0050, text=»TYPE81«, t00=0x0003, t01=0x0064}
0x051e…0544 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW4,W6 ILLEGAL VALUE«, t00=0x0003, t01=0x0072}
0x0544…0556 Head {h00=0x000e, h01=0x0050, text=» B DEANOK «, t00=0x0003, t01=0x0098}
0x0556…0564 Head {h00=0x000a, h01=0x0050, text=»REST80«, t00=0x0003, t01=0x00aa}
0x0564…0580 Head {h00=0x0018, h01=0x0050, text=» MOVE STR1A,DEINPUT «, t00=0x0003, t01=0x00b8}
0x0580…05a0 Head {h00=0x001c, h01=0x0050, text=» CBE STR1A,=C'Y',REST81 «, t00=0x0003, t01=0x00d4}
0x05a0…05c0 Head {h00=0x001c, h01=0x0050, text=» CBNE STR1A,=C'N',TYPE81«, t00=0x0003, t01=0x00f4}
0x05c0…05ce Head {h00=0x000a, h01=0x0050, text=»REST81«, t00=0x0003, t01=0x0114}
0x05ce…05e0 Head {h00=0x000e, h01=0x0050, text=» B DEAOK0 «, t00=0x0003, t01=0x0122}
0x05e0…05ee Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0003, t01=0x0134}
0x05ee…05f8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0142}
0x05f8…0610 Head {h00=0x0014, h01=0x0010, text=»* FORMATS«, t00=0x0003, t01=0x014c}
0x0610…061a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0164}
0x061a…062c Head {h00=0x000e, h01=0x0050, text=»F80ST FRMT«, t00=0x0003, t01=0x016e}
0x062c…0638 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0003, t01=0x0180}
0x0638…064c Head {h00=0x0010, h01=0x0050, text=» FTEXT '80 '«, t00=0x0003, t01=0x018c}
0x064c…066c Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'RECEIVE MODE' «, t00=0x0004, t01=0x0010}
0x066c…0678 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0004, t01=0x0030}
0x0678…0690 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'UNIT' «, t00=0x0004, t01=0x003c}
0x0690…06a4 Head {h00=0x0010, h01=0x0050, text=» FTEXT ':U' «, t00=0x0004, t01=0x0054}
0x06a4…06d0 Head {h00=0x0028, h01=0x0050, text=» FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 «, t00=0x0004, t01=0x0068}
0x06d0…06ea Head {h00=0x0016, h01=0x0050, text=» FMEL 'X',USERFILE«, t00=0x0004, t01=0x0094}
0x06ea…06fa Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x0004, t01=0x00ae}
0x06fa…0714 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'VOLUME' «, t00=0x0004, t01=0x00be}
0x0714…0728 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0004, t01=0x00d8}
0x0728…0738 Head {h00=0x000c, h01=0x0050, text=» FINP 27«, t00=0x0004, t01=0x00ec}
0x0738…074c Head {h00=0x0010, h01=0x0050, text=» FCOPY TABLE«, t00=0x0004, t01=0x00fc}
0x074c…0758 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0004, t01=0x0110}
0x0758…076e Head {h00=0x0012, h01=0x0050, text=» FTEXT 'TYPE:'«, t00=0x0004, t01=0x011c}
0x076e…079c Head {h00=0x002a, h01=0x0050, text=» FKI 6,MINL=1,MAXL=1,ME,NEOI,APPL=101 «, t00=0x0004, t01=0x0132}
0x079c…07b4 Head {h00=0x0014, h01=0x0050, text=» FMEL 'X',BCD13A«, t00=0x0004, t01=0x0160}
0x07b4…07c0 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0004, t01=0x0178}
0x07c0…07e4 Head {h00=0x0020, h01=0x0050, text=» FTEXT '1= LINE TO PRINTER' «, t00=0x0004, t01=0x0184}
0x07e4…07f0 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0005, t01=0x0018}
0x07f0…0810 Head {h00=0x001c, h01=0x0050, text=» FTEXT '2= LINE TO DISK'«, t00=0x0005, t01=0x0024}
0x0810…081c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0005, t01=0x0044}
0x081c…0840 Head {h00=0x0020, h01=0x0050, text=» FTEXT '3= DISK TO PRINTER' «, t00=0x0005, t01=0x0050}
0x0840…084c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0005, t01=0x0074}
0x084c…086a Head {h00=0x001a, h01=0x0050, text=» FTEXT 'RESTART(Y/N):'«, t00=0x0005, t01=0x0080}
0x086a…0898 Head {h00=0x002a, h01=0x0050, text=» FKI 15,ALPHA,MAXL=1,ME,NEOI,APPL=102 «, t00=0x0005, t01=0x009e}
0x0898…08ac Head {h00=0x0010, h01=0x0050, text=» FCOPY STR1A«, t00=0x0005, t01=0x00cc}
0x08ac…08b8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0005, t01=0x00e0}
0x08b8…08ce Head {h00=0x0012, h01=0x0050, text=» FLINK F80END «, t00=0x0005, t01=0x00ec}
0x08ce…08dc Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0005, t01=0x0102}
0x08dc…08f0 Head {h00=0x0010, h01=0x0050, text=»F80END FRMT «, t00=0x0005, t01=0x0110}
0x08f0…08fe Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x0005, t01=0x0124}
0x08fe…0912 Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0005, t01=0x0132}
0x0912…0920 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0005, t01=0x0146}
0x0920…092c Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0005, t01=0x0154}
0x092c…0930 Head {h00=0x4004, h01=0x0000}
0x0930…0934 00 05 01 60 ┆ `┆
0x0934…093c (6, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆
0x093c…098c (7, 0, 400) 00 06 01 5a 00 3c 00 50 2a 20 20 20 20 4f 46 20 54 48 45 20 56 41 52 49 41 42 4c 45 20 46 49 45 4c 44 53 20 42 45 46 4f 52 45 20 48 41 4e 44 4c 49 4e 47 20 54 48 45 20 50 49 43 54 55 52 45 20 00 07 00 08 00 06 00 50 2a 20 00 07 00 48 00 10 ┆ Z < P* OF THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE P* H ┆
0x098c…09dc 00 50 44 45 43 4c 52 44 20 50 52 4f 43 20 00 07 00 52 00 06 00 50 2a 20 00 07 00 66 00 14 00 50 20 50 45 52 46 20 44 45 4e 54 45 52 2c 57 34 20 00 07 00 70 00 08 00 50 20 52 45 54 00 07 00 88 00 0a 00 50 20 50 45 4e 44 20 00 07 00 94 00 06 ┆ PDECLRD PROC R P* f P PERF DENTER,W4 p P RET P PEND ┆
0x09dc…0a2c 00 50 2a 20 00 07 00 a2 00 18 00 50 2a 20 20 20 20 20 45 52 52 4f 52 20 50 52 49 4e 54 4f 55 54 00 07 00 ac 00 06 00 50 2a 20 00 07 00 c8 00 0e 00 50 44 45 52 52 5c 50 52 4f 43 20 00 07 00 d2 00 14 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 57 ┆ P* P* ERROR PRINTOUT P* PDERR PROC P MOVE DEBINW┆
0x0a2c…0a7c 31 2c 57 30 00 07 00 e4 00 14 00 50 5c 50 45 52 46 5c 44 45 4e 54 45 52 2c 57 30 20 00 07 00 fc 00 08 00 50 5c 52 45 54 00 07 01 14 00 0a 00 50 5c 50 45 4e 44 20 00 07 01 20 00 0a 00 50 20 45 4a 45 43 54 00 07 01 2e 00 14 00 50 44 45 4e 54 ┆1,W0 P PERF DENTER,W0 P RET P PEND P EJECT . PDENT┆
0x0a7c…0acc 45 52 20 50 52 4f 43 20 4f 50 54 20 00 07 01 3c 00 1e 00 50 20 43 4c 45 41 52 20 44 4f 4f 4c 43 20 45 52 41 53 45 46 4c 41 47 20 4f 46 46 00 07 01 54 00 26 00 50 5c 4d 4f 56 45 5c 44 45 42 49 4e 57 32 2c 4f 50 54 5c 4d 4f 56 45 20 54 4f 20 ┆ER PROC OPT < P CLEAR DOOLC ERASEFLAG OFF T & P MOVE DEBINW2,OPT MOVE TO ┆
0x0acc…0b1c (8, 0, 400) 56 41 52 49 41 42 4c 45 00 07 01 76 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 10 00 24 00 50 5c 43 4d 50 5c 44 45 42 49 4e 57 32 2c 57 30 5c 22 44 45 45 52 52 22 20 45 4e ┆VARIABLE v " P TO ALLOW INSTR.S CMP AND IB $ P CMP DEBINW2,W0 "DEERR" EN┆
0x0b1c…0b6c 54 52 59 20 3f 20 00 08 00 36 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 5e 00 04 00 50 00 08 00 78 00 2e 00 50 20 54 42 54 20 44 45 50 52 4f 4d 50 54 2c 45 4e 54 49 52 45 20 4a 55 4d 50 20 49 46 20 45 4e 54 ┆TRY ? 6 P BE ERRPRINT YES ! ^ P x . P TBT DEPROMPT,ENTIRE JUMP IF ENT┆
0x0b6c…0bbc 49 52 45 20 46 4f 52 4d 41 54 00 08 00 80 00 1a 00 50 5c 5c 5c 53 48 4f 55 4c 44 20 42 45 20 44 49 44 45 4c 41 59 45 44 00 08 00 b2 00 06 00 50 2a 20 00 08 00 d0 00 1e 00 50 2a 20 20 20 20 4f 4e 4c 59 20 56 41 52 49 41 42 4c 45 20 46 49 45 ┆IRE FORMAT P SHOULD BE DIDELAYED P* P* ONLY VARIABLE FIE┆
0x0bbc…0c0c 4c 44 53 20 00 08 00 da 00 06 00 50 2a 20 00 08 00 fc 00 12 00 50 20 49 42 20 44 45 42 49 4e 57 32 5c 5c 43 00 08 01 06 00 10 00 50 5c 5c 43 4c 45 41 52 41 5c 5c 43 20 00 08 01 1c 00 10 00 50 5c 5c 43 4c 45 41 52 53 5c 5c 43 20 00 08 01 30 ┆LDS P* P IB DEBINW2 C P CLEARA C P CLEARS C 0┆
0x0c0c…0c5c 00 0e 00 50 5c 5c 43 4f 4e 54 5c 5c 43 20 00 08 01 44 00 0c 00 50 5c 5c 43 4c 45 41 52 44 00 08 01 56 00 06 00 50 2a 20 00 08 01 66 00 0a 00 50 43 4c 45 41 52 41 00 08 01 70 00 2a 00 50 20 45 52 41 53 45 20 32 2c 57 31 2c 57 30 20 45 52 41 ┆ P CONT C D P CLEARD V P* f PCLEARA p * P ERASE 2,W1,W0 ERA┆
0x0c5c…0cac (9, 0, 400) 53 45 20 41 4c 4c 20 46 52 4f 4d 20 31 20 41 4e 44 20 55 50 00 08 01 7e 00 0c 00 50 20 42 20 43 4f 4e 54 20 00 09 00 1c 00 06 00 50 2a 20 00 09 00 2c 00 0a 00 50 43 4c 45 41 52 53 00 09 00 36 00 2c 00 50 20 45 52 41 53 45 20 35 2c 57 31 2c ┆SE ALL FROM 1 AND UP ~ P B CONT P* , PCLEARS 6 , P ERASE 5,W1,┆
0x0cac…0cfc 57 30 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 44 00 0c 00 50 5c 42 5c 43 4f 4e 54 20 00 09 00 74 00 0a 00 50 43 4c 45 41 52 44 00 09 00 84 00 16 00 50 20 54 42 54 20 56 45 52 49 46 4d 2c 56 45 ┆W0 ERASE SOME FROM 1 AND UP D P B CONT t PCLEARD P TBT VERIFM,VE┆
0x0cfc…0d4c 52 49 46 20 00 09 00 92 00 2a 00 50 20 44 49 53 50 4c 41 59 20 33 2c 57 31 2c 57 30 20 44 49 53 50 4c 41 59 20 46 52 4f 4d 20 31 20 41 4e 44 20 55 50 00 09 00 ac 00 0c 00 50 20 42 20 43 4f 4e 54 20 00 09 00 da 00 0a 00 50 56 45 52 49 46 20 ┆RIF * P DISPLAY 3,W1,W0 DISPLAY FROM 1 AND UP P B CONT PVERIF ┆
0x0d4c…0d9c 00 09 00 ea 00 16 00 50 20 54 42 46 20 4b 45 59 56 45 52 2c 53 49 47 48 54 20 00 09 00 f8 00 16 00 50 20 44 49 53 50 4c 41 59 20 32 33 2c 57 31 2c 57 30 20 00 09 01 12 00 0c 00 50 20 42 20 43 4f 4e 54 20 00 09 01 2c 00 0a 00 50 53 49 47 48 ┆ P TBF KEYVER,SIGHT P DISPLAY 23,W1,W0 P B CONT , PSIGH┆
0x0d9c…0dec 54 20 00 09 01 3c 00 16 00 50 20 44 49 53 50 4c 41 59 20 33 33 2c 57 31 2c 57 30 20 00 09 01 4a 00 0c 00 50 20 42 20 43 4f 4e 54 20 00 09 01 64 00 0a 00 50 20 45 4a 45 43 54 00 09 01 74 00 06 00 50 2a 20 00 09 01 82 00 1e 00 50 2a 20 20 20 ┆T < P DISPLAY 33,W1,W0 J P B CONT d P EJECT t P* P* ┆
0x0dec…0e3c (10, 0, 398) 20 44 49 53 50 4c 41 59 20 45 4e 54 49 52 45 20 46 4f 52 4d 41 54 00 09 01 8c 00 06 00 50 2a 20 00 0a 00 1e 00 0a 00 50 45 4e 54 49 52 45 00 0a 00 28 00 14 00 50 5c 43 4c 45 41 52 5c 44 45 50 52 4f 4d 50 54 20 00 0a 00 36 00 16 00 50 20 49 ┆ DISPLAY ENTIRE FORMAT P* PENTIRE ( P CLEAR DEPROMPT 6 P I┆
0x0e3c…0e8c 42 20 44 45 42 49 4e 57 32 5c 4a 55 4d 50 5c 43 00 0a 00 4e 00 10 00 50 5c 5c 45 43 4c 52 41 5c 4f 4e 5c 43 00 0a 00 68 00 16 00 50 5c 5c 45 43 4c 52 53 5c 52 4f 55 54 49 4e 45 5c 43 20 00 0a 00 7c 00 14 00 50 5c 5c 45 43 4c 52 4e 5c 49 4e ┆B DEBINW2 JUMP C N P ECLRA ON C h P ECLRS ROUTINE C | P ECLRN IN┆
0x0e8c…0edc 44 45 58 5c 43 20 00 0a 00 96 00 0c 00 50 5c 5c 45 43 4c 52 4e 20 00 0a 00 ae 00 06 00 50 2a 20 00 0a 00 be 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 45 53 00 0a 00 c8 00 06 00 50 2a 20 00 0a 00 e8 00 0a ┆DEX C P ECLRN P* P* CLEAR ALL VARIABLES P* ┆
0x0edc…0f2c 00 50 45 43 4c 52 41 20 00 0a 00 f2 00 2a 00 50 20 45 52 41 53 45 20 33 2c 57 31 2c 57 30 20 43 4c 45 41 52 20 41 4c 4c 20 46 52 4f 4d 20 31 20 41 4e 44 20 55 50 00 0a 01 00 00 10 00 50 5c 5c 5c 49 4e 20 4d 45 4d 4f 52 59 00 0a 01 2e 00 16 ┆ PECLRA * P ERASE 3,W1,W0 CLEAR ALL FROM 1 AND UP P IN MEMORY . ┆
0x0f2c…0f7a 00 50 20 42 20 45 43 4c 52 4e 20 43 4f 4e 54 49 4e 55 45 20 00 0a 01 42 00 06 00 50 2a 20 00 0a 01 5c 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 01 66 00 06 00 50 2a 20 00 0a 01 88 ┆ P B ECLRN CONTINUE B P* P* CLEAR SOME VARIABLES f P* ┆
0x0f7a…0fca (11, 0, 400) 00 0a 00 50 45 43 4c 52 53 20 00 0b 00 04 00 2a 00 50 20 45 52 41 53 45 20 36 2c 57 31 2c 57 30 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 0b 00 12 00 1a 00 50 5c 5c 5c 31 20 41 4e 44 20 55 50 20 49 4e 20 4d ┆ PECLRS * P ERASE 6,W1,W0 CLEAR SOME FIELDS FROM P 1 AND UP IN M┆
0x0fca…101a 45 4d 4f 52 59 20 00 0b 00 40 00 06 00 50 2a 20 00 0b 00 5e 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 0b 00 68 00 06 00 50 2a 20 00 0b 00 92 00 0a 00 50 45 43 4c 52 ┆EMORY @ P* ^ & P* CLEAR NO VARIABLES IN MEMORY h P* PECLR┆
0x101a…106a 4e 20 00 0b 00 9c 00 16 00 50 20 54 42 54 20 56 45 52 49 46 4d 2c 45 56 45 52 49 46 00 0b 00 aa 00 28 00 50 20 44 49 53 50 4c 41 59 20 30 2c 57 31 2c 57 30 20 44 49 53 50 4c 41 59 20 45 4e 54 49 52 45 20 46 4f 52 4d 00 0b 00 c4 00 0c 00 50 ┆N P TBT VERIFM,EVERIF ( P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM P┆
0x106a…10ba 20 42 20 43 4f 4e 54 20 00 0b 00 f0 00 0a 00 50 45 56 45 52 49 46 00 0b 01 00 00 16 00 50 20 54 42 46 20 4b 45 59 56 45 52 2c 45 53 49 47 48 54 00 0b 01 0e 00 08 00 50 45 4b 45 59 00 0b 01 28 00 16 00 50 20 44 49 53 50 4c 41 59 20 32 30 2c ┆ B CONT PEVERIF P TBF KEYVER,ESIGHT PEKEY ( P DISPLAY 20,┆
0x10ba…110a 57 31 2c 57 30 20 00 0b 01 34 00 0c 00 50 20 42 20 43 4f 4e 54 20 00 0b 01 4e 00 0a 00 50 45 53 49 47 48 54 00 0b 01 5e 00 16 00 50 20 44 49 53 50 4c 41 59 20 33 30 2c 57 31 2c 57 30 20 00 0b 01 6c 00 0a 00 50 5c 45 4a 45 43 54 00 0b 01 86 ┆W1,W0 4 P B CONT N PESIGHT ^ P DISPLAY 30,W1,W0 l P EJECT ┆
0x110a…115a (12, 0, 400) 00 06 00 50 2a 20 00 0c 00 04 00 08 00 50 43 4f 4e 54 00 0c 00 0e 00 1e 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 57 32 2c 57 38 20 48 4f 4d 45 2d 4b 45 59 20 00 0c 00 1a 00 26 00 50 20 47 45 54 41 42 58 20 44 45 42 49 4e 57 34 20 47 45 54 20 ┆ P* PCONT P MOVE DEBINW2,W8 HOME-KEY & P GETABX DEBINW4 GET ┆
0x115a…11aa 43 55 52 52 45 4e 54 20 49 4e 44 45 58 20 00 0c 00 3c 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 52 52 45 4e 54 20 46 49 45 4c 44 20 00 0c 00 66 00 16 00 50 20 54 42 46 20 56 45 52 49 46 4d 2c 43 4f ┆CURRENT INDEX < ( P BL KTHOME JUMP IF NO CURRENT FIELD f P TBF VERIFM,CO┆
0x11aa…11fa 4e 54 35 20 00 0c 00 92 00 0e 00 50 20 42 20 4b 54 48 4f 4d 45 20 00 0c 00 ac 00 0a 00 50 43 4f 4e 54 35 20 00 0c 00 be 00 36 00 50 20 47 45 54 46 4c 44 20 30 2c 44 45 42 49 4e 57 34 2c 44 45 42 49 4e 57 33 20 53 45 41 52 43 48 20 43 55 52 ┆NT5 P B KTHOME PCONT5 6 P GETFLD 0,DEBINW4,DEBINW3 SEARCH CUR┆
0x11fa…124a 52 45 4e 54 20 50 4f 53 49 54 49 4f 4e 20 00 0c 00 cc 00 1c 00 50 20 42 5a 20 43 4f 4e 54 36 20 4a 55 4d 50 20 49 46 20 46 4f 55 4e 44 20 00 0c 01 06 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 ┆RENT POSITION P BZ CONT6 JUMP IF FOUND " P BL KTHOME POSITION NOT FO┆
0x124a…129a 55 4e 44 20 00 0c 01 26 00 06 00 50 2a 20 00 0c 01 4c 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 01 56 00 06 00 50 2a 20 00 0c 01 7a 00 26 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 57 ┆UND & P* L P* COMPULSORY FIELD FOUND V P* z & P MOVE DEBINW┆