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

⟦7301ab16a⟧ 

    Length: 10820 (0x2a44)
    Notes: pts_type(SC)
    Names: »DLDEP.SC«

Derivation

└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
    └─⟦this⟧ »DEMO6800/DLDEP.SC« 
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
    └─⟦this⟧ »DEMO6800/DLDEP.SC«

PTS(SC)

         IDENT    DLDEP                 DEPOSIT 
	DDUM	DEMODD			
	PDIV				
	EXPROC	PAJRN			 
	EXPROC	PBBOOK			 
	EXPROC	PCVCH			 
	EXPROC	QENTRS			 
	EXPROC	XBFMT			 
	EXPROC	ZCRDD 
	EXPROC	ZDRWRD
	EXPROC	ZHWRID
	ENTRY	DLDEP			
	ENTRY	SPAP10 
	ENTRY	SPAP11 
	ENTRY	SPAP12 
************************************************************************
* 
* DEPOSIT 
**
************************************************************************
DLDEP	PROC				
DL000					
	TBT	SBNOBOOK,DL100			
	TBF	SBFT80,DL010	NO COMPACT TERMINAL 
	SET	SBNOBOOK 
	B	DL100
DL010 
**
* NOBOOK IS OFF*
**
	MOVE	TDTRSCDE,=D'1'			
	B	DL200			
**
* NOBOOK IS ON*
**
DL100					
	MOVE	TDTRSCDE,=D'7'			
**
* PRINT LINE TYPE 2*
**
DL200					
	PERF	PAJRN,=W'2' 			 
	MOVE	TDNEWBAL,=D'0'	INITIALISE NEW BALANCE IN FMT		
	PERF	XBFMT,=W'41'	DEPOSIT FORMAT		
	TBT	SBCANCEL,DL999			
**
* PRINT LINE TYPE 7*
**
         MOVE    ICTEXT3,YCCCY(KW4)    SYSTEM CURRENCY
	PERF	PAJRN,=W'7'			
**
* FILL TRANSACTION RECORD*
*    GET NEXT TRANSACTION-RECORD KEY*
**
	PERF	QENTRS,ADLASTRS	UPDATE TRANSACTION SEQ. NR
	MOVE	TDTRSRNR,ADACTRNR	ACCOUNT RECORD NR.
	ADD	TDTRSRNR,ADLASTRS	TRANS. RECORD KEY
	ADD	YDLASSEQ,=D'1'	UPDATE LAST TRANS. SEQ. NR. 
	MOVE	TDTRSSEQ,YDLASSEQ	MOVE TO TRANS. RECORD		
* 
* TDAMOUNT CONTAINS THE VALUE ENTERED BY THE OPERATOR 
* 
	TBF	SBRVS,DL300			
	MUL	TDAMOUNT,=D'-1'	REVERSAL		
DL300					
**
* FILL ACCOUNT RECORD*
**
	MOVE	ADBAL,TDNEWBAL	NEW BALANCE
	ADD	ADDEPCUM,TDAMOUNT	ACCUMULATED DEPOSITS		
	MOVE	ADLASSEQ,TDTRSSEQ	TRANS. SEQUENCE NR.		
**
* WRITE RECORDS*
**
	PERF	ZHWRID,TDTRSRNR,NDLRN2	TRANSACTION RECORD		
	TBT	SBCANCEL,DL999			
	PERF	ZDRWRD,ADACTRNR,NDLRN1	ACCOUNT RECORD 
	TBT	SBCANCEL,DL999 
**
* UPDATE OPERATOR ACCUMULATORS*
**
DL400 
	ADD	ODCASH(KW1,KW4),TDAMOUNT	BALANCE CASH		
	ADD	ODCASH(KW2,KW3),TDAMOUNT	ACCUMULATED DEPOSITS		
**
* PRINT VOUCHER OR BOOK*
* IF A TELLER TERMINAL PRINTER IS AVAILABLE 
**
         CBNL      RDPRTTYP,=D'2',DL999 
	TBT 	SBNOBOOK,DL600			
	TBT	SBCHQACT,DL600			
**
* SAVINGS ACCOUNT WITH BOOK*
**
	PERF	ZCRDD,ADACTRNR,NDLRN1,KW1	READ ACCOUNT FOR PBBOOK 
	TBT	SBCANCEL,DL999 
	PERF	PBBOOK	PRINT IN BOOK
	B	DL999
**
* CHEQUE ACCOUNT OR SAVINGS ACCOUNT WITHOUT BOOK*
**
DL600 
	PERF	PCVCH,=W'1'	PRINT VOUCHER		
**
* CANCEL AND NORMAL EXIT
**
DL999					
	RET				
	PEND				
************************************************************************
**

Full view