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

⟦273c38d77⟧ 

    Length: 990 (0x3de)
    Notes: pts_type(UF)
    Names: »EVDU.UF«

Derivation

└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
    └─⟦this⟧ »KJELL/EVDU.UF«

PTS(SC)

LED XVDU
!!RE 0,$$05-17$$07-07$$ 
!!IL 2
			=37 DUP OR FM CHAR ON PRINTER
			=21 LOOP WHEN VDU NOT OPERABLE 
			82-05-17 
!!IL 83 
	ENTRY	RFMDUP	REPLACE FM OR DUP CHAR	=37
!!IL 318
	LD	A2,ECBCW,A8	SAVE CURSOR POS	=21 
!!IL 321
	LD	A1,ECBRC,A8	.	=21 
	ANK	A1,1	NOT OPERABLE?	=21 
	RF(Z)	DISL20	VDU OPERABLE	=21
	ST	A2,ECBCW,A8	NOT OP. REST CURSOR POS	=21 
	RF	DISL90	TERMINATE VDU LINE	=21 
DISL20	EQU	*	.	=21
!!EN
KPF /S
ASG /E0,TY10

Full view