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

⟦9b300b413⟧ 

    Length: 4328 (0x10e8)
    Notes: pts_type(SC)
    Names: »AADEMO.SC«

Derivation

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

PTS(SC)

         IDENT    AADEMO                MAIN MODULE 
	DDUM	DEMODD
 PDIV 
 EXPROC BASPCT
 EXPROC BCSTTO
 EXPROC BESELF
	EXPROC	CGCSYS
 EXPROC XAKBIN
	EXPROC	PAJRN 
 EXPROC QCGUWB
 EXPROC QDFUWB
	EXPROC	ZBCLSD
	EXPROC	ZLCLSF
	EXPROC	ZHWRID
	EXPROC	ZGREA 
	ENTRY	AAMAIN 
************************************************************************
* 
* COMMON ENTRY POINT
* 
************************************************************************
AAMAIN
AA000 
	EDWRT	SPDSSCRN,FMTSTT
 PERF XAKBIN,=W'0'
	TBT	SBFT80,AA060	COMPACT TERMINAL
	TBF	SBKEY2,AA000	RECOGNIZE 34-TYPE KEYBOARD
	B	AA060	CONTINUE 
* 
* WAITING ROOM
* 
AA050 
	CLEAR	SBCANCEL 
	PERF	ZGREA 
	EDWRT	SPDSSCRN,FMTSTT
 PERF XAKBIN,=W'0'
	B	AA060
AA060 
	CBE	YDSTATUS,=D'1',AA050	SYSTEM START/CLOSE PROGR. 
	CBE	YDSTATUS,=D'3',AA999	SYSTEM CLOSED 
	TBT	SBFT80,AA100 
	CBE	SPBINW2,KWEND,AA600	SYSTEM CLOSE 
 CBNE SPBINW2,KWSTART,AA050	WAIT FOR THE START-KEY
* 
* YDSTATUS = 0 OR 2 AND 
*    START  HAS BEEN PRESSED
* 
AA100 
 PERF QCGUWB	GET UWB'S
 CBE NWUWBNR,KW0,AA050	NO FREE USER WORK BLOCKS 
* 
* START HAS BEEN DEPRESSED
* 
 CBNE RDSTATUS,=D'0',AA300	TERMINAL ALREADY SPECIFIED 
* 
* TERMINAL SPECIFICATION
*   AND SYSTEM START IF THIS IS THE FIRST TERMINAL
* RDSTATUS = 0
* YDSTATUS = 0,2
* 
AA200 
	TBT	SBFT80,AA250 
 TBF SBKEY2,AA900	KEY2 SHOULD BE ON 
AA250 
 PERF BASPCT	SPECIFY TERMINAL 
 B AA900	WAIT FOR START OF DEMO 
* 
* START DEMONSTRATION 
* 
AA300 
* 
* OPERATOR START AND TERMINAL START 
* RDSTATUS = 1
* YDSTATUS = 2
* 
 PERF BCSTTO
 CBNE RDSTATUS,=D'3',AA900	OPERATOR START UNSUCCESFULL
AA400 
* 
* SELECT FUNCTION 
* RDSTATUS = 3
* YDSTATUS = 2
* ODSTATUS = 2
* 
AA500 
 PERF BESELF
	B	AA900
* 
* CLOSE SYSTEM
* 
AA600 
	CBNE	YDSTATUS,=D'2',AA050	SYSTEM NOT STARTED YET 
	TBF	SBKEY2,AA050	KEY 2 MUST BE ON
* 
* YDSTATUS = 2
* KEY 2 IS ON 
* NO UWB'S ARE IN USE 
* 
	PERF	CGCSYS	CLOSE SYSTEM 
	CBE	YDSTATUS,=D'3',AA999	CLOSE SUCCEEDED 
	B	AA050	UWB'S ARE RELEASED ALREADY 
AA900 
 PERF QDFUWB	FREE UWB'S 
 B AA050
AA999 
	EDWRT	SPDSSCRN,FMTEND
 EXIT 
* 
* 
FMTSTT	FRMT 
	FCOPY	=X'2031'	ERASE SCREEN
	FTEXT	'DEMO PTS 6800 ' 
	FTEXT	'12NC=870155040100 ' 
	FTEXT	':'
	FMEND
* 
* 
FMTEND	FRMT 
	FCOPY	=X'2031'	ERASE SCREEN
	FTEXT	'*'
	FMEND
* 
* 
 END

Full view