|
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: 7846 (0x1ea6)
Notes: pts_type(SC)
Names: »TLDSEG.SC«
└─⟦4358b8014⟧ Bits:30009669 Philips computer tape "600124"
└─⟦this⟧ »MON10/TLDSEG.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »M:DECE/TLDSEG.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »MON10/TLDSEG.SC«
IDENT TLDSEG REL 10.0 80-03-14 870105041000 * * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TLDSEG = LOAD SEGMENT * * * * ************************************************** * * * THIS MODULE CONTAINS THE LOAD SEGMENT LKM PROCESSOR, * USED IN TOSS MEMORY MANAGEMENT SYSTEMS. * * EJECT TLDSEG * * *********** * ENTRIES * *********** * * ENTRY TLDSEG LOAD SEGMENT ENTRY TLDS15 ENTRY USED BY LDTASK ENTRY TLDS20 ENTRY USED BY LDTASK EJECT TLDSEG * * ************* * EXTERNALS * ************* * * EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM EXTRN TDISP DISPATCHER EXTRN LKM030 LKM REQUEST ERROR EXTRN PAG:QB QUEUE LINK BACKWARDS EXTRN SEG:NS NUMBER OF SEGMENTS EXTRN PAG:PA PAGE ADDRESS EXTRN SEG:DS DISC SECTOR ADDRESS EXTRN SEG:PB PAGE BLOCK ADDRESS EXTRN TTB:SA TTAB SAVE AREA EXTRN TTB:MT MMU TABLE EXTRN TTB:CB CURRENT SEGMENT BASE EXTRN TTB:SP SEGMENT TABLE ADDRESS EXTRN TTB:SB SEGMENT BLOCK ADDRESS EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK EXTRN SCTMMP MMU TABLE PAGE ENTRY EXTRN SCTNPE NUMBER OF PAGE ENTRIES EXTRN SCTLAP LOGICAL ADDRESS OF PAGES EJECT TLDSEG * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 0 * * * A PROGRAM VERSION USING TOSS DISC PAGING * IS OBTAINED BY SETTING DSKPAG EQU 1. * DSKPAG EQU 1 * EJECT TLDSEG * * ********** * TLDSEG * ********** * * * THIS IS THE LOAD SEGMENT LKM PROCESSOR. * * IT IS ENTERED FROM THE LKM HANDLER * WITH THE FOLLOWING PARAMETERS: * * A2 = DISPATCH ADDRESS (NOT UPDATED BY IHLKM) * A5 = TTAB ADDRESS * A7 = SEGMENT NUMBER * * IT RETURNS TO CALLING TASK WITH * THE FOLLOWING PARAMETERS: * * A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE * A7 = -1 IF REQUEST ERROR, ELSE * A7 = -2 IF DISC I/O ERROR, ELSE * A7 = -3 IF DISC NOT OPERABLE * * WHEN REQUESTED SEGMENT IS ALREADY IN CORE: * THE REQUEST WILL NOT GO THROUGH THE DISPATCHER AFTER * COMPLETION, THUS NO TASK SWITCHING WILL BE PERFORMED, * IN PURPOSE TO MAKE THE REQUEST AS FAST AS POSSIBLE. * * WHEN REQUESTED SEGMENT IS NOT IN CORE TLDSEG WILL * ACTIVATE LDTASK WHICH WILL LOAD SEGMENT INTO CORE. * * EJECT TLDSEG * * CHECK VALIDITY OF SEGMENT NUMBER * TLDSEG EQU * LOAD SEGMENT LD A3,TTB:SP,A5 SEGTAB ADDRESS LDR A1,A7 CHECK IF SEGMENT NUMBER < 0 RF(N) TLDERR REQUEST ERROR CW A1,SEG:NS,A3 CHECK IF SEGMENT NUMBER TOO BIG RF(NG) TLDS00 OK * TLDERR LDK A6,/FF INDICATE ERROR ABL LKM030 BRANCH TO LKM REQUEST ERROR * * GET SEGMENT BLOCK ADDRESS. * UPDATE RETURN ADDRESS * TLDS00 EQU * SLL A1,3 ADJUST FOR INDEXING IN SEGTAB ADR A1,A3 ADD SEGTAB ADDRESS ADK A2,2 UPDATE DISPATCH ADDRESS LDR A3,A5 GET TTAB ADDRESS * IFT DSKPAG=0 SUKL A15,4 ADJUST STACKPOINTER ST A2,4,A15 SET DISPATCH ADDRESS ON STACK XIF * ADK A7,0 CHECK SEGMENT NUMBER RF(NZ) TLDS05 NOT SEGMENT 0 ST A7,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS LD A1,SEG:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 * IFT DSKPAG=1 SUKL A15,4 ADJUST STACKPOINTER ST A2,4,A15 SET DISPATCH ADDRESS ON STACK XIF RF TLDS40 * EJECT TLDSEG * * TLDS05 EQU * IFT DSKPAG=1 ST A1,TTB:SB,A3 UPDATE SEGMENT BLOCK ADDRESS LDR* A4,A1 GET SEGMENT STATUS RF(N) TLDS10 SEGMENT LOADED IN CORE ST A2,TTB:SA,A3 CM PRUN * * ACTIVATE LOAD TASK * CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK ABL TDISP GO TO DISPATCHER * TLDS10 EQU * SUKL A15,4 ADJUST STACKPOINTER ST A2,4,A15 SET DISPATCH ADDRESS ON STACK XIF * TLDS15 EQU * ENTRY USED BY LDTASK LD A1,SEG:PB,A1 PAGE BLOCK ADDRESS IFT DSKPAG=1 * * REMOVE PAGE BLOCK FROM PAGE QUEUE * LDR* A2,A1 GET QUEUE LINK FORWARD RF(Z) TLDS20 PAGE BLOCK NOT IN QUEUE LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK STR A2,A4 UPDATE QUEUE LINKS ST A4,PAG:QB,A2 XIF * EJECT TLDSEG * * GET PAGE ADDRESS OF REQUESTED SEGMENT * TLDS20 EQU * ENTRY USED BY LDTASK LD A1,PAG:PA,A1 GET PAGE ADDRESS * IFT MMUPAG=1 ECR A2,A1 ANK A2,/FC * * GET PAGE ENTRY/ENTRIES TO UPDATE IN MMU TABLE * AD A3,SCTMMP POINT TO FIRST USED PAGE ENTRY LD A4,SCTNPE GET NUMBER OF PAGE ENTRIES * * UPDATE PAGE ENTRY/ENTRIES * TLDS25 EQU * SCR A2,A3 UPDATE PAGE ENTRY SUK A4,1 RF(NP) TLDS30 NO MORE PAGE ENTRIES ADK A3,2 POINT TO NEXT PAGE ENTRY ADK A2,4 UPDATE PAGE ADDRESS RB TLDS25 * EJECT TLDSEG * * TLDS30 ANKL A1,/300 COMPUTE CURRENT SEGMENT BASE SLL A1,2 OR A1,SCTLAP TL TTB:MT,A5 LOAD MMU REGISTERS * TLDS40 EQU * ES* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE XIF * IFT MMUPAG=0 TLDS40 EQU * ST* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE XIF * IFT CPU852=0 LDR A6,A5 ML 6,TTB:SA+2,A6 RESTORE A1-A6 RTN A15 RETURN TO CALLING TASK XIF * IFT CPU852=1 LD A1,TTB:SA+2,A5 RESTORE A1-A6 LD A2,TTB:SA+4,A5 LD A3,TTB:SA+6,A5 LD A4,TTB:SA+8,A5 LD A6,TTB:SA+12,A5 LD A5,TTB:SA+10,A5 RTN A15 RETURN TO CALLING TASK XIF * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT TLDSEG 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…00ea Head {h00=0x001e, h01=0x0050, text=»* TLDSEG = LOAD SEGMENT «, t00=0x0000, t01=0x00cc}
0x00ea…00f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
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…014c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0116}
0x014c…0156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0150}
0x0156…0160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…01a0 Head {h00=0x003c, h01=0x0050, text=»* THIS MODULE CONTAINS THE LOAD SEGMENT LKM PROCESSOR,«, t00=0x0000, t01=0x0164}
0x01a0…01d4 Head {h00=0x0030, h01=0x0050, text=»* USED IN TOSS MEMORY MANAGEMENT SYSTEMS. «, t00=0x0001, t01=0x0014}
0x01d4…01de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0048}
0x01de…01e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0052}
0x01e8…0200 Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x0001, t01=0x005c}
0x0200…020a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0074}
0x020a…0214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007e}
0x0214…0228 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x0088}
0x0228…023c Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x009c}
0x023c…0250 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x00b0}
0x0250…025a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c4}
0x025a…0264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ce}
0x0264…0286 Head {h00=0x001e, h01=0x0050, text=» ENTRY TLDSEG LOAD SEGMENT«, t00=0x0001, t01=0x00d8}
0x0286…02b0 Head {h00=0x0026, h01=0x0050, text=» ENTRY TLDS15 ENTRY USED BY LDTASK«, t00=0x0001, t01=0x00fa}
0x02b0…02da Head {h00=0x0026, h01=0x0050, text=» ENTRY TLDS20 ENTRY USED BY LDTASK«, t00=0x0001, t01=0x0124}
0x02da…02f2 Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x0001, t01=0x014e}
0x02f2…02fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0166}
0x02fc…0306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0170}
0x0306…031c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0001, t01=0x017a}
0x031c…0332 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0001, t01=0x0190}
0x0332…0348 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x0016}
0x0348…0352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002c}
0x0352…035c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0036}
0x035c…0390 Head {h00=0x0030, h01=0x0050, text=» EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM «, t00=0x0002, t01=0x0040}
0x0390…03b0 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0002, t01=0x0074}
0x03b0…03d8 Head {h00=0x0024, h01=0x0050, text=» EXTRN LKM030 LKM REQUEST ERROR «, t00=0x0002, t01=0x0094}
0x03d8…0402 Head {h00=0x0026, h01=0x0050, text=» EXTRN PAG:QB QUEUE LINK BACKWARDS«, t00=0x0002, t01=0x00bc}
0x0402…042a Head {h00=0x0024, h01=0x0050, text=» EXTRN SEG:NS NUMBER OF SEGMENTS«, t00=0x0002, t01=0x00e6}
0x042a…044c Head {h00=0x001e, h01=0x0050, text=» EXTRN PAG:PA PAGE ADDRESS«, t00=0x0002, t01=0x010e}
0x044c…0476 Head {h00=0x0026, h01=0x0050, text=» EXTRN SEG:DS DISC SECTOR ADDRESS «, t00=0x0002, t01=0x0130}
0x0476…049e Head {h00=0x0024, h01=0x0050, text=» EXTRN SEG:PB PAGE BLOCK ADDRESS«, t00=0x0002, t01=0x015a}
0x049e…04c2 Head {h00=0x0020, h01=0x0050, text=» EXTRN TTB:SA TTAB SAVE AREA«, t00=0x0002, t01=0x0182}
0x04c2…04e2 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0003, t01=0x0016}
0x04e2…050c Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:CB CURRENT SEGMENT BASE«, t00=0x0003, t01=0x0036}
0x050c…0538 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SP SEGMENT TABLE ADDRESS «, t00=0x0003, t01=0x0060}
0x0538…0564 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SB SEGMENT BLOCK ADDRESS «, t00=0x0003, t01=0x008c}
0x0564…059a Head {h00=0x0032, h01=0x0050, text=» EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK «, t00=0x0003, t01=0x00b8}
0x059a…05c4 Head {h00=0x0026, h01=0x0050, text=» EXTRN SCTMMP MMU TABLE PAGE ENTRY«, t00=0x0003, t01=0x00ee}
0x05c4…05f0 Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTNPE NUMBER OF PAGE ENTRIES«, t00=0x0003, t01=0x0118}
0x05f0…061e Head {h00=0x002a, h01=0x0050, text=» EXTRN SCTLAP LOGICAL ADDRESS OF PAGES«, t00=0x0003, t01=0x0144}
0x061e…0636 Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x0003, t01=0x0172}
0x0636…0640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x018a}
0x0640…064a (4, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0004}
0x064a…067c Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0004, t01=0x000e}
0x067c…0686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0040}
0x0686…06a4 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x004a}
0x06a4…06ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0068}
0x06ae…06e0 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0004, t01=0x0072}
0x06e0…06ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a4}
0x06ea…071c Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0004, t01=0x00ae}
0x071c…074a Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0004, t01=0x00e0}
0x074a…0754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010e}
0x0754…0768 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0004, t01=0x0118}
0x0768…0772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012c}
0x0772…077c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0136}
0x077c…07b6 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0004, t01=0x0140}
0x07b6…07e8 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0004, t01=0x017a}
0x07e8…07f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001c}
0x07f2…0806 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0005, t01=0x0026}
0x0806…0810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x003a}
0x0810…081a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x0044}
0x081a…084c Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0005, t01=0x004e}
0x084c…087a Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0005, t01=0x0080}
0x087a…0884 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x00ae}
0x0884…0898 Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 1«, t00=0x0005, t01=0x00b8}
0x0898…08a2 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x00cc}
0x08a2…08ba Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x0005, t01=0x00d6}
0x08ba…08c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ee}
0x08c4…08ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f8}
0x08ce…08e0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0005, t01=0x0102}
0x08e0…08f2 Head {h00=0x000e, h01=0x0050, text=»* TLDSEG *«, t00=0x0005, t01=0x0114}
0x08f2…0904 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0005, t01=0x0126}
0x0904…090e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0138}
0x090e…0918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0142}
0x0918…094c Head {h00=0x0030, h01=0x0050, text=»* THIS IS THE LOAD SEGMENT LKM PROCESSOR. «, t00=0x0005, t01=0x014c}
0x094c…0956 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0180}
0x0956…0984 Head {h00=0x002a, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0005, t01=0x018a}
0x0984…09ae Head {h00=0x0026, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS:«, t00=0x0006, t01=0x0028}
0x09ae…09b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0052}
0x09b8…09f0 Head {h00=0x0034, h01=0x0050, text=»* A2 = DISPATCH ADDRESS (NOT UPDATED BY IHLKM)«, t00=0x0006, t01=0x005c}
0x09f0…0a0e Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0006, t01=0x0094}
0x0a0e…0a2e Head {h00=0x001c, h01=0x0050, text=»* A7 = SEGMENT NUMBER «, t00=0x0006, t01=0x00b2}
0x0a2e…0a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d2}
0x0a38…0a64 Head {h00=0x0028, h01=0x0050, text=»* IT RETURNS TO CALLING TASK WITH «, t00=0x0006, t01=0x00dc}
0x0a64…0a8a Head {h00=0x0022, h01=0x0050, text=»* THE FOLLOWING PARAMETERS: «, t00=0x0006, t01=0x0108}
0x0a8a…0a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012e}
0x0a94…0ad6 Head {h00=0x003e, h01=0x0050, text=»* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE «, t00=0x0006, t01=0x0138}
0x0ad6…0b00 Head {h00=0x0026, h01=0x0050, text=»* A7 = -1 IF REQUEST ERROR, ELSE«, t00=0x0006, t01=0x017a}
0x0b00…0b2c Head {h00=0x0028, h01=0x0050, text=»* A7 = -2 IF DISC I/O ERROR, ELSE «, t00=0x0007, t01=0x0014}
0x0b2c…0b54 Head {h00=0x0024, h01=0x0050, text=»* A7 = -3 IF DISC NOT OPERABLE«, t00=0x0007, t01=0x0040}
0x0b54…0b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0068}
0x0b5e…0b94 Head {h00=0x0032, h01=0x0050, text=»* WHEN REQUESTED SEGMENT IS ALREADY IN CORE:«, t00=0x0007, t01=0x0072}
0x0b94…0bd4 Head {h00=0x003c, h01=0x0050, text=»* THE REQUEST WILL NOT GO THROUGH THE DISPATCHER AFTER«, t00=0x0007, t01=0x00a8}
0x0bd4…0c16 Head {h00=0x003e, h01=0x0050, text=»* COMPLETION, THUS NO TASK SWITCHING WILL BE PERFORMED, «, t00=0x0007, t01=0x00e8}
0x0c16…0c56 Head {h00=0x003c, h01=0x0050, text=»* IN PURPOSE TO MAKE THE REQUEST AS FAST AS POSSIBLE. «, t00=0x0007, t01=0x012a}
0x0c56…0c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016a}
0x0c60…0c9e Head {h00=0x003a, h01=0x0050, text=»* WHEN REQUESTED SEGMENT IS NOT IN CORE TLDSEG WILL «, t00=0x0007, t01=0x0174}
0x0c9e…0cdc Head {h00=0x003a, h01=0x0050, text=»* ACTIVATE LDTASK WHICH WILL LOAD SEGMENT INTO CORE.«, t00=0x0008, t01=0x0022}
0x0cdc…0ce6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0060}
0x0ce6…0cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006a}
0x0cf0…0d08 Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x0008, t01=0x0074}
0x0d08…0d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x008c}
0x0d12…0d3c Head {h00=0x0026, h01=0x0050, text=»* CHECK VALIDITY OF SEGMENT NUMBER«, t00=0x0008, t01=0x0096}
0x0d3c…0d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c0}
0x0d46…0d68 Head {h00=0x001e, h01=0x0050, text=»TLDSEG EQU * LOAD SEGMENT «, t00=0x0008, t01=0x00ca}
0x0d68…0d90 Head {h00=0x0024, h01=0x0050, text=» LD A3,TTB:SP,A5 SEGTAB ADDRESS «, t00=0x0008, t01=0x00ec}
0x0d90…0dbe Head {h00=0x002a, h01=0x0050, text=» LDR A1,A7 CHECK IF SEGMENT NUMBER < 0«, t00=0x0008, t01=0x0114}
0x0dbe…0de2 Head {h00=0x0020, h01=0x0050, text=» RF(N) TLDERR REQUEST ERROR «, t00=0x0008, t01=0x0142}
0x0de2…0e1a Head {h00=0x0034, h01=0x0050, text=» CW A1,SEG:NS,A3 CHECK IF SEGMENT NUMBER TOO BIG«, t00=0x0008, t01=0x0166}
0x0e1a…0e34 Head {h00=0x0016, h01=0x0050, text=» RF(NG) TLDS00 OK «, t00=0x0009, t01=0x000e}
0x0e34…0e3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0028}
0x0e3e…0e66 Head {h00=0x0024, h01=0x0050, text=»TLDERR LDK A6,/FF INDICATE ERROR«, t00=0x0009, t01=0x0032}
0x0e66…0e96 Head {h00=0x002c, h01=0x0050, text=» ABL LKM030 BRANCH TO LKM REQUEST ERROR «, t00=0x0009, t01=0x005a}
0x0e96…0ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x008a}
0x0ea0…0ec4 Head {h00=0x0020, h01=0x0050, text=»* GET SEGMENT BLOCK ADDRESS.«, t00=0x0009, t01=0x0094}
0x0ec4…0ee4 Head {h00=0x001c, h01=0x0050, text=»* UPDATE RETURN ADDRESS «, t00=0x0009, t01=0x00b8}
0x0ee4…0eee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d8}
0x0eee…0f02 Head {h00=0x0010, h01=0x0050, text=»TLDS00 EQU *«, t00=0x0009, t01=0x00e2}
0x0f02…0f32 Head {h00=0x002c, h01=0x0050, text=» SLL A1,3 ADJUST FOR INDEXING IN SEGTAB «, t00=0x0009, t01=0x00f6}
0x0f32…0f58 Head {h00=0x0022, h01=0x0050, text=» ADR A1,A3 ADD SEGTAB ADDRESS «, t00=0x0009, t01=0x0126}
0x0f58…0f82 Head {h00=0x0026, h01=0x0050, text=» ADK A2,2 UPDATE DISPATCH ADDRESS «, t00=0x0009, t01=0x014c}
0x0f82…0fa6 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A5 GET TTAB ADDRESS «, t00=0x0009, t01=0x0176}
0x0fa6…0fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x000a}
0x0fb0…0fc6 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=0 «, t00=0x000a, t01=0x0014}
0x0fc6…0fee Head {h00=0x0024, h01=0x0050, text=» SUKL A15,4 ADJUST STACKPOINTER «, t00=0x000a, t01=0x002a}
0x0fee…1020 Head {h00=0x002e, h01=0x0050, text=» ST A2,4,A15 SET DISPATCH ADDRESS ON STACK«, t00=0x000a, t01=0x0052}
0x1020…102c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0084}
0x102c…1036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0090}
0x1036…105c Head {h00=0x0022, h01=0x0050, text=» ADK A7,0 CHECK SEGMENT NUMBER«, t00=0x000a, t01=0x009a}
0x105c…1080 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TLDS05 NOT SEGMENT 0«, t00=0x000a, t01=0x00c0}
0x1080…10b4 Head {h00=0x0030, h01=0x0050, text=» ST A7,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS«, t00=0x000a, t01=0x00e4}
0x10b4…10ee Head {h00=0x0036, h01=0x0050, text=» LD A1,SEG:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 «, t00=0x000a, t01=0x0118}
0x10ee…10f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0152}
0x10f8…110e Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000a, t01=0x015c}
0x110e…1136 Head {h00=0x0024, h01=0x0050, text=» SUKL A15,4 ADJUST STACKPOINTER «, t00=0x000a, t01=0x0172}
0x1136…1168 Head {h00=0x002e, h01=0x0050, text=» ST A2,4,A15 SET DISPATCH ADDRESS ON STACK«, t00=0x000b, t01=0x000a}
0x1168…1174 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x003c}
0x1174…1186 Head {h00=0x000e, h01=0x0050, text=» RF TLDS40«, t00=0x000b, t01=0x0048}
0x1186…1190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x005a}
0x1190…11a8 Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x000b, t01=0x0064}
0x11a8…11b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x007c}
0x11b2…11bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0086}
0x11bc…11d0 Head {h00=0x0010, h01=0x0050, text=»TLDS05 EQU *«, t00=0x000b, t01=0x0090}
0x11d0…11e6 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000b, t01=0x00a4}
0x11e6…121c Head {h00=0x0032, h01=0x0050, text=» ST A1,TTB:SB,A3 UPDATE SEGMENT BLOCK ADDRESS «, t00=0x000b, t01=0x00ba}
0x121c…1242 Head {h00=0x0022, h01=0x0050, text=» LDR* A4,A1 GET SEGMENT STATUS«, t00=0x000b, t01=0x00f0}
0x1242…126e Head {h00=0x0028, h01=0x0050, text=» RF(N) TLDS10 SEGMENT LOADED IN CORE«, t00=0x000b, t01=0x0116}
0x126e…1286 Head {h00=0x0014, h01=0x0050, text=» ST A2,TTB:SA,A3«, t00=0x000b, t01=0x0142}
0x1286…1296 Head {h00=0x000c, h01=0x0050, text=» CM PRUN«, t00=0x000b, t01=0x015a}
0x1296…12a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x016a}
0x12a0…12bc Head {h00=0x0018, h01=0x0050, text=»* ACTIVATE LOAD TASK«, t00=0x000b, t01=0x0174}
0x12bc…12c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0190}
0x12c6…1300 Head {h00=0x0036, h01=0x0050, text=» CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK «, t00=0x000c, t01=0x000a}
0x1300…1324 Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER «, t00=0x000c, t01=0x0044}
0x1324…132e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0068}
0x132e…1342 Head {h00=0x0010, h01=0x0050, text=»TLDS10 EQU *«, t00=0x000c, t01=0x0072}
0x1342…136a Head {h00=0x0024, h01=0x0050, text=» SUKL A15,4 ADJUST STACKPOINTER «, t00=0x000c, t01=0x0086}
0x136a…139c Head {h00=0x002e, h01=0x0050, text=» ST A2,4,A15 SET DISPATCH ADDRESS ON STACK«, t00=0x000c, t01=0x00ae}
0x139c…13a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00e0}
0x13a8…13b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ec}
0x13b2…13dc Head {h00=0x0026, h01=0x0050, text=»TLDS15 EQU * ENTRY USED BY LDTASK «, t00=0x000c, t01=0x00f6}
0x13dc…1408 Head {h00=0x0028, h01=0x0050, text=» LD A1,SEG:PB,A1 PAGE BLOCK ADDRESS «, t00=0x000c, t01=0x0120}
0x1408…141e Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000c, t01=0x014c}
0x141e…1428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0162}
0x1428…1454 Head {h00=0x0028, h01=0x0050, text=»* REMOVE PAGE BLOCK FROM PAGE QUEUE «, t00=0x000c, t01=0x016c}
0x1454…145e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0008}
0x145e…1488 Head {h00=0x0026, h01=0x0050, text=» LDR* A2,A1 GET QUEUE LINK FORWARD«, t00=0x000d, t01=0x0012}
0x1488…14b6 Head {h00=0x002a, h01=0x0050, text=» RF(Z) TLDS20 PAGE BLOCK NOT IN QUEUE «, t00=0x000d, t01=0x003c}
0x14b6…14e6 Head {h00=0x002c, h01=0x0050, text=» LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD«, t00=0x000d, t01=0x006a}
0x14e6…151e Head {h00=0x0034, h01=0x0050, text=» CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK «, t00=0x000d, t01=0x009a}
0x151e…1544 Head {h00=0x0022, h01=0x0050, text=» STR A2,A4 UPDATE QUEUE LINKS «, t00=0x000d, t01=0x00d2}
0x1544…155c Head {h00=0x0014, h01=0x0050, text=» ST A4,PAG:QB,A2«, t00=0x000d, t01=0x00f8}
0x155c…1568 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0110}
0x1568…1572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011c}
0x1572…158a Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x000d, t01=0x0126}
0x158a…1594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x013e}
0x1594…15c4 Head {h00=0x002c, h01=0x0050, text=»* GET PAGE ADDRESS OF REQUESTED SEGMENT «, t00=0x000d, t01=0x0148}
0x15c4…15ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0178}
0x15ce…15f8 Head {h00=0x0026, h01=0x0050, text=»TLDS20 EQU * ENTRY USED BY LDTASK «, t00=0x000d, t01=0x0182}
0x15f8…1622 Head {h00=0x0026, h01=0x0050, text=» LD A1,PAG:PA,A1 GET PAGE ADDRESS «, t00=0x000e, t01=0x001c}
0x1622…162c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0046}
0x162c…1642 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000e, t01=0x0050}
0x1642…1654 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A1«, t00=0x000e, t01=0x0066}
0x1654…1668 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FC «, t00=0x000e, t01=0x0078}
0x1668…1672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x008c}
0x1672…16aa Head {h00=0x0034, h01=0x0050, text=»* GET PAGE ENTRY/ENTRIES TO UPDATE IN MMU TABLE «, t00=0x000e, t01=0x0096}
0x16aa…16b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ce}
0x16b4…16e8 Head {h00=0x0030, h01=0x0050, text=» AD A3,SCTMMP POINT TO FIRST USED PAGE ENTRY«, t00=0x000e, t01=0x00d8}
0x16e8…1718 Head {h00=0x002c, h01=0x0050, text=» LD A4,SCTNPE GET NUMBER OF PAGE ENTRIES«, t00=0x000e, t01=0x010c}
0x1718…1722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x013c}
0x1722…1746 Head {h00=0x0020, h01=0x0050, text=»* UPDATE PAGE ENTRY/ENTRIES «, t00=0x000e, t01=0x0146}
0x1746…1750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x016a}
0x1750…1764 Head {h00=0x0010, h01=0x0050, text=»TLDS25 EQU *«, t00=0x000e, t01=0x0174}
0x1764…1788 Head {h00=0x0020, h01=0x0050, text=» SCR A2,A3 UPDATE PAGE ENTRY«, t00=0x000e, t01=0x0188}
0x1788…179a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000f, t01=0x001c}
0x179a…17c6 Head {h00=0x0028, h01=0x0050, text=» RF(NP) TLDS30 NO MORE PAGE ENTRIES «, t00=0x000f, t01=0x002e}
0x17c6…17f0 Head {h00=0x0026, h01=0x0050, text=» ADK A3,2 POINT TO NEXT PAGE ENTRY«, t00=0x000f, t01=0x005a}
0x17f0…1816 Head {h00=0x0022, h01=0x0050, text=» ADK A2,4 UPDATE PAGE ADDRESS «, t00=0x000f, t01=0x0084}
0x1816…1828 Head {h00=0x000e, h01=0x0050, text=» RB TLDS25«, t00=0x000f, t01=0x00aa}
0x1828…1832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00bc}
0x1832…184a Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x000f, t01=0x00c6}
0x184a…1854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00de}
0x1854…185e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e8}
0x185e…1896 Head {h00=0x0034, h01=0x0050, text=»TLDS30 ANKL A1,/300 COMPUTE CURRENT SEGMENT BASE«, t00=0x000f, t01=0x00f2}
0x1896…18a8 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x000f, t01=0x012a}
0x18a8…18be Head {h00=0x0012, h01=0x0050, text=» OR A1,SCTLAP «, t00=0x000f, t01=0x013c}
0x18be…18e6 Head {h00=0x0024, h01=0x0050, text=» TL TTB:MT,A5 LOAD MMU REGISTERS«, t00=0x000f, t01=0x0152}
0x18e6…18f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x017a}
0x18f0…1904 Head {h00=0x0010, h01=0x0050, text=»TLDS40 EQU *«, t00=0x000f, t01=0x0184}
0x1904…193a Head {h00=0x0032, h01=0x0050, text=» ES* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE «, t00=0x0010, t01=0x0008}
0x193a…1946 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x003e}
0x1946…1950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004a}
0x1950…1966 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0010, t01=0x0054}
0x1966…197a Head {h00=0x0010, h01=0x0050, text=»TLDS40 EQU *«, t00=0x0010, t01=0x006a}
0x197a…19b0 Head {h00=0x0032, h01=0x0050, text=» ST* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE «, t00=0x0010, t01=0x007e}
0x19b0…19bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00b4}
0x19bc…19c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c0}
0x19c6…19dc Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0010, t01=0x00ca}
0x19dc…19ee Head {h00=0x000e, h01=0x0050, text=» LDR A6,A5«, t00=0x0010, t01=0x00e0}
0x19ee…1a16 Head {h00=0x0024, h01=0x0050, text=» ML 6,TTB:SA+2,A6 RESTORE A1-A6 «, t00=0x0010, t01=0x00f2}
0x1a16…1a3e Head {h00=0x0024, h01=0x0050, text=» RTN A15 RETURN TO CALLING TASK «, t00=0x0010, t01=0x011a}
0x1a3e…1a4a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0142}
0x1a4a…1a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x014e}
0x1a54…1a6a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0010, t01=0x0158}
0x1a6a…1a92 Head {h00=0x0024, h01=0x0050, text=» LD A1,TTB:SA+2,A5 RESTORE A1-A6«, t00=0x0010, t01=0x016e}
0x1a92…1aac Head {h00=0x0016, h01=0x0050, text=» LD A2,TTB:SA+4,A5«, t00=0x0011, t01=0x0008}
0x1aac…1ac6 Head {h00=0x0016, h01=0x0050, text=» LD A3,TTB:SA+6,A5«, t00=0x0011, t01=0x0022}
0x1ac6…1ae0 Head {h00=0x0016, h01=0x0050, text=» LD A4,TTB:SA+8,A5«, t00=0x0011, t01=0x003c}
0x1ae0…1afc Head {h00=0x0018, h01=0x0050, text=» LD A6,TTB:SA+12,A5 «, t00=0x0011, t01=0x0056}
0x1afc…1b18 Head {h00=0x0018, h01=0x0050, text=» LD A5,TTB:SA+10,A5 «, t00=0x0011, t01=0x0072}
0x1b18…1b40 Head {h00=0x0024, h01=0x0050, text=» RTN A15 RETURN TO CALLING TASK «, t00=0x0011, t01=0x008e}
0x1b40…1b4c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00b6}
0x1b4c…1b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c2}
0x1b56…1b60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00cc}
0x1b60…1b6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d6}
0x1b6a…1b76 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0011, t01=0x00e0}
0x1b76…1b7a Head {h00=0x4004, h01=0x0000}
0x1b7a…1b7e 00 11 00 ec ┆ ┆
0x1b7e…1b86 (18, 1, 8) 20 04 00 00 00 12 00 04 ┆ ┆
0x1b86…1bd6 (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┆
0x1bd6…1c26 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┆
0x1c26…1c76 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 ┆
0x1c76…1cc6 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 ┆
0x1cc6…1d16 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:┆
0x1d16…1d66 (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 ┆
0x1d66…1db6 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┆
0x1db6…1e06 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 ┆
0x1e06…1e56 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┆
0x1e56…1ea6 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┆