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

⟦a01d08536⟧ 

    Length: 2760 (0xac8)
    Notes: pts_type(UF)
    Names: »UTCAPP.UF«

Derivation

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

PTS(SC)

LED TCAPP,/S!!
!!IL 14 
	ENTRY	ECBTB1,ECBTB2
!!IL 17 
	EXTRN	K:SIMP 
* 
* 
	EJECT
* 
* 
		ECBTB1 AND ECBTB2 BUILT AS FOLLOWS: 
		I:ST LINE TCA,DEV ADR.(BOTH 41-4F ACC.TO KONC)
		2:ND LINE SIM.DEV.IN ASCII,FILE CODE (GROUPING AS IN CD:TAB)
* 
* 
ECBTB1	DATA	ECBEN1-*
	DATA	/4141 
	DATA	/207A 

	DATA	/4142 
	DATA	/4179 

	DATA	/4143 
	DATA	/4278 

	DATA	/4641 
	DATA	/4D77 

	DATA	/4642 
	DATA	/4E76 

	DATA	/4643 
	DATA	/4F75 

	DATA	/4644 
	DATA	/5074 
ECBEN1	EQU	*
* 
* 
* 
ECBTB2	DATA	ECBEN2-*
	DATA	/4241 
	DATA	/4373 

	DATA	/4242 
	DATA	/4472 

	DATA	/4243 
	DATA	/2D71 

	DATA	/4341 
	DATA	/4570 

	DATA	/4342 
	DATA	/466F 

	DATA	/4441 
	DATA	/476E 

	DATA	/4442 
	DATA	/266D 

	DATA	/4443 
	DATA	/4A6C 

	DATA	/4541 
	DATA	/4B6B 

	DATA	/4542 
	DATA	/4C6A 

ECBEN2	EQU	*
!!IL 33 
	LD	A6,-2,A1	GET TCA LINE NO
	ANK	A6,/FF	LINE NO 
	LDK	A4,/4	PRESET RETURNCODE 4=NO ECB FOUND 
	LDKL	A5,ECBTB1 
	ST	A5,ECBTST 
	AD	A5,ECBTB1 
	CWK	A6,1	LINE 1
	RF(E)	CCQ001 
	CWK	A6,2	LINE 2
	RB(NE)	TCAPP 
	LDKL	A5,ECBTB2	YES 
	ST	A5,ECBTST 
	AD	A5,ECBTB2 
CCQ001	EQU	*
	LD	A6,-2,A1	GET TCA,LINE NO
	ANKL	A6,/FF00
	LD	A2,0,A1	DEV,AID 
	SRL	A2,8 
	ANKL	A2,/FF
	ORR	A6,A2	TCA AND DEV. 
CCQ002	EQU	*
	SUK	A5,4	POINTER TO TCA AND DEV.ADR
	CWK	A5,ECBTST	END OF TABEL 
ECBTST	EQU	*-2	ECBTB1 OR 2
	RB(NP)	TCAPP 
	LDR*	A2,A5 
	CWR	A2,A6	OK ? 
	RB(NE)	CCQ002	NO 
	LD	A8,2,A5	YES 
	ANKL	A8,/FF	GET FILE CODE
* 
*		GET ECB ADDRESS
* 
	LDKL	A2,K:SIMP	GET ADR.OF FIRST SIM.TERM.
	ADK	A2,4 
CCQ003	EQU	*
	CWR	A2,0	END OF CHAIN
	RB(E)	TCAPP	NEW LINE READ
	ADK	A2,2	POINTER TO LFILECODE
	LDR*	A5,A2	GET FILE CODE 
	ANK	A5,/FF 
	CWR	A8,A5
	RF(E)	CCQ004	FOUND 
	SUK	A2,2 
	LDR*	A2,A2	NEXT DEV. 
	LDR	A2,A2
	LDR	A2,A2
	RB	CCQ003
CCQ004	EQU	*
	LDR	A8,A2	ECB FOUND
!!IL 64 
	LDR	A6,A1	BUFFER ADR.
!!RE 66,$$A1$$A6$$
!!RE 68,$$A1$$A6$$
!!EN
ASM /S
KPF /S
ASG /E0,TY10

Full view