|
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: 61980 (0xf21c)
Notes: pts_type(SC)
Names: »SYSINI.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/SYSINI.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/SYSINI.SC«
IDENT SYSINI REL 11.0 81-01-26 870105041100 =2,WHEN MMUPAG=0 INITIATE PAGE ADDRESS IN PAGTAB WITH RIGHT VALUE PRR 11.0 80-12-03 =1,CREATE PAGES FOR APPLICATIONS WITH DIFFERENT SEGMENT SIZES PRR 11.0 80-11-20 EJECT *************************** * * * ENTRIES AND EXTERNALS * * * *************************** * LABEL ENTRIES ENTRY SYSINI ENTRY INILEN PROGRAM LENGTH ENTRY INIEND END OF SYSINI ENTRY REL * SUBROUTINE ENTRIES ENTRY MOVE ENTRY ERROR ENTRY CMPADR COMPARE ADDRESSES ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK ENTRY CONVRT CONVERSION ASCII-BINARY ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY ENTRY MULT MULTIPLICATION ROUTINE ENTRY XMOVE MOVE BLOCKS INSIDE MEMORY VIA MMU ENTRY MOVING ENTRY MOVMMT MOVE MM-TABLE ENTRY MMRST RESET MM-TAB ENTRIES ENTRY GETTAB FIND TTAB-ADDRESS ENTRY GETTTB FIND TTAB-ADDRESS ENTRY MMENT FIND LAST USED ENTRY IN MM-TAB ENTRY PUSH STORE REGISTERS ON A15-STACK ENTRY POB RESTORE REGISTERS FROM A15-STACK ENTRY GETAPP ENTRY SETTAB ENTRY INBIMA ENTRY QUEJOB QUEUE TASK EJECT * SAVE AND WORK AREA ENTRIES ENTRY MMTAB WORK-TABLE 1 (MMU ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' ENTRY MMBEG ENTRY LSTPAG DISPL. TO 'ENTRY POINTER' ENTRY PSW EJECT * SYSTEM CONTROL TABLE EXTERNALS EXTRN SCTSFA START OF FREE AREA EXTRN SCTLAC LOGICALL ADDRESS TO COMMON PART EXTRN SCTTCT TC:TAB ADDRESS EXTRN SCTSTB A15 STACK-BASE EXTRN SCTEFA END OF FREE AREA EXTRN SCTNOP NUMBER OF PAGES EXTRN SCTPSZ PAGE SIZE EXTRN SCTMMC =00002 EXTRN SCTOPT SYSTEM OPTION EXTRN SCTPAG PAGE TABLE ADDRESS EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE EXTRN SCTBUG BUGGER ADDRESS EXTRN STKEND START OF SCRATCH-PAD AREA EXTRN STKCOM START OF COMMON-PAD AREA * EXTERNAL LABELS EXTRN PAGQUE PAGE QUEUE POINTER * EXTERNAL SUBROUTINES EXTRN ACTOT QUEUE TASK EXTRN PFINIT EXTRN SAVE8 SAVE 8 REGS EXTRN RETUR8 RELOAD 8 REGS EXTRN TDISP DISPATCHER ENTRY EXTRN SWL48 SWITCH TO LEVEL 48 * EXTRN TTB:SA START OF SAVE AREA IN TTAB EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS EXTRN TTB:MT DISPL. TO 1:ST MMU-TABLE ENTRY IN TTAB EXTRN TTB:SP DISPL TO SEGMENT TABLE ADDRESS EXTRN SEG:NS NUMBER OF SEGMENTS IN SEGTAB EXTRN TTB:AM DISPL. TO ALLOCATION BIT MAP EJECT *************************************** * CONDITIONAL ASSEMBLY * *************************************** DSKPAG EQU 0 0 = NO DISC PAGING MMUPAG EQU 0 0 = NO MMU CPU852 EQU 1 0 = NOT 852 CPU ********************************************* * * * APCTAB DISPLACEMENTS * * ==================== * * * ********************************************* APLADA EQU 22 APPL. REL. BASE (2 WORDS) =1 APLREL EQU 18 NUMBER OF RESIDENT SEGMENTS APLIOE EQU 0 APPLICATION RESTART ADDRESS APLDAD EQU 0 APPLICATION FILE DISC ADDR. (BIT 0-15) APLLAC EQU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.) APLLAP EQU 12 LOGICAL PAGE ADDRESS APLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.) APLMMC EQU 10 APPLICATION MMU START ENTRY APLMMP EQU 8 SEGMENT START MMU ENTRY APLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT APLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU APLSWB EQU 2 APPLICATION SWB APLSTA EQU 16 APPL. PGM START ADDRESS APLTYP EQU 8 APPLICATION TYPE APLPSZ EQU 20 APPLICATION SEGMENT SIZE =1 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 * ******************************* * APCBLK EQU 0 START OF APPL. CONTROL BLOCK EJECT ***************** ***************** ** ** ** CONSTANTS ** ***************** ** ** ***************** ********** * P:MTAB * ********** T:ATAB EQU 0 U:BTAB EQU 2 P:BAS EQU 6 SEGMENT BASE T:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' S:BTAB EQU 40 DISP TO S:BTAB ADDRESS EJECT ******************************* * CONFIGURATION FILE (CONFIG) * ******************************* * TASK DEFINITION BLOCK: TDBBT EQU 0 1A BLOCK TYPE TDBNT EQU TDBBT+1 2N NUMBER OF TASKS TDBID EQU TDBNT+2 6A TASK ID START VALUE TDBMC EQU TDBID+6 6A MATCHING TASK CLASS TDBTL EQU TDBMC+6 6A TASK LEVEL TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES * TDBFST EQU TDBNC+2 FIRST TERM DEF TDC EQU 7 TERMINAL DEVICE CLASS TLC EQU 7 LINE CONNECTION TDBREC EQU TDC+TLC TDB-RECORD LENGTH * SDC EQU 7 SPECIAL DEVICE CLASS-RECORD * * COMMON DEVICE DEF. BLOCK: CDBBT EQU 0 1A BLOCK TYPE CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES SDCFST EQU CDBNC+2 FIRST SDC-RECORD * * * USER WORK BLOCK TYPE DEF. BLOCK UDBBT EQU 0 1A BLOCK TYPE UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES * UDBFST EQU UDBNU+3 FIRST UDB-RECORD NAMUWB EQU 3 NAME OF UWB NUMUBL EQU 3 NUMBER OF BLOCKS UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH EJECT ********* * T:A * ********* T:ASTA EQU -14 T:A START CSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) CSB EQU -12 CURRENT SEGMENT BASE CSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH OF ALL DSCB-RECORDS T:DAD EQU -8 ADDRESS TO T:D CIA EQU -6 CURRENT INSTUCTION ADDRESS (HERE: DISPLACEMENT TO T:A-START) T:ATID EQU -4 TASK ID STKE EQU -2 STACK END PA EQU 0 STACK POINTER STKB EQU 2 STACK BASE WATFST EQU 4 FIRST WAT-ELEMENT * * DSCB-RECORD: DSCBL EQU 20 RECORD LENGTH BL EQU 2 LENGTH OF FIX BUFFER SB EQU 4 INDEX TO DSCB WHICH SHARE THE BUFFER BP EQU 18 BUFFER POINTER EJECT ********* * T:D * ********* FCD EQU 0 DISPLACEMENT TO FCB IN T:A T:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) DATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) DATTAB EQU 6 DISPLACEMENT TO BEGINNING OF DAT-TABLE WATLEN EQU 8 NUMBER OF WATELEMENTS TWBMSK EQU 10 MASK FOR TWB'S (ONE BIT/ENTRY) SWBMSK EQU 12 MASK FOR SWB'S -"- CWBMSK EQU 14 MASK FOR CWB'S -"- UWBMSK EQU 16 MASK FOR UWB'S -"- DWBFST EQU 18 FIRST WORD IN DBLK-TAB STPREC EQU 4 RECORD LENGTH OF START-POINTS **************** * SOP-HANDLING * **************** SOP EQU /2E DEVICE ADDRESS LAMP CODE MEANING --------- ------- LMP1 EQU /400 SYSLOAD RUNS LMP2 EQU /200 READ ERROR LMP3 EQU /100 MEMORY OVERFLOW LMP4 EQU /80 FORMAT ERROR (CONFIG) LMP5 EQU /40 TID ERROR LMP6 EQU /20 UWB OR SWB ERROR LMP7 EQU /10 MM-TABLE OVERFLOW LMP8 EQU 8 LMP9 EQU 4 LMP10 EQU 2 LMP11 EQU 1 EJECT ****************************** * CONSTANTS USED ONLY * * WHEN COBOL APPLICATION * ****************************** STKMAX EQU 500 DEFAULT SPL STACK-SIZE ENTFIN EQU /FFFF PROGRAMMER DEFINED ENTRY POINT SPLSTS EQU 4 DIAGNOSTIC,STACK-SIZE SPLSTB EQU 52 STACK-BASE SPLENT EQU 54 ENTRY-FINI SPLSTA EQU 88 STACK-AREA ********************* * OTHER CONSTANTS * ********************* WBLEN EQU -4 LENGTH OF WORK-BLOCK DTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE SWBLEN EQU 4 DISP TO LENGTH OF SWB FCBDD1 EQU 8 DISP TO FIRST DSET FCBDD2 EQU 10 DISP TO 2:ND DSET STKSZ EQU 128 DEFAULT STACK-SIZE SEGREC EQU 6 RECORD LENGTH IN S:GTAB NUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN S:GTAB TTBTID EQU 2 TID IN TTAB T:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB TTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB NTPA EQU 4 INTERPRETER START ADDRESS IHRTC EQU 4 RTC INTERRUPT ADDRESS RTCDA EQU /1B RTC DEVICE ADDRESS TABLEN EQU 20 LENGTH OF EACH APL.TABLE IN SCRATCH-PAD AREA ACBLEN EQU 26 APPL.CONTROL BLOCK LENGTH =1 ***************************************************************** * CALL-FORMAT, PERFORMS: CFR A14,A13 * * DATA [REL-ADDRESS] * * * ***************************************************************** CALL FORM 16=/F697,16 EJECT LDKL A1,SYSINI AD A1,M:REL+STKCOM ABR A1 GO TO START OF SYSINI EJECT ************************************************** ************************************************** ** ** ** RELOCATION ROUTINE & STACK INITIALLISATION ** ** ** ************************************************** ************************************************** REL RF SUBBA JUMP TO SUBROUTINE HANDLER LDR A13,P GET BASE ADDRESS TO A13 SUKL A13,4 * ADJUST FOR PSW-ROUTINE * ************************** LDK A3,GETPSW RELATIVE ADDRESS TO 'PSW-ADDRESS' ADR A3,A13 ABSOLUT DITO ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE * LOAD STACKBASE * ****************** LDKL A14,STACKB ADR A14,A13 RELOCATE RTN A8 * STACK * ********* * RES 20 STACKB EQU *-REL-2 EJECT * ADDRESS TO PSW-ROUTINE * ************************** * PSW EQU *-REL DATA GETPSW **************************************************************** * G E T P S W * * LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE * **************************************************************** GETPSW EQU *-REL STR A2,A14 SAVE A2 ON A14-STACK LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE ST A2,6,A14 REPLACE PSW FROM MAIN PROGRAM LDR* A2,A14 RESTORE A2 RTN A14 EJECT ********************************* * * * SUBROUTINE-HANDLER * * * ********************************* SUBSUB EQU *-REL SUBBA ST A10,COM04+STKCOM SAVE A10 LD* A10,4,A14 GET SUBROUTINE REL ADDRESS IM 4,A14 ADJUST RETURN ADDRESS IM 4,A14 AD A10,M:REL+STKCOM ADD FOR SYSLDM RELOCATION STR A10,A14 PUT ON STACK LD A10,COM04+STKCOM RESTORE A10 ABR* A14 EJECT * MMU TABLES * MMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE IFT MMUPAG=1 RES 16 XIF MMTAB EQU *-REL WORK AREA MM-TAB TABBE EQU * IFT MMUPAG=1 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 XIF MMEND EQU * DATA 0 CURRENT SEGMENT BASE IN T:A TTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB DATA 0 LSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' DATA 0 APPL. CONTROL BLOCK ADDRESS MMBEG EQU TABBE-* EJECT *** *** *** S U B R O U T I N E S *** *** *** ************************************************* ************************************************* ** E R R O R ** ** ** ** ** ** ERROR HANDLING ROUTINE. ** ** ** ** INPUT :A1=SOP-MESSAGE ** ** OUTPUT:A2=RELATIVE CALLING ADDRESS** ** (REG-CONTENTS IS SAVED) ** **************************************** ERROR EQU * ST A2,COM01+STKCOM SAVE A2 LD A2,4,A14 GET CALLING ABSOLUTE ADDRESS SUR A2,A13 RELATIVE DITO OTR A1,0,SOP HLT DATA /6300 (DEBUGGING PURPOS) EJECT ** P U S H ** ** ** ** ** ** STORE REGISTERS ON A15-STACK ** ** ** ************************************ PUSH EQU * IFT CPU852=1 STR A1,A15 SAVE A1 STR A2,A15 SAVE A2 STR A3,A15 SAVE A3 STR A4,A15 SAVE A4 STR A5,A15 SAVE A5 STR A6,A15 SAVE A6 STR A7,A15 SAVE A7 STR A8,A15 SAVE A8 STR A9,A15 SAVE A9 STR A10,A15 SAVE A10 STR A11,A15 SAVE A11 STR A12,A15 SAVE A12 STR A13,A15 SAVE A13 STR A14,A15 SAVE A14 XIF IFT CPU852=0 MSR 14,A15 SAVE A1-A14 ON A15-STACK XIF RTN A14 EJECT ** P O B ** ** ** RESTORE REGISTERS FROM A15-STACK ** ** ** **************************************** POB EQU * IFT CPU852=1 LDR* A14,A15 RESTORE A1 LDR* A13,A15 RESTORE A2 LDR* A12,A15 RESTORE A3 LDR* A11,A15 RESTORE A4 LDR* A10,A15 RESTORE A5 LDR* A9,A15 RESTORE A6 LDR* A8,A15 RESTORE A7 LDR* A7,A15 RESTORE A8 LDR* A6,A15 RESTORE A9 LDR* A5,A15 RESTORE A10 LDR* A4,A15 RESTORE A11 LDR* A3,A15 RESTORE A12 LDR* A2,A15 RESTORE A13 LDR* A1,A15 RESTORE A14 XIF IFT CPU852=0 MLR 14,A15 RESTORE A1-A14 FROM A15-STACK XIF RTN A14 EJECT ** M O V E ** ** ** ** ** ** MOVE BLOCKS INSIDE MEMORY ** ** ** ** INPUT:A1=FROM-ADDRESS ** ** A2=TO-ADDRESS ** ** A3=LENGTH ** ** OUTPUT:A3=-1 ** ** WORK-REG: A4 ** ********************************* MOVE EQU * MOVES ADR A1,A3 END OF FROM AREA ADR A2,A3 END OF TO-AREA MOVE10 SUK A3,1 DEC LENGTH RF(N) MOVE20 ALL DONE SUK A1,1 SUK A2,1 LCR A4,A1 GET CHARACTER SCR A4,A2 STORE CHARACTER RB MOVE10 MOVE20 RTN A14 IFT MMUPAG=0 EJECT ** M O V I N G ** ** ** ** ** ** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** ** ASSUMED TO BE DATA-PART OF MEMORY ** ** LSTADR POINTS AT LAST (HIGHEST) FREE ** ** ADDRESS. LSTADR IS UPDATED AND CHECKED ** ** ** ** INPUT:A3 & A1 AS IN 'MOVE' ** ** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** ** WORK-REG: A4 ** *********************************************** MOVING EQU * CALL PUSH STORE REGISTERS ON A15-STACK LD A2,LSTADR+STKCOM GET LAST ADDRESS LDR A9,A2 LDR A11,A3 CALL CMPADR ENOUGTH MEMORY LEFT? RF(NL) MOV010 NO! SUR A2,A3 SUB LENGTH ANKL A2,/FFFE MAKE EVEN ADDRESS LDR A11,A2 LD A9,DATEND+STKCOM END OF PROTOTYP AREA CALL CMPADR COMPARE ADDRESSES RF(NL) MOV020 MOV010 LDKL A1,LMP3 MEMORY OVERFLOW CALL ERROR MOV020 LD A9,FSTADR+STKCOM CHECK FIRST FREE ADDRESS CALL CMPADR RB(L) MOV010 ST A2,LSTADR+STKCOM NEW ADDRESS CALL POB RESTORE REGISTERS FROM A15-STACK LD A2,LSTADR+STKCOM RB MOVES XIF EJECT ** X M O V E ** ** ** ** ** ** MOVE BLOCK INSIDE MEMORY VIA MMU ** ** TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) ** ** -MOVE TO USER AREA ** ** IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT** ** BIG ENOUGH THE MOVE IS REPEATED ** ** ** ** INPUT :A1=FROM-ADDR(MMFROM=MM-TABLE ADDR.)** ** A2=TO-ADDRESS (MMTO=MM-TABLE ADDR.)** ** A3=LENGTH (IN BYTES) ** ** WORK.REGS:A4,A10 ** ************************************************ XMOVE EQU * IFT MMUPAG=1 CALL PUSH STORE REGISTERS ON A15-STACK ST A1,COM01+STKCOM ST A2,COM02+STKCOM ST A3,COM03+STKCOM XMOV05 EQU * LDR A10,A3 SAVE LENGTH LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER LDR A11,A3 GET LENGTH OF AREA TO MOVE LD A9,BUFSIZ+STKCOM GET TEMPORARY BUFFER SIZE CALL CMPADR TEMPORARY BUFFER BIG ENOUGTH RF(G) SPLIT NO! SEVERAL MOVE XMOV10 LDR A3,A10 GET LENGTH LD A1,COM01+STKCOM GET FROM ADDRESS LD A2,SYSBUF+STKCOM GET TEMP. BUFFER START-ADDRESS TL* MMFROM+STKCOM LOAD FROM-TABLE MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER ST A1,COM01+STKCOM SAVE END OF 'FROM' ADDRESS LD A1,SYSBUF+STKCOM LD A2,COM02+STKCOM GET START OF 'TO' ADDRESS LDR A3,A10 GET LENGTH TL* MMTO+STKCOM LOAD TO-TABLE MVSU A3 MOVE DATA-BLOCK FROM BUFFER SUK A4,1 MORE PARTS TO MOVE? RF(N) XMOV30 NO! ADR A2,A10 ST A2,COM02+STKCOM SAVE START OF 'TO' ADDRESS LD A3,COM03+STKCOM GET REQUESTED LENGTH SUR A3,A10 SUBTRACT MOVED PART ST A3,COM03+STKCOM SAVE LDR A11,A3 GET REMAINING LENGTH LDR A9,A10 GET CURRENT BUFFER LENGTH CALL CMPADR REMAINING LENGTH<CURRENT BUFFER LENGTH? RB(NL) XMOV10 LDR A10,A3 LAST LENGTH RB XMOV10 EJECT SPLIT EQU * LDR A1,A3 GET DIVISOR SRL A1,15 MOST SIGN. PART OF DIVISOR LDR A2,A3 GET DIVISOR DV BUFSIZ+STKCOM AND DIVIDE LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1) LD A10,BUFSIZ+STKCOM MOVE MAX LENGTH RB XMOV10 XMOV30 CALL POB RESTORE REGISTERS FROM A15-STACK RTN A14 EJECT ** M O V I N G ** ** ** ** ** ** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** ** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** ** IS ALWAYS ASSUMED TO BE DATA PART OF ** ** MEMORY. LSTADR & FYSPAG POINTS AT LAST ** ** (HIGHEST) FREE ADDRESS. LSTADR &FYSPAG ** ** IS UPDATED AND CHECKED. ** ** ** ** INPUT :A1 & A3 AS IN 'XMOVE' ** ** TTAB=POINTER TO TTAB (OR LIKELY) ** ** OUTPUT:A2=LOGICALL TO-ADDRESS ** ** WORK-REGS: A4,A10 ** *********************************************** MOVING EQU * CALL PUSH STORE REGISTERS ON A15-STACK LD A4,FYSPAG+STKCOM GET ACT. PHYSICALL PAGE LD A10,TTAB+STKCOM LOAD TTAB-ADDRESS LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB LDR* A9,A2 GET PAGE IN TABLE ANKL A9,/FC00 CWR A9,A4 CORRECT PAGE IN MMU-TABLE? RF(E) MOV010 YES! ADKL A4,/400 ADJUST FOR 'SETTAB' CALL SETTAB NEW PAGE IN TABLE! MOV010 LD A11,LSTADR+STKCOM GET LAST LOGICALL ADDRESS ANKL A11,/FFF LDR A9,A3 GET LENGTH OF AREA TO MOVE CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? RF(NL) MOV020 YES! SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE MOV015 RF(NP) MOV025 CALL SETTAB INITIALIZE NEW PAGE ENTRY ADKL A11,4096 PHYSICAL PAGE INCREMENT RB MOV015 MOV020 SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE MOV025 RF(NN) MOV050 MOV030 CALL SETTAB NEW PAGE IN TABLE! ADKL A11,4096 NEW PAGE INCREMENT RB(N) MOV030 NOT ENOUGH. NEW PAGE! * MM-TABLE CORRECT. SAVE ADDRESSES * * A4=PHYSICALL PAGE NUMBER * A11=DISPLACEM. WITHIN PAGE * A2=CURRENT ENTRY IN MM-TABLE MOV050 EQU * ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB ST A4,FYSPAG+STKCOM SAVE PHYSICALL PAGE NUMBER LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. ADR A4,A10 ABSOLUTE ENTRY ADDRESS ST A4,MMTO+STKCOM SAVE TABLE ADDRESS SUR A2,A4 RELATIVE ADDRESS SLL A2,11 SHIFT TO FOUR FIRST BITS & DIV BY 2 ORR A2,A11 GET DISPLACEM. WITHIN PAGE ANKL A2,/FFFE EVEN ADDRESS ST A2,LSTADR+STKCOM SAVE LOGICALL ADDRESS * CHECK ADDRESSES * LD A9,FSTPAG+STKCOM GET FIRST FREE PAGE ST A11,COM01+STKCOM SAVE A11 LD A11,FYSPAG+STKCOM CALL CMPADR AND COMPARE RF(G) MOV090 OK! RF(L) MOV070 NOK! LD A11,COM01+STKCOM RESTORE DISPL. LD A9,FSTADR+STKCOM CALL CMPADR RF(NL) MOV090 OK! MOV070 LDKL A1,LMP3 CALL ERROR MOV090 EQU * CALL XMOVE MOVE LD A1,STKCOM+MAPLEN MAPPING? RF(Z) MOV100 NO CALL INBIMA INIT ALLOCATION BIT MAP MOV100 CALL POB RESTORE REGISTERS FROM A15-STACK LD A2,LSTADR+STKCOM GET LOGICAL TO-ADDRESS TL* MMFROM+STKCOM RESTORE MM-TABLE RTN A14 XIF EJECT ** S E T T A B ** ** ** ** ** ** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** ** OVERFLOW. ** ** ** ** INPUT :A2-ADDRESS TO CURRENT ENTRY ** ** A4=PHYSICALL PAGE ** ** OUTPUT:A2 & A4 IS UPDATED ** ** WORK.REG: A9 ** ************************************************* SETTAB EQU * IFT MMUPAG=1 SUKL A4,/400 GET NEXT PAGE SUK A2,2 GET NEXT ENTRY * CHECK IF MM-TABLE OVERFLOW * LDR A9,A10 GET END-ADDRESS A10=TTAB ADKL A9,MMBEG TNM A2,A9 32-KB BOARDER CHECK RF(NN) SETT00 CWR A9,A2 RF SETT05 SETT00 CWR A2,A9 OVERFLOW? SETT05 RF(NL) SETT10 NO LDK A1,LMP7 CALL ERROR SETT10 EQU * STR A4,A2 STORE IN TABLE RTN A14 XIF EJECT ** C M P A D R ** ** ** ** ** ** COMPARE ADDRESSES. RESULT IN PSW ON RETURN ** ** ** ** INPUT : A11 COMPARED TO.. ** ** A9 ** ** OUTPUT: RESULT IN A14-STACK ** ************************************************** CMPADR EQU * TNM A11,A9 RF(NN) CMPA10 CWR A9,A11 RF CMPA20 CMPA10 CWR A11,A9 CMPA20 CFI A14,PSW,A13 PUT RESULT ON STACK RTN A14 EJECT ** M U L T ** ** ** ** ** ** MULTIPLICATION (A2) X A3(), A2#0 ** ** ** ** INPUT : A3,A2 ** ** OUTPUT:A3=RESULT ** ************************************************ MULT EQU * ST A3,COM01+STKCOM STR A2,A14 SAVE A2 TEMPORARY LDK A3,0 ADD AD A3,COM01+STKCOM SUK A2,1 RB(NZ) ADD LDR* A2,A14 RTN A14 EJECT ** M M E N T ** ** ** ** ** ** FIND LAST USED ENTRY IN MM-TAB. SCAN ** ** FROM LOW ADDRESS. NOT USED ENTRY=0. ** ** ** ** INPUT :A3=MM-TABLE ADDRESS ** ** OUTPUT:A3=ENTRY ADDRESS ** ** A9=TTAB-ADDRESS ** ** LSTPAG IN TTAB=A3 ** ** A1=CONTENTS OF 1:ST USED ENTRY ** *********************************************** MMENT EQU * IFT MMUPAG=1 LDR A9,A3 GET TABLE ADDRESS SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER) SUK A3,2 MMEN10 ADK A3,2 INCREMENT ADDRESS LDR* A1,A3 GET CONTENTS OF MM-TABLE ANKL A1,/FC00 CWK A1,/FC00 RB(Z) MMEN10 ST A3,LSTPAG,A9 SAVE FIRST FREE PAGE-ADDRESS RTN A14 XIF EJECT ** G E T T A B ** ** ** ** ** ** FIND TTAB ADDRESS ** ** ** ** INPUT :A8=POINTER TO T:A IN T:ATAB ** ** OUTPUT:A2=TTAB-ADDRESS ** ** A1=TID ** ** WORKREGS:A3,A4,A10 ** ********************************************** GETTAB EQU * IFT MMUPAG=0 LDR* A3,A8 T:A ADDRESS LD A1,T:ATID,A3 GET TID TO MATCH LD A12,T:DAD,A3 T:D-ADDRESS XIF IFT MMUPAG=1 ELR A3,A8 T:A-ADDRESS EL A1,T:ATID,A3 GET TID EL A12,T:DAD,A3 XIF GETTTB EQU * ENTRY. INPUT: A1=TID ST A10,COM04+STKCOM SAVE A10 LD A4,SCTTCT GET TC:TAB ADDRESS LDR* A10,A4 TCTAB LENGTH GETT10 ADK A4,2 SUKL A10,2 ALL? RF(NN) GETT20 NO! LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) LDK A1,LMP5 TID ERROR CALL ERROR GETT20 LDR* A2,A4 TTAB-ADDRESS CW A1,TTB:PP,A2 TCL EQUAL? RB(NE) GETT10 NO! ST A2,TTAB+STKCOM SAVE LD A10,COM04+STKCOM RTN A14 EJECT ********************************************************** * * * INBIMA - INIT BIT MAP * * ===================== * * * * REFERENCED IN: MOVING,SYSLDB PART 2 * * * * ENTRY: MAPLEN - LENGTH OF AREA TO BE MAPPED * * LSTADR - LAST LOGICAL ADDRESS * * TTAB - TTAB ADDRESS * * * * EXIT: * * * * WORK REGISTERS: A1,A2,A3,A4 * * * * SUBROUTINES: * * * ********************************************************** INBIMA EQU * IFT MMUPAG=1 LDKL A1,/8000 INIT BIT MASK LD A2,STKCOM+LSTADR GET LAST ADDRESS LDR A4,A2 SAVE ANKL A4,/C000 SELECT MMU TABLE PARTITION SRL A4,13 DISPLACEMENT TO START OF PARTITION ADKL A4,TTB:AM BIT MAP DISPLACEMENT AD A4,STKCOM+TTAB ADD TTAB ADDRESS LDR A3,A2 GET LOGICAL ADDRESS ANKL A3,/3000 SELECT ENTRY IN PARTITION SRL A3,12 DISPL. REL. START OF PARTITION MAP:40 SUK A3,1 CORRECT NIBBLE FOUND? RF(N) MAP:50 YES SRL A1,4 NEXT NIBBLE RB MAP:40 MAP:50 ECR A3,A2 GET NUMBER OF 1K-DISPLACEMENTS SRL A3,2 ANK A3,3 ISOLATE MAP:60 SUK A3,1 CORRECT 1K-PARTITION? RF(N) MAP:65 YES SRL A1,1 NEXT 1K-PARTITION RB MAP:60 MAP:65 LD A3,STKCOM+MAPLEN GET LENGTH ANKL A2,/3FF REMANING PART OF 1K-PAGE ADR A3,A2 ADJUST LENGTH LDKL A2,TTB:MT DISPLACEMENT TO MMU TABLE AD A2,STKCOM+TTAB ADD TTAB ENTRY ADDRESS MAP:70 ORRS A1,A4 INDICATE 1K-PARTITION OCCUPIED LDR A3,A3 GET LENGTH RF(N) MAP:80 >32K SUKL A3,/400 DECREMENT LENGTH RF(NP) MAP100 MAPPING FINISHED RF MAP:90 MAP:80 SUKL A3,/400 DECREMENT LENGTH MAP:90 SRL A1,1 NEXT 1K-PARTITION RB(NZ) MAP:70 IN THE SAME BIT MAP ENTRY ADK A4,2 NEXT BIT MAP ENTRY CWR A4,A2 END OF BIT MAP? RF(E) MAP100 YES! LDKL A1,/8000 INIT BIT MASK RB MAP:70 MAP100 EQU * XIF RTN A14 EJECT ** M M R S T ** ** ** ** RESET MMTAB ENTRIES FROM ADDRESS ** ** INDICATED BY REGISTER A1 DOWNTO ** ** MMTAB START.SET ENTRIES TO /FC00 ** ** ** ** INPUT : A1 = LAST USED ENTRY ** ** OUTPUT: A1 = MMTAB START ADDRESS ** ** A2 = MMTAB START ADDRESS ** ** A12= /FC00 ** ********************************************** MMRST EQU * IFT MMUPAG=1 LDKL A2,MMTAB WORK TABLE ADDRESS ADR A2,A13 SUK A2,2 LDKL A12,/FC00 INDICATOR MMRST1 EQU * SUK A1,2 NEXT ENTRY CWR A1,A2 ALL DONE ? RF(E) MMRST2 YES STR A12,A1 INDICATE FREE ENTRY RB MMRST1 NEXT ENTRY MMRST2 EQU * RTN A14 XIF EJECT * G E T A P P * * * * GET START OF APLTAB-BLOCK AND CONFIGURA- * * TION-DATA FOR SPECIFIED APPLICATION * * AND IF MMU-CASE ,LOAD HARDWARE MMU-TABLE * * AND MMTAB WITH MMU-TABLE FROM TTAB * * * * INPUT : A1=APPL.TYPE 'CR' 'CO' 'BA' 'AS' * * APPLNO=APPL.NUMBER OF CURRENT * * APPL.TYPE 0,1,2,3... * * CONSTA=START OF CONF.DATA * * * * OUTPUT: A1=ADDRESS TO FIRST ENTRY IN * * APLTAB-BLOCK * * A2=BLOCK TYPE T/C/U/S, OR 0 IF * * END OF CONFIGURATION-DATA * * A11=START OF CONF. FOR SPECIFIED * * APPLICATION * * APPLNO=APPLNO+1 IF APPLICATION * * IS FOUND * * ELSE APPLNO IS UNCHANGED * * CONSTA=START OF CONF.DATA * * COND.REG.=0 IF NO MORE APPL. OF * * CURRENT TYPE LEFT * * * * WORK REGISTERS : A1-A4,A11 * * * ******************************************** GETAPP EQU * * INITIATE REGISTERS AND INCREMENT APPLNO LD A3,APLTAB+STKCOM APLTAB ADDRESS ADK A3,2 FIRST APLTAB-BLOCK ADDRESS LDK A4,0 CLEAR APPL.COUNTER OF CURRENT APPL.TYPE LDK A2,0 CLEAR APPL.COUNTER OF ALL APPL.TYPES * FIND RIGHT APLTAB-BLOCK FOR SPECIFIED APPLICATION GTA100 EQU * ADK A2,1 INCREMENT APPL.COUNTER OF ALL APPL.TYPES CW* A2,APLTAB+STKCOM ANY APPLICATION LEFT? RF(NG) GTA150 YES! SUR A2,A2 A2=0 AND COND.REG.=0 RF GTA900 LEAVE SUBRUTIN GTA150 EQU * CW A1,APLTYP,A3 RIGHT APPL.TYPE? RF(E) GTA200 YES! ADK A3,ACBLEN UPDATE APLTAB-BLOCK ADDRESS RB GTA100 SHECK NEXT APLTAB-BLOCK GTA200 EQU * CW A4,APPLNO+STKCOM RIGHT APPL.NUMBER OF CURRENT APPL.TYPE? RF(E) GTA300 YES! ADK A4,1 INCREMENT APPL.COUNTER OF CURRENT APPL.TYPE ADK A3,ACBLEN UPDATE APLTAB-BLOCK ADDRESS RB GTA100 SHECK NEXT APLTAB-BLOCK GTA300 EQU * IFT MMUPAG=1 * GET MMU-TABLE FROM TTAB OF CURRENT TASK LD* A4,APLMMC,A3 GET TCTAB-ENTRY FOR CURRENT TASK ADKL A4,TTB:MT ADDRESS TO 1:ST MMU-TABLE ENTRY IN TTAB TLR A4 LOAD MMU-TABLE TS MMTAB,A13 STORE MMU-TABLE IN MMTAB XIF * FIND CONFIGURATION-DATA FOR SPECIFIED APPLICATION LDK A4,0 CLEAR APPL.COUNTER OF ALL APPL.TYPES LDR A1,A3 LOAD APLTAB-BLOCK ADDRESS TO OUTPUT REGISTER LD A11,CONSTA+STKCOM GET START OF CONF.DATA ADK A4,1 INCREMENT APPL.COUNTER OF ALL APPL.TYPES CWR A2,A4 IS IT THE FIRST APPLICATION RF(E) GTA800 YES! GTA400 EQU * LDK A3,0 CLEAR REGISTER LCR A3,A11 GET CHAR. FROM CONF.DATA ADKL A11,1 INCREMENT CONF.DATA POINTER CCK A3,/FFFF IS CONF.DATA CHAR. /FF? RB(NE) GTA400 NO! ADK A4,1 INCREMENT APPL.COUNTER OF ALL APL.TYPES CWR A2,A4 RIGHT APPL.NUMBER OF ALL APPL.TYPES? RB(NE) GTA400 NO! * LOAD REGISTER A2 WITH ITS OUTPUT VALUE,REPLACE * PSW OF CALLING PROGRAM TO PSW OF THIS * SUBRUTIN,AND RETURN FROM SUBRUTIN GTA800 EQU * IM APPLNO+STKCOM INCREMENT APPL.NUMBER OF CURRENT APPL.TYPE LDK A2,0 CLEAR REGISTER LCR A2,A11 GET CHAR FROM CONF.DATA LDK A4,1 MAKE COND.REG.TO BE NOT EQUAL TO 0 GTA900 EQU * CFI A14,PSW,A13 REPLACE PSW RTN A14 RETURN FROM SUBRUTIN EJECT ** C O N V R T ** ** ** ** ** ** CONVERSION OF TWO ASCII-DIGITS TO BINARY ** ** ** ** INPUT : A5=ASCII DIGITS ** ** OUTPUT: A1=BINARY RESULT ** ** WORK.REGS: A3,A2 ** ************************************************** CONVRT EQU * LDK A1,0 CLEAR RESULT REG LDR A3,A5 SRL A3,8 GET TEN'S SUK A3,/30 ADR A1,A3 LDR A2,A1 MULT BY 10 ADR A1,A1 . SLL A2,3 . ADR A1,A2 .... LDR A3,A5 ANK A3,/F GET ONE'S ADR A1,A3 RTN A14 EJECT ** N X T B L K ** ** ** ** ** ** SKIP TO NEXT BLOCK IN CONFIGURATION FILE ** ** ** ** INPUT: A11=ADDRESS TO CURRENT BLOCK-START ** ** OUTPUT:A11=ADDRESS TO NEXT BLOCK ** ** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE ** ** WORKREGS: A1,A3-A5 ** ************************************************** NXTBLK EQU * ADKL A11,TDBNC NUMBER OF TERMINAL DEVICE CLASSES NXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK LCR A5,A11 SLL A5,8 LC A5,1,A11 CALL CONVRT LDK A2,TDBREC LDR A3,A1 CALL MULT ADR A11,A3 ADKL A11,2 LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES SLL A5,8 LC A5,1,A11 CALL CONVRT LDK A2,SDC SPEC. DEV. CL. RECORD LENGTH LDR A3,A1 CALL MULT ADR A11,A3 A11=NEXT BLOCK ADKL A11,2 LC A2,TDBBT,A11 GET BLOCK TYPE RTN A14 EJECT ** G E T N U M ** ** ** ** ** ** CONVERT 3 ASCII-DIGITS TO BINARY ** ** ** ** INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER ** ** OUTPUT: A5=BINARY VALUE ** ** WORK.REGS: A2,A4 ** **************************************************** GETNUM EQU * LDK A4,100 FIRST INCREMENT LDK A5,0 CLEAR RESULT REG SUK A6,1 INIT POINTER GET030 ADK A6,1 NEXT DIGIT LCR A2,A6 GET CHAR ANK A2,/F GET050 SUK A2,1 RF(N) GET100 THIS DIGIT READY ADR A5,A4 ACCUMULATE RB GET050 GET100 SUK A4,90 NEXT INCREMENT (TEN'S) RB(P) GET030 ADK A4,81 NEXT INCREMENT (ONE'S) RB(P) GET030 THIRD DIGIT RTN A14 EJECT ** Q U E J O B ** ** ** ** ** ** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** ** 0, ENB. ** ** ** ** INPUT: A12=T:D-ADDRESS ** A5=TTAB-ADDRESS ** *************************************************** QUEJOB EQU * * QUEUE THIS TASK (THIS TID) LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS ADR A3,A13 RELOCATE STR A3,A15 PUT ON STACK LDKL A3,/00C0 SET LEVEL 0 AND ENABLE STR A3,A15 PSW CF A15,SAVE8 SAVE 8 REGS LDK A7,0 CLEAR ABORT INDICATOR IFT MMUPAG=0 LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS ADK A4,2 ANKL A4,/FFFE ADK A4,DWBFST+4 ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS LDR* A6,A4 NUMBER OF START POINTS GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS RF(N) GETT40 ALL! LD A1,4,A4 DISP ADDRESS LD A3,2,A4 SEGMENT NUMBER XIF IFT MMUPAG=1 EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS ADK A4,2 ANKL A4,/FFFE ADK A4,DWBFST+4 ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS ELR A6,A4 NUMBER OF START-POINTS GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS RF(N) GETT40 ALL! EL A1,4,A4 DISP ADDRESS EL A3,2,A4 SEGMENT NUMBER XIF CF A15,ACTOT ADK A4,STPREC NEXT START-POINT RB GETT30 GETT40 ABL RETUR8 RELOAD 8 REGS RETUR EQU *-REL RTN A14 EJECT ** M O V M M T ** ** ** ** ** ** MOVE MM-TABLE ** ** ** ** INPUT :A2=TTAB-ADDRESS ** ** MMTAB HOLDS TABLE TO MOVE ** ** OUTPUT:A2=START OF MM-TABLE IN TTAB ** ** A9=TTAB ADDRESS ** ** WORKREGS:A1,A3 ** *********************************************** MOVMMT EQU * IFT MMUPAG=1 ADKL A2,MMBEG GET TO-TABLE ADDRESS TL MMTAB,A13 LOAD FROM-TABLE TSR A2 MOVE LDR A3,A2 CALL MMENT FILL LAST ENTRY ADDRESS TL* MMFROM+STKCOM RELOAD TABLE RTN A14 XIF EJECT SYSINI EQU * START OF SYSTEM INITIALIZATION IFT DSKPAG-MMUPAG=1 * * INITIATE DYNAMIC CORE FOR COBOL * LD A2,SCTOPT GET OPTION WORD ANKL A2,/2000 ANY COBOL APPL? RF(Z) PBSEND NO! LD A8,DYNSTA+STKCOM GET START OF DYNTAB:S LDR* A2,A8 GET NUMBER OF DYNTAB:S ADKL A8,2 INCREMENT DYNTAB POINTER INDY05 EQU * LDR* A3,A8 GET DYNTAB LENGTH (BYTES) INDY10 EQU * ADKL A8,2 INCREMENT DYNTAB POINTER LDR* A7,A8 GET SPL-PBS ADR LDR A6,A13 ADKL A6,PBSTAB CONSTANT-TABLE ADDRESS SUK A3,2 END OF DYNTAB RF(Z) INDY50 YES! INDY20 EQU * LDR* A5,A6 GET NUMBER OF COPIES CWK A5,/FFFF END OF TABLE? RF(E) INDY40 YES! LD A4,2,A6 GET WORD TO COPY ADK A6,4 ADJUST PBSTAB INDY30 EQU * SUK A5,1 DECREMENT NBR.OF COPIES RB(N) INDY20 ALL DONE FOR THIS CHARACTER STR A4,A7 STORE CHARACTER IN SPL-PBS ADK A7,2 STEP SPL-PBS POINTER RB INDY30 NEXT WORD INDY40 EQU * LDR* A4,A8 SPL-PBS ADR LDKL A5,STKMAX STACK-SIZE ST A5,SPLSTS,A4 STORE IN SPL-PBS LDKL A7,ENTFIN ENTRY-FINI (ADDRESS) ST A7,SPLENT,A4 STORE IN SPL-PBS LDR A6,A4 SPL-PBS ADDR ADK A6,SPLSTA POINT AT STACK AREA ADR A5,A6 +STACK AREA ADDR ST A5,SPLSTB,A4 STORE IN SPL-PBS STACK-BASE RB INDY10 INDY50 EQU * SUK A2,1 ANY DYNTAB:S LEFT? RB(NZ) INDY05 YES! RF PBSEND NO! EJECT ************************************************** ** ** ** EACH WORD IN THIS TABLE CONSISTS OF: ** ** WORD1=COUNTER,NBR OF COPIES OF NEXT WORD ** ** WORD2=WORD ** ** ** ** BYTE1 (COUNTER)=/FF MEANS END OF TABLE ** ** ** ************************************************** PBSTAB EQU *-REL DATA 1 TERMINATION-CODE DATA 0 DATA 1 STACK-USED DATA /6 DATA 1 STACK-SIZE DATA 0 DATA 3 PROCEDURE-NAME DATA /2020 DATA 20 PGM-DATA UNTIL STACK-BASE DATA 0 DATA 1 STACK-BASE DATA 0 DATA 1 ENTRY-FINI DATA 0 DATA 16 LAST-TS,RUNTIME-WORK-AREA DATA 0 DATA /FFFF E N D O F T A B L E PBSEND EQU * XIF IFF MMUPAG+DSKPAG=0 * * RESERVE PAGES IN MEMORY AND BUILD PAGE TABLE * PAGGEN EQU * LDKL A2,PAGEX EXIT ADDRESS ADR A2,A13 RELOCATE LD A1,STKCOM+TOTSGM ANY SEGMENTS IN APPLICATION? ABR(Z) A2 NO! LD A1,SCTOPT GET OPTION WORD ANK A1,3 PAGING? ABR(Z) A2 NO! * * RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS * LD A11,SCTSFA GET START OF FREE AREA ST A11,SCTPAG STORE IN SYSTAB LDR A8,A13 GET RELOCATION BASE ADKL A8,INI70-REL LIMIT FOR PAGE TABLE LDK A7,0 RESET PAGE COUNTER PAG:10 EQU * CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? RF(E) PAG:30 YES! LDK A1,0 RESET NUMBER OF WORDS PAG:20 EQU * ADKL A11,2 INCLUDE NEXT WORD RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) ADK A1,1 INCREMENT WORD COUNTER CWK A1,4 4 WORDS RESERVED? RF(E) PAG:25 YES! CWR A11,A8 CHECK PROGRAM OVERWRITE RF(E) MEMOFL MEMORY OVERFLOW! RB PAG:20 PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER RB PAG:10 PAG:30 EQU * * * RESERV MEMORY PAGES IN UNUSED PART OF MEMORY * AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER * OF PAGE BLOCKS. * XIF IFT MMUPAG=1 LD A1,STKCOM+FYSPAG GET PHYSICAL PAGE LD A2,STKCOM+LSTADR GET LAST LOGICAL ADDRESS ANKL A2,/FFF GET DISPLACEMENT SRL A2,2 SKIP TWO RIGHTMOST BITS ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS LDR A3,A1 SAVE LD A2,SCTPSZ GET PAGE SIZE SRL A2,2 SKIP TWO RIGHTMOST BITS LDR A10,A2 SAVE ANKL A1,/FC00 MAKE EVEN 4K-MULTIPLE ADDRESS ANKL A2,/0300 MODIFY FOR PAGE SIZE ANR A2,A3 EVEN 1-KB LIMIT ORR A1,A2 MODIFY PAGE ADDRESS LIMIT XIF IFT DSKPAG-MMUPAG=1 LD A1,LSTADR+STKCOM GET PHYSICAL LAST ADDRESS LD A10,SCTPSZ PAGE SIZE XIF IFF MMUPAG+DSKPAG=0 LDR A9,A1 INIT PAGE ADDRESS LDR A6,A9 SAVE PAG:31 EQU * ST A11,SCTSFA UPDATE START OF FREE AREA TNM A6,A10 RF(NN) PAG:32 CWR A10,A6 RF PAG:33 PAG:32 CWR A6,A10 PAG:33 RF(NG) PAG:40 SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE LDR A1,A6 GET PAGE ADDRESS IFT MMUPAG=1 ANKL A1,/C000 ADDRESS IN SYSTEM AREA? RF(NZ) PAG:34 NO! LDR A1,A6 PHYSICAL ADDRESS IN SYSTEM AREA SLL A1,2 ABSOLUTE ADDRESS IN SYSTEM AREA RF PAG:36 PAG:34 LDK A1,0 END OF FREE AREA XIF IFF MMUPAG+DSKPAG=0 PAG:36 LDK A2,0 RESET WORD COUNTER PAG:38 CWR A11,A8 CHECK PROGRAM OVERWRITE RF(E) PAG:40 NO MORE MEMORY AVALIABLE ADKL A11,2 INCR. PAGBLK POINTER ADK A2,1 INCREMENT WORD COUNTER CWK A2,4 BLOCK COMPLETE? RF(E) PAG:45 YES! LDR A1,A1 ADDRESS IN SYSTEM AREA? RB(Z) PAG:38 NO! TNM A11,A1 32-KB LIMIT CHECK RF(NN) PAG382 CWR A11,A1 RF PAG384 PAG382 CWR A1,A11 PAG384 RB(G) PAG:38 MORE MEMORY AVALIABLE PAG:40 EQU * ADK A7,0 ANY PAGES RESERVED? RF(Z) MEMOFL NO! CW A7,SCTNOP ONLY PAGES FOR CORE RESIDENT PAGES? RF(G) PAG:50 NO! CW A7,STKCOM+TOTSGM ONLY CORE RESIDENT SEGMENTS IN APPLICATION? RF(E) PAG:50 YES! MEMOFL LDKL A1,LMP3 OTR A1,0,SOP INDICATE MEMORY OVERFLOW HLT HALT PROGRAM PAG:45 CW A7,STKCOM+TOTSGM ONE PAGE/SEGMENT ALLOCATED? CW A7,STKCOM+TOTSGM MORE PAGES WANTED? RF(E) PAG:50 YES! ADK A7,1 INCREMENT PAGE COUNTER LDR A9,A6 SAVE PAGE ADDRESS RB PAG:31 PAG:50 EQU * ST A7,SCTNOP SAVE NUMBER OF PAGES LDR A1,A9 GET ADDRESS TO FIRST PAGE LDR A2,A1 SAVE IFT MMUPAG=1 SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS ST A1,SCTEFA SAVE SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS XIF IFF MMUPAG+DSKPAG=0 ST A2,SCTEFA+2 SAVE EJECT PAGEX EQU *-REL XIF LD A12,SCTPAG GET PAGE TABLE ADDRESS LD A7,STKCOM+APLTAB GET START OF ACB:S LDR* A4,A7 GET NUMBER OF APPLICATIONS INI10 LD* A3,APLMMC+2,A7 GET TTAB ADDRESS IFF MMUPAG+DSKPAG=0 LD A11,TTB:SP,A3 GET SEGMENT TABLE ADDRESS RF(Z) INI40 NO SEGMENT TABLE LD A6,SEG:NS,A11 GET NUMBER OF SEGMENTS RF(Z) INI40 NO SEGMENTS! XIF IFT MMUPAG=1 LD A1,APLNPE+2,A7 GET DISPL WITHIN 4K PAGE SRL A1,2 SKIP TWO RIGHTMOST BITS OR A1,APLSEG+2,A7 MERGE WITH PHYSICL 4K PAGE ADDRESS XIF IFT DSKPAG-MMUPAG=1 LD A1,APLSEG+2,A7 GET PHYSICAL 4K PAGE ADDRESS SLL A1,2 MULTIPLY BY 4 OR A1,APLNPE+2,A7 MERGE WITH DISPL WITHIN 4K PAGE XIF IFF MMUPAG+DSKPAG=0 INI20 EQU * * * INITIALIZE PAGE BLOCK FOR CORE RESIDENT SEGMENTS * AND STORE PAGE BLOCK ADDRESSES IN SEGMENT BLOCKS * ADKL A11,8 NEXT SEGMENT BLOCK LDR* A2,A11 GET STATUS RF(NN) INI30 SEGMENT NOT LOADED IN CORE ST A12,6,A11 STORE PAGE BLOCK ADDRESS CMR A12 RESET QUEUE POINTER FORWARD CM 2,A12 RESET QUEUE POINTER BACKWARD ST A1,4,A12 STORE PAGE ADDRESS ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS LD A2,APLPSZ+2,A7 GET SEGMENT SIZE =1 XIF =2 IFT MMUPAG=1 =2 SRL A2,2 =1 XIF =2 IFF MMUPAG+DSKPAG=0 =2 ADR A1,A2 ADDRESS TO NEXT PAGE =1 ADKL A12,8 NEXT PAGE BLOCK INI30 SUK A6,1 DECR. SEGMENT BLOCK COUNTER RB(P) INI20 INI40 EQU * XIF IFT MMUPAG+DSKPAG=0 * * SAVE START OF DYNTAB:S IN SYSINI (STADYN) * BEFORE ENABLE IS SET BECAUSE INTERUPT * CAN DESTROY DYNSTA IN A15-STACK * LD A1,DYNSTA+STKCOM GET START OF DYNTAB:S ST A1,SAVDYN,A13 SAVE IN SYSINI (STADYN) XIF * * CHECK APPLICATION TYPE AND QUEUE FIRST TASK * FOR EACH ASSEMBLER APPLICATION * LD A1,APLMMP+2,A7 GET APPLICATION TYPE CWK A1,'AS' ASSEMBLER APPLICATION? RF(NE) INI50 NO * * SWITCH TO LEVEL 0 & ENABLE * LDKL A1,INI45 RETURN ADDRESS ADR A1,A13 RELOCATE STR A1,A15 STORE ON STACK LDKL A1,/00C0 PSW STR A1,A15 STORE ON STACK RTN A15 SWITCH INI45 EQU *-REL LD* A5,APLMMC+2,A7 GET TTAB ADDRESS LD A2,APLSTA+2,A7 GET START ADDRESS AD A2,APLREL+2,A7 RELOCATE LDK A3,0 SEGMENT NUMBER CF A15,ACTOT QUEUE TASK EJECT INI50 EQU * IFT MMUPAG=1 LD A1,APLLAP+2,A7 GET LOGICAL PAGE ADDRESS RF(NZ) INI55 NO PAGE ENTRIES RESERVED XIF CM APLNPE+2,A7 CLEAR NUMBER OF PAGE ENTRIES CM APLMMP+2,A7 CLEAR DISPL. TO PAGE ENTRY IFT MMUPAG=1 RF INI60 INI55 EQU * SRL A1,12 PAGE ENTRY NUMBER LDK A2,16 NUMBER OF MMU ENTRIES SUR A2,A1 NUMBER OF PAGE ENTRIES ST A2,APLNPE+2,A7 SAVE SLL A1,1 MULTIPLY BY 2 ADKL A1,TTB:MT DISPL TO FIRST PAGE ENTRY ST A1,APLMMP+2,A7 SAVE INI60 LD A1,APLLAC+2,A7 GET LOGICAL ADDR. TO COMMON PART SRL A1,11 ENTRY NUMBER ANK A1,/1E 2*ENTRY NUMBER ADKL A1,TTB:MT DISPL TO FIRST COMMON PART ENTRY ST A1,APLMMC+2,A7 SAVE XIF ADK A7,ACBLEN NEXT ACB SUK A4,1 MORE APPLICATIONS? RB(P) INI10 YES IFF MMUPAG+DSKPAG=0 * * INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE * LDR A12,A12 ANY PAGES? RF(Z) INI90 NO! CW A12,SCTSFA ANY FREE BLOCKS? RF(E) INI90 NO! ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK LDKL A11,PAGQUE POINTER TO PAGQUE LDR A1,A12 SAVE ADDRESS TO FIRST PAGE BLOCK LDK A2,0 INI70 ST A11,2,A12 STORE BACKWARD POINTER ST A9,4,A12 STORE PAGE ADDRESS ST A2,6,A12 INDICATE PAGE FREE ADK A1,8 ADDRESS NEXT PAGE BLOCK CW A1,SCTSFA LAST PAGE BLOCK? RF(E) INI80 YES! LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK STR A1,A12 STORE FORWARD POINTER LDR A12,A1 NEXT PAGE BLOCK ADR A9,A10 NEXT PAGE RB INI70 INI80 EQU * LDKL A1,PAGQUE POINTER TO PAGQUE STR A1,A12 STORE IN LAST BLOCK ST A12,PAGQUE+2 STORE IN PAGQUE+2 INI90 EQU * EJECT XIF * START BUGGER (IF ANY) * GET APPLICATION START LD A14,STKCOM+APLTAB GET START OF ACB:S LD A14,APLREL+2,A14 GET RELOCATION BASE ADKL A13,INI100 CONTINUATION ADDRESS LDK A1,0 INDICATE SYSLOAD ENDED OTR A1,0,SOP LD A1,SCTBUG GET BUGGER ADDRESS ABR(NZ) A1 INI100 EQU *-REL LDR A13,P INI110 EQU *-REL SUKL A13,INI110 RESTORE PROGRAM BASE OINTER * * INIT A15 STACK * LD A15,SCTSTB SUKL A15,4 * START APPLICATION LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC ST A1,SAVRTC,A13 SAVE LDKL A1,IHRTCO LOAD TEMPORARY INTERRUPT ADDRESS ADR A1,A13 RELOCATE ST A1,IHRTC STORE IN INTERRUPT VECTOR CF A15,PFINIT INITIALIZE DEVICES CF A15,SAVE8 SAVE REGISTERS CF A15,SWL48 SWITCH TO LEVEL 48 * * WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER * LDKL A1,/FFFF SET COUNTER DELAY SRC A2,31 SUK A1,1 RB(NZ) DELAY INH LDKL A1,0 GET RTC INTERRUPT ADDRESS SAVRTC EQU *-REL-2 ST A1,IHRTC RESTORE LDR A1,A13 GET START OF SYSINI ADKL A1,INISTA START OF INIT. INSTR. SEQ. ADKL A13,INILEN END OF INIT. INSTR. SEQ. LDKL A2,STKEND START OF A15-STACK INI150 LDR* A3,A1 GET MEMORY WORD STR A3,A2 STORE IN A15-STACK ADK A1,2 INCREMENT FROM-ADDRESS ADK A2,2 INCREMENT TO-ADDRESS CWR A1,A13 ALL WORDS MOVED? ABL(E) STKEND YES RB INI150 * * TEMPORARY INTERRUPT ROUTINE FOR RTC * IHRTCO EQU *-REL RIT RTCDA RTN A15 INISTA EQU *-REL IFT MMUPAG+DSKPAG=0 * * INITIATE DYNAMIC CORE FOR COBOL * APPLICATIONS AND BRANCH TO DISPATCHER * INDY00 EQU * LD A2,SCTOPT GET OPTION WORD ANKL A2,/2000 ANY COBOL APPL? RF(Z) PBSEND NO! LDKL A2,STKEND LD A8,STADYN,A2 GET START OF DYNTAB:S RF(Z) PBSEND NO COBOL APPL. LOADED LDR* A2,A8 GET NUMBER OF DYNTAB:S ADKL A8,2 INCREMENT DYNTAB POINTER INDY05 EQU * LDR* A3,A8 GET DYNTAB LENGTH (BYTES) INDY10 EQU * ADKL A8,2 INCREMENT DYNTAB POINTER LDR* A7,A8 GET SPL-PBS ADR LDKL A6,STKEND START OF INIT.INSTR.SEQ. ADKL A6,PBSTAB CONSTANT-TABLE ADDRESS SUK A3,2 END OF DYNTAB RF(Z) INDY50 YES! INDY20 EQU * LDR* A5,A6 GET NUMBER OF COPIES CWK A5,/FFFF END OF TABLE? RF(E) INDY40 YES! LD A4,2,A6 GET WORD TO COPY ADK A6,4 ADJUST PBSTAB INDY30 EQU * SUK A5,1 DECREMENT NBR.OF COPIES RB(N) INDY20 ALL DONE FOR THIS CHARACTER STR A4,A7 STORE CHARACTER IN SPL-PBS ADK A7,2 STEP SPL-PBS POINTER RB INDY30 NEXT WORD INDY40 EQU * LDR* A4,A8 SPL-PBS ADR LDKL A5,STKMAX STACK-SIZE ST A5,SPLSTS,A4 STORE IN SPL-PBS LDKL A7,ENTFIN ENTRY-FINI (ADDRESS) ST A7,SPLENT,A4 STORE IN SPL-PBS LDR A6,A4 SPL-PBS ADDR ADK A6,SPLSTA POINT AT STACK AREA ADR A5,A6 +STACK AREA ADDR ST A5,SPLSTB,A4 STORE IN SPL-PBS STACK-BASE RB INDY10 INDY50 EQU * SUK A2,1 ANY DYNTAB:S LEFT? RB(NZ) INDY05 YES! RF PBSEND NO! SAVDYN EQU *-REL STADYN EQU *-INDY00 DATA 0 SAVE AREA FOR DYNSTA EJECT ************************************************** ** ** ** EACH WORD IN THIS TABLE CONSISTS OF: ** ** WORD1=COUNTER,NBR OF COPIES OF NEXT WORD ** ** WORD2=WORD ** ** ** ** BYTE1 (COUNTER)=/FF MEANS END OF TABLE ** ** ** ************************************************** PBSTAB EQU *-INDY00 DATA 1 TERMINATION-CODE DATA 0 DATA 1 STACK-USED DATA /6 DATA 1 STACK-SIZE DATA 0 DATA 3 PROCEDURE-NAME DATA /2020 DATA 20 PGM-DATA UNTIL STACK-BASE DATA 0 DATA 1 STACK-BASE DATA 0 DATA 1 ENTRY-FINI DATA 0 DATA 16 LAST-TS,RUNTIME-WORK-AREA DATA 0 DATA /FFFF E N D O F T A B L E PBSEND EQU * XIF ABL TDISP INILEN EQU *-REL PROGRAM LENGTH INIEND EQU * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT SYSINI REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0070 Head {h00=0x002e, h01=0x0050, text=» =2,WHEN MMUPAG=0 INITIATE PAGE ADDRESS «, t00=0x0000, t01=0x0042}
0x0070…0098 Head {h00=0x0024, h01=0x0050, text=» IN PAGTAB WITH RIGHT VALUE«, t00=0x0000, t01=0x0074}
0x0098…00b8 Head {h00=0x001c, h01=0x0050, text=» PRR 11.0 80-12-03 «, t00=0x0000, t01=0x009c}
0x00b8…00e8 Head {h00=0x002c, h01=0x0050, text=» =1,CREATE PAGES FOR APPLICATIONS WITH«, t00=0x0000, t01=0x00bc}
0x00e8…010e Head {h00=0x0022, h01=0x0050, text=» DIFFERENT SEGMENT SIZES «, t00=0x0000, t01=0x00ec}
0x010e…012e Head {h00=0x001c, h01=0x0050, text=» PRR 11.0 80-11-20 «, t00=0x0000, t01=0x0112}
0x012e…013a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0000, t01=0x0132}
0x013a…0146 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0000, t01=0x013e}
0x0146…0154 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x014a}
0x0154…0160 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0000, t01=0x0158}
0x0160…0184 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0000, t01=0x0164}
0x0184…01a8 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0188}
0x01a8…01cc Head {h00=0x0020, h01=0x0050, text=»* ENTRIES AND EXTERNALS * «, t00=0x0001, t01=0x001c}
0x01cc…01f0 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0040}
0x01f0…0214 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0001, t01=0x0064}
0x0214…0220 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0001, t01=0x0088}
0x0220…0238 Head {h00=0x0014, h01=0x0050, text=»* LABEL ENTRIES «, t00=0x0001, t01=0x0094}
0x0238…024e Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSINI «, t00=0x0001, t01=0x00ac}
0x024e…0272 Head {h00=0x0020, h01=0x0050, text=» ENTRY INILEN PROGRAM LENGTH«, t00=0x0001, t01=0x00c2}
0x0272…0296 Head {h00=0x0020, h01=0x0050, text=» ENTRY INIEND END OF SYSINI «, t00=0x0001, t01=0x00e6}
0x0296…02a8 Head {h00=0x000e, h01=0x0050, text=» ENTRY REL«, t00=0x0001, t01=0x010a}
0x02a8…02b0 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x011c}
0x02b0…02cc Head {h00=0x0018, h01=0x0050, text=»* SUBROUTINE ENTRIES«, t00=0x0001, t01=0x0124}
0x02cc…02e0 Head {h00=0x0010, h01=0x0050, text=» ENTRY MOVE «, t00=0x0001, t01=0x0140}
0x02e0…02f4 Head {h00=0x0010, h01=0x0050, text=» ENTRY ERROR«, t00=0x0001, t01=0x0154}
0x02f4…031c Head {h00=0x0024, h01=0x0050, text=» ENTRY CMPADR COMPARE ADDRESSES «, t00=0x0001, t01=0x0168}
0x031c…0352 Head {h00=0x0032, h01=0x0050, text=» ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK«, t00=0x0001, t01=0x0190}
0x0352…038a Head {h00=0x0034, h01=0x0050, text=» ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK«, t00=0x0002, t01=0x0036}
0x038a…03b8 Head {h00=0x002a, h01=0x0050, text=» ENTRY CONVRT CONVERSION ASCII-BINARY «, t00=0x0002, t01=0x006e}
0x03b8…03ee Head {h00=0x0032, h01=0x0050, text=» ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY«, t00=0x0002, t01=0x009c}
0x03ee…0418 Head {h00=0x0026, h01=0x0050, text=» ENTRY MULT MULTIPLICATION ROUTINE«, t00=0x0002, t01=0x00d2}
0x0418…044e Head {h00=0x0032, h01=0x0050, text=» ENTRY XMOVE MOVE BLOCKS INSIDE MEMORY VIA MMU«, t00=0x0002, t01=0x00fc}
0x044e…0464 Head {h00=0x0012, h01=0x0050, text=» ENTRY MOVING «, t00=0x0002, t01=0x0132}
0x0464…0488 Head {h00=0x0020, h01=0x0050, text=» ENTRY MOVMMT MOVE MM-TABLE «, t00=0x0002, t01=0x0148}
0x0488…04b2 Head {h00=0x0026, h01=0x0050, text=» ENTRY MMRST RESET MM-TAB ENTRIES «, t00=0x0002, t01=0x016c}
0x04b2…04da Head {h00=0x0024, h01=0x0050, text=» ENTRY GETTAB FIND TTAB-ADDRESS «, t00=0x0003, t01=0x0008}
0x04da…0502 Head {h00=0x0024, h01=0x0050, text=» ENTRY GETTTB FIND TTAB-ADDRESS «, t00=0x0003, t01=0x0030}
0x0502…0536 Head {h00=0x0030, h01=0x0050, text=» ENTRY MMENT FIND LAST USED ENTRY IN MM-TAB «, t00=0x0003, t01=0x0058}
0x0536…0566 Head {h00=0x002c, h01=0x0050, text=» ENTRY PUSH STORE REGISTERS ON A15-STACK«, t00=0x0003, t01=0x008c}
0x0566…059a Head {h00=0x0030, h01=0x0050, text=» ENTRY POB RESTORE REGISTERS FROM A15-STACK «, t00=0x0003, t01=0x00bc}
0x059a…05b0 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETAPP «, t00=0x0003, t01=0x00f0}
0x05b0…05c6 Head {h00=0x0012, h01=0x0050, text=» ENTRY SETTAB «, t00=0x0003, t01=0x0106}
0x05c6…05dc Head {h00=0x0012, h01=0x0050, text=» ENTRY INBIMA «, t00=0x0003, t01=0x011c}
0x05dc…05fc Head {h00=0x001c, h01=0x0050, text=» ENTRY QUEJOB QUEUE TASK«, t00=0x0003, t01=0x0132}
0x05fc…060a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0152}
0x060a…0612 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0160}
0x0612…0636 Head {h00=0x0020, h01=0x0050, text=»* SAVE AND WORK AREA ENTRIES«, t00=0x0003, t01=0x0168}
0x0636…065c Head {h00=0x0022, h01=0x0050, text=» ENTRY MMTAB WORK-TABLE 1 (MMU«, t00=0x0003, t01=0x018c}
0x065c…0696 Head {h00=0x0036, h01=0x0050, text=» ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 «, t00=0x0004, t01=0x0022}
0x0696…06ce Head {h00=0x0034, h01=0x0050, text=» ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 «, t00=0x0004, t01=0x005c}
0x06ce…0704 Head {h00=0x0032, h01=0x0050, text=» ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL'«, t00=0x0004, t01=0x0094}
0x0704…071a Head {h00=0x0012, h01=0x0050, text=» ENTRY MMBEG «, t00=0x0004, t01=0x00ca}
0x071a…074a Head {h00=0x002c, h01=0x0050, text=» ENTRY LSTPAG DISPL. TO 'ENTRY POINTER' «, t00=0x0004, t01=0x00e0}
0x074a…075c Head {h00=0x000e, h01=0x0050, text=» ENTRY PSW«, t00=0x0004, t01=0x0110}
0x075c…076a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0122}
0x076a…0772 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0130}
0x0772…079a Head {h00=0x0024, h01=0x0050, text=»* SYSTEM CONTROL TABLE EXTERNALS«, t00=0x0004, t01=0x0138}
0x079a…07c2 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTSFA START OF FREE AREA«, t00=0x0004, t01=0x0160}
0x07c2…07f8 Head {h00=0x0032, h01=0x0050, text=» EXTRN SCTLAC LOGICALL ADDRESS TO COMMON PART «, t00=0x0004, t01=0x0188}
0x07f8…081c Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTTCT TC:TAB ADDRESS«, t00=0x0005, t01=0x002e}
0x081c…0840 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTSTB A15 STACK-BASE«, t00=0x0005, t01=0x0052}
0x0840…0866 Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTEFA END OF FREE AREA«, t00=0x0005, t01=0x0076}
0x0866…088c Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTNOP NUMBER OF PAGES «, t00=0x0005, t01=0x009c}
0x088c…08ac Head {h00=0x001c, h01=0x0050, text=» EXTRN SCTPSZ PAGE SIZE «, t00=0x0005, t01=0x00c2}
0x08ac…08ca Head {h00=0x001a, h01=0x0050, text=» EXTRN SCTMMC =00002 «, t00=0x0005, t01=0x00e2}
0x08ca…08ee Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTOPT SYSTEM OPTION «, t00=0x0005, t01=0x0100}
0x08ee…0916 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTPAG PAGE TABLE ADDRESS«, t00=0x0005, t01=0x0124}
0x0916…094e Head {h00=0x0034, h01=0x0050, text=» EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE«, t00=0x0005, t01=0x014c}
0x094e…0972 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTBUG BUGGER ADDRESS«, t00=0x0005, t01=0x0184}
0x0972…09a2 Head {h00=0x002c, h01=0x0050, text=» EXTRN STKEND START OF SCRATCH-PAD AREA «, t00=0x0006, t01=0x0018}
0x09a2…09d0 Head {h00=0x002a, h01=0x0050, text=» EXTRN STKCOM START OF COMMON-PAD AREA«, t00=0x0006, t01=0x0048}
0x09d0…09d8 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0076}
0x09d8…09f2 Head {h00=0x0016, h01=0x0050, text=»* EXTERNAL LABELS «, t00=0x0006, t01=0x007e}
0x09f2…0a1a Head {h00=0x0024, h01=0x0050, text=» EXTRN PAGQUE PAGE QUEUE POINTER«, t00=0x0006, t01=0x0098}
0x0a1a…0a22 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00c0}
0x0a22…0a40 Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL SUBROUTINES«, t00=0x0006, t01=0x00c8}
0x0a40…0a60 Head {h00=0x001c, h01=0x0050, text=» EXTRN ACTOT QUEUE TASK «, t00=0x0006, t01=0x00e6}
0x0a60…0a76 Head {h00=0x0012, h01=0x0050, text=» EXTRN PFINIT «, t00=0x0006, t01=0x0106}
0x0a76…0a96 Head {h00=0x001c, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGS«, t00=0x0006, t01=0x011c}
0x0a96…0aba Head {h00=0x0020, h01=0x0050, text=» EXTRN RETUR8 RELOAD 8 REGS «, t00=0x0006, t01=0x013c}
0x0aba…0ae0 Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x0006, t01=0x0160}
0x0ae0…0b08 Head {h00=0x0024, h01=0x0050, text=» EXTRN SWL48 SWITCH TO LEVEL 48 «, t00=0x0006, t01=0x0186}
0x0b08…0b10 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x001e}
0x0b10…0b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0026}
0x0b1a…0b4a Head {h00=0x002c, h01=0x0050, text=» EXTRN TTB:SA START OF SAVE AREA IN TTAB«, t00=0x0007, t01=0x0030}
0x0b4a…0b86 Head {h00=0x0038, h01=0x0050, text=» EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS«, t00=0x0007, t01=0x0060}
0x0b86…0bc2 Head {h00=0x0038, h01=0x0050, text=» EXTRN TTB:MT DISPL. TO 1:ST MMU-TABLE ENTRY IN TTAB«, t00=0x0007, t01=0x009c}
0x0bc2…0bf6 Head {h00=0x0030, h01=0x0050, text=» EXTRN TTB:SP DISPL TO SEGMENT TABLE ADDRESS«, t00=0x0007, t01=0x00d8}
0x0bf6…0c28 Head {h00=0x002e, h01=0x0050, text=» EXTRN SEG:NS NUMBER OF SEGMENTS IN SEGTAB«, t00=0x0007, t01=0x010c}
0x0c28…0c5a Head {h00=0x002e, h01=0x0050, text=» EXTRN TTB:AM DISPL. TO ALLOCATION BIT MAP«, t00=0x0007, t01=0x013e}
0x0c5a…0c68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0170}
0x0c68…0c70 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x017e}
0x0c70…0c78 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0186}
0x0c78…0ca8 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0007, t01=0x018e}
0x0ca8…0cd8 Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x0008, t01=0x002e}
0x0cd8…0d08 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0008, t01=0x005e}
0x0d08…0d10 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x008e}
0x0d10…0d38 Head {h00=0x0024, h01=0x0050, text=»DSKPAG EQU 0 0 = NO DISC PAGING «, t00=0x0008, t01=0x0096}
0x0d38…0d58 Head {h00=0x001c, h01=0x0050, text=»MMUPAG EQU 0 0 = NO MMU «, t00=0x0008, t01=0x00be}
0x0d58…0d7c Head {h00=0x0020, h01=0x0050, text=»CPU852 EQU 1 0 = NOT 852 CPU«, t00=0x0008, t01=0x00de}
0x0d7c…0db2 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0008, t01=0x0102}
0x0db2…0de8 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0008, t01=0x0138}
0x0de8…0e1e Head {h00=0x0032, h01=0x0050, text=»* APCTAB DISPLACEMENTS * «, t00=0x0008, t01=0x016e}
0x0e1e…0e54 Head {h00=0x0032, h01=0x0050, text=»* ==================== * «, t00=0x0009, t01=0x0014}
0x0e54…0e8a Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0009, t01=0x004a}
0x0e8a…0ec0 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0009, t01=0x0080}
0x0ec0…0ec8 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00b6}
0x0ec8…0ed0 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00be}
0x0ed0…0f02 Head {h00=0x002e, h01=0x0050, text=»APLADA EQU 22 APPL. REL. BASE (2 WORDS) =1«, t00=0x0009, t01=0x00c6}
0x0f02…0f34 Head {h00=0x002e, h01=0x0050, text=»APLREL EQU 18 NUMBER OF RESIDENT SEGMENTS «, t00=0x0009, t01=0x00f8}
0x0f34…0f64 Head {h00=0x002c, h01=0x0050, text=»APLIOE EQU 0 APPLICATION RESTART ADDRESS«, t00=0x0009, t01=0x012a}
0x0f64…0fa0 Head {h00=0x0038, h01=0x0050, text=»APLDAD EQU 0 APPLICATION FILE DISC ADDR. (BIT 0-15) «, t00=0x0009, t01=0x015a}
0x0fa0…0fdc Head {h00=0x0038, h01=0x0050, text=»APLLAC EQU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.)«, t00=0x000a, t01=0x0008}
0x0fdc…1006 Head {h00=0x0026, h01=0x0050, text=»APLLAP EQU 12 LOGICAL PAGE ADDRESS«, t00=0x000a, t01=0x0044}
0x1006…1042 Head {h00=0x0038, h01=0x0050, text=»APLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.)«, t00=0x000a, t01=0x006e}
0x1042…1074 Head {h00=0x002e, h01=0x0050, text=»APLMMC EQU 10 APPLICATION MMU START ENTRY «, t00=0x000a, t01=0x00aa}
0x1074…10a0 Head {h00=0x0028, h01=0x0050, text=»APLMMP EQU 8 SEGMENT START MMU ENTRY«, t00=0x000a, t01=0x00dc}
0x10a0…10d2 Head {h00=0x002e, h01=0x0050, text=»APLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT«, t00=0x000a, t01=0x0108}
0x10d2…1104 Head {h00=0x002e, h01=0x0050, text=»APLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU«, t00=0x000a, t01=0x013a}
0x1104…1128 Head {h00=0x0020, h01=0x0050, text=»APLSWB EQU 2 APPLICATION SWB«, t00=0x000a, t01=0x016c}
0x1128…1156 Head {h00=0x002a, h01=0x0050, text=»APLSTA EQU 16 APPL. PGM START ADDRESS «, t00=0x000a, t01=0x0190}
0x1156…117c Head {h00=0x0022, h01=0x0050, text=»APLTYP EQU 8 APPLICATION TYPE «, t00=0x000b, t01=0x002e}
0x117c…11ae Head {h00=0x002e, h01=0x0050, text=»APLPSZ EQU 20 APPLICATION SEGMENT SIZE =1 «, t00=0x000b, t01=0x0054}
0x11ae…11bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0086}
0x11bc…11ee Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000b, t01=0x0094}
0x11ee…1220 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x000b, t01=0x00c6}
0x1220…1252 Head {h00=0x002e, h01=0x0050, text=»* COMMON DISPLACEMENTS AND CONSTANTS * «, t00=0x000b, t01=0x00f8}
0x1252…1284 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x000b, t01=0x012a}
0x1284…12b6 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000b, t01=0x015c}
0x12b6…12be Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x018e}
0x12be…12f2 Head {h00=0x0030, h01=0x0050, text=»APLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE«, t00=0x000c, t01=0x0008}
0x12f2…131a Head {h00=0x0024, h01=0x0050, text=»APPLNO EQU 18 APPLICATION NUMBER«, t00=0x000c, t01=0x003c}
0x131a…1346 Head {h00=0x0028, h01=0x0050, text=»BUFSIZ EQU 14 TEMPORARY BUFFER SIZE «, t00=0x000c, t01=0x0064}
0x1346…1378 Head {h00=0x002e, h01=0x0050, text=»CONLEN EQU 0 LENGTH OF CONFIGURATION DATA «, t00=0x000c, t01=0x0090}
0x1378…13a8 Head {h00=0x002c, h01=0x0050, text=»CONSTA EQU 2 START OF CONFIGURATION DATA«, t00=0x000c, t01=0x00c2}
0x13a8…13d4 Head {h00=0x0028, h01=0x0050, text=»DATEND EQU 34 END OF DDIV PROTOTYPE «, t00=0x000c, t01=0x00f2}
0x13d4…13fc Head {h00=0x0024, h01=0x0050, text=»DYNSTA EQU 52 START OF DYNTAB:S «, t00=0x000c, t01=0x011e}
0x13fc…143a Head {h00=0x003a, h01=0x0050, text=»FSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER «, t00=0x000c, t01=0x0146}
0x143a…1468 Head {h00=0x002a, h01=0x0050, text=»FSTPAG EQU 22 1ST FREE PAGE (PHYSICAL)«, t00=0x000c, t01=0x0184}
0x1468…1498 Head {h00=0x002c, h01=0x0050, text=»FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER «, t00=0x000d, t01=0x0022}
0x1498…14d2 Head {h00=0x0036, h01=0x0050, text=»LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART«, t00=0x000d, t01=0x0052}
0x14d2…14fe Head {h00=0x0028, h01=0x0050, text=»MAPLEN EQU 30 LENGTH OF AREA TO MAP «, t00=0x000d, t01=0x008c}
0x14fe…152c Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU 36 2ND MMU TABLE WORK AREA «, t00=0x000d, t01=0x00b8}
0x152c…1558 Head {h00=0x0028, h01=0x0050, text=»MMTO EQU 38 1:ST MMU TABLE WORK AREA«, t00=0x000d, t01=0x00e6}
0x1558…1580 Head {h00=0x0024, h01=0x0050, text=»M:REL EQU 16 RELOCATION CONSTANT«, t00=0x000d, t01=0x0112}
0x1580…15b0 Head {h00=0x002c, h01=0x0050, text=»SYSBUF EQU 28 START OF TEMPORARY BUFFER «, t00=0x000d, t01=0x013a}
0x15b0…15dc Head {h00=0x0028, h01=0x0050, text=»SWBFSA EQU 4 SWB-FILE START ADDRESS «, t00=0x000d, t01=0x016a}
0x15dc…1606 Head {h00=0x0026, h01=0x0050, text=»SWBFSE EQU 8 SWB-FILE END ADDRESS «, t00=0x000e, t01=0x0008}
0x1606…1632 Head {h00=0x0028, h01=0x0050, text=»TTAB EQU 32 WORK AREA FOR MMU TABLE «, t00=0x000e, t01=0x0032}
0x1632…1660 Head {h00=0x002a, h01=0x0050, text=»TOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS«, t00=0x000e, t01=0x005e}
0x1660…1690 Head {h00=0x002c, h01=0x0050, text=»SWBFLG EQU 48 SWAPPABLE WORK BLOCK FLAG «, t00=0x000e, t01=0x008c}
0x1690…16b8 Head {h00=0x0024, h01=0x0050, text=»COM01 EQU 40 COMMON WORK AREA 1 «, t00=0x000e, t01=0x00bc}
0x16b8…16e0 Head {h00=0x0024, h01=0x0050, text=»COM02 EQU 42 COMMON WORK AREA 2 «, t00=0x000e, t01=0x00e4}
0x16e0…1708 Head {h00=0x0024, h01=0x0050, text=»COM03 EQU 44 COMMON WORK AREA 3 «, t00=0x000e, t01=0x010c}
0x1708…1730 Head {h00=0x0024, h01=0x0050, text=»COM04 EQU 50 COMMON WORK AREA 4 «, t00=0x000e, t01=0x0134}
0x1730…175a Head {h00=0x0026, h01=0x0050, text=»DCBLK EQU 54 START OF DC CONF DATA«, t00=0x000e, t01=0x015c}
0x175a…1768 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0186}
0x1768…1790 (15, 0, 398) Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x000f, t01=0x0004}
0x1790…17b8 Head {h00=0x0024, h01=0x0050, text=»* SCRATCH-PAD DISPLACEMENTS * «, t00=0x000f, t01=0x002c}
0x17b8…17e0 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x000f, t01=0x0054}
0x17e0…17ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x007c}
0x17ea…181c Head {h00=0x002e, h01=0x0050, text=»APCBLK EQU 0 START OF APPL. CONTROL BLOCK «, t00=0x000f, t01=0x0086}
0x181c…182a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00b8}
0x182a…1836 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x000f, t01=0x00c6}
0x1836…1852 Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x000f, t01=0x00d2}
0x1852…186e Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x000f, t01=0x00ee}
0x186e…188a Head {h00=0x0018, h01=0x0050, text=» ** ** «, t00=0x000f, t01=0x010a}
0x188a…18a6 Head {h00=0x0018, h01=0x0050, text=» ** CONSTANTS ** «, t00=0x000f, t01=0x0126}
0x18a6…18c2 Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x000f, t01=0x0142}
0x18c2…18de Head {h00=0x0018, h01=0x0050, text=» ** ** «, t00=0x000f, t01=0x015e}
0x18de…18fa Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x000f, t01=0x017a}
0x18fa…1906 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0010, t01=0x0008}
0x1906…1918 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x0014}
0x1918…192a Head {h00=0x000e, h01=0x0050, text=»* P:MTAB *«, t00=0x0010, t01=0x0026}
0x192a…193c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x0038}
0x193c…1950 Head {h00=0x0010, h01=0x0050, text=»T:ATAB EQU 0«, t00=0x0010, t01=0x004a}
0x1950…1964 Head {h00=0x0010, h01=0x0050, text=»U:BTAB EQU 2«, t00=0x0010, t01=0x005e}
0x1964…1984 Head {h00=0x001c, h01=0x0050, text=»P:BAS EQU 6 SEGMENT BASE«, t00=0x0010, t01=0x0072}
0x1984…19b6 Head {h00=0x002e, h01=0x0050, text=»T:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID'«, t00=0x0010, t01=0x0092}
0x19b6…19e2 Head {h00=0x0028, h01=0x0050, text=»S:BTAB EQU 40 DISP TO S:BTAB ADDRESS«, t00=0x0010, t01=0x00c4}
0x19e2…19f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00f0}
0x19f0…19fc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0010, t01=0x00fe}
0x19fc…1a08 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0010, t01=0x010a}
0x1a08…1a14 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0010, t01=0x0116}
0x1a14…1a3c Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0010, t01=0x0122}
0x1a3c…1a64 Head {h00=0x0024, h01=0x0050, text=»* CONFIGURATION FILE (CONFIG) * «, t00=0x0010, t01=0x014a}
0x1a64…1a8c Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0010, t01=0x0172}
0x1a8c…1a98 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0011, t01=0x000a}
0x1a98…1ab8 Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x0011, t01=0x0016}
0x1ab8…1ada Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x0011, t01=0x0036}
0x1ada…1b06 Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x0011, t01=0x0058}
0x1b06…1b36 Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x0011, t01=0x0084}
0x1b36…1b66 Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x0011, t01=0x00b4}
0x1b66…1b8e Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x0011, t01=0x00e4}
0x1b8e…1bcc Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x0011, t01=0x010c}
0x1bcc…1bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x014a}
0x1bd6…1c00 Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 FIRST TERM DEF «, t00=0x0011, t01=0x0154}
0x1c00…1c28 Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x0011, t01=0x017e}
0x1c28…1c4a Head {h00=0x001e, h01=0x0050, text=»TLC EQU 7 LINE CONNECTION «, t00=0x0012, t01=0x0016}
0x1c4a…1c76 Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x0012, t01=0x0038}
0x1c76…1c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0064}
0x1c80…1cae Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x0012, t01=0x006e}
0x1cae…1cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009c}
0x1cb8…1cdc Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x0012, t01=0x00a6}
0x1cdc…1cfe Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x0012, t01=0x00ca}
0x1cfe…1d38 Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x0012, t01=0x00ec}
0x1d38…1d64 Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 FIRST SDC-RECORD «, t00=0x0012, t01=0x0126}
0x1d64…1d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0152}
0x1d6e…1d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015c}
0x1d78…1da2 Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x0012, t01=0x0166}
0x1da2…1dc4 Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x0012, t01=0x0190}
0x1dc4…1df4 Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x0013, t01=0x0022}
0x1df4…1dfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0052}
0x1dfe…1e2a Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 FIRST UDB-RECORD «, t00=0x0013, t01=0x005c}
0x1e2a…1e4a Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x0013, t01=0x0088}
0x1e4a…1e70 Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x0013, t01=0x00a8}
0x1e70…1ea2 Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x0013, t01=0x00ce}
0x1ea2…1eb0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0100}
0x1eb0…1ebc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0013, t01=0x010e}
0x1ebc…1ec8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0013, t01=0x011a}
0x1ec8…1eda Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0013, t01=0x0126}
0x1eda…1eec Head {h00=0x000e, h01=0x0050, text=»* T:A * «, t00=0x0013, t01=0x0138}
0x1eec…1efe Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0013, t01=0x014a}
0x1efe…1f1e Head {h00=0x001c, h01=0x0050, text=»T:ASTA EQU -14 T:A START«, t00=0x0013, t01=0x015c}
0x1f1e…1f58 Head {h00=0x0036, h01=0x0050, text=»CSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) «, t00=0x0013, t01=0x017c}
0x1f58…1f80 Head {h00=0x0024, h01=0x0050, text=»CSB EQU -12 CURRENT SEGMENT BASE«, t00=0x0014, t01=0x0026}
0x1f80…1fb8 Head {h00=0x0034, h01=0x0050, text=»CSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH «, t00=0x0014, t01=0x004e}
0x1fb8…1fee Head {h00=0x0032, h01=0x0050, text=» OF ALL DSCB-RECORDS«, t00=0x0014, t01=0x0086}
0x1fee…2012 Head {h00=0x0020, h01=0x0050, text=»T:DAD EQU -8 ADDRESS TO T:D «, t00=0x0014, t01=0x00bc}
0x2012…2040 Head {h00=0x002a, h01=0x0050, text=»CIA EQU -6 CURRENT INSTUCTION ADDRESS «, t00=0x0014, t01=0x00e0}
0x2040…206c Head {h00=0x0028, h01=0x0050, text=» (HERE: DISPLACEMENT TO T:A-START)«, t00=0x0014, t01=0x010e}
0x206c…2078 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0014, t01=0x013a}
0x2078…2096 Head {h00=0x001a, h01=0x0050, text=»T:ATID EQU -4 TASK ID «, t00=0x0014, t01=0x0146}
0x2096…20b4 Head {h00=0x001a, h01=0x0050, text=»STKE EQU -2 STACK END «, t00=0x0014, t01=0x0164}
0x20b4…20d2 Head {h00=0x001a, h01=0x0050, text=»PA EQU 0 STACK POINTER«, t00=0x0014, t01=0x0182}
0x20d2…20f0 Head {h00=0x001a, h01=0x0050, text=»STKB EQU 2 STACK BASE «, t00=0x0015, t01=0x0010}
0x20f0…2116 Head {h00=0x0022, h01=0x0050, text=»WATFST EQU 4 FIRST WAT-ELEMENT«, t00=0x0015, t01=0x002e}
0x2116…2120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0054}
0x2120…2136 Head {h00=0x0012, h01=0x0050, text=»* DSCB-RECORD:«, t00=0x0015, t01=0x005e}
0x2136…2158 Head {h00=0x001e, h01=0x0050, text=»DSCBL EQU 20 RECORD LENGTH«, t00=0x0015, t01=0x0074}
0x2158…217e Head {h00=0x0022, h01=0x0050, text=»BL EQU 2 LENGTH OF FIX BUFFER «, t00=0x0015, t01=0x0096}
0x217e…21b4 Head {h00=0x0032, h01=0x0050, text=»SB EQU 4 INDEX TO DSCB WHICH SHARE THE BUFFER «, t00=0x0015, t01=0x00bc}
0x21b4…21d4 Head {h00=0x001c, h01=0x0050, text=»BP EQU 18 BUFFER POINTER«, t00=0x0015, t01=0x00f2}
0x21d4…21e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0112}
0x21e2…21ee Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0015, t01=0x0120}
0x21ee…21fa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0015, t01=0x012c}
0x21fa…220c Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0015, t01=0x0138}
0x220c…221e Head {h00=0x000e, h01=0x0050, text=»* T:D * «, t00=0x0015, t01=0x014a}
0x221e…2230 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0015, t01=0x015c}
0x2230…225c Head {h00=0x0028, h01=0x0050, text=»FCD EQU 0 DISPLACEMENT TO FCB IN T:A«, t00=0x0015, t01=0x016e}
0x225c…228c Head {h00=0x002c, h01=0x0050, text=»T:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE)«, t00=0x0016, t01=0x000a}
0x228c…22bc Head {h00=0x002c, h01=0x0050, text=»DATLEN EQU 4 NUMBER OF DATASETS (DSCB'S)«, t00=0x0016, t01=0x003a}
0x22bc…22f8 Head {h00=0x0038, h01=0x0050, text=»DATTAB EQU 6 DISPLACEMENT TO BEGINNING OF DAT-TABLE «, t00=0x0016, t01=0x006a}
0x22f8…2322 Head {h00=0x0026, h01=0x0050, text=»WATLEN EQU 8 NUMBER OF WATELEMENTS«, t00=0x0016, t01=0x00a6}
0x2322…2356 Head {h00=0x0030, h01=0x0050, text=»TWBMSK EQU 10 MASK FOR TWB'S (ONE BIT/ENTRY)«, t00=0x0016, t01=0x00d0}
0x2356…2384 Head {h00=0x002a, h01=0x0050, text=»SWBMSK EQU 12 MASK FOR SWB'S -"- «, t00=0x0016, t01=0x0104}
0x2384…23b2 Head {h00=0x002a, h01=0x0050, text=»CWBMSK EQU 14 MASK FOR CWB'S -"- «, t00=0x0016, t01=0x0132}
0x23b2…23e0 Head {h00=0x002a, h01=0x0050, text=»UWBMSK EQU 16 MASK FOR UWB'S -"- «, t00=0x0016, t01=0x0160}
0x23e0…240c Head {h00=0x0028, h01=0x0050, text=»DWBFST EQU 18 FIRST WORD IN DBLK-TAB«, t00=0x0016, t01=0x018e}
0x240c…2414 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x002a}
0x2414…2446 Head {h00=0x002e, h01=0x0050, text=»STPREC EQU 4 RECORD LENGTH OF START-POINTS«, t00=0x0017, t01=0x0032}
0x2446…2452 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0017, t01=0x0064}
0x2452…245a Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0070}
0x245a…2472 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0017, t01=0x0078}
0x2472…248a Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x0017, t01=0x0090}
0x248a…24a2 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0017, t01=0x00a8}
0x24a2…24c4 Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x0017, t01=0x00c0}
0x24c4…24cc Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x00e2}
0x24cc…24ea Head {h00=0x001a, h01=0x0050, text=» LAMP CODE MEANING «, t00=0x0017, t01=0x00ea}
0x24ea…2508 Head {h00=0x001a, h01=0x0050, text=» --------- ------- «, t00=0x0017, t01=0x0108}
0x2508…252a Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 SYSLOAD RUNS«, t00=0x0017, t01=0x0126}
0x252a…254a Head {h00=0x001c, h01=0x0050, text=»LMP2 EQU /200 READ ERROR«, t00=0x0017, t01=0x0148}
0x254a…2570 Head {h00=0x0022, h01=0x0050, text=»LMP3 EQU /100 MEMORY OVERFLOW «, t00=0x0017, t01=0x0168}
0x2570…259a Head {h00=0x0026, h01=0x0050, text=»LMP4 EQU /80 FORMAT ERROR (CONFIG)«, t00=0x0017, t01=0x018e}
0x259a…25b8 Head {h00=0x001a, h01=0x0050, text=»LMP5 EQU /40 TID ERROR«, t00=0x0018, t01=0x0028}
0x25b8…25de Head {h00=0x0022, h01=0x0050, text=»LMP6 EQU /20 UWB OR SWB ERROR «, t00=0x0018, t01=0x0046}
0x25de…2604 Head {h00=0x0022, h01=0x0050, text=»LMP7 EQU /10 MM-TABLE OVERFLOW«, t00=0x0018, t01=0x006c}
0x2604…2616 Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x0018, t01=0x0092}
0x2616…2628 Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x0018, t01=0x00a4}
0x2628…263c Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x0018, t01=0x00b6}
0x263c…2650 Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x0018, t01=0x00ca}
0x2650…265e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00de}
0x265e…2684 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0018, t01=0x00ec}
0x2684…26aa Head {h00=0x0022, h01=0x0050, text=»* CONSTANTS USED ONLY *«, t00=0x0018, t01=0x0112}
0x26aa…26d0 Head {h00=0x0022, h01=0x0050, text=»* WHEN COBOL APPLICATION *«, t00=0x0018, t01=0x0138}
0x26d0…26f6 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0018, t01=0x015e}
0x26f6…26fe Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0184}
0x26fe…272c Head {h00=0x002a, h01=0x0050, text=»STKMAX EQU 500 DEFAULT SPL STACK-SIZE «, t00=0x0018, t01=0x018c}
0x272c…2764 Head {h00=0x0034, h01=0x0050, text=»ENTFIN EQU /FFFF PROGRAMMER DEFINED ENTRY POINT «, t00=0x0019, t01=0x002a}
0x2764…278e Head {h00=0x0026, h01=0x0050, text=»SPLSTS EQU 4 DIAGNOSTIC,STACK-SIZE«, t00=0x0019, t01=0x0062}
0x278e…27ae Head {h00=0x001c, h01=0x0050, text=»SPLSTB EQU 52 STACK-BASE«, t00=0x0019, t01=0x008c}
0x27ae…27ce Head {h00=0x001c, h01=0x0050, text=»SPLENT EQU 54 ENTRY-FINI«, t00=0x0019, t01=0x00ac}
0x27ce…27ee Head {h00=0x001c, h01=0x0050, text=»SPLSTA EQU 88 STACK-AREA«, t00=0x0019, t01=0x00cc}
0x27ee…27f6 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00ec}
0x27f6…27fe Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00f4}
0x27fe…281c Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0019, t01=0x00fc}
0x281c…283a Head {h00=0x001a, h01=0x0050, text=»* OTHER CONSTANTS * «, t00=0x0019, t01=0x011a}
0x283a…2858 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0019, t01=0x0138}
0x2858…2864 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0019, t01=0x0156}
0x2864…2870 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0019, t01=0x0162}
0x2870…289a Head {h00=0x0026, h01=0x0050, text=»WBLEN EQU -4 LENGTH OF WORK-BLOCK «, t00=0x0019, t01=0x016e}
0x289a…28ca Head {h00=0x002c, h01=0x0050, text=»DTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE «, t00=0x001a, t01=0x0008}
0x28ca…28f4 Head {h00=0x0026, h01=0x0050, text=»SWBLEN EQU 4 DISP TO LENGTH OF SWB«, t00=0x001a, t01=0x0038}
0x28f4…2900 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001a, t01=0x0062}
0x2900…2928 Head {h00=0x0024, h01=0x0050, text=»FCBDD1 EQU 8 DISP TO FIRST DSET «, t00=0x001a, t01=0x006e}
0x2928…2950 Head {h00=0x0024, h01=0x0050, text=»FCBDD2 EQU 10 DISP TO 2:ND DSET «, t00=0x001a, t01=0x0096}
0x2950…295c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001a, t01=0x00be}
0x295c…2984 Head {h00=0x0024, h01=0x0050, text=»STKSZ EQU 128 DEFAULT STACK-SIZE«, t00=0x001a, t01=0x00ca}
0x2984…2990 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001a, t01=0x00f2}
0x2990…29bc Head {h00=0x0028, h01=0x0050, text=»SEGREC EQU 6 RECORD LENGTH IN S:GTAB«, t00=0x001a, t01=0x00fe}
0x29bc…29f8 Head {h00=0x0038, h01=0x0050, text=»NUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN S:GTAB«, t00=0x001a, t01=0x012a}
0x29f8…2a00 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0166}
0x2a00…2a20 Head {h00=0x001c, h01=0x0050, text=»TTBTID EQU 2 TID IN TTAB«, t00=0x001a, t01=0x016e}
0x2a20…2a52 Head {h00=0x002e, h01=0x0050, text=»T:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB «, t00=0x001a, t01=0x018e}
0x2a52…2a80 Head {h00=0x002a, h01=0x0050, text=»TTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB«, t00=0x001b, t01=0x0030}
0x2a80…2a88 Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x005e}
0x2a88…2ab4 Head {h00=0x0028, h01=0x0050, text=»NTPA EQU 4 INTERPRETER START ADDRESS«, t00=0x001b, t01=0x0066}
0x2ab4…2ade Head {h00=0x0026, h01=0x0050, text=»IHRTC EQU 4 RTC INTERRUPT ADDRESS «, t00=0x001b, t01=0x0092}
0x2ade…2b06 Head {h00=0x0024, h01=0x0050, text=»RTCDA EQU /1B RTC DEVICE ADDRESS«, t00=0x001b, t01=0x00bc}
0x2b06…2b12 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001b, t01=0x00e4}
0x2b12…2b54 Head {h00=0x003e, h01=0x0050, text=»TABLEN EQU 20 LENGTH OF EACH APL.TABLE IN SCRATCH-PAD AREA«, t00=0x001b, t01=0x00f0}
0x2b54…2b86 Head {h00=0x002e, h01=0x0050, text=»ACBLEN EQU 26 APPL.CONTROL BLOCK LENGTH =1«, t00=0x001b, t01=0x0132}
0x2b86…2b92 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001b, t01=0x0164}
0x2b92…2bdc Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x001b, t01=0x0170}
0x2bdc…2c26 Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x001c, t01=0x002a}
0x2c26…2c70 Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x001c, t01=0x0074}
0x2c70…2cba Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x001c, t01=0x00be}
0x2cba…2d04 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x001c, t01=0x0108}
0x2d04…2d10 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001c, t01=0x0152}
0x2d10…2d1c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001c, t01=0x015e}
0x2d1c…2d28 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001c, t01=0x016a}
0x2d28…2d46 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x001c, t01=0x0176}
0x2d46…2d54 (29, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0004}
0x2d54…2d6c Head {h00=0x0014, h01=0x0050, text=» LDKL A1,SYSINI «, t00=0x001d, t01=0x0012}
0x2d6c…2d88 Head {h00=0x0018, h01=0x0050, text=» AD A1,M:REL+STKCOM «, t00=0x001d, t01=0x002a}
0x2d88…2dae Head {h00=0x0022, h01=0x0050, text=» ABR A1 GO TO START OF SYSINI «, t00=0x001d, t01=0x0046}
0x2dae…2dbc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x006c}
0x2dbc…2dc8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001d, t01=0x007a}
0x2dc8…2e02 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x001d, t01=0x0086}
0x2e02…2e3c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x001d, t01=0x00c0}
0x2e3c…2e76 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x001d, t01=0x00fa}
0x2e76…2eb0 Head {h00=0x0036, h01=0x0050, text=»** RELOCATION ROUTINE & STACK INITIALLISATION **«, t00=0x001d, t01=0x0134}
0x2eb0…2eea Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x001d, t01=0x016e}
0x2eea…2f24 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x001e, t01=0x0018}
0x2f24…2f5e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x001e, t01=0x0052}
0x2f5e…2f6a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001e, t01=0x008c}
0x2f6a…2f9a Head {h00=0x002c, h01=0x0050, text=»REL RF SUBBA JUMP TO SUBROUTINE HANDLER «, t00=0x001e, t01=0x0098}
0x2f9a…2fc4 Head {h00=0x0026, h01=0x0050, text=» LDR A13,P GET BASE ADDRESS TO A13«, t00=0x001e, t01=0x00c8}
0x2fc4…2fd8 Head {h00=0x0010, h01=0x0050, text=» SUKL A13,4 «, t00=0x001e, t01=0x00f2}
0x2fd8…2ffa Head {h00=0x001e, h01=0x0050, text=»* ADJUST FOR PSW-ROUTINE *«, t00=0x001e, t01=0x0106}
0x2ffa…301c Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x001e, t01=0x0128}
0x301c…3054 Head {h00=0x0034, h01=0x0050, text=» LDK A3,GETPSW RELATIVE ADDRESS TO 'PSW-ADDRESS'«, t00=0x001e, t01=0x014a}
0x3054…3074 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A13 ABSOLUT DITO«, t00=0x001e, t01=0x0182}
0x3074…30ac Head {h00=0x0034, h01=0x0050, text=» ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE«, t00=0x001f, t01=0x0012}
0x30ac…30c6 Head {h00=0x0016, h01=0x0050, text=»* LOAD STACKBASE *«, t00=0x001f, t01=0x004a}
0x30c6…30e0 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x001f, t01=0x0064}
0x30e0…30e8 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x007e}
0x30e8…3100 Head {h00=0x0014, h01=0x0050, text=» LDKL A14,STACKB«, t00=0x001f, t01=0x0086}
0x3100…311e Head {h00=0x001a, h01=0x0050, text=» ADR A14,A13 RELOCATE «, t00=0x001f, t01=0x009e}
0x311e…312e Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x001f, t01=0x00bc}
0x312e…313a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x00cc}
0x313a…3146 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x00d8}
0x3146…3158 Head {h00=0x000e, h01=0x0050, text=»* STACK * «, t00=0x001f, t01=0x00e4}
0x3158…316a Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001f, t01=0x00f6}
0x316a…3174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0108}
0x3174…3184 Head {h00=0x000c, h01=0x0050, text=» RES 20 «, t00=0x001f, t01=0x0112}
0x3184…319e Head {h00=0x0016, h01=0x0050, text=»STACKB EQU *-REL-2«, t00=0x001f, t01=0x0122}
0x319e…31ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x013c}
0x31ac…31b8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x014a}
0x31b8…31c4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x0156}
0x31c4…31e6 Head {h00=0x001e, h01=0x0050, text=»* ADDRESS TO PSW-ROUTINE *«, t00=0x001f, t01=0x0162}
0x31e6…3208 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x001f, t01=0x0184}
0x3208…3212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0016}
0x3212…3228 Head {h00=0x0012, h01=0x0050, text=»PSW EQU *-REL «, t00=0x0020, t01=0x0020}
0x3228…323c Head {h00=0x0010, h01=0x0050, text=» DATA GETPSW«, t00=0x0020, t01=0x0036}
0x323c…3248 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0020, t01=0x004a}
0x3248…3290 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0020, t01=0x0056}
0x3290…32d8 Head {h00=0x0044, h01=0x0050, text=»* G E T P S W *«, t00=0x0020, t01=0x009e}
0x32d8…3320 Head {h00=0x0044, h01=0x0050, text=»* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE *«, t00=0x0020, t01=0x00e6}
0x3320…3368 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0020, t01=0x012e}
0x3368…3374 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0020, t01=0x0176}
0x3374…338c Head {h00=0x0014, h01=0x0050, text=»GETPSW EQU *-REL«, t00=0x0020, t01=0x0182}
0x338c…33b4 Head {h00=0x0024, h01=0x0050, text=» STR A2,A14 SAVE A2 ON A14-STACK«, t00=0x0021, t01=0x000a}
0x33b4…33e8 Head {h00=0x0030, h01=0x0050, text=» LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE«, t00=0x0021, t01=0x0032}
0x33e8…341a Head {h00=0x002e, h01=0x0050, text=» ST A2,6,A14 REPLACE PSW FROM MAIN PROGRAM«, t00=0x0021, t01=0x0066}
0x341a…343a Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A14 RESTORE A2 «, t00=0x0021, t01=0x0098}
0x343a…344a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x00b8}
0x344a…3458 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00c8}
0x3458…3460 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00d6}
0x3460…348a Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0021, t01=0x00de}
0x348a…34b4 Head {h00=0x0026, h01=0x0050, text=»* * «, t00=0x0021, t01=0x0108}
0x34b4…34de Head {h00=0x0026, h01=0x0050, text=»* SUBROUTINE-HANDLER * «, t00=0x0021, t01=0x0132}
0x34de…3508 Head {h00=0x0026, h01=0x0050, text=»* * «, t00=0x0021, t01=0x015c}
0x3508…3532 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0021, t01=0x0186}
0x3532…353a Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0020}
0x353a…3552 Head {h00=0x0014, h01=0x0050, text=»SUBSUB EQU *-REL«, t00=0x0022, t01=0x0028}
0x3552…357c Head {h00=0x0026, h01=0x0050, text=»SUBBA ST A10,COM04+STKCOM SAVE A10«, t00=0x0022, t01=0x0040}
0x357c…35ae Head {h00=0x002e, h01=0x0050, text=» LD* A10,4,A14 GET SUBROUTINE REL ADDRESS «, t00=0x0022, t01=0x006a}
0x35ae…35d6 Head {h00=0x0024, h01=0x0050, text=» IM 4,A14 ADJUST RETURN ADDRESS «, t00=0x0022, t01=0x009c}
0x35d6…35e8 Head {h00=0x000e, h01=0x0050, text=» IM 4,A14 «, t00=0x0022, t01=0x00c4}
0x35e8…361e Head {h00=0x0032, h01=0x0050, text=» AD A10,M:REL+STKCOM ADD FOR SYSLDM RELOCATION«, t00=0x0022, t01=0x00d6}
0x361e…3640 Head {h00=0x001e, h01=0x0050, text=» STR A10,A14 PUT ON STACK «, t00=0x0022, t01=0x010c}
0x3640…3668 Head {h00=0x0024, h01=0x0050, text=» LD A10,COM04+STKCOM RESTORE A10«, t00=0x0022, t01=0x012e}
0x3668…367a Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x0022, t01=0x0156}
0x367a…3682 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0168}
0x3682…368a Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0170}
0x368a…3692 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0178}
0x3692…36a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0180}
0x36a0…36a8 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x018e}
0x36a8…36be Head {h00=0x0012, h01=0x0050, text=»* MMU TABLES *«, t00=0x0023, t01=0x0008}
0x36be…36c6 Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x001e}
0x36c6…36ce Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x0026}
0x36ce…3700 Head {h00=0x002e, h01=0x0050, text=»MMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE «, t00=0x0023, t01=0x002e}
0x3700…3716 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0023, t01=0x0060}
0x3716…3726 Head {h00=0x000c, h01=0x0050, text=» RES 16 «, t00=0x0023, t01=0x0076}
0x3726…3732 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0086}
0x3732…373a Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x0092}
0x373a…3762 Head {h00=0x0024, h01=0x0050, text=»MMTAB EQU *-REL WORK AREA MM-TAB«, t00=0x0023, t01=0x009a}
0x3762…3776 Head {h00=0x0010, h01=0x0050, text=»TABBE EQU * «, t00=0x0023, t01=0x00c2}
0x3776…378c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0023, t01=0x00d6}
0x378c…37aa Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0023, t01=0x00ec}
0x37aa…37c8 Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0023, t01=0x010a}
0x37c8…37d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0128}
0x37d4…37e8 Head {h00=0x0010, h01=0x0050, text=»MMEND EQU * «, t00=0x0023, t01=0x0134}
0x37e8…3814 Head {h00=0x0028, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE IN T:A «, t00=0x0023, t01=0x0148}
0x3814…384c Head {h00=0x0034, h01=0x0050, text=»TTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB «, t00=0x0023, t01=0x0174}
0x384c…385c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0024, t01=0x001c}
0x385c…3890 Head {h00=0x0030, h01=0x0050, text=»LSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER'«, t00=0x0024, t01=0x002c}
0x3890…38bc Head {h00=0x0028, h01=0x0050, text=» DATA 0 APPL. CONTROL BLOCK ADDRESS «, t00=0x0024, t01=0x0060}
0x38bc…38c4 Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x008c}
0x38c4…38de Head {h00=0x0016, h01=0x0050, text=»MMBEG EQU TABBE-* «, t00=0x0024, t01=0x0094}
0x38de…38ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x00ae}
0x38ec…38f8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0024, t01=0x00bc}
0x38f8…3932 Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x0024, t01=0x00c8}
0x3932…396c Head {h00=0x0036, h01=0x0050, text=»*** S U B R O U T I N E S *** «, t00=0x0024, t01=0x0102}
0x396c…39a6 Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x0024, t01=0x013c}
0x39a6…39e0 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0024, t01=0x0176}
0x39e0…3a1a Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0025, t01=0x0020}
0x3a1a…3a26 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0025, t01=0x005a}
0x3a26…3a32 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0025, t01=0x0066}
0x3a32…3a62 Head {h00=0x002c, h01=0x0050, text=»** E R R O R **«, t00=0x0025, t01=0x0072}
0x3a62…3a92 Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0025, t01=0x00a2}
0x3a92…3ac2 Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0025, t01=0x00d2}
0x3ac2…3af2 Head {h00=0x002c, h01=0x0050, text=»** ERROR HANDLING ROUTINE. **«, t00=0x0025, t01=0x0102}
0x3af2…3b22 Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0025, t01=0x0132}
0x3b22…3b52 Head {h00=0x002c, h01=0x0050, text=»** INPUT :A1=SOP-MESSAGE **«, t00=0x0025, t01=0x0162}
0x3b52…3b82 (38, 0, 400) Head {h00=0x002c, h01=0x0050, text=»** OUTPUT:A2=RELATIVE CALLING ADDRESS**«, t00=0x0026, t01=0x0004}
0x3b82…3bb2 Head {h00=0x002c, h01=0x0050, text=»** (REG-CONTENTS IS SAVED) **«, t00=0x0026, t01=0x0034}
0x3bb2…3be2 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0026, t01=0x0064}
0x3be2…3bea Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x0094}
0x3bea…3bfe Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x0026, t01=0x009c}
0x3bfe…3c22 Head {h00=0x0020, h01=0x0050, text=» ST A2,COM01+STKCOM SAVE A2 «, t00=0x0026, t01=0x00b0}
0x3c22…3c54 Head {h00=0x002e, h01=0x0050, text=» LD A2,4,A14 GET CALLING ABSOLUTE ADDRESS «, t00=0x0026, t01=0x00d4}
0x3c54…3c76 Head {h00=0x001e, h01=0x0050, text=» SUR A2,A13 RELATIVE DITO «, t00=0x0026, t01=0x0106}
0x3c76…3c8c Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x0026, t01=0x0128}
0x3c8c…3c98 Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x0026, t01=0x013e}
0x3c98…3cbe Head {h00=0x0022, h01=0x0050, text=» DATA /6300 (DEBUGGING PURPOS)«, t00=0x0026, t01=0x014a}
0x3cbe…3ccc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0170}
0x3ccc…3cd4 Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x017e}
0x3cd4…3d00 Head {h00=0x0028, h01=0x0050, text=»** P U S H **«, t00=0x0026, t01=0x0186}
0x3d00…3d2c Head {h00=0x0028, h01=0x0050, text=»** **«, t00=0x0027, t01=0x0022}
0x3d2c…3d58 Head {h00=0x0028, h01=0x0050, text=»** **«, t00=0x0027, t01=0x004e}
0x3d58…3d84 Head {h00=0x0028, h01=0x0050, text=»** STORE REGISTERS ON A15-STACK **«, t00=0x0027, t01=0x007a}
0x3d84…3db0 Head {h00=0x0028, h01=0x0050, text=»** **«, t00=0x0027, t01=0x00a6}
0x3db0…3ddc Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0027, t01=0x00d2}
0x3ddc…3dee Head {h00=0x000e, h01=0x0050, text=»PUSH EQU *«, t00=0x0027, t01=0x00fe}
0x3dee…3e04 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0027, t01=0x0110}
0x3e04…3e20 Head {h00=0x0018, h01=0x0050, text=» STR A1,A15 SAVE A1 «, t00=0x0027, t01=0x0126}
0x3e20…3e3c Head {h00=0x0018, h01=0x0050, text=» STR A2,A15 SAVE A2 «, t00=0x0027, t01=0x0142}
0x3e3c…3e58 Head {h00=0x0018, h01=0x0050, text=» STR A3,A15 SAVE A3 «, t00=0x0027, t01=0x015e}
0x3e58…3e74 Head {h00=0x0018, h01=0x0050, text=» STR A4,A15 SAVE A4 «, t00=0x0027, t01=0x017a}
0x3e74…3e90 Head {h00=0x0018, h01=0x0050, text=» STR A5,A15 SAVE A5 «, t00=0x0028, t01=0x0008}
0x3e90…3eac Head {h00=0x0018, h01=0x0050, text=» STR A6,A15 SAVE A6 «, t00=0x0028, t01=0x0024}
0x3eac…3ec8 Head {h00=0x0018, h01=0x0050, text=» STR A7,A15 SAVE A7 «, t00=0x0028, t01=0x0040}
0x3ec8…3ee4 Head {h00=0x0018, h01=0x0050, text=» STR A8,A15 SAVE A8 «, t00=0x0028, t01=0x005c}
0x3ee4…3f00 Head {h00=0x0018, h01=0x0050, text=» STR A9,A15 SAVE A9 «, t00=0x0028, t01=0x0078}
0x3f00…3f1e Head {h00=0x001a, h01=0x0050, text=» STR A10,A15 SAVE A10 «, t00=0x0028, t01=0x0094}
0x3f1e…3f3c Head {h00=0x001a, h01=0x0050, text=» STR A11,A15 SAVE A11 «, t00=0x0028, t01=0x00b2}
0x3f3c…3f5a Head {h00=0x001a, h01=0x0050, text=» STR A12,A15 SAVE A12 «, t00=0x0028, t01=0x00d0}
0x3f5a…3f78 Head {h00=0x001a, h01=0x0050, text=» STR A13,A15 SAVE A13 «, t00=0x0028, t01=0x00ee}
0x3f78…3f96 Head {h00=0x001a, h01=0x0050, text=» STR A14,A15 SAVE A14 «, t00=0x0028, t01=0x010c}
0x3f96…3fa2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x012a}
0x3fa2…3fb8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0028, t01=0x0136}
0x3fb8…3fe4 Head {h00=0x0028, h01=0x0050, text=» MSR 14,A15 SAVE A1-A14 ON A15-STACK«, t00=0x0028, t01=0x014c}
0x3fe4…3ff0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0178}
0x3ff0…4000 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x0184}
0x4000…400e (41, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0004}
0x400e…4016 Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x0012}
0x4016…4032 Head {h00=0x0018, h01=0x0050, text=»** P O B «, t00=0x0029, t01=0x001a}
0x4032…403c Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0029, t01=0x0036}
0x403c…4046 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0029, t01=0x0040}
0x4046…4076 Head {h00=0x002c, h01=0x0050, text=»** RESTORE REGISTERS FROM A15-STACK **«, t00=0x0029, t01=0x004a}
0x4076…40a6 Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0029, t01=0x007a}
0x40a6…40d6 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0029, t01=0x00aa}
0x40d6…40de Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x00da}
0x40de…40f0 Head {h00=0x000e, h01=0x0050, text=»POB EQU * «, t00=0x0029, t01=0x00e2}
0x40f0…4106 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0029, t01=0x00f4}
0x4106…4126 Head {h00=0x001c, h01=0x0050, text=» LDR* A14,A15 RESTORE A1«, t00=0x0029, t01=0x010a}
0x4126…4146 Head {h00=0x001c, h01=0x0050, text=» LDR* A13,A15 RESTORE A2«, t00=0x0029, t01=0x012a}
0x4146…4166 Head {h00=0x001c, h01=0x0050, text=» LDR* A12,A15 RESTORE A3«, t00=0x0029, t01=0x014a}
0x4166…4186 Head {h00=0x001c, h01=0x0050, text=» LDR* A11,A15 RESTORE A4«, t00=0x0029, t01=0x016a}
0x4186…41a6 Head {h00=0x001c, h01=0x0050, text=» LDR* A10,A15 RESTORE A5«, t00=0x0029, t01=0x018a}
0x41a6…41c6 Head {h00=0x001c, h01=0x0050, text=» LDR* A9,A15 RESTORE A6 «, t00=0x002a, t01=0x001a}
0x41c6…41e6 Head {h00=0x001c, h01=0x0050, text=» LDR* A8,A15 RESTORE A7 «, t00=0x002a, t01=0x003a}
0x41e6…4206 Head {h00=0x001c, h01=0x0050, text=» LDR* A7,A15 RESTORE A8 «, t00=0x002a, t01=0x005a}
0x4206…4226 Head {h00=0x001c, h01=0x0050, text=» LDR* A6,A15 RESTORE A9 «, t00=0x002a, t01=0x007a}
0x4226…4246 Head {h00=0x001c, h01=0x0050, text=» LDR* A5,A15 RESTORE A10«, t00=0x002a, t01=0x009a}
0x4246…4266 Head {h00=0x001c, h01=0x0050, text=» LDR* A4,A15 RESTORE A11«, t00=0x002a, t01=0x00ba}
0x4266…4286 Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A15 RESTORE A12«, t00=0x002a, t01=0x00da}
0x4286…42a6 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A15 RESTORE A13«, t00=0x002a, t01=0x00fa}
0x42a6…42c6 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A15 RESTORE A14«, t00=0x002a, t01=0x011a}
0x42c6…42d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x013a}
0x42d2…42e8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002a, t01=0x0146}
0x42e8…431a Head {h00=0x002e, h01=0x0050, text=» MLR 14,A15 RESTORE A1-A14 FROM A15-STACK «, t00=0x002a, t01=0x015c}
0x431a…4326 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x018e}
0x4326…4336 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002b, t01=0x000a}
0x4336…4344 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x001a}
0x4344…434c Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0028}
0x434c…4376 Head {h00=0x0026, h01=0x0050, text=»** M O V E ** «, t00=0x002b, t01=0x0030}
0x4376…43a0 Head {h00=0x0026, h01=0x0050, text=»** ** «, t00=0x002b, t01=0x005a}
0x43a0…43ca Head {h00=0x0026, h01=0x0050, text=»** ** «, t00=0x002b, t01=0x0084}
0x43ca…43f4 Head {h00=0x0026, h01=0x0050, text=»** MOVE BLOCKS INSIDE MEMORY ** «, t00=0x002b, t01=0x00ae}
0x43f4…441e Head {h00=0x0026, h01=0x0050, text=»** ** «, t00=0x002b, t01=0x00d8}
0x441e…4448 Head {h00=0x0026, h01=0x0050, text=»** INPUT:A1=FROM-ADDRESS ** «, t00=0x002b, t01=0x0102}
0x4448…4472 Head {h00=0x0026, h01=0x0050, text=»** A2=TO-ADDRESS ** «, t00=0x002b, t01=0x012c}
0x4472…449c Head {h00=0x0026, h01=0x0050, text=»** A3=LENGTH ** «, t00=0x002b, t01=0x0156}
0x449c…44c6 Head {h00=0x0026, h01=0x0050, text=»** OUTPUT:A3=-1 ** «, t00=0x002b, t01=0x0180}
0x44c6…44f0 Head {h00=0x0026, h01=0x0050, text=»** WORK-REG: A4 ** «, t00=0x002c, t01=0x001a}
0x44f0…451a Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002c, t01=0x0044}
0x451a…4526 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x002c, t01=0x006e}
0x4526…4538 Head {h00=0x000e, h01=0x0050, text=»MOVE EQU *«, t00=0x002c, t01=0x007a}
0x4538…4560 Head {h00=0x0024, h01=0x0050, text=»MOVES ADR A1,A3 END OF FROM AREA«, t00=0x002c, t01=0x008c}
0x4560…4582 Head {h00=0x001e, h01=0x0050, text=» ADR A2,A3 END OF TO-AREA «, t00=0x002c, t01=0x00b4}
0x4582…45a4 Head {h00=0x001e, h01=0x0050, text=»MOVE10 SUK A3,1 DEC LENGTH«, t00=0x002c, t01=0x00d6}
0x45a4…45c2 Head {h00=0x001a, h01=0x0050, text=» RF(N) MOVE20 ALL DONE«, t00=0x002c, t01=0x00f8}
0x45c2…45d4 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002c, t01=0x0116}
0x45d4…45e6 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x002c, t01=0x0128}
0x45e6…4606 Head {h00=0x001c, h01=0x0050, text=» LCR A4,A1 GET CHARACTER«, t00=0x002c, t01=0x013a}
0x4606…4628 Head {h00=0x001e, h01=0x0050, text=» SCR A4,A2 STORE CHARACTER«, t00=0x002c, t01=0x015a}
0x4628…463a Head {h00=0x000e, h01=0x0050, text=» RB MOVE10«, t00=0x002c, t01=0x017c}
0x463a…4650 Head {h00=0x0012, h01=0x0050, text=»MOVE20 RTN A14«, t00=0x002c, t01=0x018e}
0x4650…4666 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x002d, t01=0x0014}
0x4666…4674 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x002a}
0x4674…4680 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x002d, t01=0x0038}
0x4680…468c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x002d, t01=0x0044}
0x468c…46c4 Head {h00=0x0034, h01=0x0050, text=»** M O V I N G ** «, t00=0x002d, t01=0x0050}
0x46c4…46fc Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x002d, t01=0x0088}
0x46fc…4734 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x002d, t01=0x00c0}
0x4734…476c Head {h00=0x0034, h01=0x0050, text=»** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** «, t00=0x002d, t01=0x00f8}
0x476c…47a4 Head {h00=0x0034, h01=0x0050, text=»** ASSUMED TO BE DATA-PART OF MEMORY ** «, t00=0x002d, t01=0x0130}
0x47a4…47dc Head {h00=0x0034, h01=0x0050, text=»** LSTADR POINTS AT LAST (HIGHEST) FREE ** «, t00=0x002d, t01=0x0168}
0x47dc…4814 Head {h00=0x0034, h01=0x0050, text=»** ADDRESS. LSTADR IS UPDATED AND CHECKED ** «, t00=0x002e, t01=0x0010}
0x4814…484c Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x002e, t01=0x0048}
0x484c…4884 Head {h00=0x0034, h01=0x0050, text=»** INPUT:A3 & A1 AS IN 'MOVE' ** «, t00=0x002e, t01=0x0080}
0x4884…48bc Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** «, t00=0x002e, t01=0x00b8}
0x48bc…48f4 Head {h00=0x0034, h01=0x0050, text=»** WORK-REG: A4 ** «, t00=0x002e, t01=0x00f0}
0x48f4…492c Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x002e, t01=0x0128}
0x492c…4938 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x002e, t01=0x0160}
0x4938…494c Head {h00=0x0010, h01=0x0050, text=»MOVING EQU *«, t00=0x002e, t01=0x016c}
0x494c…497c Head {h00=0x002c, h01=0x0050, text=» CALL PUSH STORE REGISTERS ON A15-STACK «, t00=0x002e, t01=0x0180}
0x497c…49aa Head {h00=0x002a, h01=0x0050, text=» LD A2,LSTADR+STKCOM GET LAST ADDRESS «, t00=0x002f, t01=0x0020}
0x49aa…49bc Head {h00=0x000e, h01=0x0050, text=» LDR A9,A2«, t00=0x002f, t01=0x004e}
0x49bc…49d0 Head {h00=0x0010, h01=0x0050, text=» LDR A11,A3 «, t00=0x002f, t01=0x0060}
0x49d0…49fa Head {h00=0x0026, h01=0x0050, text=» CALL CMPADR ENOUGTH MEMORY LEFT? «, t00=0x002f, t01=0x0074}
0x49fa…4a14 Head {h00=0x0016, h01=0x0050, text=» RF(NL) MOV010 NO!«, t00=0x002f, t01=0x009e}
0x4a14…4a32 Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 SUB LENGTH «, t00=0x002f, t01=0x00b8}
0x4a32…4a5a Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x002f, t01=0x00d6}
0x4a5a…4a6e Head {h00=0x0010, h01=0x0050, text=» LDR A11,A2 «, t00=0x002f, t01=0x00fe}
0x4a6e…4aa0 Head {h00=0x002e, h01=0x0050, text=» LD A9,DATEND+STKCOM END OF PROTOTYP AREA «, t00=0x002f, t01=0x0112}
0x4aa0…4ac6 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x002f, t01=0x0144}
0x4ac6…4adc Head {h00=0x0012, h01=0x0050, text=» RF(NL) MOV020«, t00=0x002f, t01=0x016a}
0x4adc…4b08 Head {h00=0x0028, h01=0x0050, text=»MOV010 LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x002f, t01=0x0180}
0x4b08…4b1c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0030, t01=0x001c}
0x4b1c…4b58 Head {h00=0x0038, h01=0x0050, text=»MOV020 LD A9,FSTADR+STKCOM CHECK FIRST FREE ADDRESS «, t00=0x0030, t01=0x0030}
0x4b58…4b6c Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x0030, t01=0x006c}
0x4b6c…4b82 Head {h00=0x0012, h01=0x0050, text=» RB(L) MOV010 «, t00=0x0030, t01=0x0080}
0x4b82…4baa Head {h00=0x0024, h01=0x0050, text=» ST A2,LSTADR+STKCOM NEW ADDRESS«, t00=0x0030, t01=0x0096}
0x4baa…4bdc Head {h00=0x002e, h01=0x0050, text=» CALL POB RESTORE REGISTERS FROM A15-STACK«, t00=0x0030, t01=0x00be}
0x4bdc…4bf8 Head {h00=0x0018, h01=0x0050, text=» LD A2,LSTADR+STKCOM«, t00=0x0030, t01=0x00f0}
0x4bf8…4c0a Head {h00=0x000e, h01=0x0050, text=» RB MOVES «, t00=0x0030, t01=0x010c}
0x4c0a…4c16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x011e}
0x4c16…4c24 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x012a}
0x4c24…4c2c Head {h00=0x0004, h01=0x0001, t00=0x0030, t01=0x0138}
0x4c2c…4c64 Head {h00=0x0034, h01=0x0050, text=»** X M O V E **«, t00=0x0030, t01=0x0140}
0x4c64…4c9c Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0030, t01=0x0178}
0x4c9c…4cd4 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0031, t01=0x0020}
0x4cd4…4d0c Head {h00=0x0034, h01=0x0050, text=»** MOVE BLOCK INSIDE MEMORY VIA MMU **«, t00=0x0031, t01=0x0058}
0x4d0c…4d44 Head {h00=0x0034, h01=0x0050, text=»** TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) **«, t00=0x0031, t01=0x0090}
0x4d44…4d7c Head {h00=0x0034, h01=0x0050, text=»** -MOVE TO USER AREA **«, t00=0x0031, t01=0x00c8}
0x4d7c…4db4 Head {h00=0x0034, h01=0x0050, text=»** IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT**«, t00=0x0031, t01=0x0100}
0x4db4…4dec Head {h00=0x0034, h01=0x0050, text=»** BIG ENOUGH THE MOVE IS REPEATED **«, t00=0x0031, t01=0x0138}
0x4dec…4e24 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0031, t01=0x0170}
0x4e24…4e5c Head {h00=0x0034, h01=0x0050, text=»** INPUT :A1=FROM-ADDR(MMFROM=MM-TABLE ADDR.)**«, t00=0x0032, t01=0x0018}
0x4e5c…4e94 Head {h00=0x0034, h01=0x0050, text=»** A2=TO-ADDRESS (MMTO=MM-TABLE ADDR.)**«, t00=0x0032, t01=0x0050}
0x4e94…4ecc Head {h00=0x0034, h01=0x0050, text=»** A3=LENGTH (IN BYTES) **«, t00=0x0032, t01=0x0088}
0x4ecc…4f04 Head {h00=0x0034, h01=0x0050, text=»** WORK.REGS:A4,A10 **«, t00=0x0032, t01=0x00c0}
0x4f04…4f3c Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0032, t01=0x00f8}
0x4f3c…4f44 Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x0130}
0x4f44…4f58 Head {h00=0x0010, h01=0x0050, text=»XMOVE EQU * «, t00=0x0032, t01=0x0138}
0x4f58…4f6e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0032, t01=0x014c}
0x4f6e…4f9e Head {h00=0x002c, h01=0x0050, text=» CALL PUSH STORE REGISTERS ON A15-STACK «, t00=0x0032, t01=0x0162}
0x4f9e…4fba (51, 0, 400) Head {h00=0x0018, h01=0x0050, text=» ST A1,COM01+STKCOM «, t00=0x0033, t01=0x0004}
0x4fba…4fd6 Head {h00=0x0018, h01=0x0050, text=» ST A2,COM02+STKCOM «, t00=0x0033, t01=0x0020}
0x4fd6…4ff2 Head {h00=0x0018, h01=0x0050, text=» ST A3,COM03+STKCOM «, t00=0x0033, t01=0x003c}
0x4ff2…5006 Head {h00=0x0010, h01=0x0050, text=»XMOV05 EQU *«, t00=0x0033, t01=0x0058}
0x5006…5026 Head {h00=0x001c, h01=0x0017, text=» LDR A10,A3 SAVE LENGTH «, t00=0x0033, t01=0x006c}
0x5026…5056 Head {h00=0x002c, h01=0x0028, text=» LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER«, t00=0x0033, t01=0x008c}
0x5056…5084 Head {h00=0x002a, h01=0x0050, text=» LDR A11,A3 GET LENGTH OF AREA TO MOVE«, t00=0x0033, t01=0x00bc}
0x5084…50ba Head {h00=0x0032, h01=0x0050, text=» LD A9,BUFSIZ+STKCOM GET TEMPORARY BUFFER SIZE«, t00=0x0033, t01=0x00ea}
0x50ba…50ec Head {h00=0x002e, h01=0x0050, text=» CALL CMPADR TEMPORARY BUFFER BIG ENOUGTH «, t00=0x0033, t01=0x0120}
0x50ec…5112 Head {h00=0x0022, h01=0x001d, text=» RF(G) SPLIT NO! SEVERAL MOVE «, t00=0x0033, t01=0x0152}
0x5112…5136 Head {h00=0x0020, h01=0x0050, text=»XMOV10 LDR A3,A10 GET LENGTH«, t00=0x0033, t01=0x0178}
0x5136…5162 Head {h00=0x0028, h01=0x0050, text=» LD A1,COM01+STKCOM GET FROM ADDRESS«, t00=0x0034, t01=0x000c}
0x5162…519e Head {h00=0x0038, h01=0x0050, text=» LD A2,SYSBUF+STKCOM GET TEMP. BUFFER START-ADDRESS «, t00=0x0034, t01=0x0038}
0x519e…51c8 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM+STKCOM LOAD FROM-TABLE«, t00=0x0034, t01=0x0074}
0x51c8…51f8 Head {h00=0x002c, h01=0x0028, text=» MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER«, t00=0x0034, t01=0x009e}
0x51f8…522e Head {h00=0x0032, h01=0x0050, text=» ST A1,COM01+STKCOM SAVE END OF 'FROM' ADDRESS«, t00=0x0034, t01=0x00ce}
0x522e…524a Head {h00=0x0018, h01=0x0050, text=» LD A1,SYSBUF+STKCOM«, t00=0x0034, t01=0x0104}
0x524a…5280 Head {h00=0x0032, h01=0x0050, text=» LD A2,COM02+STKCOM GET START OF 'TO' ADDRESS «, t00=0x0034, t01=0x0120}
0x5280…529e Head {h00=0x001a, h01=0x0016, text=» LDR A3,A10 GET LENGTH«, t00=0x0034, t01=0x0156}
0x529e…52c4 Head {h00=0x0022, h01=0x0050, text=» TL* MMTO+STKCOM LOAD TO-TABLE«, t00=0x0034, t01=0x0174}
0x52c4…52f0 Head {h00=0x0028, h01=0x0024, text=» MVSU A3 MOVE DATA-BLOCK FROM BUFFER«, t00=0x0035, t01=0x000a}
0x52f0…5316 Head {h00=0x0022, h01=0x001d, text=» SUK A4,1 MORE PARTS TO MOVE? «, t00=0x0035, t01=0x0036}
0x5316…5330 Head {h00=0x0016, h01=0x0050, text=» RF(N) XMOV30 NO! «, t00=0x0035, t01=0x005c}
0x5330…5344 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A10 «, t00=0x0035, t01=0x0076}
0x5344…537a Head {h00=0x0032, h01=0x0050, text=» ST A2,COM02+STKCOM SAVE START OF 'TO' ADDRESS«, t00=0x0035, t01=0x008a}
0x537a…53aa Head {h00=0x002c, h01=0x0050, text=» LD A3,COM03+STKCOM GET REQUESTED LENGTH«, t00=0x0035, t01=0x00c0}
0x53aa…53d2 Head {h00=0x0024, h01=0x001f, text=» SUR A3,A10 SUBTRACT MOVED PART «, t00=0x0035, t01=0x00f0}
0x53d2…53f2 Head {h00=0x001c, h01=0x0050, text=» ST A3,COM03+STKCOM SAVE«, t00=0x0035, t01=0x0118}
0x53f2…541a Head {h00=0x0024, h01=0x0050, text=» LDR A11,A3 GET REMAINING LENGTH«, t00=0x0035, t01=0x0138}
0x541a…5448 Head {h00=0x002a, h01=0x0050, text=» LDR A9,A10 GET CURRENT BUFFER LENGTH «, t00=0x0035, t01=0x0160}
0x5448…5484 Head {h00=0x0038, h01=0x0050, text=» CALL CMPADR REMAINING LENGTH<CURRENT BUFFER LENGTH?«, t00=0x0035, t01=0x018e}
0x5484…549a Head {h00=0x0012, h01=0x0050, text=» RB(NL) XMOV10«, t00=0x0036, t01=0x003a}
0x549a…54ba Head {h00=0x001c, h01=0x0050, text=» LDR A10,A3 LAST LENGTH «, t00=0x0036, t01=0x0050}
0x54ba…54cc Head {h00=0x000e, h01=0x0050, text=» RB XMOV10«, t00=0x0036, t01=0x0070}
0x54cc…54da Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0036, t01=0x0082}
0x54da…54e2 Head {h00=0x0004, h01=0x0001, t00=0x0036, t01=0x0090}
0x54e2…54f6 Head {h00=0x0010, h01=0x000b, text=»SPLIT EQU * «, t00=0x0036, t01=0x0098}
0x54f6…5514 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 GET DIVISOR«, t00=0x0036, t01=0x00ac}
0x5514…5542 Head {h00=0x002a, h01=0x0050, text=» SRL A1,15 MOST SIGN. PART OF DIVISOR «, t00=0x0036, t01=0x00ca}
0x5542…5560 Head {h00=0x001a, h01=0x0016, text=» LDR A2,A3 GET DIVISOR«, t00=0x0036, t01=0x00f8}
0x5560…5584 Head {h00=0x0020, h01=0x0050, text=» DV BUFSIZ+STKCOM AND DIVIDE«, t00=0x0036, t01=0x0116}
0x5584…55ba Head {h00=0x0032, h01=0x0050, text=» LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1)«, t00=0x0036, t01=0x013a}
0x55ba…55e8 Head {h00=0x002a, h01=0x0050, text=» LD A10,BUFSIZ+STKCOM MOVE MAX LENGTH «, t00=0x0036, t01=0x0170}
0x55e8…55fa Head {h00=0x000e, h01=0x0050, text=» RB XMOV10«, t00=0x0037, t01=0x000e}
0x55fa…5602 Head {h00=0x0004, h01=0x0001, t00=0x0037, t01=0x0020}
0x5602…563a Head {h00=0x0034, h01=0x0050, text=»XMOV30 CALL POB RESTORE REGISTERS FROM A15-STACK«, t00=0x0037, t01=0x0028}
0x563a…564a Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0037, t01=0x0060}
0x564a…5658 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0037, t01=0x0070}
0x5658…5660 Head {h00=0x0004, h01=0x0001, t00=0x0037, t01=0x007e}
0x5660…5698 Head {h00=0x0034, h01=0x0050, text=»** M O V I N G ** «, t00=0x0037, t01=0x0086}
0x5698…56d0 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0037, t01=0x00be}
0x56d0…5708 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0037, t01=0x00f6}
0x5708…5740 Head {h00=0x0034, h01=0x0050, text=»** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** «, t00=0x0037, t01=0x012e}
0x5740…5778 Head {h00=0x0034, h01=0x0050, text=»** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** «, t00=0x0037, t01=0x0166}
0x5778…57b0 Head {h00=0x0034, h01=0x0050, text=»** IS ALWAYS ASSUMED TO BE DATA PART OF ** «, t00=0x0038, t01=0x000e}
0x57b0…57e8 Head {h00=0x0034, h01=0x0050, text=»** MEMORY. LSTADR & FYSPAG POINTS AT LAST ** «, t00=0x0038, t01=0x0046}
0x57e8…5820 Head {h00=0x0034, h01=0x0050, text=»** (HIGHEST) FREE ADDRESS. LSTADR &FYSPAG ** «, t00=0x0038, t01=0x007e}
0x5820…5858 Head {h00=0x0034, h01=0x0050, text=»** IS UPDATED AND CHECKED. ** «, t00=0x0038, t01=0x00b6}
0x5858…5890 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0038, t01=0x00ee}
0x5890…58c8 Head {h00=0x0034, h01=0x0050, text=»** INPUT :A1 & A3 AS IN 'XMOVE' ** «, t00=0x0038, t01=0x0126}
0x58c8…5900 Head {h00=0x0034, h01=0x0050, text=»** TTAB=POINTER TO TTAB (OR LIKELY) ** «, t00=0x0038, t01=0x015e}
0x5900…5938 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A2=LOGICALL TO-ADDRESS ** «, t00=0x0039, t01=0x0008}
0x5938…5970 Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS: A4,A10 ** «, t00=0x0039, t01=0x0040}
0x5970…59a8 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0039, t01=0x0078}
0x59a8…59b0 Head {h00=0x0004, h01=0x0050, t00=0x0039, t01=0x00b0}
0x59b0…59c4 Head {h00=0x0010, h01=0x0050, text=»MOVING EQU *«, t00=0x0039, t01=0x00b8}
0x59c4…59f4 Head {h00=0x002c, h01=0x0050, text=» CALL PUSH STORE REGISTERS ON A15-STACK «, t00=0x0039, t01=0x00cc}
0x59f4…5a28 Head {h00=0x0030, h01=0x0050, text=» LD A4,FYSPAG+STKCOM GET ACT. PHYSICALL PAGE«, t00=0x0039, t01=0x00fc}
0x5a28…5a56 Head {h00=0x002a, h01=0x0050, text=» LD A10,TTAB+STKCOM LOAD TTAB-ADDRESS «, t00=0x0039, t01=0x0130}
0x5a56…5a8c Head {h00=0x0032, h01=0x002e, text=» LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB«, t00=0x0039, t01=0x015e}
0x5a8c…5ab2 (58, 0, 400) Head {h00=0x0022, h01=0x001d, text=» LDR* A9,A2 GET PAGE IN TABLE «, t00=0x003a, t01=0x0004}
0x5ab2…5ac8 Head {h00=0x0012, h01=0x0050, text=» ANKL A9,/FC00«, t00=0x003a, t01=0x002a}
0x5ac8…5af6 Head {h00=0x002a, h01=0x0025, text=» CWR A9,A4 CORRECT PAGE IN MMU-TABLE? «, t00=0x003a, t01=0x0040}
0x5af6…5b10 Head {h00=0x0016, h01=0x0050, text=» RF(E) MOV010 YES!«, t00=0x003a, t01=0x006e}
0x5b10…5b3a Head {h00=0x0026, h01=0x0050, text=» ADKL A4,/400 ADJUST FOR 'SETTAB' «, t00=0x003a, t01=0x0088}
0x5b3a…5b62 Head {h00=0x0024, h01=0x0050, text=» CALL SETTAB NEW PAGE IN TABLE! «, t00=0x003a, t01=0x00b2}
0x5b62…5ba0 Head {h00=0x003a, h01=0x0050, text=»MOV010 LD A11,LSTADR+STKCOM GET LAST LOGICALL ADDRESS «, t00=0x003a, t01=0x00da}
0x5ba0…5bb6 Head {h00=0x0012, h01=0x000e, text=» ANKL A11,/FFF«, t00=0x003a, t01=0x0118}
0x5bb6…5be4 Head {h00=0x002a, h01=0x0050, text=» LDR A9,A3 GET LENGTH OF AREA TO MOVE «, t00=0x003a, t01=0x012e}
0x5be4…5c18 Head {h00=0x0030, h01=0x0050, text=» CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? «, t00=0x003a, t01=0x015c}
0x5c18…5c34 Head {h00=0x0018, h01=0x0050, text=» RF(NL) MOV020 YES! «, t00=0x003a, t01=0x0190}
0x5c34…5c64 Head {h00=0x002c, h01=0x0050, text=» SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE«, t00=0x003b, t01=0x001c}
0x5c64…5c80 Head {h00=0x0018, h01=0x0050, text=»MOV015 RF(NP) MOV025«, t00=0x003b, t01=0x004c}
0x5c80…5cae Head {h00=0x002a, h01=0x0050, text=» CALL SETTAB INITIALIZE NEW PAGE ENTRY«, t00=0x003b, t01=0x0068}
0x5cae…5cdc Head {h00=0x002a, h01=0x0050, text=» ADKL A11,4096 PHYSICAL PAGE INCREMENT«, t00=0x003b, t01=0x0096}
0x5cdc…5cee Head {h00=0x000e, h01=0x0050, text=» RB MOV015«, t00=0x003b, t01=0x00c4}
0x5cee…5d24 Head {h00=0x0032, h01=0x0050, text=»MOV020 SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE«, t00=0x003b, t01=0x00d6}
0x5d24…5d40 Head {h00=0x0018, h01=0x0050, text=»MOV025 RF(NN) MOV050«, t00=0x003b, t01=0x010c}
0x5d40…5d6e Head {h00=0x002a, h01=0x0050, text=»MOV030 CALL SETTAB NEW PAGE IN TABLE! «, t00=0x003b, t01=0x0128}
0x5d6e…5d98 Head {h00=0x0026, h01=0x0021, text=» ADKL A11,4096 NEW PAGE INCREMENT «, t00=0x003b, t01=0x0156}
0x5d98…5dc4 Head {h00=0x0028, h01=0x0050, text=» RB(N) MOV030 NOT ENOUGH. NEW PAGE! «, t00=0x003b, t01=0x0180}
0x5dc4…5dcc Head {h00=0x0004, h01=0x0050, t00=0x003c, t01=0x001c}
0x5dcc…5df8 Head {h00=0x0028, h01=0x0050, text=»* MM-TABLE CORRECT. SAVE ADDRESSES *«, t00=0x003c, t01=0x0024}
0x5df8…5e00 Head {h00=0x0004, h01=0x0050, t00=0x003c, t01=0x0050}
0x5e00…5e22 Head {h00=0x001e, h01=0x0050, text=»* A4=PHYSICALL PAGE NUMBER«, t00=0x003c, t01=0x0058}
0x5e22…5e46 Head {h00=0x0020, h01=0x0050, text=»* A11=DISPLACEM. WITHIN PAGE«, t00=0x003c, t01=0x007a}
0x5e46…5e6c Head {h00=0x0022, h01=0x0050, text=»* A2=CURRENT ENTRY IN MM-TABLE«, t00=0x003c, t01=0x009e}
0x5e6c…5e74 Head {h00=0x0004, h01=0x0001, t00=0x003c, t01=0x00c4}
0x5e74…5e88 Head {h00=0x0010, h01=0x0050, text=»MOV050 EQU *«, t00=0x003c, t01=0x00cc}
0x5e88…5eb8 Head {h00=0x002c, h01=0x0028, text=» ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB«, t00=0x003c, t01=0x00e0}
0x5eb8…5ef0 Head {h00=0x0034, h01=0x0050, text=» ST A4,FYSPAG+STKCOM SAVE PHYSICALL PAGE NUMBER «, t00=0x003c, t01=0x0110}
0x5ef0…5f28 Head {h00=0x0034, h01=0x0050, text=» LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. «, t00=0x003c, t01=0x0148}
0x5f28…5f52 Head {h00=0x0026, h01=0x0022, text=» ADR A4,A10 ABSOLUTE ENTRY ADDRESS«, t00=0x003c, t01=0x0180}
0x5f52…5f80 Head {h00=0x002a, h01=0x0050, text=» ST A4,MMTO+STKCOM SAVE TABLE ADDRESS «, t00=0x003d, t01=0x001a}
0x5f80…5fa4 Head {h00=0x0020, h01=0x001b, text=» SUR A2,A4 RELATIVE ADDRESS «, t00=0x003d, t01=0x0048}
0x5fa4…5fda Head {h00=0x0032, h01=0x0050, text=» SLL A2,11 SHIFT TO FOUR FIRST BITS & DIV BY 2«, t00=0x003d, t01=0x006c}
0x5fda…6008 Head {h00=0x002a, h01=0x0050, text=» ORR A2,A11 GET DISPLACEM. WITHIN PAGE«, t00=0x003d, t01=0x00a2}
0x6008…602c Head {h00=0x0020, h01=0x0050, text=» ANKL A2,/FFFE EVEN ADDRESS «, t00=0x003d, t01=0x00d0}
0x602c…605e Head {h00=0x002e, h01=0x0050, text=» ST A2,LSTADR+STKCOM SAVE LOGICALL ADDRESS«, t00=0x003d, t01=0x00f4}
0x605e…607a Head {h00=0x0018, h01=0x0050, text=»* CHECK ADDRESSES * «, t00=0x003d, t01=0x0126}
0x607a…6082 Head {h00=0x0004, h01=0x0050, t00=0x003d, t01=0x0142}
0x6082…60b2 Head {h00=0x002c, h01=0x0050, text=» LD A9,FSTPAG+STKCOM GET FIRST FREE PAGE«, t00=0x003d, t01=0x014a}
0x60b2…60d8 Head {h00=0x0022, h01=0x0050, text=» ST A11,COM01+STKCOM SAVE A11 «, t00=0x003d, t01=0x017a}
0x60d8…60f6 Head {h00=0x001a, h01=0x0050, text=» LD A11,FYSPAG+STKCOM «, t00=0x003e, t01=0x0010}
0x60f6…6116 Head {h00=0x001c, h01=0x0050, text=» CALL CMPADR AND COMPARE«, t00=0x003e, t01=0x002e}
0x6116…6130 Head {h00=0x0016, h01=0x0050, text=» RF(G) MOV090 OK! «, t00=0x003e, t01=0x004e}
0x6130…614a Head {h00=0x0016, h01=0x0050, text=» RF(L) MOV070 NOK!«, t00=0x003e, t01=0x0068}
0x614a…6176 Head {h00=0x0028, h01=0x0050, text=» LD A11,COM01+STKCOM RESTORE DISPL. «, t00=0x003e, t01=0x0082}
0x6176…6192 Head {h00=0x0018, h01=0x0050, text=» LD A9,FSTADR+STKCOM«, t00=0x003e, t01=0x00ae}
0x6192…61a6 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x003e, t01=0x00ca}
0x61a6…61c0 Head {h00=0x0016, h01=0x0050, text=» RF(NL) MOV090 OK!«, t00=0x003e, t01=0x00de}
0x61c0…61dc Head {h00=0x0018, h01=0x0050, text=»MOV070 LDKL A1,LMP3 «, t00=0x003e, t01=0x00f8}
0x61dc…61f0 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x003e, t01=0x0114}
0x61f0…6204 Head {h00=0x0010, h01=0x0050, text=»MOV090 EQU *«, t00=0x003e, t01=0x0128}
0x6204…621c Head {h00=0x0014, h01=0x0050, text=» CALL XMOVE MOVE«, t00=0x003e, t01=0x013c}
0x621c…6242 Head {h00=0x0022, h01=0x0050, text=» LD A1,STKCOM+MAPLEN MAPPING? «, t00=0x003e, t01=0x0154}
0x6242…625a Head {h00=0x0014, h01=0x0050, text=» RF(Z) MOV100 NO«, t00=0x003e, t01=0x017a}
0x625a…6286 (63, 0, 400) Head {h00=0x0028, h01=0x0050, text=» CALL INBIMA INIT ALLOCATION BIT MAP«, t00=0x003f, t01=0x0004}
0x6286…62be Head {h00=0x0034, h01=0x0050, text=»MOV100 CALL POB RESTORE REGISTERS FROM A15-STACK«, t00=0x003f, t01=0x0030}
0x62be…62f2 Head {h00=0x0030, h01=0x0050, text=» LD A2,LSTADR+STKCOM GET LOGICAL TO-ADDRESS «, t00=0x003f, t01=0x0068}
0x62f2…631e Head {h00=0x0028, h01=0x0050, text=» TL* MMFROM+STKCOM RESTORE MM-TABLE «, t00=0x003f, t01=0x009c}
0x631e…632e Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x003f, t01=0x00c8}
0x632e…633a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x00d8}
0x633a…6348 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x003f, t01=0x00e4}
0x6348…6350 Head {h00=0x0004, h01=0x0001, t00=0x003f, t01=0x00f2}
0x6350…638a Head {h00=0x0036, h01=0x0050, text=»** S E T T A B ** «, t00=0x003f, t01=0x00fa}
0x638a…63c4 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x003f, t01=0x0134}
0x63c4…63fe Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x003f, t01=0x016e}
0x63fe…6438 Head {h00=0x0036, h01=0x0050, text=»** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** «, t00=0x0040, t01=0x0018}
0x6438…6472 Head {h00=0x0036, h01=0x0050, text=»** OVERFLOW. ** «, t00=0x0040, t01=0x0052}
0x6472…64ac Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x0040, t01=0x008c}
0x64ac…64e6 Head {h00=0x0036, h01=0x0050, text=»** INPUT :A2-ADDRESS TO CURRENT ENTRY ** «, t00=0x0040, t01=0x00c6}
0x64e6…6520 Head {h00=0x0036, h01=0x0050, text=»** A4=PHYSICALL PAGE ** «, t00=0x0040, t01=0x0100}
0x6520…655a Head {h00=0x0036, h01=0x0050, text=»** OUTPUT:A2 & A4 IS UPDATED ** «, t00=0x0040, t01=0x013a}
0x655a…6594 Head {h00=0x0036, h01=0x0050, text=»** WORK.REG: A9 ** «, t00=0x0040, t01=0x0174}
0x6594…65ce Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0041, t01=0x001e}
0x65ce…65d6 Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x0058}
0x65d6…65ea Head {h00=0x0010, h01=0x0050, text=»SETTAB EQU *«, t00=0x0041, t01=0x0060}
0x65ea…6600 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0041, t01=0x0074}
0x6600…6624 Head {h00=0x0020, h01=0x001b, text=» SUKL A4,/400 GET NEXT PAGE «, t00=0x0041, t01=0x008a}
0x6624…6644 Head {h00=0x001c, h01=0x0018, text=» SUK A2,2 GET NEXT ENTRY«, t00=0x0041, t01=0x00ae}
0x6644…664c Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x00ce}
0x664c…6672 Head {h00=0x0022, h01=0x0050, text=»* CHECK IF MM-TABLE OVERFLOW *«, t00=0x0041, t01=0x00d6}
0x6672…667a Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x00fc}
0x667a…66a6 Head {h00=0x0028, h01=0x0050, text=» LDR A9,A10 GET END-ADDRESS A10=TTAB«, t00=0x0041, t01=0x0104}
0x66a6…66bc Head {h00=0x0012, h01=0x0050, text=» ADKL A9,MMBEG«, t00=0x0041, t01=0x0130}
0x66bc…66e2 Head {h00=0x0022, h01=0x0050, text=» TNM A2,A9 32-KB BOARDER CHECK«, t00=0x0041, t01=0x0146}
0x66e2…66f8 Head {h00=0x0012, h01=0x0050, text=» RF(NN) SETT00«, t00=0x0041, t01=0x016c}
0x66f8…670a Head {h00=0x000e, h01=0x0050, text=» CWR A9,A2«, t00=0x0041, t01=0x0182}
0x670a…671c (66, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF SETT05«, t00=0x0042, t01=0x0004}
0x671c…673e Head {h00=0x001e, h01=0x0050, text=»SETT00 CWR A2,A9 OVERFLOW?«, t00=0x0042, t01=0x0016}
0x673e…675e Head {h00=0x001c, h01=0x0050, text=»SETT05 RF(NL) SETT10 NO «, t00=0x0042, t01=0x0038}
0x675e…6772 Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP7«, t00=0x0042, t01=0x0058}
0x6772…6786 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0042, t01=0x006c}
0x6786…679a Head {h00=0x0010, h01=0x0050, text=»SETT10 EQU *«, t00=0x0042, t01=0x0080}
0x679a…67bc Head {h00=0x001e, h01=0x0019, text=» STR A4,A2 STORE IN TABLE «, t00=0x0042, t01=0x0094}
0x67bc…67cc Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0042, t01=0x00b6}
0x67cc…67d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x00c6}
0x67d8…67e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x00d2}
0x67e6…67ee Head {h00=0x0004, h01=0x0050, t00=0x0042, t01=0x00e0}
0x67ee…67f6 Head {h00=0x0004, h01=0x0050, t00=0x0042, t01=0x00e8}
0x67f6…67fe Head {h00=0x0004, h01=0x0050, t00=0x0042, t01=0x00f0}
0x67fe…6838 Head {h00=0x0036, h01=0x0050, text=»** C M P A D R **«, t00=0x0042, t01=0x00f8}
0x6838…6872 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0042, t01=0x0132}
0x6872…68ac Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0042, t01=0x016c}
0x68ac…68e6 Head {h00=0x0036, h01=0x0050, text=»** COMPARE ADDRESSES. RESULT IN PSW ON RETURN **«, t00=0x0043, t01=0x0016}
0x68e6…6920 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0043, t01=0x0050}
0x6920…695a Head {h00=0x0036, h01=0x0050, text=»** INPUT : A11 COMPARED TO.. **«, t00=0x0043, t01=0x008a}
0x695a…6994 Head {h00=0x0036, h01=0x0050, text=»** A9 **«, t00=0x0043, t01=0x00c4}
0x6994…69ce Head {h00=0x0036, h01=0x0050, text=»** OUTPUT: RESULT IN A14-STACK **«, t00=0x0043, t01=0x00fe}
0x69ce…6a08 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0043, t01=0x0138}
0x6a08…6a14 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0043, t01=0x0172}
0x6a14…6a28 Head {h00=0x0010, h01=0x0050, text=»CMPADR EQU *«, t00=0x0043, t01=0x017e}
0x6a28…6a3c (68, 0, 400) Head {h00=0x0010, h01=0x0050, text=» TNM A11,A9 «, t00=0x0044, t01=0x0004}
0x6a3c…6a52 Head {h00=0x0012, h01=0x0050, text=» RF(NN) CMPA10«, t00=0x0044, t01=0x0018}
0x6a52…6a66 Head {h00=0x0010, h01=0x0050, text=» CWR A9,A11 «, t00=0x0044, t01=0x002e}
0x6a66…6a78 Head {h00=0x000e, h01=0x0050, text=» RF CMPA20«, t00=0x0044, t01=0x0042}
0x6a78…6a92 Head {h00=0x0016, h01=0x0050, text=»CMPA10 CWR A11,A9 «, t00=0x0044, t01=0x0054}
0x6a92…6ac4 Head {h00=0x002e, h01=0x0050, text=»CMPA20 CFI A14,PSW,A13 PUT RESULT ON STACK«, t00=0x0044, t01=0x006e}
0x6ac4…6ad4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0044, t01=0x00a0}
0x6ad4…6ae2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x00b0}
0x6ae2…6aee Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0044, t01=0x00be}
0x6aee…6afa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0044, t01=0x00ca}
0x6afa…6b32 Head {h00=0x0034, h01=0x0050, text=»** M U L T **«, t00=0x0044, t01=0x00d6}
0x6b32…6b6a Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0044, t01=0x010e}
0x6b6a…6ba2 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0044, t01=0x0146}
0x6ba2…6bda Head {h00=0x0034, h01=0x0050, text=»** MULTIPLICATION (A2) X A3(), A2#0 **«, t00=0x0044, t01=0x017e}
0x6bda…6c12 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0045, t01=0x0026}
0x6c12…6c4a Head {h00=0x0034, h01=0x0050, text=»** INPUT : A3,A2 **«, t00=0x0045, t01=0x005e}
0x6c4a…6c82 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A3=RESULT **«, t00=0x0045, t01=0x0096}
0x6c82…6cba Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0045, t01=0x00ce}
0x6cba…6ccc Head {h00=0x000e, h01=0x0050, text=»MULT EQU *«, t00=0x0045, t01=0x0106}
0x6ccc…6ce8 Head {h00=0x0018, h01=0x0050, text=» ST A3,COM01+STKCOM «, t00=0x0045, t01=0x0118}
0x6ce8…6d0e Head {h00=0x0022, h01=0x0050, text=» STR A2,A14 SAVE A2 TEMPORARY «, t00=0x0045, t01=0x0134}
0x6d0e…6d20 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0045, t01=0x015a}
0x6d20…6d3e Head {h00=0x001a, h01=0x0050, text=»ADD AD A3,COM01+STKCOM«, t00=0x0045, t01=0x016c}
0x6d3e…6d50 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0045, t01=0x018a}
0x6d50…6d64 Head {h00=0x0010, h01=0x0050, text=» RB(NZ) ADD «, t00=0x0046, t01=0x000c}
0x6d64…6d78 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A14«, t00=0x0046, t01=0x0020}
0x6d78…6d88 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0046, t01=0x0034}
0x6d88…6d96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0044}
0x6d96…6d9e Head {h00=0x0004, h01=0x0050, t00=0x0046, t01=0x0052}
0x6d9e…6dd6 Head {h00=0x0034, h01=0x0050, text=»** M M E N T ** «, t00=0x0046, t01=0x005a}
0x6dd6…6e0e Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0046, t01=0x0092}
0x6e0e…6e46 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0046, t01=0x00ca}
0x6e46…6e7e Head {h00=0x0034, h01=0x0050, text=»** FIND LAST USED ENTRY IN MM-TAB. SCAN ** «, t00=0x0046, t01=0x0102}
0x6e7e…6eb6 Head {h00=0x0034, h01=0x0050, text=»** FROM LOW ADDRESS. NOT USED ENTRY=0. ** «, t00=0x0046, t01=0x013a}
0x6eb6…6eee Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0046, t01=0x0172}
0x6eee…6f26 Head {h00=0x0034, h01=0x0050, text=»** INPUT :A3=MM-TABLE ADDRESS ** «, t00=0x0047, t01=0x001a}
0x6f26…6f5e Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A3=ENTRY ADDRESS ** «, t00=0x0047, t01=0x0052}
0x6f5e…6f96 Head {h00=0x0034, h01=0x0050, text=»** A9=TTAB-ADDRESS ** «, t00=0x0047, t01=0x008a}
0x6f96…6fce Head {h00=0x0034, h01=0x0050, text=»** LSTPAG IN TTAB=A3 ** «, t00=0x0047, t01=0x00c2}
0x6fce…7006 Head {h00=0x0034, h01=0x0050, text=»** A1=CONTENTS OF 1:ST USED ENTRY ** «, t00=0x0047, t01=0x00fa}
0x7006…703e Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0047, t01=0x0132}
0x703e…7046 Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x016a}
0x7046…705a Head {h00=0x0010, h01=0x0050, text=»MMENT EQU * «, t00=0x0047, t01=0x0172}
0x705a…7070 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0047, t01=0x0186}
0x7070…7094 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A3 GET TABLE ADDRESS«, t00=0x0048, t01=0x000c}
0x7094…70ce Head {h00=0x0036, h01=0x0050, text=» SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER)«, t00=0x0048, t01=0x0030}
0x70ce…70e0 Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0048, t01=0x006a}
0x70e0…710a Head {h00=0x0026, h01=0x0050, text=»MMEN10 ADK A3,2 INCREMENT ADDRESS «, t00=0x0048, t01=0x007c}
0x710a…7136 Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A3 GET CONTENTS OF MM-TABLE«, t00=0x0048, t01=0x00a6}
0x7136…714c Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FC00«, t00=0x0048, t01=0x00d2}
0x714c…7162 Head {h00=0x0012, h01=0x0050, text=» CWK A1,/FC00 «, t00=0x0048, t01=0x00e8}
0x7162…7178 Head {h00=0x0012, h01=0x0050, text=» RB(Z) MMEN10 «, t00=0x0048, t01=0x00fe}
0x7178…71ae Head {h00=0x0032, h01=0x0050, text=» ST A3,LSTPAG,A9 SAVE FIRST FREE PAGE-ADDRESS «, t00=0x0048, t01=0x0114}
0x71ae…71be Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0048, t01=0x014a}
0x71be…71ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x015a}
0x71ca…71d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0166}
0x71d8…71e0 Head {h00=0x0004, h01=0x0050, t00=0x0048, t01=0x0174}
0x71e0…7216 Head {h00=0x0032, h01=0x0050, text=»** G E T T A B **«, t00=0x0048, t01=0x017c}
0x7216…724c Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x0049, t01=0x0022}
0x724c…7282 Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x0049, t01=0x0058}
0x7282…72b8 Head {h00=0x0032, h01=0x0050, text=»** FIND TTAB ADDRESS **«, t00=0x0049, t01=0x008e}
0x72b8…72ee Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x0049, t01=0x00c4}
0x72ee…7324 Head {h00=0x0032, h01=0x0050, text=»** INPUT :A8=POINTER TO T:A IN T:ATAB **«, t00=0x0049, t01=0x00fa}
0x7324…735a Head {h00=0x0032, h01=0x0050, text=»** OUTPUT:A2=TTAB-ADDRESS **«, t00=0x0049, t01=0x0130}
0x735a…7390 Head {h00=0x0032, h01=0x0050, text=»** A1=TID **«, t00=0x0049, t01=0x0166}
0x7390…73c6 Head {h00=0x0032, h01=0x0050, text=»** WORKREGS:A3,A4,A10 **«, t00=0x004a, t01=0x000c}
0x73c6…73fc Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x004a, t01=0x0042}
0x73fc…7404 Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0078}
0x7404…7418 Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x004a, t01=0x0080}
0x7418…742e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x004a, t01=0x0094}
0x742e…744e Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A8 T:A ADDRESS «, t00=0x004a, t01=0x00aa}
0x744e…7478 Head {h00=0x0026, h01=0x0050, text=» LD A1,T:ATID,A3 GET TID TO MATCH «, t00=0x004a, t01=0x00ca}
0x7478…749c Head {h00=0x0020, h01=0x0050, text=» LD A12,T:DAD,A3 T:D-ADDRESS«, t00=0x004a, t01=0x00f4}
0x749c…74a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x0118}
0x74a8…74be Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004a, t01=0x0124}
0x74be…74dc Head {h00=0x001a, h01=0x0050, text=» ELR A3,A8 T:A-ADDRESS«, t00=0x004a, t01=0x013a}
0x74dc…74fc Head {h00=0x001c, h01=0x0050, text=» EL A1,T:ATID,A3 GET TID«, t00=0x004a, t01=0x0158}
0x74fc…7514 Head {h00=0x0014, h01=0x0050, text=» EL A12,T:DAD,A3«, t00=0x004a, t01=0x0178}
0x7514…7520 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x0190}
0x7520…754a Head {h00=0x0026, h01=0x0050, text=»GETTTB EQU * ENTRY. INPUT: A1=TID «, t00=0x004b, t01=0x000c}
0x754a…7570 Head {h00=0x0022, h01=0x0050, text=» ST A10,COM04+STKCOM SAVE A10 «, t00=0x004b, t01=0x0036}
0x7570…7598 Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTTCT GET TC:TAB ADDRESS«, t00=0x004b, t01=0x005c}
0x7598…75ba Head {h00=0x001e, h01=0x0050, text=» LDR* A10,A4 TCTAB LENGTH «, t00=0x004b, t01=0x0084}
0x75ba…75d2 Head {h00=0x0014, h01=0x0050, text=»GETT10 ADK A4,2 «, t00=0x004b, t01=0x00a6}
0x75d2…75ea Head {h00=0x0014, h01=0x0050, text=» SUKL A10,2 ALL?«, t00=0x004b, t01=0x00be}
0x75ea…7604 Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETT20 NO!«, t00=0x004b, t01=0x00d6}
0x7604…7632 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) «, t00=0x004b, t01=0x00f0}
0x7632…7650 Head {h00=0x001a, h01=0x0050, text=» LDK A1,LMP5 TID ERROR«, t00=0x004b, t01=0x011e}
0x7650…7664 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004b, t01=0x013c}
0x7664…768a Head {h00=0x0022, h01=0x0050, text=»GETT20 LDR* A2,A4 TTAB-ADDRESS«, t00=0x004b, t01=0x0150}
0x768a…76ae Head {h00=0x0020, h01=0x0050, text=» CW A1,TTB:PP,A2 TCL EQUAL? «, t00=0x004b, t01=0x0176}
0x76ae…76c8 Head {h00=0x0016, h01=0x0050, text=» RB(NE) GETT10 NO!«, t00=0x004c, t01=0x000a}
0x76c8…76e8 Head {h00=0x001c, h01=0x0050, text=» ST A2,TTAB+STKCOM SAVE «, t00=0x004c, t01=0x0024}
0x76e8…7704 Head {h00=0x0018, h01=0x0050, text=» LD A10,COM04+STKCOM«, t00=0x004c, t01=0x0044}
0x7704…7714 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004c, t01=0x0060}
0x7714…7722 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x0070}
0x7722…7764 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x004c, t01=0x007e}
0x7764…77a6 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x004c, t01=0x00c0}
0x77a6…77e8 Head {h00=0x003e, h01=0x0050, text=»* INBIMA - INIT BIT MAP *«, t00=0x004c, t01=0x0102}
0x77e8…782a Head {h00=0x003e, h01=0x0050, text=»* ===================== *«, t00=0x004c, t01=0x0144}
0x782a…786c Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x004c, t01=0x0186}
0x786c…78ae Head {h00=0x003e, h01=0x0050, text=»* REFERENCED IN: MOVING,SYSLDB PART 2 *«, t00=0x004d, t01=0x0038}
0x78ae…78f0 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x004d, t01=0x007a}
0x78f0…7932 Head {h00=0x003e, h01=0x0050, text=»* ENTRY: MAPLEN - LENGTH OF AREA TO BE MAPPED *«, t00=0x004d, t01=0x00bc}
0x7932…7974 Head {h00=0x003e, h01=0x0050, text=»* LSTADR - LAST LOGICAL ADDRESS *«, t00=0x004d, t01=0x00fe}
0x7974…79b6 Head {h00=0x003e, h01=0x0050, text=»* TTAB - TTAB ADDRESS *«, t00=0x004d, t01=0x0140}
0x79b6…79f8 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x004d, t01=0x0182}
0x79f8…7a3a Head {h00=0x003e, h01=0x0050, text=»* EXIT: *«, t00=0x004e, t01=0x0034}
0x7a3a…7a7c Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x004e, t01=0x0076}
0x7a7c…7abe Head {h00=0x003e, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A3,A4 *«, t00=0x004e, t01=0x00b8}
0x7abe…7b00 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x004e, t01=0x00fa}
0x7b00…7b42 Head {h00=0x003e, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x004e, t01=0x013c}
0x7b42…7b84 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x004e, t01=0x017e}
0x7b84…7bc6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x004f, t01=0x0030}
0x7bc6…7bda Head {h00=0x0010, h01=0x0050, text=»INBIMA EQU *«, t00=0x004f, t01=0x0072}
0x7bda…7bf0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004f, t01=0x0086}
0x7bf0…7c14 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8000 INIT BIT MASK«, t00=0x004f, t01=0x009c}
0x7c14…7c42 Head {h00=0x002a, h01=0x0050, text=» LD A2,STKCOM+LSTADR GET LAST ADDRESS «, t00=0x004f, t01=0x00c0}
0x7c42…7c5a Head {h00=0x0014, h01=0x0050, text=» LDR A4,A2 SAVE «, t00=0x004f, t01=0x00ee}
0x7c5a…7c8c Head {h00=0x002e, h01=0x0050, text=» ANKL A4,/C000 SELECT MMU TABLE PARTITION «, t00=0x004f, t01=0x0106}
0x7c8c…7cc2 Head {h00=0x0032, h01=0x0050, text=» SRL A4,13 DISPLACEMENT TO START OF PARTITION «, t00=0x004f, t01=0x0138}
0x7cc2…7cee Head {h00=0x0028, h01=0x0050, text=» ADKL A4,TTB:AM BIT MAP DISPLACEMENT«, t00=0x004f, t01=0x016e}
0x7cee…7d1a Head {h00=0x0028, h01=0x0050, text=» AD A4,STKCOM+TTAB ADD TTAB ADDRESS «, t00=0x0050, t01=0x000a}
0x7d1a…7d40 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A2 GET LOGICAL ADDRESS«, t00=0x0050, t01=0x0036}
0x7d40…7d70 Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/3000 SELECT ENTRY IN PARTITION«, t00=0x0050, t01=0x005c}
0x7d70…7da2 Head {h00=0x002e, h01=0x0050, text=» SRL A3,12 DISPL. REL. START OF PARTITION «, t00=0x0050, t01=0x008c}
0x7da2…7dd0 Head {h00=0x002a, h01=0x0050, text=»MAP:40 SUK A3,1 CORRECT NIBBLE FOUND? «, t00=0x0050, t01=0x00be}
0x7dd0…7dea Head {h00=0x0016, h01=0x0050, text=» RF(N) MAP:50 YES «, t00=0x0050, t01=0x00ec}
0x7dea…7e08 Head {h00=0x001a, h01=0x0050, text=» SRL A1,4 NEXT NIBBLE «, t00=0x0050, t01=0x0106}
0x7e08…7e1a Head {h00=0x000e, h01=0x0050, text=» RB MAP:40«, t00=0x0050, t01=0x0124}
0x7e1a…7e52 Head {h00=0x0034, h01=0x0050, text=»MAP:50 ECR A3,A2 GET NUMBER OF 1K-DISPLACEMENTS «, t00=0x0050, t01=0x0136}
0x7e52…7e64 Head {h00=0x000e, h01=0x0050, text=» SRL A3,2 «, t00=0x0050, t01=0x016e}
0x7e64…7e7e Head {h00=0x0016, h01=0x0050, text=» ANK A3,3 ISOLATE «, t00=0x0050, t01=0x0180}
0x7e7e…7eac Head {h00=0x002a, h01=0x0050, text=»MAP:60 SUK A3,1 CORRECT 1K-PARTITION? «, t00=0x0051, t01=0x000a}
0x7eac…7ec6 Head {h00=0x0016, h01=0x0050, text=» RF(N) MAP:65 YES «, t00=0x0051, t01=0x0038}
0x7ec6…7eea Head {h00=0x0020, h01=0x0050, text=» SRL A1,1 NEXT 1K-PARTITION «, t00=0x0051, t01=0x0052}
0x7eea…7efc Head {h00=0x000e, h01=0x0050, text=» RB MAP:60«, t00=0x0051, t01=0x0076}
0x7efc…7f2a Head {h00=0x002a, h01=0x0050, text=»MAP:65 LD A3,STKCOM+MAPLEN GET LENGTH «, t00=0x0051, t01=0x0088}
0x7f2a…7f58 Head {h00=0x002a, h01=0x0050, text=» ANKL A2,/3FF REMANING PART OF 1K-PAGE«, t00=0x0051, t01=0x00b6}
0x7f58…7f78 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A2 ADJUST LENGTH«, t00=0x0051, t01=0x00e4}
0x7f78…7faa Head {h00=0x002e, h01=0x0050, text=» LDKL A2,TTB:MT DISPLACEMENT TO MMU TABLE «, t00=0x0051, t01=0x0104}
0x7faa…7fdc Head {h00=0x002e, h01=0x0050, text=» AD A2,STKCOM+TTAB ADD TTAB ENTRY ADDRESS «, t00=0x0051, t01=0x0136}
0x7fdc…8014 Head {h00=0x0034, h01=0x0050, text=»MAP:70 ORRS A1,A4 INDICATE 1K-PARTITION OCCUPIED«, t00=0x0051, t01=0x0168}
0x8014…8032 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A3 GET LENGTH «, t00=0x0052, t01=0x0010}
0x8032…804c Head {h00=0x0016, h01=0x0050, text=» RF(N) MAP:80 >32K«, t00=0x0052, t01=0x002e}
0x804c…8072 Head {h00=0x0022, h01=0x0050, text=» SUKL A3,/400 DECREMENT LENGTH«, t00=0x0052, t01=0x0048}
0x8072…809a Head {h00=0x0024, h01=0x0050, text=» RF(NP) MAP100 MAPPING FINISHED «, t00=0x0052, t01=0x006e}
0x809a…80ac Head {h00=0x000e, h01=0x0050, text=» RF MAP:90«, t00=0x0052, t01=0x0096}
0x80ac…80d8 Head {h00=0x0028, h01=0x0050, text=»MAP:80 SUKL A3,/400 DECREMENT LENGTH«, t00=0x0052, t01=0x00a8}
0x80d8…8102 Head {h00=0x0026, h01=0x0050, text=»MAP:90 SRL A1,1 NEXT 1K-PARTITION «, t00=0x0052, t01=0x00d4}
0x8102…8132 Head {h00=0x002c, h01=0x0050, text=» RB(NZ) MAP:70 IN THE SAME BIT MAP ENTRY«, t00=0x0052, t01=0x00fe}
0x8132…8156 Head {h00=0x0020, h01=0x0050, text=» ADK A4,2 NEXT BIT MAP ENTRY«, t00=0x0052, t01=0x012e}
0x8156…8178 Head {h00=0x001e, h01=0x0050, text=» CWR A4,A2 END OF BIT MAP?«, t00=0x0052, t01=0x0152}
0x8178…8192 Head {h00=0x0016, h01=0x0050, text=» RF(E) MAP100 YES!«, t00=0x0052, t01=0x0174}
0x8192…81b6 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8000 INIT BIT MASK«, t00=0x0052, t01=0x018e}
0x81b6…81c8 Head {h00=0x000e, h01=0x0050, text=» RB MAP:70«, t00=0x0053, t01=0x0022}
0x81c8…81dc Head {h00=0x0010, h01=0x0050, text=»MAP100 EQU *«, t00=0x0053, t01=0x0034}
0x81dc…81e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x0048}
0x81e8…81f8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0053, t01=0x0054}
0x81f8…8206 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x0064}
0x8206…820e Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0072}
0x820e…8244 Head {h00=0x0032, h01=0x0050, text=»** M M R S T **«, t00=0x0053, t01=0x007a}
0x8244…827a Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x0053, t01=0x00b0}
0x827a…82b0 Head {h00=0x0032, h01=0x0050, text=»** RESET MMTAB ENTRIES FROM ADDRESS **«, t00=0x0053, t01=0x00e6}
0x82b0…82e6 Head {h00=0x0032, h01=0x0050, text=»** INDICATED BY REGISTER A1 DOWNTO **«, t00=0x0053, t01=0x011c}
0x82e6…831c Head {h00=0x0032, h01=0x0050, text=»** MMTAB START.SET ENTRIES TO /FC00 **«, t00=0x0053, t01=0x0152}
0x831c…8352 Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x0053, t01=0x0188}
0x8352…8388 Head {h00=0x0032, h01=0x0050, text=»** INPUT : A1 = LAST USED ENTRY **«, t00=0x0054, t01=0x002e}
0x8388…83be Head {h00=0x0032, h01=0x0050, text=»** OUTPUT: A1 = MMTAB START ADDRESS **«, t00=0x0054, t01=0x0064}
0x83be…83f4 Head {h00=0x0032, h01=0x0050, text=»** A2 = MMTAB START ADDRESS **«, t00=0x0054, t01=0x009a}
0x83f4…842a Head {h00=0x0032, h01=0x0050, text=»** A12= /FC00 **«, t00=0x0054, t01=0x00d0}
0x842a…8460 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0054, t01=0x0106}
0x8460…8468 Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x013c}
0x8468…847c Head {h00=0x0010, h01=0x0050, text=»MMRST EQU * «, t00=0x0054, t01=0x0144}
0x847c…8492 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0054, t01=0x0158}
0x8492…84bc Head {h00=0x0026, h01=0x0050, text=» LDKL A2,MMTAB WORK TABLE ADDRESS «, t00=0x0054, t01=0x016e}
0x84bc…84d0 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x0055, t01=0x0008}
0x84d0…84e2 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0055, t01=0x001c}
0x84e2…8504 Head {h00=0x001e, h01=0x0050, text=» LDKL A12,/FC00 INDICATOR «, t00=0x0055, t01=0x002e}
0x8504…8518 Head {h00=0x0010, h01=0x0050, text=»MMRST1 EQU *«, t00=0x0055, t01=0x0050}
0x8518…8534 Head {h00=0x0018, h01=0x0050, text=» SUK A1,2 NEXT ENTRY«, t00=0x0055, t01=0x0064}
0x8534…8552 Head {h00=0x001a, h01=0x0050, text=» CWR A1,A2 ALL DONE ? «, t00=0x0055, t01=0x0080}
0x8552…856c Head {h00=0x0016, h01=0x0050, text=» RF(E) MMRST2 YES «, t00=0x0055, t01=0x009e}
0x856c…8594 Head {h00=0x0024, h01=0x0050, text=» STR A12,A1 INDICATE FREE ENTRY «, t00=0x0055, t01=0x00b8}
0x8594…85b2 Head {h00=0x001a, h01=0x0050, text=» RB MMRST1 NEXT ENTRY «, t00=0x0055, t01=0x00e0}
0x85b2…85c6 Head {h00=0x0010, h01=0x0050, text=»MMRST2 EQU *«, t00=0x0055, t01=0x00fe}
0x85c6…85d6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0055, t01=0x0112}
0x85d6…85e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x0122}
0x85e2…85f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x012e}
0x85f0…8624 Head {h00=0x0030, h01=0x002c, text=»* G E T A P P *«, t00=0x0055, t01=0x013c}
0x8624…8658 Head {h00=0x0030, h01=0x002c, text=»* *«, t00=0x0055, t01=0x0170}
0x8658…868c Head {h00=0x0030, h01=0x002c, text=»* GET START OF APLTAB-BLOCK AND CONFIGURA- *«, t00=0x0056, t01=0x0014}
0x868c…86c0 Head {h00=0x0030, h01=0x002c, text=»* TION-DATA FOR SPECIFIED APPLICATION *«, t00=0x0056, t01=0x0048}
0x86c0…86f4 Head {h00=0x0030, h01=0x002c, text=»* AND IF MMU-CASE ,LOAD HARDWARE MMU-TABLE *«, t00=0x0056, t01=0x007c}
0x86f4…8728 Head {h00=0x0030, h01=0x002c, text=»* AND MMTAB WITH MMU-TABLE FROM TTAB *«, t00=0x0056, t01=0x00b0}
0x8728…875c Head {h00=0x0030, h01=0x002c, text=»* *«, t00=0x0056, t01=0x00e4}
0x875c…8790 Head {h00=0x0030, h01=0x002c, text=»* INPUT : A1=APPL.TYPE 'CR' 'CO' 'BA' 'AS' *«, t00=0x0056, t01=0x0118}
0x8790…87c4 Head {h00=0x0030, h01=0x002c, text=»* APPLNO=APPL.NUMBER OF CURRENT *«, t00=0x0056, t01=0x014c}
0x87c4…87f8 Head {h00=0x0030, h01=0x002c, text=»* APPL.TYPE 0,1,2,3... *«, t00=0x0056, t01=0x0180}
0x87f8…882c Head {h00=0x0030, h01=0x0050, text=»* CONSTA=START OF CONF.DATA *«, t00=0x0057, t01=0x0024}
0x882c…8860 Head {h00=0x0030, h01=0x002c, text=»* *«, t00=0x0057, t01=0x0058}
0x8860…8894 Head {h00=0x0030, h01=0x002c, text=»* OUTPUT: A1=ADDRESS TO FIRST ENTRY IN *«, t00=0x0057, t01=0x008c}
0x8894…88c8 Head {h00=0x0030, h01=0x002c, text=»* APLTAB-BLOCK *«, t00=0x0057, t01=0x00c0}
0x88c8…88fc Head {h00=0x0030, h01=0x002c, text=»* A2=BLOCK TYPE T/C/U/S, OR 0 IF *«, t00=0x0057, t01=0x00f4}
0x88fc…8930 Head {h00=0x0030, h01=0x002c, text=»* END OF CONFIGURATION-DATA *«, t00=0x0057, t01=0x0128}
0x8930…8964 Head {h00=0x0030, h01=0x002c, text=»* A11=START OF CONF. FOR SPECIFIED *«, t00=0x0057, t01=0x015c}
0x8964…8998 Head {h00=0x0030, h01=0x002c, text=»* APPLICATION *«, t00=0x0057, t01=0x0190}
0x8998…89cc Head {h00=0x0030, h01=0x0050, text=»* APPLNO=APPLNO+1 IF APPLICATION *«, t00=0x0058, t01=0x0034}
0x89cc…8a00 Head {h00=0x0030, h01=0x0050, text=»* IS FOUND *«, t00=0x0058, t01=0x0068}
0x8a00…8a34 Head {h00=0x0030, h01=0x0050, text=»* ELSE APPLNO IS UNCHANGED *«, t00=0x0058, t01=0x009c}
0x8a34…8a68 Head {h00=0x0030, h01=0x0050, text=»* CONSTA=START OF CONF.DATA *«, t00=0x0058, t01=0x00d0}
0x8a68…8a9c Head {h00=0x0030, h01=0x002c, text=»* COND.REG.=0 IF NO MORE APPL. OF *«, t00=0x0058, t01=0x0104}
0x8a9c…8ad0 Head {h00=0x0030, h01=0x002c, text=»* CURRENT TYPE LEFT *«, t00=0x0058, t01=0x0138}
0x8ad0…8b04 Head {h00=0x0030, h01=0x002c, text=»* *«, t00=0x0058, t01=0x016c}
0x8b04…8b38 Head {h00=0x0030, h01=0x002c, text=»* WORK REGISTERS : A1-A4,A11 *«, t00=0x0059, t01=0x0010}
0x8b38…8b6c Head {h00=0x0030, h01=0x002c, text=»* *«, t00=0x0059, t01=0x0044}
0x8b6c…8ba0 Head {h00=0x0030, h01=0x002c, text=»********************************************«, t00=0x0059, t01=0x0078}
0x8ba0…8bb4 Head {h00=0x0010, h01=0x000c, text=»GETAPP EQU *«, t00=0x0059, t01=0x00ac}
0x8bb4…8be6 Head {h00=0x002e, h01=0x0029, text=»* INITIATE REGISTERS AND INCREMENT APPLNO «, t00=0x0059, t01=0x00c0}
0x8be6…8c12 Head {h00=0x0028, h01=0x0023, text=» LD A3,APLTAB+STKCOM APLTAB ADDRESS «, t00=0x0059, t01=0x00f2}
0x8c12…8c3e Head {h00=0x0028, h01=0x0024, text=» ADK A3,2 FIRST APLTAB-BLOCK ADDRESS«, t00=0x0059, t01=0x011e}
0x8c3e…8c66 Head {h00=0x0024, h01=0x001f, text=» LDK A4,0 CLEAR APPL.COUNTER OF «, t00=0x0059, t01=0x014a}
0x8c66…8c82 Head {h00=0x0018, h01=0x0014, text=» CURRENT APPL.TYPE«, t00=0x0059, t01=0x0172}
0x8c82…8caa Head {h00=0x0024, h01=0x001f, text=» LDK A2,0 CLEAR APPL.COUNTER OF «, t00=0x0059, t01=0x018e}
0x8caa…8cc4 Head {h00=0x0016, h01=0x0011, text=» ALL APPL.TYPES «, t00=0x005a, t01=0x0026}
0x8cc4…8d00 Head {h00=0x0038, h01=0x0033, text=»* FIND RIGHT APLTAB-BLOCK FOR SPECIFIED APPLICATION «, t00=0x005a, t01=0x0040}
0x8d00…8d14 Head {h00=0x0010, h01=0x000c, text=»GTA100 EQU *«, t00=0x005a, t01=0x007c}
0x8d14…8d40 Head {h00=0x0028, h01=0x0023, text=» ADK A2,1 INCREMENT APPL.COUNTER OF «, t00=0x005a, t01=0x0090}
0x8d40…8d5a Head {h00=0x0016, h01=0x0011, text=» ALL APPL.TYPES «, t00=0x005a, t01=0x00bc}
0x8d5a…8d8e Head {h00=0x0030, h01=0x002b, text=» CW* A2,APLTAB+STKCOM ANY APPLICATION LEFT? «, t00=0x005a, t01=0x00d6}
0x8d8e…8daa Head {h00=0x0018, h01=0x0050, text=» RF(NG) GTA150 YES! «, t00=0x005a, t01=0x010a}
0x8daa…8dd2 Head {h00=0x0024, h01=0x001f, text=» SUR A2,A2 A2=0 AND COND.REG.=0 «, t00=0x005a, t01=0x0126}
0x8dd2…8df4 Head {h00=0x001e, h01=0x0019, text=» RF GTA900 LEAVE SUBRUTIN «, t00=0x005a, t01=0x014e}
0x8df4…8e08 Head {h00=0x0010, h01=0x000c, text=»GTA150 EQU *«, t00=0x005a, t01=0x0170}
0x8e08…8e32 Head {h00=0x0026, h01=0x0021, text=» CW A1,APLTYP,A3 RIGHT APPL.TYPE? «, t00=0x005a, t01=0x0184}
0x8e32…8e4c Head {h00=0x0016, h01=0x0012, text=» RF(E) GTA200 YES!«, t00=0x005b, t01=0x001e}
0x8e4c…8e7e Head {h00=0x002e, h01=0x0050, text=» ADK A3,ACBLEN UPDATE APLTAB-BLOCK ADDRESS«, t00=0x005b, t01=0x0038}
0x8e7e…8ea8 Head {h00=0x0026, h01=0x0022, text=» RB GTA100 SHECK NEXT APLTAB-BLOCK«, t00=0x005b, t01=0x006a}
0x8ea8…8ebc Head {h00=0x0010, h01=0x000c, text=»GTA200 EQU *«, t00=0x005b, t01=0x0094}
0x8ebc…8eee Head {h00=0x002e, h01=0x0029, text=» CW A4,APPLNO+STKCOM RIGHT APPL.NUMBER OF «, t00=0x005b, t01=0x00a8}
0x8eee…8f0c Head {h00=0x001a, h01=0x0015, text=» CURRENT APPL.TYPE? «, t00=0x005b, t01=0x00da}
0x8f0c…8f26 Head {h00=0x0016, h01=0x0012, text=» RF(E) GTA300 YES!«, t00=0x005b, t01=0x00f8}
0x8f26…8f52 Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INCREMENT APPL.COUNTER OF «, t00=0x005b, t01=0x0112}
0x8f52…8f6e Head {h00=0x0018, h01=0x0050, text=» CURRENT APPL.TYPE«, t00=0x005b, t01=0x013e}
0x8f6e…8fa0 Head {h00=0x002e, h01=0x0050, text=» ADK A3,ACBLEN UPDATE APLTAB-BLOCK ADDRESS«, t00=0x005b, t01=0x015a}
0x8fa0…8fca Head {h00=0x0026, h01=0x0022, text=» RB GTA100 SHECK NEXT APLTAB-BLOCK«, t00=0x005b, t01=0x018c}
0x8fca…8fde Head {h00=0x0010, h01=0x0050, text=»GTA300 EQU *«, t00=0x005c, t01=0x0026}
0x8fde…8ff4 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x005c, t01=0x003a}
0x8ff4…9026 Head {h00=0x002e, h01=0x0029, text=»* GET MMU-TABLE FROM TTAB OF CURRENT TASK «, t00=0x005c, t01=0x0050}
0x9026…9060 Head {h00=0x0036, h01=0x0050, text=» LD* A4,APLMMC,A3 GET TCTAB-ENTRY FOR CURRENT TASK«, t00=0x005c, t01=0x0082}
0x9060…9098 Head {h00=0x0034, h01=0x0050, text=» ADKL A4,TTB:MT ADDRESS TO 1:ST MMU-TABLE ENTRY «, t00=0x005c, t01=0x00bc}
0x9098…90aa Head {h00=0x000e, h01=0x000a, text=» IN TTAB«, t00=0x005c, t01=0x00f4}
0x90aa…90c8 Head {h00=0x001a, h01=0x0050, text=» TLR A4 LOAD MMU-TABLE«, t00=0x005c, t01=0x0106}
0x90c8…90f6 Head {h00=0x002a, h01=0x0026, text=» TS MMTAB,A13 STORE MMU-TABLE IN MMTAB«, t00=0x005c, t01=0x0124}
0x90f6…9102 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x005c, t01=0x0152}
0x9102…913e Head {h00=0x0038, h01=0x0033, text=»* FIND CONFIGURATION-DATA FOR SPECIFIED APPLICATION «, t00=0x005c, t01=0x015e}
0x913e…9166 Head {h00=0x0024, h01=0x001f, text=» LDK A4,0 CLEAR APPL.COUNTER OF «, t00=0x005d, t01=0x000a}
0x9166…9180 Head {h00=0x0016, h01=0x0011, text=» ALL APPL.TYPES «, t00=0x005d, t01=0x0032}
0x9180…91b0 Head {h00=0x002c, h01=0x0027, text=» LDR A1,A3 LOAD APLTAB-BLOCK ADDRESS TO «, t00=0x005d, t01=0x004c}
0x91b0…91ca Head {h00=0x0016, h01=0x0012, text=» OUTPUT REGISTER«, t00=0x005d, t01=0x007c}
0x91ca…91fe Head {h00=0x0030, h01=0x0050, text=» LD A11,CONSTA+STKCOM GET START OF CONF.DATA«, t00=0x005d, t01=0x0096}
0x91fe…922a Head {h00=0x0028, h01=0x0023, text=» ADK A4,1 INCREMENT APPL.COUNTER OF «, t00=0x005d, t01=0x00ca}
0x922a…9244 Head {h00=0x0016, h01=0x0011, text=» ALL APPL.TYPES «, t00=0x005d, t01=0x00f6}
0x9244…9272 Head {h00=0x002a, h01=0x0026, text=» CWR A2,A4 IS IT THE FIRST APPLICATION«, t00=0x005d, t01=0x0110}
0x9272…928c Head {h00=0x0016, h01=0x0050, text=» RF(E) GTA800 YES!«, t00=0x005d, t01=0x013e}
0x928c…92a0 Head {h00=0x0010, h01=0x000c, text=»GTA400 EQU *«, t00=0x005d, t01=0x0158}
0x92a0…92c0 Head {h00=0x001c, h01=0x0018, text=» LDK A3,0 CLEAR REGISTER«, t00=0x005d, t01=0x016c}
0x92c0…92ec Head {h00=0x0028, h01=0x0050, text=» LCR A3,A11 GET CHAR. FROM CONF.DATA«, t00=0x005d, t01=0x018c}
0x92ec…931c Head {h00=0x002c, h01=0x0027, text=» ADKL A11,1 INCREMENT CONF.DATA POINTER «, t00=0x005e, t01=0x0028}
0x931c…934a Head {h00=0x002a, h01=0x0025, text=» CCK A3,/FFFF IS CONF.DATA CHAR. /FF? «, t00=0x005e, t01=0x0058}
0x934a…9364 Head {h00=0x0016, h01=0x0012, text=» RB(NE) GTA400 NO!«, t00=0x005e, t01=0x0086}
0x9364…9390 Head {h00=0x0028, h01=0x0023, text=» ADK A4,1 INCREMENT APPL.COUNTER OF «, t00=0x005e, t01=0x00a0}
0x9390…93a8 Head {h00=0x0014, h01=0x0010, text=» ALL APL.TYPES«, t00=0x005e, t01=0x00cc}
0x93a8…93d0 Head {h00=0x0024, h01=0x001f, text=» CWR A2,A4 RIGHT APPL.NUMBER OF «, t00=0x005e, t01=0x00e4}
0x93d0…93ea Head {h00=0x0016, h01=0x0012, text=» ALL APPL.TYPES?«, t00=0x005e, t01=0x010c}
0x93ea…9404 Head {h00=0x0016, h01=0x0012, text=» RB(NE) GTA400 NO!«, t00=0x005e, t01=0x0126}
0x9404…943c Head {h00=0x0034, h01=0x0030, text=»* LOAD REGISTER A2 WITH ITS OUTPUT VALUE,REPLACE«, t00=0x005e, t01=0x0140}
0x943c…946c Head {h00=0x002c, h01=0x0050, text=»* PSW OF CALLING PROGRAM TO PSW OF THIS «, t00=0x005e, t01=0x0178}
0x946c…9498 Head {h00=0x0028, h01=0x0023, text=»* SUBRUTIN,AND RETURN FROM SUBRUTIN «, t00=0x005f, t01=0x0018}
0x9498…94ac Head {h00=0x0010, h01=0x000c, text=»GTA800 EQU *«, t00=0x005f, t01=0x0044}
0x94ac…94de Head {h00=0x002e, h01=0x0050, text=» IM APPLNO+STKCOM INCREMENT APPL.NUMBER OF«, t00=0x005f, t01=0x0058}
0x94de…94fa Head {h00=0x0018, h01=0x0050, text=» CURRENT APPL.TYPE«, t00=0x005f, t01=0x008a}
0x94fa…951a Head {h00=0x001c, h01=0x0018, text=» LDK A2,0 CLEAR REGISTER«, t00=0x005f, t01=0x00a6}
0x951a…9546 Head {h00=0x0028, h01=0x0050, text=» LCR A2,A11 GET CHAR FROM CONF.DATA «, t00=0x005f, t01=0x00c6}
0x9546…957a Head {h00=0x0030, h01=0x0050, text=» LDK A4,1 MAKE COND.REG.TO BE NOT EQUAL TO 0«, t00=0x005f, t01=0x00f2}
0x957a…958e Head {h00=0x0010, h01=0x000c, text=»GTA900 EQU *«, t00=0x005f, t01=0x0126}
0x958e…95b2 Head {h00=0x0020, h01=0x001c, text=» CFI A14,PSW,A13 REPLACE PSW«, t00=0x005f, t01=0x013a}
0x95b2…95d8 Head {h00=0x0022, h01=0x001d, text=» RTN A14 RETURN FROM SUBRUTIN «, t00=0x005f, t01=0x015e}
0x95d8…95e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x0184}
0x95e6…95f2 (96, 0, 400) Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0060, t01=0x0004}
0x95f2…95fe Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0060, t01=0x0010}
0x95fe…9638 Head {h00=0x0036, h01=0x0050, text=»** C O N V R T **«, t00=0x0060, t01=0x001c}
0x9638…9672 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0060, t01=0x0056}
0x9672…96ac Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0060, t01=0x0090}
0x96ac…96e6 Head {h00=0x0036, h01=0x0050, text=»** CONVERSION OF TWO ASCII-DIGITS TO BINARY **«, t00=0x0060, t01=0x00ca}
0x96e6…9720 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0060, t01=0x0104}
0x9720…975a Head {h00=0x0036, h01=0x0050, text=»** INPUT : A5=ASCII DIGITS **«, t00=0x0060, t01=0x013e}
0x975a…9794 Head {h00=0x0036, h01=0x0050, text=»** OUTPUT: A1=BINARY RESULT **«, t00=0x0060, t01=0x0178}
0x9794…97ce Head {h00=0x0036, h01=0x0050, text=»** WORK.REGS: A3,A2 **«, t00=0x0061, t01=0x0022}
0x97ce…9808 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0061, t01=0x005c}
0x9808…9814 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0061, t01=0x0096}
0x9814…9828 Head {h00=0x0010, h01=0x0050, text=»CONVRT EQU *«, t00=0x0061, t01=0x00a2}
0x9828…984a Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 CLEAR RESULT REG«, t00=0x0061, t01=0x00b6}
0x984a…985c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x0061, t01=0x00d8}
0x985c…9878 Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 GET TEN'S «, t00=0x0061, t01=0x00ea}
0x9878…988c Head {h00=0x0010, h01=0x0050, text=» SUK A3,/30 «, t00=0x0061, t01=0x0106}
0x988c…989e Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0061, t01=0x011a}
0x989e…98bc Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 MULT BY 10 «, t00=0x0061, t01=0x012c}
0x98bc…98d0 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A1 .«, t00=0x0061, t01=0x014a}
0x98d0…98e4 Head {h00=0x0010, h01=0x0050, text=» SLL A2,3 . «, t00=0x0061, t01=0x015e}
0x98e4…98fc Head {h00=0x0014, h01=0x0050, text=» ADR A1,A2 .... «, t00=0x0061, t01=0x0172}
0x98fc…990e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x0061, t01=0x018a}
0x990e…992a Head {h00=0x0018, h01=0x0050, text=» ANK A3,/F GET ONE'S«, t00=0x0062, t01=0x000c}
0x992a…993c Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0062, t01=0x0028}
0x993c…994c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0062, t01=0x003a}
0x994c…995a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x004a}
0x995a…9962 Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x0058}
0x9962…999c Head {h00=0x0036, h01=0x0050, text=»** N X T B L K **«, t00=0x0062, t01=0x0060}
0x999c…99d6 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0062, t01=0x009a}
0x99d6…9a10 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0062, t01=0x00d4}
0x9a10…9a4a Head {h00=0x0036, h01=0x0050, text=»** SKIP TO NEXT BLOCK IN CONFIGURATION FILE **«, t00=0x0062, t01=0x010e}
0x9a4a…9a84 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0062, t01=0x0148}
0x9a84…9abe Head {h00=0x0036, h01=0x0050, text=»** INPUT: A11=ADDRESS TO CURRENT BLOCK-START **«, t00=0x0062, t01=0x0182}
0x9abe…9af8 Head {h00=0x0036, h01=0x0050, text=»** OUTPUT:A11=ADDRESS TO NEXT BLOCK **«, t00=0x0063, t01=0x002c}
0x9af8…9b32 Head {h00=0x0036, h01=0x0050, text=»** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE **«, t00=0x0063, t01=0x0066}
0x9b32…9b6c Head {h00=0x0036, h01=0x0050, text=»** WORKREGS: A1,A3-A5 **«, t00=0x0063, t01=0x00a0}
0x9b6c…9ba6 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0063, t01=0x00da}
0x9ba6…9bae Head {h00=0x0004, h01=0x0050, t00=0x0063, t01=0x0114}
0x9bae…9bc2 Head {h00=0x0010, h01=0x0050, text=»NXTBLK EQU *«, t00=0x0063, t01=0x011c}
0x9bc2…9bfc Head {h00=0x0036, h01=0x0050, text=» ADKL A11,TDBNC NUMBER OF TERMINAL DEVICE CLASSES «, t00=0x0063, t01=0x0130}
0x9bfc…9c32 Head {h00=0x0032, h01=0x0050, text=»NXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK «, t00=0x0063, t01=0x016a}
0x9c32…9c46 Head {h00=0x0010, h01=0x0050, text=» LCR A5,A11 «, t00=0x0064, t01=0x0010}
0x9c46…9c58 Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0064, t01=0x0024}
0x9c58…9c6c Head {h00=0x0010, h01=0x0050, text=» LC A5,1,A11«, t00=0x0064, t01=0x0036}
0x9c6c…9c80 Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x0064, t01=0x004a}
0x9c80…9c96 Head {h00=0x0012, h01=0x0050, text=» LDK A2,TDBREC«, t00=0x0064, t01=0x005e}
0x9c96…9ca8 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0064, t01=0x0074}
0x9ca8…9cba Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x0064, t01=0x0086}
0x9cba…9cce Head {h00=0x0010, h01=0x0050, text=» ADR A11,A3 «, t00=0x0064, t01=0x0098}
0x9cce…9ce2 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x0064, t01=0x00ac}
0x9ce2…9d16 Head {h00=0x0030, h01=0x0050, text=» LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES«, t00=0x0064, t01=0x00c0}
0x9d16…9d28 Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0064, t01=0x00f4}
0x9d28…9d3c Head {h00=0x0010, h01=0x0050, text=» LC A5,1,A11«, t00=0x0064, t01=0x0106}
0x9d3c…9d50 Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x0064, t01=0x011a}
0x9d50…9d80 Head {h00=0x002c, h01=0x0050, text=» LDK A2,SDC SPEC. DEV. CL. RECORD LENGTH«, t00=0x0064, t01=0x012e}
0x9d80…9d92 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0064, t01=0x015e}
0x9d92…9da4 Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x0064, t01=0x0170}
0x9da4…9dc6 Head {h00=0x001e, h01=0x0050, text=» ADR A11,A3 A11=NEXT BLOCK«, t00=0x0064, t01=0x0182}
0x9dc6…9dda Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x0065, t01=0x0014}
0x9dda…9e02 Head {h00=0x0024, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCK TYPE «, t00=0x0065, t01=0x0028}
0x9e02…9e12 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0065, t01=0x0050}
0x9e12…9e20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0065, t01=0x0060}
0x9e20…9e2c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0065, t01=0x006e}
0x9e2c…9e38 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0065, t01=0x007a}
0x9e38…9e74 Head {h00=0x0038, h01=0x0050, text=»** G E T N U M **«, t00=0x0065, t01=0x0086}
0x9e74…9eb0 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0065, t01=0x00c2}
0x9eb0…9eec Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0065, t01=0x00fe}
0x9eec…9f28 Head {h00=0x0038, h01=0x0050, text=»** CONVERT 3 ASCII-DIGITS TO BINARY **«, t00=0x0065, t01=0x013a}
0x9f28…9f64 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0065, t01=0x0176}
0x9f64…9fa0 Head {h00=0x0038, h01=0x0050, text=»** INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER **«, t00=0x0066, t01=0x0022}
0x9fa0…9fdc Head {h00=0x0038, h01=0x0050, text=»** OUTPUT: A5=BINARY VALUE **«, t00=0x0066, t01=0x005e}
0x9fdc…a018 Head {h00=0x0038, h01=0x0050, text=»** WORK.REGS: A2,A4 **«, t00=0x0066, t01=0x009a}
0xa018…a054 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0066, t01=0x00d6}
0xa054…a060 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0066, t01=0x0112}
0xa060…a074 Head {h00=0x0010, h01=0x0050, text=»GETNUM EQU *«, t00=0x0066, t01=0x011e}
0xa074…a098 Head {h00=0x0020, h01=0x0050, text=» LDK A4,100 FIRST INCREMENT «, t00=0x0066, t01=0x0132}
0xa098…a0ba Head {h00=0x001e, h01=0x0050, text=» LDK A5,0 CLEAR RESULT REG«, t00=0x0066, t01=0x0156}
0xa0ba…a0d8 Head {h00=0x001a, h01=0x0050, text=» SUK A6,1 INIT POINTER«, t00=0x0066, t01=0x0178}
0xa0d8…a0fa Head {h00=0x001e, h01=0x0050, text=»GET030 ADK A6,1 NEXT DIGIT«, t00=0x0067, t01=0x0008}
0xa0fa…a116 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A6 GET CHAR «, t00=0x0067, t01=0x002a}
0xa116…a128 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0067, t01=0x0046}
0xa128…a140 Head {h00=0x0014, h01=0x0050, text=»GET050 SUK A2,1 «, t00=0x0067, t01=0x0058}
0xa140…a166 Head {h00=0x0022, h01=0x0050, text=» RF(N) GET100 THIS DIGIT READY«, t00=0x0067, t01=0x0070}
0xa166…a184 Head {h00=0x001a, h01=0x0050, text=» ADR A5,A4 ACCUMULATE «, t00=0x0067, t01=0x0096}
0xa184…a196 Head {h00=0x000e, h01=0x0050, text=» RB GET050«, t00=0x0067, t01=0x00b4}
0xa196…a1c6 Head {h00=0x002c, h01=0x0050, text=»GET100 SUK A4,90 NEXT INCREMENT (TEN'S) «, t00=0x0067, t01=0x00c6}
0xa1c6…a1dc Head {h00=0x0012, h01=0x0050, text=» RB(P) GET030 «, t00=0x0067, t01=0x00f6}
0xa1dc…a206 Head {h00=0x0026, h01=0x0050, text=» ADK A4,81 NEXT INCREMENT (ONE'S) «, t00=0x0067, t01=0x010c}
0xa206…a228 Head {h00=0x001e, h01=0x0050, text=» RB(P) GET030 THIRD DIGIT «, t00=0x0067, t01=0x0136}
0xa228…a238 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0067, t01=0x0158}
0xa238…a246 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0067, t01=0x0168}
0xa246…a24e Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x0176}
0xa24e…a256 Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x017e}
0xa256…a292 Head {h00=0x0038, h01=0x0050, text=»** Q U E J O B ** «, t00=0x0067, t01=0x0186}
0xa292…a2ce Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x0068, t01=0x0032}
0xa2ce…a30a Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x0068, t01=0x006e}
0xa30a…a346 Head {h00=0x0038, h01=0x0050, text=»** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** «, t00=0x0068, t01=0x00aa}
0xa346…a382 Head {h00=0x0038, h01=0x0050, text=»** 0, ENB. ** «, t00=0x0068, t01=0x00e6}
0xa382…a3be Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x0068, t01=0x0122}
0xa3be…a3e0 Head {h00=0x001e, h01=0x0050, text=»** INPUT: A12=T:D-ADDRESS«, t00=0x0068, t01=0x015e}
0xa3e0…a41c Head {h00=0x0038, h01=0x0050, text=»** A5=TTAB-ADDRESS ** «, t00=0x0068, t01=0x0180}
0xa41c…a458 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0069, t01=0x002c}
0xa458…a460 Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x0068}
0xa460…a474 Head {h00=0x0010, h01=0x0050, text=»QUEJOB EQU *«, t00=0x0069, t01=0x0070}
0xa474…a498 Head {h00=0x0020, h01=0x0050, text=»* QUEUE THIS TASK (THIS TID)«, t00=0x0069, t01=0x0084}
0xa498…a4a0 Head {h00=0x0004, h01=0x0050, t00=0x0069, t01=0x00a8}
0xa4a0…a4d4 Head {h00=0x0030, h01=0x0050, text=» LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS«, t00=0x0069, t01=0x00b0}
0xa4d4…a4f0 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A13 RELOCATE«, t00=0x0069, t01=0x00e4}
0xa4f0…a510 Head {h00=0x001c, h01=0x0050, text=» STR A3,A15 PUT ON STACK«, t00=0x0069, t01=0x0100}
0xa510…a53e Head {h00=0x002a, h01=0x0050, text=» LDKL A3,/00C0 SET LEVEL 0 AND ENABLE «, t00=0x0069, t01=0x0120}
0xa53e…a556 Head {h00=0x0014, h01=0x0050, text=» STR A3,A15 PSW «, t00=0x0069, t01=0x014e}
0xa556…a578 Head {h00=0x001e, h01=0x0050, text=» CF A15,SAVE8 SAVE 8 REGS «, t00=0x0069, t01=0x0166}
0xa578…a5a0 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 CLEAR ABORT INDICATOR «, t00=0x0069, t01=0x0188}
0xa5a0…a5b6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x006a, t01=0x0020}
0xa5b6…a5e6 Head {h00=0x002c, h01=0x0050, text=» LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS«, t00=0x006a, t01=0x0036}
0xa5e6…a5f8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x006a, t01=0x0066}
0xa5f8…a60e Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FFFE«, t00=0x006a, t01=0x0078}
0xa60e…a626 Head {h00=0x0014, h01=0x0050, text=» ADK A4,DWBFST+4«, t00=0x006a, t01=0x008e}
0xa626…a662 Head {h00=0x0038, h01=0x0050, text=» ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS«, t00=0x006a, t01=0x00a6}
0xa662…a68c Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A4 NUMBER OF START POINTS«, t00=0x006a, t01=0x00e2}
0xa68c…a6be Head {h00=0x002e, h01=0x0050, text=»GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS«, t00=0x006a, t01=0x010c}
0xa6be…a6d8 Head {h00=0x0016, h01=0x0050, text=» RF(N) GETT40 ALL!«, t00=0x006a, t01=0x013e}
0xa6d8…a6f8 Head {h00=0x001c, h01=0x0050, text=» LD A1,4,A4 DISP ADDRESS«, t00=0x006a, t01=0x0158}
0xa6f8…a71a Head {h00=0x001e, h01=0x0050, text=» LD A3,2,A4 SEGMENT NUMBER«, t00=0x006a, t01=0x0178}
0xa71a…a726 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x000a}
0xa726…a73c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x006b, t01=0x0016}
0xa73c…a76c Head {h00=0x002c, h01=0x0050, text=» EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS«, t00=0x006b, t01=0x002c}
0xa76c…a77e Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x006b, t01=0x005c}
0xa77e…a794 Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FFFE«, t00=0x006b, t01=0x006e}
0xa794…a7ac Head {h00=0x0014, h01=0x0050, text=» ADK A4,DWBFST+4«, t00=0x006b, t01=0x0084}
0xa7ac…a7e8 Head {h00=0x0038, h01=0x0050, text=» ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS«, t00=0x006b, t01=0x009c}
0xa7e8…a812 Head {h00=0x0026, h01=0x0050, text=» ELR A6,A4 NUMBER OF START-POINTS «, t00=0x006b, t01=0x00d8}
0xa812…a844 Head {h00=0x002e, h01=0x0050, text=»GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS«, t00=0x006b, t01=0x0102}
0xa844…a85e Head {h00=0x0016, h01=0x0050, text=» RF(N) GETT40 ALL!«, t00=0x006b, t01=0x0134}
0xa85e…a87e Head {h00=0x001c, h01=0x0050, text=» EL A1,4,A4 DISP ADDRESS«, t00=0x006b, t01=0x014e}
0xa87e…a8a0 Head {h00=0x001e, h01=0x0050, text=» EL A3,2,A4 SEGMENT NUMBER«, t00=0x006b, t01=0x016e}
0xa8a0…a8ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x0190}
0xa8ac…a8c2 Head {h00=0x0012, h01=0x0050, text=» CF A15,ACTOT «, t00=0x006c, t01=0x000c}
0xa8c2…a8ea Head {h00=0x0024, h01=0x0050, text=» ADK A4,STPREC NEXT START-POINT «, t00=0x006c, t01=0x0022}
0xa8ea…a8fc Head {h00=0x000e, h01=0x0050, text=» RB GETT30«, t00=0x006c, t01=0x004a}
0xa8fc…a924 Head {h00=0x0024, h01=0x0050, text=»GETT40 ABL RETUR8 RELOAD 8 REGS «, t00=0x006c, t01=0x005c}
0xa924…a93c Head {h00=0x0014, h01=0x0050, text=»RETUR EQU *-REL «, t00=0x006c, t01=0x0084}
0xa93c…a94c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006c, t01=0x009c}
0xa94c…a95a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006c, t01=0x00ac}
0xa95a…a962 Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x00ba}
0xa962…a99a Head {h00=0x0034, h01=0x0050, text=»** M O V M M T ** «, t00=0x006c, t01=0x00c2}
0xa99a…a9d2 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x006c, t01=0x00fa}
0xa9d2…aa0a Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x006c, t01=0x0132}
0xaa0a…aa42 Head {h00=0x0034, h01=0x0050, text=»** MOVE MM-TABLE ** «, t00=0x006c, t01=0x016a}
0xaa42…aa7a Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x006d, t01=0x0012}
0xaa7a…aab2 Head {h00=0x0034, h01=0x0050, text=»** INPUT :A2=TTAB-ADDRESS ** «, t00=0x006d, t01=0x004a}
0xaab2…aaea Head {h00=0x0034, h01=0x0050, text=»** MMTAB HOLDS TABLE TO MOVE ** «, t00=0x006d, t01=0x0082}
0xaaea…ab22 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A2=START OF MM-TABLE IN TTAB ** «, t00=0x006d, t01=0x00ba}
0xab22…ab5a Head {h00=0x0034, h01=0x0050, text=»** A9=TTAB ADDRESS ** «, t00=0x006d, t01=0x00f2}
0xab5a…ab92 Head {h00=0x0034, h01=0x0050, text=»** WORKREGS:A1,A3 ** «, t00=0x006d, t01=0x012a}
0xab92…abca Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x006d, t01=0x0162}
0xabca…abd2 Head {h00=0x0004, h01=0x0050, t00=0x006e, t01=0x000a}
0xabd2…abe6 Head {h00=0x0010, h01=0x0050, text=»MOVMMT EQU *«, t00=0x006e, t01=0x0012}
0xabe6…abfc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x006e, t01=0x0026}
0xabfc…ac28 Head {h00=0x0028, h01=0x0050, text=» ADKL A2,MMBEG GET TO-TABLE ADDRESS «, t00=0x006e, t01=0x003c}
0xac28…ac4e Head {h00=0x0022, h01=0x0050, text=» TL MMTAB,A13 LOAD FROM-TABLE «, t00=0x006e, t01=0x0068}
0xac4e…ac62 Head {h00=0x0010, h01=0x0050, text=» TSR A2 MOVE«, t00=0x006e, t01=0x008e}
0xac62…ac74 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x006e, t01=0x00a2}
0xac74…aca0 Head {h00=0x0028, h01=0x0050, text=» CALL MMENT FILL LAST ENTRY ADDRESS «, t00=0x006e, t01=0x00b4}
0xaca0…acc8 Head {h00=0x0024, h01=0x0050, text=» TL* MMFROM+STKCOM RELOAD TABLE «, t00=0x006e, t01=0x00e0}
0xacc8…acd8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006e, t01=0x0108}
0xacd8…ace4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x0118}
0xace4…acf2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x0124}
0xacf2…ad26 Head {h00=0x0030, h01=0x0050, text=»SYSINI EQU * START OF SYSTEM INITIALIZATION «, t00=0x006e, t01=0x0132}
0xad26…ad42 Head {h00=0x0018, h01=0x0050, text=» IFT DSKPAG-MMUPAG=1«, t00=0x006e, t01=0x0166}
0xad42…ad4c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006e, t01=0x0182}
0xad4c…ad76 Head {h00=0x0026, h01=0x0050, text=»* INITIATE DYNAMIC CORE FOR COBOL«, t00=0x006e, t01=0x018c}
0xad76…ad80 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x0026}
0xad80…ada6 Head {h00=0x0022, h01=0x001d, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x006f, t01=0x0030}
0xada6…adcc Head {h00=0x0022, h01=0x001e, text=» ANKL A2,/2000 ANY COBOL APPL?«, t00=0x006f, t01=0x0056}
0xadcc…ade6 Head {h00=0x0016, h01=0x0011, text=» RF(Z) PBSEND NO! «, t00=0x006f, t01=0x007c}
0xade6…ae18 Head {h00=0x002e, h01=0x002a, text=» LD A8,DYNSTA+STKCOM GET START OF DYNTAB:S«, t00=0x006f, t01=0x0096}
0xae18…ae42 Head {h00=0x0026, h01=0x0022, text=» LDR* A2,A8 GET NUMBER OF DYNTAB:S«, t00=0x006f, t01=0x00c8}
0xae42…ae6e Head {h00=0x0028, h01=0x0023, text=» ADKL A8,2 INCREMENT DYNTAB POINTER «, t00=0x006f, t01=0x00f2}
0xae6e…ae82 Head {h00=0x0010, h01=0x0050, text=»INDY05 EQU *«, t00=0x006f, t01=0x011e}
0xae82…aeb0 Head {h00=0x002a, h01=0x0025, text=» LDR* A3,A8 GET DYNTAB LENGTH (BYTES) «, t00=0x006f, t01=0x0132}
0xaeb0…aec4 Head {h00=0x0010, h01=0x0050, text=»INDY10 EQU *«, t00=0x006f, t01=0x0160}
0xaec4…aef0 Head {h00=0x0028, h01=0x0023, text=» ADKL A8,2 INCREMENT DYNTAB POINTER «, t00=0x006f, t01=0x0174}
0xaef0…af14 Head {h00=0x0020, h01=0x001b, text=» LDR* A7,A8 GET SPL-PBS ADR «, t00=0x0070, t01=0x0010}
0xaf14…af28 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A13 «, t00=0x0070, t01=0x0034}
0xaf28…af56 Head {h00=0x002a, h01=0x0026, text=» ADKL A6,PBSTAB CONSTANT-TABLE ADDRESS«, t00=0x0070, t01=0x0048}
0xaf56…af76 Head {h00=0x001c, h01=0x0017, text=» SUK A3,2 END OF DYNTAB «, t00=0x0070, t01=0x0076}
0xaf76…af90 Head {h00=0x0016, h01=0x0050, text=» RF(Z) INDY50 YES!«, t00=0x0070, t01=0x0096}
0xaf90…afa4 Head {h00=0x0010, h01=0x0050, text=»INDY20 EQU *«, t00=0x0070, t01=0x00b0}
0xafa4…afcc Head {h00=0x0024, h01=0x0020, text=» LDR* A5,A6 GET NUMBER OF COPIES«, t00=0x0070, t01=0x00c4}
0xafcc…aff0 Head {h00=0x0020, h01=0x001b, text=» CWK A5,/FFFF END OF TABLE? «, t00=0x0070, t01=0x00ec}
0xaff0…b00a Head {h00=0x0016, h01=0x0050, text=» RF(E) INDY40 YES!«, t00=0x0070, t01=0x0110}
0xb00a…b02e Head {h00=0x0020, h01=0x001c, text=» LD A4,2,A6 GET WORD TO COPY«, t00=0x0070, t01=0x012a}
0xb02e…b04e Head {h00=0x001c, h01=0x0017, text=» ADK A6,4 ADJUST PBSTAB «, t00=0x0070, t01=0x014e}
0xb04e…b062 Head {h00=0x0010, h01=0x0050, text=»INDY30 EQU *«, t00=0x0070, t01=0x016e}
0xb062…b08c Head {h00=0x0026, h01=0x0021, text=» SUK A5,1 DECREMENT NBR.OF COPIES «, t00=0x0070, t01=0x0182}
0xb08c…b0be Head {h00=0x002e, h01=0x0050, text=» RB(N) INDY20 ALL DONE FOR THIS CHARACTER «, t00=0x0071, t01=0x001c}
0xb0be…b0ec Head {h00=0x002a, h01=0x0025, text=» STR A4,A7 STORE CHARACTER IN SPL-PBS «, t00=0x0071, t01=0x004e}
0xb0ec…b112 Head {h00=0x0022, h01=0x001e, text=» ADK A7,2 STEP SPL-PBS POINTER«, t00=0x0071, t01=0x007c}
0xb112…b12e Head {h00=0x0018, h01=0x0050, text=» RB INDY30 NEXT WORD«, t00=0x0071, t01=0x00a2}
0xb12e…b142 Head {h00=0x0010, h01=0x0050, text=»INDY40 EQU *«, t00=0x0071, t01=0x00be}
0xb142…b162 Head {h00=0x001c, h01=0x0017, text=» LDR* A4,A8 SPL-PBS ADR «, t00=0x0071, t01=0x00d2}
0xb162…b184 Head {h00=0x001e, h01=0x001a, text=» LDKL A5,STKMAX STACK-SIZE«, t00=0x0071, t01=0x00f2}
0xb184…b1ae Head {h00=0x0026, h01=0x0021, text=» ST A5,SPLSTS,A4 STORE IN SPL-PBS «, t00=0x0071, t01=0x0114}
0xb1ae…b1da Head {h00=0x0028, h01=0x0024, text=» LDKL A7,ENTFIN ENTRY-FINI (ADDRESS)«, t00=0x0071, t01=0x013e}
0xb1da…b204 Head {h00=0x0026, h01=0x0021, text=» ST A7,SPLENT,A4 STORE IN SPL-PBS «, t00=0x0071, t01=0x016a}
0xb204…b224 (114, 0, 400) Head {h00=0x001c, h01=0x0017, text=» LDR A6,A4 SPL-PBS ADDR «, t00=0x0072, t01=0x0004}
0xb224…b24e Head {h00=0x0026, h01=0x0022, text=» ADK A6,SPLSTA POINT AT STACK AREA«, t00=0x0072, t01=0x0024}
0xb24e…b272 Head {h00=0x0020, h01=0x001b, text=» ADR A5,A6 +STACK AREA ADDR «, t00=0x0072, t01=0x004e}
0xb272…b2a6 Head {h00=0x0030, h01=0x002c, text=» ST A5,SPLSTB,A4 STORE IN SPL-PBS STACK-BASE«, t00=0x0072, t01=0x0072}
0xb2a6…b2b8 Head {h00=0x000e, h01=0x0050, text=» RB INDY10«, t00=0x0072, t01=0x00a6}
0xb2b8…b2cc Head {h00=0x0010, h01=0x0050, text=»INDY50 EQU *«, t00=0x0072, t01=0x00b8}
0xb2cc…b2f0 Head {h00=0x0020, h01=0x001c, text=» SUK A2,1 ANY DYNTAB:S LEFT?«, t00=0x0072, t01=0x00cc}
0xb2f0…b30c Head {h00=0x0018, h01=0x0050, text=» RB(NZ) INDY05 YES! «, t00=0x0072, t01=0x00f0}
0xb30c…b322 Head {h00=0x0012, h01=0x000e, text=» RF PBSEND NO!«, t00=0x0072, t01=0x010c}
0xb322…b330 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x0122}
0xb330…b36a Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0072, t01=0x0130}
0xb36a…b3a4 Head {h00=0x0036, h01=0x0032, text=»** **«, t00=0x0072, t01=0x016a}
0xb3a4…b3de Head {h00=0x0036, h01=0x0032, text=»** EACH WORD IN THIS TABLE CONSISTS OF: **«, t00=0x0073, t01=0x0014}
0xb3de…b418 Head {h00=0x0036, h01=0x0032, text=»** WORD1=COUNTER,NBR OF COPIES OF NEXT WORD **«, t00=0x0073, t01=0x004e}
0xb418…b452 Head {h00=0x0036, h01=0x0032, text=»** WORD2=WORD **«, t00=0x0073, t01=0x0088}
0xb452…b48c Head {h00=0x0036, h01=0x0032, text=»** **«, t00=0x0073, t01=0x00c2}
0xb48c…b4c6 Head {h00=0x0036, h01=0x0032, text=»** BYTE1 (COUNTER)=/FF MEANS END OF TABLE **«, t00=0x0073, t01=0x00fc}
0xb4c6…b500 Head {h00=0x0036, h01=0x0032, text=»** **«, t00=0x0073, t01=0x0136}
0xb500…b53a Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0073, t01=0x0170}
0xb53a…b552 Head {h00=0x0014, h01=0x0050, text=»PBSTAB EQU *-REL«, t00=0x0074, t01=0x001a}
0xb552…b572 Head {h00=0x001c, h01=0x0018, text=» DATA 1 TERMINATION-CODE«, t00=0x0074, t01=0x0032}
0xb572…b582 Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0074, t01=0x0052}
0xb582…b59c Head {h00=0x0016, h01=0x0012, text=» DATA 1 STACK-USED«, t00=0x0074, t01=0x0062}
0xb59c…b5ac Head {h00=0x000c, h01=0x0008, text=» DATA /6«, t00=0x0074, t01=0x007c}
0xb5ac…b5c6 Head {h00=0x0016, h01=0x0012, text=» DATA 1 STACK-SIZE«, t00=0x0074, t01=0x008c}
0xb5c6…b5d6 Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0074, t01=0x00a6}
0xb5d6…b5f4 Head {h00=0x001a, h01=0x0016, text=» DATA 3 PROCEDURE-NAME«, t00=0x0074, t01=0x00b6}
0xb5f4…b608 Head {h00=0x0010, h01=0x000b, text=» DATA /2020 «, t00=0x0074, t01=0x00d4}
0xb608…b632 Head {h00=0x0026, h01=0x0022, text=» DATA 20 PGM-DATA UNTIL STACK-BASE«, t00=0x0074, t01=0x00e8}
0xb632…b642 Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0074, t01=0x0112}
0xb642…b65c Head {h00=0x0016, h01=0x0012, text=» DATA 1 STACK-BASE«, t00=0x0074, t01=0x0122}
0xb65c…b66c Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0074, t01=0x013c}
0xb66c…b686 Head {h00=0x0016, h01=0x0012, text=» DATA 1 ENTRY-FINI«, t00=0x0074, t01=0x014c}
0xb686…b696 Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0074, t01=0x0166}
0xb696…b6c0 Head {h00=0x0026, h01=0x0022, text=» DATA 16 LAST-TS,RUNTIME-WORK-AREA«, t00=0x0074, t01=0x0176}
0xb6c0…b6d0 Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0075, t01=0x0010}
0xb6d0…b6fa Head {h00=0x0026, h01=0x0021, text=» DATA /FFFF E N D O F T A B L E «, t00=0x0075, t01=0x0020}
0xb6fa…b70e Head {h00=0x0010, h01=0x000c, text=»PBSEND EQU *«, t00=0x0075, t01=0x004a}
0xb70e…b71a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x005e}
0xb71a…b736 Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x0075, t01=0x006a}
0xb736…b740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0086}
0xb740…b778 Head {h00=0x0034, h01=0x0050, text=»* RESERVE PAGES IN MEMORY AND BUILD PAGE TABLE «, t00=0x0075, t01=0x0090}
0xb778…b782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00c8}
0xb782…b796 Head {h00=0x0010, h01=0x000c, text=»PAGGEN EQU *«, t00=0x0075, t01=0x00d2}
0xb796…b7ba Head {h00=0x0020, h01=0x0050, text=» LDKL A2,PAGEX EXIT ADDRESS «, t00=0x0075, t01=0x00e6}
0xb7ba…b7d6 Head {h00=0x0018, h01=0x0050, text=» ADR A2,A13 RELOCATE«, t00=0x0075, t01=0x010a}
0xb7d6…b810 Head {h00=0x0036, h01=0x0050, text=» LD A1,STKCOM+TOTSGM ANY SEGMENTS IN APPLICATION? «, t00=0x0075, t01=0x0126}
0xb810…b826 Head {h00=0x0012, h01=0x0050, text=» ABR(Z) A2 NO!«, t00=0x0075, t01=0x0160}
0xb826…b84c Head {h00=0x0022, h01=0x001d, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0075, t01=0x0176}
0xb84c…b866 Head {h00=0x0016, h01=0x0011, text=» ANK A1,3 PAGING? «, t00=0x0076, t01=0x000c}
0xb866…b87c Head {h00=0x0012, h01=0x0050, text=» ABR(Z) A2 NO!«, t00=0x0076, t01=0x0026}
0xb87c…b886 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0076, t01=0x003c}
0xb886…b8d6 Head {h00=0x004c, h01=0x0047, text=»* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS «, t00=0x0076, t01=0x0046}
0xb8d6…b8e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0076, t01=0x0096}
0xb8e0…b90e Head {h00=0x002a, h01=0x0050, text=» LD A11,SCTSFA GET START OF FREE AREA «, t00=0x0076, t01=0x00a0}
0xb90e…b934 Head {h00=0x0022, h01=0x001e, text=» ST A11,SCTPAG STORE IN SYSTAB«, t00=0x0076, t01=0x00ce}
0xb934…b95c Head {h00=0x0024, h01=0x001f, text=» LDR A8,A13 GET RELOCATION BASE «, t00=0x0076, t01=0x00f4}
0xb95c…b98c Head {h00=0x002c, h01=0x0050, text=» ADKL A8,INI70-REL LIMIT FOR PAGE TABLE «, t00=0x0076, t01=0x011c}
0xb98c…b9b0 Head {h00=0x0020, h01=0x001c, text=» LDK A7,0 RESET PAGE COUNTER«, t00=0x0076, t01=0x014c}
0xb9b0…b9c4 Head {h00=0x0010, h01=0x000c, text=»PAG:10 EQU *«, t00=0x0076, t01=0x0170}
0xb9c4…b9f4 Head {h00=0x002c, h01=0x0027, text=» CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? «, t00=0x0076, t01=0x0184}
0xb9f4…ba0e Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:30 YES!«, t00=0x0077, t01=0x0024}
0xba0e…ba36 Head {h00=0x0024, h01=0x001f, text=» LDK A1,0 RESET NUMBER OF WORDS «, t00=0x0077, t01=0x003e}
0xba36…ba4a Head {h00=0x0010, h01=0x000c, text=»PAG:20 EQU *«, t00=0x0077, t01=0x0066}
0xba4a…ba70 Head {h00=0x0022, h01=0x001d, text=» ADKL A11,2 INCLUDE NEXT WORD «, t00=0x0077, t01=0x007a}
0xba70…baa4 Head {h00=0x0030, h01=0x002b, text=» RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) «, t00=0x0077, t01=0x00a0}
0xbaa4…bacc Head {h00=0x0024, h01=0x0020, text=» ADK A1,1 INCREMENT WORD COUNTER«, t00=0x0077, t01=0x00d4}
0xbacc…baf0 Head {h00=0x0020, h01=0x001b, text=» CWK A1,4 4 WORDS RESERVED? «, t00=0x0077, t01=0x00fc}
0xbaf0…bb0a Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:25 YES!«, t00=0x0077, t01=0x0120}
0xbb0a…bb36 Head {h00=0x0028, h01=0x0023, text=» CWR A11,A8 CHECK PROGRAM OVERWRITE «, t00=0x0077, t01=0x013a}
0xbb36…bb5c Head {h00=0x0022, h01=0x001e, text=» RF(E) MEMOFL MEMORY OVERFLOW!«, t00=0x0077, t01=0x0166}
0xbb5c…bb6e Head {h00=0x000e, h01=0x000a, text=» RB PAG:20«, t00=0x0077, t01=0x018c}
0xbb6e…bba2 Head {h00=0x0030, h01=0x002c, text=»PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER«, t00=0x0078, t01=0x000e}
0xbba2…bbb4 Head {h00=0x000e, h01=0x000a, text=» RB PAG:10«, t00=0x0078, t01=0x0042}
0xbbb4…bbc8 Head {h00=0x0010, h01=0x000c, text=»PAG:30 EQU *«, t00=0x0078, t01=0x0054}
0xbbc8…bbd2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0078, t01=0x0068}
0xbbd2…bc0a Head {h00=0x0034, h01=0x002f, text=»* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY «, t00=0x0078, t01=0x0072}
0xbc0a…bc44 Head {h00=0x0036, h01=0x0032, text=»* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER«, t00=0x0078, t01=0x00aa}
0xbc44…bc5e Head {h00=0x0016, h01=0x0012, text=»* OF PAGE BLOCKS.«, t00=0x0078, t01=0x00e4}
0xbc5e…bc68 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0078, t01=0x00fe}
0xbc68…bc74 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x0108}
0xbc74…bc8a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0078, t01=0x0114}
0xbc8a…bcb8 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKCOM+FYSPAG GET PHYSICAL PAGE«, t00=0x0078, t01=0x012a}
0xbcb8…bcee Head {h00=0x0032, h01=0x0050, text=» LD A2,STKCOM+LSTADR GET LAST LOGICAL ADDRESS «, t00=0x0078, t01=0x0158}
0xbcee…bd14 Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/FFF GET DISPLACEMENT«, t00=0x0078, t01=0x018e}
0xbd14…bd3e Head {h00=0x0026, h01=0x0021, text=» SRL A2,2 SKIP TWO RIGHTMOST BITS «, t00=0x0079, t01=0x0024}
0xbd3e…bd6e Head {h00=0x002c, h01=0x0050, text=» ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS«, t00=0x0079, t01=0x004e}
0xbd6e…bd86 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x0079, t01=0x007e}
0xbd86…bdaa Head {h00=0x0020, h01=0x001b, text=» LD A2,SCTPSZ GET PAGE SIZE «, t00=0x0079, t01=0x0096}
0xbdaa…bdd4 Head {h00=0x0026, h01=0x0021, text=» SRL A2,2 SKIP TWO RIGHTMOST BITS «, t00=0x0079, t01=0x00ba}
0xbdd4…bdec Head {h00=0x0014, h01=0x0010, text=» LDR A10,A2 SAVE«, t00=0x0079, t01=0x00e4}
0xbdec…be20 Head {h00=0x0030, h01=0x002c, text=» ANKL A1,/FC00 MAKE EVEN 4K-MULTIPLE ADDRESS«, t00=0x0079, t01=0x00fc}
0xbe20…be4c Head {h00=0x0028, h01=0x0023, text=» ANKL A2,/0300 MODIFY FOR PAGE SIZE «, t00=0x0079, t01=0x0130}
0xbe4c…be6e Head {h00=0x001e, h01=0x0050, text=» ANR A2,A3 EVEN 1-KB LIMIT«, t00=0x0079, t01=0x015c}
0xbe6e…be9a Head {h00=0x0028, h01=0x0024, text=» ORR A1,A2 MODIFY PAGE ADDRESS LIMIT«, t00=0x0079, t01=0x017e}
0xbe9a…bea6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007a, t01=0x001a}
0xbea6…bec2 Head {h00=0x0018, h01=0x0050, text=» IFT DSKPAG-MMUPAG=1«, t00=0x007a, t01=0x0026}
0xbec2…bef8 Head {h00=0x0032, h01=0x0050, text=» LD A1,LSTADR+STKCOM GET PHYSICAL LAST ADDRESS«, t00=0x007a, t01=0x0042}
0xbef8…bf18 Head {h00=0x001c, h01=0x0050, text=» LD A10,SCTPSZ PAGE SIZE«, t00=0x007a, t01=0x0078}
0xbf18…bf24 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007a, t01=0x0098}
0xbf24…bf40 Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x007a, t01=0x00a4}
0xbf40…bf64 Head {h00=0x0020, h01=0x001c, text=» LDR A9,A1 INIT PAGE ADDRESS«, t00=0x007a, t01=0x00c0}
0xbf64…bf7c Head {h00=0x0014, h01=0x000f, text=» LDR A6,A9 SAVE «, t00=0x007a, t01=0x00e4}
0xbf7c…bf90 Head {h00=0x0010, h01=0x0050, text=»PAG:31 EQU *«, t00=0x007a, t01=0x00fc}
0xbf90…bfc0 Head {h00=0x002c, h01=0x0050, text=» ST A11,SCTSFA UPDATE START OF FREE AREA«, t00=0x007a, t01=0x0110}
0xbfc0…bfd4 Head {h00=0x0010, h01=0x0050, text=» TNM A6,A10 «, t00=0x007a, t01=0x0140}
0xbfd4…bfea Head {h00=0x0012, h01=0x0050, text=» RF(NN) PAG:32«, t00=0x007a, t01=0x0154}
0xbfea…bffe Head {h00=0x0010, h01=0x0050, text=» CWR A10,A6 «, t00=0x007a, t01=0x016a}
0xbffe…c010 Head {h00=0x000e, h01=0x0050, text=» RF PAG:33«, t00=0x007a, t01=0x017e}
0xc010…c02a Head {h00=0x0016, h01=0x0050, text=»PAG:32 CWR A6,A10 «, t00=0x007a, t01=0x0190}
0xc02a…c046 Head {h00=0x0018, h01=0x0050, text=»PAG:33 RF(NG) PAG:40«, t00=0x007b, t01=0x001a}
0xc046…c076 Head {h00=0x002c, h01=0x0050, text=» SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE«, t00=0x007b, t01=0x0036}
0xc076…c09a Head {h00=0x0020, h01=0x001b, text=» LDR A1,A6 GET PAGE ADDRESS «, t00=0x007b, t01=0x0066}
0xc09a…c0b0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007b, t01=0x008a}
0xc0b0…c0de Head {h00=0x002a, h01=0x0026, text=» ANKL A1,/C000 ADDRESS IN SYSTEM AREA?«, t00=0x007b, t01=0x00a0}
0xc0de…c0fa Head {h00=0x0018, h01=0x0013, text=» RF(NZ) PAG:34 NO! «, t00=0x007b, t01=0x00ce}
0xc0fa…c12c Head {h00=0x002e, h01=0x002a, text=» LDR A1,A6 PHYSICAL ADDRESS IN SYSTEM AREA«, t00=0x007b, t01=0x00ea}
0xc12c…c15e Head {h00=0x002e, h01=0x0029, text=» SLL A1,2 ABSOLUTE ADDRESS IN SYSTEM AREA «, t00=0x007b, t01=0x011c}
0xc15e…c170 Head {h00=0x000e, h01=0x000a, text=» RF PAG:36«, t00=0x007b, t01=0x014e}
0xc170…c198 Head {h00=0x0024, h01=0x0020, text=»PAG:34 LDK A1,0 END OF FREE AREA«, t00=0x007b, t01=0x0160}
0xc198…c1a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x0188}
0xc1a4…c1c0 (124, 0, 400) Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x007c, t01=0x0004}
0xc1c0…c1ea Head {h00=0x0026, h01=0x0022, text=»PAG:36 LDK A2,0 RESET WORD COUNTER«, t00=0x007c, t01=0x0020}
0xc1ea…c21c Head {h00=0x002e, h01=0x0050, text=»PAG:38 CWR A11,A8 CHECK PROGRAM OVERWRITE «, t00=0x007c, t01=0x004a}
0xc21c…c24a Head {h00=0x002a, h01=0x0050, text=» RF(E) PAG:40 NO MORE MEMORY AVALIABLE«, t00=0x007c, t01=0x007c}
0xc24a…c272 Head {h00=0x0024, h01=0x0050, text=» ADKL A11,2 INCR. PAGBLK POINTER«, t00=0x007c, t01=0x00aa}
0xc272…c29a Head {h00=0x0024, h01=0x0020, text=» ADK A2,1 INCREMENT WORD COUNTER«, t00=0x007c, t01=0x00d2}
0xc29a…c2bc Head {h00=0x001e, h01=0x0019, text=» CWK A2,4 BLOCK COMPLETE? «, t00=0x007c, t01=0x00fa}
0xc2bc…c2d6 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:45 YES!«, t00=0x007c, t01=0x011c}
0xc2d6…c300 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A1 ADDRESS IN SYSTEM AREA?«, t00=0x007c, t01=0x0136}
0xc300…c31a Head {h00=0x0016, h01=0x0050, text=» RB(Z) PAG:38 NO! «, t00=0x007c, t01=0x0160}
0xc31a…c340 Head {h00=0x0022, h01=0x0050, text=» TNM A11,A1 32-KB LIMIT CHECK «, t00=0x007c, t01=0x017a}
0xc340…c356 Head {h00=0x0012, h01=0x0050, text=» RF(NN) PAG382«, t00=0x007d, t01=0x0010}
0xc356…c36a Head {h00=0x0010, h01=0x0050, text=» CWR A11,A1 «, t00=0x007d, t01=0x0026}
0xc36a…c37c Head {h00=0x000e, h01=0x0050, text=» RF PAG384«, t00=0x007d, t01=0x003a}
0xc37c…c396 Head {h00=0x0016, h01=0x0050, text=»PAG382 CWR A1,A11 «, t00=0x007d, t01=0x004c}
0xc396…c3c8 Head {h00=0x002e, h01=0x0050, text=»PAG384 RB(G) PAG:38 MORE MEMORY AVALIABLE «, t00=0x007d, t01=0x0066}
0xc3c8…c3dc Head {h00=0x0010, h01=0x000c, text=»PAG:40 EQU *«, t00=0x007d, t01=0x0098}
0xc3dc…c402 Head {h00=0x0022, h01=0x0050, text=» ADK A7,0 ANY PAGES RESERVED? «, t00=0x007d, t01=0x00ac}
0xc402…c41c Head {h00=0x0016, h01=0x0050, text=» RF(Z) MEMOFL NO! «, t00=0x007d, t01=0x00d2}
0xc41c…c456 Head {h00=0x0036, h01=0x0031, text=» CW A7,SCTNOP ONLY PAGES FOR CORE RESIDENT PAGES? «, t00=0x007d, t01=0x00ec}
0xc456…c470 Head {h00=0x0016, h01=0x0011, text=» RF(G) PAG:50 NO! «, t00=0x007d, t01=0x0126}
0xc470…c4b8 Head {h00=0x0044, h01=0x0050, text=» CW A7,STKCOM+TOTSGM ONLY CORE RESIDENT SEGMENTS IN APPLICATION?«, t00=0x007d, t01=0x0140}
0xc4b8…c4d2 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:50 YES!«, t00=0x007d, t01=0x0188}
0xc4d2…c4ee Head {h00=0x0018, h01=0x0013, text=»MEMOFL LDKL A1,LMP3 «, t00=0x007e, t01=0x0012}
0xc4ee…c51c Head {h00=0x002a, h01=0x0026, text=» OTR A1,0,SOP INDICATE MEMORY OVERFLOW«, t00=0x007e, t01=0x002e}
0xc51c…c536 Head {h00=0x0016, h01=0x0012, text=» HLT HALT PROGRAM«, t00=0x007e, t01=0x005c}
0xc536…c574 Head {h00=0x003a, h01=0x0050, text=»PAG:45 CW A7,STKCOM+TOTSGM ONE PAGE/SEGMENT ALLOCATED?«, t00=0x007e, t01=0x0076}
0xc574…c5a4 Head {h00=0x002c, h01=0x0050, text=» CW A7,STKCOM+TOTSGM MORE PAGES WANTED? «, t00=0x007e, t01=0x00b4}
0xc5a4…c5be Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:50 YES!«, t00=0x007e, t01=0x00e4}
0xc5be…c5e6 Head {h00=0x0024, h01=0x0020, text=» ADK A7,1 INCREMENT PAGE COUNTER«, t00=0x007e, t01=0x00fe}
0xc5e6…c60a Head {h00=0x0020, h01=0x001c, text=» LDR A9,A6 SAVE PAGE ADDRESS«, t00=0x007e, t01=0x0126}
0xc60a…c61c Head {h00=0x000e, h01=0x0050, text=» RB PAG:31«, t00=0x007e, t01=0x014a}
0xc61c…c630 Head {h00=0x0010, h01=0x000c, text=»PAG:50 EQU *«, t00=0x007e, t01=0x015c}
0xc630…c65a Head {h00=0x0026, h01=0x0022, text=» ST A7,SCTNOP SAVE NUMBER OF PAGES«, t00=0x007e, t01=0x0170}
0xc65a…c686 Head {h00=0x0028, h01=0x0024, text=» LDR A1,A9 GET ADDRESS TO FIRST PAGE«, t00=0x007f, t01=0x000a}
0xc686…c69e Head {h00=0x0014, h01=0x000f, text=» LDR A2,A1 SAVE «, t00=0x007f, t01=0x0036}
0xc69e…c6b4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007f, t01=0x004e}
0xc6b4…c6e2 Head {h00=0x002a, h01=0x0050, text=» SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS «, t00=0x007f, t01=0x0064}
0xc6e2…c6fc Head {h00=0x0016, h01=0x0012, text=» ST A1,SCTEFA SAVE«, t00=0x007f, t01=0x0092}
0xc6fc…c72e Head {h00=0x002e, h01=0x002a, text=» SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS«, t00=0x007f, t01=0x00ac}
0xc72e…c73a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x00de}
0xc73a…c756 Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x007f, t01=0x00ea}
0xc756…c772 Head {h00=0x0018, h01=0x0014, text=» ST A2,SCTEFA+2 SAVE«, t00=0x007f, t01=0x0106}
0xc772…c780 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x0122}
0xc780…c798 Head {h00=0x0014, h01=0x0050, text=»PAGEX EQU *-REL «, t00=0x007f, t01=0x0130}
0xc798…c7a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0148}
0xc7a4…c7d2 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTPAG GET PAGE TABLE ADDRESS «, t00=0x007f, t01=0x0154}
0xc7d2…c802 Head {h00=0x002c, h01=0x0050, text=» LD A7,STKCOM+APLTAB GET START OF ACB:S «, t00=0x007f, t01=0x0182}
0xc802…c830 Head {h00=0x002a, h01=0x0050, text=» LDR* A4,A7 GET NUMBER OF APPLICATIONS«, t00=0x0080, t01=0x0022}
0xc830…c862 Head {h00=0x002e, h01=0x0050, text=»INI10 LD* A3,APLMMC+2,A7 GET TTAB ADDRESS «, t00=0x0080, t01=0x0050}
0xc862…c87e Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x0080, t01=0x0082}
0xc87e…c8b2 Head {h00=0x0030, h01=0x0050, text=» LD A11,TTB:SP,A3 GET SEGMENT TABLE ADDRESS «, t00=0x0080, t01=0x009e}
0xc8b2…c8d8 Head {h00=0x0022, h01=0x0050, text=» RF(Z) INI40 NO SEGMENT TABLE «, t00=0x0080, t01=0x00d2}
0xc8d8…c908 Head {h00=0x002c, h01=0x0050, text=» LD A6,SEG:NS,A11 GET NUMBER OF SEGMENTS«, t00=0x0080, t01=0x00f8}
0xc908…c92a Head {h00=0x001e, h01=0x0050, text=» RF(Z) INI40 NO SEGMENTS! «, t00=0x0080, t01=0x0128}
0xc92a…c936 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x014a}
0xc936…c94c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0080, t01=0x0156}
0xc94c…c980 Head {h00=0x0030, h01=0x0050, text=» LD A1,APLNPE+2,A7 GET DISPL WITHIN 4K PAGE «, t00=0x0080, t01=0x016c}
0xc980…c9aa Head {h00=0x0026, h01=0x0050, text=» SRL A1,2 SKIP TWO RIGHTMOST BITS «, t00=0x0081, t01=0x0010}
0xc9aa…c9e8 Head {h00=0x003a, h01=0x0050, text=» OR A1,APLSEG+2,A7 MERGE WITH PHYSICL 4K PAGE ADDRESS «, t00=0x0081, t01=0x003a}
0xc9e8…c9f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x0078}
0xc9f4…ca10 Head {h00=0x0018, h01=0x0050, text=» IFT DSKPAG-MMUPAG=1«, t00=0x0081, t01=0x0084}
0xca10…ca48 Head {h00=0x0034, h01=0x0050, text=» LD A1,APLSEG+2,A7 GET PHYSICAL 4K PAGE ADDRESS «, t00=0x0081, t01=0x00a0}
0xca48…ca68 Head {h00=0x001c, h01=0x0050, text=» SLL A1,2 MULTIPLY BY 4 «, t00=0x0081, t01=0x00d8}
0xca68…caa2 Head {h00=0x0036, h01=0x0050, text=» OR A1,APLNPE+2,A7 MERGE WITH DISPL WITHIN 4K PAGE«, t00=0x0081, t01=0x00f8}
0xcaa2…caae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x0132}
0xcaae…caca Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x0081, t01=0x013e}
0xcaca…cade Head {h00=0x0010, h01=0x0050, text=»INI20 EQU * «, t00=0x0081, t01=0x015a}
0xcade…cae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x016e}
0xcae8…cb24 Head {h00=0x0038, h01=0x0050, text=»* INITIALIZE PAGE BLOCK FOR CORE RESIDENT SEGMENTS «, t00=0x0081, t01=0x0178}
0xcb24…cb60 Head {h00=0x0038, h01=0x0050, text=»* AND STORE PAGE BLOCK ADDRESSES IN SEGMENT BLOCKS «, t00=0x0082, t01=0x0024}
0xcb60…cb6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0060}
0xcb6a…cb90 Head {h00=0x0022, h01=0x001e, text=» ADKL A11,8 NEXT SEGMENT BLOCK«, t00=0x0082, t01=0x006a}
0xcb90…cbb0 Head {h00=0x001c, h01=0x0017, text=» LDR* A2,A11 GET STATUS «, t00=0x0082, t01=0x0090}
0xcbb0…cbe0 Head {h00=0x002c, h01=0x0050, text=» RF(NN) INI30 SEGMENT NOT LOADED IN CORE«, t00=0x0082, t01=0x00b0}
0xcbe0…cc0e Head {h00=0x002a, h01=0x0026, text=» ST A12,6,A11 STORE PAGE BLOCK ADDRESS«, t00=0x0082, t01=0x00e0}
0xcc0e…cc3a Head {h00=0x0028, h01=0x0050, text=» CMR A12 RESET QUEUE POINTER FORWARD«, t00=0x0082, t01=0x010e}
0xcc3a…cc68 Head {h00=0x002a, h01=0x0050, text=» CM 2,A12 RESET QUEUE POINTER BACKWARD«, t00=0x0082, t01=0x013a}
0xcc68…cc90 Head {h00=0x0024, h01=0x0050, text=» ST A1,4,A12 STORE PAGE ADDRESS «, t00=0x0082, t01=0x0168}
0xcc90…ccc2 Head {h00=0x002e, h01=0x0029, text=» ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS «, t00=0x0082, t01=0x0190}
0xccc2…ccf0 Head {h00=0x002a, h01=0x0050, text=» LD A2,APLPSZ+2,A7 GET SEGMENT SIZE =1«, t00=0x0083, t01=0x0032}
0xccf0…cd02 Head {h00=0x000e, h01=0x0050, text=» XIF =2 «, t00=0x0083, t01=0x0060}
0xcd02…cd1c Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG=1 =2 «, t00=0x0083, t01=0x0072}
0xcd1c…cd32 Head {h00=0x0012, h01=0x0050, text=» SRL A2,2 =1 «, t00=0x0083, t01=0x008c}
0xcd32…cd44 Head {h00=0x000e, h01=0x0050, text=» XIF =2 «, t00=0x0083, t01=0x00a2}
0xcd44…cd64 Head {h00=0x001c, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0 =2«, t00=0x0083, t01=0x00b4}
0xcd64…cd8e Head {h00=0x0026, h01=0x0050, text=» ADR A1,A2 ADDRESS TO NEXT PAGE =1«, t00=0x0083, t01=0x00d4}
0xcd8e…cdb2 Head {h00=0x0020, h01=0x001b, text=» ADKL A12,8 NEXT PAGE BLOCK «, t00=0x0083, t01=0x00fe}
0xcdb2…cde4 Head {h00=0x002e, h01=0x0050, text=»INI30 SUK A6,1 DECR. SEGMENT BLOCK COUNTER«, t00=0x0083, t01=0x0122}
0xcde4…cdf8 Head {h00=0x0010, h01=0x0050, text=» RB(P) INI20«, t00=0x0083, t01=0x0154}
0xcdf8…ce0c Head {h00=0x0010, h01=0x0050, text=»INI40 EQU * «, t00=0x0083, t01=0x0168}
0xce0c…ce18 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x017c}
0xce18…ce34 Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+DSKPAG=0«, t00=0x0083, t01=0x0188}
0xce34…ce3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0014}
0xce3e…ce72 Head {h00=0x0030, h01=0x0050, text=»* SAVE START OF DYNTAB:S IN SYSINI (STADYN)«, t00=0x0084, t01=0x001e}
0xce72…cea2 Head {h00=0x002c, h01=0x0050, text=»* BEFORE ENABLE IS SET BECAUSE INTERUPT«, t00=0x0084, t01=0x0052}
0xcea2…cecc Head {h00=0x0026, h01=0x0050, text=»* CAN DESTROY DYNSTA IN A15-STACK«, t00=0x0084, t01=0x0082}
0xcecc…ced6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00ac}
0xced6…cf08 Head {h00=0x002e, h01=0x0050, text=» LD A1,DYNSTA+STKCOM GET START OF DYNTAB:S«, t00=0x0084, t01=0x00b6}
0xcf08…cf3a Head {h00=0x002e, h01=0x0050, text=» ST A1,SAVDYN,A13 SAVE IN SYSINI (STADYN) «, t00=0x0084, t01=0x00e8}
0xcf3a…cf46 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x011a}
0xcf46…cf50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0126}
0xcf50…cf86 Head {h00=0x0032, h01=0x0050, text=»* CHECK APPLICATION TYPE AND QUEUE FIRST TASK«, t00=0x0084, t01=0x0130}
0xcf86…cfb0 Head {h00=0x0026, h01=0x0050, text=»* FOR EACH ASSEMBLER APPLICATION «, t00=0x0084, t01=0x0166}
0xcfb0…cfba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0190}
0xcfba…cfea Head {h00=0x002c, h01=0x0050, text=» LD A1,APLMMP+2,A7 GET APPLICATION TYPE «, t00=0x0085, t01=0x000a}
0xcfea…d016 Head {h00=0x0028, h01=0x0050, text=» CWK A1,'AS' ASSEMBLER APPLICATION? «, t00=0x0085, t01=0x003a}
0xd016…d02e Head {h00=0x0014, h01=0x0050, text=» RF(NE) INI50 NO«, t00=0x0085, t01=0x0066}
0xd02e…d038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x007e}
0xd038…d05e Head {h00=0x0022, h01=0x0050, text=»* SWITCH TO LEVEL 0 & ENABLE «, t00=0x0085, t01=0x0088}
0xd05e…d068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00ae}
0xd068…d08e Head {h00=0x0022, h01=0x0050, text=» LDKL A1,INI45 RETURN ADDRESS «, t00=0x0085, t01=0x00b8}
0xd08e…d0aa Head {h00=0x0018, h01=0x0050, text=» ADR A1,A13 RELOCATE«, t00=0x0085, t01=0x00de}
0xd0aa…d0cc Head {h00=0x001e, h01=0x0050, text=» STR A1,A15 STORE ON STACK«, t00=0x0085, t01=0x00fa}
0xd0cc…d0e6 Head {h00=0x0016, h01=0x0050, text=» LDKL A1,/00C0 PSW«, t00=0x0085, t01=0x011c}
0xd0e6…d108 Head {h00=0x001e, h01=0x0050, text=» STR A1,A15 STORE ON STACK«, t00=0x0085, t01=0x0136}
0xd108…d120 Head {h00=0x0014, h01=0x0050, text=» RTN A15 SWITCH «, t00=0x0085, t01=0x0158}
0xd120…d138 Head {h00=0x0014, h01=0x0050, text=»INI45 EQU *-REL «, t00=0x0085, t01=0x0170}
0xd138…d164 Head {h00=0x0028, h01=0x0050, text=» LD* A5,APLMMC+2,A7 GET TTAB ADDRESS«, t00=0x0085, t01=0x0188}
0xd164…d190 Head {h00=0x0028, h01=0x0050, text=» LD A2,APLSTA+2,A7 GET START ADDRESS«, t00=0x0086, t01=0x0024}
0xd190…d1b4 Head {h00=0x0020, h01=0x0050, text=» AD A2,APLREL+2,A7 RELOCATE «, t00=0x0086, t01=0x0050}
0xd1b4…d1d4 Head {h00=0x001c, h01=0x0050, text=» LDK A3,0 SEGMENT NUMBER«, t00=0x0086, t01=0x0074}
0xd1d4…d1f4 Head {h00=0x001c, h01=0x0050, text=» CF A15,ACTOT QUEUE TASK«, t00=0x0086, t01=0x0094}
0xd1f4…d202 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x00b4}
0xd202…d216 Head {h00=0x0010, h01=0x0050, text=»INI50 EQU * «, t00=0x0086, t01=0x00c2}
0xd216…d22c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0086, t01=0x00d6}
0xd22c…d260 Head {h00=0x0030, h01=0x0050, text=» LD A1,APLLAP+2,A7 GET LOGICAL PAGE ADDRESS «, t00=0x0086, t01=0x00ec}
0xd260…d28e Head {h00=0x002a, h01=0x0050, text=» RF(NZ) INI55 NO PAGE ENTRIES RESERVED«, t00=0x0086, t01=0x0120}
0xd28e…d29a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0086, t01=0x014e}
0xd29a…d2ce Head {h00=0x0030, h01=0x0050, text=» CM APLNPE+2,A7 CLEAR NUMBER OF PAGE ENTRIES«, t00=0x0086, t01=0x015a}
0xd2ce…d300 Head {h00=0x002e, h01=0x0050, text=» CM APLMMP+2,A7 CLEAR DISPL. TO PAGE ENTRY«, t00=0x0086, t01=0x018e}
0xd300…d316 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0087, t01=0x0030}
0xd316…d328 Head {h00=0x000e, h01=0x0050, text=» RF INI60 «, t00=0x0087, t01=0x0046}
0xd328…d33c Head {h00=0x0010, h01=0x0050, text=»INI55 EQU * «, t00=0x0087, t01=0x0058}
0xd33c…d360 Head {h00=0x0020, h01=0x0050, text=» SRL A1,12 PAGE ENTRY NUMBER«, t00=0x0087, t01=0x006c}
0xd360…d388 Head {h00=0x0024, h01=0x0050, text=» LDK A2,16 NUMBER OF MMU ENTRIES«, t00=0x0087, t01=0x0090}
0xd388…d3b2 Head {h00=0x0026, h01=0x0050, text=» SUR A2,A1 NUMBER OF PAGE ENTRIES «, t00=0x0087, t01=0x00b8}
0xd3b2…d3d2 Head {h00=0x001c, h01=0x0050, text=» ST A2,APLNPE+2,A7 SAVE «, t00=0x0087, t01=0x00e2}
0xd3d2…d3f2 Head {h00=0x001c, h01=0x0050, text=» SLL A1,1 MULTIPLY BY 2 «, t00=0x0087, t01=0x0102}
0xd3f2…d424 Head {h00=0x002e, h01=0x0050, text=» ADKL A1,TTB:MT DISPL TO FIRST PAGE ENTRY «, t00=0x0087, t01=0x0122}
0xd424…d444 Head {h00=0x001c, h01=0x0050, text=» ST A1,APLMMP+2,A7 SAVE «, t00=0x0087, t01=0x0154}
0xd444…d484 Head {h00=0x003c, h01=0x0050, text=»INI60 LD A1,APLLAC+2,A7 GET LOGICAL ADDR. TO COMMON PART«, t00=0x0087, t01=0x0174}
0xd484…d4a4 Head {h00=0x001c, h01=0x0050, text=» SRL A1,11 ENTRY NUMBER «, t00=0x0088, t01=0x0024}
0xd4a4…d4c6 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/1E 2*ENTRY NUMBER«, t00=0x0088, t01=0x0044}
0xd4c6…d4fe Head {h00=0x0034, h01=0x0050, text=» ADKL A1,TTB:MT DISPL TO FIRST COMMON PART ENTRY«, t00=0x0088, t01=0x0066}
0xd4fe…d51e Head {h00=0x001c, h01=0x0050, text=» ST A1,APLMMC+2,A7 SAVE «, t00=0x0088, t01=0x009e}
0xd51e…d52a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0088, t01=0x00be}
0xd52a…d54a Head {h00=0x001c, h01=0x0050, text=» ADK A7,ACBLEN NEXT ACB «, t00=0x0088, t01=0x00ca}
0xd54a…d56e Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 MORE APPLICATIONS?«, t00=0x0088, t01=0x00ea}
0xd56e…d586 Head {h00=0x0014, h01=0x0050, text=» RB(P) INI10 YES«, t00=0x0088, t01=0x010e}
0xd586…d5a2 Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x0088, t01=0x0126}
0xd5a2…d5ac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0088, t01=0x0142}
0xd5ac…d5ec Head {h00=0x003c, h01=0x0038, text=»* INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE«, t00=0x0088, t01=0x014c}
0xd5ec…d5f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0088, t01=0x018c}
0xd5f6…d616 Head {h00=0x001c, h01=0x0050, text=» LDR A12,A12 ANY PAGES? «, t00=0x0089, t01=0x0008}
0xd616…d62e Head {h00=0x0014, h01=0x0050, text=» RF(Z) INI90 NO!«, t00=0x0089, t01=0x0028}
0xd62e…d656 Head {h00=0x0024, h01=0x0050, text=» CW A12,SCTSFA ANY FREE BLOCKS? «, t00=0x0089, t01=0x0040}
0xd656…d66e Head {h00=0x0014, h01=0x0050, text=» RF(E) INI90 NO!«, t00=0x0089, t01=0x0068}
0xd66e…d6a6 Head {h00=0x0034, h01=0x002f, text=» ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK «, t00=0x0089, t01=0x0080}
0xd6a6…d6d0 Head {h00=0x0026, h01=0x0022, text=» LDKL A11,PAGQUE POINTER TO PAGQUE«, t00=0x0089, t01=0x00b8}
0xd6d0…d704 Head {h00=0x0030, h01=0x002c, text=» LDR A1,A12 SAVE ADDRESS TO FIRST PAGE BLOCK«, t00=0x0089, t01=0x00e2}
0xd704…d716 Head {h00=0x000e, h01=0x0009, text=» LDK A2,0 «, t00=0x0089, t01=0x0116}
0xd716…d748 Head {h00=0x002e, h01=0x0050, text=»INI70 ST A11,2,A12 STORE BACKWARD POINTER «, t00=0x0089, t01=0x0128}
0xd748…d770 Head {h00=0x0024, h01=0x001f, text=» ST A9,4,A12 STORE PAGE ADDRESS «, t00=0x0089, t01=0x015a}
0xd770…d798 Head {h00=0x0024, h01=0x001f, text=» ST A2,6,A12 INDICATE PAGE FREE «, t00=0x0089, t01=0x0182}
0xd798…d7c2 Head {h00=0x0026, h01=0x0050, text=» ADK A1,8 ADDRESS NEXT PAGE BLOCK «, t00=0x008a, t01=0x001a}
0xd7c2…d7e8 Head {h00=0x0022, h01=0x0050, text=» CW A1,SCTSFA LAST PAGE BLOCK?«, t00=0x008a, t01=0x0044}
0xd7e8…d802 Head {h00=0x0016, h01=0x0050, text=» RF(E) INI80 YES! «, t00=0x008a, t01=0x006a}
0xd802…d832 Head {h00=0x002c, h01=0x0027, text=» LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK «, t00=0x008a, t01=0x0084}
0xd832…d85c Head {h00=0x0026, h01=0x0021, text=» STR A1,A12 STORE FORWARD POINTER «, t00=0x008a, t01=0x00b4}
0xd85c…d880 Head {h00=0x0020, h01=0x001b, text=» LDR A12,A1 NEXT PAGE BLOCK «, t00=0x008a, t01=0x00de}
0xd880…d89e Head {h00=0x001a, h01=0x0015, text=» ADR A9,A10 NEXT PAGE «, t00=0x008a, t01=0x0102}
0xd89e…d8b0 Head {h00=0x000e, h01=0x0050, text=» RB INI70 «, t00=0x008a, t01=0x0120}
0xd8b0…d8c4 Head {h00=0x0010, h01=0x0050, text=»INI80 EQU * «, t00=0x008a, t01=0x0132}
0xd8c4…d8ee Head {h00=0x0026, h01=0x0021, text=» LDKL A1,PAGQUE POINTER TO PAGQUE «, t00=0x008a, t01=0x0146}
0xd8ee…d916 Head {h00=0x0024, h01=0x001f, text=» STR A1,A12 STORE IN LAST BLOCK «, t00=0x008a, t01=0x0170}
0xd916…d940 Head {h00=0x0026, h01=0x0022, text=» ST A12,PAGQUE+2 STORE IN PAGQUE+2«, t00=0x008b, t01=0x0008}
0xd940…d954 Head {h00=0x0010, h01=0x0050, text=»INI90 EQU * «, t00=0x008b, t01=0x0032}
0xd954…d962 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008b, t01=0x0046}
0xd962…d96e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008b, t01=0x0054}
0xd96e…d976 Head {h00=0x0004, h01=0x0050, t00=0x008b, t01=0x0060}
0xd976…d97e Head {h00=0x0004, h01=0x0050, t00=0x008b, t01=0x0068}
0xd97e…d99e Head {h00=0x001c, h01=0x0050, text=»* START BUGGER (IF ANY) «, t00=0x008b, t01=0x0070}
0xd99e…d9a6 Head {h00=0x0004, h01=0x0050, t00=0x008b, t01=0x0090}
0xd9a6…d9ae Head {h00=0x0004, h01=0x0050, t00=0x008b, t01=0x0098}
0xd9ae…d9ce Head {h00=0x001c, h01=0x0050, text=»* GET APPLICATION START «, t00=0x008b, t01=0x00a0}
0xd9ce…d9fe Head {h00=0x002c, h01=0x0050, text=» LD A14,STKCOM+APLTAB GET START OF ACB:S«, t00=0x008b, t01=0x00c0}
0xd9fe…da2e Head {h00=0x002c, h01=0x0050, text=» LD A14,APLREL+2,A14 GET RELOCATION BASE«, t00=0x008b, t01=0x00f0}
0xda2e…da5c Head {h00=0x002a, h01=0x0050, text=» ADKL A13,INI100 CONTINUATION ADDRESS «, t00=0x008b, t01=0x0120}
0xda5c…da84 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE SYSLOAD ENDED«, t00=0x008b, t01=0x014e}
0xda84…da9a Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x008b, t01=0x0176}
0xda9a…dac2 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTBUG GET BUGGER ADDRESS«, t00=0x008b, t01=0x018c}
0xdac2…dad6 Head {h00=0x0010, h01=0x0050, text=» ABR(NZ) A1 «, t00=0x008c, t01=0x0024}
0xdad6…dade Head {h00=0x0004, h01=0x0050, t00=0x008c, t01=0x0038}
0xdade…daf6 Head {h00=0x0014, h01=0x0050, text=»INI100 EQU *-REL«, t00=0x008c, t01=0x0040}
0xdaf6…db08 Head {h00=0x000e, h01=0x0050, text=» LDR A13,P«, t00=0x008c, t01=0x0058}
0xdb08…db20 Head {h00=0x0014, h01=0x0050, text=»INI110 EQU *-REL«, t00=0x008c, t01=0x006a}
0xdb20…db54 Head {h00=0x0030, h01=0x0050, text=» SUKL A13,INI110 RESTORE PROGRAM BASE OINTER«, t00=0x008c, t01=0x0082}
0xdb54…db5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x00b6}
0xdb5e…db78 Head {h00=0x0016, h01=0x0050, text=»* INIT A15 STACK «, t00=0x008c, t01=0x00c0}
0xdb78…db82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x00da}
0xdb82…db98 Head {h00=0x0012, h01=0x0050, text=» LD A15,SCTSTB«, t00=0x008c, t01=0x00e4}
0xdb98…dbac Head {h00=0x0010, h01=0x0050, text=» SUKL A15,4 «, t00=0x008c, t01=0x00fa}
0xdbac…dbb4 Head {h00=0x0004, h01=0x0050, t00=0x008c, t01=0x010e}
0xdbb4…dbd0 Head {h00=0x0018, h01=0x0050, text=»* START APPLICATION «, t00=0x008c, t01=0x0116}
0xdbd0…dbd8 Head {h00=0x0004, h01=0x0050, t00=0x008c, t01=0x0132}
0xdbd8…dc0a Head {h00=0x002e, h01=0x0050, text=» LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC«, t00=0x008c, t01=0x013a}
0xdc0a…dc28 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVRTC,A13 SAVE«, t00=0x008c, t01=0x016c}
0xdc28…dc60 Head {h00=0x0034, h01=0x0050, text=» LDKL A1,IHRTCO LOAD TEMPORARY INTERRUPT ADDRESS«, t00=0x008c, t01=0x018a}
0xdc60…dc7c Head {h00=0x0018, h01=0x0050, text=» ADR A1,A13 RELOCATE«, t00=0x008d, t01=0x0032}
0xdc7c…dcaa Head {h00=0x002a, h01=0x0050, text=» ST A1,IHRTC STORE IN INTERRUPT VECTOR«, t00=0x008d, t01=0x004e}
0xdcaa…dcd4 Head {h00=0x0026, h01=0x0050, text=» CF A15,PFINIT INITIALIZE DEVICES «, t00=0x008d, t01=0x007c}
0xdcd4…dcf8 Head {h00=0x0020, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS«, t00=0x008d, t01=0x00a6}
0xdcf8…dd20 Head {h00=0x0024, h01=0x0050, text=» CF A15,SWL48 SWITCH TO LEVEL 48«, t00=0x008d, t01=0x00ca}
0xdd20…dd2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x00f2}
0xdd2a…dd74 Head {h00=0x0046, h01=0x0050, text=»* WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER «, t00=0x008d, t01=0x00fc}
0xdd74…dd7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0146}
0xdd7e…dda0 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/FFFF SET COUNTER«, t00=0x008d, t01=0x0150}
0xdda0…ddb8 Head {h00=0x0014, h01=0x0050, text=»DELAY SRC A2,31 «, t00=0x008d, t01=0x0172}
0xddb8…ddca Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x008d, t01=0x018a}
0xddca…dde0 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DELAY «, t00=0x008e, t01=0x000c}
0xdde0…ddec Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x008e, t01=0x0022}
0xddec…de18 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,0 GET RTC INTERRUPT ADDRESS«, t00=0x008e, t01=0x002e}
0xde18…de32 Head {h00=0x0016, h01=0x0050, text=»SAVRTC EQU *-REL-2«, t00=0x008e, t01=0x005a}
0xde32…de4e Head {h00=0x0018, h01=0x0050, text=» ST A1,IHRTC RESTORE«, t00=0x008e, t01=0x0074}
0xde4e…de76 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A13 GET START OF SYSINI «, t00=0x008e, t01=0x0090}
0xde76…dea8 Head {h00=0x002e, h01=0x0050, text=» ADKL A1,INISTA START OF INIT. INSTR. SEQ.«, t00=0x008e, t01=0x00b8}
0xdea8…deda Head {h00=0x002e, h01=0x0050, text=» ADKL A13,INILEN END OF INIT. INSTR. SEQ. «, t00=0x008e, t01=0x00ea}
0xdeda…df04 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,STKEND START OF A15-STACK«, t00=0x008e, t01=0x011c}
0xdf04…df2e Head {h00=0x0026, h01=0x0050, text=»INI150 LDR* A3,A1 GET MEMORY WORD «, t00=0x008e, t01=0x0146}
0xdf2e…df54 Head {h00=0x0022, h01=0x0050, text=» STR A3,A2 STORE IN A15-STACK «, t00=0x008e, t01=0x0170}
0xdf54…df7c Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 INCREMENT FROM-ADDRESS«, t00=0x008f, t01=0x0008}
0xdf7c…dfa2 Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 INCREMENT TO-ADDRESS«, t00=0x008f, t01=0x0030}
0xdfa2…dfc6 Head {h00=0x0020, h01=0x0050, text=» CWR A1,A13 ALL WORDS MOVED?«, t00=0x008f, t01=0x0056}
0xdfc6…dfe0 Head {h00=0x0016, h01=0x0050, text=» ABL(E) STKEND YES«, t00=0x008f, t01=0x007a}
0xdfe0…dff2 Head {h00=0x000e, h01=0x0050, text=» RB INI150«, t00=0x008f, t01=0x0094}
0xdff2…dffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x00a6}
0xdffc…e02a Head {h00=0x002a, h01=0x0050, text=»* TEMPORARY INTERRUPT ROUTINE FOR RTC«, t00=0x008f, t01=0x00b0}
0xe02a…e034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x00de}
0xe034…e04c Head {h00=0x0014, h01=0x0050, text=»IHRTCO EQU *-REL«, t00=0x008f, t01=0x00e8}
0xe04c…e05e Head {h00=0x000e, h01=0x0050, text=» RIT RTCDA«, t00=0x008f, t01=0x0100}
0xe05e…e06e Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x008f, t01=0x0112}
0xe06e…e086 Head {h00=0x0014, h01=0x0050, text=»INISTA EQU *-REL«, t00=0x008f, t01=0x0122}
0xe086…e0a2 Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+DSKPAG=0«, t00=0x008f, t01=0x013a}
0xe0a2…e0ac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x008f, t01=0x0156}
0xe0ac…e0d6 Head {h00=0x0026, h01=0x0050, text=»* INITIATE DYNAMIC CORE FOR COBOL«, t00=0x008f, t01=0x0160}
0xe0d6…e106 Head {h00=0x002c, h01=0x0050, text=»* APPLICATIONS AND BRANCH TO DISPATCHER«, t00=0x008f, t01=0x018a}
0xe106…e110 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0090, t01=0x002a}
0xe110…e124 Head {h00=0x0010, h01=0x0050, text=»INDY00 EQU *«, t00=0x0090, t01=0x0034}
0xe124…e14a Head {h00=0x0022, h01=0x001d, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0090, t01=0x0048}
0xe14a…e170 Head {h00=0x0022, h01=0x001e, text=» ANKL A2,/2000 ANY COBOL APPL?«, t00=0x0090, t01=0x006e}
0xe170…e18a Head {h00=0x0016, h01=0x0011, text=» RF(Z) PBSEND NO! «, t00=0x0090, t01=0x0094}
0xe18a…e1a2 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,STKEND «, t00=0x0090, t01=0x00ae}
0xe1a2…e1d0 Head {h00=0x002a, h01=0x0050, text=» LD A8,STADYN,A2 GET START OF DYNTAB:S«, t00=0x0090, t01=0x00c6}
0xe1d0…e1fc Head {h00=0x0028, h01=0x0050, text=» RF(Z) PBSEND NO COBOL APPL. LOADED «, t00=0x0090, t01=0x00f4}
0xe1fc…e226 Head {h00=0x0026, h01=0x0022, text=» LDR* A2,A8 GET NUMBER OF DYNTAB:S«, t00=0x0090, t01=0x0120}
0xe226…e252 Head {h00=0x0028, h01=0x0023, text=» ADKL A8,2 INCREMENT DYNTAB POINTER «, t00=0x0090, t01=0x014a}
0xe252…e266 Head {h00=0x0010, h01=0x0050, text=»INDY05 EQU *«, t00=0x0090, t01=0x0176}
0xe266…e294 Head {h00=0x002a, h01=0x0025, text=» LDR* A3,A8 GET DYNTAB LENGTH (BYTES) «, t00=0x0090, t01=0x018a}
0xe294…e2a8 Head {h00=0x0010, h01=0x0050, text=»INDY10 EQU *«, t00=0x0091, t01=0x0028}
0xe2a8…e2d4 Head {h00=0x0028, h01=0x0023, text=» ADKL A8,2 INCREMENT DYNTAB POINTER «, t00=0x0091, t01=0x003c}
0xe2d4…e2f8 Head {h00=0x0020, h01=0x001b, text=» LDR* A7,A8 GET SPL-PBS ADR «, t00=0x0091, t01=0x0068}
0xe2f8…e328 Head {h00=0x002c, h01=0x0050, text=» LDKL A6,STKEND START OF INIT.INSTR.SEQ.«, t00=0x0091, t01=0x008c}
0xe328…e356 Head {h00=0x002a, h01=0x0026, text=» ADKL A6,PBSTAB CONSTANT-TABLE ADDRESS«, t00=0x0091, t01=0x00bc}
0xe356…e376 Head {h00=0x001c, h01=0x0017, text=» SUK A3,2 END OF DYNTAB «, t00=0x0091, t01=0x00ea}
0xe376…e390 Head {h00=0x0016, h01=0x0050, text=» RF(Z) INDY50 YES!«, t00=0x0091, t01=0x010a}
0xe390…e3a4 Head {h00=0x0010, h01=0x0050, text=»INDY20 EQU *«, t00=0x0091, t01=0x0124}
0xe3a4…e3cc Head {h00=0x0024, h01=0x0020, text=» LDR* A5,A6 GET NUMBER OF COPIES«, t00=0x0091, t01=0x0138}
0xe3cc…e3f0 Head {h00=0x0020, h01=0x001b, text=» CWK A5,/FFFF END OF TABLE? «, t00=0x0091, t01=0x0160}
0xe3f0…e40a Head {h00=0x0016, h01=0x0050, text=» RF(E) INDY40 YES!«, t00=0x0091, t01=0x0184}
0xe40a…e42e Head {h00=0x0020, h01=0x001c, text=» LD A4,2,A6 GET WORD TO COPY«, t00=0x0092, t01=0x000e}
0xe42e…e44e Head {h00=0x001c, h01=0x0017, text=» ADK A6,4 ADJUST PBSTAB «, t00=0x0092, t01=0x0032}
0xe44e…e462 Head {h00=0x0010, h01=0x0050, text=»INDY30 EQU *«, t00=0x0092, t01=0x0052}
0xe462…e48c Head {h00=0x0026, h01=0x0021, text=» SUK A5,1 DECREMENT NBR.OF COPIES «, t00=0x0092, t01=0x0066}
0xe48c…e4be Head {h00=0x002e, h01=0x0050, text=» RB(N) INDY20 ALL DONE FOR THIS CHARACTER «, t00=0x0092, t01=0x0090}
0xe4be…e4ec Head {h00=0x002a, h01=0x0025, text=» STR A4,A7 STORE CHARACTER IN SPL-PBS «, t00=0x0092, t01=0x00c2}
0xe4ec…e512 Head {h00=0x0022, h01=0x001e, text=» ADK A7,2 STEP SPL-PBS POINTER«, t00=0x0092, t01=0x00f0}
0xe512…e52e Head {h00=0x0018, h01=0x0050, text=» RB INDY30 NEXT WORD«, t00=0x0092, t01=0x0116}
0xe52e…e542 Head {h00=0x0010, h01=0x0050, text=»INDY40 EQU *«, t00=0x0092, t01=0x0132}
0xe542…e562 Head {h00=0x001c, h01=0x0017, text=» LDR* A4,A8 SPL-PBS ADR «, t00=0x0092, t01=0x0146}
0xe562…e584 Head {h00=0x001e, h01=0x001a, text=» LDKL A5,STKMAX STACK-SIZE«, t00=0x0092, t01=0x0166}
0xe584…e5ae Head {h00=0x0026, h01=0x0021, text=» ST A5,SPLSTS,A4 STORE IN SPL-PBS «, t00=0x0092, t01=0x0188}
0xe5ae…e5da Head {h00=0x0028, h01=0x0024, text=» LDKL A7,ENTFIN ENTRY-FINI (ADDRESS)«, t00=0x0093, t01=0x0022}
0xe5da…e604 Head {h00=0x0026, h01=0x0021, text=» ST A7,SPLENT,A4 STORE IN SPL-PBS «, t00=0x0093, t01=0x004e}
0xe604…e624 Head {h00=0x001c, h01=0x0017, text=» LDR A6,A4 SPL-PBS ADDR «, t00=0x0093, t01=0x0078}
0xe624…e64e Head {h00=0x0026, h01=0x0022, text=» ADK A6,SPLSTA POINT AT STACK AREA«, t00=0x0093, t01=0x0098}
0xe64e…e672 Head {h00=0x0020, h01=0x001b, text=» ADR A5,A6 +STACK AREA ADDR «, t00=0x0093, t01=0x00c2}
0xe672…e6a6 Head {h00=0x0030, h01=0x002c, text=» ST A5,SPLSTB,A4 STORE IN SPL-PBS STACK-BASE«, t00=0x0093, t01=0x00e6}
0xe6a6…e6b8 Head {h00=0x000e, h01=0x0050, text=» RB INDY10«, t00=0x0093, t01=0x011a}
0xe6b8…e6cc Head {h00=0x0010, h01=0x0050, text=»INDY50 EQU *«, t00=0x0093, t01=0x012c}
0xe6cc…e6f0 Head {h00=0x0020, h01=0x001c, text=» SUK A2,1 ANY DYNTAB:S LEFT?«, t00=0x0093, t01=0x0140}
0xe6f0…e70c Head {h00=0x0018, h01=0x0050, text=» RB(NZ) INDY05 YES! «, t00=0x0093, t01=0x0164}
0xe70c…e722 Head {h00=0x0012, h01=0x000e, text=» RF PBSEND NO!«, t00=0x0093, t01=0x0180}
0xe722…e73a Head {h00=0x0014, h01=0x0050, text=»SAVDYN EQU *-REL«, t00=0x0094, t01=0x0008}
0xe73a…e756 Head {h00=0x0018, h01=0x0050, text=»STADYN EQU *-INDY00 «, t00=0x0094, t01=0x0020}
0xe756…e77a Head {h00=0x0020, h01=0x0050, text=» DATA 0 SAVE AREA FOR DYNSTA«, t00=0x0094, t01=0x003c}
0xe77a…e788 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0094, t01=0x0060}
0xe788…e7c2 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0094, t01=0x006e}
0xe7c2…e7fc Head {h00=0x0036, h01=0x0032, text=»** **«, t00=0x0094, t01=0x00a8}
0xe7fc…e836 Head {h00=0x0036, h01=0x0032, text=»** EACH WORD IN THIS TABLE CONSISTS OF: **«, t00=0x0094, t01=0x00e2}
0xe836…e870 Head {h00=0x0036, h01=0x0032, text=»** WORD1=COUNTER,NBR OF COPIES OF NEXT WORD **«, t00=0x0094, t01=0x011c}
0xe870…e8aa Head {h00=0x0036, h01=0x0032, text=»** WORD2=WORD **«, t00=0x0094, t01=0x0156}
0xe8aa…e8e4 Head {h00=0x0036, h01=0x0032, text=»** **«, t00=0x0094, t01=0x0190}
0xe8e4…e91e Head {h00=0x0036, h01=0x0032, text=»** BYTE1 (COUNTER)=/FF MEANS END OF TABLE **«, t00=0x0095, t01=0x003a}
0xe91e…e958 Head {h00=0x0036, h01=0x0032, text=»** **«, t00=0x0095, t01=0x0074}
0xe958…e992 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0095, t01=0x00ae}
0xe992…e9ae Head {h00=0x0018, h01=0x0050, text=»PBSTAB EQU *-INDY00 «, t00=0x0095, t01=0x00e8}
0xe9ae…e9ce Head {h00=0x001c, h01=0x0018, text=» DATA 1 TERMINATION-CODE«, t00=0x0095, t01=0x0104}
0xe9ce…e9de Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0095, t01=0x0124}
0xe9de…e9f8 Head {h00=0x0016, h01=0x0012, text=» DATA 1 STACK-USED«, t00=0x0095, t01=0x0134}
0xe9f8…ea08 Head {h00=0x000c, h01=0x0008, text=» DATA /6«, t00=0x0095, t01=0x014e}
0xea08…ea22 Head {h00=0x0016, h01=0x0012, text=» DATA 1 STACK-SIZE«, t00=0x0095, t01=0x015e}
0xea22…ea32 Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0095, t01=0x0178}
0xea32…ea50 Head {h00=0x001a, h01=0x0016, text=» DATA 3 PROCEDURE-NAME«, t00=0x0095, t01=0x0188}
0xea50…ea64 Head {h00=0x0010, h01=0x000b, text=» DATA /2020 «, t00=0x0096, t01=0x0016}
0xea64…ea8e Head {h00=0x0026, h01=0x0022, text=» DATA 20 PGM-DATA UNTIL STACK-BASE«, t00=0x0096, t01=0x002a}
0xea8e…ea9e Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0096, t01=0x0054}
0xea9e…eab8 Head {h00=0x0016, h01=0x0012, text=» DATA 1 STACK-BASE«, t00=0x0096, t01=0x0064}
0xeab8…eac8 Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0096, t01=0x007e}
0xeac8…eae2 Head {h00=0x0016, h01=0x0012, text=» DATA 1 ENTRY-FINI«, t00=0x0096, t01=0x008e}
0xeae2…eaf2 Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0096, t01=0x00a8}
0xeaf2…eb1c Head {h00=0x0026, h01=0x0022, text=» DATA 16 LAST-TS,RUNTIME-WORK-AREA«, t00=0x0096, t01=0x00b8}
0xeb1c…eb2c Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0096, t01=0x00e2}
0xeb2c…eb56 Head {h00=0x0026, h01=0x0021, text=» DATA /FFFF E N D O F T A B L E «, t00=0x0096, t01=0x00f2}
0xeb56…eb6a Head {h00=0x0010, h01=0x000c, text=»PBSEND EQU *«, t00=0x0096, t01=0x011c}
0xeb6a…eb76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0096, t01=0x0130}
0xeb76…eb88 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0096, t01=0x013c}
0xeb88…ebb0 Head {h00=0x0024, h01=0x0050, text=»INILEN EQU *-REL PROGRAM LENGTH «, t00=0x0096, t01=0x014e}
0xebb0…ebc4 Head {h00=0x0010, h01=0x0050, text=»INIEND EQU *«, t00=0x0096, t01=0x0176}
0xebc4…ebd0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0096, t01=0x018a}
0xebd0…ebd4 Head {h00=0x4004, h01=0x0000}
0xebd4…ebd8 00 97 00 08 ┆ ┆
0xebd8…ebe0 (152, 1, 8) 20 04 00 00 00 98 00 04 ┆ ┆
0xebe0…ec30 (153, 0, 400) 52 44 20 4c 45 4e 47 54 48 20 00 20 01 72 00 1e 00 50 5c 41 44 4b 5c 41 33 2c 31 5c 53 4b 49 50 20 53 54 41 54 55 53 20 42 59 54 45 00 21 00 12 00 0e 00 50 5c 52 42 5c 54 49 4f 44 36 30 00 21 00 34 00 28 00 50 43 41 4c 45 52 52 5c 4c 44 4b ┆RD LENGTH r P ADK A3,1 SKIP STATUS BYTE ! P RB TIOD60 ! 4 ( PCALERR LDK┆
0xec30…ec80 4c 5c 41 31 2c 45 4f 4d 45 52 52 5c 4f 55 54 20 4f 46 20 4d 45 44 49 55 4d 20 00 21 00 46 00 0e 00 50 5c 52 46 5c 54 49 4f 44 4d 46 00 21 00 72 00 06 00 50 2a 20 00 21 00 84 00 2c 00 50 2a 20 20 20 53 54 4f 52 45 20 52 45 4c 41 54 49 56 45 ┆L A1,EOMERR OUT OF MEDIUM ! F P RF TIODMF ! r P* ! , P* STORE RELATIVE┆
0xec80…ecd0 20 52 45 43 20 4f 46 46 53 45 54 20 49 4e 20 46 42 44 52 52 4f 20 00 21 00 8e 00 06 00 50 2a 20 00 21 00 be 00 10 00 50 54 49 4f 44 36 35 5c 45 51 55 5c 2a 00 21 00 c8 00 10 00 50 5c 4c 44 4b 5c 41 31 2c 30 5c 4f 4b 00 21 00 dc 00 16 00 50 ┆ REC OFFSET IN FBDRRO ! P* ! PTIOD65 EQU * ! P LDK A1,0 OK ! P┆
0xecd0…ed20 5c 53 54 5c 41 33 2c 46 44 42 52 52 4f 2c 41 31 31 20 00 21 00 f0 00 10 00 50 54 49 4f 44 4d 46 5c 45 51 55 5c 2a 00 21 01 0a 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 00 21 01 1e 00 28 ┆ ST A3,FDBRRO,A11 ! PTIODMF EQU * ! P LD A4,-4,A14 SAVED REGISTER ! (┆
0xed20…ed70 00 50 5c 52 46 5c 52 45 54 55 52 4e 5c 52 45 54 55 52 4e 20 41 4e 44 20 53 45 54 20 43 4f 4e 44 49 54 49 4f 4e 20 00 21 01 42 00 0a 00 50 5c 45 4a 45 43 54 00 21 01 6e 00 04 00 50 00 21 01 7c 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P RF RETURN RETURN AND SET CONDITION ! B P EJECT ! n P ! | P************┆
0xed70…edc0 (154, 0, 398) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 21 01 84 00 1a 00 50 2a 20 20 20 46 4d 20 49 2f 4f 20 48 41 4e 44 4c 45 52 20 20 20 2a 00 22 00 12 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 22 00 30 00 04 00 50 00 22 ┆********** ! P* FM I/O HANDLER * " P********************** " 0 P "┆
0xedc0…ee10 00 4e 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 22 00 56 00 1c 00 50 2a 20 20 20 20 20 20 20 20 41 38 3d 45 43 42 20 41 44 44 52 45 53 53 20 00 22 00 76 00 06 00 50 2a 20 00 22 00 96 00 1c 00 50 ┆ N P* ENTRY: A11=FDB ADDRESS " V P* A8=ECB ADDRESS " v P* " P┆
0xee10…ee60 2a 5c 45 58 49 54 20 3a 20 41 31 3d 52 45 54 55 52 4e 20 43 4f 44 45 20 00 22 00 a0 00 22 00 50 2a 5c 20 20 20 20 20 20 20 41 31 31 2c 41 38 3d 53 41 4d 45 20 41 53 20 45 4e 54 52 59 20 00 22 00 c0 00 14 00 50 2a 5c 20 20 20 20 20 20 20 41 ┆* EXIT : A1=RETURN CODE " " P* A11,A8=SAME AS ENTRY " P* A┆
0xee60…eeb0 32 3d 55 53 45 44 00 22 00 e6 00 06 00 50 2a 20 00 22 00 fe 00 26 00 50 2a 5c 4e 55 4d 42 45 52 20 4f 46 20 41 31 34 20 4c 45 56 45 4c 53 20 3d 20 32 20 28 57 4f 52 44 53 29 00 22 01 08 00 06 00 50 2a 20 00 22 01 32 00 26 00 50 2a 5c 46 4d ┆2=USED " P* " & P* NUMBER OF A14 LEVELS = 2 (WORDS) " P* " 2 & P* FM┆
0xeeb0…eefe 49 4f 3d 46 49 4c 45 20 4d 41 4e 41 47 45 4d 45 4e 54 20 49 2f 4f 20 48 41 4e 44 4c 45 52 00 22 01 3c 00 06 00 50 2a 20 00 22 01 66 00 1e 00 50 46 4d 49 4f 57 52 5c 45 51 55 5c 2a 5c 57 52 49 54 45 2c 44 4d 54 49 4f 54 20 00 22 01 70 ┆IO=FILE MANAGEMENT I/O HANDLER " < P* " f PFMIOWR EQU * WRITE,DMTIOT " p┆
0xeefe…ef4e (155, 0, 400) 00 10 00 50 5c 4c 44 4b 5c 41 37 2c 2f 39 35 20 00 23 00 04 00 0e 00 50 5c 52 46 5c 46 4d 49 4f 31 30 00 23 00 18 00 04 00 50 00 23 00 2a 00 16 00 50 46 4d 49 4f 43 4c 5c 45 51 55 5c 2a 5c 43 4c 4f 53 45 00 23 00 32 00 10 00 50 5c 4c 44 4b ┆ P LDK A7,/95 # P RF FMIO10 # P # * PFMIOCL EQU * CLOSE # 2 P LDK┆
0xef4e…ef9e 5c 41 37 2c 2f 41 32 20 00 23 00 4c 00 0e 00 50 5c 52 46 5c 46 4d 49 4f 31 30 00 23 00 60 00 04 00 50 00 23 00 72 00 18 00 50 46 4d 49 4f 44 4c 5c 45 51 55 5c 2a 5c 44 45 4c 45 54 45 20 00 23 00 7a 00 12 00 50 5c 4c 44 4b 4c 5c 41 37 2c 2f ┆ A7,/A2 # L P RF FMIO10 # ` P # r PFMIODL EQU * DELETE # z P LDKL A7,/┆
0xef9e…efee 32 41 32 20 00 23 00 96 00 0e 00 50 5c 52 46 5c 46 4d 49 4f 31 30 00 23 00 ac 00 04 00 50 00 23 00 be 00 1a 00 50 46 4d 49 4f 4f 50 5c 45 51 55 5c 2a 5c 4f 50 45 4e 20 46 49 4c 45 00 23 00 c6 00 10 00 50 5c 4c 44 4b 5c 41 37 2c 2f 41 31 20 ┆2A2 # P RF FMIO10 # P # PFMIOOP EQU * OPEN FILE # P LDK A7,/A1 ┆
0xefee…f03e 00 23 00 e4 00 0e 00 50 5c 52 46 5c 46 4d 49 4f 31 30 00 23 00 f8 00 04 00 50 00 23 01 0a 00 18 00 50 46 4d 49 4f 45 58 5c 45 51 55 5c 2a 5c 45 58 54 45 4e 44 20 00 23 01 12 00 12 00 50 5c 4c 44 4b 4c 5c 41 37 2c 2f 31 41 31 20 00 23 01 2e ┆ # P RF FMIO10 # P # PFMIOEX EQU * EXTEND # P LDKL A7,/1A1 # .┆
0xf03e…f08e 00 0e 00 50 5c 52 46 5c 46 4d 49 4f 31 30 00 23 01 44 00 04 00 50 00 23 01 56 00 18 00 50 46 4d 49 4f 43 52 5c 45 51 55 5c 2a 5c 43 52 45 41 54 45 20 00 23 01 5e 00 12 00 50 5c 4c 44 4b 4c 5c 41 37 2c 2f 32 41 31 20 00 23 01 7a 00 0e 00 50 ┆ P RF FMIO10 # D P # V PFMIOCR EQU * CREATE # ^ P LDKL A7,/2A1 # z P┆
0xf08e…f0de (156, 0, 398) 5c 52 46 5c 46 4d 49 4f 31 30 00 23 01 90 00 0a 00 50 5c 45 4a 45 43 54 00 24 00 12 00 26 00 50 46 4d 49 4f 52 46 5c 45 51 55 5c 2a 5c 52 45 41 44 20 46 49 4c 45 20 50 41 52 41 4d 45 54 45 52 53 20 00 24 00 20 00 10 00 50 5c 4c 44 4b 5c 41 ┆ RF FMIO10 # P EJECT $ & PFMIORF EQU * READ FILE PARAMETERS $ P LDK A┆
0xf0de…f12e 37 2c 2f 38 33 20 00 24 00 4a 00 0e 00 50 5c 52 46 5c 46 4d 49 4f 31 30 00 24 00 5e 00 04 00 50 00 24 00 70 00 16 00 50 46 4d 49 4f 52 44 5c 45 51 55 5c 2a 5c 52 45 41 44 20 00 24 00 78 00 10 00 50 5c 4c 44 4b 5c 41 37 2c 2f 39 31 20 00 24 ┆7,/83 $ J P RF FMIO10 $ ^ P $ p PFMIORD EQU * READ $ x P LDK A7,/91 $┆
0xf12e…f17e 00 92 00 04 00 50 00 24 00 a6 00 10 00 50 46 4d 49 4f 31 30 5c 45 51 55 5c 2a 00 24 00 ae 00 08 00 50 5c 4c 4b 4d 00 24 00 c2 00 0c 00 50 5c 44 41 54 41 5c 31 35 00 24 00 ce 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 53 44 4d 53 55 42 20 00 24 ┆ P $ PFMIO10 EQU * $ P LKM $ P DATA 15 $ P EJECT SDMSUB $┆
0xf17e…f1ce 00 de 00 06 00 50 2a 20 00 24 00 f6 00 1c 00 50 2a 5c 52 45 53 54 4f 52 45 20 53 45 43 54 4f 52 20 4e 55 4d 42 45 52 20 00 24 01 00 00 06 00 50 2a 20 00 24 01 20 00 16 00 50 5c 4c 44 5c 41 31 2c 46 44 42 53 4e 52 2c 41 31 31 20 00 24 01 2a ┆ P* $ P* RESTORE SECTOR NUMBER $ P* $ P LD A1,FDBSNR,A11 $ *┆
0xf1ce…f21c 00 14 00 50 5c 53 54 5c 41 31 2c 45 43 42 43 57 2c 41 38 20 00 24 01 44 00 18 00 50 5c 4c 44 5c 41 31 2c 46 44 42 53 4e 52 2b 32 2c 41 31 31 20 00 24 01 5c 00 16 00 50 5c 53 54 5c 41 31 2c 45 43 42 43 57 2b 32 2c 41 38 20 00 24 01 78 ┆ P ST A1,ECBCW,A8 $ D P LD A1,FDBSNR+2,A11 $ P ST A1,ECBCW+2,A8 $ x┆