|
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: 17276 (0x437c)
Notes: pts_type(SC)
Names: »MSUBS.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/MSUBS.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »M:92T1/MSUBS.SC«
└─⟦7e2393f80⟧ Bits:30009710 Philips computer tape "M_KONV"
└─⟦this⟧ »M:KONV/MSUBS.SC«
IDENT MSUBS REL 9.2 79-11-16 870105040920 * * ************************************************** * * 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 * 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 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 * * ENTRIES TO RESTORE REGISTERS A8-A1 WITHOUT * ENABLE INTERRUPTS * 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 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 FREQUE POINTER TO FIRST FREE MONITOR BLOCK EXTRN DWTADR -ADDRESS BLOCK EXTRN SCTTCT TASK CONTROL TABLE EXTRN SCTCDT COMMON DEVICE TABLE EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED EXTRN TIODM DM ENTRY EXTRN CHKIND DM ENTRY * * SOP EQU /2E SOP DEVICE ADDRESS * EJECT MSUBS * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * * A PROGRAM VERSION USING TOSS DISC PAGING * IS OBTAINED BY SETTING DSKPAG EQU 1. * DSKPAG EQU 0 * 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 ABL 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 * * FNDDWT 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 * IFT MMUPAG=1 ELR A2,A8 LOAD FILE CODE FROM ECB XIF * IFT MMUPAG=0 LDR* A2,A8 LOAD FILE CODE FROM ECB XIF * EJECT MSUBS * * FND100 SUK A1,4 RF(N) FND110 FILE CODE NOT IN TTAB? CC A2,1,A6 SEARCH IN DEVICE TABLE RF(NE) FND106 BRANCH IF NOT FOUND STR A1,A15 LD A1,2,A6 DWT ADDRESS LD A1,DWTADR,A1 ADDRESS BLOCK CWK A1,TIODM RF(NE) FND200 NOT DM REQUEST? CF A15,CHKIND CHECK INDEX IN DM RF FND200 INDEX OK LDR* A1,A15 * FND106 EQU * ADK A6,4 ADDRESS TO NEXT FILE CODE RB FND100 TRY NEXT * * SEARCH IN COMMON DEVICE TABLE * FND110 LD A6,SCTCDT CDTAB ADDRESS LDR* A1,A6 CDTAB LENGTH ADK A6,2 POINTER TO FIRST ENTRY * EJECT MSUBS * * FND120 SUK A1,4 RF(N) FND130 FILE CODE NOT FOUND? CC A2,1,A6 RF(NE) FND126 FILE CODE NOT FOUND? STR A1,A15 LD A1,2,A6 LD A1,DWTADR,A1 CWK A1,TIODM RF(NE) FND200 NOT DM REQUEST? CF A15,CHKIND CHECK INDEX IN DM RF FND200 INDEX OK LDR* A1,A15 * FND126 ADK A6,4 RB FND120 TRY NEXT ENTRY IN CDTAB * FND130 LDK A6,0 RF IHRET1 * FND200 LDR* A1,A15 RESET STACK LCR A2,A6 LOAD DWT INDEX LD A6,2,A6 LOAD DWT ADDRESS * FND210 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 IHRET7 LDR* A7,A15 IHRET6 LDR* A6,A15 IHRET5 LDR* A5,A15 IHRET4 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 * * * END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT MSUBS REL 9.2 79-11-16 870105040920«, 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…0434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010e}
0x0434…044a Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0002, t01=0x0118}
0x044a…0454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012e}
0x0454…045e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0138}
0x045e…0472 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0142}
0x0472…0486 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x0156}
0x0486…049a Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x016a}
0x049a…04a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x017e}
0x04a4…04ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0188}
0x04ae…04d4 (3, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ENTRY SAVE8 SAVE 8 REGISTERS «, t00=0x0003, t01=0x0004}
0x04d4…04f4 Head {h00=0x001c, h01=0x0050, text=» ENTRY QTJOB QUEUE TASK «, t00=0x0003, t01=0x002a}
0x04f4…051a Head {h00=0x0022, h01=0x0050, text=» ENTRY QMJOB QUEUE MONITOR JOB«, t00=0x0003, t01=0x004a}
0x051a…0544 Head {h00=0x0026, h01=0x0050, text=» ENTRY ACTOT ACTIVATE TASK (FIFO) «, t00=0x0003, t01=0x0070}
0x0544…056e Head {h00=0x0026, h01=0x0050, text=» ENTRY ACTOTP ACTIVATE TASK (LIFO)«, t00=0x0003, t01=0x009a}
0x056e…058e Head {h00=0x001c, h01=0x0050, text=» ENTRY EXIT PROGRAM EXIT«, t00=0x0003, t01=0x00c4}
0x058e…05ae Head {h00=0x001c, h01=0x0050, text=» ENTRY GETBLK GET BLOCK «, t00=0x0003, t01=0x00e4}
0x05ae…05d2 Head {h00=0x0020, h01=0x0050, text=» ENTRY FREBLK SET BLOCK FREE«, t00=0x0003, t01=0x0104}
0x05d2…05f0 Head {h00=0x001a, h01=0x0050, text=» ENTRY FNDDWT FIND DWT«, t00=0x0003, t01=0x0128}
0x05f0…0620 Head {h00=0x002c, h01=0x0050, text=» ENTRY FNDTID FIND TASK INDENTIFICATION «, t00=0x0003, t01=0x0146}
0x0620…0644 Head {h00=0x0020, h01=0x0050, text=» ENTRY PFINIT RESTART DEVICE«, t00=0x0003, t01=0x0176}
0x0644…066c Head {h00=0x0024, h01=0x0050, text=» ENTRY SWL48 SWITCH TO LEVEL 48 «, t00=0x0004, t01=0x000a}
0x066c…0694 Head {h00=0x0024, h01=0x0050, text=» ENTRY SWLXY SWITCH TO LEVEL XY «, t00=0x0004, t01=0x0032}
0x0694…06c4 Head {h00=0x002c, h01=0x0050, text=» ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE «, t00=0x0004, t01=0x005a}
0x06c4…06f2 Head {h00=0x002a, h01=0x0050, text=» ENTRY INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0004, t01=0x008a}
0x06f2…0712 Head {h00=0x001c, h01=0x0050, text=» ENTRY HALT HALT MODULE «, t00=0x0004, t01=0x00b8}
0x0712…071c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d8}
0x071c…0752 Head {h00=0x0032, h01=0x0050, text=»* ENTRIES TO RESTORE REGISTERS A8-A1 WITHOUT«, t00=0x0004, t01=0x00e2}
0x0752…0770 Head {h00=0x001a, h01=0x0050, text=»* ENABLE INTERRUPTS «, t00=0x0004, t01=0x0118}
0x0770…077a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0136}
0x077a…07a0 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHRET8 RESTORE FROM A8 «, t00=0x0004, t01=0x0140}
0x07a0…07b8 Head {h00=0x0014, h01=0x0050, text=» ENTRY IHRET2 A2«, t00=0x0004, t01=0x0166}
0x07b8…07de Head {h00=0x0022, h01=0x0050, text=» ENTRY IHRET1 A1 «, t00=0x0004, t01=0x017e}
0x07de…0814 Head {h00=0x0032, h01=0x0050, text=» ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS «, t00=0x0005, t01=0x0014}
0x0814…082a Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0005, t01=0x004a}
0x082a…0834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0060}
0x0834…083e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006a}
0x083e…0854 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0074}
0x0854…086a Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x008a}
0x086a…0880 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x00a0}
0x0880…088a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b6}
0x088a…0894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c0}
0x0894…08d2 Head {h00=0x003a, h01=0x0050, text=» EXTRN DISQUE POINTER TO 1ST PLACE IN DISPATCHER QUEUE«, t00=0x0005, t01=0x00ca}
0x08d2…08fc Head {h00=0x0026, h01=0x0050, text=» EXTRN TTMJOB TTAB ADDRESS OF MJOB«, t00=0x0005, t01=0x0108}
0x08fc…0928 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SB SEGMENT BLOCK POINTER «, t00=0x0005, t01=0x0132}
0x0928…095c Head {h00=0x0030, h01=0x0050, text=» EXTRN TTB:ST TASK STATUS AND PRIORITY LEVEL«, t00=0x0005, t01=0x015e}
0x095c…0986 (6, 0, 400) Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:ID TASK IDENTIFICATION «, t00=0x0006, t01=0x0004}
0x0986…09a6 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:SA SAVE AREA «, t00=0x0006, t01=0x002e}
0x09a6…09d4 Head {h00=0x002a, h01=0x0050, text=» EXTRN TTB:PP POINTER TO PENDING QUEUE«, t00=0x0006, t01=0x004e}
0x09d4…0a00 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:TD TERMINAL DEVICE TABLE «, t00=0x0006, t01=0x007c}
0x0a00…0a3a Head {h00=0x0036, h01=0x0050, text=» EXTRN FREQUE POINTER TO FIRST FREE MONITOR BLOCK «, t00=0x0006, t01=0x00a8}
0x0a3a…0a5e Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTADR -ADDRESS BLOCK«, t00=0x0006, t01=0x00e2}
0x0a5e…0a86 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTTCT TASK CONTROL TABLE«, t00=0x0006, t01=0x0106}
0x0a86…0ab0 Head {h00=0x0026, h01=0x0050, text=» EXTRN SCTCDT COMMON DEVICE TABLE «, t00=0x0006, t01=0x012e}
0x0ab0…0ae6 Head {h00=0x0032, h01=0x0050, text=» EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED «, t00=0x0006, t01=0x0158}
0x0ae6…0b04 Head {h00=0x001a, h01=0x0050, text=» EXTRN TIODM DM ENTRY «, t00=0x0006, t01=0x018e}
0x0b04…0b22 Head {h00=0x001a, h01=0x0050, text=» EXTRN CHKIND DM ENTRY«, t00=0x0007, t01=0x001c}
0x0b22…0b2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003a}
0x0b2c…0b36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0044}
0x0b36…0b5c Head {h00=0x0022, h01=0x0050, text=»SOP EQU /2E SOP DEVICE ADDRESS«, t00=0x0007, t01=0x004e}
0x0b5c…0b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0074}
0x0b66…0b7c Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0007, t01=0x007e}
0x0b7c…0b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0094}
0x0b86…0b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x009e}
0x0b90…0bc2 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0007, t01=0x00a8}
0x0bc2…0bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00da}
0x0bcc…0bea Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0007, t01=0x00e4}
0x0bea…0bf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0102}
0x0bf4…0c26 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0007, t01=0x010c}
0x0c26…0c30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013e}
0x0c30…0c62 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0007, t01=0x0148}
0x0c62…0c90 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0007, t01=0x017a}
0x0c90…0c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0018}
0x0c9a…0cae Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0008, t01=0x0022}
0x0cae…0cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0036}
0x0cb8…0cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0040}
0x0cc2…0cfc Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0008, t01=0x004a}
0x0cfc…0d2e Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0008, t01=0x0084}
0x0d2e…0d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b6}
0x0d38…0d4c Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0008, t01=0x00c0}
0x0d4c…0d56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d4}
0x0d56…0d60 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0008, t01=0x00de}
0x0d60…0d92 Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0008, t01=0x00e8}
0x0d92…0dc0 Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0008, t01=0x011a}
0x0dc0…0dca Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0008, t01=0x0148}
0x0dca…0dde Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 0«, t00=0x0008, t01=0x0152}
0x0dde…0de8 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0008, t01=0x0166}
0x0de8…0dfe Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0008, t01=0x0170}
0x0dfe…0e08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0186}
0x0e08…0e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0190}
0x0e12…0e28 Head {h00=0x0012, h01=0x0050, text=»* S A V E 8 «, t00=0x0009, t01=0x000a}
0x0e28…0e32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0020}
0x0e32…0e66 Head {h00=0x0030, h01=0x0050, text=»* SUBROUTINE TO SAVE 8 REGISTERS ON STACK «, t00=0x0009, t01=0x002a}
0x0e66…0e8e Head {h00=0x0024, h01=0x0050, text=»* WITHOUT ENABLING INTERRUPTS.«, t00=0x0009, t01=0x005e}
0x0e8e…0e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0086}
0x0e98…0ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0090}
0x0ea2…0eb6 Head {h00=0x0010, h01=0x0050, text=»SAVE8 EQU * «, t00=0x0009, t01=0x009a}
0x0eb6…0ed6 Head {h00=0x001c, h01=0x0050, text=» INH INHIBIT INTERRUPTS«, t00=0x0009, t01=0x00ae}
0x0ed6…0eea Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x0009, t01=0x00ce}
0x0eea…0efe Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x0009, t01=0x00e2}
0x0efe…0f12 Head {h00=0x0010, h01=0x0050, text=» STR A5,A15 «, t00=0x0009, t01=0x00f6}
0x0f12…0f26 Head {h00=0x0010, h01=0x0050, text=» STR A6,A15 «, t00=0x0009, t01=0x010a}
0x0f26…0f3a Head {h00=0x0010, h01=0x0050, text=» STR A7,A15 «, t00=0x0009, t01=0x011e}
0x0f3a…0f4e Head {h00=0x0010, h01=0x0050, text=» STR A8,A15 «, t00=0x0009, t01=0x0132}
0x0f4e…0f7e Head {h00=0x002c, h01=0x0050, text=» LD A3,16,A15 LOAD P.C. (RETURN ADDRESS)«, t00=0x0009, t01=0x0146}
0x0f7e…0fae Head {h00=0x002c, h01=0x0050, text=» ST A3,SAVE81 AND MODIFY BRANCH ADDRESS «, t00=0x0009, t01=0x0176}
0x0fae…0fc4 Head {h00=0x0012, h01=0x0050, text=» ST A2,14,A15 «, t00=0x000a, t01=0x0016}
0x0fc4…0fda Head {h00=0x0012, h01=0x0050, text=» ST A1,16,A15 «, t00=0x000a, t01=0x002c}
0x0fda…0ffa Head {h00=0x001c, h01=0x0050, text=» LD A3,12,A15 RESTORE A3«, t00=0x000a, t01=0x0042}
0x0ffa…1024 Head {h00=0x0026, h01=0x0050, text=» ABL 0 THIS IS USED TO BRANCH BACK«, t00=0x000a, t01=0x0062}
0x1024…103a Head {h00=0x0012, h01=0x0050, text=»SAVE81 EQU *-2«, t00=0x000a, t01=0x008c}
0x103a…1044 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a2}
0x1044…105a Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x000a, t01=0x00ac}
0x105a…1064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c2}
0x1064…106e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00cc}
0x106e…1084 Head {h00=0x0012, h01=0x0050, text=»* Q T J O B «, t00=0x000a, t01=0x00d6}
0x1084…108e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ec}
0x108e…10c4 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. «, t00=0x000a, t01=0x00f6}
0x10c4…10ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012c}
0x10ce…10ec Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETER:- «, t00=0x000a, t01=0x0136}
0x10ec…10f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0154}
0x10f6…112c Head {h00=0x0032, h01=0x0050, text=»* A5 = TTAB ADDRESS OF PROGRAM TO BE QUEUED.«, t00=0x000a, t01=0x015e}
0x112c…1136 (11, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0004}
0x1136…1172 Head {h00=0x0038, h01=0x0050, text=»* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON «, t00=0x000b, t01=0x000e}
0x1172…11ae Head {h00=0x0038, h01=0x0050, text=»* PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS«, t00=0x000b, t01=0x004a}
0x11ae…11cc Head {h00=0x001a, h01=0x0050, text=»* PUT LAST IN QUEUE.«, t00=0x000b, t01=0x0086}
0x11cc…11d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a4}
0x11d6…11e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ae}
0x11e0…11f4 Head {h00=0x0010, h01=0x0050, text=»QTJOB EQU * «, t00=0x000b, t01=0x00b8}
0x11f4…1200 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000b, t01=0x00cc}
0x1200…120a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d8}
0x120a…1220 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000b, t01=0x00e2}
0x1220…1248 Head {h00=0x0024, h01=0x0050, text=» STR A1,A15 SAVE A1-A3 ON STACK «, t00=0x000b, t01=0x00f8}
0x1248…125c Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x000b, t01=0x0120}
0x125c…1270 Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x000b, t01=0x0134}
0x1270…127c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0148}
0x127c…1286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0154}
0x1286…129c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000b, t01=0x015e}
0x129c…12c2 Head {h00=0x0022, h01=0x0050, text=» MSR 3,A15 SAVE A1-A3 ON STACK«, t00=0x000b, t01=0x0174}
0x12c2…12ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x000a}
0x12ce…12d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0016}
0x12d8…130a Head {h00=0x002e, h01=0x0050, text=» LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS «, t00=0x000c, t01=0x0020}
0x130a…1340 Head {h00=0x0032, h01=0x0050, text=» LDR* A2,A1 GET ADDRESS OF FIRST TASK IN QUEUE«, t00=0x000c, t01=0x0052}
0x1340…1364 Head {h00=0x0020, h01=0x0050, text=» RF(Z) QTJ020 DISQUE EMPTY? «, t00=0x000c, t01=0x0088}
0x1364…1392 Head {h00=0x002a, h01=0x0050, text=» LD A3,TTB:ST+1,A5 GET PRIORITY LEVEL «, t00=0x000c, t01=0x00ac}
0x1392…139c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00da}
0x139c…13b2 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x000c, t01=0x00e4}
0x13b2…13bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00fa}
0x13bc…13c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0104}
0x13c6…1400 Head {h00=0x0036, h01=0x0050, text=»QTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL«, t00=0x000c, t01=0x010e}
0x1400…141e Head {h00=0x001a, h01=0x0050, text=» RF(L) QTJ020 INSERT? «, t00=0x000c, t01=0x0148}
0x141e…143e Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 SAVE ADDRESS «, t00=0x000c, t01=0x0166}
0x143e…1470 Head {h00=0x002e, h01=0x0050, text=» LDR* A2,A1 GET NEXT TTAB ADDRESS IN QUEUE«, t00=0x000c, t01=0x0186}
0x1470…1498 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) QTJ010 NOT END OF QUEUE?«, t00=0x000d, t01=0x0028}
0x1498…14a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0050}
0x14a2…14ce Head {h00=0x0028, h01=0x0050, text=»QTJ020 STR A2,A5 UPDATE QUEUE LINKS «, t00=0x000d, t01=0x005a}
0x14ce…14e0 Head {h00=0x000e, h01=0x0050, text=» STR A5,A1«, t00=0x000d, t01=0x0086}
0x14e0…14ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0098}
0x14ea…1500 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000d, t01=0x00a2}
0x1500…1514 Head {h00=0x0010, h01=0x0050, text=» ABL IHRET3 «, t00=0x000d, t01=0x00b8}
0x1514…1520 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00cc}
0x1520…152a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d8}
0x152a…1540 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000d, t01=0x00e2}
0x1540…156e Head {h00=0x002a, h01=0x0050, text=» MLR 3,A15 RESTORE A1-A3 FROM STACK...«, t00=0x000d, t01=0x00f8}
0x156e…158c Head {h00=0x001a, h01=0x0050, text=» RTN A15 ...AND RETURN«, t00=0x000d, t01=0x0126}
0x158c…1598 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0144}
0x1598…15a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0150}
0x15a2…15b8 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x000d, t01=0x015a}
0x15b8…15c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0170}
0x15c2…15cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017a}
0x15cc…15e2 Head {h00=0x0012, h01=0x0050, text=»* Q M J O B «, t00=0x000d, t01=0x0184}
0x15e2…15ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000a}
0x15ec…1626 Head {h00=0x0036, h01=0x0050, text=»* SUBROUTINE TO QUEUE MONITOR JOBS ON LEVEL 49. «, t00=0x000e, t01=0x0014}
0x1626…1630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x004e}
0x1630…164e Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS:-«, t00=0x000e, t01=0x0058}
0x164e…1658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0076}
0x1658…1672 Head {h00=0x0016, h01=0x0050, text=»* A1 = PARAMETER«, t00=0x000e, t01=0x0080}
0x1672…1694 Head {h00=0x001e, h01=0x0050, text=»* A2 = DISPATCH ADDRESS «, t00=0x000e, t01=0x009a}
0x1694…169e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00bc}
0x169e…16dc Head {h00=0x003a, h01=0x0050, text=»* A5 IS SET TO TTAB ADDRESS OF MONITOR JOBS AND THE «, t00=0x000e, t01=0x00c6}
0x16dc…171c Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE«, t00=0x000e, t01=0x0104}
0x171c…172c Head {h00=0x000c, h01=0x0050, text=»* JOB.«, t00=0x000e, t01=0x0144}
0x172c…1736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0154}
0x1736…1740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x015e}
0x1740…1754 Head {h00=0x0010, h01=0x0050, text=»QMJOB EQU * «, t00=0x000e, t01=0x0168}
0x1754…176a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000e, t01=0x017c}
0x176a…1794 (15, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x000f, t01=0x0004}
0x1794…17a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x002e}
0x17a0…17aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x003a}
0x17aa…17c0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000f, t01=0x0044}
0x17c0…17cc Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000f, t01=0x005a}
0x17cc…17f2 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x000f, t01=0x0066}
0x17f2…17fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x008c}
0x17fe…1808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0098}
0x1808…1830 Head {h00=0x0024, h01=0x0050, text=» LDKL A5,TTMJOB SET TTAB ADDRESS«, t00=0x000f, t01=0x00a2}
0x1830…1842 Head {h00=0x000e, h01=0x0050, text=» RF ACT01 «, t00=0x000f, t01=0x00ca}
0x1842…184c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00dc}
0x184c…1862 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x000f, t01=0x00e6}
0x1862…186c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fc}
0x186c…1876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0106}
0x1876…189a Head {h00=0x0020, h01=0x0050, text=»* A C T O T , A C T O T P «, t00=0x000f, t01=0x0110}
0x189a…18a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0134}
0x18a4…18ce Head {h00=0x0026, h01=0x0050, text=»* SUBROUTINE TO ACTIVATE A TASK.«, t00=0x000f, t01=0x013e}
0x18ce…18d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0168}
0x18d8…18f6 Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x000f, t01=0x0172}
0x18f6…1900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0190}
0x1900…191c Head {h00=0x0018, h01=0x0050, text=»* A1 = PARAMETER 1«, t00=0x0010, t01=0x000a}
0x191c…193e Head {h00=0x001e, h01=0x0050, text=»* A2 = DISPATCH ADDRESS «, t00=0x0010, t01=0x0026}
0x193e…195e Head {h00=0x001c, h01=0x0050, text=»* A3 = SEGMENT NUMBER «, t00=0x0010, t01=0x0048}
0x195e…197a Head {h00=0x0018, h01=0x0050, text=»* A4 = PARAMETER 2«, t00=0x0010, t01=0x0068}
0x197a…1998 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0010, t01=0x0084}
0x1998…19a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a2}
0x19a2…19e2 Head {h00=0x003c, h01=0x0050, text=»* - IF REQUESTED PROGRAM IS NOT ACTIVE THE PROGRAM IS «, t00=0x0010, t01=0x00ac}
0x19e2…1a20 Head {h00=0x003a, h01=0x0050, text=»* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. «, t00=0x0010, t01=0x00ec}
0x1a20…1a64 Head {h00=0x0040, h01=0x0050, text=»* - IF PROGRAM IS ACTIVE, THE REQUEST IS PUT IN A PENDING «, t00=0x0010, t01=0x012a}
0x1a64…1a78 Head {h00=0x0010, h01=0x0050, text=»* QUEUE.«, t00=0x0010, t01=0x016e}
0x1a78…1abc Head {h00=0x0040, h01=0x0050, text=»* - ACTOT WILL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS.«, t00=0x0010, t01=0x0182}
0x1abc…1b02 Head {h00=0x0042, h01=0x0050, text=»* - ACTOTP WILL PUT REQUEST IN PENDING QUEUE ON LIFO BASIS. «, t00=0x0011, t01=0x0036}
0x1b02…1b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x007c}
0x1b0c…1b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0086}
0x1b16…1b2a Head {h00=0x0010, h01=0x0050, text=»ACTOTP EQU *«, t00=0x0011, t01=0x0090}
0x1b2a…1b40 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0011, t01=0x00a4}
0x1b40…1b6a Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0011, t01=0x00ba}
0x1b6a…1b76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00e4}
0x1b76…1b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f0}
0x1b80…1b96 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0011, t01=0x00fa}
0x1b96…1ba2 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0011, t01=0x0110}
0x1ba2…1bc8 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0011, t01=0x011c}
0x1bc8…1bd4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0142}
0x1bd4…1bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x014e}
0x1bde…1bfe Head {h00=0x001c, h01=0x0050, text=» LDK A6,1 INDICATE LIFO «, t00=0x0011, t01=0x0158}
0x1bfe…1c10 Head {h00=0x000e, h01=0x0050, text=» RF ACT03 «, t00=0x0011, t01=0x0178}
0x1c10…1c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x018a}
0x1c1a…1c30 (18, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0012, t01=0x0004}
0x1c30…1c3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x001a}
0x1c3a…1c44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0024}
0x1c44…1c58 Head {h00=0x0010, h01=0x0050, text=»ACTOT EQU * «, t00=0x0012, t01=0x002e}
0x1c58…1c6e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0012, t01=0x0042}
0x1c6e…1c98 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0012, t01=0x0058}
0x1c98…1ca4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0082}
0x1ca4…1cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x008e}
0x1cae…1cc4 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0012, t01=0x0098}
0x1cc4…1cd0 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0012, t01=0x00ae}
0x1cd0…1cf6 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0012, t01=0x00ba}
0x1cf6…1d02 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00e0}
0x1d02…1d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ec}
0x1d0c…1d30 Head {h00=0x0020, h01=0x0050, text=»ACT01 LDK A6,0 INDICATE FIFO«, t00=0x0012, t01=0x00f6}
0x1d30…1d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x011a}
0x1d3a…1d4e Head {h00=0x0010, h01=0x0050, text=»ACT03 EQU * «, t00=0x0012, t01=0x0124}
0x1d4e…1d82 Head {h00=0x0030, h01=0x0050, text=» LD A7,TTB:SA,A5 GET (OLD) DISPATCH ADDRESS «, t00=0x0012, t01=0x0138}
0x1d82…1daa Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ACT020 IS PROGRAM ACTIVE«, t00=0x0012, t01=0x016c}
0x1daa…1dd0 (19, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ST A1,TTB:SA+2,A5 PARAMETER 1«, t00=0x0013, t01=0x0004}
0x1dd0…1e04 Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRESS«, t00=0x0013, t01=0x002a}
0x1e04…1e2e Head {h00=0x0026, h01=0x0050, text=» ST A3,TTB:SA+6,A5 SEGMENT NUMBER «, t00=0x0013, t01=0x005e}
0x1e2e…1e54 Head {h00=0x0022, h01=0x0050, text=» ST A4,TTB:SA+8,A5 PARAMETER 2«, t00=0x0013, t01=0x0088}
0x1e54…1e7c Head {h00=0x0024, h01=0x0050, text=» LD A4,TTB:ID,A5 SET TERMINAL ID«, t00=0x0013, t01=0x00ae}
0x1e7c…1eaa Head {h00=0x002a, h01=0x0050, text=» ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA «, t00=0x0013, t01=0x00d6}
0x1eaa…1eb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0104}
0x1eb4…1ed0 Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x0013, t01=0x010e}
0x1ed0…1f0a Head {h00=0x0036, h01=0x0050, text=» CM TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT «, t00=0x0013, t01=0x012a}
0x1f0a…1f16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0164}
0x1f16…1f20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0170}
0x1f20…1f44 Head {h00=0x0020, h01=0x0050, text=» CF A15,QTJOB QUEUE THE JOB «, t00=0x0013, t01=0x017a}
0x1f44…1f4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x000e}
0x1f4e…1f64 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0014, t01=0x0018}
0x1f64…1f6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x002e}
0x1f6e…1f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0038}
0x1f78…1f8c Head {h00=0x0010, h01=0x0050, text=»ACT010 EQU *«, t00=0x0014, t01=0x0042}
0x1f8c…1fa2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0014, t01=0x0056}
0x1fa2…1fce Head {h00=0x0028, h01=0x0050, text=» ABL IHRET8 RESTORE A1-A8 AND RETURN«, t00=0x0014, t01=0x006c}
0x1fce…1fda Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0098}
0x1fda…1fe4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a4}
0x1fe4…1ffa Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0014, t01=0x00ae}
0x1ffa…2028 Head {h00=0x002a, h01=0x0050, text=» MLR 8,A15 RESTORE A1-A8 FROM STACK...«, t00=0x0014, t01=0x00c4}
0x2028…2046 Head {h00=0x001a, h01=0x0050, text=» RTN A15 ...AND RETURN«, t00=0x0014, t01=0x00f2}
0x2046…2052 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0110}
0x2052…205c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x011c}
0x205c…2084 Head {h00=0x0024, h01=0x0050, text=»* PUT REQUEST IN PENDING QUEUE«, t00=0x0014, t01=0x0126}
0x2084…208e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x014e}
0x208e…20b8 Head {h00=0x0026, h01=0x0050, text=»ACT020 LDR A7,A4 SAVE PARAMETER 2 «, t00=0x0014, t01=0x0158}
0x20b8…20e0 Head {h00=0x0024, h01=0x0050, text=» CF A15,GETBLK GET A FREE BLOCK«, t00=0x0014, t01=0x0182}
0x20e0…20fe Head {h00=0x001a, h01=0x0050, text=» LDR A1,A7 PARAMETER 2«, t00=0x0015, t01=0x001a}
0x20fe…2110 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0015, t01=0x0038}
0x2110…2126 Head {h00=0x0012, h01=0x0050, text=» CF A15,GETBLK«, t00=0x0015, t01=0x004a}
0x2126…213e Head {h00=0x0014, h01=0x0050, text=» ADKL A5,TTB:PP «, t00=0x0015, t01=0x0060}
0x213e…2148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0078}
0x2148…216e Head {h00=0x0022, h01=0x0050, text=»ACT030 LDR A3,A5 SAVE ADDRESS «, t00=0x0015, t01=0x0082}
0x216e…219a Head {h00=0x0028, h01=0x0050, text=» LDR* A5,A5 FOLLOW THE QUEUE THREAD «, t00=0x0015, t01=0x00a8}
0x219a…21b2 Head {h00=0x0014, h01=0x0050, text=» ADK A6,0 SET CR«, t00=0x0015, t01=0x00d4}
0x21b2…21dc Head {h00=0x0026, h01=0x0050, text=» RF(NZ) ACT040 QUEUE ON LIFO BASIS«, t00=0x0015, t01=0x00ec}
0x21dc…21f4 Head {h00=0x0014, h01=0x0050, text=» ADK A5,0 SET CR«, t00=0x0015, t01=0x0116}
0x21f4…221c Head {h00=0x0024, h01=0x0050, text=» RB(NZ) ACT030 NOT END OF QUEUE «, t00=0x0015, t01=0x012e}
0x221c…2226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0156}
0x2226…223a Head {h00=0x0010, h01=0x0050, text=»ACT040 EQU *«, t00=0x0015, t01=0x0160}
0x223a…2260 Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 SET BLOCK IN QUEUE «, t00=0x0015, t01=0x0174}
0x2260…2272 Head {h00=0x000e, h01=0x0050, text=» STR A5,A4«, t00=0x0016, t01=0x000a}
0x2272…2284 Head {h00=0x000e, h01=0x0050, text=» RB ACT010«, t00=0x0016, t01=0x001c}
0x2284…228e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x002e}
0x228e…22a4 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0016, t01=0x0038}
0x22a4…22ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x004e}
0x22ae…22b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0058}
0x22b8…22cc Head {h00=0x0010, h01=0x0050, text=»* E X I T «, t00=0x0016, t01=0x0062}
0x22cc…22d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0076}
0x22d6…2312 Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINE TO SET A PROGRAM FREE AND QUEUE FIRST«, t00=0x0016, t01=0x0080}
0x2312…232e Head {h00=0x0018, h01=0x0050, text=»* PENDING PROGRAM.«, t00=0x0016, t01=0x00bc}
0x232e…2338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d8}
0x2338…2354 Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETER:«, t00=0x0016, t01=0x00e2}
0x2354…235e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00fe}
0x235e…237c Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0016, t01=0x0108}
0x237c…2386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0126}
0x2386…23aa Head {h00=0x0020, h01=0x0050, text=»* A3-A4, A7 ARE DESTROYED «, t00=0x0016, t01=0x0130}
0x23aa…23b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0154}
0x23b4…23be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x015e}
0x23be…23d0 Head {h00=0x000e, h01=0x0050, text=»EXIT EQU *«, t00=0x0016, t01=0x0168}
0x23d0…23fc Head {h00=0x0028, h01=0x0050, text=» CM TTB:SA,A5 RESET PROGRAM COUNTER «, t00=0x0016, t01=0x017a}
0x23fc…2430 Head {h00=0x0030, h01=0x0050, text=» LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER«, t00=0x0017, t01=0x0016}
0x2430…2458 Head {h00=0x0024, h01=0x0050, text=» RF(Z) IHRTN NO PENDING PROGRAM «, t00=0x0017, t01=0x004a}
0x2458…247c Head {h00=0x0020, h01=0x0050, text=» LDR* A3,A4 GET QUEUE THREAD«, t00=0x0017, t01=0x0072}
0x247c…24b0 Head {h00=0x0030, h01=0x0050, text=» ST A3,TTB:PP,A5 AND SAVE IN PENDING POINTER«, t00=0x0017, t01=0x0096}
0x24b0…24e8 Head {h00=0x0034, h01=0x0050, text=» CF A15,FREBLK RELEASE BLOCK AND GET PARAMETERS «, t00=0x0017, t01=0x00ca}
0x24e8…250c Head {h00=0x0020, h01=0x0050, text=» LDR A7,A1 SAVE PARAMETER 2 «, t00=0x0017, t01=0x0102}
0x250c…251e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0017, t01=0x0126}
0x251e…2534 Head {h00=0x0012, h01=0x0050, text=» CF A15,FREBLK«, t00=0x0017, t01=0x0138}
0x2534…2552 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A7 PARAMETER 2«, t00=0x0017, t01=0x014e}
0x2552…2572 Head {h00=0x001c, h01=0x0050, text=» RB ACTOT ACTIVATE TASK «, t00=0x0017, t01=0x016c}
0x2572…257c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x018c}
0x257c…2592 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0018, t01=0x0008}
0x2592…259c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x001e}
0x259c…25a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0028}
0x25a6…25be Head {h00=0x0014, h01=0x0050, text=»* G E T B L K «, t00=0x0018, t01=0x0032}
0x25be…25c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x004a}
0x25c8…2600 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO GET A FREE BLOCK FROM MONITOR «, t00=0x0018, t01=0x0054}
0x2600…263c Head {h00=0x0038, h01=0x0050, text=»* BLOCK POOL. REGISTERS A3-A1 ARE STORED IN FOUND «, t00=0x0018, t01=0x008c}
0x263c…2654 Head {h00=0x0014, h01=0x0050, text=»* FREE BLOCK. «, t00=0x0018, t01=0x00c8}
0x2654…265e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e0}
0x265e…267a Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETER:-«, t00=0x0018, t01=0x00ea}
0x267a…2684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0106}
0x2684…26b0 Head {h00=0x0028, h01=0x0050, text=»* A4 = ADDRESS TO FOUND FREE BLOCK«, t00=0x0018, t01=0x0110}
0x26b0…26ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x013c}
0x26ba…26c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0146}
0x26c4…26d8 Head {h00=0x0010, h01=0x0050, text=»GETBLK EQU *«, t00=0x0018, t01=0x0150}
0x26d8…26e4 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0018, t01=0x0164}
0x26e4…2700 Head {h00=0x0018, h01=0x0050, text=» STR A5,A15 SAVE A5 «, t00=0x0018, t01=0x0170}
0x2700…2734 Head {h00=0x0030, h01=0x0050, text=» LD A4,FREQUE GET FIRST BLOCK IN FREE QUEUE «, t00=0x0018, t01=0x018c}
0x2734…274a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) GBL010«, t00=0x0019, t01=0x0030}
0x274a…276c Head {h00=0x001e, h01=0x0050, text=» LDK A1,/B HALT PARAMETER «, t00=0x0019, t01=0x0046}
0x276c…279c Head {h00=0x002c, h01=0x0050, text=» CF A15,HALT HALT IF NO MORE FREE BLOCKS«, t00=0x0019, t01=0x0068}
0x279c…27a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0098}
0x27a6…27c0 Head {h00=0x0016, h01=0x0050, text=»GBL010 LDR* A5,A4 «, t00=0x0019, t01=0x00a2}
0x27c0…27f2 Head {h00=0x002e, h01=0x0050, text=» ST A5,FREQUE TAKE BLOCK OUT OF FREE QUEUE«, t00=0x0019, t01=0x00bc}
0x27f2…281a Head {h00=0x0024, h01=0x0050, text=» STR A3,A4 STORE A3-A1 IN BLOCK «, t00=0x0019, t01=0x00ee}
0x281a…282e Head {h00=0x0010, h01=0x0050, text=» ST A2,2,A4 «, t00=0x0019, t01=0x0116}
0x282e…2842 Head {h00=0x0010, h01=0x0050, text=» ST A1,4,A4 «, t00=0x0019, t01=0x012a}
0x2842…2862 Head {h00=0x001c, h01=0x0050, text=» LDR* A5,A15 RESTORE A5 «, t00=0x0019, t01=0x013e}
0x2862…286c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x015e}
0x286c…2882 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0019, t01=0x0168}
0x2882…2894 Head {h00=0x000e, h01=0x0050, text=» RF IHRTN «, t00=0x0019, t01=0x017e}
0x2894…28a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0190}
0x28a0…28aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000c}
0x28aa…28c0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001a, t01=0x0016}
0x28c0…28d0 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x001a, t01=0x002c}
0x28d0…28dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x003c}
0x28dc…28e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0048}
0x28e6…28fc Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x001a, t01=0x0052}
0x28fc…2906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0068}
0x2906…2910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0072}
0x2910…2928 Head {h00=0x0014, h01=0x0050, text=»* F R E B L K «, t00=0x001a, t01=0x007c}
0x2928…2932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0094}
0x2932…2970 Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINE TO GET PARAMETERS FROM A MONITOR BLOCK «, t00=0x001a, t01=0x009e}
0x2970…2994 Head {h00=0x0020, h01=0x0050, text=»* AND SET THIS BLOCK FREE.«, t00=0x001a, t01=0x00dc}
0x2994…299e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0100}
0x299e…29bc Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETER:- «, t00=0x001a, t01=0x010a}
0x29bc…29c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0128}
0x29c6…29e4 Head {h00=0x001a, h01=0x0050, text=»* A4 = BLOCK ADDRESS«, t00=0x001a, t01=0x0132}
0x29e4…29ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0150}
0x29ee…2a0c Head {h00=0x001a, h01=0x0050, text=»* EXIT PARAMETERS:- «, t00=0x001a, t01=0x015a}
0x2a0c…2a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0178}
0x2a16…2a40 Head {h00=0x0026, h01=0x0050, text=»* A3 = FIRST PARAMETER IN BLOCK «, t00=0x001a, t01=0x0182}
0x2a40…2a68 Head {h00=0x0024, h01=0x0050, text=»* A2 = SECOND " " «, t00=0x001b, t01=0x001c}
0x2a68…2a90 Head {h00=0x0024, h01=0x0050, text=»* A1 = THIRD " " «, t00=0x001b, t01=0x0044}
0x2a90…2a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006c}
0x2a9a…2aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0076}
0x2aa4…2ab8 Head {h00=0x0010, h01=0x0050, text=»FREBLK EQU *«, t00=0x001b, t01=0x0080}
0x2ab8…2ac4 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001b, t01=0x0094}
0x2ac4…2ae2 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A4 UPDATE A3 «, t00=0x001b, t01=0x00a0}
0x2ae2…2af8 Head {h00=0x0012, h01=0x0050, text=» LD A1,FREQUE «, t00=0x001b, t01=0x00be}
0x2af8…2b0a Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x001b, t01=0x00d4}
0x2b0a…2b2e Head {h00=0x0020, h01=0x0050, text=» ST A4,FREQUE SET BLOCK FREE«, t00=0x001b, t01=0x00e6}
0x2b2e…2b42 Head {h00=0x0010, h01=0x0050, text=» LD A2,2,A4 «, t00=0x001b, t01=0x010a}
0x2b42…2b56 Head {h00=0x0010, h01=0x0050, text=» LD A1,4,A4 «, t00=0x001b, t01=0x011e}
0x2b56…2b60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0132}
0x2b60…2b76 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001b, t01=0x013c}
0x2b76…2b88 Head {h00=0x000e, h01=0x0050, text=» RF IHRTN «, t00=0x001b, t01=0x0152}
0x2b88…2b94 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0164}
0x2b94…2b9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0170}
0x2b9e…2bb4 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001b, t01=0x017a}
0x2bb4…2bc4 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x001b, t01=0x0190}
0x2bc4…2bd0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0010}
0x2bd0…2bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x001c}
0x2bda…2bf0 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x001c, t01=0x0026}
0x2bf0…2bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x003c}
0x2bfa…2c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0046}
0x2c04…2c1c Head {h00=0x0014, h01=0x0050, text=»* F N D D W T «, t00=0x001c, t01=0x0050}
0x2c1c…2c26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0068}
0x2c26…2c4c Head {h00=0x0022, h01=0x0050, text=»* SUBROUTINE TO FIND A DWT. «, t00=0x001c, t01=0x0072}
0x2c4c…2c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0098}
0x2c56…2c74 Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS:-«, t00=0x001c, t01=0x00a2}
0x2c74…2c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c0}
0x2c7e…2c9c Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x001c, t01=0x00ca}
0x2c9c…2cd8 Head {h00=0x0038, h01=0x0050, text=»* A7 = ORDER CODE WHEN CALLED FROM DATA MANAGEMENT«, t00=0x001c, t01=0x00e8}
0x2cd8…2cf4 Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x001c, t01=0x0124}
0x2cf4…2cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0140}
0x2cfe…2d1c Head {h00=0x001a, h01=0x0050, text=»* EXIT PARAMETERS:- «, t00=0x001c, t01=0x014a}
0x2d1c…2d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0168}
0x2d26…2d40 Head {h00=0x0016, h01=0x0050, text=»* A2 = DWT INDEX«, t00=0x001c, t01=0x0172}
0x2d40…2d6e Head {h00=0x002a, h01=0x0050, text=»* A6 = DWT ADDRESS IF FOUND, ELSE 0 «, t00=0x001c, t01=0x018c}
0x2d6e…2d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x002a}
0x2d78…2d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0034}
0x2d82…2da4 Head {h00=0x001e, h01=0x0050, text=»FNDDWT STR A1,A15 SAVE A1 «, t00=0x001d, t01=0x003e}
0x2da4…2dbe Head {h00=0x0016, h01=0x0050, text=» LDKL A6,TTB:TD+2 «, t00=0x001d, t01=0x0060}
0x2dbe…2df6 Head {h00=0x0034, h01=0x0050, text=» ADR A6,A5 GET ADDRESS TO TERMINAL DEVICE TABLE «, t00=0x001d, t01=0x007a}
0x2df6…2e1c Head {h00=0x0022, h01=0x0050, text=» LD A1,-2,A6 GET TABLE LENGTH «, t00=0x001d, t01=0x00b2}
0x2e1c…2e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00d8}
0x2e26…2e3c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001d, t01=0x00e2}
0x2e3c…2e66 Head {h00=0x0026, h01=0x0050, text=» ELR A2,A8 LOAD FILE CODE FROM ECB«, t00=0x001d, t01=0x00f8}
0x2e66…2e72 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0122}
0x2e72…2e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x012e}
0x2e7c…2e92 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001d, t01=0x0138}
0x2e92…2ebe Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A8 LOAD FILE CODE FROM ECB «, t00=0x001d, t01=0x014e}
0x2ebe…2eca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x017a}
0x2eca…2ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0186}
0x2ed4…2eea Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x001d, t01=0x0190}
0x2eea…2ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0016}
0x2ef4…2efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0020}
0x2efe…2f16 Head {h00=0x0014, h01=0x0050, text=»FND100 SUK A1,4 «, t00=0x001e, t01=0x002a}
0x2f16…2f42 Head {h00=0x0028, h01=0x0050, text=» RF(N) FND110 FILE CODE NOT IN TTAB?«, t00=0x001e, t01=0x0042}
0x2f42…2f6c Head {h00=0x0026, h01=0x0050, text=» CC A2,1,A6 SEARCH IN DEVICE TABLE«, t00=0x001e, t01=0x006e}
0x2f6c…2f96 Head {h00=0x0026, h01=0x0050, text=» RF(NE) FND106 BRANCH IF NOT FOUND«, t00=0x001e, t01=0x0098}
0x2f96…2faa Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x001e, t01=0x00c2}
0x2faa…2fca Head {h00=0x001c, h01=0x0050, text=» LD A1,2,A6 DWT ADDRESS «, t00=0x001e, t01=0x00d6}
0x2fca…2ff0 Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTADR,A1 ADDRESS BLOCK«, t00=0x001e, t01=0x00f6}
0x2ff0…3006 Head {h00=0x0012, h01=0x0050, text=» CWK A1,TIODM «, t00=0x001e, t01=0x011c}
0x3006…302c Head {h00=0x0022, h01=0x0050, text=» RF(NE) FND200 NOT DM REQUEST?«, t00=0x001e, t01=0x0132}
0x302c…3054 Head {h00=0x0024, h01=0x0050, text=» CF A15,CHKIND CHECK INDEX IN DM«, t00=0x001e, t01=0x0158}
0x3054…3070 Head {h00=0x0018, h01=0x0050, text=» RF FND200 INDEX OK «, t00=0x001e, t01=0x0180}
0x3070…3084 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x001f, t01=0x000c}
0x3084…308e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0020}
0x308e…30a2 Head {h00=0x0010, h01=0x0050, text=»FND106 EQU *«, t00=0x001f, t01=0x002a}
0x30a2…30ce Head {h00=0x0028, h01=0x0050, text=» ADK A6,4 ADDRESS TO NEXT FILE CODE «, t00=0x001f, t01=0x003e}
0x30ce…30ea Head {h00=0x0018, h01=0x0050, text=» RB FND100 TRY NEXT «, t00=0x001f, t01=0x006a}
0x30ea…30f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0086}
0x30f4…311c Head {h00=0x0024, h01=0x0050, text=»* SEARCH IN COMMON DEVICE TABLE «, t00=0x001f, t01=0x0090}
0x311c…3126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00b8}
0x3126…3150 Head {h00=0x0026, h01=0x0050, text=»FND110 LD A6,SCTCDT CDTAB ADDRESS «, t00=0x001f, t01=0x00c2}
0x3150…3170 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 CDTAB LENGTH«, t00=0x001f, t01=0x00ec}
0x3170…3198 Head {h00=0x0024, h01=0x0050, text=» ADK A6,2 POINTER TO FIRST ENTRY«, t00=0x001f, t01=0x010c}
0x3198…31a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0134}
0x31a2…31b8 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x001f, t01=0x013e}
0x31b8…31c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0154}
0x31c2…31cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x015e}
0x31cc…31e4 Head {h00=0x0014, h01=0x0050, text=»FND120 SUK A1,4 «, t00=0x001f, t01=0x0168}
0x31e4…320e Head {h00=0x0026, h01=0x0050, text=» RF(N) FND130 FILE CODE NOT FOUND?«, t00=0x001f, t01=0x0180}
0x320e…3222 Head {h00=0x0010, h01=0x0050, text=» CC A2,1,A6 «, t00=0x0020, t01=0x001a}
0x3222…324e Head {h00=0x0028, h01=0x0050, text=» RF(NE) FND126 FILE CODE NOT FOUND? «, t00=0x0020, t01=0x002e}
0x324e…3262 Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0020, t01=0x005a}
0x3262…3276 Head {h00=0x0010, h01=0x0050, text=» LD A1,2,A6 «, t00=0x0020, t01=0x006e}
0x3276…328e Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTADR,A1«, t00=0x0020, t01=0x0082}
0x328e…32a4 Head {h00=0x0012, h01=0x0050, text=» CWK A1,TIODM «, t00=0x0020, t01=0x009a}
0x32a4…32ca Head {h00=0x0022, h01=0x0050, text=» RF(NE) FND200 NOT DM REQUEST?«, t00=0x0020, t01=0x00b0}
0x32ca…32f2 Head {h00=0x0024, h01=0x0050, text=» CF A15,CHKIND CHECK INDEX IN DM«, t00=0x0020, t01=0x00d6}
0x32f2…330e Head {h00=0x0018, h01=0x0050, text=» RF FND200 INDEX OK «, t00=0x0020, t01=0x00fe}
0x330e…3322 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0020, t01=0x011a}
0x3322…332c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x012e}
0x332c…3344 Head {h00=0x0014, h01=0x0050, text=»FND126 ADK A6,4 «, t00=0x0020, t01=0x0138}
0x3344…336e Head {h00=0x0026, h01=0x0050, text=» RB FND120 TRY NEXT ENTRY IN CDTAB«, t00=0x0020, t01=0x0150}
0x336e…3378 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x017a}
0x3378…3390 Head {h00=0x0014, h01=0x0050, text=»FND130 LDK A6,0 «, t00=0x0020, t01=0x0184}
0x3390…33a2 Head {h00=0x000e, h01=0x0050, text=» RF IHRET1«, t00=0x0021, t01=0x000c}
0x33a2…33ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x001e}
0x33ac…33d2 Head {h00=0x0022, h01=0x0050, text=»FND200 LDR* A1,A15 RESET STACK«, t00=0x0021, t01=0x0028}
0x33d2…33f4 Head {h00=0x001e, h01=0x0050, text=» LCR A2,A6 LOAD DWT INDEX «, t00=0x0021, t01=0x004e}
0x33f4…3418 Head {h00=0x0020, h01=0x0050, text=» LD A6,2,A6 LOAD DWT ADDRESS«, t00=0x0021, t01=0x0070}
0x3418…3422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0094}
0x3422…343a Head {h00=0x0014, h01=0x0050, text=»FND210 RF IHRET1«, t00=0x0021, t01=0x009e}
0x343a…3444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b6}
0x3444…345a Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0021, t01=0x00c0}
0x345a…3464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00d6}
0x3464…346e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00e0}
0x346e…3486 Head {h00=0x0014, h01=0x0050, text=»* F N D T I D «, t00=0x0021, t01=0x00ea}
0x3486…3490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0102}
0x3490…34d6 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINE TO FIND TTAB ADDRESS FROM TASK IDENTIFICATION. «, t00=0x0021, t01=0x010c}
0x34d6…34e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0152}
0x34e0…34fc Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETER:«, t00=0x0021, t01=0x015c}
0x34fc…3506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0178}
0x3506…352a Head {h00=0x0020, h01=0x0050, text=»* A7 = TASK IDENTIFICATION«, t00=0x0021, t01=0x0182}
0x352a…3534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0016}
0x3534…3550 Head {h00=0x0018, h01=0x0050, text=»* EXIT PARAMETER: «, t00=0x0022, t01=0x0020}
0x3550…355a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x003c}
0x355a…3578 Head {h00=0x001a, h01=0x0050, text=»* A2 = TTAB ADDRESS «, t00=0x0022, t01=0x0046}
0x3578…35ac Head {h00=0x0030, h01=0x0050, text=»* A2 = 0 INDICATES ILLEGAL IDENTIFICATION «, t00=0x0022, t01=0x0064}
0x35ac…35b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0098}
0x35b6…35c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a2}
0x35c0…35e2 Head {h00=0x001e, h01=0x0050, text=»FNDTID STR A1,A15 SAVE A1 «, t00=0x0022, t01=0x00ac}
0x35e2…3606 Head {h00=0x0020, h01=0x0050, text=» LD* A1,SCTTCT TCTAB LENGTH «, t00=0x0022, t01=0x00ce}
0x3606…361c Head {h00=0x0012, h01=0x0050, text=» AD A1,SCTTCT «, t00=0x0022, t01=0x00f2}
0x361c…3626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0108}
0x3626…363e Head {h00=0x0014, h01=0x0050, text=»FTI010 SUK A1,2 «, t00=0x0022, t01=0x0112}
0x363e…3654 Head {h00=0x0012, h01=0x0050, text=» CW A1,SCTTCT «, t00=0x0022, t01=0x012a}
0x3654…367e Head {h00=0x0026, h01=0x0050, text=» RF(E) FTI030 ALL TTABS EXAMINED? «, t00=0x0022, t01=0x0140}
0x367e…369e Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 TTAB ADDRESS«, t00=0x0022, t01=0x016a}
0x369e…36ce Head {h00=0x002c, h01=0x0050, text=» CW A7,TTB:ID,A2 COMPARE IDENTIFICATIONS«, t00=0x0022, t01=0x018a}
0x36ce…36ee Head {h00=0x001c, h01=0x0050, text=» RB(NE) FTI010 NO MATCH?«, t00=0x0023, t01=0x002a}
0x36ee…3702 Head {h00=0x0010, h01=0x0050, text=» RF IHRET1 «, t00=0x0023, t01=0x004a}
0x3702…370c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x005e}
0x370c…373a Head {h00=0x002a, h01=0x0050, text=»FTI030 LDK A2,0 ILLEGAL IDENTIFICATION«, t00=0x0023, t01=0x0068}
0x373a…374c Head {h00=0x000e, h01=0x0050, text=» RF IHRET1«, t00=0x0023, t01=0x0096}
0x374c…3756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a8}
0x3756…376c Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0023, t01=0x00b2}
0x376c…3776 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00c8}
0x3776…3780 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00d2}
0x3780…37b0 Head {h00=0x002c, h01=0x0050, text=»* RESTORE REGISTERS AND RETURN WITHOUT«, t00=0x0023, t01=0x00dc}
0x37b0…37ce Head {h00=0x001a, h01=0x0050, text=»* ENABLE INTERRUPTS.«, t00=0x0023, t01=0x010c}
0x37ce…37d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x012a}
0x37d8…37e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0134}
0x37e2…37f8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0023, t01=0x013e}
0x37f8…3812 Head {h00=0x0016, h01=0x0050, text=»IHRET8 LDR* A8,A15«, t00=0x0023, t01=0x0154}
0x3812…382c Head {h00=0x0016, h01=0x0050, text=»IHRET7 LDR* A7,A15«, t00=0x0023, t01=0x016e}
0x382c…3846 Head {h00=0x0016, h01=0x0050, text=»IHRET6 LDR* A6,A15«, t00=0x0023, t01=0x0188}
0x3846…3860 Head {h00=0x0016, h01=0x0050, text=»IHRET5 LDR* A5,A15«, t00=0x0024, t01=0x0012}
0x3860…387a Head {h00=0x0016, h01=0x0050, text=»IHRET4 LDR* A4,A15«, t00=0x0024, t01=0x002c}
0x387a…3894 Head {h00=0x0016, h01=0x0050, text=»IHRET3 LDR* A3,A15«, t00=0x0024, t01=0x0046}
0x3894…38ae Head {h00=0x0016, h01=0x0050, text=»IHRET2 LDR* A2,A15«, t00=0x0024, t01=0x0060}
0x38ae…38c8 Head {h00=0x0016, h01=0x0050, text=»IHRET1 LDR* A1,A15«, t00=0x0024, t01=0x007a}
0x38c8…38da Head {h00=0x000e, h01=0x0050, text=»IHRTN INH «, t00=0x0024, t01=0x0094}
0x38da…3902 Head {h00=0x0024, h01=0x0050, text=» ADKL A15,4 ADJUST STACK POINTER«, t00=0x0024, t01=0x00a6}
0x3902…391e Head {h00=0x0018, h01=0x0050, text=» ABR* A15 AND RETURN«, t00=0x0024, t01=0x00ce}
0x391e…392a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00ea}
0x392a…3934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00f6}
0x3934…394a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0024, t01=0x0100}
0x394a…397e Head {h00=0x0030, h01=0x0050, text=»IHRET8 MLR 8,A15 RESTORE A1-A8 FROM STACK...«, t00=0x0024, t01=0x0116}
0x397e…399c Head {h00=0x001a, h01=0x0050, text=» RTN A15 ...AND RETURN«, t00=0x0024, t01=0x014a}
0x399c…39a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0168}
0x39a6…39da Head {h00=0x0030, h01=0x0050, text=»IHRET2 MLR 2,A15 RESTORE A1-A2 FROM STACK...«, t00=0x0024, t01=0x0172}
0x39da…39f8 Head {h00=0x001a, h01=0x0050, text=» RTN A15 ...AND RETURN«, t00=0x0025, t01=0x0016}
0x39f8…3a02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0034}
0x3a02…3a36 Head {h00=0x0030, h01=0x0050, text=»IHRET1 LDR* A1,A15 RESTORE A1 FROM STACK... «, t00=0x0025, t01=0x003e}
0x3a36…3a40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0072}
0x3a40…3a64 Head {h00=0x0020, h01=0x0050, text=»IHRTN RTN A15 ...AND RETURN «, t00=0x0025, t01=0x007c}
0x3a64…3a70 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00a0}
0x3a70…3a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ac}
0x3a7a…3a90 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0025, t01=0x00b6}
0x3a90…3a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00cc}
0x3a9a…3aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d6}
0x3aa4…3abc Head {h00=0x0014, h01=0x0050, text=»* P F I N I T «, t00=0x0025, t01=0x00e0}
0x3abc…3ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f8}
0x3ac6…3af0 Head {h00=0x0026, h01=0x0050, text=»* SUBROUTINE TO RESTART DEVICES.«, t00=0x0025, t01=0x0102}
0x3af0…3afa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x012c}
0x3afa…3b3e Head {h00=0x0040, h01=0x0050, text=»* ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALLED. «, t00=0x0025, t01=0x0136}
0x3b3e…3b82 Head {h00=0x0040, h01=0x0050, text=»* REGISTERS A1-A8 ARE AVAILABLE FOR THE RESTART ROUTINES. «, t00=0x0025, t01=0x017a}
0x3b82…3b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x002e}
0x3b8c…3b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0038}
0x3b96…3baa Head {h00=0x0010, h01=0x0050, text=»PFINIT EQU *«, t00=0x0026, t01=0x0042}
0x3baa…3bd6 Head {h00=0x0028, h01=0x0050, text=» LDK A1,2 SET INDEX TO FIRST ROUTINE«, t00=0x0026, t01=0x0056}
0x3bd6…3be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0082}
0x3be0…3c08 Head {h00=0x0024, h01=0x0050, text=»PFI100 CW A1,PFTAB CHECK IF LAST«, t00=0x0026, t01=0x008c}
0x3c08…3c2e Head {h00=0x0022, h01=0x0050, text=» RF(NL) PFI110 ALL RESTARTED? «, t00=0x0026, t01=0x00b4}
0x3c2e…3c4a Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x0026, t01=0x00da}
0x3c4a…3c56 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0026, t01=0x00f6}
0x3c56…3c84 Head {h00=0x002a, h01=0x0050, text=» CFI A15,PFTAB,A1 CALL RESTART MODULE «, t00=0x0026, t01=0x0102}
0x3c84…3ca4 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A15 RESTORE A1 «, t00=0x0026, t01=0x0130}
0x3ca4…3cc2 Head {h00=0x001a, h01=0x0050, text=» ADK A1,2 NEXT DEVICE «, t00=0x0026, t01=0x0150}
0x3cc2…3cd4 Head {h00=0x000e, h01=0x0050, text=» RB PFI100«, t00=0x0026, t01=0x016e}
0x3cd4…3cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0180}
0x3cde…3d0c Head {h00=0x002a, h01=0x0050, text=»PFI110 RTN A15 RETURN WHEN ALL STARTED«, t00=0x0026, t01=0x018a}
0x3d0c…3d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0028}
0x3d16…3d2c Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0027, t01=0x0032}
0x3d2c…3d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0048}
0x3d36…3d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0052}
0x3d40…3d56 Head {h00=0x0012, h01=0x0050, text=»* S W L 4 8 «, t00=0x0027, t01=0x005c}
0x3d56…3d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0072}
0x3d60…3d8a Head {h00=0x0026, h01=0x0050, text=»* SWITCH TO LEVEL 48 AND ENABLE.«, t00=0x0027, t01=0x007c}
0x3d8a…3d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00a6}
0x3d94…3d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b0}
0x3d9e…3db2 Head {h00=0x0010, h01=0x0050, text=»SWL48 EQU * «, t00=0x0027, t01=0x00ba}
0x3db2…3dce Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x0027, t01=0x00ce}
0x3dce…3dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ea}
0x3dd8…3dec Head {h00=0x0010, h01=0x0050, text=»SWL481 EQU *«, t00=0x0027, t01=0x00f4}
0x3dec…3e14 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,/C0C0 PSW FOR LEVEL 48 «, t00=0x0027, t01=0x0108}
0x3e14…3e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0130}
0x3e1e…3e32 Head {h00=0x0010, h01=0x0050, text=»SWL482 EQU *«, t00=0x0027, t01=0x013a}
0x3e32…3e5c Head {h00=0x0026, h01=0x0050, text=» ST A1,4,A15 SAVE IT ON A15 STACK «, t00=0x0027, t01=0x014e}
0x3e5c…3e7c Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A15 RESTORE A1 «, t00=0x0027, t01=0x0178}
0x3e7c…3e8c Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0028, t01=0x0008}
0x3e8c…3e96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0018}
0x3e96…3eac Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0028, t01=0x0022}
0x3eac…3eb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0038}
0x3eb6…3ec0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0042}
0x3ec0…3ed6 Head {h00=0x0012, h01=0x0050, text=»* S W L X Y «, t00=0x0028, t01=0x004c}
0x3ed6…3ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0062}
0x3ee0…3f0a Head {h00=0x0026, h01=0x0050, text=»* SWITCH TO LEVEL XY AND ENABLE.«, t00=0x0028, t01=0x006c}
0x3f0a…3f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0096}
0x3f14…3f46 Head {h00=0x002e, h01=0x0050, text=»* LEVEL := 48 IF LEVEL ON STACK IS >= 48«, t00=0x0028, t01=0x00a0}
0x3f46…3f7a Head {h00=0x0030, h01=0x0050, text=»* LEVEL := XY " " " " " XY < 48«, t00=0x0028, t01=0x00d2}
0x3f7a…3f84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0106}
0x3f84…3fc6 Head {h00=0x003e, h01=0x0050, text=»* THIS MODULE IS TO BE CALLED WITH 8 REGISTERS ON STACK.«, t00=0x0028, t01=0x0110}
0x3fc6…3fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0152}
0x3fd0…3fda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x015c}
0x3fda…3fee Head {h00=0x0010, h01=0x0050, text=»SWLXY EQU * «, t00=0x0028, t01=0x0166}
0x3fee…400a Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x0028, t01=0x017a}
0x400a…4034 Head {h00=0x0026, h01=0x0050, text=» LC A1,24,A15 GET LEVEL FROM STACK«, t00=0x0029, t01=0x0008}
0x4034…4048 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FC «, t00=0x0029, t01=0x0032}
0x4048…405c Head {h00=0x0010, h01=0x0050, text=» SUK A1,/BC «, t00=0x0029, t01=0x0046}
0x405c…4072 Head {h00=0x0012, h01=0x0050, text=» RB(G) SWL481 «, t00=0x0029, t01=0x005a}
0x4072…4088 Head {h00=0x0012, h01=0x0050, text=» LD A1,24,A15 «, t00=0x0029, t01=0x0070}
0x4088…40ae Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/FFFE SYSTEM MODE BIT«, t00=0x0029, t01=0x0086}
0x40ae…40c0 Head {h00=0x000e, h01=0x0050, text=» RB SWL482«, t00=0x0029, t01=0x00ac}
0x40c0…40ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00be}
0x40ca…40e0 Head {h00=0x0012, h01=0x0050, text=» EJECT MSUBS«, t00=0x0029, t01=0x00c8}
0x40e0…40ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00de}
0x40ea…40f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e8}
0x40f4…411e Head {h00=0x0026, h01=0x0050, text=»* INTERRUPT SAVE AND HALT MODULE«, t00=0x0029, t01=0x00f2}
0x411e…4128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x011c}
0x4128…4132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0126}
0x4132…4148 Head {h00=0x0012, h01=0x0050, text=»INTSAV DATA 0 «, t00=0x0029, t01=0x0130}
0x4148…415e Head {h00=0x0012, h01=0x0050, text=»SAVA15 DATA 0 «, t00=0x0029, t01=0x0146}
0x415e…4168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x015c}
0x4168…418e Head {h00=0x0022, h01=0x0050, text=»ILLINT LDK A1,5 HALT PARAMETER«, t00=0x0029, t01=0x0166}
0x418e…41a2 Head {h00=0x0010, h01=0x0050, text=» CF A15,HALT«, t00=0x0029, t01=0x018c}
0x41a2…41ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0010}
0x41ac…41be Head {h00=0x000e, h01=0x0050, text=»HALT EQU *«, t00=0x002a, t01=0x001a}
0x41be…41d4 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002a, t01=0x002c}
0x41d4…41fe Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x002a, t01=0x0042}
0x41fe…4226 Head {h00=0x0024, h01=0x0050, text=» STR A9,A15 SAVE A9-A14 ON STACK«, t00=0x002a, t01=0x006c}
0x4226…423a Head {h00=0x0010, h01=0x0050, text=» STR A10,A15«, t00=0x002a, t01=0x0094}
0x423a…424e Head {h00=0x0010, h01=0x0050, text=» STR A11,A15«, t00=0x002a, t01=0x00a8}
0x424e…4262 Head {h00=0x0010, h01=0x0050, text=» STR A12,A15«, t00=0x002a, t01=0x00bc}
0x4262…4276 Head {h00=0x0010, h01=0x0050, text=» STR A13,A15«, t00=0x002a, t01=0x00d0}
0x4276…428a Head {h00=0x0010, h01=0x0050, text=» STR A14,A15«, t00=0x002a, t01=0x00e4}
0x428a…4296 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00f8}
0x4296…42a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0104}
0x42a0…42b6 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002a, t01=0x010e}
0x42b6…42de Head {h00=0x0024, h01=0x0050, text=» MSR 14,A15 SAVE A1-A14 ON STACK«, t00=0x002a, t01=0x0124}
0x42de…42ea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x014c}
0x42ea…42f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0158}
0x42f4…430a Head {h00=0x0012, h01=0x0050, text=» ST A15,SAVA15«, t00=0x002a, t01=0x0162}
0x430a…4336 Head {h00=0x0028, h01=0x0050, text=» OTR A1,0,SOP INDICATE TYPE OF HALT «, t00=0x002a, t01=0x0178}
0x4336…4342 Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x002b, t01=0x0014}
0x4342…434c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0020}
0x434c…4356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x002a}
0x4356…4360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0034}
0x4360…436c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002b, t01=0x003e}
0x436c…4370 Head {h00=0x4004, h01=0x0000}
0x4370…4374 00 2b 00 4a ┆ + J┆
0x4374…437c (44, 1, 8) 20 04 00 00 00 2c 00 04 ┆ , ┆