|
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