|
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: 4736 (0x1280)
Notes: pts_type(SC)
Names: »CCAPP.SC«
└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
└─⟦this⟧ »BDKAPP/CCAPP.SC«
IDENT CCAPP CONPAC REL=0.0 DATE= 77.10.12 *************************************************************** * * U S E R MODULE OF CONCENTRATOR APPLICATION PEAB-T * * PROGRAMMER: JES * * * C C A P P * * * * * THIS MODULE HANDLES UNIDENTIFIED MESSAGES RECEIVED * FROM TRUNK LINE BY DCCC. * THE CC READ BUFFER SHOULD BE RELEASED AS SOON AS * POSSIBLE BY CALLING K:RCCB * * * * THE MODULE RUNS UNDER TASK: TRASK (FROM POOL TPSUP) * * ACTIVATED BY: DCCC * * * * * * THE MODULE CONTAINS THE SUBROUTINES: * * NAME REVDAT VERSION * * * * * *************************************************************** EJECT * * * ENTRY ADDRESSES * *************************************************************** * * ENTRY DESCRIPTION * ENTRY CCAPP EJECT * * * EXTERNAL REFERENSES * *************************************************************** * * ADDRESS IN MODULE * * EXTRN K:RCCB K:CCH EXTRN K:RETA C:FUB EXTRN TPSUP C:TPL EXTRN ECBTB1,ECBTB2 EXTRN K:LINB,CCBUF EXTRN K:LW * * * EQUATES * * INPBL EQU -4 INDEX TO INPUT BUFFER LENGTH * EJECT ************************************************************ * * C C A P P * ************************************************************ CCAPP EQU * ACTIVATION POINT * * * TAKE CARE OF UNIDENTIFIED MESSAGE * * * A1 = BUFFER POINTER * * * * 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 LDR A6,A1 SAP20 LCR A5,A6 MOVE REPLY SCR A5,A4 ADK A6,1 ADK A4,1 SUK A3,1 RB(NZ) SAP20 EJECT LDKL A5,ECBTB1 GET LINE 1 TABEL ST A5,ECBTST AD A5,ECBTB1 LDK A6,1 IND.LINE 1 RF SUP100 SUP000 EQU * CWK A6,2 LINE 1 AND 2 CHECKED ? RF(E) SUP400 LDKL A5,ECBTB2 ST A5,ECBTST AD A5,ECBTB2 LDK A6,2 IND.LINE 2 SUP100 EQU * ADK A5,2 LD A7,-2,A1 GET SIM.DEV. SLL A7,8 ANKL A7,/FF00 SUP200 EQU * SUK A5,4 CWK A5,ECBTST END OF TABEL ECBTST EQU *-2 RB(NP) SUP000 LDR* A8,A5 ANKL A8,/FF00 CWR A8,A7 OK? RB(NE) SUP200 SUK A5,2 GET TCA AND DEV. LDR* A3,A5 GET TCA AND DEV. ANKL A3,/FF00 TCA ORR A3,A6 TCA AND LINE NO ST A3,-2,A2 IN BUFFER LDR* A3,A5 ANK A3,/FF GET DEV. SCR A3,A2 IN BUFFER * * * * RELEASE BUFFER * A1 = BUFFER POINTER * * SUP400 EQU * CF A14,K:RCCB * * * WRITE MESS. TO TC * * CF A14,K:LW * * EXIT * CF A14,K:RETA DATA TPSUP * END