|
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: 9932 (0x26cc)
Notes: pts_type(SC)
Names: »TLDSEG.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PTMON/TLDSEG.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PTMON/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 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 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 1«, 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 0«, t00=0x0005, t01=0x0098}
0x0878…0882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ac}
0x0882…088c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b6}
0x088c…08be Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0005, t01=0x00c0}
0x08be…08ec Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0005, t01=0x00f2}
0x08ec…08f6 Head {h00=0x0006, h01=0x0050, 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=0x0050, 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=0x0050, 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) 20 50 4f 49 4e 54 45 52 00 8d 01 6e 00 26 00 50 5c 43 57 5c 41 38 2c 50 4c 44 41 44 52 2b 53 54 4b 45 4e 44 5c 45 4e 44 20 4f 46 20 42 55 46 46 45 52 00 8e 00 10 00 16 00 50 5c 52 46 28 4e 45 29 5c 43 4f 52 3a 31 30 5c 4e 4f 21 00 8e 00 3a ┆ POINTER n & P CW A8,PLDADR+STKEND END OF BUFFER P RF(NE) COR:10 NO! :┆
0x2058…20a8 00 1c 00 50 5c 43 41 4c 4c 5c 52 45 41 44 43 5c 52 45 41 44 20 53 45 43 54 4f 52 20 00 8e 00 54 00 24 00 50 43 4f 52 3a 31 30 5c 4c 44 52 5c 41 34 2c 41 38 5c 53 54 41 52 54 20 4f 46 20 52 45 43 4f 52 44 00 8e 00 74 00 0c 00 50 5c 52 54 4e ┆ P CALL READC READ SECTOR T $ PCOR:10 LDR A4,A8 START OF RECORD t P RTN┆
0x20a8…20f8 5c 41 31 34 00 8e 00 9c 00 08 00 50 5c 58 49 46 00 8e 00 ac 00 16 00 50 5c 49 46 54 5c 43 46 54 45 53 54 2b 43 41 53 53 3d 32 00 8e 00 b8 00 10 00 50 43 4f 4e 3a 34 30 5c 45 51 55 5c 2a 00 8e 00 d2 00 22 00 50 5c 43 46 5c 41 31 34 2c 52 44 ┆ A14 P XIF P IFT CFTEST+CASS=2 PCON:40 EQU * " P CF A14,RD┆
0x20f8…2148 42 4c 4b 5c 52 45 41 44 20 4e 45 58 54 20 42 4c 4f 43 4b 20 00 8e 00 e6 00 18 00 50 5c 4c 44 52 5c 41 31 2c 41 31 5c 54 41 50 45 4d 41 52 4b 3f 00 8e 01 0c 00 18 00 50 5c 41 42 4c 28 4e 5a 29 5c 43 4f 4e 45 58 5c 59 45 53 21 20 00 8e 01 28 ┆BLK READ NEXT BLOCK P LDR A1,A1 TAPEMARK? P ABL(NZ) CONEX YES! (┆
0x2148…2198 00 0e 00 50 5c 4c 44 52 5c 41 38 2c 41 39 00 8e 01 44 00 22 00 50 5c 4c 44 52 5c 41 34 2c 41 38 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 42 55 46 46 45 52 00 8e 01 56 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 8e 01 7c 00 08 00 50 5c 58 49 46 ┆ P LDR A8,A9 D " P LDR A4,A8 GET START OF BUFFER V P RTN A14 | P XIF┆
0x2198…219a (23, 0, 2) 0e c0 ┆ ┆
0x219a…21ea (24, 0, 400) 00 4a 00 46 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 54 4d 4d 4c 4b 4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 4c 20 31 31 2e 30 20 38 31 2d 30 31 2d 32 36 20 38 37 30 31 30 35 30 34 31 31 30 30 00 00 00 04 00 1e ┆ J F IDENT TMMLKM REL 11.0 81-01-26 870105041100 ┆
0x21ea…223a 00 1a 01 0c c4 54 43 48 50 41 47 4b c4 54 43 48 4d 4d 55 00 c4 54 4c 55 53 45 47 c4 00 00 00 52 00 10 00 0c 05 05 dc 54 43 48 50 41 47 4b 00 00 00 00 00 74 00 0e 00 0a 02 04 c2 54 54 42 3a 4d 54 de 00 00 00 88 00 0e 00 0a 02 04 c2 4c 4b 4d ┆ TCHPAGK TCHMMU TLUSEG R TCHPAGK t TTB:MT LKM┆
0x223a…228a 51 44 49 d3 00 00 00 9a 00 10 00 0c 05 05 dc 54 43 48 4d 4d 55 00 00 14 00 00 00 ac 00 0e 00 0a 02 04 c2 46 4e 44 54 49 44 00 00 00 00 c0 00 2c 00 28 03 13 00 00 00 01 01 24 27 0f 97 1c 97 14 82 02 22 3f 3a 42 e2 5d 00 00 00 02 8f 20 00 00 ┆QDI TCHMMU FNDTID , ( $' "?:B ] ┆
0x228a…22da 00 04 f7 a1 00 00 00 06 12 00 00 00 00 d2 00 10 00 0c 05 05 dc 54 4c 55 53 45 47 c4 00 26 00 00 01 02 00 0e 00 0a 02 04 c2 54 54 42 3a 53 50 e0 00 00 01 16 00 0e 00 0a 02 04 c2 53 45 47 3a 4e 53 ff 00 00 01 28 00 2c 00 28 03 13 00 00 00 1b ┆ TLUSEG & TTB:SP SEG:NS ( , ( ┆
0x22da…232a 24 42 50 00 b8 48 00 00 00 02 b8 55 00 00 00 02 5f 16 84 54 00 00 00 08 83 1c 55 00 eb 50 00 00 00 0a 00 00 01 3a 00 0e 00 0a 02 04 c2 4c 4b 4d 52 51 45 4c 00 00 01 6a 00 2c 00 28 03 13 00 00 00 33 20 00 55 00 8f 20 00 00 00 0c 3b 43 93 10 ┆$BP H U _ T U P : LKMRQEL j , ( 3 U ;C ┆
0x232a…237a (25, 2, 122) e4 2c 24 08 5c 0e 84 20 02 00 80 82 54 00 ac 2d 5f 3e fc 10 00 00 01 7c 00 0e 00 0a 02 04 c2 52 45 4c 50 41 47 ff 00 01 00 1c 00 16 00 12 03 08 00 00 00 51 20 00 a4 2d f7 a1 00 00 00 0e 5f 48 00 01 00 2e 00 18 00 14 04 09 00 00 00 1b 50 18 ┆ ,$ T -_> | RELPAG Q - _H . P ┆
0x237a…23a4 00 2d 55 06 00 33 55 04 00 49 54 04 00 01 00 48 00 0e 00 0a 07 04 00 00 00 00 00 58 00 00 00 01 00 64 40 04 00 00 00 01 00 76 ┆ -U 3U IT H X d@ v┆
0x23a4…23ac (26, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x23ac…23fc (27, 0, 400) 45 47 41 4c 20 44 49 47 49 54 53 20 00 92 01 7a 00 24 00 50 5c 53 54 5c 41 35 2c 4e 44 45 56 43 4c 2b 53 54 4b 45 4e 44 5c 53 41 56 45 20 4e 55 4d 42 45 52 00 93 00 14 00 22 00 50 4e 4e 3a 35 30 5c 4c 43 52 5c 41 35 2c 41 34 5c 47 45 54 20 ┆EGAL DIGITS z $ P ST A5,NDEVCL+STKEND SAVE NUMBER " PNN:50 LCR A5,A4 GET ┆
0x23fc…244c 43 48 41 52 41 43 54 45 52 20 00 93 00 3c 00 20 00 50 5c 43 43 4b 5c 41 35 2c 27 3b 3b 27 5c 45 4e 44 20 4f 46 20 52 45 43 4f 52 44 3f 20 00 93 00 62 00 16 00 50 5c 52 46 28 4e 45 29 5c 43 4f 4e 45 52 52 5c 4e 4f 21 00 93 00 86 00 0c 00 50 ┆CHARACTER < P CCK A5,';;' END OF RECORD? b P RF(NE) CONERR NO! P┆
0x244c…249c 5c 52 54 4e 5c 41 31 34 00 93 00 a0 00 0a 00 50 5c 45 4a 45 43 54 00 93 00 b0 00 0c 00 50 41 41 5c 45 51 55 5c 2a 00 93 00 be 00 0e 00 50 5c 4c 44 4b 5c 41 33 2c 32 20 00 93 00 ce 00 10 00 50 41 41 3a 31 30 5c 45 51 55 5c 2a 20 00 93 00 e0 ┆ RTN A14 P EJECT PAA EQU * P LDK A3,2 PAA:10 EQU * ┆
0x249c…24ec 00 1c 00 50 5c 4c 43 52 5c 41 35 2c 41 34 5c 47 45 54 20 43 48 41 52 41 43 54 45 52 00 93 00 f4 00 2e 00 50 5c 43 43 4b 5c 41 35 2c 2f 33 30 33 30 5c 41 4c 50 48 41 2d 4e 55 4d 45 52 49 43 20 43 48 41 52 41 43 54 45 52 20 3c 33 30 3f 00 93 ┆ P LCR A5,A4 GET CHARACTER . P CCK A5,/3030 ALPHA-NUMERIC CHARACTER <30? ┆
0x24ec…253c 01 14 00 16 00 50 5c 52 46 28 4c 29 5c 43 4f 4e 45 52 52 5c 59 45 53 21 00 93 01 46 00 30 00 50 5c 43 43 4b 5c 41 35 2c 2f 33 39 33 39 5c 41 4c 50 48 41 2d 4e 55 4d 45 52 49 43 20 43 48 41 52 41 43 54 45 52 20 3e 20 33 39 3f 20 00 93 01 60 ┆ P RF(L) CONERR YES! F 0 P CCK A5,/3939 ALPHA-NUMERIC CHARACTER > 39? `┆
0x253c…258c (28, 0, 400) 00 16 00 50 5c 52 46 28 4e 47 29 5c 41 41 3a 32 30 5c 4e 4f 21 20 00 94 00 04 00 30 00 50 5c 43 43 4b 5c 41 35 2c 2f 34 31 34 31 5c 41 4c 50 48 41 2d 4e 55 4d 45 52 49 43 20 43 48 41 52 41 43 54 45 52 20 3c 20 34 31 3f 20 00 94 00 1e 00 12 ┆ P RF(NG) AA:20 NO! 0 P CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? ┆
0x258c…25dc 00 50 5c 52 46 28 4c 29 5c 43 4f 4e 45 52 52 20 00 94 00 52 00 30 00 50 5c 43 43 4b 5c 41 35 2c 2f 35 41 35 41 5c 41 4c 50 48 41 2d 4e 55 4d 45 52 49 43 20 43 48 41 52 41 43 54 45 52 20 3e 20 35 41 3f 20 00 94 00 68 00 12 00 50 5c 52 46 28 ┆ P RF(L) CONERR R 0 P CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? h P RF(┆
0x25dc…262c 47 29 5c 43 4f 4e 45 52 52 20 00 94 00 9c 00 10 00 50 41 41 3a 32 30 5c 45 51 55 5c 2a 20 00 94 00 b2 00 26 00 50 5c 41 44 4b 5c 41 34 2c 31 5c 49 4e 43 52 45 4d 45 4e 54 20 42 55 46 46 45 52 20 50 4f 49 4e 54 45 52 00 94 00 c6 00 0e 00 50 ┆G) CONERR PAA:20 EQU * & P ADK A4,1 INCREMENT BUFFER POINTER P┆
0x262c…267c 5c 53 55 4b 5c 41 33 2c 31 20 00 94 00 f0 00 12 00 50 5c 52 42 28 4e 5a 29 5c 41 41 3a 31 30 20 00 94 01 02 00 22 00 50 5c 4c 43 52 5c 41 35 2c 41 34 5c 47 45 54 20 4e 45 58 54 20 43 48 41 52 41 43 54 45 52 20 00 94 01 18 00 20 00 50 5c 43 ┆ SUK A3,1 P RB(NZ) AA:10 " P LCR A5,A4 GET NEXT CHARACTER P C┆
0x267c…26cc 43 4b 5c 41 35 2c 27 3b 3b 27 5c 45 4e 44 20 4f 46 20 52 45 43 4f 52 44 3f 20 00 94 01 3e 00 16 00 50 5c 52 46 28 4e 45 29 5c 43 4f 4e 45 52 52 5c 4e 4f 21 00 94 01 62 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 94 01 7c 00 0a 00 50 5c 45 4a 45 ┆CK A5,';;' END OF RECORD? > P RF(NE) CONERR NO! b P RTN A14 | P EJE┆