|
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: 7674 (0x1dfa)
Notes: pts_type(SC)
Names: »TLDSEG.SC«
└─⟦245262b9f⟧ Bits:30009679 Philips computer tape "600220"
└─⟦this⟧ »M:92SP/TLDSEG.SC«
└─⟦3a2bec7de⟧ Bits:30009687 Philips computer tape "600313"
└─⟦this⟧ »M:821/TLDSEG.SC«
└─⟦a25d6defe⟧ Bits:30009676 Philips computer tape "600210"
└─⟦this⟧ »M:92SP/TLDSEG.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »M:261/TLDSEG.SC«
IDENT TLDSEG REL 9.2 79-11-16 870105040920 * * ************************************************** * * 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 PAG:PA PAGE ADDRESS EXTRN SEG:DS DISC SECTOR ADDRESS EXTRN SEG:PB PAGE BLOCK ADDRESS EXTRN T:ACSB CURRENT SEGMENT BASE EXTRN TTB:SA TTAB SAVE AREA EXTRN TTB:MT MMU TABLE EXTRN TTB:SB SEGMENT BLOCK ADDRESS EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK EXTRN SCTSEG SEGTAB ADDRESS EXTRN SCTNOS NUMBER OF SEGMENTS EXTRN SCTMMP MMU TABLE PAGE ENTRY EXTRN SCTNPE NUMBER OF PAGE ENTRIES EXTRN SCTLAP LOGICAL ADDRESS OF PAGES EJECT TLDSEG * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 0 * * * A PROGRAM VERSION USING TOSS DISC PAGING * IS OBTAINED BY SETTING DSKPAG EQU 1. * DSKPAG EQU 1 * * * A PROGRAM VERSION USING TOSS ASSEMBLER OVERLAY * IS OBTAINED BY SETTING ASSOLY EQU 1. * ASSOLY 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 * A13 = T:A ADDRESS (FOR CREDIT APPLICATIONS) * * 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 LDR A1,A7 CHECK IF SEGMENT NUMBER < 0 RF(N) TLDERR REQUEST ERROR? CW A1,SCTNOS 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 * LDR A3,A5 GET TTAB ADDRESS SLL A1,3 ADJUST FOR INDEXING IN SEGTAB AD A1,SCTSEG ADD SEGTAB ADDRESS ADK A2,2 UPDATE DISPATCH 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 XIF * TLDS10 LD A1,SEG:PB,A1 GET PAGE BLOCK ADDRESS * IFT DSKPAG=1 SUKL A15,4 ADJUST STACKPOINTER ST A2,4,A15 SET DISPATCH ADDRESS ON STACK * * REMOVE PAGE BLOCK FROM PAGE QUEUE * XIF * TLDS15 EQU * ENTRY USED BY LDTASK IFT DSKPAG=1 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 * IFT ASSOLY=0 ES A1,T:ACSB,A13 UPDATE CURRENT SEGMENT BASE XIF * IFT MMUPAG=0 TLDS40 EQU * ST A1,T:ACSB,A13 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 9.2 79-11-16 870105040920 «, 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…0424 Head {h00=0x001e, h01=0x0050, text=» EXTRN PAG:PA PAGE ADDRESS«, t00=0x0002, t01=0x00e6}
0x0424…044e Head {h00=0x0026, h01=0x0050, text=» EXTRN SEG:DS DISC SECTOR ADDRESS «, t00=0x0002, t01=0x0108}
0x044e…0476 Head {h00=0x0024, h01=0x0050, text=» EXTRN SEG:PB PAGE BLOCK ADDRESS«, t00=0x0002, t01=0x0132}
0x0476…04a0 Head {h00=0x0026, h01=0x0050, text=» EXTRN T:ACSB CURRENT SEGMENT BASE«, t00=0x0002, t01=0x015a}
0x04a0…04c4 Head {h00=0x0020, h01=0x0050, text=» EXTRN TTB:SA TTAB SAVE AREA«, t00=0x0002, t01=0x0184}
0x04c4…04e4 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0003, t01=0x0018}
0x04e4…0510 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SB SEGMENT BLOCK ADDRESS «, t00=0x0003, t01=0x0038}
0x0510…0546 Head {h00=0x0032, h01=0x0050, text=» EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK «, t00=0x0003, t01=0x0064}
0x0546…056a Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTSEG SEGTAB ADDRESS«, t00=0x0003, t01=0x009a}
0x056a…0592 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTNOS NUMBER OF SEGMENTS«, t00=0x0003, t01=0x00be}
0x0592…05bc Head {h00=0x0026, h01=0x0050, text=» EXTRN SCTMMP MMU TABLE PAGE ENTRY«, t00=0x0003, t01=0x00e6}
0x05bc…05e8 Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTNPE NUMBER OF PAGE ENTRIES«, t00=0x0003, t01=0x0110}
0x05e8…0616 Head {h00=0x002a, h01=0x0050, text=» EXTRN SCTLAP LOGICAL ADDRESS OF PAGES«, t00=0x0003, t01=0x013c}
0x0616…062e Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x0003, t01=0x016a}
0x062e…0638 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0182}
0x0638…0642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x018c}
0x0642…0674 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0004, t01=0x0008}
0x0674…067e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x003a}
0x067e…069c Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x0044}
0x069c…06a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0062}
0x06a6…06d8 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0004, t01=0x006c}
0x06d8…06e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009e}
0x06e2…0714 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0004, t01=0x00a8}
0x0714…0742 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0004, t01=0x00da}
0x0742…074c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0108}
0x074c…0760 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0004, t01=0x0112}
0x0760…076a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0126}
0x076a…0774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0130}
0x0774…07ae Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0004, t01=0x013a}
0x07ae…07e0 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0004, t01=0x0174}
0x07e0…07ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0016}
0x07ea…07fe Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0005, t01=0x0020}
0x07fe…0808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0034}
0x0808…0812 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x003e}
0x0812…0844 Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0005, t01=0x0048}
0x0844…0872 Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0005, t01=0x007a}
0x0872…087c Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x00a8}
0x087c…0890 Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 1«, t00=0x0005, t01=0x00b2}
0x0890…089a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x00c6}
0x089a…08a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d0}
0x08a4…08dc Head {h00=0x0034, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS ASSEMBLER OVERLAY«, t00=0x0005, t01=0x00da}
0x08dc…090a Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING ASSOLY EQU 1.«, t00=0x0005, t01=0x0112}
0x090a…0914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0140}
0x0914…0928 Head {h00=0x0010, h01=0x0050, text=»ASSOLY EQU 0«, t00=0x0005, t01=0x014a}
0x0928…0932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x015e}
0x0932…094a Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x0005, t01=0x0168}
0x094a…0954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0180}
0x0954…095e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x018a}
0x095e…0970 (6, 0, 400) Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0006, t01=0x0004}
0x0970…0982 Head {h00=0x000e, h01=0x0050, text=»* TLDSEG *«, t00=0x0006, t01=0x0016}
0x0982…0994 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0006, t01=0x0028}
0x0994…099e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003a}
0x099e…09a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0044}
0x09a8…09dc Head {h00=0x0030, h01=0x0050, text=»* THIS IS THE LOAD SEGMENT LKM PROCESSOR. «, t00=0x0006, t01=0x004e}
0x09dc…09e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0082}
0x09e6…0a14 Head {h00=0x002a, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0006, t01=0x008c}
0x0a14…0a3e Head {h00=0x0026, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS:«, t00=0x0006, t01=0x00ba}
0x0a3e…0a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e4}
0x0a48…0a80 Head {h00=0x0034, h01=0x0050, text=»* A2 = DISPATCH ADDRESS (NOT UPDATED BY IHLKM)«, t00=0x0006, t01=0x00ee}
0x0a80…0a9e Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0006, t01=0x0126}
0x0a9e…0abe Head {h00=0x001c, h01=0x0050, text=»* A7 = SEGMENT NUMBER «, t00=0x0006, t01=0x0144}
0x0abe…0af4 Head {h00=0x0032, h01=0x0050, text=»* A13 = T:A ADDRESS (FOR CREDIT APPLICATIONS)«, t00=0x0006, t01=0x0164}
0x0af4…0afe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000a}
0x0afe…0b2a Head {h00=0x0028, h01=0x0050, text=»* IT RETURNS TO CALLING TASK WITH «, t00=0x0007, t01=0x0014}
0x0b2a…0b50 Head {h00=0x0022, h01=0x0050, text=»* THE FOLLOWING PARAMETERS: «, t00=0x0007, t01=0x0040}
0x0b50…0b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0066}
0x0b5a…0b9c Head {h00=0x003e, h01=0x0050, text=»* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE «, t00=0x0007, t01=0x0070}
0x0b9c…0bc6 Head {h00=0x0026, h01=0x0050, text=»* A7 = -1 IF REQUEST ERROR, ELSE«, t00=0x0007, t01=0x00b2}
0x0bc6…0bf2 Head {h00=0x0028, h01=0x0050, text=»* A7 = -2 IF DISC I/O ERROR, ELSE «, t00=0x0007, t01=0x00dc}
0x0bf2…0c1a Head {h00=0x0024, h01=0x0050, text=»* A7 = -3 IF DISC NOT OPERABLE«, t00=0x0007, t01=0x0108}
0x0c1a…0c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0130}
0x0c24…0c5a Head {h00=0x0032, h01=0x0050, text=»* WHEN REQUESTED SEGMENT IS ALREADY IN CORE:«, t00=0x0007, t01=0x013a}
0x0c5a…0c9a Head {h00=0x003c, h01=0x0050, text=»* THE REQUEST WILL NOT GO THROUGH THE DISPATCHER AFTER«, t00=0x0007, t01=0x0170}
0x0c9a…0cdc Head {h00=0x003e, h01=0x0050, text=»* COMPLETION, THUS NO TASK SWITCHING WILL BE PERFORMED, «, t00=0x0008, t01=0x0020}
0x0cdc…0d1c Head {h00=0x003c, h01=0x0050, text=»* IN PURPOSE TO MAKE THE REQUEST AS FAST AS POSSIBLE. «, t00=0x0008, t01=0x0062}
0x0d1c…0d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a2}
0x0d26…0d64 Head {h00=0x003a, h01=0x0050, text=»* WHEN REQUESTED SEGMENT IS NOT IN CORE TLDSEG WILL «, t00=0x0008, t01=0x00ac}
0x0d64…0da2 Head {h00=0x003a, h01=0x0050, text=»* ACTIVATE LDTASK WHICH WILL LOAD SEGMENT INTO CORE.«, t00=0x0008, t01=0x00ea}
0x0da2…0dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0128}
0x0dac…0db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0132}
0x0db6…0dce Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x0008, t01=0x013c}
0x0dce…0dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0154}
0x0dd8…0e02 Head {h00=0x0026, h01=0x0050, text=»* CHECK VALIDITY OF SEGMENT NUMBER«, t00=0x0008, t01=0x015e}
0x0e02…0e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0188}
0x0e0c…0e2e (9, 0, 398) Head {h00=0x001e, h01=0x0050, text=»TLDSEG EQU * LOAD SEGMENT «, t00=0x0009, t01=0x0004}
0x0e2e…0e5c Head {h00=0x002a, h01=0x0050, text=» LDR A1,A7 CHECK IF SEGMENT NUMBER < 0«, t00=0x0009, t01=0x0026}
0x0e5c…0e80 Head {h00=0x0020, h01=0x0050, text=» RF(N) TLDERR REQUEST ERROR?«, t00=0x0009, t01=0x0054}
0x0e80…0eb6 Head {h00=0x0032, h01=0x0050, text=» CW A1,SCTNOS CHECK IF SEGMENT NUMBER TOO BIG «, t00=0x0009, t01=0x0078}
0x0eb6…0ed0 Head {h00=0x0016, h01=0x0050, text=» RF(NG) TLDS00 OK?«, t00=0x0009, t01=0x00ae}
0x0ed0…0eda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c8}
0x0eda…0f02 Head {h00=0x0024, h01=0x0050, text=»TLDERR LDK A6,/FF INDICATE ERROR«, t00=0x0009, t01=0x00d2}
0x0f02…0f32 Head {h00=0x002c, h01=0x0050, text=» ABL LKM030 BRANCH TO LKM REQUEST ERROR «, t00=0x0009, t01=0x00fa}
0x0f32…0f3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012a}
0x0f3c…0f60 Head {h00=0x0020, h01=0x0050, text=»* GET SEGMENT BLOCK ADDRESS.«, t00=0x0009, t01=0x0134}
0x0f60…0f80 Head {h00=0x001c, h01=0x0050, text=»* UPDATE RETURN ADDRESS «, t00=0x0009, t01=0x0158}
0x0f80…0f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0178}
0x0f8a…0f9e Head {h00=0x0010, h01=0x0050, text=»TLDS00 EQU *«, t00=0x0009, t01=0x0182}
0x0f9e…0fc2 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A5 GET TTAB ADDRESS «, t00=0x000a, t01=0x0008}
0x0fc2…0ff2 Head {h00=0x002c, h01=0x0050, text=» SLL A1,3 ADJUST FOR INDEXING IN SEGTAB «, t00=0x000a, t01=0x002c}
0x0ff2…101a Head {h00=0x0024, h01=0x0050, text=» AD A1,SCTSEG ADD SEGTAB ADDRESS«, t00=0x000a, t01=0x005c}
0x101a…1044 Head {h00=0x0026, h01=0x0050, text=» ADK A2,2 UPDATE DISPATCH ADDRESS «, t00=0x000a, t01=0x0084}
0x1044…104e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ae}
0x104e…1064 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=0 «, t00=0x000a, t01=0x00b8}
0x1064…108c Head {h00=0x0024, h01=0x0050, text=» SUKL A15,4 ADJUST STACKPOINTER «, t00=0x000a, t01=0x00ce}
0x108c…10be Head {h00=0x002e, h01=0x0050, text=» ST A2,4,A15 SET DISPATCH ADDRESS ON STACK«, t00=0x000a, t01=0x00f6}
0x10be…10ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0128}
0x10ca…10d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0134}
0x10d4…10fa Head {h00=0x0022, h01=0x0050, text=» ADK A7,0 CHECK SEGMENT NUMBER«, t00=0x000a, t01=0x013e}
0x10fa…1120 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) TLDS05 NOT SEGMENT 0? «, t00=0x000a, t01=0x0164}
0x1120…1154 Head {h00=0x0030, h01=0x0050, text=» ST A7,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS«, t00=0x000a, t01=0x018a}
0x1154…118e Head {h00=0x0036, h01=0x0050, text=» LD A1,SEG:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 «, t00=0x000b, t01=0x002e}
0x118e…1198 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0068}
0x1198…11ae Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000b, t01=0x0072}
0x11ae…11d6 Head {h00=0x0024, h01=0x0050, text=» SUKL A15,4 ADJUST STACKPOINTER «, t00=0x000b, t01=0x0088}
0x11d6…1208 Head {h00=0x002e, h01=0x0050, text=» ST A2,4,A15 SET DISPATCH ADDRESS ON STACK«, t00=0x000b, t01=0x00b0}
0x1208…1214 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00e2}
0x1214…121e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ee}
0x121e…1230 Head {h00=0x000e, h01=0x0050, text=» RF TLDS40«, t00=0x000b, t01=0x00f8}
0x1230…123a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x010a}
0x123a…1252 Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x000b, t01=0x0114}
0x1252…125c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012c}
0x125c…1266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0136}
0x1266…127a Head {h00=0x0010, h01=0x0050, text=»TLDS05 EQU *«, t00=0x000b, t01=0x0140}
0x127a…1290 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000b, t01=0x0154}
0x1290…12c6 Head {h00=0x0032, h01=0x0050, text=» ST A1,TTB:SB,A3 UPDATE SEGMENT BLOCK ADDRESS «, t00=0x000b, t01=0x016a}
0x12c6…12ec Head {h00=0x0022, h01=0x0050, text=» LDR* A4,A1 GET SEGMENT STATUS«, t00=0x000c, t01=0x0010}
0x12ec…131a Head {h00=0x002a, h01=0x0050, text=» RF(N) TLDS10 SEGMENT LOADED IN CORE? «, t00=0x000c, t01=0x0036}
0x131a…1332 Head {h00=0x0014, h01=0x0050, text=» ST A2,TTB:SA,A3«, t00=0x000c, t01=0x0064}
0x1332…1342 Head {h00=0x000c, h01=0x0050, text=» CM PRUN«, t00=0x000c, t01=0x007c}
0x1342…134c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008c}
0x134c…1368 Head {h00=0x0018, h01=0x0050, text=»* ACTIVATE LOAD TASK«, t00=0x000c, t01=0x0096}
0x1368…1372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b2}
0x1372…13ac Head {h00=0x0036, h01=0x0050, text=» CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK «, t00=0x000c, t01=0x00bc}
0x13ac…13d0 Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER «, t00=0x000c, t01=0x00f6}
0x13d0…13dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x011a}
0x13dc…13e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0126}
0x13e6…141c Head {h00=0x0032, h01=0x0050, text=»TLDS10 LD A1,SEG:PB,A1 GET PAGE BLOCK ADDRESS «, t00=0x000c, t01=0x0130}
0x141c…1426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0166}
0x1426…143c Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000c, t01=0x0170}
0x143c…1464 Head {h00=0x0024, h01=0x0050, text=» SUKL A15,4 ADJUST STACKPOINTER «, t00=0x000c, t01=0x0186}
0x1464…1496 Head {h00=0x002e, h01=0x0050, text=» ST A2,4,A15 SET DISPATCH ADDRESS ON STACK«, t00=0x000d, t01=0x001e}
0x1496…14a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0050}
0x14a0…14cc Head {h00=0x0028, h01=0x0050, text=»* REMOVE PAGE BLOCK FROM PAGE QUEUE «, t00=0x000d, t01=0x005a}
0x14cc…14d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0086}
0x14d6…14e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0090}
0x14e2…14ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009c}
0x14ec…1516 Head {h00=0x0026, h01=0x0050, text=»TLDS15 EQU * ENTRY USED BY LDTASK «, t00=0x000d, t01=0x00a6}
0x1516…152c Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000d, t01=0x00d0}
0x152c…1556 Head {h00=0x0026, h01=0x0050, text=» LDR* A2,A1 GET QUEUE LINK FORWARD«, t00=0x000d, t01=0x00e6}
0x1556…1584 Head {h00=0x002a, h01=0x0050, text=» RF(Z) TLDS20 PAGE BLOCK NOT IN QUEUE?«, t00=0x000d, t01=0x0110}
0x1584…15b4 Head {h00=0x002c, h01=0x0050, text=» LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD«, t00=0x000d, t01=0x013e}
0x15b4…15ec Head {h00=0x0034, h01=0x0050, text=» CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK «, t00=0x000d, t01=0x016e}
0x15ec…1612 Head {h00=0x0022, h01=0x0050, text=» STR A2,A4 UPDATE QUEUE LINKS «, t00=0x000e, t01=0x0016}
0x1612…162a Head {h00=0x0014, h01=0x0050, text=» ST A4,PAG:QB,A2«, t00=0x000e, t01=0x003c}
0x162a…1636 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0054}
0x1636…1640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0060}
0x1640…1658 Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x000e, t01=0x006a}
0x1658…1662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0082}
0x1662…1692 Head {h00=0x002c, h01=0x0050, text=»* GET PAGE ADDRESS OF REQUESTED SEGMENT «, t00=0x000e, t01=0x008c}
0x1692…169c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00bc}
0x169c…16c6 Head {h00=0x0026, h01=0x0050, text=»TLDS20 EQU * ENTRY USED BY LDTASK «, t00=0x000e, t01=0x00c6}
0x16c6…16f0 Head {h00=0x0026, h01=0x0050, text=» LD A1,PAG:PA,A1 GET PAGE ADDRESS «, t00=0x000e, t01=0x00f0}
0x16f0…16fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x011a}
0x16fa…1710 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000e, t01=0x0124}
0x1710…1722 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A1«, t00=0x000e, t01=0x013a}
0x1722…1736 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FC «, t00=0x000e, t01=0x014c}
0x1736…1740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0160}
0x1740…1778 Head {h00=0x0034, h01=0x0050, text=»* GET PAGE ENTRY/ENTRIES TO UPDATE IN MMU TABLE «, t00=0x000e, t01=0x016a}
0x1778…1782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0012}
0x1782…17b6 Head {h00=0x0030, h01=0x0050, text=» AD A3,SCTMMP POINT TO FIRST USED PAGE ENTRY«, t00=0x000f, t01=0x001c}
0x17b6…17e6 Head {h00=0x002c, h01=0x0050, text=» LD A4,SCTNPE GET NUMBER OF PAGE ENTRIES«, t00=0x000f, t01=0x0050}
0x17e6…17f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0080}
0x17f0…1814 Head {h00=0x0020, h01=0x0050, text=»* UPDATE PAGE ENTRY/ENTRIES «, t00=0x000f, t01=0x008a}
0x1814…181e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ae}
0x181e…1832 Head {h00=0x0010, h01=0x0050, text=»TLDS25 EQU *«, t00=0x000f, t01=0x00b8}
0x1832…1856 Head {h00=0x0020, h01=0x0050, text=» SCR A2,A3 UPDATE PAGE ENTRY«, t00=0x000f, t01=0x00cc}
0x1856…1868 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000f, t01=0x00f0}
0x1868…1894 Head {h00=0x0028, h01=0x0050, text=» RF(NP) TLDS30 NO MORE PAGE ENTRIES?«, t00=0x000f, t01=0x0102}
0x1894…18be Head {h00=0x0026, h01=0x0050, text=» ADK A3,2 POINT TO NEXT PAGE ENTRY«, t00=0x000f, t01=0x012e}
0x18be…18e4 Head {h00=0x0022, h01=0x0050, text=» ADK A2,4 UPDATE PAGE ADDRESS «, t00=0x000f, t01=0x0158}
0x18e4…18f6 Head {h00=0x000e, h01=0x0050, text=» RB TLDS25«, t00=0x000f, t01=0x017e}
0x18f6…1900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0190}
0x1900…1918 Head {h00=0x0014, h01=0x0050, text=» EJECT TLDSEG «, t00=0x0010, t01=0x000a}
0x1918…1922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0022}
0x1922…192c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002c}
0x192c…1964 Head {h00=0x0034, h01=0x0050, text=»TLDS30 ANKL A1,/300 COMPUTE CURRENT SEGMENT BASE«, t00=0x0010, t01=0x0036}
0x1964…1976 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0010, t01=0x006e}
0x1976…198c Head {h00=0x0012, h01=0x0050, text=» OR A1,SCTLAP «, t00=0x0010, t01=0x0080}
0x198c…19b4 Head {h00=0x0024, h01=0x0050, text=» TL TTB:MT,A5 LOAD MMU REGISTERS«, t00=0x0010, t01=0x0096}
0x19b4…19be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00be}
0x19be…19d2 Head {h00=0x0010, h01=0x0050, text=»TLDS40 EQU *«, t00=0x0010, t01=0x00c8}
0x19d2…19e8 Head {h00=0x0012, h01=0x0050, text=» IFT ASSOLY=0 «, t00=0x0010, t01=0x00dc}
0x19e8…1a1e Head {h00=0x0032, h01=0x0050, text=» ES A1,T:ACSB,A13 UPDATE CURRENT SEGMENT BASE «, t00=0x0010, t01=0x00f2}
0x1a1e…1a2a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0128}
0x1a2a…1a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0134}
0x1a34…1a4a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0010, t01=0x013e}
0x1a4a…1a5e Head {h00=0x0010, h01=0x0050, text=»TLDS40 EQU *«, t00=0x0010, t01=0x0154}
0x1a5e…1a94 Head {h00=0x0032, h01=0x0050, text=» ST A1,T:ACSB,A13 UPDATE CURRENT SEGMENT BASE «, t00=0x0010, t01=0x0168}
0x1a94…1aa0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x000e}
0x1aa0…1aaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001a}
0x1aaa…1ac0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0011, t01=0x0024}
0x1ac0…1ad2 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A5«, t00=0x0011, t01=0x003a}
0x1ad2…1afa Head {h00=0x0024, h01=0x0050, text=» ML 6,TTB:SA+2,A6 RESTORE A1-A6 «, t00=0x0011, t01=0x004c}
0x1afa…1b22 Head {h00=0x0024, h01=0x0050, text=» RTN A15 RETURN TO CALLING TASK «, t00=0x0011, t01=0x0074}
0x1b22…1b2e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x009c}
0x1b2e…1b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a8}
0x1b38…1b4e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0011, t01=0x00b2}
0x1b4e…1b76 Head {h00=0x0024, h01=0x0050, text=» LD A1,TTB:SA+2,A5 RESTORE A1-A6«, t00=0x0011, t01=0x00c8}
0x1b76…1b90 Head {h00=0x0016, h01=0x0050, text=» LD A2,TTB:SA+4,A5«, t00=0x0011, t01=0x00f0}
0x1b90…1baa Head {h00=0x0016, h01=0x0050, text=» LD A3,TTB:SA+6,A5«, t00=0x0011, t01=0x010a}
0x1baa…1bc4 Head {h00=0x0016, h01=0x0050, text=» LD A4,TTB:SA+8,A5«, t00=0x0011, t01=0x0124}
0x1bc4…1be0 Head {h00=0x0018, h01=0x0050, text=» LD A6,TTB:SA+12,A5 «, t00=0x0011, t01=0x013e}
0x1be0…1bfc Head {h00=0x0018, h01=0x0050, text=» LD A5,TTB:SA+10,A5 «, t00=0x0011, t01=0x015a}
0x1bfc…1c24 Head {h00=0x0024, h01=0x0050, text=» RTN A15 RETURN TO CALLING TASK «, t00=0x0011, t01=0x0176}
0x1c24…1c30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x000e}
0x1c30…1c3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x001a}
0x1c3a…1c44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0024}
0x1c44…1c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002e}
0x1c4e…1c5a Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0012, t01=0x0038}
0x1c5a…1c5e Head {h00=0x4004, h01=0x0000}
0x1c5e…1c62 00 12 00 44 ┆ D┆
0x1c62…1c6a (19, 1, 8) 20 04 00 00 00 13 00 04 ┆ ┆
0x1c6a…1cba (20, 0, 400) 44 20 4f 46 20 51 55 45 55 45 00 1b 01 80 00 1c 00 50 5c 49 4d 5c 34 2c 41 34 5c 49 4e 43 52 45 4d 45 4e 54 20 54 49 4d 45 52 00 1c 00 12 00 1e 00 50 5c 52 42 28 4e 29 5c 43 4c 4b 31 30 5c 4e 4f 54 20 54 49 4d 45 20 4f 55 54 3f 00 1c 00 32 ┆D OF QUEUE P IM 4,A4 INCREMENT TIMER P RB(N) CLK10 NOT TIME OUT? 2┆
0x1cba…1d0a 00 1a 00 50 5c 52 46 28 5a 29 5c 43 4c 4b 33 30 5c 54 49 4d 45 20 4f 55 54 3f 00 1c 00 54 00 1e 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 34 5c 52 45 4c 45 41 53 45 20 54 49 4d 45 52 20 00 1c 00 72 00 0e 00 50 5c 53 54 52 5c 41 33 2c 41 36 00 1c ┆ P RF(Z) CLK30 TIME OUT? T P LDR* A3,A4 RELEASE TIMER r P STR A3,A6 ┆
0x1d0a…1d5a 00 94 00 12 00 50 5c 43 46 5c 41 31 35 2c 46 52 45 42 4c 4b 00 1c 00 a6 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 32 00 1c 00 bc 00 12 00 50 5c 43 46 5c 41 31 35 2c 46 52 45 42 4c 4b 00 1c 00 ce 00 0e 00 50 5c 52 42 5c 43 4c 4b 32 30 20 00 1c ┆ P CF A15,FREBLK P LDR A4,A2 P CF A15,FREBLK P RB CLK20 ┆
0x1d5a…1daa 00 e4 00 06 00 50 2a 20 00 1c 00 f6 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 4c 52 50 49 4e 54 20 00 1c 01 00 00 06 00 50 2a 20 00 1c 01 18 00 06 00 50 2a 20 00 1c 01 22 00 2c 00 50 43 4c 4b 33 30 5c 43 46 5c 41 31 35 2c 43 4c 4b 34 30 5c 43 ┆ P* P EJECT LRPINT P* P* " , PCLK30 CF A15,CLK40 C┆
0x1daa…1dfa 41 4c 4c 20 54 49 4d 45 20 4f 55 54 20 52 4f 55 54 49 4e 45 00 1c 01 2c 00 08 00 50 5c 49 4e 48 00 1c 01 5c 00 0e 00 50 5c 52 42 5c 43 4c 4b 31 30 20 00 1c 01 68 00 06 00 50 2a 20 00 1c 01 7a 00 10 00 50 43 4c 4b 34 30 5c 45 51 55 5c 2a 20 ┆ALL TIME OUT ROUTINE , P INH P RB CLK10 h P* z PCLK40 EQU * ┆