|
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: 10608 (0x2970)
Notes: pts_type(SC)
Names: »TLDSEG.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/TLDSEG.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/TLDSEG.SC«
IDENT TLDSEG REL 11.0 81-01-26 870105041100 * * ************************************************** * * 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 TLSEG1 UPDATE PAGQUE, CSB AND MMU ENTRY TLSEG2 UPDATE CSB AND MMU EJECT TLDSEG * * ************* * EXTERNALS * ************* * * EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM EXTRN TDISP DISPATCHER EXTRN RELPAG RELEASE PAGE EXTRN LKM030 LKM REQUEST ERROR EXTRN PAG:QB QUEUE LINK BACKWARDS EXTRN PAG:PA PAGE ADDRESS EXTRN SEG:NS NUMBER OF SEGMENTS EXTRN SEG:DS DISC SECTOR ADDRESS EXTRN SEG:PB PAGE BLOCK ADDRESS EXTRN TTB:AP ACB ADDRESS EXTRN TTB:PW PROGRAM STATUS WORD 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 ACBMMP MMU TABLE PAGE ENTRY EXTRN ACBNPE NUMBER OF PAGE ENTRIES EXTRN ACBLAP 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 * 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 * * TLDSEG EQU * LOAD SEGMENT IFT DSKPAG=1 LD A3,TTB:SB,A5 SEGMENT BLOCK ADDRESS RF(Z) TLDS00 NO SEGMENT LCR A4,A3 SEGMENT STATUS ANK A4,/1E CHECK IF CORE RESIDENT OR... RF(NZ) TLDS00 ...USED BY AN INTERRUPTED TASK * * INSERT PAGE BLOCK IN PAGE QUEUE * CF A15,RELPAG RELEASE PAGE LD A4,TTB:PW,A5 PSW ST A4,-2,A15 RESTORE PSW ON STACK XIF * * CHECK VALIDITY OF SEGMENT NUMBER * TLDS00 EQU * 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) TLDS03 OK * TLDERR LDK A6,/FF INDICATE ERROR ABL LKM030 BRANCH TO LKM REQUEST ERROR * EJECT TLDSEG * * GET SEGMENT BLOCK ADDRESS * TLDS03 EQU * SLL A1,3 ADJUST FOR INDEXING IN SEGTAB ADR A1,A3 ADD SEGTAB 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 * EJECT TLDSEG * * ********** * TLSEG1 * * TLSEG2 * ********** * * * ENTRIES USED BY LDTASK IN PURPOSE TO REMOVE PAGE BLOCK * FROM PAGQUE, UPDATE CURRENT SEGMENT BASE AND MMU TABLE. * * INPUT: * TLSEG1: A1 = SEGBLK ADDRESS * A3 = TTAB ADDRESS CALLING TASK * A5 = " " " " * * TLSEG2: A1 = PAGBLK ADDRESS * A3 = TTAB ADDRESS LDTASK * A5 = " " " * * OUTPUT: A1-A6 FROM TTAB SAVE AREA (A5) * XIF * TLSEG1 EQU * ENTRY USED BY LDTASK LD A1,SEG:PB,A1 PAGE BLOCK ADDRESS * IFT DSKPAG=1 LDR* A2,A1 GET QUEUE LINK FORWARD RF(Z) TLSEG2 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 * TLSEG2 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 * LD A6,TTB:AP,A5 ACB ADDRESS AD A3,ACBMMP,A6 POINT TO FIRST USED PAGE ENTRY LD A4,ACBNPE,A6 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,ACBLAP,A6 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 11.0 81-01-26 870105041100 «, 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…02b6 Head {h00=0x002c, h01=0x0050, text=» ENTRY TLSEG1 UPDATE PAGQUE, CSB AND MMU«, t00=0x0001, t01=0x00fa}
0x02b6…02de Head {h00=0x0024, h01=0x0050, text=» ENTRY TLSEG2 UPDATE CSB AND MMU«, t00=0x0001, t01=0x012a}
0x02de…02f6 Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x0001, t01=0x0152}
0x02f6…0300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016a}
0x0300…030a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0174}
0x030a…0320 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0001, t01=0x017e}
0x0320…0336 (2, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0002, t01=0x0004}
0x0336…034c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x001a}
0x034c…0356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0030}
0x0356…0360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003a}
0x0360…0394 Head {h00=0x0030, h01=0x0050, text=» EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM «, t00=0x0002, t01=0x0044}
0x0394…03b4 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0002, t01=0x0078}
0x03b4…03d6 Head {h00=0x001e, h01=0x0050, text=» EXTRN RELPAG RELEASE PAGE«, t00=0x0002, t01=0x0098}
0x03d6…03fe Head {h00=0x0024, h01=0x0050, text=» EXTRN LKM030 LKM REQUEST ERROR «, t00=0x0002, t01=0x00ba}
0x03fe…0428 Head {h00=0x0026, h01=0x0050, text=» EXTRN PAG:QB QUEUE LINK BACKWARDS«, t00=0x0002, t01=0x00e2}
0x0428…044a Head {h00=0x001e, h01=0x0050, text=» EXTRN PAG:PA PAGE ADDRESS«, t00=0x0002, t01=0x010c}
0x044a…0472 Head {h00=0x0024, h01=0x0050, text=» EXTRN SEG:NS NUMBER OF SEGMENTS«, t00=0x0002, t01=0x012e}
0x0472…049c Head {h00=0x0026, h01=0x0050, text=» EXTRN SEG:DS DISC SECTOR ADDRESS «, t00=0x0002, t01=0x0156}
0x049c…04c4 Head {h00=0x0024, h01=0x0050, text=» EXTRN SEG:PB PAGE BLOCK ADDRESS«, t00=0x0002, t01=0x0180}
0x04c4…04e6 Head {h00=0x001e, h01=0x0050, text=» EXTRN TTB:AP ACB ADDRESS «, t00=0x0003, t01=0x0018}
0x04e6…0510 Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:PW PROGRAM STATUS WORD «, t00=0x0003, t01=0x003a}
0x0510…0534 Head {h00=0x0020, h01=0x0050, text=» EXTRN TTB:SA TTAB SAVE AREA«, t00=0x0003, t01=0x0064}
0x0534…0554 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0003, t01=0x0088}
0x0554…057e Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:CB CURRENT SEGMENT BASE«, t00=0x0003, t01=0x00a8}
0x057e…05aa Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SP SEGMENT TABLE ADDRESS «, t00=0x0003, t01=0x00d2}
0x05aa…05d6 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SB SEGMENT BLOCK ADDRESS «, t00=0x0003, t01=0x00fe}
0x05d6…060c Head {h00=0x0032, h01=0x0050, text=» EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK «, t00=0x0003, t01=0x012a}
0x060c…0636 Head {h00=0x0026, h01=0x0050, text=» EXTRN ACBMMP MMU TABLE PAGE ENTRY«, t00=0x0003, t01=0x0160}
0x0636…0662 Head {h00=0x0028, h01=0x0050, text=» EXTRN ACBNPE NUMBER OF PAGE ENTRIES«, t00=0x0003, t01=0x018a}
0x0662…0690 Head {h00=0x002a, h01=0x0050, text=» EXTRN ACBLAP LOGICAL ADDRESS OF PAGES«, t00=0x0004, t01=0x0026}
0x0690…06a8 Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x0004, t01=0x0054}
0x06a8…06b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006c}
0x06b2…06bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0076}
0x06bc…06ee Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0004, t01=0x0080}
0x06ee…06f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b2}
0x06f8…0716 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x00bc}
0x0716…0720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00da}
0x0720…0752 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0004, t01=0x00e4}
0x0752…075c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0116}
0x075c…078e Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0004, t01=0x0120}
0x078e…07bc Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0004, t01=0x0152}
0x07bc…07c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0180}
0x07c6…07da Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0004, t01=0x018a}
0x07da…07e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000e}
0x07e4…07ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0018}
0x07ee…0828 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0005, t01=0x0022}
0x0828…085a Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0005, t01=0x005c}
0x085a…0864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008e}
0x0864…0878 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0005, t01=0x0098}
0x0878…0882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ac}
0x0882…088c Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x00b6}
0x088c…08be Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0005, t01=0x00c0}
0x08be…08ec Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0005, t01=0x00f2}
0x08ec…08f6 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x0120}
0x08f6…090a Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 0«, t00=0x0005, t01=0x012a}
0x090a…0914 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x013e}
0x0914…092c Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x0005, t01=0x0148}
0x092c…0936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0160}
0x0936…0940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x016a}
0x0940…0952 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0005, t01=0x0174}
0x0952…0964 Head {h00=0x000e, h01=0x0050, text=»* TLDSEG *«, t00=0x0005, t01=0x0186}
0x0964…0976 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0006, t01=0x0008}
0x0976…0980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001a}
0x0980…098a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0024}
0x098a…09be Head {h00=0x0030, h01=0x0050, text=»* THIS IS THE LOAD SEGMENT LKM PROCESSOR. «, t00=0x0006, t01=0x002e}
0x09be…09c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0062}
0x09c8…09f6 Head {h00=0x002a, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0006, t01=0x006c}
0x09f6…0a20 Head {h00=0x0026, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS:«, t00=0x0006, t01=0x009a}
0x0a20…0a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c4}
0x0a2a…0a4c Head {h00=0x001e, h01=0x0050, text=»* A2 = DISPATCH ADDRESS «, t00=0x0006, t01=0x00ce}
0x0a4c…0a6a Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0006, t01=0x00f0}
0x0a6a…0a8a Head {h00=0x001c, h01=0x0050, text=»* A7 = SEGMENT NUMBER «, t00=0x0006, t01=0x010e}
0x0a8a…0a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012e}
0x0a94…0ac0 Head {h00=0x0028, h01=0x0050, text=»* IT RETURNS TO CALLING TASK WITH «, t00=0x0006, t01=0x0138}
0x0ac0…0ae6 Head {h00=0x0022, h01=0x0050, text=»* THE FOLLOWING PARAMETERS: «, t00=0x0006, t01=0x0164}
0x0ae6…0af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018a}
0x0af0…0b32 (7, 0, 400) Head {h00=0x003e, h01=0x0050, text=»* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE «, t00=0x0007, t01=0x0004}
0x0b32…0b5c Head {h00=0x0026, h01=0x0050, text=»* A7 = -1 IF REQUEST ERROR, ELSE«, t00=0x0007, t01=0x0046}
0x0b5c…0b88 Head {h00=0x0028, h01=0x0050, text=»* A7 = -2 IF DISC I/O ERROR, ELSE «, t00=0x0007, t01=0x0070}
0x0b88…0bb0 Head {h00=0x0024, h01=0x0050, text=»* A7 = -3 IF DISC NOT OPERABLE«, t00=0x0007, t01=0x009c}
0x0bb0…0bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c4}
0x0bba…0bf0 Head {h00=0x0032, h01=0x0050, text=»* WHEN REQUESTED SEGMENT IS ALREADY IN CORE:«, t00=0x0007, t01=0x00ce}
0x0bf0…0c30 Head {h00=0x003c, h01=0x0050, text=»* THE REQUEST WILL NOT GO THROUGH THE DISPATCHER AFTER«, t00=0x0007, t01=0x0104}
0x0c30…0c72 Head {h00=0x003e, h01=0x0050, text=»* COMPLETION, THUS NO TASK SWITCHING WILL BE PERFORMED, «, t00=0x0007, t01=0x0144}
0x0c72…0cb2 Head {h00=0x003c, h01=0x0050, text=»* IN PURPOSE TO MAKE THE REQUEST AS FAST AS POSSIBLE. «, t00=0x0007, t01=0x0186}
0x0cb2…0cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0036}
0x0cbc…0cfa Head {h00=0x003a, h01=0x0050, text=»* WHEN REQUESTED SEGMENT IS NOT IN CORE TLDSEG WILL «, t00=0x0008, t01=0x0040}
0x0cfa…0d38 Head {h00=0x003a, h01=0x0050, text=»* ACTIVATE LDTASK WHICH WILL LOAD SEGMENT INTO CORE.«, t00=0x0008, t01=0x007e}
0x0d38…0d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00bc}
0x0d42…0d4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c6}
0x0d4c…0d64 Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x0008, t01=0x00d0}
0x0d64…0d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e8}
0x0d6e…0d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f2}
0x0d78…0d9a Head {h00=0x001e, h01=0x0050, text=»TLDSEG EQU * LOAD SEGMENT «, t00=0x0008, t01=0x00fc}
0x0d9a…0db0 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x0008, t01=0x011e}
0x0db0…0dde Head {h00=0x002a, h01=0x0050, text=» LD A3,TTB:SB,A5 SEGMENT BLOCK ADDRESS«, t00=0x0008, t01=0x0134}
0x0dde…0dfe Head {h00=0x001c, h01=0x0050, text=» RF(Z) TLDS00 NO SEGMENT«, t00=0x0008, t01=0x0162}
0x0dfe…0e20 Head {h00=0x001e, h01=0x0050, text=» LCR A4,A3 SEGMENT STATUS «, t00=0x0008, t01=0x0182}
0x0e20…0e50 Head {h00=0x002c, h01=0x0050, text=» ANK A4,/1E CHECK IF CORE RESIDENT OR...«, t00=0x0009, t01=0x0014}
0x0e50…0e86 Head {h00=0x0032, h01=0x0050, text=» RF(NZ) TLDS00 ...USED BY AN INTERRUPTED TASK «, t00=0x0009, t01=0x0044}
0x0e86…0e90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x007a}
0x0e90…0ebc Head {h00=0x0028, h01=0x0050, text=»* INSERT PAGE BLOCK IN PAGE QUEUE «, t00=0x0009, t01=0x0084}
0x0ebc…0ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b0}
0x0ec6…0eea Head {h00=0x0020, h01=0x0050, text=» CF A15,RELPAG RELEASE PAGE «, t00=0x0009, t01=0x00ba}
0x0eea…0f06 Head {h00=0x0018, h01=0x0050, text=» LD A4,TTB:PW,A5 PSW«, t00=0x0009, t01=0x00de}
0x0f06…0f30 Head {h00=0x0026, h01=0x0050, text=» ST A4,-2,A15 RESTORE PSW ON STACK«, t00=0x0009, t01=0x00fa}
0x0f30…0f3c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x0124}
0x0f3c…0f46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0130}
0x0f46…0f70 Head {h00=0x0026, h01=0x0050, text=»* CHECK VALIDITY OF SEGMENT NUMBER«, t00=0x0009, t01=0x013a}
0x0f70…0f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0164}
0x0f7a…0f8e Head {h00=0x0010, h01=0x0050, text=»TLDS00 EQU *«, t00=0x0009, t01=0x016e}
0x0f8e…0fb6 Head {h00=0x0024, h01=0x0050, text=» LD A3,TTB:SP,A5 SEGTAB ADDRESS «, t00=0x0009, t01=0x0182}
0x0fb6…0fe4 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A7 CHECK IF SEGMENT NUMBER < 0«, t00=0x000a, t01=0x001a}
0x0fe4…1008 Head {h00=0x0020, h01=0x0050, text=» RF(N) TLDERR REQUEST ERROR «, t00=0x000a, t01=0x0048}
0x1008…1040 Head {h00=0x0034, h01=0x0050, text=» CW A1,SEG:NS,A3 CHECK IF SEGMENT NUMBER TOO BIG«, t00=0x000a, t01=0x006c}
0x1040…105a Head {h00=0x0016, h01=0x0050, text=» RF(NG) TLDS03 OK «, t00=0x000a, t01=0x00a4}
0x105a…1064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00be}
0x1064…108c Head {h00=0x0024, h01=0x0050, text=»TLDERR LDK A6,/FF INDICATE ERROR«, t00=0x000a, t01=0x00c8}
0x108c…10bc Head {h00=0x002c, h01=0x0050, text=» ABL LKM030 BRANCH TO LKM REQUEST ERROR «, t00=0x000a, t01=0x00f0}
0x10bc…10c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0120}
0x10c6…10de Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x000a, t01=0x012a}
0x10de…10e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0142}
0x10e8…110c Head {h00=0x0020, h01=0x0050, text=»* GET SEGMENT BLOCK ADDRESS «, t00=0x000a, t01=0x014c}
0x110c…1116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0170}
0x1116…112a Head {h00=0x0010, h01=0x0050, text=»TLDS03 EQU *«, t00=0x000a, t01=0x017a}
0x112a…115a Head {h00=0x002c, h01=0x0050, text=» SLL A1,3 ADJUST FOR INDEXING IN SEGTAB «, t00=0x000a, t01=0x018e}
0x115a…1180 Head {h00=0x0022, h01=0x0050, text=» ADR A1,A3 ADD SEGTAB ADDRESS «, t00=0x000b, t01=0x002e}
0x1180…11a4 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A5 GET TTAB ADDRESS «, t00=0x000b, t01=0x0054}
0x11a4…11ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0078}
0x11ae…11c4 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=0 «, t00=0x000b, t01=0x0082}
0x11c4…11ec Head {h00=0x0024, h01=0x0050, text=» SUKL A15,4 ADJUST STACKPOINTER «, t00=0x000b, t01=0x0098}
0x11ec…121e Head {h00=0x002e, h01=0x0050, text=» ST A2,4,A15 SET DISPATCH ADDRESS ON STACK«, t00=0x000b, t01=0x00c0}
0x121e…122a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00f2}
0x122a…1234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00fe}
0x1234…125a Head {h00=0x0022, h01=0x0050, text=» ADK A7,0 CHECK SEGMENT NUMBER«, t00=0x000b, t01=0x0108}
0x125a…127e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TLDS05 NOT SEGMENT 0«, t00=0x000b, t01=0x012e}
0x127e…12b2 Head {h00=0x0030, h01=0x0050, text=» ST A7,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS«, t00=0x000b, t01=0x0152}
0x12b2…12ec Head {h00=0x0036, h01=0x0050, text=» LD A1,SEG:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 «, t00=0x000b, t01=0x0186}
0x12ec…12f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0030}
0x12f6…130c Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000c, t01=0x003a}
0x130c…1334 Head {h00=0x0024, h01=0x0050, text=» SUKL A15,4 ADJUST STACKPOINTER «, t00=0x000c, t01=0x0050}
0x1334…1366 Head {h00=0x002e, h01=0x0050, text=» ST A2,4,A15 SET DISPATCH ADDRESS ON STACK«, t00=0x000c, t01=0x0078}
0x1366…1372 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00aa}
0x1372…1384 Head {h00=0x000e, h01=0x0050, text=» RF TLDS40«, t00=0x000c, t01=0x00b6}
0x1384…138e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c8}
0x138e…13a6 Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x000c, t01=0x00d2}
0x13a6…13b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ea}
0x13b0…13ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f4}
0x13ba…13ce Head {h00=0x0010, h01=0x0050, text=»TLDS05 EQU *«, t00=0x000c, t01=0x00fe}
0x13ce…13e4 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000c, t01=0x0112}
0x13e4…141a Head {h00=0x0032, h01=0x0050, text=» ST A1,TTB:SB,A3 UPDATE SEGMENT BLOCK ADDRESS «, t00=0x000c, t01=0x0128}
0x141a…1440 Head {h00=0x0022, h01=0x0050, text=» LDR* A4,A1 GET SEGMENT STATUS«, t00=0x000c, t01=0x015e}
0x1440…146c Head {h00=0x0028, h01=0x0050, text=» RF(N) TLDS10 SEGMENT LOADED IN CORE«, t00=0x000c, t01=0x0184}
0x146c…1484 Head {h00=0x0014, h01=0x0050, text=» ST A2,TTB:SA,A3«, t00=0x000d, t01=0x0020}
0x1484…1494 Head {h00=0x000c, h01=0x0050, text=» CM PRUN«, t00=0x000d, t01=0x0038}
0x1494…149e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0048}
0x149e…14ba Head {h00=0x0018, h01=0x0050, text=»* ACTIVATE LOAD TASK«, t00=0x000d, t01=0x0052}
0x14ba…14c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x006e}
0x14c4…14fe Head {h00=0x0036, h01=0x0050, text=» CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK «, t00=0x000d, t01=0x0078}
0x14fe…1522 Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER «, t00=0x000d, t01=0x00b2}
0x1522…152c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d6}
0x152c…1540 Head {h00=0x0010, h01=0x0050, text=»TLDS10 EQU *«, t00=0x000d, t01=0x00e0}
0x1540…1568 Head {h00=0x0024, h01=0x0050, text=» SUKL A15,4 ADJUST STACKPOINTER «, t00=0x000d, t01=0x00f4}
0x1568…159a Head {h00=0x002e, h01=0x0050, text=» ST A2,4,A15 SET DISPATCH ADDRESS ON STACK«, t00=0x000d, t01=0x011c}
0x159a…15a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014e}
0x15a4…15bc Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x000d, t01=0x0158}
0x15bc…15c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0170}
0x15c6…15d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017a}
0x15d0…15e2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x0184}
0x15e2…15f4 Head {h00=0x000e, h01=0x0050, text=»* TLSEG1 *«, t00=0x000e, t01=0x0008}
0x15f4…1606 Head {h00=0x000e, h01=0x0050, text=»* TLSEG2 *«, t00=0x000e, t01=0x001a}
0x1606…1618 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x002c}
0x1618…1622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003e}
0x1622…162c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0048}
0x162c…166e Head {h00=0x003e, h01=0x0050, text=»* ENTRIES USED BY LDTASK IN PURPOSE TO REMOVE PAGE BLOCK«, t00=0x000e, t01=0x0052}
0x166e…16b2 Head {h00=0x0040, h01=0x0050, text=»* FROM PAGQUE, UPDATE CURRENT SEGMENT BASE AND MMU TABLE. «, t00=0x000e, t01=0x0094}
0x16b2…16bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d8}
0x16bc…16ce Head {h00=0x000e, h01=0x0050, text=»* INPUT:«, t00=0x000e, t01=0x00e2}
0x16ce…16f6 Head {h00=0x0024, h01=0x0050, text=»* TLSEG1: A1 = SEGBLK ADDRESS «, t00=0x000e, t01=0x00f4}
0x16f6…1728 Head {h00=0x002e, h01=0x0050, text=»* A3 = TTAB ADDRESS CALLING TASK«, t00=0x000e, t01=0x011c}
0x1728…1758 Head {h00=0x002c, h01=0x0050, text=»* A5 = " " " "«, t00=0x000e, t01=0x014e}
0x1758…1762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x017e}
0x1762…178a Head {h00=0x0024, h01=0x0050, text=»* TLSEG2: A1 = PAGBLK ADDRESS «, t00=0x000e, t01=0x0188}
0x178a…17b6 Head {h00=0x0028, h01=0x0050, text=»* A3 = TTAB ADDRESS LDTASK«, t00=0x000f, t01=0x0020}
0x17b6…17e0 Head {h00=0x0026, h01=0x0050, text=»* A5 = " " " «, t00=0x000f, t01=0x004c}
0x17e0…17ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0076}
0x17ea…181c Head {h00=0x002e, h01=0x0050, text=»* OUTPUT: A1-A6 FROM TTAB SAVE AREA (A5)«, t00=0x000f, t01=0x0080}
0x181c…1826 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b2}
0x1826…1832 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00bc}
0x1832…183c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c8}
0x183c…1866 Head {h00=0x0026, h01=0x0050, text=»TLSEG1 EQU * ENTRY USED BY LDTASK «, t00=0x000f, t01=0x00d2}
0x1866…1892 Head {h00=0x0028, h01=0x0050, text=» LD A1,SEG:PB,A1 PAGE BLOCK ADDRESS «, t00=0x000f, t01=0x00fc}
0x1892…189c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0128}
0x189c…18b2 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000f, t01=0x0132}
0x18b2…18dc Head {h00=0x0026, h01=0x0050, text=» LDR* A2,A1 GET QUEUE LINK FORWARD«, t00=0x000f, t01=0x0148}
0x18dc…190a Head {h00=0x002a, h01=0x0050, text=» RF(Z) TLSEG2 PAGE BLOCK NOT IN QUEUE «, t00=0x000f, t01=0x0172}
0x190a…193a Head {h00=0x002c, h01=0x0050, text=» LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD«, t00=0x0010, t01=0x0010}
0x193a…1972 Head {h00=0x0034, h01=0x0050, text=» CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK «, t00=0x0010, t01=0x0040}
0x1972…1998 Head {h00=0x0022, h01=0x0050, text=» STR A2,A4 UPDATE QUEUE LINKS «, t00=0x0010, t01=0x0078}
0x1998…19b0 Head {h00=0x0014, h01=0x0050, text=» ST A4,PAG:QB,A2«, t00=0x0010, t01=0x009e}
0x19b0…19bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00b6}
0x19bc…19c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c2}
0x19c6…19de Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x0010, t01=0x00cc}
0x19de…19e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e4}
0x19e8…1a18 Head {h00=0x002c, h01=0x0050, text=»* GET PAGE ADDRESS OF REQUESTED SEGMENT «, t00=0x0010, t01=0x00ee}
0x1a18…1a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x011e}
0x1a22…1a4c Head {h00=0x0026, h01=0x0050, text=»TLSEG2 EQU * ENTRY USED BY LDTASK «, t00=0x0010, t01=0x0128}
0x1a4c…1a76 Head {h00=0x0026, h01=0x0050, text=» LD A1,PAG:PA,A1 GET PAGE ADDRESS «, t00=0x0010, t01=0x0152}
0x1a76…1a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x017c}
0x1a80…1a96 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0010, t01=0x0186}
0x1a96…1aa8 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A1«, t00=0x0011, t01=0x000c}
0x1aa8…1abc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FC «, t00=0x0011, t01=0x001e}
0x1abc…1ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0032}
0x1ac6…1afe Head {h00=0x0034, h01=0x0050, text=»* GET PAGE ENTRY/ENTRIES TO UPDATE IN MMU TABLE «, t00=0x0011, t01=0x003c}
0x1afe…1b08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0074}
0x1b08…1b2c Head {h00=0x0020, h01=0x0050, text=» LD A6,TTB:AP,A5 ACB ADDRESS«, t00=0x0011, t01=0x007e}
0x1b2c…1b64 Head {h00=0x0034, h01=0x0050, text=» AD A3,ACBMMP,A6 POINT TO FIRST USED PAGE ENTRY «, t00=0x0011, t01=0x00a2}
0x1b64…1b98 Head {h00=0x0030, h01=0x0050, text=» LD A4,ACBNPE,A6 GET NUMBER OF PAGE ENTRIES «, t00=0x0011, t01=0x00da}
0x1b98…1ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010e}
0x1ba2…1bc6 Head {h00=0x0020, h01=0x0050, text=»* UPDATE PAGE ENTRY/ENTRIES «, t00=0x0011, t01=0x0118}
0x1bc6…1bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x013c}
0x1bd0…1be4 Head {h00=0x0010, h01=0x0050, text=»TLDS25 EQU *«, t00=0x0011, t01=0x0146}
0x1be4…1c08 Head {h00=0x0020, h01=0x0050, text=» SCR A2,A3 UPDATE PAGE ENTRY«, t00=0x0011, t01=0x015a}
0x1c08…1c1a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0011, t01=0x017e}
0x1c1a…1c46 Head {h00=0x0028, h01=0x0050, text=» RF(NP) TLDS30 NO MORE PAGE ENTRIES «, t00=0x0011, t01=0x0190}
0x1c46…1c70 Head {h00=0x0026, h01=0x0050, text=» ADK A3,2 POINT TO NEXT PAGE ENTRY«, t00=0x0012, t01=0x002c}
0x1c70…1c96 Head {h00=0x0022, h01=0x0050, text=» ADK A2,4 UPDATE PAGE ADDRESS «, t00=0x0012, t01=0x0056}
0x1c96…1ca8 Head {h00=0x000e, h01=0x0050, text=» RB TLDS25«, t00=0x0012, t01=0x007c}
0x1ca8…1cb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x008e}
0x1cb2…1cca Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x0012, t01=0x0098}
0x1cca…1cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b0}
0x1cd4…1cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ba}
0x1cde…1d16 Head {h00=0x0034, h01=0x0050, text=»TLDS30 ANKL A1,/300 COMPUTE CURRENT SEGMENT BASE«, t00=0x0012, t01=0x00c4}
0x1d16…1d28 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0012, t01=0x00fc}
0x1d28…1d40 Head {h00=0x0014, h01=0x0050, text=» OR A1,ACBLAP,A6«, t00=0x0012, t01=0x010e}
0x1d40…1d68 Head {h00=0x0024, h01=0x0050, text=» TL TTB:MT,A5 LOAD MMU REGISTERS«, t00=0x0012, t01=0x0126}
0x1d68…1d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014e}
0x1d72…1d86 Head {h00=0x0010, h01=0x0050, text=»TLDS40 EQU *«, t00=0x0012, t01=0x0158}
0x1d86…1dbc Head {h00=0x0032, h01=0x0050, text=» ES* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE «, t00=0x0012, t01=0x016c}
0x1dbc…1dc8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0012}
0x1dc8…1dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x001e}
0x1dd2…1de8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x0028}
0x1de8…1dfc Head {h00=0x0010, h01=0x0050, text=»TLDS40 EQU *«, t00=0x0013, t01=0x003e}
0x1dfc…1e32 Head {h00=0x0032, h01=0x0050, text=» ST* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE «, t00=0x0013, t01=0x0052}
0x1e32…1e3e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0088}
0x1e3e…1e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0094}
0x1e48…1e5e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0013, t01=0x009e}
0x1e5e…1e70 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A5«, t00=0x0013, t01=0x00b4}
0x1e70…1e98 Head {h00=0x0024, h01=0x0050, text=» ML 6,TTB:SA+2,A6 RESTORE A1-A6 «, t00=0x0013, t01=0x00c6}
0x1e98…1ec0 Head {h00=0x0024, h01=0x0050, text=» RTN A15 RETURN TO CALLING TASK «, t00=0x0013, t01=0x00ee}
0x1ec0…1ecc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0116}
0x1ecc…1ed6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0122}
0x1ed6…1eec Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0013, t01=0x012c}
0x1eec…1f14 Head {h00=0x0024, h01=0x0050, text=» LD A1,TTB:SA+2,A5 RESTORE A1-A6«, t00=0x0013, t01=0x0142}
0x1f14…1f2e Head {h00=0x0016, h01=0x0050, text=» LD A2,TTB:SA+4,A5«, t00=0x0013, t01=0x016a}
0x1f2e…1f48 Head {h00=0x0016, h01=0x0050, text=» LD A3,TTB:SA+6,A5«, t00=0x0013, t01=0x0184}
0x1f48…1f62 Head {h00=0x0016, h01=0x0050, text=» LD A4,TTB:SA+8,A5«, t00=0x0014, t01=0x000e}
0x1f62…1f7e Head {h00=0x0018, h01=0x0050, text=» LD A6,TTB:SA+12,A5 «, t00=0x0014, t01=0x0028}
0x1f7e…1f9a Head {h00=0x0018, h01=0x0050, text=» LD A5,TTB:SA+10,A5 «, t00=0x0014, t01=0x0044}
0x1f9a…1fc2 Head {h00=0x0024, h01=0x0050, text=» RTN A15 RETURN TO CALLING TASK «, t00=0x0014, t01=0x0060}
0x1fc2…1fce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0088}
0x1fce…1fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0094}
0x1fd8…1fe2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009e}
0x1fe2…1fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a8}
0x1fec…1ff8 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0014, t01=0x00b2}
0x1ff8…1ffc Head {h00=0x4004, h01=0x0000}
0x1ffc…2000 00 14 00 be ┆ ┆
0x2000…2008 (21, 1, 8) 20 04 00 00 00 15 00 04 ┆ ┆
0x2008…2058 (22, 0, 400) 47 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 50 48 59 53 49 43 41 4c 20 50 41 47 45 00 3d 01 84 00 24 00 50 5c 41 4e 4b 4c 5c 41 31 2c 2f 43 30 30 30 5c 47 52 45 41 54 45 52 20 54 48 41 4e 20 36 34 4b 3f 00 3e 00 24 00 16 00 50 5c 52 46 28 ┆GET ADDRESS TO PHYSICAL PAGE = $ P ANKL A1,/C000 GREATER THAN 64K? > $ P RF(┆
0x2058…20a8 5a 29 5c 41 50 3a 33 35 33 5c 4e 4f 21 20 00 3e 00 4c 00 20 00 50 5c 4c 44 4b 5c 41 31 2c 30 5c 55 50 50 45 52 20 4c 49 4d 49 54 20 36 34 20 4b 42 20 00 3e 00 66 00 0e 00 50 5c 52 46 5c 41 50 3a 33 35 34 00 3e 00 8a 00 10 00 50 41 50 3a 33 ┆Z) AP:353 NO! > L P LDK A1,0 UPPER LIMIT 64 KB > f P RF AP:354 > PAP:3┆
0x20a8…20f8 35 33 5c 45 51 55 5c 2a 00 3e 00 9c 00 24 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 36 5c 47 45 54 20 50 48 59 53 49 43 41 4c 20 41 44 44 52 45 53 53 00 3e 00 b0 00 0e 00 50 5c 53 4c 4c 5c 41 31 2c 32 20 00 3e 00 d8 00 20 00 50 5c 41 44 52 5c 41 ┆53 EQU * > $ P LDR* A1,A6 GET PHYSICAL ADDRESS > P SLL A1,2 > P ADR A┆
0x20f8…2148 31 2c 41 34 5c 41 44 44 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 20 00 3e 00 ea 00 28 00 50 5c 4c 44 5c 41 32 2c 53 43 54 53 46 41 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 46 52 45 45 20 41 52 45 41 00 3e 01 0e 00 28 00 50 5c 54 4e 4d 5c 41 ┆1,A4 ADD DISPLACEMENT > ( P LD A2,SCTSFA GET START OF FREE AREA > ( P TNM A┆
0x2148…2198 31 2c 41 32 5c 4f 4e 20 53 41 4d 45 20 53 49 44 45 20 4f 46 20 33 32 4b 2d 4c 49 4d 49 54 00 3e 01 3a 00 18 00 50 5c 52 46 28 4e 4e 29 5c 41 50 33 35 33 32 5c 59 45 53 21 20 00 3e 01 66 00 0e 00 50 5c 43 57 52 5c 41 32 2c 41 31 00 3e 01 82 ┆1,A2 ON SAME SIDE OF 32K-LIMIT > : P RF(NN) AP3532 YES! > f P CWR A2,A1 > ┆
0x2198…21a0 (23, 0, 8) 24 88 24 98 24 a0 24 a8 ┆$ $ $ $ ┆
0x21a0…21f0 (24, 0, 400) 00 32 00 50 5c 49 44 45 4e 54 20 54 49 4f 41 44 4d 20 5c 50 52 52 20 31 31 2e 30 20 38 30 2d 31 31 2d 31 39 20 38 37 30 31 30 35 30 34 31 31 30 30 20 00 00 00 04 00 04 00 50 00 00 00 3a 00 06 00 50 2a 20 00 00 00 42 00 34 00 50 2a 2a 2a 2a ┆ 2 P IDENT TIOADM PRR 11.0 80-11-19 870105041100 P : P* B 4 P****┆
0x21f0…2240 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 20 00 00 00 4c 00 06 00 50 2a 20 00 00 00 84 00 2e 00 50 2a 20 20 20 54 49 4f 41 44 4d 20 20 20 54 4f 53 53 20 ┆******************************************* L P* . P* TIOADM TOSS ┆
0x2240…2290 41 42 52 49 44 47 45 44 20 44 41 54 41 20 4d 41 4e 41 47 45 4d 45 4e 54 00 00 00 8e 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 43 54 49 56 41 54 49 4f 4e 20 4d 4f 44 55 4c 45 00 00 00 c0 00 06 00 50 2a 20 00 00 00 e6 00 34 00 50 ┆ABRIDGED DATA MANAGEMENT " P* ACTIVATION MODULE P* 4 P┆
0x2290…22e0 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 20 00 00 00 f0 00 06 00 50 2a 20 00 00 01 28 00 06 00 50 2a 20 00 00 01 32 00 20 00 50 2a 20 20 20 ┆*********************************************** P* ( P* 2 P* ┆
0x22e0…2330 49 4e 50 55 54 20 3a 20 41 36 20 3d 20 46 44 42 20 41 44 44 52 45 53 53 00 00 01 3c 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 41 38 20 3d 20 45 43 42 20 41 44 44 52 45 53 53 00 00 01 60 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 41 ┆INPUT : A6 = FDB ADDRESS < P* A8 = ECB ADDRESS ` P* A┆
0x2330…2380 (25, 0, 400) 31 34 20 3d 20 53 54 41 43 4b 20 42 41 53 45 20 00 00 01 84 00 06 00 50 2a 20 00 01 00 18 00 24 00 50 2a 20 20 20 4f 55 54 50 55 54 3a 20 41 32 3d 44 49 53 50 41 54 43 48 20 41 44 44 52 45 53 53 20 00 01 00 22 00 06 00 50 2a 20 00 01 00 4a ┆14 = STACK BASE P* $ P* OUTPUT: A2=DISPATCH ADDRESS " P* J┆
0x2380…23d0 00 12 00 50 5c 45 4a 45 43 54 5c 5c 54 49 4f 41 44 4d 00 01 00 54 00 06 00 50 2a 20 00 01 00 6a 00 06 00 50 2a 20 00 01 00 74 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 01 00 7e 00 14 00 50 2a 20 20 20 45 4e 54 52 59 20 ┆ P EJECT TIOADM T P* j P* t P**************** ~ P* ENTRY ┆
0x23d0…2420 20 20 20 20 20 2a 00 01 00 96 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 01 00 ae 00 06 00 50 2a 20 00 01 00 c6 00 06 00 50 2a 20 00 01 00 d0 00 24 00 50 5c 45 4e 54 52 59 5c 54 49 4f 41 44 4d 5c 41 43 54 49 56 41 54 49 ┆ * P**************** P* P* $ P ENTRY TIOADM ACTIVATI┆
0x2420…2470 4f 4e 20 41 44 44 52 45 53 53 00 01 00 da 00 06 00 50 2a 20 00 01 01 02 00 12 00 50 5c 45 4a 45 43 54 5c 5c 54 49 4f 41 44 4d 00 01 01 0c 00 06 00 50 2a 20 00 01 01 22 00 06 00 50 2a 20 00 01 01 2c 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ON ADDRESS P* P EJECT TIOADM P* " P* , P**********┆
0x2470…24c0 2a 2a 2a 2a 2a 2a 00 01 01 36 00 14 00 50 2a 20 20 20 45 58 54 45 52 4e 41 4c 53 20 20 2a 00 01 01 4e 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 01 01 66 00 06 00 50 2a 20 00 01 01 7e 00 10 00 50 5c 45 58 54 52 4e 5c 44 ┆****** 6 P* EXTERNALS * N P**************** f P* ~ P EXTRN D┆
0x24c0…2510 (26, 0, 400) 57 54 4f 52 00 01 01 88 00 12 00 50 5c 45 58 54 52 4e 5c 44 57 54 54 41 42 20 00 02 00 0c 00 1e 00 50 5c 45 58 54 52 4e 5c 46 50 42 3a 42 46 5c 42 4c 4f 43 4b 20 46 41 43 54 4f 52 00 02 00 22 00 1e 00 50 5c 45 58 54 52 4e 5c 46 50 42 3a 42 ┆WTOR P EXTRN DWTTAB P EXTRN FPB:BF BLOCK FACTOR " P EXTRN FPB:B┆
0x2510…2560 4f 5c 54 4f 53 53 20 4f 50 54 49 4f 4e 20 00 02 00 44 00 20 00 50 5c 45 58 54 52 4e 5c 46 50 42 3a 45 4c 5c 45 4e 4c 41 52 47 45 20 46 41 43 54 4f 52 00 02 00 66 00 12 00 50 5c 45 58 54 52 4e 5c 44 49 53 49 4f 45 20 00 02 00 8a 00 10 00 50 ┆O TOSS OPTION D P EXTRN FPB:EL ENLARGE FACTOR f P EXTRN DISIOE P┆
0x2560…25b0 5c 45 58 54 52 4e 5c 45 43 42 42 41 00 02 00 a0 00 10 00 50 5c 45 58 54 52 4e 5c 45 43 42 52 4c 00 02 00 b4 00 12 00 50 5c 45 58 54 52 4e 5c 45 43 42 43 57 31 20 00 02 00 c8 00 12 00 50 5c 45 58 54 52 4e 5c 45 43 42 43 57 32 20 00 02 00 de ┆ EXTRN ECBBA P EXTRN ECBRL P EXTRN ECBCW1 P EXTRN ECBCW2 ┆
0x25b0…2600 00 24 00 50 5c 45 58 54 52 4e 5c 46 50 42 3a 46 4f 5c 46 49 4c 45 20 4f 52 47 41 4e 49 53 41 54 49 4f 4e 20 00 02 00 f4 00 20 00 50 5c 45 58 54 52 4e 5c 46 50 42 3a 52 4c 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 00 02 01 1c 00 22 00 50 ┆ $ P EXTRN FPB:FO FILE ORGANISATION P EXTRN FPB:RL RECORD LENGTH " P┆
0x2600…2650 5c 45 58 54 52 4e 5c 46 44 42 45 58 43 5c 45 58 43 4c 55 53 49 56 45 20 41 43 43 45 53 53 00 02 01 40 00 20 00 50 5c 45 58 54 52 4e 5c 46 44 42 52 4c 45 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 00 02 01 66 00 1c 00 50 5c 45 58 54 52 4e ┆ EXTRN FDBEXC EXCLUSIVE ACCESS @ P EXTRN FDBRLE RECORD LENGTH f P EXTRN┆
0x2650…26a0 (27, 0, 400) 5c 46 44 42 4f 4d 44 5c 4f 50 45 4e 20 4d 4f 44 45 20 00 02 01 8a 00 22 00 50 5c 45 58 54 52 4e 5c 44 4d 41 43 54 49 5c 41 43 54 49 56 41 54 45 20 44 4d 20 54 41 53 4b 00 03 00 1a 00 26 00 50 5c 45 58 54 52 4e 5c 44 4d 41 43 54 44 5c 41 43 ┆ FDBOMD OPEN MODE " P EXTRN DMACTI ACTIVATE DM TASK & P EXTRN DMACTD AC┆
0x26a0…26f0 54 49 56 41 54 45 20 44 4d 20 54 41 53 4b 20 23 44 20 00 03 00 40 00 12 00 50 5c 45 58 54 52 4e 5c 46 44 42 53 54 41 20 00 03 00 6a 00 12 00 50 5c 45 58 54 52 4e 5c 46 4e 44 46 44 42 20 00 03 00 80 00 12 00 50 5c 45 58 54 52 4e 5c 41 44 4d ┆TIVATE DM TASK #D @ P EXTRN FDBSTA j P EXTRN FNDFDB P EXTRN ADM┆
0x26f0…2740 54 53 4b 20 00 03 00 96 00 06 00 50 2a 20 00 03 00 ac 00 12 00 50 5c 45 4a 45 43 54 5c 5c 54 49 4f 41 44 4d 00 03 00 b6 00 06 00 50 2a 20 00 03 00 cc 00 06 00 50 2a 20 00 03 00 d6 00 22 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆TSK P* P EJECT TIOADM P* P* " P****************┆
0x2740…2790 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 03 00 e0 00 22 00 50 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 2a 20 00 03 01 06 00 22 00 50 2a 20 20 20 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 41 53 53 45 ┆************* " P* * " P* CONDITIONAL ASSE┆
0x2790…27e0 4d 42 4c 59 20 20 20 20 2a 20 00 03 01 2c 00 22 00 50 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 2a 20 00 03 01 52 00 22 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 ┆MBLY * , " P* * R " P************************┆
0x27e0…2830 (28, 0, 400) 2a 2a 2a 2a 2a 20 00 03 01 78 00 06 00 50 2a 20 00 04 00 0e 00 06 00 50 2a 20 00 04 00 18 00 28 00 50 2a 20 20 20 41 20 56 45 52 53 49 4f 4e 20 49 4e 43 4c 55 44 49 4e 47 20 4f 50 45 4e 45 4e 20 4d 4f 44 45 53 00 04 00 22 00 2c 00 50 2a 20 ┆***** x P* P* ( P* A VERSION INCLUDING OPENEN MODES " , P* ┆
0x2830…2880 20 20 45 58 54 45 4e 44 20 41 4e 44 20 4f 55 54 50 55 54 20 41 4e 44 20 43 4c 4f 53 45 20 44 49 53 43 41 52 44 20 00 04 00 4e 00 28 00 50 2a 20 20 20 49 53 20 4f 42 54 41 49 4e 45 44 20 42 59 20 53 45 54 54 49 4e 47 20 58 3a 41 20 45 51 55 ┆ EXTEND AND OUTPUT AND CLOSE DISCARD N ( P* IS OBTAINED BY SETTING X:A EQU┆
0x2880…28d0 20 31 00 04 00 7e 00 06 00 50 2a 20 00 04 00 aa 00 0e 00 50 58 3a 41 5c 45 51 55 5c 30 20 00 04 00 b4 00 12 00 50 43 52 44 45 45 58 5c 45 51 55 5c 58 3a 41 00 04 00 c6 00 06 00 50 2a 20 00 04 00 dc 00 10 00 50 4d 4d 55 50 41 47 5c 45 51 55 ┆ 1 ~ P* PX:A EQU 0 PCRDEEX EQU X:A P* PMMUPAG EQU┆
0x28d0…2920 5c 30 00 04 00 e6 00 06 00 50 2a 20 00 04 00 fa 00 12 00 50 5c 45 4a 45 43 54 5c 5c 54 49 4f 41 44 4d 00 04 01 04 00 06 00 50 2a 20 00 04 01 1a 00 06 00 50 2a 20 00 04 01 24 00 22 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 0 P* P EJECT TIOADM P* P* $ " P******************┆
0x2920…2970 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 04 01 2e 00 22 00 50 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 2a 00 04 01 54 00 22 00 50 2a 20 20 20 20 43 4f 4e 53 54 41 4e 54 53 20 20 20 20 20 20 20 20 ┆************ . " P* * T " P* CONSTANTS ┆