|
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: 17304 (0x4398)
Notes: pts_type(SC)
Names: »LDTASK.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/LDTASK.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »M:92T1/LDTASK.SC«
IDENT LDTASK REL 9.2 79-12-06 870105040920 =2, DEVICE TABLE LENGTH DATA WORD REL 9.2 79-11-16 =1, QLTASK RETURN IN ENABLE REL 9.1 79-05-23 * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * LDTASK = LOAD TASK * * * * ************************************************** * * * THIS MODULE CONTAINS THE LOAD TASK * USED IN TOSS MEMORY MANAGEMENT SYSTEMS. * * IT CONTAINS TWO ENTRY POINTS: * * - LT:DSK USED IN DISC PAGING SYSTEMS * - LT:SWB USED IN SWAPPABLE WORK BLOCK SYSTEMS * * EJECT LDTASK * * *********** * ENTRIES * *********** * * ENTRY LT:DSK DISC PAGING ENTRY ENTRY LT:SWB SWAPPABLE WORK BLOCK ENTRY ENTRY TTABLD LOAD TASK TTAB ENTRY QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK ENTRY QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB ENTRY PQEMTY PAGE QUEUE EMPTY FLAG EJECT LDTASK * * ************* * EXTERNALS * ************* * * EXTRN TLDS15 ENTRY IN TLDSEG EXTRN TLDS20 ENTRY IN TLDSEG EXTRN MEXIT MONITOR TASK EXIT EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR EXTRN ACTOT ACTIVATE TASK EXTRN QTJOB QUEUE TASK FOR DISPATCHING EXTRN PAGQUE FREE PAGE QUEUE EXTRN PAG:QB QUEUE LINK BACKWARDS EXTRN PAG:PA PAGE ADDRESS EXTRN PAG:SB SEGMENT BLOCK ADDRESS EXTRN SEG:DS DISC SECTOR ADDRESS EXTRN SEG:EL SEGMENT LENGTH EXTRN SEG:PB PAGE BLOCK ADDRESS EXTRN SWB:DS DISC SECTOR ADDRESS OF FIRST COPY EXTRN SWB:EL SWB LENGTH (BYTES) EXTRN SWB:NS SWB LENGTH (SECTORS) EXTRN ECBBA ECB BUFFER ADDRESS EXTRN ECBRC ECB RETURN CODE EXTRN ECBCW ECB CONTROL WORD EXTRN TTB:SA TTAB SAVE AREA EXTRN TTB:MT MMU TABLE EXTRN TTB:SB SEGMENT BLOCK ADDRESS EXTRN SCTPLD PROGRAM LOADING DEVICE EXTRN SCTPSZ PAGE SIZE EXTRN SCTLAP LOGICAL ADDRESS OF PAGES EXTRN T:ACSB CURRENT SEGMENT BASE EJECT LDTASK * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * * A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK * BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. * SWPBLK EQU 0 * * * A PROGRAM VERSION USING TOSS ASSEMBLER OVERLAY * IS OBTAINED BY SETTING ASSOLY EQU 1. * ASSOLY EQU 0 * EJECT LDTASK * * LDTASK ECB AND BUFFER AREAS * LD:ECB DATA 0,0,410,0,0,0 ECB AREA FOR LOAD TASK * LD:BUF RES 205 INTERMEDIATE BUFFER FOR LOAD TASK * RES 2 LOAD TASK STACK (ONE LEVEL) LD:STB EQU *-2 LOAD TASK STACK BASE * PQEMTY DATA 0 PAGE QUEUE EMPTY FLAG * EJECT LDTASK * * TTABLD (LOAD TASK TTAB) * IFT MMUPAG=1 RES 16 LDTASK MMU TABLE XIF * DATA 0 SEGMENT BLOCK ADDRESS * TTABLD EQU * TTABLD ENTRY DATA 0 DISPATCHER QUEUE LINK DATA '#L' TASK IDENTIFICATION DATA 49 PRIORITY LEVEL DATA 0 PENDING POINTER DATA /C4C0 PSW (PROGRAM STATUS WORD) DATA 0 DISPATCH ADDRESS DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 DATA 0,0,0,0,0,0,0 DATA 2 DEVICE TABLE LENGTH =2 * EJECT LDTASK * * ********** * LT:DSK * ********** * * * LT:DSK PERFORMS LOADING OF DISC RESIDENT SEGMENTS INTO CORE. * * INPUT: A1 = SEGMENT BLOCK ADDRESS * A3 = TTAB ADDRESS OF CALLING TASK * * LT:DSK EQU * LDTASK DISC PAGING ENTRY LD A13,TTB:SA+26,A3 GET A13 FROM TTAB SAVE AREA LDKL A5,TTABLD GET LDTASK TTAB ADDRESS LDR* A2,A1 GET SEGMENT STATUS RF(NN) LTD:05 SEGMENT NOT LOADED IN CORE? * * UPDATE MMU TABLE FOR CALLING TASK (IF MMU) AND * REMOVE PAGE FROM PAGQUE * LDR A7,A3 SAVE A3 LDR A5,A3 LD A1,SEG:PB,A1 GET PAGE BLOCK ADDRESS CF A15,TLDS15 LDR A5,A7 GET TTAB ADDRESS OF CALLING TASK ABL LTD:80 * EJECT LDTASK * * NO PAGE AVAILABLE. PAUSE LDTASK UNTIL RESTARTED * BY IHLKM WHEN PAGE AVAILABLE AGAIN. * LTD:00 EQU * IM PQEMTY INDICATE PAGE QUEUE EMPTY LKM DATA 5 PAUSE LDTASK * * GET ONE PAGE FROM PAGQUE * LTD:05 EQU * LD A2,PAGQUE+2 CWK A2,PAGQUE RB(E) LTD:00 NO PAGE AVAILABLE? * EJECT LDTASK * * TAKE FOUND PAGE OUT OF PAGQUE * LD A4,PAG:QB,A2 ADDRESS TO NEXT PAGE BLOCK ST A4,PAGQUE+2 UPDATE QUEUE ANCHOR LDR* A12,A2 GET PAGQUE ADDRESS AND UPDATE... STR A12,A4 ...QUEUE LINK FORWARD FOR NEXT BLOCK CMR A2 RESET QUEUE LINK FORWARD OF REMOVED BLK LDKL A6,/4000 SEGMENT UNDER LOADING BIT LD A4,PAG:SB,A2 GET OLD SEGMENT BLOCK ADDRESS RF(Z) LTD:15 SCR A6,A4 RESET STATUS * LTD:15 EQU * ORRS A6,A1 INDICATE SEGMENT UNDER LOADING ST A2,SEG:PB,A1 SET NEW PAGE BLOCK ADDRESS ST A1,PAG:SB,A2 SET NEW SEGMENT BLOCK ADDRESS * IFT MMUPAG=1 * * UPDATE MMU TABLE FOR CALLING TASK AND LDTASK * INH MS 3,TTB:SA+2,A5 SAVE A1-A3 IN TTAB SAVE AREA TL TTB:MT,A3 LOAD MMU WITH CALLING TASK TS TTB:MT,A5 STORE IN LDTASK MMU TABLE LDR A1,A2 LDR A3,A5 TTAB ADDRESS OF LDTASK CF A15,TLDS20 UPDATE MMU TABLE FOR LDTASK TS TTB:MT,A3 STORE NEW MMU TABLE FOR CALLING TASK ENB XIF * EJECT LDTASK * * PREPARE FOR READING OF SEGMENT * LD A6,SEG:EL,A1 GET SEGMENT LENGTH SRL A6,1 CONVERT LENGTH TO WORDS LD A4,SCTPSZ GET PAGE SIZE SRL A4,1 CONVERT LENGTH TO WORDS LDR A5,A3 GET TTAB ADDRESS OF CALLING TASK LD A3,PAG:PA,A2 GET PAGE ADDRESS (PHYSICAL) LD A2,SEG:DS,A1 GET SEGMENT DISC ADDRESS LDR A9,A1 SAVE SEGMENT BLOCK ADDRESS LDR A11,A5 INDICATE DISC PAGING (A11 <> 0) * IFT MMUPAG=0 ST A3,T:ACSB,A13 UPDATE CURRENT SEGMENT BASE XIF * LTD:35 EQU * ENTRY USED BY LT:SWB LDK A7,/91 PHYSICAL READ * * SET ECB PARAMETERS * LTD:40 EQU * ENTRY USED BY LT:SWB LDKL A14,LD:STB LOAD LDTASK STACK BASE LDKL A8,LD:ECB GET LD:ECB ADDRESS ST A2,ECBCW,A8 * IFT MMUPAG=0 SUK A3,2 LDR A12,A3 LD A2,SCTPLD GET PROGRAM DISC FILE CODE STR A2,A8 ST A3,ECBBA,A8 SET BUFFER ADDRESS RF LTD:60 XIF * EJECT LDTASK * * IFT ASSOLY=1 LD A2,SCTPLD GET PROGRAM DISC FILE CODE STR A2,A8 LDKL A1,LD:BUF GET LDTASK BUFFER ADDRESS ST A1,ECBBA,A8 CF A14,LTD:85 READ FIRST SECTOR TO LD:BUF XIF * IFT MMUPAG=1 IFT SWPBLK=1 LDR A11,A11 CHECK DISC PAGING/SWB FLAG RF(NZ) LTD:43 DISC PAGING REQUEST? * EJECT LDTASK * * LDR A12,A3 SAVE LOGICAL BUFFER ADDRESS ECR A2,A3 CONVERT LOGICAL ADDRESS TO PHYSICAL ANKL A3,/FFF SRL A2,3 ANK A2,/1E MMUTAB INDEX (5 BITS) ADR A2,A5 ADD TTAB ADDRESS LC A2,TTB:MT,A2 GET PHYSICAL PAGE ADDRESS SRL A2,2 ECR A1,A2 ANK A2,/0F SRC A2,4 ORR A3,A2 RF(NZ) LTD:48 SUKL A1,/1000 RF LTD:48 * LTD:43 EQU * XIF * IFT MMUPAG=1 LDR A1,A3 SRL A1,2 SLL A3,2 RF(NZ) LTD:45 SUKL A1,/1000 * EJECT LDTASK * * LTD:45 EQU * LDR A12,A3 ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL OR A12,SCTLAP * LTD:48 EQU * SUK A3,2 ST A3,ECBBA,A8 SET BUFFER ADDRESS ANKL A1,/3000 OR A1,SCTPLD GET PROGRAM DISC FILE CODE STR A1,A8 * IFT ASSOLY=0 SUKL A12,2 RF LTD:60 XIF * IFT ASSOLY=1 * * MOVE FIRST SECTOR TO PAGE AREA * LDKL A1,LD:BUF+2 LDR A2,A12 LDKL A3,376 MVSU A3 MOVE FIRST SECTOR TO PAGE SUKL A12,2 XIF * EJECT LDTASK * * LTD:50 EQU * IM ECBCW,A8 POINT TO NEXT SECTOR * IFT ASSOLY=0 LDK A1,200 XIF * IFT ASSOLY=1 LDK A1,188 XIF * SUR A6,A1 GET REMAINING LENGTH OF SEGMENT/SWB RF(NP) LTD:75 SEGMENT/SWB HANDLING FINISHED? SUR A4,A1 GET REMAINING LENGTH OF PAGE ADR A1,A1 ADR A12,A1 UPDATE PAGE AREA POINTER * IFT MMUPAG=1 LD A10,ECBBA,A8 GET BUFFER ADDRESS RF(N) LTD:55 ADS A1,ECBBA,A8 UPDATE BUFFER ADDRESS RF LTD:60 * LTD:55 EQU * ADS A1,ECBBA,A8 UPDATE BUFFER ADDRESS RF(N) LTD:60 NOT OVERFLOW? LDKL A1,/1000 OVERFLOW CORRECTION ADRS A1,A8 XIF * IFT MMUPAG=0 ADS A1,ECBBA,A8 UPDATE BUFFER ADDRESS XIF * EJECT LDTASK * * LTD:60 EQU * CWK A4,204 CHECK REMAINING LENGTH OF PAGE RF(L) LTD:65 NOT ROOM FOR ONE MORE SECTOR IN PAGE? * IFT MMUPAG=1 ELR A10,A12 SAVE WORD TO BE DESTROYED BY DISC CYL-ID CF A14,LTD:85 READ/WRITE ONE SECTOR ESR A10,A12 RESTORE SAVED WORD RB LTD:50 XIF * IFT MMUPAG=0 LDR* A10,A12 SAVE WORD TO BE DESTROYED BY DISC CYL-ID CF A14,LTD:85 READ/WRITE ONE SECTOR STR A10,A12 RESTORE SAVED WORD RB LTD:50 XIF * EJECT LDTASK * * NOT ROOM ENOUGH IN PAGE FOR LAST SECTOR: * READ IT TO MEMORY VIA INTERMEDIATE BUFFER * LTD:65 EQU * LDKL A1,LD:BUF GET LDTASK BUFFER ADDRESS ST A1,ECBBA,A8 LDK A2,/80 SCR A2,A8 INDICATE BUFFER NOW IN SYSTEM AREA CF A14,LTD:85 READ ONE SECTOR TO LD:BUF ADK A1,2 SKIP CYLINDER ID LDR A2,A12 GET PAGE POINTER ADK A2,2 ADR A6,A6 CONVERT LENGTH TO BYTES * IFT MMUPAG=1 MVSU A6 MOVE LAST PART OF SEGMENT/SWB TO PAGE XIF * IFT MMUPAG=0 LTD:70 EQU * LDR* A10,A1 MOVE ONE WORD STR A10,A2 ADK A1,2 INCREMENT BUFFER POINTERS ADK A2,2 SUK A6,2 DECREMENT COUNTER RB(P) LTD:70 XIF * EJECT LDTASK * * LTD:75 EQU * IFT SWPBLK=1 LDR A11,A11 CHECK DISC PAGING/SWB FLAG RF(Z) LTD:80 SWB HANDLING? XIF * LDKL A4,/C000 INDICATE SEGMENT SUCCESSFULLY LOADED XRRS A4,A9 * LTD:80 EQU * CF A15,QTJOB QUEUE TASK FOR DISPATCHING ABL MEXIT PERFORM EXIT ON LDTASK * EJECT LDTASK * * READ ONE SECTOR FROM DISC * LTD:85 EQU * LKM DATA 1 LD A2,ECBRC,A8 GET RETURN CODE ANKL A2,/FEFF SKIP RETRY BIT RF(NZ) LTD:95 DISC ERROR? RTN A14 NO, RETURN * * ERROR: INSERT PAGE IN PAGQUE AGAIN * LTD:95 ANK A2,1 NGR A2,A2 SUK A2,2 ERROR, SET RETURN CODE -2 OR -3 ST A2,TTB:SA+14,A5 SET RETURN CODE IN A7 * IFT SWPBLK=1 LDR A11,A11 CHECK DISC PAGING/SWB FLAG RB(Z) LTD:80 SWB HANDLING? XIF * CM TTB:SB,A5 RESET SEGMENT BLOCK ADDRESS LD A3,SEG:PB,A9 GET PAGE BLOCK ADDRESS LDKL A4,PAGQUE GET PAGQUE ADDRESS ST A4,PAG:QB,A3 LDR* A4,A4 GET ADDRESS OF FIRST BLOCK IN PAGQUE STR A4,A3 UPDATE QUEUE LINKS ST A3,PAGQUE ST A3,PAG:QB,A4 LDK A4,1 INDICATE SEGMENT ERROR SCR A4,A9 RB LTD:80 * EJECT LDTASK * * ********** * QLTDSK * * QLTSWB * ********** * * * THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK. * * ACTIVATION IS AT LT:DSK WHEN DISC PAGING REQUEST. * ACTIVATION IS AT LT:SWB WHEN SWAPPABLE WORK BLOCK REQUEST. * * INPUT: A1 = SEGMENT BLOCK ADDRESS (LT:DSK) * = SWAPPABLE WORK BLOCK ADDRESS (LT:SWB) * A3 = TTAB ADDRESS OF CALLING TASK * * OUTPUT: A2, A5 ARE DESTROYED * * QLTSWB EQU * ACTIVATE LDTASK AT ENTRY LT:SWB LDKL A2,LT:SWB GET DISPATCH ADDRESS RF QLTASK * QLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK LDKL A2,LT:DSK GET DISPATCH ADDRESS * QLTASK EQU * LDKL A5,TTABLD GET LDTASK TTAB ADDRESS ABL ACTOT ACTIVATE LDTASK =1 * EJECT LDTASK * * IFT SWPBLK=1 * * ********** * LT:SWB * ********** * * * LT:SWB HANDLES THE LOADING/STORING OF SWAPPABLE WORK BLOCKS. * * INPUT: A1 = SWAPPABLE WORK BLOCK ADDRESS * A3 = TTAB ADDRESS OF CALLING TASK * * LT:SWB EQU * LDTASK SWB HANDLING ENTRY IFT MMUPAG=1 INH LDKL A5,TTABLD GET LDTASK TTAB ADDRESS TL TTB:MT,A3 LOAD MMU WITH CALLING TASK TS TTB:MT,A5 STORE IN LDTASK MMU TABLE ENB XIF * IFT SWPBLK=1 SUR A11,A11 INDICATE SWB HANDLING (A11 = 0) LDR A5,A3 GET TTAB ADDRESS OF CALLING TASK LD A3,TTB:SA+16,A5 GET MEMORY ADDRESS (LOGICAL) LD A4,SWB:DS,A1 GET DISC ADDRESS OF FIRST COPY LD A6,SWB:EL,A1 GET SWB COPY LENGTH (BYTES) LD A2,SWB:NS,A1 GET SWB COPY LENGTH (SECTORS) LDR A7,A1 SAVE A1 LD A1,TTB:SA+14,A5 ANK A1,/FF GET SWB COPY INDEX * EJECT LDTASK * * LTS:10 EQU * SUK A1,1 * IFT CPU852=1 RF(NP) LTS:20 ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB RB LTS:10 * LTS:20 EQU * LDR A2,A4 GET DISC ADDRESS OF REQUESTED SWB XIF * IFT SWPBLK=1 IFT CPU852=0 MUR A1 COMPUTE DISC ADDRESS OF REQUESTED SWB ADR A2,A4 XIF * IFT SWPBLK=1 ADK A6,1 SRL A6,1 CONVERT SWB LENGTH TO WORDS LDR A4,A6 ANK A7,1 GET LOAD/STORE SWB REQUEST FLAG ABL(Z) LTD:35 LOAD SWB REQUEST? LDKL A4,/7FFF PARAMETER TO AVOID INTERMEDIATE BUFFER LDK A7,/95 PHYSICAL WRITE (STORE SWB REQUEST) ABL LTD:40 XIF * IFT SWPBLK=0 LT:SWB ABL LKMERR INDICATE SYSGEN ERROR XIF * * * END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT LDTASK REL 9.2 79-12-06 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…006a Head {h00=0x0028, h01=0x0050, text=» =2, DEVICE TABLE LENGTH DATA WORD«, t00=0x0000, t01=0x0042}
0x006a…0086 Head {h00=0x0018, h01=0x0050, text=» REL 9.2 79-11-16 «, t00=0x0000, t01=0x006e}
0x0086…00ac Head {h00=0x0022, h01=0x0050, text=» =1, QLTASK RETURN IN ENABLE«, t00=0x0000, t01=0x008a}
0x00ac…00c8 Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0000, t01=0x00b0}
0x00c8…00d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00cc}
0x00d2…010c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x00d6}
0x010c…0116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x0116…013e Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x011a}
0x013e…0148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0142}
0x0148…0166 Head {h00=0x001a, h01=0x0050, text=»* LDTASK = LOAD TASK«, t00=0x0000, t01=0x014c}
0x0166…0170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016a}
0x0170…017a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0174}
0x017a…0184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017e}
0x0184…018e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0188}
0x018e…01c8 (1, 0, 398) Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x0004}
0x01c8…01d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003e}
0x01d2…01dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0048}
0x01dc…020a Head {h00=0x002a, h01=0x0050, text=»* THIS MODULE CONTAINS THE LOAD TASK«, t00=0x0001, t01=0x0052}
0x020a…023e Head {h00=0x0030, h01=0x0050, text=»* USED IN TOSS MEMORY MANAGEMENT SYSTEMS. «, t00=0x0001, t01=0x0080}
0x023e…0248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b4}
0x0248…0272 Head {h00=0x0026, h01=0x0050, text=»* IT CONTAINS TWO ENTRY POINTS: «, t00=0x0001, t01=0x00be}
0x0272…027c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e8}
0x027c…02ae Head {h00=0x002e, h01=0x0050, text=»* - LT:DSK USED IN DISC PAGING SYSTEMS«, t00=0x0001, t01=0x00f2}
0x02ae…02ea Head {h00=0x0038, h01=0x0050, text=»* - LT:SWB USED IN SWAPPABLE WORK BLOCK SYSTEMS «, t00=0x0001, t01=0x0124}
0x02ea…02f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0160}
0x02f4…02fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016a}
0x02fe…0316 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x0001, t01=0x0174}
0x0316…0320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018c}
0x0320…032a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0008}
0x032a…033e Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0012}
0x033e…0352 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x0026}
0x0352…0366 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x003a}
0x0366…0370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004e}
0x0370…037a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0058}
0x037a…03a2 Head {h00=0x0024, h01=0x0050, text=» ENTRY LT:DSK DISC PAGING ENTRY «, t00=0x0002, t01=0x0062}
0x03a2…03d2 Head {h00=0x002c, h01=0x0050, text=» ENTRY LT:SWB SWAPPABLE WORK BLOCK ENTRY«, t00=0x0002, t01=0x008a}
0x03d2…03f6 Head {h00=0x0020, h01=0x0050, text=» ENTRY TTABLD LOAD TASK TTAB«, t00=0x0002, t01=0x00ba}
0x03f6…042c Head {h00=0x0032, h01=0x0050, text=» ENTRY QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK «, t00=0x0002, t01=0x00de}
0x042c…0462 Head {h00=0x0032, h01=0x0050, text=» ENTRY QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB «, t00=0x0002, t01=0x0114}
0x0462…048e Head {h00=0x0028, h01=0x0050, text=» ENTRY PQEMTY PAGE QUEUE EMPTY FLAG «, t00=0x0002, t01=0x014a}
0x048e…04a6 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x0002, t01=0x0176}
0x04a6…04b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018e}
0x04b0…04ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0008}
0x04ba…04d0 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x0012}
0x04d0…04e6 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x0028}
0x04e6…04fc Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x003e}
0x04fc…0506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0054}
0x0506…0510 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x005e}
0x0510…0536 Head {h00=0x0022, h01=0x0050, text=» EXTRN TLDS15 ENTRY IN TLDSEG «, t00=0x0003, t01=0x0068}
0x0536…055c Head {h00=0x0022, h01=0x0050, text=» EXTRN TLDS20 ENTRY IN TLDSEG «, t00=0x0003, t01=0x008e}
0x055c…0582 Head {h00=0x0022, h01=0x0050, text=» EXTRN MEXIT MONITOR TASK EXIT«, t00=0x0003, t01=0x00b4}
0x0582…05ba Head {h00=0x0034, h01=0x0050, text=» EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR«, t00=0x0003, t01=0x00da}
0x05ba…05dc Head {h00=0x001e, h01=0x0050, text=» EXTRN ACTOT ACTIVATE TASK«, t00=0x0003, t01=0x0112}
0x05dc…060c Head {h00=0x002c, h01=0x0050, text=» EXTRN QTJOB QUEUE TASK FOR DISPATCHING «, t00=0x0003, t01=0x0134}
0x060c…0632 Head {h00=0x0022, h01=0x0050, text=» EXTRN PAGQUE FREE PAGE QUEUE «, t00=0x0003, t01=0x0164}
0x0632…065c Head {h00=0x0026, h01=0x0050, text=» EXTRN PAG:QB QUEUE LINK BACKWARDS«, t00=0x0003, t01=0x018a}
0x065c…067e Head {h00=0x001e, h01=0x0050, text=» EXTRN PAG:PA PAGE ADDRESS«, t00=0x0004, t01=0x0024}
0x067e…06aa Head {h00=0x0028, h01=0x0050, text=» EXTRN PAG:SB SEGMENT BLOCK ADDRESS «, t00=0x0004, t01=0x0046}
0x06aa…06d4 Head {h00=0x0026, h01=0x0050, text=» EXTRN SEG:DS DISC SECTOR ADDRESS «, t00=0x0004, t01=0x0072}
0x06d4…06f8 Head {h00=0x0020, h01=0x0050, text=» EXTRN SEG:EL SEGMENT LENGTH«, t00=0x0004, t01=0x009c}
0x06f8…0720 Head {h00=0x0024, h01=0x0050, text=» EXTRN SEG:PB PAGE BLOCK ADDRESS«, t00=0x0004, t01=0x00c0}
0x0720…0758 Head {h00=0x0034, h01=0x0050, text=» EXTRN SWB:DS DISC SECTOR ADDRESS OF FIRST COPY «, t00=0x0004, t01=0x00e8}
0x0758…0780 Head {h00=0x0024, h01=0x0050, text=» EXTRN SWB:EL SWB LENGTH (BYTES)«, t00=0x0004, t01=0x0120}
0x0780…07aa Head {h00=0x0026, h01=0x0050, text=» EXTRN SWB:NS SWB LENGTH (SECTORS)«, t00=0x0004, t01=0x0148}
0x07aa…07d2 Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0004, t01=0x0172}
0x07d2…07f6 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0005, t01=0x000a}
0x07f6…081c Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBCW ECB CONTROL WORD «, t00=0x0005, t01=0x002e}
0x081c…0840 Head {h00=0x0020, h01=0x0050, text=» EXTRN TTB:SA TTAB SAVE AREA«, t00=0x0005, t01=0x0054}
0x0840…0860 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0005, t01=0x0078}
0x0860…088c Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SB SEGMENT BLOCK ADDRESS «, t00=0x0005, t01=0x0098}
0x088c…08b8 Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTPLD PROGRAM LOADING DEVICE«, t00=0x0005, t01=0x00c4}
0x08b8…08d8 Head {h00=0x001c, h01=0x0050, text=» EXTRN SCTPSZ PAGE SIZE «, t00=0x0005, t01=0x00f0}
0x08d8…0906 Head {h00=0x002a, h01=0x0050, text=» EXTRN SCTLAP LOGICAL ADDRESS OF PAGES«, t00=0x0005, t01=0x0110}
0x0906…0930 Head {h00=0x0026, h01=0x0050, text=» EXTRN T:ACSB CURRENT SEGMENT BASE«, t00=0x0005, t01=0x013e}
0x0930…0948 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x0005, t01=0x0168}
0x0948…0952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0180}
0x0952…095c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x018a}
0x095c…098e (6, 0, 400) Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0006, t01=0x0004}
0x098e…0998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0036}
0x0998…09b6 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0006, t01=0x0040}
0x09b6…09c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x005e}
0x09c0…09f2 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0006, t01=0x0068}
0x09f2…09fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009a}
0x09fc…0a2e Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0006, t01=0x00a4}
0x0a2e…0a5c Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0006, t01=0x00d6}
0x0a5c…0a66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0104}
0x0a66…0a7a Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0006, t01=0x010e}
0x0a7a…0a84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0122}
0x0a84…0a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012c}
0x0a8e…0ac8 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0006, t01=0x0136}
0x0ac8…0afa Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0006, t01=0x0170}
0x0afa…0b04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0012}
0x0b04…0b18 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0007, t01=0x001c}
0x0b18…0b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0030}
0x0b22…0b2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003a}
0x0b2c…0b66 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK «, t00=0x0007, t01=0x0044}
0x0b66…0b9c Head {h00=0x0032, h01=0x0050, text=»* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. «, t00=0x0007, t01=0x007e}
0x0b9c…0ba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b4}
0x0ba6…0bba Head {h00=0x0010, h01=0x0050, text=»SWPBLK EQU 0«, t00=0x0007, t01=0x00be}
0x0bba…0bc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d2}
0x0bc4…0bce Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0007, t01=0x00dc}
0x0bce…0c06 Head {h00=0x0034, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS ASSEMBLER OVERLAY«, t00=0x0007, t01=0x00e6}
0x0c06…0c34 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING ASSOLY EQU 1.«, t00=0x0007, t01=0x011e}
0x0c34…0c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x014c}
0x0c3e…0c52 Head {h00=0x0010, h01=0x0050, text=»ASSOLY EQU 0«, t00=0x0007, t01=0x0156}
0x0c52…0c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016a}
0x0c5c…0c74 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x0007, t01=0x0174}
0x0c74…0c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x018c}
0x0c7e…0ca4 Head {h00=0x0022, h01=0x0050, text=»* LDTASK ECB AND BUFFER AREAS «, t00=0x0008, t01=0x0008}
0x0ca4…0cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002e}
0x0cae…0ce6 Head {h00=0x0034, h01=0x0050, text=»LD:ECB DATA 0,0,410,0,0,0 ECB AREA FOR LOAD TASK«, t00=0x0008, t01=0x0038}
0x0ce6…0cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0070}
0x0cf0…0d28 Head {h00=0x0034, h01=0x0050, text=»LD:BUF RES 205 INTERMEDIATE BUFFER FOR LOAD TASK«, t00=0x0008, t01=0x007a}
0x0d28…0d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b2}
0x0d32…0d5c Head {h00=0x0026, h01=0x0050, text=» RES 2 LOAD TASK STACK (ONE LEVEL)«, t00=0x0008, t01=0x00bc}
0x0d5c…0d88 Head {h00=0x0028, h01=0x0050, text=»LD:STB EQU *-2 LOAD TASK STACK BASE «, t00=0x0008, t01=0x00e6}
0x0d88…0d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0112}
0x0d92…0dbe Head {h00=0x0028, h01=0x0050, text=»PQEMTY DATA 0 PAGE QUEUE EMPTY FLAG «, t00=0x0008, t01=0x011c}
0x0dbe…0dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0148}
0x0dc8…0de0 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x0008, t01=0x0152}
0x0de0…0dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x016a}
0x0dea…0e0c Head {h00=0x001e, h01=0x0050, text=»* TTABLD (LOAD TASK TTAB) «, t00=0x0008, t01=0x0174}
0x0e0c…0e16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0008}
0x0e16…0e2c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0009, t01=0x0012}
0x0e2c…0e4c Head {h00=0x001c, h01=0x0050, text=» RES 16 LDTASK MMU TABLE«, t00=0x0009, t01=0x0028}
0x0e4c…0e58 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x0048}
0x0e58…0e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0054}
0x0e62…0e88 Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT BLOCK ADDRESS «, t00=0x0009, t01=0x005e}
0x0e88…0e92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0084}
0x0e92…0eb4 Head {h00=0x001e, h01=0x0050, text=»TTABLD EQU * TTABLD ENTRY «, t00=0x0009, t01=0x008e}
0x0eb4…0eda Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x0009, t01=0x00b0}
0x0eda…0f00 Head {h00=0x0022, h01=0x0050, text=» DATA '#L' TASK IDENTIFICATION«, t00=0x0009, t01=0x00d6}
0x0f00…0f20 Head {h00=0x001c, h01=0x0050, text=» DATA 49 PRIORITY LEVEL «, t00=0x0009, t01=0x00fc}
0x0f20…0f40 Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x0009, t01=0x011c}
0x0f40…0f6e Head {h00=0x002a, h01=0x0050, text=» DATA /C4C0 PSW (PROGRAM STATUS WORD) «, t00=0x0009, t01=0x013c}
0x0f6e…0f8e Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x0009, t01=0x016a}
0x0f8e…0fc4 Head {h00=0x0032, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14«, t00=0x0009, t01=0x018a}
0x0fc4…0fe0 Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x000a, t01=0x0030}
0x0fe0…1006 Head {h00=0x0022, h01=0x0050, text=» DATA 2 DEVICE TABLE LENGTH =2«, t00=0x000a, t01=0x004c}
0x1006…1010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0072}
0x1010…1028 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x000a, t01=0x007c}
0x1028…1032 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0094}
0x1032…103c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009e}
0x103c…104e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x00a8}
0x104e…1060 Head {h00=0x000e, h01=0x0050, text=»* LT:DSK *«, t00=0x000a, t01=0x00ba}
0x1060…1072 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x00cc}
0x1072…107c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00de}
0x107c…1086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e8}
0x1086…10ce Head {h00=0x0044, h01=0x0050, text=»* LT:DSK PERFORMS LOADING OF DISC RESIDENT SEGMENTS INTO CORE.«, t00=0x000a, t01=0x00f2}
0x10ce…10d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x013a}
0x10d8…1106 Head {h00=0x002a, h01=0x0050, text=»* INPUT: A1 = SEGMENT BLOCK ADDRESS«, t00=0x000a, t01=0x0144}
0x1106…113c Head {h00=0x0032, h01=0x0050, text=»* A3 = TTAB ADDRESS OF CALLING TASK «, t00=0x000a, t01=0x0172}
0x113c…1146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0018}
0x1146…1150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0022}
0x1150…117e Head {h00=0x002a, h01=0x0050, text=»LT:DSK EQU * LDTASK DISC PAGING ENTRY «, t00=0x000b, t01=0x002c}
0x117e…11b6 Head {h00=0x0034, h01=0x0050, text=» LD A13,TTB:SA+26,A3 GET A13 FROM TTAB SAVE AREA«, t00=0x000b, t01=0x005a}
0x11b6…11e6 Head {h00=0x002c, h01=0x0050, text=» LDKL A5,TTABLD GET LDTASK TTAB ADDRESS «, t00=0x000b, t01=0x0092}
0x11e6…120c Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A1 GET SEGMENT STATUS«, t00=0x000b, t01=0x00c2}
0x120c…123e Head {h00=0x002e, h01=0x0050, text=» RF(NN) LTD:05 SEGMENT NOT LOADED IN CORE?«, t00=0x000b, t01=0x00e8}
0x123e…1248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x011a}
0x1248…1280 Head {h00=0x0034, h01=0x0050, text=»* UPDATE MMU TABLE FOR CALLING TASK (IF MMU) AND«, t00=0x000b, t01=0x0124}
0x1280…12a2 Head {h00=0x001e, h01=0x0050, text=»* REMOVE PAGE FROM PAGQUE «, t00=0x000b, t01=0x015c}
0x12a2…12ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x017e}
0x12ac…12c6 Head {h00=0x0016, h01=0x0050, text=» LDR A7,A3 SAVE A3«, t00=0x000b, t01=0x0188}
0x12c6…12d8 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A3«, t00=0x000c, t01=0x0012}
0x12d8…1308 Head {h00=0x002c, h01=0x0050, text=» LD A1,SEG:PB,A1 GET PAGE BLOCK ADDRESS «, t00=0x000c, t01=0x0024}
0x1308…131e Head {h00=0x0012, h01=0x0050, text=» CF A15,TLDS15«, t00=0x000c, t01=0x0054}
0x131e…1352 Head {h00=0x0030, h01=0x0050, text=» LDR A5,A7 GET TTAB ADDRESS OF CALLING TASK «, t00=0x000c, t01=0x006a}
0x1352…1366 Head {h00=0x0010, h01=0x0050, text=» ABL LTD:80 «, t00=0x000c, t01=0x009e}
0x1366…1370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b2}
0x1370…1388 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x000c, t01=0x00bc}
0x1388…1392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d4}
0x1392…13cc Head {h00=0x0036, h01=0x0050, text=»* NO PAGE AVAILABLE. PAUSE LDTASK UNTIL RESTARTED «, t00=0x000c, t01=0x00de}
0x13cc…13fa Head {h00=0x002a, h01=0x0050, text=»* BY IHLKM WHEN PAGE AVAILABLE AGAIN. «, t00=0x000c, t01=0x0118}
0x13fa…1404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0146}
0x1404…1418 Head {h00=0x0010, h01=0x0050, text=»LTD:00 EQU *«, t00=0x000c, t01=0x0150}
0x1418…1444 Head {h00=0x0028, h01=0x0050, text=» IM PQEMTY INDICATE PAGE QUEUE EMPTY«, t00=0x000c, t01=0x0164}
0x1444…1450 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000c, t01=0x0190}
0x1450…146c Head {h00=0x0018, h01=0x0050, text=» DATA 5 PAUSE LDTASK«, t00=0x000d, t01=0x000c}
0x146c…1476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0028}
0x1476…1498 Head {h00=0x001e, h01=0x0050, text=»* GET ONE PAGE FROM PAGQUE«, t00=0x000d, t01=0x0032}
0x1498…14a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0054}
0x14a2…14b6 Head {h00=0x0010, h01=0x0050, text=»LTD:05 EQU *«, t00=0x000d, t01=0x005e}
0x14b6…14ce Head {h00=0x0014, h01=0x0050, text=» LD A2,PAGQUE+2 «, t00=0x000d, t01=0x0072}
0x14ce…14e4 Head {h00=0x0012, h01=0x0050, text=» CWK A2,PAGQUE«, t00=0x000d, t01=0x008a}
0x14e4…150c Head {h00=0x0024, h01=0x0050, text=» RB(E) LTD:00 NO PAGE AVAILABLE?«, t00=0x000d, t01=0x00a0}
0x150c…1516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c8}
0x1516…152e Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x000d, t01=0x00d2}
0x152e…1538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ea}
0x1538…1560 Head {h00=0x0024, h01=0x0050, text=»* TAKE FOUND PAGE OUT OF PAGQUE «, t00=0x000d, t01=0x00f4}
0x1560…156a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011c}
0x156a…159e Head {h00=0x0030, h01=0x0050, text=» LD A4,PAG:QB,A2 ADDRESS TO NEXT PAGE BLOCK «, t00=0x000d, t01=0x0126}
0x159e…15ca Head {h00=0x0028, h01=0x0050, text=» ST A4,PAGQUE+2 UPDATE QUEUE ANCHOR «, t00=0x000d, t01=0x015a}
0x15ca…1600 Head {h00=0x0032, h01=0x0050, text=» LDR* A12,A2 GET PAGQUE ADDRESS AND UPDATE... «, t00=0x000d, t01=0x0186}
0x1600…1638 Head {h00=0x0034, h01=0x0050, text=» STR A12,A4 ...QUEUE LINK FORWARD FOR NEXT BLOCK«, t00=0x000e, t01=0x002c}
0x1638…1670 Head {h00=0x0034, h01=0x0050, text=» CMR A2 RESET QUEUE LINK FORWARD OF REMOVED BLK «, t00=0x000e, t01=0x0064}
0x1670…16a0 Head {h00=0x002c, h01=0x0050, text=» LDKL A6,/4000 SEGMENT UNDER LOADING BIT«, t00=0x000e, t01=0x009c}
0x16a0…16d6 Head {h00=0x0032, h01=0x0050, text=» LD A4,PAG:SB,A2 GET OLD SEGMENT BLOCK ADDRESS«, t00=0x000e, t01=0x00cc}
0x16d6…16ec Head {h00=0x0012, h01=0x0050, text=» RF(Z) LTD:15 «, t00=0x000e, t01=0x0102}
0x16ec…170c Head {h00=0x001c, h01=0x0050, text=» SCR A6,A4 RESET STATUS «, t00=0x000e, t01=0x0118}
0x170c…1716 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0138}
0x1716…172a Head {h00=0x0010, h01=0x0050, text=»LTD:15 EQU *«, t00=0x000e, t01=0x0142}
0x172a…175c Head {h00=0x002e, h01=0x0050, text=» ORRS A6,A1 INDICATE SEGMENT UNDER LOADING«, t00=0x000e, t01=0x0156}
0x175c…1790 Head {h00=0x0030, h01=0x0050, text=» ST A2,SEG:PB,A1 SET NEW PAGE BLOCK ADDRESS «, t00=0x000e, t01=0x0188}
0x1790…17c6 Head {h00=0x0032, h01=0x0050, text=» ST A1,PAG:SB,A2 SET NEW SEGMENT BLOCK ADDRESS«, t00=0x000f, t01=0x002c}
0x17c6…17d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0062}
0x17d0…17e6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000f, t01=0x006c}
0x17e6…17f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0082}
0x17f0…1826 Head {h00=0x0032, h01=0x0050, text=»* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK«, t00=0x000f, t01=0x008c}
0x1826…1830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c2}
0x1830…183c Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000f, t01=0x00cc}
0x183c…1872 Head {h00=0x0032, h01=0x0050, text=» MS 3,TTB:SA+2,A5 SAVE A1-A3 IN TTAB SAVE AREA«, t00=0x000f, t01=0x00d8}
0x1872…18a2 Head {h00=0x002c, h01=0x0050, text=» TL TTB:MT,A3 LOAD MMU WITH CALLING TASK«, t00=0x000f, t01=0x010e}
0x18a2…18d2 Head {h00=0x002c, h01=0x0050, text=» TS TTB:MT,A5 STORE IN LDTASK MMU TABLE «, t00=0x000f, t01=0x013e}
0x18d2…18e4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x000f, t01=0x016e}
0x18e4…190e Head {h00=0x0026, h01=0x0050, text=» LDR A3,A5 TTAB ADDRESS OF LDTASK «, t00=0x000f, t01=0x0180}
0x190e…1940 Head {h00=0x002e, h01=0x0050, text=» CF A15,TLDS20 UPDATE MMU TABLE FOR LDTASK«, t00=0x0010, t01=0x001a}
0x1940…197a Head {h00=0x0036, h01=0x0050, text=» TS TTB:MT,A3 STORE NEW MMU TABLE FOR CALLING TASK«, t00=0x0010, t01=0x004c}
0x197a…1986 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0010, t01=0x0086}
0x1986…1992 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0092}
0x1992…199c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009e}
0x199c…19b4 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x0010, t01=0x00a8}
0x19b4…19be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c0}
0x19be…19e6 Head {h00=0x0024, h01=0x0050, text=»* PREPARE FOR READING OF SEGMENT«, t00=0x0010, t01=0x00ca}
0x19e6…19f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f2}
0x19f0…1a1c Head {h00=0x0028, h01=0x0050, text=» LD A6,SEG:EL,A1 GET SEGMENT LENGTH «, t00=0x0010, t01=0x00fc}
0x1a1c…1a46 Head {h00=0x0026, h01=0x0050, text=» SRL A6,1 CONVERT LENGTH TO WORDS «, t00=0x0010, t01=0x0128}
0x1a46…1a6a Head {h00=0x0020, h01=0x0050, text=» LD A4,SCTPSZ GET PAGE SIZE «, t00=0x0010, t01=0x0152}
0x1a6a…1a94 Head {h00=0x0026, h01=0x0050, text=» SRL A4,1 CONVERT LENGTH TO WORDS «, t00=0x0010, t01=0x0176}
0x1a94…1ac8 Head {h00=0x0030, h01=0x0050, text=» LDR A5,A3 GET TTAB ADDRESS OF CALLING TASK «, t00=0x0011, t01=0x0010}
0x1ac8…1afc Head {h00=0x0030, h01=0x0050, text=» LD A3,PAG:PA,A2 GET PAGE ADDRESS (PHYSICAL)«, t00=0x0011, t01=0x0044}
0x1afc…1b2e Head {h00=0x002e, h01=0x0050, text=» LD A2,SEG:DS,A1 GET SEGMENT DISC ADDRESS «, t00=0x0011, t01=0x0078}
0x1b2e…1b5c Head {h00=0x002a, h01=0x0050, text=» LDR A9,A1 SAVE SEGMENT BLOCK ADDRESS «, t00=0x0011, t01=0x00aa}
0x1b5c…1b90 Head {h00=0x0030, h01=0x0050, text=» LDR A11,A5 INDICATE DISC PAGING (A11 <> 0) «, t00=0x0011, t01=0x00d8}
0x1b90…1b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010c}
0x1b9a…1bb0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0011, t01=0x0116}
0x1bb0…1be6 Head {h00=0x0032, h01=0x0050, text=» ST A3,T:ACSB,A13 UPDATE CURRENT SEGMENT BASE «, t00=0x0011, t01=0x012c}
0x1be6…1bf2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0162}
0x1bf2…1bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x016e}
0x1bfc…1c26 Head {h00=0x0026, h01=0x0050, text=»LTD:35 EQU * ENTRY USED BY LT:SWB «, t00=0x0011, t01=0x0178}
0x1c26…1c48 Head {h00=0x001e, h01=0x0050, text=» LDK A7,/91 PHYSICAL READ «, t00=0x0012, t01=0x0012}
0x1c48…1c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0034}
0x1c52…1c6e Head {h00=0x0018, h01=0x0050, text=»* SET ECB PARAMETERS«, t00=0x0012, t01=0x003e}
0x1c6e…1c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x005a}
0x1c78…1ca2 Head {h00=0x0026, h01=0x0050, text=»LTD:40 EQU * ENTRY USED BY LT:SWB «, t00=0x0012, t01=0x0064}
0x1ca2…1cd2 Head {h00=0x002c, h01=0x0050, text=» LDKL A14,LD:STB LOAD LDTASK STACK BASE «, t00=0x0012, t01=0x008e}
0x1cd2…1cfc Head {h00=0x0026, h01=0x0050, text=» LDKL A8,LD:ECB GET LD:ECB ADDRESS«, t00=0x0012, t01=0x00be}
0x1cfc…1d14 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0012, t01=0x00e8}
0x1d14…1d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0100}
0x1d1e…1d34 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0012, t01=0x010a}
0x1d34…1d46 Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0012, t01=0x0120}
0x1d46…1d5a Head {h00=0x0010, h01=0x0050, text=» LDR A12,A3 «, t00=0x0012, t01=0x0132}
0x1d5a…1d8a Head {h00=0x002c, h01=0x0050, text=» LD A2,SCTPLD GET PROGRAM DISC FILE CODE«, t00=0x0012, t01=0x0146}
0x1d8a…1d9c Head {h00=0x000e, h01=0x0050, text=» STR A2,A8«, t00=0x0012, t01=0x0176}
0x1d9c…1dc6 Head {h00=0x0026, h01=0x0050, text=» ST A3,ECBBA,A8 SET BUFFER ADDRESS«, t00=0x0012, t01=0x0188}
0x1dc6…1dd8 Head {h00=0x000e, h01=0x0050, text=» RF LTD:60«, t00=0x0013, t01=0x0022}
0x1dd8…1de4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0034}
0x1de4…1dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0040}
0x1dee…1e06 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x0013, t01=0x004a}
0x1e06…1e10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0062}
0x1e10…1e1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x006c}
0x1e1a…1e30 Head {h00=0x0012, h01=0x0050, text=» IFT ASSOLY=1 «, t00=0x0013, t01=0x0076}
0x1e30…1e60 Head {h00=0x002c, h01=0x0050, text=» LD A2,SCTPLD GET PROGRAM DISC FILE CODE«, t00=0x0013, t01=0x008c}
0x1e60…1e72 Head {h00=0x000e, h01=0x0050, text=» STR A2,A8«, t00=0x0013, t01=0x00bc}
0x1e72…1ea4 Head {h00=0x002e, h01=0x0050, text=» LDKL A1,LD:BUF GET LDTASK BUFFER ADDRESS «, t00=0x0013, t01=0x00ce}
0x1ea4…1ebc Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBBA,A8 «, t00=0x0013, t01=0x0100}
0x1ebc…1eee Head {h00=0x002e, h01=0x0050, text=» CF A14,LTD:85 READ FIRST SECTOR TO LD:BUF«, t00=0x0013, t01=0x0118}
0x1eee…1efa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x014a}
0x1efa…1f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0156}
0x1f04…1f1a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x0160}
0x1f1a…1f30 Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x0013, t01=0x0176}
0x1f30…1f60 Head {h00=0x002c, h01=0x0050, text=» LDR A11,A11 CHECK DISC PAGING/SWB FLAG «, t00=0x0013, t01=0x018c}
0x1f60…1f8c Head {h00=0x0028, h01=0x0050, text=» RF(NZ) LTD:43 DISC PAGING REQUEST? «, t00=0x0014, t01=0x002c}
0x1f8c…1f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0058}
0x1f96…1fae Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x0014, t01=0x0062}
0x1fae…1fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x007a}
0x1fb8…1fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0084}
0x1fc2…1ff2 Head {h00=0x002c, h01=0x0050, text=» LDR A12,A3 SAVE LOGICAL BUFFER ADDRESS «, t00=0x0014, t01=0x008e}
0x1ff2…2028 Head {h00=0x0032, h01=0x0050, text=» ECR A2,A3 CONVERT LOGICAL ADDRESS TO PHYSICAL«, t00=0x0014, t01=0x00be}
0x2028…203e Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FFF «, t00=0x0014, t01=0x00f4}
0x203e…2050 Head {h00=0x000e, h01=0x0050, text=» SRL A2,3 «, t00=0x0014, t01=0x010a}
0x2050…207a Head {h00=0x0026, h01=0x0050, text=» ANK A2,/1E MMUTAB INDEX (5 BITS) «, t00=0x0014, t01=0x011c}
0x207a…209e Head {h00=0x0020, h01=0x0050, text=» ADR A2,A5 ADD TTAB ADDRESS «, t00=0x0014, t01=0x0146}
0x209e…20d0 Head {h00=0x002e, h01=0x0050, text=» LC A2,TTB:MT,A2 GET PHYSICAL PAGE ADDRESS«, t00=0x0014, t01=0x016a}
0x20d0…20e2 Head {h00=0x000e, h01=0x0050, text=» SRL A2,2 «, t00=0x0015, t01=0x000c}
0x20e2…20f4 Head {h00=0x000e, h01=0x0050, text=» ECR A1,A2«, t00=0x0015, t01=0x001e}
0x20f4…2108 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0F «, t00=0x0015, t01=0x0030}
0x2108…211a Head {h00=0x000e, h01=0x0050, text=» SRC A2,4 «, t00=0x0015, t01=0x0044}
0x211a…212c Head {h00=0x000e, h01=0x0050, text=» ORR A3,A2«, t00=0x0015, t01=0x0056}
0x212c…2142 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) LTD:48«, t00=0x0015, t01=0x0068}
0x2142…2158 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,/1000«, t00=0x0015, t01=0x007e}
0x2158…216a Head {h00=0x000e, h01=0x0050, text=» RF LTD:48«, t00=0x0015, t01=0x0094}
0x216a…2174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a6}
0x2174…2188 Head {h00=0x0010, h01=0x0050, text=»LTD:43 EQU *«, t00=0x0015, t01=0x00b0}
0x2188…2194 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00c4}
0x2194…219e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d0}
0x219e…21b4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0015, t01=0x00da}
0x21b4…21c6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0015, t01=0x00f0}
0x21c6…21d8 Head {h00=0x000e, h01=0x0050, text=» SRL A1,2 «, t00=0x0015, t01=0x0102}
0x21d8…21ea Head {h00=0x000e, h01=0x0050, text=» SLL A3,2 «, t00=0x0015, t01=0x0114}
0x21ea…2200 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) LTD:45«, t00=0x0015, t01=0x0126}
0x2200…2216 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,/1000«, t00=0x0015, t01=0x013c}
0x2216…2220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0152}
0x2220…2238 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x0015, t01=0x015c}
0x2238…2242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0174}
0x2242…224c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017e}
0x224c…2260 Head {h00=0x0010, h01=0x0050, text=»LTD:45 EQU *«, t00=0x0015, t01=0x0188}
0x2260…2274 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A3 «, t00=0x0016, t01=0x000c}
0x2274…22ae Head {h00=0x0036, h01=0x0050, text=» ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL«, t00=0x0016, t01=0x0020}
0x22ae…22c4 Head {h00=0x0012, h01=0x0050, text=» OR A12,SCTLAP«, t00=0x0016, t01=0x005a}
0x22c4…22ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0070}
0x22ce…22e2 Head {h00=0x0010, h01=0x0050, text=»LTD:48 EQU *«, t00=0x0016, t01=0x007a}
0x22e2…22f4 Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0016, t01=0x008e}
0x22f4…231e Head {h00=0x0026, h01=0x0050, text=» ST A3,ECBBA,A8 SET BUFFER ADDRESS«, t00=0x0016, t01=0x00a0}
0x231e…2334 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/3000«, t00=0x0016, t01=0x00ca}
0x2334…2364 Head {h00=0x002c, h01=0x0050, text=» OR A1,SCTPLD GET PROGRAM DISC FILE CODE«, t00=0x0016, t01=0x00e0}
0x2364…2376 Head {h00=0x000e, h01=0x0050, text=» STR A1,A8«, t00=0x0016, t01=0x0110}
0x2376…2380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0122}
0x2380…2396 Head {h00=0x0012, h01=0x0050, text=» IFT ASSOLY=0 «, t00=0x0016, t01=0x012c}
0x2396…23aa Head {h00=0x0010, h01=0x0050, text=» SUKL A12,2 «, t00=0x0016, t01=0x0142}
0x23aa…23bc Head {h00=0x000e, h01=0x0050, text=» RF LTD:60«, t00=0x0016, t01=0x0156}
0x23bc…23c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0168}
0x23c8…23d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0174}
0x23d2…23e8 Head {h00=0x0012, h01=0x0050, text=» IFT ASSOLY=1 «, t00=0x0016, t01=0x017e}
0x23e8…23f2 (23, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0004}
0x23f2…241a Head {h00=0x0024, h01=0x0050, text=»* MOVE FIRST SECTOR TO PAGE AREA«, t00=0x0017, t01=0x000e}
0x241a…2424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0036}
0x2424…243e Head {h00=0x0016, h01=0x0050, text=» LDKL A1,LD:BUF+2 «, t00=0x0017, t01=0x0040}
0x243e…2452 Head {h00=0x0010, h01=0x0050, text=» LDR A2,A12 «, t00=0x0017, t01=0x005a}
0x2452…2466 Head {h00=0x0010, h01=0x0050, text=» LDKL A3,376«, t00=0x0017, t01=0x006e}
0x2466…2490 Head {h00=0x0026, h01=0x0050, text=» MVSU A3 MOVE FIRST SECTOR TO PAGE«, t00=0x0017, t01=0x0082}
0x2490…24a4 Head {h00=0x0010, h01=0x0050, text=» SUKL A12,2 «, t00=0x0017, t01=0x00ac}
0x24a4…24b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00c0}
0x24b0…24ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00cc}
0x24ba…24d2 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x0017, t01=0x00d6}
0x24d2…24dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ee}
0x24dc…24e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f8}
0x24e6…24fa Head {h00=0x0010, h01=0x0050, text=»LTD:50 EQU *«, t00=0x0017, t01=0x0102}
0x24fa…2524 Head {h00=0x0026, h01=0x0050, text=» IM ECBCW,A8 POINT TO NEXT SECTOR «, t00=0x0017, t01=0x0116}
0x2524…252e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0140}
0x252e…2544 Head {h00=0x0012, h01=0x0050, text=» IFT ASSOLY=0 «, t00=0x0017, t01=0x014a}
0x2544…2558 Head {h00=0x0010, h01=0x0050, text=» LDK A1,200 «, t00=0x0017, t01=0x0160}
0x2558…2564 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0174}
0x2564…256e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0180}
0x256e…2584 Head {h00=0x0012, h01=0x0050, text=» IFT ASSOLY=1 «, t00=0x0017, t01=0x018a}
0x2584…2598 Head {h00=0x0010, h01=0x0050, text=» LDK A1,188 «, t00=0x0018, t01=0x0010}
0x2598…25a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0024}
0x25a4…25ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0030}
0x25ae…25e4 Head {h00=0x0032, h01=0x0050, text=» SUR A6,A1 GET REMAINING LENGTH OF SEGMENT/SWB«, t00=0x0018, t01=0x003a}
0x25e4…261a Head {h00=0x0032, h01=0x0050, text=» RF(NP) LTD:75 SEGMENT/SWB HANDLING FINISHED? «, t00=0x0018, t01=0x0070}
0x261a…264a Head {h00=0x002c, h01=0x0050, text=» SUR A4,A1 GET REMAINING LENGTH OF PAGE «, t00=0x0018, t01=0x00a6}
0x264a…265c Head {h00=0x000e, h01=0x0050, text=» ADR A1,A1«, t00=0x0018, t01=0x00d6}
0x265c…2688 Head {h00=0x0028, h01=0x0050, text=» ADR A12,A1 UPDATE PAGE AREA POINTER«, t00=0x0018, t01=0x00e8}
0x2688…2692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0114}
0x2692…26a8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0018, t01=0x011e}
0x26a8…26d4 Head {h00=0x0028, h01=0x0050, text=» LD A10,ECBBA,A8 GET BUFFER ADDRESS «, t00=0x0018, t01=0x0134}
0x26d4…26ea Head {h00=0x0012, h01=0x0050, text=» RF(N) LTD:55 «, t00=0x0018, t01=0x0160}
0x26ea…2718 Head {h00=0x002a, h01=0x0050, text=» ADS A1,ECBBA,A8 UPDATE BUFFER ADDRESS«, t00=0x0018, t01=0x0176}
0x2718…272a Head {h00=0x000e, h01=0x0050, text=» RF LTD:60«, t00=0x0019, t01=0x0014}
0x272a…2734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0026}
0x2734…2748 Head {h00=0x0010, h01=0x0050, text=»LTD:55 EQU *«, t00=0x0019, t01=0x0030}
0x2748…2776 Head {h00=0x002a, h01=0x0050, text=» ADS A1,ECBBA,A8 UPDATE BUFFER ADDRESS«, t00=0x0019, t01=0x0044}
0x2776…279a Head {h00=0x0020, h01=0x0050, text=» RF(N) LTD:60 NOT OVERFLOW? «, t00=0x0019, t01=0x0072}
0x279a…27c4 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,/1000 OVERFLOW CORRECTION«, t00=0x0019, t01=0x0096}
0x27c4…27d8 Head {h00=0x0010, h01=0x0050, text=» ADRS A1,A8 «, t00=0x0019, t01=0x00c0}
0x27d8…27e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00d4}
0x27e4…27ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00e0}
0x27ee…2804 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0019, t01=0x00ea}
0x2804…2832 Head {h00=0x002a, h01=0x0050, text=» ADS A1,ECBBA,A8 UPDATE BUFFER ADDRESS«, t00=0x0019, t01=0x0100}
0x2832…283e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x012e}
0x283e…2848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x013a}
0x2848…2860 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x0019, t01=0x0144}
0x2860…286a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x015c}
0x286a…2874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0166}
0x2874…2888 Head {h00=0x0010, h01=0x0050, text=»LTD:60 EQU *«, t00=0x0019, t01=0x0170}
0x2888…28ba Head {h00=0x002e, h01=0x0050, text=» CWK A4,204 CHECK REMAINING LENGTH OF PAGE«, t00=0x0019, t01=0x0184}
0x28ba…28f6 Head {h00=0x0038, h01=0x0050, text=» RF(L) LTD:65 NOT ROOM FOR ONE MORE SECTOR IN PAGE? «, t00=0x001a, t01=0x0026}
0x28f6…2900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0062}
0x2900…2916 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001a, t01=0x006c}
0x2916…2954 Head {h00=0x003a, h01=0x0050, text=» ELR A10,A12 SAVE WORD TO BE DESTROYED BY DISC CYL-ID «, t00=0x001a, t01=0x0082}
0x2954…2980 Head {h00=0x0028, h01=0x0050, text=» CF A14,LTD:85 READ/WRITE ONE SECTOR«, t00=0x001a, t01=0x00c0}
0x2980…29a8 Head {h00=0x0024, h01=0x0050, text=» ESR A10,A12 RESTORE SAVED WORD «, t00=0x001a, t01=0x00ec}
0x29a8…29ba Head {h00=0x000e, h01=0x0050, text=» RB LTD:50«, t00=0x001a, t01=0x0114}
0x29ba…29c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0126}
0x29c6…29d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0132}
0x29d0…29e6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001a, t01=0x013c}
0x29e6…2a24 Head {h00=0x003a, h01=0x0050, text=» LDR* A10,A12 SAVE WORD TO BE DESTROYED BY DISC CYL-ID«, t00=0x001a, t01=0x0152}
0x2a24…2a50 Head {h00=0x0028, h01=0x0050, text=» CF A14,LTD:85 READ/WRITE ONE SECTOR«, t00=0x001a, t01=0x0190}
0x2a50…2a78 Head {h00=0x0024, h01=0x0050, text=» STR A10,A12 RESTORE SAVED WORD «, t00=0x001b, t01=0x002c}
0x2a78…2a8a Head {h00=0x000e, h01=0x0050, text=» RB LTD:50«, t00=0x001b, t01=0x0054}
0x2a8a…2a96 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0066}
0x2a96…2aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0072}
0x2aa0…2ab8 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x001b, t01=0x007c}
0x2ab8…2ac2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0094}
0x2ac2…2af4 Head {h00=0x002e, h01=0x0050, text=»* NOT ROOM ENOUGH IN PAGE FOR LAST SECTOR:«, t00=0x001b, t01=0x009e}
0x2af4…2b28 Head {h00=0x0030, h01=0x0050, text=»* READ IT TO MEMORY VIA INTERMEDIATE BUFFER «, t00=0x001b, t01=0x00d0}
0x2b28…2b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0104}
0x2b32…2b46 Head {h00=0x0010, h01=0x0050, text=»LTD:65 EQU *«, t00=0x001b, t01=0x010e}
0x2b46…2b78 Head {h00=0x002e, h01=0x0050, text=» LDKL A1,LD:BUF GET LDTASK BUFFER ADDRESS «, t00=0x001b, t01=0x0122}
0x2b78…2b90 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBBA,A8 «, t00=0x001b, t01=0x0154}
0x2b90…2ba4 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/80 «, t00=0x001b, t01=0x016c}
0x2ba4…2bda Head {h00=0x0032, h01=0x0050, text=» SCR A2,A8 INDICATE BUFFER NOW IN SYSTEM AREA «, t00=0x001b, t01=0x0180}
0x2bda…2c0a Head {h00=0x002c, h01=0x0050, text=» CF A14,LTD:85 READ ONE SECTOR TO LD:BUF«, t00=0x001c, t01=0x0026}
0x2c0a…2c2c Head {h00=0x001e, h01=0x0050, text=» ADK A1,2 SKIP CYLINDER ID«, t00=0x001c, t01=0x0056}
0x2c2c…2c50 Head {h00=0x0020, h01=0x0050, text=» LDR A2,A12 GET PAGE POINTER«, t00=0x001c, t01=0x0078}
0x2c50…2c62 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x001c, t01=0x009c}
0x2c62…2c8c Head {h00=0x0026, h01=0x0050, text=» ADR A6,A6 CONVERT LENGTH TO BYTES«, t00=0x001c, t01=0x00ae}
0x2c8c…2c96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00d8}
0x2c96…2cac Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001c, t01=0x00e2}
0x2cac…2ce2 Head {h00=0x0032, h01=0x0050, text=» MVSU A6 MOVE LAST PART OF SEGMENT/SWB TO PAGE«, t00=0x001c, t01=0x00f8}
0x2ce2…2cee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x012e}
0x2cee…2cf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x013a}
0x2cf8…2d0e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001c, t01=0x0144}
0x2d0e…2d22 Head {h00=0x0010, h01=0x0050, text=»LTD:70 EQU *«, t00=0x001c, t01=0x015a}
0x2d22…2d44 Head {h00=0x001e, h01=0x0050, text=» LDR* A10,A1 MOVE ONE WORD«, t00=0x001c, t01=0x016e}
0x2d44…2d58 Head {h00=0x0010, h01=0x0050, text=» STR A10,A2 «, t00=0x001c, t01=0x0190}
0x2d58…2d84 Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 INCREMENT BUFFER POINTERS «, t00=0x001d, t01=0x0014}
0x2d84…2d96 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x001d, t01=0x0040}
0x2d96…2dba Head {h00=0x0020, h01=0x0050, text=» SUK A6,2 DECREMENT COUNTER «, t00=0x001d, t01=0x0052}
0x2dba…2dd0 Head {h00=0x0012, h01=0x0050, text=» RB(P) LTD:70 «, t00=0x001d, t01=0x0076}
0x2dd0…2ddc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x008c}
0x2ddc…2de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0098}
0x2de6…2dfe Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x001d, t01=0x00a2}
0x2dfe…2e08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ba}
0x2e08…2e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c4}
0x2e12…2e26 Head {h00=0x0010, h01=0x0050, text=»LTD:75 EQU *«, t00=0x001d, t01=0x00ce}
0x2e26…2e3c Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x001d, t01=0x00e2}
0x2e3c…2e6c Head {h00=0x002c, h01=0x0050, text=» LDR A11,A11 CHECK DISC PAGING/SWB FLAG «, t00=0x001d, t01=0x00f8}
0x2e6c…2e90 Head {h00=0x0020, h01=0x0050, text=» RF(Z) LTD:80 SWB HANDLING? «, t00=0x001d, t01=0x0128}
0x2e90…2e9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x014c}
0x2e9c…2ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0158}
0x2ea6…2ee2 Head {h00=0x0038, h01=0x0050, text=» LDKL A4,/C000 INDICATE SEGMENT SUCCESSFULLY LOADED «, t00=0x001d, t01=0x0162}
0x2ee2…2ef6 Head {h00=0x0010, h01=0x0050, text=» XRRS A4,A9 «, t00=0x001e, t01=0x000e}
0x2ef6…2f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0022}
0x2f00…2f14 Head {h00=0x0010, h01=0x0050, text=»LTD:80 EQU *«, t00=0x001e, t01=0x002c}
0x2f14…2f44 Head {h00=0x002c, h01=0x0050, text=» CF A15,QTJOB QUEUE TASK FOR DISPATCHING«, t00=0x001e, t01=0x0040}
0x2f44…2f6e Head {h00=0x0026, h01=0x0050, text=» ABL MEXIT PERFORM EXIT ON LDTASK «, t00=0x001e, t01=0x0070}
0x2f6e…2f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x009a}
0x2f78…2f90 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x001e, t01=0x00a4}
0x2f90…2f9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00bc}
0x2f9a…2fbe Head {h00=0x0020, h01=0x0050, text=»* READ ONE SECTOR FROM DISC «, t00=0x001e, t01=0x00c6}
0x2fbe…2fc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ea}
0x2fc8…2fdc Head {h00=0x0010, h01=0x0050, text=»LTD:85 EQU *«, t00=0x001e, t01=0x00f4}
0x2fdc…2fe8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001e, t01=0x0108}
0x2fe8…2ff8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001e, t01=0x0114}
0x2ff8…3020 Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBRC,A8 GET RETURN CODE «, t00=0x001e, t01=0x0124}
0x3020…3046 Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/FEFF SKIP RETRY BIT «, t00=0x001e, t01=0x014c}
0x3046…3068 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) LTD:95 DISC ERROR?«, t00=0x001e, t01=0x0172}
0x3068…3084 (31, 0, 400) Head {h00=0x0018, h01=0x0050, text=» RTN A14 NO, RETURN «, t00=0x001f, t01=0x0004}
0x3084…308e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0020}
0x308e…30ba Head {h00=0x0028, h01=0x0050, text=»* ERROR: INSERT PAGE IN PAGQUE AGAIN«, t00=0x001f, t01=0x002a}
0x30ba…30c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0056}
0x30c4…30dc Head {h00=0x0014, h01=0x0050, text=»LTD:95 ANK A2,1 «, t00=0x001f, t01=0x0060}
0x30dc…30ee Head {h00=0x000e, h01=0x0050, text=» NGR A2,A2«, t00=0x001f, t01=0x0078}
0x30ee…3120 Head {h00=0x002e, h01=0x0050, text=» SUK A2,2 ERROR, SET RETURN CODE -2 OR -3 «, t00=0x001f, t01=0x008a}
0x3120…3152 Head {h00=0x002e, h01=0x0050, text=» ST A2,TTB:SA+14,A5 SET RETURN CODE IN A7«, t00=0x001f, t01=0x00bc}
0x3152…315c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ee}
0x315c…3172 Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x001f, t01=0x00f8}
0x3172…31a2 Head {h00=0x002c, h01=0x0050, text=» LDR A11,A11 CHECK DISC PAGING/SWB FLAG «, t00=0x001f, t01=0x010e}
0x31a2…31c6 Head {h00=0x0020, h01=0x0050, text=» RB(Z) LTD:80 SWB HANDLING? «, t00=0x001f, t01=0x013e}
0x31c6…31d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0162}
0x31d2…31dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x016e}
0x31dc…320e Head {h00=0x002e, h01=0x0050, text=» CM TTB:SB,A5 RESET SEGMENT BLOCK ADDRESS «, t00=0x001f, t01=0x0178}
0x320e…323e Head {h00=0x002c, h01=0x0050, text=» LD A3,SEG:PB,A9 GET PAGE BLOCK ADDRESS «, t00=0x0020, t01=0x001a}
0x323e…3268 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,PAGQUE GET PAGQUE ADDRESS«, t00=0x0020, t01=0x004a}
0x3268…3280 Head {h00=0x0014, h01=0x0050, text=» ST A4,PAG:QB,A3«, t00=0x0020, t01=0x0074}
0x3280…32b8 Head {h00=0x0034, h01=0x0050, text=» LDR* A4,A4 GET ADDRESS OF FIRST BLOCK IN PAGQUE«, t00=0x0020, t01=0x008c}
0x32b8…32de Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 UPDATE QUEUE LINKS «, t00=0x0020, t01=0x00c4}
0x32de…32f4 Head {h00=0x0012, h01=0x0050, text=» ST A3,PAGQUE «, t00=0x0020, t01=0x00ea}
0x32f4…330c Head {h00=0x0014, h01=0x0050, text=» ST A3,PAG:QB,A4«, t00=0x0020, t01=0x0100}
0x330c…3334 Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 INDICATE SEGMENT ERROR«, t00=0x0020, t01=0x0118}
0x3334…3346 Head {h00=0x000e, h01=0x0050, text=» SCR A4,A9«, t00=0x0020, t01=0x0140}
0x3346…3358 Head {h00=0x000e, h01=0x0050, text=» RB LTD:80«, t00=0x0020, t01=0x0152}
0x3358…3362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0164}
0x3362…337a Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x0020, t01=0x016e}
0x337a…3384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0186}
0x3384…338e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0190}
0x338e…33a0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0021, t01=0x000a}
0x33a0…33b2 Head {h00=0x000e, h01=0x0050, text=»* QLTDSK *«, t00=0x0021, t01=0x001c}
0x33b2…33c4 Head {h00=0x000e, h01=0x0050, text=»* QLTSWB *«, t00=0x0021, t01=0x002e}
0x33c4…33d6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0021, t01=0x0040}
0x33d6…33e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0052}
0x33e0…33ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x005c}
0x33ea…3428 Head {h00=0x003a, h01=0x0050, text=»* THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK.«, t00=0x0021, t01=0x0066}
0x3428…3432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00a4}
0x3432…3470 Head {h00=0x003a, h01=0x0050, text=»* ACTIVATION IS AT LT:DSK WHEN DISC PAGING REQUEST. «, t00=0x0021, t01=0x00ae}
0x3470…34b6 Head {h00=0x0042, h01=0x0050, text=»* ACTIVATION IS AT LT:SWB WHEN SWAPPABLE WORK BLOCK REQUEST.«, t00=0x0021, t01=0x00ec}
0x34b6…34c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0132}
0x34c0…34f8 Head {h00=0x0034, h01=0x0050, text=»* INPUT: A1 = SEGMENT BLOCK ADDRESS (LT:DSK) «, t00=0x0021, t01=0x013c}
0x34f8…3532 Head {h00=0x0036, h01=0x0050, text=»* = SWAPPABLE WORK BLOCK ADDRESS (LT:SWB) «, t00=0x0021, t01=0x0174}
0x3532…3568 Head {h00=0x0032, h01=0x0050, text=»* A3 = TTAB ADDRESS OF CALLING TASK «, t00=0x0022, t01=0x001e}
0x3568…3572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0054}
0x3572…359a Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: A2, A5 ARE DESTROYED«, t00=0x0022, t01=0x005e}
0x359a…35a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0086}
0x35a4…35ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0090}
0x35ae…35e2 Head {h00=0x0030, h01=0x0050, text=»QLTSWB EQU * ACTIVATE LDTASK AT ENTRY LT:SWB«, t00=0x0022, t01=0x009a}
0x35e2…360e Head {h00=0x0028, h01=0x0050, text=» LDKL A2,LT:SWB GET DISPATCH ADDRESS«, t00=0x0022, t01=0x00ce}
0x360e…3620 Head {h00=0x000e, h01=0x0050, text=» RF QLTASK«, t00=0x0022, t01=0x00fa}
0x3620…362a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x010c}
0x362a…365e Head {h00=0x0030, h01=0x0050, text=»QLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK«, t00=0x0022, t01=0x0116}
0x365e…368a Head {h00=0x0028, h01=0x0050, text=» LDKL A2,LT:DSK GET DISPATCH ADDRESS«, t00=0x0022, t01=0x014a}
0x368a…3694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0176}
0x3694…36a8 Head {h00=0x0010, h01=0x0050, text=»QLTASK EQU *«, t00=0x0022, t01=0x0180}
0x36a8…36d8 (35, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LDKL A5,TTABLD GET LDTASK TTAB ADDRESS «, t00=0x0023, t01=0x0004}
0x36d8…36fe Head {h00=0x0022, h01=0x0050, text=» ABL ACTOT ACTIVATE LDTASK =1 «, t00=0x0023, t01=0x0034}
0x36fe…3708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x005a}
0x3708…3720 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x0023, t01=0x0064}
0x3720…372a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x007c}
0x372a…3734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0086}
0x3734…374a Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x0023, t01=0x0090}
0x374a…3754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a6}
0x3754…375e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b0}
0x375e…3770 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0023, t01=0x00ba}
0x3770…3782 Head {h00=0x000e, h01=0x0050, text=»* LT:SWB *«, t00=0x0023, t01=0x00cc}
0x3782…3794 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0023, t01=0x00de}
0x3794…379e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f0}
0x379e…37a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00fa}
0x37a8…37f0 Head {h00=0x0044, h01=0x0050, text=»* LT:SWB HANDLES THE LOADING/STORING OF SWAPPABLE WORK BLOCKS.«, t00=0x0023, t01=0x0104}
0x37f0…37fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x014c}
0x37fa…3830 Head {h00=0x0032, h01=0x0050, text=»* INPUT: A1 = SWAPPABLE WORK BLOCK ADDRESS «, t00=0x0023, t01=0x0156}
0x3830…3866 Head {h00=0x0032, h01=0x0050, text=»* A3 = TTAB ADDRESS OF CALLING TASK «, t00=0x0023, t01=0x018c}
0x3866…3870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0032}
0x3870…387a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x003c}
0x387a…38a8 Head {h00=0x002a, h01=0x0050, text=»LT:SWB EQU * LDTASK SWB HANDLING ENTRY«, t00=0x0024, t01=0x0046}
0x38a8…38be Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0024, t01=0x0074}
0x38be…38ca Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0024, t01=0x008a}
0x38ca…38fa Head {h00=0x002c, h01=0x0050, text=» LDKL A5,TTABLD GET LDTASK TTAB ADDRESS «, t00=0x0024, t01=0x0096}
0x38fa…392a Head {h00=0x002c, h01=0x0050, text=» TL TTB:MT,A3 LOAD MMU WITH CALLING TASK«, t00=0x0024, t01=0x00c6}
0x392a…395a Head {h00=0x002c, h01=0x0050, text=» TS TTB:MT,A5 STORE IN LDTASK MMU TABLE «, t00=0x0024, t01=0x00f6}
0x395a…3966 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0024, t01=0x0126}
0x3966…3972 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0132}
0x3972…397c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x013e}
0x397c…3992 Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x0024, t01=0x0148}
0x3992…39c6 Head {h00=0x0030, h01=0x0050, text=» SUR A11,A11 INDICATE SWB HANDLING (A11 = 0)«, t00=0x0024, t01=0x015e}
0x39c6…39fa (37, 0, 400) Head {h00=0x0030, h01=0x0050, text=» LDR A5,A3 GET TTAB ADDRESS OF CALLING TASK «, t00=0x0025, t01=0x0004}
0x39fa…3a32 Head {h00=0x0034, h01=0x0050, text=» LD A3,TTB:SA+16,A5 GET MEMORY ADDRESS (LOGICAL)«, t00=0x0025, t01=0x0038}
0x3a32…3a6a Head {h00=0x0034, h01=0x0050, text=» LD A4,SWB:DS,A1 GET DISC ADDRESS OF FIRST COPY «, t00=0x0025, t01=0x0070}
0x3a6a…3a9e Head {h00=0x0030, h01=0x0050, text=» LD A6,SWB:EL,A1 GET SWB COPY LENGTH (BYTES)«, t00=0x0025, t01=0x00a8}
0x3a9e…3ad4 Head {h00=0x0032, h01=0x0050, text=» LD A2,SWB:NS,A1 GET SWB COPY LENGTH (SECTORS)«, t00=0x0025, t01=0x00dc}
0x3ad4…3aee Head {h00=0x0016, h01=0x0050, text=» LDR A7,A1 SAVE A1«, t00=0x0025, t01=0x0112}
0x3aee…3b0a Head {h00=0x0018, h01=0x0050, text=» LD A1,TTB:SA+14,A5 «, t00=0x0025, t01=0x012c}
0x3b0a…3b30 Head {h00=0x0022, h01=0x0050, text=» ANK A1,/FF GET SWB COPY INDEX«, t00=0x0025, t01=0x0148}
0x3b30…3b3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x016e}
0x3b3a…3b52 Head {h00=0x0014, h01=0x0050, text=» EJECT LDTASK «, t00=0x0025, t01=0x0178}
0x3b52…3b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0190}
0x3b5c…3b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x000a}
0x3b66…3b7a Head {h00=0x0010, h01=0x0050, text=»LTS:10 EQU *«, t00=0x0026, t01=0x0014}
0x3b7a…3b8c Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0026, t01=0x0028}
0x3b8c…3b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x003a}
0x3b96…3bac Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0026, t01=0x0044}
0x3bac…3bc2 Head {h00=0x0012, h01=0x0050, text=» RF(NP) LTS:20«, t00=0x0026, t01=0x005a}
0x3bc2…3bfa Head {h00=0x0034, h01=0x0050, text=» ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB«, t00=0x0026, t01=0x0070}
0x3bfa…3c0c Head {h00=0x000e, h01=0x0050, text=» RB LTS:10«, t00=0x0026, t01=0x00a8}
0x3c0c…3c16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ba}
0x3c16…3c2a Head {h00=0x0010, h01=0x0050, text=»LTS:20 EQU *«, t00=0x0026, t01=0x00c4}
0x3c2a…3c5e Head {h00=0x0030, h01=0x0050, text=» LDR A2,A4 GET DISC ADDRESS OF REQUESTED SWB«, t00=0x0026, t01=0x00d8}
0x3c5e…3c6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x010c}
0x3c6a…3c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0118}
0x3c74…3c8a Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x0026, t01=0x0122}
0x3c8a…3ca0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0026, t01=0x0138}
0x3ca0…3cd6 Head {h00=0x0032, h01=0x0050, text=» MUR A1 COMPUTE DISC ADDRESS OF REQUESTED SWB «, t00=0x0026, t01=0x014e}
0x3cd6…3ce8 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0026, t01=0x0184}
0x3ce8…3cf4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0008}
0x3cf4…3cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0014}
0x3cfe…3d14 Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x0027, t01=0x001e}
0x3d14…3d26 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0027, t01=0x0034}
0x3d26…3d54 Head {h00=0x002a, h01=0x0050, text=» SRL A6,1 CONVERT SWB LENGTH TO WORDS «, t00=0x0027, t01=0x0046}
0x3d54…3d66 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A6«, t00=0x0027, t01=0x0074}
0x3d66…3d98 Head {h00=0x002e, h01=0x0050, text=» ANK A7,1 GET LOAD/STORE SWB REQUEST FLAG «, t00=0x0027, t01=0x0086}
0x3d98…3dc0 Head {h00=0x0024, h01=0x0050, text=» ABL(Z) LTD:35 LOAD SWB REQUEST?«, t00=0x0027, t01=0x00b8}
0x3dc0…3dfe Head {h00=0x003a, h01=0x0050, text=» LDKL A4,/7FFF PARAMETER TO AVOID INTERMEDIATE BUFFER «, t00=0x0027, t01=0x00e0}
0x3dfe…3e34 Head {h00=0x0032, h01=0x0050, text=» LDK A7,/95 PHYSICAL WRITE (STORE SWB REQUEST)«, t00=0x0027, t01=0x011e}
0x3e34…3e48 Head {h00=0x0010, h01=0x0050, text=» ABL LTD:40 «, t00=0x0027, t01=0x0154}
0x3e48…3e54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0168}
0x3e54…3e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0174}
0x3e5e…3e74 Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=0 «, t00=0x0027, t01=0x017e}
0x3e74…3ea4 (40, 2, 110) Head {h00=0x002c, h01=0x0050, text=»LT:SWB ABL LKMERR INDICATE SYSGEN ERROR «, t00=0x0028, t01=0x0004}
0x3ea4…3eb0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0034}
0x3eb0…3eba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0040}
0x3eba…3ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x004a}
0x3ec4…3ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0054}
0x3ece…3eda Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0028, t01=0x005e}
0x3eda…3ede Head {h00=0x4004, h01=0x0000}
0x3ede…3ee2 00 28 00 6a ┆ ( j┆
0x3ee2…3eea (41, 1, 8) 20 04 00 00 00 29 00 04 ┆ ) ┆
0x3eea…3f3a (42, 0, 400) 41 52 41 4d 45 54 45 52 00 29 01 70 00 0e 00 50 5c 52 46 5c 54 49 4f 51 32 30 00 2a 00 10 00 06 00 50 2a 20 00 2a 00 22 00 26 00 50 41 54 54 3a 38 30 5c 4c 44 4b 5c 41 33 2c 2f 34 30 5c 53 45 54 20 54 49 4d 45 20 4f 55 54 20 42 49 54 00 2a ┆ARAMETER ) p P RF TIOQ20 * P* * " & PATT:80 LDK A3,/40 SET TIME OUT BIT *┆
0x3f3a…3f8a 00 2c 00 16 00 50 5c 52 46 5c 54 49 4f 45 52 52 5c 52 45 54 55 52 4e 20 00 2a 00 56 00 06 00 50 2a 20 00 2a 00 70 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 54 4f 53 53 49 4f 20 00 2a 00 7a 00 06 00 50 2a 20 00 2a 00 92 00 06 00 50 2a 20 00 2a ┆ , P RF TIOERR RETURN * V P* * p P EJECT TOSSIO * z P* * P* *┆
0x3f8a…3fda 00 9c 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2a 00 a6 00 0e 00 50 2a 20 44 45 54 41 43 48 20 2a 00 2a 00 b8 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2a 00 ca 00 06 00 50 2a 20 00 2a 00 dc 00 2a 00 50 2a 20 54 48 49 53 20 4d 4f 44 ┆ P********** * P* DETACH * * P********** * P* * * P* THIS MOD┆
0x3fda…402a 55 4c 45 20 49 53 20 43 41 4c 4c 45 44 20 46 52 4f 4d 20 54 49 4f 20 57 49 54 48 20 00 2a 00 e6 00 24 00 50 2a 20 54 48 45 20 53 41 4d 45 20 50 41 52 41 4d 45 54 45 52 53 20 41 53 20 41 54 54 41 43 48 2e 00 2a 01 14 00 06 00 50 2a 20 00 2a ┆ULE IS CALLED FROM TIO WITH * $ P* THE SAME PARAMETERS AS ATTACH. * P* *┆
0x402a…407a 01 3c 00 10 00 50 44 45 54 41 43 48 5c 45 51 55 5c 2a 00 2a 01 46 00 14 00 50 5c 41 44 4b 5c 41 34 2c 30 5c 53 45 54 20 43 52 00 2a 01 5a 00 2a 00 50 5c 52 46 28 4e 5a 29 5c 54 49 4f 45 52 52 5c 49 2f 4f 20 41 4e 44 20 41 43 54 49 56 41 54 ┆ < PDETACH EQU * * F P ADK A4,0 SET CR * Z * P RF(NZ) TIOERR I/O AND ACTIVAT┆
0x407a…40ca (43, 0, 398) 45 20 45 52 52 4f 52 3f 00 2a 01 72 00 10 00 50 5c 54 4d 5c 41 31 30 2c 41 31 33 20 00 2b 00 10 00 20 00 50 5c 52 46 28 5a 29 5c 54 49 4f 45 52 52 5c 4e 4f 54 20 41 54 54 41 43 48 45 44 3f 20 00 2b 00 24 00 14 00 50 5c 43 57 5c 41 35 2c 44 ┆E ERROR? * r P TM A10,A13 + P RF(Z) TIOERR NOT ATTACHED? + $ P CW A5,D┆
0x40ca…411a 57 54 54 41 42 2c 41 36 00 2b 00 48 00 2a 00 50 5c 52 46 28 4e 45 29 5c 54 49 4f 45 52 52 5c 41 54 54 41 43 48 45 44 20 54 4f 20 4f 54 48 45 52 20 54 41 53 4b 3f 00 2b 00 60 00 1c 00 50 5c 58 52 53 5c 41 31 30 2c 44 57 54 53 54 2c 41 36 5c ┆WTTAB,A6 + H * P RF(NE) TIOERR ATTACHED TO OTHER TASK? + ` P XRS A10,DWTST,A6 ┆
0x411a…416a 44 45 54 41 43 48 00 2b 00 8e 00 12 00 50 5c 43 57 4b 5c 41 31 32 2c 54 49 4f 44 4d 00 2b 00 ae 00 22 00 50 5c 52 46 28 4e 45 29 5c 44 45 54 3a 30 35 5c 4e 4f 20 44 4d 20 52 45 51 55 45 53 54 3f 20 00 2b 00 c4 00 28 00 50 5c 43 46 5c 41 31 ┆DETACH + P CWK A12,TIODM + " P RF(NE) DET:05 NO DM REQUEST? + ( P CF A1┆
0x416a…41ba 35 2c 46 44 42 44 45 54 5c 44 45 54 41 43 48 20 46 49 4c 45 20 53 54 52 55 43 54 55 52 45 00 2b 00 ea 00 1a 00 50 5c 52 46 5c 44 45 54 52 54 4e 5c 45 4e 44 20 52 45 51 55 45 53 54 00 2b 01 16 00 06 00 50 2a 20 00 2b 01 34 00 10 00 50 44 45 ┆5,FDBDET DETACH FILE STRUCTURE + P RF DETRTN END REQUEST + P* + 4 PDE┆
0x41ba…4208 54 3a 30 35 5c 45 51 55 5c 2a 00 2b 01 3e 00 1a 00 50 5c 4c 44 52 5c 41 32 2c 41 36 5c 51 52 45 51 20 49 4e 50 55 54 20 00 2b 01 52 00 1e 00 50 5c 43 46 5c 41 31 35 2c 51 52 45 51 5c 55 50 44 41 54 45 20 44 57 54 54 51 20 00 2b 01 70 ┆T:05 EQU * + > P LDR A2,A6 QREQ INPUT + R P CF A15,QREQ UPDATE DWTTQ + p┆
0x4208…4258 (44, 0, 400) 00 06 00 50 2a 20 00 2c 00 04 00 32 00 50 41 54 54 52 54 4e 5c 45 51 55 5c 2a 5c 43 4f 4d 4d 4f 4e 20 41 54 54 41 43 48 2f 44 45 54 41 43 48 20 4e 4f 52 4d 41 4c 20 45 58 49 54 20 00 2c 00 0e 00 20 00 50 44 45 54 52 54 4e 5c 4c 44 4b 5c 41 ┆ P* , 2 PATTRTN EQU * COMMON ATTACH/DETACH NORMAL EXIT , PDETRTN LDK A┆
0x4258…42a8 33 2c 30 5c 52 45 54 55 52 4e 20 43 4f 44 45 20 00 2c 00 44 00 08 00 50 5c 58 49 46 00 2c 00 68 00 06 00 50 2a 20 00 2c 00 74 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 54 4f 53 53 49 4f 20 00 2c 00 7e 00 06 00 50 2a 20 00 2c 00 96 00 06 00 50 ┆3,0 RETURN CODE , D P XIF , h P* , t P EJECT TOSSIO , ~ P* , P┆
0x42a8…42f8 2a 20 00 2c 00 a0 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2c 00 aa 00 0e 00 50 2a 20 54 49 4f 45 52 52 20 2a 00 2c 00 bc 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2c 00 ce 00 06 00 50 2a 20 00 2c 00 e0 00 1e 00 50 2a 5c 45 52 52 4f ┆* , P********** , P* TIOERR * , P********** , P* , P* ERRO┆
0x42f8…4348 52 3a 20 46 49 4c 45 20 43 4f 44 45 20 55 4e 4b 4e 4f 57 4e 00 2c 00 ea 00 28 00 50 2a 5c 54 49 4f 45 52 52 20 49 53 20 41 4c 53 4f 20 55 53 45 44 20 41 53 20 43 4f 4d 4d 4f 4e 20 45 58 49 54 00 2c 01 0c 00 28 00 50 2a 5c 46 4f 52 20 4d 4f ┆R: FILE CODE UNKNOWN , ( P* TIOERR IS ALSO USED AS COMMON EXIT , ( P* FOR MO┆
0x4348…4398 44 55 4c 45 53 20 27 41 54 54 41 43 48 27 20 41 4e 44 20 27 44 45 54 41 43 48 27 2e 00 2c 01 38 00 06 00 50 2a 20 00 2c 01 64 00 10 00 50 54 49 4f 45 52 52 5c 45 51 55 5c 2a 00 2c 01 6e 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 30 20 ┆DULES 'ATTACH' AND 'DETACH'. , 8 P* , d PTIOERR EQU * , n P IFT MMUPAG=0 ┆