|
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
0x000…028 (0, 0, 400) Head {h00=0x0024, h01=0x0020, text=» IDENT NDERR TND ERROR REPORTING«, t00=0x0000, t01=0x0004}
0x028…03c Head {h00=0x0010, h01=0x000c, text=» DDUM DEMODD«, t00=0x0000, t01=0x002c}
0x03c…08c Head {h00=0x004c, h01=0x0048, text=»************************************************************************«, t00=0x0000, t01=0x0040}
0x08c…096 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x0090}
0x096…0b8 Head {h00=0x001e, h01=0x001a, text=»* PROCEDURE NAME:«, t00=0x0000, t01=0x009a}
0x0b8…104 Head {h00=0x0048, h01=0x0043, text=»* OUTPUTS AN ERROR MESSAGE CORRESPONDING THE ERROR «, t00=0x0000, t01=0x00bc}
0x104…140 Head {h00=0x0038, h01=0x0034, text=»* THAT OCCURRED DURING THE DISPENSE«, t00=0x0000, t01=0x0108}
0x140…186 Head {h00=0x0042, h01=0x0050, text=»* THE TND IS CLOSED, THIS RECOVERY SHOULD BE «, t00=0x0000, t01=0x0144}
0x186…1ca Head {h00=0x0040, h01=0x0050, text=»* REPLACED BY A MORE SOPHISTICATED ONE IN A«, t00=0x0000, t01=0x018a}
0x1ca…20e Head {h00=0x0040, h01=0x0050, text=»* DEFENITE IMPLEMENTATION OF THE TND IN THE«, t00=0x0001, t01=0x003e}
0x20e…236 Head {h00=0x0024, h01=0x0050, text=»* DEMO-PACKAGE «, t00=0x0001, t01=0x0082}
0x236…240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00aa}
0x240…25e Head {h00=0x001a, h01=0x0050, text=»* PARAMETERS:«, t00=0x0001, t01=0x00b4}
0x25e…2a0 Head {h00=0x003e, h01=0x0050, text=»* ERRNUM CONTAINS THE ERRORCODE,«, t00=0x0001, t01=0x00d2}
0x2a0…2e4 Head {h00=0x0040, h01=0x0050, text=»* INCREASED BY THIS ROUTINE«, t00=0x0001, t01=0x0114}
0x2e4…328 Head {h00=0x0040, h01=0x0050, text=»* TO THE STANDARDS OF THE «, t00=0x0001, t01=0x0158}
0x328…360 Head {h00=0x0034, h01=0x0050, text=»* DEMO PACKAGE «, t00=0x0002, t01=0x000c}
0x360…38c Head {h00=0x0028, h01=0x0050, text=»* =0 REQUEST ERROR«, t00=0x0002, t01=0x0044}
0x38c…3bc Head {h00=0x002c, h01=0x0050, text=»* =1 TND NOT OPERABLE «, t00=0x0002, t01=0x0070}
0x3bc…3fc Head {h00=0x003c, h01=0x0050, text=»* =2 COMMUNICATIONS OR HARDWARE ERROR «, t00=0x0002, t01=0x00a0}
0x3fc…42c Head {h00=0x002c, h01=0x0050, text=»* =3 DELIVERY TIMEOUT«, t00=0x0002, t01=0x00e0}
0x42c…45c Head {h00=0x002c, h01=0x0050, text=»* =4 BAD NOTES OR JAM«, t00=0x0002, t01=0x0110}
0x45c…490 Head {h00=0x0030, h01=0x0050, text=»* =5 REJECT CASSETTE FULL«, t00=0x0002, t01=0x0140}
0x490…4c6 Head {h00=0x0032, h01=0x0050, text=»* =6 CASSETTE 'ZZZZ' EMPTY «, t00=0x0002, t01=0x0174}
0x4c6…4fe Head {h00=0x0034, h01=0x0050, text=»* =7 PROGRAM ERROR-DEBUG HELP«, t00=0x0003, t01=0x001a}
0x4fe…53c Head {h00=0x003a, h01=0x0050, text=»* =8 CASSETTE 'ZZZZ' FAILS TO FEED «, t00=0x0003, t01=0x0052}
0x53c…546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0090}
0x546…568 Head {h00=0x001e, h01=0x0050, text=»* RPOCEDURES USED«, t00=0x0003, t01=0x009a}
0x568…572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00bc}
0x572…592 Head {h00=0x001c, h01=0x0050, text=»* XEERR«, t00=0x0003, t01=0x00c6}
0x592…5e2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0003, t01=0x00e6}
0x5e2…5f0 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0003, t01=0x0136}
0x5f0…604 Head {h00=0x0010, h01=0x0050, text=» ENTRY NDERR«, t00=0x0003, t01=0x0144}
0x604…61a Head {h00=0x0012, h01=0x0050, text=» EXPROC XFERR1«, t00=0x0003, t01=0x0158}
0x61a…634 Head {h00=0x0016, h01=0x0050, text=»NDERR PROC ERRNUM «, t00=0x0003, t01=0x016e}
0x634…648 Head {h00=0x0010, h01=0x0050, text=» PBIN ERRNUM«, t00=0x0003, t01=0x0188}
0x648…662 Head {h00=0x0016, h01=0x0050, text=» MOVE NWXSTAT,WW1 «, t00=0x0004, t01=0x000c}
0x662…67a Head {h00=0x0014, h01=0x0050, text=» MOVE WW3,ERRNUM«, t00=0x0004, t01=0x0026}
0x67a…6ae Head {h00=0x0030, h01=0x0050, text=» ADD WW3,=W'82' SET DEMO-PACKAGE EQUIVALENT «, t00=0x0004, t01=0x003e}
0x6ae…6e6 Head {h00=0x0034, h01=0x0050, text=» PERF XFERR1,WW3,KW2 OUTPUT ERROR-MESSAGE, THEN «, t00=0x0004, t01=0x0072}
0x6e6…700 Head {h00=0x0016, h01=0x0050, text=» MOVE WW1,NWXSTAT «, t00=0x0004, t01=0x00aa}
0x700…70c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x00c4}
0x70c…71a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x00d0}
0x71a…726 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0004, t01=0x00de}
0x726…72a Head {h00=0x4004, h01=0x0000}
0x72a…72e 00 04 00 ea ┆ ┆
0x72e…736 (5, 1, 8) 20 04 00 00 00 05 00 04 ┆ ┆