|
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: 1846 (0x736)
Notes: pts_type(SC)
Names: »NDERR.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/NDERR.SC«
IDENT NDERR TND ERROR REPORTING DDUM DEMODD ************************************************************************ * * PROCEDURE NAME: * OUTPUTS AN ERROR MESSAGE CORRESPONDING THE ERROR * THAT OCCURRED DURING THE DISPENSE * THE TND IS CLOSED, THIS RECOVERY SHOULD BE * REPLACED BY A MORE SOPHISTICATED ONE IN A * DEFENITE IMPLEMENTATION OF THE TND IN THE * DEMO-PACKAGE * * PARAMETERS: * ERRNUM CONTAINS THE ERRORCODE, * INCREASED BY THIS ROUTINE * TO THE STANDARDS OF THE * DEMO PACKAGE * =0 REQUEST ERROR * =1 TND NOT OPERABLE * =2 COMMUNICATIONS OR HARDWARE ERROR * =3 DELIVERY TIMEOUT * =4 BAD NOTES OR JAM * =5 REJECT CASSETTE FULL * =6 CASSETTE 'ZZZZ' EMPTY * =7 PROGRAM ERROR-DEBUG HELP * =8 CASSETTE 'ZZZZ' FAILS TO FEED * * RPOCEDURES USED * * XEERR ************************************************************************ PDIV ENTRY NDERR EXPROC XFERR1 NDERR PROC ERRNUM PBIN ERRNUM MOVE NWXSTAT,WW1 MOVE WW3,ERRNUM ADD WW3,=W'82' SET DEMO-PACKAGE EQUIVALENT PERF XFERR1,WW3,KW2 OUTPUT ERROR-MESSAGE, THEN MOVE WW1,NWXSTAT RET PEND END