|
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: 4510 (0x119e)
Notes: pts_type(SC)
Names: »TCAPP.SC«
└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
└─⟦this⟧ »BDKAPP/TCAPP.SC«
IDENT TCAPP **************************************** * * T C A P P * * READS TRANSACTIONS FROM TC:S AND * WRITES THEM TO FRED. THE REPLIES * FROM FRED ARE SENT BACK TO THE TC * **************************************** EJECT ENTRY TCAPP EXTRN K:LR,K:LW,K:CCQ,K:RBCC EXTRN K:LINB,CCBUF EJECT * * READ MESSAGE FROM TC * TCAPP CF A14,K:LR * * WRITE MESSAGE TO FRED * AND READ REPLY * LDKL A1,K:LINB GET TC READ BUFFER ADR A1,A13 LD A2,-4,A1 AND LENGTH ADK A2,1 LDKL A3,CCBUF+4 AND FRED WRITE BUFFER ADR A3,A13 ST A2,-4,A3 STORE LENGTH LDR A4,A3 ADK A4,2 ADJUST FOR DRIVER INTERFACE ADK A1,1 TCAP10 LCR A5,A1 MOVE MESSAGE SCR A5,A4 ADK A1,1 ADK A4,1 SUK A2,1 RB(NZ) TCAP10 CF A14,K:CCQ EXCHANGE WITH FRED RB(NZ) TCAPP BAD REPLY EJECT * * WRITE REPLY TO TC * LDKL A2,K:LINB GET TC WRITE BUFFER ADR A2,A13 LD A3,-4,A1 GET LENGTH ADK A3,1 ST A3,-4,A2 AND STORE LDR A4,A2 ADK A4,1 ADJUST FOR STA TCAP20 LCR A5,A1 MOVE REPLY SCR A5,A4 ADK A1,1 ADK A4,1 SUK A3,1 RB(NZ) TCAP20 CF A14,K:RBCC RELEASE BUFFER CF A14,K:LW WRITE REPLY RB TCAPP END