|
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: 7574 (0x1d96)
Notes: pts_type(SC)
Names: »DE60ST.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DE60ST.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE60ST.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE60ST.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DE60ST.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DE60ST.SC«
IDENT DE60ST REL 10.0 80-04-11 79-07-30/DALI DDUM DEDDIV PDIV ENTRY DE60ST * * EXTERNAL REFERENCES TO SCREEN * EXT DECLRA EXT DERR EXT DECLRN EXT DECLRS EXT DERROR EXT OPCL EXT DEOPBC EXT DENT01 * EXT RESTOR EXT DEPRUT EXT DEPMSK * * EXTERNAL REFERENCES TO APPLICATION ROUTINE * EXT DEAOK0 EXT DEANOK INCLUDE DELITT EJECT ********************************************* * START OF VERIFYING. HANDLE PRORAMSCREEN- * LAYOUTS 60,61,62,63,66 VERIFY MODE. * THESE ROUTINES USE THE DENTER-SCREEN. ********************************************* DE60ST PROC CLEAR BOOL2 CBNE BIN2,W0,DEEN10 DEST00 SET BOOL1 PART OF FORMAT DISPLAY DEST10 TBT BOOL2,DEST20 ATTFMT F60ST B DEST30 DEST20 ATTFMT F61ST DEST30 SET DEPROMPT PROMPT-TEXTS DISPLAY DEST50 CLEAR DECHANGE PERF DECLRA DEST60 IB DEBINW2,DE60CA,DE60RE,DE60EN MOVE DEBINW4,W0 DE60ER CLEAR VERIFM CLEAR KEYVER PERF DERR B DEST60 EJECT * * CANCEL-KEY PRESSED * DE60CA CLEAR DEPROMPT B DEST50 * * ENTER-KEY PRESSED * DE60EN TBT BOOL2,OPEN1 JUMP IF OPEN BATCH DEEN10 CBNE BIN1,W6,DERE30 IB BIN2,DEEN20,DEEN50,DEEN30,DEEN60 B DEST00 DEEN20 SET KEYVER B DEEN50 DEEN30 SET KEYVER DEEN60 SET DOOL7 DEEN50 SET BOOL2 CLEAR BOOL1 B DEST20 EJECT * * RETURN-KEY PRESSED * DE60RE CLEAR DOOL3 PERF OPCL,W4 CLOSE USERFILE BNERR DERE20 MOVE DEBINW1,W0 PERF DERROR,DEKTAB6 CLEAR DOOL5 BZ DERE60 ATTFMT F61ST SET DEPROMPT PROMPT-TEXTS DISPLAY CLEAR DECHANGE PERF DECLRN B DEST60 DERE20 CLEAR DOOL5 BNZ DERE60 TBT BOOL2,DERE50 MOVE BIN2,W1 MOVE BIN1,W0 DERE30 RET DERE50 CLEAR BOOL2 CLEAR BOOL1 DERE60 CLEAR VERIFM VERIFY-MODE TBT BOOL2,DEEN10 CLEAR DOOL7 CLEAR DOOL4 CLEAR KEYVER B DEST10 EJECT ************************************** * THIS IS THE MAINLOOP IN VERIFY MODE * THESE ROUTINES USE THE DENTER-SCREEN ************************************** OPEN1 SET VERIFM VERIFY-MODE MOVE DEBINW2,W0 OPEN2 PERF DEOPBC,DEBINW2 IB DEBINW2,OPEN3,OPEN3,DE60RE,OPEN4 OPEN3 PERF DENT01 B OPEN2 OPEN4 GETABX DEBINW3 ATTFMT F61ST GETFLD 0,DEBINW3,DEBINW3 B DE60ER PEND EJECT * * FORMATS * F60ST FRMT FSL FTEXT '60 ' FLINK F60VER FNL FCOPY =C'PROGRAM:' FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 FMEL 'XX',PRNUM FBF BOOL1,F60OUT FNL FTEXT '61 ' FLINK F60VER FCOPY =C'KEY' FNL FTEXT '62 ' FLINK F60VER FCOPY =C'SIGHT' FNL FTEXT '63 ' FLINK F60VER FCOPY =C'KEY' FILLR '/',1 FCOPY =C'TEST' FNL FTEXT '64 ' FLINK F60VER FCOPY =C'SIGHT' FILLR '/',1 FCOPY =C'TEST' F60OUT FMEND F61ST FRMT FSL F61ST1 FMEL 'XX',PRNUM FTAB 4 FLINK F60VER FBT KEYVER,F61ST2 FCOPY =C'SIGHT' FB F61ST3 F61ST2 FCOPY =C'KEY' F61ST3 FBF DOOL7,F61ST4 FILLR '/',1 FCOPY =C'TEST' F61ST4 FNL FLINK F60UV FNL FLINK F60JOB FTAB 20 FLINK F60BAT FNL FLINK F60END FMEND F60VER FRMT FCOPY =C'VERIFY' FILLR ' ',1 FCOPY =C'MODE' FILLR ' ',1 FMEND F60UV FRMT 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 FMEND F60JOB FRMT FCOPY =C'JOB' FCOPY =C'NAME' FILLR ':',1 FKI 9,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=3,DUPL=STSAVE(W1) FCOPY JOBNAME FMEND F60BAT FRMT FCOPY =C'BATCH' FCOPY =C'NAME' FILLR ':',1 FKI 30,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=4,DUPL=STSAVE(W2) FCOPY BATCH FMEND F60END FRMT FKI 1 FCOPY HEX00 FMEND BELL FRMT FSL FILLR X'07',1 FMEND END