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

⟦bef819485⟧ 

    Length: 4762 (0x129a)
    Notes: pts_type(SC)
    Names: »TTMJOB.SC«

Derivation

└─⟦9af60a727⟧ Bits:30009707 Philips computer tape "M_173"
    └─⟦this⟧ »M:173/TTMJOB.SC« 
    └─⟦this⟧ »M:173/TTMJOB.SC«

PTS(SC)

	IDENT TTMJOB 	REL 9.2 79-11-16  870105040920 

* 
* 
*	MONITOR JOB TASK TABLE
* 
* 
********* 
*ENTRIES* 
********* 
* 
* 
	ENTRY	TTB:LA	LAST LOAD ADDRESS 
	ENTRY	TTB:MT	MMU TABLE 
	ENTRY	TTB:SB	SEGMENT BLOCK POINTER 
	ENTRY	TTMJOB	TABLE ENTRY 
	ENTRY	TTB:QL	DISPATCHER QUEUE LINK 
	ENTRY	TTB:ID	TASK IDENTIFICATION 
	ENTRY	TTB:ST	TASK STATUS 
	ENTRY	TTB:PP	PENDING POINTER 
	ENTRY	TTB:PW	PROGRAM STATUS WORD 
	ENTRY	TTB:SA	TERMINAL SAVE AREA
	ENTRY	TTB:TD	TERMINAL DEVICES
* 
	EJECT			TTMJOB 
* 
* 
***************************************** 
* 
*	CONDITIONAL ASSEMBLY
* 
***************************************** 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	1
* 
* 
*	A PROGRAM VERSION USING TOSS DISC PAGING
*	IS OBTAINED BY SETTING DSKPAG EQU 1.
* 
DSKPAG	EQU	1
* 
* 
*	A PROGRAM VERSION USING TOSS ASSEMBLER OVERLAY
*	IS OBTAINED BY SETTING ASSOLY EQU 1.
* 
ASSOLY	EQU	0
* 
	EJECT			TTMJOB      			TTMJOB
* 
* 
LA:DUM	EQU	*
	IFT	ASSOLY=1 
	DATA	0	LAST LOAD ADDRESS 
	XIF
* 
MMUDUM	EQU	*
	IFT	MMUPAG=1 
	DATA	/0000,/0400,/0800,/0C00 
	DATA	/1000,/1400,/1800,/1C00 
	DATA	/2000,/2400,/2800,/2C00 
	DATA	/3000,/3400,/3800,/3C00 
	XIF
* 
SB:DUM	EQU	*
	IFF	MMUPAG+DSKPAG=0
	DATA	0	SEGMENT BLOCK ADDRESS 
	XIF
TTB:LA	EQU	LA:DUM-*	LAST LOAD ADDRESS DISPLACEMENT
TTB:MT	EQU	MMUDUM-*	MMU TABLE DISPLACEMENT
TTB:SB	EQU	SB:DUM-*	SEGMENT BLOCK ADDRESS DISPLACEMENT
* 
	EJECT			TTMJOB 
* 
* 
TTMJOB	EQU	*	TTMJOB ENTRY 
TTB:QL	EQU	*-TTMJOB	DISPATCHER QUEUE LINK 
	DATA	0 
* 
TTB:ID	EQU	*-TTMJOB	TASK IDENTIFICATION 
	DATA	'#M'
* 
TTB:ST	EQU	*-TTMJOB	TASK STATUS 
	DATA	49
* 
TTB:PP	EQU	*-TTMJOB	PENDING POINTER 
	DATA	0 
* 
TTB:PW	EQU	*-TTMJOB 
	DATA	/C4C0	PROGRAM STATUS WORD FOR MONITOR JOB 
* 
	EJECT			TTMJOB 
* 
* 
TTB:SA	EQU	*-TTMJOB	TERMINAL SAVE AREA
	DATA	0	DISPATCH ADDRESS
	DATA	0,0,0,0,0,0,0	SAVE AREA, REGISTER A1-A14
	DATA	0,0,0,0,0,0,0 
* 
TTB:TD	EQU	*-TTMJOB	TERMINAL DEVICES
	DATA	TTABE-* 
* 
TTABE	EQU	* 
* 
* 
* 
	END

Full view