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

Full view