|
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: 132182 (0x20456)
Notes: pts_type(SC)
Names: »SYSLDA.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »M:261/SYSLDA.SC«
IDENT SYSLDA REL 9.2 80-07-15 870105040920 =7,IMPOSSIBLE TO MOVE AREAS>32 KB REL 9.2 80-05-29 =6,FAULTY STACK BASE WHEN USING MMU =6,FAULTY STACK BASE WHEN USING MMU =5,MOVING AREAS>32K DOES NOT WORK REL 9.2 79-12-21 ST =4, FAULTY STACK BASE & CWB/UWB BLOCKS REL 9.1 79-07-17 =3, IMPOSSIBLE TO LOAD NON MMU SYSTEM REL 9.1 79-05-23 ********************************************************** * * 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 SYSLDA ENTRY REL START OF CODE ENTRY LDALEN PROGRAM LENGTH * 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 * 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 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,SAVE25 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 SCTNOS NUMBER OF SEGMENTS EXTRN SCTNOP NUMBER OF PAGES EXTRN SCTPSZ PAGE SIZE EXTRN SCTMMC =00002 EXTRN SCTOPT SYSTEM OPTION EXTRN SCTSEG SEGMENT TABLE ADDRESS 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 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 ********** * 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 'PSWSW-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 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 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 LDALEN EQU *-REL DATA LDAEND-REL XMSAV EQU *-REL DATA 0,0 ********************************* * 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 * TTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB MMBEG EQU TABBE-* LSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' 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 EQUAL SIGN? 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 CALL ERROR INDICATE MEMORY OVERFLOW 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 COMPARE 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 BUFFER LENGTH? 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 WITHIN 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 WITHIN 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 =6 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 AUXILARY 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 =3 LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS ST A4,T:ATID,A3 REPLACE TCL IN T:A =3 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 =3 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 =3 LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS ES A4,T:ATID,A3 REPLACE TCL IN T:A =3 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 =3 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) 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 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) 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,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 =6 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 * * SCTNOS - 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,SCTNOS 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,SCTNOS 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,SCTNOS 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,SCTSEG START OF SEGMENT TABLE LDK A4,0 RESET RESIDENT SEGMENT COUNTER LD A12,SCTPAG START OF PAGE TABLE LD A6,SCTNOS 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 =6 =6 =6 SUKL A14,8 ADJUST FOR MAP ADKL A13,SYA360 CONTINUATION ADDRESS LDK A1,0 INDICATE SYSLOAD ENDED OTR A1,0,SOP LD A1,SCTBUG GET BUGGER ADDRESS ABR(NZ) A1 SYA360 EQU *-REL LDR A13,P SYA370 EQU *-REL SUKL A13,SYA370 RESTORE PROGRAM BASE OINTER * * INIT A15 STACK * LD A15,SCTSTB SUKL A15,4 * START APPLICATION LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC ST A1,SAVRTC,A13 SAVE LDKL A1,IHRTCO LOAD TEMPORARY INTERRUPT ADDRESS ADR A1,A13 RELOCATE ST A1,IHRTC STORE IN INTERRUPT VECTOR CF A15,PFINIT INITIALIZE DEVICES CF A15,SAVE8 SAVE REGISTERS * * WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER * LDKL A1,/FFFF SET COUNTER DELAY SRC A2,31 SUK A1,1 RB(NZ) DELAY INH LDKL A1,0 GET RTC INTERRUPT ADDRESS SAVRTC EQU *-REL-2 ST A1,IHRTC RESTORE ABL TDISP BRANCH TO DISPATCHER * * 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 SUK A5,2 SKIP LENGTH WORD RSWB10 ADK A1,2 NEXT TYPE LDR* A4,A1 POINTER TO BLOCK LDR* 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,SCTNOS 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 IFT CREDIT+MMUPAG=2 =00001 CALL MOVMMT MOVE MM-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 SYSLDA 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 9.2 80-07-15 870105040920 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…0006a Head {h00=0x0028, h01=0x0050, text=» =7,IMPOSSIBLE TO MOVE AREAS>32 KB«, t00=0x0000, t01=0x0042}
0x0006a…00086 Head {h00=0x0018, h01=0x0050, text=» REL 9.2 80-05-29 «, t00=0x0000, t01=0x006e}
0x00086…000b4 Head {h00=0x002a, h01=0x0050, text=» =6,FAULTY STACK BASE WHEN USING MMU«, t00=0x0000, t01=0x008a}
0x000b4…000e2 Head {h00=0x002a, h01=0x0050, text=» =6,FAULTY STACK BASE WHEN USING MMU«, t00=0x0000, t01=0x00b8}
0x000e2…0010e Head {h00=0x0028, h01=0x0050, text=» =5,MOVING AREAS>32K DOES NOT WORK«, t00=0x0000, t01=0x00e6}
0x0010e…0012c Head {h00=0x001a, h01=0x0050, text=» REL 9.2 79-12-21 ST«, t00=0x0000, t01=0x0112}
0x0012c…0015e Head {h00=0x002e, h01=0x0050, text=» =4, FAULTY STACK BASE & CWB/UWB BLOCKS «, t00=0x0000, t01=0x0130}
0x0015e…0017a Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-07-17 «, t00=0x0000, t01=0x0162}
0x0017a…001aa Head {h00=0x002c, h01=0x0050, text=» =3, IMPOSSIBLE TO LOAD NON MMU SYSTEM«, t00=0x0000, t01=0x017e}
0x001aa…001c6 Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0001, t01=0x001e}
0x001c6…001d2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0001, t01=0x003a}
0x001d2…001de Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0001, t01=0x0046}
0x001de…00220 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0001, t01=0x0052}
0x00220…0022a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0094}
0x0022a…00252 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0001, t01=0x009e}
0x00252…0025c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c6}
0x0025c…0029e Head {h00=0x003e, h01=0x0050, text=»* SYSLDA = SYSTEM LOAD - APPLICATION CONFIGURATION PART «, t00=0x0001, t01=0x00d0}
0x0029e…002a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0112}
0x002a8…002b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011c}
0x002b2…002bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0126}
0x002bc…002c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0130}
0x002c6…002d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013a}
0x002d0…002da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0144}
0x002da…0031c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0001, t01=0x014e}
0x0031c…00326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0190}
0x00326…00330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000a}
0x00330…0037a Head {h00=0x0046, h01=0x0050, text=»* THIS PART OF THE SYSTEM START-UP WILL TAKE CARE OF APPLICATION«, t00=0x0002, t01=0x0014}
0x0037a…003c0 Head {h00=0x0042, h01=0x0050, text=»* (CREDIT) CONFIGURATION AND START OF APPLICATION. SYSLDA IS«, t00=0x0002, t01=0x005e}
0x003c0…0040a Head {h00=0x0046, h01=0x0050, text=»* ENTERED AFTER MONITOR CONFIGURATION (PERFORMED BY SYSLDM), AND«, t00=0x0002, t01=0x00a4}
0x0040a…00456 Head {h00=0x0048, h01=0x0050, text=»* IS AT THAT TIME LOCATED AT HIGHEST FREE ADDRESS OF SYSTEM AREA. «, t00=0x0002, t01=0x00ee}
0x00456…00460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013a}
0x00460…00482 Head {h00=0x001e, h01=0x0050, text=»* ASSEMBLER APPLICATION:«, t00=0x0002, t01=0x0144}
0x00482…004d0 Head {h00=0x004a, h01=0x0050, text=»* NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED «, t00=0x0002, t01=0x0166}
0x004d0…0051a Head {h00=0x0046, h01=0x0050, text=»* AND A BRANCH IS MADE TO P F I N I T . ALL USER TASK TTAB'S«, t00=0x0003, t01=0x0024}
0x0051a…00542 Head {h00=0x0024, h01=0x0050, text=»* MM-TABLES ARE FILLED IN. «, t00=0x0003, t01=0x006e}
0x00542…0054c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0096}
0x0054c…0056c Head {h00=0x001c, h01=0x0050, text=»* CREDIT APPLICATION: «, t00=0x0003, t01=0x00a0}
0x0056c…005b6 Head {h00=0x0046, h01=0x0050, text=»* SYSLDA READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD«, t00=0x0003, t01=0x00c0}
0x005b6…005fc Head {h00=0x0042, h01=0x0050, text=»* SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS &«, t00=0x0003, t01=0x010a}
0x005fc…0062e Head {h00=0x002e, h01=0x0050, text=»* NUMBER OF USER WORK-BLOCK COPIES). «, t00=0x0003, t01=0x0150}
0x0062e…0067a Head {h00=0x0048, h01=0x0050, text=»* SYSLDA THEN MOVES ITSELF TO FOLLOW MONITOR AND WILL ALSO MOVE«, t00=0x0003, t01=0x0182}
0x0067a…006aa Head {h00=0x002c, h01=0x0050, text=»* DDIV-PROTOTYPE TO FOLLOW SYSLDA. «, t00=0x0004, t01=0x003e}
0x006aa…006b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006e}
0x006b4…00700 Head {h00=0x0048, h01=0x0050, text=»* APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES ARE NOW«, t00=0x0004, t01=0x0078}
0x00700…0074c Head {h00=0x0048, h01=0x0050, text=»* BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS«, t00=0x0004, t01=0x00c4}
0x0074c…00798 Head {h00=0x0048, h01=0x0050, text=»* ARE, IN CASE OF MMU IN SYSTEM, ALSO ALLOCATED AT 'BOTTOM' OF «, t00=0x0004, t01=0x0110}
0x00798…007e4 Head {h00=0x0048, h01=0x0050, text=»* MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR «, t00=0x0004, t01=0x015c}
0x007e4…00802 Head {h00=0x001a, h01=0x0050, text=»* 'OVER' SYSLDA. «, t00=0x0005, t01=0x0018}
0x00802…0080c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0036}
0x0080c…00858 Head {h00=0x0048, h01=0x0050, text=»* ALL USER TASKS ARE QUEUED VIA A C T O T AND ALL MM-TABLES«, t00=0x0005, t01=0x0040}
0x00858…008a2 Head {h00=0x0046, h01=0x0050, text=»* IN USER TASK TTAB'S ARE FILLED. A BRANCH IS FINALLY MADE TO«, t00=0x0005, t01=0x008c}
0x008a2…008d4 Head {h00=0x002e, h01=0x0050, text=»* P F I N I T TO START APPLICATION. «, t00=0x0005, t01=0x00d6}
0x008d4…008e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0108}
0x008e2…008ee Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0005, t01=0x0116}
0x008ee…00912 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0005, t01=0x0122}
0x00912…00936 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0005, t01=0x0146}
0x00936…0095a Head {h00=0x0020, h01=0x0050, text=»* ENTRIES AND EXTERNALS * «, t00=0x0005, t01=0x016a}
0x0095a…0097e Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0005, t01=0x018e}
0x0097e…009a2 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0006, t01=0x0022}
0x009a2…009ae Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0006, t01=0x0046}
0x009ae…009c6 Head {h00=0x0014, h01=0x0050, text=»* LABEL ENTRIES «, t00=0x0006, t01=0x0052}
0x009c6…009f6 Head {h00=0x002c, h01=0x0050, text=» ENTRY JUMP BYPASS JUMP FOR LOAD-MODULE «, t00=0x0006, t01=0x006a}
0x009f6…00a0c Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLDA «, t00=0x0006, t01=0x009a}
0x00a0c…00a2c Head {h00=0x001c, h01=0x0050, text=» ENTRY REL START OF CODE«, t00=0x0006, t01=0x00b0}
0x00a2c…00a50 Head {h00=0x0020, h01=0x0050, text=» ENTRY LDALEN PROGRAM LENGTH«, t00=0x0006, t01=0x00d0}
0x00a50…00a58 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00f4}
0x00a58…00a74 Head {h00=0x0018, h01=0x0050, text=»* SUBROUTINE ENTRIES«, t00=0x0006, t01=0x00fc}
0x00a74…00a88 Head {h00=0x0010, h01=0x0050, text=» ENTRY MOVE «, t00=0x0006, t01=0x0118}
0x00a88…00a9c Head {h00=0x0010, h01=0x0050, text=» ENTRY ERROR«, t00=0x0006, t01=0x012c}
0x00a9c…00ac4 Head {h00=0x0024, h01=0x0050, text=» ENTRY CMPADR COMPARE ADDRESSES «, t00=0x0006, t01=0x0140}
0x00ac4…00afa Head {h00=0x0032, h01=0x0050, text=» ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK«, t00=0x0006, t01=0x0168}
0x00afa…00b32 Head {h00=0x0034, h01=0x0050, text=» ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK«, t00=0x0007, t01=0x000e}
0x00b32…00b60 Head {h00=0x002a, h01=0x0050, text=» ENTRY CONVRT CONVERSION ASCII-BINARY «, t00=0x0007, t01=0x0046}
0x00b60…00b96 Head {h00=0x0032, h01=0x0050, text=» ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY«, t00=0x0007, t01=0x0074}
0x00b96…00b9e Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00aa}
0x00b9e…00bc2 Head {h00=0x0020, h01=0x0050, text=»* SAVE AND WORK AREA ENTRIES«, t00=0x0007, t01=0x00b2}
0x00bc2…00be8 Head {h00=0x0022, h01=0x0050, text=» ENTRY MMTAB WORK-TABLE 1 (MMU«, t00=0x0007, t01=0x00d6}
0x00be8…00c22 Head {h00=0x0036, h01=0x0050, text=» ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 «, t00=0x0007, t01=0x00fc}
0x00c22…00c5a Head {h00=0x0034, h01=0x0050, text=» ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 «, t00=0x0007, t01=0x0136}
0x00c5a…00c90 Head {h00=0x0032, h01=0x0050, text=» ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL'«, t00=0x0007, t01=0x016e}
0x00c90…00cc0 Head {h00=0x002c, h01=0x0050, text=» ENTRY BUFSIZ TEMPORARY MOVE-BUFFER SIZE«, t00=0x0008, t01=0x0014}
0x00cc0…00cf2 Head {h00=0x002e, h01=0x0050, text=» ENTRY SYSBUF TEMPORARY MOVE-BUFFER START «, t00=0x0008, t01=0x0044}
0x00cf2…00d2a Head {h00=0x0034, h01=0x0050, text=» ENTRY M:REL RELOCATION FOR RELOCATION WORD!!!! «, t00=0x0008, t01=0x0076}
0x00d2a…00d54 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE01,SAVE12,SAVE03,SAVE04«, t00=0x0008, t01=0x00ae}
0x00d54…00d7e Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE05,SAVE06,SAVE07,SAVE08«, t00=0x0008, t01=0x00d8}
0x00d7e…00da8 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE09,SAVE10,SAVE11,SAVE02«, t00=0x0008, t01=0x0102}
0x00da8…00dd2 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE13,SAVE14,SAVE15,SAVE16«, t00=0x0008, t01=0x012c}
0x00dd2…00dfc Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE17,SAVE18,SAVE19,SAVE20«, t00=0x0008, t01=0x0156}
0x00dfc…00e2e Head {h00=0x002e, h01=0x0050, text=» ENTRY SAVE21,SAVE22,SAVE23,SAVE24,SAVE25 «, t00=0x0008, t01=0x0180}
0x00e2e…00e3c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0022}
0x00e3c…00e44 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0030}
0x00e44…00e6c Head {h00=0x0024, h01=0x0050, text=»* SYSTEM CONTROL TABLE EXTERNALS«, t00=0x0009, t01=0x0038}
0x00e6c…00e94 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTSFA START OF FREE AREA«, t00=0x0009, t01=0x0060}
0x00e94…00eca Head {h00=0x0032, h01=0x0050, text=» EXTRN SCTLAC LOGICALL ADDRESS TO COMMON PART «, t00=0x0009, t01=0x0088}
0x00eca…00eee Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTTCT TC:TAB ADDRESS«, t00=0x0009, t01=0x00be}
0x00eee…00f12 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTSTB A15 STACK-BASE«, t00=0x0009, t01=0x00e2}
0x00f12…00f38 Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTEFA END OF FREE AREA«, t00=0x0009, t01=0x0106}
0x00f38…00f60 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTNOS NUMBER OF SEGMENTS«, t00=0x0009, t01=0x012c}
0x00f60…00f86 Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTNOP NUMBER OF PAGES «, t00=0x0009, t01=0x0154}
0x00f86…00fa6 Head {h00=0x001c, h01=0x0050, text=» EXTRN SCTPSZ PAGE SIZE «, t00=0x0009, t01=0x017a}
0x00fa6…00fc4 Head {h00=0x001a, h01=0x0050, text=» EXTRN SCTMMC =00002 «, t00=0x000a, t01=0x000a}
0x00fc4…00fe8 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTOPT SYSTEM OPTION «, t00=0x000a, t01=0x0028}
0x00fe8…01014 Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTSEG SEGMENT TABLE ADDRESS «, t00=0x000a, t01=0x004c}
0x01014…0103c Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTPAG PAGE TABLE ADDRESS«, t00=0x000a, t01=0x0078}
0x0103c…01074 Head {h00=0x0034, h01=0x0050, text=» EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE«, t00=0x000a, t01=0x00a0}
0x01074…01098 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTBUG BUGGER ADDRESS«, t00=0x000a, t01=0x00d8}
0x01098…010a0 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00fc}
0x010a0…010ba Head {h00=0x0016, h01=0x0050, text=»* EXTERNAL LABELS «, t00=0x000a, t01=0x0104}
0x010ba…010f4 Head {h00=0x0036, h01=0x0050, text=» EXTRN SYSLDM START OF MONITOR CONFIGURATION PART «, t00=0x000a, t01=0x011e}
0x010f4…0111c Head {h00=0x0024, h01=0x0050, text=» EXTRN PAGQUE PAGE QUEUE POINTER«, t00=0x000a, t01=0x0158}
0x0111c…01124 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0180}
0x01124…01142 Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL SUBROUTINES«, t00=0x000a, t01=0x0188}
0x01142…01162 Head {h00=0x001c, h01=0x0050, text=» EXTRN ACTOT QUEUE TASK «, t00=0x000b, t01=0x0016}
0x01162…01178 Head {h00=0x0012, h01=0x0050, text=» EXTRN PFINIT «, t00=0x000b, t01=0x0036}
0x01178…01198 Head {h00=0x001c, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGS«, t00=0x000b, t01=0x004c}
0x01198…011bc Head {h00=0x0020, h01=0x0050, text=» EXTRN RETUR8 RELOAD 8 REGS «, t00=0x000b, t01=0x006c}
0x011bc…011e2 Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x000b, t01=0x0090}
0x011e2…011ea Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00b6}
0x011ea…011f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00be}
0x011f4…01224 Head {h00=0x002c, h01=0x0050, text=» EXTRN TTB:SA START OF SAVE AREA IN TTAB«, t00=0x000b, t01=0x00c8}
0x01224…01232 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00f8}
0x01232…0123a Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0106}
0x0123a…01242 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x010e}
0x01242…01272 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000b, t01=0x0116}
0x01272…012a2 Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000b, t01=0x0146}
0x012a2…012d2 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000b, t01=0x0176}
0x012d2…012da Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0016}
0x012da…012fa Head {h00=0x001c, h01=0x0050, text=»MMUPAG EQU 1 0 = NO MMU «, t00=0x000c, t01=0x001e}
0x012fa…01302 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x003e}
0x01302…0132c Head {h00=0x0026, h01=0x0050, text=»SWPBLK EQU 0 SWAPPABLE WORK BLOCKS«, t00=0x000c, t01=0x0046}
0x0132c…01334 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0070}
0x01334…01356 Head {h00=0x001e, h01=0x0050, text=»CREDIT EQU 1 0 = ASSEMBLER«, t00=0x000c, t01=0x0078}
0x01356…0135e Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x009a}
0x0135e…0137e Head {h00=0x001c, h01=0x0050, text=»MMUSWB EQU MMUPAG+SWPBLK«, t00=0x000c, t01=0x00a2}
0x0137e…01386 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00c2}
0x01386…013a6 Head {h00=0x001c, h01=0x0050, text=»SWBMMU EQU SWPBLK-MMUPAG«, t00=0x000c, t01=0x00ca}
0x013a6…013b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00ea}
0x013b4…013bc Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00f8}
0x013bc…013da Head {h00=0x001a, h01=0x0050, text=» PROGRAM STRUCTURE: «, t00=0x000c, t01=0x0100}
0x013da…013e2 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x011e}
0x013e2…0142c Head {h00=0x0046, h01=0x0050, text=»* -------------------------------------------------------«, t00=0x000c, t01=0x0126}
0x0142c…0147c Head {h00=0x004c, h01=0x0050, text=»* ! RELOCATION ROUTINE !<- A13«, t00=0x000c, t01=0x0170}
0x0147c…014c6 Head {h00=0x0046, h01=0x0050, text=»* ! A14-STACK AND SUBROUTINE-HANDLER !«, t00=0x000d, t01=0x0030}
0x014c6…01510 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000d, t01=0x007a}
0x01510…0155a Head {h00=0x0046, h01=0x0050, text=»* ! SAVE & COMMUNICATION AREA. MMU - WORK TABLES !«, t00=0x000d, t01=0x00c4}
0x0155a…015a4 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000d, t01=0x010e}
0x015a4…015ee Head {h00=0x0046, h01=0x0050, text=»* ! SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM. !«, t00=0x000d, t01=0x0158}
0x015ee…01638 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000e, t01=0x0012}
0x01638…0168c Head {h00=0x0050, h01=0x0050, text=»* ! R E A L T A ! PART 2.B «, t00=0x000e, t01=0x005c}
0x0168c…016d6 Head {h00=0x0046, h01=0x0050, text=»* ! BUILD REAL TASK-LOCAL DATA AREAS !«, t00=0x000e, t01=0x00b0}
0x016d6…01720 Head {h00=0x0046, h01=0x0050, text=»* ! -QUEUE TASK VIA 'ACTOT' !«, t00=0x000e, t01=0x00fa}
0x01720…0176a Head {h00=0x0046, h01=0x0050, text=»* ! -FILL MM-TABLE IN TTAB !«, t00=0x000e, t01=0x0144}
0x0176a…017b4 Head {h00=0x0046, h01=0x0050, text=»* ! -COPY T:A'S ACCORDING TO SHADOW-TABLE !«, t00=0x000e, t01=0x018e}
0x017b4…017fe Head {h00=0x0046, h01=0x0050, text=»* ! -BUILD TWB'S AND RESERVE FOR SWB'S !«, t00=0x000f, t01=0x0048}
0x017fe…01848 Head {h00=0x0046, h01=0x0050, text=»* ! -ALLOCATE FIXED BUFFERS AND STACK !«, t00=0x000f, t01=0x0092}
0x01848…01892 Head {h00=0x0046, h01=0x0050, text=»* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE !«, t00=0x000f, t01=0x00dc}
0x01892…018dc Head {h00=0x0046, h01=0x0050, text=»* ! -START DEBUGGER (IF ANY) AND START APPLICATION !«, t00=0x000f, t01=0x0126}
0x018dc…01926 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000f, t01=0x0170}
0x01926…0197a Head {h00=0x0050, h01=0x0050, text=»* ! SUBROUTINES ! PART 2.A «, t00=0x0010, t01=0x002a}
0x0197a…019c4 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE DDIV PROTOTYPE TO FOLLOW SYSLDA !«, t00=0x0010, t01=0x007e}
0x019c4…01a0e Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0010, t01=0x00c8}
0x01a0e…01a58 Head {h00=0x0046, h01=0x0050, text=»* ! C O M D A T !«, t00=0x0010, t01=0x0112}
0x01a58…01aa2 Head {h00=0x0046, h01=0x0050, text=»* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S. !«, t00=0x0010, t01=0x015c}
0x01aa2…01aec Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO !«, t00=0x0011, t01=0x0016}
0x01aec…01b36 Head {h00=0x0046, h01=0x0050, text=»* ! SHADOW-TABLE. !«, t00=0x0011, t01=0x0060}
0x01b36…01b80 Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0011, t01=0x00aa}
0x01b80…01bca Head {h00=0x0046, h01=0x0050, text=»* ! C L A D A T !«, t00=0x0011, t01=0x00f4}
0x01bca…01c14 Head {h00=0x0046, h01=0x0050, text=»* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S !«, t00=0x0011, t01=0x013e}
0x01c14…01c5e Head {h00=0x0046, h01=0x0050, text=»* ! AND DWB'S. !«, t00=0x0011, t01=0x0188}
0x01c5e…01ca8 Head {h00=0x0046, h01=0x0050, text=»* ! -BUILD MM-TABLE !«, t00=0x0012, t01=0x0042}
0x01ca8…01cf2 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE T:D !«, t00=0x0012, t01=0x008c}
0x01cf2…01d3c Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE D.T. & W.B., COPY UWB'S !«, t00=0x0012, t01=0x00d6}
0x01d3c…01d86 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE D.T.'S OF SWB'S AND TWB'S !«, t00=0x0012, t01=0x0120}
0x01d86…01dd0 Head {h00=0x0046, h01=0x0050, text=»* ! -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE !«, t00=0x0012, t01=0x016a}
0x01dd0…01e1a Head {h00=0x0046, h01=0x0050, text=»* ! W.B.-ADDRESS !«, t00=0x0013, t01=0x0024}
0x01e1a…01e64 Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0013, t01=0x006e}
0x01e64…01eae Head {h00=0x0046, h01=0x0050, text=»* ! P R O D A T !«, t00=0x0013, t01=0x00b8}
0x01eae…01ef8 Head {h00=0x0046, h01=0x0050, text=»* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. !«, t00=0x0013, t01=0x0102}
0x01ef8…01f42 Head {h00=0x0046, h01=0x0050, text=»* ! -GENERATE TWB'S AND RESERVE FOR SWB'S !«, t00=0x0013, t01=0x014c}
0x01f42…01f8c Head {h00=0x0046, h01=0x0050, text=»* ! -ALLOCATE FIXED BUFFERS AND TERMINAL STACK !«, t00=0x0014, t01=0x0008}
0x01f8c…01fd6 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE T:A !«, t00=0x0014, t01=0x0052}
0x01fd6…02020 Head {h00=0x0046, h01=0x0050, text=»* ! -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA. !«, t00=0x0014, t01=0x009c}
0x02020…0206a Head {h00=0x0046, h01=0x0050, text=»* ! -CONTINUE IN PART 2.B !«, t00=0x0014, t01=0x00e6}
0x0206a…020b4 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x0014, t01=0x0130}
0x020b4…02106 Head {h00=0x004e, h01=0x0050, text=»* ! SUBROUTINES ! PART 1 «, t00=0x0014, t01=0x017a}
0x02106…02150 Head {h00=0x0046, h01=0x0050, text=»* ENTRY ->! * SYSLDA ENTRY * !«, t00=0x0015, t01=0x003c}
0x02150…0219a Head {h00=0x0046, h01=0x0050, text=»* ! CREDIT APPLICATION: ! ASSEMBLER APPLICATION: !«, t00=0x0015, t01=0x0086}
0x0219a…021e4 Head {h00=0x0046, h01=0x0050, text=»* ! READ CUNFIGURATION FILE ! -FILL MM-TABLES IN !«, t00=0x0015, t01=0x00d0}
0x021e4…0222e Head {h00=0x0046, h01=0x0050, text=»* ! AND BUILD SHADOW-TABLES. ! USER TASK TTAB'S. !«, t00=0x0015, t01=0x011a}
0x0222e…02278 Head {h00=0x0046, h01=0x0050, text=»* ! ! -QUEUE 1:ST USER TASK !«, t00=0x0015, t01=0x0164}
0x02278…022c2 Head {h00=0x0046, h01=0x0050, text=»* ! T:ATAB: ! AND START APPLICATION !«, t00=0x0016, t01=0x001e}
0x022c2…0230c Head {h00=0x0046, h01=0x0050, text=»* ! -A TABLE OF 'NUMBER OF !-------------------------!«, t00=0x0016, t01=0x0068}
0x0230c…02356 Head {h00=0x0046, h01=0x0050, text=»* ! REAL TASKS' IS BUILT AT !«, t00=0x0016, t01=0x00b2}
0x02356…023a0 Head {h00=0x0046, h01=0x0050, text=»* ! THE END OF MONITOR. !«, t00=0x0016, t01=0x00fc}
0x023a0…023ea Head {h00=0x0046, h01=0x0050, text=»* ! U:BTAB: !«, t00=0x0016, t01=0x0146}
0x023ea…02434 Head {h00=0x0046, h01=0x0050, text=»* ! -A TABLE OF 'NUMBER OF REAL UWB'S' IS BUILT IN !«, t00=0x0016, t01=0x0190}
0x02434…0247e Head {h00=0x0046, h01=0x0050, text=»* ! U:BTAB PROTOTYPE. !«, t00=0x0017, t01=0x004a}
0x0247e…024c8 Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0017, t01=0x0094}
0x024c8…02512 Head {h00=0x0046, h01=0x0050, text=»* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. !«, t00=0x0017, t01=0x00de}
0x02512…0255c Head {h00=0x0046, h01=0x0050, text=»* ! -REMOVE NOT USED ENTRIES IN T:ATAB !«, t00=0x0017, t01=0x0128}
0x0255c…025a6 Head {h00=0x0046, h01=0x0050, text=»* ! -RELOCATE ADDRESSES IN U:BTAB !«, t00=0x0017, t01=0x0172}
0x025a6…025f0 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE SYSLDA (NOT PART 1) TO FOLLOW T:ATAB SHADOW- !«, t00=0x0018, t01=0x002c}
0x025f0…0263a Head {h00=0x0046, h01=0x0050, text=»* ! TABLE !«, t00=0x0018, t01=0x0076}
0x0263a…02684 Head {h00=0x0046, h01=0x0050, text=»* ! -CONTINUE IN PART 2.A !«, t00=0x0018, t01=0x00c0}
0x02684…026ce Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x0018, t01=0x010a}
0x026ce…026dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0154}
0x026dc…026e8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0018, t01=0x0162}
0x026e8…02704 Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0018, t01=0x016e}
0x02704…02720 Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0018, t01=0x018a}
0x02720…0273c Head {h00=0x0018, h01=0x0050, text=» ** ** «, t00=0x0019, t01=0x0016}
0x0273c…02758 Head {h00=0x0018, h01=0x0050, text=» ** CONSTANTS ** «, t00=0x0019, t01=0x0032}
0x02758…02774 Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0019, t01=0x004e}
0x02774…02790 Head {h00=0x0018, h01=0x0050, text=» ** ** «, t00=0x0019, t01=0x006a}
0x02790…027ac Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0019, t01=0x0086}
0x027ac…027b8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0019, t01=0x00a2}
0x027b8…027ca Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x00ae}
0x027ca…027dc Head {h00=0x000e, h01=0x0050, text=»* P:MTAB *«, t00=0x0019, t01=0x00c0}
0x027dc…027ee Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x00d2}
0x027ee…02802 Head {h00=0x0010, h01=0x0050, text=»T:ATAB EQU 0«, t00=0x0019, t01=0x00e4}
0x02802…02816 Head {h00=0x0010, h01=0x0050, text=»U:BTAB EQU 2«, t00=0x0019, t01=0x00f8}
0x02816…02836 Head {h00=0x001c, h01=0x0050, text=»P:BAS EQU 6 SEGMENT BASE«, t00=0x0019, t01=0x010c}
0x02836…02868 Head {h00=0x002e, h01=0x0050, text=»T:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID'«, t00=0x0019, t01=0x012c}
0x02868…02894 Head {h00=0x0028, h01=0x0050, text=»S:BTAB EQU 40 DISP TO S:BTAB ADDRESS«, t00=0x0019, t01=0x015e}
0x02894…0289c Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x018a}
0x0289c…028a4 (26, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0004}
0x028a4…028b6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001a, t01=0x000c}
0x028b6…028c8 Head {h00=0x000e, h01=0x0050, text=»* U:BTAB *«, t00=0x001a, t01=0x001e}
0x028c8…028da Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001a, t01=0x0030}
0x028da…0290e Head {h00=0x0030, h01=0x0050, text=»UP:REC EQU 6 RECORD LENGTH IN INITIAL U:BTAB«, t00=0x001a, t01=0x0042}
0x0290e…02934 Head {h00=0x0022, h01=0x0050, text=»UPADDR EQU 2 PROTOTYPE ADDRESS«, t00=0x001a, t01=0x0076}
0x02934…02958 Head {h00=0x0020, h01=0x0050, text=»UPNAME EQU 4 PROTOTYPE NAME «, t00=0x001a, t01=0x009c}
0x02958…02994 Head {h00=0x0038, h01=0x0050, text=»UPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL)«, t00=0x001a, t01=0x00c0}
0x02994…0299e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00fc}
0x0299e…029d0 Head {h00=0x002e, h01=0x0050, text=»UR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB «, t00=0x001a, t01=0x0106}
0x029d0…029fe Head {h00=0x002a, h01=0x0050, text=»URADDR EQU 2 ADDRESS TO FIRST REAL UWB«, t00=0x001a, t01=0x0138}
0x029fe…02a22 Head {h00=0x0020, h01=0x0050, text=»URNUMB EQU 4 NUMBER OF UWB'S«, t00=0x001a, t01=0x0166}
0x02a22…02a44 Head {h00=0x001e, h01=0x0050, text=»URLENG EQU 6 LENGTH OF UWB«, t00=0x001a, t01=0x018a}
0x02a44…02a52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x001c}
0x02a52…02a5e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001b, t01=0x002a}
0x02a5e…02a6a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001b, t01=0x0036}
0x02a6a…02a76 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001b, t01=0x0042}
0x02a76…02a9e Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001b, t01=0x004e}
0x02a9e…02ac6 Head {h00=0x0024, h01=0x0050, text=»* CONFIGURATION FILE (CONFIG) * «, t00=0x001b, t01=0x0076}
0x02ac6…02aee Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001b, t01=0x009e}
0x02aee…02afa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001b, t01=0x00c6}
0x02afa…02b1a Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x001b, t01=0x00d2}
0x02b1a…02b3c Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x001b, t01=0x00f2}
0x02b3c…02b68 Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x001b, t01=0x0114}
0x02b68…02b98 Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x001b, t01=0x0140}
0x02b98…02bc8 Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x001b, t01=0x0170}
0x02bc8…02bf0 Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x001c, t01=0x0010}
0x02bf0…02c2e Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x001c, t01=0x0038}
0x02c2e…02c38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0076}
0x02c38…02c62 Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 FIRST TERM DEF «, t00=0x001c, t01=0x0080}
0x02c62…02c8a Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x001c, t01=0x00aa}
0x02c8a…02cac Head {h00=0x001e, h01=0x0050, text=»TLC EQU 6 LINE CONNECTION «, t00=0x001c, t01=0x00d2}
0x02cac…02cd8 Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x001c, t01=0x00f4}
0x02cd8…02ce2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0120}
0x02ce2…02d10 Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x001c, t01=0x012a}
0x02d10…02d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0158}
0x02d1a…02d3e Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x001c, t01=0x0162}
0x02d3e…02d60 Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x001c, t01=0x0186}
0x02d60…02d9a Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x001d, t01=0x0018}
0x02d9a…02dc6 Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 FIRST SDC-RECORD «, t00=0x001d, t01=0x0052}
0x02dc6…02dd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x007e}
0x02dd0…02dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0088}
0x02dda…02e04 Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x001d, t01=0x0092}
0x02e04…02e26 Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x001d, t01=0x00bc}
0x02e26…02e56 Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x001d, t01=0x00de}
0x02e56…02e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x010e}
0x02e60…02e8c Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 FIRST UDB-RECORD «, t00=0x001d, t01=0x0118}
0x02e8c…02eac Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x001d, t01=0x0144}
0x02eac…02ed2 Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x001d, t01=0x0164}
0x02ed2…02f04 Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x001d, t01=0x018a}
0x02f04…02f12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x002c}
0x02f12…02f1e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001e, t01=0x003a}
0x02f1e…02f2a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001e, t01=0x0046}
0x02f2a…02f3c Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001e, t01=0x0052}
0x02f3c…02f4e Head {h00=0x000e, h01=0x0050, text=»* T:A * «, t00=0x001e, t01=0x0064}
0x02f4e…02f60 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001e, t01=0x0076}
0x02f60…02f80 Head {h00=0x001c, h01=0x0050, text=»T:ASTA EQU -14 T:A START«, t00=0x001e, t01=0x0088}
0x02f80…02fba Head {h00=0x0036, h01=0x0050, text=»CSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) «, t00=0x001e, t01=0x00a8}
0x02fba…02fe2 Head {h00=0x0024, h01=0x0050, text=»CSB EQU -12 CURRENT SEGMENT BASE«, t00=0x001e, t01=0x00e2}
0x02fe2…0301a Head {h00=0x0034, h01=0x0050, text=»CSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH «, t00=0x001e, t01=0x010a}
0x0301a…03050 Head {h00=0x0032, h01=0x0050, text=» OF ALL DSCB-RECORDS«, t00=0x001e, t01=0x0142}
0x03050…03074 Head {h00=0x0020, h01=0x0050, text=»T:DAD EQU -8 ADDRESS TO T:D «, t00=0x001e, t01=0x0178}
0x03074…030a2 Head {h00=0x002a, h01=0x0050, text=»CIA EQU -6 CURRENT INSTUCTION ADDRESS «, t00=0x001f, t01=0x000c}
0x030a2…030ce Head {h00=0x0028, h01=0x0050, text=» (HERE: DISPLACEMENT TO T:A-START)«, t00=0x001f, t01=0x003a}
0x030ce…030da Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x0066}
0x030da…030f8 Head {h00=0x001a, h01=0x0050, text=»T:ATID EQU -4 TASK ID «, t00=0x001f, t01=0x0072}
0x030f8…03116 Head {h00=0x001a, h01=0x0050, text=»STKE EQU -2 STACK END «, t00=0x001f, t01=0x0090}
0x03116…03134 Head {h00=0x001a, h01=0x0050, text=»PA EQU 0 STACK POINTER«, t00=0x001f, t01=0x00ae}
0x03134…03152 Head {h00=0x001a, h01=0x0050, text=»STKB EQU 2 STACK BASE «, t00=0x001f, t01=0x00cc}
0x03152…03178 Head {h00=0x0022, h01=0x0050, text=»WATFST EQU 4 FIRST WAT-ELEMENT«, t00=0x001f, t01=0x00ea}
0x03178…03182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0110}
0x03182…03198 Head {h00=0x0012, h01=0x0050, text=»* DSCB-RECORD:«, t00=0x001f, t01=0x011a}
0x03198…031ba Head {h00=0x001e, h01=0x0050, text=»DSCBL EQU 20 RECORD LENGTH«, t00=0x001f, t01=0x0130}
0x031ba…031da Head {h00=0x001c, h01=0x0050, text=»BA EQU 2 BUFFER ADDRESS «, t00=0x001f, t01=0x0152}
0x031da…031f6 Head {h00=0x0018, h01=0x0050, text=»RL EQU 4 REQ. LENGTH«, t00=0x001f, t01=0x0172}
0x031f6…03212 Head {h00=0x0018, h01=0x0050, text=»EL EQU 6 EFF. LENGTH«, t00=0x001f, t01=0x018e}
0x03212…03238 Head {h00=0x0022, h01=0x0050, text=»BL EQU 14 LENGTH ITEM ADDRESS «, t00=0x0020, t01=0x001a}
0x03238…03246 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0040}
0x03246…03252 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0020, t01=0x004e}
0x03252…0325e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0020, t01=0x005a}
0x0325e…03270 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0020, t01=0x0066}
0x03270…03282 Head {h00=0x000e, h01=0x0050, text=»* T:D * «, t00=0x0020, t01=0x0078}
0x03282…03294 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0020, t01=0x008a}
0x03294…032c0 Head {h00=0x0028, h01=0x0050, text=»FCD EQU 0 DISPLACEMENT TO FCB IN T:A«, t00=0x0020, t01=0x009c}
0x032c0…032f0 Head {h00=0x002c, h01=0x0050, text=»T:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE)«, t00=0x0020, t01=0x00c8}
0x032f0…03320 Head {h00=0x002c, h01=0x0050, text=»DATLEN EQU 4 NUMBER OF DATASETS (DSCB'S)«, t00=0x0020, t01=0x00f8}
0x03320…0334a Head {h00=0x0026, h01=0x0050, text=»WATLEN EQU 6 NUMBER OF WATELEMENTS«, t00=0x0020, t01=0x0128}
0x0334a…0337e Head {h00=0x0030, h01=0x0050, text=»TWBMSK EQU 8 MASK FOR TWB'S (ONE BIT/ENTRY) «, t00=0x0020, t01=0x0152}
0x0337e…033ac Head {h00=0x002a, h01=0x0050, text=»SWBMSK EQU 10 MASK FOR SWB'S -"- «, t00=0x0020, t01=0x0186}
0x033ac…033da Head {h00=0x002a, h01=0x0050, text=»CWBMSK EQU 12 MASK FOR CWB'S -"- «, t00=0x0021, t01=0x0024}
0x033da…03408 Head {h00=0x002a, h01=0x0050, text=»UWBMSK EQU 14 MASK FOR UWB'S -"- «, t00=0x0021, t01=0x0052}
0x03408…03434 Head {h00=0x0028, h01=0x0050, text=»DWBFST EQU 16 FIRST WORD IN DBLK-TAB«, t00=0x0021, t01=0x0080}
0x03434…0343c Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00ac}
0x0343c…0346e Head {h00=0x002e, h01=0x0050, text=»STPREC EQU 4 RECORD LENGTH OF START-POINTS«, t00=0x0021, t01=0x00b4}
0x0346e…03476 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00e6}
0x03476…0347e Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00ee}
0x0347e…03496 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0021, t01=0x00f6}
0x03496…034ae Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x0021, t01=0x010e}
0x034ae…034c6 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0021, t01=0x0126}
0x034c6…034e8 Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x0021, t01=0x013e}
0x034e8…034f0 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0160}
0x034f0…0350e Head {h00=0x001a, h01=0x0050, text=» LAMP CODE MEANING «, t00=0x0021, t01=0x0168}
0x0350e…0352c Head {h00=0x001a, h01=0x0050, text=» --------- ------- «, t00=0x0021, t01=0x0186}
0x0352c…0354e Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 SYSLOAD RUNS«, t00=0x0022, t01=0x0014}
0x0354e…0356e Head {h00=0x001c, h01=0x0050, text=»LMP2 EQU /200 READ ERROR«, t00=0x0022, t01=0x0036}
0x0356e…03594 Head {h00=0x0022, h01=0x0050, text=»LMP3 EQU /100 MEMORY OVERFLOW «, t00=0x0022, t01=0x0056}
0x03594…035be Head {h00=0x0026, h01=0x0050, text=»LMP4 EQU /80 FORMAT ERROR (CONFIG)«, t00=0x0022, t01=0x007c}
0x035be…035dc Head {h00=0x001a, h01=0x0050, text=»LMP5 EQU /40 TID ERROR«, t00=0x0022, t01=0x00a6}
0x035dc…03602 Head {h00=0x0022, h01=0x0050, text=»LMP6 EQU /20 UWB OR SWB ERROR «, t00=0x0022, t01=0x00c4}
0x03602…03628 Head {h00=0x0022, h01=0x0050, text=»LMP7 EQU /10 MM-TABLE OVERFLOW«, t00=0x0022, t01=0x00ea}
0x03628…0363a Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x0022, t01=0x0110}
0x0363a…0364c Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x0022, t01=0x0122}
0x0364c…03660 Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x0022, t01=0x0134}
0x03660…03674 Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x0022, t01=0x0148}
0x03674…03682 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x015c}
0x03682…036a0 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0022, t01=0x016a}
0x036a0…036be Head {h00=0x001a, h01=0x0050, text=»* OTHER CONSTANTS * «, t00=0x0022, t01=0x0188}
0x036be…036dc Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0023, t01=0x0016}
0x036dc…036e8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0023, t01=0x0034}
0x036e8…03712 Head {h00=0x0026, h01=0x0050, text=»WBLEN EQU -4 LENGTH OF WORK-BLOCK «, t00=0x0023, t01=0x0040}
0x03712…03742 Head {h00=0x002c, h01=0x0050, text=»DTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE «, t00=0x0023, t01=0x006a}
0x03742…0376c Head {h00=0x0026, h01=0x0050, text=»SWBLEN EQU 4 DISP TO LENGTH OF SWB«, t00=0x0023, t01=0x009a}
0x0376c…03778 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0023, t01=0x00c4}
0x03778…037a0 Head {h00=0x0024, h01=0x0050, text=»FCBDD1 EQU 8 DISP TO FIRST DSET «, t00=0x0023, t01=0x00d0}
0x037a0…037c8 Head {h00=0x0024, h01=0x0050, text=»FCBDD2 EQU 10 DISP TO 2:ND DSET «, t00=0x0023, t01=0x00f8}
0x037c8…037d4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0023, t01=0x0120}
0x037d4…037fc Head {h00=0x0024, h01=0x0050, text=»STKSZ EQU 128 DEFAULT STACK-SIZE«, t00=0x0023, t01=0x012c}
0x037fc…03808 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0023, t01=0x0154}
0x03808…03832 Head {h00=0x0026, h01=0x0050, text=»CREID EQU 2 CREDIT IDENTIFICATION «, t00=0x0023, t01=0x0160}
0x03832…0385e Head {h00=0x0028, h01=0x0050, text=»SEGREC EQU 6 RECORD LENGTH IN S:GTAB«, t00=0x0023, t01=0x018a}
0x0385e…0389a Head {h00=0x0038, h01=0x0050, text=»NUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN S:GTAB«, t00=0x0024, t01=0x0026}
0x0389a…038a2 Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x0062}
0x038a2…038c2 Head {h00=0x001c, h01=0x0050, text=»TTBTID EQU 2 TID IN TTAB«, t00=0x0024, t01=0x006a}
0x038c2…038f4 Head {h00=0x002e, h01=0x0050, text=»T:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB «, t00=0x0024, t01=0x008a}
0x038f4…03922 Head {h00=0x002a, h01=0x0050, text=»TTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB«, t00=0x0024, t01=0x00bc}
0x03922…0392a Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x00ea}
0x0392a…03956 Head {h00=0x0028, h01=0x0050, text=»NTPA EQU 4 INTERPRETER START ADDRESS«, t00=0x0024, t01=0x00f2}
0x03956…03980 Head {h00=0x0026, h01=0x0050, text=»IHRTC EQU 4 RTC INTERRUPT ADDRESS «, t00=0x0024, t01=0x011e}
0x03980…039a8 Head {h00=0x0024, h01=0x0050, text=»RTCDA EQU /1B RTC DEVICE ADDRESS«, t00=0x0024, t01=0x0148}
0x039a8…039b4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0024, t01=0x0170}
0x039b4…039fe Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0024, t01=0x017c}
0x039fe…03a48 Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x0025, t01=0x0036}
0x03a48…03a92 Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x0025, t01=0x0080}
0x03a92…03adc Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0025, t01=0x00ca}
0x03adc…03b26 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0025, t01=0x0114}
0x03b26…03b32 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0025, t01=0x015e}
0x03b32…03b3e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0025, t01=0x016a}
0x03b3e…03b4a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0025, t01=0x0176}
0x03b4a…03b68 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x0025, t01=0x0182}
0x03b68…03b76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0010}
0x03b76…03b82 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0026, t01=0x001e}
0x03b82…03bbc Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x002a}
0x03bbc…03bf6 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x0064}
0x03bf6…03c30 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0026, t01=0x009e}
0x03c30…03c6a Head {h00=0x0036, h01=0x0050, text=»** RELOCATION ROUTINE & STACK INITIALLISATION **«, t00=0x0026, t01=0x00d8}
0x03c6a…03ca4 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0026, t01=0x0112}
0x03ca4…03cde Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x014c}
0x03cde…03d18 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x0186}
0x03d18…03d24 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0027, t01=0x0030}
0x03d24…03d54 Head {h00=0x002c, h01=0x0050, text=»REL RF SUBBA JUMP TO SUBROUTINE HANDLER «, t00=0x0027, t01=0x003c}
0x03d54…03d7e Head {h00=0x0026, h01=0x0050, text=» LDR A13,P GET BASE ADDRESS TO A13«, t00=0x0027, t01=0x006c}
0x03d7e…03d92 Head {h00=0x0010, h01=0x0050, text=» SUKL A13,4 «, t00=0x0027, t01=0x0096}
0x03d92…03db4 Head {h00=0x001e, h01=0x0050, text=»* ADJUST FOR PSW-ROUTINE *«, t00=0x0027, t01=0x00aa}
0x03db4…03dd6 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0027, t01=0x00cc}
0x03dd6…03e10 Head {h00=0x0036, h01=0x0050, text=» LDK A3,GETPSW RELATIVE ADDRESS TO 'PSWSW-ADDRESS'«, t00=0x0027, t01=0x00ee}
0x03e10…03e30 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A13 ABSOLUT DITO«, t00=0x0027, t01=0x0128}
0x03e30…03e68 Head {h00=0x0034, h01=0x0050, text=» ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE«, t00=0x0027, t01=0x0148}
0x03e68…03e82 Head {h00=0x0016, h01=0x0050, text=»* LOAD STACKBASE *«, t00=0x0027, t01=0x0180}
0x03e82…03e9c Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0028, t01=0x000a}
0x03e9c…03ea4 Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x0024}
0x03ea4…03ebc Head {h00=0x0014, h01=0x0050, text=» LDKL A14,STACKB«, t00=0x0028, t01=0x002c}
0x03ebc…03eda Head {h00=0x001a, h01=0x0050, text=» ADR A14,A13 RELOCATE «, t00=0x0028, t01=0x0044}
0x03eda…03eea Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0028, t01=0x0062}
0x03eea…03ef6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x0072}
0x03ef6…03f02 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x007e}
0x03f02…03f14 Head {h00=0x000e, h01=0x0050, text=»* STACK * «, t00=0x0028, t01=0x008a}
0x03f14…03f26 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0028, t01=0x009c}
0x03f26…03f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ae}
0x03f30…03f40 Head {h00=0x000c, h01=0x0050, text=» RES 12 «, t00=0x0028, t01=0x00b8}
0x03f40…03f5a Head {h00=0x0016, h01=0x0050, text=»STACKB EQU *-REL-2«, t00=0x0028, t01=0x00c8}
0x03f5a…03f68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x00e2}
0x03f68…03f74 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x00f0}
0x03f74…03f80 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x00fc}
0x03f80…03fa2 Head {h00=0x001e, h01=0x0050, text=»* ADDRESS TO PSW-ROUTINE *«, t00=0x0028, t01=0x0108}
0x03fa2…03fc4 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0028, t01=0x012a}
0x03fc4…03fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x014c}
0x03fce…03fe4 Head {h00=0x0012, h01=0x0050, text=»PSW EQU *-REL «, t00=0x0028, t01=0x0156}
0x03fe4…03ff8 Head {h00=0x0010, h01=0x0050, text=» DATA GETPSW«, t00=0x0028, t01=0x016c}
0x03ff8…04004 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x0180}
0x04004…0404c Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0028, t01=0x018c}
0x0404c…04094 Head {h00=0x0044, h01=0x0050, text=»* G E T P S W *«, t00=0x0029, t01=0x0044}
0x04094…040dc Head {h00=0x0044, h01=0x0050, text=»* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE *«, t00=0x0029, t01=0x008c}
0x040dc…04124 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0029, t01=0x00d4}
0x04124…04130 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0029, t01=0x011c}
0x04130…04148 Head {h00=0x0014, h01=0x0050, text=»GETPSW EQU *-REL«, t00=0x0029, t01=0x0128}
0x04148…04170 Head {h00=0x0024, h01=0x0050, text=» STR A2,A14 SAVE A2 ON A14-STACK«, t00=0x0029, t01=0x0140}
0x04170…041a4 Head {h00=0x0030, h01=0x0050, text=» LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE«, t00=0x0029, t01=0x0168}
0x041a4…041d6 Head {h00=0x002e, h01=0x0050, text=» ST A2,6,A14 REPLACE PSW FROM MAIN PROGRAM«, t00=0x002a, t01=0x000c}
0x041d6…041f6 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A14 RESTORE A2 «, t00=0x002a, t01=0x003e}
0x041f6…04206 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x005e}
0x04206…04214 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x006e}
0x04214…0421c Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x007c}
0x0421c…04246 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002a, t01=0x0084}
0x04246…04270 Head {h00=0x0026, h01=0x0050, text=»* * «, t00=0x002a, t01=0x00ae}
0x04270…0429a Head {h00=0x0026, h01=0x0050, text=»* SUBROUTINE-HANDLER * «, t00=0x002a, t01=0x00d8}
0x0429a…042c4 Head {h00=0x0026, h01=0x0050, text=»* * «, t00=0x002a, t01=0x0102}
0x042c4…042ee Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002a, t01=0x012c}
0x042ee…042f6 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0156}
0x042f6…0430e Head {h00=0x0014, h01=0x0050, text=»SUBSUB EQU *-REL«, t00=0x002a, t01=0x015e}
0x0430e…04334 Head {h00=0x0022, h01=0x0050, text=»SUBBA ST A10,MUL,A13 SAVE A10 «, t00=0x002a, t01=0x0176}
0x04334…04366 Head {h00=0x002e, h01=0x0050, text=» LD* A10,4,A14 GET SUBROUTINE REL ADDRESS «, t00=0x002b, t01=0x000c}
0x04366…0438e Head {h00=0x0024, h01=0x0050, text=» IM 4,A14 ADJUST RETURN ADDRESS «, t00=0x002b, t01=0x003e}
0x0438e…043a0 Head {h00=0x000e, h01=0x0050, text=» IM 4,A14 «, t00=0x002b, t01=0x0066}
0x043a0…043d4 Head {h00=0x0030, h01=0x0050, text=» AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION «, t00=0x002b, t01=0x0078}
0x043d4…043f6 Head {h00=0x001e, h01=0x0050, text=» STR A10,A14 PUT ON STACK «, t00=0x002b, t01=0x00ac}
0x043f6…0441a Head {h00=0x0020, h01=0x0050, text=» LD A10,MUL,A13 RESTORE A10 «, t00=0x002b, t01=0x00ce}
0x0441a…0442c Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x002b, t01=0x00f2}
0x0442c…04434 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0104}
0x04434…0443c Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x010c}
0x0443c…04444 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0114}
0x04444…04484 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x011c}
0x04484…044c4 Head {h00=0x003c, h01=0x0050, text=»* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * «, t00=0x002b, t01=0x015c}
0x044c4…04504 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002c, t01=0x000c}
0x04504…0450c Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x004c}
0x0450c…04524 Head {h00=0x0014, h01=0x0050, text=»JUMP ABL SYSLDM «, t00=0x002c, t01=0x0054}
0x04524…04532 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x006c}
0x04532…0453e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x002c, t01=0x007a}
0x0453e…0456a Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002c, t01=0x0086}
0x0456a…04596 Head {h00=0x0028, h01=0x0050, text=»** **«, t00=0x002c, t01=0x00b2}
0x04596…045c2 Head {h00=0x0028, h01=0x0050, text=»** SAVE, AND COMMUNICATION AREA **«, t00=0x002c, t01=0x00de}
0x045c2…045ee Head {h00=0x0028, h01=0x0050, text=»** **«, t00=0x002c, t01=0x010a}
0x045ee…0461a Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002c, t01=0x0136}
0x0461a…04626 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x002c, t01=0x0162}
0x04626…04654 Head {h00=0x002a, h01=0x0050, text=»T:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS «, t00=0x002c, t01=0x016e}
0x04654…04664 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x000c}
0x04664…04692 Head {h00=0x002a, h01=0x0050, text=»T:ATNW EQU *-REL T:ATAB 'NEW' ADDRESS «, t00=0x002d, t01=0x001c}
0x04692…046a2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x004a}
0x046a2…046ce Head {h00=0x0028, h01=0x0050, text=»U:BTOD EQU *-REL U:BTAB OLD ADDRESS «, t00=0x002d, t01=0x005a}
0x046ce…046de Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0086}
0x046de…0470a Head {h00=0x0028, h01=0x0050, text=»U:BTNW EQU *-REL U:BTAB NEW ADDRESS «, t00=0x002d, t01=0x0096}
0x0470a…0471a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x00c2}
0x0471a…04746 Head {h00=0x0028, h01=0x0050, text=»S:BTOD EQU *-REL S:BTAB OLD ADDRESS «, t00=0x002d, t01=0x00d2}
0x04746…04756 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x00fe}
0x04756…04782 Head {h00=0x0028, h01=0x0050, text=»S:BTNW EQU *-REL S:BTAB NEW ADDRESS «, t00=0x002d, t01=0x010e}
0x04782…04792 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x013a}
0x04792…047c4 Head {h00=0x002e, h01=0x0050, text=»MOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE«, t00=0x002d, t01=0x014a}
0x047c4…047d4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x017c}
0x047d4…0480c Head {h00=0x0034, h01=0x0050, text=»MOVED EQU *-REL INDICATOR IF BLOCK ALREDY MOVED «, t00=0x002d, t01=0x018c}
0x0480c…0481c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0034}
0x0481c…0484a Head {h00=0x002a, h01=0x0050, text=»ENDADD EQU *-REL END-ADDRESS INDICATOR«, t00=0x002e, t01=0x0044}
0x0484a…04868 Head {h00=0x001a, h01=0x0050, text=» FOR TABLE-SCANNING «, t00=0x002e, t01=0x0072}
0x04868…04878 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0090}
0x04878…048b6 Head {h00=0x003a, h01=0x0050, text=»LSTADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART «, t00=0x002e, t01=0x00a0}
0x048b6…048c6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x00de}
0x048c6…0490a Head {h00=0x0040, h01=0x0050, text=»FSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS «, t00=0x002e, t01=0x00ee}
0x0490a…0491a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0132}
0x0491a…04948 Head {h00=0x002a, h01=0x0050, text=»NEWAD1 EQU *-REL SAVE FOR W.B. ADDRESS«, t00=0x002e, t01=0x0142}
0x04948…04958 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0170}
0x04958…04986 Head {h00=0x002a, h01=0x0050, text=»NEWAD2 EQU *-REL SAVE FORD.T. ADDRESS «, t00=0x002e, t01=0x0180}
0x04986…04996 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x001e}
0x04996…049be Head {h00=0x0024, h01=0x0050, text=»SWITCH EQU *-REL D.T. INDICATOR «, t00=0x002f, t01=0x002e}
0x049be…049ce Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0056}
0x049ce…04a08 Head {h00=0x0036, h01=0x0050, text=»FLAG EQU *-REL REAL TASK DATA PROCESSING INDICATOR«, t00=0x002f, t01=0x0066}
0x04a08…04a18 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x00a0}
0x04a18…04a3e Head {h00=0x0022, h01=0x0050, text=»UWB EQU *-REL U.W.B. INDICATOR«, t00=0x002f, t01=0x00b0}
0x04a3e…04a4e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x00d6}
0x04a4e…04a76 Head {h00=0x0024, h01=0x0050, text=»SAVE01 EQU *-REL TEMPORARY SAVE «, t00=0x002f, t01=0x00e6}
0x04a76…04a86 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x010e}
0x04a86…04a9e Head {h00=0x0014, h01=0x0050, text=»SAVE02 EQU *-REL«, t00=0x002f, t01=0x011e}
0x04a9e…04aae Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0136}
0x04aae…04ac6 Head {h00=0x0014, h01=0x0050, text=»SAVE03 EQU *-REL«, t00=0x002f, t01=0x0146}
0x04ac6…04ad6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x015e}
0x04ad6…04aee Head {h00=0x0014, h01=0x0050, text=»SAVE04 EQU *-REL«, t00=0x002f, t01=0x016e}
0x04aee…04afe Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0186}
0x04afe…04b16 Head {h00=0x0014, h01=0x0050, text=»SAVE05 EQU *-REL«, t00=0x0030, t01=0x0008}
0x04b16…04b26 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0020}
0x04b26…04b3e Head {h00=0x0014, h01=0x0050, text=»SAVE06 EQU *-REL«, t00=0x0030, t01=0x0030}
0x04b3e…04b4e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0048}
0x04b4e…04b66 Head {h00=0x0014, h01=0x0050, text=»SAVE07 EQU *-REL«, t00=0x0030, t01=0x0058}
0x04b66…04b76 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0070}
0x04b76…04b8e Head {h00=0x0014, h01=0x0050, text=»SAVE08 EQU *-REL«, t00=0x0030, t01=0x0080}
0x04b8e…04b9e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0098}
0x04b9e…04bc2 Head {h00=0x0020, h01=0x0050, text=»SAVE09 EQU *-REL SAVE AREAS «, t00=0x0030, t01=0x00a8}
0x04bc2…04bd2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00cc}
0x04bd2…04bea Head {h00=0x0014, h01=0x0050, text=»SAVE10 EQU *-REL«, t00=0x0030, t01=0x00dc}
0x04bea…04bfa Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00f4}
0x04bfa…04c12 Head {h00=0x0014, h01=0x0050, text=»SAVE11 EQU *-REL«, t00=0x0030, t01=0x0104}
0x04c12…04c22 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x011c}
0x04c22…04c3a Head {h00=0x0014, h01=0x0050, text=»SAVE12 EQU *-REL«, t00=0x0030, t01=0x012c}
0x04c3a…04c4a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0144}
0x04c4a…04c62 Head {h00=0x0014, h01=0x0050, text=»SAVE13 EQU *-REL«, t00=0x0030, t01=0x0154}
0x04c62…04c72 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x016c}
0x04c72…04c8a Head {h00=0x0014, h01=0x0050, text=»SAVE22 EQU *-REL«, t00=0x0030, t01=0x017c}
0x04c8a…04c9a (49, 0, 400) Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0004}
0x04c9a…04cb2 Head {h00=0x0014, h01=0x0050, text=»SAVE25 EQU *-REL«, t00=0x0031, t01=0x0014}
0x04cb2…04cc2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x002c}
0x04cc2…04cec Head {h00=0x0026, h01=0x0050, text=»WBADD EQU *-REL W.B.-ADDRESS SAVE «, t00=0x0031, t01=0x003c}
0x04cec…04cfc Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0066}
0x04cfc…04d2a Head {h00=0x002a, h01=0x0050, text=»MUL EQU *-REL MULTIPLICATION REGISTER «, t00=0x0031, t01=0x0076}
0x04d2a…04d3a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x00a4}
0x04d3a…04d64 Head {h00=0x0026, h01=0x0050, text=»BIT EQU *-REL SAVE FOR SUPER-LOOP «, t00=0x0031, t01=0x00b4}
0x04d64…04d74 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x00de}
0x04d74…04db0 Head {h00=0x0038, h01=0x0050, text=»TADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS«, t00=0x0031, t01=0x00ee}
0x04db0…04dc0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x012a}
0x04dc0…04dee Head {h00=0x002a, h01=0x0050, text=»DATEND EQU *-REL END OF DDIV PROTOTYPE«, t00=0x0031, t01=0x013a}
0x04dee…04dfe Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0168}
0x04dfe…04e2a Head {h00=0x0028, h01=0x0050, text=»MMREL1 EQU *-REL PHYSICALL PAGE BASE«, t00=0x0031, t01=0x0178}
0x04e2a…04e3a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x0014}
0x04e3a…04e68 Head {h00=0x002a, h01=0x0050, text=»M:REL EQU *-REL RELOCATION FOR SYSLDM «, t00=0x0032, t01=0x0024}
0x04e68…04e78 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x0052}
0x04e78…04e90 Head {h00=0x0014, h01=0x0050, text=»SYSBUF EQU *-REL«, t00=0x0032, t01=0x0062}
0x04e90…04ebe Head {h00=0x002a, h01=0x0050, text=» DATA 0 TEMPORARY BUFFER START ADDRESS«, t00=0x0032, t01=0x007a}
0x04ebe…04ee8 Head {h00=0x0026, h01=0x0050, text=»BUFSIZ EQU *-REL TEMP. BUFFER SIZE«, t00=0x0032, t01=0x00a8}
0x04ee8…04ef8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x00d2}
0x04ef8…04f1e Head {h00=0x0022, h01=0x0050, text=»MMTO EQU *-REL MMTABLE ADDRESS«, t00=0x0032, t01=0x00e2}
0x04f1e…04f2e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x0108}
0x04f2e…04f5c Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU *-REL 2:ND MMTABLE ADDRESS «, t00=0x0032, t01=0x0118}
0x04f5c…04f6c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x0146}
0x04f6c…04fa0 Head {h00=0x0030, h01=0x0050, text=»FYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER«, t00=0x0032, t01=0x0156}
0x04fa0…04fb0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x018a}
0x04fb0…04fc8 Head {h00=0x0014, h01=0x0050, text=»FSTPAG EQU *-REL«, t00=0x0033, t01=0x000a}
0x04fc8…04ff4 Head {h00=0x0028, h01=0x0050, text=» DATA 0 FIRST FREE PAGE (PHYSICALL) «, t00=0x0033, t01=0x0022}
0x04ff4…05020 Head {h00=0x0028, h01=0x0050, text=»TTAB EQU *-REL CORRENT TTAB ADDRESS «, t00=0x0033, t01=0x004e}
0x05020…05030 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0033, t01=0x007a}
0x05030…05048 Head {h00=0x0014, h01=0x0050, text=»LDALEN EQU *-REL«, t00=0x0033, t01=0x008a}
0x05048…05060 Head {h00=0x0014, h01=0x0050, text=» DATA LDAEND-REL«, t00=0x0033, t01=0x00a2}
0x05060…05078 Head {h00=0x0014, h01=0x0050, text=»XMSAV EQU *-REL «, t00=0x0033, t01=0x00ba}
0x05078…0508a Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0033, t01=0x00d2}
0x0508a…05092 Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x00e4}
0x05092…0509a Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x00ec}
0x0509a…050a2 Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x00f4}
0x050a2…050aa Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x00fc}
0x050aa…050d4 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0033, t01=0x0104}
0x050d4…050fe Head {h00=0x0026, h01=0x0050, text=»* EQUATES FOR SYSLDM SAVE-WORDS * «, t00=0x0033, t01=0x012e}
0x050fe…05128 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0033, t01=0x0158}
0x05128…05130 Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0182}
0x05130…0514a Head {h00=0x0016, h01=0x0050, text=»SAVE14 EQU U:BTOD «, t00=0x0033, t01=0x018a}
0x0514a…05164 Head {h00=0x0016, h01=0x0050, text=»SAVE15 EQU U:BTNW «, t00=0x0034, t01=0x0014}
0x05164…0517e Head {h00=0x0016, h01=0x0050, text=»SAVE16 EQU MOVADD «, t00=0x0034, t01=0x002e}
0x0517e…05198 Head {h00=0x0016, h01=0x0050, text=»SAVE17 EQU ENDADD «, t00=0x0034, t01=0x0048}
0x05198…051b2 Head {h00=0x0016, h01=0x0050, text=»SAVE18 EQU LSTADR «, t00=0x0034, t01=0x0062}
0x051b2…051cc Head {h00=0x0016, h01=0x0050, text=»SAVE19 EQU FSTADR «, t00=0x0034, t01=0x007c}
0x051cc…051e4 Head {h00=0x0014, h01=0x0050, text=»SAVE20 EQU MOVED«, t00=0x0034, t01=0x0096}
0x051e4…051fe Head {h00=0x0016, h01=0x0050, text=»SAVE21 EQU NEWAD1 «, t00=0x0034, t01=0x00ae}
0x051fe…05218 Head {h00=0x0016, h01=0x0050, text=»SAVE23 EQU SWITCH «, t00=0x0034, t01=0x00c8}
0x05218…05230 Head {h00=0x0014, h01=0x0050, text=»SAVE24 EQU FLAG «, t00=0x0034, t01=0x00e2}
0x05230…0523e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x00fa}
0x0523e…05246 Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x0108}
0x05246…0525c Head {h00=0x0012, h01=0x0050, text=»* MMU TABLES *«, t00=0x0034, t01=0x0110}
0x0525c…05264 Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x0126}
0x05264…0526c Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x012e}
0x0526c…0529e Head {h00=0x002e, h01=0x0050, text=»MMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE «, t00=0x0034, t01=0x0136}
0x0529e…052b4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0034, t01=0x0168}
0x052b4…052c4 Head {h00=0x000c, h01=0x0050, text=» RES 16 «, t00=0x0034, t01=0x017e}
0x052c4…052d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x018e}
0x052d0…052d8 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x000a}
0x052d8…05300 Head {h00=0x0024, h01=0x0050, text=»MMTAB EQU *-REL WORK AREA MM-TAB«, t00=0x0035, t01=0x0012}
0x05300…05314 Head {h00=0x0010, h01=0x0050, text=»TABBE EQU * «, t00=0x0035, t01=0x003a}
0x05314…0532a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0035, t01=0x004e}
0x0532a…05348 Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0035, t01=0x0064}
0x05348…05366 Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0035, t01=0x0082}
0x05366…05372 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x00a0}
0x05372…05386 Head {h00=0x0010, h01=0x0050, text=»MMEND EQU * «, t00=0x0035, t01=0x00ac}
0x05386…053be Head {h00=0x0034, h01=0x0050, text=»TTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB «, t00=0x0035, t01=0x00c0}
0x053be…053c6 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x00f8}
0x053c6…053e0 Head {h00=0x0016, h01=0x0050, text=»MMBEG EQU TABBE-* «, t00=0x0035, t01=0x0100}
0x053e0…05414 Head {h00=0x0030, h01=0x0050, text=»LSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER'«, t00=0x0035, t01=0x011a}
0x05414…05422 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x014e}
0x05422…0542e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0035, t01=0x015c}
0x0542e…05468 Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x0035, t01=0x0168}
0x05468…054a2 Head {h00=0x0036, h01=0x0050, text=»*** S U B R O U T I N E S *** «, t00=0x0036, t01=0x0012}
0x054a2…054dc Head {h00=0x0036, h01=0x0050, text=»*** -COMMON TO ALL PARTS IN PROGRAM *** «, t00=0x0036, t01=0x004c}
0x054dc…05516 Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x0036, t01=0x0086}
0x05516…05550 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0036, t01=0x00c0}
0x05550…0558a Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0036, t01=0x00fa}
0x0558a…05596 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0036, t01=0x0134}
0x05596…055a2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0036, t01=0x0140}
0x055a2…055d2 Head {h00=0x002c, h01=0x0050, text=»** E R R O R **«, t00=0x0036, t01=0x014c}
0x055d2…05602 Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0036, t01=0x017c}
0x05602…05632 Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0037, t01=0x001c}
0x05632…05662 Head {h00=0x002c, h01=0x0050, text=»** ERROR HANDLING ROUTINE. **«, t00=0x0037, t01=0x004c}
0x05662…05692 Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0037, t01=0x007c}
0x05692…056c2 Head {h00=0x002c, h01=0x0050, text=»** INPUT :A1=SOP-MESSAGE **«, t00=0x0037, t01=0x00ac}
0x056c2…056f2 Head {h00=0x002c, h01=0x0050, text=»** OUTPUT:A2=RELATIVE CALLING ADDRESS**«, t00=0x0037, t01=0x00dc}
0x056f2…05722 Head {h00=0x002c, h01=0x0050, text=»** (REG-CONTENTS IS SAVED) **«, t00=0x0037, t01=0x010c}
0x05722…05752 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0037, t01=0x013c}
0x05752…0575a Head {h00=0x0004, h01=0x0050, t00=0x0037, t01=0x016c}
0x0575a…0576e Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x0037, t01=0x0174}
0x0576e…05790 Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVE01,A13 SAVE A2 «, t00=0x0037, t01=0x0188}
0x05790…057c2 Head {h00=0x002e, h01=0x0050, text=» LD A2,4,A14 GET CALLING ABSOLUTE ADDRESS «, t00=0x0038, t01=0x001a}
0x057c2…057e4 Head {h00=0x001e, h01=0x0050, text=» SUR A2,A13 RELATIVE DITO «, t00=0x0038, t01=0x004c}
0x057e4…057fa Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x0038, t01=0x006e}
0x057fa…05806 Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x0038, t01=0x0084}
0x05806…0582c Head {h00=0x0022, h01=0x0050, text=» DATA /6300 (DEBUGGING PURPOS)«, t00=0x0038, t01=0x0090}
0x0582c…0583a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00b6}
0x0583a…05842 Head {h00=0x0004, h01=0x0050, t00=0x0038, t01=0x00c4}
0x05842…0586c Head {h00=0x0026, h01=0x0050, text=»** M O V E ** «, t00=0x0038, t01=0x00cc}
0x0586c…05896 Head {h00=0x0026, h01=0x0050, text=»** ** «, t00=0x0038, t01=0x00f6}
0x05896…058c0 Head {h00=0x0026, h01=0x0050, text=»** ** «, t00=0x0038, t01=0x0120}
0x058c0…058ea Head {h00=0x0026, h01=0x0050, text=»** MOVE BLOCKS INSIDE MEMORY ** «, t00=0x0038, t01=0x014a}
0x058ea…05914 Head {h00=0x0026, h01=0x0050, text=»** ** «, t00=0x0038, t01=0x0174}
0x05914…0593e Head {h00=0x0026, h01=0x0050, text=»** INPUT:A1=FROM-ADDRESS ** «, t00=0x0039, t01=0x000e}
0x0593e…05968 Head {h00=0x0026, h01=0x0050, text=»** A2=TO-ADDRESS ** «, t00=0x0039, t01=0x0038}
0x05968…05992 Head {h00=0x0026, h01=0x0050, text=»** A3=LENGTH ** «, t00=0x0039, t01=0x0062}
0x05992…059bc Head {h00=0x0026, h01=0x0050, text=»** OUTPUT:A3=-1 ** «, t00=0x0039, t01=0x008c}
0x059bc…059e6 Head {h00=0x0026, h01=0x0050, text=»** WORK-REG: A4 ** «, t00=0x0039, t01=0x00b6}
0x059e6…05a10 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0039, t01=0x00e0}
0x05a10…05a1c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0039, t01=0x010a}
0x05a1c…05a2e Head {h00=0x000e, h01=0x0050, text=»MOVE EQU *«, t00=0x0039, t01=0x0116}
0x05a2e…05a56 Head {h00=0x0024, h01=0x0050, text=»MOVES ADR A1,A3 END OF FROM AREA«, t00=0x0039, t01=0x0128}
0x05a56…05a78 Head {h00=0x001e, h01=0x0050, text=» ADR A2,A3 END OF TO-AREA «, t00=0x0039, t01=0x0150}
0x05a78…05aa2 Head {h00=0x0026, h01=0x0050, text=» LD A4,SCTEFA GET END OF FREE AREA«, t00=0x0039, t01=0x0172}
0x05aa2…05ac0 Head {h00=0x001a, h01=0x0050, text=» TNM A2,A4 EQUAL SIGN?«, t00=0x003a, t01=0x000c}
0x05ac0…05ada Head {h00=0x0016, h01=0x0050, text=» RF(NN) MOVNN YES «, t00=0x003a, t01=0x002a}
0x05ada…05b06 Head {h00=0x0028, h01=0x0050, text=» CWR A4,A2 COMPARE WHEN UNEQUAL SIGN«, t00=0x003a, t01=0x0044}
0x05b06…05b18 Head {h00=0x000e, h01=0x0050, text=» RF MOVCK «, t00=0x003a, t01=0x0070}
0x05b18…05b48 Head {h00=0x002c, h01=0x0050, text=»MOVNN CWR A2,A4 COMPARE WHEN EQUAL SIGN «, t00=0x003a, t01=0x0082}
0x05b48…05b84 Head {h00=0x0038, h01=0x0050, text=»MOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA«, t00=0x003a, t01=0x00b2}
0x05b84…05b9a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x003a, t01=0x00ee}
0x05b9a…05bc6 Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x003a, t01=0x0104}
0x05bc6…05be8 Head {h00=0x001e, h01=0x0050, text=»MOVE10 SUK A3,1 DEC LENGTH«, t00=0x003a, t01=0x0130}
0x05be8…05c06 Head {h00=0x001a, h01=0x0050, text=» RF(N) MOVE20 ALL DONE«, t00=0x003a, t01=0x0152}
0x05c06…05c18 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003a, t01=0x0170}
0x05c18…05c2a Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003a, t01=0x0182}
0x05c2a…05c4a (59, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LCR A4,A1 GET CHARACTER«, t00=0x003b, t01=0x0004}
0x05c4a…05c6c Head {h00=0x001e, h01=0x0050, text=» SCR A4,A2 STORE CHARACTER«, t00=0x003b, t01=0x0024}
0x05c6c…05c7e Head {h00=0x000e, h01=0x0050, text=» RB MOVE10«, t00=0x003b, t01=0x0046}
0x05c7e…05c94 Head {h00=0x0012, h01=0x0050, text=»MOVE20 RTN A14«, t00=0x003b, t01=0x0058}
0x05c94…05cb0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x003b, t01=0x006e}
0x05cb0…05cbe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x008a}
0x05cbe…05cca Head {h00=0x0008, h01=0x0050, text=» «, t00=0x003b, t01=0x0098}
0x05cca…05cd6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x003b, t01=0x00a4}
0x05cd6…05d0e Head {h00=0x0034, h01=0x0050, text=»** M O V I N G ** «, t00=0x003b, t01=0x00b0}
0x05d0e…05d46 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x003b, t01=0x00e8}
0x05d46…05d7e Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x003b, t01=0x0120}
0x05d7e…05db6 Head {h00=0x0034, h01=0x0050, text=»** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** «, t00=0x003b, t01=0x0158}
0x05db6…05dee Head {h00=0x0034, h01=0x0050, text=»** ASSUMED TO BE DATA-PART OF MEMORY ** «, t00=0x003b, t01=0x0190}
0x05dee…05e26 Head {h00=0x0034, h01=0x0050, text=»** LSTADR POINTS AT LAST (HIGHEST) FREE ** «, t00=0x003c, t01=0x0038}
0x05e26…05e5e Head {h00=0x0034, h01=0x0050, text=»** ADDRESS. LSTADR IS UPDATED AND CHECKED ** «, t00=0x003c, t01=0x0070}
0x05e5e…05e96 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x003c, t01=0x00a8}
0x05e96…05ece Head {h00=0x0034, h01=0x0050, text=»** INPUT:A3 & A1 AS IN 'MOVE' ** «, t00=0x003c, t01=0x00e0}
0x05ece…05f06 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** «, t00=0x003c, t01=0x0118}
0x05f06…05f3e Head {h00=0x0034, h01=0x0050, text=»** WORK-REG: A4 ** «, t00=0x003c, t01=0x0150}
0x05f3e…05f76 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x003c, t01=0x0188}
0x05f76…05f82 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x003d, t01=0x0030}
0x05f82…05f96 Head {h00=0x0010, h01=0x0050, text=»MOVING EQU *«, t00=0x003d, t01=0x003c}
0x05f96…05fc0 Head {h00=0x0026, h01=0x0050, text=» LD A2,LSTADR,A13 GET LAST ADDRESS«, t00=0x003d, t01=0x0050}
0x05fc0…05fde Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 SUB LENGTH «, t00=0x003d, t01=0x007a}
0x05fde…06006 Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x003d, t01=0x0098}
0x06006…0602a Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE01,A13 SAVE A11 «, t00=0x003d, t01=0x00c0}
0x0602a…0604c Head {h00=0x001e, h01=0x0050, text=» ST A9,SAVE12,A13 SAVE A9 «, t00=0x003d, t01=0x00e4}
0x0604c…06060 Head {h00=0x0010, h01=0x0050, text=» LDR A11,A2 «, t00=0x003d, t01=0x0106}
0x06060…0608e Head {h00=0x002a, h01=0x0050, text=» LD A9,DATEND,A13 END OF PROTOTYP AREA«, t00=0x003d, t01=0x011a}
0x0608e…060b4 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x003d, t01=0x0148}
0x060b4…060ca Head {h00=0x0012, h01=0x0050, text=» RF(NL) MOV020«, t00=0x003d, t01=0x016e}
0x060ca…060f6 Head {h00=0x0028, h01=0x0050, text=»MOV010 LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x003d, t01=0x0184}
0x060f6…0610a Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x003e, t01=0x0020}
0x0610a…06142 Head {h00=0x0034, h01=0x0050, text=»MOV020 LD A9,FSTADR,A13 CHECK FIRST FREE ADDRESS«, t00=0x003e, t01=0x0034}
0x06142…06156 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x003e, t01=0x006c}
0x06156…0616c Head {h00=0x0012, h01=0x0050, text=» RB(L) MOV010 «, t00=0x003e, t01=0x0080}
0x0616c…06192 Head {h00=0x0022, h01=0x0050, text=» ST A2,LSTADR,A13 NEW ADDRESS «, t00=0x003e, t01=0x0096}
0x06192…061be Head {h00=0x0028, h01=0x0050, text=» LD A9,SAVE12,A13 RESTORE REGISTERS «, t00=0x003e, t01=0x00bc}
0x061be…061d8 Head {h00=0x0016, h01=0x0050, text=» LD A11,SAVE01,A13«, t00=0x003e, t01=0x00e8}
0x061d8…061ea Head {h00=0x000e, h01=0x0050, text=» RB MOVES «, t00=0x003e, t01=0x0102}
0x061ea…061f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0114}
0x061f6…06212 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x003e, t01=0x0120}
0x06212…06220 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x013c}
0x06220…06228 Head {h00=0x0004, h01=0x0001, t00=0x003e, t01=0x014a}
0x06228…06260 Head {h00=0x0034, h01=0x0050, text=»** X M O V E **«, t00=0x003e, t01=0x0152}
0x06260…06298 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x003e, t01=0x018a}
0x06298…062d0 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x003f, t01=0x0032}
0x062d0…06308 Head {h00=0x0034, h01=0x0050, text=»** MOVE BLOCK INSIDE MEMORY VIA MMU **«, t00=0x003f, t01=0x006a}
0x06308…06340 Head {h00=0x0034, h01=0x0050, text=»** TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) **«, t00=0x003f, t01=0x00a2}
0x06340…06378 Head {h00=0x0034, h01=0x0050, text=»** -MOVE TO USER AREA **«, t00=0x003f, t01=0x00da}
0x06378…063b0 Head {h00=0x0034, h01=0x0050, text=»** IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT**«, t00=0x003f, t01=0x0112}
0x063b0…063e8 Head {h00=0x0034, h01=0x0050, text=»** BIG ENOUGH THE MOVE IS REPEATED **«, t00=0x003f, t01=0x014a}
0x063e8…06420 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x003f, t01=0x0182}
0x06420…06458 Head {h00=0x0034, h01=0x0050, text=»** INPUT :A1=FROM-ADDR(MMFROM=MM-TABLE ADDR.)**«, t00=0x0040, t01=0x002a}
0x06458…06490 Head {h00=0x0034, h01=0x0050, text=»** A2=TO-ADDRESS (MMTO=MM-TABLE ADDR.)**«, t00=0x0040, t01=0x0062}
0x06490…064c8 Head {h00=0x0034, h01=0x0050, text=»** A3=LENGTH (IN BYTES) **«, t00=0x0040, t01=0x009a}
0x064c8…06500 Head {h00=0x0034, h01=0x0050, text=»** WORK.REGS:A4,A10 **«, t00=0x0040, t01=0x00d2}
0x06500…06538 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0040, t01=0x010a}
0x06538…06540 Head {h00=0x0004, h01=0x0050, t00=0x0040, t01=0x0142}
0x06540…06554 Head {h00=0x0010, h01=0x0050, text=»XMOVE EQU * «, t00=0x0040, t01=0x014a}
0x06554…0656e Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE09,A13 «, t00=0x0040, t01=0x015e}
0x0656e…06588 Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE07,A13 «, t00=0x0040, t01=0x0178}
0x06588…065a2 (65, 0, 400) Head {h00=0x0016, h01=0x0050, text=» ST A2,SAVE10,A13 «, t00=0x0041, t01=0x0004}
0x065a2…065bc Head {h00=0x0016, h01=0x0050, text=» ST A2,SAVE08,A13 «, t00=0x0041, t01=0x001e}
0x065bc…065d6 Head {h00=0x0016, h01=0x0050, text=» ST A3,SAVE11,A13 «, t00=0x0041, t01=0x0038}
0x065d6…06600 Head {h00=0x0026, h01=0x0050, text=» ST A9,XMSAV,A13 SAVE A9,TEMPORARY«, t00=0x0041, t01=0x0052}
0x06600…0662e Head {h00=0x002a, h01=0x0050, text=» ST A11,XMSAV+2,A13 SAVE A11 TEMPORARY«, t00=0x0041, t01=0x007c}
0x0662e…06642 Head {h00=0x0010, h01=0x0050, text=»XMOV05 EQU *«, t00=0x0041, t01=0x00aa}
0x06642…06662 Head {h00=0x001c, h01=0x0017, text=» LDR A10,A3 SAVE LENGTH «, t00=0x0041, t01=0x00be}
0x06662…06692 Head {h00=0x002c, h01=0x0028, text=» LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER«, t00=0x0041, t01=0x00de}
0x06692…066c0 Head {h00=0x002a, h01=0x0050, text=» LDR A11,A3 GET LENGTH OF AREA TO MOVE«, t00=0x0041, t01=0x010e}
0x066c0…066f4 Head {h00=0x0030, h01=0x0050, text=» LD A9,BUFSIZ,A13 GET TEMPORARY BUFFER SIZE «, t00=0x0041, t01=0x013c}
0x066f4…06710 Head {h00=0x0018, h01=0x0050, text=» CALL CMPADR COMPARE«, t00=0x0041, t01=0x0170}
0x06710…06736 Head {h00=0x0022, h01=0x001d, text=» RF(G) SPLIT NO! SEVERAL MOVE «, t00=0x0041, t01=0x018c}
0x06736…0675a Head {h00=0x0020, h01=0x0050, text=»XMOV10 LDR A3,A10 GET LENGTH«, t00=0x0042, t01=0x0022}
0x0675a…06784 Head {h00=0x0026, h01=0x0050, text=» LD A1,SAVE09,A13 GET FROM ADDRESS«, t00=0x0042, t01=0x0046}
0x06784…067bc Head {h00=0x0034, h01=0x0050, text=» LD A2,SYSBUF,A13 GET TEMP. BUFFER START-ADDRESS«, t00=0x0042, t01=0x0070}
0x067bc…067e4 Head {h00=0x0024, h01=0x0050, text=» TL* MMFROM,A13 LOAD FROM-TABLE «, t00=0x0042, t01=0x00a8}
0x067e4…06814 Head {h00=0x002c, h01=0x0028, text=» MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER«, t00=0x0042, t01=0x00d0}
0x06814…06848 Head {h00=0x0030, h01=0x0050, text=» ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS«, t00=0x0042, t01=0x0100}
0x06848…06862 Head {h00=0x0016, h01=0x0050, text=» LD A1,SYSBUF,A13 «, t00=0x0042, t01=0x0134}
0x06862…06896 Head {h00=0x0030, h01=0x0050, text=» LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS «, t00=0x0042, t01=0x014e}
0x06896…068b4 Head {h00=0x001a, h01=0x0016, text=» LDR A3,A10 GET LENGTH«, t00=0x0042, t01=0x0182}
0x068b4…068d8 Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0043, t01=0x0010}
0x068d8…06904 Head {h00=0x0028, h01=0x0024, text=» MVSU A3 MOVE DATA-BLOCK FROM BUFFER«, t00=0x0043, t01=0x0034}
0x06904…0692a Head {h00=0x0022, h01=0x001d, text=» SUK A4,1 MORE PARTS TO MOVE? «, t00=0x0043, t01=0x0060}
0x0692a…06944 Head {h00=0x0016, h01=0x0050, text=» RF(N) XMOV30 NO! «, t00=0x0043, t01=0x0086}
0x06944…06958 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A10 «, t00=0x0043, t01=0x00a0}
0x06958…0698c Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS«, t00=0x0043, t01=0x00b4}
0x0698c…069ba Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE11,A13 GET REQUESTED LENGTH«, t00=0x0043, t01=0x00e8}
0x069ba…069e2 Head {h00=0x0024, h01=0x001f, text=» SUR A3,A10 SUBTRACT MOVED PART «, t00=0x0043, t01=0x0116}
0x069e2…06a00 Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE11,A13 SAVE«, t00=0x0043, t01=0x013e}
0x06a00…06a2c Head {h00=0x0028, h01=0x0050, text=» LDR A11,A3 GET REMAINING LENGTH =3 «, t00=0x0043, t01=0x015c}
0x06a2c…06a5c Head {h00=0x002c, h01=0x0050, text=» LDR A9,A10 GET CURRENT BUFFER LENGTH =3«, t00=0x0043, t01=0x0188}
0x06a5c…06a96 Head {h00=0x0036, h01=0x0050, text=» CALL CMPADR REMAINING PART<CURRENT BUFFER LENGTH?«, t00=0x0044, t01=0x0028}
0x06a96…06aac Head {h00=0x0012, h01=0x0050, text=» RB(NL) XMOV10«, t00=0x0044, t01=0x0062}
0x06aac…06acc Head {h00=0x001c, h01=0x0050, text=» LDR A10,A3 LAST LENGTH «, t00=0x0044, t01=0x0078}
0x06acc…06ade Head {h00=0x000e, h01=0x0050, text=» RB XMOV10«, t00=0x0044, t01=0x0098}
0x06ade…06aec Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0044, t01=0x00aa}
0x06aec…06af4 Head {h00=0x0004, h01=0x0001, t00=0x0044, t01=0x00b8}
0x06af4…06b08 Head {h00=0x0010, h01=0x000b, text=»SPLIT EQU * «, t00=0x0044, t01=0x00c0}
0x06b08…06b2a Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 GET DIVISOR =3 «, t00=0x0044, t01=0x00d4}
0x06b2a…06b5a Head {h00=0x002c, h01=0x0050, text=» SRL A1,15 MOST SIGN. PART OF DIVISOR =3«, t00=0x0044, t01=0x00f6}
0x06b5a…06b78 Head {h00=0x001a, h01=0x0016, text=» LDR A2,A3 GET DIVISOR«, t00=0x0044, t01=0x0126}
0x06b78…06b9a Head {h00=0x001e, h01=0x0019, text=» DV BUFSIZ,A13 AND DIVIDE «, t00=0x0044, t01=0x0144}
0x06b9a…06bd0 Head {h00=0x0032, h01=0x0050, text=» LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1)«, t00=0x0044, t01=0x0166}
0x06bd0…06bfa Head {h00=0x0026, h01=0x0022, text=» LD A10,BUFSIZ,A13 MOVE MAX LENGTH«, t00=0x0045, t01=0x000c}
0x06bfa…06c0c Head {h00=0x000e, h01=0x0050, text=» RB XMOV10«, t00=0x0045, t01=0x0036}
0x06c0c…06c14 Head {h00=0x0004, h01=0x0001, t00=0x0045, t01=0x0048}
0x06c14…06c48 Head {h00=0x0030, h01=0x0050, text=»XMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS'«, t00=0x0045, t01=0x0050}
0x06c48…06c78 Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS'«, t00=0x0045, t01=0x0084}
0x06c78…06c9c Head {h00=0x0020, h01=0x0050, text=» LD A9,XMSAV,A13 RESTORE A9 «, t00=0x0045, t01=0x00b4}
0x06c9c…06cc4 Head {h00=0x0024, h01=0x0050, text=» LD A11,XMSAV+2,A13 RESTORE A11 «, t00=0x0045, t01=0x00d8}
0x06cc4…06cd4 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0045, t01=0x0100}
0x06cd4…06ce2 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0045, t01=0x0110}
0x06ce2…06cea Head {h00=0x0004, h01=0x0001, t00=0x0045, t01=0x011e}
0x06cea…06d22 Head {h00=0x0034, h01=0x0050, text=»** M O V I N G ** «, t00=0x0045, t01=0x0126}
0x06d22…06d5a Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0045, t01=0x015e}
0x06d5a…06d92 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0046, t01=0x0008}
0x06d92…06dca Head {h00=0x0034, h01=0x0050, text=»** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** «, t00=0x0046, t01=0x0040}
0x06dca…06e02 Head {h00=0x0034, h01=0x0050, text=»** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** «, t00=0x0046, t01=0x0078}
0x06e02…06e3a Head {h00=0x0034, h01=0x0050, text=»** IS ALWAYS ASSUMED TO BE DATA PART OF ** «, t00=0x0046, t01=0x00b0}
0x06e3a…06e72 Head {h00=0x0034, h01=0x0050, text=»** MEMORY. LSTADR & FYSPAG POINTS AT LAST ** «, t00=0x0046, t01=0x00e8}
0x06e72…06eaa Head {h00=0x0034, h01=0x0050, text=»** (HIGHEST) FREE ADDRESS. LSTADR &FYSPAG ** «, t00=0x0046, t01=0x0120}
0x06eaa…06ee2 Head {h00=0x0034, h01=0x0050, text=»** IS UPDATED AND CHECKED. ** «, t00=0x0046, t01=0x0158}
0x06ee2…06f1a Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0046, t01=0x0190}
0x06f1a…06f52 Head {h00=0x0034, h01=0x0050, text=»** INPUT :A1 & A3 AS IN 'XMOVE' ** «, t00=0x0047, t01=0x0038}
0x06f52…06f8a Head {h00=0x0034, h01=0x0050, text=»** TTAB=POINTER TO TTAB (OR LIKELY) ** «, t00=0x0047, t01=0x0070}
0x06f8a…06fc2 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A2=LOGICALL TO-ADDRESS ** «, t00=0x0047, t01=0x00a8}
0x06fc2…06ffa Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS: A4,A10 ** «, t00=0x0047, t01=0x00e0}
0x06ffa…07032 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0047, t01=0x0118}
0x07032…0703a Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x0150}
0x0703a…0704e Head {h00=0x0010, h01=0x0050, text=»MOVING EQU *«, t00=0x0047, t01=0x0158}
0x0704e…07072 Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE01,A13 SAVE A11 «, t00=0x0047, t01=0x016c}
0x07072…07094 Head {h00=0x001e, h01=0x0050, text=» ST A9,SAVE12,A13 SAVE A9 «, t00=0x0047, t01=0x0190}
0x07094…070c6 Head {h00=0x002e, h01=0x0029, text=» LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE «, t00=0x0048, t01=0x0022}
0x070c6…070f0 Head {h00=0x0026, h01=0x0050, text=» LD A10,TTAB,A13 LOAD TTAB-ADDRESS«, t00=0x0048, t01=0x0054}
0x070f0…07126 Head {h00=0x0032, h01=0x002e, text=» LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB«, t00=0x0048, t01=0x007e}
0x07126…0714c Head {h00=0x0022, h01=0x001d, text=» LDR* A9,A2 GET PAGE IN TABLE «, t00=0x0048, t01=0x00b4}
0x0714c…07162 Head {h00=0x0012, h01=0x0050, text=» ANKL A9,/FC00«, t00=0x0048, t01=0x00da}
0x07162…07190 Head {h00=0x002a, h01=0x0025, text=» CWR A9,A4 CORRECT PAGE IN MMU-TABLE? «, t00=0x0048, t01=0x00f0}
0x07190…071aa Head {h00=0x0016, h01=0x0050, text=» RF(E) MOV010 YES!«, t00=0x0048, t01=0x011e}
0x071aa…071d4 Head {h00=0x0026, h01=0x0050, text=» ADKL A4,/400 ADJUST FOR 'SETTAB' «, t00=0x0048, t01=0x0138}
0x071d4…071fc Head {h00=0x0024, h01=0x0050, text=» CALL SETTAB NEW PAGE IN TABLE! «, t00=0x0048, t01=0x0162}
0x071fc…07236 Head {h00=0x0036, h01=0x0050, text=»MOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS«, t00=0x0048, t01=0x018a}
0x07236…0724c Head {h00=0x0012, h01=0x000e, text=» ANKL A11,/FFF«, t00=0x0049, t01=0x0034}
0x0724c…0727a Head {h00=0x002a, h01=0x0050, text=» LDR A9,A3 GET LENGTH OF AREA TO MOVE «, t00=0x0049, t01=0x004a}
0x0727a…072ae Head {h00=0x0030, h01=0x0050, text=» CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? «, t00=0x0049, t01=0x0078}
0x072ae…072c8 Head {h00=0x0016, h01=0x0050, text=» RF(NL) MOV020 YES«, t00=0x0049, t01=0x00ac}
0x072c8…072fc Head {h00=0x0030, h01=0x0050, text=» SUR A11,A3 COMPUTE DISPLACEMENT WITHIN PAGE«, t00=0x0049, t01=0x00c6}
0x072fc…0731a Head {h00=0x001a, h01=0x0050, text=»MOV015 RF(NP) MOV025 «, t00=0x0049, t01=0x00fa}
0x0731a…07348 Head {h00=0x002a, h01=0x0050, text=» CALL SETTAB INITIALIZE NEW PAGE ENTRY«, t00=0x0049, t01=0x0118}
0x07348…07376 Head {h00=0x002a, h01=0x0050, text=» ADKL A11,4096 PHYSICAL PAGE INCREMENT«, t00=0x0049, t01=0x0146}
0x07376…07388 Head {h00=0x000e, h01=0x0050, text=» RB MOV015«, t00=0x0049, t01=0x0174}
0x07388…073c2 Head {h00=0x0036, h01=0x0050, text=»MOV020 SUR A11,A3 COMPUTE DISPLACEMENT WITHIN PAGE«, t00=0x0049, t01=0x0186}
0x073c2…073de Head {h00=0x0018, h01=0x0050, text=»MOV025 RF(NN) MOV050«, t00=0x004a, t01=0x0030}
0x073de…0740c Head {h00=0x002a, h01=0x0050, text=»MOV030 CALL SETTAB NEW PAGE IN TABLE! «, t00=0x004a, t01=0x004c}
0x0740c…07436 Head {h00=0x0026, h01=0x0021, text=» ADKL A11,4096 NEW PAGE INCREMENT «, t00=0x004a, t01=0x007a}
0x07436…07462 Head {h00=0x0028, h01=0x0050, text=» RB(N) MOV030 NOT ENOUGH. NEW PAGE! «, t00=0x004a, t01=0x00a4}
0x07462…0746a Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x00d0}
0x0746a…07496 Head {h00=0x0028, h01=0x0050, text=»* MM-TABLE CORRECT. SAVE ADDRESSES *«, t00=0x004a, t01=0x00d8}
0x07496…0749e Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0104}
0x0749e…074c0 Head {h00=0x001e, h01=0x0050, text=»* A4=PHYSICALL PAGE NUMBER«, t00=0x004a, t01=0x010c}
0x074c0…074e4 Head {h00=0x0020, h01=0x0050, text=»* A11=DISPLACEM. WITHIN PAGE«, t00=0x004a, t01=0x012e}
0x074e4…0750a Head {h00=0x0022, h01=0x0050, text=»* A2=CURRENT ENTRY IN MM-TABLE«, t00=0x004a, t01=0x0152}
0x0750a…07512 Head {h00=0x0004, h01=0x0001, t00=0x004a, t01=0x0178}
0x07512…07526 Head {h00=0x0010, h01=0x0050, text=»MOV050 EQU *«, t00=0x004a, t01=0x0180}
0x07526…07556 (75, 0, 400) Head {h00=0x002c, h01=0x0028, text=» ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB«, t00=0x004b, t01=0x0004}
0x07556…0758a Head {h00=0x0030, h01=0x002c, text=» ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER«, t00=0x004b, t01=0x0034}
0x0758a…075c2 Head {h00=0x0034, h01=0x0050, text=» LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. «, t00=0x004b, t01=0x0068}
0x075c2…075ec Head {h00=0x0026, h01=0x0022, text=» ADR A4,A10 ABSOLUTE ENTRY ADDRESS«, t00=0x004b, t01=0x00a0}
0x075ec…07616 Head {h00=0x0026, h01=0x0050, text=» ST A4,MMTO,A13 SAVE TABLE ADDRESS«, t00=0x004b, t01=0x00ca}
0x07616…0763a Head {h00=0x0020, h01=0x001b, text=» SUR A2,A4 RELATIVE ADDRESS «, t00=0x004b, t01=0x00f4}
0x0763a…07670 Head {h00=0x0032, h01=0x0050, text=» SLL A2,11 SHIFT TO FOUR FIRST BITS & DIV BY 2«, t00=0x004b, t01=0x0118}
0x07670…0769e Head {h00=0x002a, h01=0x0050, text=» ORR A2,A11 GET DISPLACEM. WITHIN PAGE«, t00=0x004b, t01=0x014e}
0x0769e…076c2 Head {h00=0x0020, h01=0x0050, text=» ANKL A2,/FFFE EVEN ADDRESS «, t00=0x004b, t01=0x017c}
0x076c2…076f2 Head {h00=0x002c, h01=0x0027, text=» ST A2,LSTADR,A13 SAVE LOGICALL ADDRESS «, t00=0x004c, t01=0x0010}
0x076f2…0770e Head {h00=0x0018, h01=0x0050, text=»* CHECK ADDRESSES * «, t00=0x004c, t01=0x0040}
0x0770e…07716 Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x005c}
0x07716…07744 Head {h00=0x002a, h01=0x0050, text=» LD A9,FSTPAG,A13 GET FIRST FREE PAGE «, t00=0x004c, t01=0x0064}
0x07744…07768 Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE07,A13 SAVE A11 «, t00=0x004c, t01=0x0092}
0x07768…07782 Head {h00=0x0016, h01=0x0050, text=» LD A11,FYSPAG,A13«, t00=0x004c, t01=0x00b6}
0x07782…077a2 Head {h00=0x001c, h01=0x0050, text=» CALL CMPADR AND COMPARE«, t00=0x004c, t01=0x00d0}
0x077a2…077bc Head {h00=0x0016, h01=0x0050, text=» RF(G) MOV090 OK! «, t00=0x004c, t01=0x00f0}
0x077bc…077d6 Head {h00=0x0016, h01=0x0050, text=» RF(L) MOV070 NOK!«, t00=0x004c, t01=0x010a}
0x077d6…07800 Head {h00=0x0026, h01=0x0050, text=» LD A11,SAVE07,A13 RESTORE DISPL. «, t00=0x004c, t01=0x0124}
0x07800…0781a Head {h00=0x0016, h01=0x0050, text=» LD A9,FSTADR,A13 «, t00=0x004c, t01=0x014e}
0x0781a…0782e Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x004c, t01=0x0168}
0x0782e…07848 Head {h00=0x0016, h01=0x0050, text=» RF(NL) MOV090 OK!«, t00=0x004c, t01=0x017c}
0x07848…07864 Head {h00=0x0018, h01=0x0050, text=»MOV070 LDKL A1,LMP3 «, t00=0x004d, t01=0x0008}
0x07864…07878 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004d, t01=0x0024}
0x07878…0788c Head {h00=0x0010, h01=0x0050, text=»MOV090 EQU *«, t00=0x004d, t01=0x0038}
0x0788c…078a4 Head {h00=0x0014, h01=0x0050, text=» CALL XMOVE MOVE«, t00=0x004d, t01=0x004c}
0x078a4…078be Head {h00=0x0016, h01=0x0050, text=» LD A9,SAVE12,A13 «, t00=0x004d, t01=0x0064}
0x078be…078ea Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 RESTORE REGISTERS«, t00=0x004d, t01=0x007e}
0x078ea…07912 Head {h00=0x0024, h01=0x0050, text=» TL* MMFROM,A13 RESTORE MM-TABLE«, t00=0x004d, t01=0x00aa}
0x07912…07922 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x004d, t01=0x00d2}
0x07922…07930 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x004d, t01=0x00e2}
0x07930…07938 Head {h00=0x0004, h01=0x0001, t00=0x004d, t01=0x00f0}
0x07938…07972 Head {h00=0x0036, h01=0x0050, text=»** S E T T A B ** «, t00=0x004d, t01=0x00f8}
0x07972…079ac Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x004d, t01=0x0132}
0x079ac…079e6 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x004d, t01=0x016c}
0x079e6…07a20 Head {h00=0x0036, h01=0x0050, text=»** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** «, t00=0x004e, t01=0x0016}
0x07a20…07a5a Head {h00=0x0036, h01=0x0050, text=»** OVERFLOW. ** «, t00=0x004e, t01=0x0050}
0x07a5a…07a94 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x004e, t01=0x008a}
0x07a94…07ace Head {h00=0x0036, h01=0x0050, text=»** INPUT :A2-ADDRESS TO CURRENT ENTRY ** «, t00=0x004e, t01=0x00c4}
0x07ace…07b08 Head {h00=0x0036, h01=0x0050, text=»** A4=PHYSICALL PAGE ** «, t00=0x004e, t01=0x00fe}
0x07b08…07b42 Head {h00=0x0036, h01=0x0050, text=»** OUTPUT:A2 & A4 IS UPDATED ** «, t00=0x004e, t01=0x0138}
0x07b42…07b7c Head {h00=0x0036, h01=0x0050, text=»** WORK.REG: A9 ** «, t00=0x004e, t01=0x0172}
0x07b7c…07bb6 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x004f, t01=0x001c}
0x07bb6…07bbe Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x0056}
0x07bbe…07bd2 Head {h00=0x0010, h01=0x0050, text=»SETTAB EQU *«, t00=0x004f, t01=0x005e}
0x07bd2…07bf6 Head {h00=0x0020, h01=0x001b, text=» SUKL A4,/400 GET NEXT PAGE «, t00=0x004f, t01=0x0072}
0x07bf6…07c16 Head {h00=0x001c, h01=0x0018, text=» SUK A2,2 GET NEXT ENTRY«, t00=0x004f, t01=0x0096}
0x07c16…07c1e Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x00b6}
0x07c1e…07c44 Head {h00=0x0022, h01=0x0050, text=»* CHECK IF MM-TABLE OVERFLOW *«, t00=0x004f, t01=0x00be}
0x07c44…07c4c Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x00e4}
0x07c4c…07c78 Head {h00=0x0028, h01=0x0050, text=» LDR A9,A10 GET END-ADDRESS A10=TTAB«, t00=0x004f, t01=0x00ec}
0x07c78…07c8e Head {h00=0x0012, h01=0x0050, text=» ADKL A9,MMBEG«, t00=0x004f, t01=0x0118}
0x07c8e…07cb4 Head {h00=0x0022, h01=0x0050, text=» TNM A2,A9 32-KB BOARDER CHECK«, t00=0x004f, t01=0x012e}
0x07cb4…07cca Head {h00=0x0012, h01=0x0050, text=» RF(NN) SETT00«, t00=0x004f, t01=0x0154}
0x07cca…07cdc Head {h00=0x000e, h01=0x0050, text=» CWR A9,A2«, t00=0x004f, t01=0x016a}
0x07cdc…07cee Head {h00=0x000e, h01=0x0050, text=» RF SETT05«, t00=0x004f, t01=0x017c}
0x07cee…07d10 Head {h00=0x001e, h01=0x0050, text=»SETT00 CWR A2,A9 OVERFLOW?«, t00=0x004f, t01=0x018e}
0x07d10…07d30 Head {h00=0x001c, h01=0x0050, text=»SETT05 RF(NL) SETT10 NO «, t00=0x0050, t01=0x0020}
0x07d30…07d44 Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP7«, t00=0x0050, t01=0x0040}
0x07d44…07d58 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0050, t01=0x0054}
0x07d58…07d6c Head {h00=0x0010, h01=0x0050, text=»SETT10 EQU *«, t00=0x0050, t01=0x0068}
0x07d6c…07d8e Head {h00=0x001e, h01=0x0019, text=» STR A4,A2 STORE IN TABLE «, t00=0x0050, t01=0x007c}
0x07d8e…07d9e Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0050, t01=0x009e}
0x07d9e…07daa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x00ae}
0x07daa…07dc0 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0050, t01=0x00ba}
0x07dc0…07dce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x00d0}
0x07dce…07dda Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0050, t01=0x00de}
0x07dda…07e12 Head {h00=0x0034, h01=0x0050, text=»** G E T W B ** «, t00=0x0050, t01=0x00ea}
0x07e12…07e4a Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0050, t01=0x0122}
0x07e4a…07e82 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0050, t01=0x015a}
0x07e82…07eba (81, 0, 400) Head {h00=0x0034, h01=0x0050, text=»** GET WORK BLOCK ADDRESS AND DISPLACE- ** «, t00=0x0051, t01=0x0004}
0x07eba…07ef2 Head {h00=0x0034, h01=0x0050, text=»** MENT IN T:A ** «, t00=0x0051, t01=0x003c}
0x07ef2…07f2a Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0051, t01=0x0074}
0x07f2a…07f62 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** «, t00=0x0051, t01=0x00ac}
0x07f62…07f9a Head {h00=0x0034, h01=0x0050, text=»** BIT=BIT NUMBER SAT IN MASK (0-15)** «, t00=0x0051, t01=0x00e4}
0x07f9a…07fd2 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A4=W.B. DISPLACEMENT IN T:A ** «, t00=0x0051, t01=0x011c}
0x07fd2…0800a Head {h00=0x0034, h01=0x0050, text=»** TADISP=A4 ** «, t00=0x0051, t01=0x0154}
0x0800a…08042 Head {h00=0x0034, h01=0x0050, text=»** A11=W.B.-ADDRESS ** «, t00=0x0051, t01=0x018c}
0x08042…0807a Head {h00=0x0034, h01=0x0050, text=»** WBADD=POINTER TO W.B.-ADD IN T:A ** «, t00=0x0052, t01=0x0034}
0x0807a…080b2 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0052, t01=0x006c}
0x080b2…080be Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0052, t01=0x00a4}
0x080be…080d2 Head {h00=0x0010, h01=0x0050, text=»GETWB EQU * «, t00=0x0052, t01=0x00b0}
0x080d2…080f8 Head {h00=0x0022, h01=0x0050, text=» LD A4,BIT,A13 GET BIT NUMBER «, t00=0x0052, t01=0x00c4}
0x080f8…08120 Head {h00=0x0024, h01=0x0050, text=» SLL A4,2 ADJUST FOR ADDRESSING «, t00=0x0052, t01=0x00ea}
0x08120…08138 Head {h00=0x0014, h01=0x0050, text=» ADK A4,WATFST+2«, t00=0x0052, t01=0x0112}
0x08138…08164 Head {h00=0x0028, h01=0x0050, text=» ST A4,TADISP,A13 SAVE DISPLACEMENT «, t00=0x0052, t01=0x012a}
0x08164…08180 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0052, t01=0x0156}
0x08180…081a4 Head {h00=0x0020, h01=0x0050, text=» LDR* A11,A8 GET T:A-ADDRESS«, t00=0x0052, t01=0x0172}
0x081a4…081c8 Head {h00=0x0020, h01=0x0050, text=» ADR A11,A4 ADD DISPLACEMENT«, t00=0x0053, t01=0x0008}
0x081c8…081e6 Head {h00=0x001a, h01=0x0050, text=» ST A11,WBADD,A13 SAVE«, t00=0x0053, t01=0x002c}
0x081e6…0820c Head {h00=0x0022, h01=0x0050, text=» LDR* A11,A11 GET W.B.-ADDRESS«, t00=0x0053, t01=0x004a}
0x0820c…08218 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x0070}
0x08218…08234 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0053, t01=0x007c}
0x08234…08268 Head {h00=0x0030, h01=0x0050, text=» LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? «, t00=0x0053, t01=0x0098}
0x08268…08282 Head {h00=0x0016, h01=0x0050, text=» RF(Z) GETW10 NO! «, t00=0x0053, t01=0x00cc}
0x08282…082a6 Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0053, t01=0x00e6}
0x082a6…082d0 Head {h00=0x0026, h01=0x0050, text=»GETW10 ELR A11,A8 GET T:A-ADDRESS «, t00=0x0053, t01=0x010a}
0x082d0…082f4 Head {h00=0x0020, h01=0x0050, text=» ADR A11,A4 ADD DISPLACEMENT«, t00=0x0053, t01=0x0134}
0x082f4…08312 Head {h00=0x001a, h01=0x0050, text=» ST A11,WBADD,A13 SAVE«, t00=0x0053, t01=0x0158}
0x08312…08338 Head {h00=0x0022, h01=0x0050, text=» ELR A11,A11 GET W.B.-ADDRESS «, t00=0x0053, t01=0x0176}
0x08338…08362 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0054, t01=0x000c}
0x08362…0836e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0036}
0x0836e…08384 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0054, t01=0x0042}
0x08384…08394 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0054, t01=0x0058}
0x08394…083a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x0068}
0x083a2…083ae Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0054, t01=0x0076}
0x083ae…083ba Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0054, t01=0x0082}
0x083ba…083f6 Head {h00=0x0038, h01=0x0050, text=»** M O V W B **«, t00=0x0054, t01=0x008e}
0x083f6…08432 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0054, t01=0x00ca}
0x08432…0846e Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0054, t01=0x0106}
0x0846e…084aa Head {h00=0x0038, h01=0x0050, text=»** MOVE WORK-BLOCK. W.B.-ADDRESS IS UPDATED **«, t00=0x0054, t01=0x0142}
0x084aa…084e6 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0054, t01=0x017e}
0x084e6…08522 Head {h00=0x0038, h01=0x0050, text=»** INPUT: A11=W.B.-ADDRESS **«, t00=0x0055, t01=0x002a}
0x08522…0855e Head {h00=0x0038, h01=0x0050, text=»** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS **«, t00=0x0055, t01=0x0066}
0x0855e…0859a Head {h00=0x0038, h01=0x0050, text=»** WORK-REGS: A1-A4 **«, t00=0x0055, t01=0x00a2}
0x0859a…085d6 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0055, t01=0x00de}
0x085d6…085e2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0055, t01=0x011a}
0x085e2…085f6 Head {h00=0x0010, h01=0x0050, text=»MOVWB EQU * «, t00=0x0055, t01=0x0126}
0x085f6…08616 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A11 GET ADDRESS «, t00=0x0055, t01=0x013a}
0x08616…0863a Head {h00=0x0020, h01=0x0050, text=» ADKL A1,WBLEN FROM-ADDRESS «, t00=0x0055, t01=0x015a}
0x0863a…08656 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0055, t01=0x017e}
0x08656…08670 Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A1 LENGTH«, t00=0x0056, t01=0x000a}
0x08670…08684 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0056, t01=0x0024}
0x08684…086be Head {h00=0x0036, h01=0x0050, text=» SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT «, t00=0x0056, t01=0x0038}
0x086be…086f6 Head {h00=0x0034, h01=0x0050, text=» ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE«, t00=0x0056, t01=0x0072}
0x086f6…08702 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x00aa}
0x08702…0871e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0056, t01=0x00b6}
0x0871e…08738 Head {h00=0x0016, h01=0x0050, text=» ELR A3,A1 LENGTH «, t00=0x0056, t01=0x00d2}
0x08738…0874c Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0056, t01=0x00ec}
0x0874c…08786 Head {h00=0x0036, h01=0x0050, text=» SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT «, t00=0x0056, t01=0x0100}
0x08786…087b8 Head {h00=0x002e, h01=0x0050, text=» LD A4,FLAG,A13 REAL DATA-PART PROCESSING?«, t00=0x0056, t01=0x013a}
0x087b8…087d2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVW10 NO! «, t00=0x0056, t01=0x016c}
0x087d2…087f6 Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0056, t01=0x0186}
0x087f6…08834 Head {h00=0x003a, h01=0x0050, text=»MOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE«, t00=0x0057, t01=0x001a}
0x08834…0885e Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0057, t01=0x0058}
0x0885e…0886a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0082}
0x0886a…08880 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0057, t01=0x008e}
0x08880…08890 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0057, t01=0x00a4}
0x08890…0889e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x00b4}
0x0889e…088aa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0057, t01=0x00c2}
0x088aa…088b6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0057, t01=0x00ce}
0x088b6…088f4 Head {h00=0x003a, h01=0x0050, text=»** M O V D T ** «, t00=0x0057, t01=0x00da}
0x088f4…08932 Head {h00=0x003a, h01=0x0050, text=»** ** «, t00=0x0057, t01=0x0118}
0x08932…08970 Head {h00=0x003a, h01=0x0050, text=»** ** «, t00=0x0057, t01=0x0156}
0x08970…089ae (88, 0, 400) Head {h00=0x003a, h01=0x0050, text=»** MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** «, t00=0x0058, t01=0x0004}
0x089ae…089ec Head {h00=0x003a, h01=0x0050, text=»** ** «, t00=0x0058, t01=0x0042}
0x089ec…08a2a Head {h00=0x003a, h01=0x0050, text=»** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** «, t00=0x0058, t01=0x0080}
0x08a2a…08a68 Head {h00=0x003a, h01=0x0050, text=»** OUTPUT: A3=POINTER TO W.B.-ADDRESS ** «, t00=0x0058, t01=0x00be}
0x08a68…08aa6 Head {h00=0x003a, h01=0x0050, text=»** WORK REGS: A1-A4 ** «, t00=0x0058, t01=0x00fc}
0x08aa6…08ae4 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0058, t01=0x013a}
0x08ae4…08af0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0058, t01=0x0178}
0x08af0…08b04 Head {h00=0x0010, h01=0x0050, text=»MOVDT EQU * «, t00=0x0058, t01=0x0184}
0x08b04…08b3e Head {h00=0x0036, h01=0x0050, text=» LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT«, t00=0x0059, t01=0x0008}
0x08b3e…08b68 Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 POINTER TO D.T.-ADDRESS «, t00=0x0059, t01=0x0042}
0x08b68…08b84 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0059, t01=0x006c}
0x08b84…08ba4 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A1 D.T.-ADDRESS«, t00=0x0059, t01=0x0088}
0x08ba4…08bd2 Head {h00=0x002a, h01=0x0050, text=» ADKL A1,DTLEN ADJUST FOR LENGTH WORD «, t00=0x0059, t01=0x00a8}
0x08bd2…08bf4 Head {h00=0x001e, h01=0x0050, text=» AD A1,MOVADD,A13 RELOCATE«, t00=0x0059, t01=0x00d6}
0x08bf4…08c0e Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A1 LENGTH«, t00=0x0059, t01=0x00f8}
0x08c0e…08c22 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0059, t01=0x0112}
0x08c22…08c3a Head {h00=0x0014, h01=0x0050, text=» LD A3,WBADD,A13«, t00=0x0059, t01=0x0126}
0x08c3a…08c50 Head {h00=0x0012, h01=0x0050, text=» SUKL A2,DTLEN«, t00=0x0059, t01=0x013e}
0x08c50…08c66 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,DTLEN«, t00=0x0059, t01=0x0154}
0x08c66…08c9e Head {h00=0x0034, h01=0x0050, text=» ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS «, t00=0x0059, t01=0x016a}
0x08c9e…08caa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0012}
0x08caa…08cc6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005a, t01=0x001e}
0x08cc6…08ce6 Head {h00=0x001c, h01=0x0050, text=» ELR A1,A1 D.T.-ADDRESS «, t00=0x005a, t01=0x003a}
0x08ce6…08d14 Head {h00=0x002a, h01=0x0050, text=» ADKL A1,DTLEN ADJUST FOR LENGTH WORD «, t00=0x005a, t01=0x005a}
0x08d14…08d36 Head {h00=0x001e, h01=0x0050, text=» AD A1,MOVADD,A13 RELOCATE«, t00=0x005a, t01=0x0088}
0x08d36…08d50 Head {h00=0x0016, h01=0x0050, text=» ELR A3,A1 LENGTH «, t00=0x005a, t01=0x00aa}
0x08d50…08d64 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x005a, t01=0x00c4}
0x08d64…08d7c Head {h00=0x0014, h01=0x0050, text=» LD A3,WBADD,A13«, t00=0x005a, t01=0x00d8}
0x08d7c…08d92 Head {h00=0x0012, h01=0x0050, text=» SUKL A2,DTLEN«, t00=0x005a, t01=0x00f0}
0x08d92…08da8 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,DTLEN«, t00=0x005a, t01=0x0106}
0x08da8…08de0 Head {h00=0x0034, h01=0x0050, text=» ES A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS «, t00=0x005a, t01=0x011c}
0x08de0…08dec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0154}
0x08dec…08e02 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005a, t01=0x0160}
0x08e02…08e12 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005a, t01=0x0176}
0x08e12…08e20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x0186}
0x08e20…08e2c (91, 0, 400) Head {h00=0x0008, h01=0x0050, text=» «, t00=0x005b, t01=0x0004}
0x08e2c…08e6c Head {h00=0x003c, h01=0x0050, text=»** M O V D W B **«, t00=0x005b, t01=0x0010}
0x08e6c…08eac Head {h00=0x003c, h01=0x0050, text=»** **«, t00=0x005b, t01=0x0050}
0x08eac…08eec Head {h00=0x003c, h01=0x0050, text=»** **«, t00=0x005b, t01=0x0090}
0x08eec…08f2c Head {h00=0x003c, h01=0x0050, text=»** SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. **«, t00=0x005b, t01=0x00d0}
0x08f2c…08f6c Head {h00=0x003c, h01=0x0050, text=»** AND UPDATE ADDRESSES (W.B. & D.T.) **«, t00=0x005b, t01=0x0110}
0x08f6c…08fac Head {h00=0x003c, h01=0x0050, text=»** **«, t00=0x005b, t01=0x0150}
0x08fac…08fec Head {h00=0x003c, h01=0x0050, text=»** INPUT : A12=T:D-ADDRESS **«, t00=0x005b, t01=0x0190}
0x08fec…0902c Head {h00=0x003c, h01=0x0050, text=»** A8= POINTER TO T:A-ADDRESS **«, t00=0x005c, t01=0x0040}
0x0902c…0906c Head {h00=0x003c, h01=0x0050, text=»** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) **«, t00=0x005c, t01=0x0080}
0x0906c…090ac Head {h00=0x003c, h01=0x0050, text=»** WORK.REGS: A1-A4 **«, t00=0x005c, t01=0x00c0}
0x090ac…090ec Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005c, t01=0x0100}
0x090ec…090f8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x005c, t01=0x0140}
0x090f8…0910c Head {h00=0x0010, h01=0x0050, text=»MOVDWB EQU *«, t00=0x005c, t01=0x014c}
0x0910c…0912e Head {h00=0x001e, h01=0x0050, text=» ST A6,SAVE05,A13 SAVE A5 «, t00=0x005c, t01=0x0160}
0x0912e…09140 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x005c, t01=0x0182}
0x09140…0916c (93, 0, 400) Head {h00=0x0028, h01=0x0050, text=»MOVD10 LD A4,BIT,A13 GET BIT NUMBER «, t00=0x005d, t01=0x0004}
0x0916c…09192 Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 FIRST WAT-ELEMENT =1«, t00=0x005d, t01=0x0030}
0x09192…091ae Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005d, t01=0x0056}
0x091ae…091c8 Head {h00=0x0016, h01=0x0050, text=» LD A2,WATLEN,A12 «, t00=0x005d, t01=0x0072}
0x091c8…091d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x008c}
0x091d4…091f0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005d, t01=0x0098}
0x091f0…0920a Head {h00=0x0016, h01=0x0050, text=» EL A2,WATLEN,A12 «, t00=0x005d, t01=0x00b4}
0x0920a…09216 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x00ce}
0x09216…0922c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005d, t01=0x00da}
0x0922c…09252 Head {h00=0x0022, h01=0x0050, text=» SUR A2,A6 ACTUAL TABLE LENGTH«, t00=0x005d, t01=0x00f0}
0x09252…09276 Head {h00=0x0020, h01=0x0050, text=» ADR A6,A12 A6=TABLE POINTER«, t00=0x005d, t01=0x0116}
0x09276…0929c Head {h00=0x0022, h01=0x0050, text=»MOVD20 ADK A6,1 A6=TABLE INDEX«, t00=0x005d, t01=0x013a}
0x0929c…092b2 Head {h00=0x0012, h01=0x0050, text=» SUK A2,1 ALL?«, t00=0x005d, t01=0x0160}
0x092b2…092cc Head {h00=0x0016, h01=0x0050, text=» RF(N) MOVD60 YES!«, t00=0x005d, t01=0x0176}
0x092cc…092e8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005d, t01=0x0190}
0x092e8…0930e Head {h00=0x0022, h01=0x0050, text=» CC A4,DWBFST,A6 SHARED W.B.? «, t00=0x005e, t01=0x001c}
0x0930e…0931a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0042}
0x0931a…09336 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005e, t01=0x004e}
0x09336…09364 Head {h00=0x002a, h01=0x0050, text=» EL A10,DWBFST,A6 CHECK IF SHARED W.B.«, t00=0x005e, t01=0x006a}
0x09364…0938a Head {h00=0x0022, h01=0x0050, text=» SRC A6,1 RIGHT OR LEFT BYTE? «, t00=0x005e, t01=0x0098}
0x0938a…093a6 Head {h00=0x0018, h01=0x0050, text=» RF(N) MOVD30 RIGHT!«, t00=0x005e, t01=0x00be}
0x093a6…093be Head {h00=0x0014, h01=0x0050, text=» ANKL A10,/FF00 «, t00=0x005e, t01=0x00da}
0x093be…093d2 Head {h00=0x0010, h01=0x0050, text=» ECR A10,A10«, t00=0x005e, t01=0x00f2}
0x093d2…093e4 Head {h00=0x000e, h01=0x0050, text=» RF MOVD40«, t00=0x005e, t01=0x0106}
0x093e4…09400 Head {h00=0x0018, h01=0x0050, text=»MOVD30 ANKL A10,/FF «, t00=0x005e, t01=0x0118}
0x09400…09426 Head {h00=0x0022, h01=0x0050, text=»MOVD40 SLC A6,1 ADJUST POINTER«, t00=0x005e, t01=0x0134}
0x09426…09446 Head {h00=0x001c, h01=0x0050, text=» CWR A4,A10 SHARED W.B.?«, t00=0x005e, t01=0x015a}
0x09446…09452 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x017a}
0x09452…09468 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005e, t01=0x0186}
0x09468…09482 Head {h00=0x0016, h01=0x0050, text=» RB(NE) MOVD20 NO!«, t00=0x005f, t01=0x000c}
0x09482…09498 Head {h00=0x0012, h01=0x0050, text=»* DWB FOUND * «, t00=0x005f, t01=0x0026}
0x09498…094c8 Head {h00=0x002c, h01=0x0050, text=» NGR A4,A2 CALCULATE DISPLACEMENT IN T:A«, t00=0x005f, t01=0x003c}
0x094c8…094e4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005f, t01=0x006c}
0x094e4…094fe Head {h00=0x0016, h01=0x0050, text=» AD A4,WATLEN,A12 «, t00=0x005f, t01=0x0088}
0x094fe…0950a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x00a2}
0x0950a…09526 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005f, t01=0x00ae}
0x09526…09540 Head {h00=0x0016, h01=0x0050, text=» EL A10,WATLEN,A12«, t00=0x005f, t01=0x00ca}
0x09540…09554 Head {h00=0x0010, h01=0x0050, text=» ADR A4,A10 «, t00=0x005f, t01=0x00e4}
0x09554…09560 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x00f8}
0x09560…09576 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005f, t01=0x0104}
0x09576…0959a Head {h00=0x0020, h01=0x0050, text=» LDR A6,A4 SAVE TABLE INDEX «, t00=0x005f, t01=0x011a}
0x0959a…095ac Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x005f, t01=0x013e}
0x095ac…095be Head {h00=0x000e, h01=0x0050, text=» SLL A4,2 «, t00=0x005f, t01=0x0150}
0x095be…095d6 Head {h00=0x0014, h01=0x0050, text=» ADK A4,WATFST+2«, t00=0x005f, t01=0x0162}
0x095d6…09604 Head {h00=0x002a, h01=0x0050, text=» LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS«, t00=0x005f, t01=0x017a}
0x09604…09620 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0060, t01=0x0018}
0x09620…09656 Head {h00=0x0032, h01=0x0050, text=» ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A «, t00=0x0060, t01=0x0034}
0x09656…0967c Head {h00=0x0022, h01=0x0050, text=» STR A3,A4 CHANGE W.B.-ADDRESS«, t00=0x0060, t01=0x006a}
0x0967c…09688 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0090}
0x09688…096a4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0060, t01=0x009c}
0x096a4…096d6 Head {h00=0x002e, h01=0x0050, text=» LD A2,FLAG,A13 REAL DATA-PART PROCESSING?«, t00=0x0060, t01=0x00b8}
0x096d6…096f0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVD50 NO! «, t00=0x0060, t01=0x00ea}
0x096f0…09714 Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0060, t01=0x0104}
0x09714…09728 Head {h00=0x0010, h01=0x0050, text=»MOVD50 EQU *«, t00=0x0060, t01=0x0128}
0x09728…0975a Head {h00=0x002e, h01=0x0050, text=» ELR A10,A8 A4=POINTER TO W.B.-ADDR IN T:A«, t00=0x0060, t01=0x013c}
0x0975a…0976e Head {h00=0x0010, h01=0x0050, text=» ADR A4,A10 «, t00=0x0060, t01=0x016e}
0x0976e…09794 Head {h00=0x0022, h01=0x0050, text=» ESR A3,A4 CHANGE W.B.-ADDRESS«, t00=0x0060, t01=0x0182}
0x09794…097be Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0061, t01=0x0018}
0x097be…097ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0042}
0x097ca…097e0 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0061, t01=0x004e}
0x097e0…097f8 Head {h00=0x0014, h01=0x0050, text=» ST A4,WBADD,A13«, t00=0x0061, t01=0x0064}
0x097f8…0982a Head {h00=0x002e, h01=0x0050, text=» LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? «, t00=0x0061, t01=0x007c}
0x0982a…09846 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) MOVD10 YES! «, t00=0x0061, t01=0x00ae}
0x09846…09864 Head {h00=0x001a, h01=0x0050, text=» CALL MOVDT MOVE D.T. «, t00=0x0061, t01=0x00ca}
0x09864…09876 Head {h00=0x000e, h01=0x0050, text=» RB MOVD10«, t00=0x0061, t01=0x00e8}
0x09876…0988a Head {h00=0x0010, h01=0x0050, text=»MOVD60 EQU *«, t00=0x0061, t01=0x00fa}
0x0988a…098ae Head {h00=0x0020, h01=0x0050, text=» LD A6,SAVE05,A13 RESTORE A6«, t00=0x0061, t01=0x010e}
0x098ae…098be Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x0132}
0x098be…098cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x0142}
0x098cc…098d4 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0150}
0x098d4…098dc Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0158}
0x098dc…09914 Head {h00=0x0034, h01=0x0050, text=»** T W B S W B **«, t00=0x0061, t01=0x0160}
0x09914…0994c Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0062, t01=0x0008}
0x0994c…09984 Head {h00=0x0034, h01=0x0050, text=»** COPY TWB'S AND RESERVE SPACE FOR SWB'S **«, t00=0x0062, t01=0x0040}
0x09984…099bc Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0062, t01=0x0078}
0x099bc…099f4 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=ACTUAL T:A-ADDRESS **«, t00=0x0062, t01=0x00b0}
0x099f4…09a2c Head {h00=0x0034, h01=0x0050, text=»** A12=T:D-ADDRESS **«, t00=0x0062, t01=0x00e8}
0x09a2c…09a64 Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS: A1-A4, A11 **«, t00=0x0062, t01=0x0120}
0x09a64…09a9c Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0062, t01=0x0158}
0x09a9c…09aa4 Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x0190}
0x09aa4…09ab8 Head {h00=0x0010, h01=0x0050, text=»TWBSWB EQU *«, t00=0x0063, t01=0x0008}
0x09ab8…09ada Head {h00=0x001e, h01=0x0050, text=» ST A7,SAVE04,A13 SAVE A7 «, t00=0x0063, t01=0x001c}
0x09ada…09b00 Head {h00=0x0022, h01=0x0050, text=» LD A7,TWBMSK,A12 GET TWB MASK«, t00=0x0063, t01=0x003e}
0x09b00…09b1c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0063, t01=0x0064}
0x09b1c…09b42 Head {h00=0x0022, h01=0x0050, text=» EL A7,TWBMSK,A12 GET TWB MASK«, t00=0x0063, t01=0x0080}
0x09b42…09b4e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x00a6}
0x09b4e…09b64 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0063, t01=0x00b2}
0x09b64…09b78 Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x0063, t01=0x00c8}
0x09b78…09b9e Head {h00=0x0022, h01=0x0050, text=»TWSW10 RF(Z) TWSW20 ALL DONE! «, t00=0x0063, t01=0x00dc}
0x09b9e…09bb2 Head {h00=0x0010, h01=0x0050, text=» CALL GETWB «, t00=0x0063, t01=0x0102}
0x09bb2…09bc6 Head {h00=0x0010, h01=0x0050, text=» CALL MOVWB «, t00=0x0063, t01=0x0116}
0x09bc6…09bf4 Head {h00=0x002a, h01=0x0050, text=» ST A2,NEWAD2,A13 SAVE NEW WB-ADDRESS «, t00=0x0063, t01=0x012a}
0x09bf4…09c1e Head {h00=0x0026, h01=0x0050, text=» CALL MOVDWB CHANGE DWB-ADDRESSES «, t00=0x0063, t01=0x0158}
0x09c1e…09c32 Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x0063, t01=0x0182}
0x09c32…09c44 Head {h00=0x000e, h01=0x0050, text=» RB TWSW10«, t00=0x0064, t01=0x0008}
0x09c44…09c58 Head {h00=0x0010, h01=0x0050, text=»TWSW20 EQU *«, t00=0x0064, t01=0x001a}
0x09c58…09c74 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0064, t01=0x002e}
0x09c74…09c82 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x004a}
0x09c82…09c8e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0064, t01=0x0058}
0x09c8e…09c9a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0064, t01=0x0064}
0x09c9a…09cbe Head {h00=0x0020, h01=0x0050, text=»* RESERVE SPACE FOR SWB'S * «, t00=0x0064, t01=0x0070}
0x09cbe…09ce2 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0064, t01=0x0094}
0x09ce2…09cee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x00b8}
0x09cee…09d0a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x0064, t01=0x00c4}
0x09d0a…09d24 Head {h00=0x0016, h01=0x0050, text=» LD A7,SWBMSK,A12 «, t00=0x0064, t01=0x00e0}
0x09d24…09d30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x00fa}
0x09d30…09d4c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x0064, t01=0x0106}
0x09d4c…09d66 Head {h00=0x0016, h01=0x0050, text=» EL A7,SWBMSK,A12 «, t00=0x0064, t01=0x0122}
0x09d66…09d72 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x013c}
0x09d72…09d8e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0064, t01=0x0148}
0x09d8e…09da2 Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x0064, t01=0x0164}
0x09da2…09dc6 Head {h00=0x0020, h01=0x0050, text=»TWSW30 RF(Z) TARZAN ALL DONE«, t00=0x0064, t01=0x0178}
0x09dc6…09dda Head {h00=0x0010, h01=0x0050, text=» CALL GETWB «, t00=0x0065, t01=0x000c}
0x09dda…09dfc Head {h00=0x001e, h01=0x0050, text=» CALL MOVWB RESERVE SPACE «, t00=0x0065, t01=0x0020}
0x09dfc…09e28 Head {h00=0x0028, h01=0x0050, text=» ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS «, t00=0x0065, t01=0x0042}
0x09e28…09e52 Head {h00=0x0026, h01=0x0050, text=» CALL MOVDWB CHANGE DWB- ADDRESSES«, t00=0x0065, t01=0x006e}
0x09e52…09e66 Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x0065, t01=0x0098}
0x09e66…09e78 Head {h00=0x000e, h01=0x0050, text=» RB TWSW30«, t00=0x0065, t01=0x00ac}
0x09e78…09e8c Head {h00=0x0010, h01=0x0050, text=»TARZAN EQU *«, t00=0x0065, t01=0x00be}
0x09e8c…09e98 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0065, t01=0x00d2}
0x09e98…09eae Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0065, t01=0x00de}
0x09eae…09ed2 Head {h00=0x0020, h01=0x0050, text=» LD A7,SAVE04,A13 RESTORE A7«, t00=0x0065, t01=0x00f4}
0x09ed2…09ee2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0065, t01=0x0118}
0x09ee2…09ef0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0065, t01=0x0128}
0x09ef0…09ef8 Head {h00=0x0004, h01=0x0050, t00=0x0065, t01=0x0136}
0x09ef8…09f00 Head {h00=0x0004, h01=0x0050, t00=0x0065, t01=0x013e}
0x09f00…09f38 Head {h00=0x0034, h01=0x0050, text=»** A L L B U F **«, t00=0x0065, t01=0x0146}
0x09f38…09f70 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0065, t01=0x017e}
0x09f70…09fa8 Head {h00=0x0034, h01=0x0050, text=»** ALLOCATE FIXED DATA SET BUFFERS AND **«, t00=0x0066, t01=0x0026}
0x09fa8…09fe0 Head {h00=0x0034, h01=0x0050, text=»** TERMINAL STACK **«, t00=0x0066, t01=0x005e}
0x09fe0…0a018 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0066, t01=0x0096}
0x0a018…0a050 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=ACTUAL T:A-ADDRESS IN T:ATAB **«, t00=0x0066, t01=0x00ce}
0x0a050…0a088 Head {h00=0x0034, h01=0x0050, text=»** A12=T:D-ADDRESS **«, t00=0x0066, t01=0x0106}
0x0a088…0a0c0 Head {h00=0x0034, h01=0x0050, text=»** CSN (IN T:A)=LENGTH OF DSCB'S **«, t00=0x0066, t01=0x013e}
0x0a0c0…0a0f8 Head {h00=0x0034, h01=0x0050, text=»** CIA (IN T:A)=DISPL. TO T:A-START **«, t00=0x0066, t01=0x0176}
0x0a0f8…0a130 Head {h00=0x0034, h01=0x0050, text=»** CSE (IN T:A)=STACKSIZE **«, t00=0x0067, t01=0x001e}
0x0a130…0a168 Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS. :A1-A4,A9,A11 **«, t00=0x0067, t01=0x0056}
0x0a168…0a1a0 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0067, t01=0x008e}
0x0a1a0…0a1a8 Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x00c6}
0x0a1a8…0a1bc Head {h00=0x0010, h01=0x0050, text=»ALLBUF EQU *«, t00=0x0067, t01=0x00ce}
0x0a1bc…0a1d8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0067, t01=0x00e2}
0x0a1d8…0a20a Head {h00=0x002e, h01=0x0050, text=» LD A9,FSTADR,A13 GET BUFFER START ADDRESS«, t00=0x0067, t01=0x00fe}
0x0a20a…0a22e Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0067, t01=0x0130}
0x0a22e…0a25a Head {h00=0x0028, h01=0x0050, text=» LD A3,CSN,A1 GET DSCB TOTAL LENGTH «, t00=0x0067, t01=0x0154}
0x0a25a…0a27a Head {h00=0x001c, h01=0x0050, text=» RF(Z) ALLB70 NO DSCB'S «, t00=0x0067, t01=0x0180}
0x0a27a…0a2ac Head {h00=0x002e, h01=0x0050, text=» ADKL A1,T:ASTA CALC START OF DSCB RECORDS«, t00=0x0068, t01=0x0010}
0x0a2ac…0a2d2 Head {h00=0x0022, h01=0x0050, text=» LDR A10,A1 SAVE START ADDRESS«, t00=0x0068, t01=0x0042}
0x0a2d2…0a2de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x0068}
0x0a2de…0a2fa Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0068, t01=0x0074}
0x0a2fa…0a31c Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0068, t01=0x0090}
0x0a31c…0a348 Head {h00=0x0028, h01=0x0050, text=» EL A3,CSN,A1 GET DSCB TOTAL LENGTH «, t00=0x0068, t01=0x00b2}
0x0a348…0a366 Head {h00=0x001a, h01=0x0050, text=» RF(Z) ALLB70 NO DSCB «, t00=0x0068, t01=0x00de}
0x0a366…0a398 Head {h00=0x002e, h01=0x0050, text=» ADKL A1,T:ASTA CALCULATE START OF DSCB'S «, t00=0x0068, t01=0x00fc}
0x0a398…0a3be Head {h00=0x0022, h01=0x0050, text=» LDR A10,A1 SAVE START ADDRESS«, t00=0x0068, t01=0x012e}
0x0a3be…0a3ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x0154}
0x0a3ca…0a3e0 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0068, t01=0x0160}
0x0a3e0…0a3f2 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A1«, t00=0x0068, t01=0x0176}
0x0a3f2…0a404 Head {h00=0x000e, h01=0x0050, text=» NGR A3,A3«, t00=0x0068, t01=0x0188}
0x0a404…0a428 Head {h00=0x0020, h01=0x0050, text=» SUK A3,DSCBL END CONDITION «, t00=0x0069, t01=0x000a}
0x0a428…0a466 Head {h00=0x003a, h01=0x0050, text=» ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS «, t00=0x0069, t01=0x002e}
0x0a466…0a4a4 Head {h00=0x003a, h01=0x0050, text=»ALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD«, t00=0x0069, t01=0x006c}
0x0a4a4…0a4c2 Head {h00=0x001a, h01=0x0050, text=» CW A1,SAVE04,A13 ALL?«, t00=0x0069, t01=0x00aa}
0x0a4c2…0a4dc Head {h00=0x0016, h01=0x0050, text=» RF(E) ALLB70 YES!«, t00=0x0069, t01=0x00c8}
0x0a4dc…0a4f8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0069, t01=0x00e2}
0x0a4f8…0a522 Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A1 GET FIRST WORD IN ECB «, t00=0x0069, t01=0x00fe}
0x0a522…0a542 Head {h00=0x001c, h01=0x0050, text=» SLL A3,1 STATIC BUFFER?«, t00=0x0069, t01=0x0128}
0x0a542…0a55c Head {h00=0x0016, h01=0x0050, text=» RB(NN) ALLB10 NO!«, t00=0x0069, t01=0x0148}
0x0a55c…0a57e Head {h00=0x001e, h01=0x0050, text=» ST A9,BA,A1 BUFFER START «, t00=0x0069, t01=0x0162}
0x0a57e…0a5a0 Head {h00=0x001e, h01=0x0050, text=» LD A3,RL,A1 BUFFER LENGTH«, t00=0x0069, t01=0x0184}
0x0a5a0…0a5b4 Head {h00=0x0010, h01=0x0050, text=» ST A3,BL,A1«, t00=0x006a, t01=0x0016}
0x0a5b4…0a5d8 Head {h00=0x0020, h01=0x0050, text=» LD A2,EL,A1 SHARED BUFFER? «, t00=0x006a, t01=0x002a}
0x0a5d8…0a5f0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) NOTSH NO!«, t00=0x006a, t01=0x004e}
0x0a5f0…0a61a Head {h00=0x0026, h01=0x0050, text=» LDR A4,A1 RESTORE START OF DSCB'S«, t00=0x006a, t01=0x0066}
0x0a61a…0a626 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006a, t01=0x0090}
0x0a626…0a642 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006a, t01=0x009c}
0x0a642…0a66a Head {h00=0x0024, h01=0x0050, text=» ELR A3,A1 GET FIRST WORD IN ECB«, t00=0x006a, t01=0x00b8}
0x0a66a…0a68a Head {h00=0x001c, h01=0x0050, text=» SLL A3,1 STATIC BUFFER?«, t00=0x006a, t01=0x00e0}
0x0a68a…0a6a4 Head {h00=0x0016, h01=0x0050, text=» RB(NN) ALLB10 NO!«, t00=0x006a, t01=0x0100}
0x0a6a4…0a6c6 Head {h00=0x001e, h01=0x0050, text=» EL A3,RL,A1 BUFFER LENGTH«, t00=0x006a, t01=0x011a}
0x0a6c6…0a6da Head {h00=0x0010, h01=0x0050, text=» ES A3,BL,A1«, t00=0x006a, t01=0x013c}
0x0a6da…0a6fe Head {h00=0x0020, h01=0x0050, text=» EL A2,EL,A1 SHARED BUFFER? «, t00=0x006a, t01=0x0150}
0x0a6fe…0a716 Head {h00=0x0014, h01=0x0050, text=» RF(Z) NOTSH NO!«, t00=0x006a, t01=0x0174}
0x0a716…0a740 Head {h00=0x0026, h01=0x0050, text=» LDR A4,A1 RESTORE START OF DSCB'S«, t00=0x006a, t01=0x018c}
0x0a740…0a74c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x0026}
0x0a74c…0a762 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006b, t01=0x0032}
0x0a762…0a782 Head {h00=0x001c, h01=0x0050, text=» ADK A4,DSCBL FIRST WORD«, t00=0x006b, t01=0x0048}
0x0a782…0a7a2 Head {h00=0x001c, h01=0x0050, text=»ALLB20 SUK A2,1 A2=INDEX«, t00=0x006b, t01=0x0068}
0x0a7a2…0a7b8 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ALLB30«, t00=0x006b, t01=0x0088}
0x0a7b8…0a7da Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006b, t01=0x009e}
0x0a7da…0a7ee Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006b, t01=0x00c0}
0x0a7ee…0a802 Head {h00=0x0010, h01=0x0050, text=»ALLB30 EQU *«, t00=0x006b, t01=0x00d4}
0x0a802…0a822 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ALLB40 ECB FOUND «, t00=0x006b, t01=0x00e8}
0x0a822…0a856 Head {h00=0x0030, h01=0x0050, text=» ADK A4,DSCBL A4=ADDRESS TO DSCB TO EXAMINE «, t00=0x006b, t01=0x0108}
0x0a856…0a86a Head {h00=0x0010, h01=0x0050, text=» CWR A4,A10 «, t00=0x006b, t01=0x013c}
0x0a86a…0a880 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ALLB20«, t00=0x006b, t01=0x0150}
0x0a880…0a8a6 Head {h00=0x0022, h01=0x0050, text=» LDK A1,LMP4 BUFFER NOT FOUND «, t00=0x006b, t01=0x0166}
0x0a8a6…0a8ba Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006b, t01=0x018c}
0x0a8ba…0a8d6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006c, t01=0x0010}
0x0a8d6…0a902 Head {h00=0x0028, h01=0x0050, text=»ALLB40 LD A4,BA,A4 BUFFER ALLOCATED?«, t00=0x006c, t01=0x002c}
0x0a902…0a91e Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ALLB50 YES! «, t00=0x006c, t01=0x0058}
0x0a91e…0a940 Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006c, t01=0x0074}
0x0a940…0a954 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006c, t01=0x0096}
0x0a954…0a968 Head {h00=0x0010, h01=0x0050, text=»ALLB50 EQU *«, t00=0x006c, t01=0x00aa}
0x0a968…0a996 Head {h00=0x002a, h01=0x0050, text=» ST A4,BA,A1 AND STORE IN CURRENT ECB «, t00=0x006c, t01=0x00be}
0x0a996…0a9a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006c, t01=0x00ec}
0x0a9a2…0a9be Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006c, t01=0x00f8}
0x0a9be…0a9ea Head {h00=0x0028, h01=0x0050, text=»ALLB40 EL A4,BA,A4 BUFFER ALLOCATED?«, t00=0x006c, t01=0x0114}
0x0a9ea…0aa06 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ALLB50 YES! «, t00=0x006c, t01=0x0140}
0x0aa06…0aa28 Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006c, t01=0x015c}
0x0aa28…0aa3c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006c, t01=0x017e}
0x0aa3c…0aa50 (109, 0, 400) Head {h00=0x0010, h01=0x0050, text=»ALLB50 EQU *«, t00=0x006d, t01=0x0004}
0x0aa50…0aa7e Head {h00=0x002a, h01=0x0050, text=» ES A4,BA,A1 AND ESORE IN CURRENT ECB «, t00=0x006d, t01=0x0018}
0x0aa7e…0aa8a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006d, t01=0x0046}
0x0aa8a…0aaa0 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006d, t01=0x0052}
0x0aaa0…0aab2 Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006d, t01=0x0068}
0x0aab2…0aaba Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x007a}
0x0aaba…0aad6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006d, t01=0x0082}
0x0aad6…0aaf6 Head {h00=0x001c, h01=0x0050, text=»NOTSH LDR A9,A9 PAGING? «, t00=0x006d, t01=0x009e}
0x0aaf6…0ab10 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) NOTS10 NO!«, t00=0x006d, t01=0x00be}
0x0ab10…0ab40 Head {h00=0x002c, h01=0x0050, text=» CALL MOVING ALLOCATE BUFFER FROM BOTTOM«, t00=0x006d, t01=0x00d8}
0x0ab40…0ab6a Head {h00=0x0026, h01=0x0050, text=» ST A2,BA,A1 STORE BUFFER ADDRESS «, t00=0x006d, t01=0x0108}
0x0ab6a…0ab7c Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006d, t01=0x0132}
0x0ab7c…0abae Head {h00=0x002e, h01=0x0050, text=»NOTS10 ADR A9,A3 ALLOCATE BUFFER FROM TOP «, t00=0x006d, t01=0x0144}
0x0abae…0abc0 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x006d, t01=0x0176}
0x0abc0…0abe4 Head {h00=0x0020, h01=0x0050, text=» ANKL A9,/FFFE EVEN ADDRESS «, t00=0x006d, t01=0x0188}
0x0abe4…0abfc Head {h00=0x0014, h01=0x0050, text=»* CHECK ADDRESS:«, t00=0x006e, t01=0x001c}
0x0abfc…0ac08 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x006e, t01=0x0034}
0x0ac08…0ac2e Head {h00=0x0022, h01=0x0050, text=» LD A11,LSTADR,A13 DATA START «, t00=0x006e, t01=0x0040}
0x0ac2e…0ac42 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x006e, t01=0x0066}
0x0ac42…0ac5c Head {h00=0x0016, h01=0x0050, text=» RF(NL) ALLB60 OK!«, t00=0x006e, t01=0x007a}
0x0ac5c…0ac72 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x006e, t01=0x0094}
0x0ac72…0ac86 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006e, t01=0x00aa}
0x0ac86…0ac9a Head {h00=0x0010, h01=0x0050, text=»ALLB60 EQU *«, t00=0x006e, t01=0x00be}
0x0ac9a…0accc Head {h00=0x002e, h01=0x0050, text=» ST A9,FSTADR,A13 SAVE BUFFER END ADDRESS «, t00=0x006e, t01=0x00d2}
0x0accc…0acd8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x0104}
0x0acd8…0acf4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006e, t01=0x0110}
0x0acf4…0ad2c Head {h00=0x0034, h01=0x0050, text=»NOTSH CALL MOVING ALLOCATE BUFFER FROM 'BOTTOM' «, t00=0x006e, t01=0x012c}
0x0ad2c…0ad56 Head {h00=0x0026, h01=0x0050, text=» ES A2,BA,A1 STORE BUFFER ADDRESS «, t00=0x006e, t01=0x0164}
0x0ad56…0ad62 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x018e}
0x0ad62…0ad78 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006f, t01=0x000a}
0x0ad78…0ad8a Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006f, t01=0x0020}
0x0ad8a…0ad96 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x006f, t01=0x0032}
0x0ad96…0adc6 Head {h00=0x002c, h01=0x0050, text=»* RESERVE STACK AND SET STACKPOINTERS * «, t00=0x006f, t01=0x003e}
0x0adc6…0adce Head {h00=0x0004, h01=0x0050, t00=0x006f, t01=0x006e}
0x0adce…0ade2 Head {h00=0x0010, h01=0x0050, text=»ALLB70 EQU *«, t00=0x006f, t01=0x0076}
0x0ade2…0adfe Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006f, t01=0x008a}
0x0adfe…0ae22 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x006f, t01=0x00a6}
0x0ae22…0ae3c Head {h00=0x0016, h01=0x0050, text=» LD A4,LSTADR,A13 «, t00=0x006f, t01=0x00ca}
0x0ae3c…0ae4e Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x006f, t01=0x00e4}
0x0ae4e…0ae72 Head {h00=0x0020, h01=0x0050, text=» LD A3,CSE,A1 GET STACK SIZE«, t00=0x006f, t01=0x00f6}
0x0ae72…0ae88 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) ALLB80«, t00=0x006f, t01=0x011a}
0x0ae88…0aeb0 Head {h00=0x0024, h01=0x0050, text=» LDK A3,STKSZ DEFAULT STACKSIZE «, t00=0x006f, t01=0x0130}
0x0aeb0…0aec4 Head {h00=0x0010, h01=0x0050, text=»ALLB80 EQU *«, t00=0x006f, t01=0x0158}
0x0aec4…0aee8 Head {h00=0x0020, h01=0x0050, text=» ST A4,STKB,A1 SET STACKBASE«, t00=0x006f, t01=0x016c}
0x0aee8…0af08 Head {h00=0x001c, h01=0x0050, text=» STR A4,A1 STACK POINTER«, t00=0x006f, t01=0x0190}
0x0af08…0af2c Head {h00=0x0020, h01=0x0050, text=» CALL MOVING ALLOCATE STACK «, t00=0x0070, t01=0x0020}
0x0af2c…0af50 Head {h00=0x0020, h01=0x0050, text=» ST A2,STKE,A1 SET STACK-END«, t00=0x0070, t01=0x0044}
0x0af50…0af5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x0068}
0x0af5c…0af78 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0070, t01=0x0074}
0x0af78…0af9a Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0070, t01=0x0090}
0x0af9a…0afbe Head {h00=0x0020, h01=0x0050, text=» EL A3,CSE,A1 GET STACK SIZE«, t00=0x0070, t01=0x00b2}
0x0afbe…0afec Head {h00=0x002a, h01=0x0050, text=» RF(NZ) ALLB80 USER DEFINED STACK SIZE«, t00=0x0070, t01=0x00d6}
0x0afec…0b014 Head {h00=0x0024, h01=0x0050, text=» LDK A3,STKSZ DEFAULT STACK SIZE«, t00=0x0070, t01=0x0104}
0x0b014…0b040 Head {h00=0x0028, h01=0x0050, text=»ALLB80 ES A3,STKB,A1 SAVE STACK SIZE«, t00=0x0070, t01=0x012c}
0x0b040…0b064 Head {h00=0x0020, h01=0x0050, text=» CALL MOVING ALLOCATE STACK «, t00=0x0070, t01=0x0158}
0x0b064…0b08a Head {h00=0x0022, h01=0x0050, text=» ES A2,STKE,A1 STORE STACK END«, t00=0x0070, t01=0x017c}
0x0b08a…0b0b0 Head {h00=0x0022, h01=0x0050, text=» EL A3,STKB,A1 GET STACK SIZE «, t00=0x0071, t01=0x0012}
0x0b0b0…0b0d6 Head {h00=0x0022, h01=0x0050, text=» ADR A2,A3 COMPUTE STACK BASE «, t00=0x0071, t01=0x0038}
0x0b0d6…0b108 Head {h00=0x002e, h01=0x0050, text=» SUK A2,2 ADDRESS TO LAST WORD IN STACK =6«, t00=0x0071, t01=0x005e}
0x0b108…0b130 Head {h00=0x0024, h01=0x0050, text=» ES A2,STKB,A1 STORE STACK BASE «, t00=0x0071, t01=0x0090}
0x0b130…0b15e Head {h00=0x002a, h01=0x0050, text=» ESR A2,A1 STORE CURRENT STACK POINTER«, t00=0x0071, t01=0x00b8}
0x0b15e…0b16a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x00e6}
0x0b16a…0b180 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0071, t01=0x00f2}
0x0b180…0b190 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0071, t01=0x0108}
0x0b190…0b19e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0071, t01=0x0118}
0x0b19e…0b1a6 Head {h00=0x0004, h01=0x0050, t00=0x0071, t01=0x0126}
0x0b1a6…0b1de Head {h00=0x0034, h01=0x0050, text=»** M O V T : A **«, t00=0x0071, t01=0x012e}
0x0b1de…0b216 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0071, t01=0x0166}
0x0b216…0b24e Head {h00=0x0034, h01=0x0050, text=»** MOVE T:A AND UPDATE DATA SET ADDRESSES IN **«, t00=0x0072, t01=0x000e}
0x0b24e…0b286 Head {h00=0x0034, h01=0x0050, text=»** FORMAT CONTROL BLOCK **«, t00=0x0072, t01=0x0046}
0x0b286…0b2be Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0072, t01=0x007e}
0x0b2be…0b2f6 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=T:A-ADDRESS **«, t00=0x0072, t01=0x00b6}
0x0b2f6…0b32e Head {h00=0x0034, h01=0x0050, text=»** A12=T:D-ADDRESS **«, t00=0x0072, t01=0x00ee}
0x0b32e…0b366 Head {h00=0x0034, h01=0x0050, text=»** CIA (IN T:A)=DISL. TO T:A-START **«, t00=0x0072, t01=0x0126}
0x0b366…0b39e Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A2=NEW T:A-ADDRESS **«, t00=0x0072, t01=0x015e}
0x0b39e…0b3d6 Head {h00=0x0034, h01=0x0050, text=»** WORKREGS: A1-A4 **«, t00=0x0073, t01=0x0008}
0x0b3d6…0b40e Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0073, t01=0x0040}
0x0b40e…0b416 Head {h00=0x0004, h01=0x0050, t00=0x0073, t01=0x0078}
0x0b416…0b42a Head {h00=0x0010, h01=0x0050, text=»MOVT:A EQU *«, t00=0x0073, t01=0x0080}
0x0b42a…0b446 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0073, t01=0x0094}
0x0b446…0b46a Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0073, t01=0x00b0}
0x0b46a…0b496 Head {h00=0x0028, h01=0x0050, text=» LD A3,WATLEN,A12 GET LENGTH OF WAT «, t00=0x0073, t01=0x00d4}
0x0b496…0b4ae Head {h00=0x0014, h01=0x0050, text=» SLL A3,2 BYTES «, t00=0x0073, t01=0x0100}
0x0b4ae…0b4de Head {h00=0x002c, h01=0x0050, text=» SU A3,CIA,A1 ADD DISPLACEMENT TO START «, t00=0x0073, t01=0x0118}
0x0b4de…0b4fe Head {h00=0x001c, h01=0x0050, text=» ADK A3,WATFST A3=LENGTH«, t00=0x0073, t01=0x0148}
0x0b4fe…0b520 Head {h00=0x001e, h01=0x0050, text=» AD A1,CIA,A1 FROM-ADDRESS«, t00=0x0073, t01=0x0168}
0x0b520…0b534 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0073, t01=0x018a}
0x0b534…0b548 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A8 «, t00=0x0074, t01=0x000e}
0x0b548…0b56e Head {h00=0x0022, h01=0x0050, text=» SU A2,CIA,A4 NEW T:A-ADDRESS «, t00=0x0074, t01=0x0022}
0x0b56e…0b596 Head {h00=0x0024, h01=0x0050, text=» SU A1,CIA,A4 'OLD' T:A-ADDRESS «, t00=0x0074, t01=0x0048}
0x0b596…0b59e Head {h00=0x0004, h01=0x0050, t00=0x0074, t01=0x0070}
0x0b59e…0b5da Head {h00=0x0038, h01=0x0050, text=»* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * «, t00=0x0074, t01=0x0078}
0x0b5da…0b5e2 Head {h00=0x0004, h01=0x0050, t00=0x0074, t01=0x00b4}
0x0b5e2…0b602 Head {h00=0x001c, h01=0x0050, text=» LD A3,FCD,A12 ANY FCD? «, t00=0x0074, t01=0x00bc}
0x0b602…0b61c Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT10 NO! «, t00=0x0074, t01=0x00dc}
0x0b61c…0b63c Head {h00=0x001c, h01=0x0050, text=» ADR A3,A2 START OF FCB «, t00=0x0074, t01=0x00f6}
0x0b63c…0b660 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A2 SAVE T:A-ADDRESS «, t00=0x0074, t01=0x0116}
0x0b660…0b694 Head {h00=0x0030, h01=0x0050, text=» LD A10,FLAG,A13 REAL TASK DATA PROCESSING? «, t00=0x0074, t01=0x013a}
0x0b694…0b6ae Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT05 NO! «, t00=0x0074, t01=0x016e}
0x0b6ae…0b6ec Head {h00=0x003a, h01=0x0050, text=» SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS)«, t00=0x0074, t01=0x0188}
0x0b6ec…0b700 Head {h00=0x0010, h01=0x0050, text=»MOVT05 EQU *«, t00=0x0075, t01=0x0036}
0x0b700…0b71a Head {h00=0x0016, h01=0x0050, text=» ADS A4,FCBDD1,A3 «, t00=0x0075, t01=0x004a}
0x0b71a…0b734 Head {h00=0x0016, h01=0x0050, text=» ADS A4,FCBDD2,A3 «, t00=0x0075, t01=0x0064}
0x0b734…0b74a Head {h00=0x0012, h01=0x0050, text=»MOVT10 RTN A14«, t00=0x0075, t01=0x007e}
0x0b74a…0b756 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x0094}
0x0b756…0b772 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0075, t01=0x00a0}
0x0b772…0b77a Head {h00=0x0004, h01=0x0050, t00=0x0075, t01=0x00bc}
0x0b77a…0b79c Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0075, t01=0x00c4}
0x0b79c…0b7c8 Head {h00=0x0028, h01=0x0050, text=» EL A3,WATLEN,A12 GET LENGTH OF WAT «, t00=0x0075, t01=0x00e6}
0x0b7c8…0b7e0 Head {h00=0x0014, h01=0x0050, text=» SLL A3,2 BYTES «, t00=0x0075, t01=0x0112}
0x0b7e0…0b7f6 Head {h00=0x0012, h01=0x0050, text=» EL A10,CIA,A1«, t00=0x0075, t01=0x012a}
0x0b7f6…0b81e Head {h00=0x0024, h01=0x0050, text=» SUR A3,A10 ADD DISPL. TO START «, t00=0x0075, t01=0x0140}
0x0b81e…0b83e Head {h00=0x001c, h01=0x0050, text=» ADK A3,WATFST A3=LENGTH«, t00=0x0075, t01=0x0168}
0x0b83e…0b85e Head {h00=0x001c, h01=0x0050, text=» ADR A1,A10 FROM-ADDRESS«, t00=0x0075, t01=0x0188}
0x0b85e…0b872 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0076, t01=0x0018}
0x0b872…0b884 Head {h00=0x000e, h01=0x0050, text=» ELR A4,A8«, t00=0x0076, t01=0x002c}
0x0b884…0b89a Head {h00=0x0012, h01=0x0050, text=» EL A10,CIA,A4«, t00=0x0076, t01=0x003e}
0x0b89a…0b8be Head {h00=0x0020, h01=0x0050, text=» SUR A2,A10 NEW T:A-ADDRESS «, t00=0x0076, t01=0x0054}
0x0b8be…0b8e4 Head {h00=0x0022, h01=0x0050, text=» SUR A1,A10 'OLD' T:A-ADDRESS «, t00=0x0076, t01=0x0078}
0x0b8e4…0b920 Head {h00=0x0038, h01=0x0050, text=»* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * «, t00=0x0076, t01=0x009e}
0x0b920…0b928 Head {h00=0x0004, h01=0x0050, t00=0x0076, t01=0x00da}
0x0b928…0b948 Head {h00=0x001c, h01=0x0050, text=» EL A3,FCD,A12 ANY FCD? «, t00=0x0076, t01=0x00e2}
0x0b948…0b962 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT10 NO! «, t00=0x0076, t01=0x0102}
0x0b962…0b984 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A2 GET T:A-ADDRESS«, t00=0x0076, t01=0x011c}
0x0b984…0b9b8 Head {h00=0x0030, h01=0x0050, text=» LD A10,FLAG,A13 REAL TASK DATA PROCESSING? «, t00=0x0076, t01=0x013e}
0x0b9b8…0b9d2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT05 NO! «, t00=0x0076, t01=0x0172}
0x0b9d2…0ba0e Head {h00=0x0038, h01=0x0050, text=» SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.)«, t00=0x0076, t01=0x018c}
0x0ba0e…0ba22 Head {h00=0x0010, h01=0x0050, text=»MOVT05 EQU *«, t00=0x0077, t01=0x0038}
0x0ba22…0ba42 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A2 START OF FCB «, t00=0x0077, t01=0x004c}
0x0ba42…0ba64 Head {h00=0x001e, h01=0x0050, text=» TL* MMTO,13 LOAD TO-TABLE«, t00=0x0077, t01=0x006c}
0x0ba64…0ba7e Head {h00=0x0016, h01=0x0050, text=» EL A10,FCBDD1,A3 «, t00=0x0077, t01=0x008e}
0x0ba7e…0ba92 Head {h00=0x0010, h01=0x0050, text=» ADR A10,A4 «, t00=0x0077, t01=0x00a8}
0x0ba92…0baac Head {h00=0x0016, h01=0x0050, text=» ES A10,FCBDD1,A3 «, t00=0x0077, t01=0x00bc}
0x0baac…0bac6 Head {h00=0x0016, h01=0x0050, text=» EL A10,FCBDD2,A3 «, t00=0x0077, t01=0x00d6}
0x0bac6…0bada Head {h00=0x0010, h01=0x0050, text=» ADR A10,A4 «, t00=0x0077, t01=0x00f0}
0x0bada…0baf4 Head {h00=0x0016, h01=0x0050, text=» ES A10,FCBDD2,A3 «, t00=0x0077, t01=0x0104}
0x0baf4…0bb1e Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0077, t01=0x011e}
0x0bb1e…0bb34 Head {h00=0x0012, h01=0x0050, text=»MOVT10 RTN A14«, t00=0x0077, t01=0x0148}
0x0bb34…0bb40 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x015e}
0x0bb40…0bb4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0077, t01=0x016a}
0x0bb4e…0bb56 Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x0178}
0x0bb56…0bb5e Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x0180}
0x0bb5e…0bb66 Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x0188}
0x0bb66…0bba0 Head {h00=0x0036, h01=0x0050, text=»** C M P A D R **«, t00=0x0077, t01=0x0190}
0x0bba0…0bbda Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0078, t01=0x003a}
0x0bbda…0bc14 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0078, t01=0x0074}
0x0bc14…0bc4e Head {h00=0x0036, h01=0x0050, text=»** COMPARE ADDRESSES. RESULT IN PSW ON RETURN **«, t00=0x0078, t01=0x00ae}
0x0bc4e…0bc88 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0078, t01=0x00e8}
0x0bc88…0bcc2 Head {h00=0x0036, h01=0x0050, text=»** INPUT : A11 COMPARED TO.. **«, t00=0x0078, t01=0x0122}
0x0bcc2…0bcfc Head {h00=0x0036, h01=0x0050, text=»** A9 **«, t00=0x0078, t01=0x015c}
0x0bcfc…0bd36 Head {h00=0x0036, h01=0x0050, text=»** OUTPUT: RESULT IN A14-STACK **«, t00=0x0079, t01=0x0008}
0x0bd36…0bd70 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0079, t01=0x0042}
0x0bd70…0bd7c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0079, t01=0x007c}
0x0bd7c…0bd90 Head {h00=0x0010, h01=0x0050, text=»CMPADR EQU *«, t00=0x0079, t01=0x0088}
0x0bd90…0bda4 Head {h00=0x0010, h01=0x0050, text=» TNM A11,A9 «, t00=0x0079, t01=0x009c}
0x0bda4…0bdba Head {h00=0x0012, h01=0x0050, text=» RF(NN) CMPA10«, t00=0x0079, t01=0x00b0}
0x0bdba…0bdce Head {h00=0x0010, h01=0x0050, text=» CWR A9,A11 «, t00=0x0079, t01=0x00c6}
0x0bdce…0bde0 Head {h00=0x000e, h01=0x0050, text=» RF CMPA20«, t00=0x0079, t01=0x00da}
0x0bde0…0bdfa Head {h00=0x0016, h01=0x0050, text=»CMPA10 CWR A11,A9 «, t00=0x0079, t01=0x00ec}
0x0bdfa…0be2c Head {h00=0x002e, h01=0x0050, text=»CMPA20 CFI A14,PSW,A13 PUT RESULT ON STACK«, t00=0x0079, t01=0x0106}
0x0be2c…0be3c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x0138}
0x0be3c…0be52 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0079, t01=0x0148}
0x0be52…0be60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x015e}
0x0be60…0bea8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0079, t01=0x016c}
0x0bea8…0bef0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007a, t01=0x0024}
0x0bef0…0bf38 Head {h00=0x0044, h01=0x0050, text=»* ICBMVD - INDICATE CURRENT BLOCK MOVED * «, t00=0x007a, t01=0x006c}
0x0bf38…0bf80 Head {h00=0x0044, h01=0x0050, text=»* ===================================== * «, t00=0x007a, t01=0x00b4}
0x0bf80…0bfc8 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007a, t01=0x00fc}
0x0bfc8…0c010 Head {h00=0x0044, h01=0x0050, text=»* REFERENCED IN: MOVCOM * «, t00=0x007a, t01=0x0144}
0x0c010…0c058 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007a, t01=0x018c}
0x0c058…0c0a0 Head {h00=0x0044, h01=0x0050, text=»* ENTRY: A8 - FIRST T:A POINTER * «, t00=0x007b, t01=0x0044}
0x0c0a0…0c0e8 Head {h00=0x0044, h01=0x0050, text=»* A6 - SECOND T:A POINTER * «, t00=0x007b, t01=0x008c}
0x0c0e8…0c130 Head {h00=0x0044, h01=0x0050, text=»* BIT - BIT NUMBER SET IN CWB- OR UWB-MASK * «, t00=0x007b, t01=0x00d4}
0x0c130…0c178 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007b, t01=0x011c}
0x0c178…0c1c0 Head {h00=0x0044, h01=0x0050, text=»* EXIT: CORRESPONDING BIT IN CURRENT STATCK POINTER * «, t00=0x007b, t01=0x0164}
0x0c1c0…0c208 Head {h00=0x0044, h01=0x0050, text=»* IN T:A IS SET * «, t00=0x007c, t01=0x001c}
0x0c208…0c250 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007c, t01=0x0064}
0x0c250…0c298 Head {h00=0x0044, h01=0x0050, text=»* WORK REGISTERS: A1,A2 * «, t00=0x007c, t01=0x00ac}
0x0c298…0c2e0 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007c, t01=0x00f4}
0x0c2e0…0c328 Head {h00=0x0044, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x007c, t01=0x013c}
0x0c328…0c370 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007c, t01=0x0184}
0x0c370…0c3b8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x007d, t01=0x003c}
0x0c3b8…0c3c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007d, t01=0x0084}
0x0c3c6…0c3da Head {h00=0x0010, h01=0x0050, text=»ICBMVD EQU *«, t00=0x007d, t01=0x0092}
0x0c3da…0c3fa Head {h00=0x001c, h01=0x0050, text=» LDKL A1,/8000 SET BIT 0«, t00=0x007d, t01=0x00a6}
0x0c3fa…0c434 Head {h00=0x0036, h01=0x0050, text=» LD A2,BIT,A13 GET BIT NUMBER IN CWB- OR UWB-MASK «, t00=0x007d, t01=0x00c6}
0x0c434…0c45a Head {h00=0x0022, h01=0x0050, text=»IBAM10 RF(Z) IBAM20 BIT FOUND «, t00=0x007d, t01=0x0100}
0x0c45a…0c484 Head {h00=0x0026, h01=0x0050, text=» SRL A1,1 SHIFT BIT RIGHT ONE STEP«, t00=0x007d, t01=0x0126}
0x0c484…0c4ac Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT BIT COUNTER «, t00=0x007d, t01=0x0150}
0x0c4ac…0c4be Head {h00=0x000e, h01=0x0050, text=» RB IBAM10«, t00=0x007d, t01=0x0178}
0x0c4be…0c4c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x018a}
0x0c4c8…0c4f2 (126, 0, 400) Head {h00=0x0026, h01=0x0050, text=»* UPDATE MOVED MASK IN FIRST T:A «, t00=0x007e, t01=0x0004}
0x0c4f2…0c4fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x002e}
0x0c4fc…0c508 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x0038}
0x0c508…0c524 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x007e, t01=0x0044}
0x0c524…0c54e Head {h00=0x0026, h01=0x0050, text=»IBAM20 LDR* A2,A8 GET T:A POINTER «, t00=0x007e, t01=0x0060}
0x0c54e…0c576 Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET MOVED BLOCK MASK«, t00=0x007e, t01=0x008a}
0x0c576…0c5a6 Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007e, t01=0x00b2}
0x0c5a6…0c5d4 Head {h00=0x002a, h01=0x0050, text=» STR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007e, t01=0x00e2}
0x0c5d4…0c5de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0110}
0x0c5de…0c608 Head {h00=0x0026, h01=0x0050, text=»* UPDATE MOVED MASK IN SECOND T:A«, t00=0x007e, t01=0x011a}
0x0c608…0c612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0144}
0x0c612…0c636 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A6 GET T:A POINTER «, t00=0x007e, t01=0x014e}
0x0c636…0c65e Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET MOVED BLOCK MASK«, t00=0x007e, t01=0x0172}
0x0c65e…0c68e Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007f, t01=0x000a}
0x0c68e…0c6bc Head {h00=0x002a, h01=0x0050, text=» STR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007f, t01=0x003a}
0x0c6bc…0c6c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0068}
0x0c6c8…0c6e4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x007f, t01=0x0074}
0x0c6e4…0c70c Head {h00=0x0024, h01=0x0050, text=»IBAM20 ELR A2,A8 GET T:A POINTER«, t00=0x007f, t01=0x0090}
0x0c70c…0c734 Head {h00=0x0024, h01=0x0050, text=» ELR A3,A2 GET MOVED BLOCK MASK «, t00=0x007f, t01=0x00b8}
0x0c734…0c764 Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007f, t01=0x00e0}
0x0c764…0c792 Head {h00=0x002a, h01=0x0050, text=» ESR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007f, t01=0x0110}
0x0c792…0c79c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x013e}
0x0c79c…0c7c6 Head {h00=0x0026, h01=0x0050, text=»* UPDATE MOVED MASK IN SECOND T:A«, t00=0x007f, t01=0x0148}
0x0c7c6…0c7d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0172}
0x0c7d0…0c7f2 Head {h00=0x001e, h01=0x0050, text=» ELR A2,A6 GET T:A POINTER«, t00=0x007f, t01=0x017c}
0x0c7f2…0c81a Head {h00=0x0024, h01=0x0050, text=» ELR A3,A2 GET MOVED BLOCK MASK «, t00=0x0080, t01=0x000e}
0x0c81a…0c84a Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x0080, t01=0x0036}
0x0c84a…0c878 Head {h00=0x002a, h01=0x0050, text=» ESR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x0080, t01=0x0066}
0x0c878…0c884 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x0094}
0x0c884…0c89a Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0080, t01=0x00a0}
0x0c89a…0c8aa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0080, t01=0x00b6}
0x0c8aa…0c8b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x00c6}
0x0c8b8…0c906 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0080, t01=0x00d4}
0x0c906…0c954 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0080, t01=0x0122}
0x0c954…0c9a2 Head {h00=0x004a, h01=0x0050, text=»* CHKMVD - CHECK IF BLOCK ALREADY MOVED * «, t00=0x0080, t01=0x0170}
0x0c9a2…0c9f0 Head {h00=0x004a, h01=0x0050, text=»* ===================================== * «, t00=0x0081, t01=0x002e}
0x0c9f0…0ca3e Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0081, t01=0x007c}
0x0ca3e…0ca8c Head {h00=0x004a, h01=0x0050, text=»* REFERENCED IN: MOVCOM,MOVCLA * «, t00=0x0081, t01=0x00ca}
0x0ca8c…0cada Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0081, t01=0x0118}
0x0cada…0cb28 Head {h00=0x004a, h01=0x0050, text=»* ENTRY: A8 - POINTER TO T:A * «, t00=0x0081, t01=0x0166}
0x0cb28…0cb76 Head {h00=0x004a, h01=0x0050, text=»* BIT - BIT NUMBER IN CWB- OR UWB-MASK * «, t00=0x0082, t01=0x0024}
0x0cb76…0cbc4 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0082, t01=0x0072}
0x0cbc4…0cc12 Head {h00=0x004a, h01=0x0050, text=»* EXIT: IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2 * «, t00=0x0082, t01=0x00c0}
0x0cc12…0cc60 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0082, t01=0x010e}
0x0cc60…0ccae Head {h00=0x004a, h01=0x0050, text=»* WORK REGISTER: A1,A2 * «, t00=0x0082, t01=0x015c}
0x0ccae…0ccfc Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0083, t01=0x001a}
0x0ccfc…0cd4a Head {h00=0x004a, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0083, t01=0x0068}
0x0cd4a…0cd98 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0083, t01=0x00b6}
0x0cd98…0cde6 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0083, t01=0x0104}
0x0cde6…0cdf4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x0152}
0x0cdf4…0ce08 Head {h00=0x0010, h01=0x0050, text=»CHKMVD EQU *«, t00=0x0083, t01=0x0160}
0x0ce08…0ce24 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0083, t01=0x0174}
0x0ce24…0ce48 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A POINTER «, t00=0x0083, t01=0x0190}
0x0ce48…0ce70 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET MOVED BLOCK MASK«, t00=0x0084, t01=0x0024}
0x0ce70…0ce7c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x004c}
0x0ce7c…0ce98 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0084, t01=0x0058}
0x0ce98…0ceba Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A POINTER«, t00=0x0084, t01=0x0074}
0x0ceba…0cee2 Head {h00=0x0024, h01=0x0050, text=» ELR A1,A1 GET MOVED BLOCK MASK «, t00=0x0084, t01=0x0096}
0x0cee2…0ceee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x00be}
0x0ceee…0cf04 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0084, t01=0x00ca}
0x0cf04…0cf3a Head {h00=0x0032, h01=0x0050, text=» LD A2,BIT,A13 GET BIT SET IN CWB- OR UWB-MASK«, t00=0x0084, t01=0x00e0}
0x0cf3a…0cf74 Head {h00=0x0036, h01=0x0050, text=»CHKM10 RF(Z) CHKM20 BIT IN MOVED BLOCK MASK FOUND «, t00=0x0084, t01=0x0116}
0x0cf74…0cfa2 Head {h00=0x002a, h01=0x0050, text=» SLL A1,1 NEXT BIT IN MOVED BLOCK MASK«, t00=0x0084, t01=0x0150}
0x0cfa2…0cfca Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT BIT COUNTER «, t00=0x0084, t01=0x017e}
0x0cfca…0cfdc Head {h00=0x000e, h01=0x0050, text=» RB CHKM10«, t00=0x0085, t01=0x0016}
0x0cfdc…0cffa Head {h00=0x001a, h01=0x0050, text=»CHKM20 ADK A1,0 SET CR«, t00=0x0085, t01=0x0028}
0x0cffa…0d028 Head {h00=0x002a, h01=0x0050, text=» CFI A14,PSW,A13 PUT CONDITION IN PSW «, t00=0x0085, t01=0x0046}
0x0d028…0d038 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0085, t01=0x0074}
0x0d038…0d046 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0085, t01=0x0084}
0x0d046…0d052 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0085, t01=0x0092}
0x0d052…0d05e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0085, t01=0x009e}
0x0d05e…0d09c Head {h00=0x003a, h01=0x0050, text=»***** S * U * P * E * R * L * O * O * P ****«, t00=0x0085, t01=0x00aa}
0x0d09c…0d0da Head {h00=0x003a, h01=0x0050, text=»** **«, t00=0x0085, t01=0x00e8}
0x0d0da…0d118 Head {h00=0x003a, h01=0x0050, text=»** S H I F T & SKIFTA **«, t00=0x0085, t01=0x0126}
0x0d118…0d156 Head {h00=0x003a, h01=0x0050, text=»** **«, t00=0x0085, t01=0x0164}
0x0d156…0d194 Head {h00=0x003a, h01=0x0050, text=»** CALCULATES BIT NUMBER SAT IN MASK-WORD **«, t00=0x0086, t01=0x0012}
0x0d194…0d1d2 Head {h00=0x003a, h01=0x0050, text=»** INPUT : A7=MASK WORD **«, t00=0x0086, t01=0x0050}
0x0d1d2…0d210 Head {h00=0x003a, h01=0x0050, text=»** OUTPUT: BIT=BIT NUMBER **«, t00=0x0086, t01=0x008e}
0x0d210…0d24e Head {h00=0x003a, h01=0x0050, text=»** CONDITION CODE IN PSW ON RETURN **«, t00=0x0086, t01=0x00cc}
0x0d24e…0d28c Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0086, t01=0x010a}
0x0d28c…0d298 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0086, t01=0x0148}
0x0d298…0d2ac Head {h00=0x0010, h01=0x0050, text=»SHIFT EQU * «, t00=0x0086, t01=0x0154}
0x0d2ac…0d2d2 Head {h00=0x0022, h01=0x0050, text=» CM BIT,A13 RESET BIT COUNTER «, t00=0x0086, t01=0x0168}
0x0d2d2…0d2e4 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0086, t01=0x018e}
0x0d2e4…0d2f6 Head {h00=0x000e, h01=0x0050, text=» RF SHIF20«, t00=0x0087, t01=0x0010}
0x0d2f6…0d320 Head {h00=0x0026, h01=0x0050, text=»SKIFTA EQU * ENTRY: CONTINUE SHIFT«, t00=0x0087, t01=0x0022}
0x0d320…0d33a Head {h00=0x0016, h01=0x0050, text=»SHIF10 IM BIT,A13 «, t00=0x0087, t01=0x004c}
0x0d33a…0d34c Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x0087, t01=0x0066}
0x0d34c…0d360 Head {h00=0x0010, h01=0x0050, text=»SHIF20 EQU *«, t00=0x0087, t01=0x0078}
0x0d360…0d388 Head {h00=0x0024, h01=0x0050, text=» RF(Z) SHIF30 NO MOORE BITS SAT «, t00=0x0087, t01=0x008c}
0x0d388…0d39e Head {h00=0x0012, h01=0x0050, text=» RB(NN) SHIF10«, t00=0x0087, t01=0x00b4}
0x0d39e…0d3cc Head {h00=0x002a, h01=0x0050, text=»SHIF30 CFI A14,PSW,A13 PUT COND IN PSW«, t00=0x0087, t01=0x00ca}
0x0d3cc…0d3dc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0087, t01=0x00f8}
0x0d3dc…0d3e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0087, t01=0x0108}
0x0d3e8…0d3f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0087, t01=0x0114}
0x0d3f6…0d402 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0087, t01=0x0122}
0x0d402…0d40e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0087, t01=0x012e}
0x0d40e…0d446 Head {h00=0x0034, h01=0x0050, text=»** M U L T **«, t00=0x0087, t01=0x013a}
0x0d446…0d47e Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0087, t01=0x0172}
0x0d47e…0d4b6 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0088, t01=0x001a}
0x0d4b6…0d4ee Head {h00=0x0034, h01=0x0050, text=»** MULTIPLICATION (A2) X A3(), A2#0 **«, t00=0x0088, t01=0x0052}
0x0d4ee…0d526 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0088, t01=0x008a}
0x0d526…0d55e Head {h00=0x0034, h01=0x0050, text=»** INPUT : A3,A2 **«, t00=0x0088, t01=0x00c2}
0x0d55e…0d596 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A3=RESULT **«, t00=0x0088, t01=0x00fa}
0x0d596…0d5ce Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0088, t01=0x0132}
0x0d5ce…0d5e0 Head {h00=0x000e, h01=0x0050, text=»MULT EQU *«, t00=0x0088, t01=0x016a}
0x0d5e0…0d5f6 Head {h00=0x0012, h01=0x0050, text=» ST A3,MUL,A13«, t00=0x0088, t01=0x017c}
0x0d5f6…0d61c (137, 0, 400) Head {h00=0x0022, h01=0x0050, text=» STR A2,A14 SAVE A2 TEMPORARY «, t00=0x0089, t01=0x0004}
0x0d61c…0d62e Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0089, t01=0x002a}
0x0d62e…0d648 Head {h00=0x0016, h01=0x0050, text=»ADD AD A3,MUL,A13 «, t00=0x0089, t01=0x003c}
0x0d648…0d65a Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0089, t01=0x0056}
0x0d65a…0d66e Head {h00=0x0010, h01=0x0050, text=» RB(NZ) ADD «, t00=0x0089, t01=0x0068}
0x0d66e…0d682 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A14«, t00=0x0089, t01=0x007c}
0x0d682…0d692 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0089, t01=0x0090}
0x0d692…0d69a Head {h00=0x0004, h01=0x0050, t00=0x0089, t01=0x00a0}
0x0d69a…0d6b0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0089, t01=0x00a8}
0x0d6b0…0d6be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0089, t01=0x00be}
0x0d6be…0d6c6 Head {h00=0x0004, h01=0x0050, t00=0x0089, t01=0x00cc}
0x0d6c6…0d6fe Head {h00=0x0034, h01=0x0050, text=»** M M E N T ** «, t00=0x0089, t01=0x00d4}
0x0d6fe…0d736 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0089, t01=0x010c}
0x0d736…0d76e Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0089, t01=0x0144}
0x0d76e…0d7a6 Head {h00=0x0034, h01=0x0050, text=»** FIND LAST USED ENTRY IN MM-TAB. SCAN ** «, t00=0x0089, t01=0x017c}
0x0d7a6…0d7de Head {h00=0x0034, h01=0x0050, text=»** FROM LOW ADDRESS. NOT USED ENTRY=0. ** «, t00=0x008a, t01=0x0024}
0x0d7de…0d816 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x008a, t01=0x005c}
0x0d816…0d84e Head {h00=0x0034, h01=0x0050, text=»** INPUT :A3=MM-TABLE ADDRESS ** «, t00=0x008a, t01=0x0094}
0x0d84e…0d886 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A3=ENTRY ADDRESS ** «, t00=0x008a, t01=0x00cc}
0x0d886…0d8be Head {h00=0x0034, h01=0x0050, text=»** A9=TTAB-ADDRESS ** «, t00=0x008a, t01=0x0104}
0x0d8be…0d8f6 Head {h00=0x0034, h01=0x0050, text=»** LSTPAG IN TTAB=A3 ** «, t00=0x008a, t01=0x013c}
0x0d8f6…0d92e Head {h00=0x0034, h01=0x0050, text=»** A1=CONTENTS OF 1:ST USED ENTRY ** «, t00=0x008a, t01=0x0174}
0x0d92e…0d966 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x008b, t01=0x001c}
0x0d966…0d96e Head {h00=0x0004, h01=0x0050, t00=0x008b, t01=0x0054}
0x0d96e…0d982 Head {h00=0x0010, h01=0x0050, text=»MMENT EQU * «, t00=0x008b, t01=0x005c}
0x0d982…0d9a6 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A3 GET TABLE ADDRESS«, t00=0x008b, t01=0x0070}
0x0d9a6…0d9e0 Head {h00=0x0036, h01=0x0050, text=» SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER)«, t00=0x008b, t01=0x0094}
0x0d9e0…0d9f2 Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x008b, t01=0x00ce}
0x0d9f2…0da1c Head {h00=0x0026, h01=0x0050, text=»MMEN10 ADK A3,2 INCREMENT ADDRESS «, t00=0x008b, t01=0x00e0}
0x0da1c…0da48 Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A3 GET CONTENTS OF MM-TABLE«, t00=0x008b, t01=0x010a}
0x0da48…0da5e Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FC00«, t00=0x008b, t01=0x0136}
0x0da5e…0da74 Head {h00=0x0012, h01=0x0050, text=» CWK A1,/FC00 «, t00=0x008b, t01=0x014c}
0x0da74…0da8a Head {h00=0x0012, h01=0x0050, text=» RB(Z) MMEN10 «, t00=0x008b, t01=0x0162}
0x0da8a…0dac0 Head {h00=0x0032, h01=0x0050, text=» ST A3,LSTPAG,A9 SAVE FIRST FREE PAGE-ADDRESS «, t00=0x008b, t01=0x0178}
0x0dac0…0dad0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008c, t01=0x001e}
0x0dad0…0dadc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008c, t01=0x002e}
0x0dadc…0daf2 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x008c, t01=0x003a}
0x0daf2…0db00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008c, t01=0x0050}
0x0db00…0db08 Head {h00=0x0004, h01=0x0050, t00=0x008c, t01=0x005e}
0x0db08…0db3e Head {h00=0x0032, h01=0x0050, text=»** G E T T A B **«, t00=0x008c, t01=0x0066}
0x0db3e…0db74 Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x008c, t01=0x009c}
0x0db74…0dbaa Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x008c, t01=0x00d2}
0x0dbaa…0dbe0 Head {h00=0x0032, h01=0x0050, text=»** FIND TTAB ADDRESS **«, t00=0x008c, t01=0x0108}
0x0dbe0…0dc16 Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x008c, t01=0x013e}
0x0dc16…0dc4c Head {h00=0x0032, h01=0x0050, text=»** INPUT :A8=POINTER TO T:A IN T:ATAB **«, t00=0x008c, t01=0x0174}
0x0dc4c…0dc82 Head {h00=0x0032, h01=0x0050, text=»** OUTPUT:A2=TTAB-ADDRESS **«, t00=0x008d, t01=0x001a}
0x0dc82…0dcb8 Head {h00=0x0032, h01=0x0050, text=»** A1=TID **«, t00=0x008d, t01=0x0050}
0x0dcb8…0dcee Head {h00=0x0032, h01=0x0050, text=»** WORKREGS:A3,A4,A10 **«, t00=0x008d, t01=0x0086}
0x0dcee…0dd24 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x008d, t01=0x00bc}
0x0dd24…0dd2c Head {h00=0x0004, h01=0x0050, t00=0x008d, t01=0x00f2}
0x0dd2c…0dd40 Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x008d, t01=0x00fa}
0x0dd40…0dd4c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x010e}
0x0dd4c…0dd62 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x008d, t01=0x011a}
0x0dd62…0dd82 Head {h00=0x001c, h01=0x0050, text=» LDR* A10,A8 T:A ADDRESS«, t00=0x008d, t01=0x0130}
0x0dd82…0ddac Head {h00=0x0026, h01=0x0050, text=» LD A1,T:ATID,A10 GET TID TO MATCH«, t00=0x008d, t01=0x0150}
0x0ddac…0ddd2 Head {h00=0x0022, h01=0x0050, text=» LD A12,T:DAD,A10 T:D-ADDRESS «, t00=0x008d, t01=0x017a}
0x0ddd2…0ddde Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x0010}
0x0ddde…0ddf4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x008e, t01=0x001c}
0x0ddf4…0de14 Head {h00=0x001c, h01=0x0050, text=» ELR A10,A8 T:A-ADDRESS «, t00=0x008e, t01=0x0032}
0x0de14…0de36 Head {h00=0x001e, h01=0x0050, text=» EL A1,T:ATID,A10 GET TID «, t00=0x008e, t01=0x0052}
0x0de36…0de50 Head {h00=0x0016, h01=0x0050, text=» EL A12,T:DAD,A10 «, t00=0x008e, t01=0x0074}
0x0de50…0de5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x008e}
0x0de5c…0de86 Head {h00=0x0026, h01=0x0050, text=»GETTTB EQU * ENTRY. INPUT: A1=TID «, t00=0x008e, t01=0x009a}
0x0de86…0deae Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTTCT GET TC:TAB ADDRESS«, t00=0x008e, t01=0x00c4}
0x0deae…0dece Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A4 TCTAB LENGTH«, t00=0x008e, t01=0x00ec}
0x0dece…0dee6 Head {h00=0x0014, h01=0x0050, text=»GETT10 ADK A4,2 «, t00=0x008e, t01=0x010c}
0x0dee6…0defc Head {h00=0x0012, h01=0x0050, text=» SUK A3,2 ALL?«, t00=0x008e, t01=0x0124}
0x0defc…0df16 Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETT20 NO!«, t00=0x008e, t01=0x013a}
0x0df16…0df44 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) «, t00=0x008e, t01=0x0154}
0x0df44…0df62 Head {h00=0x001a, h01=0x0050, text=» LDK A1,LMP5 TID ERROR«, t00=0x008e, t01=0x0182}
0x0df62…0df76 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x008f, t01=0x0010}
0x0df76…0df9c Head {h00=0x0022, h01=0x0050, text=»GETT20 LDR* A2,A4 TTAB-ADDRESS«, t00=0x008f, t01=0x0024}
0x0df9c…0dfc0 Head {h00=0x0020, h01=0x0050, text=» CW A1,TTB:PP,A2 TCL EQUAL? «, t00=0x008f, t01=0x004a}
0x0dfc0…0dfda Head {h00=0x0016, h01=0x0050, text=» RB(NE) GETT10 NO!«, t00=0x008f, t01=0x006e}
0x0dfda…0dff6 Head {h00=0x0018, h01=0x0050, text=» ST A2,TTAB,A13 SAVE«, t00=0x008f, t01=0x0088}
0x0dff6…0e006 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008f, t01=0x00a4}
0x0e006…0e01c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x008f, t01=0x00b4}
0x0e01c…0e02a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008f, t01=0x00ca}
0x0e02a…0e032 Head {h00=0x0004, h01=0x0050, t00=0x008f, t01=0x00d8}
0x0e032…0e03a Head {h00=0x0004, h01=0x0050, t00=0x008f, t01=0x00e0}
0x0e03a…0e076 Head {h00=0x0038, h01=0x0050, text=»** Q U E J O B ** «, t00=0x008f, t01=0x00e8}
0x0e076…0e0b2 Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x008f, t01=0x0124}
0x0e0b2…0e0ee Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x008f, t01=0x0160}
0x0e0ee…0e12a Head {h00=0x0038, h01=0x0050, text=»** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** «, t00=0x0090, t01=0x000c}
0x0e12a…0e166 Head {h00=0x0038, h01=0x0050, text=»** 0, ENB. ** «, t00=0x0090, t01=0x0048}
0x0e166…0e1a2 Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x0090, t01=0x0084}
0x0e1a2…0e1de Head {h00=0x0038, h01=0x0050, text=»** INPUT: A10=T:A-ADDRESS ** «, t00=0x0090, t01=0x00c0}
0x0e1de…0e21a Head {h00=0x0038, h01=0x0050, text=»** A12=T:D-ADDRESS ** «, t00=0x0090, t01=0x00fc}
0x0e21a…0e256 Head {h00=0x0038, h01=0x0050, text=»** A2=TTAB-ADDRESS ** «, t00=0x0090, t01=0x0138}
0x0e256…0e292 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0090, t01=0x0174}
0x0e292…0e29a Head {h00=0x0004, h01=0x0050, t00=0x0091, t01=0x0020}
0x0e29a…0e2ae Head {h00=0x0010, h01=0x0050, text=»QUEJOB EQU *«, t00=0x0091, t01=0x0028}
0x0e2ae…0e2d2 Head {h00=0x0020, h01=0x0050, text=»* QUEUE THIS TASK (THIS TID)«, t00=0x0091, t01=0x003c}
0x0e2d2…0e2da Head {h00=0x0004, h01=0x0050, t00=0x0091, t01=0x0060}
0x0e2da…0e30e Head {h00=0x0030, h01=0x0050, text=» LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS«, t00=0x0091, t01=0x0068}
0x0e30e…0e32a Head {h00=0x0018, h01=0x0050, text=» ADR A3,A13 RELOCATE«, t00=0x0091, t01=0x009c}
0x0e32a…0e34a Head {h00=0x001c, h01=0x0050, text=» STR A3,A15 PUT ON STACK«, t00=0x0091, t01=0x00b8}
0x0e34a…0e378 Head {h00=0x002a, h01=0x0050, text=» LDKL A3,/00C0 SET LEVEL 0 AND ENABLE «, t00=0x0091, t01=0x00d8}
0x0e378…0e390 Head {h00=0x0014, h01=0x0050, text=» STR A3,A15 PSW «, t00=0x0091, t01=0x0106}
0x0e390…0e3b2 Head {h00=0x001e, h01=0x0050, text=» CF A15,SAVE8 SAVE 8 REGS «, t00=0x0091, t01=0x011e}
0x0e3b2…0e3da Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 CLEAR ABORT INDICATOR «, t00=0x0091, t01=0x0140}
0x0e3da…0e402 Head {h00=0x0024, h01=0x0050, text=» LD A8,SCTLAC GET P:MTAB-ADDRESS«, t00=0x0091, t01=0x0168}
0x0e402…0e426 Head {h00=0x0020, h01=0x0050, text=» LDR A5,A2 GET TTAB-ADDRESS «, t00=0x0091, t01=0x0190}
0x0e426…0e442 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0092, t01=0x0024}
0x0e442…0e472 Head {h00=0x002c, h01=0x0050, text=» LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS«, t00=0x0092, t01=0x0040}
0x0e472…0e484 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0092, t01=0x0070}
0x0e484…0e49a Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FFFE«, t00=0x0092, t01=0x0082}
0x0e49a…0e4b2 Head {h00=0x0014, h01=0x0050, text=» ADK A4,DWBFST+4«, t00=0x0092, t01=0x0098}
0x0e4b2…0e4ee Head {h00=0x0038, h01=0x0050, text=» ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS«, t00=0x0092, t01=0x00b0}
0x0e4ee…0e518 Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A4 NUMBER OF START POINTS«, t00=0x0092, t01=0x00ec}
0x0e518…0e54a Head {h00=0x002e, h01=0x0050, text=»GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS«, t00=0x0092, t01=0x0116}
0x0e54a…0e564 Head {h00=0x0016, h01=0x0050, text=» RF(N) GETT40 ALL!«, t00=0x0092, t01=0x0148}
0x0e564…0e584 Head {h00=0x001c, h01=0x0050, text=» LD A1,4,A4 DISP ADDRESS«, t00=0x0092, t01=0x0162}
0x0e584…0e5a6 Head {h00=0x001e, h01=0x0050, text=» LD A3,2,A4 SEGMENT NUMBER«, t00=0x0092, t01=0x0182}
0x0e5a6…0e5d6 Head {h00=0x002c, h01=0x0050, text=» LD A2,NTPA,A8 INTERPRETER START ADDRESS«, t00=0x0093, t01=0x0014}
0x0e5d6…0e5e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0093, t01=0x0044}
0x0e5e2…0e5fe Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0093, t01=0x0050}
0x0e5fe…0e62e Head {h00=0x002c, h01=0x0050, text=» EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS«, t00=0x0093, t01=0x006c}
0x0e62e…0e640 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0093, t01=0x009c}
0x0e640…0e656 Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FFFE«, t00=0x0093, t01=0x00ae}
0x0e656…0e66e Head {h00=0x0014, h01=0x0050, text=» ADK A4,DWBFST+4«, t00=0x0093, t01=0x00c4}
0x0e66e…0e6aa Head {h00=0x0038, h01=0x0050, text=» ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS«, t00=0x0093, t01=0x00dc}
0x0e6aa…0e6d4 Head {h00=0x0026, h01=0x0050, text=» ELR A6,A4 NUMBER OF START-POINTS «, t00=0x0093, t01=0x0118}
0x0e6d4…0e706 Head {h00=0x002e, h01=0x0050, text=»GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS«, t00=0x0093, t01=0x0142}
0x0e706…0e720 Head {h00=0x0016, h01=0x0050, text=» RF(N) GETT40 ALL!«, t00=0x0093, t01=0x0174}
0x0e720…0e740 Head {h00=0x001c, h01=0x0050, text=» EL A1,4,A4 DISP ADDRESS«, t00=0x0093, t01=0x018e}
0x0e740…0e762 Head {h00=0x001e, h01=0x0050, text=» EL A3,2,A4 SEGMENT NUMBER«, t00=0x0094, t01=0x001e}
0x0e762…0e792 Head {h00=0x002c, h01=0x0050, text=» EL A2,NTPA,A8 INTERPRETER START ADDRESS«, t00=0x0094, t01=0x0040}
0x0e792…0e79e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0094, t01=0x0070}
0x0e79e…0e7b4 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0094, t01=0x007c}
0x0e7b4…0e7ca Head {h00=0x0012, h01=0x0050, text=» CF A15,ACTOT «, t00=0x0094, t01=0x0092}
0x0e7ca…0e7f2 Head {h00=0x0024, h01=0x0050, text=» ADK A4,STPREC NEXT START-POINT «, t00=0x0094, t01=0x00a8}
0x0e7f2…0e804 Head {h00=0x000e, h01=0x0050, text=» RB GETT30«, t00=0x0094, t01=0x00d0}
0x0e804…0e82c Head {h00=0x0024, h01=0x0050, text=»GETT40 ABL RETUR8 RELOAD 8 REGS «, t00=0x0094, t01=0x00e2}
0x0e82c…0e844 Head {h00=0x0014, h01=0x0050, text=»RETUR EQU *-REL «, t00=0x0094, t01=0x010a}
0x0e844…0e854 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0094, t01=0x0122}
0x0e854…0e860 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0094, t01=0x0132}
0x0e860…0e876 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0094, t01=0x013e}
0x0e876…0e884 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0094, t01=0x0154}
0x0e884…0e88c Head {h00=0x0004, h01=0x0050, t00=0x0094, t01=0x0162}
0x0e88c…0e8c4 Head {h00=0x0034, h01=0x0050, text=»** M O V M M T ** «, t00=0x0094, t01=0x016a}
0x0e8c4…0e8fc Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0095, t01=0x0012}
0x0e8fc…0e934 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0095, t01=0x004a}
0x0e934…0e96c Head {h00=0x0034, h01=0x0050, text=»** MOVE MM-TABLE ** «, t00=0x0095, t01=0x0082}
0x0e96c…0e9a4 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0095, t01=0x00ba}
0x0e9a4…0e9dc Head {h00=0x0034, h01=0x0050, text=»** INPUT :A2=TTAB-ADDRESS ** «, t00=0x0095, t01=0x00f2}
0x0e9dc…0ea14 Head {h00=0x0034, h01=0x0050, text=»** MMTAB HOLDS TABLE TO MOVE ** «, t00=0x0095, t01=0x012a}
0x0ea14…0ea4c Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A2=START OF MM-TABLE IN TTAB ** «, t00=0x0095, t01=0x0162}
0x0ea4c…0ea84 Head {h00=0x0034, h01=0x0050, text=»** A9=TTAB ADDRESS ** «, t00=0x0096, t01=0x000a}
0x0ea84…0eabc Head {h00=0x0034, h01=0x0050, text=»** WORKREGS:A1,A3 ** «, t00=0x0096, t01=0x0042}
0x0eabc…0eaf4 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0096, t01=0x007a}
0x0eaf4…0eafc Head {h00=0x0004, h01=0x0050, t00=0x0096, t01=0x00b2}
0x0eafc…0eb10 Head {h00=0x0010, h01=0x0050, text=»MOVMMT EQU *«, t00=0x0096, t01=0x00ba}
0x0eb10…0eb3c Head {h00=0x0028, h01=0x0050, text=» ADKL A2,MMBEG GET TO-TABLE ADDRESS «, t00=0x0096, t01=0x00ce}
0x0eb3c…0eb62 Head {h00=0x0022, h01=0x0050, text=» TL MMTAB,A13 LOAD FROM-TABLE «, t00=0x0096, t01=0x00fa}
0x0eb62…0eb76 Head {h00=0x0010, h01=0x0050, text=» TSR A2 MOVE«, t00=0x0096, t01=0x0120}
0x0eb76…0eb88 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0096, t01=0x0134}
0x0eb88…0ebb4 Head {h00=0x0028, h01=0x0050, text=» CALL MMENT FILL LAST ENTRY ADDRESS «, t00=0x0096, t01=0x0146}
0x0ebb4…0ebd8 Head {h00=0x0020, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE«, t00=0x0096, t01=0x0172}
0x0ebd8…0ebe8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0097, t01=0x0008}
0x0ebe8…0ebf4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0097, t01=0x0018}
0x0ebf4…0ec0a Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0097, t01=0x0024}
0x0ec0a…0ec18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0097, t01=0x003a}
0x0ec18…0ec5c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0097, t01=0x0048}
0x0ec5c…0eca0 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0097, t01=0x008c}
0x0eca0…0ece4 Head {h00=0x0040, h01=0x0050, text=»* CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE AREA IN TTAB *«, t00=0x0097, t01=0x00d0}
0x0ece4…0ed28 Head {h00=0x0040, h01=0x0050, text=»* SAVE REAL TID IN AUXILARY TABLE FOR DEBUGGER *«, t00=0x0097, t01=0x0114}
0x0ed28…0ed6c Head {h00=0x0040, h01=0x0050, text=»* ====================================================== *«, t00=0x0097, t01=0x0158}
0x0ed6c…0edb0 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0098, t01=0x000c}
0x0edb0…0edf4 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0098, t01=0x0050}
0x0edf4…0ee38 Head {h00=0x0040, h01=0x0050, text=»* REFERENCED IN: SYSLDA PART 2 B. *«, t00=0x0098, t01=0x0094}
0x0ee38…0ee7c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0098, t01=0x00d8}
0x0ee7c…0eec0 Head {h00=0x0040, h01=0x0050, text=»* ENTRY: A5 - POINTER TO NUMBER OF COPIES *«, t00=0x0098, t01=0x011c}
0x0eec0…0ef04 Head {h00=0x0040, h01=0x0050, text=»* A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB *«, t00=0x0098, t01=0x0160}
0x0ef04…0ef48 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0099, t01=0x0014}
0x0ef48…0ef8c Head {h00=0x0040, h01=0x0050, text=»* EXIT: *«, t00=0x0099, t01=0x0058}
0x0ef8c…0efd0 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0099, t01=0x009c}
0x0efd0…0f014 Head {h00=0x0040, h01=0x0050, text=»* WORK REGISTERS: A1,A3,A6,A8 *«, t00=0x0099, t01=0x00e0}
0x0f014…0f058 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0099, t01=0x0124}
0x0f058…0f09c Head {h00=0x0040, h01=0x0050, text=»* SUBROUTINES: GETTTB *«, t00=0x0099, t01=0x0168}
0x0f09c…0f0e0 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x009a, t01=0x001c}
0x0f0e0…0f124 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x009a, t01=0x0060}
0x0f124…0f138 Head {h00=0x0010, h01=0x0050, text=»CHTAID EQU *«, t00=0x009a, t01=0x00a4}
0x0f138…0f16e Head {h00=0x0032, h01=0x0050, text=» LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB «, t00=0x009a, t01=0x00b8}
0x0f16e…0f196 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x009a, t01=0x00ee}
0x0f196…0f1bc Head {h00=0x0022, h01=0x0050, text=»CHT:10 RF(Z) CHT:90 NO MOORE! «, t00=0x009a, t01=0x0116}
0x0f1bc…0f1ee Head {h00=0x002e, h01=0x0050, text=» SUKL A8,2 LAST USED ENTRY IN REAL T:ATAB «, t00=0x009a, t01=0x013c}
0x0f1ee…0f20a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x009a, t01=0x016e}
0x0f20a…0f236 Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A8 GET POINTER TO REAL T:A «, t00=0x009a, t01=0x018a}
0x0f236…0f25e Head {h00=0x0024, h01=0x0050, text=» LD A1,T:ATID,A1 GET TCL IN T:A «, t00=0x009b, t01=0x0026}
0x0f25e…0f290 Head {h00=0x002e, h01=0x0050, text=»CHT:20 CALL GETTTB GET CORRESPONDING TTAB «, t00=0x009b, t01=0x004e}
0x0f290…0f2c0 Head {h00=0x002c, h01=0x0050, text=» LD A4,TTBTID,A2 GET REAL TID IN TTAB =3«, t00=0x009b, t01=0x0080}
0x0f2c0…0f2fa Head {h00=0x0036, h01=0x0050, text=» LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS «, t00=0x009b, t01=0x00b0}
0x0f2fa…0f328 Head {h00=0x002a, h01=0x0050, text=» ST A4,T:ATID,A3 REPLACE TCL IN T:A =3«, t00=0x009b, t01=0x00ea}
0x0f328…0f352 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A8 GET REAL T:ATAB POINTER«, t00=0x009b, t01=0x0118}
0x0f352…0f38c Head {h00=0x0036, h01=0x0050, text=» SU* A3,T:ATNW,A13 COMPUTE ENTRY IN AUX. TID TABLE«, t00=0x009b, t01=0x0142}
0x0f38c…0f3c0 Head {h00=0x0030, h01=0x0050, text=» STR A4,A3 SAVE TID FOR DEBUGGER PURPOSE =3 «, t00=0x009b, t01=0x017c}
0x0f3c0…0f3cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009c, t01=0x0020}
0x0f3cc…0f3e8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x009c, t01=0x002c}
0x0f3e8…0f412 Head {h00=0x0026, h01=0x0050, text=» ELR A1,A8 GET POINTER TO REAL T:A«, t00=0x009c, t01=0x0048}
0x0f412…0f43a Head {h00=0x0024, h01=0x0050, text=» EL A1,T:ATID,A1 GET TCL IN T:A «, t00=0x009c, t01=0x0072}
0x0f43a…0f46c Head {h00=0x002e, h01=0x0050, text=»CHT:20 CALL GETTTB GET CORRESPONDING TTAB «, t00=0x009c, t01=0x009a}
0x0f46c…0f498 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A2 GET POINTER TO TTAB ENTRY«, t00=0x009c, t01=0x00cc}
0x0f498…0f4ce Head {h00=0x0032, h01=0x0050, text=» ADKL A3,MMBEG START OF MM-TABLE FOR THIS TTAB«, t00=0x009c, t01=0x00f8}
0x0f4ce…0f4de Head {h00=0x000c, h01=0x0050, text=» TLR A3 «, t00=0x009c, t01=0x012e}
0x0f4de…0f50e Head {h00=0x002c, h01=0x0050, text=» LD A4,TTBTID,A2 GET REAL TID IN TTAB =3«, t00=0x009c, t01=0x013e}
0x0f50e…0f548 Head {h00=0x0036, h01=0x0050, text=» LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS «, t00=0x009c, t01=0x016e}
0x0f548…0f576 Head {h00=0x002a, h01=0x0050, text=» ES A4,T:ATID,A3 REPLACE TCL IN T:A =3«, t00=0x009d, t01=0x0018}
0x0f576…0f5aa Head {h00=0x0030, h01=0x0050, text=» EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB«, t00=0x009d, t01=0x0046}
0x0f5aa…0f5d2 Head {h00=0x0024, h01=0x0050, text=» NGR A3,A3 NEGATIVE DISPLACEMENT«, t00=0x009d, t01=0x007a}
0x0f5d2…0f604 Head {h00=0x002e, h01=0x0050, text=» ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE«, t00=0x009d, t01=0x00a2}
0x0f604…0f638 Head {h00=0x0030, h01=0x0050, text=» ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE =3 «, t00=0x009d, t01=0x00d4}
0x0f638…0f644 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009d, t01=0x0108}
0x0f644…0f65a Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x009d, t01=0x0114}
0x0f65a…0f684 Head {h00=0x0026, h01=0x0050, text=» CM TTB:PP,A2 CLEAR TCL SAVE AREA «, t00=0x009d, t01=0x012a}
0x0f684…0f6a4 Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 DECREMENT TCL «, t00=0x009d, t01=0x0154}
0x0f6a4…0f6c0 Head {h00=0x0018, h01=0x0050, text=» SUKL A8,2 DECREMENT«, t00=0x009d, t01=0x0174}
0x0f6c0…0f6ec Head {h00=0x0028, h01=0x0050, text=» SUK A6,1 DECREMENT NUMBER OF COPIES«, t00=0x009d, t01=0x0190}
0x0f6ec…0f70c Head {h00=0x001c, h01=0x0050, text=» RB(P) CHT:20 NEXT COPY «, t00=0x009e, t01=0x002c}
0x0f70c…0f722 Head {h00=0x0012, h01=0x0050, text=»CHT:90 RTN A14«, t00=0x009e, t01=0x004c}
0x0f722…0f730 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009e, t01=0x0062}
0x0f730…0f738 Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x0070}
0x0f738…0f740 Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x0078}
0x0f740…0f778 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009e, t01=0x0080}
0x0f778…0f7b0 Head {h00=0x0034, h01=0x0050, text=»*** ***«, t00=0x009e, t01=0x00b8}
0x0f7b0…0f7e8 Head {h00=0x0034, h01=0x0050, text=»** SYSLOAD PART 2.B **«, t00=0x009e, t01=0x00f0}
0x0f7e8…0f820 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x009e, t01=0x0128}
0x0f820…0f858 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009e, t01=0x0160}
0x0f858…0f860 Head {h00=0x0004, h01=0x0050, t00=0x009f, t01=0x0008}
0x0f860…0f898 Head {h00=0x0034, h01=0x0050, text=»* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO *«, t00=0x009f, t01=0x0010}
0x0f898…0f8d0 Head {h00=0x0034, h01=0x0050, text=»* SHADOW TABLE *«, t00=0x009f, t01=0x0048}
0x0f8d0…0f908 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x009f, t01=0x0080}
0x0f908…0f940 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009f, t01=0x00b8}
0x0f940…0f948 Head {h00=0x0004, h01=0x0050, t00=0x009f, t01=0x00f0}
0x0f948…0f960 Head {h00=0x0014, h01=0x0050, text=»PART2B EQU *-REL«, t00=0x009f, t01=0x00f8}
0x0f960…0f968 Head {h00=0x0004, h01=0x0050, t00=0x009f, t01=0x0110}
0x0f968…0f970 Head {h00=0x0004, h01=0x0050, t00=0x009f, t01=0x0118}
0x0f970…0f984 Head {h00=0x0010, h01=0x0050, text=»REALTA EQU *«, t00=0x009f, t01=0x0120}
0x0f984…0f9ae Head {h00=0x0026, h01=0x0050, text=» LD A5,SCTSFA MONITOR END ADDRESS «, t00=0x009f, t01=0x0134}
0x0f9ae…0f9e0 Head {h00=0x002e, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB PROTOTYP ADDRESS «, t00=0x009f, t01=0x015e}
0x0f9e0…0fa0e Head {h00=0x002a, h01=0x0050, text=» LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS «, t00=0x009f, t01=0x0190}
0x0fa0e…0fa20 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00a0, t01=0x002e}
0x0fa20…0fa42 Head {h00=0x001e, h01=0x0050, text=» ST A8,SAVE03,A13 SAVE A8 «, t00=0x00a0, t01=0x0040}
0x0fa42…0fa6c Head {h00=0x0026, h01=0x0050, text=»SYA310 LD A8,SAVE03,A13 RESTORE A8«, t00=0x00a0, t01=0x0062}
0x0fa6c…0fa7e Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x00a0, t01=0x008c}
0x0fa7e…0fa9c Head {h00=0x001a, h01=0x0050, text=» CW A8,ENDADD,A13 ALL?«, t00=0x00a0, t01=0x009e}
0x0fa9c…0fab6 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA350 YES!«, t00=0x00a0, t01=0x00bc}
0x0fab6…0fad4 Head {h00=0x001a, h01=0x0050, text=» ST A8,SAVE03,A13 SAVE«, t00=0x00a0, t01=0x00d6}
0x0fad4…0fafc Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 A5=SHADOW TAB POINTER «, t00=0x00a0, t01=0x00f4}
0x0fafc…0fb18 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00a0, t01=0x011c}
0x0fb18…0fb4e Head {h00=0x0032, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB AND QUEUE «, t00=0x00a0, t01=0x0138}
0x0fb4e…0fb62 Head {h00=0x0010, h01=0x0050, text=» CALL QUEJOB«, t00=0x00a0, t01=0x016e}
0x0fb62…0fba0 Head {h00=0x003a, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13)«, t00=0x00a0, t01=0x0182}
0x0fba0…0fbc4 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A ADDRESS «, t00=0x00a1, t01=0x0030}
0x0fbc4…0fbec Head {h00=0x0024, h01=0x0050, text=» STR A1,A7 STORE IN REAL T:ATAB «, t00=0x00a1, t01=0x0054}
0x0fbec…0fbfe Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00a1, t01=0x007c}
0x0fbfe…0fc26 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x00a1, t01=0x008e}
0x0fc26…0fc34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a1, t01=0x00b6}
0x0fc34…0fc4c Head {h00=0x0014, h01=0x0050, text=»SYA340 SUK A6,1 «, t00=0x00a1, t01=0x00c4}
0x0fc4c…0fc6c Head {h00=0x001c, h01=0x0050, text=» RF(P) SYA345 NEXT TASK «, t00=0x00a1, t01=0x00dc}
0x0fc6c…0fca2 Head {h00=0x0032, h01=0x0050, text=» CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS «, t00=0x00a1, t01=0x00fc}
0x0fca2…0fcc4 Head {h00=0x001e, h01=0x0050, text=» RB SYA310 NEXT TASK-CLASS«, t00=0x00a1, t01=0x0132}
0x0fcc4…0fcf2 Head {h00=0x002a, h01=0x0050, text=»SYA345 LD A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x00a1, t01=0x0154}
0x0fcf2…0fd10 Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x00a1, t01=0x0182}
0x0fd10…0fd30 Head {h00=0x001c, h01=0x0050, text=» IM T:ATID,A2 UPDATE TID«, t00=0x00a2, t01=0x0010}
0x0fd30…0fd58 Head {h00=0x0024, h01=0x0050, text=» STR A2,A7 STORE IN REAL T:ATAB «, t00=0x00a2, t01=0x0030}
0x0fd58…0fd7e Head {h00=0x0022, h01=0x0050, text=» LDR A8,A7 CHANGE T:A TO COPY «, t00=0x00a2, t01=0x0058}
0x0fd7e…0fdb4 Head {h00=0x0032, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB AND QUEUE «, t00=0x00a2, t01=0x007e}
0x0fdb4…0fdd8 Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a2, t01=0x00b4}
0x0fdd8…0fe0e Head {h00=0x0032, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB «, t00=0x00a2, t01=0x00d8}
0x0fe0e…0fe3a Head {h00=0x0028, h01=0x0050, text=» ADK A7,2 NEXT ENTRY IN REAL T:ATAB «, t00=0x00a2, t01=0x010e}
0x0fe3a…0fe70 Head {h00=0x0032, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S AND RESERVE FOR SWB'S «, t00=0x00a2, t01=0x013a}
0x0fe70…0fe96 Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x00a2, t01=0x0170}
0x0fe96…0fea2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a3, t01=0x0008}
0x0fea2…0febe Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00a3, t01=0x0014}
0x0febe…0feec Head {h00=0x002a, h01=0x0050, text=»* GET ACTUAL MM-TABLE ADDRESS AND LOAD«, t00=0x00a3, t01=0x0030}
0x0feec…0fef4 Head {h00=0x0004, h01=0x0050, t00=0x00a3, t01=0x005e}
0x0fef4…0ff06 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x00a3, t01=0x0066}
0x0ff06…0ff34 Head {h00=0x002a, h01=0x0050, text=» AD* A1,SCTSFA ADD SHADOW-TABLE LENGTH«, t00=0x00a3, t01=0x0078}
0x0ff34…0ff5c Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET MM-TABLE ADDRESS«, t00=0x00a3, t01=0x00a6}
0x0ff5c…0ff70 Head {h00=0x0010, h01=0x0050, text=» TLR A1 LOAD«, t00=0x00a3, t01=0x00ce}
0x0ff70…0ff96 Head {h00=0x0022, h01=0x0050, text=» ST A1,MMFROM,A13 SAVE ADDRESS«, t00=0x00a3, t01=0x00e2}
0x0ff96…0ffc2 Head {h00=0x0028, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB «, t00=0x00a3, t01=0x0108}
0x0ffc2…10000 Head {h00=0x003a, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13)«, t00=0x00a3, t01=0x0134}
0x10000…10034 Head {h00=0x0030, h01=0x0050, text=» LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST ENTRY «, t00=0x00a3, t01=0x0172}
0x10034…10058 Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a4, t01=0x0016}
0x10058…10086 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MMTAB GET WORK TABLE ADDRESS «, t00=0x00a4, t01=0x003a}
0x10086…1009a Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x00a4, t01=0x0068}
0x1009a…100c0 Head {h00=0x0022, h01=0x0050, text=» TSR A2 SAVE CLASS-DATA TABLE «, t00=0x00a4, t01=0x007c}
0x100c0…100f0 Head {h00=0x002c, h01=0x0050, text=»* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE «, t00=0x00a4, t01=0x00a2}
0x100f0…100f8 Head {h00=0x0004, h01=0x0050, t00=0x00a4, t01=0x00d2}
0x100f8…10118 Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 START OF TABLE«, t00=0x00a4, t01=0x00da}
0x10118…10130 Head {h00=0x0014, h01=0x0050, text=» LDKL A12,/FC00 «, t00=0x00a4, t01=0x00fa}
0x10130…10152 Head {h00=0x001e, h01=0x0050, text=»SYA320 SUK A1,2 NEXT ENTRY«, t00=0x00a4, t01=0x0112}
0x10152…1016a Head {h00=0x0014, h01=0x0050, text=» CWR A1,A2 ALL? «, t00=0x00a4, t01=0x0134}
0x1016a…10184 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA330 YES!«, t00=0x00a4, t01=0x014c}
0x10184…101a4 Head {h00=0x001c, h01=0x0050, text=» STR A12,A1 REMOVE ENTRY«, t00=0x00a4, t01=0x0166}
0x101a4…101b6 Head {h00=0x000e, h01=0x0050, text=» RB SYA320«, t00=0x00a4, t01=0x0186}
0x101b6…101ca Head {h00=0x0010, h01=0x0050, text=»SYA330 EQU *«, t00=0x00a5, t01=0x0008}
0x101ca…101ec Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A ADDRESS«, t00=0x00a5, t01=0x001c}
0x101ec…10214 Head {h00=0x0024, h01=0x0050, text=» ESR A1,A7 STORE IN REAL T:ATAB «, t00=0x00a5, t01=0x003e}
0x10214…1023c Head {h00=0x0024, h01=0x0050, text=» EL A12,T:DAD,A1 GET T:D ADDRESS«, t00=0x00a5, t01=0x0066}
0x1023c…1025c Head {h00=0x001c, h01=0x0050, text=» EL A1,T:ATID,A1 GET TID«, t00=0x00a5, t01=0x008e}
0x1025c…10288 Head {h00=0x0028, h01=0x0050, text=» ADK A7,2 NEXT ENTRY IN REAL T:ATAB «, t00=0x00a5, t01=0x00ae}
0x10288…102b0 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x00a5, t01=0x00da}
0x102b0…102c8 Head {h00=0x0014, h01=0x0050, text=»SYA340 SUK A6,1 «, t00=0x00a5, t01=0x0102}
0x102c8…102e8 Head {h00=0x001c, h01=0x0050, text=» RF(P) SYA345 NEXT TASK «, t00=0x00a5, t01=0x011a}
0x102e8…1031e Head {h00=0x0032, h01=0x0050, text=» CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS «, t00=0x00a5, t01=0x013a}
0x1031e…10340 Head {h00=0x001e, h01=0x0050, text=» RB SYA310 NEXT TASK-CLASS«, t00=0x00a5, t01=0x0170}
0x10340…10364 (166, 0, 400) Head {h00=0x0020, h01=0x0050, text=»SYA345 ADK A1,1 NEXT T:A ID «, t00=0x00a6, t01=0x0004}
0x10364…10390 Head {h00=0x0028, h01=0x0050, text=» CALL GETTTB FIND CORRESPONDING TTAB«, t00=0x00a6, t01=0x0028}
0x10390…103b4 Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a6, t01=0x0054}
0x103b4…103de Head {h00=0x0026, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE TO TTAB«, t00=0x00a6, t01=0x0078}
0x103de…103fc Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x00a6, t01=0x00a2}
0x103fc…10424 Head {h00=0x0024, h01=0x0050, text=» ESR A2,A7 STORE IN REAL T:ATAB «, t00=0x00a6, t01=0x00c0}
0x10424…10468 Head {h00=0x0040, h01=0x0050, text=» ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS«, t00=0x00a6, t01=0x00e8}
0x10468…1048e Head {h00=0x0022, h01=0x0050, text=» LDR A8,A7 CHANGE T:A TO COPY «, t00=0x00a6, t01=0x012c}
0x1048e…104be Head {h00=0x002c, h01=0x0050, text=» ADK A7,2 NEXT FREE WORD IN REAL T:ATAB «, t00=0x00a6, t01=0x0152}
0x104be…104d8 Head {h00=0x0016, h01=0x0050, text=» A2=NEW ADDRESS «, t00=0x00a6, t01=0x0182}
0x104d8…1050c Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x00a7, t01=0x000c}
0x1050c…10530 Head {h00=0x0020, h01=0x0050, text=» LD A1,MMTO,A13 GET TO-TABLE«, t00=0x00a7, t01=0x0040}
0x10530…10562 Head {h00=0x002e, h01=0x0050, text=» ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE«, t00=0x00a7, t01=0x0064}
0x10562…10572 Head {h00=0x000c, h01=0x0050, text=» TLR A1 «, t00=0x00a7, t01=0x0096}
0x10572…10598 Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x00a7, t01=0x00a6}
0x10598…105c0 Head {h00=0x0024, h01=0x0050, text=» LD A1,TTAB,A13 GET TTAB-ADDRESS«, t00=0x00a7, t01=0x00cc}
0x105c0…105ee Head {h00=0x002a, h01=0x0050, text=» CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB «, t00=0x00a7, t01=0x00f4}
0x105ee…10618 Head {h00=0x0026, h01=0x0050, text=» ELR A10,A8 GET T:A-ADDRESS (NEW) «, t00=0x00a7, t01=0x0122}
0x10618…1063a Head {h00=0x001e, h01=0x0050, text=» EL A1,T:ATID,A10 GET TID «, t00=0x00a7, t01=0x014c}
0x1063a…10656 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 UPDATE TID«, t00=0x00a7, t01=0x016e}
0x10656…1067e Head {h00=0x0024, h01=0x0050, text=» ES A1,T:ATID,A10 RESTORE IN T:A«, t00=0x00a7, t01=0x018a}
0x1067e…1068a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0022}
0x1068a…106a0 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00a8, t01=0x002e}
0x106a0…106b2 Head {h00=0x000e, h01=0x0050, text=» RB SYA340«, t00=0x00a8, t01=0x0044}
0x106b2…106be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0056}
0x106be…106cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a8, t01=0x0062}
0x106cc…106e4 Head {h00=0x0014, h01=0x0050, text=»FINISH EQU *-REL«, t00=0x00a8, t01=0x0070}
0x106e4…106ec Head {h00=0x0004, h01=0x0050, t00=0x00a8, t01=0x0088}
0x106ec…10710 Head {h00=0x0020, h01=0x0050, text=»* ADJUST START OF FREE AREA «, t00=0x00a8, t01=0x0090}
0x10710…10718 Head {h00=0x0004, h01=0x0050, t00=0x00a8, t01=0x00b4}
0x10718…1072c Head {h00=0x0010, h01=0x0050, text=»SYA350 EQU *«, t00=0x00a8, t01=0x00bc}
0x1072c…10742 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00a8, t01=0x00d0}
0x10742…10770 Head {h00=0x002a, h01=0x0050, text=» LD A1,LSTADR,A13 GET END OF FREE AREA«, t00=0x00a8, t01=0x00e6}
0x10770…107a2 Head {h00=0x002e, h01=0x0050, text=» LD A14,SAVE13,A13 GET APPL. REL. BASE =6 «, t00=0x00a8, t01=0x0114}
0x107a2…107ae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0146}
0x107ae…107ca Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00a8, t01=0x0152}
0x107ca…107e0 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFF «, t00=0x00a8, t01=0x016e}
0x107e0…107fa Head {h00=0x0016, h01=0x0050, text=» LD A2,FYSPAG,A13 «, t00=0x00a8, t01=0x0184}
0x107fa…1080c Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x00a9, t01=0x000e}
0x1080c…1081e Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x00a9, t01=0x0020}
0x1081e…1082a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a9, t01=0x0032}
0x1082a…10840 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x00a9, t01=0x003e}
0x10840…10856 Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTLAC «, t00=0x00a9, t01=0x0054}
0x10856…10862 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a9, t01=0x006a}
0x10862…1087e Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x00a9, t01=0x0076}
0x1087e…10894 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/03FF«, t00=0x00a9, t01=0x0092}
0x10894…108a6 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x00a9, t01=0x00a8}
0x108a6…108b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a9, t01=0x00ba}
0x108b2…108ca Head {h00=0x0014, h01=0x0050, text=» ST A1,SCTEFA+2 «, t00=0x00a9, t01=0x00c6}
0x108ca…108e0 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00a9, t01=0x00de}
0x108e0…108fa Head {h00=0x0016, h01=0x0050, text=» LD A1,FYSPAG,A13 «, t00=0x00a9, t01=0x00f4}
0x108fa…10916 Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x00a9, t01=0x010e}
0x10916…1092c Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTLAC «, t00=0x00a9, t01=0x012a}
0x1092c…10938 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a9, t01=0x0140}
0x10938…10954 Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CREDIT=0«, t00=0x00a9, t01=0x014c}
0x10954…10966 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00a9, t01=0x0168}
0x10966…10972 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a9, t01=0x017a}
0x10972…10984 Head {h00=0x000e, h01=0x0050, text=» SRL A1,14«, t00=0x00a9, t01=0x0186}
0x10984…1099a Head {h00=0x0012, h01=0x0050, text=» ST A1,SCTEFA «, t00=0x00aa, t01=0x0008}
0x1099a…109b6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00aa, t01=0x001e}
0x109b6…109e2 Head {h00=0x0028, h01=0x0050, text=» LD A1,FSTADR,A13 START OF FREE AREA«, t00=0x00aa, t01=0x003a}
0x109e2…109f8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA355«, t00=0x00aa, t01=0x0066}
0x109f8…10a04 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00aa, t01=0x007c}
0x10a04…10a1a Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTSFA «, t00=0x00aa, t01=0x0088}
0x10a1a…10a38 Head {h00=0x001a, h01=0x0050, text=»SYA355 ST A1,SCTSFA+2 «, t00=0x00aa, t01=0x009e}
0x10a38…10a4a Head {h00=0x000e, h01=0x0050, text=» CM SCTSFA«, t00=0x00aa, t01=0x00bc}
0x10a4a…10a60 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00aa, t01=0x00ce}
0x10a60…10a6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00aa, t01=0x00e4}
0x10a6e…10ab6 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x00aa, t01=0x00f2}
0x10ab6…10afe Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00aa, t01=0x013a}
0x10afe…10b46 Head {h00=0x0044, h01=0x003f, text=»* PAGGEN - BUILD PAGE TABLE * «, t00=0x00aa, t01=0x0182}
0x10b46…10b8e Head {h00=0x0044, h01=0x003f, text=»* ========================= * «, t00=0x00ab, t01=0x003a}
0x10b8e…10bd6 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ab, t01=0x0082}
0x10bd6…10c1e Head {h00=0x0044, h01=0x003f, text=»* REFERENCED IN: SYSLDA * «, t00=0x00ab, t01=0x00ca}
0x10c1e…10c66 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ab, t01=0x0112}
0x10c66…10cae Head {h00=0x0044, h01=0x003f, text=»* ENTRY: SCTSFA - START OF FREE AREA * «, t00=0x00ab, t01=0x015a}
0x10cae…10cf6 Head {h00=0x0044, h01=0x003f, text=»* SCTEFA - END OF FREE AREA * «, t00=0x00ac, t01=0x0012}
0x10cf6…10d3e Head {h00=0x0044, h01=0x003f, text=»* SCTNOS - NUMBER OF SEGMENTS * «, t00=0x00ac, t01=0x005a}
0x10d3e…10d86 Head {h00=0x0044, h01=0x003f, text=»* SCTNOP - NUMBER OF PAGES * «, t00=0x00ac, t01=0x00a2}
0x10d86…10dce Head {h00=0x0044, h01=0x003f, text=»* SCTPSZ - PAGE SIZE * «, t00=0x00ac, t01=0x00ea}
0x10dce…10e16 Head {h00=0x0044, h01=0x003f, text=»* SAVE22 - PHYSICAL ADDRESS TO FIRST PAGE (16 BITS) * «, t00=0x00ac, t01=0x0132}
0x10e16…10e5e Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ac, t01=0x017a}
0x10e5e…10ea6 Head {h00=0x0044, h01=0x003f, text=»* EXIT: PAGQUE - POINTER TO FIRST FREE PAGE BLOCK * «, t00=0x00ad, t01=0x0032}
0x10ea6…10eee Head {h00=0x0044, h01=0x003f, text=»* PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * «, t00=0x00ad, t01=0x007a}
0x10eee…10f36 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ad, t01=0x00c2}
0x10f36…10f7e Head {h00=0x0044, h01=0x003f, text=»* WORK REGISTERS: A1-A12 * «, t00=0x00ad, t01=0x010a}
0x10f7e…10fc6 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ad, t01=0x0152}
0x10fc6…1100e Head {h00=0x0044, h01=0x003f, text=»* SUBROUTINES: * «, t00=0x00ae, t01=0x000a}
0x1100e…11056 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ae, t01=0x0052}
0x11056…1109e Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ae, t01=0x009a}
0x1109e…110e6 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x00ae, t01=0x00e2}
0x110e6…110fa Head {h00=0x0010, h01=0x000c, text=»PAGGEN EQU *«, t00=0x00ae, t01=0x012a}
0x110fa…1111e Head {h00=0x0020, h01=0x0050, text=» LDKL A2,PAGEX EXIT ADDRESS «, t00=0x00ae, t01=0x013e}
0x1111e…1113a Head {h00=0x0018, h01=0x0050, text=» ADR A2,A13 RELOCATE«, t00=0x00ae, t01=0x0162}
0x1113a…1116c Head {h00=0x002e, h01=0x0050, text=» LD A1,SCTNOS ANY SEGMENTS IN APPLICATION?«, t00=0x00ae, t01=0x017e}
0x1116c…11182 Head {h00=0x0012, h01=0x0050, text=» ABR(Z) A2 NO!«, t00=0x00af, t01=0x0020}
0x11182…111a8 Head {h00=0x0022, h01=0x001d, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00af, t01=0x0036}
0x111a8…111c2 Head {h00=0x0016, h01=0x0011, text=» ANK A1,3 PAGING? «, t00=0x00af, t01=0x005c}
0x111c2…111d8 Head {h00=0x0012, h01=0x0050, text=» ABR(Z) A2 NO!«, t00=0x00af, t01=0x0076}
0x111d8…111e2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00af, t01=0x008c}
0x111e2…11232 Head {h00=0x004c, h01=0x0047, text=»* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS «, t00=0x00af, t01=0x0096}
0x11232…1123c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00af, t01=0x00e6}
0x1123c…1126c Head {h00=0x002c, h01=0x0027, text=» LD A11,SCTSFA+2 GET START OF FREE AREA «, t00=0x00af, t01=0x00f0}
0x1126c…11292 Head {h00=0x0022, h01=0x001e, text=» ST A11,SCTPAG STORE IN SYSTAB«, t00=0x00af, t01=0x0120}
0x11292…112ba Head {h00=0x0024, h01=0x001f, text=» LDR A8,A13 GET RELOCATION BASE «, t00=0x00af, t01=0x0146}
0x112ba…112ea Head {h00=0x002c, h01=0x0050, text=» ADKL A8,PAG:60-REL LIMIT FOR PAGE TABLE«, t00=0x00af, t01=0x016e}
0x112ea…1130e Head {h00=0x0020, h01=0x001c, text=» LDK A7,0 RESET PAGE COUNTER«, t00=0x00b0, t01=0x000e}
0x1130e…11322 Head {h00=0x0010, h01=0x000c, text=»PAG:10 EQU *«, t00=0x00b0, t01=0x0032}
0x11322…11352 Head {h00=0x002c, h01=0x0027, text=» CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? «, t00=0x00b0, t01=0x0046}
0x11352…1136c Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:30 YES!«, t00=0x00b0, t01=0x0076}
0x1136c…11394 Head {h00=0x0024, h01=0x001f, text=» LDK A1,0 RESET NUMBER OF WORDS «, t00=0x00b0, t01=0x0090}
0x11394…113a8 Head {h00=0x0010, h01=0x000c, text=»PAG:20 EQU *«, t00=0x00b0, t01=0x00b8}
0x113a8…113ce Head {h00=0x0022, h01=0x001d, text=» ADKL A11,2 INCLUDE NEXT WORD «, t00=0x00b0, t01=0x00cc}
0x113ce…11402 Head {h00=0x0030, h01=0x002b, text=» RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) «, t00=0x00b0, t01=0x00f2}
0x11402…1142a Head {h00=0x0024, h01=0x0020, text=» ADK A1,1 INCREMENT WORD COUNTER«, t00=0x00b0, t01=0x0126}
0x1142a…1144e Head {h00=0x0020, h01=0x001b, text=» CWK A1,4 4 WORDS RESERVED? «, t00=0x00b0, t01=0x014e}
0x1144e…11468 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:25 YES!«, t00=0x00b0, t01=0x0172}
0x11468…11494 Head {h00=0x0028, h01=0x0023, text=» CWR A11,A8 CHECK PROGRAM OVERWRITE «, t00=0x00b0, t01=0x018c}
0x11494…114ba Head {h00=0x0022, h01=0x001e, text=» RF(E) MEMOFL MEMORY OVERFLOW!«, t00=0x00b1, t01=0x0028}
0x114ba…114cc Head {h00=0x000e, h01=0x000a, text=» RB PAG:20«, t00=0x00b1, t01=0x004e}
0x114cc…11500 Head {h00=0x0030, h01=0x002c, text=»PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER«, t00=0x00b1, t01=0x0060}
0x11500…11512 Head {h00=0x000e, h01=0x000a, text=» RB PAG:10«, t00=0x00b1, t01=0x0094}
0x11512…11526 Head {h00=0x0010, h01=0x000c, text=»PAG:30 EQU *«, t00=0x00b1, t01=0x00a6}
0x11526…11530 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b1, t01=0x00ba}
0x11530…11568 Head {h00=0x0034, h01=0x002f, text=»* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY «, t00=0x00b1, t01=0x00c4}
0x11568…115a2 Head {h00=0x0036, h01=0x0032, text=»* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER«, t00=0x00b1, t01=0x00fc}
0x115a2…115bc Head {h00=0x0016, h01=0x0012, text=»* OF PAGE BLOCKS.«, t00=0x00b1, t01=0x0136}
0x115bc…115c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b1, t01=0x0150}
0x115c6…115d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b1, t01=0x015a}
0x115d2…115ee Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00b1, t01=0x0166}
0x115ee…1162e Head {h00=0x003c, h01=0x0037, text=» LD A1,SCTEFA GET TWO MOST SIGN BITS OF 18-BITS ADDRESS «, t00=0x00b1, t01=0x0182}
0x1162e…11666 Head {h00=0x0034, h01=0x0050, text=» SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS«, t00=0x00b2, t01=0x0032}
0x11666…1169e Head {h00=0x0034, h01=0x002f, text=» LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS «, t00=0x00b2, t01=0x006a}
0x1169e…116c8 Head {h00=0x0026, h01=0x0021, text=» SRL A2,2 SKIP TWO RIGHTMOST BITS «, t00=0x00b2, t01=0x00a2}
0x116c8…116f8 Head {h00=0x002c, h01=0x0050, text=» ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS«, t00=0x00b2, t01=0x00cc}
0x116f8…11710 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x00b2, t01=0x00fc}
0x11710…11734 Head {h00=0x0020, h01=0x001b, text=» LD A2,SCTPSZ GET PAGE SIZE «, t00=0x00b2, t01=0x0114}
0x11734…1175e Head {h00=0x0026, h01=0x0021, text=» SRL A2,2 SKIP TWO RIGHTMOST BITS «, t00=0x00b2, t01=0x0138}
0x1175e…11776 Head {h00=0x0014, h01=0x0010, text=» LDR A10,A2 SAVE«, t00=0x00b2, t01=0x0162}
0x11776…117aa Head {h00=0x0030, h01=0x002c, text=» ANKL A1,/FC00 MAKE EVEN 4K-MULTIPLE ADDRESS«, t00=0x00b2, t01=0x017a}
0x117aa…117d6 Head {h00=0x0028, h01=0x0023, text=» ANKL A2,/0300 MODIFY FOR PAGE SIZE «, t00=0x00b3, t01=0x001e}
0x117d6…117f8 Head {h00=0x001e, h01=0x0050, text=» ANR A2,A3 EVEN 1-KB LIMIT«, t00=0x00b3, t01=0x004a}
0x117f8…11824 Head {h00=0x0028, h01=0x0024, text=» ORR A1,A2 MODIFY PAGE ADDRESS LIMIT«, t00=0x00b3, t01=0x006c}
0x11824…11830 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b3, t01=0x0098}
0x11830…1184c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00b3, t01=0x00a4}
0x1184c…11874 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTEFA+2 END OF FREE AREA«, t00=0x00b3, t01=0x00c0}
0x11874…11894 Head {h00=0x001c, h01=0x0050, text=» LD A10,SCTPSZ PAGE SIZE«, t00=0x00b3, t01=0x00e8}
0x11894…118a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b3, t01=0x0108}
0x118a0…118b6 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00b3, t01=0x0114}
0x118b6…118da Head {h00=0x0020, h01=0x001c, text=» LDR A9,A1 INIT PAGE ADDRESS«, t00=0x00b3, t01=0x012a}
0x118da…118f2 Head {h00=0x0014, h01=0x000f, text=» LDR A6,A9 SAVE «, t00=0x00b3, t01=0x014e}
0x118f2…11906 Head {h00=0x0010, h01=0x0050, text=»PAG:31 EQU *«, t00=0x00b3, t01=0x0166}
0x11906…1191a Head {h00=0x0010, h01=0x0050, text=» TNM A6,A10 «, t00=0x00b3, t01=0x017a}
0x1191a…11930 Head {h00=0x0012, h01=0x0050, text=» RF(NN) PAG:32«, t00=0x00b3, t01=0x018e}
0x11930…11944 Head {h00=0x0010, h01=0x0050, text=» CWR A10,A6 «, t00=0x00b4, t01=0x0014}
0x11944…11956 Head {h00=0x000e, h01=0x0050, text=» RF PAG:33«, t00=0x00b4, t01=0x0028}
0x11956…11970 Head {h00=0x0016, h01=0x0050, text=»PAG:32 CWR A6,A10 «, t00=0x00b4, t01=0x003a}
0x11970…1198c Head {h00=0x0018, h01=0x0050, text=»PAG:33 RF(NG) PAG:40«, t00=0x00b4, t01=0x0054}
0x1198c…119bc Head {h00=0x002c, h01=0x0050, text=» SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE«, t00=0x00b4, t01=0x0070}
0x119bc…119e0 Head {h00=0x0020, h01=0x001b, text=» LDR A1,A6 GET PAGE ADDRESS «, t00=0x00b4, t01=0x00a0}
0x119e0…119fc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00b4, t01=0x00c4}
0x119fc…11a2a Head {h00=0x002a, h01=0x0026, text=» ANKL A1,/C000 ADDRESS IN SYSTEM AREA?«, t00=0x00b4, t01=0x00e0}
0x11a2a…11a46 Head {h00=0x0018, h01=0x0013, text=» RF(NZ) PAG:34 NO! «, t00=0x00b4, t01=0x010e}
0x11a46…11a78 Head {h00=0x002e, h01=0x002a, text=» LDR A1,A6 PHYSICAL ADDRESS IN SYSTEM AREA«, t00=0x00b4, t01=0x012a}
0x11a78…11aaa Head {h00=0x002e, h01=0x0029, text=» SLL A1,2 ABSOLUTE ADDRESS IN SYSTEM AREA «, t00=0x00b4, t01=0x015c}
0x11aaa…11abc Head {h00=0x000e, h01=0x000a, text=» RF PAG:36«, t00=0x00b4, t01=0x018e}
0x11abc…11ae4 Head {h00=0x0024, h01=0x0020, text=»PAG:34 LDK A1,0 END OF FREE AREA«, t00=0x00b5, t01=0x0010}
0x11ae4…11af0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b5, t01=0x0038}
0x11af0…11b06 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00b5, t01=0x0044}
0x11b06…11b30 Head {h00=0x0026, h01=0x0022, text=»PAG:36 LDK A2,0 RESET WORD COUNTER«, t00=0x00b5, t01=0x005a}
0x11b30…11b5e Head {h00=0x002a, h01=0x0025, text=»PAG:38 ADKL A11,2 RESERV ANOTHER WORD «, t00=0x00b5, t01=0x0084}
0x11b5e…11b80 Head {h00=0x001e, h01=0x0019, text=» RF(Z) PAG:40 64 KB LIMIT «, t00=0x00b5, t01=0x00b2}
0x11b80…11ba8 Head {h00=0x0024, h01=0x0020, text=» ADK A2,1 INCREMENT WORD COUNTER«, t00=0x00b5, t01=0x00d4}
0x11ba8…11bca Head {h00=0x001e, h01=0x0019, text=» CWK A2,4 BLOCK COMPLETE? «, t00=0x00b5, t01=0x00fc}
0x11bca…11be4 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:45 YES!«, t00=0x00b5, t01=0x011e}
0x11be4…11c0e Head {h00=0x0026, h01=0x0050, text=» LDR A1,A1 ADDRESS IN SYSTEM AREA?«, t00=0x00b5, t01=0x0138}
0x11c0e…11c28 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PAG:39 NO! «, t00=0x00b5, t01=0x0162}
0x11c28…11c4e Head {h00=0x0022, h01=0x0050, text=» TNM A11,A1 32-KB LIMIT CHECK «, t00=0x00b5, t01=0x017c}
0x11c4e…11c64 Head {h00=0x0012, h01=0x0050, text=» RF(NN) PAG382«, t00=0x00b6, t01=0x0012}
0x11c64…11c78 Head {h00=0x0010, h01=0x0050, text=» CWR A11,A1 «, t00=0x00b6, t01=0x0028}
0x11c78…11c8a Head {h00=0x000e, h01=0x0050, text=» RF PAG384«, t00=0x00b6, t01=0x003c}
0x11c8a…11ca4 Head {h00=0x0016, h01=0x0050, text=»PAG382 CWR A1,A11 «, t00=0x00b6, t01=0x004e}
0x11ca4…11cdc Head {h00=0x0034, h01=0x0050, text=»PAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! «, t00=0x00b6, t01=0x0068}
0x11cdc…11cf0 Head {h00=0x0010, h01=0x0050, text=»PAG:39 EQU *«, t00=0x00b6, t01=0x00a0}
0x11cf0…11d16 Head {h00=0x0022, h01=0x001d, text=» CWR A11,A8 PROGRAM OVERWRITE «, t00=0x00b6, t01=0x00b4}
0x11d16…11d30 Head {h00=0x0016, h01=0x0012, text=» RB(NE) PAG:38 NO!«, t00=0x00b6, t01=0x00da}
0x11d30…11d44 Head {h00=0x0010, h01=0x000c, text=»PAG:40 EQU *«, t00=0x00b6, t01=0x00f4}
0x11d44…11d7e Head {h00=0x0036, h01=0x0031, text=» CW A7,SCTNOP ONLY PAGES FOR CORE RESIDENT PAGES? «, t00=0x00b6, t01=0x0108}
0x11d7e…11d98 Head {h00=0x0016, h01=0x0011, text=» RF(G) PAG:50 NO! «, t00=0x00b6, t01=0x0142}
0x11d98…11dda Head {h00=0x003e, h01=0x0039, text=» CW A7,SCTNOS ONLY CORE RESIDENT SEGMENTS IN APPLICATION? «, t00=0x00b6, t01=0x015c}
0x11dda…11df4 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:50 YES!«, t00=0x00b7, t01=0x000e}
0x11df4…11e10 Head {h00=0x0018, h01=0x0013, text=»MEMOFL LDKL A1,LMP3 «, t00=0x00b7, t01=0x0028}
0x11e10…11e3e Head {h00=0x002a, h01=0x0026, text=» OTR A1,0,SOP INDICATE MEMORY OVERFLOW«, t00=0x00b7, t01=0x0044}
0x11e3e…11e58 Head {h00=0x0016, h01=0x0012, text=» HLT HALT PROGRAM«, t00=0x00b7, t01=0x0072}
0x11e58…11e88 Head {h00=0x002c, h01=0x0027, text=»PAG:45 CW A7,SCTNOS MOORE PAGES WANTED? «, t00=0x00b7, t01=0x008c}
0x11e88…11ea2 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:50 YES!«, t00=0x00b7, t01=0x00bc}
0x11ea2…11eca Head {h00=0x0024, h01=0x0020, text=» ADK A7,1 INCREMENT PAGE COUNTER«, t00=0x00b7, t01=0x00d6}
0x11eca…11eee Head {h00=0x0020, h01=0x001c, text=» LDR A9,A6 SAVE PAGE ADDRESS«, t00=0x00b7, t01=0x00fe}
0x11eee…11f00 Head {h00=0x000e, h01=0x0050, text=» RB PAG:31«, t00=0x00b7, t01=0x0122}
0x11f00…11f14 Head {h00=0x0010, h01=0x000c, text=»PAG:50 EQU *«, t00=0x00b7, t01=0x0134}
0x11f14…11f3a Head {h00=0x0022, h01=0x001e, text=» ADKL A11,2 START OF FREE AREA«, t00=0x00b7, t01=0x0148}
0x11f3a…11f58 Head {h00=0x001a, h01=0x0015, text=» ST A11,SCTSFA+2 SAVE «, t00=0x00b7, t01=0x016e}
0x11f58…11f82 Head {h00=0x0026, h01=0x0022, text=» ST A7,SCTNOP SAVE NUMBER OF PAGES«, t00=0x00b7, t01=0x018c}
0x11f82…11fae Head {h00=0x0028, h01=0x0024, text=» LDR A1,A9 GET ADDRESS TO FIRST PAGE«, t00=0x00b8, t01=0x0026}
0x11fae…11fc6 Head {h00=0x0014, h01=0x000f, text=» LDR A2,A1 SAVE «, t00=0x00b8, t01=0x0052}
0x11fc6…11fd2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b8, t01=0x006a}
0x11fd2…11fee Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00b8, t01=0x0076}
0x11fee…1201c Head {h00=0x002a, h01=0x0050, text=» SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS «, t00=0x00b8, t01=0x0092}
0x1201c…12036 Head {h00=0x0016, h01=0x0012, text=» ST A1,SCTEFA SAVE«, t00=0x00b8, t01=0x00c0}
0x12036…12068 Head {h00=0x002e, h01=0x002a, text=» SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS«, t00=0x00b8, t01=0x00da}
0x12068…12074 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b8, t01=0x010c}
0x12074…1208a Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00b8, t01=0x0118}
0x1208a…120a6 Head {h00=0x0018, h01=0x0014, text=» ST A2,SCTEFA+2 SAVE«, t00=0x00b8, t01=0x012e}
0x120a6…120b0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b8, t01=0x014a}
0x120b0…120ee Head {h00=0x003a, h01=0x0035, text=»* INITIATE PAGE BLOCK FOR CORE RESIDENT SEGMENTS AND «, t00=0x00b8, t01=0x0154}
0x120ee…12124 (185, 0, 400) Head {h00=0x0032, h01=0x002d, text=»* STORE PAGE BLOCK ADDRESS IN SEGMENT BLOCKS «, t00=0x00b9, t01=0x0004}
0x12124…1212e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b9, t01=0x003a}
0x1212e…12140 Head {h00=0x000e, h01=0x0009, text=» LDK A1,0 «, t00=0x00b9, t01=0x0044}
0x12140…12184 Head {h00=0x0040, h01=0x003b, text=» LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. «, t00=0x00b9, t01=0x0056}
0x12184…121b2 Head {h00=0x002a, h01=0x0025, text=» LD A11,SCTSEG START OF SEGMENT TABLE «, t00=0x00b9, t01=0x009a}
0x121b2…121e2 Head {h00=0x002c, h01=0x0028, text=» LDK A4,0 RESET RESIDENT SEGMENT COUNTER«, t00=0x00b9, t01=0x00c8}
0x121e2…1220c Head {h00=0x0026, h01=0x0022, text=» LD A12,SCTPAG START OF PAGE TABLE«, t00=0x00b9, t01=0x00f8}
0x1220c…12234 Head {h00=0x0024, h01=0x0020, text=» LD A6,SCTNOS NUMBER OF SEGMENTS«, t00=0x00b9, t01=0x0122}
0x12234…12248 Head {h00=0x0010, h01=0x0050, text=»PAG:60 EQU *«, t00=0x00b9, t01=0x014a}
0x12248…1226e Head {h00=0x0022, h01=0x001e, text=» ADKL A11,8 NEXT SEGMENT BLOCK«, t00=0x00b9, t01=0x015e}
0x1226e…1228e Head {h00=0x001c, h01=0x0017, text=» LDR* A2,A11 GET STATUS «, t00=0x00b9, t01=0x0184}
0x1228e…122c0 Head {h00=0x002e, h01=0x0029, text=» RF(NN) PAG:65 SEGMENT NOT LOADED IN CORE «, t00=0x00ba, t01=0x0014}
0x122c0…122ee Head {h00=0x002a, h01=0x0026, text=» ST A12,6,A11 STORE PAGE BLOCK ADDRESS«, t00=0x00ba, t01=0x0046}
0x122ee…1231e Head {h00=0x002c, h01=0x0027, text=» STR A1,A12 RESET QUEUE POINTER FORWARD «, t00=0x00ba, t01=0x0074}
0x1231e…12350 Head {h00=0x002e, h01=0x0029, text=» ST A1,2,A12 RESET QUEUE POINTER BACKWARD «, t00=0x00ba, t01=0x00a4}
0x12350…12378 Head {h00=0x0024, h01=0x001f, text=» ST A8,4,A12 STORE PAGE ADDRESS «, t00=0x00ba, t01=0x00d6}
0x12378…123aa Head {h00=0x002e, h01=0x0029, text=» ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS «, t00=0x00ba, t01=0x00fe}
0x123aa…123de Head {h00=0x0030, h01=0x002c, text=» ADK A4,1 INCREMENT RESIDENT SEGMENT COUNTER«, t00=0x00ba, t01=0x0130}
0x123de…12408 Head {h00=0x0026, h01=0x0021, text=» ADR A8,A10 ADDRESS TO NEXT PAGE «, t00=0x00ba, t01=0x0164}
0x12408…1242c Head {h00=0x0020, h01=0x001b, text=» ADKL A12,8 NEXT PAGE BLOCK «, t00=0x00ba, t01=0x018e}
0x1242c…12464 Head {h00=0x0034, h01=0x002f, text=»PAG:65 SUK A6,1 DECREMENT SEGMENT BLOCK COUNTER «, t00=0x00bb, t01=0x0022}
0x12464…1247a Head {h00=0x0012, h01=0x000d, text=» RB(P) PAG:60 «, t00=0x00bb, t01=0x005a}
0x1247a…12484 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00bb, t01=0x0070}
0x12484…124c4 Head {h00=0x003c, h01=0x0038, text=»* INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE«, t00=0x00bb, t01=0x007a}
0x124c4…124ce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00bb, t01=0x00ba}
0x124ce…124f2 Head {h00=0x0020, h01=0x001b, text=» CWR A4,A7 ANY FREE BLOCKS? «, t00=0x00bb, t01=0x00c4}
0x124f2…1250c Head {h00=0x0016, h01=0x0050, text=» RF(E) PAG:90 NO! «, t00=0x00bb, t01=0x00e8}
0x1250c…12544 Head {h00=0x0034, h01=0x002f, text=» ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK «, t00=0x00bb, t01=0x0102}
0x12544…1256e Head {h00=0x0026, h01=0x0022, text=» LDKL A11,PAGQUE POINTER TO PAGQUE«, t00=0x00bb, t01=0x013a}
0x1256e…125a2 Head {h00=0x0030, h01=0x002c, text=» LDR A1,A12 SAVE ADDRESS TO FIRST PAGE BLOCK«, t00=0x00bb, t01=0x0164}
0x125a2…125b4 Head {h00=0x000e, h01=0x0009, text=» LDK A2,0 «, t00=0x00bc, t01=0x0008}
0x125b4…125e6 Head {h00=0x002e, h01=0x002a, text=»PAG:70 ST A11,2,A12 STORE BACKWARD POINTER«, t00=0x00bc, t01=0x001a}
0x125e6…1260e Head {h00=0x0024, h01=0x001f, text=» ST A9,4,A12 STORE PAGE ADDRESS «, t00=0x00bc, t01=0x004c}
0x1260e…12636 Head {h00=0x0024, h01=0x001f, text=» ST A2,6,A12 INDICATE PAGE FREE «, t00=0x00bc, t01=0x0074}
0x12636…12664 Head {h00=0x002a, h01=0x0026, text=» ADK A4,1 INCREMENT PAGE BLOCK COUNTER«, t00=0x00bc, t01=0x009c}
0x12664…12688 Head {h00=0x0020, h01=0x001b, text=» CWR A4,A7 LAST PAGE BLOCK? «, t00=0x00bc, t01=0x00ca}
0x12688…126a2 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:80 YES!«, t00=0x00bc, t01=0x00ee}
0x126a2…126d2 Head {h00=0x002c, h01=0x0027, text=» LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK «, t00=0x00bc, t01=0x0108}
0x126d2…126fe Head {h00=0x0028, h01=0x0024, text=» ADK A1,8 ADDRESS TO NEXT PAGE BLOCK«, t00=0x00bc, t01=0x0138}
0x126fe…12728 Head {h00=0x0026, h01=0x0021, text=» STR A1,A12 STORE FORWARD POINTER «, t00=0x00bc, t01=0x0164}
0x12728…1274c Head {h00=0x0020, h01=0x001b, text=» LDR A12,A1 NEXT PAGE BLOCK «, t00=0x00bc, t01=0x018e}
0x1274c…1276a Head {h00=0x001a, h01=0x0015, text=» ADR A9,A10 NEXT PAGE «, t00=0x00bd, t01=0x0022}
0x1276a…1277c Head {h00=0x000e, h01=0x000a, text=» RB PAG:70«, t00=0x00bd, t01=0x0040}
0x1277c…12790 Head {h00=0x0010, h01=0x000c, text=»PAG:80 EQU *«, t00=0x00bd, t01=0x0052}
0x12790…127ba Head {h00=0x0026, h01=0x0021, text=» LDKL A1,PAGQUE POINTER TO PAGQUE «, t00=0x00bd, t01=0x0066}
0x127ba…127e2 Head {h00=0x0024, h01=0x001f, text=» STR A1,A12 STORE IN LAST BLOCK «, t00=0x00bd, t01=0x0090}
0x127e2…1280c Head {h00=0x0026, h01=0x0022, text=» ST A12,PAGQUE+2 STORE IN PAGQUE+2«, t00=0x00bd, t01=0x00b8}
0x1280c…12820 Head {h00=0x0010, h01=0x0050, text=»PAG:90 EQU *«, t00=0x00bd, t01=0x00e2}
0x12820…12838 Head {h00=0x0014, h01=0x0050, text=»PAGEX EQU *-REL «, t00=0x00bd, t01=0x00f6}
0x12838…12846 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bd, t01=0x010e}
0x12846…12852 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x011c}
0x12852…1285a Head {h00=0x0004, h01=0x0050, t00=0x00bd, t01=0x0128}
0x1285a…12862 Head {h00=0x0004, h01=0x0050, t00=0x00bd, t01=0x0130}
0x12862…12882 Head {h00=0x001c, h01=0x0050, text=»* START BUGGER (IF ANY) «, t00=0x00bd, t01=0x0138}
0x12882…1288a Head {h00=0x0004, h01=0x0050, t00=0x00bd, t01=0x0158}
0x1288a…12892 Head {h00=0x0004, h01=0x0050, t00=0x00bd, t01=0x0160}
0x12892…128b2 Head {h00=0x001c, h01=0x0050, text=»* GET APPLICATION START «, t00=0x00bd, t01=0x0168}
0x128b2…128c8 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x00bd, t01=0x0188}
0x128c8…128f8 Head {h00=0x002c, h01=0x0050, text=» LD A14,SCTLAC TRUE START OF APPLICATION«, t00=0x00be, t01=0x000e}
0x128f8…12904 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00be, t01=0x003e}
0x12904…12912 Head {h00=0x000a, h01=0x0050, text=» =6«, t00=0x00be, t01=0x004a}
0x12912…12920 Head {h00=0x000a, h01=0x0050, text=» =6«, t00=0x00be, t01=0x0058}
0x12920…1292e Head {h00=0x000a, h01=0x0050, text=» =6«, t00=0x00be, t01=0x0066}
0x1292e…12950 Head {h00=0x001e, h01=0x0050, text=» SUKL A14,8 ADJUST FOR MAP«, t00=0x00be, t01=0x0074}
0x12950…1297e Head {h00=0x002a, h01=0x0050, text=» ADKL A13,SYA360 CONTINUATION ADDRESS «, t00=0x00be, t01=0x0096}
0x1297e…129a6 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE SYSLOAD ENDED«, t00=0x00be, t01=0x00c4}
0x129a6…129bc Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x00be, t01=0x00ec}
0x129bc…129e4 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTBUG GET BUGGER ADDRESS«, t00=0x00be, t01=0x0102}
0x129e4…129f8 Head {h00=0x0010, h01=0x0050, text=» ABR(NZ) A1 «, t00=0x00be, t01=0x012a}
0x129f8…12a00 Head {h00=0x0004, h01=0x0050, t00=0x00be, t01=0x013e}
0x12a00…12a18 Head {h00=0x0014, h01=0x0050, text=»SYA360 EQU *-REL«, t00=0x00be, t01=0x0146}
0x12a18…12a2a Head {h00=0x000e, h01=0x0050, text=» LDR A13,P«, t00=0x00be, t01=0x015e}
0x12a2a…12a42 Head {h00=0x0014, h01=0x0050, text=»SYA370 EQU *-REL«, t00=0x00be, t01=0x0170}
0x12a42…12a76 Head {h00=0x0030, h01=0x0050, text=» SUKL A13,SYA370 RESTORE PROGRAM BASE OINTER«, t00=0x00be, t01=0x0188}
0x12a76…12a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x002c}
0x12a80…12a9a Head {h00=0x0016, h01=0x0050, text=»* INIT A15 STACK «, t00=0x00bf, t01=0x0036}
0x12a9a…12aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0050}
0x12aa4…12aba Head {h00=0x0012, h01=0x0050, text=» LD A15,SCTSTB«, t00=0x00bf, t01=0x005a}
0x12aba…12ace Head {h00=0x0010, h01=0x0050, text=» SUKL A15,4 «, t00=0x00bf, t01=0x0070}
0x12ace…12ad6 Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0084}
0x12ad6…12af2 Head {h00=0x0018, h01=0x0050, text=»* START APPLICATION «, t00=0x00bf, t01=0x008c}
0x12af2…12afa Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x00a8}
0x12afa…12b2c Head {h00=0x002e, h01=0x0050, text=» LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC«, t00=0x00bf, t01=0x00b0}
0x12b2c…12b4a Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVRTC,A13 SAVE«, t00=0x00bf, t01=0x00e2}
0x12b4a…12b82 Head {h00=0x0034, h01=0x0050, text=» LDKL A1,IHRTCO LOAD TEMPORARY INTERRUPT ADDRESS«, t00=0x00bf, t01=0x0100}
0x12b82…12b9e Head {h00=0x0018, h01=0x0050, text=» ADR A1,A13 RELOCATE«, t00=0x00bf, t01=0x0138}
0x12b9e…12bcc Head {h00=0x002a, h01=0x0050, text=» ST A1,IHRTC STORE IN INTERRUPT VECTOR«, t00=0x00bf, t01=0x0154}
0x12bcc…12bf6 Head {h00=0x0026, h01=0x0050, text=» CF A15,PFINIT INITIALIZE DEVICES «, t00=0x00bf, t01=0x0182}
0x12bf6…12c1a Head {h00=0x0020, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS«, t00=0x00c0, t01=0x001c}
0x12c1a…12c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x0040}
0x12c24…12c6e Head {h00=0x0046, h01=0x0050, text=»* WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER «, t00=0x00c0, t01=0x004a}
0x12c6e…12c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x0094}
0x12c78…12c9a Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/FFFF SET COUNTER«, t00=0x00c0, t01=0x009e}
0x12c9a…12cb2 Head {h00=0x0014, h01=0x0050, text=»DELAY SRC A2,31 «, t00=0x00c0, t01=0x00c0}
0x12cb2…12cc4 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00c0, t01=0x00d8}
0x12cc4…12cda Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DELAY «, t00=0x00c0, t01=0x00ea}
0x12cda…12ce6 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00c0, t01=0x0100}
0x12ce6…12d12 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,0 GET RTC INTERRUPT ADDRESS«, t00=0x00c0, t01=0x010c}
0x12d12…12d2c Head {h00=0x0016, h01=0x0050, text=»SAVRTC EQU *-REL-2«, t00=0x00c0, t01=0x0138}
0x12d2c…12d48 Head {h00=0x0018, h01=0x0050, text=» ST A1,IHRTC RESTORE«, t00=0x00c0, t01=0x0152}
0x12d48…12d70 Head {h00=0x0024, h01=0x0050, text=» ABL TDISP BRANCH TO DISPATCHER «, t00=0x00c0, t01=0x016e}
0x12d70…12d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x0008}
0x12d7a…12da8 Head {h00=0x002a, h01=0x0050, text=»* TEMPORARY INTERRUPT ROUTINE FOR RTC«, t00=0x00c1, t01=0x0012}
0x12da8…12db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x0040}
0x12db2…12dca Head {h00=0x0014, h01=0x0050, text=»IHRTCO EQU *-REL«, t00=0x00c1, t01=0x004a}
0x12dca…12ddc Head {h00=0x000e, h01=0x0050, text=» RIT RTCDA«, t00=0x00c1, t01=0x0062}
0x12ddc…12dec Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x00c1, t01=0x0074}
0x12dec…12e02 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00c1, t01=0x0084}
0x12e02…12e10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c1, t01=0x009a}
0x12e10…12e1c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c1, t01=0x00a8}
0x12e1c…12e56 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c1, t01=0x00b4}
0x12e56…12e90 Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x00c1, t01=0x00ee}
0x12e90…12eca Head {h00=0x0036, h01=0x0050, text=»** SYSLOAD PART 2.A ** «, t00=0x00c1, t01=0x0128}
0x12eca…12f04 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c1, t01=0x0162}
0x12f04…12f3e Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c2, t01=0x000c}
0x12f3e…12f46 Head {h00=0x0004, h01=0x0050, t00=0x00c2, t01=0x0046}
0x12f46…12f80 Head {h00=0x0036, h01=0x0050, text=»* BUILD COMMON AND TASKCLASS DATA AREAS. * «, t00=0x00c2, t01=0x004e}
0x12f80…12fba Head {h00=0x0036, h01=0x0050, text=»* BUILD TASKDATA PROTOTYPE AREA * «, t00=0x00c2, t01=0x0088}
0x12fba…12ff4 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x00c2, t01=0x00c2}
0x12ff4…1302e Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c2, t01=0x00fc}
0x1302e…13036 Head {h00=0x0004, h01=0x0050, t00=0x00c2, t01=0x0136}
0x13036…1304e Head {h00=0x0014, h01=0x0050, text=»PART2A EQU *-REL«, t00=0x00c2, t01=0x013e}
0x1304e…13056 Head {h00=0x0004, h01=0x0050, t00=0x00c2, t01=0x0156}
0x13056…1308a Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00c2, t01=0x015e}
0x1308a…130be (195, 0, 400) Head {h00=0x0030, h01=0x0050, text=»*** ***«, t00=0x00c3, t01=0x0004}
0x130be…130f2 Head {h00=0x0030, h01=0x0050, text=»** S U B R O U T I N E S **«, t00=0x00c3, t01=0x0038}
0x130f2…13126 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00c3, t01=0x006c}
0x13126…1312e Head {h00=0x0004, h01=0x0050, t00=0x00c3, t01=0x00a0}
0x1312e…1313a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c3, t01=0x00a8}
0x1313a…13172 Head {h00=0x0034, h01=0x0050, text=»** T : D A D D **«, t00=0x00c3, t01=0x00b4}
0x13172…131aa Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00c3, t01=0x00ec}
0x131aa…131e2 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00c3, t01=0x0124}
0x131e2…1321a Head {h00=0x0034, h01=0x0050, text=»** GET T:D - ADDRESS **«, t00=0x00c3, t01=0x015c}
0x1321a…13252 (196, 0, 398) Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00c4, t01=0x0004}
0x13252…1328a Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=POINTER TO T:A (IN T:ATAB) **«, t00=0x00c4, t01=0x003c}
0x1328a…132c2 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A12=T:D ADDRESS **«, t00=0x00c4, t01=0x0074}
0x132c2…132fa Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00c4, t01=0x00ac}
0x132fa…1330e Head {h00=0x0010, h01=0x0050, text=»T:DADD EQU *«, t00=0x00c4, t01=0x00e4}
0x1330e…1332a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00c4, t01=0x00f8}
0x1332a…1334a Head {h00=0x001c, h01=0x0050, text=» LDR* A12,A8 T:A ADDRESS«, t00=0x00c4, t01=0x0114}
0x1334a…13364 Head {h00=0x0016, h01=0x0050, text=» LD A12,T:DAD,A12 «, t00=0x00c4, t01=0x0134}
0x13364…13370 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c4, t01=0x014e}
0x13370…1338c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00c4, t01=0x015a}
0x1338c…133ac Head {h00=0x001c, h01=0x0050, text=» ELR A12,A8 T:A ADDRESS «, t00=0x00c4, t01=0x0176}
0x133ac…133c6 Head {h00=0x0016, h01=0x0050, text=» EL A12,T:DAD,A12 «, t00=0x00c5, t01=0x0008}
0x133c6…133d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c5, t01=0x0022}
0x133d2…133e8 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00c5, t01=0x002e}
0x133e8…1340c Head {h00=0x0020, h01=0x0050, text=» AD A12,MOVADD,A13 RELOCATE «, t00=0x00c5, t01=0x0044}
0x1340c…1341c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c5, t01=0x0068}
0x1341c…1342a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c5, t01=0x0078}
0x1342a…13436 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c5, t01=0x0086}
0x13436…13442 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c5, t01=0x0092}
0x13442…1347c Head {h00=0x0036, h01=0x0050, text=»** M O V C O M ** «, t00=0x00c5, t01=0x009e}
0x1347c…134b6 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c5, t01=0x00d8}
0x134b6…134f0 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c5, t01=0x0112}
0x134f0…1352a Head {h00=0x0036, h01=0x0050, text=»** SEARCH T:A'S FOR COMMON WORK BLOCKS THAT ** «, t00=0x00c5, t01=0x014c}
0x1352a…13564 Head {h00=0x0036, h01=0x0050, text=»** ARE COMMON TO AT LEAST TWO T:A'S, AND MOVE ** «, t00=0x00c5, t01=0x0186}
0x13564…1359e Head {h00=0x0036, h01=0x0050, text=»** TO COMMON AREA ** «, t00=0x00c6, t01=0x0030}
0x1359e…135d8 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c6, t01=0x006a}
0x135d8…13612 Head {h00=0x0036, h01=0x0050, text=»** INPUT : A8=POINTER IN T:ATAB ** «, t00=0x00c6, t01=0x00a4}
0x13612…1364c Head {h00=0x0036, h01=0x0050, text=»** BIT=BIT NUMBER, SAT IN MASK ** «, t00=0x00c6, t01=0x00de}
0x1364c…13686 Head {h00=0x0036, h01=0x0050, text=»** ENDADD=ENDADDRESS OF T:ATAB ** «, t00=0x00c6, t01=0x0118}
0x13686…136c0 Head {h00=0x0036, h01=0x0050, text=»** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** «, t00=0x00c6, t01=0x0152}
0x136c0…136fa Head {h00=0x0036, h01=0x0050, text=»** WORK.REGS: A1-A6,A9,A11,A12 ** «, t00=0x00c6, t01=0x018c}
0x136fa…13734 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c7, t01=0x0036}
0x13734…13740 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c7, t01=0x0070}
0x13740…13754 Head {h00=0x0010, h01=0x0050, text=»MOVCOM EQU *«, t00=0x00c7, t01=0x007c}
0x13754…1377e Head {h00=0x0026, h01=0x0050, text=» CALL CHKMVD BLOCK ALREADY MOVED? «, t00=0x00c7, t01=0x0090}
0x1377e…13798 Head {h00=0x0016, h01=0x0050, text=» RF(N) MOVC20 YES!«, t00=0x00c7, t01=0x00ba}
0x13798…137d6 Head {h00=0x003a, h01=0x0050, text=» CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL «, t00=0x00c7, t01=0x00d4}
0x137d6…13802 Head {h00=0x0028, h01=0x0050, text=» ST A11,SAVE06,A13 SAVE W.B.-ADDRESS«, t00=0x00c7, t01=0x0112}
0x13802…1382e Head {h00=0x0028, h01=0x0050, text=» CM MOVED,A13 CLEAR MOVED INDICATOR «, t00=0x00c7, t01=0x013e}
0x1382e…13840 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x00c7, t01=0x016a}
0x13840…13860 Head {h00=0x001c, h01=0x0050, text=»MOVC10 ADK A6,2 NEXT T:A«, t00=0x00c7, t01=0x017c}
0x13860…13884 Head {h00=0x0020, h01=0x0050, text=» CW A6,ENDADD,A13 ALL DONE? «, t00=0x00c8, t01=0x000c}
0x13884…1389e Head {h00=0x0016, h01=0x0050, text=» RF(NE) MOVC30 NO «, t00=0x00c8, t01=0x0030}
0x1389e…138ba Head {h00=0x0018, h01=0x0050, text=»MOVC20 RTN A14 YES! «, t00=0x00c8, t01=0x004a}
0x138ba…138d6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00c8, t01=0x0066}
0x138d6…138f0 Head {h00=0x0016, h01=0x0050, text=»MOVC30 LDR* A11,A6«, t00=0x00c8, t01=0x0082}
0x138f0…13914 Head {h00=0x0020, h01=0x0050, text=» LD A2,T:DAD,A11 T:D-ADDRESS«, t00=0x00c8, t01=0x009c}
0x13914…13936 Head {h00=0x001e, h01=0x0050, text=» AD A2,MOVADD,A13 RELOCATE«, t00=0x00c8, t01=0x00c0}
0x13936…13954 Head {h00=0x001a, h01=0x0050, text=» ST A2,SAVE03,A13 SAVE«, t00=0x00c8, t01=0x00e2}
0x13954…13984 Head {h00=0x002c, h01=0x0050, text=» LD A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS «, t00=0x00c8, t01=0x0100}
0x13984…139a4 Head {h00=0x001c, h01=0x0050, text=» CW A2,BIT,A13 ENOUGHT? «, t00=0x00c8, t01=0x0130}
0x139a4…139de Head {h00=0x0036, h01=0x0050, text=» RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A «, t00=0x00c8, t01=0x0150}
0x139de…13a10 Head {h00=0x002e, h01=0x0050, text=» AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE«, t00=0x00c8, t01=0x018a}
0x13a10…13a26 Head {h00=0x0012, h01=0x0050, text=» LDR* A11,A11 «, t00=0x00c9, t01=0x002c}
0x13a26…13a58 Head {h00=0x002e, h01=0x0050, text=» CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES «, t00=0x00c9, t01=0x0042}
0x13a58…13a64 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c9, t01=0x0074}
0x13a64…13a80 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00c9, t01=0x0080}
0x13a80…13a9a Head {h00=0x0016, h01=0x0050, text=»MOVC30 ELR A11,A6 «, t00=0x00c9, t01=0x009c}
0x13a9a…13abe Head {h00=0x0020, h01=0x0050, text=» EL A2,T:DAD,A11 T:D-ADDRESS«, t00=0x00c9, t01=0x00b6}
0x13abe…13ae0 Head {h00=0x001e, h01=0x0050, text=» AD A2,MOVADD,A13 RELOCATE«, t00=0x00c9, t01=0x00da}
0x13ae0…13b14 Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE03,A13 SAVE T:D-ADDRESS TEMPORARY«, t00=0x00c9, t01=0x00fc}
0x13b14…13b44 Head {h00=0x002c, h01=0x0050, text=» EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS «, t00=0x00c9, t01=0x0130}
0x13b44…13b64 Head {h00=0x001c, h01=0x0050, text=» CW A2,BIT,A13 ENOUGHT? «, t00=0x00c9, t01=0x0160}
0x13b64…13b9e Head {h00=0x0036, h01=0x0050, text=» RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A «, t00=0x00c9, t01=0x0180}
0x13b9e…13bd0 Head {h00=0x002e, h01=0x0050, text=» AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE«, t00=0x00ca, t01=0x002a}
0x13bd0…13be4 Head {h00=0x0010, h01=0x0050, text=» ELR A11,A11«, t00=0x00ca, t01=0x005c}
0x13be4…13c16 Head {h00=0x002e, h01=0x0050, text=» CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES «, t00=0x00ca, t01=0x0070}
0x13c16…13c22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ca, t01=0x00a2}
0x13c22…13c38 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ca, t01=0x00ae}
0x13c38…13c54 Head {h00=0x0018, h01=0x0050, text=» RB(NE) MOVC10 .NEQ.«, t00=0x00ca, t01=0x00c4}
0x13c54…13c80 Head {h00=0x0028, h01=0x0050, text=» LD A9,MOVED,A13 W.B. ALREADY MOVED?«, t00=0x00ca, t01=0x00e0}
0x13c80…13cb2 Head {h00=0x002e, h01=0x0050, text=» RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY «, t00=0x00ca, t01=0x010c}
0x13cb2…13cdc Head {h00=0x0026, h01=0x0050, text=» CALL MOVDT MOVE DESCRIPTOR-TABLE «, t00=0x00ca, t01=0x013e}
0x13cdc…13d06 Head {h00=0x0026, h01=0x0050, text=» ST A2,NEWAD1,A13 SAVE D.T.-ADRESS«, t00=0x00ca, t01=0x0168}
0x13d06…13d28 (203, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CALL MOVWB MOV WORK BLOCK«, t00=0x00cb, t01=0x0004}
0x13d28…13d4c Head {h00=0x0020, h01=0x0050, text=» IM MOVED,A13 INDICATE MOVED«, t00=0x00cb, t01=0x0026}
0x13d4c…13d6e Head {h00=0x001e, h01=0x0050, text=» LD A4,UWB,A13 UWB-BLOCKS?«, t00=0x00cb, t01=0x004a}
0x13d6e…13d88 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVC40 NO! «, t00=0x00cb, t01=0x006c}
0x13d88…13dae Head {h00=0x0022, h01=0x0050, text=» CALL GETPRO CREATE REAL UWB'S«, t00=0x00cb, t01=0x0086}
0x13dae…13de6 Head {h00=0x0034, h01=0x0050, text=»MOVC40 ST A2,NEWAD2,A13 SAVE NEW ADDRESS TO W.B.«, t00=0x00cb, t01=0x00ac}
0x13de6…13dfa Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00cb, t01=0x00e4}
0x13dfa…13e24 Head {h00=0x0026, h01=0x0050, text=»MOVC50 CALL CHADR CHANGE ADDRESSES«, t00=0x00cb, t01=0x00f8}
0x13e24…13e56 Head {h00=0x002e, h01=0x0050, text=» CALL ICBMVD INDICATE CURRENT BLOCK MOVED «, t00=0x00cb, t01=0x0122}
0x13e56…13e7a Head {h00=0x0020, h01=0x0050, text=» LDR A11,A8 SAVE T:A-POINTER«, t00=0x00cb, t01=0x0154}
0x13e7a…13ea6 Head {h00=0x0028, h01=0x0050, text=» ST A12,SAVE25,A13 SAVE T:A-ADDRESS «, t00=0x00cb, t01=0x0178}
0x13ea6…13ed0 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A6 REPLACE POINTER TO T:A «, t00=0x00cc, t01=0x0014}
0x13ed0…13efe Head {h00=0x002a, h01=0x0050, text=» LD A12,SAVE03,A13 REPLACE T:D-ADDRESS«, t00=0x00cc, t01=0x003e}
0x13efe…13f12 Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00cc, t01=0x006c}
0x13f12…13f26 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A11 «, t00=0x00cc, t01=0x0080}
0x13f26…13f54 Head {h00=0x002a, h01=0x0050, text=» LD A12,SAVE25,A13 RELOAD T:D-ADDRESS «, t00=0x00cc, t01=0x0094}
0x13f54…13f66 Head {h00=0x000e, h01=0x0050, text=» RB MOVC10«, t00=0x00cc, t01=0x00c2}
0x13f66…13f74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00cc, t01=0x00d4}
0x13f74…13f80 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00cc, t01=0x00e2}
0x13f80…13f8c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00cc, t01=0x00ee}
0x13f8c…13fc4 Head {h00=0x0034, h01=0x0050, text=»** G E T P R O **«, t00=0x00cc, t01=0x00fa}
0x13fc4…13ffc Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00cc, t01=0x0132}
0x13ffc…14034 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00cc, t01=0x016a}
0x14034…1406c Head {h00=0x0034, h01=0x0050, text=»** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF **«, t00=0x00cd, t01=0x0012}
0x1406c…140a4 Head {h00=0x0034, h01=0x0050, text=»** COPIES. FILL REAL U:BTAB **«, t00=0x00cd, t01=0x004a}
0x140a4…140dc Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00cd, t01=0x0082}
0x140dc…14114 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A11=PROTOTYPE ADDRESS **«, t00=0x00cd, t01=0x00ba}
0x14114…1414c Head {h00=0x0034, h01=0x0050, text=»** A2=LAST W.B. - ADDRESS **«, t00=0x00cd, t01=0x00f2}
0x1414c…14184 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A2=NEW ADDRESS **«, t00=0x00cd, t01=0x012a}
0x14184…141bc Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS: A1-A5,A9 **«, t00=0x00cd, t01=0x0162}
0x141bc…141f4 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00ce, t01=0x000a}
0x141f4…14200 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00ce, t01=0x0042}
0x14200…14214 Head {h00=0x0010, h01=0x0050, text=»GETPRO EQU *«, t00=0x00ce, t01=0x004e}
0x14214…14240 Head {h00=0x0028, h01=0x0050, text=» LD A3,U:BTOD,A13 GET U:BTAB ADDRESS«, t00=0x00ce, t01=0x0062}
0x14240…1425c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ce, t01=0x008e}
0x1425c…14276 Head {h00=0x0016, h01=0x0050, text=» LDR* A4,A3 LENGTH«, t00=0x00ce, t01=0x00aa}
0x14276…1428a Head {h00=0x0010, h01=0x0050, text=»GETP10 EQU *«, t00=0x00ce, t01=0x00c4}
0x1428a…142c4 Head {h00=0x0036, h01=0x0050, text=» SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH «, t00=0x00ce, t01=0x00d8}
0x142c4…142da Head {h00=0x0012, h01=0x0050, text=» RF(NN) GETP20«, t00=0x00ce, t01=0x0112}
0x142da…142fe Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP6 W.B. NOT FOUND!«, t00=0x00ce, t01=0x0128}
0x142fe…14312 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00ce, t01=0x014c}
0x14312…14326 Head {h00=0x0010, h01=0x0050, text=»GETP20 EQU *«, t00=0x00ce, t01=0x0160}
0x14326…1434a Head {h00=0x0020, h01=0x0050, text=» CW A11,UPADDR,A3 SAME W.B.?«, t00=0x00ce, t01=0x0174}
0x1434a…1437a Head {h00=0x002c, h01=0x0050, text=» RF(E) GETP30 YES! GET NUMBER OF COPIES «, t00=0x00cf, t01=0x0008}
0x1437a…14396 Head {h00=0x0018, h01=0x0050, text=» ADK A3,UP:REC NEXT «, t00=0x00cf, t01=0x0038}
0x14396…143a8 Head {h00=0x000e, h01=0x0050, text=» RB GETP10«, t00=0x00cf, t01=0x0054}
0x143a8…143b4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00cf, t01=0x0066}
0x143b4…143e8 Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF COPIES *«, t00=0x00cf, t01=0x0072}
0x143e8…1441c Head {h00=0x0030, h01=0x0050, text=»* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *«, t00=0x00cf, t01=0x00a6}
0x1441c…14424 Head {h00=0x0004, h01=0x0050, t00=0x00cf, t01=0x00da}
0x14424…14438 Head {h00=0x0010, h01=0x0050, text=»GETP30 EQU *«, t00=0x00cf, t01=0x00e2}
0x14438…1445c Head {h00=0x0020, h01=0x0050, text=» LD A4,WBLEN,A11 W.B.-LENGTH«, t00=0x00cf, t01=0x00f6}
0x1445c…1448a Head {h00=0x002a, h01=0x0050, text=» LC A5,UPNUMB,A3 GET NUMBER OF COPIES «, t00=0x00cf, t01=0x011a}
0x1448a…1449e Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x00cf, t01=0x0148}
0x1449e…144ce Head {h00=0x002c, h01=0x0050, text=» SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT«, t00=0x00cf, t01=0x015c}
0x144ce…14500 Head {h00=0x002e, h01=0x0050, text=» AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS«, t00=0x00cf, t01=0x018c}
0x14500…14512 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x00d0, t01=0x002e}
0x14512…14538 Head {h00=0x0022, h01=0x0050, text=» ST A4,URLENG,A9 STORE LENGTH «, t00=0x00d0, t01=0x0040}
0x14538…14566 Head {h00=0x002a, h01=0x0050, text=» ST A5,URNUMB,A9 STORE IN REAL U:BTAB «, t00=0x00d0, t01=0x0066}
0x14566…1459a Head {h00=0x0030, h01=0x0050, text=»* COPY NUMBER OF WORKBLOCKS TO COMMON AREA *«, t00=0x00d0, t01=0x0094}
0x1459a…145ce Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d0, t01=0x00c8}
0x145ce…14600 Head {h00=0x002e, h01=0x0050, text=» SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') «, t00=0x00d0, t01=0x00fc}
0x14600…14616 Head {h00=0x0012, h01=0x0050, text=» RF(NP) GETP50«, t00=0x00d0, t01=0x012e}
0x14616…14630 Head {h00=0x0016, h01=0x0050, text=»GETP40 CALL MOVWB «, t00=0x00d0, t01=0x0144}
0x14630…14642 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x00d0, t01=0x015e}
0x14642…14658 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) GETP40«, t00=0x00d0, t01=0x0170}
0x14658…14664 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d0, t01=0x0186}
0x14664…1468e (209, 0, 400) Head {h00=0x0026, h01=0x0050, text=»* UPDATE POINTER IN REAL U:BTAB * «, t00=0x00d1, t01=0x0004}
0x1468e…146b8 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00d1, t01=0x002e}
0x146b8…146cc Head {h00=0x0010, h01=0x0050, text=»GETP50 EQU *«, t00=0x00d1, t01=0x0058}
0x146cc…14706 Head {h00=0x0036, h01=0x0050, text=» ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB «, t00=0x00d1, t01=0x006c}
0x14706…14712 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d1, t01=0x00a6}
0x14712…1472e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00d1, t01=0x00b2}
0x1472e…14748 Head {h00=0x0016, h01=0x0050, text=» ELR A4,A3 LENGTH «, t00=0x00d1, t01=0x00ce}
0x14748…1475c Head {h00=0x0010, h01=0x0050, text=»GETP10 EQU *«, t00=0x00d1, t01=0x00e8}
0x1475c…14796 Head {h00=0x0036, h01=0x0050, text=» SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH «, t00=0x00d1, t01=0x00fc}
0x14796…147ac Head {h00=0x0012, h01=0x0050, text=» RF(NN) GETP20«, t00=0x00d1, t01=0x0136}
0x147ac…147d0 Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP6 W.B. NOT FOUND!«, t00=0x00d1, t01=0x014c}
0x147d0…147e4 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00d1, t01=0x0170}
0x147e4…147f8 Head {h00=0x0010, h01=0x0050, text=»GETP20 EQU *«, t00=0x00d1, t01=0x0184}
0x147f8…14824 Head {h00=0x0028, h01=0x0050, text=» EL A10,UPADDR,A3 CHECK IF SAME W.B.«, t00=0x00d2, t01=0x0008}
0x14824…14838 Head {h00=0x0010, h01=0x0050, text=» CWR A11,A10«, t00=0x00d2, t01=0x0034}
0x14838…14868 Head {h00=0x002c, h01=0x0050, text=» RF(E) GETP30 YES! GET NUMBER OF COPIES «, t00=0x00d2, t01=0x0048}
0x14868…14884 Head {h00=0x0018, h01=0x0050, text=» ADK A3,UP:REC NEXT «, t00=0x00d2, t01=0x0078}
0x14884…14896 Head {h00=0x000e, h01=0x0050, text=» RB GETP10«, t00=0x00d2, t01=0x0094}
0x14896…148a2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d2, t01=0x00a6}
0x148a2…148d6 Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF COPIES *«, t00=0x00d2, t01=0x00b2}
0x148d6…1490a Head {h00=0x0030, h01=0x0050, text=»* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *«, t00=0x00d2, t01=0x00e6}
0x1490a…1493e Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d2, t01=0x011a}
0x1493e…14946 Head {h00=0x0004, h01=0x0050, t00=0x00d2, t01=0x014e}
0x14946…1495a Head {h00=0x0010, h01=0x0050, text=»GETP30 EQU *«, t00=0x00d2, t01=0x0156}
0x1495a…1497e Head {h00=0x0020, h01=0x0050, text=» EL A4,WBLEN,A11 W.B.-LENGTH«, t00=0x00d2, t01=0x016a}
0x1497e…149ae Head {h00=0x002c, h01=0x0050, text=» EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES «, t00=0x00d2, t01=0x018e}
0x149ae…149c2 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x00d3, t01=0x002e}
0x149c2…149f2 Head {h00=0x002c, h01=0x0050, text=» SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT«, t00=0x00d3, t01=0x0042}
0x149f2…14a24 Head {h00=0x002e, h01=0x0050, text=» AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS«, t00=0x00d3, t01=0x0072}
0x14a24…14a36 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x00d3, t01=0x00a4}
0x14a36…14a5a Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x00d3, t01=0x00b6}
0x14a5a…14a88 Head {h00=0x002a, h01=0x0050, text=» ES A5,URNUMB,A9 ESORE IN REAL U:BTAB «, t00=0x00d3, t01=0x00da}
0x14a88…14aae Head {h00=0x0022, h01=0x0050, text=» ES A4,URLENG,A9 STORE LENGTH «, t00=0x00d3, t01=0x0108}
0x14aae…14ad8 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM TABLE «, t00=0x00d3, t01=0x012e}
0x14ad8…14b0c Head {h00=0x0030, h01=0x0050, text=»* COPY NUMBER OF WORKBLOCKS TO COMMON AREA *«, t00=0x00d3, t01=0x0158}
0x14b0c…14b40 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d3, t01=0x018c}
0x14b40…14b72 Head {h00=0x002e, h01=0x0050, text=» SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') «, t00=0x00d4, t01=0x0030}
0x14b72…14b88 Head {h00=0x0012, h01=0x0050, text=» RF(NP) GETP50«, t00=0x00d4, t01=0x0062}
0x14b88…14ba2 Head {h00=0x0016, h01=0x0050, text=»GETP40 CALL MOVWB «, t00=0x00d4, t01=0x0078}
0x14ba2…14bb4 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x00d4, t01=0x0092}
0x14bb4…14bca Head {h00=0x0012, h01=0x0050, text=» RB(NZ) GETP40«, t00=0x00d4, t01=0x00a4}
0x14bca…14bd6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d4, t01=0x00ba}
0x14bd6…14c00 Head {h00=0x0026, h01=0x0050, text=»* UPDATE POINTER IN REAL U:BTAB * «, t00=0x00d4, t01=0x00c6}
0x14c00…14c2a Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00d4, t01=0x00f0}
0x14c2a…14c3e Head {h00=0x0010, h01=0x0050, text=»GETP50 EQU *«, t00=0x00d4, t01=0x011a}
0x14c3e…14c54 Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00d4, t01=0x012e}
0x14c54…14c8e Head {h00=0x0036, h01=0x0050, text=» ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U:BTAB «, t00=0x00d4, t01=0x0144}
0x14c8e…14ca6 Head {h00=0x0014, h01=0x0050, text=» TL* MMFROM,A13 «, t00=0x00d4, t01=0x017e}
0x14ca6…14cb2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d5, t01=0x0008}
0x14cb2…14cc8 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00d5, t01=0x0014}
0x14cc8…14cd8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d5, t01=0x002a}
0x14cd8…14ce6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d5, t01=0x003a}
0x14ce6…14cf2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d5, t01=0x0048}
0x14cf2…14d28 Head {h00=0x0032, h01=0x0050, text=»** M O V C L A ** «, t00=0x00d5, t01=0x0054}
0x14d28…14d5e Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x00d5, t01=0x008a}
0x14d5e…14d94 Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x00d5, t01=0x00c0}
0x14d94…14dca Head {h00=0x0032, h01=0x0050, text=»** CHECKS IF W.B. ALREADY MOVED TO COMMON ** «, t00=0x00d5, t01=0x00f6}
0x14dca…14e00 Head {h00=0x0032, h01=0x0050, text=»** AREA. IF NOT MOVE W.B. & D.T. AND ** «, t00=0x00d5, t01=0x012c}
0x14e00…14e36 Head {h00=0x0032, h01=0x0050, text=»** CHECK IF ANY DWB'S ** «, t00=0x00d5, t01=0x0162}
0x14e36…14e6c Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x00d6, t01=0x0008}
0x14e6c…14ea2 Head {h00=0x0032, h01=0x0050, text=»** A LOT OF WORKREGS. ** «, t00=0x00d6, t01=0x003e}
0x14ea2…14ed8 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00d6, t01=0x0074}
0x14ed8…14ee0 Head {h00=0x0004, h01=0x0050, t00=0x00d6, t01=0x00aa}
0x14ee0…14ef4 Head {h00=0x0010, h01=0x0050, text=»MOVCLA EQU *«, t00=0x00d6, t01=0x00b2}
0x14ef4…14f08 Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00d6, t01=0x00c6}
0x14f08…14f1e Head {h00=0x0012, h01=0x0050, text=» RF(Z) MVCL30 «, t00=0x00d6, t01=0x00da}
0x14f1e…14f4c Head {h00=0x002a, h01=0x0050, text=»MVCL10 CALL GETWB W.B.-ADDRESS TO A11 «, t00=0x00d6, t01=0x00f0}
0x14f4c…14f76 Head {h00=0x0026, h01=0x0050, text=» CALL CHKMVD BLOCK ALREADY MOVED? «, t00=0x00d6, t01=0x011e}
0x14f76…14f90 Head {h00=0x0016, h01=0x0050, text=» RF(NN) MVCL40 NO!«, t00=0x00d6, t01=0x0148}
0x14f90…14fc0 Head {h00=0x002c, h01=0x0050, text=»MVCL20 CALL SKIFTA GET NEXT BIT IN MASK «, t00=0x00d6, t01=0x0162}
0x14fc0…14fd6 (215, 0, 400) Head {h00=0x0012, h01=0x0050, text=» RB(NZ) MVCL10«, t00=0x00d7, t01=0x0004}
0x14fd6…14fec Head {h00=0x0012, h01=0x0050, text=»MVCL30 RTN A14«, t00=0x00d7, t01=0x001a}
0x14fec…15006 Head {h00=0x0016, h01=0x0050, text=»MVCL40 CALL MOVDT «, t00=0x00d7, t01=0x0030}
0x15006…1501a Head {h00=0x0010, h01=0x0050, text=» CALL MOVWB «, t00=0x00d7, t01=0x004a}
0x1501a…1503e Head {h00=0x0020, h01=0x0050, text=» LD A4,UWB,A13 UWB-SCANNING «, t00=0x00d7, t01=0x005e}
0x1503e…15058 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MVCL50 NO! «, t00=0x00d7, t01=0x0082}
0x15058…1507c Head {h00=0x0020, h01=0x0050, text=» CALL GETPRO DUPLICATE WB'S «, t00=0x00d7, t01=0x009c}
0x1507c…150ae Head {h00=0x002e, h01=0x0050, text=»MVCL50 ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS «, t00=0x00d7, t01=0x00c0}
0x150ae…150d0 Head {h00=0x001e, h01=0x0050, text=» CALL MOVDWB PROCESS DWB'S«, t00=0x00d7, t01=0x00f2}
0x150d0…150e2 Head {h00=0x000e, h01=0x0050, text=» RB MVCL20«, t00=0x00d7, t01=0x0114}
0x150e2…150f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d7, t01=0x0126}
0x150f0…150fc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d7, t01=0x0134}
0x150fc…15108 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d7, t01=0x0140}
0x15108…15142 Head {h00=0x0036, h01=0x0050, text=»** C H A D R ** «, t00=0x00d7, t01=0x014c}
0x15142…1517c Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00d7, t01=0x0186}
0x1517c…151b6 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00d8, t01=0x0030}
0x151b6…151f0 Head {h00=0x0036, h01=0x0050, text=»** CHANGE ADDRESS TO W.B. & D.T. IN T:A, ** «, t00=0x00d8, t01=0x006a}
0x151f0…1522a Head {h00=0x0036, h01=0x0050, text=»** BLOCKS ALREDY MOVED ** «, t00=0x00d8, t01=0x00a4}
0x1522a…15264 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00d8, t01=0x00de}
0x15264…1529e Head {h00=0x0036, h01=0x0050, text=»** INPUT : A6=POINTER IN T:ATAB TO T:A ** «, t00=0x00d8, t01=0x0118}
0x1529e…152d8 Head {h00=0x0036, h01=0x0050, text=»** NEWADR1=NEW D.T.-ADDRESS ** «, t00=0x00d8, t01=0x0152}
0x152d8…15312 Head {h00=0x0036, h01=0x0050, text=»** NEWAD2= NEW W.B.-ADDRESS ** «, t00=0x00d8, t01=0x018c}
0x15312…1534c Head {h00=0x0036, h01=0x0050, text=»** TADISP=DISPLACEMENT TO WB-ADDR ** «, t00=0x00d9, t01=0x0036}
0x1534c…15386 Head {h00=0x0036, h01=0x0050, text=»** WORK.REGS: A1,A2 ** «, t00=0x00d9, t01=0x0070}
0x15386…153c0 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00d9, t01=0x00aa}
0x153c0…153cc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d9, t01=0x00e4}
0x153cc…153e0 Head {h00=0x0010, h01=0x0050, text=»CHADR EQU * «, t00=0x00d9, t01=0x00f0}
0x153e0…153fc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00d9, t01=0x0104}
0x153fc…1541c Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 T:A-ADDRESS «, t00=0x00d9, t01=0x0120}
0x1541c…1544e Head {h00=0x002e, h01=0x0050, text=» AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS«, t00=0x00d9, t01=0x0140}
0x1544e…15468 Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD2,A13 «, t00=0x00d9, t01=0x0172}
0x15468…1547a Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x00d9, t01=0x018c}
0x1547a…154a4 Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 ADDRESS TO D.T.-ADDRESS «, t00=0x00da, t01=0x000e}
0x154a4…154be Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD1,A13 «, t00=0x00da, t01=0x0038}
0x154be…154d0 Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x00da, t01=0x0052}
0x154d0…154dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00da, t01=0x0064}
0x154dc…154f8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00da, t01=0x0070}
0x154f8…15516 Head {h00=0x001a, h01=0x0050, text=» ELR A1,A6 T:A-ADDRESS«, t00=0x00da, t01=0x008c}
0x15516…15548 Head {h00=0x002e, h01=0x0050, text=» AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS«, t00=0x00da, t01=0x00aa}
0x15548…15562 Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD2,A13 «, t00=0x00da, t01=0x00dc}
0x15562…15574 Head {h00=0x000e, h01=0x0050, text=» ESR A2,A1«, t00=0x00da, t01=0x00f6}
0x15574…1559e Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 ADDRESS TO D.T.-ADDRESS «, t00=0x00da, t01=0x0108}
0x1559e…155b8 Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD1,A13 «, t00=0x00da, t01=0x0132}
0x155b8…155ca Head {h00=0x000e, h01=0x0050, text=» ESR A2,A1«, t00=0x00da, t01=0x014c}
0x155ca…155d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00da, t01=0x015e}
0x155d6…155ec Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00da, t01=0x016a}
0x155ec…155fc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00da, t01=0x0180}
0x155fc…15608 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00da, t01=0x0190}
0x15608…15624 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00db, t01=0x000c}
0x15624…15632 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00db, t01=0x0028}
0x15632…15678 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00db, t01=0x0036}
0x15678…156be Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00db, t01=0x007c}
0x156be…15704 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00db, t01=0x00c2}
0x15704…1574a Head {h00=0x0042, h01=0x0050, text=»* B:RSWT - BUILD REAL SWB CONTROL TABLE *«, t00=0x00db, t01=0x0108}
0x1574a…15790 Head {h00=0x0042, h01=0x0050, text=»* ===================================== *«, t00=0x00db, t01=0x014e}
0x15790…157d6 (220, 0, 400) Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00dc, t01=0x0004}
0x157d6…1581c Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: SYSLDA *«, t00=0x00dc, t01=0x004a}
0x1581c…15862 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00dc, t01=0x0090}
0x15862…158a8 Head {h00=0x0042, h01=0x0050, text=»* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB *«, t00=0x00dc, t01=0x00d6}
0x158a8…158ee Head {h00=0x0042, h01=0x0050, text=»* A5 - LENGTH OF REAL S:BTAB *«, t00=0x00dc, t01=0x011c}
0x158ee…15934 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00dc, t01=0x0162}
0x15934…1597a Head {h00=0x0042, h01=0x0050, text=»* EXIT: *«, t00=0x00dd, t01=0x0018}
0x1597a…159c0 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00dd, t01=0x005e}
0x159c0…15a06 Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A1-A7 *«, t00=0x00dd, t01=0x00a4}
0x15a06…15a4c Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00dd, t01=0x00ea}
0x15a4c…15a92 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x00dd, t01=0x0130}
0x15a92…15ad8 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00dd, t01=0x0176}
0x15ad8…15b1e Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00de, t01=0x002c}
0x15b1e…15b2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00de, t01=0x0072}
0x15b2c…15b40 Head {h00=0x0010, h01=0x0050, text=»B:RSWT EQU *«, t00=0x00de, t01=0x0080}
0x15b40…15b6e Head {h00=0x002a, h01=0x0050, text=» LDR A8,A2 SAVE POINTER TO FIRST BLOCK«, t00=0x00de, t01=0x0094}
0x15b6e…15b9e Head {h00=0x002c, h01=0x0050, text=» LD A1,SCTSWB POINTER TO SWB BLOCK TABLE«, t00=0x00de, t01=0x00c2}
0x15b9e…15bcc Head {h00=0x002a, h01=0x0050, text=» RF(Z) RSWBEX NO SWB:S IN APPLICATION «, t00=0x00de, t01=0x00f2}
0x15bcc…15bf0 Head {h00=0x0020, h01=0x0050, text=» LDR* A3,A1 NUMBER OF TYPES «, t00=0x00de, t01=0x0120}
0x15bf0…15c0e Head {h00=0x001a, h01=0x0050, text=» RF(Z) RSWBEX NO MOORE«, t00=0x00de, t01=0x0144}
0x15c0e…15c30 Head {h00=0x001e, h01=0x0050, text=» SUK A5,2 SKIP LENGTH WORD«, t00=0x00de, t01=0x0162}
0x15c30…15c52 Head {h00=0x001e, h01=0x0050, text=»RSWB10 ADK A1,2 NEXT TYPE «, t00=0x00de, t01=0x0184}
0x15c52…15c76 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,A1 POINTER TO BLOCK«, t00=0x00df, t01=0x0016}
0x15c76…15c9a Head {h00=0x0020, h01=0x0050, text=» LDR* A6,A4 NUMBER OF COPIES«, t00=0x00df, t01=0x003a}
0x15c9a…15cc2 Head {h00=0x0024, h01=0x0050, text=» LD A7,SWBLEN,A4 LENGTH IN BYTES«, t00=0x00df, t01=0x005e}
0x15cc2…15cce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00df, t01=0x0086}
0x15cce…15cea Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00df, t01=0x0092}
0x15cea…15d14 Head {h00=0x0026, h01=0x0050, text=» ES A6,2,A2 STORE NUMBER OF COPIES«, t00=0x00df, t01=0x00ae}
0x15d14…15d44 Head {h00=0x002c, h01=0x0050, text=» ES A7,4,A2 STORE LENGTH OF SWB IN BYTES«, t00=0x00df, t01=0x00d8}
0x15d44…15d50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00df, t01=0x0108}
0x15d50…15d6c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00df, t01=0x0114}
0x15d6c…15d96 Head {h00=0x0026, h01=0x0050, text=» ST A6,2,A2 STORE NUMBER OF COPIES«, t00=0x00df, t01=0x0130}
0x15d96…15dc6 Head {h00=0x002c, h01=0x0050, text=» ST A7,4,A2 STORE LENGTH OF SWB IN BYTES«, t00=0x00df, t01=0x015a}
0x15dc6…15dd2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00df, t01=0x018a}
0x15dd2…15dee Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00e0, t01=0x0008}
0x15dee…15e18 Head {h00=0x0026, h01=0x0050, text=» SUK A5,6 DECREMENTS S:BTAB LENGTH«, t00=0x00e0, t01=0x0024}
0x15e18…15e44 Head {h00=0x0028, h01=0x0050, text=» ADK A2,6 INCREMENT POINTER IN BLOCK«, t00=0x00e0, t01=0x004e}
0x15e44…15e70 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT NUMBER OF TYPES «, t00=0x00e0, t01=0x007a}
0x15e70…15e86 Head {h00=0x0012, h01=0x0050, text=» RB(P) RSWB10 «, t00=0x00e0, t01=0x00a6}
0x15e86…15e98 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x00e0, t01=0x00bc}
0x15e98…15ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x00ce}
0x15ea2…15eda Head {h00=0x0034, h01=0x0050, text=»* INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE«, t00=0x00e0, t01=0x00d8}
0x15eda…15f06 Head {h00=0x0028, h01=0x0050, text=»* AND RESET ALL WORDS IN TID BLOCKS«, t00=0x00e0, t01=0x0110}
0x15f06…15f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x013c}
0x15f10…15f24 Head {h00=0x0010, h01=0x0050, text=»RSWB20 EQU *«, t00=0x00e0, t01=0x0146}
0x15f24…15f50 Head {h00=0x0028, h01=0x0050, text=» LDR A6,A2 GET ADDRESS TO TID BLOCK «, t00=0x00e0, t01=0x015a}
0x15f50…15f78 Head {h00=0x0024, h01=0x0050, text=» SUR A6,A8 COMPUTE DISPLACEMENT «, t00=0x00e0, t01=0x0186}
0x15f78…15f94 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00e1, t01=0x001e}
0x15f94…15fb8 Head {h00=0x0020, h01=0x0050, text=» LD A1,2,A8 NUMBER OF COPIES«, t00=0x00e1, t01=0x003a}
0x15fb8…15fd8 Head {h00=0x001c, h01=0x0050, text=» RF(Z) RSWB50 NO COPIES!«, t00=0x00e1, t01=0x005e}
0x15fd8…16006 Head {h00=0x002a, h01=0x0050, text=» STR A6,A8 STORE POINTER TO TID BLOCK «, t00=0x00e1, t01=0x007e}
0x16006…16028 Head {h00=0x001e, h01=0x0050, text=»RSWB30 STR A3,A2 RESET TID«, t00=0x00e1, t01=0x00ac}
0x16028…16058 Head {h00=0x002c, h01=0x0050, text=» ADK A2,2 INCREMENT POINTER IN TID BLOCK«, t00=0x00e1, t01=0x00ce}
0x16058…1608a Head {h00=0x002e, h01=0x0050, text=» SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB «, t00=0x00e1, t01=0x00fe}
0x1608a…160b2 Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECR. NUMBER OF COPIES«, t00=0x00e1, t01=0x0130}
0x160b2…160d2 Head {h00=0x001c, h01=0x0050, text=» RB(P) RSWB30 NEXT COPY «, t00=0x00e1, t01=0x0158}
0x160d2…160de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e1, t01=0x0178}
0x160de…160fa Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00e1, t01=0x0184}
0x160fa…16122 Head {h00=0x0024, h01=0x0050, text=» EL A1,2,A8 GET NUMBER OF COPIES«, t00=0x00e2, t01=0x0010}
0x16122…16142 Head {h00=0x001c, h01=0x0050, text=» RF(Z) RSWB50 NO COPIES!«, t00=0x00e2, t01=0x0038}
0x16142…16170 Head {h00=0x002a, h01=0x0050, text=» ESR A6,A8 STORE POINTER TO TID BLOCK «, t00=0x00e2, t01=0x0058}
0x16170…16192 Head {h00=0x001e, h01=0x0050, text=»RSWB40 ESR A3,A2 RESET TID«, t00=0x00e2, t01=0x0086}
0x16192…161c2 Head {h00=0x002c, h01=0x0050, text=» ADK A2,2 INCREMENT POINTER IN TID BLOCK«, t00=0x00e2, t01=0x00a8}
0x161c2…161f4 Head {h00=0x002e, h01=0x0050, text=» SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB «, t00=0x00e2, t01=0x00d8}
0x161f4…16220 Head {h00=0x0028, h01=0x0050, text=» SUK A1,1 DECREMENT NUMBER OF COPIES«, t00=0x00e2, t01=0x010a}
0x16220…16240 Head {h00=0x001c, h01=0x0050, text=» RB(P) RSWB40 NEXT COPY «, t00=0x00e2, t01=0x0136}
0x16240…1624c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e2, t01=0x0156}
0x1624c…16268 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00e2, t01=0x0162}
0x16268…16280 Head {h00=0x0014, h01=0x0050, text=»RSWB50 ADKL A8,6«, t00=0x00e2, t01=0x017e}
0x16280…16292 Head {h00=0x000e, h01=0x0050, text=» CWR A8,A4«, t00=0x00e3, t01=0x0008}
0x16292…162a8 Head {h00=0x0012, h01=0x0050, text=» RB(NE) RSWB20«, t00=0x00e3, t01=0x001a}
0x162a8…162ce Head {h00=0x0022, h01=0x0050, text=» LDR A5,A5 S:BTAB CONSISTENT? «, t00=0x00e3, t01=0x0030}
0x162ce…162e8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) RSWBEX YES «, t00=0x00e3, t01=0x0056}
0x162e8…16308 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,LMP6 SWB ERROR!«, t00=0x00e3, t01=0x0070}
0x16308…1631c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00e3, t01=0x0090}
0x1631c…16332 Head {h00=0x0012, h01=0x0050, text=»RSWBEX RTN A14«, t00=0x00e3, t01=0x00a4}
0x16332…1633e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e3, t01=0x00ba}
0x1633e…16354 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00e3, t01=0x00c6}
0x16354…16362 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e3, t01=0x00dc}
0x16362…1636a Head {h00=0x0004, h01=0x0050, t00=0x00e3, t01=0x00ea}
0x1636a…1638e Head {h00=0x0020, h01=0x0050, text=»* **************************«, t00=0x00e3, t01=0x00f2}
0x1638e…163b4 Head {h00=0x0022, h01=0x0050, text=»* START OF PROGRAM PART 2.A * «, t00=0x00e3, t01=0x0116}
0x163b4…163da Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x00e3, t01=0x013c}
0x163da…163e2 Head {h00=0x0004, h01=0x0050, t00=0x00e3, t01=0x0162}
0x163e2…16400 Head {h00=0x001a, h01=0x0050, text=»* LOAD BASE ADDRESS * «, t00=0x00e3, t01=0x016a}
0x16400…1641e Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x00e3, t01=0x0188}
0x1641e…16438 Head {h00=0x0016, h01=0x0050, text=»* A5=START-ADDRESS«, t00=0x00e4, t01=0x0016}
0x16438…16454 Head {h00=0x0018, h01=0x0050, text=»* A9=P:MTAB ADDRESS «, t00=0x00e4, t01=0x0030}
0x16454…16474 Head {h00=0x001c, h01=0x0050, text=»* SAVE03=DDIV TO-ADDRESS«, t00=0x00e4, t01=0x004c}
0x16474…16496 Head {h00=0x001e, h01=0x0050, text=»* SAVE04=DDIV FROM ADDRESS«, t00=0x00e4, t01=0x006c}
0x16496…164bc Head {h00=0x0022, h01=0x0050, text=»* SAVE05=LENGTH OF REAL T:ATAB«, t00=0x00e4, t01=0x008e}
0x164bc…164e2 Head {h00=0x0022, h01=0x0050, text=»* SAVE06=LENGTH OF REAL U:BTAB«, t00=0x00e4, t01=0x00b4}
0x164e2…164ee Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00e4, t01=0x00da}
0x164ee…16506 Head {h00=0x0014, h01=0x0050, text=»START2 EQU *-REL«, t00=0x00e4, t01=0x00e6}
0x16506…1652c Head {h00=0x0022, h01=0x0050, text=» LDR A8,P LOAD TEMP. STACKBASE«, t00=0x00e4, t01=0x00fe}
0x1652c…16558 Head {h00=0x0028, h01=0x0050, text=» ADK A5,2 ADD FOR RELOCATION ROUTINE«, t00=0x00e4, t01=0x0124}
0x16558…1656a Head {h00=0x000e, h01=0x0050, text=» CFR A8,A5«, t00=0x00e4, t01=0x0150}
0x1656a…16580 Head {h00=0x0012, h01=0x0050, text=»* MOVE DDIV * «, t00=0x00e4, t01=0x0162}
0x16580…16588 Head {h00=0x0004, h01=0x0050, t00=0x00e4, t01=0x0178}
0x16588…165b2 Head {h00=0x0026, h01=0x0050, text=» LD A1,SAVE04,A13 GET FROM-ADDRESS«, t00=0x00e4, t01=0x0180}
0x165b2…165da Head {h00=0x0024, h01=0x0050, text=» LD A2,SAVE03,A13 GET TO ADDRESS«, t00=0x00e5, t01=0x001a}
0x165da…1660c Head {h00=0x002e, h01=0x0050, text=» LDR A3,A9 GET P:MTAB START (=END OF DDIV «, t00=0x00e5, t01=0x0042}
0x1660c…16628 Head {h00=0x0018, h01=0x0050, text=» SUR A3,A1 => LENGTH«, t00=0x00e5, t01=0x0074}
0x16628…16634 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e5, t01=0x0090}
0x16634…16650 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00e5, t01=0x009c}
0x16650…16682 Head {h00=0x002e, h01=0x0050, text=» LD A8,SCTNOS ANY SEGMENTS IN APPLICATION?«, t00=0x00e5, t01=0x00b8}
0x16682…1669c Head {h00=0x0016, h01=0x0050, text=» RF(Z) NOSGMT NO! «, t00=0x00e5, t01=0x00ea}
0x1669c…166c8 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,0 RESET FSTADR IF SEGMENTS!«, t00=0x00e5, t01=0x0104}
0x166c8…166da Head {h00=0x000e, h01=0x0050, text=» RF SEGMTS«, t00=0x00e5, t01=0x0130}
0x166da…16710 Head {h00=0x0032, h01=0x0050, text=»NOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP «, t00=0x00e5, t01=0x0142}
0x16710…16736 Head {h00=0x0022, h01=0x0050, text=»SEGMTS ST A8,FSTADR,A13 STORE «, t00=0x00e5, t01=0x0178}
0x16736…16758 Head {h00=0x001e, h01=0x0050, text=»MOVNXT LDR* A4,A1 GET WORD«, t00=0x00e6, t01=0x000e}
0x16758…16770 Head {h00=0x0014, h01=0x0050, text=» STR A4,A2 STORE«, t00=0x00e6, t01=0x0030}
0x16770…16782 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00e6, t01=0x0048}
0x16782…16794 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00e6, t01=0x005a}
0x16794…167b0 Head {h00=0x0018, h01=0x0050, text=» SUK A3,2 DEC LENGTH«, t00=0x00e6, t01=0x006c}
0x167b0…167c6 Head {h00=0x0012, h01=0x0050, text=» RB(NN) MOVNXT«, t00=0x00e6, t01=0x0088}
0x167c6…167d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e6, t01=0x009e}
0x167d2…167ee Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00e6, t01=0x00aa}
0x167ee…16802 Head {h00=0x0010, h01=0x0050, text=» CALL XMOVE «, t00=0x00e6, t01=0x00c6}
0x16802…1682c Head {h00=0x0026, h01=0x0050, text=»* REMOVE DDIV ENTRIES IN MM-TABLE «, t00=0x00e6, t01=0x00da}
0x1682c…16834 Head {h00=0x0004, h01=0x0050, t00=0x00e6, t01=0x0104}
0x16834…1685a Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET P:MTAB ADDRESS «, t00=0x00e6, t01=0x010c}
0x1685a…16882 Head {h00=0x0024, h01=0x0050, text=» SRL A1,11 ADJUST FOR ADDRESSING«, t00=0x00e6, t01=0x0132}
0x16882…16896 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/1E «, t00=0x00e6, t01=0x015a}
0x16896…168c0 Head {h00=0x0026, h01=0x0050, text=» LDK A2,MMTAB-2 GET TABLE ADDRESS «, t00=0x00e6, t01=0x016e}
0x168c0…168dc Head {h00=0x0018, h01=0x0050, text=» ADR A2,A13 RELOCATE«, t00=0x00e7, t01=0x0008}
0x168dc…16902 Head {h00=0x0022, h01=0x0050, text=» ADR A1,A2 P:MTAB START ENTRY «, t00=0x00e7, t01=0x0024}
0x16902…16918 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/FC00«, t00=0x00e7, t01=0x004a}
0x16918…16936 Head {h00=0x001a, h01=0x0050, text=»SYA205 CWR A1,A2 ALL? «, t00=0x00e7, t01=0x0060}
0x16936…16950 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA207 YES!«, t00=0x00e7, t01=0x007e}
0x16950…16980 Head {h00=0x002c, h01=0x0050, text=» STR A4,A1 REPLACE ENTRY WITH PAGE ERROR«, t00=0x00e7, t01=0x0098}
0x16980…16992 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x00e7, t01=0x00c8}
0x16992…169a4 Head {h00=0x000e, h01=0x0050, text=» RB SYA205«, t00=0x00e7, t01=0x00da}
0x169a4…169b8 Head {h00=0x0010, h01=0x0050, text=»SYA207 EQU *«, t00=0x00e7, t01=0x00ec}
0x169b8…169d8 Head {h00=0x001c, h01=0x0050, text=»* CHANGE TABLE-ADDRESSES«, t00=0x00e7, t01=0x0100}
0x169d8…169f2 Head {h00=0x0016, h01=0x0050, text=» LD A4,MMFROM,A13 «, t00=0x00e7, t01=0x0120}
0x169f2…16a0a Head {h00=0x0014, h01=0x0050, text=» LD A5,MMTO,A13 «, t00=0x00e7, t01=0x013a}
0x16a0a…16a22 Head {h00=0x0014, h01=0x0050, text=» ST A4,MMTO,A13 «, t00=0x00e7, t01=0x0152}
0x16a22…16a3c Head {h00=0x0016, h01=0x0050, text=» ST A5,MMFROM,A13 «, t00=0x00e7, t01=0x016a}
0x16a3c…16a48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e7, t01=0x0184}
0x16a48…16a5e Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00e7, t01=0x0190}
0x16a5e…16a82 Head {h00=0x0020, h01=0x0050, text=» ANKL A9,/FFFE EVEN ADDRESS «, t00=0x00e8, t01=0x0016}
0x16a82…16ab2 Head {h00=0x002c, h01=0x0050, text=» ST A9,LSTADR,A13 SAVE END OF FREE AREA «, t00=0x00e8, t01=0x003a}
0x16ab2…16aba Head {h00=0x0004, h01=0x0050, t00=0x00e8, t01=0x006a}
0x16aba…16ac2 Head {h00=0x0004, h01=0x0050, t00=0x00e8, t01=0x0072}
0x16ac2…16ace Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00e8, t01=0x007a}
0x16ace…16b00 Head {h00=0x002e, h01=0x0050, text=»* RESERVE SPACE FOR REAL T:A- AND U:BTAB *«, t00=0x00e8, t01=0x0086}
0x16b00…16b08 Head {h00=0x0004, h01=0x0050, t00=0x00e8, t01=0x00b8}
0x16b08…16b24 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00e8, t01=0x00c0}
0x16b24…16b50 Head {h00=0x0028, h01=0x0050, text=» LDKL A3,MMTAB GET CURRENT MM-TABLE «, t00=0x00e8, t01=0x00dc}
0x16b50…16b64 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A13 «, t00=0x00e8, t01=0x0108}
0x16b64…16b94 Head {h00=0x002c, h01=0x0050, text=»* FIND LAST USED ENTRY IN REAL MMUTAB * «, t00=0x00e8, t01=0x011c}
0x16b94…16b9c Head {h00=0x0004, h01=0x0050, t00=0x00e8, t01=0x014c}
0x16b9c…16bb0 Head {h00=0x0010, h01=0x0050, text=» CALL MMENT «, t00=0x00e8, t01=0x0154}
0x16bb0…16bc8 Head {h00=0x0014, h01=0x0050, text=» ST A9,TTAB,A13 «, t00=0x00e8, t01=0x0168}
0x16bc8…16bf6 Head {h00=0x002a, h01=0x0050, text=» ST A1,FYSPAG,A13 SAVE PHYSICALL PAGE «, t00=0x00e8, t01=0x0180}
0x16bf6…16c24 Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE05,A13 GET LENGTH OF T:ATAB«, t00=0x00e9, t01=0x001e}
0x16c24…16c3c Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00e9, t01=0x004c}
0x16c3c…16c6a Head {h00=0x002a, h01=0x0050, text=» CALL MOVING RESERVE SPACE FOR T:ATAB «, t00=0x00e9, t01=0x0064}
0x16c6a…16c92 Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 SET CORRECT TABLE «, t00=0x00e9, t01=0x0092}
0x16c92…16cb8 Head {h00=0x0022, h01=0x0050, text=» ESR A5,A2 STORE T:ATAB LENGTH«, t00=0x00e9, t01=0x00ba}
0x16cb8…16cea Head {h00=0x002e, h01=0x0050, text=» ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS «, t00=0x00e9, t01=0x00e0}
0x16cea…16d0c Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 SKIP LENGTH WORD«, t00=0x00e9, t01=0x0112}
0x16d0c…16d34 Head {h00=0x0024, h01=0x0050, text=» LD A9,SCTLAC GET P:MTAB ADDRESS«, t00=0x00e9, t01=0x0134}
0x16d34…16d5c Head {h00=0x0024, h01=0x0050, text=» ES A2,T:ATAB,A9 STORE IN P:MTAB«, t00=0x00e9, t01=0x015c}
0x16d5c…16d84 Head {h00=0x0024, h01=0x0050, text=»* RESERVE PLACE FOR T:AID TABLE «, t00=0x00e9, t01=0x0184}
0x16d84…16d8c Head {h00=0x0004, h01=0x0050, t00=0x00ea, t01=0x001c}
0x16d8c…16daa Head {h00=0x001a, h01=0x0050, text=» LDR A3,A5 GET LENGTH «, t00=0x00ea, t01=0x0024}
0x16daa…16dbe Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00ea, t01=0x0042}
0x16dbe…16dd4 Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00ea, t01=0x0056}
0x16dd4…16df2 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A9 GET P:MTAB «, t00=0x00ea, t01=0x006c}
0x16df2…16e1c Head {h00=0x0026, h01=0x0050, text=» ADK A3,T:AID ADD TO ADDRESS WORD «, t00=0x00ea, t01=0x008a}
0x16e1c…16e50 Head {h00=0x0030, h01=0x0050, text=» ESR A5,A2 STORE TABLE LENGTH IN T:TID-TABLE«, t00=0x00ea, t01=0x00b4}
0x16e50…16e76 Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 ADJUST TABLE ADDRESS«, t00=0x00ea, t01=0x00e8}
0x16e76…16e98 Head {h00=0x001e, h01=0x0050, text=» ESR A2,A3 STORE IN P:MTAB«, t00=0x00ea, t01=0x010e}
0x16e98…16ea4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ea, t01=0x0130}
0x16ea4…16eba Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ea, t01=0x013c}
0x16eba…16ee6 Head {h00=0x0028, h01=0x0050, text=» LD A3,SAVE06,A13 GET U:BTAB LENGTH «, t00=0x00ea, t01=0x0152}
0x16ee6…16efe Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00ea, t01=0x017e}
0x16efe…16f20 Head {h00=0x001e, h01=0x0050, text=» CALL MOVING RESERVE SPACE«, t00=0x00eb, t01=0x0008}
0x16f20…16f58 Head {h00=0x0034, h01=0x0050, text=» ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS«, t00=0x00eb, t01=0x002a}
0x16f58…16f74 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00eb, t01=0x0062}
0x16f74…16f94 Head {h00=0x001c, h01=0x0050, text=» STR A5,A2 STORE LENGTH «, t00=0x00eb, t01=0x007e}
0x16f94…16fa6 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00eb, t01=0x009e}
0x16fa6…16fe4 Head {h00=0x003a, h01=0x0050, text=» ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB «, t00=0x00eb, t01=0x00b0}
0x16fe4…17012 Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE05,A13 GET LENGTH OF T:ATAB«, t00=0x00eb, t01=0x00ee}
0x17012…1702a Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00eb, t01=0x011c}
0x1702a…17058 Head {h00=0x002a, h01=0x0050, text=» CALL MOVING RESERVE SPACE FOR T:ATAB «, t00=0x00eb, t01=0x0134}
0x17058…1707e Head {h00=0x0022, h01=0x0050, text=» STR A5,A2 STORE T:ATAB LENGTH«, t00=0x00eb, t01=0x0162}
0x1707e…170b0 Head {h00=0x002e, h01=0x0050, text=» ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS «, t00=0x00eb, t01=0x0188}
0x170b0…170c2 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00ec, t01=0x002a}
0x170c2…170ec Head {h00=0x0026, h01=0x0050, text=» ST A2,T:ATAB,A9 SAVE REAL ADDRESS«, t00=0x00ec, t01=0x003c}
0x170ec…1710e Head {h00=0x001e, h01=0x0050, text=»* RESERVE FOR T:AID TABLE «, t00=0x00ec, t01=0x0066}
0x1710e…17116 Head {h00=0x0004, h01=0x0050, t00=0x00ec, t01=0x0088}
0x17116…17130 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A5 LENGTH «, t00=0x00ec, t01=0x0090}
0x17130…17144 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00ec, t01=0x00aa}
0x17144…17164 Head {h00=0x001c, h01=0x0050, text=» STR A5,A2 STORE LENGTH «, t00=0x00ec, t01=0x00be}
0x17164…1718c Head {h00=0x0024, h01=0x0050, text=» ADK A2,2 ADJUST FOR LENGTH-WORD«, t00=0x00ec, t01=0x00de}
0x1718c…171bc Head {h00=0x002c, h01=0x0050, text=» ST A2,T:AID,A9 STORE ADDRESS IN P:MTAB «, t00=0x00ec, t01=0x0106}
0x171bc…171c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ec, t01=0x0136}
0x171c8…171e4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ec, t01=0x0142}
0x171e4…1720c Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 SET CORRECT TABLE «, t00=0x00ec, t01=0x015e}
0x1720c…1722c Head {h00=0x001c, h01=0x0050, text=» ESR A5,A2 STORE LENGTH «, t00=0x00ec, t01=0x0186}
0x1722c…1724e Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 SKIP LENGTH WORD«, t00=0x00ed, t01=0x0016}
0x1724e…17276 Head {h00=0x0024, h01=0x0050, text=» ES A2,U:BTAB,A9 STORE IN P:MTAB«, t00=0x00ed, t01=0x0038}
0x17276…17282 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ed, t01=0x0060}
0x17282…1729e Head {h00=0x0018, h01=0x0050, text=» IFT SWPBLK+CREDIT=2«, t00=0x00ed, t01=0x006c}
0x1729e…172a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0088}
0x172a8…172d6 Head {h00=0x002a, h01=0x0050, text=»* RESERV SPACE FOR REAL S:BTAB TABLE «, t00=0x00ed, t01=0x0092}
0x172d6…172e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x00c0}
0x172e0…17310 Head {h00=0x002c, h01=0x0050, text=» LD A3,SAVE25,A13 LENGTH OF REAL S:BTAB «, t00=0x00ed, t01=0x00ca}
0x17310…17328 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00ed, t01=0x00fa}
0x17328…1733c Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00ed, t01=0x0112}
0x1733c…17356 Head {h00=0x0016, h01=0x0050, text=» ST A2,S:BTNW,A13 «, t00=0x00ed, t01=0x0126}
0x17356…17362 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ed, t01=0x0140}
0x17362…1737e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00ed, t01=0x014c}
0x1737e…17394 Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00ed, t01=0x0168}
0x17394…173a6 Head {h00=0x000e, h01=0x0050, text=» ESR A5,A2«, t00=0x00ed, t01=0x017e}
0x173a6…173b8 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00ed, t01=0x0190}
0x173b8…173d0 Head {h00=0x0014, h01=0x0050, text=» ES A2,S:BTAB,A9«, t00=0x00ee, t01=0x0012}
0x173d0…173e4 Head {h00=0x0010, h01=0x0050, text=» CALL B:RSWT«, t00=0x00ee, t01=0x002a}
0x173e4…173f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ee, t01=0x003e}
0x173f0…1740c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00ee, t01=0x004a}
0x1740c…1741e Head {h00=0x000e, h01=0x0050, text=» STR A5,A2«, t00=0x00ee, t01=0x0066}
0x1741e…17430 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00ee, t01=0x0078}
0x17430…17448 Head {h00=0x0014, h01=0x0050, text=» ST A2,S:BTAB,A9«, t00=0x00ee, t01=0x008a}
0x17448…1745c Head {h00=0x0010, h01=0x0050, text=» CALL B:RSWT«, t00=0x00ee, t01=0x00a2}
0x1745c…17468 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ee, t01=0x00b6}
0x17468…17484 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ee, t01=0x00c2}
0x17484…174aa Head {h00=0x0022, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE «, t00=0x00ee, t01=0x00de}
0x174aa…174b6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ee, t01=0x0104}
0x174b6…174cc Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ee, t01=0x0110}
0x174cc…174da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ee, t01=0x0126}
0x174da…174e6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00ee, t01=0x0134}
0x174e6…17508 Head {h00=0x001e, h01=0x0050, text=»* BUILD COMMON DATA AREA *«, t00=0x00ee, t01=0x0140}
0x17508…1752a Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x00ee, t01=0x0162}
0x1752a…17542 Head {h00=0x0014, h01=0x0050, text=»* SEARCH CWB'S: «, t00=0x00ee, t01=0x0184}
0x17542…1754e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00ef, t01=0x000c}
0x1754e…1757a Head {h00=0x0028, h01=0x0050, text=» LD A8,T:ATOD,A13 GET T:ATAB ADDRESS«, t00=0x00ef, t01=0x0018}
0x1757a…17596 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ef, t01=0x0044}
0x17596…175b4 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A8 GET LENGTH«, t00=0x00ef, t01=0x0060}
0x175b4…175c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ef, t01=0x007e}
0x175c0…175dc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ef, t01=0x008a}
0x175dc…175fa Head {h00=0x001a, h01=0x0050, text=» ELR A3,A8 GET LENGTH «, t00=0x00ef, t01=0x00a6}
0x175fa…17606 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ef, t01=0x00c4}
0x17606…1761c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ef, t01=0x00d0}
0x1761c…1762e Head {h00=0x000e, h01=0x0050, text=» ADR A3,A8«, t00=0x00ef, t01=0x00e6}
0x1762e…17662 Head {h00=0x0030, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE END OF T:ATAB ADDRESS«, t00=0x00ef, t01=0x00f8}
0x17662…17676 Head {h00=0x0010, h01=0x0050, text=»SYA210 EQU *«, t00=0x00ef, t01=0x012c}
0x17676…176a0 Head {h00=0x0026, h01=0x0050, text=» CM UWB,A13 INDICATE CWB-SCANNING «, t00=0x00ef, t01=0x0140}
0x176a0…176b2 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x00ef, t01=0x016a}
0x176b2…176d6 Head {h00=0x0020, h01=0x0050, text=» CW A8,ENDADD,A13 ALL DONE? «, t00=0x00ef, t01=0x017c}
0x176d6…176f0 Head {h00=0x0016, h01=0x0050, text=» RF(E) CLADAT YES!«, t00=0x00f0, t01=0x0010}
0x176f0…17718 Head {h00=0x0024, h01=0x0050, text=» CALL T:DADD T:D-ADDRESS TO A12 «, t00=0x00f0, t01=0x002a}
0x17718…17734 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f0, t01=0x0052}
0x17734…1775a Head {h00=0x0022, h01=0x0050, text=» LD A7,CWBMSK,A12 GET CWB-MASK«, t00=0x00f0, t01=0x006e}
0x1775a…17766 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f0, t01=0x0094}
0x17766…17782 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f0, t01=0x00a0}
0x17782…1779c Head {h00=0x0016, h01=0x0050, text=» EL A7,CWBMSK,A12 «, t00=0x00f0, t01=0x00bc}
0x1779c…177a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f0, t01=0x00d6}
0x177a8…177be Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f0, t01=0x00e2}
0x177be…177de Head {h00=0x001c, h01=0x0050, text=» CALL SHIFT SUPER-LOOPA «, t00=0x00f0, t01=0x00f8}
0x177de…177fe Head {h00=0x001c, h01=0x0050, text=»SYA220 RF(Z) UWBCOM ALL!«, t00=0x00f0, t01=0x0118}
0x177fe…17812 Head {h00=0x0010, h01=0x0050, text=» CALL MOVCOM«, t00=0x00f0, t01=0x0138}
0x17812…17826 Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x00f0, t01=0x014c}
0x17826…17838 Head {h00=0x000e, h01=0x0050, text=» RB SYA220«, t00=0x00f0, t01=0x0160}
0x17838…17846 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f0, t01=0x0172}
0x17846…17852 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f0, t01=0x0180}
0x17852…1785e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f0, t01=0x018c}
0x1785e…17872 Head {h00=0x0010, h01=0x0050, text=»UWBCOM EQU *«, t00=0x00f1, t01=0x0008}
0x17872…1788a Head {h00=0x0014, h01=0x0050, text=»* SEARCH UWB'S: «, t00=0x00f1, t01=0x001c}
0x1788a…17894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x0034}
0x17894…178be Head {h00=0x0026, h01=0x0050, text=» IM UWB,A13 INDICATE UWB-SCANNING «, t00=0x00f1, t01=0x003e}
0x178be…178da Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f1, t01=0x0068}
0x178da…178f4 Head {h00=0x0016, h01=0x0050, text=» LD A7,UWBMSK,A12 «, t00=0x00f1, t01=0x0084}
0x178f4…17900 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f1, t01=0x009e}
0x17900…1791c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f1, t01=0x00aa}
0x1791c…17936 Head {h00=0x0016, h01=0x0050, text=» EL A7,UWBMSK,A12 «, t00=0x00f1, t01=0x00c6}
0x17936…17942 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f1, t01=0x00e0}
0x17942…17958 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f1, t01=0x00ec}
0x17958…1796c Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00f1, t01=0x0102}
0x1796c…17992 Head {h00=0x0022, h01=0x0050, text=»SYA230 RB(Z) SYA210 ALL DONE! «, t00=0x00f1, t01=0x0116}
0x17992…179ac Head {h00=0x0016, h01=0x0050, text=»SYA235 CALL MOVCOM«, t00=0x00f1, t01=0x013c}
0x179ac…179c6 Head {h00=0x0016, h01=0x0050, text=»SYA240 CALL SKIFTA«, t00=0x00f1, t01=0x0156}
0x179c6…179d8 Head {h00=0x000e, h01=0x0050, text=» RB SYA230«, t00=0x00f1, t01=0x0170}
0x179d8…179e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f1, t01=0x0182}
0x179e6…179f2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f1, t01=0x0190}
0x179f2…17a20 Head {h00=0x002a, h01=0x0050, text=»* TASK CLASS DATA CONFIGURATION PART *«, t00=0x00f2, t01=0x000c}
0x17a20…17a4e Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x00f2, t01=0x003a}
0x17a4e…17a56 Head {h00=0x0004, h01=0x0050, t00=0x00f2, t01=0x0068}
0x17a56…17a6a Head {h00=0x0010, h01=0x0050, text=»CLADAT EQU *«, t00=0x00f2, t01=0x0070}
0x17a6a…17aa2 Head {h00=0x0034, h01=0x0050, text=» LD A8,T:ATOD,A13 SET POINTER TO LENGTH INT:ATAB«, t00=0x00f2, t01=0x0084}
0x17aa2…17abe Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f2, t01=0x00bc}
0x17abe…17ae4 Head {h00=0x0022, h01=0x0050, text=»SYA250 CM UWB,A13 INDICATE CWB«, t00=0x00f2, t01=0x00d8}
0x17ae4…17b10 Head {h00=0x0028, h01=0x0050, text=» ADKL A8,2 STEP TO NEXT T:A ADDRESS «, t00=0x00f2, t01=0x00fe}
0x17b10…17b2a Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x00f2, t01=0x012a}
0x17b2a…17b4e Head {h00=0x0020, h01=0x0050, text=» RF(E) SYA270 ALL T:A'S DONE«, t00=0x00f2, t01=0x0144}
0x17b4e…17b7a Head {h00=0x0028, h01=0x0050, text=» CALL T:DADD GET T:D ADDRESS TO A12 «, t00=0x00f2, t01=0x0168}
0x17b7a…17b82 (243, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x00f3, t01=0x0004}
0x17b82…17ba4 Head {h00=0x001e, h01=0x0050, text=»* CALCULATE LENGTH OF T:D «, t00=0x00f3, t01=0x000c}
0x17ba4…17bac Head {h00=0x0004, h01=0x0050, t00=0x00f3, t01=0x002e}
0x17bac…17be2 Head {h00=0x0032, h01=0x0050, text=» LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB«, t00=0x00f3, t01=0x0036}
0x17be2…17bf4 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00f3, t01=0x006c}
0x17bf4…17c18 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE EVEN ADDRESS «, t00=0x00f3, t01=0x007e}
0x17c18…17c44 Head {h00=0x0028, h01=0x0050, text=» ADK A1,DWBFST+4 ADD DISPL. TO FIRST«, t00=0x00f3, t01=0x00a2}
0x17c44…17c72 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A1 GET NUMBER OF START-POINTS «, t00=0x00f3, t01=0x00ce}
0x17c72…17c96 Head {h00=0x0020, h01=0x0050, text=» ADR A3,A12 ADD T:D-ADDRESS «, t00=0x00f3, t01=0x00fc}
0x17c96…17cac Head {h00=0x0012, h01=0x0050, text=» LDR* A3,A3 . «, t00=0x00f3, t01=0x0120}
0x17cac…17ce0 Head {h00=0x0030, h01=0x0050, text=» LDK A2,STPREC GET STARTPOINTS RECORD LENGTH«, t00=0x00f3, t01=0x0136}
0x17ce0…17d00 Head {h00=0x001c, h01=0x0050, text=» CALL MULT AND MULTIPLY «, t00=0x00f3, t01=0x016a}
0x17d00…17d20 Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 'NUMBER-WORD' «, t00=0x00f3, t01=0x018a}
0x17d20…17d3c Head {h00=0x0018, h01=0x0050, text=» ADR A3,A1 =>LENGTH «, t00=0x00f4, t01=0x001a}
0x17d3c…17d5c Head {h00=0x001c, h01=0x0050, text=» LDR A1,A12 FROM-ADDRESS«, t00=0x00f4, t01=0x0036}
0x17d5c…17d7a Head {h00=0x001a, h01=0x0050, text=» CALL MOVING MOVE T:D «, t00=0x00f4, t01=0x0056}
0x17d7a…17d9e Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A ADDRESS «, t00=0x00f4, t01=0x0074}
0x17d9e…17dcc Head {h00=0x002a, h01=0x0050, text=» ST A2,T:DAD,A1 STORE NEW T:D ADDRESS «, t00=0x00f4, t01=0x0098}
0x17dcc…17df2 Head {h00=0x0022, h01=0x0050, text=» LD A7,CWBMSK,A12 GET CWBMASK «, t00=0x00f4, t01=0x00c6}
0x17df2…17dfe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f4, t01=0x00ec}
0x17dfe…17e1a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f4, t01=0x00f8}
0x17e1a…17e46 Head {h00=0x0028, h01=0x0050, text=»* INITIATE MM-ADDRESS TABLE POINTER «, t00=0x00f4, t01=0x0114}
0x17e46…17e4e Head {h00=0x0004, h01=0x0050, t00=0x00f4, t01=0x0140}
0x17e4e…17e76 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTSFA SHADOW TABLE START«, t00=0x00f4, t01=0x0148}
0x17e76…17ea0 Head {h00=0x0026, h01=0x0050, text=» AD* A1,SCTSFA ADDRESS TABLE START«, t00=0x00f4, t01=0x0170}
0x17ea0…17ebe Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE06,A13 SAVE«, t00=0x00f5, t01=0x000a}
0x17ebe…17ee4 Head {h00=0x0022, h01=0x0050, text=»SYA250 CM UWB,A13 INDICATE CWB«, t00=0x00f5, t01=0x0028}
0x17ee4…17f10 Head {h00=0x0028, h01=0x0050, text=» ADKL A8,2 STEP TO NEXT T:A ADDRESS «, t00=0x00f5, t01=0x004e}
0x17f10…17f2a Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x00f5, t01=0x007a}
0x17f2a…17f50 Head {h00=0x0022, h01=0x0050, text=» RF(E) SYA270 ALL T:A'S DONE! «, t00=0x00f5, t01=0x0094}
0x17f50…17f76 Head {h00=0x0022, h01=0x0050, text=» CALL GETTAB GET TTAB-ADDRESS «, t00=0x00f5, t01=0x00ba}
0x17f76…17f98 Head {h00=0x001e, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE«, t00=0x00f5, t01=0x00e0}
0x17f98…17fbe Head {h00=0x0022, h01=0x0050, text=»* FILL MM-TABLE ADDRESS TABLE «, t00=0x00f5, t01=0x0102}
0x17fbe…17fc6 Head {h00=0x0004, h01=0x0050, t00=0x00f5, t01=0x0128}
0x17fc6…17fe0 Head {h00=0x0016, h01=0x0050, text=» LD A1,SAVE06,A13 «, t00=0x00f5, t01=0x0130}
0x17fe0…1800a Head {h00=0x0026, h01=0x0050, text=» ADK A1,2 INCREMENT TABLE POINTER «, t00=0x00f5, t01=0x014a}
0x1800a…1802c Head {h00=0x001e, h01=0x0050, text=» ST A1,SAVE06,A13 RESTORE «, t00=0x00f5, t01=0x0174}
0x1802c…1804a Head {h00=0x001a, h01=0x0050, text=» STR A2,A1 FILL TABLE «, t00=0x00f6, t01=0x0008}
0x1804a…18076 Head {h00=0x0028, h01=0x0050, text=» CALL T:DADD GET T:D ADDRESS TO A12 «, t00=0x00f6, t01=0x0026}
0x18076…180ae Head {h00=0x0034, h01=0x0050, text=» ST A12,T:DSAV,A9 SAVE 'OLD' T:D-ADDRESS IN TTAB«, t00=0x00f6, t01=0x0052}
0x180ae…180b6 Head {h00=0x0004, h01=0x0050, t00=0x00f6, t01=0x008a}
0x180b6…180d8 Head {h00=0x001e, h01=0x0050, text=»* CALCULATE LENGTH OF T:D «, t00=0x00f6, t01=0x0092}
0x180d8…180e0 Head {h00=0x0004, h01=0x0050, t00=0x00f6, t01=0x00b4}
0x180e0…18116 Head {h00=0x0032, h01=0x0050, text=» EL A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB«, t00=0x00f6, t01=0x00bc}
0x18116…18128 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00f6, t01=0x00f2}
0x18128…1814c Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE EVEN ADDRESS «, t00=0x00f6, t01=0x0104}
0x1814c…18178 Head {h00=0x0028, h01=0x0050, text=» ADK A1,DWBFST+4 ADD DISPL. TO FIRST«, t00=0x00f6, t01=0x0128}
0x18178…181a8 Head {h00=0x002c, h01=0x0050, text=» LDR A3,A1 GET NUMB. OF START-POINTS... «, t00=0x00f6, t01=0x0154}
0x181a8…181be Head {h00=0x0012, h01=0x0050, text=» ADR A3,A12 . «, t00=0x00f6, t01=0x0184}
0x181be…181d2 Head {h00=0x0010, h01=0x0050, text=» ELR A3,A3 .«, t00=0x00f7, t01=0x000a}
0x181d2…18206 Head {h00=0x0030, h01=0x0050, text=» LDK A2,STPREC GET STARTPOINTS RECORD LENGTH«, t00=0x00f7, t01=0x001e}
0x18206…18226 Head {h00=0x001c, h01=0x0050, text=» CALL MULT AND MULTIPLY «, t00=0x00f7, t01=0x0052}
0x18226…18246 Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 'NUMBER-WORD' «, t00=0x00f7, t01=0x0072}
0x18246…18262 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A1 =>LENGTH «, t00=0x00f7, t01=0x0092}
0x18262…18282 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A12 FROM-ADDRESS«, t00=0x00f7, t01=0x00ae}
0x18282…182a0 Head {h00=0x001a, h01=0x0050, text=» CALL MOVING MOVE T:D «, t00=0x00f7, t01=0x00ce}
0x182a0…182c2 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A ADDRESS«, t00=0x00f7, t01=0x00ec}
0x182c2…182f0 Head {h00=0x002a, h01=0x0050, text=» ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS «, t00=0x00f7, t01=0x010e}
0x182f0…18316 Head {h00=0x0022, h01=0x0050, text=» EL A7,CWBMSK,A12 GET CWBMASK «, t00=0x00f7, t01=0x013c}
0x18316…18322 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f7, t01=0x0162}
0x18322…18338 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f7, t01=0x016e}
0x18338…1834c Head {h00=0x0010, h01=0x0050, text=» CALL MOVCLA«, t00=0x00f7, t01=0x0184}
0x1834c…1835a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f8, t01=0x0008}
0x1835a…18366 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f8, t01=0x0016}
0x18366…18372 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f8, t01=0x0022}
0x18372…18394 Head {h00=0x001e, h01=0x0050, text=»* TASK CLASS DATA UWB'S * «, t00=0x00f8, t01=0x002e}
0x18394…183b6 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x00f8, t01=0x0050}
0x183b6…183e0 Head {h00=0x0026, h01=0x0050, text=» IM UWB,A13 INDICATE UWB SCANNING «, t00=0x00f8, t01=0x0072}
0x183e0…183fc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f8, t01=0x009c}
0x183fc…18422 Head {h00=0x0022, h01=0x0050, text=» LD A7,UWBMSK,A12 GET UWBMASK «, t00=0x00f8, t01=0x00b8}
0x18422…1842e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f8, t01=0x00de}
0x1842e…1844a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f8, t01=0x00ea}
0x1844a…18464 Head {h00=0x0016, h01=0x0050, text=» EL A7,UWBMSK,A12 «, t00=0x00f8, t01=0x0106}
0x18464…18470 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f8, t01=0x0120}
0x18470…18486 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f8, t01=0x012c}
0x18486…1849a Head {h00=0x0010, h01=0x0050, text=» CALL MOVCLA«, t00=0x00f8, t01=0x0142}
0x1849a…184a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f8, t01=0x0156}
0x184a8…184b4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f8, t01=0x0164}
0x184b4…184c0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f8, t01=0x0170}
0x184c0…184e6 Head {h00=0x0022, h01=0x0050, text=»* MOVE DT:S OF SWB'S & TWB'S *«, t00=0x00f8, t01=0x017c}
0x184e6…1850c Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x00f9, t01=0x0012}
0x1850c…18514 Head {h00=0x0004, h01=0x0050, t00=0x00f9, t01=0x0038}
0x18514…18528 Head {h00=0x0010, h01=0x0050, text=»SYA260 EQU *«, t00=0x00f9, t01=0x0040}
0x18528…18544 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f9, t01=0x0054}
0x18544…1855e Head {h00=0x0016, h01=0x0050, text=» LD A7,SWBMSK,A12 «, t00=0x00f9, t01=0x0070}
0x1855e…18578 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA265 NONE«, t00=0x00f9, t01=0x008a}
0x18578…1858c Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00f9, t01=0x00a4}
0x1858c…185ac Head {h00=0x001c, h01=0x0050, text=»SYA265 LD A7,TWBMSK,A12 «, t00=0x00f9, t01=0x00b8}
0x185ac…185b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f9, t01=0x00d8}
0x185b8…185d4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f9, t01=0x00e4}
0x185d4…185ee Head {h00=0x0016, h01=0x0050, text=» EL A7,SWBMSK,A12 «, t00=0x00f9, t01=0x0100}
0x185ee…18608 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA265 NONE«, t00=0x00f9, t01=0x011a}
0x18608…1861c Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00f9, t01=0x0134}
0x1861c…1863c Head {h00=0x001c, h01=0x0050, text=»SYA265 EL A7,TWBMSK,A12 «, t00=0x00f9, t01=0x0148}
0x1863c…18648 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f9, t01=0x0168}
0x18648…1865e Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f9, t01=0x0174}
0x1865e…18674 Head {h00=0x0012, h01=0x0050, text=» RB(Z) SYA250 «, t00=0x00f9, t01=0x018a}
0x18674…18688 Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00fa, t01=0x0010}
0x18688…1869a Head {h00=0x000e, h01=0x0050, text=» RB SYA250«, t00=0x00fa, t01=0x0024}
0x1869a…186a6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fa, t01=0x0036}
0x186a6…186be Head {h00=0x0014, h01=0x0050, text=»SYA270 RF PRODAT«, t00=0x00fa, t01=0x0042}
0x186be…186cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fa, t01=0x005a}
0x186cc…186d8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fa, t01=0x0068}
0x186d8…186e4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fa, t01=0x0074}
0x186e4…1871c Head {h00=0x0034, h01=0x0050, text=»** S K R I T T ** «, t00=0x00fa, t01=0x0080}
0x1871c…18754 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x00fa, t01=0x00b8}
0x18754…1878c Head {h00=0x0034, h01=0x0050, text=»** MOVE D.T ** «, t00=0x00fa, t01=0x00f0}
0x1878c…187c4 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x00fa, t01=0x0128}
0x187c4…187fc Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00fa, t01=0x0160}
0x187fc…18810 Head {h00=0x0010, h01=0x0050, text=»SKRITT EQU *«, t00=0x00fb, t01=0x0008}
0x18810…18824 Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00fb, t01=0x001c}
0x18824…1883a Head {h00=0x0012, h01=0x0050, text=»NO RF(NZ) NES «, t00=0x00fb, t01=0x0030}
0x1883a…1884a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00fb, t01=0x0046}
0x1884a…18860 Head {h00=0x0012, h01=0x0050, text=»NES CALL GETWB«, t00=0x00fb, t01=0x0056}
0x18860…18874 Head {h00=0x0010, h01=0x0050, text=» CALL MOVDT «, t00=0x00fb, t01=0x006c}
0x18874…188a6 Head {h00=0x002e, h01=0x0050, text=» CM NEWAD2,A13 NO NEW W.B.-ADDRESS (YET!) «, t00=0x00fb, t01=0x0080}
0x188a6…188ba Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00fb, t01=0x00b2}
0x188ba…188ce Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x00fb, t01=0x00c6}
0x188ce…188dc Head {h00=0x000a, h01=0x0050, text=» RB NO«, t00=0x00fb, t01=0x00da}
0x188dc…188ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fb, t01=0x00e8}
0x188ea…188f6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fb, t01=0x00f6}
0x188f6…18920 Head {h00=0x0026, h01=0x0050, text=»* BUILD TASKDATA PROTOTYPE AREA * «, t00=0x00fb, t01=0x0102}
0x18920…1894a Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00fb, t01=0x012c}
0x1894a…1895e Head {h00=0x0010, h01=0x0050, text=»PRODAT EQU *«, t00=0x00fb, t01=0x0156}
0x1895e…18970 Head {h00=0x000e, h01=0x0050, text=» =00001«, t00=0x00fb, t01=0x016a}
0x18970…189a0 Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE02,A13 BUGGER TASK INCLUDED? «, t00=0x00fb, t01=0x017c}
0x189a0…189ba Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA275 NO! «, t00=0x00fc, t01=0x001c}
0x189ba…189f0 Head {h00=0x0032, h01=0x0050, text=» CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 «, t00=0x00fc, t01=0x0036}
0x189f0…18a1a Head {h00=0x0026, h01=0x0050, text=» CM TTB:PP,A2 CLEAR TCL SAVE AREA «, t00=0x00fc, t01=0x006c}
0x18a1a…18a3e Head {h00=0x0020, h01=0x0050, text=» IFT CREDIT+MMUPAG=2 =00001«, t00=0x00fc, t01=0x0096}
0x18a3e…18a60 Head {h00=0x001e, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE«, t00=0x00fc, t01=0x00ba}
0x18a60…18a76 Head {h00=0x0012, h01=0x0050, text=» XIF =00001 «, t00=0x00fc, t01=0x00dc}
0x18a76…18a94 Head {h00=0x001a, h01=0x0050, text=» IFF CREDIT=0 =00001 «, t00=0x00fc, t01=0x00f2}
0x18a94…18aa8 Head {h00=0x0010, h01=0x0050, text=»SYA275 EQU *«, t00=0x00fc, t01=0x0110}
0x18aa8…18aba Head {h00=0x000e, h01=0x0050, text=» =00001«, t00=0x00fc, t01=0x0124}
0x18aba…18acc Head {h00=0x000e, h01=0x0050, text=» =00001«, t00=0x00fc, t01=0x0136}
0x18acc…18b00 Head {h00=0x0030, h01=0x0050, text=» IM SWITCH,A13 INDICATE: -NO MORE D.T. MOVE!«, t00=0x00fc, t01=0x0148}
0x18b00…18b28 Head {h00=0x0024, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB ADDRESS«, t00=0x00fc, t01=0x017c}
0x18b28…18b40 Head {h00=0x0014, h01=0x0050, text=»SYA280 ADKL A8,2«, t00=0x00fd, t01=0x0014}
0x18b40…18b5a Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x00fd, t01=0x002c}
0x18b5a…18b78 Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA290 ALL DONE«, t00=0x00fd, t01=0x0046}
0x18b78…18b94 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00fd, t01=0x0064}
0x18b94…18bba Head {h00=0x0022, h01=0x0050, text=» LDR* A12,A8 GET T:D ADDRESS..«, t00=0x00fd, t01=0x0080}
0x18bba…18bd6 Head {h00=0x0018, h01=0x0050, text=» LD A12,T:DAD,A12 . «, t00=0x00fd, t01=0x00a6}
0x18bd6…18c0a Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x00fd, t01=0x00c2}
0x18c0a…18c16 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fd, t01=0x00f6}
0x18c16…18c3c Head {h00=0x0022, h01=0x0050, text=»* CALCULATE LENGTH OF DSCB'S *«, t00=0x00fd, t01=0x0102}
0x18c3c…18c62 Head {h00=0x0022, h01=0x0050, text=»*** ***«, t00=0x00fd, t01=0x0128}
0x18c62…18c6e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fd, t01=0x014e}
0x18c6e…18c92 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x00fd, t01=0x015a}
0x18c92…18cbc Head {h00=0x0026, h01=0x0050, text=» LD A3,DATLEN,A12 A12=T:D-ADDRESS «, t00=0x00fd, t01=0x017e}
0x18cbc…18cde Head {h00=0x001e, h01=0x0050, text=» LDK A2,DSCBL DSCB-LENGTH «, t00=0x00fe, t01=0x0018}
0x18cde…18d0a Head {h00=0x0028, h01=0x0050, text=» CALL MULT A3() X (A2) RESULT IN A3 «, t00=0x00fe, t01=0x003a}
0x18d0a…18d34 Head {h00=0x0026, h01=0x0050, text=» ST A3,CSN,A1 SAVE LENG OF DSCB'S «, t00=0x00fe, t01=0x0066}
0x18d34…18d60 Head {h00=0x0028, h01=0x0050, text=» LD A2,FCD,A12 GET FCB-DISPLACEMENT «, t00=0x00fe, t01=0x0090}
0x18d60…18d82 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SYA285 FCB PRESENT«, t00=0x00fe, t01=0x00bc}
0x18d82…18dac Head {h00=0x0026, h01=0x0050, text=» SUR A2,A3 MOVD30E A3(DSCB-LENGTH)«, t00=0x00fe, t01=0x00de}
0x18dac…18ddc Head {h00=0x002c, h01=0x0050, text=» ADKL A2,T:ASTA INCREMENT TO FIRST WORD «, t00=0x00fe, t01=0x0108}
0x18ddc…18e16 Head {h00=0x0036, h01=0x0050, text=»SYA285 ST A2,CIA,A1 SAVE DISPLACEMENT TO T:A-START«, t00=0x00fe, t01=0x0138}
0x18e16…18e3c Head {h00=0x0022, h01=0x0050, text=» LD A2,STKB,A1 GET STACK SIZE «, t00=0x00fe, t01=0x0172}
0x18e3c…18e64 Head {h00=0x0024, h01=0x0050, text=» ST A2,CSE,A1 AND SAVE TEMPORARY«, t00=0x00ff, t01=0x0008}
0x18e64…18e92 Head {h00=0x002a, h01=0x0050, text=» LD A2,SCTLAC GET START OF COMMON PART«, t00=0x00ff, t01=0x0030}
0x18e92…18eb4 Head {h00=0x001e, h01=0x0050, text=» LD A2,P:BAS,A2 GET P:BAS «, t00=0x00ff, t01=0x005e}
0x18eb4…18ed2 Head {h00=0x001a, h01=0x0050, text=» ST A2,CSB,A1 AND SAVE«, t00=0x00ff, t01=0x0080}
0x18ed2…18ef8 Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x00ff, t01=0x009e}
0x18ef8…18f16 Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x00ff, t01=0x00c4}
0x18f16…18f44 Head {h00=0x002a, h01=0x0050, text=» STR A2,A8 STORE NEW ADDRESS IN T:ATAB«, t00=0x00ff, t01=0x00e2}
0x18f44…18f50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ff, t01=0x0110}
0x18f50…18f6c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ff, t01=0x011c}
0x18f6c…18f9a Head {h00=0x002a, h01=0x0050, text=» CALL GETTAB SET CORRECT TTAB-ADDRESS «, t00=0x00ff, t01=0x0138}
0x18f9a…18fca Head {h00=0x002c, h01=0x0050, text=» LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS «, t00=0x00ff, t01=0x0166}
0x18fca…18fd2 Head {h00=0x0004, h01=0x0050, t00=0x0100, t01=0x0008}
0x18fd2…19008 Head {h00=0x0032, h01=0x0050, text=»* GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE «, t00=0x0100, t01=0x0010}
0x19008…19010 Head {h00=0x0004, h01=0x0050, t00=0x0100, t01=0x0046}
0x19010…1903c Head {h00=0x0028, h01=0x0050, text=» TL MMBEG,A2 LOAD CLASS LOCAL TABLE «, t00=0x0100, t01=0x004e}
0x1903c…1906a Head {h00=0x002a, h01=0x0050, text=» LDKL A3,MMTAB GET WORK TABLE ADDRESS «, t00=0x0100, t01=0x007a}
0x1906a…1907e Head {h00=0x0010, h01=0x0050, text=» ADR A3,A13 «, t00=0x0100, t01=0x00a8}
0x1907e…190a6 Head {h00=0x0024, h01=0x0050, text=» TSR A3 STORE TABLE IN WORK-AREA«, t00=0x0100, t01=0x00bc}
0x190a6…190ce Head {h00=0x0024, h01=0x0050, text=» TL MMDDIV,A13 RELOAD DDIV TABLE«, t00=0x0100, t01=0x00e4}
0x190ce…190ec Head {h00=0x001a, h01=0x0050, text=» CALL MMENT GET ENTRY «, t00=0x0100, t01=0x010c}
0x190ec…19112 Head {h00=0x0022, h01=0x0050, text=» ST A3,T:DSAV,A2 SAVE IN TTAB «, t00=0x0100, t01=0x012a}
0x19112…19146 Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x0100, t01=0x0150}
0x19146…1916c Head {h00=0x0022, h01=0x0050, text=»* CALCULATE LENGTH OF DSCB'S *«, t00=0x0100, t01=0x0184}
0x1916c…19192 Head {h00=0x0022, h01=0x0050, text=»*** ***«, t00=0x0101, t01=0x001a}
0x19192…1919e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0101, t01=0x0040}
0x1919e…191c0 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0101, t01=0x004c}
0x191c0…191ea Head {h00=0x0026, h01=0x0050, text=» EL A3,DATLEN,A12 A12=T:D-ADDRESS «, t00=0x0101, t01=0x006e}
0x191ea…1920c Head {h00=0x001e, h01=0x0050, text=» LDK A2,DSCBL DSCB-LENGTH «, t00=0x0101, t01=0x0098}
0x1920c…19238 Head {h00=0x0028, h01=0x0050, text=» CALL MULT A3() X (A2) RESULT IN A3 «, t00=0x0101, t01=0x00ba}
0x19238…19262 Head {h00=0x0026, h01=0x0050, text=» ES A3,CSN,A1 SAVE LENG OF DSCB'S «, t00=0x0101, t01=0x00e6}
0x19262…1928e Head {h00=0x0028, h01=0x0050, text=» EL A2,FCD,A12 GET FCB-DISPLACEMENT «, t00=0x0101, t01=0x0110}
0x1928e…192b0 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SYA285 FCB PRESENT«, t00=0x0101, t01=0x013c}
0x192b0…192da Head {h00=0x0026, h01=0x0050, text=» SUR A2,A3 MOVD30E A3(DSCB-LENGTH)«, t00=0x0101, t01=0x015e}
0x192da…1930a Head {h00=0x002c, h01=0x0050, text=» ADKL A2,T:ASTA INCREMENT TO FIRST WORD «, t00=0x0101, t01=0x0188}
0x1930a…19344 Head {h00=0x0036, h01=0x0050, text=»SYA285 ES A2,CIA,A1 SAVE DISPLACEMENT TO T:A-ESART«, t00=0x0102, t01=0x0028}
0x19344…1936a Head {h00=0x0022, h01=0x0050, text=» EL A2,STKB,A1 GET STACK SIZE «, t00=0x0102, t01=0x0062}
0x1936a…19394 Head {h00=0x0026, h01=0x0050, text=» ES A2,CSE,A1 AND SAVE (TEMPORARY)«, t00=0x0102, t01=0x0088}
0x19394…193be Head {h00=0x0026, h01=0x0050, text=» LD A2,SCTLAC GET START OF P:MTAB «, t00=0x0102, t01=0x00b2}
0x193be…193e6 Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 LOAD CORRECT TABLE«, t00=0x0102, t01=0x00dc}
0x193e6…19408 Head {h00=0x001e, h01=0x0050, text=» EL A2,P:BAS,A2 GET P:BAS «, t00=0x0102, t01=0x0104}
0x19408…19432 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD DDIV TABLE «, t00=0x0102, t01=0x0126}
0x19432…19450 Head {h00=0x001a, h01=0x0050, text=» ES A2,CSB,A1 AND SAVE«, t00=0x0102, t01=0x0150}
0x19450…19476 Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x0102, t01=0x016e}
0x19476…19494 (259, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x0103, t01=0x0004}
0x19494…194c2 Head {h00=0x002a, h01=0x0050, text=» ESR A2,A8 STORE NEW ADDRESS IN T:ATAB«, t00=0x0103, t01=0x0022}
0x194c2…194ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0103, t01=0x0050}
0x194ce…194e4 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0103, t01=0x005c}
0x194e4…194fc Head {h00=0x0014, h01=0x0050, text=» RB SYA280 NEXT «, t00=0x0103, t01=0x0072}
0x194fc…1950a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0103, t01=0x008a}
0x1950a…1951e Head {h00=0x0010, h01=0x0050, text=»SYA290 EQU *«, t00=0x0103, t01=0x0098}
0x1951e…19556 Head {h00=0x0034, h01=0x0050, text=» IM FLAG,A13 INDICATE REAL DATA-PART PROCESSING «, t00=0x0103, t01=0x00ac}
0x19556…19586 Head {h00=0x002c, h01=0x0050, text=»* INCLUDE DDIV AND PART 2.A IN FREE AREA«, t00=0x0103, t01=0x00e4}
0x19586…1958e Head {h00=0x0004, h01=0x0050, t00=0x0103, t01=0x0114}
0x1958e…195c0 Head {h00=0x002e, h01=0x0050, text=» LDKL A2,PART2A NEW (RELATIVE) END ADDRESS«, t00=0x0103, t01=0x011c}
0x195c0…195e0 Head {h00=0x001c, h01=0x0050, text=» ADR A2,A13 ABSOLUT DITO«, t00=0x0103, t01=0x014e}
0x195e0…195fc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0103, t01=0x016e}
0x195fc…1960e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0103, t01=0x018a}
0x1960e…19624 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/F000«, t00=0x0104, t01=0x000c}
0x19624…1964c Head {h00=0x0024, h01=0x0050, text=» SRL A3,2 GET NEW PHYSICALL PAGE«, t00=0x0104, t01=0x0022}
0x1964c…1966a Head {h00=0x001a, h01=0x0050, text=» ST A3,FSTPAG,A13 SAVE«, t00=0x0104, t01=0x004a}
0x1966a…19696 Head {h00=0x0028, h01=0x0050, text=» ANKL A2,/FFF GET NEW PAGE INCREMENT«, t00=0x0104, t01=0x0068}
0x19696…196b4 Head {h00=0x001a, h01=0x0050, text=» ST A2,FSTADR,A13 SAVE«, t00=0x0104, t01=0x0094}
0x196b4…196ca Head {h00=0x0012, h01=0x0050, text=»* MOVE T:ATAB «, t00=0x0104, t01=0x00b2}
0x196ca…196d2 Head {h00=0x0004, h01=0x0050, t00=0x0104, t01=0x00c8}
0x196d2…19700 Head {h00=0x002a, h01=0x0050, text=» LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS«, t00=0x0104, t01=0x00d0}
0x19700…1970c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0104, t01=0x00fe}
0x1970c…19728 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0104, t01=0x010a}
0x19728…19756 Head {h00=0x002a, h01=0x0050, text=» ST A2,DATEND,A13 SAVE NEW END ADDRESS«, t00=0x0104, t01=0x0126}
0x19756…1976c Head {h00=0x0012, h01=0x0050, text=»* MOVE T:ATAB «, t00=0x0104, t01=0x0154}
0x1976c…19774 Head {h00=0x0004, h01=0x0050, t00=0x0104, t01=0x016a}
0x19774…197a6 Head {h00=0x002e, h01=0x0050, text=» LD A2,T:ATNW,A13 GET REAL T:A-TAB ADDRESS«, t00=0x0104, t01=0x0172}
0x197a6…197c6 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A2 REAL LENGTH «, t00=0x0105, t01=0x0014}
0x197c6…197ee Head {h00=0x0024, h01=0x0050, text=» ADR A2,A1 END OF TABLE ADDRESS «, t00=0x0105, t01=0x0034}
0x197ee…1980c Head {h00=0x001a, h01=0x0050, text=» ST A2,ENDADD,A13 SAVE«, t00=0x0105, t01=0x005c}
0x1980c…19836 Head {h00=0x0026, h01=0x0050, text=» LD A1,T:ATOD,A13 GET FROM-ADDRESS«, t00=0x0105, t01=0x007a}
0x19836…19856 Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A1 MOVE-LENGTH «, t00=0x0105, t01=0x00a4}
0x19856…19874 Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x0105, t01=0x00c4}
0x19874…19892 Head {h00=0x001a, h01=0x0050, text=» ST A2,T:ATOD,A13 SAVE«, t00=0x0105, t01=0x00e2}
0x19892…198a4 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0105, t01=0x0100}
0x198a4…198b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0105, t01=0x0112}
0x198b0…198cc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0105, t01=0x011e}
0x198cc…198f4 Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 LOAD CORRECT TABLE«, t00=0x0105, t01=0x013a}
0x198f4…1991e Head {h00=0x0026, h01=0x0050, text=» ELR A1,A2 GET REAL T:ATAB LENGTH «, t00=0x0105, t01=0x0162}
0x1991e…19942 Head {h00=0x0020, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE«, t00=0x0105, t01=0x018c}
0x19942…19960 Head {h00=0x001a, h01=0x0050, text=» ADR A2,A1 END ADDRESS«, t00=0x0106, t01=0x0020}
0x19960…19998 Head {h00=0x0034, h01=0x0050, text=» ST A2,ENDADD,A13 SAVE 'END-OF-T:ATAB-CONDITION'«, t00=0x0106, t01=0x003e}
0x19998…199c6 Head {h00=0x002a, h01=0x0050, text=» LD A1,T:ATOD,A13 GET PROTOTYP T:ATAB «, t00=0x0106, t01=0x0076}
0x199c6…199e4 Head {h00=0x001a, h01=0x0050, text=» ELR A3,A1 GET LENGTH «, t00=0x0106, t01=0x00a4}
0x199e4…19a02 Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x0106, t01=0x00c2}
0x19a02…19a20 Head {h00=0x001a, h01=0x0050, text=» ST A2,T:ATOD,A13 SAVE«, t00=0x0106, t01=0x00e0}
0x19a20…19a34 Head {h00=0x0010, h01=0x0050, text=» CALL XMOVE «, t00=0x0106, t01=0x00fe}
0x19a34…19a40 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0106, t01=0x0112}
0x19a40…19a56 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0106, t01=0x011e}
0x19a56…19a5e Head {h00=0x0004, h01=0x0050, t00=0x0106, t01=0x0134}
0x19a5e…19a7e Head {h00=0x001c, h01=0x0050, text=»* CONTINUE IN PART 2.B *«, t00=0x0106, t01=0x013c}
0x19a7e…19a86 Head {h00=0x0004, h01=0x0050, t00=0x0106, t01=0x015c}
0x19a86…19ab4 Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PART2B RELATIVE START ADDRESS«, t00=0x0106, t01=0x0164}
0x19ab4…19ad8 (263, 0, 398) Head {h00=0x0020, h01=0x0050, text=» ADR A5,A13 ADD BASE ADDRESS«, t00=0x0107, t01=0x0004}
0x19ad8…19ae8 Head {h00=0x000c, h01=0x0050, text=» ABR A5 «, t00=0x0107, t01=0x0028}
0x19ae8…19b12 Head {h00=0x0026, h01=0x0050, text=»LENGT2 EQU *-REL LENGTH OF PART 2 «, t00=0x0107, t01=0x0038}
0x19b12…19b20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0107, t01=0x0062}
0x19b20…19b2c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0107, t01=0x0070}
0x19b2c…19b38 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0107, t01=0x007c}
0x19b38…19b6e Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0107, t01=0x0088}
0x19b6e…19ba4 Head {h00=0x0032, h01=0x0050, text=»******* ******* «, t00=0x0107, t01=0x00be}
0x19ba4…19bda Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x0107, t01=0x00f4}
0x19bda…19c10 Head {h00=0x0032, h01=0x0050, text=»* SYSLOAD PART 1 * «, t00=0x0107, t01=0x012a}
0x19c10…19c46 Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x0107, t01=0x0160}
0x19c46…19c7c Head {h00=0x0032, h01=0x0050, text=»***** ***** «, t00=0x0108, t01=0x0008}
0x19c7c…19cb2 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0108, t01=0x003e}
0x19cb2…19cbe Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0108, t01=0x0074}
0x19cbe…19cf4 Head {h00=0x0032, h01=0x0050, text=»* READ CONFIGURATION FILE & BUILD * «, t00=0x0108, t01=0x0080}
0x19cf4…19d2a Head {h00=0x0032, h01=0x0050, text=»* SHADOW-TABLES * «, t00=0x0108, t01=0x00b6}
0x19d2a…19d60 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0108, t01=0x00ec}
0x19d60…19d96 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0108, t01=0x0122}
0x19d96…19da2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0108, t01=0x0158}
0x19da2…19dae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0108, t01=0x0164}
0x19dae…19dba Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0108, t01=0x0170}
0x19dba…19dc6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0108, t01=0x017c}
0x19dc6…19df4 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0108, t01=0x0188}
0x19df4…19e22 Head {h00=0x002a, h01=0x0050, text=»*** *** «, t00=0x0109, t01=0x0026}
0x19e22…19e50 Head {h00=0x002a, h01=0x0050, text=»** S U B R O U T I N E S ** «, t00=0x0109, t01=0x0054}
0x19e50…19e7c Head {h00=0x0028, h01=0x0050, text=»** -USED IN THIS PART ONLY *«, t00=0x0109, t01=0x0082}
0x19e7c…19eaa Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0109, t01=0x00ae}
0x19eaa…19eb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0109, t01=0x00dc}
0x19eb8…19ec4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0109, t01=0x00ea}
0x19ec4…19ed0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0109, t01=0x00f6}
0x19ed0…19f0a Head {h00=0x0036, h01=0x0050, text=»** C O N V R T **«, t00=0x0109, t01=0x0102}
0x19f0a…19f44 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0109, t01=0x013c}
0x19f44…19f7e Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0109, t01=0x0176}
0x19f7e…19fb8 Head {h00=0x0036, h01=0x0050, text=»** CONVERSION OF TWO ASCII-DIGITS TO BINARY **«, t00=0x010a, t01=0x0020}
0x19fb8…19ff2 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x010a, t01=0x005a}
0x19ff2…1a02c Head {h00=0x0036, h01=0x0050, text=»** INPUT : A5=ASCII DIGITS **«, t00=0x010a, t01=0x0094}
0x1a02c…1a066 Head {h00=0x0036, h01=0x0050, text=»** OUTPUT: A1=BINARY RESULT **«, t00=0x010a, t01=0x00ce}
0x1a066…1a0a0 Head {h00=0x0036, h01=0x0050, text=»** WORK.REGS: A3,A2 **«, t00=0x010a, t01=0x0108}
0x1a0a0…1a0da Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x010a, t01=0x0142}
0x1a0da…1a0e6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010a, t01=0x017c}
0x1a0e6…1a0fa Head {h00=0x0010, h01=0x0050, text=»CONVRT EQU *«, t00=0x010a, t01=0x0188}
0x1a0fa…1a11c Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 CLEAR RESULT REG«, t00=0x010b, t01=0x000c}
0x1a11c…1a12e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x010b, t01=0x002e}
0x1a12e…1a14a Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 GET TEN'S «, t00=0x010b, t01=0x0040}
0x1a14a…1a15e Head {h00=0x0010, h01=0x0050, text=» SUK A3,/30 «, t00=0x010b, t01=0x005c}
0x1a15e…1a170 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x010b, t01=0x0070}
0x1a170…1a18e Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 MULT BY 10 «, t00=0x010b, t01=0x0082}
0x1a18e…1a1a2 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A1 .«, t00=0x010b, t01=0x00a0}
0x1a1a2…1a1b6 Head {h00=0x0010, h01=0x0050, text=» SLL A2,3 . «, t00=0x010b, t01=0x00b4}
0x1a1b6…1a1ce Head {h00=0x0014, h01=0x0050, text=» ADR A1,A2 .... «, t00=0x010b, t01=0x00c8}
0x1a1ce…1a1e0 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x010b, t01=0x00e0}
0x1a1e0…1a1fc Head {h00=0x0018, h01=0x0050, text=» ANK A3,/F GET ONE'S«, t00=0x010b, t01=0x00f2}
0x1a1fc…1a20e Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x010b, t01=0x010e}
0x1a20e…1a21e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x010b, t01=0x0120}
0x1a21e…1a22c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010b, t01=0x0130}
0x1a22c…1a234 Head {h00=0x0004, h01=0x0050, t00=0x010b, t01=0x013e}
0x1a234…1a26e Head {h00=0x0036, h01=0x0050, text=»** N X T B L K **«, t00=0x010b, t01=0x0146}
0x1a26e…1a2a8 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x010b, t01=0x0180}
0x1a2a8…1a2e2 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x010c, t01=0x002a}
0x1a2e2…1a31c Head {h00=0x0036, h01=0x0050, text=»** SKIP TO NEXT BLOCK IN CONFIGURATION FILE **«, t00=0x010c, t01=0x0064}
0x1a31c…1a356 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x010c, t01=0x009e}
0x1a356…1a390 Head {h00=0x0036, h01=0x0050, text=»** INPUT: A11=ADDRESS TO CURRENT BLOCK-START **«, t00=0x010c, t01=0x00d8}
0x1a390…1a3ca Head {h00=0x0036, h01=0x0050, text=»** OUTPUT:A11=ADDRESS TO NEXT BLOCK **«, t00=0x010c, t01=0x0112}
0x1a3ca…1a404 Head {h00=0x0036, h01=0x0050, text=»** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE **«, t00=0x010c, t01=0x014c}
0x1a404…1a43e Head {h00=0x0036, h01=0x0050, text=»** WORKREGS: A1,A3-A5 **«, t00=0x010c, t01=0x0186}
0x1a43e…1a478 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x010d, t01=0x0030}
0x1a478…1a480 Head {h00=0x0004, h01=0x0050, t00=0x010d, t01=0x006a}
0x1a480…1a494 Head {h00=0x0010, h01=0x0050, text=»NXTBLK EQU *«, t00=0x010d, t01=0x0072}
0x1a494…1a4ce Head {h00=0x0036, h01=0x0050, text=» ADKL A11,TDBNC NUMBER OF TERMINAL DEVICE CLASSES «, t00=0x010d, t01=0x0086}
0x1a4ce…1a504 Head {h00=0x0032, h01=0x0050, text=»NXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK «, t00=0x010d, t01=0x00c0}
0x1a504…1a518 Head {h00=0x0010, h01=0x0050, text=» LCR A5,A11 «, t00=0x010d, t01=0x00f6}
0x1a518…1a52a Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x010d, t01=0x010a}
0x1a52a…1a53e Head {h00=0x0010, h01=0x0050, text=» LC A5,1,A11«, t00=0x010d, t01=0x011c}
0x1a53e…1a552 Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x010d, t01=0x0130}
0x1a552…1a568 Head {h00=0x0012, h01=0x0050, text=» LDK A2,TDBREC«, t00=0x010d, t01=0x0144}
0x1a568…1a57a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x010d, t01=0x015a}
0x1a57a…1a58c Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x010d, t01=0x016c}
0x1a58c…1a5a0 Head {h00=0x0010, h01=0x0050, text=» ADR A11,A3 «, t00=0x010d, t01=0x017e}
0x1a5a0…1a5b4 (270, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x010e, t01=0x0004}
0x1a5b4…1a5e8 Head {h00=0x0030, h01=0x0050, text=» LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES«, t00=0x010e, t01=0x0018}
0x1a5e8…1a5fa Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x010e, t01=0x004c}
0x1a5fa…1a60e Head {h00=0x0010, h01=0x0050, text=» LC A5,1,A11«, t00=0x010e, t01=0x005e}
0x1a60e…1a622 Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x010e, t01=0x0072}
0x1a622…1a652 Head {h00=0x002c, h01=0x0050, text=» LDK A2,SDC SPEC. DEV. CL. RECORD LENGTH«, t00=0x010e, t01=0x0086}
0x1a652…1a664 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x010e, t01=0x00b6}
0x1a664…1a676 Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x010e, t01=0x00c8}
0x1a676…1a698 Head {h00=0x001e, h01=0x0050, text=» ADR A11,A3 A11=NEXT BLOCK«, t00=0x010e, t01=0x00da}
0x1a698…1a6ac Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x010e, t01=0x00fc}
0x1a6ac…1a6d4 Head {h00=0x0024, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCK TYPE «, t00=0x010e, t01=0x0110}
0x1a6d4…1a6e4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x010e, t01=0x0138}
0x1a6e4…1a6f0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010e, t01=0x0148}
0x1a6f0…1a6fc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010e, t01=0x0154}
0x1a6fc…1a738 Head {h00=0x0038, h01=0x0050, text=»** G E T N U M **«, t00=0x010e, t01=0x0160}
0x1a738…1a774 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x010f, t01=0x000c}
0x1a774…1a7b0 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x010f, t01=0x0048}
0x1a7b0…1a7ec Head {h00=0x0038, h01=0x0050, text=»** CONVERT 3 ASCII-DIGITS TO BINARY **«, t00=0x010f, t01=0x0084}
0x1a7ec…1a828 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x010f, t01=0x00c0}
0x1a828…1a864 Head {h00=0x0038, h01=0x0050, text=»** INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER **«, t00=0x010f, t01=0x00fc}
0x1a864…1a8a0 Head {h00=0x0038, h01=0x0050, text=»** OUTPUT: A5=BINARY VALUE **«, t00=0x010f, t01=0x0138}
0x1a8a0…1a8dc Head {h00=0x0038, h01=0x0050, text=»** WORK.REGS: A2,A4 **«, t00=0x010f, t01=0x0174}
0x1a8dc…1a918 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0110, t01=0x0020}
0x1a918…1a924 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0110, t01=0x005c}
0x1a924…1a938 Head {h00=0x0010, h01=0x0050, text=»GETNUM EQU *«, t00=0x0110, t01=0x0068}
0x1a938…1a95c Head {h00=0x0020, h01=0x0050, text=» LDK A4,100 FIRST INCREMENT «, t00=0x0110, t01=0x007c}
0x1a95c…1a97e Head {h00=0x001e, h01=0x0050, text=» LDK A5,0 CLEAR RESULT REG«, t00=0x0110, t01=0x00a0}
0x1a97e…1a99c Head {h00=0x001a, h01=0x0050, text=» SUK A6,1 INIT POINTER«, t00=0x0110, t01=0x00c2}
0x1a99c…1a9be Head {h00=0x001e, h01=0x0050, text=»GET030 ADK A6,1 NEXT DIGIT«, t00=0x0110, t01=0x00e0}
0x1a9be…1a9da Head {h00=0x0018, h01=0x0050, text=» LCR A2,A6 GET CHAR «, t00=0x0110, t01=0x0102}
0x1a9da…1a9ec Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0110, t01=0x011e}
0x1a9ec…1aa04 Head {h00=0x0014, h01=0x0050, text=»GET050 SUK A2,1 «, t00=0x0110, t01=0x0130}
0x1aa04…1aa2a Head {h00=0x0022, h01=0x0050, text=» RF(N) GET100 THIS DIGIT READY«, t00=0x0110, t01=0x0148}
0x1aa2a…1aa48 Head {h00=0x001a, h01=0x0050, text=» ADR A5,A4 ACCUMULATE «, t00=0x0110, t01=0x016e}
0x1aa48…1aa5a Head {h00=0x000e, h01=0x0050, text=» RB GET050«, t00=0x0110, t01=0x018c}
0x1aa5a…1aa8a Head {h00=0x002c, h01=0x0050, text=»GET100 SUK A4,90 NEXT INCREMENT (TEN'S) «, t00=0x0111, t01=0x000e}
0x1aa8a…1aaa0 Head {h00=0x0012, h01=0x0050, text=» RB(P) GET030 «, t00=0x0111, t01=0x003e}
0x1aaa0…1aaca Head {h00=0x0026, h01=0x0050, text=» ADK A4,81 NEXT INCREMENT (ONE'S) «, t00=0x0111, t01=0x0054}
0x1aaca…1aaec Head {h00=0x001e, h01=0x0050, text=» RB(P) GET030 THIRD DIGIT «, t00=0x0111, t01=0x007e}
0x1aaec…1aafc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0111, t01=0x00a0}
0x1aafc…1ab0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0111, t01=0x00b0}
0x1ab0a…1ab12 Head {h00=0x0004, h01=0x0050, t00=0x0111, t01=0x00be}
0x1ab12…1ab36 Head {h00=0x0020, h01=0x0050, text=»* START OF PROGRAM PART 1 * «, t00=0x0111, t01=0x00c6}
0x1ab36…1ab3e Head {h00=0x0004, h01=0x0050, t00=0x0111, t01=0x00ea}
0x1ab3e…1ab76 Head {h00=0x0034, h01=0x0050, text=»* SAVE02=POINTER TO 1:ST USER TASK TTAB-ADDRESS «, t00=0x0111, t01=0x00f2}
0x1ab76…1ab9e Head {h00=0x0024, h01=0x0050, text=»* SAVE09=EXECUTION START ADDRESS«, t00=0x0111, t01=0x012a}
0x1ab9e…1abaa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0111, t01=0x0152}
0x1abaa…1abd0 Head {h00=0x0022, h01=0x0050, text=»SYSLDA EQU *-REL PROGRAM START«, t00=0x0111, t01=0x015e}
0x1abd0…1abda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0184}
0x1abda…1abf4 Head {h00=0x0016, h01=0x0050, text=»* INIT A15 STACK «, t00=0x0111, t01=0x018e}
0x1abf4…1abfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x0018}
0x1abfe…1ac14 Head {h00=0x0012, h01=0x0050, text=» LD A15,SCTSTB«, t00=0x0112, t01=0x0022}
0x1ac14…1ac28 Head {h00=0x0010, h01=0x0050, text=» SUKL A15,4 «, t00=0x0112, t01=0x0038}
0x1ac28…1ac30 Head {h00=0x0004, h01=0x0050, t00=0x0112, t01=0x004c}
0x1ac30…1ac5a Head {h00=0x0026, h01=0x0050, text=» LD A2,SCTLAC GET S:GTAB (IF ANY) «, t00=0x0112, t01=0x0054}
0x1ac5a…1ac70 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0112, t01=0x007e}
0x1ac70…1aca2 Head {h00=0x002e, h01=0x0050, text=» LD A2,CREID,A2 GET CREDIT IDENTIFICATION «, t00=0x0112, t01=0x0094}
0x1aca2…1acae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0112, t01=0x00c6}
0x1acae…1acc4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0112, t01=0x00d2}
0x1acc4…1acde Head {h00=0x0016, h01=0x0050, text=» TL MMTAB,A13 %%##«, t00=0x0112, t01=0x00e8}
0x1acde…1acf6 Head {h00=0x0014, h01=0x0050, text=» EL A2,CREID,A2 «, t00=0x0112, t01=0x0102}
0x1acf6…1ad02 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0112, t01=0x011a}
0x1ad02…1ad38 Head {h00=0x0032, h01=0x0050, text=» CM SWITCH,A13 RESET SAVE-AREAS USED IN SYSLDM«, t00=0x0112, t01=0x0126}
0x1ad38…1ad4c Head {h00=0x0010, h01=0x0050, text=» CM FLAG,A13«, t00=0x0112, t01=0x015c}
0x1ad4c…1ad74 Head {h00=0x0024, h01=0x0050, text=» CWK A2,'CR' CREDIT APPLICATION?«, t00=0x0112, t01=0x0170}
0x1ad74…1ada0 Head {h00=0x0028, h01=0x0050, text=» RF(E) SYA100 YES! START CONFIGURATE«, t00=0x0113, t01=0x0008}
0x1ada0…1adb6 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x0113, t01=0x0034}
0x1adb6…1adbe Head {h00=0x0004, h01=0x0050, t00=0x0113, t01=0x004a}
0x1adbe…1adde Head {h00=0x001c, h01=0x0050, text=»* ASSEMBLER APPLICATION «, t00=0x0113, t01=0x0052}
0x1adde…1ade6 Head {h00=0x0004, h01=0x0050, t00=0x0113, t01=0x0072}
0x1ade6…1ae06 Head {h00=0x001c, h01=0x0050, text=»* SWITCH TO LEVEL 0 ENB «, t00=0x0113, t01=0x007a}
0x1ae06…1ae0e Head {h00=0x0004, h01=0x0050, t00=0x0113, t01=0x009a}
0x1ae0e…1ae3a Head {h00=0x0028, h01=0x0050, text=» LDKL A4,SYA103 CONTINUATION ADDRESS«, t00=0x0113, t01=0x00a2}
0x1ae3a…1ae56 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A13 RELOCATE«, t00=0x0113, t01=0x00ce}
0x1ae56…1ae76 Head {h00=0x001c, h01=0x0050, text=» STR A4,A15 PUT ON STACK«, t00=0x0113, t01=0x00ea}
0x1ae76…1ae8c Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/00C0«, t00=0x0113, t01=0x010a}
0x1ae8c…1aeb0 Head {h00=0x0020, h01=0x0050, text=» STR A4,A15 PUT PSW ON STACK«, t00=0x0113, t01=0x0120}
0x1aeb0…1aec0 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0113, t01=0x0144}
0x1aec0…1aed8 Head {h00=0x0014, h01=0x0050, text=»SYA103 EQU *-REL«, t00=0x0113, t01=0x0154}
0x1aed8…1aee4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0113, t01=0x016c}
0x1aee4…1af00 Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x0113, t01=0x0178}
0x1af00…1af2c (276, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LDKL A4,MMTAB GET MM-TABLE ADDRESS «, t00=0x0114, t01=0x0004}
0x1af2c…1af48 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A13 RELOCATE«, t00=0x0114, t01=0x0030}
0x1af48…1af66 Head {h00=0x001a, h01=0x0050, text=» ST A4,MMFROM,A13 SAVE«, t00=0x0114, t01=0x004c}
0x1af66…1af92 Head {h00=0x0028, h01=0x0050, text=»* FILL MM-TABLES IN USER TASK TTAB'S«, t00=0x0114, t01=0x006a}
0x1af92…1af9a Head {h00=0x0004, h01=0x0050, t00=0x0114, t01=0x0096}
0x1af9a…1afc6 Head {h00=0x0028, h01=0x0050, text=» LD* A5,SCTTCT GET LENGTH OF TC:TAB «, t00=0x0114, t01=0x009e}
0x1afc6…1afee Head {h00=0x0024, h01=0x0050, text=» LD A6,SAVE02,A13 1:ST USER TASK«, t00=0x0114, t01=0x00ca}
0x1afee…1b006 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A6 SAVE «, t00=0x0114, t01=0x00f2}
0x1b006…1b03a Head {h00=0x0030, h01=0x0050, text=» SU A3,SCTTCT GET DISPLACEMENT TO 1:ST USER «, t00=0x0114, t01=0x010a}
0x1b03a…1b068 Head {h00=0x002a, h01=0x0050, text=» SUR A5,A3 => LENGTH OF TC:TAB TO SCAN«, t00=0x0114, t01=0x013e}
0x1b068…1b072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0114, t01=0x016c}
0x1b072…1b094 Head {h00=0x001e, h01=0x0050, text=»* INIT UNUSED MMU ENTRIES«, t00=0x0114, t01=0x0176}
0x1b094…1b09e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x0008}
0x1b09e…1b0b4 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FC00«, t00=0x0115, t01=0x0012}
0x1b0b4…1b0ca Head {h00=0x0012, h01=0x0050, text=» LDKL A2,MMTAB«, t00=0x0115, t01=0x0028}
0x1b0ca…1b0de Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x0115, t01=0x003e}
0x1b0de…1b0f8 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A2 =00002«, t00=0x0115, t01=0x0052}
0x1b0f8…1b10e Head {h00=0x0012, h01=0x0050, text=» SUKL A4,MMBEG«, t00=0x0115, t01=0x006c}
0x1b10e…1b124 Head {h00=0x0012, h01=0x0050, text=» AD A4,SCTMMC «, t00=0x0115, t01=0x0082}
0x1b124…1b13c Head {h00=0x0014, h01=0x0050, text=»SYA:10 CWR A4,A2«, t00=0x0115, t01=0x0098}
0x1b13c…1b152 Head {h00=0x0012, h01=0x0050, text=» RF(E) SYA105 «, t00=0x0115, t01=0x00b0}
0x1b152…1b164 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0115, t01=0x00c6}
0x1b164…1b176 Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x0115, t01=0x00d8}
0x1b176…1b188 Head {h00=0x000e, h01=0x0050, text=» RB SYA:10«, t00=0x0115, t01=0x00ea}
0x1b188…1b1a4 Head {h00=0x0018, h01=0x0050, text=»SYA105 SUK A5,2 ALL?«, t00=0x0115, t01=0x00fc}
0x1b1a4…1b1be Head {h00=0x0016, h01=0x0050, text=» RF(N) SYA107 YES!«, t00=0x0115, t01=0x0118}
0x1b1be…1b1de Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A6 TTAB-ADDRESS«, t00=0x0115, t01=0x0132}
0x1b1de…1b200 Head {h00=0x001e, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE«, t00=0x0115, t01=0x0152}
0x1b200…1b21c Head {h00=0x0018, h01=0x0050, text=» ADK A6,2 NEXT TTAB «, t00=0x0115, t01=0x0174}
0x1b21c…1b22e Head {h00=0x000e, h01=0x0050, text=» RB SYA105«, t00=0x0115, t01=0x0190}
0x1b22e…1b242 Head {h00=0x0010, h01=0x0050, text=»SYA107 EQU *«, t00=0x0116, t01=0x0012}
0x1b242…1b24e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0116, t01=0x0026}
0x1b24e…1b264 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x0116, t01=0x0032}
0x1b264…1b29a Head {h00=0x0032, h01=0x0050, text=» LD* A5,SAVE02,A13 1:ST USER TASK TTAB ADDRESS«, t00=0x0116, t01=0x0048}
0x1b29a…1b2cc Head {h00=0x002e, h01=0x0050, text=» LD A2,SAVE09,A13 EXECUTION START ADDRESS «, t00=0x0116, t01=0x007e}
0x1b2cc…1b2f8 Head {h00=0x0028, h01=0x0050, text=» AD A2,SCTLAC ADD RELOCATION ADDRESS«, t00=0x0116, t01=0x00b0}
0x1b2f8…1b318 Head {h00=0x001c, h01=0x0050, text=» LDK A3,0 SEGMENT NUMBER«, t00=0x0116, t01=0x00dc}
0x1b318…1b338 Head {h00=0x001c, h01=0x0050, text=» CF A15,ACTOT QUEUE TASK«, t00=0x0116, t01=0x00fc}
0x1b338…1b35e Head {h00=0x0022, h01=0x0050, text=» LDKL A1,FINISH END OF SYSLDA «, t00=0x0116, t01=0x011c}
0x1b35e…1b372 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A13 «, t00=0x0116, t01=0x0142}
0x1b372…1b382 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0116, t01=0x0156}
0x1b382…1b38e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0116, t01=0x0166}
0x1b38e…1b3a2 Head {h00=0x0010, h01=0x0050, text=»SYA100 EQU *«, t00=0x0116, t01=0x0172}
0x1b3a2…1b3b8 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0116, t01=0x0186}
0x1b3b8…1b3c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0117, t01=0x000c}
0x1b3c6…1b3d2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0117, t01=0x001a}
0x1b3d2…1b402 Head {h00=0x002c, h01=0x0050, text=»* READ CONFIG FILE AND BUILD SHADOWTABLE«, t00=0x0117, t01=0x0026}
0x1b402…1b40e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0117, t01=0x0056}
0x1b40e…1b442 Head {h00=0x0030, h01=0x0050, text=» CM SAVE02,A13 CLEAR 'BUGGER TASK INDICATOR'«, t00=0x0117, t01=0x0062}
0x1b442…1b45e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0117, t01=0x0096}
0x1b45e…1b488 Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTLAC GET START OF P:MTAB«, t00=0x0117, t01=0x00b2}
0x1b488…1b4b0 Head {h00=0x0024, h01=0x0050, text=» LD A12,T:ATAB,A2 T:ATAB ADDRESS«, t00=0x0117, t01=0x00dc}
0x1b4b0…1b4da Head {h00=0x0026, h01=0x0050, text=» SUKL A12,2 ADJUST FOR LENGTH-WORD«, t00=0x0117, t01=0x0104}
0x1b4da…1b4fa Head {h00=0x001c, h01=0x0050, text=» ST A12,T:ATOD,A13 SAVE «, t00=0x0117, t01=0x012e}
0x1b4fa…1b52a Head {h00=0x002c, h01=0x0050, text=» LD A4,U:BTAB,A2 GET U:BTAB FROM P:MTAB «, t00=0x0117, t01=0x014e}
0x1b52a…1b550 Head {h00=0x0022, h01=0x0050, text=» SUK A4,2 INCLUDE LENGTH-WORD «, t00=0x0117, t01=0x017e}
0x1b550…1b578 Head {h00=0x0024, h01=0x0050, text=» ST A4,U:BTOD,A13 SAVE IN SYSLDA«, t00=0x0118, t01=0x0014}
0x1b578…1b584 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0118, t01=0x003c}
0x1b584…1b5a0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x0118, t01=0x0048}
0x1b5a0…1b5cc Head {h00=0x0028, h01=0x0050, text=» LD A4,S:BTAB,A2 GET S:BTAB ADDRESS «, t00=0x0118, t01=0x0064}
0x1b5cc…1b5f4 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x0118, t01=0x0090}
0x1b5f4…1b612 Head {h00=0x001a, h01=0x0050, text=» ST A4,S:BTOD,A13 SAVE«, t00=0x0118, t01=0x00b8}
0x1b612…1b61e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0118, t01=0x00d6}
0x1b61e…1b63a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0118, t01=0x00e2}
0x1b63a…1b656 Head {h00=0x0018, h01=0x0050, text=»* T:ATAB PROCESSING:«, t00=0x0118, t01=0x00fe}
0x1b656…1b662 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0118, t01=0x011a}
0x1b662…1b684 Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A12 T:ATAB-LENGTH«, t00=0x0118, t01=0x0126}
0x1b684…1b69c Head {h00=0x0014, h01=0x0050, text=» LDR A3,A4 SAVE «, t00=0x0118, t01=0x0148}
0x1b69c…1b6ca Head {h00=0x002a, h01=0x0050, text=» AD A3,SCTSFA ADD MONITOR END ADDRESS «, t00=0x0118, t01=0x0160}
0x1b6ca…1b6e4 Head {h00=0x0016, h01=0x0050, text=»* CHECK ADDRESSES «, t00=0x0118, t01=0x018e}
0x1b6e4…1b6ec Head {h00=0x0004, h01=0x0050, t00=0x0119, t01=0x0018}
0x1b6ec…1b712 Head {h00=0x0022, h01=0x0050, text=» LDR A11,A3 END OF SHADOW-TAB «, t00=0x0119, t01=0x0020}
0x1b712…1b736 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A13 START OF SYSLDA «, t00=0x0119, t01=0x0046}
0x1b736…1b74a Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x0119, t01=0x006a}
0x1b74a…1b764 Head {h00=0x0016, h01=0x0050, text=» RF(L) SYA110 OK! «, t00=0x0119, t01=0x007e}
0x1b764…1b78a Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x0119, t01=0x0098}
0x1b78a…1b79e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0119, t01=0x00be}
0x1b79e…1b7ca Head {h00=0x0028, h01=0x0050, text=»SYA110 LDR A9,A2 GET P:MTAB ADDRESS «, t00=0x0119, t01=0x00d2}
0x1b7ca…1b7dc Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0119, t01=0x00fe}
0x1b7dc…1b800 Head {h00=0x0020, h01=0x0050, text=»* CLEAR T:ATAB SHADOW-TABLE:«, t00=0x0119, t01=0x0110}
0x1b800…1b80c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0119, t01=0x0134}
0x1b80c…1b826 Head {h00=0x0016, h01=0x0050, text=»ZERO SUK A3,2 NEXT«, t00=0x0119, t01=0x0140}
0x1b826…1b83e Head {h00=0x0014, h01=0x0050, text=» STR A2,A3 CLEAR«, t00=0x0119, t01=0x015a}
0x1b83e…1b858 Head {h00=0x0016, h01=0x0050, text=» CW A3,SCTSFA ALL?«, t00=0x0119, t01=0x0172}
0x1b858…1b870 Head {h00=0x0014, h01=0x0050, text=» RB(NE) ZERO NO!«, t00=0x0119, t01=0x018c}
0x1b870…1b896 Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 STORE TABLE LENGTH «, t00=0x011a, t01=0x0014}
0x1b896…1b8c2 Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 GET CONFIG START «, t00=0x011a, t01=0x003a}
0x1b8c2…1b8e8 Head {h00=0x0022, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCKTYPE«, t00=0x011a, t01=0x0066}
0x1b8e8…1b906 Head {h00=0x001a, h01=0x0050, text=» CCK A2,'TT' TASK DEF?«, t00=0x011a, t01=0x008c}
0x1b906…1b920 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA120 OK! «, t00=0x011a, t01=0x00aa}
0x1b920…1b944 Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP4 NO TASK PRESENT«, t00=0x011a, t01=0x00c4}
0x1b944…1b958 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011a, t01=0x00e8}
0x1b958…1b984 Head {h00=0x0028, h01=0x0050, text=»SYA120 LC A2,TDBMC+4,A11 GET TASK ID«, t00=0x011a, t01=0x00fc}
0x1b984…1b998 Head {h00=0x0010, h01=0x0050, text=» SLL A2,8 . «, t00=0x011a, t01=0x0128}
0x1b998…1b9b6 Head {h00=0x001a, h01=0x0050, text=» LC A2,TDBMC+5,A11 ...«, t00=0x011a, t01=0x013c}
0x1b9b6…1b9d8 Head {h00=0x001e, h01=0x0050, text=» CWK A2,'TB' BUGGER TASK? «, t00=0x011a, t01=0x015a}
0x1b9d8…1b9f2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYA125 NO!«, t00=0x011a, t01=0x017c}
0x1b9f2…1ba30 Head {h00=0x003a, h01=0x0050, text=» ST A2,SAVE02,A13 INDICATE BUGGER TASK PRESENT =00001 «, t00=0x011b, t01=0x0008}
0x1ba30…1ba56 Head {h00=0x0022, h01=0x0050, text=» RF SYA136 SKIP TO NEXT BLOCK «, t00=0x011b, t01=0x0046}
0x1ba56…1ba74 Head {h00=0x001a, h01=0x0050, text=»SYA125 LDR A8,A12 SAVE«, t00=0x011b, t01=0x006c}
0x1ba74…1ba96 Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A12 T:ATAB LENGTH«, t00=0x011b, t01=0x008a}
0x1ba96…1bab8 Head {h00=0x001e, h01=0x0050, text=»SYA130 ADKL A8,2 NEXT T:A «, t00=0x011b, t01=0x00ac}
0x1bab8…1badc Head {h00=0x0020, h01=0x0050, text=» LDR* A6,A8 GET T:A ADDRESS «, t00=0x011b, t01=0x00ce}
0x1badc…1baee Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x011b, t01=0x00f2}
0x1baee…1bb04 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA135«, t00=0x011b, t01=0x0104}
0x1bb04…1bb38 Head {h00=0x0030, h01=0x0050, text=» LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) «, t00=0x011b, t01=0x011a}
0x1bb38…1bb4c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011b, t01=0x014e}
0x1bb4c…1bb60 Head {h00=0x0010, h01=0x0050, text=»SYA135 EQU *«, t00=0x011b, t01=0x0162}
0x1bb60…1bb84 Head {h00=0x0020, h01=0x0050, text=» CW A2,T:ATID,A6 TID EQUAL? «, t00=0x011b, t01=0x0176}
0x1bb84…1bb9e Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA130 NO!«, t00=0x011c, t01=0x000a}
0x1bb9e…1bbc0 Head {h00=0x001e, h01=0x0050, text=» SUR* A4,A12 T:ATAB LENGTH«, t00=0x011c, t01=0x0024}
0x1bbc0…1bbcc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011c, t01=0x0046}
0x1bbcc…1bbe8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x011c, t01=0x0052}
0x1bbe8…1bc12 Head {h00=0x0026, h01=0x0050, text=» EL* A2,SCTLAC GET START OF P:MTAB«, t00=0x011c, t01=0x006e}
0x1bc12…1bc3a Head {h00=0x0024, h01=0x0050, text=» EL A12,T:ATAB,A2 T:ATAB ADDRESS«, t00=0x011c, t01=0x0098}
0x1bc3a…1bc62 Head {h00=0x0024, h01=0x0050, text=» SUKL A12,2 INCLUDE LENGTH WORD «, t00=0x011c, t01=0x00c0}
0x1bc62…1bc8c Head {h00=0x0026, h01=0x0050, text=» ST A12,T:ATOD,A13 SAVE IN SYSLDA «, t00=0x011c, t01=0x00e8}
0x1bc8c…1bcb4 Head {h00=0x0024, h01=0x0050, text=» EL A4,U:BTAB,A2 U:BTAB ADDRESS «, t00=0x011c, t01=0x0112}
0x1bcb4…1bcdc Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x011c, t01=0x013a}
0x1bcdc…1bd04 Head {h00=0x0024, h01=0x0050, text=» ST A4,U:BTOD,A13 SAVE IN SYSLDA«, t00=0x011c, t01=0x0162}
0x1bd04…1bd10 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011c, t01=0x018a}
0x1bd10…1bd2c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x011d, t01=0x0008}
0x1bd2c…1bd58 Head {h00=0x0028, h01=0x0050, text=» EL A4,S:BTAB,A2 GET S:BTAB ADDRESS «, t00=0x011d, t01=0x0024}
0x1bd58…1bd80 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x011d, t01=0x0050}
0x1bd80…1bd9e Head {h00=0x001a, h01=0x0050, text=» ST A4,S:BTOD,A13 SAVE«, t00=0x011d, t01=0x0078}
0x1bd9e…1bdaa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011d, t01=0x0096}
0x1bdaa…1bdc6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x011d, t01=0x00a2}
0x1bdc6…1bde2 Head {h00=0x0018, h01=0x0050, text=»* T:ATAB PROCESSING:«, t00=0x011d, t01=0x00be}
0x1bde2…1bdee Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011d, t01=0x00da}
0x1bdee…1be10 Head {h00=0x001e, h01=0x0050, text=» ELR A4,A12 T:ATAB-LENGTH «, t00=0x011d, t01=0x00e6}
0x1be10…1be28 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A4 SAVE «, t00=0x011d, t01=0x0108}
0x1be28…1be5c Head {h00=0x0030, h01=0x0050, text=» SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE«, t00=0x011d, t01=0x0120}
0x1be5c…1be8a Head {h00=0x002a, h01=0x0050, text=» AD A3,SCTSFA ADD MONITOR END ADDRESS «, t00=0x011d, t01=0x0154}
0x1be8a…1bea4 Head {h00=0x0016, h01=0x0050, text=»* CHECK ADDRESSES «, t00=0x011d, t01=0x0182}
0x1bea4…1beac Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x000c}
0x1beac…1bed4 Head {h00=0x0024, h01=0x0050, text=» LDR A11,A3 END OF SHADOW-TABLE «, t00=0x011e, t01=0x0014}
0x1bed4…1bef8 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A13 START OF SYSLDA «, t00=0x011e, t01=0x003c}
0x1bef8…1bf0c Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x011e, t01=0x0060}
0x1bf0c…1bf26 Head {h00=0x0016, h01=0x0050, text=» RF(L) SYA110 OK! «, t00=0x011e, t01=0x0074}
0x1bf26…1bf4c Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x011e, t01=0x008e}
0x1bf4c…1bf60 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011e, t01=0x00b4}
0x1bf60…1bf8c Head {h00=0x0028, h01=0x0050, text=»SYA110 LDR A9,A2 GET P:MTAB ADDRESS «, t00=0x011e, t01=0x00c8}
0x1bf8c…1bfb0 Head {h00=0x0020, h01=0x0050, text=»* CLEAR T:ATAB SHADOW-TABLE:«, t00=0x011e, t01=0x00f4}
0x1bfb0…1bfbc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011e, t01=0x0118}
0x1bfbc…1bfd8 Head {h00=0x0018, h01=0x0050, text=»SYA115 SUK A3,2 NEXT«, t00=0x011e, t01=0x0124}
0x1bfd8…1bfee Head {h00=0x0012, h01=0x0050, text=» CMR A3 CLEAR «, t00=0x011e, t01=0x0140}
0x1bfee…1c008 Head {h00=0x0016, h01=0x0050, text=» CW A3,SCTSFA ALL?«, t00=0x011e, t01=0x0156}
0x1c008…1c022 Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA115 NO!«, t00=0x011e, t01=0x0170}
0x1c022…1c048 Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 STORE TABLE LENGTH «, t00=0x011e, t01=0x018a}
0x1c048…1c074 Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 GET CONFIG START «, t00=0x011f, t01=0x0020}
0x1c074…1c09a Head {h00=0x0022, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCKTYPE«, t00=0x011f, t01=0x004c}
0x1c09a…1c0b8 Head {h00=0x001a, h01=0x0050, text=» CCK A2,'TT' TASK DEF?«, t00=0x011f, t01=0x0072}
0x1c0b8…1c0d2 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA120 OK! «, t00=0x011f, t01=0x0090}
0x1c0d2…1c0f6 Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP4 NO TASK PRESENT«, t00=0x011f, t01=0x00aa}
0x1c0f6…1c10a Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011f, t01=0x00ce}
0x1c10a…1c136 Head {h00=0x0028, h01=0x0050, text=»SYA120 LC A2,TDBMC+4,A11 GET TASK ID«, t00=0x011f, t01=0x00e2}
0x1c136…1c14a Head {h00=0x0010, h01=0x0050, text=» SLL A2,8 . «, t00=0x011f, t01=0x010e}
0x1c14a…1c168 Head {h00=0x001a, h01=0x0050, text=» LC A2,TDBMC+5,A11 ...«, t00=0x011f, t01=0x0122}
0x1c168…1c18a Head {h00=0x001e, h01=0x0050, text=» CWK A2,'TB' BUGGER TASK? «, t00=0x011f, t01=0x0140}
0x1c18a…1c1a4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYA125 NO!«, t00=0x011f, t01=0x0162}
0x1c1a4…1c1dc Head {h00=0x0034, h01=0x0050, text=» ST A2,SAVE02,A13 INDICATE 'BUGGER TASK PRESENT'«, t00=0x011f, t01=0x017c}
0x1c1dc…1c1fe Head {h00=0x001e, h01=0x0050, text=» RF SYA136 SKIP THIS BLOCK«, t00=0x0120, t01=0x0024}
0x1c1fe…1c21c Head {h00=0x001a, h01=0x0050, text=»SYA125 LDR A8,A12 SAVE«, t00=0x0120, t01=0x0046}
0x1c21c…1c23e Head {h00=0x001e, h01=0x0050, text=» ELR A4,A12 T:ATAB LENGTH «, t00=0x0120, t01=0x0064}
0x1c23e…1c260 Head {h00=0x001e, h01=0x0050, text=»SYA130 ADKL A8,2 NEXT T:A «, t00=0x0120, t01=0x0086}
0x1c260…1c282 Head {h00=0x001e, h01=0x0050, text=» ELR A6,A8 GET T:A ADDRESS«, t00=0x0120, t01=0x00a8}
0x1c282…1c294 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0120, t01=0x00ca}
0x1c294…1c2aa Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA135«, t00=0x0120, t01=0x00dc}
0x1c2aa…1c2da Head {h00=0x002c, h01=0x0050, text=» LDK A1,LMP5 NO PROT. FOUND (TID ERROR) «, t00=0x0120, t01=0x00f2}
0x1c2da…1c2ee Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0120, t01=0x0122}
0x1c2ee…1c302 Head {h00=0x0010, h01=0x0050, text=»SYA135 EQU *«, t00=0x0120, t01=0x0136}
0x1c302…1c324 Head {h00=0x001e, h01=0x0050, text=» EL A10,T:ATID,A6 GET TID «, t00=0x0120, t01=0x014a}
0x1c324…1c342 Head {h00=0x001a, h01=0x0050, text=» CWR A2,A10 TID EQUAL?«, t00=0x0120, t01=0x016c}
0x1c342…1c35c Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA130 NO!«, t00=0x0120, t01=0x018a}
0x1c35c…1c370 Head {h00=0x0010, h01=0x0050, text=» ELR A10,A12«, t00=0x0121, t01=0x0014}
0x1c370…1c392 Head {h00=0x001e, h01=0x0050, text=» SUR A4,A10 T:ATAB LENGTH «, t00=0x0121, t01=0x0028}
0x1c392…1c39e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0121, t01=0x004a}
0x1c39e…1c3b4 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0121, t01=0x0056}
0x1c3b4…1c3e6 Head {h00=0x002e, h01=0x0050, text=» NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB «, t00=0x0121, t01=0x006c}
0x1c3e6…1c412 Head {h00=0x0028, h01=0x0050, text=» LC A5,TDBNT,A11 GET NUMBER OF TASKS«, t00=0x0121, t01=0x009e}
0x1c412…1c424 Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0121, t01=0x00ca}
0x1c424…1c43e Head {h00=0x0016, h01=0x0050, text=» LC A5,TDBNT+1,A11«, t00=0x0121, t01=0x00dc}
0x1c43e…1c452 Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x0121, t01=0x00f6}
0x1c452…1c47e Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA START OF SHADOW TABLE «, t00=0x0121, t01=0x010a}
0x1c47e…1c490 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0121, t01=0x0136}
0x1c490…1c4ca Head {h00=0x0036, h01=0x0050, text=» ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE «, t00=0x0121, t01=0x0148}
0x1c4ca…1c4d6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0121, t01=0x0182}
0x1c4d6…1c4f2 Head {h00=0x0018, h01=0x0050, text=»* SKIP TO NEXT BLOCK«, t00=0x0121, t01=0x018e}
0x1c4f2…1c4fe Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0122, t01=0x001a}
0x1c4fe…1c518 Head {h00=0x0016, h01=0x0050, text=»SYA136 CALL NXTBLK«, t00=0x0122, t01=0x0026}
0x1c518…1c52c Head {h00=0x0010, h01=0x0050, text=»SYA137 EQU *«, t00=0x0122, t01=0x0040}
0x1c52c…1c540 Head {h00=0x0010, h01=0x0050, text=» CCK A2,'TT'«, t00=0x0122, t01=0x0054}
0x1c540…1c56a Head {h00=0x0026, h01=0x0050, text=» RB(E) SYA120 NEXT TASK DEF BLOCK «, t00=0x0122, t01=0x0068}
0x1c56a…1c57e Head {h00=0x0010, h01=0x0050, text=» CCK A2,'CC'«, t00=0x0122, t01=0x0092}
0x1c57e…1c594 Head {h00=0x0012, h01=0x0050, text=» RF(NE) SYA140«, t00=0x0122, t01=0x00a6}
0x1c594…1c5c2 Head {h00=0x002a, h01=0x0050, text=» ADKL A11,1 STEP TO NUMBER OF COM.DEV.«, t00=0x0122, t01=0x00bc}
0x1c5c2…1c5e6 Head {h00=0x0020, h01=0x0050, text=» CALL NXTCOM SKIP COMMON DEF«, t00=0x0122, t01=0x00ea}
0x1c5e6…1c600 Head {h00=0x0016, h01=0x0050, text=»SYA140 CCK A2,'UU'«, t00=0x0122, t01=0x010e}
0x1c600…1c620 Head {h00=0x001c, h01=0x0050, text=» RF(NE) SYA141 NO UWB'S «, t00=0x0122, t01=0x0128}
0x1c620…1c656 Head {h00=0x0032, h01=0x0050, text=» LD A8,U:BTOD,A13 GET MODIFIED U:BTAB ADDRESS «, t00=0x0122, t01=0x0148}
0x1c656…1c690 Head {h00=0x0036, h01=0x0050, text=» CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE «, t00=0x0122, t01=0x017e}
0x1c690…1c6a4 Head {h00=0x0010, h01=0x0050, text=»SYA141 EQU *«, t00=0x0123, t01=0x0028}
0x1c6a4…1c6b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0123, t01=0x003c}
0x1c6b0…1c6cc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0123, t01=0x0048}
0x1c6cc…1c6e0 Head {h00=0x0010, h01=0x0050, text=» LCR A2,A11 «, t00=0x0123, t01=0x0064}
0x1c6e0…1c6f4 Head {h00=0x0010, h01=0x0050, text=» CCK A2,'SS'«, t00=0x0123, t01=0x0078}
0x1c6f4…1c70a Head {h00=0x0012, h01=0x0050, text=» RF(NE) SYA152«, t00=0x0123, t01=0x008c}
0x1c70a…1c724 Head {h00=0x0016, h01=0x0050, text=» LD A8,S:BTOD,A13 «, t00=0x0123, t01=0x00a2}
0x1c724…1c738 Head {h00=0x0010, h01=0x0050, text=» CALL USWBTP«, t00=0x0123, t01=0x00bc}
0x1c738…1c744 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0123, t01=0x00d0}
0x1c744…1c75a Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0123, t01=0x00dc}
0x1c75a…1c76c Head {h00=0x000e, h01=0x0050, text=» RF SYA152«, t00=0x0123, t01=0x00f2}
0x1c76c…1c77a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0123, t01=0x0104}
0x1c77a…1c7ca Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0123, t01=0x0112}
0x1c7ca…1c81a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0123, t01=0x0162}
0x1c81a…1c86a Head {h00=0x004c, h01=0x0050, text=»* USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE * «, t00=0x0124, t01=0x0022}
0x1c86a…1c8ba Head {h00=0x004c, h01=0x0050, text=»* ================================================================= * «, t00=0x0124, t01=0x0072}
0x1c8ba…1c90a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0124, t01=0x00c2}
0x1c90a…1c95a Head {h00=0x004c, h01=0x0050, text=»* REFERENCED IN: SYSLDA * «, t00=0x0124, t01=0x0112}
0x1c95a…1c9aa Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0124, t01=0x0162}
0x1c9aa…1c9fa Head {h00=0x004c, h01=0x0050, text=»* ENTRY: A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE * «, t00=0x0125, t01=0x0022}
0x1c9fa…1ca4a Head {h00=0x004c, h01=0x0050, text=»* A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK * «, t00=0x0125, t01=0x0072}
0x1ca4a…1ca9a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0125, t01=0x00c2}
0x1ca9a…1caea Head {h00=0x004c, h01=0x0050, text=»* EXIT: * «, t00=0x0125, t01=0x0112}
0x1caea…1cb3a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0125, t01=0x0162}
0x1cb3a…1cb8a Head {h00=0x004c, h01=0x0050, text=»* WORK REGISTERS: * «, t00=0x0126, t01=0x0022}
0x1cb8a…1cbda Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0126, t01=0x0072}
0x1cbda…1cc2a Head {h00=0x004c, h01=0x0050, text=»* SUBROUTINES: GETNUM,ERROR * «, t00=0x0126, t01=0x00c2}
0x1cc2a…1cc7a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0126, t01=0x0112}
0x1cc7a…1ccca Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0126, t01=0x0162}
0x1ccca…1ccd2 Head {h00=0x0004, h01=0x0050, t00=0x0127, t01=0x0022}
0x1ccd2…1cce6 Head {h00=0x0010, h01=0x0050, text=»USWBTP EQU *«, t00=0x0127, t01=0x002a}
0x1cce6…1ccee Head {h00=0x0004, h01=0x0050, t00=0x0127, t01=0x003e}
0x1ccee…1ccfa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0127, t01=0x0046}
0x1ccfa…1cd16 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0127, t01=0x0052}
0x1cd16…1cd2a Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x0127, t01=0x006e}
0x1cd2a…1cd3e Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0127, t01=0x0082}
0x1cd3e…1cd6c Head {h00=0x002a, h01=0x0050, text=» CALL GETNUM PACK 3 DIG. RESULT IN A5 «, t00=0x0127, t01=0x0096}
0x1cd6c…1cd94 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A5 SAVE NUMBER OF UWB'S «, t00=0x0127, t01=0x00c4}
0x1cd94…1cda8 Head {h00=0x0010, h01=0x0050, text=»SYA142 EQU *«, t00=0x0127, t01=0x00ec}
0x1cda8…1cdbc Head {h00=0x0010, h01=0x0050, text=» LDR A12,A8 «, t00=0x0127, t01=0x0100}
0x1cdbc…1cde2 Head {h00=0x0022, h01=0x0050, text=» LDR* A3,A12 LENGTH OF U:BTAB «, t00=0x0127, t01=0x0114}
0x1cde2…1ce0e Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UDB RECORD «, t00=0x0127, t01=0x013a}
0x1ce0e…1ce22 Head {h00=0x0010, h01=0x0050, text=»SYA145 EQU *«, t00=0x0127, t01=0x0166}
0x1ce22…1ce56 Head {h00=0x0030, h01=0x0050, text=» LCR A2,A11 GET FIRST CHARACTER FROM CONFIG «, t00=0x0127, t01=0x017a}
0x1ce56…1ce68 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0128, t01=0x001e}
0x1ce68…1ce8a Head {h00=0x001e, h01=0x0050, text=» LC A2,1,A11 GET 2:ND CHAR«, t00=0x0128, t01=0x0030}
0x1ce8a…1cec4 Head {h00=0x0036, h01=0x0050, text=» CW A2,UPNAME,A12 COMPARE W. 1:ST WORD IN PROTOTYP«, t00=0x0128, t01=0x0052}
0x1cec4…1cef2 Head {h00=0x002a, h01=0x0050, text=» RF(E) FRSTOK FIRST TWO CHARACTERS OK!«, t00=0x0128, t01=0x008c}
0x1cef2…1cf26 Head {h00=0x0030, h01=0x0050, text=»SYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S «, t00=0x0128, t01=0x00ba}
0x1cf26…1cf3c Head {h00=0x0012, h01=0x0050, text=» RF(NN) SYA150«, t00=0x0128, t01=0x00ee}
0x1cf3c…1cf5e Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP6 UWB NOT FOUND«, t00=0x0128, t01=0x0104}
0x1cf5e…1cf72 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0128, t01=0x0126}
0x1cf72…1cf86 Head {h00=0x0010, h01=0x0050, text=»SYA150 EQU *«, t00=0x0128, t01=0x013a}
0x1cf86…1cfb2 Head {h00=0x0028, h01=0x0050, text=» ADKL A12,UP:REC ADD TO NEXT RECORD «, t00=0x0128, t01=0x014e}
0x1cfb2…1cfc4 Head {h00=0x000e, h01=0x0050, text=» RB SYA145«, t00=0x0128, t01=0x017a}
0x1cfc4…1cfec Head {h00=0x0024, h01=0x0050, text=»FRSTOK LC A2,2,A11 GET 3:RD CHAR«, t00=0x0128, t01=0x018c}
0x1cfec…1d008 Head {h00=0x0018, h01=0x0050, text=» CC A2,UPNAME+2,A12 «, t00=0x0129, t01=0x0024}
0x1d008…1d024 Head {h00=0x0018, h01=0x0050, text=» RB(NE) SYA147 .NEQ.«, t00=0x0129, t01=0x0040}
0x1d024…1d032 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0129, t01=0x005c}
0x1d032…1d03e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0129, t01=0x006a}
0x1d03e…1d05a Head {h00=0x0018, h01=0x0050, text=»* PROTOTYPE FOUND * «, t00=0x0129, t01=0x0076}
0x1d05a…1d066 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0129, t01=0x0092}
0x1d066…1d0a2 Head {h00=0x0038, h01=0x0050, text=» ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG«, t00=0x0129, t01=0x009e}
0x1d0a2…1d0b6 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0129, t01=0x00da}
0x1d0b6…1d0d2 Head {h00=0x0018, h01=0x0050, text=» CALL GETNUM CONVERT«, t00=0x0129, t01=0x00ee}
0x1d0d2…1d108 Head {h00=0x0032, h01=0x0050, text=» SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE)«, t00=0x0129, t01=0x010a}
0x1d108…1d13a Head {h00=0x002e, h01=0x0050, text=» SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE «, t00=0x0129, t01=0x0140}
0x1d13a…1d150 Head {h00=0x0012, h01=0x0050, text=» RB(P) SYA142 «, t00=0x0129, t01=0x0172}
0x1d150…1d16a Head {h00=0x0016, h01=0x0050, text=» ADKL A11,UDBFST-1«, t00=0x0129, t01=0x0188}
0x1d16a…1d17a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012a, t01=0x0012}
0x1d17a…1d186 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012a, t01=0x0022}
0x1d186…1d1a2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x012a, t01=0x002e}
0x1d1a2…1d1b6 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x012a, t01=0x004a}
0x1d1b6…1d1ca Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x012a, t01=0x005e}
0x1d1ca…1d1f8 Head {h00=0x002a, h01=0x0050, text=» CALL GETNUM PACK 3 DIG. RESULT IN A5 «, t00=0x012a, t01=0x0072}
0x1d1f8…1d220 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A5 SAVE NUMBER OF UWB'S «, t00=0x012a, t01=0x00a0}
0x1d220…1d234 Head {h00=0x0010, h01=0x0050, text=»SYA142 EQU *«, t00=0x012a, t01=0x00c8}
0x1d234…1d256 Head {h00=0x001e, h01=0x0050, text=» LDR A12,A8 START OF TABLE«, t00=0x012a, t01=0x00dc}
0x1d256…1d27a Head {h00=0x0020, h01=0x0050, text=» ELR A3,A12 LENGTH OF U:BTAB«, t00=0x012a, t01=0x00fe}
0x1d27a…1d2a6 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UDB RECORD «, t00=0x012a, t01=0x0122}
0x1d2a6…1d2ba Head {h00=0x0010, h01=0x0050, text=»SYA145 EQU *«, t00=0x012a, t01=0x014e}
0x1d2ba…1d2ee Head {h00=0x0030, h01=0x0050, text=» LCR A2,A11 GET FIRST CHARACTER FROM CONFIG «, t00=0x012a, t01=0x0162}
0x1d2ee…1d300 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x012b, t01=0x0008}
0x1d300…1d322 Head {h00=0x001e, h01=0x0050, text=» LC A2,1,A11 GET 2:ND CHAR«, t00=0x012b, t01=0x001a}
0x1d322…1d358 Head {h00=0x0032, h01=0x0050, text=» EL A10,UPNAME,A12 GET FIRST WORD IN PROTOTYPE«, t00=0x012b, t01=0x003c}
0x1d358…1d36c Head {h00=0x0010, h01=0x0050, text=» CWR A2,A10 «, t00=0x012b, t01=0x0072}
0x1d36c…1d390 Head {h00=0x0020, h01=0x0050, text=» RF(E) FRSTOK FIRST WORD OK!«, t00=0x012b, t01=0x0086}
0x1d390…1d3c4 Head {h00=0x0030, h01=0x0050, text=»SYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S «, t00=0x012b, t01=0x00aa}
0x1d3c4…1d3da Head {h00=0x0012, h01=0x0050, text=» RF(NN) SYA150«, t00=0x012b, t01=0x00de}
0x1d3da…1d3fc Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP6 UWB NOT FOUND«, t00=0x012b, t01=0x00f4}
0x1d3fc…1d410 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x012b, t01=0x0116}
0x1d410…1d424 Head {h00=0x0010, h01=0x0050, text=»SYA150 EQU *«, t00=0x012b, t01=0x012a}
0x1d424…1d450 Head {h00=0x0028, h01=0x0050, text=» ADKL A12,UP:REC ADD TO NEXT RECORD «, t00=0x012b, t01=0x013e}
0x1d450…1d462 Head {h00=0x000e, h01=0x0050, text=» RB SYA145«, t00=0x012b, t01=0x016a}
0x1d462…1d498 Head {h00=0x0032, h01=0x0050, text=»FRSTOK LC A10,2,A11 GET 3:RD CHAR FROM CONFIG «, t00=0x012b, t01=0x017c}
0x1d498…1d4cc Head {h00=0x0030, h01=0x0050, text=» EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY «, t00=0x012c, t01=0x0022}
0x1d4cc…1d4de Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x012c, t01=0x0056}
0x1d4de…1d4f4 Head {h00=0x0012, h01=0x0050, text=» ANKL A10,/FF «, t00=0x012c, t01=0x0068}
0x1d4f4…1d508 Head {h00=0x0010, h01=0x0050, text=» CWR A10,A2 «, t00=0x012c, t01=0x007e}
0x1d508…1d524 Head {h00=0x0018, h01=0x0050, text=» RB(NE) SYA147 .NEQ.«, t00=0x012c, t01=0x0092}
0x1d524…1d532 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012c, t01=0x00ae}
0x1d532…1d53e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x012c, t01=0x00bc}
0x1d53e…1d55a Head {h00=0x0018, h01=0x0050, text=»* PROTOTYPE FOUND * «, t00=0x012c, t01=0x00c8}
0x1d55a…1d576 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x012c, t01=0x00e4}
0x1d576…1d582 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x012c, t01=0x0100}
0x1d582…1d5be Head {h00=0x0038, h01=0x0050, text=» ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG«, t00=0x012c, t01=0x010c}
0x1d5be…1d5d2 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x012c, t01=0x0148}
0x1d5d2…1d5ee Head {h00=0x0018, h01=0x0050, text=» CALL GETNUM CONVERT«, t00=0x012c, t01=0x015c}
0x1d5ee…1d626 Head {h00=0x0034, h01=0x0050, text=» EL A10,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE«, t00=0x012c, t01=0x0178}
0x1d626…1d63e Head {h00=0x0014, h01=0x0050, text=» ANKL A10,/FF00 «, t00=0x012d, t01=0x0020}
0x1d63e…1d652 Head {h00=0x0010, h01=0x0050, text=» ORR A10,A5 «, t00=0x012d, t01=0x0038}
0x1d652…1d66e Head {h00=0x0018, h01=0x0050, text=» ES A10,UPNUMB-1,A12«, t00=0x012d, t01=0x004c}
0x1d66e…1d6a0 Head {h00=0x002e, h01=0x0050, text=» SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE «, t00=0x012d, t01=0x0068}
0x1d6a0…1d6b6 Head {h00=0x0012, h01=0x0050, text=» RB(P) SYA142 «, t00=0x012d, t01=0x009a}
0x1d6b6…1d6d0 Head {h00=0x0016, h01=0x0050, text=» ADKL A11,UDBFST-1«, t00=0x012d, t01=0x00b0}
0x1d6d0…1d6e0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012d, t01=0x00ca}
0x1d6e0…1d6ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012d, t01=0x00da}
0x1d6ec…1d702 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x012d, t01=0x00e6}
0x1d702…1d710 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012d, t01=0x00fc}
0x1d710…1d724 Head {h00=0x0010, h01=0x0050, text=»SYA152 EQU *«, t00=0x012d, t01=0x010a}
0x1d724…1d72c Head {h00=0x0004, h01=0x0050, t00=0x012d, t01=0x011e}
0x1d72c…1d756 Head {h00=0x0026, h01=0x0050, text=»* GET START OF SYSLOAD AFTER MOVE «, t00=0x012d, t01=0x0126}
0x1d756…1d762 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x012d, t01=0x0150}
0x1d762…1d76e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012d, t01=0x015c}
0x1d76e…1d78a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x012d, t01=0x0168}
0x1d78a…1d7ba Head {h00=0x002c, h01=0x0050, text=» LD* A7,T:ATOD,A13 GET LENGTH OF T:ATAB «, t00=0x012d, t01=0x0184}
0x1d7ba…1d7c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012e, t01=0x0024}
0x1d7c6…1d7e2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x012e, t01=0x0030}
0x1d7e2…1d80e Head {h00=0x0028, h01=0x0050, text=» EL* A7,T:ATOD,A13 GET T:ATAB LENGTH«, t00=0x012e, t01=0x004c}
0x1d80e…1d83c Head {h00=0x002a, h01=0x0050, text=» SLL A7,1 RESERVE FOR MM-ADDRESS-TABLE«, t00=0x012e, t01=0x0078}
0x1d83c…1d848 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012e, t01=0x00a6}
0x1d848…1d85e Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x012e, t01=0x00b2}
0x1d85e…1d892 Head {h00=0x0030, h01=0x0050, text=» AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE«, t00=0x012e, t01=0x00c8}
0x1d892…1d8a4 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x012e, t01=0x00fc}
0x1d8a4…1d8c8 Head {h00=0x0020, h01=0x0050, text=» ANKL A7,/FFFE EVEN ADDRESS «, t00=0x012e, t01=0x010e}
0x1d8c8…1d8d0 Head {h00=0x0004, h01=0x0050, t00=0x012e, t01=0x0132}
0x1d8d0…1d8ee Head {h00=0x001a, h01=0x0050, text=»* CALCULATE RELOCATION«, t00=0x012e, t01=0x013a}
0x1d8ee…1d8f6 Head {h00=0x0004, h01=0x0050, t00=0x012e, t01=0x0158}
0x1d8f6…1d90a Head {h00=0x0010, h01=0x0050, text=» LDR A2,A13 «, t00=0x012e, t01=0x0160}
0x1d90a…1d932 Head {h00=0x0024, h01=0x0050, text=» SUR A2,A7 MOVE-LENGTH (SYSLDA) «, t00=0x012e, t01=0x0174}
0x1d932…1d944 Head {h00=0x000e, h01=0x0050, text=» NGR A2,A2«, t00=0x012f, t01=0x000c}
0x1d944…1d97c Head {h00=0x0034, h01=0x0050, text=» ST A2,SAVE04,A13 SAVE NEW RELOCATION TEMPORARY «, t00=0x012f, t01=0x001e}
0x1d97c…1d998 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x012f, t01=0x0056}
0x1d998…1d9c2 Head {h00=0x0026, h01=0x0050, text=»* CREATE SYSLDA & DDIV MM-TABLE * «, t00=0x012f, t01=0x0072}
0x1d9c2…1d9ca Head {h00=0x0004, h01=0x0050, t00=0x012f, t01=0x009c}
0x1d9ca…1d9f0 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A7 TO-ADDRESS (SYSLDA)«, t00=0x012f, t01=0x00a4}
0x1d9f0…1da12 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/F000 FIRST PAGE «, t00=0x012f, t01=0x00ca}
0x1da12…1da3e Head {h00=0x0028, h01=0x0050, text=» ST A2,MMREL1,A13 SAVE PHYSICAL PAGE«, t00=0x012f, t01=0x00ec}
0x1da3e…1da64 Head {h00=0x0022, h01=0x0050, text=» SRL A2,2 SHIFT FOR MM-PAGING «, t00=0x012f, t01=0x0118}
0x1da64…1da7c Head {h00=0x0014, h01=0x0050, text=» LDKL A11,MMDDIV«, t00=0x012f, t01=0x013e}
0x1da7c…1daae Head {h00=0x002e, h01=0x0050, text=» ADR A11,A13 GET MM-TABLE START ADDRESSS= «, t00=0x012f, t01=0x0156}
0x1daae…1dacc Head {h00=0x001a, h01=0x0050, text=» LDK A3,16 SET COUNTER«, t00=0x012f, t01=0x0188}
0x1dacc…1daf8 Head {h00=0x0028, h01=0x0050, text=»SYA157 STR A2,A11 STORE PAGE-POINTER«, t00=0x0130, t01=0x0016}
0x1daf8…1db16 Head {h00=0x001a, h01=0x0050, text=» ADKL A11,2 NEXT ENTRY«, t00=0x0130, t01=0x0042}
0x1db16…1db3a Head {h00=0x0020, h01=0x0050, text=» ADKL A2,/400 PAGE INCREMENT«, t00=0x0130, t01=0x0060}
0x1db3a…1db50 Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 ALL?«, t00=0x0130, t01=0x0084}
0x1db50…1db6a Head {h00=0x0016, h01=0x0050, text=» RB(NZ) SYA157 NO!«, t00=0x0130, t01=0x009a}
0x1db6a…1db96 Head {h00=0x0028, h01=0x0050, text=» ANKL A7,/FFF GET DISPLACEM. IN PAGE«, t00=0x0130, t01=0x00b4}
0x1db96…1dba2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0130, t01=0x00e0}
0x1dba2…1dbb8 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0130, t01=0x00ec}
0x1dbb8…1dbec Head {h00=0x0030, h01=0x0050, text=» ST A7,SAVE12,A13 SAVE (LOGICAL) TO-ADDRESS «, t00=0x0130, t01=0x0102}
0x1dbec…1dc1e Head {h00=0x002e, h01=0x0050, text=» ADKL A7,LENGT2 ADD LEN. OF SYSLDA TO MOVE«, t00=0x0130, t01=0x0136}
0x1dc1e…1dc4e Head {h00=0x002c, h01=0x0050, text=» ST A7,SAVE03,A13 SAVE NEW DDIV ADDRESS «, t00=0x0130, t01=0x0168}
0x1dc4e…1dc62 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A7 «, t00=0x0131, t01=0x0008}
0x1dc62…1dc8a Head {h00=0x0024, h01=0x0050, text=»* CALCULATE DDIV FROM-ADDRESS * «, t00=0x0131, t01=0x001c}
0x1dc8a…1dc92 Head {h00=0x0004, h01=0x0050, t00=0x0131, t01=0x0044}
0x1dc92…1dcb2 Head {h00=0x001c, h01=0x0050, text=» LD A1,SCTLAC GET S:GTAB«, t00=0x0131, t01=0x004c}
0x1dcb2…1dce0 Head {h00=0x002a, h01=0x0050, text=» ST A1,SAVE13,A13 SAVE S:GTAB ADDRESS «, t00=0x0131, t01=0x006c}
0x1dce0…1dd0a Head {h00=0x0026, h01=0x0050, text=» ST A9,SCTLAC SAVE START OF P:MTAB«, t00=0x0131, t01=0x009a}
0x1dd0a…1dd26 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0131, t01=0x00c4}
0x1dd26…1dd52 Head {h00=0x0028, h01=0x0050, text=» LD A3,NUMSEG,A1 NUMBER OF SEGMENTS «, t00=0x0131, t01=0x00e0}
0x1dd52…1dd5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0131, t01=0x010c}
0x1dd5e…1dd7a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0131, t01=0x0118}
0x1dd7a…1dda6 Head {h00=0x0028, h01=0x0050, text=» EL A3,NUMSEG,A1 NUMBER OF SEGMENTS «, t00=0x0131, t01=0x0134}
0x1dda6…1ddb2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0131, t01=0x0160}
0x1ddb2…1ddc8 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0131, t01=0x016c}
0x1ddc8…1ddfa Head {h00=0x002e, h01=0x0050, text=» LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH«, t00=0x0131, t01=0x0182}
0x1ddfa…1de0c Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x0132, t01=0x0024}
0x1de0c…1de1e Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0132, t01=0x0036}
0x1de1e…1de48 Head {h00=0x0026, h01=0x0050, text=» ADK A1,NUMSEG+2 => START OF DDIV «, t00=0x0132, t01=0x0048}
0x1de48…1de7e Head {h00=0x0032, h01=0x0050, text=» LD A2,SAVE04,A13 GET NEW RELOCATION INCREMENT«, t00=0x0132, t01=0x0072}
0x1de7e…1deb2 Head {h00=0x0030, h01=0x0050, text=» ADS A2,M:REL,A13 AND ADJUST RELOCATION BASE«, t00=0x0132, t01=0x00a8}
0x1deb2…1dece Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0132, t01=0x00dc}
0x1dece…1ded6 Head {h00=0x0004, h01=0x0050, t00=0x0132, t01=0x00f8}
0x1ded6…1df08 Head {h00=0x002e, h01=0x0050, text=» ST A1,SAVE04,A13 SAVE DDIV 'FROM'-ADDRESS«, t00=0x0132, t01=0x0100}
0x1df08…1df14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0132, t01=0x0132}
0x1df14…1df30 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0132, t01=0x013e}
0x1df30…1df60 Head {h00=0x002c, h01=0x0050, text=» ST A1,SAVE04,A13 SAVE DDIV FROM-ADDRESS«, t00=0x0132, t01=0x015a}
0x1df60…1df6c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0132, t01=0x018a}
0x1df6c…1df82 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0133, t01=0x0008}
0x1df82…1dfa8 Head {h00=0x0022, h01=0x0050, text=» SUR A6,A1 RELOCATION FOR DDIV«, t00=0x0133, t01=0x001e}
0x1dfa8…1dfb6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0133, t01=0x0044}
0x1dfb6…1dfbe Head {h00=0x0004, h01=0x0050, t00=0x0133, t01=0x0052}
0x1dfbe…1dfca Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0133, t01=0x005a}
0x1dfca…1dfd6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0133, t01=0x0066}
0x1dfd6…1e00a Head {h00=0x0030, h01=0x0050, text=»* RELOCATE ADDRESSES IN T:ATAB AFTER MOVE * «, t00=0x0133, t01=0x0072}
0x1e00a…1e03c Head {h00=0x002e, h01=0x0050, text=»* CALCULATE TOTAL (=REAL) LENGTH * «, t00=0x0133, t01=0x00a6}
0x1e03c…1e06e Head {h00=0x002e, h01=0x0050, text=»* REMOVE NOT USED ENTRIES IN T:ATAB * «, t00=0x0133, t01=0x00d8}
0x1e06e…1e0a0 Head {h00=0x002e, h01=0x0050, text=»* A9=P:MTAB A6=MOVE-RELOC * «, t00=0x0133, t01=0x010a}
0x1e0a0…1e0d2 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0133, t01=0x013c}
0x1e0d2…1e0ee Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0133, t01=0x016e}
0x1e0ee…1e0f6 Head {h00=0x0004, h01=0x0050, t00=0x0133, t01=0x018a}
0x1e0f6…1e112 (308, 0, 398) Head {h00=0x0018, h01=0x0050, text=»* INITIATE POINTERS «, t00=0x0134, t01=0x0004}
0x1e112…1e11a Head {h00=0x0004, h01=0x0050, t00=0x0134, t01=0x0020}
0x1e11a…1e146 Head {h00=0x0028, h01=0x0050, text=» LD A8,T:ATOD,A13 GET T:ATAB ADDRESS«, t00=0x0134, t01=0x0028}
0x1e146…1e164 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A8 GET LENGTH«, t00=0x0134, t01=0x0054}
0x1e164…1e184 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A8 END OF T:ATAB«, t00=0x0134, t01=0x0072}
0x1e184…1e1a2 Head {h00=0x001a, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE«, t00=0x0134, t01=0x0092}
0x1e1a2…1e1d6 Head {h00=0x0030, h01=0x0050, text=» LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB«, t00=0x0134, t01=0x00b0}
0x1e1d6…1e1f6 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A5 2:ND POINTER «, t00=0x0134, t01=0x00e4}
0x1e1f6…1e220 Head {h00=0x0026, h01=0x0050, text=» LDR A2,A8 2:ND POINTER IN T:ATAB «, t00=0x0134, t01=0x0104}
0x1e220…1e24a Head {h00=0x0026, h01=0x0050, text=» LDK A3,2 SET 'NEW' T:ATAB COUNTER«, t00=0x0134, t01=0x012e}
0x1e24a…1e27c Head {h00=0x002e, h01=0x0050, text=» SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR«, t00=0x0134, t01=0x0158}
0x1e27c…1e284 Head {h00=0x0004, h01=0x0050, t00=0x0134, t01=0x018a}
0x1e284…1e29a (309, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* SCAN T:ATAB:«, t00=0x0135, t01=0x0004}
0x1e29a…1e2a2 Head {h00=0x0004, h01=0x0050, t00=0x0135, t01=0x001a}
0x1e2a2…1e2c8 Head {h00=0x0022, h01=0x0050, text=»SYA160 ADKL A8,2 TAKE NEXT T:A«, t00=0x0135, t01=0x0022}
0x1e2c8…1e2f0 Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 NEXT T:A IN SHADOW-TAB«, t00=0x0135, t01=0x0048}
0x1e2f0…1e30a Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x0135, t01=0x0070}
0x1e30a…1e328 Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA170 ALL DONE«, t00=0x0135, t01=0x008a}
0x1e328…1e344 Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A8 GET T:A «, t00=0x0135, t01=0x00a8}
0x1e344…1e372 Head {h00=0x002a, h01=0x0050, text=» LDR* A7,A5 GET CONTENTS OF SHADOW-TAB«, t00=0x0135, t01=0x00c4}
0x1e372…1e3a2 Head {h00=0x002c, h01=0x0050, text=» RB(Z) SYA160 THIS T:A IS NOT USED!!!!! «, t00=0x0135, t01=0x00f2}
0x1e3a2…1e3c8 Head {h00=0x0022, h01=0x0050, text=» ADR A11,A7 ACCUMULATE LENGTH «, t00=0x0135, t01=0x0122}
0x1e3c8…1e3f8 Head {h00=0x002c, h01=0x0050, text=» ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH «, t00=0x0135, t01=0x0148}
0x1e3f8…1e428 Head {h00=0x002c, h01=0x0050, text=» ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS«, t00=0x0135, t01=0x0178}
0x1e428…1e454 Head {h00=0x0028, h01=0x0050, text=» ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS«, t00=0x0136, t01=0x0018}
0x1e454…1e490 Head {h00=0x0038, h01=0x0050, text=» STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) «, t00=0x0136, t01=0x0044}
0x1e490…1e4b4 Head {h00=0x0020, h01=0x0050, text=» LDR* A10,A8 GET T:A-ADDRESS«, t00=0x0136, t01=0x0080}
0x1e4b4…1e4d0 Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x0136, t01=0x00a4}
0x1e4d0…1e502 Head {h00=0x002e, h01=0x0050, text=» STR A10,A2 STORE ADDR. (EV. ON NEW PLACE)«, t00=0x0136, t01=0x00c0}
0x1e502…1e524 Head {h00=0x001e, h01=0x0050, text=»* RELOCATE W.B.-ADDRESSES «, t00=0x0136, t01=0x00f2}
0x1e524…1e52c Head {h00=0x0004, h01=0x0050, t00=0x0136, t01=0x0114}
0x1e52c…1e554 Head {h00=0x0024, h01=0x0050, text=» LD A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x0136, t01=0x011c}
0x1e554…1e57c Head {h00=0x0024, h01=0x0050, text=» LD A7,WATLEN,A12 LENGTH OF WAT «, t00=0x0136, t01=0x0144}
0x1e57c…1e5ae Head {h00=0x002e, h01=0x0050, text=» ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS«, t00=0x0136, t01=0x016c}
0x1e5ae…1e5d2 Head {h00=0x0020, h01=0x0050, text=»SYA165 SUK A7,1 DEC. COUNTER«, t00=0x0137, t01=0x000e}
0x1e5d2…1e5f6 Head {h00=0x0020, h01=0x0050, text=» RB(N) SYA160 TAKE NEXT T:A «, t00=0x0137, t01=0x0032}
0x1e5f6…1e612 Head {h00=0x0018, h01=0x0050, text=» ADRS A6,A1 RELOCATE«, t00=0x0137, t01=0x0056}
0x1e612…1e61e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0137, t01=0x0072}
0x1e61e…1e63a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0137, t01=0x007e}
0x1e63a…1e642 Head {h00=0x0004, h01=0x0050, t00=0x0137, t01=0x009a}
0x1e642…1e65e Head {h00=0x0018, h01=0x0050, text=»* INITIATE POINTERS «, t00=0x0137, t01=0x00a2}
0x1e65e…1e666 Head {h00=0x0004, h01=0x0050, t00=0x0137, t01=0x00be}
0x1e666…1e686 Head {h00=0x001c, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB«, t00=0x0137, t01=0x00c6}
0x1e686…1e6a4 Head {h00=0x001a, h01=0x0050, text=» ELR A3,A8 GET LENGTH «, t00=0x0137, t01=0x00e6}
0x1e6a4…1e6c4 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A8 END OF T:ATAB«, t00=0x0137, t01=0x0104}
0x1e6c4…1e6e2 Head {h00=0x001a, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE«, t00=0x0137, t01=0x0124}
0x1e6e2…1e716 Head {h00=0x0030, h01=0x0050, text=» LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB«, t00=0x0137, t01=0x0142}
0x1e716…1e736 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A5 2:ND POINTER «, t00=0x0137, t01=0x0176}
0x1e736…1e760 Head {h00=0x0026, h01=0x0050, text=» LDR A2,A8 2:ND POINTER IN T:ATAB «, t00=0x0138, t01=0x0008}
0x1e760…1e78a Head {h00=0x0026, h01=0x0050, text=» LDK A3,2 SET 'NEW' T:ATAB COUNTER«, t00=0x0138, t01=0x0032}
0x1e78a…1e7bc Head {h00=0x002e, h01=0x0050, text=» SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR«, t00=0x0138, t01=0x005c}
0x1e7bc…1e7c4 Head {h00=0x0004, h01=0x0050, t00=0x0138, t01=0x008e}
0x1e7c4…1e7da Head {h00=0x0012, h01=0x0050, text=»* SCAN T:ATAB:«, t00=0x0138, t01=0x0096}
0x1e7da…1e7e2 Head {h00=0x0004, h01=0x0050, t00=0x0138, t01=0x00ac}
0x1e7e2…1e808 Head {h00=0x0022, h01=0x0050, text=»SYA160 ADKL A8,2 TAKE NEXT T:A«, t00=0x0138, t01=0x00b4}
0x1e808…1e830 Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 NEXT T:A IN SHADOW-TAB«, t00=0x0138, t01=0x00da}
0x1e830…1e84a Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x0138, t01=0x0102}
0x1e84a…1e868 Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA170 ALL DONE«, t00=0x0138, t01=0x011c}
0x1e868…1e882 Head {h00=0x0016, h01=0x0050, text=» ELR A1,A8 GET T:A«, t00=0x0138, t01=0x013a}
0x1e882…1e8b0 Head {h00=0x002a, h01=0x0050, text=» LDR* A7,A5 GET CONTENTS OF SHADOW-TAB«, t00=0x0138, t01=0x0154}
0x1e8b0…1e8e0 Head {h00=0x002c, h01=0x0050, text=» RB(Z) SYA160 THIS T:A IS NOT USED!!!!! «, t00=0x0138, t01=0x0182}
0x1e8e0…1e906 Head {h00=0x0022, h01=0x0050, text=» ADR A11,A7 ACCUMULATE LENGTH «, t00=0x0139, t01=0x0022}
0x1e906…1e936 Head {h00=0x002c, h01=0x0050, text=» ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH «, t00=0x0139, t01=0x0048}
0x1e936…1e966 Head {h00=0x002c, h01=0x0050, text=» ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS«, t00=0x0139, t01=0x0078}
0x1e966…1e992 Head {h00=0x0028, h01=0x0050, text=» ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS«, t00=0x0139, t01=0x00a8}
0x1e992…1e9ce Head {h00=0x0038, h01=0x0050, text=» STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) «, t00=0x0139, t01=0x00d4}
0x1e9ce…1e9f2 Head {h00=0x0020, h01=0x0050, text=» ELR A10,A8 GET T:A-ADDRESS «, t00=0x0139, t01=0x0110}
0x1e9f2…1ea0e Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x0139, t01=0x0134}
0x1ea0e…1ea40 Head {h00=0x002e, h01=0x0050, text=» ESR A10,A2 STORE ADDR. (EV. ON NEW PLACE)«, t00=0x0139, t01=0x0150}
0x1ea40…1ea62 Head {h00=0x001e, h01=0x0050, text=»* RELOCATE W.B.-ADDRESSES «, t00=0x0139, t01=0x0182}
0x1ea62…1ea6a Head {h00=0x0004, h01=0x0050, t00=0x013a, t01=0x0014}
0x1ea6a…1ea92 Head {h00=0x0024, h01=0x0050, text=» EL A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x013a, t01=0x001c}
0x1ea92…1eaba Head {h00=0x0024, h01=0x0050, text=» EL A7,WATLEN,A12 LENGTH OF WAT «, t00=0x013a, t01=0x0044}
0x1eaba…1eaec Head {h00=0x002e, h01=0x0050, text=» ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS«, t00=0x013a, t01=0x006c}
0x1eaec…1eb10 Head {h00=0x0020, h01=0x0050, text=»SYA165 SUK A7,1 DEC. COUNTER«, t00=0x013a, t01=0x009e}
0x1eb10…1eb34 Head {h00=0x0020, h01=0x0050, text=» RB(N) SYA160 TAKE NEXT T:A «, t00=0x013a, t01=0x00c2}
0x1eb34…1eb54 Head {h00=0x001c, h01=0x0050, text=» ELR A10,A1 GET ADDRESS «, t00=0x013a, t01=0x00e6}
0x1eb54…1eb70 Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x013a, t01=0x0106}
0x1eb70…1eb84 Head {h00=0x0010, h01=0x0050, text=» ESR A10,A1 «, t00=0x013a, t01=0x0122}
0x1eb84…1eb90 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013a, t01=0x0136}
0x1eb90…1eba6 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x013a, t01=0x0142}
0x1eba6…1ebc2 Head {h00=0x0018, h01=0x0050, text=» ADK A1,4 NEXT W.B. «, t00=0x013a, t01=0x0158}
0x1ebc2…1ebd4 Head {h00=0x000e, h01=0x0050, text=» RB SYA165«, t00=0x013a, t01=0x0174}
0x1ebd4…1ebdc Head {h00=0x0004, h01=0x0050, t00=0x013a, t01=0x0186}
0x1ebdc…1ebf0 Head {h00=0x0010, h01=0x0050, text=»SYA170 EQU *«, t00=0x013a, t01=0x018e}
0x1ebf0…1ec0e Head {h00=0x001a, h01=0x0050, text=» ST A6,MOVADD,A13 SAVE«, t00=0x013b, t01=0x0012}
0x1ec0e…1ec4a Head {h00=0x0038, h01=0x0050, text=» ST* A3,SCTSFA STORE NEW TABLE LENGTH IN SHADOW-TAB «, t00=0x013b, t01=0x0030}
0x1ec4a…1ec66 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x013b, t01=0x006c}
0x1ec66…1ec8e Head {h00=0x0024, h01=0x0050, text=» ES* A3,T:ATOD,A13 AND IN T:ATAB«, t00=0x013b, t01=0x0088}
0x1ec8e…1ec9a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013b, t01=0x00b0}
0x1ec9a…1ecb6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x013b, t01=0x00bc}
0x1ecb6…1ecde Head {h00=0x0024, h01=0x0050, text=» ST* A3,T:ATOD,A13 AND IN T:ATAB«, t00=0x013b, t01=0x00d8}
0x1ecde…1ecea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013b, t01=0x0100}
0x1ecea…1ed00 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x013b, t01=0x010c}
0x1ed00…1ed34 Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR «, t00=0x013b, t01=0x0122}
0x1ed34…1ed60 Head {h00=0x0028, h01=0x0050, text=» SLL A2,1 CALC. REAL LENGTH (BYTES) «, t00=0x013b, t01=0x0156}
0x1ed60…1ed72 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x013b, t01=0x0182}
0x1ed72…1eda6 (316, 0, 398) Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'S «, t00=0x013c, t01=0x0004}
0x1eda6…1edb2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x013c, t01=0x0038}
0x1edb2…1edc0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013c, t01=0x0044}
0x1edc0…1ede6 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x013c, t01=0x0052}
0x1ede6…1ee0e Head {h00=0x0024, h01=0x0050, text=»* RELOCATE ADDRESSES IN U:BTAB *«, t00=0x013c, t01=0x0078}
0x1ee0e…1ee36 Head {h00=0x0024, h01=0x0050, text=»* (REAL LENGTH=PROTOTYPE LEN.) *«, t00=0x013c, t01=0x00a0}
0x1ee36…1ee5e Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x013c, t01=0x00c8}
0x1ee5e…1ee66 Head {h00=0x0004, h01=0x0050, t00=0x013c, t01=0x00f0}
0x1ee66…1ee82 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x013c, t01=0x00f8}
0x1ee82…1eeaa Head {h00=0x0024, h01=0x0050, text=» LD A5,U:BTOD,A13 U:BTAB ADDRESS«, t00=0x013c, t01=0x0114}
0x1eeaa…1eec4 Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A5 LENGTH«, t00=0x013c, t01=0x013c}
0x1eec4…1eede Head {h00=0x0016, h01=0x0050, text=» ST A3,SAVE06,A13 «, t00=0x013c, t01=0x0156}
0x1eede…1ef00 Head {h00=0x001e, h01=0x0050, text=» ADK A5,2 SKIP LENGTH WORD«, t00=0x013c, t01=0x0170}
0x1ef00…1ef18 (317, 0, 400) Head {h00=0x0014, h01=0x0050, text=» SUK A3,2 -"- «, t00=0x013d, t01=0x0004}
0x1ef18…1ef3e Head {h00=0x0022, h01=0x0050, text=»SYA180 RF(Z) SYA185 ALL DONE! «, t00=0x013d, t01=0x001c}
0x1ef3e…1ef5a Head {h00=0x0018, h01=0x0050, text=» ADRS A6,A5 RELOCATE«, t00=0x013d, t01=0x0042}
0x1ef5a…1ef66 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013d, t01=0x005e}
0x1ef66…1ef82 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x013d, t01=0x006a}
0x1ef82…1efaa Head {h00=0x0024, h01=0x0050, text=» LD A5,U:BTOD,A13 U:BTAB ADDRESS«, t00=0x013d, t01=0x0086}
0x1efaa…1efca Head {h00=0x001c, h01=0x0050, text=» ELR A3,A5 TABLE LENGTH «, t00=0x013d, t01=0x00ae}
0x1efca…1effa Head {h00=0x002c, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB «, t00=0x013d, t01=0x00ce}
0x1effa…1f00c Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x013d, t01=0x00fe}
0x1f00c…1f02e Head {h00=0x001e, h01=0x0050, text=» SUK A3,2 SUB LENGTH-WORD «, t00=0x013d, t01=0x0110}
0x1f02e…1f04a Head {h00=0x0018, h01=0x0050, text=»SYA180 RF(Z) SYA185 «, t00=0x013d, t01=0x0132}
0x1f04a…1f06a Head {h00=0x001c, h01=0x0050, text=» ELR A10,A5 GET ADDRESS «, t00=0x013d, t01=0x014e}
0x1f06a…1f086 Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x013d, t01=0x016e}
0x1f086…1f09a Head {h00=0x0010, h01=0x0050, text=» ESR A10,A5 «, t00=0x013d, t01=0x018a}
0x1f09a…1f0a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013e, t01=0x000e}
0x1f0a6…1f0bc Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x013e, t01=0x001a}
0x1f0bc…1f0f8 Head {h00=0x0038, h01=0x0050, text=» ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP«, t00=0x013e, t01=0x0030}
0x1f0f8…1f10e Head {h00=0x0012, h01=0x0050, text=» SUK A3,UP:REC«, t00=0x013e, t01=0x006c}
0x1f10e…1f120 Head {h00=0x000e, h01=0x0050, text=» RB SYA180«, t00=0x013e, t01=0x0082}
0x1f120…1f12e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013e, t01=0x0094}
0x1f12e…1f142 Head {h00=0x0010, h01=0x0050, text=»SYA185 EQU *«, t00=0x013e, t01=0x00a2}
0x1f142…1f15e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x013e, t01=0x00b6}
0x1f15e…1f168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x00d2}
0x1f168…1f190 Head {h00=0x0024, h01=0x0050, text=»* COMPUTE REAL LENGTH OF S:BTAB«, t00=0x013e, t01=0x00dc}
0x1f190…1f19a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x0104}
0x1f19a…1f1c2 Head {h00=0x0024, h01=0x0050, text=» LD A5,S:BTOD,A13 S:BTAB ADDRESS«, t00=0x013e, t01=0x010e}
0x1f1c2…1f1e8 Head {h00=0x0022, h01=0x0050, text=» ELR A3,A5 LENGTH OF PROTOTYPE«, t00=0x013e, t01=0x0136}
0x1f1e8…1f200 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x013e, t01=0x015c}
0x1f200…1f226 Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 EXCLUDE LENGTH WORD «, t00=0x013e, t01=0x0174}
0x1f226…1f256 Head {h00=0x002c, h01=0x0050, text=»SYA190 RF(Z) SYA199 ALL RECORDS SCANNED!«, t00=0x013f, t01=0x000a}
0x1f256…1f27e Head {h00=0x0024, h01=0x0050, text=» EL A4,2,A5 GET PROT. W.B.-ADDR.«, t00=0x013f, t01=0x003a}
0x1f27e…1f29a Head {h00=0x0018, h01=0x0050, text=» ADR A4,A6 RELOCATE «, t00=0x013f, t01=0x0062}
0x1f29a…1f2bc Head {h00=0x001e, h01=0x0050, text=» ES A4,2,A5 STORE IT BACK «, t00=0x013f, t01=0x007e}
0x1f2bc…1f2ec Head {h00=0x002c, h01=0x0050, text=» EL A4,UPNUMB-1,A5 GET NUMBER OF COPIES «, t00=0x013f, t01=0x00a0}
0x1f2ec…1f30e Head {h00=0x001e, h01=0x0050, text=» ANK A4,/FF GET RIGHT BYTE«, t00=0x013f, t01=0x00d0}
0x1f30e…1f340 Head {h00=0x002e, h01=0x0050, text=»SYA192 RF(Z) SYA194 NO MOORE OF THIS TYPE!«, t00=0x013f, t01=0x00f2}
0x1f340…1f362 Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 INCREMENT LENGTH«, t00=0x013f, t01=0x0124}
0x1f362…1f38e Head {h00=0x0028, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF COPIES«, t00=0x013f, t01=0x0146}
0x1f38e…1f3a0 Head {h00=0x000e, h01=0x0050, text=» RB SYA192«, t00=0x013f, t01=0x0172}
0x1f3a0…1f3dc Head {h00=0x0038, h01=0x0050, text=»SYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE«, t00=0x013f, t01=0x0184}
0x1f3dc…1f404 Head {h00=0x0024, h01=0x0050, text=» SUK A3,UP:REC DECREMENT LENGTH «, t00=0x0140, t01=0x0030}
0x1f404…1f416 Head {h00=0x000e, h01=0x0050, text=» RB SYA190«, t00=0x0140, t01=0x0058}
0x1f416…1f422 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0140, t01=0x006a}
0x1f422…1f43e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x0140, t01=0x0076}
0x1f43e…1f466 Head {h00=0x0024, h01=0x0050, text=» LD A5,S:BTOD,A13 S:BTAB ADDRESS«, t00=0x0140, t01=0x0092}
0x1f466…1f494 Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE«, t00=0x0140, t01=0x00ba}
0x1f494…1f4ac Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x0140, t01=0x00e8}
0x1f4ac…1f4d2 Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 EXCLUDE LENGTH WORD «, t00=0x0140, t01=0x0100}
0x1f4d2…1f502 Head {h00=0x002c, h01=0x0050, text=»SYA195 RF(Z) SYA199 ALL RECORDS SCANNED!«, t00=0x0140, t01=0x0126}
0x1f502…1f52a Head {h00=0x0024, h01=0x0050, text=» LD A4,2,A5 GET PROT. W.B.-ADDR.«, t00=0x0140, t01=0x0156}
0x1f52a…1f546 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A6 RELOCATE «, t00=0x0140, t01=0x017e}
0x1f546…1f568 Head {h00=0x001e, h01=0x0050, text=» ST A4,2,A5 STORE IT BACK «, t00=0x0141, t01=0x000a}
0x1f568…1f598 Head {h00=0x002c, h01=0x0050, text=» LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES «, t00=0x0141, t01=0x002c}
0x1f598…1f5ac Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0141, t01=0x005c}
0x1f5ac…1f5de Head {h00=0x002e, h01=0x0050, text=»SYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE!«, t00=0x0141, t01=0x0070}
0x1f5de…1f600 Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 INCREMENT LENGTH«, t00=0x0141, t01=0x00a2}
0x1f600…1f62c Head {h00=0x0028, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF COPIES«, t00=0x0141, t01=0x00c4}
0x1f62c…1f63e Head {h00=0x000e, h01=0x0050, text=» RB SYA196«, t00=0x0141, t01=0x00f0}
0x1f63e…1f67a Head {h00=0x0038, h01=0x0050, text=»SYA198 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE«, t00=0x0141, t01=0x0102}
0x1f67a…1f6a2 Head {h00=0x0024, h01=0x0050, text=» SUK A3,UP:REC DECREMENT LENGTH «, t00=0x0141, t01=0x013e}
0x1f6a2…1f6b4 Head {h00=0x000e, h01=0x0050, text=» RB SYA195«, t00=0x0141, t01=0x0166}
0x1f6b4…1f6c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0141, t01=0x0178}
0x1f6c0…1f6dc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0141, t01=0x0184}
0x1f6dc…1f710 Head {h00=0x0030, h01=0x0050, text=»SYA199 ST A2,SAVE25,A13 SAVE COMPUTED LENGTH«, t00=0x0142, t01=0x0010}
0x1f710…1f71c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0142, t01=0x0044}
0x1f71c…1f732 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0142, t01=0x0050}
0x1f732…1f740 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0142, t01=0x0066}
0x1f740…1f748 Head {h00=0x0004, h01=0x0050, t00=0x0142, t01=0x0074}
0x1f748…1f782 Head {h00=0x0036, h01=0x0050, text=»* RELOCATE T:ATAB- AND U:BTAB-ADDRESSES IN P:MTAB «, t00=0x0142, t01=0x007c}
0x1f782…1f78e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0142, t01=0x00b6}
0x1f78e…1f7a8 Head {h00=0x0016, h01=0x0050, text=» ADS A6,T:ATOD,A13«, t00=0x0142, t01=0x00c2}
0x1f7a8…1f7c2 Head {h00=0x0016, h01=0x0050, text=» ADS A6,U:BTOD,A13«, t00=0x0142, t01=0x00dc}
0x1f7c2…1f7de Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0142, t01=0x00f6}
0x1f7de…1f7f8 Head {h00=0x0016, h01=0x0050, text=» ADS A6,S:BTOD,A13«, t00=0x0142, t01=0x0112}
0x1f7f8…1f804 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0142, t01=0x012c}
0x1f804…1f820 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0142, t01=0x0138}
0x1f820…1f840 Head {h00=0x001c, h01=0x0050, text=»* CALCULATE NEW DDIV END«, t00=0x0142, t01=0x0154}
0x1f840…1f848 Head {h00=0x0004, h01=0x0050, t00=0x0142, t01=0x0174}
0x1f848…1f85a Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x0142, t01=0x017c}
0x1f85a…1f87e Head {h00=0x0020, h01=0x0050, text=» SU A5,SAVE04,A13 END-START «, t00=0x0142, t01=0x018e}
0x1f87e…1f8a6 Head {h00=0x0024, h01=0x0050, text=» AD A5,SAVE12,A13 ADD NEW START «, t00=0x0143, t01=0x0022}
0x1f8a6…1f8c4 Head {h00=0x001a, h01=0x0050, text=» ST A5,DATEND,A13 SAVE«, t00=0x0143, t01=0x004a}
0x1f8c4…1f8d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0143, t01=0x0068}
0x1f8d0…1f8ec Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0143, t01=0x0074}
0x1f8ec…1f8f4 Head {h00=0x0004, h01=0x0050, t00=0x0143, t01=0x0090}
0x1f8f4…1f8fc Head {h00=0x0004, h01=0x0050, t00=0x0143, t01=0x0098}
0x1f8fc…1f91e Head {h00=0x001e, h01=0x0050, text=»* STORE MMTABLE ADDRESSES «, t00=0x0143, t01=0x00a0}
0x1f91e…1f926 Head {h00=0x0004, h01=0x0050, t00=0x0143, t01=0x00c2}
0x1f926…1f93c Head {h00=0x0012, h01=0x0050, text=» LDK A4,MMDDIV«, t00=0x0143, t01=0x00ca}
0x1f93c…1f962 Head {h00=0x0022, h01=0x0050, text=» ADR A4,A13 GET TABLE ADDRESS «, t00=0x0143, t01=0x00e0}
0x1f962…1f98c Head {h00=0x0026, h01=0x0050, text=» LDR A5,A13 CALC. REAL RELOCATION «, t00=0x0143, t01=0x0106}
0x1f98c…1f9a6 Head {h00=0x0016, h01=0x0050, text=» SU A5,SAVE12,A13 «, t00=0x0143, t01=0x0130}
0x1f9a6…1f9c0 Head {h00=0x0016, h01=0x0050, text=» SU A5,MMREL1,A13 «, t00=0x0143, t01=0x014a}
0x1f9c0…1f9dc Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 RELOCATE «, t00=0x0143, t01=0x0164}
0x1f9dc…1f9fc Head {h00=0x001c, h01=0x0050, text=» ST A4,MMTO,A13 AND SAVE«, t00=0x0143, t01=0x0180}
0x1f9fc…1fa12 Head {h00=0x0012, h01=0x0050, text=» LDK A4,MMTAB «, t00=0x0144, t01=0x0010}
0x1fa12…1fa3a Head {h00=0x0024, h01=0x0050, text=» ADR A4,A13 'WORK-TABLE' ADDRESS«, t00=0x0144, t01=0x0026}
0x1fa3a…1fa56 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 RELOCATE «, t00=0x0144, t01=0x004e}
0x1fa56…1fa70 Head {h00=0x0016, h01=0x0050, text=» ST A4,MMFROM,A13 «, t00=0x0144, t01=0x006a}
0x1fa70…1fa8c Head {h00=0x0018, h01=0x0050, text=»* CALCULATE DDIV END«, t00=0x0144, t01=0x0084}
0x1fa8c…1fa94 Head {h00=0x0004, h01=0x0050, t00=0x0144, t01=0x00a0}
0x1fa94…1fab0 Head {h00=0x0018, h01=0x0050, text=» LDR A5,A9 DDIV END «, t00=0x0144, t01=0x00a8}
0x1fab0…1fad4 Head {h00=0x0020, h01=0x0050, text=» SU A5,SAVE04,A13 ENT-START «, t00=0x0144, t01=0x00c4}
0x1fad4…1fafc Head {h00=0x0024, h01=0x0050, text=» AD A5,SAVE12,A13 ADD NEW START «, t00=0x0144, t01=0x00e8}
0x1fafc…1fb0e Head {h00=0x000e, h01=0x0050, text=» LDR A6,A5«, t00=0x0144, t01=0x0110}
0x1fb0e…1fb42 Head {h00=0x0030, h01=0x0050, text=» ANKL A6,/F000 GET LOGICALL PAGE (MM-ENTRY) «, t00=0x0144, t01=0x0122}
0x1fb42…1fb6a Head {h00=0x0024, h01=0x0050, text=» SRL A6,11 ADJUST FOR ADDRESSING«, t00=0x0144, t01=0x0156}
0x1fb6a…1fb9c Head {h00=0x002e, h01=0x0050, text=» ADK A6,MMDDIV ADD RELATIVE START ADDRESS «, t00=0x0144, t01=0x017e}
0x1fb9c…1fbb8 Head {h00=0x0018, h01=0x0050, text=» ADR A6,A13 RELOCATE«, t00=0x0145, t01=0x0020}
0x1fbb8…1fbe2 Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A6 GET MM-TABLE CONTENTS «, t00=0x0145, t01=0x003c}
0x1fbe2…1fc00 Head {h00=0x001a, h01=0x0050, text=» ST A6,FSTPAG,A13 SAVE«, t00=0x0145, t01=0x0066}
0x1fc00…1fc26 Head {h00=0x0022, h01=0x0050, text=» ANKL A5,/FFF GET DISPLACEMENT«, t00=0x0145, t01=0x0084}
0x1fc26…1fc48 Head {h00=0x001e, h01=0x0050, text=» ST A5,FSTADR,A13 AND SAVE«, t00=0x0145, t01=0x00aa}
0x1fc48…1fc54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0145, t01=0x00cc}
0x1fc54…1fc6a Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0145, t01=0x00d8}
0x1fc6a…1fc88 Head {h00=0x001a, h01=0x0050, text=»* CONTINUE IN PART 2 *«, t00=0x0145, t01=0x00ee}
0x1fc88…1fc94 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0145, t01=0x010c}
0x1fc94…1fcc6 Head {h00=0x002e, h01=0x0050, text=» LD A2,SAVE12,A13 GET TO-ADDRESS (SYSLDA) «, t00=0x0145, t01=0x0118}
0x1fcc6…1fcf2 Head {h00=0x0028, h01=0x0050, text=» OR A2,MMREL1,A13 PHYSICALL ADDRESS «, t00=0x0145, t01=0x014a}
0x1fcf2…1fd0a Head {h00=0x0014, h01=0x0050, text=» LDR A5,A2 SAVE «, t00=0x0145, t01=0x0176}
0x1fd0a…1fd3e Head {h00=0x0030, h01=0x0050, text=» LDKL A7,START2 GET EXECUTION START ADDRESS «, t00=0x0145, t01=0x018e}
0x1fd3e…1fd50 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A2«, t00=0x0146, t01=0x0032}
0x1fd50…1fd76 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,LENGT2 SYSLDA LENGTH «, t00=0x0146, t01=0x0044}
0x1fd76…1fd96 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A13 FROM-ADDRESS«, t00=0x0146, t01=0x006a}
0x1fd96…1fd9e Head {h00=0x0004, h01=0x0050, t00=0x0146, t01=0x008a}
0x1fd9e…1fdb6 Head {h00=0x0014, h01=0x0050, text=»* MOVE SYSLDA * «, t00=0x0146, t01=0x0092}
0x1fdb6…1fdbe Head {h00=0x0004, h01=0x0050, t00=0x0146, t01=0x00aa}
0x1fdbe…1fdda Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0146, t01=0x00b2}
0x1fdda…1fdfc Head {h00=0x001e, h01=0x0050, text=»NXTMOV LDR* A4,A1 GET WORD«, t00=0x0146, t01=0x00ce}
0x1fdfc…1fe1a Head {h00=0x001a, h01=0x0050, text=» STR A4,A2 STORE WORD «, t00=0x0146, t01=0x00f0}
0x1fe1a…1fe2c Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0146, t01=0x010e}
0x1fe2c…1fe3e Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0146, t01=0x0120}
0x1fe3e…1fe5c Head {h00=0x001a, h01=0x0050, text=» SUK A3,2 DEC. LENGTH «, t00=0x0146, t01=0x0132}
0x1fe5c…1fe72 Head {h00=0x0012, h01=0x0050, text=» RB(NN) NXTMOV«, t00=0x0146, t01=0x0150}
0x1fe72…1fe7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0146, t01=0x0166}
0x1fe7e…1fe9a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0146, t01=0x0172}
0x1fe9a…1feaa Head {h00=0x000c, h01=0x0050, text=» MVB A3 «, t00=0x0146, t01=0x018e}
0x1feaa…1feb6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0147, t01=0x000e}
0x1feb6…1fecc Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0147, t01=0x001a}
0x1fecc…1fed4 Head {h00=0x0004, h01=0x0050, t00=0x0147, t01=0x0030}
0x1fed4…1ff02 Head {h00=0x002a, h01=0x0050, text=» ABR A7 HEJ SVEJS! VI SES I PART 2... «, t00=0x0147, t01=0x0038}
0x1ff02…1ff0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0147, t01=0x0066}
0x1ff0e…1ff24 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0147, t01=0x0072}
0x1ff24…1ff3a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x0147, t01=0x0088}
0x1ff3a…1ff62 Head {h00=0x0024, h01=0x0050, text=» CALL ERROR INCONSISTENT MONITOR«, t00=0x0147, t01=0x009e}
0x1ff62…1ff6e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0147, t01=0x00c6}
0x1ff6e…1ff82 Head {h00=0x0010, h01=0x0050, text=»LDAEND EQU *«, t00=0x0147, t01=0x00d2}
0x1ff82…1ff8e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0147, t01=0x00e6}
0x1ff8e…1ff92 Head {h00=0x4004, h01=0x0000}
0x1ff92…1ff96 01 47 00 f2 ┆ G ┆
0x1ff96…1ff9e (328, 1, 8) 20 04 00 00 01 48 00 04 ┆ H ┆
0x1ff9e…1ffa6 (329, 1, 8) 20 04 00 00 00 41 00 04 ┆ A ┆
0x1ffa6…1fff6 (330, 0, 400) 2a 20 00 01 01 90 00 06 00 50 2a 20 00 02 00 0a 00 12 00 50 2a 5c 45 4e 54 52 59 20 50 4f 49 4e 54 53 00 02 00 14 00 06 00 50 2a 20 00 02 00 2a 00 06 00 50 2a 20 00 02 00 34 00 32 00 50 5c 45 4e 54 52 59 5c 44 43 31 35 41 44 5c 41 44 44 52 ┆* P* P* ENTRY POINTS P* * P* 4 2 P ENTRY DC15AD ADDR┆
0x1fff6…20046 45 53 53 20 42 4c 4f 43 4b 20 54 45 52 4d 49 4e 41 4c 20 52 45 51 55 45 53 54 53 20 00 02 00 3e 00 22 00 50 5c 45 4e 54 52 59 5c 49 48 31 35 30 31 5c 49 4e 50 55 54 20 49 4e 54 45 52 52 55 50 54 20 00 02 00 74 00 22 00 50 5c 45 4e 54 52 59 ┆ESS BLOCK TERMINAL REQUESTS > " P ENTRY IH1501 INPUT INTERRUPT t " P ENTRY┆
0x20046…20096 5c 49 48 31 35 30 32 5c 4f 55 54 50 55 54 20 49 4e 54 45 52 52 55 50 54 00 02 00 9a 00 22 00 50 5c 45 4e 54 52 59 5c 44 43 31 35 4f 4e 5c 50 4f 57 45 52 20 4f 4e 20 52 4f 55 54 49 4e 45 00 02 00 c0 00 22 00 50 5c 45 4e 54 52 59 5c 44 57 31 ┆ IH1502 OUTPUT INTERRUPT " P ENTRY DC15ON POWER ON ROUTINE " P ENTRY DW1┆
0x20096…200e6 35 30 30 5c 44 57 54 20 46 4f 52 20 44 43 20 54 41 53 4b 20 00 02 00 e6 00 06 00 50 2a 20 00 02 01 0c 00 06 00 50 2a 20 00 02 01 16 00 1a 00 50 2a 5c 45 58 54 45 52 4e 41 4c 20 52 45 46 45 52 45 4e 43 45 53 20 00 02 01 20 00 06 00 50 2a 20 ┆500 DWT FOR DC TASK P* P* P* EXTERNAL REFERENCES P* ┆
0x200e6…20136 00 02 01 3e 00 06 00 50 2a 20 00 02 01 48 00 22 00 50 5c 45 58 54 52 4e 5c 54 44 49 53 50 5c 44 49 53 50 41 54 43 48 45 52 20 45 4e 54 52 59 20 00 02 01 52 00 28 00 50 5c 45 58 54 52 4e 5c 53 41 56 45 38 5c 53 41 56 45 20 41 31 2d 41 38 20 ┆ > P* H " P EXTRN TDISP DISPATCHER ENTRY R ( P EXTRN SAVE8 SAVE A1-A8 ┆
0x20136…20186 (331, 0, 400) 4f 4e 20 41 31 35 20 53 54 41 43 4b 00 02 01 78 00 24 00 50 5c 45 58 54 52 4e 5c 54 45 4e 44 49 4f 5c 43 4f 4d 50 4c 45 54 45 20 49 2f 4f 20 45 56 45 4e 54 00 03 00 14 00 20 00 50 5c 45 58 54 52 4e 5c 44 49 53 49 4f 45 5c 52 45 51 55 45 53 ┆ON A15 STACK x $ P EXTRN TENDIO COMPLETE I/O EVENT P EXTRN DISIOE REQUES┆
0x20186…201d6 54 20 45 52 52 4f 52 20 00 03 00 3c 00 1c 00 50 5c 45 58 54 52 4e 5c 53 45 54 49 4d 45 5c 53 45 54 20 54 49 4d 45 52 20 00 03 00 60 00 1c 00 50 5c 45 58 54 52 4e 5c 44 57 54 53 54 5c 44 57 54 20 53 54 41 54 55 53 20 00 03 00 80 00 1a 00 50 ┆T ERROR < P EXTRN SETIME SET TIMER ` P EXTRN DWTST DWT STATUS P┆
0x201d6…20226 5c 45 58 54 52 4e 5c 44 57 54 4f 52 5c 44 57 54 20 4f 52 44 45 52 00 03 00 a0 00 1a 00 50 5c 45 58 54 52 4e 5c 44 57 54 45 43 42 5c 44 57 54 20 45 43 42 20 00 03 00 be 00 2a 00 50 5c 45 58 54 52 4e 5c 49 4e 54 53 41 56 5c 53 41 56 45 20 41 ┆ EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE A┆
0x20226…20276 52 45 41 20 4c 41 53 54 20 49 4e 54 45 52 52 55 50 54 00 03 00 dc 00 28 00 50 5c 45 58 54 52 4e 5c 54 45 42 43 44 49 43 5c 41 53 43 49 49 20 54 4f 20 45 42 43 44 49 43 20 54 41 42 4c 45 00 03 01 0a 00 28 00 50 5c 45 58 54 52 4e 5c 54 41 53 ┆REA LAST INTERRUPT ( P EXTRN TEBCDIC ASCII TO EBCDIC TABLE ( P EXTRN TAS┆
0x20276…202c6 43 49 49 5c 45 42 43 44 49 43 20 54 4f 20 41 53 43 49 49 20 54 41 42 4c 45 20 00 03 01 36 00 06 00 50 5c 20 00 03 01 62 00 06 00 50 2a 20 00 03 01 6c 00 06 00 50 2a 20 00 03 01 76 00 06 00 50 2a 20 00 03 01 80 00 06 00 50 2a 20 00 03 01 8a ┆CII EBCDIC TO ASCII TABLE 6 P b P* l P* v P* P* ┆
0x202c6…20316 (332, 0, 400) 00 36 00 50 2a 20 20 20 53 54 41 4e 44 41 52 44 20 49 4e 54 45 52 46 41 43 45 20 50 41 52 54 20 46 4f 52 20 44 41 54 41 20 43 4f 4d 4d 55 4e 49 43 41 54 49 4f 4e 00 04 00 04 00 06 00 50 2a 20 00 04 00 3e 00 06 00 50 2a 20 00 04 00 48 00 06 ┆ 6 P* STANDARD INTERFACE PART FOR DATA COMMUNICATION P* > P* H ┆
0x20316…20366 00 50 2a 20 00 04 00 52 00 06 00 50 2a 20 00 04 00 5c 00 12 00 50 2a 5c 44 57 54 20 43 4f 4e 54 45 4e 54 53 00 04 00 66 00 06 00 50 2a 20 00 04 00 7c 00 4a 00 50 2a 5c 44 57 54 43 48 50 5c 54 45 52 4d 49 4e 41 4c 20 41 44 44 52 45 53 53 20 ┆ P* R P* P* DWT CONTENTS f P* | J P* DWTCHP TERMINAL ADDRESS ┆
0x20366…203b6 41 53 20 47 49 56 45 4e 20 41 54 20 50 41 52 41 4d 45 54 45 52 20 54 52 41 4e 53 46 45 52 20 28 42 49 54 20 23 30 38 2d 23 31 35 29 00 04 00 86 00 06 00 50 2a 20 00 04 00 d4 00 18 00 50 2a 5c 44 57 54 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 ┆AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) P* P* DWT DISPLACEMENT┆
0x203b6…20406 53 20 00 04 00 de 00 06 00 50 2a 20 00 04 00 fa 00 2e 00 50 44 57 54 54 50 5c 45 51 55 5c 2f 31 30 5c 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 4f 52 44 45 52 20 50 52 4f 43 45 53 53 20 00 04 01 04 00 28 00 50 44 57 54 57 51 5c 45 51 55 5c ┆S P* . PDWTTP EQU /10 TIMER POINTER ORDER PROCESS ( PDWTWQ EQU ┆
0x20406…20456 2f 31 32 5c 57 52 49 54 45 2f 47 45 54 20 42 55 46 46 45 52 20 51 55 45 55 45 00 04 01 36 00 1e 00 50 44 57 54 53 51 5c 45 51 55 5c 2f 31 34 5c 53 54 41 54 55 53 20 51 55 45 55 45 00 04 01 62 00 20 00 50 44 57 54 52 51 5c 45 51 55 5c 2f 31 ┆/12 WRITE/GET BUFFER QUEUE 6 PDWTSQ EQU /14 STATUS QUEUE b PDWTRQ EQU /1┆