|
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: 20564 (0x5054)
Notes: pts_type(SC)
Names: »MSUBS.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PTMON/MSUBS.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PTMON/MSUBS.SC«
IDENT MSUBS REL 11.0 81-01-26 870105041100 * * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * MSUBS = MONITOR SUBROUTINES * * * * * ************************************************** * * * THIS MODULE CONTAINS THE FOLLOWING MONITOR * SUBROUTINES: * * -SAVE8 SAVE 8 REGISTERS ON STACK * -QTJOB QUEUE TASK FOR DISPATCHING * -QMJOB QUEUE MONITOR TASK FOR DISPATCHING * -ACTOT ACTIVATE TASK ON FIFO BASIS * -ACTOTP ACTIVATE TASK ON LIFO BASIS * -EXIT TASK EXIT * -GETBLK GET A FREE MONITOR BLOCK * -FREBLK SET A MONITOR BLOCK FREE * -FNDDWT FIND DWT ADDRESS IN TTAB OR CDTAB * -FNDDWD FIND DWT ADDRESS IN CDTAB * -FNDTID FIND TASK IDENTIFICATION * -PFINIT RESTART DEVICE * -SWL48 SWITCH TO LEVEL 48 * -SWLXY SWITCH TO LEVEL XY * -HALT HALT MODULE * -RELPAG RELEASE PAGE * EJECT MSUBS * * *********** * ENTRIES * *********** * * ENTRY SAVE8 SAVE 8 REGISTERS ENTRY QTJOB QUEUE TASK ENTRY QMJOB QUEUE MONITOR TASK ENTRY ACTOT ACTIVATE TASK (FIFO) ENTRY ACTOTP ACTIVATE TASK (LIFO) ENTRY EXIT TASK EXIT ENTRY GETBLK GET BLOCK ENTRY FREBLK SET BLOCK FREE ENTRY FNDDWT FIND DWT IN TTAB OR CDTAB ENTRY FNDDWD FIND DWT IN CDTAB ENTRY FNDTID FIND TASK INDENTIFICATION ENTRY PFINIT RESTART DEVICE ENTRY SWL48 SWITCH TO LEVEL 48 ENTRY SWLXY SWITCH TO LEVEL XY ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE ENTRY INTSAV SAVE AREA LAST INTERRUPT ENTRY HALT HALT MODULE ENTRY RELPAG RELEASE PAGE ENTRY RELPA2 RELEASE PAGE (2ND ENTRY) ENTRY IHRET8 RESTORE FROM A8 ENTRY IHRET2 A2 ENTRY IHRET1 A1 ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS EJECT MSUBS * * ************* * EXTERNALS * ************* * * EXTRN DISQUE POINTER TO 1ST PLACE IN DISPATCHER QUEUE EXTRN FREQUE POINTER TO FIRST FREE MONITOR BLOCK EXTRN TTABLD LOAD TASK TTAB EXTRN PQEMTY PAGE QUEUE EMPTY FLAG EXTRN PAGQUE FREE PAGE QUEUE EXTRN SEG:PB PAGE BLOCK ADDRESS EXTRN PAG:QB QUEUE LINK BACKWARD EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR EXTRN TTMJOB TTAB ADDRESS OF '#M' EXTRN TTB:SB SEGMENT BLOCK POINTER EXTRN TTB:ST TASK STATUS AND PRIORITY LEVEL EXTRN TTB:ID TASK IDENTIFICATION EXTRN TTB:SA SAVE AREA EXTRN TTB:PP POINTER TO PENDING QUEUE EXTRN TTB:TD TASK DEVICE TABLE EXTRN SCTTCT TASK CONTROL TABLE EXTRN SCTCDT COMMON DEVICE TABLE EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED EJECT MSUBS * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 0 * * * A PROGRAM VERSION USING TOSS DISC PAGING * IS OBTAINED BY SETTING DSKPAG EQU 1. * DSKPAG EQU 0 * * SOP EQU /2E SOP DEVICE ADDRESS * EJECT MSUBS * * * S A V E 8 * * SUBROUTINE TO SAVE 8 REGISTERS ON STACK * WITHOUT ENABLING INTERRUPTS. * * SAVE8 EQU * INH INHIBIT INTERRUPTS STR A3,A15 STR A4,A15 STR A5,A15 STR A6,A15 STR A7,A15 STR A8,A15 LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) ST A3,SAVE81 AND MODIFY BRANCH ADDRESS ST A2,14,A15 ST A1,16,A15 LD A3,12,A15 RESTORE A3 ABL 0 THIS IS USED TO BRANCH BACK SAVE81 EQU *-2 * EJECT MSUBS * * * Q T J O B * * SUBROUTINE TO QUEUE TASK FOR DISPATCHING. * * ENTRY PARAMETER: * * A5 = TTAB ADDRESS OF TASK TO BE QUEUED. * * THE REQUESTED TASK IS PUT IN DISPATCHER QUEUE ON * PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL TASK IS * PUT LAST IN QUEUE. * * QTJOB EQU * INH * IFT CPU852=1 STR A1,A15 SAVE A1-A3 ON STACK STR A2,A15 STR A3,A15 XIF * IFT CPU852=0 MSR 3,A15 SAVE A1-A3 ON STACK XIF * LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS LDR* A2,A1 ADDRESS OF FIRST TASK IN QUEUE RF(Z) QTJ020 DISQUE EMPTY LD A3,TTB:ST+1,A5 PRIORITY LEVEL * EJECT MSUBS * * QTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL RF(L) QTJ020 INSERT LDR A1,A2 SAVE ADDRESS LDR* A2,A1 NEXT TTAB ADDRESS IN QUEUE RB(NZ) QTJ010 NOT END OF QUEUE * QTJ020 STR A2,A5 UPDATE QUEUE LINKS STR A5,A1 * IFT CPU852=1 ABL IHRET3 XIF * IFT CPU852=0 MLR 3,A15 RESTORE A1-A3 FROM STACK... RTN A15 ...AND RETURN XIF * EJECT MSUBS * * * Q M J O B * * SUBROUTINE TO QUEUE MONITOR TASK '#M'. * * ENTRY PARAMETERS: * * A1 = PARAMETER * A2 = DISPATCH ADDRESS * A3 = PARAMETER * A4 = PARAMETER * * A5 IS SET TO TTAB ADDRESS OF MONITOR TASK '#M' AND THE * SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE TASK. * * QMJOB EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 INH MSR 8,A15 SAVE A1-A8 ON STACK XIF * LDKL A5,TTMJOB TTAB ADDRESS RF ACT01 * EJECT MSUBS * * * A C T O T , A C T O T P * * SUBROUTINE TO ACTIVATE A TASK. * * ENTRY PARAMETERS: * * A1 = PARAMETER 1 * A2 = DISPATCH ADDRESS * A3 = SEGMENT NUMBER * A4 = PARAMETER 2 * A5 = TTAB ADDRESS * * - IF REQUESTED TASK IS NOT ACTIVE THE TASK IS * PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. * - IF TASK IS ACTIVE, THE REQUEST IS PUT IN A PENDING * QUEUE. * - ACTOT WILL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. * - ACTOTP WILL PUT REQUEST IN PENDING QUEUE ON LIFO BASIS. * * ACTOTP EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 INH MSR 8,A15 SAVE A1-A8 ON STACK XIF * LDK A6,1 INDICATE LIFO RF ACT03 * EJECT MSUBS * * ACTOT EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 INH MSR 8,A15 SAVE A1-A8 ON STACK XIF * ACT01 LDK A6,0 INDICATE FIFO * ACT03 EQU * LD A7,TTB:SA,A5 (OLD) DISPATCH ADDRESS RF(NZ) ACT020 IS PROGRAM ACTIVE ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRESS * IFT CPU852=1 ST A1,TTB:SA+2,A5 PARAMETER 1 ST A3,TTB:SA+6,A5 SEGMENT NUMBER ST A4,TTB:SA+8,A5 PARAMETER 2 LD A4,TTB:ID,A5 SET TASK ID ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA XIF * IFT CPU852=0 LD A2,TTB:ID,A5 TASK ID MS 4,TTB:SA+2,A5 SET PARAMETERS IN TTAB SAVE AREA XIF * EJECT MSUBS * * IFF MMUPAG+DSKPAG=0 CM TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT XIF * CF A15,QTJOB QUEUE THE TASK * ACT010 EQU * IFT CPU852=1 RF IHRET8 RESTORE A1-A8 AND RETURN XIF * IFT CPU852=0 MLR 8,A15 RESTORE A1-A8 FROM STACK... RTN A15 ...AND RETURN XIF * EJECT MSUBS * * PUT REQUEST IN PENDING QUEUE * ACT020 LDR A7,A4 SAVE PARAMETER 2 CF A15,GETBLK GET A FREE BLOCK LDR A1,A7 PARAMETER 2 LDR A2,A4 CF A15,GETBLK ADKL A5,TTB:PP * ACT030 LDR A3,A5 SAVE ADDRESS LDR* A5,A5 FOLLOW THE QUEUE THREAD ADK A6,0 SET CR RF(NZ) ACT040 QUEUE ON LIFO BASIS ADK A5,0 SET CR RB(NZ) ACT030 NOT END OF QUEUE * ACT040 EQU * STR A4,A3 SET BLOCK IN QUEUE STR A5,A4 RB ACT010 * EJECT MSUBS * * * E X I T * * SUBROUTINE TO SET A TASK FREE AND QUEUE FIRST * PENDING REQUEST. * * ENTRY PARAMETER: * * A5 = TTAB ADDRESS * * A3-A4, A7 ARE DESTROYED * * EXIT EQU * CM TTB:SA,A5 RESET DISPATCH ADDRESS LD A4,TTB:PP,A5 PENDING REQUEST POINTER RF(Z) IHRTN NO PENDING REQUEST LDR* A3,A4 QUEUE THREAD ST A3,TTB:PP,A5 AND SAVE IN PENDING POINTER CF A15,FREBLK RELEASE BLOCK AND GET PARAMETERS LDR A7,A1 SAVE PARAMETER 2 LDR A4,A2 CF A15,FREBLK LDR A4,A7 PARAMETER 2 RB ACTOT ACTIVATE TASK * EJECT MSUBS * * * G E T B L K * * SUBROUTINE TO GET A FREE BLOCK FROM MONITOR * BLOCK POOL. REGISTERS A3-A1 ARE STORED IN FOUND * FREE BLOCK. * * EXIT PARAMETER: * * A4 = ADDRESS TO FOUND FREE BLOCK * * GETBLK EQU * INH STR A5,A15 SAVE A5 LD A4,FREQUE FIRST BLOCK IN FREE QUEUE RF(NZ) GBL010 LDK A1,/B HALT PARAMETER CF A15,HALT HALT IF NO MORE FREE BLOCKS * GBL010 LDR* A5,A4 ST A5,FREQUE TAKE BLOCK OUT OF FREE QUEUE STR A3,A4 STORE A3-A1 IN BLOCK ST A2,2,A4 ST A1,4,A4 LDR* A5,A15 RESTORE A5 * IFT CPU852=1 RF IHRTN XIF * IFT CPU852=0 RTN A15 XIF * EJECT MSUBS * * * F R E B L K * * SUBROUTINE TO GET PARAMETERS FROM A MONITOR BLOCK * AND SET THIS BLOCK FREE. * * ENTRY PARAMETER: * * A4 = BLOCK ADDRESS * * EXIT PARAMETERS: * * A3 = FIRST PARAMETER IN BLOCK * A2 = SECOND " " * A1 = THIRD " " * * FREBLK EQU * INH LDR* A3,A4 UPDATE A3 LD A1,FREQUE STR A1,A4 ST A4,FREQUE SET BLOCK FREE LD A2,2,A4 LD A1,4,A4 * IFT CPU852=1 RF IHRTN XIF * IFT CPU852=0 RTN A15 XIF * EJECT MSUBS * * * F N D D W T * * SUBROUTINE TO FIND A DWT IN TTAB OR CDTAB. * * ENTRY PARAMETERS: * * A5 = TTAB ADDRESS * A8 = ECB ADDRESS * * EXIT PARAMETERS: * * A2 = DWT INDEX * A6 = DWT ADDRESS IF FOUND, ELSE 0 * * * F N D D W D * * SUBROUTINE TO FIND A DWT IN CDTAB. * * ENTRY PARAMETERS: * * A2 = FILE CODE * * EXIT PARAMETERS, SEE FNDDWT * EJECT MSUBS * * FNDDWT EQU * IFT MMUPAG=1 ELR A2,A8 LOAD FILE CODE FROM ECB XIF * IFT MMUPAG=0 LDR* A2,A8 LOAD FILE CODE FROM ECB XIF * STR A1,A15 SAVE A1 LDKL A6,TTB:TD+2 ADR A6,A5 ADDRESS TO TASK DEVICE TABLE LD A1,-2,A6 TABLE LENGTH * FND100 SUK A1,4 RF(N) FND110 FILE CODE NOT IN TTAB CC A2,1,A6 SEARCH IN DEVICE TABLE RF(E) FND200 FILE CODE FOUND ADK A6,4 ADDRESS TO NEXT FILE CODE RB FND100 TRY NEXT * EJECT MSUBS * * SEARCH IN COMMON DEVICE TABLE * FNDDWD EQU * STR A1,A15 SAVE A1 * FND110 LD A6,SCTCDT CDTAB ADDRESS LDR* A1,A6 CDTAB LENGTH ADK A6,2 POINTER TO FIRST ENTRY * FND120 SUK A1,4 RF(N) FND130 FILE CODE NOT FOUND CC A2,1,A6 RF(E) FND200 FILE CODE FOUND ADK A6,4 ADDRESS TO NEXT FILE CODE RB FND120 TRY NEXT ENTRY IN CDTAB * FND130 LDK A6,0 RF IHRET1 * FND200 EQU * LCR A2,A6 LOAD DWT INDEX LD A6,2,A6 LOAD DWT ADDRESS RF IHRET1 * EJECT MSUBS * * * F N D T I D * * SUBROUTINE TO FIND TTAB ADDRESS FROM TASK IDENTIFICATION. * * ENTRY PARAMETER: * * A7 = TASK IDENTIFICATION * * EXIT PARAMETER: * * A2 = TTAB ADDRESS * A2 = 0 INDICATES ILLEGAL IDENTIFICATION * * FNDTID STR A1,A15 SAVE A1 LD* A1,SCTTCT TCTAB LENGTH AD A1,SCTTCT * FTI010 SUK A1,2 CW A1,SCTTCT RF(E) FTI030 ALL TTABS EXAMINED LDR* A2,A1 TTAB ADDRESS CW A7,TTB:ID,A2 COMPARE IDENTIFICATIONS RB(NE) FTI010 NO MATCH RF IHRET1 * FTI030 LDK A2,0 ILLEGAL IDENTIFICATION RF IHRET1 * EJECT MSUBS * * * RESTORE REGISTERS AND RETURN WITHOUT * ENABLE INTERRUPTS. * * IFT CPU852=1 IHRET8 LDR* A8,A15 LDR* A7,A15 LDR* A6,A15 LDR* A5,A15 LDR* A4,A15 * IHRET3 LDR* A3,A15 * IHRET2 LDR* A2,A15 * IHRET1 LDR* A1,A15 * IHRTN INH ADKL A15,4 ADJUST STACK POINTER ABR* A15 AND RETURN XIF * IFT CPU852=0 IHRET8 MLR 8,A15 RESTORE A1-A8 FROM STACK... RTN A15 ...AND RETURN * IHRET2 MLR 2,A15 RESTORE A1-A2 FROM STACK... RTN A15 ...AND RETURN * IHRET1 LDR* A1,A15 RESTORE A1 FROM STACK... * IHRTN RTN A15 ...AND RETURN XIF * EJECT MSUBS * * * P F I N I T * * SUBROUTINE TO RESTART DEVICES. * * ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALLED. * REGISTERS A1-A8 ARE AVAILABLE FOR THE RESTART ROUTINES. * * PFINIT EQU * LDK A1,2 SET INDEX TO FIRST ROUTINE * PFI100 CW A1,PFTAB CHECK IF LAST RF(NL) PFI110 ALL RESTARTED STR A1,A15 SAVE A1 INH CFI A15,PFTAB,A1 CALL RESTART MODULE LDR* A1,A15 RESTORE A1 ADK A1,2 NEXT DEVICE RB PFI100 * PFI110 RTN A15 RETURN WHEN ALL STARTED * EJECT MSUBS * * * S W L 4 8 * * SWITCH TO LEVEL 48 AND ENABLE. * * SWL48 EQU * STR A1,A15 SAVE A1 * SWL481 EQU * LDKL A1,/C0C0 PSW FOR LEVEL 48 * SWL482 EQU * ST A1,4,A15 SAVE IT ON A15 STACK LDR* A1,A15 RESTORE A1 RTN A15 * EJECT MSUBS * * * S W L X Y * * SWITCH TO LEVEL XY AND ENABLE. * * LEVEL := 48 IF LEVEL ON STACK IS >= 48 * LEVEL := XY " " " " " XY < 48 * * THIS MODULE IS TO BE CALLED WITH 8 REGISTERS ON STACK. * * SWLXY EQU * STR A1,A15 SAVE A1 LC A1,24,A15 LEVEL FROM STACK ANK A1,/FC SUK A1,/BC RB(G) SWL481 LD A1,24,A15 ANKL A1,/FFFE SYSTEM MODE BIT RB SWL482 * EJECT MSUBS * * * INTERRUPT SAVE AND HALT MODULE * * INTSAV DATA 0 SAVA15 DATA 0 * ILLINT LDK A1,5 HALT PARAMETER CF A15,HALT * HALT EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK STR A9,A15 SAVE A9-A14 ON STACK STR A10,A15 STR A11,A15 STR A12,A15 STR A13,A15 STR A14,A15 XIF * IFT CPU852=0 MSR 14,A15 SAVE A1-A14 ON STACK XIF * ST A15,SAVA15 OTR A1,0,SOP INDICATE TYPE OF HALT HLT * EJECT MSUBS * * * R E L P A G * * RELEASE PAGE AND RESTART LDTASK IF PAGQUE WAS EMPTY * * ENTRY PARAMETERS: * * A3 = SEGBLK ADDRESS (PAGBLK ADDRESS IF RELPA2) * A5 = TTAB ADDRESS (RELPA2) * * EXIT PARAMETER: * * A4 IS DESTROYED * * IFT DSKPAG=1 RELPA2 EQU * CM TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT RF REL:10 * RELPAG EQU * RELEASE PAGE MAIN ENTRY LD A3,SEG:PB,A3 PAGE BLOCK ADDRESS * REL:10 EQU * LDKL A4,PAGQUE PAGQUE ADDRESS ST A4,PAG:QB,A3 LDR* A4,A4 ADDRESS OF FIRST BLOCK IN PAGQUE STR A4,A3 UPDATE QUEUE LINKS ST A3,PAGQUE ST A3,PAG:QB,A4 LD A4,PQEMTY CHECK IF LDTASK IS IN PAUSE STATE RF(Z) REL:20 * EJECT MSUBS * * RESTART LOAD TASK * CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY LDR A4,A5 SAVE A5 LDKL A5,TTABLD LDTASK TTAB ADDRESS CF A15,QTJOB RESTART LOAD TASK LDR A5,A4 RESTORE A5 * REL:20 EQU * IFT CPU852=1 RB IHRTN XIF * IFT DSKPAG=1 IFT CPU852=0 RTN A15 XIF * IFT DSKPAG=0 RELPAG EQU * DUMMY ENTRIES TO AVOID ASS. ERR. RELPA2 EQU * ABL LKMERR INDICATE SYSGEN ERROR XIF * * * END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT MSUBS REL 11.0 81-01-26 870105041100«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0040}
0x0046…0050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004a}
0x0050…008a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0054}
0x008a…0094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008e}
0x0094…00bc Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0098}
0x00bc…00c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c0}
0x00c6…00ee Head {h00=0x0024, h01=0x0050, text=»* MSUBS = MONITOR SUBROUTINES «, t00=0x0000, t01=0x00ca}
0x00ee…00f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f2}
0x00f8…0102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fc}
0x0102…010c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0106}
0x010c…0116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x0116…0120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…015a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0124}
0x015a…0164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x0164…016e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0168}
0x016e…01a4 Head {h00=0x0032, h01=0x0050, text=»* THIS MODULE CONTAINS THE FOLLOWING MONITOR«, t00=0x0000, t01=0x0172}
0x01a4…01bc Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES:«, t00=0x0001, t01=0x0018}
0x01bc…01c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0030}
0x01c6…01f6 Head {h00=0x002c, h01=0x0050, text=»* -SAVE8 SAVE 8 REGISTERS ON STACK «, t00=0x0001, t01=0x003a}
0x01f6…0226 Head {h00=0x002c, h01=0x0050, text=»* -QTJOB QUEUE TASK FOR DISPATCHING«, t00=0x0001, t01=0x006a}
0x0226…025e Head {h00=0x0034, h01=0x0050, text=»* -QMJOB QUEUE MONITOR TASK FOR DISPATCHING«, t00=0x0001, t01=0x009a}
0x025e…0290 Head {h00=0x002e, h01=0x0050, text=»* -ACTOT ACTIVATE TASK ON FIFO BASIS «, t00=0x0001, t01=0x00d2}
0x0290…02c2 Head {h00=0x002e, h01=0x0050, text=»* -ACTOTP ACTIVATE TASK ON LIFO BASIS «, t00=0x0001, t01=0x0104}
0x02c2…02e2 Head {h00=0x001c, h01=0x0050, text=»* -EXIT TASK EXIT «, t00=0x0001, t01=0x0136}
0x02e2…0310 Head {h00=0x002a, h01=0x0050, text=»* -GETBLK GET A FREE MONITOR BLOCK«, t00=0x0001, t01=0x0156}
0x0310…033e Head {h00=0x002a, h01=0x0050, text=»* -FREBLK SET A MONITOR BLOCK FREE«, t00=0x0001, t01=0x0184}
0x033e…0376 Head {h00=0x0034, h01=0x0050, text=»* -FNDDWT FIND DWT ADDRESS IN TTAB OR CDTAB «, t00=0x0002, t01=0x0022}
0x0376…03a6 Head {h00=0x002c, h01=0x0050, text=»* -FNDDWD FIND DWT ADDRESS IN CDTAB «, t00=0x0002, t01=0x005a}
0x03a6…03d4 Head {h00=0x002a, h01=0x0050, text=»* -FNDTID FIND TASK IDENTIFICATION«, t00=0x0002, t01=0x008a}
0x03d4…03f8 Head {h00=0x0020, h01=0x0050, text=»* -PFINIT RESTART DEVICE«, t00=0x0002, t01=0x00b8}
0x03f8…0420 Head {h00=0x0024, h01=0x0050, text=»* -SWL48 SWITCH TO LEVEL 48«, t00=0x0002, t01=0x00dc}
0x0420…0448 Head {h00=0x0024, h01=0x0050, text=»* -SWLXY SWITCH TO LEVEL XY«, t00=0x0002, t01=0x0104}
0x0448…046a Head {h00=0x001e, h01=0x0050, text=»* -HALT HALT MODULE «, t00=0x0002, t01=0x012c}
0x046a…048c Head {h00=0x001e, h01=0x0050, text=»* -RELPAG RELEASE PAGE«, t00=0x0002, t01=0x014e}
0x048c…0496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0170}
0x0496…04ac Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0002, t01=0x017a}
0x04ac…04b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0190}
0x04b6…04c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x000a}
0x04c0…04d4 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x0014}
0x04d4…04e8 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x0028}
0x04e8…04fc Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x003c}
0x04fc…0506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0050}
0x0506…0510 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x005a}
0x0510…0536 Head {h00=0x0022, h01=0x0050, text=» ENTRY SAVE8 SAVE 8 REGISTERS «, t00=0x0003, t01=0x0064}
0x0536…0556 Head {h00=0x001c, h01=0x0050, text=» ENTRY QTJOB QUEUE TASK «, t00=0x0003, t01=0x008a}
0x0556…057e Head {h00=0x0024, h01=0x0050, text=» ENTRY QMJOB QUEUE MONITOR TASK «, t00=0x0003, t01=0x00aa}
0x057e…05a8 Head {h00=0x0026, h01=0x0050, text=» ENTRY ACTOT ACTIVATE TASK (FIFO) «, t00=0x0003, t01=0x00d2}
0x05a8…05d2 Head {h00=0x0026, h01=0x0050, text=» ENTRY ACTOTP ACTIVATE TASK (LIFO)«, t00=0x0003, t01=0x00fc}
0x05d2…05f0 Head {h00=0x001a, h01=0x0050, text=» ENTRY EXIT TASK EXIT «, t00=0x0003, t01=0x0126}
0x05f0…0610 Head {h00=0x001c, h01=0x0050, text=» ENTRY GETBLK GET BLOCK «, t00=0x0003, t01=0x0144}
0x0610…0634 Head {h00=0x0020, h01=0x0050, text=» ENTRY FREBLK SET BLOCK FREE«, t00=0x0003, t01=0x0164}
0x0634…0664 Head {h00=0x002c, h01=0x0050, text=» ENTRY FNDDWT FIND DWT IN TTAB OR CDTAB «, t00=0x0003, t01=0x0188}
0x0664…068c Head {h00=0x0024, h01=0x0050, text=» ENTRY FNDDWD FIND DWT IN CDTAB «, t00=0x0004, t01=0x0028}
0x068c…06bc Head {h00=0x002c, h01=0x0050, text=» ENTRY FNDTID FIND TASK INDENTIFICATION «, t00=0x0004, t01=0x0050}
0x06bc…06e0 Head {h00=0x0020, h01=0x0050, text=» ENTRY PFINIT RESTART DEVICE«, t00=0x0004, t01=0x0080}
0x06e0…0708 Head {h00=0x0024, h01=0x0050, text=» ENTRY SWL48 SWITCH TO LEVEL 48 «, t00=0x0004, t01=0x00a4}
0x0708…0730 Head {h00=0x0024, h01=0x0050, text=» ENTRY SWLXY SWITCH TO LEVEL XY «, t00=0x0004, t01=0x00cc}
0x0730…0760 Head {h00=0x002c, h01=0x0050, text=» ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE «, t00=0x0004, t01=0x00f4}
0x0760…078e Head {h00=0x002a, h01=0x0050, text=» ENTRY INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0004, t01=0x0124}
0x078e…07ae Head {h00=0x001c, h01=0x0050, text=» ENTRY HALT HALT MODULE «, t00=0x0004, t01=0x0152}
0x07ae…07d0 Head {h00=0x001e, h01=0x0050, text=» ENTRY RELPAG RELEASE PAGE«, t00=0x0004, t01=0x0172}
0x07d0…07fe (5, 0, 400) Head {h00=0x002a, h01=0x0050, text=» ENTRY RELPA2 RELEASE PAGE (2ND ENTRY)«, t00=0x0005, t01=0x0004}
0x07fe…0824 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHRET8 RESTORE FROM A8 «, t00=0x0005, t01=0x0032}
0x0824…083c Head {h00=0x0014, h01=0x0050, text=» ENTRY IHRET2 A2«, t00=0x0005, t01=0x0058}
0x083c…0862 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHRET1 A1 «, t00=0x0005, t01=0x0070}
0x0862…0898 Head {h00=0x0032, h01=0x0050, text=» ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS «, t00=0x0005, t01=0x0096}
0x0898…08ae Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0005, t01=0x00cc}
0x08ae…08b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e2}
0x08b8…08c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ec}
0x08c2…08d8 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x00f6}
0x08d8…08ee Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x010c}
0x08ee…0904 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0122}
0x0904…090e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0138}
0x090e…0918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0142}
0x0918…0956 Head {h00=0x003a, h01=0x0050, text=» EXTRN DISQUE POINTER TO 1ST PLACE IN DISPATCHER QUEUE«, t00=0x0005, t01=0x014c}
0x0956…0990 Head {h00=0x0036, h01=0x0050, text=» EXTRN FREQUE POINTER TO FIRST FREE MONITOR BLOCK «, t00=0x0005, t01=0x018a}
0x0990…09b4 Head {h00=0x0020, h01=0x0050, text=» EXTRN TTABLD LOAD TASK TTAB«, t00=0x0006, t01=0x0034}
0x09b4…09e0 Head {h00=0x0028, h01=0x0050, text=» EXTRN PQEMTY PAGE QUEUE EMPTY FLAG «, t00=0x0006, t01=0x0058}
0x09e0…0a06 Head {h00=0x0022, h01=0x0050, text=» EXTRN PAGQUE FREE PAGE QUEUE «, t00=0x0006, t01=0x0084}
0x0a06…0a2e Head {h00=0x0024, h01=0x0050, text=» EXTRN SEG:PB PAGE BLOCK ADDRESS«, t00=0x0006, t01=0x00aa}
0x0a2e…0a58 Head {h00=0x0026, h01=0x0050, text=» EXTRN PAG:QB QUEUE LINK BACKWARD «, t00=0x0006, t01=0x00d2}
0x0a58…0a90 Head {h00=0x0034, h01=0x0050, text=» EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR«, t00=0x0006, t01=0x00fc}
0x0a90…0aba Head {h00=0x0026, h01=0x0050, text=» EXTRN TTMJOB TTAB ADDRESS OF '#M'«, t00=0x0006, t01=0x0134}
0x0aba…0ae6 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SB SEGMENT BLOCK POINTER «, t00=0x0006, t01=0x015e}
0x0ae6…0b1a Head {h00=0x0030, h01=0x0050, text=» EXTRN TTB:ST TASK STATUS AND PRIORITY LEVEL«, t00=0x0006, t01=0x018a}
0x0b1a…0b44 Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:ID TASK IDENTIFICATION «, t00=0x0007, t01=0x002e}
0x0b44…0b64 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:SA SAVE AREA «, t00=0x0007, t01=0x0058}
0x0b64…0b92 Head {h00=0x002a, h01=0x0050, text=» EXTRN TTB:PP POINTER TO PENDING QUEUE«, t00=0x0007, t01=0x0078}
0x0b92…0bba Head {h00=0x0024, h01=0x0050, text=» EXTRN TTB:TD TASK DEVICE TABLE «, t00=0x0007, t01=0x00a6}
0x0bba…0be2 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTTCT TASK CONTROL TABLE«, t00=0x0007, t01=0x00ce}
0x0be2…0c0c Head {h00=0x0026, h01=0x0050, text=» EXTRN SCTCDT COMMON DEVICE TABLE «, t00=0x0007, t01=0x00f6}
0x0c0c…0c42 Head {h00=0x0032, h01=0x0050, text=» EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED «, t00=0x0007, t01=0x0120}
0x0c42…0c58 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0007, t01=0x0156}
0x0c58…0c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016c}
0x0c62…0c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0176}
0x0c6c…0c9e Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0007, t01=0x0180}
0x0c9e…0ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0022}
0x0ca8…0cc6 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0008, t01=0x002c}
0x0cc6…0cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004a}
0x0cd0…0d02 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x0054}
0x0d02…0d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0086}
0x0d0c…0d3e Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x0090}
0x0d3e…0d6c Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x00c2}
0x0d6c…0d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f0}
0x0d76…0d8a Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0008, t01=0x00fa}
0x0d8a…0d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010e}
0x0d94…0d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0118}
0x0d9e…0dd8 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0008, t01=0x0122}
0x0dd8…0e0a Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0008, t01=0x015c}
0x0e0a…0e14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018e}
0x0e14…0e28 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0009, t01=0x0008}
0x0e28…0e32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001c}
0x0e32…0e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0026}
0x0e3c…0e6e Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0009, t01=0x0030}
0x0e6e…0e9c Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0009, t01=0x0062}
0x0e9c…0ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0090}
0x0ea6…0eba Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 0«, t00=0x0009, t01=0x009a}
0x0eba…0ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ae}
0x0ec4…0ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b8}
0x0ece…0ef4 Head {h00=0x0022, h01=0x0050, text=»SOP EQU /2E SOP DEVICE ADDRESS«, t00=0x0009, t01=0x00c2}
0x0ef4…0efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e8}
0x0efe…0f14 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0009, t01=0x00f2}
0x0f14…0f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0108}
0x0f1e…0f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0112}
0x0f28…0f3e Head {h00=0x0012, h01=0x0050, text=»* S A V E 8 «, t00=0x0009, t01=0x011c}
0x0f3e…0f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0132}
0x0f48…0f7c Head {h00=0x0030, h01=0x0050, text=»* SUBROUTINE TO SAVE 8 REGISTERS ON STACK «, t00=0x0009, t01=0x013c}
0x0f7c…0fa4 Head {h00=0x0024, h01=0x0050, text=»* WITHOUT ENABLING INTERRUPTS.«, t00=0x0009, t01=0x0170}
0x0fa4…0fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0008}
0x0fae…0fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0012}
0x0fb8…0fcc Head {h00=0x0010, h01=0x0050, text=»SAVE8 EQU * «, t00=0x000a, t01=0x001c}
0x0fcc…0fec Head {h00=0x001c, h01=0x0050, text=» INH INHIBIT INTERRUPTS«, t00=0x000a, t01=0x0030}
0x0fec…1000 Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x000a, t01=0x0050}
0x1000…1014 Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x000a, t01=0x0064}
0x1014…1028 Head {h00=0x0010, h01=0x0050, text=» STR A5,A15 «, t00=0x000a, t01=0x0078}
0x1028…103c Head {h00=0x0010, h01=0x0050, text=» STR A6,A15 «, t00=0x000a, t01=0x008c}
0x103c…1050 Head {h00=0x0010, h01=0x0050, text=» STR A7,A15 «, t00=0x000a, t01=0x00a0}
0x1050…1064 Head {h00=0x0010, h01=0x0050, text=» STR A8,A15 «, t00=0x000a, t01=0x00b4}
0x1064…1094 Head {h00=0x002c, h01=0x0050, text=» LD A3,16,A15 LOAD P.C. (RETURN ADDRESS)«, t00=0x000a, t01=0x00c8}
0x1094…10c4 Head {h00=0x002c, h01=0x0050, text=» ST A3,SAVE81 AND MODIFY BRANCH ADDRESS «, t00=0x000a, t01=0x00f8}
0x10c4…10da Head {h00=0x0012, h01=0x0050, text=» ST A2,14,A15 «, t00=0x000a, t01=0x0128}
0x10da…10f0 Head {h00=0x0012, h01=0x0050, text=» ST A1,16,A15 «, t00=0x000a, t01=0x013e}
0x10f0…1110 Head {h00=0x001c, h01=0x0050, text=» LD A3,12,A15 RESTORE A3«, t00=0x000a, t01=0x0154}
0x1110…113a Head {h00=0x0026, h01=0x0050, text=» ABL 0 THIS IS USED TO BRANCH BACK«, t00=0x000a, t01=0x0174}
0x113a…1150 Head {h00=0x0012, h01=0x0050, text=»SAVE81 EQU *-2«, t00=0x000b, t01=0x000e}
0x1150…115a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0024}
0x115a…1170 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x000b, t01=0x002e}
0x1170…117a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0044}
0x117a…1184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x004e}
0x1184…119a Head {h00=0x0012, h01=0x0050, text=»* Q T J O B «, t00=0x000b, t01=0x0058}
0x119a…11a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x006e}
0x11a4…11da Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. «, t00=0x000b, t01=0x0078}
0x11da…11e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ae}
0x11e4…1200 Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETER:«, t00=0x000b, t01=0x00b8}
0x1200…120a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d4}
0x120a…123e Head {h00=0x0030, h01=0x0050, text=»* A5 = TTAB ADDRESS OF TASK TO BE QUEUED. «, t00=0x000b, t01=0x00de}
0x123e…1248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0112}
0x1248…1284 Head {h00=0x0038, h01=0x0050, text=»* THE REQUESTED TASK IS PUT IN DISPATCHER QUEUE ON«, t00=0x000b, t01=0x011c}
0x1284…12c2 Head {h00=0x003a, h01=0x0050, text=»* PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL TASK IS «, t00=0x000b, t01=0x0158}
0x12c2…12e0 Head {h00=0x001a, h01=0x0050, text=»* PUT LAST IN QUEUE.«, t00=0x000c, t01=0x0008}
0x12e0…12ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0026}
0x12ea…12f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0030}
0x12f4…1308 Head {h00=0x0010, h01=0x0050, text=»QTJOB EQU * «, t00=0x000c, t01=0x003a}
0x1308…1314 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000c, t01=0x004e}
0x1314…131e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005a}
0x131e…1334 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000c, t01=0x0064}
0x1334…135c Head {h00=0x0024, h01=0x0050, text=» STR A1,A15 SAVE A1-A3 ON STACK «, t00=0x000c, t01=0x007a}
0x135c…1370 Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x000c, t01=0x00a2}
0x1370…1384 Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x000c, t01=0x00b6}
0x1384…1390 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00ca}
0x1390…139a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d6}
0x139a…13b0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000c, t01=0x00e0}
0x13b0…13d6 Head {h00=0x0022, h01=0x0050, text=» MSR 3,A15 SAVE A1-A3 ON STACK«, t00=0x000c, t01=0x00f6}
0x13d6…13e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x011c}
0x13e2…13ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0128}
0x13ec…141e Head {h00=0x002e, h01=0x0050, text=» LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS «, t00=0x000c, t01=0x0132}
0x141e…1450 Head {h00=0x002e, h01=0x0050, text=» LDR* A2,A1 ADDRESS OF FIRST TASK IN QUEUE«, t00=0x000c, t01=0x0164}
0x1450…1472 Head {h00=0x001e, h01=0x0050, text=» RF(Z) QTJ020 DISQUE EMPTY«, t00=0x000d, t01=0x0008}
0x1472…149c Head {h00=0x0026, h01=0x0050, text=» LD A3,TTB:ST+1,A5 PRIORITY LEVEL «, t00=0x000d, t01=0x002a}
0x149c…14a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0054}
0x14a6…14bc Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x000d, t01=0x005e}
0x14bc…14c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0074}
0x14c6…14d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007e}
0x14d0…150a Head {h00=0x0036, h01=0x0050, text=»QTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL«, t00=0x000d, t01=0x0088}
0x150a…1526 Head {h00=0x0018, h01=0x0050, text=» RF(L) QTJ020 INSERT«, t00=0x000d, t01=0x00c2}
0x1526…1546 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 SAVE ADDRESS «, t00=0x000d, t01=0x00de}
0x1546…1574 Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A1 NEXT TTAB ADDRESS IN QUEUE«, t00=0x000d, t01=0x00fe}
0x1574…159c Head {h00=0x0024, h01=0x0050, text=» RB(NZ) QTJ010 NOT END OF QUEUE «, t00=0x000d, t01=0x012c}
0x159c…15a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0154}
0x15a6…15d2 Head {h00=0x0028, h01=0x0050, text=»QTJ020 STR A2,A5 UPDATE QUEUE LINKS «, t00=0x000d, t01=0x015e}
0x15d2…15e4 Head {h00=0x000e, h01=0x0050, text=» STR A5,A1«, t00=0x000d, t01=0x018a}
0x15e4…15ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000c}
0x15ee…1604 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000e, t01=0x0016}
0x1604…1618 Head {h00=0x0010, h01=0x0050, text=» ABL IHRET3 «, t00=0x000e, t01=0x002c}
0x1618…1624 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0040}
0x1624…162e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x004c}
0x162e…1644 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000e, t01=0x0056}
0x1644…1672 Head {h00=0x002a, h01=0x0050, text=» MLR 3,A15 RESTORE A1-A3 FROM STACK...«, t00=0x000e, t01=0x006c}
0x1672…1690 Head {h00=0x001a, h01=0x0050, text=» RTN A15 ...AND RETURN«, t00=0x000e, t01=0x009a}
0x1690…169c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00b8}
0x169c…16a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c4}
0x16a6…16bc Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x000e, t01=0x00ce}
0x16bc…16c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e4}
0x16c6…16d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ee}
0x16d0…16e6 Head {h00=0x0012, h01=0x0050, text=»* Q M J O B «, t00=0x000e, t01=0x00f8}
0x16e6…16f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010e}
0x16f0…1724 Head {h00=0x0030, h01=0x0050, text=»* SUBROUTINE TO QUEUE MONITOR TASK '#M'. «, t00=0x000e, t01=0x0118}
0x1724…172e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014c}
0x172e…174c Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x000e, t01=0x0156}
0x174c…1756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0174}
0x1756…1770 Head {h00=0x0016, h01=0x0050, text=»* A1 = PARAMETER«, t00=0x000e, t01=0x017e}
0x1770…1792 Head {h00=0x001e, h01=0x0050, text=»* A2 = DISPATCH ADDRESS «, t00=0x000f, t01=0x0008}
0x1792…17ac Head {h00=0x0016, h01=0x0050, text=»* A3 = PARAMETER«, t00=0x000f, t01=0x002a}
0x17ac…17c6 Head {h00=0x0016, h01=0x0050, text=»* A4 = PARAMETER«, t00=0x000f, t01=0x0044}
0x17c6…17d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005e}
0x17d0…1812 Head {h00=0x003e, h01=0x0050, text=»* A5 IS SET TO TTAB ADDRESS OF MONITOR TASK '#M' AND THE«, t00=0x000f, t01=0x0068}
0x1812…1858 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE TASK.«, t00=0x000f, t01=0x00aa}
0x1858…1862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f0}
0x1862…186c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fa}
0x186c…1880 Head {h00=0x0010, h01=0x0050, text=»QMJOB EQU * «, t00=0x000f, t01=0x0104}
0x1880…1896 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000f, t01=0x0118}
0x1896…18c0 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x000f, t01=0x012e}
0x18c0…18cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0158}
0x18cc…18d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0164}
0x18d6…18ec Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000f, t01=0x016e}
0x18ec…18f8 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000f, t01=0x0184}
0x18f8…191e Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x000f, t01=0x0190}
0x191e…192a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0026}
0x192a…1934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0032}
0x1934…1958 Head {h00=0x0020, h01=0x0050, text=» LDKL A5,TTMJOB TTAB ADDRESS«, t00=0x0010, t01=0x003c}
0x1958…196a Head {h00=0x000e, h01=0x0050, text=» RF ACT01 «, t00=0x0010, t01=0x0060}
0x196a…1974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0072}
0x1974…198a Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0010, t01=0x007c}
0x198a…1994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0092}
0x1994…199e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009c}
0x199e…19c2 Head {h00=0x0020, h01=0x0050, text=»* A C T O T , A C T O T P «, t00=0x0010, t01=0x00a6}
0x19c2…19cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ca}
0x19cc…19f6 Head {h00=0x0026, h01=0x0050, text=»* SUBROUTINE TO ACTIVATE A TASK.«, t00=0x0010, t01=0x00d4}
0x19f6…1a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00fe}
0x1a00…1a1e Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x0010, t01=0x0108}
0x1a1e…1a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0126}
0x1a28…1a44 Head {h00=0x0018, h01=0x0050, text=»* A1 = PARAMETER 1«, t00=0x0010, t01=0x0130}
0x1a44…1a66 Head {h00=0x001e, h01=0x0050, text=»* A2 = DISPATCH ADDRESS «, t00=0x0010, t01=0x014c}
0x1a66…1a86 Head {h00=0x001c, h01=0x0050, text=»* A3 = SEGMENT NUMBER «, t00=0x0010, t01=0x016e}
0x1a86…1aa2 Head {h00=0x0018, h01=0x0050, text=»* A4 = PARAMETER 2«, t00=0x0010, t01=0x018e}
0x1aa2…1ac0 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0011, t01=0x001a}
0x1ac0…1aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0038}
0x1aca…1b04 Head {h00=0x0036, h01=0x0050, text=»* - IF REQUESTED TASK IS NOT ACTIVE THE TASK IS «, t00=0x0011, t01=0x0042}
0x1b04…1b42 Head {h00=0x003a, h01=0x0050, text=»* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. «, t00=0x0011, t01=0x007c}
0x1b42…1b82 Head {h00=0x003c, h01=0x0050, text=»* - IF TASK IS ACTIVE, THE REQUEST IS PUT IN A PENDING«, t00=0x0011, t01=0x00ba}
0x1b82…1b96 Head {h00=0x0010, h01=0x0050, text=»* QUEUE.«, t00=0x0011, t01=0x00fa}
0x1b96…1bda Head {h00=0x0040, h01=0x0050, text=»* - ACTOT WILL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS.«, t00=0x0011, t01=0x010e}
0x1bda…1c20 Head {h00=0x0042, h01=0x0050, text=»* - ACTOTP WILL PUT REQUEST IN PENDING QUEUE ON LIFO BASIS. «, t00=0x0011, t01=0x0152}
0x1c20…1c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0008}
0x1c2a…1c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0012}
0x1c34…1c48 Head {h00=0x0010, h01=0x0050, text=»ACTOTP EQU *«, t00=0x0012, t01=0x001c}
0x1c48…1c5e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0012, t01=0x0030}
0x1c5e…1c88 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0012, t01=0x0046}
0x1c88…1c94 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0070}
0x1c94…1c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x007c}
0x1c9e…1cb4 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0012, t01=0x0086}
0x1cb4…1cc0 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0012, t01=0x009c}
0x1cc0…1ce6 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0012, t01=0x00a8}
0x1ce6…1cf2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00ce}
0x1cf2…1cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00da}
0x1cfc…1d1c Head {h00=0x001c, h01=0x0050, text=» LDK A6,1 INDICATE LIFO «, t00=0x0012, t01=0x00e4}
0x1d1c…1d2e Head {h00=0x000e, h01=0x0050, text=» RF ACT03 «, t00=0x0012, t01=0x0104}
0x1d2e…1d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0116}
0x1d38…1d4e Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0012, t01=0x0120}
0x1d4e…1d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0136}
0x1d58…1d62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0140}
0x1d62…1d76 Head {h00=0x0010, h01=0x0050, text=»ACTOT EQU * «, t00=0x0012, t01=0x014a}
0x1d76…1d8c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0012, t01=0x015e}
0x1d8c…1db6 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0012, t01=0x0174}
0x1db6…1dc2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x000e}
0x1dc2…1dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x001a}
0x1dcc…1de2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0013, t01=0x0024}
0x1de2…1dee Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0013, t01=0x003a}
0x1dee…1e14 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0013, t01=0x0046}
0x1e14…1e20 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x006c}
0x1e20…1e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0078}
0x1e2a…1e4e Head {h00=0x0020, h01=0x0050, text=»ACT01 LDK A6,0 INDICATE FIFO«, t00=0x0013, t01=0x0082}
0x1e4e…1e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a6}
0x1e58…1e6c Head {h00=0x0010, h01=0x0050, text=»ACT03 EQU * «, t00=0x0013, t01=0x00b0}
0x1e6c…1e9c Head {h00=0x002c, h01=0x0050, text=» LD A7,TTB:SA,A5 (OLD) DISPATCH ADDRESS «, t00=0x0013, t01=0x00c4}
0x1e9c…1ec4 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ACT020 IS PROGRAM ACTIVE«, t00=0x0013, t01=0x00f4}
0x1ec4…1ef8 Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRESS«, t00=0x0013, t01=0x011c}
0x1ef8…1f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0150}
0x1f02…1f18 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0013, t01=0x015a}
0x1f18…1f3e Head {h00=0x0022, h01=0x0050, text=» ST A1,TTB:SA+2,A5 PARAMETER 1«, t00=0x0013, t01=0x0170}
0x1f3e…1f68 Head {h00=0x0026, h01=0x0050, text=» ST A3,TTB:SA+6,A5 SEGMENT NUMBER «, t00=0x0014, t01=0x0008}
0x1f68…1f8e Head {h00=0x0022, h01=0x0050, text=» ST A4,TTB:SA+8,A5 PARAMETER 2«, t00=0x0014, t01=0x0032}
0x1f8e…1fb2 Head {h00=0x0020, h01=0x0050, text=» LD A4,TTB:ID,A5 SET TASK ID«, t00=0x0014, t01=0x0058}
0x1fb2…1fe0 Head {h00=0x002a, h01=0x0050, text=» ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA «, t00=0x0014, t01=0x007c}
0x1fe0…1fec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00aa}
0x1fec…1ff6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b6}
0x1ff6…200c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0014, t01=0x00c0}
0x200c…202c Head {h00=0x001c, h01=0x0050, text=» LD A2,TTB:ID,A5 TASK ID«, t00=0x0014, t01=0x00d6}
0x202c…2066 Head {h00=0x0036, h01=0x0050, text=» MS 4,TTB:SA+2,A5 SET PARAMETERS IN TTAB SAVE AREA«, t00=0x0014, t01=0x00f6}
0x2066…2072 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0130}
0x2072…207c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x013c}
0x207c…2092 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0014, t01=0x0146}
0x2092…209c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x015c}
0x209c…20a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0166}
0x20a6…20c2 Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x0014, t01=0x0170}
0x20c2…20fc Head {h00=0x0036, h01=0x0050, text=» CM TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT «, t00=0x0014, t01=0x018c}
0x20fc…2108 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0036}
0x2108…2112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0042}
0x2112…2136 Head {h00=0x0020, h01=0x0050, text=» CF A15,QTJOB QUEUE THE TASK«, t00=0x0015, t01=0x004c}
0x2136…2140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0070}
0x2140…2154 Head {h00=0x0010, h01=0x0050, text=»ACT010 EQU *«, t00=0x0015, t01=0x007a}
0x2154…216a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0015, t01=0x008e}
0x216a…2196 Head {h00=0x0028, h01=0x0050, text=» RF IHRET8 RESTORE A1-A8 AND RETURN «, t00=0x0015, t01=0x00a4}
0x2196…21a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00d0}
0x21a2…21ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00dc}
0x21ac…21c2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0015, t01=0x00e6}
0x21c2…21f0 Head {h00=0x002a, h01=0x0050, text=» MLR 8,A15 RESTORE A1-A8 FROM STACK...«, t00=0x0015, t01=0x00fc}
0x21f0…220e Head {h00=0x001a, h01=0x0050, text=» RTN A15 ...AND RETURN«, t00=0x0015, t01=0x012a}
0x220e…221a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0148}
0x221a…2224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0154}
0x2224…223a Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0015, t01=0x015e}
0x223a…2244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0174}
0x2244…226c Head {h00=0x0024, h01=0x0050, text=»* PUT REQUEST IN PENDING QUEUE«, t00=0x0015, t01=0x017e}
0x226c…2276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0016}
0x2276…22a0 Head {h00=0x0026, h01=0x0050, text=»ACT020 LDR A7,A4 SAVE PARAMETER 2 «, t00=0x0016, t01=0x0020}
0x22a0…22c8 Head {h00=0x0024, h01=0x0050, text=» CF A15,GETBLK GET A FREE BLOCK«, t00=0x0016, t01=0x004a}
0x22c8…22e6 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A7 PARAMETER 2«, t00=0x0016, t01=0x0072}
0x22e6…22f8 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0016, t01=0x0090}
0x22f8…230e Head {h00=0x0012, h01=0x0050, text=» CF A15,GETBLK«, t00=0x0016, t01=0x00a2}
0x230e…2326 Head {h00=0x0014, h01=0x0050, text=» ADKL A5,TTB:PP «, t00=0x0016, t01=0x00b8}
0x2326…2330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d0}
0x2330…2356 Head {h00=0x0022, h01=0x0050, text=»ACT030 LDR A3,A5 SAVE ADDRESS «, t00=0x0016, t01=0x00da}
0x2356…2382 Head {h00=0x0028, h01=0x0050, text=» LDR* A5,A5 FOLLOW THE QUEUE THREAD «, t00=0x0016, t01=0x0100}
0x2382…239a Head {h00=0x0014, h01=0x0050, text=» ADK A6,0 SET CR«, t00=0x0016, t01=0x012c}
0x239a…23c4 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) ACT040 QUEUE ON LIFO BASIS«, t00=0x0016, t01=0x0144}
0x23c4…23dc Head {h00=0x0014, h01=0x0050, text=» ADK A5,0 SET CR«, t00=0x0016, t01=0x016e}
0x23dc…2404 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) ACT030 NOT END OF QUEUE «, t00=0x0016, t01=0x0186}
0x2404…240e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x001e}
0x240e…2422 Head {h00=0x0010, h01=0x0050, text=»ACT040 EQU *«, t00=0x0017, t01=0x0028}
0x2422…2448 Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 SET BLOCK IN QUEUE «, t00=0x0017, t01=0x003c}
0x2448…245a Head {h00=0x000e, h01=0x0050, text=» STR A5,A4«, t00=0x0017, t01=0x0062}
0x245a…246c Head {h00=0x000e, h01=0x0050, text=» RB ACT010«, t00=0x0017, t01=0x0074}
0x246c…2476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0086}
0x2476…248c Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0017, t01=0x0090}
0x248c…2496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a6}
0x2496…24a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b0}
0x24a0…24b4 Head {h00=0x0010, h01=0x0050, text=»* E X I T «, t00=0x0017, t01=0x00ba}
0x24b4…24be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ce}
0x24be…24f8 Head {h00=0x0036, h01=0x0050, text=»* SUBROUTINE TO SET A TASK FREE AND QUEUE FIRST «, t00=0x0017, t01=0x00d8}
0x24f8…2514 Head {h00=0x0018, h01=0x0050, text=»* PENDING REQUEST.«, t00=0x0017, t01=0x0112}
0x2514…251e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x012e}
0x251e…253a Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETER:«, t00=0x0017, t01=0x0138}
0x253a…2544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0154}
0x2544…2562 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0017, t01=0x015e}
0x2562…256c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x017c}
0x256c…2590 Head {h00=0x0020, h01=0x0050, text=»* A3-A4, A7 ARE DESTROYED «, t00=0x0017, t01=0x0186}
0x2590…259a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x001a}
0x259a…25a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0024}
0x25a4…25b6 Head {h00=0x000e, h01=0x0050, text=»EXIT EQU *«, t00=0x0018, t01=0x002e}
0x25b6…25e2 Head {h00=0x0028, h01=0x0050, text=» CM TTB:SA,A5 RESET DISPATCH ADDRESS«, t00=0x0018, t01=0x0040}
0x25e2…2612 Head {h00=0x002c, h01=0x0050, text=» LD A4,TTB:PP,A5 PENDING REQUEST POINTER«, t00=0x0018, t01=0x006c}
0x2612…263a Head {h00=0x0024, h01=0x0050, text=» RF(Z) IHRTN NO PENDING REQUEST «, t00=0x0018, t01=0x009c}
0x263a…265a Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A4 QUEUE THREAD«, t00=0x0018, t01=0x00c4}
0x265a…268e Head {h00=0x0030, h01=0x0050, text=» ST A3,TTB:PP,A5 AND SAVE IN PENDING POINTER«, t00=0x0018, t01=0x00e4}
0x268e…26c6 Head {h00=0x0034, h01=0x0050, text=» CF A15,FREBLK RELEASE BLOCK AND GET PARAMETERS «, t00=0x0018, t01=0x0118}
0x26c6…26ea Head {h00=0x0020, h01=0x0050, text=» LDR A7,A1 SAVE PARAMETER 2 «, t00=0x0018, t01=0x0150}
0x26ea…26fc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0018, t01=0x0174}
0x26fc…2712 Head {h00=0x0012, h01=0x0050, text=» CF A15,FREBLK«, t00=0x0018, t01=0x0186}
0x2712…2730 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A7 PARAMETER 2«, t00=0x0019, t01=0x000c}
0x2730…2750 Head {h00=0x001c, h01=0x0050, text=» RB ACTOT ACTIVATE TASK «, t00=0x0019, t01=0x002a}
0x2750…275a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x004a}
0x275a…2770 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0019, t01=0x0054}
0x2770…277a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006a}
0x277a…2784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0074}
0x2784…279c Head {h00=0x0014, h01=0x0050, text=»* G E T B L K «, t00=0x0019, t01=0x007e}
0x279c…27a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0096}
0x27a6…27de Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO GET A FREE BLOCK FROM MONITOR «, t00=0x0019, t01=0x00a0}
0x27de…281a Head {h00=0x0038, h01=0x0050, text=»* BLOCK POOL. REGISTERS A3-A1 ARE STORED IN FOUND «, t00=0x0019, t01=0x00d8}
0x281a…2832 Head {h00=0x0014, h01=0x0050, text=»* FREE BLOCK. «, t00=0x0019, t01=0x0114}
0x2832…283c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x012c}
0x283c…2858 Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETER: «, t00=0x0019, t01=0x0136}
0x2858…2862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0152}
0x2862…288e Head {h00=0x0028, h01=0x0050, text=»* A4 = ADDRESS TO FOUND FREE BLOCK«, t00=0x0019, t01=0x015c}
0x288e…2898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0188}
0x2898…28a2 (26, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0004}
0x28a2…28b6 Head {h00=0x0010, h01=0x0050, text=»GETBLK EQU *«, t00=0x001a, t01=0x000e}
0x28b6…28c2 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001a, t01=0x0022}
0x28c2…28de Head {h00=0x0018, h01=0x0050, text=» STR A5,A15 SAVE A5 «, t00=0x001a, t01=0x002e}
0x28de…290e Head {h00=0x002c, h01=0x0050, text=» LD A4,FREQUE FIRST BLOCK IN FREE QUEUE «, t00=0x001a, t01=0x004a}
0x290e…2924 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) GBL010«, t00=0x001a, t01=0x007a}
0x2924…2946 Head {h00=0x001e, h01=0x0050, text=» LDK A1,/B HALT PARAMETER «, t00=0x001a, t01=0x0090}
0x2946…2976 Head {h00=0x002c, h01=0x0050, text=» CF A15,HALT HALT IF NO MORE FREE BLOCKS«, t00=0x001a, t01=0x00b2}
0x2976…2980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e2}
0x2980…299a Head {h00=0x0016, h01=0x0050, text=»GBL010 LDR* A5,A4 «, t00=0x001a, t01=0x00ec}
0x299a…29cc Head {h00=0x002e, h01=0x0050, text=» ST A5,FREQUE TAKE BLOCK OUT OF FREE QUEUE«, t00=0x001a, t01=0x0106}
0x29cc…29f4 Head {h00=0x0024, h01=0x0050, text=» STR A3,A4 STORE A3-A1 IN BLOCK «, t00=0x001a, t01=0x0138}
0x29f4…2a08 Head {h00=0x0010, h01=0x0050, text=» ST A2,2,A4 «, t00=0x001a, t01=0x0160}
0x2a08…2a1c Head {h00=0x0010, h01=0x0050, text=» ST A1,4,A4 «, t00=0x001a, t01=0x0174}
0x2a1c…2a3c Head {h00=0x001c, h01=0x0050, text=» LDR* A5,A15 RESTORE A5 «, t00=0x001a, t01=0x0188}
0x2a3c…2a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0018}
0x2a46…2a5c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001b, t01=0x0022}
0x2a5c…2a6e Head {h00=0x000e, h01=0x0050, text=» RF IHRTN «, t00=0x001b, t01=0x0038}
0x2a6e…2a7a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x004a}
0x2a7a…2a84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0056}
0x2a84…2a9a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001b, t01=0x0060}
0x2a9a…2aaa Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x001b, t01=0x0076}
0x2aaa…2ab6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0086}
0x2ab6…2ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0092}
0x2ac0…2ad6 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x001b, t01=0x009c}
0x2ad6…2ae0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b2}
0x2ae0…2aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00bc}
0x2aea…2b02 Head {h00=0x0014, h01=0x0050, text=»* F R E B L K «, t00=0x001b, t01=0x00c6}
0x2b02…2b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00de}
0x2b0c…2b4a Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINE TO GET PARAMETERS FROM A MONITOR BLOCK «, t00=0x001b, t01=0x00e8}
0x2b4a…2b6e Head {h00=0x0020, h01=0x0050, text=»* AND SET THIS BLOCK FREE.«, t00=0x001b, t01=0x0126}
0x2b6e…2b78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x014a}
0x2b78…2b94 Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETER:«, t00=0x001b, t01=0x0154}
0x2b94…2b9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0170}
0x2b9e…2bbc Head {h00=0x001a, h01=0x0050, text=»* A4 = BLOCK ADDRESS«, t00=0x001b, t01=0x017a}
0x2bbc…2bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0008}
0x2bc6…2be2 Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETERS:«, t00=0x001c, t01=0x0012}
0x2be2…2bec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x002e}
0x2bec…2c16 Head {h00=0x0026, h01=0x0050, text=»* A3 = FIRST PARAMETER IN BLOCK «, t00=0x001c, t01=0x0038}
0x2c16…2c3e Head {h00=0x0024, h01=0x0050, text=»* A2 = SECOND " " «, t00=0x001c, t01=0x0062}
0x2c3e…2c66 Head {h00=0x0024, h01=0x0050, text=»* A1 = THIRD " " «, t00=0x001c, t01=0x008a}
0x2c66…2c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b2}
0x2c70…2c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00bc}
0x2c7a…2c8e Head {h00=0x0010, h01=0x0050, text=»FREBLK EQU *«, t00=0x001c, t01=0x00c6}
0x2c8e…2c9a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001c, t01=0x00da}
0x2c9a…2cb8 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A4 UPDATE A3 «, t00=0x001c, t01=0x00e6}
0x2cb8…2cce Head {h00=0x0012, h01=0x0050, text=» LD A1,FREQUE «, t00=0x001c, t01=0x0104}
0x2cce…2ce0 Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x001c, t01=0x011a}
0x2ce0…2d04 Head {h00=0x0020, h01=0x0050, text=» ST A4,FREQUE SET BLOCK FREE«, t00=0x001c, t01=0x012c}
0x2d04…2d18 Head {h00=0x0010, h01=0x0050, text=» LD A2,2,A4 «, t00=0x001c, t01=0x0150}
0x2d18…2d2c Head {h00=0x0010, h01=0x0050, text=» LD A1,4,A4 «, t00=0x001c, t01=0x0164}
0x2d2c…2d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0178}
0x2d36…2d4c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001c, t01=0x0182}
0x2d4c…2d5e Head {h00=0x000e, h01=0x0050, text=» RF IHRTN «, t00=0x001d, t01=0x0008}
0x2d5e…2d6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x001a}
0x2d6a…2d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0026}
0x2d74…2d8a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001d, t01=0x0030}
0x2d8a…2d9a Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x001d, t01=0x0046}
0x2d9a…2da6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0056}
0x2da6…2db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0062}
0x2db0…2dc6 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x001d, t01=0x006c}
0x2dc6…2dd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0082}
0x2dd0…2dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x008c}
0x2dda…2df2 Head {h00=0x0014, h01=0x0050, text=»* F N D D W T «, t00=0x001d, t01=0x0096}
0x2df2…2dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ae}
0x2dfc…2e32 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINE TO FIND A DWT IN TTAB OR CDTAB.«, t00=0x001d, t01=0x00b8}
0x2e32…2e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ee}
0x2e3c…2e5a Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x001d, t01=0x00f8}
0x2e5a…2e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0116}
0x2e64…2e82 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x001d, t01=0x0120}
0x2e82…2e9e Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x001d, t01=0x013e}
0x2e9e…2ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015a}
0x2ea8…2ec4 Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETERS:«, t00=0x001d, t01=0x0164}
0x2ec4…2ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0180}
0x2ece…2ee8 Head {h00=0x0016, h01=0x0050, text=»* A2 = DWT INDEX«, t00=0x001d, t01=0x018a}
0x2ee8…2f16 Head {h00=0x002a, h01=0x0050, text=»* A6 = DWT ADDRESS IF FOUND, ELSE 0 «, t00=0x001e, t01=0x0014}
0x2f16…2f20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0042}
0x2f20…2f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x004c}
0x2f2a…2f42 Head {h00=0x0014, h01=0x0050, text=»* F N D D W D «, t00=0x001e, t01=0x0056}
0x2f42…2f4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x006e}
0x2f4c…2f7a Head {h00=0x002a, h01=0x0050, text=»* SUBROUTINE TO FIND A DWT IN CDTAB.«, t00=0x001e, t01=0x0078}
0x2f7a…2f84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00a6}
0x2f84…2fa2 Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x001e, t01=0x00b0}
0x2fa2…2fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ce}
0x2fac…2fc6 Head {h00=0x0016, h01=0x0050, text=»* A2 = FILE CODE«, t00=0x001e, t01=0x00d8}
0x2fc6…2fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f2}
0x2fd0…2ff8 Head {h00=0x0024, h01=0x0050, text=»* EXIT PARAMETERS, SEE FNDDWT «, t00=0x001e, t01=0x00fc}
0x2ff8…3002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0124}
0x3002…3018 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x001e, t01=0x012e}
0x3018…3022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0144}
0x3022…302c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x014e}
0x302c…3040 Head {h00=0x0010, h01=0x0050, text=»FNDDWT EQU *«, t00=0x001e, t01=0x0158}
0x3040…3056 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001e, t01=0x016c}
0x3056…3080 Head {h00=0x0026, h01=0x0050, text=» ELR A2,A8 LOAD FILE CODE FROM ECB«, t00=0x001e, t01=0x0182}
0x3080…308c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x001c}
0x308c…3096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0028}
0x3096…30ac Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001f, t01=0x0032}
0x30ac…30d8 Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A8 LOAD FILE CODE FROM ECB «, t00=0x001f, t01=0x0048}
0x30d8…30e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0074}
0x30e4…30ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0080}
0x30ee…310a Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x001f, t01=0x008a}
0x310a…3124 Head {h00=0x0016, h01=0x0050, text=» LDKL A6,TTB:TD+2 «, t00=0x001f, t01=0x00a6}
0x3124…3154 Head {h00=0x002c, h01=0x0050, text=» ADR A6,A5 ADDRESS TO TASK DEVICE TABLE «, t00=0x001f, t01=0x00c0}
0x3154…3176 Head {h00=0x001e, h01=0x0050, text=» LD A1,-2,A6 TABLE LENGTH «, t00=0x001f, t01=0x00f0}
0x3176…3180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0112}
0x3180…3198 Head {h00=0x0014, h01=0x0050, text=»FND100 SUK A1,4 «, t00=0x001f, t01=0x011c}
0x3198…31c4 Head {h00=0x0028, h01=0x0050, text=» RF(N) FND110 FILE CODE NOT IN TTAB «, t00=0x001f, t01=0x0134}
0x31c4…31ee Head {h00=0x0026, h01=0x0050, text=» CC A2,1,A6 SEARCH IN DEVICE TABLE«, t00=0x001f, t01=0x0160}
0x31ee…3214 Head {h00=0x0022, h01=0x0050, text=» RF(E) FND200 FILE CODE FOUND «, t00=0x001f, t01=0x018a}
0x3214…3240 Head {h00=0x0028, h01=0x0050, text=» ADK A6,4 ADDRESS TO NEXT FILE CODE «, t00=0x0020, t01=0x0020}
0x3240…325c Head {h00=0x0018, h01=0x0050, text=» RB FND100 TRY NEXT «, t00=0x0020, t01=0x004c}
0x325c…3266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0068}
0x3266…327c Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0020, t01=0x0072}
0x327c…3286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0088}
0x3286…32ae Head {h00=0x0024, h01=0x0050, text=»* SEARCH IN COMMON DEVICE TABLE «, t00=0x0020, t01=0x0092}
0x32ae…32b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ba}
0x32b8…32cc Head {h00=0x0010, h01=0x0050, text=»FNDDWD EQU *«, t00=0x0020, t01=0x00c4}
0x32cc…32e8 Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x0020, t01=0x00d8}
0x32e8…32f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00f4}
0x32f2…331c Head {h00=0x0026, h01=0x0050, text=»FND110 LD A6,SCTCDT CDTAB ADDRESS «, t00=0x0020, t01=0x00fe}
0x331c…333c Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 CDTAB LENGTH«, t00=0x0020, t01=0x0128}
0x333c…3364 Head {h00=0x0024, h01=0x0050, text=» ADK A6,2 POINTER TO FIRST ENTRY«, t00=0x0020, t01=0x0148}
0x3364…336e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0170}
0x336e…3386 Head {h00=0x0014, h01=0x0050, text=»FND120 SUK A1,4 «, t00=0x0020, t01=0x017a}
0x3386…33b0 (33, 0, 398) Head {h00=0x0026, h01=0x0050, text=» RF(N) FND130 FILE CODE NOT FOUND «, t00=0x0021, t01=0x0004}
0x33b0…33c4 Head {h00=0x0010, h01=0x0050, text=» CC A2,1,A6 «, t00=0x0021, t01=0x002e}
0x33c4…33ea Head {h00=0x0022, h01=0x0050, text=» RF(E) FND200 FILE CODE FOUND «, t00=0x0021, t01=0x0042}
0x33ea…3416 Head {h00=0x0028, h01=0x0050, text=» ADK A6,4 ADDRESS TO NEXT FILE CODE «, t00=0x0021, t01=0x0068}
0x3416…3440 Head {h00=0x0026, h01=0x0050, text=» RB FND120 TRY NEXT ENTRY IN CDTAB«, t00=0x0021, t01=0x0094}
0x3440…344a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00be}
0x344a…3462 Head {h00=0x0014, h01=0x0050, text=»FND130 LDK A6,0 «, t00=0x0021, t01=0x00c8}
0x3462…3474 Head {h00=0x000e, h01=0x0050, text=» RF IHRET1«, t00=0x0021, t01=0x00e0}
0x3474…347e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00f2}
0x347e…3492 Head {h00=0x0010, h01=0x0050, text=»FND200 EQU *«, t00=0x0021, t01=0x00fc}
0x3492…34b4 Head {h00=0x001e, h01=0x0050, text=» LCR A2,A6 LOAD DWT INDEX «, t00=0x0021, t01=0x0110}
0x34b4…34d8 Head {h00=0x0020, h01=0x0050, text=» LD A6,2,A6 LOAD DWT ADDRESS«, t00=0x0021, t01=0x0132}
0x34d8…34ea Head {h00=0x000e, h01=0x0050, text=» RF IHRET1«, t00=0x0021, t01=0x0156}
0x34ea…34f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0168}
0x34f4…350a Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0021, t01=0x0172}
0x350a…3514 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0188}
0x3514…351e (34, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0004}
0x351e…3536 Head {h00=0x0014, h01=0x0050, text=»* F N D T I D «, t00=0x0022, t01=0x000e}
0x3536…3540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0026}
0x3540…3586 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINE TO FIND TTAB ADDRESS FROM TASK IDENTIFICATION. «, t00=0x0022, t01=0x0030}
0x3586…3590 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0076}
0x3590…35ac Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETER:«, t00=0x0022, t01=0x0080}
0x35ac…35b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x009c}
0x35b6…35da Head {h00=0x0020, h01=0x0050, text=»* A7 = TASK IDENTIFICATION«, t00=0x0022, t01=0x00a6}
0x35da…35e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ca}
0x35e4…3600 Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETER: «, t00=0x0022, t01=0x00d4}
0x3600…360a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f0}
0x360a…3628 Head {h00=0x001a, h01=0x0050, text=»* A2 = TTAB ADDRESS «, t00=0x0022, t01=0x00fa}
0x3628…365c Head {h00=0x0030, h01=0x0050, text=»* A2 = 0 INDICATES ILLEGAL IDENTIFICATION «, t00=0x0022, t01=0x0118}
0x365c…3666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x014c}
0x3666…3670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0156}
0x3670…3692 Head {h00=0x001e, h01=0x0050, text=»FNDTID STR A1,A15 SAVE A1 «, t00=0x0022, t01=0x0160}
0x3692…36b6 Head {h00=0x0020, h01=0x0050, text=» LD* A1,SCTTCT TCTAB LENGTH «, t00=0x0022, t01=0x0182}
0x36b6…36cc Head {h00=0x0012, h01=0x0050, text=» AD A1,SCTTCT «, t00=0x0023, t01=0x0016}
0x36cc…36d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x002c}
0x36d6…36ee Head {h00=0x0014, h01=0x0050, text=»FTI010 SUK A1,2 «, t00=0x0023, t01=0x0036}
0x36ee…3704 Head {h00=0x0012, h01=0x0050, text=» CW A1,SCTTCT «, t00=0x0023, t01=0x004e}
0x3704…372c Head {h00=0x0024, h01=0x0050, text=» RF(E) FTI030 ALL TTABS EXAMINED«, t00=0x0023, t01=0x0064}
0x372c…374c Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 TTAB ADDRESS«, t00=0x0023, t01=0x008c}
0x374c…377c Head {h00=0x002c, h01=0x0050, text=» CW A7,TTB:ID,A2 COMPARE IDENTIFICATIONS«, t00=0x0023, t01=0x00ac}
0x377c…379c Head {h00=0x001c, h01=0x0050, text=» RB(NE) FTI010 NO MATCH «, t00=0x0023, t01=0x00dc}
0x379c…37b0 Head {h00=0x0010, h01=0x0050, text=» RF IHRET1 «, t00=0x0023, t01=0x00fc}
0x37b0…37ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0110}
0x37ba…37e8 Head {h00=0x002a, h01=0x0050, text=»FTI030 LDK A2,0 ILLEGAL IDENTIFICATION«, t00=0x0023, t01=0x011a}
0x37e8…37fa Head {h00=0x000e, h01=0x0050, text=» RF IHRET1«, t00=0x0023, t01=0x0148}
0x37fa…3804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x015a}
0x3804…381a Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0023, t01=0x0164}
0x381a…3824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x017a}
0x3824…382e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0184}
0x382e…385e Head {h00=0x002c, h01=0x0050, text=»* RESTORE REGISTERS AND RETURN WITHOUT«, t00=0x0023, t01=0x018e}
0x385e…387c Head {h00=0x001a, h01=0x0050, text=»* ENABLE INTERRUPTS.«, t00=0x0024, t01=0x002e}
0x387c…3886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x004c}
0x3886…3890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0056}
0x3890…38a6 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0024, t01=0x0060}
0x38a6…38c0 Head {h00=0x0016, h01=0x0050, text=»IHRET8 LDR* A8,A15«, t00=0x0024, t01=0x0076}
0x38c0…38d4 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A15«, t00=0x0024, t01=0x0090}
0x38d4…38e8 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A15«, t00=0x0024, t01=0x00a4}
0x38e8…38fc Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A15«, t00=0x0024, t01=0x00b8}
0x38fc…3910 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A15«, t00=0x0024, t01=0x00cc}
0x3910…391a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e0}
0x391a…3934 Head {h00=0x0016, h01=0x0050, text=»IHRET3 LDR* A3,A15«, t00=0x0024, t01=0x00ea}
0x3934…393e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0104}
0x393e…3958 Head {h00=0x0016, h01=0x0050, text=»IHRET2 LDR* A2,A15«, t00=0x0024, t01=0x010e}
0x3958…3962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0128}
0x3962…397c Head {h00=0x0016, h01=0x0050, text=»IHRET1 LDR* A1,A15«, t00=0x0024, t01=0x0132}
0x397c…3986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014c}
0x3986…3998 Head {h00=0x000e, h01=0x0050, text=»IHRTN INH «, t00=0x0024, t01=0x0156}
0x3998…39c0 Head {h00=0x0024, h01=0x0050, text=» ADKL A15,4 ADJUST STACK POINTER«, t00=0x0024, t01=0x0168}
0x39c0…39dc Head {h00=0x0018, h01=0x0050, text=» ABR* A15 AND RETURN«, t00=0x0024, t01=0x0190}
0x39dc…39e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x001c}
0x39e8…39f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0028}
0x39f2…3a08 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0025, t01=0x0032}
0x3a08…3a3c Head {h00=0x0030, h01=0x0050, text=»IHRET8 MLR 8,A15 RESTORE A1-A8 FROM STACK...«, t00=0x0025, t01=0x0048}
0x3a3c…3a5a Head {h00=0x001a, h01=0x0050, text=» RTN A15 ...AND RETURN«, t00=0x0025, t01=0x007c}
0x3a5a…3a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x009a}
0x3a64…3a98 Head {h00=0x0030, h01=0x0050, text=»IHRET2 MLR 2,A15 RESTORE A1-A2 FROM STACK...«, t00=0x0025, t01=0x00a4}
0x3a98…3ab6 Head {h00=0x001a, h01=0x0050, text=» RTN A15 ...AND RETURN«, t00=0x0025, t01=0x00d8}
0x3ab6…3ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f6}
0x3ac0…3af4 Head {h00=0x0030, h01=0x0050, text=»IHRET1 LDR* A1,A15 RESTORE A1 FROM STACK... «, t00=0x0025, t01=0x0100}
0x3af4…3afe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0134}
0x3afe…3b22 Head {h00=0x0020, h01=0x0050, text=»IHRTN RTN A15 ...AND RETURN «, t00=0x0025, t01=0x013e}
0x3b22…3b2e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0162}
0x3b2e…3b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x016e}
0x3b38…3b4e Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0025, t01=0x0178}
0x3b4e…3b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x018e}
0x3b58…3b62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0008}
0x3b62…3b7a Head {h00=0x0014, h01=0x0050, text=»* P F I N I T «, t00=0x0026, t01=0x0012}
0x3b7a…3b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x002a}
0x3b84…3bae Head {h00=0x0026, h01=0x0050, text=»* SUBROUTINE TO RESTART DEVICES.«, t00=0x0026, t01=0x0034}
0x3bae…3bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005e}
0x3bb8…3bfc Head {h00=0x0040, h01=0x0050, text=»* ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALLED. «, t00=0x0026, t01=0x0068}
0x3bfc…3c40 Head {h00=0x0040, h01=0x0050, text=»* REGISTERS A1-A8 ARE AVAILABLE FOR THE RESTART ROUTINES. «, t00=0x0026, t01=0x00ac}
0x3c40…3c4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00f0}
0x3c4a…3c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00fa}
0x3c54…3c68 Head {h00=0x0010, h01=0x0050, text=»PFINIT EQU *«, t00=0x0026, t01=0x0104}
0x3c68…3c94 Head {h00=0x0028, h01=0x0050, text=» LDK A1,2 SET INDEX TO FIRST ROUTINE«, t00=0x0026, t01=0x0118}
0x3c94…3c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0144}
0x3c9e…3cc6 Head {h00=0x0024, h01=0x0050, text=»PFI100 CW A1,PFTAB CHECK IF LAST«, t00=0x0026, t01=0x014e}
0x3cc6…3cea Head {h00=0x0020, h01=0x0050, text=» RF(NL) PFI110 ALL RESTARTED«, t00=0x0026, t01=0x0176}
0x3cea…3d06 Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x0027, t01=0x000a}
0x3d06…3d12 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0027, t01=0x0026}
0x3d12…3d40 Head {h00=0x002a, h01=0x0050, text=» CFI A15,PFTAB,A1 CALL RESTART MODULE «, t00=0x0027, t01=0x0032}
0x3d40…3d60 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A15 RESTORE A1 «, t00=0x0027, t01=0x0060}
0x3d60…3d7e Head {h00=0x001a, h01=0x0050, text=» ADK A1,2 NEXT DEVICE «, t00=0x0027, t01=0x0080}
0x3d7e…3d90 Head {h00=0x000e, h01=0x0050, text=» RB PFI100«, t00=0x0027, t01=0x009e}
0x3d90…3d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b0}
0x3d9a…3dc8 Head {h00=0x002a, h01=0x0050, text=»PFI110 RTN A15 RETURN WHEN ALL STARTED«, t00=0x0027, t01=0x00ba}
0x3dc8…3dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00e8}
0x3dd2…3de8 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0027, t01=0x00f2}
0x3de8…3df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0108}
0x3df2…3dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0112}
0x3dfc…3e12 Head {h00=0x0012, h01=0x0050, text=»* S W L 4 8 «, t00=0x0027, t01=0x011c}
0x3e12…3e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0132}
0x3e1c…3e46 Head {h00=0x0026, h01=0x0050, text=»* SWITCH TO LEVEL 48 AND ENABLE.«, t00=0x0027, t01=0x013c}
0x3e46…3e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0166}
0x3e50…3e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0170}
0x3e5a…3e6e Head {h00=0x0010, h01=0x0050, text=»SWL48 EQU * «, t00=0x0027, t01=0x017a}
0x3e6e…3e8a Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x0027, t01=0x018e}
0x3e8a…3e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x001a}
0x3e94…3ea8 Head {h00=0x0010, h01=0x0050, text=»SWL481 EQU *«, t00=0x0028, t01=0x0024}
0x3ea8…3ed0 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,/C0C0 PSW FOR LEVEL 48 «, t00=0x0028, t01=0x0038}
0x3ed0…3eda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0060}
0x3eda…3eee Head {h00=0x0010, h01=0x0050, text=»SWL482 EQU *«, t00=0x0028, t01=0x006a}
0x3eee…3f18 Head {h00=0x0026, h01=0x0050, text=» ST A1,4,A15 SAVE IT ON A15 STACK «, t00=0x0028, t01=0x007e}
0x3f18…3f38 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A15 RESTORE A1 «, t00=0x0028, t01=0x00a8}
0x3f38…3f48 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0028, t01=0x00c8}
0x3f48…3f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00d8}
0x3f52…3f68 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0028, t01=0x00e2}
0x3f68…3f72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f8}
0x3f72…3f7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0102}
0x3f7c…3f92 Head {h00=0x0012, h01=0x0050, text=»* S W L X Y «, t00=0x0028, t01=0x010c}
0x3f92…3f9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0122}
0x3f9c…3fc6 Head {h00=0x0026, h01=0x0050, text=»* SWITCH TO LEVEL XY AND ENABLE.«, t00=0x0028, t01=0x012c}
0x3fc6…3fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0156}
0x3fd0…4002 Head {h00=0x002e, h01=0x0050, text=»* LEVEL := 48 IF LEVEL ON STACK IS >= 48«, t00=0x0028, t01=0x0160}
0x4002…4036 (41, 0, 400) Head {h00=0x0030, h01=0x0050, text=»* LEVEL := XY " " " " " XY < 48«, t00=0x0029, t01=0x0004}
0x4036…4040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0038}
0x4040…4082 Head {h00=0x003e, h01=0x0050, text=»* THIS MODULE IS TO BE CALLED WITH 8 REGISTERS ON STACK.«, t00=0x0029, t01=0x0042}
0x4082…408c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0084}
0x408c…4096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x008e}
0x4096…40aa Head {h00=0x0010, h01=0x0050, text=»SWLXY EQU * «, t00=0x0029, t01=0x0098}
0x40aa…40c6 Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x0029, t01=0x00ac}
0x40c6…40ec Head {h00=0x0022, h01=0x0050, text=» LC A1,24,A15 LEVEL FROM STACK«, t00=0x0029, t01=0x00c8}
0x40ec…4100 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FC «, t00=0x0029, t01=0x00ee}
0x4100…4114 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/BC «, t00=0x0029, t01=0x0102}
0x4114…412a Head {h00=0x0012, h01=0x0050, text=» RB(G) SWL481 «, t00=0x0029, t01=0x0116}
0x412a…4140 Head {h00=0x0012, h01=0x0050, text=» LD A1,24,A15 «, t00=0x0029, t01=0x012c}
0x4140…4166 Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/FFFE SYSTEM MODE BIT«, t00=0x0029, t01=0x0142}
0x4166…4178 Head {h00=0x000e, h01=0x0050, text=» RB SWL482«, t00=0x0029, t01=0x0168}
0x4178…4182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x017a}
0x4182…4198 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0029, t01=0x0184}
0x4198…41a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x000a}
0x41a2…41ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0014}
0x41ac…41d6 Head {h00=0x0026, h01=0x0050, text=»* INTERRUPT SAVE AND HALT MODULE«, t00=0x002a, t01=0x001e}
0x41d6…41e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0048}
0x41e0…41ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0052}
0x41ea…4200 Head {h00=0x0012, h01=0x0050, text=»INTSAV DATA 0 «, t00=0x002a, t01=0x005c}
0x4200…4216 Head {h00=0x0012, h01=0x0050, text=»SAVA15 DATA 0 «, t00=0x002a, t01=0x0072}
0x4216…4220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0088}
0x4220…4246 Head {h00=0x0022, h01=0x0050, text=»ILLINT LDK A1,5 HALT PARAMETER«, t00=0x002a, t01=0x0092}
0x4246…425a Head {h00=0x0010, h01=0x0050, text=» CF A15,HALT«, t00=0x002a, t01=0x00b8}
0x425a…4264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00cc}
0x4264…4276 Head {h00=0x000e, h01=0x0050, text=»HALT EQU *«, t00=0x002a, t01=0x00d6}
0x4276…428c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002a, t01=0x00e8}
0x428c…42b6 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x002a, t01=0x00fe}
0x42b6…42de Head {h00=0x0024, h01=0x0050, text=» STR A9,A15 SAVE A9-A14 ON STACK«, t00=0x002a, t01=0x0128}
0x42de…42f2 Head {h00=0x0010, h01=0x0050, text=» STR A10,A15«, t00=0x002a, t01=0x0150}
0x42f2…4306 Head {h00=0x0010, h01=0x0050, text=» STR A11,A15«, t00=0x002a, t01=0x0164}
0x4306…431a Head {h00=0x0010, h01=0x0050, text=» STR A12,A15«, t00=0x002a, t01=0x0178}
0x431a…432e Head {h00=0x0010, h01=0x0050, text=» STR A13,A15«, t00=0x002a, t01=0x018c}
0x432e…4342 Head {h00=0x0010, h01=0x0050, text=» STR A14,A15«, t00=0x002b, t01=0x0010}
0x4342…434e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0024}
0x434e…4358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0030}
0x4358…436e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002b, t01=0x003a}
0x436e…4396 Head {h00=0x0024, h01=0x0050, text=» MSR 14,A15 SAVE A1-A14 ON STACK«, t00=0x002b, t01=0x0050}
0x4396…43a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0078}
0x43a2…43ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0084}
0x43ac…43c2 Head {h00=0x0012, h01=0x0050, text=» ST A15,SAVA15«, t00=0x002b, t01=0x008e}
0x43c2…43ee Head {h00=0x0028, h01=0x0050, text=» OTR A1,0,SOP INDICATE TYPE OF HALT «, t00=0x002b, t01=0x00a4}
0x43ee…43fa Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x002b, t01=0x00d0}
0x43fa…4404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00dc}
0x4404…441a Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x002b, t01=0x00e6}
0x441a…4424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00fc}
0x4424…442e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0106}
0x442e…4446 Head {h00=0x0014, h01=0x0050, text=»* R E L P A G «, t00=0x002b, t01=0x0110}
0x4446…4450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0128}
0x4450…4490 Head {h00=0x003c, h01=0x0050, text=»* RELEASE PAGE AND RESTART LDTASK IF PAGQUE WAS EMPTY «, t00=0x002b, t01=0x0132}
0x4490…449a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0172}
0x449a…44b8 Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x002b, t01=0x017c}
0x44b8…44c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x000a}
0x44c2…44fc Head {h00=0x0036, h01=0x0050, text=»* A3 = SEGBLK ADDRESS (PAGBLK ADDRESS IF RELPA2)«, t00=0x002c, t01=0x0014}
0x44fc…4522 Head {h00=0x0022, h01=0x0050, text=»* A5 = TTAB ADDRESS (RELPA2)«, t00=0x002c, t01=0x004e}
0x4522…452c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0074}
0x452c…4548 Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETER: «, t00=0x002c, t01=0x007e}
0x4548…4552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x009a}
0x4552…456e Head {h00=0x0018, h01=0x0050, text=»* A4 IS DESTROYED «, t00=0x002c, t01=0x00a4}
0x456e…4578 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00c0}
0x4578…4582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ca}
0x4582…4598 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x002c, t01=0x00d4}
0x4598…45ac Head {h00=0x0010, h01=0x0050, text=»RELPA2 EQU *«, t00=0x002c, t01=0x00ea}
0x45ac…45e6 Head {h00=0x0036, h01=0x0050, text=» CM TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT «, t00=0x002c, t01=0x00fe}
0x45e6…45f8 Head {h00=0x000e, h01=0x0050, text=» RF REL:10«, t00=0x002c, t01=0x0138}
0x45f8…4602 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x014a}
0x4602…462e Head {h00=0x0028, h01=0x0050, text=»RELPAG EQU * RELEASE PAGE MAIN ENTRY«, t00=0x002c, t01=0x0154}
0x462e…465a Head {h00=0x0028, h01=0x0050, text=» LD A3,SEG:PB,A3 PAGE BLOCK ADDRESS «, t00=0x002c, t01=0x0180}
0x465a…4664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x001c}
0x4664…4678 Head {h00=0x0010, h01=0x0050, text=»REL:10 EQU *«, t00=0x002d, t01=0x0026}
0x4678…469e Head {h00=0x0022, h01=0x0050, text=» LDKL A4,PAGQUE PAGQUE ADDRESS«, t00=0x002d, t01=0x003a}
0x469e…46b6 Head {h00=0x0014, h01=0x0050, text=» ST A4,PAG:QB,A3«, t00=0x002d, t01=0x0060}
0x46b6…46ea Head {h00=0x0030, h01=0x0050, text=» LDR* A4,A4 ADDRESS OF FIRST BLOCK IN PAGQUE«, t00=0x002d, t01=0x0078}
0x46ea…4710 Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 UPDATE QUEUE LINKS «, t00=0x002d, t01=0x00ac}
0x4710…4726 Head {h00=0x0012, h01=0x0050, text=» ST A3,PAGQUE «, t00=0x002d, t01=0x00d2}
0x4726…473e Head {h00=0x0014, h01=0x0050, text=» ST A3,PAG:QB,A4«, t00=0x002d, t01=0x00e8}
0x473e…4776 Head {h00=0x0034, h01=0x0050, text=» LD A4,PQEMTY CHECK IF LDTASK IS IN PAUSE STATE «, t00=0x002d, t01=0x0100}
0x4776…478c Head {h00=0x0012, h01=0x0050, text=» RF(Z) REL:20 «, t00=0x002d, t01=0x0138}
0x478c…4796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x014e}
0x4796…47ac Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x002d, t01=0x0158}
0x47ac…47b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x016e}
0x47b6…47d4 Head {h00=0x001a, h01=0x0050, text=»* RESTART LOAD TASK «, t00=0x002d, t01=0x0178}
0x47d4…47de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0008}
0x47de…480e Head {h00=0x002c, h01=0x0050, text=» CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY«, t00=0x002e, t01=0x0012}
0x480e…4828 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A5 SAVE A5«, t00=0x002e, t01=0x0042}
0x4828…4854 Head {h00=0x0028, h01=0x0050, text=» LDKL A5,TTABLD LDTASK TTAB ADDRESS «, t00=0x002e, t01=0x005c}
0x4854…487c Head {h00=0x0024, h01=0x0050, text=» CF A15,QTJOB RESTART LOAD TASK «, t00=0x002e, t01=0x0088}
0x487c…489a Head {h00=0x001a, h01=0x0050, text=» LDR A5,A4 RESTORE A5 «, t00=0x002e, t01=0x00b0}
0x489a…48a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ce}
0x48a4…48b8 Head {h00=0x0010, h01=0x0050, text=»REL:20 EQU *«, t00=0x002e, t01=0x00d8}
0x48b8…48ce Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002e, t01=0x00ec}
0x48ce…48e0 Head {h00=0x000e, h01=0x0050, text=» RB IHRTN «, t00=0x002e, t01=0x0102}
0x48e0…48ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0114}
0x48ec…48f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0120}
0x48f6…490c Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x002e, t01=0x012a}
0x490c…4922 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002e, t01=0x0140}
0x4922…4932 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x002e, t01=0x0156}
0x4932…493e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0166}
0x493e…4948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0172}
0x4948…495e Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=0 «, t00=0x002e, t01=0x017c}
0x495e…4994 (47, 2, 178) Head {h00=0x0032, h01=0x0050, text=»RELPAG EQU * DUMMY ENTRIES TO AVOID ASS. ERR. «, t00=0x002f, t01=0x0004}
0x4994…49a8 Head {h00=0x0010, h01=0x0050, text=»RELPA2 EQU *«, t00=0x002f, t01=0x003a}
0x49a8…49d2 Head {h00=0x0026, h01=0x0050, text=» ABL LKMERR INDICATE SYSGEN ERROR «, t00=0x002f, t01=0x004e}
0x49d2…49de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0078}
0x49de…49e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0084}
0x49e8…49f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x008e}
0x49f2…49fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0098}
0x49fc…4a08 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002f, t01=0x00a2}
0x4a08…4a0c Head {h00=0x4004, h01=0x0000}
0x4a0c…4a10 00 2f 00 ae ┆ / ┆
0x4a10…4a18 (48, 1, 8) 20 04 00 00 00 30 00 04 ┆ 0 ┆
0x4a18…4a68 (49, 0, 398) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 a8 01 8e 00 32 00 50 2a 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 41 32 20 20 20 20 20 20 ┆ ** 2 P** WORK REGISTERS: A2 ┆
0x4a68…4ab8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 a9 00 34 00 32 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 a9 00 6a 00 32 00 50 ┆ ** 4 2 P** ** j 2 P┆
0x4ab8…4b08 2a 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 4d 4f 56 49 4e 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 a9 00 a0 00 32 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆** SUBROUTINES: MOVING ** 2 P** ┆
0x4b08…4b58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 a9 00 d6 00 32 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 20 00 a9 01 0c 00 06 ┆ ** 2 P********************************************* ┆
0x4b58…4ba6 00 50 2a 20 00 a9 01 42 00 10 00 50 43 41 4c 4c 4d 4f 5c 45 51 55 5c 2a 00 a9 01 4c 00 32 00 50 5c 4c 44 5c 41 32 2c 50 44 44 49 56 2b 53 54 4b 45 4e 44 5c 4d 4f 52 45 20 53 50 41 43 45 20 49 4e 20 50 44 44 49 56 20 41 52 45 41 3f 20 ┆ P* B PCALLMO EQU * L 2 P LD A2,PDDIV+STKEND MORE SPACE IN PDDIV AREA? ┆
0x4ba6…4bf6 (50, 0, 400) 00 a9 01 60 00 16 00 50 5c 52 46 28 5a 29 5c 43 41 4c 4c 3a 31 30 5c 4e 4f 21 00 aa 00 08 00 26 00 50 5c 4c 44 5c 41 32 2c 50 44 44 49 56 4c 2c 41 31 30 5c 59 45 53 21 20 47 45 54 20 4c 45 4e 47 54 48 20 00 aa 00 22 00 0e 00 50 5c 53 55 52 ┆ ` P RF(Z) CALL:10 NO! & P LD A2,PDDIVL,A10 YES! GET LENGTH " P SUR┆
0x4bf6…4c46 5c 41 32 2c 41 33 00 aa 00 4c 00 22 00 50 5c 52 46 28 4e 4e 29 5c 43 41 4c 4c 3a 32 30 5c 45 4e 4f 55 47 48 20 53 50 41 43 45 3f 20 00 aa 00 5e 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 30 20 00 aa 00 84 00 2c 00 50 5c 4c 44 5c 41 32 ┆ A2,A3 L " P RF(NN) CALL:20 ENOUGH SPACE? ^ P IFT MMUPAG=0 , P LD A2┆
0x4c46…4c96 2c 53 43 54 45 46 41 2b 32 5c 4e 30 21 20 47 45 54 20 45 4e 44 20 4f 46 20 46 52 45 45 20 41 52 45 41 00 aa 00 9a 00 2c 00 50 5c 53 54 5c 41 32 2c 4c 53 54 41 44 52 2b 53 54 4b 43 4f 4d 5c 55 50 44 41 54 45 20 4c 41 53 54 20 41 44 44 52 45 ┆,SCTEFA+2 N0! GET END OF FREE AREA , P ST A2,LSTADR+STKCOM UPDATE LAST ADDRE┆
0x4c96…4ce6 53 53 00 aa 00 ca 00 08 00 50 5c 58 49 46 00 aa 00 fa 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 aa 01 06 00 18 00 50 5c 4c 44 5c 41 32 2c 53 41 45 46 41 32 2b 53 54 4b 45 4e 44 00 aa 01 1c 00 2c 00 50 5c 53 54 5c 41 32 2c 4c ┆SS P XIF P IFT MMUPAG=1 P LD A2,SAEFA2+STKEND , P ST A2,L┆
0x4ce6…4d36 53 54 41 44 52 2b 53 54 4b 43 4f 4d 5c 55 50 44 41 54 45 20 4c 41 53 54 20 41 44 44 52 45 53 53 00 aa 01 38 00 18 00 50 5c 4c 44 20 41 32 2c 53 41 45 46 41 31 2b 53 54 4b 45 4e 44 00 aa 01 68 00 34 00 50 5c 53 54 5c 41 32 2c 46 59 53 50 41 ┆STADR+STKCOM UPDATE LAST ADDRESS 8 P LD A2,SAEFA1+STKEND h 4 P ST A2,FYSPA┆
0x4d36…4d86 (51, 0, 398) 47 2b 53 54 4b 43 4f 4d 5c 55 50 44 41 54 45 20 50 48 59 53 49 43 41 4c 20 50 41 47 45 20 4e 55 4d 42 45 52 00 aa 01 84 00 08 00 50 5c 58 49 46 00 ab 00 2c 00 20 00 50 5c 43 4d 5c 50 44 44 49 56 2b 53 54 4b 45 4e 44 5c 52 45 53 45 54 20 46 ┆G+STKCOM UPDATE PHYSICAL PAGE NUMBER P XIF , P CM PDDIV+STKEND RESET F┆
0x4d86…4dd6 4c 41 47 20 00 ab 00 38 00 12 00 50 43 41 4c 4c 3a 32 30 5c 45 51 55 5c 2a 20 00 ab 00 5c 00 24 00 50 5c 53 54 5c 41 32 2c 50 44 44 49 56 4c 2c 41 31 30 5c 55 50 44 41 54 45 20 50 44 44 49 56 4c 20 00 ab 00 72 00 12 00 50 43 41 4c 4c 3a 31 ┆LAG 8 PCALL:20 EQU * $ P ST A2,PDDIVL,A10 UPDATE PDDIVL r PCALL:1┆
0x4dd6…4e26 30 5c 45 51 55 5c 2a 20 00 ab 00 9a 00 10 00 50 5c 43 41 4c 4c 5c 4d 4f 56 49 4e 47 00 ab 00 b0 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 ab 00 c4 00 0a 00 50 5c 45 4a 45 43 54 00 ab 00 d4 00 08 00 50 5c 5c 5c 20 00 ab 00 e2 00 34 00 50 2a 2a ┆0 EQU * P CALL MOVING P RTN A14 P EJECT P 4 P**┆
0x4e26…4e76 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 20 45 20 54 20 57 20 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 ab 00 ee 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ G E T W B ** 4 P** ┆
0x4e76…4ec4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 ab 01 26 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 ┆ ** & 4 P** ** ┆
0x4ec4…4f14 (52, 0, 400) 00 ab 01 5e 00 34 00 50 2a 2a 20 20 47 45 54 20 57 4f 52 4b 20 42 4c 4f 43 4b 20 41 44 44 52 45 53 53 20 41 4e 44 20 44 49 53 50 4c 41 43 45 2d 20 20 20 20 20 2a 2a 20 00 ac 00 08 00 34 00 50 2a 2a 20 20 4d 45 4e 54 20 49 4e 20 54 3a 41 20 ┆ ^ 4 P** GET WORK BLOCK ADDRESS AND DISPLACE- ** 4 P** MENT IN T:A ┆
0x4f14…4f64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 ac 00 40 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ** @ 4 P** ┆
0x4f64…4fb4 20 20 20 20 20 2a 2a 20 00 ac 00 78 00 34 00 50 2a 2a 20 20 49 4e 50 55 54 20 3a 20 41 38 3d 20 50 4f 49 4e 54 45 52 20 54 4f 20 54 3a 41 2d 41 44 44 20 49 4e 20 54 3a 41 54 41 42 20 2a 2a 20 00 ac 00 b0 00 34 00 50 2a 2a 20 20 20 20 20 20 ┆ ** x 4 P** INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** 4 P** ┆
0x4fb4…5004 20 20 20 20 42 49 54 3d 42 49 54 20 4e 55 4d 42 45 52 20 53 41 54 20 49 4e 20 4d 41 53 4b 20 28 30 2d 31 35 29 2a 2a 20 00 ac 00 e8 00 34 00 50 2a 2a 20 20 4f 55 54 50 55 54 3a 20 41 34 3d 57 2e 42 2e 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 ┆ BIT=BIT NUMBER SAT IN MASK (0-15)** 4 P** OUTPUT: A4=W.B. DISPLACEMENT┆
0x5004…5054 20 49 4e 20 54 3a 41 20 20 20 20 20 20 2a 2a 20 00 ac 01 20 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 54 41 44 49 53 50 3d 41 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 ac 01 58 00 34 00 50 ┆ IN T:A ** 4 P** TADISP=A4 ** X 4 P┆