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

⟦24a64dc2d⟧

    Length: 1822 (0x71e)
    Notes: pts_type(UF)
    Names: »UPDFIC.UF«

Derivation

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

PTS(SC)

LED C:FIC,/S,!! 
!!IL 476
	LDK	A3,/20	GET SPACE 
	SC	A3,K:F328,A4	STORE IN BUFFER
!!DL 480,482
	CWK	A3,/0049 
	RF(P)	PC215	TWO DIG. 
	SUK	A3,/10	ONE DIG.
	ORKL	A3,/3000
	RF	PC218 
PC215	EQU	* 
	SUK	A3,/1A 
	ORKL	A3,/3100
PC218	EQU	* 
	ECR	A3,A3	STORE IN BUFFER
	SC	A3,K:F328+1,A4
	ECR	A3,A3
	SC	A3,K:F328+2,A4
	ADK	A4,3 
!!IL 488
	LDR	A5,A4	TEST IF ODD ADR. 
	ANK	A5,1 
	RF(Z)	PC222	NO 
	LDK	A3,/20	YES 
	SC	A3,K:F328,A4
	ADK	A4,1 
PC222	EQU	* 
!!RE 566,$$1$$/20$$ 
!!IL 571
	CF	A14,C:RL		DK
	LD	A1,K:EBA,A8	RESTORE A1	DK 
!!RE 621,$$2$$/21$$ 
!!IL 625
	CF	A14,C:RL		DK
	LD A1,K:EBA,A8	RESTORE	DK
!!RE 633,$$3$$/22$$ 
!!IL 646
	CF	A14,C:RL		DK
	LD	A2,K:EBA,A8	RESTORE	DK
	LDR	A1,A2	RESTORE	DK 
!!DL 819
	ADK	A2,1		DK 
	LDKL	A5,':'		DK
	SCR	A5,A2		DK
	LDK	A2,/80		DK 
!!RE 824,$$1$$/20$$ 
!!DL 856,857
	LDKL	A2,':'		DK
	SCR	A2,A1		DK
	LDK	A1,/80		DK 
!!RE 859,$$2$$/21$$ 
!!IL 901
	LDKL	A3,':'		DK
	SCR	A3,A2		DK
	LDK	A3,/80		DK 
!!RE 906,$$3$$/22$$ 
!!IL 907
	ABL	CTEND		DK
!!IL 1036 
	EJECT
C:RL	EQU	*
* 
*        FIND RECORD LENGTH 
* 
	LDK	A3,0		DK 
	LDK	A2,0		DK 
C:RL05	EQU	*		DK
	LCR	A3,A1		DK
	CWK	A3,':'		DK 
	RF(E)	C:RL10 
	ADK	A2,1		DK 
	ADK	A1,1		DK 
	RB	C:RL05
C:RL10	EQU	*
	ST	A2,K:EEL,A8		DK 
	RTN	A14
!!EN
ASM /S
KPF /S
ASG /E0,DK,UPDFUA 

HexDump

0x000…018 (0, 0, 400) Head {h00=0x0014, h01=0x0050, text=»LED C:FIC,/S,!! «, t00=0x0000, t01=0x0004}
0x018…028             Head {h00=0x000c, h01=0x0050, text=»!!IL 476«, t00=0x0000, t01=0x001c}
0x028…046             Head {h00=0x001a, h01=0x0050, text=» LDK A3,/20 GET SPACE «, t00=0x0000, t01=0x002c}
0x046…06e             Head {h00=0x0024, h01=0x0050, text=» SC A3,K:F328,A4 STORE IN BUFFER«, t00=0x0000, t01=0x004a}
0x06e…082             Head {h00=0x0010, h01=0x0050, text=»!!DL 480,482«, t00=0x0000, t01=0x0072}
0x082…098             Head {h00=0x0012, h01=0x0050, text=» CWK A3,/0049 «, t00=0x0000, t01=0x0086}
0x098…0b6             Head {h00=0x001a, h01=0x0050, text=» RF(P) PC215 TWO DIG. «, t00=0x0000, t01=0x009c}
0x0b6…0d2             Head {h00=0x0018, h01=0x0050, text=» SUK A3,/10 ONE DIG.«, t00=0x0000, t01=0x00ba}
0x0d2…0e8             Head {h00=0x0012, h01=0x0050, text=» ORKL A3,/3000«, t00=0x0000, t01=0x00d6}
0x0e8…0fa             Head {h00=0x000e, h01=0x0050, text=» RF PC218 «, t00=0x0000, t01=0x00ec}
0x0fa…10e             Head {h00=0x0010, h01=0x0050, text=»PC215 EQU * «, t00=0x0000, t01=0x00fe}
0x10e…122             Head {h00=0x0010, h01=0x0050, text=» SUK A3,/1A «, t00=0x0000, t01=0x0112}
0x122…138             Head {h00=0x0012, h01=0x0050, text=» ORKL A3,/3100«, t00=0x0000, t01=0x0126}
0x138…14c             Head {h00=0x0010, h01=0x0050, text=»PC218 EQU * «, t00=0x0000, t01=0x013c}
0x14c…16e             Head {h00=0x001e, h01=0x0050, text=» ECR A3,A3 STORE IN BUFFER«, t00=0x0000, t01=0x0150}
0x16e…188             Head {h00=0x0016, h01=0x0050, text=» SC A3,K:F328+1,A4«, t00=0x0000, t01=0x0172}
0x188…19a             Head {h00=0x000e, h01=0x0050, text=» ECR A3,A3«, t00=0x0000, t01=0x018c}
0x19a…1b4             Head {h00=0x0016, h01=0x0050, text=» SC A3,K:F328+2,A4«, t00=0x0001, t01=0x000e}
0x1b4…1c6             Head {h00=0x000e, h01=0x0050, text=» ADK A4,3 «, t00=0x0001, t01=0x0028}
0x1c6…1d6             Head {h00=0x000c, h01=0x0050, text=»!!IL 488«, t00=0x0001, t01=0x003a}
0x1d6…1fa             Head {h00=0x0020, h01=0x0050, text=» LDR A5,A4 TEST IF ODD ADR. «, t00=0x0001, t01=0x004a}
0x1fa…20c             Head {h00=0x000e, h01=0x0050, text=» ANK A5,1 «, t00=0x0001, t01=0x006e}
0x20c…224             Head {h00=0x0014, h01=0x0050, text=» RF(Z) PC222 NO «, t00=0x0001, t01=0x0080}
0x224…23c             Head {h00=0x0014, h01=0x0050, text=» LDK A3,/20 YES «, t00=0x0001, t01=0x0098}
0x23c…254             Head {h00=0x0014, h01=0x0050, text=» SC A3,K:F328,A4«, t00=0x0001, t01=0x00b0}
0x254…266             Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0001, t01=0x00c8}
0x266…27a             Head {h00=0x0010, h01=0x0050, text=»PC222 EQU * «, t00=0x0001, t01=0x00da}
0x27a…296             Head {h00=0x0018, h01=0x0050, text=»!!RE 566,$$1$$/20$$ «, t00=0x0001, t01=0x00ee}
0x296…2a6             Head {h00=0x000c, h01=0x0050, text=»!!IL 571«, t00=0x0001, t01=0x010a}
0x2a6…2be             Head {h00=0x0014, h01=0x0050, text=» CF A14,C:RL  DK«, t00=0x0001, t01=0x011a}
0x2be…2e4             Head {h00=0x0022, h01=0x0050, text=» LD A1,K:EBA,A8 RESTORE A1 DK «, t00=0x0001, t01=0x0132}
0x2e4…300             Head {h00=0x0018, h01=0x0050, text=»!!RE 621,$$2$$/21$$ «, t00=0x0001, t01=0x0158}
0x300…310             Head {h00=0x000c, h01=0x0050, text=»!!IL 625«, t00=0x0001, t01=0x0174}
0x310…328             Head {h00=0x0014, h01=0x0050, text=» CF A14,C:RL  DK«, t00=0x0001, t01=0x0184}
0x328…34a             Head {h00=0x001e, h01=0x0050, text=» LD A1,K:EBA,A8 RESTORE DK«, t00=0x0002, t01=0x000c}
0x34a…366             Head {h00=0x0018, h01=0x0050, text=»!!RE 633,$$3$$/22$$ «, t00=0x0002, t01=0x002e}
0x366…376             Head {h00=0x000c, h01=0x0050, text=»!!IL 646«, t00=0x0002, t01=0x004a}
0x376…38e             Head {h00=0x0014, h01=0x0050, text=» CF A14,C:RL  DK«, t00=0x0002, t01=0x005a}
0x38e…3b0             Head {h00=0x001e, h01=0x0050, text=» LD A2,K:EBA,A8 RESTORE DK«, t00=0x0002, t01=0x0072}
0x3b0…3ce             Head {h00=0x001a, h01=0x0050, text=» LDR A1,A2 RESTORE DK «, t00=0x0002, t01=0x0094}
0x3ce…3de             Head {h00=0x000c, h01=0x0050, text=»!!DL 819«, t00=0x0002, t01=0x00b2}
0x3de…3f4             Head {h00=0x0012, h01=0x0050, text=» ADK A2,1  DK «, t00=0x0002, t01=0x00c2}
0x3f4…40c             Head {h00=0x0014, h01=0x0050, text=» LDKL A5,':'  DK«, t00=0x0002, t01=0x00d8}
0x40c…422             Head {h00=0x0012, h01=0x0050, text=» SCR A5,A2  DK«, t00=0x0002, t01=0x00f0}
0x422…43a             Head {h00=0x0014, h01=0x0050, text=» LDK A2,/80  DK «, t00=0x0002, t01=0x0106}
0x43a…456             Head {h00=0x0018, h01=0x0050, text=»!!RE 824,$$1$$/20$$ «, t00=0x0002, t01=0x011e}
0x456…46a             Head {h00=0x0010, h01=0x0050, text=»!!DL 856,857«, t00=0x0002, t01=0x013a}
0x46a…482             Head {h00=0x0014, h01=0x0050, text=» LDKL A2,':'  DK«, t00=0x0002, t01=0x014e}
0x482…498             Head {h00=0x0012, h01=0x0050, text=» SCR A2,A1  DK«, t00=0x0002, t01=0x0166}
0x498…4b0             Head {h00=0x0014, h01=0x0050, text=» LDK A1,/80  DK «, t00=0x0002, t01=0x017c}
0x4b0…4cc (3, 0, 400) Head {h00=0x0018, h01=0x0050, text=»!!RE 859,$$2$$/21$$ «, t00=0x0003, t01=0x0004}
0x4cc…4dc             Head {h00=0x000c, h01=0x0050, text=»!!IL 901«, t00=0x0003, t01=0x0020}
0x4dc…4f4             Head {h00=0x0014, h01=0x0050, text=» LDKL A3,':'  DK«, t00=0x0003, t01=0x0030}
0x4f4…50a             Head {h00=0x0012, h01=0x0050, text=» SCR A3,A2  DK«, t00=0x0003, t01=0x0048}
0x50a…522             Head {h00=0x0014, h01=0x0050, text=» LDK A3,/80  DK «, t00=0x0003, t01=0x005e}
0x522…53e             Head {h00=0x0018, h01=0x0050, text=»!!RE 906,$$3$$/22$$ «, t00=0x0003, t01=0x0076}
0x53e…54e             Head {h00=0x000c, h01=0x0050, text=»!!IL 907«, t00=0x0003, t01=0x0092}
0x54e…564             Head {h00=0x0012, h01=0x0050, text=» ABL CTEND  DK«, t00=0x0003, t01=0x00a2}
0x564…576             Head {h00=0x000e, h01=0x0050, text=»!!IL 1036 «, t00=0x0003, t01=0x00b8}
0x576…584             Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00ca}
0x584…596             Head {h00=0x000e, h01=0x0050, text=»C:RL EQU *«, t00=0x0003, t01=0x00d8}
0x596…5a0             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ea}
0x5a0…5c4             Head {h00=0x0020, h01=0x0050, text=»*        FIND RECORD LENGTH «, t00=0x0003, t01=0x00f4}
0x5c4…5ce             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0118}
0x5ce…5e4             Head {h00=0x0012, h01=0x0050, text=» LDK A3,0  DK «, t00=0x0003, t01=0x0122}
0x5e4…5fa             Head {h00=0x0012, h01=0x0050, text=» LDK A2,0  DK «, t00=0x0003, t01=0x0138}
0x5fa…612             Head {h00=0x0014, h01=0x0050, text=»C:RL05 EQU *  DK«, t00=0x0003, t01=0x014e}
0x612…628             Head {h00=0x0012, h01=0x0050, text=» LCR A3,A1  DK«, t00=0x0003, t01=0x0166}
0x628…640             Head {h00=0x0014, h01=0x0050, text=» CWK A3,':'  DK «, t00=0x0003, t01=0x017c}
0x640…656 (4, 0, 214) Head {h00=0x0012, h01=0x0050, text=» RF(E) C:RL10 «, t00=0x0004, t01=0x0004}
0x656…66c             Head {h00=0x0012, h01=0x0050, text=» ADK A2,1  DK «, t00=0x0004, t01=0x001a}
0x66c…682             Head {h00=0x0012, h01=0x0050, text=» ADK A1,1  DK «, t00=0x0004, t01=0x0030}
0x682…694             Head {h00=0x000e, h01=0x0050, text=» RB C:RL05«, t00=0x0004, t01=0x0046}
0x694…6a8             Head {h00=0x0010, h01=0x0050, text=»C:RL10 EQU *«, t00=0x0004, t01=0x0058}
0x6a8…6c4             Head {h00=0x0018, h01=0x0050, text=» ST A2,K:EEL,A8  DK «, t00=0x0004, t01=0x006c}
0x6c4…6d4             Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0004, t01=0x0088}
0x6d4…6e0             Head {h00=0x0008, h01=0x0050, text=»!!EN«, t00=0x0004, t01=0x0098}
0x6e0…6ee             Head {h00=0x000a, h01=0x0050, text=»ASM /S«, t00=0x0004, t01=0x00a4}
0x6ee…6fc             Head {h00=0x000a, h01=0x0050, text=»KPF /S«, t00=0x0004, t01=0x00b2}
0x6fc…716             Head {h00=0x0016, h01=0x0050, text=»ASG /E0,DK,UPDFUA «, t00=0x0004, t01=0x00c0}
0x716…71e (5, 1, 8)   20 04 00 00 00 05 00 04                                                                                                                                                                                                                           ┆        ┆

Reduced view