|
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: 133134 (0x2080e)
Notes: pts_type(SC)
Names: »SYSLDA.SC«
└─⟦4358b8014⟧ Bits:30009669 Philips computer tape "600124"
└─⟦this⟧ »MON10/SYSLDA.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »M:DECE/SYSLDA.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »MON10/SYSLDA.SC«
IDENT SYSLDA REL 10.0 80-07-15 870105041000 =3,IMPOSSIBLE TO MOVE AREAS>32KB REL 10.0 80-07-08 =2,SOP DISABLED AFTER PFINIT REL 10.0 80-05-29 =1,FAULTY STACK BASE WHEN USING MMU REL 10.0 80-03-14 ********************************************************** * * 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 LDR A11,A3 GET REMAINING LENGTH =3 LDR A9,A10 GET CURRENT BUFFER LENGTH =3 CALL CMPADR REMAINING PART <CURRENT BUFFERLENGTH? =3 RB(NL) XMOV10 LDR A10,A3 LAST LENGTH RB XMOV10 EJECT SPLIT EQU * LDR A1,A3 GET DIVISOR =3 SRL A1,15 MOST SIGN. PART OF DIVISOR =3 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 CIO A1,0,SOP DISABLE SOP SWITCHES =2 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 =2 =2 =2 =2 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, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT SYSLDA REL 10.0 80-07-15 870105041000 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…0006a Head {h00=0x0028, h01=0x0050, text=» =3,IMPOSSIBLE TO MOVE AREAS>32KB «, t00=0x0000, t01=0x0042}
0x0006a…00086 Head {h00=0x0018, h01=0x0050, text=» REL 10.0 80-07-08«, t00=0x0000, t01=0x006e}
0x00086…000ae Head {h00=0x0024, h01=0x0050, text=» =2,SOP DISABLED AFTER PFINIT «, t00=0x0000, t01=0x008a}
0x000ae…000ca Head {h00=0x0018, h01=0x0050, text=» REL 10.0 80-05-29«, t00=0x0000, t01=0x00b2}
0x000ca…000f8 Head {h00=0x002a, h01=0x0050, text=» =1,FAULTY STACK BASE WHEN USING MMU«, t00=0x0000, t01=0x00ce}
0x000f8…00114 Head {h00=0x0018, h01=0x0050, text=» REL 10.0 80-03-14«, t00=0x0000, t01=0x00fc}
0x00114…00120 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0000, t01=0x0118}
0x00120…0012c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0000, t01=0x0124}
0x0012c…0016e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0000, t01=0x0130}
0x0016e…00178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x00178…001a0 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x017c}
0x001a0…001aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0014}
0x001aa…001ec Head {h00=0x003e, h01=0x0050, text=»* SYSLDA = SYSTEM LOAD - APPLICATION CONFIGURATION PART «, t00=0x0001, t01=0x001e}
0x001ec…001f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0060}
0x001f6…00200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006a}
0x00200…0020a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0074}
0x0020a…00214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007e}
0x00214…0021e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0088}
0x0021e…00228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0092}
0x00228…0026a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0001, t01=0x009c}
0x0026a…00274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00de}
0x00274…0027e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e8}
0x0027e…002c8 Head {h00=0x0046, h01=0x0050, text=»* THIS PART OF THE SYSTEM START-UP WILL TAKE CARE OF APPLICATION«, t00=0x0001, t01=0x00f2}
0x002c8…0030e Head {h00=0x0042, h01=0x0050, text=»* (CREDIT) CONFIGURATION AND START OF APPLICATION. SYSLDA IS«, t00=0x0001, t01=0x013c}
0x0030e…00358 Head {h00=0x0046, h01=0x0050, text=»* ENTERED AFTER MONITOR CONFIGURATION (PERFORMED BY SYSLDM), AND«, t00=0x0001, t01=0x0182}
0x00358…003a4 Head {h00=0x0048, h01=0x0050, text=»* IS AT THAT TIME LOCATED AT HIGHEST FREE ADDRESS OF SYSTEM AREA. «, t00=0x0002, t01=0x003c}
0x003a4…003ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0088}
0x003ae…003d0 Head {h00=0x001e, h01=0x0050, text=»* ASSEMBLER APPLICATION:«, t00=0x0002, t01=0x0092}
0x003d0…0041e Head {h00=0x004a, h01=0x0050, text=»* NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED «, t00=0x0002, t01=0x00b4}
0x0041e…00468 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=0x0102}
0x00468…00490 Head {h00=0x0024, h01=0x0050, text=»* MM-TABLES ARE FILLED IN. «, t00=0x0002, t01=0x014c}
0x00490…0049a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0174}
0x0049a…004ba Head {h00=0x001c, h01=0x0050, text=»* CREDIT APPLICATION: «, t00=0x0002, t01=0x017e}
0x004ba…00504 Head {h00=0x0046, h01=0x0050, text=»* SYSLDA READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD«, t00=0x0003, t01=0x000e}
0x00504…0054a Head {h00=0x0042, h01=0x0050, text=»* SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS &«, t00=0x0003, t01=0x0058}
0x0054a…0057c Head {h00=0x002e, h01=0x0050, text=»* NUMBER OF USER WORK-BLOCK COPIES). «, t00=0x0003, t01=0x009e}
0x0057c…005c8 Head {h00=0x0048, h01=0x0050, text=»* SYSLDA THEN MOVES ITSELF TO FOLLOW MONITOR AND WILL ALSO MOVE«, t00=0x0003, t01=0x00d0}
0x005c8…005f8 Head {h00=0x002c, h01=0x0050, text=»* DDIV-PROTOTYPE TO FOLLOW SYSLDA. «, t00=0x0003, t01=0x011c}
0x005f8…00602 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x014c}
0x00602…0064e Head {h00=0x0048, h01=0x0050, text=»* APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES ARE NOW«, t00=0x0003, t01=0x0156}
0x0064e…0069a Head {h00=0x0048, h01=0x0050, text=»* BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS«, t00=0x0004, t01=0x0012}
0x0069a…006e6 Head {h00=0x0048, h01=0x0050, text=»* ARE, IN CASE OF MMU IN SYSTEM, ALSO ALLOCATED AT 'BOTTOM' OF «, t00=0x0004, t01=0x005e}
0x006e6…00732 Head {h00=0x0048, h01=0x0050, text=»* MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR «, t00=0x0004, t01=0x00aa}
0x00732…00750 Head {h00=0x001a, h01=0x0050, text=»* 'OVER' SYSLDA. «, t00=0x0004, t01=0x00f6}
0x00750…0075a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0114}
0x0075a…007a6 Head {h00=0x0048, h01=0x0050, text=»* ALL USER TASKS ARE QUEUED VIA A C T O T AND ALL MM-TABLES«, t00=0x0004, t01=0x011e}
0x007a6…007f0 Head {h00=0x0046, h01=0x0050, text=»* IN USER TASK TTAB'S ARE FILLED. A BRANCH IS FINALLY MADE TO«, t00=0x0004, t01=0x016a}
0x007f0…00822 Head {h00=0x002e, h01=0x0050, text=»* P F I N I T TO START APPLICATION. «, t00=0x0005, t01=0x0024}
0x00822…00830 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0056}
0x00830…0083c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0005, t01=0x0064}
0x0083c…00860 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0005, t01=0x0070}
0x00860…00884 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0005, t01=0x0094}
0x00884…008a8 Head {h00=0x0020, h01=0x0050, text=»* ENTRIES AND EXTERNALS * «, t00=0x0005, t01=0x00b8}
0x008a8…008cc Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0005, t01=0x00dc}
0x008cc…008f0 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0005, t01=0x0100}
0x008f0…008fc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0005, t01=0x0124}
0x008fc…00914 Head {h00=0x0014, h01=0x0050, text=»* LABEL ENTRIES «, t00=0x0005, t01=0x0130}
0x00914…00944 Head {h00=0x002c, h01=0x0050, text=» ENTRY JUMP BYPASS JUMP FOR LOAD-MODULE «, t00=0x0005, t01=0x0148}
0x00944…0095a Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLDX «, t00=0x0005, t01=0x0178}
0x0095a…0097a Head {h00=0x001c, h01=0x0050, text=» ENTRY REL START OF CODE«, t00=0x0005, t01=0x018e}
0x0097a…009a6 Head {h00=0x0028, h01=0x0050, text=» ENTRY LDALEN PROGRAM LENGTH =00003 «, t00=0x0006, t01=0x001e}
0x009a6…009ae Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x004a}
0x009ae…009ca Head {h00=0x0018, h01=0x0050, text=»* SUBROUTINE ENTRIES«, t00=0x0006, t01=0x0052}
0x009ca…009de Head {h00=0x0010, h01=0x0050, text=» ENTRY MOVE «, t00=0x0006, t01=0x006e}
0x009de…009f2 Head {h00=0x0010, h01=0x0050, text=» ENTRY ERROR«, t00=0x0006, t01=0x0082}
0x009f2…00a1a Head {h00=0x0024, h01=0x0050, text=» ENTRY CMPADR COMPARE ADDRESSES «, t00=0x0006, t01=0x0096}
0x00a1a…00a50 Head {h00=0x0032, h01=0x0050, text=» ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK«, t00=0x0006, t01=0x00be}
0x00a50…00a88 Head {h00=0x0034, h01=0x0050, text=» ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK«, t00=0x0006, t01=0x00f4}
0x00a88…00ab6 Head {h00=0x002a, h01=0x0050, text=» ENTRY CONVRT CONVERSION ASCII-BINARY «, t00=0x0006, t01=0x012c}
0x00ab6…00aec Head {h00=0x0032, h01=0x0050, text=» ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY«, t00=0x0006, t01=0x015a}
0x00aec…00b16 Head {h00=0x0026, h01=0x0050, text=» ENTRY MULT MULTIPLICATION ROUTINE«, t00=0x0006, t01=0x0190}
0x00b16…00b1e Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x002a}
0x00b1e…00b42 Head {h00=0x0020, h01=0x0050, text=»* SAVE AND WORK AREA ENTRIES«, t00=0x0007, t01=0x0032}
0x00b42…00b68 Head {h00=0x0022, h01=0x0050, text=» ENTRY MMTAB WORK-TABLE 1 (MMU«, t00=0x0007, t01=0x0056}
0x00b68…00ba2 Head {h00=0x0036, h01=0x0050, text=» ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 «, t00=0x0007, t01=0x007c}
0x00ba2…00bda Head {h00=0x0034, h01=0x0050, text=» ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 «, t00=0x0007, t01=0x00b6}
0x00bda…00c10 Head {h00=0x0032, h01=0x0050, text=» ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL'«, t00=0x0007, t01=0x00ee}
0x00c10…00c40 Head {h00=0x002c, h01=0x0050, text=» ENTRY BUFSIZ TEMPORARY MOVE-BUFFER SIZE«, t00=0x0007, t01=0x0124}
0x00c40…00c72 Head {h00=0x002e, h01=0x0050, text=» ENTRY SYSBUF TEMPORARY MOVE-BUFFER START «, t00=0x0007, t01=0x0154}
0x00c72…00caa Head {h00=0x0034, h01=0x0050, text=» ENTRY M:REL RELOCATION FOR RELOCATION WORD!!!! «, t00=0x0007, t01=0x0186}
0x00caa…00cda Head {h00=0x002c, h01=0x0050, text=» ENTRY I:RSTE INTERPRETER RESTART ENTRY «, t00=0x0008, t01=0x002e}
0x00cda…00d04 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE01,SAVE12,SAVE03,SAVE04«, t00=0x0008, t01=0x005e}
0x00d04…00d2e Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE05,SAVE06,SAVE07,SAVE08«, t00=0x0008, t01=0x0088}
0x00d2e…00d58 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE09,SAVE10,SAVE11,SAVE02«, t00=0x0008, t01=0x00b2}
0x00d58…00d82 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE13,SAVE14,SAVE15,SAVE16«, t00=0x0008, t01=0x00dc}
0x00d82…00dac Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE17,SAVE18,SAVE19,SAVE20«, t00=0x0008, t01=0x0106}
0x00dac…00dd6 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE21,SAVE22,SAVE23,SAVE24«, t00=0x0008, t01=0x0130}
0x00dd6…00e00 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE25,SAVE26,SAVE27,SAVE28«, t00=0x0008, t01=0x015a}
0x00e00…00e1c Head {h00=0x0018, h01=0x0050, text=» ENTRY SAVE29,SAVE30«, t00=0x0008, t01=0x0184}
0x00e1c…00e42 Head {h00=0x0022, h01=0x0050, text=» ENTRY APPTYP APPLICATION TYPE«, t00=0x0009, t01=0x0010}
0x00e42…00e50 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0036}
0x00e50…00e58 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0044}
0x00e58…00e80 Head {h00=0x0024, h01=0x0050, text=»* SYSTEM CONTROL TABLE EXTERNALS«, t00=0x0009, t01=0x004c}
0x00e80…00ea8 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTSFA START OF FREE AREA«, t00=0x0009, t01=0x0074}
0x00ea8…00ede Head {h00=0x0032, h01=0x0050, text=» EXTRN SCTLAC LOGICALL ADDRESS TO COMMON PART «, t00=0x0009, t01=0x009c}
0x00ede…00f02 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTTCT TC:TAB ADDRESS«, t00=0x0009, t01=0x00d2}
0x00f02…00f26 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTSTB A15 STACK-BASE«, t00=0x0009, t01=0x00f6}
0x00f26…00f4c Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTEFA END OF FREE AREA«, t00=0x0009, t01=0x011a}
0x00f4c…00f72 Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTNOP NUMBER OF PAGES «, t00=0x0009, t01=0x0140}
0x00f72…00f92 Head {h00=0x001c, h01=0x0050, text=» EXTRN SCTPSZ PAGE SIZE «, t00=0x0009, t01=0x0166}
0x00f92…00fb0 Head {h00=0x001a, h01=0x0050, text=» EXTRN SCTMMC =00002 «, t00=0x0009, t01=0x0186}
0x00fb0…00fd4 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTOPT SYSTEM OPTION «, t00=0x000a, t01=0x0014}
0x00fd4…00ffc Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTPAG PAGE TABLE ADDRESS«, t00=0x000a, t01=0x0038}
0x00ffc…01034 Head {h00=0x0034, h01=0x0050, text=» EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE«, t00=0x000a, t01=0x0060}
0x01034…01058 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTBUG BUGGER ADDRESS«, t00=0x000a, t01=0x0098}
0x01058…01060 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00bc}
0x01060…0107a Head {h00=0x0016, h01=0x0050, text=»* EXTERNAL LABELS «, t00=0x000a, t01=0x00c4}
0x0107a…010b4 Head {h00=0x0036, h01=0x0050, text=» EXTRN SYSLDM START OF MONITOR CONFIGURATION PART «, t00=0x000a, t01=0x00de}
0x010b4…010dc Head {h00=0x0024, h01=0x0050, text=» EXTRN PAGQUE PAGE QUEUE POINTER«, t00=0x000a, t01=0x0118}
0x010dc…010e4 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0140}
0x010e4…01102 Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL SUBROUTINES«, t00=0x000a, t01=0x0148}
0x01102…01122 Head {h00=0x001c, h01=0x0050, text=» EXTRN ACTOT QUEUE TASK «, t00=0x000a, t01=0x0166}
0x01122…01138 Head {h00=0x0012, h01=0x0050, text=» EXTRN PFINIT «, t00=0x000a, t01=0x0186}
0x01138…01158 Head {h00=0x001c, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGS«, t00=0x000b, t01=0x000c}
0x01158…0117c Head {h00=0x0020, h01=0x0050, text=» EXTRN RETUR8 RELOAD 8 REGS «, t00=0x000b, t01=0x002c}
0x0117c…011a2 Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x000b, t01=0x0050}
0x011a2…011aa Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0076}
0x011aa…011b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x007e}
0x011b4…011e4 Head {h00=0x002c, h01=0x0050, text=» EXTRN TTB:SA START OF SAVE AREA IN TTAB«, t00=0x000b, t01=0x0088}
0x011e4…01220 Head {h00=0x0038, h01=0x0050, text=» EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS«, t00=0x000b, t01=0x00b8}
0x01220…0122e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00f4}
0x0122e…01236 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0102}
0x01236…0123e Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x010a}
0x0123e…0126e Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000b, t01=0x0112}
0x0126e…0129e Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000b, t01=0x0142}
0x0129e…012ce Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000b, t01=0x0172}
0x012ce…012d6 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0012}
0x012d6…012f6 Head {h00=0x001c, h01=0x0050, text=»MMUPAG EQU 1 0 = NO MMU «, t00=0x000c, t01=0x001a}
0x012f6…012fe Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x003a}
0x012fe…01328 Head {h00=0x0026, h01=0x0050, text=»SWPBLK EQU 0 SWAPPABLE WORK BLOCKS«, t00=0x000c, t01=0x0042}
0x01328…01330 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x006c}
0x01330…01350 Head {h00=0x001c, h01=0x0050, text=»CREDIT EQU 1 0=ASSEMBLER«, t00=0x000c, t01=0x0074}
0x01350…01358 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0094}
0x01358…01378 Head {h00=0x001c, h01=0x0050, text=»MMUSWB EQU MMUPAG+SWPBLK«, t00=0x000c, t01=0x009c}
0x01378…01380 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00bc}
0x01380…013a0 Head {h00=0x001c, h01=0x0050, text=»SWBMMU EQU SWPBLK-MMUPAG«, t00=0x000c, t01=0x00c4}
0x013a0…013ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00e4}
0x013ae…013b6 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00f2}
0x013b6…013d4 Head {h00=0x001a, h01=0x0050, text=» PROGRAM STRUCTURE: «, t00=0x000c, t01=0x00fa}
0x013d4…013dc Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0118}
0x013dc…01426 Head {h00=0x0046, h01=0x0050, text=»* -------------------------------------------------------«, t00=0x000c, t01=0x0120}
0x01426…01476 Head {h00=0x004c, h01=0x0050, text=»* ! RELOCATION ROUTINE !<- A13«, t00=0x000c, t01=0x016a}
0x01476…014c0 Head {h00=0x0046, h01=0x0050, text=»* ! A14-STACK AND SUBROUTINE-HANDLER !«, t00=0x000d, t01=0x002a}
0x014c0…0150a Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000d, t01=0x0074}
0x0150a…01554 Head {h00=0x0046, h01=0x0050, text=»* ! SAVE & COMMUNICATION AREA. MMU - WORK TABLES !«, t00=0x000d, t01=0x00be}
0x01554…0159e Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000d, t01=0x0108}
0x0159e…015e8 Head {h00=0x0046, h01=0x0050, text=»* ! SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM. !«, t00=0x000d, t01=0x0152}
0x015e8…01632 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000e, t01=0x000c}
0x01632…01686 Head {h00=0x0050, h01=0x0050, text=»* ! R E A L T A ! PART 2.B «, t00=0x000e, t01=0x0056}
0x01686…016d0 Head {h00=0x0046, h01=0x0050, text=»* ! BUILD REAL TASK-LOCAL DATA AREAS !«, t00=0x000e, t01=0x00aa}
0x016d0…0171a Head {h00=0x0046, h01=0x0050, text=»* ! -QUEUE TASK VIA 'ACTOT' !«, t00=0x000e, t01=0x00f4}
0x0171a…01764 Head {h00=0x0046, h01=0x0050, text=»* ! -FILL MM-TABLE IN TTAB !«, t00=0x000e, t01=0x013e}
0x01764…017ae Head {h00=0x0046, h01=0x0050, text=»* ! -COPY T:A'S ACCORDING TO SHADOW-TABLE !«, t00=0x000e, t01=0x0188}
0x017ae…017f8 Head {h00=0x0046, h01=0x0050, text=»* ! -BUILD TWB'S AND RESERVE FOR SWB'S !«, t00=0x000f, t01=0x0042}
0x017f8…01842 Head {h00=0x0046, h01=0x0050, text=»* ! -ALLOCATE FIXED BUFFERS AND STACK !«, t00=0x000f, t01=0x008c}
0x01842…0188c Head {h00=0x0046, h01=0x0050, text=»* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE !«, t00=0x000f, t01=0x00d6}
0x0188c…018d6 Head {h00=0x0046, h01=0x0050, text=»* ! -START DEBUGGER (IF ANY) AND START APPLICATION !«, t00=0x000f, t01=0x0120}
0x018d6…01920 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000f, t01=0x016a}
0x01920…01974 Head {h00=0x0050, h01=0x0050, text=»* ! SUBROUTINES ! PART 2.A «, t00=0x0010, t01=0x0024}
0x01974…019be Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE DDIV PROTOTYPE TO FOLLOW SYSLDA !«, t00=0x0010, t01=0x0078}
0x019be…01a08 Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0010, t01=0x00c2}
0x01a08…01a52 Head {h00=0x0046, h01=0x0050, text=»* ! C O M D A T !«, t00=0x0010, t01=0x010c}
0x01a52…01a9c Head {h00=0x0046, h01=0x0050, text=»* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S. !«, t00=0x0010, t01=0x0156}
0x01a9c…01ae6 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO !«, t00=0x0011, t01=0x0010}
0x01ae6…01b30 Head {h00=0x0046, h01=0x0050, text=»* ! SHADOW-TABLE. !«, t00=0x0011, t01=0x005a}
0x01b30…01b7a Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0011, t01=0x00a4}
0x01b7a…01bc4 Head {h00=0x0046, h01=0x0050, text=»* ! C L A D A T !«, t00=0x0011, t01=0x00ee}
0x01bc4…01c0e Head {h00=0x0046, h01=0x0050, text=»* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S !«, t00=0x0011, t01=0x0138}
0x01c0e…01c58 Head {h00=0x0046, h01=0x0050, text=»* ! AND DWB'S. !«, t00=0x0011, t01=0x0182}
0x01c58…01ca2 Head {h00=0x0046, h01=0x0050, text=»* ! -BUILD MM-TABLE !«, t00=0x0012, t01=0x003c}
0x01ca2…01cec Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE T:D !«, t00=0x0012, t01=0x0086}
0x01cec…01d36 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE D.T. & W.B., COPY UWB'S !«, t00=0x0012, t01=0x00d0}
0x01d36…01d80 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE D.T.'S OF SWB'S AND TWB'S !«, t00=0x0012, t01=0x011a}
0x01d80…01dca Head {h00=0x0046, h01=0x0050, text=»* ! -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE !«, t00=0x0012, t01=0x0164}
0x01dca…01e14 Head {h00=0x0046, h01=0x0050, text=»* ! W.B.-ADDRESS !«, t00=0x0013, t01=0x001e}
0x01e14…01e5e Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0013, t01=0x0068}
0x01e5e…01ea8 Head {h00=0x0046, h01=0x0050, text=»* ! P R O D A T !«, t00=0x0013, t01=0x00b2}
0x01ea8…01ef2 Head {h00=0x0046, h01=0x0050, text=»* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. !«, t00=0x0013, t01=0x00fc}
0x01ef2…01f3c Head {h00=0x0046, h01=0x0050, text=»* ! -GENERATE TWB'S AND RESERVE FOR SWB'S !«, t00=0x0013, t01=0x0146}
0x01f3c…01f86 Head {h00=0x0046, h01=0x0050, text=»* ! -ALLOCATE FIXED BUFFERS AND TERMINAL STACK !«, t00=0x0013, t01=0x0190}
0x01f86…01fd0 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE T:A !«, t00=0x0014, t01=0x004a}
0x01fd0…0201a Head {h00=0x0046, h01=0x0050, text=»* ! -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA. !«, t00=0x0014, t01=0x0094}
0x0201a…02064 Head {h00=0x0046, h01=0x0050, text=»* ! -CONTINUE IN PART 2.B !«, t00=0x0014, t01=0x00de}
0x02064…020ae Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x0014, t01=0x0128}
0x020ae…02100 Head {h00=0x004e, h01=0x0050, text=»* ! SUBROUTINES ! PART 1 «, t00=0x0014, t01=0x0172}
0x02100…0214a Head {h00=0x0046, h01=0x0050, text=»* ENTRY ->! * SYSLDA ENTRY * !«, t00=0x0015, t01=0x0034}
0x0214a…02194 Head {h00=0x0046, h01=0x0050, text=»* ! CREDIT APPLICATION: ! ASSEMBLER APPLICATION: !«, t00=0x0015, t01=0x007e}
0x02194…021de Head {h00=0x0046, h01=0x0050, text=»* ! READ CUNFIGURATION FILE ! -FILL MM-TABLES IN !«, t00=0x0015, t01=0x00c8}
0x021de…02228 Head {h00=0x0046, h01=0x0050, text=»* ! AND BUILD SHADOW-TABLES. ! USER TASK TTAB'S. !«, t00=0x0015, t01=0x0112}
0x02228…02272 Head {h00=0x0046, h01=0x0050, text=»* ! ! -QUEUE 1:ST USER TASK !«, t00=0x0015, t01=0x015c}
0x02272…022bc Head {h00=0x0046, h01=0x0050, text=»* ! T:ATAB: ! AND START APPLICATION !«, t00=0x0016, t01=0x0016}
0x022bc…02306 Head {h00=0x0046, h01=0x0050, text=»* ! -A TABLE OF 'NUMBER OF !-------------------------!«, t00=0x0016, t01=0x0060}
0x02306…02350 Head {h00=0x0046, h01=0x0050, text=»* ! REAL TASKS' IS BUILT AT !«, t00=0x0016, t01=0x00aa}
0x02350…0239a Head {h00=0x0046, h01=0x0050, text=»* ! THE END OF MONITOR. !«, t00=0x0016, t01=0x00f4}
0x0239a…023e4 Head {h00=0x0046, h01=0x0050, text=»* ! U:BTAB: !«, t00=0x0016, t01=0x013e}
0x023e4…0242e Head {h00=0x0046, h01=0x0050, text=»* ! -A TABLE OF 'NUMBER OF REAL UWB'S' IS BUILT IN !«, t00=0x0016, t01=0x0188}
0x0242e…02478 Head {h00=0x0046, h01=0x0050, text=»* ! U:BTAB PROTOTYPE. !«, t00=0x0017, t01=0x0042}
0x02478…024c2 Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0017, t01=0x008c}
0x024c2…0250c Head {h00=0x0046, h01=0x0050, text=»* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. !«, t00=0x0017, t01=0x00d6}
0x0250c…02556 Head {h00=0x0046, h01=0x0050, text=»* ! -REMOVE NOT USED ENTRIES IN T:ATAB !«, t00=0x0017, t01=0x0120}
0x02556…025a0 Head {h00=0x0046, h01=0x0050, text=»* ! -RELOCATE ADDRESSES IN U:BTAB !«, t00=0x0017, t01=0x016a}
0x025a0…025ea Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE SYSLDA (NOT PART 1) TO FOLLOW T:ATAB SHADOW- !«, t00=0x0018, t01=0x0024}
0x025ea…02634 Head {h00=0x0046, h01=0x0050, text=»* ! TABLE !«, t00=0x0018, t01=0x006e}
0x02634…0267e Head {h00=0x0046, h01=0x0050, text=»* ! -CONTINUE IN PART 2.A !«, t00=0x0018, t01=0x00b8}
0x0267e…026c8 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x0018, t01=0x0102}
0x026c8…026d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x014c}
0x026d6…026e2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0018, t01=0x015a}
0x026e2…026fe Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0018, t01=0x0166}
0x026fe…0271a Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0018, t01=0x0182}
0x0271a…02736 Head {h00=0x0018, h01=0x0050, text=» ** ** «, t00=0x0019, t01=0x000e}
0x02736…02752 Head {h00=0x0018, h01=0x0050, text=» ** CONSTANTS ** «, t00=0x0019, t01=0x002a}
0x02752…0276e Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0019, t01=0x0046}
0x0276e…0278a Head {h00=0x0018, h01=0x0050, text=» ** ** «, t00=0x0019, t01=0x0062}
0x0278a…027a6 Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0019, t01=0x007e}
0x027a6…027b2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0019, t01=0x009a}
0x027b2…027c4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x00a6}
0x027c4…027d6 Head {h00=0x000e, h01=0x0050, text=»* P:MTAB *«, t00=0x0019, t01=0x00b8}
0x027d6…027e8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x00ca}
0x027e8…027fc Head {h00=0x0010, h01=0x0050, text=»T:ATAB EQU 0«, t00=0x0019, t01=0x00dc}
0x027fc…02810 Head {h00=0x0010, h01=0x0050, text=»U:BTAB EQU 2«, t00=0x0019, t01=0x00f0}
0x02810…02830 Head {h00=0x001c, h01=0x0050, text=»P:BAS EQU 6 SEGMENT BASE«, t00=0x0019, t01=0x0104}
0x02830…02862 Head {h00=0x002e, h01=0x0050, text=»T:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID'«, t00=0x0019, t01=0x0124}
0x02862…0288e Head {h00=0x0028, h01=0x0050, text=»S:BTAB EQU 40 DISP TO S:BTAB ADDRESS«, t00=0x0019, t01=0x0156}
0x0288e…028be Head {h00=0x002c, h01=0x0050, text=»I:RSTE EQU 42 INTERPRETER RESTART ENTRY «, t00=0x0019, t01=0x0182}
0x028be…028c6 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0022}
0x028c6…028ce Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x002a}
0x028ce…028e0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001a, t01=0x0032}
0x028e0…028f2 Head {h00=0x000e, h01=0x0050, text=»* U:BTAB *«, t00=0x001a, t01=0x0044}
0x028f2…02904 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001a, t01=0x0056}
0x02904…02938 Head {h00=0x0030, h01=0x0050, text=»UP:REC EQU 6 RECORD LENGTH IN INITIAL U:BTAB«, t00=0x001a, t01=0x0068}
0x02938…0295e Head {h00=0x0022, h01=0x0050, text=»UPADDR EQU 2 PROTOTYPE ADDRESS«, t00=0x001a, t01=0x009c}
0x0295e…02982 Head {h00=0x0020, h01=0x0050, text=»UPNAME EQU 4 PROTOTYPE NAME «, t00=0x001a, t01=0x00c2}
0x02982…029be Head {h00=0x0038, h01=0x0050, text=»UPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL)«, t00=0x001a, t01=0x00e6}
0x029be…029c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0122}
0x029c8…029fa Head {h00=0x002e, h01=0x0050, text=»UR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB «, t00=0x001a, t01=0x012c}
0x029fa…02a28 Head {h00=0x002a, h01=0x0050, text=»URADDR EQU 2 ADDRESS TO FIRST REAL UWB«, t00=0x001a, t01=0x015e}
0x02a28…02a4c Head {h00=0x0020, h01=0x0050, text=»URNUMB EQU 4 NUMBER OF UWB'S«, t00=0x001a, t01=0x018c}
0x02a4c…02a6e Head {h00=0x001e, h01=0x0050, text=»URLENG EQU 6 LENGTH OF UWB«, t00=0x001b, t01=0x0020}
0x02a6e…02a7c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0042}
0x02a7c…02a88 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001b, t01=0x0050}
0x02a88…02a94 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001b, t01=0x005c}
0x02a94…02aa0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001b, t01=0x0068}
0x02aa0…02ac8 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001b, t01=0x0074}
0x02ac8…02af0 Head {h00=0x0024, h01=0x0050, text=»* CONFIGURATION FILE (CONFIG) * «, t00=0x001b, t01=0x009c}
0x02af0…02b18 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001b, t01=0x00c4}
0x02b18…02b24 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001b, t01=0x00ec}
0x02b24…02b44 Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x001b, t01=0x00f8}
0x02b44…02b66 Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x001b, t01=0x0118}
0x02b66…02b92 Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x001b, t01=0x013a}
0x02b92…02bc2 Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x001b, t01=0x0166}
0x02bc2…02bf2 Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x001c, t01=0x0008}
0x02bf2…02c1a Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x001c, t01=0x0038}
0x02c1a…02c58 Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x001c, t01=0x0060}
0x02c58…02c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x009e}
0x02c62…02c8c Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 FIRST TERM DEF «, t00=0x001c, t01=0x00a8}
0x02c8c…02cb4 Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x001c, t01=0x00d2}
0x02cb4…02cd6 Head {h00=0x001e, h01=0x0050, text=»TLC EQU 6 LINE CONNECTION «, t00=0x001c, t01=0x00fa}
0x02cd6…02d02 Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x001c, t01=0x011c}
0x02d02…02d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0148}
0x02d0c…02d3a Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x001c, t01=0x0152}
0x02d3a…02d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0180}
0x02d44…02d68 Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x001c, t01=0x018a}
0x02d68…02d8a Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x001d, t01=0x001e}
0x02d8a…02dc4 Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x001d, t01=0x0040}
0x02dc4…02df0 Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 FIRST SDC-RECORD «, t00=0x001d, t01=0x007a}
0x02df0…02dfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a6}
0x02dfa…02e04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00b0}
0x02e04…02e2e Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x001d, t01=0x00ba}
0x02e2e…02e50 Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x001d, t01=0x00e4}
0x02e50…02e80 Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x001d, t01=0x0106}
0x02e80…02e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0136}
0x02e8a…02eb6 Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 FIRST UDB-RECORD «, t00=0x001d, t01=0x0140}
0x02eb6…02ed6 Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x001d, t01=0x016c}
0x02ed6…02efc Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x001d, t01=0x018c}
0x02efc…02f2e Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x001e, t01=0x0022}
0x02f2e…02f3c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0054}
0x02f3c…02f48 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001e, t01=0x0062}
0x02f48…02f54 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001e, t01=0x006e}
0x02f54…02f66 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001e, t01=0x007a}
0x02f66…02f78 Head {h00=0x000e, h01=0x0050, text=»* T:A * «, t00=0x001e, t01=0x008c}
0x02f78…02f8a Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001e, t01=0x009e}
0x02f8a…02faa Head {h00=0x001c, h01=0x0050, text=»T:ASTA EQU -14 T:A START«, t00=0x001e, t01=0x00b0}
0x02faa…02fe4 Head {h00=0x0036, h01=0x0050, text=»CSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) «, t00=0x001e, t01=0x00d0}
0x02fe4…0300c Head {h00=0x0024, h01=0x0050, text=»CSB EQU -12 CURRENT SEGMENT BASE«, t00=0x001e, t01=0x010a}
0x0300c…03044 Head {h00=0x0034, h01=0x0050, text=»CSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH «, t00=0x001e, t01=0x0132}
0x03044…0307a Head {h00=0x0032, h01=0x0050, text=» OF ALL DSCB-RECORDS«, t00=0x001e, t01=0x016a}
0x0307a…0309e Head {h00=0x0020, h01=0x0050, text=»T:DAD EQU -8 ADDRESS TO T:D «, t00=0x001f, t01=0x0010}
0x0309e…030cc Head {h00=0x002a, h01=0x0050, text=»CIA EQU -6 CURRENT INSTUCTION ADDRESS «, t00=0x001f, t01=0x0034}
0x030cc…030f8 Head {h00=0x0028, h01=0x0050, text=» (HERE: DISPLACEMENT TO T:A-START)«, t00=0x001f, t01=0x0062}
0x030f8…03104 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x008e}
0x03104…03122 Head {h00=0x001a, h01=0x0050, text=»T:ATID EQU -4 TASK ID «, t00=0x001f, t01=0x009a}
0x03122…03140 Head {h00=0x001a, h01=0x0050, text=»STKE EQU -2 STACK END «, t00=0x001f, t01=0x00b8}
0x03140…0315e Head {h00=0x001a, h01=0x0050, text=»PA EQU 0 STACK POINTER«, t00=0x001f, t01=0x00d6}
0x0315e…0317c Head {h00=0x001a, h01=0x0050, text=»STKB EQU 2 STACK BASE «, t00=0x001f, t01=0x00f4}
0x0317c…031a2 Head {h00=0x0022, h01=0x0050, text=»WATFST EQU 4 FIRST WAT-ELEMENT«, t00=0x001f, t01=0x0112}
0x031a2…031ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0138}
0x031ac…031c2 Head {h00=0x0012, h01=0x0050, text=»* DSCB-RECORD:«, t00=0x001f, t01=0x0142}
0x031c2…031e4 Head {h00=0x001e, h01=0x0050, text=»DSCBL EQU 20 RECORD LENGTH«, t00=0x001f, t01=0x0158}
0x031e4…03204 Head {h00=0x001c, h01=0x0050, text=»BA EQU 2 BUFFER ADDRESS «, t00=0x001f, t01=0x017a}
0x03204…03220 Head {h00=0x0018, h01=0x0050, text=»RL EQU 4 REQ. LENGTH«, t00=0x0020, t01=0x000a}
0x03220…0323c Head {h00=0x0018, h01=0x0050, text=»EL EQU 6 EFF. LENGTH«, t00=0x0020, t01=0x0026}
0x0323c…03262 Head {h00=0x0022, h01=0x0050, text=»BL EQU 14 LENGTH ITEM ADDRESS «, t00=0x0020, t01=0x0042}
0x03262…03270 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0068}
0x03270…0327c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0020, t01=0x0076}
0x0327c…03288 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0020, t01=0x0082}
0x03288…0329a Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0020, t01=0x008e}
0x0329a…032ac Head {h00=0x000e, h01=0x0050, text=»* T:D * «, t00=0x0020, t01=0x00a0}
0x032ac…032be Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0020, t01=0x00b2}
0x032be…032ea Head {h00=0x0028, h01=0x0050, text=»FCD EQU 0 DISPLACEMENT TO FCB IN T:A«, t00=0x0020, t01=0x00c4}
0x032ea…0331a Head {h00=0x002c, h01=0x0050, text=»T:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE)«, t00=0x0020, t01=0x00f0}
0x0331a…0334a Head {h00=0x002c, h01=0x0050, text=»DATLEN EQU 4 NUMBER OF DATASETS (DSCB'S)«, t00=0x0020, t01=0x0120}
0x0334a…03374 Head {h00=0x0026, h01=0x0050, text=»WATLEN EQU 6 NUMBER OF WATELEMENTS«, t00=0x0020, t01=0x0150}
0x03374…033a8 Head {h00=0x0030, h01=0x0050, text=»TWBMSK EQU 8 MASK FOR TWB'S (ONE BIT/ENTRY) «, t00=0x0020, t01=0x017a}
0x033a8…033d6 Head {h00=0x002a, h01=0x0050, text=»SWBMSK EQU 10 MASK FOR SWB'S -"- «, t00=0x0021, t01=0x001e}
0x033d6…03404 Head {h00=0x002a, h01=0x0050, text=»CWBMSK EQU 12 MASK FOR CWB'S -"- «, t00=0x0021, t01=0x004c}
0x03404…03432 Head {h00=0x002a, h01=0x0050, text=»UWBMSK EQU 14 MASK FOR UWB'S -"- «, t00=0x0021, t01=0x007a}
0x03432…0345e Head {h00=0x0028, h01=0x0050, text=»DWBFST EQU 16 FIRST WORD IN DBLK-TAB«, t00=0x0021, t01=0x00a8}
0x0345e…03466 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00d4}
0x03466…03498 Head {h00=0x002e, h01=0x0050, text=»STPREC EQU 4 RECORD LENGTH OF START-POINTS«, t00=0x0021, t01=0x00dc}
0x03498…034a0 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x010e}
0x034a0…034a8 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0116}
0x034a8…034c0 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0021, t01=0x011e}
0x034c0…034d8 Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x0021, t01=0x0136}
0x034d8…034f0 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0021, t01=0x014e}
0x034f0…03512 Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x0021, t01=0x0166}
0x03512…0351a Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0188}
0x0351a…03538 Head {h00=0x001a, h01=0x0050, text=» LAMP CODE MEANING «, t00=0x0021, t01=0x0190}
0x03538…03556 Head {h00=0x001a, h01=0x0050, text=» --------- ------- «, t00=0x0022, t01=0x001e}
0x03556…03578 Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 SYSLOAD RUNS«, t00=0x0022, t01=0x003c}
0x03578…03598 Head {h00=0x001c, h01=0x0050, text=»LMP2 EQU /200 READ ERROR«, t00=0x0022, t01=0x005e}
0x03598…035be Head {h00=0x0022, h01=0x0050, text=»LMP3 EQU /100 MEMORY OVERFLOW «, t00=0x0022, t01=0x007e}
0x035be…035e8 Head {h00=0x0026, h01=0x0050, text=»LMP4 EQU /80 FORMAT ERROR (CONFIG)«, t00=0x0022, t01=0x00a4}
0x035e8…03606 Head {h00=0x001a, h01=0x0050, text=»LMP5 EQU /40 TID ERROR«, t00=0x0022, t01=0x00ce}
0x03606…0362c Head {h00=0x0022, h01=0x0050, text=»LMP6 EQU /20 UWB OR SWB ERROR «, t00=0x0022, t01=0x00ec}
0x0362c…03652 Head {h00=0x0022, h01=0x0050, text=»LMP7 EQU /10 MM-TABLE OVERFLOW«, t00=0x0022, t01=0x0112}
0x03652…03664 Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x0022, t01=0x0138}
0x03664…03676 Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x0022, t01=0x014a}
0x03676…0368a Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x0022, t01=0x015c}
0x0368a…0369e Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x0022, t01=0x0170}
0x0369e…036ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0184}
0x036ac…036ca (35, 0, 400) Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0023, t01=0x0004}
0x036ca…036e8 Head {h00=0x001a, h01=0x0050, text=»* OTHER CONSTANTS * «, t00=0x0023, t01=0x0022}
0x036e8…03706 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0023, t01=0x0040}
0x03706…03712 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0023, t01=0x005e}
0x03712…0373c Head {h00=0x0026, h01=0x0050, text=»WBLEN EQU -4 LENGTH OF WORK-BLOCK «, t00=0x0023, t01=0x006a}
0x0373c…0376c Head {h00=0x002c, h01=0x0050, text=»DTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE «, t00=0x0023, t01=0x0094}
0x0376c…03796 Head {h00=0x0026, h01=0x0050, text=»SWBLEN EQU 4 DISP TO LENGTH OF SWB«, t00=0x0023, t01=0x00c4}
0x03796…037a2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0023, t01=0x00ee}
0x037a2…037ca Head {h00=0x0024, h01=0x0050, text=»FCBDD1 EQU 8 DISP TO FIRST DSET «, t00=0x0023, t01=0x00fa}
0x037ca…037f2 Head {h00=0x0024, h01=0x0050, text=»FCBDD2 EQU 10 DISP TO 2:ND DSET «, t00=0x0023, t01=0x0122}
0x037f2…037fe Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0023, t01=0x014a}
0x037fe…03826 Head {h00=0x0024, h01=0x0050, text=»STKSZ EQU 128 DEFAULT STACK-SIZE«, t00=0x0023, t01=0x0156}
0x03826…03832 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0023, t01=0x017e}
0x03832…0385c Head {h00=0x0026, h01=0x0050, text=»CREID EQU 2 CREDIT IDENTIFICATION «, t00=0x0023, t01=0x018a}
0x0385c…03888 Head {h00=0x0028, h01=0x0050, text=»SEGREC EQU 6 RECORD LENGTH IN S:GTAB«, t00=0x0024, t01=0x0024}
0x03888…038c4 Head {h00=0x0038, h01=0x0050, text=»NUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN S:GTAB«, t00=0x0024, t01=0x0050}
0x038c4…038cc Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x008c}
0x038cc…038ec Head {h00=0x001c, h01=0x0050, text=»TTBTID EQU 2 TID IN TTAB«, t00=0x0024, t01=0x0094}
0x038ec…0391e Head {h00=0x002e, h01=0x0050, text=»T:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB «, t00=0x0024, t01=0x00b4}
0x0391e…0394c Head {h00=0x002a, h01=0x0050, text=»TTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB«, t00=0x0024, t01=0x00e6}
0x0394c…03954 Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x0114}
0x03954…03980 Head {h00=0x0028, h01=0x0050, text=»NTPA EQU 4 INTERPRETER START ADDRESS«, t00=0x0024, t01=0x011c}
0x03980…039aa Head {h00=0x0026, h01=0x0050, text=»IHRTC EQU 4 RTC INTERRUPT ADDRESS «, t00=0x0024, t01=0x0148}
0x039aa…039d2 Head {h00=0x0024, h01=0x0050, text=»RTCDA EQU /1B RTC DEVICE ADDRESS«, t00=0x0024, t01=0x0172}
0x039d2…039de Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0025, t01=0x000a}
0x039de…03a28 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0025, t01=0x0016}
0x03a28…03a72 Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x0025, t01=0x0060}
0x03a72…03abc Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x0025, t01=0x00aa}
0x03abc…03b06 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0025, t01=0x00f4}
0x03b06…03b50 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0025, t01=0x013e}
0x03b50…03b5c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0025, t01=0x0188}
0x03b5c…03b68 (38, 0, 400) Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0026, t01=0x0004}
0x03b68…03b74 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0026, t01=0x0010}
0x03b74…03b92 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x0026, t01=0x001c}
0x03b92…03ba0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x003a}
0x03ba0…03bac Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0026, t01=0x0048}
0x03bac…03be6 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x0054}
0x03be6…03c20 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x008e}
0x03c20…03c5a Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0026, t01=0x00c8}
0x03c5a…03c94 Head {h00=0x0036, h01=0x0050, text=»** RELOCATION ROUTINE & STACK INITIALLISATION **«, t00=0x0026, t01=0x0102}
0x03c94…03cce Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0026, t01=0x013c}
0x03cce…03d08 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x0176}
0x03d08…03d42 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0027, t01=0x0020}
0x03d42…03d4e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0027, t01=0x005a}
0x03d4e…03d7e Head {h00=0x002c, h01=0x0050, text=»REL RF SUBBA JUMP TO SUBROUTINE HANDLER «, t00=0x0027, t01=0x0066}
0x03d7e…03da8 Head {h00=0x0026, h01=0x0050, text=» LDR A13,P GET BASE ADDRESS TO A13«, t00=0x0027, t01=0x0096}
0x03da8…03dbc Head {h00=0x0010, h01=0x0050, text=» SUKL A13,4 «, t00=0x0027, t01=0x00c0}
0x03dbc…03dde Head {h00=0x001e, h01=0x0050, text=»* ADJUST FOR PSW-ROUTINE *«, t00=0x0027, t01=0x00d4}
0x03dde…03e00 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0027, t01=0x00f6}
0x03e00…03e38 Head {h00=0x0034, h01=0x0050, text=» LDK A3,GETPSW RELATIVE ADDRESS TO 'PSW-ADDRESS'«, t00=0x0027, t01=0x0118}
0x03e38…03e58 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A13 ABSOLUT DITO«, t00=0x0027, t01=0x0150}
0x03e58…03e90 Head {h00=0x0034, h01=0x0050, text=» ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE«, t00=0x0027, t01=0x0170}
0x03e90…03eaa Head {h00=0x0016, h01=0x0050, text=»* LOAD STACKBASE *«, t00=0x0028, t01=0x0018}
0x03eaa…03ec4 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0028, t01=0x0032}
0x03ec4…03ecc Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x004c}
0x03ecc…03ee4 Head {h00=0x0014, h01=0x0050, text=» LDKL A14,STACKB«, t00=0x0028, t01=0x0054}
0x03ee4…03f02 Head {h00=0x001a, h01=0x0050, text=» ADR A14,A13 RELOCATE «, t00=0x0028, t01=0x006c}
0x03f02…03f12 Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0028, t01=0x008a}
0x03f12…03f1e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x009a}
0x03f1e…03f2a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x00a6}
0x03f2a…03f3c Head {h00=0x000e, h01=0x0050, text=»* STACK * «, t00=0x0028, t01=0x00b2}
0x03f3c…03f4e Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0028, t01=0x00c4}
0x03f4e…03f58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00d6}
0x03f58…03f68 Head {h00=0x000c, h01=0x0050, text=» RES 12 «, t00=0x0028, t01=0x00e0}
0x03f68…03f82 Head {h00=0x0016, h01=0x0050, text=»STACKB EQU *-REL-2«, t00=0x0028, t01=0x00f0}
0x03f82…03f90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x010a}
0x03f90…03f9c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x0118}
0x03f9c…03fa8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x0124}
0x03fa8…03fca Head {h00=0x001e, h01=0x0050, text=»* ADDRESS TO PSW-ROUTINE *«, t00=0x0028, t01=0x0130}
0x03fca…03fec Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0028, t01=0x0152}
0x03fec…03ff6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0174}
0x03ff6…0400c Head {h00=0x0012, h01=0x0050, text=»PSW EQU *-REL «, t00=0x0028, t01=0x017e}
0x0400c…04020 (41, 0, 400) Head {h00=0x0010, h01=0x0050, text=» DATA GETPSW«, t00=0x0029, t01=0x0004}
0x04020…0402c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0029, t01=0x0018}
0x0402c…04074 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0029, t01=0x0024}
0x04074…040bc Head {h00=0x0044, h01=0x0050, text=»* G E T P S W *«, t00=0x0029, t01=0x006c}
0x040bc…04104 Head {h00=0x0044, h01=0x0050, text=»* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE *«, t00=0x0029, t01=0x00b4}
0x04104…0414c Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0029, t01=0x00fc}
0x0414c…04158 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0029, t01=0x0144}
0x04158…04170 Head {h00=0x0014, h01=0x0050, text=»GETPSW EQU *-REL«, t00=0x0029, t01=0x0150}
0x04170…04198 Head {h00=0x0024, h01=0x0050, text=» STR A2,A14 SAVE A2 ON A14-STACK«, t00=0x0029, t01=0x0168}
0x04198…041cc Head {h00=0x0030, h01=0x0050, text=» LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE«, t00=0x0029, t01=0x0190}
0x041cc…041fe Head {h00=0x002e, h01=0x0050, text=» ST A2,6,A14 REPLACE PSW FROM MAIN PROGRAM«, t00=0x002a, t01=0x0034}
0x041fe…0421e Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A14 RESTORE A2 «, t00=0x002a, t01=0x0066}
0x0421e…0422e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0086}
0x0422e…0423c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0096}
0x0423c…04244 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00a4}
0x04244…0426e Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002a, t01=0x00ac}
0x0426e…04298 Head {h00=0x0026, h01=0x0050, text=»* * «, t00=0x002a, t01=0x00d6}
0x04298…042c2 Head {h00=0x0026, h01=0x0050, text=»* SUBROUTINE-HANDLER * «, t00=0x002a, t01=0x0100}
0x042c2…042ec Head {h00=0x0026, h01=0x0050, text=»* * «, t00=0x002a, t01=0x012a}
0x042ec…04316 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002a, t01=0x0154}
0x04316…0431e Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x017e}
0x0431e…04336 Head {h00=0x0014, h01=0x0050, text=»SUBSUB EQU *-REL«, t00=0x002a, t01=0x0186}
0x04336…0435c Head {h00=0x0022, h01=0x0050, text=»SUBBA ST A10,MUL,A13 SAVE A10 «, t00=0x002b, t01=0x000e}
0x0435c…0438e Head {h00=0x002e, h01=0x0050, text=» LD* A10,4,A14 GET SUBROUTINE REL ADDRESS «, t00=0x002b, t01=0x0034}
0x0438e…043b6 Head {h00=0x0024, h01=0x0050, text=» IM 4,A14 ADJUST RETURN ADDRESS «, t00=0x002b, t01=0x0066}
0x043b6…043c8 Head {h00=0x000e, h01=0x0050, text=» IM 4,A14 «, t00=0x002b, t01=0x008e}
0x043c8…043fc Head {h00=0x0030, h01=0x0050, text=» AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION «, t00=0x002b, t01=0x00a0}
0x043fc…0441e Head {h00=0x001e, h01=0x0050, text=» STR A10,A14 PUT ON STACK «, t00=0x002b, t01=0x00d4}
0x0441e…04442 Head {h00=0x0020, h01=0x0050, text=» LD A10,MUL,A13 RESTORE A10 «, t00=0x002b, t01=0x00f6}
0x04442…04454 Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x002b, t01=0x011a}
0x04454…0445c Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x012c}
0x0445c…04464 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0134}
0x04464…0446c Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x013c}
0x0446c…044ac Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x0144}
0x044ac…044ec Head {h00=0x003c, h01=0x0050, text=»* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * «, t00=0x002b, t01=0x0184}
0x044ec…0452c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002c, t01=0x0034}
0x0452c…04534 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0074}
0x04534…0454c Head {h00=0x0014, h01=0x0050, text=»JUMP ABL SYSLDM «, t00=0x002c, t01=0x007c}
0x0454c…0455a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0094}
0x0455a…04566 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x002c, t01=0x00a2}
0x04566…04592 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002c, t01=0x00ae}
0x04592…045be Head {h00=0x0028, h01=0x0050, text=»** **«, t00=0x002c, t01=0x00da}
0x045be…045ea Head {h00=0x0028, h01=0x0050, text=»** SAVE, AND COMMUNICATION AREA **«, t00=0x002c, t01=0x0106}
0x045ea…04616 Head {h00=0x0028, h01=0x0050, text=»** **«, t00=0x002c, t01=0x0132}
0x04616…04642 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002c, t01=0x015e}
0x04642…0464e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x002c, t01=0x018a}
0x0464e…0467c Head {h00=0x002a, h01=0x0050, text=»T:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS «, t00=0x002d, t01=0x0008}
0x0467c…0468c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0036}
0x0468c…046ba Head {h00=0x002a, h01=0x0050, text=»T:ATNW EQU *-REL T:ATAB 'NEW' ADDRESS «, t00=0x002d, t01=0x0046}
0x046ba…046ca Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0074}
0x046ca…046f6 Head {h00=0x0028, h01=0x0050, text=»U:BTOD EQU *-REL U:BTAB OLD ADDRESS «, t00=0x002d, t01=0x0084}
0x046f6…04706 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x00b0}
0x04706…04732 Head {h00=0x0028, h01=0x0050, text=»U:BTNW EQU *-REL U:BTAB NEW ADDRESS «, t00=0x002d, t01=0x00c0}
0x04732…04742 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x00ec}
0x04742…0476e Head {h00=0x0028, h01=0x0050, text=»S:BTOD EQU *-REL S:BTAB OLD ADDRESS «, t00=0x002d, t01=0x00fc}
0x0476e…0477e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0128}
0x0477e…047aa Head {h00=0x0028, h01=0x0050, text=»S:BTNW EQU *-REL S:BTAB NEW ADDRESS «, t00=0x002d, t01=0x0138}
0x047aa…047ba Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0164}
0x047ba…047ec Head {h00=0x002e, h01=0x0050, text=»MOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE«, t00=0x002d, t01=0x0174}
0x047ec…047fc Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0016}
0x047fc…04834 Head {h00=0x0034, h01=0x0050, text=»MOVED EQU *-REL INDICATOR IF BLOCK ALREDY MOVED «, t00=0x002e, t01=0x0026}
0x04834…04844 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x005e}
0x04844…04872 Head {h00=0x002a, h01=0x0050, text=»ENDADD EQU *-REL END-ADDRESS INDICATOR«, t00=0x002e, t01=0x006e}
0x04872…04890 Head {h00=0x001a, h01=0x0050, text=» FOR TABLE-SCANNING «, t00=0x002e, t01=0x009c}
0x04890…048a0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x00ba}
0x048a0…048de Head {h00=0x003a, h01=0x0050, text=»LSTADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART «, t00=0x002e, t01=0x00ca}
0x048de…048ee Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0108}
0x048ee…04932 Head {h00=0x0040, h01=0x0050, text=»FSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS «, t00=0x002e, t01=0x0118}
0x04932…04942 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x015c}
0x04942…04970 Head {h00=0x002a, h01=0x0050, text=»NEWAD1 EQU *-REL SAVE FOR W.B. ADDRESS«, t00=0x002e, t01=0x016c}
0x04970…04980 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x000a}
0x04980…049ae Head {h00=0x002a, h01=0x0050, text=»NEWAD2 EQU *-REL SAVE FORD.T. ADDRESS «, t00=0x002f, t01=0x001a}
0x049ae…049be Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0048}
0x049be…049e6 Head {h00=0x0024, h01=0x0050, text=»SWITCH EQU *-REL D.T. INDICATOR «, t00=0x002f, t01=0x0058}
0x049e6…049f6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0080}
0x049f6…04a30 Head {h00=0x0036, h01=0x0050, text=»FLAG EQU *-REL REAL TASK DATA PROCESSING INDICATOR«, t00=0x002f, t01=0x0090}
0x04a30…04a40 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x00ca}
0x04a40…04a66 Head {h00=0x0022, h01=0x0050, text=»UWB EQU *-REL U.W.B. INDICATOR«, t00=0x002f, t01=0x00da}
0x04a66…04a76 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0100}
0x04a76…04aa0 Head {h00=0x0026, h01=0x0050, text=»APPTYP EQU *-REL APPLICATION TYPE «, t00=0x002f, t01=0x0110}
0x04aa0…04ab0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x013a}
0x04ab0…04ad8 Head {h00=0x0024, h01=0x0050, text=»SAVE01 EQU *-REL TEMPORARY SAVE «, t00=0x002f, t01=0x014a}
0x04ad8…04ae8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0172}
0x04ae8…04b00 Head {h00=0x0014, h01=0x0050, text=»SAVE02 EQU *-REL«, t00=0x002f, t01=0x0182}
0x04b00…04b10 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x000a}
0x04b10…04b28 Head {h00=0x0014, h01=0x0050, text=»SAVE03 EQU *-REL«, t00=0x0030, t01=0x001a}
0x04b28…04b38 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0032}
0x04b38…04b50 Head {h00=0x0014, h01=0x0050, text=»SAVE04 EQU *-REL«, t00=0x0030, t01=0x0042}
0x04b50…04b60 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x005a}
0x04b60…04b78 Head {h00=0x0014, h01=0x0050, text=»SAVE05 EQU *-REL«, t00=0x0030, t01=0x006a}
0x04b78…04b88 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0082}
0x04b88…04ba0 Head {h00=0x0014, h01=0x0050, text=»SAVE06 EQU *-REL«, t00=0x0030, t01=0x0092}
0x04ba0…04bb0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00aa}
0x04bb0…04bc8 Head {h00=0x0014, h01=0x0050, text=»SAVE07 EQU *-REL«, t00=0x0030, t01=0x00ba}
0x04bc8…04bd8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00d2}
0x04bd8…04bf0 Head {h00=0x0014, h01=0x0050, text=»SAVE08 EQU *-REL«, t00=0x0030, t01=0x00e2}
0x04bf0…04c00 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00fa}
0x04c00…04c24 Head {h00=0x0020, h01=0x0050, text=»SAVE09 EQU *-REL SAVE AREAS «, t00=0x0030, t01=0x010a}
0x04c24…04c34 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x012e}
0x04c34…04c4c Head {h00=0x0014, h01=0x0050, text=»SAVE10 EQU *-REL«, t00=0x0030, t01=0x013e}
0x04c4c…04c5c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0156}
0x04c5c…04c74 Head {h00=0x0014, h01=0x0050, text=»SAVE11 EQU *-REL«, t00=0x0030, t01=0x0166}
0x04c74…04c84 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x017e}
0x04c84…04c9c Head {h00=0x0014, h01=0x0050, text=»SAVE12 EQU *-REL«, t00=0x0030, t01=0x018e}
0x04c9c…04cac Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0016}
0x04cac…04cc4 Head {h00=0x0014, h01=0x0050, text=»SAVE13 EQU *-REL«, t00=0x0031, t01=0x0026}
0x04cc4…04cd4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x003e}
0x04cd4…04cec Head {h00=0x0014, h01=0x0050, text=»SAVE22 EQU *-REL«, t00=0x0031, t01=0x004e}
0x04cec…04cfc Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0066}
0x04cfc…04d14 Head {h00=0x0014, h01=0x0050, text=»SAVE25 EQU *-REL«, t00=0x0031, t01=0x0076}
0x04d14…04d24 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x008e}
0x04d24…04d3c Head {h00=0x0014, h01=0x0050, text=»SAVE26 EQU *-REL«, t00=0x0031, t01=0x009e}
0x04d3c…04d4c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x00b6}
0x04d4c…04d64 Head {h00=0x0014, h01=0x0050, text=»SAVE27 EQU *-REL«, t00=0x0031, t01=0x00c6}
0x04d64…04d74 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x00de}
0x04d74…04d8c Head {h00=0x0014, h01=0x0050, text=»SAVE28 EQU *-REL«, t00=0x0031, t01=0x00ee}
0x04d8c…04d9c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0106}
0x04d9c…04db4 Head {h00=0x0014, h01=0x0050, text=»SAVE29 EQU *-REL«, t00=0x0031, t01=0x0116}
0x04db4…04dc4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x012e}
0x04dc4…04ddc Head {h00=0x0014, h01=0x0050, text=»SAVE30 EQU *-REL«, t00=0x0031, t01=0x013e}
0x04ddc…04dec Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0156}
0x04dec…04e16 Head {h00=0x0026, h01=0x0050, text=»WBADD EQU *-REL W.B.-ADDRESS SAVE «, t00=0x0031, t01=0x0166}
0x04e16…04e26 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0190}
0x04e26…04e54 Head {h00=0x002a, h01=0x0050, text=»MUL EQU *-REL MULTIPLICATION REGISTER «, t00=0x0032, t01=0x0010}
0x04e54…04e64 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x003e}
0x04e64…04e8e Head {h00=0x0026, h01=0x0050, text=»BIT EQU *-REL SAVE FOR SUPER-LOOP «, t00=0x0032, t01=0x004e}
0x04e8e…04e9e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x0078}
0x04e9e…04eda Head {h00=0x0038, h01=0x0050, text=»TADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS«, t00=0x0032, t01=0x0088}
0x04eda…04eea Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x00c4}
0x04eea…04f18 Head {h00=0x002a, h01=0x0050, text=»DATEND EQU *-REL END OF DDIV PROTOTYPE«, t00=0x0032, t01=0x00d4}
0x04f18…04f28 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x0102}
0x04f28…04f54 Head {h00=0x0028, h01=0x0050, text=»MMREL1 EQU *-REL PHYSICALL PAGE BASE«, t00=0x0032, t01=0x0112}
0x04f54…04f64 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x013e}
0x04f64…04f92 Head {h00=0x002a, h01=0x0050, text=»M:REL EQU *-REL RELOCATION FOR SYSLDM «, t00=0x0032, t01=0x014e}
0x04f92…04fa2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x017c}
0x04fa2…04fba Head {h00=0x0014, h01=0x0050, text=»SYSBUF EQU *-REL«, t00=0x0032, t01=0x018c}
0x04fba…04fe8 Head {h00=0x002a, h01=0x0050, text=» DATA 0 TEMPORARY BUFFER START ADDRESS«, t00=0x0033, t01=0x0014}
0x04fe8…05012 Head {h00=0x0026, h01=0x0050, text=»BUFSIZ EQU *-REL TEMP. BUFFER SIZE«, t00=0x0033, t01=0x0042}
0x05012…05022 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0033, t01=0x006c}
0x05022…05048 Head {h00=0x0022, h01=0x0050, text=»MMTO EQU *-REL MMTABLE ADDRESS«, t00=0x0033, t01=0x007c}
0x05048…05058 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0033, t01=0x00a2}
0x05058…05086 Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU *-REL 2:ND MMTABLE ADDRESS «, t00=0x0033, t01=0x00b2}
0x05086…05096 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0033, t01=0x00e0}
0x05096…050ca Head {h00=0x0030, h01=0x0050, text=»FYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER«, t00=0x0033, t01=0x00f0}
0x050ca…050da Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0033, t01=0x0124}
0x050da…050f2 Head {h00=0x0014, h01=0x0050, text=»FSTPAG EQU *-REL«, t00=0x0033, t01=0x0134}
0x050f2…0511e Head {h00=0x0028, h01=0x0050, text=» DATA 0 FIRST FREE PAGE (PHYSICALL) «, t00=0x0033, t01=0x014c}
0x0511e…0514a Head {h00=0x0028, h01=0x0050, text=»TTAB EQU *-REL CORRENT TTAB ADDRESS «, t00=0x0033, t01=0x0178}
0x0514a…0515a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0034, t01=0x0014}
0x0515a…05172 Head {h00=0x0014, h01=0x0050, text=»XMSAV EQU *-REL «, t00=0x0034, t01=0x0024}
0x05172…05184 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0034, t01=0x003c}
0x05184…0519c Head {h00=0x0014, h01=0x0050, text=»LDALEN EQU *-REL«, t00=0x0034, t01=0x004e}
0x0519c…051c4 Head {h00=0x0024, h01=0x0050, text=» DATA LDAEND-REL PROGRAM LENGTH «, t00=0x0034, t01=0x0066}
0x051c4…051cc Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x008e}
0x051cc…051d4 Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x0096}
0x051d4…051dc Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x009e}
0x051dc…05206 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0034, t01=0x00a6}
0x05206…05230 Head {h00=0x0026, h01=0x0050, text=»* EQUATES FOR SYSLDM SAVE-WORDS * «, t00=0x0034, t01=0x00d0}
0x05230…0525a Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0034, t01=0x00fa}
0x0525a…05262 Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x0124}
0x05262…0527c Head {h00=0x0016, h01=0x0050, text=»SAVE14 EQU U:BTOD «, t00=0x0034, t01=0x012c}
0x0527c…05296 Head {h00=0x0016, h01=0x0050, text=»SAVE15 EQU U:BTNW «, t00=0x0034, t01=0x0146}
0x05296…052b0 Head {h00=0x0016, h01=0x0050, text=»SAVE16 EQU MOVADD «, t00=0x0034, t01=0x0160}
0x052b0…052ca Head {h00=0x0016, h01=0x0050, text=»SAVE17 EQU ENDADD «, t00=0x0034, t01=0x017a}
0x052ca…052e4 (53, 0, 398) Head {h00=0x0016, h01=0x0050, text=»SAVE18 EQU LSTADR «, t00=0x0035, t01=0x0004}
0x052e4…052fe Head {h00=0x0016, h01=0x0050, text=»SAVE19 EQU FSTADR «, t00=0x0035, t01=0x001e}
0x052fe…05316 Head {h00=0x0014, h01=0x0050, text=»SAVE20 EQU MOVED«, t00=0x0035, t01=0x0038}
0x05316…05330 Head {h00=0x0016, h01=0x0050, text=»SAVE21 EQU NEWAD1 «, t00=0x0035, t01=0x0050}
0x05330…0534a Head {h00=0x0016, h01=0x0050, text=»SAVE23 EQU SWITCH «, t00=0x0035, t01=0x006a}
0x0534a…05362 Head {h00=0x0014, h01=0x0050, text=»SAVE24 EQU FLAG «, t00=0x0035, t01=0x0084}
0x05362…05370 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x009c}
0x05370…05378 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x00aa}
0x05378…0538e Head {h00=0x0012, h01=0x0050, text=»* MMU TABLES *«, t00=0x0035, t01=0x00b2}
0x0538e…05396 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x00c8}
0x05396…0539e Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x00d0}
0x0539e…053d0 Head {h00=0x002e, h01=0x0050, text=»MMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE «, t00=0x0035, t01=0x00d8}
0x053d0…053e6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0035, t01=0x010a}
0x053e6…053f6 Head {h00=0x000c, h01=0x0050, text=» RES 16 «, t00=0x0035, t01=0x0120}
0x053f6…05402 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0130}
0x05402…0540a Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x013c}
0x0540a…05432 Head {h00=0x0024, h01=0x0050, text=»MMTAB EQU *-REL WORK AREA MM-TAB«, t00=0x0035, t01=0x0144}
0x05432…05446 Head {h00=0x0010, h01=0x0050, text=»TABBE EQU * «, t00=0x0035, t01=0x016c}
0x05446…0545c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0035, t01=0x0180}
0x0545c…0547a Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0036, t01=0x0008}
0x0547a…05498 Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0036, t01=0x0026}
0x05498…054a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0044}
0x054a4…054b8 Head {h00=0x0010, h01=0x0050, text=»MMEND EQU * «, t00=0x0036, t01=0x0050}
0x054b8…054e4 Head {h00=0x0028, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE IN T:A «, t00=0x0036, t01=0x0064}
0x054e4…0551c Head {h00=0x0034, h01=0x0050, text=»TTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB «, t00=0x0036, t01=0x0090}
0x0551c…05550 Head {h00=0x0030, h01=0x0050, text=»LSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER'«, t00=0x0036, t01=0x00c8}
0x05550…05560 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0036, t01=0x00fc}
0x05560…05568 Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x010c}
0x05568…05582 Head {h00=0x0016, h01=0x0050, text=»MMBEG EQU TABBE-* «, t00=0x0036, t01=0x0114}
0x05582…05590 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x012e}
0x05590…0559c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0036, t01=0x013c}
0x0559c…055d6 Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x0036, t01=0x0148}
0x055d6…05610 Head {h00=0x0036, h01=0x0050, text=»*** S U B R O U T I N E S *** «, t00=0x0036, t01=0x0182}
0x05610…0564a Head {h00=0x0036, h01=0x0050, text=»*** -COMMON TO ALL PARTS IN PROGRAM *** «, t00=0x0037, t01=0x002c}
0x0564a…05684 Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x0037, t01=0x0066}
0x05684…056be Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0037, t01=0x00a0}
0x056be…056f8 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0037, t01=0x00da}
0x056f8…05704 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0037, t01=0x0114}
0x05704…05710 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0037, t01=0x0120}
0x05710…05740 Head {h00=0x002c, h01=0x0050, text=»** E R R O R **«, t00=0x0037, t01=0x012c}
0x05740…05770 Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0037, t01=0x015c}
0x05770…057a0 Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0037, t01=0x018c}
0x057a0…057d0 Head {h00=0x002c, h01=0x0050, text=»** ERROR HANDLING ROUTINE. **«, t00=0x0038, t01=0x002c}
0x057d0…05800 Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0038, t01=0x005c}
0x05800…05830 Head {h00=0x002c, h01=0x0050, text=»** INPUT :A1=SOP-MESSAGE **«, t00=0x0038, t01=0x008c}
0x05830…05860 Head {h00=0x002c, h01=0x0050, text=»** OUTPUT:A2=RELATIVE CALLING ADDRESS**«, t00=0x0038, t01=0x00bc}
0x05860…05890 Head {h00=0x002c, h01=0x0050, text=»** (REG-CONTENTS IS SAVED) **«, t00=0x0038, t01=0x00ec}
0x05890…058c0 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0038, t01=0x011c}
0x058c0…058c8 Head {h00=0x0004, h01=0x0050, t00=0x0038, t01=0x014c}
0x058c8…058dc Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x0038, t01=0x0154}
0x058dc…058fe Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVE01,A13 SAVE A2 «, t00=0x0038, t01=0x0168}
0x058fe…05930 Head {h00=0x002e, h01=0x0050, text=» LD A2,4,A14 GET CALLING ABSOLUTE ADDRESS «, t00=0x0038, t01=0x018a}
0x05930…05952 Head {h00=0x001e, h01=0x0050, text=» SUR A2,A13 RELATIVE DITO «, t00=0x0039, t01=0x002c}
0x05952…05968 Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x0039, t01=0x004e}
0x05968…05974 Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x0039, t01=0x0064}
0x05974…0599a Head {h00=0x0022, h01=0x0050, text=» DATA /6300 (DEBUGGING PURPOS)«, t00=0x0039, t01=0x0070}
0x0599a…059a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0096}
0x059a8…059b0 Head {h00=0x0004, h01=0x0050, t00=0x0039, t01=0x00a4}
0x059b0…059da Head {h00=0x0026, h01=0x0050, text=»** M O V E ** «, t00=0x0039, t01=0x00ac}
0x059da…05a04 Head {h00=0x0026, h01=0x0050, text=»** ** «, t00=0x0039, t01=0x00d6}
0x05a04…05a2e Head {h00=0x0026, h01=0x0050, text=»** ** «, t00=0x0039, t01=0x0100}
0x05a2e…05a58 Head {h00=0x0026, h01=0x0050, text=»** MOVE BLOCKS INSIDE MEMORY ** «, t00=0x0039, t01=0x012a}
0x05a58…05a82 Head {h00=0x0026, h01=0x0050, text=»** ** «, t00=0x0039, t01=0x0154}
0x05a82…05aac Head {h00=0x0026, h01=0x0050, text=»** INPUT:A1=FROM-ADDRESS ** «, t00=0x0039, t01=0x017e}
0x05aac…05ad6 Head {h00=0x0026, h01=0x0050, text=»** A2=TO-ADDRESS ** «, t00=0x003a, t01=0x0018}
0x05ad6…05b00 Head {h00=0x0026, h01=0x0050, text=»** A3=LENGTH ** «, t00=0x003a, t01=0x0042}
0x05b00…05b2a Head {h00=0x0026, h01=0x0050, text=»** OUTPUT:A3=-1 ** «, t00=0x003a, t01=0x006c}
0x05b2a…05b54 Head {h00=0x0026, h01=0x0050, text=»** WORK-REG: A4 ** «, t00=0x003a, t01=0x0096}
0x05b54…05b7e Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x003a, t01=0x00c0}
0x05b7e…05b8a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x003a, t01=0x00ea}
0x05b8a…05b9c Head {h00=0x000e, h01=0x0050, text=»MOVE EQU *«, t00=0x003a, t01=0x00f6}
0x05b9c…05bc4 Head {h00=0x0024, h01=0x0050, text=»MOVES ADR A1,A3 END OF FROM AREA«, t00=0x003a, t01=0x0108}
0x05bc4…05be6 Head {h00=0x001e, h01=0x0050, text=» ADR A2,A3 END OF TO-AREA «, t00=0x003a, t01=0x0130}
0x05be6…05c10 Head {h00=0x0026, h01=0x0050, text=» LD A4,SCTEFA GET END OF FREE AREA«, t00=0x003a, t01=0x0152}
0x05c10…05c2e Head {h00=0x001a, h01=0x0050, text=» TNM A2,A4 SIGN EQUAL?«, t00=0x003a, t01=0x017c}
0x05c2e…05c48 Head {h00=0x0016, h01=0x0050, text=» RF(NN) MOVNN YES «, t00=0x003b, t01=0x000a}
0x05c48…05c74 Head {h00=0x0028, h01=0x0050, text=» CWR A4,A2 COMPARE WHEN UNEQUAL SIGN«, t00=0x003b, t01=0x0024}
0x05c74…05c86 Head {h00=0x000e, h01=0x0050, text=» RF MOVCK «, t00=0x003b, t01=0x0050}
0x05c86…05cb6 Head {h00=0x002c, h01=0x0050, text=»MOVNN CWR A2,A4 COMPARE WHEN EQUAL SIGN «, t00=0x003b, t01=0x0062}
0x05cb6…05cf2 Head {h00=0x0038, h01=0x0050, text=»MOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA«, t00=0x003b, t01=0x0092}
0x05cf2…05d20 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x003b, t01=0x00ce}
0x05d20…05d34 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x003b, t01=0x00fc}
0x05d34…05d56 Head {h00=0x001e, h01=0x0050, text=»MOVE10 SUK A3,1 DEC LENGTH«, t00=0x003b, t01=0x0110}
0x05d56…05d74 Head {h00=0x001a, h01=0x0050, text=» RF(N) MOVE20 ALL DONE«, t00=0x003b, t01=0x0132}
0x05d74…05d86 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003b, t01=0x0150}
0x05d86…05d98 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003b, t01=0x0162}
0x05d98…05db8 Head {h00=0x001c, h01=0x0050, text=» LCR A4,A1 GET CHARACTER«, t00=0x003b, t01=0x0174}
0x05db8…05dda (60, 0, 400) Head {h00=0x001e, h01=0x0050, text=» SCR A4,A2 STORE CHARACTER«, t00=0x003c, t01=0x0004}
0x05dda…05dec Head {h00=0x000e, h01=0x0050, text=» RB MOVE10«, t00=0x003c, t01=0x0026}
0x05dec…05e02 Head {h00=0x0012, h01=0x0050, text=»MOVE20 RTN A14«, t00=0x003c, t01=0x0038}
0x05e02…05e1e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x003c, t01=0x004e}
0x05e1e…05e2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x006a}
0x05e2c…05e38 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x003c, t01=0x0078}
0x05e38…05e44 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x003c, t01=0x0084}
0x05e44…05e7c Head {h00=0x0034, h01=0x0050, text=»** M O V I N G ** «, t00=0x003c, t01=0x0090}
0x05e7c…05eb4 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x003c, t01=0x00c8}
0x05eb4…05eec Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x003c, t01=0x0100}
0x05eec…05f24 Head {h00=0x0034, h01=0x0050, text=»** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** «, t00=0x003c, t01=0x0138}
0x05f24…05f5c Head {h00=0x0034, h01=0x0050, text=»** ASSUMED TO BE DATA-PART OF MEMORY ** «, t00=0x003c, t01=0x0170}
0x05f5c…05f94 Head {h00=0x0034, h01=0x0050, text=»** LSTADR POINTS AT LAST (HIGHEST) FREE ** «, t00=0x003d, t01=0x0018}
0x05f94…05fcc Head {h00=0x0034, h01=0x0050, text=»** ADDRESS. LSTADR IS UPDATED AND CHECKED ** «, t00=0x003d, t01=0x0050}
0x05fcc…06004 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x003d, t01=0x0088}
0x06004…0603c Head {h00=0x0034, h01=0x0050, text=»** INPUT:A3 & A1 AS IN 'MOVE' ** «, t00=0x003d, t01=0x00c0}
0x0603c…06074 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** «, t00=0x003d, t01=0x00f8}
0x06074…060ac Head {h00=0x0034, h01=0x0050, text=»** WORK-REG: A4 ** «, t00=0x003d, t01=0x0130}
0x060ac…060e4 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x003d, t01=0x0168}
0x060e4…060f0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x003e, t01=0x0010}
0x060f0…06104 Head {h00=0x0010, h01=0x0050, text=»MOVING EQU *«, t00=0x003e, t01=0x001c}
0x06104…0612e Head {h00=0x0026, h01=0x0050, text=» LD A2,LSTADR,A13 GET LAST ADDRESS«, t00=0x003e, t01=0x0030}
0x0612e…0614c Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 SUB LENGTH «, t00=0x003e, t01=0x005a}
0x0614c…06174 Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x003e, t01=0x0078}
0x06174…06198 Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE01,A13 SAVE A11 «, t00=0x003e, t01=0x00a0}
0x06198…061ba Head {h00=0x001e, h01=0x0050, text=» ST A9,SAVE12,A13 SAVE A9 «, t00=0x003e, t01=0x00c4}
0x061ba…061ce Head {h00=0x0010, h01=0x0050, text=» LDR A11,A2 «, t00=0x003e, t01=0x00e6}
0x061ce…061fc Head {h00=0x002a, h01=0x0050, text=» LD A9,DATEND,A13 END OF PROTOTYP AREA«, t00=0x003e, t01=0x00fa}
0x061fc…06222 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x003e, t01=0x0128}
0x06222…06238 Head {h00=0x0012, h01=0x0050, text=» RF(NL) MOV020«, t00=0x003e, t01=0x014e}
0x06238…06264 Head {h00=0x0028, h01=0x0050, text=»MOV010 LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x003e, t01=0x0164}
0x06264…06278 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x003e, t01=0x0190}
0x06278…062b0 Head {h00=0x0034, h01=0x0050, text=»MOV020 LD A9,FSTADR,A13 CHECK FIRST FREE ADDRESS«, t00=0x003f, t01=0x0014}
0x062b0…062c4 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x003f, t01=0x004c}
0x062c4…062da Head {h00=0x0012, h01=0x0050, text=» RB(L) MOV010 «, t00=0x003f, t01=0x0060}
0x062da…06300 Head {h00=0x0022, h01=0x0050, text=» ST A2,LSTADR,A13 NEW ADDRESS «, t00=0x003f, t01=0x0076}
0x06300…0632c Head {h00=0x0028, h01=0x0050, text=» LD A9,SAVE12,A13 RESTORE REGISTERS «, t00=0x003f, t01=0x009c}
0x0632c…06346 Head {h00=0x0016, h01=0x0050, text=» LD A11,SAVE01,A13«, t00=0x003f, t01=0x00c8}
0x06346…06358 Head {h00=0x000e, h01=0x0050, text=» RB MOVES «, t00=0x003f, t01=0x00e2}
0x06358…06364 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x00f4}
0x06364…06380 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x003f, t01=0x0100}
0x06380…0638e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x011c}
0x0638e…06396 Head {h00=0x0004, h01=0x0001, t00=0x003f, t01=0x012a}
0x06396…063ce Head {h00=0x0034, h01=0x0050, text=»** X M O V E **«, t00=0x003f, t01=0x0132}
0x063ce…06406 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x003f, t01=0x016a}
0x06406…0643e Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0040, t01=0x0012}
0x0643e…06476 Head {h00=0x0034, h01=0x0050, text=»** MOVE BLOCK INSIDE MEMORY VIA MMU **«, t00=0x0040, t01=0x004a}
0x06476…064ae Head {h00=0x0034, h01=0x0050, text=»** TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) **«, t00=0x0040, t01=0x0082}
0x064ae…064e6 Head {h00=0x0034, h01=0x0050, text=»** -MOVE TO USER AREA **«, t00=0x0040, t01=0x00ba}
0x064e6…0651e Head {h00=0x0034, h01=0x0050, text=»** IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT**«, t00=0x0040, t01=0x00f2}
0x0651e…06556 Head {h00=0x0034, h01=0x0050, text=»** BIG ENOUGH THE MOVE IS REPEATED **«, t00=0x0040, t01=0x012a}
0x06556…0658e Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0040, t01=0x0162}
0x0658e…065c6 Head {h00=0x0034, h01=0x0050, text=»** INPUT :A1=FROM-ADDR(MMFROM=MM-TABLE ADDR.)**«, t00=0x0041, t01=0x000a}
0x065c6…065fe Head {h00=0x0034, h01=0x0050, text=»** A2=TO-ADDRESS (MMTO=MM-TABLE ADDR.)**«, t00=0x0041, t01=0x0042}
0x065fe…06636 Head {h00=0x0034, h01=0x0050, text=»** A3=LENGTH (IN BYTES) **«, t00=0x0041, t01=0x007a}
0x06636…0666e Head {h00=0x0034, h01=0x0050, text=»** WORK.REGS:A4,A10 **«, t00=0x0041, t01=0x00b2}
0x0666e…066a6 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0041, t01=0x00ea}
0x066a6…066ae Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x0122}
0x066ae…066c2 Head {h00=0x0010, h01=0x0050, text=»XMOVE EQU * «, t00=0x0041, t01=0x012a}
0x066c2…066dc Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE09,A13 «, t00=0x0041, t01=0x013e}
0x066dc…066f6 Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE07,A13 «, t00=0x0041, t01=0x0158}
0x066f6…06710 Head {h00=0x0016, h01=0x0050, text=» ST A2,SAVE10,A13 «, t00=0x0041, t01=0x0172}
0x06710…0672a Head {h00=0x0016, h01=0x0050, text=» ST A2,SAVE08,A13 «, t00=0x0041, t01=0x018c}
0x0672a…06744 Head {h00=0x0016, h01=0x0050, text=» ST A3,SAVE11,A13 «, t00=0x0042, t01=0x0016}
0x06744…0676e Head {h00=0x0026, h01=0x0050, text=» ST A9,XMSAV,A13 SAVE A9 TEMPORARY«, t00=0x0042, t01=0x0030}
0x0676e…0679c Head {h00=0x002a, h01=0x0050, text=» ST A11,XMSAV+2,A13 SAVE A11 TEMPORARY«, t00=0x0042, t01=0x005a}
0x0679c…067b0 Head {h00=0x0010, h01=0x0050, text=»XMOV05 EQU *«, t00=0x0042, t01=0x0088}
0x067b0…067d0 Head {h00=0x001c, h01=0x0017, text=» LDR A10,A3 SAVE LENGTH «, t00=0x0042, t01=0x009c}
0x067d0…06800 Head {h00=0x002c, h01=0x0028, text=» LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER«, t00=0x0042, t01=0x00bc}
0x06800…0682e Head {h00=0x002a, h01=0x0050, text=» LDR A11,A3 GET LENGTH OF AREA TO MOVE«, t00=0x0042, t01=0x00ec}
0x0682e…06862 Head {h00=0x0030, h01=0x0050, text=» LD A9,BUFSIZ,A13 GET TEMPORARY BUFFER SIZE «, t00=0x0042, t01=0x011a}
0x06862…06894 Head {h00=0x002e, h01=0x0050, text=» CALL CMPADR TEMPORARY BUFFER BIG ENOUGTH «, t00=0x0042, t01=0x014e}
0x06894…068ba Head {h00=0x0022, h01=0x001d, text=» RF(G) SPLIT NO! SEVERAL MOVE «, t00=0x0042, t01=0x0180}
0x068ba…068de Head {h00=0x0020, h01=0x0050, text=»XMOV10 LDR A3,A10 GET LENGTH«, t00=0x0043, t01=0x0016}
0x068de…06908 Head {h00=0x0026, h01=0x0050, text=» LD A1,SAVE09,A13 GET FROM ADDRESS«, t00=0x0043, t01=0x003a}
0x06908…06940 Head {h00=0x0034, h01=0x0050, text=» LD A2,SYSBUF,A13 GET TEMP. BUFFER START-ADDRESS«, t00=0x0043, t01=0x0064}
0x06940…06968 Head {h00=0x0024, h01=0x0050, text=» TL* MMFROM,A13 LOAD FROM-TABLE «, t00=0x0043, t01=0x009c}
0x06968…06998 Head {h00=0x002c, h01=0x0028, text=» MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER«, t00=0x0043, t01=0x00c4}
0x06998…069cc Head {h00=0x0030, h01=0x0050, text=» ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS«, t00=0x0043, t01=0x00f4}
0x069cc…069e6 Head {h00=0x0016, h01=0x0050, text=» LD A1,SYSBUF,A13 «, t00=0x0043, t01=0x0128}
0x069e6…06a1a Head {h00=0x0030, h01=0x0050, text=» LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS «, t00=0x0043, t01=0x0142}
0x06a1a…06a38 Head {h00=0x001a, h01=0x0016, text=» LDR A3,A10 GET LENGTH«, t00=0x0043, t01=0x0176}
0x06a38…06a5c (68, 0, 400) Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0044, t01=0x0004}
0x06a5c…06a88 Head {h00=0x0028, h01=0x0024, text=» MVSU A3 MOVE DATA-BLOCK FROM BUFFER«, t00=0x0044, t01=0x0028}
0x06a88…06aae Head {h00=0x0022, h01=0x001d, text=» SUK A4,1 MORE PARTS TO MOVE? «, t00=0x0044, t01=0x0054}
0x06aae…06ac8 Head {h00=0x0016, h01=0x0050, text=» RF(N) XMOV30 NO! «, t00=0x0044, t01=0x007a}
0x06ac8…06adc Head {h00=0x0010, h01=0x0050, text=» ADR A2,A10 «, t00=0x0044, t01=0x0094}
0x06adc…06b10 Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS«, t00=0x0044, t01=0x00a8}
0x06b10…06b3e Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE11,A13 GET REQUESTED LENGTH«, t00=0x0044, t01=0x00dc}
0x06b3e…06b66 Head {h00=0x0024, h01=0x0050, text=» SUR A3,A10 SUBTRACT MOVED PART «, t00=0x0044, t01=0x010a}
0x06b66…06b84 Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE11,A13 SAVE«, t00=0x0044, t01=0x0132}
0x06b84…06bb0 Head {h00=0x0028, h01=0x0050, text=» LDR A11,A3 GET REMAINING LENGTH =3 «, t00=0x0044, t01=0x0150}
0x06bb0…06be0 Head {h00=0x002c, h01=0x0050, text=» LDR A9,A10 GET CURRENT BUFFER LENGTH =3«, t00=0x0044, t01=0x017c}
0x06be0…06c1e Head {h00=0x003a, h01=0x0050, text=» CALL CMPADR REMAINING PART <CURRENT BUFFERLENGTH? =3 «, t00=0x0045, t01=0x001c}
0x06c1e…06c34 Head {h00=0x0012, h01=0x0050, text=» RB(NL) XMOV10«, t00=0x0045, t01=0x005a}
0x06c34…06c54 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A3 LAST LENGTH «, t00=0x0045, t01=0x0070}
0x06c54…06c66 Head {h00=0x000e, h01=0x0050, text=» RB XMOV10«, t00=0x0045, t01=0x0090}
0x06c66…06c74 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0045, t01=0x00a2}
0x06c74…06c88 Head {h00=0x0010, h01=0x0050, text=»SPLIT EQU * «, t00=0x0045, t01=0x00b0}
0x06c88…06caa Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 GET DIVISOR =3 «, t00=0x0045, t01=0x00c4}
0x06caa…06cda Head {h00=0x002c, h01=0x0050, text=» SRL A1,15 MOST SIGN. PART OF DIVISOR =3«, t00=0x0045, t01=0x00e6}
0x06cda…06cf8 Head {h00=0x001a, h01=0x0016, text=» LDR A2,A3 GET DIVISOR«, t00=0x0045, t01=0x0116}
0x06cf8…06d1a Head {h00=0x001e, h01=0x0019, text=» DV BUFSIZ,A13 AND DIVIDE «, t00=0x0045, t01=0x0134}
0x06d1a…06d50 Head {h00=0x0032, h01=0x0050, text=» LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1)«, t00=0x0045, t01=0x0156}
0x06d50…06d7a Head {h00=0x0026, h01=0x0022, text=» LD A10,BUFSIZ,A13 MOVE MAX LENGTH«, t00=0x0045, t01=0x018c}
0x06d7a…06d8c Head {h00=0x000e, h01=0x0050, text=» RB XMOV10«, t00=0x0046, t01=0x0026}
0x06d8c…06d94 Head {h00=0x0004, h01=0x0001, t00=0x0046, t01=0x0038}
0x06d94…06dc8 Head {h00=0x0030, h01=0x0050, text=»XMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS'«, t00=0x0046, t01=0x0040}
0x06dc8…06df8 Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS'«, t00=0x0046, t01=0x0074}
0x06df8…06e1c Head {h00=0x0020, h01=0x0050, text=» LD A9,XMSAV,A13 RESTORE A9 «, t00=0x0046, t01=0x00a4}
0x06e1c…06e44 Head {h00=0x0024, h01=0x0050, text=» LD A11,XMSAV+2,A13 RESTORE A11 «, t00=0x0046, t01=0x00c8}
0x06e44…06e54 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0046, t01=0x00f0}
0x06e54…06e62 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0046, t01=0x0100}
0x06e62…06e6a Head {h00=0x0004, h01=0x0001, t00=0x0046, t01=0x010e}
0x06e6a…06ea2 Head {h00=0x0034, h01=0x0050, text=»** M O V I N G ** «, t00=0x0046, t01=0x0116}
0x06ea2…06eda Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0046, t01=0x014e}
0x06eda…06f12 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0046, t01=0x0186}
0x06f12…06f4a Head {h00=0x0034, h01=0x0050, text=»** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** «, t00=0x0047, t01=0x002e}
0x06f4a…06f82 Head {h00=0x0034, h01=0x0050, text=»** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** «, t00=0x0047, t01=0x0066}
0x06f82…06fba Head {h00=0x0034, h01=0x0050, text=»** IS ALWAYS ASSUMED TO BE DATA PART OF ** «, t00=0x0047, t01=0x009e}
0x06fba…06ff2 Head {h00=0x0034, h01=0x0050, text=»** MEMORY. LSTADR & FYSPAG POINTS AT LAST ** «, t00=0x0047, t01=0x00d6}
0x06ff2…0702a Head {h00=0x0034, h01=0x0050, text=»** (HIGHEST) FREE ADDRESS. LSTADR &FYSPAG ** «, t00=0x0047, t01=0x010e}
0x0702a…07062 Head {h00=0x0034, h01=0x0050, text=»** IS UPDATED AND CHECKED. ** «, t00=0x0047, t01=0x0146}
0x07062…0709a Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0047, t01=0x017e}
0x0709a…070d2 Head {h00=0x0034, h01=0x0050, text=»** INPUT :A1 & A3 AS IN 'XMOVE' ** «, t00=0x0048, t01=0x0026}
0x070d2…0710a Head {h00=0x0034, h01=0x0050, text=»** TTAB=POINTER TO TTAB (OR LIKELY) ** «, t00=0x0048, t01=0x005e}
0x0710a…07142 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A2=LOGICALL TO-ADDRESS ** «, t00=0x0048, t01=0x0096}
0x07142…0717a Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS: A4,A10 ** «, t00=0x0048, t01=0x00ce}
0x0717a…071b2 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0048, t01=0x0106}
0x071b2…071ba Head {h00=0x0004, h01=0x0050, t00=0x0048, t01=0x013e}
0x071ba…071ce Head {h00=0x0010, h01=0x0050, text=»MOVING EQU *«, t00=0x0048, t01=0x0146}
0x071ce…071f2 Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE01,A13 SAVE A11 «, t00=0x0048, t01=0x015a}
0x071f2…07214 Head {h00=0x001e, h01=0x0050, text=» ST A9,SAVE12,A13 SAVE A9 «, t00=0x0048, t01=0x017e}
0x07214…07246 Head {h00=0x002e, h01=0x0029, text=» LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE «, t00=0x0049, t01=0x0010}
0x07246…07270 Head {h00=0x0026, h01=0x0050, text=» LD A10,TTAB,A13 LOAD TTAB-ADDRESS«, t00=0x0049, t01=0x0042}
0x07270…072a6 Head {h00=0x0032, h01=0x002e, text=» LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB«, t00=0x0049, t01=0x006c}
0x072a6…072cc Head {h00=0x0022, h01=0x001d, text=» LDR* A9,A2 GET PAGE IN TABLE «, t00=0x0049, t01=0x00a2}
0x072cc…072e2 Head {h00=0x0012, h01=0x0050, text=» ANKL A9,/FC00«, t00=0x0049, t01=0x00c8}
0x072e2…07310 Head {h00=0x002a, h01=0x0025, text=» CWR A9,A4 CORRECT PAGE IN MMU-TABLE? «, t00=0x0049, t01=0x00de}
0x07310…0732a Head {h00=0x0016, h01=0x0050, text=» RF(E) MOV010 YES!«, t00=0x0049, t01=0x010c}
0x0732a…07354 Head {h00=0x0026, h01=0x0050, text=» ADKL A4,/400 ADJUST FOR 'SETTAB' «, t00=0x0049, t01=0x0126}
0x07354…0737c Head {h00=0x0024, h01=0x0050, text=» CALL SETTAB NEW PAGE IN TABLE! «, t00=0x0049, t01=0x0150}
0x0737c…073b6 Head {h00=0x0036, h01=0x0050, text=»MOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS«, t00=0x0049, t01=0x0178}
0x073b6…073cc Head {h00=0x0012, h01=0x000e, text=» ANKL A11,/FFF«, t00=0x004a, t01=0x0022}
0x073cc…073fa Head {h00=0x002a, h01=0x0050, text=» LDR A9,A3 GET LENGTH OF AREA TO MOVE «, t00=0x004a, t01=0x0038}
0x073fa…0742e Head {h00=0x0030, h01=0x0050, text=» CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? «, t00=0x004a, t01=0x0066}
0x0742e…0744a Head {h00=0x0018, h01=0x0050, text=» RF(NL) MOV020 YES! «, t00=0x004a, t01=0x009a}
0x0744a…0747a Head {h00=0x002c, h01=0x0050, text=» SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE«, t00=0x004a, t01=0x00b6}
0x0747a…07496 Head {h00=0x0018, h01=0x0050, text=»MOV015 RF(NP) MOV025«, t00=0x004a, t01=0x00e6}
0x07496…074c4 Head {h00=0x002a, h01=0x0050, text=» CALL SETTAB INITIALIZE NEW PAGE ENTRY«, t00=0x004a, t01=0x0102}
0x074c4…074f2 Head {h00=0x002a, h01=0x0050, text=» ADKL A11,4096 PHYSICAL PAGE INCREMENT«, t00=0x004a, t01=0x0130}
0x074f2…07504 Head {h00=0x000e, h01=0x0050, text=» RB MOV015«, t00=0x004a, t01=0x015e}
0x07504…0753a Head {h00=0x0032, h01=0x0050, text=»MOV020 SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE«, t00=0x004a, t01=0x0170}
0x0753a…07556 Head {h00=0x0018, h01=0x0050, text=»MOV025 RF(NN) MOV050«, t00=0x004b, t01=0x0016}
0x07556…07584 Head {h00=0x002a, h01=0x0050, text=»MOV030 CALL SETTAB NEW PAGE IN TABLE! «, t00=0x004b, t01=0x0032}
0x07584…075ae Head {h00=0x0026, h01=0x0021, text=» ADKL A11,4096 NEW PAGE INCREMENT «, t00=0x004b, t01=0x0060}
0x075ae…075da Head {h00=0x0028, h01=0x0050, text=» RB(N) MOV030 NOT ENOUGH. NEW PAGE! «, t00=0x004b, t01=0x008a}
0x075da…075e2 Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x00b6}
0x075e2…0760e Head {h00=0x0028, h01=0x0050, text=»* MM-TABLE CORRECT. SAVE ADDRESSES *«, t00=0x004b, t01=0x00be}
0x0760e…07616 Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x00ea}
0x07616…07638 Head {h00=0x001e, h01=0x0050, text=»* A4=PHYSICALL PAGE NUMBER«, t00=0x004b, t01=0x00f2}
0x07638…0765c Head {h00=0x0020, h01=0x0050, text=»* A11=DISPLACEM. WITHIN PAGE«, t00=0x004b, t01=0x0114}
0x0765c…07682 Head {h00=0x0022, h01=0x0050, text=»* A2=CURRENT ENTRY IN MM-TABLE«, t00=0x004b, t01=0x0138}
0x07682…0768a Head {h00=0x0004, h01=0x0001, t00=0x004b, t01=0x015e}
0x0768a…0769e Head {h00=0x0010, h01=0x0050, text=»MOV050 EQU *«, t00=0x004b, t01=0x0166}
0x0769e…076ce Head {h00=0x002c, h01=0x0028, text=» ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB«, t00=0x004b, t01=0x017a}
0x076ce…07702 Head {h00=0x0030, h01=0x002c, text=» ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER«, t00=0x004c, t01=0x001a}
0x07702…0773a Head {h00=0x0034, h01=0x0050, text=» LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. «, t00=0x004c, t01=0x004e}
0x0773a…07764 Head {h00=0x0026, h01=0x0022, text=» ADR A4,A10 ABSOLUTE ENTRY ADDRESS«, t00=0x004c, t01=0x0086}
0x07764…0778e Head {h00=0x0026, h01=0x0050, text=» ST A4,MMTO,A13 SAVE TABLE ADDRESS«, t00=0x004c, t01=0x00b0}
0x0778e…077b2 Head {h00=0x0020, h01=0x001b, text=» SUR A2,A4 RELATIVE ADDRESS «, t00=0x004c, t01=0x00da}
0x077b2…077e8 Head {h00=0x0032, h01=0x0050, text=» SLL A2,11 SHIFT TO FOUR FIRST BITS & DIV BY 2«, t00=0x004c, t01=0x00fe}
0x077e8…07816 Head {h00=0x002a, h01=0x0050, text=» ORR A2,A11 GET DISPLACEM. WITHIN PAGE«, t00=0x004c, t01=0x0134}
0x07816…0783a Head {h00=0x0020, h01=0x0050, text=» ANKL A2,/FFFE EVEN ADDRESS «, t00=0x004c, t01=0x0162}
0x0783a…0786a Head {h00=0x002c, h01=0x0027, text=» ST A2,LSTADR,A13 SAVE LOGICALL ADDRESS «, t00=0x004c, t01=0x0186}
0x0786a…07886 Head {h00=0x0018, h01=0x0050, text=»* CHECK ADDRESSES * «, t00=0x004d, t01=0x0026}
0x07886…0788e Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0042}
0x0788e…078bc Head {h00=0x002a, h01=0x0050, text=» LD A9,FSTPAG,A13 GET FIRST FREE PAGE «, t00=0x004d, t01=0x004a}
0x078bc…078e0 Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE07,A13 SAVE A11 «, t00=0x004d, t01=0x0078}
0x078e0…078fa Head {h00=0x0016, h01=0x0050, text=» LD A11,FYSPAG,A13«, t00=0x004d, t01=0x009c}
0x078fa…0791a Head {h00=0x001c, h01=0x0050, text=» CALL CMPADR AND COMPARE«, t00=0x004d, t01=0x00b6}
0x0791a…07934 Head {h00=0x0016, h01=0x0050, text=» RF(G) MOV090 OK! «, t00=0x004d, t01=0x00d6}
0x07934…0794e Head {h00=0x0016, h01=0x0050, text=» RF(L) MOV070 NOK!«, t00=0x004d, t01=0x00f0}
0x0794e…07978 Head {h00=0x0026, h01=0x0050, text=» LD A11,SAVE07,A13 RESTORE DISPL. «, t00=0x004d, t01=0x010a}
0x07978…07992 Head {h00=0x0016, h01=0x0050, text=» LD A9,FSTADR,A13 «, t00=0x004d, t01=0x0134}
0x07992…079a6 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x004d, t01=0x014e}
0x079a6…079c0 Head {h00=0x0016, h01=0x0050, text=» RF(NL) MOV090 OK!«, t00=0x004d, t01=0x0162}
0x079c0…079dc Head {h00=0x0018, h01=0x0050, text=»MOV070 LDKL A1,LMP3 «, t00=0x004d, t01=0x017c}
0x079dc…079f0 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004e, t01=0x0008}
0x079f0…07a04 Head {h00=0x0010, h01=0x0050, text=»MOV090 EQU *«, t00=0x004e, t01=0x001c}
0x07a04…07a1c Head {h00=0x0014, h01=0x0050, text=» CALL XMOVE MOVE«, t00=0x004e, t01=0x0030}
0x07a1c…07a36 Head {h00=0x0016, h01=0x0050, text=» LD A9,SAVE12,A13 «, t00=0x004e, t01=0x0048}
0x07a36…07a62 Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 RESTORE REGISTERS«, t00=0x004e, t01=0x0062}
0x07a62…07a8a Head {h00=0x0024, h01=0x0050, text=» TL* MMFROM,A13 RESTORE MM-TABLE«, t00=0x004e, t01=0x008e}
0x07a8a…07a9a Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x004e, t01=0x00b6}
0x07a9a…07aa8 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x004e, t01=0x00c6}
0x07aa8…07ab0 Head {h00=0x0004, h01=0x0001, t00=0x004e, t01=0x00d4}
0x07ab0…07aea Head {h00=0x0036, h01=0x0050, text=»** S E T T A B ** «, t00=0x004e, t01=0x00dc}
0x07aea…07b24 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x004e, t01=0x0116}
0x07b24…07b5e Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x004e, t01=0x0150}
0x07b5e…07b98 Head {h00=0x0036, h01=0x0050, text=»** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** «, t00=0x004e, t01=0x018a}
0x07b98…07bd2 Head {h00=0x0036, h01=0x0050, text=»** OVERFLOW. ** «, t00=0x004f, t01=0x0034}
0x07bd2…07c0c Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x004f, t01=0x006e}
0x07c0c…07c46 Head {h00=0x0036, h01=0x0050, text=»** INPUT :A2-ADDRESS TO CURRENT ENTRY ** «, t00=0x004f, t01=0x00a8}
0x07c46…07c80 Head {h00=0x0036, h01=0x0050, text=»** A4=PHYSICALL PAGE ** «, t00=0x004f, t01=0x00e2}
0x07c80…07cba Head {h00=0x0036, h01=0x0050, text=»** OUTPUT:A2 & A4 IS UPDATED ** «, t00=0x004f, t01=0x011c}
0x07cba…07cf4 Head {h00=0x0036, h01=0x0050, text=»** WORK.REG: A9 ** «, t00=0x004f, t01=0x0156}
0x07cf4…07d2e Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x004f, t01=0x0190}
0x07d2e…07d36 Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x003a}
0x07d36…07d4a Head {h00=0x0010, h01=0x0050, text=»SETTAB EQU *«, t00=0x0050, t01=0x0042}
0x07d4a…07d6e Head {h00=0x0020, h01=0x001b, text=» SUKL A4,/400 GET NEXT PAGE «, t00=0x0050, t01=0x0056}
0x07d6e…07d8e Head {h00=0x001c, h01=0x0018, text=» SUK A2,2 GET NEXT ENTRY«, t00=0x0050, t01=0x007a}
0x07d8e…07d96 Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x009a}
0x07d96…07dbc Head {h00=0x0022, h01=0x0050, text=»* CHECK IF MM-TABLE OVERFLOW *«, t00=0x0050, t01=0x00a2}
0x07dbc…07dc4 Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x00c8}
0x07dc4…07df0 Head {h00=0x0028, h01=0x0050, text=» LDR A9,A10 GET END-ADDRESS A10=TTAB«, t00=0x0050, t01=0x00d0}
0x07df0…07e06 Head {h00=0x0012, h01=0x0050, text=» ADKL A9,MMBEG«, t00=0x0050, t01=0x00fc}
0x07e06…07e2c Head {h00=0x0022, h01=0x0050, text=» TNM A2,A9 32-KB BOARDER CHECK«, t00=0x0050, t01=0x0112}
0x07e2c…07e42 Head {h00=0x0012, h01=0x0050, text=» RF(NN) SETT00«, t00=0x0050, t01=0x0138}
0x07e42…07e54 Head {h00=0x000e, h01=0x0050, text=» CWR A9,A2«, t00=0x0050, t01=0x014e}
0x07e54…07e66 Head {h00=0x000e, h01=0x0050, text=» RF SETT05«, t00=0x0050, t01=0x0160}
0x07e66…07e88 Head {h00=0x001e, h01=0x0050, text=»SETT00 CWR A2,A9 OVERFLOW?«, t00=0x0050, t01=0x0172}
0x07e88…07ea8 (81, 0, 400) Head {h00=0x001c, h01=0x0050, text=»SETT05 RF(NL) SETT10 NO «, t00=0x0051, t01=0x0004}
0x07ea8…07ebc Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP7«, t00=0x0051, t01=0x0024}
0x07ebc…07ed0 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0051, t01=0x0038}
0x07ed0…07ee4 Head {h00=0x0010, h01=0x0050, text=»SETT10 EQU *«, t00=0x0051, t01=0x004c}
0x07ee4…07f06 Head {h00=0x001e, h01=0x0019, text=» STR A4,A2 STORE IN TABLE «, t00=0x0051, t01=0x0060}
0x07f06…07f16 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0051, t01=0x0082}
0x07f16…07f22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0092}
0x07f22…07f38 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0051, t01=0x009e}
0x07f38…07f46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x00b4}
0x07f46…07f52 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0051, t01=0x00c2}
0x07f52…07f8a Head {h00=0x0034, h01=0x0050, text=»** G E T W B ** «, t00=0x0051, t01=0x00ce}
0x07f8a…07fc2 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0051, t01=0x0106}
0x07fc2…07ffa Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0051, t01=0x013e}
0x07ffa…08032 Head {h00=0x0034, h01=0x0050, text=»** GET WORK BLOCK ADDRESS AND DISPLACE- ** «, t00=0x0051, t01=0x0176}
0x08032…0806a Head {h00=0x0034, h01=0x0050, text=»** MENT IN T:A ** «, t00=0x0052, t01=0x001e}
0x0806a…080a2 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0052, t01=0x0056}
0x080a2…080da Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** «, t00=0x0052, t01=0x008e}
0x080da…08112 Head {h00=0x0034, h01=0x0050, text=»** BIT=BIT NUMBER SAT IN MASK (0-15)** «, t00=0x0052, t01=0x00c6}
0x08112…0814a Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A4=W.B. DISPLACEMENT IN T:A ** «, t00=0x0052, t01=0x00fe}
0x0814a…08182 Head {h00=0x0034, h01=0x0050, text=»** TADISP=A4 ** «, t00=0x0052, t01=0x0136}
0x08182…081ba Head {h00=0x0034, h01=0x0050, text=»** A11=W.B.-ADDRESS ** «, t00=0x0052, t01=0x016e}
0x081ba…081f2 Head {h00=0x0034, h01=0x0050, text=»** WBADD=POINTER TO W.B.-ADD IN T:A ** «, t00=0x0053, t01=0x0016}
0x081f2…0822a Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0053, t01=0x004e}
0x0822a…08236 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0053, t01=0x0086}
0x08236…0824a Head {h00=0x0010, h01=0x0050, text=»GETWB EQU * «, t00=0x0053, t01=0x0092}
0x0824a…08270 Head {h00=0x0022, h01=0x0050, text=» LD A4,BIT,A13 GET BIT NUMBER «, t00=0x0053, t01=0x00a6}
0x08270…08298 Head {h00=0x0024, h01=0x0050, text=» SLL A4,2 ADJUST FOR ADDRESSING «, t00=0x0053, t01=0x00cc}
0x08298…082b0 Head {h00=0x0014, h01=0x0050, text=» ADK A4,WATFST+2«, t00=0x0053, t01=0x00f4}
0x082b0…082dc Head {h00=0x0028, h01=0x0050, text=» ST A4,TADISP,A13 SAVE DISPLACEMENT «, t00=0x0053, t01=0x010c}
0x082dc…082f8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0053, t01=0x0138}
0x082f8…0831c Head {h00=0x0020, h01=0x0050, text=» LDR* A11,A8 GET T:A-ADDRESS«, t00=0x0053, t01=0x0154}
0x0831c…08340 Head {h00=0x0020, h01=0x0050, text=» ADR A11,A4 ADD DISPLACEMENT«, t00=0x0053, t01=0x0178}
0x08340…0835e Head {h00=0x001a, h01=0x0050, text=» ST A11,WBADD,A13 SAVE«, t00=0x0054, t01=0x000c}
0x0835e…08384 Head {h00=0x0022, h01=0x0050, text=» LDR* A11,A11 GET W.B.-ADDRESS«, t00=0x0054, t01=0x002a}
0x08384…08390 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0050}
0x08390…083ac Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0054, t01=0x005c}
0x083ac…083e0 Head {h00=0x0030, h01=0x0050, text=» LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? «, t00=0x0054, t01=0x0078}
0x083e0…083fa Head {h00=0x0016, h01=0x0050, text=» RF(Z) GETW10 NO! «, t00=0x0054, t01=0x00ac}
0x083fa…0841e Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0054, t01=0x00c6}
0x0841e…08448 Head {h00=0x0026, h01=0x0050, text=»GETW10 ELR A11,A8 GET T:A-ADDRESS «, t00=0x0054, t01=0x00ea}
0x08448…0846c Head {h00=0x0020, h01=0x0050, text=» ADR A11,A4 ADD DISPLACEMENT«, t00=0x0054, t01=0x0114}
0x0846c…0848a Head {h00=0x001a, h01=0x0050, text=» ST A11,WBADD,A13 SAVE«, t00=0x0054, t01=0x0138}
0x0848a…084b0 Head {h00=0x0022, h01=0x0050, text=» ELR A11,A11 GET W.B.-ADDRESS «, t00=0x0054, t01=0x0156}
0x084b0…084da Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0054, t01=0x017c}
0x084da…084e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x0016}
0x084e6…084fc Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0055, t01=0x0022}
0x084fc…0850c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0055, t01=0x0038}
0x0850c…0851a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0048}
0x0851a…08526 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0055, t01=0x0056}
0x08526…08532 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0055, t01=0x0062}
0x08532…0856e Head {h00=0x0038, h01=0x0050, text=»** M O V W B **«, t00=0x0055, t01=0x006e}
0x0856e…085aa Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0055, t01=0x00aa}
0x085aa…085e6 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0055, t01=0x00e6}
0x085e6…08622 Head {h00=0x0038, h01=0x0050, text=»** MOVE WORK-BLOCK. W.B.-ADDRESS IS UPDATED **«, t00=0x0055, t01=0x0122}
0x08622…0865e Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0055, t01=0x015e}
0x0865e…0869a Head {h00=0x0038, h01=0x0050, text=»** INPUT: A11=W.B.-ADDRESS **«, t00=0x0056, t01=0x000a}
0x0869a…086d6 Head {h00=0x0038, h01=0x0050, text=»** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS **«, t00=0x0056, t01=0x0046}
0x086d6…08712 Head {h00=0x0038, h01=0x0050, text=»** WORK-REGS: A1-A4 **«, t00=0x0056, t01=0x0082}
0x08712…0874e Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0056, t01=0x00be}
0x0874e…0875a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0056, t01=0x00fa}
0x0875a…0876e Head {h00=0x0010, h01=0x0050, text=»MOVWB EQU * «, t00=0x0056, t01=0x0106}
0x0876e…0878e Head {h00=0x001c, h01=0x0050, text=» LDR A1,A11 GET ADDRESS «, t00=0x0056, t01=0x011a}
0x0878e…087b2 Head {h00=0x0020, h01=0x0050, text=» ADKL A1,WBLEN FROM-ADDRESS «, t00=0x0056, t01=0x013a}
0x087b2…087ce Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0056, t01=0x015e}
0x087ce…087e8 Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A1 LENGTH«, t00=0x0056, t01=0x017a}
0x087e8…087fc (87, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0057, t01=0x0004}
0x087fc…08836 Head {h00=0x0036, h01=0x0050, text=» SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT «, t00=0x0057, t01=0x0018}
0x08836…0886e Head {h00=0x0034, h01=0x0050, text=» ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE«, t00=0x0057, t01=0x0052}
0x0886e…0887a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x008a}
0x0887a…08896 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0057, t01=0x0096}
0x08896…088b0 Head {h00=0x0016, h01=0x0050, text=» ELR A3,A1 LENGTH «, t00=0x0057, t01=0x00b2}
0x088b0…088c4 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0057, t01=0x00cc}
0x088c4…088fe Head {h00=0x0036, h01=0x0050, text=» SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT «, t00=0x0057, t01=0x00e0}
0x088fe…08930 Head {h00=0x002e, h01=0x0050, text=» LD A4,FLAG,A13 REAL DATA-PART PROCESSING?«, t00=0x0057, t01=0x011a}
0x08930…0894a Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVW10 NO! «, t00=0x0057, t01=0x014c}
0x0894a…0896e Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0057, t01=0x0166}
0x0896e…089ac Head {h00=0x003a, h01=0x0050, text=»MOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE«, t00=0x0057, t01=0x018a}
0x089ac…089d6 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0058, t01=0x0038}
0x089d6…089e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x0062}
0x089e2…089f8 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0058, t01=0x006e}
0x089f8…08a08 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x0084}
0x08a08…08a16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x0094}
0x08a16…08a22 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0058, t01=0x00a2}
0x08a22…08a2e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0058, t01=0x00ae}
0x08a2e…08a6c Head {h00=0x003a, h01=0x0050, text=»** M O V D T ** «, t00=0x0058, t01=0x00ba}
0x08a6c…08aaa Head {h00=0x003a, h01=0x0050, text=»** ** «, t00=0x0058, t01=0x00f8}
0x08aaa…08ae8 Head {h00=0x003a, h01=0x0050, text=»** ** «, t00=0x0058, t01=0x0136}
0x08ae8…08b26 Head {h00=0x003a, h01=0x0050, text=»** MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** «, t00=0x0058, t01=0x0174}
0x08b26…08b64 Head {h00=0x003a, h01=0x0050, text=»** ** «, t00=0x0059, t01=0x0022}
0x08b64…08ba2 Head {h00=0x003a, h01=0x0050, text=»** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** «, t00=0x0059, t01=0x0060}
0x08ba2…08be0 Head {h00=0x003a, h01=0x0050, text=»** OUTPUT: A3=POINTER TO W.B.-ADDRESS ** «, t00=0x0059, t01=0x009e}
0x08be0…08c1e Head {h00=0x003a, h01=0x0050, text=»** WORK REGS: A1-A4 ** «, t00=0x0059, t01=0x00dc}
0x08c1e…08c5c Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0059, t01=0x011a}
0x08c5c…08c68 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0059, t01=0x0158}
0x08c68…08c7c Head {h00=0x0010, h01=0x0050, text=»MOVDT EQU * «, t00=0x0059, t01=0x0164}
0x08c7c…08cb6 Head {h00=0x0036, h01=0x0050, text=» LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT«, t00=0x0059, t01=0x0178}
0x08cb6…08ce0 Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 POINTER TO D.T.-ADDRESS «, t00=0x005a, t01=0x0022}
0x08ce0…08cfc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005a, t01=0x004c}
0x08cfc…08d1c Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A1 D.T.-ADDRESS«, t00=0x005a, t01=0x0068}
0x08d1c…08d4a Head {h00=0x002a, h01=0x0050, text=» ADKL A1,DTLEN ADJUST FOR LENGTH WORD «, t00=0x005a, t01=0x0088}
0x08d4a…08d6c Head {h00=0x001e, h01=0x0050, text=» AD A1,MOVADD,A13 RELOCATE«, t00=0x005a, t01=0x00b6}
0x08d6c…08d86 Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A1 LENGTH«, t00=0x005a, t01=0x00d8}
0x08d86…08d9a Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x005a, t01=0x00f2}
0x08d9a…08db2 Head {h00=0x0014, h01=0x0050, text=» LD A3,WBADD,A13«, t00=0x005a, t01=0x0106}
0x08db2…08dc8 Head {h00=0x0012, h01=0x0050, text=» SUKL A2,DTLEN«, t00=0x005a, t01=0x011e}
0x08dc8…08dde Head {h00=0x0012, h01=0x0050, text=» SUKL A1,DTLEN«, t00=0x005a, t01=0x0134}
0x08dde…08e16 Head {h00=0x0034, h01=0x0050, text=» ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS «, t00=0x005a, t01=0x014a}
0x08e16…08e22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0182}
0x08e22…08e3e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005a, t01=0x018e}
0x08e3e…08e5e Head {h00=0x001c, h01=0x0050, text=» ELR A1,A1 D.T.-ADDRESS «, t00=0x005b, t01=0x001a}
0x08e5e…08e8c Head {h00=0x002a, h01=0x0050, text=» ADKL A1,DTLEN ADJUST FOR LENGTH WORD «, t00=0x005b, t01=0x003a}
0x08e8c…08eae Head {h00=0x001e, h01=0x0050, text=» AD A1,MOVADD,A13 RELOCATE«, t00=0x005b, t01=0x0068}
0x08eae…08ec8 Head {h00=0x0016, h01=0x0050, text=» ELR A3,A1 LENGTH «, t00=0x005b, t01=0x008a}
0x08ec8…08edc Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x005b, t01=0x00a4}
0x08edc…08ef4 Head {h00=0x0014, h01=0x0050, text=» LD A3,WBADD,A13«, t00=0x005b, t01=0x00b8}
0x08ef4…08f0a Head {h00=0x0012, h01=0x0050, text=» SUKL A2,DTLEN«, t00=0x005b, t01=0x00d0}
0x08f0a…08f20 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,DTLEN«, t00=0x005b, t01=0x00e6}
0x08f20…08f58 Head {h00=0x0034, h01=0x0050, text=» ES A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS «, t00=0x005b, t01=0x00fc}
0x08f58…08f64 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0134}
0x08f64…08f7a Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005b, t01=0x0140}
0x08f7a…08f8a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005b, t01=0x0156}
0x08f8a…08f98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005b, t01=0x0166}
0x08f98…08fa4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x005b, t01=0x0174}
0x08fa4…08fe4 Head {h00=0x003c, h01=0x0050, text=»** M O V D W B **«, t00=0x005b, t01=0x0180}
0x08fe4…09024 Head {h00=0x003c, h01=0x0050, text=»** **«, t00=0x005c, t01=0x0030}
0x09024…09064 Head {h00=0x003c, h01=0x0050, text=»** **«, t00=0x005c, t01=0x0070}
0x09064…090a4 Head {h00=0x003c, h01=0x0050, text=»** SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. **«, t00=0x005c, t01=0x00b0}
0x090a4…090e4 Head {h00=0x003c, h01=0x0050, text=»** AND UPDATE ADDRESSES (W.B. & D.T.) **«, t00=0x005c, t01=0x00f0}
0x090e4…09124 Head {h00=0x003c, h01=0x0050, text=»** **«, t00=0x005c, t01=0x0130}
0x09124…09164 Head {h00=0x003c, h01=0x0050, text=»** INPUT : A12=T:D-ADDRESS **«, t00=0x005c, t01=0x0170}
0x09164…091a4 Head {h00=0x003c, h01=0x0050, text=»** A8= POINTER TO T:A-ADDRESS **«, t00=0x005d, t01=0x0020}
0x091a4…091e4 Head {h00=0x003c, h01=0x0050, text=»** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) **«, t00=0x005d, t01=0x0060}
0x091e4…09224 Head {h00=0x003c, h01=0x0050, text=»** WORK.REGS: A1-A4 **«, t00=0x005d, t01=0x00a0}
0x09224…09264 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005d, t01=0x00e0}
0x09264…09270 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x005d, t01=0x0120}
0x09270…09284 Head {h00=0x0010, h01=0x0050, text=»MOVDWB EQU *«, t00=0x005d, t01=0x012c}
0x09284…092a6 Head {h00=0x001e, h01=0x0050, text=» ST A6,SAVE05,A13 SAVE A5 «, t00=0x005d, t01=0x0140}
0x092a6…092b8 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x005d, t01=0x0162}
0x092b8…092e4 Head {h00=0x0028, h01=0x0050, text=»MOVD10 LD A4,BIT,A13 GET BIT NUMBER «, t00=0x005d, t01=0x0174}
0x092e4…0930a Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 FIRST WAT-ELEMENT =1«, t00=0x005e, t01=0x0010}
0x0930a…09326 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005e, t01=0x0036}
0x09326…09340 Head {h00=0x0016, h01=0x0050, text=» LD A2,WATLEN,A12 «, t00=0x005e, t01=0x0052}
0x09340…0934c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x006c}
0x0934c…09368 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005e, t01=0x0078}
0x09368…09382 Head {h00=0x0016, h01=0x0050, text=» EL A2,WATLEN,A12 «, t00=0x005e, t01=0x0094}
0x09382…0938e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x00ae}
0x0938e…093a4 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005e, t01=0x00ba}
0x093a4…093ca Head {h00=0x0022, h01=0x0050, text=» SUR A2,A6 ACTUAL TABLE LENGTH«, t00=0x005e, t01=0x00d0}
0x093ca…093ee Head {h00=0x0020, h01=0x0050, text=» ADR A6,A12 A6=TABLE POINTER«, t00=0x005e, t01=0x00f6}
0x093ee…09414 Head {h00=0x0022, h01=0x0050, text=»MOVD20 ADK A6,1 A6=TABLE INDEX«, t00=0x005e, t01=0x011a}
0x09414…0942a Head {h00=0x0012, h01=0x0050, text=» SUK A2,1 ALL?«, t00=0x005e, t01=0x0140}
0x0942a…09444 Head {h00=0x0016, h01=0x0050, text=» RF(N) MOVD60 YES!«, t00=0x005e, t01=0x0156}
0x09444…09460 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005e, t01=0x0170}
0x09460…09486 Head {h00=0x0022, h01=0x0050, text=» CC A4,DWBFST,A6 SHARED W.B.? «, t00=0x005e, t01=0x018c}
0x09486…09492 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0022}
0x09492…094ae Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005f, t01=0x002e}
0x094ae…094dc Head {h00=0x002a, h01=0x0050, text=» EL A10,DWBFST,A6 CHECK IF SHARED W.B.«, t00=0x005f, t01=0x004a}
0x094dc…09502 Head {h00=0x0022, h01=0x0050, text=» SRC A6,1 RIGHT OR LEFT BYTE? «, t00=0x005f, t01=0x0078}
0x09502…0951e Head {h00=0x0018, h01=0x0050, text=» RF(N) MOVD30 RIGHT!«, t00=0x005f, t01=0x009e}
0x0951e…09536 Head {h00=0x0014, h01=0x0050, text=» ANKL A10,/FF00 «, t00=0x005f, t01=0x00ba}
0x09536…0954a Head {h00=0x0010, h01=0x0050, text=» ECR A10,A10«, t00=0x005f, t01=0x00d2}
0x0954a…0955c Head {h00=0x000e, h01=0x0050, text=» RF MOVD40«, t00=0x005f, t01=0x00e6}
0x0955c…09578 Head {h00=0x0018, h01=0x0050, text=»MOVD30 ANKL A10,/FF «, t00=0x005f, t01=0x00f8}
0x09578…0959e Head {h00=0x0022, h01=0x0050, text=»MOVD40 SLC A6,1 ADJUST POINTER«, t00=0x005f, t01=0x0114}
0x0959e…095be Head {h00=0x001c, h01=0x0050, text=» CWR A4,A10 SHARED W.B.?«, t00=0x005f, t01=0x013a}
0x095be…095ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x015a}
0x095ca…095e0 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005f, t01=0x0166}
0x095e0…095fa Head {h00=0x0016, h01=0x0050, text=» RB(NE) MOVD20 NO!«, t00=0x005f, t01=0x017c}
0x095fa…09610 Head {h00=0x0012, h01=0x0050, text=»* DWB FOUND * «, t00=0x0060, t01=0x0008}
0x09610…09640 Head {h00=0x002c, h01=0x0050, text=» NGR A4,A2 CALCULATE DISPLACEMENT IN T:A«, t00=0x0060, t01=0x001e}
0x09640…0965c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0060, t01=0x004e}
0x0965c…09676 Head {h00=0x0016, h01=0x0050, text=» AD A4,WATLEN,A12 «, t00=0x0060, t01=0x006a}
0x09676…09682 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0084}
0x09682…0969e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0060, t01=0x0090}
0x0969e…096b8 Head {h00=0x0016, h01=0x0050, text=» EL A10,WATLEN,A12«, t00=0x0060, t01=0x00ac}
0x096b8…096cc Head {h00=0x0010, h01=0x0050, text=» ADR A4,A10 «, t00=0x0060, t01=0x00c6}
0x096cc…096d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x00da}
0x096d8…096ee Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0060, t01=0x00e6}
0x096ee…09712 Head {h00=0x0020, h01=0x0050, text=» LDR A6,A4 SAVE TABLE INDEX «, t00=0x0060, t01=0x00fc}
0x09712…09724 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0060, t01=0x0120}
0x09724…09736 Head {h00=0x000e, h01=0x0050, text=» SLL A4,2 «, t00=0x0060, t01=0x0132}
0x09736…0974e Head {h00=0x0014, h01=0x0050, text=» ADK A4,WATFST+2«, t00=0x0060, t01=0x0144}
0x0974e…0977c Head {h00=0x002a, h01=0x0050, text=» LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS«, t00=0x0060, t01=0x015c}
0x0977c…09798 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0060, t01=0x018a}
0x09798…097ce Head {h00=0x0032, h01=0x0050, text=» ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A «, t00=0x0061, t01=0x0016}
0x097ce…097f4 Head {h00=0x0022, h01=0x0050, text=» STR A3,A4 CHANGE W.B.-ADDRESS«, t00=0x0061, t01=0x004c}
0x097f4…09800 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0072}
0x09800…0981c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0061, t01=0x007e}
0x0981c…0984e Head {h00=0x002e, h01=0x0050, text=» LD A2,FLAG,A13 REAL DATA-PART PROCESSING?«, t00=0x0061, t01=0x009a}
0x0984e…09868 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVD50 NO! «, t00=0x0061, t01=0x00cc}
0x09868…0988c Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0061, t01=0x00e6}
0x0988c…098a0 Head {h00=0x0010, h01=0x0050, text=»MOVD50 EQU *«, t00=0x0061, t01=0x010a}
0x098a0…098d2 Head {h00=0x002e, h01=0x0050, text=» ELR A10,A8 A4=POINTER TO W.B.-ADDR IN T:A«, t00=0x0061, t01=0x011e}
0x098d2…098e6 Head {h00=0x0010, h01=0x0050, text=» ADR A4,A10 «, t00=0x0061, t01=0x0150}
0x098e6…0990c Head {h00=0x0022, h01=0x0050, text=» ESR A3,A4 CHANGE W.B.-ADDRESS«, t00=0x0061, t01=0x0164}
0x0990c…09936 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0061, t01=0x018a}
0x09936…09942 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x0024}
0x09942…09958 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0062, t01=0x0030}
0x09958…09970 Head {h00=0x0014, h01=0x0050, text=» ST A4,WBADD,A13«, t00=0x0062, t01=0x0046}
0x09970…099a2 Head {h00=0x002e, h01=0x0050, text=» LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? «, t00=0x0062, t01=0x005e}
0x099a2…099be Head {h00=0x0018, h01=0x0050, text=» RB(NZ) MOVD10 YES! «, t00=0x0062, t01=0x0090}
0x099be…099dc Head {h00=0x001a, h01=0x0050, text=» CALL MOVDT MOVE D.T. «, t00=0x0062, t01=0x00ac}
0x099dc…099ee Head {h00=0x000e, h01=0x0050, text=» RB MOVD10«, t00=0x0062, t01=0x00ca}
0x099ee…09a02 Head {h00=0x0010, h01=0x0050, text=»MOVD60 EQU *«, t00=0x0062, t01=0x00dc}
0x09a02…09a26 Head {h00=0x0020, h01=0x0050, text=» LD A6,SAVE05,A13 RESTORE A6«, t00=0x0062, t01=0x00f0}
0x09a26…09a36 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0062, t01=0x0114}
0x09a36…09a44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x0124}
0x09a44…09a4c Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x0132}
0x09a4c…09a54 Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x013a}
0x09a54…09a8c Head {h00=0x0034, h01=0x0050, text=»** T W B S W B **«, t00=0x0062, t01=0x0142}
0x09a8c…09ac4 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0062, t01=0x017a}
0x09ac4…09afc Head {h00=0x0034, h01=0x0050, text=»** COPY TWB'S AND RESERVE SPACE FOR SWB'S **«, t00=0x0063, t01=0x0022}
0x09afc…09b34 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0063, t01=0x005a}
0x09b34…09b6c Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=ACTUAL T:A-ADDRESS **«, t00=0x0063, t01=0x0092}
0x09b6c…09ba4 Head {h00=0x0034, h01=0x0050, text=»** A12=T:D-ADDRESS **«, t00=0x0063, t01=0x00ca}
0x09ba4…09bdc Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS: A1-A4, A11 **«, t00=0x0063, t01=0x0102}
0x09bdc…09c14 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0063, t01=0x013a}
0x09c14…09c1c Head {h00=0x0004, h01=0x0050, t00=0x0063, t01=0x0172}
0x09c1c…09c30 Head {h00=0x0010, h01=0x0050, text=»TWBSWB EQU *«, t00=0x0063, t01=0x017a}
0x09c30…09c52 Head {h00=0x001e, h01=0x0050, text=» ST A7,SAVE04,A13 SAVE A7 «, t00=0x0063, t01=0x018e}
0x09c52…09c78 Head {h00=0x0022, h01=0x0050, text=» LD A7,TWBMSK,A12 GET TWB MASK«, t00=0x0064, t01=0x0020}
0x09c78…09c94 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0064, t01=0x0046}
0x09c94…09cba Head {h00=0x0022, h01=0x0050, text=» EL A7,TWBMSK,A12 GET TWB MASK«, t00=0x0064, t01=0x0062}
0x09cba…09cc6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x0088}
0x09cc6…09cdc Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0064, t01=0x0094}
0x09cdc…09cf0 Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x0064, t01=0x00aa}
0x09cf0…09d16 Head {h00=0x0022, h01=0x0050, text=»TWSW10 RF(Z) TWSW20 ALL DONE! «, t00=0x0064, t01=0x00be}
0x09d16…09d2a Head {h00=0x0010, h01=0x0050, text=» CALL GETWB «, t00=0x0064, t01=0x00e4}
0x09d2a…09d3e Head {h00=0x0010, h01=0x0050, text=» CALL MOVWB «, t00=0x0064, t01=0x00f8}
0x09d3e…09d6c Head {h00=0x002a, h01=0x0050, text=» ST A2,NEWAD2,A13 SAVE NEW WB-ADDRESS «, t00=0x0064, t01=0x010c}
0x09d6c…09d96 Head {h00=0x0026, h01=0x0050, text=» CALL MOVDWB CHANGE DWB-ADDRESSES «, t00=0x0064, t01=0x013a}
0x09d96…09daa Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x0064, t01=0x0164}
0x09daa…09dbc Head {h00=0x000e, h01=0x0050, text=» RB TWSW10«, t00=0x0064, t01=0x0178}
0x09dbc…09dd0 Head {h00=0x0010, h01=0x0050, text=»TWSW20 EQU *«, t00=0x0064, t01=0x018a}
0x09dd0…09dec Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0065, t01=0x000e}
0x09dec…09dfa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0065, t01=0x002a}
0x09dfa…09e06 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0065, t01=0x0038}
0x09e06…09e12 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0065, t01=0x0044}
0x09e12…09e36 Head {h00=0x0020, h01=0x0050, text=»* RESERVE SPACE FOR SWB'S * «, t00=0x0065, t01=0x0050}
0x09e36…09e5a Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0065, t01=0x0074}
0x09e5a…09e66 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0065, t01=0x0098}
0x09e66…09e82 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x0065, t01=0x00a4}
0x09e82…09e9c Head {h00=0x0016, h01=0x0050, text=» LD A7,SWBMSK,A12 «, t00=0x0065, t01=0x00c0}
0x09e9c…09ea8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0065, t01=0x00da}
0x09ea8…09ec4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x0065, t01=0x00e6}
0x09ec4…09ede Head {h00=0x0016, h01=0x0050, text=» EL A7,SWBMSK,A12 «, t00=0x0065, t01=0x0102}
0x09ede…09eea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0065, t01=0x011c}
0x09eea…09f06 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0065, t01=0x0128}
0x09f06…09f1a Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x0065, t01=0x0144}
0x09f1a…09f3e Head {h00=0x0020, h01=0x0050, text=»TWSW30 RF(Z) TARZAN ALL DONE«, t00=0x0065, t01=0x0158}
0x09f3e…09f52 Head {h00=0x0010, h01=0x0050, text=» CALL GETWB «, t00=0x0065, t01=0x017c}
0x09f52…09f74 Head {h00=0x001e, h01=0x0050, text=» CALL MOVWB RESERVE SPACE «, t00=0x0065, t01=0x0190}
0x09f74…09fa0 Head {h00=0x0028, h01=0x0050, text=» ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS «, t00=0x0066, t01=0x0022}
0x09fa0…09fca Head {h00=0x0026, h01=0x0050, text=» CALL MOVDWB CHANGE DWB- ADDRESSES«, t00=0x0066, t01=0x004e}
0x09fca…09fde Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x0066, t01=0x0078}
0x09fde…09ff0 Head {h00=0x000e, h01=0x0050, text=» RB TWSW30«, t00=0x0066, t01=0x008c}
0x09ff0…0a004 Head {h00=0x0010, h01=0x0050, text=»TARZAN EQU *«, t00=0x0066, t01=0x009e}
0x0a004…0a010 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0066, t01=0x00b2}
0x0a010…0a026 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0066, t01=0x00be}
0x0a026…0a04a Head {h00=0x0020, h01=0x0050, text=» LD A7,SAVE04,A13 RESTORE A7«, t00=0x0066, t01=0x00d4}
0x0a04a…0a05a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x00f8}
0x0a05a…0a068 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x0108}
0x0a068…0a070 Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x0116}
0x0a070…0a078 Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x011e}
0x0a078…0a0b0 Head {h00=0x0034, h01=0x0050, text=»** A L L B U F **«, t00=0x0066, t01=0x0126}
0x0a0b0…0a0e8 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0066, t01=0x015e}
0x0a0e8…0a120 Head {h00=0x0034, h01=0x0050, text=»** ALLOCATE FIXED DATA SET BUFFERS AND **«, t00=0x0067, t01=0x0008}
0x0a120…0a158 Head {h00=0x0034, h01=0x0050, text=»** TERMINAL STACK **«, t00=0x0067, t01=0x0040}
0x0a158…0a190 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0067, t01=0x0078}
0x0a190…0a1c8 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=ACTUAL T:A-ADDRESS IN T:ATAB **«, t00=0x0067, t01=0x00b0}
0x0a1c8…0a200 Head {h00=0x0034, h01=0x0050, text=»** A12=T:D-ADDRESS **«, t00=0x0067, t01=0x00e8}
0x0a200…0a238 Head {h00=0x0034, h01=0x0050, text=»** CSN (IN T:A)=LENGTH OF DSCB'S **«, t00=0x0067, t01=0x0120}
0x0a238…0a270 Head {h00=0x0034, h01=0x0050, text=»** CIA (IN T:A)=DISPL. TO T:A-START **«, t00=0x0067, t01=0x0158}
0x0a270…0a2a8 Head {h00=0x0034, h01=0x0050, text=»** CSE (IN T:A)=STACKSIZE **«, t00=0x0067, t01=0x0190}
0x0a2a8…0a2e0 Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS. :A1-A4,A9,A11 **«, t00=0x0068, t01=0x0038}
0x0a2e0…0a318 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0068, t01=0x0070}
0x0a318…0a320 Head {h00=0x0004, h01=0x0050, t00=0x0068, t01=0x00a8}
0x0a320…0a334 Head {h00=0x0010, h01=0x0050, text=»ALLBUF EQU *«, t00=0x0068, t01=0x00b0}
0x0a334…0a350 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0068, t01=0x00c4}
0x0a350…0a382 Head {h00=0x002e, h01=0x0050, text=» LD A9,FSTADR,A13 GET BUFFER START ADDRESS«, t00=0x0068, t01=0x00e0}
0x0a382…0a3a6 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0068, t01=0x0112}
0x0a3a6…0a3d2 Head {h00=0x0028, h01=0x0050, text=» LD A3,CSN,A1 GET DSCB TOTAL LENGTH «, t00=0x0068, t01=0x0136}
0x0a3d2…0a3f2 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ALLB70 NO DSCB'S «, t00=0x0068, t01=0x0162}
0x0a3f2…0a424 Head {h00=0x002e, h01=0x0050, text=» ADKL A1,T:ASTA CALC START OF DSCB RECORDS«, t00=0x0068, t01=0x0182}
0x0a424…0a44a Head {h00=0x0022, h01=0x0050, text=» LDR A10,A1 SAVE START ADDRESS«, t00=0x0069, t01=0x0024}
0x0a44a…0a456 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x004a}
0x0a456…0a472 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0069, t01=0x0056}
0x0a472…0a494 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0069, t01=0x0072}
0x0a494…0a4c0 Head {h00=0x0028, h01=0x0050, text=» EL A3,CSN,A1 GET DSCB TOTAL LENGTH «, t00=0x0069, t01=0x0094}
0x0a4c0…0a4de Head {h00=0x001a, h01=0x0050, text=» RF(Z) ALLB70 NO DSCB «, t00=0x0069, t01=0x00c0}
0x0a4de…0a510 Head {h00=0x002e, h01=0x0050, text=» ADKL A1,T:ASTA CALCULATE START OF DSCB'S «, t00=0x0069, t01=0x00de}
0x0a510…0a536 Head {h00=0x0022, h01=0x0050, text=» LDR A10,A1 SAVE START ADDRESS«, t00=0x0069, t01=0x0110}
0x0a536…0a542 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x0136}
0x0a542…0a558 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0069, t01=0x0142}
0x0a558…0a56a Head {h00=0x000e, h01=0x0050, text=» SUR A3,A1«, t00=0x0069, t01=0x0158}
0x0a56a…0a57c Head {h00=0x000e, h01=0x0050, text=» NGR A3,A3«, t00=0x0069, t01=0x016a}
0x0a57c…0a5a0 Head {h00=0x0020, h01=0x0050, text=» SUK A3,DSCBL END CONDITION «, t00=0x0069, t01=0x017c}
0x0a5a0…0a5de Head {h00=0x003a, h01=0x0050, text=» ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS «, t00=0x006a, t01=0x0010}
0x0a5de…0a61c Head {h00=0x003a, h01=0x0050, text=»ALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD«, t00=0x006a, t01=0x004e}
0x0a61c…0a63a Head {h00=0x001a, h01=0x0050, text=» CW A1,SAVE04,A13 ALL?«, t00=0x006a, t01=0x008c}
0x0a63a…0a654 Head {h00=0x0016, h01=0x0050, text=» RF(E) ALLB70 YES!«, t00=0x006a, t01=0x00aa}
0x0a654…0a670 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006a, t01=0x00c4}
0x0a670…0a69a Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A1 GET FIRST WORD IN ECB «, t00=0x006a, t01=0x00e0}
0x0a69a…0a6ba Head {h00=0x001c, h01=0x0050, text=» SLL A3,1 STATIC BUFFER?«, t00=0x006a, t01=0x010a}
0x0a6ba…0a6d4 Head {h00=0x0016, h01=0x0050, text=» RB(NN) ALLB10 NO!«, t00=0x006a, t01=0x012a}
0x0a6d4…0a6f6 Head {h00=0x001e, h01=0x0050, text=» ST A9,BA,A1 BUFFER START «, t00=0x006a, t01=0x0144}
0x0a6f6…0a718 Head {h00=0x001e, h01=0x0050, text=» LD A3,RL,A1 BUFFER LENGTH«, t00=0x006a, t01=0x0166}
0x0a718…0a72c Head {h00=0x0010, h01=0x0050, text=» ST A3,BL,A1«, t00=0x006a, t01=0x0188}
0x0a72c…0a750 Head {h00=0x0020, h01=0x0050, text=» LD A2,EL,A1 SHARED BUFFER? «, t00=0x006b, t01=0x000c}
0x0a750…0a768 Head {h00=0x0014, h01=0x0050, text=» RF(Z) NOTSH NO!«, t00=0x006b, t01=0x0030}
0x0a768…0a792 Head {h00=0x0026, h01=0x0050, text=» LDR A4,A1 RESTORE START OF DSCB'S«, t00=0x006b, t01=0x0048}
0x0a792…0a79e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x0072}
0x0a79e…0a7ba Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006b, t01=0x007e}
0x0a7ba…0a7e2 Head {h00=0x0024, h01=0x0050, text=» ELR A3,A1 GET FIRST WORD IN ECB«, t00=0x006b, t01=0x009a}
0x0a7e2…0a802 Head {h00=0x001c, h01=0x0050, text=» SLL A3,1 STATIC BUFFER?«, t00=0x006b, t01=0x00c2}
0x0a802…0a81c Head {h00=0x0016, h01=0x0050, text=» RB(NN) ALLB10 NO!«, t00=0x006b, t01=0x00e2}
0x0a81c…0a83e Head {h00=0x001e, h01=0x0050, text=» EL A3,RL,A1 BUFFER LENGTH«, t00=0x006b, t01=0x00fc}
0x0a83e…0a852 Head {h00=0x0010, h01=0x0050, text=» ES A3,BL,A1«, t00=0x006b, t01=0x011e}
0x0a852…0a876 Head {h00=0x0020, h01=0x0050, text=» EL A2,EL,A1 SHARED BUFFER? «, t00=0x006b, t01=0x0132}
0x0a876…0a88e Head {h00=0x0014, h01=0x0050, text=» RF(Z) NOTSH NO!«, t00=0x006b, t01=0x0156}
0x0a88e…0a8b8 Head {h00=0x0026, h01=0x0050, text=» LDR A4,A1 RESTORE START OF DSCB'S«, t00=0x006b, t01=0x016e}
0x0a8b8…0a8c4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006c, t01=0x0008}
0x0a8c4…0a8da Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006c, t01=0x0014}
0x0a8da…0a8fa Head {h00=0x001c, h01=0x0050, text=» ADK A4,DSCBL FIRST WORD«, t00=0x006c, t01=0x002a}
0x0a8fa…0a91a Head {h00=0x001c, h01=0x0050, text=»ALLB20 SUK A2,1 A2=INDEX«, t00=0x006c, t01=0x004a}
0x0a91a…0a930 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ALLB30«, t00=0x006c, t01=0x006a}
0x0a930…0a952 Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006c, t01=0x0080}
0x0a952…0a966 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006c, t01=0x00a2}
0x0a966…0a97a Head {h00=0x0010, h01=0x0050, text=»ALLB30 EQU *«, t00=0x006c, t01=0x00b6}
0x0a97a…0a99a Head {h00=0x001c, h01=0x0050, text=» RF(Z) ALLB40 ECB FOUND «, t00=0x006c, t01=0x00ca}
0x0a99a…0a9ce Head {h00=0x0030, h01=0x0050, text=» ADK A4,DSCBL A4=ADDRESS TO DSCB TO EXAMINE «, t00=0x006c, t01=0x00ea}
0x0a9ce…0a9e2 Head {h00=0x0010, h01=0x0050, text=» CWR A4,A10 «, t00=0x006c, t01=0x011e}
0x0a9e2…0a9f8 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ALLB20«, t00=0x006c, t01=0x0132}
0x0a9f8…0aa1e Head {h00=0x0022, h01=0x0050, text=» LDK A1,LMP4 BUFFER NOT FOUND «, t00=0x006c, t01=0x0148}
0x0aa1e…0aa32 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006c, t01=0x016e}
0x0aa32…0aa4e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006c, t01=0x0182}
0x0aa4e…0aa7a Head {h00=0x0028, h01=0x0050, text=»ALLB40 LD A4,BA,A4 BUFFER ALLOCATED?«, t00=0x006d, t01=0x000e}
0x0aa7a…0aa96 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ALLB50 YES! «, t00=0x006d, t01=0x003a}
0x0aa96…0aab8 Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006d, t01=0x0056}
0x0aab8…0aacc Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006d, t01=0x0078}
0x0aacc…0aae0 Head {h00=0x0010, h01=0x0050, text=»ALLB50 EQU *«, t00=0x006d, t01=0x008c}
0x0aae0…0ab0e Head {h00=0x002a, h01=0x0050, text=» ST A4,BA,A1 AND STORE IN CURRENT ECB «, t00=0x006d, t01=0x00a0}
0x0ab0e…0ab1a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006d, t01=0x00ce}
0x0ab1a…0ab36 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006d, t01=0x00da}
0x0ab36…0ab62 Head {h00=0x0028, h01=0x0050, text=»ALLB40 EL A4,BA,A4 BUFFER ALLOCATED?«, t00=0x006d, t01=0x00f6}
0x0ab62…0ab7e Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ALLB50 YES! «, t00=0x006d, t01=0x0122}
0x0ab7e…0aba0 Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006d, t01=0x013e}
0x0aba0…0abb4 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006d, t01=0x0160}
0x0abb4…0abc8 Head {h00=0x0010, h01=0x0050, text=»ALLB50 EQU *«, t00=0x006d, t01=0x0174}
0x0abc8…0abf6 Head {h00=0x002a, h01=0x0050, text=» ES A4,BA,A1 AND ESORE IN CURRENT ECB «, t00=0x006d, t01=0x0188}
0x0abf6…0ac02 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x0026}
0x0ac02…0ac18 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006e, t01=0x0032}
0x0ac18…0ac2a Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006e, t01=0x0048}
0x0ac2a…0ac32 Head {h00=0x0004, h01=0x0050, t00=0x006e, t01=0x005a}
0x0ac32…0ac4e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006e, t01=0x0062}
0x0ac4e…0ac6e Head {h00=0x001c, h01=0x0050, text=»NOTSH LDR A9,A9 PAGING? «, t00=0x006e, t01=0x007e}
0x0ac6e…0ac88 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) NOTS10 NO!«, t00=0x006e, t01=0x009e}
0x0ac88…0acb8 Head {h00=0x002c, h01=0x0050, text=» CALL MOVING ALLOCATE BUFFER FROM BOTTOM«, t00=0x006e, t01=0x00b8}
0x0acb8…0ace2 Head {h00=0x0026, h01=0x0050, text=» ST A2,BA,A1 STORE BUFFER ADDRESS «, t00=0x006e, t01=0x00e8}
0x0ace2…0acf4 Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006e, t01=0x0112}
0x0acf4…0ad26 Head {h00=0x002e, h01=0x0050, text=»NOTS10 ADR A9,A3 ALLOCATE BUFFER FROM TOP «, t00=0x006e, t01=0x0124}
0x0ad26…0ad38 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x006e, t01=0x0156}
0x0ad38…0ad5c Head {h00=0x0020, h01=0x0050, text=» ANKL A9,/FFFE EVEN ADDRESS «, t00=0x006e, t01=0x0168}
0x0ad5c…0ad74 Head {h00=0x0014, h01=0x0050, text=»* CHECK ADDRESS:«, t00=0x006e, t01=0x018c}
0x0ad74…0ad80 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x006f, t01=0x0014}
0x0ad80…0ada6 Head {h00=0x0022, h01=0x0050, text=» LD A11,LSTADR,A13 DATA START «, t00=0x006f, t01=0x0020}
0x0ada6…0adba Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x006f, t01=0x0046}
0x0adba…0add4 Head {h00=0x0016, h01=0x0050, text=» RF(NL) ALLB60 OK!«, t00=0x006f, t01=0x005a}
0x0add4…0adea Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x006f, t01=0x0074}
0x0adea…0adfe Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006f, t01=0x008a}
0x0adfe…0ae12 Head {h00=0x0010, h01=0x0050, text=»ALLB60 EQU *«, t00=0x006f, t01=0x009e}
0x0ae12…0ae44 Head {h00=0x002e, h01=0x0050, text=» ST A9,FSTADR,A13 SAVE BUFFER END ADDRESS «, t00=0x006f, t01=0x00b2}
0x0ae44…0ae50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006f, t01=0x00e4}
0x0ae50…0ae6c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006f, t01=0x00f0}
0x0ae6c…0aea4 Head {h00=0x0034, h01=0x0050, text=»NOTSH CALL MOVING ALLOCATE BUFFER FROM 'BOTTOM' «, t00=0x006f, t01=0x010c}
0x0aea4…0aece Head {h00=0x0026, h01=0x0050, text=» ES A2,BA,A1 STORE BUFFER ADDRESS «, t00=0x006f, t01=0x0144}
0x0aece…0aeda Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006f, t01=0x016e}
0x0aeda…0aef0 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006f, t01=0x017a}
0x0aef0…0af02 Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006f, t01=0x0190}
0x0af02…0af0e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0070, t01=0x0012}
0x0af0e…0af3e Head {h00=0x002c, h01=0x0050, text=»* RESERVE STACK AND SET STACKPOINTERS * «, t00=0x0070, t01=0x001e}
0x0af3e…0af46 Head {h00=0x0004, h01=0x0050, t00=0x0070, t01=0x004e}
0x0af46…0af5a Head {h00=0x0010, h01=0x0050, text=»ALLB70 EQU *«, t00=0x0070, t01=0x0056}
0x0af5a…0af76 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0070, t01=0x006a}
0x0af76…0af9a Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0070, t01=0x0086}
0x0af9a…0afb4 Head {h00=0x0016, h01=0x0050, text=» LD A4,LSTADR,A13 «, t00=0x0070, t01=0x00aa}
0x0afb4…0afc6 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0070, t01=0x00c4}
0x0afc6…0afea Head {h00=0x0020, h01=0x0050, text=» LD A3,CSE,A1 GET STACK SIZE«, t00=0x0070, t01=0x00d6}
0x0afea…0b000 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) ALLB80«, t00=0x0070, t01=0x00fa}
0x0b000…0b028 Head {h00=0x0024, h01=0x0050, text=» LDK A3,STKSZ DEFAULT STACKSIZE «, t00=0x0070, t01=0x0110}
0x0b028…0b03c Head {h00=0x0010, h01=0x0050, text=»ALLB80 EQU *«, t00=0x0070, t01=0x0138}
0x0b03c…0b060 Head {h00=0x0020, h01=0x0050, text=» ST A4,STKB,A1 SET STACKBASE«, t00=0x0070, t01=0x014c}
0x0b060…0b080 Head {h00=0x001c, h01=0x0050, text=» STR A4,A1 STACK POINTER«, t00=0x0070, t01=0x0170}
0x0b080…0b0a4 Head {h00=0x0020, h01=0x0050, text=» CALL MOVING ALLOCATE STACK «, t00=0x0070, t01=0x0190}
0x0b0a4…0b0c8 Head {h00=0x0020, h01=0x0050, text=» ST A2,STKE,A1 SET STACK-END«, t00=0x0071, t01=0x0024}
0x0b0c8…0b0d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x0048}
0x0b0d4…0b0f0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0071, t01=0x0054}
0x0b0f0…0b112 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0071, t01=0x0070}
0x0b112…0b136 Head {h00=0x0020, h01=0x0050, text=» EL A3,CSE,A1 GET STACK SIZE«, t00=0x0071, t01=0x0092}
0x0b136…0b164 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) ALLB80 USER DEFINED STACK SIZE«, t00=0x0071, t01=0x00b6}
0x0b164…0b18c Head {h00=0x0024, h01=0x0050, text=» LDK A3,STKSZ DEFAULT STACK SIZE«, t00=0x0071, t01=0x00e4}
0x0b18c…0b1b8 Head {h00=0x0028, h01=0x0050, text=»ALLB80 ES A3,STKB,A1 SAVE STACK SIZE«, t00=0x0071, t01=0x010c}
0x0b1b8…0b1dc Head {h00=0x0020, h01=0x0050, text=» CALL MOVING ALLOCATE STACK «, t00=0x0071, t01=0x0138}
0x0b1dc…0b202 Head {h00=0x0022, h01=0x0050, text=» ES A2,STKE,A1 STORE STACK END«, t00=0x0071, t01=0x015c}
0x0b202…0b228 Head {h00=0x0022, h01=0x0050, text=» EL A3,STKB,A1 GET STACK SIZE «, t00=0x0071, t01=0x0182}
0x0b228…0b24e Head {h00=0x0022, h01=0x0050, text=» ADR A2,A3 COMPUTE STACK BASE «, t00=0x0072, t01=0x0018}
0x0b24e…0b280 Head {h00=0x002e, h01=0x0050, text=» SUK A2,2 ADDRESS TO LAST WORD IN STACK =1«, t00=0x0072, t01=0x003e}
0x0b280…0b2a8 Head {h00=0x0024, h01=0x0050, text=» ES A2,STKB,A1 STORE STACK BASE «, t00=0x0072, t01=0x0070}
0x0b2a8…0b2d6 Head {h00=0x002a, h01=0x0050, text=» ESR A2,A1 STORE CURRENT STACK POINTER«, t00=0x0072, t01=0x0098}
0x0b2d6…0b2e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x00c6}
0x0b2e2…0b2f8 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0072, t01=0x00d2}
0x0b2f8…0b308 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0072, t01=0x00e8}
0x0b308…0b316 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x00f8}
0x0b316…0b31e Head {h00=0x0004, h01=0x0050, t00=0x0072, t01=0x0106}
0x0b31e…0b356 Head {h00=0x0034, h01=0x0050, text=»** M O V T : A **«, t00=0x0072, t01=0x010e}
0x0b356…0b38e Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0072, t01=0x0146}
0x0b38e…0b3c6 Head {h00=0x0034, h01=0x0050, text=»** MOVE T:A AND UPDATE DATA SET ADDRESSES IN **«, t00=0x0072, t01=0x017e}
0x0b3c6…0b3fe Head {h00=0x0034, h01=0x0050, text=»** FORMAT CONTROL BLOCK **«, t00=0x0073, t01=0x0026}
0x0b3fe…0b436 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0073, t01=0x005e}
0x0b436…0b46e Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=T:A-ADDRESS **«, t00=0x0073, t01=0x0096}
0x0b46e…0b4a6 Head {h00=0x0034, h01=0x0050, text=»** A12=T:D-ADDRESS **«, t00=0x0073, t01=0x00ce}
0x0b4a6…0b4de Head {h00=0x0034, h01=0x0050, text=»** CIA (IN T:A)=DISL. TO T:A-START **«, t00=0x0073, t01=0x0106}
0x0b4de…0b516 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A2=NEW T:A-ADDRESS **«, t00=0x0073, t01=0x013e}
0x0b516…0b54e Head {h00=0x0034, h01=0x0050, text=»** WORKREGS: A1-A4 **«, t00=0x0073, t01=0x0176}
0x0b54e…0b586 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0074, t01=0x001e}
0x0b586…0b58e Head {h00=0x0004, h01=0x0050, t00=0x0074, t01=0x0056}
0x0b58e…0b5a2 Head {h00=0x0010, h01=0x0050, text=»MOVT:A EQU *«, t00=0x0074, t01=0x005e}
0x0b5a2…0b5be Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0074, t01=0x0072}
0x0b5be…0b5e2 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0074, t01=0x008e}
0x0b5e2…0b60e Head {h00=0x0028, h01=0x0050, text=» LD A3,WATLEN,A12 GET LENGTH OF WAT «, t00=0x0074, t01=0x00b2}
0x0b60e…0b626 Head {h00=0x0014, h01=0x0050, text=» SLL A3,2 BYTES «, t00=0x0074, t01=0x00de}
0x0b626…0b656 Head {h00=0x002c, h01=0x0050, text=» SU A3,CIA,A1 ADD DISPLACEMENT TO START «, t00=0x0074, t01=0x00f6}
0x0b656…0b676 Head {h00=0x001c, h01=0x0050, text=» ADK A3,WATFST A3=LENGTH«, t00=0x0074, t01=0x0126}
0x0b676…0b698 Head {h00=0x001e, h01=0x0050, text=» AD A1,CIA,A1 FROM-ADDRESS«, t00=0x0074, t01=0x0146}
0x0b698…0b6ac Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0074, t01=0x0168}
0x0b6ac…0b6c0 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A8 «, t00=0x0074, t01=0x017c}
0x0b6c0…0b6e6 Head {h00=0x0022, h01=0x0050, text=» SU A2,CIA,A4 NEW T:A-ADDRESS «, t00=0x0074, t01=0x0190}
0x0b6e6…0b70e Head {h00=0x0024, h01=0x0050, text=» SU A1,CIA,A4 'OLD' T:A-ADDRESS «, t00=0x0075, t01=0x0026}
0x0b70e…0b716 Head {h00=0x0004, h01=0x0050, t00=0x0075, t01=0x004e}
0x0b716…0b752 Head {h00=0x0038, h01=0x0050, text=»* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * «, t00=0x0075, t01=0x0056}
0x0b752…0b75a Head {h00=0x0004, h01=0x0050, t00=0x0075, t01=0x0092}
0x0b75a…0b77a Head {h00=0x001c, h01=0x0050, text=» LD A3,FCD,A12 ANY FCD? «, t00=0x0075, t01=0x009a}
0x0b77a…0b794 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT10 NO! «, t00=0x0075, t01=0x00ba}
0x0b794…0b7b4 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A2 START OF FCB «, t00=0x0075, t01=0x00d4}
0x0b7b4…0b7d8 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A2 SAVE T:A-ADDRESS «, t00=0x0075, t01=0x00f4}
0x0b7d8…0b80c Head {h00=0x0030, h01=0x0050, text=» LD A10,FLAG,A13 REAL TASK DATA PROCESSING? «, t00=0x0075, t01=0x0118}
0x0b80c…0b826 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT05 NO! «, t00=0x0075, t01=0x014c}
0x0b826…0b864 Head {h00=0x003a, h01=0x0050, text=» SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS)«, t00=0x0075, t01=0x0166}
0x0b864…0b878 Head {h00=0x0010, h01=0x0050, text=»MOVT05 EQU *«, t00=0x0076, t01=0x0014}
0x0b878…0b892 Head {h00=0x0016, h01=0x0050, text=» ADS A4,FCBDD1,A3 «, t00=0x0076, t01=0x0028}
0x0b892…0b8ac Head {h00=0x0016, h01=0x0050, text=» ADS A4,FCBDD2,A3 «, t00=0x0076, t01=0x0042}
0x0b8ac…0b8c2 Head {h00=0x0012, h01=0x0050, text=»MOVT10 RTN A14«, t00=0x0076, t01=0x005c}
0x0b8c2…0b8ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x0072}
0x0b8ce…0b8ea Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0076, t01=0x007e}
0x0b8ea…0b8f2 Head {h00=0x0004, h01=0x0050, t00=0x0076, t01=0x009a}
0x0b8f2…0b914 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0076, t01=0x00a2}
0x0b914…0b940 Head {h00=0x0028, h01=0x0050, text=» EL A3,WATLEN,A12 GET LENGTH OF WAT «, t00=0x0076, t01=0x00c4}
0x0b940…0b958 Head {h00=0x0014, h01=0x0050, text=» SLL A3,2 BYTES «, t00=0x0076, t01=0x00f0}
0x0b958…0b96e Head {h00=0x0012, h01=0x0050, text=» EL A10,CIA,A1«, t00=0x0076, t01=0x0108}
0x0b96e…0b996 Head {h00=0x0024, h01=0x0050, text=» SUR A3,A10 ADD DISPL. TO START «, t00=0x0076, t01=0x011e}
0x0b996…0b9b6 Head {h00=0x001c, h01=0x0050, text=» ADK A3,WATFST A3=LENGTH«, t00=0x0076, t01=0x0146}
0x0b9b6…0b9d6 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A10 FROM-ADDRESS«, t00=0x0076, t01=0x0166}
0x0b9d6…0b9ea Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0076, t01=0x0186}
0x0b9ea…0b9fc Head {h00=0x000e, h01=0x0050, text=» ELR A4,A8«, t00=0x0077, t01=0x000a}
0x0b9fc…0ba12 Head {h00=0x0012, h01=0x0050, text=» EL A10,CIA,A4«, t00=0x0077, t01=0x001c}
0x0ba12…0ba36 Head {h00=0x0020, h01=0x0050, text=» SUR A2,A10 NEW T:A-ADDRESS «, t00=0x0077, t01=0x0032}
0x0ba36…0ba5c Head {h00=0x0022, h01=0x0050, text=» SUR A1,A10 'OLD' T:A-ADDRESS «, t00=0x0077, t01=0x0056}
0x0ba5c…0ba98 Head {h00=0x0038, h01=0x0050, text=»* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * «, t00=0x0077, t01=0x007c}
0x0ba98…0baa0 Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x00b8}
0x0baa0…0bac0 Head {h00=0x001c, h01=0x0050, text=» EL A3,FCD,A12 ANY FCD? «, t00=0x0077, t01=0x00c0}
0x0bac0…0bada Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT10 NO! «, t00=0x0077, t01=0x00e0}
0x0bada…0bafc Head {h00=0x001e, h01=0x0050, text=» LDR A4,A2 GET T:A-ADDRESS«, t00=0x0077, t01=0x00fa}
0x0bafc…0bb30 Head {h00=0x0030, h01=0x0050, text=» LD A10,FLAG,A13 REAL TASK DATA PROCESSING? «, t00=0x0077, t01=0x011c}
0x0bb30…0bb4a Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT05 NO! «, t00=0x0077, t01=0x0150}
0x0bb4a…0bb86 Head {h00=0x0038, h01=0x0050, text=» SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.)«, t00=0x0077, t01=0x016a}
0x0bb86…0bb9a Head {h00=0x0010, h01=0x0050, text=»MOVT05 EQU *«, t00=0x0078, t01=0x0016}
0x0bb9a…0bbba Head {h00=0x001c, h01=0x0050, text=» ADR A3,A2 START OF FCB «, t00=0x0078, t01=0x002a}
0x0bbba…0bbdc Head {h00=0x001e, h01=0x0050, text=» TL* MMTO,13 LOAD TO-TABLE«, t00=0x0078, t01=0x004a}
0x0bbdc…0bbf6 Head {h00=0x0016, h01=0x0050, text=» EL A10,FCBDD1,A3 «, t00=0x0078, t01=0x006c}
0x0bbf6…0bc0a Head {h00=0x0010, h01=0x0050, text=» ADR A10,A4 «, t00=0x0078, t01=0x0086}
0x0bc0a…0bc24 Head {h00=0x0016, h01=0x0050, text=» ES A10,FCBDD1,A3 «, t00=0x0078, t01=0x009a}
0x0bc24…0bc3e Head {h00=0x0016, h01=0x0050, text=» EL A10,FCBDD2,A3 «, t00=0x0078, t01=0x00b4}
0x0bc3e…0bc52 Head {h00=0x0010, h01=0x0050, text=» ADR A10,A4 «, t00=0x0078, t01=0x00ce}
0x0bc52…0bc6c Head {h00=0x0016, h01=0x0050, text=» ES A10,FCBDD2,A3 «, t00=0x0078, t01=0x00e2}
0x0bc6c…0bc96 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0078, t01=0x00fc}
0x0bc96…0bcac Head {h00=0x0012, h01=0x0050, text=»MOVT10 RTN A14«, t00=0x0078, t01=0x0126}
0x0bcac…0bcb8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x013c}
0x0bcb8…0bcc6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x0148}
0x0bcc6…0bcce Head {h00=0x0004, h01=0x0050, t00=0x0078, t01=0x0156}
0x0bcce…0bcd6 Head {h00=0x0004, h01=0x0050, t00=0x0078, t01=0x015e}
0x0bcd6…0bcde Head {h00=0x0004, h01=0x0050, t00=0x0078, t01=0x0166}
0x0bcde…0bd18 Head {h00=0x0036, h01=0x0050, text=»** C M P A D R **«, t00=0x0078, t01=0x016e}
0x0bd18…0bd52 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0079, t01=0x0018}
0x0bd52…0bd8c Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0079, t01=0x0052}
0x0bd8c…0bdc6 Head {h00=0x0036, h01=0x0050, text=»** COMPARE ADDRESSES. RESULT IN PSW ON RETURN **«, t00=0x0079, t01=0x008c}
0x0bdc6…0be00 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0079, t01=0x00c6}
0x0be00…0be3a Head {h00=0x0036, h01=0x0050, text=»** INPUT : A11 COMPARED TO.. **«, t00=0x0079, t01=0x0100}
0x0be3a…0be74 Head {h00=0x0036, h01=0x0050, text=»** A9 **«, t00=0x0079, t01=0x013a}
0x0be74…0beae Head {h00=0x0036, h01=0x0050, text=»** OUTPUT: RESULT IN A14-STACK **«, t00=0x0079, t01=0x0174}
0x0beae…0bee8 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x007a, t01=0x001e}
0x0bee8…0bef4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x007a, t01=0x0058}
0x0bef4…0bf08 Head {h00=0x0010, h01=0x0050, text=»CMPADR EQU *«, t00=0x007a, t01=0x0064}
0x0bf08…0bf1c Head {h00=0x0010, h01=0x0050, text=» TNM A11,A9 «, t00=0x007a, t01=0x0078}
0x0bf1c…0bf32 Head {h00=0x0012, h01=0x0050, text=» RF(NN) CMPA10«, t00=0x007a, t01=0x008c}
0x0bf32…0bf46 Head {h00=0x0010, h01=0x0050, text=» CWR A9,A11 «, t00=0x007a, t01=0x00a2}
0x0bf46…0bf58 Head {h00=0x000e, h01=0x0050, text=» RF CMPA20«, t00=0x007a, t01=0x00b6}
0x0bf58…0bf72 Head {h00=0x0016, h01=0x0050, text=»CMPA10 CWR A11,A9 «, t00=0x007a, t01=0x00c8}
0x0bf72…0bfa4 Head {h00=0x002e, h01=0x0050, text=»CMPA20 CFI A14,PSW,A13 PUT RESULT ON STACK«, t00=0x007a, t01=0x00e2}
0x0bfa4…0bfb4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007a, t01=0x0114}
0x0bfb4…0bfca Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x007a, t01=0x0124}
0x0bfca…0bfd8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007a, t01=0x013a}
0x0bfd8…0c020 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x007a, t01=0x0148}
0x0c020…0c068 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007a, t01=0x0190}
0x0c068…0c0b0 Head {h00=0x0044, h01=0x0050, text=»* ICBMVD - INDICATE CURRENT BLOCK MOVED * «, t00=0x007b, t01=0x0048}
0x0c0b0…0c0f8 Head {h00=0x0044, h01=0x0050, text=»* ===================================== * «, t00=0x007b, t01=0x0090}
0x0c0f8…0c140 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007b, t01=0x00d8}
0x0c140…0c188 Head {h00=0x0044, h01=0x0050, text=»* REFERENCED IN: MOVCOM * «, t00=0x007b, t01=0x0120}
0x0c188…0c1d0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007b, t01=0x0168}
0x0c1d0…0c218 Head {h00=0x0044, h01=0x0050, text=»* ENTRY: A8 - FIRST T:A POINTER * «, t00=0x007c, t01=0x0020}
0x0c218…0c260 Head {h00=0x0044, h01=0x0050, text=»* A6 - SECOND T:A POINTER * «, t00=0x007c, t01=0x0068}
0x0c260…0c2a8 Head {h00=0x0044, h01=0x0050, text=»* BIT - BIT NUMBER SET IN CWB- OR UWB-MASK * «, t00=0x007c, t01=0x00b0}
0x0c2a8…0c2f0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007c, t01=0x00f8}
0x0c2f0…0c338 Head {h00=0x0044, h01=0x0050, text=»* EXIT: CORRESPONDING BIT IN CURRENT STATCK POINTER * «, t00=0x007c, t01=0x0140}
0x0c338…0c380 Head {h00=0x0044, h01=0x0050, text=»* IN T:A IS SET * «, t00=0x007c, t01=0x0188}
0x0c380…0c3c8 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007d, t01=0x0040}
0x0c3c8…0c410 Head {h00=0x0044, h01=0x0050, text=»* WORK REGISTERS: A1,A2 * «, t00=0x007d, t01=0x0088}
0x0c410…0c458 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007d, t01=0x00d0}
0x0c458…0c4a0 Head {h00=0x0044, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x007d, t01=0x0118}
0x0c4a0…0c4e8 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007d, t01=0x0160}
0x0c4e8…0c530 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x007e, t01=0x0018}
0x0c530…0c53e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007e, t01=0x0060}
0x0c53e…0c552 Head {h00=0x0010, h01=0x0050, text=»ICBMVD EQU *«, t00=0x007e, t01=0x006e}
0x0c552…0c572 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,/8000 SET BIT 0«, t00=0x007e, t01=0x0082}
0x0c572…0c5ac Head {h00=0x0036, h01=0x0050, text=» LD A2,BIT,A13 GET BIT NUMBER IN CWB- OR UWB-MASK «, t00=0x007e, t01=0x00a2}
0x0c5ac…0c5d2 Head {h00=0x0022, h01=0x0050, text=»IBAM10 RF(Z) IBAM20 BIT FOUND «, t00=0x007e, t01=0x00dc}
0x0c5d2…0c5fc Head {h00=0x0026, h01=0x0050, text=» SRL A1,1 SHIFT BIT RIGHT ONE STEP«, t00=0x007e, t01=0x0102}
0x0c5fc…0c624 Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT BIT COUNTER «, t00=0x007e, t01=0x012c}
0x0c624…0c636 Head {h00=0x000e, h01=0x0050, text=» RB IBAM10«, t00=0x007e, t01=0x0154}
0x0c636…0c640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0166}
0x0c640…0c66a Head {h00=0x0026, h01=0x0050, text=»* UPDATE MOVED MASK IN FIRST T:A «, t00=0x007e, t01=0x0170}
0x0c66a…0c674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x000a}
0x0c674…0c680 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0014}
0x0c680…0c69c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x007f, t01=0x0020}
0x0c69c…0c6c6 Head {h00=0x0026, h01=0x0050, text=»IBAM20 LDR* A2,A8 GET T:A POINTER «, t00=0x007f, t01=0x003c}
0x0c6c6…0c6ee Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET MOVED BLOCK MASK«, t00=0x007f, t01=0x0066}
0x0c6ee…0c71e Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007f, t01=0x008e}
0x0c71e…0c74c Head {h00=0x002a, h01=0x0050, text=» STR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007f, t01=0x00be}
0x0c74c…0c756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00ec}
0x0c756…0c780 Head {h00=0x0026, h01=0x0050, text=»* UPDATE MOVED MASK IN SECOND T:A«, t00=0x007f, t01=0x00f6}
0x0c780…0c78a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0120}
0x0c78a…0c7ae Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A6 GET T:A POINTER «, t00=0x007f, t01=0x012a}
0x0c7ae…0c7d6 Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET MOVED BLOCK MASK«, t00=0x007f, t01=0x014e}
0x0c7d6…0c806 Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007f, t01=0x0176}
0x0c806…0c834 Head {h00=0x002a, h01=0x0050, text=» STR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x0080, t01=0x0016}
0x0c834…0c840 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x0044}
0x0c840…0c85c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0080, t01=0x0050}
0x0c85c…0c884 Head {h00=0x0024, h01=0x0050, text=»IBAM20 ELR A2,A8 GET T:A POINTER«, t00=0x0080, t01=0x006c}
0x0c884…0c8ac Head {h00=0x0024, h01=0x0050, text=» ELR A3,A2 GET MOVED BLOCK MASK «, t00=0x0080, t01=0x0094}
0x0c8ac…0c8dc Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x0080, t01=0x00bc}
0x0c8dc…0c90a Head {h00=0x002a, h01=0x0050, text=» ESR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x0080, t01=0x00ec}
0x0c90a…0c914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x011a}
0x0c914…0c93e Head {h00=0x0026, h01=0x0050, text=»* UPDATE MOVED MASK IN SECOND T:A«, t00=0x0080, t01=0x0124}
0x0c93e…0c948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x014e}
0x0c948…0c96a Head {h00=0x001e, h01=0x0050, text=» ELR A2,A6 GET T:A POINTER«, t00=0x0080, t01=0x0158}
0x0c96a…0c992 Head {h00=0x0024, h01=0x0050, text=» ELR A3,A2 GET MOVED BLOCK MASK «, t00=0x0080, t01=0x017a}
0x0c992…0c9c2 Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x0081, t01=0x0012}
0x0c9c2…0c9f0 Head {h00=0x002a, h01=0x0050, text=» ESR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x0081, t01=0x0042}
0x0c9f0…0c9fc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x0070}
0x0c9fc…0ca12 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0081, t01=0x007c}
0x0ca12…0ca22 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0081, t01=0x0092}
0x0ca22…0ca30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x00a2}
0x0ca30…0ca7e Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0081, t01=0x00b0}
0x0ca7e…0cacc Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0081, t01=0x00fe}
0x0cacc…0cb1a Head {h00=0x004a, h01=0x0050, text=»* CHKMVD - CHECK IF BLOCK ALREADY MOVED * «, t00=0x0081, t01=0x014c}
0x0cb1a…0cb68 Head {h00=0x004a, h01=0x0050, text=»* ===================================== * «, t00=0x0082, t01=0x000a}
0x0cb68…0cbb6 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0082, t01=0x0058}
0x0cbb6…0cc04 Head {h00=0x004a, h01=0x0050, text=»* REFERENCED IN: MOVCOM,MOVCLA * «, t00=0x0082, t01=0x00a6}
0x0cc04…0cc52 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0082, t01=0x00f4}
0x0cc52…0cca0 Head {h00=0x004a, h01=0x0050, text=»* ENTRY: A8 - POINTER TO T:A * «, t00=0x0082, t01=0x0142}
0x0cca0…0ccee Head {h00=0x004a, h01=0x0050, text=»* BIT - BIT NUMBER IN CWB- OR UWB-MASK * «, t00=0x0082, t01=0x0190}
0x0ccee…0cd3c Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0083, t01=0x004e}
0x0cd3c…0cd8a Head {h00=0x004a, h01=0x0050, text=»* EXIT: IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2 * «, t00=0x0083, t01=0x009c}
0x0cd8a…0cdd8 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0083, t01=0x00ea}
0x0cdd8…0ce26 Head {h00=0x004a, h01=0x0050, text=»* WORK REGISTER: A1,A2 * «, t00=0x0083, t01=0x0138}
0x0ce26…0ce74 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0083, t01=0x0186}
0x0ce74…0cec2 Head {h00=0x004a, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0084, t01=0x0044}
0x0cec2…0cf10 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0084, t01=0x0092}
0x0cf10…0cf5e Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0084, t01=0x00e0}
0x0cf5e…0cf6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0084, t01=0x012e}
0x0cf6c…0cf80 Head {h00=0x0010, h01=0x0050, text=»CHKMVD EQU *«, t00=0x0084, t01=0x013c}
0x0cf80…0cf9c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0084, t01=0x0150}
0x0cf9c…0cfc0 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A POINTER «, t00=0x0084, t01=0x016c}
0x0cfc0…0cfe8 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET MOVED BLOCK MASK«, t00=0x0084, t01=0x0190}
0x0cfe8…0cff4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0085, t01=0x0028}
0x0cff4…0d010 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0085, t01=0x0034}
0x0d010…0d032 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A POINTER«, t00=0x0085, t01=0x0050}
0x0d032…0d05a Head {h00=0x0024, h01=0x0050, text=» ELR A1,A1 GET MOVED BLOCK MASK «, t00=0x0085, t01=0x0072}
0x0d05a…0d066 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0085, t01=0x009a}
0x0d066…0d07c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0085, t01=0x00a6}
0x0d07c…0d0b2 Head {h00=0x0032, h01=0x0050, text=» LD A2,BIT,A13 GET BIT SET IN CWB- OR UWB-MASK«, t00=0x0085, t01=0x00bc}
0x0d0b2…0d0ec Head {h00=0x0036, h01=0x0050, text=»CHKM10 RF(Z) CHKM20 BIT IN MOVED BLOCK MASK FOUND «, t00=0x0085, t01=0x00f2}
0x0d0ec…0d11a Head {h00=0x002a, h01=0x0050, text=» SLL A1,1 NEXT BIT IN MOVED BLOCK MASK«, t00=0x0085, t01=0x012c}
0x0d11a…0d142 Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT BIT COUNTER «, t00=0x0085, t01=0x015a}
0x0d142…0d154 Head {h00=0x000e, h01=0x0050, text=» RB CHKM10«, t00=0x0085, t01=0x0182}
0x0d154…0d172 (134, 0, 400) Head {h00=0x001a, h01=0x0050, text=»CHKM20 ADK A1,0 SET CR«, t00=0x0086, t01=0x0004}
0x0d172…0d1a0 Head {h00=0x002a, h01=0x0050, text=» CFI A14,PSW,A13 PUT CONDITION IN PSW «, t00=0x0086, t01=0x0022}
0x0d1a0…0d1b0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0086, t01=0x0050}
0x0d1b0…0d1be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x0060}
0x0d1be…0d1ca Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0086, t01=0x006e}
0x0d1ca…0d1d6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0086, t01=0x007a}
0x0d1d6…0d214 Head {h00=0x003a, h01=0x0050, text=»***** S * U * P * E * R * L * O * O * P ****«, t00=0x0086, t01=0x0086}
0x0d214…0d252 Head {h00=0x003a, h01=0x0050, text=»** **«, t00=0x0086, t01=0x00c4}
0x0d252…0d290 Head {h00=0x003a, h01=0x0050, text=»** S H I F T & SKIFTA **«, t00=0x0086, t01=0x0102}
0x0d290…0d2ce Head {h00=0x003a, h01=0x0050, text=»** **«, t00=0x0086, t01=0x0140}
0x0d2ce…0d30c Head {h00=0x003a, h01=0x0050, text=»** CALCULATES BIT NUMBER SAT IN MASK-WORD **«, t00=0x0086, t01=0x017e}
0x0d30c…0d34a Head {h00=0x003a, h01=0x0050, text=»** INPUT : A7=MASK WORD **«, t00=0x0087, t01=0x002c}
0x0d34a…0d388 Head {h00=0x003a, h01=0x0050, text=»** OUTPUT: BIT=BIT NUMBER **«, t00=0x0087, t01=0x006a}
0x0d388…0d3c6 Head {h00=0x003a, h01=0x0050, text=»** CONDITION CODE IN PSW ON RETURN **«, t00=0x0087, t01=0x00a8}
0x0d3c6…0d404 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0087, t01=0x00e6}
0x0d404…0d410 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0087, t01=0x0124}
0x0d410…0d424 Head {h00=0x0010, h01=0x0050, text=»SHIFT EQU * «, t00=0x0087, t01=0x0130}
0x0d424…0d44a Head {h00=0x0022, h01=0x0050, text=» CM BIT,A13 RESET BIT COUNTER «, t00=0x0087, t01=0x0144}
0x0d44a…0d45c Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0087, t01=0x016a}
0x0d45c…0d46e Head {h00=0x000e, h01=0x0050, text=» RF SHIF20«, t00=0x0087, t01=0x017c}
0x0d46e…0d498 Head {h00=0x0026, h01=0x0050, text=»SKIFTA EQU * ENTRY: CONTINUE SHIFT«, t00=0x0087, t01=0x018e}
0x0d498…0d4b2 Head {h00=0x0016, h01=0x0050, text=»SHIF10 IM BIT,A13 «, t00=0x0088, t01=0x0028}
0x0d4b2…0d4c4 Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x0088, t01=0x0042}
0x0d4c4…0d4d8 Head {h00=0x0010, h01=0x0050, text=»SHIF20 EQU *«, t00=0x0088, t01=0x0054}
0x0d4d8…0d500 Head {h00=0x0024, h01=0x0050, text=» RF(Z) SHIF30 NO MOORE BITS SAT «, t00=0x0088, t01=0x0068}
0x0d500…0d516 Head {h00=0x0012, h01=0x0050, text=» RB(NN) SHIF10«, t00=0x0088, t01=0x0090}
0x0d516…0d544 Head {h00=0x002a, h01=0x0050, text=»SHIF30 CFI A14,PSW,A13 PUT COND IN PSW«, t00=0x0088, t01=0x00a6}
0x0d544…0d554 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0088, t01=0x00d4}
0x0d554…0d560 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0088, t01=0x00e4}
0x0d560…0d56e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0088, t01=0x00f0}
0x0d56e…0d57a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0088, t01=0x00fe}
0x0d57a…0d586 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0088, t01=0x010a}
0x0d586…0d5be Head {h00=0x0034, h01=0x0050, text=»** M U L T **«, t00=0x0088, t01=0x0116}
0x0d5be…0d5f6 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0088, t01=0x014e}
0x0d5f6…0d62e Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0088, t01=0x0186}
0x0d62e…0d666 Head {h00=0x0034, h01=0x0050, text=»** MULTIPLICATION (A2) X A3(), A2#0 **«, t00=0x0089, t01=0x002e}
0x0d666…0d69e Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0089, t01=0x0066}
0x0d69e…0d6d6 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A3,A2 **«, t00=0x0089, t01=0x009e}
0x0d6d6…0d70e Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A3=RESULT **«, t00=0x0089, t01=0x00d6}
0x0d70e…0d746 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0089, t01=0x010e}
0x0d746…0d758 Head {h00=0x000e, h01=0x0050, text=»MULT EQU *«, t00=0x0089, t01=0x0146}
0x0d758…0d76e Head {h00=0x0012, h01=0x0050, text=» ST A3,MUL,A13«, t00=0x0089, t01=0x0158}
0x0d76e…0d794 Head {h00=0x0022, h01=0x0050, text=» STR A2,A14 SAVE A2 TEMPORARY «, t00=0x0089, t01=0x016e}
0x0d794…0d7a6 (138, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x008a, t01=0x0004}
0x0d7a6…0d7c0 Head {h00=0x0016, h01=0x0050, text=»ADD AD A3,MUL,A13 «, t00=0x008a, t01=0x0016}
0x0d7c0…0d7d2 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x008a, t01=0x0030}
0x0d7d2…0d7e6 Head {h00=0x0010, h01=0x0050, text=» RB(NZ) ADD «, t00=0x008a, t01=0x0042}
0x0d7e6…0d7fa Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A14«, t00=0x008a, t01=0x0056}
0x0d7fa…0d80a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008a, t01=0x006a}
0x0d80a…0d812 Head {h00=0x0004, h01=0x0050, t00=0x008a, t01=0x007a}
0x0d812…0d828 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x008a, t01=0x0082}
0x0d828…0d836 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008a, t01=0x0098}
0x0d836…0d83e Head {h00=0x0004, h01=0x0050, t00=0x008a, t01=0x00a6}
0x0d83e…0d876 Head {h00=0x0034, h01=0x0050, text=»** M M E N T ** «, t00=0x008a, t01=0x00ae}
0x0d876…0d8ae Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x008a, t01=0x00e6}
0x0d8ae…0d8e6 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x008a, t01=0x011e}
0x0d8e6…0d91e Head {h00=0x0034, h01=0x0050, text=»** FIND LAST USED ENTRY IN MM-TAB. SCAN ** «, t00=0x008a, t01=0x0156}
0x0d91e…0d956 Head {h00=0x0034, h01=0x0050, text=»** FROM LOW ADDRESS. NOT USED ENTRY=0. ** «, t00=0x008a, t01=0x018e}
0x0d956…0d98e Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x008b, t01=0x0036}
0x0d98e…0d9c6 Head {h00=0x0034, h01=0x0050, text=»** INPUT :A3=MM-TABLE ADDRESS ** «, t00=0x008b, t01=0x006e}
0x0d9c6…0d9fe Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A3=ENTRY ADDRESS ** «, t00=0x008b, t01=0x00a6}
0x0d9fe…0da36 Head {h00=0x0034, h01=0x0050, text=»** A9=TTAB-ADDRESS ** «, t00=0x008b, t01=0x00de}
0x0da36…0da6e Head {h00=0x0034, h01=0x0050, text=»** LSTPAG IN TTAB=A3 ** «, t00=0x008b, t01=0x0116}
0x0da6e…0daa6 Head {h00=0x0034, h01=0x0050, text=»** A1=CONTENTS OF 1:ST USED ENTRY ** «, t00=0x008b, t01=0x014e}
0x0daa6…0dade Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x008b, t01=0x0186}
0x0dade…0dae6 Head {h00=0x0004, h01=0x0050, t00=0x008c, t01=0x002e}
0x0dae6…0dafa Head {h00=0x0010, h01=0x0050, text=»MMENT EQU * «, t00=0x008c, t01=0x0036}
0x0dafa…0db1e Head {h00=0x0020, h01=0x0050, text=» LDR A9,A3 GET TABLE ADDRESS«, t00=0x008c, t01=0x004a}
0x0db1e…0db58 Head {h00=0x0036, h01=0x0050, text=» SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER)«, t00=0x008c, t01=0x006e}
0x0db58…0db6a Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x008c, t01=0x00a8}
0x0db6a…0db94 Head {h00=0x0026, h01=0x0050, text=»MMEN10 ADK A3,2 INCREMENT ADDRESS «, t00=0x008c, t01=0x00ba}
0x0db94…0dbc0 Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A3 GET CONTENTS OF MM-TABLE«, t00=0x008c, t01=0x00e4}
0x0dbc0…0dbd6 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FC00«, t00=0x008c, t01=0x0110}
0x0dbd6…0dbec Head {h00=0x0012, h01=0x0050, text=» CWK A1,/FC00 «, t00=0x008c, t01=0x0126}
0x0dbec…0dc02 Head {h00=0x0012, h01=0x0050, text=» RB(Z) MMEN10 «, t00=0x008c, t01=0x013c}
0x0dc02…0dc38 Head {h00=0x0032, h01=0x0050, text=» ST A3,LSTPAG,A9 SAVE FIRST FREE PAGE-ADDRESS «, t00=0x008c, t01=0x0152}
0x0dc38…0dc48 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008c, t01=0x0188}
0x0dc48…0dc54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x0008}
0x0dc54…0dc6a Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x008d, t01=0x0014}
0x0dc6a…0dc78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008d, t01=0x002a}
0x0dc78…0dc80 Head {h00=0x0004, h01=0x0050, t00=0x008d, t01=0x0038}
0x0dc80…0dcb6 Head {h00=0x0032, h01=0x0050, text=»** G E T T A B **«, t00=0x008d, t01=0x0040}
0x0dcb6…0dcec Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x008d, t01=0x0076}
0x0dcec…0dd22 Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x008d, t01=0x00ac}
0x0dd22…0dd58 Head {h00=0x0032, h01=0x0050, text=»** FIND TTAB ADDRESS **«, t00=0x008d, t01=0x00e2}
0x0dd58…0dd8e Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x008d, t01=0x0118}
0x0dd8e…0ddc4 Head {h00=0x0032, h01=0x0050, text=»** INPUT :A8=POINTER TO T:A IN T:ATAB **«, t00=0x008d, t01=0x014e}
0x0ddc4…0ddfa Head {h00=0x0032, h01=0x0050, text=»** OUTPUT:A2=TTAB-ADDRESS **«, t00=0x008d, t01=0x0184}
0x0ddfa…0de30 Head {h00=0x0032, h01=0x0050, text=»** A1=TID **«, t00=0x008e, t01=0x002a}
0x0de30…0de66 Head {h00=0x0032, h01=0x0050, text=»** WORKREGS:A3,A4,A10 **«, t00=0x008e, t01=0x0060}
0x0de66…0de9c Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x008e, t01=0x0096}
0x0de9c…0dea4 Head {h00=0x0004, h01=0x0050, t00=0x008e, t01=0x00cc}
0x0dea4…0deb8 Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x008e, t01=0x00d4}
0x0deb8…0dec4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x00e8}
0x0dec4…0deda Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x008e, t01=0x00f4}
0x0deda…0defa Head {h00=0x001c, h01=0x0050, text=» LDR* A10,A8 T:A ADDRESS«, t00=0x008e, t01=0x010a}
0x0defa…0df24 Head {h00=0x0026, h01=0x0050, text=» LD A1,T:ATID,A10 GET TID TO MATCH«, t00=0x008e, t01=0x012a}
0x0df24…0df4a Head {h00=0x0022, h01=0x0050, text=» LD A12,T:DAD,A10 T:D-ADDRESS «, t00=0x008e, t01=0x0154}
0x0df4a…0df56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x017a}
0x0df56…0df6c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x008e, t01=0x0186}
0x0df6c…0df8c Head {h00=0x001c, h01=0x0050, text=» ELR A10,A8 T:A-ADDRESS «, t00=0x008f, t01=0x000c}
0x0df8c…0dfae Head {h00=0x001e, h01=0x0050, text=» EL A1,T:ATID,A10 GET TID «, t00=0x008f, t01=0x002c}
0x0dfae…0dfc8 Head {h00=0x0016, h01=0x0050, text=» EL A12,T:DAD,A10 «, t00=0x008f, t01=0x004e}
0x0dfc8…0dfd4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x0068}
0x0dfd4…0dffe Head {h00=0x0026, h01=0x0050, text=»GETTTB EQU * ENTRY. INPUT: A1=TID «, t00=0x008f, t01=0x0074}
0x0dffe…0e026 Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTTCT GET TC:TAB ADDRESS«, t00=0x008f, t01=0x009e}
0x0e026…0e046 Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A4 TCTAB LENGTH«, t00=0x008f, t01=0x00c6}
0x0e046…0e05e Head {h00=0x0014, h01=0x0050, text=»GETT10 ADK A4,2 «, t00=0x008f, t01=0x00e6}
0x0e05e…0e074 Head {h00=0x0012, h01=0x0050, text=» SUK A3,2 ALL?«, t00=0x008f, t01=0x00fe}
0x0e074…0e08e Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETT20 NO!«, t00=0x008f, t01=0x0114}
0x0e08e…0e0bc Head {h00=0x002a, h01=0x0050, text=» LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) «, t00=0x008f, t01=0x012e}
0x0e0bc…0e0da Head {h00=0x001a, h01=0x0050, text=» LDK A1,LMP5 TID ERROR«, t00=0x008f, t01=0x015c}
0x0e0da…0e0ee Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x008f, t01=0x017a}
0x0e0ee…0e114 Head {h00=0x0022, h01=0x0050, text=»GETT20 LDR* A2,A4 TTAB-ADDRESS«, t00=0x008f, t01=0x018e}
0x0e114…0e138 Head {h00=0x0020, h01=0x0050, text=» CW A1,TTB:PP,A2 TCL EQUAL? «, t00=0x0090, t01=0x0024}
0x0e138…0e152 Head {h00=0x0016, h01=0x0050, text=» RB(NE) GETT10 NO!«, t00=0x0090, t01=0x0048}
0x0e152…0e16e Head {h00=0x0018, h01=0x0050, text=» ST A2,TTAB,A13 SAVE«, t00=0x0090, t01=0x0062}
0x0e16e…0e17e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0090, t01=0x007e}
0x0e17e…0e194 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0090, t01=0x008e}
0x0e194…0e1a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0090, t01=0x00a4}
0x0e1a2…0e1aa Head {h00=0x0004, h01=0x0050, t00=0x0090, t01=0x00b2}
0x0e1aa…0e1b2 Head {h00=0x0004, h01=0x0050, t00=0x0090, t01=0x00ba}
0x0e1b2…0e1ee Head {h00=0x0038, h01=0x0050, text=»** Q U E J O B ** «, t00=0x0090, t01=0x00c2}
0x0e1ee…0e22a Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x0090, t01=0x00fe}
0x0e22a…0e266 Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x0090, t01=0x013a}
0x0e266…0e2a2 Head {h00=0x0038, h01=0x0050, text=»** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** «, t00=0x0090, t01=0x0176}
0x0e2a2…0e2de Head {h00=0x0038, h01=0x0050, text=»** 0, ENB. ** «, t00=0x0091, t01=0x0022}
0x0e2de…0e31a Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x0091, t01=0x005e}
0x0e31a…0e356 Head {h00=0x0038, h01=0x0050, text=»** INPUT: A10=T:A-ADDRESS ** «, t00=0x0091, t01=0x009a}
0x0e356…0e392 Head {h00=0x0038, h01=0x0050, text=»** A12=T:D-ADDRESS ** «, t00=0x0091, t01=0x00d6}
0x0e392…0e3ce Head {h00=0x0038, h01=0x0050, text=»** A2=TTAB-ADDRESS ** «, t00=0x0091, t01=0x0112}
0x0e3ce…0e40a Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0091, t01=0x014e}
0x0e40a…0e412 Head {h00=0x0004, h01=0x0050, t00=0x0091, t01=0x018a}
0x0e412…0e426 (146, 0, 400) Head {h00=0x0010, h01=0x0050, text=»QUEJOB EQU *«, t00=0x0092, t01=0x0004}
0x0e426…0e44a Head {h00=0x0020, h01=0x0050, text=»* QUEUE THIS TASK (THIS TID)«, t00=0x0092, t01=0x0018}
0x0e44a…0e452 Head {h00=0x0004, h01=0x0050, t00=0x0092, t01=0x003c}
0x0e452…0e486 Head {h00=0x0030, h01=0x0050, text=» LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS«, t00=0x0092, t01=0x0044}
0x0e486…0e4a2 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A13 RELOCATE«, t00=0x0092, t01=0x0078}
0x0e4a2…0e4c2 Head {h00=0x001c, h01=0x0050, text=» STR A3,A15 PUT ON STACK«, t00=0x0092, t01=0x0094}
0x0e4c2…0e4f0 Head {h00=0x002a, h01=0x0050, text=» LDKL A3,/00C0 SET LEVEL 0 AND ENABLE «, t00=0x0092, t01=0x00b4}
0x0e4f0…0e508 Head {h00=0x0014, h01=0x0050, text=» STR A3,A15 PSW «, t00=0x0092, t01=0x00e2}
0x0e508…0e52a Head {h00=0x001e, h01=0x0050, text=» CF A15,SAVE8 SAVE 8 REGS «, t00=0x0092, t01=0x00fa}
0x0e52a…0e552 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 CLEAR ABORT INDICATOR «, t00=0x0092, t01=0x011c}
0x0e552…0e57a Head {h00=0x0024, h01=0x0050, text=» LD A8,SCTLAC GET P:MTAB-ADDRESS«, t00=0x0092, t01=0x0144}
0x0e57a…0e59e Head {h00=0x0020, h01=0x0050, text=» LDR A5,A2 GET TTAB-ADDRESS «, t00=0x0092, t01=0x016c}
0x0e59e…0e5ba Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0092, t01=0x0190}
0x0e5ba…0e5ea Head {h00=0x002c, h01=0x0050, text=» LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS«, t00=0x0093, t01=0x001c}
0x0e5ea…0e5fc Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0093, t01=0x004c}
0x0e5fc…0e612 Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FFFE«, t00=0x0093, t01=0x005e}
0x0e612…0e62a Head {h00=0x0014, h01=0x0050, text=» ADK A4,DWBFST+4«, t00=0x0093, t01=0x0074}
0x0e62a…0e666 Head {h00=0x0038, h01=0x0050, text=» ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS«, t00=0x0093, t01=0x008c}
0x0e666…0e690 Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A4 NUMBER OF START POINTS«, t00=0x0093, t01=0x00c8}
0x0e690…0e6c2 Head {h00=0x002e, h01=0x0050, text=»GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS«, t00=0x0093, t01=0x00f2}
0x0e6c2…0e6dc Head {h00=0x0016, h01=0x0050, text=» RF(N) GETT40 ALL!«, t00=0x0093, t01=0x0124}
0x0e6dc…0e6fc Head {h00=0x001c, h01=0x0050, text=» LD A1,4,A4 DISP ADDRESS«, t00=0x0093, t01=0x013e}
0x0e6fc…0e71e Head {h00=0x001e, h01=0x0050, text=» LD A3,2,A4 SEGMENT NUMBER«, t00=0x0093, t01=0x015e}
0x0e71e…0e74e Head {h00=0x002c, h01=0x0050, text=» LD A2,NTPA,A8 INTERPRETER START ADDRESS«, t00=0x0093, t01=0x0180}
0x0e74e…0e75a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0094, t01=0x0020}
0x0e75a…0e776 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0094, t01=0x002c}
0x0e776…0e7a6 Head {h00=0x002c, h01=0x0050, text=» EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS«, t00=0x0094, t01=0x0048}
0x0e7a6…0e7b8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0094, t01=0x0078}
0x0e7b8…0e7ce Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FFFE«, t00=0x0094, t01=0x008a}
0x0e7ce…0e7e6 Head {h00=0x0014, h01=0x0050, text=» ADK A4,DWBFST+4«, t00=0x0094, t01=0x00a0}
0x0e7e6…0e822 Head {h00=0x0038, h01=0x0050, text=» ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS«, t00=0x0094, t01=0x00b8}
0x0e822…0e84c Head {h00=0x0026, h01=0x0050, text=» ELR A6,A4 NUMBER OF START-POINTS «, t00=0x0094, t01=0x00f4}
0x0e84c…0e87e Head {h00=0x002e, h01=0x0050, text=»GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS«, t00=0x0094, t01=0x011e}
0x0e87e…0e898 Head {h00=0x0016, h01=0x0050, text=» RF(N) GETT40 ALL!«, t00=0x0094, t01=0x0150}
0x0e898…0e8b8 Head {h00=0x001c, h01=0x0050, text=» EL A1,4,A4 DISP ADDRESS«, t00=0x0094, t01=0x016a}
0x0e8b8…0e8da Head {h00=0x001e, h01=0x0050, text=» EL A3,2,A4 SEGMENT NUMBER«, t00=0x0094, t01=0x018a}
0x0e8da…0e90a Head {h00=0x002c, h01=0x0050, text=» EL A2,NTPA,A8 INTERPRETER START ADDRESS«, t00=0x0095, t01=0x001c}
0x0e90a…0e916 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0095, t01=0x004c}
0x0e916…0e92c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0095, t01=0x0058}
0x0e92c…0e942 Head {h00=0x0012, h01=0x0050, text=» CF A15,ACTOT «, t00=0x0095, t01=0x006e}
0x0e942…0e96a Head {h00=0x0024, h01=0x0050, text=» ADK A4,STPREC NEXT START-POINT «, t00=0x0095, t01=0x0084}
0x0e96a…0e97c Head {h00=0x000e, h01=0x0050, text=» RB GETT30«, t00=0x0095, t01=0x00ac}
0x0e97c…0e9a4 Head {h00=0x0024, h01=0x0050, text=»GETT40 ABL RETUR8 RELOAD 8 REGS «, t00=0x0095, t01=0x00be}
0x0e9a4…0e9bc Head {h00=0x0014, h01=0x0050, text=»RETUR EQU *-REL «, t00=0x0095, t01=0x00e6}
0x0e9bc…0e9cc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0095, t01=0x00fe}
0x0e9cc…0e9d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0095, t01=0x010e}
0x0e9d8…0e9ee Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0095, t01=0x011a}
0x0e9ee…0e9fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0095, t01=0x0130}
0x0e9fc…0ea04 Head {h00=0x0004, h01=0x0050, t00=0x0095, t01=0x013e}
0x0ea04…0ea3c Head {h00=0x0034, h01=0x0050, text=»** M O V M M T ** «, t00=0x0095, t01=0x0146}
0x0ea3c…0ea74 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0095, t01=0x017e}
0x0ea74…0eaac Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0096, t01=0x0026}
0x0eaac…0eae4 Head {h00=0x0034, h01=0x0050, text=»** MOVE MM-TABLE ** «, t00=0x0096, t01=0x005e}
0x0eae4…0eb1c Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0096, t01=0x0096}
0x0eb1c…0eb54 Head {h00=0x0034, h01=0x0050, text=»** INPUT :A2=TTAB-ADDRESS ** «, t00=0x0096, t01=0x00ce}
0x0eb54…0eb8c Head {h00=0x0034, h01=0x0050, text=»** MMTAB HOLDS TABLE TO MOVE ** «, t00=0x0096, t01=0x0106}
0x0eb8c…0ebc4 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A2=START OF MM-TABLE IN TTAB ** «, t00=0x0096, t01=0x013e}
0x0ebc4…0ebfc Head {h00=0x0034, h01=0x0050, text=»** A9=TTAB ADDRESS ** «, t00=0x0096, t01=0x0176}
0x0ebfc…0ec34 Head {h00=0x0034, h01=0x0050, text=»** WORKREGS:A1,A3 ** «, t00=0x0097, t01=0x001e}
0x0ec34…0ec6c Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0097, t01=0x0056}
0x0ec6c…0ec74 Head {h00=0x0004, h01=0x0050, t00=0x0097, t01=0x008e}
0x0ec74…0ec88 Head {h00=0x0010, h01=0x0050, text=»MOVMMT EQU *«, t00=0x0097, t01=0x0096}
0x0ec88…0ecb4 Head {h00=0x0028, h01=0x0050, text=» ADKL A2,MMBEG GET TO-TABLE ADDRESS «, t00=0x0097, t01=0x00aa}
0x0ecb4…0ecda Head {h00=0x0022, h01=0x0050, text=» TL MMTAB,A13 LOAD FROM-TABLE «, t00=0x0097, t01=0x00d6}
0x0ecda…0ecee Head {h00=0x0010, h01=0x0050, text=» TSR A2 MOVE«, t00=0x0097, t01=0x00fc}
0x0ecee…0ed00 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0097, t01=0x0110}
0x0ed00…0ed2c Head {h00=0x0028, h01=0x0050, text=» CALL MMENT FILL LAST ENTRY ADDRESS «, t00=0x0097, t01=0x0122}
0x0ed2c…0ed50 Head {h00=0x0020, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE«, t00=0x0097, t01=0x014e}
0x0ed50…0ed60 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0097, t01=0x0172}
0x0ed60…0ed6c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0097, t01=0x0182}
0x0ed6c…0ed82 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0097, t01=0x018e}
0x0ed82…0ed90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x0014}
0x0ed90…0edd4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0098, t01=0x0022}
0x0edd4…0ee18 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0098, t01=0x0066}
0x0ee18…0ee5c Head {h00=0x0040, h01=0x0050, text=»* CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE AREA IN TTAB *«, t00=0x0098, t01=0x00aa}
0x0ee5c…0eea2 Head {h00=0x0042, h01=0x0050, text=»* SAVE REAL TID IN AUXILIARY TABLE FOR DEBUGGER * «, t00=0x0098, t01=0x00ee}
0x0eea2…0eee6 Head {h00=0x0040, h01=0x0050, text=»* ====================================================== *«, t00=0x0098, t01=0x0134}
0x0eee6…0ef2a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0098, t01=0x0178}
0x0ef2a…0ef6e Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0099, t01=0x002c}
0x0ef6e…0efb2 Head {h00=0x0040, h01=0x0050, text=»* REFERENCED IN: SYSLDA PART 2 B. *«, t00=0x0099, t01=0x0070}
0x0efb2…0eff6 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0099, t01=0x00b4}
0x0eff6…0f03a Head {h00=0x0040, h01=0x0050, text=»* ENTRY: A5 - POINTER TO NUMBER OF COPIES *«, t00=0x0099, t01=0x00f8}
0x0f03a…0f07e Head {h00=0x0040, h01=0x0050, text=»* A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB *«, t00=0x0099, t01=0x013c}
0x0f07e…0f0c2 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0099, t01=0x0180}
0x0f0c2…0f106 Head {h00=0x0040, h01=0x0050, text=»* EXIT: *«, t00=0x009a, t01=0x0034}
0x0f106…0f14a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x009a, t01=0x0078}
0x0f14a…0f18e Head {h00=0x0040, h01=0x0050, text=»* WORK REGISTERS: A1,A3,A6,A8 *«, t00=0x009a, t01=0x00bc}
0x0f18e…0f1d2 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x009a, t01=0x0100}
0x0f1d2…0f216 Head {h00=0x0040, h01=0x0050, text=»* SUBROUTINES: GETTTB *«, t00=0x009a, t01=0x0144}
0x0f216…0f25a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x009a, t01=0x0188}
0x0f25a…0f29e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x009b, t01=0x003c}
0x0f29e…0f2b2 Head {h00=0x0010, h01=0x0050, text=»CHTAID EQU *«, t00=0x009b, t01=0x0080}
0x0f2b2…0f2e8 Head {h00=0x0032, h01=0x0050, text=» LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB «, t00=0x009b, t01=0x0094}
0x0f2e8…0f310 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x009b, t01=0x00ca}
0x0f310…0f336 Head {h00=0x0022, h01=0x0050, text=»CHT:10 RF(Z) CHT:90 NO MOORE! «, t00=0x009b, t01=0x00f2}
0x0f336…0f368 Head {h00=0x002e, h01=0x0050, text=» SUKL A8,2 LAST USED ENTRY IN REAL T:ATAB «, t00=0x009b, t01=0x0118}
0x0f368…0f384 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x009b, t01=0x014a}
0x0f384…0f3b0 Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A8 GET POINTER TO REAL T:A «, t00=0x009b, t01=0x0166}
0x0f3b0…0f3d8 (156, 0, 398) Head {h00=0x0024, h01=0x0050, text=» LD A1,T:ATID,A1 GET TCL IN T:A «, t00=0x009c, t01=0x0004}
0x0f3d8…0f40a Head {h00=0x002e, h01=0x0050, text=»CHT:20 CALL GETTTB GET CORRESPONDING TTAB «, t00=0x009c, t01=0x002c}
0x0f40a…0f438 Head {h00=0x002a, h01=0x0050, text=» LD A4,TTBTID,A2 GET REAL TID IN TTAB «, t00=0x009c, t01=0x005e}
0x0f438…0f472 Head {h00=0x0036, h01=0x0050, text=» LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS «, t00=0x009c, t01=0x008c}
0x0f472…0f49e Head {h00=0x0028, h01=0x0050, text=» ST A4,T:ATID,A3 REPLACE TCL IN T:A «, t00=0x009c, t01=0x00c6}
0x0f49e…0f4c8 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A8 GET REAL T:ATAB POINTER«, t00=0x009c, t01=0x00f2}
0x0f4c8…0f502 Head {h00=0x0036, h01=0x0050, text=» SU* A3,T:ATNW,A13 COMPUTE ENTRY IN AUX. TID TABLE«, t00=0x009c, t01=0x011c}
0x0f502…0f532 Head {h00=0x002c, h01=0x0050, text=» STR A4,A3 SAVE TID FOR DEBUGGER PURPOSE«, t00=0x009c, t01=0x0156}
0x0f532…0f53e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009c, t01=0x0186}
0x0f53e…0f55a (157, 0, 400) Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x009d, t01=0x0004}
0x0f55a…0f584 Head {h00=0x0026, h01=0x0050, text=» ELR A1,A8 GET POINTER TO REAL T:A«, t00=0x009d, t01=0x0020}
0x0f584…0f5ac Head {h00=0x0024, h01=0x0050, text=» EL A1,T:ATID,A1 GET TCL IN T:A «, t00=0x009d, t01=0x004a}
0x0f5ac…0f5de Head {h00=0x002e, h01=0x0050, text=»CHT:20 CALL GETTTB GET CORRESPONDING TTAB «, t00=0x009d, t01=0x0072}
0x0f5de…0f60a Head {h00=0x0028, h01=0x0050, text=» LDR A3,A2 GET POINTER TO TTAB ENTRY«, t00=0x009d, t01=0x00a4}
0x0f60a…0f640 Head {h00=0x0032, h01=0x0050, text=» ADKL A3,MMBEG START OF MM-TABLE FOR THIS TTAB«, t00=0x009d, t01=0x00d0}
0x0f640…0f650 Head {h00=0x000c, h01=0x0050, text=» TLR A3 «, t00=0x009d, t01=0x0106}
0x0f650…0f688 Head {h00=0x0034, h01=0x0050, text=» LD A4,TTBTID,A2 GET REAL TID IN TTAB *79-04-11*«, t00=0x009d, t01=0x0116}
0x0f688…0f6c2 Head {h00=0x0036, h01=0x0050, text=» LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS «, t00=0x009d, t01=0x014e}
0x0f6c2…0f6f8 Head {h00=0x0032, h01=0x0050, text=» ES A4,T:ATID,A3 REPLACE TCL IN T:A *79-04-11*«, t00=0x009d, t01=0x0188}
0x0f6f8…0f72c Head {h00=0x0030, h01=0x0050, text=» EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB«, t00=0x009e, t01=0x002e}
0x0f72c…0f754 Head {h00=0x0024, h01=0x0050, text=» NGR A3,A3 NEGATIVE DISPLACEMENT«, t00=0x009e, t01=0x0062}
0x0f754…0f786 Head {h00=0x002e, h01=0x0050, text=» ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE«, t00=0x009e, t01=0x008a}
0x0f786…0f7c2 Head {h00=0x0038, h01=0x0050, text=» ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE *79-04-11* «, t00=0x009e, t01=0x00bc}
0x0f7c2…0f7ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009e, t01=0x00f8}
0x0f7ce…0f7e4 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x009e, t01=0x0104}
0x0f7e4…0f80e Head {h00=0x0026, h01=0x0050, text=» CM TTB:PP,A2 CLEAR TCL SAVE AREA «, t00=0x009e, t01=0x011a}
0x0f80e…0f82e Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 DECREMENT TCL «, t00=0x009e, t01=0x0144}
0x0f82e…0f84a Head {h00=0x0018, h01=0x0050, text=» SUKL A8,2 DECREMENT«, t00=0x009e, t01=0x0164}
0x0f84a…0f876 Head {h00=0x0028, h01=0x0050, text=» SUK A6,1 DECREMENT NUMBER OF COPIES«, t00=0x009e, t01=0x0180}
0x0f876…0f896 Head {h00=0x001c, h01=0x0050, text=» RB(P) CHT:20 NEXT COPY «, t00=0x009f, t01=0x001c}
0x0f896…0f8ac Head {h00=0x0012, h01=0x0050, text=»CHT:90 RTN A14«, t00=0x009f, t01=0x003c}
0x0f8ac…0f8ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009f, t01=0x0052}
0x0f8ba…0f8c2 Head {h00=0x0004, h01=0x0050, t00=0x009f, t01=0x0060}
0x0f8c2…0f8ca Head {h00=0x0004, h01=0x0050, t00=0x009f, t01=0x0068}
0x0f8ca…0f902 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009f, t01=0x0070}
0x0f902…0f93a Head {h00=0x0034, h01=0x0050, text=»*** ***«, t00=0x009f, t01=0x00a8}
0x0f93a…0f972 Head {h00=0x0034, h01=0x0050, text=»** SYSLOAD PART 2.B **«, t00=0x009f, t01=0x00e0}
0x0f972…0f9aa Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x009f, t01=0x0118}
0x0f9aa…0f9e2 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009f, t01=0x0150}
0x0f9e2…0f9ea Head {h00=0x0004, h01=0x0050, t00=0x009f, t01=0x0188}
0x0f9ea…0fa22 Head {h00=0x0034, h01=0x0050, text=»* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO *«, t00=0x009f, t01=0x0190}
0x0fa22…0fa5a Head {h00=0x0034, h01=0x0050, text=»* SHADOW TABLE *«, t00=0x00a0, t01=0x0038}
0x0fa5a…0fa92 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x00a0, t01=0x0070}
0x0fa92…0faca Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00a0, t01=0x00a8}
0x0faca…0fad2 Head {h00=0x0004, h01=0x0050, t00=0x00a0, t01=0x00e0}
0x0fad2…0faea Head {h00=0x0014, h01=0x0050, text=»PART2B EQU *-REL«, t00=0x00a0, t01=0x00e8}
0x0faea…0faf2 Head {h00=0x0004, h01=0x0050, t00=0x00a0, t01=0x0100}
0x0faf2…0fafa Head {h00=0x0004, h01=0x0050, t00=0x00a0, t01=0x0108}
0x0fafa…0fb0e Head {h00=0x0010, h01=0x0050, text=»REALTA EQU *«, t00=0x00a0, t01=0x0110}
0x0fb0e…0fb38 Head {h00=0x0026, h01=0x0050, text=» LD A5,SCTSFA MONITOR END ADDRESS «, t00=0x00a0, t01=0x0124}
0x0fb38…0fb6a Head {h00=0x002e, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB PROTOTYP ADDRESS «, t00=0x00a0, t01=0x014e}
0x0fb6a…0fb98 Head {h00=0x002a, h01=0x0050, text=» LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS «, t00=0x00a0, t01=0x0180}
0x0fb98…0fbaa Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00a1, t01=0x001e}
0x0fbaa…0fbcc Head {h00=0x001e, h01=0x0050, text=» ST A8,SAVE03,A13 SAVE A8 «, t00=0x00a1, t01=0x0030}
0x0fbcc…0fbf6 Head {h00=0x0026, h01=0x0050, text=»SYA310 LD A8,SAVE03,A13 RESTORE A8«, t00=0x00a1, t01=0x0052}
0x0fbf6…0fc08 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x00a1, t01=0x007c}
0x0fc08…0fc26 Head {h00=0x001a, h01=0x0050, text=» CW A8,ENDADD,A13 ALL?«, t00=0x00a1, t01=0x008e}
0x0fc26…0fc40 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA350 YES!«, t00=0x00a1, t01=0x00ac}
0x0fc40…0fc5e Head {h00=0x001a, h01=0x0050, text=» ST A8,SAVE03,A13 SAVE«, t00=0x00a1, t01=0x00c6}
0x0fc5e…0fc86 Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 A5=SHADOW TAB POINTER «, t00=0x00a1, t01=0x00e4}
0x0fc86…0fca2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00a1, t01=0x010c}
0x0fca2…0fcd8 Head {h00=0x0032, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB AND QUEUE «, t00=0x00a1, t01=0x0128}
0x0fcd8…0fcec Head {h00=0x0010, h01=0x0050, text=» CALL QUEJOB«, t00=0x00a1, t01=0x015e}
0x0fcec…0fd2a Head {h00=0x003a, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13)«, t00=0x00a1, t01=0x0172}
0x0fd2a…0fd50 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00a2, t01=0x0020}
0x0fd50…0fd6e Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00a2, t01=0x0046}
0x0fd6e…0fd88 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA320 NO! «, t00=0x00a2, t01=0x0064}
0x0fd88…0fdac Head {h00=0x0020, h01=0x0050, text=» LDR A1,A10 GET T:A-ADDRESS «, t00=0x00a2, t01=0x007e}
0x0fdac…0fde0 Head {h00=0x0030, h01=0x0050, text=» ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE«, t00=0x00a2, t01=0x00a2}
0x0fde0…0fe06 Head {h00=0x0022, h01=0x0050, text=» ST A1,TTB:CB,A2 STORE IN TTAB«, t00=0x00a2, t01=0x00d6}
0x0fe06…0fe30 Head {h00=0x0026, h01=0x0050, text=»SYA320 LDR* A1,A8 GET T:A ADDRESS «, t00=0x00a2, t01=0x00fc}
0x0fe30…0fe58 Head {h00=0x0024, h01=0x0050, text=» STR A1,A7 STORE IN REAL T:ATAB «, t00=0x00a2, t01=0x0126}
0x0fe58…0fe6a Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00a2, t01=0x014e}
0x0fe6a…0fe92 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x00a2, t01=0x0160}
0x0fe92…0fea0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a2, t01=0x0188}
0x0fea0…0feb8 Head {h00=0x0014, h01=0x0050, text=»SYA340 SUK A6,1 «, t00=0x00a3, t01=0x0008}
0x0feb8…0fed8 Head {h00=0x001c, h01=0x0050, text=» RF(P) SYA345 NEXT TASK «, t00=0x00a3, t01=0x0020}
0x0fed8…0ff0e Head {h00=0x0032, h01=0x0050, text=» CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS «, t00=0x00a3, t01=0x0040}
0x0ff0e…0ff30 Head {h00=0x001e, h01=0x0050, text=» RB SYA310 NEXT TASK-CLASS«, t00=0x00a3, t01=0x0076}
0x0ff30…0ff5e Head {h00=0x002a, h01=0x0050, text=»SYA345 LD A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x00a3, t01=0x0098}
0x0ff5e…0ff7c Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x00a3, t01=0x00c6}
0x0ff7c…0ff9c Head {h00=0x001c, h01=0x0050, text=» IM T:ATID,A2 UPDATE TID«, t00=0x00a3, t01=0x00e4}
0x0ff9c…0ffc4 Head {h00=0x0024, h01=0x0050, text=» STR A2,A7 STORE IN REAL T:ATAB «, t00=0x00a3, t01=0x0104}
0x0ffc4…0ffea Head {h00=0x0022, h01=0x0050, text=» LDR A8,A7 CHANGE T:A TO COPY «, t00=0x00a3, t01=0x012c}
0x0ffea…10020 Head {h00=0x0032, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB AND QUEUE «, t00=0x00a3, t01=0x0152}
0x10020…10044 Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a3, t01=0x0188}
0x10044…1007a Head {h00=0x0032, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB «, t00=0x00a4, t01=0x001c}
0x1007a…100a0 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00a4, t01=0x0052}
0x100a0…100be Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00a4, t01=0x0078}
0x100be…100d8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA348 NO! «, t00=0x00a4, t01=0x0096}
0x100d8…100fc Head {h00=0x0020, h01=0x0050, text=» LDR A1,A10 GET T:A-ADDRESS «, t00=0x00a4, t01=0x00b0}
0x100fc…10130 Head {h00=0x0030, h01=0x0050, text=» ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE«, t00=0x00a4, t01=0x00d4}
0x10130…10156 Head {h00=0x0022, h01=0x0050, text=» ST A1,TTB:CB,A2 STORE IN TTAB«, t00=0x00a4, t01=0x0108}
0x10156…10188 Head {h00=0x002e, h01=0x0050, text=»SYA348 ADK A7,2 NEXT ENTRY IN REAL T:ATAB «, t00=0x00a4, t01=0x012e}
0x10188…101be Head {h00=0x0032, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S AND RESERVE FOR SWB'S «, t00=0x00a4, t01=0x0160}
0x101be…101e4 Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x00a5, t01=0x0008}
0x101e4…101f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a5, t01=0x002e}
0x101f0…1020c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00a5, t01=0x003a}
0x1020c…1023a Head {h00=0x002a, h01=0x0050, text=»* GET ACTUAL MM-TABLE ADDRESS AND LOAD«, t00=0x00a5, t01=0x0056}
0x1023a…10242 Head {h00=0x0004, h01=0x0050, t00=0x00a5, t01=0x0084}
0x10242…10254 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x00a5, t01=0x008c}
0x10254…10282 Head {h00=0x002a, h01=0x0050, text=» AD* A1,SCTSFA ADD SHADOW-TABLE LENGTH«, t00=0x00a5, t01=0x009e}
0x10282…102aa Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET MM-TABLE ADDRESS«, t00=0x00a5, t01=0x00cc}
0x102aa…102be Head {h00=0x0010, h01=0x0050, text=» TLR A1 LOAD«, t00=0x00a5, t01=0x00f4}
0x102be…102e4 Head {h00=0x0022, h01=0x0050, text=» ST A1,MMFROM,A13 SAVE ADDRESS«, t00=0x00a5, t01=0x0108}
0x102e4…10310 Head {h00=0x0028, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB «, t00=0x00a5, t01=0x012e}
0x10310…1034e Head {h00=0x003a, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13)«, t00=0x00a5, t01=0x015a}
0x1034e…10372 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A10 GET T:A-ADDRESS «, t00=0x00a6, t01=0x0008}
0x10372…103a6 Head {h00=0x0030, h01=0x0050, text=» ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE«, t00=0x00a6, t01=0x002c}
0x103a6…103cc Head {h00=0x0022, h01=0x0050, text=» ST A1,TTB:CB,A2 STORE IN TTAB«, t00=0x00a6, t01=0x0060}
0x103cc…10400 Head {h00=0x0030, h01=0x0050, text=» LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST ENTRY «, t00=0x00a6, t01=0x0086}
0x10400…10424 Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a6, t01=0x00ba}
0x10424…10452 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MMTAB GET WORK TABLE ADDRESS «, t00=0x00a6, t01=0x00de}
0x10452…10466 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x00a6, t01=0x010c}
0x10466…1048c Head {h00=0x0022, h01=0x0050, text=» TSR A2 SAVE CLASS-DATA TABLE «, t00=0x00a6, t01=0x0120}
0x1048c…104bc Head {h00=0x002c, h01=0x0050, text=»* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE «, t00=0x00a6, t01=0x0146}
0x104bc…104c4 Head {h00=0x0004, h01=0x0050, t00=0x00a6, t01=0x0176}
0x104c4…104e4 Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 START OF TABLE«, t00=0x00a6, t01=0x017e}
0x104e4…104fc Head {h00=0x0014, h01=0x0050, text=» LDKL A12,/FC00 «, t00=0x00a7, t01=0x000e}
0x104fc…1051e Head {h00=0x001e, h01=0x0050, text=»SYA320 SUK A1,2 NEXT ENTRY«, t00=0x00a7, t01=0x0026}
0x1051e…10536 Head {h00=0x0014, h01=0x0050, text=» CWR A1,A2 ALL? «, t00=0x00a7, t01=0x0048}
0x10536…10550 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA330 YES!«, t00=0x00a7, t01=0x0060}
0x10550…10570 Head {h00=0x001c, h01=0x0050, text=» STR A12,A1 REMOVE ENTRY«, t00=0x00a7, t01=0x007a}
0x10570…10582 Head {h00=0x000e, h01=0x0050, text=» RB SYA320«, t00=0x00a7, t01=0x009a}
0x10582…10596 Head {h00=0x0010, h01=0x0050, text=»SYA330 EQU *«, t00=0x00a7, t01=0x00ac}
0x10596…105b8 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A ADDRESS«, t00=0x00a7, t01=0x00c0}
0x105b8…105e0 Head {h00=0x0024, h01=0x0050, text=» ESR A1,A7 STORE IN REAL T:ATAB «, t00=0x00a7, t01=0x00e2}
0x105e0…10608 Head {h00=0x0024, h01=0x0050, text=» EL A12,T:DAD,A1 GET T:D ADDRESS«, t00=0x00a7, t01=0x010a}
0x10608…10628 Head {h00=0x001c, h01=0x0050, text=» EL A1,T:ATID,A1 GET TID«, t00=0x00a7, t01=0x0132}
0x10628…10654 Head {h00=0x0028, h01=0x0050, text=» ADK A7,2 NEXT ENTRY IN REAL T:ATAB «, t00=0x00a7, t01=0x0152}
0x10654…1067c Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x00a7, t01=0x017e}
0x1067c…10694 Head {h00=0x0014, h01=0x0050, text=»SYA340 SUK A6,1 «, t00=0x00a8, t01=0x0016}
0x10694…106b4 Head {h00=0x001c, h01=0x0050, text=» RF(P) SYA345 NEXT TASK «, t00=0x00a8, t01=0x002e}
0x106b4…106ea Head {h00=0x0032, h01=0x0050, text=» CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS «, t00=0x00a8, t01=0x004e}
0x106ea…1070c Head {h00=0x001e, h01=0x0050, text=» RB SYA310 NEXT TASK-CLASS«, t00=0x00a8, t01=0x0084}
0x1070c…10730 Head {h00=0x0020, h01=0x0050, text=»SYA345 ADK A1,1 NEXT T:A ID «, t00=0x00a8, t01=0x00a6}
0x10730…1075c Head {h00=0x0028, h01=0x0050, text=» CALL GETTTB FIND CORRESPONDING TTAB«, t00=0x00a8, t01=0x00ca}
0x1075c…10780 Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a8, t01=0x00f6}
0x10780…107aa Head {h00=0x0026, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE TO TTAB«, t00=0x00a8, t01=0x011a}
0x107aa…107c8 Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x00a8, t01=0x0144}
0x107c8…107f0 Head {h00=0x0024, h01=0x0050, text=» ESR A2,A7 STORE IN REAL T:ATAB «, t00=0x00a8, t01=0x0162}
0x107f0…10834 Head {h00=0x0040, h01=0x0050, text=» ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS«, t00=0x00a8, t01=0x018a}
0x10834…10856 Head {h00=0x001e, h01=0x0050, text=» LDR A8,A2 GET T:A-ADDRESS«, t00=0x00a9, t01=0x003e}
0x10856…1088a Head {h00=0x0030, h01=0x0050, text=» ADKL A8,CSB ADDRESS TO CURRENT SEGMENT BASE«, t00=0x00a9, t01=0x0060}
0x1088a…108b0 Head {h00=0x0022, h01=0x0050, text=» ST A8,TTB:CB,A9 STORE IN TTAB«, t00=0x00a9, t01=0x0094}
0x108b0…108d6 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A7 CHANGE T:A TO COPY «, t00=0x00a9, t01=0x00ba}
0x108d6…10906 Head {h00=0x002c, h01=0x0050, text=» ADK A7,2 NEXT FREE WORD IN REAL T:ATAB «, t00=0x00a9, t01=0x00e0}
0x10906…10920 Head {h00=0x0016, h01=0x0050, text=» A2=NEW ADDRESS «, t00=0x00a9, t01=0x0110}
0x10920…10954 Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x00a9, t01=0x012a}
0x10954…10978 Head {h00=0x0020, h01=0x0050, text=» LD A1,MMTO,A13 GET TO-TABLE«, t00=0x00a9, t01=0x015e}
0x10978…109aa Head {h00=0x002e, h01=0x0050, text=» ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE«, t00=0x00a9, t01=0x0182}
0x109aa…109ba Head {h00=0x000c, h01=0x0050, text=» TLR A1 «, t00=0x00aa, t01=0x0024}
0x109ba…109e0 Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x00aa, t01=0x0034}
0x109e0…10a08 Head {h00=0x0024, h01=0x0050, text=» LD A1,TTAB,A13 GET TTAB-ADDRESS«, t00=0x00aa, t01=0x005a}
0x10a08…10a36 Head {h00=0x002a, h01=0x0050, text=» CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB «, t00=0x00aa, t01=0x0082}
0x10a36…10a60 Head {h00=0x0026, h01=0x0050, text=» ELR A10,A8 GET T:A-ADDRESS (NEW) «, t00=0x00aa, t01=0x00b0}
0x10a60…10a82 Head {h00=0x001e, h01=0x0050, text=» EL A1,T:ATID,A10 GET TID «, t00=0x00aa, t01=0x00da}
0x10a82…10a9e Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 UPDATE TID«, t00=0x00aa, t01=0x00fc}
0x10a9e…10ac6 Head {h00=0x0024, h01=0x0050, text=» ES A1,T:ATID,A10 RESTORE IN T:A«, t00=0x00aa, t01=0x0118}
0x10ac6…10ad2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00aa, t01=0x0140}
0x10ad2…10ae8 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00aa, t01=0x014c}
0x10ae8…10afa Head {h00=0x000e, h01=0x0050, text=» RB SYA340«, t00=0x00aa, t01=0x0162}
0x10afa…10b06 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00aa, t01=0x0174}
0x10b06…10b14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00aa, t01=0x0180}
0x10b14…10b2c Head {h00=0x0014, h01=0x0050, text=»FINISH EQU *-REL«, t00=0x00aa, t01=0x018e}
0x10b2c…10b34 Head {h00=0x0004, h01=0x0050, t00=0x00ab, t01=0x0016}
0x10b34…10b58 Head {h00=0x0020, h01=0x0050, text=»* ADJUST START OF FREE AREA «, t00=0x00ab, t01=0x001e}
0x10b58…10b60 Head {h00=0x0004, h01=0x0050, t00=0x00ab, t01=0x0042}
0x10b60…10b74 Head {h00=0x0010, h01=0x0050, text=»SYA350 EQU *«, t00=0x00ab, t01=0x004a}
0x10b74…10b8a Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ab, t01=0x005e}
0x10b8a…10bb8 Head {h00=0x002a, h01=0x0050, text=» LD A1,LSTADR,A13 GET END OF FREE AREA«, t00=0x00ab, t01=0x0074}
0x10bb8…10bea Head {h00=0x002e, h01=0x0050, text=» LD A14,SAVE13,A13 GET APPL. REL. BASE =1 «, t00=0x00ab, t01=0x00a2}
0x10bea…10bf6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x00d4}
0x10bf6…10c12 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ab, t01=0x00e0}
0x10c12…10c28 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFF «, t00=0x00ab, t01=0x00fc}
0x10c28…10c42 Head {h00=0x0016, h01=0x0050, text=» LD A2,FYSPAG,A13 «, t00=0x00ab, t01=0x0112}
0x10c42…10c54 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x00ab, t01=0x012c}
0x10c54…10c66 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x00ab, t01=0x013e}
0x10c66…10c72 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x0150}
0x10c72…10c88 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x00ab, t01=0x015c}
0x10c88…10c9e Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTLAC «, t00=0x00ab, t01=0x0172}
0x10c9e…10caa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x0188}
0x10caa…10cc6 (172, 0, 400) Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x00ac, t01=0x0004}
0x10cc6…10cdc Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/03FF«, t00=0x00ac, t01=0x0020}
0x10cdc…10cee Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x00ac, t01=0x0036}
0x10cee…10cfa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x0048}
0x10cfa…10d12 Head {h00=0x0014, h01=0x0050, text=» ST A1,SCTEFA+2 «, t00=0x00ac, t01=0x0054}
0x10d12…10d28 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00ac, t01=0x006c}
0x10d28…10d42 Head {h00=0x0016, h01=0x0050, text=» LD A1,FYSPAG,A13 «, t00=0x00ac, t01=0x0082}
0x10d42…10d5e Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x00ac, t01=0x009c}
0x10d5e…10d74 Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTLAC «, t00=0x00ac, t01=0x00b8}
0x10d74…10d80 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x00ce}
0x10d80…10d9c Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CREDIT=0«, t00=0x00ac, t01=0x00da}
0x10d9c…10dae Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00ac, t01=0x00f6}
0x10dae…10dba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x0108}
0x10dba…10dcc Head {h00=0x000e, h01=0x0050, text=» SRL A1,14«, t00=0x00ac, t01=0x0114}
0x10dcc…10de2 Head {h00=0x0012, h01=0x0050, text=» ST A1,SCTEFA «, t00=0x00ac, t01=0x0126}
0x10de2…10dfe Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ac, t01=0x013c}
0x10dfe…10e2a Head {h00=0x0028, h01=0x0050, text=» LD A1,FSTADR,A13 START OF FREE AREA«, t00=0x00ac, t01=0x0158}
0x10e2a…10e40 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA355«, t00=0x00ac, t01=0x0184}
0x10e40…10e4c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ad, t01=0x000a}
0x10e4c…10e62 Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTSFA «, t00=0x00ad, t01=0x0016}
0x10e62…10e80 Head {h00=0x001a, h01=0x0050, text=»SYA355 ST A1,SCTSFA+2 «, t00=0x00ad, t01=0x002c}
0x10e80…10e92 Head {h00=0x000e, h01=0x0050, text=» CM SCTSFA«, t00=0x00ad, t01=0x004a}
0x10e92…10ea8 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00ad, t01=0x005c}
0x10ea8…10eb6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ad, t01=0x0072}
0x10eb6…10efe Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x00ad, t01=0x0080}
0x10efe…10f46 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ad, t01=0x00c8}
0x10f46…10f8e Head {h00=0x0044, h01=0x003f, text=»* PAGGEN - BUILD PAGE TABLE * «, t00=0x00ad, t01=0x0110}
0x10f8e…10fd6 Head {h00=0x0044, h01=0x003f, text=»* ========================= * «, t00=0x00ad, t01=0x0158}
0x10fd6…1101e Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ae, t01=0x0010}
0x1101e…11066 Head {h00=0x0044, h01=0x003f, text=»* REFERENCED IN: SYSLDA * «, t00=0x00ae, t01=0x0058}
0x11066…110ae Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ae, t01=0x00a0}
0x110ae…110f6 Head {h00=0x0044, h01=0x003f, text=»* ENTRY: SCTSFA - START OF FREE AREA * «, t00=0x00ae, t01=0x00e8}
0x110f6…1113e Head {h00=0x0044, h01=0x003f, text=»* SCTEFA - END OF FREE AREA * «, t00=0x00ae, t01=0x0130}
0x1113e…11186 Head {h00=0x0044, h01=0x0050, text=»* SAVE29 - NUMBER OF SEGMENTS * «, t00=0x00ae, t01=0x0178}
0x11186…111ce Head {h00=0x0044, h01=0x003f, text=»* SCTNOP - NUMBER OF PAGES * «, t00=0x00af, t01=0x0030}
0x111ce…11216 Head {h00=0x0044, h01=0x003f, text=»* SCTPSZ - PAGE SIZE * «, t00=0x00af, t01=0x0078}
0x11216…1125e Head {h00=0x0044, h01=0x003f, text=»* SAVE22 - PHYSICAL ADDRESS TO FIRST PAGE (16 BITS) * «, t00=0x00af, t01=0x00c0}
0x1125e…112a6 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00af, t01=0x0108}
0x112a6…112ee Head {h00=0x0044, h01=0x003f, text=»* EXIT: PAGQUE - POINTER TO FIRST FREE PAGE BLOCK * «, t00=0x00af, t01=0x0150}
0x112ee…11336 Head {h00=0x0044, h01=0x003f, text=»* PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * «, t00=0x00b0, t01=0x0008}
0x11336…1137e Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00b0, t01=0x0050}
0x1137e…113c6 Head {h00=0x0044, h01=0x003f, text=»* WORK REGISTERS: A1-A12 * «, t00=0x00b0, t01=0x0098}
0x113c6…1140e Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00b0, t01=0x00e0}
0x1140e…11456 Head {h00=0x0044, h01=0x003f, text=»* SUBROUTINES: * «, t00=0x00b0, t01=0x0128}
0x11456…1149e Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00b0, t01=0x0170}
0x1149e…114e6 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00b1, t01=0x0028}
0x114e6…1152e Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x00b1, t01=0x0070}
0x1152e…11542 Head {h00=0x0010, h01=0x000c, text=»PAGGEN EQU *«, t00=0x00b1, t01=0x00b8}
0x11542…11566 Head {h00=0x0020, h01=0x0050, text=» LDKL A2,PAGEX EXIT ADDRESS «, t00=0x00b1, t01=0x00cc}
0x11566…11582 Head {h00=0x0018, h01=0x0050, text=» ADR A2,A13 RELOCATE«, t00=0x00b1, t01=0x00f0}
0x11582…115b8 Head {h00=0x0032, h01=0x0050, text=» LD A1,SAVE29,A13 ANY SEGMENTS IN APPLICATION?«, t00=0x00b1, t01=0x010c}
0x115b8…115ce Head {h00=0x0012, h01=0x0050, text=» ABR(Z) A2 NO!«, t00=0x00b1, t01=0x0142}
0x115ce…115f4 Head {h00=0x0022, h01=0x001d, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00b1, t01=0x0158}
0x115f4…1160e Head {h00=0x0016, h01=0x0011, text=» ANK A1,3 PAGING? «, t00=0x00b1, t01=0x017e}
0x1160e…11624 Head {h00=0x0012, h01=0x0050, text=» ABR(Z) A2 NO!«, t00=0x00b2, t01=0x0008}
0x11624…1162e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b2, t01=0x001e}
0x1162e…1167e Head {h00=0x004c, h01=0x0047, text=»* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS «, t00=0x00b2, t01=0x0028}
0x1167e…11688 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b2, t01=0x0078}
0x11688…116b8 Head {h00=0x002c, h01=0x0027, text=» LD A11,SCTSFA+2 GET START OF FREE AREA «, t00=0x00b2, t01=0x0082}
0x116b8…116de Head {h00=0x0022, h01=0x001e, text=» ST A11,SCTPAG STORE IN SYSTAB«, t00=0x00b2, t01=0x00b2}
0x116de…11706 Head {h00=0x0024, h01=0x001f, text=» LDR A8,A13 GET RELOCATION BASE «, t00=0x00b2, t01=0x00d8}
0x11706…11736 Head {h00=0x002c, h01=0x0050, text=» ADKL A8,PAG:60-REL LIMIT FOR PAGE TABLE«, t00=0x00b2, t01=0x0100}
0x11736…1175a Head {h00=0x0020, h01=0x001c, text=» LDK A7,0 RESET PAGE COUNTER«, t00=0x00b2, t01=0x0130}
0x1175a…1176e Head {h00=0x0010, h01=0x000c, text=»PAG:10 EQU *«, t00=0x00b2, t01=0x0154}
0x1176e…1179e Head {h00=0x002c, h01=0x0027, text=» CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? «, t00=0x00b2, t01=0x0168}
0x1179e…117b8 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:30 YES!«, t00=0x00b3, t01=0x0008}
0x117b8…117e0 Head {h00=0x0024, h01=0x001f, text=» LDK A1,0 RESET NUMBER OF WORDS «, t00=0x00b3, t01=0x0022}
0x117e0…117f4 Head {h00=0x0010, h01=0x000c, text=»PAG:20 EQU *«, t00=0x00b3, t01=0x004a}
0x117f4…1181a Head {h00=0x0022, h01=0x001d, text=» ADKL A11,2 INCLUDE NEXT WORD «, t00=0x00b3, t01=0x005e}
0x1181a…1184e Head {h00=0x0030, h01=0x002b, text=» RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) «, t00=0x00b3, t01=0x0084}
0x1184e…11876 Head {h00=0x0024, h01=0x0020, text=» ADK A1,1 INCREMENT WORD COUNTER«, t00=0x00b3, t01=0x00b8}
0x11876…1189a Head {h00=0x0020, h01=0x001b, text=» CWK A1,4 4 WORDS RESERVED? «, t00=0x00b3, t01=0x00e0}
0x1189a…118b4 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:25 YES!«, t00=0x00b3, t01=0x0104}
0x118b4…118e0 Head {h00=0x0028, h01=0x0023, text=» CWR A11,A8 CHECK PROGRAM OVERWRITE «, t00=0x00b3, t01=0x011e}
0x118e0…11906 Head {h00=0x0022, h01=0x001e, text=» RF(E) MEMOFL MEMORY OVERFLOW!«, t00=0x00b3, t01=0x014a}
0x11906…11918 Head {h00=0x000e, h01=0x000a, text=» RB PAG:20«, t00=0x00b3, t01=0x0170}
0x11918…1194c Head {h00=0x0030, h01=0x002c, text=»PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER«, t00=0x00b3, t01=0x0182}
0x1194c…1195e Head {h00=0x000e, h01=0x000a, text=» RB PAG:10«, t00=0x00b4, t01=0x0026}
0x1195e…11972 Head {h00=0x0010, h01=0x000c, text=»PAG:30 EQU *«, t00=0x00b4, t01=0x0038}
0x11972…1197c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b4, t01=0x004c}
0x1197c…119b4 Head {h00=0x0034, h01=0x002f, text=»* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY «, t00=0x00b4, t01=0x0056}
0x119b4…119ee Head {h00=0x0036, h01=0x0032, text=»* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER«, t00=0x00b4, t01=0x008e}
0x119ee…11a08 Head {h00=0x0016, h01=0x0012, text=»* OF PAGE BLOCKS.«, t00=0x00b4, t01=0x00c8}
0x11a08…11a12 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b4, t01=0x00e2}
0x11a12…11a1e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b4, t01=0x00ec}
0x11a1e…11a3a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00b4, t01=0x00f8}
0x11a3a…11a7a Head {h00=0x003c, h01=0x0037, text=» LD A1,SCTEFA GET TWO MOST SIGN BITS OF 18-BITS ADDRESS «, t00=0x00b4, t01=0x0114}
0x11a7a…11ab2 Head {h00=0x0034, h01=0x0050, text=» SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS«, t00=0x00b4, t01=0x0154}
0x11ab2…11aea Head {h00=0x0034, h01=0x002f, text=» LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS «, t00=0x00b4, t01=0x018c}
0x11aea…11b14 Head {h00=0x0026, h01=0x0021, text=» SRL A2,2 SKIP TWO RIGHTMOST BITS «, t00=0x00b5, t01=0x0034}
0x11b14…11b44 Head {h00=0x002c, h01=0x0050, text=» ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS«, t00=0x00b5, t01=0x005e}
0x11b44…11b5c Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x00b5, t01=0x008e}
0x11b5c…11b80 Head {h00=0x0020, h01=0x001b, text=» LD A2,SCTPSZ GET PAGE SIZE «, t00=0x00b5, t01=0x00a6}
0x11b80…11baa Head {h00=0x0026, h01=0x0021, text=» SRL A2,2 SKIP TWO RIGHTMOST BITS «, t00=0x00b5, t01=0x00ca}
0x11baa…11bc2 Head {h00=0x0014, h01=0x0010, text=» LDR A10,A2 SAVE«, t00=0x00b5, t01=0x00f4}
0x11bc2…11bf6 Head {h00=0x0030, h01=0x002c, text=» ANKL A1,/FC00 MAKE EVEN 4K-MULTIPLE ADDRESS«, t00=0x00b5, t01=0x010c}
0x11bf6…11c22 Head {h00=0x0028, h01=0x0023, text=» ANKL A2,/0300 MODIFY FOR PAGE SIZE «, t00=0x00b5, t01=0x0140}
0x11c22…11c44 Head {h00=0x001e, h01=0x0050, text=» ANR A2,A3 EVEN 1-KB LIMIT«, t00=0x00b5, t01=0x016c}
0x11c44…11c70 Head {h00=0x0028, h01=0x0024, text=» ORR A1,A2 MODIFY PAGE ADDRESS LIMIT«, t00=0x00b5, t01=0x018e}
0x11c70…11c7c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b6, t01=0x002a}
0x11c7c…11c98 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00b6, t01=0x0036}
0x11c98…11cc0 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTEFA+2 END OF FREE AREA«, t00=0x00b6, t01=0x0052}
0x11cc0…11ce0 Head {h00=0x001c, h01=0x0050, text=» LD A10,SCTPSZ PAGE SIZE«, t00=0x00b6, t01=0x007a}
0x11ce0…11cec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b6, t01=0x009a}
0x11cec…11d02 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00b6, t01=0x00a6}
0x11d02…11d26 Head {h00=0x0020, h01=0x001c, text=» LDR A9,A1 INIT PAGE ADDRESS«, t00=0x00b6, t01=0x00bc}
0x11d26…11d3e Head {h00=0x0014, h01=0x000f, text=» LDR A6,A9 SAVE «, t00=0x00b6, t01=0x00e0}
0x11d3e…11d52 Head {h00=0x0010, h01=0x0050, text=»PAG:31 EQU *«, t00=0x00b6, t01=0x00f8}
0x11d52…11d66 Head {h00=0x0010, h01=0x0050, text=» TNM A6,A10 «, t00=0x00b6, t01=0x010c}
0x11d66…11d7c Head {h00=0x0012, h01=0x0050, text=» RF(NN) PAG:32«, t00=0x00b6, t01=0x0120}
0x11d7c…11d90 Head {h00=0x0010, h01=0x0050, text=» CWR A10,A6 «, t00=0x00b6, t01=0x0136}
0x11d90…11da2 Head {h00=0x000e, h01=0x0050, text=» RF PAG:33«, t00=0x00b6, t01=0x014a}
0x11da2…11dbc Head {h00=0x0016, h01=0x0050, text=»PAG:32 CWR A6,A10 «, t00=0x00b6, t01=0x015c}
0x11dbc…11dd8 Head {h00=0x0018, h01=0x0050, text=»PAG:33 RF(NG) PAG:40«, t00=0x00b6, t01=0x0176}
0x11dd8…11e08 (183, 0, 400) Head {h00=0x002c, h01=0x0050, text=» SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE«, t00=0x00b7, t01=0x0004}
0x11e08…11e2c Head {h00=0x0020, h01=0x001b, text=» LDR A1,A6 GET PAGE ADDRESS «, t00=0x00b7, t01=0x0034}
0x11e2c…11e48 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00b7, t01=0x0058}
0x11e48…11e76 Head {h00=0x002a, h01=0x0026, text=» ANKL A1,/C000 ADDRESS IN SYSTEM AREA?«, t00=0x00b7, t01=0x0074}
0x11e76…11e92 Head {h00=0x0018, h01=0x0013, text=» RF(NZ) PAG:34 NO! «, t00=0x00b7, t01=0x00a2}
0x11e92…11ec4 Head {h00=0x002e, h01=0x002a, text=» LDR A1,A6 PHYSICAL ADDRESS IN SYSTEM AREA«, t00=0x00b7, t01=0x00be}
0x11ec4…11ef6 Head {h00=0x002e, h01=0x0029, text=» SLL A1,2 ABSOLUTE ADDRESS IN SYSTEM AREA «, t00=0x00b7, t01=0x00f0}
0x11ef6…11f08 Head {h00=0x000e, h01=0x000a, text=» RF PAG:36«, t00=0x00b7, t01=0x0122}
0x11f08…11f30 Head {h00=0x0024, h01=0x0020, text=»PAG:34 LDK A1,0 END OF FREE AREA«, t00=0x00b7, t01=0x0134}
0x11f30…11f3c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b7, t01=0x015c}
0x11f3c…11f52 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00b7, t01=0x0168}
0x11f52…11f7c Head {h00=0x0026, h01=0x0022, text=»PAG:36 LDK A2,0 RESET WORD COUNTER«, t00=0x00b7, t01=0x017e}
0x11f7c…11faa Head {h00=0x002a, h01=0x0025, text=»PAG:38 ADKL A11,2 RESERV ANOTHER WORD «, t00=0x00b8, t01=0x0018}
0x11faa…11fcc Head {h00=0x001e, h01=0x0019, text=» RF(Z) PAG:40 64 KB LIMIT «, t00=0x00b8, t01=0x0046}
0x11fcc…11ff4 Head {h00=0x0024, h01=0x0020, text=» ADK A2,1 INCREMENT WORD COUNTER«, t00=0x00b8, t01=0x0068}
0x11ff4…12016 Head {h00=0x001e, h01=0x0019, text=» CWK A2,4 BLOCK COMPLETE? «, t00=0x00b8, t01=0x0090}
0x12016…12030 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:45 YES!«, t00=0x00b8, t01=0x00b2}
0x12030…1205a Head {h00=0x0026, h01=0x0050, text=» LDR A1,A1 ADDRESS IN SYSTEM AREA?«, t00=0x00b8, t01=0x00cc}
0x1205a…12074 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PAG:39 NO! «, t00=0x00b8, t01=0x00f6}
0x12074…1209a Head {h00=0x0022, h01=0x0050, text=» TNM A11,A1 32-KB LIMIT CHECK «, t00=0x00b8, t01=0x0110}
0x1209a…120b0 Head {h00=0x0012, h01=0x0050, text=» RF(NN) PAG382«, t00=0x00b8, t01=0x0136}
0x120b0…120c4 Head {h00=0x0010, h01=0x0050, text=» CWR A11,A1 «, t00=0x00b8, t01=0x014c}
0x120c4…120d6 Head {h00=0x000e, h01=0x0050, text=» RF PAG384«, t00=0x00b8, t01=0x0160}
0x120d6…120f0 Head {h00=0x0016, h01=0x0050, text=»PAG382 CWR A1,A11 «, t00=0x00b8, t01=0x0172}
0x120f0…12128 Head {h00=0x0034, h01=0x0050, text=»PAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! «, t00=0x00b8, t01=0x018c}
0x12128…1213c Head {h00=0x0010, h01=0x0050, text=»PAG:39 EQU *«, t00=0x00b9, t01=0x0034}
0x1213c…12162 Head {h00=0x0022, h01=0x001d, text=» CWR A11,A8 PROGRAM OVERWRITE «, t00=0x00b9, t01=0x0048}
0x12162…1217c Head {h00=0x0016, h01=0x0012, text=» RB(NE) PAG:38 NO!«, t00=0x00b9, t01=0x006e}
0x1217c…12190 Head {h00=0x0010, h01=0x000c, text=»PAG:40 EQU *«, t00=0x00b9, t01=0x0088}
0x12190…121ca Head {h00=0x0036, h01=0x0031, text=» CW A7,SCTNOP ONLY PAGES FOR CORE RESIDENT PAGES? «, t00=0x00b9, t01=0x009c}
0x121ca…121e4 Head {h00=0x0016, h01=0x0011, text=» RF(G) PAG:50 NO! «, t00=0x00b9, t01=0x00d6}
0x121e4…1222a Head {h00=0x0042, h01=0x0050, text=» CW A7,SAVE29,A13 ONLY CORE RESIDENT SEGMENTS IN APPLICATION? «, t00=0x00b9, t01=0x00f0}
0x1222a…12244 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:50 YES!«, t00=0x00b9, t01=0x0136}
0x12244…12260 Head {h00=0x0018, h01=0x0013, text=»MEMOFL LDKL A1,LMP3 «, t00=0x00b9, t01=0x0150}
0x12260…1228e Head {h00=0x002a, h01=0x0026, text=» OTR A1,0,SOP INDICATE MEMORY OVERFLOW«, t00=0x00b9, t01=0x016c}
0x1228e…122a8 Head {h00=0x0016, h01=0x0012, text=» HLT HALT PROGRAM«, t00=0x00ba, t01=0x000a}
0x122a8…122dc Head {h00=0x0030, h01=0x0050, text=»PAG:45 CW A7,SAVE29,A13 MOORE PAGES WANTED? «, t00=0x00ba, t01=0x0024}
0x122dc…122f6 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:50 YES!«, t00=0x00ba, t01=0x0058}
0x122f6…1231e Head {h00=0x0024, h01=0x0020, text=» ADK A7,1 INCREMENT PAGE COUNTER«, t00=0x00ba, t01=0x0072}
0x1231e…12342 Head {h00=0x0020, h01=0x001c, text=» LDR A9,A6 SAVE PAGE ADDRESS«, t00=0x00ba, t01=0x009a}
0x12342…12354 Head {h00=0x000e, h01=0x0050, text=» RB PAG:31«, t00=0x00ba, t01=0x00be}
0x12354…12368 Head {h00=0x0010, h01=0x000c, text=»PAG:50 EQU *«, t00=0x00ba, t01=0x00d0}
0x12368…1238e Head {h00=0x0022, h01=0x001e, text=» ADKL A11,2 START OF FREE AREA«, t00=0x00ba, t01=0x00e4}
0x1238e…123ac Head {h00=0x001a, h01=0x0015, text=» ST A11,SCTSFA+2 SAVE «, t00=0x00ba, t01=0x010a}
0x123ac…123d6 Head {h00=0x0026, h01=0x0022, text=» ST A7,SCTNOP SAVE NUMBER OF PAGES«, t00=0x00ba, t01=0x0128}
0x123d6…12402 Head {h00=0x0028, h01=0x0024, text=» LDR A1,A9 GET ADDRESS TO FIRST PAGE«, t00=0x00ba, t01=0x0152}
0x12402…1241a Head {h00=0x0014, h01=0x000f, text=» LDR A2,A1 SAVE «, t00=0x00ba, t01=0x017e}
0x1241a…12426 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bb, t01=0x0008}
0x12426…12442 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00bb, t01=0x0014}
0x12442…12470 Head {h00=0x002a, h01=0x0050, text=» SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS «, t00=0x00bb, t01=0x0030}
0x12470…1248a Head {h00=0x0016, h01=0x0012, text=» ST A1,SCTEFA SAVE«, t00=0x00bb, t01=0x005e}
0x1248a…124bc Head {h00=0x002e, h01=0x002a, text=» SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS«, t00=0x00bb, t01=0x0078}
0x124bc…124c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bb, t01=0x00aa}
0x124c8…124de Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00bb, t01=0x00b6}
0x124de…124fa Head {h00=0x0018, h01=0x0014, text=» ST A2,SCTEFA+2 SAVE«, t00=0x00bb, t01=0x00cc}
0x124fa…12504 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00bb, t01=0x00e8}
0x12504…12542 Head {h00=0x003a, h01=0x0035, text=»* INITIATE PAGE BLOCK FOR CORE RESIDENT SEGMENTS AND «, t00=0x00bb, t01=0x00f2}
0x12542…12578 Head {h00=0x0032, h01=0x002d, text=»* STORE PAGE BLOCK ADDRESS IN SEGMENT BLOCKS «, t00=0x00bb, t01=0x0130}
0x12578…12582 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00bb, t01=0x0166}
0x12582…12594 Head {h00=0x000e, h01=0x0009, text=» LDK A1,0 «, t00=0x00bb, t01=0x0170}
0x12594…125d8 Head {h00=0x0040, h01=0x003b, text=» LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. «, t00=0x00bb, t01=0x0182}
0x125d8…1260a Head {h00=0x002e, h01=0x0050, text=» LD A11,SAVE30,A13 START OF SEGMENT TABLE «, t00=0x00bc, t01=0x0036}
0x1260a…1263a Head {h00=0x002c, h01=0x0028, text=» LDK A4,0 RESET RESIDENT SEGMENT COUNTER«, t00=0x00bc, t01=0x0068}
0x1263a…12664 Head {h00=0x0026, h01=0x0022, text=» LD A12,SCTPAG START OF PAGE TABLE«, t00=0x00bc, t01=0x0098}
0x12664…12690 Head {h00=0x0028, h01=0x0050, text=» LD A6,SAVE29,A13 NUMBER OF SEGMENTS«, t00=0x00bc, t01=0x00c2}
0x12690…126a4 Head {h00=0x0010, h01=0x0050, text=»PAG:60 EQU *«, t00=0x00bc, t01=0x00ee}
0x126a4…126ca Head {h00=0x0022, h01=0x001e, text=» ADKL A11,8 NEXT SEGMENT BLOCK«, t00=0x00bc, t01=0x0102}
0x126ca…126ea Head {h00=0x001c, h01=0x0017, text=» LDR* A2,A11 GET STATUS «, t00=0x00bc, t01=0x0128}
0x126ea…1271c Head {h00=0x002e, h01=0x0029, text=» RF(NN) PAG:65 SEGMENT NOT LOADED IN CORE «, t00=0x00bc, t01=0x0148}
0x1271c…1274a Head {h00=0x002a, h01=0x0026, text=» ST A12,6,A11 STORE PAGE BLOCK ADDRESS«, t00=0x00bc, t01=0x017a}
0x1274a…1277a Head {h00=0x002c, h01=0x0027, text=» STR A1,A12 RESET QUEUE POINTER FORWARD «, t00=0x00bd, t01=0x0018}
0x1277a…127ac Head {h00=0x002e, h01=0x0029, text=» ST A1,2,A12 RESET QUEUE POINTER BACKWARD «, t00=0x00bd, t01=0x0048}
0x127ac…127d4 Head {h00=0x0024, h01=0x001f, text=» ST A8,4,A12 STORE PAGE ADDRESS «, t00=0x00bd, t01=0x007a}
0x127d4…12806 Head {h00=0x002e, h01=0x0029, text=» ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS «, t00=0x00bd, t01=0x00a2}
0x12806…1283a Head {h00=0x0030, h01=0x002c, text=» ADK A4,1 INCREMENT RESIDENT SEGMENT COUNTER«, t00=0x00bd, t01=0x00d4}
0x1283a…12864 Head {h00=0x0026, h01=0x0021, text=» ADR A8,A10 ADDRESS TO NEXT PAGE «, t00=0x00bd, t01=0x0108}
0x12864…12888 Head {h00=0x0020, h01=0x001b, text=» ADKL A12,8 NEXT PAGE BLOCK «, t00=0x00bd, t01=0x0132}
0x12888…128c0 Head {h00=0x0034, h01=0x002f, text=»PAG:65 SUK A6,1 DECREMENT SEGMENT BLOCK COUNTER «, t00=0x00bd, t01=0x0156}
0x128c0…128d6 Head {h00=0x0012, h01=0x000d, text=» RB(P) PAG:60 «, t00=0x00bd, t01=0x018e}
0x128d6…128e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00be, t01=0x0014}
0x128e0…12920 Head {h00=0x003c, h01=0x0038, text=»* INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE«, t00=0x00be, t01=0x001e}
0x12920…1292a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00be, t01=0x005e}
0x1292a…1294e Head {h00=0x0020, h01=0x001b, text=» CWR A4,A7 ANY FREE BLOCKS? «, t00=0x00be, t01=0x0068}
0x1294e…12968 Head {h00=0x0016, h01=0x0050, text=» RF(E) PAG:90 NO! «, t00=0x00be, t01=0x008c}
0x12968…129a0 Head {h00=0x0034, h01=0x002f, text=» ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK «, t00=0x00be, t01=0x00a6}
0x129a0…129ca Head {h00=0x0026, h01=0x0022, text=» LDKL A11,PAGQUE POINTER TO PAGQUE«, t00=0x00be, t01=0x00de}
0x129ca…129fe Head {h00=0x0030, h01=0x002c, text=» LDR A1,A12 SAVE ADDRESS TO FIRST PAGE BLOCK«, t00=0x00be, t01=0x0108}
0x129fe…12a10 Head {h00=0x000e, h01=0x0009, text=» LDK A2,0 «, t00=0x00be, t01=0x013c}
0x12a10…12a42 Head {h00=0x002e, h01=0x002a, text=»PAG:70 ST A11,2,A12 STORE BACKWARD POINTER«, t00=0x00be, t01=0x014e}
0x12a42…12a6a Head {h00=0x0024, h01=0x001f, text=» ST A9,4,A12 STORE PAGE ADDRESS «, t00=0x00be, t01=0x0180}
0x12a6a…12a92 Head {h00=0x0024, h01=0x001f, text=» ST A2,6,A12 INDICATE PAGE FREE «, t00=0x00bf, t01=0x0018}
0x12a92…12ac0 Head {h00=0x002a, h01=0x0026, text=» ADK A4,1 INCREMENT PAGE BLOCK COUNTER«, t00=0x00bf, t01=0x0040}
0x12ac0…12ae4 Head {h00=0x0020, h01=0x001b, text=» CWR A4,A7 LAST PAGE BLOCK? «, t00=0x00bf, t01=0x006e}
0x12ae4…12afe Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:80 YES!«, t00=0x00bf, t01=0x0092}
0x12afe…12b2e Head {h00=0x002c, h01=0x0027, text=» LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK «, t00=0x00bf, t01=0x00ac}
0x12b2e…12b5a Head {h00=0x0028, h01=0x0024, text=» ADK A1,8 ADDRESS TO NEXT PAGE BLOCK«, t00=0x00bf, t01=0x00dc}
0x12b5a…12b84 Head {h00=0x0026, h01=0x0021, text=» STR A1,A12 STORE FORWARD POINTER «, t00=0x00bf, t01=0x0108}
0x12b84…12ba8 Head {h00=0x0020, h01=0x001b, text=» LDR A12,A1 NEXT PAGE BLOCK «, t00=0x00bf, t01=0x0132}
0x12ba8…12bc6 Head {h00=0x001a, h01=0x0015, text=» ADR A9,A10 NEXT PAGE «, t00=0x00bf, t01=0x0156}
0x12bc6…12bd8 Head {h00=0x000e, h01=0x000a, text=» RB PAG:70«, t00=0x00bf, t01=0x0174}
0x12bd8…12bec Head {h00=0x0010, h01=0x000c, text=»PAG:80 EQU *«, t00=0x00bf, t01=0x0186}
0x12bec…12c16 Head {h00=0x0026, h01=0x0021, text=» LDKL A1,PAGQUE POINTER TO PAGQUE «, t00=0x00c0, t01=0x000a}
0x12c16…12c3e Head {h00=0x0024, h01=0x001f, text=» STR A1,A12 STORE IN LAST BLOCK «, t00=0x00c0, t01=0x0034}
0x12c3e…12c68 Head {h00=0x0026, h01=0x0022, text=» ST A12,PAGQUE+2 STORE IN PAGQUE+2«, t00=0x00c0, t01=0x005c}
0x12c68…12c7c Head {h00=0x0010, h01=0x0050, text=»PAG:90 EQU *«, t00=0x00c0, t01=0x0086}
0x12c7c…12c94 Head {h00=0x0014, h01=0x0050, text=»PAGEX EQU *-REL «, t00=0x00c0, t01=0x009a}
0x12c94…12ca2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c0, t01=0x00b2}
0x12ca2…12cae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c0, t01=0x00c0}
0x12cae…12cb6 Head {h00=0x0004, h01=0x0050, t00=0x00c0, t01=0x00cc}
0x12cb6…12cbe Head {h00=0x0004, h01=0x0050, t00=0x00c0, t01=0x00d4}
0x12cbe…12cde Head {h00=0x001c, h01=0x0050, text=»* START BUGGER (IF ANY) «, t00=0x00c0, t01=0x00dc}
0x12cde…12ce6 Head {h00=0x0004, h01=0x0050, t00=0x00c0, t01=0x00fc}
0x12ce6…12cee Head {h00=0x0004, h01=0x0050, t00=0x00c0, t01=0x0104}
0x12cee…12d0e Head {h00=0x001c, h01=0x0050, text=»* GET APPLICATION START «, t00=0x00c0, t01=0x010c}
0x12d0e…12d24 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x00c0, t01=0x012c}
0x12d24…12d54 Head {h00=0x002c, h01=0x0050, text=» LD A14,SCTLAC TRUE START OF APPLICATION«, t00=0x00c0, t01=0x0142}
0x12d54…12d60 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c0, t01=0x0172}
0x12d60…12d6e Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00c0, t01=0x017e}
0x12d6e…12d7c Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00c0, t01=0x018c}
0x12d7c…12d8a Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00c1, t01=0x000a}
0x12d8a…12dac Head {h00=0x001e, h01=0x0050, text=» SUKL A14,8 ADJUST FOR MAP«, t00=0x00c1, t01=0x0018}
0x12dac…12dda Head {h00=0x002a, h01=0x0050, text=» ADKL A13,SYA360 CONTINUATION ADDRESS «, t00=0x00c1, t01=0x003a}
0x12dda…12e02 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE SYSLOAD ENDED«, t00=0x00c1, t01=0x0068}
0x12e02…12e18 Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x00c1, t01=0x0090}
0x12e18…12e40 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTBUG GET BUGGER ADDRESS«, t00=0x00c1, t01=0x00a6}
0x12e40…12e54 Head {h00=0x0010, h01=0x0050, text=» ABR(NZ) A1 «, t00=0x00c1, t01=0x00ce}
0x12e54…12e5c Head {h00=0x0004, h01=0x0050, t00=0x00c1, t01=0x00e2}
0x12e5c…12e74 Head {h00=0x0014, h01=0x0050, text=»SYA360 EQU *-REL«, t00=0x00c1, t01=0x00ea}
0x12e74…12e86 Head {h00=0x000e, h01=0x0050, text=» LDR A13,P«, t00=0x00c1, t01=0x0102}
0x12e86…12e9e Head {h00=0x0014, h01=0x0050, text=»SYA370 EQU *-REL«, t00=0x00c1, t01=0x0114}
0x12e9e…12ed2 Head {h00=0x0030, h01=0x0050, text=» SUKL A13,SYA370 RESTORE PROGRAM BASE OINTER«, t00=0x00c1, t01=0x012c}
0x12ed2…12edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x0160}
0x12edc…12ef6 Head {h00=0x0016, h01=0x0050, text=»* INIT A15 STACK «, t00=0x00c1, t01=0x016a}
0x12ef6…12f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x0184}
0x12f00…12f16 Head {h00=0x0012, h01=0x0050, text=» LD A15,SCTSTB«, t00=0x00c1, t01=0x018e}
0x12f16…12f2a Head {h00=0x0010, h01=0x0050, text=» SUKL A15,4 «, t00=0x00c2, t01=0x0014}
0x12f2a…12f32 Head {h00=0x0004, h01=0x0050, t00=0x00c2, t01=0x0028}
0x12f32…12f4e Head {h00=0x0018, h01=0x0050, text=»* START APPLICATION «, t00=0x00c2, t01=0x0030}
0x12f4e…12f56 Head {h00=0x0004, h01=0x0050, t00=0x00c2, t01=0x004c}
0x12f56…12f88 Head {h00=0x002e, h01=0x0050, text=» LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC«, t00=0x00c2, t01=0x0054}
0x12f88…12fa6 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVRTC,A13 SAVE«, t00=0x00c2, t01=0x0086}
0x12fa6…12fde Head {h00=0x0034, h01=0x0050, text=» LDKL A1,IHRTCO LOAD TEMPORARY INTERRUPT ADDRESS«, t00=0x00c2, t01=0x00a4}
0x12fde…12ffa Head {h00=0x0018, h01=0x0050, text=» ADR A1,A13 RELOCATE«, t00=0x00c2, t01=0x00dc}
0x12ffa…13028 Head {h00=0x002a, h01=0x0050, text=» ST A1,IHRTC STORE IN INTERRUPT VECTOR«, t00=0x00c2, t01=0x00f8}
0x13028…13056 Head {h00=0x002a, h01=0x0050, text=» CIO A1,0,SOP DISABLE SOP SWITCHES =2 «, t00=0x00c2, t01=0x0126}
0x13056…13080 Head {h00=0x0026, h01=0x0050, text=» CF A15,PFINIT INITIALIZE DEVICES «, t00=0x00c2, t01=0x0154}
0x13080…130a4 Head {h00=0x0020, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS«, t00=0x00c2, t01=0x017e}
0x130a4…130ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x0012}
0x130ae…130f8 Head {h00=0x0046, h01=0x0050, text=»* WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER «, t00=0x00c3, t01=0x001c}
0x130f8…13102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x0066}
0x13102…13124 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/FFFF SET COUNTER«, t00=0x00c3, t01=0x0070}
0x13124…1313c Head {h00=0x0014, h01=0x0050, text=»DELAY SRC A2,31 «, t00=0x00c3, t01=0x0092}
0x1313c…1314e Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00c3, t01=0x00aa}
0x1314e…13164 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DELAY «, t00=0x00c3, t01=0x00bc}
0x13164…13170 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00c3, t01=0x00d2}
0x13170…1319c Head {h00=0x0028, h01=0x0050, text=» LDKL A1,0 GET RTC INTERRUPT ADDRESS«, t00=0x00c3, t01=0x00de}
0x1319c…131b6 Head {h00=0x0016, h01=0x0050, text=»SAVRTC EQU *-REL-2«, t00=0x00c3, t01=0x010a}
0x131b6…131d2 Head {h00=0x0018, h01=0x0050, text=» ST A1,IHRTC RESTORE«, t00=0x00c3, t01=0x0124}
0x131d2…131e0 Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x00c3, t01=0x0140}
0x131e0…131ee Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x00c3, t01=0x014e}
0x131ee…131fc Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x00c3, t01=0x015c}
0x131fc…1320a Head {h00=0x000a, h01=0x0050, text=» =2«, t00=0x00c3, t01=0x016a}
0x1320a…13232 Head {h00=0x0024, h01=0x0050, text=» ABL TDISP BRANCH TO DISPATCHER «, t00=0x00c3, t01=0x0178}
0x13232…13240 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00c4, t01=0x0010}
0x13240…1324e Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00c4, t01=0x001e}
0x1324e…1325c Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00c4, t01=0x002c}
0x1325c…1326a Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x00c4, t01=0x003a}
0x1326a…13274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x0048}
0x13274…132a2 Head {h00=0x002a, h01=0x0050, text=»* TEMPORARY INTERRUPT ROUTINE FOR RTC«, t00=0x00c4, t01=0x0052}
0x132a2…132ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c4, t01=0x0080}
0x132ac…132c4 Head {h00=0x0014, h01=0x0050, text=»IHRTCO EQU *-REL«, t00=0x00c4, t01=0x008a}
0x132c4…132d6 Head {h00=0x000e, h01=0x0050, text=» RIT RTCDA«, t00=0x00c4, t01=0x00a2}
0x132d6…132e6 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x00c4, t01=0x00b4}
0x132e6…132fc Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00c4, t01=0x00c4}
0x132fc…1330a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c4, t01=0x00da}
0x1330a…13316 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c4, t01=0x00e8}
0x13316…13350 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c4, t01=0x00f4}
0x13350…1338a Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x00c4, t01=0x012e}
0x1338a…133c4 Head {h00=0x0036, h01=0x0050, text=»** SYSLOAD PART 2.A ** «, t00=0x00c4, t01=0x0168}
0x133c4…133fe Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c5, t01=0x0012}
0x133fe…13438 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c5, t01=0x004c}
0x13438…13440 Head {h00=0x0004, h01=0x0050, t00=0x00c5, t01=0x0086}
0x13440…1347a Head {h00=0x0036, h01=0x0050, text=»* BUILD COMMON AND TASKCLASS DATA AREAS. * «, t00=0x00c5, t01=0x008e}
0x1347a…134b4 Head {h00=0x0036, h01=0x0050, text=»* BUILD TASKDATA PROTOTYPE AREA * «, t00=0x00c5, t01=0x00c8}
0x134b4…134ee Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x00c5, t01=0x0102}
0x134ee…13528 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c5, t01=0x013c}
0x13528…13530 Head {h00=0x0004, h01=0x0050, t00=0x00c5, t01=0x0176}
0x13530…13548 Head {h00=0x0014, h01=0x0050, text=»PART2A EQU *-REL«, t00=0x00c5, t01=0x017e}
0x13548…13550 Head {h00=0x0004, h01=0x0050, t00=0x00c6, t01=0x0008}
0x13550…13584 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00c6, t01=0x0010}
0x13584…135b8 Head {h00=0x0030, h01=0x0050, text=»*** ***«, t00=0x00c6, t01=0x0044}
0x135b8…135ec Head {h00=0x0030, h01=0x0050, text=»** S U B R O U T I N E S **«, t00=0x00c6, t01=0x0078}
0x135ec…13620 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00c6, t01=0x00ac}
0x13620…13628 Head {h00=0x0004, h01=0x0050, t00=0x00c6, t01=0x00e0}
0x13628…13634 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c6, t01=0x00e8}
0x13634…1366c Head {h00=0x0034, h01=0x0050, text=»** T : D A D D **«, t00=0x00c6, t01=0x00f4}
0x1366c…136a4 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00c6, t01=0x012c}
0x136a4…136dc Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00c6, t01=0x0164}
0x136dc…13714 Head {h00=0x0034, h01=0x0050, text=»** GET T:D - ADDRESS **«, t00=0x00c7, t01=0x000c}
0x13714…1374c Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00c7, t01=0x0044}
0x1374c…13784 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=POINTER TO T:A (IN T:ATAB) **«, t00=0x00c7, t01=0x007c}
0x13784…137bc Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A12=T:D ADDRESS **«, t00=0x00c7, t01=0x00b4}
0x137bc…137f4 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00c7, t01=0x00ec}
0x137f4…13808 Head {h00=0x0010, h01=0x0050, text=»T:DADD EQU *«, t00=0x00c7, t01=0x0124}
0x13808…13824 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00c7, t01=0x0138}
0x13824…13844 Head {h00=0x001c, h01=0x0050, text=» LDR* A12,A8 T:A ADDRESS«, t00=0x00c7, t01=0x0154}
0x13844…1385e Head {h00=0x0016, h01=0x0050, text=» LD A12,T:DAD,A12 «, t00=0x00c7, t01=0x0174}
0x1385e…1386a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c7, t01=0x018e}
0x1386a…13886 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00c8, t01=0x000a}
0x13886…138a6 Head {h00=0x001c, h01=0x0050, text=» ELR A12,A8 T:A ADDRESS «, t00=0x00c8, t01=0x0026}
0x138a6…138c0 Head {h00=0x0016, h01=0x0050, text=» EL A12,T:DAD,A12 «, t00=0x00c8, t01=0x0046}
0x138c0…138cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c8, t01=0x0060}
0x138cc…138e2 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00c8, t01=0x006c}
0x138e2…13906 Head {h00=0x0020, h01=0x0050, text=» AD A12,MOVADD,A13 RELOCATE «, t00=0x00c8, t01=0x0082}
0x13906…13916 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c8, t01=0x00a6}
0x13916…13924 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c8, t01=0x00b6}
0x13924…13930 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c8, t01=0x00c4}
0x13930…1393c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c8, t01=0x00d0}
0x1393c…13976 Head {h00=0x0036, h01=0x0050, text=»** M O V C O M ** «, t00=0x00c8, t01=0x00dc}
0x13976…139b0 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c8, t01=0x0116}
0x139b0…139ea Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c8, t01=0x0150}
0x139ea…13a24 Head {h00=0x0036, h01=0x0050, text=»** SEARCH T:A'S FOR COMMON WORK BLOCKS THAT ** «, t00=0x00c8, t01=0x018a}
0x13a24…13a5e Head {h00=0x0036, h01=0x0050, text=»** ARE COMMON TO AT LEAST TWO T:A'S, AND MOVE ** «, t00=0x00c9, t01=0x0034}
0x13a5e…13a98 Head {h00=0x0036, h01=0x0050, text=»** TO COMMON AREA ** «, t00=0x00c9, t01=0x006e}
0x13a98…13ad2 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c9, t01=0x00a8}
0x13ad2…13b0c Head {h00=0x0036, h01=0x0050, text=»** INPUT : A8=POINTER IN T:ATAB ** «, t00=0x00c9, t01=0x00e2}
0x13b0c…13b46 Head {h00=0x0036, h01=0x0050, text=»** BIT=BIT NUMBER, SAT IN MASK ** «, t00=0x00c9, t01=0x011c}
0x13b46…13b80 Head {h00=0x0036, h01=0x0050, text=»** ENDADD=ENDADDRESS OF T:ATAB ** «, t00=0x00c9, t01=0x0156}
0x13b80…13bba Head {h00=0x0036, h01=0x0050, text=»** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** «, t00=0x00c9, t01=0x0190}
0x13bba…13bf4 Head {h00=0x0036, h01=0x0050, text=»** WORK.REGS: A1-A6,A9,A11,A12 ** «, t00=0x00ca, t01=0x003a}
0x13bf4…13c2e Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00ca, t01=0x0074}
0x13c2e…13c3a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00ca, t01=0x00ae}
0x13c3a…13c4e Head {h00=0x0010, h01=0x0050, text=»MOVCOM EQU *«, t00=0x00ca, t01=0x00ba}
0x13c4e…13c78 Head {h00=0x0026, h01=0x0050, text=» CALL CHKMVD BLOCK ALREADY MOVED? «, t00=0x00ca, t01=0x00ce}
0x13c78…13c92 Head {h00=0x0016, h01=0x0050, text=» RF(N) MOVC20 YES!«, t00=0x00ca, t01=0x00f8}
0x13c92…13cd0 Head {h00=0x003a, h01=0x0050, text=» CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL «, t00=0x00ca, t01=0x0112}
0x13cd0…13cfc Head {h00=0x0028, h01=0x0050, text=» ST A11,SAVE06,A13 SAVE W.B.-ADDRESS«, t00=0x00ca, t01=0x0150}
0x13cfc…13d28 Head {h00=0x0028, h01=0x0050, text=» CM MOVED,A13 CLEAR MOVED INDICATOR «, t00=0x00ca, t01=0x017c}
0x13d28…13d3a Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x00cb, t01=0x0018}
0x13d3a…13d5a Head {h00=0x001c, h01=0x0050, text=»MOVC10 ADK A6,2 NEXT T:A«, t00=0x00cb, t01=0x002a}
0x13d5a…13d7e Head {h00=0x0020, h01=0x0050, text=» CW A6,ENDADD,A13 ALL DONE? «, t00=0x00cb, t01=0x004a}
0x13d7e…13d98 Head {h00=0x0016, h01=0x0050, text=» RF(NE) MOVC30 NO «, t00=0x00cb, t01=0x006e}
0x13d98…13db4 Head {h00=0x0018, h01=0x0050, text=»MOVC20 RTN A14 YES! «, t00=0x00cb, t01=0x0088}
0x13db4…13dd0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00cb, t01=0x00a4}
0x13dd0…13dea Head {h00=0x0016, h01=0x0050, text=»MOVC30 LDR* A11,A6«, t00=0x00cb, t01=0x00c0}
0x13dea…13e0e Head {h00=0x0020, h01=0x0050, text=» LD A2,T:DAD,A11 T:D-ADDRESS«, t00=0x00cb, t01=0x00da}
0x13e0e…13e30 Head {h00=0x001e, h01=0x0050, text=» AD A2,MOVADD,A13 RELOCATE«, t00=0x00cb, t01=0x00fe}
0x13e30…13e4e Head {h00=0x001a, h01=0x0050, text=» ST A2,SAVE03,A13 SAVE«, t00=0x00cb, t01=0x0120}
0x13e4e…13e7e Head {h00=0x002c, h01=0x0050, text=» LD A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS «, t00=0x00cb, t01=0x013e}
0x13e7e…13e9e Head {h00=0x001c, h01=0x0050, text=» CW A2,BIT,A13 ENOUGHT? «, t00=0x00cb, t01=0x016e}
0x13e9e…13ed8 Head {h00=0x0036, h01=0x0050, text=» RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A «, t00=0x00cb, t01=0x018e}
0x13ed8…13f0a Head {h00=0x002e, h01=0x0050, text=» AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE«, t00=0x00cc, t01=0x0038}
0x13f0a…13f20 Head {h00=0x0012, h01=0x0050, text=» LDR* A11,A11 «, t00=0x00cc, t01=0x006a}
0x13f20…13f52 Head {h00=0x002e, h01=0x0050, text=» CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES «, t00=0x00cc, t01=0x0080}
0x13f52…13f5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cc, t01=0x00b2}
0x13f5e…13f7a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00cc, t01=0x00be}
0x13f7a…13f94 Head {h00=0x0016, h01=0x0050, text=»MOVC30 ELR A11,A6 «, t00=0x00cc, t01=0x00da}
0x13f94…13fb8 Head {h00=0x0020, h01=0x0050, text=» EL A2,T:DAD,A11 T:D-ADDRESS«, t00=0x00cc, t01=0x00f4}
0x13fb8…13fda Head {h00=0x001e, h01=0x0050, text=» AD A2,MOVADD,A13 RELOCATE«, t00=0x00cc, t01=0x0118}
0x13fda…1400e Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE03,A13 SAVE T:D-ADDRESS TEMPORARY«, t00=0x00cc, t01=0x013a}
0x1400e…1403e Head {h00=0x002c, h01=0x0050, text=» EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS «, t00=0x00cc, t01=0x016e}
0x1403e…1405e Head {h00=0x001c, h01=0x0050, text=» CW A2,BIT,A13 ENOUGHT? «, t00=0x00cd, t01=0x000e}
0x1405e…14098 Head {h00=0x0036, h01=0x0050, text=» RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A «, t00=0x00cd, t01=0x002e}
0x14098…140ca Head {h00=0x002e, h01=0x0050, text=» AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE«, t00=0x00cd, t01=0x0068}
0x140ca…140de Head {h00=0x0010, h01=0x0050, text=» ELR A11,A11«, t00=0x00cd, t01=0x009a}
0x140de…14110 Head {h00=0x002e, h01=0x0050, text=» CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES «, t00=0x00cd, t01=0x00ae}
0x14110…1411c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cd, t01=0x00e0}
0x1411c…14132 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00cd, t01=0x00ec}
0x14132…1414e Head {h00=0x0018, h01=0x0050, text=» RB(NE) MOVC10 .NEQ.«, t00=0x00cd, t01=0x0102}
0x1414e…1417a Head {h00=0x0028, h01=0x0050, text=» LD A9,MOVED,A13 W.B. ALREADY MOVED?«, t00=0x00cd, t01=0x011e}
0x1417a…141ac Head {h00=0x002e, h01=0x0050, text=» RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY «, t00=0x00cd, t01=0x014a}
0x141ac…141d6 Head {h00=0x0026, h01=0x0050, text=» CALL MOVDT MOVE DESCRIPTOR-TABLE «, t00=0x00cd, t01=0x017c}
0x141d6…14200 Head {h00=0x0026, h01=0x0050, text=» ST A2,NEWAD1,A13 SAVE D.T.-ADRESS«, t00=0x00ce, t01=0x0016}
0x14200…14222 Head {h00=0x001e, h01=0x0050, text=» CALL MOVWB MOV WORK BLOCK«, t00=0x00ce, t01=0x0040}
0x14222…14246 Head {h00=0x0020, h01=0x0050, text=» IM MOVED,A13 INDICATE MOVED«, t00=0x00ce, t01=0x0062}
0x14246…14268 Head {h00=0x001e, h01=0x0050, text=» LD A4,UWB,A13 UWB-BLOCKS?«, t00=0x00ce, t01=0x0086}
0x14268…14282 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVC40 NO! «, t00=0x00ce, t01=0x00a8}
0x14282…142a8 Head {h00=0x0022, h01=0x0050, text=» CALL GETPRO CREATE REAL UWB'S«, t00=0x00ce, t01=0x00c2}
0x142a8…142e0 Head {h00=0x0034, h01=0x0050, text=»MOVC40 ST A2,NEWAD2,A13 SAVE NEW ADDRESS TO W.B.«, t00=0x00ce, t01=0x00e8}
0x142e0…142f4 Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00ce, t01=0x0120}
0x142f4…1431e Head {h00=0x0026, h01=0x0050, text=»MOVC50 CALL CHADR CHANGE ADDRESSES«, t00=0x00ce, t01=0x0134}
0x1431e…14350 Head {h00=0x002e, h01=0x0050, text=» CALL ICBMVD INDICATE CURRENT BLOCK MOVED «, t00=0x00ce, t01=0x015e}
0x14350…14374 Head {h00=0x0020, h01=0x0050, text=» LDR A11,A8 SAVE T:A-POINTER«, t00=0x00ce, t01=0x0190}
0x14374…143a0 Head {h00=0x0028, h01=0x0050, text=» ST A12,SAVE25,A13 SAVE T:A-ADDRESS «, t00=0x00cf, t01=0x0024}
0x143a0…143ca Head {h00=0x0026, h01=0x0050, text=» LDR A8,A6 REPLACE POINTER TO T:A «, t00=0x00cf, t01=0x0050}
0x143ca…143f8 Head {h00=0x002a, h01=0x0050, text=» LD A12,SAVE03,A13 REPLACE T:D-ADDRESS«, t00=0x00cf, t01=0x007a}
0x143f8…1440c Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00cf, t01=0x00a8}
0x1440c…14420 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A11 «, t00=0x00cf, t01=0x00bc}
0x14420…1444e Head {h00=0x002a, h01=0x0050, text=» LD A12,SAVE25,A13 RELOAD T:D-ADDRESS «, t00=0x00cf, t01=0x00d0}
0x1444e…14460 Head {h00=0x000e, h01=0x0050, text=» RB MOVC10«, t00=0x00cf, t01=0x00fe}
0x14460…1446e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00cf, t01=0x0110}
0x1446e…1447a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00cf, t01=0x011e}
0x1447a…14486 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00cf, t01=0x012a}
0x14486…144be Head {h00=0x0034, h01=0x0050, text=»** G E T P R O **«, t00=0x00cf, t01=0x0136}
0x144be…144f6 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00cf, t01=0x016e}
0x144f6…1452e Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00d0, t01=0x0016}
0x1452e…14566 Head {h00=0x0034, h01=0x0050, text=»** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF **«, t00=0x00d0, t01=0x004e}
0x14566…1459e Head {h00=0x0034, h01=0x0050, text=»** COPIES. FILL REAL U:BTAB **«, t00=0x00d0, t01=0x0086}
0x1459e…145d6 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00d0, t01=0x00be}
0x145d6…1460e Head {h00=0x0034, h01=0x0050, text=»** INPUT : A11=PROTOTYPE ADDRESS **«, t00=0x00d0, t01=0x00f6}
0x1460e…14646 Head {h00=0x0034, h01=0x0050, text=»** A2=LAST W.B. - ADDRESS **«, t00=0x00d0, t01=0x012e}
0x14646…1467e Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A2=NEW ADDRESS **«, t00=0x00d0, t01=0x0166}
0x1467e…146b6 Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS: A1-A5,A9 **«, t00=0x00d1, t01=0x000e}
0x146b6…146ee Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00d1, t01=0x0046}
0x146ee…146fa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d1, t01=0x007e}
0x146fa…1470e Head {h00=0x0010, h01=0x0050, text=»GETPRO EQU *«, t00=0x00d1, t01=0x008a}
0x1470e…1473a Head {h00=0x0028, h01=0x0050, text=» LD A3,U:BTOD,A13 GET U:BTAB ADDRESS«, t00=0x00d1, t01=0x009e}
0x1473a…14756 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00d1, t01=0x00ca}
0x14756…14770 Head {h00=0x0016, h01=0x0050, text=» LDR* A4,A3 LENGTH«, t00=0x00d1, t01=0x00e6}
0x14770…14784 Head {h00=0x0010, h01=0x0050, text=»GETP10 EQU *«, t00=0x00d1, t01=0x0100}
0x14784…147be Head {h00=0x0036, h01=0x0050, text=» SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH «, t00=0x00d1, t01=0x0114}
0x147be…147d4 Head {h00=0x0012, h01=0x0050, text=» RF(NN) GETP20«, t00=0x00d1, t01=0x014e}
0x147d4…147f8 Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP6 W.B. NOT FOUND!«, t00=0x00d1, t01=0x0164}
0x147f8…1480c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00d1, t01=0x0188}
0x1480c…14820 Head {h00=0x0010, h01=0x0050, text=»GETP20 EQU *«, t00=0x00d2, t01=0x000c}
0x14820…14844 Head {h00=0x0020, h01=0x0050, text=» CW A11,UPADDR,A3 SAME W.B.?«, t00=0x00d2, t01=0x0020}
0x14844…14874 Head {h00=0x002c, h01=0x0050, text=» RF(E) GETP30 YES! GET NUMBER OF COPIES «, t00=0x00d2, t01=0x0044}
0x14874…14890 Head {h00=0x0018, h01=0x0050, text=» ADK A3,UP:REC NEXT «, t00=0x00d2, t01=0x0074}
0x14890…148a2 Head {h00=0x000e, h01=0x0050, text=» RB GETP10«, t00=0x00d2, t01=0x0090}
0x148a2…148ae Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d2, t01=0x00a2}
0x148ae…148e2 Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF COPIES *«, t00=0x00d2, t01=0x00ae}
0x148e2…14916 Head {h00=0x0030, h01=0x0050, text=»* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *«, t00=0x00d2, t01=0x00e2}
0x14916…1491e Head {h00=0x0004, h01=0x0050, t00=0x00d2, t01=0x0116}
0x1491e…14932 Head {h00=0x0010, h01=0x0050, text=»GETP30 EQU *«, t00=0x00d2, t01=0x011e}
0x14932…14956 Head {h00=0x0020, h01=0x0050, text=» LD A4,WBLEN,A11 W.B.-LENGTH«, t00=0x00d2, t01=0x0132}
0x14956…14984 Head {h00=0x002a, h01=0x0050, text=» LC A5,UPNUMB,A3 GET NUMBER OF COPIES «, t00=0x00d2, t01=0x0156}
0x14984…14998 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x00d2, t01=0x0184}
0x14998…149c8 Head {h00=0x002c, h01=0x0050, text=» SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT«, t00=0x00d3, t01=0x0008}
0x149c8…149fa Head {h00=0x002e, h01=0x0050, text=» AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS«, t00=0x00d3, t01=0x0038}
0x149fa…14a0c Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x00d3, t01=0x006a}
0x14a0c…14a32 Head {h00=0x0022, h01=0x0050, text=» ST A4,URLENG,A9 STORE LENGTH «, t00=0x00d3, t01=0x007c}
0x14a32…14a60 Head {h00=0x002a, h01=0x0050, text=» ST A5,URNUMB,A9 STORE IN REAL U:BTAB «, t00=0x00d3, t01=0x00a2}
0x14a60…14a94 Head {h00=0x0030, h01=0x0050, text=»* COPY NUMBER OF WORKBLOCKS TO COMMON AREA *«, t00=0x00d3, t01=0x00d0}
0x14a94…14ac8 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d3, t01=0x0104}
0x14ac8…14afa Head {h00=0x002e, h01=0x0050, text=» SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') «, t00=0x00d3, t01=0x0138}
0x14afa…14b10 Head {h00=0x0012, h01=0x0050, text=» RF(NP) GETP50«, t00=0x00d3, t01=0x016a}
0x14b10…14b2a Head {h00=0x0016, h01=0x0050, text=»GETP40 CALL MOVWB «, t00=0x00d3, t01=0x0180}
0x14b2a…14b3c Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x00d4, t01=0x000a}
0x14b3c…14b52 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) GETP40«, t00=0x00d4, t01=0x001c}
0x14b52…14b5e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d4, t01=0x0032}
0x14b5e…14b88 Head {h00=0x0026, h01=0x0050, text=»* UPDATE POINTER IN REAL U:BTAB * «, t00=0x00d4, t01=0x003e}
0x14b88…14bb2 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00d4, t01=0x0068}
0x14bb2…14bc6 Head {h00=0x0010, h01=0x0050, text=»GETP50 EQU *«, t00=0x00d4, t01=0x0092}
0x14bc6…14c00 Head {h00=0x0036, h01=0x0050, text=» ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB «, t00=0x00d4, t01=0x00a6}
0x14c00…14c0c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d4, t01=0x00e0}
0x14c0c…14c28 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00d4, t01=0x00ec}
0x14c28…14c42 Head {h00=0x0016, h01=0x0050, text=» ELR A4,A3 LENGTH «, t00=0x00d4, t01=0x0108}
0x14c42…14c56 Head {h00=0x0010, h01=0x0050, text=»GETP10 EQU *«, t00=0x00d4, t01=0x0122}
0x14c56…14c90 Head {h00=0x0036, h01=0x0050, text=» SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH «, t00=0x00d4, t01=0x0136}
0x14c90…14ca6 Head {h00=0x0012, h01=0x0050, text=» RF(NN) GETP20«, t00=0x00d4, t01=0x0170}
0x14ca6…14cca Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP6 W.B. NOT FOUND!«, t00=0x00d4, t01=0x0186}
0x14cca…14cde Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00d5, t01=0x001a}
0x14cde…14cf2 Head {h00=0x0010, h01=0x0050, text=»GETP20 EQU *«, t00=0x00d5, t01=0x002e}
0x14cf2…14d1e Head {h00=0x0028, h01=0x0050, text=» EL A10,UPADDR,A3 CHECK IF SAME W.B.«, t00=0x00d5, t01=0x0042}
0x14d1e…14d32 Head {h00=0x0010, h01=0x0050, text=» CWR A11,A10«, t00=0x00d5, t01=0x006e}
0x14d32…14d62 Head {h00=0x002c, h01=0x0050, text=» RF(E) GETP30 YES! GET NUMBER OF COPIES «, t00=0x00d5, t01=0x0082}
0x14d62…14d7e Head {h00=0x0018, h01=0x0050, text=» ADK A3,UP:REC NEXT «, t00=0x00d5, t01=0x00b2}
0x14d7e…14d90 Head {h00=0x000e, h01=0x0050, text=» RB GETP10«, t00=0x00d5, t01=0x00ce}
0x14d90…14d9c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d5, t01=0x00e0}
0x14d9c…14dd0 Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF COPIES *«, t00=0x00d5, t01=0x00ec}
0x14dd0…14e04 Head {h00=0x0030, h01=0x0050, text=»* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *«, t00=0x00d5, t01=0x0120}
0x14e04…14e38 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d5, t01=0x0154}
0x14e38…14e40 Head {h00=0x0004, h01=0x0050, t00=0x00d5, t01=0x0188}
0x14e40…14e54 Head {h00=0x0010, h01=0x0050, text=»GETP30 EQU *«, t00=0x00d5, t01=0x0190}
0x14e54…14e78 Head {h00=0x0020, h01=0x0050, text=» EL A4,WBLEN,A11 W.B.-LENGTH«, t00=0x00d6, t01=0x0014}
0x14e78…14ea8 Head {h00=0x002c, h01=0x0050, text=» EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES «, t00=0x00d6, t01=0x0038}
0x14ea8…14ebc Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x00d6, t01=0x0068}
0x14ebc…14eec Head {h00=0x002c, h01=0x0050, text=» SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT«, t00=0x00d6, t01=0x007c}
0x14eec…14f1e Head {h00=0x002e, h01=0x0050, text=» AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS«, t00=0x00d6, t01=0x00ac}
0x14f1e…14f30 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x00d6, t01=0x00de}
0x14f30…14f54 Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x00d6, t01=0x00f0}
0x14f54…14f82 Head {h00=0x002a, h01=0x0050, text=» ES A5,URNUMB,A9 ESORE IN REAL U:BTAB «, t00=0x00d6, t01=0x0114}
0x14f82…14fa8 Head {h00=0x0022, h01=0x0050, text=» ES A4,URLENG,A9 STORE LENGTH «, t00=0x00d6, t01=0x0142}
0x14fa8…14fd2 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM TABLE «, t00=0x00d6, t01=0x0168}
0x14fd2…15006 (215, 0, 400) Head {h00=0x0030, h01=0x0050, text=»* COPY NUMBER OF WORKBLOCKS TO COMMON AREA *«, t00=0x00d7, t01=0x0004}
0x15006…1503a Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d7, t01=0x0038}
0x1503a…1506c Head {h00=0x002e, h01=0x0050, text=» SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') «, t00=0x00d7, t01=0x006c}
0x1506c…15082 Head {h00=0x0012, h01=0x0050, text=» RF(NP) GETP50«, t00=0x00d7, t01=0x009e}
0x15082…1509c Head {h00=0x0016, h01=0x0050, text=»GETP40 CALL MOVWB «, t00=0x00d7, t01=0x00b4}
0x1509c…150ae Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x00d7, t01=0x00ce}
0x150ae…150c4 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) GETP40«, t00=0x00d7, t01=0x00e0}
0x150c4…150d0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d7, t01=0x00f6}
0x150d0…150fa Head {h00=0x0026, h01=0x0050, text=»* UPDATE POINTER IN REAL U:BTAB * «, t00=0x00d7, t01=0x0102}
0x150fa…15124 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00d7, t01=0x012c}
0x15124…15138 Head {h00=0x0010, h01=0x0050, text=»GETP50 EQU *«, t00=0x00d7, t01=0x0156}
0x15138…1514e Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00d7, t01=0x016a}
0x1514e…15188 Head {h00=0x0036, h01=0x0050, text=» ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U:BTAB «, t00=0x00d7, t01=0x0180}
0x15188…151a0 Head {h00=0x0014, h01=0x0050, text=» TL* MMFROM,A13 «, t00=0x00d8, t01=0x002a}
0x151a0…151ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d8, t01=0x0042}
0x151ac…151c2 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00d8, t01=0x004e}
0x151c2…151d2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d8, t01=0x0064}
0x151d2…151e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d8, t01=0x0074}
0x151e0…151ec Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d8, t01=0x0082}
0x151ec…15222 Head {h00=0x0032, h01=0x0050, text=»** M O V C L A ** «, t00=0x00d8, t01=0x008e}
0x15222…15258 Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x00d8, t01=0x00c4}
0x15258…1528e Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x00d8, t01=0x00fa}
0x1528e…152c4 Head {h00=0x0032, h01=0x0050, text=»** CHECKS IF W.B. ALREADY MOVED TO COMMON ** «, t00=0x00d8, t01=0x0130}
0x152c4…152fa Head {h00=0x0032, h01=0x0050, text=»** AREA. IF NOT MOVE W.B. & D.T. AND ** «, t00=0x00d8, t01=0x0166}
0x152fa…15330 Head {h00=0x0032, h01=0x0050, text=»** CHECK IF ANY DWB'S ** «, t00=0x00d9, t01=0x000c}
0x15330…15366 Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x00d9, t01=0x0042}
0x15366…1539c Head {h00=0x0032, h01=0x0050, text=»** A LOT OF WORKREGS. ** «, t00=0x00d9, t01=0x0078}
0x1539c…153d2 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00d9, t01=0x00ae}
0x153d2…153da Head {h00=0x0004, h01=0x0050, t00=0x00d9, t01=0x00e4}
0x153da…153ee Head {h00=0x0010, h01=0x0050, text=»MOVCLA EQU *«, t00=0x00d9, t01=0x00ec}
0x153ee…15402 Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00d9, t01=0x0100}
0x15402…15418 Head {h00=0x0012, h01=0x0050, text=» RF(Z) MVCL30 «, t00=0x00d9, t01=0x0114}
0x15418…15446 Head {h00=0x002a, h01=0x0050, text=»MVCL10 CALL GETWB W.B.-ADDRESS TO A11 «, t00=0x00d9, t01=0x012a}
0x15446…15470 Head {h00=0x0026, h01=0x0050, text=» CALL CHKMVD BLOCK ALREADY MOVED? «, t00=0x00d9, t01=0x0158}
0x15470…1548a Head {h00=0x0016, h01=0x0050, text=» RF(NN) MVCL40 NO!«, t00=0x00d9, t01=0x0182}
0x1548a…154ba Head {h00=0x002c, h01=0x0050, text=»MVCL20 CALL SKIFTA GET NEXT BIT IN MASK «, t00=0x00da, t01=0x000c}
0x154ba…154d0 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) MVCL10«, t00=0x00da, t01=0x003c}
0x154d0…154e6 Head {h00=0x0012, h01=0x0050, text=»MVCL30 RTN A14«, t00=0x00da, t01=0x0052}
0x154e6…15500 Head {h00=0x0016, h01=0x0050, text=»MVCL40 CALL MOVDT «, t00=0x00da, t01=0x0068}
0x15500…15514 Head {h00=0x0010, h01=0x0050, text=» CALL MOVWB «, t00=0x00da, t01=0x0082}
0x15514…15538 Head {h00=0x0020, h01=0x0050, text=» LD A4,UWB,A13 UWB-SCANNING «, t00=0x00da, t01=0x0096}
0x15538…15552 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MVCL50 NO! «, t00=0x00da, t01=0x00ba}
0x15552…15576 Head {h00=0x0020, h01=0x0050, text=» CALL GETPRO DUPLICATE WB'S «, t00=0x00da, t01=0x00d4}
0x15576…155a8 Head {h00=0x002e, h01=0x0050, text=»MVCL50 ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS «, t00=0x00da, t01=0x00f8}
0x155a8…155ca Head {h00=0x001e, h01=0x0050, text=» CALL MOVDWB PROCESS DWB'S«, t00=0x00da, t01=0x012a}
0x155ca…155dc Head {h00=0x000e, h01=0x0050, text=» RB MVCL20«, t00=0x00da, t01=0x014c}
0x155dc…155ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00da, t01=0x015e}
0x155ea…155f6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00da, t01=0x016c}
0x155f6…15602 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00da, t01=0x0178}
0x15602…1563c Head {h00=0x0036, h01=0x0050, text=»** C H A D R ** «, t00=0x00da, t01=0x0184}
0x1563c…15676 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00db, t01=0x002e}
0x15676…156b0 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00db, t01=0x0068}
0x156b0…156ea Head {h00=0x0036, h01=0x0050, text=»** CHANGE ADDRESS TO W.B. & D.T. IN T:A, ** «, t00=0x00db, t01=0x00a2}
0x156ea…15724 Head {h00=0x0036, h01=0x0050, text=»** BLOCKS ALREDY MOVED ** «, t00=0x00db, t01=0x00dc}
0x15724…1575e Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00db, t01=0x0116}
0x1575e…15798 Head {h00=0x0036, h01=0x0050, text=»** INPUT : A6=POINTER IN T:ATAB TO T:A ** «, t00=0x00db, t01=0x0150}
0x15798…157d2 Head {h00=0x0036, h01=0x0050, text=»** NEWADR1=NEW D.T.-ADDRESS ** «, t00=0x00db, t01=0x018a}
0x157d2…1580c Head {h00=0x0036, h01=0x0050, text=»** NEWAD2= NEW W.B.-ADDRESS ** «, t00=0x00dc, t01=0x0034}
0x1580c…15846 Head {h00=0x0036, h01=0x0050, text=»** TADISP=DISPLACEMENT TO WB-ADDR ** «, t00=0x00dc, t01=0x006e}
0x15846…15880 Head {h00=0x0036, h01=0x0050, text=»** WORK.REGS: A1,A2 ** «, t00=0x00dc, t01=0x00a8}
0x15880…158ba Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00dc, t01=0x00e2}
0x158ba…158c6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00dc, t01=0x011c}
0x158c6…158da Head {h00=0x0010, h01=0x0050, text=»CHADR EQU * «, t00=0x00dc, t01=0x0128}
0x158da…158f6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00dc, t01=0x013c}
0x158f6…15916 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 T:A-ADDRESS «, t00=0x00dc, t01=0x0158}
0x15916…15948 Head {h00=0x002e, h01=0x0050, text=» AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS«, t00=0x00dc, t01=0x0178}
0x15948…15962 Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD2,A13 «, t00=0x00dd, t01=0x001a}
0x15962…15974 Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x00dd, t01=0x0034}
0x15974…1599e Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 ADDRESS TO D.T.-ADDRESS «, t00=0x00dd, t01=0x0046}
0x1599e…159b8 Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD1,A13 «, t00=0x00dd, t01=0x0070}
0x159b8…159ca Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x00dd, t01=0x008a}
0x159ca…159d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00dd, t01=0x009c}
0x159d6…159f2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00dd, t01=0x00a8}
0x159f2…15a10 Head {h00=0x001a, h01=0x0050, text=» ELR A1,A6 T:A-ADDRESS«, t00=0x00dd, t01=0x00c4}
0x15a10…15a42 Head {h00=0x002e, h01=0x0050, text=» AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS«, t00=0x00dd, t01=0x00e2}
0x15a42…15a5c Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD2,A13 «, t00=0x00dd, t01=0x0114}
0x15a5c…15a6e Head {h00=0x000e, h01=0x0050, text=» ESR A2,A1«, t00=0x00dd, t01=0x012e}
0x15a6e…15a98 Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 ADDRESS TO D.T.-ADDRESS «, t00=0x00dd, t01=0x0140}
0x15a98…15ab2 Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD1,A13 «, t00=0x00dd, t01=0x016a}
0x15ab2…15ac4 Head {h00=0x000e, h01=0x0050, text=» ESR A2,A1«, t00=0x00dd, t01=0x0184}
0x15ac4…15ad0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00de, t01=0x0008}
0x15ad0…15ae6 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00de, t01=0x0014}
0x15ae6…15af6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00de, t01=0x002a}
0x15af6…15b02 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00de, t01=0x003a}
0x15b02…15b1e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00de, t01=0x0046}
0x15b1e…15b2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00de, t01=0x0062}
0x15b2c…15b72 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00de, t01=0x0070}
0x15b72…15bb8 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00de, t01=0x00b6}
0x15bb8…15bfe Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00de, t01=0x00fc}
0x15bfe…15c44 Head {h00=0x0042, h01=0x0050, text=»* B:RSWT - BUILD REAL SWB CONTROL TABLE *«, t00=0x00de, t01=0x0142}
0x15c44…15c8a Head {h00=0x0042, h01=0x0050, text=»* ===================================== *«, t00=0x00de, t01=0x0188}
0x15c8a…15cd0 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00df, t01=0x003e}
0x15cd0…15d16 Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: SYSLDA *«, t00=0x00df, t01=0x0084}
0x15d16…15d5c Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00df, t01=0x00ca}
0x15d5c…15da2 Head {h00=0x0042, h01=0x0050, text=»* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB *«, t00=0x00df, t01=0x0110}
0x15da2…15de8 Head {h00=0x0042, h01=0x0050, text=»* A5 - LENGTH OF REAL S:BTAB *«, t00=0x00df, t01=0x0156}
0x15de8…15e2e Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00e0, t01=0x000c}
0x15e2e…15e74 Head {h00=0x0042, h01=0x0050, text=»* EXIT: *«, t00=0x00e0, t01=0x0052}
0x15e74…15eba Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00e0, t01=0x0098}
0x15eba…15f00 Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A1-A7 *«, t00=0x00e0, t01=0x00de}
0x15f00…15f46 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00e0, t01=0x0124}
0x15f46…15f8c Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x00e0, t01=0x016a}
0x15f8c…15fd2 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00e1, t01=0x0020}
0x15fd2…16018 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00e1, t01=0x0066}
0x16018…16026 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e1, t01=0x00ac}
0x16026…1603a Head {h00=0x0010, h01=0x0050, text=»B:RSWT EQU *«, t00=0x00e1, t01=0x00ba}
0x1603a…16068 Head {h00=0x002a, h01=0x0050, text=» LDR A8,A2 SAVE POINTER TO FIRST BLOCK«, t00=0x00e1, t01=0x00ce}
0x16068…16098 Head {h00=0x002c, h01=0x0050, text=» LD A1,SCTSWB POINTER TO SWB BLOCK TABLE«, t00=0x00e1, t01=0x00fc}
0x16098…160c6 Head {h00=0x002a, h01=0x0050, text=» RF(Z) RSWBEX NO SWB:S IN APPLICATION «, t00=0x00e1, t01=0x012c}
0x160c6…160ea Head {h00=0x0020, h01=0x0050, text=» LDR* A3,A1 NUMBER OF TYPES «, t00=0x00e1, t01=0x015a}
0x160ea…16108 Head {h00=0x001a, h01=0x0050, text=» RF(Z) RSWBEX NO MOORE«, t00=0x00e1, t01=0x017e}
0x16108…1611a Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x00e2, t01=0x000c}
0x1611a…1613c Head {h00=0x001e, h01=0x0050, text=» SUK A5,2 SKIP LENGTH WORD«, t00=0x00e2, t01=0x001e}
0x1613c…1615e Head {h00=0x001e, h01=0x0050, text=»RSWB10 ADK A1,2 NEXT TYPE «, t00=0x00e2, t01=0x0040}
0x1615e…16182 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,A1 POINTER TO BLOCK«, t00=0x00e2, t01=0x0062}
0x16182…161a6 Head {h00=0x0020, h01=0x0050, text=» LCR A6,A4 NUMBER OF COPIES «, t00=0x00e2, t01=0x0086}
0x161a6…161ce Head {h00=0x0024, h01=0x0050, text=» LD A7,SWBLEN,A4 LENGTH IN BYTES«, t00=0x00e2, t01=0x00aa}
0x161ce…161da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e2, t01=0x00d2}
0x161da…161f6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00e2, t01=0x00de}
0x161f6…16220 Head {h00=0x0026, h01=0x0050, text=» ES A6,2,A2 STORE NUMBER OF COPIES«, t00=0x00e2, t01=0x00fa}
0x16220…16250 Head {h00=0x002c, h01=0x0050, text=» ES A7,4,A2 STORE LENGTH OF SWB IN BYTES«, t00=0x00e2, t01=0x0124}
0x16250…1625c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e2, t01=0x0154}
0x1625c…16278 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00e2, t01=0x0160}
0x16278…162a2 Head {h00=0x0026, h01=0x0050, text=» ST A6,2,A2 STORE NUMBER OF COPIES«, t00=0x00e2, t01=0x017c}
0x162a2…162d2 Head {h00=0x002c, h01=0x0050, text=» ST A7,4,A2 STORE LENGTH OF SWB IN BYTES«, t00=0x00e3, t01=0x0016}
0x162d2…162de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e3, t01=0x0046}
0x162de…162fa Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00e3, t01=0x0052}
0x162fa…16324 Head {h00=0x0026, h01=0x0050, text=» SUK A5,6 DECREMENTS S:BTAB LENGTH«, t00=0x00e3, t01=0x006e}
0x16324…16350 Head {h00=0x0028, h01=0x0050, text=» ADK A2,6 INCREMENT POINTER IN BLOCK«, t00=0x00e3, t01=0x0098}
0x16350…1637c Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT NUMBER OF TYPES «, t00=0x00e3, t01=0x00c4}
0x1637c…16392 Head {h00=0x0012, h01=0x0050, text=» RB(P) RSWB10 «, t00=0x00e3, t01=0x00f0}
0x16392…163a4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x00e3, t01=0x0106}
0x163a4…163ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x0118}
0x163ae…163e6 Head {h00=0x0034, h01=0x0050, text=»* INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE«, t00=0x00e3, t01=0x0122}
0x163e6…16412 Head {h00=0x0028, h01=0x0050, text=»* AND RESET ALL WORDS IN TID BLOCKS«, t00=0x00e3, t01=0x015a}
0x16412…1641c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x0186}
0x1641c…16430 Head {h00=0x0010, h01=0x0050, text=»RSWB20 EQU *«, t00=0x00e3, t01=0x0190}
0x16430…1645c Head {h00=0x0028, h01=0x0050, text=» LDR A6,A2 GET ADDRESS TO TID BLOCK «, t00=0x00e4, t01=0x0014}
0x1645c…16484 Head {h00=0x0024, h01=0x0050, text=» SUR A6,A8 COMPUTE DISPLACEMENT «, t00=0x00e4, t01=0x0040}
0x16484…164a0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00e4, t01=0x0068}
0x164a0…164c4 Head {h00=0x0020, h01=0x0050, text=» LD A1,2,A8 NUMBER OF COPIES«, t00=0x00e4, t01=0x0084}
0x164c4…164e4 Head {h00=0x001c, h01=0x0050, text=» RF(Z) RSWB50 NO COPIES!«, t00=0x00e4, t01=0x00a8}
0x164e4…16512 Head {h00=0x002a, h01=0x0050, text=» STR A6,A8 STORE POINTER TO TID BLOCK «, t00=0x00e4, t01=0x00c8}
0x16512…16534 Head {h00=0x001e, h01=0x0050, text=»RSWB30 STR A3,A2 RESET TID«, t00=0x00e4, t01=0x00f6}
0x16534…16564 Head {h00=0x002c, h01=0x0050, text=» ADK A2,2 INCREMENT POINTER IN TID BLOCK«, t00=0x00e4, t01=0x0118}
0x16564…16596 Head {h00=0x002e, h01=0x0050, text=» SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB «, t00=0x00e4, t01=0x0148}
0x16596…165be Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECR. NUMBER OF COPIES«, t00=0x00e4, t01=0x017a}
0x165be…165de Head {h00=0x001c, h01=0x0050, text=» RB(P) RSWB30 NEXT COPY «, t00=0x00e5, t01=0x0012}
0x165de…165ea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e5, t01=0x0032}
0x165ea…16606 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00e5, t01=0x003e}
0x16606…1662e Head {h00=0x0024, h01=0x0050, text=» EL A1,2,A8 GET NUMBER OF COPIES«, t00=0x00e5, t01=0x005a}
0x1662e…1664e Head {h00=0x001c, h01=0x0050, text=» RF(Z) RSWB50 NO COPIES!«, t00=0x00e5, t01=0x0082}
0x1664e…1667c Head {h00=0x002a, h01=0x0050, text=» ESR A6,A8 STORE POINTER TO TID BLOCK «, t00=0x00e5, t01=0x00a2}
0x1667c…1669e Head {h00=0x001e, h01=0x0050, text=»RSWB40 ESR A3,A2 RESET TID«, t00=0x00e5, t01=0x00d0}
0x1669e…166ce Head {h00=0x002c, h01=0x0050, text=» ADK A2,2 INCREMENT POINTER IN TID BLOCK«, t00=0x00e5, t01=0x00f2}
0x166ce…16700 Head {h00=0x002e, h01=0x0050, text=» SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB «, t00=0x00e5, t01=0x0122}
0x16700…1672c Head {h00=0x0028, h01=0x0050, text=» SUK A1,1 DECREMENT NUMBER OF COPIES«, t00=0x00e5, t01=0x0154}
0x1672c…1674c Head {h00=0x001c, h01=0x0050, text=» RB(P) RSWB40 NEXT COPY «, t00=0x00e5, t01=0x0180}
0x1674c…16758 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e6, t01=0x0010}
0x16758…16774 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00e6, t01=0x001c}
0x16774…1678c Head {h00=0x0014, h01=0x0050, text=»RSWB50 ADKL A8,6«, t00=0x00e6, t01=0x0038}
0x1678c…1679e Head {h00=0x000e, h01=0x0050, text=» CWR A8,A4«, t00=0x00e6, t01=0x0050}
0x1679e…167b4 Head {h00=0x0012, h01=0x0050, text=» RB(NE) RSWB20«, t00=0x00e6, t01=0x0062}
0x167b4…167da Head {h00=0x0022, h01=0x0050, text=» LDR A5,A5 S:BTAB CONSISTENT? «, t00=0x00e6, t01=0x0078}
0x167da…167f4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) RSWBEX YES «, t00=0x00e6, t01=0x009e}
0x167f4…16814 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,LMP6 SWB ERROR!«, t00=0x00e6, t01=0x00b8}
0x16814…16828 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00e6, t01=0x00d8}
0x16828…1683e Head {h00=0x0012, h01=0x0050, text=»RSWBEX RTN A14«, t00=0x00e6, t01=0x00ec}
0x1683e…1684a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e6, t01=0x0102}
0x1684a…16860 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00e6, t01=0x010e}
0x16860…1686e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e6, t01=0x0124}
0x1686e…16876 Head {h00=0x0004, h01=0x0050, t00=0x00e6, t01=0x0132}
0x16876…1689a Head {h00=0x0020, h01=0x0050, text=»* **************************«, t00=0x00e6, t01=0x013a}
0x1689a…168c0 Head {h00=0x0022, h01=0x0050, text=»* START OF PROGRAM PART 2.A * «, t00=0x00e6, t01=0x015e}
0x168c0…168e6 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x00e6, t01=0x0184}
0x168e6…168ee Head {h00=0x0004, h01=0x0050, t00=0x00e7, t01=0x001a}
0x168ee…1690c Head {h00=0x001a, h01=0x0050, text=»* LOAD BASE ADDRESS * «, t00=0x00e7, t01=0x0022}
0x1690c…1692a Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x00e7, t01=0x0040}
0x1692a…16944 Head {h00=0x0016, h01=0x0050, text=»* A5=START-ADDRESS«, t00=0x00e7, t01=0x005e}
0x16944…16960 Head {h00=0x0018, h01=0x0050, text=»* A9=P:MTAB ADDRESS «, t00=0x00e7, t01=0x0078}
0x16960…16980 Head {h00=0x001c, h01=0x0050, text=»* SAVE03=DDIV TO-ADDRESS«, t00=0x00e7, t01=0x0094}
0x16980…169a2 Head {h00=0x001e, h01=0x0050, text=»* SAVE04=DDIV FROM ADDRESS«, t00=0x00e7, t01=0x00b4}
0x169a2…169c8 Head {h00=0x0022, h01=0x0050, text=»* SAVE05=LENGTH OF REAL T:ATAB«, t00=0x00e7, t01=0x00d6}
0x169c8…169ee Head {h00=0x0022, h01=0x0050, text=»* SAVE06=LENGTH OF REAL U:BTAB«, t00=0x00e7, t01=0x00fc}
0x169ee…169fa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00e7, t01=0x0122}
0x169fa…16a12 Head {h00=0x0014, h01=0x0050, text=»START2 EQU *-REL«, t00=0x00e7, t01=0x012e}
0x16a12…16a38 Head {h00=0x0022, h01=0x0050, text=» LDR A8,P LOAD TEMP. STACKBASE«, t00=0x00e7, t01=0x0146}
0x16a38…16a64 Head {h00=0x0028, h01=0x0050, text=» ADK A5,2 ADD FOR RELOCATION ROUTINE«, t00=0x00e7, t01=0x016c}
0x16a64…16a76 Head {h00=0x000e, h01=0x0050, text=» CFR A8,A5«, t00=0x00e8, t01=0x0008}
0x16a76…16a8c Head {h00=0x0012, h01=0x0050, text=»* MOVE DDIV * «, t00=0x00e8, t01=0x001a}
0x16a8c…16a94 Head {h00=0x0004, h01=0x0050, t00=0x00e8, t01=0x0030}
0x16a94…16abe Head {h00=0x0026, h01=0x0050, text=» LD A1,SAVE04,A13 GET FROM-ADDRESS«, t00=0x00e8, t01=0x0038}
0x16abe…16ae6 Head {h00=0x0024, h01=0x0050, text=» LD A2,SAVE03,A13 GET TO ADDRESS«, t00=0x00e8, t01=0x0062}
0x16ae6…16b18 Head {h00=0x002e, h01=0x0050, text=» LDR A3,A9 GET P:MTAB START (=END OF DDIV «, t00=0x00e8, t01=0x008a}
0x16b18…16b34 Head {h00=0x0018, h01=0x0050, text=» SUR A3,A1 => LENGTH«, t00=0x00e8, t01=0x00bc}
0x16b34…16b40 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e8, t01=0x00d8}
0x16b40…16b5c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00e8, t01=0x00e4}
0x16b5c…16b92 Head {h00=0x0032, h01=0x0050, text=» LD A8,SAVE29,A13 ANY SEGMENTS IN APPLICATION?«, t00=0x00e8, t01=0x0100}
0x16b92…16bac Head {h00=0x0016, h01=0x0050, text=» RF(Z) NOSGMT NO! «, t00=0x00e8, t01=0x0136}
0x16bac…16bd8 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,0 RESET FSTADR IF SEGMENTS!«, t00=0x00e8, t01=0x0150}
0x16bd8…16bea Head {h00=0x000e, h01=0x0050, text=» RF SEGMTS«, t00=0x00e8, t01=0x017c}
0x16bea…16c20 Head {h00=0x0032, h01=0x0050, text=»NOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP «, t00=0x00e8, t01=0x018e}
0x16c20…16c46 Head {h00=0x0022, h01=0x0050, text=»SEGMTS ST A8,FSTADR,A13 STORE «, t00=0x00e9, t01=0x0034}
0x16c46…16c68 Head {h00=0x001e, h01=0x0050, text=»MOVNXT LDR* A4,A1 GET WORD«, t00=0x00e9, t01=0x005a}
0x16c68…16c80 Head {h00=0x0014, h01=0x0050, text=» STR A4,A2 STORE«, t00=0x00e9, t01=0x007c}
0x16c80…16c92 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00e9, t01=0x0094}
0x16c92…16ca4 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00e9, t01=0x00a6}
0x16ca4…16cc0 Head {h00=0x0018, h01=0x0050, text=» SUK A3,2 DEC LENGTH«, t00=0x00e9, t01=0x00b8}
0x16cc0…16cd6 Head {h00=0x0012, h01=0x0050, text=» RB(NN) MOVNXT«, t00=0x00e9, t01=0x00d4}
0x16cd6…16ce2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e9, t01=0x00ea}
0x16ce2…16cfe Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00e9, t01=0x00f6}
0x16cfe…16d12 Head {h00=0x0010, h01=0x0050, text=» CALL XMOVE «, t00=0x00e9, t01=0x0112}
0x16d12…16d3c Head {h00=0x0026, h01=0x0050, text=»* REMOVE DDIV ENTRIES IN MM-TABLE «, t00=0x00e9, t01=0x0126}
0x16d3c…16d44 Head {h00=0x0004, h01=0x0050, t00=0x00e9, t01=0x0150}
0x16d44…16d6a Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET P:MTAB ADDRESS «, t00=0x00e9, t01=0x0158}
0x16d6a…16d92 Head {h00=0x0024, h01=0x0050, text=» SRL A1,11 ADJUST FOR ADDRESSING«, t00=0x00e9, t01=0x017e}
0x16d92…16da6 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/1E «, t00=0x00ea, t01=0x0016}
0x16da6…16dd0 Head {h00=0x0026, h01=0x0050, text=» LDK A2,MMTAB-2 GET TABLE ADDRESS «, t00=0x00ea, t01=0x002a}
0x16dd0…16dec Head {h00=0x0018, h01=0x0050, text=» ADR A2,A13 RELOCATE«, t00=0x00ea, t01=0x0054}
0x16dec…16e12 Head {h00=0x0022, h01=0x0050, text=» ADR A1,A2 P:MTAB START ENTRY «, t00=0x00ea, t01=0x0070}
0x16e12…16e28 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/FC00«, t00=0x00ea, t01=0x0096}
0x16e28…16e46 Head {h00=0x001a, h01=0x0050, text=»SYA205 CWR A1,A2 ALL? «, t00=0x00ea, t01=0x00ac}
0x16e46…16e60 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA207 YES!«, t00=0x00ea, t01=0x00ca}
0x16e60…16e90 Head {h00=0x002c, h01=0x0050, text=» STR A4,A1 REPLACE ENTRY WITH PAGE ERROR«, t00=0x00ea, t01=0x00e4}
0x16e90…16ea2 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x00ea, t01=0x0114}
0x16ea2…16eb4 Head {h00=0x000e, h01=0x0050, text=» RB SYA205«, t00=0x00ea, t01=0x0126}
0x16eb4…16ec8 Head {h00=0x0010, h01=0x0050, text=»SYA207 EQU *«, t00=0x00ea, t01=0x0138}
0x16ec8…16ee8 Head {h00=0x001c, h01=0x0050, text=»* CHANGE TABLE-ADDRESSES«, t00=0x00ea, t01=0x014c}
0x16ee8…16f02 Head {h00=0x0016, h01=0x0050, text=» LD A4,MMFROM,A13 «, t00=0x00ea, t01=0x016c}
0x16f02…16f1a Head {h00=0x0014, h01=0x0050, text=» LD A5,MMTO,A13 «, t00=0x00ea, t01=0x0186}
0x16f1a…16f32 Head {h00=0x0014, h01=0x0050, text=» ST A4,MMTO,A13 «, t00=0x00eb, t01=0x000e}
0x16f32…16f4c Head {h00=0x0016, h01=0x0050, text=» ST A5,MMFROM,A13 «, t00=0x00eb, t01=0x0026}
0x16f4c…16f58 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00eb, t01=0x0040}
0x16f58…16f6e Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00eb, t01=0x004c}
0x16f6e…16f92 Head {h00=0x0020, h01=0x0050, text=» ANKL A9,/FFFE EVEN ADDRESS «, t00=0x00eb, t01=0x0062}
0x16f92…16fc2 Head {h00=0x002c, h01=0x0050, text=» ST A9,LSTADR,A13 SAVE END OF FREE AREA «, t00=0x00eb, t01=0x0086}
0x16fc2…16fca Head {h00=0x0004, h01=0x0050, t00=0x00eb, t01=0x00b6}
0x16fca…16fd2 Head {h00=0x0004, h01=0x0050, t00=0x00eb, t01=0x00be}
0x16fd2…16fde Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00eb, t01=0x00c6}
0x16fde…17010 Head {h00=0x002e, h01=0x0050, text=»* RESERVE SPACE FOR REAL T:A- AND U:BTAB *«, t00=0x00eb, t01=0x00d2}
0x17010…17018 Head {h00=0x0004, h01=0x0050, t00=0x00eb, t01=0x0104}
0x17018…17034 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00eb, t01=0x010c}
0x17034…17060 Head {h00=0x0028, h01=0x0050, text=» LDKL A3,MMTAB GET CURRENT MM-TABLE «, t00=0x00eb, t01=0x0128}
0x17060…17074 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A13 «, t00=0x00eb, t01=0x0154}
0x17074…170a4 Head {h00=0x002c, h01=0x0050, text=»* FIND LAST USED ENTRY IN REAL MMUTAB * «, t00=0x00eb, t01=0x0168}
0x170a4…170ac Head {h00=0x0004, h01=0x0050, t00=0x00ec, t01=0x0008}
0x170ac…170c0 Head {h00=0x0010, h01=0x0050, text=» CALL MMENT «, t00=0x00ec, t01=0x0010}
0x170c0…170d8 Head {h00=0x0014, h01=0x0050, text=» ST A9,TTAB,A13 «, t00=0x00ec, t01=0x0024}
0x170d8…17106 Head {h00=0x002a, h01=0x0050, text=» ST A1,FYSPAG,A13 SAVE PHYSICALL PAGE «, t00=0x00ec, t01=0x003c}
0x17106…17134 Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE05,A13 GET LENGTH OF T:ATAB«, t00=0x00ec, t01=0x006a}
0x17134…1714c Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00ec, t01=0x0098}
0x1714c…1717a Head {h00=0x002a, h01=0x0050, text=» CALL MOVING RESERVE SPACE FOR T:ATAB «, t00=0x00ec, t01=0x00b0}
0x1717a…171a2 Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 SET CORRECT TABLE «, t00=0x00ec, t01=0x00de}
0x171a2…171c8 Head {h00=0x0022, h01=0x0050, text=» ESR A5,A2 STORE T:ATAB LENGTH«, t00=0x00ec, t01=0x0106}
0x171c8…171fa Head {h00=0x002e, h01=0x0050, text=» ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS «, t00=0x00ec, t01=0x012c}
0x171fa…1721c Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 SKIP LENGTH WORD«, t00=0x00ec, t01=0x015e}
0x1721c…17244 Head {h00=0x0024, h01=0x0050, text=» LD A9,SCTLAC GET P:MTAB ADDRESS«, t00=0x00ec, t01=0x0180}
0x17244…1726c Head {h00=0x0024, h01=0x0050, text=» ES A2,T:ATAB,A9 STORE IN P:MTAB«, t00=0x00ed, t01=0x0018}
0x1726c…17294 Head {h00=0x0024, h01=0x0050, text=»* RESERVE PLACE FOR T:AID TABLE «, t00=0x00ed, t01=0x0040}
0x17294…1729c Head {h00=0x0004, h01=0x0050, t00=0x00ed, t01=0x0068}
0x1729c…172ba Head {h00=0x001a, h01=0x0050, text=» LDR A3,A5 GET LENGTH «, t00=0x00ed, t01=0x0070}
0x172ba…172ce Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00ed, t01=0x008e}
0x172ce…172e4 Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00ed, t01=0x00a2}
0x172e4…17302 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A9 GET P:MTAB «, t00=0x00ed, t01=0x00b8}
0x17302…1732c Head {h00=0x0026, h01=0x0050, text=» ADK A3,T:AID ADD TO ADDRESS WORD «, t00=0x00ed, t01=0x00d6}
0x1732c…17360 Head {h00=0x0030, h01=0x0050, text=» ESR A5,A2 STORE TABLE LENGTH IN T:TID-TABLE«, t00=0x00ed, t01=0x0100}
0x17360…17386 Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 ADJUST TABLE ADDRESS«, t00=0x00ed, t01=0x0134}
0x17386…173a8 Head {h00=0x001e, h01=0x0050, text=» ESR A2,A3 STORE IN P:MTAB«, t00=0x00ed, t01=0x015a}
0x173a8…173b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ed, t01=0x017c}
0x173b4…173ca Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ed, t01=0x0188}
0x173ca…173f6 Head {h00=0x0028, h01=0x0050, text=» LD A3,SAVE06,A13 GET U:BTAB LENGTH «, t00=0x00ee, t01=0x000e}
0x173f6…1740e Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00ee, t01=0x003a}
0x1740e…17430 Head {h00=0x001e, h01=0x0050, text=» CALL MOVING RESERVE SPACE«, t00=0x00ee, t01=0x0052}
0x17430…17468 Head {h00=0x0034, h01=0x0050, text=» ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS«, t00=0x00ee, t01=0x0074}
0x17468…17484 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ee, t01=0x00ac}
0x17484…174a4 Head {h00=0x001c, h01=0x0050, text=» STR A5,A2 STORE LENGTH «, t00=0x00ee, t01=0x00c8}
0x174a4…174b6 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00ee, t01=0x00e8}
0x174b6…174f4 Head {h00=0x003a, h01=0x0050, text=» ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB «, t00=0x00ee, t01=0x00fa}
0x174f4…17522 Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE05,A13 GET LENGTH OF T:ATAB«, t00=0x00ee, t01=0x0138}
0x17522…1753a Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00ee, t01=0x0166}
0x1753a…17568 Head {h00=0x002a, h01=0x0050, text=» CALL MOVING RESERVE SPACE FOR T:ATAB «, t00=0x00ee, t01=0x017e}
0x17568…1758e Head {h00=0x0022, h01=0x0050, text=» STR A5,A2 STORE T:ATAB LENGTH«, t00=0x00ef, t01=0x001c}
0x1758e…175c0 Head {h00=0x002e, h01=0x0050, text=» ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS «, t00=0x00ef, t01=0x0042}
0x175c0…175d2 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00ef, t01=0x0074}
0x175d2…175fc Head {h00=0x0026, h01=0x0050, text=» ST A2,T:ATAB,A9 SAVE REAL ADDRESS«, t00=0x00ef, t01=0x0086}
0x175fc…1761e Head {h00=0x001e, h01=0x0050, text=»* RESERVE FOR T:AID TABLE «, t00=0x00ef, t01=0x00b0}
0x1761e…17626 Head {h00=0x0004, h01=0x0050, t00=0x00ef, t01=0x00d2}
0x17626…17640 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A5 LENGTH «, t00=0x00ef, t01=0x00da}
0x17640…17654 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00ef, t01=0x00f4}
0x17654…17674 Head {h00=0x001c, h01=0x0050, text=» STR A5,A2 STORE LENGTH «, t00=0x00ef, t01=0x0108}
0x17674…1769c Head {h00=0x0024, h01=0x0050, text=» ADK A2,2 ADJUST FOR LENGTH-WORD«, t00=0x00ef, t01=0x0128}
0x1769c…176cc Head {h00=0x002c, h01=0x0050, text=» ST A2,T:AID,A9 STORE ADDRESS IN P:MTAB «, t00=0x00ef, t01=0x0150}
0x176cc…176d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ef, t01=0x0180}
0x176d8…176f4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ef, t01=0x018c}
0x176f4…1771c Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 SET CORRECT TABLE «, t00=0x00f0, t01=0x0018}
0x1771c…1773c Head {h00=0x001c, h01=0x0050, text=» ESR A5,A2 STORE LENGTH «, t00=0x00f0, t01=0x0040}
0x1773c…1775e Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 SKIP LENGTH WORD«, t00=0x00f0, t01=0x0060}
0x1775e…17786 Head {h00=0x0024, h01=0x0050, text=» ES A2,U:BTAB,A9 STORE IN P:MTAB«, t00=0x00f0, t01=0x0082}
0x17786…17792 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f0, t01=0x00aa}
0x17792…177ae Head {h00=0x0018, h01=0x0050, text=» IFT SWPBLK+CREDIT=2«, t00=0x00f0, t01=0x00b6}
0x177ae…177b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x00d2}
0x177b8…177e6 Head {h00=0x002a, h01=0x0050, text=»* RESERV SPACE FOR REAL S:BTAB TABLE «, t00=0x00f0, t01=0x00dc}
0x177e6…177f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x010a}
0x177f0…17820 Head {h00=0x002c, h01=0x0050, text=» LD A3,SAVE25,A13 LENGTH OF REAL S:BTAB «, t00=0x00f0, t01=0x0114}
0x17820…17838 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00f0, t01=0x0144}
0x17838…1784c Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00f0, t01=0x015c}
0x1784c…17866 Head {h00=0x0016, h01=0x0050, text=» ST A2,S:BTNW,A13 «, t00=0x00f0, t01=0x0170}
0x17866…17872 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f0, t01=0x018a}
0x17872…1788e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00f1, t01=0x0008}
0x1788e…178a4 Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00f1, t01=0x0024}
0x178a4…178b6 Head {h00=0x000e, h01=0x0050, text=» ESR A5,A2«, t00=0x00f1, t01=0x003a}
0x178b6…178c8 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00f1, t01=0x004c}
0x178c8…178e0 Head {h00=0x0014, h01=0x0050, text=» ES A2,S:BTAB,A9«, t00=0x00f1, t01=0x005e}
0x178e0…178f4 Head {h00=0x0010, h01=0x0050, text=» CALL B:RSWT«, t00=0x00f1, t01=0x0076}
0x178f4…17900 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f1, t01=0x008a}
0x17900…1791c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00f1, t01=0x0096}
0x1791c…1792e Head {h00=0x000e, h01=0x0050, text=» STR A5,A2«, t00=0x00f1, t01=0x00b2}
0x1792e…17940 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00f1, t01=0x00c4}
0x17940…17958 Head {h00=0x0014, h01=0x0050, text=» ST A2,S:BTAB,A9«, t00=0x00f1, t01=0x00d6}
0x17958…1796c Head {h00=0x0010, h01=0x0050, text=» CALL B:RSWT«, t00=0x00f1, t01=0x00ee}
0x1796c…17978 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f1, t01=0x0102}
0x17978…17994 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f1, t01=0x010e}
0x17994…179ba Head {h00=0x0022, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE «, t00=0x00f1, t01=0x012a}
0x179ba…179c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f1, t01=0x0150}
0x179c6…179dc Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f1, t01=0x015c}
0x179dc…179ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f1, t01=0x0172}
0x179ea…179f6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f1, t01=0x0180}
0x179f6…17a18 Head {h00=0x001e, h01=0x0050, text=»* BUILD COMMON DATA AREA *«, t00=0x00f1, t01=0x018c}
0x17a18…17a3a Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x00f2, t01=0x001e}
0x17a3a…17a52 Head {h00=0x0014, h01=0x0050, text=»* SEARCH CWB'S: «, t00=0x00f2, t01=0x0040}
0x17a52…17a5e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f2, t01=0x0058}
0x17a5e…17a8a Head {h00=0x0028, h01=0x0050, text=» LD A8,T:ATOD,A13 GET T:ATAB ADDRESS«, t00=0x00f2, t01=0x0064}
0x17a8a…17aa6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f2, t01=0x0090}
0x17aa6…17ac4 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A8 GET LENGTH«, t00=0x00f2, t01=0x00ac}
0x17ac4…17ad0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f2, t01=0x00ca}
0x17ad0…17aec Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f2, t01=0x00d6}
0x17aec…17b0a Head {h00=0x001a, h01=0x0050, text=» ELR A3,A8 GET LENGTH «, t00=0x00f2, t01=0x00f2}
0x17b0a…17b16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f2, t01=0x0110}
0x17b16…17b2c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f2, t01=0x011c}
0x17b2c…17b3e Head {h00=0x000e, h01=0x0050, text=» ADR A3,A8«, t00=0x00f2, t01=0x0132}
0x17b3e…17b72 Head {h00=0x0030, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE END OF T:ATAB ADDRESS«, t00=0x00f2, t01=0x0144}
0x17b72…17b86 Head {h00=0x0010, h01=0x0050, text=»SYA210 EQU *«, t00=0x00f2, t01=0x0178}
0x17b86…17bb0 Head {h00=0x0026, h01=0x0050, text=» CM UWB,A13 INDICATE CWB-SCANNING «, t00=0x00f2, t01=0x018c}
0x17bb0…17bc2 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x00f3, t01=0x0026}
0x17bc2…17be6 Head {h00=0x0020, h01=0x0050, text=» CW A8,ENDADD,A13 ALL DONE? «, t00=0x00f3, t01=0x0038}
0x17be6…17c00 Head {h00=0x0016, h01=0x0050, text=» RF(E) CLADAT YES!«, t00=0x00f3, t01=0x005c}
0x17c00…17c28 Head {h00=0x0024, h01=0x0050, text=» CALL T:DADD T:D-ADDRESS TO A12 «, t00=0x00f3, t01=0x0076}
0x17c28…17c44 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f3, t01=0x009e}
0x17c44…17c6a Head {h00=0x0022, h01=0x0050, text=» LD A7,CWBMSK,A12 GET CWB-MASK«, t00=0x00f3, t01=0x00ba}
0x17c6a…17c76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f3, t01=0x00e0}
0x17c76…17c92 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f3, t01=0x00ec}
0x17c92…17cac Head {h00=0x0016, h01=0x0050, text=» EL A7,CWBMSK,A12 «, t00=0x00f3, t01=0x0108}
0x17cac…17cb8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f3, t01=0x0122}
0x17cb8…17cce Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f3, t01=0x012e}
0x17cce…17cee Head {h00=0x001c, h01=0x0050, text=» CALL SHIFT SUPER-LOOPA «, t00=0x00f3, t01=0x0144}
0x17cee…17d0e Head {h00=0x001c, h01=0x0050, text=»SYA220 RF(Z) UWBCOM ALL!«, t00=0x00f3, t01=0x0164}
0x17d0e…17d22 Head {h00=0x0010, h01=0x0050, text=» CALL MOVCOM«, t00=0x00f3, t01=0x0184}
0x17d22…17d36 Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x00f4, t01=0x0008}
0x17d36…17d48 Head {h00=0x000e, h01=0x0050, text=» RB SYA220«, t00=0x00f4, t01=0x001c}
0x17d48…17d56 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f4, t01=0x002e}
0x17d56…17d62 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f4, t01=0x003c}
0x17d62…17d6e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f4, t01=0x0048}
0x17d6e…17d82 Head {h00=0x0010, h01=0x0050, text=»UWBCOM EQU *«, t00=0x00f4, t01=0x0054}
0x17d82…17d9a Head {h00=0x0014, h01=0x0050, text=»* SEARCH UWB'S: «, t00=0x00f4, t01=0x0068}
0x17d9a…17da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x0080}
0x17da4…17dce Head {h00=0x0026, h01=0x0050, text=» IM UWB,A13 INDICATE UWB-SCANNING «, t00=0x00f4, t01=0x008a}
0x17dce…17dea Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f4, t01=0x00b4}
0x17dea…17e04 Head {h00=0x0016, h01=0x0050, text=» LD A7,UWBMSK,A12 «, t00=0x00f4, t01=0x00d0}
0x17e04…17e10 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f4, t01=0x00ea}
0x17e10…17e2c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f4, t01=0x00f6}
0x17e2c…17e46 Head {h00=0x0016, h01=0x0050, text=» EL A7,UWBMSK,A12 «, t00=0x00f4, t01=0x0112}
0x17e46…17e52 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f4, t01=0x012c}
0x17e52…17e68 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f4, t01=0x0138}
0x17e68…17e7c Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00f4, t01=0x014e}
0x17e7c…17ea2 Head {h00=0x0022, h01=0x0050, text=»SYA230 RB(Z) SYA210 ALL DONE! «, t00=0x00f4, t01=0x0162}
0x17ea2…17ebc Head {h00=0x0016, h01=0x0050, text=»SYA235 CALL MOVCOM«, t00=0x00f4, t01=0x0188}
0x17ebc…17ed6 Head {h00=0x0016, h01=0x0050, text=»SYA240 CALL SKIFTA«, t00=0x00f5, t01=0x0012}
0x17ed6…17ee8 Head {h00=0x000e, h01=0x0050, text=» RB SYA230«, t00=0x00f5, t01=0x002c}
0x17ee8…17ef6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f5, t01=0x003e}
0x17ef6…17f02 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f5, t01=0x004c}
0x17f02…17f30 Head {h00=0x002a, h01=0x0050, text=»* TASK CLASS DATA CONFIGURATION PART *«, t00=0x00f5, t01=0x0058}
0x17f30…17f5e Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x00f5, t01=0x0086}
0x17f5e…17f66 Head {h00=0x0004, h01=0x0050, t00=0x00f5, t01=0x00b4}
0x17f66…17f7a Head {h00=0x0010, h01=0x0050, text=»CLADAT EQU *«, t00=0x00f5, t01=0x00bc}
0x17f7a…17fb2 Head {h00=0x0034, h01=0x0050, text=» LD A8,T:ATOD,A13 SET POINTER TO LENGTH INT:ATAB«, t00=0x00f5, t01=0x00d0}
0x17fb2…17fce Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f5, t01=0x0108}
0x17fce…17ff4 Head {h00=0x0022, h01=0x0050, text=»SYA250 CM UWB,A13 INDICATE CWB«, t00=0x00f5, t01=0x0124}
0x17ff4…18020 Head {h00=0x0028, h01=0x0050, text=» ADKL A8,2 STEP TO NEXT T:A ADDRESS «, t00=0x00f5, t01=0x014a}
0x18020…1803a Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x00f5, t01=0x0176}
0x1803a…1805e Head {h00=0x0020, h01=0x0050, text=» RF(E) SYA270 ALL T:A'S DONE«, t00=0x00f5, t01=0x0190}
0x1805e…1808a Head {h00=0x0028, h01=0x0050, text=» CALL T:DADD GET T:D ADDRESS TO A12 «, t00=0x00f6, t01=0x0024}
0x1808a…18092 Head {h00=0x0004, h01=0x0050, t00=0x00f6, t01=0x0050}
0x18092…180b4 Head {h00=0x001e, h01=0x0050, text=»* CALCULATE LENGTH OF T:D «, t00=0x00f6, t01=0x0058}
0x180b4…180bc Head {h00=0x0004, h01=0x0050, t00=0x00f6, t01=0x007a}
0x180bc…180f2 Head {h00=0x0032, h01=0x0050, text=» LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB«, t00=0x00f6, t01=0x0082}
0x180f2…18104 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00f6, t01=0x00b8}
0x18104…18128 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE EVEN ADDRESS «, t00=0x00f6, t01=0x00ca}
0x18128…18154 Head {h00=0x0028, h01=0x0050, text=» ADK A1,DWBFST+4 ADD DISPL. TO FIRST«, t00=0x00f6, t01=0x00ee}
0x18154…18182 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A1 GET NUMBER OF START-POINTS «, t00=0x00f6, t01=0x011a}
0x18182…181a6 Head {h00=0x0020, h01=0x0050, text=» ADR A3,A12 ADD T:D-ADDRESS «, t00=0x00f6, t01=0x0148}
0x181a6…181bc Head {h00=0x0012, h01=0x0050, text=» LDR* A3,A3 . «, t00=0x00f6, t01=0x016c}
0x181bc…181f0 Head {h00=0x0030, h01=0x0050, text=» LDK A2,STPREC GET STARTPOINTS RECORD LENGTH«, t00=0x00f6, t01=0x0182}
0x181f0…18210 Head {h00=0x001c, h01=0x0050, text=» CALL MULT AND MULTIPLY «, t00=0x00f7, t01=0x0026}
0x18210…18230 Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 'NUMBER-WORD' «, t00=0x00f7, t01=0x0046}
0x18230…1824c Head {h00=0x0018, h01=0x0050, text=» ADR A3,A1 =>LENGTH «, t00=0x00f7, t01=0x0066}
0x1824c…1826c Head {h00=0x001c, h01=0x0050, text=» LDR A1,A12 FROM-ADDRESS«, t00=0x00f7, t01=0x0082}
0x1826c…1828a Head {h00=0x001a, h01=0x0050, text=» CALL MOVING MOVE T:D «, t00=0x00f7, t01=0x00a2}
0x1828a…182ae Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A ADDRESS «, t00=0x00f7, t01=0x00c0}
0x182ae…182dc Head {h00=0x002a, h01=0x0050, text=» ST A2,T:DAD,A1 STORE NEW T:D ADDRESS «, t00=0x00f7, t01=0x00e4}
0x182dc…18302 Head {h00=0x0022, h01=0x0050, text=» LD A7,CWBMSK,A12 GET CWBMASK «, t00=0x00f7, t01=0x0112}
0x18302…1830e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f7, t01=0x0138}
0x1830e…1832a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f7, t01=0x0144}
0x1832a…18356 Head {h00=0x0028, h01=0x0050, text=»* INITIATE MM-ADDRESS TABLE POINTER «, t00=0x00f7, t01=0x0160}
0x18356…1835e Head {h00=0x0004, h01=0x0050, t00=0x00f7, t01=0x018c}
0x1835e…18386 (248, 0, 398) Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTSFA SHADOW TABLE START«, t00=0x00f8, t01=0x0004}
0x18386…183b0 Head {h00=0x0026, h01=0x0050, text=» AD* A1,SCTSFA ADDRESS TABLE START«, t00=0x00f8, t01=0x002c}
0x183b0…183ce Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE06,A13 SAVE«, t00=0x00f8, t01=0x0056}
0x183ce…183f4 Head {h00=0x0022, h01=0x0050, text=»SYA250 CM UWB,A13 INDICATE CWB«, t00=0x00f8, t01=0x0074}
0x183f4…18420 Head {h00=0x0028, h01=0x0050, text=» ADKL A8,2 STEP TO NEXT T:A ADDRESS «, t00=0x00f8, t01=0x009a}
0x18420…1843a Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x00f8, t01=0x00c6}
0x1843a…18460 Head {h00=0x0022, h01=0x0050, text=» RF(E) SYA270 ALL T:A'S DONE! «, t00=0x00f8, t01=0x00e0}
0x18460…18486 Head {h00=0x0022, h01=0x0050, text=» CALL GETTAB GET TTAB-ADDRESS «, t00=0x00f8, t01=0x0106}
0x18486…184a8 Head {h00=0x001e, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE«, t00=0x00f8, t01=0x012c}
0x184a8…184ce Head {h00=0x0022, h01=0x0050, text=»* FILL MM-TABLE ADDRESS TABLE «, t00=0x00f8, t01=0x014e}
0x184ce…184d6 Head {h00=0x0004, h01=0x0050, t00=0x00f8, t01=0x0174}
0x184d6…184f0 Head {h00=0x0016, h01=0x0050, text=» LD A1,SAVE06,A13 «, t00=0x00f8, t01=0x017c}
0x184f0…1851a Head {h00=0x0026, h01=0x0050, text=» ADK A1,2 INCREMENT TABLE POINTER «, t00=0x00f9, t01=0x0008}
0x1851a…1853c Head {h00=0x001e, h01=0x0050, text=» ST A1,SAVE06,A13 RESTORE «, t00=0x00f9, t01=0x0032}
0x1853c…1855a Head {h00=0x001a, h01=0x0050, text=» STR A2,A1 FILL TABLE «, t00=0x00f9, t01=0x0054}
0x1855a…18586 Head {h00=0x0028, h01=0x0050, text=» CALL T:DADD GET T:D ADDRESS TO A12 «, t00=0x00f9, t01=0x0072}
0x18586…185be Head {h00=0x0034, h01=0x0050, text=» ST A12,T:DSAV,A9 SAVE 'OLD' T:D-ADDRESS IN TTAB«, t00=0x00f9, t01=0x009e}
0x185be…185c6 Head {h00=0x0004, h01=0x0050, t00=0x00f9, t01=0x00d6}
0x185c6…185e8 Head {h00=0x001e, h01=0x0050, text=»* CALCULATE LENGTH OF T:D «, t00=0x00f9, t01=0x00de}
0x185e8…185f0 Head {h00=0x0004, h01=0x0050, t00=0x00f9, t01=0x0100}
0x185f0…18626 Head {h00=0x0032, h01=0x0050, text=» EL A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB«, t00=0x00f9, t01=0x0108}
0x18626…18638 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00f9, t01=0x013e}
0x18638…1865c Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE EVEN ADDRESS «, t00=0x00f9, t01=0x0150}
0x1865c…18688 Head {h00=0x0028, h01=0x0050, text=» ADK A1,DWBFST+4 ADD DISPL. TO FIRST«, t00=0x00f9, t01=0x0174}
0x18688…186b8 Head {h00=0x002c, h01=0x0050, text=» LDR A3,A1 GET NUMB. OF START-POINTS... «, t00=0x00fa, t01=0x0010}
0x186b8…186ce Head {h00=0x0012, h01=0x0050, text=» ADR A3,A12 . «, t00=0x00fa, t01=0x0040}
0x186ce…186e2 Head {h00=0x0010, h01=0x0050, text=» ELR A3,A3 .«, t00=0x00fa, t01=0x0056}
0x186e2…18716 Head {h00=0x0030, h01=0x0050, text=» LDK A2,STPREC GET STARTPOINTS RECORD LENGTH«, t00=0x00fa, t01=0x006a}
0x18716…18736 Head {h00=0x001c, h01=0x0050, text=» CALL MULT AND MULTIPLY «, t00=0x00fa, t01=0x009e}
0x18736…18756 Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 'NUMBER-WORD' «, t00=0x00fa, t01=0x00be}
0x18756…18772 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A1 =>LENGTH «, t00=0x00fa, t01=0x00de}
0x18772…18792 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A12 FROM-ADDRESS«, t00=0x00fa, t01=0x00fa}
0x18792…187b0 Head {h00=0x001a, h01=0x0050, text=» CALL MOVING MOVE T:D «, t00=0x00fa, t01=0x011a}
0x187b0…187d2 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A ADDRESS«, t00=0x00fa, t01=0x0138}
0x187d2…18800 Head {h00=0x002a, h01=0x0050, text=» ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS «, t00=0x00fa, t01=0x015a}
0x18800…18826 Head {h00=0x0022, h01=0x0050, text=» EL A7,CWBMSK,A12 GET CWBMASK «, t00=0x00fa, t01=0x0188}
0x18826…18832 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fb, t01=0x001e}
0x18832…18848 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00fb, t01=0x002a}
0x18848…1885c Head {h00=0x0010, h01=0x0050, text=» CALL MOVCLA«, t00=0x00fb, t01=0x0040}
0x1885c…1886a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fb, t01=0x0054}
0x1886a…18876 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fb, t01=0x0062}
0x18876…18882 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fb, t01=0x006e}
0x18882…188a4 Head {h00=0x001e, h01=0x0050, text=»* TASK CLASS DATA UWB'S * «, t00=0x00fb, t01=0x007a}
0x188a4…188c6 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x00fb, t01=0x009c}
0x188c6…188f0 Head {h00=0x0026, h01=0x0050, text=» IM UWB,A13 INDICATE UWB SCANNING «, t00=0x00fb, t01=0x00be}
0x188f0…1890c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00fb, t01=0x00e8}
0x1890c…18932 Head {h00=0x0022, h01=0x0050, text=» LD A7,UWBMSK,A12 GET UWBMASK «, t00=0x00fb, t01=0x0104}
0x18932…1893e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fb, t01=0x012a}
0x1893e…1895a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00fb, t01=0x0136}
0x1895a…18974 Head {h00=0x0016, h01=0x0050, text=» EL A7,UWBMSK,A12 «, t00=0x00fb, t01=0x0152}
0x18974…18980 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fb, t01=0x016c}
0x18980…18996 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00fb, t01=0x0178}
0x18996…189aa Head {h00=0x0010, h01=0x0050, text=» CALL MOVCLA«, t00=0x00fb, t01=0x018e}
0x189aa…189b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fc, t01=0x0012}
0x189b8…189c4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fc, t01=0x0020}
0x189c4…189d0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fc, t01=0x002c}
0x189d0…189f6 Head {h00=0x0022, h01=0x0050, text=»* MOVE DT:S OF SWB'S & TWB'S *«, t00=0x00fc, t01=0x0038}
0x189f6…18a1c Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x00fc, t01=0x005e}
0x18a1c…18a24 Head {h00=0x0004, h01=0x0050, t00=0x00fc, t01=0x0084}
0x18a24…18a38 Head {h00=0x0010, h01=0x0050, text=»SYA260 EQU *«, t00=0x00fc, t01=0x008c}
0x18a38…18a54 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00fc, t01=0x00a0}
0x18a54…18a6e Head {h00=0x0016, h01=0x0050, text=» LD A7,SWBMSK,A12 «, t00=0x00fc, t01=0x00bc}
0x18a6e…18a88 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA265 NONE«, t00=0x00fc, t01=0x00d6}
0x18a88…18a9c Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00fc, t01=0x00f0}
0x18a9c…18abc Head {h00=0x001c, h01=0x0050, text=»SYA265 LD A7,TWBMSK,A12 «, t00=0x00fc, t01=0x0104}
0x18abc…18ac8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fc, t01=0x0124}
0x18ac8…18ae4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00fc, t01=0x0130}
0x18ae4…18afe Head {h00=0x0016, h01=0x0050, text=» EL A7,SWBMSK,A12 «, t00=0x00fc, t01=0x014c}
0x18afe…18b18 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA265 NONE«, t00=0x00fc, t01=0x0166}
0x18b18…18b2c Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00fc, t01=0x0180}
0x18b2c…18b4c (253, 0, 400) Head {h00=0x001c, h01=0x0050, text=»SYA265 EL A7,TWBMSK,A12 «, t00=0x00fd, t01=0x0004}
0x18b4c…18b58 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fd, t01=0x0024}
0x18b58…18b6e Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00fd, t01=0x0030}
0x18b6e…18b84 Head {h00=0x0012, h01=0x0050, text=» RB(Z) SYA250 «, t00=0x00fd, t01=0x0046}
0x18b84…18b98 Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00fd, t01=0x005c}
0x18b98…18baa Head {h00=0x000e, h01=0x0050, text=» RB SYA250«, t00=0x00fd, t01=0x0070}
0x18baa…18bb6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fd, t01=0x0082}
0x18bb6…18bce Head {h00=0x0014, h01=0x0050, text=»SYA270 RF PRODAT«, t00=0x00fd, t01=0x008e}
0x18bce…18bdc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fd, t01=0x00a6}
0x18bdc…18be8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fd, t01=0x00b4}
0x18be8…18bf4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fd, t01=0x00c0}
0x18bf4…18c2c Head {h00=0x0034, h01=0x0050, text=»** S K R I T T ** «, t00=0x00fd, t01=0x00cc}
0x18c2c…18c64 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x00fd, t01=0x0104}
0x18c64…18c9c Head {h00=0x0034, h01=0x0050, text=»** MOVE D.T ** «, t00=0x00fd, t01=0x013c}
0x18c9c…18cd4 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x00fd, t01=0x0174}
0x18cd4…18d0c Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00fe, t01=0x001c}
0x18d0c…18d20 Head {h00=0x0010, h01=0x0050, text=»SKRITT EQU *«, t00=0x00fe, t01=0x0054}
0x18d20…18d34 Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00fe, t01=0x0068}
0x18d34…18d4a Head {h00=0x0012, h01=0x0050, text=»NO RF(NZ) NES «, t00=0x00fe, t01=0x007c}
0x18d4a…18d5a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00fe, t01=0x0092}
0x18d5a…18d70 Head {h00=0x0012, h01=0x0050, text=»NES CALL GETWB«, t00=0x00fe, t01=0x00a2}
0x18d70…18d84 Head {h00=0x0010, h01=0x0050, text=» CALL MOVDT «, t00=0x00fe, t01=0x00b8}
0x18d84…18db6 Head {h00=0x002e, h01=0x0050, text=» CM NEWAD2,A13 NO NEW W.B.-ADDRESS (YET!) «, t00=0x00fe, t01=0x00cc}
0x18db6…18dca Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00fe, t01=0x00fe}
0x18dca…18dde Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x00fe, t01=0x0112}
0x18dde…18dec Head {h00=0x000a, h01=0x0050, text=» RB NO«, t00=0x00fe, t01=0x0126}
0x18dec…18dfa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fe, t01=0x0134}
0x18dfa…18e06 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fe, t01=0x0142}
0x18e06…18e30 Head {h00=0x0026, h01=0x0050, text=»* BUILD TASKDATA PROTOTYPE AREA * «, t00=0x00fe, t01=0x014e}
0x18e30…18e5a Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00fe, t01=0x0178}
0x18e5a…18e6e Head {h00=0x0010, h01=0x0050, text=»PRODAT EQU *«, t00=0x00ff, t01=0x0012}
0x18e6e…18e80 Head {h00=0x000e, h01=0x0050, text=» =00001«, t00=0x00ff, t01=0x0026}
0x18e80…18eb0 Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE02,A13 BUGGER TASK INCLUDED? «, t00=0x00ff, t01=0x0038}
0x18eb0…18eca Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA275 NO! «, t00=0x00ff, t01=0x0068}
0x18eca…18f00 Head {h00=0x0032, h01=0x0050, text=» CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 «, t00=0x00ff, t01=0x0082}
0x18f00…18f2a Head {h00=0x0026, h01=0x0050, text=» CM TTB:PP,A2 CLEAR TCL SAVE AREA «, t00=0x00ff, t01=0x00b8}
0x18f2a…18f4e Head {h00=0x0020, h01=0x0050, text=» LDR A8,A2 SAVE TTAB-ADDRESS«, t00=0x00ff, t01=0x00e2}
0x18f4e…18f5a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ff, t01=0x0106}
0x18f5a…18f76 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ff, t01=0x0112}
0x18f76…18f9a Head {h00=0x0020, h01=0x0050, text=» CALL MOVMMT MOVE MMU TABLE «, t00=0x00ff, t01=0x012e}
0x18f9a…18fa6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ff, t01=0x0152}
0x18fa6…18fbc Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ff, t01=0x015e}
0x18fbc…18fec Head {h00=0x002c, h01=0x0050, text=» LDK A3,2 RESERV ONE WORD FOR TRABUG-T:A«, t00=0x00ff, t01=0x0174}
0x18fec…1900a Head {h00=0x001a, h01=0x0050, text=» CALL MOVING GET P:BAS«, t00=0x0100, t01=0x0014}
0x1900a…19026 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0100, t01=0x0032}
0x19026…19050 Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTLAC GET START OF P:MTAB «, t00=0x0100, t01=0x004e}
0x19050…19072 Head {h00=0x001e, h01=0x0050, text=» LD A1,P:BAS,A1 GET P:BAS «, t00=0x0100, t01=0x0078}
0x19072…1909a Head {h00=0x0024, h01=0x0050, text=» STR A1,A2 SAVE IN TRABUG'S T:A «, t00=0x0100, t01=0x009a}
0x1909a…190c0 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0100, t01=0x00c2}
0x190c0…190de Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x0100, t01=0x00e8}
0x190de…190f6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) SYA272 NO«, t00=0x0100, t01=0x0106}
0x190f6…19102 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0100, t01=0x011e}
0x19102…19118 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0100, t01=0x012a}
0x19118…1914c Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:CB,A8 SAVE ADDRESS TO CSB-POINTER«, t00=0x0100, t01=0x0140}
0x1914c…19160 Head {h00=0x0010, h01=0x0050, text=»SYA272 EQU *«, t00=0x0100, t01=0x0174}
0x19160…19196 Head {h00=0x0032, h01=0x0050, text=» SUKL A2,CSB ADD DISPL. TO CURRENT SEGMENT BAE«, t00=0x0100, t01=0x0188}
0x19196…191ba Head {h00=0x0020, h01=0x0050, text=» ST A2,TTB:SA+26,A8 SAVE A13«, t00=0x0101, t01=0x002e}
0x191ba…191d6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0101, t01=0x0052}
0x191d6…19200 Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTLAC GET START OF P:MTAB «, t00=0x0101, t01=0x006e}
0x19200…19228 Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 LOAD CORRECT TABLE«, t00=0x0101, t01=0x0098}
0x19228…1924a Head {h00=0x001e, h01=0x0050, text=» EL A1,P:BAS,A1 GET P:BAS «, t00=0x0101, t01=0x00c0}
0x1924a…19276 Head {h00=0x0028, h01=0x0050, text=» TL MMBEG,A8 LOAD TRABUG'S MMU-TABLE«, t00=0x0101, t01=0x00e2}
0x19276…192a6 Head {h00=0x002c, h01=0x0050, text=» ES A1,CSB,A2 STORE CURRENT SEGMENT BASE«, t00=0x0101, t01=0x010e}
0x192a6…192d0 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD DDIV TABLE «, t00=0x0101, t01=0x013e}
0x192d0…192e6 Head {h00=0x0012, h01=0x0050, text=» XIF =00001 «, t00=0x0101, t01=0x0168}
0x192e6…19304 Head {h00=0x001a, h01=0x0050, text=» IFF CREDIT=0 =00001 «, t00=0x0101, t01=0x017e}
0x19304…19318 Head {h00=0x0010, h01=0x0050, text=»SYA275 EQU *«, t00=0x0102, t01=0x000c}
0x19318…1932a Head {h00=0x000e, h01=0x0050, text=» =00001«, t00=0x0102, t01=0x0020}
0x1932a…1933c Head {h00=0x000e, h01=0x0050, text=» =00001«, t00=0x0102, t01=0x0032}
0x1933c…19370 Head {h00=0x0030, h01=0x0050, text=» IM SWITCH,A13 INDICATE: -NO MORE D.T. MOVE!«, t00=0x0102, t01=0x0044}
0x19370…19398 Head {h00=0x0024, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB ADDRESS«, t00=0x0102, t01=0x0078}
0x19398…193b0 Head {h00=0x0014, h01=0x0050, text=»SYA280 ADKL A8,2«, t00=0x0102, t01=0x00a0}
0x193b0…193ca Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x0102, t01=0x00b8}
0x193ca…193e8 Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA290 ALL DONE«, t00=0x0102, t01=0x00d2}
0x193e8…19404 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0102, t01=0x00f0}
0x19404…1942a Head {h00=0x0022, h01=0x0050, text=» LDR* A12,A8 GET T:D ADDRESS..«, t00=0x0102, t01=0x010c}
0x1942a…19446 Head {h00=0x0018, h01=0x0050, text=» LD A12,T:DAD,A12 . «, t00=0x0102, t01=0x0132}
0x19446…1947a Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x0102, t01=0x014e}
0x1947a…19486 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0102, t01=0x0182}
0x19486…194ac Head {h00=0x0022, h01=0x0050, text=»* CALCULATE LENGTH OF DSCB'S *«, t00=0x0102, t01=0x018e}
0x194ac…194d2 Head {h00=0x0022, h01=0x0050, text=»*** ***«, t00=0x0103, t01=0x0024}
0x194d2…194de Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0103, t01=0x004a}
0x194de…19502 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0103, t01=0x0056}
0x19502…1952c Head {h00=0x0026, h01=0x0050, text=» LD A3,DATLEN,A12 A12=T:D-ADDRESS «, t00=0x0103, t01=0x007a}
0x1952c…1954e Head {h00=0x001e, h01=0x0050, text=» LDK A2,DSCBL DSCB-LENGTH «, t00=0x0103, t01=0x00a4}
0x1954e…1957a Head {h00=0x0028, h01=0x0050, text=» CALL MULT A3() X (A2) RESULT IN A3 «, t00=0x0103, t01=0x00c6}
0x1957a…195a4 Head {h00=0x0026, h01=0x0050, text=» ST A3,CSN,A1 SAVE LENG OF DSCB'S «, t00=0x0103, t01=0x00f2}
0x195a4…195d0 Head {h00=0x0028, h01=0x0050, text=» LD A2,FCD,A12 GET FCB-DISPLACEMENT «, t00=0x0103, t01=0x011c}
0x195d0…195f2 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SYA285 FCB PRESENT«, t00=0x0103, t01=0x0148}
0x195f2…1961c Head {h00=0x0026, h01=0x0050, text=» SUR A2,A3 MOVD30E A3(DSCB-LENGTH)«, t00=0x0103, t01=0x016a}
0x1961c…1964c (260, 0, 400) Head {h00=0x002c, h01=0x0050, text=» ADKL A2,T:ASTA INCREMENT TO FIRST WORD «, t00=0x0104, t01=0x0004}
0x1964c…19686 Head {h00=0x0036, h01=0x0050, text=»SYA285 ST A2,CIA,A1 SAVE DISPLACEMENT TO T:A-START«, t00=0x0104, t01=0x0034}
0x19686…196ac Head {h00=0x0022, h01=0x0050, text=» LD A2,STKB,A1 GET STACK SIZE «, t00=0x0104, t01=0x006e}
0x196ac…196d4 Head {h00=0x0024, h01=0x0050, text=» ST A2,CSE,A1 AND SAVE TEMPORARY«, t00=0x0104, t01=0x0094}
0x196d4…19702 Head {h00=0x002a, h01=0x0050, text=» LD A2,SCTLAC GET START OF COMMON PART«, t00=0x0104, t01=0x00bc}
0x19702…19724 Head {h00=0x001e, h01=0x0050, text=» LD A2,P:BAS,A2 GET P:BAS «, t00=0x0104, t01=0x00ea}
0x19724…19742 Head {h00=0x001a, h01=0x0050, text=» ST A2,CSB,A1 AND SAVE«, t00=0x0104, t01=0x010c}
0x19742…19768 Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x0104, t01=0x012a}
0x19768…19786 Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x0104, t01=0x0150}
0x19786…197b4 Head {h00=0x002a, h01=0x0050, text=» STR A2,A8 STORE NEW ADDRESS IN T:ATAB«, t00=0x0104, t01=0x016e}
0x197b4…197c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0105, t01=0x000c}
0x197c0…197dc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0105, t01=0x0018}
0x197dc…1980a Head {h00=0x002a, h01=0x0050, text=» CALL GETTAB SET CORRECT TTAB-ADDRESS «, t00=0x0105, t01=0x0034}
0x1980a…1983a Head {h00=0x002c, h01=0x0050, text=» LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS «, t00=0x0105, t01=0x0062}
0x1983a…19842 Head {h00=0x0004, h01=0x0050, t00=0x0105, t01=0x0092}
0x19842…19878 Head {h00=0x0032, h01=0x0050, text=»* GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE «, t00=0x0105, t01=0x009a}
0x19878…19880 Head {h00=0x0004, h01=0x0050, t00=0x0105, t01=0x00d0}
0x19880…198ac Head {h00=0x0028, h01=0x0050, text=» TL MMBEG,A2 LOAD CLASS LOCAL TABLE «, t00=0x0105, t01=0x00d8}
0x198ac…198da Head {h00=0x002a, h01=0x0050, text=» LDKL A3,MMTAB GET WORK TABLE ADDRESS «, t00=0x0105, t01=0x0104}
0x198da…198ee Head {h00=0x0010, h01=0x0050, text=» ADR A3,A13 «, t00=0x0105, t01=0x0132}
0x198ee…19916 Head {h00=0x0024, h01=0x0050, text=» TSR A3 STORE TABLE IN WORK-AREA«, t00=0x0105, t01=0x0146}
0x19916…1993e Head {h00=0x0024, h01=0x0050, text=» TL MMDDIV,A13 RELOAD DDIV TABLE«, t00=0x0105, t01=0x016e}
0x1993e…1995c Head {h00=0x001a, h01=0x0050, text=» CALL MMENT GET ENTRY «, t00=0x0106, t01=0x0008}
0x1995c…19982 Head {h00=0x0022, h01=0x0050, text=» ST A3,T:DSAV,A2 SAVE IN TTAB «, t00=0x0106, t01=0x0026}
0x19982…199b6 Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x0106, t01=0x004c}
0x199b6…199dc Head {h00=0x0022, h01=0x0050, text=»* CALCULATE LENGTH OF DSCB'S *«, t00=0x0106, t01=0x0080}
0x199dc…19a02 Head {h00=0x0022, h01=0x0050, text=»*** ***«, t00=0x0106, t01=0x00a6}
0x19a02…19a0e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0106, t01=0x00cc}
0x19a0e…19a30 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0106, t01=0x00d8}
0x19a30…19a5a Head {h00=0x0026, h01=0x0050, text=» EL A3,DATLEN,A12 A12=T:D-ADDRESS «, t00=0x0106, t01=0x00fa}
0x19a5a…19a7c Head {h00=0x001e, h01=0x0050, text=» LDK A2,DSCBL DSCB-LENGTH «, t00=0x0106, t01=0x0124}
0x19a7c…19aa8 Head {h00=0x0028, h01=0x0050, text=» CALL MULT A3() X (A2) RESULT IN A3 «, t00=0x0106, t01=0x0146}
0x19aa8…19ad2 Head {h00=0x0026, h01=0x0050, text=» ES A3,CSN,A1 SAVE LENG OF DSCB'S «, t00=0x0106, t01=0x0172}
0x19ad2…19afe Head {h00=0x0028, h01=0x0050, text=» EL A2,FCD,A12 GET FCB-DISPLACEMENT «, t00=0x0107, t01=0x000c}
0x19afe…19b20 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SYA285 FCB PRESENT«, t00=0x0107, t01=0x0038}
0x19b20…19b4a Head {h00=0x0026, h01=0x0050, text=» SUR A2,A3 MOVD30E A3(DSCB-LENGTH)«, t00=0x0107, t01=0x005a}
0x19b4a…19b7a Head {h00=0x002c, h01=0x0050, text=» ADKL A2,T:ASTA INCREMENT TO FIRST WORD «, t00=0x0107, t01=0x0084}
0x19b7a…19bb4 Head {h00=0x0036, h01=0x0050, text=»SYA285 ES A2,CIA,A1 SAVE DISPLACEMENT TO T:A-ESART«, t00=0x0107, t01=0x00b4}
0x19bb4…19bda Head {h00=0x0022, h01=0x0050, text=» EL A2,STKB,A1 GET STACK SIZE «, t00=0x0107, t01=0x00ee}
0x19bda…19c04 Head {h00=0x0026, h01=0x0050, text=» ES A2,CSE,A1 AND SAVE (TEMPORARY)«, t00=0x0107, t01=0x0114}
0x19c04…19c2e Head {h00=0x0026, h01=0x0050, text=» LD A2,SCTLAC GET START OF P:MTAB «, t00=0x0107, t01=0x013e}
0x19c2e…19c56 Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 LOAD CORRECT TABLE«, t00=0x0107, t01=0x0168}
0x19c56…19c78 Head {h00=0x001e, h01=0x0050, text=» EL A2,P:BAS,A2 GET P:BAS «, t00=0x0107, t01=0x0190}
0x19c78…19ca2 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD DDIV TABLE «, t00=0x0108, t01=0x0022}
0x19ca2…19cc0 Head {h00=0x001a, h01=0x0050, text=» ES A2,CSB,A1 AND SAVE«, t00=0x0108, t01=0x004c}
0x19cc0…19ce6 Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x0108, t01=0x006a}
0x19ce6…19d04 Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x0108, t01=0x0090}
0x19d04…19d32 Head {h00=0x002a, h01=0x0050, text=» ESR A2,A8 STORE NEW ADDRESS IN T:ATAB«, t00=0x0108, t01=0x00ae}
0x19d32…19d3e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0108, t01=0x00dc}
0x19d3e…19d54 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0108, t01=0x00e8}
0x19d54…19d6c Head {h00=0x0014, h01=0x0050, text=» RB SYA280 NEXT «, t00=0x0108, t01=0x00fe}
0x19d6c…19d7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0108, t01=0x0116}
0x19d7a…19d8e Head {h00=0x0010, h01=0x0050, text=»SYA290 EQU *«, t00=0x0108, t01=0x0124}
0x19d8e…19dc6 Head {h00=0x0034, h01=0x0050, text=» IM FLAG,A13 INDICATE REAL DATA-PART PROCESSING «, t00=0x0108, t01=0x0138}
0x19dc6…19df6 Head {h00=0x002c, h01=0x0050, text=»* INCLUDE DDIV AND PART 2.A IN FREE AREA«, t00=0x0108, t01=0x0170}
0x19df6…19dfe Head {h00=0x0004, h01=0x0050, t00=0x0109, t01=0x0010}
0x19dfe…19e30 Head {h00=0x002e, h01=0x0050, text=» LDKL A2,PART2A NEW (RELATIVE) END ADDRESS«, t00=0x0109, t01=0x0018}
0x19e30…19e50 Head {h00=0x001c, h01=0x0050, text=» ADR A2,A13 ABSOLUT DITO«, t00=0x0109, t01=0x004a}
0x19e50…19e6c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0109, t01=0x006a}
0x19e6c…19e7e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0109, t01=0x0086}
0x19e7e…19e94 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/F000«, t00=0x0109, t01=0x0098}
0x19e94…19ebc Head {h00=0x0024, h01=0x0050, text=» SRL A3,2 GET NEW PHYSICALL PAGE«, t00=0x0109, t01=0x00ae}
0x19ebc…19eda Head {h00=0x001a, h01=0x0050, text=» ST A3,FSTPAG,A13 SAVE«, t00=0x0109, t01=0x00d6}
0x19eda…19f06 Head {h00=0x0028, h01=0x0050, text=» ANKL A2,/FFF GET NEW PAGE INCREMENT«, t00=0x0109, t01=0x00f4}
0x19f06…19f24 Head {h00=0x001a, h01=0x0050, text=» ST A2,FSTADR,A13 SAVE«, t00=0x0109, t01=0x0120}
0x19f24…19f3a Head {h00=0x0012, h01=0x0050, text=»* MOVE T:ATAB «, t00=0x0109, t01=0x013e}
0x19f3a…19f42 Head {h00=0x0004, h01=0x0050, t00=0x0109, t01=0x0154}
0x19f42…19f70 Head {h00=0x002a, h01=0x0050, text=» LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS«, t00=0x0109, t01=0x015c}
0x19f70…19f7c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0109, t01=0x018a}
0x19f7c…19f98 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x010a, t01=0x0008}
0x19f98…19fc6 Head {h00=0x002a, h01=0x0050, text=» ST A2,DATEND,A13 SAVE NEW END ADDRESS«, t00=0x010a, t01=0x0024}
0x19fc6…19fdc Head {h00=0x0012, h01=0x0050, text=»* MOVE T:ATAB «, t00=0x010a, t01=0x0052}
0x19fdc…19fe4 Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x0068}
0x19fe4…1a016 Head {h00=0x002e, h01=0x0050, text=» LD A2,T:ATNW,A13 GET REAL T:A-TAB ADDRESS«, t00=0x010a, t01=0x0070}
0x1a016…1a036 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A2 REAL LENGTH «, t00=0x010a, t01=0x00a2}
0x1a036…1a05e Head {h00=0x0024, h01=0x0050, text=» ADR A2,A1 END OF TABLE ADDRESS «, t00=0x010a, t01=0x00c2}
0x1a05e…1a07c Head {h00=0x001a, h01=0x0050, text=» ST A2,ENDADD,A13 SAVE«, t00=0x010a, t01=0x00ea}
0x1a07c…1a0a6 Head {h00=0x0026, h01=0x0050, text=» LD A1,T:ATOD,A13 GET FROM-ADDRESS«, t00=0x010a, t01=0x0108}
0x1a0a6…1a0c6 Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A1 MOVE-LENGTH «, t00=0x010a, t01=0x0132}
0x1a0c6…1a0e4 Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x010a, t01=0x0152}
0x1a0e4…1a102 Head {h00=0x001a, h01=0x0050, text=» ST A2,T:ATOD,A13 SAVE«, t00=0x010a, t01=0x0170}
0x1a102…1a114 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x010a, t01=0x018e}
0x1a114…1a120 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010b, t01=0x0010}
0x1a120…1a13c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x010b, t01=0x001c}
0x1a13c…1a164 Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 LOAD CORRECT TABLE«, t00=0x010b, t01=0x0038}
0x1a164…1a18e Head {h00=0x0026, h01=0x0050, text=» ELR A1,A2 GET REAL T:ATAB LENGTH «, t00=0x010b, t01=0x0060}
0x1a18e…1a1b2 Head {h00=0x0020, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE«, t00=0x010b, t01=0x008a}
0x1a1b2…1a1d0 Head {h00=0x001a, h01=0x0050, text=» ADR A2,A1 END ADDRESS«, t00=0x010b, t01=0x00ae}
0x1a1d0…1a208 Head {h00=0x0034, h01=0x0050, text=» ST A2,ENDADD,A13 SAVE 'END-OF-T:ATAB-CONDITION'«, t00=0x010b, t01=0x00cc}
0x1a208…1a236 Head {h00=0x002a, h01=0x0050, text=» LD A1,T:ATOD,A13 GET PROTOTYP T:ATAB «, t00=0x010b, t01=0x0104}
0x1a236…1a254 Head {h00=0x001a, h01=0x0050, text=» ELR A3,A1 GET LENGTH «, t00=0x010b, t01=0x0132}
0x1a254…1a272 Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x010b, t01=0x0150}
0x1a272…1a290 Head {h00=0x001a, h01=0x0050, text=» ST A2,T:ATOD,A13 SAVE«, t00=0x010b, t01=0x016e}
0x1a290…1a2a4 Head {h00=0x0010, h01=0x0050, text=» CALL XMOVE «, t00=0x010b, t01=0x018c}
0x1a2a4…1a2b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010c, t01=0x0010}
0x1a2b0…1a2c6 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x010c, t01=0x001c}
0x1a2c6…1a2ce Head {h00=0x0004, h01=0x0050, t00=0x010c, t01=0x0032}
0x1a2ce…1a2ee Head {h00=0x001c, h01=0x0050, text=»* CONTINUE IN PART 2.B *«, t00=0x010c, t01=0x003a}
0x1a2ee…1a2f6 Head {h00=0x0004, h01=0x0050, t00=0x010c, t01=0x005a}
0x1a2f6…1a324 Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PART2B RELATIVE START ADDRESS«, t00=0x010c, t01=0x0062}
0x1a324…1a348 Head {h00=0x0020, h01=0x0050, text=» ADR A5,A13 ADD BASE ADDRESS«, t00=0x010c, t01=0x0090}
0x1a348…1a358 Head {h00=0x000c, h01=0x0050, text=» ABR A5 «, t00=0x010c, t01=0x00b4}
0x1a358…1a382 Head {h00=0x0026, h01=0x0050, text=»LENGT2 EQU *-REL LENGTH OF PART 2 «, t00=0x010c, t01=0x00c4}
0x1a382…1a390 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010c, t01=0x00ee}
0x1a390…1a39c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010c, t01=0x00fc}
0x1a39c…1a3a8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010c, t01=0x0108}
0x1a3a8…1a3de Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x010c, t01=0x0114}
0x1a3de…1a414 Head {h00=0x0032, h01=0x0050, text=»******* ******* «, t00=0x010c, t01=0x014a}
0x1a414…1a44a Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x010c, t01=0x0180}
0x1a44a…1a480 Head {h00=0x0032, h01=0x0050, text=»* SYSLOAD PART 1 * «, t00=0x010d, t01=0x0026}
0x1a480…1a4b6 Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x010d, t01=0x005c}
0x1a4b6…1a4ec Head {h00=0x0032, h01=0x0050, text=»***** ***** «, t00=0x010d, t01=0x0092}
0x1a4ec…1a522 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x010d, t01=0x00c8}
0x1a522…1a52e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010d, t01=0x00fe}
0x1a52e…1a564 Head {h00=0x0032, h01=0x0050, text=»* READ CONFIGURATION FILE & BUILD * «, t00=0x010d, t01=0x010a}
0x1a564…1a59a Head {h00=0x0032, h01=0x0050, text=»* SHADOW-TABLES * «, t00=0x010d, t01=0x0140}
0x1a59a…1a5d0 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x010d, t01=0x0176}
0x1a5d0…1a606 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x010e, t01=0x001c}
0x1a606…1a612 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010e, t01=0x0052}
0x1a612…1a61e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010e, t01=0x005e}
0x1a61e…1a62a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010e, t01=0x006a}
0x1a62a…1a636 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010e, t01=0x0076}
0x1a636…1a664 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x010e, t01=0x0082}
0x1a664…1a692 Head {h00=0x002a, h01=0x0050, text=»*** *** «, t00=0x010e, t01=0x00b0}
0x1a692…1a6c0 Head {h00=0x002a, h01=0x0050, text=»** S U B R O U T I N E S ** «, t00=0x010e, t01=0x00de}
0x1a6c0…1a6ec Head {h00=0x0028, h01=0x0050, text=»** -USED IN THIS PART ONLY *«, t00=0x010e, t01=0x010c}
0x1a6ec…1a71a Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x010e, t01=0x0138}
0x1a71a…1a728 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x0166}
0x1a728…1a734 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010e, t01=0x0174}
0x1a734…1a740 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010e, t01=0x0180}
0x1a740…1a77a Head {h00=0x0036, h01=0x0050, text=»** C O N V R T **«, t00=0x010e, t01=0x018c}
0x1a77a…1a7b4 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x010f, t01=0x0036}
0x1a7b4…1a7ee Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x010f, t01=0x0070}
0x1a7ee…1a828 Head {h00=0x0036, h01=0x0050, text=»** CONVERSION OF TWO ASCII-DIGITS TO BINARY **«, t00=0x010f, t01=0x00aa}
0x1a828…1a862 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x010f, t01=0x00e4}
0x1a862…1a89c Head {h00=0x0036, h01=0x0050, text=»** INPUT : A5=ASCII DIGITS **«, t00=0x010f, t01=0x011e}
0x1a89c…1a8d6 Head {h00=0x0036, h01=0x0050, text=»** OUTPUT: A1=BINARY RESULT **«, t00=0x010f, t01=0x0158}
0x1a8d6…1a910 (272, 0, 400) Head {h00=0x0036, h01=0x0050, text=»** WORK.REGS: A3,A2 **«, t00=0x0110, t01=0x0004}
0x1a910…1a94a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0110, t01=0x003e}
0x1a94a…1a956 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0110, t01=0x0078}
0x1a956…1a96a Head {h00=0x0010, h01=0x0050, text=»CONVRT EQU *«, t00=0x0110, t01=0x0084}
0x1a96a…1a98c Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 CLEAR RESULT REG«, t00=0x0110, t01=0x0098}
0x1a98c…1a99e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x0110, t01=0x00ba}
0x1a99e…1a9ba Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 GET TEN'S «, t00=0x0110, t01=0x00cc}
0x1a9ba…1a9ce Head {h00=0x0010, h01=0x0050, text=» SUK A3,/30 «, t00=0x0110, t01=0x00e8}
0x1a9ce…1a9e0 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0110, t01=0x00fc}
0x1a9e0…1a9fe Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 MULT BY 10 «, t00=0x0110, t01=0x010e}
0x1a9fe…1aa12 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A1 .«, t00=0x0110, t01=0x012c}
0x1aa12…1aa26 Head {h00=0x0010, h01=0x0050, text=» SLL A2,3 . «, t00=0x0110, t01=0x0140}
0x1aa26…1aa3e Head {h00=0x0014, h01=0x0050, text=» ADR A1,A2 .... «, t00=0x0110, t01=0x0154}
0x1aa3e…1aa50 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x0110, t01=0x016c}
0x1aa50…1aa6c Head {h00=0x0018, h01=0x0050, text=» ANK A3,/F GET ONE'S«, t00=0x0110, t01=0x017e}
0x1aa6c…1aa7e Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0111, t01=0x000a}
0x1aa7e…1aa8e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0111, t01=0x001c}
0x1aa8e…1aa9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0111, t01=0x002c}
0x1aa9c…1aaa4 Head {h00=0x0004, h01=0x0050, t00=0x0111, t01=0x003a}
0x1aaa4…1aade Head {h00=0x0036, h01=0x0050, text=»** N X T B L K **«, t00=0x0111, t01=0x0042}
0x1aade…1ab18 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0111, t01=0x007c}
0x1ab18…1ab52 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0111, t01=0x00b6}
0x1ab52…1ab8c Head {h00=0x0036, h01=0x0050, text=»** SKIP TO NEXT BLOCK IN CONFIGURATION FILE **«, t00=0x0111, t01=0x00f0}
0x1ab8c…1abc6 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0111, t01=0x012a}
0x1abc6…1ac00 Head {h00=0x0036, h01=0x0050, text=»** INPUT: A11=ADDRESS TO CURRENT BLOCK-START **«, t00=0x0111, t01=0x0164}
0x1ac00…1ac3a Head {h00=0x0036, h01=0x0050, text=»** OUTPUT:A11=ADDRESS TO NEXT BLOCK **«, t00=0x0112, t01=0x000e}
0x1ac3a…1ac74 Head {h00=0x0036, h01=0x0050, text=»** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE **«, t00=0x0112, t01=0x0048}
0x1ac74…1acae Head {h00=0x0036, h01=0x0050, text=»** WORKREGS: A1,A3-A5 **«, t00=0x0112, t01=0x0082}
0x1acae…1ace8 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0112, t01=0x00bc}
0x1ace8…1acf0 Head {h00=0x0004, h01=0x0050, t00=0x0112, t01=0x00f6}
0x1acf0…1ad04 Head {h00=0x0010, h01=0x0050, text=»NXTBLK EQU *«, t00=0x0112, t01=0x00fe}
0x1ad04…1ad3e Head {h00=0x0036, h01=0x0050, text=» ADKL A11,TDBNC NUMBER OF TERMINAL DEVICE CLASSES «, t00=0x0112, t01=0x0112}
0x1ad3e…1ad74 Head {h00=0x0032, h01=0x0050, text=»NXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK «, t00=0x0112, t01=0x014c}
0x1ad74…1ad88 Head {h00=0x0010, h01=0x0050, text=» LCR A5,A11 «, t00=0x0112, t01=0x0182}
0x1ad88…1ad9a Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0113, t01=0x0008}
0x1ad9a…1adae Head {h00=0x0010, h01=0x0050, text=» LC A5,1,A11«, t00=0x0113, t01=0x001a}
0x1adae…1adc2 Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x0113, t01=0x002e}
0x1adc2…1add8 Head {h00=0x0012, h01=0x0050, text=» LDK A2,TDBREC«, t00=0x0113, t01=0x0042}
0x1add8…1adea Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0113, t01=0x0058}
0x1adea…1adfc Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x0113, t01=0x006a}
0x1adfc…1ae10 Head {h00=0x0010, h01=0x0050, text=» ADR A11,A3 «, t00=0x0113, t01=0x007c}
0x1ae10…1ae24 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x0113, t01=0x0090}
0x1ae24…1ae58 Head {h00=0x0030, h01=0x0050, text=» LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES«, t00=0x0113, t01=0x00a4}
0x1ae58…1ae6a Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0113, t01=0x00d8}
0x1ae6a…1ae7e Head {h00=0x0010, h01=0x0050, text=» LC A5,1,A11«, t00=0x0113, t01=0x00ea}
0x1ae7e…1ae92 Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x0113, t01=0x00fe}
0x1ae92…1aec2 Head {h00=0x002c, h01=0x0050, text=» LDK A2,SDC SPEC. DEV. CL. RECORD LENGTH«, t00=0x0113, t01=0x0112}
0x1aec2…1aed4 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0113, t01=0x0142}
0x1aed4…1aee6 Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x0113, t01=0x0154}
0x1aee6…1af08 Head {h00=0x001e, h01=0x0050, text=» ADR A11,A3 A11=NEXT BLOCK«, t00=0x0113, t01=0x0166}
0x1af08…1af1c Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x0113, t01=0x0188}
0x1af1c…1af44 Head {h00=0x0024, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCK TYPE «, t00=0x0114, t01=0x000c}
0x1af44…1af54 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0114, t01=0x0034}
0x1af54…1af60 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0114, t01=0x0044}
0x1af60…1af6c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0114, t01=0x0050}
0x1af6c…1afa8 Head {h00=0x0038, h01=0x0050, text=»** G E T N U M **«, t00=0x0114, t01=0x005c}
0x1afa8…1afe4 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0114, t01=0x0098}
0x1afe4…1b020 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0114, t01=0x00d4}
0x1b020…1b05c Head {h00=0x0038, h01=0x0050, text=»** CONVERT 3 ASCII-DIGITS TO BINARY **«, t00=0x0114, t01=0x0110}
0x1b05c…1b098 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0114, t01=0x014c}
0x1b098…1b0d4 Head {h00=0x0038, h01=0x0050, text=»** INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER **«, t00=0x0114, t01=0x0188}
0x1b0d4…1b110 Head {h00=0x0038, h01=0x0050, text=»** OUTPUT: A5=BINARY VALUE **«, t00=0x0115, t01=0x0034}
0x1b110…1b14c Head {h00=0x0038, h01=0x0050, text=»** WORK.REGS: A2,A4 **«, t00=0x0115, t01=0x0070}
0x1b14c…1b188 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0115, t01=0x00ac}
0x1b188…1b194 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0115, t01=0x00e8}
0x1b194…1b1a8 Head {h00=0x0010, h01=0x0050, text=»GETNUM EQU *«, t00=0x0115, t01=0x00f4}
0x1b1a8…1b1cc Head {h00=0x0020, h01=0x0050, text=» LDK A4,100 FIRST INCREMENT «, t00=0x0115, t01=0x0108}
0x1b1cc…1b1ee Head {h00=0x001e, h01=0x0050, text=» LDK A5,0 CLEAR RESULT REG«, t00=0x0115, t01=0x012c}
0x1b1ee…1b20c Head {h00=0x001a, h01=0x0050, text=» SUK A6,1 INIT POINTER«, t00=0x0115, t01=0x014e}
0x1b20c…1b22e Head {h00=0x001e, h01=0x0050, text=»GET030 ADK A6,1 NEXT DIGIT«, t00=0x0115, t01=0x016c}
0x1b22e…1b24a Head {h00=0x0018, h01=0x0050, text=» LCR A2,A6 GET CHAR «, t00=0x0115, t01=0x018e}
0x1b24a…1b25c Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0116, t01=0x001a}
0x1b25c…1b274 Head {h00=0x0014, h01=0x0050, text=»GET050 SUK A2,1 «, t00=0x0116, t01=0x002c}
0x1b274…1b29a Head {h00=0x0022, h01=0x0050, text=» RF(N) GET100 THIS DIGIT READY«, t00=0x0116, t01=0x0044}
0x1b29a…1b2b8 Head {h00=0x001a, h01=0x0050, text=» ADR A5,A4 ACCUMULATE «, t00=0x0116, t01=0x006a}
0x1b2b8…1b2ca Head {h00=0x000e, h01=0x0050, text=» RB GET050«, t00=0x0116, t01=0x0088}
0x1b2ca…1b2fa Head {h00=0x002c, h01=0x0050, text=»GET100 SUK A4,90 NEXT INCREMENT (TEN'S) «, t00=0x0116, t01=0x009a}
0x1b2fa…1b310 Head {h00=0x0012, h01=0x0050, text=» RB(P) GET030 «, t00=0x0116, t01=0x00ca}
0x1b310…1b33a Head {h00=0x0026, h01=0x0050, text=» ADK A4,81 NEXT INCREMENT (ONE'S) «, t00=0x0116, t01=0x00e0}
0x1b33a…1b35c Head {h00=0x001e, h01=0x0050, text=» RB(P) GET030 THIRD DIGIT «, t00=0x0116, t01=0x010a}
0x1b35c…1b36c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0116, t01=0x012c}
0x1b36c…1b37a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0116, t01=0x013c}
0x1b37a…1b382 Head {h00=0x0004, h01=0x0050, t00=0x0116, t01=0x014a}
0x1b382…1b3a6 Head {h00=0x0020, h01=0x0050, text=»* START OF PROGRAM PART 1 * «, t00=0x0116, t01=0x0152}
0x1b3a6…1b3ae Head {h00=0x0004, h01=0x0050, t00=0x0116, t01=0x0176}
0x1b3ae…1b3e6 Head {h00=0x0034, h01=0x0050, text=»* SAVE02=POINTER TO 1:ST USER TASK TTAB-ADDRESS «, t00=0x0116, t01=0x017e}
0x1b3e6…1b40e Head {h00=0x0024, h01=0x0050, text=»* SAVE09=EXECUTION START ADDRESS«, t00=0x0117, t01=0x0026}
0x1b40e…1b41a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0117, t01=0x004e}
0x1b41a…1b440 Head {h00=0x0022, h01=0x0050, text=»SYSLDX EQU *-REL PROGRAM START«, t00=0x0117, t01=0x005a}
0x1b440…1b44a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0080}
0x1b44a…1b464 Head {h00=0x0016, h01=0x0050, text=»* INIT A15 STACK «, t00=0x0117, t01=0x008a}
0x1b464…1b46e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x00a4}
0x1b46e…1b484 Head {h00=0x0012, h01=0x0050, text=» LD A15,SCTSTB«, t00=0x0117, t01=0x00ae}
0x1b484…1b498 Head {h00=0x0010, h01=0x0050, text=» SUKL A15,4 «, t00=0x0117, t01=0x00c4}
0x1b498…1b4a0 Head {h00=0x0004, h01=0x0050, t00=0x0117, t01=0x00d8}
0x1b4a0…1b4ca Head {h00=0x0026, h01=0x0050, text=» LD A2,SCTLAC GET S:GTAB (IF ANY) «, t00=0x0117, t01=0x00e0}
0x1b4ca…1b4e0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0117, t01=0x010a}
0x1b4e0…1b512 Head {h00=0x002e, h01=0x0050, text=» LD A2,CREID,A2 GET CREDIT IDENTIFICATION «, t00=0x0117, t01=0x0120}
0x1b512…1b51e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0117, t01=0x0152}
0x1b51e…1b534 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0117, t01=0x015e}
0x1b534…1b54e Head {h00=0x0016, h01=0x0050, text=» TL MMTAB,A13 %%##«, t00=0x0117, t01=0x0174}
0x1b54e…1b566 Head {h00=0x0014, h01=0x0050, text=» EL A2,CREID,A2 «, t00=0x0117, t01=0x018e}
0x1b566…1b572 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0118, t01=0x0016}
0x1b572…1b5a8 Head {h00=0x0032, h01=0x0050, text=» CM SWITCH,A13 RESET SAVE-AREAS USED IN SYSLDM«, t00=0x0118, t01=0x0022}
0x1b5a8…1b5bc Head {h00=0x0010, h01=0x0050, text=» CM FLAG,A13«, t00=0x0118, t01=0x0058}
0x1b5bc…1b5e4 Head {h00=0x0024, h01=0x0050, text=» CWK A2,'CR' CREDIT APPLICATION?«, t00=0x0118, t01=0x006c}
0x1b5e4…1b610 Head {h00=0x0028, h01=0x0050, text=» RF(E) SYA100 YES! START CONFIGURATE«, t00=0x0118, t01=0x0094}
0x1b610…1b626 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x0118, t01=0x00c0}
0x1b626…1b62e Head {h00=0x0004, h01=0x0050, t00=0x0118, t01=0x00d6}
0x1b62e…1b64e Head {h00=0x001c, h01=0x0050, text=»* ASSEMBLER APPLICATION «, t00=0x0118, t01=0x00de}
0x1b64e…1b656 Head {h00=0x0004, h01=0x0050, t00=0x0118, t01=0x00fe}
0x1b656…1b676 Head {h00=0x001c, h01=0x0050, text=»* SWITCH TO LEVEL 0 ENB «, t00=0x0118, t01=0x0106}
0x1b676…1b67e Head {h00=0x0004, h01=0x0050, t00=0x0118, t01=0x0126}
0x1b67e…1b6aa Head {h00=0x0028, h01=0x0050, text=» LDKL A4,SYA103 CONTINUATION ADDRESS«, t00=0x0118, t01=0x012e}
0x1b6aa…1b6c6 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A13 RELOCATE«, t00=0x0118, t01=0x015a}
0x1b6c6…1b6e6 Head {h00=0x001c, h01=0x0050, text=» STR A4,A15 PUT ON STACK«, t00=0x0118, t01=0x0176}
0x1b6e6…1b6fc Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/00C0«, t00=0x0119, t01=0x0008}
0x1b6fc…1b720 Head {h00=0x0020, h01=0x0050, text=» STR A4,A15 PUT PSW ON STACK«, t00=0x0119, t01=0x001e}
0x1b720…1b730 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0119, t01=0x0042}
0x1b730…1b748 Head {h00=0x0014, h01=0x0050, text=»SYA103 EQU *-REL«, t00=0x0119, t01=0x0052}
0x1b748…1b754 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0119, t01=0x006a}
0x1b754…1b770 Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x0119, t01=0x0076}
0x1b770…1b79c Head {h00=0x0028, h01=0x0050, text=» LDKL A4,MMTAB GET MM-TABLE ADDRESS «, t00=0x0119, t01=0x0092}
0x1b79c…1b7b8 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A13 RELOCATE«, t00=0x0119, t01=0x00be}
0x1b7b8…1b7d6 Head {h00=0x001a, h01=0x0050, text=» ST A4,MMFROM,A13 SAVE«, t00=0x0119, t01=0x00da}
0x1b7d6…1b802 Head {h00=0x0028, h01=0x0050, text=»* FILL MM-TABLES IN USER TASK TTAB'S«, t00=0x0119, t01=0x00f8}
0x1b802…1b80a Head {h00=0x0004, h01=0x0050, t00=0x0119, t01=0x0124}
0x1b80a…1b836 Head {h00=0x0028, h01=0x0050, text=» LD* A5,SCTTCT GET LENGTH OF TC:TAB «, t00=0x0119, t01=0x012c}
0x1b836…1b85e Head {h00=0x0024, h01=0x0050, text=» LD A6,SAVE02,A13 1:ST USER TASK«, t00=0x0119, t01=0x0158}
0x1b85e…1b876 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A6 SAVE «, t00=0x0119, t01=0x0180}
0x1b876…1b8aa Head {h00=0x0030, h01=0x0050, text=» SU A3,SCTTCT GET DISPLACEMENT TO 1:ST USER «, t00=0x011a, t01=0x0008}
0x1b8aa…1b8d8 Head {h00=0x002a, h01=0x0050, text=» SUR A5,A3 => LENGTH OF TC:TAB TO SCAN«, t00=0x011a, t01=0x003c}
0x1b8d8…1b8e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x006a}
0x1b8e2…1b904 Head {h00=0x001e, h01=0x0050, text=»* INIT UNUSED MMU ENTRIES«, t00=0x011a, t01=0x0074}
0x1b904…1b90e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x0096}
0x1b90e…1b924 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FC00«, t00=0x011a, t01=0x00a0}
0x1b924…1b93a Head {h00=0x0012, h01=0x0050, text=» LDKL A2,MMTAB«, t00=0x011a, t01=0x00b6}
0x1b93a…1b94e Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x011a, t01=0x00cc}
0x1b94e…1b968 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A2 =00002«, t00=0x011a, t01=0x00e0}
0x1b968…1b97e Head {h00=0x0012, h01=0x0050, text=» SUKL A4,MMBEG«, t00=0x011a, t01=0x00fa}
0x1b97e…1b994 Head {h00=0x0012, h01=0x0050, text=» AD A4,SCTMMC «, t00=0x011a, t01=0x0110}
0x1b994…1b9ac Head {h00=0x0014, h01=0x0050, text=»SYA:10 CWR A4,A2«, t00=0x011a, t01=0x0126}
0x1b9ac…1b9c2 Head {h00=0x0012, h01=0x0050, text=» RF(E) SYA105 «, t00=0x011a, t01=0x013e}
0x1b9c2…1b9d4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x011a, t01=0x0154}
0x1b9d4…1b9e6 Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x011a, t01=0x0166}
0x1b9e6…1b9f8 Head {h00=0x000e, h01=0x0050, text=» RB SYA:10«, t00=0x011a, t01=0x0178}
0x1b9f8…1ba14 Head {h00=0x0018, h01=0x0050, text=»SYA105 SUK A5,2 ALL?«, t00=0x011a, t01=0x018a}
0x1ba14…1ba2e Head {h00=0x0016, h01=0x0050, text=» RF(N) SYA107 YES!«, t00=0x011b, t01=0x0016}
0x1ba2e…1ba4e Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A6 TTAB-ADDRESS«, t00=0x011b, t01=0x0030}
0x1ba4e…1ba70 Head {h00=0x001e, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE«, t00=0x011b, t01=0x0050}
0x1ba70…1ba8c Head {h00=0x0018, h01=0x0050, text=» ADK A6,2 NEXT TTAB «, t00=0x011b, t01=0x0072}
0x1ba8c…1ba9e Head {h00=0x000e, h01=0x0050, text=» RB SYA105«, t00=0x011b, t01=0x008e}
0x1ba9e…1bab2 Head {h00=0x0010, h01=0x0050, text=»SYA107 EQU *«, t00=0x011b, t01=0x00a0}
0x1bab2…1babe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011b, t01=0x00b4}
0x1babe…1bad4 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x011b, t01=0x00c0}
0x1bad4…1bb0a Head {h00=0x0032, h01=0x0050, text=» LD* A5,SAVE02,A13 1:ST USER TASK TTAB ADDRESS«, t00=0x011b, t01=0x00d6}
0x1bb0a…1bb3c Head {h00=0x002e, h01=0x0050, text=» LD A2,SAVE09,A13 EXECUTION START ADDRESS «, t00=0x011b, t01=0x010c}
0x1bb3c…1bb68 Head {h00=0x0028, h01=0x0050, text=» AD A2,SCTLAC ADD RELOCATION ADDRESS«, t00=0x011b, t01=0x013e}
0x1bb68…1bb88 Head {h00=0x001c, h01=0x0050, text=» LDK A3,0 SEGMENT NUMBER«, t00=0x011b, t01=0x016a}
0x1bb88…1bba8 Head {h00=0x001c, h01=0x0050, text=» CF A15,ACTOT QUEUE TASK«, t00=0x011b, t01=0x018a}
0x1bba8…1bbce Head {h00=0x0022, h01=0x0050, text=» LDKL A1,FINISH END OF SYSLDA «, t00=0x011c, t01=0x001a}
0x1bbce…1bbe2 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A13 «, t00=0x011c, t01=0x0040}
0x1bbe2…1bbf2 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x011c, t01=0x0054}
0x1bbf2…1bbfe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011c, t01=0x0064}
0x1bbfe…1bc12 Head {h00=0x0010, h01=0x0050, text=»SYA100 EQU *«, t00=0x011c, t01=0x0070}
0x1bc12…1bc28 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x011c, t01=0x0084}
0x1bc28…1bc36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011c, t01=0x009a}
0x1bc36…1bc42 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011c, t01=0x00a8}
0x1bc42…1bc72 Head {h00=0x002c, h01=0x0050, text=»* READ CONFIG FILE AND BUILD SHADOWTABLE«, t00=0x011c, t01=0x00b4}
0x1bc72…1bc7e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011c, t01=0x00e4}
0x1bc7e…1bcb2 Head {h00=0x0030, h01=0x0050, text=» CM SAVE02,A13 CLEAR 'BUGGER TASK INDICATOR'«, t00=0x011c, t01=0x00f0}
0x1bcb2…1bcce Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x011c, t01=0x0124}
0x1bcce…1bcf8 Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTLAC GET START OF P:MTAB«, t00=0x011c, t01=0x0140}
0x1bcf8…1bd20 Head {h00=0x0024, h01=0x0050, text=» LD A12,T:ATAB,A2 T:ATAB ADDRESS«, t00=0x011c, t01=0x016a}
0x1bd20…1bd4a (285, 0, 400) Head {h00=0x0026, h01=0x0050, text=» SUKL A12,2 ADJUST FOR LENGTH-WORD«, t00=0x011d, t01=0x0004}
0x1bd4a…1bd6a Head {h00=0x001c, h01=0x0050, text=» ST A12,T:ATOD,A13 SAVE «, t00=0x011d, t01=0x002e}
0x1bd6a…1bd9a Head {h00=0x002c, h01=0x0050, text=» LD A4,U:BTAB,A2 GET U:BTAB FROM P:MTAB «, t00=0x011d, t01=0x004e}
0x1bd9a…1bdc0 Head {h00=0x0022, h01=0x0050, text=» SUK A4,2 INCLUDE LENGTH-WORD «, t00=0x011d, t01=0x007e}
0x1bdc0…1bde8 Head {h00=0x0024, h01=0x0050, text=» ST A4,U:BTOD,A13 SAVE IN SYSLDA«, t00=0x011d, t01=0x00a4}
0x1bde8…1bdf4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011d, t01=0x00cc}
0x1bdf4…1be10 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x011d, t01=0x00d8}
0x1be10…1be3c Head {h00=0x0028, h01=0x0050, text=» LD A4,S:BTAB,A2 GET S:BTAB ADDRESS «, t00=0x011d, t01=0x00f4}
0x1be3c…1be64 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x011d, t01=0x0120}
0x1be64…1be82 Head {h00=0x001a, h01=0x0050, text=» ST A4,S:BTOD,A13 SAVE«, t00=0x011d, t01=0x0148}
0x1be82…1be8e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011d, t01=0x0166}
0x1be8e…1beaa Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x011d, t01=0x0172}
0x1beaa…1bec6 Head {h00=0x0018, h01=0x0050, text=»* T:ATAB PROCESSING:«, t00=0x011d, t01=0x018e}
0x1bec6…1bed2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011e, t01=0x001a}
0x1bed2…1bef4 Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A12 T:ATAB-LENGTH«, t00=0x011e, t01=0x0026}
0x1bef4…1bf0c Head {h00=0x0014, h01=0x0050, text=» LDR A3,A4 SAVE «, t00=0x011e, t01=0x0048}
0x1bf0c…1bf3a Head {h00=0x002a, h01=0x0050, text=» AD A3,SCTSFA ADD MONITOR END ADDRESS «, t00=0x011e, t01=0x0060}
0x1bf3a…1bf54 Head {h00=0x0016, h01=0x0050, text=»* CHECK ADDRESSES «, t00=0x011e, t01=0x008e}
0x1bf54…1bf5c Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x00a8}
0x1bf5c…1bf82 Head {h00=0x0022, h01=0x0050, text=» LDR A11,A3 END OF SHADOW-TAB «, t00=0x011e, t01=0x00b0}
0x1bf82…1bfa6 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A13 START OF SYSLDA «, t00=0x011e, t01=0x00d6}
0x1bfa6…1bfba Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x011e, t01=0x00fa}
0x1bfba…1bfd4 Head {h00=0x0016, h01=0x0050, text=» RF(L) SYA110 OK! «, t00=0x011e, t01=0x010e}
0x1bfd4…1bffa Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x011e, t01=0x0128}
0x1bffa…1c00e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011e, t01=0x014e}
0x1c00e…1c03a Head {h00=0x0028, h01=0x0050, text=»SYA110 LDR A9,A2 GET P:MTAB ADDRESS «, t00=0x011e, t01=0x0162}
0x1c03a…1c04c Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x011e, t01=0x018e}
0x1c04c…1c070 Head {h00=0x0020, h01=0x0050, text=»* CLEAR T:ATAB SHADOW-TABLE:«, t00=0x011f, t01=0x0010}
0x1c070…1c07c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011f, t01=0x0034}
0x1c07c…1c096 Head {h00=0x0016, h01=0x0050, text=»ZERO SUK A3,2 NEXT«, t00=0x011f, t01=0x0040}
0x1c096…1c0ae Head {h00=0x0014, h01=0x0050, text=» STR A2,A3 CLEAR«, t00=0x011f, t01=0x005a}
0x1c0ae…1c0c8 Head {h00=0x0016, h01=0x0050, text=» CW A3,SCTSFA ALL?«, t00=0x011f, t01=0x0072}
0x1c0c8…1c0e0 Head {h00=0x0014, h01=0x0050, text=» RB(NE) ZERO NO!«, t00=0x011f, t01=0x008c}
0x1c0e0…1c106 Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 STORE TABLE LENGTH «, t00=0x011f, t01=0x00a4}
0x1c106…1c132 Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 GET CONFIG START «, t00=0x011f, t01=0x00ca}
0x1c132…1c158 Head {h00=0x0022, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCKTYPE«, t00=0x011f, t01=0x00f6}
0x1c158…1c176 Head {h00=0x001a, h01=0x0050, text=» CCK A2,'TT' TASK DEF?«, t00=0x011f, t01=0x011c}
0x1c176…1c190 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA120 OK! «, t00=0x011f, t01=0x013a}
0x1c190…1c1b4 Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP4 NO TASK PRESENT«, t00=0x011f, t01=0x0154}
0x1c1b4…1c1c8 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011f, t01=0x0178}
0x1c1c8…1c1f4 Head {h00=0x0028, h01=0x0050, text=»SYA120 LC A2,TDBMC+4,A11 GET TASK ID«, t00=0x011f, t01=0x018c}
0x1c1f4…1c208 Head {h00=0x0010, h01=0x0050, text=» SLL A2,8 . «, t00=0x0120, t01=0x0028}
0x1c208…1c226 Head {h00=0x001a, h01=0x0050, text=» LC A2,TDBMC+5,A11 ...«, t00=0x0120, t01=0x003c}
0x1c226…1c248 Head {h00=0x001e, h01=0x0050, text=» CWK A2,'TB' BUGGER TASK? «, t00=0x0120, t01=0x005a}
0x1c248…1c262 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYA125 NO!«, t00=0x0120, t01=0x007c}
0x1c262…1c2a0 Head {h00=0x003a, h01=0x0050, text=» ST A2,SAVE02,A13 INDICATE BUGGER TASK PRESENT =00001 «, t00=0x0120, t01=0x0096}
0x1c2a0…1c2c6 Head {h00=0x0022, h01=0x0050, text=» RF SYA136 SKIP TO NEXT BLOCK «, t00=0x0120, t01=0x00d4}
0x1c2c6…1c2e4 Head {h00=0x001a, h01=0x0050, text=»SYA125 LDR A8,A12 SAVE«, t00=0x0120, t01=0x00fa}
0x1c2e4…1c306 Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A12 T:ATAB LENGTH«, t00=0x0120, t01=0x0118}
0x1c306…1c328 Head {h00=0x001e, h01=0x0050, text=»SYA130 ADKL A8,2 NEXT T:A «, t00=0x0120, t01=0x013a}
0x1c328…1c34c Head {h00=0x0020, h01=0x0050, text=» LDR* A6,A8 GET T:A ADDRESS «, t00=0x0120, t01=0x015c}
0x1c34c…1c35e Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0120, t01=0x0180}
0x1c35e…1c374 (289, 0, 400) Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA135«, t00=0x0121, t01=0x0004}
0x1c374…1c3a8 Head {h00=0x0030, h01=0x0050, text=» LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) «, t00=0x0121, t01=0x001a}
0x1c3a8…1c3bc Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0121, t01=0x004e}
0x1c3bc…1c3d0 Head {h00=0x0010, h01=0x0050, text=»SYA135 EQU *«, t00=0x0121, t01=0x0062}
0x1c3d0…1c3f4 Head {h00=0x0020, h01=0x0050, text=» CW A2,T:ATID,A6 TID EQUAL? «, t00=0x0121, t01=0x0076}
0x1c3f4…1c40e Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA130 NO!«, t00=0x0121, t01=0x009a}
0x1c40e…1c430 Head {h00=0x001e, h01=0x0050, text=» SUR* A4,A12 T:ATAB LENGTH«, t00=0x0121, t01=0x00b4}
0x1c430…1c43c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0121, t01=0x00d6}
0x1c43c…1c458 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0121, t01=0x00e2}
0x1c458…1c482 Head {h00=0x0026, h01=0x0050, text=» EL* A2,SCTLAC GET START OF P:MTAB«, t00=0x0121, t01=0x00fe}
0x1c482…1c4aa Head {h00=0x0024, h01=0x0050, text=» EL A12,T:ATAB,A2 T:ATAB ADDRESS«, t00=0x0121, t01=0x0128}
0x1c4aa…1c4d2 Head {h00=0x0024, h01=0x0050, text=» SUKL A12,2 INCLUDE LENGTH WORD «, t00=0x0121, t01=0x0150}
0x1c4d2…1c4fc Head {h00=0x0026, h01=0x0050, text=» ST A12,T:ATOD,A13 SAVE IN SYSLDA «, t00=0x0121, t01=0x0178}
0x1c4fc…1c524 Head {h00=0x0024, h01=0x0050, text=» EL A4,U:BTAB,A2 U:BTAB ADDRESS «, t00=0x0122, t01=0x0012}
0x1c524…1c54c Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x0122, t01=0x003a}
0x1c54c…1c574 Head {h00=0x0024, h01=0x0050, text=» ST A4,U:BTOD,A13 SAVE IN SYSLDA«, t00=0x0122, t01=0x0062}
0x1c574…1c580 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0122, t01=0x008a}
0x1c580…1c59c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x0122, t01=0x0096}
0x1c59c…1c5c8 Head {h00=0x0028, h01=0x0050, text=» EL A4,S:BTAB,A2 GET S:BTAB ADDRESS «, t00=0x0122, t01=0x00b2}
0x1c5c8…1c5f0 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x0122, t01=0x00de}
0x1c5f0…1c60e Head {h00=0x001a, h01=0x0050, text=» ST A4,S:BTOD,A13 SAVE«, t00=0x0122, t01=0x0106}
0x1c60e…1c61a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0122, t01=0x0124}
0x1c61a…1c636 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0122, t01=0x0130}
0x1c636…1c652 Head {h00=0x0018, h01=0x0050, text=»* T:ATAB PROCESSING:«, t00=0x0122, t01=0x014c}
0x1c652…1c65e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0122, t01=0x0168}
0x1c65e…1c680 Head {h00=0x001e, h01=0x0050, text=» ELR A4,A12 T:ATAB-LENGTH «, t00=0x0122, t01=0x0174}
0x1c680…1c698 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A4 SAVE «, t00=0x0123, t01=0x0008}
0x1c698…1c6cc Head {h00=0x0030, h01=0x0050, text=» SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE«, t00=0x0123, t01=0x0020}
0x1c6cc…1c6fa Head {h00=0x002a, h01=0x0050, text=» AD A3,SCTSFA ADD MONITOR END ADDRESS «, t00=0x0123, t01=0x0054}
0x1c6fa…1c714 Head {h00=0x0016, h01=0x0050, text=»* CHECK ADDRESSES «, t00=0x0123, t01=0x0082}
0x1c714…1c71c Head {h00=0x0004, h01=0x0050, t00=0x0123, t01=0x009c}
0x1c71c…1c744 Head {h00=0x0024, h01=0x0050, text=» LDR A11,A3 END OF SHADOW-TABLE «, t00=0x0123, t01=0x00a4}
0x1c744…1c768 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A13 START OF SYSLDA «, t00=0x0123, t01=0x00cc}
0x1c768…1c77c Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x0123, t01=0x00f0}
0x1c77c…1c796 Head {h00=0x0016, h01=0x0050, text=» RF(L) SYA110 OK! «, t00=0x0123, t01=0x0104}
0x1c796…1c7bc Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x0123, t01=0x011e}
0x1c7bc…1c7d0 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0123, t01=0x0144}
0x1c7d0…1c7fc Head {h00=0x0028, h01=0x0050, text=»SYA110 LDR A9,A2 GET P:MTAB ADDRESS «, t00=0x0123, t01=0x0158}
0x1c7fc…1c820 Head {h00=0x0020, h01=0x0050, text=»* CLEAR T:ATAB SHADOW-TABLE:«, t00=0x0123, t01=0x0184}
0x1c820…1c82c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0124, t01=0x0018}
0x1c82c…1c848 Head {h00=0x0018, h01=0x0050, text=»SYA115 SUK A3,2 NEXT«, t00=0x0124, t01=0x0024}
0x1c848…1c85e Head {h00=0x0012, h01=0x0050, text=» CMR A3 CLEAR «, t00=0x0124, t01=0x0040}
0x1c85e…1c878 Head {h00=0x0016, h01=0x0050, text=» CW A3,SCTSFA ALL?«, t00=0x0124, t01=0x0056}
0x1c878…1c892 Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA115 NO!«, t00=0x0124, t01=0x0070}
0x1c892…1c8b8 Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 STORE TABLE LENGTH «, t00=0x0124, t01=0x008a}
0x1c8b8…1c8e4 Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 GET CONFIG START «, t00=0x0124, t01=0x00b0}
0x1c8e4…1c90a Head {h00=0x0022, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCKTYPE«, t00=0x0124, t01=0x00dc}
0x1c90a…1c928 Head {h00=0x001a, h01=0x0050, text=» CCK A2,'TT' TASK DEF?«, t00=0x0124, t01=0x0102}
0x1c928…1c942 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA120 OK! «, t00=0x0124, t01=0x0120}
0x1c942…1c966 Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP4 NO TASK PRESENT«, t00=0x0124, t01=0x013a}
0x1c966…1c97a Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0124, t01=0x015e}
0x1c97a…1c9a6 Head {h00=0x0028, h01=0x0050, text=»SYA120 LC A2,TDBMC+4,A11 GET TASK ID«, t00=0x0124, t01=0x0172}
0x1c9a6…1c9ba Head {h00=0x0010, h01=0x0050, text=» SLL A2,8 . «, t00=0x0125, t01=0x000e}
0x1c9ba…1c9d8 Head {h00=0x001a, h01=0x0050, text=» LC A2,TDBMC+5,A11 ...«, t00=0x0125, t01=0x0022}
0x1c9d8…1c9fa Head {h00=0x001e, h01=0x0050, text=» CWK A2,'TB' BUGGER TASK? «, t00=0x0125, t01=0x0040}
0x1c9fa…1ca14 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYA125 NO!«, t00=0x0125, t01=0x0062}
0x1ca14…1ca4c Head {h00=0x0034, h01=0x0050, text=» ST A2,SAVE02,A13 INDICATE 'BUGGER TASK PRESENT'«, t00=0x0125, t01=0x007c}
0x1ca4c…1ca6e Head {h00=0x001e, h01=0x0050, text=» RF SYA136 SKIP THIS BLOCK«, t00=0x0125, t01=0x00b4}
0x1ca6e…1ca8c Head {h00=0x001a, h01=0x0050, text=»SYA125 LDR A8,A12 SAVE«, t00=0x0125, t01=0x00d6}
0x1ca8c…1caae Head {h00=0x001e, h01=0x0050, text=» ELR A4,A12 T:ATAB LENGTH «, t00=0x0125, t01=0x00f4}
0x1caae…1cad0 Head {h00=0x001e, h01=0x0050, text=»SYA130 ADKL A8,2 NEXT T:A «, t00=0x0125, t01=0x0116}
0x1cad0…1caf2 Head {h00=0x001e, h01=0x0050, text=» ELR A6,A8 GET T:A ADDRESS«, t00=0x0125, t01=0x0138}
0x1caf2…1cb04 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0125, t01=0x015a}
0x1cb04…1cb1a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA135«, t00=0x0125, t01=0x016c}
0x1cb1a…1cb4a Head {h00=0x002c, h01=0x0050, text=» LDK A1,LMP5 NO PROT. FOUND (TID ERROR) «, t00=0x0125, t01=0x0182}
0x1cb4a…1cb5e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0126, t01=0x0022}
0x1cb5e…1cb72 Head {h00=0x0010, h01=0x0050, text=»SYA135 EQU *«, t00=0x0126, t01=0x0036}
0x1cb72…1cb94 Head {h00=0x001e, h01=0x0050, text=» EL A10,T:ATID,A6 GET TID «, t00=0x0126, t01=0x004a}
0x1cb94…1cbb2 Head {h00=0x001a, h01=0x0050, text=» CWR A2,A10 TID EQUAL?«, t00=0x0126, t01=0x006c}
0x1cbb2…1cbcc Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA130 NO!«, t00=0x0126, t01=0x008a}
0x1cbcc…1cbe0 Head {h00=0x0010, h01=0x0050, text=» ELR A10,A12«, t00=0x0126, t01=0x00a4}
0x1cbe0…1cc02 Head {h00=0x001e, h01=0x0050, text=» SUR A4,A10 T:ATAB LENGTH «, t00=0x0126, t01=0x00b8}
0x1cc02…1cc0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0126, t01=0x00da}
0x1cc0e…1cc24 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0126, t01=0x00e6}
0x1cc24…1cc56 Head {h00=0x002e, h01=0x0050, text=» NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB «, t00=0x0126, t01=0x00fc}
0x1cc56…1cc82 Head {h00=0x0028, h01=0x0050, text=» LC A5,TDBNT,A11 GET NUMBER OF TASKS«, t00=0x0126, t01=0x012e}
0x1cc82…1cc94 Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0126, t01=0x015a}
0x1cc94…1ccae Head {h00=0x0016, h01=0x0050, text=» LC A5,TDBNT+1,A11«, t00=0x0126, t01=0x016c}
0x1ccae…1ccc2 Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x0126, t01=0x0186}
0x1ccc2…1ccee Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA START OF SHADOW TABLE «, t00=0x0127, t01=0x000a}
0x1ccee…1cd00 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0127, t01=0x0036}
0x1cd00…1cd3a Head {h00=0x0036, h01=0x0050, text=» ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE «, t00=0x0127, t01=0x0048}
0x1cd3a…1cd46 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0127, t01=0x0082}
0x1cd46…1cd62 Head {h00=0x0018, h01=0x0050, text=»* SKIP TO NEXT BLOCK«, t00=0x0127, t01=0x008e}
0x1cd62…1cd6e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0127, t01=0x00aa}
0x1cd6e…1cd88 Head {h00=0x0016, h01=0x0050, text=»SYA136 CALL NXTBLK«, t00=0x0127, t01=0x00b6}
0x1cd88…1cd9c Head {h00=0x0010, h01=0x0050, text=»SYA137 EQU *«, t00=0x0127, t01=0x00d0}
0x1cd9c…1cdb0 Head {h00=0x0010, h01=0x0050, text=» CCK A2,'TT'«, t00=0x0127, t01=0x00e4}
0x1cdb0…1cdda Head {h00=0x0026, h01=0x0050, text=» RB(E) SYA120 NEXT TASK DEF BLOCK «, t00=0x0127, t01=0x00f8}
0x1cdda…1cdee Head {h00=0x0010, h01=0x0050, text=» CCK A2,'CC'«, t00=0x0127, t01=0x0122}
0x1cdee…1ce04 Head {h00=0x0012, h01=0x0050, text=» RF(NE) SYA140«, t00=0x0127, t01=0x0136}
0x1ce04…1ce32 Head {h00=0x002a, h01=0x0050, text=» ADKL A11,1 STEP TO NUMBER OF COM.DEV.«, t00=0x0127, t01=0x014c}
0x1ce32…1ce56 Head {h00=0x0020, h01=0x0050, text=» CALL NXTCOM SKIP COMMON DEF«, t00=0x0127, t01=0x017a}
0x1ce56…1ce70 Head {h00=0x0016, h01=0x0050, text=»SYA140 CCK A2,'UU'«, t00=0x0128, t01=0x000e}
0x1ce70…1ce90 Head {h00=0x001c, h01=0x0050, text=» RF(NE) SYA141 NO UWB'S «, t00=0x0128, t01=0x0028}
0x1ce90…1cec6 Head {h00=0x0032, h01=0x0050, text=» LD A8,U:BTOD,A13 GET MODIFIED U:BTAB ADDRESS «, t00=0x0128, t01=0x0048}
0x1cec6…1cf00 Head {h00=0x0036, h01=0x0050, text=» CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE «, t00=0x0128, t01=0x007e}
0x1cf00…1cf14 Head {h00=0x0010, h01=0x0050, text=»SYA141 EQU *«, t00=0x0128, t01=0x00b8}
0x1cf14…1cf20 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0128, t01=0x00cc}
0x1cf20…1cf3c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0128, t01=0x00d8}
0x1cf3c…1cf50 Head {h00=0x0010, h01=0x0050, text=» LCR A2,A11 «, t00=0x0128, t01=0x00f4}
0x1cf50…1cf64 Head {h00=0x0010, h01=0x0050, text=» CCK A2,'SS'«, t00=0x0128, t01=0x0108}
0x1cf64…1cf7a Head {h00=0x0012, h01=0x0050, text=» RF(NE) SYA152«, t00=0x0128, t01=0x011c}
0x1cf7a…1cf94 Head {h00=0x0016, h01=0x0050, text=» LD A8,S:BTOD,A13 «, t00=0x0128, t01=0x0132}
0x1cf94…1cfa8 Head {h00=0x0010, h01=0x0050, text=» CALL USWBTP«, t00=0x0128, t01=0x014c}
0x1cfa8…1cfb4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0128, t01=0x0160}
0x1cfb4…1cfca Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0128, t01=0x016c}
0x1cfca…1cfdc Head {h00=0x000e, h01=0x0050, text=» RF SYA152«, t00=0x0128, t01=0x0182}
0x1cfdc…1cfea (297, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0129, t01=0x0004}
0x1cfea…1d03a Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0129, t01=0x0012}
0x1d03a…1d08a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0129, t01=0x0062}
0x1d08a…1d0da Head {h00=0x004c, h01=0x0050, text=»* USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE * «, t00=0x0129, t01=0x00b2}
0x1d0da…1d12a Head {h00=0x004c, h01=0x0050, text=»* ================================================================= * «, t00=0x0129, t01=0x0102}
0x1d12a…1d17a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0129, t01=0x0152}
0x1d17a…1d1ca Head {h00=0x004c, h01=0x0050, text=»* REFERENCED IN: SYSLDA * «, t00=0x012a, t01=0x0012}
0x1d1ca…1d21a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x012a, t01=0x0062}
0x1d21a…1d26a Head {h00=0x004c, h01=0x0050, text=»* ENTRY: A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE * «, t00=0x012a, t01=0x00b2}
0x1d26a…1d2ba Head {h00=0x004c, h01=0x0050, text=»* A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK * «, t00=0x012a, t01=0x0102}
0x1d2ba…1d30a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x012a, t01=0x0152}
0x1d30a…1d35a Head {h00=0x004c, h01=0x0050, text=»* EXIT: * «, t00=0x012b, t01=0x0012}
0x1d35a…1d3aa Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x012b, t01=0x0062}
0x1d3aa…1d3fa Head {h00=0x004c, h01=0x0050, text=»* WORK REGISTERS: * «, t00=0x012b, t01=0x00b2}
0x1d3fa…1d44a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x012b, t01=0x0102}
0x1d44a…1d49a Head {h00=0x004c, h01=0x0050, text=»* SUBROUTINES: GETNUM,ERROR * «, t00=0x012b, t01=0x0152}
0x1d49a…1d4ea Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x012c, t01=0x0012}
0x1d4ea…1d53a Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x012c, t01=0x0062}
0x1d53a…1d542 Head {h00=0x0004, h01=0x0050, t00=0x012c, t01=0x00b2}
0x1d542…1d556 Head {h00=0x0010, h01=0x0050, text=»USWBTP EQU *«, t00=0x012c, t01=0x00ba}
0x1d556…1d55e Head {h00=0x0004, h01=0x0050, t00=0x012c, t01=0x00ce}
0x1d55e…1d56a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012c, t01=0x00d6}
0x1d56a…1d586 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x012c, t01=0x00e2}
0x1d586…1d59a Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x012c, t01=0x00fe}
0x1d59a…1d5ae Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x012c, t01=0x0112}
0x1d5ae…1d5dc Head {h00=0x002a, h01=0x0050, text=» CALL GETNUM PACK 3 DIG. RESULT IN A5 «, t00=0x012c, t01=0x0126}
0x1d5dc…1d604 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A5 SAVE NUMBER OF UWB'S «, t00=0x012c, t01=0x0154}
0x1d604…1d618 Head {h00=0x0010, h01=0x0050, text=»SYA142 EQU *«, t00=0x012c, t01=0x017c}
0x1d618…1d62c Head {h00=0x0010, h01=0x0050, text=» LDR A12,A8 «, t00=0x012c, t01=0x0190}
0x1d62c…1d652 Head {h00=0x0022, h01=0x0050, text=» LDR* A3,A12 LENGTH OF U:BTAB «, t00=0x012d, t01=0x0014}
0x1d652…1d67e Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UDB RECORD «, t00=0x012d, t01=0x003a}
0x1d67e…1d692 Head {h00=0x0010, h01=0x0050, text=»SYA145 EQU *«, t00=0x012d, t01=0x0066}
0x1d692…1d6c6 Head {h00=0x0030, h01=0x0050, text=» LCR A2,A11 GET FIRST CHARACTER FROM CONFIG «, t00=0x012d, t01=0x007a}
0x1d6c6…1d6d8 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x012d, t01=0x00ae}
0x1d6d8…1d6fa Head {h00=0x001e, h01=0x0050, text=» LC A2,1,A11 GET 2:ND CHAR«, t00=0x012d, t01=0x00c0}
0x1d6fa…1d734 Head {h00=0x0036, h01=0x0050, text=» CW A2,UPNAME,A12 COMPARE W. 1:ST WORD IN PROTOTYP«, t00=0x012d, t01=0x00e2}
0x1d734…1d762 Head {h00=0x002a, h01=0x0050, text=» RF(E) FRSTOK FIRST TWO CHARACTERS OK!«, t00=0x012d, t01=0x011c}
0x1d762…1d796 Head {h00=0x0030, h01=0x0050, text=»SYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S «, t00=0x012d, t01=0x014a}
0x1d796…1d7ac Head {h00=0x0012, h01=0x0050, text=» RF(NN) SYA150«, t00=0x012d, t01=0x017e}
0x1d7ac…1d7ce (302, 0, 400) Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP6 UWB NOT FOUND«, t00=0x012e, t01=0x0004}
0x1d7ce…1d7e2 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x012e, t01=0x0026}
0x1d7e2…1d7f6 Head {h00=0x0010, h01=0x0050, text=»SYA150 EQU *«, t00=0x012e, t01=0x003a}
0x1d7f6…1d822 Head {h00=0x0028, h01=0x0050, text=» ADKL A12,UP:REC ADD TO NEXT RECORD «, t00=0x012e, t01=0x004e}
0x1d822…1d834 Head {h00=0x000e, h01=0x0050, text=» RB SYA145«, t00=0x012e, t01=0x007a}
0x1d834…1d85c Head {h00=0x0024, h01=0x0050, text=»FRSTOK LC A2,2,A11 GET 3:RD CHAR«, t00=0x012e, t01=0x008c}
0x1d85c…1d878 Head {h00=0x0018, h01=0x0050, text=» CC A2,UPNAME+2,A12 «, t00=0x012e, t01=0x00b4}
0x1d878…1d894 Head {h00=0x0018, h01=0x0050, text=» RB(NE) SYA147 .NEQ.«, t00=0x012e, t01=0x00d0}
0x1d894…1d8a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012e, t01=0x00ec}
0x1d8a2…1d8ae Head {h00=0x0008, h01=0x0050, text=» «, t00=0x012e, t01=0x00fa}
0x1d8ae…1d8ca Head {h00=0x0018, h01=0x0050, text=»* PROTOTYPE FOUND * «, t00=0x012e, t01=0x0106}
0x1d8ca…1d8d6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x012e, t01=0x0122}
0x1d8d6…1d912 Head {h00=0x0038, h01=0x0050, text=» ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG«, t00=0x012e, t01=0x012e}
0x1d912…1d926 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x012e, t01=0x016a}
0x1d926…1d942 Head {h00=0x0018, h01=0x0050, text=» CALL GETNUM CONVERT«, t00=0x012e, t01=0x017e}
0x1d942…1d978 Head {h00=0x0032, h01=0x0050, text=» SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE)«, t00=0x012f, t01=0x000a}
0x1d978…1d9aa Head {h00=0x002e, h01=0x0050, text=» SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE «, t00=0x012f, t01=0x0040}
0x1d9aa…1d9c0 Head {h00=0x0012, h01=0x0050, text=» RB(P) SYA142 «, t00=0x012f, t01=0x0072}
0x1d9c0…1d9da Head {h00=0x0016, h01=0x0050, text=» ADKL A11,UDBFST-1«, t00=0x012f, t01=0x0088}
0x1d9da…1d9ea Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012f, t01=0x00a2}
0x1d9ea…1d9f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012f, t01=0x00b2}
0x1d9f6…1da12 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x012f, t01=0x00be}
0x1da12…1da26 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x012f, t01=0x00da}
0x1da26…1da3a Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x012f, t01=0x00ee}
0x1da3a…1da68 Head {h00=0x002a, h01=0x0050, text=» CALL GETNUM PACK 3 DIG. RESULT IN A5 «, t00=0x012f, t01=0x0102}
0x1da68…1da90 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A5 SAVE NUMBER OF UWB'S «, t00=0x012f, t01=0x0130}
0x1da90…1daa4 Head {h00=0x0010, h01=0x0050, text=»SYA142 EQU *«, t00=0x012f, t01=0x0158}
0x1daa4…1dac6 Head {h00=0x001e, h01=0x0050, text=» LDR A12,A8 START OF TABLE«, t00=0x012f, t01=0x016c}
0x1dac6…1daea Head {h00=0x0020, h01=0x0050, text=» ELR A3,A12 LENGTH OF U:BTAB«, t00=0x012f, t01=0x018e}
0x1daea…1db16 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UDB RECORD «, t00=0x0130, t01=0x0022}
0x1db16…1db2a Head {h00=0x0010, h01=0x0050, text=»SYA145 EQU *«, t00=0x0130, t01=0x004e}
0x1db2a…1db5e Head {h00=0x0030, h01=0x0050, text=» LCR A2,A11 GET FIRST CHARACTER FROM CONFIG «, t00=0x0130, t01=0x0062}
0x1db5e…1db70 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0130, t01=0x0096}
0x1db70…1db92 Head {h00=0x001e, h01=0x0050, text=» LC A2,1,A11 GET 2:ND CHAR«, t00=0x0130, t01=0x00a8}
0x1db92…1dbc8 Head {h00=0x0032, h01=0x0050, text=» EL A10,UPNAME,A12 GET FIRST WORD IN PROTOTYPE«, t00=0x0130, t01=0x00ca}
0x1dbc8…1dbdc Head {h00=0x0010, h01=0x0050, text=» CWR A2,A10 «, t00=0x0130, t01=0x0100}
0x1dbdc…1dc00 Head {h00=0x0020, h01=0x0050, text=» RF(E) FRSTOK FIRST WORD OK!«, t00=0x0130, t01=0x0114}
0x1dc00…1dc34 Head {h00=0x0030, h01=0x0050, text=»SYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S «, t00=0x0130, t01=0x0138}
0x1dc34…1dc4a Head {h00=0x0012, h01=0x0050, text=» RF(NN) SYA150«, t00=0x0130, t01=0x016c}
0x1dc4a…1dc6c Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP6 UWB NOT FOUND«, t00=0x0130, t01=0x0182}
0x1dc6c…1dc80 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0131, t01=0x0014}
0x1dc80…1dc94 Head {h00=0x0010, h01=0x0050, text=»SYA150 EQU *«, t00=0x0131, t01=0x0028}
0x1dc94…1dcc0 Head {h00=0x0028, h01=0x0050, text=» ADKL A12,UP:REC ADD TO NEXT RECORD «, t00=0x0131, t01=0x003c}
0x1dcc0…1dcd2 Head {h00=0x000e, h01=0x0050, text=» RB SYA145«, t00=0x0131, t01=0x0068}
0x1dcd2…1dd08 Head {h00=0x0032, h01=0x0050, text=»FRSTOK LC A10,2,A11 GET 3:RD CHAR FROM CONFIG «, t00=0x0131, t01=0x007a}
0x1dd08…1dd3c Head {h00=0x0030, h01=0x0050, text=» EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY «, t00=0x0131, t01=0x00b0}
0x1dd3c…1dd4e Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0131, t01=0x00e4}
0x1dd4e…1dd64 Head {h00=0x0012, h01=0x0050, text=» ANKL A10,/FF «, t00=0x0131, t01=0x00f6}
0x1dd64…1dd78 Head {h00=0x0010, h01=0x0050, text=» CWR A10,A2 «, t00=0x0131, t01=0x010c}
0x1dd78…1dd94 Head {h00=0x0018, h01=0x0050, text=» RB(NE) SYA147 .NEQ.«, t00=0x0131, t01=0x0120}
0x1dd94…1dda2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0131, t01=0x013c}
0x1dda2…1ddae Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0131, t01=0x014a}
0x1ddae…1ddca Head {h00=0x0018, h01=0x0050, text=»* PROTOTYPE FOUND * «, t00=0x0131, t01=0x0156}
0x1ddca…1dde6 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0131, t01=0x0172}
0x1dde6…1ddf2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0131, t01=0x018e}
0x1ddf2…1de2e Head {h00=0x0038, h01=0x0050, text=» ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG«, t00=0x0132, t01=0x000a}
0x1de2e…1de42 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0132, t01=0x0046}
0x1de42…1de5e Head {h00=0x0018, h01=0x0050, text=» CALL GETNUM CONVERT«, t00=0x0132, t01=0x005a}
0x1de5e…1de96 Head {h00=0x0034, h01=0x0050, text=» EL A10,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE«, t00=0x0132, t01=0x0076}
0x1de96…1deae Head {h00=0x0014, h01=0x0050, text=» ANKL A10,/FF00 «, t00=0x0132, t01=0x00ae}
0x1deae…1dec2 Head {h00=0x0010, h01=0x0050, text=» ORR A10,A5 «, t00=0x0132, t01=0x00c6}
0x1dec2…1dede Head {h00=0x0018, h01=0x0050, text=» ES A10,UPNUMB-1,A12«, t00=0x0132, t01=0x00da}
0x1dede…1df10 Head {h00=0x002e, h01=0x0050, text=» SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE «, t00=0x0132, t01=0x00f6}
0x1df10…1df26 Head {h00=0x0012, h01=0x0050, text=» RB(P) SYA142 «, t00=0x0132, t01=0x0128}
0x1df26…1df40 Head {h00=0x0016, h01=0x0050, text=» ADKL A11,UDBFST-1«, t00=0x0132, t01=0x013e}
0x1df40…1df50 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0132, t01=0x0158}
0x1df50…1df5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0132, t01=0x0168}
0x1df5c…1df72 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0132, t01=0x0174}
0x1df72…1df80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0132, t01=0x018a}
0x1df80…1df94 Head {h00=0x0010, h01=0x0050, text=»SYA152 EQU *«, t00=0x0133, t01=0x0008}
0x1df94…1df9c Head {h00=0x0004, h01=0x0050, t00=0x0133, t01=0x001c}
0x1df9c…1dfc6 Head {h00=0x0026, h01=0x0050, text=»* GET START OF SYSLOAD AFTER MOVE «, t00=0x0133, t01=0x0024}
0x1dfc6…1dfd2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0133, t01=0x004e}
0x1dfd2…1dfde Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0133, t01=0x005a}
0x1dfde…1dffa Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0133, t01=0x0066}
0x1dffa…1e02a Head {h00=0x002c, h01=0x0050, text=» LD* A7,T:ATOD,A13 GET LENGTH OF T:ATAB «, t00=0x0133, t01=0x0082}
0x1e02a…1e036 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0133, t01=0x00b2}
0x1e036…1e052 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0133, t01=0x00be}
0x1e052…1e07e Head {h00=0x0028, h01=0x0050, text=» EL* A7,T:ATOD,A13 GET T:ATAB LENGTH«, t00=0x0133, t01=0x00da}
0x1e07e…1e0ac Head {h00=0x002a, h01=0x0050, text=» SLL A7,1 RESERVE FOR MM-ADDRESS-TABLE«, t00=0x0133, t01=0x0106}
0x1e0ac…1e0b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0133, t01=0x0134}
0x1e0b8…1e0ce Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0133, t01=0x0140}
0x1e0ce…1e102 Head {h00=0x0030, h01=0x0050, text=» AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE«, t00=0x0133, t01=0x0156}
0x1e102…1e114 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0133, t01=0x018a}
0x1e114…1e138 Head {h00=0x0020, h01=0x0050, text=» ANKL A7,/FFFE EVEN ADDRESS «, t00=0x0134, t01=0x000c}
0x1e138…1e140 Head {h00=0x0004, h01=0x0050, t00=0x0134, t01=0x0030}
0x1e140…1e15e Head {h00=0x001a, h01=0x0050, text=»* CALCULATE RELOCATION«, t00=0x0134, t01=0x0038}
0x1e15e…1e166 Head {h00=0x0004, h01=0x0050, t00=0x0134, t01=0x0056}
0x1e166…1e17a Head {h00=0x0010, h01=0x0050, text=» LDR A2,A13 «, t00=0x0134, t01=0x005e}
0x1e17a…1e1a2 Head {h00=0x0024, h01=0x0050, text=» SUR A2,A7 MOVE-LENGTH (SYSLDA) «, t00=0x0134, t01=0x0072}
0x1e1a2…1e1b4 Head {h00=0x000e, h01=0x0050, text=» NGR A2,A2«, t00=0x0134, t01=0x009a}
0x1e1b4…1e1ec Head {h00=0x0034, h01=0x0050, text=» ST A2,SAVE04,A13 SAVE NEW RELOCATION TEMPORARY «, t00=0x0134, t01=0x00ac}
0x1e1ec…1e208 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0134, t01=0x00e4}
0x1e208…1e232 Head {h00=0x0026, h01=0x0050, text=»* CREATE SYSLDA & DDIV MM-TABLE * «, t00=0x0134, t01=0x0100}
0x1e232…1e23a Head {h00=0x0004, h01=0x0050, t00=0x0134, t01=0x012a}
0x1e23a…1e260 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A7 TO-ADDRESS (SYSLDA)«, t00=0x0134, t01=0x0132}
0x1e260…1e282 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/F000 FIRST PAGE «, t00=0x0134, t01=0x0158}
0x1e282…1e2ae Head {h00=0x0028, h01=0x0050, text=» ST A2,MMREL1,A13 SAVE PHYSICAL PAGE«, t00=0x0134, t01=0x017a}
0x1e2ae…1e2d4 Head {h00=0x0022, h01=0x0050, text=» SRL A2,2 SHIFT FOR MM-PAGING «, t00=0x0135, t01=0x0016}
0x1e2d4…1e2ec Head {h00=0x0014, h01=0x0050, text=» LDKL A11,MMDDIV«, t00=0x0135, t01=0x003c}
0x1e2ec…1e31e Head {h00=0x002e, h01=0x0050, text=» ADR A11,A13 GET MM-TABLE START ADDRESSS= «, t00=0x0135, t01=0x0054}
0x1e31e…1e33c Head {h00=0x001a, h01=0x0050, text=» LDK A3,16 SET COUNTER«, t00=0x0135, t01=0x0086}
0x1e33c…1e368 Head {h00=0x0028, h01=0x0050, text=»SYA157 STR A2,A11 STORE PAGE-POINTER«, t00=0x0135, t01=0x00a4}
0x1e368…1e386 Head {h00=0x001a, h01=0x0050, text=» ADKL A11,2 NEXT ENTRY«, t00=0x0135, t01=0x00d0}
0x1e386…1e3aa Head {h00=0x0020, h01=0x0050, text=» ADKL A2,/400 PAGE INCREMENT«, t00=0x0135, t01=0x00ee}
0x1e3aa…1e3c0 Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 ALL?«, t00=0x0135, t01=0x0112}
0x1e3c0…1e3da Head {h00=0x0016, h01=0x0050, text=» RB(NZ) SYA157 NO!«, t00=0x0135, t01=0x0128}
0x1e3da…1e406 Head {h00=0x0028, h01=0x0050, text=» ANKL A7,/FFF GET DISPLACEM. IN PAGE«, t00=0x0135, t01=0x0142}
0x1e406…1e412 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0135, t01=0x016e}
0x1e412…1e428 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0135, t01=0x017a}
0x1e428…1e45c Head {h00=0x0030, h01=0x0050, text=» ST A7,SAVE12,A13 SAVE (LOGICAL) TO-ADDRESS «, t00=0x0135, t01=0x0190}
0x1e45c…1e48e Head {h00=0x002e, h01=0x0050, text=» ADKL A7,LENGT2 ADD LEN. OF SYSLDA TO MOVE«, t00=0x0136, t01=0x0034}
0x1e48e…1e4be Head {h00=0x002c, h01=0x0050, text=» ST A7,SAVE03,A13 SAVE NEW DDIV ADDRESS «, t00=0x0136, t01=0x0066}
0x1e4be…1e4d2 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A7 «, t00=0x0136, t01=0x0096}
0x1e4d2…1e4fa Head {h00=0x0024, h01=0x0050, text=»* CALCULATE DDIV FROM-ADDRESS * «, t00=0x0136, t01=0x00aa}
0x1e4fa…1e502 Head {h00=0x0004, h01=0x0050, t00=0x0136, t01=0x00d2}
0x1e502…1e522 Head {h00=0x001c, h01=0x0050, text=» LD A1,SCTLAC GET S:GTAB«, t00=0x0136, t01=0x00da}
0x1e522…1e550 Head {h00=0x002a, h01=0x0050, text=» ST A1,SAVE13,A13 SAVE S:GTAB ADDRESS «, t00=0x0136, t01=0x00fa}
0x1e550…1e57a Head {h00=0x0026, h01=0x0050, text=» ST A9,SCTLAC SAVE START OF P:MTAB«, t00=0x0136, t01=0x0128}
0x1e57a…1e596 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0136, t01=0x0152}
0x1e596…1e5c2 Head {h00=0x0028, h01=0x0050, text=» LD A3,NUMSEG,A1 NUMBER OF SEGMENTS «, t00=0x0136, t01=0x016e}
0x1e5c2…1e5ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0137, t01=0x000a}
0x1e5ce…1e5ea Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0137, t01=0x0016}
0x1e5ea…1e616 Head {h00=0x0028, h01=0x0050, text=» EL A3,NUMSEG,A1 NUMBER OF SEGMENTS «, t00=0x0137, t01=0x0032}
0x1e616…1e622 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0137, t01=0x005e}
0x1e622…1e638 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0137, t01=0x006a}
0x1e638…1e66a Head {h00=0x002e, h01=0x0050, text=» LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH«, t00=0x0137, t01=0x0080}
0x1e66a…1e67c Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x0137, t01=0x00b2}
0x1e67c…1e68e Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0137, t01=0x00c4}
0x1e68e…1e6b8 Head {h00=0x0026, h01=0x0050, text=» ADK A1,NUMSEG+2 => START OF DDIV «, t00=0x0137, t01=0x00d6}
0x1e6b8…1e6ee Head {h00=0x0032, h01=0x0050, text=» LD A2,SAVE04,A13 GET NEW RELOCATION INCREMENT«, t00=0x0137, t01=0x0100}
0x1e6ee…1e722 Head {h00=0x0030, h01=0x0050, text=» ADS A2,M:REL,A13 AND ADJUST RELOCATION BASE«, t00=0x0137, t01=0x0136}
0x1e722…1e73e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0137, t01=0x016a}
0x1e73e…1e746 Head {h00=0x0004, h01=0x0050, t00=0x0137, t01=0x0186}
0x1e746…1e778 Head {h00=0x002e, h01=0x0050, text=» ST A1,SAVE04,A13 SAVE DDIV 'FROM'-ADDRESS«, t00=0x0137, t01=0x018e}
0x1e778…1e784 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0138, t01=0x0030}
0x1e784…1e7a0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0138, t01=0x003c}
0x1e7a0…1e7d0 Head {h00=0x002c, h01=0x0050, text=» ST A1,SAVE04,A13 SAVE DDIV FROM-ADDRESS«, t00=0x0138, t01=0x0058}
0x1e7d0…1e7dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0138, t01=0x0088}
0x1e7dc…1e7f2 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0138, t01=0x0094}
0x1e7f2…1e818 Head {h00=0x0022, h01=0x0050, text=» SUR A6,A1 RELOCATION FOR DDIV«, t00=0x0138, t01=0x00aa}
0x1e818…1e826 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0138, t01=0x00d0}
0x1e826…1e82e Head {h00=0x0004, h01=0x0050, t00=0x0138, t01=0x00de}
0x1e82e…1e83a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0138, t01=0x00e6}
0x1e83a…1e846 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0138, t01=0x00f2}
0x1e846…1e87a Head {h00=0x0030, h01=0x0050, text=»* RELOCATE ADDRESSES IN T:ATAB AFTER MOVE * «, t00=0x0138, t01=0x00fe}
0x1e87a…1e8ac Head {h00=0x002e, h01=0x0050, text=»* CALCULATE TOTAL (=REAL) LENGTH * «, t00=0x0138, t01=0x0132}
0x1e8ac…1e8de Head {h00=0x002e, h01=0x0050, text=»* REMOVE NOT USED ENTRIES IN T:ATAB * «, t00=0x0138, t01=0x0164}
0x1e8de…1e910 Head {h00=0x002e, h01=0x0050, text=»* A9=P:MTAB A6=MOVE-RELOC * «, t00=0x0139, t01=0x0008}
0x1e910…1e942 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0139, t01=0x003a}
0x1e942…1e95e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0139, t01=0x006c}
0x1e95e…1e966 Head {h00=0x0004, h01=0x0050, t00=0x0139, t01=0x0088}
0x1e966…1e982 Head {h00=0x0018, h01=0x0050, text=»* INITIATE POINTERS «, t00=0x0139, t01=0x0090}
0x1e982…1e98a Head {h00=0x0004, h01=0x0050, t00=0x0139, t01=0x00ac}
0x1e98a…1e9b6 Head {h00=0x0028, h01=0x0050, text=» LD A8,T:ATOD,A13 GET T:ATAB ADDRESS«, t00=0x0139, t01=0x00b4}
0x1e9b6…1e9d4 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A8 GET LENGTH«, t00=0x0139, t01=0x00e0}
0x1e9d4…1e9f4 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A8 END OF T:ATAB«, t00=0x0139, t01=0x00fe}
0x1e9f4…1ea12 Head {h00=0x001a, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE«, t00=0x0139, t01=0x011e}
0x1ea12…1ea46 Head {h00=0x0030, h01=0x0050, text=» LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB«, t00=0x0139, t01=0x013c}
0x1ea46…1ea66 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A5 2:ND POINTER «, t00=0x0139, t01=0x0170}
0x1ea66…1ea90 Head {h00=0x0026, h01=0x0050, text=» LDR A2,A8 2:ND POINTER IN T:ATAB «, t00=0x0139, t01=0x0190}
0x1ea90…1eaba Head {h00=0x0026, h01=0x0050, text=» LDK A3,2 SET 'NEW' T:ATAB COUNTER«, t00=0x013a, t01=0x002a}
0x1eaba…1eaec Head {h00=0x002e, h01=0x0050, text=» SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR«, t00=0x013a, t01=0x0054}
0x1eaec…1eaf4 Head {h00=0x0004, h01=0x0050, t00=0x013a, t01=0x0086}
0x1eaf4…1eb0a Head {h00=0x0012, h01=0x0050, text=»* SCAN T:ATAB:«, t00=0x013a, t01=0x008e}
0x1eb0a…1eb12 Head {h00=0x0004, h01=0x0050, t00=0x013a, t01=0x00a4}
0x1eb12…1eb38 Head {h00=0x0022, h01=0x0050, text=»SYA160 ADKL A8,2 TAKE NEXT T:A«, t00=0x013a, t01=0x00ac}
0x1eb38…1eb60 Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 NEXT T:A IN SHADOW-TAB«, t00=0x013a, t01=0x00d2}
0x1eb60…1eb7a Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x013a, t01=0x00fa}
0x1eb7a…1eb98 Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA170 ALL DONE«, t00=0x013a, t01=0x0114}
0x1eb98…1ebb4 Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A8 GET T:A «, t00=0x013a, t01=0x0132}
0x1ebb4…1ebe2 Head {h00=0x002a, h01=0x0050, text=» LDR* A7,A5 GET CONTENTS OF SHADOW-TAB«, t00=0x013a, t01=0x014e}
0x1ebe2…1ec12 Head {h00=0x002c, h01=0x0050, text=» RB(Z) SYA160 THIS T:A IS NOT USED!!!!! «, t00=0x013a, t01=0x017c}
0x1ec12…1ec38 Head {h00=0x0022, h01=0x0050, text=» ADR A11,A7 ACCUMULATE LENGTH «, t00=0x013b, t01=0x001c}
0x1ec38…1ec68 Head {h00=0x002c, h01=0x0050, text=» ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH «, t00=0x013b, t01=0x0042}
0x1ec68…1ec98 Head {h00=0x002c, h01=0x0050, text=» ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS«, t00=0x013b, t01=0x0072}
0x1ec98…1ecc4 Head {h00=0x0028, h01=0x0050, text=» ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS«, t00=0x013b, t01=0x00a2}
0x1ecc4…1ed00 Head {h00=0x0038, h01=0x0050, text=» STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) «, t00=0x013b, t01=0x00ce}
0x1ed00…1ed24 Head {h00=0x0020, h01=0x0050, text=» LDR* A10,A8 GET T:A-ADDRESS«, t00=0x013b, t01=0x010a}
0x1ed24…1ed40 Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x013b, t01=0x012e}
0x1ed40…1ed72 Head {h00=0x002e, h01=0x0050, text=» STR A10,A2 STORE ADDR. (EV. ON NEW PLACE)«, t00=0x013b, t01=0x014a}
0x1ed72…1ed94 Head {h00=0x001e, h01=0x0050, text=»* RELOCATE W.B.-ADDRESSES «, t00=0x013b, t01=0x017c}
0x1ed94…1ed9c Head {h00=0x0004, h01=0x0050, t00=0x013c, t01=0x000e}
0x1ed9c…1edc4 Head {h00=0x0024, h01=0x0050, text=» LD A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x013c, t01=0x0016}
0x1edc4…1edec Head {h00=0x0024, h01=0x0050, text=» LD A7,WATLEN,A12 LENGTH OF WAT «, t00=0x013c, t01=0x003e}
0x1edec…1ee1e Head {h00=0x002e, h01=0x0050, text=» ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS«, t00=0x013c, t01=0x0066}
0x1ee1e…1ee42 Head {h00=0x0020, h01=0x0050, text=»SYA165 SUK A7,1 DEC. COUNTER«, t00=0x013c, t01=0x0098}
0x1ee42…1ee66 Head {h00=0x0020, h01=0x0050, text=» RB(N) SYA160 TAKE NEXT T:A «, t00=0x013c, t01=0x00bc}
0x1ee66…1ee82 Head {h00=0x0018, h01=0x0050, text=» ADRS A6,A1 RELOCATE«, t00=0x013c, t01=0x00e0}
0x1ee82…1ee8e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013c, t01=0x00fc}
0x1ee8e…1eeaa Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x013c, t01=0x0108}
0x1eeaa…1eeb2 Head {h00=0x0004, h01=0x0050, t00=0x013c, t01=0x0124}
0x1eeb2…1eece Head {h00=0x0018, h01=0x0050, text=»* INITIATE POINTERS «, t00=0x013c, t01=0x012c}
0x1eece…1eed6 Head {h00=0x0004, h01=0x0050, t00=0x013c, t01=0x0148}
0x1eed6…1eef6 Head {h00=0x001c, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB«, t00=0x013c, t01=0x0150}
0x1eef6…1ef14 Head {h00=0x001a, h01=0x0050, text=» ELR A3,A8 GET LENGTH «, t00=0x013c, t01=0x0170}
0x1ef14…1ef34 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A8 END OF T:ATAB«, t00=0x013c, t01=0x018e}
0x1ef34…1ef52 Head {h00=0x001a, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE«, t00=0x013d, t01=0x001e}
0x1ef52…1ef86 Head {h00=0x0030, h01=0x0050, text=» LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB«, t00=0x013d, t01=0x003c}
0x1ef86…1efa6 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A5 2:ND POINTER «, t00=0x013d, t01=0x0070}
0x1efa6…1efd0 Head {h00=0x0026, h01=0x0050, text=» LDR A2,A8 2:ND POINTER IN T:ATAB «, t00=0x013d, t01=0x0090}
0x1efd0…1effa Head {h00=0x0026, h01=0x0050, text=» LDK A3,2 SET 'NEW' T:ATAB COUNTER«, t00=0x013d, t01=0x00ba}
0x1effa…1f02c Head {h00=0x002e, h01=0x0050, text=» SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR«, t00=0x013d, t01=0x00e4}
0x1f02c…1f034 Head {h00=0x0004, h01=0x0050, t00=0x013d, t01=0x0116}
0x1f034…1f04a Head {h00=0x0012, h01=0x0050, text=»* SCAN T:ATAB:«, t00=0x013d, t01=0x011e}
0x1f04a…1f052 Head {h00=0x0004, h01=0x0050, t00=0x013d, t01=0x0134}
0x1f052…1f078 Head {h00=0x0022, h01=0x0050, text=»SYA160 ADKL A8,2 TAKE NEXT T:A«, t00=0x013d, t01=0x013c}
0x1f078…1f0a0 Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 NEXT T:A IN SHADOW-TAB«, t00=0x013d, t01=0x0162}
0x1f0a0…1f0ba Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x013d, t01=0x018a}
0x1f0ba…1f0d8 Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA170 ALL DONE«, t00=0x013e, t01=0x0014}
0x1f0d8…1f0f2 Head {h00=0x0016, h01=0x0050, text=» ELR A1,A8 GET T:A«, t00=0x013e, t01=0x0032}
0x1f0f2…1f120 Head {h00=0x002a, h01=0x0050, text=» LDR* A7,A5 GET CONTENTS OF SHADOW-TAB«, t00=0x013e, t01=0x004c}
0x1f120…1f150 Head {h00=0x002c, h01=0x0050, text=» RB(Z) SYA160 THIS T:A IS NOT USED!!!!! «, t00=0x013e, t01=0x007a}
0x1f150…1f176 Head {h00=0x0022, h01=0x0050, text=» ADR A11,A7 ACCUMULATE LENGTH «, t00=0x013e, t01=0x00aa}
0x1f176…1f1a6 Head {h00=0x002c, h01=0x0050, text=» ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH «, t00=0x013e, t01=0x00d0}
0x1f1a6…1f1d6 Head {h00=0x002c, h01=0x0050, text=» ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS«, t00=0x013e, t01=0x0100}
0x1f1d6…1f202 Head {h00=0x0028, h01=0x0050, text=» ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS«, t00=0x013e, t01=0x0130}
0x1f202…1f23e Head {h00=0x0038, h01=0x0050, text=» STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) «, t00=0x013e, t01=0x015c}
0x1f23e…1f262 Head {h00=0x0020, h01=0x0050, text=» ELR A10,A8 GET T:A-ADDRESS «, t00=0x013f, t01=0x0008}
0x1f262…1f27e Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x013f, t01=0x002c}
0x1f27e…1f2b0 Head {h00=0x002e, h01=0x0050, text=» ESR A10,A2 STORE ADDR. (EV. ON NEW PLACE)«, t00=0x013f, t01=0x0048}
0x1f2b0…1f2d2 Head {h00=0x001e, h01=0x0050, text=»* RELOCATE W.B.-ADDRESSES «, t00=0x013f, t01=0x007a}
0x1f2d2…1f2da Head {h00=0x0004, h01=0x0050, t00=0x013f, t01=0x009c}
0x1f2da…1f302 Head {h00=0x0024, h01=0x0050, text=» EL A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x013f, t01=0x00a4}
0x1f302…1f32a Head {h00=0x0024, h01=0x0050, text=» EL A7,WATLEN,A12 LENGTH OF WAT «, t00=0x013f, t01=0x00cc}
0x1f32a…1f35c Head {h00=0x002e, h01=0x0050, text=» ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS«, t00=0x013f, t01=0x00f4}
0x1f35c…1f380 Head {h00=0x0020, h01=0x0050, text=»SYA165 SUK A7,1 DEC. COUNTER«, t00=0x013f, t01=0x0126}
0x1f380…1f3a4 Head {h00=0x0020, h01=0x0050, text=» RB(N) SYA160 TAKE NEXT T:A «, t00=0x013f, t01=0x014a}
0x1f3a4…1f3c4 Head {h00=0x001c, h01=0x0050, text=» ELR A10,A1 GET ADDRESS «, t00=0x013f, t01=0x016e}
0x1f3c4…1f3e0 Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x013f, t01=0x018e}
0x1f3e0…1f3f4 Head {h00=0x0010, h01=0x0050, text=» ESR A10,A1 «, t00=0x0140, t01=0x001a}
0x1f3f4…1f400 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0140, t01=0x002e}
0x1f400…1f416 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0140, t01=0x003a}
0x1f416…1f432 Head {h00=0x0018, h01=0x0050, text=» ADK A1,4 NEXT W.B. «, t00=0x0140, t01=0x0050}
0x1f432…1f444 Head {h00=0x000e, h01=0x0050, text=» RB SYA165«, t00=0x0140, t01=0x006c}
0x1f444…1f44c Head {h00=0x0004, h01=0x0050, t00=0x0140, t01=0x007e}
0x1f44c…1f460 Head {h00=0x0010, h01=0x0050, text=»SYA170 EQU *«, t00=0x0140, t01=0x0086}
0x1f460…1f47e Head {h00=0x001a, h01=0x0050, text=» ST A6,MOVADD,A13 SAVE«, t00=0x0140, t01=0x009a}
0x1f47e…1f4ba Head {h00=0x0038, h01=0x0050, text=» ST* A3,SCTSFA STORE NEW TABLE LENGTH IN SHADOW-TAB «, t00=0x0140, t01=0x00b8}
0x1f4ba…1f4d6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0140, t01=0x00f4}
0x1f4d6…1f4fe Head {h00=0x0024, h01=0x0050, text=» ES* A3,T:ATOD,A13 AND IN T:ATAB«, t00=0x0140, t01=0x0110}
0x1f4fe…1f50a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0140, t01=0x0138}
0x1f50a…1f526 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0140, t01=0x0144}
0x1f526…1f54e Head {h00=0x0024, h01=0x0050, text=» ST* A3,T:ATOD,A13 AND IN T:ATAB«, t00=0x0140, t01=0x0160}
0x1f54e…1f55a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0140, t01=0x0188}
0x1f55a…1f570 (321, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0141, t01=0x0004}
0x1f570…1f5a4 Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR «, t00=0x0141, t01=0x001a}
0x1f5a4…1f5d0 Head {h00=0x0028, h01=0x0050, text=» SLL A2,1 CALC. REAL LENGTH (BYTES) «, t00=0x0141, t01=0x004e}
0x1f5d0…1f5e2 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0141, t01=0x007a}
0x1f5e2…1f616 Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'S «, t00=0x0141, t01=0x008c}
0x1f616…1f622 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0141, t01=0x00c0}
0x1f622…1f630 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0141, t01=0x00cc}
0x1f630…1f656 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0141, t01=0x00da}
0x1f656…1f67e Head {h00=0x0024, h01=0x0050, text=»* RELOCATE ADDRESSES IN U:BTAB *«, t00=0x0141, t01=0x0100}
0x1f67e…1f6a6 Head {h00=0x0024, h01=0x0050, text=»* (REAL LENGTH=PROTOTYPE LEN.) *«, t00=0x0141, t01=0x0128}
0x1f6a6…1f6ce Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0141, t01=0x0150}
0x1f6ce…1f6d6 Head {h00=0x0004, h01=0x0050, t00=0x0141, t01=0x0178}
0x1f6d6…1f6f2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0141, t01=0x0180}
0x1f6f2…1f71a Head {h00=0x0024, h01=0x0050, text=» LD A5,U:BTOD,A13 U:BTAB ADDRESS«, t00=0x0142, t01=0x000c}
0x1f71a…1f734 Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A5 LENGTH«, t00=0x0142, t01=0x0034}
0x1f734…1f74e Head {h00=0x0016, h01=0x0050, text=» ST A3,SAVE06,A13 «, t00=0x0142, t01=0x004e}
0x1f74e…1f770 Head {h00=0x001e, h01=0x0050, text=» ADK A5,2 SKIP LENGTH WORD«, t00=0x0142, t01=0x0068}
0x1f770…1f788 Head {h00=0x0014, h01=0x0050, text=» SUK A3,2 -"- «, t00=0x0142, t01=0x008a}
0x1f788…1f7ae Head {h00=0x0022, h01=0x0050, text=»SYA180 RF(Z) SYA185 ALL DONE! «, t00=0x0142, t01=0x00a2}
0x1f7ae…1f7ca Head {h00=0x0018, h01=0x0050, text=» ADRS A6,A5 RELOCATE«, t00=0x0142, t01=0x00c8}
0x1f7ca…1f7d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0142, t01=0x00e4}
0x1f7d6…1f7f2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0142, t01=0x00f0}
0x1f7f2…1f81a Head {h00=0x0024, h01=0x0050, text=» LD A5,U:BTOD,A13 U:BTAB ADDRESS«, t00=0x0142, t01=0x010c}
0x1f81a…1f83a Head {h00=0x001c, h01=0x0050, text=» ELR A3,A5 TABLE LENGTH «, t00=0x0142, t01=0x0134}
0x1f83a…1f86a Head {h00=0x002c, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB «, t00=0x0142, t01=0x0154}
0x1f86a…1f87c Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x0142, t01=0x0184}
0x1f87c…1f89e Head {h00=0x001e, h01=0x0050, text=» SUK A3,2 SUB LENGTH-WORD «, t00=0x0143, t01=0x0008}
0x1f89e…1f8ba Head {h00=0x0018, h01=0x0050, text=»SYA180 RF(Z) SYA185 «, t00=0x0143, t01=0x002a}
0x1f8ba…1f8da Head {h00=0x001c, h01=0x0050, text=» ELR A10,A5 GET ADDRESS «, t00=0x0143, t01=0x0046}
0x1f8da…1f8f6 Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x0143, t01=0x0066}
0x1f8f6…1f90a Head {h00=0x0010, h01=0x0050, text=» ESR A10,A5 «, t00=0x0143, t01=0x0082}
0x1f90a…1f916 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0143, t01=0x0096}
0x1f916…1f92c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0143, t01=0x00a2}
0x1f92c…1f968 Head {h00=0x0038, h01=0x0050, text=» ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP«, t00=0x0143, t01=0x00b8}
0x1f968…1f97e Head {h00=0x0012, h01=0x0050, text=» SUK A3,UP:REC«, t00=0x0143, t01=0x00f4}
0x1f97e…1f990 Head {h00=0x000e, h01=0x0050, text=» RB SYA180«, t00=0x0143, t01=0x010a}
0x1f990…1f99e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0143, t01=0x011c}
0x1f99e…1f9b2 Head {h00=0x0010, h01=0x0050, text=»SYA185 EQU *«, t00=0x0143, t01=0x012a}
0x1f9b2…1f9ce Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x0143, t01=0x013e}
0x1f9ce…1f9d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x015a}
0x1f9d8…1fa00 Head {h00=0x0024, h01=0x0050, text=»* COMPUTE REAL LENGTH OF S:BTAB«, t00=0x0143, t01=0x0164}
0x1fa00…1fa0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x018c}
0x1fa0a…1fa32 Head {h00=0x0024, h01=0x0050, text=» LD A5,S:BTOD,A13 S:BTAB ADDRESS«, t00=0x0144, t01=0x0008}
0x1fa32…1fa58 Head {h00=0x0022, h01=0x0050, text=» ELR A3,A5 LENGTH OF PROTOTYPE«, t00=0x0144, t01=0x0030}
0x1fa58…1fa70 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x0144, t01=0x0056}
0x1fa70…1fa96 Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 EXCLUDE LENGTH WORD «, t00=0x0144, t01=0x006e}
0x1fa96…1fac6 Head {h00=0x002c, h01=0x0050, text=»SYA190 RF(Z) SYA199 ALL RECORDS SCANNED!«, t00=0x0144, t01=0x0094}
0x1fac6…1faee Head {h00=0x0024, h01=0x0050, text=» EL A4,2,A5 GET PROT. W.B.-ADDR.«, t00=0x0144, t01=0x00c4}
0x1faee…1fb0a Head {h00=0x0018, h01=0x0050, text=» ADR A4,A6 RELOCATE «, t00=0x0144, t01=0x00ec}
0x1fb0a…1fb2c Head {h00=0x001e, h01=0x0050, text=» ES A4,2,A5 STORE IT BACK «, t00=0x0144, t01=0x0108}
0x1fb2c…1fb5c Head {h00=0x002c, h01=0x0050, text=» EL A4,UPNUMB-1,A5 GET NUMBER OF COPIES «, t00=0x0144, t01=0x012a}
0x1fb5c…1fb7e Head {h00=0x001e, h01=0x0050, text=» ANK A4,/FF GET RIGHT BYTE«, t00=0x0144, t01=0x015a}
0x1fb7e…1fbb0 Head {h00=0x002e, h01=0x0050, text=»SYA192 RF(Z) SYA194 NO MOORE OF THIS TYPE!«, t00=0x0144, t01=0x017c}
0x1fbb0…1fbd2 Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 INCREMENT LENGTH«, t00=0x0145, t01=0x001e}
0x1fbd2…1fbfe Head {h00=0x0028, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF COPIES«, t00=0x0145, t01=0x0040}
0x1fbfe…1fc10 Head {h00=0x000e, h01=0x0050, text=» RB SYA192«, t00=0x0145, t01=0x006c}
0x1fc10…1fc4c Head {h00=0x0038, h01=0x0050, text=»SYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE«, t00=0x0145, t01=0x007e}
0x1fc4c…1fc74 Head {h00=0x0024, h01=0x0050, text=» SUK A3,UP:REC DECREMENT LENGTH «, t00=0x0145, t01=0x00ba}
0x1fc74…1fc86 Head {h00=0x000e, h01=0x0050, text=» RB SYA190«, t00=0x0145, t01=0x00e2}
0x1fc86…1fc92 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0145, t01=0x00f4}
0x1fc92…1fcae Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x0145, t01=0x0100}
0x1fcae…1fcd6 Head {h00=0x0024, h01=0x0050, text=» LD A5,S:BTOD,A13 S:BTAB ADDRESS«, t00=0x0145, t01=0x011c}
0x1fcd6…1fd04 Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE«, t00=0x0145, t01=0x0144}
0x1fd04…1fd1c Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x0145, t01=0x0172}
0x1fd1c…1fd42 Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 EXCLUDE LENGTH WORD «, t00=0x0145, t01=0x018a}
0x1fd42…1fd72 Head {h00=0x002c, h01=0x0050, text=»SYA195 RF(Z) SYA199 ALL RECORDS SCANNED!«, t00=0x0146, t01=0x0020}
0x1fd72…1fd9a Head {h00=0x0024, h01=0x0050, text=» LD A4,2,A5 GET PROT. W.B.-ADDR.«, t00=0x0146, t01=0x0050}
0x1fd9a…1fdb6 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A6 RELOCATE «, t00=0x0146, t01=0x0078}
0x1fdb6…1fdd8 Head {h00=0x001e, h01=0x0050, text=» ST A4,2,A5 STORE IT BACK «, t00=0x0146, t01=0x0094}
0x1fdd8…1fe08 Head {h00=0x002c, h01=0x0050, text=» LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES «, t00=0x0146, t01=0x00b6}
0x1fe08…1fe1c Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0146, t01=0x00e6}
0x1fe1c…1fe4e Head {h00=0x002e, h01=0x0050, text=»SYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE!«, t00=0x0146, t01=0x00fa}
0x1fe4e…1fe70 Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 INCREMENT LENGTH«, t00=0x0146, t01=0x012c}
0x1fe70…1fe9c Head {h00=0x0028, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF COPIES«, t00=0x0146, t01=0x014e}
0x1fe9c…1feae Head {h00=0x000e, h01=0x0050, text=» RB SYA196«, t00=0x0146, t01=0x017a}
0x1feae…1feea Head {h00=0x0038, h01=0x0050, text=»SYA198 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE«, t00=0x0146, t01=0x018c}
0x1feea…1ff12 Head {h00=0x0024, h01=0x0050, text=» SUK A3,UP:REC DECREMENT LENGTH «, t00=0x0147, t01=0x0038}
0x1ff12…1ff24 Head {h00=0x000e, h01=0x0050, text=» RB SYA195«, t00=0x0147, t01=0x0060}
0x1ff24…1ff30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0147, t01=0x0072}
0x1ff30…1ff4c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0147, t01=0x007e}
0x1ff4c…1ff80 Head {h00=0x0030, h01=0x0050, text=»SYA199 ST A2,SAVE25,A13 SAVE COMPUTED LENGTH«, t00=0x0147, t01=0x009a}
0x1ff80…1ff8c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0147, t01=0x00ce}
0x1ff8c…1ffa2 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0147, t01=0x00da}
0x1ffa2…1ffb0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0147, t01=0x00f0}
0x1ffb0…1ffb8 Head {h00=0x0004, h01=0x0050, t00=0x0147, t01=0x00fe}
0x1ffb8…1fff2 Head {h00=0x0036, h01=0x0050, text=»* RELOCATE T:ATAB- AND U:BTAB-ADDRESSES IN P:MTAB «, t00=0x0147, t01=0x0106}
0x1fff2…1fffe Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0147, t01=0x0140}
0x1fffe…20018 Head {h00=0x0016, h01=0x0050, text=» ADS A6,T:ATOD,A13«, t00=0x0147, t01=0x014c}
0x20018…20032 Head {h00=0x0016, h01=0x0050, text=» ADS A6,U:BTOD,A13«, t00=0x0147, t01=0x0166}
0x20032…2004e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0147, t01=0x0180}
0x2004e…20068 Head {h00=0x0016, h01=0x0050, text=» ADS A6,S:BTOD,A13«, t00=0x0148, t01=0x000c}
0x20068…20074 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0148, t01=0x0026}
0x20074…20090 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0148, t01=0x0032}
0x20090…200b0 Head {h00=0x001c, h01=0x0050, text=»* CALCULATE NEW DDIV END«, t00=0x0148, t01=0x004e}
0x200b0…200b8 Head {h00=0x0004, h01=0x0050, t00=0x0148, t01=0x006e}
0x200b8…200ca Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x0148, t01=0x0076}
0x200ca…200ee Head {h00=0x0020, h01=0x0050, text=» SU A5,SAVE04,A13 END-START «, t00=0x0148, t01=0x0088}
0x200ee…20116 Head {h00=0x0024, h01=0x0050, text=» AD A5,SAVE12,A13 ADD NEW START «, t00=0x0148, t01=0x00ac}
0x20116…20134 Head {h00=0x001a, h01=0x0050, text=» ST A5,DATEND,A13 SAVE«, t00=0x0148, t01=0x00d4}
0x20134…20140 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0148, t01=0x00f2}
0x20140…2015c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0148, t01=0x00fe}
0x2015c…20164 Head {h00=0x0004, h01=0x0050, t00=0x0148, t01=0x011a}
0x20164…2016c Head {h00=0x0004, h01=0x0050, t00=0x0148, t01=0x0122}
0x2016c…2018e Head {h00=0x001e, h01=0x0050, text=»* STORE MMTABLE ADDRESSES «, t00=0x0148, t01=0x012a}
0x2018e…20196 Head {h00=0x0004, h01=0x0050, t00=0x0148, t01=0x014c}
0x20196…201ac Head {h00=0x0012, h01=0x0050, text=» LDK A4,MMDDIV«, t00=0x0148, t01=0x0154}
0x201ac…201d2 Head {h00=0x0022, h01=0x0050, text=» ADR A4,A13 GET TABLE ADDRESS «, t00=0x0148, t01=0x016a}
0x201d2…201fc Head {h00=0x0026, h01=0x0050, text=» LDR A5,A13 CALC. REAL RELOCATION «, t00=0x0148, t01=0x0190}
0x201fc…20216 Head {h00=0x0016, h01=0x0050, text=» SU A5,SAVE12,A13 «, t00=0x0149, t01=0x002a}
0x20216…20230 Head {h00=0x0016, h01=0x0050, text=» SU A5,MMREL1,A13 «, t00=0x0149, t01=0x0044}
0x20230…2024c Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 RELOCATE «, t00=0x0149, t01=0x005e}
0x2024c…2026c Head {h00=0x001c, h01=0x0050, text=» ST A4,MMTO,A13 AND SAVE«, t00=0x0149, t01=0x007a}
0x2026c…20282 Head {h00=0x0012, h01=0x0050, text=» LDK A4,MMTAB «, t00=0x0149, t01=0x009a}
0x20282…202aa Head {h00=0x0024, h01=0x0050, text=» ADR A4,A13 'WORK-TABLE' ADDRESS«, t00=0x0149, t01=0x00b0}
0x202aa…202c6 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 RELOCATE «, t00=0x0149, t01=0x00d8}
0x202c6…202e0 Head {h00=0x0016, h01=0x0050, text=» ST A4,MMFROM,A13 «, t00=0x0149, t01=0x00f4}
0x202e0…202fc Head {h00=0x0018, h01=0x0050, text=»* CALCULATE DDIV END«, t00=0x0149, t01=0x010e}
0x202fc…20304 Head {h00=0x0004, h01=0x0050, t00=0x0149, t01=0x012a}
0x20304…20320 Head {h00=0x0018, h01=0x0050, text=» LDR A5,A9 DDIV END «, t00=0x0149, t01=0x0132}
0x20320…20344 Head {h00=0x0020, h01=0x0050, text=» SU A5,SAVE04,A13 ENT-START «, t00=0x0149, t01=0x014e}
0x20344…2036c Head {h00=0x0024, h01=0x0050, text=» AD A5,SAVE12,A13 ADD NEW START «, t00=0x0149, t01=0x0172}
0x2036c…2037e Head {h00=0x000e, h01=0x0050, text=» LDR A6,A5«, t00=0x014a, t01=0x000a}
0x2037e…203b2 Head {h00=0x0030, h01=0x0050, text=» ANKL A6,/F000 GET LOGICALL PAGE (MM-ENTRY) «, t00=0x014a, t01=0x001c}
0x203b2…203da Head {h00=0x0024, h01=0x0050, text=» SRL A6,11 ADJUST FOR ADDRESSING«, t00=0x014a, t01=0x0050}
0x203da…2040c Head {h00=0x002e, h01=0x0050, text=» ADK A6,MMDDIV ADD RELATIVE START ADDRESS «, t00=0x014a, t01=0x0078}
0x2040c…20428 Head {h00=0x0018, h01=0x0050, text=» ADR A6,A13 RELOCATE«, t00=0x014a, t01=0x00aa}
0x20428…20452 Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A6 GET MM-TABLE CONTENTS «, t00=0x014a, t01=0x00c6}
0x20452…20470 Head {h00=0x001a, h01=0x0050, text=» ST A6,FSTPAG,A13 SAVE«, t00=0x014a, t01=0x00f0}
0x20470…20496 Head {h00=0x0022, h01=0x0050, text=» ANKL A5,/FFF GET DISPLACEMENT«, t00=0x014a, t01=0x010e}
0x20496…204b8 Head {h00=0x001e, h01=0x0050, text=» ST A5,FSTADR,A13 AND SAVE«, t00=0x014a, t01=0x0134}
0x204b8…204c4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014a, t01=0x0156}
0x204c4…204da Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x014a, t01=0x0162}
0x204da…204f8 Head {h00=0x001a, h01=0x0050, text=»* CONTINUE IN PART 2 *«, t00=0x014a, t01=0x0178}
0x204f8…20504 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x014b, t01=0x0008}
0x20504…20536 Head {h00=0x002e, h01=0x0050, text=» LD A2,SAVE12,A13 GET TO-ADDRESS (SYSLDA) «, t00=0x014b, t01=0x0014}
0x20536…20562 Head {h00=0x0028, h01=0x0050, text=» OR A2,MMREL1,A13 PHYSICALL ADDRESS «, t00=0x014b, t01=0x0046}
0x20562…2057a Head {h00=0x0014, h01=0x0050, text=» LDR A5,A2 SAVE «, t00=0x014b, t01=0x0072}
0x2057a…205ae Head {h00=0x0030, h01=0x0050, text=» LDKL A7,START2 GET EXECUTION START ADDRESS «, t00=0x014b, t01=0x008a}
0x205ae…205c0 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A2«, t00=0x014b, t01=0x00be}
0x205c0…205e6 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,LENGT2 SYSLDA LENGTH «, t00=0x014b, t01=0x00d0}
0x205e6…20606 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A13 FROM-ADDRESS«, t00=0x014b, t01=0x00f6}
0x20606…2060e Head {h00=0x0004, h01=0x0050, t00=0x014b, t01=0x0116}
0x2060e…20626 Head {h00=0x0014, h01=0x0050, text=»* MOVE SYSLDA * «, t00=0x014b, t01=0x011e}
0x20626…2062e Head {h00=0x0004, h01=0x0050, t00=0x014b, t01=0x0136}
0x2062e…2064a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x014b, t01=0x013e}
0x2064a…2066c Head {h00=0x001e, h01=0x0050, text=»NXTMOV LDR* A4,A1 GET WORD«, t00=0x014b, t01=0x015a}
0x2066c…2068a Head {h00=0x001a, h01=0x0050, text=» STR A4,A2 STORE WORD «, t00=0x014b, t01=0x017c}
0x2068a…2069c Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x014c, t01=0x000a}
0x2069c…206ae Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x014c, t01=0x001c}
0x206ae…206cc Head {h00=0x001a, h01=0x0050, text=» SUK A3,2 DEC. LENGTH «, t00=0x014c, t01=0x002e}
0x206cc…206e2 Head {h00=0x0012, h01=0x0050, text=» RB(NN) NXTMOV«, t00=0x014c, t01=0x004c}
0x206e2…206ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014c, t01=0x0062}
0x206ee…2070a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x014c, t01=0x006e}
0x2070a…2071a Head {h00=0x000c, h01=0x0050, text=» MVB A3 «, t00=0x014c, t01=0x008a}
0x2071a…20726 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014c, t01=0x009a}
0x20726…2073c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x014c, t01=0x00a6}
0x2073c…20744 Head {h00=0x0004, h01=0x0050, t00=0x014c, t01=0x00bc}
0x20744…20772 Head {h00=0x002a, h01=0x0050, text=» ABR A7 HEJ SVEJS! VI SES I PART 2... «, t00=0x014c, t01=0x00c4}
0x20772…2077e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014c, t01=0x00f2}
0x2077e…20794 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x014c, t01=0x00fe}
0x20794…207aa Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x014c, t01=0x0114}
0x207aa…207d2 Head {h00=0x0024, h01=0x0050, text=» CALL ERROR INCONSISTENT MONITOR«, t00=0x014c, t01=0x012a}
0x207d2…207de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014c, t01=0x0152}
0x207de…207f2 Head {h00=0x0010, h01=0x0050, text=»LDAEND EQU *«, t00=0x014c, t01=0x015e}
0x207f2…207fe Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x014c, t01=0x0172}
0x207fe…20802 Head {h00=0x4004, h01=0x0000}
0x20802…20806 01 4c 01 7e ┆ L ~┆
0x20806…2080e (333, 1, 8) 20 04 00 00 01 4d 00 04 ┆ M ┆