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

HexDump

0x000…018 (0, 0, 400) Head {h00=0x0014, h01=0x0050, text=»LED C:FUA,/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 #4 78.03.07 JES «, t00=0x0000, t01=0x002a}
0x048…058             Head {h00=0x000c, h01=0x0050, text=»!!DL 34 «, t00=0x0000, t01=0x004c}
0x058…072             Head {h00=0x0016, h01=0x0050, text=»* K:PRTT 78.03.07 «, t00=0x0000, t01=0x005c}
0x072…082             Head {h00=0x000c, h01=0x0050, text=»!!IL 90 «, t00=0x0000, t01=0x0076}
0x082…08c             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0086}
0x08c…0a0             Head {h00=0x0010, h01=0x0050, text=» EXTRN K:ST2«, t00=0x0000, t01=0x0090}
0x0a0…0b4             Head {h00=0x0010, h01=0x0050, text=» EXTRN K:LD2«, t00=0x0000, t01=0x00a4}
0x0b4…0c4             Head {h00=0x000c, h01=0x0050, text=»!!IL 93 «, t00=0x0000, t01=0x00b8}
0x0c4…0de             Head {h00=0x0016, h01=0x0050, text=» EXTRN K:ID C:SET «, t00=0x0000, t01=0x00c8}
0x0de…0ee             Head {h00=0x000c, h01=0x0050, text=»!!DL 100«, t00=0x0000, t01=0x00e2}
0x0ee…102             Head {h00=0x0010, h01=0x0050, text=»!!DL 400,405«, t00=0x0000, t01=0x00f2}
0x102…112             Head {h00=0x000c, h01=0x0050, text=»!!IL 406«, t00=0x0000, t01=0x0106}
0x112…14c             Head {h00=0x0036, h01=0x0050, text=»DATINC EQU 1 IF 1 AUTOMATIC INCREMENTATION OF DATE«, t00=0x0000, t01=0x0116}
0x14c…17c             Head {h00=0x002c, h01=0x0050, text=»   ONLY FOR TOSS RELEASE 8.1 OR GREATER «, t00=0x0000, t01=0x0150}
0x17c…18c             Head {h00=0x000c, h01=0x0050, text=»!!IL 718«, t00=0x0000, t01=0x0180}
0x18c…1a2             Head {h00=0x0012, h01=0x0050, text=» IFT DATINC=1 «, t00=0x0000, t01=0x0190}
0x1a2…1c6             Head {h00=0x0020, h01=0x0050, text=» LDR A7,A7 MIDNIGHT CARRY ? «, t00=0x0001, t01=0x0016}
0x1c6…1de             Head {h00=0x0014, h01=0x0050, text=» RF(Z) POP110 NO«, t00=0x0001, t01=0x003a}
0x1de…202             Head {h00=0x0020, h01=0x0050, text=» CF A14,K:ID INCREMENT DATE «, t00=0x0001, t01=0x0052}
0x202…216             Head {h00=0x0010, h01=0x0050, text=»POP110 EQU *«, t00=0x0001, t01=0x0076}
0x216…222             Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0001, t01=0x008a}
0x222…232             Head {h00=0x000c, h01=0x0050, text=»!!IL 726«, t00=0x0001, t01=0x0096}
0x232…24e             Head {h00=0x0018, h01=0x0050, text=» LDR A1,A13 GET TCA «, t00=0x0001, t01=0x00a6}
0x24e…264             Head {h00=0x0012, h01=0x0050, text=» ADK A1,TCAWBT«, t00=0x0001, t01=0x00c2}
0x264…278             Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A1 «, t00=0x0001, t01=0x00d8}
0x278…296             Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A1 GET TC A-Z«, t00=0x0001, t01=0x00ec}
0x296…2aa             Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x0001, t01=0x010a}
0x2aa…2be             Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0001, t01=0x011e}
0x2be…2d4             Head {h00=0x0012, h01=0x0050, text=» CF A14,K:ST2 «, t00=0x0001, t01=0x0132}
0x2d4…2e6             Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0001, t01=0x0148}
0x2e6…2fa             Head {h00=0x0010, h01=0x0050, text=» RF(Z) POP30«, t00=0x0001, t01=0x015a}
0x2fa…30e             Head {h00=0x0010, h01=0x0050, text=» CWK A1,/49 «, t00=0x0001, t01=0x016e}
0x30e…332             Head {h00=0x0020, h01=0x0050, text=» RF(P) POP15 TWO DIG.IN DEC,«, t00=0x0001, t01=0x0182}
0x332…346             Head {h00=0x0010, h01=0x0050, text=» SUK A1,/10 «, t00=0x0002, t01=0x0016}
0x346…35c             Head {h00=0x0012, h01=0x0050, text=» ORKL A1,/3000«, t00=0x0002, t01=0x002a}
0x35c…36e             Head {h00=0x000e, h01=0x0050, text=» RF POP20 «, t00=0x0002, t01=0x0040}
0x36e…382             Head {h00=0x0010, h01=0x0050, text=»POP15 EQU * «, t00=0x0002, t01=0x0052}
0x382…396             Head {h00=0x0010, h01=0x0050, text=» SUK A1,/1A «, t00=0x0002, t01=0x0066}
0x396…3ac             Head {h00=0x0012, h01=0x0050, text=» ORKL A1,/3100«, t00=0x0002, t01=0x007a}
0x3ac…3c0             Head {h00=0x0010, h01=0x0050, text=»POP20 EQU * «, t00=0x0002, t01=0x0090}
0x3c0…3ee             Head {h00=0x002a, h01=0x0050, text=» STR A1,A2 STORE CONVERTED ADR. IN TCA«, t00=0x0002, t01=0x00a4}
0x3ee…402             Head {h00=0x0010, h01=0x0050, text=»POP30 EQU * «, t00=0x0002, t01=0x00d2}
0x402…412             Head {h00=0x000c, h01=0x0050, text=»!!IL 729«, t00=0x0002, t01=0x00e6}
0x412…432             Head {h00=0x001c, h01=0x0050, text=» CF A14,K:LD2 GET A1,A2 «, t00=0x0002, t01=0x00f6}
0x432…444             Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0002, t01=0x0116}
0x444…458             Head {h00=0x0010, h01=0x0050, text=» RF(Z) POP55«, t00=0x0002, t01=0x0128}
0x458…476             Head {h00=0x001a, h01=0x0050, text=» STR A1,A2 RESTORE A-Z«, t00=0x0002, t01=0x013c}
0x476…48a             Head {h00=0x0010, h01=0x0050, text=»POP55 EQU * «, t00=0x0002, t01=0x015a}
0x48a…49a             Head {h00=0x000c, h01=0x0050, text=»!!IL 762«, t00=0x0002, t01=0x016e}
0x49a…4b2             Head {h00=0x0014, h01=0x0050, text=»*  K:ID IN C:SET«, t00=0x0002, t01=0x017e}
0x4b2…4c2             Head {h00=0x000c, h01=0x0050, text=»!!IL 788«, t00=0x0003, t01=0x0008}
0x4c2…4d8             Head {h00=0x0012, h01=0x0050, text=» IFT DATINC=1 «, t00=0x0003, t01=0x0018}
0x4d8…4fa             Head {h00=0x001e, h01=0x0050, text=» LDR A7,A7 MIDNIGTH CARRY?«, t00=0x0003, t01=0x002e}
0x4fa…512             Head {h00=0x0014, h01=0x0050, text=» RF(Z) PRT01 NO «, t00=0x0003, t01=0x0050}
0x512…536             Head {h00=0x0020, h01=0x0050, text=» CF A14,K:ID INCREMENT DATE «, t00=0x0003, t01=0x0068}
0x536…54a             Head {h00=0x0010, h01=0x0050, text=»PRT01 EQU * «, t00=0x0003, t01=0x008c}
0x54a…556             Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0003, t01=0x00a0}
0x556…566             Head {h00=0x000c, h01=0x0050, text=»!!IL 800«, t00=0x0003, t01=0x00ac}
0x566…582             Head {h00=0x0018, h01=0x0050, text=» LDR A1,A13 GET TCA «, t00=0x0003, t01=0x00bc}
0x582…5aa             Head {h00=0x0024, h01=0x0050, text=» ADK A1,TCAWBT TCAWBT WORK BLOCK«, t00=0x0003, t01=0x00d8}
0x5aa…5be             Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A1 «, t00=0x0003, t01=0x0100}
0x5be…5dc             Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A1 GET TC A-Z«, t00=0x0003, t01=0x0114}
0x5dc…5f0             Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x0003, t01=0x0132}
0x5f0…604             Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0003, t01=0x0146}
0x604…61a             Head {h00=0x0012, h01=0x0050, text=» CF A14,K:ST2 «, t00=0x0003, t01=0x015a}
0x61a…646             Head {h00=0x0028, h01=0x0050, text=» LDR A2,A2 POINTER TO TCWB PRESENT ?«, t00=0x0003, t01=0x0170}
0x646…65e             Head {h00=0x0014, h01=0x0050, text=» RF(Z) PRT30 NO «, t00=0x0004, t01=0x000c}
0x65e…672             Head {h00=0x0010, h01=0x0050, text=» CWK A1,/49 «, t00=0x0004, t01=0x0024}
0x672…696             Head {h00=0x0020, h01=0x0050, text=» RF(P) PRT15 TWO DIG.IN DEC «, t00=0x0004, t01=0x0038}
0x696…6aa             Head {h00=0x0010, h01=0x0050, text=» SUK A1,/10 «, t00=0x0004, t01=0x005c}
0x6aa…6c0             Head {h00=0x0012, h01=0x0050, text=» ORKL A1,/3000«, t00=0x0004, t01=0x0070}
0x6c0…6d2             Head {h00=0x000e, h01=0x0050, text=» RF PRT20 «, t00=0x0004, t01=0x0086}
0x6d2…6e6             Head {h00=0x0010, h01=0x0050, text=»PRT15 EQU * «, t00=0x0004, t01=0x0098}
0x6e6…6fa             Head {h00=0x0010, h01=0x0050, text=» SUK A1,/1A «, t00=0x0004, t01=0x00ac}
0x6fa…710             Head {h00=0x0012, h01=0x0050, text=» ORKL A1,/3100«, t00=0x0004, t01=0x00c0}
0x710…724             Head {h00=0x0010, h01=0x0050, text=»PRT20 EQU * «, t00=0x0004, t01=0x00d6}
0x724…74c             Head {h00=0x0024, h01=0x0050, text=» STR A1,A2 STORE CON.ADR.IN TCA «, t00=0x0004, t01=0x00ea}
0x74c…760             Head {h00=0x0010, h01=0x0050, text=»PRT30 EQU * «, t00=0x0004, t01=0x0112}
0x760…770             Head {h00=0x000c, h01=0x0050, text=»!!IL 803«, t00=0x0004, t01=0x0126}
0x770…790             Head {h00=0x001c, h01=0x0050, text=» CF A14,K:LD2 GET A1,A2 «, t00=0x0004, t01=0x0136}
0x790…7bc             Head {h00=0x0028, h01=0x0050, text=» LDR A2,A2 POINTER TO TCWB PRESENT ?«, t00=0x0004, t01=0x0156}
0x7bc…7d4             Head {h00=0x0014, h01=0x0050, text=» RF(Z) PRT55 NO «, t00=0x0004, t01=0x0182}
0x7d4…7e6             Head {h00=0x000e, h01=0x0050, text=» STR A1,A2«, t00=0x0005, t01=0x000a}
0x7e6…7fa             Head {h00=0x0010, h01=0x0050, text=»PRT55 EQU * «, t00=0x0005, t01=0x001c}
0x7fa…80a             Head {h00=0x000c, h01=0x0050, text=»!!IL 827«, t00=0x0005, t01=0x0030}
0x80a…826             Head {h00=0x0018, h01=0x0050, text=» ADK A7,3 AID,CU,CU «, t00=0x0005, t01=0x0040}
0x826…836             Head {h00=0x000c, h01=0x0050, text=»!!IL 829«, t00=0x0005, t01=0x005c}
0x836…856             Head {h00=0x001c, h01=0x0050, text=» LDKL A8,/2020 CU,CUADR.«, t00=0x0005, t01=0x006c}
0x856…86a             Head {h00=0x0010, h01=0x0050, text=» ST A8,0,A7 «, t00=0x0005, t01=0x008c}
0x86a…884             Head {h00=0x0016, h01=0x0050, text=» LDKL A8,/00A7 AID«, t00=0x0005, t01=0x00a0}
0x884…898             Head {h00=0x0010, h01=0x0050, text=» SC A8,-1,A7«, t00=0x0005, t01=0x00ba}
0x898…8ae             Head {h00=0x0012, h01=0x0050, text=» LDKL A8,K:S0E«, t00=0x0005, t01=0x00ce}
0x8ae…8cc             Head {h00=0x001a, h01=0x0050, text=» SUK A7,3 UPD.BUF.ADR.«, t00=0x0005, t01=0x00e4}
0x8cc…8dc             Head {h00=0x000c, h01=0x0050, text=»!!IL 835«, t00=0x0005, t01=0x0102}
0x8dc…8e6             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0112}
0x8e6…908             Head {h00=0x001e, h01=0x0050, text=»* DELAY TRUNK LINE MESSAGE«, t00=0x0005, t01=0x011c}
0x908…912             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013e}
0x912…934             Head {h00=0x001e, h01=0x0050, text=» LDKL A8,/20 3.2 SEC.DELAY«, t00=0x0005, t01=0x0148}
0x934…940             Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0005, t01=0x016a}
0x940…950             Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0005, t01=0x0176}
0x950…95c             Head {h00=0x0008, h01=0x0050, text=»!!EN«, t00=0x0005, t01=0x0186}
0x95c…96a (6, 0, 54)  Head {h00=0x000a, h01=0x0050, text=»ASM /S«, t00=0x0006, t01=0x0004}
0x96a…978             Head {h00=0x000a, h01=0x0050, text=»KPF /S«, t00=0x0006, t01=0x0012}
0x978…992             Head {h00=0x0016, h01=0x0050, text=»ASG /E0,DK,UPDFUC «, t00=0x0006, t01=0x0020}
0x992…99a (7, 1, 8)   20 04 00 00 00 07 00 04                                                                                                                                                                                                                           ┆        ┆

Reduced view