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

HexDump

0x0000…0036 (0, 0, 398)  Head {h00=0x0032, h01=0x0050, text=» IDENT TTMJOB  REL 9.2 79-11-16  870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…0072              Head {h00=0x001c, h01=0x0050, text=»* MONITOR JOB TASK TABLE«, t00=0x0000, t01=0x0056}
0x0072…007c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0076}
0x007c…0086              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0080}
0x0086…0098              Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0000, t01=0x008a}
0x0098…00aa              Head {h00=0x000e, h01=0x0050, text=»*ENTRIES* «, t00=0x0000, t01=0x009c}
0x00aa…00bc              Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0000, t01=0x00ae}
0x00bc…00c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c0}
0x00c6…00d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ca}
0x00d0…00f8              Head {h00=0x0024, h01=0x0050, text=» ENTRY TTB:LA LAST LOAD ADDRESS «, t00=0x0000, t01=0x00d4}
0x00f8…0118              Head {h00=0x001c, h01=0x0050, text=» ENTRY TTB:MT MMU TABLE «, t00=0x0000, t01=0x00fc}
0x0118…0144              Head {h00=0x0028, h01=0x0050, text=» ENTRY TTB:SB SEGMENT BLOCK POINTER «, t00=0x0000, t01=0x011c}
0x0144…0166              Head {h00=0x001e, h01=0x0050, text=» ENTRY TTMJOB TABLE ENTRY «, t00=0x0000, t01=0x0148}
0x0166…0192              Head {h00=0x0028, h01=0x0050, text=» ENTRY TTB:QL DISPATCHER QUEUE LINK «, t00=0x0000, t01=0x016a}
0x0192…01bc              Head {h00=0x0026, h01=0x0050, text=» ENTRY TTB:ID TASK IDENTIFICATION «, t00=0x0001, t01=0x0008}
0x01bc…01de              Head {h00=0x001e, h01=0x0050, text=» ENTRY TTB:ST TASK STATUS «, t00=0x0001, t01=0x0032}
0x01de…0204              Head {h00=0x0022, h01=0x0050, text=» ENTRY TTB:PP PENDING POINTER «, t00=0x0001, t01=0x0054}
0x0204…022e              Head {h00=0x0026, h01=0x0050, text=» ENTRY TTB:PW PROGRAM STATUS WORD «, t00=0x0001, t01=0x007a}
0x022e…0256              Head {h00=0x0024, h01=0x0050, text=» ENTRY TTB:SA TERMINAL SAVE AREA«, t00=0x0001, t01=0x00a4}
0x0256…027c              Head {h00=0x0022, h01=0x0050, text=» ENTRY TTB:TD TERMINAL DEVICES«, t00=0x0001, t01=0x00cc}
0x027c…0286              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f2}
0x0286…029e              Head {h00=0x0014, h01=0x0050, text=» EJECT   TTMJOB «, t00=0x0001, t01=0x00fc}
0x029e…02a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0114}
0x02a8…02b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011e}
0x02b2…02e4              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x0128}
0x02e4…02ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015a}
0x02ee…030c              Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0001, t01=0x0164}
0x030c…0316              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0182}
0x0316…0348              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x018c}
0x0348…0352              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002e}
0x0352…0384              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0002, t01=0x0038}
0x0384…03b2              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0002, t01=0x006a}
0x03b2…03bc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0098}
0x03bc…03d0              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0002, t01=0x00a2}
0x03d0…03da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b6}
0x03da…03e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c0}
0x03e4…0416              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0002, t01=0x00ca}
0x0416…0444              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0002, t01=0x00fc}
0x0444…044e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012a}
0x044e…0462              Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 1«, t00=0x0002, t01=0x0134}
0x0462…046c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0148}
0x046c…0476              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0152}
0x0476…04ae              Head {h00=0x0034, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS ASSEMBLER OVERLAY«, t00=0x0002, t01=0x015c}
0x04ae…04dc (3, 0, 398)  Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING ASSOLY EQU 1.«, t00=0x0003, t01=0x0004}
0x04dc…04e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0032}
0x04e6…04fa              Head {h00=0x0010, h01=0x0050, text=»ASSOLY EQU 0«, t00=0x0003, t01=0x003c}
0x04fa…0504              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0050}
0x0504…052a              Head {h00=0x0022, h01=0x0050, text=» EJECT   TTMJOB         TTMJOB«, t00=0x0003, t01=0x005a}
0x052a…0534              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0080}
0x0534…053e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008a}
0x053e…0552              Head {h00=0x0010, h01=0x0050, text=»LA:DUM EQU *«, t00=0x0003, t01=0x0094}
0x0552…0568              Head {h00=0x0012, h01=0x0050, text=» IFT ASSOLY=1 «, t00=0x0003, t01=0x00a8}
0x0568…058a              Head {h00=0x001e, h01=0x0050, text=» DATA 0 LAST LOAD ADDRESS «, t00=0x0003, t01=0x00be}
0x058a…0596              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0003, t01=0x00e0}
0x0596…05a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ec}
0x05a0…05b4              Head {h00=0x0010, h01=0x0050, text=»MMUDUM EQU *«, t00=0x0003, t01=0x00f6}
0x05b4…05ca              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0003, t01=0x010a}
0x05ca…05f0              Head {h00=0x0022, h01=0x0050, text=» DATA /0000,/0400,/0800,/0C00 «, t00=0x0003, t01=0x0120}
0x05f0…0616              Head {h00=0x0022, h01=0x0050, text=» DATA /1000,/1400,/1800,/1C00 «, t00=0x0003, t01=0x0146}
0x0616…063c              Head {h00=0x0022, h01=0x0050, text=» DATA /2000,/2400,/2800,/2C00 «, t00=0x0003, t01=0x016c}
0x063c…0662 (4, 0, 400)  Head {h00=0x0022, h01=0x0050, text=» DATA /3000,/3400,/3800,/3C00 «, t00=0x0004, t01=0x0004}
0x0662…066e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x002a}
0x066e…0678              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0036}
0x0678…068c              Head {h00=0x0010, h01=0x0050, text=»SB:DUM EQU *«, t00=0x0004, t01=0x0040}
0x068c…06a8              Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x0004, t01=0x0054}
0x06a8…06ce              Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT BLOCK ADDRESS «, t00=0x0004, t01=0x0070}
0x06ce…06da              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x0096}
0x06da…0714              Head {h00=0x0036, h01=0x0050, text=»TTB:LA EQU LA:DUM-* LAST LOAD ADDRESS DISPLACEMENT«, t00=0x0004, t01=0x00a2}
0x0714…0746              Head {h00=0x002e, h01=0x0050, text=»TTB:MT EQU MMUDUM-* MMU TABLE DISPLACEMENT«, t00=0x0004, t01=0x00dc}
0x0746…0784              Head {h00=0x003a, h01=0x0050, text=»TTB:SB EQU SB:DUM-* SEGMENT BLOCK ADDRESS DISPLACEMENT«, t00=0x0004, t01=0x010e}
0x0784…078e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x014c}
0x078e…07a6              Head {h00=0x0014, h01=0x0050, text=» EJECT   TTMJOB «, t00=0x0004, t01=0x0156}
0x07a6…07b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x016e}
0x07b0…07ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0178}
0x07ba…07dc              Head {h00=0x001e, h01=0x0050, text=»TTMJOB EQU * TTMJOB ENTRY «, t00=0x0004, t01=0x0182}
0x07dc…080e              Head {h00=0x002e, h01=0x0050, text=»TTB:QL EQU *-TTMJOB DISPATCHER QUEUE LINK «, t00=0x0005, t01=0x0014}
0x080e…081e              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0005, t01=0x0046}
0x081e…0828              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0056}
0x0828…0858              Head {h00=0x002c, h01=0x0050, text=»TTB:ID EQU *-TTMJOB TASK IDENTIFICATION «, t00=0x0005, t01=0x0060}
0x0858…086a              Head {h00=0x000e, h01=0x0050, text=» DATA '#M'«, t00=0x0005, t01=0x0090}
0x086a…0874              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a2}
0x0874…089c              Head {h00=0x0024, h01=0x0050, text=»TTB:ST EQU *-TTMJOB TASK STATUS «, t00=0x0005, t01=0x00ac}
0x089c…08ac              Head {h00=0x000c, h01=0x0050, text=» DATA 49«, t00=0x0005, t01=0x00d4}
0x08ac…08b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e4}
0x08b6…08e2              Head {h00=0x0028, h01=0x0050, text=»TTB:PP EQU *-TTMJOB PENDING POINTER «, t00=0x0005, t01=0x00ee}
0x08e2…08f2              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0005, t01=0x011a}
0x08f2…08fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012a}
0x08fc…0918              Head {h00=0x0018, h01=0x0050, text=»TTB:PW EQU *-TTMJOB «, t00=0x0005, t01=0x0134}
0x0918…0950              Head {h00=0x0034, h01=0x0050, text=» DATA /C4C0 PROGRAM STATUS WORD FOR MONITOR JOB «, t00=0x0005, t01=0x0150}
0x0950…095a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0188}
0x095a…0972 (6, 2, 360)  Head {h00=0x0014, h01=0x0050, text=» EJECT   TTMJOB «, t00=0x0006, t01=0x0004}
0x0972…097c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001c}
0x097c…0986              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0026}
0x0986…09b4              Head {h00=0x002a, h01=0x0050, text=»TTB:SA EQU *-TTMJOB TERMINAL SAVE AREA«, t00=0x0006, t01=0x0030}
0x09b4…09d4              Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x0006, t01=0x005e}
0x09d4…0a0a              Head {h00=0x0032, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 SAVE AREA, REGISTER A1-A14«, t00=0x0006, t01=0x007e}
0x0a0a…0a26              Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0006, t01=0x00b4}
0x0a26…0a30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d0}
0x0a30…0a5c              Head {h00=0x0028, h01=0x0050, text=»TTB:TD EQU *-TTMJOB TERMINAL DEVICES«, t00=0x0006, t01=0x00da}
0x0a5c…0a72              Head {h00=0x0012, h01=0x0050, text=» DATA TTABE-* «, t00=0x0006, t01=0x0106}
0x0a72…0a7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x011c}
0x0a7c…0a90              Head {h00=0x0010, h01=0x0050, text=»TTABE EQU * «, t00=0x0006, t01=0x0126}
0x0a90…0a9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x013a}
0x0a9a…0aa4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0144}
0x0aa4…0aae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014e}
0x0aae…0aba              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0006, t01=0x0158}
0x0aba…0abe              Head {h00=0x4004, h01=0x0000}
0x0abe…0ac2              00 06 01 64                                                                                                                                                                                                                                       ┆   d┆
0x0ac2…0aca (7, 1, 8)    20 04 00 00 00 07 00 04                                                                                                                                                                                                                           ┆        ┆
0x0aca…0b1a (8, 0, 400)  4e 47 20 4d 4d 55 50 41 47 20 45 51 55 20 31 2e 00 07 01 7a 00 06 00 50 2a 20 00 08 00 18 00 10 00 50 4d 4d 55 50 41 47 5c 45 51 55 5c 30 00 08 00 22 00 06 00 50 2a 20 00 08 00 36 00 06 00 50 2a 20 00 08 00 40 00 36 00 50 2a 5c 41 20 50 52   ┆NG MMUPAG EQU 1.   z   P*        PMMUPAG EQU 0   "   P*    6   P*    @ 6 P* A PR┆
0x0b1a…0b6a              4f 47 52 41 4d 20 56 45 52 53 49 4f 4e 20 55 53 49 4e 47 20 54 48 45 20 45 58 54 45 4e 44 45 44 20 49 4e 53 54 52 55 43 54 49 4f 4e 00 08 00 4a 00 2e 00 50 2a 5c 53 45 54 20 49 53 20 4f 42 54 41 49 4e 45 44 20 42 59 20 53 45 54 54 49 4e 47   ┆OGRAM VERSION USING THE EXTENDED INSTRUCTION   J . P* SET IS OBTAINED BY SETTING┆
0x0b6a…0bba              20 43 50 55 38 35 32 20 45 51 55 20 30 2e 00 08 00 84 00 06 00 50 2a 20 00 08 00 b6 00 10 00 50 43 50 55 38 35 32 5c 45 51 55 5c 31 00 08 00 c0 00 06 00 50 2a 20 00 08 00 d4 00 06 00 01 2a 20 00 08 00 de 00 2e 00 2a 2a 5c 41 20 50 52 4f 47   ┆ CPU852 EQU 0.       P*        PCPU852 EQU 1       P*         *      . ** A PROG┆
0x0bba…0c0a              52 41 4d 20 56 45 52 53 49 4f 4e 20 55 53 49 4e 47 20 54 4f 53 53 20 44 49 53 43 20 50 41 47 49 4e 47 00 08 00 e8 00 2a 00 26 2a 5c 49 53 20 4f 42 54 41 49 4e 45 44 20 42 59 20 53 45 54 54 49 4e 47 20 44 53 4b 50 41 47 20 45 51 55 20 31 2e   ┆RAM VERSION USING TOSS DISC PAGING     * &* IS OBTAINED BY SETTING DSKPAG EQU 1.┆
0x0c0a…0c5a              00 08 01 1a 00 06 00 01 2a 20 00 08 01 48 00 10 00 50 44 53 4b 50 41 47 5c 45 51 55 5c 30 00 08 01 52 00 06 00 01 2a 20 00 08 01 66 00 12 00 50 5c 45 4a 45 43 54 5c 5c 5c 4d 53 55 42 53 00 08 01 70 00 06 00 50 2a 20 00 08 01 86 00 06 00 50   ┆        *    H   PDSKPAG EQU 0   R    *    f   P EJECT   MSUBS   p   P*        P┆
0x0c5a…0caa (9, 0, 400)  2a 20 00 08 01 90 00 12 00 50 2a 20 20 20 53 20 41 20 56 20 45 20 38 20 00 09 00 0a 00 06 00 50 2a 20 00 09 00 20 00 30 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 53 41 56 45 20 38 20 52 45 47 49 53 54 45 52 53 20 4f 4e 20   ┆*        P*   S A V E 8        P*      0 P*   SUBROUTINE TO SAVE 8 REGISTERS ON ┆
0x0caa…0cfa              53 54 41 43 4b 20 00 09 00 2a 00 24 00 50 2a 20 20 20 57 49 54 48 4f 55 54 20 45 4e 41 42 4c 49 4e 47 20 49 4e 54 45 52 52 55 50 54 53 2e 00 09 00 5e 00 06 00 50 2a 20 00 09 00 86 00 06 00 50 2a 20 00 09 00 90 00 10 00 50 53 41 56 45 38 5c   ┆STACK    * $ P*   WITHOUT ENABLING INTERRUPTS.   ^   P*        P*        PSAVE8 ┆
0x0cfa…0d4a              45 51 55 5c 2a 20 00 09 00 9a 00 1c 00 50 5c 49 4e 48 5c 5c 49 4e 48 49 42 49 54 20 49 4e 54 45 52 52 55 50 54 53 00 09 00 ae 00 10 00 50 5c 53 54 52 5c 41 33 2c 41 31 35 20 00 09 00 ce 00 10 00 50 5c 53 54 52 5c 41 34 2c 41 31 35 20 00 09   ┆EQU *        P INH  INHIBIT INTERRUPTS       P STR A3,A15        P STR A4,A15   ┆
0x0d4a…0d9a              00 e2 00 10 00 50 5c 53 54 52 5c 41 35 2c 41 31 35 20 00 09 00 f6 00 10 00 50 5c 53 54 52 5c 41 36 2c 41 31 35 20 00 09 01 0a 00 10 00 50 5c 53 54 52 5c 41 37 2c 41 31 35 20 00 09 01 1e 00 10 00 50 5c 53 54 52 5c 41 38 2c 41 31 35 20 00 09   ┆     P STR A5,A15        P STR A6,A15        P STR A7,A15        P STR A8,A15   ┆
0x0d9a…0dea              01 32 00 2c 00 50 5c 4c 44 5c 41 33 2c 31 36 2c 41 31 35 5c 4c 4f 41 44 20 50 2e 43 2e 20 28 52 45 54 55 52 4e 20 41 44 44 52 45 53 53 29 00 09 01 46 00 2c 00 50 5c 53 54 5c 41 33 2c 53 41 56 45 38 31 5c 41 4e 44 20 4d 4f 44 49 46 59 20 42   ┆ 2 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS)   F , P ST A3,SAVE81 AND MODIFY B┆
0x0dea…0e3a (10, 0, 400) 52 41 4e 43 48 20 41 44 44 52 45 53 53 20 00 09 01 76 00 12 00 50 5c 53 54 5c 41 32 2c 31 34 2c 41 31 35 20 00 0a 00 16 00 12 00 50 5c 53 54 5c 41 31 2c 31 36 2c 41 31 35 20 00 0a 00 2c 00 1c 00 50 5c 4c 44 5c 41 33 2c 31 32 2c 41 31 35 5c   ┆RANCH ADDRESS    v   P ST A2,14,A15        P ST A1,16,A15    ,   P LD A3,12,A15 ┆
0x0e3a…0e8a              52 45 53 54 4f 52 45 20 41 33 00 0a 00 42 00 26 00 50 5c 41 42 4c 5c 30 5c 54 48 49 53 20 49 53 20 55 53 45 44 20 54 4f 20 42 52 41 4e 43 48 20 42 41 43 4b 00 0a 00 62 00 12 00 50 53 41 56 45 38 31 5c 45 51 55 5c 2a 2d 32 00 0a 00 8c 00 06   ┆RESTORE A3   B & P ABL 0 THIS IS USED TO BRANCH BACK   b   PSAVE81 EQU *-2      ┆
0x0e8a…0eda              00 50 2a 20 00 0a 00 a2 00 12 00 50 5c 45 4a 45 43 54 5c 5c 5c 4d 53 55 42 53 00 0a 00 ac 00 06 00 50 2a 20 00 0a 00 c2 00 06 00 50 2a 20 00 0a 00 cc 00 12 00 50 2a 20 20 20 51 20 54 20 4a 20 4f 20 42 20 00 0a 00 d6 00 06 00 50 2a 20 00 0a   ┆ P*        P EJECT   MSUBS       P*        P*        P*   Q T J O B        P*   ┆
0x0eda…0f2a              00 ec 00 32 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 51 55 45 55 45 20 54 41 53 4b 20 46 4f 52 20 44 49 53 50 41 54 43 48 49 4e 47 2e 20 00 0a 00 f6 00 06 00 50 2a 20 00 0a 01 2c 00 1a 00 50 2a 20 20 20 45 4e 54 52 59 20   ┆   2 P*   SUBROUTINE TO QUEUE TASK FOR DISPATCHING.        P*    ,   P*   ENTRY ┆
0x0f2a…0f7a              50 41 52 41 4d 45 54 45 52 3a 2d 20 00 0a 01 36 00 06 00 50 2a 20 00 0a 01 54 00 32 00 50 2a 20 20 20 41 35 20 3d 20 54 54 41 42 20 41 44 44 52 45 53 53 20 4f 46 20 50 52 4f 47 52 41 4d 20 54 4f 20 42 45 20 51 55 45 55 45 44 2e 00 0a 01 5e   ┆PARAMETER:-    6   P*    T 2 P*   A5 = TTAB ADDRESS OF PROGRAM TO BE QUEUED.   ^┆
0x0f7a…0fca (11, 0, 400) 00 06 00 50 2a 20 00 0b 00 04 00 38 00 50 2a 20 20 20 54 48 45 20 52 45 51 55 45 53 54 45 44 20 4a 4f 42 20 49 53 20 50 55 54 20 49 4e 20 44 49 53 50 41 54 43 48 45 52 20 51 55 45 55 45 20 4f 4e 20 00 0b 00 0e 00 38 00 50 2a 20 20 20 50 52   ┆   P*      8 P*   THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON      8 P*   PR┆
0x0fca…101a              49 4f 52 49 54 59 20 42 41 53 49 53 2e 20 57 49 54 48 49 4e 20 4f 4e 45 20 50 52 49 4f 52 49 54 59 20 4c 45 56 45 4c 20 4a 4f 42 20 49 53 00 0b 00 4a 00 1a 00 50 2a 20 20 20 50 55 54 20 4c 41 53 54 20 49 4e 20 51 55 45 55 45 2e 00 0b 00 86   ┆IORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS   J   P*   PUT LAST IN QUEUE.    ┆
0x101a…106a              00 06 00 50 2a 20 00 0b 00 a4 00 06 00 50 2a 20 00 0b 00 ae 00 10 00 50 51 54 4a 4f 42 5c 45 51 55 5c 2a 20 00 0b 00 b8 00 08 00 50 5c 49 4e 48 00 0b 00 cc 00 06 00 50 2a 20 00 0b 00 d8 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20   ┆   P*        P*        PQTJOB EQU *        P INH       P*        P IFT CPU852=1 ┆
0x106a…10ba              00 0b 00 e2 00 24 00 50 5c 53 54 52 5c 41 31 2c 41 31 35 5c 53 41 56 45 20 41 31 2d 41 33 20 4f 4e 20 53 54 41 43 4b 20 00 0b 00 f8 00 10 00 50 5c 53 54 52 5c 41 32 2c 41 31 35 20 00 0b 01 20 00 10 00 50 5c 53 54 52 5c 41 33 2c 41 31 35 20   ┆     $ P STR A1,A15 SAVE A1-A3 ON STACK        P STR A2,A15        P STR A3,A15 ┆
0x10ba…110a              00 0b 01 34 00 08 00 50 5c 58 49 46 00 0b 01 48 00 06 00 50 2a 20 00 0b 01 54 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 0b 01 5e 00 22 00 50 5c 4d 53 52 5c 33 2c 41 31 35 5c 53 41 56 45 20 41 31 2d 41 33 20 4f 4e 20 53 54 41   ┆   4   P XIF   H   P*    T   P IFT CPU852=0    ^ " P MSR 3,A15 SAVE A1-A3 ON STA┆
0x110a…115a (12, 0, 400) 43 4b 00 0b 01 74 00 08 00 50 5c 58 49 46 00 0c 00 0a 00 06 00 50 2a 20 00 0c 00 16 00 2e 00 50 5c 4c 44 4b 4c 5c 41 31 2c 44 49 53 51 55 45 5c 4c 4f 41 44 20 51 55 45 55 45 20 41 4e 43 48 4f 52 20 41 44 44 52 45 53 53 20 00 0c 00 20 00 32   ┆CK   t   P XIF       P*      . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS      2┆
0x115a…11aa              00 50 5c 4c 44 52 2a 5c 41 32 2c 41 31 5c 47 45 54 20 41 44 44 52 45 53 53 20 4f 46 20 46 49 52 53 54 20 54 41 53 4b 20 49 4e 20 51 55 45 55 45 00 0c 00 52 00 20 00 50 5c 52 46 28 5a 29 5c 51 54 4a 30 32 30 5c 44 49 53 51 55 45 20 45 4d 50   ┆ P LDR* A2,A1 GET ADDRESS OF FIRST TASK IN QUEUE   R   P RF(Z) QTJ020 DISQUE EMP┆
0x11aa…11fa              54 59 3f 20 00 0c 00 88 00 2a 00 50 5c 4c 44 5c 41 33 2c 54 54 42 3a 53 54 2b 31 2c 41 35 5c 47 45 54 20 50 52 49 4f 52 49 54 59 20 4c 45 56 45 4c 20 00 0c 00 ac 00 06 00 50 2a 20 00 0c 00 da 00 12 00 50 5c 45 4a 45 43 54 5c 5c 5c 4d 53 55   ┆TY?      * P LD A3,TTB:ST+1,A5 GET PRIORITY LEVEL        P*        P EJECT   MSU┆
0x11fa…124a              42 53 00 0c 00 e4 00 06 00 50 2a 20 00 0c 00 fa 00 06 00 50 2a 20 00 0c 01 04 00 36 00 50 51 54 4a 30 31 30 5c 43 43 5c 41 33 2c 54 54 42 3a 53 54 2b 31 2c 41 32 5c 43 4f 4d 50 41 52 45 20 57 49 54 48 20 51 55 45 55 45 44 20 4c 45 56 45 4c   ┆BS       P*        P*      6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL┆
0x124a…129a              00 0c 01 0e 00 1a 00 50 5c 52 46 28 4c 29 5c 51 54 4a 30 32 30 5c 49 4e 53 45 52 54 3f 20 00 0c 01 48 00 1c 00 50 5c 4c 44 52 5c 41 31 2c 41 32 5c 53 41 56 45 20 41 44 44 52 45 53 53 20 00 0c 01 66 00 2e 00 50 5c 4c 44 52 2a 5c 41 32 2c 41   ┆       P RF(L) QTJ020 INSERT?    H   P LDR A1,A2 SAVE ADDRESS    f . P LDR* A2,A┆

Reduced view