|
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: 4762 (0x129a)
Notes: pts_type(SC)
Names: »DE80ST.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DE80ST.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE80ST.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE80ST.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DE80ST.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DE80ST.SC«
IDENT DE80ST REL 1.0 79-08-14/DALI DDUM DEDDIV PDIV ENTRY DE80ST ENTRY DEAP8A * * EXTERNAL REFERENCES TO SCREEN * EXT DECLRA EXT DECLRN EXT DERR EXT DERROR EXT CHANFC EXT DEDISC EXT DEANOK EXT DEAOK0 * * EXTERNAL FOR APPLICATIONAL CONVERTING EXT DECONV WEOF EQU 3 CLOSE FILE EJECT DE80ST PROC DEST DEST80 ATTFMT F80ST DEST72 SET DEPROMPT PROMPT-TEXTS DISPLAY STA050 CLEAR DECHANGE PERF DECLRA STA100 IB DEBINW2,CANCEL,DE80RE,DE80EN B ERROR CANCEL CLEAR DEPROMPT B STA050 * * ERROR MOVE DEBINW4,W0 ERR2 PERF DERR B STA100 * DE80RE MOVE BIN1,W0 MOVE BIN2,W1 RET DE80EN MOVE DEBINW3,BCD13A PERF DECONV,W2,DEBINW3,DEBINW4 CBE DEBINW4,W0,DE80RE PEND EJECT * DEAP8A IB DEBINW3,TYPE80,REST80 B TYPE81 TYPE80 MOVE BCD2A,DEINPUT MOVE DEBINW3,BCD2A IB DEBINW3,DEAOK0,DEAOK0,DEAOK0 TYPE81 MOVE DEBINW4,W6 ILLEGAL VALUE B DEANOK REST80 MOVE STR1A,DEINPUT CBE STR1A,=C'Y',REST81 CBNE STR1A,=C'N',TYPE81 REST81 B DEAOK0 EJECT * * FORMATS * F80ST FRMT FSL FTEXT '80 ' FCOPY =C'RECEIVE MODE' FNL FCOPY =C'UNIT' FTEXT ':U' FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 FMEL 'X',USERFILE FTAB 20 FCOPY =C'VOLUME' FILLR ':',1 FINP 27 FCOPY TABLE FNL FTEXT 'TYPE:' FKI 6,MINL=1,MAXL=1,ME,NEOI,APPL=101 FMEL 'X',BCD13A FNL FTEXT '1= LINE TO PRINTER' FNL FTEXT '2= LINE TO DISK' FNL FTEXT '3= DISK TO PRINTER' FNL FTEXT 'RESTART(Y/N):' FKI 15,ALPHA,MAXL=1,ME,NEOI,APPL=102 FCOPY STR1A FNL FLINK F80END FMEND F80END FRMT FKI 1 FCOPY HEX00 FMEND END