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

⟦82035c99e⟧ 

    Length: 1528 (0x5f8)
    Notes: pts_type(UF)
    Names: »UPDSPY.UF«

Derivation

└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
    └─⟦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
BEA /S
KPF /O
ASG /E0,TY10

Full view