|
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: 17440 (0x4420)
Notes: pts_type(SC)
Names: »TPAGAL.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/TPAGAL.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/TPAGAL.SC«
IDENT TPAGAL REL 11.0 81-01-26 870105041100 ************************************************************* * * * PHILIPS TERMINAL SYSTEM PTS * * * * TPAGAL - PAGE HANDLING PROCESSOR * * * * THIS MODULE CONTAINS THE LKM PROCESSOR USED IN TOSS * * MEMORY MANAGEMENT SYSTEMS FOR DYNAMICAL ALLOCATION OF * * LOGICAL CORE MEMORY. * * * * THE FOLLOWING REQUESTS ARE SUPPORTED: * * * * -GET PAGE * * -ATTACH PAGE * * -RELEASE PAGE * * * ************************************************************** EJECT * ************* * ENTRIES * ************* * ENTRY TPAGAL COMMON ENTRY FOR: -GET PAGE -ATTACH PAGE -RELEASE PAGE EJECT * *************** * EXTERNALS * *************** * EXTRN RELPA2 INSERT PAGE IN FREE QUEUE * EXTRN LKMQDI QUEUE TASK AND DISPATCH EXTRN LKMRQE PAGE ERROR ENTRY IN LRPINT EXTRN TTB:AM DISPLACEMENT TO ALLOCATION TABLE EXTRN TTB:MT DISPLACEMENT TO START OF MMU EXTRN TTB:ID DISPLACEMENT TO TASK IDENTIFICATION EXTRN TTB:SA DISPLACEMENT TO TTAB SAVE AREA EXTRN SCTPAG POINTER TO START OF PAGE TABLE EXTRN SCTNOP NUMBER OF PAGES EXTRN PAGQUE ADDRESS TO POINTER TO FREE QUEUE EXTRN PAG:PA DISPLACEMENT TO PAGE ADDRESS EXTRN PAG:QB DISPLACEMENT TO QUEUE LINK BACKWARD EXTRN PAG:SB DISPLACEMENT TO SEGMENT BLOCK ADDRESS EJECT * *************** * CONSTANTS * *************** * LPGSIZ EQU /100 LOGICAL PAGE SIZE MAXATT EQU 100 MAXIMAL NUMBER OF ATTACH REQUEST ON SAME PAGE EJECT * *************************** * 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 0 * * EJECT * * **************************** * FUNCTIONAL DESCRIPTION * **************************** * * * ************** * * GET PAGE * * ************** * * REQUEST: LKM * DATA 26 * * REQUEST PARAMETERS: A7=0 * * RETURN PARAMETERS: A1=PAGE NUMBER * A7=UNCHANGED OR -1 IF NO PAGE IN QUEUE * A8=LOGICAL ADDRESS TO PAGE * * FUNCTION: IF NUMBER OF FREE PAGES IS LESS THAN TWO, * PAGE ERROR IS INDICATED AND THE REQUEST * IS TERMINATED. * IFT MMUPAG=1 * THE MMU TABLE BIT MAP IS EXAMINED FOR FREE SUBENTRIES. * WHEN ONE IS FOUND, THE FREE QUEUE IS SCANNED FOR A FREE * PAGE THAT FITS IN THE FREE SUBENTRY. * IF SUCH A PAGE IS FOUND, IT IS REMOVED FROM THE FREE * QUEUE AND INCLUDED IN THE USER AREA. * THE CORRESPONDING BIT IN THE MMU TABLE BIT MAP * IS SET AS TO INDICATE THAT THE SUBENTRY IS OCCUPIED. * IF NONE OF THE FREE PAGES FITS IN CURRENT SUBENTRY, * THE NEXT FREE SUBENTRY IS TRIED. THIS WILL CONTINUE * UNTIL ALL FREE SUBENTRIES HAS BEEN SCANNED. * EJECT * IF NO PAGE IS FOUND THAT FITS IN ANY SUBENTRY, * OR IF THERE ARE NO FREE PAGES OR FREE SUBENTRIES * AT ALL, PAGE ERROR IS INDICATED AND THE REQUEST * IS TERMINATED. * IFF MMUPAG=1 * THE LAST PAGE IS TAKEN OUT FROM FREE QUEUE * * * FUNCTION: THE LAST PAGE IN FREE QUEUE IS REMOVED. * * IF THERE IS NO FREE PAGES, PAGE ERROR * IS INDICATED AND THE REQUEST IS TERMINATED. * XIF IFF MMUPAG=1 * * THE LAST PAGE IS REMOVED FROM FREE QUEUE XIF * * THE CALLING TASKS ID IS STORED IN FIRST WORD * IN PAGE BLOCK. * THE LOGICAL ADDRESS TO PAGE IS STORED IN * SECOND WORD IN PAGE BLOCK * IF A SEGMENT IS ATTACHED TO THE PAGE,BIT 0 * (SEGMENT LOADED IN CORE) IN STATUS WORD IN * SEGMENT BLOCK IS CLEARED. * THE FOURTH WORD IN PAGE BLOCK IS SUBSEQUENTLY * USED AS COUNTER FOR NUMBER OF TASKS THE PAGE * IS ATTACHED TO. IT IS INITIALLY SET TO ONE. * EJECT * * * ****************** * * RELEASE PAGE * * ****************** * * * REQUEST: LKM * DATA 26 * * REQUEST PARAMETERS: A7=1 * A1=PAGE NUMBER * * RETURN PARAMETERS: A7=UNCHANGED OR -1 IF ILLEGAL PAGE * A8=NUMBER OF REMAINING USERS * * * FUNCTION: PAGE NUMBER IS CHECKED - IF NEGATIVE OR IF * GREATER THAN NUMBER OF AVALIABLE PAGES PAGE * ERROR IS INDICATED AND THE REQUEST IS TERMINATED. * * ATTACH COUNTER (FOURTH WORD IN PAGE BLOCK) IS * DECREMENTED BY ONE. IF IT BECOMES ZERO THE PAGE * THE PAGE IS INSERTED IN THE FREE QUEUE. * IFT MMUPAG=1 * THE CORRESPONDING BIT IN THE MMU TABLE BIT MAP * IS CLEARED. IF NO OTHER BITS CORRESPONDING TO * THE SAME MMU ENTRY ARE SET, THE ADDRESS /FC00 * IS STORED IN THE MMU ENTRY. XIF EJECT * * * ***************** * * ATTACH PAGE * * ***************** * * * REQUEST: LKM * DATA 26 * * REQUEST PARAMETERS: A7=2 * A1=PAGE NUMBER * * RETURN PARAMETERS: A7=UNCHANGED OR -1 IF ILLEGAL PAGE * A8=LOGICAL ADDRESS TO PAGE * * * FUNCTION: PAGE NUMBER IS CHECKED - IF NEGATIVE OR IF * GREATER THAN NUMBER OF AVALIABLE PAGES ERROR * IS INDICATED AND THE REQUEST IS TERMINATED. * IFT MMUPAG=1 * IF PAGE NUMBER IS OK, THE LOGICAL ADDRESS * TO CORRESPONDING PAGE IS FETCHED. * IF THE CORRESPONDING SUBENTRY IN THE MMU TABLE IS FREE, * THE PAGE IS INCLUDED IN THE USER AREA ON THE SAME * LOGICAL ADDRESS.. * THE CORRESPONDING BIT IN THE MMU TABLE BIT MAP * IS SET TO INDICATE THAT THE SUBENTRY IS OCCUPIED. * * IF THE SUBENTRY CORRESPONDING TO THE LOGICAL ADDRESS * IS OCCUPIED, PAGE ERROR IS INDICATED AND THE REQUEST * IS TERMINATED. * XIF * * THE ATTACH COUNTER (FOURTH WORD IN PAGE BLOCK) * IS INCREMENTED BY ONE. * EJECT TPAGAL EQU * ADK A7,0 GET PAGE REQUEST? ABL(NZ) RAPAG NO! * * CHECK NUMBER OF FREE PAGES - IF NOT ENOUGTH, TERMINATE * THE REQUEST WITH A8=0 * LD A6,PAGQUE+2 GET END OF FREE QUEUE CW A6,PAGQUE SAME AS START OF FREE QUEUE? RF(E) PAGERR NOT ENOUGTH FREE PAGES EJECT GETPAG EQU * IFF MMUPAG=1 LDR A1,A6 GET PAGE BLOCK ADDRESS XIF IFT MMUPAG=1 LDR A3,A5 GET TTAB ADDRESS LDR A8,A3 SAVE ADKL A3,TTB:AM START OF ALLOCATION TABLE ADKL A8,TTB:MT END OF ALLOCATION TABLE LDR A10,A8 SAVE GET:10 LDKL A6,/8000 INIT OCCUPATION BIT LDR* A4,A3 GET 16 ALLOCATION BITS XRKL A4,/FFFF ANY FREE SUBENTRY? RF(NZ) GET:40 YES GET:20 ADKL A10,8 INCREMENT MMU TABLE POINTER GET:25 ADK A3,2 INCREMENT ALLOCATION TABLE POINTER CWR A3,A8 END OF ALLOCATION TABLE? RF(E) PAGERR YES! RB GET:10 EJECT GET:40 LDR A2,A4 GET ALLOCATION WORD ANKL A2,/F000 ANY FREE SUBENTRY IN THIS ENTRY? RF(NZ) GET:60 YES GET:50 SLL A4,4 NEXT ENTRY ADKL 10,2 INCREMENT MMU ENTRY POINTER SRL A6,4 ALL ENTRIES CHECKED? RB(E) GET:25 YES RB GET:40 GET:60 LDR* A13,A10 GET CONTENT IN MMU TABLE ENTRY ANKL A13,/FC00 ISOLATE ADDRESS BITS GET:70 ADK A2,0 ENTRY FREE? RF(N) SFQFFP YES RB(Z) GET:50 GET:80 ADKL A13,LPGSIZ NEXT PAGE SLL A2,1 CHECK IF NEXT SUBENTRY FREE RB GET:70 EJECT SFQFFP EQU * * * SEARCH FREE QUEUE FOR PAGE TO FIT IN CURRENT MMU SUBENTRY * * BIT SET IN A1 CORRESPOND TO CURRENT SUBENTRY * A3 - POINTER TO CURRENT ENTRY IN MMU ALLOCATION TABLE * A10 - POINTER TO CURRENT MMU ENTRY * A11 - PHYSICAL PAGE ADDRESS * A13 - LOGICAL PAGE ADDRESS * * PAGQUE CONTAINS POINTER TO FIRST FREE PAGE BLOCK IN QUEUE * PAGQUE+2 CONTAINS POINTER TO LAST FREE PAGE BLOCK IN QUEUE * LD A1,PAGQUE+2 GET POINTER TO LAST PAGE IFT MMUPAG=1 SFQ:10 CWK A1,PAGQUE ANY MOORE PAGE IN QUEUE? RB(E) GET:80 NO! SFQ:20 LD A11,PAG:PA,A1 GET PHYSICAL PAGE ADDRESS SFQ:25 CWK A2,/F000 ALL SUBENTRIES FREE? RF(NE) SFQ:30 NO! LDR A13,A11 GET PHYSICAL PAGE ADDRESS SFQ:30 LDR A12,A13 GET PHYS. PAGE ADDRESS TO FIT IN SUBENTRY XRR A12,A11 SAME PHYSICAL ADDRESS RF(Z) SFQ:45 YES LD A1,PAG:QB,A1 GET BACKWARD POINTER RB SFQ:10 TRY NEXT PAGE XIF EJECT SFQ:45 LD A4,TTB:ID,A5 GET CALLING TASKS ID LD A12,PAG:QB,A1 GET BACKWARD POINTER LDR* A9,A1 GET FORWARD POINTER STR A9,A12 CHANGE FORWARD POINTER ST A12,PAG:QB,A9 CHANGE BACKWARD POINTER STR A4,A1 STORE TASK IDENTIFICATION LD A4,PAG:SB,A1 ANY SEGMENT ATTACHED? RF(Z) SFQ:55 NO! LDKL A2,/7FFF INDICATE NOT LOADED IN CORE ANRS A2,A4 STORE NEW STATUS CM PAG:SB,A1 CLEAR SEGMENT BLOCK ADDRESS EJECT SFQ:55 EQU * IFT MMUPAG=1 ECR A4,A13 GET PAGE ADDRESS ANK A4,3 ISOLATE 1K-DISPLACEMENT SFQ:60 SUK A4,1 MOORE DISPLACEMENT? RF(N) SFQ:70 SRL A6,1 RB SFQ:60 SFQ:70 ADK A7,0 GET PAGE REQUEST? RF(Z) SFQ:80 YES! LDR A4,A6 GET OCCUPATION BIT ANR* A4,A3 SUBENTRY ALREADY OCCUPIED? RF(NZ) PAGERR YES! SFQ:80 ORRS A6,A3 * * INCLUDE PAGE IN USER AREA * LDR A6,A13 GET LOGICAL PAGE ADDRESS ANKL A6,/300 ISOLATE DISPLACEMENT SLA A6,2 PHYSICAL DISPLACEMENT LDR A11,A6 SAVE ANKL A13,/FC00 PHYSICAL 4K-PAGE ADDRESS STR A13,A10 STORE IN MMU TABLE EJECT * * COMPUTE LOGICAL PAGE ADDRESS * SUR A10,A8 BYTE DISPLACEMENT TO CURRENT ENTRY LDR A6,A10 SAVE SLA A6,11 MMU ENTRY IN BITS 0-3 ADR A6,A11 ADD DISPLACEMENT XIF IFF MMUPAG=1 LD A6,PAG:PA,A1 XIF ST A6,TTB:SA+16,A5 SAVE IN TTAB SAVE AREA XIF SUK A7,2 ATTACH PAGE REQUEST? RF(E) SFQ:90 YES! ST A6,PAG:QB,A1 SAVE LOGICAL ADDRESS TO PAGE SFQ:90 IM PAG:SB,A1 INCREMENT ATTACH COUNTER * * COMPUTE PAGE NUMBER * RET:30 SU A1,SCTPAG COMPUTE DISPLACEMENT SRL A1,3 CONVERT TO BLOCK NUMBER RET:40 ST A1,TTB:SA+2,A5 SAVE RET:50 EQU * EJECT * * RESTORE REGISTER A1-A14 * ABL LKMQDI QUEUE TASK AND DISPATCH * * ERROR ENTRY * PAGERR EQU * ABL LKMRQE ERROR ENTRY INLRPINT EJECT RAPAG EQU * LDR A4,A1 NEGATIVE PAGE NUMBER RB(N) PAGERR YES! ERROR! ADK A4,1 ADJUST PAGE NUMBER FOR COMPARE CW A4,SCTNOP PAGE NUMBER > NUMBER OF PAGES? RB(G) PAGERR YES! * * GET PAGE BLOCK ADDRESS * SLL A1,3 MULTIPLY PAGE NUMBER BY EIGHT AD A1,SCTPAG ADD ADDRESS START OF PAGE TABLE LD A11,PAG:PA,A1 GET PHYSICAL PAGE ADDRESS LD A4,PAG:SB,A1 GET ATTACH COUNTER RB(NP) PAGERR NO PREVIOUS GET REQUEST ISSUED! SUK A4,MAXATT SEGMENT BLOCK ADDRESS? RB(G) PAGERR YES;NO GET REQUEST ISSUED! CWK A7,1 RELEASE PAGE REQUEST? RF(E) REL:00 YES! LD A4,TTB:ID,A5 GET CALLING TASKS ID CWR* A4,A1 PAGE ALREADY ATTACHED? RB(E) PAGERR YES! IFF MMUPAG=1 RB SFQ:55 XIF IFT MMUPAG=1 EJECT LD A4,PAG:QB,A1 GET LOGICAL ADDRESS LDR A13,A4 SAVE SRL A4,11 2*(BIT 0-3 OF LOGICAL ADDRESS) LDR A8,A5 GET TTAB ADDRESS ADKL A8,TTB:MT START OF MMU TABLE LDR A10,A8 SAVE ADR A10,A4 SELECT MMU ENTRY XRR* A11,A10 CHECK IF SAME PHYSICAL PAGE ANKL A11,/FC00 ISOLATE PHYSICAL PAGE ADDRESS RB(NE) PAGERR NO;PAGE CANNOT BE ATTACHED! ATT:10 LDR A3,A4 GET BITS 0-1 ANK A3,24 OF LOGICAL ADDRESS SRL A3,2 2*(BIT 0-1 OF LOGICAL ADDRESS) ADR A3,A5 ADD TTAB ADDRESS ADKL A3,TTB:AM SELECT BIT MAP ENTRY ANK A4,6 GET BIT 2-3 OF LOGICAL ADDRESS SRL A4,1 LDKL A6,/8000 INIT OCCUPATION BIT ATT:20 SUK A4,1 SUBENTRY FOUND? RB(N) SFQ:55 YES! SRL A6,4 NEXT SUBENTRY RB ATT:20 EJECT XIF REL:00 EQU * IFT MMUPAG=1 ECR A4,A11 GET PAGE ADDRESS ANK A4,3 ISOLATE DISPLACEMENT IN 4K-PAGE LDR A9,A5 GET TTAB ADDRESS LDR A10,A9 SAVE ADKL A9,TTB:AM START OF MMU ALLOCATION TABLE ADKL A10,TTB:MT START OF MMU TABLE LDR A8,A10 SAVE REL:10 LDKL A2,/8000 INIT SUBENTRY OCCUPATION BIT LDKL A6,/F000 INIT NIBBLE MASK REL:20 LDR A12,A11 GET PHYSICAL 4K-PAGE ADDRESS ANKL A12,/FC00 ISOLATE 4K-PAGE ADDRESS XRR* A12,A10 SAME PHYSICAL PAGE ADDRESS ANKL A12,/FC00 ISOLATE ADDRESS BITS RF(E) REL:40 YES REL:30 ADKL A10,2 NEXT MMU TABLE ENTRY SRL A2,4 NEXT MMU ALLOCATION TABLE ENTRY SRL A6,4 RB(NE) REL:20 CHECK NEXT ADKL A9,2 NEXT WORD IN MMU ALLOCATION TABLE CWR A9,A8 END OF MMU ALLOCATION TABLE? RB(E) PAGERR YES:ERROR! RB REL:10 CHECK NEXT FOUR ENTRIES EJECT REL:40 SUK A4,1 MOORE 1K-DISPLACEMENTS RF(N) REL:50 NO:SUBENTRY FOUND SRL A2,1 NEXT SUBENTRY RB REL:40 REL:50 LDR A3,A2 GET SUBENTRY OCCUPATION BIT ANR* A3,A9 SUBENTRY OCCUPIED? RB(Z) REL:30 NO: TRY NEXT ENTRY C1R A2,A2 COMPLEMENT BITS ANRS A2,A9 CLEAR OCCUPATION BIT ANR* A6,A9 ANY OTHER SUBENTRY IN THIS ENTRY OCCUPIED? RF(NE) REL:60 YES LDKL A6,/FC00 ADDRESS TO LAST 4K-PAGE IN 256 KB MEMORY STR A6,A10 STORE IN FREE MMU TABLE ENTRY XIF REL:60 LD A4,TTB:ID,A5 GET CALLING TASKS ID CWR* A4,A1 GET REQUEST ISSUED BY THIS TASK? RF(NE) REL:70 NO! CMR A1 EXTINGUISH TRACK TO THIS TASK REL:70 SUK A7,2 A7:=-1 ADS A7,PAG:SB,A1 DECREMENT ATTACH COUNTER LD A7,PAG:SB,A1 GET REMAINING NUMBER OF USERS ST A7,TTB:SA+16,A5 SAVE RETURN-PARAMETER RF(NZ) REL:80 * * INSERT PAGE BLOCK IN FREE QUEUE * LDR A3,A1 INH CF A15,RELPA2 INSERT RELEASED PAGE ENB REL:80 ABL RET:50 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT TPAGAL REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0084 Head {h00=0x0042, h01=0x003d, text=»************************************************************* «, t00=0x0000, t01=0x0042}
0x0084…00ca Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0000, t01=0x0088}
0x00ca…0110 Head {h00=0x0042, h01=0x003d, text=»* PHILIPS TERMINAL SYSTEM PTS * «, t00=0x0000, t01=0x00ce}
0x0110…0156 Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0000, t01=0x0114}
0x0156…019c Head {h00=0x0042, h01=0x0050, text=»* TPAGAL - PAGE HANDLING PROCESSOR * «, t00=0x0000, t01=0x015a}
0x019c…01e2 Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0001, t01=0x0010}
0x01e2…0228 Head {h00=0x0042, h01=0x0050, text=»* THIS MODULE CONTAINS THE LKM PROCESSOR USED IN TOSS * «, t00=0x0001, t01=0x0056}
0x0228…026e Head {h00=0x0042, h01=0x003d, text=»* MEMORY MANAGEMENT SYSTEMS FOR DYNAMICAL ALLOCATION OF * «, t00=0x0001, t01=0x009c}
0x026e…02b4 Head {h00=0x0042, h01=0x0050, text=»* LOGICAL CORE MEMORY. * «, t00=0x0001, t01=0x00e2}
0x02b4…02fa Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0001, t01=0x0128}
0x02fa…0340 Head {h00=0x0042, h01=0x003d, text=»* THE FOLLOWING REQUESTS ARE SUPPORTED: * «, t00=0x0001, t01=0x016e}
0x0340…0386 Head {h00=0x0042, h01=0x003d, text=»* * «, t00=0x0002, t01=0x0024}
0x0386…03c6 Head {h00=0x003c, h01=0x0050, text=»* -GET PAGE *«, t00=0x0002, t01=0x006a}
0x03c6…0406 Head {h00=0x003c, h01=0x0050, text=»* -ATTACH PAGE *«, t00=0x0002, t01=0x00aa}
0x0406…0446 Head {h00=0x003c, h01=0x0050, text=»* -RELEASE PAGE *«, t00=0x0002, t01=0x00ea}
0x0446…048c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0002, t01=0x012a}
0x048c…04d2 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0002, t01=0x0170}
0x04d2…04e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0026}
0x04e0…04ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0034}
0x04ea…0500 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x003e}
0x0500…0516 Head {h00=0x0012, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x0054}
0x0516…052c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x006a}
0x052c…0536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0080}
0x0536…0568 Head {h00=0x002e, h01=0x0050, text=» ENTRY TPAGAL COMMON ENTRY FOR: -GET PAGE«, t00=0x0003, t01=0x008a}
0x0568…059e Head {h00=0x0032, h01=0x0050, text=» -ATTACH PAGE «, t00=0x0003, t01=0x00bc}
0x059e…05d4 Head {h00=0x0032, h01=0x0050, text=» -RELEASE PAGE«, t00=0x0003, t01=0x00f2}
0x05d4…05e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0128}
0x05e2…05ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0136}
0x05ec…0604 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0003, t01=0x0140}
0x0604…061c Head {h00=0x0014, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x0158}
0x061c…0634 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0003, t01=0x0170}
0x0634…063e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0188}
0x063e…066e (4, 0, 400) Head {h00=0x002c, h01=0x0050, text=» EXTRN RELPA2 INSERT PAGE IN FREE QUEUE «, t00=0x0004, t01=0x0004}
0x066e…0678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0034}
0x0678…06a6 Head {h00=0x002a, h01=0x0050, text=» EXTRN LKMQDI QUEUE TASK AND DISPATCH «, t00=0x0004, t01=0x003e}
0x06a6…06d6 Head {h00=0x002c, h01=0x0050, text=» EXTRN LKMRQE PAGE ERROR ENTRY IN LRPINT«, t00=0x0004, t01=0x006c}
0x06d6…070c Head {h00=0x0032, h01=0x0050, text=» EXTRN TTB:AM DISPLACEMENT TO ALLOCATION TABLE«, t00=0x0004, t01=0x009c}
0x070c…073e Head {h00=0x002e, h01=0x0050, text=» EXTRN TTB:MT DISPLACEMENT TO START OF MMU«, t00=0x0004, t01=0x00d2}
0x073e…0778 Head {h00=0x0036, h01=0x0050, text=» EXTRN TTB:ID DISPLACEMENT TO TASK IDENTIFICATION «, t00=0x0004, t01=0x0104}
0x0778…07ac Head {h00=0x0030, h01=0x0050, text=» EXTRN TTB:SA DISPLACEMENT TO TTAB SAVE AREA«, t00=0x0004, t01=0x013e}
0x07ac…07e0 Head {h00=0x0030, h01=0x0050, text=» EXTRN SCTPAG POINTER TO START OF PAGE TABLE«, t00=0x0004, t01=0x0172}
0x07e0…0806 Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTNOP NUMBER OF PAGES «, t00=0x0005, t01=0x0016}
0x0806…083c Head {h00=0x0032, h01=0x0050, text=» EXTRN PAGQUE ADDRESS TO POINTER TO FREE QUEUE«, t00=0x0005, t01=0x003c}
0x083c…086e Head {h00=0x002e, h01=0x0050, text=» EXTRN PAG:PA DISPLACEMENT TO PAGE ADDRESS«, t00=0x0005, t01=0x0072}
0x086e…08a8 Head {h00=0x0036, h01=0x0050, text=» EXTRN PAG:QB DISPLACEMENT TO QUEUE LINK BACKWARD «, t00=0x0005, t01=0x00a4}
0x08a8…08e4 Head {h00=0x0038, h01=0x0050, text=» EXTRN PAG:SB DISPLACEMENT TO SEGMENT BLOCK ADDRESS «, t00=0x0005, t01=0x00de}
0x08e4…08f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x011a}
0x08f2…08fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0128}
0x08fc…0914 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0005, t01=0x0132}
0x0914…092c Head {h00=0x0014, h01=0x0050, text=»* CONSTANTS * «, t00=0x0005, t01=0x014a}
0x092c…0944 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0005, t01=0x0162}
0x0944…094e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017a}
0x094e…0978 Head {h00=0x0026, h01=0x0050, text=»LPGSIZ EQU /100 LOGICAL PAGE SIZE «, t00=0x0005, t01=0x0184}
0x0978…09b0 Head {h00=0x0034, h01=0x0050, text=»MAXATT EQU 100 MAXIMAL NUMBER OF ATTACH REQUEST «, t00=0x0006, t01=0x001e}
0x09b0…09c8 Head {h00=0x0014, h01=0x0050, text=» ON SAME PAGE «, t00=0x0006, t01=0x0056}
0x09c8…09d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x006e}
0x09d6…09e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007c}
0x09e0…0a04 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0006, t01=0x0086}
0x0a04…0a28 Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x0006, t01=0x00aa}
0x0a28…0a4c Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0006, t01=0x00ce}
0x0a4c…0a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f2}
0x0a56…0a88 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING«, t00=0x0006, t01=0x00fc}
0x0a88…0ab6 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1«, t00=0x0006, t01=0x012e}
0x0ab6…0ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x015c}
0x0ac0…0ad4 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0006, t01=0x0166}
0x0ad4…0ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017a}
0x0ade…0ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0184}
0x0ae8…0b28 Head {h00=0x003c, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION SET «, t00=0x0006, t01=0x018e}
0x0b28…0b56 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING CPU852 EQU 0«, t00=0x0007, t01=0x003e}
0x0b56…0b60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x006c}
0x0b60…0b74 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0007, t01=0x0076}
0x0b74…0b7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008a}
0x0b7e…0b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0094}
0x0b88…0b96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x009e}
0x0b96…0ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ac}
0x0ba0…0baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b6}
0x0baa…0bce Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0007, t01=0x00c0}
0x0bce…0bf2 Head {h00=0x0020, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION *«, t00=0x0007, t01=0x00e4}
0x0bf2…0c16 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0007, t01=0x0108}
0x0c16…0c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012c}
0x0c20…0c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0136}
0x0c2a…0c44 Head {h00=0x0016, h01=0x0050, text=»* ************** «, t00=0x0007, t01=0x0140}
0x0c44…0c5e Head {h00=0x0016, h01=0x0050, text=»* * GET PAGE * «, t00=0x0007, t01=0x015a}
0x0c5e…0c78 Head {h00=0x0016, h01=0x0050, text=»* ************** «, t00=0x0007, t01=0x0174}
0x0c78…0c82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x018e}
0x0c82…0c9a Head {h00=0x0014, h01=0x0050, text=»* REQUEST: LKM «, t00=0x0008, t01=0x0008}
0x0c9a…0cb6 Head {h00=0x0018, h01=0x0050, text=»* DATA 26«, t00=0x0008, t01=0x0020}
0x0cb6…0cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003c}
0x0cc0…0ce4 Head {h00=0x0020, h01=0x0050, text=»* REQUEST PARAMETERS: A7=0 «, t00=0x0008, t01=0x0046}
0x0ce4…0cee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006a}
0x0cee…0d1a Head {h00=0x0028, h01=0x0050, text=»* RETURN PARAMETERS: A1=PAGE NUMBER«, t00=0x0008, t01=0x0074}
0x0d1a…0d5e Head {h00=0x0040, h01=0x0050, text=»* A7=UNCHANGED OR -1 IF NO PAGE IN QUEUE«, t00=0x0008, t01=0x00a0}
0x0d5e…0d96 Head {h00=0x0034, h01=0x0050, text=»* A8=LOGICAL ADDRESS TO PAGE«, t00=0x0008, t01=0x00e4}
0x0d96…0da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x011c}
0x0da0…0de0 Head {h00=0x003c, h01=0x0050, text=»* FUNCTION: IF NUMBER OF FREE PAGES IS LESS THAN TWO, «, t00=0x0008, t01=0x0126}
0x0de0…0e1e Head {h00=0x003a, h01=0x0050, text=»* PAGE ERROR IS INDICATED AND THE REQUEST «, t00=0x0008, t01=0x0166}
0x0e1e…0e42 Head {h00=0x0020, h01=0x0050, text=»* IS TERMINATED.«, t00=0x0009, t01=0x0014}
0x0e42…0e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0038}
0x0e4c…0e62 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0009, t01=0x0042}
0x0e62…0eae Head {h00=0x0048, h01=0x0050, text=»* THE MMU TABLE BIT MAP IS EXAMINED FOR FREE SUBENTRIES.«, t00=0x0009, t01=0x0058}
0x0eae…0efc Head {h00=0x004a, h01=0x0050, text=»* WHEN ONE IS FOUND, THE FREE QUEUE IS SCANNED FOR A FREE «, t00=0x0009, t01=0x00a4}
0x0efc…0f36 Head {h00=0x0036, h01=0x0050, text=»* PAGE THAT FITS IN THE FREE SUBENTRY.«, t00=0x0009, t01=0x00f2}
0x0f36…0f80 Head {h00=0x0046, h01=0x0050, text=»* IF SUCH A PAGE IS FOUND, IT IS REMOVED FROM THE FREE«, t00=0x0009, t01=0x012c}
0x0f80…0fba Head {h00=0x0036, h01=0x0050, text=»* QUEUE AND INCLUDED IN THE USER AREA.«, t00=0x0009, t01=0x0176}
0x0fba…0ffe Head {h00=0x0040, h01=0x0050, text=»* THE CORRESPONDING BIT IN THE MMU TABLE BIT MAP«, t00=0x000a, t01=0x0020}
0x0ffe…1048 Head {h00=0x0046, h01=0x0050, text=»* IS SET AS TO INDICATE THAT THE SUBENTRY IS OCCUPIED.«, t00=0x000a, t01=0x0064}
0x1048…1092 Head {h00=0x0046, h01=0x0050, text=»* IF NONE OF THE FREE PAGES FITS IN CURRENT SUBENTRY, «, t00=0x000a, t01=0x00ae}
0x1092…10dc Head {h00=0x0046, h01=0x0050, text=»* THE NEXT FREE SUBENTRY IS TRIED. THIS WILL CONTINUE «, t00=0x000a, t01=0x00f8}
0x10dc…111e Head {h00=0x003e, h01=0x0050, text=»* UNTIL ALL FREE SUBENTRIES HAS BEEN SCANNED. «, t00=0x000a, t01=0x0142}
0x111e…1128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0184}
0x1128…1136 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x018e}
0x1136…117a Head {h00=0x0040, h01=0x0050, text=»* IF NO PAGE IS FOUND THAT FITS IN ANY SUBENTRY,«, t00=0x000b, t01=0x000c}
0x117a…11c0 Head {h00=0x0042, h01=0x0050, text=»* OR IF THERE ARE NO FREE PAGES OR FREE SUBENTRIES«, t00=0x000b, t01=0x0050}
0x11c0…1206 Head {h00=0x0042, h01=0x0050, text=»* AT ALL, PAGE ERROR IS INDICATED AND THE REQUEST «, t00=0x000b, t01=0x0096}
0x1206…122a Head {h00=0x0020, h01=0x0050, text=»* IS TERMINATED.«, t00=0x000b, t01=0x00dc}
0x122a…1234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0100}
0x1234…124a Head {h00=0x0012, h01=0x0050, text=» IFF MMUPAG=1 «, t00=0x000b, t01=0x010a}
0x124a…128a Head {h00=0x003c, h01=0x0050, text=»* THE LAST PAGE IS TAKEN OUT FROM FREE QUEUE«, t00=0x000b, t01=0x0120}
0x128a…1294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0160}
0x1294…129e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x016a}
0x129e…12dc Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: THE LAST PAGE IN FREE QUEUE IS REMOVED. «, t00=0x000b, t01=0x0174}
0x12dc…12e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0022}
0x12e6…1322 Head {h00=0x0038, h01=0x0050, text=»* IF THERE IS NO FREE PAGES, PAGE ERROR«, t00=0x000c, t01=0x002c}
0x1322…1364 Head {h00=0x003e, h01=0x0050, text=»* IS INDICATED AND THE REQUEST IS TERMINATED.«, t00=0x000c, t01=0x0068}
0x1364…136e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00aa}
0x136e…137a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00b4}
0x137a…1390 Head {h00=0x0012, h01=0x0050, text=» IFF MMUPAG=1 «, t00=0x000c, t01=0x00c0}
0x1390…139a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d6}
0x139a…13cc Head {h00=0x002e, h01=0x0050, text=»* THE LAST PAGE IS REMOVED FROM FREE QUEUE«, t00=0x000c, t01=0x00e0}
0x13cc…13d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0112}
0x13d8…13e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x011e}
0x13e2…1424 Head {h00=0x003e, h01=0x0050, text=»* THE CALLING TASKS ID IS STORED IN FIRST WORD«, t00=0x000c, t01=0x0128}
0x1424…1448 Head {h00=0x0020, h01=0x0050, text=»* IN PAGE BLOCK.«, t00=0x000c, t01=0x016a}
0x1448…1486 Head {h00=0x003a, h01=0x0050, text=»* THE LOGICAL ADDRESS TO PAGE IS STORED IN«, t00=0x000c, t01=0x018e}
0x1486…14b6 Head {h00=0x002c, h01=0x0050, text=»* SECOND WORD IN PAGE BLOCK «, t00=0x000d, t01=0x003c}
0x14b6…14f6 Head {h00=0x003c, h01=0x0050, text=»* IF A SEGMENT IS ATTACHED TO THE PAGE,BIT 0«, t00=0x000d, t01=0x006c}
0x14f6…1536 Head {h00=0x003c, h01=0x0050, text=»* (SEGMENT LOADED IN CORE) IN STATUS WORD IN«, t00=0x000d, t01=0x00ac}
0x1536…1566 Head {h00=0x002c, h01=0x0050, text=»* SEGMENT BLOCK IS CLEARED. «, t00=0x000d, t01=0x00ec}
0x1566…15aa Head {h00=0x0040, h01=0x0050, text=»* THE FOURTH WORD IN PAGE BLOCK IS SUBSEQUENTLY «, t00=0x000d, t01=0x011c}
0x15aa…15ec Head {h00=0x003e, h01=0x0050, text=»* USED AS COUNTER FOR NUMBER OF TASKS THE PAGE«, t00=0x000d, t01=0x0160}
0x15ec…162e Head {h00=0x003e, h01=0x0050, text=»* IS ATTACHED TO. IT IS INITIALLY SET TO ONE. «, t00=0x000e, t01=0x0012}
0x162e…1638 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0054}
0x1638…1646 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x005e}
0x1646…1650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006c}
0x1650…165a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0076}
0x165a…1678 Head {h00=0x001a, h01=0x0050, text=»* ******************«, t00=0x000e, t01=0x0080}
0x1678…1696 Head {h00=0x001a, h01=0x0050, text=»* * RELEASE PAGE *«, t00=0x000e, t01=0x009e}
0x1696…16b4 Head {h00=0x001a, h01=0x0050, text=»* ******************«, t00=0x000e, t01=0x00bc}
0x16b4…16be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00da}
0x16be…16c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e4}
0x16c8…16e0 Head {h00=0x0014, h01=0x0050, text=»* REQUEST: LKM «, t00=0x000e, t01=0x00ee}
0x16e0…16fc Head {h00=0x0018, h01=0x0050, text=»* DATA 26«, t00=0x000e, t01=0x0106}
0x16fc…1706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0122}
0x1706…172a Head {h00=0x0020, h01=0x0050, text=»* REQUEST PARAMETERS: A7=1 «, t00=0x000e, t01=0x012c}
0x172a…1758 Head {h00=0x002a, h01=0x0050, text=»* A1=PAGE NUMBER «, t00=0x000e, t01=0x0150}
0x1758…1762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x017e}
0x1762…17a2 Head {h00=0x003c, h01=0x0050, text=»* RETURN PARAMETERS: A7=UNCHANGED OR -1 IF ILLEGAL PAGE«, t00=0x000e, t01=0x0188}
0x17a2…17dc Head {h00=0x0036, h01=0x0050, text=»* A8=NUMBER OF REMAINING USERS«, t00=0x000f, t01=0x0038}
0x17dc…17e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0072}
0x17e6…17f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x007c}
0x17f0…1830 Head {h00=0x003c, h01=0x0050, text=»* FUNCTION: PAGE NUMBER IS CHECKED - IF NEGATIVE OR IF«, t00=0x000f, t01=0x0086}
0x1830…1872 Head {h00=0x003e, h01=0x0050, text=»* GREATER THAN NUMBER OF AVALIABLE PAGES PAGE «, t00=0x000f, t01=0x00c6}
0x1872…18ba Head {h00=0x0044, h01=0x0050, text=»* ERROR IS INDICATED AND THE REQUEST IS TERMINATED. «, t00=0x000f, t01=0x0108}
0x18ba…18c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0150}
0x18c4…1908 Head {h00=0x0040, h01=0x0050, text=»* ATTACH COUNTER (FOURTH WORD IN PAGE BLOCK) IS «, t00=0x000f, t01=0x015a}
0x1908…194e Head {h00=0x0042, h01=0x0050, text=»* DECREMENTED BY ONE. IF IT BECOMES ZERO THE PAGE «, t00=0x0010, t01=0x000e}
0x194e…198c Head {h00=0x003a, h01=0x0050, text=»* THE PAGE IS INSERTED IN THE FREE QUEUE. «, t00=0x0010, t01=0x0054}
0x198c…1996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0092}
0x1996…19ac Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0010, t01=0x009c}
0x19ac…19f0 Head {h00=0x0040, h01=0x0050, text=»* THE CORRESPONDING BIT IN THE MMU TABLE BIT MAP«, t00=0x0010, t01=0x00b2}
0x19f0…1a34 Head {h00=0x0040, h01=0x0050, text=»* IS CLEARED. IF NO OTHER BITS CORRESPONDING TO «, t00=0x0010, t01=0x00f6}
0x1a34…1a78 Head {h00=0x0040, h01=0x0050, text=»* THE SAME MMU ENTRY ARE SET, THE ADDRESS /FC00 «, t00=0x0010, t01=0x013a}
0x1a78…1aaa Head {h00=0x002e, h01=0x0050, text=»* IS STORED IN THE MMU ENTRY. «, t00=0x0010, t01=0x017e}
0x1aaa…1ab6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0020}
0x1ab6…1ac4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x002c}
0x1ac4…1ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003a}
0x1ace…1ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0044}
0x1ad8…1af6 Head {h00=0x001a, h01=0x0050, text=»* ***************** «, t00=0x0011, t01=0x004e}
0x1af6…1b14 Head {h00=0x001a, h01=0x0050, text=»* * ATTACH PAGE * «, t00=0x0011, t01=0x006c}
0x1b14…1b32 Head {h00=0x001a, h01=0x0050, text=»* ***************** «, t00=0x0011, t01=0x008a}
0x1b32…1b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a8}
0x1b3c…1b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b2}
0x1b46…1b5e Head {h00=0x0014, h01=0x0050, text=»* REQUEST: LKM «, t00=0x0011, t01=0x00bc}
0x1b5e…1b7a Head {h00=0x0018, h01=0x0050, text=»* DATA 26«, t00=0x0011, t01=0x00d4}
0x1b7a…1b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f0}
0x1b84…1ba8 Head {h00=0x0020, h01=0x0050, text=»* REQUEST PARAMETERS: A7=2 «, t00=0x0011, t01=0x00fa}
0x1ba8…1bd6 Head {h00=0x002a, h01=0x0050, text=»* A1=PAGE NUMBER «, t00=0x0011, t01=0x011e}
0x1bd6…1be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x014c}
0x1be0…1c20 Head {h00=0x003c, h01=0x0050, text=»* RETURN PARAMETERS: A7=UNCHANGED OR -1 IF ILLEGAL PAGE«, t00=0x0011, t01=0x0156}
0x1c20…1c58 Head {h00=0x0034, h01=0x0050, text=»* A8=LOGICAL ADDRESS TO PAGE«, t00=0x0012, t01=0x0008}
0x1c58…1c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0040}
0x1c62…1c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x004a}
0x1c6c…1cac Head {h00=0x003c, h01=0x0050, text=»* FUNCTION: PAGE NUMBER IS CHECKED - IF NEGATIVE OR IF«, t00=0x0012, t01=0x0054}
0x1cac…1cee Head {h00=0x003e, h01=0x0050, text=»* GREATER THAN NUMBER OF AVALIABLE PAGES ERROR«, t00=0x0012, t01=0x0094}
0x1cee…1d30 Head {h00=0x003e, h01=0x0050, text=»* IS INDICATED AND THE REQUEST IS TERMINATED. «, t00=0x0012, t01=0x00d6}
0x1d30…1d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0118}
0x1d3a…1d50 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0012, t01=0x0122}
0x1d50…1d90 Head {h00=0x003c, h01=0x0050, text=»* IF PAGE NUMBER IS OK, THE LOGICAL ADDRESS «, t00=0x0012, t01=0x0138}
0x1d90…1dc8 Head {h00=0x0034, h01=0x0050, text=»* TO CORRESPONDING PAGE IS FETCHED. «, t00=0x0012, t01=0x0178}
0x1dc8…1e16 Head {h00=0x004a, h01=0x0050, text=»* IF THE CORRESPONDING SUBENTRY IN THE MMU TABLE IS FREE, «, t00=0x0013, t01=0x0020}
0x1e16…1e5e Head {h00=0x0044, h01=0x0050, text=»* THE PAGE IS INCLUDED IN THE USER AREA ON THE SAME «, t00=0x0013, t01=0x006e}
0x1e5e…1e86 Head {h00=0x0024, h01=0x0050, text=»* LOGICAL ADDRESS.. «, t00=0x0013, t01=0x00b6}
0x1e86…1eca Head {h00=0x0040, h01=0x0050, text=»* THE CORRESPONDING BIT IN THE MMU TABLE BIT MAP«, t00=0x0013, t01=0x00de}
0x1eca…1f12 Head {h00=0x0044, h01=0x0050, text=»* IS SET TO INDICATE THAT THE SUBENTRY IS OCCUPIED. «, t00=0x0013, t01=0x0122}
0x1f12…1f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x016a}
0x1f1c…1f66 Head {h00=0x0046, h01=0x0050, text=»* IF THE SUBENTRY CORRESPONDING TO THE LOGICAL ADDRESS«, t00=0x0013, t01=0x0174}
0x1f66…1fb0 Head {h00=0x0046, h01=0x0050, text=»* IS OCCUPIED, PAGE ERROR IS INDICATED AND THE REQUEST«, t00=0x0014, t01=0x002e}
0x1fb0…1fd4 Head {h00=0x0020, h01=0x0050, text=»* IS TERMINATED.«, t00=0x0014, t01=0x0078}
0x1fd4…1fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009c}
0x1fde…1fea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00a6}
0x1fea…1ff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b2}
0x1ff4…2038 Head {h00=0x0040, h01=0x0050, text=»* THE ATTACH COUNTER (FOURTH WORD IN PAGE BLOCK)«, t00=0x0014, t01=0x00bc}
0x2038…2064 Head {h00=0x0028, h01=0x0050, text=»* IS INCREMENTED BY ONE.«, t00=0x0014, t01=0x0100}
0x2064…206e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x012c}
0x206e…207c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0014, t01=0x0136}
0x207c…2090 Head {h00=0x0010, h01=0x0050, text=»TPAGAL EQU *«, t00=0x0014, t01=0x0144}
0x2090…20b4 Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 GET PAGE REQUEST? «, t00=0x0014, t01=0x0158}
0x20b4…20ce Head {h00=0x0016, h01=0x0050, text=» ABL(NZ) RAPAG NO!«, t00=0x0014, t01=0x017c}
0x20ce…20d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0008}
0x20d8…211a Head {h00=0x003e, h01=0x0050, text=»* CHECK NUMBER OF FREE PAGES - IF NOT ENOUGTH, TERMINATE «, t00=0x0015, t01=0x0012}
0x211a…213a Head {h00=0x001c, h01=0x0050, text=»* THE REQUEST WITH A8=0«, t00=0x0015, t01=0x0054}
0x213a…2144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0074}
0x2144…2172 Head {h00=0x002a, h01=0x0050, text=» LD A6,PAGQUE+2 GET END OF FREE QUEUE «, t00=0x0015, t01=0x007e}
0x2172…21a4 Head {h00=0x002e, h01=0x0050, text=» CW A6,PAGQUE SAME AS START OF FREE QUEUE?«, t00=0x0015, t01=0x00ac}
0x21a4…21d0 Head {h00=0x0028, h01=0x0050, text=» RF(E) PAGERR NOT ENOUGTH FREE PAGES«, t00=0x0015, t01=0x00de}
0x21d0…21de Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0015, t01=0x010a}
0x21de…21f2 Head {h00=0x0010, h01=0x0050, text=»GETPAG EQU *«, t00=0x0015, t01=0x0118}
0x21f2…2208 Head {h00=0x0012, h01=0x0050, text=» IFF MMUPAG=1 «, t00=0x0015, t01=0x012c}
0x2208…2232 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A6 GET PAGE BLOCK ADDRESS «, t00=0x0015, t01=0x0142}
0x2232…223e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x016c}
0x223e…2254 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0015, t01=0x0178}
0x2254…2278 Head {h00=0x0020, h01=0x001b, text=» LDR A3,A5 GET TTAB ADDRESS «, t00=0x0015, t01=0x018e}
0x2278…2290 Head {h00=0x0014, h01=0x000f, text=» LDR A8,A3 SAVE «, t00=0x0016, t01=0x0022}
0x2290…22c2 Head {h00=0x002e, h01=0x0050, text=» ADKL A3,TTB:AM START OF ALLOCATION TABLE «, t00=0x0016, t01=0x003a}
0x22c2…22f2 Head {h00=0x002c, h01=0x0027, text=» ADKL A8,TTB:MT END OF ALLOCATION TABLE «, t00=0x0016, t01=0x006c}
0x22f2…230a Head {h00=0x0014, h01=0x0010, text=» LDR A10,A8 SAVE«, t00=0x0016, t01=0x009c}
0x230a…233a Head {h00=0x002c, h01=0x0050, text=»GET:10 LDKL A6,/8000 INIT OCCUPATION BIT«, t00=0x0016, t01=0x00b4}
0x233a…2364 Head {h00=0x0026, h01=0x0022, text=» LDR* A4,A3 GET 16 ALLOCATION BITS«, t00=0x0016, t01=0x00e4}
0x2364…238e Head {h00=0x0026, h01=0x0021, text=» XRKL A4,/FFFF ANY FREE SUBENTRY? «, t00=0x0016, t01=0x010e}
0x238e…23a8 Head {h00=0x0016, h01=0x0012, text=» RF(NZ) GET:40 YES«, t00=0x0016, t01=0x0138}
0x23a8…23de Head {h00=0x0032, h01=0x002d, text=»GET:20 ADKL A10,8 INCREMENT MMU TABLE POINTER «, t00=0x0016, t01=0x0152}
0x23de…2418 Head {h00=0x0036, h01=0x0032, text=»GET:25 ADK A3,2 INCREMENT ALLOCATION TABLE POINTER«, t00=0x0016, t01=0x0188}
0x2418…2444 Head {h00=0x0028, h01=0x0023, text=» CWR A3,A8 END OF ALLOCATION TABLE? «, t00=0x0017, t01=0x0032}
0x2444…245e Head {h00=0x0016, h01=0x0050, text=» RF(E) PAGERR YES!«, t00=0x0017, t01=0x005e}
0x245e…2470 Head {h00=0x000e, h01=0x0050, text=» RB GET:10«, t00=0x0017, t01=0x0078}
0x2470…247e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0017, t01=0x008a}
0x247e…24aa Head {h00=0x0028, h01=0x0024, text=»GET:40 LDR A2,A4 GET ALLOCATION WORD«, t00=0x0017, t01=0x0098}
0x24aa…24e2 Head {h00=0x0034, h01=0x002f, text=» ANKL A2,/F000 ANY FREE SUBENTRY IN THIS ENTRY? «, t00=0x0017, t01=0x00c4}
0x24e2…24fc Head {h00=0x0016, h01=0x0012, text=» RF(NZ) GET:60 YES«, t00=0x0017, t01=0x00fc}
0x24fc…251e Head {h00=0x001e, h01=0x001a, text=»GET:50 SLL A4,4 NEXT ENTRY«, t00=0x0017, t01=0x0116}
0x251e…254c Head {h00=0x002a, h01=0x0026, text=» ADKL 10,2 INCREMENT MMU ENTRY POINTER«, t00=0x0017, t01=0x0138}
0x254c…2572 Head {h00=0x0022, h01=0x0050, text=» SRL A6,4 ALL ENTRIES CHECKED?«, t00=0x0017, t01=0x0166}
0x2572…258c Head {h00=0x0016, h01=0x0050, text=» RB(E) GET:25 YES «, t00=0x0017, t01=0x018c}
0x258c…259e Head {h00=0x000e, h01=0x000a, text=» RB GET:40«, t00=0x0018, t01=0x0016}
0x259e…25d8 Head {h00=0x0036, h01=0x0032, text=»GET:60 LDR* A13,A10 GET CONTENT IN MMU TABLE ENTRY«, t00=0x0018, t01=0x0028}
0x25d8…2604 Head {h00=0x0028, h01=0x0050, text=» ANKL A13,/FC00 ISOLATE ADDRESS BITS«, t00=0x0018, t01=0x0062}
0x2604…2628 Head {h00=0x0020, h01=0x0050, text=»GET:70 ADK A2,0 ENTRY FREE? «, t00=0x0018, t01=0x008e}
0x2628…2642 Head {h00=0x0016, h01=0x0050, text=» RF(N) SFQFFP YES «, t00=0x0018, t01=0x00b2}
0x2642…2658 Head {h00=0x0012, h01=0x0050, text=» RB(Z) GET:50 «, t00=0x0018, t01=0x00cc}
0x2658…2680 Head {h00=0x0024, h01=0x0050, text=»GET:80 ADKL A13,LPGSIZ NEXT PAGE«, t00=0x0018, t01=0x00e2}
0x2680…26ae Head {h00=0x002a, h01=0x0050, text=» SLL A2,1 CHECK IF NEXT SUBENTRY FREE «, t00=0x0018, t01=0x010a}
0x26ae…26c0 Head {h00=0x000e, h01=0x0050, text=» RB GET:70«, t00=0x0018, t01=0x0138}
0x26c0…26ce Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0018, t01=0x014a}
0x26ce…26e2 Head {h00=0x0010, h01=0x0050, text=»SFQFFP EQU *«, t00=0x0018, t01=0x0158}
0x26e2…26ec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x016c}
0x26ec…2730 Head {h00=0x0040, h01=0x003c, text=»* SEARCH FREE QUEUE FOR PAGE TO FIT IN CURRENT MMU SUBENTRY«, t00=0x0018, t01=0x0176}
0x2730…273a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x002a}
0x273a…2772 Head {h00=0x0034, h01=0x002f, text=»* BIT SET IN A1 CORRESPOND TO CURRENT SUBENTRY «, t00=0x0019, t01=0x0034}
0x2772…27b2 Head {h00=0x003c, h01=0x0038, text=»* A3 - POINTER TO CURRENT ENTRY IN MMU ALLOCATION TABLE«, t00=0x0019, t01=0x006c}
0x27b2…27e0 Head {h00=0x002a, h01=0x0025, text=»* A10 - POINTER TO CURRENT MMU ENTRY «, t00=0x0019, t01=0x00ac}
0x27e0…2806 Head {h00=0x0022, h01=0x0050, text=»* A11 - PHYSICAL PAGE ADDRESS«, t00=0x0019, t01=0x00da}
0x2806…282c Head {h00=0x0022, h01=0x0050, text=»* A13 - LOGICAL PAGE ADDRESS «, t00=0x0019, t01=0x0100}
0x282c…2836 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x0126}
0x2836…287a Head {h00=0x0040, h01=0x003c, text=»* PAGQUE CONTAINS POINTER TO FIRST FREE PAGE BLOCK IN QUEUE«, t00=0x0019, t01=0x0130}
0x287a…28c0 Head {h00=0x0042, h01=0x003d, text=»* PAGQUE+2 CONTAINS POINTER TO LAST FREE PAGE BLOCK IN QUEUE «, t00=0x0019, t01=0x0174}
0x28c0…28ca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x002a}
0x28ca…28fa Head {h00=0x002c, h01=0x0050, text=» LD A1,PAGQUE+2 GET POINTER TO LAST PAGE«, t00=0x001a, t01=0x0034}
0x28fa…2910 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001a, t01=0x0064}
0x2910…2946 Head {h00=0x0032, h01=0x0050, text=»SFQ:10 CWK A1,PAGQUE ANY MOORE PAGE IN QUEUE? «, t00=0x001a, t01=0x007a}
0x2946…2960 Head {h00=0x0016, h01=0x0050, text=» RB(E) GET:80 NO! «, t00=0x001a, t01=0x00b0}
0x2960…299a Head {h00=0x0036, h01=0x0050, text=»SFQ:20 LD A11,PAG:PA,A1 GET PHYSICAL PAGE ADDRESS «, t00=0x001a, t01=0x00ca}
0x299a…29ca Head {h00=0x002c, h01=0x0050, text=»SFQ:25 CWK A2,/F000 ALL SUBENTRIES FREE?«, t00=0x001a, t01=0x0104}
0x29ca…29e4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SFQ:30 NO!«, t00=0x001a, t01=0x0134}
0x29e4…2a12 Head {h00=0x002a, h01=0x0050, text=» LDR A13,A11 GET PHYSICAL PAGE ADDRESS«, t00=0x001a, t01=0x014e}
0x2a12…2a56 Head {h00=0x0040, h01=0x0050, text=»SFQ:30 LDR A12,A13 GET PHYS. PAGE ADDRESS TO FIT IN SUBENTRY«, t00=0x001a, t01=0x017c}
0x2a56…2a80 Head {h00=0x0026, h01=0x0050, text=» XRR A12,A11 SAME PHYSICAL ADDRESS«, t00=0x001b, t01=0x0030}
0x2a80…2a9a Head {h00=0x0016, h01=0x0011, text=» RF(Z) SFQ:45 YES «, t00=0x001b, t01=0x005a}
0x2a9a…2ac8 Head {h00=0x002a, h01=0x0050, text=» LD A1,PAG:QB,A1 GET BACKWARD POINTER «, t00=0x001b, t01=0x0074}
0x2ac8…2ae8 Head {h00=0x001c, h01=0x0050, text=» RB SFQ:10 TRY NEXT PAGE«, t00=0x001b, t01=0x00a2}
0x2ae8…2af4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00c2}
0x2af4…2b02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00ce}
0x2b02…2b36 Head {h00=0x0030, h01=0x0050, text=»SFQ:45 LD A4,TTB:ID,A5 GET CALLING TASKS ID «, t00=0x001b, t01=0x00dc}
0x2b36…2b64 Head {h00=0x002a, h01=0x0050, text=» LD A12,PAG:QB,A1 GET BACKWARD POINTER«, t00=0x001b, t01=0x0110}
0x2b64…2b8c Head {h00=0x0024, h01=0x0050, text=» LDR* A9,A1 GET FORWARD POINTER «, t00=0x001b, t01=0x013e}
0x2b8c…2bb6 Head {h00=0x0026, h01=0x0022, text=» STR A9,A12 CHANGE FORWARD POINTER«, t00=0x001b, t01=0x0166}
0x2bb6…2be8 Head {h00=0x002e, h01=0x0029, text=» ST A12,PAG:QB,A9 CHANGE BACKWARD POINTER «, t00=0x001b, t01=0x0190}
0x2be8…2c14 Head {h00=0x0028, h01=0x0050, text=» STR A4,A1 STORE TASK IDENTIFICATION«, t00=0x001c, t01=0x0032}
0x2c14…2c42 Head {h00=0x002a, h01=0x0050, text=» LD A4,PAG:SB,A1 ANY SEGMENT ATTACHED?«, t00=0x001c, t01=0x005e}
0x2c42…2c5c Head {h00=0x0016, h01=0x0050, text=» RF(Z) SFQ:55 NO! «, t00=0x001c, t01=0x008c}
0x2c5c…2c8e Head {h00=0x002e, h01=0x0050, text=» LDKL A2,/7FFF INDICATE NOT LOADED IN CORE«, t00=0x001c, t01=0x00a6}
0x2c8e…2cb2 Head {h00=0x0020, h01=0x0050, text=» ANRS A2,A4 STORE NEW STATUS«, t00=0x001c, t01=0x00d8}
0x2cb2…2ce4 Head {h00=0x002e, h01=0x0050, text=» CM PAG:SB,A1 CLEAR SEGMENT BLOCK ADDRESS «, t00=0x001c, t01=0x00fc}
0x2ce4…2cf2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x012e}
0x2cf2…2d06 Head {h00=0x0010, h01=0x0050, text=»SFQ:55 EQU *«, t00=0x001c, t01=0x013c}
0x2d06…2d1c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001c, t01=0x0150}
0x2d1c…2d40 Head {h00=0x0020, h01=0x0050, text=» ECR A4,A13 GET PAGE ADDRESS«, t00=0x001c, t01=0x0166}
0x2d40…2d6a Head {h00=0x0026, h01=0x0050, text=» ANK A4,3 ISOLATE 1K-DISPLACEMENT «, t00=0x001c, t01=0x018a}
0x2d6a…2d96 Head {h00=0x0028, h01=0x0050, text=»SFQ:60 SUK A4,1 MOORE DISPLACEMENT? «, t00=0x001d, t01=0x0024}
0x2d96…2dac Head {h00=0x0012, h01=0x0050, text=» RF(N) SFQ:70 «, t00=0x001d, t01=0x0050}
0x2dac…2dbe Head {h00=0x000e, h01=0x0050, text=» SRL A6,1 «, t00=0x001d, t01=0x0066}
0x2dbe…2dd0 Head {h00=0x000e, h01=0x0050, text=» RB SFQ:60«, t00=0x001d, t01=0x0078}
0x2dd0…2dfa Head {h00=0x0026, h01=0x0050, text=»SFQ:70 ADK A7,0 GET PAGE REQUEST? «, t00=0x001d, t01=0x008a}
0x2dfa…2e14 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SFQ:80 YES!«, t00=0x001d, t01=0x00b4}
0x2e14…2e3a Head {h00=0x0022, h01=0x0050, text=» LDR A4,A6 GET OCCUPATION BIT «, t00=0x001d, t01=0x00ce}
0x2e3a…2e68 Head {h00=0x002a, h01=0x0050, text=» ANR* A4,A3 SUBENTRY ALREADY OCCUPIED?«, t00=0x001d, t01=0x00f4}
0x2e68…2e84 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) PAGERR YES! «, t00=0x001d, t01=0x0122}
0x2e84…2e9e Head {h00=0x0016, h01=0x0050, text=»SFQ:80 ORRS A6,A3 «, t00=0x001d, t01=0x013e}
0x2e9e…2ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0158}
0x2ea8…2ecc Head {h00=0x0020, h01=0x001c, text=»* INCLUDE PAGE IN USER AREA«, t00=0x001d, t01=0x0162}
0x2ecc…2ed6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x0186}
0x2ed6…2f02 Head {h00=0x0028, h01=0x0050, text=» LDR A6,A13 GET LOGICAL PAGE ADDRESS«, t00=0x001d, t01=0x0190}
0x2f02…2f2c Head {h00=0x0026, h01=0x0050, text=» ANKL A6,/300 ISOLATE DISPLACEMENT«, t00=0x001e, t01=0x002c}
0x2f2c…2f54 Head {h00=0x0024, h01=0x0050, text=» SLA A6,2 PHYSICAL DISPLACEMENT «, t00=0x001e, t01=0x0056}
0x2f54…2f6c Head {h00=0x0014, h01=0x0050, text=» LDR A11,A6 SAVE«, t00=0x001e, t01=0x007e}
0x2f6c…2f9c Head {h00=0x002c, h01=0x0028, text=» ANKL A13,/FC00 PHYSICAL 4K-PAGE ADDRESS«, t00=0x001e, t01=0x0096}
0x2f9c…2fc4 Head {h00=0x0024, h01=0x001f, text=» STR A13,A10 STORE IN MMU TABLE «, t00=0x001e, t01=0x00c6}
0x2fc4…2fd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00ee}
0x2fd2…2fdc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x00fc}
0x2fdc…3004 Head {h00=0x0024, h01=0x001f, text=»* COMPUTE LOGICAL PAGE ADDRESS «, t00=0x001e, t01=0x0106}
0x3004…300e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x012e}
0x300e…3044 Head {h00=0x0032, h01=0x002e, text=» SUR A10,A8 BYTE DISPLACEMENT TO CURRENT ENTRY«, t00=0x001e, t01=0x0138}
0x3044…305c Head {h00=0x0014, h01=0x0050, text=» LDR A6,A10 SAVE«, t00=0x001e, t01=0x016e}
0x305c…3084 Head {h00=0x0024, h01=0x0050, text=» SLA A6,11 MMU ENTRY IN BITS 0-3«, t00=0x001e, t01=0x0186}
0x3084…30a8 Head {h00=0x0020, h01=0x0050, text=» ADR A6,A11 ADD DISPLACEMENT«, t00=0x001f, t01=0x001e}
0x30a8…30b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0042}
0x30b4…30ca Head {h00=0x0012, h01=0x0050, text=» IFF MMUPAG=1 «, t00=0x001f, t01=0x004e}
0x30ca…30e2 Head {h00=0x0014, h01=0x0050, text=» LD A6,PAG:PA,A1«, t00=0x001f, t01=0x0064}
0x30e2…30ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x007c}
0x30ee…3120 Head {h00=0x002e, h01=0x0050, text=» ST A6,TTB:SA+16,A5 SAVE IN TTAB SAVE AREA«, t00=0x001f, t01=0x0088}
0x3120…312c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00ba}
0x312c…3152 Head {h00=0x0022, h01=0x0050, text=» SUK A7,2 ATTACH PAGE REQUEST?«, t00=0x001f, t01=0x00c6}
0x3152…316c Head {h00=0x0016, h01=0x0050, text=» RF(E) SFQ:90 YES!«, t00=0x001f, t01=0x00ec}
0x316c…31a2 Head {h00=0x0032, h01=0x0050, text=» ST A6,PAG:QB,A1 SAVE LOGICAL ADDRESS TO PAGE «, t00=0x001f, t01=0x0106}
0x31a2…31d6 Head {h00=0x0030, h01=0x0050, text=»SFQ:90 IM PAG:SB,A1 INCREMENT ATTACH COUNTER«, t00=0x001f, t01=0x013c}
0x31d6…31e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x0170}
0x31e0…31fe Head {h00=0x001a, h01=0x0016, text=»* COMPUTE PAGE NUMBER«, t00=0x001f, t01=0x017a}
0x31fe…3208 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0020, t01=0x0008}
0x3208…3238 Head {h00=0x002c, h01=0x0050, text=»RET:30 SU A1,SCTPAG COMPUTE DISPLACEMENT«, t00=0x0020, t01=0x0012}
0x3238…3262 Head {h00=0x0026, h01=0x0050, text=» SRL A1,3 CONVERT TO BLOCK NUMBER «, t00=0x0020, t01=0x0042}
0x3262…3288 Head {h00=0x0022, h01=0x0050, text=»RET:40 ST A1,TTB:SA+2,A5 SAVE «, t00=0x0020, t01=0x006c}
0x3288…329c Head {h00=0x0010, h01=0x000c, text=»RET:50 EQU *«, t00=0x0020, t01=0x0092}
0x329c…32aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x00a6}
0x32aa…32b4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0020, t01=0x00b4}
0x32b4…32d6 Head {h00=0x001e, h01=0x001a, text=»* RESTORE REGISTER A1-A14«, t00=0x0020, t01=0x00be}
0x32d6…32e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0020, t01=0x00e0}
0x32e0…330c Head {h00=0x0028, h01=0x0023, text=» ABL LKMQDI QUEUE TASK AND DISPATCH «, t00=0x0020, t01=0x00ea}
0x330c…3316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0116}
0x3316…332c Head {h00=0x0012, h01=0x0050, text=»* ERROR ENTRY«, t00=0x0020, t01=0x0120}
0x332c…3336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0136}
0x3336…334a Head {h00=0x0010, h01=0x0050, text=»PAGERR EQU *«, t00=0x0020, t01=0x0140}
0x334a…3372 Head {h00=0x0024, h01=0x0050, text=» ABL LKMRQE ERROR ENTRY INLRPINT«, t00=0x0020, t01=0x0154}
0x3372…3380 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0020, t01=0x017c}
0x3380…3394 Head {h00=0x0010, h01=0x0050, text=»RAPAG EQU * «, t00=0x0020, t01=0x018a}
0x3394…33bc Head {h00=0x0024, h01=0x0050, text=» LDR A4,A1 NEGATIVE PAGE NUMBER «, t00=0x0021, t01=0x000e}
0x33bc…33de Head {h00=0x001e, h01=0x0050, text=» RB(N) PAGERR YES! ERROR! «, t00=0x0021, t01=0x0036}
0x33de…340e Head {h00=0x002c, h01=0x0050, text=» ADK A4,1 ADJUST PAGE NUMBER FOR COMPARE«, t00=0x0021, t01=0x0058}
0x340e…3442 Head {h00=0x0030, h01=0x0050, text=» CW A4,SCTNOP PAGE NUMBER > NUMBER OF PAGES?«, t00=0x0021, t01=0x0088}
0x3442…345c Head {h00=0x0016, h01=0x0050, text=» RB(G) PAGERR YES!«, t00=0x0021, t01=0x00bc}
0x345c…3466 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x00d6}
0x3466…3488 Head {h00=0x001e, h01=0x0019, text=»* GET PAGE BLOCK ADDRESS «, t00=0x0021, t01=0x00e0}
0x3488…3492 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x0102}
0x3492…34c2 Head {h00=0x002c, h01=0x0050, text=» SLL A1,3 MULTIPLY PAGE NUMBER BY EIGHT «, t00=0x0021, t01=0x010c}
0x34c2…34f8 Head {h00=0x0032, h01=0x0050, text=» AD A1,SCTPAG ADD ADDRESS START OF PAGE TABLE «, t00=0x0021, t01=0x013c}
0x34f8…352c Head {h00=0x0030, h01=0x0050, text=» LD A11,PAG:PA,A1 GET PHYSICAL PAGE ADDRESS «, t00=0x0021, t01=0x0172}
0x352c…3558 Head {h00=0x0028, h01=0x0050, text=» LD A4,PAG:SB,A1 GET ATTACH COUNTER «, t00=0x0022, t01=0x0016}
0x3558…358e Head {h00=0x0032, h01=0x0050, text=» RB(NP) PAGERR NO PREVIOUS GET REQUEST ISSUED!«, t00=0x0022, t01=0x0042}
0x358e…35bc Head {h00=0x002a, h01=0x0050, text=» SUK A4,MAXATT SEGMENT BLOCK ADDRESS? «, t00=0x0022, t01=0x0078}
0x35bc…35ec Head {h00=0x002c, h01=0x0050, text=» RB(G) PAGERR YES;NO GET REQUEST ISSUED!«, t00=0x0022, t01=0x00a6}
0x35ec…3614 Head {h00=0x0024, h01=0x0050, text=» CWK A7,1 RELEASE PAGE REQUEST? «, t00=0x0022, t01=0x00d6}
0x3614…362e Head {h00=0x0016, h01=0x0050, text=» RF(E) REL:00 YES!«, t00=0x0022, t01=0x00fe}
0x362e…365c Head {h00=0x002a, h01=0x0050, text=» LD A4,TTB:ID,A5 GET CALLING TASKS ID «, t00=0x0022, t01=0x0118}
0x365c…3686 Head {h00=0x0026, h01=0x0050, text=» CWR* A4,A1 PAGE ALREADY ATTACHED?«, t00=0x0022, t01=0x0146}
0x3686…36a0 Head {h00=0x0016, h01=0x0050, text=» RB(E) PAGERR YES!«, t00=0x0022, t01=0x0170}
0x36a0…36b6 Head {h00=0x0012, h01=0x0050, text=» IFF MMUPAG=1 «, t00=0x0022, t01=0x018a}
0x36b6…36c8 Head {h00=0x000e, h01=0x0050, text=» RB SFQ:55«, t00=0x0023, t01=0x0010}
0x36c8…36d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0022}
0x36d4…36ea Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0023, t01=0x002e}
0x36ea…36f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0044}
0x36f8…3724 Head {h00=0x0028, h01=0x0050, text=» LD A4,PAG:QB,A1 GET LOGICAL ADDRESS«, t00=0x0023, t01=0x0052}
0x3724…373c Head {h00=0x0014, h01=0x0050, text=» LDR A13,A4 SAVE«, t00=0x0023, t01=0x007e}
0x373c…376e Head {h00=0x002e, h01=0x0050, text=» SRL A4,11 2*(BIT 0-3 OF LOGICAL ADDRESS) «, t00=0x0023, t01=0x0096}
0x376e…3792 Head {h00=0x0020, h01=0x0050, text=» LDR A8,A5 GET TTAB ADDRESS «, t00=0x0023, t01=0x00c8}
0x3792…37bc Head {h00=0x0026, h01=0x0050, text=» ADKL A8,TTB:MT START OF MMU TABLE«, t00=0x0023, t01=0x00ec}
0x37bc…37d4 Head {h00=0x0014, h01=0x0050, text=» LDR A10,A8 SAVE«, t00=0x0023, t01=0x0116}
0x37d4…37f8 Head {h00=0x0020, h01=0x0050, text=» ADR A10,A4 SELECT MMU ENTRY«, t00=0x0023, t01=0x012e}
0x37f8…382a Head {h00=0x002e, h01=0x0050, text=» XRR* A11,A10 CHECK IF SAME PHYSICAL PAGE «, t00=0x0023, t01=0x0152}
0x382a…3860 Head {h00=0x0032, h01=0x0050, text=» ANKL A11,/FC00 ISOLATE PHYSICAL PAGE ADDRESS «, t00=0x0023, t01=0x0184}
0x3860…3892 Head {h00=0x002e, h01=0x0050, text=» RB(NE) PAGERR NO;PAGE CANNOT BE ATTACHED!«, t00=0x0024, t01=0x002a}
0x3892…38b8 Head {h00=0x0022, h01=0x0050, text=»ATT:10 LDR A3,A4 GET BITS 0-1 «, t00=0x0024, t01=0x005c}
0x38b8…38de Head {h00=0x0022, h01=0x0050, text=» ANK A3,24 OF LOGICAL ADDRESS «, t00=0x0024, t01=0x0082}
0x38de…390e Head {h00=0x002c, h01=0x0050, text=» SRL A3,2 2*(BIT 0-1 OF LOGICAL ADDRESS)«, t00=0x0024, t01=0x00a8}
0x390e…3932 Head {h00=0x0020, h01=0x0050, text=» ADR A3,A5 ADD TTAB ADDRESS «, t00=0x0024, t01=0x00d8}
0x3932…395e Head {h00=0x0028, h01=0x0050, text=» ADKL A3,TTB:AM SELECT BIT MAP ENTRY«, t00=0x0024, t01=0x00fc}
0x395e…398e Head {h00=0x002c, h01=0x0050, text=» ANK A4,6 GET BIT 2-3 OF LOGICAL ADDRESS«, t00=0x0024, t01=0x0128}
0x398e…39a0 Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x0024, t01=0x0158}
0x39a0…39ca Head {h00=0x0026, h01=0x0050, text=» LDKL A6,/8000 INIT OCCUPATION BIT«, t00=0x0024, t01=0x016a}
0x39ca…39f2 (37, 0, 400) Head {h00=0x0024, h01=0x0050, text=»ATT:20 SUK A4,1 SUBENTRY FOUND? «, t00=0x0025, t01=0x0004}
0x39f2…3a0c Head {h00=0x0016, h01=0x0050, text=» RB(N) SFQ:55 YES!«, t00=0x0025, t01=0x002c}
0x3a0c…3a2c Head {h00=0x001c, h01=0x0050, text=» SRL A6,4 NEXT SUBENTRY «, t00=0x0025, t01=0x0046}
0x3a2c…3a3e Head {h00=0x000e, h01=0x0050, text=» RB ATT:20«, t00=0x0025, t01=0x0066}
0x3a3e…3a4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0078}
0x3a4c…3a58 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0086}
0x3a58…3a6c Head {h00=0x0010, h01=0x0050, text=»REL:00 EQU *«, t00=0x0025, t01=0x0092}
0x3a6c…3a82 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0025, t01=0x00a6}
0x3a82…3aa6 Head {h00=0x0020, h01=0x0050, text=» ECR A4,A11 GET PAGE ADDRESS«, t00=0x0025, t01=0x00bc}
0x3aa6…3ad8 Head {h00=0x002e, h01=0x0050, text=» ANK A4,3 ISOLATE DISPLACEMENT IN 4K-PAGE «, t00=0x0025, t01=0x00e0}
0x3ad8…3afc Head {h00=0x0020, h01=0x001b, text=» LDR A9,A5 GET TTAB ADDRESS «, t00=0x0025, t01=0x0112}
0x3afc…3b14 Head {h00=0x0014, h01=0x0010, text=» LDR A10,A9 SAVE«, t00=0x0025, t01=0x0136}
0x3b14…3b4a Head {h00=0x0032, h01=0x0050, text=» ADKL A9,TTB:AM START OF MMU ALLOCATION TABLE «, t00=0x0025, t01=0x014e}
0x3b4a…3b76 Head {h00=0x0028, h01=0x0023, text=» ADKL A10,TTB:MT START OF MMU TABLE «, t00=0x0025, t01=0x0184}
0x3b76…3b8e Head {h00=0x0014, h01=0x0010, text=» LDR A8,A10 SAVE«, t00=0x0026, t01=0x0020}
0x3b8e…3bc8 Head {h00=0x0036, h01=0x0031, text=»REL:10 LDKL A2,/8000 INIT SUBENTRY OCCUPATION BIT «, t00=0x0026, t01=0x0038}
0x3bc8…3bf0 Head {h00=0x0024, h01=0x0050, text=» LDKL A6,/F000 INIT NIBBLE MASK «, t00=0x0026, t01=0x0072}
0x3bf0…3c28 Head {h00=0x0034, h01=0x002f, text=»REL:20 LDR A12,A11 GET PHYSICAL 4K-PAGE ADDRESS «, t00=0x0026, t01=0x009a}
0x3c28…3c58 Head {h00=0x002c, h01=0x0050, text=» ANKL A12,/FC00 ISOLATE 4K-PAGE ADDRESS «, t00=0x0026, t01=0x00d2}
0x3c58…3c88 Head {h00=0x002c, h01=0x0050, text=» XRR* A12,A10 SAME PHYSICAL PAGE ADDRESS«, t00=0x0026, t01=0x0102}
0x3c88…3cb4 Head {h00=0x0028, h01=0x0050, text=» ANKL A12,/FC00 ISOLATE ADDRESS BITS«, t00=0x0026, t01=0x0132}
0x3cb4…3cce Head {h00=0x0016, h01=0x0011, text=» RF(E) REL:40 YES «, t00=0x0026, t01=0x015e}
0x3cce…3cfc Head {h00=0x002a, h01=0x0026, text=»REL:30 ADKL A10,2 NEXT MMU TABLE ENTRY«, t00=0x0026, t01=0x0178}
0x3cfc…3d2e Head {h00=0x002e, h01=0x0029, text=» SRL A2,4 NEXT MMU ALLOCATION TABLE ENTRY «, t00=0x0027, t01=0x0016}
0x3d2e…3d40 Head {h00=0x000e, h01=0x0050, text=» SRL A6,4 «, t00=0x0027, t01=0x0048}
0x3d40…3d62 Head {h00=0x001e, h01=0x0019, text=» RB(NE) REL:20 CHECK NEXT «, t00=0x0027, t01=0x005a}
0x3d62…3d96 Head {h00=0x0030, h01=0x002c, text=» ADKL A9,2 NEXT WORD IN MMU ALLOCATION TABLE«, t00=0x0027, t01=0x007c}
0x3d96…3dc6 Head {h00=0x002c, h01=0x0027, text=» CWR A9,A8 END OF MMU ALLOCATION TABLE? «, t00=0x0027, t01=0x00b0}
0x3dc6…3de6 Head {h00=0x001c, h01=0x0050, text=» RB(E) PAGERR YES:ERROR!«, t00=0x0027, t01=0x00e0}
0x3de6…3e10 Head {h00=0x0026, h01=0x0022, text=» RB REL:10 CHECK NEXT FOUR ENTRIES«, t00=0x0027, t01=0x0100}
0x3e10…3e1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x012a}
0x3e1e…3e4c Head {h00=0x002a, h01=0x0026, text=»REL:40 SUK A4,1 MOORE 1K-DISPLACEMENTS«, t00=0x0027, t01=0x0138}
0x3e4c…3e74 Head {h00=0x0024, h01=0x001f, text=» RF(N) REL:50 NO:SUBENTRY FOUND «, t00=0x0027, t01=0x0166}
0x3e74…3e94 Head {h00=0x001c, h01=0x0017, text=» SRL A2,1 NEXT SUBENTRY «, t00=0x0027, t01=0x018e}
0x3e94…3ea6 Head {h00=0x000e, h01=0x000a, text=» RB REL:40«, t00=0x0028, t01=0x001e}
0x3ea6…3eda Head {h00=0x0030, h01=0x002c, text=»REL:50 LDR A3,A2 GET SUBENTRY OCCUPATION BIT«, t00=0x0028, t01=0x0030}
0x3eda…3f00 Head {h00=0x0022, h01=0x0050, text=» ANR* A3,A9 SUBENTRY OCCUPIED?«, t00=0x0028, t01=0x0064}
0x3f00…3f28 Head {h00=0x0024, h01=0x0020, text=» RB(Z) REL:30 NO: TRY NEXT ENTRY«, t00=0x0028, t01=0x008a}
0x3f28…3f4a Head {h00=0x001e, h01=0x001a, text=» C1R A2,A2 COMPLEMENT BITS«, t00=0x0028, t01=0x00b2}
0x3f4a…3f72 Head {h00=0x0024, h01=0x0050, text=» ANRS A2,A9 CLEAR OCCUPATION BIT«, t00=0x0028, t01=0x00d4}
0x3f72…3fb0 Head {h00=0x003a, h01=0x0050, text=» ANR* A6,A9 ANY OTHER SUBENTRY IN THIS ENTRY OCCUPIED?«, t00=0x0028, t01=0x00fc}
0x3fb0…3fca Head {h00=0x0016, h01=0x0012, text=» RF(NE) REL:60 YES«, t00=0x0028, t01=0x013a}
0x3fca…400a Head {h00=0x003c, h01=0x0050, text=» LDKL A6,/FC00 ADDRESS TO LAST 4K-PAGE IN 256 KB MEMORY «, t00=0x0028, t01=0x0154}
0x400a…403c (41, 0, 400) Head {h00=0x002e, h01=0x0050, text=» STR A6,A10 STORE IN FREE MMU TABLE ENTRY «, t00=0x0029, t01=0x0004}
0x403c…4048 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0036}
0x4048…407c Head {h00=0x0030, h01=0x0050, text=»REL:60 LD A4,TTB:ID,A5 GET CALLING TASKS ID «, t00=0x0029, t01=0x0042}
0x407c…40b0 Head {h00=0x0030, h01=0x0050, text=» CWR* A4,A1 GET REQUEST ISSUED BY THIS TASK?«, t00=0x0029, t01=0x0076}
0x40b0…40ca Head {h00=0x0016, h01=0x0050, text=» RF(NE) REL:70 NO!«, t00=0x0029, t01=0x00aa}
0x40ca…40f8 Head {h00=0x002a, h01=0x0050, text=» CMR A1 EXTINGUISH TRACK TO THIS TASK «, t00=0x0029, t01=0x00c4}
0x40f8…4116 Head {h00=0x001a, h01=0x0050, text=»REL:70 SUK A7,2 A7:=-1«, t00=0x0029, t01=0x00f2}
0x4116…4148 Head {h00=0x002e, h01=0x0050, text=» ADS A7,PAG:SB,A1 DECREMENT ATTACH COUNTER«, t00=0x0029, t01=0x0110}
0x4148…417e Head {h00=0x0032, h01=0x0050, text=» LD A7,PAG:SB,A1 GET REMAINING NUMBER OF USERS«, t00=0x0029, t01=0x0142}
0x417e…41b0 Head {h00=0x002e, h01=0x0050, text=» ST A7,TTB:SA+16,A5 SAVE RETURN-PARAMETER «, t00=0x0029, t01=0x0178}
0x41b0…41c6 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) REL:80«, t00=0x002a, t01=0x001a}
0x41c6…41d0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x0030}
0x41d0…41fa Head {h00=0x0026, h01=0x0022, text=»* INSERT PAGE BLOCK IN FREE QUEUE«, t00=0x002a, t01=0x003a}
0x41fa…4204 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x0064}
0x4204…4216 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x002a, t01=0x006e}
0x4216…4222 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002a, t01=0x0080}
0x4222…424e Head {h00=0x0028, h01=0x0050, text=» CF A15,RELPA2 INSERT RELEASED PAGE «, t00=0x002a, t01=0x008c}
0x424e…425a Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002a, t01=0x00b8}
0x425a…4274 Head {h00=0x0016, h01=0x0050, text=»REL:80 ABL RET:50 «, t00=0x002a, t01=0x00c4}
0x4274…4280 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x002a, t01=0x00de}
0x4280…4284 Head {h00=0x4004, h01=0x0000}
0x4284…4288 00 2a 00 ea ┆ * ┆
0x4288…4290 (43, 1, 8) 20 04 00 00 00 2b 00 04 ┆ + ┆
0x4290…42e0 (44, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 03 01 8c 00 12 00 0d 2a 20 20 45 4e 54 52 49 45 53 20 20 2a 20 00 04 00 12 00 12 00 0d 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 04 00 28 00 24 00 50 5c 45 4e 54 52 59 5c 54 4c 44 50 47 4d 5c 4c 4f 41 44 ┆********* * ENTRIES * ************* ( $ P ENTRY TLDPGM LOAD┆
0x42e0…4330 20 50 52 4f 47 52 41 4d 20 45 4e 54 52 59 00 04 00 3e 00 04 00 02 00 04 00 66 00 0a 00 06 5c 45 4a 45 43 54 00 04 00 6e 00 14 00 0f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 04 00 7c 00 14 00 0f 2a 20 20 45 58 54 45 52 4e 41 4c 53 ┆ PROGRAM ENTRY > f EJECT n *************** | * EXTERNALS┆
0x4330…4380 20 20 2a 20 00 04 00 94 00 14 00 0f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 04 00 ac 00 22 00 50 5c 45 58 54 52 4e 5c 54 44 49 53 50 5c 44 49 53 50 41 54 43 48 45 52 20 45 4e 54 52 59 20 00 04 00 c4 00 32 00 2d 5c 45 58 54 52 4e ┆ * *************** " P EXTRN TDISP DISPATCHER ENTRY 2 - EXTRN┆
0x4380…43d0 5c 51 4c 54 41 53 4b 5c 51 55 45 55 45 20 4c 4f 41 44 20 54 41 53 4b 20 45 4e 54 52 59 20 49 4e 20 4c 44 54 41 53 4b 20 00 04 00 ea 00 22 00 50 5c 45 58 54 52 4e 5c 4c 44 3a 45 43 42 5c 4c 44 54 41 53 4b 20 45 43 42 20 41 52 45 41 20 00 04 ┆ QLTASK QUEUE LOAD TASK ENTRY IN LDTASK " P EXTRN LD:ECB LDTASK ECB AREA ┆
0x43d0…4420 01 20 00 28 00 23 5c 45 58 54 52 4e 5c 4c 44 3a 42 55 46 5c 4c 4f 41 44 20 54 41 53 4b 20 44 49 53 43 20 42 55 46 46 45 52 20 00 04 01 46 00 22 00 50 5c 45 58 54 52 4e 5c 4c 44 3a 42 55 45 5c 44 49 53 43 20 42 55 46 46 45 52 20 45 4e 44 20 ┆ ( # EXTRN LD:BUF LOAD TASK DISC BUFFER F " P EXTRN LD:BUE DISC BUFFER END ┆