|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 7886 (0x1ece)
Notes: pts_type(SC)
Names: »CFCHKH.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/CFCHKH.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/CFCHKH.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
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
*
CF350
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
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