|
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: 1560 (0x618)
Notes: pts_type(SC)
Names: »TSTAPP.SC«
└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
└─⟦this⟧ »KONTED/TSTAPP.SC«
└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
└─⟦this⟧ »KONTED/TSTAPP.SC«
IDENT TSTAPP * * ENTRY TCAPP EXTRN K:LR,K:LINB,K:LW EXTRN K:APPR * * READ MESSAGE FROM TC TCAPP EQU * IM K:APPR SET APPL READY TCAP05 EQU * CF A14,K:LR * * EDIT ANSWER BUFFER * LDKL A1,K:LINB ADR A1,A13 LDR A2,A1 LD A5,-4,A1 LENGTH SUK A5,1 ADR A1,A5 LAST POS IN BUF SUK A5,3 SKIP AID,CURSOR,CURSOR LDR A3,A1 ADK A3,6 MOVE TEXT 6 STEPS TCAP10 EQU * LCR A4,A1 SCR A4,A3 SUK A1,1 SUK A3,1 SUK A5,1 RB(NZ) TCAP10 TCAP20 EQU * LDR A3,A2 ADK A3,1 LDK A1,/9B SCR A1,A3 ADK A3,2 LDKL A1,/3143 STR A1,A3 ADK A3,2 LDKL A1,'SV' STR A1,A3 ADK A3,2 LDKL A1,'AR' STR A1,A3 ADK A3,2 LDKL A1,': ' STR A1,A3 LDK A1,6 ADS A1,-4,A2 ADJUST LENGTH * * WRITE REPLY TO TC * CF A14,K:LW RB TCAP05 END
0x000…016 (0, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IDENT TSTAPP «, t00=0x0000, t01=0x0004}
0x016…020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x001a}
0x020…02a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0024}
0x02a…03e Head {h00=0x0010, h01=0x0050, text=» ENTRY TCAPP«, t00=0x0000, t01=0x002e}
0x03e…05e Head {h00=0x001c, h01=0x0050, text=» EXTRN K:LR,K:LINB,K:LW «, t00=0x0000, t01=0x0042}
0x05e…074 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:APPR «, t00=0x0000, t01=0x0062}
0x074…07e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0078}
0x07e…09c Head {h00=0x001a, h01=0x0050, text=»* READ MESSAGE FROM TC«, t00=0x0000, t01=0x0082}
0x09c…0b0 Head {h00=0x0010, h01=0x0050, text=»TCAPP EQU * «, t00=0x0000, t01=0x00a0}
0x0b0…0d2 Head {h00=0x001e, h01=0x0050, text=» IM K:APPR SET APPL READY «, t00=0x0000, t01=0x00b4}
0x0d2…0e6 Head {h00=0x0010, h01=0x0050, text=»TCAP05 EQU *«, t00=0x0000, t01=0x00d6}
0x0e6…0fa Head {h00=0x0010, h01=0x0050, text=» CF A14,K:LR«, t00=0x0000, t01=0x00ea}
0x0fa…104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x104…120 Head {h00=0x0018, h01=0x0050, text=»* EDIT ANSWER BUFFER«, t00=0x0000, t01=0x0108}
0x120…12a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0124}
0x12a…142 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,K:LINB «, t00=0x0000, t01=0x012e}
0x142…156 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A13 «, t00=0x0000, t01=0x0146}
0x156…168 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0000, t01=0x015a}
0x168…184 Head {h00=0x0018, h01=0x0050, text=» LD A5,-4,A1 LENGTH «, t00=0x0000, t01=0x016c}
0x184…196 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0000, t01=0x0188}
0x196…1b8 Head {h00=0x001e, h01=0x0050, text=» ADR A1,A5 LAST POS IN BUF«, t00=0x0001, t01=0x000a}
0x1b8…1e0 Head {h00=0x0024, h01=0x0050, text=» SUK A5,3 SKIP AID,CURSOR,CURSOR«, t00=0x0001, t01=0x002c}
0x1e0…1f2 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0001, t01=0x0054}
0x1f2…216 Head {h00=0x0020, h01=0x0050, text=» ADK A3,6 MOVE TEXT 6 STEPS «, t00=0x0001, t01=0x0066}
0x216…22a Head {h00=0x0010, h01=0x0050, text=»TCAP10 EQU *«, t00=0x0001, t01=0x008a}
0x22a…23c Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x0001, t01=0x009e}
0x23c…24e Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x0001, t01=0x00b0}
0x24e…260 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0001, t01=0x00c2}
0x260…272 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0001, t01=0x00d4}
0x272…284 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0001, t01=0x00e6}
0x284…29a Head {h00=0x0012, h01=0x0050, text=» RB(NZ) TCAP10«, t00=0x0001, t01=0x00f8}
0x29a…2ae Head {h00=0x0010, h01=0x0050, text=»TCAP20 EQU *«, t00=0x0001, t01=0x010e}
0x2ae…2c0 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0001, t01=0x0122}
0x2c0…2d2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0001, t01=0x0134}
0x2d2…2e6 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/9B «, t00=0x0001, t01=0x0146}
0x2e6…2f8 Head {h00=0x000e, h01=0x0050, text=» SCR A1,A3«, t00=0x0001, t01=0x015a}
0x2f8…30a Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0001, t01=0x016c}
0x30a…320 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/3143«, t00=0x0001, t01=0x017e}
0x320…332 (2, 2, 352) Head {h00=0x000e, h01=0x0050, text=» STR A1,A3«, t00=0x0002, t01=0x0004}
0x332…344 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0002, t01=0x0016}
0x344…35a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,'SV' «, t00=0x0002, t01=0x0028}
0x35a…36c Head {h00=0x000e, h01=0x0050, text=» STR A1,A3«, t00=0x0002, t01=0x003e}
0x36c…37e Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0002, t01=0x0050}
0x37e…394 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,'AR' «, t00=0x0002, t01=0x0062}
0x394…3a6 Head {h00=0x000e, h01=0x0050, text=» STR A1,A3«, t00=0x0002, t01=0x0078}
0x3a6…3b8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0002, t01=0x008a}
0x3b8…3ce Head {h00=0x0012, h01=0x0050, text=» LDKL A1,': ' «, t00=0x0002, t01=0x009c}
0x3ce…3e0 Head {h00=0x000e, h01=0x0050, text=» STR A1,A3«, t00=0x0002, t01=0x00b2}
0x3e0…3f2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,6 «, t00=0x0002, t01=0x00c4}
0x3f2…416 Head {h00=0x0020, h01=0x0050, text=» ADS A1,-4,A2 ADJUST LENGTH «, t00=0x0002, t01=0x00d6}
0x416…420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fa}
0x420…43c Head {h00=0x0018, h01=0x0050, text=»* WRITE REPLY TO TC «, t00=0x0002, t01=0x0104}
0x43c…446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0120}
0x446…45a Head {h00=0x0010, h01=0x0050, text=» CF A14,K:LW«, t00=0x0002, t01=0x012a}
0x45a…46c Head {h00=0x000e, h01=0x0050, text=» RB TCAP05«, t00=0x0002, t01=0x013e}
0x46c…478 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0002, t01=0x0150}
0x478…47c Head {h00=0x4004, h01=0x0000}
0x47c…480 00 02 01 5c ┆ ┆
0x480…488 (3, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0x488…4d8 (4, 0, 400) c8 60 00 00 00 28 00 28 00 00 00 00 00 00 00 00 00 01 25 24 26 4c 00 00 2e e8 81 3f 00 03 01 84 00 2c 00 28 03 13 00 00 04 40 00 00 82 3f 83 3f 84 3f 85 3f 86 3f 87 3f 80 bf 81 40 03 14 82 40 03 16 83 40 03 18 84 40 03 1a 86 40 00 04 00 24 ┆ ` ( ( %$&L . ? , ( @ ? ? ? ? ? ? @ @ @ @ @ $┆
0x4d8…528 00 2c 00 28 03 13 00 00 04 60 00 00 03 1c 87 40 03 1e 80 c0 03 20 4d d0 50 44 85 40 03 24 45 10 50 0c 4d 10 50 02 20 7f 25 7f 85 41 00 04 00 54 00 2c 00 28 03 13 00 00 04 80 00 00 03 22 41 90 81 41 03 14 82 41 03 16 83 41 03 18 84 41 03 1a ┆ , ( ` @ M PD @ $E P M P % A T , ( "A A A A A ┆
0x528…578 86 41 03 1c 87 41 03 1e 80 c1 03 20 00 04 00 84 00 2c 00 28 03 13 00 00 04 a0 00 00 80 be 87 3e 86 3e 85 3e 84 3e 83 3e 82 3e 81 3e f0 3e f0 22 85 41 03 24 05 00 45 d0 58 3a 85 20 00 04 00 b4 00 2c 00 28 03 13 00 00 04 c0 00 00 04 b8 85 23 ┆ A A , ( > > > > > > > > " A $ E X: , ( #┆
0x578…5c8 98 a0 00 04 45 90 5f 48 05 01 45 d0 58 4e 85 20 04 cc 5f 16 07 04 3e c4 85 18 25 0f 00 04 00 e4 00 2c 00 28 03 13 00 00 04 e0 00 00 ed 20 00 0a 52 02 15 07 15 30 f0 a1 04 b4 1f 01 5c 18 f0 22 05 0d f0 a1 04 b4 05 0a f0 a1 04 b4 00 04 01 14 ┆ E _H E XN _ > % , ( R 0 " ┆
0x5c8…618 00 2c 00 28 03 13 00 00 05 00 00 00 f0 22 05 20 f0 a1 04 b4 f0 22 05 0d f0 a1 04 b4 f0 22 81 41 05 1c 01 01 41 d0 81 20 00 00 8f 40 00 04 01 44 00 2c 00 28 03 13 00 00 05 20 00 00 04 3c f0 a1 04 cc 85 42 00 04 86 34 87 54 00 02 1f 02 87 41 ┆ , ( " " " A A @ D , ( < B 4 T A┆