|
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: 7656 (0x1de8)
Notes: pts_type(SC)
Names: »TMMLKM.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/TMMLKM.SC«
IDENT TMMLKM REL 10.0 80-03-14 870105041000 * * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TMMLKM = TOSS MMU LKM PROCESSORS * * * * ************************************************** * * * THIS MODULE CONTAINS THE FOLLOWING * TOSS MMU LKM PROCESSORS: * * - TCHPAG = CHANGE MMU PAGE * * - TCHMMU = CHANGE MMU TABLE * * - TLUSEG = LOCK/UNLOCK SEGMENT * * EJECT TMMLKM * * *********** * ENTRIES * *********** * * ENTRY TCHPAG CHANGE MMU PAGE ENTRY TCHMMU CHANGE MMU TABLE ENTRY TLUSEG LOCK/UNLOCK SEGMENT EJECT TMMLKM * * ************* * EXTERNALS * ************* * * EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID EXTRN RELPAG RELEASE PAGE EXTRN LKMQDI QUEUE TASK FOR DISPATCHING EXTRN LKMRQE LKM REQUEST ERROR EXTRN TTB:MT MMU TABLE DISPLACEMENT IN TTAB EXTRN TTB:SP SEGMENT TABLE ADDRESS EXTRN SEG:NS NUMBER OF SEGMENTS EJECT TMMLKM * * ********** * TCHPAG * ********** * * * THIS IS THE CHANGE MMU PAGE LKM PROCESSOR. * * TCHPAG WILL CHANGE THE LOGICAL ADDRESSING SPACE OF A TASK. * ONLY ONE PHYSICAL PAGE (4 KB) CAN BE CHANGED AT A TIME. * * IT IS ENTERED FROM THE LKM HANDLER * WITH THE FOLLOWING PARAMETERS: * * A5 = TTAB ADDRESS * A7 = PAGE TO BE CHANGED, 0 - 15 * A8 = NEW LOCATION OF PAGE, 0 - 63 * * IT RETURNS TO CALLING TASK WITH A7 AND A8 UNCHANGED. * TCHPAG EQU * CHANGE MMU PAGE ANK A7,/F SKIP IRRELEVANT BITS (IF ANY) ADR A7,A7 ADJUST FOR INDEXING IN MMU TABLE ADR A7,A5 ADD TTAB ADDRESS LDR A2,A8 NEW PAGE LOCATION ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) SLL A2,2 SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE * T:DISP ABL LKMQDI QUEUE TASK FOR DISPATCHING * EJECT TMMLKM * * ********** * TCHMMU * ********** * * * THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. * * TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK * TO THE MMU TABLE CONTENTS OF SPECIFIED TASK. * * IT IS ENTERED FROM THE LKM HANDLER * WITH THE FOLLOWING PARAMETERS: * * A5 = TTAB ADDRESS * A7 = TASK IDENTIFICATION OF SEARCHED TASK * * IT RETURNS TO CALLING TASK WITH * THE FOLLOWING PARAMETER: * * A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE * A7 = -1 IF TASK NOT IN SYSTEM * TCHMMU EQU * CHANGE MMU TABLE CF A15,FNDTID GET TTAB ADDRESS TO A2 ADK A2,0 SET CR RF(Z) TLCERR TTAB NOT FOUND TL TTB:MT,A2 LOAD SEARCHED MMU TABLE CONTENTS TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK RB T:DISP QUEUE TASK FOR DISPATCHING * EJECT TMMLKM * * ********** * TLUSEG * ********** * * * THIS IS THE LOCK/UNLOCK SEGMENT LKM PROCESSOR. * * THE LOCK SEGMENT REQUEST WILL MAKE A SEGMENT CORE RESIDENT, * UNTIL AN UNLOCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. * * IT IS ENTERED FROM THE LKM HANDLER * WITH THE FOLLOWING PARAMETERS: * * A5 = TTAB ADDRESS * A7 = SEGMENT NUMBER * A8 = 0 IF LOCK SEGMENT REQUEST * = 1 IF UNLOCK SEGMENT REQUEST * * IT RETURNS TO CALLING TASK WITH * THE FOLLOWING PARAMETERS: * * A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE * A7 = -1 IF REQUEST ERROR * * EJECT TMMLKM * * TLUSEG EQU * LOCK/UNLOCK SEGMENT LD A4,TTB:SP,A5 SEGTAB ADDRESS LDR A3,A7 CHECK IF SEGMENT NUMBER < 0 RF(NP) TLCERR REQUEST ERROR CW A3,SEG:NS,A4 CHECK IF SEGMENT NUMBER TOO BIG RF(NG) TLUS00 OK * TLCERR EQU * ABL LKMRQE BRANCH TO LKM REQUEST ERROR * TLUS00 EQU * SLL A3,3 ADJUST FOR INDEXING IN SEGTAB ADR A3,A4 ADD SEGTAB ADDRESS LCR A4,A3 GET SEGMENT STATUS ANK A4,/8 RB(NZ) TLCERR CORE RESIDENT * LDKL A4,/200 LDR A8,A8 CHECK WHAT REQUEST IT IS RF(NZ) TLUS10 UNLOCK SEGMENT * EJECT TMMLKM * * LOCK SEGMENT * ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT RB T:DISP * * UNLOCK SEGMENT * TLUS10 EQU * C1R A4,A4 A4 := /FDFF ANRS A4,A3 INDICATE SEGMENT NOT CORE RESIDENT CF A15,RELPAG RELEASE PAGE RB T:DISP * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT TMMLKM REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…008c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0056}
0x008c…0096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00be Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x009a}
0x00be…00c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c2}
0x00c8…00f4 Head {h00=0x0028, h01=0x0050, text=»* TMMLKM = TOSS MMU LKM PROCESSORS«, t00=0x0000, t01=0x00cc}
0x00f4…00fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…0108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0102}
0x0108…0112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010c}
0x0112…011c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0116}
0x011c…0156 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0120}
0x0156…0160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…016a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0164}
0x016a…0198 Head {h00=0x002a, h01=0x0050, text=»* THIS MODULE CONTAINS THE FOLLOWING«, t00=0x0000, t01=0x016e}
0x0198…01bc Head {h00=0x0020, h01=0x0050, text=»* TOSS MMU LKM PROCESSORS:«, t00=0x0001, t01=0x000c}
0x01bc…01c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0030}
0x01c6…01ec Head {h00=0x0022, h01=0x0050, text=»* - TCHPAG = CHANGE MMU PAGE«, t00=0x0001, t01=0x003a}
0x01ec…01f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0060}
0x01f6…021e Head {h00=0x0024, h01=0x0050, text=»* - TCHMMU = CHANGE MMU TABLE «, t00=0x0001, t01=0x006a}
0x021e…0228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0092}
0x0228…0252 Head {h00=0x0026, h01=0x0050, text=»* - TLUSEG = LOCK/UNLOCK SEGMENT«, t00=0x0001, t01=0x009c}
0x0252…025c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c6}
0x025c…0266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d0}
0x0266…027e Head {h00=0x0014, h01=0x0050, text=» EJECT TMMLKM «, t00=0x0001, t01=0x00da}
0x027e…0288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f2}
0x0288…0292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fc}
0x0292…02a6 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x0106}
0x02a6…02ba Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x011a}
0x02ba…02ce Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x012e}
0x02ce…02d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0142}
0x02d8…02e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014c}
0x02e2…0308 Head {h00=0x0022, h01=0x0050, text=» ENTRY TCHPAG CHANGE MMU PAGE «, t00=0x0001, t01=0x0156}
0x0308…032e Head {h00=0x0022, h01=0x0050, text=» ENTRY TCHMMU CHANGE MMU TABLE«, t00=0x0001, t01=0x017c}
0x032e…0358 Head {h00=0x0026, h01=0x0050, text=» ENTRY TLUSEG LOCK/UNLOCK SEGMENT «, t00=0x0002, t01=0x0012}
0x0358…0370 Head {h00=0x0014, h01=0x0050, text=» EJECT TMMLKM «, t00=0x0002, t01=0x003c}
0x0370…037a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0054}
0x037a…0384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005e}
0x0384…039a Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x0068}
0x039a…03b0 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0002, t01=0x007e}
0x03b0…03c6 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x0094}
0x03c6…03d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00aa}
0x03d0…03da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b4}
0x03da…040e Head {h00=0x0030, h01=0x0050, text=» EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID«, t00=0x0002, t01=0x00be}
0x040e…0430 Head {h00=0x001e, h01=0x0050, text=» EXTRN RELPAG RELEASE PAGE«, t00=0x0002, t01=0x00f2}
0x0430…0460 Head {h00=0x002c, h01=0x0050, text=» EXTRN LKMQDI QUEUE TASK FOR DISPATCHING«, t00=0x0002, t01=0x0114}
0x0460…0488 Head {h00=0x0024, h01=0x0050, text=» EXTRN LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x0144}
0x0488…04bc Head {h00=0x0030, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE DISPLACEMENT IN TTAB«, t00=0x0002, t01=0x016c}
0x04bc…04e8 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SP SEGMENT TABLE ADDRESS «, t00=0x0003, t01=0x0010}
0x04e8…0510 Head {h00=0x0024, h01=0x0050, text=» EXTRN SEG:NS NUMBER OF SEGMENTS«, t00=0x0003, t01=0x003c}
0x0510…0528 Head {h00=0x0014, h01=0x0050, text=» EJECT TMMLKM «, t00=0x0003, t01=0x0064}
0x0528…0532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007c}
0x0532…053c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0086}
0x053c…054e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0003, t01=0x0090}
0x054e…0560 Head {h00=0x000e, h01=0x0050, text=»* TCHPAG *«, t00=0x0003, t01=0x00a2}
0x0560…0572 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0003, t01=0x00b4}
0x0572…057c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c6}
0x057c…0586 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d0}
0x0586…05bc Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE CHANGE MMU PAGE LKM PROCESSOR.«, t00=0x0003, t01=0x00da}
0x05bc…05c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0110}
0x05c6…060c Head {h00=0x0042, h01=0x0050, text=»* TCHPAG WILL CHANGE THE LOGICAL ADDRESSING SPACE OF A TASK.«, t00=0x0003, t01=0x011a}
0x060c…0650 Head {h00=0x0040, h01=0x0050, text=»* ONLY ONE PHYSICAL PAGE (4 KB) CAN BE CHANGED AT A TIME. «, t00=0x0003, t01=0x0160}
0x0650…065a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0014}
0x065a…0688 Head {h00=0x002a, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0004, t01=0x001e}
0x0688…06b2 Head {h00=0x0026, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS:«, t00=0x0004, t01=0x004c}
0x06b2…06bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0076}
0x06bc…06da Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0004, t01=0x0080}
0x06da…0706 Head {h00=0x0028, h01=0x0050, text=»* A7 = PAGE TO BE CHANGED, 0 - 15 «, t00=0x0004, t01=0x009e}
0x0706…0734 Head {h00=0x002a, h01=0x0050, text=»* A8 = NEW LOCATION OF PAGE, 0 - 63 «, t00=0x0004, t01=0x00ca}
0x0734…073e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f8}
0x073e…077e Head {h00=0x003c, h01=0x0050, text=»* IT RETURNS TO CALLING TASK WITH A7 AND A8 UNCHANGED.«, t00=0x0004, t01=0x0102}
0x077e…0788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0142}
0x0788…07ac Head {h00=0x0020, h01=0x0050, text=»TCHPAG EQU * CHANGE MMU PAGE«, t00=0x0004, t01=0x014c}
0x07ac…07dc Head {h00=0x002c, h01=0x0050, text=» ANK A7,/F SKIP IRRELEVANT BITS (IF ANY)«, t00=0x0004, t01=0x0170}
0x07dc…0810 Head {h00=0x0030, h01=0x0050, text=» ADR A7,A7 ADJUST FOR INDEXING IN MMU TABLE «, t00=0x0005, t01=0x0010}
0x0810…0834 Head {h00=0x0020, h01=0x0050, text=» ADR A7,A5 ADD TTAB ADDRESS «, t00=0x0005, t01=0x0044}
0x0834…0858 Head {h00=0x0020, h01=0x0050, text=» LDR A2,A8 NEW PAGE LOCATION«, t00=0x0005, t01=0x0068}
0x0858…088a Head {h00=0x002e, h01=0x0050, text=» ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) «, t00=0x0005, t01=0x008c}
0x088a…089c Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0005, t01=0x00be}
0x089c…08dc Head {h00=0x003c, h01=0x0050, text=» SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE«, t00=0x0005, t01=0x00d0}
0x08dc…08e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0110}
0x08e6…091a Head {h00=0x0030, h01=0x0050, text=»T:DISP ABL LKMQDI QUEUE TASK FOR DISPATCHING«, t00=0x0005, t01=0x011a}
0x091a…0924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x014e}
0x0924…093c Head {h00=0x0014, h01=0x0050, text=» EJECT TMMLKM «, t00=0x0005, t01=0x0158}
0x093c…0946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0170}
0x0946…0950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017a}
0x0950…0962 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0005, t01=0x0184}
0x0962…0974 Head {h00=0x000e, h01=0x0050, text=»* TCHMMU *«, t00=0x0006, t01=0x0008}
0x0974…0986 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0006, t01=0x001a}
0x0986…0990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x002c}
0x0990…099a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0036}
0x099a…09d2 Head {h00=0x0034, h01=0x0050, text=»* THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. «, t00=0x0006, t01=0x0040}
0x09d2…09dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0078}
0x09dc…0a24 Head {h00=0x0044, h01=0x0050, text=»* TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK«, t00=0x0006, t01=0x0082}
0x0a24…0a5c Head {h00=0x0034, h01=0x0050, text=»* TO THE MMU TABLE CONTENTS OF SPECIFIED TASK.«, t00=0x0006, t01=0x00ca}
0x0a5c…0a66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0102}
0x0a66…0a94 Head {h00=0x002a, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0006, t01=0x010c}
0x0a94…0abe Head {h00=0x0026, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS:«, t00=0x0006, t01=0x013a}
0x0abe…0ac8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0164}
0x0ac8…0ae6 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0006, t01=0x016e}
0x0ae6…0b1c Head {h00=0x0032, h01=0x0050, text=»* A7 = TASK IDENTIFICATION OF SEARCHED TASK «, t00=0x0006, t01=0x018c}
0x0b1c…0b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0032}
0x0b26…0b52 Head {h00=0x0028, h01=0x0050, text=»* IT RETURNS TO CALLING TASK WITH «, t00=0x0007, t01=0x003c}
0x0b52…0b76 Head {h00=0x0020, h01=0x0050, text=»* THE FOLLOWING PARAMETER:«, t00=0x0007, t01=0x0068}
0x0b76…0b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008c}
0x0b80…0bb6 Head {h00=0x0032, h01=0x0050, text=»* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE«, t00=0x0007, t01=0x0096}
0x0bb6…0be0 Head {h00=0x0026, h01=0x0050, text=»* A7 = -1 IF TASK NOT IN SYSTEM «, t00=0x0007, t01=0x00cc}
0x0be0…0bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f6}
0x0bea…0c10 Head {h00=0x0022, h01=0x0050, text=»TCHMMU EQU * CHANGE MMU TABLE «, t00=0x0007, t01=0x0100}
0x0c10…0c3e Head {h00=0x002a, h01=0x0050, text=» CF A15,FNDTID GET TTAB ADDRESS TO A2 «, t00=0x0007, t01=0x0126}
0x0c3e…0c56 Head {h00=0x0014, h01=0x0050, text=» ADK A2,0 SET CR«, t00=0x0007, t01=0x0154}
0x0c56…0c7a Head {h00=0x0020, h01=0x0050, text=» RF(Z) TLCERR TTAB NOT FOUND«, t00=0x0007, t01=0x016c}
0x0c7a…0cb0 Head {h00=0x0032, h01=0x0050, text=» TL TTB:MT,A2 LOAD SEARCHED MMU TABLE CONTENTS«, t00=0x0007, t01=0x0190}
0x0cb0…0ce8 Head {h00=0x0034, h01=0x0050, text=» TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK«, t00=0x0008, t01=0x0036}
0x0ce8…0d16 Head {h00=0x002a, h01=0x0050, text=» RB T:DISP QUEUE TASK FOR DISPATCHING «, t00=0x0008, t01=0x006e}
0x0d16…0d20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009c}
0x0d20…0d38 Head {h00=0x0014, h01=0x0050, text=» EJECT TMMLKM «, t00=0x0008, t01=0x00a6}
0x0d38…0d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00be}
0x0d42…0d4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c8}
0x0d4c…0d5e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x00d2}
0x0d5e…0d70 Head {h00=0x000e, h01=0x0050, text=»* TLUSEG *«, t00=0x0008, t01=0x00e4}
0x0d70…0d82 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x00f6}
0x0d82…0d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0108}
0x0d8c…0d96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0112}
0x0d96…0dd0 Head {h00=0x0036, h01=0x0050, text=»* THIS IS THE LOCK/UNLOCK SEGMENT LKM PROCESSOR.«, t00=0x0008, t01=0x011c}
0x0dd0…0dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0156}
0x0dda…0e22 Head {h00=0x0044, h01=0x0050, text=»* THE LOCK SEGMENT REQUEST WILL MAKE A SEGMENT CORE RESIDENT, «, t00=0x0008, t01=0x0160}
0x0e22…0e6a Head {h00=0x0044, h01=0x0050, text=»* UNTIL AN UNLOCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. «, t00=0x0009, t01=0x0018}
0x0e6a…0e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0060}
0x0e74…0ea2 Head {h00=0x002a, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0009, t01=0x006a}
0x0ea2…0ecc Head {h00=0x0026, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS:«, t00=0x0009, t01=0x0098}
0x0ecc…0ed6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c2}
0x0ed6…0ef4 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0009, t01=0x00cc}
0x0ef4…0f14 Head {h00=0x001c, h01=0x0050, text=»* A7 = SEGMENT NUMBER «, t00=0x0009, t01=0x00ea}
0x0f14…0f3e Head {h00=0x0026, h01=0x0050, text=»* A8 = 0 IF LOCK SEGMENT REQUEST«, t00=0x0009, t01=0x010a}
0x0f3e…0f6a Head {h00=0x0028, h01=0x0050, text=»* = 1 IF UNLOCK SEGMENT REQUEST«, t00=0x0009, t01=0x0134}
0x0f6a…0f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0160}
0x0f74…0fa0 Head {h00=0x0028, h01=0x0050, text=»* IT RETURNS TO CALLING TASK WITH «, t00=0x0009, t01=0x016a}
0x0fa0…0fc6 Head {h00=0x0022, h01=0x0050, text=»* THE FOLLOWING PARAMETERS: «, t00=0x000a, t01=0x0008}
0x0fc6…0fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002e}
0x0fd0…1006 Head {h00=0x0032, h01=0x0050, text=»* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE«, t00=0x000a, t01=0x0038}
0x1006…102a Head {h00=0x0020, h01=0x0050, text=»* A7 = -1 IF REQUEST ERROR«, t00=0x000a, t01=0x006e}
0x102a…1034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0092}
0x1034…103e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009c}
0x103e…1056 Head {h00=0x0014, h01=0x0050, text=» EJECT TMMLKM «, t00=0x000a, t01=0x00a6}
0x1056…1060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00be}
0x1060…106a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c8}
0x106a…1092 Head {h00=0x0024, h01=0x0050, text=»TLUSEG EQU * LOCK/UNLOCK SEGMENT«, t00=0x000a, t01=0x00d2}
0x1092…10ba Head {h00=0x0024, h01=0x0050, text=» LD A4,TTB:SP,A5 SEGTAB ADDRESS «, t00=0x000a, t01=0x00fa}
0x10ba…10e8 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A7 CHECK IF SEGMENT NUMBER < 0«, t00=0x000a, t01=0x0122}
0x10e8…110c Head {h00=0x0020, h01=0x0050, text=» RF(NP) TLCERR REQUEST ERROR«, t00=0x000a, t01=0x0150}
0x110c…1144 Head {h00=0x0034, h01=0x0050, text=» CW A3,SEG:NS,A4 CHECK IF SEGMENT NUMBER TOO BIG«, t00=0x000a, t01=0x0174}
0x1144…115e Head {h00=0x0016, h01=0x0050, text=» RF(NG) TLUS00 OK «, t00=0x000b, t01=0x001c}
0x115e…1168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0036}
0x1168…117c Head {h00=0x0010, h01=0x0050, text=»TLCERR EQU *«, t00=0x000b, t01=0x0040}
0x117c…11ac Head {h00=0x002c, h01=0x0050, text=» ABL LKMRQE BRANCH TO LKM REQUEST ERROR «, t00=0x000b, t01=0x0054}
0x11ac…11b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0084}
0x11b6…11ca Head {h00=0x0010, h01=0x0050, text=»TLUS00 EQU *«, t00=0x000b, t01=0x008e}
0x11ca…11fa Head {h00=0x002c, h01=0x0050, text=» SLL A3,3 ADJUST FOR INDEXING IN SEGTAB «, t00=0x000b, t01=0x00a2}
0x11fa…1220 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A4 ADD SEGTAB ADDRESS «, t00=0x000b, t01=0x00d2}
0x1220…1246 Head {h00=0x0022, h01=0x0050, text=» LCR A4,A3 GET SEGMENT STATUS «, t00=0x000b, t01=0x00f8}
0x1246…1258 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/8«, t00=0x000b, t01=0x011e}
0x1258…127c Head {h00=0x0020, h01=0x0050, text=» RB(NZ) TLCERR CORE RESIDENT«, t00=0x000b, t01=0x0130}
0x127c…1286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0154}
0x1286…129c Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/200 «, t00=0x000b, t01=0x015e}
0x129c…12c8 Head {h00=0x0028, h01=0x0050, text=» LDR A8,A8 CHECK WHAT REQUEST IT IS «, t00=0x000b, t01=0x0174}
0x12c8…12ee Head {h00=0x0022, h01=0x0050, text=» RF(NZ) TLUS10 UNLOCK SEGMENT «, t00=0x000c, t01=0x0010}
0x12ee…12f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0036}
0x12f8…1310 Head {h00=0x0014, h01=0x0050, text=» EJECT TMMLKM «, t00=0x000c, t01=0x0040}
0x1310…131a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0058}
0x131a…1330 Head {h00=0x0012, h01=0x0050, text=»* LOCK SEGMENT«, t00=0x000c, t01=0x0062}
0x1330…133a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0078}
0x133a…1372 Head {h00=0x0034, h01=0x0050, text=» ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT«, t00=0x000c, t01=0x0082}
0x1372…1384 Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x000c, t01=0x00ba}
0x1384…138e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00cc}
0x138e…13a6 Head {h00=0x0014, h01=0x0050, text=»* UNLOCK SEGMENT«, t00=0x000c, t01=0x00d6}
0x13a6…13b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ee}
0x13b0…13c4 Head {h00=0x0010, h01=0x0050, text=»TLUS10 EQU *«, t00=0x000c, t01=0x00f8}
0x13c4…13e2 Head {h00=0x001a, h01=0x0050, text=» C1R A4,A4 A4 := /FDFF«, t00=0x000c, t01=0x010c}
0x13e2…1418 Head {h00=0x0032, h01=0x0050, text=» ANRS A4,A3 INDICATE SEGMENT NOT CORE RESIDENT«, t00=0x000c, t01=0x012a}
0x1418…143c Head {h00=0x0020, h01=0x0050, text=» CF A15,RELPAG RELEASE PAGE «, t00=0x000c, t01=0x0160}
0x143c…144e Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x000c, t01=0x0184}
0x144e…1458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0008}
0x1458…1462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0012}
0x1462…146c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001c}
0x146c…1478 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x000d, t01=0x0026}
0x1478…147c Head {h00=0x4004, h01=0x0000}
0x147c…1480 00 0d 00 32 ┆ 2┆
0x1480…1488 (14, 1, 8) 20 04 00 00 00 0e 00 04 ┆ ┆
0x1488…14d8 (15, 0, 400) 00 6e 01 8a 00 12 00 50 5c 49 46 46 20 43 52 45 44 49 54 3d 30 20 00 6f 00 08 00 0e 00 50 5c 52 42 5c 41 4c 4c 42 31 30 00 6f 00 1e 00 08 00 50 5c 5c 5c 5c 00 6f 00 30 00 2c 00 50 2a 20 52 45 53 45 52 56 45 20 53 54 41 43 4b 20 41 4e 44 20 ┆ n P IFF CREDIT=0 o P RB ALLB10 o P o 0 , P* RESERVE STACK AND ┆
0x14d8…1528 53 45 54 20 53 54 41 43 4b 50 4f 49 4e 54 45 52 53 20 2a 20 00 6f 00 3c 00 04 00 50 00 6f 00 6c 00 10 00 50 41 4c 4c 42 37 30 5c 45 51 55 5c 2a 00 6f 00 74 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2d 4d 4d 55 50 41 47 3d 31 00 6f 00 88 ┆SET STACKPOINTERS * o < P o l PALLB70 EQU * o t P IFT CREDIT-MMUPAG=1 o ┆
0x1528…1578 00 20 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 38 5c 47 45 54 20 54 3a 41 2d 41 44 44 52 45 53 53 20 00 6f 00 a4 00 16 00 50 5c 4c 44 5c 41 34 2c 4c 53 54 41 44 52 2c 41 31 33 20 00 6f 00 c8 00 0e 00 50 5c 53 55 4b 5c 41 34 2c 32 20 00 6f 00 e2 ┆ P LDR* A1,A8 GET T:A-ADDRESS o P LD A4,LSTADR,A13 o P SUK A4,2 o ┆
0x1578…15c8 00 20 00 50 5c 4c 44 5c 41 33 2c 43 53 45 2c 41 31 5c 47 45 54 20 53 54 41 43 4b 20 53 49 5a 45 00 6f 00 f4 00 12 00 50 5c 52 46 28 4e 5a 29 5c 41 4c 4c 42 38 30 00 6f 01 18 00 24 00 50 5c 4c 44 4b 5c 41 33 2c 53 54 4b 53 5a 5c 44 45 46 41 ┆ P LD A3,CSE,A1 GET STACK SIZE o P RF(NZ) ALLB80 o $ P LDK A3,STKSZ DEFA┆
0x15c8…1618 55 4c 54 20 53 54 41 43 4b 53 49 5a 45 20 00 6f 01 2e 00 10 00 50 41 4c 4c 42 38 30 5c 45 51 55 5c 2a 00 6f 01 56 00 20 00 50 5c 53 54 5c 41 34 2c 53 54 4b 42 2c 41 31 5c 53 45 54 20 53 54 41 43 4b 42 41 53 45 00 6f 01 6a 00 1c 00 50 5c 53 ┆ULT STACKSIZE o . PALLB80 EQU * o V P ST A4,STKB,A1 SET STACKBASE o j P S┆
0x1618…1668 (16, 0, 400) 54 52 5c 41 34 2c 41 31 5c 53 54 41 43 4b 20 50 4f 49 4e 54 45 52 00 6f 01 8e 00 20 00 50 5c 43 41 4c 4c 5c 4d 4f 56 49 4e 47 5c 41 4c 4c 4f 43 41 54 45 20 53 54 41 43 4b 20 00 70 00 1e 00 20 00 50 5c 53 54 5c 41 32 2c 53 54 4b 45 2c 41 31 ┆TR A4,A1 STACK POINTER o P CALL MOVING ALLOCATE STACK p P ST A2,STKE,A1┆
0x1668…16b8 5c 53 45 54 20 53 54 41 43 4b 2d 45 4e 44 00 70 00 42 00 08 00 50 5c 58 49 46 00 70 00 66 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2b 4d 4d 55 50 41 47 3d 32 00 70 00 72 00 1e 00 50 5c 45 4c 52 5c 41 31 2c 41 38 5c 47 45 54 20 54 3a 41 ┆ SET STACK-END p B P XIF p f P IFT CREDIT+MMUPAG=2 p r P ELR A1,A8 GET T:A┆
0x16b8…1708 2d 41 44 44 52 45 53 53 00 70 00 8e 00 20 00 50 5c 45 4c 5c 41 33 2c 43 53 45 2c 41 31 5c 47 45 54 20 53 54 41 43 4b 20 53 49 5a 45 00 70 00 b0 00 2a 00 50 5c 52 46 28 4e 5a 29 5c 41 4c 4c 42 38 30 5c 55 53 45 52 20 44 45 46 49 4e 45 44 20 ┆-ADDRESS p P EL A3,CSE,A1 GET STACK SIZE p * P RF(NZ) ALLB80 USER DEFINED ┆
0x1708…1758 53 54 41 43 4b 20 53 49 5a 45 00 70 00 d4 00 24 00 50 5c 4c 44 4b 5c 41 33 2c 53 54 4b 53 5a 5c 44 45 46 41 55 4c 54 20 53 54 41 43 4b 20 53 49 5a 45 00 70 01 02 00 28 00 50 41 4c 4c 42 38 30 5c 45 53 5c 41 33 2c 53 54 4b 42 2c 41 31 5c 53 ┆STACK SIZE p $ P LDK A3,STKSZ DEFAULT STACK SIZE p ( PALLB80 ES A3,STKB,A1 S┆
0x1758…17a8 41 56 45 20 53 54 41 43 4b 20 53 49 5a 45 00 70 01 2a 00 20 00 50 5c 43 41 4c 4c 5c 4d 4f 56 49 4e 47 5c 41 4c 4c 4f 43 41 54 45 20 53 54 41 43 4b 20 00 70 01 56 00 22 00 50 5c 45 53 5c 41 32 2c 53 54 4b 45 2c 41 31 5c 53 54 4f 52 45 20 53 ┆AVE STACK SIZE p * P CALL MOVING ALLOCATE STACK p V " P ES A2,STKE,A1 STORE S┆
0x17a8…17f8 (17, 0, 400) 54 41 43 4b 20 45 4e 44 00 70 01 7a 00 22 00 50 5c 45 4c 5c 41 33 2c 53 54 4b 42 2c 41 31 5c 47 45 54 20 53 54 41 43 4b 20 53 49 5a 45 20 00 71 00 10 00 22 00 50 5c 41 44 52 5c 41 32 2c 41 33 5c 43 4f 4d 50 55 54 45 20 53 54 41 43 4b 20 42 ┆TACK END p z " P EL A3,STKB,A1 GET STACK SIZE q " P ADR A2,A3 COMPUTE STACK B┆
0x17f8…1848 41 53 45 20 00 71 00 36 00 24 00 50 5c 45 53 5c 41 32 2c 53 54 4b 42 2c 41 31 5c 53 54 4f 52 45 20 53 54 41 43 4b 20 42 41 53 45 20 00 71 00 5c 00 2a 00 50 5c 45 53 52 5c 41 32 2c 41 31 5c 53 54 4f 52 45 20 43 55 52 52 45 4e 54 20 53 54 41 ┆ASE q 6 $ P ES A2,STKB,A1 STORE STACK BASE q * P ESR A2,A1 STORE CURRENT STA┆
0x1848…1898 43 4b 20 50 4f 49 4e 54 45 52 00 71 00 84 00 08 00 50 5c 58 49 46 00 71 00 b2 00 12 00 50 5c 49 46 46 20 43 52 45 44 49 54 3d 30 20 00 71 00 be 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 71 00 d4 00 0a 00 50 5c 45 4a 45 43 54 00 71 00 e4 00 04 ┆CK POINTER q P XIF q P IFF CREDIT=0 q P RTN A14 q P EJECT q ┆
0x1898…18e8 00 50 00 71 00 f2 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 20 4f 20 56 20 54 20 3a 20 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 71 00 fa 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P q 4 P** M O V T : A ** q 4 P** ┆
0x18e8…1938 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 71 01 32 00 34 00 50 2a 2a 20 20 4d 4f 56 45 20 54 3a 41 20 41 4e 44 20 55 50 44 41 54 45 20 44 41 54 41 20 53 45 54 20 41 44 44 52 45 ┆ ** q 2 4 P** MOVE T:A AND UPDATE DATA SET ADDRE┆
0x1938…1988 (18, 0, 400) 53 53 45 53 20 49 4e 20 2a 2a 00 71 01 6a 00 34 00 50 2a 2a 20 20 46 4f 52 4d 41 54 20 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 72 00 12 00 34 00 50 2a 2a 20 20 20 20 ┆SSES IN ** q j 4 P** FORMAT CONTROL BLOCK ** r 4 P** ┆
0x1988…19d8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 72 00 4a 00 34 00 50 2a 2a 20 20 49 4e 50 55 54 20 3a 20 41 38 3d 54 3a 41 2d 41 44 44 52 45 53 53 20 20 20 20 ┆ ** r J 4 P** INPUT : A8=T:A-ADDRESS ┆
0x19d8…1a28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 72 00 82 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 41 31 32 3d 54 3a 44 2d 41 44 44 52 45 53 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 72 00 ba 00 34 ┆ ** r 4 P** A12=T:D-ADDRESS ** r 4┆
0x1a28…1a78 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 43 49 41 20 28 49 4e 20 54 3a 41 29 3d 44 49 53 4c 2e 20 54 4f 20 54 3a 41 2d 53 54 41 52 54 20 20 20 2a 2a 00 72 00 f2 00 34 00 50 2a 2a 20 20 4f 55 54 50 55 54 3a 20 41 32 3d 4e 45 57 20 54 3a 41 ┆ P** CIA (IN T:A)=DISL. TO T:A-START ** r 4 P** OUTPUT: A2=NEW T:A┆
0x1a78…1ac8 2d 41 44 44 52 45 53 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 72 01 2a 00 34 00 50 2a 2a 20 20 57 4f 52 4b 52 45 47 53 3a 20 41 31 2d 41 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-ADDRESS ** r * 4 P** WORKREGS: A1-A4 ┆
0x1ac8…1b18 (19, 0, 400) 2a 2a 00 72 01 62 00 34 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 73 00 0a 00 04 00 50 00 73 00 42 00 10 00 50 4d 4f 56 54 3a 41 ┆** r b 4 P************************************************ s P s B PMOVT:A┆
0x1b18…1b68 5c 45 51 55 5c 2a 00 73 00 4a 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2d 4d 4d 55 50 41 47 3d 31 00 73 00 5e 00 20 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 38 5c 47 45 54 20 54 3a 41 2d 41 44 44 52 45 53 53 20 00 73 00 7a 00 28 00 50 5c 4c ┆ EQU * s J P IFT CREDIT-MMUPAG=1 s ^ P LDR* A1,A8 GET T:A-ADDRESS s z ( P L┆
0x1b68…1bb8 44 5c 41 33 2c 57 41 54 4c 45 4e 2c 41 31 32 5c 47 45 54 20 4c 45 4e 47 54 48 20 4f 46 20 57 41 54 20 00 73 00 9e 00 14 00 50 5c 53 4c 4c 5c 41 33 2c 32 5c 42 59 54 45 53 20 00 73 00 ca 00 2c 00 50 5c 53 55 5c 41 33 2c 43 49 41 2c 41 31 5c ┆D A3,WATLEN,A12 GET LENGTH OF WAT s P SLL A3,2 BYTES s , P SU A3,CIA,A1 ┆
0x1bb8…1c08 41 44 44 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 20 54 4f 20 53 54 41 52 54 20 00 73 00 e2 00 1c 00 50 5c 41 44 4b 5c 41 33 2c 57 41 54 46 53 54 5c 41 33 3d 4c 45 4e 47 54 48 00 73 01 12 00 1e 00 50 5c 41 44 5c 41 31 2c 43 49 41 2c 41 31 5c ┆ADD DISPLACEMENT TO START s P ADK A3,WATFST A3=LENGTH s P AD A1,CIA,A1 ┆
0x1c08…1c58 46 52 4f 4d 2d 41 44 44 52 45 53 53 00 73 01 32 00 10 00 50 5c 43 41 4c 4c 5c 4d 4f 56 49 4e 47 00 73 01 54 00 10 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 38 20 00 73 01 68 00 22 00 50 5c 53 55 5c 41 32 2c 43 49 41 2c 41 34 5c 4e 45 57 20 54 3a ┆FROM-ADDRESS s 2 P CALL MOVING s T P LDR* A4,A8 s h " P SU A2,CIA,A4 NEW T:┆
0x1c58…1ca8 (20, 0, 400) 41 2d 41 44 44 52 45 53 53 20 00 73 01 7c 00 24 00 50 5c 53 55 5c 41 31 2c 43 49 41 2c 41 34 5c 27 4f 4c 44 27 20 54 3a 41 2d 41 44 44 52 45 53 53 20 00 74 00 12 00 04 00 50 00 74 00 3a 00 38 00 50 2a 20 43 4f 4d 50 55 54 45 20 41 4e 44 20 ┆A-ADDRESS s | $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS t P t : 8 P* COMPUTE AND ┆
0x1ca8…1cf8 53 54 4f 52 45 20 41 44 44 52 45 53 53 45 53 20 54 4f 20 44 41 54 41 2d 53 45 54 53 20 49 4e 20 46 43 42 20 2a 20 00 74 00 42 00 04 00 50 00 74 00 7e 00 1c 00 50 5c 4c 44 5c 41 33 2c 46 43 44 2c 41 31 32 5c 41 4e 59 20 46 43 44 3f 20 00 74 ┆STORE ADDRESSES TO DATA-SETS IN FCB * t B P t ~ P LD A3,FCD,A12 ANY FCD? t┆
0x1cf8…1d48 00 86 00 16 00 50 5c 52 46 28 5a 29 5c 4d 4f 56 54 31 30 5c 4e 4f 21 20 00 74 00 a6 00 1c 00 50 5c 41 44 52 5c 41 33 2c 41 32 5c 53 54 41 52 54 20 4f 46 20 46 43 42 20 00 74 00 c0 00 20 00 50 5c 4c 44 52 5c 41 34 2c 41 32 5c 53 41 56 45 20 ┆ P RF(Z) MOVT10 NO! t P ADR A3,A2 START OF FCB t P LDR A4,A2 SAVE ┆
0x1d48…1d98 54 3a 41 2d 41 44 44 52 45 53 53 20 00 74 00 e0 00 30 00 50 5c 4c 44 5c 41 31 30 2c 46 4c 41 47 2c 41 31 33 5c 52 45 41 4c 20 54 41 53 4b 20 44 41 54 41 20 50 52 4f 43 45 53 53 49 4e 47 3f 20 00 74 01 04 00 16 00 50 5c 52 46 28 5a 29 5c 4d ┆T:A-ADDRESS t 0 P LD A10,FLAG,A13 REAL TASK DATA PROCESSING? t P RF(Z) M┆
0x1d98…1de8 4f 56 54 30 35 5c 4e 4f 21 20 00 74 01 38 00 3a 00 50 5c 53 55 52 5c 41 34 2c 41 31 5c 41 44 4a 55 53 54 20 46 4f 52 20 4f 4c 44 20 52 45 4c 4f 43 41 54 49 4f 4e 20 28 4f 4c 44 20 54 3a 41 2d 41 44 44 52 45 53 53 29 00 74 01 52 00 10 00 50 ┆OVT05 NO! t 8 : P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS) t R P┆