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

⟦3bd8087ca⟧ 

    Length: 1246 (0x4de)
    Notes: pts_type(UF)
    Names: »LARSEK.UF«

Derivation

└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
    └─⟦this⟧ »TOSSWORK/LARSEK.UF«

PTS(SC)

LED DMSUBR
!!RE 0,$$04-21$$08-21$$ 
!!DL 1
*			BUF HANDL + RC L. 496,543,551 
*			REL 8.1 78-04-21
!!IL 52 
	EXTRN	QIRN,QIRR
!!IL 481
	EJECT
!!DL 496,497
	LD	A2,DWTOR,A6	ORDER 
	ANK	A2,/3F 
	CWK	A2,QIRN
	RF(E)	DMTIZ1	INDEXED READ NEXT 
	CWK	A2,QIRR
	RF(E)	DMTIZ1	INDEXED RANDOM READ 
	LD	A1,FDBADF,A6	FDB DATA FILE
DMTIZ1	EQU	*
	LD	A9,DWTECB,A1	USER ECB 
!!DL 535
	LDR	A4,A2	SAVE 
!!IL 542
	ST	A4,ECBCW,A8	SECTOR NR 
!!EN
KPF /S
SCR /O
BEA DMSUBR
LED DMSUBX
!!RE 0,$$04-21$$08-21$$ 
!!DL 1
*			BUF HANDL + SEQ L. 230-250,317-325
*			REL 8.1 78-04-21
!!DL 234
!!DL 240
	LDR	A10,A3	BUFFER ADDR 
!!DL 248
!!DL 317,319
!!IL 320
	CF	A14,DMTRBU	RELEASE BUFFER 
!!RE 322,$$060$$040$$ 
!!RE 453,$$LD$$LC$$ 
!!EN
KPF /S
SCR /O
BEA DMSUBX
LED TIODM 
!!RE 0,$$04-22$$08-21$$ 
!!DL 1
*			ORDER SET LRN IMPLEMENTED 
!!DL 3
!!EN
KPF /S
SCR /O
BEA TIODM 
ASG /E0,TY10

Full view