|
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: 20434 (0x4fd2)
Notes: pts_type(SC)
Names: »SYSLBA.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/SYSLBA.SC«
IDENT SYSLBA REL 11.0 81-01-26 870105041100 ******************************************************* * * * PHILIPS TERMINAL SYSTEM PTS * * * * SYSLBA - BASIC CONFIGURATION PROGRAM * * * ******************************************************* EJECT * * EXTERNAL SUBOUTINES * EXTRN ACTOT ACTIVATE TASK EXTRN GETAPP GET APPLICATION CONTROL BLOCK EXTRN INBIMA INITIATE ALLOCATION BIT MAP EXTRN MMENT GET FIRST FREE MMU ENTRY EXTRN MOVE MOVE DATA IN MEMORY EXTRN MOVING ALLOCATE AREA IN LOGICAL MEMORY EXTRN MOVMMT MOVE MMU TABLE EXTRN RETUR8 RESTORE 8 REGISTERS FROM STACK EXTRN SAVE8 SAVE 8 REGISTERS ON STACK * * SYSTEM CONTROL TABLE EXTERNALS * EXTRN SCTSFA START OF FREE AREA EXTRN SCTEFA END OF FREE AREA * * DISPLACEMENT IN APPLICATION CONTROL BLOCK * EXTRN ACBIOE INTERPRETER ERROR ENTRY EXTRN ACBNPE NUMBER OF PAGE ENTRIES EXTRN ACBMMC DISPL. TO COMMON PART ENTRY EXTRN ACBLAC LOGICAL ADDRESS TO COMM0N PART * * TTAB DISPLACEMENT EXTERNALS * EXTRN TTB:AM ALLOCATION BIT MAP EXTRN TTB:MT MMU TABLE EXTRN TTB:CB CURRENT SEGMENT BASE POINTER EXTRN TTB:AP APPLICATION CONTROL BLOCK POINTER EXTRN TTB:SA DISPATCH ADDRESS EJECT * * EXTERNAL LABELS * EXTRN REL RELOCATION ROUTINE ENTRY EXTRN STKMOV STACK-RESIDENT MOVE-ROUTINE EXTRN STKCOM COMMON SCRATCH-PAD BASE EXTRN STKEND LOCAL SCRATCH-PAD BASE * * SAVE AND WORK AREA ENTRIES * EXTRN MMTAB MMU WORK TABLE DISPLACEMENT EXTRN TABBE MMU WORK TABLE ADDRESS EXTRN MMEND MMU WORK TABLE END EXTRN MMDDIV 2ND MMU WORK TABLE DISPLACEMENT EXTRN MMBEG TTAB WORK TABLE DISPLACEMENT EXTRN INIEND END OF SYSINI EJECT * * CONDITIONAL ASSEMBLY * MMUPAG EQU 0 0=NO MMU EJECT ***************************************** * * * COMMON DISPLACEMENTS AND CONSTANTS * * * ***************************************** APLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE APPLNO EQU 18 APPLICATION NUMBER BUFSIZ EQU 14 TEMPORARY BUFFER SIZE CONLEN EQU 0 LENGTH OF CONFIGURATION DATA CONSTA EQU 2 START OF CONFIGURATION DATA DATEND EQU 34 END OF DDIV PROTOTYPE DYNSTA EQU 52 START OF DYNTAB:S FSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER FSTPAG EQU 22 1ST FREE PAGE (PHYSICAL) FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART MAPLEN EQU 30 LENGTH OF AREA TO MAP MMFROM EQU 36 2ND MMU TABLE WORK AREA MMTO EQU 38 1:ST MMU TABLE WORK AREA M:REL EQU 16 RELOCATION CONSTANT SYSBUF EQU 28 START OF TEMPORARY BUFFER SWBFSA EQU 4 SWB-FILE START ADDRESS SWBFSE EQU 8 SWB-FILE END ADDRESS TTAB EQU 32 WORK AREA FOR MMU TABLE TOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS SWBFLG EQU 48 SWAPPABLE WORK BLOCK FLAG COM01 EQU 40 COMMON WORK AREA 1 COM02 EQU 42 COMMON WORK AREA 2 COM03 EQU 44 COMMON WORK AREA 3 COM04 EQU 50 COMMON WORK AREA 4 DCBLK EQU 54 START OF DC CONF. DATA EJECT ******************************* * SCRATCH-PAD DISPLACEMENTS * ******************************* SAVAPP EQU 0 SAVE AREA FOR APPLICATION TABLE LIMUS EQU 12 SAVE AREA FOR UPPER LIMIT COMSTA EQU 14 START OF COMMON PART COMLEN EQU 16 LENGTH OF COMMON * * CONSTANTS * MMULEN EQU 32 LENGTH OF MMU TABLE T:ATID EQU -4 TID IN T:A TTBTID EQU 2 TID IN TTAB APPLEN EQU 10 APPLICATION TABLE LENGTH STKUSD EQU 12 DISPLACEMENT TO STACK USED PBSSIZ EQU 100 USER AREA SIZE EXCL. STACK EJECT ******************************************* * DISPLACEMENT IN APPLICATION TABLE * ****************************************** INTPA EQU 0 INTPE EQU 2 STKSIZ EQU 4 I:EXIT EQU 6 I:RSTE EQU 8 ***************************************************************** * CALL-FORMAT, PERFORMS: CFR A14,A13 * * DATA [REL-ADDRESS] * * * ***************************************************************** CALL FORM 16=/F697,16 EJECT SYSLBA EQU * * * CHECK IF THERE IS A BASIC APPLICATION PRESENT * LDKL A1,'BA' LOAD IDENTIFICATION CHARACTERS CM STKCOM+APPLNO CLEAR APPLICATION COUNTER CALL GETAPP ANY BASIC APPLICATION? RF(NZ) SYA100 YES LDKL A1,LBAEND END OF SYSLBA AD A1,STKCOM+M:REL RELOCATE ABR A1 SYA100 EQU * LDR A10,A1 SAVE ACB ADDRESS LD A2,ACBLAC,A10 GET LOGICAL ADDRRESS TO COMMON PART IFT MMUPAG=0 LDR* A2,A2 GET APPTAB ADDRESS LD A1,I:RSTE,A2 GET INTERPRETER ERROR ENTRY XIF IFF MMUPAG=0 LDK A3,0 END OF LOGICAL MEMORY SUR A3,A2 COMPUTE LENGTH OF COMMON PART ADKL A3,/1000 INCLUDE ONE ENTRY FOR PAGING ST A3,STKEND+COMLEN SAVE LENGTH OF COMMON PART LD* A1,ACBMMC,A10 GET TTAB ADDRESS TL TTB:MT,A1 LOAD MMU REGISTERS ELR A2,A2 GET ADDRESS TO APPLICATION TABLE EL A1,I:RSTE,A2 GET INTERPRETER ERROR ENTRY XIF ST A1,ACBIOE,A10 STORE INTERPRETER ERROR ENTRY ST A2,ACBLAC,A10 STORE LOGICAL ADDRESS TO COMMON PART SUK A2,10 RESERVE 5 WORDS FOR DEBUGGER ST A2,STKCOM+LSTADR STORE END OF FREE AREA ST A2,STKEND+COMSTA SAVE START OF COMMON PART EJECT LDKL A1,PART2 GET ADDRESS TO PART 2 OF SYSLBA AD A1,STKCOM+M:REL RELOCATE LD A7,SCTSFA GET START OF FREE AREA LDR A2,A7 SAVE SUR A2,A1 COMPUTE DISPLACEMENT ADS A2,STKCOM+M:REL COMPUTE NEW RELOCATION CONSTANT LDKL A2,INIEND END OF SYSINI AD A2,STKCOM+CONLEN ADD LENGTH OF CONFIGURATION DATA AD A2,STKCOM+M:REL RELOCATE LDR A5,A2 SAVE IFF MMUPAG=0 ANKL A2,/F000 ISOLATE PHYSICAL PAGE ADDRESS SRL A2,2 ST A2,STKCOM+FSTPAG SAVE LDKL A4,MMDDIV ADDRESS TO 2ND MMU WORK TABLE ADR A4,A13 RELOCATE LDK A3,16 NUMBER OF MMU TABLE ENTRIES SYA150 STR A2,A4 STORE PHYSICAL PAGE ADDRESS ADK A4,2 UPDATE ENTRY POINTER ADKL A2,/400 INCREMENT PHYSICAL PAGE ADDRESS SUK A3,1 MORE ENTRIES LEFT? RB(NZ) SYA150 YES EJECT * * SAVE MMU WORK TABLE ADDRESSES * ANKL A5,/FFF ISOLATE DISPLACEMENT XIF ST A5,STKEND+LIMUS SAVE UPPER LIMIT ADDRESS ST A5,STKCOM+FSTADR THIS ADDRESS IS USED IN MOVING * * MOVE CONFIGURATION PROGRAM(S) * LDR A2,A7 GET TO-ADDRESS ADKL A7,START2 START OF EXECUTION IN PART 2 LDKL A3,INIEND END OF SYSINI SUKL A3,PART2 COMPUTE LENGTH OF PROGRAMS ABL STKMOV JUMP TO STACK-RESIDENT ROUTINE EJECT PART2 EQU * * * PROCEDURE DESCRIPTOR BLOCK * PROCDR DATA 'BASIC' PROCEDURE NAME DATA 0 DATA 6 * * SUBROUTINES USED IN PART 2 * IFT MMUPAG=1 EJECT ************************************************************* * * * INUEMT - INIT NOT USED ENTRIES IN MMU TABLE * * =========================================== * * * * REFERENCED IN: SYSLDB * * * * ENTRY: A3 - MMU TABLE ADDRESS * * * * EXIT: * * * * WORK REGISTERS: A1,A2,A9 * * * * SUBROUTINES: * * * ************************************************************* INUEMT EQU * LDR A2,A3 GET MMU TABLE ADDRESS LDR A9,A2 GET TTAB ADDRESS ADKL A9,MMULEN END OF MMU TABLE SUK A2,2 INUE10 ADK A2,2 NEXT ENTRY CWR A2,A9 END OF MMU TABLE? RF(E) INUE99 YES! LDR* A1,A2 GET CONTENT IN MMU TABLE ENTRY RB(NZ) INUE10 NOT UNUSED MMU TABLE ENTRY! LDKL A1,/FC00 VALUE FOR UNUSED ENTRIES STR A1,A2 STORE IN MMU TABLE RB INUE10 INUE99 RTN A14 RETURN XIF EJECT *************************************************** * * * B:UWA - BUILD USER WORK AREA * * ============================ * * * * REFERENCED IN: SYSLDB PART 2 * * * * ENTRY: A5 - TTAB ADDRESS * * LSTADR - LAST ADDRESS IN USER AREA * * * * EXIT: * * * * WORK REGISTERS: A1-A4,A10,A12 * * * * SUBROUTINES: * * * *************************************************** B:UWA EQU * * * ALLOCATE MEMORY FOR USER AREA * LD A3,STKEND+STKSIZ GET STACK SIZE ADK A3,PBSSIZ ADD SIZE OF FIXED PART LD A2,STKCOM+LSTADR GET LAST LOGICAL ADDRESS LDR A12,A3 SAVE ST A3,STKCOM+MAPLEN LENGTH OF AREA TO MAP CALL MOVING ALLOCATE AREA ADR A12,A2 END OF USER AREA IFT MMUPAG=1 TL* MMTO+STKCOM RELOAD MMU REGISTERS SUR A1,A1 CLEAR REGISTER XIF * * CLEAR USER WORK AREA * * A2 - START OF USER AREA * A12 - END OF USER AREA * LDR A4,A12 GET END OF USER AREA CLRNXT SUK A4,2 DECREMENT USER AREA POINTER IFF MMUPAG=1 CMR A4 CLEAR MEMORY WORD XIF IFT MMUPAG=1 ESR A1,A4 CLEAR MEMORY WORD XIF CWR A4,A2 ALL WORDS CLEARED? RB(NE) CLRNXT NO! EJECT * * INITIALIZATION OF USER AREA AND TTAB * * A5 - TTAB ADDRESS * ST A4,TTB:CB,A5 STORE ADDRESS TO CURRENT SEGMENT BASE LD A1,TTBTID,A5 GET TASK ID ADK A4,STKUSD STACK USED ENTRY ST A4,TTB:SA+26,A5 SAVE IN REG A13 LD A3,STKEND+STKSIZ GET STACK SIZE SRA A3,1 CONVERT FROM BYTES TO WORDS IFF MMUPAG=1 ST A1,T:ATID,A4 STORE TASK ID ST A3,2,A4 STORE STACK SIZE LD A1,STKEND+INTPE GET INTERPRETER ERROR ENTRY ST A1,T:ATID-2,A4 STORE LDK A1,8 STACK USED STR A1,A4 STORE LDKL A1,/2020 SPACE ST A1,4,A4 BLANK 1:ST WORD ST A1,6,A4 BLANK 2:ND WORD ST A1,8,A4 BLANK 3:RD WORD ADK A4,10 CURRENT PROC. BLOCK POINTER ST A4,TTB:SA+20,A5 SAVE IN TTAB LDR A1,A12 GET END OF USER AREA SUK A1,18 STACK POINTER START VALUE STR A1,A4 SAVE IN CURR. PROC. BLOCK PTR ST A1,2,A4 SAVE IN DISPLAY 0 ADK A4,2 POINTER TO DISPLAY 0 ST A4,8,A1 SAVE IN STACK ST A1,TTB:SA+28,A5 SAVE STACK POINTER IN TTAB LD A1,STKEND+I:EXIT GET ADDRESS TO TERMINATING PROGRAM ST A1,-2,A12 SAVE LAST IN STACK ST A1,40,A4 ADDRESS TO TERMINATING PROGRAM LDR A1,A12 END OF USER AREA SUK A1,2 LAST WORD IN USER AREA ST A1,38,A4 ADDRESS(STACK)+2*(STACK-SIZE) LDKL A1,/F0C0 PSW ST A1,-4,A12 STORE IN STACK LD A1,ACBLAC,A10 ADDRESS TO PROCEDURE DESCRIPTOR ST A1,-6,A12 STORE IN STACK XIF IFT MMUPAG=1 ES A1,T:ATID,A4 STORE TASK ID ES A3,2,A4 STORE STACK SIZE LD A1,STKEND+INTPE GET INTERPRETER ERROR ENTRY ES A1,T:ATID-2,A4 STORE LDK A1,8 STACK USED ESR A1,A4 STORE LDKL A1,/2020 SPACE ES A1,4,A4 BLANK 1:ST WORD ES A1,6,A4 BLANK 2:ND WORD ES A1,8,A4 BLANK 3:RD WORD ADK A4,10 CURRENT PROC. BLOCK POINTER ST A4,TTB:SA+20,A5 SAVE IN TTAB LDR A1,A12 GET END OF USER AREA SUK A1,18 STACK POINTER AT APPLICATION START ESR A1,A4 SAVE IN CURR. PROC. BLOCK PTR ES A1,2,A4 SAVE IN DISPLAY 0 ADK A4,2 POINTER TO DISPLAY 0 ES A4,8,A1 SAVE IN STACK ST A1,TTB:SA+28,A5 SAVE STACK POINTER LD A1,STKEND+I:EXIT GET ADDR. TO TERM. PROGRAM ES A1,-2,A12 SAVE LAST IN STACK ES A1,40,A4 ADDRESS TO TERMINATING CODE LDR A1,A12 GET END OF USER AREA SUK A1,2 LAST WORD IN USER AREA ES A1,38,A4 ADDRESS(STACK)+2*(STACK-SIZE) LDKL A1,/F0C0 PSW ES A1,-4,A12 STORE IN STACK LD A1,ACBLAC,A10 ADDRESS TO PROCEDURE DESCRIPTOR ES A1,-6,A12 STORE IN STACK XIF RTN A14 EJECT ********************************************************* * * * Q:USTK - QUEUE USER TASK * * ======================== * * * * REFERENCED IN: SYSLDB * * * * ENTRY: A5 - TTAB ADDRESS * * A2 - LOGICAL ADDRESS TO USER AREA * * * * EXIT: * * * * WORK REGISTERS: A1,A3 * * * * SUBROUTINES: ACTOT * * * ********************************************************* Q:USTK LDKL A3,QRTN CONTINUATION ADDRESS AD A3,STKCOM+M:REL RELOCATE STR A3,A15 STORE LDKL A3,/00C0 SET LEVEL & ENABLE STR A3,A15 STORE PSW CF A15,SAVE8 SAVE 8 REGISTERS LDR A1,A2 POINTER TO START OF USER AREA LD A2,STKEND+INTPA GET INTERPRETER START ADDRESS LDK A3,0 SEGMENT NUMBER CF A15,ACTOT QUEUE TASK ABL RETUR8 RELOAD 8 REGISTERS QRTN EQU * RTN A14 EJECT START2 EQU *-PART2 * * MOVE CONFIGURATION DATA * LD A1,STKCOM+CONSTA GET START OF CONFIGURATION DATA LDKL A7,SYA200 CONTINUATION ADDRESS AFTER MOVE AD A7,STKCOM+M:REL RELOCATE LD A3,STKCOM+CONLEN GET LENGTH OF CONFIGURATION DATA ABL STKMOV JUMP TO STACK-RESIDENT ROUTINE SYA200 EQU * * * LOAD NEW RELOCATION AND STACK BASE * LDR A8,P TEMPORARY STACK BASE LDKL A5,REL+2 ADDRESS TO RELOCATION ROUTINE AD A5,STKCOM+M:REL RELOCATE CFR A8,A5 CALL RELOCATION ROUTINE LD A1,ACBLAC,A10 GET FROM-ADDRESS LDKL A2,STKEND+SAVAPP ADDRESS APPTAB SAVE AREA LDK A3,APPLEN GET LENGTH OF APPTAB IFF MMUPAG=1 CALL MOVE MOVE APPTAB LDR A2,A1 GET TO-ADDRESS LDK A3,APPLEN GET LENGTH OF PROC. DESCR. LDKL A1,PROCDR GET FROM-ADDRESS AD A1,STKCOM+M:REL RELOCATE CALL MOVE MOVE PROCEDURE DESCRIPTOR XIF IFT MMUPAG=1 MVUS A3 MOVE APPLICATION TABLE LDR A2,A1 GET TO-ADDRESS LDK A3,APPLEN GET LENGTH OF PROC. DESCR. SUR A2,A3 COMPUTE TO-ADDRESS LDKL A1,PROCDR GET FROM-ADDRESS AD A1,STKCOM+M:REL RELOCATE MVSU A3 MOVE PROCEDURE DESCRIPTOR EJECT * * FIND LAST USED MMU TABLE ENTRY AND GET PHYSICAL PAGE ADDRESS * LDKL A3,MMTAB DISPL. TO MMU TABLE ADR A3,A13 RELOCATION BASE CALL INUEMT INIT NOT USED ENTRIES IN MMU TABLE CALL MMENT FIND FIRST UNUSED MMU ENTRY ST A1,STKCOM+FYSPAG SAVE PHYSICAL PAGE ADDRESS LDKL A6,MMTAB GET DISPL. TO MMU TABLE ADR A6,A13 ADD RELOCATION POINTER ST A6,STKCOM+MMFROM SAVE ADDRESS TO MMU TABLE TLR A6 LOAD MMU REGISTERS XIF LD A6,ACBMMC,A10 GET FIRST ENTRY IN TCTAB LD A7,ACBNPE,A10 NUMBER OF USER TASKS I:LOOP LDR* A5,A6 GET TTAB ADDRESS ST A5,STKCOM+TTAB STORE IFT MMUPAG=1 LD A2,STKEND+COMLEN GET LENGTH OF COMMON PART ST A2,STKCOM+MAPLEN SAVE FOR MAPPING LD A8,STKCOM+LSTADR SAVE LAST LOGICAL ADDRESS LD A2,STKEND+COMSTA GET START OF COMMON PART ST A2,STKCOM+LSTADR SAVE FOR MAPPING CALL INBIMA INIT ALLOCATION BIT MAP ST A8,STKCOM+LSTADR RESTORE LAST LOGICAL ADDRESS LDR A2,A5 GET TTAB ADDRESS CALL MOVMMT MOVE MMU TABLE ST A2,STKCOM+MMTO SAVE ADDRRESS XIF CALL B:UWA BUILD USER WORK AREA CALL Q:USTK QUEUE USER TASK ADK A6,2 NEXT ENTRY IN TCTAB SUK A7,1 MORE USER TASKS? RB(NZ) I:LOOP YES EJECT * * UPDATE END OF FREE AREA * LD A1,STKCOM+LSTADR GET LOWEST LOGICAL ADDRESS IFT MMUPAG=1 ANKL A1,/FFF GET DISPL. IN PHYS. PAGE LD A2,STKCOM+FYSPAG GET LAST USED PHYS. PAGE SLL A2,2 SKIP TWO LEFTMOST BITS ORR A1,A2 MERGE ADDRESS XIF ST A1,SCTEFA+2 STORE LEAST SIGN. PART LD A1,STKCOM+FYSPAG GET LAST USED PHYS. PAGE SRL A1,14 GET TWO MOST SIGN. BITS ST A1,SCTEFA STORE MOST SIGN. PART CM STKCOM+MAPLEN CLEAR MAPPING LENGTH LBAEND EQU * * * CONTINUE IN NEXT PROGRAM * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT SYSLBA REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0046 Head {h00=0x0004, h01=0x0002, t00=0x0000, t01=0x0042}
0x0046…0086 Head {h00=0x003c, h01=0x0037, text=»******************************************************* «, t00=0x0000, t01=0x004a}
0x0086…00c6 Head {h00=0x003c, h01=0x0037, text=»* * «, t00=0x0000, t01=0x008a}
0x00c6…0106 Head {h00=0x003c, h01=0x0037, text=»* PHILIPS TERMINAL SYSTEM PTS * «, t00=0x0000, t01=0x00ca}
0x0106…0146 Head {h00=0x003c, h01=0x0037, text=»* * «, t00=0x0000, t01=0x010a}
0x0146…0186 Head {h00=0x003c, h01=0x0037, text=»* SYSLBA - BASIC CONFIGURATION PROGRAM * «, t00=0x0000, t01=0x014a}
0x0186…01c6 Head {h00=0x003c, h01=0x0037, text=»* * «, t00=0x0000, t01=0x018a}
0x01c6…0206 Head {h00=0x003c, h01=0x0037, text=»******************************************************* «, t00=0x0001, t01=0x003a}
0x0206…0214 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0001, t01=0x007a}
0x0214…021e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0088}
0x021e…023c Head {h00=0x001a, h01=0x0016, text=»* EXTERNAL SUBOUTINES«, t00=0x0001, t01=0x0092}
0x023c…0246 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x00b0}
0x0246…0268 Head {h00=0x001e, h01=0x001a, text=» EXTRN ACTOT ACTIVATE TASK«, t00=0x0001, t01=0x00ba}
0x0268…029c Head {h00=0x0030, h01=0x002b, text=» EXTRN GETAPP GET APPLICATION CONTROL BLOCK «, t00=0x0001, t01=0x00dc}
0x029c…02ce Head {h00=0x002e, h01=0x0029, text=» EXTRN INBIMA INITIATE ALLOCATION BIT MAP «, t00=0x0001, t01=0x0110}
0x02ce…02fc Head {h00=0x002a, h01=0x0025, text=» EXTRN MMENT GET FIRST FREE MMU ENTRY «, t00=0x0001, t01=0x0142}
0x02fc…0324 Head {h00=0x0024, h01=0x001f, text=» EXTRN MOVE MOVE DATA IN MEMORY «, t00=0x0001, t01=0x0170}
0x0324…035a Head {h00=0x0032, h01=0x002d, text=» EXTRN MOVING ALLOCATE AREA IN LOGICAL MEMORY «, t00=0x0002, t01=0x0008}
0x035a…037e Head {h00=0x0020, h01=0x001c, text=» EXTRN MOVMMT MOVE MMU TABLE«, t00=0x0002, t01=0x003e}
0x037e…03b2 Head {h00=0x0030, h01=0x002c, text=» EXTRN RETUR8 RESTORE 8 REGISTERS FROM STACK«, t00=0x0002, t01=0x0062}
0x03b2…03e0 Head {h00=0x002a, h01=0x0026, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON STACK«, t00=0x0002, t01=0x0096}
0x03e0…03ea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00c4}
0x03ea…0414 Head {h00=0x0026, h01=0x0021, text=»* SYSTEM CONTROL TABLE EXTERNALS «, t00=0x0002, t01=0x00ce}
0x0414…041e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00f8}
0x041e…0446 Head {h00=0x0024, h01=0x0020, text=» EXTRN SCTSFA START OF FREE AREA«, t00=0x0002, t01=0x0102}
0x0446…046c Head {h00=0x0022, h01=0x001e, text=» EXTRN SCTEFA END OF FREE AREA«, t00=0x0002, t01=0x012a}
0x046c…0476 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0150}
0x0476…04aa Head {h00=0x0030, h01=0x002c, text=»* DISPLACEMENT IN APPLICATION CONTROL BLOCK«, t00=0x0002, t01=0x015a}
0x04aa…04b4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x018e}
0x04b4…04e2 Head {h00=0x002a, h01=0x0025, text=» EXTRN ACBIOE INTERPRETER ERROR ENTRY «, t00=0x0003, t01=0x0008}
0x04e2…050e Head {h00=0x0028, h01=0x0024, text=» EXTRN ACBNPE NUMBER OF PAGE ENTRIES«, t00=0x0003, t01=0x0036}
0x050e…0540 Head {h00=0x002e, h01=0x0029, text=» EXTRN ACBMMC DISPL. TO COMMON PART ENTRY «, t00=0x0003, t01=0x0062}
0x0540…0574 Head {h00=0x0030, h01=0x0050, text=» EXTRN ACBLAC LOGICAL ADDRESS TO COMM0N PART«, t00=0x0003, t01=0x0094}
0x0574…057e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x00c8}
0x057e…05a4 Head {h00=0x0022, h01=0x001e, text=»* TTAB DISPLACEMENT EXTERNALS«, t00=0x0003, t01=0x00d2}
0x05a4…05ae Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x00f8}
0x05ae…05d6 Head {h00=0x0024, h01=0x0020, text=» EXTRN TTB:AM ALLOCATION BIT MAP«, t00=0x0003, t01=0x0102}
0x05d6…05f6 Head {h00=0x001c, h01=0x0017, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0003, t01=0x012a}
0x05f6…0628 Head {h00=0x002e, h01=0x002a, text=» EXTRN TTB:CB CURRENT SEGMENT BASE POINTER«, t00=0x0003, t01=0x014a}
0x0628…0660 Head {h00=0x0034, h01=0x002f, text=» EXTRN TTB:AP APPLICATION CONTROL BLOCK POINTER «, t00=0x0003, t01=0x017c}
0x0660…0686 Head {h00=0x0022, h01=0x001e, text=» EXTRN TTB:SA DISPATCH ADDRESS«, t00=0x0004, t01=0x0024}
0x0686…0694 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x004a}
0x0694…069e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0058}
0x069e…06b8 Head {h00=0x0016, h01=0x0050, text=»* EXTERNAL LABELS«, t00=0x0004, t01=0x0062}
0x06b8…06c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007c}
0x06c2…06ee Head {h00=0x0028, h01=0x0050, text=» EXTRN REL RELOCATION ROUTINE ENTRY «, t00=0x0004, t01=0x0086}
0x06ee…0720 Head {h00=0x002e, h01=0x0050, text=» EXTRN STKMOV STACK-RESIDENT MOVE-ROUTINE «, t00=0x0004, t01=0x00b2}
0x0720…074e Head {h00=0x002a, h01=0x0050, text=» EXTRN STKCOM COMMON SCRATCH-PAD BASE «, t00=0x0004, t01=0x00e4}
0x074e…077a Head {h00=0x0028, h01=0x0050, text=» EXTRN STKEND LOCAL SCRATCH-PAD BASE«, t00=0x0004, t01=0x0112}
0x077a…0784 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0004, t01=0x013e}
0x0784…07aa Head {h00=0x0022, h01=0x001d, text=»* SAVE AND WORK AREA ENTRIES «, t00=0x0004, t01=0x0148}
0x07aa…07b4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x016e}
0x07b4…07e4 Head {h00=0x002c, h01=0x0028, text=» EXTRN MMTAB MMU WORK TABLE DISPLACEMENT«, t00=0x0004, t01=0x0178}
0x07e4…0810 Head {h00=0x0028, h01=0x0023, text=» EXTRN TABBE MMU WORK TABLE ADDRESS «, t00=0x0005, t01=0x0018}
0x0810…0838 Head {h00=0x0024, h01=0x001f, text=» EXTRN MMEND MMU WORK TABLE END «, t00=0x0005, t01=0x0044}
0x0838…086e Head {h00=0x0032, h01=0x002d, text=» EXTRN MMDDIV 2ND MMU WORK TABLE DISPLACEMENT «, t00=0x0005, t01=0x006c}
0x086e…08a0 Head {h00=0x002e, h01=0x0029, text=» EXTRN MMBEG TTAB WORK TABLE DISPLACEMENT «, t00=0x0005, t01=0x00a2}
0x08a0…08c4 Head {h00=0x0020, h01=0x001b, text=» EXTRN INIEND END OF SYSINI «, t00=0x0005, t01=0x00d4}
0x08c4…08d2 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0005, t01=0x00f8}
0x08d2…08dc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0106}
0x08dc…08fc Head {h00=0x001c, h01=0x0017, text=»* CONDITIONAL ASSEMBLY «, t00=0x0005, t01=0x0110}
0x08fc…0906 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0130}
0x0906…090e Head {h00=0x0004, h01=0x0002, t00=0x0005, t01=0x013a}
0x090e…0916 Head {h00=0x0004, h01=0x0002, t00=0x0005, t01=0x0142}
0x0916…0934 Head {h00=0x001a, h01=0x0050, text=»MMUPAG EQU 0 0=NO MMU «, t00=0x0005, t01=0x014a}
0x0934…0942 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0168}
0x0942…0974 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0005, t01=0x0176}
0x0974…09a6 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0006, t01=0x0018}
0x09a6…09d8 Head {h00=0x002e, h01=0x0050, text=»* COMMON DISPLACEMENTS AND CONSTANTS * «, t00=0x0006, t01=0x004a}
0x09d8…0a0a Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0006, t01=0x007c}
0x0a0a…0a3c Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0006, t01=0x00ae}
0x0a3c…0a44 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00e0}
0x0a44…0a78 Head {h00=0x0030, h01=0x0050, text=»APLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE«, t00=0x0006, t01=0x00e8}
0x0a78…0aa0 Head {h00=0x0024, h01=0x0050, text=»APPLNO EQU 18 APPLICATION NUMBER«, t00=0x0006, t01=0x011c}
0x0aa0…0acc Head {h00=0x0028, h01=0x0050, text=»BUFSIZ EQU 14 TEMPORARY BUFFER SIZE «, t00=0x0006, t01=0x0144}
0x0acc…0afe Head {h00=0x002e, h01=0x0050, text=»CONLEN EQU 0 LENGTH OF CONFIGURATION DATA «, t00=0x0006, t01=0x0170}
0x0afe…0b2e Head {h00=0x002c, h01=0x0050, text=»CONSTA EQU 2 START OF CONFIGURATION DATA«, t00=0x0007, t01=0x0012}
0x0b2e…0b5a Head {h00=0x0028, h01=0x0050, text=»DATEND EQU 34 END OF DDIV PROTOTYPE «, t00=0x0007, t01=0x0042}
0x0b5a…0b82 Head {h00=0x0024, h01=0x0050, text=»DYNSTA EQU 52 START OF DYNTAB:S «, t00=0x0007, t01=0x006e}
0x0b82…0bc0 Head {h00=0x003a, h01=0x0050, text=»FSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER «, t00=0x0007, t01=0x0096}
0x0bc0…0bee Head {h00=0x002a, h01=0x0050, text=»FSTPAG EQU 22 1ST FREE PAGE (PHYSICAL)«, t00=0x0007, t01=0x00d4}
0x0bee…0c1e Head {h00=0x002c, h01=0x0050, text=»FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER «, t00=0x0007, t01=0x0102}
0x0c1e…0c58 Head {h00=0x0036, h01=0x0050, text=»LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART«, t00=0x0007, t01=0x0132}
0x0c58…0c84 Head {h00=0x0028, h01=0x0050, text=»MAPLEN EQU 30 LENGTH OF AREA TO MAP «, t00=0x0007, t01=0x016c}
0x0c84…0cb2 Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU 36 2ND MMU TABLE WORK AREA «, t00=0x0008, t01=0x0008}
0x0cb2…0cde Head {h00=0x0028, h01=0x0050, text=»MMTO EQU 38 1:ST MMU TABLE WORK AREA«, t00=0x0008, t01=0x0036}
0x0cde…0d06 Head {h00=0x0024, h01=0x0050, text=»M:REL EQU 16 RELOCATION CONSTANT«, t00=0x0008, t01=0x0062}
0x0d06…0d36 Head {h00=0x002c, h01=0x0050, text=»SYSBUF EQU 28 START OF TEMPORARY BUFFER «, t00=0x0008, t01=0x008a}
0x0d36…0d62 Head {h00=0x0028, h01=0x0050, text=»SWBFSA EQU 4 SWB-FILE START ADDRESS «, t00=0x0008, t01=0x00ba}
0x0d62…0d8c Head {h00=0x0026, h01=0x0050, text=»SWBFSE EQU 8 SWB-FILE END ADDRESS «, t00=0x0008, t01=0x00e6}
0x0d8c…0db8 Head {h00=0x0028, h01=0x0050, text=»TTAB EQU 32 WORK AREA FOR MMU TABLE «, t00=0x0008, t01=0x0110}
0x0db8…0de6 Head {h00=0x002a, h01=0x0050, text=»TOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS«, t00=0x0008, t01=0x013c}
0x0de6…0e16 Head {h00=0x002c, h01=0x0050, text=»SWBFLG EQU 48 SWAPPABLE WORK BLOCK FLAG «, t00=0x0008, t01=0x016a}
0x0e16…0e3e Head {h00=0x0024, h01=0x0050, text=»COM01 EQU 40 COMMON WORK AREA 1 «, t00=0x0009, t01=0x000a}
0x0e3e…0e66 Head {h00=0x0024, h01=0x0050, text=»COM02 EQU 42 COMMON WORK AREA 2 «, t00=0x0009, t01=0x0032}
0x0e66…0e8e Head {h00=0x0024, h01=0x0050, text=»COM03 EQU 44 COMMON WORK AREA 3 «, t00=0x0009, t01=0x005a}
0x0e8e…0eb6 Head {h00=0x0024, h01=0x0050, text=»COM04 EQU 50 COMMON WORK AREA 4 «, t00=0x0009, t01=0x0082}
0x0eb6…0ee2 Head {h00=0x0028, h01=0x0050, text=»DCBLK EQU 54 START OF DC CONF. DATA «, t00=0x0009, t01=0x00aa}
0x0ee2…0ef0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00d6}
0x0ef0…0f18 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0009, t01=0x00e4}
0x0f18…0f40 Head {h00=0x0024, h01=0x0050, text=»* SCRATCH-PAD DISPLACEMENTS * «, t00=0x0009, t01=0x010c}
0x0f40…0f68 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0009, t01=0x0134}
0x0f68…0f9c Head {h00=0x0030, h01=0x002c, text=»SAVAPP EQU 0 SAVE AREA FOR APPLICATION TABLE«, t00=0x0009, t01=0x015c}
0x0f9c…0fca Head {h00=0x002a, h01=0x0026, text=»LIMUS EQU 12 SAVE AREA FOR UPPER LIMIT«, t00=0x0009, t01=0x0190}
0x0fca…0ff4 Head {h00=0x0026, h01=0x0050, text=»COMSTA EQU 14 START OF COMMON PART«, t00=0x000a, t01=0x002e}
0x0ff4…101a Head {h00=0x0022, h01=0x0050, text=»COMLEN EQU 16 LENGTH OF COMMON«, t00=0x000a, t01=0x0058}
0x101a…1024 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x007e}
0x1024…1038 Head {h00=0x0010, h01=0x000c, text=»* CONSTANTS«, t00=0x000a, t01=0x0088}
0x1038…1042 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x009c}
0x1042…104a Head {h00=0x0004, h01=0x0002, t00=0x000a, t01=0x00a6}
0x104a…1052 Head {h00=0x0004, h01=0x0002, t00=0x000a, t01=0x00ae}
0x1052…107c Head {h00=0x0026, h01=0x0021, text=»MMULEN EQU 32 LENGTH OF MMU TABLE «, t00=0x000a, t01=0x00b6}
0x107c…109c Head {h00=0x001c, h01=0x0018, text=»T:ATID EQU -4 TID IN T:A«, t00=0x000a, t01=0x00e0}
0x109c…10bc Head {h00=0x001c, h01=0x0018, text=»TTBTID EQU 2 TID IN TTAB«, t00=0x000a, t01=0x0100}
0x10bc…10ea Head {h00=0x002a, h01=0x0050, text=»APPLEN EQU 10 APPLICATION TABLE LENGTH«, t00=0x000a, t01=0x0120}
0x10ea…111a Head {h00=0x002c, h01=0x0050, text=»STKUSD EQU 12 DISPLACEMENT TO STACK USED«, t00=0x000a, t01=0x014e}
0x111a…114c Head {h00=0x002e, h01=0x0050, text=»PBSSIZ EQU 100 USER AREA SIZE EXCL. STACK «, t00=0x000a, t01=0x017e}
0x114c…115a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0020}
0x115a…118e Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x000b, t01=0x002e}
0x118e…11c0 Head {h00=0x002e, h01=0x0050, text=»* DISPLACEMENT IN APPLICATION TABLE *«, t00=0x000b, t01=0x0062}
0x11c0…11f2 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x000b, t01=0x0094}
0x11f2…11fa Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00c6}
0x11fa…120e Head {h00=0x0010, h01=0x0050, text=»INTPA EQU 0 «, t00=0x000b, t01=0x00ce}
0x120e…1222 Head {h00=0x0010, h01=0x0050, text=»INTPE EQU 2 «, t00=0x000b, t01=0x00e2}
0x1222…1236 Head {h00=0x0010, h01=0x0050, text=»STKSIZ EQU 4«, t00=0x000b, t01=0x00f6}
0x1236…124a Head {h00=0x0010, h01=0x0050, text=»I:EXIT EQU 6«, t00=0x000b, t01=0x010a}
0x124a…125e Head {h00=0x0010, h01=0x0050, text=»I:RSTE EQU 8«, t00=0x000b, t01=0x011e}
0x125e…1266 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0132}
0x1266…12b0 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000b, t01=0x013a}
0x12b0…12fa Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x000b, t01=0x0184}
0x12fa…1344 Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x000c, t01=0x003e}
0x1344…138e Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x000c, t01=0x0088}
0x138e…13d8 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x000c, t01=0x00d2}
0x13d8…13f6 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x000c, t01=0x011c}
0x13f6…1404 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x013a}
0x1404…1418 Head {h00=0x0010, h01=0x000c, text=»SYSLBA EQU *«, t00=0x000c, t01=0x0148}
0x1418…1422 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x015c}
0x1422…145a Head {h00=0x0034, h01=0x0030, text=»* CHECK IF THERE IS A BASIC APPLICATION PRESENT«, t00=0x000c, t01=0x0166}
0x145a…1464 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x000e}
0x1464…146c Head {h00=0x0004, h01=0x0002, t00=0x000d, t01=0x0018}
0x146c…1474 Head {h00=0x0004, h01=0x0002, t00=0x000d, t01=0x0020}
0x1474…14a8 Head {h00=0x0030, h01=0x002c, text=» LDKL A1,'BA' LOAD IDENTIFICATION CHARACTERS«, t00=0x000d, t01=0x0028}
0x14a8…14dc Head {h00=0x0030, h01=0x002b, text=» CM STKCOM+APPLNO CLEAR APPLICATION COUNTER «, t00=0x000d, t01=0x005c}
0x14dc…1508 Head {h00=0x0028, h01=0x0023, text=» CALL GETAPP ANY BASIC APPLICATION? «, t00=0x000d, t01=0x0090}
0x1508…1522 Head {h00=0x0016, h01=0x0012, text=» RF(NZ) SYA100 YES«, t00=0x000d, t01=0x00bc}
0x1522…1548 Head {h00=0x0022, h01=0x001d, text=» LDKL A1,LBAEND END OF SYSLBA «, t00=0x000d, t01=0x00d6}
0x1548…156c Head {h00=0x0020, h01=0x001c, text=» AD A1,STKCOM+M:REL RELOCATE«, t00=0x000d, t01=0x00fc}
0x156c…157c Head {h00=0x000c, h01=0x0007, text=» ABR A1 «, t00=0x000d, t01=0x0120}
0x157c…1590 Head {h00=0x0010, h01=0x000c, text=»SYA100 EQU *«, t00=0x000d, t01=0x0130}
0x1590…15b4 Head {h00=0x0020, h01=0x001c, text=» LDR A10,A1 SAVE ACB ADDRESS«, t00=0x000d, t01=0x0144}
0x15b4…15f2 Head {h00=0x003a, h01=0x0035, text=» LD A2,ACBLAC,A10 GET LOGICAL ADDRRESS TO COMMON PART «, t00=0x000d, t01=0x0168}
0x15f2…1608 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=0 «, t00=0x000e, t01=0x0016}
0x1608…162e Head {h00=0x0022, h01=0x001e, text=» LDR* A2,A2 GET APPTAB ADDRESS«, t00=0x000e, t01=0x002c}
0x162e…1662 Head {h00=0x0030, h01=0x002c, text=» LD A1,I:RSTE,A2 GET INTERPRETER ERROR ENTRY«, t00=0x000e, t01=0x0052}
0x1662…166e Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x000e, t01=0x0086}
0x166e…1684 Head {h00=0x0012, h01=0x000d, text=» IFF MMUPAG=0 «, t00=0x000e, t01=0x0092}
0x1684…16ac Head {h00=0x0024, h01=0x0050, text=» LDK A3,0 END OF LOGICAL MEMORY «, t00=0x000e, t01=0x00a8}
0x16ac…16dc Head {h00=0x002c, h01=0x0028, text=» SUR A3,A2 COMPUTE LENGTH OF COMMON PART«, t00=0x000e, t01=0x00d0}
0x16dc…1710 Head {h00=0x0030, h01=0x002b, text=» ADKL A3,/1000 INCLUDE ONE ENTRY FOR PAGING «, t00=0x000e, t01=0x0100}
0x1710…1748 Head {h00=0x0034, h01=0x0050, text=» ST A3,STKEND+COMLEN SAVE LENGTH OF COMMON PART «, t00=0x000e, t01=0x0134}
0x1748…1774 Head {h00=0x0028, h01=0x0023, text=» LD* A1,ACBMMC,A10 GET TTAB ADDRESS «, t00=0x000e, t01=0x016c}
0x1774…179c Head {h00=0x0024, h01=0x0020, text=» TL TTB:MT,A1 LOAD MMU REGISTERS«, t00=0x000f, t01=0x0008}
0x179c…17d0 Head {h00=0x0030, h01=0x002b, text=» ELR A2,A2 GET ADDRESS TO APPLICATION TABLE «, t00=0x000f, t01=0x0030}
0x17d0…1804 Head {h00=0x0030, h01=0x002c, text=» EL A1,I:RSTE,A2 GET INTERPRETER ERROR ENTRY«, t00=0x000f, t01=0x0064}
0x1804…1810 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x000f, t01=0x0098}
0x1810…1848 Head {h00=0x0034, h01=0x002f, text=» ST A1,ACBIOE,A10 STORE INTERPRETER ERROR ENTRY «, t00=0x000f, t01=0x00a4}
0x1848…1886 Head {h00=0x003a, h01=0x0036, text=» ST A2,ACBLAC,A10 STORE LOGICAL ADDRESS TO COMMON PART«, t00=0x000f, t01=0x00dc}
0x1886…18b6 Head {h00=0x002c, h01=0x0027, text=» SUK A2,10 RESERVE 5 WORDS FOR DEBUGGER «, t00=0x000f, t01=0x011a}
0x18b6…18ea Head {h00=0x0030, h01=0x002b, text=» ST A2,STKCOM+LSTADR STORE END OF FREE AREA «, t00=0x000f, t01=0x014a}
0x18ea…1920 Head {h00=0x0032, h01=0x0050, text=» ST A2,STKEND+COMSTA SAVE START OF COMMON PART«, t00=0x000f, t01=0x017e}
0x1920…192e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0010, t01=0x0024}
0x192e…1964 Head {h00=0x0032, h01=0x002e, text=» LDKL A1,PART2 GET ADDRESS TO PART 2 OF SYSLBA«, t00=0x0010, t01=0x0032}
0x1964…1988 Head {h00=0x0020, h01=0x001c, text=» AD A1,STKCOM+M:REL RELOCATE«, t00=0x0010, t01=0x0068}
0x1988…19b4 Head {h00=0x0028, h01=0x0024, text=» LD A7,SCTSFA GET START OF FREE AREA«, t00=0x0010, t01=0x008c}
0x19b4…19cc Head {h00=0x0014, h01=0x000f, text=» LDR A2,A7 SAVE «, t00=0x0010, t01=0x00b8}
0x19cc…19f4 Head {h00=0x0024, h01=0x001f, text=» SUR A2,A1 COMPUTE DISPLACEMENT «, t00=0x0010, t01=0x00d0}
0x19f4…1a30 Head {h00=0x0038, h01=0x0034, text=» ADS A2,STKCOM+M:REL COMPUTE NEW RELOCATION CONSTANT«, t00=0x0010, t01=0x00f8}
0x1a30…1a56 Head {h00=0x0022, h01=0x001d, text=» LDKL A2,INIEND END OF SYSINI «, t00=0x0010, t01=0x0134}
0x1a56…1a94 Head {h00=0x003a, h01=0x0035, text=» AD A2,STKCOM+CONLEN ADD LENGTH OF CONFIGURATION DATA «, t00=0x0010, t01=0x015a}
0x1a94…1ab8 Head {h00=0x0020, h01=0x001c, text=» AD A2,STKCOM+M:REL RELOCATE«, t00=0x0011, t01=0x0008}
0x1ab8…1ad0 Head {h00=0x0014, h01=0x000f, text=» LDR A5,A2 SAVE «, t00=0x0011, t01=0x002c}
0x1ad0…1ae6 Head {h00=0x0012, h01=0x000d, text=» IFF MMUPAG=0 «, t00=0x0011, t01=0x0044}
0x1ae6…1b1a Head {h00=0x0030, h01=0x0050, text=» ANKL A2,/F000 ISOLATE PHYSICAL PAGE ADDRESS«, t00=0x0011, t01=0x005a}
0x1b1a…1b2c Head {h00=0x000e, h01=0x0050, text=» SRL A2,2 «, t00=0x0011, t01=0x008e}
0x1b2c…1b4e Head {h00=0x001e, h01=0x0019, text=» ST A2,STKCOM+FSTPAG SAVE «, t00=0x0011, t01=0x00a0}
0x1b4e…1b84 Head {h00=0x0032, h01=0x002d, text=» LDKL A4,MMDDIV ADDRESS TO 2ND MMU WORK TABLE «, t00=0x0011, t01=0x00c2}
0x1b84…1ba0 Head {h00=0x0018, h01=0x0014, text=» ADR A4,A13 RELOCATE«, t00=0x0011, t01=0x00f8}
0x1ba0…1bce Head {h00=0x002a, h01=0x0026, text=» LDK A3,16 NUMBER OF MMU TABLE ENTRIES«, t00=0x0011, t01=0x0114}
0x1bce…1c02 Head {h00=0x0030, h01=0x002c, text=»SYA150 STR A2,A4 STORE PHYSICAL PAGE ADDRESS«, t00=0x0011, t01=0x0142}
0x1c02…1c28 Head {h00=0x0022, h01=0x001e, text=» ADK A4,2 UPDATE ENTRY POINTER«, t00=0x0011, t01=0x0176}
0x1c28…1c5e Head {h00=0x0032, h01=0x002d, text=» ADKL A2,/400 INCREMENT PHYSICAL PAGE ADDRESS «, t00=0x0012, t01=0x000c}
0x1c5e…1c82 Head {h00=0x0020, h01=0x001c, text=» SUK A3,1 MORE ENTRIES LEFT?«, t00=0x0012, t01=0x0042}
0x1c82…1c9c Head {h00=0x0016, h01=0x0012, text=» RB(NZ) SYA150 YES«, t00=0x0012, t01=0x0066}
0x1c9c…1caa Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0012, t01=0x0080}
0x1caa…1cb4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x008e}
0x1cb4…1cdc Head {h00=0x0024, h01=0x0020, text=»* SAVE MMU WORK TABLE ADDRESSES«, t00=0x0012, t01=0x0098}
0x1cdc…1ce6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x00c0}
0x1ce6…1cee Head {h00=0x0004, h01=0x0002, t00=0x0012, t01=0x00ca}
0x1cee…1cf6 Head {h00=0x0004, h01=0x0002, t00=0x0012, t01=0x00d2}
0x1cf6…1d20 Head {h00=0x0026, h01=0x0022, text=» ANKL A5,/FFF ISOLATE DISPLACEMENT«, t00=0x0012, t01=0x00da}
0x1d20…1d2c Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0012, t01=0x0104}
0x1d2c…1d60 Head {h00=0x0030, h01=0x002c, text=» ST A5,STKEND+LIMUS SAVE UPPER LIMIT ADDRESS«, t00=0x0012, t01=0x0110}
0x1d60…1d9c Head {h00=0x0038, h01=0x0033, text=» ST A5,STKCOM+FSTADR THIS ADDRESS IS USED IN MOVING «, t00=0x0012, t01=0x0144}
0x1d9c…1da6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0180}
0x1da6…1dce Head {h00=0x0024, h01=0x0020, text=»* MOVE CONFIGURATION PROGRAM(S)«, t00=0x0012, t01=0x018a}
0x1dce…1dd8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0022}
0x1dd8…1de0 Head {h00=0x0004, h01=0x0002, t00=0x0013, t01=0x002c}
0x1de0…1e02 Head {h00=0x001e, h01=0x0019, text=» LDR A2,A7 GET TO-ADDRESS «, t00=0x0013, t01=0x0034}
0x1e02…1e36 Head {h00=0x0030, h01=0x002c, text=» ADKL A7,START2 START OF EXECUTION IN PART 2«, t00=0x0013, t01=0x0056}
0x1e36…1e5c Head {h00=0x0022, h01=0x001d, text=» LDKL A3,INIEND END OF SYSINI «, t00=0x0013, t01=0x008a}
0x1e5c…1e8e Head {h00=0x002e, h01=0x0029, text=» SUKL A3,PART2 COMPUTE LENGTH OF PROGRAMS «, t00=0x0013, t01=0x00b0}
0x1e8e…1ec0 Head {h00=0x002e, h01=0x002a, text=» ABL STKMOV JUMP TO STACK-RESIDENT ROUTINE«, t00=0x0013, t01=0x00e2}
0x1ec0…1ece Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0013, t01=0x0114}
0x1ece…1ee2 Head {h00=0x0010, h01=0x000b, text=»PART2 EQU * «, t00=0x0013, t01=0x0122}
0x1ee2…1eea Head {h00=0x0004, h01=0x0002, t00=0x0013, t01=0x0136}
0x1eea…1ef2 Head {h00=0x0004, h01=0x0002, t00=0x0013, t01=0x013e}
0x1ef2…1efc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0146}
0x1efc…1f22 Head {h00=0x0022, h01=0x001d, text=»* PROCEDURE DESCRIPTOR BLOCK «, t00=0x0013, t01=0x0150}
0x1f22…1f2c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0176}
0x1f2c…1f34 Head {h00=0x0004, h01=0x0002, t00=0x0013, t01=0x0180}
0x1f34…1f3c Head {h00=0x0004, h01=0x0002, t00=0x0013, t01=0x0188}
0x1f3c…1f66 Head {h00=0x0026, h01=0x0050, text=»PROCDR DATA 'BASIC' PROCEDURE NAME«, t00=0x0013, t01=0x0190}
0x1f66…1f78 Head {h00=0x000e, h01=0x0009, text=» DATA 0 «, t00=0x0014, t01=0x002a}
0x1f78…1f88 Head {h00=0x000c, h01=0x0007, text=» DATA 6 «, t00=0x0014, t01=0x003c}
0x1f88…1f90 Head {h00=0x0004, h01=0x0002, t00=0x0014, t01=0x004c}
0x1f90…1f98 Head {h00=0x0004, h01=0x0002, t00=0x0014, t01=0x0054}
0x1f98…1fa2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x005c}
0x1fa2…1fc8 Head {h00=0x0022, h01=0x001d, text=»* SUBROUTINES USED IN PART 2 «, t00=0x0014, t01=0x0066}
0x1fc8…1fd2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x008c}
0x1fd2…1fda Head {h00=0x0004, h01=0x0002, t00=0x0014, t01=0x0096}
0x1fda…1fe2 Head {h00=0x0004, h01=0x0002, t00=0x0014, t01=0x009e}
0x1fe2…1ff8 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0014, t01=0x00a6}
0x1ff8…2006 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00bc}
0x2006…204c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0014, t01=0x00ca}
0x204c…2092 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0014, t01=0x0110}
0x2092…20d8 Head {h00=0x0042, h01=0x0050, text=»* INUEMT - INIT NOT USED ENTRIES IN MMU TABLE * «, t00=0x0014, t01=0x0156}
0x20d8…211e Head {h00=0x0042, h01=0x0050, text=»* =========================================== * «, t00=0x0015, t01=0x000c}
0x211e…2164 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0052}
0x2164…21aa Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: SYSLDB * «, t00=0x0015, t01=0x0098}
0x21aa…21f0 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0015, t01=0x00de}
0x21f0…2236 Head {h00=0x0042, h01=0x0050, text=»* ENTRY: A3 - MMU TABLE ADDRESS * «, t00=0x0015, t01=0x0124}
0x2236…227c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0015, t01=0x016a}
0x227c…22c2 Head {h00=0x0042, h01=0x0050, text=»* EXIT: * «, t00=0x0016, t01=0x0020}
0x22c2…2308 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0016, t01=0x0066}
0x2308…234e Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A9 * «, t00=0x0016, t01=0x00ac}
0x234e…2394 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0016, t01=0x00f2}
0x2394…23da Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0016, t01=0x0138}
0x23da…2420 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0016, t01=0x017e}
0x2420…2466 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0017, t01=0x0034}
0x2466…247a Head {h00=0x0010, h01=0x0050, text=»INUEMT EQU *«, t00=0x0017, t01=0x007a}
0x247a…24a2 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A3 GET MMU TABLE ADDRESS«, t00=0x0017, t01=0x008e}
0x24a2…24c6 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A2 GET TTAB ADDRESS «, t00=0x0017, t01=0x00b6}
0x24c6…24ee Head {h00=0x0024, h01=0x0020, text=» ADKL A9,MMULEN END OF MMU TABLE«, t00=0x0017, t01=0x00da}
0x24ee…2500 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0017, t01=0x0102}
0x2500…2522 Head {h00=0x001e, h01=0x0050, text=»INUE10 ADK A2,2 NEXT ENTRY«, t00=0x0017, t01=0x0114}
0x2522…2546 Head {h00=0x0020, h01=0x0050, text=» CWR A2,A9 END OF MMU TABLE?«, t00=0x0017, t01=0x0136}
0x2546…2560 Head {h00=0x0016, h01=0x0050, text=» RF(E) INUE99 YES!«, t00=0x0017, t01=0x015a}
0x2560…2592 Head {h00=0x002e, h01=0x0050, text=» LDR* A1,A2 GET CONTENT IN MMU TABLE ENTRY«, t00=0x0017, t01=0x0174}
0x2592…25c4 Head {h00=0x002e, h01=0x0050, text=» RB(NZ) INUE10 NOT UNUSED MMU TABLE ENTRY!«, t00=0x0018, t01=0x0016}
0x25c4…25f4 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,/FC00 VALUE FOR UNUSED ENTRIES «, t00=0x0018, t01=0x0048}
0x25f4…261a Head {h00=0x0022, h01=0x0050, text=» STR A1,A2 STORE IN MMU TABLE «, t00=0x0018, t01=0x0078}
0x261a…262c Head {h00=0x000e, h01=0x0050, text=» RB INUE10«, t00=0x0018, t01=0x009e}
0x262c…264a Head {h00=0x001a, h01=0x0050, text=»INUE99 RTN A14 RETURN «, t00=0x0018, t01=0x00b0}
0x264a…2656 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00ce}
0x2656…2664 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00da}
0x2664…26a0 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0018, t01=0x00e8}
0x26a0…26dc Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0018, t01=0x0124}
0x26dc…2718 Head {h00=0x0038, h01=0x0050, text=»* B:UWA - BUILD USER WORK AREA * «, t00=0x0018, t01=0x0160}
0x2718…2754 Head {h00=0x0038, h01=0x0050, text=»* ============================ * «, t00=0x0019, t01=0x000c}
0x2754…2790 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0019, t01=0x0048}
0x2790…27cc Head {h00=0x0038, h01=0x0050, text=»* REFERENCED IN: SYSLDB PART 2 * «, t00=0x0019, t01=0x0084}
0x27cc…2808 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0019, t01=0x00c0}
0x2808…2844 Head {h00=0x0038, h01=0x0050, text=»* ENTRY: A5 - TTAB ADDRESS * «, t00=0x0019, t01=0x00fc}
0x2844…2880 Head {h00=0x0038, h01=0x0050, text=»* LSTADR - LAST ADDRESS IN USER AREA * «, t00=0x0019, t01=0x0138}
0x2880…28bc Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0019, t01=0x0174}
0x28bc…28f8 Head {h00=0x0038, h01=0x0050, text=»* EXIT: * «, t00=0x001a, t01=0x0020}
0x28f8…2934 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x001a, t01=0x005c}
0x2934…2970 Head {h00=0x0038, h01=0x0050, text=»* WORK REGISTERS: A1-A4,A10,A12 * «, t00=0x001a, t01=0x0098}
0x2970…29ac Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x001a, t01=0x00d4}
0x29ac…29e8 Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x001a, t01=0x0110}
0x29e8…2a24 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x001a, t01=0x014c}
0x2a24…2a60 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x001a, t01=0x0188}
0x2a60…2a74 Head {h00=0x0010, h01=0x0050, text=»B:UWA EQU * «, t00=0x001b, t01=0x0034}
0x2a74…2a7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0048}
0x2a7e…2aa6 Head {h00=0x0024, h01=0x0050, text=»* ALLOCATE MEMORY FOR USER AREA«, t00=0x001b, t01=0x0052}
0x2aa6…2ab0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x007a}
0x2ab0…2adc Head {h00=0x0028, h01=0x0050, text=» LD A3,STKEND+STKSIZ GET STACK SIZE «, t00=0x001b, t01=0x0084}
0x2adc…2b0a Head {h00=0x002a, h01=0x0050, text=» ADK A3,PBSSIZ ADD SIZE OF FIXED PART «, t00=0x001b, t01=0x00b0}
0x2b0a…2b40 Head {h00=0x0032, h01=0x0050, text=» LD A2,STKCOM+LSTADR GET LAST LOGICAL ADDRESS «, t00=0x001b, t01=0x00de}
0x2b40…2b58 Head {h00=0x0014, h01=0x0050, text=» LDR A12,A3 SAVE«, t00=0x001b, t01=0x0114}
0x2b58…2b8a Head {h00=0x002e, h01=0x0050, text=» ST A3,STKCOM+MAPLEN LENGTH OF AREA TO MAP«, t00=0x001b, t01=0x012c}
0x2b8a…2bac Head {h00=0x001e, h01=0x0050, text=» CALL MOVING ALLOCATE AREA«, t00=0x001b, t01=0x015e}
0x2bac…2bd0 Head {h00=0x0020, h01=0x0050, text=» ADR A12,A2 END OF USER AREA«, t00=0x001b, t01=0x0180}
0x2bd0…2be6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001c, t01=0x0014}
0x2be6…2c14 Head {h00=0x002a, h01=0x0050, text=» TL* MMTO+STKCOM RELOAD MMU REGISTERS «, t00=0x001c, t01=0x002a}
0x2c14…2c36 Head {h00=0x001e, h01=0x0050, text=» SUR A1,A1 CLEAR REGISTER «, t00=0x001c, t01=0x0058}
0x2c36…2c42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x007a}
0x2c42…2c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0086}
0x2c4c…2c6c Head {h00=0x001c, h01=0x0050, text=»* CLEAR USER WORK AREA «, t00=0x001c, t01=0x0090}
0x2c6c…2c76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b0}
0x2c76…2c98 Head {h00=0x001e, h01=0x0050, text=»* A2 - START OF USER AREA«, t00=0x001c, t01=0x00ba}
0x2c98…2cba Head {h00=0x001e, h01=0x0050, text=»* A12 - END OF USER AREA «, t00=0x001c, t01=0x00dc}
0x2cba…2cc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00fe}
0x2cc4…2cec Head {h00=0x0024, h01=0x0050, text=» LDR A4,A12 GET END OF USER AREA«, t00=0x001c, t01=0x0108}
0x2cec…2d20 Head {h00=0x0030, h01=0x0050, text=»CLRNXT SUK A4,2 DECREMENT USER AREA POINTER «, t00=0x001c, t01=0x0130}
0x2d20…2d36 Head {h00=0x0012, h01=0x0050, text=» IFF MMUPAG=1 «, t00=0x001c, t01=0x0164}
0x2d36…2d58 Head {h00=0x001e, h01=0x0050, text=» CMR A4 CLEAR MEMORY WORD «, t00=0x001c, t01=0x017a}
0x2d58…2d64 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x000c}
0x2d64…2d7a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001d, t01=0x0018}
0x2d7a…2d9e Head {h00=0x0020, h01=0x0050, text=» ESR A1,A4 CLEAR MEMORY WORD«, t00=0x001d, t01=0x002e}
0x2d9e…2daa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0052}
0x2daa…2dd0 Head {h00=0x0022, h01=0x0050, text=» CWR A4,A2 ALL WORDS CLEARED? «, t00=0x001d, t01=0x005e}
0x2dd0…2dea Head {h00=0x0016, h01=0x0050, text=» RB(NE) CLRNXT NO!«, t00=0x001d, t01=0x0084}
0x2dea…2df8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x009e}
0x2df8…2e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ac}
0x2e02…2e32 Head {h00=0x002c, h01=0x0050, text=»* INITIALIZATION OF USER AREA AND TTAB «, t00=0x001d, t01=0x00b6}
0x2e32…2e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00e6}
0x2e3c…2e58 Head {h00=0x0018, h01=0x0050, text=»* A5 - TTAB ADDRESS«, t00=0x001d, t01=0x00f0}
0x2e58…2e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x010c}
0x2e62…2ea0 Head {h00=0x003a, h01=0x0050, text=» ST A4,TTB:CB,A5 STORE ADDRESS TO CURRENT SEGMENT BASE«, t00=0x001d, t01=0x0116}
0x2ea0…2ec4 Head {h00=0x0020, h01=0x0050, text=» LD A1,TTBTID,A5 GET TASK ID«, t00=0x001d, t01=0x0154}
0x2ec4…2eec Head {h00=0x0024, h01=0x0050, text=» ADK A4,STKUSD STACK USED ENTRY «, t00=0x001d, t01=0x0178}
0x2eec…2f18 Head {h00=0x0028, h01=0x0050, text=» ST A4,TTB:SA+26,A5 SAVE IN REG A13 «, t00=0x001e, t01=0x0010}
0x2f18…2f44 Head {h00=0x0028, h01=0x0050, text=» LD A3,STKEND+STKSIZ GET STACK SIZE «, t00=0x001e, t01=0x003c}
0x2f44…2f72 Head {h00=0x002a, h01=0x0050, text=» SRA A3,1 CONVERT FROM BYTES TO WORDS «, t00=0x001e, t01=0x0068}
0x2f72…2f88 Head {h00=0x0012, h01=0x0050, text=» IFF MMUPAG=1 «, t00=0x001e, t01=0x0096}
0x2f88…2fae Head {h00=0x0022, h01=0x0050, text=» ST A1,T:ATID,A4 STORE TASK ID«, t00=0x001e, t01=0x00ac}
0x2fae…2fd2 Head {h00=0x0020, h01=0x0050, text=» ST A3,2,A4 STORE STACK SIZE«, t00=0x001e, t01=0x00d2}
0x2fd2…300a Head {h00=0x0034, h01=0x0050, text=» LD A1,STKEND+INTPE GET INTERPRETER ERROR ENTRY «, t00=0x001e, t01=0x00f6}
0x300a…302a Head {h00=0x001c, h01=0x0050, text=» ST A1,T:ATID-2,A4 STORE«, t00=0x001e, t01=0x012e}
0x302a…3046 Head {h00=0x0018, h01=0x0050, text=» LDK A1,8 STACK USED«, t00=0x001e, t01=0x014e}
0x3046…305e Head {h00=0x0014, h01=0x0050, text=» STR A1,A4 STORE«, t00=0x001e, t01=0x016a}
0x305e…307a Head {h00=0x0018, h01=0x0050, text=» LDKL A1,/2020 SPACE«, t00=0x001e, t01=0x0182}
0x307a…309e Head {h00=0x0020, h01=0x0050, text=» ST A1,4,A4 BLANK 1:ST WORD «, t00=0x001f, t01=0x000e}
0x309e…30c2 Head {h00=0x0020, h01=0x0050, text=» ST A1,6,A4 BLANK 2:ND WORD «, t00=0x001f, t01=0x0032}
0x30c2…30e6 Head {h00=0x0020, h01=0x0050, text=» ST A1,8,A4 BLANK 3:RD WORD «, t00=0x001f, t01=0x0056}
0x30e6…3114 Head {h00=0x002a, h01=0x0050, text=» ADK A4,10 CURRENT PROC. BLOCK POINTER«, t00=0x001f, t01=0x007a}
0x3114…313c Head {h00=0x0024, h01=0x0050, text=» ST A4,TTB:SA+20,A5 SAVE IN TTAB«, t00=0x001f, t01=0x00a8}
0x313c…3164 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A12 GET END OF USER AREA«, t00=0x001f, t01=0x00d0}
0x3164…3190 Head {h00=0x0028, h01=0x0050, text=» SUK A1,18 STACK POINTER START VALUE«, t00=0x001f, t01=0x00f8}
0x3190…31c0 Head {h00=0x002c, h01=0x0050, text=» STR A1,A4 SAVE IN CURR. PROC. BLOCK PTR«, t00=0x001f, t01=0x0124}
0x31c0…31e6 Head {h00=0x0022, h01=0x0050, text=» ST A1,2,A4 SAVE IN DISPLAY 0 «, t00=0x001f, t01=0x0154}
0x31e6…320c Head {h00=0x0022, h01=0x0050, text=» ADK A4,2 POINTER TO DISPLAY 0«, t00=0x001f, t01=0x017a}
0x320c…322e Head {h00=0x001e, h01=0x0050, text=» ST A4,8,A1 SAVE IN STACK «, t00=0x0020, t01=0x0010}
0x322e…3264 Head {h00=0x0032, h01=0x0050, text=» ST A1,TTB:SA+28,A5 SAVE STACK POINTER IN TTAB«, t00=0x0020, t01=0x0032}
0x3264…32a4 Head {h00=0x003c, h01=0x0050, text=» LD A1,STKEND+I:EXIT GET ADDRESS TO TERMINATING PROGRAM «, t00=0x0020, t01=0x0068}
0x32a4…32cc Head {h00=0x0024, h01=0x0050, text=» ST A1,-2,A12 SAVE LAST IN STACK«, t00=0x0020, t01=0x00a8}
0x32cc…3300 Head {h00=0x0030, h01=0x0050, text=» ST A1,40,A4 ADDRESS TO TERMINATING PROGRAM «, t00=0x0020, t01=0x00d0}
0x3300…3324 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A12 END OF USER AREA«, t00=0x0020, t01=0x0104}
0x3324…334c Head {h00=0x0024, h01=0x0050, text=» SUK A1,2 LAST WORD IN USER AREA«, t00=0x0020, t01=0x0128}
0x334c…337e Head {h00=0x002e, h01=0x0050, text=» ST A1,38,A4 ADDRESS(STACK)+2*(STACK-SIZE)«, t00=0x0020, t01=0x0150}
0x337e…3398 Head {h00=0x0016, h01=0x0050, text=» LDKL A1,/F0C0 PSW«, t00=0x0020, t01=0x0182}
0x3398…33bc Head {h00=0x0020, h01=0x0050, text=» ST A1,-4,A12 STORE IN STACK«, t00=0x0021, t01=0x000c}
0x33bc…33f6 Head {h00=0x0036, h01=0x0050, text=» LD A1,ACBLAC,A10 ADDRESS TO PROCEDURE DESCRIPTOR «, t00=0x0021, t01=0x0030}
0x33f6…341a Head {h00=0x0020, h01=0x0050, text=» ST A1,-6,A12 STORE IN STACK«, t00=0x0021, t01=0x006a}
0x341a…3426 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x008e}
0x3426…343c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x009a}
0x343c…3462 Head {h00=0x0022, h01=0x0050, text=» ES A1,T:ATID,A4 STORE TASK ID«, t00=0x0021, t01=0x00b0}
0x3462…3486 Head {h00=0x0020, h01=0x0050, text=» ES A3,2,A4 STORE STACK SIZE«, t00=0x0021, t01=0x00d6}
0x3486…34be Head {h00=0x0034, h01=0x0050, text=» LD A1,STKEND+INTPE GET INTERPRETER ERROR ENTRY «, t00=0x0021, t01=0x00fa}
0x34be…34de Head {h00=0x001c, h01=0x0050, text=» ES A1,T:ATID-2,A4 STORE«, t00=0x0021, t01=0x0132}
0x34de…34fa Head {h00=0x0018, h01=0x0050, text=» LDK A1,8 STACK USED«, t00=0x0021, t01=0x0152}
0x34fa…3512 Head {h00=0x0014, h01=0x0050, text=» ESR A1,A4 STORE«, t00=0x0021, t01=0x016e}
0x3512…352e Head {h00=0x0018, h01=0x0050, text=» LDKL A1,/2020 SPACE«, t00=0x0021, t01=0x0186}
0x352e…3552 Head {h00=0x0020, h01=0x0050, text=» ES A1,4,A4 BLANK 1:ST WORD «, t00=0x0022, t01=0x0012}
0x3552…3576 Head {h00=0x0020, h01=0x0050, text=» ES A1,6,A4 BLANK 2:ND WORD «, t00=0x0022, t01=0x0036}
0x3576…359a Head {h00=0x0020, h01=0x0050, text=» ES A1,8,A4 BLANK 3:RD WORD «, t00=0x0022, t01=0x005a}
0x359a…35c8 Head {h00=0x002a, h01=0x0050, text=» ADK A4,10 CURRENT PROC. BLOCK POINTER«, t00=0x0022, t01=0x007e}
0x35c8…35f0 Head {h00=0x0024, h01=0x0050, text=» ST A4,TTB:SA+20,A5 SAVE IN TTAB«, t00=0x0022, t01=0x00ac}
0x35f0…3618 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A12 GET END OF USER AREA«, t00=0x0022, t01=0x00d4}
0x3618…364e Head {h00=0x0032, h01=0x0050, text=» SUK A1,18 STACK POINTER AT APPLICATION START «, t00=0x0022, t01=0x00fc}
0x364e…367e Head {h00=0x002c, h01=0x0050, text=» ESR A1,A4 SAVE IN CURR. PROC. BLOCK PTR«, t00=0x0022, t01=0x0132}
0x367e…36a4 Head {h00=0x0022, h01=0x0050, text=» ES A1,2,A4 SAVE IN DISPLAY 0 «, t00=0x0022, t01=0x0162}
0x36a4…36ca Head {h00=0x0022, h01=0x0050, text=» ADK A4,2 POINTER TO DISPLAY 0«, t00=0x0022, t01=0x0188}
0x36ca…36ec Head {h00=0x001e, h01=0x0050, text=» ES A4,8,A1 SAVE IN STACK «, t00=0x0023, t01=0x001e}
0x36ec…371a Head {h00=0x002a, h01=0x0050, text=» ST A1,TTB:SA+28,A5 SAVE STACK POINTER«, t00=0x0023, t01=0x0040}
0x371a…3752 Head {h00=0x0034, h01=0x0050, text=» LD A1,STKEND+I:EXIT GET ADDR. TO TERM. PROGRAM «, t00=0x0023, t01=0x006e}
0x3752…377a Head {h00=0x0024, h01=0x0050, text=» ES A1,-2,A12 SAVE LAST IN STACK«, t00=0x0023, t01=0x00a6}
0x377a…37aa Head {h00=0x002c, h01=0x0050, text=» ES A1,40,A4 ADDRESS TO TERMINATING CODE«, t00=0x0023, t01=0x00ce}
0x37aa…37d2 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A12 GET END OF USER AREA«, t00=0x0023, t01=0x00fe}
0x37d2…37fa Head {h00=0x0024, h01=0x0050, text=» SUK A1,2 LAST WORD IN USER AREA«, t00=0x0023, t01=0x0126}
0x37fa…382c Head {h00=0x002e, h01=0x0050, text=» ES A1,38,A4 ADDRESS(STACK)+2*(STACK-SIZE)«, t00=0x0023, t01=0x014e}
0x382c…3846 Head {h00=0x0016, h01=0x0050, text=» LDKL A1,/F0C0 PSW«, t00=0x0023, t01=0x0180}
0x3846…386a Head {h00=0x0020, h01=0x0050, text=» ES A1,-4,A12 STORE IN STACK«, t00=0x0024, t01=0x000a}
0x386a…38a4 Head {h00=0x0036, h01=0x0050, text=» LD A1,ACBLAC,A10 ADDRESS TO PROCEDURE DESCRIPTOR «, t00=0x0024, t01=0x002e}
0x38a4…38c8 Head {h00=0x0020, h01=0x0050, text=» ES A1,-6,A12 STORE IN STACK«, t00=0x0024, t01=0x0068}
0x38c8…38d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x008c}
0x38d4…38e4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x0098}
0x38e4…38f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x00a8}
0x38f2…3934 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0024, t01=0x00b6}
0x3934…3976 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0024, t01=0x00f8}
0x3976…39b8 Head {h00=0x003e, h01=0x0050, text=»* Q:USTK - QUEUE USER TASK * «, t00=0x0024, t01=0x013a}
0x39b8…39fa Head {h00=0x003e, h01=0x0050, text=»* ======================== * «, t00=0x0024, t01=0x017c}
0x39fa…3a3c Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0025, t01=0x002e}
0x3a3c…3a7e Head {h00=0x003e, h01=0x0050, text=»* REFERENCED IN: SYSLDB * «, t00=0x0025, t01=0x0070}
0x3a7e…3ac0 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0025, t01=0x00b2}
0x3ac0…3b02 Head {h00=0x003e, h01=0x0050, text=»* ENTRY: A5 - TTAB ADDRESS * «, t00=0x0025, t01=0x00f4}
0x3b02…3b44 Head {h00=0x003e, h01=0x0050, text=»* A2 - LOGICAL ADDRESS TO USER AREA * «, t00=0x0025, t01=0x0136}
0x3b44…3b86 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0178}
0x3b86…3bc8 Head {h00=0x003e, h01=0x0050, text=»* EXIT: * «, t00=0x0026, t01=0x002a}
0x3bc8…3c0a Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0026, t01=0x006c}
0x3c0a…3c4c Head {h00=0x003e, h01=0x0050, text=»* WORK REGISTERS: A1,A3 * «, t00=0x0026, t01=0x00ae}
0x3c4c…3c8e Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0026, t01=0x00f0}
0x3c8e…3cd0 Head {h00=0x003e, h01=0x0050, text=»* SUBROUTINES: ACTOT * «, t00=0x0026, t01=0x0132}
0x3cd0…3d12 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0026, t01=0x0174}
0x3d12…3d54 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0027, t01=0x0026}
0x3d54…3d84 Head {h00=0x002c, h01=0x0050, text=»Q:USTK LDKL A3,QRTN CONTINUATION ADDRESS«, t00=0x0027, t01=0x0068}
0x3d84…3da8 Head {h00=0x0020, h01=0x0050, text=» AD A3,STKCOM+M:REL RELOCATE«, t00=0x0027, t01=0x0098}
0x3da8…3dc2 Head {h00=0x0016, h01=0x0050, text=» STR A3,A15 STORE «, t00=0x0027, t01=0x00bc}
0x3dc2…3dec Head {h00=0x0026, h01=0x0050, text=» LDKL A3,/00C0 SET LEVEL & ENABLE «, t00=0x0027, t01=0x00d6}
0x3dec…3e0a Head {h00=0x001a, h01=0x0050, text=» STR A3,A15 STORE PSW «, t00=0x0027, t01=0x0100}
0x3e0a…3e30 Head {h00=0x0022, h01=0x0050, text=» CF A15,SAVE8 SAVE 8 REGISTERS«, t00=0x0027, t01=0x011e}
0x3e30…3e60 Head {h00=0x002c, h01=0x0050, text=» LDR A1,A2 POINTER TO START OF USER AREA«, t00=0x0027, t01=0x0144}
0x3e60…3e9a Head {h00=0x0036, h01=0x0050, text=» LD A2,STKEND+INTPA GET INTERPRETER START ADDRESS «, t00=0x0027, t01=0x0174}
0x3e9a…3eba Head {h00=0x001c, h01=0x0050, text=» LDK A3,0 SEGMENT NUMBER«, t00=0x0028, t01=0x001e}
0x3eba…3eda Head {h00=0x001c, h01=0x0050, text=» CF A15,ACTOT QUEUE TASK«, t00=0x0028, t01=0x003e}
0x3eda…3f00 Head {h00=0x0022, h01=0x0050, text=» ABL RETUR8 RELOAD 8 REGISTERS«, t00=0x0028, t01=0x005e}
0x3f00…3f12 Head {h00=0x000e, h01=0x0050, text=»QRTN EQU *«, t00=0x0028, t01=0x0084}
0x3f12…3f22 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x0096}
0x3f22…3f30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x00a6}
0x3f30…3f4a Head {h00=0x0016, h01=0x0012, text=»START2 EQU *-PART2«, t00=0x0028, t01=0x00b4}
0x3f4a…3f52 Head {h00=0x0004, h01=0x0002, t00=0x0028, t01=0x00ce}
0x3f52…3f5a Head {h00=0x0004, h01=0x0002, t00=0x0028, t01=0x00d6}
0x3f5a…3f64 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0028, t01=0x00de}
0x3f64…3f86 Head {h00=0x001e, h01=0x001a, text=»* MOVE CONFIGURATION DATA«, t00=0x0028, t01=0x00e8}
0x3f86…3f90 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0028, t01=0x010a}
0x3f90…3fcc Head {h00=0x0038, h01=0x0034, text=» LD A1,STKCOM+CONSTA GET START OF CONFIGURATION DATA«, t00=0x0028, t01=0x0114}
0x3fcc…4004 Head {h00=0x0034, h01=0x002f, text=» LDKL A7,SYA200 CONTINUATION ADDRESS AFTER MOVE «, t00=0x0028, t01=0x0150}
0x4004…4028 Head {h00=0x0020, h01=0x001c, text=» AD A7,STKCOM+M:REL RELOCATE«, t00=0x0028, t01=0x0188}
0x4028…4066 Head {h00=0x003a, h01=0x0035, text=» LD A3,STKCOM+CONLEN GET LENGTH OF CONFIGURATION DATA «, t00=0x0029, t01=0x001c}
0x4066…4098 Head {h00=0x002e, h01=0x002a, text=» ABL STKMOV JUMP TO STACK-RESIDENT ROUTINE«, t00=0x0029, t01=0x005a}
0x4098…40ac Head {h00=0x0010, h01=0x000c, text=»SYA200 EQU *«, t00=0x0029, t01=0x008c}
0x40ac…40b4 Head {h00=0x0004, h01=0x0002, t00=0x0029, t01=0x00a0}
0x40b4…40bc Head {h00=0x0004, h01=0x0002, t00=0x0029, t01=0x00a8}
0x40bc…40c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0029, t01=0x00b0}
0x40c6…40f4 Head {h00=0x002a, h01=0x0025, text=»* LOAD NEW RELOCATION AND STACK BASE «, t00=0x0029, t01=0x00ba}
0x40f4…40fe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0029, t01=0x00e8}
0x40fe…4106 Head {h00=0x0004, h01=0x0002, t00=0x0029, t01=0x00f2}
0x4106…410e Head {h00=0x0004, h01=0x0002, t00=0x0029, t01=0x00fa}
0x410e…4134 Head {h00=0x0022, h01=0x001e, text=» LDR A8,P TEMPORARY STACK BASE«, t00=0x0029, t01=0x0102}
0x4134…4168 Head {h00=0x0030, h01=0x002c, text=» LDKL A5,REL+2 ADDRESS TO RELOCATION ROUTINE«, t00=0x0029, t01=0x0128}
0x4168…418c Head {h00=0x0020, h01=0x001c, text=» AD A5,STKCOM+M:REL RELOCATE«, t00=0x0029, t01=0x015c}
0x418c…41b6 Head {h00=0x0026, h01=0x0022, text=» CFR A8,A5 CALL RELOCATION ROUTINE«, t00=0x0029, t01=0x0180}
0x41b6…41e0 Head {h00=0x0026, h01=0x0022, text=» LD A1,ACBLAC,A10 GET FROM-ADDRESS«, t00=0x002a, t01=0x001a}
0x41e0…4218 Head {h00=0x0034, h01=0x002f, text=» LDKL A2,STKEND+SAVAPP ADDRESS APPTAB SAVE AREA «, t00=0x002a, t01=0x0044}
0x4218…4244 Head {h00=0x0028, h01=0x0023, text=» LDK A3,APPLEN GET LENGTH OF APPTAB «, t00=0x002a, t01=0x007c}
0x4244…425a Head {h00=0x0012, h01=0x000d, text=» IFF MMUPAG=1 «, t00=0x002a, t01=0x00a8}
0x425a…4278 Head {h00=0x001a, h01=0x0016, text=» CALL MOVE MOVE APPTAB«, t00=0x002a, t01=0x00be}
0x4278…429a Head {h00=0x001e, h01=0x0019, text=» LDR A2,A1 GET TO-ADDRESS «, t00=0x002a, t01=0x00dc}
0x429a…42cc Head {h00=0x002e, h01=0x0029, text=» LDK A3,APPLEN GET LENGTH OF PROC. DESCR. «, t00=0x002a, t01=0x00fe}
0x42cc…42f4 Head {h00=0x0024, h01=0x0020, text=» LDKL A1,PROCDR GET FROM-ADDRESS«, t00=0x002a, t01=0x0130}
0x42f4…4318 Head {h00=0x0020, h01=0x001c, text=» AD A1,STKCOM+M:REL RELOCATE«, t00=0x002a, t01=0x0158}
0x4318…4344 Head {h00=0x0028, h01=0x0024, text=» CALL MOVE MOVE PROCEDURE DESCRIPTOR«, t00=0x002a, t01=0x017c}
0x4344…4350 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x002b, t01=0x0018}
0x4350…4366 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x002b, t01=0x0024}
0x4366…438e Head {h00=0x0024, h01=0x001f, text=» MVUS A3 MOVE APPLICATION TABLE «, t00=0x002b, t01=0x003a}
0x438e…43b0 Head {h00=0x001e, h01=0x0019, text=» LDR A2,A1 GET TO-ADDRESS «, t00=0x002b, t01=0x0062}
0x43b0…43e2 Head {h00=0x002e, h01=0x0029, text=» LDK A3,APPLEN GET LENGTH OF PROC. DESCR. «, t00=0x002b, t01=0x0084}
0x43e2…4408 Head {h00=0x0022, h01=0x001d, text=» SUR A2,A3 COMPUTE TO-ADDRESS «, t00=0x002b, t01=0x00b6}
0x4408…4430 Head {h00=0x0024, h01=0x0020, text=» LDKL A1,PROCDR GET FROM-ADDRESS«, t00=0x002b, t01=0x00dc}
0x4430…4454 Head {h00=0x0020, h01=0x001c, text=» AD A1,STKCOM+M:REL RELOCATE«, t00=0x002b, t01=0x0104}
0x4454…447e Head {h00=0x0026, h01=0x0022, text=» MVSU A3 MOVE PROCEDURE DESCRIPTOR«, t00=0x002b, t01=0x0128}
0x447e…448c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x002b, t01=0x0152}
0x448c…4496 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002b, t01=0x0160}
0x4496…44de Head {h00=0x0044, h01=0x003f, text=»* FIND LAST USED MMU TABLE ENTRY AND GET PHYSICAL PAGE ADDRESS «, t00=0x002b, t01=0x016a}
0x44de…44e8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002c, t01=0x0022}
0x44e8…44f0 Head {h00=0x0004, h01=0x0002, t00=0x002c, t01=0x002c}
0x44f0…451a Head {h00=0x0026, h01=0x0022, text=» LDKL A3,MMTAB DISPL. TO MMU TABLE«, t00=0x002c, t01=0x0034}
0x451a…453e Head {h00=0x0020, h01=0x001b, text=» ADR A3,A13 RELOCATION BASE «, t00=0x002c, t01=0x005e}
0x453e…4576 Head {h00=0x0034, h01=0x002f, text=» CALL INUEMT INIT NOT USED ENTRIES IN MMU TABLE «, t00=0x002c, t01=0x0082}
0x4576…45a6 Head {h00=0x002c, h01=0x0027, text=» CALL MMENT FIND FIRST UNUSED MMU ENTRY «, t00=0x002c, t01=0x00ba}
0x45a6…45de Head {h00=0x0034, h01=0x0050, text=» ST A1,STKCOM+FYSPAG SAVE PHYSICAL PAGE ADDRESS «, t00=0x002c, t01=0x00ea}
0x45de…460c Head {h00=0x002a, h01=0x0050, text=» LDKL A6,MMTAB GET DISPL. TO MMU TABLE«, t00=0x002c, t01=0x0122}
0x460c…4636 Head {h00=0x0026, h01=0x0050, text=» ADR A6,A13 ADD RELOCATION POINTER«, t00=0x002c, t01=0x0150}
0x4636…466c Head {h00=0x0032, h01=0x0050, text=» ST A6,STKCOM+MMFROM SAVE ADDRESS TO MMU TABLE«, t00=0x002c, t01=0x017a}
0x466c…468e Head {h00=0x001e, h01=0x0050, text=» TLR A6 LOAD MMU REGISTERS«, t00=0x002d, t01=0x0020}
0x468e…469a Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x002d, t01=0x0042}
0x469a…46cc Head {h00=0x002e, h01=0x002a, text=» LD A6,ACBMMC,A10 GET FIRST ENTRY IN TCTAB«, t00=0x002d, t01=0x004e}
0x46cc…46fa Head {h00=0x002a, h01=0x0026, text=» LD A7,ACBNPE,A10 NUMBER OF USER TASKS«, t00=0x002d, t01=0x0080}
0x46fa…4724 Head {h00=0x0026, h01=0x0022, text=»I:LOOP LDR* A5,A6 GET TTAB ADDRESS«, t00=0x002d, t01=0x00ae}
0x4724…4744 Head {h00=0x001c, h01=0x0018, text=» ST A5,STKCOM+TTAB STORE«, t00=0x002d, t01=0x00d8}
0x4744…475a Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x002d, t01=0x00f8}
0x475a…4790 Head {h00=0x0032, h01=0x0050, text=» LD A2,STKEND+COMLEN GET LENGTH OF COMMON PART«, t00=0x002d, t01=0x010e}
0x4790…47be Head {h00=0x002a, h01=0x0050, text=» ST A2,STKCOM+MAPLEN SAVE FOR MAPPING «, t00=0x002d, t01=0x0144}
0x47be…47f4 Head {h00=0x0032, h01=0x0050, text=» LD A8,STKCOM+LSTADR SAVE LAST LOGICAL ADDRESS«, t00=0x002d, t01=0x0172}
0x47f4…482a Head {h00=0x0032, h01=0x0050, text=» LD A2,STKEND+COMSTA GET START OF COMMON PART «, t00=0x002e, t01=0x0018}
0x482a…4858 Head {h00=0x002a, h01=0x0050, text=» ST A2,STKCOM+LSTADR SAVE FOR MAPPING «, t00=0x002e, t01=0x004e}
0x4858…4884 Head {h00=0x0028, h01=0x0024, text=» CALL INBIMA INIT ALLOCATION BIT MAP«, t00=0x002e, t01=0x007c}
0x4884…48be Head {h00=0x0036, h01=0x0050, text=» ST A8,STKCOM+LSTADR RESTORE LAST LOGICAL ADDRESS «, t00=0x002e, t01=0x00a8}
0x48be…48e2 Head {h00=0x0020, h01=0x001b, text=» LDR A2,A5 GET TTAB ADDRESS «, t00=0x002e, t01=0x00e2}
0x48e2…4906 Head {h00=0x0020, h01=0x001b, text=» CALL MOVMMT MOVE MMU TABLE «, t00=0x002e, t01=0x0106}
0x4906…492e Head {h00=0x0024, h01=0x0020, text=» ST A2,STKCOM+MMTO SAVE ADDRRESS«, t00=0x002e, t01=0x012a}
0x492e…493a Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x002e, t01=0x0152}
0x493a…4962 Head {h00=0x0024, h01=0x0020, text=» CALL B:UWA BUILD USER WORK AREA«, t00=0x002e, t01=0x015e}
0x4962…4986 Head {h00=0x0020, h01=0x001c, text=» CALL Q:USTK QUEUE USER TASK«, t00=0x002e, t01=0x0186}
0x4986…49ac Head {h00=0x0022, h01=0x001d, text=» ADK A6,2 NEXT ENTRY IN TCTAB «, t00=0x002f, t01=0x001a}
0x49ac…49ce Head {h00=0x001e, h01=0x001a, text=» SUK A7,1 MORE USER TASKS?«, t00=0x002f, t01=0x0040}
0x49ce…49e8 Head {h00=0x0016, h01=0x0012, text=» RB(NZ) I:LOOP YES«, t00=0x002f, t01=0x0062}
0x49e8…49f6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x002f, t01=0x007c}
0x49f6…4a00 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002f, t01=0x008a}
0x4a00…4a22 Head {h00=0x001e, h01=0x001a, text=»* UPDATE END OF FREE AREA«, t00=0x002f, t01=0x0094}
0x4a22…4a2c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002f, t01=0x00b6}
0x4a2c…4a34 Head {h00=0x0004, h01=0x0002, t00=0x002f, t01=0x00c0}
0x4a34…4a3c Head {h00=0x0004, h01=0x0002, t00=0x002f, t01=0x00c8}
0x4a3c…4a74 Head {h00=0x0034, h01=0x002f, text=» LD A1,STKCOM+LSTADR GET LOWEST LOGICAL ADDRESS «, t00=0x002f, t01=0x00d0}
0x4a74…4a8a Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x002f, t01=0x0108}
0x4a8a…4ab8 Head {h00=0x002a, h01=0x0050, text=» ANKL A1,/FFF GET DISPL. IN PHYS. PAGE«, t00=0x002f, t01=0x011e}
0x4ab8…4aee Head {h00=0x0032, h01=0x002d, text=» LD A2,STKCOM+FYSPAG GET LAST USED PHYS. PAGE «, t00=0x002f, t01=0x014c}
0x4aee…4b16 Head {h00=0x0024, h01=0x0020, text=» SLL A2,2 SKIP TWO LEFTMOST BITS«, t00=0x002f, t01=0x0182}
0x4b16…4b36 Head {h00=0x001c, h01=0x0018, text=» ORR A1,A2 MERGE ADDRESS«, t00=0x0030, t01=0x001a}
0x4b36…4b42 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0030, t01=0x003a}
0x4b42…4b70 Head {h00=0x002a, h01=0x0026, text=» ST A1,SCTEFA+2 STORE LEAST SIGN. PART«, t00=0x0030, t01=0x0046}
0x4b70…4ba6 Head {h00=0x0032, h01=0x002d, text=» LD A1,STKCOM+FYSPAG GET LAST USED PHYS. PAGE «, t00=0x0030, t01=0x0074}
0x4ba6…4bd0 Head {h00=0x0026, h01=0x0022, text=» SRL A1,14 GET TWO MOST SIGN. BITS«, t00=0x0030, t01=0x00aa}
0x4bd0…4bfc Head {h00=0x0028, h01=0x0023, text=» ST A1,SCTEFA STORE MOST SIGN. PART «, t00=0x0030, t01=0x00d4}
0x4bfc…4c2a Head {h00=0x002a, h01=0x0026, text=» CM STKCOM+MAPLEN CLEAR MAPPING LENGTH«, t00=0x0030, t01=0x0100}
0x4c2a…4c3e Head {h00=0x0010, h01=0x0050, text=»LBAEND EQU *«, t00=0x0030, t01=0x012e}
0x4c3e…4c46 Head {h00=0x0004, h01=0x0002, t00=0x0030, t01=0x0142}
0x4c46…4c4e Head {h00=0x0004, h01=0x0002, t00=0x0030, t01=0x014a}
0x4c4e…4c58 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0030, t01=0x0152}
0x4c58…4c7c Head {h00=0x0020, h01=0x001b, text=»* CONTINUE IN NEXT PROGRAM «, t00=0x0030, t01=0x015c}
0x4c7c…4c86 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0030, t01=0x0180}
0x4c86…4c8e Head {h00=0x0004, h01=0x0002, t00=0x0030, t01=0x018a}
0x4c8e…4c96 (49, 2, 28) Head {h00=0x0004, h01=0x0002, t00=0x0031, t01=0x0004}
0x4c96…4ca2 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0031, t01=0x000c}
0x4ca2…4ca6 Head {h00=0x4004, h01=0x0000}
0x4ca6…4caa 00 31 00 18 ┆ 1 ┆
0x4caa…4cb2 (50, 1, 8) 20 04 00 00 00 32 00 04 ┆ 2 ┆
0x4cb2…4d02 (51, 0, 400) 4f 44 5c 41 31 2c 41 32 3d 41 36 2a 41 37 00 5a 01 84 00 16 00 50 5c 4c 44 5c 41 34 2c 46 44 42 52 4c 45 2c 41 31 31 20 00 5b 00 16 00 1c 00 50 5c 41 44 4b 5c 41 34 2c 31 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 00 5b 00 30 00 1c 00 50 ┆OD A1,A2=A6*A7 Z P LD A4,FDBRLE,A11 [ P ADK A4,1 RECORD LENGTH [ 0 P┆
0x4d02…4d52 5c 4c 44 4b 5c 41 37 2c 30 5c 52 45 43 4f 52 44 20 43 4f 55 4e 54 45 52 00 5b 00 50 00 26 00 50 5c 4c 44 5c 41 36 2c 46 44 42 52 52 4f 2c 41 31 31 5c 4f 46 46 53 45 54 20 49 4e 20 53 45 43 54 4f 52 00 5b 00 70 00 0e 00 50 5c 41 44 4b 5c 41 ┆ LDK A7,0 RECORD COUNTER [ P & P LD A6,FDBRRO,A11 OFFSET IN SECTOR [ p P ADK A┆
0x4d52…4da2 36 2c 31 20 00 5b 00 9a 00 10 00 50 47 54 4c 31 35 30 5c 45 51 55 5c 2a 00 5b 00 ac 00 1c 00 50 5c 41 44 4b 5c 41 37 2c 31 5c 52 45 43 4f 52 44 20 43 4f 55 4e 54 45 52 00 5b 00 c0 00 0e 00 50 5c 53 55 52 5c 41 36 2c 41 34 00 5b 00 e0 00 2a ┆6,1 [ PGTL150 EQU * [ P ADK A7,1 RECORD COUNTER [ P SUR A6,A4 [ *┆
0x4da2…4df2 00 50 5c 52 42 28 4e 4e 29 5c 47 54 4c 31 35 30 5c 43 4f 55 4e 54 20 52 45 43 4f 52 44 53 20 49 4e 20 53 45 43 54 4f 52 00 5b 00 f2 00 06 00 50 2a 20 00 5b 01 20 00 2c 00 50 2a 20 20 20 41 44 44 20 53 45 43 54 2a 42 4c 4f 43 46 41 43 54 20 ┆ P RB(NN) GTL150 COUNT RECORDS IN SECTOR [ P* [ , P* ADD SECT*BLOCFACT ┆
0x4df2…4e42 41 4e 44 20 52 45 43 49 4e 43 55 52 52 53 45 43 54 20 00 5b 01 2a 00 06 00 50 2a 20 00 5b 01 5a 00 0e 00 50 5c 41 44 52 5c 41 32 2c 41 37 00 5b 01 64 00 1a 00 50 5c 52 46 28 4f 29 5c 47 54 4c 31 36 30 5c 4f 56 45 52 46 4c 4f 57 00 5b 01 76 ┆AND RECINCURRSECT [ * P* [ Z P ADR A2,A7 [ d P RF(O) GTL160 OVERFLOW [ v┆
0x4e42…4e92 (52, 0, 400) 00 0e 00 50 5c 52 46 5c 47 54 4c 31 37 30 00 5c 00 04 00 10 00 50 47 54 4c 31 36 30 5c 45 51 55 5c 2a 00 5c 00 16 00 26 00 50 5c 41 4e 4b 4c 5c 41 32 2c 2f 37 46 46 46 5c 44 45 4c 45 54 45 20 4f 56 45 52 46 4c 4f 57 42 49 54 20 00 5c 00 2a ┆ P RF GTL170 PGTL160 EQU * & P ANKL A2,/7FFF DELETE OVERFLOWBIT *┆
0x4e92…4ee2 00 18 00 50 5c 41 44 4b 5c 41 31 2c 31 5c 41 44 44 20 43 41 52 52 59 20 00 5c 00 54 00 10 00 50 47 54 4c 31 37 30 5c 45 51 55 5c 2a 00 5c 00 70 00 20 00 50 5c 4c 44 5c 41 34 2c 2d 34 2c 41 31 34 5c 53 41 56 45 44 20 52 45 47 49 53 54 45 52 ┆ P ADK A1,1 ADD CARRY T PGTL170 EQU * p P LD A4,-4,A14 SAVED REGISTER┆
0x4ee2…4f32 00 5c 00 84 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 5c 00 a8 00 0a 00 50 5c 45 4a 45 43 54 00 5c 00 b8 00 06 00 50 2a 20 00 5c 00 c6 00 30 00 50 2a 5c 52 45 43 45 43 42 3d 4d 4f 56 45 20 52 45 43 4f 52 44 20 4e 55 4d 42 45 52 20 54 4f 20 45 ┆ P RTN A14 P EJECT P* 0 P* RECECB=MOVE RECORD NUMBER TO E┆
0x4f32…4f82 43 42 43 57 31 2c 45 43 42 43 57 32 00 5c 00 d0 00 06 00 50 2a 20 00 5c 01 04 00 1c 00 50 2a 5c 45 4e 54 52 59 3a 20 41 31 31 3d 46 44 42 20 41 44 44 52 45 53 53 00 5c 01 0e 00 2e 00 50 2a 5c 20 20 20 20 20 20 20 41 34 3d 42 55 46 46 45 52 ┆CBCW1,ECBCW2 P* P* ENTRY: A11=FDB ADDRESS . P* A4=BUFFER┆
0x4f82…4fd2 20 41 44 44 52 45 53 53 20 46 52 4f 4d 20 53 55 42 20 46 4e 44 4b 45 59 00 5c 01 2e 00 1c 00 50 2a 5c 20 20 20 20 20 20 20 41 39 3d 45 43 42 20 41 44 44 52 45 53 53 20 00 5c 01 60 00 06 00 50 2a 20 00 5c 01 80 00 22 00 50 2a 5c 45 58 49 54 ┆ ADDRESS FROM SUB FNDKEY . P* A9=ECB ADDRESS ` P* " P* EXIT┆