|
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: 7696 (0x1e10)
Notes: pts_type(SC)
Names: »DE40ST.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DE40ST.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE40ST.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE40ST.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DE40ST.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DE40ST.SC«
IDENT DE40ST REL 10.0 80-04-11 80-01-29/DALI DDUM DEDDIV PDIV ENTRY DE40ST * * EXTERNAL REFERENCES TO SCREEN * EXT DECLRA EXT DECLRN EXT DECLRS EXT DERR EXT DERROR * * EXTERNAL REFERENCES FOR DISC-ROUTINES EXT OPCL * EXT DEPRUT EXT DEPMSK * EXTERNAL REFERENCES TO APPLICATION ROUTINE * EXT DENT01 EXT DEOPBC OPEN BATCH-ROUTINE * INCLUDE DELITT EJECT ********************************************* * START OF DATAENTERING. HANDLE PRORAMSCREEN- * LAYOUTS 40,41,42,43,44,45 ENTRY MODE. * THESE ROUTINES USE THE DENTER-SCREEN. ********************************************* DE40ST PROC CLEAR BOOL2 MOVE JOBNAME,HEX00 MOVE BATCH,HEX00 CBNE BIN2,W0,DEEN10 DEST00 SET BOOL1 PART OF FORMAT DISPLAY DEST10 TBT BOOL2,DEST20 ATTFMT F40ST B DEST30 DEST20 ATTFMT F41ST DEST30 SET DEPROMPT PROMPT-TEXTS DISPLAY DEST50 CLEAR DECHANGE TBT BOOL2,DEST55 PERF DECLRA B DEST60 DEST55 PERF DECLRS DEST60 IB DEBINW2,DE40CA,DE40RE,DE40EN MOVE DEBINW4,W0 DE40ER PERF DERR B DEST60 EJECT * * CANCEL-KEY PRESSED * DE40CA CLEAR DEPROMPT B DEST50 * * ENTER-KEY PRESSED * DE40EN TBT BOOL2,OPEN1 JUMP IF OPEN BATCH DEEN10 CBNE BIN1,W4,DERE30 IB BIN2,DEEN20,DEEN50,DEEN30,DEEN40,DEEN15 B DEST00 DEEN15 SET DOOL4 B DEEN50 DEEN20 SET DOOL8 B DEEN50 DEEN30 SET DOOL8 DEEN40 SET DOOL7 DEEN50 SET BOOL2 CLEAR BOOL1 B DEST20 EJECT * * RETURN-KEY PRESSED * DE40RE CLEAR DOOL3 DATAENTERING ON USERFILE PERF OPCL,W4 CLOSE USERFILE BNERR DERE20 MOVE DEBINW1,W0 PERF DERROR,DEKTAB6 ATTFMT F41ST SET DEPROMPT PROMPT-TEXTS DISPLAY CLEAR DECHANGE PERF DECLRN B DEST60 DERE20 CLEAR DOOL5 IF SET RETURN FROM DEOPBC BNZ DERE60 OTHERWISE WITHIN THIS MODULE TBT BOOL2,DERE50 IF SET NOT FRMT 40 MOVE BIN2,W1 RETURN FROM THIS MODE MOVE BIN1,W0 DERE30 RET DERE50 CLEAR BOOL2 CHANGE TO FRMT 40 CLEAR BOOL1 DERE60 TBT BOOL2,DEEN10 IS SET NOT FRMT 40 CLEAR DOOL7 CHANGE TO FRMT 40 CLEAR DOOL4 CLEAR DOOL8 MOVE BIN1,W4 MUL BIN1,W10 MOVE PRNUM,BIN1 PERF DEPRUT,PRNUM,BIN1,BIN2 PERF DEPMSK B DEST10 EJECT ************************************** * THIS IS THE MAINLOOP IN ENTRY MODE * THESE ROUTINES USE THE DENTER-SCREEN ************************************** OPEN1 MOVE DEBINW2,W0 OPEN2 MOVE WORK(W11),W0 MSK-WORD MOVE WORK(W12),W0 COMP-WORD PERF DEOPBC,DEBINW2 IB DEBINW2,OPEN3,OPEN3,DE40RE,OPEN4 OPEN3 PERF DENT01 B OPEN2 OPEN4 GETABX DEBINW3 ATTFMT F41ST GETFLD 0,DEBINW3,DEBINW3 B DE40ER PEND EJECT * * FORMATS * F40ST FRMT FSL FTEXT '40 ' FCOPY =C'ENTRY' FILLR ' ',1 FCOPY =C'MODE' FNL FCOPY =C'PROGRAM:' FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 FMEL 'XX',PRNUM FBF BOOL1,F40OUT FNL FTEXT '41 ' FCOPY =C'OPEN NEW ' FCOPY =C'BATCH' FNL FTEXT '42 ' FCOPY =C'OPEN OLD ' FCOPY =C'BATCH' FNL FTEXT '43 ' FCOPY =C'OPEN NEW ' FCOPY =C'TEST' FILLR '-',1 FCOPY =C'BATCH' FNL FTEXT '44 ' FCOPY =C'OPEN OLD ' FCOPY =C'TEST' FILLR '-',1 FCOPY =C'BATCH' FNL FLINK F45ST F40OUT FMEND F41ST FRMT FSL FBF DOOL4,F41ST1 FLINK F45ST FB F41ST2 F41ST1 FMEL 'XX',PRNUM FTAB 4 FCOPY =C'ENTRY' FILLR ' ',1 FCOPY =C'MODE' FBF DOOL7,F41ST2 FILLR ' ',1 FCOPY =C'TEST' F41ST2 FNL FLINK F40UV FNL FLINK F40JOB FTAB 20 FLINK F40BAT FNL FLINK F40END FMEND F45ST FRMT FTEXT '45 ' FCOPY =C'DELETE' FILLR '-',1 FCOPY =C'BATCH' FMEND F40UV 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 F40JOB 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 F40BAT 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 F40END FRMT FKI 1 FCOPY HEX00 FMEND BELL FRMT FSL FILLR X'07',1 FMEND END