|
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: 4762 (0x129a)
Notes: pts_type(SC)
Names: »TTMJOB.SC«
└─⟦025d39960⟧ Bits:30009672 Philips computer tape "600133"
└─⟦this⟧ »M:DSB/TTMJOB.SC«
└─⟦1fa4b7c7b⟧ Bits:30009694 Philips computer tape "600410A"
└─⟦this⟧ »MODMON/TTMJOB.SC«
└─⟦245262b9f⟧ Bits:30009679 Philips computer tape "600220"
└─⟦this⟧ »M:92NA/TTMJOB.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »M:92OD/TTMJOB.SC«
└─⟦470bcbfc6⟧ Bits:30009709 Philips computer tape "M_92LP"
└─⟦this⟧ »M:92LP/TTMJOB.SC«
└─⟦6349b94c6⟧ Bits:30009684 Philips computer tape "600308"
└─⟦this⟧ »M:92D1/TTMJOB.SC«
└─⟦726a6c4ca⟧ Bits:30009685 Philips computer tape "600309"
└─⟦this⟧ »M:92D2/TTMJOB.SC«
└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
└─⟦this⟧ »M:92NA/TTMJOB.SC«
└─⟦a25d6defe⟧ Bits:30009676 Philips computer tape "600210"
└─⟦this⟧ »M:92NA/TTMJOB.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 0 * * * 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
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=0x0001, text=»* «, t00=0x0002, t01=0x00c0}
0x03e4…0416 Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0002, t01=0x00ca}
0x0416…0444 Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0002, t01=0x00fc}
0x0444…044e Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0002, t01=0x012a}
0x044e…0462 Head {h00=0x0010, h01=0x000c, text=»DSKPAG EQU 0«, t00=0x0002, t01=0x0134}
0x0462…046c Head {h00=0x0006, h01=0x0001, 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┆