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

HexDump

0x000…016 (0, 0, 398) Head {h00=0x0012, h01=0x0050, text=»LED TCAPP,/S!!«, t00=0x0000, t01=0x0004}
0x016…026             Head {h00=0x000c, h01=0x0050, text=»!!IL 14 «, t00=0x0000, t01=0x001a}
0x026…042             Head {h00=0x0018, h01=0x0050, text=» ENTRY ECBTB1,ECBTB2«, t00=0x0000, t01=0x002a}
0x042…052             Head {h00=0x000c, h01=0x0050, text=»!!IL 17 «, t00=0x0000, t01=0x0046}
0x052…068             Head {h00=0x0012, h01=0x0050, text=» EXTRN K:SIMP «, t00=0x0000, t01=0x0056}
0x068…072             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x006c}
0x072…07c             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0076}
0x07c…08a             Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x0080}
0x08a…094             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008e}
0x094…09e             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0098}
0x09e…0cc             Head {h00=0x002a, h01=0x0050, text=»  ECBTB1 AND ECBTB2 BUILT AS FOLLOWS: «, t00=0x0000, t01=0x00a2}
0x0cc…104             Head {h00=0x0034, h01=0x0050, text=»  I:ST LINE TCA,DEV ADR.(BOTH 41-4F ACC.TO KONC)«, t00=0x0000, t01=0x00d0}
0x104…14a             Head {h00=0x0042, h01=0x0050, text=»  2:ND LINE SIM.DEV.IN ASCII,FILE CODE (GROUPING AS IN CD:TAB)«, t00=0x0000, t01=0x0108}
0x14a…154             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014e}
0x154…15e             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0158}
0x15e…17a             Head {h00=0x0018, h01=0x0050, text=»ECBTB1 DATA ECBEN1-*«, t00=0x0000, t01=0x0162}
0x17a…18e             Head {h00=0x0010, h01=0x0050, text=» DATA /4141 «, t00=0x0000, t01=0x017e}
0x18e…1a2 (1, 0, 400) Head {h00=0x0010, h01=0x0050, text=» DATA /207A «, t00=0x0001, t01=0x0004}
0x1a2…1aa             Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0018}
0x1aa…1be             Head {h00=0x0010, h01=0x0050, text=» DATA /4142 «, t00=0x0001, t01=0x0020}
0x1be…1d2             Head {h00=0x0010, h01=0x0050, text=» DATA /4179 «, t00=0x0001, t01=0x0034}
0x1d2…1da             Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0048}
0x1da…1ee             Head {h00=0x0010, h01=0x0050, text=» DATA /4143 «, t00=0x0001, t01=0x0050}
0x1ee…202             Head {h00=0x0010, h01=0x0050, text=» DATA /4278 «, t00=0x0001, t01=0x0064}
0x202…20a             Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0078}
0x20a…21e             Head {h00=0x0010, h01=0x0050, text=» DATA /4641 «, t00=0x0001, t01=0x0080}
0x21e…232             Head {h00=0x0010, h01=0x0050, text=» DATA /4D77 «, t00=0x0001, t01=0x0094}
0x232…23a             Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00a8}
0x23a…24e             Head {h00=0x0010, h01=0x0050, text=» DATA /4642 «, t00=0x0001, t01=0x00b0}
0x24e…262             Head {h00=0x0010, h01=0x0050, text=» DATA /4E76 «, t00=0x0001, t01=0x00c4}
0x262…26a             Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00d8}
0x26a…27e             Head {h00=0x0010, h01=0x0050, text=» DATA /4643 «, t00=0x0001, t01=0x00e0}
0x27e…292             Head {h00=0x0010, h01=0x0050, text=» DATA /4F75 «, t00=0x0001, t01=0x00f4}
0x292…29a             Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0108}
0x29a…2ae             Head {h00=0x0010, h01=0x0050, text=» DATA /4644 «, t00=0x0001, t01=0x0110}
0x2ae…2c2             Head {h00=0x0010, h01=0x0050, text=» DATA /5074 «, t00=0x0001, t01=0x0124}
0x2c2…2d6             Head {h00=0x0010, h01=0x0050, text=»ECBEN1 EQU *«, t00=0x0001, t01=0x0138}
0x2d6…2e0             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014c}
0x2e0…2ea             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0156}
0x2ea…2f4             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0160}
0x2f4…310             Head {h00=0x0018, h01=0x0050, text=»ECBTB2 DATA ECBEN2-*«, t00=0x0001, t01=0x016a}
0x310…324             Head {h00=0x0010, h01=0x0050, text=» DATA /4241 «, t00=0x0001, t01=0x0186}
0x324…338             Head {h00=0x0010, h01=0x0050, text=» DATA /4373 «, t00=0x0002, t01=0x000a}
0x338…340             Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x001e}
0x340…354             Head {h00=0x0010, h01=0x0050, text=» DATA /4242 «, t00=0x0002, t01=0x0026}
0x354…368             Head {h00=0x0010, h01=0x0050, text=» DATA /4472 «, t00=0x0002, t01=0x003a}
0x368…370             Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x004e}
0x370…384             Head {h00=0x0010, h01=0x0050, text=» DATA /4243 «, t00=0x0002, t01=0x0056}
0x384…398             Head {h00=0x0010, h01=0x0050, text=» DATA /2D71 «, t00=0x0002, t01=0x006a}
0x398…3a0             Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x007e}
0x3a0…3b4             Head {h00=0x0010, h01=0x0050, text=» DATA /4341 «, t00=0x0002, t01=0x0086}
0x3b4…3c8             Head {h00=0x0010, h01=0x0050, text=» DATA /4570 «, t00=0x0002, t01=0x009a}
0x3c8…3d0             Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00ae}
0x3d0…3e4             Head {h00=0x0010, h01=0x0050, text=» DATA /4342 «, t00=0x0002, t01=0x00b6}
0x3e4…3f8             Head {h00=0x0010, h01=0x0050, text=» DATA /466F «, t00=0x0002, t01=0x00ca}
0x3f8…400             Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00de}
0x400…414             Head {h00=0x0010, h01=0x0050, text=» DATA /4441 «, t00=0x0002, t01=0x00e6}
0x414…428             Head {h00=0x0010, h01=0x0050, text=» DATA /476E «, t00=0x0002, t01=0x00fa}
0x428…430             Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x010e}
0x430…444             Head {h00=0x0010, h01=0x0050, text=» DATA /4442 «, t00=0x0002, t01=0x0116}
0x444…458             Head {h00=0x0010, h01=0x0050, text=» DATA /266D «, t00=0x0002, t01=0x012a}
0x458…460             Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x013e}
0x460…474             Head {h00=0x0010, h01=0x0050, text=» DATA /4443 «, t00=0x0002, t01=0x0146}
0x474…488             Head {h00=0x0010, h01=0x0050, text=» DATA /4A6C «, t00=0x0002, t01=0x015a}
0x488…490             Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x016e}
0x490…4a4             Head {h00=0x0010, h01=0x0050, text=» DATA /4541 «, t00=0x0002, t01=0x0176}
0x4a4…4b8             Head {h00=0x0010, h01=0x0050, text=» DATA /4B6B «, t00=0x0002, t01=0x018a}
0x4b8…4c0             Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x000e}
0x4c0…4d4             Head {h00=0x0010, h01=0x0050, text=» DATA /4542 «, t00=0x0003, t01=0x0016}
0x4d4…4e8             Head {h00=0x0010, h01=0x0050, text=» DATA /4C6A «, t00=0x0003, t01=0x002a}
0x4e8…4f0             Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x003e}
0x4f0…504             Head {h00=0x0010, h01=0x0050, text=»ECBEN2 EQU *«, t00=0x0003, t01=0x0046}
0x504…514             Head {h00=0x000c, h01=0x0050, text=»!!IL 33 «, t00=0x0003, t01=0x005a}
0x514…538             Head {h00=0x0020, h01=0x0050, text=» LD A6,-2,A1 GET TCA LINE NO«, t00=0x0003, t01=0x006a}
0x538…554             Head {h00=0x0018, h01=0x0050, text=» ANK A6,/FF LINE NO «, t00=0x0003, t01=0x008e}
0x554…588             Head {h00=0x0030, h01=0x0050, text=» LDK A4,/4 PRESET RETURNCODE 4=NO ECB FOUND «, t00=0x0003, t01=0x00aa}
0x588…5a0             Head {h00=0x0014, h01=0x0050, text=» LDKL A5,ECBTB1 «, t00=0x0003, t01=0x00de}
0x5a0…5b6             Head {h00=0x0012, h01=0x0050, text=» ST A5,ECBTST «, t00=0x0003, t01=0x00f6}
0x5b6…5cc             Head {h00=0x0012, h01=0x0050, text=» AD A5,ECBTB1 «, t00=0x0003, t01=0x010c}
0x5cc…5e4             Head {h00=0x0014, h01=0x0050, text=» CWK A6,1 LINE 1«, t00=0x0003, t01=0x0122}
0x5e4…5fa             Head {h00=0x0012, h01=0x0050, text=» RF(E) CCQ001 «, t00=0x0003, t01=0x013a}
0x5fa…612             Head {h00=0x0014, h01=0x0050, text=» CWK A6,2 LINE 2«, t00=0x0003, t01=0x0150}
0x612…628             Head {h00=0x0012, h01=0x0050, text=» RB(NE) TCAPP «, t00=0x0003, t01=0x0168}
0x628…644             Head {h00=0x0018, h01=0x0050, text=» LDKL A5,ECBTB2 YES «, t00=0x0003, t01=0x017e}
0x644…65a             Head {h00=0x0012, h01=0x0050, text=» ST A5,ECBTST «, t00=0x0004, t01=0x000a}
0x65a…670             Head {h00=0x0012, h01=0x0050, text=» AD A5,ECBTB2 «, t00=0x0004, t01=0x0020}
0x670…684             Head {h00=0x0010, h01=0x0050, text=»CCQ001 EQU *«, t00=0x0004, t01=0x0036}
0x684…6a8             Head {h00=0x0020, h01=0x0050, text=» LD A6,-2,A1 GET TCA,LINE NO«, t00=0x0004, t01=0x004a}
0x6a8…6be             Head {h00=0x0012, h01=0x0050, text=» ANKL A6,/FF00«, t00=0x0004, t01=0x006e}
0x6be…6da             Head {h00=0x0018, h01=0x0050, text=» LD A2,0,A1 DEV,AID «, t00=0x0004, t01=0x0084}
0x6da…6ec             Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0004, t01=0x00a0}
0x6ec…700             Head {h00=0x0010, h01=0x0050, text=» ANKL A2,/FF«, t00=0x0004, t01=0x00b2}
0x700…720             Head {h00=0x001c, h01=0x0050, text=» ORR A6,A2 TCA AND DEV. «, t00=0x0004, t01=0x00c6}
0x720…734             Head {h00=0x0010, h01=0x0050, text=»CCQ002 EQU *«, t00=0x0004, t01=0x00e6}
0x734…760             Head {h00=0x0028, h01=0x0050, text=» SUK A5,4 POINTER TO TCA AND DEV.ADR«, t00=0x0004, t01=0x00fa}
0x760…784             Head {h00=0x0020, h01=0x0050, text=» CWK A5,ECBTST END OF TABEL «, t00=0x0004, t01=0x0126}
0x784…7a6             Head {h00=0x001e, h01=0x0050, text=»ECBTST EQU *-2 ECBTB1 OR 2«, t00=0x0004, t01=0x014a}
0x7a6…7bc             Head {h00=0x0012, h01=0x0050, text=» RB(NP) TCAPP «, t00=0x0004, t01=0x016c}
0x7bc…7d0             Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A5 «, t00=0x0004, t01=0x0182}
0x7d0…7e8             Head {h00=0x0014, h01=0x0050, text=» CWR A2,A6 OK ? «, t00=0x0005, t01=0x0008}
0x7e8…802             Head {h00=0x0016, h01=0x0050, text=» RB(NE) CCQ002 NO «, t00=0x0005, t01=0x0020}
0x802…81a             Head {h00=0x0014, h01=0x0050, text=» LD A8,2,A5 YES «, t00=0x0005, t01=0x003a}
0x81a…83c             Head {h00=0x001e, h01=0x0050, text=» ANKL A8,/FF GET FILE CODE«, t00=0x0005, t01=0x0052}
0x83c…846             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0074}
0x846…860             Head {h00=0x0016, h01=0x0050, text=»*  GET ECB ADDRESS«, t00=0x0005, t01=0x007e}
0x860…86a             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0098}
0x86a…89c             Head {h00=0x002e, h01=0x0050, text=» LDKL A2,K:SIMP GET ADR.OF FIRST SIM.TERM.«, t00=0x0005, t01=0x00a2}
0x89c…8ae             Head {h00=0x000e, h01=0x0050, text=» ADK A2,4 «, t00=0x0005, t01=0x00d4}
0x8ae…8c2             Head {h00=0x0010, h01=0x0050, text=»CCQ003 EQU *«, t00=0x0005, t01=0x00e6}
0x8c2…8e0             Head {h00=0x001a, h01=0x0050, text=» CWR A2,0 END OF CHAIN«, t00=0x0005, t01=0x00fa}
0x8e0…902             Head {h00=0x001e, h01=0x0050, text=» RB(E) TCAPP NEW LINE READ«, t00=0x0005, t01=0x0118}
0x902…928             Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 POINTER TO LFILECODE«, t00=0x0005, t01=0x013a}
0x928…94a             Head {h00=0x001e, h01=0x0050, text=» LDR* A5,A2 GET FILE CODE «, t00=0x0005, t01=0x0160}
0x94a…95e             Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x0005, t01=0x0182}
0x95e…970             Head {h00=0x000e, h01=0x0050, text=» CWR A8,A5«, t00=0x0006, t01=0x0008}
0x970…98c             Head {h00=0x0018, h01=0x0050, text=» RF(E) CCQ004 FOUND «, t00=0x0006, t01=0x001a}
0x98c…99e             Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0006, t01=0x0036}
0x99e…9bc             Head {h00=0x001a, h01=0x0050, text=» LDR* A2,A2 NEXT DEV. «, t00=0x0006, t01=0x0048}
0x9bc…9ce             Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0006, t01=0x0066}
0x9ce…9e0             Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0006, t01=0x0078}
0x9e0…9f2             Head {h00=0x000e, h01=0x0050, text=» RB CCQ003«, t00=0x0006, t01=0x008a}
0x9f2…a06             Head {h00=0x0010, h01=0x0050, text=»CCQ004 EQU *«, t00=0x0006, t01=0x009c}
0xa06…a22             Head {h00=0x0018, h01=0x0050, text=» LDR A8,A2 ECB FOUND«, t00=0x0006, t01=0x00b0}
0xa22…a32             Head {h00=0x000c, h01=0x0050, text=»!!IL 64 «, t00=0x0006, t01=0x00cc}
0xa32…a50             Head {h00=0x001a, h01=0x0050, text=» LDR A6,A1 BUFFER ADR.«, t00=0x0006, t01=0x00dc}
0xa50…a6a             Head {h00=0x0016, h01=0x0050, text=»!!RE 66,$$A1$$A6$$«, t00=0x0006, t01=0x00fa}
0xa6a…a84             Head {h00=0x0016, h01=0x0050, text=»!!RE 68,$$A1$$A6$$«, t00=0x0006, t01=0x0114}
0xa84…a90             Head {h00=0x0008, h01=0x0050, text=»!!EN«, t00=0x0006, t01=0x012e}
0xa90…a9e             Head {h00=0x000a, h01=0x0050, text=»ASM /S«, t00=0x0006, t01=0x013a}
0xa9e…aac             Head {h00=0x000a, h01=0x0050, text=»KPF /S«, t00=0x0006, t01=0x0148}
0xaac…ac0             Head {h00=0x0010, h01=0x0050, text=»ASG /E0,TY10«, t00=0x0006, t01=0x0156}
0xac0…ac8 (7, 1, 8)   20 04 00 00 00 07 00 04                                                                                                                                                                                                                           ┆        ┆

Reduced view