|
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: 3234 (0xca2)
Notes: pts_type(SC)
Names: »DEDI04.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/DEDI04.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/DEDI04.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/DEDI04.SC«
IDENT DEDI04 PRR 1.0 79-05-31/AST DDUM DDINIT PDIV ENTRY NXJOB ENTRY NXBTH EXT EMPTYT EXT RDDS EXT WRFSP EXT RELEAS EXT COND EXT SFMTCH DUMMY PROC FC * NXJOB GET NEXT JOBNAME SET SWIT01 NXBTH GET NEXT BATCHNAME SET SWIT04 CALL EMPTYT,JOBNAME BNZ FIRJOB MOVE STR6A,JOBNAME PERF SFMTCH,W3,RBUF,W10 BERR NOT TBF SWIT01,BANA ADD DEBIN2,W4 CBNG DEBIN2,DKBIN1,GTNAM RENER READ NEXT RECORD XCOPY DKBIN3,W0,W2,RBUF,W4 CBE DKBIN3,W0,NOT PERF RDDS,DKBIN3 BERR RETURN FIJONA XCOPY DEBIN1,W0,W2,RBUF,W6 CBNG DEBIN1,W10,NOT MOVE DEBIN2,W12 GTNAM TBF SWIT01,GTNAM1 COPY JOBNAME,W0,W6,RBUF,DEBIN2 B RETURN BANA CALL EMPTYT,BATCH BNZ FIRBA MOVE STR6A,BATCH PERF SFMTCH,DEBIN3,RBUF,W12 BERR NOT ADD DEBIN2,W6 CBG DEBIN2,DKBIN1,RENER GTNAM1 COPY BATCH,W0,W6,RBUF,DEBIN2 B RETURN FIRJOB PERF RDDS,W3 BOK FIJONA CBE DEBINW4,=W'30',NOT B RETURN FIRBA PERF RDDS,DEBIN3 BERR RETURN XCOPY DEBIN2,W0,W2,RBUF,W6 CBNG DEBIN2,W10,NOT MOVE DEBIN2,W12 B GTNAM1 NOT MOVE DEBINW4,W9 INDICATE 'NOT IN SYSTEM' B RETURN * * RETURN TBF SWITFS,RETUNF PERF WRFSP,W1 RETUNF PERF RELEAS CBNE DEBINW4,W0,RETUN9 TBF SW95PR,RETUN9 MOVE DEBINW4,=W'-1' RETUN9 PERF COND RET PEND END