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

⟦874945776⟧ 

    Length: 4656 (0x1230)
    Notes: pts_type(UF)
    Names: »UPDDCC.UF«

Derivation

└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
    └─⟦this⟧ »BDKAPP/UPDDCC.UF«

PTS(SC)

LED C:DCC,/S,## 
##CH $$K:S0E$$K:SZE$$ 
##DL 1
			UPDATE #3 77.11.25 
##IL 40 
	ENTRY	K:DCPL 
##DL 51 
##DL 55 
##IL 81 
* 
##IL 426
	IFF	ONLINE=0 
##IL 463
	EJECT		IDENT C:DCC 
* 
*   MASK PARITY BITS IF SLCU2 AND ASCII 
* 
************************* 
	LD	A3,K:EBA,A8	GET BUFFER ADDRESS
	LD	A2,K:EEL,A8	GET LENGTH
DCC255	LCR	A4,A3	GET CHARACTER
	ANK	A4,/7F	MASK PARITY 
	SCR	A4,A3	STORE
	ADK	A3,1 
	SUK	A2,1 
	RB(NZ)	DCC255
##IL 500
	IFF	ONLINE=0 
##IL 514
	XIF
##IL 517
	IFF	ONLINE=0 
##DL 573
##IL 577
	LD	A1,K:EBA,A8	GET BUFFER ADDRESS
##DL 583
##IL 587
	LD	A1,K:EBA,A8	GET BUFFER ADDRESS
##IL 593
	XIF
	EJECT		IDENT C:DCC 
******************************************************* 
* 
*	K : D C P L 
*   DCCC ACTIVATION ENTRY TO HALT/START POLLING 
*   OF TERMINAL LINES 
* 
*   A1 = 0. HALT POLLING
*      = 1. START POLLING 
* 
********************************************************
K:DCPL	EQU	*
	IFT	ONLINE=2 
	LDKL	A13,TCCC	TCA ADDRESS
	LD	A14,2,A13 
	ADR	A14,A13	STACK BASE 
	LDR	A1,A1
	RF(Z)	DCP100 
	CF	A14,K:POLL	START POLLING
	RF	DCP200
DCP100	EQU	*
	CF	A14,K:NPOL	HALT POLLING 
	XIF
DCP200	EQU	*
	LKM		EXIT
	DATA	3 
##DL 615,616
	SC	A6,PECB+1	SET LINE FILE CODE
	LDKL	A8,PECB 
##DL 622,623
##IL 624
* ECB FOR POLLING CONTROL 
PECB	DATA	0,0,0,0,0,0 
##EN
ASM /S
KPF /O
SCR /S
ASG /E0,TY10

Full view