|
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: 135612 (0x211bc)
Notes: pts_type(SC)
Names: »SYSLDA.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »M:DEMO/SYSLDA.SC«
IDENT SYSLDA REL 10.0 80-05-29 870105041000 REL 10.0 80-03-14 =1,FAULTY STACK BASE WHEN USING MMU ********************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * SYSLDA = SYSTEM LOAD - APPLICATION CONFIGURATION PART * * * * * * ********************************************************** * * * THIS PART OF THE SYSTEM START-UP WILL TAKE CARE OF APPLICATION * (CREDIT) CONFIGURATION AND START OF APPLICATION. SYSLDA IS * ENTERED AFTER MONITOR CONFIGURATION (PERFORMED BY SYSLDM), AND * IS AT THAT TIME LOCATED AT HIGHEST FREE ADDRESS OF SYSTEM AREA. * * ASSEMBLER APPLICATION: * NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED * AND A BRANCH IS MADE TO P F I N I T . ALL USER TASK TTAB'S * MM-TABLES ARE FILLED IN. * * CREDIT APPLICATION: * SYSLDA READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD * SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS & * NUMBER OF USER WORK-BLOCK COPIES). * SYSLDA THEN MOVES ITSELF TO FOLLOW MONITOR AND WILL ALSO MOVE * DDIV-PROTOTYPE TO FOLLOW SYSLDA. * * APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES ARE NOW * BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS * ARE, IN CASE OF MMU IN SYSTEM, ALSO ALLOCATED AT 'BOTTOM' OF * MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR * 'OVER' SYSLDA. * * ALL USER TASKS ARE QUEUED VIA A C T O T AND ALL MM-TABLES * IN USER TASK TTAB'S ARE FILLED. A BRANCH IS FINALLY MADE TO * P F I N I T TO START APPLICATION. EJECT *************************** * * * ENTRIES AND EXTERNALS * * * *************************** * LABEL ENTRIES ENTRY JUMP BYPASS JUMP FOR LOAD-MODULE ENTRY SYSLDX ENTRY REL START OF CODE ENTRY LDALEN PROGRAM LENGTH =00003 * 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 * 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 BUFSIZ TEMPORARY MOVE-BUFFER SIZE ENTRY SYSBUF TEMPORARY MOVE-BUFFER START ENTRY M:REL RELOCATION FOR RELOCATION WORD!!!! ENTRY I:RSTE INTERPRETER RESTART ENTRY ENTRY SAVE01,SAVE12,SAVE03,SAVE04 ENTRY SAVE05,SAVE06,SAVE07,SAVE08 ENTRY SAVE09,SAVE10,SAVE11,SAVE02 ENTRY SAVE13,SAVE14,SAVE15,SAVE16 ENTRY SAVE17,SAVE18,SAVE19,SAVE20 ENTRY SAVE21,SAVE22,SAVE23,SAVE24 ENTRY SAVE25,SAVE26,SAVE27,SAVE28 ENTRY SAVE29,SAVE30 ENTRY APPTYP APPLICATION TYPE 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 * EXTERNAL LABELS EXTRN SYSLDM START OF MONITOR CONFIGURATION PART 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 TTB:SA START OF SAVE AREA IN TTAB EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS EJECT *************************************** * CONDITIONAL ASSEMBLY * *************************************** MMUPAG EQU 1 0 = NO MMU SWPBLK EQU 0 SWAPPABLE WORK BLOCKS CREDIT EQU 1 0=ASSEMBLER MMUSWB EQU MMUPAG+SWPBLK SWBMMU EQU SWPBLK-MMUPAG EJECT PROGRAM STRUCTURE: * ------------------------------------------------------- * ! RELOCATION ROUTINE !<- A13 * ! A14-STACK AND SUBROUTINE-HANDLER ! * !-----------------------------------------------------! * ! SAVE & COMMUNICATION AREA. MMU - WORK TABLES ! * !-----------------------------------------------------! * ! SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM. ! * !-----------------------------------------------------! * ! R E A L T A ! PART 2.B * ! BUILD REAL TASK-LOCAL DATA AREAS ! * ! -QUEUE TASK VIA 'ACTOT' ! * ! -FILL MM-TABLE IN TTAB ! * ! -COPY T:A'S ACCORDING TO SHADOW-TABLE ! * ! -BUILD TWB'S AND RESERVE FOR SWB'S ! * ! -ALLOCATE FIXED BUFFERS AND STACK ! * ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE ! * ! -START DEBUGGER (IF ANY) AND START APPLICATION ! * !-----------------------------------------------------! * ! SUBROUTINES ! PART 2.A * ! -MOVE DDIV PROTOTYPE TO FOLLOW SYSLDA ! * ! ! * ! C O M D A T ! * ! GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S. ! * ! -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO ! * ! SHADOW-TABLE. ! * ! ! * ! C L A D A T ! * ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S ! * ! AND DWB'S. ! * ! -BUILD MM-TABLE ! * ! -MOVE T:D ! * ! -MOVE D.T. & W.B., COPY UWB'S ! * ! -MOVE D.T.'S OF SWB'S AND TWB'S ! * ! -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE ! * ! W.B.-ADDRESS ! * ! ! * ! P R O D A T ! * ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. ! * ! -GENERATE TWB'S AND RESERVE FOR SWB'S ! * ! -ALLOCATE FIXED BUFFERS AND TERMINAL STACK ! * ! -MOVE T:A ! * ! -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA. ! * ! -CONTINUE IN PART 2.B ! * !-----------------------------------------------------! * ! SUBROUTINES ! PART 1 * ENTRY ->! * SYSLDA ENTRY * ! * ! CREDIT APPLICATION: ! ASSEMBLER APPLICATION: ! * ! READ CUNFIGURATION FILE ! -FILL MM-TABLES IN ! * ! AND BUILD SHADOW-TABLES. ! USER TASK TTAB'S. ! * ! ! -QUEUE 1:ST USER TASK ! * ! T:ATAB: ! AND START APPLICATION ! * ! -A TABLE OF 'NUMBER OF !-------------------------! * ! REAL TASKS' IS BUILT AT ! * ! THE END OF MONITOR. ! * ! U:BTAB: ! * ! -A TABLE OF 'NUMBER OF REAL UWB'S' IS BUILT IN ! * ! U:BTAB PROTOTYPE. ! * ! ! * ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. ! * ! -REMOVE NOT USED ENTRIES IN T:ATAB ! * ! -RELOCATE ADDRESSES IN U:BTAB ! * ! -MOVE SYSLDA (NOT PART 1) TO FOLLOW T:ATAB SHADOW- ! * ! TABLE ! * ! -CONTINUE IN PART 2.A ! * !-----------------------------------------------------! 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 I:RSTE EQU 42 INTERPRETER RESTART ENTRY ********** * U:BTAB * ********** UP:REC EQU 6 RECORD LENGTH IN INITIAL U:BTAB UPADDR EQU 2 PROTOTYPE ADDRESS UPNAME EQU 4 PROTOTYPE NAME UPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) * UR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB URADDR EQU 2 ADDRESS TO FIRST REAL UWB URNUMB EQU 4 NUMBER OF UWB'S URLENG EQU 6 LENGTH OF UWB 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 6 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 BA EQU 2 BUFFER ADDRESS RL EQU 4 REQ. LENGTH EL EQU 6 EFF. LENGTH BL EQU 14 LENGTH ITEM ADDRESS 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) WATLEN EQU 6 NUMBER OF WATELEMENTS TWBMSK EQU 8 MASK FOR TWB'S (ONE BIT/ENTRY) SWBMSK EQU 10 MASK FOR SWB'S -"- CWBMSK EQU 12 MASK FOR CWB'S -"- UWBMSK EQU 14 MASK FOR UWB'S -"- DWBFST EQU 16 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 ********************* * 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 CREID EQU 2 CREDIT IDENTIFICATION 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 ***************************************************************** * CALL-FORMAT, PERFORMS: CFR A14,A13 * * DATA [REL-ADDRESS] * * * ***************************************************************** CALL FORM 16=/F697,16 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 12 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,MUL,A13 SAVE A10 LD* A10,4,A14 GET SUBROUTINE REL ADDRESS IM 4,A14 ADJUST RETURN ADDRESS IM 4,A14 AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION STR A10,A14 PUT ON STACK LD A10,MUL,A13 RESTORE A10 ABR* A14 ******************************************************* * JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * ******************************************************* JUMP ABL SYSLDM EJECT ************************************ ** ** ** SAVE, AND COMMUNICATION AREA ** ** ** ************************************ T:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS DATA 0 T:ATNW EQU *-REL T:ATAB 'NEW' ADDRESS DATA 0 U:BTOD EQU *-REL U:BTAB OLD ADDRESS DATA 0 U:BTNW EQU *-REL U:BTAB NEW ADDRESS DATA 0 S:BTOD EQU *-REL S:BTAB OLD ADDRESS DATA 0 S:BTNW EQU *-REL S:BTAB NEW ADDRESS DATA 0 MOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE DATA 0 MOVED EQU *-REL INDICATOR IF BLOCK ALREDY MOVED DATA 0 ENDADD EQU *-REL END-ADDRESS INDICATOR FOR TABLE-SCANNING DATA 0 LSTADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART DATA 0 FSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS DATA 0 NEWAD1 EQU *-REL SAVE FOR W.B. ADDRESS DATA 0 NEWAD2 EQU *-REL SAVE FORD.T. ADDRESS DATA 0 SWITCH EQU *-REL D.T. INDICATOR DATA 0 FLAG EQU *-REL REAL TASK DATA PROCESSING INDICATOR DATA 0 UWB EQU *-REL U.W.B. INDICATOR DATA 0 APPTYP EQU *-REL APPLICATION TYPE DATA 0 SAVE01 EQU *-REL TEMPORARY SAVE DATA 0 SAVE02 EQU *-REL DATA 0 SAVE03 EQU *-REL DATA 0 SAVE04 EQU *-REL DATA 0 SAVE05 EQU *-REL DATA 0 SAVE06 EQU *-REL DATA 0 SAVE07 EQU *-REL DATA 0 SAVE08 EQU *-REL DATA 0 SAVE09 EQU *-REL SAVE AREAS DATA 0 SAVE10 EQU *-REL DATA 0 SAVE11 EQU *-REL DATA 0 SAVE12 EQU *-REL DATA 0 SAVE13 EQU *-REL DATA 0 SAVE22 EQU *-REL DATA 0 SAVE25 EQU *-REL DATA 0 SAVE26 EQU *-REL DATA 0 SAVE27 EQU *-REL DATA 0 SAVE28 EQU *-REL DATA 0 SAVE29 EQU *-REL DATA 0 SAVE30 EQU *-REL DATA 0 WBADD EQU *-REL W.B.-ADDRESS SAVE DATA 0 MUL EQU *-REL MULTIPLICATION REGISTER DATA 0 BIT EQU *-REL SAVE FOR SUPER-LOOP DATA 0 TADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS DATA 0 DATEND EQU *-REL END OF DDIV PROTOTYPE DATA 0 MMREL1 EQU *-REL PHYSICALL PAGE BASE DATA 0 M:REL EQU *-REL RELOCATION FOR SYSLDM DATA 0 SYSBUF EQU *-REL DATA 0 TEMPORARY BUFFER START ADDRESS BUFSIZ EQU *-REL TEMP. BUFFER SIZE DATA 0 MMTO EQU *-REL MMTABLE ADDRESS DATA 0 MMFROM EQU *-REL 2:ND MMTABLE ADDRESS DATA 0 FYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER DATA 0 FSTPAG EQU *-REL DATA 0 FIRST FREE PAGE (PHYSICALL) TTAB EQU *-REL CORRENT TTAB ADDRESS DATA 0 XMSAV EQU *-REL DATA 0,0 LDALEN EQU *-REL DATA LDAEND-REL PROGRAM LENGTH ********************************* * EQUATES FOR SYSLDM SAVE-WORDS * ********************************* SAVE14 EQU U:BTOD SAVE15 EQU U:BTNW SAVE16 EQU MOVADD SAVE17 EQU ENDADD SAVE18 EQU LSTADR SAVE19 EQU FSTADR SAVE20 EQU MOVED SAVE21 EQU NEWAD1 SAVE23 EQU SWITCH SAVE24 EQU FLAG 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 LSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' DATA 0 MMBEG EQU TABBE-* EJECT *** *** *** S U B R O U T I N E S *** *** -COMMON TO ALL PARTS IN PROGRAM *** *** *** ************************************************* ************************************************* ** 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,SAVE01,A13 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 ** 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 LD A4,SCTEFA GET END OF FREE AREA TNM A2,A4 SIGN EQUAL? RF(NN) MOVNN YES CWR A4,A2 COMPARE WHEN UNEQUAL SIGN RF MOVCK MOVNN CWR A2,A4 COMPARE WHEN EQUAL SIGN MOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR 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 CREDIT-MMUPAG=1 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 * LD A2,LSTADR,A13 GET LAST ADDRESS SUR A2,A3 SUB LENGTH ANKL A2,/FFFE MAKE EVEN ADDRESS ST A11,SAVE01,A13 SAVE A11 ST A9,SAVE12,A13 SAVE A9 LDR A11,A2 LD A9,DATEND,A13 END OF PROTOTYP AREA CALL CMPADR COMPARE ADDRESSES RF(NL) MOV020 MOV010 LDKL A1,LMP3 MEMORY OVERFLOW CALL ERROR MOV020 LD A9,FSTADR,A13 CHECK FIRST FREE ADDRESS CALL CMPADR RB(L) MOV010 ST A2,LSTADR,A13 NEW ADDRESS LD A9,SAVE12,A13 RESTORE REGISTERS LD A11,SAVE01,A13 RB MOVES XIF IFT CREDIT+MMUPAG=2 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 * ST A1,SAVE09,A13 ST A1,SAVE07,A13 ST A2,SAVE10,A13 ST A2,SAVE08,A13 ST A3,SAVE11,A13 ST A9,XMSAV,A13 SAVE A9 TEMPORARY ST A11,XMSAV+2,A13 SAVE A11 TEMPORARY 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,A13 GET TEMPORARY BUFFER SIZE CALL CMPADR TEMPORARY BUFFER BIG ENOUGTH RF(G) SPLIT NO! SEVERAL MOVE XMOV10 LDR A3,A10 GET LENGTH LD A1,SAVE09,A13 GET FROM ADDRESS LD A2,SYSBUF,A13 GET TEMP. BUFFER START-ADDRESS TL* MMFROM,A13 LOAD FROM-TABLE MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS LD A1,SYSBUF,A13 LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS LDR A3,A10 GET LENGTH TL* MMTO,A13 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,SAVE08,A13 SAVE START OF 'TO' ADDRESS LD A3,SAVE11,A13 GET REQUESTED LENGTH SUR A3,A10 SUBTRACT MOVED PART ST A3,SAVE11,A13 SAVE CWR A3,A10 RB(NL) XMOV10 LDR A10,A3 LAST LENGTH RB XMOV10 EJECT SPLIT EQU * LDK A1,0 RESET DIVISION REG LDR A2,A3 GET DIVISOR DV BUFSIZ,A13 AND DIVIDE LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1) LD A10,BUFSIZ,A13 MOVE MAX LENGTH RB XMOV10 XMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS' LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS' LD A9,XMSAV,A13 RESTORE A9 LD A11,XMSAV+2,A13 RESTORE A11 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 * ST A11,SAVE01,A13 SAVE A11 ST A9,SAVE12,A13 SAVE A9 LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE LD A10,TTAB,A13 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,A13 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,A13 SAVE PHYSICALL PAGE NUMBER LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. ADR A4,A10 ABSOLUTE ENTRY ADDRESS ST A4,MMTO,A13 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,A13 SAVE LOGICALL ADDRESS * CHECK ADDRESSES * LD A9,FSTPAG,A13 GET FIRST FREE PAGE ST A11,SAVE07,A13 SAVE A11 LD A11,FYSPAG,A13 CALL CMPADR AND COMPARE RF(G) MOV090 OK! RF(L) MOV070 NOK! LD A11,SAVE07,A13 RESTORE DISPL. LD A9,FSTADR,A13 CALL CMPADR RF(NL) MOV090 OK! MOV070 LDKL A1,LMP3 CALL ERROR MOV090 EQU * CALL XMOVE MOVE LD A9,SAVE12,A13 LD A11,SAVE01,A13 RESTORE REGISTERS TL* MMFROM,A13 RESTORE MM-TABLE RTN A14 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 * 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 IFF CREDIT=0 EJECT ** G E T W B ** ** ** ** ** ** GET WORK BLOCK ADDRESS AND DISPLACE- ** ** MENT IN T:A ** ** ** ** INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** ** BIT=BIT NUMBER SAT IN MASK (0-15)** ** OUTPUT: A4=W.B. DISPLACEMENT IN T:A ** ** TADISP=A4 ** ** A11=W.B.-ADDRESS ** ** WBADD=POINTER TO W.B.-ADD IN T:A ** *********************************************** GETWB EQU * LD A4,BIT,A13 GET BIT NUMBER SLL A4,2 ADJUST FOR ADDRESSING ADK A4,WATFST+2 ST A4,TADISP,A13 SAVE DISPLACEMENT IFT CREDIT-MMUPAG=1 LDR* A11,A8 GET T:A-ADDRESS ADR A11,A4 ADD DISPLACEMENT ST A11,WBADD,A13 SAVE LDR* A11,A11 GET W.B.-ADDRESS XIF IFT CREDIT+MMUPAG=2 LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? RF(Z) GETW10 NO! TL* MMTO,A13 LOAD TO-TABLE GETW10 ELR A11,A8 GET T:A-ADDRESS ADR A11,A4 ADD DISPLACEMENT ST A11,WBADD,A13 SAVE ELR A11,A11 GET W.B.-ADDRESS TL* MMFROM,A13 RELOAD FROM-TABLE XIF IFF CREDIT=0 RTN A14 EJECT ** M O V W B ** ** ** ** ** ** MOVE WORK-BLOCK. W.B.-ADDRESS IS UPDATED ** ** ** ** INPUT: A11=W.B.-ADDRESS ** ** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS ** ** WORK-REGS: A1-A4 ** **************************************************** MOVWB EQU * LDR A1,A11 GET ADDRESS ADKL A1,WBLEN FROM-ADDRESS IFT CREDIT-MMUPAG=1 LDR* A3,A1 LENGTH CALL MOVING SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE XIF IFT CREDIT+MMUPAG=2 ELR A3,A1 LENGTH CALL MOVING SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT LD A4,FLAG,A13 REAL DATA-PART PROCESSING? RF(Z) MOVW10 NO! TL* MMTO,A13 LOAD TO-TABLE MOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE TL* MMFROM,A13 RELOAD FROM-TABLE XIF IFF CREDIT=0 RTN A14 EJECT ** M O V D T ** ** ** ** ** ** MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** ** ** ** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** ** OUTPUT: A3=POINTER TO W.B.-ADDRESS ** ** WORK REGS: A1-A4 ** ***************************************************** MOVDT EQU * LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT SUK A1,2 POINTER TO D.T.-ADDRESS IFT CREDIT-MMUPAG=1 LDR* A1,A1 D.T.-ADDRESS ADKL A1,DTLEN ADJUST FOR LENGTH WORD AD A1,MOVADD,A13 RELOCATE LDR* A3,A1 LENGTH CALL MOVING LD A3,WBADD,A13 SUKL A2,DTLEN SUKL A1,DTLEN ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS XIF IFT CREDIT+MMUPAG=2 ELR A1,A1 D.T.-ADDRESS ADKL A1,DTLEN ADJUST FOR LENGTH WORD AD A1,MOVADD,A13 RELOCATE ELR A3,A1 LENGTH CALL MOVING LD A3,WBADD,A13 SUKL A2,DTLEN SUKL A1,DTLEN ES A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS XIF IFF CREDIT=0 RTN A14 EJECT ** M O V D W B ** ** ** ** ** ** SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. ** ** AND UPDATE ADDRESSES (W.B. & D.T.) ** ** ** ** INPUT : A12=T:D-ADDRESS ** ** A8= POINTER TO T:A-ADDRESS ** ** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) ** ** WORK.REGS: A1-A4 ** ******************************************************** MOVDWB EQU * ST A6,SAVE05,A13 SAVE A5 LDK A6,0 MOVD10 LD A4,BIT,A13 GET BIT NUMBER ADK A4,1 FIRST WAT-ELEMENT =1 IFT CREDIT-MMUPAG=1 LD A2,WATLEN,A12 XIF IFT CREDIT+MMUPAG=2 EL A2,WATLEN,A12 XIF IFF CREDIT=0 SUR A2,A6 ACTUAL TABLE LENGTH ADR A6,A12 A6=TABLE POINTER MOVD20 ADK A6,1 A6=TABLE INDEX SUK A2,1 ALL? RF(N) MOVD60 YES! IFT CREDIT-MMUPAG=1 CC A4,DWBFST,A6 SHARED W.B.? XIF IFT CREDIT+MMUPAG=2 EL A10,DWBFST,A6 CHECK IF SHARED W.B. SRC A6,1 RIGHT OR LEFT BYTE? RF(N) MOVD30 RIGHT! ANKL A10,/FF00 ECR A10,A10 RF MOVD40 MOVD30 ANKL A10,/FF MOVD40 SLC A6,1 ADJUST POINTER CWR A4,A10 SHARED W.B.? XIF IFF CREDIT=0 RB(NE) MOVD20 NO! * DWB FOUND * NGR A4,A2 CALCULATE DISPLACEMENT IN T:A IFT CREDIT-MMUPAG=1 AD A4,WATLEN,A12 XIF IFT CREDIT+MMUPAG=2 EL A10,WATLEN,A12 ADR A4,A10 XIF IFF CREDIT=0 LDR A6,A4 SAVE TABLE INDEX SUK A4,1 SLL A4,2 ADK A4,WATFST+2 LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS IFT CREDIT-MMUPAG=1 ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A STR A3,A4 CHANGE W.B.-ADDRESS XIF IFT CREDIT+MMUPAG=2 LD A2,FLAG,A13 REAL DATA-PART PROCESSING? RF(Z) MOVD50 NO! TL* MMTO,A13 LOAD TO-TABLE MOVD50 EQU * ELR A10,A8 A4=POINTER TO W.B.-ADDR IN T:A ADR A4,A10 ESR A3,A4 CHANGE W.B.-ADDRESS TL* MMFROM,A13 RELOAD FROM-TABLE XIF IFF CREDIT=0 ST A4,WBADD,A13 LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? RB(NZ) MOVD10 YES! CALL MOVDT MOVE D.T. RB MOVD10 MOVD60 EQU * LD A6,SAVE05,A13 RESTORE A6 RTN A14 EJECT ** T W B S W B ** ** ** ** COPY TWB'S AND RESERVE SPACE FOR SWB'S ** ** ** ** INPUT : A8=ACTUAL T:A-ADDRESS ** ** A12=T:D-ADDRESS ** ** WORK-REGS: A1-A4, A11 ** ************************************************ TWBSWB EQU * ST A7,SAVE04,A13 SAVE A7 LD A7,TWBMSK,A12 GET TWB MASK IFT CREDIT+MMUPAG=2 EL A7,TWBMSK,A12 GET TWB MASK XIF IFF CREDIT=0 CALL SHIFT TWSW10 RF(Z) TWSW20 ALL DONE! CALL GETWB CALL MOVWB ST A2,NEWAD2,A13 SAVE NEW WB-ADDRESS CALL MOVDWB CHANGE DWB-ADDRESSES CALL SKIFTA RB TWSW10 TWSW20 EQU * IFT CREDIT+SWPBLK=2 EJECT * RESERVE SPACE FOR SWB'S * *************************** XIF IFT CREDIT+SWBMMU=2 LD A7,SWBMSK,A12 XIF IFT CREDIT+MMUSWB=3 EL A7,SWBMSK,A12 XIF IFT CREDIT+SWPBLK=2 CALL SHIFT TWSW30 RF(Z) TARZAN ALL DONE CALL GETWB CALL MOVWB RESERVE SPACE ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS CALL MOVDWB CHANGE DWB- ADDRESSES CALL SKIFTA RB TWSW30 TARZAN EQU * XIF IFT CREDIT=1 LD A7,SAVE04,A13 RESTORE A7 RTN A14 EJECT ** A L L B U F ** ** ** ** ALLOCATE FIXED DATA SET BUFFERS AND ** ** TERMINAL STACK ** ** ** ** INPUT : A8=ACTUAL T:A-ADDRESS IN T:ATAB ** ** A12=T:D-ADDRESS ** ** CSN (IN T:A)=LENGTH OF DSCB'S ** ** CIA (IN T:A)=DISPL. TO T:A-START ** ** CSE (IN T:A)=STACKSIZE ** ** WORK-REGS. :A1-A4,A9,A11 ** ************************************************ ALLBUF EQU * IFT CREDIT-MMUPAG=1 LD A9,FSTADR,A13 GET BUFFER START ADDRESS LDR* A1,A8 GET T:A-ADDRESS LD A3,CSN,A1 GET DSCB TOTAL LENGTH RF(Z) ALLB70 NO DSCB'S ADKL A1,T:ASTA CALC START OF DSCB RECORDS LDR A10,A1 SAVE START ADDRESS XIF IFT CREDIT+MMUPAG=2 ELR A1,A8 GET T:A-ADDRESS EL A3,CSN,A1 GET DSCB TOTAL LENGTH RF(Z) ALLB70 NO DSCB ADKL A1,T:ASTA CALCULATE START OF DSCB'S LDR A10,A1 SAVE START ADDRESS XIF IFF CREDIT=0 SUR A3,A1 NGR A3,A3 SUK A3,DSCBL END CONDITION ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS ALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD CW A1,SAVE04,A13 ALL? RF(E) ALLB70 YES! IFT CREDIT-MMUPAG=1 LDR* A3,A1 GET FIRST WORD IN ECB SLL A3,1 STATIC BUFFER? RB(NN) ALLB10 NO! ST A9,BA,A1 BUFFER START LD A3,RL,A1 BUFFER LENGTH ST A3,BL,A1 LD A2,EL,A1 SHARED BUFFER? RF(Z) NOTSH NO! LDR A4,A1 RESTORE START OF DSCB'S XIF IFT CREDIT+MMUPAG=2 ELR A3,A1 GET FIRST WORD IN ECB SLL A3,1 STATIC BUFFER? RB(NN) ALLB10 NO! EL A3,RL,A1 BUFFER LENGTH ES A3,BL,A1 EL A2,EL,A1 SHARED BUFFER? RF(Z) NOTSH NO! LDR A4,A1 RESTORE START OF DSCB'S XIF IFF CREDIT=0 ADK A4,DSCBL FIRST WORD ALLB20 SUK A2,1 A2=INDEX RF(NN) ALLB30 LDK A1,LMP4 FORMAT ERROR CALL ERROR ALLB30 EQU * RF(Z) ALLB40 ECB FOUND ADK A4,DSCBL A4=ADDRESS TO DSCB TO EXAMINE CWR A4,A10 RB(NE) ALLB20 LDK A1,LMP4 BUFFER NOT FOUND CALL ERROR IFT CREDIT-MMUPAG=1 ALLB40 LD A4,BA,A4 BUFFER ALLOCATED? RF(NZ) ALLB50 YES! LDK A1,LMP4 FORMAT ERROR CALL ERROR ALLB50 EQU * ST A4,BA,A1 AND STORE IN CURRENT ECB XIF IFT CREDIT+MMUPAG=2 ALLB40 EL A4,BA,A4 BUFFER ALLOCATED? RF(NZ) ALLB50 YES! LDK A1,LMP4 FORMAT ERROR CALL ERROR ALLB50 EQU * ES A4,BA,A1 AND ESORE IN CURRENT ECB XIF IFF CREDIT=0 RB ALLB10 IFT CREDIT-MMUPAG=1 NOTSH LDR A9,A9 PAGING? RF(NZ) NOTS10 NO! CALL MOVING ALLOCATE BUFFER FROM BOTTOM ST A2,BA,A1 STORE BUFFER ADDRESS RB ALLB10 NOTS10 ADR A9,A3 ALLOCATE BUFFER FROM TOP ADKL A9,1 ANKL A9,/FFFE EVEN ADDRESS * CHECK ADDRESS: LD A11,LSTADR,A13 DATA START CALL CMPADR RF(NL) ALLB60 OK! LDKL A1,LMP3 CALL ERROR ALLB60 EQU * ST A9,FSTADR,A13 SAVE BUFFER END ADDRESS XIF IFT CREDIT+MMUPAG=2 NOTSH CALL MOVING ALLOCATE BUFFER FROM 'BOTTOM' ES A2,BA,A1 STORE BUFFER ADDRESS XIF IFF CREDIT=0 RB ALLB10 * RESERVE STACK AND SET STACKPOINTERS * ALLB70 EQU * IFT CREDIT-MMUPAG=1 LDR* A1,A8 GET T:A-ADDRESS LD A4,LSTADR,A13 SUK A4,2 LD A3,CSE,A1 GET STACK SIZE RF(NZ) ALLB80 LDK A3,STKSZ DEFAULT STACKSIZE ALLB80 EQU * ST A4,STKB,A1 SET STACKBASE STR A4,A1 STACK POINTER CALL MOVING ALLOCATE STACK ST A2,STKE,A1 SET STACK-END XIF IFT CREDIT+MMUPAG=2 ELR A1,A8 GET T:A-ADDRESS EL A3,CSE,A1 GET STACK SIZE RF(NZ) ALLB80 USER DEFINED STACK SIZE LDK A3,STKSZ DEFAULT STACK SIZE ALLB80 ES A3,STKB,A1 SAVE STACK SIZE CALL MOVING ALLOCATE STACK ES A2,STKE,A1 STORE STACK END EL A3,STKB,A1 GET STACK SIZE ADR A2,A3 COMPUTE STACK BASE SUK A2,2 ADDRESS TO LAST WORD IN STACK =1 ES A2,STKB,A1 STORE STACK BASE ESR A2,A1 STORE CURRENT STACK POINTER XIF IFF CREDIT=0 RTN A14 EJECT ** M O V T : A ** ** ** ** MOVE T:A AND UPDATE DATA SET ADDRESSES IN ** ** FORMAT CONTROL BLOCK ** ** ** ** INPUT : A8=T:A-ADDRESS ** ** A12=T:D-ADDRESS ** ** CIA (IN T:A)=DISL. TO T:A-START ** ** OUTPUT: A2=NEW T:A-ADDRESS ** ** WORKREGS: A1-A4 ** ************************************************ MOVT:A EQU * IFT CREDIT-MMUPAG=1 LDR* A1,A8 GET T:A-ADDRESS LD A3,WATLEN,A12 GET LENGTH OF WAT SLL A3,2 BYTES SU A3,CIA,A1 ADD DISPLACEMENT TO START ADK A3,WATFST A3=LENGTH AD A1,CIA,A1 FROM-ADDRESS CALL MOVING LDR* A4,A8 SU A2,CIA,A4 NEW T:A-ADDRESS SU A1,CIA,A4 'OLD' T:A-ADDRESS * COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * LD A3,FCD,A12 ANY FCD? RF(Z) MOVT10 NO! ADR A3,A2 START OF FCB LDR A4,A2 SAVE T:A-ADDRESS LD A10,FLAG,A13 REAL TASK DATA PROCESSING? RF(Z) MOVT05 NO! SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS) MOVT05 EQU * ADS A4,FCBDD1,A3 ADS A4,FCBDD2,A3 MOVT10 RTN A14 XIF IFT CREDIT+MMUPAG=2 ELR A1,A8 GET T:A-ADDRESS EL A3,WATLEN,A12 GET LENGTH OF WAT SLL A3,2 BYTES EL A10,CIA,A1 SUR A3,A10 ADD DISPL. TO START ADK A3,WATFST A3=LENGTH ADR A1,A10 FROM-ADDRESS CALL MOVING ELR A4,A8 EL A10,CIA,A4 SUR A2,A10 NEW T:A-ADDRESS SUR A1,A10 'OLD' T:A-ADDRESS * COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * EL A3,FCD,A12 ANY FCD? RF(Z) MOVT10 NO! LDR A4,A2 GET T:A-ADDRESS LD A10,FLAG,A13 REAL TASK DATA PROCESSING? RF(Z) MOVT05 NO! SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) MOVT05 EQU * ADR A3,A2 START OF FCB TL* MMTO,13 LOAD TO-TABLE EL A10,FCBDD1,A3 ADR A10,A4 ES A10,FCBDD1,A3 EL A10,FCBDD2,A3 ADR A10,A4 ES A10,FCBDD2,A3 TL* MMFROM,A13 RELOAD FROM-TABLE MOVT10 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 IFF CREDIT=0 EJECT *************************************************************** * * * ICBMVD - INDICATE CURRENT BLOCK MOVED * * ===================================== * * * * REFERENCED IN: MOVCOM * * * * ENTRY: A8 - FIRST T:A POINTER * * A6 - SECOND T:A POINTER * * BIT - BIT NUMBER SET IN CWB- OR UWB-MASK * * * * EXIT: CORRESPONDING BIT IN CURRENT STATCK POINTER * * IN T:A IS SET * * * * WORK REGISTERS: A1,A2 * * * * SUBROUTINES: * * * *************************************************************** EJECT ICBMVD EQU * LDKL A1,/8000 SET BIT 0 LD A2,BIT,A13 GET BIT NUMBER IN CWB- OR UWB-MASK IBAM10 RF(Z) IBAM20 BIT FOUND SRL A1,1 SHIFT BIT RIGHT ONE STEP SUK A2,1 DECREMENT BIT COUNTER RB IBAM10 * * UPDATE MOVED MASK IN FIRST T:A * XIF IFT CREDIT-MMUPAG=1 IBAM20 LDR* A2,A8 GET T:A POINTER LDR* A3,A2 GET MOVED BLOCK MASK ORR A3,A1 INDICATE CURRENT BLOCK MOVED STR A3,A2 STORE NEW MOVED BLOCK MASK * * UPDATE MOVED MASK IN SECOND T:A * LDR* A2,A6 GET T:A POINTER LDR* A3,A2 GET MOVED BLOCK MASK ORR A3,A1 INDICATE CURRENT BLOCK MOVED STR A3,A2 STORE NEW MOVED BLOCK MASK XIF IFT CREDIT+MMUPAG=2 IBAM20 ELR A2,A8 GET T:A POINTER ELR A3,A2 GET MOVED BLOCK MASK ORR A3,A1 INDICATE CURRENT BLOCK MOVED ESR A3,A2 STORE NEW MOVED BLOCK MASK * * UPDATE MOVED MASK IN SECOND T:A * ELR A2,A6 GET T:A POINTER ELR A3,A2 GET MOVED BLOCK MASK ORR A3,A1 INDICATE CURRENT BLOCK MOVED ESR A3,A2 STORE NEW MOVED BLOCK MASK XIF IFF CREDIT=0 RTN A14 EJECT ********************************************************************* * * * CHKMVD - CHECK IF BLOCK ALREADY MOVED * * ===================================== * * * * REFERENCED IN: MOVCOM,MOVCLA * * * * ENTRY: A8 - POINTER TO T:A * * BIT - BIT NUMBER IN CWB- OR UWB-MASK * * * * EXIT: IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2 * * * * WORK REGISTER: A1,A2 * * * * SUBROUTINES: * * * ********************************************************************* EJECT CHKMVD EQU * IFT CREDIT-MMUPAG=1 LDR* A1,A8 GET T:A POINTER LDR* A1,A1 GET MOVED BLOCK MASK XIF IFT CREDIT+MMUPAG=2 ELR A1,A8 GET T:A POINTER ELR A1,A1 GET MOVED BLOCK MASK XIF IFF CREDIT=0 LD A2,BIT,A13 GET BIT SET IN CWB- OR UWB-MASK CHKM10 RF(Z) CHKM20 BIT IN MOVED BLOCK MASK FOUND SLL A1,1 NEXT BIT IN MOVED BLOCK MASK SUK A2,1 DECREMENT BIT COUNTER RB CHKM10 CHKM20 ADK A1,0 SET CR CFI A14,PSW,A13 PUT CONDITION IN PSW RTN A14 EJECT ***** S * U * P * E * R * L * O * O * P **** ** ** ** S H I F T & SKIFTA ** ** ** ** CALCULATES BIT NUMBER SAT IN MASK-WORD ** ** INPUT : A7=MASK WORD ** ** OUTPUT: BIT=BIT NUMBER ** ** CONDITION CODE IN PSW ON RETURN ** ****************************************************** SHIFT EQU * CM BIT,A13 RESET BIT COUNTER LDR A7,A7 RF SHIF20 SKIFTA EQU * ENTRY: CONTINUE SHIFT SHIF10 IM BIT,A13 SLL A7,1 SHIF20 EQU * RF(Z) SHIF30 NO MOORE BITS SAT RB(NN) SHIF10 SHIF30 CFI A14,PSW,A13 PUT COND IN PSW RTN A14 XIF EJECT ** M U L T ** ** ** ** ** ** MULTIPLICATION (A2) X A3(), A2#0 ** ** ** ** INPUT : A3,A2 ** ** OUTPUT:A3=RESULT ** ************************************************ MULT EQU * ST A3,MUL,A13 STR A2,A14 SAVE A2 TEMPORARY LDK A3,0 ADD AD A3,MUL,A13 SUK A2,1 RB(NZ) ADD LDR* A2,A14 RTN A14 IFT MMUPAG=1 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 * 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 IFF CREDIT=0 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 * XIF IFT MMUPAG=0 LDR* A10,A8 T:A ADDRESS LD A1,T:ATID,A10 GET TID TO MATCH LD A12,T:DAD,A10 T:D-ADDRESS XIF IFT MMUPAG=1 ELR A10,A8 T:A-ADDRESS EL A1,T:ATID,A10 GET TID EL A12,T:DAD,A10 XIF GETTTB EQU * ENTRY. INPUT: A1=TID LD A4,SCTTCT GET TC:TAB ADDRESS LDR* A3,A4 TCTAB LENGTH GETT10 ADK A4,2 SUK A3,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,A13 SAVE RTN A14 IFF CREDIT=0 EJECT ** Q U E J O B ** ** ** ** ** ** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** ** 0, ENB. ** ** ** ** INPUT: A10=T:A-ADDRESS ** ** A12=T:D-ADDRESS ** ** A2=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 LD A8,SCTLAC GET P:MTAB-ADDRESS LDR A5,A2 GET TTAB-ADDRESS IFT CREDIT-MMUPAG=1 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 LD A2,NTPA,A8 INTERPRETER START ADDRESS XIF IFT CREDIT+MMUPAG=2 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 EL A2,NTPA,A8 INTERPRETER START ADDRESS XIF IFF CREDIT=0 CF A15,ACTOT ADK A4,STPREC NEXT START-POINT RB GETT30 GETT40 ABL RETUR8 RELOAD 8 REGS RETUR EQU *-REL RTN A14 XIF IFT MMUPAG=1 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 * 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,A13 RELOAD TABLE RTN A14 XIF IFF CREDIT=0 EJECT ************************************************************ * * * CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE AREA IN TTAB * * SAVE REAL TID IN AUXILIARY TABLE FOR DEBUGGER * * ====================================================== * * * * * * REFERENCED IN: SYSLDA PART 2 B. * * * * ENTRY: A5 - POINTER TO NUMBER OF COPIES * * A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB * * * * EXIT: * * * * WORK REGISTERS: A1,A3,A6,A8 * * * * SUBROUTINES: GETTTB * * * ************************************************************ CHTAID EQU * LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB LDR* A6,A5 GET NUMBER OF COPIES CHT:10 RF(Z) CHT:90 NO MOORE! SUKL A8,2 LAST USED ENTRY IN REAL T:ATAB IFT CREDIT-MMUPAG=1 LDR* A1,A8 GET POINTER TO REAL T:A LD A1,T:ATID,A1 GET TCL IN T:A CHT:20 CALL GETTTB GET CORRESPONDING TTAB LD A4,TTBTID,A2 GET REAL TID IN TTAB LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS ST A4,T:ATID,A3 REPLACE TCL IN T:A LDR A3,A8 GET REAL T:ATAB POINTER SU* A3,T:ATNW,A13 COMPUTE ENTRY IN AUX. TID TABLE STR A4,A3 SAVE TID FOR DEBUGGER PURPOSE XIF IFT CREDIT+MMUPAG=2 ELR A1,A8 GET POINTER TO REAL T:A EL A1,T:ATID,A1 GET TCL IN T:A CHT:20 CALL GETTTB GET CORRESPONDING TTAB LDR A3,A2 GET POINTER TO TTAB ENTRY ADKL A3,MMBEG START OF MM-TABLE FOR THIS TTAB TLR A3 LD A4,TTBTID,A2 GET REAL TID IN TTAB *79-04-11* LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS ES A4,T:ATID,A3 REPLACE TCL IN T:A *79-04-11* EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB NGR A3,A3 NEGATIVE DISPLACEMENT ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE *79-04-11* XIF IFT CREDIT=1 CM TTB:PP,A2 CLEAR TCL SAVE AREA SUK A1,1 DECREMENT TCL SUKL A8,2 DECREMENT SUK A6,1 DECREMENT NUMBER OF COPIES RB(P) CHT:20 NEXT COPY CHT:90 RTN A14 EJECT ************************************************ *** *** ** SYSLOAD PART 2.B ** ** ** ************************************************ * BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * * SHADOW TABLE * * * ************************************************ PART2B EQU *-REL REALTA EQU * LD A5,SCTSFA MONITOR END ADDRESS LD A8,T:ATOD,A13 T:ATAB PROTOTYP ADDRESS LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS ADK A7,2 ST A8,SAVE03,A13 SAVE A8 SYA310 LD A8,SAVE03,A13 RESTORE A8 ADKL A8,2 CW A8,ENDADD,A13 ALL? RF(E) SYA350 YES! ST A8,SAVE03,A13 SAVE ADK A5,2 A5=SHADOW TAB POINTER IFT CREDIT-MMUPAG=1 CALL GETTAB GET CORRESPONDING TTAB AND QUEUE CALL QUEJOB ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) LD A1,SCTOPT GET OPTION WORD ANK A1,2 DISC PAGING? RF(Z) SYA320 NO! LDR A1,A10 GET T:A-ADDRESS ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE ST A1,TTB:CB,A2 STORE IN TTAB SYA320 LDR* A1,A8 GET T:A ADDRESS STR A1,A7 STORE IN REAL T:ATAB ADK A7,2 LDR* A6,A5 GET NUMBER OF COPIES EJECT SYA340 SUK A6,1 RF(P) SYA345 NEXT TASK CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS RB SYA310 NEXT TASK-CLASS SYA345 LD A12,T:DAD,A1 GET T:D-ADDRESS CALL MOVT:A MOVE T:A IM T:ATID,A2 UPDATE TID STR A2,A7 STORE IN REAL T:ATAB LDR A8,A7 CHANGE T:A TO COPY CALL GETTAB GET CORRESPONDING TTAB AND QUEUE CALL QUEJOB QUEUE THIS TASK ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB LD A1,SCTOPT GET OPTION WORD ANK A1,2 DISC PAGING? RF(Z) SYA348 NO! LDR A1,A10 GET T:A-ADDRESS ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE ST A1,TTB:CB,A2 STORE IN TTAB SYA348 ADK A7,2 NEXT ENTRY IN REAL T:ATAB CALL TWBSWB MOVE TWB'S AND RESERVE FOR SWB'S CALL ALLBUF ALLOCATE BUFFERS XIF IFT CREDIT+MMUPAG=2 * GET ACTUAL MM-TABLE ADDRESS AND LOAD LDR A1,A5 AD* A1,SCTSFA ADD SHADOW-TABLE LENGTH LDR* A1,A1 GET MM-TABLE ADDRESS TLR A1 LOAD ST A1,MMFROM,A13 SAVE ADDRESS CALL GETTAB GET CORRESPONDING TTAB ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) LDR A1,A10 GET T:A-ADDRESS ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE ST A1,TTB:CB,A2 STORE IN TTAB LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST ENTRY CALL QUEJOB QUEUE THIS TASK LDKL A2,MMTAB GET WORK TABLE ADDRESS ADR A2,A13 TSR A2 SAVE CLASS-DATA TABLE * REMOVE TASK-LOCAL ENTRIES IN MM-TABLE SUK A2,2 START OF TABLE LDKL A12,/FC00 SYA320 SUK A1,2 NEXT ENTRY CWR A1,A2 ALL? RF(E) SYA330 YES! STR A12,A1 REMOVE ENTRY RB SYA320 SYA330 EQU * ELR A1,A8 GET T:A ADDRESS ESR A1,A7 STORE IN REAL T:ATAB EL A12,T:DAD,A1 GET T:D ADDRESS EL A1,T:ATID,A1 GET TID ADK A7,2 NEXT ENTRY IN REAL T:ATAB LDR* A6,A5 GET NUMBER OF COPIES SYA340 SUK A6,1 RF(P) SYA345 NEXT TASK CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS RB SYA310 NEXT TASK-CLASS SYA345 ADK A1,1 NEXT T:A ID CALL GETTTB FIND CORRESPONDING TTAB CALL QUEJOB QUEUE THIS TASK CALL MOVMMT MOVE MM-TABLE TO TTAB CALL MOVT:A MOVE T:A ESR A2,A7 STORE IN REAL T:ATAB ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS LDR A8,A2 GET T:A-ADDRESS ADKL A8,CSB ADDRESS TO CURRENT SEGMENT BASE ST A8,TTB:CB,A9 STORE IN TTAB LDR A8,A7 CHANGE T:A TO COPY ADK A7,2 NEXT FREE WORD IN REAL T:ATAB A2=NEW ADDRESS CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S LD A1,MMTO,A13 GET TO-TABLE ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE TLR A1 CALL ALLBUF ALLOCATE BUFFERS LD A1,TTAB,A13 GET TTAB-ADDRESS CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB ELR A10,A8 GET T:A-ADDRESS (NEW) EL A1,T:ATID,A10 GET TID ADK A1,1 UPDATE TID ES A1,T:ATID,A10 RESTORE IN T:A XIF IFF CREDIT=0 RB SYA340 XIF EJECT FINISH EQU *-REL * ADJUST START OF FREE AREA SYA350 EQU * IFF CREDIT=0 LD A1,LSTADR,A13 GET END OF FREE AREA LD A14,SAVE13,A13 GET APPL. REL. BASE =1 XIF IFT CREDIT+MMUPAG=2 ANKL A1,/FFF LD A2,FYSPAG,A13 SLL A2,2 ORR A1,A2 XIF IFF CREDIT=1 LD A1,SCTLAC XIF IFT MMUPAG-CREDIT=1 ANKL A1,/03FF SLL A1,2 XIF ST A1,SCTEFA+2 IFT CREDIT=1 LD A1,FYSPAG,A13 IFT MMUPAG-CREDIT=1 LD A1,SCTLAC XIF IFT MMUPAG+CREDIT=0 LDK A1,0 XIF SRL A1,14 ST A1,SCTEFA IFT CREDIT-MMUPAG=1 LD A1,FSTADR,A13 START OF FREE AREA RF(NZ) SYA355 XIF LD A1,SCTSFA SYA355 ST A1,SCTSFA+2 CM SCTSFA IFT CREDIT=1 EJECT *************************************************************** * * * PAGGEN - BUILD PAGE TABLE * * ========================= * * * * REFERENCED IN: SYSLDA * * * * ENTRY: SCTSFA - START OF FREE AREA * * SCTEFA - END OF FREE AREA * * SAVE29 - NUMBER OF SEGMENTS * * SCTNOP - NUMBER OF PAGES * * SCTPSZ - PAGE SIZE * * SAVE22 - PHYSICAL ADDRESS TO FIRST PAGE (16 BITS) * * * * EXIT: PAGQUE - POINTER TO FIRST FREE PAGE BLOCK * * PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * * * * WORK REGISTERS: A1-A12 * * * * SUBROUTINES: * * * * * *************************************************************** PAGGEN EQU * LDKL A2,PAGEX EXIT ADDRESS ADR A2,A13 RELOCATE LD A1,SAVE29,A13 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+2 GET START OF FREE AREA ST A11,SCTPAG STORE IN SYSTAB LDR A8,A13 GET RELOCATION BASE ADKL A8,PAG:60-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 CREDIT+MMUPAG=2 LD A1,SCTEFA GET TWO MOST SIGN BITS OF 18-BITS ADDRESS SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS 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 CREDIT-MMUPAG=1 LD A1,SCTEFA+2 END OF FREE AREA LD A10,SCTPSZ PAGE SIZE XIF IFT CREDIT=1 LDR A9,A1 INIT PAGE ADDRESS LDR A6,A9 SAVE PAG:31 EQU * 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 CREDIT+MMUPAG=2 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 IFT CREDIT=1 PAG:36 LDK A2,0 RESET WORD COUNTER PAG:38 ADKL A11,2 RESERV ANOTHER WORD RF(Z) PAG:40 64 KB LIMIT ADK A2,1 INCREMENT WORD COUNTER CWK A2,4 BLOCK COMPLETE? RF(E) PAG:45 YES! LDR A1,A1 ADDRESS IN SYSTEM AREA? RF(Z) PAG:39 NO! TNM A11,A1 32-KB LIMIT CHECK RF(NN) PAG382 CWR A11,A1 RF PAG384 PAG382 CWR A1,A11 PAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! PAG:39 EQU * CWR A11,A8 PROGRAM OVERWRITE RB(NE) PAG:38 NO! PAG:40 EQU * CW A7,SCTNOP ONLY PAGES FOR CORE RESIDENT PAGES? RF(G) PAG:50 NO! CW A7,SAVE29,A13 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,SAVE29,A13 MOORE 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 * ADKL A11,2 START OF FREE AREA ST A11,SCTSFA+2 SAVE ST A7,SCTNOP SAVE NUMBER OF PAGES LDR A1,A9 GET ADDRESS TO FIRST PAGE LDR A2,A1 SAVE XIF IFT CREDIT+MMUPAG=2 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 IFT CREDIT=1 ST A2,SCTEFA+2 SAVE * * INITIATE PAGE BLOCK FOR CORE RESIDENT SEGMENTS AND * STORE PAGE BLOCK ADDRESS IN SEGMENT BLOCKS * LDK A1,0 LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. LD A11,SAVE30,A13 START OF SEGMENT TABLE LDK A4,0 RESET RESIDENT SEGMENT COUNTER LD A12,SCTPAG START OF PAGE TABLE LD A6,SAVE29,A13 NUMBER OF SEGMENTS PAG:60 EQU * ADKL A11,8 NEXT SEGMENT BLOCK LDR* A2,A11 GET STATUS RF(NN) PAG:65 SEGMENT NOT LOADED IN CORE ST A12,6,A11 STORE PAGE BLOCK ADDRESS STR A1,A12 RESET QUEUE POINTER FORWARD ST A1,2,A12 RESET QUEUE POINTER BACKWARD ST A8,4,A12 STORE PAGE ADDRESS ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS ADK A4,1 INCREMENT RESIDENT SEGMENT COUNTER ADR A8,A10 ADDRESS TO NEXT PAGE ADKL A12,8 NEXT PAGE BLOCK PAG:65 SUK A6,1 DECREMENT SEGMENT BLOCK COUNTER RB(P) PAG:60 * * INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE * CWR A4,A7 ANY FREE BLOCKS? RF(E) PAG:90 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 PAG:70 ST A11,2,A12 STORE BACKWARD POINTER ST A9,4,A12 STORE PAGE ADDRESS ST A2,6,A12 INDICATE PAGE FREE ADK A4,1 INCREMENT PAGE BLOCK COUNTER CWR A4,A7 LAST PAGE BLOCK? RF(E) PAG:80 YES! LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK ADK A1,8 ADDRESS TO NEXT PAGE BLOCK STR A1,A12 STORE FORWARD POINTER LDR A12,A1 NEXT PAGE BLOCK ADR A9,A10 NEXT PAGE RB PAG:70 PAG:80 EQU * LDKL A1,PAGQUE POINTER TO PAGQUE STR A1,A12 STORE IN LAST BLOCK ST A12,PAGQUE+2 STORE IN PAGQUE+2 PAG:90 EQU * PAGEX EQU *-REL EJECT XIF * START BUGGER (IF ANY) * GET APPLICATION START IFT CREDIT=0 LD A14,SCTLAC TRUE START OF APPLICATION XIF =1 =1 =1 SUKL A14,8 ADJUST FOR MAP ADKL A13,SYA360 CONTINUATION ADDRESS LDK A1,0 INDICATE SYSLOAD ENDED OTR A1,0,SOP LD A1,SCTBUG GET BUGGER ADDRESS ABR(NZ) A1 SYA360 EQU *-REL LDR A13,P SYA370 EQU *-REL SUKL A13,SYA370 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 * * 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 * =1 * LOCK SOP SWITCHES =1 * =1 CIO A1,0,SOP =1 ABL TDISP BRANCH TO DISPATCHER =1 =1 =1 =1 * * TEMPORARY INTERRUPT ROUTINE FOR RTC * IHRTCO EQU *-REL RIT RTCDA RTN A15 IFF CREDIT=0 EJECT ************************************************* *** *** ** SYSLOAD PART 2.A ** ** ** ************************************************* * BUILD COMMON AND TASKCLASS DATA AREAS. * * BUILD TASKDATA PROTOTYPE AREA * * * ************************************************* PART2A EQU *-REL ******************************************** *** *** ** S U B R O U T I N E S ** ******************************************** ** T : D A D D ** ** ** ** ** ** GET T:D - ADDRESS ** ** ** ** INPUT : A8=POINTER TO T:A (IN T:ATAB) ** ** OUTPUT: A12=T:D ADDRESS ** ************************************************ T:DADD EQU * IFT CREDIT-MMUPAG=1 LDR* A12,A8 T:A ADDRESS LD A12,T:DAD,A12 XIF IFT CREDIT+MMUPAG=2 ELR A12,A8 T:A ADDRESS EL A12,T:DAD,A12 XIF IFF CREDIT=0 AD A12,MOVADD,A13 RELOCATE RTN A14 EJECT ** M O V C O M ** ** ** ** ** ** SEARCH T:A'S FOR COMMON WORK BLOCKS THAT ** ** ARE COMMON TO AT LEAST TWO T:A'S, AND MOVE ** ** TO COMMON AREA ** ** ** ** INPUT : A8=POINTER IN T:ATAB ** ** BIT=BIT NUMBER, SAT IN MASK ** ** ENDADD=ENDADDRESS OF T:ATAB ** ** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** ** WORK.REGS: A1-A6,A9,A11,A12 ** ************************************************* MOVCOM EQU * CALL CHKMVD BLOCK ALREADY MOVED? RF(N) MOVC20 YES! CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL ST A11,SAVE06,A13 SAVE W.B.-ADDRESS CM MOVED,A13 CLEAR MOVED INDICATOR LDR A6,A8 MOVC10 ADK A6,2 NEXT T:A CW A6,ENDADD,A13 ALL DONE? RF(NE) MOVC30 NO MOVC20 RTN A14 YES! IFT CREDIT-MMUPAG=1 MOVC30 LDR* A11,A6 LD A2,T:DAD,A11 T:D-ADDRESS AD A2,MOVADD,A13 RELOCATE ST A2,SAVE03,A13 SAVE LD A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS CW A2,BIT,A13 ENOUGHT? RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE LDR* A11,A11 CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES XIF IFT CREDIT+MMUPAG=2 MOVC30 ELR A11,A6 EL A2,T:DAD,A11 T:D-ADDRESS AD A2,MOVADD,A13 RELOCATE ST A2,SAVE03,A13 SAVE T:D-ADDRESS TEMPORARY EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS CW A2,BIT,A13 ENOUGHT? RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE ELR A11,A11 CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES XIF IFF CREDIT=0 RB(NE) MOVC10 .NEQ. LD A9,MOVED,A13 W.B. ALREADY MOVED? RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY CALL MOVDT MOVE DESCRIPTOR-TABLE ST A2,NEWAD1,A13 SAVE D.T.-ADRESS CALL MOVWB MOV WORK BLOCK IM MOVED,A13 INDICATE MOVED LD A4,UWB,A13 UWB-BLOCKS? RF(Z) MOVC40 NO! CALL GETPRO CREATE REAL UWB'S MOVC40 ST A2,NEWAD2,A13 SAVE NEW ADDRESS TO W.B. CALL MOVDWB MOVC50 CALL CHADR CHANGE ADDRESSES CALL ICBMVD INDICATE CURRENT BLOCK MOVED LDR A11,A8 SAVE T:A-POINTER ST A12,SAVE25,A13 SAVE T:A-ADDRESS LDR A8,A6 REPLACE POINTER TO T:A LD A12,SAVE03,A13 REPLACE T:D-ADDRESS CALL MOVDWB LDR A8,A11 LD A12,SAVE25,A13 RELOAD T:D-ADDRESS RB MOVC10 EJECT ** G E T P R O ** ** ** ** ** ** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF ** ** COPIES. FILL REAL U:BTAB ** ** ** ** INPUT : A11=PROTOTYPE ADDRESS ** ** A2=LAST W.B. - ADDRESS ** ** OUTPUT: A2=NEW ADDRESS ** ** WORK-REGS: A1-A5,A9 ** ************************************************ GETPRO EQU * LD A3,U:BTOD,A13 GET U:BTAB ADDRESS IFT CREDIT-MMUPAG=1 LDR* A4,A3 LENGTH GETP10 EQU * SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH RF(NN) GETP20 LDK A1,LMP6 W.B. NOT FOUND! CALL ERROR GETP20 EQU * CW A11,UPADDR,A3 SAME W.B.? RF(E) GETP30 YES! GET NUMBER OF COPIES ADK A3,UP:REC NEXT RB GETP10 * GET NUMBER OF COPIES * * A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * GETP30 EQU * LD A4,WBLEN,A11 W.B.-LENGTH LC A5,UPNUMB,A3 GET NUMBER OF COPIES ANK A5,/FF SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS LDR A9,A3 ST A4,URLENG,A9 STORE LENGTH ST A5,URNUMB,A9 STORE IN REAL U:BTAB * COPY NUMBER OF WORKBLOCKS TO COMMON AREA * ******************************************** SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') RF(NP) GETP50 GETP40 CALL MOVWB SUK A5,1 RB(NZ) GETP40 * UPDATE POINTER IN REAL U:BTAB * ********************************* GETP50 EQU * ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB XIF IFT CREDIT+MMUPAG=2 ELR A4,A3 LENGTH GETP10 EQU * SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH RF(NN) GETP20 LDK A1,LMP6 W.B. NOT FOUND! CALL ERROR GETP20 EQU * EL A10,UPADDR,A3 CHECK IF SAME W.B. CWR A11,A10 RF(E) GETP30 YES! GET NUMBER OF COPIES ADK A3,UP:REC NEXT RB GETP10 * GET NUMBER OF COPIES * * A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * ******************************************** GETP30 EQU * EL A4,WBLEN,A11 W.B.-LENGTH EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES ANK A5,/FF SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS LDR A9,A3 TL* MMTO,A13 LOAD TO-TABLE ES A5,URNUMB,A9 ESORE IN REAL U:BTAB ES A4,URLENG,A9 STORE LENGTH TL* MMFROM,A13 RELOAD FROM TABLE * COPY NUMBER OF WORKBLOCKS TO COMMON AREA * ******************************************** SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') RF(NP) GETP50 GETP40 CALL MOVWB SUK A5,1 RB(NZ) GETP40 * UPDATE POINTER IN REAL U:BTAB * ********************************* GETP50 EQU * TL* MMTO,A13 ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U:BTAB TL* MMFROM,A13 XIF IFF CREDIT=0 RTN A14 EJECT ** M O V C L A ** ** ** ** ** ** CHECKS IF W.B. ALREADY MOVED TO COMMON ** ** AREA. IF NOT MOVE W.B. & D.T. AND ** ** CHECK IF ANY DWB'S ** ** ** ** A LOT OF WORKREGS. ** ********************************************* MOVCLA EQU * CALL SHIFT RF(Z) MVCL30 MVCL10 CALL GETWB W.B.-ADDRESS TO A11 CALL CHKMVD BLOCK ALREADY MOVED? RF(NN) MVCL40 NO! MVCL20 CALL SKIFTA GET NEXT BIT IN MASK RB(NZ) MVCL10 MVCL30 RTN A14 MVCL40 CALL MOVDT CALL MOVWB LD A4,UWB,A13 UWB-SCANNING RF(Z) MVCL50 NO! CALL GETPRO DUPLICATE WB'S MVCL50 ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS CALL MOVDWB PROCESS DWB'S RB MVCL20 EJECT ** C H A D R ** ** ** ** ** ** CHANGE ADDRESS TO W.B. & D.T. IN T:A, ** ** BLOCKS ALREDY MOVED ** ** ** ** INPUT : A6=POINTER IN T:ATAB TO T:A ** ** NEWADR1=NEW D.T.-ADDRESS ** ** NEWAD2= NEW W.B.-ADDRESS ** ** TADISP=DISPLACEMENT TO WB-ADDR ** ** WORK.REGS: A1,A2 ** ************************************************* CHADR EQU * IFT CREDIT-MMUPAG=1 LDR* A1,A6 T:A-ADDRESS AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS LD A2,NEWAD2,A13 STR A2,A1 SUK A1,2 ADDRESS TO D.T.-ADDRESS LD A2,NEWAD1,A13 STR A2,A1 XIF IFT CREDIT+MMUPAG=2 ELR A1,A6 T:A-ADDRESS AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS LD A2,NEWAD2,A13 ESR A2,A1 SUK A1,2 ADDRESS TO D.T.-ADDRESS LD A2,NEWAD1,A13 ESR A2,A1 XIF IFF CREDIT=0 RTN A14 XIF IFT CREDIT+SWPBLK=2 EJECT ************************************************************** * * * * * B:RSWT - BUILD REAL SWB CONTROL TABLE * * ===================================== * * * * REFERENCED IN: SYSLDA * * * * ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB * * A5 - LENGTH OF REAL S:BTAB * * * * EXIT: * * * * WORK REGISTERS: A1-A7 * * * * SUBROUTINES: * * * ************************************************************** EJECT B:RSWT EQU * LDR A8,A2 SAVE POINTER TO FIRST BLOCK LD A1,SCTSWB POINTER TO SWB BLOCK TABLE RF(Z) RSWBEX NO SWB:S IN APPLICATION LDR* A3,A1 NUMBER OF TYPES RF(Z) RSWBEX NO MOORE LDK A6,0 SUK A5,2 SKIP LENGTH WORD RSWB10 ADK A1,2 NEXT TYPE LDR* A4,A1 POINTER TO BLOCK LCR A6,A4 NUMBER OF COPIES LD A7,SWBLEN,A4 LENGTH IN BYTES XIF IFT CREDIT+MMUSWB=3 ES A6,2,A2 STORE NUMBER OF COPIES ES A7,4,A2 STORE LENGTH OF SWB IN BYTES XIF IFT CREDIT+SWBMMU=2 ST A6,2,A2 STORE NUMBER OF COPIES ST A7,4,A2 STORE LENGTH OF SWB IN BYTES XIF IFT CREDIT+SWPBLK=2 SUK A5,6 DECREMENTS S:BTAB LENGTH ADK A2,6 INCREMENT POINTER IN BLOCK SUK A3,1 DECREMENT NUMBER OF TYPES RB(P) RSWB10 LDR A4,A2 * * INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE * AND RESET ALL WORDS IN TID BLOCKS * RSWB20 EQU * LDR A6,A2 GET ADDRESS TO TID BLOCK SUR A6,A8 COMPUTE DISPLACEMENT IFT CREDIT+SWBMMU=2 LD A1,2,A8 NUMBER OF COPIES RF(Z) RSWB50 NO COPIES! STR A6,A8 STORE POINTER TO TID BLOCK RSWB30 STR A3,A2 RESET TID ADK A2,2 INCREMENT POINTER IN TID BLOCK SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB SUK A1,1 DECR. NUMBER OF COPIES RB(P) RSWB30 NEXT COPY XIF IFT CREDIT+MMUSWB=3 EL A1,2,A8 GET NUMBER OF COPIES RF(Z) RSWB50 NO COPIES! ESR A6,A8 STORE POINTER TO TID BLOCK RSWB40 ESR A3,A2 RESET TID ADK A2,2 INCREMENT POINTER IN TID BLOCK SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB SUK A1,1 DECREMENT NUMBER OF COPIES RB(P) RSWB40 NEXT COPY XIF IFT CREDIT+SWPBLK=2 RSWB50 ADKL A8,6 CWR A8,A4 RB(NE) RSWB20 LDR A5,A5 S:BTAB CONSISTENT? RF(Z) RSWBEX YES LDKL A1,LMP6 SWB ERROR! CALL ERROR RSWBEX RTN A14 XIF IFF CREDIT=0 EJECT * ************************** * START OF PROGRAM PART 2.A * ***************************** * LOAD BASE ADDRESS * ********************* * A5=START-ADDRESS * A9=P:MTAB ADDRESS * SAVE03=DDIV TO-ADDRESS * SAVE04=DDIV FROM ADDRESS * SAVE05=LENGTH OF REAL T:ATAB * SAVE06=LENGTH OF REAL U:BTAB START2 EQU *-REL LDR A8,P LOAD TEMP. STACKBASE ADK A5,2 ADD FOR RELOCATION ROUTINE CFR A8,A5 * MOVE DDIV * LD A1,SAVE04,A13 GET FROM-ADDRESS LD A2,SAVE03,A13 GET TO ADDRESS LDR A3,A9 GET P:MTAB START (=END OF DDIV SUR A3,A1 => LENGTH XIF IFT CREDIT-MMUPAG=1 LD A8,SAVE29,A13 ANY SEGMENTS IN APPLICATION? RF(Z) NOSGMT NO! LDKL A8,0 RESET FSTADR IF SEGMENTS! RF SEGMTS NOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP SEGMTS ST A8,FSTADR,A13 STORE MOVNXT LDR* A4,A1 GET WORD STR A4,A2 STORE ADK A1,2 ADK A2,2 SUK A3,2 DEC LENGTH RB(NN) MOVNXT XIF IFT CREDIT+MMUPAG=2 CALL XMOVE * REMOVE DDIV ENTRIES IN MM-TABLE LDR A1,A9 GET P:MTAB ADDRESS SRL A1,11 ADJUST FOR ADDRESSING ANK A1,/1E LDK A2,MMTAB-2 GET TABLE ADDRESS ADR A2,A13 RELOCATE ADR A1,A2 P:MTAB START ENTRY LDKL A4,/FC00 SYA205 CWR A1,A2 ALL? RF(E) SYA207 YES! STR A4,A1 REPLACE ENTRY WITH PAGE ERROR SUK A1,2 RB SYA205 SYA207 EQU * * CHANGE TABLE-ADDRESSES LD A4,MMFROM,A13 LD A5,MMTO,A13 ST A4,MMTO,A13 ST A5,MMFROM,A13 XIF IFF CREDIT=0 ANKL A9,/FFFE EVEN ADDRESS ST A9,LSTADR,A13 SAVE END OF FREE AREA * RESERVE SPACE FOR REAL T:A- AND U:BTAB * IFT CREDIT+MMUPAG=2 LDKL A3,MMTAB GET CURRENT MM-TABLE ADR A3,A13 * FIND LAST USED ENTRY IN REAL MMUTAB * CALL MMENT ST A9,TTAB,A13 ST A1,FYSPAG,A13 SAVE PHYSICALL PAGE LD A3,SAVE05,A13 GET LENGTH OF T:ATAB LDR A5,A3 SAVE CALL MOVING RESERVE SPACE FOR T:ATAB TL* MMTO,A13 SET CORRECT TABLE ESR A5,A2 STORE T:ATAB LENGTH ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS ADK A2,2 SKIP LENGTH WORD LD A9,SCTLAC GET P:MTAB ADDRESS ES A2,T:ATAB,A9 STORE IN P:MTAB * RESERVE PLACE FOR T:AID TABLE LDR A3,A5 GET LENGTH CALL MOVING TL* MMTO,A13 LDR A3,A9 GET P:MTAB ADK A3,T:AID ADD TO ADDRESS WORD ESR A5,A2 STORE TABLE LENGTH IN T:TID-TABLE ADK A2,2 ADJUST TABLE ADDRESS ESR A2,A3 STORE IN P:MTAB XIF IFF CREDIT=0 LD A3,SAVE06,A13 GET U:BTAB LENGTH LDR A5,A3 SAVE CALL MOVING RESERVE SPACE ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS IFT CREDIT-MMUPAG=1 STR A5,A2 STORE LENGTH ADK A2,2 ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB LD A3,SAVE05,A13 GET LENGTH OF T:ATAB LDR A5,A3 SAVE CALL MOVING RESERVE SPACE FOR T:ATAB STR A5,A2 STORE T:ATAB LENGTH ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS ADK A2,2 ST A2,T:ATAB,A9 SAVE REAL ADDRESS * RESERVE FOR T:AID TABLE LDR A3,A5 LENGTH CALL MOVING STR A5,A2 STORE LENGTH ADK A2,2 ADJUST FOR LENGTH-WORD ST A2,T:AID,A9 STORE ADDRESS IN P:MTAB XIF IFT CREDIT+MMUPAG=2 TL* MMTO,A13 SET CORRECT TABLE ESR A5,A2 STORE LENGTH ADK A2,2 SKIP LENGTH WORD ES A2,U:BTAB,A9 STORE IN P:MTAB XIF IFT SWPBLK+CREDIT=2 * * RESERV SPACE FOR REAL S:BTAB TABLE * LD A3,SAVE25,A13 LENGTH OF REAL S:BTAB LDR A5,A3 SAVE CALL MOVING ST A2,S:BTNW,A13 XIF IFT CREDIT+MMUSWB=3 TL* MMTO,A13 ESR A5,A2 ADK A2,2 ES A2,S:BTAB,A9 CALL B:RSWT XIF IFT CREDIT+SWBMMU=2 STR A5,A2 ADK A2,2 ST A2,S:BTAB,A9 CALL B:RSWT XIF IFT CREDIT+MMUPAG=2 TL* MMFROM,A13 RELOAD TABLE XIF IFF CREDIT=0 EJECT * BUILD COMMON DATA AREA * ************************** * SEARCH CWB'S: LD A8,T:ATOD,A13 GET T:ATAB ADDRESS IFT CREDIT-MMUPAG=1 LDR* A3,A8 GET LENGTH XIF IFT CREDIT+MMUPAG=2 ELR A3,A8 GET LENGTH XIF IFF CREDIT=0 ADR A3,A8 ST A3,ENDADD,A13 SAVE END OF T:ATAB ADDRESS SYA210 EQU * CM UWB,A13 INDICATE CWB-SCANNING ADKL A8,2 CW A8,ENDADD,A13 ALL DONE? RF(E) CLADAT YES! CALL T:DADD T:D-ADDRESS TO A12 IFT CREDIT-MMUPAG=1 LD A7,CWBMSK,A12 GET CWB-MASK XIF IFT CREDIT+MMUPAG=2 EL A7,CWBMSK,A12 XIF IFF CREDIT=0 CALL SHIFT SUPER-LOOPA SYA220 RF(Z) UWBCOM ALL! CALL MOVCOM CALL SKIFTA RB SYA220 EJECT UWBCOM EQU * * SEARCH UWB'S: * IM UWB,A13 INDICATE UWB-SCANNING IFT CREDIT-MMUPAG=1 LD A7,UWBMSK,A12 XIF IFT CREDIT+MMUPAG=2 EL A7,UWBMSK,A12 XIF IFF CREDIT=0 CALL SHIFT SYA230 RB(Z) SYA210 ALL DONE! SYA235 CALL MOVCOM SYA240 CALL SKIFTA RB SYA230 EJECT * TASK CLASS DATA CONFIGURATION PART * ************************************** CLADAT EQU * LD A8,T:ATOD,A13 SET POINTER TO LENGTH INT:ATAB IFT CREDIT-MMUPAG=1 SYA250 CM UWB,A13 INDICATE CWB ADKL A8,2 STEP TO NEXT T:A ADDRESS CW A8,ENDADD,A13 RF(E) SYA270 ALL T:A'S DONE CALL T:DADD GET T:D ADDRESS TO A12 * CALCULATE LENGTH OF T:D LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB ADK A1,2 ANKL A1,/FFFE EVEN ADDRESS ADK A1,DWBFST+4 ADD DISPL. TO FIRST LDR A3,A1 GET NUMBER OF START-POINTS ADR A3,A12 ADD T:D-ADDRESS LDR* A3,A3 . LDK A2,STPREC GET STARTPOINTS RECORD LENGTH CALL MULT AND MULTIPLY ADK A3,2 'NUMBER-WORD' ADR A3,A1 =>LENGTH LDR A1,A12 FROM-ADDRESS CALL MOVING MOVE T:D LDR* A1,A8 GET T:A ADDRESS ST A2,T:DAD,A1 STORE NEW T:D ADDRESS LD A7,CWBMSK,A12 GET CWBMASK XIF IFT CREDIT+MMUPAG=2 * INITIATE MM-ADDRESS TABLE POINTER LD A1,SCTSFA SHADOW TABLE START AD* A1,SCTSFA ADDRESS TABLE START ST A1,SAVE06,A13 SAVE SYA250 CM UWB,A13 INDICATE CWB ADKL A8,2 STEP TO NEXT T:A ADDRESS CW A8,ENDADD,A13 RF(E) SYA270 ALL T:A'S DONE! CALL GETTAB GET TTAB-ADDRESS CALL MOVMMT MOVE MM-TABLE * FILL MM-TABLE ADDRESS TABLE LD A1,SAVE06,A13 ADK A1,2 INCREMENT TABLE POINTER ST A1,SAVE06,A13 RESTORE STR A2,A1 FILL TABLE CALL T:DADD GET T:D ADDRESS TO A12 ST A12,T:DSAV,A9 SAVE 'OLD' T:D-ADDRESS IN TTAB * CALCULATE LENGTH OF T:D EL A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB ADK A1,2 ANKL A1,/FFFE EVEN ADDRESS ADK A1,DWBFST+4 ADD DISPL. TO FIRST LDR A3,A1 GET NUMB. OF START-POINTS... ADR A3,A12 . ELR A3,A3 . LDK A2,STPREC GET STARTPOINTS RECORD LENGTH CALL MULT AND MULTIPLY ADK A3,2 'NUMBER-WORD' ADR A3,A1 =>LENGTH LDR A1,A12 FROM-ADDRESS CALL MOVING MOVE T:D ELR A1,A8 GET T:A ADDRESS ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS EL A7,CWBMSK,A12 GET CWBMASK XIF IFF CREDIT=0 CALL MOVCLA EJECT * TASK CLASS DATA UWB'S * ************************* IM UWB,A13 INDICATE UWB SCANNING IFT CREDIT-MMUPAG=1 LD A7,UWBMSK,A12 GET UWBMASK XIF IFT CREDIT+MMUPAG=2 EL A7,UWBMSK,A12 XIF IFF CREDIT=0 CALL MOVCLA EJECT * MOVE DT:S OF SWB'S & TWB'S * ****************************** SYA260 EQU * IFT CREDIT-MMUPAG=1 LD A7,SWBMSK,A12 RF(Z) SYA265 NONE CALL SKRITT SYA265 LD A7,TWBMSK,A12 XIF IFT CREDIT+MMUPAG=2 EL A7,SWBMSK,A12 RF(Z) SYA265 NONE CALL SKRITT SYA265 EL A7,TWBMSK,A12 XIF IFF CREDIT=0 RB(Z) SYA250 CALL SKRITT RB SYA250 SYA270 RF PRODAT EJECT ** S K R I T T ** ** ** ** MOVE D.T ** ** ** *********************************************** SKRITT EQU * CALL SHIFT NO RF(NZ) NES RTN A14 NES CALL GETWB CALL MOVDT CM NEWAD2,A13 NO NEW W.B.-ADDRESS (YET!) CALL MOVDWB CALL SKIFTA RB NO EJECT * BUILD TASKDATA PROTOTYPE AREA * ********************************* PRODAT EQU * =00001 LD A1,SAVE02,A13 BUGGER TASK INCLUDED? RF(Z) SYA275 NO! CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 CM TTB:PP,A2 CLEAR TCL SAVE AREA LDR A8,A2 SAVE TTAB-ADDRESS XIF IFT CREDIT+MMUPAG=2 CALL MOVMMT MOVE MMU TABLE XIF IFF CREDIT=0 LDK A3,2 RESERV ONE WORD FOR TRABUG-T:A CALL MOVING GET P:BAS IFT CREDIT-MMUPAG=1 LD A1,SCTLAC GET START OF P:MTAB LD A1,P:BAS,A1 GET P:BAS STR A1,A2 SAVE IN TRABUG'S T:A LD A1,SCTOPT GET OPTION WORD ANK A1,2 DISC PAGING? RF(Z) SYA272 NO XIF IFF CREDIT=0 ST A2,TTB:CB,A8 SAVE ADDRESS TO CSB-POINTER SYA272 EQU * SUKL A2,CSB ADD DISPL. TO CURRENT SEGMENT BAE ST A2,TTB:SA+26,A8 SAVE A13 IFT CREDIT+MMUPAG=2 LD A1,SCTLAC GET START OF P:MTAB TL* MMTO,A13 LOAD CORRECT TABLE EL A1,P:BAS,A1 GET P:BAS TL MMBEG,A8 LOAD TRABUG'S MMU-TABLE ES A1,CSB,A2 STORE CURRENT SEGMENT BASE TL* MMFROM,A13 RELOAD DDIV TABLE XIF =00001 IFF CREDIT=0 =00001 SYA275 EQU * =00001 =00001 IM SWITCH,A13 INDICATE: -NO MORE D.T. MOVE! LD A8,T:ATOD,A13 T:ATAB ADDRESS SYA280 ADKL A8,2 CW A8,ENDADD,A13 RF(E) SYA290 ALL DONE IFT CREDIT-MMUPAG=1 LDR* A12,A8 GET T:D ADDRESS.. LD A12,T:DAD,A12 . CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S * CALCULATE LENGTH OF DSCB'S * *** *** LDR* A1,A8 GET T:A-ADDRESS LD A3,DATLEN,A12 A12=T:D-ADDRESS LDK A2,DSCBL DSCB-LENGTH CALL MULT A3() X (A2) RESULT IN A3 ST A3,CSN,A1 SAVE LENG OF DSCB'S LD A2,FCD,A12 GET FCB-DISPLACEMENT RF(NZ) SYA285 FCB PRESENT SUR A2,A3 MOVD30E A3(DSCB-LENGTH) ADKL A2,T:ASTA INCREMENT TO FIRST WORD SYA285 ST A2,CIA,A1 SAVE DISPLACEMENT TO T:A-START LD A2,STKB,A1 GET STACK SIZE ST A2,CSE,A1 AND SAVE TEMPORARY LD A2,SCTLAC GET START OF COMMON PART LD A2,P:BAS,A2 GET P:BAS ST A2,CSB,A1 AND SAVE CALL ALLBUF ALLOCATE BUFFERS CALL MOVT:A MOVE T:A STR A2,A8 STORE NEW ADDRESS IN T:ATAB XIF IFT CREDIT+MMUPAG=2 CALL GETTAB SET CORRECT TTAB-ADDRESS LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS * GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE TL MMBEG,A2 LOAD CLASS LOCAL TABLE LDKL A3,MMTAB GET WORK TABLE ADDRESS ADR A3,A13 TSR A3 STORE TABLE IN WORK-AREA TL MMDDIV,A13 RELOAD DDIV TABLE CALL MMENT GET ENTRY ST A3,T:DSAV,A2 SAVE IN TTAB CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S * CALCULATE LENGTH OF DSCB'S * *** *** ELR A1,A8 GET T:A-ADDRESS EL A3,DATLEN,A12 A12=T:D-ADDRESS LDK A2,DSCBL DSCB-LENGTH CALL MULT A3() X (A2) RESULT IN A3 ES A3,CSN,A1 SAVE LENG OF DSCB'S EL A2,FCD,A12 GET FCB-DISPLACEMENT RF(NZ) SYA285 FCB PRESENT SUR A2,A3 MOVD30E A3(DSCB-LENGTH) ADKL A2,T:ASTA INCREMENT TO FIRST WORD SYA285 ES A2,CIA,A1 SAVE DISPLACEMENT TO T:A-ESART EL A2,STKB,A1 GET STACK SIZE ES A2,CSE,A1 AND SAVE (TEMPORARY) LD A2,SCTLAC GET START OF P:MTAB TL* MMTO,A13 LOAD CORRECT TABLE EL A2,P:BAS,A2 GET P:BAS TL* MMFROM,A13 RELOAD DDIV TABLE ES A2,CSB,A1 AND SAVE CALL ALLBUF ALLOCATE BUFFERS CALL MOVT:A MOVE T:A ESR A2,A8 STORE NEW ADDRESS IN T:ATAB XIF IFF CREDIT=0 RB SYA280 NEXT EJECT SYA290 EQU * IM FLAG,A13 INDICATE REAL DATA-PART PROCESSING * INCLUDE DDIV AND PART 2.A IN FREE AREA LDKL A2,PART2A NEW (RELATIVE) END ADDRESS ADR A2,A13 ABSOLUT DITO IFT CREDIT+MMUPAG=2 LDR A3,A2 ANKL A3,/F000 SRL A3,2 GET NEW PHYSICALL PAGE ST A3,FSTPAG,A13 SAVE ANKL A2,/FFF GET NEW PAGE INCREMENT ST A2,FSTADR,A13 SAVE * MOVE T:ATAB LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS XIF IFT CREDIT-MMUPAG=1 ST A2,DATEND,A13 SAVE NEW END ADDRESS * MOVE T:ATAB LD A2,T:ATNW,A13 GET REAL T:A-TAB ADDRESS LDR* A1,A2 REAL LENGTH ADR A2,A1 END OF TABLE ADDRESS ST A2,ENDADD,A13 SAVE LD A1,T:ATOD,A13 GET FROM-ADDRESS LDR* A3,A1 MOVE-LENGTH SUR A2,A3 TO-ADDRESS ST A2,T:ATOD,A13 SAVE CALL MOVE XIF IFT CREDIT+MMUPAG=2 TL* MMTO,A13 LOAD CORRECT TABLE ELR A1,A2 GET REAL T:ATAB LENGTH TL* MMFROM,A13 RELOAD TABLE ADR A2,A1 END ADDRESS ST A2,ENDADD,A13 SAVE 'END-OF-T:ATAB-CONDITION' LD A1,T:ATOD,A13 GET PROTOTYP T:ATAB ELR A3,A1 GET LENGTH SUR A2,A3 TO-ADDRESS ST A2,T:ATOD,A13 SAVE CALL XMOVE XIF IFF CREDIT=0 * CONTINUE IN PART 2.B * LDKL A5,PART2B RELATIVE START ADDRESS ADR A5,A13 ADD BASE ADDRESS ABR A5 LENGT2 EQU *-REL LENGTH OF PART 2 EJECT ********************************************* ******* ******* ** ** * SYSLOAD PART 1 * ** ** ***** ***** ********************************************* * READ CONFIGURATION FILE & BUILD * * SHADOW-TABLES * * * ********************************************* XIF ************************************* *** *** ** S U B R O U T I N E S ** ** -USED IN THIS PART ONLY * ************************************* 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 ** 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 * START OF PROGRAM PART 1 * * SAVE02=POINTER TO 1:ST USER TASK TTAB-ADDRESS * SAVE09=EXECUTION START ADDRESS SYSLDX EQU *-REL PROGRAM START * * INIT A15 STACK * LD A15,SCTSTB SUKL A15,4 LD A2,SCTLAC GET S:GTAB (IF ANY) IFT MMUPAG=0 LD A2,CREID,A2 GET CREDIT IDENTIFICATION XIF IFT MMUPAG=1 TL MMTAB,A13 %%## EL A2,CREID,A2 XIF CM SWITCH,A13 RESET SAVE-AREAS USED IN SYSLDM CM FLAG,A13 CWK A2,'CR' CREDIT APPLICATION? RF(E) SYA100 YES! START CONFIGURATE IFF CREDIT=1 * ASSEMBLER APPLICATION * SWITCH TO LEVEL 0 ENB LDKL A4,SYA103 CONTINUATION ADDRESS ADR A4,A13 RELOCATE STR A4,A15 PUT ON STACK LDKL A4,/00C0 STR A4,A15 PUT PSW ON STACK RTN A15 SYA103 EQU *-REL XIF IFT MMUPAG-CREDIT=1 LDKL A4,MMTAB GET MM-TABLE ADDRESS ADR A4,A13 RELOCATE ST A4,MMFROM,A13 SAVE * FILL MM-TABLES IN USER TASK TTAB'S LD* A5,SCTTCT GET LENGTH OF TC:TAB LD A6,SAVE02,A13 1:ST USER TASK LDR A3,A6 SAVE SU A3,SCTTCT GET DISPLACEMENT TO 1:ST USER SUR A5,A3 => LENGTH OF TC:TAB TO SCAN * * INIT UNUSED MMU ENTRIES * LDKL A1,/FC00 LDKL A2,MMTAB ADR A2,A13 LDR A4,A2 =00002 SUKL A4,MMBEG AD A4,SCTMMC SYA:10 CWR A4,A2 RF(E) SYA105 SUK A4,2 STR A1,A4 RB SYA:10 SYA105 SUK A5,2 ALL? RF(N) SYA107 YES! LDR* A2,A6 TTAB-ADDRESS CALL MOVMMT MOVE MM-TABLE ADK A6,2 NEXT TTAB RB SYA105 SYA107 EQU * XIF IFF CREDIT=1 LD* A5,SAVE02,A13 1:ST USER TASK TTAB ADDRESS LD A2,SAVE09,A13 EXECUTION START ADDRESS AD A2,SCTLAC ADD RELOCATION ADDRESS LDK A3,0 SEGMENT NUMBER CF A15,ACTOT QUEUE TASK LDKL A1,FINISH END OF SYSLDA ADR A1,A13 ABR A1 XIF SYA100 EQU * IFF CREDIT=0 EJECT * READ CONFIG FILE AND BUILD SHADOWTABLE CM SAVE02,A13 CLEAR 'BUGGER TASK INDICATOR' IFT CREDIT-MMUPAG=1 LD* A2,SCTLAC GET START OF P:MTAB LD A12,T:ATAB,A2 T:ATAB ADDRESS SUKL A12,2 ADJUST FOR LENGTH-WORD ST A12,T:ATOD,A13 SAVE LD A4,U:BTAB,A2 GET U:BTAB FROM P:MTAB SUK A4,2 INCLUDE LENGTH-WORD ST A4,U:BTOD,A13 SAVE IN SYSLDA XIF IFT CREDIT+SWBMMU=2 LD A4,S:BTAB,A2 GET S:BTAB ADDRESS SUK A4,2 ADJUST FOR LENGTH WORD ST A4,S:BTOD,A13 SAVE XIF IFT CREDIT-MMUPAG=1 * T:ATAB PROCESSING: LDR* A4,A12 T:ATAB-LENGTH LDR A3,A4 SAVE AD A3,SCTSFA ADD MONITOR END ADDRESS * CHECK ADDRESSES LDR A11,A3 END OF SHADOW-TAB LDR A9,A13 START OF SYSLDA CALL CMPADR RF(L) SYA110 OK! LDKL A1,LMP3 MEMORY OVERFLOW CALL ERROR SYA110 LDR A9,A2 GET P:MTAB ADDRESS LDK A2,0 * CLEAR T:ATAB SHADOW-TABLE: ZERO SUK A3,2 NEXT STR A2,A3 CLEAR CW A3,SCTSFA ALL? RB(NE) ZERO NO! STR A4,A3 STORE TABLE LENGTH LD A11,SAVE01,A13 GET CONFIG START LC A2,TDBBT,A11 GET BLOCKTYPE CCK A2,'TT' TASK DEF? RF(E) SYA120 OK! LDK A1,LMP4 NO TASK PRESENT CALL ERROR SYA120 LC A2,TDBMC+4,A11 GET TASK ID SLL A2,8 . LC A2,TDBMC+5,A11 ... CWK A2,'TB' BUGGER TASK? RF(NE) SYA125 NO! ST A2,SAVE02,A13 INDICATE BUGGER TASK PRESENT =00001 RF SYA136 SKIP TO NEXT BLOCK SYA125 LDR A8,A12 SAVE LDR* A4,A12 T:ATAB LENGTH SYA130 ADKL A8,2 NEXT T:A LDR* A6,A8 GET T:A ADDRESS SUK A4,2 RF(NZ) SYA135 LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) CALL ERROR SYA135 EQU * CW A2,T:ATID,A6 TID EQUAL? RB(NE) SYA130 NO! SUR* A4,A12 T:ATAB LENGTH XIF IFT CREDIT+MMUPAG=2 EL* A2,SCTLAC GET START OF P:MTAB EL A12,T:ATAB,A2 T:ATAB ADDRESS SUKL A12,2 INCLUDE LENGTH WORD ST A12,T:ATOD,A13 SAVE IN SYSLDA EL A4,U:BTAB,A2 U:BTAB ADDRESS SUK A4,2 ADJUST FOR LENGTH WORD ST A4,U:BTOD,A13 SAVE IN SYSLDA XIF IFT CREDIT+MMUSWB=3 EL A4,S:BTAB,A2 GET S:BTAB ADDRESS SUK A4,2 ADJUST FOR LENGTH WORD ST A4,S:BTOD,A13 SAVE XIF IFT CREDIT+MMUPAG=2 * T:ATAB PROCESSING: ELR A4,A12 T:ATAB-LENGTH LDR A3,A4 SAVE SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE AD A3,SCTSFA ADD MONITOR END ADDRESS * CHECK ADDRESSES LDR A11,A3 END OF SHADOW-TABLE LDR A9,A13 START OF SYSLDA CALL CMPADR RF(L) SYA110 OK! LDKL A1,LMP3 MEMORY OVERFLOW CALL ERROR SYA110 LDR A9,A2 GET P:MTAB ADDRESS * CLEAR T:ATAB SHADOW-TABLE: SYA115 SUK A3,2 NEXT CMR A3 CLEAR CW A3,SCTSFA ALL? RB(NE) SYA115 NO! STR A4,A3 STORE TABLE LENGTH LD A11,SAVE01,A13 GET CONFIG START LC A2,TDBBT,A11 GET BLOCKTYPE CCK A2,'TT' TASK DEF? RF(E) SYA120 OK! LDK A1,LMP4 NO TASK PRESENT CALL ERROR SYA120 LC A2,TDBMC+4,A11 GET TASK ID SLL A2,8 . LC A2,TDBMC+5,A11 ... CWK A2,'TB' BUGGER TASK? RF(NE) SYA125 NO! ST A2,SAVE02,A13 INDICATE 'BUGGER TASK PRESENT' RF SYA136 SKIP THIS BLOCK SYA125 LDR A8,A12 SAVE ELR A4,A12 T:ATAB LENGTH SYA130 ADKL A8,2 NEXT T:A ELR A6,A8 GET T:A ADDRESS SUK A4,2 RF(NZ) SYA135 LDK A1,LMP5 NO PROT. FOUND (TID ERROR) CALL ERROR SYA135 EQU * EL A10,T:ATID,A6 GET TID CWR A2,A10 TID EQUAL? RB(NE) SYA130 NO! ELR A10,A12 SUR A4,A10 T:ATAB LENGTH XIF IFF CREDIT=0 NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB LC A5,TDBNT,A11 GET NUMBER OF TASKS SLL A5,8 LC A5,TDBNT+1,A11 CALL CONVRT LD A2,SCTSFA START OF SHADOW TABLE ADR A2,A4 ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE * SKIP TO NEXT BLOCK SYA136 CALL NXTBLK SYA137 EQU * CCK A2,'TT' RB(E) SYA120 NEXT TASK DEF BLOCK CCK A2,'CC' RF(NE) SYA140 ADKL A11,1 STEP TO NUMBER OF COM.DEV. CALL NXTCOM SKIP COMMON DEF SYA140 CCK A2,'UU' RF(NE) SYA141 NO UWB'S LD A8,U:BTOD,A13 GET MODIFIED U:BTAB ADDRESS CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE SYA141 EQU * XIF IFT CREDIT+SWPBLK=2 LCR A2,A11 CCK A2,'SS' RF(NE) SYA152 LD A8,S:BTOD,A13 CALL USWBTP XIF IFT CREDIT=1 RF SYA152 EJECT *********************************************************************** * * * USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE * * ================================================================= * * * * REFERENCED IN: SYSLDA * * * * ENTRY: A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE * * A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK * * * * EXIT: * * * * WORK REGISTERS: * * * * SUBROUTINES: GETNUM,ERROR * * * *********************************************************************** USWBTP EQU * XIF IFT CREDIT-MMUPAG=1 ADKL A11,1 LDR A6,A11 CALL GETNUM PACK 3 DIG. RESULT IN A5 LDR A1,A5 SAVE NUMBER OF UWB'S SYA142 EQU * LDR A12,A8 LDR* A3,A12 LENGTH OF U:BTAB ADKL A11,UDBFST-1 FIRST UDB RECORD SYA145 EQU * LCR A2,A11 GET FIRST CHARACTER FROM CONFIG SLL A2,8 LC A2,1,A11 GET 2:ND CHAR CW A2,UPNAME,A12 COMPARE W. 1:ST WORD IN PROTOTYP RF(E) FRSTOK FIRST TWO CHARACTERS OK! SYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S RF(NN) SYA150 LDK A1,LMP6 UWB NOT FOUND CALL ERROR SYA150 EQU * ADKL A12,UP:REC ADD TO NEXT RECORD RB SYA145 FRSTOK LC A2,2,A11 GET 3:RD CHAR CC A2,UPNAME+2,A12 RB(NE) SYA147 .NEQ. EJECT * PROTOTYPE FOUND * ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG LDR A6,A11 CALL GETNUM CONVERT SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE) SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE RB(P) SYA142 ADKL A11,UDBFST-1 RTN A14 XIF IFT CREDIT+MMUPAG=2 ADKL A11,1 LDR A6,A11 CALL GETNUM PACK 3 DIG. RESULT IN A5 LDR A1,A5 SAVE NUMBER OF UWB'S SYA142 EQU * LDR A12,A8 START OF TABLE ELR A3,A12 LENGTH OF U:BTAB ADKL A11,UDBFST-1 FIRST UDB RECORD SYA145 EQU * LCR A2,A11 GET FIRST CHARACTER FROM CONFIG SLL A2,8 LC A2,1,A11 GET 2:ND CHAR EL A10,UPNAME,A12 GET FIRST WORD IN PROTOTYPE CWR A2,A10 RF(E) FRSTOK FIRST WORD OK! SYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S RF(NN) SYA150 LDK A1,LMP6 UWB NOT FOUND CALL ERROR SYA150 EQU * ADKL A12,UP:REC ADD TO NEXT RECORD RB SYA145 FRSTOK LC A10,2,A11 GET 3:RD CHAR FROM CONFIG EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY SRL A2,8 ANKL A10,/FF CWR A10,A2 RB(NE) SYA147 .NEQ. EJECT * PROTOTYPE FOUND * ******************* ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG LDR A6,A11 CALL GETNUM CONVERT EL A10,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE ANKL A10,/FF00 ORR A10,A5 ES A10,UPNUMB-1,A12 SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE RB(P) SYA142 ADKL A11,UDBFST-1 RTN A14 XIF IFT CREDIT=1 EJECT SYA152 EQU * * GET START OF SYSLOAD AFTER MOVE XIF IFT CREDIT-MMUPAG=1 LD* A7,T:ATOD,A13 GET LENGTH OF T:ATAB XIF IFT CREDIT+MMUPAG=2 EL* A7,T:ATOD,A13 GET T:ATAB LENGTH SLL A7,1 RESERVE FOR MM-ADDRESS-TABLE XIF IFF CREDIT=0 AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE ADK A7,1 ANKL A7,/FFFE EVEN ADDRESS * CALCULATE RELOCATION LDR A2,A13 SUR A2,A7 MOVE-LENGTH (SYSLDA) NGR A2,A2 ST A2,SAVE04,A13 SAVE NEW RELOCATION TEMPORARY IFT CREDIT+MMUPAG=2 * CREATE SYSLDA & DDIV MM-TABLE * LDR A2,A7 TO-ADDRESS (SYSLDA) ANKL A2,/F000 FIRST PAGE ST A2,MMREL1,A13 SAVE PHYSICAL PAGE SRL A2,2 SHIFT FOR MM-PAGING LDKL A11,MMDDIV ADR A11,A13 GET MM-TABLE START ADDRESSS= LDK A3,16 SET COUNTER SYA157 STR A2,A11 STORE PAGE-POINTER ADKL A11,2 NEXT ENTRY ADKL A2,/400 PAGE INCREMENT SUK A3,1 ALL? RB(NZ) SYA157 NO! ANKL A7,/FFF GET DISPLACEM. IN PAGE XIF IFF CREDIT=0 ST A7,SAVE12,A13 SAVE (LOGICAL) TO-ADDRESS ADKL A7,LENGT2 ADD LEN. OF SYSLDA TO MOVE ST A7,SAVE03,A13 SAVE NEW DDIV ADDRESS LDR A6,A7 * CALCULATE DDIV FROM-ADDRESS * LD A1,SCTLAC GET S:GTAB ST A1,SAVE13,A13 SAVE S:GTAB ADDRESS ST A9,SCTLAC SAVE START OF P:MTAB IFT CREDIT-MMUPAG=1 LD A3,NUMSEG,A1 NUMBER OF SEGMENTS XIF IFT CREDIT+MMUPAG=2 EL A3,NUMSEG,A1 NUMBER OF SEGMENTS XIF IFF CREDIT=0 LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH CALL MULT ADR A1,A3 ADK A1,NUMSEG+2 => START OF DDIV LD A2,SAVE04,A13 GET NEW RELOCATION INCREMENT ADS A2,M:REL,A13 AND ADJUST RELOCATION BASE IFT CREDIT+MMUPAG=2 ST A1,SAVE04,A13 SAVE DDIV 'FROM'-ADDRESS XIF IFT CREDIT-MMUPAG=1 ST A1,SAVE04,A13 SAVE DDIV FROM-ADDRESS XIF IFF CREDIT=0 SUR A6,A1 RELOCATION FOR DDIV EJECT * RELOCATE ADDRESSES IN T:ATAB AFTER MOVE * * CALCULATE TOTAL (=REAL) LENGTH * * REMOVE NOT USED ENTRIES IN T:ATAB * * A9=P:MTAB A6=MOVE-RELOC * ***************************************** IFT CREDIT-MMUPAG=1 * INITIATE POINTERS LD A8,T:ATOD,A13 GET T:ATAB ADDRESS LDR* A3,A8 GET LENGTH ADR A3,A8 END OF T:ATAB ST A3,ENDADD,A13 SAVE LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB LDR A4,A5 2:ND POINTER LDR A2,A8 2:ND POINTER IN T:ATAB LDK A3,2 SET 'NEW' T:ATAB COUNTER SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR * SCAN T:ATAB: SYA160 ADKL A8,2 TAKE NEXT T:A ADK A5,2 NEXT T:A IN SHADOW-TAB CW A8,ENDADD,A13 RF(E) SYA170 ALL DONE LDR* A1,A8 GET T:A LDR* A7,A5 GET CONTENTS OF SHADOW-TAB RB(Z) SYA160 THIS T:A IS NOT USED!!!!! ADR A11,A7 ACCUMULATE LENGTH ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) LDR* A10,A8 GET T:A-ADDRESS ADR A10,A6 RELOCATE STR A10,A2 STORE ADDR. (EV. ON NEW PLACE) * RELOCATE W.B.-ADDRESSES LD A12,T:DAD,A1 GET T:D-ADDRESS LD A7,WATLEN,A12 LENGTH OF WAT ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS SYA165 SUK A7,1 DEC. COUNTER RB(N) SYA160 TAKE NEXT T:A ADRS A6,A1 RELOCATE XIF IFT CREDIT+MMUPAG=2 * INITIATE POINTERS LD A8,T:ATOD,A13 T:ATAB ELR A3,A8 GET LENGTH ADR A3,A8 END OF T:ATAB ST A3,ENDADD,A13 SAVE LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB LDR A4,A5 2:ND POINTER LDR A2,A8 2:ND POINTER IN T:ATAB LDK A3,2 SET 'NEW' T:ATAB COUNTER SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR * SCAN T:ATAB: SYA160 ADKL A8,2 TAKE NEXT T:A ADK A5,2 NEXT T:A IN SHADOW-TAB CW A8,ENDADD,A13 RF(E) SYA170 ALL DONE ELR A1,A8 GET T:A LDR* A7,A5 GET CONTENTS OF SHADOW-TAB RB(Z) SYA160 THIS T:A IS NOT USED!!!!! ADR A11,A7 ACCUMULATE LENGTH ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) ELR A10,A8 GET T:A-ADDRESS ADR A10,A6 RELOCATE ESR A10,A2 STORE ADDR. (EV. ON NEW PLACE) * RELOCATE W.B.-ADDRESSES EL A12,T:DAD,A1 GET T:D-ADDRESS EL A7,WATLEN,A12 LENGTH OF WAT ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS SYA165 SUK A7,1 DEC. COUNTER RB(N) SYA160 TAKE NEXT T:A ELR A10,A1 GET ADDRESS ADR A10,A6 RELOCATE ESR A10,A1 XIF IFF CREDIT=0 ADK A1,4 NEXT W.B. RB SYA165 SYA170 EQU * ST A6,MOVADD,A13 SAVE ST* A3,SCTSFA STORE NEW TABLE LENGTH IN SHADOW-TAB IFT CREDIT+MMUPAG=2 ES* A3,T:ATOD,A13 AND IN T:ATAB XIF IFT CREDIT-MMUPAG=1 ST* A3,T:ATOD,A13 AND IN T:ATAB XIF IFF CREDIT=0 LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR SLL A2,1 CALC. REAL LENGTH (BYTES) ADK A2,2 ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'S EJECT ****************************** * RELOCATE ADDRESSES IN U:BTAB * * (REAL LENGTH=PROTOTYPE LEN.) * ******************************** IFT CREDIT-MMUPAG=1 LD A5,U:BTOD,A13 U:BTAB ADDRESS LDR* A3,A5 LENGTH ST A3,SAVE06,A13 ADK A5,2 SKIP LENGTH WORD SUK A3,2 -"- SYA180 RF(Z) SYA185 ALL DONE! ADRS A6,A5 RELOCATE XIF IFT CREDIT+MMUPAG=2 LD A5,U:BTOD,A13 U:BTAB ADDRESS ELR A3,A5 TABLE LENGTH ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB ADK A5,2 SUK A3,2 SUB LENGTH-WORD SYA180 RF(Z) SYA185 ELR A10,A5 GET ADDRESS ADR A10,A6 RELOCATE ESR A10,A5 XIF IFF CREDIT=0 ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP SUK A3,UP:REC RB SYA180 EJECT SYA185 EQU * IFT CREDIT+MMUSWB=3 * * COMPUTE REAL LENGTH OF S:BTAB * LD A5,S:BTOD,A13 S:BTAB ADDRESS ELR A3,A5 LENGTH OF PROTOTYPE LDR A2,A3 SAVE SUK A3,2 EXCLUDE LENGTH WORD SYA190 RF(Z) SYA199 ALL RECORDS SCANNED! EL A4,2,A5 GET PROT. W.B.-ADDR. ADR A4,A6 RELOCATE ES A4,2,A5 STORE IT BACK EL A4,UPNUMB-1,A5 GET NUMBER OF COPIES ANK A4,/FF GET RIGHT BYTE SYA192 RF(Z) SYA194 NO MOORE OF THIS TYPE! ADK A2,2 INCREMENT LENGTH SUK A4,1 DECREMENT NUMBER OF COPIES RB SYA192 SYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE SUK A3,UP:REC DECREMENT LENGTH RB SYA190 XIF IFT CREDIT+SWBMMU=2 LD A5,S:BTOD,A13 S:BTAB ADDRESS LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE LDR A2,A3 SAVE SUK A3,2 EXCLUDE LENGTH WORD SYA195 RF(Z) SYA199 ALL RECORDS SCANNED! LD A4,2,A5 GET PROT. W.B.-ADDR. ADR A4,A6 RELOCATE ST A4,2,A5 STORE IT BACK LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES ANK A4,/FF SYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE! ADK A2,2 INCREMENT LENGTH SUK A4,1 DECREMENT NUMBER OF COPIES RB SYA196 SYA198 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE SUK A3,UP:REC DECREMENT LENGTH RB SYA195 XIF IFT CREDIT+SWPBLK=2 SYA199 ST A2,SAVE25,A13 SAVE COMPUTED LENGTH XIF IFT CREDIT=1 EJECT * RELOCATE T:ATAB- AND U:BTAB-ADDRESSES IN P:MTAB ADS A6,T:ATOD,A13 ADS A6,U:BTOD,A13 IFT CREDIT+SWPBLK=2 ADS A6,S:BTOD,A13 XIF IFT CREDIT-MMUPAG=1 * CALCULATE NEW DDIV END LDR A5,A9 SU A5,SAVE04,A13 END-START AD A5,SAVE12,A13 ADD NEW START ST A5,DATEND,A13 SAVE XIF IFT CREDIT+MMUPAG=2 * STORE MMTABLE ADDRESSES LDK A4,MMDDIV ADR A4,A13 GET TABLE ADDRESS LDR A5,A13 CALC. REAL RELOCATION SU A5,SAVE12,A13 SU A5,MMREL1,A13 SUR A4,A5 RELOCATE ST A4,MMTO,A13 AND SAVE LDK A4,MMTAB ADR A4,A13 'WORK-TABLE' ADDRESS SUR A4,A5 RELOCATE ST A4,MMFROM,A13 * CALCULATE DDIV END LDR A5,A9 DDIV END SU A5,SAVE04,A13 ENT-START AD A5,SAVE12,A13 ADD NEW START LDR A6,A5 ANKL A6,/F000 GET LOGICALL PAGE (MM-ENTRY) SRL A6,11 ADJUST FOR ADDRESSING ADK A6,MMDDIV ADD RELATIVE START ADDRESS ADR A6,A13 RELOCATE LDR* A6,A6 GET MM-TABLE CONTENTS ST A6,FSTPAG,A13 SAVE ANKL A5,/FFF GET DISPLACEMENT ST A5,FSTADR,A13 AND SAVE XIF IFF CREDIT=0 * CONTINUE IN PART 2 * LD A2,SAVE12,A13 GET TO-ADDRESS (SYSLDA) OR A2,MMREL1,A13 PHYSICALL ADDRESS LDR A5,A2 SAVE LDKL A7,START2 GET EXECUTION START ADDRESS ADR A7,A2 LDKL A3,LENGT2 SYSLDA LENGTH LDR A1,A13 FROM-ADDRESS * MOVE SYSLDA * IFT CREDIT-MMUPAG=1 NXTMOV LDR* A4,A1 GET WORD STR A4,A2 STORE WORD ADK A1,2 ADK A2,2 SUK A3,2 DEC. LENGTH RB(NN) NXTMOV XIF IFT CREDIT+MMUPAG=2 MVB A3 XIF IFF CREDIT=0 ABR A7 HEJ SVEJS! VI SES I PART 2... XIF IFT CREDIT=0 LDKL A1,LMP9 CALL ERROR INCONSISTENT MONITOR XIF LDAEND EQU * END
0x00000…00036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT SYSLDA REL 10.0 80-05-29 870105041000 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…0005a Head {h00=0x0018, h01=0x0050, text=» REL 10.0 80-03-14«, t00=0x0000, t01=0x0042}
0x0005a…00088 Head {h00=0x002a, h01=0x0050, text=» =1,FAULTY STACK BASE WHEN USING MMU«, t00=0x0000, t01=0x005e}
0x00088…00094 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0000, t01=0x008c}
0x00094…000a0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0000, t01=0x0098}
0x000a0…000e2 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0000, t01=0x00a4}
0x000e2…000ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e6}
0x000ec…00114 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00f0}
0x00114…0011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x0011e…00160 Head {h00=0x003e, h01=0x0050, text=»* SYSLDA = SYSTEM LOAD - APPLICATION CONFIGURATION PART «, t00=0x0000, t01=0x0122}
0x00160…0016a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0164}
0x0016a…00174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016e}
0x00174…0017e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0178}
0x0017e…00188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0182}
0x00188…00192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018c}
0x00192…0019c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x0019c…001de Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0001, t01=0x0012}
0x001de…001e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0054}
0x001e8…001f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x005e}
0x001f2…0023c Head {h00=0x0046, h01=0x0050, text=»* THIS PART OF THE SYSTEM START-UP WILL TAKE CARE OF APPLICATION«, t00=0x0001, t01=0x0068}
0x0023c…00282 Head {h00=0x0042, h01=0x0050, text=»* (CREDIT) CONFIGURATION AND START OF APPLICATION. SYSLDA IS«, t00=0x0001, t01=0x00b2}
0x00282…002cc Head {h00=0x0046, h01=0x0050, text=»* ENTERED AFTER MONITOR CONFIGURATION (PERFORMED BY SYSLDM), AND«, t00=0x0001, t01=0x00f8}
0x002cc…00318 Head {h00=0x0048, h01=0x0050, text=»* IS AT THAT TIME LOCATED AT HIGHEST FREE ADDRESS OF SYSTEM AREA. «, t00=0x0001, t01=0x0142}
0x00318…00322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018e}
0x00322…00344 Head {h00=0x001e, h01=0x0050, text=»* ASSEMBLER APPLICATION:«, t00=0x0002, t01=0x0008}
0x00344…00392 Head {h00=0x004a, h01=0x0050, text=»* NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED «, t00=0x0002, t01=0x002a}
0x00392…003dc Head {h00=0x0046, h01=0x0050, text=»* AND A BRANCH IS MADE TO P F I N I T . ALL USER TASK TTAB'S«, t00=0x0002, t01=0x0078}
0x003dc…00404 Head {h00=0x0024, h01=0x0050, text=»* MM-TABLES ARE FILLED IN. «, t00=0x0002, t01=0x00c2}
0x00404…0040e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ea}
0x0040e…0042e Head {h00=0x001c, h01=0x0050, text=»* CREDIT APPLICATION: «, t00=0x0002, t01=0x00f4}
0x0042e…00478 Head {h00=0x0046, h01=0x0050, text=»* SYSLDA READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD«, t00=0x0002, t01=0x0114}
0x00478…004be Head {h00=0x0042, h01=0x0050, text=»* SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS &«, t00=0x0002, t01=0x015e}
0x004be…004f0 Head {h00=0x002e, h01=0x0050, text=»* NUMBER OF USER WORK-BLOCK COPIES). «, t00=0x0003, t01=0x0014}
0x004f0…0053c Head {h00=0x0048, h01=0x0050, text=»* SYSLDA THEN MOVES ITSELF TO FOLLOW MONITOR AND WILL ALSO MOVE«, t00=0x0003, t01=0x0046}
0x0053c…0056c Head {h00=0x002c, h01=0x0050, text=»* DDIV-PROTOTYPE TO FOLLOW SYSLDA. «, t00=0x0003, t01=0x0092}
0x0056c…00576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c2}
0x00576…005c2 Head {h00=0x0048, h01=0x0050, text=»* APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES ARE NOW«, t00=0x0003, t01=0x00cc}
0x005c2…0060e Head {h00=0x0048, h01=0x0050, text=»* BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS«, t00=0x0003, t01=0x0118}
0x0060e…0065a Head {h00=0x0048, h01=0x0050, text=»* ARE, IN CASE OF MMU IN SYSTEM, ALSO ALLOCATED AT 'BOTTOM' OF «, t00=0x0003, t01=0x0164}
0x0065a…006a6 Head {h00=0x0048, h01=0x0050, text=»* MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR «, t00=0x0004, t01=0x0020}
0x006a6…006c4 Head {h00=0x001a, h01=0x0050, text=»* 'OVER' SYSLDA. «, t00=0x0004, t01=0x006c}
0x006c4…006ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008a}
0x006ce…0071a Head {h00=0x0048, h01=0x0050, text=»* ALL USER TASKS ARE QUEUED VIA A C T O T AND ALL MM-TABLES«, t00=0x0004, t01=0x0094}
0x0071a…00764 Head {h00=0x0046, h01=0x0050, text=»* IN USER TASK TTAB'S ARE FILLED. A BRANCH IS FINALLY MADE TO«, t00=0x0004, t01=0x00e0}
0x00764…00796 Head {h00=0x002e, h01=0x0050, text=»* P F I N I T TO START APPLICATION. «, t00=0x0004, t01=0x012a}
0x00796…007a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x015c}
0x007a4…007b0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0004, t01=0x016a}
0x007b0…007d4 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0004, t01=0x0176}
0x007d4…007f8 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0005, t01=0x000a}
0x007f8…0081c Head {h00=0x0020, h01=0x0050, text=»* ENTRIES AND EXTERNALS * «, t00=0x0005, t01=0x002e}
0x0081c…00840 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0005, t01=0x0052}
0x00840…00864 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0005, t01=0x0076}
0x00864…00870 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0005, t01=0x009a}
0x00870…00888 Head {h00=0x0014, h01=0x0050, text=»* LABEL ENTRIES «, t00=0x0005, t01=0x00a6}
0x00888…008b8 Head {h00=0x002c, h01=0x0050, text=» ENTRY JUMP BYPASS JUMP FOR LOAD-MODULE «, t00=0x0005, t01=0x00be}
0x008b8…008ce Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLDX «, t00=0x0005, t01=0x00ee}
0x008ce…008ee Head {h00=0x001c, h01=0x0050, text=» ENTRY REL START OF CODE«, t00=0x0005, t01=0x0104}
0x008ee…0091a Head {h00=0x0028, h01=0x0050, text=» ENTRY LDALEN PROGRAM LENGTH =00003 «, t00=0x0005, t01=0x0124}
0x0091a…00922 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0150}
0x00922…0093e Head {h00=0x0018, h01=0x0050, text=»* SUBROUTINE ENTRIES«, t00=0x0005, t01=0x0158}
0x0093e…00952 Head {h00=0x0010, h01=0x0050, text=» ENTRY MOVE «, t00=0x0005, t01=0x0174}
0x00952…00966 Head {h00=0x0010, h01=0x0050, text=» ENTRY ERROR«, t00=0x0005, t01=0x0188}
0x00966…0098e Head {h00=0x0024, h01=0x0050, text=» ENTRY CMPADR COMPARE ADDRESSES «, t00=0x0006, t01=0x000c}
0x0098e…009c4 Head {h00=0x0032, h01=0x0050, text=» ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK«, t00=0x0006, t01=0x0034}
0x009c4…009fc Head {h00=0x0034, h01=0x0050, text=» ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK«, t00=0x0006, t01=0x006a}
0x009fc…00a2a Head {h00=0x002a, h01=0x0050, text=» ENTRY CONVRT CONVERSION ASCII-BINARY «, t00=0x0006, t01=0x00a2}
0x00a2a…00a60 Head {h00=0x0032, h01=0x0050, text=» ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY«, t00=0x0006, t01=0x00d0}
0x00a60…00a8a Head {h00=0x0026, h01=0x0050, text=» ENTRY MULT MULTIPLICATION ROUTINE«, t00=0x0006, t01=0x0106}
0x00a8a…00a92 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0130}
0x00a92…00ab6 Head {h00=0x0020, h01=0x0050, text=»* SAVE AND WORK AREA ENTRIES«, t00=0x0006, t01=0x0138}
0x00ab6…00adc Head {h00=0x0022, h01=0x0050, text=» ENTRY MMTAB WORK-TABLE 1 (MMU«, t00=0x0006, t01=0x015c}
0x00adc…00b16 Head {h00=0x0036, h01=0x0050, text=» ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 «, t00=0x0006, t01=0x0182}
0x00b16…00b4e Head {h00=0x0034, h01=0x0050, text=» ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 «, t00=0x0007, t01=0x002c}
0x00b4e…00b84 Head {h00=0x0032, h01=0x0050, text=» ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL'«, t00=0x0007, t01=0x0064}
0x00b84…00bb4 Head {h00=0x002c, h01=0x0050, text=» ENTRY BUFSIZ TEMPORARY MOVE-BUFFER SIZE«, t00=0x0007, t01=0x009a}
0x00bb4…00be6 Head {h00=0x002e, h01=0x0050, text=» ENTRY SYSBUF TEMPORARY MOVE-BUFFER START «, t00=0x0007, t01=0x00ca}
0x00be6…00c1e Head {h00=0x0034, h01=0x0050, text=» ENTRY M:REL RELOCATION FOR RELOCATION WORD!!!! «, t00=0x0007, t01=0x00fc}
0x00c1e…00c4e Head {h00=0x002c, h01=0x0050, text=» ENTRY I:RSTE INTERPRETER RESTART ENTRY «, t00=0x0007, t01=0x0134}
0x00c4e…00c78 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE01,SAVE12,SAVE03,SAVE04«, t00=0x0007, t01=0x0164}
0x00c78…00ca2 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE05,SAVE06,SAVE07,SAVE08«, t00=0x0007, t01=0x018e}
0x00ca2…00ccc Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE09,SAVE10,SAVE11,SAVE02«, t00=0x0008, t01=0x0028}
0x00ccc…00cf6 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE13,SAVE14,SAVE15,SAVE16«, t00=0x0008, t01=0x0052}
0x00cf6…00d20 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE17,SAVE18,SAVE19,SAVE20«, t00=0x0008, t01=0x007c}
0x00d20…00d4a Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE21,SAVE22,SAVE23,SAVE24«, t00=0x0008, t01=0x00a6}
0x00d4a…00d74 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE25,SAVE26,SAVE27,SAVE28«, t00=0x0008, t01=0x00d0}
0x00d74…00d90 Head {h00=0x0018, h01=0x0050, text=» ENTRY SAVE29,SAVE30«, t00=0x0008, t01=0x00fa}
0x00d90…00db6 Head {h00=0x0022, h01=0x0050, text=» ENTRY APPTYP APPLICATION TYPE«, t00=0x0008, t01=0x0116}
0x00db6…00dc4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x013c}
0x00dc4…00dcc Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x014a}
0x00dcc…00df4 Head {h00=0x0024, h01=0x0050, text=»* SYSTEM CONTROL TABLE EXTERNALS«, t00=0x0008, t01=0x0152}
0x00df4…00e1c Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTSFA START OF FREE AREA«, t00=0x0008, t01=0x017a}
0x00e1c…00e52 Head {h00=0x0032, h01=0x0050, text=» EXTRN SCTLAC LOGICALL ADDRESS TO COMMON PART «, t00=0x0009, t01=0x0012}
0x00e52…00e76 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTTCT TC:TAB ADDRESS«, t00=0x0009, t01=0x0048}
0x00e76…00e9a Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTSTB A15 STACK-BASE«, t00=0x0009, t01=0x006c}
0x00e9a…00ec0 Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTEFA END OF FREE AREA«, t00=0x0009, t01=0x0090}
0x00ec0…00ee6 Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTNOP NUMBER OF PAGES «, t00=0x0009, t01=0x00b6}
0x00ee6…00f06 Head {h00=0x001c, h01=0x0050, text=» EXTRN SCTPSZ PAGE SIZE «, t00=0x0009, t01=0x00dc}
0x00f06…00f24 Head {h00=0x001a, h01=0x0050, text=» EXTRN SCTMMC =00002 «, t00=0x0009, t01=0x00fc}
0x00f24…00f48 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTOPT SYSTEM OPTION «, t00=0x0009, t01=0x011a}
0x00f48…00f70 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTPAG PAGE TABLE ADDRESS«, t00=0x0009, t01=0x013e}
0x00f70…00fa8 Head {h00=0x0034, h01=0x0050, text=» EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE«, t00=0x0009, t01=0x0166}
0x00fa8…00fcc Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTBUG BUGGER ADDRESS«, t00=0x000a, t01=0x000e}
0x00fcc…00fd4 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0032}
0x00fd4…00fee Head {h00=0x0016, h01=0x0050, text=»* EXTERNAL LABELS «, t00=0x000a, t01=0x003a}
0x00fee…01028 Head {h00=0x0036, h01=0x0050, text=» EXTRN SYSLDM START OF MONITOR CONFIGURATION PART «, t00=0x000a, t01=0x0054}
0x01028…01050 Head {h00=0x0024, h01=0x0050, text=» EXTRN PAGQUE PAGE QUEUE POINTER«, t00=0x000a, t01=0x008e}
0x01050…01058 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00b6}
0x01058…01076 Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL SUBROUTINES«, t00=0x000a, t01=0x00be}
0x01076…01096 Head {h00=0x001c, h01=0x0050, text=» EXTRN ACTOT QUEUE TASK «, t00=0x000a, t01=0x00dc}
0x01096…010ac Head {h00=0x0012, h01=0x0050, text=» EXTRN PFINIT «, t00=0x000a, t01=0x00fc}
0x010ac…010cc Head {h00=0x001c, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGS«, t00=0x000a, t01=0x0112}
0x010cc…010f0 Head {h00=0x0020, h01=0x0050, text=» EXTRN RETUR8 RELOAD 8 REGS «, t00=0x000a, t01=0x0132}
0x010f0…01116 Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x000a, t01=0x0156}
0x01116…0111e Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x017c}
0x0111e…01128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0184}
0x01128…01158 Head {h00=0x002c, h01=0x0050, text=» EXTRN TTB:SA START OF SAVE AREA IN TTAB«, t00=0x000a, t01=0x018e}
0x01158…01194 Head {h00=0x0038, h01=0x0050, text=» EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS«, t00=0x000b, t01=0x002e}
0x01194…011a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x006a}
0x011a2…011aa Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0078}
0x011aa…011b2 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0080}
0x011b2…011e2 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000b, t01=0x0088}
0x011e2…01212 Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000b, t01=0x00b8}
0x01212…01242 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000b, t01=0x00e8}
0x01242…0124a Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0118}
0x0124a…0126a Head {h00=0x001c, h01=0x0050, text=»MMUPAG EQU 1 0 = NO MMU «, t00=0x000b, t01=0x0120}
0x0126a…01272 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0140}
0x01272…0129c Head {h00=0x0026, h01=0x0050, text=»SWPBLK EQU 0 SWAPPABLE WORK BLOCKS«, t00=0x000b, t01=0x0148}
0x0129c…012a4 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0172}
0x012a4…012c4 Head {h00=0x001c, h01=0x0050, text=»CREDIT EQU 1 0=ASSEMBLER«, t00=0x000b, t01=0x017a}
0x012c4…012cc Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x000a}
0x012cc…012ec Head {h00=0x001c, h01=0x0050, text=»MMUSWB EQU MMUPAG+SWPBLK«, t00=0x000c, t01=0x0012}
0x012ec…012f4 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0032}
0x012f4…01314 Head {h00=0x001c, h01=0x0050, text=»SWBMMU EQU SWPBLK-MMUPAG«, t00=0x000c, t01=0x003a}
0x01314…01322 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x005a}
0x01322…0132a Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0068}
0x0132a…01348 Head {h00=0x001a, h01=0x0050, text=» PROGRAM STRUCTURE: «, t00=0x000c, t01=0x0070}
0x01348…01350 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x008e}
0x01350…0139a Head {h00=0x0046, h01=0x0050, text=»* -------------------------------------------------------«, t00=0x000c, t01=0x0096}
0x0139a…013ea Head {h00=0x004c, h01=0x0050, text=»* ! RELOCATION ROUTINE !<- A13«, t00=0x000c, t01=0x00e0}
0x013ea…01434 Head {h00=0x0046, h01=0x0050, text=»* ! A14-STACK AND SUBROUTINE-HANDLER !«, t00=0x000c, t01=0x0130}
0x01434…0147e Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000c, t01=0x017a}
0x0147e…014c8 Head {h00=0x0046, h01=0x0050, text=»* ! SAVE & COMMUNICATION AREA. MMU - WORK TABLES !«, t00=0x000d, t01=0x0034}
0x014c8…01512 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000d, t01=0x007e}
0x01512…0155c Head {h00=0x0046, h01=0x0050, text=»* ! SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM. !«, t00=0x000d, t01=0x00c8}
0x0155c…015a6 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000d, t01=0x0112}
0x015a6…015fa Head {h00=0x0050, h01=0x0050, text=»* ! R E A L T A ! PART 2.B «, t00=0x000d, t01=0x015c}
0x015fa…01644 Head {h00=0x0046, h01=0x0050, text=»* ! BUILD REAL TASK-LOCAL DATA AREAS !«, t00=0x000e, t01=0x0020}
0x01644…0168e Head {h00=0x0046, h01=0x0050, text=»* ! -QUEUE TASK VIA 'ACTOT' !«, t00=0x000e, t01=0x006a}
0x0168e…016d8 Head {h00=0x0046, h01=0x0050, text=»* ! -FILL MM-TABLE IN TTAB !«, t00=0x000e, t01=0x00b4}
0x016d8…01722 Head {h00=0x0046, h01=0x0050, text=»* ! -COPY T:A'S ACCORDING TO SHADOW-TABLE !«, t00=0x000e, t01=0x00fe}
0x01722…0176c Head {h00=0x0046, h01=0x0050, text=»* ! -BUILD TWB'S AND RESERVE FOR SWB'S !«, t00=0x000e, t01=0x0148}
0x0176c…017b6 (15, 0, 400) Head {h00=0x0046, h01=0x0050, text=»* ! -ALLOCATE FIXED BUFFERS AND STACK !«, t00=0x000f, t01=0x0004}
0x017b6…01800 Head {h00=0x0046, h01=0x0050, text=»* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE !«, t00=0x000f, t01=0x004e}
0x01800…0184a Head {h00=0x0046, h01=0x0050, text=»* ! -START DEBUGGER (IF ANY) AND START APPLICATION !«, t00=0x000f, t01=0x0098}
0x0184a…01894 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000f, t01=0x00e2}
0x01894…018e8 Head {h00=0x0050, h01=0x0050, text=»* ! SUBROUTINES ! PART 2.A «, t00=0x000f, t01=0x012c}
0x018e8…01932 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE DDIV PROTOTYPE TO FOLLOW SYSLDA !«, t00=0x000f, t01=0x0180}
0x01932…0197c Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0010, t01=0x003a}
0x0197c…019c6 Head {h00=0x0046, h01=0x0050, text=»* ! C O M D A T !«, t00=0x0010, t01=0x0084}
0x019c6…01a10 Head {h00=0x0046, h01=0x0050, text=»* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S. !«, t00=0x0010, t01=0x00ce}
0x01a10…01a5a Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO !«, t00=0x0010, t01=0x0118}
0x01a5a…01aa4 Head {h00=0x0046, h01=0x0050, text=»* ! SHADOW-TABLE. !«, t00=0x0010, t01=0x0162}
0x01aa4…01aee Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0011, t01=0x001c}
0x01aee…01b38 Head {h00=0x0046, h01=0x0050, text=»* ! C L A D A T !«, t00=0x0011, t01=0x0066}
0x01b38…01b82 Head {h00=0x0046, h01=0x0050, text=»* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S !«, t00=0x0011, t01=0x00b0}
0x01b82…01bcc Head {h00=0x0046, h01=0x0050, text=»* ! AND DWB'S. !«, t00=0x0011, t01=0x00fa}
0x01bcc…01c16 Head {h00=0x0046, h01=0x0050, text=»* ! -BUILD MM-TABLE !«, t00=0x0011, t01=0x0144}
0x01c16…01c60 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE T:D !«, t00=0x0011, t01=0x018e}
0x01c60…01caa Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE D.T. & W.B., COPY UWB'S !«, t00=0x0012, t01=0x0048}
0x01caa…01cf4 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE D.T.'S OF SWB'S AND TWB'S !«, t00=0x0012, t01=0x0092}
0x01cf4…01d3e Head {h00=0x0046, h01=0x0050, text=»* ! -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE !«, t00=0x0012, t01=0x00dc}
0x01d3e…01d88 Head {h00=0x0046, h01=0x0050, text=»* ! W.B.-ADDRESS !«, t00=0x0012, t01=0x0126}
0x01d88…01dd2 Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0012, t01=0x0170}
0x01dd2…01e1c Head {h00=0x0046, h01=0x0050, text=»* ! P R O D A T !«, t00=0x0013, t01=0x002a}
0x01e1c…01e66 Head {h00=0x0046, h01=0x0050, text=»* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. !«, t00=0x0013, t01=0x0074}
0x01e66…01eb0 Head {h00=0x0046, h01=0x0050, text=»* ! -GENERATE TWB'S AND RESERVE FOR SWB'S !«, t00=0x0013, t01=0x00be}
0x01eb0…01efa Head {h00=0x0046, h01=0x0050, text=»* ! -ALLOCATE FIXED BUFFERS AND TERMINAL STACK !«, t00=0x0013, t01=0x0108}
0x01efa…01f44 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE T:A !«, t00=0x0013, t01=0x0152}
0x01f44…01f8e Head {h00=0x0046, h01=0x0050, text=»* ! -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA. !«, t00=0x0014, t01=0x000c}
0x01f8e…01fd8 Head {h00=0x0046, h01=0x0050, text=»* ! -CONTINUE IN PART 2.B !«, t00=0x0014, t01=0x0056}
0x01fd8…02022 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x0014, t01=0x00a0}
0x02022…02074 Head {h00=0x004e, h01=0x0050, text=»* ! SUBROUTINES ! PART 1 «, t00=0x0014, t01=0x00ea}
0x02074…020be Head {h00=0x0046, h01=0x0050, text=»* ENTRY ->! * SYSLDA ENTRY * !«, t00=0x0014, t01=0x013c}
0x020be…02108 Head {h00=0x0046, h01=0x0050, text=»* ! CREDIT APPLICATION: ! ASSEMBLER APPLICATION: !«, t00=0x0014, t01=0x0186}
0x02108…02152 Head {h00=0x0046, h01=0x0050, text=»* ! READ CUNFIGURATION FILE ! -FILL MM-TABLES IN !«, t00=0x0015, t01=0x0040}
0x02152…0219c Head {h00=0x0046, h01=0x0050, text=»* ! AND BUILD SHADOW-TABLES. ! USER TASK TTAB'S. !«, t00=0x0015, t01=0x008a}
0x0219c…021e6 Head {h00=0x0046, h01=0x0050, text=»* ! ! -QUEUE 1:ST USER TASK !«, t00=0x0015, t01=0x00d4}
0x021e6…02230 Head {h00=0x0046, h01=0x0050, text=»* ! T:ATAB: ! AND START APPLICATION !«, t00=0x0015, t01=0x011e}
0x02230…0227a Head {h00=0x0046, h01=0x0050, text=»* ! -A TABLE OF 'NUMBER OF !-------------------------!«, t00=0x0015, t01=0x0168}
0x0227a…022c4 Head {h00=0x0046, h01=0x0050, text=»* ! REAL TASKS' IS BUILT AT !«, t00=0x0016, t01=0x0022}
0x022c4…0230e Head {h00=0x0046, h01=0x0050, text=»* ! THE END OF MONITOR. !«, t00=0x0016, t01=0x006c}
0x0230e…02358 Head {h00=0x0046, h01=0x0050, text=»* ! U:BTAB: !«, t00=0x0016, t01=0x00b6}
0x02358…023a2 Head {h00=0x0046, h01=0x0050, text=»* ! -A TABLE OF 'NUMBER OF REAL UWB'S' IS BUILT IN !«, t00=0x0016, t01=0x0100}
0x023a2…023ec Head {h00=0x0046, h01=0x0050, text=»* ! U:BTAB PROTOTYPE. !«, t00=0x0016, t01=0x014a}
0x023ec…02436 (23, 0, 400) Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0017, t01=0x0004}
0x02436…02480 Head {h00=0x0046, h01=0x0050, text=»* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. !«, t00=0x0017, t01=0x004e}
0x02480…024ca Head {h00=0x0046, h01=0x0050, text=»* ! -REMOVE NOT USED ENTRIES IN T:ATAB !«, t00=0x0017, t01=0x0098}
0x024ca…02514 Head {h00=0x0046, h01=0x0050, text=»* ! -RELOCATE ADDRESSES IN U:BTAB !«, t00=0x0017, t01=0x00e2}
0x02514…0255e Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE SYSLDA (NOT PART 1) TO FOLLOW T:ATAB SHADOW- !«, t00=0x0017, t01=0x012c}
0x0255e…025a8 Head {h00=0x0046, h01=0x0050, text=»* ! TABLE !«, t00=0x0017, t01=0x0176}
0x025a8…025f2 Head {h00=0x0046, h01=0x0050, text=»* ! -CONTINUE IN PART 2.A !«, t00=0x0018, t01=0x0030}
0x025f2…0263c Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x0018, t01=0x007a}
0x0263c…0264a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00c4}
0x0264a…02656 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0018, t01=0x00d2}
0x02656…02672 Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0018, t01=0x00de}
0x02672…0268e Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0018, t01=0x00fa}
0x0268e…026aa Head {h00=0x0018, h01=0x0050, text=» ** ** «, t00=0x0018, t01=0x0116}
0x026aa…026c6 Head {h00=0x0018, h01=0x0050, text=» ** CONSTANTS ** «, t00=0x0018, t01=0x0132}
0x026c6…026e2 Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0018, t01=0x014e}
0x026e2…026fe Head {h00=0x0018, h01=0x0050, text=» ** ** «, t00=0x0018, t01=0x016a}
0x026fe…0271a Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0018, t01=0x0186}
0x0271a…02726 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0019, t01=0x0012}
0x02726…02738 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x001e}
0x02738…0274a Head {h00=0x000e, h01=0x0050, text=»* P:MTAB *«, t00=0x0019, t01=0x0030}
0x0274a…0275c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x0042}
0x0275c…02770 Head {h00=0x0010, h01=0x0050, text=»T:ATAB EQU 0«, t00=0x0019, t01=0x0054}
0x02770…02784 Head {h00=0x0010, h01=0x0050, text=»U:BTAB EQU 2«, t00=0x0019, t01=0x0068}
0x02784…027a4 Head {h00=0x001c, h01=0x0050, text=»P:BAS EQU 6 SEGMENT BASE«, t00=0x0019, t01=0x007c}
0x027a4…027d6 Head {h00=0x002e, h01=0x0050, text=»T:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID'«, t00=0x0019, t01=0x009c}
0x027d6…02802 Head {h00=0x0028, h01=0x0050, text=»S:BTAB EQU 40 DISP TO S:BTAB ADDRESS«, t00=0x0019, t01=0x00ce}
0x02802…02832 Head {h00=0x002c, h01=0x0050, text=»I:RSTE EQU 42 INTERPRETER RESTART ENTRY «, t00=0x0019, t01=0x00fa}
0x02832…0283a Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x012a}
0x0283a…02842 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0132}
0x02842…02854 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x013a}
0x02854…02866 Head {h00=0x000e, h01=0x0050, text=»* U:BTAB *«, t00=0x0019, t01=0x014c}
0x02866…02878 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x015e}
0x02878…028ac Head {h00=0x0030, h01=0x0050, text=»UP:REC EQU 6 RECORD LENGTH IN INITIAL U:BTAB«, t00=0x0019, t01=0x0170}
0x028ac…028d2 Head {h00=0x0022, h01=0x0050, text=»UPADDR EQU 2 PROTOTYPE ADDRESS«, t00=0x001a, t01=0x0014}
0x028d2…028f6 Head {h00=0x0020, h01=0x0050, text=»UPNAME EQU 4 PROTOTYPE NAME «, t00=0x001a, t01=0x003a}
0x028f6…02932 Head {h00=0x0038, h01=0x0050, text=»UPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL)«, t00=0x001a, t01=0x005e}
0x02932…0293c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009a}
0x0293c…0296e Head {h00=0x002e, h01=0x0050, text=»UR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB «, t00=0x001a, t01=0x00a4}
0x0296e…0299c Head {h00=0x002a, h01=0x0050, text=»URADDR EQU 2 ADDRESS TO FIRST REAL UWB«, t00=0x001a, t01=0x00d6}
0x0299c…029c0 Head {h00=0x0020, h01=0x0050, text=»URNUMB EQU 4 NUMBER OF UWB'S«, t00=0x001a, t01=0x0104}
0x029c0…029e2 Head {h00=0x001e, h01=0x0050, text=»URLENG EQU 6 LENGTH OF UWB«, t00=0x001a, t01=0x0128}
0x029e2…029f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x014a}
0x029f0…029fc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001a, t01=0x0158}
0x029fc…02a08 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001a, t01=0x0164}
0x02a08…02a14 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001a, t01=0x0170}
0x02a14…02a3c Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001a, t01=0x017c}
0x02a3c…02a64 Head {h00=0x0024, h01=0x0050, text=»* CONFIGURATION FILE (CONFIG) * «, t00=0x001b, t01=0x0014}
0x02a64…02a8c Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001b, t01=0x003c}
0x02a8c…02a98 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001b, t01=0x0064}
0x02a98…02ab8 Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x001b, t01=0x0070}
0x02ab8…02ada Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x001b, t01=0x0090}
0x02ada…02b06 Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x001b, t01=0x00b2}
0x02b06…02b36 Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x001b, t01=0x00de}
0x02b36…02b66 Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x001b, t01=0x010e}
0x02b66…02b8e Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x001b, t01=0x013e}
0x02b8e…02bcc Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x001b, t01=0x0166}
0x02bcc…02bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0014}
0x02bd6…02c00 Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 FIRST TERM DEF «, t00=0x001c, t01=0x001e}
0x02c00…02c28 Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x001c, t01=0x0048}
0x02c28…02c4a Head {h00=0x001e, h01=0x0050, text=»TLC EQU 6 LINE CONNECTION «, t00=0x001c, t01=0x0070}
0x02c4a…02c76 Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x001c, t01=0x0092}
0x02c76…02c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00be}
0x02c80…02cae Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x001c, t01=0x00c8}
0x02cae…02cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f6}
0x02cb8…02cdc Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x001c, t01=0x0100}
0x02cdc…02cfe Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x001c, t01=0x0124}
0x02cfe…02d38 Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x001c, t01=0x0146}
0x02d38…02d64 Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 FIRST SDC-RECORD «, t00=0x001c, t01=0x0180}
0x02d64…02d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x001c}
0x02d6e…02d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0026}
0x02d78…02da2 Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x001d, t01=0x0030}
0x02da2…02dc4 Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x001d, t01=0x005a}
0x02dc4…02df4 Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x001d, t01=0x007c}
0x02df4…02dfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ac}
0x02dfe…02e2a Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 FIRST UDB-RECORD «, t00=0x001d, t01=0x00b6}
0x02e2a…02e4a Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x001d, t01=0x00e2}
0x02e4a…02e70 Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x001d, t01=0x0102}
0x02e70…02ea2 Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x001d, t01=0x0128}
0x02ea2…02eb0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x015a}
0x02eb0…02ebc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001d, t01=0x0168}
0x02ebc…02ec8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001d, t01=0x0174}
0x02ec8…02eda Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001d, t01=0x0180}
0x02eda…02eec (30, 0, 398) Head {h00=0x000e, h01=0x0050, text=»* T:A * «, t00=0x001e, t01=0x0004}
0x02eec…02efe Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001e, t01=0x0016}
0x02efe…02f1e Head {h00=0x001c, h01=0x0050, text=»T:ASTA EQU -14 T:A START«, t00=0x001e, t01=0x0028}
0x02f1e…02f58 Head {h00=0x0036, h01=0x0050, text=»CSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) «, t00=0x001e, t01=0x0048}
0x02f58…02f80 Head {h00=0x0024, h01=0x0050, text=»CSB EQU -12 CURRENT SEGMENT BASE«, t00=0x001e, t01=0x0082}
0x02f80…02fb8 Head {h00=0x0034, h01=0x0050, text=»CSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH «, t00=0x001e, t01=0x00aa}
0x02fb8…02fee Head {h00=0x0032, h01=0x0050, text=» OF ALL DSCB-RECORDS«, t00=0x001e, t01=0x00e2}
0x02fee…03012 Head {h00=0x0020, h01=0x0050, text=»T:DAD EQU -8 ADDRESS TO T:D «, t00=0x001e, t01=0x0118}
0x03012…03040 Head {h00=0x002a, h01=0x0050, text=»CIA EQU -6 CURRENT INSTUCTION ADDRESS «, t00=0x001e, t01=0x013c}
0x03040…0306c Head {h00=0x0028, h01=0x0050, text=» (HERE: DISPLACEMENT TO T:A-START)«, t00=0x001e, t01=0x016a}
0x0306c…03078 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x0008}
0x03078…03096 Head {h00=0x001a, h01=0x0050, text=»T:ATID EQU -4 TASK ID «, t00=0x001f, t01=0x0014}
0x03096…030b4 Head {h00=0x001a, h01=0x0050, text=»STKE EQU -2 STACK END «, t00=0x001f, t01=0x0032}
0x030b4…030d2 Head {h00=0x001a, h01=0x0050, text=»PA EQU 0 STACK POINTER«, t00=0x001f, t01=0x0050}
0x030d2…030f0 Head {h00=0x001a, h01=0x0050, text=»STKB EQU 2 STACK BASE «, t00=0x001f, t01=0x006e}
0x030f0…03116 Head {h00=0x0022, h01=0x0050, text=»WATFST EQU 4 FIRST WAT-ELEMENT«, t00=0x001f, t01=0x008c}
0x03116…03120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00b2}
0x03120…03136 Head {h00=0x0012, h01=0x0050, text=»* DSCB-RECORD:«, t00=0x001f, t01=0x00bc}
0x03136…03158 Head {h00=0x001e, h01=0x0050, text=»DSCBL EQU 20 RECORD LENGTH«, t00=0x001f, t01=0x00d2}
0x03158…03178 Head {h00=0x001c, h01=0x0050, text=»BA EQU 2 BUFFER ADDRESS «, t00=0x001f, t01=0x00f4}
0x03178…03194 Head {h00=0x0018, h01=0x0050, text=»RL EQU 4 REQ. LENGTH«, t00=0x001f, t01=0x0114}
0x03194…031b0 Head {h00=0x0018, h01=0x0050, text=»EL EQU 6 EFF. LENGTH«, t00=0x001f, t01=0x0130}
0x031b0…031d6 Head {h00=0x0022, h01=0x0050, text=»BL EQU 14 LENGTH ITEM ADDRESS «, t00=0x001f, t01=0x014c}
0x031d6…031e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0172}
0x031e4…031f0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x0180}
0x031f0…031fc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x018c}
0x031fc…0320e Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0020, t01=0x0008}
0x0320e…03220 Head {h00=0x000e, h01=0x0050, text=»* T:D * «, t00=0x0020, t01=0x001a}
0x03220…03232 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0020, t01=0x002c}
0x03232…0325e Head {h00=0x0028, h01=0x0050, text=»FCD EQU 0 DISPLACEMENT TO FCB IN T:A«, t00=0x0020, t01=0x003e}
0x0325e…0328e Head {h00=0x002c, h01=0x0050, text=»T:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE)«, t00=0x0020, t01=0x006a}
0x0328e…032be Head {h00=0x002c, h01=0x0050, text=»DATLEN EQU 4 NUMBER OF DATASETS (DSCB'S)«, t00=0x0020, t01=0x009a}
0x032be…032e8 Head {h00=0x0026, h01=0x0050, text=»WATLEN EQU 6 NUMBER OF WATELEMENTS«, t00=0x0020, t01=0x00ca}
0x032e8…0331c Head {h00=0x0030, h01=0x0050, text=»TWBMSK EQU 8 MASK FOR TWB'S (ONE BIT/ENTRY) «, t00=0x0020, t01=0x00f4}
0x0331c…0334a Head {h00=0x002a, h01=0x0050, text=»SWBMSK EQU 10 MASK FOR SWB'S -"- «, t00=0x0020, t01=0x0128}
0x0334a…03378 Head {h00=0x002a, h01=0x0050, text=»CWBMSK EQU 12 MASK FOR CWB'S -"- «, t00=0x0020, t01=0x0156}
0x03378…033a6 Head {h00=0x002a, h01=0x0050, text=»UWBMSK EQU 14 MASK FOR UWB'S -"- «, t00=0x0020, t01=0x0184}
0x033a6…033d2 Head {h00=0x0028, h01=0x0050, text=»DWBFST EQU 16 FIRST WORD IN DBLK-TAB«, t00=0x0021, t01=0x0022}
0x033d2…033da Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x004e}
0x033da…0340c Head {h00=0x002e, h01=0x0050, text=»STPREC EQU 4 RECORD LENGTH OF START-POINTS«, t00=0x0021, t01=0x0056}
0x0340c…03414 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0088}
0x03414…0341c Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0090}
0x0341c…03434 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0021, t01=0x0098}
0x03434…0344c Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x0021, t01=0x00b0}
0x0344c…03464 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0021, t01=0x00c8}
0x03464…03486 Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x0021, t01=0x00e0}
0x03486…0348e Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0102}
0x0348e…034ac Head {h00=0x001a, h01=0x0050, text=» LAMP CODE MEANING «, t00=0x0021, t01=0x010a}
0x034ac…034ca Head {h00=0x001a, h01=0x0050, text=» --------- ------- «, t00=0x0021, t01=0x0128}
0x034ca…034ec Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 SYSLOAD RUNS«, t00=0x0021, t01=0x0146}
0x034ec…0350c Head {h00=0x001c, h01=0x0050, text=»LMP2 EQU /200 READ ERROR«, t00=0x0021, t01=0x0168}
0x0350c…03532 Head {h00=0x0022, h01=0x0050, text=»LMP3 EQU /100 MEMORY OVERFLOW «, t00=0x0021, t01=0x0188}
0x03532…0355c Head {h00=0x0026, h01=0x0050, text=»LMP4 EQU /80 FORMAT ERROR (CONFIG)«, t00=0x0022, t01=0x001e}
0x0355c…0357a Head {h00=0x001a, h01=0x0050, text=»LMP5 EQU /40 TID ERROR«, t00=0x0022, t01=0x0048}
0x0357a…035a0 Head {h00=0x0022, h01=0x0050, text=»LMP6 EQU /20 UWB OR SWB ERROR «, t00=0x0022, t01=0x0066}
0x035a0…035c6 Head {h00=0x0022, h01=0x0050, text=»LMP7 EQU /10 MM-TABLE OVERFLOW«, t00=0x0022, t01=0x008c}
0x035c6…035d8 Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x0022, t01=0x00b2}
0x035d8…035ea Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x0022, t01=0x00c4}
0x035ea…035fe Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x0022, t01=0x00d6}
0x035fe…03612 Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x0022, t01=0x00ea}
0x03612…03620 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00fe}
0x03620…0363e Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0022, t01=0x010c}
0x0363e…0365c Head {h00=0x001a, h01=0x0050, text=»* OTHER CONSTANTS * «, t00=0x0022, t01=0x012a}
0x0365c…0367a Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0022, t01=0x0148}
0x0367a…03686 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0022, t01=0x0166}
0x03686…036b0 Head {h00=0x0026, h01=0x0050, text=»WBLEN EQU -4 LENGTH OF WORK-BLOCK «, t00=0x0022, t01=0x0172}
0x036b0…036e0 Head {h00=0x002c, h01=0x0050, text=»DTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE «, t00=0x0023, t01=0x000c}
0x036e0…0370a Head {h00=0x0026, h01=0x0050, text=»SWBLEN EQU 4 DISP TO LENGTH OF SWB«, t00=0x0023, t01=0x003c}
0x0370a…03716 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0023, t01=0x0066}
0x03716…0373e Head {h00=0x0024, h01=0x0050, text=»FCBDD1 EQU 8 DISP TO FIRST DSET «, t00=0x0023, t01=0x0072}
0x0373e…03766 Head {h00=0x0024, h01=0x0050, text=»FCBDD2 EQU 10 DISP TO 2:ND DSET «, t00=0x0023, t01=0x009a}
0x03766…03772 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0023, t01=0x00c2}
0x03772…0379a Head {h00=0x0024, h01=0x0050, text=»STKSZ EQU 128 DEFAULT STACK-SIZE«, t00=0x0023, t01=0x00ce}
0x0379a…037a6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0023, t01=0x00f6}
0x037a6…037d0 Head {h00=0x0026, h01=0x0050, text=»CREID EQU 2 CREDIT IDENTIFICATION «, t00=0x0023, t01=0x0102}
0x037d0…037fc Head {h00=0x0028, h01=0x0050, text=»SEGREC EQU 6 RECORD LENGTH IN S:GTAB«, t00=0x0023, t01=0x012c}
0x037fc…03838 Head {h00=0x0038, h01=0x0050, text=»NUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN S:GTAB«, t00=0x0023, t01=0x0158}
0x03838…03840 (36, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x0004}
0x03840…03860 Head {h00=0x001c, h01=0x0050, text=»TTBTID EQU 2 TID IN TTAB«, t00=0x0024, t01=0x000c}
0x03860…03892 Head {h00=0x002e, h01=0x0050, text=»T:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB «, t00=0x0024, t01=0x002c}
0x03892…038c0 Head {h00=0x002a, h01=0x0050, text=»TTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB«, t00=0x0024, t01=0x005e}
0x038c0…038c8 Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x008c}
0x038c8…038f4 Head {h00=0x0028, h01=0x0050, text=»NTPA EQU 4 INTERPRETER START ADDRESS«, t00=0x0024, t01=0x0094}
0x038f4…0391e Head {h00=0x0026, h01=0x0050, text=»IHRTC EQU 4 RTC INTERRUPT ADDRESS «, t00=0x0024, t01=0x00c0}
0x0391e…03946 Head {h00=0x0024, h01=0x0050, text=»RTCDA EQU /1B RTC DEVICE ADDRESS«, t00=0x0024, t01=0x00ea}
0x03946…03952 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0024, t01=0x0112}
0x03952…0399c Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0024, t01=0x011e}
0x0399c…039e6 Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x0024, t01=0x0168}
0x039e6…03a30 Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x0025, t01=0x0022}
0x03a30…03a7a Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0025, t01=0x006c}
0x03a7a…03ac4 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0025, t01=0x00b6}
0x03ac4…03ad0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0025, t01=0x0100}
0x03ad0…03adc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0025, t01=0x010c}
0x03adc…03ae8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0025, t01=0x0118}
0x03ae8…03b06 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x0025, t01=0x0124}
0x03b06…03b14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0142}
0x03b14…03b20 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0025, t01=0x0150}
0x03b20…03b5a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0025, t01=0x015c}
0x03b5a…03b94 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x0008}
0x03b94…03bce Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0026, t01=0x0042}
0x03bce…03c08 Head {h00=0x0036, h01=0x0050, text=»** RELOCATION ROUTINE & STACK INITIALLISATION **«, t00=0x0026, t01=0x007c}
0x03c08…03c42 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0026, t01=0x00b6}
0x03c42…03c7c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x00f0}
0x03c7c…03cb6 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x012a}
0x03cb6…03cc2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0026, t01=0x0164}
0x03cc2…03cf2 Head {h00=0x002c, h01=0x0050, text=»REL RF SUBBA JUMP TO SUBROUTINE HANDLER «, t00=0x0026, t01=0x0170}
0x03cf2…03d1c Head {h00=0x0026, h01=0x0050, text=» LDR A13,P GET BASE ADDRESS TO A13«, t00=0x0027, t01=0x0010}
0x03d1c…03d30 Head {h00=0x0010, h01=0x0050, text=» SUKL A13,4 «, t00=0x0027, t01=0x003a}
0x03d30…03d52 Head {h00=0x001e, h01=0x0050, text=»* ADJUST FOR PSW-ROUTINE *«, t00=0x0027, t01=0x004e}
0x03d52…03d74 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0027, t01=0x0070}
0x03d74…03dac Head {h00=0x0034, h01=0x0050, text=» LDK A3,GETPSW RELATIVE ADDRESS TO 'PSW-ADDRESS'«, t00=0x0027, t01=0x0092}
0x03dac…03dcc Head {h00=0x001c, h01=0x0050, text=» ADR A3,A13 ABSOLUT DITO«, t00=0x0027, t01=0x00ca}
0x03dcc…03e04 Head {h00=0x0034, h01=0x0050, text=» ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE«, t00=0x0027, t01=0x00ea}
0x03e04…03e1e Head {h00=0x0016, h01=0x0050, text=»* LOAD STACKBASE *«, t00=0x0027, t01=0x0122}
0x03e1e…03e38 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0027, t01=0x013c}
0x03e38…03e40 Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x0156}
0x03e40…03e58 Head {h00=0x0014, h01=0x0050, text=» LDKL A14,STACKB«, t00=0x0027, t01=0x015e}
0x03e58…03e76 Head {h00=0x001a, h01=0x0050, text=» ADR A14,A13 RELOCATE «, t00=0x0027, t01=0x0176}
0x03e76…03e86 (40, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0028, t01=0x0004}
0x03e86…03e92 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x0014}
0x03e92…03e9e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x0020}
0x03e9e…03eb0 Head {h00=0x000e, h01=0x0050, text=»* STACK * «, t00=0x0028, t01=0x002c}
0x03eb0…03ec2 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0028, t01=0x003e}
0x03ec2…03ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0050}
0x03ecc…03edc Head {h00=0x000c, h01=0x0050, text=» RES 12 «, t00=0x0028, t01=0x005a}
0x03edc…03ef6 Head {h00=0x0016, h01=0x0050, text=»STACKB EQU *-REL-2«, t00=0x0028, t01=0x006a}
0x03ef6…03f04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0084}
0x03f04…03f10 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x0092}
0x03f10…03f1c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x009e}
0x03f1c…03f3e Head {h00=0x001e, h01=0x0050, text=»* ADDRESS TO PSW-ROUTINE *«, t00=0x0028, t01=0x00aa}
0x03f3e…03f60 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0028, t01=0x00cc}
0x03f60…03f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ee}
0x03f6a…03f80 Head {h00=0x0012, h01=0x0050, text=»PSW EQU *-REL «, t00=0x0028, t01=0x00f8}
0x03f80…03f94 Head {h00=0x0010, h01=0x0050, text=» DATA GETPSW«, t00=0x0028, t01=0x010e}
0x03f94…03fa0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x0122}
0x03fa0…03fe8 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0028, t01=0x012e}
0x03fe8…04030 Head {h00=0x0044, h01=0x0050, text=»* G E T P S W *«, t00=0x0028, t01=0x0176}
0x04030…04078 Head {h00=0x0044, h01=0x0050, text=»* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE *«, t00=0x0029, t01=0x002e}
0x04078…040c0 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0029, t01=0x0076}
0x040c0…040cc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0029, t01=0x00be}
0x040cc…040e4 Head {h00=0x0014, h01=0x0050, text=»GETPSW EQU *-REL«, t00=0x0029, t01=0x00ca}
0x040e4…0410c Head {h00=0x0024, h01=0x0050, text=» STR A2,A14 SAVE A2 ON A14-STACK«, t00=0x0029, t01=0x00e2}
0x0410c…04140 Head {h00=0x0030, h01=0x0050, text=» LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE«, t00=0x0029, t01=0x010a}
0x04140…04172 Head {h00=0x002e, h01=0x0050, text=» ST A2,6,A14 REPLACE PSW FROM MAIN PROGRAM«, t00=0x0029, t01=0x013e}
0x04172…04192 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A14 RESTORE A2 «, t00=0x0029, t01=0x0170}
0x04192…041a2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x0190}
0x041a2…041b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0010}
0x041b0…041b8 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x001e}
0x041b8…041e2 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002a, t01=0x0026}
0x041e2…0420c Head {h00=0x0026, h01=0x0050, text=»* * «, t00=0x002a, t01=0x0050}
0x0420c…04236 Head {h00=0x0026, h01=0x0050, text=»* SUBROUTINE-HANDLER * «, t00=0x002a, t01=0x007a}
0x04236…04260 Head {h00=0x0026, h01=0x0050, text=»* * «, t00=0x002a, t01=0x00a4}
0x04260…0428a Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002a, t01=0x00ce}
0x0428a…04292 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00f8}
0x04292…042aa Head {h00=0x0014, h01=0x0050, text=»SUBSUB EQU *-REL«, t00=0x002a, t01=0x0100}
0x042aa…042d0 Head {h00=0x0022, h01=0x0050, text=»SUBBA ST A10,MUL,A13 SAVE A10 «, t00=0x002a, t01=0x0118}
0x042d0…04302 Head {h00=0x002e, h01=0x0050, text=» LD* A10,4,A14 GET SUBROUTINE REL ADDRESS «, t00=0x002a, t01=0x013e}
0x04302…0432a Head {h00=0x0024, h01=0x0050, text=» IM 4,A14 ADJUST RETURN ADDRESS «, t00=0x002a, t01=0x0170}
0x0432a…0433c Head {h00=0x000e, h01=0x0050, text=» IM 4,A14 «, t00=0x002b, t01=0x0008}
0x0433c…04370 Head {h00=0x0030, h01=0x0050, text=» AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION «, t00=0x002b, t01=0x001a}
0x04370…04392 Head {h00=0x001e, h01=0x0050, text=» STR A10,A14 PUT ON STACK «, t00=0x002b, t01=0x004e}
0x04392…043b6 Head {h00=0x0020, h01=0x0050, text=» LD A10,MUL,A13 RESTORE A10 «, t00=0x002b, t01=0x0070}
0x043b6…043c8 Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x002b, t01=0x0094}
0x043c8…043d0 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x00a6}
0x043d0…043d8 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x00ae}
0x043d8…043e0 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x00b6}
0x043e0…04420 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x00be}
0x04420…04460 Head {h00=0x003c, h01=0x0050, text=»* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * «, t00=0x002b, t01=0x00fe}
0x04460…044a0 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x013e}
0x044a0…044a8 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x017e}
0x044a8…044c0 Head {h00=0x0014, h01=0x0050, text=»JUMP ABL SYSLDM «, t00=0x002b, t01=0x0186}
0x044c0…044ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x000e}
0x044ce…044da Head {h00=0x0008, h01=0x0050, text=» «, t00=0x002c, t01=0x001c}
0x044da…04506 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002c, t01=0x0028}
0x04506…04532 Head {h00=0x0028, h01=0x0050, text=»** **«, t00=0x002c, t01=0x0054}
0x04532…0455e Head {h00=0x0028, h01=0x0050, text=»** SAVE, AND COMMUNICATION AREA **«, t00=0x002c, t01=0x0080}
0x0455e…0458a Head {h00=0x0028, h01=0x0050, text=»** **«, t00=0x002c, t01=0x00ac}
0x0458a…045b6 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002c, t01=0x00d8}
0x045b6…045c2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x002c, t01=0x0104}
0x045c2…045f0 Head {h00=0x002a, h01=0x0050, text=»T:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS «, t00=0x002c, t01=0x0110}
0x045f0…04600 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002c, t01=0x013e}
0x04600…0462e Head {h00=0x002a, h01=0x0050, text=»T:ATNW EQU *-REL T:ATAB 'NEW' ADDRESS «, t00=0x002c, t01=0x014e}
0x0462e…0463e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002c, t01=0x017c}
0x0463e…0466a Head {h00=0x0028, h01=0x0050, text=»U:BTOD EQU *-REL U:BTAB OLD ADDRESS «, t00=0x002c, t01=0x018c}
0x0466a…0467a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0028}
0x0467a…046a6 Head {h00=0x0028, h01=0x0050, text=»U:BTNW EQU *-REL U:BTAB NEW ADDRESS «, t00=0x002d, t01=0x0038}
0x046a6…046b6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0064}
0x046b6…046e2 Head {h00=0x0028, h01=0x0050, text=»S:BTOD EQU *-REL S:BTAB OLD ADDRESS «, t00=0x002d, t01=0x0074}
0x046e2…046f2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x00a0}
0x046f2…0471e Head {h00=0x0028, h01=0x0050, text=»S:BTNW EQU *-REL S:BTAB NEW ADDRESS «, t00=0x002d, t01=0x00b0}
0x0471e…0472e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x00dc}
0x0472e…04760 Head {h00=0x002e, h01=0x0050, text=»MOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE«, t00=0x002d, t01=0x00ec}
0x04760…04770 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x011e}
0x04770…047a8 Head {h00=0x0034, h01=0x0050, text=»MOVED EQU *-REL INDICATOR IF BLOCK ALREDY MOVED «, t00=0x002d, t01=0x012e}
0x047a8…047b8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0166}
0x047b8…047e6 Head {h00=0x002a, h01=0x0050, text=»ENDADD EQU *-REL END-ADDRESS INDICATOR«, t00=0x002d, t01=0x0176}
0x047e6…04804 Head {h00=0x001a, h01=0x0050, text=» FOR TABLE-SCANNING «, t00=0x002e, t01=0x0014}
0x04804…04814 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0032}
0x04814…04852 Head {h00=0x003a, h01=0x0050, text=»LSTADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART «, t00=0x002e, t01=0x0042}
0x04852…04862 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0080}
0x04862…048a6 Head {h00=0x0040, h01=0x0050, text=»FSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS «, t00=0x002e, t01=0x0090}
0x048a6…048b6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x00d4}
0x048b6…048e4 Head {h00=0x002a, h01=0x0050, text=»NEWAD1 EQU *-REL SAVE FOR W.B. ADDRESS«, t00=0x002e, t01=0x00e4}
0x048e4…048f4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0112}
0x048f4…04922 Head {h00=0x002a, h01=0x0050, text=»NEWAD2 EQU *-REL SAVE FORD.T. ADDRESS «, t00=0x002e, t01=0x0122}
0x04922…04932 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0150}
0x04932…0495a Head {h00=0x0024, h01=0x0050, text=»SWITCH EQU *-REL D.T. INDICATOR «, t00=0x002e, t01=0x0160}
0x0495a…0496a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0188}
0x0496a…049a4 Head {h00=0x0036, h01=0x0050, text=»FLAG EQU *-REL REAL TASK DATA PROCESSING INDICATOR«, t00=0x002f, t01=0x0008}
0x049a4…049b4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0042}
0x049b4…049da Head {h00=0x0022, h01=0x0050, text=»UWB EQU *-REL U.W.B. INDICATOR«, t00=0x002f, t01=0x0052}
0x049da…049ea Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0078}
0x049ea…04a14 Head {h00=0x0026, h01=0x0050, text=»APPTYP EQU *-REL APPLICATION TYPE «, t00=0x002f, t01=0x0088}
0x04a14…04a24 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x00b2}
0x04a24…04a4c Head {h00=0x0024, h01=0x0050, text=»SAVE01 EQU *-REL TEMPORARY SAVE «, t00=0x002f, t01=0x00c2}
0x04a4c…04a5c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x00ea}
0x04a5c…04a74 Head {h00=0x0014, h01=0x0050, text=»SAVE02 EQU *-REL«, t00=0x002f, t01=0x00fa}
0x04a74…04a84 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0112}
0x04a84…04a9c Head {h00=0x0014, h01=0x0050, text=»SAVE03 EQU *-REL«, t00=0x002f, t01=0x0122}
0x04a9c…04aac Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x013a}
0x04aac…04ac4 Head {h00=0x0014, h01=0x0050, text=»SAVE04 EQU *-REL«, t00=0x002f, t01=0x014a}
0x04ac4…04ad4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0162}
0x04ad4…04aec Head {h00=0x0014, h01=0x0050, text=»SAVE05 EQU *-REL«, t00=0x002f, t01=0x0172}
0x04aec…04afc Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x018a}
0x04afc…04b14 Head {h00=0x0014, h01=0x0050, text=»SAVE06 EQU *-REL«, t00=0x0030, t01=0x000a}
0x04b14…04b24 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0022}
0x04b24…04b3c Head {h00=0x0014, h01=0x0050, text=»SAVE07 EQU *-REL«, t00=0x0030, t01=0x0032}
0x04b3c…04b4c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x004a}
0x04b4c…04b64 Head {h00=0x0014, h01=0x0050, text=»SAVE08 EQU *-REL«, t00=0x0030, t01=0x005a}
0x04b64…04b74 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0072}
0x04b74…04b98 Head {h00=0x0020, h01=0x0050, text=»SAVE09 EQU *-REL SAVE AREAS «, t00=0x0030, t01=0x0082}
0x04b98…04ba8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00a6}
0x04ba8…04bc0 Head {h00=0x0014, h01=0x0050, text=»SAVE10 EQU *-REL«, t00=0x0030, t01=0x00b6}
0x04bc0…04bd0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00ce}
0x04bd0…04be8 Head {h00=0x0014, h01=0x0050, text=»SAVE11 EQU *-REL«, t00=0x0030, t01=0x00de}
0x04be8…04bf8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00f6}
0x04bf8…04c10 Head {h00=0x0014, h01=0x0050, text=»SAVE12 EQU *-REL«, t00=0x0030, t01=0x0106}
0x04c10…04c20 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x011e}
0x04c20…04c38 Head {h00=0x0014, h01=0x0050, text=»SAVE13 EQU *-REL«, t00=0x0030, t01=0x012e}
0x04c38…04c48 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0146}
0x04c48…04c60 Head {h00=0x0014, h01=0x0050, text=»SAVE22 EQU *-REL«, t00=0x0030, t01=0x0156}
0x04c60…04c70 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x016e}
0x04c70…04c88 Head {h00=0x0014, h01=0x0050, text=»SAVE25 EQU *-REL«, t00=0x0030, t01=0x017e}
0x04c88…04c98 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0008}
0x04c98…04cb0 Head {h00=0x0014, h01=0x0050, text=»SAVE26 EQU *-REL«, t00=0x0031, t01=0x0018}
0x04cb0…04cc0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0030}
0x04cc0…04cd8 Head {h00=0x0014, h01=0x0050, text=»SAVE27 EQU *-REL«, t00=0x0031, t01=0x0040}
0x04cd8…04ce8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0058}
0x04ce8…04d00 Head {h00=0x0014, h01=0x0050, text=»SAVE28 EQU *-REL«, t00=0x0031, t01=0x0068}
0x04d00…04d10 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0080}
0x04d10…04d28 Head {h00=0x0014, h01=0x0050, text=»SAVE29 EQU *-REL«, t00=0x0031, t01=0x0090}
0x04d28…04d38 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x00a8}
0x04d38…04d50 Head {h00=0x0014, h01=0x0050, text=»SAVE30 EQU *-REL«, t00=0x0031, t01=0x00b8}
0x04d50…04d60 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x00d0}
0x04d60…04d8a Head {h00=0x0026, h01=0x0050, text=»WBADD EQU *-REL W.B.-ADDRESS SAVE «, t00=0x0031, t01=0x00e0}
0x04d8a…04d9a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x010a}
0x04d9a…04dc8 Head {h00=0x002a, h01=0x0050, text=»MUL EQU *-REL MULTIPLICATION REGISTER «, t00=0x0031, t01=0x011a}
0x04dc8…04dd8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0148}
0x04dd8…04e02 Head {h00=0x0026, h01=0x0050, text=»BIT EQU *-REL SAVE FOR SUPER-LOOP «, t00=0x0031, t01=0x0158}
0x04e02…04e12 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0182}
0x04e12…04e4e (50, 0, 400) Head {h00=0x0038, h01=0x0050, text=»TADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS«, t00=0x0032, t01=0x0004}
0x04e4e…04e5e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x0040}
0x04e5e…04e8c Head {h00=0x002a, h01=0x0050, text=»DATEND EQU *-REL END OF DDIV PROTOTYPE«, t00=0x0032, t01=0x0050}
0x04e8c…04e9c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x007e}
0x04e9c…04ec8 Head {h00=0x0028, h01=0x0050, text=»MMREL1 EQU *-REL PHYSICALL PAGE BASE«, t00=0x0032, t01=0x008e}
0x04ec8…04ed8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x00ba}
0x04ed8…04f06 Head {h00=0x002a, h01=0x0050, text=»M:REL EQU *-REL RELOCATION FOR SYSLDM «, t00=0x0032, t01=0x00ca}
0x04f06…04f16 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x00f8}
0x04f16…04f2e Head {h00=0x0014, h01=0x0050, text=»SYSBUF EQU *-REL«, t00=0x0032, t01=0x0108}
0x04f2e…04f5c Head {h00=0x002a, h01=0x0050, text=» DATA 0 TEMPORARY BUFFER START ADDRESS«, t00=0x0032, t01=0x0120}
0x04f5c…04f86 Head {h00=0x0026, h01=0x0050, text=»BUFSIZ EQU *-REL TEMP. BUFFER SIZE«, t00=0x0032, t01=0x014e}
0x04f86…04f96 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x0178}
0x04f96…04fbc Head {h00=0x0022, h01=0x0050, text=»MMTO EQU *-REL MMTABLE ADDRESS«, t00=0x0032, t01=0x0188}
0x04fbc…04fcc Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0033, t01=0x001e}
0x04fcc…04ffa Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU *-REL 2:ND MMTABLE ADDRESS «, t00=0x0033, t01=0x002e}
0x04ffa…0500a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0033, t01=0x005c}
0x0500a…0503e Head {h00=0x0030, h01=0x0050, text=»FYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER«, t00=0x0033, t01=0x006c}
0x0503e…0504e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0033, t01=0x00a0}
0x0504e…05066 Head {h00=0x0014, h01=0x0050, text=»FSTPAG EQU *-REL«, t00=0x0033, t01=0x00b0}
0x05066…05092 Head {h00=0x0028, h01=0x0050, text=» DATA 0 FIRST FREE PAGE (PHYSICALL) «, t00=0x0033, t01=0x00c8}
0x05092…050be Head {h00=0x0028, h01=0x0050, text=»TTAB EQU *-REL CORRENT TTAB ADDRESS «, t00=0x0033, t01=0x00f4}
0x050be…050ce Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0033, t01=0x0120}
0x050ce…050e6 Head {h00=0x0014, h01=0x0050, text=»XMSAV EQU *-REL «, t00=0x0033, t01=0x0130}
0x050e6…050f8 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0033, t01=0x0148}
0x050f8…05110 Head {h00=0x0014, h01=0x0050, text=»LDALEN EQU *-REL«, t00=0x0033, t01=0x015a}
0x05110…05138 Head {h00=0x0024, h01=0x0050, text=» DATA LDAEND-REL PROGRAM LENGTH «, t00=0x0033, t01=0x0172}
0x05138…05140 Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x000a}
0x05140…05148 Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x0012}
0x05148…05150 Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x001a}
0x05150…0517a Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0034, t01=0x0022}
0x0517a…051a4 Head {h00=0x0026, h01=0x0050, text=»* EQUATES FOR SYSLDM SAVE-WORDS * «, t00=0x0034, t01=0x004c}
0x051a4…051ce Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0034, t01=0x0076}
0x051ce…051d6 Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x00a0}
0x051d6…051f0 Head {h00=0x0016, h01=0x0050, text=»SAVE14 EQU U:BTOD «, t00=0x0034, t01=0x00a8}
0x051f0…0520a Head {h00=0x0016, h01=0x0050, text=»SAVE15 EQU U:BTNW «, t00=0x0034, t01=0x00c2}
0x0520a…05224 Head {h00=0x0016, h01=0x0050, text=»SAVE16 EQU MOVADD «, t00=0x0034, t01=0x00dc}
0x05224…0523e Head {h00=0x0016, h01=0x0050, text=»SAVE17 EQU ENDADD «, t00=0x0034, t01=0x00f6}
0x0523e…05258 Head {h00=0x0016, h01=0x0050, text=»SAVE18 EQU LSTADR «, t00=0x0034, t01=0x0110}
0x05258…05272 Head {h00=0x0016, h01=0x0050, text=»SAVE19 EQU FSTADR «, t00=0x0034, t01=0x012a}
0x05272…0528a Head {h00=0x0014, h01=0x0050, text=»SAVE20 EQU MOVED«, t00=0x0034, t01=0x0144}
0x0528a…052a4 Head {h00=0x0016, h01=0x0050, text=»SAVE21 EQU NEWAD1 «, t00=0x0034, t01=0x015c}
0x052a4…052be Head {h00=0x0016, h01=0x0050, text=»SAVE23 EQU SWITCH «, t00=0x0034, t01=0x0176}
0x052be…052d6 Head {h00=0x0014, h01=0x0050, text=»SAVE24 EQU FLAG «, t00=0x0034, t01=0x0190}
0x052d6…052e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0018}
0x052e4…052ec Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x0026}
0x052ec…05302 Head {h00=0x0012, h01=0x0050, text=»* MMU TABLES *«, t00=0x0035, t01=0x002e}
0x05302…0530a Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x0044}
0x0530a…05312 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x004c}
0x05312…05344 Head {h00=0x002e, h01=0x0050, text=»MMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE «, t00=0x0035, t01=0x0054}
0x05344…0535a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0035, t01=0x0086}
0x0535a…0536a Head {h00=0x000c, h01=0x0050, text=» RES 16 «, t00=0x0035, t01=0x009c}
0x0536a…05376 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x00ac}
0x05376…0537e Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x00b8}
0x0537e…053a6 Head {h00=0x0024, h01=0x0050, text=»MMTAB EQU *-REL WORK AREA MM-TAB«, t00=0x0035, t01=0x00c0}
0x053a6…053ba Head {h00=0x0010, h01=0x0050, text=»TABBE EQU * «, t00=0x0035, t01=0x00e8}
0x053ba…053d0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0035, t01=0x00fc}
0x053d0…053ee Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0035, t01=0x0112}
0x053ee…0540c Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0035, t01=0x0130}
0x0540c…05418 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x014e}
0x05418…0542c Head {h00=0x0010, h01=0x0050, text=»MMEND EQU * «, t00=0x0035, t01=0x015a}
0x0542c…05458 Head {h00=0x0028, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE IN T:A «, t00=0x0035, t01=0x016e}
0x05458…05490 Head {h00=0x0034, h01=0x0050, text=»TTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB «, t00=0x0036, t01=0x000a}
0x05490…054c4 Head {h00=0x0030, h01=0x0050, text=»LSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER'«, t00=0x0036, t01=0x0042}
0x054c4…054d4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0036, t01=0x0076}
0x054d4…054dc Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x0086}
0x054dc…054f6 Head {h00=0x0016, h01=0x0050, text=»MMBEG EQU TABBE-* «, t00=0x0036, t01=0x008e}
0x054f6…05504 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x00a8}
0x05504…05510 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0036, t01=0x00b6}
0x05510…0554a Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x0036, t01=0x00c2}
0x0554a…05584 Head {h00=0x0036, h01=0x0050, text=»*** S U B R O U T I N E S *** «, t00=0x0036, t01=0x00fc}
0x05584…055be Head {h00=0x0036, h01=0x0050, text=»*** -COMMON TO ALL PARTS IN PROGRAM *** «, t00=0x0036, t01=0x0136}
0x055be…055f8 Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x0036, t01=0x0170}
0x055f8…05632 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0037, t01=0x001a}
0x05632…0566c Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0037, t01=0x0054}
0x0566c…05678 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0037, t01=0x008e}
0x05678…05684 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0037, t01=0x009a}
0x05684…056b4 Head {h00=0x002c, h01=0x0050, text=»** E R R O R **«, t00=0x0037, t01=0x00a6}
0x056b4…056e4 Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0037, t01=0x00d6}
0x056e4…05714 Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0037, t01=0x0106}
0x05714…05744 Head {h00=0x002c, h01=0x0050, text=»** ERROR HANDLING ROUTINE. **«, t00=0x0037, t01=0x0136}
0x05744…05774 Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0037, t01=0x0166}
0x05774…057a4 Head {h00=0x002c, h01=0x0050, text=»** INPUT :A1=SOP-MESSAGE **«, t00=0x0038, t01=0x0008}
0x057a4…057d4 Head {h00=0x002c, h01=0x0050, text=»** OUTPUT:A2=RELATIVE CALLING ADDRESS**«, t00=0x0038, t01=0x0038}
0x057d4…05804 Head {h00=0x002c, h01=0x0050, text=»** (REG-CONTENTS IS SAVED) **«, t00=0x0038, t01=0x0068}
0x05804…05834 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0038, t01=0x0098}
0x05834…0583c Head {h00=0x0004, h01=0x0050, t00=0x0038, t01=0x00c8}
0x0583c…05850 Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x0038, t01=0x00d0}
0x05850…05872 Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVE01,A13 SAVE A2 «, t00=0x0038, t01=0x00e4}
0x05872…058a4 Head {h00=0x002e, h01=0x0050, text=» LD A2,4,A14 GET CALLING ABSOLUTE ADDRESS «, t00=0x0038, t01=0x0106}
0x058a4…058c6 Head {h00=0x001e, h01=0x0050, text=» SUR A2,A13 RELATIVE DITO «, t00=0x0038, t01=0x0138}
0x058c6…058dc Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x0038, t01=0x015a}
0x058dc…058e8 Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x0038, t01=0x0170}
0x058e8…0590e Head {h00=0x0022, h01=0x0050, text=» DATA /6300 (DEBUGGING PURPOS)«, t00=0x0038, t01=0x017c}
0x0590e…0591c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0012}
0x0591c…05924 Head {h00=0x0004, h01=0x0050, t00=0x0039, t01=0x0020}
0x05924…0594e Head {h00=0x0026, h01=0x0050, text=»** M O V E ** «, t00=0x0039, t01=0x0028}
0x0594e…05978 Head {h00=0x0026, h01=0x0050, text=»** ** «, t00=0x0039, t01=0x0052}
0x05978…059a2 Head {h00=0x0026, h01=0x0050, text=»** ** «, t00=0x0039, t01=0x007c}
0x059a2…059cc Head {h00=0x0026, h01=0x0050, text=»** MOVE BLOCKS INSIDE MEMORY ** «, t00=0x0039, t01=0x00a6}
0x059cc…059f6 Head {h00=0x0026, h01=0x0050, text=»** ** «, t00=0x0039, t01=0x00d0}
0x059f6…05a20 Head {h00=0x0026, h01=0x0050, text=»** INPUT:A1=FROM-ADDRESS ** «, t00=0x0039, t01=0x00fa}
0x05a20…05a4a Head {h00=0x0026, h01=0x0050, text=»** A2=TO-ADDRESS ** «, t00=0x0039, t01=0x0124}
0x05a4a…05a74 Head {h00=0x0026, h01=0x0050, text=»** A3=LENGTH ** «, t00=0x0039, t01=0x014e}
0x05a74…05a9e Head {h00=0x0026, h01=0x0050, text=»** OUTPUT:A3=-1 ** «, t00=0x0039, t01=0x0178}
0x05a9e…05ac8 Head {h00=0x0026, h01=0x0050, text=»** WORK-REG: A4 ** «, t00=0x003a, t01=0x0012}
0x05ac8…05af2 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x003a, t01=0x003c}
0x05af2…05afe Head {h00=0x0008, h01=0x0050, text=» «, t00=0x003a, t01=0x0066}
0x05afe…05b10 Head {h00=0x000e, h01=0x0050, text=»MOVE EQU *«, t00=0x003a, t01=0x0072}
0x05b10…05b38 Head {h00=0x0024, h01=0x0050, text=»MOVES ADR A1,A3 END OF FROM AREA«, t00=0x003a, t01=0x0084}
0x05b38…05b5a Head {h00=0x001e, h01=0x0050, text=» ADR A2,A3 END OF TO-AREA «, t00=0x003a, t01=0x00ac}
0x05b5a…05b84 Head {h00=0x0026, h01=0x0050, text=» LD A4,SCTEFA GET END OF FREE AREA«, t00=0x003a, t01=0x00ce}
0x05b84…05ba2 Head {h00=0x001a, h01=0x0050, text=» TNM A2,A4 SIGN EQUAL?«, t00=0x003a, t01=0x00f8}
0x05ba2…05bbc Head {h00=0x0016, h01=0x0050, text=» RF(NN) MOVNN YES «, t00=0x003a, t01=0x0116}
0x05bbc…05be8 Head {h00=0x0028, h01=0x0050, text=» CWR A4,A2 COMPARE WHEN UNEQUAL SIGN«, t00=0x003a, t01=0x0130}
0x05be8…05bfa Head {h00=0x000e, h01=0x0050, text=» RF MOVCK «, t00=0x003a, t01=0x015c}
0x05bfa…05c2a Head {h00=0x002c, h01=0x0050, text=»MOVNN CWR A2,A4 COMPARE WHEN EQUAL SIGN «, t00=0x003a, t01=0x016e}
0x05c2a…05c66 Head {h00=0x0038, h01=0x0050, text=»MOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA«, t00=0x003b, t01=0x000e}
0x05c66…05c94 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x003b, t01=0x004a}
0x05c94…05ca8 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x003b, t01=0x0078}
0x05ca8…05cca Head {h00=0x001e, h01=0x0050, text=»MOVE10 SUK A3,1 DEC LENGTH«, t00=0x003b, t01=0x008c}
0x05cca…05ce8 Head {h00=0x001a, h01=0x0050, text=» RF(N) MOVE20 ALL DONE«, t00=0x003b, t01=0x00ae}
0x05ce8…05cfa Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003b, t01=0x00cc}
0x05cfa…05d0c Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003b, t01=0x00de}
0x05d0c…05d2c Head {h00=0x001c, h01=0x0050, text=» LCR A4,A1 GET CHARACTER«, t00=0x003b, t01=0x00f0}
0x05d2c…05d4e Head {h00=0x001e, h01=0x0050, text=» SCR A4,A2 STORE CHARACTER«, t00=0x003b, t01=0x0110}
0x05d4e…05d60 Head {h00=0x000e, h01=0x0050, text=» RB MOVE10«, t00=0x003b, t01=0x0132}
0x05d60…05d76 Head {h00=0x0012, h01=0x0050, text=»MOVE20 RTN A14«, t00=0x003b, t01=0x0144}
0x05d76…05d92 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x003b, t01=0x015a}
0x05d92…05da0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0176}
0x05da0…05dac Head {h00=0x0008, h01=0x0050, text=» «, t00=0x003b, t01=0x0184}
0x05dac…05db8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x003b, t01=0x0190}
0x05db8…05df0 Head {h00=0x0034, h01=0x0050, text=»** M O V I N G ** «, t00=0x003c, t01=0x000c}
0x05df0…05e28 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x003c, t01=0x0044}
0x05e28…05e60 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x003c, t01=0x007c}
0x05e60…05e98 Head {h00=0x0034, h01=0x0050, text=»** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** «, t00=0x003c, t01=0x00b4}
0x05e98…05ed0 Head {h00=0x0034, h01=0x0050, text=»** ASSUMED TO BE DATA-PART OF MEMORY ** «, t00=0x003c, t01=0x00ec}
0x05ed0…05f08 Head {h00=0x0034, h01=0x0050, text=»** LSTADR POINTS AT LAST (HIGHEST) FREE ** «, t00=0x003c, t01=0x0124}
0x05f08…05f40 Head {h00=0x0034, h01=0x0050, text=»** ADDRESS. LSTADR IS UPDATED AND CHECKED ** «, t00=0x003c, t01=0x015c}
0x05f40…05f78 (61, 0, 400) Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x003d, t01=0x0004}
0x05f78…05fb0 Head {h00=0x0034, h01=0x0050, text=»** INPUT:A3 & A1 AS IN 'MOVE' ** «, t00=0x003d, t01=0x003c}
0x05fb0…05fe8 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** «, t00=0x003d, t01=0x0074}
0x05fe8…06020 Head {h00=0x0034, h01=0x0050, text=»** WORK-REG: A4 ** «, t00=0x003d, t01=0x00ac}
0x06020…06058 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x003d, t01=0x00e4}
0x06058…06064 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x003d, t01=0x011c}
0x06064…06078 Head {h00=0x0010, h01=0x0050, text=»MOVING EQU *«, t00=0x003d, t01=0x0128}
0x06078…060a2 Head {h00=0x0026, h01=0x0050, text=» LD A2,LSTADR,A13 GET LAST ADDRESS«, t00=0x003d, t01=0x013c}
0x060a2…060c0 Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 SUB LENGTH «, t00=0x003d, t01=0x0166}
0x060c0…060e8 Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x003d, t01=0x0184}
0x060e8…0610c Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE01,A13 SAVE A11 «, t00=0x003e, t01=0x001c}
0x0610c…0612e Head {h00=0x001e, h01=0x0050, text=» ST A9,SAVE12,A13 SAVE A9 «, t00=0x003e, t01=0x0040}
0x0612e…06142 Head {h00=0x0010, h01=0x0050, text=» LDR A11,A2 «, t00=0x003e, t01=0x0062}
0x06142…06170 Head {h00=0x002a, h01=0x0050, text=» LD A9,DATEND,A13 END OF PROTOTYP AREA«, t00=0x003e, t01=0x0076}
0x06170…06196 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x003e, t01=0x00a4}
0x06196…061ac Head {h00=0x0012, h01=0x0050, text=» RF(NL) MOV020«, t00=0x003e, t01=0x00ca}
0x061ac…061d8 Head {h00=0x0028, h01=0x0050, text=»MOV010 LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x003e, t01=0x00e0}
0x061d8…061ec Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x003e, t01=0x010c}
0x061ec…06224 Head {h00=0x0034, h01=0x0050, text=»MOV020 LD A9,FSTADR,A13 CHECK FIRST FREE ADDRESS«, t00=0x003e, t01=0x0120}
0x06224…06238 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x003e, t01=0x0158}
0x06238…0624e Head {h00=0x0012, h01=0x0050, text=» RB(L) MOV010 «, t00=0x003e, t01=0x016c}
0x0624e…06274 Head {h00=0x0022, h01=0x0050, text=» ST A2,LSTADR,A13 NEW ADDRESS «, t00=0x003e, t01=0x0182}
0x06274…062a0 Head {h00=0x0028, h01=0x0050, text=» LD A9,SAVE12,A13 RESTORE REGISTERS «, t00=0x003f, t01=0x0018}
0x062a0…062ba Head {h00=0x0016, h01=0x0050, text=» LD A11,SAVE01,A13«, t00=0x003f, t01=0x0044}
0x062ba…062cc Head {h00=0x000e, h01=0x0050, text=» RB MOVES «, t00=0x003f, t01=0x005e}
0x062cc…062d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0070}
0x062d8…062f4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x003f, t01=0x007c}
0x062f4…06302 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0098}
0x06302…0630a Head {h00=0x0004, h01=0x0001, t00=0x003f, t01=0x00a6}
0x0630a…06342 Head {h00=0x0034, h01=0x0050, text=»** X M O V E **«, t00=0x003f, t01=0x00ae}
0x06342…0637a Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x003f, t01=0x00e6}
0x0637a…063b2 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x003f, t01=0x011e}
0x063b2…063ea Head {h00=0x0034, h01=0x0050, text=»** MOVE BLOCK INSIDE MEMORY VIA MMU **«, t00=0x003f, t01=0x0156}
0x063ea…06422 Head {h00=0x0034, h01=0x0050, text=»** TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) **«, t00=0x003f, t01=0x018e}
0x06422…0645a Head {h00=0x0034, h01=0x0050, text=»** -MOVE TO USER AREA **«, t00=0x0040, t01=0x0036}
0x0645a…06492 Head {h00=0x0034, h01=0x0050, text=»** IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT**«, t00=0x0040, t01=0x006e}
0x06492…064ca Head {h00=0x0034, h01=0x0050, text=»** BIG ENOUGH THE MOVE IS REPEATED **«, t00=0x0040, t01=0x00a6}
0x064ca…06502 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0040, t01=0x00de}
0x06502…0653a Head {h00=0x0034, h01=0x0050, text=»** INPUT :A1=FROM-ADDR(MMFROM=MM-TABLE ADDR.)**«, t00=0x0040, t01=0x0116}
0x0653a…06572 Head {h00=0x0034, h01=0x0050, text=»** A2=TO-ADDRESS (MMTO=MM-TABLE ADDR.)**«, t00=0x0040, t01=0x014e}
0x06572…065aa Head {h00=0x0034, h01=0x0050, text=»** A3=LENGTH (IN BYTES) **«, t00=0x0040, t01=0x0186}
0x065aa…065e2 Head {h00=0x0034, h01=0x0050, text=»** WORK.REGS:A4,A10 **«, t00=0x0041, t01=0x002e}
0x065e2…0661a Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0041, t01=0x0066}
0x0661a…06622 Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x009e}
0x06622…06636 Head {h00=0x0010, h01=0x0050, text=»XMOVE EQU * «, t00=0x0041, t01=0x00a6}
0x06636…06650 Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE09,A13 «, t00=0x0041, t01=0x00ba}
0x06650…0666a Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE07,A13 «, t00=0x0041, t01=0x00d4}
0x0666a…06684 Head {h00=0x0016, h01=0x0050, text=» ST A2,SAVE10,A13 «, t00=0x0041, t01=0x00ee}
0x06684…0669e Head {h00=0x0016, h01=0x0050, text=» ST A2,SAVE08,A13 «, t00=0x0041, t01=0x0108}
0x0669e…066b8 Head {h00=0x0016, h01=0x0050, text=» ST A3,SAVE11,A13 «, t00=0x0041, t01=0x0122}
0x066b8…066e2 Head {h00=0x0026, h01=0x0050, text=» ST A9,XMSAV,A13 SAVE A9 TEMPORARY«, t00=0x0041, t01=0x013c}
0x066e2…06710 Head {h00=0x002a, h01=0x0050, text=» ST A11,XMSAV+2,A13 SAVE A11 TEMPORARY«, t00=0x0041, t01=0x0166}
0x06710…06724 (66, 0, 400) Head {h00=0x0010, h01=0x0050, text=»XMOV05 EQU *«, t00=0x0042, t01=0x0004}
0x06724…06744 Head {h00=0x001c, h01=0x0017, text=» LDR A10,A3 SAVE LENGTH «, t00=0x0042, t01=0x0018}
0x06744…06774 Head {h00=0x002c, h01=0x0028, text=» LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER«, t00=0x0042, t01=0x0038}
0x06774…067a2 Head {h00=0x002a, h01=0x0050, text=» LDR A11,A3 GET LENGTH OF AREA TO MOVE«, t00=0x0042, t01=0x0068}
0x067a2…067d6 Head {h00=0x0030, h01=0x0050, text=» LD A9,BUFSIZ,A13 GET TEMPORARY BUFFER SIZE «, t00=0x0042, t01=0x0096}
0x067d6…06808 Head {h00=0x002e, h01=0x0050, text=» CALL CMPADR TEMPORARY BUFFER BIG ENOUGTH «, t00=0x0042, t01=0x00ca}
0x06808…0682e Head {h00=0x0022, h01=0x001d, text=» RF(G) SPLIT NO! SEVERAL MOVE «, t00=0x0042, t01=0x00fc}
0x0682e…06852 Head {h00=0x0020, h01=0x0050, text=»XMOV10 LDR A3,A10 GET LENGTH«, t00=0x0042, t01=0x0122}
0x06852…0687c Head {h00=0x0026, h01=0x0050, text=» LD A1,SAVE09,A13 GET FROM ADDRESS«, t00=0x0042, t01=0x0146}
0x0687c…068b4 Head {h00=0x0034, h01=0x0050, text=» LD A2,SYSBUF,A13 GET TEMP. BUFFER START-ADDRESS«, t00=0x0042, t01=0x0170}
0x068b4…068dc Head {h00=0x0024, h01=0x0050, text=» TL* MMFROM,A13 LOAD FROM-TABLE «, t00=0x0043, t01=0x0018}
0x068dc…0690c Head {h00=0x002c, h01=0x0028, text=» MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER«, t00=0x0043, t01=0x0040}
0x0690c…06940 Head {h00=0x0030, h01=0x0050, text=» ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS«, t00=0x0043, t01=0x0070}
0x06940…0695a Head {h00=0x0016, h01=0x0050, text=» LD A1,SYSBUF,A13 «, t00=0x0043, t01=0x00a4}
0x0695a…0698e Head {h00=0x0030, h01=0x0050, text=» LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS «, t00=0x0043, t01=0x00be}
0x0698e…069ac Head {h00=0x001a, h01=0x0016, text=» LDR A3,A10 GET LENGTH«, t00=0x0043, t01=0x00f2}
0x069ac…069d0 Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0043, t01=0x0110}
0x069d0…069fc Head {h00=0x0028, h01=0x0024, text=» MVSU A3 MOVE DATA-BLOCK FROM BUFFER«, t00=0x0043, t01=0x0134}
0x069fc…06a22 Head {h00=0x0022, h01=0x001d, text=» SUK A4,1 MORE PARTS TO MOVE? «, t00=0x0043, t01=0x0160}
0x06a22…06a3c Head {h00=0x0016, h01=0x0050, text=» RF(N) XMOV30 NO! «, t00=0x0043, t01=0x0186}
0x06a3c…06a50 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A10 «, t00=0x0044, t01=0x0010}
0x06a50…06a84 Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS«, t00=0x0044, t01=0x0024}
0x06a84…06ab2 Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE11,A13 GET REQUESTED LENGTH«, t00=0x0044, t01=0x0058}
0x06ab2…06ada Head {h00=0x0024, h01=0x001f, text=» SUR A3,A10 SUBTRACT MOVED PART «, t00=0x0044, t01=0x0086}
0x06ada…06af8 Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE11,A13 SAVE«, t00=0x0044, t01=0x00ae}
0x06af8…06b0c Head {h00=0x0010, h01=0x0050, text=» CWR A3,A10 «, t00=0x0044, t01=0x00cc}
0x06b0c…06b22 Head {h00=0x0012, h01=0x0050, text=» RB(NL) XMOV10«, t00=0x0044, t01=0x00e0}
0x06b22…06b42 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A3 LAST LENGTH «, t00=0x0044, t01=0x00f6}
0x06b42…06b54 Head {h00=0x000e, h01=0x0050, text=» RB XMOV10«, t00=0x0044, t01=0x0116}
0x06b54…06b62 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0044, t01=0x0128}
0x06b62…06b6a Head {h00=0x0004, h01=0x0001, t00=0x0044, t01=0x0136}
0x06b6a…06b7e Head {h00=0x0010, h01=0x000b, text=»SPLIT EQU * «, t00=0x0044, t01=0x013e}
0x06b7e…06ba2 Head {h00=0x0020, h01=0x001c, text=» LDK A1,0 RESET DIVISION REG«, t00=0x0044, t01=0x0152}
0x06ba2…06bc0 Head {h00=0x001a, h01=0x0016, text=» LDR A2,A3 GET DIVISOR«, t00=0x0044, t01=0x0176}
0x06bc0…06be2 (69, 0, 400) Head {h00=0x001e, h01=0x0019, text=» DV BUFSIZ,A13 AND DIVIDE «, t00=0x0045, t01=0x0004}
0x06be2…06c18 Head {h00=0x0032, h01=0x0050, text=» LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1)«, t00=0x0045, t01=0x0026}
0x06c18…06c42 Head {h00=0x0026, h01=0x0022, text=» LD A10,BUFSIZ,A13 MOVE MAX LENGTH«, t00=0x0045, t01=0x005c}
0x06c42…06c54 Head {h00=0x000e, h01=0x0050, text=» RB XMOV10«, t00=0x0045, t01=0x0086}
0x06c54…06c5c Head {h00=0x0004, h01=0x0001, t00=0x0045, t01=0x0098}
0x06c5c…06c90 Head {h00=0x0030, h01=0x0050, text=»XMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS'«, t00=0x0045, t01=0x00a0}
0x06c90…06cc0 Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS'«, t00=0x0045, t01=0x00d4}
0x06cc0…06ce4 Head {h00=0x0020, h01=0x0050, text=» LD A9,XMSAV,A13 RESTORE A9 «, t00=0x0045, t01=0x0104}
0x06ce4…06d0c Head {h00=0x0024, h01=0x0050, text=» LD A11,XMSAV+2,A13 RESTORE A11 «, t00=0x0045, t01=0x0128}
0x06d0c…06d1c Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0045, t01=0x0150}
0x06d1c…06d2a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0045, t01=0x0160}
0x06d2a…06d32 Head {h00=0x0004, h01=0x0001, t00=0x0045, t01=0x016e}
0x06d32…06d6a Head {h00=0x0034, h01=0x0050, text=»** M O V I N G ** «, t00=0x0045, t01=0x0176}
0x06d6a…06da2 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0046, t01=0x001e}
0x06da2…06dda Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0046, t01=0x0056}
0x06dda…06e12 Head {h00=0x0034, h01=0x0050, text=»** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** «, t00=0x0046, t01=0x008e}
0x06e12…06e4a Head {h00=0x0034, h01=0x0050, text=»** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** «, t00=0x0046, t01=0x00c6}
0x06e4a…06e82 Head {h00=0x0034, h01=0x0050, text=»** IS ALWAYS ASSUMED TO BE DATA PART OF ** «, t00=0x0046, t01=0x00fe}
0x06e82…06eba Head {h00=0x0034, h01=0x0050, text=»** MEMORY. LSTADR & FYSPAG POINTS AT LAST ** «, t00=0x0046, t01=0x0136}
0x06eba…06ef2 Head {h00=0x0034, h01=0x0050, text=»** (HIGHEST) FREE ADDRESS. LSTADR &FYSPAG ** «, t00=0x0046, t01=0x016e}
0x06ef2…06f2a Head {h00=0x0034, h01=0x0050, text=»** IS UPDATED AND CHECKED. ** «, t00=0x0047, t01=0x0016}
0x06f2a…06f62 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0047, t01=0x004e}
0x06f62…06f9a Head {h00=0x0034, h01=0x0050, text=»** INPUT :A1 & A3 AS IN 'XMOVE' ** «, t00=0x0047, t01=0x0086}
0x06f9a…06fd2 Head {h00=0x0034, h01=0x0050, text=»** TTAB=POINTER TO TTAB (OR LIKELY) ** «, t00=0x0047, t01=0x00be}
0x06fd2…0700a Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A2=LOGICALL TO-ADDRESS ** «, t00=0x0047, t01=0x00f6}
0x0700a…07042 Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS: A4,A10 ** «, t00=0x0047, t01=0x012e}
0x07042…0707a Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0047, t01=0x0166}
0x0707a…07082 Head {h00=0x0004, h01=0x0050, t00=0x0048, t01=0x000e}
0x07082…07096 Head {h00=0x0010, h01=0x0050, text=»MOVING EQU *«, t00=0x0048, t01=0x0016}
0x07096…070ba Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE01,A13 SAVE A11 «, t00=0x0048, t01=0x002a}
0x070ba…070dc Head {h00=0x001e, h01=0x0050, text=» ST A9,SAVE12,A13 SAVE A9 «, t00=0x0048, t01=0x004e}
0x070dc…0710e Head {h00=0x002e, h01=0x0029, text=» LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE «, t00=0x0048, t01=0x0070}
0x0710e…07138 Head {h00=0x0026, h01=0x0050, text=» LD A10,TTAB,A13 LOAD TTAB-ADDRESS«, t00=0x0048, t01=0x00a2}
0x07138…0716e Head {h00=0x0032, h01=0x002e, text=» LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB«, t00=0x0048, t01=0x00cc}
0x0716e…07194 Head {h00=0x0022, h01=0x001d, text=» LDR* A9,A2 GET PAGE IN TABLE «, t00=0x0048, t01=0x0102}
0x07194…071aa Head {h00=0x0012, h01=0x0050, text=» ANKL A9,/FC00«, t00=0x0048, t01=0x0128}
0x071aa…071d8 Head {h00=0x002a, h01=0x0025, text=» CWR A9,A4 CORRECT PAGE IN MMU-TABLE? «, t00=0x0048, t01=0x013e}
0x071d8…071f2 Head {h00=0x0016, h01=0x0050, text=» RF(E) MOV010 YES!«, t00=0x0048, t01=0x016c}
0x071f2…0721c Head {h00=0x0026, h01=0x0050, text=» ADKL A4,/400 ADJUST FOR 'SETTAB' «, t00=0x0048, t01=0x0186}
0x0721c…07244 Head {h00=0x0024, h01=0x0050, text=» CALL SETTAB NEW PAGE IN TABLE! «, t00=0x0049, t01=0x0020}
0x07244…0727e Head {h00=0x0036, h01=0x0050, text=»MOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS«, t00=0x0049, t01=0x0048}
0x0727e…07294 Head {h00=0x0012, h01=0x000e, text=» ANKL A11,/FFF«, t00=0x0049, t01=0x0082}
0x07294…072c2 Head {h00=0x002a, h01=0x0050, text=» LDR A9,A3 GET LENGTH OF AREA TO MOVE «, t00=0x0049, t01=0x0098}
0x072c2…072f6 Head {h00=0x0030, h01=0x0050, text=» CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? «, t00=0x0049, t01=0x00c6}
0x072f6…07312 Head {h00=0x0018, h01=0x0050, text=» RF(NL) MOV020 YES! «, t00=0x0049, t01=0x00fa}
0x07312…07342 Head {h00=0x002c, h01=0x0050, text=» SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE«, t00=0x0049, t01=0x0116}
0x07342…0735e Head {h00=0x0018, h01=0x0050, text=»MOV015 RF(NP) MOV025«, t00=0x0049, t01=0x0146}
0x0735e…0738c Head {h00=0x002a, h01=0x0050, text=» CALL SETTAB INITIALIZE NEW PAGE ENTRY«, t00=0x0049, t01=0x0162}
0x0738c…073ba Head {h00=0x002a, h01=0x0050, text=» ADKL A11,4096 PHYSICAL PAGE INCREMENT«, t00=0x0049, t01=0x0190}
0x073ba…073cc Head {h00=0x000e, h01=0x0050, text=» RB MOV015«, t00=0x004a, t01=0x002e}
0x073cc…07402 Head {h00=0x0032, h01=0x0050, text=»MOV020 SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE«, t00=0x004a, t01=0x0040}
0x07402…0741e Head {h00=0x0018, h01=0x0050, text=»MOV025 RF(NN) MOV050«, t00=0x004a, t01=0x0076}
0x0741e…0744c Head {h00=0x002a, h01=0x0050, text=»MOV030 CALL SETTAB NEW PAGE IN TABLE! «, t00=0x004a, t01=0x0092}
0x0744c…07476 Head {h00=0x0026, h01=0x0021, text=» ADKL A11,4096 NEW PAGE INCREMENT «, t00=0x004a, t01=0x00c0}
0x07476…074a2 Head {h00=0x0028, h01=0x0050, text=» RB(N) MOV030 NOT ENOUGH. NEW PAGE! «, t00=0x004a, t01=0x00ea}
0x074a2…074aa Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0116}
0x074aa…074d6 Head {h00=0x0028, h01=0x0050, text=»* MM-TABLE CORRECT. SAVE ADDRESSES *«, t00=0x004a, t01=0x011e}
0x074d6…074de Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x014a}
0x074de…07500 Head {h00=0x001e, h01=0x0050, text=»* A4=PHYSICALL PAGE NUMBER«, t00=0x004a, t01=0x0152}
0x07500…07524 Head {h00=0x0020, h01=0x0050, text=»* A11=DISPLACEM. WITHIN PAGE«, t00=0x004a, t01=0x0174}
0x07524…0754a Head {h00=0x0022, h01=0x0050, text=»* A2=CURRENT ENTRY IN MM-TABLE«, t00=0x004b, t01=0x0008}
0x0754a…07552 Head {h00=0x0004, h01=0x0001, t00=0x004b, t01=0x002e}
0x07552…07566 Head {h00=0x0010, h01=0x0050, text=»MOV050 EQU *«, t00=0x004b, t01=0x0036}
0x07566…07596 Head {h00=0x002c, h01=0x0028, text=» ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB«, t00=0x004b, t01=0x004a}
0x07596…075ca Head {h00=0x0030, h01=0x002c, text=» ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER«, t00=0x004b, t01=0x007a}
0x075ca…07602 Head {h00=0x0034, h01=0x0050, text=» LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. «, t00=0x004b, t01=0x00ae}
0x07602…0762c Head {h00=0x0026, h01=0x0022, text=» ADR A4,A10 ABSOLUTE ENTRY ADDRESS«, t00=0x004b, t01=0x00e6}
0x0762c…07656 Head {h00=0x0026, h01=0x0050, text=» ST A4,MMTO,A13 SAVE TABLE ADDRESS«, t00=0x004b, t01=0x0110}
0x07656…0767a Head {h00=0x0020, h01=0x001b, text=» SUR A2,A4 RELATIVE ADDRESS «, t00=0x004b, t01=0x013a}
0x0767a…076b0 Head {h00=0x0032, h01=0x0050, text=» SLL A2,11 SHIFT TO FOUR FIRST BITS & DIV BY 2«, t00=0x004b, t01=0x015e}
0x076b0…076de (76, 0, 400) Head {h00=0x002a, h01=0x0050, text=» ORR A2,A11 GET DISPLACEM. WITHIN PAGE«, t00=0x004c, t01=0x0004}
0x076de…07702 Head {h00=0x0020, h01=0x0050, text=» ANKL A2,/FFFE EVEN ADDRESS «, t00=0x004c, t01=0x0032}
0x07702…07732 Head {h00=0x002c, h01=0x0027, text=» ST A2,LSTADR,A13 SAVE LOGICALL ADDRESS «, t00=0x004c, t01=0x0056}
0x07732…0774e Head {h00=0x0018, h01=0x0050, text=»* CHECK ADDRESSES * «, t00=0x004c, t01=0x0086}
0x0774e…07756 Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x00a2}
0x07756…07784 Head {h00=0x002a, h01=0x0050, text=» LD A9,FSTPAG,A13 GET FIRST FREE PAGE «, t00=0x004c, t01=0x00aa}
0x07784…077a8 Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE07,A13 SAVE A11 «, t00=0x004c, t01=0x00d8}
0x077a8…077c2 Head {h00=0x0016, h01=0x0050, text=» LD A11,FYSPAG,A13«, t00=0x004c, t01=0x00fc}
0x077c2…077e2 Head {h00=0x001c, h01=0x0050, text=» CALL CMPADR AND COMPARE«, t00=0x004c, t01=0x0116}
0x077e2…077fc Head {h00=0x0016, h01=0x0050, text=» RF(G) MOV090 OK! «, t00=0x004c, t01=0x0136}
0x077fc…07816 Head {h00=0x0016, h01=0x0050, text=» RF(L) MOV070 NOK!«, t00=0x004c, t01=0x0150}
0x07816…07840 Head {h00=0x0026, h01=0x0050, text=» LD A11,SAVE07,A13 RESTORE DISPL. «, t00=0x004c, t01=0x016a}
0x07840…0785a (77, 0, 400) Head {h00=0x0016, h01=0x0050, text=» LD A9,FSTADR,A13 «, t00=0x004d, t01=0x0004}
0x0785a…0786e Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x004d, t01=0x001e}
0x0786e…07888 Head {h00=0x0016, h01=0x0050, text=» RF(NL) MOV090 OK!«, t00=0x004d, t01=0x0032}
0x07888…078a4 Head {h00=0x0018, h01=0x0050, text=»MOV070 LDKL A1,LMP3 «, t00=0x004d, t01=0x004c}
0x078a4…078b8 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004d, t01=0x0068}
0x078b8…078cc Head {h00=0x0010, h01=0x0050, text=»MOV090 EQU *«, t00=0x004d, t01=0x007c}
0x078cc…078e4 Head {h00=0x0014, h01=0x0050, text=» CALL XMOVE MOVE«, t00=0x004d, t01=0x0090}
0x078e4…078fe Head {h00=0x0016, h01=0x0050, text=» LD A9,SAVE12,A13 «, t00=0x004d, t01=0x00a8}
0x078fe…0792a Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 RESTORE REGISTERS«, t00=0x004d, t01=0x00c2}
0x0792a…07952 Head {h00=0x0024, h01=0x0050, text=» TL* MMFROM,A13 RESTORE MM-TABLE«, t00=0x004d, t01=0x00ee}
0x07952…07962 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x004d, t01=0x0116}
0x07962…07970 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x004d, t01=0x0126}
0x07970…07978 Head {h00=0x0004, h01=0x0001, t00=0x004d, t01=0x0134}
0x07978…079b2 Head {h00=0x0036, h01=0x0050, text=»** S E T T A B ** «, t00=0x004d, t01=0x013c}
0x079b2…079ec Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x004d, t01=0x0176}
0x079ec…07a26 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x004e, t01=0x0020}
0x07a26…07a60 Head {h00=0x0036, h01=0x0050, text=»** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** «, t00=0x004e, t01=0x005a}
0x07a60…07a9a Head {h00=0x0036, h01=0x0050, text=»** OVERFLOW. ** «, t00=0x004e, t01=0x0094}
0x07a9a…07ad4 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x004e, t01=0x00ce}
0x07ad4…07b0e Head {h00=0x0036, h01=0x0050, text=»** INPUT :A2-ADDRESS TO CURRENT ENTRY ** «, t00=0x004e, t01=0x0108}
0x07b0e…07b48 Head {h00=0x0036, h01=0x0050, text=»** A4=PHYSICALL PAGE ** «, t00=0x004e, t01=0x0142}
0x07b48…07b82 Head {h00=0x0036, h01=0x0050, text=»** OUTPUT:A2 & A4 IS UPDATED ** «, t00=0x004e, t01=0x017c}
0x07b82…07bbc Head {h00=0x0036, h01=0x0050, text=»** WORK.REG: A9 ** «, t00=0x004f, t01=0x0026}
0x07bbc…07bf6 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x004f, t01=0x0060}
0x07bf6…07bfe Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x009a}
0x07bfe…07c12 Head {h00=0x0010, h01=0x0050, text=»SETTAB EQU *«, t00=0x004f, t01=0x00a2}
0x07c12…07c36 Head {h00=0x0020, h01=0x001b, text=» SUKL A4,/400 GET NEXT PAGE «, t00=0x004f, t01=0x00b6}
0x07c36…07c56 Head {h00=0x001c, h01=0x0018, text=» SUK A2,2 GET NEXT ENTRY«, t00=0x004f, t01=0x00da}
0x07c56…07c5e Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x00fa}
0x07c5e…07c84 Head {h00=0x0022, h01=0x0050, text=»* CHECK IF MM-TABLE OVERFLOW *«, t00=0x004f, t01=0x0102}
0x07c84…07c8c Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x0128}
0x07c8c…07cb8 Head {h00=0x0028, h01=0x0050, text=» LDR A9,A10 GET END-ADDRESS A10=TTAB«, t00=0x004f, t01=0x0130}
0x07cb8…07cce Head {h00=0x0012, h01=0x0050, text=» ADKL A9,MMBEG«, t00=0x004f, t01=0x015c}
0x07cce…07cf4 Head {h00=0x0022, h01=0x0050, text=» TNM A2,A9 32-KB BOARDER CHECK«, t00=0x004f, t01=0x0172}
0x07cf4…07d0a Head {h00=0x0012, h01=0x0050, text=» RF(NN) SETT00«, t00=0x0050, t01=0x0008}
0x07d0a…07d1c Head {h00=0x000e, h01=0x0050, text=» CWR A9,A2«, t00=0x0050, t01=0x001e}
0x07d1c…07d2e Head {h00=0x000e, h01=0x0050, text=» RF SETT05«, t00=0x0050, t01=0x0030}
0x07d2e…07d50 Head {h00=0x001e, h01=0x0050, text=»SETT00 CWR A2,A9 OVERFLOW?«, t00=0x0050, t01=0x0042}
0x07d50…07d70 Head {h00=0x001c, h01=0x0050, text=»SETT05 RF(NL) SETT10 NO «, t00=0x0050, t01=0x0064}
0x07d70…07d84 Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP7«, t00=0x0050, t01=0x0084}
0x07d84…07d98 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0050, t01=0x0098}
0x07d98…07dac Head {h00=0x0010, h01=0x0050, text=»SETT10 EQU *«, t00=0x0050, t01=0x00ac}
0x07dac…07dce Head {h00=0x001e, h01=0x0019, text=» STR A4,A2 STORE IN TABLE «, t00=0x0050, t01=0x00c0}
0x07dce…07dde Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0050, t01=0x00e2}
0x07dde…07dea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x00f2}
0x07dea…07e00 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0050, t01=0x00fe}
0x07e00…07e0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0114}
0x07e0e…07e1a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0050, t01=0x0122}
0x07e1a…07e52 Head {h00=0x0034, h01=0x0050, text=»** G E T W B ** «, t00=0x0050, t01=0x012e}
0x07e52…07e8a Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0050, t01=0x0166}
0x07e8a…07ec2 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0051, t01=0x000e}
0x07ec2…07efa Head {h00=0x0034, h01=0x0050, text=»** GET WORK BLOCK ADDRESS AND DISPLACE- ** «, t00=0x0051, t01=0x0046}
0x07efa…07f32 Head {h00=0x0034, h01=0x0050, text=»** MENT IN T:A ** «, t00=0x0051, t01=0x007e}
0x07f32…07f6a Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0051, t01=0x00b6}
0x07f6a…07fa2 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** «, t00=0x0051, t01=0x00ee}
0x07fa2…07fda Head {h00=0x0034, h01=0x0050, text=»** BIT=BIT NUMBER SAT IN MASK (0-15)** «, t00=0x0051, t01=0x0126}
0x07fda…08012 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A4=W.B. DISPLACEMENT IN T:A ** «, t00=0x0051, t01=0x015e}
0x08012…0804a Head {h00=0x0034, h01=0x0050, text=»** TADISP=A4 ** «, t00=0x0052, t01=0x0008}
0x0804a…08082 Head {h00=0x0034, h01=0x0050, text=»** A11=W.B.-ADDRESS ** «, t00=0x0052, t01=0x0040}
0x08082…080ba Head {h00=0x0034, h01=0x0050, text=»** WBADD=POINTER TO W.B.-ADD IN T:A ** «, t00=0x0052, t01=0x0078}
0x080ba…080f2 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0052, t01=0x00b0}
0x080f2…080fe Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0052, t01=0x00e8}
0x080fe…08112 Head {h00=0x0010, h01=0x0050, text=»GETWB EQU * «, t00=0x0052, t01=0x00f4}
0x08112…08138 Head {h00=0x0022, h01=0x0050, text=» LD A4,BIT,A13 GET BIT NUMBER «, t00=0x0052, t01=0x0108}
0x08138…08160 Head {h00=0x0024, h01=0x0050, text=» SLL A4,2 ADJUST FOR ADDRESSING «, t00=0x0052, t01=0x012e}
0x08160…08178 Head {h00=0x0014, h01=0x0050, text=» ADK A4,WATFST+2«, t00=0x0052, t01=0x0156}
0x08178…081a4 Head {h00=0x0028, h01=0x0050, text=» ST A4,TADISP,A13 SAVE DISPLACEMENT «, t00=0x0052, t01=0x016e}
0x081a4…081c0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0053, t01=0x000a}
0x081c0…081e4 Head {h00=0x0020, h01=0x0050, text=» LDR* A11,A8 GET T:A-ADDRESS«, t00=0x0053, t01=0x0026}
0x081e4…08208 Head {h00=0x0020, h01=0x0050, text=» ADR A11,A4 ADD DISPLACEMENT«, t00=0x0053, t01=0x004a}
0x08208…08226 Head {h00=0x001a, h01=0x0050, text=» ST A11,WBADD,A13 SAVE«, t00=0x0053, t01=0x006e}
0x08226…0824c Head {h00=0x0022, h01=0x0050, text=» LDR* A11,A11 GET W.B.-ADDRESS«, t00=0x0053, t01=0x008c}
0x0824c…08258 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x00b2}
0x08258…08274 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0053, t01=0x00be}
0x08274…082a8 Head {h00=0x0030, h01=0x0050, text=» LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? «, t00=0x0053, t01=0x00da}
0x082a8…082c2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) GETW10 NO! «, t00=0x0053, t01=0x010e}
0x082c2…082e6 Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0053, t01=0x0128}
0x082e6…08310 Head {h00=0x0026, h01=0x0050, text=»GETW10 ELR A11,A8 GET T:A-ADDRESS «, t00=0x0053, t01=0x014c}
0x08310…08334 Head {h00=0x0020, h01=0x0050, text=» ADR A11,A4 ADD DISPLACEMENT«, t00=0x0053, t01=0x0176}
0x08334…08352 Head {h00=0x001a, h01=0x0050, text=» ST A11,WBADD,A13 SAVE«, t00=0x0054, t01=0x000a}
0x08352…08378 Head {h00=0x0022, h01=0x0050, text=» ELR A11,A11 GET W.B.-ADDRESS «, t00=0x0054, t01=0x0028}
0x08378…083a2 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0054, t01=0x004e}
0x083a2…083ae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0078}
0x083ae…083c4 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0054, t01=0x0084}
0x083c4…083d4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0054, t01=0x009a}
0x083d4…083e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x00aa}
0x083e2…083ee Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0054, t01=0x00b8}
0x083ee…083fa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0054, t01=0x00c4}
0x083fa…08436 Head {h00=0x0038, h01=0x0050, text=»** M O V W B **«, t00=0x0054, t01=0x00d0}
0x08436…08472 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0054, t01=0x010c}
0x08472…084ae Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0054, t01=0x0148}
0x084ae…084ea Head {h00=0x0038, h01=0x0050, text=»** MOVE WORK-BLOCK. W.B.-ADDRESS IS UPDATED **«, t00=0x0054, t01=0x0184}
0x084ea…08526 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0055, t01=0x0030}
0x08526…08562 Head {h00=0x0038, h01=0x0050, text=»** INPUT: A11=W.B.-ADDRESS **«, t00=0x0055, t01=0x006c}
0x08562…0859e Head {h00=0x0038, h01=0x0050, text=»** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS **«, t00=0x0055, t01=0x00a8}
0x0859e…085da Head {h00=0x0038, h01=0x0050, text=»** WORK-REGS: A1-A4 **«, t00=0x0055, t01=0x00e4}
0x085da…08616 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0055, t01=0x0120}
0x08616…08622 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0055, t01=0x015c}
0x08622…08636 Head {h00=0x0010, h01=0x0050, text=»MOVWB EQU * «, t00=0x0055, t01=0x0168}
0x08636…08656 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A11 GET ADDRESS «, t00=0x0055, t01=0x017c}
0x08656…0867a Head {h00=0x0020, h01=0x0050, text=» ADKL A1,WBLEN FROM-ADDRESS «, t00=0x0056, t01=0x000c}
0x0867a…08696 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0056, t01=0x0030}
0x08696…086b0 Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A1 LENGTH«, t00=0x0056, t01=0x004c}
0x086b0…086c4 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0056, t01=0x0066}
0x086c4…086fe Head {h00=0x0036, h01=0x0050, text=» SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT «, t00=0x0056, t01=0x007a}
0x086fe…08736 Head {h00=0x0034, h01=0x0050, text=» ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE«, t00=0x0056, t01=0x00b4}
0x08736…08742 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x00ec}
0x08742…0875e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0056, t01=0x00f8}
0x0875e…08778 Head {h00=0x0016, h01=0x0050, text=» ELR A3,A1 LENGTH «, t00=0x0056, t01=0x0114}
0x08778…0878c Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0056, t01=0x012e}
0x0878c…087c6 Head {h00=0x0036, h01=0x0050, text=» SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT «, t00=0x0056, t01=0x0142}
0x087c6…087f8 Head {h00=0x002e, h01=0x0050, text=» LD A4,FLAG,A13 REAL DATA-PART PROCESSING?«, t00=0x0056, t01=0x017c}
0x087f8…08812 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVW10 NO! «, t00=0x0057, t01=0x001e}
0x08812…08836 Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0057, t01=0x0038}
0x08836…08874 Head {h00=0x003a, h01=0x0050, text=»MOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE«, t00=0x0057, t01=0x005c}
0x08874…0889e Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0057, t01=0x009a}
0x0889e…088aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x00c4}
0x088aa…088c0 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0057, t01=0x00d0}
0x088c0…088d0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0057, t01=0x00e6}
0x088d0…088de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x00f6}
0x088de…088ea Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0057, t01=0x0104}
0x088ea…088f6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0057, t01=0x0110}
0x088f6…08934 Head {h00=0x003a, h01=0x0050, text=»** M O V D T ** «, t00=0x0057, t01=0x011c}
0x08934…08972 Head {h00=0x003a, h01=0x0050, text=»** ** «, t00=0x0057, t01=0x015a}
0x08972…089b0 Head {h00=0x003a, h01=0x0050, text=»** ** «, t00=0x0058, t01=0x0008}
0x089b0…089ee Head {h00=0x003a, h01=0x0050, text=»** MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** «, t00=0x0058, t01=0x0046}
0x089ee…08a2c Head {h00=0x003a, h01=0x0050, text=»** ** «, t00=0x0058, t01=0x0084}
0x08a2c…08a6a Head {h00=0x003a, h01=0x0050, text=»** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** «, t00=0x0058, t01=0x00c2}
0x08a6a…08aa8 Head {h00=0x003a, h01=0x0050, text=»** OUTPUT: A3=POINTER TO W.B.-ADDRESS ** «, t00=0x0058, t01=0x0100}
0x08aa8…08ae6 Head {h00=0x003a, h01=0x0050, text=»** WORK REGS: A1-A4 ** «, t00=0x0058, t01=0x013e}
0x08ae6…08b24 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0058, t01=0x017c}
0x08b24…08b30 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0059, t01=0x002a}
0x08b30…08b44 Head {h00=0x0010, h01=0x0050, text=»MOVDT EQU * «, t00=0x0059, t01=0x0036}
0x08b44…08b7e Head {h00=0x0036, h01=0x0050, text=» LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT«, t00=0x0059, t01=0x004a}
0x08b7e…08ba8 Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 POINTER TO D.T.-ADDRESS «, t00=0x0059, t01=0x0084}
0x08ba8…08bc4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0059, t01=0x00ae}
0x08bc4…08be4 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A1 D.T.-ADDRESS«, t00=0x0059, t01=0x00ca}
0x08be4…08c12 Head {h00=0x002a, h01=0x0050, text=» ADKL A1,DTLEN ADJUST FOR LENGTH WORD «, t00=0x0059, t01=0x00ea}
0x08c12…08c34 Head {h00=0x001e, h01=0x0050, text=» AD A1,MOVADD,A13 RELOCATE«, t00=0x0059, t01=0x0118}
0x08c34…08c4e Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A1 LENGTH«, t00=0x0059, t01=0x013a}
0x08c4e…08c62 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0059, t01=0x0154}
0x08c62…08c7a Head {h00=0x0014, h01=0x0050, text=» LD A3,WBADD,A13«, t00=0x0059, t01=0x0168}
0x08c7a…08c90 Head {h00=0x0012, h01=0x0050, text=» SUKL A2,DTLEN«, t00=0x0059, t01=0x0180}
0x08c90…08ca6 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,DTLEN«, t00=0x005a, t01=0x0008}
0x08ca6…08cde Head {h00=0x0034, h01=0x0050, text=» ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS «, t00=0x005a, t01=0x001e}
0x08cde…08cea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0056}
0x08cea…08d06 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005a, t01=0x0062}
0x08d06…08d26 Head {h00=0x001c, h01=0x0050, text=» ELR A1,A1 D.T.-ADDRESS «, t00=0x005a, t01=0x007e}
0x08d26…08d54 Head {h00=0x002a, h01=0x0050, text=» ADKL A1,DTLEN ADJUST FOR LENGTH WORD «, t00=0x005a, t01=0x009e}
0x08d54…08d76 Head {h00=0x001e, h01=0x0050, text=» AD A1,MOVADD,A13 RELOCATE«, t00=0x005a, t01=0x00cc}
0x08d76…08d90 Head {h00=0x0016, h01=0x0050, text=» ELR A3,A1 LENGTH «, t00=0x005a, t01=0x00ee}
0x08d90…08da4 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x005a, t01=0x0108}
0x08da4…08dbc Head {h00=0x0014, h01=0x0050, text=» LD A3,WBADD,A13«, t00=0x005a, t01=0x011c}
0x08dbc…08dd2 Head {h00=0x0012, h01=0x0050, text=» SUKL A2,DTLEN«, t00=0x005a, t01=0x0134}
0x08dd2…08de8 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,DTLEN«, t00=0x005a, t01=0x014a}
0x08de8…08e20 Head {h00=0x0034, h01=0x0050, text=» ES A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS «, t00=0x005a, t01=0x0160}
0x08e20…08e2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0008}
0x08e2c…08e42 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005b, t01=0x0014}
0x08e42…08e52 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005b, t01=0x002a}
0x08e52…08e60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005b, t01=0x003a}
0x08e60…08e6c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x005b, t01=0x0048}
0x08e6c…08eac Head {h00=0x003c, h01=0x0050, text=»** M O V D W B **«, t00=0x005b, t01=0x0054}
0x08eac…08eec Head {h00=0x003c, h01=0x0050, text=»** **«, t00=0x005b, t01=0x0094}
0x08eec…08f2c Head {h00=0x003c, h01=0x0050, text=»** **«, t00=0x005b, t01=0x00d4}
0x08f2c…08f6c Head {h00=0x003c, h01=0x0050, text=»** SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. **«, t00=0x005b, t01=0x0114}
0x08f6c…08fac Head {h00=0x003c, h01=0x0050, text=»** AND UPDATE ADDRESSES (W.B. & D.T.) **«, t00=0x005b, t01=0x0154}
0x08fac…08fec (92, 0, 400) Head {h00=0x003c, h01=0x0050, text=»** **«, t00=0x005c, t01=0x0004}
0x08fec…0902c Head {h00=0x003c, h01=0x0050, text=»** INPUT : A12=T:D-ADDRESS **«, t00=0x005c, t01=0x0044}
0x0902c…0906c Head {h00=0x003c, h01=0x0050, text=»** A8= POINTER TO T:A-ADDRESS **«, t00=0x005c, t01=0x0084}
0x0906c…090ac Head {h00=0x003c, h01=0x0050, text=»** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) **«, t00=0x005c, t01=0x00c4}
0x090ac…090ec Head {h00=0x003c, h01=0x0050, text=»** WORK.REGS: A1-A4 **«, t00=0x005c, t01=0x0104}
0x090ec…0912c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005c, t01=0x0144}
0x0912c…09138 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x005c, t01=0x0184}
0x09138…0914c Head {h00=0x0010, h01=0x0050, text=»MOVDWB EQU *«, t00=0x005c, t01=0x0190}
0x0914c…0916e Head {h00=0x001e, h01=0x0050, text=» ST A6,SAVE05,A13 SAVE A5 «, t00=0x005d, t01=0x0014}
0x0916e…09180 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x005d, t01=0x0036}
0x09180…091ac Head {h00=0x0028, h01=0x0050, text=»MOVD10 LD A4,BIT,A13 GET BIT NUMBER «, t00=0x005d, t01=0x0048}
0x091ac…091d2 Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 FIRST WAT-ELEMENT =1«, t00=0x005d, t01=0x0074}
0x091d2…091ee Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005d, t01=0x009a}
0x091ee…09208 Head {h00=0x0016, h01=0x0050, text=» LD A2,WATLEN,A12 «, t00=0x005d, t01=0x00b6}
0x09208…09214 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x00d0}
0x09214…09230 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005d, t01=0x00dc}
0x09230…0924a Head {h00=0x0016, h01=0x0050, text=» EL A2,WATLEN,A12 «, t00=0x005d, t01=0x00f8}
0x0924a…09256 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x0112}
0x09256…0926c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005d, t01=0x011e}
0x0926c…09292 Head {h00=0x0022, h01=0x0050, text=» SUR A2,A6 ACTUAL TABLE LENGTH«, t00=0x005d, t01=0x0134}
0x09292…092b6 Head {h00=0x0020, h01=0x0050, text=» ADR A6,A12 A6=TABLE POINTER«, t00=0x005d, t01=0x015a}
0x092b6…092dc Head {h00=0x0022, h01=0x0050, text=»MOVD20 ADK A6,1 A6=TABLE INDEX«, t00=0x005d, t01=0x017e}
0x092dc…092f2 Head {h00=0x0012, h01=0x0050, text=» SUK A2,1 ALL?«, t00=0x005e, t01=0x0014}
0x092f2…0930c Head {h00=0x0016, h01=0x0050, text=» RF(N) MOVD60 YES!«, t00=0x005e, t01=0x002a}
0x0930c…09328 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005e, t01=0x0044}
0x09328…0934e Head {h00=0x0022, h01=0x0050, text=» CC A4,DWBFST,A6 SHARED W.B.? «, t00=0x005e, t01=0x0060}
0x0934e…0935a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0086}
0x0935a…09376 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005e, t01=0x0092}
0x09376…093a4 Head {h00=0x002a, h01=0x0050, text=» EL A10,DWBFST,A6 CHECK IF SHARED W.B.«, t00=0x005e, t01=0x00ae}
0x093a4…093ca Head {h00=0x0022, h01=0x0050, text=» SRC A6,1 RIGHT OR LEFT BYTE? «, t00=0x005e, t01=0x00dc}
0x093ca…093e6 Head {h00=0x0018, h01=0x0050, text=» RF(N) MOVD30 RIGHT!«, t00=0x005e, t01=0x0102}
0x093e6…093fe Head {h00=0x0014, h01=0x0050, text=» ANKL A10,/FF00 «, t00=0x005e, t01=0x011e}
0x093fe…09412 Head {h00=0x0010, h01=0x0050, text=» ECR A10,A10«, t00=0x005e, t01=0x0136}
0x09412…09424 Head {h00=0x000e, h01=0x0050, text=» RF MOVD40«, t00=0x005e, t01=0x014a}
0x09424…09440 Head {h00=0x0018, h01=0x0050, text=»MOVD30 ANKL A10,/FF «, t00=0x005e, t01=0x015c}
0x09440…09466 Head {h00=0x0022, h01=0x0050, text=»MOVD40 SLC A6,1 ADJUST POINTER«, t00=0x005e, t01=0x0178}
0x09466…09486 Head {h00=0x001c, h01=0x0050, text=» CWR A4,A10 SHARED W.B.?«, t00=0x005f, t01=0x000e}
0x09486…09492 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x002e}
0x09492…094a8 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005f, t01=0x003a}
0x094a8…094c2 Head {h00=0x0016, h01=0x0050, text=» RB(NE) MOVD20 NO!«, t00=0x005f, t01=0x0050}
0x094c2…094d8 Head {h00=0x0012, h01=0x0050, text=»* DWB FOUND * «, t00=0x005f, t01=0x006a}
0x094d8…09508 Head {h00=0x002c, h01=0x0050, text=» NGR A4,A2 CALCULATE DISPLACEMENT IN T:A«, t00=0x005f, t01=0x0080}
0x09508…09524 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005f, t01=0x00b0}
0x09524…0953e Head {h00=0x0016, h01=0x0050, text=» AD A4,WATLEN,A12 «, t00=0x005f, t01=0x00cc}
0x0953e…0954a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x00e6}
0x0954a…09566 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005f, t01=0x00f2}
0x09566…09580 Head {h00=0x0016, h01=0x0050, text=» EL A10,WATLEN,A12«, t00=0x005f, t01=0x010e}
0x09580…09594 Head {h00=0x0010, h01=0x0050, text=» ADR A4,A10 «, t00=0x005f, t01=0x0128}
0x09594…095a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x013c}
0x095a0…095b6 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005f, t01=0x0148}
0x095b6…095da Head {h00=0x0020, h01=0x0050, text=» LDR A6,A4 SAVE TABLE INDEX «, t00=0x005f, t01=0x015e}
0x095da…095ec Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x005f, t01=0x0182}
0x095ec…095fe (96, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SLL A4,2 «, t00=0x0060, t01=0x0004}
0x095fe…09616 Head {h00=0x0014, h01=0x0050, text=» ADK A4,WATFST+2«, t00=0x0060, t01=0x0016}
0x09616…09644 Head {h00=0x002a, h01=0x0050, text=» LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS«, t00=0x0060, t01=0x002e}
0x09644…09660 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0060, t01=0x005c}
0x09660…09696 Head {h00=0x0032, h01=0x0050, text=» ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A «, t00=0x0060, t01=0x0078}
0x09696…096bc Head {h00=0x0022, h01=0x0050, text=» STR A3,A4 CHANGE W.B.-ADDRESS«, t00=0x0060, t01=0x00ae}
0x096bc…096c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x00d4}
0x096c8…096e4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0060, t01=0x00e0}
0x096e4…09716 Head {h00=0x002e, h01=0x0050, text=» LD A2,FLAG,A13 REAL DATA-PART PROCESSING?«, t00=0x0060, t01=0x00fc}
0x09716…09730 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVD50 NO! «, t00=0x0060, t01=0x012e}
0x09730…09754 Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0060, t01=0x0148}
0x09754…09768 Head {h00=0x0010, h01=0x0050, text=»MOVD50 EQU *«, t00=0x0060, t01=0x016c}
0x09768…0979a Head {h00=0x002e, h01=0x0050, text=» ELR A10,A8 A4=POINTER TO W.B.-ADDR IN T:A«, t00=0x0060, t01=0x0180}
0x0979a…097ae Head {h00=0x0010, h01=0x0050, text=» ADR A4,A10 «, t00=0x0061, t01=0x0022}
0x097ae…097d4 Head {h00=0x0022, h01=0x0050, text=» ESR A3,A4 CHANGE W.B.-ADDRESS«, t00=0x0061, t01=0x0036}
0x097d4…097fe Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0061, t01=0x005c}
0x097fe…0980a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0086}
0x0980a…09820 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0061, t01=0x0092}
0x09820…09838 Head {h00=0x0014, h01=0x0050, text=» ST A4,WBADD,A13«, t00=0x0061, t01=0x00a8}
0x09838…0986a Head {h00=0x002e, h01=0x0050, text=» LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? «, t00=0x0061, t01=0x00c0}
0x0986a…09886 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) MOVD10 YES! «, t00=0x0061, t01=0x00f2}
0x09886…098a4 Head {h00=0x001a, h01=0x0050, text=» CALL MOVDT MOVE D.T. «, t00=0x0061, t01=0x010e}
0x098a4…098b6 Head {h00=0x000e, h01=0x0050, text=» RB MOVD10«, t00=0x0061, t01=0x012c}
0x098b6…098ca Head {h00=0x0010, h01=0x0050, text=»MOVD60 EQU *«, t00=0x0061, t01=0x013e}
0x098ca…098ee Head {h00=0x0020, h01=0x0050, text=» LD A6,SAVE05,A13 RESTORE A6«, t00=0x0061, t01=0x0152}
0x098ee…098fe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x0176}
0x098fe…0990c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x0186}
0x0990c…09914 (98, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x0004}
0x09914…0991c Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x000c}
0x0991c…09954 Head {h00=0x0034, h01=0x0050, text=»** T W B S W B **«, t00=0x0062, t01=0x0014}
0x09954…0998c Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0062, t01=0x004c}
0x0998c…099c4 Head {h00=0x0034, h01=0x0050, text=»** COPY TWB'S AND RESERVE SPACE FOR SWB'S **«, t00=0x0062, t01=0x0084}
0x099c4…099fc Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0062, t01=0x00bc}
0x099fc…09a34 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=ACTUAL T:A-ADDRESS **«, t00=0x0062, t01=0x00f4}
0x09a34…09a6c Head {h00=0x0034, h01=0x0050, text=»** A12=T:D-ADDRESS **«, t00=0x0062, t01=0x012c}
0x09a6c…09aa4 Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS: A1-A4, A11 **«, t00=0x0062, t01=0x0164}
0x09aa4…09adc Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0063, t01=0x000c}
0x09adc…09ae4 Head {h00=0x0004, h01=0x0050, t00=0x0063, t01=0x0044}
0x09ae4…09af8 Head {h00=0x0010, h01=0x0050, text=»TWBSWB EQU *«, t00=0x0063, t01=0x004c}
0x09af8…09b1a Head {h00=0x001e, h01=0x0050, text=» ST A7,SAVE04,A13 SAVE A7 «, t00=0x0063, t01=0x0060}
0x09b1a…09b40 Head {h00=0x0022, h01=0x0050, text=» LD A7,TWBMSK,A12 GET TWB MASK«, t00=0x0063, t01=0x0082}
0x09b40…09b5c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0063, t01=0x00a8}
0x09b5c…09b82 Head {h00=0x0022, h01=0x0050, text=» EL A7,TWBMSK,A12 GET TWB MASK«, t00=0x0063, t01=0x00c4}
0x09b82…09b8e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x00ea}
0x09b8e…09ba4 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0063, t01=0x00f6}
0x09ba4…09bb8 Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x0063, t01=0x010c}
0x09bb8…09bde Head {h00=0x0022, h01=0x0050, text=»TWSW10 RF(Z) TWSW20 ALL DONE! «, t00=0x0063, t01=0x0120}
0x09bde…09bf2 Head {h00=0x0010, h01=0x0050, text=» CALL GETWB «, t00=0x0063, t01=0x0146}
0x09bf2…09c06 Head {h00=0x0010, h01=0x0050, text=» CALL MOVWB «, t00=0x0063, t01=0x015a}
0x09c06…09c34 Head {h00=0x002a, h01=0x0050, text=» ST A2,NEWAD2,A13 SAVE NEW WB-ADDRESS «, t00=0x0063, t01=0x016e}
0x09c34…09c5e Head {h00=0x0026, h01=0x0050, text=» CALL MOVDWB CHANGE DWB-ADDRESSES «, t00=0x0064, t01=0x000c}
0x09c5e…09c72 Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x0064, t01=0x0036}
0x09c72…09c84 Head {h00=0x000e, h01=0x0050, text=» RB TWSW10«, t00=0x0064, t01=0x004a}
0x09c84…09c98 Head {h00=0x0010, h01=0x0050, text=»TWSW20 EQU *«, t00=0x0064, t01=0x005c}
0x09c98…09cb4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0064, t01=0x0070}
0x09cb4…09cc2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x008c}
0x09cc2…09cce Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0064, t01=0x009a}
0x09cce…09cda Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0064, t01=0x00a6}
0x09cda…09cfe Head {h00=0x0020, h01=0x0050, text=»* RESERVE SPACE FOR SWB'S * «, t00=0x0064, t01=0x00b2}
0x09cfe…09d22 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0064, t01=0x00d6}
0x09d22…09d2e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x00fa}
0x09d2e…09d4a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x0064, t01=0x0106}
0x09d4a…09d64 Head {h00=0x0016, h01=0x0050, text=» LD A7,SWBMSK,A12 «, t00=0x0064, t01=0x0122}
0x09d64…09d70 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x013c}
0x09d70…09d8c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x0064, t01=0x0148}
0x09d8c…09da6 Head {h00=0x0016, h01=0x0050, text=» EL A7,SWBMSK,A12 «, t00=0x0064, t01=0x0164}
0x09da6…09db2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x017e}
0x09db2…09dce Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0064, t01=0x018a}
0x09dce…09de2 Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x0065, t01=0x0016}
0x09de2…09e06 Head {h00=0x0020, h01=0x0050, text=»TWSW30 RF(Z) TARZAN ALL DONE«, t00=0x0065, t01=0x002a}
0x09e06…09e1a Head {h00=0x0010, h01=0x0050, text=» CALL GETWB «, t00=0x0065, t01=0x004e}
0x09e1a…09e3c Head {h00=0x001e, h01=0x0050, text=» CALL MOVWB RESERVE SPACE «, t00=0x0065, t01=0x0062}
0x09e3c…09e68 Head {h00=0x0028, h01=0x0050, text=» ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS «, t00=0x0065, t01=0x0084}
0x09e68…09e92 Head {h00=0x0026, h01=0x0050, text=» CALL MOVDWB CHANGE DWB- ADDRESSES«, t00=0x0065, t01=0x00b0}
0x09e92…09ea6 Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x0065, t01=0x00da}
0x09ea6…09eb8 Head {h00=0x000e, h01=0x0050, text=» RB TWSW30«, t00=0x0065, t01=0x00ee}
0x09eb8…09ecc Head {h00=0x0010, h01=0x0050, text=»TARZAN EQU *«, t00=0x0065, t01=0x0100}
0x09ecc…09ed8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0065, t01=0x0114}
0x09ed8…09eee Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0065, t01=0x0120}
0x09eee…09f12 Head {h00=0x0020, h01=0x0050, text=» LD A7,SAVE04,A13 RESTORE A7«, t00=0x0065, t01=0x0136}
0x09f12…09f22 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0065, t01=0x015a}
0x09f22…09f30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0065, t01=0x016a}
0x09f30…09f38 Head {h00=0x0004, h01=0x0050, t00=0x0065, t01=0x0178}
0x09f38…09f40 Head {h00=0x0004, h01=0x0050, t00=0x0065, t01=0x0180}
0x09f40…09f78 Head {h00=0x0034, h01=0x0050, text=»** A L L B U F **«, t00=0x0065, t01=0x0188}
0x09f78…09fb0 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0066, t01=0x0030}
0x09fb0…09fe8 Head {h00=0x0034, h01=0x0050, text=»** ALLOCATE FIXED DATA SET BUFFERS AND **«, t00=0x0066, t01=0x0068}
0x09fe8…0a020 Head {h00=0x0034, h01=0x0050, text=»** TERMINAL STACK **«, t00=0x0066, t01=0x00a0}
0x0a020…0a058 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0066, t01=0x00d8}
0x0a058…0a090 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=ACTUAL T:A-ADDRESS IN T:ATAB **«, t00=0x0066, t01=0x0110}
0x0a090…0a0c8 Head {h00=0x0034, h01=0x0050, text=»** A12=T:D-ADDRESS **«, t00=0x0066, t01=0x0148}
0x0a0c8…0a100 Head {h00=0x0034, h01=0x0050, text=»** CSN (IN T:A)=LENGTH OF DSCB'S **«, t00=0x0066, t01=0x0180}
0x0a100…0a138 Head {h00=0x0034, h01=0x0050, text=»** CIA (IN T:A)=DISPL. TO T:A-START **«, t00=0x0067, t01=0x0028}
0x0a138…0a170 Head {h00=0x0034, h01=0x0050, text=»** CSE (IN T:A)=STACKSIZE **«, t00=0x0067, t01=0x0060}
0x0a170…0a1a8 Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS. :A1-A4,A9,A11 **«, t00=0x0067, t01=0x0098}
0x0a1a8…0a1e0 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0067, t01=0x00d0}
0x0a1e0…0a1e8 Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x0108}
0x0a1e8…0a1fc Head {h00=0x0010, h01=0x0050, text=»ALLBUF EQU *«, t00=0x0067, t01=0x0110}
0x0a1fc…0a218 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0067, t01=0x0124}
0x0a218…0a24a Head {h00=0x002e, h01=0x0050, text=» LD A9,FSTADR,A13 GET BUFFER START ADDRESS«, t00=0x0067, t01=0x0140}
0x0a24a…0a26e Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0067, t01=0x0172}
0x0a26e…0a29a Head {h00=0x0028, h01=0x0050, text=» LD A3,CSN,A1 GET DSCB TOTAL LENGTH «, t00=0x0068, t01=0x0008}
0x0a29a…0a2ba Head {h00=0x001c, h01=0x0050, text=» RF(Z) ALLB70 NO DSCB'S «, t00=0x0068, t01=0x0034}
0x0a2ba…0a2ec Head {h00=0x002e, h01=0x0050, text=» ADKL A1,T:ASTA CALC START OF DSCB RECORDS«, t00=0x0068, t01=0x0054}
0x0a2ec…0a312 Head {h00=0x0022, h01=0x0050, text=» LDR A10,A1 SAVE START ADDRESS«, t00=0x0068, t01=0x0086}
0x0a312…0a31e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x00ac}
0x0a31e…0a33a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0068, t01=0x00b8}
0x0a33a…0a35c Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0068, t01=0x00d4}
0x0a35c…0a388 Head {h00=0x0028, h01=0x0050, text=» EL A3,CSN,A1 GET DSCB TOTAL LENGTH «, t00=0x0068, t01=0x00f6}
0x0a388…0a3a6 Head {h00=0x001a, h01=0x0050, text=» RF(Z) ALLB70 NO DSCB «, t00=0x0068, t01=0x0122}
0x0a3a6…0a3d8 Head {h00=0x002e, h01=0x0050, text=» ADKL A1,T:ASTA CALCULATE START OF DSCB'S «, t00=0x0068, t01=0x0140}
0x0a3d8…0a3fe Head {h00=0x0022, h01=0x0050, text=» LDR A10,A1 SAVE START ADDRESS«, t00=0x0068, t01=0x0172}
0x0a3fe…0a40a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x0008}
0x0a40a…0a420 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0069, t01=0x0014}
0x0a420…0a432 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A1«, t00=0x0069, t01=0x002a}
0x0a432…0a444 Head {h00=0x000e, h01=0x0050, text=» NGR A3,A3«, t00=0x0069, t01=0x003c}
0x0a444…0a468 Head {h00=0x0020, h01=0x0050, text=» SUK A3,DSCBL END CONDITION «, t00=0x0069, t01=0x004e}
0x0a468…0a4a6 Head {h00=0x003a, h01=0x0050, text=» ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS «, t00=0x0069, t01=0x0072}
0x0a4a6…0a4e4 Head {h00=0x003a, h01=0x0050, text=»ALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD«, t00=0x0069, t01=0x00b0}
0x0a4e4…0a502 Head {h00=0x001a, h01=0x0050, text=» CW A1,SAVE04,A13 ALL?«, t00=0x0069, t01=0x00ee}
0x0a502…0a51c Head {h00=0x0016, h01=0x0050, text=» RF(E) ALLB70 YES!«, t00=0x0069, t01=0x010c}
0x0a51c…0a538 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0069, t01=0x0126}
0x0a538…0a562 Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A1 GET FIRST WORD IN ECB «, t00=0x0069, t01=0x0142}
0x0a562…0a582 Head {h00=0x001c, h01=0x0050, text=» SLL A3,1 STATIC BUFFER?«, t00=0x0069, t01=0x016c}
0x0a582…0a59c Head {h00=0x0016, h01=0x0050, text=» RB(NN) ALLB10 NO!«, t00=0x0069, t01=0x018c}
0x0a59c…0a5be Head {h00=0x001e, h01=0x0050, text=» ST A9,BA,A1 BUFFER START «, t00=0x006a, t01=0x0016}
0x0a5be…0a5e0 Head {h00=0x001e, h01=0x0050, text=» LD A3,RL,A1 BUFFER LENGTH«, t00=0x006a, t01=0x0038}
0x0a5e0…0a5f4 Head {h00=0x0010, h01=0x0050, text=» ST A3,BL,A1«, t00=0x006a, t01=0x005a}
0x0a5f4…0a618 Head {h00=0x0020, h01=0x0050, text=» LD A2,EL,A1 SHARED BUFFER? «, t00=0x006a, t01=0x006e}
0x0a618…0a630 Head {h00=0x0014, h01=0x0050, text=» RF(Z) NOTSH NO!«, t00=0x006a, t01=0x0092}
0x0a630…0a65a Head {h00=0x0026, h01=0x0050, text=» LDR A4,A1 RESTORE START OF DSCB'S«, t00=0x006a, t01=0x00aa}
0x0a65a…0a666 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006a, t01=0x00d4}
0x0a666…0a682 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006a, t01=0x00e0}
0x0a682…0a6aa Head {h00=0x0024, h01=0x0050, text=» ELR A3,A1 GET FIRST WORD IN ECB«, t00=0x006a, t01=0x00fc}
0x0a6aa…0a6ca Head {h00=0x001c, h01=0x0050, text=» SLL A3,1 STATIC BUFFER?«, t00=0x006a, t01=0x0124}
0x0a6ca…0a6e4 Head {h00=0x0016, h01=0x0050, text=» RB(NN) ALLB10 NO!«, t00=0x006a, t01=0x0144}
0x0a6e4…0a706 Head {h00=0x001e, h01=0x0050, text=» EL A3,RL,A1 BUFFER LENGTH«, t00=0x006a, t01=0x015e}
0x0a706…0a71a Head {h00=0x0010, h01=0x0050, text=» ES A3,BL,A1«, t00=0x006a, t01=0x0180}
0x0a71a…0a73e (107, 0, 400) Head {h00=0x0020, h01=0x0050, text=» EL A2,EL,A1 SHARED BUFFER? «, t00=0x006b, t01=0x0004}
0x0a73e…0a756 Head {h00=0x0014, h01=0x0050, text=» RF(Z) NOTSH NO!«, t00=0x006b, t01=0x0028}
0x0a756…0a780 Head {h00=0x0026, h01=0x0050, text=» LDR A4,A1 RESTORE START OF DSCB'S«, t00=0x006b, t01=0x0040}
0x0a780…0a78c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x006a}
0x0a78c…0a7a2 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006b, t01=0x0076}
0x0a7a2…0a7c2 Head {h00=0x001c, h01=0x0050, text=» ADK A4,DSCBL FIRST WORD«, t00=0x006b, t01=0x008c}
0x0a7c2…0a7e2 Head {h00=0x001c, h01=0x0050, text=»ALLB20 SUK A2,1 A2=INDEX«, t00=0x006b, t01=0x00ac}
0x0a7e2…0a7f8 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ALLB30«, t00=0x006b, t01=0x00cc}
0x0a7f8…0a81a Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006b, t01=0x00e2}
0x0a81a…0a82e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006b, t01=0x0104}
0x0a82e…0a842 Head {h00=0x0010, h01=0x0050, text=»ALLB30 EQU *«, t00=0x006b, t01=0x0118}
0x0a842…0a862 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ALLB40 ECB FOUND «, t00=0x006b, t01=0x012c}
0x0a862…0a896 Head {h00=0x0030, h01=0x0050, text=» ADK A4,DSCBL A4=ADDRESS TO DSCB TO EXAMINE «, t00=0x006b, t01=0x014c}
0x0a896…0a8aa Head {h00=0x0010, h01=0x0050, text=» CWR A4,A10 «, t00=0x006b, t01=0x0180}
0x0a8aa…0a8c0 (108, 0, 400) Head {h00=0x0012, h01=0x0050, text=» RB(NE) ALLB20«, t00=0x006c, t01=0x0004}
0x0a8c0…0a8e6 Head {h00=0x0022, h01=0x0050, text=» LDK A1,LMP4 BUFFER NOT FOUND «, t00=0x006c, t01=0x001a}
0x0a8e6…0a8fa Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006c, t01=0x0040}
0x0a8fa…0a916 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006c, t01=0x0054}
0x0a916…0a942 Head {h00=0x0028, h01=0x0050, text=»ALLB40 LD A4,BA,A4 BUFFER ALLOCATED?«, t00=0x006c, t01=0x0070}
0x0a942…0a95e Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ALLB50 YES! «, t00=0x006c, t01=0x009c}
0x0a95e…0a980 Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006c, t01=0x00b8}
0x0a980…0a994 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006c, t01=0x00da}
0x0a994…0a9a8 Head {h00=0x0010, h01=0x0050, text=»ALLB50 EQU *«, t00=0x006c, t01=0x00ee}
0x0a9a8…0a9d6 Head {h00=0x002a, h01=0x0050, text=» ST A4,BA,A1 AND STORE IN CURRENT ECB «, t00=0x006c, t01=0x0102}
0x0a9d6…0a9e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006c, t01=0x0130}
0x0a9e2…0a9fe Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006c, t01=0x013c}
0x0a9fe…0aa2a Head {h00=0x0028, h01=0x0050, text=»ALLB40 EL A4,BA,A4 BUFFER ALLOCATED?«, t00=0x006c, t01=0x0158}
0x0aa2a…0aa46 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ALLB50 YES! «, t00=0x006c, t01=0x0184}
0x0aa46…0aa68 Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006d, t01=0x0010}
0x0aa68…0aa7c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006d, t01=0x0032}
0x0aa7c…0aa90 Head {h00=0x0010, h01=0x0050, text=»ALLB50 EQU *«, t00=0x006d, t01=0x0046}
0x0aa90…0aabe Head {h00=0x002a, h01=0x0050, text=» ES A4,BA,A1 AND ESORE IN CURRENT ECB «, t00=0x006d, t01=0x005a}
0x0aabe…0aaca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006d, t01=0x0088}
0x0aaca…0aae0 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006d, t01=0x0094}
0x0aae0…0aaf2 Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006d, t01=0x00aa}
0x0aaf2…0aafa Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x00bc}
0x0aafa…0ab16 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006d, t01=0x00c4}
0x0ab16…0ab36 Head {h00=0x001c, h01=0x0050, text=»NOTSH LDR A9,A9 PAGING? «, t00=0x006d, t01=0x00e0}
0x0ab36…0ab50 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) NOTS10 NO!«, t00=0x006d, t01=0x0100}
0x0ab50…0ab80 Head {h00=0x002c, h01=0x0050, text=» CALL MOVING ALLOCATE BUFFER FROM BOTTOM«, t00=0x006d, t01=0x011a}
0x0ab80…0abaa Head {h00=0x0026, h01=0x0050, text=» ST A2,BA,A1 STORE BUFFER ADDRESS «, t00=0x006d, t01=0x014a}
0x0abaa…0abbc Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006d, t01=0x0174}
0x0abbc…0abee Head {h00=0x002e, h01=0x0050, text=»NOTS10 ADR A9,A3 ALLOCATE BUFFER FROM TOP «, t00=0x006d, t01=0x0186}
0x0abee…0ac00 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x006e, t01=0x0028}
0x0ac00…0ac24 Head {h00=0x0020, h01=0x0050, text=» ANKL A9,/FFFE EVEN ADDRESS «, t00=0x006e, t01=0x003a}
0x0ac24…0ac3c Head {h00=0x0014, h01=0x0050, text=»* CHECK ADDRESS:«, t00=0x006e, t01=0x005e}
0x0ac3c…0ac48 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x006e, t01=0x0076}
0x0ac48…0ac6e Head {h00=0x0022, h01=0x0050, text=» LD A11,LSTADR,A13 DATA START «, t00=0x006e, t01=0x0082}
0x0ac6e…0ac82 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x006e, t01=0x00a8}
0x0ac82…0ac9c Head {h00=0x0016, h01=0x0050, text=» RF(NL) ALLB60 OK!«, t00=0x006e, t01=0x00bc}
0x0ac9c…0acb2 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x006e, t01=0x00d6}
0x0acb2…0acc6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006e, t01=0x00ec}
0x0acc6…0acda Head {h00=0x0010, h01=0x0050, text=»ALLB60 EQU *«, t00=0x006e, t01=0x0100}
0x0acda…0ad0c Head {h00=0x002e, h01=0x0050, text=» ST A9,FSTADR,A13 SAVE BUFFER END ADDRESS «, t00=0x006e, t01=0x0114}
0x0ad0c…0ad18 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x0146}
0x0ad18…0ad34 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006e, t01=0x0152}
0x0ad34…0ad6c Head {h00=0x0034, h01=0x0050, text=»NOTSH CALL MOVING ALLOCATE BUFFER FROM 'BOTTOM' «, t00=0x006e, t01=0x016e}
0x0ad6c…0ad96 Head {h00=0x0026, h01=0x0050, text=» ES A2,BA,A1 STORE BUFFER ADDRESS «, t00=0x006f, t01=0x0016}
0x0ad96…0ada2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006f, t01=0x0040}
0x0ada2…0adb8 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006f, t01=0x004c}
0x0adb8…0adca Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006f, t01=0x0062}
0x0adca…0add6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x006f, t01=0x0074}
0x0add6…0ae06 Head {h00=0x002c, h01=0x0050, text=»* RESERVE STACK AND SET STACKPOINTERS * «, t00=0x006f, t01=0x0080}
0x0ae06…0ae0e Head {h00=0x0004, h01=0x0050, t00=0x006f, t01=0x00b0}
0x0ae0e…0ae22 Head {h00=0x0010, h01=0x0050, text=»ALLB70 EQU *«, t00=0x006f, t01=0x00b8}
0x0ae22…0ae3e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006f, t01=0x00cc}
0x0ae3e…0ae62 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x006f, t01=0x00e8}
0x0ae62…0ae7c Head {h00=0x0016, h01=0x0050, text=» LD A4,LSTADR,A13 «, t00=0x006f, t01=0x010c}
0x0ae7c…0ae8e Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x006f, t01=0x0126}
0x0ae8e…0aeb2 Head {h00=0x0020, h01=0x0050, text=» LD A3,CSE,A1 GET STACK SIZE«, t00=0x006f, t01=0x0138}
0x0aeb2…0aec8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) ALLB80«, t00=0x006f, t01=0x015c}
0x0aec8…0aef0 Head {h00=0x0024, h01=0x0050, text=» LDK A3,STKSZ DEFAULT STACKSIZE «, t00=0x006f, t01=0x0172}
0x0aef0…0af04 Head {h00=0x0010, h01=0x0050, text=»ALLB80 EQU *«, t00=0x0070, t01=0x000a}
0x0af04…0af28 Head {h00=0x0020, h01=0x0050, text=» ST A4,STKB,A1 SET STACKBASE«, t00=0x0070, t01=0x001e}
0x0af28…0af48 Head {h00=0x001c, h01=0x0050, text=» STR A4,A1 STACK POINTER«, t00=0x0070, t01=0x0042}
0x0af48…0af6c Head {h00=0x0020, h01=0x0050, text=» CALL MOVING ALLOCATE STACK «, t00=0x0070, t01=0x0062}
0x0af6c…0af90 Head {h00=0x0020, h01=0x0050, text=» ST A2,STKE,A1 SET STACK-END«, t00=0x0070, t01=0x0086}
0x0af90…0af9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x00aa}
0x0af9c…0afb8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0070, t01=0x00b6}
0x0afb8…0afda Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0070, t01=0x00d2}
0x0afda…0affe Head {h00=0x0020, h01=0x0050, text=» EL A3,CSE,A1 GET STACK SIZE«, t00=0x0070, t01=0x00f4}
0x0affe…0b02c Head {h00=0x002a, h01=0x0050, text=» RF(NZ) ALLB80 USER DEFINED STACK SIZE«, t00=0x0070, t01=0x0118}
0x0b02c…0b054 Head {h00=0x0024, h01=0x0050, text=» LDK A3,STKSZ DEFAULT STACK SIZE«, t00=0x0070, t01=0x0146}
0x0b054…0b080 Head {h00=0x0028, h01=0x0050, text=»ALLB80 ES A3,STKB,A1 SAVE STACK SIZE«, t00=0x0070, t01=0x016e}
0x0b080…0b0a4 Head {h00=0x0020, h01=0x0050, text=» CALL MOVING ALLOCATE STACK «, t00=0x0071, t01=0x000a}
0x0b0a4…0b0ca Head {h00=0x0022, h01=0x0050, text=» ES A2,STKE,A1 STORE STACK END«, t00=0x0071, t01=0x002e}
0x0b0ca…0b0f0 Head {h00=0x0022, h01=0x0050, text=» EL A3,STKB,A1 GET STACK SIZE «, t00=0x0071, t01=0x0054}
0x0b0f0…0b116 Head {h00=0x0022, h01=0x0050, text=» ADR A2,A3 COMPUTE STACK BASE «, t00=0x0071, t01=0x007a}
0x0b116…0b148 Head {h00=0x002e, h01=0x0050, text=» SUK A2,2 ADDRESS TO LAST WORD IN STACK =1«, t00=0x0071, t01=0x00a0}
0x0b148…0b170 Head {h00=0x0024, h01=0x0050, text=» ES A2,STKB,A1 STORE STACK BASE «, t00=0x0071, t01=0x00d2}
0x0b170…0b19e Head {h00=0x002a, h01=0x0050, text=» ESR A2,A1 STORE CURRENT STACK POINTER«, t00=0x0071, t01=0x00fa}
0x0b19e…0b1aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x0128}
0x0b1aa…0b1c0 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0071, t01=0x0134}
0x0b1c0…0b1d0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0071, t01=0x014a}
0x0b1d0…0b1de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0071, t01=0x015a}
0x0b1de…0b1e6 Head {h00=0x0004, h01=0x0050, t00=0x0071, t01=0x0168}
0x0b1e6…0b21e Head {h00=0x0034, h01=0x0050, text=»** M O V T : A **«, t00=0x0071, t01=0x0170}
0x0b21e…0b256 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0072, t01=0x0018}
0x0b256…0b28e Head {h00=0x0034, h01=0x0050, text=»** MOVE T:A AND UPDATE DATA SET ADDRESSES IN **«, t00=0x0072, t01=0x0050}
0x0b28e…0b2c6 Head {h00=0x0034, h01=0x0050, text=»** FORMAT CONTROL BLOCK **«, t00=0x0072, t01=0x0088}
0x0b2c6…0b2fe Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0072, t01=0x00c0}
0x0b2fe…0b336 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=T:A-ADDRESS **«, t00=0x0072, t01=0x00f8}
0x0b336…0b36e Head {h00=0x0034, h01=0x0050, text=»** A12=T:D-ADDRESS **«, t00=0x0072, t01=0x0130}
0x0b36e…0b3a6 Head {h00=0x0034, h01=0x0050, text=»** CIA (IN T:A)=DISL. TO T:A-START **«, t00=0x0072, t01=0x0168}
0x0b3a6…0b3de Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A2=NEW T:A-ADDRESS **«, t00=0x0073, t01=0x0010}
0x0b3de…0b416 Head {h00=0x0034, h01=0x0050, text=»** WORKREGS: A1-A4 **«, t00=0x0073, t01=0x0048}
0x0b416…0b44e Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0073, t01=0x0080}
0x0b44e…0b456 Head {h00=0x0004, h01=0x0050, t00=0x0073, t01=0x00b8}
0x0b456…0b46a Head {h00=0x0010, h01=0x0050, text=»MOVT:A EQU *«, t00=0x0073, t01=0x00c0}
0x0b46a…0b486 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0073, t01=0x00d4}
0x0b486…0b4aa Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0073, t01=0x00f0}
0x0b4aa…0b4d6 Head {h00=0x0028, h01=0x0050, text=» LD A3,WATLEN,A12 GET LENGTH OF WAT «, t00=0x0073, t01=0x0114}
0x0b4d6…0b4ee Head {h00=0x0014, h01=0x0050, text=» SLL A3,2 BYTES «, t00=0x0073, t01=0x0140}
0x0b4ee…0b51e Head {h00=0x002c, h01=0x0050, text=» SU A3,CIA,A1 ADD DISPLACEMENT TO START «, t00=0x0073, t01=0x0158}
0x0b51e…0b53e Head {h00=0x001c, h01=0x0050, text=» ADK A3,WATFST A3=LENGTH«, t00=0x0073, t01=0x0188}
0x0b53e…0b560 Head {h00=0x001e, h01=0x0050, text=» AD A1,CIA,A1 FROM-ADDRESS«, t00=0x0074, t01=0x0018}
0x0b560…0b574 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0074, t01=0x003a}
0x0b574…0b588 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A8 «, t00=0x0074, t01=0x004e}
0x0b588…0b5ae Head {h00=0x0022, h01=0x0050, text=» SU A2,CIA,A4 NEW T:A-ADDRESS «, t00=0x0074, t01=0x0062}
0x0b5ae…0b5d6 Head {h00=0x0024, h01=0x0050, text=» SU A1,CIA,A4 'OLD' T:A-ADDRESS «, t00=0x0074, t01=0x0088}
0x0b5d6…0b5de Head {h00=0x0004, h01=0x0050, t00=0x0074, t01=0x00b0}
0x0b5de…0b61a Head {h00=0x0038, h01=0x0050, text=»* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * «, t00=0x0074, t01=0x00b8}
0x0b61a…0b622 Head {h00=0x0004, h01=0x0050, t00=0x0074, t01=0x00f4}
0x0b622…0b642 Head {h00=0x001c, h01=0x0050, text=» LD A3,FCD,A12 ANY FCD? «, t00=0x0074, t01=0x00fc}
0x0b642…0b65c Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT10 NO! «, t00=0x0074, t01=0x011c}
0x0b65c…0b67c Head {h00=0x001c, h01=0x0050, text=» ADR A3,A2 START OF FCB «, t00=0x0074, t01=0x0136}
0x0b67c…0b6a0 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A2 SAVE T:A-ADDRESS «, t00=0x0074, t01=0x0156}
0x0b6a0…0b6d4 Head {h00=0x0030, h01=0x0050, text=» LD A10,FLAG,A13 REAL TASK DATA PROCESSING? «, t00=0x0074, t01=0x017a}
0x0b6d4…0b6ee Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT05 NO! «, t00=0x0075, t01=0x001e}
0x0b6ee…0b72c Head {h00=0x003a, h01=0x0050, text=» SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS)«, t00=0x0075, t01=0x0038}
0x0b72c…0b740 Head {h00=0x0010, h01=0x0050, text=»MOVT05 EQU *«, t00=0x0075, t01=0x0076}
0x0b740…0b75a Head {h00=0x0016, h01=0x0050, text=» ADS A4,FCBDD1,A3 «, t00=0x0075, t01=0x008a}
0x0b75a…0b774 Head {h00=0x0016, h01=0x0050, text=» ADS A4,FCBDD2,A3 «, t00=0x0075, t01=0x00a4}
0x0b774…0b78a Head {h00=0x0012, h01=0x0050, text=»MOVT10 RTN A14«, t00=0x0075, t01=0x00be}
0x0b78a…0b796 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x00d4}
0x0b796…0b7b2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0075, t01=0x00e0}
0x0b7b2…0b7ba Head {h00=0x0004, h01=0x0050, t00=0x0075, t01=0x00fc}
0x0b7ba…0b7dc Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0075, t01=0x0104}
0x0b7dc…0b808 Head {h00=0x0028, h01=0x0050, text=» EL A3,WATLEN,A12 GET LENGTH OF WAT «, t00=0x0075, t01=0x0126}
0x0b808…0b820 Head {h00=0x0014, h01=0x0050, text=» SLL A3,2 BYTES «, t00=0x0075, t01=0x0152}
0x0b820…0b836 Head {h00=0x0012, h01=0x0050, text=» EL A10,CIA,A1«, t00=0x0075, t01=0x016a}
0x0b836…0b85e Head {h00=0x0024, h01=0x0050, text=» SUR A3,A10 ADD DISPL. TO START «, t00=0x0075, t01=0x0180}
0x0b85e…0b87e Head {h00=0x001c, h01=0x0050, text=» ADK A3,WATFST A3=LENGTH«, t00=0x0076, t01=0x0018}
0x0b87e…0b89e Head {h00=0x001c, h01=0x0050, text=» ADR A1,A10 FROM-ADDRESS«, t00=0x0076, t01=0x0038}
0x0b89e…0b8b2 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0076, t01=0x0058}
0x0b8b2…0b8c4 Head {h00=0x000e, h01=0x0050, text=» ELR A4,A8«, t00=0x0076, t01=0x006c}
0x0b8c4…0b8da Head {h00=0x0012, h01=0x0050, text=» EL A10,CIA,A4«, t00=0x0076, t01=0x007e}
0x0b8da…0b8fe Head {h00=0x0020, h01=0x0050, text=» SUR A2,A10 NEW T:A-ADDRESS «, t00=0x0076, t01=0x0094}
0x0b8fe…0b924 Head {h00=0x0022, h01=0x0050, text=» SUR A1,A10 'OLD' T:A-ADDRESS «, t00=0x0076, t01=0x00b8}
0x0b924…0b960 Head {h00=0x0038, h01=0x0050, text=»* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * «, t00=0x0076, t01=0x00de}
0x0b960…0b968 Head {h00=0x0004, h01=0x0050, t00=0x0076, t01=0x011a}
0x0b968…0b988 Head {h00=0x001c, h01=0x0050, text=» EL A3,FCD,A12 ANY FCD? «, t00=0x0076, t01=0x0122}
0x0b988…0b9a2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT10 NO! «, t00=0x0076, t01=0x0142}
0x0b9a2…0b9c4 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A2 GET T:A-ADDRESS«, t00=0x0076, t01=0x015c}
0x0b9c4…0b9f8 Head {h00=0x0030, h01=0x0050, text=» LD A10,FLAG,A13 REAL TASK DATA PROCESSING? «, t00=0x0076, t01=0x017e}
0x0b9f8…0ba12 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT05 NO! «, t00=0x0077, t01=0x0022}
0x0ba12…0ba4e Head {h00=0x0038, h01=0x0050, text=» SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.)«, t00=0x0077, t01=0x003c}
0x0ba4e…0ba62 Head {h00=0x0010, h01=0x0050, text=»MOVT05 EQU *«, t00=0x0077, t01=0x0078}
0x0ba62…0ba82 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A2 START OF FCB «, t00=0x0077, t01=0x008c}
0x0ba82…0baa4 Head {h00=0x001e, h01=0x0050, text=» TL* MMTO,13 LOAD TO-TABLE«, t00=0x0077, t01=0x00ac}
0x0baa4…0babe Head {h00=0x0016, h01=0x0050, text=» EL A10,FCBDD1,A3 «, t00=0x0077, t01=0x00ce}
0x0babe…0bad2 Head {h00=0x0010, h01=0x0050, text=» ADR A10,A4 «, t00=0x0077, t01=0x00e8}
0x0bad2…0baec Head {h00=0x0016, h01=0x0050, text=» ES A10,FCBDD1,A3 «, t00=0x0077, t01=0x00fc}
0x0baec…0bb06 Head {h00=0x0016, h01=0x0050, text=» EL A10,FCBDD2,A3 «, t00=0x0077, t01=0x0116}
0x0bb06…0bb1a Head {h00=0x0010, h01=0x0050, text=» ADR A10,A4 «, t00=0x0077, t01=0x0130}
0x0bb1a…0bb34 Head {h00=0x0016, h01=0x0050, text=» ES A10,FCBDD2,A3 «, t00=0x0077, t01=0x0144}
0x0bb34…0bb5e Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0077, t01=0x015e}
0x0bb5e…0bb74 Head {h00=0x0012, h01=0x0050, text=»MOVT10 RTN A14«, t00=0x0077, t01=0x0188}
0x0bb74…0bb80 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x000e}
0x0bb80…0bb8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x001a}
0x0bb8e…0bb96 Head {h00=0x0004, h01=0x0050, t00=0x0078, t01=0x0028}
0x0bb96…0bb9e Head {h00=0x0004, h01=0x0050, t00=0x0078, t01=0x0030}
0x0bb9e…0bba6 Head {h00=0x0004, h01=0x0050, t00=0x0078, t01=0x0038}
0x0bba6…0bbe0 Head {h00=0x0036, h01=0x0050, text=»** C M P A D R **«, t00=0x0078, t01=0x0040}
0x0bbe0…0bc1a Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0078, t01=0x007a}
0x0bc1a…0bc54 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0078, t01=0x00b4}
0x0bc54…0bc8e Head {h00=0x0036, h01=0x0050, text=»** COMPARE ADDRESSES. RESULT IN PSW ON RETURN **«, t00=0x0078, t01=0x00ee}
0x0bc8e…0bcc8 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0078, t01=0x0128}
0x0bcc8…0bd02 Head {h00=0x0036, h01=0x0050, text=»** INPUT : A11 COMPARED TO.. **«, t00=0x0078, t01=0x0162}
0x0bd02…0bd3c Head {h00=0x0036, h01=0x0050, text=»** A9 **«, t00=0x0079, t01=0x000c}
0x0bd3c…0bd76 Head {h00=0x0036, h01=0x0050, text=»** OUTPUT: RESULT IN A14-STACK **«, t00=0x0079, t01=0x0046}
0x0bd76…0bdb0 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0079, t01=0x0080}
0x0bdb0…0bdbc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0079, t01=0x00ba}
0x0bdbc…0bdd0 Head {h00=0x0010, h01=0x0050, text=»CMPADR EQU *«, t00=0x0079, t01=0x00c6}
0x0bdd0…0bde4 Head {h00=0x0010, h01=0x0050, text=» TNM A11,A9 «, t00=0x0079, t01=0x00da}
0x0bde4…0bdfa Head {h00=0x0012, h01=0x0050, text=» RF(NN) CMPA10«, t00=0x0079, t01=0x00ee}
0x0bdfa…0be0e Head {h00=0x0010, h01=0x0050, text=» CWR A9,A11 «, t00=0x0079, t01=0x0104}
0x0be0e…0be20 Head {h00=0x000e, h01=0x0050, text=» RF CMPA20«, t00=0x0079, t01=0x0118}
0x0be20…0be3a Head {h00=0x0016, h01=0x0050, text=»CMPA10 CWR A11,A9 «, t00=0x0079, t01=0x012a}
0x0be3a…0be6c Head {h00=0x002e, h01=0x0050, text=»CMPA20 CFI A14,PSW,A13 PUT RESULT ON STACK«, t00=0x0079, t01=0x0144}
0x0be6c…0be7c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x0176}
0x0be7c…0be92 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0079, t01=0x0186}
0x0be92…0bea0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007a, t01=0x000c}
0x0bea0…0bee8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x007a, t01=0x001a}
0x0bee8…0bf30 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007a, t01=0x0062}
0x0bf30…0bf78 Head {h00=0x0044, h01=0x0050, text=»* ICBMVD - INDICATE CURRENT BLOCK MOVED * «, t00=0x007a, t01=0x00aa}
0x0bf78…0bfc0 Head {h00=0x0044, h01=0x0050, text=»* ===================================== * «, t00=0x007a, t01=0x00f2}
0x0bfc0…0c008 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007a, t01=0x013a}
0x0c008…0c050 Head {h00=0x0044, h01=0x0050, text=»* REFERENCED IN: MOVCOM * «, t00=0x007a, t01=0x0182}
0x0c050…0c098 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007b, t01=0x003a}
0x0c098…0c0e0 Head {h00=0x0044, h01=0x0050, text=»* ENTRY: A8 - FIRST T:A POINTER * «, t00=0x007b, t01=0x0082}
0x0c0e0…0c128 Head {h00=0x0044, h01=0x0050, text=»* A6 - SECOND T:A POINTER * «, t00=0x007b, t01=0x00ca}
0x0c128…0c170 Head {h00=0x0044, h01=0x0050, text=»* BIT - BIT NUMBER SET IN CWB- OR UWB-MASK * «, t00=0x007b, t01=0x0112}
0x0c170…0c1b8 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007b, t01=0x015a}
0x0c1b8…0c200 Head {h00=0x0044, h01=0x0050, text=»* EXIT: CORRESPONDING BIT IN CURRENT STATCK POINTER * «, t00=0x007c, t01=0x0012}
0x0c200…0c248 Head {h00=0x0044, h01=0x0050, text=»* IN T:A IS SET * «, t00=0x007c, t01=0x005a}
0x0c248…0c290 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007c, t01=0x00a2}
0x0c290…0c2d8 Head {h00=0x0044, h01=0x0050, text=»* WORK REGISTERS: A1,A2 * «, t00=0x007c, t01=0x00ea}
0x0c2d8…0c320 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007c, t01=0x0132}
0x0c320…0c368 Head {h00=0x0044, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x007c, t01=0x017a}
0x0c368…0c3b0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007d, t01=0x0032}
0x0c3b0…0c3f8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x007d, t01=0x007a}
0x0c3f8…0c406 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007d, t01=0x00c2}
0x0c406…0c41a Head {h00=0x0010, h01=0x0050, text=»ICBMVD EQU *«, t00=0x007d, t01=0x00d0}
0x0c41a…0c43a Head {h00=0x001c, h01=0x0050, text=» LDKL A1,/8000 SET BIT 0«, t00=0x007d, t01=0x00e4}
0x0c43a…0c474 Head {h00=0x0036, h01=0x0050, text=» LD A2,BIT,A13 GET BIT NUMBER IN CWB- OR UWB-MASK «, t00=0x007d, t01=0x0104}
0x0c474…0c49a Head {h00=0x0022, h01=0x0050, text=»IBAM10 RF(Z) IBAM20 BIT FOUND «, t00=0x007d, t01=0x013e}
0x0c49a…0c4c4 Head {h00=0x0026, h01=0x0050, text=» SRL A1,1 SHIFT BIT RIGHT ONE STEP«, t00=0x007d, t01=0x0164}
0x0c4c4…0c4ec Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT BIT COUNTER «, t00=0x007d, t01=0x018e}
0x0c4ec…0c4fe Head {h00=0x000e, h01=0x0050, text=» RB IBAM10«, t00=0x007e, t01=0x0026}
0x0c4fe…0c508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0038}
0x0c508…0c532 Head {h00=0x0026, h01=0x0050, text=»* UPDATE MOVED MASK IN FIRST T:A «, t00=0x007e, t01=0x0042}
0x0c532…0c53c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x006c}
0x0c53c…0c548 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x0076}
0x0c548…0c564 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x007e, t01=0x0082}
0x0c564…0c58e Head {h00=0x0026, h01=0x0050, text=»IBAM20 LDR* A2,A8 GET T:A POINTER «, t00=0x007e, t01=0x009e}
0x0c58e…0c5b6 Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET MOVED BLOCK MASK«, t00=0x007e, t01=0x00c8}
0x0c5b6…0c5e6 Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007e, t01=0x00f0}
0x0c5e6…0c614 Head {h00=0x002a, h01=0x0050, text=» STR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007e, t01=0x0120}
0x0c614…0c61e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x014e}
0x0c61e…0c648 Head {h00=0x0026, h01=0x0050, text=»* UPDATE MOVED MASK IN SECOND T:A«, t00=0x007e, t01=0x0158}
0x0c648…0c652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0182}
0x0c652…0c676 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A6 GET T:A POINTER «, t00=0x007e, t01=0x018c}
0x0c676…0c69e Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET MOVED BLOCK MASK«, t00=0x007f, t01=0x0020}
0x0c69e…0c6ce Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007f, t01=0x0048}
0x0c6ce…0c6fc Head {h00=0x002a, h01=0x0050, text=» STR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007f, t01=0x0078}
0x0c6fc…0c708 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x00a6}
0x0c708…0c724 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x007f, t01=0x00b2}
0x0c724…0c74c Head {h00=0x0024, h01=0x0050, text=»IBAM20 ELR A2,A8 GET T:A POINTER«, t00=0x007f, t01=0x00ce}
0x0c74c…0c774 Head {h00=0x0024, h01=0x0050, text=» ELR A3,A2 GET MOVED BLOCK MASK «, t00=0x007f, t01=0x00f6}
0x0c774…0c7a4 Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007f, t01=0x011e}
0x0c7a4…0c7d2 Head {h00=0x002a, h01=0x0050, text=» ESR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007f, t01=0x014e}
0x0c7d2…0c7dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x017c}
0x0c7dc…0c806 Head {h00=0x0026, h01=0x0050, text=»* UPDATE MOVED MASK IN SECOND T:A«, t00=0x007f, t01=0x0186}
0x0c806…0c810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0020}
0x0c810…0c832 Head {h00=0x001e, h01=0x0050, text=» ELR A2,A6 GET T:A POINTER«, t00=0x0080, t01=0x002a}
0x0c832…0c85a Head {h00=0x0024, h01=0x0050, text=» ELR A3,A2 GET MOVED BLOCK MASK «, t00=0x0080, t01=0x004c}
0x0c85a…0c88a Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x0080, t01=0x0074}
0x0c88a…0c8b8 Head {h00=0x002a, h01=0x0050, text=» ESR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x0080, t01=0x00a4}
0x0c8b8…0c8c4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x00d2}
0x0c8c4…0c8da Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0080, t01=0x00de}
0x0c8da…0c8ea Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0080, t01=0x00f4}
0x0c8ea…0c8f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x0104}
0x0c8f8…0c946 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0080, t01=0x0112}
0x0c946…0c994 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0080, t01=0x0160}
0x0c994…0c9e2 Head {h00=0x004a, h01=0x0050, text=»* CHKMVD - CHECK IF BLOCK ALREADY MOVED * «, t00=0x0081, t01=0x001e}
0x0c9e2…0ca30 Head {h00=0x004a, h01=0x0050, text=»* ===================================== * «, t00=0x0081, t01=0x006c}
0x0ca30…0ca7e Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0081, t01=0x00ba}
0x0ca7e…0cacc Head {h00=0x004a, h01=0x0050, text=»* REFERENCED IN: MOVCOM,MOVCLA * «, t00=0x0081, t01=0x0108}
0x0cacc…0cb1a Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0081, t01=0x0156}
0x0cb1a…0cb68 Head {h00=0x004a, h01=0x0050, text=»* ENTRY: A8 - POINTER TO T:A * «, t00=0x0082, t01=0x0014}
0x0cb68…0cbb6 Head {h00=0x004a, h01=0x0050, text=»* BIT - BIT NUMBER IN CWB- OR UWB-MASK * «, t00=0x0082, t01=0x0062}
0x0cbb6…0cc04 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0082, t01=0x00b0}
0x0cc04…0cc52 Head {h00=0x004a, h01=0x0050, text=»* EXIT: IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2 * «, t00=0x0082, t01=0x00fe}
0x0cc52…0cca0 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0082, t01=0x014c}
0x0cca0…0ccee Head {h00=0x004a, h01=0x0050, text=»* WORK REGISTER: A1,A2 * «, t00=0x0083, t01=0x000a}
0x0ccee…0cd3c Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0083, t01=0x0058}
0x0cd3c…0cd8a Head {h00=0x004a, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0083, t01=0x00a6}
0x0cd8a…0cdd8 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0083, t01=0x00f4}
0x0cdd8…0ce26 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0083, t01=0x0142}
0x0ce26…0ce34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x0190}
0x0ce34…0ce48 Head {h00=0x0010, h01=0x0050, text=»CHKMVD EQU *«, t00=0x0084, t01=0x000e}
0x0ce48…0ce64 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0084, t01=0x0022}
0x0ce64…0ce88 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A POINTER «, t00=0x0084, t01=0x003e}
0x0ce88…0ceb0 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET MOVED BLOCK MASK«, t00=0x0084, t01=0x0062}
0x0ceb0…0cebc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x008a}
0x0cebc…0ced8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0084, t01=0x0096}
0x0ced8…0cefa Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A POINTER«, t00=0x0084, t01=0x00b2}
0x0cefa…0cf22 Head {h00=0x0024, h01=0x0050, text=» ELR A1,A1 GET MOVED BLOCK MASK «, t00=0x0084, t01=0x00d4}
0x0cf22…0cf2e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x00fc}
0x0cf2e…0cf44 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0084, t01=0x0108}
0x0cf44…0cf7a Head {h00=0x0032, h01=0x0050, text=» LD A2,BIT,A13 GET BIT SET IN CWB- OR UWB-MASK«, t00=0x0084, t01=0x011e}
0x0cf7a…0cfb4 Head {h00=0x0036, h01=0x0050, text=»CHKM10 RF(Z) CHKM20 BIT IN MOVED BLOCK MASK FOUND «, t00=0x0084, t01=0x0154}
0x0cfb4…0cfe2 Head {h00=0x002a, h01=0x0050, text=» SLL A1,1 NEXT BIT IN MOVED BLOCK MASK«, t00=0x0084, t01=0x018e}
0x0cfe2…0d00a Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT BIT COUNTER «, t00=0x0085, t01=0x002c}
0x0d00a…0d01c Head {h00=0x000e, h01=0x0050, text=» RB CHKM10«, t00=0x0085, t01=0x0054}
0x0d01c…0d03a Head {h00=0x001a, h01=0x0050, text=»CHKM20 ADK A1,0 SET CR«, t00=0x0085, t01=0x0066}
0x0d03a…0d068 Head {h00=0x002a, h01=0x0050, text=» CFI A14,PSW,A13 PUT CONDITION IN PSW «, t00=0x0085, t01=0x0084}
0x0d068…0d078 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0085, t01=0x00b2}
0x0d078…0d086 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0085, t01=0x00c2}
0x0d086…0d092 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0085, t01=0x00d0}
0x0d092…0d09e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0085, t01=0x00dc}
0x0d09e…0d0dc Head {h00=0x003a, h01=0x0050, text=»***** S * U * P * E * R * L * O * O * P ****«, t00=0x0085, t01=0x00e8}
0x0d0dc…0d11a Head {h00=0x003a, h01=0x0050, text=»** **«, t00=0x0085, t01=0x0126}
0x0d11a…0d158 Head {h00=0x003a, h01=0x0050, text=»** S H I F T & SKIFTA **«, t00=0x0085, t01=0x0164}
0x0d158…0d196 Head {h00=0x003a, h01=0x0050, text=»** **«, t00=0x0086, t01=0x0012}
0x0d196…0d1d4 Head {h00=0x003a, h01=0x0050, text=»** CALCULATES BIT NUMBER SAT IN MASK-WORD **«, t00=0x0086, t01=0x0050}
0x0d1d4…0d212 Head {h00=0x003a, h01=0x0050, text=»** INPUT : A7=MASK WORD **«, t00=0x0086, t01=0x008e}
0x0d212…0d250 Head {h00=0x003a, h01=0x0050, text=»** OUTPUT: BIT=BIT NUMBER **«, t00=0x0086, t01=0x00cc}
0x0d250…0d28e Head {h00=0x003a, h01=0x0050, text=»** CONDITION CODE IN PSW ON RETURN **«, t00=0x0086, t01=0x010a}
0x0d28e…0d2cc Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0086, t01=0x0148}
0x0d2cc…0d2d8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0086, t01=0x0186}
0x0d2d8…0d2ec (135, 0, 400) Head {h00=0x0010, h01=0x0050, text=»SHIFT EQU * «, t00=0x0087, t01=0x0004}
0x0d2ec…0d312 Head {h00=0x0022, h01=0x0050, text=» CM BIT,A13 RESET BIT COUNTER «, t00=0x0087, t01=0x0018}
0x0d312…0d324 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0087, t01=0x003e}
0x0d324…0d336 Head {h00=0x000e, h01=0x0050, text=» RF SHIF20«, t00=0x0087, t01=0x0050}
0x0d336…0d360 Head {h00=0x0026, h01=0x0050, text=»SKIFTA EQU * ENTRY: CONTINUE SHIFT«, t00=0x0087, t01=0x0062}
0x0d360…0d37a Head {h00=0x0016, h01=0x0050, text=»SHIF10 IM BIT,A13 «, t00=0x0087, t01=0x008c}
0x0d37a…0d38c Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x0087, t01=0x00a6}
0x0d38c…0d3a0 Head {h00=0x0010, h01=0x0050, text=»SHIF20 EQU *«, t00=0x0087, t01=0x00b8}
0x0d3a0…0d3c8 Head {h00=0x0024, h01=0x0050, text=» RF(Z) SHIF30 NO MOORE BITS SAT «, t00=0x0087, t01=0x00cc}
0x0d3c8…0d3de Head {h00=0x0012, h01=0x0050, text=» RB(NN) SHIF10«, t00=0x0087, t01=0x00f4}
0x0d3de…0d40c Head {h00=0x002a, h01=0x0050, text=»SHIF30 CFI A14,PSW,A13 PUT COND IN PSW«, t00=0x0087, t01=0x010a}
0x0d40c…0d41c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0087, t01=0x0138}
0x0d41c…0d428 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0087, t01=0x0148}
0x0d428…0d436 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0087, t01=0x0154}
0x0d436…0d442 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0087, t01=0x0162}
0x0d442…0d44e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0087, t01=0x016e}
0x0d44e…0d486 Head {h00=0x0034, h01=0x0050, text=»** M U L T **«, t00=0x0087, t01=0x017a}
0x0d486…0d4be Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0088, t01=0x0022}
0x0d4be…0d4f6 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0088, t01=0x005a}
0x0d4f6…0d52e Head {h00=0x0034, h01=0x0050, text=»** MULTIPLICATION (A2) X A3(), A2#0 **«, t00=0x0088, t01=0x0092}
0x0d52e…0d566 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0088, t01=0x00ca}
0x0d566…0d59e Head {h00=0x0034, h01=0x0050, text=»** INPUT : A3,A2 **«, t00=0x0088, t01=0x0102}
0x0d59e…0d5d6 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A3=RESULT **«, t00=0x0088, t01=0x013a}
0x0d5d6…0d60e Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0088, t01=0x0172}
0x0d60e…0d620 Head {h00=0x000e, h01=0x0050, text=»MULT EQU *«, t00=0x0089, t01=0x001a}
0x0d620…0d636 Head {h00=0x0012, h01=0x0050, text=» ST A3,MUL,A13«, t00=0x0089, t01=0x002c}
0x0d636…0d65c Head {h00=0x0022, h01=0x0050, text=» STR A2,A14 SAVE A2 TEMPORARY «, t00=0x0089, t01=0x0042}
0x0d65c…0d66e Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0089, t01=0x0068}
0x0d66e…0d688 Head {h00=0x0016, h01=0x0050, text=»ADD AD A3,MUL,A13 «, t00=0x0089, t01=0x007a}
0x0d688…0d69a Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0089, t01=0x0094}
0x0d69a…0d6ae Head {h00=0x0010, h01=0x0050, text=» RB(NZ) ADD «, t00=0x0089, t01=0x00a6}
0x0d6ae…0d6c2 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A14«, t00=0x0089, t01=0x00ba}
0x0d6c2…0d6d2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0089, t01=0x00ce}
0x0d6d2…0d6da Head {h00=0x0004, h01=0x0050, t00=0x0089, t01=0x00de}
0x0d6da…0d6f0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0089, t01=0x00e6}
0x0d6f0…0d6fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0089, t01=0x00fc}
0x0d6fe…0d706 Head {h00=0x0004, h01=0x0050, t00=0x0089, t01=0x010a}
0x0d706…0d73e Head {h00=0x0034, h01=0x0050, text=»** M M E N T ** «, t00=0x0089, t01=0x0112}
0x0d73e…0d776 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0089, t01=0x014a}
0x0d776…0d7ae Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0089, t01=0x0182}
0x0d7ae…0d7e6 Head {h00=0x0034, h01=0x0050, text=»** FIND LAST USED ENTRY IN MM-TAB. SCAN ** «, t00=0x008a, t01=0x002a}
0x0d7e6…0d81e Head {h00=0x0034, h01=0x0050, text=»** FROM LOW ADDRESS. NOT USED ENTRY=0. ** «, t00=0x008a, t01=0x0062}
0x0d81e…0d856 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x008a, t01=0x009a}
0x0d856…0d88e Head {h00=0x0034, h01=0x0050, text=»** INPUT :A3=MM-TABLE ADDRESS ** «, t00=0x008a, t01=0x00d2}
0x0d88e…0d8c6 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A3=ENTRY ADDRESS ** «, t00=0x008a, t01=0x010a}
0x0d8c6…0d8fe Head {h00=0x0034, h01=0x0050, text=»** A9=TTAB-ADDRESS ** «, t00=0x008a, t01=0x0142}
0x0d8fe…0d936 Head {h00=0x0034, h01=0x0050, text=»** LSTPAG IN TTAB=A3 ** «, t00=0x008a, t01=0x017a}
0x0d936…0d96e Head {h00=0x0034, h01=0x0050, text=»** A1=CONTENTS OF 1:ST USED ENTRY ** «, t00=0x008b, t01=0x0022}
0x0d96e…0d9a6 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x008b, t01=0x005a}
0x0d9a6…0d9ae Head {h00=0x0004, h01=0x0050, t00=0x008b, t01=0x0092}
0x0d9ae…0d9c2 Head {h00=0x0010, h01=0x0050, text=»MMENT EQU * «, t00=0x008b, t01=0x009a}
0x0d9c2…0d9e6 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A3 GET TABLE ADDRESS«, t00=0x008b, t01=0x00ae}
0x0d9e6…0da20 Head {h00=0x0036, h01=0x0050, text=» SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER)«, t00=0x008b, t01=0x00d2}
0x0da20…0da32 Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x008b, t01=0x010c}
0x0da32…0da5c Head {h00=0x0026, h01=0x0050, text=»MMEN10 ADK A3,2 INCREMENT ADDRESS «, t00=0x008b, t01=0x011e}
0x0da5c…0da88 Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A3 GET CONTENTS OF MM-TABLE«, t00=0x008b, t01=0x0148}
0x0da88…0da9e Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FC00«, t00=0x008b, t01=0x0174}
0x0da9e…0dab4 Head {h00=0x0012, h01=0x0050, text=» CWK A1,/FC00 «, t00=0x008b, t01=0x018a}
0x0dab4…0daca Head {h00=0x0012, h01=0x0050, text=» RB(Z) MMEN10 «, t00=0x008c, t01=0x0010}
0x0daca…0db00 Head {h00=0x0032, h01=0x0050, text=» ST A3,LSTPAG,A9 SAVE FIRST FREE PAGE-ADDRESS «, t00=0x008c, t01=0x0026}
0x0db00…0db10 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008c, t01=0x005c}
0x0db10…0db1c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008c, t01=0x006c}
0x0db1c…0db32 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x008c, t01=0x0078}
0x0db32…0db40 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008c, t01=0x008e}
0x0db40…0db48 Head {h00=0x0004, h01=0x0050, t00=0x008c, t01=0x009c}
0x0db48…0db7e Head {h00=0x0032, h01=0x0050, text=»** G E T T A B **«, t00=0x008c, t01=0x00a4}
0x0db7e…0dbb4 Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x008c, t01=0x00da}
0x0dbb4…0dbea Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x008c, t01=0x0110}
0x0dbea…0dc20 Head {h00=0x0032, h01=0x0050, text=»** FIND TTAB ADDRESS **«, t00=0x008c, t01=0x0146}
0x0dc20…0dc56 Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x008c, t01=0x017c}
0x0dc56…0dc8c Head {h00=0x0032, h01=0x0050, text=»** INPUT :A8=POINTER TO T:A IN T:ATAB **«, t00=0x008d, t01=0x0022}
0x0dc8c…0dcc2 Head {h00=0x0032, h01=0x0050, text=»** OUTPUT:A2=TTAB-ADDRESS **«, t00=0x008d, t01=0x0058}
0x0dcc2…0dcf8 Head {h00=0x0032, h01=0x0050, text=»** A1=TID **«, t00=0x008d, t01=0x008e}
0x0dcf8…0dd2e Head {h00=0x0032, h01=0x0050, text=»** WORKREGS:A3,A4,A10 **«, t00=0x008d, t01=0x00c4}
0x0dd2e…0dd64 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x008d, t01=0x00fa}
0x0dd64…0dd6c Head {h00=0x0004, h01=0x0050, t00=0x008d, t01=0x0130}
0x0dd6c…0dd80 Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x008d, t01=0x0138}
0x0dd80…0dd8c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x014c}
0x0dd8c…0dda2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x008d, t01=0x0158}
0x0dda2…0ddc2 Head {h00=0x001c, h01=0x0050, text=» LDR* A10,A8 T:A ADDRESS«, t00=0x008d, t01=0x016e}
0x0ddc2…0ddec Head {h00=0x0026, h01=0x0050, text=» LD A1,T:ATID,A10 GET TID TO MATCH«, t00=0x008d, t01=0x018e}
0x0ddec…0de12 Head {h00=0x0022, h01=0x0050, text=» LD A12,T:DAD,A10 T:D-ADDRESS «, t00=0x008e, t01=0x0028}
0x0de12…0de1e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x004e}
0x0de1e…0de34 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x008e, t01=0x005a}
0x0de34…0de54 Head {h00=0x001c, h01=0x0050, text=» ELR A10,A8 T:A-ADDRESS «, t00=0x008e, t01=0x0070}
0x0de54…0de76 Head {h00=0x001e, h01=0x0050, text=» EL A1,T:ATID,A10 GET TID «, t00=0x008e, t01=0x0090}
0x0de76…0de90 Head {h00=0x0016, h01=0x0050, text=» EL A12,T:DAD,A10 «, t00=0x008e, t01=0x00b2}
0x0de90…0de9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x00cc}
0x0de9c…0dec6 Head {h00=0x0026, h01=0x0050, text=»GETTTB EQU * ENTRY. INPUT: A1=TID «, t00=0x008e, t01=0x00d8}
0x0dec6…0deee Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTTCT GET TC:TAB ADDRESS«, t00=0x008e, t01=0x0102}
0x0deee…0df0e Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A4 TCTAB LENGTH«, t00=0x008e, t01=0x012a}
0x0df0e…0df26 Head {h00=0x0014, h01=0x0050, text=»GETT10 ADK A4,2 «, t00=0x008e, t01=0x014a}
0x0df26…0df3c Head {h00=0x0012, h01=0x0050, text=» SUK A3,2 ALL?«, t00=0x008e, t01=0x0162}
0x0df3c…0df56 Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETT20 NO!«, t00=0x008e, t01=0x0178}
0x0df56…0df84 (143, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) «, t00=0x008f, t01=0x0004}
0x0df84…0dfa2 Head {h00=0x001a, h01=0x0050, text=» LDK A1,LMP5 TID ERROR«, t00=0x008f, t01=0x0032}
0x0dfa2…0dfb6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x008f, t01=0x0050}
0x0dfb6…0dfdc Head {h00=0x0022, h01=0x0050, text=»GETT20 LDR* A2,A4 TTAB-ADDRESS«, t00=0x008f, t01=0x0064}
0x0dfdc…0e000 Head {h00=0x0020, h01=0x0050, text=» CW A1,TTB:PP,A2 TCL EQUAL? «, t00=0x008f, t01=0x008a}
0x0e000…0e01a Head {h00=0x0016, h01=0x0050, text=» RB(NE) GETT10 NO!«, t00=0x008f, t01=0x00ae}
0x0e01a…0e036 Head {h00=0x0018, h01=0x0050, text=» ST A2,TTAB,A13 SAVE«, t00=0x008f, t01=0x00c8}
0x0e036…0e046 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008f, t01=0x00e4}
0x0e046…0e05c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x008f, t01=0x00f4}
0x0e05c…0e06a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008f, t01=0x010a}
0x0e06a…0e072 Head {h00=0x0004, h01=0x0050, t00=0x008f, t01=0x0118}
0x0e072…0e07a Head {h00=0x0004, h01=0x0050, t00=0x008f, t01=0x0120}
0x0e07a…0e0b6 Head {h00=0x0038, h01=0x0050, text=»** Q U E J O B ** «, t00=0x008f, t01=0x0128}
0x0e0b6…0e0f2 Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x008f, t01=0x0164}
0x0e0f2…0e12e Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x0090, t01=0x0010}
0x0e12e…0e16a Head {h00=0x0038, h01=0x0050, text=»** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** «, t00=0x0090, t01=0x004c}
0x0e16a…0e1a6 Head {h00=0x0038, h01=0x0050, text=»** 0, ENB. ** «, t00=0x0090, t01=0x0088}
0x0e1a6…0e1e2 Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x0090, t01=0x00c4}
0x0e1e2…0e21e Head {h00=0x0038, h01=0x0050, text=»** INPUT: A10=T:A-ADDRESS ** «, t00=0x0090, t01=0x0100}
0x0e21e…0e25a Head {h00=0x0038, h01=0x0050, text=»** A12=T:D-ADDRESS ** «, t00=0x0090, t01=0x013c}
0x0e25a…0e296 Head {h00=0x0038, h01=0x0050, text=»** A2=TTAB-ADDRESS ** «, t00=0x0090, t01=0x0178}
0x0e296…0e2d2 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0091, t01=0x0024}
0x0e2d2…0e2da Head {h00=0x0004, h01=0x0050, t00=0x0091, t01=0x0060}
0x0e2da…0e2ee Head {h00=0x0010, h01=0x0050, text=»QUEJOB EQU *«, t00=0x0091, t01=0x0068}
0x0e2ee…0e312 Head {h00=0x0020, h01=0x0050, text=»* QUEUE THIS TASK (THIS TID)«, t00=0x0091, t01=0x007c}
0x0e312…0e31a Head {h00=0x0004, h01=0x0050, t00=0x0091, t01=0x00a0}
0x0e31a…0e34e Head {h00=0x0030, h01=0x0050, text=» LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS«, t00=0x0091, t01=0x00a8}
0x0e34e…0e36a Head {h00=0x0018, h01=0x0050, text=» ADR A3,A13 RELOCATE«, t00=0x0091, t01=0x00dc}
0x0e36a…0e38a Head {h00=0x001c, h01=0x0050, text=» STR A3,A15 PUT ON STACK«, t00=0x0091, t01=0x00f8}
0x0e38a…0e3b8 Head {h00=0x002a, h01=0x0050, text=» LDKL A3,/00C0 SET LEVEL 0 AND ENABLE «, t00=0x0091, t01=0x0118}
0x0e3b8…0e3d0 Head {h00=0x0014, h01=0x0050, text=» STR A3,A15 PSW «, t00=0x0091, t01=0x0146}
0x0e3d0…0e3f2 Head {h00=0x001e, h01=0x0050, text=» CF A15,SAVE8 SAVE 8 REGS «, t00=0x0091, t01=0x015e}
0x0e3f2…0e41a Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 CLEAR ABORT INDICATOR «, t00=0x0091, t01=0x0180}
0x0e41a…0e442 Head {h00=0x0024, h01=0x0050, text=» LD A8,SCTLAC GET P:MTAB-ADDRESS«, t00=0x0092, t01=0x0018}
0x0e442…0e466 Head {h00=0x0020, h01=0x0050, text=» LDR A5,A2 GET TTAB-ADDRESS «, t00=0x0092, t01=0x0040}
0x0e466…0e482 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0092, t01=0x0064}
0x0e482…0e4b2 Head {h00=0x002c, h01=0x0050, text=» LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS«, t00=0x0092, t01=0x0080}
0x0e4b2…0e4c4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0092, t01=0x00b0}
0x0e4c4…0e4da Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FFFE«, t00=0x0092, t01=0x00c2}
0x0e4da…0e4f2 Head {h00=0x0014, h01=0x0050, text=» ADK A4,DWBFST+4«, t00=0x0092, t01=0x00d8}
0x0e4f2…0e52e Head {h00=0x0038, h01=0x0050, text=» ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS«, t00=0x0092, t01=0x00f0}
0x0e52e…0e558 Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A4 NUMBER OF START POINTS«, t00=0x0092, t01=0x012c}
0x0e558…0e58a Head {h00=0x002e, h01=0x0050, text=»GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS«, t00=0x0092, t01=0x0156}
0x0e58a…0e5a4 Head {h00=0x0016, h01=0x0050, text=» RF(N) GETT40 ALL!«, t00=0x0092, t01=0x0188}
0x0e5a4…0e5c4 Head {h00=0x001c, h01=0x0050, text=» LD A1,4,A4 DISP ADDRESS«, t00=0x0093, t01=0x0012}
0x0e5c4…0e5e6 Head {h00=0x001e, h01=0x0050, text=» LD A3,2,A4 SEGMENT NUMBER«, t00=0x0093, t01=0x0032}
0x0e5e6…0e616 Head {h00=0x002c, h01=0x0050, text=» LD A2,NTPA,A8 INTERPRETER START ADDRESS«, t00=0x0093, t01=0x0054}
0x0e616…0e622 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0093, t01=0x0084}
0x0e622…0e63e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0093, t01=0x0090}
0x0e63e…0e66e Head {h00=0x002c, h01=0x0050, text=» EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS«, t00=0x0093, t01=0x00ac}
0x0e66e…0e680 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0093, t01=0x00dc}
0x0e680…0e696 Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FFFE«, t00=0x0093, t01=0x00ee}
0x0e696…0e6ae Head {h00=0x0014, h01=0x0050, text=» ADK A4,DWBFST+4«, t00=0x0093, t01=0x0104}
0x0e6ae…0e6ea Head {h00=0x0038, h01=0x0050, text=» ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS«, t00=0x0093, t01=0x011c}
0x0e6ea…0e714 Head {h00=0x0026, h01=0x0050, text=» ELR A6,A4 NUMBER OF START-POINTS «, t00=0x0093, t01=0x0158}
0x0e714…0e746 Head {h00=0x002e, h01=0x0050, text=»GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS«, t00=0x0093, t01=0x0182}
0x0e746…0e760 Head {h00=0x0016, h01=0x0050, text=» RF(N) GETT40 ALL!«, t00=0x0094, t01=0x0024}
0x0e760…0e780 Head {h00=0x001c, h01=0x0050, text=» EL A1,4,A4 DISP ADDRESS«, t00=0x0094, t01=0x003e}
0x0e780…0e7a2 Head {h00=0x001e, h01=0x0050, text=» EL A3,2,A4 SEGMENT NUMBER«, t00=0x0094, t01=0x005e}
0x0e7a2…0e7d2 Head {h00=0x002c, h01=0x0050, text=» EL A2,NTPA,A8 INTERPRETER START ADDRESS«, t00=0x0094, t01=0x0080}
0x0e7d2…0e7de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0094, t01=0x00b0}
0x0e7de…0e7f4 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0094, t01=0x00bc}
0x0e7f4…0e80a Head {h00=0x0012, h01=0x0050, text=» CF A15,ACTOT «, t00=0x0094, t01=0x00d2}
0x0e80a…0e832 Head {h00=0x0024, h01=0x0050, text=» ADK A4,STPREC NEXT START-POINT «, t00=0x0094, t01=0x00e8}
0x0e832…0e844 Head {h00=0x000e, h01=0x0050, text=» RB GETT30«, t00=0x0094, t01=0x0110}
0x0e844…0e86c Head {h00=0x0024, h01=0x0050, text=»GETT40 ABL RETUR8 RELOAD 8 REGS «, t00=0x0094, t01=0x0122}
0x0e86c…0e884 Head {h00=0x0014, h01=0x0050, text=»RETUR EQU *-REL «, t00=0x0094, t01=0x014a}
0x0e884…0e894 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0094, t01=0x0162}
0x0e894…0e8a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0094, t01=0x0172}
0x0e8a0…0e8b6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0094, t01=0x017e}
0x0e8b6…0e8c4 (149, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0095, t01=0x0004}
0x0e8c4…0e8cc Head {h00=0x0004, h01=0x0050, t00=0x0095, t01=0x0012}
0x0e8cc…0e904 Head {h00=0x0034, h01=0x0050, text=»** M O V M M T ** «, t00=0x0095, t01=0x001a}
0x0e904…0e93c Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0095, t01=0x0052}
0x0e93c…0e974 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0095, t01=0x008a}
0x0e974…0e9ac Head {h00=0x0034, h01=0x0050, text=»** MOVE MM-TABLE ** «, t00=0x0095, t01=0x00c2}
0x0e9ac…0e9e4 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0095, t01=0x00fa}
0x0e9e4…0ea1c Head {h00=0x0034, h01=0x0050, text=»** INPUT :A2=TTAB-ADDRESS ** «, t00=0x0095, t01=0x0132}
0x0ea1c…0ea54 Head {h00=0x0034, h01=0x0050, text=»** MMTAB HOLDS TABLE TO MOVE ** «, t00=0x0095, t01=0x016a}
0x0ea54…0ea8c Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A2=START OF MM-TABLE IN TTAB ** «, t00=0x0096, t01=0x0012}
0x0ea8c…0eac4 Head {h00=0x0034, h01=0x0050, text=»** A9=TTAB ADDRESS ** «, t00=0x0096, t01=0x004a}
0x0eac4…0eafc Head {h00=0x0034, h01=0x0050, text=»** WORKREGS:A1,A3 ** «, t00=0x0096, t01=0x0082}
0x0eafc…0eb34 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0096, t01=0x00ba}
0x0eb34…0eb3c Head {h00=0x0004, h01=0x0050, t00=0x0096, t01=0x00f2}
0x0eb3c…0eb50 Head {h00=0x0010, h01=0x0050, text=»MOVMMT EQU *«, t00=0x0096, t01=0x00fa}
0x0eb50…0eb7c Head {h00=0x0028, h01=0x0050, text=» ADKL A2,MMBEG GET TO-TABLE ADDRESS «, t00=0x0096, t01=0x010e}
0x0eb7c…0eba2 Head {h00=0x0022, h01=0x0050, text=» TL MMTAB,A13 LOAD FROM-TABLE «, t00=0x0096, t01=0x013a}
0x0eba2…0ebb6 Head {h00=0x0010, h01=0x0050, text=» TSR A2 MOVE«, t00=0x0096, t01=0x0160}
0x0ebb6…0ebc8 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0096, t01=0x0174}
0x0ebc8…0ebf4 Head {h00=0x0028, h01=0x0050, text=» CALL MMENT FILL LAST ENTRY ADDRESS «, t00=0x0096, t01=0x0186}
0x0ebf4…0ec18 Head {h00=0x0020, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE«, t00=0x0097, t01=0x0022}
0x0ec18…0ec28 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0097, t01=0x0046}
0x0ec28…0ec34 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0097, t01=0x0056}
0x0ec34…0ec4a Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0097, t01=0x0062}
0x0ec4a…0ec58 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0097, t01=0x0078}
0x0ec58…0ec9c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0097, t01=0x0086}
0x0ec9c…0ece0 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0097, t01=0x00ca}
0x0ece0…0ed24 Head {h00=0x0040, h01=0x0050, text=»* CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE AREA IN TTAB *«, t00=0x0097, t01=0x010e}
0x0ed24…0ed6a Head {h00=0x0042, h01=0x0050, text=»* SAVE REAL TID IN AUXILIARY TABLE FOR DEBUGGER * «, t00=0x0097, t01=0x0152}
0x0ed6a…0edae Head {h00=0x0040, h01=0x0050, text=»* ====================================================== *«, t00=0x0098, t01=0x0008}
0x0edae…0edf2 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0098, t01=0x004c}
0x0edf2…0ee36 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0098, t01=0x0090}
0x0ee36…0ee7a Head {h00=0x0040, h01=0x0050, text=»* REFERENCED IN: SYSLDA PART 2 B. *«, t00=0x0098, t01=0x00d4}
0x0ee7a…0eebe Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0098, t01=0x0118}
0x0eebe…0ef02 Head {h00=0x0040, h01=0x0050, text=»* ENTRY: A5 - POINTER TO NUMBER OF COPIES *«, t00=0x0098, t01=0x015c}
0x0ef02…0ef46 Head {h00=0x0040, h01=0x0050, text=»* A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB *«, t00=0x0099, t01=0x0010}
0x0ef46…0ef8a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0099, t01=0x0054}
0x0ef8a…0efce Head {h00=0x0040, h01=0x0050, text=»* EXIT: *«, t00=0x0099, t01=0x0098}
0x0efce…0f012 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0099, t01=0x00dc}
0x0f012…0f056 Head {h00=0x0040, h01=0x0050, text=»* WORK REGISTERS: A1,A3,A6,A8 *«, t00=0x0099, t01=0x0120}
0x0f056…0f09a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0099, t01=0x0164}
0x0f09a…0f0de Head {h00=0x0040, h01=0x0050, text=»* SUBROUTINES: GETTTB *«, t00=0x009a, t01=0x0018}
0x0f0de…0f122 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x009a, t01=0x005c}
0x0f122…0f166 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x009a, t01=0x00a0}
0x0f166…0f17a Head {h00=0x0010, h01=0x0050, text=»CHTAID EQU *«, t00=0x009a, t01=0x00e4}
0x0f17a…0f1b0 Head {h00=0x0032, h01=0x0050, text=» LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB «, t00=0x009a, t01=0x00f8}
0x0f1b0…0f1d8 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x009a, t01=0x012e}
0x0f1d8…0f1fe Head {h00=0x0022, h01=0x0050, text=»CHT:10 RF(Z) CHT:90 NO MOORE! «, t00=0x009a, t01=0x0156}
0x0f1fe…0f230 Head {h00=0x002e, h01=0x0050, text=» SUKL A8,2 LAST USED ENTRY IN REAL T:ATAB «, t00=0x009a, t01=0x017c}
0x0f230…0f24c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x009b, t01=0x001e}
0x0f24c…0f278 Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A8 GET POINTER TO REAL T:A «, t00=0x009b, t01=0x003a}
0x0f278…0f2a0 Head {h00=0x0024, h01=0x0050, text=» LD A1,T:ATID,A1 GET TCL IN T:A «, t00=0x009b, t01=0x0066}
0x0f2a0…0f2d2 Head {h00=0x002e, h01=0x0050, text=»CHT:20 CALL GETTTB GET CORRESPONDING TTAB «, t00=0x009b, t01=0x008e}
0x0f2d2…0f300 Head {h00=0x002a, h01=0x0050, text=» LD A4,TTBTID,A2 GET REAL TID IN TTAB «, t00=0x009b, t01=0x00c0}
0x0f300…0f33a Head {h00=0x0036, h01=0x0050, text=» LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS «, t00=0x009b, t01=0x00ee}
0x0f33a…0f366 Head {h00=0x0028, h01=0x0050, text=» ST A4,T:ATID,A3 REPLACE TCL IN T:A «, t00=0x009b, t01=0x0128}
0x0f366…0f390 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A8 GET REAL T:ATAB POINTER«, t00=0x009b, t01=0x0154}
0x0f390…0f3ca Head {h00=0x0036, h01=0x0050, text=» SU* A3,T:ATNW,A13 COMPUTE ENTRY IN AUX. TID TABLE«, t00=0x009b, t01=0x017e}
0x0f3ca…0f3fa Head {h00=0x002c, h01=0x0050, text=» STR A4,A3 SAVE TID FOR DEBUGGER PURPOSE«, t00=0x009c, t01=0x0028}
0x0f3fa…0f406 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009c, t01=0x0058}
0x0f406…0f422 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x009c, t01=0x0064}
0x0f422…0f44c Head {h00=0x0026, h01=0x0050, text=» ELR A1,A8 GET POINTER TO REAL T:A«, t00=0x009c, t01=0x0080}
0x0f44c…0f474 Head {h00=0x0024, h01=0x0050, text=» EL A1,T:ATID,A1 GET TCL IN T:A «, t00=0x009c, t01=0x00aa}
0x0f474…0f4a6 Head {h00=0x002e, h01=0x0050, text=»CHT:20 CALL GETTTB GET CORRESPONDING TTAB «, t00=0x009c, t01=0x00d2}
0x0f4a6…0f4d2 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A2 GET POINTER TO TTAB ENTRY«, t00=0x009c, t01=0x0104}
0x0f4d2…0f508 Head {h00=0x0032, h01=0x0050, text=» ADKL A3,MMBEG START OF MM-TABLE FOR THIS TTAB«, t00=0x009c, t01=0x0130}
0x0f508…0f518 Head {h00=0x000c, h01=0x0050, text=» TLR A3 «, t00=0x009c, t01=0x0166}
0x0f518…0f550 Head {h00=0x0034, h01=0x0050, text=» LD A4,TTBTID,A2 GET REAL TID IN TTAB *79-04-11*«, t00=0x009c, t01=0x0176}
0x0f550…0f58a Head {h00=0x0036, h01=0x0050, text=» LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS «, t00=0x009d, t01=0x001e}
0x0f58a…0f5c0 Head {h00=0x0032, h01=0x0050, text=» ES A4,T:ATID,A3 REPLACE TCL IN T:A *79-04-11*«, t00=0x009d, t01=0x0058}
0x0f5c0…0f5f4 Head {h00=0x0030, h01=0x0050, text=» EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB«, t00=0x009d, t01=0x008e}
0x0f5f4…0f61c Head {h00=0x0024, h01=0x0050, text=» NGR A3,A3 NEGATIVE DISPLACEMENT«, t00=0x009d, t01=0x00c2}
0x0f61c…0f64e Head {h00=0x002e, h01=0x0050, text=» ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE«, t00=0x009d, t01=0x00ea}
0x0f64e…0f68a Head {h00=0x0038, h01=0x0050, text=» ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE *79-04-11* «, t00=0x009d, t01=0x011c}
0x0f68a…0f696 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009d, t01=0x0158}
0x0f696…0f6ac Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x009d, t01=0x0164}
0x0f6ac…0f6d6 Head {h00=0x0026, h01=0x0050, text=» CM TTB:PP,A2 CLEAR TCL SAVE AREA «, t00=0x009d, t01=0x017a}
0x0f6d6…0f6f6 Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 DECREMENT TCL «, t00=0x009e, t01=0x0014}
0x0f6f6…0f712 Head {h00=0x0018, h01=0x0050, text=» SUKL A8,2 DECREMENT«, t00=0x009e, t01=0x0034}
0x0f712…0f73e Head {h00=0x0028, h01=0x0050, text=» SUK A6,1 DECREMENT NUMBER OF COPIES«, t00=0x009e, t01=0x0050}
0x0f73e…0f75e Head {h00=0x001c, h01=0x0050, text=» RB(P) CHT:20 NEXT COPY «, t00=0x009e, t01=0x007c}
0x0f75e…0f774 Head {h00=0x0012, h01=0x0050, text=»CHT:90 RTN A14«, t00=0x009e, t01=0x009c}
0x0f774…0f782 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009e, t01=0x00b2}
0x0f782…0f78a Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x00c0}
0x0f78a…0f792 Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x00c8}
0x0f792…0f7ca Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009e, t01=0x00d0}
0x0f7ca…0f802 Head {h00=0x0034, h01=0x0050, text=»*** ***«, t00=0x009e, t01=0x0108}
0x0f802…0f83a Head {h00=0x0034, h01=0x0050, text=»** SYSLOAD PART 2.B **«, t00=0x009e, t01=0x0140}
0x0f83a…0f872 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x009e, t01=0x0178}
0x0f872…0f8aa Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009f, t01=0x0020}
0x0f8aa…0f8b2 Head {h00=0x0004, h01=0x0050, t00=0x009f, t01=0x0058}
0x0f8b2…0f8ea Head {h00=0x0034, h01=0x0050, text=»* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO *«, t00=0x009f, t01=0x0060}
0x0f8ea…0f922 Head {h00=0x0034, h01=0x0050, text=»* SHADOW TABLE *«, t00=0x009f, t01=0x0098}
0x0f922…0f95a Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x009f, t01=0x00d0}
0x0f95a…0f992 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009f, t01=0x0108}
0x0f992…0f99a Head {h00=0x0004, h01=0x0050, t00=0x009f, t01=0x0140}
0x0f99a…0f9b2 Head {h00=0x0014, h01=0x0050, text=»PART2B EQU *-REL«, t00=0x009f, t01=0x0148}
0x0f9b2…0f9ba Head {h00=0x0004, h01=0x0050, t00=0x009f, t01=0x0160}
0x0f9ba…0f9c2 Head {h00=0x0004, h01=0x0050, t00=0x009f, t01=0x0168}
0x0f9c2…0f9d6 Head {h00=0x0010, h01=0x0050, text=»REALTA EQU *«, t00=0x009f, t01=0x0170}
0x0f9d6…0fa00 Head {h00=0x0026, h01=0x0050, text=» LD A5,SCTSFA MONITOR END ADDRESS «, t00=0x009f, t01=0x0184}
0x0fa00…0fa32 Head {h00=0x002e, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB PROTOTYP ADDRESS «, t00=0x00a0, t01=0x001e}
0x0fa32…0fa60 Head {h00=0x002a, h01=0x0050, text=» LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS «, t00=0x00a0, t01=0x0050}
0x0fa60…0fa72 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00a0, t01=0x007e}
0x0fa72…0fa94 Head {h00=0x001e, h01=0x0050, text=» ST A8,SAVE03,A13 SAVE A8 «, t00=0x00a0, t01=0x0090}
0x0fa94…0fabe Head {h00=0x0026, h01=0x0050, text=»SYA310 LD A8,SAVE03,A13 RESTORE A8«, t00=0x00a0, t01=0x00b2}
0x0fabe…0fad0 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x00a0, t01=0x00dc}
0x0fad0…0faee Head {h00=0x001a, h01=0x0050, text=» CW A8,ENDADD,A13 ALL?«, t00=0x00a0, t01=0x00ee}
0x0faee…0fb08 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA350 YES!«, t00=0x00a0, t01=0x010c}
0x0fb08…0fb26 Head {h00=0x001a, h01=0x0050, text=» ST A8,SAVE03,A13 SAVE«, t00=0x00a0, t01=0x0126}
0x0fb26…0fb4e Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 A5=SHADOW TAB POINTER «, t00=0x00a0, t01=0x0144}
0x0fb4e…0fb6a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00a0, t01=0x016c}
0x0fb6a…0fba0 Head {h00=0x0032, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB AND QUEUE «, t00=0x00a0, t01=0x0188}
0x0fba0…0fbb4 Head {h00=0x0010, h01=0x0050, text=» CALL QUEJOB«, t00=0x00a1, t01=0x002e}
0x0fbb4…0fbf2 Head {h00=0x003a, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13)«, t00=0x00a1, t01=0x0042}
0x0fbf2…0fc18 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00a1, t01=0x0080}
0x0fc18…0fc36 Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00a1, t01=0x00a6}
0x0fc36…0fc50 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA320 NO! «, t00=0x00a1, t01=0x00c4}
0x0fc50…0fc74 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A10 GET T:A-ADDRESS «, t00=0x00a1, t01=0x00de}
0x0fc74…0fca8 Head {h00=0x0030, h01=0x0050, text=» ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE«, t00=0x00a1, t01=0x0102}
0x0fca8…0fcce Head {h00=0x0022, h01=0x0050, text=» ST A1,TTB:CB,A2 STORE IN TTAB«, t00=0x00a1, t01=0x0136}
0x0fcce…0fcf8 Head {h00=0x0026, h01=0x0050, text=»SYA320 LDR* A1,A8 GET T:A ADDRESS «, t00=0x00a1, t01=0x015c}
0x0fcf8…0fd20 Head {h00=0x0024, h01=0x0050, text=» STR A1,A7 STORE IN REAL T:ATAB «, t00=0x00a1, t01=0x0186}
0x0fd20…0fd32 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00a2, t01=0x001e}
0x0fd32…0fd5a Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x00a2, t01=0x0030}
0x0fd5a…0fd68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a2, t01=0x0058}
0x0fd68…0fd80 Head {h00=0x0014, h01=0x0050, text=»SYA340 SUK A6,1 «, t00=0x00a2, t01=0x0066}
0x0fd80…0fda0 Head {h00=0x001c, h01=0x0050, text=» RF(P) SYA345 NEXT TASK «, t00=0x00a2, t01=0x007e}
0x0fda0…0fdd6 Head {h00=0x0032, h01=0x0050, text=» CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS «, t00=0x00a2, t01=0x009e}
0x0fdd6…0fdf8 Head {h00=0x001e, h01=0x0050, text=» RB SYA310 NEXT TASK-CLASS«, t00=0x00a2, t01=0x00d4}
0x0fdf8…0fe26 Head {h00=0x002a, h01=0x0050, text=»SYA345 LD A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x00a2, t01=0x00f6}
0x0fe26…0fe44 Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x00a2, t01=0x0124}
0x0fe44…0fe64 Head {h00=0x001c, h01=0x0050, text=» IM T:ATID,A2 UPDATE TID«, t00=0x00a2, t01=0x0142}
0x0fe64…0fe8c Head {h00=0x0024, h01=0x0050, text=» STR A2,A7 STORE IN REAL T:ATAB «, t00=0x00a2, t01=0x0162}
0x0fe8c…0feb2 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A7 CHANGE T:A TO COPY «, t00=0x00a2, t01=0x018a}
0x0feb2…0fee8 Head {h00=0x0032, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB AND QUEUE «, t00=0x00a3, t01=0x0020}
0x0fee8…0ff0c Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a3, t01=0x0056}
0x0ff0c…0ff42 Head {h00=0x0032, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB «, t00=0x00a3, t01=0x007a}
0x0ff42…0ff68 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00a3, t01=0x00b0}
0x0ff68…0ff86 Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00a3, t01=0x00d6}
0x0ff86…0ffa0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA348 NO! «, t00=0x00a3, t01=0x00f4}
0x0ffa0…0ffc4 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A10 GET T:A-ADDRESS «, t00=0x00a3, t01=0x010e}
0x0ffc4…0fff8 Head {h00=0x0030, h01=0x0050, text=» ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE«, t00=0x00a3, t01=0x0132}
0x0fff8…1001e Head {h00=0x0022, h01=0x0050, text=» ST A1,TTB:CB,A2 STORE IN TTAB«, t00=0x00a3, t01=0x0166}
0x1001e…10050 Head {h00=0x002e, h01=0x0050, text=»SYA348 ADK A7,2 NEXT ENTRY IN REAL T:ATAB «, t00=0x00a3, t01=0x018c}
0x10050…10086 Head {h00=0x0032, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S AND RESERVE FOR SWB'S «, t00=0x00a4, t01=0x002e}
0x10086…100ac Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x00a4, t01=0x0064}
0x100ac…100b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a4, t01=0x008a}
0x100b8…100d4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00a4, t01=0x0096}
0x100d4…10102 Head {h00=0x002a, h01=0x0050, text=»* GET ACTUAL MM-TABLE ADDRESS AND LOAD«, t00=0x00a4, t01=0x00b2}
0x10102…1010a Head {h00=0x0004, h01=0x0050, t00=0x00a4, t01=0x00e0}
0x1010a…1011c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x00a4, t01=0x00e8}
0x1011c…1014a Head {h00=0x002a, h01=0x0050, text=» AD* A1,SCTSFA ADD SHADOW-TABLE LENGTH«, t00=0x00a4, t01=0x00fa}
0x1014a…10172 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET MM-TABLE ADDRESS«, t00=0x00a4, t01=0x0128}
0x10172…10186 Head {h00=0x0010, h01=0x0050, text=» TLR A1 LOAD«, t00=0x00a4, t01=0x0150}
0x10186…101ac Head {h00=0x0022, h01=0x0050, text=» ST A1,MMFROM,A13 SAVE ADDRESS«, t00=0x00a4, t01=0x0164}
0x101ac…101d8 Head {h00=0x0028, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB «, t00=0x00a4, t01=0x018a}
0x101d8…10216 Head {h00=0x003a, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13)«, t00=0x00a5, t01=0x0026}
0x10216…1023a Head {h00=0x0020, h01=0x0050, text=» LDR A1,A10 GET T:A-ADDRESS «, t00=0x00a5, t01=0x0064}
0x1023a…1026e Head {h00=0x0030, h01=0x0050, text=» ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE«, t00=0x00a5, t01=0x0088}
0x1026e…10294 Head {h00=0x0022, h01=0x0050, text=» ST A1,TTB:CB,A2 STORE IN TTAB«, t00=0x00a5, t01=0x00bc}
0x10294…102c8 Head {h00=0x0030, h01=0x0050, text=» LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST ENTRY «, t00=0x00a5, t01=0x00e2}
0x102c8…102ec Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a5, t01=0x0116}
0x102ec…1031a Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MMTAB GET WORK TABLE ADDRESS «, t00=0x00a5, t01=0x013a}
0x1031a…1032e Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x00a5, t01=0x0168}
0x1032e…10354 Head {h00=0x0022, h01=0x0050, text=» TSR A2 SAVE CLASS-DATA TABLE «, t00=0x00a5, t01=0x017c}
0x10354…10384 Head {h00=0x002c, h01=0x0050, text=»* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE «, t00=0x00a6, t01=0x0012}
0x10384…1038c Head {h00=0x0004, h01=0x0050, t00=0x00a6, t01=0x0042}
0x1038c…103ac Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 START OF TABLE«, t00=0x00a6, t01=0x004a}
0x103ac…103c4 Head {h00=0x0014, h01=0x0050, text=» LDKL A12,/FC00 «, t00=0x00a6, t01=0x006a}
0x103c4…103e6 Head {h00=0x001e, h01=0x0050, text=»SYA320 SUK A1,2 NEXT ENTRY«, t00=0x00a6, t01=0x0082}
0x103e6…103fe Head {h00=0x0014, h01=0x0050, text=» CWR A1,A2 ALL? «, t00=0x00a6, t01=0x00a4}
0x103fe…10418 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA330 YES!«, t00=0x00a6, t01=0x00bc}
0x10418…10438 Head {h00=0x001c, h01=0x0050, text=» STR A12,A1 REMOVE ENTRY«, t00=0x00a6, t01=0x00d6}
0x10438…1044a Head {h00=0x000e, h01=0x0050, text=» RB SYA320«, t00=0x00a6, t01=0x00f6}
0x1044a…1045e Head {h00=0x0010, h01=0x0050, text=»SYA330 EQU *«, t00=0x00a6, t01=0x0108}
0x1045e…10480 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A ADDRESS«, t00=0x00a6, t01=0x011c}
0x10480…104a8 Head {h00=0x0024, h01=0x0050, text=» ESR A1,A7 STORE IN REAL T:ATAB «, t00=0x00a6, t01=0x013e}
0x104a8…104d0 Head {h00=0x0024, h01=0x0050, text=» EL A12,T:DAD,A1 GET T:D ADDRESS«, t00=0x00a6, t01=0x0166}
0x104d0…104f0 Head {h00=0x001c, h01=0x0050, text=» EL A1,T:ATID,A1 GET TID«, t00=0x00a6, t01=0x018e}
0x104f0…1051c Head {h00=0x0028, h01=0x0050, text=» ADK A7,2 NEXT ENTRY IN REAL T:ATAB «, t00=0x00a7, t01=0x001e}
0x1051c…10544 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x00a7, t01=0x004a}
0x10544…1055c Head {h00=0x0014, h01=0x0050, text=»SYA340 SUK A6,1 «, t00=0x00a7, t01=0x0072}
0x1055c…1057c Head {h00=0x001c, h01=0x0050, text=» RF(P) SYA345 NEXT TASK «, t00=0x00a7, t01=0x008a}
0x1057c…105b2 Head {h00=0x0032, h01=0x0050, text=» CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS «, t00=0x00a7, t01=0x00aa}
0x105b2…105d4 Head {h00=0x001e, h01=0x0050, text=» RB SYA310 NEXT TASK-CLASS«, t00=0x00a7, t01=0x00e0}
0x105d4…105f8 Head {h00=0x0020, h01=0x0050, text=»SYA345 ADK A1,1 NEXT T:A ID «, t00=0x00a7, t01=0x0102}
0x105f8…10624 Head {h00=0x0028, h01=0x0050, text=» CALL GETTTB FIND CORRESPONDING TTAB«, t00=0x00a7, t01=0x0126}
0x10624…10648 Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a7, t01=0x0152}
0x10648…10672 Head {h00=0x0026, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE TO TTAB«, t00=0x00a7, t01=0x0176}
0x10672…10690 Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x00a8, t01=0x0010}
0x10690…106b8 Head {h00=0x0024, h01=0x0050, text=» ESR A2,A7 STORE IN REAL T:ATAB «, t00=0x00a8, t01=0x002e}
0x106b8…106fc Head {h00=0x0040, h01=0x0050, text=» ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS«, t00=0x00a8, t01=0x0056}
0x106fc…1071e Head {h00=0x001e, h01=0x0050, text=» LDR A8,A2 GET T:A-ADDRESS«, t00=0x00a8, t01=0x009a}
0x1071e…10752 Head {h00=0x0030, h01=0x0050, text=» ADKL A8,CSB ADDRESS TO CURRENT SEGMENT BASE«, t00=0x00a8, t01=0x00bc}
0x10752…10778 Head {h00=0x0022, h01=0x0050, text=» ST A8,TTB:CB,A9 STORE IN TTAB«, t00=0x00a8, t01=0x00f0}
0x10778…1079e Head {h00=0x0022, h01=0x0050, text=» LDR A8,A7 CHANGE T:A TO COPY «, t00=0x00a8, t01=0x0116}
0x1079e…107ce Head {h00=0x002c, h01=0x0050, text=» ADK A7,2 NEXT FREE WORD IN REAL T:ATAB «, t00=0x00a8, t01=0x013c}
0x107ce…107e8 Head {h00=0x0016, h01=0x0050, text=» A2=NEW ADDRESS «, t00=0x00a8, t01=0x016c}
0x107e8…1081c Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x00a8, t01=0x0186}
0x1081c…10840 Head {h00=0x0020, h01=0x0050, text=» LD A1,MMTO,A13 GET TO-TABLE«, t00=0x00a9, t01=0x002a}
0x10840…10872 Head {h00=0x002e, h01=0x0050, text=» ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE«, t00=0x00a9, t01=0x004e}
0x10872…10882 Head {h00=0x000c, h01=0x0050, text=» TLR A1 «, t00=0x00a9, t01=0x0080}
0x10882…108a8 Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x00a9, t01=0x0090}
0x108a8…108d0 Head {h00=0x0024, h01=0x0050, text=» LD A1,TTAB,A13 GET TTAB-ADDRESS«, t00=0x00a9, t01=0x00b6}
0x108d0…108fe Head {h00=0x002a, h01=0x0050, text=» CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB «, t00=0x00a9, t01=0x00de}
0x108fe…10928 Head {h00=0x0026, h01=0x0050, text=» ELR A10,A8 GET T:A-ADDRESS (NEW) «, t00=0x00a9, t01=0x010c}
0x10928…1094a Head {h00=0x001e, h01=0x0050, text=» EL A1,T:ATID,A10 GET TID «, t00=0x00a9, t01=0x0136}
0x1094a…10966 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 UPDATE TID«, t00=0x00a9, t01=0x0158}
0x10966…1098e Head {h00=0x0024, h01=0x0050, text=» ES A1,T:ATID,A10 RESTORE IN T:A«, t00=0x00a9, t01=0x0174}
0x1098e…1099a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00aa, t01=0x000c}
0x1099a…109b0 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00aa, t01=0x0018}
0x109b0…109c2 Head {h00=0x000e, h01=0x0050, text=» RB SYA340«, t00=0x00aa, t01=0x002e}
0x109c2…109ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00aa, t01=0x0040}
0x109ce…109dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00aa, t01=0x004c}
0x109dc…109f4 Head {h00=0x0014, h01=0x0050, text=»FINISH EQU *-REL«, t00=0x00aa, t01=0x005a}
0x109f4…109fc Head {h00=0x0004, h01=0x0050, t00=0x00aa, t01=0x0072}
0x109fc…10a20 Head {h00=0x0020, h01=0x0050, text=»* ADJUST START OF FREE AREA «, t00=0x00aa, t01=0x007a}
0x10a20…10a28 Head {h00=0x0004, h01=0x0050, t00=0x00aa, t01=0x009e}
0x10a28…10a3c Head {h00=0x0010, h01=0x0050, text=»SYA350 EQU *«, t00=0x00aa, t01=0x00a6}
0x10a3c…10a52 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00aa, t01=0x00ba}
0x10a52…10a80 Head {h00=0x002a, h01=0x0050, text=» LD A1,LSTADR,A13 GET END OF FREE AREA«, t00=0x00aa, t01=0x00d0}
0x10a80…10ab2 Head {h00=0x002e, h01=0x0050, text=» LD A14,SAVE13,A13 GET APPL. REL. BASE =1 «, t00=0x00aa, t01=0x00fe}
0x10ab2…10abe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00aa, t01=0x0130}
0x10abe…10ada Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00aa, t01=0x013c}
0x10ada…10af0 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFF «, t00=0x00aa, t01=0x0158}
0x10af0…10b0a Head {h00=0x0016, h01=0x0050, text=» LD A2,FYSPAG,A13 «, t00=0x00aa, t01=0x016e}
0x10b0a…10b1c Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x00aa, t01=0x0188}
0x10b1c…10b2e Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x00ab, t01=0x000a}
0x10b2e…10b3a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x001c}
0x10b3a…10b50 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x00ab, t01=0x0028}
0x10b50…10b66 Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTLAC «, t00=0x00ab, t01=0x003e}
0x10b66…10b72 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x0054}
0x10b72…10b8e Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x00ab, t01=0x0060}
0x10b8e…10ba4 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/03FF«, t00=0x00ab, t01=0x007c}
0x10ba4…10bb6 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x00ab, t01=0x0092}
0x10bb6…10bc2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x00a4}
0x10bc2…10bda Head {h00=0x0014, h01=0x0050, text=» ST A1,SCTEFA+2 «, t00=0x00ab, t01=0x00b0}
0x10bda…10bf0 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00ab, t01=0x00c8}
0x10bf0…10c0a Head {h00=0x0016, h01=0x0050, text=» LD A1,FYSPAG,A13 «, t00=0x00ab, t01=0x00de}
0x10c0a…10c26 Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x00ab, t01=0x00f8}
0x10c26…10c3c Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTLAC «, t00=0x00ab, t01=0x0114}
0x10c3c…10c48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x012a}
0x10c48…10c64 Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CREDIT=0«, t00=0x00ab, t01=0x0136}
0x10c64…10c76 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00ab, t01=0x0152}
0x10c76…10c82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x0164}
0x10c82…10c94 Head {h00=0x000e, h01=0x0050, text=» SRL A1,14«, t00=0x00ab, t01=0x0170}
0x10c94…10caa Head {h00=0x0012, h01=0x0050, text=» ST A1,SCTEFA «, t00=0x00ab, t01=0x0182}
0x10caa…10cc6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ac, t01=0x0008}
0x10cc6…10cf2 Head {h00=0x0028, h01=0x0050, text=» LD A1,FSTADR,A13 START OF FREE AREA«, t00=0x00ac, t01=0x0024}
0x10cf2…10d08 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA355«, t00=0x00ac, t01=0x0050}
0x10d08…10d14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x0066}
0x10d14…10d2a Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTSFA «, t00=0x00ac, t01=0x0072}
0x10d2a…10d48 Head {h00=0x001a, h01=0x0050, text=»SYA355 ST A1,SCTSFA+2 «, t00=0x00ac, t01=0x0088}
0x10d48…10d5a Head {h00=0x000e, h01=0x0050, text=» CM SCTSFA«, t00=0x00ac, t01=0x00a6}
0x10d5a…10d70 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00ac, t01=0x00b8}
0x10d70…10d7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ac, t01=0x00ce}
0x10d7e…10dc6 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x00ac, t01=0x00dc}
0x10dc6…10e0e Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ac, t01=0x0124}
0x10e0e…10e56 Head {h00=0x0044, h01=0x003f, text=»* PAGGEN - BUILD PAGE TABLE * «, t00=0x00ac, t01=0x016c}
0x10e56…10e9e Head {h00=0x0044, h01=0x003f, text=»* ========================= * «, t00=0x00ad, t01=0x0024}
0x10e9e…10ee6 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ad, t01=0x006c}
0x10ee6…10f2e Head {h00=0x0044, h01=0x003f, text=»* REFERENCED IN: SYSLDA * «, t00=0x00ad, t01=0x00b4}
0x10f2e…10f76 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ad, t01=0x00fc}
0x10f76…10fbe Head {h00=0x0044, h01=0x003f, text=»* ENTRY: SCTSFA - START OF FREE AREA * «, t00=0x00ad, t01=0x0144}
0x10fbe…11006 Head {h00=0x0044, h01=0x003f, text=»* SCTEFA - END OF FREE AREA * «, t00=0x00ad, t01=0x018c}
0x11006…1104e Head {h00=0x0044, h01=0x0050, text=»* SAVE29 - NUMBER OF SEGMENTS * «, t00=0x00ae, t01=0x0044}
0x1104e…11096 Head {h00=0x0044, h01=0x003f, text=»* SCTNOP - NUMBER OF PAGES * «, t00=0x00ae, t01=0x008c}
0x11096…110de Head {h00=0x0044, h01=0x003f, text=»* SCTPSZ - PAGE SIZE * «, t00=0x00ae, t01=0x00d4}
0x110de…11126 Head {h00=0x0044, h01=0x003f, text=»* SAVE22 - PHYSICAL ADDRESS TO FIRST PAGE (16 BITS) * «, t00=0x00ae, t01=0x011c}
0x11126…1116e Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ae, t01=0x0164}
0x1116e…111b6 Head {h00=0x0044, h01=0x003f, text=»* EXIT: PAGQUE - POINTER TO FIRST FREE PAGE BLOCK * «, t00=0x00af, t01=0x001c}
0x111b6…111fe Head {h00=0x0044, h01=0x003f, text=»* PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * «, t00=0x00af, t01=0x0064}
0x111fe…11246 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00af, t01=0x00ac}
0x11246…1128e Head {h00=0x0044, h01=0x003f, text=»* WORK REGISTERS: A1-A12 * «, t00=0x00af, t01=0x00f4}
0x1128e…112d6 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00af, t01=0x013c}
0x112d6…1131e Head {h00=0x0044, h01=0x003f, text=»* SUBROUTINES: * «, t00=0x00af, t01=0x0184}
0x1131e…11366 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00b0, t01=0x003c}
0x11366…113ae Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00b0, t01=0x0084}
0x113ae…113f6 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x00b0, t01=0x00cc}
0x113f6…1140a Head {h00=0x0010, h01=0x000c, text=»PAGGEN EQU *«, t00=0x00b0, t01=0x0114}
0x1140a…1142e Head {h00=0x0020, h01=0x0050, text=» LDKL A2,PAGEX EXIT ADDRESS «, t00=0x00b0, t01=0x0128}
0x1142e…1144a Head {h00=0x0018, h01=0x0050, text=» ADR A2,A13 RELOCATE«, t00=0x00b0, t01=0x014c}
0x1144a…11480 Head {h00=0x0032, h01=0x0050, text=» LD A1,SAVE29,A13 ANY SEGMENTS IN APPLICATION?«, t00=0x00b0, t01=0x0168}
0x11480…11496 Head {h00=0x0012, h01=0x0050, text=» ABR(Z) A2 NO!«, t00=0x00b1, t01=0x000e}
0x11496…114bc Head {h00=0x0022, h01=0x001d, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00b1, t01=0x0024}
0x114bc…114d6 Head {h00=0x0016, h01=0x0011, text=» ANK A1,3 PAGING? «, t00=0x00b1, t01=0x004a}
0x114d6…114ec Head {h00=0x0012, h01=0x0050, text=» ABR(Z) A2 NO!«, t00=0x00b1, t01=0x0064}
0x114ec…114f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b1, t01=0x007a}
0x114f6…11546 Head {h00=0x004c, h01=0x0047, text=»* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS «, t00=0x00b1, t01=0x0084}
0x11546…11550 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b1, t01=0x00d4}
0x11550…11580 Head {h00=0x002c, h01=0x0027, text=» LD A11,SCTSFA+2 GET START OF FREE AREA «, t00=0x00b1, t01=0x00de}
0x11580…115a6 Head {h00=0x0022, h01=0x001e, text=» ST A11,SCTPAG STORE IN SYSTAB«, t00=0x00b1, t01=0x010e}
0x115a6…115ce Head {h00=0x0024, h01=0x001f, text=» LDR A8,A13 GET RELOCATION BASE «, t00=0x00b1, t01=0x0134}
0x115ce…115fe Head {h00=0x002c, h01=0x0050, text=» ADKL A8,PAG:60-REL LIMIT FOR PAGE TABLE«, t00=0x00b1, t01=0x015c}
0x115fe…11622 Head {h00=0x0020, h01=0x001c, text=» LDK A7,0 RESET PAGE COUNTER«, t00=0x00b1, t01=0x018c}
0x11622…11636 Head {h00=0x0010, h01=0x000c, text=»PAG:10 EQU *«, t00=0x00b2, t01=0x0020}
0x11636…11666 Head {h00=0x002c, h01=0x0027, text=» CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? «, t00=0x00b2, t01=0x0034}
0x11666…11680 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:30 YES!«, t00=0x00b2, t01=0x0064}
0x11680…116a8 Head {h00=0x0024, h01=0x001f, text=» LDK A1,0 RESET NUMBER OF WORDS «, t00=0x00b2, t01=0x007e}
0x116a8…116bc Head {h00=0x0010, h01=0x000c, text=»PAG:20 EQU *«, t00=0x00b2, t01=0x00a6}
0x116bc…116e2 Head {h00=0x0022, h01=0x001d, text=» ADKL A11,2 INCLUDE NEXT WORD «, t00=0x00b2, t01=0x00ba}
0x116e2…11716 Head {h00=0x0030, h01=0x002b, text=» RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) «, t00=0x00b2, t01=0x00e0}
0x11716…1173e Head {h00=0x0024, h01=0x0020, text=» ADK A1,1 INCREMENT WORD COUNTER«, t00=0x00b2, t01=0x0114}
0x1173e…11762 Head {h00=0x0020, h01=0x001b, text=» CWK A1,4 4 WORDS RESERVED? «, t00=0x00b2, t01=0x013c}
0x11762…1177c Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:25 YES!«, t00=0x00b2, t01=0x0160}
0x1177c…117a8 Head {h00=0x0028, h01=0x0023, text=» CWR A11,A8 CHECK PROGRAM OVERWRITE «, t00=0x00b2, t01=0x017a}
0x117a8…117ce Head {h00=0x0022, h01=0x001e, text=» RF(E) MEMOFL MEMORY OVERFLOW!«, t00=0x00b3, t01=0x0016}
0x117ce…117e0 Head {h00=0x000e, h01=0x000a, text=» RB PAG:20«, t00=0x00b3, t01=0x003c}
0x117e0…11814 Head {h00=0x0030, h01=0x002c, text=»PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER«, t00=0x00b3, t01=0x004e}
0x11814…11826 Head {h00=0x000e, h01=0x000a, text=» RB PAG:10«, t00=0x00b3, t01=0x0082}
0x11826…1183a Head {h00=0x0010, h01=0x000c, text=»PAG:30 EQU *«, t00=0x00b3, t01=0x0094}
0x1183a…11844 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b3, t01=0x00a8}
0x11844…1187c Head {h00=0x0034, h01=0x002f, text=»* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY «, t00=0x00b3, t01=0x00b2}
0x1187c…118b6 Head {h00=0x0036, h01=0x0032, text=»* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER«, t00=0x00b3, t01=0x00ea}
0x118b6…118d0 Head {h00=0x0016, h01=0x0012, text=»* OF PAGE BLOCKS.«, t00=0x00b3, t01=0x0124}
0x118d0…118da Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b3, t01=0x013e}
0x118da…118e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b3, t01=0x0148}
0x118e6…11902 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00b3, t01=0x0154}
0x11902…11942 Head {h00=0x003c, h01=0x0037, text=» LD A1,SCTEFA GET TWO MOST SIGN BITS OF 18-BITS ADDRESS «, t00=0x00b3, t01=0x0170}
0x11942…1197a Head {h00=0x0034, h01=0x0050, text=» SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS«, t00=0x00b4, t01=0x0020}
0x1197a…119b2 Head {h00=0x0034, h01=0x002f, text=» LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS «, t00=0x00b4, t01=0x0058}
0x119b2…119dc Head {h00=0x0026, h01=0x0021, text=» SRL A2,2 SKIP TWO RIGHTMOST BITS «, t00=0x00b4, t01=0x0090}
0x119dc…11a0c Head {h00=0x002c, h01=0x0050, text=» ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS«, t00=0x00b4, t01=0x00ba}
0x11a0c…11a24 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x00b4, t01=0x00ea}
0x11a24…11a48 Head {h00=0x0020, h01=0x001b, text=» LD A2,SCTPSZ GET PAGE SIZE «, t00=0x00b4, t01=0x0102}
0x11a48…11a72 Head {h00=0x0026, h01=0x0021, text=» SRL A2,2 SKIP TWO RIGHTMOST BITS «, t00=0x00b4, t01=0x0126}
0x11a72…11a8a Head {h00=0x0014, h01=0x0010, text=» LDR A10,A2 SAVE«, t00=0x00b4, t01=0x0150}
0x11a8a…11abe Head {h00=0x0030, h01=0x002c, text=» ANKL A1,/FC00 MAKE EVEN 4K-MULTIPLE ADDRESS«, t00=0x00b4, t01=0x0168}
0x11abe…11aea Head {h00=0x0028, h01=0x0023, text=» ANKL A2,/0300 MODIFY FOR PAGE SIZE «, t00=0x00b5, t01=0x000c}
0x11aea…11b0c Head {h00=0x001e, h01=0x0050, text=» ANR A2,A3 EVEN 1-KB LIMIT«, t00=0x00b5, t01=0x0038}
0x11b0c…11b38 Head {h00=0x0028, h01=0x0024, text=» ORR A1,A2 MODIFY PAGE ADDRESS LIMIT«, t00=0x00b5, t01=0x005a}
0x11b38…11b44 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b5, t01=0x0086}
0x11b44…11b60 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00b5, t01=0x0092}
0x11b60…11b88 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTEFA+2 END OF FREE AREA«, t00=0x00b5, t01=0x00ae}
0x11b88…11ba8 Head {h00=0x001c, h01=0x0050, text=» LD A10,SCTPSZ PAGE SIZE«, t00=0x00b5, t01=0x00d6}
0x11ba8…11bb4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b5, t01=0x00f6}
0x11bb4…11bca Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00b5, t01=0x0102}
0x11bca…11bee Head {h00=0x0020, h01=0x001c, text=» LDR A9,A1 INIT PAGE ADDRESS«, t00=0x00b5, t01=0x0118}
0x11bee…11c06 Head {h00=0x0014, h01=0x000f, text=» LDR A6,A9 SAVE «, t00=0x00b5, t01=0x013c}
0x11c06…11c1a Head {h00=0x0010, h01=0x0050, text=»PAG:31 EQU *«, t00=0x00b5, t01=0x0154}
0x11c1a…11c2e Head {h00=0x0010, h01=0x0050, text=» TNM A6,A10 «, t00=0x00b5, t01=0x0168}
0x11c2e…11c44 Head {h00=0x0012, h01=0x0050, text=» RF(NN) PAG:32«, t00=0x00b5, t01=0x017c}
0x11c44…11c58 (182, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CWR A10,A6 «, t00=0x00b6, t01=0x0004}
0x11c58…11c6a Head {h00=0x000e, h01=0x0050, text=» RF PAG:33«, t00=0x00b6, t01=0x0018}
0x11c6a…11c84 Head {h00=0x0016, h01=0x0050, text=»PAG:32 CWR A6,A10 «, t00=0x00b6, t01=0x002a}
0x11c84…11ca0 Head {h00=0x0018, h01=0x0050, text=»PAG:33 RF(NG) PAG:40«, t00=0x00b6, t01=0x0044}
0x11ca0…11cd0 Head {h00=0x002c, h01=0x0050, text=» SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE«, t00=0x00b6, t01=0x0060}
0x11cd0…11cf4 Head {h00=0x0020, h01=0x001b, text=» LDR A1,A6 GET PAGE ADDRESS «, t00=0x00b6, t01=0x0090}
0x11cf4…11d10 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00b6, t01=0x00b4}
0x11d10…11d3e Head {h00=0x002a, h01=0x0026, text=» ANKL A1,/C000 ADDRESS IN SYSTEM AREA?«, t00=0x00b6, t01=0x00d0}
0x11d3e…11d5a Head {h00=0x0018, h01=0x0013, text=» RF(NZ) PAG:34 NO! «, t00=0x00b6, t01=0x00fe}
0x11d5a…11d8c Head {h00=0x002e, h01=0x002a, text=» LDR A1,A6 PHYSICAL ADDRESS IN SYSTEM AREA«, t00=0x00b6, t01=0x011a}
0x11d8c…11dbe Head {h00=0x002e, h01=0x0029, text=» SLL A1,2 ABSOLUTE ADDRESS IN SYSTEM AREA «, t00=0x00b6, t01=0x014c}
0x11dbe…11dd0 Head {h00=0x000e, h01=0x000a, text=» RF PAG:36«, t00=0x00b6, t01=0x017e}
0x11dd0…11df8 Head {h00=0x0024, h01=0x0020, text=»PAG:34 LDK A1,0 END OF FREE AREA«, t00=0x00b6, t01=0x0190}
0x11df8…11e04 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b7, t01=0x0028}
0x11e04…11e1a Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00b7, t01=0x0034}
0x11e1a…11e44 Head {h00=0x0026, h01=0x0022, text=»PAG:36 LDK A2,0 RESET WORD COUNTER«, t00=0x00b7, t01=0x004a}
0x11e44…11e72 Head {h00=0x002a, h01=0x0025, text=»PAG:38 ADKL A11,2 RESERV ANOTHER WORD «, t00=0x00b7, t01=0x0074}
0x11e72…11e94 Head {h00=0x001e, h01=0x0019, text=» RF(Z) PAG:40 64 KB LIMIT «, t00=0x00b7, t01=0x00a2}
0x11e94…11ebc Head {h00=0x0024, h01=0x0020, text=» ADK A2,1 INCREMENT WORD COUNTER«, t00=0x00b7, t01=0x00c4}
0x11ebc…11ede Head {h00=0x001e, h01=0x0019, text=» CWK A2,4 BLOCK COMPLETE? «, t00=0x00b7, t01=0x00ec}
0x11ede…11ef8 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:45 YES!«, t00=0x00b7, t01=0x010e}
0x11ef8…11f22 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A1 ADDRESS IN SYSTEM AREA?«, t00=0x00b7, t01=0x0128}
0x11f22…11f3c Head {h00=0x0016, h01=0x0050, text=» RF(Z) PAG:39 NO! «, t00=0x00b7, t01=0x0152}
0x11f3c…11f62 Head {h00=0x0022, h01=0x0050, text=» TNM A11,A1 32-KB LIMIT CHECK «, t00=0x00b7, t01=0x016c}
0x11f62…11f78 (184, 0, 400) Head {h00=0x0012, h01=0x0050, text=» RF(NN) PAG382«, t00=0x00b8, t01=0x0004}
0x11f78…11f8c Head {h00=0x0010, h01=0x0050, text=» CWR A11,A1 «, t00=0x00b8, t01=0x001a}
0x11f8c…11f9e Head {h00=0x000e, h01=0x0050, text=» RF PAG384«, t00=0x00b8, t01=0x002e}
0x11f9e…11fb8 Head {h00=0x0016, h01=0x0050, text=»PAG382 CWR A1,A11 «, t00=0x00b8, t01=0x0040}
0x11fb8…11ff0 Head {h00=0x0034, h01=0x0050, text=»PAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! «, t00=0x00b8, t01=0x005a}
0x11ff0…12004 Head {h00=0x0010, h01=0x0050, text=»PAG:39 EQU *«, t00=0x00b8, t01=0x0092}
0x12004…1202a Head {h00=0x0022, h01=0x001d, text=» CWR A11,A8 PROGRAM OVERWRITE «, t00=0x00b8, t01=0x00a6}
0x1202a…12044 Head {h00=0x0016, h01=0x0012, text=» RB(NE) PAG:38 NO!«, t00=0x00b8, t01=0x00cc}
0x12044…12058 Head {h00=0x0010, h01=0x000c, text=»PAG:40 EQU *«, t00=0x00b8, t01=0x00e6}
0x12058…12092 Head {h00=0x0036, h01=0x0031, text=» CW A7,SCTNOP ONLY PAGES FOR CORE RESIDENT PAGES? «, t00=0x00b8, t01=0x00fa}
0x12092…120ac Head {h00=0x0016, h01=0x0011, text=» RF(G) PAG:50 NO! «, t00=0x00b8, t01=0x0134}
0x120ac…120f2 Head {h00=0x0042, h01=0x0050, text=» CW A7,SAVE29,A13 ONLY CORE RESIDENT SEGMENTS IN APPLICATION? «, t00=0x00b8, t01=0x014e}
0x120f2…1210c (185, 0, 400) Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:50 YES!«, t00=0x00b9, t01=0x0004}
0x1210c…12128 Head {h00=0x0018, h01=0x0013, text=»MEMOFL LDKL A1,LMP3 «, t00=0x00b9, t01=0x001e}
0x12128…12156 Head {h00=0x002a, h01=0x0026, text=» OTR A1,0,SOP INDICATE MEMORY OVERFLOW«, t00=0x00b9, t01=0x003a}
0x12156…12170 Head {h00=0x0016, h01=0x0012, text=» HLT HALT PROGRAM«, t00=0x00b9, t01=0x0068}
0x12170…121a4 Head {h00=0x0030, h01=0x0050, text=»PAG:45 CW A7,SAVE29,A13 MOORE PAGES WANTED? «, t00=0x00b9, t01=0x0082}
0x121a4…121be Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:50 YES!«, t00=0x00b9, t01=0x00b6}
0x121be…121e6 Head {h00=0x0024, h01=0x0020, text=» ADK A7,1 INCREMENT PAGE COUNTER«, t00=0x00b9, t01=0x00d0}
0x121e6…1220a Head {h00=0x0020, h01=0x001c, text=» LDR A9,A6 SAVE PAGE ADDRESS«, t00=0x00b9, t01=0x00f8}
0x1220a…1221c Head {h00=0x000e, h01=0x0050, text=» RB PAG:31«, t00=0x00b9, t01=0x011c}
0x1221c…12230 Head {h00=0x0010, h01=0x000c, text=»PAG:50 EQU *«, t00=0x00b9, t01=0x012e}
0x12230…12256 Head {h00=0x0022, h01=0x001e, text=» ADKL A11,2 START OF FREE AREA«, t00=0x00b9, t01=0x0142}
0x12256…12274 Head {h00=0x001a, h01=0x0015, text=» ST A11,SCTSFA+2 SAVE «, t00=0x00b9, t01=0x0168}
0x12274…1229e Head {h00=0x0026, h01=0x0022, text=» ST A7,SCTNOP SAVE NUMBER OF PAGES«, t00=0x00b9, t01=0x0186}
0x1229e…122ca Head {h00=0x0028, h01=0x0024, text=» LDR A1,A9 GET ADDRESS TO FIRST PAGE«, t00=0x00ba, t01=0x0020}
0x122ca…122e2 Head {h00=0x0014, h01=0x000f, text=» LDR A2,A1 SAVE «, t00=0x00ba, t01=0x004c}
0x122e2…122ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ba, t01=0x0064}
0x122ee…1230a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ba, t01=0x0070}
0x1230a…12338 Head {h00=0x002a, h01=0x0050, text=» SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS «, t00=0x00ba, t01=0x008c}
0x12338…12352 Head {h00=0x0016, h01=0x0012, text=» ST A1,SCTEFA SAVE«, t00=0x00ba, t01=0x00ba}
0x12352…12384 Head {h00=0x002e, h01=0x002a, text=» SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS«, t00=0x00ba, t01=0x00d4}
0x12384…12390 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ba, t01=0x0106}
0x12390…123a6 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00ba, t01=0x0112}
0x123a6…123c2 Head {h00=0x0018, h01=0x0014, text=» ST A2,SCTEFA+2 SAVE«, t00=0x00ba, t01=0x0128}
0x123c2…123cc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ba, t01=0x0144}
0x123cc…1240a Head {h00=0x003a, h01=0x0035, text=»* INITIATE PAGE BLOCK FOR CORE RESIDENT SEGMENTS AND «, t00=0x00ba, t01=0x014e}
0x1240a…12440 Head {h00=0x0032, h01=0x002d, text=»* STORE PAGE BLOCK ADDRESS IN SEGMENT BLOCKS «, t00=0x00ba, t01=0x018c}
0x12440…1244a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00bb, t01=0x0032}
0x1244a…1245c Head {h00=0x000e, h01=0x0009, text=» LDK A1,0 «, t00=0x00bb, t01=0x003c}
0x1245c…124a0 Head {h00=0x0040, h01=0x003b, text=» LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. «, t00=0x00bb, t01=0x004e}
0x124a0…124d2 Head {h00=0x002e, h01=0x0050, text=» LD A11,SAVE30,A13 START OF SEGMENT TABLE «, t00=0x00bb, t01=0x0092}
0x124d2…12502 Head {h00=0x002c, h01=0x0028, text=» LDK A4,0 RESET RESIDENT SEGMENT COUNTER«, t00=0x00bb, t01=0x00c4}
0x12502…1252c Head {h00=0x0026, h01=0x0022, text=» LD A12,SCTPAG START OF PAGE TABLE«, t00=0x00bb, t01=0x00f4}
0x1252c…12558 Head {h00=0x0028, h01=0x0050, text=» LD A6,SAVE29,A13 NUMBER OF SEGMENTS«, t00=0x00bb, t01=0x011e}
0x12558…1256c Head {h00=0x0010, h01=0x0050, text=»PAG:60 EQU *«, t00=0x00bb, t01=0x014a}
0x1256c…12592 Head {h00=0x0022, h01=0x001e, text=» ADKL A11,8 NEXT SEGMENT BLOCK«, t00=0x00bb, t01=0x015e}
0x12592…125b2 Head {h00=0x001c, h01=0x0017, text=» LDR* A2,A11 GET STATUS «, t00=0x00bb, t01=0x0184}
0x125b2…125e4 Head {h00=0x002e, h01=0x0029, text=» RF(NN) PAG:65 SEGMENT NOT LOADED IN CORE «, t00=0x00bc, t01=0x0014}
0x125e4…12612 Head {h00=0x002a, h01=0x0026, text=» ST A12,6,A11 STORE PAGE BLOCK ADDRESS«, t00=0x00bc, t01=0x0046}
0x12612…12642 Head {h00=0x002c, h01=0x0027, text=» STR A1,A12 RESET QUEUE POINTER FORWARD «, t00=0x00bc, t01=0x0074}
0x12642…12674 Head {h00=0x002e, h01=0x0029, text=» ST A1,2,A12 RESET QUEUE POINTER BACKWARD «, t00=0x00bc, t01=0x00a4}
0x12674…1269c Head {h00=0x0024, h01=0x001f, text=» ST A8,4,A12 STORE PAGE ADDRESS «, t00=0x00bc, t01=0x00d6}
0x1269c…126ce Head {h00=0x002e, h01=0x0029, text=» ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS «, t00=0x00bc, t01=0x00fe}
0x126ce…12702 Head {h00=0x0030, h01=0x002c, text=» ADK A4,1 INCREMENT RESIDENT SEGMENT COUNTER«, t00=0x00bc, t01=0x0130}
0x12702…1272c Head {h00=0x0026, h01=0x0021, text=» ADR A8,A10 ADDRESS TO NEXT PAGE «, t00=0x00bc, t01=0x0164}
0x1272c…12750 Head {h00=0x0020, h01=0x001b, text=» ADKL A12,8 NEXT PAGE BLOCK «, t00=0x00bc, t01=0x018e}
0x12750…12788 Head {h00=0x0034, h01=0x002f, text=»PAG:65 SUK A6,1 DECREMENT SEGMENT BLOCK COUNTER «, t00=0x00bd, t01=0x0022}
0x12788…1279e Head {h00=0x0012, h01=0x000d, text=» RB(P) PAG:60 «, t00=0x00bd, t01=0x005a}
0x1279e…127a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00bd, t01=0x0070}
0x127a8…127e8 Head {h00=0x003c, h01=0x0038, text=»* INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE«, t00=0x00bd, t01=0x007a}
0x127e8…127f2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00bd, t01=0x00ba}
0x127f2…12816 Head {h00=0x0020, h01=0x001b, text=» CWR A4,A7 ANY FREE BLOCKS? «, t00=0x00bd, t01=0x00c4}
0x12816…12830 Head {h00=0x0016, h01=0x0050, text=» RF(E) PAG:90 NO! «, t00=0x00bd, t01=0x00e8}
0x12830…12868 Head {h00=0x0034, h01=0x002f, text=» ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK «, t00=0x00bd, t01=0x0102}
0x12868…12892 Head {h00=0x0026, h01=0x0022, text=» LDKL A11,PAGQUE POINTER TO PAGQUE«, t00=0x00bd, t01=0x013a}
0x12892…128c6 Head {h00=0x0030, h01=0x002c, text=» LDR A1,A12 SAVE ADDRESS TO FIRST PAGE BLOCK«, t00=0x00bd, t01=0x0164}
0x128c6…128d8 Head {h00=0x000e, h01=0x0009, text=» LDK A2,0 «, t00=0x00be, t01=0x0008}
0x128d8…1290a Head {h00=0x002e, h01=0x002a, text=»PAG:70 ST A11,2,A12 STORE BACKWARD POINTER«, t00=0x00be, t01=0x001a}
0x1290a…12932 Head {h00=0x0024, h01=0x001f, text=» ST A9,4,A12 STORE PAGE ADDRESS «, t00=0x00be, t01=0x004c}
0x12932…1295a Head {h00=0x0024, h01=0x001f, text=» ST A2,6,A12 INDICATE PAGE FREE «, t00=0x00be, t01=0x0074}
0x1295a…12988 Head {h00=0x002a, h01=0x0026, text=» ADK A4,1 INCREMENT PAGE BLOCK COUNTER«, t00=0x00be, t01=0x009c}
0x12988…129ac Head {h00=0x0020, h01=0x001b, text=» CWR A4,A7 LAST PAGE BLOCK? «, t00=0x00be, t01=0x00ca}
0x129ac…129c6 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:80 YES!«, t00=0x00be, t01=0x00ee}
0x129c6…129f6 Head {h00=0x002c, h01=0x0027, text=» LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK «, t00=0x00be, t01=0x0108}
0x129f6…12a22 Head {h00=0x0028, h01=0x0024, text=» ADK A1,8 ADDRESS TO NEXT PAGE BLOCK«, t00=0x00be, t01=0x0138}
0x12a22…12a4c Head {h00=0x0026, h01=0x0021, text=» STR A1,A12 STORE FORWARD POINTER «, t00=0x00be, t01=0x0164}
0x12a4c…12a70 Head {h00=0x0020, h01=0x001b, text=» LDR A12,A1 NEXT PAGE BLOCK «, t00=0x00be, t01=0x018e}
0x12a70…12a8e Head {h00=0x001a, h01=0x0015, text=» ADR A9,A10 NEXT PAGE «, t00=0x00bf, t01=0x0022}
0x12a8e…12aa0 Head {h00=0x000e, h01=0x000a, text=» RB PAG:70«, t00=0x00bf, t01=0x0040}
0x12aa0…12ab4 Head {h00=0x0010, h01=0x000c, text=»PAG:80 EQU *«, t00=0x00bf, t01=0x0052}
0x12ab4…12ade Head {h00=0x0026, h01=0x0021, text=» LDKL A1,PAGQUE POINTER TO PAGQUE «, t00=0x00bf, t01=0x0066}
0x12ade…12b06 Head {h00=0x0024, h01=0x001f, text=» STR A1,A12 STORE IN LAST BLOCK «, t00=0x00bf, t01=0x0090}
0x12b06…12b30 Head {h00=0x0026, h01=0x0022, text=» ST A12,PAGQUE+2 STORE IN PAGQUE+2«, t00=0x00bf, t01=0x00b8}
0x12b30…12b44 Head {h00=0x0010, h01=0x0050, text=»PAG:90 EQU *«, t00=0x00bf, t01=0x00e2}
0x12b44…12b5c Head {h00=0x0014, h01=0x0050, text=»PAGEX EQU *-REL «, t00=0x00bf, t01=0x00f6}
0x12b5c…12b6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bf, t01=0x010e}
0x12b6a…12b76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bf, t01=0x011c}
0x12b76…12b7e Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0128}
0x12b7e…12b86 Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0130}
0x12b86…12ba6 Head {h00=0x001c, h01=0x0050, text=»* START BUGGER (IF ANY) «, t00=0x00bf, t01=0x0138}
0x12ba6…12bae Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0158}
0x12bae…12bb6 Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0160}
0x12bb6…12bd6 Head {h00=0x001c, h01=0x0050, text=»* GET APPLICATION START «, t00=0x00bf, t01=0x0168}
0x12bd6…12bec Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x00bf, t01=0x0188}
0x12bec…12c1c Head {h00=0x002c, h01=0x0050, text=» LD A14,SCTLAC TRUE START OF APPLICATION«, t00=0x00c0, t01=0x000e}
0x12c1c…12c28 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c0, t01=0x003e}
0x12c28…12c36 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00c0, t01=0x004a}
0x12c36…12c44 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00c0, t01=0x0058}
0x12c44…12c52 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00c0, t01=0x0066}
0x12c52…12c74 Head {h00=0x001e, h01=0x0050, text=» SUKL A14,8 ADJUST FOR MAP«, t00=0x00c0, t01=0x0074}
0x12c74…12ca2 Head {h00=0x002a, h01=0x0050, text=» ADKL A13,SYA360 CONTINUATION ADDRESS «, t00=0x00c0, t01=0x0096}
0x12ca2…12cca Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE SYSLOAD ENDED«, t00=0x00c0, t01=0x00c4}
0x12cca…12ce0 Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x00c0, t01=0x00ec}
0x12ce0…12d08 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTBUG GET BUGGER ADDRESS«, t00=0x00c0, t01=0x0102}
0x12d08…12d1c Head {h00=0x0010, h01=0x0050, text=» ABR(NZ) A1 «, t00=0x00c0, t01=0x012a}
0x12d1c…12d24 Head {h00=0x0004, h01=0x0050, t00=0x00c0, t01=0x013e}
0x12d24…12d3c Head {h00=0x0014, h01=0x0050, text=»SYA360 EQU *-REL«, t00=0x00c0, t01=0x0146}
0x12d3c…12d4e Head {h00=0x000e, h01=0x0050, text=» LDR A13,P«, t00=0x00c0, t01=0x015e}
0x12d4e…12d66 Head {h00=0x0014, h01=0x0050, text=»SYA370 EQU *-REL«, t00=0x00c0, t01=0x0170}
0x12d66…12d9a Head {h00=0x0030, h01=0x0050, text=» SUKL A13,SYA370 RESTORE PROGRAM BASE OINTER«, t00=0x00c0, t01=0x0188}
0x12d9a…12da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x002c}
0x12da4…12dbe Head {h00=0x0016, h01=0x0050, text=»* INIT A15 STACK «, t00=0x00c1, t01=0x0036}
0x12dbe…12dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x0050}
0x12dc8…12dde Head {h00=0x0012, h01=0x0050, text=» LD A15,SCTSTB«, t00=0x00c1, t01=0x005a}
0x12dde…12df2 Head {h00=0x0010, h01=0x0050, text=» SUKL A15,4 «, t00=0x00c1, t01=0x0070}
0x12df2…12dfa Head {h00=0x0004, h01=0x0050, t00=0x00c1, t01=0x0084}
0x12dfa…12e16 Head {h00=0x0018, h01=0x0050, text=»* START APPLICATION «, t00=0x00c1, t01=0x008c}
0x12e16…12e1e Head {h00=0x0004, h01=0x0050, t00=0x00c1, t01=0x00a8}
0x12e1e…12e50 Head {h00=0x002e, h01=0x0050, text=» LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC«, t00=0x00c1, t01=0x00b0}
0x12e50…12e6e Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVRTC,A13 SAVE«, t00=0x00c1, t01=0x00e2}
0x12e6e…12ea6 Head {h00=0x0034, h01=0x0050, text=» LDKL A1,IHRTCO LOAD TEMPORARY INTERRUPT ADDRESS«, t00=0x00c1, t01=0x0100}
0x12ea6…12ec2 Head {h00=0x0018, h01=0x0050, text=» ADR A1,A13 RELOCATE«, t00=0x00c1, t01=0x0138}
0x12ec2…12ef0 Head {h00=0x002a, h01=0x0050, text=» ST A1,IHRTC STORE IN INTERRUPT VECTOR«, t00=0x00c1, t01=0x0154}
0x12ef0…12f1a Head {h00=0x0026, h01=0x0050, text=» CF A15,PFINIT INITIALIZE DEVICES «, t00=0x00c1, t01=0x0182}
0x12f1a…12f3e Head {h00=0x0020, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS«, t00=0x00c2, t01=0x001c}
0x12f3e…12f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c2, t01=0x0040}
0x12f48…12f92 Head {h00=0x0046, h01=0x0050, text=»* WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER «, t00=0x00c2, t01=0x004a}
0x12f92…12f9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c2, t01=0x0094}
0x12f9c…12fbe Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/FFFF SET COUNTER«, t00=0x00c2, t01=0x009e}
0x12fbe…12fd6 Head {h00=0x0014, h01=0x0050, text=»DELAY SRC A2,31 «, t00=0x00c2, t01=0x00c0}
0x12fd6…12fe8 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00c2, t01=0x00d8}
0x12fe8…12ffe Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DELAY «, t00=0x00c2, t01=0x00ea}
0x12ffe…1300a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00c2, t01=0x0100}
0x1300a…13036 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,0 GET RTC INTERRUPT ADDRESS«, t00=0x00c2, t01=0x010c}
0x13036…13050 Head {h00=0x0016, h01=0x0050, text=»SAVRTC EQU *-REL-2«, t00=0x00c2, t01=0x0138}
0x13050…1306c Head {h00=0x0018, h01=0x0050, text=» ST A1,IHRTC RESTORE«, t00=0x00c2, t01=0x0152}
0x1306c…1307c Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x00c2, t01=0x016e}
0x1307c…1309e Head {h00=0x001e, h01=0x0050, text=»* LOCK SOP SWITCHES =1 «, t00=0x00c2, t01=0x017e}
0x1309e…130ae Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x00c3, t01=0x0010}
0x130ae…130c8 Head {h00=0x0016, h01=0x0050, text=» CIO A1,0,SOP =1 «, t00=0x00c3, t01=0x0020}
0x130c8…130f0 Head {h00=0x0024, h01=0x0050, text=» ABL TDISP BRANCH TO DISPATCHER «, t00=0x00c3, t01=0x003a}
0x130f0…130fe Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00c3, t01=0x0062}
0x130fe…1310c Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00c3, t01=0x0070}
0x1310c…1311a Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00c3, t01=0x007e}
0x1311a…13128 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00c3, t01=0x008c}
0x13128…13132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x009a}
0x13132…13160 Head {h00=0x002a, h01=0x0050, text=»* TEMPORARY INTERRUPT ROUTINE FOR RTC«, t00=0x00c3, t01=0x00a4}
0x13160…1316a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x00d2}
0x1316a…13182 Head {h00=0x0014, h01=0x0050, text=»IHRTCO EQU *-REL«, t00=0x00c3, t01=0x00dc}
0x13182…13194 Head {h00=0x000e, h01=0x0050, text=» RIT RTCDA«, t00=0x00c3, t01=0x00f4}
0x13194…131a4 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x00c3, t01=0x0106}
0x131a4…131ba Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00c3, t01=0x0116}
0x131ba…131c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c3, t01=0x012c}
0x131c8…131d4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c3, t01=0x013a}
0x131d4…1320e Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c3, t01=0x0146}
0x1320e…13248 Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x00c3, t01=0x0180}
0x13248…13282 Head {h00=0x0036, h01=0x0050, text=»** SYSLOAD PART 2.A ** «, t00=0x00c4, t01=0x002a}
0x13282…132bc Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c4, t01=0x0064}
0x132bc…132f6 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c4, t01=0x009e}
0x132f6…132fe Head {h00=0x0004, h01=0x0050, t00=0x00c4, t01=0x00d8}
0x132fe…13338 Head {h00=0x0036, h01=0x0050, text=»* BUILD COMMON AND TASKCLASS DATA AREAS. * «, t00=0x00c4, t01=0x00e0}
0x13338…13372 Head {h00=0x0036, h01=0x0050, text=»* BUILD TASKDATA PROTOTYPE AREA * «, t00=0x00c4, t01=0x011a}
0x13372…133ac Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x00c4, t01=0x0154}
0x133ac…133e6 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c4, t01=0x018e}
0x133e6…133ee Head {h00=0x0004, h01=0x0050, t00=0x00c5, t01=0x0038}
0x133ee…13406 Head {h00=0x0014, h01=0x0050, text=»PART2A EQU *-REL«, t00=0x00c5, t01=0x0040}
0x13406…1340e Head {h00=0x0004, h01=0x0050, t00=0x00c5, t01=0x0058}
0x1340e…13442 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00c5, t01=0x0060}
0x13442…13476 Head {h00=0x0030, h01=0x0050, text=»*** ***«, t00=0x00c5, t01=0x0094}
0x13476…134aa Head {h00=0x0030, h01=0x0050, text=»** S U B R O U T I N E S **«, t00=0x00c5, t01=0x00c8}
0x134aa…134de Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00c5, t01=0x00fc}
0x134de…134e6 Head {h00=0x0004, h01=0x0050, t00=0x00c5, t01=0x0130}
0x134e6…134f2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c5, t01=0x0138}
0x134f2…1352a Head {h00=0x0034, h01=0x0050, text=»** T : D A D D **«, t00=0x00c5, t01=0x0144}
0x1352a…13562 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00c5, t01=0x017c}
0x13562…1359a Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00c6, t01=0x0024}
0x1359a…135d2 Head {h00=0x0034, h01=0x0050, text=»** GET T:D - ADDRESS **«, t00=0x00c6, t01=0x005c}
0x135d2…1360a Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00c6, t01=0x0094}
0x1360a…13642 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=POINTER TO T:A (IN T:ATAB) **«, t00=0x00c6, t01=0x00cc}
0x13642…1367a Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A12=T:D ADDRESS **«, t00=0x00c6, t01=0x0104}
0x1367a…136b2 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00c6, t01=0x013c}
0x136b2…136c6 Head {h00=0x0010, h01=0x0050, text=»T:DADD EQU *«, t00=0x00c6, t01=0x0174}
0x136c6…136e2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00c6, t01=0x0188}
0x136e2…13702 Head {h00=0x001c, h01=0x0050, text=» LDR* A12,A8 T:A ADDRESS«, t00=0x00c7, t01=0x0014}
0x13702…1371c Head {h00=0x0016, h01=0x0050, text=» LD A12,T:DAD,A12 «, t00=0x00c7, t01=0x0034}
0x1371c…13728 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c7, t01=0x004e}
0x13728…13744 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00c7, t01=0x005a}
0x13744…13764 Head {h00=0x001c, h01=0x0050, text=» ELR A12,A8 T:A ADDRESS «, t00=0x00c7, t01=0x0076}
0x13764…1377e Head {h00=0x0016, h01=0x0050, text=» EL A12,T:DAD,A12 «, t00=0x00c7, t01=0x0096}
0x1377e…1378a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c7, t01=0x00b0}
0x1378a…137a0 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00c7, t01=0x00bc}
0x137a0…137c4 Head {h00=0x0020, h01=0x0050, text=» AD A12,MOVADD,A13 RELOCATE «, t00=0x00c7, t01=0x00d2}
0x137c4…137d4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c7, t01=0x00f6}
0x137d4…137e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c7, t01=0x0106}
0x137e2…137ee Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c7, t01=0x0114}
0x137ee…137fa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c7, t01=0x0120}
0x137fa…13834 Head {h00=0x0036, h01=0x0050, text=»** M O V C O M ** «, t00=0x00c7, t01=0x012c}
0x13834…1386e Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c7, t01=0x0166}
0x1386e…138a8 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c8, t01=0x0010}
0x138a8…138e2 Head {h00=0x0036, h01=0x0050, text=»** SEARCH T:A'S FOR COMMON WORK BLOCKS THAT ** «, t00=0x00c8, t01=0x004a}
0x138e2…1391c Head {h00=0x0036, h01=0x0050, text=»** ARE COMMON TO AT LEAST TWO T:A'S, AND MOVE ** «, t00=0x00c8, t01=0x0084}
0x1391c…13956 Head {h00=0x0036, h01=0x0050, text=»** TO COMMON AREA ** «, t00=0x00c8, t01=0x00be}
0x13956…13990 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c8, t01=0x00f8}
0x13990…139ca Head {h00=0x0036, h01=0x0050, text=»** INPUT : A8=POINTER IN T:ATAB ** «, t00=0x00c8, t01=0x0132}
0x139ca…13a04 Head {h00=0x0036, h01=0x0050, text=»** BIT=BIT NUMBER, SAT IN MASK ** «, t00=0x00c8, t01=0x016c}
0x13a04…13a3e Head {h00=0x0036, h01=0x0050, text=»** ENDADD=ENDADDRESS OF T:ATAB ** «, t00=0x00c9, t01=0x0016}
0x13a3e…13a78 Head {h00=0x0036, h01=0x0050, text=»** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** «, t00=0x00c9, t01=0x0050}
0x13a78…13ab2 Head {h00=0x0036, h01=0x0050, text=»** WORK.REGS: A1-A6,A9,A11,A12 ** «, t00=0x00c9, t01=0x008a}
0x13ab2…13aec Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c9, t01=0x00c4}
0x13aec…13af8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c9, t01=0x00fe}
0x13af8…13b0c Head {h00=0x0010, h01=0x0050, text=»MOVCOM EQU *«, t00=0x00c9, t01=0x010a}
0x13b0c…13b36 Head {h00=0x0026, h01=0x0050, text=» CALL CHKMVD BLOCK ALREADY MOVED? «, t00=0x00c9, t01=0x011e}
0x13b36…13b50 Head {h00=0x0016, h01=0x0050, text=» RF(N) MOVC20 YES!«, t00=0x00c9, t01=0x0148}
0x13b50…13b8e Head {h00=0x003a, h01=0x0050, text=» CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL «, t00=0x00c9, t01=0x0162}
0x13b8e…13bba Head {h00=0x0028, h01=0x0050, text=» ST A11,SAVE06,A13 SAVE W.B.-ADDRESS«, t00=0x00ca, t01=0x0010}
0x13bba…13be6 Head {h00=0x0028, h01=0x0050, text=» CM MOVED,A13 CLEAR MOVED INDICATOR «, t00=0x00ca, t01=0x003c}
0x13be6…13bf8 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x00ca, t01=0x0068}
0x13bf8…13c18 Head {h00=0x001c, h01=0x0050, text=»MOVC10 ADK A6,2 NEXT T:A«, t00=0x00ca, t01=0x007a}
0x13c18…13c3c Head {h00=0x0020, h01=0x0050, text=» CW A6,ENDADD,A13 ALL DONE? «, t00=0x00ca, t01=0x009a}
0x13c3c…13c56 Head {h00=0x0016, h01=0x0050, text=» RF(NE) MOVC30 NO «, t00=0x00ca, t01=0x00be}
0x13c56…13c72 Head {h00=0x0018, h01=0x0050, text=»MOVC20 RTN A14 YES! «, t00=0x00ca, t01=0x00d8}
0x13c72…13c8e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ca, t01=0x00f4}
0x13c8e…13ca8 Head {h00=0x0016, h01=0x0050, text=»MOVC30 LDR* A11,A6«, t00=0x00ca, t01=0x0110}
0x13ca8…13ccc Head {h00=0x0020, h01=0x0050, text=» LD A2,T:DAD,A11 T:D-ADDRESS«, t00=0x00ca, t01=0x012a}
0x13ccc…13cee Head {h00=0x001e, h01=0x0050, text=» AD A2,MOVADD,A13 RELOCATE«, t00=0x00ca, t01=0x014e}
0x13cee…13d0c Head {h00=0x001a, h01=0x0050, text=» ST A2,SAVE03,A13 SAVE«, t00=0x00ca, t01=0x0170}
0x13d0c…13d3c Head {h00=0x002c, h01=0x0050, text=» LD A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS «, t00=0x00ca, t01=0x018e}
0x13d3c…13d5c Head {h00=0x001c, h01=0x0050, text=» CW A2,BIT,A13 ENOUGHT? «, t00=0x00cb, t01=0x002e}
0x13d5c…13d96 Head {h00=0x0036, h01=0x0050, text=» RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A «, t00=0x00cb, t01=0x004e}
0x13d96…13dc8 Head {h00=0x002e, h01=0x0050, text=» AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE«, t00=0x00cb, t01=0x0088}
0x13dc8…13dde Head {h00=0x0012, h01=0x0050, text=» LDR* A11,A11 «, t00=0x00cb, t01=0x00ba}
0x13dde…13e10 Head {h00=0x002e, h01=0x0050, text=» CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES «, t00=0x00cb, t01=0x00d0}
0x13e10…13e1c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cb, t01=0x0102}
0x13e1c…13e38 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00cb, t01=0x010e}
0x13e38…13e52 Head {h00=0x0016, h01=0x0050, text=»MOVC30 ELR A11,A6 «, t00=0x00cb, t01=0x012a}
0x13e52…13e76 Head {h00=0x0020, h01=0x0050, text=» EL A2,T:DAD,A11 T:D-ADDRESS«, t00=0x00cb, t01=0x0144}
0x13e76…13e98 Head {h00=0x001e, h01=0x0050, text=» AD A2,MOVADD,A13 RELOCATE«, t00=0x00cb, t01=0x0168}
0x13e98…13ecc Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE03,A13 SAVE T:D-ADDRESS TEMPORARY«, t00=0x00cb, t01=0x018a}
0x13ecc…13efc Head {h00=0x002c, h01=0x0050, text=» EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS «, t00=0x00cc, t01=0x002e}
0x13efc…13f1c Head {h00=0x001c, h01=0x0050, text=» CW A2,BIT,A13 ENOUGHT? «, t00=0x00cc, t01=0x005e}
0x13f1c…13f56 Head {h00=0x0036, h01=0x0050, text=» RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A «, t00=0x00cc, t01=0x007e}
0x13f56…13f88 Head {h00=0x002e, h01=0x0050, text=» AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE«, t00=0x00cc, t01=0x00b8}
0x13f88…13f9c Head {h00=0x0010, h01=0x0050, text=» ELR A11,A11«, t00=0x00cc, t01=0x00ea}
0x13f9c…13fce Head {h00=0x002e, h01=0x0050, text=» CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES «, t00=0x00cc, t01=0x00fe}
0x13fce…13fda Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cc, t01=0x0130}
0x13fda…13ff0 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00cc, t01=0x013c}
0x13ff0…1400c Head {h00=0x0018, h01=0x0050, text=» RB(NE) MOVC10 .NEQ.«, t00=0x00cc, t01=0x0152}
0x1400c…14038 Head {h00=0x0028, h01=0x0050, text=» LD A9,MOVED,A13 W.B. ALREADY MOVED?«, t00=0x00cc, t01=0x016e}
0x14038…1406a Head {h00=0x002e, h01=0x0050, text=» RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY «, t00=0x00cd, t01=0x000a}
0x1406a…14094 Head {h00=0x0026, h01=0x0050, text=» CALL MOVDT MOVE DESCRIPTOR-TABLE «, t00=0x00cd, t01=0x003c}
0x14094…140be Head {h00=0x0026, h01=0x0050, text=» ST A2,NEWAD1,A13 SAVE D.T.-ADRESS«, t00=0x00cd, t01=0x0066}
0x140be…140e0 Head {h00=0x001e, h01=0x0050, text=» CALL MOVWB MOV WORK BLOCK«, t00=0x00cd, t01=0x0090}
0x140e0…14104 Head {h00=0x0020, h01=0x0050, text=» IM MOVED,A13 INDICATE MOVED«, t00=0x00cd, t01=0x00b2}
0x14104…14126 Head {h00=0x001e, h01=0x0050, text=» LD A4,UWB,A13 UWB-BLOCKS?«, t00=0x00cd, t01=0x00d6}
0x14126…14140 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVC40 NO! «, t00=0x00cd, t01=0x00f8}
0x14140…14166 Head {h00=0x0022, h01=0x0050, text=» CALL GETPRO CREATE REAL UWB'S«, t00=0x00cd, t01=0x0112}
0x14166…1419e Head {h00=0x0034, h01=0x0050, text=»MOVC40 ST A2,NEWAD2,A13 SAVE NEW ADDRESS TO W.B.«, t00=0x00cd, t01=0x0138}
0x1419e…141b2 Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00cd, t01=0x0170}
0x141b2…141dc Head {h00=0x0026, h01=0x0050, text=»MOVC50 CALL CHADR CHANGE ADDRESSES«, t00=0x00cd, t01=0x0184}
0x141dc…1420e Head {h00=0x002e, h01=0x0050, text=» CALL ICBMVD INDICATE CURRENT BLOCK MOVED «, t00=0x00ce, t01=0x001e}
0x1420e…14232 Head {h00=0x0020, h01=0x0050, text=» LDR A11,A8 SAVE T:A-POINTER«, t00=0x00ce, t01=0x0050}
0x14232…1425e Head {h00=0x0028, h01=0x0050, text=» ST A12,SAVE25,A13 SAVE T:A-ADDRESS «, t00=0x00ce, t01=0x0074}
0x1425e…14288 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A6 REPLACE POINTER TO T:A «, t00=0x00ce, t01=0x00a0}
0x14288…142b6 Head {h00=0x002a, h01=0x0050, text=» LD A12,SAVE03,A13 REPLACE T:D-ADDRESS«, t00=0x00ce, t01=0x00ca}
0x142b6…142ca Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00ce, t01=0x00f8}
0x142ca…142de Head {h00=0x0010, h01=0x0050, text=» LDR A8,A11 «, t00=0x00ce, t01=0x010c}
0x142de…1430c Head {h00=0x002a, h01=0x0050, text=» LD A12,SAVE25,A13 RELOAD T:D-ADDRESS «, t00=0x00ce, t01=0x0120}
0x1430c…1431e Head {h00=0x000e, h01=0x0050, text=» RB MOVC10«, t00=0x00ce, t01=0x014e}
0x1431e…1432c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ce, t01=0x0160}
0x1432c…14338 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00ce, t01=0x016e}
0x14338…14344 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00ce, t01=0x017a}
0x14344…1437c Head {h00=0x0034, h01=0x0050, text=»** G E T P R O **«, t00=0x00ce, t01=0x0186}
0x1437c…143b4 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00cf, t01=0x002e}
0x143b4…143ec Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00cf, t01=0x0066}
0x143ec…14424 Head {h00=0x0034, h01=0x0050, text=»** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF **«, t00=0x00cf, t01=0x009e}
0x14424…1445c Head {h00=0x0034, h01=0x0050, text=»** COPIES. FILL REAL U:BTAB **«, t00=0x00cf, t01=0x00d6}
0x1445c…14494 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00cf, t01=0x010e}
0x14494…144cc Head {h00=0x0034, h01=0x0050, text=»** INPUT : A11=PROTOTYPE ADDRESS **«, t00=0x00cf, t01=0x0146}
0x144cc…14504 Head {h00=0x0034, h01=0x0050, text=»** A2=LAST W.B. - ADDRESS **«, t00=0x00cf, t01=0x017e}
0x14504…1453c Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A2=NEW ADDRESS **«, t00=0x00d0, t01=0x0026}
0x1453c…14574 Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS: A1-A5,A9 **«, t00=0x00d0, t01=0x005e}
0x14574…145ac Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00d0, t01=0x0096}
0x145ac…145b8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d0, t01=0x00ce}
0x145b8…145cc Head {h00=0x0010, h01=0x0050, text=»GETPRO EQU *«, t00=0x00d0, t01=0x00da}
0x145cc…145f8 Head {h00=0x0028, h01=0x0050, text=» LD A3,U:BTOD,A13 GET U:BTAB ADDRESS«, t00=0x00d0, t01=0x00ee}
0x145f8…14614 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00d0, t01=0x011a}
0x14614…1462e Head {h00=0x0016, h01=0x0050, text=» LDR* A4,A3 LENGTH«, t00=0x00d0, t01=0x0136}
0x1462e…14642 Head {h00=0x0010, h01=0x0050, text=»GETP10 EQU *«, t00=0x00d0, t01=0x0150}
0x14642…1467c Head {h00=0x0036, h01=0x0050, text=» SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH «, t00=0x00d0, t01=0x0164}
0x1467c…14692 Head {h00=0x0012, h01=0x0050, text=» RF(NN) GETP20«, t00=0x00d1, t01=0x000e}
0x14692…146b6 Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP6 W.B. NOT FOUND!«, t00=0x00d1, t01=0x0024}
0x146b6…146ca Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00d1, t01=0x0048}
0x146ca…146de Head {h00=0x0010, h01=0x0050, text=»GETP20 EQU *«, t00=0x00d1, t01=0x005c}
0x146de…14702 Head {h00=0x0020, h01=0x0050, text=» CW A11,UPADDR,A3 SAME W.B.?«, t00=0x00d1, t01=0x0070}
0x14702…14732 Head {h00=0x002c, h01=0x0050, text=» RF(E) GETP30 YES! GET NUMBER OF COPIES «, t00=0x00d1, t01=0x0094}
0x14732…1474e Head {h00=0x0018, h01=0x0050, text=» ADK A3,UP:REC NEXT «, t00=0x00d1, t01=0x00c4}
0x1474e…14760 Head {h00=0x000e, h01=0x0050, text=» RB GETP10«, t00=0x00d1, t01=0x00e0}
0x14760…1476c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d1, t01=0x00f2}
0x1476c…147a0 Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF COPIES *«, t00=0x00d1, t01=0x00fe}
0x147a0…147d4 Head {h00=0x0030, h01=0x0050, text=»* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *«, t00=0x00d1, t01=0x0132}
0x147d4…147dc Head {h00=0x0004, h01=0x0050, t00=0x00d1, t01=0x0166}
0x147dc…147f0 Head {h00=0x0010, h01=0x0050, text=»GETP30 EQU *«, t00=0x00d1, t01=0x016e}
0x147f0…14814 Head {h00=0x0020, h01=0x0050, text=» LD A4,WBLEN,A11 W.B.-LENGTH«, t00=0x00d1, t01=0x0182}
0x14814…14842 Head {h00=0x002a, h01=0x0050, text=» LC A5,UPNUMB,A3 GET NUMBER OF COPIES «, t00=0x00d2, t01=0x0016}
0x14842…14856 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x00d2, t01=0x0044}
0x14856…14886 Head {h00=0x002c, h01=0x0050, text=» SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT«, t00=0x00d2, t01=0x0058}
0x14886…148b8 Head {h00=0x002e, h01=0x0050, text=» AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS«, t00=0x00d2, t01=0x0088}
0x148b8…148ca Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x00d2, t01=0x00ba}
0x148ca…148f0 Head {h00=0x0022, h01=0x0050, text=» ST A4,URLENG,A9 STORE LENGTH «, t00=0x00d2, t01=0x00cc}
0x148f0…1491e Head {h00=0x002a, h01=0x0050, text=» ST A5,URNUMB,A9 STORE IN REAL U:BTAB «, t00=0x00d2, t01=0x00f2}
0x1491e…14952 Head {h00=0x0030, h01=0x0050, text=»* COPY NUMBER OF WORKBLOCKS TO COMMON AREA *«, t00=0x00d2, t01=0x0120}
0x14952…14986 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d2, t01=0x0154}
0x14986…149b8 Head {h00=0x002e, h01=0x0050, text=» SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') «, t00=0x00d2, t01=0x0188}
0x149b8…149ce Head {h00=0x0012, h01=0x0050, text=» RF(NP) GETP50«, t00=0x00d3, t01=0x002a}
0x149ce…149e8 Head {h00=0x0016, h01=0x0050, text=»GETP40 CALL MOVWB «, t00=0x00d3, t01=0x0040}
0x149e8…149fa Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x00d3, t01=0x005a}
0x149fa…14a10 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) GETP40«, t00=0x00d3, t01=0x006c}
0x14a10…14a1c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d3, t01=0x0082}
0x14a1c…14a46 Head {h00=0x0026, h01=0x0050, text=»* UPDATE POINTER IN REAL U:BTAB * «, t00=0x00d3, t01=0x008e}
0x14a46…14a70 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00d3, t01=0x00b8}
0x14a70…14a84 Head {h00=0x0010, h01=0x0050, text=»GETP50 EQU *«, t00=0x00d3, t01=0x00e2}
0x14a84…14abe Head {h00=0x0036, h01=0x0050, text=» ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB «, t00=0x00d3, t01=0x00f6}
0x14abe…14aca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d3, t01=0x0130}
0x14aca…14ae6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00d3, t01=0x013c}
0x14ae6…14b00 Head {h00=0x0016, h01=0x0050, text=» ELR A4,A3 LENGTH «, t00=0x00d3, t01=0x0158}
0x14b00…14b14 Head {h00=0x0010, h01=0x0050, text=»GETP10 EQU *«, t00=0x00d3, t01=0x0172}
0x14b14…14b4e Head {h00=0x0036, h01=0x0050, text=» SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH «, t00=0x00d3, t01=0x0186}
0x14b4e…14b64 Head {h00=0x0012, h01=0x0050, text=» RF(NN) GETP20«, t00=0x00d4, t01=0x0030}
0x14b64…14b88 Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP6 W.B. NOT FOUND!«, t00=0x00d4, t01=0x0046}
0x14b88…14b9c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00d4, t01=0x006a}
0x14b9c…14bb0 Head {h00=0x0010, h01=0x0050, text=»GETP20 EQU *«, t00=0x00d4, t01=0x007e}
0x14bb0…14bdc Head {h00=0x0028, h01=0x0050, text=» EL A10,UPADDR,A3 CHECK IF SAME W.B.«, t00=0x00d4, t01=0x0092}
0x14bdc…14bf0 Head {h00=0x0010, h01=0x0050, text=» CWR A11,A10«, t00=0x00d4, t01=0x00be}
0x14bf0…14c20 Head {h00=0x002c, h01=0x0050, text=» RF(E) GETP30 YES! GET NUMBER OF COPIES «, t00=0x00d4, t01=0x00d2}
0x14c20…14c3c Head {h00=0x0018, h01=0x0050, text=» ADK A3,UP:REC NEXT «, t00=0x00d4, t01=0x0102}
0x14c3c…14c4e Head {h00=0x000e, h01=0x0050, text=» RB GETP10«, t00=0x00d4, t01=0x011e}
0x14c4e…14c5a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d4, t01=0x0130}
0x14c5a…14c8e Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF COPIES *«, t00=0x00d4, t01=0x013c}
0x14c8e…14cc2 Head {h00=0x0030, h01=0x0050, text=»* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *«, t00=0x00d4, t01=0x0170}
0x14cc2…14cf6 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d5, t01=0x0014}
0x14cf6…14cfe Head {h00=0x0004, h01=0x0050, t00=0x00d5, t01=0x0048}
0x14cfe…14d12 Head {h00=0x0010, h01=0x0050, text=»GETP30 EQU *«, t00=0x00d5, t01=0x0050}
0x14d12…14d36 Head {h00=0x0020, h01=0x0050, text=» EL A4,WBLEN,A11 W.B.-LENGTH«, t00=0x00d5, t01=0x0064}
0x14d36…14d66 Head {h00=0x002c, h01=0x0050, text=» EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES «, t00=0x00d5, t01=0x0088}
0x14d66…14d7a Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x00d5, t01=0x00b8}
0x14d7a…14daa Head {h00=0x002c, h01=0x0050, text=» SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT«, t00=0x00d5, t01=0x00cc}
0x14daa…14ddc Head {h00=0x002e, h01=0x0050, text=» AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS«, t00=0x00d5, t01=0x00fc}
0x14ddc…14dee Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x00d5, t01=0x012e}
0x14dee…14e12 Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x00d5, t01=0x0140}
0x14e12…14e40 Head {h00=0x002a, h01=0x0050, text=» ES A5,URNUMB,A9 ESORE IN REAL U:BTAB «, t00=0x00d5, t01=0x0164}
0x14e40…14e66 (214, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ES A4,URLENG,A9 STORE LENGTH «, t00=0x00d6, t01=0x0004}
0x14e66…14e90 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM TABLE «, t00=0x00d6, t01=0x002a}
0x14e90…14ec4 Head {h00=0x0030, h01=0x0050, text=»* COPY NUMBER OF WORKBLOCKS TO COMMON AREA *«, t00=0x00d6, t01=0x0054}
0x14ec4…14ef8 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d6, t01=0x0088}
0x14ef8…14f2a Head {h00=0x002e, h01=0x0050, text=» SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') «, t00=0x00d6, t01=0x00bc}
0x14f2a…14f40 Head {h00=0x0012, h01=0x0050, text=» RF(NP) GETP50«, t00=0x00d6, t01=0x00ee}
0x14f40…14f5a Head {h00=0x0016, h01=0x0050, text=»GETP40 CALL MOVWB «, t00=0x00d6, t01=0x0104}
0x14f5a…14f6c Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x00d6, t01=0x011e}
0x14f6c…14f82 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) GETP40«, t00=0x00d6, t01=0x0130}
0x14f82…14f8e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d6, t01=0x0146}
0x14f8e…14fb8 Head {h00=0x0026, h01=0x0050, text=»* UPDATE POINTER IN REAL U:BTAB * «, t00=0x00d6, t01=0x0152}
0x14fb8…14fe2 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00d6, t01=0x017c}
0x14fe2…14ff6 Head {h00=0x0010, h01=0x0050, text=»GETP50 EQU *«, t00=0x00d7, t01=0x0016}
0x14ff6…1500c Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00d7, t01=0x002a}
0x1500c…15046 Head {h00=0x0036, h01=0x0050, text=» ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U:BTAB «, t00=0x00d7, t01=0x0040}
0x15046…1505e Head {h00=0x0014, h01=0x0050, text=» TL* MMFROM,A13 «, t00=0x00d7, t01=0x007a}
0x1505e…1506a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d7, t01=0x0092}
0x1506a…15080 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00d7, t01=0x009e}
0x15080…15090 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d7, t01=0x00b4}
0x15090…1509e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d7, t01=0x00c4}
0x1509e…150aa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d7, t01=0x00d2}
0x150aa…150e0 Head {h00=0x0032, h01=0x0050, text=»** M O V C L A ** «, t00=0x00d7, t01=0x00de}
0x150e0…15116 Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x00d7, t01=0x0114}
0x15116…1514c Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x00d7, t01=0x014a}
0x1514c…15182 Head {h00=0x0032, h01=0x0050, text=»** CHECKS IF W.B. ALREADY MOVED TO COMMON ** «, t00=0x00d7, t01=0x0180}
0x15182…151b8 Head {h00=0x0032, h01=0x0050, text=»** AREA. IF NOT MOVE W.B. & D.T. AND ** «, t00=0x00d8, t01=0x0026}
0x151b8…151ee Head {h00=0x0032, h01=0x0050, text=»** CHECK IF ANY DWB'S ** «, t00=0x00d8, t01=0x005c}
0x151ee…15224 Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x00d8, t01=0x0092}
0x15224…1525a Head {h00=0x0032, h01=0x0050, text=»** A LOT OF WORKREGS. ** «, t00=0x00d8, t01=0x00c8}
0x1525a…15290 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00d8, t01=0x00fe}
0x15290…15298 Head {h00=0x0004, h01=0x0050, t00=0x00d8, t01=0x0134}
0x15298…152ac Head {h00=0x0010, h01=0x0050, text=»MOVCLA EQU *«, t00=0x00d8, t01=0x013c}
0x152ac…152c0 Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00d8, t01=0x0150}
0x152c0…152d6 Head {h00=0x0012, h01=0x0050, text=» RF(Z) MVCL30 «, t00=0x00d8, t01=0x0164}
0x152d6…15304 Head {h00=0x002a, h01=0x0050, text=»MVCL10 CALL GETWB W.B.-ADDRESS TO A11 «, t00=0x00d8, t01=0x017a}
0x15304…1532e Head {h00=0x0026, h01=0x0050, text=» CALL CHKMVD BLOCK ALREADY MOVED? «, t00=0x00d9, t01=0x0018}
0x1532e…15348 Head {h00=0x0016, h01=0x0050, text=» RF(NN) MVCL40 NO!«, t00=0x00d9, t01=0x0042}
0x15348…15378 Head {h00=0x002c, h01=0x0050, text=»MVCL20 CALL SKIFTA GET NEXT BIT IN MASK «, t00=0x00d9, t01=0x005c}
0x15378…1538e Head {h00=0x0012, h01=0x0050, text=» RB(NZ) MVCL10«, t00=0x00d9, t01=0x008c}
0x1538e…153a4 Head {h00=0x0012, h01=0x0050, text=»MVCL30 RTN A14«, t00=0x00d9, t01=0x00a2}
0x153a4…153be Head {h00=0x0016, h01=0x0050, text=»MVCL40 CALL MOVDT «, t00=0x00d9, t01=0x00b8}
0x153be…153d2 Head {h00=0x0010, h01=0x0050, text=» CALL MOVWB «, t00=0x00d9, t01=0x00d2}
0x153d2…153f6 Head {h00=0x0020, h01=0x0050, text=» LD A4,UWB,A13 UWB-SCANNING «, t00=0x00d9, t01=0x00e6}
0x153f6…15410 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MVCL50 NO! «, t00=0x00d9, t01=0x010a}
0x15410…15434 Head {h00=0x0020, h01=0x0050, text=» CALL GETPRO DUPLICATE WB'S «, t00=0x00d9, t01=0x0124}
0x15434…15466 Head {h00=0x002e, h01=0x0050, text=»MVCL50 ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS «, t00=0x00d9, t01=0x0148}
0x15466…15488 Head {h00=0x001e, h01=0x0050, text=» CALL MOVDWB PROCESS DWB'S«, t00=0x00d9, t01=0x017a}
0x15488…1549a Head {h00=0x000e, h01=0x0050, text=» RB MVCL20«, t00=0x00da, t01=0x000c}
0x1549a…154a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00da, t01=0x001e}
0x154a8…154b4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00da, t01=0x002c}
0x154b4…154c0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00da, t01=0x0038}
0x154c0…154fa Head {h00=0x0036, h01=0x0050, text=»** C H A D R ** «, t00=0x00da, t01=0x0044}
0x154fa…15534 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00da, t01=0x007e}
0x15534…1556e Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00da, t01=0x00b8}
0x1556e…155a8 Head {h00=0x0036, h01=0x0050, text=»** CHANGE ADDRESS TO W.B. & D.T. IN T:A, ** «, t00=0x00da, t01=0x00f2}
0x155a8…155e2 Head {h00=0x0036, h01=0x0050, text=»** BLOCKS ALREDY MOVED ** «, t00=0x00da, t01=0x012c}
0x155e2…1561c Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00da, t01=0x0166}
0x1561c…15656 Head {h00=0x0036, h01=0x0050, text=»** INPUT : A6=POINTER IN T:ATAB TO T:A ** «, t00=0x00db, t01=0x0010}
0x15656…15690 Head {h00=0x0036, h01=0x0050, text=»** NEWADR1=NEW D.T.-ADDRESS ** «, t00=0x00db, t01=0x004a}
0x15690…156ca Head {h00=0x0036, h01=0x0050, text=»** NEWAD2= NEW W.B.-ADDRESS ** «, t00=0x00db, t01=0x0084}
0x156ca…15704 Head {h00=0x0036, h01=0x0050, text=»** TADISP=DISPLACEMENT TO WB-ADDR ** «, t00=0x00db, t01=0x00be}
0x15704…1573e Head {h00=0x0036, h01=0x0050, text=»** WORK.REGS: A1,A2 ** «, t00=0x00db, t01=0x00f8}
0x1573e…15778 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00db, t01=0x0132}
0x15778…15784 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00db, t01=0x016c}
0x15784…15798 Head {h00=0x0010, h01=0x0050, text=»CHADR EQU * «, t00=0x00db, t01=0x0178}
0x15798…157b4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00db, t01=0x018c}
0x157b4…157d4 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 T:A-ADDRESS «, t00=0x00dc, t01=0x0018}
0x157d4…15806 Head {h00=0x002e, h01=0x0050, text=» AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS«, t00=0x00dc, t01=0x0038}
0x15806…15820 Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD2,A13 «, t00=0x00dc, t01=0x006a}
0x15820…15832 Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x00dc, t01=0x0084}
0x15832…1585c Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 ADDRESS TO D.T.-ADDRESS «, t00=0x00dc, t01=0x0096}
0x1585c…15876 Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD1,A13 «, t00=0x00dc, t01=0x00c0}
0x15876…15888 Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x00dc, t01=0x00da}
0x15888…15894 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00dc, t01=0x00ec}
0x15894…158b0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00dc, t01=0x00f8}
0x158b0…158ce Head {h00=0x001a, h01=0x0050, text=» ELR A1,A6 T:A-ADDRESS«, t00=0x00dc, t01=0x0114}
0x158ce…15900 Head {h00=0x002e, h01=0x0050, text=» AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS«, t00=0x00dc, t01=0x0132}
0x15900…1591a Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD2,A13 «, t00=0x00dc, t01=0x0164}
0x1591a…1592c Head {h00=0x000e, h01=0x0050, text=» ESR A2,A1«, t00=0x00dc, t01=0x017e}
0x1592c…15956 Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 ADDRESS TO D.T.-ADDRESS «, t00=0x00dc, t01=0x0190}
0x15956…15970 Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD1,A13 «, t00=0x00dd, t01=0x002a}
0x15970…15982 Head {h00=0x000e, h01=0x0050, text=» ESR A2,A1«, t00=0x00dd, t01=0x0044}
0x15982…1598e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00dd, t01=0x0056}
0x1598e…159a4 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00dd, t01=0x0062}
0x159a4…159b4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00dd, t01=0x0078}
0x159b4…159c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00dd, t01=0x0088}
0x159c0…159dc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00dd, t01=0x0094}
0x159dc…159ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00dd, t01=0x00b0}
0x159ea…15a30 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00dd, t01=0x00be}
0x15a30…15a76 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00dd, t01=0x0104}
0x15a76…15abc Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00dd, t01=0x014a}
0x15abc…15b02 Head {h00=0x0042, h01=0x0050, text=»* B:RSWT - BUILD REAL SWB CONTROL TABLE *«, t00=0x00dd, t01=0x0190}
0x15b02…15b48 Head {h00=0x0042, h01=0x0050, text=»* ===================================== *«, t00=0x00de, t01=0x0046}
0x15b48…15b8e Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00de, t01=0x008c}
0x15b8e…15bd4 Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: SYSLDA *«, t00=0x00de, t01=0x00d2}
0x15bd4…15c1a Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00de, t01=0x0118}
0x15c1a…15c60 Head {h00=0x0042, h01=0x0050, text=»* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB *«, t00=0x00de, t01=0x015e}
0x15c60…15ca6 Head {h00=0x0042, h01=0x0050, text=»* A5 - LENGTH OF REAL S:BTAB *«, t00=0x00df, t01=0x0014}
0x15ca6…15cec Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00df, t01=0x005a}
0x15cec…15d32 Head {h00=0x0042, h01=0x0050, text=»* EXIT: *«, t00=0x00df, t01=0x00a0}
0x15d32…15d78 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00df, t01=0x00e6}
0x15d78…15dbe Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A1-A7 *«, t00=0x00df, t01=0x012c}
0x15dbe…15e04 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00df, t01=0x0172}
0x15e04…15e4a Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x00e0, t01=0x0028}
0x15e4a…15e90 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00e0, t01=0x006e}
0x15e90…15ed6 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00e0, t01=0x00b4}
0x15ed6…15ee4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e0, t01=0x00fa}
0x15ee4…15ef8 Head {h00=0x0010, h01=0x0050, text=»B:RSWT EQU *«, t00=0x00e0, t01=0x0108}
0x15ef8…15f26 Head {h00=0x002a, h01=0x0050, text=» LDR A8,A2 SAVE POINTER TO FIRST BLOCK«, t00=0x00e0, t01=0x011c}
0x15f26…15f56 Head {h00=0x002c, h01=0x0050, text=» LD A1,SCTSWB POINTER TO SWB BLOCK TABLE«, t00=0x00e0, t01=0x014a}
0x15f56…15f84 Head {h00=0x002a, h01=0x0050, text=» RF(Z) RSWBEX NO SWB:S IN APPLICATION «, t00=0x00e0, t01=0x017a}
0x15f84…15fa8 Head {h00=0x0020, h01=0x0050, text=» LDR* A3,A1 NUMBER OF TYPES «, t00=0x00e1, t01=0x0018}
0x15fa8…15fc6 Head {h00=0x001a, h01=0x0050, text=» RF(Z) RSWBEX NO MOORE«, t00=0x00e1, t01=0x003c}
0x15fc6…15fd8 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x00e1, t01=0x005a}
0x15fd8…15ffa Head {h00=0x001e, h01=0x0050, text=» SUK A5,2 SKIP LENGTH WORD«, t00=0x00e1, t01=0x006c}
0x15ffa…1601c Head {h00=0x001e, h01=0x0050, text=»RSWB10 ADK A1,2 NEXT TYPE «, t00=0x00e1, t01=0x008e}
0x1601c…16040 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,A1 POINTER TO BLOCK«, t00=0x00e1, t01=0x00b0}
0x16040…16064 Head {h00=0x0020, h01=0x0050, text=» LCR A6,A4 NUMBER OF COPIES «, t00=0x00e1, t01=0x00d4}
0x16064…1608c Head {h00=0x0024, h01=0x0050, text=» LD A7,SWBLEN,A4 LENGTH IN BYTES«, t00=0x00e1, t01=0x00f8}
0x1608c…16098 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e1, t01=0x0120}
0x16098…160b4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00e1, t01=0x012c}
0x160b4…160de Head {h00=0x0026, h01=0x0050, text=» ES A6,2,A2 STORE NUMBER OF COPIES«, t00=0x00e1, t01=0x0148}
0x160de…1610e Head {h00=0x002c, h01=0x0050, text=» ES A7,4,A2 STORE LENGTH OF SWB IN BYTES«, t00=0x00e1, t01=0x0172}
0x1610e…1611a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e2, t01=0x0012}
0x1611a…16136 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00e2, t01=0x001e}
0x16136…16160 Head {h00=0x0026, h01=0x0050, text=» ST A6,2,A2 STORE NUMBER OF COPIES«, t00=0x00e2, t01=0x003a}
0x16160…16190 Head {h00=0x002c, h01=0x0050, text=» ST A7,4,A2 STORE LENGTH OF SWB IN BYTES«, t00=0x00e2, t01=0x0064}
0x16190…1619c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e2, t01=0x0094}
0x1619c…161b8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00e2, t01=0x00a0}
0x161b8…161e2 Head {h00=0x0026, h01=0x0050, text=» SUK A5,6 DECREMENTS S:BTAB LENGTH«, t00=0x00e2, t01=0x00bc}
0x161e2…1620e Head {h00=0x0028, h01=0x0050, text=» ADK A2,6 INCREMENT POINTER IN BLOCK«, t00=0x00e2, t01=0x00e6}
0x1620e…1623a Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT NUMBER OF TYPES «, t00=0x00e2, t01=0x0112}
0x1623a…16250 Head {h00=0x0012, h01=0x0050, text=» RB(P) RSWB10 «, t00=0x00e2, t01=0x013e}
0x16250…16262 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x00e2, t01=0x0154}
0x16262…1626c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0166}
0x1626c…162a4 Head {h00=0x0034, h01=0x0050, text=»* INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE«, t00=0x00e2, t01=0x0170}
0x162a4…162d0 Head {h00=0x0028, h01=0x0050, text=»* AND RESET ALL WORDS IN TID BLOCKS«, t00=0x00e3, t01=0x0018}
0x162d0…162da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x0044}
0x162da…162ee Head {h00=0x0010, h01=0x0050, text=»RSWB20 EQU *«, t00=0x00e3, t01=0x004e}
0x162ee…1631a Head {h00=0x0028, h01=0x0050, text=» LDR A6,A2 GET ADDRESS TO TID BLOCK «, t00=0x00e3, t01=0x0062}
0x1631a…16342 Head {h00=0x0024, h01=0x0050, text=» SUR A6,A8 COMPUTE DISPLACEMENT «, t00=0x00e3, t01=0x008e}
0x16342…1635e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00e3, t01=0x00b6}
0x1635e…16382 Head {h00=0x0020, h01=0x0050, text=» LD A1,2,A8 NUMBER OF COPIES«, t00=0x00e3, t01=0x00d2}
0x16382…163a2 Head {h00=0x001c, h01=0x0050, text=» RF(Z) RSWB50 NO COPIES!«, t00=0x00e3, t01=0x00f6}
0x163a2…163d0 Head {h00=0x002a, h01=0x0050, text=» STR A6,A8 STORE POINTER TO TID BLOCK «, t00=0x00e3, t01=0x0116}
0x163d0…163f2 Head {h00=0x001e, h01=0x0050, text=»RSWB30 STR A3,A2 RESET TID«, t00=0x00e3, t01=0x0144}
0x163f2…16422 Head {h00=0x002c, h01=0x0050, text=» ADK A2,2 INCREMENT POINTER IN TID BLOCK«, t00=0x00e3, t01=0x0166}
0x16422…16454 Head {h00=0x002e, h01=0x0050, text=» SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB «, t00=0x00e4, t01=0x0008}
0x16454…1647c Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECR. NUMBER OF COPIES«, t00=0x00e4, t01=0x003a}
0x1647c…1649c Head {h00=0x001c, h01=0x0050, text=» RB(P) RSWB30 NEXT COPY «, t00=0x00e4, t01=0x0062}
0x1649c…164a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e4, t01=0x0082}
0x164a8…164c4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00e4, t01=0x008e}
0x164c4…164ec Head {h00=0x0024, h01=0x0050, text=» EL A1,2,A8 GET NUMBER OF COPIES«, t00=0x00e4, t01=0x00aa}
0x164ec…1650c Head {h00=0x001c, h01=0x0050, text=» RF(Z) RSWB50 NO COPIES!«, t00=0x00e4, t01=0x00d2}
0x1650c…1653a Head {h00=0x002a, h01=0x0050, text=» ESR A6,A8 STORE POINTER TO TID BLOCK «, t00=0x00e4, t01=0x00f2}
0x1653a…1655c Head {h00=0x001e, h01=0x0050, text=»RSWB40 ESR A3,A2 RESET TID«, t00=0x00e4, t01=0x0120}
0x1655c…1658c Head {h00=0x002c, h01=0x0050, text=» ADK A2,2 INCREMENT POINTER IN TID BLOCK«, t00=0x00e4, t01=0x0142}
0x1658c…165be Head {h00=0x002e, h01=0x0050, text=» SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB «, t00=0x00e4, t01=0x0172}
0x165be…165ea Head {h00=0x0028, h01=0x0050, text=» SUK A1,1 DECREMENT NUMBER OF COPIES«, t00=0x00e5, t01=0x0014}
0x165ea…1660a Head {h00=0x001c, h01=0x0050, text=» RB(P) RSWB40 NEXT COPY «, t00=0x00e5, t01=0x0040}
0x1660a…16616 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e5, t01=0x0060}
0x16616…16632 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00e5, t01=0x006c}
0x16632…1664a Head {h00=0x0014, h01=0x0050, text=»RSWB50 ADKL A8,6«, t00=0x00e5, t01=0x0088}
0x1664a…1665c Head {h00=0x000e, h01=0x0050, text=» CWR A8,A4«, t00=0x00e5, t01=0x00a0}
0x1665c…16672 Head {h00=0x0012, h01=0x0050, text=» RB(NE) RSWB20«, t00=0x00e5, t01=0x00b2}
0x16672…16698 Head {h00=0x0022, h01=0x0050, text=» LDR A5,A5 S:BTAB CONSISTENT? «, t00=0x00e5, t01=0x00c8}
0x16698…166b2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) RSWBEX YES «, t00=0x00e5, t01=0x00ee}
0x166b2…166d2 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,LMP6 SWB ERROR!«, t00=0x00e5, t01=0x0108}
0x166d2…166e6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00e5, t01=0x0128}
0x166e6…166fc Head {h00=0x0012, h01=0x0050, text=»RSWBEX RTN A14«, t00=0x00e5, t01=0x013c}
0x166fc…16708 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e5, t01=0x0152}
0x16708…1671e Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00e5, t01=0x015e}
0x1671e…1672c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e5, t01=0x0174}
0x1672c…16734 Head {h00=0x0004, h01=0x0050, t00=0x00e5, t01=0x0182}
0x16734…16758 Head {h00=0x0020, h01=0x0050, text=»* **************************«, t00=0x00e5, t01=0x018a}
0x16758…1677e Head {h00=0x0022, h01=0x0050, text=»* START OF PROGRAM PART 2.A * «, t00=0x00e6, t01=0x001e}
0x1677e…167a4 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x00e6, t01=0x0044}
0x167a4…167ac Head {h00=0x0004, h01=0x0050, t00=0x00e6, t01=0x006a}
0x167ac…167ca Head {h00=0x001a, h01=0x0050, text=»* LOAD BASE ADDRESS * «, t00=0x00e6, t01=0x0072}
0x167ca…167e8 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x00e6, t01=0x0090}
0x167e8…16802 Head {h00=0x0016, h01=0x0050, text=»* A5=START-ADDRESS«, t00=0x00e6, t01=0x00ae}
0x16802…1681e Head {h00=0x0018, h01=0x0050, text=»* A9=P:MTAB ADDRESS «, t00=0x00e6, t01=0x00c8}
0x1681e…1683e Head {h00=0x001c, h01=0x0050, text=»* SAVE03=DDIV TO-ADDRESS«, t00=0x00e6, t01=0x00e4}
0x1683e…16860 Head {h00=0x001e, h01=0x0050, text=»* SAVE04=DDIV FROM ADDRESS«, t00=0x00e6, t01=0x0104}
0x16860…16886 Head {h00=0x0022, h01=0x0050, text=»* SAVE05=LENGTH OF REAL T:ATAB«, t00=0x00e6, t01=0x0126}
0x16886…168ac Head {h00=0x0022, h01=0x0050, text=»* SAVE06=LENGTH OF REAL U:BTAB«, t00=0x00e6, t01=0x014c}
0x168ac…168b8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00e6, t01=0x0172}
0x168b8…168d0 Head {h00=0x0014, h01=0x0050, text=»START2 EQU *-REL«, t00=0x00e6, t01=0x017e}
0x168d0…168f6 Head {h00=0x0022, h01=0x0050, text=» LDR A8,P LOAD TEMP. STACKBASE«, t00=0x00e7, t01=0x0008}
0x168f6…16922 Head {h00=0x0028, h01=0x0050, text=» ADK A5,2 ADD FOR RELOCATION ROUTINE«, t00=0x00e7, t01=0x002e}
0x16922…16934 Head {h00=0x000e, h01=0x0050, text=» CFR A8,A5«, t00=0x00e7, t01=0x005a}
0x16934…1694a Head {h00=0x0012, h01=0x0050, text=»* MOVE DDIV * «, t00=0x00e7, t01=0x006c}
0x1694a…16952 Head {h00=0x0004, h01=0x0050, t00=0x00e7, t01=0x0082}
0x16952…1697c Head {h00=0x0026, h01=0x0050, text=» LD A1,SAVE04,A13 GET FROM-ADDRESS«, t00=0x00e7, t01=0x008a}
0x1697c…169a4 Head {h00=0x0024, h01=0x0050, text=» LD A2,SAVE03,A13 GET TO ADDRESS«, t00=0x00e7, t01=0x00b4}
0x169a4…169d6 Head {h00=0x002e, h01=0x0050, text=» LDR A3,A9 GET P:MTAB START (=END OF DDIV «, t00=0x00e7, t01=0x00dc}
0x169d6…169f2 Head {h00=0x0018, h01=0x0050, text=» SUR A3,A1 => LENGTH«, t00=0x00e7, t01=0x010e}
0x169f2…169fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e7, t01=0x012a}
0x169fe…16a1a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00e7, t01=0x0136}
0x16a1a…16a50 Head {h00=0x0032, h01=0x0050, text=» LD A8,SAVE29,A13 ANY SEGMENTS IN APPLICATION?«, t00=0x00e7, t01=0x0152}
0x16a50…16a6a Head {h00=0x0016, h01=0x0050, text=» RF(Z) NOSGMT NO! «, t00=0x00e7, t01=0x0188}
0x16a6a…16a96 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,0 RESET FSTADR IF SEGMENTS!«, t00=0x00e8, t01=0x0012}
0x16a96…16aa8 Head {h00=0x000e, h01=0x0050, text=» RF SEGMTS«, t00=0x00e8, t01=0x003e}
0x16aa8…16ade Head {h00=0x0032, h01=0x0050, text=»NOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP «, t00=0x00e8, t01=0x0050}
0x16ade…16b04 Head {h00=0x0022, h01=0x0050, text=»SEGMTS ST A8,FSTADR,A13 STORE «, t00=0x00e8, t01=0x0086}
0x16b04…16b26 Head {h00=0x001e, h01=0x0050, text=»MOVNXT LDR* A4,A1 GET WORD«, t00=0x00e8, t01=0x00ac}
0x16b26…16b3e Head {h00=0x0014, h01=0x0050, text=» STR A4,A2 STORE«, t00=0x00e8, t01=0x00ce}
0x16b3e…16b50 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00e8, t01=0x00e6}
0x16b50…16b62 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00e8, t01=0x00f8}
0x16b62…16b7e Head {h00=0x0018, h01=0x0050, text=» SUK A3,2 DEC LENGTH«, t00=0x00e8, t01=0x010a}
0x16b7e…16b94 Head {h00=0x0012, h01=0x0050, text=» RB(NN) MOVNXT«, t00=0x00e8, t01=0x0126}
0x16b94…16ba0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e8, t01=0x013c}
0x16ba0…16bbc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00e8, t01=0x0148}
0x16bbc…16bd0 Head {h00=0x0010, h01=0x0050, text=» CALL XMOVE «, t00=0x00e8, t01=0x0164}
0x16bd0…16bfa Head {h00=0x0026, h01=0x0050, text=»* REMOVE DDIV ENTRIES IN MM-TABLE «, t00=0x00e8, t01=0x0178}
0x16bfa…16c02 Head {h00=0x0004, h01=0x0050, t00=0x00e9, t01=0x0012}
0x16c02…16c28 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET P:MTAB ADDRESS «, t00=0x00e9, t01=0x001a}
0x16c28…16c50 Head {h00=0x0024, h01=0x0050, text=» SRL A1,11 ADJUST FOR ADDRESSING«, t00=0x00e9, t01=0x0040}
0x16c50…16c64 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/1E «, t00=0x00e9, t01=0x0068}
0x16c64…16c8e Head {h00=0x0026, h01=0x0050, text=» LDK A2,MMTAB-2 GET TABLE ADDRESS «, t00=0x00e9, t01=0x007c}
0x16c8e…16caa Head {h00=0x0018, h01=0x0050, text=» ADR A2,A13 RELOCATE«, t00=0x00e9, t01=0x00a6}
0x16caa…16cd0 Head {h00=0x0022, h01=0x0050, text=» ADR A1,A2 P:MTAB START ENTRY «, t00=0x00e9, t01=0x00c2}
0x16cd0…16ce6 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/FC00«, t00=0x00e9, t01=0x00e8}
0x16ce6…16d04 Head {h00=0x001a, h01=0x0050, text=»SYA205 CWR A1,A2 ALL? «, t00=0x00e9, t01=0x00fe}
0x16d04…16d1e Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA207 YES!«, t00=0x00e9, t01=0x011c}
0x16d1e…16d4e Head {h00=0x002c, h01=0x0050, text=» STR A4,A1 REPLACE ENTRY WITH PAGE ERROR«, t00=0x00e9, t01=0x0136}
0x16d4e…16d60 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x00e9, t01=0x0166}
0x16d60…16d72 Head {h00=0x000e, h01=0x0050, text=» RB SYA205«, t00=0x00e9, t01=0x0178}
0x16d72…16d86 Head {h00=0x0010, h01=0x0050, text=»SYA207 EQU *«, t00=0x00e9, t01=0x018a}
0x16d86…16da6 Head {h00=0x001c, h01=0x0050, text=»* CHANGE TABLE-ADDRESSES«, t00=0x00ea, t01=0x000e}
0x16da6…16dc0 Head {h00=0x0016, h01=0x0050, text=» LD A4,MMFROM,A13 «, t00=0x00ea, t01=0x002e}
0x16dc0…16dd8 Head {h00=0x0014, h01=0x0050, text=» LD A5,MMTO,A13 «, t00=0x00ea, t01=0x0048}
0x16dd8…16df0 Head {h00=0x0014, h01=0x0050, text=» ST A4,MMTO,A13 «, t00=0x00ea, t01=0x0060}
0x16df0…16e0a Head {h00=0x0016, h01=0x0050, text=» ST A5,MMFROM,A13 «, t00=0x00ea, t01=0x0078}
0x16e0a…16e16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ea, t01=0x0092}
0x16e16…16e2c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ea, t01=0x009e}
0x16e2c…16e50 Head {h00=0x0020, h01=0x0050, text=» ANKL A9,/FFFE EVEN ADDRESS «, t00=0x00ea, t01=0x00b4}
0x16e50…16e80 Head {h00=0x002c, h01=0x0050, text=» ST A9,LSTADR,A13 SAVE END OF FREE AREA «, t00=0x00ea, t01=0x00d8}
0x16e80…16e88 Head {h00=0x0004, h01=0x0050, t00=0x00ea, t01=0x0108}
0x16e88…16e90 Head {h00=0x0004, h01=0x0050, t00=0x00ea, t01=0x0110}
0x16e90…16e9c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00ea, t01=0x0118}
0x16e9c…16ece Head {h00=0x002e, h01=0x0050, text=»* RESERVE SPACE FOR REAL T:A- AND U:BTAB *«, t00=0x00ea, t01=0x0124}
0x16ece…16ed6 Head {h00=0x0004, h01=0x0050, t00=0x00ea, t01=0x0156}
0x16ed6…16ef2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ea, t01=0x015e}
0x16ef2…16f1e Head {h00=0x0028, h01=0x0050, text=» LDKL A3,MMTAB GET CURRENT MM-TABLE «, t00=0x00ea, t01=0x017a}
0x16f1e…16f32 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A13 «, t00=0x00eb, t01=0x0016}
0x16f32…16f62 Head {h00=0x002c, h01=0x0050, text=»* FIND LAST USED ENTRY IN REAL MMUTAB * «, t00=0x00eb, t01=0x002a}
0x16f62…16f6a Head {h00=0x0004, h01=0x0050, t00=0x00eb, t01=0x005a}
0x16f6a…16f7e Head {h00=0x0010, h01=0x0050, text=» CALL MMENT «, t00=0x00eb, t01=0x0062}
0x16f7e…16f96 Head {h00=0x0014, h01=0x0050, text=» ST A9,TTAB,A13 «, t00=0x00eb, t01=0x0076}
0x16f96…16fc4 Head {h00=0x002a, h01=0x0050, text=» ST A1,FYSPAG,A13 SAVE PHYSICALL PAGE «, t00=0x00eb, t01=0x008e}
0x16fc4…16ff2 Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE05,A13 GET LENGTH OF T:ATAB«, t00=0x00eb, t01=0x00bc}
0x16ff2…1700a Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00eb, t01=0x00ea}
0x1700a…17038 Head {h00=0x002a, h01=0x0050, text=» CALL MOVING RESERVE SPACE FOR T:ATAB «, t00=0x00eb, t01=0x0102}
0x17038…17060 Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 SET CORRECT TABLE «, t00=0x00eb, t01=0x0130}
0x17060…17086 Head {h00=0x0022, h01=0x0050, text=» ESR A5,A2 STORE T:ATAB LENGTH«, t00=0x00eb, t01=0x0158}
0x17086…170b8 Head {h00=0x002e, h01=0x0050, text=» ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS «, t00=0x00eb, t01=0x017e}
0x170b8…170da Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 SKIP LENGTH WORD«, t00=0x00ec, t01=0x0020}
0x170da…17102 Head {h00=0x0024, h01=0x0050, text=» LD A9,SCTLAC GET P:MTAB ADDRESS«, t00=0x00ec, t01=0x0042}
0x17102…1712a Head {h00=0x0024, h01=0x0050, text=» ES A2,T:ATAB,A9 STORE IN P:MTAB«, t00=0x00ec, t01=0x006a}
0x1712a…17152 Head {h00=0x0024, h01=0x0050, text=»* RESERVE PLACE FOR T:AID TABLE «, t00=0x00ec, t01=0x0092}
0x17152…1715a Head {h00=0x0004, h01=0x0050, t00=0x00ec, t01=0x00ba}
0x1715a…17178 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A5 GET LENGTH «, t00=0x00ec, t01=0x00c2}
0x17178…1718c Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00ec, t01=0x00e0}
0x1718c…171a2 Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00ec, t01=0x00f4}
0x171a2…171c0 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A9 GET P:MTAB «, t00=0x00ec, t01=0x010a}
0x171c0…171ea Head {h00=0x0026, h01=0x0050, text=» ADK A3,T:AID ADD TO ADDRESS WORD «, t00=0x00ec, t01=0x0128}
0x171ea…1721e Head {h00=0x0030, h01=0x0050, text=» ESR A5,A2 STORE TABLE LENGTH IN T:TID-TABLE«, t00=0x00ec, t01=0x0152}
0x1721e…17244 Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 ADJUST TABLE ADDRESS«, t00=0x00ec, t01=0x0186}
0x17244…17266 Head {h00=0x001e, h01=0x0050, text=» ESR A2,A3 STORE IN P:MTAB«, t00=0x00ed, t01=0x001c}
0x17266…17272 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ed, t01=0x003e}
0x17272…17288 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ed, t01=0x004a}
0x17288…172b4 Head {h00=0x0028, h01=0x0050, text=» LD A3,SAVE06,A13 GET U:BTAB LENGTH «, t00=0x00ed, t01=0x0060}
0x172b4…172cc Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00ed, t01=0x008c}
0x172cc…172ee Head {h00=0x001e, h01=0x0050, text=» CALL MOVING RESERVE SPACE«, t00=0x00ed, t01=0x00a4}
0x172ee…17326 Head {h00=0x0034, h01=0x0050, text=» ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS«, t00=0x00ed, t01=0x00c6}
0x17326…17342 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ed, t01=0x00fe}
0x17342…17362 Head {h00=0x001c, h01=0x0050, text=» STR A5,A2 STORE LENGTH «, t00=0x00ed, t01=0x011a}
0x17362…17374 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00ed, t01=0x013a}
0x17374…173b2 Head {h00=0x003a, h01=0x0050, text=» ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB «, t00=0x00ed, t01=0x014c}
0x173b2…173e0 Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE05,A13 GET LENGTH OF T:ATAB«, t00=0x00ed, t01=0x018a}
0x173e0…173f8 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00ee, t01=0x0028}
0x173f8…17426 Head {h00=0x002a, h01=0x0050, text=» CALL MOVING RESERVE SPACE FOR T:ATAB «, t00=0x00ee, t01=0x0040}
0x17426…1744c Head {h00=0x0022, h01=0x0050, text=» STR A5,A2 STORE T:ATAB LENGTH«, t00=0x00ee, t01=0x006e}
0x1744c…1747e Head {h00=0x002e, h01=0x0050, text=» ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS «, t00=0x00ee, t01=0x0094}
0x1747e…17490 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00ee, t01=0x00c6}
0x17490…174ba Head {h00=0x0026, h01=0x0050, text=» ST A2,T:ATAB,A9 SAVE REAL ADDRESS«, t00=0x00ee, t01=0x00d8}
0x174ba…174dc Head {h00=0x001e, h01=0x0050, text=»* RESERVE FOR T:AID TABLE «, t00=0x00ee, t01=0x0102}
0x174dc…174e4 Head {h00=0x0004, h01=0x0050, t00=0x00ee, t01=0x0124}
0x174e4…174fe Head {h00=0x0016, h01=0x0050, text=» LDR A3,A5 LENGTH «, t00=0x00ee, t01=0x012c}
0x174fe…17512 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00ee, t01=0x0146}
0x17512…17532 Head {h00=0x001c, h01=0x0050, text=» STR A5,A2 STORE LENGTH «, t00=0x00ee, t01=0x015a}
0x17532…1755a Head {h00=0x0024, h01=0x0050, text=» ADK A2,2 ADJUST FOR LENGTH-WORD«, t00=0x00ee, t01=0x017a}
0x1755a…1758a Head {h00=0x002c, h01=0x0050, text=» ST A2,T:AID,A9 STORE ADDRESS IN P:MTAB «, t00=0x00ef, t01=0x0012}
0x1758a…17596 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ef, t01=0x0042}
0x17596…175b2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ef, t01=0x004e}
0x175b2…175da Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 SET CORRECT TABLE «, t00=0x00ef, t01=0x006a}
0x175da…175fa Head {h00=0x001c, h01=0x0050, text=» ESR A5,A2 STORE LENGTH «, t00=0x00ef, t01=0x0092}
0x175fa…1761c Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 SKIP LENGTH WORD«, t00=0x00ef, t01=0x00b2}
0x1761c…17644 Head {h00=0x0024, h01=0x0050, text=» ES A2,U:BTAB,A9 STORE IN P:MTAB«, t00=0x00ef, t01=0x00d4}
0x17644…17650 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ef, t01=0x00fc}
0x17650…1766c Head {h00=0x0018, h01=0x0050, text=» IFT SWPBLK+CREDIT=2«, t00=0x00ef, t01=0x0108}
0x1766c…17676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0124}
0x17676…176a4 Head {h00=0x002a, h01=0x0050, text=»* RESERV SPACE FOR REAL S:BTAB TABLE «, t00=0x00ef, t01=0x012e}
0x176a4…176ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x015c}
0x176ae…176de Head {h00=0x002c, h01=0x0050, text=» LD A3,SAVE25,A13 LENGTH OF REAL S:BTAB «, t00=0x00ef, t01=0x0166}
0x176de…176f6 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00f0, t01=0x0008}
0x176f6…1770a Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00f0, t01=0x0020}
0x1770a…17724 Head {h00=0x0016, h01=0x0050, text=» ST A2,S:BTNW,A13 «, t00=0x00f0, t01=0x0034}
0x17724…17730 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f0, t01=0x004e}
0x17730…1774c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00f0, t01=0x005a}
0x1774c…17762 Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00f0, t01=0x0076}
0x17762…17774 Head {h00=0x000e, h01=0x0050, text=» ESR A5,A2«, t00=0x00f0, t01=0x008c}
0x17774…17786 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00f0, t01=0x009e}
0x17786…1779e Head {h00=0x0014, h01=0x0050, text=» ES A2,S:BTAB,A9«, t00=0x00f0, t01=0x00b0}
0x1779e…177b2 Head {h00=0x0010, h01=0x0050, text=» CALL B:RSWT«, t00=0x00f0, t01=0x00c8}
0x177b2…177be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f0, t01=0x00dc}
0x177be…177da Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00f0, t01=0x00e8}
0x177da…177ec Head {h00=0x000e, h01=0x0050, text=» STR A5,A2«, t00=0x00f0, t01=0x0104}
0x177ec…177fe Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00f0, t01=0x0116}
0x177fe…17816 Head {h00=0x0014, h01=0x0050, text=» ST A2,S:BTAB,A9«, t00=0x00f0, t01=0x0128}
0x17816…1782a Head {h00=0x0010, h01=0x0050, text=» CALL B:RSWT«, t00=0x00f0, t01=0x0140}
0x1782a…17836 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f0, t01=0x0154}
0x17836…17852 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f0, t01=0x0160}
0x17852…17878 Head {h00=0x0022, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE «, t00=0x00f0, t01=0x017c}
0x17878…17884 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f1, t01=0x0012}
0x17884…1789a Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f1, t01=0x001e}
0x1789a…178a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f1, t01=0x0034}
0x178a8…178b4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f1, t01=0x0042}
0x178b4…178d6 Head {h00=0x001e, h01=0x0050, text=»* BUILD COMMON DATA AREA *«, t00=0x00f1, t01=0x004e}
0x178d6…178f8 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x00f1, t01=0x0070}
0x178f8…17910 Head {h00=0x0014, h01=0x0050, text=»* SEARCH CWB'S: «, t00=0x00f1, t01=0x0092}
0x17910…1791c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f1, t01=0x00aa}
0x1791c…17948 Head {h00=0x0028, h01=0x0050, text=» LD A8,T:ATOD,A13 GET T:ATAB ADDRESS«, t00=0x00f1, t01=0x00b6}
0x17948…17964 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f1, t01=0x00e2}
0x17964…17982 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A8 GET LENGTH«, t00=0x00f1, t01=0x00fe}
0x17982…1798e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f1, t01=0x011c}
0x1798e…179aa Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f1, t01=0x0128}
0x179aa…179c8 Head {h00=0x001a, h01=0x0050, text=» ELR A3,A8 GET LENGTH «, t00=0x00f1, t01=0x0144}
0x179c8…179d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f1, t01=0x0162}
0x179d4…179ea Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f1, t01=0x016e}
0x179ea…179fc Head {h00=0x000e, h01=0x0050, text=» ADR A3,A8«, t00=0x00f1, t01=0x0184}
0x179fc…17a30 Head {h00=0x0030, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE END OF T:ATAB ADDRESS«, t00=0x00f2, t01=0x0008}
0x17a30…17a44 Head {h00=0x0010, h01=0x0050, text=»SYA210 EQU *«, t00=0x00f2, t01=0x003c}
0x17a44…17a6e Head {h00=0x0026, h01=0x0050, text=» CM UWB,A13 INDICATE CWB-SCANNING «, t00=0x00f2, t01=0x0050}
0x17a6e…17a80 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x00f2, t01=0x007a}
0x17a80…17aa4 Head {h00=0x0020, h01=0x0050, text=» CW A8,ENDADD,A13 ALL DONE? «, t00=0x00f2, t01=0x008c}
0x17aa4…17abe Head {h00=0x0016, h01=0x0050, text=» RF(E) CLADAT YES!«, t00=0x00f2, t01=0x00b0}
0x17abe…17ae6 Head {h00=0x0024, h01=0x0050, text=» CALL T:DADD T:D-ADDRESS TO A12 «, t00=0x00f2, t01=0x00ca}
0x17ae6…17b02 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f2, t01=0x00f2}
0x17b02…17b28 Head {h00=0x0022, h01=0x0050, text=» LD A7,CWBMSK,A12 GET CWB-MASK«, t00=0x00f2, t01=0x010e}
0x17b28…17b34 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f2, t01=0x0134}
0x17b34…17b50 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f2, t01=0x0140}
0x17b50…17b6a Head {h00=0x0016, h01=0x0050, text=» EL A7,CWBMSK,A12 «, t00=0x00f2, t01=0x015c}
0x17b6a…17b76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f2, t01=0x0176}
0x17b76…17b8c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f2, t01=0x0182}
0x17b8c…17bac Head {h00=0x001c, h01=0x0050, text=» CALL SHIFT SUPER-LOOPA «, t00=0x00f3, t01=0x0008}
0x17bac…17bcc Head {h00=0x001c, h01=0x0050, text=»SYA220 RF(Z) UWBCOM ALL!«, t00=0x00f3, t01=0x0028}
0x17bcc…17be0 Head {h00=0x0010, h01=0x0050, text=» CALL MOVCOM«, t00=0x00f3, t01=0x0048}
0x17be0…17bf4 Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x00f3, t01=0x005c}
0x17bf4…17c06 Head {h00=0x000e, h01=0x0050, text=» RB SYA220«, t00=0x00f3, t01=0x0070}
0x17c06…17c14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f3, t01=0x0082}
0x17c14…17c20 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f3, t01=0x0090}
0x17c20…17c2c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f3, t01=0x009c}
0x17c2c…17c40 Head {h00=0x0010, h01=0x0050, text=»UWBCOM EQU *«, t00=0x00f3, t01=0x00a8}
0x17c40…17c58 Head {h00=0x0014, h01=0x0050, text=»* SEARCH UWB'S: «, t00=0x00f3, t01=0x00bc}
0x17c58…17c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x00d4}
0x17c62…17c8c Head {h00=0x0026, h01=0x0050, text=» IM UWB,A13 INDICATE UWB-SCANNING «, t00=0x00f3, t01=0x00de}
0x17c8c…17ca8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f3, t01=0x0108}
0x17ca8…17cc2 Head {h00=0x0016, h01=0x0050, text=» LD A7,UWBMSK,A12 «, t00=0x00f3, t01=0x0124}
0x17cc2…17cce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f3, t01=0x013e}
0x17cce…17cea Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f3, t01=0x014a}
0x17cea…17d04 Head {h00=0x0016, h01=0x0050, text=» EL A7,UWBMSK,A12 «, t00=0x00f3, t01=0x0166}
0x17d04…17d10 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f3, t01=0x0180}
0x17d10…17d26 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f3, t01=0x018c}
0x17d26…17d3a Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00f4, t01=0x0012}
0x17d3a…17d60 Head {h00=0x0022, h01=0x0050, text=»SYA230 RB(Z) SYA210 ALL DONE! «, t00=0x00f4, t01=0x0026}
0x17d60…17d7a Head {h00=0x0016, h01=0x0050, text=»SYA235 CALL MOVCOM«, t00=0x00f4, t01=0x004c}
0x17d7a…17d94 Head {h00=0x0016, h01=0x0050, text=»SYA240 CALL SKIFTA«, t00=0x00f4, t01=0x0066}
0x17d94…17da6 Head {h00=0x000e, h01=0x0050, text=» RB SYA230«, t00=0x00f4, t01=0x0080}
0x17da6…17db4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f4, t01=0x0092}
0x17db4…17dc0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f4, t01=0x00a0}
0x17dc0…17dee Head {h00=0x002a, h01=0x0050, text=»* TASK CLASS DATA CONFIGURATION PART *«, t00=0x00f4, t01=0x00ac}
0x17dee…17e1c Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x00f4, t01=0x00da}
0x17e1c…17e24 Head {h00=0x0004, h01=0x0050, t00=0x00f4, t01=0x0108}
0x17e24…17e38 Head {h00=0x0010, h01=0x0050, text=»CLADAT EQU *«, t00=0x00f4, t01=0x0110}
0x17e38…17e70 Head {h00=0x0034, h01=0x0050, text=» LD A8,T:ATOD,A13 SET POINTER TO LENGTH INT:ATAB«, t00=0x00f4, t01=0x0124}
0x17e70…17e8c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f4, t01=0x015c}
0x17e8c…17eb2 Head {h00=0x0022, h01=0x0050, text=»SYA250 CM UWB,A13 INDICATE CWB«, t00=0x00f4, t01=0x0178}
0x17eb2…17ede Head {h00=0x0028, h01=0x0050, text=» ADKL A8,2 STEP TO NEXT T:A ADDRESS «, t00=0x00f5, t01=0x000e}
0x17ede…17ef8 Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x00f5, t01=0x003a}
0x17ef8…17f1c Head {h00=0x0020, h01=0x0050, text=» RF(E) SYA270 ALL T:A'S DONE«, t00=0x00f5, t01=0x0054}
0x17f1c…17f48 Head {h00=0x0028, h01=0x0050, text=» CALL T:DADD GET T:D ADDRESS TO A12 «, t00=0x00f5, t01=0x0078}
0x17f48…17f50 Head {h00=0x0004, h01=0x0050, t00=0x00f5, t01=0x00a4}
0x17f50…17f72 Head {h00=0x001e, h01=0x0050, text=»* CALCULATE LENGTH OF T:D «, t00=0x00f5, t01=0x00ac}
0x17f72…17f7a Head {h00=0x0004, h01=0x0050, t00=0x00f5, t01=0x00ce}
0x17f7a…17fb0 Head {h00=0x0032, h01=0x0050, text=» LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB«, t00=0x00f5, t01=0x00d6}
0x17fb0…17fc2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00f5, t01=0x010c}
0x17fc2…17fe6 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE EVEN ADDRESS «, t00=0x00f5, t01=0x011e}
0x17fe6…18012 Head {h00=0x0028, h01=0x0050, text=» ADK A1,DWBFST+4 ADD DISPL. TO FIRST«, t00=0x00f5, t01=0x0142}
0x18012…18040 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A1 GET NUMBER OF START-POINTS «, t00=0x00f5, t01=0x016e}
0x18040…18064 Head {h00=0x0020, h01=0x0050, text=» ADR A3,A12 ADD T:D-ADDRESS «, t00=0x00f6, t01=0x000c}
0x18064…1807a Head {h00=0x0012, h01=0x0050, text=» LDR* A3,A3 . «, t00=0x00f6, t01=0x0030}
0x1807a…180ae Head {h00=0x0030, h01=0x0050, text=» LDK A2,STPREC GET STARTPOINTS RECORD LENGTH«, t00=0x00f6, t01=0x0046}
0x180ae…180ce Head {h00=0x001c, h01=0x0050, text=» CALL MULT AND MULTIPLY «, t00=0x00f6, t01=0x007a}
0x180ce…180ee Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 'NUMBER-WORD' «, t00=0x00f6, t01=0x009a}
0x180ee…1810a Head {h00=0x0018, h01=0x0050, text=» ADR A3,A1 =>LENGTH «, t00=0x00f6, t01=0x00ba}
0x1810a…1812a Head {h00=0x001c, h01=0x0050, text=» LDR A1,A12 FROM-ADDRESS«, t00=0x00f6, t01=0x00d6}
0x1812a…18148 Head {h00=0x001a, h01=0x0050, text=» CALL MOVING MOVE T:D «, t00=0x00f6, t01=0x00f6}
0x18148…1816c Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A ADDRESS «, t00=0x00f6, t01=0x0114}
0x1816c…1819a Head {h00=0x002a, h01=0x0050, text=» ST A2,T:DAD,A1 STORE NEW T:D ADDRESS «, t00=0x00f6, t01=0x0138}
0x1819a…181c0 Head {h00=0x0022, h01=0x0050, text=» LD A7,CWBMSK,A12 GET CWBMASK «, t00=0x00f6, t01=0x0166}
0x181c0…181cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f6, t01=0x018c}
0x181cc…181e8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f7, t01=0x0008}
0x181e8…18214 Head {h00=0x0028, h01=0x0050, text=»* INITIATE MM-ADDRESS TABLE POINTER «, t00=0x00f7, t01=0x0024}
0x18214…1821c Head {h00=0x0004, h01=0x0050, t00=0x00f7, t01=0x0050}
0x1821c…18244 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTSFA SHADOW TABLE START«, t00=0x00f7, t01=0x0058}
0x18244…1826e Head {h00=0x0026, h01=0x0050, text=» AD* A1,SCTSFA ADDRESS TABLE START«, t00=0x00f7, t01=0x0080}
0x1826e…1828c Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE06,A13 SAVE«, t00=0x00f7, t01=0x00aa}
0x1828c…182b2 Head {h00=0x0022, h01=0x0050, text=»SYA250 CM UWB,A13 INDICATE CWB«, t00=0x00f7, t01=0x00c8}
0x182b2…182de Head {h00=0x0028, h01=0x0050, text=» ADKL A8,2 STEP TO NEXT T:A ADDRESS «, t00=0x00f7, t01=0x00ee}
0x182de…182f8 Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x00f7, t01=0x011a}
0x182f8…1831e Head {h00=0x0022, h01=0x0050, text=» RF(E) SYA270 ALL T:A'S DONE! «, t00=0x00f7, t01=0x0134}
0x1831e…18344 Head {h00=0x0022, h01=0x0050, text=» CALL GETTAB GET TTAB-ADDRESS «, t00=0x00f7, t01=0x015a}
0x18344…18366 Head {h00=0x001e, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE«, t00=0x00f7, t01=0x0180}
0x18366…1838c Head {h00=0x0022, h01=0x0050, text=»* FILL MM-TABLE ADDRESS TABLE «, t00=0x00f8, t01=0x0012}
0x1838c…18394 Head {h00=0x0004, h01=0x0050, t00=0x00f8, t01=0x0038}
0x18394…183ae Head {h00=0x0016, h01=0x0050, text=» LD A1,SAVE06,A13 «, t00=0x00f8, t01=0x0040}
0x183ae…183d8 Head {h00=0x0026, h01=0x0050, text=» ADK A1,2 INCREMENT TABLE POINTER «, t00=0x00f8, t01=0x005a}
0x183d8…183fa Head {h00=0x001e, h01=0x0050, text=» ST A1,SAVE06,A13 RESTORE «, t00=0x00f8, t01=0x0084}
0x183fa…18418 Head {h00=0x001a, h01=0x0050, text=» STR A2,A1 FILL TABLE «, t00=0x00f8, t01=0x00a6}
0x18418…18444 Head {h00=0x0028, h01=0x0050, text=» CALL T:DADD GET T:D ADDRESS TO A12 «, t00=0x00f8, t01=0x00c4}
0x18444…1847c Head {h00=0x0034, h01=0x0050, text=» ST A12,T:DSAV,A9 SAVE 'OLD' T:D-ADDRESS IN TTAB«, t00=0x00f8, t01=0x00f0}
0x1847c…18484 Head {h00=0x0004, h01=0x0050, t00=0x00f8, t01=0x0128}
0x18484…184a6 Head {h00=0x001e, h01=0x0050, text=»* CALCULATE LENGTH OF T:D «, t00=0x00f8, t01=0x0130}
0x184a6…184ae Head {h00=0x0004, h01=0x0050, t00=0x00f8, t01=0x0152}
0x184ae…184e4 Head {h00=0x0032, h01=0x0050, text=» EL A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB«, t00=0x00f8, t01=0x015a}
0x184e4…184f6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00f8, t01=0x0190}
0x184f6…1851a Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE EVEN ADDRESS «, t00=0x00f9, t01=0x0012}
0x1851a…18546 Head {h00=0x0028, h01=0x0050, text=» ADK A1,DWBFST+4 ADD DISPL. TO FIRST«, t00=0x00f9, t01=0x0036}
0x18546…18576 Head {h00=0x002c, h01=0x0050, text=» LDR A3,A1 GET NUMB. OF START-POINTS... «, t00=0x00f9, t01=0x0062}
0x18576…1858c Head {h00=0x0012, h01=0x0050, text=» ADR A3,A12 . «, t00=0x00f9, t01=0x0092}
0x1858c…185a0 Head {h00=0x0010, h01=0x0050, text=» ELR A3,A3 .«, t00=0x00f9, t01=0x00a8}
0x185a0…185d4 Head {h00=0x0030, h01=0x0050, text=» LDK A2,STPREC GET STARTPOINTS RECORD LENGTH«, t00=0x00f9, t01=0x00bc}
0x185d4…185f4 Head {h00=0x001c, h01=0x0050, text=» CALL MULT AND MULTIPLY «, t00=0x00f9, t01=0x00f0}
0x185f4…18614 Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 'NUMBER-WORD' «, t00=0x00f9, t01=0x0110}
0x18614…18630 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A1 =>LENGTH «, t00=0x00f9, t01=0x0130}
0x18630…18650 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A12 FROM-ADDRESS«, t00=0x00f9, t01=0x014c}
0x18650…1866e Head {h00=0x001a, h01=0x0050, text=» CALL MOVING MOVE T:D «, t00=0x00f9, t01=0x016c}
0x1866e…18690 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A ADDRESS«, t00=0x00f9, t01=0x018a}
0x18690…186be Head {h00=0x002a, h01=0x0050, text=» ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS «, t00=0x00fa, t01=0x001c}
0x186be…186e4 Head {h00=0x0022, h01=0x0050, text=» EL A7,CWBMSK,A12 GET CWBMASK «, t00=0x00fa, t01=0x004a}
0x186e4…186f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fa, t01=0x0070}
0x186f0…18706 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00fa, t01=0x007c}
0x18706…1871a Head {h00=0x0010, h01=0x0050, text=» CALL MOVCLA«, t00=0x00fa, t01=0x0092}
0x1871a…18728 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fa, t01=0x00a6}
0x18728…18734 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fa, t01=0x00b4}
0x18734…18740 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fa, t01=0x00c0}
0x18740…18762 Head {h00=0x001e, h01=0x0050, text=»* TASK CLASS DATA UWB'S * «, t00=0x00fa, t01=0x00cc}
0x18762…18784 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x00fa, t01=0x00ee}
0x18784…187ae Head {h00=0x0026, h01=0x0050, text=» IM UWB,A13 INDICATE UWB SCANNING «, t00=0x00fa, t01=0x0110}
0x187ae…187ca Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00fa, t01=0x013a}
0x187ca…187f0 Head {h00=0x0022, h01=0x0050, text=» LD A7,UWBMSK,A12 GET UWBMASK «, t00=0x00fa, t01=0x0156}
0x187f0…187fc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fa, t01=0x017c}
0x187fc…18818 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00fa, t01=0x0188}
0x18818…18832 Head {h00=0x0016, h01=0x0050, text=» EL A7,UWBMSK,A12 «, t00=0x00fb, t01=0x0014}
0x18832…1883e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fb, t01=0x002e}
0x1883e…18854 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00fb, t01=0x003a}
0x18854…18868 Head {h00=0x0010, h01=0x0050, text=» CALL MOVCLA«, t00=0x00fb, t01=0x0050}
0x18868…18876 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fb, t01=0x0064}
0x18876…18882 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fb, t01=0x0072}
0x18882…1888e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fb, t01=0x007e}
0x1888e…188b4 Head {h00=0x0022, h01=0x0050, text=»* MOVE DT:S OF SWB'S & TWB'S *«, t00=0x00fb, t01=0x008a}
0x188b4…188da Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x00fb, t01=0x00b0}
0x188da…188e2 Head {h00=0x0004, h01=0x0050, t00=0x00fb, t01=0x00d6}
0x188e2…188f6 Head {h00=0x0010, h01=0x0050, text=»SYA260 EQU *«, t00=0x00fb, t01=0x00de}
0x188f6…18912 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00fb, t01=0x00f2}
0x18912…1892c Head {h00=0x0016, h01=0x0050, text=» LD A7,SWBMSK,A12 «, t00=0x00fb, t01=0x010e}
0x1892c…18946 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA265 NONE«, t00=0x00fb, t01=0x0128}
0x18946…1895a Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00fb, t01=0x0142}
0x1895a…1897a Head {h00=0x001c, h01=0x0050, text=»SYA265 LD A7,TWBMSK,A12 «, t00=0x00fb, t01=0x0156}
0x1897a…18986 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fb, t01=0x0176}
0x18986…189a2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00fb, t01=0x0182}
0x189a2…189bc Head {h00=0x0016, h01=0x0050, text=» EL A7,SWBMSK,A12 «, t00=0x00fc, t01=0x000e}
0x189bc…189d6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA265 NONE«, t00=0x00fc, t01=0x0028}
0x189d6…189ea Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00fc, t01=0x0042}
0x189ea…18a0a Head {h00=0x001c, h01=0x0050, text=»SYA265 EL A7,TWBMSK,A12 «, t00=0x00fc, t01=0x0056}
0x18a0a…18a16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fc, t01=0x0076}
0x18a16…18a2c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00fc, t01=0x0082}
0x18a2c…18a42 Head {h00=0x0012, h01=0x0050, text=» RB(Z) SYA250 «, t00=0x00fc, t01=0x0098}
0x18a42…18a56 Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00fc, t01=0x00ae}
0x18a56…18a68 Head {h00=0x000e, h01=0x0050, text=» RB SYA250«, t00=0x00fc, t01=0x00c2}
0x18a68…18a74 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fc, t01=0x00d4}
0x18a74…18a8c Head {h00=0x0014, h01=0x0050, text=»SYA270 RF PRODAT«, t00=0x00fc, t01=0x00e0}
0x18a8c…18a9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fc, t01=0x00f8}
0x18a9a…18aa6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fc, t01=0x0106}
0x18aa6…18ab2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fc, t01=0x0112}
0x18ab2…18aea Head {h00=0x0034, h01=0x0050, text=»** S K R I T T ** «, t00=0x00fc, t01=0x011e}
0x18aea…18b22 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x00fc, t01=0x0156}
0x18b22…18b5a Head {h00=0x0034, h01=0x0050, text=»** MOVE D.T ** «, t00=0x00fc, t01=0x018e}
0x18b5a…18b92 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x00fd, t01=0x0036}
0x18b92…18bca Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00fd, t01=0x006e}
0x18bca…18bde Head {h00=0x0010, h01=0x0050, text=»SKRITT EQU *«, t00=0x00fd, t01=0x00a6}
0x18bde…18bf2 Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00fd, t01=0x00ba}
0x18bf2…18c08 Head {h00=0x0012, h01=0x0050, text=»NO RF(NZ) NES «, t00=0x00fd, t01=0x00ce}
0x18c08…18c18 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00fd, t01=0x00e4}
0x18c18…18c2e Head {h00=0x0012, h01=0x0050, text=»NES CALL GETWB«, t00=0x00fd, t01=0x00f4}
0x18c2e…18c42 Head {h00=0x0010, h01=0x0050, text=» CALL MOVDT «, t00=0x00fd, t01=0x010a}
0x18c42…18c74 Head {h00=0x002e, h01=0x0050, text=» CM NEWAD2,A13 NO NEW W.B.-ADDRESS (YET!) «, t00=0x00fd, t01=0x011e}
0x18c74…18c88 Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00fd, t01=0x0150}
0x18c88…18c9c Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x00fd, t01=0x0164}
0x18c9c…18caa Head {h00=0x000a, h01=0x0050, text=» RB NO«, t00=0x00fd, t01=0x0178}
0x18caa…18cb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fd, t01=0x0186}
0x18cb8…18cc4 (254, 0, 400) Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fe, t01=0x0004}
0x18cc4…18cee Head {h00=0x0026, h01=0x0050, text=»* BUILD TASKDATA PROTOTYPE AREA * «, t00=0x00fe, t01=0x0010}
0x18cee…18d18 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00fe, t01=0x003a}
0x18d18…18d2c Head {h00=0x0010, h01=0x0050, text=»PRODAT EQU *«, t00=0x00fe, t01=0x0064}
0x18d2c…18d3e Head {h00=0x000e, h01=0x0050, text=» =00001«, t00=0x00fe, t01=0x0078}
0x18d3e…18d6e Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE02,A13 BUGGER TASK INCLUDED? «, t00=0x00fe, t01=0x008a}
0x18d6e…18d88 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA275 NO! «, t00=0x00fe, t01=0x00ba}
0x18d88…18dbe Head {h00=0x0032, h01=0x0050, text=» CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 «, t00=0x00fe, t01=0x00d4}
0x18dbe…18de8 Head {h00=0x0026, h01=0x0050, text=» CM TTB:PP,A2 CLEAR TCL SAVE AREA «, t00=0x00fe, t01=0x010a}
0x18de8…18e0c Head {h00=0x0020, h01=0x0050, text=» LDR A8,A2 SAVE TTAB-ADDRESS«, t00=0x00fe, t01=0x0134}
0x18e0c…18e18 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fe, t01=0x0158}
0x18e18…18e34 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00fe, t01=0x0164}
0x18e34…18e58 Head {h00=0x0020, h01=0x0050, text=» CALL MOVMMT MOVE MMU TABLE «, t00=0x00fe, t01=0x0180}
0x18e58…18e64 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ff, t01=0x0014}
0x18e64…18e7a Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ff, t01=0x0020}
0x18e7a…18eaa Head {h00=0x002c, h01=0x0050, text=» LDK A3,2 RESERV ONE WORD FOR TRABUG-T:A«, t00=0x00ff, t01=0x0036}
0x18eaa…18ec8 Head {h00=0x001a, h01=0x0050, text=» CALL MOVING GET P:BAS«, t00=0x00ff, t01=0x0066}
0x18ec8…18ee4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ff, t01=0x0084}
0x18ee4…18f0e Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTLAC GET START OF P:MTAB «, t00=0x00ff, t01=0x00a0}
0x18f0e…18f30 Head {h00=0x001e, h01=0x0050, text=» LD A1,P:BAS,A1 GET P:BAS «, t00=0x00ff, t01=0x00ca}
0x18f30…18f58 Head {h00=0x0024, h01=0x0050, text=» STR A1,A2 SAVE IN TRABUG'S T:A «, t00=0x00ff, t01=0x00ec}
0x18f58…18f7e Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00ff, t01=0x0114}
0x18f7e…18f9c Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00ff, t01=0x013a}
0x18f9c…18fb4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) SYA272 NO«, t00=0x00ff, t01=0x0158}
0x18fb4…18fc0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ff, t01=0x0170}
0x18fc0…18fd6 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ff, t01=0x017c}
0x18fd6…1900a (256, 0, 398) Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:CB,A8 SAVE ADDRESS TO CSB-POINTER«, t00=0x0100, t01=0x0004}
0x1900a…1901e Head {h00=0x0010, h01=0x0050, text=»SYA272 EQU *«, t00=0x0100, t01=0x0038}
0x1901e…19054 Head {h00=0x0032, h01=0x0050, text=» SUKL A2,CSB ADD DISPL. TO CURRENT SEGMENT BAE«, t00=0x0100, t01=0x004c}
0x19054…19078 Head {h00=0x0020, h01=0x0050, text=» ST A2,TTB:SA+26,A8 SAVE A13«, t00=0x0100, t01=0x0082}
0x19078…19094 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0100, t01=0x00a6}
0x19094…190be Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTLAC GET START OF P:MTAB «, t00=0x0100, t01=0x00c2}
0x190be…190e6 Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 LOAD CORRECT TABLE«, t00=0x0100, t01=0x00ec}
0x190e6…19108 Head {h00=0x001e, h01=0x0050, text=» EL A1,P:BAS,A1 GET P:BAS «, t00=0x0100, t01=0x0114}
0x19108…19134 Head {h00=0x0028, h01=0x0050, text=» TL MMBEG,A8 LOAD TRABUG'S MMU-TABLE«, t00=0x0100, t01=0x0136}
0x19134…19164 Head {h00=0x002c, h01=0x0050, text=» ES A1,CSB,A2 STORE CURRENT SEGMENT BASE«, t00=0x0100, t01=0x0162}
0x19164…1918e (257, 0, 400) Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD DDIV TABLE «, t00=0x0101, t01=0x0004}
0x1918e…191a4 Head {h00=0x0012, h01=0x0050, text=» XIF =00001 «, t00=0x0101, t01=0x002e}
0x191a4…191c2 Head {h00=0x001a, h01=0x0050, text=» IFF CREDIT=0 =00001 «, t00=0x0101, t01=0x0044}
0x191c2…191d6 Head {h00=0x0010, h01=0x0050, text=»SYA275 EQU *«, t00=0x0101, t01=0x0062}
0x191d6…191e8 Head {h00=0x000e, h01=0x0050, text=» =00001«, t00=0x0101, t01=0x0076}
0x191e8…191fa Head {h00=0x000e, h01=0x0050, text=» =00001«, t00=0x0101, t01=0x0088}
0x191fa…1922e Head {h00=0x0030, h01=0x0050, text=» IM SWITCH,A13 INDICATE: -NO MORE D.T. MOVE!«, t00=0x0101, t01=0x009a}
0x1922e…19256 Head {h00=0x0024, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB ADDRESS«, t00=0x0101, t01=0x00ce}
0x19256…1926e Head {h00=0x0014, h01=0x0050, text=»SYA280 ADKL A8,2«, t00=0x0101, t01=0x00f6}
0x1926e…19288 Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x0101, t01=0x010e}
0x19288…192a6 Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA290 ALL DONE«, t00=0x0101, t01=0x0128}
0x192a6…192c2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0101, t01=0x0146}
0x192c2…192e8 Head {h00=0x0022, h01=0x0050, text=» LDR* A12,A8 GET T:D ADDRESS..«, t00=0x0101, t01=0x0162}
0x192e8…19304 Head {h00=0x0018, h01=0x0050, text=» LD A12,T:DAD,A12 . «, t00=0x0101, t01=0x0188}
0x19304…19338 Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x0102, t01=0x0014}
0x19338…19344 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0102, t01=0x0048}
0x19344…1936a Head {h00=0x0022, h01=0x0050, text=»* CALCULATE LENGTH OF DSCB'S *«, t00=0x0102, t01=0x0054}
0x1936a…19390 Head {h00=0x0022, h01=0x0050, text=»*** ***«, t00=0x0102, t01=0x007a}
0x19390…1939c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0102, t01=0x00a0}
0x1939c…193c0 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0102, t01=0x00ac}
0x193c0…193ea Head {h00=0x0026, h01=0x0050, text=» LD A3,DATLEN,A12 A12=T:D-ADDRESS «, t00=0x0102, t01=0x00d0}
0x193ea…1940c Head {h00=0x001e, h01=0x0050, text=» LDK A2,DSCBL DSCB-LENGTH «, t00=0x0102, t01=0x00fa}
0x1940c…19438 Head {h00=0x0028, h01=0x0050, text=» CALL MULT A3() X (A2) RESULT IN A3 «, t00=0x0102, t01=0x011c}
0x19438…19462 Head {h00=0x0026, h01=0x0050, text=» ST A3,CSN,A1 SAVE LENG OF DSCB'S «, t00=0x0102, t01=0x0148}
0x19462…1948e Head {h00=0x0028, h01=0x0050, text=» LD A2,FCD,A12 GET FCB-DISPLACEMENT «, t00=0x0102, t01=0x0172}
0x1948e…194b0 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SYA285 FCB PRESENT«, t00=0x0103, t01=0x000e}
0x194b0…194da Head {h00=0x0026, h01=0x0050, text=» SUR A2,A3 MOVD30E A3(DSCB-LENGTH)«, t00=0x0103, t01=0x0030}
0x194da…1950a Head {h00=0x002c, h01=0x0050, text=» ADKL A2,T:ASTA INCREMENT TO FIRST WORD «, t00=0x0103, t01=0x005a}
0x1950a…19544 Head {h00=0x0036, h01=0x0050, text=»SYA285 ST A2,CIA,A1 SAVE DISPLACEMENT TO T:A-START«, t00=0x0103, t01=0x008a}
0x19544…1956a Head {h00=0x0022, h01=0x0050, text=» LD A2,STKB,A1 GET STACK SIZE «, t00=0x0103, t01=0x00c4}
0x1956a…19592 Head {h00=0x0024, h01=0x0050, text=» ST A2,CSE,A1 AND SAVE TEMPORARY«, t00=0x0103, t01=0x00ea}
0x19592…195c0 Head {h00=0x002a, h01=0x0050, text=» LD A2,SCTLAC GET START OF COMMON PART«, t00=0x0103, t01=0x0112}
0x195c0…195e2 Head {h00=0x001e, h01=0x0050, text=» LD A2,P:BAS,A2 GET P:BAS «, t00=0x0103, t01=0x0140}
0x195e2…19600 Head {h00=0x001a, h01=0x0050, text=» ST A2,CSB,A1 AND SAVE«, t00=0x0103, t01=0x0162}
0x19600…19626 Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x0103, t01=0x0180}
0x19626…19644 Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x0104, t01=0x0016}
0x19644…19672 Head {h00=0x002a, h01=0x0050, text=» STR A2,A8 STORE NEW ADDRESS IN T:ATAB«, t00=0x0104, t01=0x0034}
0x19672…1967e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0104, t01=0x0062}
0x1967e…1969a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0104, t01=0x006e}
0x1969a…196c8 Head {h00=0x002a, h01=0x0050, text=» CALL GETTAB SET CORRECT TTAB-ADDRESS «, t00=0x0104, t01=0x008a}
0x196c8…196f8 Head {h00=0x002c, h01=0x0050, text=» LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS «, t00=0x0104, t01=0x00b8}
0x196f8…19700 Head {h00=0x0004, h01=0x0050, t00=0x0104, t01=0x00e8}
0x19700…19736 Head {h00=0x0032, h01=0x0050, text=»* GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE «, t00=0x0104, t01=0x00f0}
0x19736…1973e Head {h00=0x0004, h01=0x0050, t00=0x0104, t01=0x0126}
0x1973e…1976a Head {h00=0x0028, h01=0x0050, text=» TL MMBEG,A2 LOAD CLASS LOCAL TABLE «, t00=0x0104, t01=0x012e}
0x1976a…19798 Head {h00=0x002a, h01=0x0050, text=» LDKL A3,MMTAB GET WORK TABLE ADDRESS «, t00=0x0104, t01=0x015a}
0x19798…197ac Head {h00=0x0010, h01=0x0050, text=» ADR A3,A13 «, t00=0x0104, t01=0x0188}
0x197ac…197d4 Head {h00=0x0024, h01=0x0050, text=» TSR A3 STORE TABLE IN WORK-AREA«, t00=0x0105, t01=0x000c}
0x197d4…197fc Head {h00=0x0024, h01=0x0050, text=» TL MMDDIV,A13 RELOAD DDIV TABLE«, t00=0x0105, t01=0x0034}
0x197fc…1981a Head {h00=0x001a, h01=0x0050, text=» CALL MMENT GET ENTRY «, t00=0x0105, t01=0x005c}
0x1981a…19840 Head {h00=0x0022, h01=0x0050, text=» ST A3,T:DSAV,A2 SAVE IN TTAB «, t00=0x0105, t01=0x007a}
0x19840…19874 Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x0105, t01=0x00a0}
0x19874…1989a Head {h00=0x0022, h01=0x0050, text=»* CALCULATE LENGTH OF DSCB'S *«, t00=0x0105, t01=0x00d4}
0x1989a…198c0 Head {h00=0x0022, h01=0x0050, text=»*** ***«, t00=0x0105, t01=0x00fa}
0x198c0…198cc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0105, t01=0x0120}
0x198cc…198ee Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0105, t01=0x012c}
0x198ee…19918 Head {h00=0x0026, h01=0x0050, text=» EL A3,DATLEN,A12 A12=T:D-ADDRESS «, t00=0x0105, t01=0x014e}
0x19918…1993a Head {h00=0x001e, h01=0x0050, text=» LDK A2,DSCBL DSCB-LENGTH «, t00=0x0105, t01=0x0178}
0x1993a…19966 Head {h00=0x0028, h01=0x0050, text=» CALL MULT A3() X (A2) RESULT IN A3 «, t00=0x0106, t01=0x000a}
0x19966…19990 Head {h00=0x0026, h01=0x0050, text=» ES A3,CSN,A1 SAVE LENG OF DSCB'S «, t00=0x0106, t01=0x0036}
0x19990…199bc Head {h00=0x0028, h01=0x0050, text=» EL A2,FCD,A12 GET FCB-DISPLACEMENT «, t00=0x0106, t01=0x0060}
0x199bc…199de Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SYA285 FCB PRESENT«, t00=0x0106, t01=0x008c}
0x199de…19a08 Head {h00=0x0026, h01=0x0050, text=» SUR A2,A3 MOVD30E A3(DSCB-LENGTH)«, t00=0x0106, t01=0x00ae}
0x19a08…19a38 Head {h00=0x002c, h01=0x0050, text=» ADKL A2,T:ASTA INCREMENT TO FIRST WORD «, t00=0x0106, t01=0x00d8}
0x19a38…19a72 Head {h00=0x0036, h01=0x0050, text=»SYA285 ES A2,CIA,A1 SAVE DISPLACEMENT TO T:A-ESART«, t00=0x0106, t01=0x0108}
0x19a72…19a98 Head {h00=0x0022, h01=0x0050, text=» EL A2,STKB,A1 GET STACK SIZE «, t00=0x0106, t01=0x0142}
0x19a98…19ac2 Head {h00=0x0026, h01=0x0050, text=» ES A2,CSE,A1 AND SAVE (TEMPORARY)«, t00=0x0106, t01=0x0168}
0x19ac2…19aec (263, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LD A2,SCTLAC GET START OF P:MTAB «, t00=0x0107, t01=0x0004}
0x19aec…19b14 Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 LOAD CORRECT TABLE«, t00=0x0107, t01=0x002e}
0x19b14…19b36 Head {h00=0x001e, h01=0x0050, text=» EL A2,P:BAS,A2 GET P:BAS «, t00=0x0107, t01=0x0056}
0x19b36…19b60 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD DDIV TABLE «, t00=0x0107, t01=0x0078}
0x19b60…19b7e Head {h00=0x001a, h01=0x0050, text=» ES A2,CSB,A1 AND SAVE«, t00=0x0107, t01=0x00a2}
0x19b7e…19ba4 Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x0107, t01=0x00c0}
0x19ba4…19bc2 Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x0107, t01=0x00e6}
0x19bc2…19bf0 Head {h00=0x002a, h01=0x0050, text=» ESR A2,A8 STORE NEW ADDRESS IN T:ATAB«, t00=0x0107, t01=0x0104}
0x19bf0…19bfc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0107, t01=0x0132}
0x19bfc…19c12 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0107, t01=0x013e}
0x19c12…19c2a Head {h00=0x0014, h01=0x0050, text=» RB SYA280 NEXT «, t00=0x0107, t01=0x0154}
0x19c2a…19c38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0107, t01=0x016c}
0x19c38…19c4c Head {h00=0x0010, h01=0x0050, text=»SYA290 EQU *«, t00=0x0107, t01=0x017a}
0x19c4c…19c84 Head {h00=0x0034, h01=0x0050, text=» IM FLAG,A13 INDICATE REAL DATA-PART PROCESSING «, t00=0x0107, t01=0x018e}
0x19c84…19cb4 Head {h00=0x002c, h01=0x0050, text=»* INCLUDE DDIV AND PART 2.A IN FREE AREA«, t00=0x0108, t01=0x0036}
0x19cb4…19cbc Head {h00=0x0004, h01=0x0050, t00=0x0108, t01=0x0066}
0x19cbc…19cee Head {h00=0x002e, h01=0x0050, text=» LDKL A2,PART2A NEW (RELATIVE) END ADDRESS«, t00=0x0108, t01=0x006e}
0x19cee…19d0e Head {h00=0x001c, h01=0x0050, text=» ADR A2,A13 ABSOLUT DITO«, t00=0x0108, t01=0x00a0}
0x19d0e…19d2a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0108, t01=0x00c0}
0x19d2a…19d3c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0108, t01=0x00dc}
0x19d3c…19d52 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/F000«, t00=0x0108, t01=0x00ee}
0x19d52…19d7a Head {h00=0x0024, h01=0x0050, text=» SRL A3,2 GET NEW PHYSICALL PAGE«, t00=0x0108, t01=0x0104}
0x19d7a…19d98 Head {h00=0x001a, h01=0x0050, text=» ST A3,FSTPAG,A13 SAVE«, t00=0x0108, t01=0x012c}
0x19d98…19dc4 Head {h00=0x0028, h01=0x0050, text=» ANKL A2,/FFF GET NEW PAGE INCREMENT«, t00=0x0108, t01=0x014a}
0x19dc4…19de2 Head {h00=0x001a, h01=0x0050, text=» ST A2,FSTADR,A13 SAVE«, t00=0x0108, t01=0x0176}
0x19de2…19df8 (265, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* MOVE T:ATAB «, t00=0x0109, t01=0x0004}
0x19df8…19e00 Head {h00=0x0004, h01=0x0050, t00=0x0109, t01=0x001a}
0x19e00…19e2e Head {h00=0x002a, h01=0x0050, text=» LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS«, t00=0x0109, t01=0x0022}
0x19e2e…19e3a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0109, t01=0x0050}
0x19e3a…19e56 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0109, t01=0x005c}
0x19e56…19e84 Head {h00=0x002a, h01=0x0050, text=» ST A2,DATEND,A13 SAVE NEW END ADDRESS«, t00=0x0109, t01=0x0078}
0x19e84…19e9a Head {h00=0x0012, h01=0x0050, text=»* MOVE T:ATAB «, t00=0x0109, t01=0x00a6}
0x19e9a…19ea2 Head {h00=0x0004, h01=0x0050, t00=0x0109, t01=0x00bc}
0x19ea2…19ed4 Head {h00=0x002e, h01=0x0050, text=» LD A2,T:ATNW,A13 GET REAL T:A-TAB ADDRESS«, t00=0x0109, t01=0x00c4}
0x19ed4…19ef4 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A2 REAL LENGTH «, t00=0x0109, t01=0x00f6}
0x19ef4…19f1c Head {h00=0x0024, h01=0x0050, text=» ADR A2,A1 END OF TABLE ADDRESS «, t00=0x0109, t01=0x0116}
0x19f1c…19f3a Head {h00=0x001a, h01=0x0050, text=» ST A2,ENDADD,A13 SAVE«, t00=0x0109, t01=0x013e}
0x19f3a…19f64 Head {h00=0x0026, h01=0x0050, text=» LD A1,T:ATOD,A13 GET FROM-ADDRESS«, t00=0x0109, t01=0x015c}
0x19f64…19f84 Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A1 MOVE-LENGTH «, t00=0x0109, t01=0x0186}
0x19f84…19fa2 Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x010a, t01=0x0016}
0x19fa2…19fc0 Head {h00=0x001a, h01=0x0050, text=» ST A2,T:ATOD,A13 SAVE«, t00=0x010a, t01=0x0034}
0x19fc0…19fd2 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x010a, t01=0x0052}
0x19fd2…19fde Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010a, t01=0x0064}
0x19fde…19ffa Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x010a, t01=0x0070}
0x19ffa…1a022 Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 LOAD CORRECT TABLE«, t00=0x010a, t01=0x008c}
0x1a022…1a04c Head {h00=0x0026, h01=0x0050, text=» ELR A1,A2 GET REAL T:ATAB LENGTH «, t00=0x010a, t01=0x00b4}
0x1a04c…1a070 Head {h00=0x0020, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE«, t00=0x010a, t01=0x00de}
0x1a070…1a08e Head {h00=0x001a, h01=0x0050, text=» ADR A2,A1 END ADDRESS«, t00=0x010a, t01=0x0102}
0x1a08e…1a0c6 Head {h00=0x0034, h01=0x0050, text=» ST A2,ENDADD,A13 SAVE 'END-OF-T:ATAB-CONDITION'«, t00=0x010a, t01=0x0120}
0x1a0c6…1a0f4 Head {h00=0x002a, h01=0x0050, text=» LD A1,T:ATOD,A13 GET PROTOTYP T:ATAB «, t00=0x010a, t01=0x0158}
0x1a0f4…1a112 Head {h00=0x001a, h01=0x0050, text=» ELR A3,A1 GET LENGTH «, t00=0x010a, t01=0x0186}
0x1a112…1a130 Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x010b, t01=0x0014}
0x1a130…1a14e Head {h00=0x001a, h01=0x0050, text=» ST A2,T:ATOD,A13 SAVE«, t00=0x010b, t01=0x0032}
0x1a14e…1a162 Head {h00=0x0010, h01=0x0050, text=» CALL XMOVE «, t00=0x010b, t01=0x0050}
0x1a162…1a16e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010b, t01=0x0064}
0x1a16e…1a184 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x010b, t01=0x0070}
0x1a184…1a18c Head {h00=0x0004, h01=0x0050, t00=0x010b, t01=0x0086}
0x1a18c…1a1ac Head {h00=0x001c, h01=0x0050, text=»* CONTINUE IN PART 2.B *«, t00=0x010b, t01=0x008e}
0x1a1ac…1a1b4 Head {h00=0x0004, h01=0x0050, t00=0x010b, t01=0x00ae}
0x1a1b4…1a1e2 Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PART2B RELATIVE START ADDRESS«, t00=0x010b, t01=0x00b6}
0x1a1e2…1a206 Head {h00=0x0020, h01=0x0050, text=» ADR A5,A13 ADD BASE ADDRESS«, t00=0x010b, t01=0x00e4}
0x1a206…1a216 Head {h00=0x000c, h01=0x0050, text=» ABR A5 «, t00=0x010b, t01=0x0108}
0x1a216…1a240 Head {h00=0x0026, h01=0x0050, text=»LENGT2 EQU *-REL LENGTH OF PART 2 «, t00=0x010b, t01=0x0118}
0x1a240…1a24e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010b, t01=0x0142}
0x1a24e…1a25a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010b, t01=0x0150}
0x1a25a…1a266 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010b, t01=0x015c}
0x1a266…1a29c Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x010b, t01=0x0168}
0x1a29c…1a2d2 Head {h00=0x0032, h01=0x0050, text=»******* ******* «, t00=0x010c, t01=0x000e}
0x1a2d2…1a308 Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x010c, t01=0x0044}
0x1a308…1a33e Head {h00=0x0032, h01=0x0050, text=»* SYSLOAD PART 1 * «, t00=0x010c, t01=0x007a}
0x1a33e…1a374 Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x010c, t01=0x00b0}
0x1a374…1a3aa Head {h00=0x0032, h01=0x0050, text=»***** ***** «, t00=0x010c, t01=0x00e6}
0x1a3aa…1a3e0 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x010c, t01=0x011c}
0x1a3e0…1a3ec Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010c, t01=0x0152}
0x1a3ec…1a422 Head {h00=0x0032, h01=0x0050, text=»* READ CONFIGURATION FILE & BUILD * «, t00=0x010c, t01=0x015e}
0x1a422…1a458 (269, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* SHADOW-TABLES * «, t00=0x010d, t01=0x0004}
0x1a458…1a48e Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x010d, t01=0x003a}
0x1a48e…1a4c4 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x010d, t01=0x0070}
0x1a4c4…1a4d0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010d, t01=0x00a6}
0x1a4d0…1a4dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010d, t01=0x00b2}
0x1a4dc…1a4e8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010d, t01=0x00be}
0x1a4e8…1a4f4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010d, t01=0x00ca}
0x1a4f4…1a522 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x010d, t01=0x00d6}
0x1a522…1a550 Head {h00=0x002a, h01=0x0050, text=»*** *** «, t00=0x010d, t01=0x0104}
0x1a550…1a57e Head {h00=0x002a, h01=0x0050, text=»** S U B R O U T I N E S ** «, t00=0x010d, t01=0x0132}
0x1a57e…1a5aa Head {h00=0x0028, h01=0x0050, text=»** -USED IN THIS PART ONLY *«, t00=0x010d, t01=0x0160}
0x1a5aa…1a5d8 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x010d, t01=0x018c}
0x1a5d8…1a5e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x002a}
0x1a5e6…1a5f2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010e, t01=0x0038}
0x1a5f2…1a5fe Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010e, t01=0x0044}
0x1a5fe…1a638 Head {h00=0x0036, h01=0x0050, text=»** C O N V R T **«, t00=0x010e, t01=0x0050}
0x1a638…1a672 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x010e, t01=0x008a}
0x1a672…1a6ac Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x010e, t01=0x00c4}
0x1a6ac…1a6e6 Head {h00=0x0036, h01=0x0050, text=»** CONVERSION OF TWO ASCII-DIGITS TO BINARY **«, t00=0x010e, t01=0x00fe}
0x1a6e6…1a720 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x010e, t01=0x0138}
0x1a720…1a75a Head {h00=0x0036, h01=0x0050, text=»** INPUT : A5=ASCII DIGITS **«, t00=0x010e, t01=0x0172}
0x1a75a…1a794 Head {h00=0x0036, h01=0x0050, text=»** OUTPUT: A1=BINARY RESULT **«, t00=0x010f, t01=0x001c}
0x1a794…1a7ce Head {h00=0x0036, h01=0x0050, text=»** WORK.REGS: A3,A2 **«, t00=0x010f, t01=0x0056}
0x1a7ce…1a808 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x010f, t01=0x0090}
0x1a808…1a814 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010f, t01=0x00ca}
0x1a814…1a828 Head {h00=0x0010, h01=0x0050, text=»CONVRT EQU *«, t00=0x010f, t01=0x00d6}
0x1a828…1a84a Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 CLEAR RESULT REG«, t00=0x010f, t01=0x00ea}
0x1a84a…1a85c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x010f, t01=0x010c}
0x1a85c…1a878 Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 GET TEN'S «, t00=0x010f, t01=0x011e}
0x1a878…1a88c Head {h00=0x0010, h01=0x0050, text=» SUK A3,/30 «, t00=0x010f, t01=0x013a}
0x1a88c…1a89e Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x010f, t01=0x014e}
0x1a89e…1a8bc Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 MULT BY 10 «, t00=0x010f, t01=0x0160}
0x1a8bc…1a8d0 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A1 .«, t00=0x010f, t01=0x017e}
0x1a8d0…1a8e4 (272, 0, 400) Head {h00=0x0010, h01=0x0050, text=» SLL A2,3 . «, t00=0x0110, t01=0x0004}
0x1a8e4…1a8fc Head {h00=0x0014, h01=0x0050, text=» ADR A1,A2 .... «, t00=0x0110, t01=0x0018}
0x1a8fc…1a90e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x0110, t01=0x0030}
0x1a90e…1a92a Head {h00=0x0018, h01=0x0050, text=» ANK A3,/F GET ONE'S«, t00=0x0110, t01=0x0042}
0x1a92a…1a93c Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0110, t01=0x005e}
0x1a93c…1a94c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0110, t01=0x0070}
0x1a94c…1a95a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0110, t01=0x0080}
0x1a95a…1a962 Head {h00=0x0004, h01=0x0050, t00=0x0110, t01=0x008e}
0x1a962…1a99c Head {h00=0x0036, h01=0x0050, text=»** N X T B L K **«, t00=0x0110, t01=0x0096}
0x1a99c…1a9d6 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0110, t01=0x00d0}
0x1a9d6…1aa10 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0110, t01=0x010a}
0x1aa10…1aa4a Head {h00=0x0036, h01=0x0050, text=»** SKIP TO NEXT BLOCK IN CONFIGURATION FILE **«, t00=0x0110, t01=0x0144}
0x1aa4a…1aa84 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0110, t01=0x017e}
0x1aa84…1aabe Head {h00=0x0036, h01=0x0050, text=»** INPUT: A11=ADDRESS TO CURRENT BLOCK-START **«, t00=0x0111, t01=0x0028}
0x1aabe…1aaf8 Head {h00=0x0036, h01=0x0050, text=»** OUTPUT:A11=ADDRESS TO NEXT BLOCK **«, t00=0x0111, t01=0x0062}
0x1aaf8…1ab32 Head {h00=0x0036, h01=0x0050, text=»** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE **«, t00=0x0111, t01=0x009c}
0x1ab32…1ab6c Head {h00=0x0036, h01=0x0050, text=»** WORKREGS: A1,A3-A5 **«, t00=0x0111, t01=0x00d6}
0x1ab6c…1aba6 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0111, t01=0x0110}
0x1aba6…1abae Head {h00=0x0004, h01=0x0050, t00=0x0111, t01=0x014a}
0x1abae…1abc2 Head {h00=0x0010, h01=0x0050, text=»NXTBLK EQU *«, t00=0x0111, t01=0x0152}
0x1abc2…1abfc Head {h00=0x0036, h01=0x0050, text=» ADKL A11,TDBNC NUMBER OF TERMINAL DEVICE CLASSES «, t00=0x0111, t01=0x0166}
0x1abfc…1ac32 Head {h00=0x0032, h01=0x0050, text=»NXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK «, t00=0x0112, t01=0x0010}
0x1ac32…1ac46 Head {h00=0x0010, h01=0x0050, text=» LCR A5,A11 «, t00=0x0112, t01=0x0046}
0x1ac46…1ac58 Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0112, t01=0x005a}
0x1ac58…1ac6c Head {h00=0x0010, h01=0x0050, text=» LC A5,1,A11«, t00=0x0112, t01=0x006c}
0x1ac6c…1ac80 Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x0112, t01=0x0080}
0x1ac80…1ac96 Head {h00=0x0012, h01=0x0050, text=» LDK A2,TDBREC«, t00=0x0112, t01=0x0094}
0x1ac96…1aca8 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0112, t01=0x00aa}
0x1aca8…1acba Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x0112, t01=0x00bc}
0x1acba…1acce Head {h00=0x0010, h01=0x0050, text=» ADR A11,A3 «, t00=0x0112, t01=0x00ce}
0x1acce…1ace2 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x0112, t01=0x00e2}
0x1ace2…1ad16 Head {h00=0x0030, h01=0x0050, text=» LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES«, t00=0x0112, t01=0x00f6}
0x1ad16…1ad28 Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0112, t01=0x012a}
0x1ad28…1ad3c Head {h00=0x0010, h01=0x0050, text=» LC A5,1,A11«, t00=0x0112, t01=0x013c}
0x1ad3c…1ad50 Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x0112, t01=0x0150}
0x1ad50…1ad80 Head {h00=0x002c, h01=0x0050, text=» LDK A2,SDC SPEC. DEV. CL. RECORD LENGTH«, t00=0x0112, t01=0x0164}
0x1ad80…1ad92 (275, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0113, t01=0x0004}
0x1ad92…1ada4 Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x0113, t01=0x0016}
0x1ada4…1adc6 Head {h00=0x001e, h01=0x0050, text=» ADR A11,A3 A11=NEXT BLOCK«, t00=0x0113, t01=0x0028}
0x1adc6…1adda Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x0113, t01=0x004a}
0x1adda…1ae02 Head {h00=0x0024, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCK TYPE «, t00=0x0113, t01=0x005e}
0x1ae02…1ae12 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0113, t01=0x0086}
0x1ae12…1ae1e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0113, t01=0x0096}
0x1ae1e…1ae2a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0113, t01=0x00a2}
0x1ae2a…1ae66 Head {h00=0x0038, h01=0x0050, text=»** G E T N U M **«, t00=0x0113, t01=0x00ae}
0x1ae66…1aea2 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0113, t01=0x00ea}
0x1aea2…1aede Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0113, t01=0x0126}
0x1aede…1af1a Head {h00=0x0038, h01=0x0050, text=»** CONVERT 3 ASCII-DIGITS TO BINARY **«, t00=0x0113, t01=0x0162}
0x1af1a…1af56 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0114, t01=0x000e}
0x1af56…1af92 Head {h00=0x0038, h01=0x0050, text=»** INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER **«, t00=0x0114, t01=0x004a}
0x1af92…1afce Head {h00=0x0038, h01=0x0050, text=»** OUTPUT: A5=BINARY VALUE **«, t00=0x0114, t01=0x0086}
0x1afce…1b00a Head {h00=0x0038, h01=0x0050, text=»** WORK.REGS: A2,A4 **«, t00=0x0114, t01=0x00c2}
0x1b00a…1b046 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0114, t01=0x00fe}
0x1b046…1b052 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0114, t01=0x013a}
0x1b052…1b066 Head {h00=0x0010, h01=0x0050, text=»GETNUM EQU *«, t00=0x0114, t01=0x0146}
0x1b066…1b08a Head {h00=0x0020, h01=0x0050, text=» LDK A4,100 FIRST INCREMENT «, t00=0x0114, t01=0x015a}
0x1b08a…1b0ac Head {h00=0x001e, h01=0x0050, text=» LDK A5,0 CLEAR RESULT REG«, t00=0x0114, t01=0x017e}
0x1b0ac…1b0ca Head {h00=0x001a, h01=0x0050, text=» SUK A6,1 INIT POINTER«, t00=0x0115, t01=0x0010}
0x1b0ca…1b0ec Head {h00=0x001e, h01=0x0050, text=»GET030 ADK A6,1 NEXT DIGIT«, t00=0x0115, t01=0x002e}
0x1b0ec…1b108 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A6 GET CHAR «, t00=0x0115, t01=0x0050}
0x1b108…1b11a Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0115, t01=0x006c}
0x1b11a…1b132 Head {h00=0x0014, h01=0x0050, text=»GET050 SUK A2,1 «, t00=0x0115, t01=0x007e}
0x1b132…1b158 Head {h00=0x0022, h01=0x0050, text=» RF(N) GET100 THIS DIGIT READY«, t00=0x0115, t01=0x0096}
0x1b158…1b176 Head {h00=0x001a, h01=0x0050, text=» ADR A5,A4 ACCUMULATE «, t00=0x0115, t01=0x00bc}
0x1b176…1b188 Head {h00=0x000e, h01=0x0050, text=» RB GET050«, t00=0x0115, t01=0x00da}
0x1b188…1b1b8 Head {h00=0x002c, h01=0x0050, text=»GET100 SUK A4,90 NEXT INCREMENT (TEN'S) «, t00=0x0115, t01=0x00ec}
0x1b1b8…1b1ce Head {h00=0x0012, h01=0x0050, text=» RB(P) GET030 «, t00=0x0115, t01=0x011c}
0x1b1ce…1b1f8 Head {h00=0x0026, h01=0x0050, text=» ADK A4,81 NEXT INCREMENT (ONE'S) «, t00=0x0115, t01=0x0132}
0x1b1f8…1b21a Head {h00=0x001e, h01=0x0050, text=» RB(P) GET030 THIRD DIGIT «, t00=0x0115, t01=0x015c}
0x1b21a…1b22a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0115, t01=0x017e}
0x1b22a…1b238 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0115, t01=0x018e}
0x1b238…1b240 Head {h00=0x0004, h01=0x0050, t00=0x0116, t01=0x000c}
0x1b240…1b264 Head {h00=0x0020, h01=0x0050, text=»* START OF PROGRAM PART 1 * «, t00=0x0116, t01=0x0014}
0x1b264…1b26c Head {h00=0x0004, h01=0x0050, t00=0x0116, t01=0x0038}
0x1b26c…1b2a4 Head {h00=0x0034, h01=0x0050, text=»* SAVE02=POINTER TO 1:ST USER TASK TTAB-ADDRESS «, t00=0x0116, t01=0x0040}
0x1b2a4…1b2cc Head {h00=0x0024, h01=0x0050, text=»* SAVE09=EXECUTION START ADDRESS«, t00=0x0116, t01=0x0078}
0x1b2cc…1b2d8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0116, t01=0x00a0}
0x1b2d8…1b2fe Head {h00=0x0022, h01=0x0050, text=»SYSLDX EQU *-REL PROGRAM START«, t00=0x0116, t01=0x00ac}
0x1b2fe…1b308 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x00d2}
0x1b308…1b322 Head {h00=0x0016, h01=0x0050, text=»* INIT A15 STACK «, t00=0x0116, t01=0x00dc}
0x1b322…1b32c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x00f6}
0x1b32c…1b342 Head {h00=0x0012, h01=0x0050, text=» LD A15,SCTSTB«, t00=0x0116, t01=0x0100}
0x1b342…1b356 Head {h00=0x0010, h01=0x0050, text=» SUKL A15,4 «, t00=0x0116, t01=0x0116}
0x1b356…1b35e Head {h00=0x0004, h01=0x0050, t00=0x0116, t01=0x012a}
0x1b35e…1b388 Head {h00=0x0026, h01=0x0050, text=» LD A2,SCTLAC GET S:GTAB (IF ANY) «, t00=0x0116, t01=0x0132}
0x1b388…1b39e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0116, t01=0x015c}
0x1b39e…1b3d0 Head {h00=0x002e, h01=0x0050, text=» LD A2,CREID,A2 GET CREDIT IDENTIFICATION «, t00=0x0116, t01=0x0172}
0x1b3d0…1b3dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0117, t01=0x0014}
0x1b3dc…1b3f2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0117, t01=0x0020}
0x1b3f2…1b40c Head {h00=0x0016, h01=0x0050, text=» TL MMTAB,A13 %%##«, t00=0x0117, t01=0x0036}
0x1b40c…1b424 Head {h00=0x0014, h01=0x0050, text=» EL A2,CREID,A2 «, t00=0x0117, t01=0x0050}
0x1b424…1b430 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0117, t01=0x0068}
0x1b430…1b466 Head {h00=0x0032, h01=0x0050, text=» CM SWITCH,A13 RESET SAVE-AREAS USED IN SYSLDM«, t00=0x0117, t01=0x0074}
0x1b466…1b47a Head {h00=0x0010, h01=0x0050, text=» CM FLAG,A13«, t00=0x0117, t01=0x00aa}
0x1b47a…1b4a2 Head {h00=0x0024, h01=0x0050, text=» CWK A2,'CR' CREDIT APPLICATION?«, t00=0x0117, t01=0x00be}
0x1b4a2…1b4ce Head {h00=0x0028, h01=0x0050, text=» RF(E) SYA100 YES! START CONFIGURATE«, t00=0x0117, t01=0x00e6}
0x1b4ce…1b4e4 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x0117, t01=0x0112}
0x1b4e4…1b4ec Head {h00=0x0004, h01=0x0050, t00=0x0117, t01=0x0128}
0x1b4ec…1b50c Head {h00=0x001c, h01=0x0050, text=»* ASSEMBLER APPLICATION «, t00=0x0117, t01=0x0130}
0x1b50c…1b514 Head {h00=0x0004, h01=0x0050, t00=0x0117, t01=0x0150}
0x1b514…1b534 Head {h00=0x001c, h01=0x0050, text=»* SWITCH TO LEVEL 0 ENB «, t00=0x0117, t01=0x0158}
0x1b534…1b53c Head {h00=0x0004, h01=0x0050, t00=0x0117, t01=0x0178}
0x1b53c…1b568 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,SYA103 CONTINUATION ADDRESS«, t00=0x0117, t01=0x0180}
0x1b568…1b584 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A13 RELOCATE«, t00=0x0118, t01=0x001c}
0x1b584…1b5a4 Head {h00=0x001c, h01=0x0050, text=» STR A4,A15 PUT ON STACK«, t00=0x0118, t01=0x0038}
0x1b5a4…1b5ba Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/00C0«, t00=0x0118, t01=0x0058}
0x1b5ba…1b5de Head {h00=0x0020, h01=0x0050, text=» STR A4,A15 PUT PSW ON STACK«, t00=0x0118, t01=0x006e}
0x1b5de…1b5ee Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0118, t01=0x0092}
0x1b5ee…1b606 Head {h00=0x0014, h01=0x0050, text=»SYA103 EQU *-REL«, t00=0x0118, t01=0x00a2}
0x1b606…1b612 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0118, t01=0x00ba}
0x1b612…1b62e Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x0118, t01=0x00c6}
0x1b62e…1b65a Head {h00=0x0028, h01=0x0050, text=» LDKL A4,MMTAB GET MM-TABLE ADDRESS «, t00=0x0118, t01=0x00e2}
0x1b65a…1b676 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A13 RELOCATE«, t00=0x0118, t01=0x010e}
0x1b676…1b694 Head {h00=0x001a, h01=0x0050, text=» ST A4,MMFROM,A13 SAVE«, t00=0x0118, t01=0x012a}
0x1b694…1b6c0 Head {h00=0x0028, h01=0x0050, text=»* FILL MM-TABLES IN USER TASK TTAB'S«, t00=0x0118, t01=0x0148}
0x1b6c0…1b6c8 Head {h00=0x0004, h01=0x0050, t00=0x0118, t01=0x0174}
0x1b6c8…1b6f4 Head {h00=0x0028, h01=0x0050, text=» LD* A5,SCTTCT GET LENGTH OF TC:TAB «, t00=0x0118, t01=0x017c}
0x1b6f4…1b71c Head {h00=0x0024, h01=0x0050, text=» LD A6,SAVE02,A13 1:ST USER TASK«, t00=0x0119, t01=0x0018}
0x1b71c…1b734 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A6 SAVE «, t00=0x0119, t01=0x0040}
0x1b734…1b768 Head {h00=0x0030, h01=0x0050, text=» SU A3,SCTTCT GET DISPLACEMENT TO 1:ST USER «, t00=0x0119, t01=0x0058}
0x1b768…1b796 Head {h00=0x002a, h01=0x0050, text=» SUR A5,A3 => LENGTH OF TC:TAB TO SCAN«, t00=0x0119, t01=0x008c}
0x1b796…1b7a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00ba}
0x1b7a0…1b7c2 Head {h00=0x001e, h01=0x0050, text=»* INIT UNUSED MMU ENTRIES«, t00=0x0119, t01=0x00c4}
0x1b7c2…1b7cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00e6}
0x1b7cc…1b7e2 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FC00«, t00=0x0119, t01=0x00f0}
0x1b7e2…1b7f8 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,MMTAB«, t00=0x0119, t01=0x0106}
0x1b7f8…1b80c Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x0119, t01=0x011c}
0x1b80c…1b826 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A2 =00002«, t00=0x0119, t01=0x0130}
0x1b826…1b83c Head {h00=0x0012, h01=0x0050, text=» SUKL A4,MMBEG«, t00=0x0119, t01=0x014a}
0x1b83c…1b852 Head {h00=0x0012, h01=0x0050, text=» AD A4,SCTMMC «, t00=0x0119, t01=0x0160}
0x1b852…1b86a Head {h00=0x0014, h01=0x0050, text=»SYA:10 CWR A4,A2«, t00=0x0119, t01=0x0176}
0x1b86a…1b880 Head {h00=0x0012, h01=0x0050, text=» RF(E) SYA105 «, t00=0x0119, t01=0x018e}
0x1b880…1b892 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x011a, t01=0x0014}
0x1b892…1b8a4 Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x011a, t01=0x0026}
0x1b8a4…1b8b6 Head {h00=0x000e, h01=0x0050, text=» RB SYA:10«, t00=0x011a, t01=0x0038}
0x1b8b6…1b8d2 Head {h00=0x0018, h01=0x0050, text=»SYA105 SUK A5,2 ALL?«, t00=0x011a, t01=0x004a}
0x1b8d2…1b8ec Head {h00=0x0016, h01=0x0050, text=» RF(N) SYA107 YES!«, t00=0x011a, t01=0x0066}
0x1b8ec…1b90c Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A6 TTAB-ADDRESS«, t00=0x011a, t01=0x0080}
0x1b90c…1b92e Head {h00=0x001e, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE«, t00=0x011a, t01=0x00a0}
0x1b92e…1b94a Head {h00=0x0018, h01=0x0050, text=» ADK A6,2 NEXT TTAB «, t00=0x011a, t01=0x00c2}
0x1b94a…1b95c Head {h00=0x000e, h01=0x0050, text=» RB SYA105«, t00=0x011a, t01=0x00de}
0x1b95c…1b970 Head {h00=0x0010, h01=0x0050, text=»SYA107 EQU *«, t00=0x011a, t01=0x00f0}
0x1b970…1b97c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011a, t01=0x0104}
0x1b97c…1b992 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x011a, t01=0x0110}
0x1b992…1b9c8 Head {h00=0x0032, h01=0x0050, text=» LD* A5,SAVE02,A13 1:ST USER TASK TTAB ADDRESS«, t00=0x011a, t01=0x0126}
0x1b9c8…1b9fa Head {h00=0x002e, h01=0x0050, text=» LD A2,SAVE09,A13 EXECUTION START ADDRESS «, t00=0x011a, t01=0x015c}
0x1b9fa…1ba26 Head {h00=0x0028, h01=0x0050, text=» AD A2,SCTLAC ADD RELOCATION ADDRESS«, t00=0x011a, t01=0x018e}
0x1ba26…1ba46 Head {h00=0x001c, h01=0x0050, text=» LDK A3,0 SEGMENT NUMBER«, t00=0x011b, t01=0x002a}
0x1ba46…1ba66 Head {h00=0x001c, h01=0x0050, text=» CF A15,ACTOT QUEUE TASK«, t00=0x011b, t01=0x004a}
0x1ba66…1ba8c Head {h00=0x0022, h01=0x0050, text=» LDKL A1,FINISH END OF SYSLDA «, t00=0x011b, t01=0x006a}
0x1ba8c…1baa0 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A13 «, t00=0x011b, t01=0x0090}
0x1baa0…1bab0 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x011b, t01=0x00a4}
0x1bab0…1babc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011b, t01=0x00b4}
0x1babc…1bad0 Head {h00=0x0010, h01=0x0050, text=»SYA100 EQU *«, t00=0x011b, t01=0x00c0}
0x1bad0…1bae6 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x011b, t01=0x00d4}
0x1bae6…1baf4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011b, t01=0x00ea}
0x1baf4…1bb00 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011b, t01=0x00f8}
0x1bb00…1bb30 Head {h00=0x002c, h01=0x0050, text=»* READ CONFIG FILE AND BUILD SHADOWTABLE«, t00=0x011b, t01=0x0104}
0x1bb30…1bb3c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011b, t01=0x0134}
0x1bb3c…1bb70 Head {h00=0x0030, h01=0x0050, text=» CM SAVE02,A13 CLEAR 'BUGGER TASK INDICATOR'«, t00=0x011b, t01=0x0140}
0x1bb70…1bb8c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x011b, t01=0x0174}
0x1bb8c…1bbb6 Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTLAC GET START OF P:MTAB«, t00=0x011b, t01=0x0190}
0x1bbb6…1bbde Head {h00=0x0024, h01=0x0050, text=» LD A12,T:ATAB,A2 T:ATAB ADDRESS«, t00=0x011c, t01=0x002a}
0x1bbde…1bc08 Head {h00=0x0026, h01=0x0050, text=» SUKL A12,2 ADJUST FOR LENGTH-WORD«, t00=0x011c, t01=0x0052}
0x1bc08…1bc28 Head {h00=0x001c, h01=0x0050, text=» ST A12,T:ATOD,A13 SAVE «, t00=0x011c, t01=0x007c}
0x1bc28…1bc58 Head {h00=0x002c, h01=0x0050, text=» LD A4,U:BTAB,A2 GET U:BTAB FROM P:MTAB «, t00=0x011c, t01=0x009c}
0x1bc58…1bc7e Head {h00=0x0022, h01=0x0050, text=» SUK A4,2 INCLUDE LENGTH-WORD «, t00=0x011c, t01=0x00cc}
0x1bc7e…1bca6 Head {h00=0x0024, h01=0x0050, text=» ST A4,U:BTOD,A13 SAVE IN SYSLDA«, t00=0x011c, t01=0x00f2}
0x1bca6…1bcb2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011c, t01=0x011a}
0x1bcb2…1bcce Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x011c, t01=0x0126}
0x1bcce…1bcfa Head {h00=0x0028, h01=0x0050, text=» LD A4,S:BTAB,A2 GET S:BTAB ADDRESS «, t00=0x011c, t01=0x0142}
0x1bcfa…1bd22 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x011c, t01=0x016e}
0x1bd22…1bd40 Head {h00=0x001a, h01=0x0050, text=» ST A4,S:BTOD,A13 SAVE«, t00=0x011d, t01=0x0008}
0x1bd40…1bd4c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011d, t01=0x0026}
0x1bd4c…1bd68 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x011d, t01=0x0032}
0x1bd68…1bd84 Head {h00=0x0018, h01=0x0050, text=»* T:ATAB PROCESSING:«, t00=0x011d, t01=0x004e}
0x1bd84…1bd90 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011d, t01=0x006a}
0x1bd90…1bdb2 Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A12 T:ATAB-LENGTH«, t00=0x011d, t01=0x0076}
0x1bdb2…1bdca Head {h00=0x0014, h01=0x0050, text=» LDR A3,A4 SAVE «, t00=0x011d, t01=0x0098}
0x1bdca…1bdf8 Head {h00=0x002a, h01=0x0050, text=» AD A3,SCTSFA ADD MONITOR END ADDRESS «, t00=0x011d, t01=0x00b0}
0x1bdf8…1be12 Head {h00=0x0016, h01=0x0050, text=»* CHECK ADDRESSES «, t00=0x011d, t01=0x00de}
0x1be12…1be1a Head {h00=0x0004, h01=0x0050, t00=0x011d, t01=0x00f8}
0x1be1a…1be40 Head {h00=0x0022, h01=0x0050, text=» LDR A11,A3 END OF SHADOW-TAB «, t00=0x011d, t01=0x0100}
0x1be40…1be64 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A13 START OF SYSLDA «, t00=0x011d, t01=0x0126}
0x1be64…1be78 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x011d, t01=0x014a}
0x1be78…1be92 Head {h00=0x0016, h01=0x0050, text=» RF(L) SYA110 OK! «, t00=0x011d, t01=0x015e}
0x1be92…1beb8 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x011d, t01=0x0178}
0x1beb8…1becc Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011e, t01=0x000e}
0x1becc…1bef8 Head {h00=0x0028, h01=0x0050, text=»SYA110 LDR A9,A2 GET P:MTAB ADDRESS «, t00=0x011e, t01=0x0022}
0x1bef8…1bf0a Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x011e, t01=0x004e}
0x1bf0a…1bf2e Head {h00=0x0020, h01=0x0050, text=»* CLEAR T:ATAB SHADOW-TABLE:«, t00=0x011e, t01=0x0060}
0x1bf2e…1bf3a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011e, t01=0x0084}
0x1bf3a…1bf54 Head {h00=0x0016, h01=0x0050, text=»ZERO SUK A3,2 NEXT«, t00=0x011e, t01=0x0090}
0x1bf54…1bf6c Head {h00=0x0014, h01=0x0050, text=» STR A2,A3 CLEAR«, t00=0x011e, t01=0x00aa}
0x1bf6c…1bf86 Head {h00=0x0016, h01=0x0050, text=» CW A3,SCTSFA ALL?«, t00=0x011e, t01=0x00c2}
0x1bf86…1bf9e Head {h00=0x0014, h01=0x0050, text=» RB(NE) ZERO NO!«, t00=0x011e, t01=0x00dc}
0x1bf9e…1bfc4 Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 STORE TABLE LENGTH «, t00=0x011e, t01=0x00f4}
0x1bfc4…1bff0 Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 GET CONFIG START «, t00=0x011e, t01=0x011a}
0x1bff0…1c016 Head {h00=0x0022, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCKTYPE«, t00=0x011e, t01=0x0146}
0x1c016…1c034 Head {h00=0x001a, h01=0x0050, text=» CCK A2,'TT' TASK DEF?«, t00=0x011e, t01=0x016c}
0x1c034…1c04e Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA120 OK! «, t00=0x011e, t01=0x018a}
0x1c04e…1c072 Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP4 NO TASK PRESENT«, t00=0x011f, t01=0x0014}
0x1c072…1c086 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011f, t01=0x0038}
0x1c086…1c0b2 Head {h00=0x0028, h01=0x0050, text=»SYA120 LC A2,TDBMC+4,A11 GET TASK ID«, t00=0x011f, t01=0x004c}
0x1c0b2…1c0c6 Head {h00=0x0010, h01=0x0050, text=» SLL A2,8 . «, t00=0x011f, t01=0x0078}
0x1c0c6…1c0e4 Head {h00=0x001a, h01=0x0050, text=» LC A2,TDBMC+5,A11 ...«, t00=0x011f, t01=0x008c}
0x1c0e4…1c106 Head {h00=0x001e, h01=0x0050, text=» CWK A2,'TB' BUGGER TASK? «, t00=0x011f, t01=0x00aa}
0x1c106…1c120 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYA125 NO!«, t00=0x011f, t01=0x00cc}
0x1c120…1c15e Head {h00=0x003a, h01=0x0050, text=» ST A2,SAVE02,A13 INDICATE BUGGER TASK PRESENT =00001 «, t00=0x011f, t01=0x00e6}
0x1c15e…1c184 Head {h00=0x0022, h01=0x0050, text=» RF SYA136 SKIP TO NEXT BLOCK «, t00=0x011f, t01=0x0124}
0x1c184…1c1a2 Head {h00=0x001a, h01=0x0050, text=»SYA125 LDR A8,A12 SAVE«, t00=0x011f, t01=0x014a}
0x1c1a2…1c1c4 Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A12 T:ATAB LENGTH«, t00=0x011f, t01=0x0168}
0x1c1c4…1c1e6 Head {h00=0x001e, h01=0x0050, text=»SYA130 ADKL A8,2 NEXT T:A «, t00=0x011f, t01=0x018a}
0x1c1e6…1c20a Head {h00=0x0020, h01=0x0050, text=» LDR* A6,A8 GET T:A ADDRESS «, t00=0x0120, t01=0x001c}
0x1c20a…1c21c Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0120, t01=0x0040}
0x1c21c…1c232 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA135«, t00=0x0120, t01=0x0052}
0x1c232…1c266 Head {h00=0x0030, h01=0x0050, text=» LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) «, t00=0x0120, t01=0x0068}
0x1c266…1c27a Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0120, t01=0x009c}
0x1c27a…1c28e Head {h00=0x0010, h01=0x0050, text=»SYA135 EQU *«, t00=0x0120, t01=0x00b0}
0x1c28e…1c2b2 Head {h00=0x0020, h01=0x0050, text=» CW A2,T:ATID,A6 TID EQUAL? «, t00=0x0120, t01=0x00c4}
0x1c2b2…1c2cc Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA130 NO!«, t00=0x0120, t01=0x00e8}
0x1c2cc…1c2ee Head {h00=0x001e, h01=0x0050, text=» SUR* A4,A12 T:ATAB LENGTH«, t00=0x0120, t01=0x0102}
0x1c2ee…1c2fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0120, t01=0x0124}
0x1c2fa…1c316 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0120, t01=0x0130}
0x1c316…1c340 Head {h00=0x0026, h01=0x0050, text=» EL* A2,SCTLAC GET START OF P:MTAB«, t00=0x0120, t01=0x014c}
0x1c340…1c368 Head {h00=0x0024, h01=0x0050, text=» EL A12,T:ATAB,A2 T:ATAB ADDRESS«, t00=0x0120, t01=0x0176}
0x1c368…1c390 Head {h00=0x0024, h01=0x0050, text=» SUKL A12,2 INCLUDE LENGTH WORD «, t00=0x0121, t01=0x000e}
0x1c390…1c3ba Head {h00=0x0026, h01=0x0050, text=» ST A12,T:ATOD,A13 SAVE IN SYSLDA «, t00=0x0121, t01=0x0036}
0x1c3ba…1c3e2 Head {h00=0x0024, h01=0x0050, text=» EL A4,U:BTAB,A2 U:BTAB ADDRESS «, t00=0x0121, t01=0x0060}
0x1c3e2…1c40a Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x0121, t01=0x0088}
0x1c40a…1c432 Head {h00=0x0024, h01=0x0050, text=» ST A4,U:BTOD,A13 SAVE IN SYSLDA«, t00=0x0121, t01=0x00b0}
0x1c432…1c43e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0121, t01=0x00d8}
0x1c43e…1c45a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x0121, t01=0x00e4}
0x1c45a…1c486 Head {h00=0x0028, h01=0x0050, text=» EL A4,S:BTAB,A2 GET S:BTAB ADDRESS «, t00=0x0121, t01=0x0100}
0x1c486…1c4ae Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x0121, t01=0x012c}
0x1c4ae…1c4cc Head {h00=0x001a, h01=0x0050, text=» ST A4,S:BTOD,A13 SAVE«, t00=0x0121, t01=0x0154}
0x1c4cc…1c4d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0121, t01=0x0172}
0x1c4d8…1c4f4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0121, t01=0x017e}
0x1c4f4…1c510 Head {h00=0x0018, h01=0x0050, text=»* T:ATAB PROCESSING:«, t00=0x0122, t01=0x000a}
0x1c510…1c51c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0122, t01=0x0026}
0x1c51c…1c53e Head {h00=0x001e, h01=0x0050, text=» ELR A4,A12 T:ATAB-LENGTH «, t00=0x0122, t01=0x0032}
0x1c53e…1c556 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A4 SAVE «, t00=0x0122, t01=0x0054}
0x1c556…1c58a Head {h00=0x0030, h01=0x0050, text=» SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE«, t00=0x0122, t01=0x006c}
0x1c58a…1c5b8 Head {h00=0x002a, h01=0x0050, text=» AD A3,SCTSFA ADD MONITOR END ADDRESS «, t00=0x0122, t01=0x00a0}
0x1c5b8…1c5d2 Head {h00=0x0016, h01=0x0050, text=»* CHECK ADDRESSES «, t00=0x0122, t01=0x00ce}
0x1c5d2…1c5da Head {h00=0x0004, h01=0x0050, t00=0x0122, t01=0x00e8}
0x1c5da…1c602 Head {h00=0x0024, h01=0x0050, text=» LDR A11,A3 END OF SHADOW-TABLE «, t00=0x0122, t01=0x00f0}
0x1c602…1c626 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A13 START OF SYSLDA «, t00=0x0122, t01=0x0118}
0x1c626…1c63a Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x0122, t01=0x013c}
0x1c63a…1c654 Head {h00=0x0016, h01=0x0050, text=» RF(L) SYA110 OK! «, t00=0x0122, t01=0x0150}
0x1c654…1c67a Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x0122, t01=0x016a}
0x1c67a…1c68e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0122, t01=0x0190}
0x1c68e…1c6ba Head {h00=0x0028, h01=0x0050, text=»SYA110 LDR A9,A2 GET P:MTAB ADDRESS «, t00=0x0123, t01=0x0014}
0x1c6ba…1c6de Head {h00=0x0020, h01=0x0050, text=»* CLEAR T:ATAB SHADOW-TABLE:«, t00=0x0123, t01=0x0040}
0x1c6de…1c6ea Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0123, t01=0x0064}
0x1c6ea…1c706 Head {h00=0x0018, h01=0x0050, text=»SYA115 SUK A3,2 NEXT«, t00=0x0123, t01=0x0070}
0x1c706…1c71c Head {h00=0x0012, h01=0x0050, text=» CMR A3 CLEAR «, t00=0x0123, t01=0x008c}
0x1c71c…1c736 Head {h00=0x0016, h01=0x0050, text=» CW A3,SCTSFA ALL?«, t00=0x0123, t01=0x00a2}
0x1c736…1c750 Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA115 NO!«, t00=0x0123, t01=0x00bc}
0x1c750…1c776 Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 STORE TABLE LENGTH «, t00=0x0123, t01=0x00d6}
0x1c776…1c7a2 Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 GET CONFIG START «, t00=0x0123, t01=0x00fc}
0x1c7a2…1c7c8 Head {h00=0x0022, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCKTYPE«, t00=0x0123, t01=0x0128}
0x1c7c8…1c7e6 Head {h00=0x001a, h01=0x0050, text=» CCK A2,'TT' TASK DEF?«, t00=0x0123, t01=0x014e}
0x1c7e6…1c800 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA120 OK! «, t00=0x0123, t01=0x016c}
0x1c800…1c824 Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP4 NO TASK PRESENT«, t00=0x0123, t01=0x0186}
0x1c824…1c838 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0124, t01=0x001a}
0x1c838…1c864 Head {h00=0x0028, h01=0x0050, text=»SYA120 LC A2,TDBMC+4,A11 GET TASK ID«, t00=0x0124, t01=0x002e}
0x1c864…1c878 Head {h00=0x0010, h01=0x0050, text=» SLL A2,8 . «, t00=0x0124, t01=0x005a}
0x1c878…1c896 Head {h00=0x001a, h01=0x0050, text=» LC A2,TDBMC+5,A11 ...«, t00=0x0124, t01=0x006e}
0x1c896…1c8b8 Head {h00=0x001e, h01=0x0050, text=» CWK A2,'TB' BUGGER TASK? «, t00=0x0124, t01=0x008c}
0x1c8b8…1c8d2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYA125 NO!«, t00=0x0124, t01=0x00ae}
0x1c8d2…1c90a Head {h00=0x0034, h01=0x0050, text=» ST A2,SAVE02,A13 INDICATE 'BUGGER TASK PRESENT'«, t00=0x0124, t01=0x00c8}
0x1c90a…1c92c Head {h00=0x001e, h01=0x0050, text=» RF SYA136 SKIP THIS BLOCK«, t00=0x0124, t01=0x0100}
0x1c92c…1c94a Head {h00=0x001a, h01=0x0050, text=»SYA125 LDR A8,A12 SAVE«, t00=0x0124, t01=0x0122}
0x1c94a…1c96c Head {h00=0x001e, h01=0x0050, text=» ELR A4,A12 T:ATAB LENGTH «, t00=0x0124, t01=0x0140}
0x1c96c…1c98e Head {h00=0x001e, h01=0x0050, text=»SYA130 ADKL A8,2 NEXT T:A «, t00=0x0124, t01=0x0162}
0x1c98e…1c9b0 Head {h00=0x001e, h01=0x0050, text=» ELR A6,A8 GET T:A ADDRESS«, t00=0x0124, t01=0x0184}
0x1c9b0…1c9c2 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0125, t01=0x0016}
0x1c9c2…1c9d8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA135«, t00=0x0125, t01=0x0028}
0x1c9d8…1ca08 Head {h00=0x002c, h01=0x0050, text=» LDK A1,LMP5 NO PROT. FOUND (TID ERROR) «, t00=0x0125, t01=0x003e}
0x1ca08…1ca1c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0125, t01=0x006e}
0x1ca1c…1ca30 Head {h00=0x0010, h01=0x0050, text=»SYA135 EQU *«, t00=0x0125, t01=0x0082}
0x1ca30…1ca52 Head {h00=0x001e, h01=0x0050, text=» EL A10,T:ATID,A6 GET TID «, t00=0x0125, t01=0x0096}
0x1ca52…1ca70 Head {h00=0x001a, h01=0x0050, text=» CWR A2,A10 TID EQUAL?«, t00=0x0125, t01=0x00b8}
0x1ca70…1ca8a Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA130 NO!«, t00=0x0125, t01=0x00d6}
0x1ca8a…1ca9e Head {h00=0x0010, h01=0x0050, text=» ELR A10,A12«, t00=0x0125, t01=0x00f0}
0x1ca9e…1cac0 Head {h00=0x001e, h01=0x0050, text=» SUR A4,A10 T:ATAB LENGTH «, t00=0x0125, t01=0x0104}
0x1cac0…1cacc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0125, t01=0x0126}
0x1cacc…1cae2 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0125, t01=0x0132}
0x1cae2…1cb14 Head {h00=0x002e, h01=0x0050, text=» NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB «, t00=0x0125, t01=0x0148}
0x1cb14…1cb40 Head {h00=0x0028, h01=0x0050, text=» LC A5,TDBNT,A11 GET NUMBER OF TASKS«, t00=0x0125, t01=0x017a}
0x1cb40…1cb52 Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0126, t01=0x0016}
0x1cb52…1cb6c Head {h00=0x0016, h01=0x0050, text=» LC A5,TDBNT+1,A11«, t00=0x0126, t01=0x0028}
0x1cb6c…1cb80 Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x0126, t01=0x0042}
0x1cb80…1cbac Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA START OF SHADOW TABLE «, t00=0x0126, t01=0x0056}
0x1cbac…1cbbe Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0126, t01=0x0082}
0x1cbbe…1cbf8 Head {h00=0x0036, h01=0x0050, text=» ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE «, t00=0x0126, t01=0x0094}
0x1cbf8…1cc04 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0126, t01=0x00ce}
0x1cc04…1cc20 Head {h00=0x0018, h01=0x0050, text=»* SKIP TO NEXT BLOCK«, t00=0x0126, t01=0x00da}
0x1cc20…1cc2c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0126, t01=0x00f6}
0x1cc2c…1cc46 Head {h00=0x0016, h01=0x0050, text=»SYA136 CALL NXTBLK«, t00=0x0126, t01=0x0102}
0x1cc46…1cc5a Head {h00=0x0010, h01=0x0050, text=»SYA137 EQU *«, t00=0x0126, t01=0x011c}
0x1cc5a…1cc6e Head {h00=0x0010, h01=0x0050, text=» CCK A2,'TT'«, t00=0x0126, t01=0x0130}
0x1cc6e…1cc98 Head {h00=0x0026, h01=0x0050, text=» RB(E) SYA120 NEXT TASK DEF BLOCK «, t00=0x0126, t01=0x0144}
0x1cc98…1ccac Head {h00=0x0010, h01=0x0050, text=» CCK A2,'CC'«, t00=0x0126, t01=0x016e}
0x1ccac…1ccc2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) SYA140«, t00=0x0126, t01=0x0182}
0x1ccc2…1ccf0 Head {h00=0x002a, h01=0x0050, text=» ADKL A11,1 STEP TO NUMBER OF COM.DEV.«, t00=0x0127, t01=0x0008}
0x1ccf0…1cd14 Head {h00=0x0020, h01=0x0050, text=» CALL NXTCOM SKIP COMMON DEF«, t00=0x0127, t01=0x0036}
0x1cd14…1cd2e Head {h00=0x0016, h01=0x0050, text=»SYA140 CCK A2,'UU'«, t00=0x0127, t01=0x005a}
0x1cd2e…1cd4e Head {h00=0x001c, h01=0x0050, text=» RF(NE) SYA141 NO UWB'S «, t00=0x0127, t01=0x0074}
0x1cd4e…1cd84 Head {h00=0x0032, h01=0x0050, text=» LD A8,U:BTOD,A13 GET MODIFIED U:BTAB ADDRESS «, t00=0x0127, t01=0x0094}
0x1cd84…1cdbe Head {h00=0x0036, h01=0x0050, text=» CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE «, t00=0x0127, t01=0x00ca}
0x1cdbe…1cdd2 Head {h00=0x0010, h01=0x0050, text=»SYA141 EQU *«, t00=0x0127, t01=0x0104}
0x1cdd2…1cdde Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0127, t01=0x0118}
0x1cdde…1cdfa Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0127, t01=0x0124}
0x1cdfa…1ce0e Head {h00=0x0010, h01=0x0050, text=» LCR A2,A11 «, t00=0x0127, t01=0x0140}
0x1ce0e…1ce22 Head {h00=0x0010, h01=0x0050, text=» CCK A2,'SS'«, t00=0x0127, t01=0x0154}
0x1ce22…1ce38 Head {h00=0x0012, h01=0x0050, text=» RF(NE) SYA152«, t00=0x0127, t01=0x0168}
0x1ce38…1ce52 Head {h00=0x0016, h01=0x0050, text=» LD A8,S:BTOD,A13 «, t00=0x0127, t01=0x017e}
0x1ce52…1ce66 Head {h00=0x0010, h01=0x0050, text=» CALL USWBTP«, t00=0x0128, t01=0x0008}
0x1ce66…1ce72 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0128, t01=0x001c}
0x1ce72…1ce88 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0128, t01=0x0028}
0x1ce88…1ce9a Head {h00=0x000e, h01=0x0050, text=» RF SYA152«, t00=0x0128, t01=0x003e}
0x1ce9a…1cea8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0128, t01=0x0050}
0x1cea8…1cef8 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0128, t01=0x005e}
0x1cef8…1cf48 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0128, t01=0x00ae}
0x1cf48…1cf98 Head {h00=0x004c, h01=0x0050, text=»* USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE * «, t00=0x0128, t01=0x00fe}
0x1cf98…1cfe8 Head {h00=0x004c, h01=0x0050, text=»* ================================================================= * «, t00=0x0128, t01=0x014e}
0x1cfe8…1d038 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0129, t01=0x000e}
0x1d038…1d088 Head {h00=0x004c, h01=0x0050, text=»* REFERENCED IN: SYSLDA * «, t00=0x0129, t01=0x005e}
0x1d088…1d0d8 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0129, t01=0x00ae}
0x1d0d8…1d128 Head {h00=0x004c, h01=0x0050, text=»* ENTRY: A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE * «, t00=0x0129, t01=0x00fe}
0x1d128…1d178 Head {h00=0x004c, h01=0x0050, text=»* A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK * «, t00=0x0129, t01=0x014e}
0x1d178…1d1c8 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x012a, t01=0x000e}
0x1d1c8…1d218 Head {h00=0x004c, h01=0x0050, text=»* EXIT: * «, t00=0x012a, t01=0x005e}
0x1d218…1d268 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x012a, t01=0x00ae}
0x1d268…1d2b8 Head {h00=0x004c, h01=0x0050, text=»* WORK REGISTERS: * «, t00=0x012a, t01=0x00fe}
0x1d2b8…1d308 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x012a, t01=0x014e}
0x1d308…1d358 Head {h00=0x004c, h01=0x0050, text=»* SUBROUTINES: GETNUM,ERROR * «, t00=0x012b, t01=0x000e}
0x1d358…1d3a8 Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x012b, t01=0x005e}
0x1d3a8…1d3f8 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x012b, t01=0x00ae}
0x1d3f8…1d400 Head {h00=0x0004, h01=0x0050, t00=0x012b, t01=0x00fe}
0x1d400…1d414 Head {h00=0x0010, h01=0x0050, text=»USWBTP EQU *«, t00=0x012b, t01=0x0106}
0x1d414…1d41c Head {h00=0x0004, h01=0x0050, t00=0x012b, t01=0x011a}
0x1d41c…1d428 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012b, t01=0x0122}
0x1d428…1d444 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x012b, t01=0x012e}
0x1d444…1d458 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x012b, t01=0x014a}
0x1d458…1d46c Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x012b, t01=0x015e}
0x1d46c…1d49a Head {h00=0x002a, h01=0x0050, text=» CALL GETNUM PACK 3 DIG. RESULT IN A5 «, t00=0x012b, t01=0x0172}
0x1d49a…1d4c2 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A5 SAVE NUMBER OF UWB'S «, t00=0x012c, t01=0x0010}
0x1d4c2…1d4d6 Head {h00=0x0010, h01=0x0050, text=»SYA142 EQU *«, t00=0x012c, t01=0x0038}
0x1d4d6…1d4ea Head {h00=0x0010, h01=0x0050, text=» LDR A12,A8 «, t00=0x012c, t01=0x004c}
0x1d4ea…1d510 Head {h00=0x0022, h01=0x0050, text=» LDR* A3,A12 LENGTH OF U:BTAB «, t00=0x012c, t01=0x0060}
0x1d510…1d53c Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UDB RECORD «, t00=0x012c, t01=0x0086}
0x1d53c…1d550 Head {h00=0x0010, h01=0x0050, text=»SYA145 EQU *«, t00=0x012c, t01=0x00b2}
0x1d550…1d584 Head {h00=0x0030, h01=0x0050, text=» LCR A2,A11 GET FIRST CHARACTER FROM CONFIG «, t00=0x012c, t01=0x00c6}
0x1d584…1d596 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x012c, t01=0x00fa}
0x1d596…1d5b8 Head {h00=0x001e, h01=0x0050, text=» LC A2,1,A11 GET 2:ND CHAR«, t00=0x012c, t01=0x010c}
0x1d5b8…1d5f2 Head {h00=0x0036, h01=0x0050, text=» CW A2,UPNAME,A12 COMPARE W. 1:ST WORD IN PROTOTYP«, t00=0x012c, t01=0x012e}
0x1d5f2…1d620 Head {h00=0x002a, h01=0x0050, text=» RF(E) FRSTOK FIRST TWO CHARACTERS OK!«, t00=0x012c, t01=0x0168}
0x1d620…1d654 Head {h00=0x0030, h01=0x0050, text=»SYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S «, t00=0x012d, t01=0x0008}
0x1d654…1d66a Head {h00=0x0012, h01=0x0050, text=» RF(NN) SYA150«, t00=0x012d, t01=0x003c}
0x1d66a…1d68c Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP6 UWB NOT FOUND«, t00=0x012d, t01=0x0052}
0x1d68c…1d6a0 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x012d, t01=0x0074}
0x1d6a0…1d6b4 Head {h00=0x0010, h01=0x0050, text=»SYA150 EQU *«, t00=0x012d, t01=0x0088}
0x1d6b4…1d6e0 Head {h00=0x0028, h01=0x0050, text=» ADKL A12,UP:REC ADD TO NEXT RECORD «, t00=0x012d, t01=0x009c}
0x1d6e0…1d6f2 Head {h00=0x000e, h01=0x0050, text=» RB SYA145«, t00=0x012d, t01=0x00c8}
0x1d6f2…1d71a Head {h00=0x0024, h01=0x0050, text=»FRSTOK LC A2,2,A11 GET 3:RD CHAR«, t00=0x012d, t01=0x00da}
0x1d71a…1d736 Head {h00=0x0018, h01=0x0050, text=» CC A2,UPNAME+2,A12 «, t00=0x012d, t01=0x0102}
0x1d736…1d752 Head {h00=0x0018, h01=0x0050, text=» RB(NE) SYA147 .NEQ.«, t00=0x012d, t01=0x011e}
0x1d752…1d760 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012d, t01=0x013a}
0x1d760…1d76c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x012d, t01=0x0148}
0x1d76c…1d788 Head {h00=0x0018, h01=0x0050, text=»* PROTOTYPE FOUND * «, t00=0x012d, t01=0x0154}
0x1d788…1d794 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x012d, t01=0x0170}
0x1d794…1d7d0 Head {h00=0x0038, h01=0x0050, text=» ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG«, t00=0x012d, t01=0x017c}
0x1d7d0…1d7e4 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x012e, t01=0x0028}
0x1d7e4…1d800 Head {h00=0x0018, h01=0x0050, text=» CALL GETNUM CONVERT«, t00=0x012e, t01=0x003c}
0x1d800…1d836 Head {h00=0x0032, h01=0x0050, text=» SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE)«, t00=0x012e, t01=0x0058}
0x1d836…1d868 Head {h00=0x002e, h01=0x0050, text=» SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE «, t00=0x012e, t01=0x008e}
0x1d868…1d87e Head {h00=0x0012, h01=0x0050, text=» RB(P) SYA142 «, t00=0x012e, t01=0x00c0}
0x1d87e…1d898 Head {h00=0x0016, h01=0x0050, text=» ADKL A11,UDBFST-1«, t00=0x012e, t01=0x00d6}
0x1d898…1d8a8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012e, t01=0x00f0}
0x1d8a8…1d8b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012e, t01=0x0100}
0x1d8b4…1d8d0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x012e, t01=0x010c}
0x1d8d0…1d8e4 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x012e, t01=0x0128}
0x1d8e4…1d8f8 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x012e, t01=0x013c}
0x1d8f8…1d926 Head {h00=0x002a, h01=0x0050, text=» CALL GETNUM PACK 3 DIG. RESULT IN A5 «, t00=0x012e, t01=0x0150}
0x1d926…1d94e Head {h00=0x0024, h01=0x0050, text=» LDR A1,A5 SAVE NUMBER OF UWB'S «, t00=0x012e, t01=0x017e}
0x1d94e…1d962 Head {h00=0x0010, h01=0x0050, text=»SYA142 EQU *«, t00=0x012f, t01=0x0016}
0x1d962…1d984 Head {h00=0x001e, h01=0x0050, text=» LDR A12,A8 START OF TABLE«, t00=0x012f, t01=0x002a}
0x1d984…1d9a8 Head {h00=0x0020, h01=0x0050, text=» ELR A3,A12 LENGTH OF U:BTAB«, t00=0x012f, t01=0x004c}
0x1d9a8…1d9d4 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UDB RECORD «, t00=0x012f, t01=0x0070}
0x1d9d4…1d9e8 Head {h00=0x0010, h01=0x0050, text=»SYA145 EQU *«, t00=0x012f, t01=0x009c}
0x1d9e8…1da1c Head {h00=0x0030, h01=0x0050, text=» LCR A2,A11 GET FIRST CHARACTER FROM CONFIG «, t00=0x012f, t01=0x00b0}
0x1da1c…1da2e Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x012f, t01=0x00e4}
0x1da2e…1da50 Head {h00=0x001e, h01=0x0050, text=» LC A2,1,A11 GET 2:ND CHAR«, t00=0x012f, t01=0x00f6}
0x1da50…1da86 Head {h00=0x0032, h01=0x0050, text=» EL A10,UPNAME,A12 GET FIRST WORD IN PROTOTYPE«, t00=0x012f, t01=0x0118}
0x1da86…1da9a Head {h00=0x0010, h01=0x0050, text=» CWR A2,A10 «, t00=0x012f, t01=0x014e}
0x1da9a…1dabe Head {h00=0x0020, h01=0x0050, text=» RF(E) FRSTOK FIRST WORD OK!«, t00=0x012f, t01=0x0162}
0x1dabe…1daf2 Head {h00=0x0030, h01=0x0050, text=»SYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S «, t00=0x012f, t01=0x0186}
0x1daf2…1db08 Head {h00=0x0012, h01=0x0050, text=» RF(NN) SYA150«, t00=0x0130, t01=0x002a}
0x1db08…1db2a Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP6 UWB NOT FOUND«, t00=0x0130, t01=0x0040}
0x1db2a…1db3e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0130, t01=0x0062}
0x1db3e…1db52 Head {h00=0x0010, h01=0x0050, text=»SYA150 EQU *«, t00=0x0130, t01=0x0076}
0x1db52…1db7e Head {h00=0x0028, h01=0x0050, text=» ADKL A12,UP:REC ADD TO NEXT RECORD «, t00=0x0130, t01=0x008a}
0x1db7e…1db90 Head {h00=0x000e, h01=0x0050, text=» RB SYA145«, t00=0x0130, t01=0x00b6}
0x1db90…1dbc6 Head {h00=0x0032, h01=0x0050, text=»FRSTOK LC A10,2,A11 GET 3:RD CHAR FROM CONFIG «, t00=0x0130, t01=0x00c8}
0x1dbc6…1dbfa Head {h00=0x0030, h01=0x0050, text=» EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY «, t00=0x0130, t01=0x00fe}
0x1dbfa…1dc0c Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0130, t01=0x0132}
0x1dc0c…1dc22 Head {h00=0x0012, h01=0x0050, text=» ANKL A10,/FF «, t00=0x0130, t01=0x0144}
0x1dc22…1dc36 Head {h00=0x0010, h01=0x0050, text=» CWR A10,A2 «, t00=0x0130, t01=0x015a}
0x1dc36…1dc52 Head {h00=0x0018, h01=0x0050, text=» RB(NE) SYA147 .NEQ.«, t00=0x0130, t01=0x016e}
0x1dc52…1dc60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0130, t01=0x018a}
0x1dc60…1dc6c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0131, t01=0x0008}
0x1dc6c…1dc88 Head {h00=0x0018, h01=0x0050, text=»* PROTOTYPE FOUND * «, t00=0x0131, t01=0x0014}
0x1dc88…1dca4 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0131, t01=0x0030}
0x1dca4…1dcb0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0131, t01=0x004c}
0x1dcb0…1dcec Head {h00=0x0038, h01=0x0050, text=» ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG«, t00=0x0131, t01=0x0058}
0x1dcec…1dd00 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0131, t01=0x0094}
0x1dd00…1dd1c Head {h00=0x0018, h01=0x0050, text=» CALL GETNUM CONVERT«, t00=0x0131, t01=0x00a8}
0x1dd1c…1dd54 Head {h00=0x0034, h01=0x0050, text=» EL A10,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE«, t00=0x0131, t01=0x00c4}
0x1dd54…1dd6c Head {h00=0x0014, h01=0x0050, text=» ANKL A10,/FF00 «, t00=0x0131, t01=0x00fc}
0x1dd6c…1dd80 Head {h00=0x0010, h01=0x0050, text=» ORR A10,A5 «, t00=0x0131, t01=0x0114}
0x1dd80…1dd9c Head {h00=0x0018, h01=0x0050, text=» ES A10,UPNUMB-1,A12«, t00=0x0131, t01=0x0128}
0x1dd9c…1ddce Head {h00=0x002e, h01=0x0050, text=» SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE «, t00=0x0131, t01=0x0144}
0x1ddce…1dde4 Head {h00=0x0012, h01=0x0050, text=» RB(P) SYA142 «, t00=0x0131, t01=0x0176}
0x1dde4…1ddfe Head {h00=0x0016, h01=0x0050, text=» ADKL A11,UDBFST-1«, t00=0x0131, t01=0x018c}
0x1ddfe…1de0e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0132, t01=0x0016}
0x1de0e…1de1a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0132, t01=0x0026}
0x1de1a…1de30 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0132, t01=0x0032}
0x1de30…1de3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0132, t01=0x0048}
0x1de3e…1de52 Head {h00=0x0010, h01=0x0050, text=»SYA152 EQU *«, t00=0x0132, t01=0x0056}
0x1de52…1de5a Head {h00=0x0004, h01=0x0050, t00=0x0132, t01=0x006a}
0x1de5a…1de84 Head {h00=0x0026, h01=0x0050, text=»* GET START OF SYSLOAD AFTER MOVE «, t00=0x0132, t01=0x0072}
0x1de84…1de90 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0132, t01=0x009c}
0x1de90…1de9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0132, t01=0x00a8}
0x1de9c…1deb8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0132, t01=0x00b4}
0x1deb8…1dee8 Head {h00=0x002c, h01=0x0050, text=» LD* A7,T:ATOD,A13 GET LENGTH OF T:ATAB «, t00=0x0132, t01=0x00d0}
0x1dee8…1def4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0132, t01=0x0100}
0x1def4…1df10 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0132, t01=0x010c}
0x1df10…1df3c Head {h00=0x0028, h01=0x0050, text=» EL* A7,T:ATOD,A13 GET T:ATAB LENGTH«, t00=0x0132, t01=0x0128}
0x1df3c…1df6a Head {h00=0x002a, h01=0x0050, text=» SLL A7,1 RESERVE FOR MM-ADDRESS-TABLE«, t00=0x0132, t01=0x0154}
0x1df6a…1df76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0132, t01=0x0182}
0x1df76…1df8c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0132, t01=0x018e}
0x1df8c…1dfc0 Head {h00=0x0030, h01=0x0050, text=» AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE«, t00=0x0133, t01=0x0014}
0x1dfc0…1dfd2 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0133, t01=0x0048}
0x1dfd2…1dff6 Head {h00=0x0020, h01=0x0050, text=» ANKL A7,/FFFE EVEN ADDRESS «, t00=0x0133, t01=0x005a}
0x1dff6…1dffe Head {h00=0x0004, h01=0x0050, t00=0x0133, t01=0x007e}
0x1dffe…1e01c Head {h00=0x001a, h01=0x0050, text=»* CALCULATE RELOCATION«, t00=0x0133, t01=0x0086}
0x1e01c…1e024 Head {h00=0x0004, h01=0x0050, t00=0x0133, t01=0x00a4}
0x1e024…1e038 Head {h00=0x0010, h01=0x0050, text=» LDR A2,A13 «, t00=0x0133, t01=0x00ac}
0x1e038…1e060 Head {h00=0x0024, h01=0x0050, text=» SUR A2,A7 MOVE-LENGTH (SYSLDA) «, t00=0x0133, t01=0x00c0}
0x1e060…1e072 Head {h00=0x000e, h01=0x0050, text=» NGR A2,A2«, t00=0x0133, t01=0x00e8}
0x1e072…1e0aa Head {h00=0x0034, h01=0x0050, text=» ST A2,SAVE04,A13 SAVE NEW RELOCATION TEMPORARY «, t00=0x0133, t01=0x00fa}
0x1e0aa…1e0c6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0133, t01=0x0132}
0x1e0c6…1e0f0 Head {h00=0x0026, h01=0x0050, text=»* CREATE SYSLDA & DDIV MM-TABLE * «, t00=0x0133, t01=0x014e}
0x1e0f0…1e0f8 Head {h00=0x0004, h01=0x0050, t00=0x0133, t01=0x0178}
0x1e0f8…1e11e Head {h00=0x0022, h01=0x0050, text=» LDR A2,A7 TO-ADDRESS (SYSLDA)«, t00=0x0133, t01=0x0180}
0x1e11e…1e140 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/F000 FIRST PAGE «, t00=0x0134, t01=0x0016}
0x1e140…1e16c Head {h00=0x0028, h01=0x0050, text=» ST A2,MMREL1,A13 SAVE PHYSICAL PAGE«, t00=0x0134, t01=0x0038}
0x1e16c…1e192 Head {h00=0x0022, h01=0x0050, text=» SRL A2,2 SHIFT FOR MM-PAGING «, t00=0x0134, t01=0x0064}
0x1e192…1e1aa Head {h00=0x0014, h01=0x0050, text=» LDKL A11,MMDDIV«, t00=0x0134, t01=0x008a}
0x1e1aa…1e1dc Head {h00=0x002e, h01=0x0050, text=» ADR A11,A13 GET MM-TABLE START ADDRESSS= «, t00=0x0134, t01=0x00a2}
0x1e1dc…1e1fa Head {h00=0x001a, h01=0x0050, text=» LDK A3,16 SET COUNTER«, t00=0x0134, t01=0x00d4}
0x1e1fa…1e226 Head {h00=0x0028, h01=0x0050, text=»SYA157 STR A2,A11 STORE PAGE-POINTER«, t00=0x0134, t01=0x00f2}
0x1e226…1e244 Head {h00=0x001a, h01=0x0050, text=» ADKL A11,2 NEXT ENTRY«, t00=0x0134, t01=0x011e}
0x1e244…1e268 Head {h00=0x0020, h01=0x0050, text=» ADKL A2,/400 PAGE INCREMENT«, t00=0x0134, t01=0x013c}
0x1e268…1e27e Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 ALL?«, t00=0x0134, t01=0x0160}
0x1e27e…1e298 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) SYA157 NO!«, t00=0x0134, t01=0x0176}
0x1e298…1e2c4 Head {h00=0x0028, h01=0x0050, text=» ANKL A7,/FFF GET DISPLACEM. IN PAGE«, t00=0x0134, t01=0x0190}
0x1e2c4…1e2d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0135, t01=0x002c}
0x1e2d0…1e2e6 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0135, t01=0x0038}
0x1e2e6…1e31a Head {h00=0x0030, h01=0x0050, text=» ST A7,SAVE12,A13 SAVE (LOGICAL) TO-ADDRESS «, t00=0x0135, t01=0x004e}
0x1e31a…1e34c Head {h00=0x002e, h01=0x0050, text=» ADKL A7,LENGT2 ADD LEN. OF SYSLDA TO MOVE«, t00=0x0135, t01=0x0082}
0x1e34c…1e37c Head {h00=0x002c, h01=0x0050, text=» ST A7,SAVE03,A13 SAVE NEW DDIV ADDRESS «, t00=0x0135, t01=0x00b4}
0x1e37c…1e390 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A7 «, t00=0x0135, t01=0x00e4}
0x1e390…1e3b8 Head {h00=0x0024, h01=0x0050, text=»* CALCULATE DDIV FROM-ADDRESS * «, t00=0x0135, t01=0x00f8}
0x1e3b8…1e3c0 Head {h00=0x0004, h01=0x0050, t00=0x0135, t01=0x0120}
0x1e3c0…1e3e0 Head {h00=0x001c, h01=0x0050, text=» LD A1,SCTLAC GET S:GTAB«, t00=0x0135, t01=0x0128}
0x1e3e0…1e40e Head {h00=0x002a, h01=0x0050, text=» ST A1,SAVE13,A13 SAVE S:GTAB ADDRESS «, t00=0x0135, t01=0x0148}
0x1e40e…1e438 Head {h00=0x0026, h01=0x0050, text=» ST A9,SCTLAC SAVE START OF P:MTAB«, t00=0x0135, t01=0x0176}
0x1e438…1e454 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0136, t01=0x0010}
0x1e454…1e480 Head {h00=0x0028, h01=0x0050, text=» LD A3,NUMSEG,A1 NUMBER OF SEGMENTS «, t00=0x0136, t01=0x002c}
0x1e480…1e48c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0136, t01=0x0058}
0x1e48c…1e4a8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0136, t01=0x0064}
0x1e4a8…1e4d4 Head {h00=0x0028, h01=0x0050, text=» EL A3,NUMSEG,A1 NUMBER OF SEGMENTS «, t00=0x0136, t01=0x0080}
0x1e4d4…1e4e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0136, t01=0x00ac}
0x1e4e0…1e4f6 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0136, t01=0x00b8}
0x1e4f6…1e528 Head {h00=0x002e, h01=0x0050, text=» LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH«, t00=0x0136, t01=0x00ce}
0x1e528…1e53a Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x0136, t01=0x0100}
0x1e53a…1e54c Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0136, t01=0x0112}
0x1e54c…1e576 Head {h00=0x0026, h01=0x0050, text=» ADK A1,NUMSEG+2 => START OF DDIV «, t00=0x0136, t01=0x0124}
0x1e576…1e5ac Head {h00=0x0032, h01=0x0050, text=» LD A2,SAVE04,A13 GET NEW RELOCATION INCREMENT«, t00=0x0136, t01=0x014e}
0x1e5ac…1e5e0 Head {h00=0x0030, h01=0x0050, text=» ADS A2,M:REL,A13 AND ADJUST RELOCATION BASE«, t00=0x0136, t01=0x0184}
0x1e5e0…1e5fc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0137, t01=0x0028}
0x1e5fc…1e604 Head {h00=0x0004, h01=0x0050, t00=0x0137, t01=0x0044}
0x1e604…1e636 Head {h00=0x002e, h01=0x0050, text=» ST A1,SAVE04,A13 SAVE DDIV 'FROM'-ADDRESS«, t00=0x0137, t01=0x004c}
0x1e636…1e642 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0137, t01=0x007e}
0x1e642…1e65e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0137, t01=0x008a}
0x1e65e…1e68e Head {h00=0x002c, h01=0x0050, text=» ST A1,SAVE04,A13 SAVE DDIV FROM-ADDRESS«, t00=0x0137, t01=0x00a6}
0x1e68e…1e69a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0137, t01=0x00d6}
0x1e69a…1e6b0 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0137, t01=0x00e2}
0x1e6b0…1e6d6 Head {h00=0x0022, h01=0x0050, text=» SUR A6,A1 RELOCATION FOR DDIV«, t00=0x0137, t01=0x00f8}
0x1e6d6…1e6e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0137, t01=0x011e}
0x1e6e4…1e6ec Head {h00=0x0004, h01=0x0050, t00=0x0137, t01=0x012c}
0x1e6ec…1e6f8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0137, t01=0x0134}
0x1e6f8…1e704 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0137, t01=0x0140}
0x1e704…1e738 Head {h00=0x0030, h01=0x0050, text=»* RELOCATE ADDRESSES IN T:ATAB AFTER MOVE * «, t00=0x0137, t01=0x014c}
0x1e738…1e76a Head {h00=0x002e, h01=0x0050, text=»* CALCULATE TOTAL (=REAL) LENGTH * «, t00=0x0137, t01=0x0180}
0x1e76a…1e79c Head {h00=0x002e, h01=0x0050, text=»* REMOVE NOT USED ENTRIES IN T:ATAB * «, t00=0x0138, t01=0x0022}
0x1e79c…1e7ce Head {h00=0x002e, h01=0x0050, text=»* A9=P:MTAB A6=MOVE-RELOC * «, t00=0x0138, t01=0x0054}
0x1e7ce…1e800 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0138, t01=0x0086}
0x1e800…1e81c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0138, t01=0x00b8}
0x1e81c…1e824 Head {h00=0x0004, h01=0x0050, t00=0x0138, t01=0x00d4}
0x1e824…1e840 Head {h00=0x0018, h01=0x0050, text=»* INITIATE POINTERS «, t00=0x0138, t01=0x00dc}
0x1e840…1e848 Head {h00=0x0004, h01=0x0050, t00=0x0138, t01=0x00f8}
0x1e848…1e874 Head {h00=0x0028, h01=0x0050, text=» LD A8,T:ATOD,A13 GET T:ATAB ADDRESS«, t00=0x0138, t01=0x0100}
0x1e874…1e892 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A8 GET LENGTH«, t00=0x0138, t01=0x012c}
0x1e892…1e8b2 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A8 END OF T:ATAB«, t00=0x0138, t01=0x014a}
0x1e8b2…1e8d0 Head {h00=0x001a, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE«, t00=0x0138, t01=0x016a}
0x1e8d0…1e904 Head {h00=0x0030, h01=0x0050, text=» LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB«, t00=0x0138, t01=0x0188}
0x1e904…1e924 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A5 2:ND POINTER «, t00=0x0139, t01=0x002c}
0x1e924…1e94e Head {h00=0x0026, h01=0x0050, text=» LDR A2,A8 2:ND POINTER IN T:ATAB «, t00=0x0139, t01=0x004c}
0x1e94e…1e978 Head {h00=0x0026, h01=0x0050, text=» LDK A3,2 SET 'NEW' T:ATAB COUNTER«, t00=0x0139, t01=0x0076}
0x1e978…1e9aa Head {h00=0x002e, h01=0x0050, text=» SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR«, t00=0x0139, t01=0x00a0}
0x1e9aa…1e9b2 Head {h00=0x0004, h01=0x0050, t00=0x0139, t01=0x00d2}
0x1e9b2…1e9c8 Head {h00=0x0012, h01=0x0050, text=»* SCAN T:ATAB:«, t00=0x0139, t01=0x00da}
0x1e9c8…1e9d0 Head {h00=0x0004, h01=0x0050, t00=0x0139, t01=0x00f0}
0x1e9d0…1e9f6 Head {h00=0x0022, h01=0x0050, text=»SYA160 ADKL A8,2 TAKE NEXT T:A«, t00=0x0139, t01=0x00f8}
0x1e9f6…1ea1e Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 NEXT T:A IN SHADOW-TAB«, t00=0x0139, t01=0x011e}
0x1ea1e…1ea38 Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x0139, t01=0x0146}
0x1ea38…1ea56 Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA170 ALL DONE«, t00=0x0139, t01=0x0160}
0x1ea56…1ea72 Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A8 GET T:A «, t00=0x0139, t01=0x017e}
0x1ea72…1eaa0 Head {h00=0x002a, h01=0x0050, text=» LDR* A7,A5 GET CONTENTS OF SHADOW-TAB«, t00=0x013a, t01=0x000a}
0x1eaa0…1ead0 Head {h00=0x002c, h01=0x0050, text=» RB(Z) SYA160 THIS T:A IS NOT USED!!!!! «, t00=0x013a, t01=0x0038}
0x1ead0…1eaf6 Head {h00=0x0022, h01=0x0050, text=» ADR A11,A7 ACCUMULATE LENGTH «, t00=0x013a, t01=0x0068}
0x1eaf6…1eb26 Head {h00=0x002c, h01=0x0050, text=» ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH «, t00=0x013a, t01=0x008e}
0x1eb26…1eb56 Head {h00=0x002c, h01=0x0050, text=» ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS«, t00=0x013a, t01=0x00be}
0x1eb56…1eb82 Head {h00=0x0028, h01=0x0050, text=» ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS«, t00=0x013a, t01=0x00ee}
0x1eb82…1ebbe Head {h00=0x0038, h01=0x0050, text=» STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) «, t00=0x013a, t01=0x011a}
0x1ebbe…1ebe2 Head {h00=0x0020, h01=0x0050, text=» LDR* A10,A8 GET T:A-ADDRESS«, t00=0x013a, t01=0x0156}
0x1ebe2…1ebfe Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x013a, t01=0x017a}
0x1ebfe…1ec30 Head {h00=0x002e, h01=0x0050, text=» STR A10,A2 STORE ADDR. (EV. ON NEW PLACE)«, t00=0x013b, t01=0x0008}
0x1ec30…1ec52 Head {h00=0x001e, h01=0x0050, text=»* RELOCATE W.B.-ADDRESSES «, t00=0x013b, t01=0x003a}
0x1ec52…1ec5a Head {h00=0x0004, h01=0x0050, t00=0x013b, t01=0x005c}
0x1ec5a…1ec82 Head {h00=0x0024, h01=0x0050, text=» LD A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x013b, t01=0x0064}
0x1ec82…1ecaa Head {h00=0x0024, h01=0x0050, text=» LD A7,WATLEN,A12 LENGTH OF WAT «, t00=0x013b, t01=0x008c}
0x1ecaa…1ecdc Head {h00=0x002e, h01=0x0050, text=» ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS«, t00=0x013b, t01=0x00b4}
0x1ecdc…1ed00 Head {h00=0x0020, h01=0x0050, text=»SYA165 SUK A7,1 DEC. COUNTER«, t00=0x013b, t01=0x00e6}
0x1ed00…1ed24 Head {h00=0x0020, h01=0x0050, text=» RB(N) SYA160 TAKE NEXT T:A «, t00=0x013b, t01=0x010a}
0x1ed24…1ed40 Head {h00=0x0018, h01=0x0050, text=» ADRS A6,A1 RELOCATE«, t00=0x013b, t01=0x012e}
0x1ed40…1ed4c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013b, t01=0x014a}
0x1ed4c…1ed68 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x013b, t01=0x0156}
0x1ed68…1ed70 Head {h00=0x0004, h01=0x0050, t00=0x013b, t01=0x0172}
0x1ed70…1ed8c Head {h00=0x0018, h01=0x0050, text=»* INITIATE POINTERS «, t00=0x013b, t01=0x017a}
0x1ed8c…1ed94 Head {h00=0x0004, h01=0x0050, t00=0x013c, t01=0x0008}
0x1ed94…1edb4 Head {h00=0x001c, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB«, t00=0x013c, t01=0x0010}
0x1edb4…1edd2 Head {h00=0x001a, h01=0x0050, text=» ELR A3,A8 GET LENGTH «, t00=0x013c, t01=0x0030}
0x1edd2…1edf2 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A8 END OF T:ATAB«, t00=0x013c, t01=0x004e}
0x1edf2…1ee10 Head {h00=0x001a, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE«, t00=0x013c, t01=0x006e}
0x1ee10…1ee44 Head {h00=0x0030, h01=0x0050, text=» LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB«, t00=0x013c, t01=0x008c}
0x1ee44…1ee64 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A5 2:ND POINTER «, t00=0x013c, t01=0x00c0}
0x1ee64…1ee8e Head {h00=0x0026, h01=0x0050, text=» LDR A2,A8 2:ND POINTER IN T:ATAB «, t00=0x013c, t01=0x00e0}
0x1ee8e…1eeb8 Head {h00=0x0026, h01=0x0050, text=» LDK A3,2 SET 'NEW' T:ATAB COUNTER«, t00=0x013c, t01=0x010a}
0x1eeb8…1eeea Head {h00=0x002e, h01=0x0050, text=» SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR«, t00=0x013c, t01=0x0134}
0x1eeea…1eef2 Head {h00=0x0004, h01=0x0050, t00=0x013c, t01=0x0166}
0x1eef2…1ef08 Head {h00=0x0012, h01=0x0050, text=»* SCAN T:ATAB:«, t00=0x013c, t01=0x016e}
0x1ef08…1ef10 Head {h00=0x0004, h01=0x0050, t00=0x013c, t01=0x0184}
0x1ef10…1ef36 Head {h00=0x0022, h01=0x0050, text=»SYA160 ADKL A8,2 TAKE NEXT T:A«, t00=0x013c, t01=0x018c}
0x1ef36…1ef5e Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 NEXT T:A IN SHADOW-TAB«, t00=0x013d, t01=0x0022}
0x1ef5e…1ef78 Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x013d, t01=0x004a}
0x1ef78…1ef96 Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA170 ALL DONE«, t00=0x013d, t01=0x0064}
0x1ef96…1efb0 Head {h00=0x0016, h01=0x0050, text=» ELR A1,A8 GET T:A«, t00=0x013d, t01=0x0082}
0x1efb0…1efde Head {h00=0x002a, h01=0x0050, text=» LDR* A7,A5 GET CONTENTS OF SHADOW-TAB«, t00=0x013d, t01=0x009c}
0x1efde…1f00e Head {h00=0x002c, h01=0x0050, text=» RB(Z) SYA160 THIS T:A IS NOT USED!!!!! «, t00=0x013d, t01=0x00ca}
0x1f00e…1f034 Head {h00=0x0022, h01=0x0050, text=» ADR A11,A7 ACCUMULATE LENGTH «, t00=0x013d, t01=0x00fa}
0x1f034…1f064 Head {h00=0x002c, h01=0x0050, text=» ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH «, t00=0x013d, t01=0x0120}
0x1f064…1f094 Head {h00=0x002c, h01=0x0050, text=» ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS«, t00=0x013d, t01=0x0150}
0x1f094…1f0c0 Head {h00=0x0028, h01=0x0050, text=» ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS«, t00=0x013d, t01=0x0180}
0x1f0c0…1f0fc Head {h00=0x0038, h01=0x0050, text=» STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) «, t00=0x013e, t01=0x001c}
0x1f0fc…1f120 Head {h00=0x0020, h01=0x0050, text=» ELR A10,A8 GET T:A-ADDRESS «, t00=0x013e, t01=0x0058}
0x1f120…1f13c Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x013e, t01=0x007c}
0x1f13c…1f16e Head {h00=0x002e, h01=0x0050, text=» ESR A10,A2 STORE ADDR. (EV. ON NEW PLACE)«, t00=0x013e, t01=0x0098}
0x1f16e…1f190 Head {h00=0x001e, h01=0x0050, text=»* RELOCATE W.B.-ADDRESSES «, t00=0x013e, t01=0x00ca}
0x1f190…1f198 Head {h00=0x0004, h01=0x0050, t00=0x013e, t01=0x00ec}
0x1f198…1f1c0 Head {h00=0x0024, h01=0x0050, text=» EL A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x013e, t01=0x00f4}
0x1f1c0…1f1e8 Head {h00=0x0024, h01=0x0050, text=» EL A7,WATLEN,A12 LENGTH OF WAT «, t00=0x013e, t01=0x011c}
0x1f1e8…1f21a Head {h00=0x002e, h01=0x0050, text=» ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS«, t00=0x013e, t01=0x0144}
0x1f21a…1f23e Head {h00=0x0020, h01=0x0050, text=»SYA165 SUK A7,1 DEC. COUNTER«, t00=0x013e, t01=0x0176}
0x1f23e…1f262 Head {h00=0x0020, h01=0x0050, text=» RB(N) SYA160 TAKE NEXT T:A «, t00=0x013f, t01=0x000a}
0x1f262…1f282 Head {h00=0x001c, h01=0x0050, text=» ELR A10,A1 GET ADDRESS «, t00=0x013f, t01=0x002e}
0x1f282…1f29e Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x013f, t01=0x004e}
0x1f29e…1f2b2 Head {h00=0x0010, h01=0x0050, text=» ESR A10,A1 «, t00=0x013f, t01=0x006a}
0x1f2b2…1f2be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013f, t01=0x007e}
0x1f2be…1f2d4 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x013f, t01=0x008a}
0x1f2d4…1f2f0 Head {h00=0x0018, h01=0x0050, text=» ADK A1,4 NEXT W.B. «, t00=0x013f, t01=0x00a0}
0x1f2f0…1f302 Head {h00=0x000e, h01=0x0050, text=» RB SYA165«, t00=0x013f, t01=0x00bc}
0x1f302…1f30a Head {h00=0x0004, h01=0x0050, t00=0x013f, t01=0x00ce}
0x1f30a…1f31e Head {h00=0x0010, h01=0x0050, text=»SYA170 EQU *«, t00=0x013f, t01=0x00d6}
0x1f31e…1f33c Head {h00=0x001a, h01=0x0050, text=» ST A6,MOVADD,A13 SAVE«, t00=0x013f, t01=0x00ea}
0x1f33c…1f378 Head {h00=0x0038, h01=0x0050, text=» ST* A3,SCTSFA STORE NEW TABLE LENGTH IN SHADOW-TAB «, t00=0x013f, t01=0x0108}
0x1f378…1f394 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x013f, t01=0x0144}
0x1f394…1f3bc Head {h00=0x0024, h01=0x0050, text=» ES* A3,T:ATOD,A13 AND IN T:ATAB«, t00=0x013f, t01=0x0160}
0x1f3bc…1f3c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013f, t01=0x0188}
0x1f3c8…1f3e4 (320, 0, 400) Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0140, t01=0x0004}
0x1f3e4…1f40c Head {h00=0x0024, h01=0x0050, text=» ST* A3,T:ATOD,A13 AND IN T:ATAB«, t00=0x0140, t01=0x0020}
0x1f40c…1f418 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0140, t01=0x0048}
0x1f418…1f42e Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0140, t01=0x0054}
0x1f42e…1f462 Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR «, t00=0x0140, t01=0x006a}
0x1f462…1f48e Head {h00=0x0028, h01=0x0050, text=» SLL A2,1 CALC. REAL LENGTH (BYTES) «, t00=0x0140, t01=0x009e}
0x1f48e…1f4a0 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0140, t01=0x00ca}
0x1f4a0…1f4d4 Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'S «, t00=0x0140, t01=0x00dc}
0x1f4d4…1f4e0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0140, t01=0x0110}
0x1f4e0…1f4ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0140, t01=0x011c}
0x1f4ee…1f514 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0140, t01=0x012a}
0x1f514…1f53c Head {h00=0x0024, h01=0x0050, text=»* RELOCATE ADDRESSES IN U:BTAB *«, t00=0x0140, t01=0x0150}
0x1f53c…1f564 Head {h00=0x0024, h01=0x0050, text=»* (REAL LENGTH=PROTOTYPE LEN.) *«, t00=0x0140, t01=0x0178}
0x1f564…1f58c Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0141, t01=0x0010}
0x1f58c…1f594 Head {h00=0x0004, h01=0x0050, t00=0x0141, t01=0x0038}
0x1f594…1f5b0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0141, t01=0x0040}
0x1f5b0…1f5d8 Head {h00=0x0024, h01=0x0050, text=» LD A5,U:BTOD,A13 U:BTAB ADDRESS«, t00=0x0141, t01=0x005c}
0x1f5d8…1f5f2 Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A5 LENGTH«, t00=0x0141, t01=0x0084}
0x1f5f2…1f60c Head {h00=0x0016, h01=0x0050, text=» ST A3,SAVE06,A13 «, t00=0x0141, t01=0x009e}
0x1f60c…1f62e Head {h00=0x001e, h01=0x0050, text=» ADK A5,2 SKIP LENGTH WORD«, t00=0x0141, t01=0x00b8}
0x1f62e…1f646 Head {h00=0x0014, h01=0x0050, text=» SUK A3,2 -"- «, t00=0x0141, t01=0x00da}
0x1f646…1f66c Head {h00=0x0022, h01=0x0050, text=»SYA180 RF(Z) SYA185 ALL DONE! «, t00=0x0141, t01=0x00f2}
0x1f66c…1f688 Head {h00=0x0018, h01=0x0050, text=» ADRS A6,A5 RELOCATE«, t00=0x0141, t01=0x0118}
0x1f688…1f694 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0141, t01=0x0134}
0x1f694…1f6b0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0141, t01=0x0140}
0x1f6b0…1f6d8 Head {h00=0x0024, h01=0x0050, text=» LD A5,U:BTOD,A13 U:BTAB ADDRESS«, t00=0x0141, t01=0x015c}
0x1f6d8…1f6f8 Head {h00=0x001c, h01=0x0050, text=» ELR A3,A5 TABLE LENGTH «, t00=0x0141, t01=0x0184}
0x1f6f8…1f728 Head {h00=0x002c, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB «, t00=0x0142, t01=0x0014}
0x1f728…1f73a Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x0142, t01=0x0044}
0x1f73a…1f75c Head {h00=0x001e, h01=0x0050, text=» SUK A3,2 SUB LENGTH-WORD «, t00=0x0142, t01=0x0056}
0x1f75c…1f778 Head {h00=0x0018, h01=0x0050, text=»SYA180 RF(Z) SYA185 «, t00=0x0142, t01=0x0078}
0x1f778…1f798 Head {h00=0x001c, h01=0x0050, text=» ELR A10,A5 GET ADDRESS «, t00=0x0142, t01=0x0094}
0x1f798…1f7b4 Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x0142, t01=0x00b4}
0x1f7b4…1f7c8 Head {h00=0x0010, h01=0x0050, text=» ESR A10,A5 «, t00=0x0142, t01=0x00d0}
0x1f7c8…1f7d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0142, t01=0x00e4}
0x1f7d4…1f7ea Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0142, t01=0x00f0}
0x1f7ea…1f826 Head {h00=0x0038, h01=0x0050, text=» ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP«, t00=0x0142, t01=0x0106}
0x1f826…1f83c Head {h00=0x0012, h01=0x0050, text=» SUK A3,UP:REC«, t00=0x0142, t01=0x0142}
0x1f83c…1f84e Head {h00=0x000e, h01=0x0050, text=» RB SYA180«, t00=0x0142, t01=0x0158}
0x1f84e…1f85c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0142, t01=0x016a}
0x1f85c…1f870 Head {h00=0x0010, h01=0x0050, text=»SYA185 EQU *«, t00=0x0142, t01=0x0178}
0x1f870…1f88c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x0142, t01=0x018c}
0x1f88c…1f896 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x0018}
0x1f896…1f8be Head {h00=0x0024, h01=0x0050, text=»* COMPUTE REAL LENGTH OF S:BTAB«, t00=0x0143, t01=0x0022}
0x1f8be…1f8c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x004a}
0x1f8c8…1f8f0 Head {h00=0x0024, h01=0x0050, text=» LD A5,S:BTOD,A13 S:BTAB ADDRESS«, t00=0x0143, t01=0x0054}
0x1f8f0…1f916 Head {h00=0x0022, h01=0x0050, text=» ELR A3,A5 LENGTH OF PROTOTYPE«, t00=0x0143, t01=0x007c}
0x1f916…1f92e Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x0143, t01=0x00a2}
0x1f92e…1f954 Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 EXCLUDE LENGTH WORD «, t00=0x0143, t01=0x00ba}
0x1f954…1f984 Head {h00=0x002c, h01=0x0050, text=»SYA190 RF(Z) SYA199 ALL RECORDS SCANNED!«, t00=0x0143, t01=0x00e0}
0x1f984…1f9ac Head {h00=0x0024, h01=0x0050, text=» EL A4,2,A5 GET PROT. W.B.-ADDR.«, t00=0x0143, t01=0x0110}
0x1f9ac…1f9c8 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A6 RELOCATE «, t00=0x0143, t01=0x0138}
0x1f9c8…1f9ea Head {h00=0x001e, h01=0x0050, text=» ES A4,2,A5 STORE IT BACK «, t00=0x0143, t01=0x0154}
0x1f9ea…1fa1a Head {h00=0x002c, h01=0x0050, text=» EL A4,UPNUMB-1,A5 GET NUMBER OF COPIES «, t00=0x0143, t01=0x0176}
0x1fa1a…1fa3c Head {h00=0x001e, h01=0x0050, text=» ANK A4,/FF GET RIGHT BYTE«, t00=0x0144, t01=0x0016}
0x1fa3c…1fa6e Head {h00=0x002e, h01=0x0050, text=»SYA192 RF(Z) SYA194 NO MOORE OF THIS TYPE!«, t00=0x0144, t01=0x0038}
0x1fa6e…1fa90 Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 INCREMENT LENGTH«, t00=0x0144, t01=0x006a}
0x1fa90…1fabc Head {h00=0x0028, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF COPIES«, t00=0x0144, t01=0x008c}
0x1fabc…1face Head {h00=0x000e, h01=0x0050, text=» RB SYA192«, t00=0x0144, t01=0x00b8}
0x1face…1fb0a Head {h00=0x0038, h01=0x0050, text=»SYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE«, t00=0x0144, t01=0x00ca}
0x1fb0a…1fb32 Head {h00=0x0024, h01=0x0050, text=» SUK A3,UP:REC DECREMENT LENGTH «, t00=0x0144, t01=0x0106}
0x1fb32…1fb44 Head {h00=0x000e, h01=0x0050, text=» RB SYA190«, t00=0x0144, t01=0x012e}
0x1fb44…1fb50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0144, t01=0x0140}
0x1fb50…1fb6c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x0144, t01=0x014c}
0x1fb6c…1fb94 Head {h00=0x0024, h01=0x0050, text=» LD A5,S:BTOD,A13 S:BTAB ADDRESS«, t00=0x0144, t01=0x0168}
0x1fb94…1fbc2 Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE«, t00=0x0144, t01=0x0190}
0x1fbc2…1fbda Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x0145, t01=0x002e}
0x1fbda…1fc00 Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 EXCLUDE LENGTH WORD «, t00=0x0145, t01=0x0046}
0x1fc00…1fc30 Head {h00=0x002c, h01=0x0050, text=»SYA195 RF(Z) SYA199 ALL RECORDS SCANNED!«, t00=0x0145, t01=0x006c}
0x1fc30…1fc58 Head {h00=0x0024, h01=0x0050, text=» LD A4,2,A5 GET PROT. W.B.-ADDR.«, t00=0x0145, t01=0x009c}
0x1fc58…1fc74 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A6 RELOCATE «, t00=0x0145, t01=0x00c4}
0x1fc74…1fc96 Head {h00=0x001e, h01=0x0050, text=» ST A4,2,A5 STORE IT BACK «, t00=0x0145, t01=0x00e0}
0x1fc96…1fcc6 Head {h00=0x002c, h01=0x0050, text=» LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES «, t00=0x0145, t01=0x0102}
0x1fcc6…1fcda Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0145, t01=0x0132}
0x1fcda…1fd0c Head {h00=0x002e, h01=0x0050, text=»SYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE!«, t00=0x0145, t01=0x0146}
0x1fd0c…1fd2e Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 INCREMENT LENGTH«, t00=0x0145, t01=0x0178}
0x1fd2e…1fd5a Head {h00=0x0028, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF COPIES«, t00=0x0146, t01=0x000a}
0x1fd5a…1fd6c Head {h00=0x000e, h01=0x0050, text=» RB SYA196«, t00=0x0146, t01=0x0036}
0x1fd6c…1fda8 Head {h00=0x0038, h01=0x0050, text=»SYA198 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE«, t00=0x0146, t01=0x0048}
0x1fda8…1fdd0 Head {h00=0x0024, h01=0x0050, text=» SUK A3,UP:REC DECREMENT LENGTH «, t00=0x0146, t01=0x0084}
0x1fdd0…1fde2 Head {h00=0x000e, h01=0x0050, text=» RB SYA195«, t00=0x0146, t01=0x00ac}
0x1fde2…1fdee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0146, t01=0x00be}
0x1fdee…1fe0a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0146, t01=0x00ca}
0x1fe0a…1fe3e Head {h00=0x0030, h01=0x0050, text=»SYA199 ST A2,SAVE25,A13 SAVE COMPUTED LENGTH«, t00=0x0146, t01=0x00e6}
0x1fe3e…1fe4a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0146, t01=0x011a}
0x1fe4a…1fe60 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0146, t01=0x0126}
0x1fe60…1fe6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0146, t01=0x013c}
0x1fe6e…1fe76 Head {h00=0x0004, h01=0x0050, t00=0x0146, t01=0x014a}
0x1fe76…1feb0 Head {h00=0x0036, h01=0x0050, text=»* RELOCATE T:ATAB- AND U:BTAB-ADDRESSES IN P:MTAB «, t00=0x0146, t01=0x0152}
0x1feb0…1febc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0146, t01=0x018c}
0x1febc…1fed6 Head {h00=0x0016, h01=0x0050, text=» ADS A6,T:ATOD,A13«, t00=0x0147, t01=0x0008}
0x1fed6…1fef0 Head {h00=0x0016, h01=0x0050, text=» ADS A6,U:BTOD,A13«, t00=0x0147, t01=0x0022}
0x1fef0…1ff0c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0147, t01=0x003c}
0x1ff0c…1ff26 Head {h00=0x0016, h01=0x0050, text=» ADS A6,S:BTOD,A13«, t00=0x0147, t01=0x0058}
0x1ff26…1ff32 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0147, t01=0x0072}
0x1ff32…1ff4e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0147, t01=0x007e}
0x1ff4e…1ff6e Head {h00=0x001c, h01=0x0050, text=»* CALCULATE NEW DDIV END«, t00=0x0147, t01=0x009a}
0x1ff6e…1ff76 Head {h00=0x0004, h01=0x0050, t00=0x0147, t01=0x00ba}
0x1ff76…1ff88 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x0147, t01=0x00c2}
0x1ff88…1ffac Head {h00=0x0020, h01=0x0050, text=» SU A5,SAVE04,A13 END-START «, t00=0x0147, t01=0x00d4}
0x1ffac…1ffd4 Head {h00=0x0024, h01=0x0050, text=» AD A5,SAVE12,A13 ADD NEW START «, t00=0x0147, t01=0x00f8}
0x1ffd4…1fff2 Head {h00=0x001a, h01=0x0050, text=» ST A5,DATEND,A13 SAVE«, t00=0x0147, t01=0x0120}
0x1fff2…1fffe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0147, t01=0x013e}
0x1fffe…2001a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0147, t01=0x014a}
0x2001a…20022 Head {h00=0x0004, h01=0x0050, t00=0x0147, t01=0x0166}
0x20022…2002a Head {h00=0x0004, h01=0x0050, t00=0x0147, t01=0x016e}
0x2002a…2004c Head {h00=0x001e, h01=0x0050, text=»* STORE MMTABLE ADDRESSES «, t00=0x0147, t01=0x0176}
0x2004c…20054 Head {h00=0x0004, h01=0x0050, t00=0x0148, t01=0x0008}
0x20054…2006a Head {h00=0x0012, h01=0x0050, text=» LDK A4,MMDDIV«, t00=0x0148, t01=0x0010}
0x2006a…20090 Head {h00=0x0022, h01=0x0050, text=» ADR A4,A13 GET TABLE ADDRESS «, t00=0x0148, t01=0x0026}
0x20090…200ba Head {h00=0x0026, h01=0x0050, text=» LDR A5,A13 CALC. REAL RELOCATION «, t00=0x0148, t01=0x004c}
0x200ba…200d4 Head {h00=0x0016, h01=0x0050, text=» SU A5,SAVE12,A13 «, t00=0x0148, t01=0x0076}
0x200d4…200ee Head {h00=0x0016, h01=0x0050, text=» SU A5,MMREL1,A13 «, t00=0x0148, t01=0x0090}
0x200ee…2010a Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 RELOCATE «, t00=0x0148, t01=0x00aa}
0x2010a…2012a Head {h00=0x001c, h01=0x0050, text=» ST A4,MMTO,A13 AND SAVE«, t00=0x0148, t01=0x00c6}
0x2012a…20140 Head {h00=0x0012, h01=0x0050, text=» LDK A4,MMTAB «, t00=0x0148, t01=0x00e6}
0x20140…20168 Head {h00=0x0024, h01=0x0050, text=» ADR A4,A13 'WORK-TABLE' ADDRESS«, t00=0x0148, t01=0x00fc}
0x20168…20184 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 RELOCATE «, t00=0x0148, t01=0x0124}
0x20184…2019e Head {h00=0x0016, h01=0x0050, text=» ST A4,MMFROM,A13 «, t00=0x0148, t01=0x0140}
0x2019e…201ba Head {h00=0x0018, h01=0x0050, text=»* CALCULATE DDIV END«, t00=0x0148, t01=0x015a}
0x201ba…201c2 Head {h00=0x0004, h01=0x0050, t00=0x0148, t01=0x0176}
0x201c2…201de Head {h00=0x0018, h01=0x0050, text=» LDR A5,A9 DDIV END «, t00=0x0148, t01=0x017e}
0x201de…20202 Head {h00=0x0020, h01=0x0050, text=» SU A5,SAVE04,A13 ENT-START «, t00=0x0149, t01=0x000a}
0x20202…2022a Head {h00=0x0024, h01=0x0050, text=» AD A5,SAVE12,A13 ADD NEW START «, t00=0x0149, t01=0x002e}
0x2022a…2023c Head {h00=0x000e, h01=0x0050, text=» LDR A6,A5«, t00=0x0149, t01=0x0056}
0x2023c…20270 Head {h00=0x0030, h01=0x0050, text=» ANKL A6,/F000 GET LOGICALL PAGE (MM-ENTRY) «, t00=0x0149, t01=0x0068}
0x20270…20298 Head {h00=0x0024, h01=0x0050, text=» SRL A6,11 ADJUST FOR ADDRESSING«, t00=0x0149, t01=0x009c}
0x20298…202ca Head {h00=0x002e, h01=0x0050, text=» ADK A6,MMDDIV ADD RELATIVE START ADDRESS «, t00=0x0149, t01=0x00c4}
0x202ca…202e6 Head {h00=0x0018, h01=0x0050, text=» ADR A6,A13 RELOCATE«, t00=0x0149, t01=0x00f6}
0x202e6…20310 Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A6 GET MM-TABLE CONTENTS «, t00=0x0149, t01=0x0112}
0x20310…2032e Head {h00=0x001a, h01=0x0050, text=» ST A6,FSTPAG,A13 SAVE«, t00=0x0149, t01=0x013c}
0x2032e…20354 Head {h00=0x0022, h01=0x0050, text=» ANKL A5,/FFF GET DISPLACEMENT«, t00=0x0149, t01=0x015a}
0x20354…20376 Head {h00=0x001e, h01=0x0050, text=» ST A5,FSTADR,A13 AND SAVE«, t00=0x0149, t01=0x0180}
0x20376…20382 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014a, t01=0x0012}
0x20382…20398 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x014a, t01=0x001e}
0x20398…203b6 Head {h00=0x001a, h01=0x0050, text=»* CONTINUE IN PART 2 *«, t00=0x014a, t01=0x0034}
0x203b6…203c2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x014a, t01=0x0052}
0x203c2…203f4 Head {h00=0x002e, h01=0x0050, text=» LD A2,SAVE12,A13 GET TO-ADDRESS (SYSLDA) «, t00=0x014a, t01=0x005e}
0x203f4…20420 Head {h00=0x0028, h01=0x0050, text=» OR A2,MMREL1,A13 PHYSICALL ADDRESS «, t00=0x014a, t01=0x0090}
0x20420…20438 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A2 SAVE «, t00=0x014a, t01=0x00bc}
0x20438…2046c Head {h00=0x0030, h01=0x0050, text=» LDKL A7,START2 GET EXECUTION START ADDRESS «, t00=0x014a, t01=0x00d4}
0x2046c…2047e Head {h00=0x000e, h01=0x0050, text=» ADR A7,A2«, t00=0x014a, t01=0x0108}
0x2047e…204a4 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,LENGT2 SYSLDA LENGTH «, t00=0x014a, t01=0x011a}
0x204a4…204c4 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A13 FROM-ADDRESS«, t00=0x014a, t01=0x0140}
0x204c4…204cc Head {h00=0x0004, h01=0x0050, t00=0x014a, t01=0x0160}
0x204cc…204e4 Head {h00=0x0014, h01=0x0050, text=»* MOVE SYSLDA * «, t00=0x014a, t01=0x0168}
0x204e4…204ec Head {h00=0x0004, h01=0x0050, t00=0x014a, t01=0x0180}
0x204ec…20508 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x014a, t01=0x0188}
0x20508…2052a Head {h00=0x001e, h01=0x0050, text=»NXTMOV LDR* A4,A1 GET WORD«, t00=0x014b, t01=0x0014}
0x2052a…20548 Head {h00=0x001a, h01=0x0050, text=» STR A4,A2 STORE WORD «, t00=0x014b, t01=0x0036}
0x20548…2055a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x014b, t01=0x0054}
0x2055a…2056c Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x014b, t01=0x0066}
0x2056c…2058a Head {h00=0x001a, h01=0x0050, text=» SUK A3,2 DEC. LENGTH «, t00=0x014b, t01=0x0078}
0x2058a…205a0 Head {h00=0x0012, h01=0x0050, text=» RB(NN) NXTMOV«, t00=0x014b, t01=0x0096}
0x205a0…205ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014b, t01=0x00ac}
0x205ac…205c8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x014b, t01=0x00b8}
0x205c8…205d8 Head {h00=0x000c, h01=0x0050, text=» MVB A3 «, t00=0x014b, t01=0x00d4}
0x205d8…205e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014b, t01=0x00e4}
0x205e4…205fa Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x014b, t01=0x00f0}
0x205fa…20602 Head {h00=0x0004, h01=0x0050, t00=0x014b, t01=0x0106}
0x20602…20630 Head {h00=0x002a, h01=0x0050, text=» ABR A7 HEJ SVEJS! VI SES I PART 2... «, t00=0x014b, t01=0x010e}
0x20630…2063c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014b, t01=0x013c}
0x2063c…20652 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x014b, t01=0x0148}
0x20652…20668 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x014b, t01=0x015e}
0x20668…20690 Head {h00=0x0024, h01=0x0050, text=» CALL ERROR INCONSISTENT MONITOR«, t00=0x014b, t01=0x0174}
0x20690…2069c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014c, t01=0x000c}
0x2069c…206b0 Head {h00=0x0010, h01=0x0050, text=»LDAEND EQU *«, t00=0x014c, t01=0x0018}
0x206b0…206bc Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x014c, t01=0x002c}
0x206bc…206c0 Head {h00=0x4004, h01=0x0000}
0x206c0…206c4 01 4c 00 38 ┆ L 8┆
0x206c4…206cc (333, 1, 8) 20 04 00 00 01 4d 00 04 ┆ M ┆
0x206cc…2071c (334, 0, 400) 50 20 54 4f 20 27 4e 55 4d 42 45 52 20 4f 46 20 42 4f 43 4b 53 27 20 49 4e 20 43 4f 4e 46 49 47 01 2d 01 7c 00 10 00 50 5c 4c 44 52 5c 41 36 2c 41 31 31 20 01 2e 00 28 00 18 00 50 5c 43 41 4c 4c 5c 47 45 54 4e 55 4d 5c 43 4f 4e 56 45 52 54 ┆P TO 'NUMBER OF BOCKS' IN CONFIG - | P LDR A6,A11 . ( P CALL GETNUM CONVERT┆
0x2071c…2076c 01 2e 00 3c 00 32 00 50 5c 53 43 5c 41 35 2c 55 50 4e 55 4d 42 2c 41 31 32 5c 53 41 56 45 20 49 4e 20 55 3a 42 54 41 42 20 28 53 48 41 44 4f 57 54 41 42 4c 45 29 01 2e 00 58 00 2e 00 50 5c 53 55 4b 5c 41 31 2c 31 5c 44 45 43 2e 20 4e 4f 20 ┆ . < 2 P SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE) . X . P SUK A1,1 DEC. NO ┆
0x2076c…207bc 4f 46 20 54 59 50 45 53 20 49 4e 20 43 4f 4e 46 49 47 20 46 49 4c 45 20 01 2e 00 8e 00 12 00 50 5c 52 42 28 50 29 5c 53 59 41 31 34 32 20 01 2e 00 c0 00 16 00 50 5c 41 44 4b 4c 5c 41 31 31 2c 55 44 42 46 53 54 2d 31 01 2e 00 d6 00 0c 00 50 ┆OF TYPES IN CONFIG FILE . P RB(P) SYA142 . P ADKL A11,UDBFST-1 . P┆
0x207bc…2080c 5c 52 54 4e 5c 41 31 34 01 2e 00 f0 00 08 00 50 5c 58 49 46 01 2e 01 00 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2b 4d 4d 55 50 41 47 3d 32 01 2e 01 0c 00 10 00 50 5c 41 44 4b 4c 5c 41 31 31 2c 31 20 01 2e 01 28 00 10 00 50 5c 4c 44 52 ┆ RTN A14 . P XIF . P IFT CREDIT+MMUPAG=2 . P ADKL A11,1 . ( P LDR┆
0x2080c…2085c 5c 41 36 2c 41 31 31 20 01 2e 01 3c 00 2a 00 50 5c 43 41 4c 4c 5c 47 45 54 4e 55 4d 5c 50 41 43 4b 20 33 20 44 49 47 2e 20 52 45 53 55 4c 54 20 49 4e 20 41 35 20 01 2e 01 50 00 24 00 50 5c 4c 44 52 5c 41 31 2c 41 35 5c 53 41 56 45 20 4e 55 ┆ A6,A11 . < * P CALL GETNUM PACK 3 DIG. RESULT IN A5 . P $ P LDR A1,A5 SAVE NU┆
0x2085c…208ac (335, 0, 400) 4d 42 45 52 20 4f 46 20 55 57 42 27 53 20 01 2e 01 7e 00 10 00 50 53 59 41 31 34 32 5c 45 51 55 5c 2a 01 2f 00 16 00 1e 00 50 5c 4c 44 52 5c 41 31 32 2c 41 38 5c 53 54 41 52 54 20 4f 46 20 54 41 42 4c 45 01 2f 00 2a 00 20 00 50 5c 45 4c 52 ┆MBER OF UWB'S . ~ PSYA142 EQU * / P LDR A12,A8 START OF TABLE / * P ELR┆
0x208ac…208fc 5c 41 33 2c 41 31 32 5c 4c 45 4e 47 54 48 20 4f 46 20 55 3a 42 54 41 42 01 2f 00 4c 00 28 00 50 5c 41 44 4b 4c 5c 41 31 31 2c 55 44 42 46 53 54 2d 31 5c 46 49 52 53 54 20 55 44 42 20 52 45 43 4f 52 44 20 01 2f 00 70 00 10 00 50 53 59 41 31 ┆ A3,A12 LENGTH OF U:BTAB / L ( P ADKL A11,UDBFST-1 FIRST UDB RECORD / p PSYA1┆
0x208fc…2094c 34 35 5c 45 51 55 5c 2a 01 2f 00 9c 00 30 00 50 5c 4c 43 52 5c 41 32 2c 41 31 31 5c 47 45 54 20 46 49 52 53 54 20 43 48 41 52 41 43 54 45 52 20 46 52 4f 4d 20 43 4f 4e 46 49 47 20 01 2f 00 b0 00 0e 00 50 5c 53 4c 4c 5c 41 32 2c 38 20 01 2f ┆45 EQU * / 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG / P SLL A2,8 /┆
0x2094c…2099c 00 e4 00 1e 00 50 5c 4c 43 5c 41 32 2c 31 2c 41 31 31 5c 47 45 54 20 32 3a 4e 44 20 43 48 41 52 01 2f 00 f6 00 32 00 50 5c 45 4c 5c 41 31 30 2c 55 50 4e 41 4d 45 2c 41 31 32 5c 47 45 54 20 46 49 52 53 54 20 57 4f 52 44 20 49 4e 20 50 52 4f ┆ P LC A2,1,A11 GET 2:ND CHAR / 2 P EL A10,UPNAME,A12 GET FIRST WORD IN PRO┆
0x2099c…209ec 54 4f 54 59 50 45 01 2f 01 18 00 10 00 50 5c 43 57 52 5c 41 32 2c 41 31 30 20 01 2f 01 4e 00 20 00 50 5c 52 46 28 45 29 5c 46 52 53 54 4f 4b 5c 46 49 52 53 54 20 57 4f 52 44 20 4f 4b 21 01 2f 01 62 00 30 00 50 53 59 41 31 34 37 5c 53 55 4b ┆TOTYPE / P CWR A2,A10 / N P RF(E) FRSTOK FIRST WORD OK! / b 0 PSYA147 SUK┆
0x209ec…20a3c (336, 0, 400) 5c 41 33 2c 55 50 3a 52 45 43 5c 44 45 43 2e 20 4e 55 4d 42 45 52 20 4f 46 20 50 52 4f 54 2e 27 53 20 01 2f 01 86 00 12 00 50 5c 52 46 28 4e 4e 29 5c 53 59 41 31 35 30 01 30 00 2a 00 1e 00 50 5c 4c 44 4b 5c 41 31 2c 4c 4d 50 36 5c 55 57 42 ┆ A3,UP:REC DEC. NUMBER OF PROT.'S / P RF(NN) SYA150 0 * P LDK A1,LMP6 UWB┆
0x20a3c…20a8c 20 4e 4f 54 20 46 4f 55 4e 44 01 30 00 40 00 10 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 20 01 30 00 62 00 10 00 50 53 59 41 31 35 30 5c 45 51 55 5c 2a 01 30 00 76 00 28 00 50 5c 41 44 4b 4c 5c 41 31 32 2c 55 50 3a 52 45 43 5c 41 44 44 20 54 ┆ NOT FOUND 0 @ P CALL ERROR 0 b PSYA150 EQU * 0 v ( P ADKL A12,UP:REC ADD T┆
0x20a8c…20adc 4f 20 4e 45 58 54 20 52 45 43 4f 52 44 20 01 30 00 8a 00 0e 00 50 5c 52 42 5c 53 59 41 31 34 35 01 30 00 b6 00 32 00 50 46 52 53 54 4f 4b 5c 4c 43 5c 41 31 30 2c 32 2c 41 31 31 5c 47 45 54 20 33 3a 52 44 20 43 48 41 52 20 46 52 4f 4d 20 43 ┆O NEXT RECORD 0 P RB SYA145 0 2 PFRSTOK LC A10,2,A11 GET 3:RD CHAR FROM C┆
0x20adc…20b2c 4f 4e 46 49 47 20 01 30 00 c8 00 30 00 50 5c 45 4c 5c 41 32 2c 55 50 4e 41 4d 45 2b 32 2c 41 31 32 5c 47 45 54 20 33 3a 52 44 20 43 48 41 52 20 46 52 4f 4d 20 50 52 4f 59 20 01 30 00 fe 00 0e 00 50 5c 53 52 4c 5c 41 32 2c 38 20 01 30 01 32 ┆ONFIG 0 0 P EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY 0 P SRL A2,8 0 2┆
0x20b2c…20b7c 00 12 00 50 5c 41 4e 4b 4c 5c 41 31 30 2c 2f 46 46 20 01 30 01 44 00 10 00 50 5c 43 57 52 5c 41 31 30 2c 41 32 20 01 30 01 5a 00 18 00 50 5c 52 42 28 4e 45 29 5c 53 59 41 31 34 37 5c 2e 4e 45 51 2e 01 30 01 6e 00 0a 00 50 5c 45 4a 45 43 54 ┆ P ANKL A10,/FF 0 D P CWR A10,A2 0 Z P RB(NE) SYA147 .NEQ. 0 n P EJECT┆
0x20b7c…20bcc (337, 0, 400) 01 30 01 8a 00 08 00 50 5c 5c 5c 20 01 31 00 08 00 18 00 50 2a 20 50 52 4f 54 4f 54 59 50 45 20 46 4f 55 4e 44 20 2a 20 01 31 00 14 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 31 00 30 00 08 00 50 5c 5c 5c 20 ┆ 0 P 1 P* PROTOTYPE FOUND * 1 P******************* 1 0 P ┆
0x20bcc…20c1c 01 31 00 4c 00 38 00 50 5c 41 44 4b 4c 5c 41 31 31 2c 4e 41 4d 55 57 42 5c 53 4b 49 50 20 54 4f 20 27 4e 55 4d 42 45 52 20 4f 46 20 42 4f 43 4b 53 27 20 49 4e 20 43 4f 4e 46 49 47 01 31 00 58 00 10 00 50 5c 4c 44 52 5c 41 36 2c 41 31 31 20 ┆ 1 L 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG 1 X P LDR A6,A11 ┆
0x20c1c…20c6c 01 31 00 94 00 18 00 50 5c 43 41 4c 4c 5c 47 45 54 4e 55 4d 5c 43 4f 4e 56 45 52 54 01 31 00 a8 00 34 00 50 5c 45 4c 5c 41 31 30 2c 55 50 4e 55 4d 42 2d 31 2c 41 31 32 5c 53 41 56 45 20 49 4e 20 55 3a 42 54 41 42 20 53 48 41 44 4f 57 2d 54 ┆ 1 P CALL GETNUM CONVERT 1 4 P EL A10,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-T┆
0x20c6c…20cbc 41 42 4c 45 01 31 00 c4 00 14 00 50 5c 41 4e 4b 4c 5c 41 31 30 2c 2f 46 46 30 30 20 01 31 00 fc 00 10 00 50 5c 4f 52 52 5c 41 31 30 2c 41 35 20 01 31 01 14 00 18 00 50 5c 45 53 5c 41 31 30 2c 55 50 4e 55 4d 42 2d 31 2c 41 31 32 01 31 01 28 ┆ABLE 1 P ANKL A10,/FF00 1 P ORR A10,A5 1 P ES A10,UPNUMB-1,A12 1 (┆
0x20cbc…20d0c 00 2e 00 50 5c 53 55 4b 5c 41 31 2c 31 5c 44 45 43 2e 20 4e 4f 20 4f 46 20 54 59 50 45 53 20 49 4e 20 43 4f 4e 46 49 47 20 46 49 4c 45 20 01 31 01 44 00 12 00 50 5c 52 42 28 50 29 5c 53 59 41 31 34 32 20 01 31 01 76 00 16 00 50 5c 41 44 4b ┆ . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE 1 D P RB(P) SYA142 1 v P ADK┆
0x20d0c…20d5c (338, 0, 400) 4c 5c 41 31 31 2c 55 44 42 46 53 54 2d 31 01 31 01 8c 00 0c 00 50 5c 52 54 4e 5c 41 31 34 01 32 00 16 00 08 00 50 5c 58 49 46 01 32 00 26 00 12 00 50 5c 49 46 54 5c 43 52 45 44 49 54 3d 31 20 01 32 00 32 00 0a 00 50 5c 45 4a 45 43 54 01 32 ┆L A11,UDBFST-1 1 P RTN A14 2 P XIF 2 & P IFT CREDIT=1 2 2 P EJECT 2┆
0x20d5c…20dac 00 48 00 10 00 50 53 59 41 31 35 32 5c 45 51 55 5c 2a 01 32 00 56 00 04 00 50 01 32 00 6a 00 26 00 50 2a 20 47 45 54 20 53 54 41 52 54 20 4f 46 20 53 59 53 4c 4f 41 44 20 41 46 54 45 52 20 4d 4f 56 45 20 01 32 00 72 00 08 00 50 5c 5c 5c 20 ┆ H PSYA152 EQU * 2 V P 2 j & P* GET START OF SYSLOAD AFTER MOVE 2 r P ┆
0x20dac…20dfc 01 32 00 9c 00 08 00 50 5c 58 49 46 01 32 00 a8 00 18 00 50 5c 49 46 54 5c 43 52 45 44 49 54 2d 4d 4d 55 50 41 47 3d 31 01 32 00 b4 00 2c 00 50 5c 4c 44 2a 5c 41 37 2c 54 3a 41 54 4f 44 2c 41 31 33 5c 47 45 54 20 4c 45 4e 47 54 48 20 4f 46 ┆ 2 P XIF 2 P IFT CREDIT-MMUPAG=1 2 , P LD* A7,T:ATOD,A13 GET LENGTH OF┆
0x20dfc…20e4c 20 54 3a 41 54 41 42 20 01 32 00 d0 00 08 00 50 5c 58 49 46 01 32 01 00 00 18 00 50 5c 49 46 54 5c 43 52 45 44 49 54 2b 4d 4d 55 50 41 47 3d 32 01 32 01 0c 00 28 00 50 5c 45 4c 2a 5c 41 37 2c 54 3a 41 54 4f 44 2c 41 31 33 5c 47 45 54 20 54 ┆ T:ATAB 2 P XIF 2 P IFT CREDIT+MMUPAG=2 2 ( P EL* A7,T:ATOD,A13 GET T┆
0x20e4c…20e9c 3a 41 54 41 42 20 4c 45 4e 47 54 48 01 32 01 28 00 2a 00 50 5c 53 4c 4c 5c 41 37 2c 31 5c 52 45 53 45 52 56 45 20 46 4f 52 20 4d 4d 2d 41 44 44 52 45 53 53 2d 54 41 42 4c 45 01 32 01 54 00 08 00 50 5c 58 49 46 01 32 01 82 00 12 00 50 5c 49 ┆:ATAB LENGTH 2 ( * P SLL A7,1 RESERVE FOR MM-ADDRESS-TABLE 2 T P XIF 2 P I┆
0x20e9c…20eec (339, 0, 400) 46 46 20 43 52 45 44 49 54 3d 30 20 01 32 01 8e 00 30 00 50 5c 41 44 5c 41 37 2c 53 43 54 53 46 41 5c 54 4f 2d 41 44 44 52 45 53 53 20 28 41 46 54 45 52 20 53 48 41 44 4f 57 2d 54 41 42 4c 45 01 33 00 14 00 0e 00 50 5c 41 44 4b 5c 41 37 2c ┆FF CREDIT=0 2 0 P AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE 3 P ADK A7,┆
0x20eec…20f3c 31 20 01 33 00 48 00 20 00 50 5c 41 4e 4b 4c 5c 41 37 2c 2f 46 46 46 45 5c 45 56 45 4e 20 41 44 44 52 45 53 53 20 01 33 00 5a 00 04 00 50 01 33 00 7e 00 1a 00 50 2a 20 43 41 4c 43 55 4c 41 54 45 20 52 45 4c 4f 43 41 54 49 4f 4e 01 33 00 86 ┆1 3 H P ANKL A7,/FFFE EVEN ADDRESS 3 Z P 3 ~ P* CALCULATE RELOCATION 3 ┆
0x20f3c…20f8c 00 04 00 50 01 33 00 a4 00 10 00 50 5c 4c 44 52 5c 41 32 2c 41 31 33 20 01 33 00 ac 00 24 00 50 5c 53 55 52 5c 41 32 2c 41 37 5c 4d 4f 56 45 2d 4c 45 4e 47 54 48 20 28 53 59 53 4c 44 41 29 20 01 33 00 c0 00 0e 00 50 5c 4e 47 52 5c 41 32 2c ┆ P 3 P LDR A2,A13 3 $ P SUR A2,A7 MOVE-LENGTH (SYSLDA) 3 P NGR A2,┆
0x20f8c…20fdc 41 32 01 33 00 e8 00 34 00 50 5c 53 54 5c 41 32 2c 53 41 56 45 30 34 2c 41 31 33 5c 53 41 56 45 20 4e 45 57 20 52 45 4c 4f 43 41 54 49 4f 4e 20 54 45 4d 50 4f 52 41 52 59 20 01 33 00 fa 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2b 4d 4d ┆A2 3 4 P ST A2,SAVE04,A13 SAVE NEW RELOCATION TEMPORARY 3 P IFT CREDIT+MM┆
0x20fdc…2102c 55 50 41 47 3d 32 01 33 01 32 00 26 00 50 2a 20 43 52 45 41 54 45 20 53 59 53 4c 44 41 20 26 20 44 44 49 56 20 4d 4d 2d 54 41 42 4c 45 20 2a 20 01 33 01 4e 00 04 00 50 01 33 01 78 00 22 00 50 5c 4c 44 52 5c 41 32 2c 41 37 5c 54 4f 2d 41 44 ┆UPAG=2 3 2 & P* CREATE SYSLDA & DDIV MM-TABLE * 3 N P 3 x " P LDR A2,A7 TO-AD┆
0x2102c…2107c (340, 0, 400) 44 52 45 53 53 20 28 53 59 53 4c 44 41 29 01 33 01 80 00 1e 00 50 5c 41 4e 4b 4c 5c 41 32 2c 2f 46 30 30 30 5c 46 49 52 53 54 20 50 41 47 45 20 01 34 00 16 00 28 00 50 5c 53 54 5c 41 32 2c 4d 4d 52 45 4c 31 2c 41 31 33 5c 53 41 56 45 20 50 ┆DRESS (SYSLDA) 3 P ANKL A2,/F000 FIRST PAGE 4 ( P ST A2,MMREL1,A13 SAVE P┆
0x2107c…210cc 48 59 53 49 43 41 4c 20 50 41 47 45 01 34 00 38 00 22 00 50 5c 53 52 4c 5c 41 32 2c 32 5c 53 48 49 46 54 20 46 4f 52 20 4d 4d 2d 50 41 47 49 4e 47 20 01 34 00 64 00 14 00 50 5c 4c 44 4b 4c 5c 41 31 31 2c 4d 4d 44 44 49 56 01 34 00 8a 00 2e ┆HYSICAL PAGE 4 8 " P SRL A2,2 SHIFT FOR MM-PAGING 4 d P LDKL A11,MMDDIV 4 .┆
0x210cc…2111c 00 50 5c 41 44 52 5c 41 31 31 2c 41 31 33 5c 47 45 54 20 4d 4d 2d 54 41 42 4c 45 20 53 54 41 52 54 20 41 44 44 52 45 53 53 53 3d 20 01 34 00 a2 00 1a 00 50 5c 4c 44 4b 5c 41 33 2c 31 36 5c 53 45 54 20 43 4f 55 4e 54 45 52 01 34 00 d4 00 28 ┆ P ADR A11,A13 GET MM-TABLE START ADDRESSS= 4 P LDK A3,16 SET COUNTER 4 (┆
0x2111c…2116c 00 50 53 59 41 31 35 37 5c 53 54 52 5c 41 32 2c 41 31 31 5c 53 54 4f 52 45 20 50 41 47 45 2d 50 4f 49 4e 54 45 52 01 34 00 f2 00 1a 00 50 5c 41 44 4b 4c 5c 41 31 31 2c 32 5c 4e 45 58 54 20 45 4e 54 52 59 01 34 01 1e 00 20 00 50 5c 41 44 4b ┆ PSYA157 STR A2,A11 STORE PAGE-POINTER 4 P ADKL A11,2 NEXT ENTRY 4 P ADK┆
0x2116c…211bc 4c 5c 41 32 2c 2f 34 30 30 5c 50 41 47 45 20 49 4e 43 52 45 4d 45 4e 54 01 34 01 3c 00 12 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 41 4c 4c 3f 01 34 01 60 00 16 00 50 5c 52 42 28 4e 5a 29 5c 53 59 41 31 35 37 5c 4e 4f 21 01 34 01 76 00 28 00 50 ┆L A2,/400 PAGE INCREMENT 4 < P SUK A3,1 ALL? 4 ` P RB(NZ) SYA157 NO! 4 v ( P┆