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

HexDump

0x000…018 (0, 0, 400) Head {h00=0x0014, h01=0x0050, text=»LED C:SUB,/S,!! «, t00=0x0000, t01=0x0004}
0x018…026             Head {h00=0x000a, h01=0x0050, text=»!!DL 1«, t00=0x0000, t01=0x001c}
0x026…048             Head {h00=0x001e, h01=0x0050, text=»   UPDATE #2 78.03.07 JES «, t00=0x0000, t01=0x002a}
0x048…06c             Head {h00=0x0020, h01=0x0050, text=»!!RE 25,$$760212$$78.03.07$$«, t00=0x0000, t01=0x004c}
0x06c…07c             Head {h00=0x000c, h01=0x0050, text=»!!IL 72 «, t00=0x0000, t01=0x0070}
0x07c…096             Head {h00=0x0016, h01=0x0050, text=» EXTRN K:ID C:SET «, t00=0x0000, t01=0x0080}
0x096…0a6             Head {h00=0x000c, h01=0x0050, text=»!!DL 77 «, t00=0x0000, t01=0x009a}
0x0a6…0ba             Head {h00=0x0010, h01=0x0050, text=»!!DL 400,414«, t00=0x0000, t01=0x00aa}
0x0ba…0ca             Head {h00=0x000c, h01=0x0050, text=»!!IL 415«, t00=0x0000, t01=0x00be}
0x0ca…104             Head {h00=0x0036, h01=0x0050, text=»DATINC EQU 1 IF 1 AUTOMATIC INCREMENTATION OF DATE«, t00=0x0000, t01=0x00ce}
0x104…134             Head {h00=0x002c, h01=0x0050, text=»   ONLY FOR TOSS RELEASE 8.1 OR GREATER «, t00=0x0000, t01=0x0108}
0x134…144             Head {h00=0x000c, h01=0x0050, text=»!!IL 989«, t00=0x0000, t01=0x0138}
0x144…15a             Head {h00=0x0012, h01=0x0050, text=»*  K:ST8,K:LD8«, t00=0x0000, t01=0x0148}
0x15a…172             Head {h00=0x0014, h01=0x0050, text=»*  K:ID IN C:SET«, t00=0x0000, t01=0x015e}
0x172…182             Head {h00=0x000c, h01=0x0050, text=»!!DL 995«, t00=0x0000, t01=0x0176}
0x182…1a0             Head {h00=0x001a, h01=0x0050, text=»*  CHANGED REGS: NONE «, t00=0x0000, t01=0x0186}
0x1a0…1ba             Head {h00=0x0016, h01=0x0050, text=»!!RE 997,$$6$$14$$«, t00=0x0001, t01=0x0014}
0x1ba…1d0             Head {h00=0x0012, h01=0x0050, text=»!!DL 1014,1015«, t00=0x0001, t01=0x002e}
0x1d0…1f0             Head {h00=0x001c, h01=0x0050, text=» CF A14,K:ST8 SAVE A1-A8«, t00=0x0001, t01=0x0044}
0x1f0…202             Head {h00=0x000e, h01=0x0050, text=»!!IL 1021 «, t00=0x0001, t01=0x0064}
0x202…218             Head {h00=0x0012, h01=0x0050, text=» IFT DATINC=1 «, t00=0x0001, t01=0x0076}
0x218…23a             Head {h00=0x001e, h01=0x0050, text=» LDR A7,A7 MIDNIGTH CARRY?«, t00=0x0001, t01=0x008c}
0x23a…252             Head {h00=0x0014, h01=0x0050, text=» RF(Z) TIME10 NO«, t00=0x0001, t01=0x00ae}
0x252…276             Head {h00=0x0020, h01=0x0050, text=» CF A14,K:ID INCREMENT DATE «, t00=0x0001, t01=0x00c6}
0x276…28a             Head {h00=0x0010, h01=0x0050, text=»TIME10 EQU *«, t00=0x0001, t01=0x00ea}
0x28a…296             Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0001, t01=0x00fe}
0x296…2ba             Head {h00=0x0020, h01=0x0050, text=» CF A14,K:LD8 RESTORE A1-A8 «, t00=0x0001, t01=0x010a}
0x2ba…2ca             Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0001, t01=0x012e}
0x2ca…2e0             Head {h00=0x0012, h01=0x0050, text=»!!DL 1022,1024«, t00=0x0001, t01=0x013e}
0x2e0…2ec             Head {h00=0x0008, h01=0x0050, text=»!!EN«, t00=0x0001, t01=0x0154}
0x2ec…2fa             Head {h00=0x000a, h01=0x0050, text=»ASM /S«, t00=0x0001, t01=0x0160}
0x2fa…308             Head {h00=0x000a, h01=0x0050, text=»KPF /S«, t00=0x0001, t01=0x016e}
0x308…322             Head {h00=0x0016, h01=0x0050, text=»ASG /E0,DK,UPDOPC «, t00=0x0001, t01=0x017c}
0x322…32a (3, 1, 8)   20 04 00 00 00 03 00 04                                                                                                                                                                                                                           ┆        ┆

Reduced view