|
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: 7110 (0x1bc6)
Notes: pts_type(SC)
Names: »DERROR.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/DERROR.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/DERROR.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/DERROR.SC«
IDENT DERROR UPD 80-02-29/CHST * * USER = S:DA * THIS IS A GENERAL ERRORMESSAGES-ROUTINE * IT - POSITIONS CURSOR AT THE 24TH LINE * - DISPLAYS CORRESPNDING ERROR MESSAGE AT THE 24TH LINE * - CORRESPONDING ERROR-NUMBER IS HOLD IN DEBINW4 * - ERASE 24TH LINE AFTER DEPRESSING VALID KEY * DDUM DDINIT PDIV ENTRY DERROR ENTRY CANC ENTRY DESTAT ENTRY DECHK1 ENTRY DECHK2 ENTRY DECHK3 ENTRY DECHK4 ENTRY DECHK5 ENTRY DECHK6 ENTRY DECHK7 ENTRY DETCHK EJECT * ** ERROR-MESSAGES * DEFTBERR FTABLE ERFM01,ERFM02,ERFM03,ERFM04,ERFM05,ERFM06,ERFM07, C ERFM02,ERFM09,ERFM10,ERFM11,ERFM12,ERFM13,ERFM02, C ERFM02,ERFM02,ERFM17,ERFM18,ERFM02,ERFM20,ERFM21, C ERFM22,ERFM18,ERFM24,ERFM25,ERFM18,ERFM18,ERFM02, C ERFM02,ERFM30 * 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 * ERFM05 FRMT FSL FTEXT 'COMPULSORY FIELD NOT FILLED' FMEND * ERFM06 FRMT FSL FTEXT 'ILLEGAL VALUE' FMEND * ERFM07 FRMT FSL FTEXT 'FILENAME ALREADY USED' FMEND * ERFM09 FRMT FSL FTEXT 'SYSTEMFILE NOT CREATED' FMEND * ERFM10 FRMT FSL FTEXT 'DISK OVERFLOW' FMEND * ERFM11 FRMT FSL FTEXT 'VOLUME-NAME MUST BE "SYSVOL"' FMEND * ERFM12 FRMT FSL FTEXT 'FILE NAME UNKNOWN' FMEND * ERFM13 FRMT FSL FTEXT 'NO WORKSPACE IN CORE' FMEND * ERFM17 FRMT FSL FTEXT 'OUTPUT FILE TOO SMALL' FMEND * ERFM18 FRMT FSL FTEXT 'DISK NOT OPERABLE' FMEND * 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 * ERFM24 FRMT FSL FTEXT 'DISC READING-ERROR' FMEND * ERFM25 FRMT FSL FTEXT 'DISC WRITING-ERROR' FMEND * ERFM30 FRMT FSL FTEXT 'WRONG NO. OF SECTORS/RECORD IN OUTPUT FILE' FMEND * EJECT DERROR PROC KEYT PKTAB KEYT * * ERROR HANDLING * MOVE DEBINW2,W1 EDWRT DEDSSCRN,BELL ACOUSTIC ALARM CMP DEBINW4,W0 BZ DERR99 BP DERR00 ADD DEBINW4,=W'51' DERR00 MOVE DEBINW3,=X'1801' ROW 24 COL. 1 DSC1 DEDSSCRN,6,DEBINW3 SET CURSOR ON LAST ROW * DERR03 CBL DEBINW4,=W'50',DERR04 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,KEYT,DEBINW3,DEBINW2 BNOK DERR10 * DERR18 CBNE DEBINW2,W0,DERR20 DISPLAY 0,W1,W0 B DERR00 DERR20 MOVE DEBINW3,W24 INDICATE LAST LINE IB DEBINW2,DERR30,DERR30 C DERR30,DERR40 B DERR10 CONTINUE * * CLEAR ERROR PRINTOUT * DERR30 ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE PERF CANC B DERR99 DERR40 CBE DEBINW1,W0,DERR10 ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE DERR99 RET PEND EJECT CANC PROC MOVE DEINPUT,HEX00 MOVE DEINPUT,:FMTITEM SAVE CURRENT CONTENTS CBE DEBINW1,W0,CANC10 JUMP IF LENGTH = 0 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 RET CLEAR1 CBE DEBINW1,W0,CANC15 JUMP IF LENGTH = 0 SET DECHANGE INDICATE CHANGED FIELD B CANC15 CONTINUE * CLEAR2 CBE DEBINW1,W0,CANC15 MOVE :FMTITEM,DEINPUT RESTORE CURRENT CONTENTS CLEA20 GETABX DEBINW4 GET CURRENT TAB INDEX DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD RET PEND EJECT DESTAT DECHK1 DECHK2 DECHK3 DECHK4 DECHK5 DECHK6 DECHK7 DETCHK PROC RET PEND EJECT * BELL FRMT FSL FILLR X'07',1 FMEND END