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

⟦d1e9f3ec7⟧ 

    Length: 2458 (0x99a)
    Notes: pts_type(UF)
    Names: »UPDFUA.UF«

Derivation

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

PTS(SC)

LED C:FUA,/S,!! 
!!DL 1
			UPDATE #4 78.03.07 JES 
!!DL 34 
*	K:PRTT	78.03.07 
!!IL 90 
* 
	EXTRN	K:ST2
	EXTRN	K:LD2
!!IL 93 
	EXTRN	K:ID	C:SET 
!!DL 100
!!DL 400,405
!!IL 406
DATINC	EQU	1	IF 1 AUTOMATIC INCREMENTATION OF DATE
			ONLY FOR TOSS RELEASE 8.1 OR GREATER 
!!IL 718
	IFT	DATINC=1 
	LDR	A7,A7	MIDNIGHT CARRY ? 
	RF(Z)	POP110	NO
	CF	A14,K:ID	INCREMENT DATE 
POP110	EQU	*
	XIF
!!IL 726
	LDR	A1,A13	GET TCA 
	ADK	A1,TCAWBT
	LDR*	A2,A1 
	LDR*	A1,A1	GET TC A-Z
	LDR*	A1,A1 
	ANK	A1,/FF 
	CF	A14,K:ST2 
	LDR	A2,A2
	RF(Z)	POP30
	CWK	A1,/49 
	RF(P)	POP15	TWO DIG.IN DEC,
	SUK	A1,/10 
	ORKL	A1,/3000
	RF	POP20 
POP15	EQU	* 
	SUK	A1,/1A 
	ORKL	A1,/3100
POP20	EQU	* 
	STR	A1,A2	STORE CONVERTED ADR. IN TCA
POP30	EQU	* 
!!IL 729
	CF	A14,K:LD2	GET A1,A2 
	LDR	A2,A2
	RF(Z)	POP55
	STR	A1,A2	RESTORE A-Z
POP55	EQU	* 
!!IL 762
*		K:ID IN C:SET
!!IL 788
	IFT	DATINC=1 
	LDR	A7,A7	MIDNIGTH CARRY?
	RF(Z)	PRT01	NO 
	CF	A14,K:ID	INCREMENT DATE 
PRT01	EQU	* 
	XIF
!!IL 800
	LDR	A1,A13	GET TCA 
	ADK	A1,TCAWBT	TCAWBT WORK BLOCK
	LDR*	A2,A1 
	LDR*	A1,A1	GET TC A-Z
	LDR*	A1,A1 
	ANK	A1,/FF 
	CF	A14,K:ST2 
	LDR	A2,A2	POINTER TO TCWB PRESENT ?
	RF(Z)	PRT30	NO 
	CWK	A1,/49 
	RF(P)	PRT15	TWO DIG.IN DEC 
	SUK	A1,/10 
	ORKL	A1,/3000
	RF	PRT20 
PRT15	EQU	* 
	SUK	A1,/1A 
	ORKL	A1,/3100
PRT20	EQU	* 
	STR	A1,A2	STORE CON.ADR.IN TCA 
PRT30	EQU	* 
!!IL 803
	CF	A14,K:LD2	GET A1,A2 
	LDR	A2,A2	POINTER TO TCWB PRESENT ?
	RF(Z)	PRT55	NO 
	STR	A1,A2
PRT55	EQU	* 
!!IL 827
	ADK	A7,3	AID,CU,CU 
!!IL 829
	LDKL	A8,/2020	CU,CUADR.
	ST	A8,0,A7 
	LDKL	A8,/00A7	AID
	SC	A8,-1,A7
	LDKL	A8,K:S0E
	SUK	A7,3	UPD.BUF.ADR.
!!IL 835
* 
*	DELAY TRUNK LINE MESSAGE
* 
	LDKL	A8,/20	3.2 SEC.DELAY
	LKM
	DATA	6 
!!EN
ASM /S
KPF /S
ASG /E0,DK,UPDFUC

Full view