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

⟦d2e25a7df⟧

    Length: 1534 (0x5fe)
    Notes: pts_type(UF)
    Names: »UPDSPY.UF«

Derivation

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

PTS(SC)

LED C:SPY,/S,!! 
!!IL 73 
	EXTRN	K:FBD1 
	EXTRN	K:FBD2 
	EXTRN	K:FBD3 
	EXTRN	K:FBD4 
!!IL 77 
	EXTRN	K:CON	CONVERT 1-15 TO A-Z
!!IL 472
* 
*	PRINT LINE AND TC HEADER
* 
	CF	A14,K:PRTN
	DATA	K:FBD2
!!RE 597,$$DLEND$$DLRET$$ 
!!IL 601
* 
*	CHECK LINE STATUS 
* 
	LD	A1,K:LST,A3 
	RF(Z)	DL300
	IFT	LOOP=1 
	XIF
* 
*	PRINT HEADER
* 
	CF	A14,K:PRTT
	DATA	K:FBD1
	RF	DL50
!!DL 617
*	GET UOTPUT FORMAT 
!!DL 620,624
	LDKL	A4,K:FBD4 
!!DL 629
!!IL 630
	LDR	A1,A3
!!DL 631
	ADKL	A1,30	ADD DISCPL.FOR 15 TC
!!IL 634
	LDK	A2,' ' 
	SCR	A2,A4
	RF	DL290 
!!DL 648
!!DL 649
!!DL 655,656
	LDK	A2,'A' 
	SCR	A2,A4
!!DL 662,663
	LDK	A2,'I' 
	SCR	A2,A4
!!DL 665
	ADK	A4,1 
	LDK	A2,' '	SPACE 
	SCR	A2,A4
	ADK	A4,1 
	SCR	A2,A4
	ADK	A4,1 
!!IL 674
	RF	DLRET 
!!IL 678
	LDKL	A1,/100	EOL 
	SCR	A2,A4
	ADK	A4,1 
	STR	A1,A4
	SUKL	A4,K:FBD4	GET LENGTH
	SC	A4,K:FBD4-1 
	CF	A14,K:PRTN	PRINT TC FORMAT
	DATA	K:FBD3
DLRET	EQU	* 
!!IL 718
	CF	A14,K:CON	COVERT 1-15 TO A-Z
	RF(NZ)	DTEND 
!!EN
ASM /S
KPF /S
ASG /E0,DK,UPDSUB 

HexDump

0x000…018 (0, 0, 400) Head {h00=0x0014, h01=0x0050, text=»LED C:SPY,/S,!! «, t00=0x0000, t01=0x0004}
0x018…028             Head {h00=0x000c, h01=0x0050, text=»!!IL 73 «, t00=0x0000, t01=0x001c}
0x028…03e             Head {h00=0x0012, h01=0x0050, text=» EXTRN K:FBD1 «, t00=0x0000, t01=0x002c}
0x03e…054             Head {h00=0x0012, h01=0x0050, text=» EXTRN K:FBD2 «, t00=0x0000, t01=0x0042}
0x054…06a             Head {h00=0x0012, h01=0x0050, text=» EXTRN K:FBD3 «, t00=0x0000, t01=0x0058}
0x06a…080             Head {h00=0x0012, h01=0x0050, text=» EXTRN K:FBD4 «, t00=0x0000, t01=0x006e}
0x080…090             Head {h00=0x000c, h01=0x0050, text=»!!IL 77 «, t00=0x0000, t01=0x0084}
0x090…0b8             Head {h00=0x0024, h01=0x0050, text=» EXTRN K:CON CONVERT 1-15 TO A-Z«, t00=0x0000, t01=0x0094}
0x0b8…0c8             Head {h00=0x000c, h01=0x0050, text=»!!IL 472«, t00=0x0000, t01=0x00bc}
0x0c8…0d2             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00cc}
0x0d2…0f4             Head {h00=0x001e, h01=0x0050, text=»* PRINT LINE AND TC HEADER«, t00=0x0000, t01=0x00d6}
0x0f4…0fe             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x0fe…114             Head {h00=0x0012, h01=0x0050, text=» CF A14,K:PRTN«, t00=0x0000, t01=0x0102}
0x114…128             Head {h00=0x0010, h01=0x0050, text=» DATA K:FBD2«, t00=0x0000, t01=0x0118}
0x128…14a             Head {h00=0x001e, h01=0x0050, text=»!!RE 597,$$DLEND$$DLRET$$ «, t00=0x0000, t01=0x012c}
0x14a…15a             Head {h00=0x000c, h01=0x0050, text=»!!IL 601«, t00=0x0000, t01=0x014e}
0x15a…164             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x164…180             Head {h00=0x0018, h01=0x0050, text=»* CHECK LINE STATUS «, t00=0x0000, t01=0x0168}
0x180…18a             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0184}
0x18a…1a2             Head {h00=0x0014, h01=0x0050, text=» LD A1,K:LST,A3 «, t00=0x0000, t01=0x018e}
0x1a2…1b6             Head {h00=0x0010, h01=0x0050, text=» RF(Z) DL300«, t00=0x0001, t01=0x0016}
0x1b6…1ca             Head {h00=0x0010, h01=0x0050, text=» IFT LOOP=1 «, t00=0x0001, t01=0x002a}
0x1ca…1d6             Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0001, t01=0x003e}
0x1d6…1e0             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004a}
0x1e0…1f6             Head {h00=0x0012, h01=0x0050, text=»* PRINT HEADER«, t00=0x0001, t01=0x0054}
0x1f6…200             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006a}
0x200…216             Head {h00=0x0012, h01=0x0050, text=» CF A14,K:PRTT«, t00=0x0001, t01=0x0074}
0x216…22a             Head {h00=0x0010, h01=0x0050, text=» DATA K:FBD1«, t00=0x0001, t01=0x008a}
0x22a…23a             Head {h00=0x000c, h01=0x0050, text=» RF DL50«, t00=0x0001, t01=0x009e}
0x23a…24a             Head {h00=0x000c, h01=0x0050, text=»!!DL 617«, t00=0x0001, t01=0x00ae}
0x24a…266             Head {h00=0x0018, h01=0x0050, text=»* GET UOTPUT FORMAT «, t00=0x0001, t01=0x00be}
0x266…27a             Head {h00=0x0010, h01=0x0050, text=»!!DL 620,624«, t00=0x0001, t01=0x00da}
0x27a…292             Head {h00=0x0014, h01=0x0050, text=» LDKL A4,K:FBD4 «, t00=0x0001, t01=0x00ee}
0x292…2a2             Head {h00=0x000c, h01=0x0050, text=»!!DL 629«, t00=0x0001, t01=0x0106}
0x2a2…2b2             Head {h00=0x000c, h01=0x0050, text=»!!IL 630«, t00=0x0001, t01=0x0116}
0x2b2…2c4             Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0001, t01=0x0126}
0x2c4…2d4             Head {h00=0x000c, h01=0x0050, text=»!!DL 631«, t00=0x0001, t01=0x0138}
0x2d4…2fc             Head {h00=0x0024, h01=0x0050, text=» ADKL A1,30 ADD DISCPL.FOR 15 TC«, t00=0x0001, t01=0x0148}
0x2fc…30c             Head {h00=0x000c, h01=0x0050, text=»!!IL 634«, t00=0x0001, t01=0x0170}
0x30c…320             Head {h00=0x0010, h01=0x0050, text=» LDK A2,' ' «, t00=0x0001, t01=0x0180}
0x320…332 (2, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0002, t01=0x0004}
0x332…344             Head {h00=0x000e, h01=0x0050, text=» RF DL290 «, t00=0x0002, t01=0x0016}
0x344…354             Head {h00=0x000c, h01=0x0050, text=»!!DL 648«, t00=0x0002, t01=0x0028}
0x354…364             Head {h00=0x000c, h01=0x0050, text=»!!DL 649«, t00=0x0002, t01=0x0038}
0x364…378             Head {h00=0x0010, h01=0x0050, text=»!!DL 655,656«, t00=0x0002, t01=0x0048}
0x378…38c             Head {h00=0x0010, h01=0x0050, text=» LDK A2,'A' «, t00=0x0002, t01=0x005c}
0x38c…39e             Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0002, t01=0x0070}
0x39e…3b2             Head {h00=0x0010, h01=0x0050, text=»!!DL 662,663«, t00=0x0002, t01=0x0082}
0x3b2…3c6             Head {h00=0x0010, h01=0x0050, text=» LDK A2,'I' «, t00=0x0002, t01=0x0096}
0x3c6…3d8             Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0002, t01=0x00aa}
0x3d8…3e8             Head {h00=0x000c, h01=0x0050, text=»!!DL 665«, t00=0x0002, t01=0x00bc}
0x3e8…3fa             Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0002, t01=0x00cc}
0x3fa…414             Head {h00=0x0016, h01=0x0050, text=» LDK A2,' ' SPACE «, t00=0x0002, t01=0x00de}
0x414…426             Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0002, t01=0x00f8}
0x426…438             Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0002, t01=0x010a}
0x438…44a             Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0002, t01=0x011c}
0x44a…45c             Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0002, t01=0x012e}
0x45c…46c             Head {h00=0x000c, h01=0x0050, text=»!!IL 674«, t00=0x0002, t01=0x0140}
0x46c…47e             Head {h00=0x000e, h01=0x0050, text=» RF DLRET «, t00=0x0002, t01=0x0150}
0x47e…48e             Head {h00=0x000c, h01=0x0050, text=»!!IL 678«, t00=0x0002, t01=0x0162}
0x48e…4a8             Head {h00=0x0016, h01=0x0050, text=» LDKL A1,/100 EOL «, t00=0x0002, t01=0x0172}
0x4a8…4ba             Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0002, t01=0x018c}
0x4ba…4cc             Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0003, t01=0x000e}
0x4cc…4de             Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x0003, t01=0x0020}
0x4de…500             Head {h00=0x001e, h01=0x0050, text=» SUKL A4,K:FBD4 GET LENGTH«, t00=0x0003, t01=0x0032}
0x500…518             Head {h00=0x0014, h01=0x0050, text=» SC A4,K:FBD4-1 «, t00=0x0003, t01=0x0054}
0x518…53e             Head {h00=0x0022, h01=0x0050, text=» CF A14,K:PRTN PRINT TC FORMAT«, t00=0x0003, t01=0x006c}
0x53e…552             Head {h00=0x0010, h01=0x0050, text=» DATA K:FBD3«, t00=0x0003, t01=0x0092}
0x552…566             Head {h00=0x0010, h01=0x0050, text=»DLRET EQU * «, t00=0x0003, t01=0x00a6}
0x566…576             Head {h00=0x000c, h01=0x0050, text=»!!IL 718«, t00=0x0003, t01=0x00ba}
0x576…59e             Head {h00=0x0024, h01=0x0050, text=» CF A14,K:CON COVERT 1-15 TO A-Z«, t00=0x0003, t01=0x00ca}
0x59e…5b4             Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DTEND «, t00=0x0003, t01=0x00f2}
0x5b4…5c0             Head {h00=0x0008, h01=0x0050, text=»!!EN«, t00=0x0003, t01=0x0108}
0x5c0…5ce             Head {h00=0x000a, h01=0x0050, text=»ASM /S«, t00=0x0003, t01=0x0114}
0x5ce…5dc             Head {h00=0x000a, h01=0x0050, text=»KPF /S«, t00=0x0003, t01=0x0122}
0x5dc…5f6             Head {h00=0x0016, h01=0x0050, text=»ASG /E0,DK,UPDSUB «, t00=0x0003, t01=0x0130}
0x5f6…5fe (4, 1, 8)   20 04 00 00 00 04 00 04                                                                                                                                                                                                                           ┆        ┆

Reduced view