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

⟦69e1f6bb1⟧ 

    Length: 4708 (0x1264)
    Notes: pts_type(SC)
    Names: »DHBACT.SC«

Derivation

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

PTS(SC)

 IDENT DHBACT BLOCK / DEBLOCK ACCOUNT
	DDUM	DEMODD			
	PDIV				
	ENTRY	DHBACT			
	EXPROC    	PAJRN			 
	EXPROC	XBFMT			 
	EXPROC	ZDRWRD			 
DHBACT	PROC		(DE-)BLOCK ACCOUNT		
DH000					
	CBE	ADSTATUS,=D'1',DH100			
	SET	SBBACT	BLOCKED ACCOUNTRECORD		
	MOVE	TDTRSCDE,=D'82'	UPDATE TO DEBLOCKED		
	B	DH200			
DH100	SET 	SBDACT	DEBLOCKED ACCOUNTRECORD		
	MOVE	TDTRSCDE,=D'83'	UPDATE TO BLOCKED		
DH200					
**
*   PRINT LINE TYPE 1 AND 2*
**
	PERF	PAJRN,=W'1' 
	PERF	PAJRN,=W'2' 
DH300					
**
*   DISPLAY (DE-)BLOCK ACCOUNT SCREEN*
*   IF ALPHA-KEYBOARD IS AVAILABLE, THE REASON FOR THE ACTION*
*        CAN BE ENTERED*
**
	MOVE	TCTEXT,=C' '			
	PERF	XBFMT,=W'48'			
	TBT	SBCANCEL,DH900			
DH400					
	ADD	YDLASSEQ,=D'1'			
	MOVE	ADLASSEQ,YDLASSEQ			
	MOVE	TDTRSSEQ,YDLASSEQ			
**
*   RESET STATUS*
**
	CBE	ADSTATUS,=D'1',DH500 
	MOVE	ADSTATUS,=D'1'			
	B	DH600
DH500					
	MOVE	ADSTATUS,=D'0'			
**
*   REWRITE ACCOUNTRECORD*
**
DH600 
	PERF	ZDRWRD,ADACTRNR,NDLRN1			
DH900					
	CLEAR	SBDACT			
	CLEAR	SBBACT			
	RET				
	PEND				
* 
* 
	END

Full view