|
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«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/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 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 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 0«, 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 1«, 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 0«, 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) 5c 5c 5c 5c 00 5a 01 90 00 3c 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 20 4f 20 56 20 44 20 57 20 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 5b 00 0c 00 3c 00 50 2a 2a 20 20 ┆ Z < P** M O V D W B ** [ < P** ┆
0x1bd6…1c26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 5b 00 4c 00 3c 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ** [ L < P** ┆
0x1c26…1c76 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 5b 00 8c 00 3c 00 50 2a 2a 20 20 53 45 41 52 43 48 20 54 3a 44 20 46 4f 52 20 44 55 4d 4d 59 20 57 2e 42 2e 20 49 46 20 41 4e 59 ┆ ** [ < P** SEARCH T:D FOR DUMMY W.B. IF ANY┆
0x1c76…1cc6 20 46 4f 55 4e 44 2c 20 4d 4f 56 45 20 44 2e 54 2e 20 2a 2a 00 5b 00 cc 00 3c 00 50 2a 2a 20 20 41 4e 44 20 55 50 44 41 54 45 20 41 44 44 52 45 53 53 45 53 20 28 57 2e 42 2e 20 26 20 44 2e 54 2e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FOUND, MOVE D.T. ** [ < P** AND UPDATE ADDRESSES (W.B. & D.T.) ┆
0x1cc6…1d16 20 20 2a 2a 00 5b 01 0c 00 3c 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 5b 01 4c 00 3c 00 50 2a 2a 20 20 ┆ ** [ < P** ** [ L < P** ┆
0x1d16…1d66 (20, 0, 400) 49 4e 50 55 54 20 3a 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 20 20 20 20 20 20 20 20 2a 2a 00 5b 01 8c 00 3c 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 41 38 3d 20 50 4f 49 4e ┆INPUT : A12=T:D-ADDRESS ** [ < P** A8= POIN┆
0x1d66…1db6 54 45 52 20 54 4f 20 54 3a 41 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 5c 00 3c 00 3c 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 42 49 54 3d 42 49 54 20 4e 55 4d 42 45 52 20 53 41 54 20 49 4e 20 44 57 ┆TER TO T:A-ADDRESS ** < < P** BIT=BIT NUMBER SAT IN DW┆
0x1db6…1e06 42 4d 53 4b 20 28 20 30 2d 31 35 20 29 20 20 20 20 20 2a 2a 00 5c 00 7c 00 3c 00 50 2a 2a 20 20 57 4f 52 4b 2e 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 20 20 20 20 20 ┆BMSK ( 0-15 ) ** | < P** WORK.REGS: A1-A4 ┆
0x1e06…1e56 20 20 2a 2a 00 5c 00 bc 00 3c 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 2a 2a 2a 2a 2a 2a 2a 2a 00 5c 00 fc 00 08 00 50 5c 5c 5c 20 ┆ ** < P******************************************************** P ┆
0x1e56…1ea6 00 5c 01 3c 00 10 00 50 4d 4f 56 44 57 42 5c 45 51 55 5c 2a 00 5c 01 48 00 1e 00 50 5c 53 54 5c 41 36 2c 53 41 56 45 30 35 2c 41 31 33 5c 53 41 56 45 20 41 35 20 00 5c 01 5c 00 0e 00 50 5c 4c 44 4b 5c 41 36 2c 30 20 00 5c 01 7e 00 28 00 50 ┆ < PMOVDWB EQU * H P ST A6,SAVE05,A13 SAVE A5 P LDK A6,0 ~ ( P┆