|
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: 11046 (0x2b26)
Notes: pts_type(SC)
Names: »DERROR.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DERROR.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DERROR.SC«
IDENT DERROR REL 10.0 80-04-11 80-04-08/DALI * * THIS IS A GENERAL ERRORMESSAGES-ROUTINE * IT - POSITIONS CURSOR AT THE LAST LINE * - DISPLAYS CORRESPNDING ERROR MESSAGE AT THE LAST LINE * - CORRESPONDING ERROR-NUMBER IS HOLD IN DEBINW4 * - ERASE LAST LINE AFTER DEPRESSING VALID KEY * DDUM DEDDIV PDIV ENTRY DERROR ENTRY CANC EXT MASK EXT MSKOUT EXT DELOCK TEST KEY-LOCKS EXT DELAST EJECT * ** ERROR-MESSAGES * DEFTBERR FTABLE ERFM01,ERFM02,ERFM03,ERFM04,ERFM05,ERFM06,ERFM07, C ERFM08,ERFM09,ERFM10,ERFM11,ERFM12,ERFM13,ERFM14, C ERFM15,ERFM16,ERFM17,ERFM18,ERFM19,ERFM20,ERFM21, C ERFM22,ERFM23,ERFM24,ERFM25,ERFM26,ERFM27,ERFM28, C ERFM29,ERFM30,ERFM31,ERFM32,ERFM33,ERFM34,ERFM35, C ERFM36,ERFM37,ERFM38,ERFM39,ERFMDM,ERFMDM,ERFMDM, C ERFMDM,ERFMDM,ERFMDM,ERFMDM,ERFMDM,ERFMDM,ERFM49, C ERFM50,ERFM51,ERFM52,ERFM53,ERFM54,ERFM55 * ERFM01 FRMT FSL FTEXT 'TOO FEW INPUT CHARACTERS' FMEND * ERFM02 FRMT FSL FTEXT 'UNDEFINED ERROR' FMEND * ERFM03 FRMT FSL FTEXT 'I/O-ERROR' FMEND * ERFM04 FRMT FSL FTEXT 'FUNCTION NOT ALLOWED' FMEND EJECT ERFM05 FRMT FSL FTEXT 'COMPULSORY FIELD NOT FILLED' FMEND * ERFM06 FRMT FSL FTEXT 'ILLEGAL VALUE' FMEND * ERFM07 FRMT FSL FTEXT 'INVALID NUMBER' FMEND * ERFM08 FRMT FSL FTEXT 'ALREADY DEFINED/EXECUTED' FMEND * ERFM09 FRMT FSL FTEXT 'NOT FOUND' FMEND * ERFM10 FRMT FSL FTEXT 'NO DISC SPACE' FMEND * EJECT ERFM11 FRMT FSL FCOPY =' IN USE' FMEND ERFM12 FRMT FSL FTEXT 'FOUND LOCKED' FMEND * ERFM13 FRMT FSL FTEXT 'NO WORKSPACE IN CORE' FMEND * ERFM14 FRMT FSL FTEXT 'MAXIMUM RECORD-LENGTH EXCEEDED' FMEND * ERFM15 FRMT FSL FTEXT 'NO RECORD FOUND' FMEND * ERFM16 FRMT FSL FTEXT 'MAXIMUM NUMBER OF FIELDS EXCEEDED' FMEND EJECT ERFM17 FRMT FSL FTEXT 'PRESS ENT FOR DELETION' FMEND * ERFM18 FRMT FSL FLOW FBF DOOL1,E18FOR FCOPY =C'SYMBOLIC' FB E18RES E18FOR FCOPY =C'FORMAT' E18RES FILLR ':',1 FHIGH FCOPY DEINPUT FTEXT ' DOES NOT EXIST IN JOB-DEFINITION' FBT DOOL1,E18OUT FTEXT ' OR ON SYSTEM-DISC' E18OUT FMEND * EJECT ERFM19 FRMT FSL FCOPY MODE FILLR ':',1 FMEL 'XX',PRNUM FBF SOOL1,E19OUT FILLR ':',1 FCOPY JOBNAME FILLR ':',1 FCOPY BATCH FILLR ':',1 FCOPY STR15A FILLR ':',1 FMEL 'TTTT9',BCD13A FBF SOOL2,E19OUT FILLR ':',1 FCOPY SYMBOL FILLR ':',1 FCOPY STRG10A FILLR ':',1 FMEL 'TTTT9',NUMBER E19OUT FBF ASDFLAG,E19END FILLR ':',1 FTEXT 'ASD' E19END FTAB 53 FTEXT 'PAGE' FILLR ':',1 FMEL 'X',BCD2A FMEND * EJECT ERFM20 FRMT FSL FTEXT 'SYSTEMFILE ASSIGN-ERROR' FMEND * ERFM21 FRMT FSL FTEXT 'USERFILE ASSIGN-ERROR' FMEND * ERFM22 FRMT FSL FTEXT 'DISC I/O-ERROR' FTAB 58 FMEL 'XXXXX-',BCD13A FMEND * ERFM23 FRMT FSL FTEXT 'DISC NOT OPERABLE' FMEND * ERFM24 FRMT FSL FCOPY =C'FORMAT' FILLR ':',1 FCOPY STR6A FCOPY =' IN USE' FMEND EJECT * ERFM25 FRMT FSL FCOPY =C'VALUE-SET' FILLR ':',1 FCOPY TABLE FCOPY =' IN USE' FMEND ERFM26 FRMT FSL FCOPY =C'JOB' FILLR ':',1 FCOPY JOBNAME FCOPY =' IN USE' FMEND * ERFM27 FRMT FSL FCOPY =C'BATCH' FILLR ':',1 FCOPY BATCH FTEXT ' IN ' FCOPY =C'JOB' FILLR ':',1 FCOPY JOBNAME FCOPY =' IN USE' FMEND * EJECT ERFM28 FRMT FSL FTEXT 'DEFINED LINE MAXIMUM EXCEEDED' FMEND ERFM29 FRMT FSL FTEXT 'MAXIMUM FORMAT-CODE SIZE EXCEEDED' FMEND * ERFM30 FRMT FSL FTEXT 'PRESS ENT TO CONFIRM' FMEND * EJECT ERFM31 FRMT FSL FCOPY =C'FORMAT' FILLR ':',1 FCOPY FORMAT FILLR ':',1 FTEXT 'CONFIRM WANTED FUNCTION (CORR,RDEL,PRINT)' FMEND * ERFM32 FRMT FSL FTEXT 'ILLEGAL FORMAT NAME' FMEND ERFM33 FRMT FSL FLINK ERFM3A FMEND ERFM34 FRMT FSL FTEXT 'NOT ' FLINK ERFM3A FMEND ERFM3A FRMT FTEXT 'TEST ENTERED BATCH' FMEND * ERFM35 FRMT FSL FTEXT 'OUTPUT DEVICE NOT OPERABLE' FMEND EJECT * ERFM36 FRMT FSL FTEXT 'END OF FORMAT FOUND PRESS RINS FOR NEW LINES' FMEND * ERFM37 FRMT FSL FTEXT 'RECOVERY RUNNING.' FMEND * ERFM38 FRMT FSL FTEXT 'OCCUPIED RECORDLENGTH CHANGED WITHIN FORMAT:' FCOPY FORMAT FILLR '.',1 FTEXT 'SIZE ON DISC:' FMEL 'TTT9',BCD13A FILLR '.',1 FMEND * ERFM39 FRMT FSL FTEXT 'WARNING:REFERENCE TO FIELD (F' FMEL 'XXX',BCD13A FTEXT ') OUTSIDE FORMAT DEFINITION' FMEND EJECT * ERFM49 FRMT FSL FTEXT 'USERFILE NOT CLOSED IN PREVIOUS SESSION.' FMEND * ERFM50 FRMT FSL FTEXT '95 % OF FILESPACE USED' FMEND * ERFM51 FRMT FSL FTEXT 'CDV-ERROR' FMEND * ERFM52 FRMT FSL FTEXT 'DATE ERROR' FMEND * ERFM53 FRMT FSL FTEXT 'TIME-OUT' FMEND * ERFM54 FRMT FSL FTEXT 'EDIT ERROR IN CONVERSION' FMEND * ERFM55 FRMT FSL FTEXT 'CHANGE CASSETTE' FMEND * EJECT ERFMDM FRMT FSL FTEXT 'THIS IS A DUMMY MESSAGE' FMEND EJECT DERROR PROC KEYTAB PKTAB KEYTAB * * ERROR HANDLING * MOVE DEBINW2,W1 EDWRT DEDSSCRN,BELL ACOUSTIC ALARM CMP DEBINW4,W0 BZ DERR99 BP DERR00 ADD DEBINW4,=W'51' BNP DERR02 JUMP IF STILL NEGATIV DERR00 ERASE 0,W24,W24 SET CURSOR ON LAST ROW CMP DEBINW4,W128 BL DERR03 XCOPY DEBINW2,W1,W1,BPOOL(BIN11),BIN3 LENGTH MOVE STATSH,HEX00 MOVE DEBINW3,=X'3F' CALL MSKOUT,DEBINW3,DEBINW2 ADD DEBINW3,W1 XCOPY STATSH,W1,DEBINW3,BPOOL(BIN11),BIN3 MOVE DEBINW3,=X'202B' XCOPY STATSH,W0,W2,DEBINW3,W0 EDWRT DEDSSCRN,FED B DERR05 * FED FRMT FCOPY STATSH FMEND DERR03 CBL DEBINW4,=W'56',DERR04 DERR02 MOVE DEBINW4,W2 DERR04 EDWRT DEDSSCRN,DEFTBERR(DEBINW4) * * READ AFTER ERROR * DERR05 SETCUR SET CURSOR AT THE BEGINNING OF THE CURRENT FIELD B DERR15 NO BELL FIRST TIME DERR10 EDWRT DEDSSCRN,BELL ACOUSTIC ALARM DERR15 MOVE DEBINW3,W1 REQUESTED LENGTH NKI .NE,DEDSDYKB,STR1A,KEYTAB,DEBINW3,DEBINW2 PERF DELOCK,W1,DEBINW2 IB DEBINW3,DERR18,DERR17,DERR19 B DERR20 * DERR17 XSTAT DEDSDYKB,DEBINW3 CALL MASK,DEBINW3,W64 BNZ DERR15 JUMP IF NOT OK CBNE DEBINW4,W4,DERR10 NO KEY-LOCK-ERROR ? CBE DEBINW2,W3,DERR20 RETURN-KEY USED ? B DERR10 DERR18 DISPLAY 0,W1,W0 B DERR00 DERR19 CBNE DEBINW4,W4,DERR15 NO KEY-LOCK-ERROR ? MOVE DEBINW2,W1 SIMULATE CLEAR-KEY DERR20 CBNE DEBINW2,W10,DERR25 * * HANDLE ASDFLAG * CLEAR ASDFLAG PERF DELAST,W14,KEYTAB MOVE DEBINW2,W1 SIMULATE CLR RET * DERR25 MOVE DEBINW3,W24 INDICATE LAST LINE * * CLEAR ERROR PRINTOUT * DERR30 ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE DERR99 RET PEND EJECT CANC PROC CBE DEBINW1,W0,CANC20 JUMP IF LENGTH = MOVE DEINPUT,:FMTITEM SAVE CURRENT CONTENTS MOVE STATSH,=X'3100' MOVE :FMTITEM,STATSH PUT SOMETHING IN THE FIELD GETABX DEBINW4 GET CURRENT INDEX ERASE 10,DEBINW4,DEBINW4 CLEAR FIELD CANC10 IB DEBINW2,CLEAR1,CLEAR2 CANC15 MOVE :FMTITEM,DEINPUT RESTORE CURRENT CONTENTS CANC20 RET CLEAR1 SET DECHANGE INDICATE CHANGED FIELD RET * CLEAR2 MOVE :FMTITEM,DEINPUT RESTORE CURRENT CONTENTS CLEA20 GETABX DEBINW4 GET CURRENT TAB INDEX DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD RET PEND EJECT * BELL FRMT FSL FILLR X'07',1 FMEND END