DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦f1fa6131e⟧ 

    Length: 1000 (0x3e8)
    Notes: pts_type(SC)
    Names: »TNDREM.SC«

Derivation

└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
    └─⟦this⟧ »PTSDEMO/TNDREM.SC«

PTS(SC)

	IDENT	TNDREM	TND REMAINDER IN CASS.
* 
* 
* NAME:          TNDREM 
* PURPOSE:       CALCULATE NUMBER OF NOTES LEFT IN TND CASSETTES
* CALL:          PERF   TNDREM,TNDCIX,TNDNO 
* PARAMETERS: 
*      IN:       TNDCIX BIN INDICATES CASSETTE POSITION, INDEX

*     OUT:       TNDNO BCD (MIN 8 DIGITS) CONTAINS NO. OF NOTES 
*                LEFT IN TND CASSETTE 
* 
* 
	DDUM	DEMODD
	PDIV 
	ENTRY	TNDREM 
TNDREM	PROC	TNDIX,TNDNO 
	PBIN	TNDIX 
	PBCD	TNDNO 
	MOVE	TNDNO,=D'0' 
	SUB	NDDATA2(KW2,TNDIX),='0'	TEST IF BLOCKED
	BZ	TNDREM10	EXIT IF BLOCKED
	MOVE	TNDNO,NDDATA1(KW3,TNDIX)	GET LOADED AMOUNT
	SUB	TNDNO,NDDATA1(KW1,TNDIX)	MINUS ALREADY PAID
	SUB	TNDNO,NDDATA1(KW5,TNDIX)	MINUS APROX. DUMPED 
	BNN	TNDREM10 
	MOVE	TNDNO,=D'0'	NOTHING LEFT
TNDREM10
	RET
	PEND 
	END

HexDump

0x000…02c (0, 0, 400) Head {h00=0x0028, h01=0x0024, text=» IDENT TNDREM TND REMAINDER IN CASS.«, t00=0x0000, t01=0x0004}
0x02c…036             Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x0030}
0x036…040             Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x003a}
0x040…060             Head {h00=0x001c, h01=0x0017, text=»* NAME:          TNDREM «, t00=0x0000, t01=0x0044}
0x060…0a8             Head {h00=0x0044, h01=0x0040, text=»* PURPOSE:       CALCULATE NUMBER OF NOTES LEFT IN TND CASSETTES«, t00=0x0000, t01=0x0064}
0x0a8…0dc             Head {h00=0x0030, h01=0x002b, text=»* CALL:          PERF   TNDREM,TNDCIX,TNDNO «, t00=0x0000, t01=0x00ac}
0x0dc…0f2             Head {h00=0x0012, h01=0x0011, text=»* PARAMETERS: «, t00=0x0000, t01=0x00e0}
0x0f2…138             Head {h00=0x0042, h01=0x003e, text=»*      IN:       TNDCIX BIN INDICATES CASSETTE POSITION, INDEX«, t00=0x0000, t01=0x00f6}
0x138…140             Head {h00=0x0004, h01=0x0000, t00=0x0000, t01=0x013c}
0x140…188             Head {h00=0x0044, h01=0x0050, text=»*     OUT:       TNDNO BCD (MIN 8 DIGITS) CONTAINS NO. OF NOTES «, t00=0x0000, t01=0x0144}
0x188…1b6             Head {h00=0x002a, h01=0x0025, text=»*                LEFT IN TND CASSETTE «, t00=0x0000, t01=0x018c}
0x1b6…1c0             Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0001, t01=0x002a}
0x1c0…1ca             Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0001, t01=0x0034}
0x1ca…1de             Head {h00=0x0010, h01=0x000c, text=» DDUM DEMODD«, t00=0x0001, t01=0x003e}
0x1de…1ec             Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0001, t01=0x0052}
0x1ec…202             Head {h00=0x0012, h01=0x000d, text=» ENTRY TNDREM «, t00=0x0001, t01=0x0060}
0x202…222             Head {h00=0x001c, h01=0x0017, text=»TNDREM PROC TNDIX,TNDNO «, t00=0x0001, t01=0x0076}
0x222…236             Head {h00=0x0010, h01=0x000b, text=» PBIN TNDIX «, t00=0x0001, t01=0x0096}
0x236…24a             Head {h00=0x0010, h01=0x000b, text=» PBCD TNDNO «, t00=0x0001, t01=0x00aa}
0x24a…264             Head {h00=0x0016, h01=0x0011, text=» MOVE TNDNO,=D'0' «, t00=0x0001, t01=0x00be}
0x264…298             Head {h00=0x0030, h01=0x002c, text=» SUB NDDATA2(KW2,TNDIX),='0' TEST IF BLOCKED«, t00=0x0001, t01=0x00d8}
0x298…2bc             Head {h00=0x0020, h01=0x001c, text=» BZ TNDREM10 EXIT IF BLOCKED«, t00=0x0001, t01=0x010c}
0x2bc…2f4             Head {h00=0x0034, h01=0x0030, text=» MOVE TNDNO,NDDATA1(KW3,TNDIX) GET LOADED AMOUNT«, t00=0x0001, t01=0x0130}
0x2f4…32c             Head {h00=0x0034, h01=0x0030, text=» SUB TNDNO,NDDATA1(KW1,TNDIX) MINUS ALREADY PAID«, t00=0x0001, t01=0x0168}
0x32c…366             Head {h00=0x0036, h01=0x0031, text=» SUB TNDNO,NDDATA1(KW5,TNDIX) MINUS APROX. DUMPED «, t00=0x0002, t01=0x0010}
0x366…37c             Head {h00=0x0012, h01=0x000d, text=» BNN TNDREM10 «, t00=0x0002, t01=0x004a}
0x37c…3a2             Head {h00=0x0022, h01=0x001e, text=» MOVE TNDNO,=D'0' NOTHING LEFT«, t00=0x0002, t01=0x0060}
0x3a2…3b2             Head {h00=0x000c, h01=0x0008, text=»TNDREM10«, t00=0x0002, t01=0x0086}
0x3b2…3be             Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0002, t01=0x0096}
0x3be…3cc             Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0002, t01=0x00a2}
0x3cc…3d8             Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0002, t01=0x00b0}
0x3d8…3dc             Head {h00=0x4004, h01=0x0000}
0x3dc…3e0             00 02 00 bc                                                                                                                                                                                                                                       ┆    ┆
0x3e0…3e8 (3, 1, 8)   20 04 00 00 00 03 00 04                                                                                                                                                                                                                           ┆        ┆

Reduced view