|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4428 (0x114c)
Notes: pts_type(SC)
Names: »TTMJOB.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:DE10/TTMJOB.SC«
└─⟦this⟧ »M:LP/TTMJOB.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:DE10/TTMJOB.SC«
└─⟦this⟧ »M:LP/TTMJOB.SC«
IDENT TTMJOB REL 10.0 80-03-14 870105041000 * * * 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 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 -46 ALLOCATION BIT MAP * TTB:MT EQU -38 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 -6 CURRENT SEGMENT BASE DATA 0 * TTB:SP EQU -4 SEGMENT TABLE ADDRESS DISPLACEMENT DATA 0 * TTB:SB EQU -2 SEGMENT BLOCK ADDRESS DISPLACEMENT 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
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT TTMJOB REL 10.0 80-03-14 870105041000 «, 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…00f4 Head {h00=0x0020, h01=0x0050, text=» ENTRY TTB:AM ALLOCATION MAP«, t00=0x0000, t01=0x00d4}
0x00f4…0114 Head {h00=0x001c, h01=0x0050, text=» ENTRY TTB:MT MMU TABLE «, t00=0x0000, t01=0x00f8}
0x0114…013e Head {h00=0x0026, h01=0x0050, text=» ENTRY TTB:CB CURRENT SEGMENT BASE«, t00=0x0000, t01=0x0118}
0x013e…016a Head {h00=0x0028, h01=0x0050, text=» ENTRY TTB:SP SEGMENT TABLE ADDRESS «, t00=0x0000, t01=0x0142}
0x016a…0196 Head {h00=0x0028, h01=0x0050, text=» ENTRY TTB:SB SEGMENT BLOCK ADDRESS «, t00=0x0000, t01=0x016e}
0x0196…01b8 Head {h00=0x001e, h01=0x0050, text=» ENTRY TTMJOB TABLE ENTRY «, t00=0x0001, t01=0x000a}
0x01b8…01e4 Head {h00=0x0028, h01=0x0050, text=» ENTRY TTB:QL DISPATCHER QUEUE LINK «, t00=0x0001, t01=0x002c}
0x01e4…020e Head {h00=0x0026, h01=0x0050, text=» ENTRY TTB:ID TASK IDENTIFICATION «, t00=0x0001, t01=0x0058}
0x020e…0230 Head {h00=0x001e, h01=0x0050, text=» ENTRY TTB:ST TASK STATUS «, t00=0x0001, t01=0x0082}
0x0230…0256 Head {h00=0x0022, h01=0x0050, text=» ENTRY TTB:PP PENDING POINTER «, t00=0x0001, t01=0x00a4}
0x0256…0280 Head {h00=0x0026, h01=0x0050, text=» ENTRY TTB:PW PROGRAM STATUS WORD «, t00=0x0001, t01=0x00ca}
0x0280…02a8 Head {h00=0x0024, h01=0x0050, text=» ENTRY TTB:SA TERMINAL SAVE AREA«, t00=0x0001, t01=0x00f4}
0x02a8…02ce Head {h00=0x0022, h01=0x0050, text=» ENTRY TTB:TD TERMINAL DEVICES«, t00=0x0001, t01=0x011c}
0x02ce…02d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0142}
0x02d8…02f0 Head {h00=0x0014, h01=0x0050, text=» EJECT TTMJOB «, t00=0x0001, t01=0x014c}
0x02f0…02fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0164}
0x02fa…0304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016e}
0x0304…0336 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x0178}
0x0336…0340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001a}
0x0340…035e Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0002, t01=0x0024}
0x035e…0368 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0042}
0x0368…039a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x004c}
0x039a…03a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007e}
0x03a4…03d6 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0002, t01=0x0088}
0x03d6…0404 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0002, t01=0x00ba}
0x0404…040e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e8}
0x040e…0422 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0002, t01=0x00f2}
0x0422…042c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0106}
0x042c…0452 Head {h00=0x0022, h01=0x0050, text=» EJECT TTMJOB TTMJOB«, t00=0x0002, t01=0x0110}
0x0452…045c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0136}
0x045c…0466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0140}
0x0466…0490 Head {h00=0x0026, h01=0x0050, text=»TTB:AM EQU -46 ALLOCATION BIT MAP «, t00=0x0002, t01=0x014a}
0x0490…049a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0174}
0x049a…04c8 Head {h00=0x002a, h01=0x0050, text=»TTB:MT EQU -38 MMU TABLE DISPLACEMENT «, t00=0x0002, t01=0x017e}
0x04c8…04de Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0003, t01=0x001c}
0x04de…0504 Head {h00=0x0022, h01=0x0050, text=» DATA /0000,/0400,/0800,/0C00 «, t00=0x0003, t01=0x0032}
0x0504…052a Head {h00=0x0022, h01=0x0050, text=» DATA /1000,/1400,/1800,/1C00 «, t00=0x0003, t01=0x0058}
0x052a…0550 Head {h00=0x0022, h01=0x0050, text=» DATA /2000,/2400,/2800,/2C00 «, t00=0x0003, t01=0x007e}
0x0550…0576 Head {h00=0x0022, h01=0x0050, text=» DATA /3000,/3400,/3800,/3C00 «, t00=0x0003, t01=0x00a4}
0x0576…0582 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0003, t01=0x00ca}
0x0582…058c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d6}
0x058c…05b6 Head {h00=0x0026, h01=0x0050, text=»TTB:CB EQU -6 CURRENT SEGMENT BASE«, t00=0x0003, t01=0x00e0}
0x05b6…05c6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0003, t01=0x010a}
0x05c6…05d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011a}
0x05d0…0608 Head {h00=0x0034, h01=0x0050, text=»TTB:SP EQU -4 SEGMENT TABLE ADDRESS DISPLACEMENT«, t00=0x0003, t01=0x0124}
0x0608…0618 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0003, t01=0x015c}
0x0618…0622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016c}
0x0622…065a Head {h00=0x0034, h01=0x0050, text=»TTB:SB EQU -2 SEGMENT BLOCK ADDRESS DISPLACEMENT«, t00=0x0003, t01=0x0176}
0x065a…066a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0004, t01=0x001e}
0x066a…0674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002e}
0x0674…068c Head {h00=0x0014, h01=0x0050, text=» EJECT TTMJOB «, t00=0x0004, t01=0x0038}
0x068c…0696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0050}
0x0696…06a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005a}
0x06a0…06c2 Head {h00=0x001e, h01=0x0050, text=»TTMJOB EQU * TTMJOB ENTRY «, t00=0x0004, t01=0x0064}
0x06c2…06f4 Head {h00=0x002e, h01=0x0050, text=»TTB:QL EQU *-TTMJOB DISPATCHER QUEUE LINK «, t00=0x0004, t01=0x0086}
0x06f4…0704 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0004, t01=0x00b8}
0x0704…070e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00c8}
0x070e…073e Head {h00=0x002c, h01=0x0050, text=»TTB:ID EQU *-TTMJOB TASK IDENTIFICATION «, t00=0x0004, t01=0x00d2}
0x073e…0750 Head {h00=0x000e, h01=0x0050, text=» DATA '#M'«, t00=0x0004, t01=0x0102}
0x0750…075a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0114}
0x075a…0782 Head {h00=0x0024, h01=0x0050, text=»TTB:ST EQU *-TTMJOB TASK STATUS «, t00=0x0004, t01=0x011e}
0x0782…0792 Head {h00=0x000c, h01=0x0050, text=» DATA 49«, t00=0x0004, t01=0x0146}
0x0792…079c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0156}
0x079c…07c8 Head {h00=0x0028, h01=0x0050, text=»TTB:PP EQU *-TTMJOB PENDING POINTER «, t00=0x0004, t01=0x0160}
0x07c8…07d8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0004, t01=0x018c}
0x07d8…07e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000c}
0x07e2…07fe Head {h00=0x0018, h01=0x0050, text=»TTB:PW EQU *-TTMJOB «, t00=0x0005, t01=0x0016}
0x07fe…0836 Head {h00=0x0034, h01=0x0050, text=» DATA /C4C0 PROGRAM STATUS WORD FOR MONITOR JOB «, t00=0x0005, t01=0x0032}
0x0836…0840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006a}
0x0840…0858 Head {h00=0x0014, h01=0x0050, text=» EJECT TTMJOB «, t00=0x0005, t01=0x0074}
0x0858…0862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008c}
0x0862…086c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0096}
0x086c…089a Head {h00=0x002a, h01=0x0050, text=»TTB:SA EQU *-TTMJOB TERMINAL SAVE AREA«, t00=0x0005, t01=0x00a0}
0x089a…08ba Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x0005, t01=0x00ce}
0x08ba…08f0 Head {h00=0x0032, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 SAVE AREA, REGISTER A1-A14«, t00=0x0005, t01=0x00ee}
0x08f0…090c Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0005, t01=0x0124}
0x090c…0916 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0140}
0x0916…0942 Head {h00=0x0028, h01=0x0050, text=»TTB:TD EQU *-TTMJOB TERMINAL DEVICES«, t00=0x0005, t01=0x014a}
0x0942…094c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0176}
0x094c…0956 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0180}
0x0956…0960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x018a}
0x0960…096c (6, 2, 20) Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0006, t01=0x0004}
0x096c…0970 Head {h00=0x4004, h01=0x0000}
0x0970…0974 00 06 00 10 ┆ ┆
0x0974…097c (7, 1, 8) 20 04 00 00 00 07 00 04 ┆ ┆
0x097c…09cc (8, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 07 01 8c 00 06 00 50 2a 20 00 08 00 2e 00 2e 00 50 2a 5c 41 20 50 52 4f 47 52 41 4d 20 56 45 52 53 49 4f 4e 20 55 53 49 4e ┆************************************* P* . . P* A PROGRAM VERSION USIN┆
0x09cc…0a1c 47 20 54 4f 53 53 20 4d 4d 55 20 50 41 47 49 4e 47 20 00 08 00 38 00 2a 00 50 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 4d 4d 55 50 41 47 20 45 51 55 20 31 2e 00 08 00 6a 00 06 00 50 2a 20 00 08 00 98 00 10 ┆G TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* ┆
0x0a1c…0a6c 00 50 4d 4d 55 50 41 47 5c 45 51 55 5c 30 00 08 00 a2 00 06 00 50 2a 20 00 08 00 b6 00 06 00 50 2a 20 00 08 00 c0 00 36 00 50 2a 5c 41 20 50 52 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 ┆ PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED┆
0x0a6c…0abc 20 49 4e 53 54 52 55 43 54 49 4f 4e 00 08 00 ca 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 20 43 50 55 38 35 32 20 45 51 55 20 30 2e 00 08 01 04 00 06 00 50 2a 20 00 08 01 36 00 10 00 50 ┆ INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* 6 P┆
0x0abc…0b0c 43 50 55 38 35 32 5c 45 51 55 5c 31 00 08 01 40 00 06 00 50 2a 20 00 08 01 54 00 06 00 01 2a 20 00 08 01 5e 00 2e 00 2a 2a 5c 41 20 50 52 4f 47 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 ┆CPU852 EQU 1 @ P* T * ^ . ** A PROGRAM VERSION USING TOSS DISC PAGI┆
0x0b0c…0b5c (9, 0, 400) 4e 47 00 08 01 68 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 00 09 00 0a 00 06 00 01 2a 20 00 09 00 38 00 10 00 50 44 53 4b 50 41 47 5c 45 51 55 5c 30 00 09 ┆NG h * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * 8 PDSKPAG EQU 0 ┆
0x0b5c…0bac 00 42 00 06 00 01 2a 20 00 09 00 56 00 06 00 50 2a 20 00 09 00 60 00 22 00 50 53 4f 50 5c 45 51 55 5c 2f 32 45 5c 53 4f 50 20 44 45 56 49 43 45 20 41 44 44 52 45 53 53 00 09 00 6a 00 06 00 50 2a 20 00 09 00 90 00 12 00 50 5c 45 4a 45 43 54 ┆ B * V P* ` " PSOP EQU /2E SOP DEVICE ADDRESS j P* P EJECT┆
0x0bac…0bfc 5c 5c 5c 4d 53 55 42 53 00 09 00 9a 00 06 00 50 2a 20 00 09 00 b0 00 06 00 50 2a 20 00 09 00 ba 00 12 00 50 2a 20 20 20 53 20 41 20 56 20 45 20 38 20 00 09 00 c4 00 06 00 50 2a 20 00 09 00 da 00 30 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 ┆ MSUBS P* P* P* S A V E 8 P* 0 P* SUBROUTI┆
0x0bfc…0c4c 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 53 54 41 43 4b 20 00 09 00 e4 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 01 18 00 06 00 50 ┆NE TO SAVE 8 REGISTERS ON STACK $ P* WITHOUT ENABLING INTERRUPTS. P┆
0x0c4c…0c9c 2a 20 00 09 01 40 00 06 00 50 2a 20 00 09 01 4a 00 10 00 50 53 41 56 45 38 5c 45 51 55 5c 2a 20 00 09 01 54 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 01 68 00 10 00 50 5c 53 54 52 5c 41 33 2c ┆* @ P* J PSAVE8 EQU * T P INH INHIBIT INTERRUPTS h P STR A3,┆
0x0c9c…0cec (10, 0, 400) 41 31 35 20 00 09 01 88 00 10 00 50 5c 53 54 52 5c 41 34 2c 41 31 35 20 00 0a 00 0c 00 10 00 50 5c 53 54 52 5c 41 35 2c 41 31 35 20 00 0a 00 20 00 10 00 50 5c 53 54 52 5c 41 36 2c 41 31 35 20 00 0a 00 34 00 10 00 50 5c 53 54 52 5c 41 37 2c ┆A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 4 P STR A7,┆
0x0cec…0d3c 41 31 35 20 00 0a 00 48 00 10 00 50 5c 53 54 52 5c 41 38 2c 41 31 35 20 00 0a 00 5c 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 0a 00 70 00 2c 00 50 ┆A15 H P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) p , P┆
0x0d3c…0d8c 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 52 41 4e 43 48 20 41 44 44 52 45 53 53 20 00 0a 00 a0 00 12 00 50 5c 53 54 5c 41 32 2c 31 34 2c 41 31 35 20 00 0a 00 d0 00 12 00 50 5c 53 54 5c 41 31 2c 31 36 2c ┆ ST A3,SAVE81 AND MODIFY BRANCH ADDRESS P ST A2,14,A15 P ST A1,16,┆
0x0d8c…0ddc 41 31 35 20 00 0a 00 e6 00 1c 00 50 5c 4c 44 5c 41 33 2c 31 32 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 41 33 00 0a 00 fc 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 ┆A15 P LD A3,12,A15 RESTORE A3 & P ABL 0 THIS IS USED TO BRANCH BACK ┆
0x0ddc…0e2c 01 1c 00 12 00 50 53 41 56 45 38 31 5c 45 51 55 5c 2a 2d 32 00 0a 01 46 00 06 00 50 2a 20 00 0a 01 5c 00 12 00 50 5c 45 4a 45 43 54 5c 5c 5c 4d 53 55 42 53 00 0a 01 66 00 06 00 50 2a 20 00 0a 01 7c 00 06 00 50 2a 20 00 0a 01 86 00 12 00 50 ┆ PSAVE81 EQU *-2 F P* P EJECT MSUBS f P* | P* P┆
0x0e2c…0e7c (11, 0, 400) 2a 20 20 20 51 20 54 20 4a 20 4f 20 42 20 00 0a 01 90 00 06 00 50 2a 20 00 0b 00 16 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 0b ┆* Q T J O B P* 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. ┆
0x0e7c…0ecc 00 20 00 06 00 50 2a 20 00 0b 00 56 00 18 00 50 2a 20 20 20 45 4e 54 52 59 20 50 41 52 41 4d 45 54 45 52 3a 00 0b 00 60 00 06 00 50 2a 20 00 0b 00 7c 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 ┆ P* V P* ENTRY PARAMETER: ` P* | 2 P* A5 = TTAB ADDRESS OF P┆
0x0ecc…0f1c 52 4f 47 52 41 4d 20 54 4f 20 42 45 20 51 55 45 55 45 44 2e 00 0b 00 86 00 06 00 50 2a 20 00 0b 00 bc 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 ┆ROGRAM TO BE QUEUED. P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER┆
0x0f1c…0f6c 20 51 55 45 55 45 20 4f 4e 20 00 0b 00 c6 00 38 00 50 2a 20 20 20 50 52 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 01 02 00 1a 00 50 2a 20 ┆ QUEUE ON 8 P* PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS P* ┆
0x0f6c…0fbc 20 20 50 55 54 20 4c 41 53 54 20 49 4e 20 51 55 45 55 45 2e 00 0b 01 3e 00 06 00 50 2a 20 00 0b 01 5c 00 06 00 50 2a 20 00 0b 01 66 00 10 00 50 51 54 4a 4f 42 5c 45 51 55 5c 2a 20 00 0b 01 70 00 08 00 50 5c 49 4e 48 00 0b 01 84 00 06 00 50 ┆ PUT LAST IN QUEUE. > P* P* f PQTJOB EQU * p P INH P┆
0x0fbc…100c (12, 0, 400) 2a 20 00 0b 01 90 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 0c 00 0a 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 0c 00 20 00 10 00 50 5c 53 54 52 5c 41 32 2c ┆* P IFT CPU852=1 $ P STR A1,A15 SAVE A1-A3 ON STACK P STR A2,┆
0x100c…105c 41 31 35 20 00 0c 00 48 00 10 00 50 5c 53 54 52 5c 41 33 2c 41 31 35 20 00 0c 00 5c 00 08 00 50 5c 58 49 46 00 0c 00 70 00 06 00 50 2a 20 00 0c 00 7c 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 0c 00 86 00 22 00 50 5c 4d 53 52 ┆A15 H P STR A3,A15 P XIF p P* | P IFT CPU852=0 " P MSR┆
0x105c…10ac 5c 33 2c 41 31 35 5c 53 41 56 45 20 41 31 2d 41 33 20 4f 4e 20 53 54 41 43 4b 00 0c 00 9c 00 08 00 50 5c 58 49 46 00 0c 00 c2 00 06 00 50 2a 20 00 0c 00 ce 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 ┆ 3,A15 SAVE A1-A3 ON STACK P XIF P* . P LDKL A1,DISQUE LOAD QUE┆
0x10ac…10fc 55 45 20 41 4e 43 48 4f 52 20 41 44 44 52 45 53 53 20 00 0c 00 d8 00 32 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 01 0a 00 1e 00 50 ┆UE ANCHOR ADDRESS 2 P LDR* A2,A1 GET ADDRESS OF FIRST TASK IN QUEUE P┆
0x10fc…114c 5c 52 46 28 5a 29 5c 51 54 4a 30 32 30 5c 44 49 53 51 55 45 20 45 4d 50 54 59 00 0c 01 40 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 01 62 00 06 00 50 ┆ RF(Z) QTJ020 DISQUE EMPTY @ * P LD A3,TTB:ST+1,A5 GET PRIORITY LEVEL b P┆