|
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: 20698 (0x50da)
Notes: pts_type(SC)
Names: »MSUBS.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »M:DEMO/MSUBS.SC«
IDENT MSUBS REL 10.0 80-03-14 870105041000 * * ************************************************** * * 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 JOB FOR DISPATCHING * -ACTOT ACTIVATE TASK ON FIFO BASIS * -ACTOTP ACTIVATE TASK ON LIFO BASIS * -EXIT PROGRAM EXIT * -GETBLK GET A FREE MONITOR BLOCK * -FREBLK SET A MONITOR BLOCK FREE * -FNDDWT FIND DWT ADDRESS * -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 JOB ENTRY ACTOT ACTIVATE TASK (FIFO) ENTRY ACTOTP ACTIVATE TASK (LIFO) ENTRY EXIT PROGRAM EXIT ENTRY GETBLK GET BLOCK ENTRY FREBLK SET BLOCK FREE ENTRY FNDDWT FIND DWT ENTRY FNDDWD FIND DWT 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 MJOB 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 TERMINAL 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 PROGRAM TO BE QUEUED. * * THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON * PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB 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 GET ADDRESS OF FIRST TASK IN QUEUE RF(Z) QTJ020 DISQUE EMPTY LD A3,TTB:ST+1,A5 GET 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 GET 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 JOBS ON LEVEL 49. * * ENTRY PARAMETERS: * * A1 = PARAMETER * A2 = DISPATCH ADDRESS * * A5 IS SET TO TTAB ADDRESS OF MONITOR JOBS AND THE * SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE * JOB. * * 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 SET 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 PROGRAM IS NOT ACTIVE THE PROGRAM IS * PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. * - IF PROGRAM 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 GET (OLD) DISPATCH ADDRESS RF(NZ) ACT020 IS PROGRAM ACTIVE ST A1,TTB:SA+2,A5 PARAMETER 1 ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRESS ST A3,TTB:SA+6,A5 SEGMENT NUMBER ST A4,TTB:SA+8,A5 PARAMETER 2 LD A4,TTB:ID,A5 SET TERMINAL ID ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA * IFF MMUPAG+DSKPAG=0 CM TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT XIF * CF A15,QTJOB QUEUE THE JOB * EJECT MSUBS * * 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 * * 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 PROGRAM FREE AND QUEUE FIRST * PENDING PROGRAM. * * ENTRY PARAMETER: * * A5 = TTAB ADDRESS * * A3-A4, A7 ARE DESTROYED * * EXIT EQU * CM TTB:SA,A5 RESET PROGRAM COUNTER LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER RF(Z) IHRTN NO PENDING PROGRAM LDR* A3,A4 GET 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 GET 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. * * ENTRY PARAMETERS: * * A5 = TTAB ADDRESS * A7 = ORDER CODE WHEN CALLED FROM DATA MANAGEMENT * A8 = ECB ADDRESS * * EXIT PARAMETERS: * * A2 = DWT INDEX * A6 = DWT ADDRESS IF FOUND, ELSE 0 * * * F N D D W D * * 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 GET ADDRESS TO TERMINAL DEVICE TABLE LD A1,-2,A6 GET 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 GET 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 GET PAGE BLOCK ADDRESS * REL:10 EQU * LDKL A4,PAGQUE GET PAGQUE ADDRESS ST A4,PAG:QB,A3 LDR* A4,A4 GET 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 GET 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 10.0 80-03-14 870105041000«, 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 JOB 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…02e4 Head {h00=0x001e, h01=0x0050, text=»* -EXIT PROGRAM EXIT«, t00=0x0001, t01=0x0136}
0x02e4…0312 Head {h00=0x002a, h01=0x0050, text=»* -GETBLK GET A FREE MONITOR BLOCK«, t00=0x0001, t01=0x0158}
0x0312…0340 Head {h00=0x002a, h01=0x0050, text=»* -FREBLK SET A MONITOR BLOCK FREE«, t00=0x0001, t01=0x0186}
0x0340…0366 Head {h00=0x0022, h01=0x0050, text=»* -FNDDWT FIND DWT ADDRESS«, t00=0x0002, t01=0x0024}
0x0366…0394 Head {h00=0x002a, h01=0x0050, text=»* -FNDTID FIND TASK IDENTIFICATION«, t00=0x0002, t01=0x004a}
0x0394…03b8 Head {h00=0x0020, h01=0x0050, text=»* -PFINIT RESTART DEVICE«, t00=0x0002, t01=0x0078}
0x03b8…03e0 Head {h00=0x0024, h01=0x0050, text=»* -SWL48 SWITCH TO LEVEL 48«, t00=0x0002, t01=0x009c}
0x03e0…0408 Head {h00=0x0024, h01=0x0050, text=»* -SWLXY SWITCH TO LEVEL XY«, t00=0x0002, t01=0x00c4}
0x0408…042a Head {h00=0x001e, h01=0x0050, text=»* -HALT HALT MODULE «, t00=0x0002, t01=0x00ec}
0x042a…044c Head {h00=0x001e, h01=0x0050, text=»* -RELPAG RELEASE PAGE«, t00=0x0002, t01=0x010e}
0x044c…0456 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0130}
0x0456…046c Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0002, t01=0x013a}
0x046c…0476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0150}
0x0476…0480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x015a}
0x0480…0494 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0164}
0x0494…04a8 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x0178}
0x04a8…04bc Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x018c}
0x04bc…04c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0010}
0x04c6…04d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001a}
0x04d0…04f6 Head {h00=0x0022, h01=0x0050, text=» ENTRY SAVE8 SAVE 8 REGISTERS «, t00=0x0003, t01=0x0024}
0x04f6…0516 Head {h00=0x001c, h01=0x0050, text=» ENTRY QTJOB QUEUE TASK «, t00=0x0003, t01=0x004a}
0x0516…053c Head {h00=0x0022, h01=0x0050, text=» ENTRY QMJOB QUEUE MONITOR JOB«, t00=0x0003, t01=0x006a}
0x053c…0566 Head {h00=0x0026, h01=0x0050, text=» ENTRY ACTOT ACTIVATE TASK (FIFO) «, t00=0x0003, t01=0x0090}
0x0566…0590 Head {h00=0x0026, h01=0x0050, text=» ENTRY ACTOTP ACTIVATE TASK (LIFO)«, t00=0x0003, t01=0x00ba}
0x0590…05b0 Head {h00=0x001c, h01=0x0050, text=» ENTRY EXIT PROGRAM EXIT«, t00=0x0003, t01=0x00e4}
0x05b0…05d0 Head {h00=0x001c, h01=0x0050, text=» ENTRY GETBLK GET BLOCK «, t00=0x0003, t01=0x0104}
0x05d0…05f4 Head {h00=0x0020, h01=0x0050, text=» ENTRY FREBLK SET BLOCK FREE«, t00=0x0003, t01=0x0124}
0x05f4…0612 Head {h00=0x001a, h01=0x0050, text=» ENTRY FNDDWT FIND DWT«, t00=0x0003, t01=0x0148}
0x0612…0630 Head {h00=0x001a, h01=0x0050, text=» ENTRY FNDDWD FIND DWT«, t00=0x0003, t01=0x0166}
0x0630…0660 Head {h00=0x002c, h01=0x0050, text=» ENTRY FNDTID FIND TASK INDENTIFICATION «, t00=0x0003, t01=0x0184}
0x0660…0684 Head {h00=0x0020, h01=0x0050, text=» ENTRY PFINIT RESTART DEVICE«, t00=0x0004, t01=0x0024}
0x0684…06ac Head {h00=0x0024, h01=0x0050, text=» ENTRY SWL48 SWITCH TO LEVEL 48 «, t00=0x0004, t01=0x0048}
0x06ac…06d4 Head {h00=0x0024, h01=0x0050, text=» ENTRY SWLXY SWITCH TO LEVEL XY «, t00=0x0004, t01=0x0070}
0x06d4…0704 Head {h00=0x002c, h01=0x0050, text=» ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE «, t00=0x0004, t01=0x0098}
0x0704…0732 Head {h00=0x002a, h01=0x0050, text=» ENTRY INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0004, t01=0x00c8}
0x0732…0752 Head {h00=0x001c, h01=0x0050, text=» ENTRY HALT HALT MODULE «, t00=0x0004, t01=0x00f6}
0x0752…0774 Head {h00=0x001e, h01=0x0050, text=» ENTRY RELPAG RELEASE PAGE«, t00=0x0004, t01=0x0116}
0x0774…07a2 Head {h00=0x002a, h01=0x0050, text=» ENTRY RELPA2 RELEASE PAGE (2ND ENTRY)«, t00=0x0004, t01=0x0138}
0x07a2…07c8 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHRET8 RESTORE FROM A8 «, t00=0x0004, t01=0x0166}
0x07c8…07e0 Head {h00=0x0014, h01=0x0050, text=» ENTRY IHRET2 A2«, t00=0x0004, t01=0x018c}
0x07e0…0806 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHRET1 A1 «, t00=0x0005, t01=0x0014}
0x0806…083c Head {h00=0x0032, h01=0x0050, text=» ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS «, t00=0x0005, t01=0x003a}
0x083c…0852 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0005, t01=0x0070}
0x0852…085c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0086}
0x085c…0866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0090}
0x0866…087c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x009a}
0x087c…0892 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x00b0}
0x0892…08a8 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x00c6}
0x08a8…08b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00dc}
0x08b2…08bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e6}
0x08bc…08fa Head {h00=0x003a, h01=0x0050, text=» EXTRN DISQUE POINTER TO 1ST PLACE IN DISPATCHER QUEUE«, t00=0x0005, t01=0x00f0}
0x08fa…0934 Head {h00=0x0036, h01=0x0050, text=» EXTRN FREQUE POINTER TO FIRST FREE MONITOR BLOCK «, t00=0x0005, t01=0x012e}
0x0934…0958 Head {h00=0x0020, h01=0x0050, text=» EXTRN TTABLD LOAD TASK TTAB«, t00=0x0005, t01=0x0168}
0x0958…0984 Head {h00=0x0028, h01=0x0050, text=» EXTRN PQEMTY PAGE QUEUE EMPTY FLAG «, t00=0x0005, t01=0x018c}
0x0984…09aa Head {h00=0x0022, h01=0x0050, text=» EXTRN PAGQUE FREE PAGE QUEUE «, t00=0x0006, t01=0x0028}
0x09aa…09d2 Head {h00=0x0024, h01=0x0050, text=» EXTRN SEG:PB PAGE BLOCK ADDRESS«, t00=0x0006, t01=0x004e}
0x09d2…09fc Head {h00=0x0026, h01=0x0050, text=» EXTRN PAG:QB QUEUE LINK BACKWARD «, t00=0x0006, t01=0x0076}
0x09fc…0a34 Head {h00=0x0034, h01=0x0050, text=» EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR«, t00=0x0006, t01=0x00a0}
0x0a34…0a5e Head {h00=0x0026, h01=0x0050, text=» EXTRN TTMJOB TTAB ADDRESS OF MJOB«, t00=0x0006, t01=0x00d8}
0x0a5e…0a8a Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SB SEGMENT BLOCK POINTER «, t00=0x0006, t01=0x0102}
0x0a8a…0abe Head {h00=0x0030, h01=0x0050, text=» EXTRN TTB:ST TASK STATUS AND PRIORITY LEVEL«, t00=0x0006, t01=0x012e}
0x0abe…0ae8 Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:ID TASK IDENTIFICATION «, t00=0x0006, t01=0x0162}
0x0ae8…0b08 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:SA SAVE AREA «, t00=0x0006, t01=0x018c}
0x0b08…0b36 Head {h00=0x002a, h01=0x0050, text=» EXTRN TTB:PP POINTER TO PENDING QUEUE«, t00=0x0007, t01=0x001c}
0x0b36…0b62 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:TD TERMINAL DEVICE TABLE «, t00=0x0007, t01=0x004a}
0x0b62…0b8a Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTTCT TASK CONTROL TABLE«, t00=0x0007, t01=0x0076}
0x0b8a…0bb4 Head {h00=0x0026, h01=0x0050, text=» EXTRN SCTCDT COMMON DEVICE TABLE «, t00=0x0007, t01=0x009e}
0x0bb4…0bea Head {h00=0x0032, h01=0x0050, text=» EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED «, t00=0x0007, t01=0x00c8}
0x0bea…0c00 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0007, t01=0x00fe}
0x0c00…0c0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0114}
0x0c0a…0c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011e}
0x0c14…0c46 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0007, t01=0x0128}
0x0c46…0c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015a}
0x0c50…0c6e Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0007, t01=0x0164}
0x0c6e…0c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0182}
0x0c78…0caa Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0007, t01=0x018c}
0x0caa…0cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002e}
0x0cb4…0ce6 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x0038}
0x0ce6…0d14 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x006a}
0x0d14…0d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0098}
0x0d1e…0d32 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0008, t01=0x00a2}
0x0d32…0d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b6}
0x0d3c…0d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c0}
0x0d46…0d80 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0008, t01=0x00ca}
0x0d80…0db2 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0008, t01=0x0104}
0x0db2…0dbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0136}
0x0dbc…0dd0 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0008, t01=0x0140}
0x0dd0…0dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0154}
0x0dda…0de4 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0008, t01=0x015e}
0x0de4…0e16 Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0008, t01=0x0168}
0x0e16…0e44 Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0009, t01=0x000a}
0x0e44…0e4e Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x0038}
0x0e4e…0e62 Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 0«, t00=0x0009, t01=0x0042}
0x0e62…0e6c Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x0056}
0x0e6c…0e76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0060}
0x0e76…0e9c Head {h00=0x0022, h01=0x0050, text=»SOP EQU /2E SOP DEVICE ADDRESS«, t00=0x0009, t01=0x006a}
0x0e9c…0ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0090}
0x0ea6…0ebc Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0009, t01=0x009a}
0x0ebc…0ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b0}
0x0ec6…0ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ba}
0x0ed0…0ee6 Head {h00=0x0012, h01=0x0050, text=»* S A V E 8 «, t00=0x0009, t01=0x00c4}
0x0ee6…0ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00da}
0x0ef0…0f24 Head {h00=0x0030, h01=0x0050, text=»* SUBROUTINE TO SAVE 8 REGISTERS ON STACK «, t00=0x0009, t01=0x00e4}
0x0f24…0f4c Head {h00=0x0024, h01=0x0050, text=»* WITHOUT ENABLING INTERRUPTS.«, t00=0x0009, t01=0x0118}
0x0f4c…0f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0140}
0x0f56…0f60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014a}
0x0f60…0f74 Head {h00=0x0010, h01=0x0050, text=»SAVE8 EQU * «, t00=0x0009, t01=0x0154}
0x0f74…0f94 Head {h00=0x001c, h01=0x0050, text=» INH INHIBIT INTERRUPTS«, t00=0x0009, t01=0x0168}
0x0f94…0fa8 Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x0009, t01=0x0188}
0x0fa8…0fbc Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x000a, t01=0x000c}
0x0fbc…0fd0 Head {h00=0x0010, h01=0x0050, text=» STR A5,A15 «, t00=0x000a, t01=0x0020}
0x0fd0…0fe4 Head {h00=0x0010, h01=0x0050, text=» STR A6,A15 «, t00=0x000a, t01=0x0034}
0x0fe4…0ff8 Head {h00=0x0010, h01=0x0050, text=» STR A7,A15 «, t00=0x000a, t01=0x0048}
0x0ff8…100c Head {h00=0x0010, h01=0x0050, text=» STR A8,A15 «, t00=0x000a, t01=0x005c}
0x100c…103c Head {h00=0x002c, h01=0x0050, text=» LD A3,16,A15 LOAD P.C. (RETURN ADDRESS)«, t00=0x000a, t01=0x0070}
0x103c…106c Head {h00=0x002c, h01=0x0050, text=» ST A3,SAVE81 AND MODIFY BRANCH ADDRESS «, t00=0x000a, t01=0x00a0}
0x106c…1082 Head {h00=0x0012, h01=0x0050, text=» ST A2,14,A15 «, t00=0x000a, t01=0x00d0}
0x1082…1098 Head {h00=0x0012, h01=0x0050, text=» ST A1,16,A15 «, t00=0x000a, t01=0x00e6}
0x1098…10b8 Head {h00=0x001c, h01=0x0050, text=» LD A3,12,A15 RESTORE A3«, t00=0x000a, t01=0x00fc}
0x10b8…10e2 Head {h00=0x0026, h01=0x0050, text=» ABL 0 THIS IS USED TO BRANCH BACK«, t00=0x000a, t01=0x011c}
0x10e2…10f8 Head {h00=0x0012, h01=0x0050, text=»SAVE81 EQU *-2«, t00=0x000a, t01=0x0146}
0x10f8…1102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x015c}
0x1102…1118 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x000a, t01=0x0166}
0x1118…1122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x017c}
0x1122…112c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0186}
0x112c…1142 Head {h00=0x0012, h01=0x0050, text=»* Q T J O B «, t00=0x000a, t01=0x0190}
0x1142…114c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0016}
0x114c…1182 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. «, t00=0x000b, t01=0x0020}
0x1182…118c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0056}
0x118c…11a8 Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETER:«, t00=0x000b, t01=0x0060}
0x11a8…11b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x007c}
0x11b2…11e8 Head {h00=0x0032, h01=0x0050, text=»* A5 = TTAB ADDRESS OF PROGRAM TO BE QUEUED.«, t00=0x000b, t01=0x0086}
0x11e8…11f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00bc}
0x11f2…122e Head {h00=0x0038, h01=0x0050, text=»* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON «, t00=0x000b, t01=0x00c6}
0x122e…126a Head {h00=0x0038, h01=0x0050, text=»* PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS«, t00=0x000b, t01=0x0102}
0x126a…1288 Head {h00=0x001a, h01=0x0050, text=»* PUT LAST IN QUEUE.«, t00=0x000b, t01=0x013e}
0x1288…1292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015c}
0x1292…129c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0166}
0x129c…12b0 Head {h00=0x0010, h01=0x0050, text=»QTJOB EQU * «, t00=0x000b, t01=0x0170}
0x12b0…12bc Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000b, t01=0x0184}
0x12bc…12c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0190}
0x12c6…12dc Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000c, t01=0x000a}
0x12dc…1304 Head {h00=0x0024, h01=0x0050, text=» STR A1,A15 SAVE A1-A3 ON STACK «, t00=0x000c, t01=0x0020}
0x1304…1318 Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x000c, t01=0x0048}
0x1318…132c Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x000c, t01=0x005c}
0x132c…1338 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0070}
0x1338…1342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007c}
0x1342…1358 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000c, t01=0x0086}
0x1358…137e Head {h00=0x0022, h01=0x0050, text=» MSR 3,A15 SAVE A1-A3 ON STACK«, t00=0x000c, t01=0x009c}
0x137e…138a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00c2}
0x138a…1394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ce}
0x1394…13c6 Head {h00=0x002e, h01=0x0050, text=» LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS «, t00=0x000c, t01=0x00d8}
0x13c6…13fc Head {h00=0x0032, h01=0x0050, text=» LDR* A2,A1 GET ADDRESS OF FIRST TASK IN QUEUE«, t00=0x000c, t01=0x010a}
0x13fc…141e Head {h00=0x001e, h01=0x0050, text=» RF(Z) QTJ020 DISQUE EMPTY«, t00=0x000c, t01=0x0140}
0x141e…144c Head {h00=0x002a, h01=0x0050, text=» LD A3,TTB:ST+1,A5 GET PRIORITY LEVEL «, t00=0x000c, t01=0x0162}
0x144c…1456 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0190}
0x1456…146c Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x000d, t01=0x000a}
0x146c…1476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0020}
0x1476…1480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002a}
0x1480…14ba Head {h00=0x0036, h01=0x0050, text=»QTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL«, t00=0x000d, t01=0x0034}
0x14ba…14d6 Head {h00=0x0018, h01=0x0050, text=» RF(L) QTJ020 INSERT«, t00=0x000d, t01=0x006e}
0x14d6…14f6 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 SAVE ADDRESS «, t00=0x000d, t01=0x008a}
0x14f6…1528 Head {h00=0x002e, h01=0x0050, text=» LDR* A2,A1 GET NEXT TTAB ADDRESS IN QUEUE«, t00=0x000d, t01=0x00aa}
0x1528…1550 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) QTJ010 NOT END OF QUEUE «, t00=0x000d, t01=0x00dc}
0x1550…155a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0104}
0x155a…1586 Head {h00=0x0028, h01=0x0050, text=»QTJ020 STR A2,A5 UPDATE QUEUE LINKS «, t00=0x000d, t01=0x010e}
0x1586…1598 Head {h00=0x000e, h01=0x0050, text=» STR A5,A1«, t00=0x000d, t01=0x013a}
0x1598…15a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014c}
0x15a2…15b8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000d, t01=0x0156}
0x15b8…15cc Head {h00=0x0010, h01=0x0050, text=» ABL IHRET3 «, t00=0x000d, t01=0x016c}
0x15cc…15d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0180}
0x15d8…15e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x018c}
0x15e2…15f8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000e, t01=0x0008}
0x15f8…1626 Head {h00=0x002a, h01=0x0050, text=» MLR 3,A15 RESTORE A1-A3 FROM STACK...«, t00=0x000e, t01=0x001e}
0x1626…1644 Head {h00=0x001a, h01=0x0050, text=» RTN A15 ...AND RETURN«, t00=0x000e, t01=0x004c}
0x1644…1650 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x006a}
0x1650…165a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0076}
0x165a…1670 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x000e, t01=0x0080}
0x1670…167a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0096}
0x167a…1684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a0}
0x1684…169a Head {h00=0x0012, h01=0x0050, text=»* Q M J O B «, t00=0x000e, t01=0x00aa}
0x169a…16a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c0}
0x16a4…16de Head {h00=0x0036, h01=0x0050, text=»* SUBROUTINE TO QUEUE MONITOR JOBS ON LEVEL 49. «, t00=0x000e, t01=0x00ca}
0x16de…16e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0104}
0x16e8…1706 Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x000e, t01=0x010e}
0x1706…1710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012c}
0x1710…172a Head {h00=0x0016, h01=0x0050, text=»* A1 = PARAMETER«, t00=0x000e, t01=0x0136}
0x172a…174c Head {h00=0x001e, h01=0x0050, text=»* A2 = DISPATCH ADDRESS «, t00=0x000e, t01=0x0150}
0x174c…1756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0172}
0x1756…1794 Head {h00=0x003a, h01=0x0050, text=»* A5 IS SET TO TTAB ADDRESS OF MONITOR JOBS AND THE «, t00=0x000e, t01=0x017c}
0x1794…17d4 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE«, t00=0x000f, t01=0x002a}
0x17d4…17e4 Head {h00=0x000c, h01=0x0050, text=»* JOB.«, t00=0x000f, t01=0x006a}
0x17e4…17ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x007a}
0x17ee…17f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0084}
0x17f8…180c Head {h00=0x0010, h01=0x0050, text=»QMJOB EQU * «, t00=0x000f, t01=0x008e}
0x180c…1822 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000f, t01=0x00a2}
0x1822…184c Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x000f, t01=0x00b8}
0x184c…1858 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00e2}
0x1858…1862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ee}
0x1862…1878 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000f, t01=0x00f8}
0x1878…1884 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000f, t01=0x010e}
0x1884…18aa Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x000f, t01=0x011a}
0x18aa…18b6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0140}
0x18b6…18c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x014c}
0x18c0…18e8 Head {h00=0x0024, h01=0x0050, text=» LDKL A5,TTMJOB SET TTAB ADDRESS«, t00=0x000f, t01=0x0156}
0x18e8…18fa Head {h00=0x000e, h01=0x0050, text=» RF ACT01 «, t00=0x000f, t01=0x017e}
0x18fa…1904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0190}
0x1904…191a Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0010, t01=0x000a}
0x191a…1924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0020}
0x1924…192e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002a}
0x192e…1952 Head {h00=0x0020, h01=0x0050, text=»* A C T O T , A C T O T P «, t00=0x0010, t01=0x0034}
0x1952…195c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0058}
0x195c…1986 Head {h00=0x0026, h01=0x0050, text=»* SUBROUTINE TO ACTIVATE A TASK.«, t00=0x0010, t01=0x0062}
0x1986…1990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008c}
0x1990…19ae Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x0010, t01=0x0096}
0x19ae…19b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b4}
0x19b8…19d4 Head {h00=0x0018, h01=0x0050, text=»* A1 = PARAMETER 1«, t00=0x0010, t01=0x00be}
0x19d4…19f6 Head {h00=0x001e, h01=0x0050, text=»* A2 = DISPATCH ADDRESS «, t00=0x0010, t01=0x00da}
0x19f6…1a16 Head {h00=0x001c, h01=0x0050, text=»* A3 = SEGMENT NUMBER «, t00=0x0010, t01=0x00fc}
0x1a16…1a32 Head {h00=0x0018, h01=0x0050, text=»* A4 = PARAMETER 2«, t00=0x0010, t01=0x011c}
0x1a32…1a50 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0010, t01=0x0138}
0x1a50…1a5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0156}
0x1a5a…1a9a Head {h00=0x003c, h01=0x0050, text=»* - IF REQUESTED PROGRAM IS NOT ACTIVE THE PROGRAM IS «, t00=0x0010, t01=0x0160}
0x1a9a…1ad8 Head {h00=0x003a, h01=0x0050, text=»* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. «, t00=0x0011, t01=0x0010}
0x1ad8…1b1c Head {h00=0x0040, h01=0x0050, text=»* - IF PROGRAM IS ACTIVE, THE REQUEST IS PUT IN A PENDING «, t00=0x0011, t01=0x004e}
0x1b1c…1b30 Head {h00=0x0010, h01=0x0050, text=»* QUEUE.«, t00=0x0011, t01=0x0092}
0x1b30…1b74 Head {h00=0x0040, h01=0x0050, text=»* - ACTOT WILL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS.«, t00=0x0011, t01=0x00a6}
0x1b74…1bba Head {h00=0x0042, h01=0x0050, text=»* - ACTOTP WILL PUT REQUEST IN PENDING QUEUE ON LIFO BASIS. «, t00=0x0011, t01=0x00ea}
0x1bba…1bc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0130}
0x1bc4…1bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x013a}
0x1bce…1be2 Head {h00=0x0010, h01=0x0050, text=»ACTOTP EQU *«, t00=0x0011, t01=0x0144}
0x1be2…1bf8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0011, t01=0x0158}
0x1bf8…1c22 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0011, t01=0x016e}
0x1c22…1c2e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0008}
0x1c2e…1c38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0014}
0x1c38…1c4e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0012, t01=0x001e}
0x1c4e…1c5a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0012, t01=0x0034}
0x1c5a…1c80 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0012, t01=0x0040}
0x1c80…1c8c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0066}
0x1c8c…1c96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0072}
0x1c96…1cb6 Head {h00=0x001c, h01=0x0050, text=» LDK A6,1 INDICATE LIFO «, t00=0x0012, t01=0x007c}
0x1cb6…1cc8 Head {h00=0x000e, h01=0x0050, text=» RF ACT03 «, t00=0x0012, t01=0x009c}
0x1cc8…1cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ae}
0x1cd2…1ce8 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0012, t01=0x00b8}
0x1ce8…1cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ce}
0x1cf2…1cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d8}
0x1cfc…1d10 Head {h00=0x0010, h01=0x0050, text=»ACTOT EQU * «, t00=0x0012, t01=0x00e2}
0x1d10…1d26 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0012, t01=0x00f6}
0x1d26…1d50 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0012, t01=0x010c}
0x1d50…1d5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0136}
0x1d5c…1d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0142}
0x1d66…1d7c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0012, t01=0x014c}
0x1d7c…1d88 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0012, t01=0x0162}
0x1d88…1dae Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0012, t01=0x016e}
0x1dae…1dba (19, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0004}
0x1dba…1dc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0010}
0x1dc4…1de8 Head {h00=0x0020, h01=0x0050, text=»ACT01 LDK A6,0 INDICATE FIFO«, t00=0x0013, t01=0x001a}
0x1de8…1df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003e}
0x1df2…1e06 Head {h00=0x0010, h01=0x0050, text=»ACT03 EQU * «, t00=0x0013, t01=0x0048}
0x1e06…1e3a Head {h00=0x0030, h01=0x0050, text=» LD A7,TTB:SA,A5 GET (OLD) DISPATCH ADDRESS «, t00=0x0013, t01=0x005c}
0x1e3a…1e62 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ACT020 IS PROGRAM ACTIVE«, t00=0x0013, t01=0x0090}
0x1e62…1e88 Head {h00=0x0022, h01=0x0050, text=» ST A1,TTB:SA+2,A5 PARAMETER 1«, t00=0x0013, t01=0x00b8}
0x1e88…1ebc Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRESS«, t00=0x0013, t01=0x00de}
0x1ebc…1ee6 Head {h00=0x0026, h01=0x0050, text=» ST A3,TTB:SA+6,A5 SEGMENT NUMBER «, t00=0x0013, t01=0x0112}
0x1ee6…1f0c Head {h00=0x0022, h01=0x0050, text=» ST A4,TTB:SA+8,A5 PARAMETER 2«, t00=0x0013, t01=0x013c}
0x1f0c…1f34 Head {h00=0x0024, h01=0x0050, text=» LD A4,TTB:ID,A5 SET TERMINAL ID«, t00=0x0013, t01=0x0162}
0x1f34…1f62 Head {h00=0x002a, h01=0x0050, text=» ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA «, t00=0x0013, t01=0x018a}
0x1f62…1f6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0028}
0x1f6c…1f88 Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x0014, t01=0x0032}
0x1f88…1fc2 Head {h00=0x0036, h01=0x0050, text=» CM TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT «, t00=0x0014, t01=0x004e}
0x1fc2…1fce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0088}
0x1fce…1fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0094}
0x1fd8…1ffc Head {h00=0x0020, h01=0x0050, text=» CF A15,QTJOB QUEUE THE JOB «, t00=0x0014, t01=0x009e}
0x1ffc…2006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c2}
0x2006…201c Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0014, t01=0x00cc}
0x201c…2026 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e2}
0x2026…2030 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ec}
0x2030…2044 Head {h00=0x0010, h01=0x0050, text=»ACT010 EQU *«, t00=0x0014, t01=0x00f6}
0x2044…205a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0014, t01=0x010a}
0x205a…2086 Head {h00=0x0028, h01=0x0050, text=» RF IHRET8 RESTORE A1-A8 AND RETURN «, t00=0x0014, t01=0x0120}
0x2086…2092 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x014c}
0x2092…209c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0158}
0x209c…20b2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0014, t01=0x0162}
0x20b2…20e0 Head {h00=0x002a, h01=0x0050, text=» MLR 8,A15 RESTORE A1-A8 FROM STACK...«, t00=0x0014, t01=0x0178}
0x20e0…20fe Head {h00=0x001a, h01=0x0050, text=» RTN A15 ...AND RETURN«, t00=0x0015, t01=0x0016}
0x20fe…210a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0034}
0x210a…2114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0040}
0x2114…213c Head {h00=0x0024, h01=0x0050, text=»* PUT REQUEST IN PENDING QUEUE«, t00=0x0015, t01=0x004a}
0x213c…2146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0072}
0x2146…2170 Head {h00=0x0026, h01=0x0050, text=»ACT020 LDR A7,A4 SAVE PARAMETER 2 «, t00=0x0015, t01=0x007c}
0x2170…2198 Head {h00=0x0024, h01=0x0050, text=» CF A15,GETBLK GET A FREE BLOCK«, t00=0x0015, t01=0x00a6}
0x2198…21b6 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A7 PARAMETER 2«, t00=0x0015, t01=0x00ce}
0x21b6…21c8 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0015, t01=0x00ec}
0x21c8…21de Head {h00=0x0012, h01=0x0050, text=» CF A15,GETBLK«, t00=0x0015, t01=0x00fe}
0x21de…21f6 Head {h00=0x0014, h01=0x0050, text=» ADKL A5,TTB:PP «, t00=0x0015, t01=0x0114}
0x21f6…2200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x012c}
0x2200…2226 Head {h00=0x0022, h01=0x0050, text=»ACT030 LDR A3,A5 SAVE ADDRESS «, t00=0x0015, t01=0x0136}
0x2226…2252 Head {h00=0x0028, h01=0x0050, text=» LDR* A5,A5 FOLLOW THE QUEUE THREAD «, t00=0x0015, t01=0x015c}
0x2252…226a Head {h00=0x0014, h01=0x0050, text=» ADK A6,0 SET CR«, t00=0x0015, t01=0x0188}
0x226a…2294 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) ACT040 QUEUE ON LIFO BASIS«, t00=0x0016, t01=0x0010}
0x2294…22ac Head {h00=0x0014, h01=0x0050, text=» ADK A5,0 SET CR«, t00=0x0016, t01=0x003a}
0x22ac…22d4 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) ACT030 NOT END OF QUEUE «, t00=0x0016, t01=0x0052}
0x22d4…22de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x007a}
0x22de…22f2 Head {h00=0x0010, h01=0x0050, text=»ACT040 EQU *«, t00=0x0016, t01=0x0084}
0x22f2…2318 Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 SET BLOCK IN QUEUE «, t00=0x0016, t01=0x0098}
0x2318…232a Head {h00=0x000e, h01=0x0050, text=» STR A5,A4«, t00=0x0016, t01=0x00be}
0x232a…233c Head {h00=0x000e, h01=0x0050, text=» RB ACT010«, t00=0x0016, t01=0x00d0}
0x233c…2346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e2}
0x2346…235c Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0016, t01=0x00ec}
0x235c…2366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0102}
0x2366…2370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x010c}
0x2370…2384 Head {h00=0x0010, h01=0x0050, text=»* E X I T «, t00=0x0016, t01=0x0116}
0x2384…238e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x012a}
0x238e…23ca Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINE TO SET A PROGRAM FREE AND QUEUE FIRST«, t00=0x0016, t01=0x0134}
0x23ca…23e6 Head {h00=0x0018, h01=0x0050, text=»* PENDING PROGRAM.«, t00=0x0016, t01=0x0170}
0x23e6…23f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x018c}
0x23f0…240c Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETER:«, t00=0x0017, t01=0x0008}
0x240c…2416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0024}
0x2416…2434 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0017, t01=0x002e}
0x2434…243e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x004c}
0x243e…2462 Head {h00=0x0020, h01=0x0050, text=»* A3-A4, A7 ARE DESTROYED «, t00=0x0017, t01=0x0056}
0x2462…246c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x007a}
0x246c…2476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0084}
0x2476…2488 Head {h00=0x000e, h01=0x0050, text=»EXIT EQU *«, t00=0x0017, t01=0x008e}
0x2488…24b4 Head {h00=0x0028, h01=0x0050, text=» CM TTB:SA,A5 RESET PROGRAM COUNTER «, t00=0x0017, t01=0x00a0}
0x24b4…24e8 Head {h00=0x0030, h01=0x0050, text=» LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER«, t00=0x0017, t01=0x00cc}
0x24e8…2510 Head {h00=0x0024, h01=0x0050, text=» RF(Z) IHRTN NO PENDING PROGRAM «, t00=0x0017, t01=0x0100}
0x2510…2534 Head {h00=0x0020, h01=0x0050, text=» LDR* A3,A4 GET QUEUE THREAD«, t00=0x0017, t01=0x0128}
0x2534…2568 Head {h00=0x0030, h01=0x0050, text=» ST A3,TTB:PP,A5 AND SAVE IN PENDING POINTER«, t00=0x0017, t01=0x014c}
0x2568…25a0 Head {h00=0x0034, h01=0x0050, text=» CF A15,FREBLK RELEASE BLOCK AND GET PARAMETERS «, t00=0x0017, t01=0x0180}
0x25a0…25c4 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A1 SAVE PARAMETER 2 «, t00=0x0018, t01=0x0028}
0x25c4…25d6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0018, t01=0x004c}
0x25d6…25ec Head {h00=0x0012, h01=0x0050, text=» CF A15,FREBLK«, t00=0x0018, t01=0x005e}
0x25ec…260a Head {h00=0x001a, h01=0x0050, text=» LDR A4,A7 PARAMETER 2«, t00=0x0018, t01=0x0074}
0x260a…262a Head {h00=0x001c, h01=0x0050, text=» RB ACTOT ACTIVATE TASK «, t00=0x0018, t01=0x0092}
0x262a…2634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b2}
0x2634…264a Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0018, t01=0x00bc}
0x264a…2654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d2}
0x2654…265e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00dc}
0x265e…2676 Head {h00=0x0014, h01=0x0050, text=»* G E T B L K «, t00=0x0018, t01=0x00e6}
0x2676…2680 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00fe}
0x2680…26b8 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO GET A FREE BLOCK FROM MONITOR «, t00=0x0018, t01=0x0108}
0x26b8…26f4 Head {h00=0x0038, h01=0x0050, text=»* BLOCK POOL. REGISTERS A3-A1 ARE STORED IN FOUND «, t00=0x0018, t01=0x0140}
0x26f4…270c Head {h00=0x0014, h01=0x0050, text=»* FREE BLOCK. «, t00=0x0018, t01=0x017c}
0x270c…2716 (25, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0004}
0x2716…2732 Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETER: «, t00=0x0019, t01=0x000e}
0x2732…273c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x002a}
0x273c…2768 Head {h00=0x0028, h01=0x0050, text=»* A4 = ADDRESS TO FOUND FREE BLOCK«, t00=0x0019, t01=0x0034}
0x2768…2772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0060}
0x2772…277c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006a}
0x277c…2790 Head {h00=0x0010, h01=0x0050, text=»GETBLK EQU *«, t00=0x0019, t01=0x0074}
0x2790…279c Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0019, t01=0x0088}
0x279c…27b8 Head {h00=0x0018, h01=0x0050, text=» STR A5,A15 SAVE A5 «, t00=0x0019, t01=0x0094}
0x27b8…27ec Head {h00=0x0030, h01=0x0050, text=» LD A4,FREQUE GET FIRST BLOCK IN FREE QUEUE «, t00=0x0019, t01=0x00b0}
0x27ec…2802 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) GBL010«, t00=0x0019, t01=0x00e4}
0x2802…2824 Head {h00=0x001e, h01=0x0050, text=» LDK A1,/B HALT PARAMETER «, t00=0x0019, t01=0x00fa}
0x2824…2854 Head {h00=0x002c, h01=0x0050, text=» CF A15,HALT HALT IF NO MORE FREE BLOCKS«, t00=0x0019, t01=0x011c}
0x2854…285e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x014c}
0x285e…2878 Head {h00=0x0016, h01=0x0050, text=»GBL010 LDR* A5,A4 «, t00=0x0019, t01=0x0156}
0x2878…28aa Head {h00=0x002e, h01=0x0050, text=» ST A5,FREQUE TAKE BLOCK OUT OF FREE QUEUE«, t00=0x0019, t01=0x0170}
0x28aa…28d2 Head {h00=0x0024, h01=0x0050, text=» STR A3,A4 STORE A3-A1 IN BLOCK «, t00=0x001a, t01=0x0012}
0x28d2…28e6 Head {h00=0x0010, h01=0x0050, text=» ST A2,2,A4 «, t00=0x001a, t01=0x003a}
0x28e6…28fa Head {h00=0x0010, h01=0x0050, text=» ST A1,4,A4 «, t00=0x001a, t01=0x004e}
0x28fa…291a Head {h00=0x001c, h01=0x0050, text=» LDR* A5,A15 RESTORE A5 «, t00=0x001a, t01=0x0062}
0x291a…2924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0082}
0x2924…293a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001a, t01=0x008c}
0x293a…294c Head {h00=0x000e, h01=0x0050, text=» RF IHRTN «, t00=0x001a, t01=0x00a2}
0x294c…2958 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00b4}
0x2958…2962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c0}
0x2962…2978 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001a, t01=0x00ca}
0x2978…2988 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x001a, t01=0x00e0}
0x2988…2994 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00f0}
0x2994…299e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00fc}
0x299e…29b4 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x001a, t01=0x0106}
0x29b4…29be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x011c}
0x29be…29c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0126}
0x29c8…29e0 Head {h00=0x0014, h01=0x0050, text=»* F R E B L K «, t00=0x001a, t01=0x0130}
0x29e0…29ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0148}
0x29ea…2a28 Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINE TO GET PARAMETERS FROM A MONITOR BLOCK «, t00=0x001a, t01=0x0152}
0x2a28…2a4c Head {h00=0x0020, h01=0x0050, text=»* AND SET THIS BLOCK FREE.«, t00=0x001a, t01=0x0190}
0x2a4c…2a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0024}
0x2a56…2a72 Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETER:«, t00=0x001b, t01=0x002e}
0x2a72…2a7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x004a}
0x2a7c…2a9a Head {h00=0x001a, h01=0x0050, text=»* A4 = BLOCK ADDRESS«, t00=0x001b, t01=0x0054}
0x2a9a…2aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0072}
0x2aa4…2ac0 Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETERS:«, t00=0x001b, t01=0x007c}
0x2ac0…2aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0098}
0x2aca…2af4 Head {h00=0x0026, h01=0x0050, text=»* A3 = FIRST PARAMETER IN BLOCK «, t00=0x001b, t01=0x00a2}
0x2af4…2b1c Head {h00=0x0024, h01=0x0050, text=»* A2 = SECOND " " «, t00=0x001b, t01=0x00cc}
0x2b1c…2b44 Head {h00=0x0024, h01=0x0050, text=»* A1 = THIRD " " «, t00=0x001b, t01=0x00f4}
0x2b44…2b4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x011c}
0x2b4e…2b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0126}
0x2b58…2b6c Head {h00=0x0010, h01=0x0050, text=»FREBLK EQU *«, t00=0x001b, t01=0x0130}
0x2b6c…2b78 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001b, t01=0x0144}
0x2b78…2b96 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A4 UPDATE A3 «, t00=0x001b, t01=0x0150}
0x2b96…2bac Head {h00=0x0012, h01=0x0050, text=» LD A1,FREQUE «, t00=0x001b, t01=0x016e}
0x2bac…2bbe Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x001b, t01=0x0184}
0x2bbe…2be2 Head {h00=0x0020, h01=0x0050, text=» ST A4,FREQUE SET BLOCK FREE«, t00=0x001c, t01=0x0008}
0x2be2…2bf6 Head {h00=0x0010, h01=0x0050, text=» LD A2,2,A4 «, t00=0x001c, t01=0x002c}
0x2bf6…2c0a Head {h00=0x0010, h01=0x0050, text=» LD A1,4,A4 «, t00=0x001c, t01=0x0040}
0x2c0a…2c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0054}
0x2c14…2c2a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001c, t01=0x005e}
0x2c2a…2c3c Head {h00=0x000e, h01=0x0050, text=» RF IHRTN «, t00=0x001c, t01=0x0074}
0x2c3c…2c48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0086}
0x2c48…2c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0092}
0x2c52…2c68 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001c, t01=0x009c}
0x2c68…2c78 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x001c, t01=0x00b2}
0x2c78…2c84 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00c2}
0x2c84…2c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ce}
0x2c8e…2ca4 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x001c, t01=0x00d8}
0x2ca4…2cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ee}
0x2cae…2cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f8}
0x2cb8…2cd0 Head {h00=0x0014, h01=0x0050, text=»* F N D D W T «, t00=0x001c, t01=0x0102}
0x2cd0…2cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x011a}
0x2cda…2d00 Head {h00=0x0022, h01=0x0050, text=»* SUBROUTINE TO FIND A DWT. «, t00=0x001c, t01=0x0124}
0x2d00…2d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x014a}
0x2d0a…2d28 Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x001c, t01=0x0154}
0x2d28…2d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0172}
0x2d32…2d50 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x001c, t01=0x017c}
0x2d50…2d8c Head {h00=0x0038, h01=0x0050, text=»* A7 = ORDER CODE WHEN CALLED FROM DATA MANAGEMENT«, t00=0x001d, t01=0x000a}
0x2d8c…2da8 Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x001d, t01=0x0046}
0x2da8…2db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0062}
0x2db2…2dce Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETERS:«, t00=0x001d, t01=0x006c}
0x2dce…2dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0088}
0x2dd8…2df2 Head {h00=0x0016, h01=0x0050, text=»* A2 = DWT INDEX«, t00=0x001d, t01=0x0092}
0x2df2…2e20 Head {h00=0x002a, h01=0x0050, text=»* A6 = DWT ADDRESS IF FOUND, ELSE 0 «, t00=0x001d, t01=0x00ac}
0x2e20…2e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00da}
0x2e2a…2e34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00e4}
0x2e34…2e4c Head {h00=0x0014, h01=0x0050, text=»* F N D D W D «, t00=0x001d, t01=0x00ee}
0x2e4c…2e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0106}
0x2e56…2e74 Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x001d, t01=0x0110}
0x2e74…2e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x012e}
0x2e7e…2e98 Head {h00=0x0016, h01=0x0050, text=»* A2 = FILE CODE«, t00=0x001d, t01=0x0138}
0x2e98…2ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0152}
0x2ea2…2eca Head {h00=0x0024, h01=0x0050, text=»* EXIT PARAMETERS, SEE FNDDWT «, t00=0x001d, t01=0x015c}
0x2eca…2ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0184}
0x2ed4…2eea Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x001d, t01=0x018e}
0x2eea…2ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0014}
0x2ef4…2efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x001e}
0x2efe…2f12 Head {h00=0x0010, h01=0x0050, text=»FNDDWT EQU *«, t00=0x001e, t01=0x0028}
0x2f12…2f28 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001e, t01=0x003c}
0x2f28…2f52 Head {h00=0x0026, h01=0x0050, text=» ELR A2,A8 LOAD FILE CODE FROM ECB«, t00=0x001e, t01=0x0052}
0x2f52…2f5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x007c}
0x2f5e…2f68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0088}
0x2f68…2f7e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001e, t01=0x0092}
0x2f7e…2faa Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A8 LOAD FILE CODE FROM ECB «, t00=0x001e, t01=0x00a8}
0x2faa…2fb6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00d4}
0x2fb6…2fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00e0}
0x2fc0…2fdc Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x001e, t01=0x00ea}
0x2fdc…2ff6 Head {h00=0x0016, h01=0x0050, text=» LDKL A6,TTB:TD+2 «, t00=0x001e, t01=0x0106}
0x2ff6…302e Head {h00=0x0034, h01=0x0050, text=» ADR A6,A5 GET ADDRESS TO TERMINAL DEVICE TABLE «, t00=0x001e, t01=0x0120}
0x302e…3054 Head {h00=0x0022, h01=0x0050, text=» LD A1,-2,A6 GET TABLE LENGTH «, t00=0x001e, t01=0x0158}
0x3054…305e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x017e}
0x305e…3076 Head {h00=0x0014, h01=0x0050, text=»FND100 SUK A1,4 «, t00=0x001e, t01=0x0188}
0x3076…30a2 Head {h00=0x0028, h01=0x0050, text=» RF(N) FND110 FILE CODE NOT IN TTAB «, t00=0x001f, t01=0x0010}
0x30a2…30cc Head {h00=0x0026, h01=0x0050, text=» CC A2,1,A6 SEARCH IN DEVICE TABLE«, t00=0x001f, t01=0x003c}
0x30cc…30f2 Head {h00=0x0022, h01=0x0050, text=» RF(E) FND200 FILE CODE FOUND «, t00=0x001f, t01=0x0066}
0x30f2…311e Head {h00=0x0028, h01=0x0050, text=» ADK A6,4 ADDRESS TO NEXT FILE CODE «, t00=0x001f, t01=0x008c}
0x311e…313a Head {h00=0x0018, h01=0x0050, text=» RB FND100 TRY NEXT «, t00=0x001f, t01=0x00b8}
0x313a…3144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d4}
0x3144…315a Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x001f, t01=0x00de}
0x315a…3164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f4}
0x3164…318c Head {h00=0x0024, h01=0x0050, text=»* SEARCH IN COMMON DEVICE TABLE «, t00=0x001f, t01=0x00fe}
0x318c…3196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0126}
0x3196…31aa Head {h00=0x0010, h01=0x0050, text=»FNDDWD EQU *«, t00=0x001f, t01=0x0130}
0x31aa…31c6 Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x001f, t01=0x0144}
0x31c6…31d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0160}
0x31d0…31fa Head {h00=0x0026, h01=0x0050, text=»FND110 LD A6,SCTCDT CDTAB ADDRESS «, t00=0x001f, t01=0x016a}
0x31fa…321a (32, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 CDTAB LENGTH«, t00=0x0020, t01=0x0004}
0x321a…3242 Head {h00=0x0024, h01=0x0050, text=» ADK A6,2 POINTER TO FIRST ENTRY«, t00=0x0020, t01=0x0024}
0x3242…324c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x004c}
0x324c…3264 Head {h00=0x0014, h01=0x0050, text=»FND120 SUK A1,4 «, t00=0x0020, t01=0x0056}
0x3264…328e Head {h00=0x0026, h01=0x0050, text=» RF(N) FND130 FILE CODE NOT FOUND «, t00=0x0020, t01=0x006e}
0x328e…32a2 Head {h00=0x0010, h01=0x0050, text=» CC A2,1,A6 «, t00=0x0020, t01=0x0098}
0x32a2…32c8 Head {h00=0x0022, h01=0x0050, text=» RF(E) FND200 FILE CODE FOUND «, t00=0x0020, t01=0x00ac}
0x32c8…32f4 Head {h00=0x0028, h01=0x0050, text=» ADK A6,4 ADDRESS TO NEXT FILE CODE «, t00=0x0020, t01=0x00d2}
0x32f4…331e Head {h00=0x0026, h01=0x0050, text=» RB FND120 TRY NEXT ENTRY IN CDTAB«, t00=0x0020, t01=0x00fe}
0x331e…3328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0128}
0x3328…3340 Head {h00=0x0014, h01=0x0050, text=»FND130 LDK A6,0 «, t00=0x0020, t01=0x0132}
0x3340…3352 Head {h00=0x000e, h01=0x0050, text=» RF IHRET1«, t00=0x0020, t01=0x014a}
0x3352…335c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x015c}
0x335c…3370 Head {h00=0x0010, h01=0x0050, text=»FND200 EQU *«, t00=0x0020, t01=0x0166}
0x3370…3392 Head {h00=0x001e, h01=0x0050, text=» LCR A2,A6 LOAD DWT INDEX «, t00=0x0020, t01=0x017a}
0x3392…33b6 Head {h00=0x0020, h01=0x0050, text=» LD A6,2,A6 LOAD DWT ADDRESS«, t00=0x0021, t01=0x000c}
0x33b6…33c8 Head {h00=0x000e, h01=0x0050, text=» RF IHRET1«, t00=0x0021, t01=0x0030}
0x33c8…33d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0042}
0x33d2…33e8 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0021, t01=0x004c}
0x33e8…33f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0062}
0x33f2…33fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x006c}
0x33fc…3414 Head {h00=0x0014, h01=0x0050, text=»* F N D T I D «, t00=0x0021, t01=0x0076}
0x3414…341e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x008e}
0x341e…3464 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINE TO FIND TTAB ADDRESS FROM TASK IDENTIFICATION. «, t00=0x0021, t01=0x0098}
0x3464…346e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00de}
0x346e…348a Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETER:«, t00=0x0021, t01=0x00e8}
0x348a…3494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0104}
0x3494…34b8 Head {h00=0x0020, h01=0x0050, text=»* A7 = TASK IDENTIFICATION«, t00=0x0021, t01=0x010e}
0x34b8…34c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0132}
0x34c2…34de Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETER: «, t00=0x0021, t01=0x013c}
0x34de…34e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0158}
0x34e8…3506 Head {h00=0x001a, h01=0x0050, text=»* A2 = TTAB ADDRESS «, t00=0x0021, t01=0x0162}
0x3506…353a Head {h00=0x0030, h01=0x0050, text=»* A2 = 0 INDICATES ILLEGAL IDENTIFICATION «, t00=0x0021, t01=0x0180}
0x353a…3544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0024}
0x3544…354e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x002e}
0x354e…3570 Head {h00=0x001e, h01=0x0050, text=»FNDTID STR A1,A15 SAVE A1 «, t00=0x0022, t01=0x0038}
0x3570…3594 Head {h00=0x0020, h01=0x0050, text=» LD* A1,SCTTCT TCTAB LENGTH «, t00=0x0022, t01=0x005a}
0x3594…35aa Head {h00=0x0012, h01=0x0050, text=» AD A1,SCTTCT «, t00=0x0022, t01=0x007e}
0x35aa…35b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0094}
0x35b4…35cc Head {h00=0x0014, h01=0x0050, text=»FTI010 SUK A1,2 «, t00=0x0022, t01=0x009e}
0x35cc…35e2 Head {h00=0x0012, h01=0x0050, text=» CW A1,SCTTCT «, t00=0x0022, t01=0x00b6}
0x35e2…360a Head {h00=0x0024, h01=0x0050, text=» RF(E) FTI030 ALL TTABS EXAMINED«, t00=0x0022, t01=0x00cc}
0x360a…362a Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 TTAB ADDRESS«, t00=0x0022, t01=0x00f4}
0x362a…365a Head {h00=0x002c, h01=0x0050, text=» CW A7,TTB:ID,A2 COMPARE IDENTIFICATIONS«, t00=0x0022, t01=0x0114}
0x365a…367a Head {h00=0x001c, h01=0x0050, text=» RB(NE) FTI010 NO MATCH «, t00=0x0022, t01=0x0144}
0x367a…368e Head {h00=0x0010, h01=0x0050, text=» RF IHRET1 «, t00=0x0022, t01=0x0164}
0x368e…3698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0178}
0x3698…36c6 Head {h00=0x002a, h01=0x0050, text=»FTI030 LDK A2,0 ILLEGAL IDENTIFICATION«, t00=0x0022, t01=0x0182}
0x36c6…36d8 Head {h00=0x000e, h01=0x0050, text=» RF IHRET1«, t00=0x0023, t01=0x0020}
0x36d8…36e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0032}
0x36e2…36f8 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0023, t01=0x003c}
0x36f8…3702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0052}
0x3702…370c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x005c}
0x370c…373c Head {h00=0x002c, h01=0x0050, text=»* RESTORE REGISTERS AND RETURN WITHOUT«, t00=0x0023, t01=0x0066}
0x373c…375a Head {h00=0x001a, h01=0x0050, text=»* ENABLE INTERRUPTS.«, t00=0x0023, t01=0x0096}
0x375a…3764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b4}
0x3764…376e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00be}
0x376e…3784 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0023, t01=0x00c8}
0x3784…379e Head {h00=0x0016, h01=0x0050, text=»IHRET8 LDR* A8,A15«, t00=0x0023, t01=0x00de}
0x379e…37b2 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A15«, t00=0x0023, t01=0x00f8}
0x37b2…37c6 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A15«, t00=0x0023, t01=0x010c}
0x37c6…37da Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A15«, t00=0x0023, t01=0x0120}
0x37da…37ee Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A15«, t00=0x0023, t01=0x0134}
0x37ee…37f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0148}
0x37f8…3812 Head {h00=0x0016, h01=0x0050, text=»IHRET3 LDR* A3,A15«, t00=0x0023, t01=0x0152}
0x3812…381c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x016c}
0x381c…3836 Head {h00=0x0016, h01=0x0050, text=»IHRET2 LDR* A2,A15«, t00=0x0023, t01=0x0176}
0x3836…3840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0190}
0x3840…385a Head {h00=0x0016, h01=0x0050, text=»IHRET1 LDR* A1,A15«, t00=0x0024, t01=0x000a}
0x385a…3864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0024}
0x3864…3876 Head {h00=0x000e, h01=0x0050, text=»IHRTN INH «, t00=0x0024, t01=0x002e}
0x3876…389e Head {h00=0x0024, h01=0x0050, text=» ADKL A15,4 ADJUST STACK POINTER«, t00=0x0024, t01=0x0040}
0x389e…38ba Head {h00=0x0018, h01=0x0050, text=» ABR* A15 AND RETURN«, t00=0x0024, t01=0x0068}
0x38ba…38c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0084}
0x38c6…38d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0090}
0x38d0…38e6 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0024, t01=0x009a}
0x38e6…391a Head {h00=0x0030, h01=0x0050, text=»IHRET8 MLR 8,A15 RESTORE A1-A8 FROM STACK...«, t00=0x0024, t01=0x00b0}
0x391a…3938 Head {h00=0x001a, h01=0x0050, text=» RTN A15 ...AND RETURN«, t00=0x0024, t01=0x00e4}
0x3938…3942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0102}
0x3942…3976 Head {h00=0x0030, h01=0x0050, text=»IHRET2 MLR 2,A15 RESTORE A1-A2 FROM STACK...«, t00=0x0024, t01=0x010c}
0x3976…3994 Head {h00=0x001a, h01=0x0050, text=» RTN A15 ...AND RETURN«, t00=0x0024, t01=0x0140}
0x3994…399e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x015e}
0x399e…39d2 Head {h00=0x0030, h01=0x0050, text=»IHRET1 LDR* A1,A15 RESTORE A1 FROM STACK... «, t00=0x0024, t01=0x0168}
0x39d2…39dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x000c}
0x39dc…3a00 Head {h00=0x0020, h01=0x0050, text=»IHRTN RTN A15 ...AND RETURN «, t00=0x0025, t01=0x0016}
0x3a00…3a0c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x003a}
0x3a0c…3a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0046}
0x3a16…3a2c Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0025, t01=0x0050}
0x3a2c…3a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0066}
0x3a36…3a40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0070}
0x3a40…3a58 Head {h00=0x0014, h01=0x0050, text=»* P F I N I T «, t00=0x0025, t01=0x007a}
0x3a58…3a62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0092}
0x3a62…3a8c Head {h00=0x0026, h01=0x0050, text=»* SUBROUTINE TO RESTART DEVICES.«, t00=0x0025, t01=0x009c}
0x3a8c…3a96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00c6}
0x3a96…3ada Head {h00=0x0040, h01=0x0050, text=»* ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALLED. «, t00=0x0025, t01=0x00d0}
0x3ada…3b1e Head {h00=0x0040, h01=0x0050, text=»* REGISTERS A1-A8 ARE AVAILABLE FOR THE RESTART ROUTINES. «, t00=0x0025, t01=0x0114}
0x3b1e…3b28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0158}
0x3b28…3b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0162}
0x3b32…3b46 Head {h00=0x0010, h01=0x0050, text=»PFINIT EQU *«, t00=0x0025, t01=0x016c}
0x3b46…3b72 Head {h00=0x0028, h01=0x0050, text=» LDK A1,2 SET INDEX TO FIRST ROUTINE«, t00=0x0025, t01=0x0180}
0x3b72…3b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x001c}
0x3b7c…3ba4 Head {h00=0x0024, h01=0x0050, text=»PFI100 CW A1,PFTAB CHECK IF LAST«, t00=0x0026, t01=0x0026}
0x3ba4…3bc8 Head {h00=0x0020, h01=0x0050, text=» RF(NL) PFI110 ALL RESTARTED«, t00=0x0026, t01=0x004e}
0x3bc8…3be4 Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x0026, t01=0x0072}
0x3be4…3bf0 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0026, t01=0x008e}
0x3bf0…3c1e Head {h00=0x002a, h01=0x0050, text=» CFI A15,PFTAB,A1 CALL RESTART MODULE «, t00=0x0026, t01=0x009a}
0x3c1e…3c3e Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A15 RESTORE A1 «, t00=0x0026, t01=0x00c8}
0x3c3e…3c5c Head {h00=0x001a, h01=0x0050, text=» ADK A1,2 NEXT DEVICE «, t00=0x0026, t01=0x00e8}
0x3c5c…3c6e Head {h00=0x000e, h01=0x0050, text=» RB PFI100«, t00=0x0026, t01=0x0106}
0x3c6e…3c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0118}
0x3c78…3ca6 Head {h00=0x002a, h01=0x0050, text=»PFI110 RTN A15 RETURN WHEN ALL STARTED«, t00=0x0026, t01=0x0122}
0x3ca6…3cb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0150}
0x3cb0…3cc6 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0026, t01=0x015a}
0x3cc6…3cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0170}
0x3cd0…3cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x017a}
0x3cda…3cf0 Head {h00=0x0012, h01=0x0050, text=»* S W L 4 8 «, t00=0x0026, t01=0x0184}
0x3cf0…3cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x000a}
0x3cfa…3d24 Head {h00=0x0026, h01=0x0050, text=»* SWITCH TO LEVEL 48 AND ENABLE.«, t00=0x0027, t01=0x0014}
0x3d24…3d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x003e}
0x3d2e…3d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0048}
0x3d38…3d4c Head {h00=0x0010, h01=0x0050, text=»SWL48 EQU * «, t00=0x0027, t01=0x0052}
0x3d4c…3d68 Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x0027, t01=0x0066}
0x3d68…3d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0082}
0x3d72…3d86 Head {h00=0x0010, h01=0x0050, text=»SWL481 EQU *«, t00=0x0027, t01=0x008c}
0x3d86…3dae Head {h00=0x0024, h01=0x0050, text=» LDKL A1,/C0C0 PSW FOR LEVEL 48 «, t00=0x0027, t01=0x00a0}
0x3dae…3db8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c8}
0x3db8…3dcc Head {h00=0x0010, h01=0x0050, text=»SWL482 EQU *«, t00=0x0027, t01=0x00d2}
0x3dcc…3df6 Head {h00=0x0026, h01=0x0050, text=» ST A1,4,A15 SAVE IT ON A15 STACK «, t00=0x0027, t01=0x00e6}
0x3df6…3e16 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A15 RESTORE A1 «, t00=0x0027, t01=0x0110}
0x3e16…3e26 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0027, t01=0x0130}
0x3e26…3e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0140}
0x3e30…3e46 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0027, t01=0x014a}
0x3e46…3e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0160}
0x3e50…3e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x016a}
0x3e5a…3e70 Head {h00=0x0012, h01=0x0050, text=»* S W L X Y «, t00=0x0027, t01=0x0174}
0x3e70…3e7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x018a}
0x3e7a…3ea4 (40, 0, 398) Head {h00=0x0026, h01=0x0050, text=»* SWITCH TO LEVEL XY AND ENABLE.«, t00=0x0028, t01=0x0004}
0x3ea4…3eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x002e}
0x3eae…3ee0 Head {h00=0x002e, h01=0x0050, text=»* LEVEL := 48 IF LEVEL ON STACK IS >= 48«, t00=0x0028, t01=0x0038}
0x3ee0…3f14 Head {h00=0x0030, h01=0x0050, text=»* LEVEL := XY " " " " " XY < 48«, t00=0x0028, t01=0x006a}
0x3f14…3f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009e}
0x3f1e…3f60 Head {h00=0x003e, h01=0x0050, text=»* THIS MODULE IS TO BE CALLED WITH 8 REGISTERS ON STACK.«, t00=0x0028, t01=0x00a8}
0x3f60…3f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ea}
0x3f6a…3f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f4}
0x3f74…3f88 Head {h00=0x0010, h01=0x0050, text=»SWLXY EQU * «, t00=0x0028, t01=0x00fe}
0x3f88…3fa4 Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x0028, t01=0x0112}
0x3fa4…3fce Head {h00=0x0026, h01=0x0050, text=» LC A1,24,A15 GET LEVEL FROM STACK«, t00=0x0028, t01=0x012e}
0x3fce…3fe2 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FC «, t00=0x0028, t01=0x0158}
0x3fe2…3ff6 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/BC «, t00=0x0028, t01=0x016c}
0x3ff6…400c Head {h00=0x0012, h01=0x0050, text=» RB(G) SWL481 «, t00=0x0028, t01=0x0180}
0x400c…4022 Head {h00=0x0012, h01=0x0050, text=» LD A1,24,A15 «, t00=0x0029, t01=0x0008}
0x4022…4048 Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/FFFE SYSTEM MODE BIT«, t00=0x0029, t01=0x001e}
0x4048…405a Head {h00=0x000e, h01=0x0050, text=» RB SWL482«, t00=0x0029, t01=0x0044}
0x405a…4064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0056}
0x4064…407a Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0029, t01=0x0060}
0x407a…4084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0076}
0x4084…408e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0080}
0x408e…40b8 Head {h00=0x0026, h01=0x0050, text=»* INTERRUPT SAVE AND HALT MODULE«, t00=0x0029, t01=0x008a}
0x40b8…40c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00b4}
0x40c2…40cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00be}
0x40cc…40e2 Head {h00=0x0012, h01=0x0050, text=»INTSAV DATA 0 «, t00=0x0029, t01=0x00c8}
0x40e2…40f8 Head {h00=0x0012, h01=0x0050, text=»SAVA15 DATA 0 «, t00=0x0029, t01=0x00de}
0x40f8…4102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00f4}
0x4102…4128 Head {h00=0x0022, h01=0x0050, text=»ILLINT LDK A1,5 HALT PARAMETER«, t00=0x0029, t01=0x00fe}
0x4128…413c Head {h00=0x0010, h01=0x0050, text=» CF A15,HALT«, t00=0x0029, t01=0x0124}
0x413c…4146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0138}
0x4146…4158 Head {h00=0x000e, h01=0x0050, text=»HALT EQU *«, t00=0x0029, t01=0x0142}
0x4158…416e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0029, t01=0x0154}
0x416e…4198 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0029, t01=0x016a}
0x4198…41c0 (42, 0, 400) Head {h00=0x0024, h01=0x0050, text=» STR A9,A15 SAVE A9-A14 ON STACK«, t00=0x002a, t01=0x0004}
0x41c0…41d4 Head {h00=0x0010, h01=0x0050, text=» STR A10,A15«, t00=0x002a, t01=0x002c}
0x41d4…41e8 Head {h00=0x0010, h01=0x0050, text=» STR A11,A15«, t00=0x002a, t01=0x0040}
0x41e8…41fc Head {h00=0x0010, h01=0x0050, text=» STR A12,A15«, t00=0x002a, t01=0x0054}
0x41fc…4210 Head {h00=0x0010, h01=0x0050, text=» STR A13,A15«, t00=0x002a, t01=0x0068}
0x4210…4224 Head {h00=0x0010, h01=0x0050, text=» STR A14,A15«, t00=0x002a, t01=0x007c}
0x4224…4230 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0090}
0x4230…423a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x009c}
0x423a…4250 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002a, t01=0x00a6}
0x4250…4278 Head {h00=0x0024, h01=0x0050, text=» MSR 14,A15 SAVE A1-A14 ON STACK«, t00=0x002a, t01=0x00bc}
0x4278…4284 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00e4}
0x4284…428e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00f0}
0x428e…42a4 Head {h00=0x0012, h01=0x0050, text=» ST A15,SAVA15«, t00=0x002a, t01=0x00fa}
0x42a4…42d0 Head {h00=0x0028, h01=0x0050, text=» OTR A1,0,SOP INDICATE TYPE OF HALT «, t00=0x002a, t01=0x0110}
0x42d0…42dc Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x002a, t01=0x013c}
0x42dc…42e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0148}
0x42e6…42fc Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x002a, t01=0x0152}
0x42fc…4306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0168}
0x4306…4310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0172}
0x4310…4328 Head {h00=0x0014, h01=0x0050, text=»* R E L P A G «, t00=0x002a, t01=0x017c}
0x4328…4332 (43, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0004}
0x4332…4372 Head {h00=0x003c, h01=0x0050, text=»* RELEASE PAGE AND RESTART LDTASK IF PAGQUE WAS EMPTY «, t00=0x002b, t01=0x000e}
0x4372…437c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x004e}
0x437c…439a Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x002b, t01=0x0058}
0x439a…43a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0076}
0x43a4…43de Head {h00=0x0036, h01=0x0050, text=»* A3 = SEGBLK ADDRESS (PAGBLK ADDRESS IF RELPA2)«, t00=0x002b, t01=0x0080}
0x43de…4404 Head {h00=0x0022, h01=0x0050, text=»* A5 = TTAB ADDRESS (RELPA2)«, t00=0x002b, t01=0x00ba}
0x4404…440e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00e0}
0x440e…442a Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETER: «, t00=0x002b, t01=0x00ea}
0x442a…4434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0106}
0x4434…4450 Head {h00=0x0018, h01=0x0050, text=»* A4 IS DESTROYED «, t00=0x002b, t01=0x0110}
0x4450…445a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x012c}
0x445a…4464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0136}
0x4464…447a Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x002b, t01=0x0140}
0x447a…448e Head {h00=0x0010, h01=0x0050, text=»RELPA2 EQU *«, t00=0x002b, t01=0x0156}
0x448e…44c8 Head {h00=0x0036, h01=0x0050, text=» CM TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT «, t00=0x002b, t01=0x016a}
0x44c8…44da Head {h00=0x000e, h01=0x0050, text=» RF REL:10«, t00=0x002c, t01=0x0014}
0x44da…44e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0026}
0x44e4…4510 Head {h00=0x0028, h01=0x0050, text=»RELPAG EQU * RELEASE PAGE MAIN ENTRY«, t00=0x002c, t01=0x0030}
0x4510…4540 Head {h00=0x002c, h01=0x0050, text=» LD A3,SEG:PB,A3 GET PAGE BLOCK ADDRESS «, t00=0x002c, t01=0x005c}
0x4540…454a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x008c}
0x454a…455e Head {h00=0x0010, h01=0x0050, text=»REL:10 EQU *«, t00=0x002c, t01=0x0096}
0x455e…4588 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,PAGQUE GET PAGQUE ADDRESS«, t00=0x002c, t01=0x00aa}
0x4588…45a0 Head {h00=0x0014, h01=0x0050, text=» ST A4,PAG:QB,A3«, t00=0x002c, t01=0x00d4}
0x45a0…45d8 Head {h00=0x0034, h01=0x0050, text=» LDR* A4,A4 GET ADDRESS OF FIRST BLOCK IN PAGQUE«, t00=0x002c, t01=0x00ec}
0x45d8…45fe Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 UPDATE QUEUE LINKS «, t00=0x002c, t01=0x0124}
0x45fe…4614 Head {h00=0x0012, h01=0x0050, text=» ST A3,PAGQUE «, t00=0x002c, t01=0x014a}
0x4614…462c Head {h00=0x0014, h01=0x0050, text=» ST A3,PAG:QB,A4«, t00=0x002c, t01=0x0160}
0x462c…4664 Head {h00=0x0034, h01=0x0050, text=» LD A4,PQEMTY CHECK IF LDTASK IS IN PAUSE STATE «, t00=0x002c, t01=0x0178}
0x4664…467a Head {h00=0x0012, h01=0x0050, text=» RF(Z) REL:20 «, t00=0x002d, t01=0x0020}
0x467a…4684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0036}
0x4684…469a Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x002d, t01=0x0040}
0x469a…46a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0056}
0x46a4…46c2 Head {h00=0x001a, h01=0x0050, text=»* RESTART LOAD TASK «, t00=0x002d, t01=0x0060}
0x46c2…46cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x007e}
0x46cc…46fc Head {h00=0x002c, h01=0x0050, text=» CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY«, t00=0x002d, t01=0x0088}
0x46fc…4716 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A5 SAVE A5«, t00=0x002d, t01=0x00b8}
0x4716…4746 Head {h00=0x002c, h01=0x0050, text=» LDKL A5,TTABLD GET LDTASK TTAB ADDRESS «, t00=0x002d, t01=0x00d2}
0x4746…476e Head {h00=0x0024, h01=0x0050, text=» CF A15,QTJOB RESTART LOAD TASK «, t00=0x002d, t01=0x0102}
0x476e…478c Head {h00=0x001a, h01=0x0050, text=» LDR A5,A4 RESTORE A5 «, t00=0x002d, t01=0x012a}
0x478c…4796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0148}
0x4796…47aa Head {h00=0x0010, h01=0x0050, text=»REL:20 EQU *«, t00=0x002d, t01=0x0152}
0x47aa…47c0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002d, t01=0x0166}
0x47c0…47d2 Head {h00=0x000e, h01=0x0050, text=» RB IHRTN «, t00=0x002d, t01=0x017c}
0x47d2…47de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x018e}
0x47de…47e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x000a}
0x47e8…47fe Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x002e, t01=0x0014}
0x47fe…4814 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002e, t01=0x002a}
0x4814…4824 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x002e, t01=0x0040}
0x4824…4830 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0050}
0x4830…483a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x005c}
0x483a…4850 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=0 «, t00=0x002e, t01=0x0066}
0x4850…4886 Head {h00=0x0032, h01=0x0050, text=»RELPAG EQU * DUMMY ENTRIES TO AVOID ASS. ERR. «, t00=0x002e, t01=0x007c}
0x4886…489a Head {h00=0x0010, h01=0x0050, text=»RELPA2 EQU *«, t00=0x002e, t01=0x00b2}
0x489a…48c4 Head {h00=0x0026, h01=0x0050, text=» ABL LKMERR INDICATE SYSGEN ERROR «, t00=0x002e, t01=0x00c6}
0x48c4…48d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x00f0}
0x48d0…48da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00fc}
0x48da…48e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0106}
0x48e4…48ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0110}
0x48ee…48fa Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002e, t01=0x011a}
0x48fa…48fe Head {h00=0x4004, h01=0x0000}
0x48fe…4902 00 2e 01 26 ┆ . &┆
0x4902…490a (47, 1, 8) 20 04 00 00 00 2f 00 04 ┆ / ┆
0x490a…495a (48, 0, 400) 2a 20 00 0f 01 90 00 12 00 50 5c 45 4a 45 43 54 5c 5c 5c 4d 53 55 42 53 00 10 00 0a 00 06 00 50 2a 20 00 10 00 20 00 06 00 50 2a 20 00 10 00 2a 00 20 00 50 2a 20 20 20 41 20 43 20 54 20 4f 20 54 20 2c 20 41 20 43 20 54 20 4f 20 54 20 50 20 ┆* P EJECT MSUBS P* P* * P* A C T O T , A C T O T P ┆
0x495a…49aa 00 10 00 34 00 06 00 50 2a 20 00 10 00 58 00 26 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 41 43 54 49 56 41 54 45 20 41 20 54 41 53 4b 2e 00 10 00 62 00 06 00 50 2a 20 00 10 00 8c 00 1a 00 50 2a 20 20 20 45 4e 54 52 59 20 ┆ 4 P* X & P* SUBROUTINE TO ACTIVATE A TASK. b P* P* ENTRY ┆
0x49aa…49fa 50 41 52 41 4d 45 54 45 52 53 3a 20 00 10 00 96 00 06 00 50 2a 20 00 10 00 b4 00 18 00 50 2a 20 20 20 41 31 20 3d 20 50 41 52 41 4d 45 54 45 52 20 31 00 10 00 be 00 1e 00 50 2a 20 20 20 41 32 20 3d 20 44 49 53 50 41 54 43 48 20 41 44 44 52 ┆PARAMETERS: P* P* A1 = PARAMETER 1 P* A2 = DISPATCH ADDR┆
0x49fa…4a4a 45 53 53 20 00 10 00 da 00 1c 00 50 2a 20 20 20 41 33 20 3d 20 53 45 47 4d 45 4e 54 20 4e 55 4d 42 45 52 20 00 10 00 fc 00 18 00 50 2a 20 20 20 41 34 20 3d 20 50 41 52 41 4d 45 54 45 52 20 32 00 10 01 1c 00 1a 00 50 2a 20 20 20 41 35 20 3d ┆ESS P* A3 = SEGMENT NUMBER P* A4 = PARAMETER 2 P* A5 =┆
0x4a4a…4a9a 20 54 54 41 42 20 41 44 44 52 45 53 53 20 00 10 01 38 00 06 00 50 2a 20 00 10 01 56 00 3c 00 50 2a 20 20 20 2d 20 49 46 20 52 45 51 55 45 53 54 45 44 20 50 52 4f 47 52 41 4d 20 49 53 20 4e 4f 54 20 41 43 54 49 56 45 20 54 48 45 20 50 52 4f ┆ TTAB ADDRESS 8 P* V < P* - IF REQUESTED PROGRAM IS NOT ACTIVE THE PRO┆
0x4a9a…4aea (49, 0, 400) 47 52 41 4d 20 49 53 20 00 10 01 60 00 3a 00 50 2a 20 20 20 20 20 50 55 54 20 49 4e 20 44 49 53 50 41 54 43 48 45 52 20 51 55 45 55 45 20 56 49 41 20 53 55 42 52 4f 55 54 49 4e 45 20 27 51 54 4a 4f 42 27 2e 20 00 11 00 10 00 40 00 50 2a 20 ┆GRAM IS ` : P* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. @ P* ┆
0x4aea…4b3a 20 20 2d 20 49 46 20 50 52 4f 47 52 41 4d 20 49 53 20 41 43 54 49 56 45 2c 20 54 48 45 20 52 45 51 55 45 53 54 20 49 53 20 50 55 54 20 49 4e 20 41 20 50 45 4e 44 49 4e 47 20 00 11 00 4e 00 10 00 50 2a 20 20 20 20 20 51 55 45 55 45 2e 00 11 ┆ - IF PROGRAM IS ACTIVE, THE REQUEST IS PUT IN A PENDING N P* QUEUE. ┆
0x4b3a…4b8a 00 92 00 40 00 50 2a 20 20 20 2d 20 41 43 54 4f 54 20 57 49 4c 4c 20 50 55 54 20 52 45 51 55 45 53 54 20 49 4e 20 50 45 4e 44 49 4e 47 20 51 55 45 55 45 20 4f 4e 20 46 49 46 4f 20 42 41 53 49 53 2e 00 11 00 a6 00 42 00 50 2a 20 20 20 2d 20 ┆ @ P* - ACTOT WILL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. B P* - ┆
0x4b8a…4bda 41 43 54 4f 54 50 20 57 49 4c 4c 20 50 55 54 20 52 45 51 55 45 53 54 20 49 4e 20 50 45 4e 44 49 4e 47 20 51 55 45 55 45 20 4f 4e 20 4c 49 46 4f 20 42 41 53 49 53 2e 20 00 11 00 ea 00 06 00 50 2a 20 00 11 01 30 00 06 00 50 2a 20 00 11 01 3a ┆ACTOTP WILL PUT REQUEST IN PENDING QUEUE ON LIFO BASIS. P* 0 P* :┆
0x4bda…4c2a 00 10 00 50 41 43 54 4f 54 50 5c 45 51 55 5c 2a 00 11 01 44 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 11 01 58 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 20 ┆ PACTOTP EQU * D P IFT CPU852=1 X & P CF A15,SAVE8 SAVE A1-A8 ON STACK ┆
0x4c2a…4c7a (50, 0, 400) 00 11 01 6e 00 08 00 50 5c 58 49 46 00 12 00 08 00 06 00 50 2a 20 00 12 00 14 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 12 00 1e 00 08 00 50 5c 49 4e 48 00 12 00 34 00 22 00 50 5c 4d 53 52 5c 38 2c 41 31 35 5c 53 41 56 45 20 ┆ n P XIF P* P IFT CPU852=0 P INH 4 " P MSR 8,A15 SAVE ┆
0x4c7a…4cca 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 00 12 00 40 00 08 00 50 5c 58 49 46 00 12 00 66 00 06 00 50 2a 20 00 12 00 72 00 1c 00 50 5c 4c 44 4b 5c 41 36 2c 31 5c 49 4e 44 49 43 41 54 45 20 4c 49 46 4f 20 00 12 00 7c 00 0e 00 50 5c 52 46 5c ┆A1-A8 ON STACK @ P XIF f P* r P LDK A6,1 INDICATE LIFO | P RF ┆
0x4cca…4d1a 41 43 54 30 33 20 00 12 00 9c 00 06 00 50 2a 20 00 12 00 ae 00 12 00 50 5c 45 4a 45 43 54 5c 5c 5c 4d 53 55 42 53 00 12 00 b8 00 06 00 50 2a 20 00 12 00 ce 00 06 00 50 2a 20 00 12 00 d8 00 10 00 50 41 43 54 4f 54 5c 45 51 55 5c 2a 20 00 12 ┆ACT03 P* P EJECT MSUBS P* P* PACTOT EQU * ┆
0x4d1a…4d6a 00 e2 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 12 00 f6 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 20 00 12 01 0c 00 08 00 50 5c 58 49 46 00 12 01 36 00 06 ┆ P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF 6 ┆
0x4d6a…4dba 00 50 2a 20 00 12 01 42 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 12 01 4c 00 08 00 50 5c 49 4e 48 00 12 01 62 00 22 00 50 5c 4d 53 52 5c 38 2c 41 31 35 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 00 12 01 6e ┆ P* B P IFT CPU852=0 L P INH b " P MSR 8,A15 SAVE A1-A8 ON STACK n┆
0x4dba…4e0a (51, 0, 400) 00 08 00 50 5c 58 49 46 00 13 00 04 00 06 00 50 2a 20 00 13 00 10 00 20 00 50 41 43 54 30 31 5c 4c 44 4b 5c 41 36 2c 30 5c 49 4e 44 49 43 41 54 45 20 46 49 46 4f 00 13 00 1a 00 06 00 50 2a 20 00 13 00 3e 00 10 00 50 41 43 54 30 33 5c 45 51 ┆ P XIF P* PACT01 LDK A6,0 INDICATE FIFO P* > PACT03 EQ┆
0x4e0a…4e5a 55 5c 2a 20 00 13 00 48 00 30 00 50 5c 4c 44 5c 41 37 2c 54 54 42 3a 53 41 2c 41 35 5c 47 45 54 20 28 4f 4c 44 29 20 44 49 53 50 41 54 43 48 20 41 44 44 52 45 53 53 20 00 13 00 5c 00 24 00 50 5c 52 46 28 4e 5a 29 5c 41 43 54 30 32 30 5c 49 ┆U * H 0 P LD A7,TTB:SA,A5 GET (OLD) DISPATCH ADDRESS $ P RF(NZ) ACT020 I┆
0x4e5a…4eaa 53 20 50 52 4f 47 52 41 4d 20 41 43 54 49 56 45 00 13 00 90 00 22 00 50 5c 53 54 5c 41 31 2c 54 54 42 3a 53 41 2b 32 2c 41 35 5c 50 41 52 41 4d 45 54 45 52 20 31 00 13 00 b8 00 30 00 50 5c 53 54 5c 41 32 2c 54 54 42 3a 53 41 2c 41 35 5c 53 ┆S PROGRAM ACTIVE " P ST A1,TTB:SA+2,A5 PARAMETER 1 0 P ST A2,TTB:SA,A5 S┆
0x4eaa…4efa 41 56 45 20 28 4e 45 57 29 20 44 49 53 50 41 54 43 48 20 41 44 44 52 45 53 53 00 13 00 de 00 26 00 50 5c 53 54 5c 41 33 2c 54 54 42 3a 53 41 2b 36 2c 41 35 5c 53 45 47 4d 45 4e 54 20 4e 55 4d 42 45 52 20 00 13 01 12 00 22 00 50 5c 53 54 5c ┆AVE (NEW) DISPATCH ADDRESS & P ST A3,TTB:SA+6,A5 SEGMENT NUMBER " P ST ┆
0x4efa…4f4a 41 34 2c 54 54 42 3a 53 41 2b 38 2c 41 35 5c 50 41 52 41 4d 45 54 45 52 20 32 00 13 01 3c 00 24 00 50 5c 4c 44 5c 41 34 2c 54 54 42 3a 49 44 2c 41 35 5c 53 45 54 20 54 45 52 4d 49 4e 41 4c 20 49 44 00 13 01 62 00 2a 00 50 5c 53 54 5c 41 34 ┆A4,TTB:SA+8,A5 PARAMETER 2 < $ P LD A4,TTB:ID,A5 SET TERMINAL ID b * P ST A4┆
0x4f4a…4f9a (52, 0, 400) 2c 54 54 42 3a 53 41 2b 34 2c 41 35 5c 54 4f 20 41 32 20 49 4e 20 53 41 56 45 20 41 52 45 41 20 00 13 01 8a 00 06 00 50 2a 20 00 14 00 28 00 18 00 50 5c 49 46 46 5c 4d 4d 55 50 41 47 2b 44 53 4b 50 41 47 3d 30 00 14 00 32 00 36 00 50 5c 43 ┆,TTB:SA+4,A5 TO A2 IN SAVE AREA P* ( P IFF MMUPAG+DSKPAG=0 2 6 P C┆
0x4f9a…4fea 4d 5c 54 54 42 3a 53 42 2c 41 35 5c 49 4e 44 49 43 41 54 45 20 4e 4f 54 20 52 55 4e 4e 49 4e 47 20 49 4e 20 41 4e 59 20 53 45 47 4d 45 4e 54 20 00 14 00 4e 00 08 00 50 5c 58 49 46 00 14 00 88 00 06 00 50 2a 20 00 14 00 94 00 20 00 50 5c 43 ┆M TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT N P XIF P* P C┆
0x4fea…503a 46 5c 41 31 35 2c 51 54 4a 4f 42 5c 51 55 45 55 45 20 54 48 45 20 4a 4f 42 20 00 14 00 9e 00 06 00 50 2a 20 00 14 00 c2 00 12 00 50 5c 45 4a 45 43 54 5c 5c 5c 4d 53 55 42 53 00 14 00 cc 00 06 00 50 2a 20 00 14 00 e2 00 06 00 50 2a 20 00 14 ┆F A15,QTJOB QUEUE THE JOB P* P EJECT MSUBS P* P* ┆
0x503a…508a 00 ec 00 10 00 50 41 43 54 30 31 30 5c 45 51 55 5c 2a 00 14 00 f6 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 14 01 0a 00 28 00 50 5c 52 46 5c 49 48 52 45 54 38 5c 52 45 53 54 4f 52 45 20 41 31 2d 41 38 20 41 4e 44 20 52 45 54 ┆ PACT010 EQU * P IFT CPU852=1 ( P RF IHRET8 RESTORE A1-A8 AND RET┆
0x508a…50da 55 52 4e 20 00 14 01 20 00 08 00 50 5c 58 49 46 00 14 01 4c 00 06 00 50 2a 20 00 14 01 58 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 14 01 62 00 2a 00 50 5c 4d 4c 52 5c 38 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 41 31 2d 41 38 ┆URN P XIF L P* X P IFT CPU852=0 b * P MLR 8,A15 RESTORE A1-A8┆