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

⟦9233e91a0⟧ 

    Length: 2116 (0x844)
    Notes: pts_type(UF)
    Names: »UPDNSU.UF«

Derivation

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

PTS(SC)

LED C:NSU,/S,!! 
!!IL 46 
	ENTRY	K:CON	CONVERT 1-15 TO A-Z
!!IL 71 
	EXTRN	K:F370 
!!IL 79 
	EXTRN	K:ST10 
	EXTRN	K:LD10 
!!IL 962
	EJECT
K:CON	EQU	* 
	CF	A14,K:ST10	SAVE 10 REG. 
	LDKL	A8,K:KBE	GET ECB KEYBOARD 
	LD	A1,K:EBA,A8	GET BUF.ADR.
	LD	A9,INPBL,A1	GET LENGTH
	LDR	A7,A9
	ADR	A9,A1
	SUKL	A9,1
	ADK	A1,4	CHECK LL
	LDR	A5,A1
	LCR	A1,A1	GET CHAR 
	ANK	A1,/FF 
	CWK	A1,/2C	COMMA ? 
	RF(Z)	TC005	YES
	ADK	A5,1 
TC005	EQU	* 
	ADK	A5,1 
	LDR	A4,A5	A4 STORE POINTER 
TC001	EQU	* 
	LDR	A1,A5	CONVERT XX TO A-O
	LCR	A1,A1
	ANK	A1,/FF 
	LDR	A6,A5
	ADK	A6,1 
	CWR	A6,A9	END BUFFER ? 
	RF(P)	TC002	YES,AND ONE DIG. 
	LCR	A6,A6	SEC.DIG. 
	ANK	A6,/FF 
	CWK	A6,/2C	ONE DIG.? 
	RF(Z)	TC002	YES
	CWK	A6,/12	END BUFFER
	RF(Z)	TC002	YES,AND ONE DIG. 
	SUK	A1,/30	ONE DIG ? 
	RF(Z)	TC002	YES
	SUK	A1,1	CHECK VALIDITY OF TWO DIG.EXPR. 
	RF(P)	NOVAL
	SUK	A6,/35 
	RF(P)	NOVAL
	ADK	A6,/35 
	ADK	A6,/1A 
	SC	A6,0,A4 
	LDK	A6,/2C 
	SC	A6,1,A4 
	ADK	A5,1 
	SUK	 A7,1
	CWR	A5,A9	END OF BUFFER
	RF(Z)	TCEN1
	ADK	A5,2 
	ADK	A4,2 
	RB	TC001 
TC002	EQU	* 
	SUK	A1,/30	TEST IF ZERO
	RF(Z)	NOVAL
	ADK	A1,/40 
	SC	A1,0,A4 
	LDK	A1,/2C	STORE COMMA 
	SC	A1,1,A4 
	CWR	A5,A9
	RF(Z)	TCEN1
	ADK	A5,2 
	ADK	A4,2 
	RB	TC001 
NOVAL	EQU	* 
	CF	A14,K:PRTN
	DATA	K:F370
	CF	A14,K:LD10
	ADKL	A14,4 
	LDK	A1,1 
	RF	TCEN
TCEN1	EQU	* 
	LD	A8,K:EBA,A8	GET BUFFER ADR. 
	ST	A7,INPBL,A8	ST.NEW LENGTH 
	CF	A14,K:LD10	RESTORE REG. 
	ADKL	A14,4 
	SUR	A1,A1
TCEN	EQU	*
	ABR*	A14 
!!EN
ASM /S
KPF /S
ASG /E0,DK,UPDONW

Full view