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

⟦713821acf⟧ 

    Length: 1344 (0x540)
    Notes: pts_type(UF)
    Names: »UPDOPC.UF«

Derivation

└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
    └─⟦this⟧ »BDKAPP/UPDOPC.UF«

PTS(SC)

LED C:OPC,/S,!! 
!!IL 58 
	EXTRN	K:KBB
!!IL 114
	EXTRN	K:ST10 
	EXTRN	K:LD10 
!!RE 669,$$RF(Z)$$RF$$
!!IL 674
	ADK	A2,3	AID,CU,CU 
!!IL 676
	LDKL	A8,/2020	CU,CU
	ST	A8,0,A2 
	LDKL	A8,/00A7	AID
	SC	A8,-1,A2
	LDKL	A8,K:S0E
	SUK	A2,3 
!!IL 751
	ADK	A1,3 
!!DL 771
!!DL 778
	SUK	A1,3 
!!IL 783
* 
* 
*	MOVE MESS. TO KEY BOARD BUFF
* 
	CF	A14,K:ST10
	LDKL	A8,K:GPE	GET GPECB
	LD	A1,K:EBA,A8	GET BUF,IN GP-ECB 
	LD	A5,K:ERL,A8	GET LENGTH
	LDKL	A8,K:KBE	GET KEY BOARD ECB
	SUK	A5,5 
	ST	A5,K:EEL,A8	LENGTH TO KEY BOARD ECB 
	SUK	A5,1 
	LDKL	A3,K:KBB	GET BUFFER 
	ST	A5,INPBL,A3 
	ADK	A5,6 
	ADR	A5,A1
	ST	A3,K:EBA,A8 
	ADK	A1,6 
OCC060	EQU	*
	LCR	A2,A1
	SCR	A2,A3
	ADK	A1,1 
	ADK	A3,1 
	CWR	A1,A5
	RB(L)	OCC060 
	LDK	A2,/12	( 
	SCR	A2,A3	PUT LAST IN BUFFER 
	CF	A14,K:LD10
!!IL 800
	ECR	A2,A2
	ANKL	A2,/FF00
!!IL 807
	LDKL	A8,K:KBE		FOR K:GTC MODULE
	LD	A8,K:EBA,A8		FOR K:GTC MODULE 
!!EN
ASM /S
KPF /S
ASG /E0,DK,UPDTCA

Full view