|
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: 7666 (0x1df2)
Notes: pts_type(SC)
Names: »TOSSIF.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSIF/TOSSIF.SC«
IDENT TOSSIF 830516 NJ * * THIS MODULE CAN BE USED AS THE INTERFACE BETWEEN * A CREDITPROGRAM AND THE STANDARD TOSSUTILITIY * MODULES. * THE CREDITPROGRAM DOES AN EDIT INTO A STRING * AND SUBSEQUENTLY CALLS ANY OF THE ENTRYPOINTS * IN THIS MODULE WITH THE FOLLOWING PARAMETERS: * 1. PARAMETER BLOCK (STRING LENGTH NN) * 2. 2 BINARY WORK ITEMS WHICH ON RETURN WILL * CONTAIN THE RETURNCODE(S) * NO CHECKING IS DONE, SO THE CALLING MODULE MUST * ENSURE THAT NO ERRORS ARE MADE * ENTRY CDD ENTRY CFF ENTRY DLF ENTRY CRF ENTRY CRV ENTRY PVC ENTRY CTF ENTRY WIL EXTRN I:EVA0 LOAD PARAMETER FROM CREDITPROGRAM EXTRN I:RT1 RETURN TO CREDIT EXTRN T:FDSP EXTRN CRVOL CRV EXTRN CRFILE CRF EXTRN DLFILE DLF EXTRN PRVTOC PVC EXTRN COPVOL CDD EXTRN COPFIL CFF EXTRN COPYTF CTF EXTRN IBMLBL WIL * EXTRN ?????? ULD EJECT BYTE FORM 8,8 CALL FORM 16=/F6A1,16 BUF1 RES 3280 BUF2 RES 205 REG12 DATA 0 RC DATA 0 RC2 DATA 0 ECB DATA 0 DATA BUF2 DATA 410 DATA 0 RCODE DATA 0 DATA 0 DATA 0 PBLK DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 EJECT CRV EQU * LDKL A8,PBLK WHERE TO STORE CALL STPARA STORE PARAMETER LDKL A8,BUF1 ST A8,PBLK LDKL A8,BUF2 ST A8,PBLK+2 ST A12,REG12 SAVE REG 12 LDKL A12,PBLK CALL CRVOL LD A12,REG12 CALL RC00 HANDOVER RETURNCODE TO USER ABL RT1 EJECT CDD EQU * LDKL A8,PBLK WHERE TO STORE CALL STPARA STORE PARAMETER LDKL A8,BUF1 ST A8,PBLK LDKL A8,BUF2 ST A8,PBLK+2 ST A12,REG12 SAVE REG 12 LDKL A12,PBLK CALL COPVOL LD A12,REG12 CALL RC00 HANDOVER RETURNCODE TO USER ABL RT1 EJECT CFF EQU * LDKL A8,PBLK WHERE TO STORE CALL STPARA STORE PARAMETER LDKL A8,BUF1 ST A8,PBLK LDKL A8,BUF2 ST A8,PBLK+2 ST A12,REG12 SAVE REG 12 LDKL A12,PBLK CALL COPFIL LD A12,REG12 CALL RC00 HANDOVER RETURNCODE TO USER ABL RT1 EJECT DLF EQU * LDKL A8,PBLK WHERE TO STORE CALL STPARA STORE PARAMETER LDKL A8,BUF1 ST A8,PBLK LDKL A8,BUF2 ST A8,PBLK+2 ST A12,REG12 SAVE REG 12 LDKL A12,PBLK CALL DLFILE LD A12,REG12 CALL RC00 HANDOVER RETURNCODE TO USER ABL RT1 EJECT CRF EQU * LDKL A8,PBLK WHERE TO STORE CALL STPARA STORE PARAMETER LDKL A8,BUF1 ST A8,PBLK LDKL A8,BUF2 ST A8,PBLK+2 ST A12,REG12 SAVE REG 12 LDKL A12,PBLK CALL CRFILE LD A12,REG12 CALL RC00 HANDOVER RETURNCODE TO USER ABL RT1 EJECT PVC EQU * LDKL A8,PBLK WHERE TO STORE CALL STPARA STORE PARAMETER LDKL A8,BUF1 ST A8,PBLK LDKL A8,BUF2 ST A8,PBLK+2 ST A12,REG12 SAVE REG 12 LDKL A12,PBLK CALL PRVTOC LD A12,REG12 CALL RC00 HANDOVER RETURNCODE TO USER ABL RT1 EJECT CTF EQU * LDKL A8,PBLK WHERE TO STORE CALL STPARA STORE PARAMETER LDKL A8,BUF1 ST A8,PBLK LDKL A8,BUF2 ST A8,PBLK+2 ST A12,REG12 SAVE REG 12 LDKL A12,PBLK CALL COPYTF LD A12,REG12 CALL RC00 HANDOVER RETURNCODE TO USER ABL RT1 EJECT WIL EQU * LDKL A8,PBLK WHERE TO STORE CALL STPARA STORE PARAMETER LDKL A8,BUF1 ST A8,PBLK LDKL A8,BUF2 ST A8,PBLK+2 ST A12,REG12 SAVE REG 12 LDKL A12,PBLK CALL IBMLBL LD A12,REG12 CALL RC00 HANDOVER RETURNCODE TO USER ABL RT1 EJECT STORE VOLUMENAME INTO PARABLOCK A9=ITEM START A8=PARABLK START A3=LENGTH STPARA EQU * CALL I:EVA0 GET PARAMETERADDRESS LDK A3,63 BLOCKLENGTH STPA10 EQU * LDK A2,1 STPA20 EQU * LCR A1,A9 SCR A1,A8 ADR A9,A2 ADR A8,A2 SUK A3,1 RB(NN) STPA20 RTN A14 GET PARA FROM CREDIT A1=ADDRESS IN PARABLOCK PARA00 EQU * LDK A2,0 LCR A2,A12 GET PARA ADKL A12,1 SCR A2,A1 ADK A1,1 RTN A14 GET FILECODE FROM ECB A1=ADDRESS IN PARABLOCK FC00 EQU * CALL T:FDSP LC A2,1,A8 SCR A2,A1 ADK A1,1 RTN A14 RETURNCODE RC00 EQU * ST A1,RC ST A2,RC2 CALL I:EVA0 LD A1,RC STR A1,A9 CALL I:EVA0 LD A1,RC2 STR A1,A9 RTN A14 RT1 EQU * ABL I:RT1 RETURN TO CREDIT END