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

⟦504bddae8⟧ 

    Length: 4548 (0x11c4)
    Notes: pts_type(SC)
    Names: »TTMJOB.SC«

Derivation

└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
    └─⟦this⟧ »TOSSWORK/TTMJOB.SC« 
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
    └─⟦this⟧ »TOSSWORK/TTMJOB.SC«

PTS(SC)

	IDENT TTMJOB 	REL 11.0 81-01-26 870105041100 

* 
* 
*	MONITOR JOB TASK TABLE
* 
* 
********* 
*ENTRIES* 
********* 
* 
* 
	ENTRY	TTB:AM	ALLOCATION MAP
	ENTRY	TTB:MT	MMU TABLE 
	ENTRY	TTB:CB	CURRENT SEGMENT BASE
	ENTRY	TTB:SP	SEGMENT TABLE ADDRESS 
	ENTRY	TTB:SB	SEGMENT BLOCK ADDRESS 
	ENTRY	TTB:AP	ACB ADDRESS 
	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	0
* 
	EJECT			TTMJOB      			TTMJOB
* 
* 
TTB:AM	EQU	-48	ALLOCATION BIT MAP 
* 
TTB:MT	EQU	-40	MMU TABLE DISPLACEMENT 
	IFT	MMUPAG=1 
	DATA	/0000,/0400,/0800,/0C00 
	DATA	/1000,/1400,/1800,/1C00 
	DATA	/2000,/2400,/2800,/2C00 
	DATA	/3000,/3400,/3800,/3C00 
	XIF
* 
TTB:CB	EQU	-8	CURRENT SEGMENT BASE
	DATA	0 
* 
TTB:SP	EQU	-6	SEGMENT TABLE ADDRESS DISPLACEMENT
	DATA	0 
* 
TTB:SB	EQU	-4	SEGMENT BLOCK ADDRESS DISPLACEMENT
	DATA	0 
* 
TTB:AP	EQU	-2	APPLICATION CONTROL BLOCK ADDRESS DISPL.
	DATA	0 
* 
	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
* 
* 
* 
	END

Full view