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

⟦2a2ebd89c⟧ 

    Length: 810 (0x32a)
    Notes: pts_type(UF)
    Names: »UPDSUB.UF«

Derivation

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

PTS(SC)

LED C:SUB,/S,!! 
!!DL 1
			UPDATE #2 78.03.07 JES 
!!RE 25,$$760212$$78.03.07$$
!!IL 72 
	EXTRN	K:ID	C:SET 
!!DL 77 
!!DL 400,414
!!IL 415
DATINC	EQU	1	IF 1 AUTOMATIC INCREMENTATION OF DATE
			ONLY FOR TOSS RELEASE 8.1 OR GREATER 
!!IL 989
*		K:ST8,K:LD8
*		K:ID IN C:SET
!!DL 995
*  CHANGED REGS:	NONE 
!!RE 997,$$6$$14$$
!!DL 1014,1015
	CF	A14,K:ST8	SAVE A1-A8
!!IL 1021 
	IFT	DATINC=1 
	LDR	A7,A7	MIDNIGTH CARRY?
	RF(Z)	TIME10	NO
	CF	A14,K:ID	INCREMENT DATE 
TIME10	EQU	*
	XIF
	CF	A14,K:LD8	RESTORE A1-A8 
	RTN	A14
!!DL 1022,1024
!!EN
ASM /S
KPF /S
ASG /E0,DK,UPDOPC

Full view