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

⟦273c38d77⟧ 

    Length: 990 (0x3de)
    Notes: pts_type(UF)
    Names: »EVDU.UF«

Derivation

└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
    └─⟦this⟧ »KJELL/EVDU.UF«

PTS(SC)

LED XVDU
!!RE 0,$$05-17$$07-07$$ 
!!IL 2
			=37 DUP OR FM CHAR ON PRINTER
			=21 LOOP WHEN VDU NOT OPERABLE 
			82-05-17 
!!IL 83 
	ENTRY	RFMDUP	REPLACE FM OR DUP CHAR	=37
!!IL 318
	LD	A2,ECBCW,A8	SAVE CURSOR POS	=21 
!!IL 321
	LD	A1,ECBRC,A8	.	=21 
	ANK	A1,1	NOT OPERABLE?	=21 
	RF(Z)	DISL20	VDU OPERABLE	=21
	ST	A2,ECBCW,A8	NOT OP. REST CURSOR POS	=21 
	RF	DISL90	TERMINATE VDU LINE	=21 
DISL20	EQU	*	.	=21
!!EN
KPF /S
ASG /E0,TY10

HexDump

0x000…010 (0, 0, 400) Head {h00=0x000c, h01=0x0050, text=»LED XVDU«, t00=0x0000, t01=0x0004}
0x010…030             Head {h00=0x001c, h01=0x0050, text=»!!RE 0,$$05-17$$07-07$$ «, t00=0x0000, t01=0x0014}
0x030…03e             Head {h00=0x000a, h01=0x0050, text=»!!IL 2«, t00=0x0000, t01=0x0034}
0x03e…066             Head {h00=0x0024, h01=0x0050, text=»   =37 DUP OR FM CHAR ON PRINTER«, t00=0x0000, t01=0x0042}
0x066…090             Head {h00=0x0026, h01=0x0050, text=»   =21 LOOP WHEN VDU NOT OPERABLE «, t00=0x0000, t01=0x006a}
0x090…0a4             Head {h00=0x0010, h01=0x0050, text=»   82-05-17 «, t00=0x0000, t01=0x0094}
0x0a4…0b4             Head {h00=0x000c, h01=0x0050, text=»!!IL 83 «, t00=0x0000, t01=0x00a8}
0x0b4…0e4             Head {h00=0x002c, h01=0x0050, text=» ENTRY RFMDUP REPLACE FM OR DUP CHAR =37«, t00=0x0000, t01=0x00b8}
0x0e4…0f4             Head {h00=0x000c, h01=0x0050, text=»!!IL 318«, t00=0x0000, t01=0x00e8}
0x0f4…120             Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBCW,A8 SAVE CURSOR POS =21 «, t00=0x0000, t01=0x00f8}
0x120…130             Head {h00=0x000c, h01=0x0050, text=»!!IL 321«, t00=0x0000, t01=0x0124}
0x130…14e             Head {h00=0x001a, h01=0x0050, text=» LD A1,ECBRC,A8 . =21 «, t00=0x0000, t01=0x0134}
0x14e…172             Head {h00=0x0020, h01=0x0050, text=» ANK A1,1 NOT OPERABLE? =21 «, t00=0x0000, t01=0x0152}
0x172…198             Head {h00=0x0022, h01=0x0050, text=» RF(Z) DISL20 VDU OPERABLE =21«, t00=0x0000, t01=0x0176}
0x198…1cc             Head {h00=0x0030, h01=0x0050, text=» ST A2,ECBCW,A8 NOT OP. REST CURSOR POS =21 «, t00=0x0001, t01=0x000c}
0x1cc…1f6             Head {h00=0x0026, h01=0x0050, text=» RF DISL90 TERMINATE VDU LINE =21 «, t00=0x0001, t01=0x0040}
0x1f6…210             Head {h00=0x0016, h01=0x0050, text=»DISL20 EQU * . =21«, t00=0x0001, t01=0x006a}
0x210…21c             Head {h00=0x0008, h01=0x0050, text=»!!EN«, t00=0x0001, t01=0x0084}
0x21c…22a             Head {h00=0x000a, h01=0x0050, text=»KPF /S«, t00=0x0001, t01=0x0090}
0x22a…23e             Head {h00=0x0010, h01=0x0050, text=»ASG /E0,TY10«, t00=0x0001, t01=0x009e}
0x23e…242 (2, 1, 8)   Head {h00=0x2004, h01=0x0000}
0x242…246             00 02 00 04                                                                                                                                                                                                                                       ┆    ┆
0x246…24e (3, 1, 8)   20 04 00 00 00 03 00 04                                                                                                                                                                                                                           ┆        ┆
0x24e…3de (4, 0, 400) 0x00[0x190]

Reduced view