|
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: 7720 (0x1e28)
Notes: pts_type(SC)
Names: »BASPCT.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/BASPCT.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/BASPCT.SC«
IDENT BASPCT TERMINAL SPECIFICATION
DDUM DEMODD
PDIV
EXPROC CASTTS
EXPROC CBSTTS
EXPROC XBFMT
EXPROC ZBCLSD
EXPROC ZKOPNF
EXPROC ZAOPND
EXPROC ZLCLSF
ENTRY BASPCT
ENTRY SPAP15
ENTRY SPAP31
*********************************************************************
*
* TERMINAL SPECIFICATION
*
************************************************************************
BASPCT PROC
*
* KEY 2 IS ON
* RDSTATUS = 0 AND YDSTATUS = 0 OR 2
*
BA000
TBF SBFT80,BA010 NO COMPACT TERMINAL
CBNE YDSTATUS,=D'2',BA000 SYSTEM NOT STARTED
MOVE SPLSTLNE,=D'2'
MOVE RDSCRLNS,=D'1'
MOVE RDALFKB,=D'0'
MOVE RDPRTTYP,=D'1'
MOVE RDBCR,=D'1'
B BA200
BA010
* *
* INITIALISE SCREEN PARAMETERS*
* *