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

⟦3afa8baca⟧ 

    Length: 10970 (0x2ada)
    Notes: pts_type(SC)
    Names: »CFCHKH.SC«

Derivation

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

PTS(SC)

         IDENT    CFCHKH                CHECK AVAILABLE HARDWARE
	DDUM	DEMODD
	PDIV 
	EXPROC	XEERR 
	ENTRY	CFCHKH 
************************************************************************
**
* CHECKS ON HARDWARE AVAILABILITY AND KEYHOLE SETTING 
**
************************************************************************
CFCHKH	PROC 
CF000 
************************************************************************
**
* CHECKS ON HARDWARE AVAILABILITY*
**
************************************************************************
**
* FOR EOI, DEMONSTRATION EQUIPMENT MUST BE AVAILABLE*
**
CF300					
	CBNE	NWKTBIX,=W'1',CF320	NOT 'EOI'		 
CF310					
	CBE 	FCFIELD,=C'6371',CF312			
	CBE 	FCFIELD,=C'6344',CF314			
	CBE	FCFIELD,=C'6346',CF314 
	B	CF970
CF312					
	CBE	RDPRTTYP,=D'3',CF320	TP71 WITH ZEKOSA
	CBNE	RDPRTTYP,=D'0',CF990	NO TP71 AVAILABLE		
	B	CF320	NEXT CHECK		
CF314					
	CBL	RDSCRLNS,=D'19',CF990	 NO VDU AVAILABLE		
************************************************************************
**
* FOR LIST, A VIDEO SCREEN MUST BE AVAILABLE*
**
CF320					
	CBNE	NWKTBIX,=W'2',CF330	NOT 'LIST'		 
	CBL	RDSCRLNS,=D'19',CF990	 NO VDU AVAILABLE		
************************************************************************
**
* FOR OPEN, AN ALPHANUMERIC KEYBOARD MUST BE AVAILABLE*
**
CF330					
	CBNE	NWKTBIX,=W'3',CF350	NOT 'OPEN'		 
	CBE	RDALFKB,=D'0',CF990	NO ALPHA KEYBOARD
************************************************************************
* 
* IF 'CARD', A BADGE CARD READER MUST BE AVAILABLE
* IF 'ZEKOSA', A TP71-ZEKOSA MUST BE PRESENT
* 
CF350 
	TBF	SBZEK,CF355
* TEMP. CHANGE !!!!!!!!!!!!!!!
	B	CF355
	CBNE	RDPRTTYP,=D'3',CF990	ERROR IF NO TP71-ZEK 
CF355 
	TBF	SBCARD,CF360	NOT 'CARD'
	CBE	RDBCR,=D'0',CF990	NO BCR 
* IF CARD AND 'OPEN' MSU MUST BE AVAILABLE
	CBNE	NWKTBIX,KW3,CF360	NOT 'OPEN'
	CBE	RDBCR,=D'1',CF990
* 
* IF 'CHEQUE' AND 'OUT',
*    AN OPTICAL DOCUMENT READER MUST BE AVAILABLE 
* 
CF360 
	CBNE	NWKTBIX,=W'10',CF380	NOT 'OUT'
	TBF	SBCHEQUE,CF380	NOT 'CHEQUE', NEXT CHECK
	CBE	RDODR,=D'0',CF990	NO ODR 
************************************************************************
**
* FOR 'IN', 'OUT' AND 'TRANSFER',*
*      A TELLER PRINTER MUST BE AVAILABLE*
*      OR KEY 2 MUST BE ON*
**
CF380 
	CBL	NWKTBIX,=W'9',CF400			 
	CBG	NWKTBIX,=W'11',CF400			 
	CBL	RDPRTTYP,=D'2',CF400	TELLER PRINTER
	CBE	RDPRTTYP,=D'3',CF400 
	TBT	SBFT80,CF410	FINANCIAL TERMINAL
	TBF	SBKEY2,CF980	KEY 2 MUST BE ON
CF400 
************************************************************************
**
* CHECK KEYHOLE SETTING*
**
************************************************************************
* FOR BLOCK*
CF410					
	CBNE	NWKTBIX,=W'5',CF420	NOT 'BLOCK'		
	TBF	SBKEY2,CF980	KEY 2 MUST BE ON		
**
* FOR UPDATE*
**
CF420					
	CBNE	NWKTBIX,=W'6',CF430	NOT 'UPDATE'		
	CBE	SWCCY,=W'0',CF430	CURRENCY IS OFF		
	TBF	SBKEY2,CF980	KEY 2 MUST BE ON		
**
* FOR IN AND OUT*
**
CF430					
	CBNE	NWKTBIX,=W'9',CF999	NOT 'IN'		
	CBNE	NWKTBIX,=W'10',CF999	NOT 'OUT'		
	CBE	SWCCY,=W'0',CF999	CURRENCY IS OFF		
	TBT	SBFLDEMP,CF999	FIELD EMPTY		
**
* CURRENCY IS ON AND FIELD IS NOT EMPTY*
**
	TBT	SBFT80,CF999	FINANCIAL TERMINAL
	TBF	SBKEY2,CF980	KEY 2 MUST BE ON		
	B	CF999
************************************************************************
* 
* DISPLAY ERROR: UNSERVICABLE REQUEST 
* 
************************************************************************
CF970 
	PERF	XEERR,=W'10',KW1
	B	CF999
************************************************************************
* 
* DISPLAY ERROR: MASTER KEYSETTING REQUIRED 
* 
************************************************************************
CF980 
	PERF	XEERR,=W'31',KW1
	B	CF999
************************************************************************
* 
* DISPLAY ERROR: REQUIRED DEVICE TYPE NOT SPECIFIED 
* 
************************************************************************
CF990 
	PERF	XEERR,=W'33',KW1
CF999 
	RET
	PEND 
************************************************************************
	END

Full view