|
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: 4080 (0xff0)
Notes: pts_type(SC)
Names: »DE30ST.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DE30ST.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE30ST.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE30ST.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DE30ST.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DE30ST.SC«
IDENT DE30ST REL 10.0 80-04-11 79-10-10/DALI DDUM DEDDIV PDIV ENTRY DE30ST * * EXTERNAL REFERENCES TO SCREEN * EXT DECLRA EXT DERR * * EXTERNAL REFERENCES TO JOB-DEFINITION * EXT DE31ST CREATE JOB-DEFINITION EXT DEPRUT EXT DEPMSK * EXT RESTOR EJECT * * START OF PROGRAM * DE30ST PROC CBNE BIN2,W0,ENT1 DEST SET BOOL1 PART OF FORMAT DIDELAY DEST10 ATTFMT F30ST SET DEPROMPT PROMPT-TEXTS DIDELAY DEST20 CLEAR DECHANGE PERF DECLRA DEST40 IB DEBINW2,CANCEL,RETUR,ENTER MOVE DEBINW4,W0 ACOUSTIC ALARM PERF DERR B DEST40 CANCEL CLEAR DEPROMPT B DEST20 * ENTER CBNE BIN1,W3,RET2 CBNE BIN2,W0,ENT1 B DEST ENT1 PERF DE31ST CLEAR BOOL1 CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO WORKBLOCKS AND DESCRIPTORS MOVE BIN1,W3 MUL BIN1,W10 MOVE PRNUM,BIN1 PERF DEPRUT,PRNUM,BIN1,BIN2 PERF DEPMSK B DEST10 * RETUR MOVE BIN2,W1 MOVE BIN1,W0 RET2 RET PEND EJECT * * FORMATS * F30ST FRMT FSL FTEXT '30 ' FCOPY =C'JOB' FILLR '-',1 FCOPY =C'DEFINITION' FNL FCOPY =C'PROGRAM:' FILLR '3',1 FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 FMEL 'XX',PRNUM FBF BOOL1,F30OUT FNL FTEXT '31 ' FCOPY =C'CREATE' FILLR ' ',1 FCOPY =C'JOB' FILLR '-',1 FCOPY =C'DEFINITION' FNL FTEXT '32 ' FCOPY =C'GET' FILLR ' ',1 FCOPY =C'JOB' FILLR '-',1 FCOPY =C'DEFINITION' F30OUT FMEND END