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

⟦24a64dc2d⟧ 

    Length: 1822 (0x71e)
    Notes: pts_type(UF)
    Names: »UPDFIC.UF«

Derivation

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

PTS(SC)

LED C:FIC,/S,!! 
!!IL 476
	LDK	A3,/20	GET SPACE 
	SC	A3,K:F328,A4	STORE IN BUFFER
!!DL 480,482
	CWK	A3,/0049 
	RF(P)	PC215	TWO DIG. 
	SUK	A3,/10	ONE DIG.
	ORKL	A3,/3000
	RF	PC218 
PC215	EQU	* 
	SUK	A3,/1A 
	ORKL	A3,/3100
PC218	EQU	* 
	ECR	A3,A3	STORE IN BUFFER
	SC	A3,K:F328+1,A4
	ECR	A3,A3
	SC	A3,K:F328+2,A4
	ADK	A4,3 
!!IL 488
	LDR	A5,A4	TEST IF ODD ADR. 
	ANK	A5,1 
	RF(Z)	PC222	NO 
	LDK	A3,/20	YES 
	SC	A3,K:F328,A4
	ADK	A4,1 
PC222	EQU	* 
!!RE 566,$$1$$/20$$ 
!!IL 571
	CF	A14,C:RL		DK
	LD	A1,K:EBA,A8	RESTORE A1	DK 
!!RE 621,$$2$$/21$$ 
!!IL 625
	CF	A14,C:RL		DK
	LD A1,K:EBA,A8	RESTORE	DK
!!RE 633,$$3$$/22$$ 
!!IL 646
	CF	A14,C:RL		DK
	LD	A2,K:EBA,A8	RESTORE	DK
	LDR	A1,A2	RESTORE	DK 
!!DL 819
	ADK	A2,1		DK 
	LDKL	A5,':'		DK
	SCR	A5,A2		DK
	LDK	A2,/80		DK 
!!RE 824,$$1$$/20$$ 
!!DL 856,857
	LDKL	A2,':'		DK
	SCR	A2,A1		DK
	LDK	A1,/80		DK 
!!RE 859,$$2$$/21$$ 
!!IL 901
	LDKL	A3,':'		DK
	SCR	A3,A2		DK
	LDK	A3,/80		DK 
!!RE 906,$$3$$/22$$ 
!!IL 907
	ABL	CTEND		DK
!!IL 1036 
	EJECT
C:RL	EQU	*
* 
*        FIND RECORD LENGTH 
* 
	LDK	A3,0		DK 
	LDK	A2,0		DK 
C:RL05	EQU	*		DK
	LCR	A3,A1		DK
	CWK	A3,':'		DK 
	RF(E)	C:RL10 
	ADK	A2,1		DK 
	ADK	A1,1		DK 
	RB	C:RL05
C:RL10	EQU	*
	ST	A2,K:EEL,A8		DK 
	RTN	A14
!!EN
ASM /S
KPF /S
ASG /E0,DK,UPDFUA

Full view