|
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: 7866 (0x1eba)
Notes: pts_type(SC)
Names: »BASPCT.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/BASPCT.SC«
IDENT BASPCT TERMINAL SPECIFICATION
DDUM DEMODD
PDIV
EXPROC CASTTS
EXPROC CBSTTS
EXPROC XBFMT
EXPROC ZBCLSD
EXPROC ZKOPNF
EXPROC ZAOPND
EXPROC ZLCLSF
EXPROC TNDOPN
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'
PERF ZKOPNF OPEN FORMATFILE
TBT SBCANCEL,BA800
PERF ZAOPND OPEN DATABASE
TBT SBCANCEL,BA800
MOVE NDTRMLGG,YDSYSLGG INIT LANGUAGE
MOVE IDNR1,=D'6'
B BA200
BA010
* *
* INITIALISE SCREEN PARAMETERS*
* *