|
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: 7994 (0x1f3a)
Notes: pts_type(SC)
Names: »TPROC.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PTMON/TPROC.SC«
└─⟦7b35573c9⟧ Bits:30009690 Philips computer tape "600402"
└─⟦this⟧ »M:AF/TPROC.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PTMON/TPROC.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »MONGEN/TPROC.SC«
IDENT TPROC REL 11.0 81-03-05 870105041100 =1, A4 PARAM. NOT TRANSM. WHEN LKM ACTIV. =1, REL 11.0 81-01-26 * * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TPROC = TOSS LKM PROCESSORS * * * * * * ************************************************** * * * THIS MODULE CONTAINS THE FOLLOWING * TOSS LKM PROCESSORS: * * - TWAIT = WAIT * * - TMWAIT = MULTIPLE WAIT * * - TACTOT = ACTIVATE/RESTART TASK * EJECT TPROC * * *********** * ENTRIES * *********** * * ENTRY TWAIT WAIT PROCESSOR ENTRY TMWAIT MULTIPLE WAIT PROCESSOR ENTRY TACTOT ACTIVATE/RESTART PROCESSOR EJECT TPROC * * ************* * EXTERNALS * ************* * * EXTRN TDISP DISPATCHER EXTRN QTJOB QUEUE TASK FOR DISPATCHING EXTRN LKMQDI QUEUE TASK AND DISPATCH EXTRN ACTDIS ACTIVATE TASK AND DISPATCH EXTRN LKMRQE LKM REQUEST ERROR EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID EXTRN TTB:SA TTAB SAVE AREA EXTRN DWTST DWT STATUS EXTRN DWTTAB TTAB ADDRESS EXTRN DWTWAT WAIT/ACTIVATE INDICATOR EJECT TPROC * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * EJECT TPROC * * ******** * WAIT * ******** * * * THIS IS THE WAIT LKM PROCESSOR. * * THIS MODULE IS ENTERED WHEN THE TASK * WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. * * IT IS ENTERED FROM THE LKM HANDLER * WITH THE FOLLOWING PARAMETERS: * * A5 = TTAB ADDRESS * A8 = ECB ADDRESS * * TWAIT CF A15,FNDDWT SEARCH DWT ADDRESS ADK A6,0 SET CR RF(Z) TP:RQE FILE CODE NOT FOUND * IFT MMUPAG=0 LDR* A1,A8 RETURN IF EVENT COMPLETED XIF * IFT MMUPAG=1 ELR A1,A8 RETURN IF EVENT COMPLETED XIF * RF(N) TP:QDI I/O ALREADY COMPLETED IM DWTWAT,A6 NO, SET WAIT INDICATOR IN DWT * T:DISP ABL TDISP GO TO DISPATCHER * EJECT TPROC * * ********** * TACTOT * ********** * * * THIS IS THE ACTIVATE/RESTART TASK LKM PROCESSOR. * * THIS MODULE IS ENTERED FROM THE LKM HANDLER * WHEN A TASK HAS TO BE ACTIVATED. * * THE FOLLOWING PARAMETERS ARE SUPPLIED:- * * A1 = PARAMETER WHEN A4 NOT ZERO * A4 = START ADDRESS AT ACTIVATION, ELSE ZERO * A5 = TTAB * A7 = IDENTIFICATION FOR TASK TO BE ACTIVATED * * TACTOT EQU * CF A15,FNDTID FIND TTAB ADDRESS ADK A2,0 SET CR RF(Z) TP:RQE TASK NOT IN SYSTEM CF A15,QTJOB QUEUE CALLING TASK FOR DISPATCHING LD A3,TTB:SA+6,A5 GET SEGMENT NUMBER LD A7,TTB:SA+8,A5 A4 PARAMETER =1 LDR A5,A2 LDR A2,A4 RF(Z) TP:QDI RESTART: QUEUE FOR DISPATCHING LDR A4,A7 A4 PARAMETER =1 ABL ACTDIS ACTIVATE TASK AND DISPATCH * EJECT TPROC * * ********** * TMWAIT * ********** * * * THIS IS THE MULTIPLE WAIT LKM PROCESSOR. * * IT IS ENTERED FROM THE LKM HANDLER * WITH THE FOLLOWING PARAMETERS: * * A5 = TTAB ADDRESS * A7 = ECBBLK ADDRESS * * WHEN ONE OF THE SPECIFIED EVENTS IS COMPLETED, * RETURN IS MADE TO THE CALLING TASK VIA TENDIO * WITH THE FOLLOWING PARAMETERS: * * A8 = ECB ADDRESS OF COMPLETED EVENT * * IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO). * * NOTICE THAT ALL EVENTS MUST HAVE * BEEN ISSUED IN THE NO WAIT MODE. * * EJECT TPROC * * TMWAIT EQU * MULTIPLE WAIT ENTRY LDK A3,0 * IFT MMUPAG=0 LDR* A1,A7 GET NO OF ECB:S IN ECBBLK XIF * IFT MMUPAG=1 ELR A1,A7 GET NO OF ECB:S IN ECBBLK XIF * RF(NP) TP:RQE REQUEST ERROR IF <= 0 * TMW:10 EQU * ADK A7,2 POINT TO NEXT ECB ADDRESS IN ECBBLK * IFT MMUPAG=0 LDR* A8,A7 GET ECB ADDRESS LDR* A2,A8 GET FIRST WORD OF ECB XIF * IFT MMUPAG=1 ELR A8,A7 GET ECB ADDRESS ELR A2,A8 GET FIRST WORD OF ECB XIF * RF(N) TMW:30 I/O ALREADY COMPLETED CF A15,FNDDWT NO, SEARCH DWT ADDRESS FROM FILE CODE ADK A6,0 SET CR RF(Z) TP:RQE NOT FOUND * EJECT TPROC * * LD A2,DWTST,A6 GET DWT STATUS RF(N) TP:RQE NOT BUSY CW A5,DWTTAB,A6 RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR RF(NZ) TP:RQE REQUEST ISSUED WITH WAIT ORK A6,1 SET BIT 15 ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR RF(NZ) TMW:20 NOT THE FIRST ECB IN ECBBLK LDR A9,A6 SAVE FIRST DWT ADDRESS LDR A3,A6 * TMW:20 EQU * ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE LDR A9,A6 SAVE THIS DWT ADDRESS SUK A1,1 RB(P) TMW:10 MORE ECB:S IN ECBBLK ST A3,DWTWAT,A9 NO, SET FIRST DWT ADDRESS IN THE LAST RB T:DISP GO TO DISPATCHER * TMW:30 EQU * ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR RF(Z) TP:QDI FIRST ECB IN ECBBLK * TMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR LDR* A2,A3 GET NEXT DWT ADDRESS RF(Z) TP:QDI NO MORE DWT:S CMR A3 SET TO NO WAIT AGAIN LDR A3,A2 RB TMW:40 * EJECT TPROC * * TP:RQE EQU * ABL LKMRQE LKM REQUEST ERROR * TP:QDI EQU * ABL LKMQDI QUEUE TASK AND DISPATCH * * * END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT TPROC REL 11.0 81-03-05 870105041100«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0070 Head {h00=0x0030, h01=0x0050, text=» =1, A4 PARAM. NOT TRANSM. WHEN LKM ACTIV.«, t00=0x0000, t01=0x0040}
0x0070…0090 Head {h00=0x001c, h01=0x0050, text=» =1, REL 11.0 81-01-26«, t00=0x0000, t01=0x0074}
0x0090…009a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0094}
0x009a…00a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009e}
0x00a4…00de Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x00a8}
0x00de…00e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e2}
0x00e8…0110 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00ec}
0x0110…011a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0114}
0x011a…0142 Head {h00=0x0024, h01=0x0050, text=»* TPROC = TOSS LKM PROCESSORS «, t00=0x0000, t01=0x011e}
0x0142…014c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0146}
0x014c…0156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0150}
0x0156…0160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…016a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0164}
0x016a…0174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016e}
0x0174…017e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0178}
0x017e…01b8 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0182}
0x01b8…01c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002c}
0x01c2…01cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0036}
0x01cc…01fa Head {h00=0x002a, h01=0x0050, text=»* THIS MODULE CONTAINS THE FOLLOWING«, t00=0x0001, t01=0x0040}
0x01fa…021a Head {h00=0x001c, h01=0x0050, text=»* TOSS LKM PROCESSORS:«, t00=0x0001, t01=0x006e}
0x021a…0224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008e}
0x0224…0240 Head {h00=0x0018, h01=0x0050, text=»* - TWAIT = WAIT «, t00=0x0001, t01=0x0098}
0x0240…024a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b4}
0x024a…026e Head {h00=0x0020, h01=0x0050, text=»* - TMWAIT = MULTIPLE WAIT«, t00=0x0001, t01=0x00be}
0x026e…0278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e2}
0x0278…02a4 Head {h00=0x0028, h01=0x0050, text=»* - TACTOT = ACTIVATE/RESTART TASK«, t00=0x0001, t01=0x00ec}
0x02a4…02ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0118}
0x02ae…02c4 Head {h00=0x0012, h01=0x0050, text=» EJECT TPROC«, t00=0x0001, t01=0x0122}
0x02c4…02ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0138}
0x02ce…02d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0142}
0x02d8…02ec Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x014c}
0x02ec…0300 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x0160}
0x0300…0314 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x0174}
0x0314…031e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0188}
0x031e…0328 (2, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x0328…034c Head {h00=0x0020, h01=0x0050, text=» ENTRY TWAIT WAIT PROCESSOR «, t00=0x0002, t01=0x000e}
0x034c…037a Head {h00=0x002a, h01=0x0050, text=» ENTRY TMWAIT MULTIPLE WAIT PROCESSOR «, t00=0x0002, t01=0x0032}
0x037a…03aa Head {h00=0x002c, h01=0x0050, text=» ENTRY TACTOT ACTIVATE/RESTART PROCESSOR«, t00=0x0002, t01=0x0060}
0x03aa…03c0 Head {h00=0x0012, h01=0x0050, text=» EJECT TPROC«, t00=0x0002, t01=0x0090}
0x03c0…03ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a6}
0x03ca…03d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b0}
0x03d4…03ea Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x00ba}
0x03ea…0400 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0002, t01=0x00d0}
0x0400…0416 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x00e6}
0x0416…0420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fc}
0x0420…042a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0106}
0x042a…044a Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0002, t01=0x0110}
0x044a…047a Head {h00=0x002c, h01=0x0050, text=» EXTRN QTJOB QUEUE TASK FOR DISPATCHING «, t00=0x0002, t01=0x0130}
0x047a…04a8 Head {h00=0x002a, h01=0x0050, text=» EXTRN LKMQDI QUEUE TASK AND DISPATCH «, t00=0x0002, t01=0x0160}
0x04a8…04d8 Head {h00=0x002c, h01=0x0050, text=» EXTRN ACTDIS ACTIVATE TASK AND DISPATCH«, t00=0x0002, t01=0x018e}
0x04d8…0500 Head {h00=0x0024, h01=0x0050, text=» EXTRN LKMRQE LKM REQUEST ERROR «, t00=0x0003, t01=0x002e}
0x0500…0536 Head {h00=0x0032, h01=0x0050, text=» EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE «, t00=0x0003, t01=0x0056}
0x0536…056a Head {h00=0x0030, h01=0x0050, text=» EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID«, t00=0x0003, t01=0x008c}
0x056a…058e Head {h00=0x0020, h01=0x0050, text=» EXTRN TTB:SA TTAB SAVE AREA«, t00=0x0003, t01=0x00c0}
0x058e…05ae Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT STATUS «, t00=0x0003, t01=0x00e4}
0x05ae…05d0 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB ADDRESS«, t00=0x0003, t01=0x0104}
0x05d0…05fe Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTWAT WAIT/ACTIVATE INDICATOR «, t00=0x0003, t01=0x0126}
0x05fe…0614 Head {h00=0x0012, h01=0x0050, text=» EJECT TPROC«, t00=0x0003, t01=0x0154}
0x0614…061e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016a}
0x061e…0628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0174}
0x0628…065a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0003, t01=0x017e}
0x065a…0664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0020}
0x0664…0682 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x002a}
0x0682…068c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0048}
0x068c…06be Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0004, t01=0x0052}
0x06be…06c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0084}
0x06c8…06fa Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0004, t01=0x008e}
0x06fa…0728 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0004, t01=0x00c0}
0x0728…0732 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ee}
0x0732…0746 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0004, t01=0x00f8}
0x0746…0750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010c}
0x0750…0766 Head {h00=0x0012, h01=0x0050, text=» EJECT TPROC«, t00=0x0004, t01=0x0116}
0x0766…0770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012c}
0x0770…077a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0136}
0x077a…078a Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0004, t01=0x0140}
0x078a…079a Head {h00=0x000c, h01=0x0050, text=»* WAIT *«, t00=0x0004, t01=0x0150}
0x079a…07aa Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0004, t01=0x0160}
0x07aa…07b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0170}
0x07b4…07be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017a}
0x07be…07ea Head {h00=0x0028, h01=0x0050, text=»* THIS IS THE WAIT LKM PROCESSOR. «, t00=0x0004, t01=0x0184}
0x07ea…07f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0020}
0x07f4…0824 Head {h00=0x002c, h01=0x0050, text=»* THIS MODULE IS ENTERED WHEN THE TASK«, t00=0x0005, t01=0x002a}
0x0824…085e Head {h00=0x0036, h01=0x0050, text=»* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. «, t00=0x0005, t01=0x005a}
0x085e…0868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0094}
0x0868…0896 Head {h00=0x002a, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0005, t01=0x009e}
0x0896…08c0 Head {h00=0x0026, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS:«, t00=0x0005, t01=0x00cc}
0x08c0…08ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f6}
0x08ca…08e8 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0005, t01=0x0100}
0x08e8…0904 Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0005, t01=0x011e}
0x0904…090e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013a}
0x090e…0918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0144}
0x0918…0946 Head {h00=0x002a, h01=0x0050, text=»TWAIT CF A15,FNDDWT SEARCH DWT ADDRESS«, t00=0x0005, t01=0x014e}
0x0946…095e Head {h00=0x0014, h01=0x0050, text=» ADK A6,0 SET CR«, t00=0x0005, t01=0x017c}
0x095e…0988 (6, 0, 400) Head {h00=0x0026, h01=0x0050, text=» RF(Z) TP:RQE FILE CODE NOT FOUND «, t00=0x0006, t01=0x0004}
0x0988…0992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x002e}
0x0992…09a8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0006, t01=0x0038}
0x09a8…09d6 Head {h00=0x002a, h01=0x0050, text=» LDR* A1,A8 RETURN IF EVENT COMPLETED «, t00=0x0006, t01=0x004e}
0x09d6…09e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x007c}
0x09e2…09ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0088}
0x09ec…0a02 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0006, t01=0x0092}
0x0a02…0a2e Head {h00=0x0028, h01=0x0050, text=» ELR A1,A8 RETURN IF EVENT COMPLETED«, t00=0x0006, t01=0x00a8}
0x0a2e…0a3a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x00d4}
0x0a3a…0a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e0}
0x0a44…0a70 Head {h00=0x0028, h01=0x0050, text=» RF(N) TP:QDI I/O ALREADY COMPLETED «, t00=0x0006, t01=0x00ea}
0x0a70…0aa4 Head {h00=0x0030, h01=0x0050, text=» IM DWTWAT,A6 NO, SET WAIT INDICATOR IN DWT «, t00=0x0006, t01=0x0116}
0x0aa4…0aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014a}
0x0aae…0ad8 Head {h00=0x0026, h01=0x0050, text=»T:DISP ABL TDISP GO TO DISPATCHER «, t00=0x0006, t01=0x0154}
0x0ad8…0ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017e}
0x0ae2…0af8 Head {h00=0x0012, h01=0x0050, text=» EJECT TPROC«, t00=0x0006, t01=0x0188}
0x0af8…0b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000e}
0x0b02…0b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0018}
0x0b0c…0b1e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0007, t01=0x0022}
0x0b1e…0b30 Head {h00=0x000e, h01=0x0050, text=»* TACTOT *«, t00=0x0007, t01=0x0034}
0x0b30…0b42 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0007, t01=0x0046}
0x0b42…0b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0058}
0x0b4c…0b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0062}
0x0b56…0b92 Head {h00=0x0038, h01=0x0050, text=»* THIS IS THE ACTIVATE/RESTART TASK LKM PROCESSOR.«, t00=0x0007, t01=0x006c}
0x0b92…0b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a8}
0x0b9c…0bd4 Head {h00=0x0034, h01=0x0050, text=»* THIS MODULE IS ENTERED FROM THE LKM HANDLER «, t00=0x0007, t01=0x00b2}
0x0bd4…0c00 Head {h00=0x0028, h01=0x0050, text=»* WHEN A TASK HAS TO BE ACTIVATED.«, t00=0x0007, t01=0x00ea}
0x0c00…0c0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0116}
0x0c0a…0c3e Head {h00=0x0030, h01=0x0050, text=»* THE FOLLOWING PARAMETERS ARE SUPPLIED:- «, t00=0x0007, t01=0x0120}
0x0c3e…0c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0154}
0x0c48…0c74 Head {h00=0x0028, h01=0x0050, text=»* A1 = PARAMETER WHEN A4 NOT ZERO «, t00=0x0007, t01=0x015e}
0x0c74…0cac Head {h00=0x0034, h01=0x0050, text=»* A4 = START ADDRESS AT ACTIVATION, ELSE ZERO «, t00=0x0007, t01=0x018a}
0x0cac…0cc2 Head {h00=0x0012, h01=0x0050, text=»* A5 = TTAB «, t00=0x0008, t01=0x0032}
0x0cc2…0cfa Head {h00=0x0034, h01=0x0050, text=»* A7 = IDENTIFICATION FOR TASK TO BE ACTIVATED«, t00=0x0008, t01=0x0048}
0x0cfa…0d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0080}
0x0d04…0d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x008a}
0x0d0e…0d22 Head {h00=0x0010, h01=0x0050, text=»TACTOT EQU *«, t00=0x0008, t01=0x0094}
0x0d22…0d4a Head {h00=0x0024, h01=0x0050, text=» CF A15,FNDTID FIND TTAB ADDRESS«, t00=0x0008, t01=0x00a8}
0x0d4a…0d62 Head {h00=0x0014, h01=0x0050, text=» ADK A2,0 SET CR«, t00=0x0008, t01=0x00d0}
0x0d62…0d8a Head {h00=0x0024, h01=0x0050, text=» RF(Z) TP:RQE TASK NOT IN SYSTEM«, t00=0x0008, t01=0x00e8}
0x0d8a…0dc2 Head {h00=0x0034, h01=0x0050, text=» CF A15,QTJOB QUEUE CALLING TASK FOR DISPATCHING«, t00=0x0008, t01=0x0110}
0x0dc2…0df0 Head {h00=0x002a, h01=0x0050, text=» LD A3,TTB:SA+6,A5 GET SEGMENT NUMBER «, t00=0x0008, t01=0x0148}
0x0df0…0e1a Head {h00=0x0026, h01=0x0050, text=» LD A7,TTB:SA+8,A5 A4 PARAMETER =1«, t00=0x0008, t01=0x0176}
0x0e1a…0e2c Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0009, t01=0x0010}
0x0e2c…0e3e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0009, t01=0x0022}
0x0e3e…0e72 Head {h00=0x0030, h01=0x0050, text=» RF(Z) TP:QDI RESTART: QUEUE FOR DISPATCHING«, t00=0x0009, t01=0x0034}
0x0e72…0e94 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A7 A4 PARAMETER =1«, t00=0x0009, t01=0x0068}
0x0e94…0ec2 Head {h00=0x002a, h01=0x0050, text=» ABL ACTDIS ACTIVATE TASK AND DISPATCH«, t00=0x0009, t01=0x008a}
0x0ec2…0ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b8}
0x0ecc…0ee2 Head {h00=0x0012, h01=0x0050, text=» EJECT TPROC«, t00=0x0009, t01=0x00c2}
0x0ee2…0eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d8}
0x0eec…0ef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e2}
0x0ef6…0f08 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x00ec}
0x0f08…0f1a Head {h00=0x000e, h01=0x0050, text=»* TMWAIT *«, t00=0x0009, t01=0x00fe}
0x0f1a…0f2c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x0110}
0x0f2c…0f36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0122}
0x0f36…0f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012c}
0x0f40…0f74 Head {h00=0x0030, h01=0x0050, text=»* THIS IS THE MULTIPLE WAIT LKM PROCESSOR.«, t00=0x0009, t01=0x0136}
0x0f74…0f7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x016a}
0x0f7e…0fac Head {h00=0x002a, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0009, t01=0x0174}
0x0fac…0fd6 Head {h00=0x0026, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS:«, t00=0x000a, t01=0x0012}
0x0fd6…0fe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x003c}
0x0fe0…0ffe Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x000a, t01=0x0046}
0x0ffe…101e Head {h00=0x001c, h01=0x0050, text=»* A7 = ECBBLK ADDRESS «, t00=0x000a, t01=0x0064}
0x101e…1028 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0084}
0x1028…1062 Head {h00=0x0036, h01=0x0050, text=»* WHEN ONE OF THE SPECIFIED EVENTS IS COMPLETED,«, t00=0x000a, t01=0x008e}
0x1062…109c Head {h00=0x0036, h01=0x0050, text=»* RETURN IS MADE TO THE CALLING TASK VIA TENDIO «, t00=0x000a, t01=0x00c8}
0x109c…10c6 Head {h00=0x0026, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS:«, t00=0x000a, t01=0x0102}
0x10c6…10d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012c}
0x10d0…1100 Head {h00=0x002c, h01=0x0050, text=»* A8 = ECB ADDRESS OF COMPLETED EVENT «, t00=0x000a, t01=0x0136}
0x1100…110a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0166}
0x110a…114c Head {h00=0x003e, h01=0x0050, text=»* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO).«, t00=0x000a, t01=0x0170}
0x114c…1156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0022}
0x1156…1182 Head {h00=0x0028, h01=0x0050, text=»* NOTICE THAT ALL EVENTS MUST HAVE«, t00=0x000b, t01=0x002c}
0x1182…11ae Head {h00=0x0028, h01=0x0050, text=»* BEEN ISSUED IN THE NO WAIT MODE.«, t00=0x000b, t01=0x0058}
0x11ae…11b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0084}
0x11b8…11c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x008e}
0x11c2…11d8 Head {h00=0x0012, h01=0x0050, text=» EJECT TPROC«, t00=0x000b, t01=0x0098}
0x11d8…11e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ae}
0x11e2…11ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b8}
0x11ec…1214 Head {h00=0x0024, h01=0x0050, text=»TMWAIT EQU * MULTIPLE WAIT ENTRY«, t00=0x000b, t01=0x00c2}
0x1214…1226 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x000b, t01=0x00ea}
0x1226…1230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00fc}
0x1230…1246 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000b, t01=0x0106}
0x1246…1274 Head {h00=0x002a, h01=0x0050, text=» LDR* A1,A7 GET NO OF ECB:S IN ECBBLK «, t00=0x000b, t01=0x011c}
0x1274…1280 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x014a}
0x1280…128a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0156}
0x128a…12a0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000b, t01=0x0160}
0x12a0…12cc Head {h00=0x0028, h01=0x0050, text=» ELR A1,A7 GET NO OF ECB:S IN ECBBLK«, t00=0x000b, t01=0x0176}
0x12cc…12d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0012}
0x12d8…12e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x001e}
0x12e2…130e Head {h00=0x0028, h01=0x0050, text=» RF(NP) TP:RQE REQUEST ERROR IF <= 0«, t00=0x000c, t01=0x0028}
0x130e…1318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0054}
0x1318…132c Head {h00=0x0010, h01=0x0050, text=»TMW:10 EQU *«, t00=0x000c, t01=0x005e}
0x132c…1362 Head {h00=0x0032, h01=0x0050, text=» ADK A7,2 POINT TO NEXT ECB ADDRESS IN ECBBLK «, t00=0x000c, t01=0x0072}
0x1362…136c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a8}
0x136c…1382 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000c, t01=0x00b2}
0x1382…13a6 Head {h00=0x0020, h01=0x0050, text=» LDR* A8,A7 GET ECB ADDRESS «, t00=0x000c, t01=0x00c8}
0x13a6…13d0 Head {h00=0x0026, h01=0x0050, text=» LDR* A2,A8 GET FIRST WORD OF ECB «, t00=0x000c, t01=0x00ec}
0x13d0…13dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0116}
0x13dc…13e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0122}
0x13e6…13fc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000c, t01=0x012c}
0x13fc…141e Head {h00=0x001e, h01=0x0050, text=» ELR A8,A7 GET ECB ADDRESS«, t00=0x000c, t01=0x0142}
0x141e…1446 Head {h00=0x0024, h01=0x0050, text=» ELR A2,A8 GET FIRST WORD OF ECB«, t00=0x000c, t01=0x0164}
0x1446…1452 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x018c}
0x1452…145c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0008}
0x145c…1488 Head {h00=0x0028, h01=0x0050, text=» RF(N) TMW:30 I/O ALREADY COMPLETED «, t00=0x000d, t01=0x0012}
0x1488…14c4 Head {h00=0x0038, h01=0x0050, text=» CF A15,FNDDWT NO, SEARCH DWT ADDRESS FROM FILE CODE«, t00=0x000d, t01=0x003e}
0x14c4…14dc Head {h00=0x0014, h01=0x0050, text=» ADK A6,0 SET CR«, t00=0x000d, t01=0x007a}
0x14dc…14fc Head {h00=0x001c, h01=0x0050, text=» RF(Z) TP:RQE NOT FOUND «, t00=0x000d, t01=0x0092}
0x14fc…1506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b2}
0x1506…151c Head {h00=0x0012, h01=0x0050, text=» EJECT TPROC«, t00=0x000d, t01=0x00bc}
0x151c…1526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d2}
0x1526…1530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00dc}
0x1530…1556 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST,A6 GET DWT STATUS«, t00=0x000d, t01=0x00e6}
0x1556…1574 Head {h00=0x001a, h01=0x0050, text=» RF(N) TP:RQE NOT BUSY«, t00=0x000d, t01=0x010c}
0x1574…158c Head {h00=0x0014, h01=0x0050, text=» CW A5,DWTTAB,A6«, t00=0x000d, t01=0x012a}
0x158c…15c2 Head {h00=0x0032, h01=0x0050, text=» RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK«, t00=0x000d, t01=0x0142}
0x15c2…15f6 Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR«, t00=0x000d, t01=0x0178}
0x15f6…1626 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) TP:RQE REQUEST ISSUED WITH WAIT «, t00=0x000e, t01=0x001c}
0x1626…1642 Head {h00=0x0018, h01=0x0050, text=» ORK A6,1 SET BIT 15«, t00=0x000e, t01=0x004c}
0x1642…1678 Head {h00=0x0032, h01=0x0050, text=» ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR «, t00=0x000e, t01=0x0068}
0x1678…16aa Head {h00=0x002e, h01=0x0050, text=» RF(NZ) TMW:20 NOT THE FIRST ECB IN ECBBLK«, t00=0x000e, t01=0x009e}
0x16aa…16d4 Head {h00=0x0026, h01=0x0050, text=» LDR A9,A6 SAVE FIRST DWT ADDRESS «, t00=0x000e, t01=0x00d0}
0x16d4…16e6 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A6«, t00=0x000e, t01=0x00fa}
0x16e6…16f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010c}
0x16f0…1704 Head {h00=0x0010, h01=0x0050, text=»TMW:20 EQU *«, t00=0x000e, t01=0x0116}
0x1704…1740 Head {h00=0x0038, h01=0x0050, text=» ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE «, t00=0x000e, t01=0x012a}
0x1740…1768 Head {h00=0x0024, h01=0x0050, text=» LDR A9,A6 SAVE THIS DWT ADDRESS«, t00=0x000e, t01=0x0166}
0x1768…177a Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000e, t01=0x018e}
0x177a…17a4 Head {h00=0x0026, h01=0x0050, text=» RB(P) TMW:10 MORE ECB:S IN ECBBLK«, t00=0x000f, t01=0x0010}
0x17a4…17e2 Head {h00=0x003a, h01=0x0050, text=» ST A3,DWTWAT,A9 NO, SET FIRST DWT ADDRESS IN THE LAST«, t00=0x000f, t01=0x003a}
0x17e2…1806 Head {h00=0x0020, h01=0x0050, text=» RB T:DISP GO TO DISPATCHER «, t00=0x000f, t01=0x0078}
0x1806…1810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009c}
0x1810…1824 Head {h00=0x0010, h01=0x0050, text=»TMW:30 EQU *«, t00=0x000f, t01=0x00a6}
0x1824…185c Head {h00=0x0034, h01=0x0050, text=» ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA «, t00=0x000f, t01=0x00ba}
0x185c…1892 Head {h00=0x0032, h01=0x0050, text=» ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR «, t00=0x000f, t01=0x00f2}
0x1892…18bc Head {h00=0x0026, h01=0x0050, text=» RF(Z) TP:QDI FIRST ECB IN ECBBLK «, t00=0x000f, t01=0x0128}
0x18bc…18c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0152}
0x18c6…1904 Head {h00=0x003a, h01=0x0050, text=»TMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR«, t00=0x000f, t01=0x015c}
0x1904…192c Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A3 GET NEXT DWT ADDRESS«, t00=0x0010, t01=0x000a}
0x192c…1950 Head {h00=0x0020, h01=0x0050, text=» RF(Z) TP:QDI NO MORE DWT:S «, t00=0x0010, t01=0x0032}
0x1950…1974 Head {h00=0x0020, h01=0x0050, text=» CMR A3 SET TO NO WAIT AGAIN«, t00=0x0010, t01=0x0056}
0x1974…1986 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0010, t01=0x007a}
0x1986…1998 Head {h00=0x000e, h01=0x0050, text=» RB TMW:40«, t00=0x0010, t01=0x008c}
0x1998…19a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009e}
0x19a2…19b8 Head {h00=0x0012, h01=0x0050, text=» EJECT TPROC«, t00=0x0010, t01=0x00a8}
0x19b8…19c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00be}
0x19c2…19cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c8}
0x19cc…19e0 Head {h00=0x0010, h01=0x0050, text=»TP:RQE EQU *«, t00=0x0010, t01=0x00d2}
0x19e0…1a06 Head {h00=0x0022, h01=0x0050, text=» ABL LKMRQE LKM REQUEST ERROR «, t00=0x0010, t01=0x00e6}
0x1a06…1a10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x010c}
0x1a10…1a24 Head {h00=0x0010, h01=0x0050, text=»TP:QDI EQU *«, t00=0x0010, t01=0x0116}
0x1a24…1a50 Head {h00=0x0028, h01=0x0050, text=» ABL LKMQDI QUEUE TASK AND DISPATCH «, t00=0x0010, t01=0x012a}
0x1a50…1a5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0156}
0x1a5a…1a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0160}
0x1a64…1a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016a}
0x1a6e…1a7a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0010, t01=0x0174}
0x1a7a…1a7e Head {h00=0x4004, h01=0x0000}
0x1a7e…1a82 00 10 01 80 ┆ ┆
0x1a82…1a8a (17, 1, 8) 20 04 00 00 00 11 00 04 ┆ ┆
0x1a8a…1ada (18, 0, 400) 5c 52 45 53 54 4f 52 45 20 4e 4f 20 4f 46 20 45 58 54 45 4e 54 53 00 69 01 84 00 0e 00 50 5c 52 42 5c 4d 53 58 32 30 20 00 6a 00 1e 00 06 00 50 2a 20 00 6a 00 30 00 10 00 50 4d 53 58 39 39 5c 45 51 55 5c 2a 20 00 6a 00 3a 00 0c 00 50 5c 52 ┆ RESTORE NO OF EXTENTS i P RB MSX20 j P* j 0 PMSX99 EQU * j : P R┆
0x1ada…1b2a 54 4e 5c 41 31 34 00 6a 00 4e 00 0a 00 50 5c 45 4a 45 43 54 00 6a 00 5e 00 34 00 50 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 6a 00 6c ┆TN A14 j N P EJECT j ^ 4 P*********************************************** j l┆
0x1b2a…1b7a 00 06 00 50 2a 20 00 6a 00 a4 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 4d 4f 4e 00 6a 00 ae 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 3d 3d 3d 3d 3d 00 6a 00 cc 00 06 00 50 2a 20 00 6a 00 ea ┆ P* j P* GETMON j P* ====== j P* j ┆
0x1b7a…1bca 00 26 00 50 2a 20 20 20 53 45 41 52 43 48 20 46 4f 52 20 4d 4f 4e 49 54 4f 52 20 54 4f 20 42 45 20 55 53 45 44 20 00 6a 00 f4 00 24 00 50 2a 20 20 20 41 4e 44 20 55 50 44 41 54 45 20 49 54 27 53 20 44 49 53 43 20 41 44 44 52 45 53 53 00 6a ┆ & P* SEARCH FOR MONITOR TO BE USED j $ P* AND UPDATE IT'S DISC ADDRESS j┆
0x1bca…1c1a 01 1e 00 1a 00 50 2a 20 20 20 49 4e 20 4d 58 53 54 41 42 20 45 4e 54 52 49 45 53 2e 00 6a 01 46 00 06 00 50 2a 20 00 6a 01 64 00 34 00 50 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 ┆ P* IN MXSTAB ENTRIES. j F P* j d 4 P**********************************┆
0x1c1a…1c6a (19, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 6a 01 6e 00 06 00 50 2a 20 00 6b 00 16 00 06 00 50 2a 20 00 6b 00 20 00 10 00 50 47 45 54 4d 4f 4e 5c 45 51 55 5c 2a 00 6b 00 2a 00 28 00 50 5c 4c 44 5c 41 31 2c 53 43 54 41 4e 4f 5c 47 45 54 20 ┆************** j n P* k P* k PGETMON EQU * k * ( P LD A1,SCTANO GET ┆
0x1c6a…1cba 41 50 50 4c 49 43 41 54 49 4f 4e 20 4e 55 4d 42 45 52 00 6b 00 3e 00 1c 00 50 5c 53 54 5c 41 31 2c 4d 4f 4e 4e 4f 2b 53 54 4b 45 4e 44 5c 53 41 56 45 00 6b 00 6a 00 32 00 50 5c 43 46 5c 41 31 34 2c 47 45 54 4e 42 52 5c 47 45 54 20 43 4f 52 ┆APPLICATION NUMBER k > P ST A1,MONNO+STKEND SAVE k j 2 P CF A14,GETNBR GET COR┆
0x1cba…1d0a 52 45 53 50 4f 4e 44 49 4e 47 20 45 4e 54 52 59 20 49 4e 20 56 54 4f 43 00 6b 00 8a 00 30 00 50 5c 4c 43 5c 41 31 2c 38 2c 41 34 5c 47 45 54 20 43 4f 52 52 45 53 50 4f 4e 44 49 4e 47 20 4d 4f 4e 49 54 4f 52 20 4e 55 4d 42 45 52 00 6b 00 c0 ┆RESPONDING ENTRY IN VTOC k 0 P LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER k ┆
0x1d0a…1d5a 00 32 00 50 5c 53 4c 4c 5c 41 31 2c 38 5c 46 4f 52 4d 20 4d 4f 4e 49 54 4f 52 20 4e 42 52 2e 20 41 4e 44 20 41 50 50 4c 2e 20 4e 42 52 2e 20 27 30 27 00 6b 00 f4 00 20 00 50 5c 53 54 5c 41 31 2c 4d 4f 4e 4e 4f 2b 53 54 4b 45 4e 44 5c 41 4e ┆ 2 P SLL A1,8 FORM MONITOR NBR. AND APPL. NBR. '0' k P ST A1,MONNO+STKEND AN┆
0x1d5a…1daa 44 20 53 41 56 45 00 6b 01 2a 00 34 00 50 5c 43 46 5c 41 31 34 2c 47 45 54 4e 42 52 5c 53 45 41 52 43 48 20 46 4f 52 20 41 50 50 4c 2e 20 4e 42 52 2e 20 30 20 28 4d 4f 4e 49 54 4f 52 29 00 6b 01 4e 00 06 00 50 2a 20 00 6b 01 86 00 10 00 50 ┆D SAVE k * 4 P CF A14,GETNBR SEARCH FOR APPL. NBR. 0 (MONITOR) k N P* k P┆
0x1daa…1dfa (20, 0, 400) 47 54 4d 4f 4e 32 5c 45 51 55 5c 2a 00 6b 01 90 00 30 00 50 5c 4c 44 5c 41 31 2c 4d 4f 4e 4e 4f 2b 53 54 4b 45 4e 44 5c 47 45 54 20 4d 4f 4e 49 54 4f 52 20 4e 4f 20 28 42 49 54 20 30 2d 37 29 00 6c 00 14 00 28 00 50 5c 43 57 5c 41 31 2c 38 ┆GTMON2 EQU * k 0 P LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7) l ( P CW A1,8┆
0x1dfa…1e4a 2c 41 34 5c 49 53 20 49 54 20 54 48 45 20 52 49 47 48 54 20 4d 4f 4e 49 54 4f 52 3f 00 6c 00 48 00 16 00 50 5c 52 46 28 45 29 5c 47 54 4d 4f 4e 34 5c 59 45 53 21 00 6c 00 74 00 06 00 50 2a 20 00 6c 00 8e 00 38 00 50 5c 43 46 5c 41 31 34 2c ┆,A4 IS IT THE RIGHT MONITOR? l H P RF(E) GTMON4 YES! l t P* l 8 P CF A14,┆
0x1e4a…1e9a 47 54 4e 42 52 34 5c 4e 4f 2c 20 43 4f 4e 54 49 4e 55 45 20 54 4f 20 4e 45 58 54 20 4d 4f 4e 49 54 4f 52 20 49 4e 20 56 54 4f 43 20 00 6c 00 98 00 0e 00 50 5c 52 42 5c 47 54 4d 4f 4e 32 00 6c 00 d4 00 06 00 50 2a 20 00 6c 00 e6 00 10 00 50 ┆GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC l P RB GTMON2 l P* l P┆
0x1e9a…1eea 47 54 4d 4f 4e 34 5c 45 51 55 5c 2a 00 6c 00 f0 00 24 00 50 5c 4c 44 5c 41 31 2c 53 43 54 4d 58 53 5c 47 45 54 20 4d 58 53 54 41 42 20 41 44 44 52 45 53 53 00 6c 01 04 00 34 00 50 5c 4c 44 5c 41 32 2c 31 36 2c 41 34 5c 47 45 54 20 4d 4f 4e ┆GTMON4 EQU * l $ P LD A1,SCTMXS GET MXSTAB ADDRESS l 4 P LD A2,16,A4 GET MON┆
0x1eea…1f3a 49 54 4f 52 20 44 49 53 43 20 41 44 44 52 45 53 53 20 28 42 49 54 20 30 2d 31 35 29 00 6c 01 2c 00 22 00 50 5c 53 54 5c 41 32 2c 32 2c 41 31 5c 41 4e 44 20 53 41 56 45 20 49 4e 20 4d 58 53 54 41 42 00 6c 01 64 00 36 00 50 5c 4c 44 5c 41 32 ┆ITOR DISC ADDRESS (BIT 0-15) l , " P ST A2,2,A1 AND SAVE IN MXSTAB l d 6 P LD A2┆