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

⟦04f033b87⟧ 

    Length: 1338 (0x53a)
    Notes: pts_type(UF)
    Names: »UPDOPC.UF«

Derivation

└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
    └─⟦this⟧ »BDKAPP/UPDOPC.UF«

PTS(SC)

LED C:OPC,/S,!! 
!!IL 58 
	EXTRN	K:KBB
!!IL 114
	EXTRN	K:ST10 
	EXTRN	K:LD10 
!!RE 669,$$RF(Z)$$RF$$
!!IL 674
	ADK	A2,3	AID,CU,CU 
!!IL 676
	LDKL	A8,/2020	CU,CU
	ST	A8,0,A2 
	LDKL	A8,/00A7	AID
	SC	A8,-1,A2
	LDKL	A8,K:S0E
	SUK	A2,3 
!!IL 751
	ADK	A1,3 
!!DL 771
!!DL 778
	SUK	A1,3 
!!IL 783
* 
* 
*	MOVE MESS. TO KEY BOARD BUFF
* 
	CF	A14,K:ST10
	LDKL	A8,K:GPE	GET GPECB
	LD	A1,K:EBA,A8	GET BUF,IN GP-ECB 
	LD	A5,K:ERL,A8	GET LENGTH
	LDKL	A8,K:KBE	GET KEY BOARD ECB
	SUK	A5,5 
	ST	A5,K:EEL,A8	LENGTH TO KEY BOARD ECB 
	SUK	A5,1 
	LDKL	A3,K:KBB	GET BUFFER 
	ST	A5,INPBL,A3 
	ADK	A5,6 
	ADR	A5,A1
	ST	A3,K:EBA,A8 
	ADK	A1,6 
OCC060	EQU	*
	LCR	A2,A1
	SCR	A2,A3
	ADK	A1,1 
	ADK	A3,1 
	CWR	A1,A5
	RB(L)	OCC060 
	LDK	A2,/12	( 
	SCR	A2,A3	PUT LAST IN BUFFER 
	CF	A14,K:LD10
!!IL 800
	ECR	A2,A2
	ANKL	A2,/FF00
!!IL 807
	LDKL	A8,K:KBE		FOR K:GTC MODULE
	LD	A8,K:EBA,A8		FOR K:GTC MODULE 
!!EN
BEA /S
KPF /O
ASG /E0,TY10

HexDump

0x000…018 (0, 0, 400) Head {h00=0x0014, h01=0x0050, text=»LED C:OPC,/S,!! «, t00=0x0000, t01=0x0004}
0x018…028             Head {h00=0x000c, h01=0x0050, text=»!!IL 58 «, t00=0x0000, t01=0x001c}
0x028…03c             Head {h00=0x0010, h01=0x0050, text=» EXTRN K:KBB«, t00=0x0000, t01=0x002c}
0x03c…04c             Head {h00=0x000c, h01=0x0050, text=»!!IL 114«, t00=0x0000, t01=0x0040}
0x04c…062             Head {h00=0x0012, h01=0x0050, text=» EXTRN K:ST10 «, t00=0x0000, t01=0x0050}
0x062…078             Head {h00=0x0012, h01=0x0050, text=» EXTRN K:LD10 «, t00=0x0000, t01=0x0066}
0x078…096             Head {h00=0x001a, h01=0x0050, text=»!!RE 669,$$RF(Z)$$RF$$«, t00=0x0000, t01=0x007c}
0x096…0a6             Head {h00=0x000c, h01=0x0050, text=»!!IL 674«, t00=0x0000, t01=0x009a}
0x0a6…0c2             Head {h00=0x0018, h01=0x0050, text=» ADK A2,3 AID,CU,CU «, t00=0x0000, t01=0x00aa}
0x0c2…0d2             Head {h00=0x000c, h01=0x0050, text=»!!IL 676«, t00=0x0000, t01=0x00c6}
0x0d2…0ee             Head {h00=0x0018, h01=0x0050, text=» LDKL A8,/2020 CU,CU«, t00=0x0000, t01=0x00d6}
0x0ee…102             Head {h00=0x0010, h01=0x0050, text=» ST A8,0,A2 «, t00=0x0000, t01=0x00f2}
0x102…11c             Head {h00=0x0016, h01=0x0050, text=» LDKL A8,/00A7 AID«, t00=0x0000, t01=0x0106}
0x11c…130             Head {h00=0x0010, h01=0x0050, text=» SC A8,-1,A2«, t00=0x0000, t01=0x0120}
0x130…146             Head {h00=0x0012, h01=0x0050, text=» LDKL A8,K:S0E«, t00=0x0000, t01=0x0134}
0x146…158             Head {h00=0x000e, h01=0x0050, text=» SUK A2,3 «, t00=0x0000, t01=0x014a}
0x158…168             Head {h00=0x000c, h01=0x0050, text=»!!IL 751«, t00=0x0000, t01=0x015c}
0x168…17a             Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x0000, t01=0x016c}
0x17a…18a             Head {h00=0x000c, h01=0x0050, text=»!!DL 771«, t00=0x0000, t01=0x017e}
0x18a…19a             Head {h00=0x000c, h01=0x0050, text=»!!DL 778«, t00=0x0000, t01=0x018e}
0x19a…1ac             Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0001, t01=0x000e}
0x1ac…1bc             Head {h00=0x000c, h01=0x0050, text=»!!IL 783«, t00=0x0001, t01=0x0020}
0x1bc…1c6             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0030}
0x1c6…1d0             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003a}
0x1d0…1f6             Head {h00=0x0022, h01=0x0050, text=»* MOVE MESS. TO KEY BOARD BUFF«, t00=0x0001, t01=0x0044}
0x1f6…200             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006a}
0x200…216             Head {h00=0x0012, h01=0x0050, text=» CF A14,K:ST10«, t00=0x0001, t01=0x0074}
0x216…236             Head {h00=0x001c, h01=0x0050, text=» LDKL A8,K:GPE GET GPECB«, t00=0x0001, t01=0x008a}
0x236…260             Head {h00=0x0026, h01=0x0050, text=» LD A1,K:EBA,A8 GET BUF,IN GP-ECB «, t00=0x0001, t01=0x00aa}
0x260…282             Head {h00=0x001e, h01=0x0050, text=» LD A5,K:ERL,A8 GET LENGTH«, t00=0x0001, t01=0x00d4}
0x282…2aa             Head {h00=0x0024, h01=0x0050, text=» LDKL A8,K:KBE GET KEY BOARD ECB«, t00=0x0001, t01=0x00f6}
0x2aa…2bc             Head {h00=0x000e, h01=0x0050, text=» SUK A5,5 «, t00=0x0001, t01=0x011e}
0x2bc…2ec             Head {h00=0x002c, h01=0x0050, text=» ST A5,K:EEL,A8 LENGTH TO KEY BOARD ECB «, t00=0x0001, t01=0x0130}
0x2ec…2fe             Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0001, t01=0x0160}
0x2fe…320             Head {h00=0x001e, h01=0x0050, text=» LDKL A3,K:KBB GET BUFFER «, t00=0x0001, t01=0x0172}
0x320…338 (2, 0, 400) Head {h00=0x0014, h01=0x0050, text=» ST A5,INPBL,A3 «, t00=0x0002, t01=0x0004}
0x338…34a             Head {h00=0x000e, h01=0x0050, text=» ADK A5,6 «, t00=0x0002, t01=0x001c}
0x34a…35c             Head {h00=0x000e, h01=0x0050, text=» ADR A5,A1«, t00=0x0002, t01=0x002e}
0x35c…374             Head {h00=0x0014, h01=0x0050, text=» ST A3,K:EBA,A8 «, t00=0x0002, t01=0x0040}
0x374…386             Head {h00=0x000e, h01=0x0050, text=» ADK A1,6 «, t00=0x0002, t01=0x0058}
0x386…39a             Head {h00=0x0010, h01=0x0050, text=»OCC060 EQU *«, t00=0x0002, t01=0x006a}
0x39a…3ac             Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0002, t01=0x007e}
0x3ac…3be             Head {h00=0x000e, h01=0x0050, text=» SCR A2,A3«, t00=0x0002, t01=0x0090}
0x3be…3d0             Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0002, t01=0x00a2}
0x3d0…3e2             Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0002, t01=0x00b4}
0x3e2…3f4             Head {h00=0x000e, h01=0x0050, text=» CWR A1,A5«, t00=0x0002, t01=0x00c6}
0x3f4…40a             Head {h00=0x0012, h01=0x0050, text=» RB(L) OCC060 «, t00=0x0002, t01=0x00d8}
0x40a…420             Head {h00=0x0012, h01=0x0050, text=» LDK A2,/12 ( «, t00=0x0002, t01=0x00ee}
0x420…446             Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 PUT LAST IN BUFFER «, t00=0x0002, t01=0x0104}
0x446…45c             Head {h00=0x0012, h01=0x0050, text=» CF A14,K:LD10«, t00=0x0002, t01=0x012a}
0x45c…46c             Head {h00=0x000c, h01=0x0050, text=»!!IL 800«, t00=0x0002, t01=0x0140}
0x46c…47e             Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x0002, t01=0x0150}
0x47e…494             Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/FF00«, t00=0x0002, t01=0x0162}
0x494…4a4             Head {h00=0x000c, h01=0x0050, text=»!!IL 807«, t00=0x0002, t01=0x0178}
0x4a4…4cc             Head {h00=0x0024, h01=0x0050, text=» LDKL A8,K:KBE  FOR K:GTC MODULE«, t00=0x0002, t01=0x0188}
0x4cc…4f6             Head {h00=0x0026, h01=0x0050, text=» LD A8,K:EBA,A8  FOR K:GTC MODULE «, t00=0x0003, t01=0x0020}
0x4f6…502             Head {h00=0x0008, h01=0x0050, text=»!!EN«, t00=0x0003, t01=0x004a}
0x502…510             Head {h00=0x000a, h01=0x0050, text=»BEA /S«, t00=0x0003, t01=0x0056}
0x510…51e             Head {h00=0x000a, h01=0x0050, text=»KPF /O«, t00=0x0003, t01=0x0064}
0x51e…532             Head {h00=0x0010, h01=0x0050, text=»ASG /E0,TY10«, t00=0x0003, t01=0x0072}
0x532…53a (4, 1, 8)   20 04 00 00 00 04 00 04                                                                                                                                                                                                                           ┆        ┆

Reduced view