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

⟦919ed0d4a⟧ 

    Length: 11168 (0x2ba0)
    Notes: pts_type(SC)
    Names: »EINIT.SC«

Derivation

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

PTS(SC)

         IDENT    EINIT                 INITIALISATIONS 
	DDUM	DEMODD
	PDIV 
 ENTRY EAIOPR 
 ENTRY EBZACC 
	ENTRY	ECICCY 
	ENTRY	EDIAC1 
	ENTRY	EFIAC2 
	ENTRY	EEITR1 
	ENTRY	EGITR2 
	ENTRY	EHISYS 
	ENTRY	EZIBUF 
************************************************************************
* 
* INITIALISE AN OPERATOR RECORD IN UWB UOP
**
************************************************************************
EAIOPR	PROC				
EA000					
	MOVE	ODUMMY,=X'FF' 
	MOVE	OCPASS,=C' '			
	MOVE	OCNAME,=C' '			
	MOVE	ODSTATUS,=D'0'			
	MOVE	ODTRMNR,=X'FF'			 
	MOVE	ODOPRLGG,YDSYSLGG 
	MOVE	WW2,=W'0'			
EA100					
	ADD	WW2,=W'1'			
	MOVE	ODCASH(KW1,WW2),=D'0'			
	CBL 	WW2,=W'5',EA100			
	PERF	EBZACC
EA999					
	RET				
	PEND				
************************************************************************
* 
* SET THE OPERATOR ACCUMULATORS TO ZERO 
* 
************************************************************************
EBZACC	PROC				
EB000					
	MOVE	WW1,=W'1'			
EB100 
	MOVE	WW2,=W'0'			
	ADD	WW1,=W'1'	NEXT ROW		
EB200					
	ADD	WW2,=W'1'	NEXT COLUMN		
	MOVE	ODCASH(WW1,WW2),=D'0'			
	CBL	WW2,=W'5',EB200			
	CBL	WW1,=W'3',EB100			
EB999					
	RET				
	PEND				
************************************************************************
* 
* INITIALISE A CURRENCY RECORD IN UWB UCY 
* 
***********************************************************************
ECICCY	PROC 
EC000					
	MOVE	CDUMMY,=X'FF' 
	MOVE	CCCCYNME,=C' '			
	MOVE	CCCCYCDE,=C' '			
	MOVE 	CDBUY1,=X'0F'			 
	MOVE 	CDBUY2,=D'0'			
	MOVE 	CDSEL1,=X'0F'			 
	MOVE 	CDSEL2,=D'0'			
	MOVE	CDLIMIT,=D'0'			
	MOVE	CDRELAT,=D'1'			
	PEND				
************************************************************************
**
* INITIALISE AN ACCOUNT RECORD IN UWB UA1 
**
************************************************************************
EDIAC1	PROC				 
ED000					
	MOVE	ADCARDNR,=X'FF' 
	MOVE	ACNAME,=C' '			
	MOVE 	ACADDRES,=C' '			
	MOVE	ACTOWN,=C' '			
	MOVE	ACPASS,=C' '			
	MOVE 	ADSTATUS,=D'0'			
	MOVE	ADBAL,=D'0'			
	MOVE	ADLIMBOK,=D'0'			
	MOVE   	ADLASTRS,=D'8'			
	MOVE	ADSTMTRS,=D'8'			
	MOVE	ADLNENR,=D'0'			
	MOVE	ADDEPCUM,=D'0'			
	MOVE	ADWDRCUM,=D'0'			
	MOVE	ADLASSEQ,=D'0'			
	RET
	PEND				
************************************************************************
**
* INITIALISE AN ACCOUNT RECORD IN UWB UA2 
**
************************************************************************
EFIAC2	PROC				 
EF000 
	MOVE	BDCARDNR,=X'FF' 
	MOVE	BCNAME,=C' '			
	MOVE 	BCADDRES,=C' '			
	MOVE	BCTOWN,=C' '			
	MOVE	BCPASS,=C' '			
	MOVE 	BDSTATUS,=D'0'			
	MOVE	BDBAL,=D'0'			
	MOVE	BDLIMBOK,=D'0'			
	MOVE   	BDLASTRS,=D'8'			
	MOVE	BDSTMTRS,=D'8'			
	MOVE	BDLNENR,=D'0'			
	MOVE	BDDEPCUM,=D'0'			
	MOVE	BDWDRCUM,=D'0'			
	MOVE	BDLASSEQ,=D'0'			
	RET
	PEND				
************************************************************************
**
* INITIALISE A TRANSACTION RECORD IN UWB UT1
**
************************************************************************
EEITR1	PROC				 
EE000 
	MOVE	TDUMMY,=X'FF' 
	MOVE	TDTRSCDE,=D'0'			
	MOVE	TDDATE,NDDATE 
	MOVE	TDTRMNR,NDTRMNR 
	MOVE	TDOPRNR,RDOPRNR 
	MOVE	TDTRSSEQ,=D'0'			
	MOVE	TDAMOUNT,=D'0'			
	MOVE	TDNEWBAL,=D'0'			
	MOVE	TDACTFRM,=D'0'			
	MOVE 	TDCHQNR,=D'0'			
	MOVE	TCTEXT,=C' '			
	RET
	PEND				
************************************************************************
**
* INITIALISE A TRANSACTION RECORD IN UWB UT2
**
************************************************************************
EGITR2	PROC				 
EG000 
	MOVE	UDUMMY,=X'FF' 
	MOVE	UDTRSCDE,=D'0'			
	MOVE	UDDATE,NDDATE 
	MOVE	UDTRMNR,NDTRMNR 
	MOVE	UDOPRNR,RDOPRNR 
	MOVE	UDTRSSEQ,=D'0'			
	MOVE	UDAMOUNT,=D'0'			
	MOVE	UDNEWBAL,=D'0'			
	MOVE	UDACTFRM,=D'0'			
	MOVE 	UDCHQNR,=D'0'			
	MOVE	UCTEXT,=C' '			
	RET
	PEND				
************************************************************************
**
* INITIALISE THE ACCOUNT AND TRANSACTION RECORDS IN THE UWB'S 
**
************************************************************************
EZIBUF	PROC				
	PERF	EDIAC1
	PERF	EFIAC2
	PERF	EEITR1
	PERF	EGITR2
	RET
	PEND				
************************************************************************
* 
* INITIALISE THE SYSTEM RECORD
* 
************************************************************************
EHISYS	PROC 
EH000 
	MOVE	YDUMMY,=X'FF' 
	MOVE	YCTEXT,=C' '
	MOVE	YDLASSAV,=D'167999' 
	MOVE	YDLASCHQ,=D'167998' 
	MOVE	YDLASSEQ,=D'0'
	MOVE	YDSTATUS,=D'1'
EH999 
	RET
	PEND 
************************************************************************
	END

Full view