|
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: 132574 (0x205de)
Notes: pts_type(SC)
Names: »SYSLDA.SC«
└─⟦245262b9f⟧ Bits:30009679 Philips computer tape "600220"
└─⟦this⟧ »M:92SP/SYSLDA.SC«
└─⟦a25d6defe⟧ Bits:30009676 Philips computer tape "600210"
└─⟦this⟧ »M:92SP/SYSLDA.SC«
IDENT SYSLDA REL 9.2 79-12-21 870105040920 =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 CWR A3,A10 RB(NL) XMOV10 LDR A10,A3 LAST LENGTH RB XMOV10 EJECT SPLIT EQU * LDK A1,0 RESET DIVISION REG LDR A2,A3 GET DIVISOR DV BUFSIZ,A13 AND DIVIDE LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1) LD A10,BUFSIZ,A13 MOVE MAX LENGTH RB XMOV10 XMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS' LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS' LD A9,XMSAV,A13 RESTORE A9 LD A11,XMSAV+2,A13 RESTORE A11 RTN A14 EJECT ** M O V I N G ** ** ** ** ** ** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** ** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** ** IS ALWAYS ASSUMED TO BE DATA PART OF ** ** MEMORY. LSTADR & FYSPAG POINTS AT LAST ** ** (HIGHEST) FREE ADDRESS. LSTADR &FYSPAG ** ** IS UPDATED AND CHECKED. ** ** ** ** INPUT :A1 & A3 AS IN 'XMOVE' ** ** TTAB=POINTER TO TTAB (OR LIKELY) ** ** OUTPUT:A2=LOGICALL TO-ADDRESS ** ** WORK-REGS: A4,A10 ** *********************************************** MOVING EQU * ST A11,SAVE01,A13 SAVE A11 ST A9,SAVE12,A13 SAVE A9 LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE LD A10,TTAB,A13 LOAD TTAB-ADDRESS LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB LDR* A9,A2 GET PAGE IN TABLE ANKL A9,/FC00 CWR A9,A4 CORRECT PAGE IN MMU-TABLE? RF(E) MOV010 YES! ADKL A4,/400 ADJUST FOR 'SETTAB' CALL SETTAB NEW PAGE IN TABLE! MOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS ANKL A11,/FFF LDR A9,A3 GET LENGTH OF AREA TO MOVE CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? RF(NL) MOV020 YES SUR A11,A3 COMPUTE DISPLACEMENT 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 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 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 IFT CREDIT=1 LD A14,SAVE13,A13 TRUE START OF S:GTAB XIF 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 79-12-21 870105040920 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…0006a Head {h00=0x0028, h01=0x0050, text=» =5,MOVING AREAS>32K DOES NOT WORK«, t00=0x0000, t01=0x0042}
0x0006a…00088 Head {h00=0x001a, h01=0x0050, text=» REL 9.2 79-12-21 ST«, t00=0x0000, t01=0x006e}
0x00088…000ba Head {h00=0x002e, h01=0x0050, text=» =4, FAULTY STACK BASE & CWB/UWB BLOCKS «, t00=0x0000, t01=0x008c}
0x000ba…000d6 Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-07-17 «, t00=0x0000, t01=0x00be}
0x000d6…00106 Head {h00=0x002c, h01=0x0050, text=» =3, IMPOSSIBLE TO LOAD NON MMU SYSTEM«, t00=0x0000, t01=0x00da}
0x00106…00122 Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0000, t01=0x010a}
0x00122…0012e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0000, t01=0x0126}
0x0012e…0013a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0000, t01=0x0132}
0x0013a…0017c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0000, t01=0x013e}
0x0017c…00186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0180}
0x00186…001ae Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x018a}
0x001ae…001b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0022}
0x001b8…001fa Head {h00=0x003e, h01=0x0050, text=»* SYSLDA = SYSTEM LOAD - APPLICATION CONFIGURATION PART «, t00=0x0001, t01=0x002c}
0x001fa…00204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006e}
0x00204…0020e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0078}
0x0020e…00218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0082}
0x00218…00222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008c}
0x00222…0022c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0096}
0x0022c…00236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a0}
0x00236…00278 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0001, t01=0x00aa}
0x00278…00282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ec}
0x00282…0028c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f6}
0x0028c…002d6 Head {h00=0x0046, h01=0x0050, text=»* THIS PART OF THE SYSTEM START-UP WILL TAKE CARE OF APPLICATION«, t00=0x0001, t01=0x0100}
0x002d6…0031c Head {h00=0x0042, h01=0x0050, text=»* (CREDIT) CONFIGURATION AND START OF APPLICATION. SYSLDA IS«, t00=0x0001, t01=0x014a}
0x0031c…00366 Head {h00=0x0046, h01=0x0050, text=»* ENTERED AFTER MONITOR CONFIGURATION (PERFORMED BY SYSLDM), AND«, t00=0x0001, t01=0x0190}
0x00366…003b2 Head {h00=0x0048, h01=0x0050, text=»* IS AT THAT TIME LOCATED AT HIGHEST FREE ADDRESS OF SYSTEM AREA. «, t00=0x0002, t01=0x004a}
0x003b2…003bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0096}
0x003bc…003de Head {h00=0x001e, h01=0x0050, text=»* ASSEMBLER APPLICATION:«, t00=0x0002, t01=0x00a0}
0x003de…0042c Head {h00=0x004a, h01=0x0050, text=»* NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED «, t00=0x0002, t01=0x00c2}
0x0042c…00476 Head {h00=0x0046, h01=0x0050, text=»* AND A BRANCH IS MADE TO P F I N I T . ALL USER TASK TTAB'S«, t00=0x0002, t01=0x0110}
0x00476…0049e Head {h00=0x0024, h01=0x0050, text=»* MM-TABLES ARE FILLED IN. «, t00=0x0002, t01=0x015a}
0x0049e…004a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0182}
0x004a8…004c8 Head {h00=0x001c, h01=0x0050, text=»* CREDIT APPLICATION: «, t00=0x0002, t01=0x018c}
0x004c8…00512 Head {h00=0x0046, h01=0x0050, text=»* SYSLDA READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD«, t00=0x0003, t01=0x001c}
0x00512…00558 Head {h00=0x0042, h01=0x0050, text=»* SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS &«, t00=0x0003, t01=0x0066}
0x00558…0058a Head {h00=0x002e, h01=0x0050, text=»* NUMBER OF USER WORK-BLOCK COPIES). «, t00=0x0003, t01=0x00ac}
0x0058a…005d6 Head {h00=0x0048, h01=0x0050, text=»* SYSLDA THEN MOVES ITSELF TO FOLLOW MONITOR AND WILL ALSO MOVE«, t00=0x0003, t01=0x00de}
0x005d6…00606 Head {h00=0x002c, h01=0x0050, text=»* DDIV-PROTOTYPE TO FOLLOW SYSLDA. «, t00=0x0003, t01=0x012a}
0x00606…00610 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015a}
0x00610…0065c Head {h00=0x0048, h01=0x0050, text=»* APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES ARE NOW«, t00=0x0003, t01=0x0164}
0x0065c…006a8 Head {h00=0x0048, h01=0x0050, text=»* BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS«, t00=0x0004, t01=0x0020}
0x006a8…006f4 Head {h00=0x0048, h01=0x0050, text=»* ARE, IN CASE OF MMU IN SYSTEM, ALSO ALLOCATED AT 'BOTTOM' OF «, t00=0x0004, t01=0x006c}
0x006f4…00740 Head {h00=0x0048, h01=0x0050, text=»* MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR «, t00=0x0004, t01=0x00b8}
0x00740…0075e Head {h00=0x001a, h01=0x0050, text=»* 'OVER' SYSLDA. «, t00=0x0004, t01=0x0104}
0x0075e…00768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0122}
0x00768…007b4 Head {h00=0x0048, h01=0x0050, text=»* ALL USER TASKS ARE QUEUED VIA A C T O T AND ALL MM-TABLES«, t00=0x0004, t01=0x012c}
0x007b4…007fe Head {h00=0x0046, h01=0x0050, text=»* IN USER TASK TTAB'S ARE FILLED. A BRANCH IS FINALLY MADE TO«, t00=0x0004, t01=0x0178}
0x007fe…00830 Head {h00=0x002e, h01=0x0050, text=»* P F I N I T TO START APPLICATION. «, t00=0x0005, t01=0x0032}
0x00830…0083e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0064}
0x0083e…0084a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0005, t01=0x0072}
0x0084a…0086e Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0005, t01=0x007e}
0x0086e…00892 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0005, t01=0x00a2}
0x00892…008b6 Head {h00=0x0020, h01=0x0050, text=»* ENTRIES AND EXTERNALS * «, t00=0x0005, t01=0x00c6}
0x008b6…008da Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0005, t01=0x00ea}
0x008da…008fe Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0005, t01=0x010e}
0x008fe…0090a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0005, t01=0x0132}
0x0090a…00922 Head {h00=0x0014, h01=0x0050, text=»* LABEL ENTRIES «, t00=0x0005, t01=0x013e}
0x00922…00952 Head {h00=0x002c, h01=0x0050, text=» ENTRY JUMP BYPASS JUMP FOR LOAD-MODULE «, t00=0x0005, t01=0x0156}
0x00952…00968 Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLDA «, t00=0x0005, t01=0x0186}
0x00968…00988 Head {h00=0x001c, h01=0x0050, text=» ENTRY REL START OF CODE«, t00=0x0006, t01=0x000c}
0x00988…009ac Head {h00=0x0020, h01=0x0050, text=» ENTRY LDALEN PROGRAM LENGTH«, t00=0x0006, t01=0x002c}
0x009ac…009b4 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0050}
0x009b4…009d0 Head {h00=0x0018, h01=0x0050, text=»* SUBROUTINE ENTRIES«, t00=0x0006, t01=0x0058}
0x009d0…009e4 Head {h00=0x0010, h01=0x0050, text=» ENTRY MOVE «, t00=0x0006, t01=0x0074}
0x009e4…009f8 Head {h00=0x0010, h01=0x0050, text=» ENTRY ERROR«, t00=0x0006, t01=0x0088}
0x009f8…00a20 Head {h00=0x0024, h01=0x0050, text=» ENTRY CMPADR COMPARE ADDRESSES «, t00=0x0006, t01=0x009c}
0x00a20…00a56 Head {h00=0x0032, h01=0x0050, text=» ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK«, t00=0x0006, t01=0x00c4}
0x00a56…00a8e Head {h00=0x0034, h01=0x0050, text=» ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK«, t00=0x0006, t01=0x00fa}
0x00a8e…00abc Head {h00=0x002a, h01=0x0050, text=» ENTRY CONVRT CONVERSION ASCII-BINARY «, t00=0x0006, t01=0x0132}
0x00abc…00af2 Head {h00=0x0032, h01=0x0050, text=» ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY«, t00=0x0006, t01=0x0160}
0x00af2…00afa Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0008}
0x00afa…00b1e Head {h00=0x0020, h01=0x0050, text=»* SAVE AND WORK AREA ENTRIES«, t00=0x0007, t01=0x0010}
0x00b1e…00b44 Head {h00=0x0022, h01=0x0050, text=» ENTRY MMTAB WORK-TABLE 1 (MMU«, t00=0x0007, t01=0x0034}
0x00b44…00b7e Head {h00=0x0036, h01=0x0050, text=» ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 «, t00=0x0007, t01=0x005a}
0x00b7e…00bb6 Head {h00=0x0034, h01=0x0050, text=» ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 «, t00=0x0007, t01=0x0094}
0x00bb6…00bec Head {h00=0x0032, h01=0x0050, text=» ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL'«, t00=0x0007, t01=0x00cc}
0x00bec…00c1c Head {h00=0x002c, h01=0x0050, text=» ENTRY BUFSIZ TEMPORARY MOVE-BUFFER SIZE«, t00=0x0007, t01=0x0102}
0x00c1c…00c4e Head {h00=0x002e, h01=0x0050, text=» ENTRY SYSBUF TEMPORARY MOVE-BUFFER START «, t00=0x0007, t01=0x0132}
0x00c4e…00c86 Head {h00=0x0034, h01=0x0050, text=» ENTRY M:REL RELOCATION FOR RELOCATION WORD!!!! «, t00=0x0007, t01=0x0164}
0x00c86…00cb0 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE01,SAVE12,SAVE03,SAVE04«, t00=0x0008, t01=0x000c}
0x00cb0…00cda Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE05,SAVE06,SAVE07,SAVE08«, t00=0x0008, t01=0x0036}
0x00cda…00d04 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE09,SAVE10,SAVE11,SAVE02«, t00=0x0008, t01=0x0060}
0x00d04…00d2e Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE13,SAVE14,SAVE15,SAVE16«, t00=0x0008, t01=0x008a}
0x00d2e…00d58 Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE17,SAVE18,SAVE19,SAVE20«, t00=0x0008, t01=0x00b4}
0x00d58…00d8a Head {h00=0x002e, h01=0x0050, text=» ENTRY SAVE21,SAVE22,SAVE23,SAVE24,SAVE25 «, t00=0x0008, t01=0x00de}
0x00d8a…00d98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0110}
0x00d98…00da0 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x011e}
0x00da0…00dc8 Head {h00=0x0024, h01=0x0050, text=»* SYSTEM CONTROL TABLE EXTERNALS«, t00=0x0008, t01=0x0126}
0x00dc8…00df0 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTSFA START OF FREE AREA«, t00=0x0008, t01=0x014e}
0x00df0…00e26 Head {h00=0x0032, h01=0x0050, text=» EXTRN SCTLAC LOGICALL ADDRESS TO COMMON PART «, t00=0x0008, t01=0x0176}
0x00e26…00e4a Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTTCT TC:TAB ADDRESS«, t00=0x0009, t01=0x001c}
0x00e4a…00e6e Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTSTB A15 STACK-BASE«, t00=0x0009, t01=0x0040}
0x00e6e…00e94 Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTEFA END OF FREE AREA«, t00=0x0009, t01=0x0064}
0x00e94…00ebc Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTNOS NUMBER OF SEGMENTS«, t00=0x0009, t01=0x008a}
0x00ebc…00ee2 Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTNOP NUMBER OF PAGES «, t00=0x0009, t01=0x00b2}
0x00ee2…00f02 Head {h00=0x001c, h01=0x0050, text=» EXTRN SCTPSZ PAGE SIZE «, t00=0x0009, t01=0x00d8}
0x00f02…00f20 Head {h00=0x001a, h01=0x0050, text=» EXTRN SCTMMC =00002 «, t00=0x0009, t01=0x00f8}
0x00f20…00f44 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTOPT SYSTEM OPTION «, t00=0x0009, t01=0x0116}
0x00f44…00f70 Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTSEG SEGMENT TABLE ADDRESS «, t00=0x0009, t01=0x013a}
0x00f70…00f98 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTPAG PAGE TABLE ADDRESS«, t00=0x0009, t01=0x0166}
0x00f98…00fd0 Head {h00=0x0034, h01=0x0050, text=» EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE«, t00=0x0009, t01=0x018e}
0x00fd0…00ff4 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTBUG BUGGER ADDRESS«, t00=0x000a, t01=0x0036}
0x00ff4…00ffc Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x005a}
0x00ffc…01016 Head {h00=0x0016, h01=0x0050, text=»* EXTERNAL LABELS «, t00=0x000a, t01=0x0062}
0x01016…01050 Head {h00=0x0036, h01=0x0050, text=» EXTRN SYSLDM START OF MONITOR CONFIGURATION PART «, t00=0x000a, t01=0x007c}
0x01050…01078 Head {h00=0x0024, h01=0x0050, text=» EXTRN PAGQUE PAGE QUEUE POINTER«, t00=0x000a, t01=0x00b6}
0x01078…01080 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00de}
0x01080…0109e Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL SUBROUTINES«, t00=0x000a, t01=0x00e6}
0x0109e…010be Head {h00=0x001c, h01=0x0050, text=» EXTRN ACTOT QUEUE TASK «, t00=0x000a, t01=0x0104}
0x010be…010d4 Head {h00=0x0012, h01=0x0050, text=» EXTRN PFINIT «, t00=0x000a, t01=0x0124}
0x010d4…010f4 Head {h00=0x001c, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGS«, t00=0x000a, t01=0x013a}
0x010f4…01118 Head {h00=0x0020, h01=0x0050, text=» EXTRN RETUR8 RELOAD 8 REGS «, t00=0x000a, t01=0x015a}
0x01118…0113e Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x000a, t01=0x017e}
0x0113e…01146 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0014}
0x01146…01150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001c}
0x01150…01180 Head {h00=0x002c, h01=0x0050, text=» EXTRN TTB:SA START OF SAVE AREA IN TTAB«, t00=0x000b, t01=0x0026}
0x01180…0118e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0056}
0x0118e…01196 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0064}
0x01196…0119e Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x006c}
0x0119e…011ce Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000b, t01=0x0074}
0x011ce…011fe Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000b, t01=0x00a4}
0x011fe…0122e Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000b, t01=0x00d4}
0x0122e…01236 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0104}
0x01236…01256 Head {h00=0x001c, h01=0x0050, text=»MMUPAG EQU 1 0 = NO MMU «, t00=0x000b, t01=0x010c}
0x01256…0125e Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x012c}
0x0125e…01288 Head {h00=0x0026, h01=0x0050, text=»SWPBLK EQU 0 SWAPPABLE WORK BLOCKS«, t00=0x000b, t01=0x0134}
0x01288…01290 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x015e}
0x01290…012b2 Head {h00=0x001e, h01=0x0050, text=»CREDIT EQU 1 0 = ASSEMBLER«, t00=0x000b, t01=0x0166}
0x012b2…012ba Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0188}
0x012ba…012da Head {h00=0x001c, h01=0x0050, text=»MMUSWB EQU MMUPAG+SWPBLK«, t00=0x000b, t01=0x0190}
0x012da…012e2 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0020}
0x012e2…01302 Head {h00=0x001c, h01=0x0050, text=»SWBMMU EQU SWPBLK-MMUPAG«, t00=0x000c, t01=0x0028}
0x01302…01310 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0048}
0x01310…01318 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0056}
0x01318…01336 Head {h00=0x001a, h01=0x0050, text=» PROGRAM STRUCTURE: «, t00=0x000c, t01=0x005e}
0x01336…0133e Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x007c}
0x0133e…01388 Head {h00=0x0046, h01=0x0050, text=»* -------------------------------------------------------«, t00=0x000c, t01=0x0084}
0x01388…013d8 Head {h00=0x004c, h01=0x0050, text=»* ! RELOCATION ROUTINE !<- A13«, t00=0x000c, t01=0x00ce}
0x013d8…01422 Head {h00=0x0046, h01=0x0050, text=»* ! A14-STACK AND SUBROUTINE-HANDLER !«, t00=0x000c, t01=0x011e}
0x01422…0146c Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000c, t01=0x0168}
0x0146c…014b6 Head {h00=0x0046, h01=0x0050, text=»* ! SAVE & COMMUNICATION AREA. MMU - WORK TABLES !«, t00=0x000d, t01=0x0022}
0x014b6…01500 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000d, t01=0x006c}
0x01500…0154a Head {h00=0x0046, h01=0x0050, text=»* ! SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM. !«, t00=0x000d, t01=0x00b6}
0x0154a…01594 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000d, t01=0x0100}
0x01594…015e8 Head {h00=0x0050, h01=0x0050, text=»* ! R E A L T A ! PART 2.B «, t00=0x000d, t01=0x014a}
0x015e8…01632 Head {h00=0x0046, h01=0x0050, text=»* ! BUILD REAL TASK-LOCAL DATA AREAS !«, t00=0x000e, t01=0x000e}
0x01632…0167c Head {h00=0x0046, h01=0x0050, text=»* ! -QUEUE TASK VIA 'ACTOT' !«, t00=0x000e, t01=0x0058}
0x0167c…016c6 Head {h00=0x0046, h01=0x0050, text=»* ! -FILL MM-TABLE IN TTAB !«, t00=0x000e, t01=0x00a2}
0x016c6…01710 Head {h00=0x0046, h01=0x0050, text=»* ! -COPY T:A'S ACCORDING TO SHADOW-TABLE !«, t00=0x000e, t01=0x00ec}
0x01710…0175a Head {h00=0x0046, h01=0x0050, text=»* ! -BUILD TWB'S AND RESERVE FOR SWB'S !«, t00=0x000e, t01=0x0136}
0x0175a…017a4 Head {h00=0x0046, h01=0x0050, text=»* ! -ALLOCATE FIXED BUFFERS AND STACK !«, t00=0x000e, t01=0x0180}
0x017a4…017ee Head {h00=0x0046, h01=0x0050, text=»* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE !«, t00=0x000f, t01=0x003a}
0x017ee…01838 Head {h00=0x0046, h01=0x0050, text=»* ! -START DEBUGGER (IF ANY) AND START APPLICATION !«, t00=0x000f, t01=0x0084}
0x01838…01882 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000f, t01=0x00ce}
0x01882…018d6 Head {h00=0x0050, h01=0x0050, text=»* ! SUBROUTINES ! PART 2.A «, t00=0x000f, t01=0x0118}
0x018d6…01920 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE DDIV PROTOTYPE TO FOLLOW SYSLDA !«, t00=0x000f, t01=0x016c}
0x01920…0196a Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0010, t01=0x0026}
0x0196a…019b4 Head {h00=0x0046, h01=0x0050, text=»* ! C O M D A T !«, t00=0x0010, t01=0x0070}
0x019b4…019fe Head {h00=0x0046, h01=0x0050, text=»* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S. !«, t00=0x0010, t01=0x00ba}
0x019fe…01a48 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO !«, t00=0x0010, t01=0x0104}
0x01a48…01a92 Head {h00=0x0046, h01=0x0050, text=»* ! SHADOW-TABLE. !«, t00=0x0010, t01=0x014e}
0x01a92…01adc Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0011, t01=0x0008}
0x01adc…01b26 Head {h00=0x0046, h01=0x0050, text=»* ! C L A D A T !«, t00=0x0011, t01=0x0052}
0x01b26…01b70 Head {h00=0x0046, h01=0x0050, text=»* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S !«, t00=0x0011, t01=0x009c}
0x01b70…01bba Head {h00=0x0046, h01=0x0050, text=»* ! AND DWB'S. !«, t00=0x0011, t01=0x00e6}
0x01bba…01c04 Head {h00=0x0046, h01=0x0050, text=»* ! -BUILD MM-TABLE !«, t00=0x0011, t01=0x0130}
0x01c04…01c4e Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE T:D !«, t00=0x0011, t01=0x017a}
0x01c4e…01c98 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE D.T. & W.B., COPY UWB'S !«, t00=0x0012, t01=0x0034}
0x01c98…01ce2 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE D.T.'S OF SWB'S AND TWB'S !«, t00=0x0012, t01=0x007e}
0x01ce2…01d2c Head {h00=0x0046, h01=0x0050, text=»* ! -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE !«, t00=0x0012, t01=0x00c8}
0x01d2c…01d76 Head {h00=0x0046, h01=0x0050, text=»* ! W.B.-ADDRESS !«, t00=0x0012, t01=0x0112}
0x01d76…01dc0 Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0012, t01=0x015c}
0x01dc0…01e0a Head {h00=0x0046, h01=0x0050, text=»* ! P R O D A T !«, t00=0x0013, t01=0x0016}
0x01e0a…01e54 Head {h00=0x0046, h01=0x0050, text=»* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. !«, t00=0x0013, t01=0x0060}
0x01e54…01e9e Head {h00=0x0046, h01=0x0050, text=»* ! -GENERATE TWB'S AND RESERVE FOR SWB'S !«, t00=0x0013, t01=0x00aa}
0x01e9e…01ee8 Head {h00=0x0046, h01=0x0050, text=»* ! -ALLOCATE FIXED BUFFERS AND TERMINAL STACK !«, t00=0x0013, t01=0x00f4}
0x01ee8…01f32 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE T:A !«, t00=0x0013, t01=0x013e}
0x01f32…01f7c Head {h00=0x0046, h01=0x0050, text=»* ! -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA. !«, t00=0x0013, t01=0x0188}
0x01f7c…01fc6 Head {h00=0x0046, h01=0x0050, text=»* ! -CONTINUE IN PART 2.B !«, t00=0x0014, t01=0x0042}
0x01fc6…02010 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x0014, t01=0x008c}
0x02010…02062 Head {h00=0x004e, h01=0x0050, text=»* ! SUBROUTINES ! PART 1 «, t00=0x0014, t01=0x00d6}
0x02062…020ac Head {h00=0x0046, h01=0x0050, text=»* ENTRY ->! * SYSLDA ENTRY * !«, t00=0x0014, t01=0x0128}
0x020ac…020f6 Head {h00=0x0046, h01=0x0050, text=»* ! CREDIT APPLICATION: ! ASSEMBLER APPLICATION: !«, t00=0x0014, t01=0x0172}
0x020f6…02140 Head {h00=0x0046, h01=0x0050, text=»* ! READ CUNFIGURATION FILE ! -FILL MM-TABLES IN !«, t00=0x0015, t01=0x002c}
0x02140…0218a Head {h00=0x0046, h01=0x0050, text=»* ! AND BUILD SHADOW-TABLES. ! USER TASK TTAB'S. !«, t00=0x0015, t01=0x0076}
0x0218a…021d4 Head {h00=0x0046, h01=0x0050, text=»* ! ! -QUEUE 1:ST USER TASK !«, t00=0x0015, t01=0x00c0}
0x021d4…0221e Head {h00=0x0046, h01=0x0050, text=»* ! T:ATAB: ! AND START APPLICATION !«, t00=0x0015, t01=0x010a}
0x0221e…02268 Head {h00=0x0046, h01=0x0050, text=»* ! -A TABLE OF 'NUMBER OF !-------------------------!«, t00=0x0015, t01=0x0154}
0x02268…022b2 Head {h00=0x0046, h01=0x0050, text=»* ! REAL TASKS' IS BUILT AT !«, t00=0x0016, t01=0x000e}
0x022b2…022fc Head {h00=0x0046, h01=0x0050, text=»* ! THE END OF MONITOR. !«, t00=0x0016, t01=0x0058}
0x022fc…02346 Head {h00=0x0046, h01=0x0050, text=»* ! U:BTAB: !«, t00=0x0016, t01=0x00a2}
0x02346…02390 Head {h00=0x0046, h01=0x0050, text=»* ! -A TABLE OF 'NUMBER OF REAL UWB'S' IS BUILT IN !«, t00=0x0016, t01=0x00ec}
0x02390…023da Head {h00=0x0046, h01=0x0050, text=»* ! U:BTAB PROTOTYPE. !«, t00=0x0016, t01=0x0136}
0x023da…02424 Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0016, t01=0x0180}
0x02424…0246e Head {h00=0x0046, h01=0x0050, text=»* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. !«, t00=0x0017, t01=0x003a}
0x0246e…024b8 Head {h00=0x0046, h01=0x0050, text=»* ! -REMOVE NOT USED ENTRIES IN T:ATAB !«, t00=0x0017, t01=0x0084}
0x024b8…02502 Head {h00=0x0046, h01=0x0050, text=»* ! -RELOCATE ADDRESSES IN U:BTAB !«, t00=0x0017, t01=0x00ce}
0x02502…0254c Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE SYSLDA (NOT PART 1) TO FOLLOW T:ATAB SHADOW- !«, t00=0x0017, t01=0x0118}
0x0254c…02596 Head {h00=0x0046, h01=0x0050, text=»* ! TABLE !«, t00=0x0017, t01=0x0162}
0x02596…025e0 Head {h00=0x0046, h01=0x0050, text=»* ! -CONTINUE IN PART 2.A !«, t00=0x0018, t01=0x001c}
0x025e0…0262a Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x0018, t01=0x0066}
0x0262a…02638 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00b0}
0x02638…02644 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0018, t01=0x00be}
0x02644…02660 Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0018, t01=0x00ca}
0x02660…0267c Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0018, t01=0x00e6}
0x0267c…02698 Head {h00=0x0018, h01=0x0050, text=» ** ** «, t00=0x0018, t01=0x0102}
0x02698…026b4 Head {h00=0x0018, h01=0x0050, text=» ** CONSTANTS ** «, t00=0x0018, t01=0x011e}
0x026b4…026d0 Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0018, t01=0x013a}
0x026d0…026ec Head {h00=0x0018, h01=0x0050, text=» ** ** «, t00=0x0018, t01=0x0156}
0x026ec…02708 Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0018, t01=0x0172}
0x02708…02714 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0018, t01=0x018e}
0x02714…02726 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x000a}
0x02726…02738 Head {h00=0x000e, h01=0x0050, text=»* P:MTAB *«, t00=0x0019, t01=0x001c}
0x02738…0274a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x002e}
0x0274a…0275e Head {h00=0x0010, h01=0x0050, text=»T:ATAB EQU 0«, t00=0x0019, t01=0x0040}
0x0275e…02772 Head {h00=0x0010, h01=0x0050, text=»U:BTAB EQU 2«, t00=0x0019, t01=0x0054}
0x02772…02792 Head {h00=0x001c, h01=0x0050, text=»P:BAS EQU 6 SEGMENT BASE«, t00=0x0019, t01=0x0068}
0x02792…027c4 Head {h00=0x002e, h01=0x0050, text=»T:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID'«, t00=0x0019, t01=0x0088}
0x027c4…027f0 Head {h00=0x0028, h01=0x0050, text=»S:BTAB EQU 40 DISP TO S:BTAB ADDRESS«, t00=0x0019, t01=0x00ba}
0x027f0…027f8 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00e6}
0x027f8…02800 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00ee}
0x02800…02812 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x00f6}
0x02812…02824 Head {h00=0x000e, h01=0x0050, text=»* U:BTAB *«, t00=0x0019, t01=0x0108}
0x02824…02836 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x011a}
0x02836…0286a Head {h00=0x0030, h01=0x0050, text=»UP:REC EQU 6 RECORD LENGTH IN INITIAL U:BTAB«, t00=0x0019, t01=0x012c}
0x0286a…02890 Head {h00=0x0022, h01=0x0050, text=»UPADDR EQU 2 PROTOTYPE ADDRESS«, t00=0x0019, t01=0x0160}
0x02890…028b4 Head {h00=0x0020, h01=0x0050, text=»UPNAME EQU 4 PROTOTYPE NAME «, t00=0x0019, t01=0x0186}
0x028b4…028f0 Head {h00=0x0038, h01=0x0050, text=»UPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL)«, t00=0x001a, t01=0x001a}
0x028f0…028fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0056}
0x028fa…0292c Head {h00=0x002e, h01=0x0050, text=»UR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB «, t00=0x001a, t01=0x0060}
0x0292c…0295a Head {h00=0x002a, h01=0x0050, text=»URADDR EQU 2 ADDRESS TO FIRST REAL UWB«, t00=0x001a, t01=0x0092}
0x0295a…0297e Head {h00=0x0020, h01=0x0050, text=»URNUMB EQU 4 NUMBER OF UWB'S«, t00=0x001a, t01=0x00c0}
0x0297e…029a0 Head {h00=0x001e, h01=0x0050, text=»URLENG EQU 6 LENGTH OF UWB«, t00=0x001a, t01=0x00e4}
0x029a0…029ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0106}
0x029ae…029ba Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001a, t01=0x0114}
0x029ba…029c6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001a, t01=0x0120}
0x029c6…029d2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001a, t01=0x012c}
0x029d2…029fa Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001a, t01=0x0138}
0x029fa…02a22 Head {h00=0x0024, h01=0x0050, text=»* CONFIGURATION FILE (CONFIG) * «, t00=0x001a, t01=0x0160}
0x02a22…02a4a Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001a, t01=0x0188}
0x02a4a…02a56 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001b, t01=0x0020}
0x02a56…02a76 Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x001b, t01=0x002c}
0x02a76…02a98 Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x001b, t01=0x004c}
0x02a98…02ac4 Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x001b, t01=0x006e}
0x02ac4…02af4 Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x001b, t01=0x009a}
0x02af4…02b24 Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x001b, t01=0x00ca}
0x02b24…02b4c Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x001b, t01=0x00fa}
0x02b4c…02b8a Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x001b, t01=0x0122}
0x02b8a…02b94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0160}
0x02b94…02bbe Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 FIRST TERM DEF «, t00=0x001b, t01=0x016a}
0x02bbe…02be6 (28, 0, 400) Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x001c, t01=0x0004}
0x02be6…02c08 Head {h00=0x001e, h01=0x0050, text=»TLC EQU 6 LINE CONNECTION «, t00=0x001c, t01=0x002c}
0x02c08…02c34 Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x001c, t01=0x004e}
0x02c34…02c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x007a}
0x02c3e…02c6c Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x001c, t01=0x0084}
0x02c6c…02c76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b2}
0x02c76…02c9a Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x001c, t01=0x00bc}
0x02c9a…02cbc Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x001c, t01=0x00e0}
0x02cbc…02cf6 Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x001c, t01=0x0102}
0x02cf6…02d22 Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 FIRST SDC-RECORD «, t00=0x001c, t01=0x013c}
0x02d22…02d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0168}
0x02d2c…02d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0172}
0x02d36…02d60 Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x001c, t01=0x017c}
0x02d60…02d82 Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x001d, t01=0x0016}
0x02d82…02db2 Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x001d, t01=0x0038}
0x02db2…02dbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0068}
0x02dbc…02de8 Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 FIRST UDB-RECORD «, t00=0x001d, t01=0x0072}
0x02de8…02e08 Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x001d, t01=0x009e}
0x02e08…02e2e Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x001d, t01=0x00be}
0x02e2e…02e60 Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x001d, t01=0x00e4}
0x02e60…02e6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0116}
0x02e6e…02e7a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001d, t01=0x0124}
0x02e7a…02e86 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001d, t01=0x0130}
0x02e86…02e98 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001d, t01=0x013c}
0x02e98…02eaa Head {h00=0x000e, h01=0x0050, text=»* T:A * «, t00=0x001d, t01=0x014e}
0x02eaa…02ebc Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001d, t01=0x0160}
0x02ebc…02edc Head {h00=0x001c, h01=0x0050, text=»T:ASTA EQU -14 T:A START«, t00=0x001d, t01=0x0172}
0x02edc…02f16 (30, 0, 400) Head {h00=0x0036, h01=0x0050, text=»CSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) «, t00=0x001e, t01=0x0004}
0x02f16…02f3e Head {h00=0x0024, h01=0x0050, text=»CSB EQU -12 CURRENT SEGMENT BASE«, t00=0x001e, t01=0x003e}
0x02f3e…02f76 Head {h00=0x0034, h01=0x0050, text=»CSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH «, t00=0x001e, t01=0x0066}
0x02f76…02fac Head {h00=0x0032, h01=0x0050, text=» OF ALL DSCB-RECORDS«, t00=0x001e, t01=0x009e}
0x02fac…02fd0 Head {h00=0x0020, h01=0x0050, text=»T:DAD EQU -8 ADDRESS TO T:D «, t00=0x001e, t01=0x00d4}
0x02fd0…02ffe Head {h00=0x002a, h01=0x0050, text=»CIA EQU -6 CURRENT INSTUCTION ADDRESS «, t00=0x001e, t01=0x00f8}
0x02ffe…0302a Head {h00=0x0028, h01=0x0050, text=» (HERE: DISPLACEMENT TO T:A-START)«, t00=0x001e, t01=0x0126}
0x0302a…03036 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001e, t01=0x0152}
0x03036…03054 Head {h00=0x001a, h01=0x0050, text=»T:ATID EQU -4 TASK ID «, t00=0x001e, t01=0x015e}
0x03054…03072 Head {h00=0x001a, h01=0x0050, text=»STKE EQU -2 STACK END «, t00=0x001e, t01=0x017c}
0x03072…03090 Head {h00=0x001a, h01=0x0050, text=»PA EQU 0 STACK POINTER«, t00=0x001f, t01=0x000a}
0x03090…030ae Head {h00=0x001a, h01=0x0050, text=»STKB EQU 2 STACK BASE «, t00=0x001f, t01=0x0028}
0x030ae…030d4 Head {h00=0x0022, h01=0x0050, text=»WATFST EQU 4 FIRST WAT-ELEMENT«, t00=0x001f, t01=0x0046}
0x030d4…030de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x006c}
0x030de…030f4 Head {h00=0x0012, h01=0x0050, text=»* DSCB-RECORD:«, t00=0x001f, t01=0x0076}
0x030f4…03116 Head {h00=0x001e, h01=0x0050, text=»DSCBL EQU 20 RECORD LENGTH«, t00=0x001f, t01=0x008c}
0x03116…03136 Head {h00=0x001c, h01=0x0050, text=»BA EQU 2 BUFFER ADDRESS «, t00=0x001f, t01=0x00ae}
0x03136…03152 Head {h00=0x0018, h01=0x0050, text=»RL EQU 4 REQ. LENGTH«, t00=0x001f, t01=0x00ce}
0x03152…0316e Head {h00=0x0018, h01=0x0050, text=»EL EQU 6 EFF. LENGTH«, t00=0x001f, t01=0x00ea}
0x0316e…03194 Head {h00=0x0022, h01=0x0050, text=»BL EQU 14 LENGTH ITEM ADDRESS «, t00=0x001f, t01=0x0106}
0x03194…031a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x012c}
0x031a2…031ae Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x013a}
0x031ae…031ba Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x0146}
0x031ba…031cc Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001f, t01=0x0152}
0x031cc…031de Head {h00=0x000e, h01=0x0050, text=»* T:D * «, t00=0x001f, t01=0x0164}
0x031de…031f0 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001f, t01=0x0176}
0x031f0…0321c Head {h00=0x0028, h01=0x0050, text=»FCD EQU 0 DISPLACEMENT TO FCB IN T:A«, t00=0x001f, t01=0x0188}
0x0321c…0324c Head {h00=0x002c, h01=0x0050, text=»T:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE)«, t00=0x0020, t01=0x0024}
0x0324c…0327c Head {h00=0x002c, h01=0x0050, text=»DATLEN EQU 4 NUMBER OF DATASETS (DSCB'S)«, t00=0x0020, t01=0x0054}
0x0327c…032a6 Head {h00=0x0026, h01=0x0050, text=»WATLEN EQU 6 NUMBER OF WATELEMENTS«, t00=0x0020, t01=0x0084}
0x032a6…032da Head {h00=0x0030, h01=0x0050, text=»TWBMSK EQU 8 MASK FOR TWB'S (ONE BIT/ENTRY) «, t00=0x0020, t01=0x00ae}
0x032da…03308 Head {h00=0x002a, h01=0x0050, text=»SWBMSK EQU 10 MASK FOR SWB'S -"- «, t00=0x0020, t01=0x00e2}
0x03308…03336 Head {h00=0x002a, h01=0x0050, text=»CWBMSK EQU 12 MASK FOR CWB'S -"- «, t00=0x0020, t01=0x0110}
0x03336…03364 Head {h00=0x002a, h01=0x0050, text=»UWBMSK EQU 14 MASK FOR UWB'S -"- «, t00=0x0020, t01=0x013e}
0x03364…03390 Head {h00=0x0028, h01=0x0050, text=»DWBFST EQU 16 FIRST WORD IN DBLK-TAB«, t00=0x0020, t01=0x016c}
0x03390…03398 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0008}
0x03398…033ca Head {h00=0x002e, h01=0x0050, text=»STPREC EQU 4 RECORD LENGTH OF START-POINTS«, t00=0x0021, t01=0x0010}
0x033ca…033d2 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0042}
0x033d2…033da Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x004a}
0x033da…033f2 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0021, t01=0x0052}
0x033f2…0340a Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x0021, t01=0x006a}
0x0340a…03422 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0021, t01=0x0082}
0x03422…03444 Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x0021, t01=0x009a}
0x03444…0344c Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00bc}
0x0344c…0346a Head {h00=0x001a, h01=0x0050, text=» LAMP CODE MEANING «, t00=0x0021, t01=0x00c4}
0x0346a…03488 Head {h00=0x001a, h01=0x0050, text=» --------- ------- «, t00=0x0021, t01=0x00e2}
0x03488…034aa Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 SYSLOAD RUNS«, t00=0x0021, t01=0x0100}
0x034aa…034ca Head {h00=0x001c, h01=0x0050, text=»LMP2 EQU /200 READ ERROR«, t00=0x0021, t01=0x0122}
0x034ca…034f0 Head {h00=0x0022, h01=0x0050, text=»LMP3 EQU /100 MEMORY OVERFLOW «, t00=0x0021, t01=0x0142}
0x034f0…0351a Head {h00=0x0026, h01=0x0050, text=»LMP4 EQU /80 FORMAT ERROR (CONFIG)«, t00=0x0021, t01=0x0168}
0x0351a…03538 (34, 0, 400) Head {h00=0x001a, h01=0x0050, text=»LMP5 EQU /40 TID ERROR«, t00=0x0022, t01=0x0004}
0x03538…0355e Head {h00=0x0022, h01=0x0050, text=»LMP6 EQU /20 UWB OR SWB ERROR «, t00=0x0022, t01=0x0022}
0x0355e…03584 Head {h00=0x0022, h01=0x0050, text=»LMP7 EQU /10 MM-TABLE OVERFLOW«, t00=0x0022, t01=0x0048}
0x03584…03596 Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x0022, t01=0x006e}
0x03596…035a8 Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x0022, t01=0x0080}
0x035a8…035bc Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x0022, t01=0x0092}
0x035bc…035d0 Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x0022, t01=0x00a6}
0x035d0…035de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00ba}
0x035de…035fc Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0022, t01=0x00c8}
0x035fc…0361a Head {h00=0x001a, h01=0x0050, text=»* OTHER CONSTANTS * «, t00=0x0022, t01=0x00e6}
0x0361a…03638 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0022, t01=0x0104}
0x03638…03644 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0022, t01=0x0122}
0x03644…0366e Head {h00=0x0026, h01=0x0050, text=»WBLEN EQU -4 LENGTH OF WORK-BLOCK «, t00=0x0022, t01=0x012e}
0x0366e…0369e Head {h00=0x002c, h01=0x0050, text=»DTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE «, t00=0x0022, t01=0x0158}
0x0369e…036c8 Head {h00=0x0026, h01=0x0050, text=»SWBLEN EQU 4 DISP TO LENGTH OF SWB«, t00=0x0022, t01=0x0188}
0x036c8…036d4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0023, t01=0x0022}
0x036d4…036fc Head {h00=0x0024, h01=0x0050, text=»FCBDD1 EQU 8 DISP TO FIRST DSET «, t00=0x0023, t01=0x002e}
0x036fc…03724 Head {h00=0x0024, h01=0x0050, text=»FCBDD2 EQU 10 DISP TO 2:ND DSET «, t00=0x0023, t01=0x0056}
0x03724…03730 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0023, t01=0x007e}
0x03730…03758 Head {h00=0x0024, h01=0x0050, text=»STKSZ EQU 128 DEFAULT STACK-SIZE«, t00=0x0023, t01=0x008a}
0x03758…03764 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0023, t01=0x00b2}
0x03764…0378e Head {h00=0x0026, h01=0x0050, text=»CREID EQU 2 CREDIT IDENTIFICATION «, t00=0x0023, t01=0x00be}
0x0378e…037ba Head {h00=0x0028, h01=0x0050, text=»SEGREC EQU 6 RECORD LENGTH IN S:GTAB«, t00=0x0023, t01=0x00e8}
0x037ba…037f6 Head {h00=0x0038, h01=0x0050, text=»NUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN S:GTAB«, t00=0x0023, t01=0x0114}
0x037f6…037fe Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x0150}
0x037fe…0381e Head {h00=0x001c, h01=0x0050, text=»TTBTID EQU 2 TID IN TTAB«, t00=0x0023, t01=0x0158}
0x0381e…03850 Head {h00=0x002e, h01=0x0050, text=»T:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB «, t00=0x0023, t01=0x0178}
0x03850…0387e Head {h00=0x002a, h01=0x0050, text=»TTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB«, t00=0x0024, t01=0x001a}
0x0387e…03886 Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x0048}
0x03886…038b2 Head {h00=0x0028, h01=0x0050, text=»NTPA EQU 4 INTERPRETER START ADDRESS«, t00=0x0024, t01=0x0050}
0x038b2…038dc Head {h00=0x0026, h01=0x0050, text=»IHRTC EQU 4 RTC INTERRUPT ADDRESS «, t00=0x0024, t01=0x007c}
0x038dc…03904 Head {h00=0x0024, h01=0x0050, text=»RTCDA EQU /1B RTC DEVICE ADDRESS«, t00=0x0024, t01=0x00a6}
0x03904…03910 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0024, t01=0x00ce}
0x03910…0395a Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0024, t01=0x00da}
0x0395a…039a4 Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x0024, t01=0x0124}
0x039a4…039ee Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x0024, t01=0x016e}
0x039ee…03a38 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0028}
0x03a38…03a82 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0025, t01=0x0072}
0x03a82…03a8e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0025, t01=0x00bc}
0x03a8e…03a9a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0025, t01=0x00c8}
0x03a9a…03aa6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0025, t01=0x00d4}
0x03aa6…03ac4 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x0025, t01=0x00e0}
0x03ac4…03ad2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00fe}
0x03ad2…03ade Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0025, t01=0x010c}
0x03ade…03b18 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0025, t01=0x0118}
0x03b18…03b52 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0025, t01=0x0152}
0x03b52…03b8c Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0025, t01=0x018c}
0x03b8c…03bc6 Head {h00=0x0036, h01=0x0050, text=»** RELOCATION ROUTINE & STACK INITIALLISATION **«, t00=0x0026, t01=0x0036}
0x03bc6…03c00 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0026, t01=0x0070}
0x03c00…03c3a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x00aa}
0x03c3a…03c74 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x00e4}
0x03c74…03c80 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0026, t01=0x011e}
0x03c80…03cb0 Head {h00=0x002c, h01=0x0050, text=»REL RF SUBBA JUMP TO SUBROUTINE HANDLER «, t00=0x0026, t01=0x012a}
0x03cb0…03cda Head {h00=0x0026, h01=0x0050, text=» LDR A13,P GET BASE ADDRESS TO A13«, t00=0x0026, t01=0x015a}
0x03cda…03cee Head {h00=0x0010, h01=0x0050, text=» SUKL A13,4 «, t00=0x0026, t01=0x0184}
0x03cee…03d10 Head {h00=0x001e, h01=0x0050, text=»* ADJUST FOR PSW-ROUTINE *«, t00=0x0027, t01=0x0008}
0x03d10…03d32 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0027, t01=0x002a}
0x03d32…03d6c Head {h00=0x0036, h01=0x0050, text=» LDK A3,GETPSW RELATIVE ADDRESS TO 'PSWSW-ADDRESS'«, t00=0x0027, t01=0x004c}
0x03d6c…03d8c Head {h00=0x001c, h01=0x0050, text=» ADR A3,A13 ABSOLUT DITO«, t00=0x0027, t01=0x0086}
0x03d8c…03dc4 Head {h00=0x0034, h01=0x0050, text=» ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE«, t00=0x0027, t01=0x00a6}
0x03dc4…03dde Head {h00=0x0016, h01=0x0050, text=»* LOAD STACKBASE *«, t00=0x0027, t01=0x00de}
0x03dde…03df8 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0027, t01=0x00f8}
0x03df8…03e00 Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x0112}
0x03e00…03e18 Head {h00=0x0014, h01=0x0050, text=» LDKL A14,STACKB«, t00=0x0027, t01=0x011a}
0x03e18…03e36 Head {h00=0x001a, h01=0x0050, text=» ADR A14,A13 RELOCATE «, t00=0x0027, t01=0x0132}
0x03e36…03e46 Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0027, t01=0x0150}
0x03e46…03e52 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0027, t01=0x0160}
0x03e52…03e5e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0027, t01=0x016c}
0x03e5e…03e70 Head {h00=0x000e, h01=0x0050, text=»* STACK * «, t00=0x0027, t01=0x0178}
0x03e70…03e82 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0027, t01=0x018a}
0x03e82…03e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x000c}
0x03e8c…03e9c Head {h00=0x000c, h01=0x0050, text=» RES 12 «, t00=0x0028, t01=0x0016}
0x03e9c…03eb6 Head {h00=0x0016, h01=0x0050, text=»STACKB EQU *-REL-2«, t00=0x0028, t01=0x0026}
0x03eb6…03ec4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0040}
0x03ec4…03ed0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x004e}
0x03ed0…03edc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x005a}
0x03edc…03efe Head {h00=0x001e, h01=0x0050, text=»* ADDRESS TO PSW-ROUTINE *«, t00=0x0028, t01=0x0066}
0x03efe…03f20 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0028, t01=0x0088}
0x03f20…03f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00aa}
0x03f2a…03f40 Head {h00=0x0012, h01=0x0050, text=»PSW EQU *-REL «, t00=0x0028, t01=0x00b4}
0x03f40…03f54 Head {h00=0x0010, h01=0x0050, text=» DATA GETPSW«, t00=0x0028, t01=0x00ca}
0x03f54…03f60 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0028, t01=0x00de}
0x03f60…03fa8 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0028, t01=0x00ea}
0x03fa8…03ff0 Head {h00=0x0044, h01=0x0050, text=»* G E T P S W *«, t00=0x0028, t01=0x0132}
0x03ff0…04038 Head {h00=0x0044, h01=0x0050, text=»* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE *«, t00=0x0028, t01=0x017a}
0x04038…04080 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0029, t01=0x0032}
0x04080…0408c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0029, t01=0x007a}
0x0408c…040a4 Head {h00=0x0014, h01=0x0050, text=»GETPSW EQU *-REL«, t00=0x0029, t01=0x0086}
0x040a4…040cc Head {h00=0x0024, h01=0x0050, text=» STR A2,A14 SAVE A2 ON A14-STACK«, t00=0x0029, t01=0x009e}
0x040cc…04100 Head {h00=0x0030, h01=0x0050, text=» LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE«, t00=0x0029, t01=0x00c6}
0x04100…04132 Head {h00=0x002e, h01=0x0050, text=» ST A2,6,A14 REPLACE PSW FROM MAIN PROGRAM«, t00=0x0029, t01=0x00fa}
0x04132…04152 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A14 RESTORE A2 «, t00=0x0029, t01=0x012c}
0x04152…04162 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x014c}
0x04162…04170 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x015c}
0x04170…04178 Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x016a}
0x04178…041a2 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0029, t01=0x0172}
0x041a2…041cc Head {h00=0x0026, h01=0x0050, text=»* * «, t00=0x002a, t01=0x000c}
0x041cc…041f6 Head {h00=0x0026, h01=0x0050, text=»* SUBROUTINE-HANDLER * «, t00=0x002a, t01=0x0036}
0x041f6…04220 Head {h00=0x0026, h01=0x0050, text=»* * «, t00=0x002a, t01=0x0060}
0x04220…0424a Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002a, t01=0x008a}
0x0424a…04252 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00b4}
0x04252…0426a Head {h00=0x0014, h01=0x0050, text=»SUBSUB EQU *-REL«, t00=0x002a, t01=0x00bc}
0x0426a…04290 Head {h00=0x0022, h01=0x0050, text=»SUBBA ST A10,MUL,A13 SAVE A10 «, t00=0x002a, t01=0x00d4}
0x04290…042c2 Head {h00=0x002e, h01=0x0050, text=» LD* A10,4,A14 GET SUBROUTINE REL ADDRESS «, t00=0x002a, t01=0x00fa}
0x042c2…042ea Head {h00=0x0024, h01=0x0050, text=» IM 4,A14 ADJUST RETURN ADDRESS «, t00=0x002a, t01=0x012c}
0x042ea…042fc Head {h00=0x000e, h01=0x0050, text=» IM 4,A14 «, t00=0x002a, t01=0x0154}
0x042fc…04330 Head {h00=0x0030, h01=0x0050, text=» AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION «, t00=0x002a, t01=0x0166}
0x04330…04352 Head {h00=0x001e, h01=0x0050, text=» STR A10,A14 PUT ON STACK «, t00=0x002b, t01=0x000a}
0x04352…04376 Head {h00=0x0020, h01=0x0050, text=» LD A10,MUL,A13 RESTORE A10 «, t00=0x002b, t01=0x002c}
0x04376…04388 Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x002b, t01=0x0050}
0x04388…04390 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0062}
0x04390…04398 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x006a}
0x04398…043a0 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0072}
0x043a0…043e0 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x007a}
0x043e0…04420 Head {h00=0x003c, h01=0x0050, text=»* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * «, t00=0x002b, t01=0x00ba}
0x04420…04460 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x00fa}
0x04460…04468 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x013a}
0x04468…04480 Head {h00=0x0014, h01=0x0050, text=»JUMP ABL SYSLDM «, t00=0x002b, t01=0x0142}
0x04480…0448e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x015a}
0x0448e…0449a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x002b, t01=0x0168}
0x0449a…044c6 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002b, t01=0x0174}
0x044c6…044f2 Head {h00=0x0028, h01=0x0050, text=»** **«, t00=0x002c, t01=0x0010}
0x044f2…0451e Head {h00=0x0028, h01=0x0050, text=»** SAVE, AND COMMUNICATION AREA **«, t00=0x002c, t01=0x003c}
0x0451e…0454a Head {h00=0x0028, h01=0x0050, text=»** **«, t00=0x002c, t01=0x0068}
0x0454a…04576 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002c, t01=0x0094}
0x04576…04582 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x002c, t01=0x00c0}
0x04582…045b0 Head {h00=0x002a, h01=0x0050, text=»T:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS «, t00=0x002c, t01=0x00cc}
0x045b0…045c0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002c, t01=0x00fa}
0x045c0…045ee Head {h00=0x002a, h01=0x0050, text=»T:ATNW EQU *-REL T:ATAB 'NEW' ADDRESS «, t00=0x002c, t01=0x010a}
0x045ee…045fe Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002c, t01=0x0138}
0x045fe…0462a Head {h00=0x0028, h01=0x0050, text=»U:BTOD EQU *-REL U:BTAB OLD ADDRESS «, t00=0x002c, t01=0x0148}
0x0462a…0463a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002c, t01=0x0174}
0x0463a…04666 Head {h00=0x0028, h01=0x0050, text=»U:BTNW EQU *-REL U:BTAB NEW ADDRESS «, t00=0x002c, t01=0x0184}
0x04666…04676 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0020}
0x04676…046a2 Head {h00=0x0028, h01=0x0050, text=»S:BTOD EQU *-REL S:BTAB OLD ADDRESS «, t00=0x002d, t01=0x0030}
0x046a2…046b2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x005c}
0x046b2…046de Head {h00=0x0028, h01=0x0050, text=»S:BTNW EQU *-REL S:BTAB NEW ADDRESS «, t00=0x002d, t01=0x006c}
0x046de…046ee Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0098}
0x046ee…04720 Head {h00=0x002e, h01=0x0050, text=»MOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE«, t00=0x002d, t01=0x00a8}
0x04720…04730 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x00da}
0x04730…04768 Head {h00=0x0034, h01=0x0050, text=»MOVED EQU *-REL INDICATOR IF BLOCK ALREDY MOVED «, t00=0x002d, t01=0x00ea}
0x04768…04778 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0122}
0x04778…047a6 Head {h00=0x002a, h01=0x0050, text=»ENDADD EQU *-REL END-ADDRESS INDICATOR«, t00=0x002d, t01=0x0132}
0x047a6…047c4 Head {h00=0x001a, h01=0x0050, text=» FOR TABLE-SCANNING «, t00=0x002d, t01=0x0160}
0x047c4…047d4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x017e}
0x047d4…04812 Head {h00=0x003a, h01=0x0050, text=»LSTADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART «, t00=0x002d, t01=0x018e}
0x04812…04822 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x003c}
0x04822…04866 Head {h00=0x0040, h01=0x0050, text=»FSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS «, t00=0x002e, t01=0x004c}
0x04866…04876 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0090}
0x04876…048a4 Head {h00=0x002a, h01=0x0050, text=»NEWAD1 EQU *-REL SAVE FOR W.B. ADDRESS«, t00=0x002e, t01=0x00a0}
0x048a4…048b4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x00ce}
0x048b4…048e2 Head {h00=0x002a, h01=0x0050, text=»NEWAD2 EQU *-REL SAVE FORD.T. ADDRESS «, t00=0x002e, t01=0x00de}
0x048e2…048f2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x010c}
0x048f2…0491a Head {h00=0x0024, h01=0x0050, text=»SWITCH EQU *-REL D.T. INDICATOR «, t00=0x002e, t01=0x011c}
0x0491a…0492a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0144}
0x0492a…04964 Head {h00=0x0036, h01=0x0050, text=»FLAG EQU *-REL REAL TASK DATA PROCESSING INDICATOR«, t00=0x002e, t01=0x0154}
0x04964…04974 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x018e}
0x04974…0499a Head {h00=0x0022, h01=0x0050, text=»UWB EQU *-REL U.W.B. INDICATOR«, t00=0x002f, t01=0x000e}
0x0499a…049aa Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0034}
0x049aa…049d2 Head {h00=0x0024, h01=0x0050, text=»SAVE01 EQU *-REL TEMPORARY SAVE «, t00=0x002f, t01=0x0044}
0x049d2…049e2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x006c}
0x049e2…049fa Head {h00=0x0014, h01=0x0050, text=»SAVE02 EQU *-REL«, t00=0x002f, t01=0x007c}
0x049fa…04a0a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0094}
0x04a0a…04a22 Head {h00=0x0014, h01=0x0050, text=»SAVE03 EQU *-REL«, t00=0x002f, t01=0x00a4}
0x04a22…04a32 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x00bc}
0x04a32…04a4a Head {h00=0x0014, h01=0x0050, text=»SAVE04 EQU *-REL«, t00=0x002f, t01=0x00cc}
0x04a4a…04a5a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x00e4}
0x04a5a…04a72 Head {h00=0x0014, h01=0x0050, text=»SAVE05 EQU *-REL«, t00=0x002f, t01=0x00f4}
0x04a72…04a82 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x010c}
0x04a82…04a9a Head {h00=0x0014, h01=0x0050, text=»SAVE06 EQU *-REL«, t00=0x002f, t01=0x011c}
0x04a9a…04aaa Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0134}
0x04aaa…04ac2 Head {h00=0x0014, h01=0x0050, text=»SAVE07 EQU *-REL«, t00=0x002f, t01=0x0144}
0x04ac2…04ad2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x015c}
0x04ad2…04aea Head {h00=0x0014, h01=0x0050, text=»SAVE08 EQU *-REL«, t00=0x002f, t01=0x016c}
0x04aea…04afa Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0184}
0x04afa…04b1e (48, 0, 400) Head {h00=0x0020, h01=0x0050, text=»SAVE09 EQU *-REL SAVE AREAS «, t00=0x0030, t01=0x0004}
0x04b1e…04b2e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0028}
0x04b2e…04b46 Head {h00=0x0014, h01=0x0050, text=»SAVE10 EQU *-REL«, t00=0x0030, t01=0x0038}
0x04b46…04b56 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0050}
0x04b56…04b6e Head {h00=0x0014, h01=0x0050, text=»SAVE11 EQU *-REL«, t00=0x0030, t01=0x0060}
0x04b6e…04b7e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0078}
0x04b7e…04b96 Head {h00=0x0014, h01=0x0050, text=»SAVE12 EQU *-REL«, t00=0x0030, t01=0x0088}
0x04b96…04ba6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00a0}
0x04ba6…04bbe Head {h00=0x0014, h01=0x0050, text=»SAVE13 EQU *-REL«, t00=0x0030, t01=0x00b0}
0x04bbe…04bce Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00c8}
0x04bce…04be6 Head {h00=0x0014, h01=0x0050, text=»SAVE22 EQU *-REL«, t00=0x0030, t01=0x00d8}
0x04be6…04bf6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00f0}
0x04bf6…04c0e Head {h00=0x0014, h01=0x0050, text=»SAVE25 EQU *-REL«, t00=0x0030, t01=0x0100}
0x04c0e…04c1e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0118}
0x04c1e…04c48 Head {h00=0x0026, h01=0x0050, text=»WBADD EQU *-REL W.B.-ADDRESS SAVE «, t00=0x0030, t01=0x0128}
0x04c48…04c58 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0152}
0x04c58…04c86 Head {h00=0x002a, h01=0x0050, text=»MUL EQU *-REL MULTIPLICATION REGISTER «, t00=0x0030, t01=0x0162}
0x04c86…04c96 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0190}
0x04c96…04cc0 Head {h00=0x0026, h01=0x0050, text=»BIT EQU *-REL SAVE FOR SUPER-LOOP «, t00=0x0031, t01=0x0010}
0x04cc0…04cd0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x003a}
0x04cd0…04d0c Head {h00=0x0038, h01=0x0050, text=»TADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS«, t00=0x0031, t01=0x004a}
0x04d0c…04d1c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0086}
0x04d1c…04d4a Head {h00=0x002a, h01=0x0050, text=»DATEND EQU *-REL END OF DDIV PROTOTYPE«, t00=0x0031, t01=0x0096}
0x04d4a…04d5a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x00c4}
0x04d5a…04d86 Head {h00=0x0028, h01=0x0050, text=»MMREL1 EQU *-REL PHYSICALL PAGE BASE«, t00=0x0031, t01=0x00d4}
0x04d86…04d96 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0100}
0x04d96…04dc4 Head {h00=0x002a, h01=0x0050, text=»M:REL EQU *-REL RELOCATION FOR SYSLDM «, t00=0x0031, t01=0x0110}
0x04dc4…04dd4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x013e}
0x04dd4…04dec Head {h00=0x0014, h01=0x0050, text=»SYSBUF EQU *-REL«, t00=0x0031, t01=0x014e}
0x04dec…04e1a Head {h00=0x002a, h01=0x0050, text=» DATA 0 TEMPORARY BUFFER START ADDRESS«, t00=0x0031, t01=0x0166}
0x04e1a…04e44 (50, 0, 400) Head {h00=0x0026, h01=0x0050, text=»BUFSIZ EQU *-REL TEMP. BUFFER SIZE«, t00=0x0032, t01=0x0004}
0x04e44…04e54 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x002e}
0x04e54…04e7a Head {h00=0x0022, h01=0x0050, text=»MMTO EQU *-REL MMTABLE ADDRESS«, t00=0x0032, t01=0x003e}
0x04e7a…04e8a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x0064}
0x04e8a…04eb8 Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU *-REL 2:ND MMTABLE ADDRESS «, t00=0x0032, t01=0x0074}
0x04eb8…04ec8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x00a2}
0x04ec8…04efc Head {h00=0x0030, h01=0x0050, text=»FYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER«, t00=0x0032, t01=0x00b2}
0x04efc…04f0c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x00e6}
0x04f0c…04f24 Head {h00=0x0014, h01=0x0050, text=»FSTPAG EQU *-REL«, t00=0x0032, t01=0x00f6}
0x04f24…04f50 Head {h00=0x0028, h01=0x0050, text=» DATA 0 FIRST FREE PAGE (PHYSICALL) «, t00=0x0032, t01=0x010e}
0x04f50…04f7c Head {h00=0x0028, h01=0x0050, text=»TTAB EQU *-REL CORRENT TTAB ADDRESS «, t00=0x0032, t01=0x013a}
0x04f7c…04f8c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x0166}
0x04f8c…04fa4 Head {h00=0x0014, h01=0x0050, text=»LDALEN EQU *-REL«, t00=0x0032, t01=0x0176}
0x04fa4…04fbc Head {h00=0x0014, h01=0x0050, text=» DATA LDAEND-REL«, t00=0x0032, t01=0x018e}
0x04fbc…04fd4 Head {h00=0x0014, h01=0x0050, text=»XMSAV EQU *-REL «, t00=0x0033, t01=0x0016}
0x04fd4…04fe6 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0033, t01=0x002e}
0x04fe6…04fee Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0040}
0x04fee…04ff6 Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0048}
0x04ff6…04ffe Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0050}
0x04ffe…05006 Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0058}
0x05006…05030 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0033, t01=0x0060}
0x05030…0505a Head {h00=0x0026, h01=0x0050, text=»* EQUATES FOR SYSLDM SAVE-WORDS * «, t00=0x0033, t01=0x008a}
0x0505a…05084 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0033, t01=0x00b4}
0x05084…0508c Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x00de}
0x0508c…050a6 Head {h00=0x0016, h01=0x0050, text=»SAVE14 EQU U:BTOD «, t00=0x0033, t01=0x00e6}
0x050a6…050c0 Head {h00=0x0016, h01=0x0050, text=»SAVE15 EQU U:BTNW «, t00=0x0033, t01=0x0100}
0x050c0…050da Head {h00=0x0016, h01=0x0050, text=»SAVE16 EQU MOVADD «, t00=0x0033, t01=0x011a}
0x050da…050f4 Head {h00=0x0016, h01=0x0050, text=»SAVE17 EQU ENDADD «, t00=0x0033, t01=0x0134}
0x050f4…0510e Head {h00=0x0016, h01=0x0050, text=»SAVE18 EQU LSTADR «, t00=0x0033, t01=0x014e}
0x0510e…05128 Head {h00=0x0016, h01=0x0050, text=»SAVE19 EQU FSTADR «, t00=0x0033, t01=0x0168}
0x05128…05140 Head {h00=0x0014, h01=0x0050, text=»SAVE20 EQU MOVED«, t00=0x0033, t01=0x0182}
0x05140…0515a Head {h00=0x0016, h01=0x0050, text=»SAVE21 EQU NEWAD1 «, t00=0x0034, t01=0x000a}
0x0515a…05174 Head {h00=0x0016, h01=0x0050, text=»SAVE23 EQU SWITCH «, t00=0x0034, t01=0x0024}
0x05174…0518c Head {h00=0x0014, h01=0x0050, text=»SAVE24 EQU FLAG «, t00=0x0034, t01=0x003e}
0x0518c…0519a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0056}
0x0519a…051a2 Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x0064}
0x051a2…051b8 Head {h00=0x0012, h01=0x0050, text=»* MMU TABLES *«, t00=0x0034, t01=0x006c}
0x051b8…051c0 Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x0082}
0x051c0…051c8 Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x008a}
0x051c8…051fa Head {h00=0x002e, h01=0x0050, text=»MMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE «, t00=0x0034, t01=0x0092}
0x051fa…05210 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0034, t01=0x00c4}
0x05210…05220 Head {h00=0x000c, h01=0x0050, text=» RES 16 «, t00=0x0034, t01=0x00da}
0x05220…0522c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00ea}
0x0522c…05234 Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x00f6}
0x05234…0525c Head {h00=0x0024, h01=0x0050, text=»MMTAB EQU *-REL WORK AREA MM-TAB«, t00=0x0034, t01=0x00fe}
0x0525c…05270 Head {h00=0x0010, h01=0x0050, text=»TABBE EQU * «, t00=0x0034, t01=0x0126}
0x05270…05286 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0034, t01=0x013a}
0x05286…052a4 Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0034, t01=0x0150}
0x052a4…052c2 Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0034, t01=0x016e}
0x052c2…052ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x018c}
0x052ce…052e2 Head {h00=0x0010, h01=0x0050, text=»MMEND EQU * «, t00=0x0035, t01=0x0008}
0x052e2…0531a Head {h00=0x0034, h01=0x0050, text=»TTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB «, t00=0x0035, t01=0x001c}
0x0531a…05322 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x0054}
0x05322…0533c Head {h00=0x0016, h01=0x0050, text=»MMBEG EQU TABBE-* «, t00=0x0035, t01=0x005c}
0x0533c…05370 Head {h00=0x0030, h01=0x0050, text=»LSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER'«, t00=0x0035, t01=0x0076}
0x05370…0537e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x00aa}
0x0537e…0538a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0035, t01=0x00b8}
0x0538a…053c4 Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x0035, t01=0x00c4}
0x053c4…053fe Head {h00=0x0036, h01=0x0050, text=»*** S U B R O U T I N E S *** «, t00=0x0035, t01=0x00fe}
0x053fe…05438 Head {h00=0x0036, h01=0x0050, text=»*** -COMMON TO ALL PARTS IN PROGRAM *** «, t00=0x0035, t01=0x0138}
0x05438…05472 Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x0035, t01=0x0172}
0x05472…054ac Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0036, t01=0x001c}
0x054ac…054e6 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0036, t01=0x0056}
0x054e6…054f2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0036, t01=0x0090}
0x054f2…054fe Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0036, t01=0x009c}
0x054fe…0552e Head {h00=0x002c, h01=0x0050, text=»** E R R O R **«, t00=0x0036, t01=0x00a8}
0x0552e…0555e Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0036, t01=0x00d8}
0x0555e…0558e Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0036, t01=0x0108}
0x0558e…055be Head {h00=0x002c, h01=0x0050, text=»** ERROR HANDLING ROUTINE. **«, t00=0x0036, t01=0x0138}
0x055be…055ee Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0036, t01=0x0168}
0x055ee…0561e Head {h00=0x002c, h01=0x0050, text=»** INPUT :A1=SOP-MESSAGE **«, t00=0x0037, t01=0x0008}
0x0561e…0564e Head {h00=0x002c, h01=0x0050, text=»** OUTPUT:A2=RELATIVE CALLING ADDRESS**«, t00=0x0037, t01=0x0038}
0x0564e…0567e Head {h00=0x002c, h01=0x0050, text=»** (REG-CONTENTS IS SAVED) **«, t00=0x0037, t01=0x0068}
0x0567e…056ae Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0037, t01=0x0098}
0x056ae…056b6 Head {h00=0x0004, h01=0x0050, t00=0x0037, t01=0x00c8}
0x056b6…056ca Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x0037, t01=0x00d0}
0x056ca…056ec Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVE01,A13 SAVE A2 «, t00=0x0037, t01=0x00e4}
0x056ec…0571e Head {h00=0x002e, h01=0x0050, text=» LD A2,4,A14 GET CALLING ABSOLUTE ADDRESS «, t00=0x0037, t01=0x0106}
0x0571e…05740 Head {h00=0x001e, h01=0x0050, text=» SUR A2,A13 RELATIVE DITO «, t00=0x0037, t01=0x0138}
0x05740…05756 Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x0037, t01=0x015a}
0x05756…05762 Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x0037, t01=0x0170}
0x05762…05788 Head {h00=0x0022, h01=0x0050, text=» DATA /6300 (DEBUGGING PURPOS)«, t00=0x0037, t01=0x017c}
0x05788…05796 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0012}
0x05796…0579e Head {h00=0x0004, h01=0x0050, t00=0x0038, t01=0x0020}
0x0579e…057c8 Head {h00=0x0026, h01=0x0050, text=»** M O V E ** «, t00=0x0038, t01=0x0028}
0x057c8…057f2 Head {h00=0x0026, h01=0x0050, text=»** ** «, t00=0x0038, t01=0x0052}
0x057f2…0581c Head {h00=0x0026, h01=0x0050, text=»** ** «, t00=0x0038, t01=0x007c}
0x0581c…05846 Head {h00=0x0026, h01=0x0050, text=»** MOVE BLOCKS INSIDE MEMORY ** «, t00=0x0038, t01=0x00a6}
0x05846…05870 Head {h00=0x0026, h01=0x0050, text=»** ** «, t00=0x0038, t01=0x00d0}
0x05870…0589a Head {h00=0x0026, h01=0x0050, text=»** INPUT:A1=FROM-ADDRESS ** «, t00=0x0038, t01=0x00fa}
0x0589a…058c4 Head {h00=0x0026, h01=0x0050, text=»** A2=TO-ADDRESS ** «, t00=0x0038, t01=0x0124}
0x058c4…058ee Head {h00=0x0026, h01=0x0050, text=»** A3=LENGTH ** «, t00=0x0038, t01=0x014e}
0x058ee…05918 Head {h00=0x0026, h01=0x0050, text=»** OUTPUT:A3=-1 ** «, t00=0x0038, t01=0x0178}
0x05918…05942 Head {h00=0x0026, h01=0x0050, text=»** WORK-REG: A4 ** «, t00=0x0039, t01=0x0012}
0x05942…0596c Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0039, t01=0x003c}
0x0596c…05978 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0039, t01=0x0066}
0x05978…0598a Head {h00=0x000e, h01=0x0050, text=»MOVE EQU *«, t00=0x0039, t01=0x0072}
0x0598a…059b2 Head {h00=0x0024, h01=0x0050, text=»MOVES ADR A1,A3 END OF FROM AREA«, t00=0x0039, t01=0x0084}
0x059b2…059d4 Head {h00=0x001e, h01=0x0050, text=» ADR A2,A3 END OF TO-AREA «, t00=0x0039, t01=0x00ac}
0x059d4…059fe Head {h00=0x0026, h01=0x0050, text=» LD A4,SCTEFA GET END OF FREE AREA«, t00=0x0039, t01=0x00ce}
0x059fe…05a1c Head {h00=0x001a, h01=0x0050, text=» TNM A2,A4 EQUAL SIGN?«, t00=0x0039, t01=0x00f8}
0x05a1c…05a36 Head {h00=0x0016, h01=0x0050, text=» RF(NN) MOVNN YES «, t00=0x0039, t01=0x0116}
0x05a36…05a62 Head {h00=0x0028, h01=0x0050, text=» CWR A4,A2 COMPARE WHEN UNEQUAL SIGN«, t00=0x0039, t01=0x0130}
0x05a62…05a74 Head {h00=0x000e, h01=0x0050, text=» RF MOVCK «, t00=0x0039, t01=0x015c}
0x05a74…05aa4 Head {h00=0x002c, h01=0x0050, text=»MOVNN CWR A2,A4 COMPARE WHEN EQUAL SIGN «, t00=0x0039, t01=0x016e}
0x05aa4…05ae0 Head {h00=0x0038, h01=0x0050, text=»MOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA«, t00=0x003a, t01=0x000e}
0x05ae0…05af6 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x003a, t01=0x004a}
0x05af6…05b22 Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x003a, t01=0x0060}
0x05b22…05b44 Head {h00=0x001e, h01=0x0050, text=»MOVE10 SUK A3,1 DEC LENGTH«, t00=0x003a, t01=0x008c}
0x05b44…05b62 Head {h00=0x001a, h01=0x0050, text=» RF(N) MOVE20 ALL DONE«, t00=0x003a, t01=0x00ae}
0x05b62…05b74 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003a, t01=0x00cc}
0x05b74…05b86 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003a, t01=0x00de}
0x05b86…05ba6 Head {h00=0x001c, h01=0x0050, text=» LCR A4,A1 GET CHARACTER«, t00=0x003a, t01=0x00f0}
0x05ba6…05bc8 Head {h00=0x001e, h01=0x0050, text=» SCR A4,A2 STORE CHARACTER«, t00=0x003a, t01=0x0110}
0x05bc8…05bda Head {h00=0x000e, h01=0x0050, text=» RB MOVE10«, t00=0x003a, t01=0x0132}
0x05bda…05bf0 Head {h00=0x0012, h01=0x0050, text=»MOVE20 RTN A14«, t00=0x003a, t01=0x0144}
0x05bf0…05c0c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x003a, t01=0x015a}
0x05c0c…05c1a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0176}
0x05c1a…05c26 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x003a, t01=0x0184}
0x05c26…05c32 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x003a, t01=0x0190}
0x05c32…05c6a Head {h00=0x0034, h01=0x0050, text=»** M O V I N G ** «, t00=0x003b, t01=0x000c}
0x05c6a…05ca2 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x003b, t01=0x0044}
0x05ca2…05cda Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x003b, t01=0x007c}
0x05cda…05d12 Head {h00=0x0034, h01=0x0050, text=»** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** «, t00=0x003b, t01=0x00b4}
0x05d12…05d4a Head {h00=0x0034, h01=0x0050, text=»** ASSUMED TO BE DATA-PART OF MEMORY ** «, t00=0x003b, t01=0x00ec}
0x05d4a…05d82 Head {h00=0x0034, h01=0x0050, text=»** LSTADR POINTS AT LAST (HIGHEST) FREE ** «, t00=0x003b, t01=0x0124}
0x05d82…05dba Head {h00=0x0034, h01=0x0050, text=»** ADDRESS. LSTADR IS UPDATED AND CHECKED ** «, t00=0x003b, t01=0x015c}
0x05dba…05df2 (60, 0, 400) Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x003c, t01=0x0004}
0x05df2…05e2a Head {h00=0x0034, h01=0x0050, text=»** INPUT:A3 & A1 AS IN 'MOVE' ** «, t00=0x003c, t01=0x003c}
0x05e2a…05e62 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** «, t00=0x003c, t01=0x0074}
0x05e62…05e9a Head {h00=0x0034, h01=0x0050, text=»** WORK-REG: A4 ** «, t00=0x003c, t01=0x00ac}
0x05e9a…05ed2 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x003c, t01=0x00e4}
0x05ed2…05ede Head {h00=0x0008, h01=0x0050, text=» «, t00=0x003c, t01=0x011c}
0x05ede…05ef2 Head {h00=0x0010, h01=0x0050, text=»MOVING EQU *«, t00=0x003c, t01=0x0128}
0x05ef2…05f1c Head {h00=0x0026, h01=0x0050, text=» LD A2,LSTADR,A13 GET LAST ADDRESS«, t00=0x003c, t01=0x013c}
0x05f1c…05f3a Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 SUB LENGTH «, t00=0x003c, t01=0x0166}
0x05f3a…05f62 Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x003c, t01=0x0184}
0x05f62…05f86 Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE01,A13 SAVE A11 «, t00=0x003d, t01=0x001c}
0x05f86…05fa8 Head {h00=0x001e, h01=0x0050, text=» ST A9,SAVE12,A13 SAVE A9 «, t00=0x003d, t01=0x0040}
0x05fa8…05fbc Head {h00=0x0010, h01=0x0050, text=» LDR A11,A2 «, t00=0x003d, t01=0x0062}
0x05fbc…05fea Head {h00=0x002a, h01=0x0050, text=» LD A9,DATEND,A13 END OF PROTOTYP AREA«, t00=0x003d, t01=0x0076}
0x05fea…06010 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x003d, t01=0x00a4}
0x06010…06026 Head {h00=0x0012, h01=0x0050, text=» RF(NL) MOV020«, t00=0x003d, t01=0x00ca}
0x06026…06052 Head {h00=0x0028, h01=0x0050, text=»MOV010 LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x003d, t01=0x00e0}
0x06052…06066 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x003d, t01=0x010c}
0x06066…0609e Head {h00=0x0034, h01=0x0050, text=»MOV020 LD A9,FSTADR,A13 CHECK FIRST FREE ADDRESS«, t00=0x003d, t01=0x0120}
0x0609e…060b2 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x003d, t01=0x0158}
0x060b2…060c8 Head {h00=0x0012, h01=0x0050, text=» RB(L) MOV010 «, t00=0x003d, t01=0x016c}
0x060c8…060ee Head {h00=0x0022, h01=0x0050, text=» ST A2,LSTADR,A13 NEW ADDRESS «, t00=0x003d, t01=0x0182}
0x060ee…0611a Head {h00=0x0028, h01=0x0050, text=» LD A9,SAVE12,A13 RESTORE REGISTERS «, t00=0x003e, t01=0x0018}
0x0611a…06134 Head {h00=0x0016, h01=0x0050, text=» LD A11,SAVE01,A13«, t00=0x003e, t01=0x0044}
0x06134…06146 Head {h00=0x000e, h01=0x0050, text=» RB MOVES «, t00=0x003e, t01=0x005e}
0x06146…06152 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0070}
0x06152…0616e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x003e, t01=0x007c}
0x0616e…0617c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0098}
0x0617c…06184 Head {h00=0x0004, h01=0x0001, t00=0x003e, t01=0x00a6}
0x06184…061bc Head {h00=0x0034, h01=0x0050, text=»** X M O V E **«, t00=0x003e, t01=0x00ae}
0x061bc…061f4 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x003e, t01=0x00e6}
0x061f4…0622c Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x003e, t01=0x011e}
0x0622c…06264 Head {h00=0x0034, h01=0x0050, text=»** MOVE BLOCK INSIDE MEMORY VIA MMU **«, t00=0x003e, t01=0x0156}
0x06264…0629c Head {h00=0x0034, h01=0x0050, text=»** TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) **«, t00=0x003e, t01=0x018e}
0x0629c…062d4 Head {h00=0x0034, h01=0x0050, text=»** -MOVE TO USER AREA **«, t00=0x003f, t01=0x0036}
0x062d4…0630c Head {h00=0x0034, h01=0x0050, text=»** IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT**«, t00=0x003f, t01=0x006e}
0x0630c…06344 Head {h00=0x0034, h01=0x0050, text=»** BIG ENOUGH THE MOVE IS REPEATED **«, t00=0x003f, t01=0x00a6}
0x06344…0637c Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x003f, t01=0x00de}
0x0637c…063b4 Head {h00=0x0034, h01=0x0050, text=»** INPUT :A1=FROM-ADDR(MMFROM=MM-TABLE ADDR.)**«, t00=0x003f, t01=0x0116}
0x063b4…063ec Head {h00=0x0034, h01=0x0050, text=»** A2=TO-ADDRESS (MMTO=MM-TABLE ADDR.)**«, t00=0x003f, t01=0x014e}
0x063ec…06424 Head {h00=0x0034, h01=0x0050, text=»** A3=LENGTH (IN BYTES) **«, t00=0x003f, t01=0x0186}
0x06424…0645c Head {h00=0x0034, h01=0x0050, text=»** WORK.REGS:A4,A10 **«, t00=0x0040, t01=0x002e}
0x0645c…06494 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0040, t01=0x0066}
0x06494…0649c Head {h00=0x0004, h01=0x0050, t00=0x0040, t01=0x009e}
0x0649c…064b0 Head {h00=0x0010, h01=0x0050, text=»XMOVE EQU * «, t00=0x0040, t01=0x00a6}
0x064b0…064ca Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE09,A13 «, t00=0x0040, t01=0x00ba}
0x064ca…064e4 Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE07,A13 «, t00=0x0040, t01=0x00d4}
0x064e4…064fe Head {h00=0x0016, h01=0x0050, text=» ST A2,SAVE10,A13 «, t00=0x0040, t01=0x00ee}
0x064fe…06518 Head {h00=0x0016, h01=0x0050, text=» ST A2,SAVE08,A13 «, t00=0x0040, t01=0x0108}
0x06518…06532 Head {h00=0x0016, h01=0x0050, text=» ST A3,SAVE11,A13 «, t00=0x0040, t01=0x0122}
0x06532…0655c Head {h00=0x0026, h01=0x0050, text=» ST A9,XMSAV,A13 SAVE A9,TEMPORARY«, t00=0x0040, t01=0x013c}
0x0655c…0658a Head {h00=0x002a, h01=0x0050, text=» ST A11,XMSAV+2,A13 SAVE A11 TEMPORARY«, t00=0x0040, t01=0x0166}
0x0658a…0659e (65, 0, 398) Head {h00=0x0010, h01=0x0050, text=»XMOV05 EQU *«, t00=0x0041, t01=0x0004}
0x0659e…065be Head {h00=0x001c, h01=0x0017, text=» LDR A10,A3 SAVE LENGTH «, t00=0x0041, t01=0x0018}
0x065be…065ee Head {h00=0x002c, h01=0x0028, text=» LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER«, t00=0x0041, t01=0x0038}
0x065ee…0661c Head {h00=0x002a, h01=0x0050, text=» LDR A11,A3 GET LENGTH OF AREA TO MOVE«, t00=0x0041, t01=0x0068}
0x0661c…06650 Head {h00=0x0030, h01=0x0050, text=» LD A9,BUFSIZ,A13 GET TEMPORARY BUFFER SIZE «, t00=0x0041, t01=0x0096}
0x06650…0666c Head {h00=0x0018, h01=0x0050, text=» CALL CMPADR COMPARE«, t00=0x0041, t01=0x00ca}
0x0666c…06692 Head {h00=0x0022, h01=0x001d, text=» RF(G) SPLIT NO! SEVERAL MOVE «, t00=0x0041, t01=0x00e6}
0x06692…066b6 Head {h00=0x0020, h01=0x0050, text=»XMOV10 LDR A3,A10 GET LENGTH«, t00=0x0041, t01=0x010c}
0x066b6…066e0 Head {h00=0x0026, h01=0x0050, text=» LD A1,SAVE09,A13 GET FROM ADDRESS«, t00=0x0041, t01=0x0130}
0x066e0…06718 Head {h00=0x0034, h01=0x0050, text=» LD A2,SYSBUF,A13 GET TEMP. BUFFER START-ADDRESS«, t00=0x0041, t01=0x015a}
0x06718…06740 (66, 0, 400) Head {h00=0x0024, h01=0x0050, text=» TL* MMFROM,A13 LOAD FROM-TABLE «, t00=0x0042, t01=0x0004}
0x06740…06770 Head {h00=0x002c, h01=0x0028, text=» MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER«, t00=0x0042, t01=0x002c}
0x06770…067a4 Head {h00=0x0030, h01=0x0050, text=» ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS«, t00=0x0042, t01=0x005c}
0x067a4…067be Head {h00=0x0016, h01=0x0050, text=» LD A1,SYSBUF,A13 «, t00=0x0042, t01=0x0090}
0x067be…067f2 Head {h00=0x0030, h01=0x0050, text=» LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS «, t00=0x0042, t01=0x00aa}
0x067f2…06810 Head {h00=0x001a, h01=0x0016, text=» LDR A3,A10 GET LENGTH«, t00=0x0042, t01=0x00de}
0x06810…06834 Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0042, t01=0x00fc}
0x06834…06860 Head {h00=0x0028, h01=0x0024, text=» MVSU A3 MOVE DATA-BLOCK FROM BUFFER«, t00=0x0042, t01=0x0120}
0x06860…06886 Head {h00=0x0022, h01=0x001d, text=» SUK A4,1 MORE PARTS TO MOVE? «, t00=0x0042, t01=0x014c}
0x06886…068a0 Head {h00=0x0016, h01=0x0050, text=» RF(N) XMOV30 NO! «, t00=0x0042, t01=0x0172}
0x068a0…068b4 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A10 «, t00=0x0042, t01=0x018c}
0x068b4…068e8 Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS«, t00=0x0043, t01=0x0010}
0x068e8…06916 Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE11,A13 GET REQUESTED LENGTH«, t00=0x0043, t01=0x0044}
0x06916…0693e Head {h00=0x0024, h01=0x001f, text=» SUR A3,A10 SUBTRACT MOVED PART «, t00=0x0043, t01=0x0072}
0x0693e…0695c Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE11,A13 SAVE«, t00=0x0043, t01=0x009a}
0x0695c…06970 Head {h00=0x0010, h01=0x0050, text=» CWR A3,A10 «, t00=0x0043, t01=0x00b8}
0x06970…06986 Head {h00=0x0012, h01=0x0050, text=» RB(NL) XMOV10«, t00=0x0043, t01=0x00cc}
0x06986…069a6 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A3 LAST LENGTH «, t00=0x0043, t01=0x00e2}
0x069a6…069b8 Head {h00=0x000e, h01=0x0050, text=» RB XMOV10«, t00=0x0043, t01=0x0102}
0x069b8…069c6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0043, t01=0x0114}
0x069c6…069ce Head {h00=0x0004, h01=0x0001, t00=0x0043, t01=0x0122}
0x069ce…069e2 Head {h00=0x0010, h01=0x000b, text=»SPLIT EQU * «, t00=0x0043, t01=0x012a}
0x069e2…06a06 Head {h00=0x0020, h01=0x001c, text=» LDK A1,0 RESET DIVISION REG«, t00=0x0043, t01=0x013e}
0x06a06…06a24 Head {h00=0x001a, h01=0x0016, text=» LDR A2,A3 GET DIVISOR«, t00=0x0043, t01=0x0162}
0x06a24…06a46 Head {h00=0x001e, h01=0x0019, text=» DV BUFSIZ,A13 AND DIVIDE «, t00=0x0043, t01=0x0180}
0x06a46…06a7c Head {h00=0x0032, h01=0x0050, text=» LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1)«, t00=0x0044, t01=0x0012}
0x06a7c…06aa6 Head {h00=0x0026, h01=0x0022, text=» LD A10,BUFSIZ,A13 MOVE MAX LENGTH«, t00=0x0044, t01=0x0048}
0x06aa6…06ab8 Head {h00=0x000e, h01=0x0050, text=» RB XMOV10«, t00=0x0044, t01=0x0072}
0x06ab8…06ac0 Head {h00=0x0004, h01=0x0001, t00=0x0044, t01=0x0084}
0x06ac0…06af4 Head {h00=0x0030, h01=0x0050, text=»XMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS'«, t00=0x0044, t01=0x008c}
0x06af4…06b24 Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS'«, t00=0x0044, t01=0x00c0}
0x06b24…06b48 Head {h00=0x0020, h01=0x0050, text=» LD A9,XMSAV,A13 RESTORE A9 «, t00=0x0044, t01=0x00f0}
0x06b48…06b70 Head {h00=0x0024, h01=0x0050, text=» LD A11,XMSAV+2,A13 RESTORE A11 «, t00=0x0044, t01=0x0114}
0x06b70…06b80 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0044, t01=0x013c}
0x06b80…06b8e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0044, t01=0x014c}
0x06b8e…06b96 Head {h00=0x0004, h01=0x0001, t00=0x0044, t01=0x015a}
0x06b96…06bce Head {h00=0x0034, h01=0x0050, text=»** M O V I N G ** «, t00=0x0044, t01=0x0162}
0x06bce…06c06 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0045, t01=0x000a}
0x06c06…06c3e Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0045, t01=0x0042}
0x06c3e…06c76 Head {h00=0x0034, h01=0x0050, text=»** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** «, t00=0x0045, t01=0x007a}
0x06c76…06cae Head {h00=0x0034, h01=0x0050, text=»** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** «, t00=0x0045, t01=0x00b2}
0x06cae…06ce6 Head {h00=0x0034, h01=0x0050, text=»** IS ALWAYS ASSUMED TO BE DATA PART OF ** «, t00=0x0045, t01=0x00ea}
0x06ce6…06d1e Head {h00=0x0034, h01=0x0050, text=»** MEMORY. LSTADR & FYSPAG POINTS AT LAST ** «, t00=0x0045, t01=0x0122}
0x06d1e…06d56 Head {h00=0x0034, h01=0x0050, text=»** (HIGHEST) FREE ADDRESS. LSTADR &FYSPAG ** «, t00=0x0045, t01=0x015a}
0x06d56…06d8e (70, 0, 400) Head {h00=0x0034, h01=0x0050, text=»** IS UPDATED AND CHECKED. ** «, t00=0x0046, t01=0x0004}
0x06d8e…06dc6 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0046, t01=0x003c}
0x06dc6…06dfe Head {h00=0x0034, h01=0x0050, text=»** INPUT :A1 & A3 AS IN 'XMOVE' ** «, t00=0x0046, t01=0x0074}
0x06dfe…06e36 Head {h00=0x0034, h01=0x0050, text=»** TTAB=POINTER TO TTAB (OR LIKELY) ** «, t00=0x0046, t01=0x00ac}
0x06e36…06e6e Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A2=LOGICALL TO-ADDRESS ** «, t00=0x0046, t01=0x00e4}
0x06e6e…06ea6 Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS: A4,A10 ** «, t00=0x0046, t01=0x011c}
0x06ea6…06ede Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0046, t01=0x0154}
0x06ede…06ee6 Head {h00=0x0004, h01=0x0050, t00=0x0046, t01=0x018c}
0x06ee6…06efa (71, 0, 400) Head {h00=0x0010, h01=0x0050, text=»MOVING EQU *«, t00=0x0047, t01=0x0004}
0x06efa…06f1e Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE01,A13 SAVE A11 «, t00=0x0047, t01=0x0018}
0x06f1e…06f40 Head {h00=0x001e, h01=0x0050, text=» ST A9,SAVE12,A13 SAVE A9 «, t00=0x0047, t01=0x003c}
0x06f40…06f72 Head {h00=0x002e, h01=0x0029, text=» LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE «, t00=0x0047, t01=0x005e}
0x06f72…06f9c Head {h00=0x0026, h01=0x0050, text=» LD A10,TTAB,A13 LOAD TTAB-ADDRESS«, t00=0x0047, t01=0x0090}
0x06f9c…06fd2 Head {h00=0x0032, h01=0x002e, text=» LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB«, t00=0x0047, t01=0x00ba}
0x06fd2…06ff8 Head {h00=0x0022, h01=0x001d, text=» LDR* A9,A2 GET PAGE IN TABLE «, t00=0x0047, t01=0x00f0}
0x06ff8…0700e Head {h00=0x0012, h01=0x0050, text=» ANKL A9,/FC00«, t00=0x0047, t01=0x0116}
0x0700e…0703c Head {h00=0x002a, h01=0x0025, text=» CWR A9,A4 CORRECT PAGE IN MMU-TABLE? «, t00=0x0047, t01=0x012c}
0x0703c…07056 Head {h00=0x0016, h01=0x0050, text=» RF(E) MOV010 YES!«, t00=0x0047, t01=0x015a}
0x07056…07080 Head {h00=0x0026, h01=0x0050, text=» ADKL A4,/400 ADJUST FOR 'SETTAB' «, t00=0x0047, t01=0x0174}
0x07080…070a8 Head {h00=0x0024, h01=0x0050, text=» CALL SETTAB NEW PAGE IN TABLE! «, t00=0x0048, t01=0x000e}
0x070a8…070e2 Head {h00=0x0036, h01=0x0050, text=»MOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS«, t00=0x0048, t01=0x0036}
0x070e2…070f8 Head {h00=0x0012, h01=0x000e, text=» ANKL A11,/FFF«, t00=0x0048, t01=0x0070}
0x070f8…07126 Head {h00=0x002a, h01=0x0050, text=» LDR A9,A3 GET LENGTH OF AREA TO MOVE «, t00=0x0048, t01=0x0086}
0x07126…0715a Head {h00=0x0030, h01=0x0050, text=» CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? «, t00=0x0048, t01=0x00b4}
0x0715a…07174 Head {h00=0x0016, h01=0x0050, text=» RF(NL) MOV020 YES«, t00=0x0048, t01=0x00e8}
0x07174…071a8 Head {h00=0x0030, h01=0x0050, text=» SUR A11,A3 COMPUTE DISPLACEMENT WITHIN PAGE«, t00=0x0048, t01=0x0102}
0x071a8…071c6 Head {h00=0x001a, h01=0x0050, text=»MOV015 RF(NP) MOV025 «, t00=0x0048, t01=0x0136}
0x071c6…071f4 Head {h00=0x002a, h01=0x0050, text=» CALL SETTAB INITIALIZE NEW PAGE ENTRY«, t00=0x0048, t01=0x0154}
0x071f4…07222 Head {h00=0x002a, h01=0x0050, text=» ADKL A11,4096 PHYSICAL PAGE INCREMENT«, t00=0x0048, t01=0x0182}
0x07222…07234 Head {h00=0x000e, h01=0x0050, text=» RB MOV015«, t00=0x0049, t01=0x0020}
0x07234…0726e Head {h00=0x0036, h01=0x0050, text=»MOV020 SUR A11,A3 COMPUTE DISPLACEMENT WITHIN PAGE«, t00=0x0049, t01=0x0032}
0x0726e…0728a Head {h00=0x0018, h01=0x0050, text=»MOV025 RF(NN) MOV050«, t00=0x0049, t01=0x006c}
0x0728a…072b8 Head {h00=0x002a, h01=0x0050, text=»MOV030 CALL SETTAB NEW PAGE IN TABLE! «, t00=0x0049, t01=0x0088}
0x072b8…072e2 Head {h00=0x0026, h01=0x0021, text=» ADKL A11,4096 NEW PAGE INCREMENT «, t00=0x0049, t01=0x00b6}
0x072e2…0730e Head {h00=0x0028, h01=0x0050, text=» RB(N) MOV030 NOT ENOUGH. NEW PAGE! «, t00=0x0049, t01=0x00e0}
0x0730e…07316 Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x010c}
0x07316…07342 Head {h00=0x0028, h01=0x0050, text=»* MM-TABLE CORRECT. SAVE ADDRESSES *«, t00=0x0049, t01=0x0114}
0x07342…0734a Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x0140}
0x0734a…0736c Head {h00=0x001e, h01=0x0050, text=»* A4=PHYSICALL PAGE NUMBER«, t00=0x0049, t01=0x0148}
0x0736c…07390 Head {h00=0x0020, h01=0x0050, text=»* A11=DISPLACEM. WITHIN PAGE«, t00=0x0049, t01=0x016a}
0x07390…073b6 Head {h00=0x0022, h01=0x0050, text=»* A2=CURRENT ENTRY IN MM-TABLE«, t00=0x0049, t01=0x018e}
0x073b6…073be Head {h00=0x0004, h01=0x0001, t00=0x004a, t01=0x0024}
0x073be…073d2 Head {h00=0x0010, h01=0x0050, text=»MOV050 EQU *«, t00=0x004a, t01=0x002c}
0x073d2…07402 Head {h00=0x002c, h01=0x0028, text=» ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB«, t00=0x004a, t01=0x0040}
0x07402…07436 Head {h00=0x0030, h01=0x002c, text=» ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER«, t00=0x004a, t01=0x0070}
0x07436…0746e Head {h00=0x0034, h01=0x0050, text=» LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. «, t00=0x004a, t01=0x00a4}
0x0746e…07498 Head {h00=0x0026, h01=0x0022, text=» ADR A4,A10 ABSOLUTE ENTRY ADDRESS«, t00=0x004a, t01=0x00dc}
0x07498…074c2 Head {h00=0x0026, h01=0x0050, text=» ST A4,MMTO,A13 SAVE TABLE ADDRESS«, t00=0x004a, t01=0x0106}
0x074c2…074e6 Head {h00=0x0020, h01=0x001b, text=» SUR A2,A4 RELATIVE ADDRESS «, t00=0x004a, t01=0x0130}
0x074e6…0751c Head {h00=0x0032, h01=0x0050, text=» SLL A2,11 SHIFT TO FOUR FIRST BITS & DIV BY 2«, t00=0x004a, t01=0x0154}
0x0751c…0754a Head {h00=0x002a, h01=0x0050, text=» ORR A2,A11 GET DISPLACEM. WITHIN PAGE«, t00=0x004a, t01=0x018a}
0x0754a…0756e Head {h00=0x0020, h01=0x0050, text=» ANKL A2,/FFFE EVEN ADDRESS «, t00=0x004b, t01=0x0028}
0x0756e…0759e Head {h00=0x002c, h01=0x0027, text=» ST A2,LSTADR,A13 SAVE LOGICALL ADDRESS «, t00=0x004b, t01=0x004c}
0x0759e…075ba Head {h00=0x0018, h01=0x0050, text=»* CHECK ADDRESSES * «, t00=0x004b, t01=0x007c}
0x075ba…075c2 Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x0098}
0x075c2…075f0 Head {h00=0x002a, h01=0x0050, text=» LD A9,FSTPAG,A13 GET FIRST FREE PAGE «, t00=0x004b, t01=0x00a0}
0x075f0…07614 Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE07,A13 SAVE A11 «, t00=0x004b, t01=0x00ce}
0x07614…0762e Head {h00=0x0016, h01=0x0050, text=» LD A11,FYSPAG,A13«, t00=0x004b, t01=0x00f2}
0x0762e…0764e Head {h00=0x001c, h01=0x0050, text=» CALL CMPADR AND COMPARE«, t00=0x004b, t01=0x010c}
0x0764e…07668 Head {h00=0x0016, h01=0x0050, text=» RF(G) MOV090 OK! «, t00=0x004b, t01=0x012c}
0x07668…07682 Head {h00=0x0016, h01=0x0050, text=» RF(L) MOV070 NOK!«, t00=0x004b, t01=0x0146}
0x07682…076ac Head {h00=0x0026, h01=0x0050, text=» LD A11,SAVE07,A13 RESTORE DISPL. «, t00=0x004b, t01=0x0160}
0x076ac…076c6 Head {h00=0x0016, h01=0x0050, text=» LD A9,FSTADR,A13 «, t00=0x004b, t01=0x018a}
0x076c6…076da Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x004c, t01=0x0014}
0x076da…076f4 Head {h00=0x0016, h01=0x0050, text=» RF(NL) MOV090 OK!«, t00=0x004c, t01=0x0028}
0x076f4…07710 Head {h00=0x0018, h01=0x0050, text=»MOV070 LDKL A1,LMP3 «, t00=0x004c, t01=0x0042}
0x07710…07724 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004c, t01=0x005e}
0x07724…07738 Head {h00=0x0010, h01=0x0050, text=»MOV090 EQU *«, t00=0x004c, t01=0x0072}
0x07738…07750 Head {h00=0x0014, h01=0x0050, text=» CALL XMOVE MOVE«, t00=0x004c, t01=0x0086}
0x07750…0776a Head {h00=0x0016, h01=0x0050, text=» LD A9,SAVE12,A13 «, t00=0x004c, t01=0x009e}
0x0776a…07796 Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 RESTORE REGISTERS«, t00=0x004c, t01=0x00b8}
0x07796…077be Head {h00=0x0024, h01=0x0050, text=» TL* MMFROM,A13 RESTORE MM-TABLE«, t00=0x004c, t01=0x00e4}
0x077be…077ce Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x004c, t01=0x010c}
0x077ce…077dc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x004c, t01=0x011c}
0x077dc…077e4 Head {h00=0x0004, h01=0x0001, t00=0x004c, t01=0x012a}
0x077e4…0781e Head {h00=0x0036, h01=0x0050, text=»** S E T T A B ** «, t00=0x004c, t01=0x0132}
0x0781e…07858 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x004c, t01=0x016c}
0x07858…07892 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x004d, t01=0x0016}
0x07892…078cc Head {h00=0x0036, h01=0x0050, text=»** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** «, t00=0x004d, t01=0x0050}
0x078cc…07906 Head {h00=0x0036, h01=0x0050, text=»** OVERFLOW. ** «, t00=0x004d, t01=0x008a}
0x07906…07940 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x004d, t01=0x00c4}
0x07940…0797a Head {h00=0x0036, h01=0x0050, text=»** INPUT :A2-ADDRESS TO CURRENT ENTRY ** «, t00=0x004d, t01=0x00fe}
0x0797a…079b4 Head {h00=0x0036, h01=0x0050, text=»** A4=PHYSICALL PAGE ** «, t00=0x004d, t01=0x0138}
0x079b4…079ee Head {h00=0x0036, h01=0x0050, text=»** OUTPUT:A2 & A4 IS UPDATED ** «, t00=0x004d, t01=0x0172}
0x079ee…07a28 Head {h00=0x0036, h01=0x0050, text=»** WORK.REG: A9 ** «, t00=0x004e, t01=0x001c}
0x07a28…07a62 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x004e, t01=0x0056}
0x07a62…07a6a Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x0090}
0x07a6a…07a7e Head {h00=0x0010, h01=0x0050, text=»SETTAB EQU *«, t00=0x004e, t01=0x0098}
0x07a7e…07aa2 Head {h00=0x0020, h01=0x001b, text=» SUKL A4,/400 GET NEXT PAGE «, t00=0x004e, t01=0x00ac}
0x07aa2…07ac2 Head {h00=0x001c, h01=0x0018, text=» SUK A2,2 GET NEXT ENTRY«, t00=0x004e, t01=0x00d0}
0x07ac2…07aca Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x00f0}
0x07aca…07af0 Head {h00=0x0022, h01=0x0050, text=»* CHECK IF MM-TABLE OVERFLOW *«, t00=0x004e, t01=0x00f8}
0x07af0…07af8 Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x011e}
0x07af8…07b24 Head {h00=0x0028, h01=0x0050, text=» LDR A9,A10 GET END-ADDRESS A10=TTAB«, t00=0x004e, t01=0x0126}
0x07b24…07b3a Head {h00=0x0012, h01=0x0050, text=» ADKL A9,MMBEG«, t00=0x004e, t01=0x0152}
0x07b3a…07b60 Head {h00=0x0022, h01=0x0050, text=» TNM A2,A9 32-KB BOARDER CHECK«, t00=0x004e, t01=0x0168}
0x07b60…07b76 Head {h00=0x0012, h01=0x0050, text=» RF(NN) SETT00«, t00=0x004e, t01=0x018e}
0x07b76…07b88 Head {h00=0x000e, h01=0x0050, text=» CWR A9,A2«, t00=0x004f, t01=0x0014}
0x07b88…07b9a Head {h00=0x000e, h01=0x0050, text=» RF SETT05«, t00=0x004f, t01=0x0026}
0x07b9a…07bbc Head {h00=0x001e, h01=0x0050, text=»SETT00 CWR A2,A9 OVERFLOW?«, t00=0x004f, t01=0x0038}
0x07bbc…07bdc Head {h00=0x001c, h01=0x0050, text=»SETT05 RF(NL) SETT10 NO «, t00=0x004f, t01=0x005a}
0x07bdc…07bf0 Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP7«, t00=0x004f, t01=0x007a}
0x07bf0…07c04 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004f, t01=0x008e}
0x07c04…07c18 Head {h00=0x0010, h01=0x0050, text=»SETT10 EQU *«, t00=0x004f, t01=0x00a2}
0x07c18…07c3a Head {h00=0x001e, h01=0x0019, text=» STR A4,A2 STORE IN TABLE «, t00=0x004f, t01=0x00b6}
0x07c3a…07c4a Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x004f, t01=0x00d8}
0x07c4a…07c56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00e8}
0x07c56…07c6c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x004f, t01=0x00f4}
0x07c6c…07c7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x010a}
0x07c7a…07c86 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x004f, t01=0x0118}
0x07c86…07cbe Head {h00=0x0034, h01=0x0050, text=»** G E T W B ** «, t00=0x004f, t01=0x0124}
0x07cbe…07cf6 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x004f, t01=0x015c}
0x07cf6…07d2e (80, 0, 400) Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0050, t01=0x0004}
0x07d2e…07d66 Head {h00=0x0034, h01=0x0050, text=»** GET WORK BLOCK ADDRESS AND DISPLACE- ** «, t00=0x0050, t01=0x003c}
0x07d66…07d9e Head {h00=0x0034, h01=0x0050, text=»** MENT IN T:A ** «, t00=0x0050, t01=0x0074}
0x07d9e…07dd6 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0050, t01=0x00ac}
0x07dd6…07e0e Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** «, t00=0x0050, t01=0x00e4}
0x07e0e…07e46 Head {h00=0x0034, h01=0x0050, text=»** BIT=BIT NUMBER SAT IN MASK (0-15)** «, t00=0x0050, t01=0x011c}
0x07e46…07e7e Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A4=W.B. DISPLACEMENT IN T:A ** «, t00=0x0050, t01=0x0154}
0x07e7e…07eb6 Head {h00=0x0034, h01=0x0050, text=»** TADISP=A4 ** «, t00=0x0050, t01=0x018c}
0x07eb6…07eee Head {h00=0x0034, h01=0x0050, text=»** A11=W.B.-ADDRESS ** «, t00=0x0051, t01=0x0034}
0x07eee…07f26 Head {h00=0x0034, h01=0x0050, text=»** WBADD=POINTER TO W.B.-ADD IN T:A ** «, t00=0x0051, t01=0x006c}
0x07f26…07f5e Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0051, t01=0x00a4}
0x07f5e…07f6a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0051, t01=0x00dc}
0x07f6a…07f7e Head {h00=0x0010, h01=0x0050, text=»GETWB EQU * «, t00=0x0051, t01=0x00e8}
0x07f7e…07fa4 Head {h00=0x0022, h01=0x0050, text=» LD A4,BIT,A13 GET BIT NUMBER «, t00=0x0051, t01=0x00fc}
0x07fa4…07fcc Head {h00=0x0024, h01=0x0050, text=» SLL A4,2 ADJUST FOR ADDRESSING «, t00=0x0051, t01=0x0122}
0x07fcc…07fe4 Head {h00=0x0014, h01=0x0050, text=» ADK A4,WATFST+2«, t00=0x0051, t01=0x014a}
0x07fe4…08010 Head {h00=0x0028, h01=0x0050, text=» ST A4,TADISP,A13 SAVE DISPLACEMENT «, t00=0x0051, t01=0x0162}
0x08010…0802c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0051, t01=0x018e}
0x0802c…08050 Head {h00=0x0020, h01=0x0050, text=» LDR* A11,A8 GET T:A-ADDRESS«, t00=0x0052, t01=0x001a}
0x08050…08074 Head {h00=0x0020, h01=0x0050, text=» ADR A11,A4 ADD DISPLACEMENT«, t00=0x0052, t01=0x003e}
0x08074…08092 Head {h00=0x001a, h01=0x0050, text=» ST A11,WBADD,A13 SAVE«, t00=0x0052, t01=0x0062}
0x08092…080b8 Head {h00=0x0022, h01=0x0050, text=» LDR* A11,A11 GET W.B.-ADDRESS«, t00=0x0052, t01=0x0080}
0x080b8…080c4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00a6}
0x080c4…080e0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0052, t01=0x00b2}
0x080e0…08114 Head {h00=0x0030, h01=0x0050, text=» LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? «, t00=0x0052, t01=0x00ce}
0x08114…0812e Head {h00=0x0016, h01=0x0050, text=» RF(Z) GETW10 NO! «, t00=0x0052, t01=0x0102}
0x0812e…08152 Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0052, t01=0x011c}
0x08152…0817c Head {h00=0x0026, h01=0x0050, text=»GETW10 ELR A11,A8 GET T:A-ADDRESS «, t00=0x0052, t01=0x0140}
0x0817c…081a0 Head {h00=0x0020, h01=0x0050, text=» ADR A11,A4 ADD DISPLACEMENT«, t00=0x0052, t01=0x016a}
0x081a0…081be Head {h00=0x001a, h01=0x0050, text=» ST A11,WBADD,A13 SAVE«, t00=0x0052, t01=0x018e}
0x081be…081e4 Head {h00=0x0022, h01=0x0050, text=» ELR A11,A11 GET W.B.-ADDRESS «, t00=0x0053, t01=0x001c}
0x081e4…0820e Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0053, t01=0x0042}
0x0820e…0821a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x006c}
0x0821a…08230 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0053, t01=0x0078}
0x08230…08240 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0053, t01=0x008e}
0x08240…0824e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x009e}
0x0824e…0825a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0053, t01=0x00ac}
0x0825a…08266 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0053, t01=0x00b8}
0x08266…082a2 Head {h00=0x0038, h01=0x0050, text=»** M O V W B **«, t00=0x0053, t01=0x00c4}
0x082a2…082de Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0053, t01=0x0100}
0x082de…0831a Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0053, t01=0x013c}
0x0831a…08356 Head {h00=0x0038, h01=0x0050, text=»** MOVE WORK-BLOCK. W.B.-ADDRESS IS UPDATED **«, t00=0x0053, t01=0x0178}
0x08356…08392 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x0054, t01=0x0024}
0x08392…083ce Head {h00=0x0038, h01=0x0050, text=»** INPUT: A11=W.B.-ADDRESS **«, t00=0x0054, t01=0x0060}
0x083ce…0840a Head {h00=0x0038, h01=0x0050, text=»** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS **«, t00=0x0054, t01=0x009c}
0x0840a…08446 Head {h00=0x0038, h01=0x0050, text=»** WORK-REGS: A1-A4 **«, t00=0x0054, t01=0x00d8}
0x08446…08482 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0054, t01=0x0114}
0x08482…0848e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0054, t01=0x0150}
0x0848e…084a2 Head {h00=0x0010, h01=0x0050, text=»MOVWB EQU * «, t00=0x0054, t01=0x015c}
0x084a2…084c2 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A11 GET ADDRESS «, t00=0x0054, t01=0x0170}
0x084c2…084e6 Head {h00=0x0020, h01=0x0050, text=» ADKL A1,WBLEN FROM-ADDRESS «, t00=0x0054, t01=0x0190}
0x084e6…08502 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0055, t01=0x0024}
0x08502…0851c Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A1 LENGTH«, t00=0x0055, t01=0x0040}
0x0851c…08530 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0055, t01=0x005a}
0x08530…0856a Head {h00=0x0036, h01=0x0050, text=» SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT «, t00=0x0055, t01=0x006e}
0x0856a…085a2 Head {h00=0x0034, h01=0x0050, text=» ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE«, t00=0x0055, t01=0x00a8}
0x085a2…085ae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x00e0}
0x085ae…085ca Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0055, t01=0x00ec}
0x085ca…085e4 Head {h00=0x0016, h01=0x0050, text=» ELR A3,A1 LENGTH «, t00=0x0055, t01=0x0108}
0x085e4…085f8 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0055, t01=0x0122}
0x085f8…08632 Head {h00=0x0036, h01=0x0050, text=» SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT «, t00=0x0055, t01=0x0136}
0x08632…08664 Head {h00=0x002e, h01=0x0050, text=» LD A4,FLAG,A13 REAL DATA-PART PROCESSING?«, t00=0x0055, t01=0x0170}
0x08664…0867e Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVW10 NO! «, t00=0x0056, t01=0x0012}
0x0867e…086a2 Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0056, t01=0x002c}
0x086a2…086e0 Head {h00=0x003a, h01=0x0050, text=»MOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE«, t00=0x0056, t01=0x0050}
0x086e0…0870a Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0056, t01=0x008e}
0x0870a…08716 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x00b8}
0x08716…0872c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0056, t01=0x00c4}
0x0872c…0873c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0056, t01=0x00da}
0x0873c…0874a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x00ea}
0x0874a…08756 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0056, t01=0x00f8}
0x08756…08762 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0056, t01=0x0104}
0x08762…087a0 Head {h00=0x003a, h01=0x0050, text=»** M O V D T ** «, t00=0x0056, t01=0x0110}
0x087a0…087de Head {h00=0x003a, h01=0x0050, text=»** ** «, t00=0x0056, t01=0x014e}
0x087de…0881c Head {h00=0x003a, h01=0x0050, text=»** ** «, t00=0x0056, t01=0x018c}
0x0881c…0885a Head {h00=0x003a, h01=0x0050, text=»** MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** «, t00=0x0057, t01=0x003a}
0x0885a…08898 Head {h00=0x003a, h01=0x0050, text=»** ** «, t00=0x0057, t01=0x0078}
0x08898…088d6 Head {h00=0x003a, h01=0x0050, text=»** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** «, t00=0x0057, t01=0x00b6}
0x088d6…08914 Head {h00=0x003a, h01=0x0050, text=»** OUTPUT: A3=POINTER TO W.B.-ADDRESS ** «, t00=0x0057, t01=0x00f4}
0x08914…08952 Head {h00=0x003a, h01=0x0050, text=»** WORK REGS: A1-A4 ** «, t00=0x0057, t01=0x0132}
0x08952…08990 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0057, t01=0x0170}
0x08990…0899c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0058, t01=0x001e}
0x0899c…089b0 Head {h00=0x0010, h01=0x0050, text=»MOVDT EQU * «, t00=0x0058, t01=0x002a}
0x089b0…089ea Head {h00=0x0036, h01=0x0050, text=» LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT«, t00=0x0058, t01=0x003e}
0x089ea…08a14 Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 POINTER TO D.T.-ADDRESS «, t00=0x0058, t01=0x0078}
0x08a14…08a30 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0058, t01=0x00a2}
0x08a30…08a50 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A1 D.T.-ADDRESS«, t00=0x0058, t01=0x00be}
0x08a50…08a7e Head {h00=0x002a, h01=0x0050, text=» ADKL A1,DTLEN ADJUST FOR LENGTH WORD «, t00=0x0058, t01=0x00de}
0x08a7e…08aa0 Head {h00=0x001e, h01=0x0050, text=» AD A1,MOVADD,A13 RELOCATE«, t00=0x0058, t01=0x010c}
0x08aa0…08aba Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A1 LENGTH«, t00=0x0058, t01=0x012e}
0x08aba…08ace Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0058, t01=0x0148}
0x08ace…08ae6 Head {h00=0x0014, h01=0x0050, text=» LD A3,WBADD,A13«, t00=0x0058, t01=0x015c}
0x08ae6…08afc Head {h00=0x0012, h01=0x0050, text=» SUKL A2,DTLEN«, t00=0x0058, t01=0x0174}
0x08afc…08b12 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,DTLEN«, t00=0x0058, t01=0x018a}
0x08b12…08b4a Head {h00=0x0034, h01=0x0050, text=» ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS «, t00=0x0059, t01=0x0010}
0x08b4a…08b56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x0048}
0x08b56…08b72 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0059, t01=0x0054}
0x08b72…08b92 Head {h00=0x001c, h01=0x0050, text=» ELR A1,A1 D.T.-ADDRESS «, t00=0x0059, t01=0x0070}
0x08b92…08bc0 Head {h00=0x002a, h01=0x0050, text=» ADKL A1,DTLEN ADJUST FOR LENGTH WORD «, t00=0x0059, t01=0x0090}
0x08bc0…08be2 Head {h00=0x001e, h01=0x0050, text=» AD A1,MOVADD,A13 RELOCATE«, t00=0x0059, t01=0x00be}
0x08be2…08bfc Head {h00=0x0016, h01=0x0050, text=» ELR A3,A1 LENGTH «, t00=0x0059, t01=0x00e0}
0x08bfc…08c10 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0059, t01=0x00fa}
0x08c10…08c28 Head {h00=0x0014, h01=0x0050, text=» LD A3,WBADD,A13«, t00=0x0059, t01=0x010e}
0x08c28…08c3e Head {h00=0x0012, h01=0x0050, text=» SUKL A2,DTLEN«, t00=0x0059, t01=0x0126}
0x08c3e…08c54 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,DTLEN«, t00=0x0059, t01=0x013c}
0x08c54…08c8c Head {h00=0x0034, h01=0x0050, text=» ES A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS «, t00=0x0059, t01=0x0152}
0x08c8c…08c98 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x018a}
0x08c98…08cae Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005a, t01=0x0008}
0x08cae…08cbe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005a, t01=0x001e}
0x08cbe…08ccc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x002e}
0x08ccc…08cd8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x005a, t01=0x003c}
0x08cd8…08d18 Head {h00=0x003c, h01=0x0050, text=»** M O V D W B **«, t00=0x005a, t01=0x0048}
0x08d18…08d58 Head {h00=0x003c, h01=0x0050, text=»** **«, t00=0x005a, t01=0x0088}
0x08d58…08d98 Head {h00=0x003c, h01=0x0050, text=»** **«, t00=0x005a, t01=0x00c8}
0x08d98…08dd8 Head {h00=0x003c, h01=0x0050, text=»** SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. **«, t00=0x005a, t01=0x0108}
0x08dd8…08e18 Head {h00=0x003c, h01=0x0050, text=»** AND UPDATE ADDRESSES (W.B. & D.T.) **«, t00=0x005a, t01=0x0148}
0x08e18…08e58 Head {h00=0x003c, h01=0x0050, text=»** **«, t00=0x005a, t01=0x0188}
0x08e58…08e98 Head {h00=0x003c, h01=0x0050, text=»** INPUT : A12=T:D-ADDRESS **«, t00=0x005b, t01=0x0038}
0x08e98…08ed8 Head {h00=0x003c, h01=0x0050, text=»** A8= POINTER TO T:A-ADDRESS **«, t00=0x005b, t01=0x0078}
0x08ed8…08f18 Head {h00=0x003c, h01=0x0050, text=»** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) **«, t00=0x005b, t01=0x00b8}
0x08f18…08f58 Head {h00=0x003c, h01=0x0050, text=»** WORK.REGS: A1-A4 **«, t00=0x005b, t01=0x00f8}
0x08f58…08f98 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005b, t01=0x0138}
0x08f98…08fa4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x005b, t01=0x0178}
0x08fa4…08fb8 Head {h00=0x0010, h01=0x0050, text=»MOVDWB EQU *«, t00=0x005b, t01=0x0184}
0x08fb8…08fda Head {h00=0x001e, h01=0x0050, text=» ST A6,SAVE05,A13 SAVE A5 «, t00=0x005c, t01=0x0008}
0x08fda…08fec Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x005c, t01=0x002a}
0x08fec…09018 Head {h00=0x0028, h01=0x0050, text=»MOVD10 LD A4,BIT,A13 GET BIT NUMBER «, t00=0x005c, t01=0x003c}
0x09018…0903e Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 FIRST WAT-ELEMENT =1«, t00=0x005c, t01=0x0068}
0x0903e…0905a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005c, t01=0x008e}
0x0905a…09074 Head {h00=0x0016, h01=0x0050, text=» LD A2,WATLEN,A12 «, t00=0x005c, t01=0x00aa}
0x09074…09080 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x00c4}
0x09080…0909c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005c, t01=0x00d0}
0x0909c…090b6 Head {h00=0x0016, h01=0x0050, text=» EL A2,WATLEN,A12 «, t00=0x005c, t01=0x00ec}
0x090b6…090c2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x0106}
0x090c2…090d8 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005c, t01=0x0112}
0x090d8…090fe Head {h00=0x0022, h01=0x0050, text=» SUR A2,A6 ACTUAL TABLE LENGTH«, t00=0x005c, t01=0x0128}
0x090fe…09122 Head {h00=0x0020, h01=0x0050, text=» ADR A6,A12 A6=TABLE POINTER«, t00=0x005c, t01=0x014e}
0x09122…09148 Head {h00=0x0022, h01=0x0050, text=»MOVD20 ADK A6,1 A6=TABLE INDEX«, t00=0x005c, t01=0x0172}
0x09148…0915e Head {h00=0x0012, h01=0x0050, text=» SUK A2,1 ALL?«, t00=0x005d, t01=0x0008}
0x0915e…09178 Head {h00=0x0016, h01=0x0050, text=» RF(N) MOVD60 YES!«, t00=0x005d, t01=0x001e}
0x09178…09194 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005d, t01=0x0038}
0x09194…091ba Head {h00=0x0022, h01=0x0050, text=» CC A4,DWBFST,A6 SHARED W.B.? «, t00=0x005d, t01=0x0054}
0x091ba…091c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x007a}
0x091c6…091e2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005d, t01=0x0086}
0x091e2…09210 Head {h00=0x002a, h01=0x0050, text=» EL A10,DWBFST,A6 CHECK IF SHARED W.B.«, t00=0x005d, t01=0x00a2}
0x09210…09236 Head {h00=0x0022, h01=0x0050, text=» SRC A6,1 RIGHT OR LEFT BYTE? «, t00=0x005d, t01=0x00d0}
0x09236…09252 Head {h00=0x0018, h01=0x0050, text=» RF(N) MOVD30 RIGHT!«, t00=0x005d, t01=0x00f6}
0x09252…0926a Head {h00=0x0014, h01=0x0050, text=» ANKL A10,/FF00 «, t00=0x005d, t01=0x0112}
0x0926a…0927e Head {h00=0x0010, h01=0x0050, text=» ECR A10,A10«, t00=0x005d, t01=0x012a}
0x0927e…09290 Head {h00=0x000e, h01=0x0050, text=» RF MOVD40«, t00=0x005d, t01=0x013e}
0x09290…092ac Head {h00=0x0018, h01=0x0050, text=»MOVD30 ANKL A10,/FF «, t00=0x005d, t01=0x0150}
0x092ac…092d2 Head {h00=0x0022, h01=0x0050, text=»MOVD40 SLC A6,1 ADJUST POINTER«, t00=0x005d, t01=0x016c}
0x092d2…092f2 (94, 0, 400) Head {h00=0x001c, h01=0x0050, text=» CWR A4,A10 SHARED W.B.?«, t00=0x005e, t01=0x0004}
0x092f2…092fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0024}
0x092fe…09314 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005e, t01=0x0030}
0x09314…0932e Head {h00=0x0016, h01=0x0050, text=» RB(NE) MOVD20 NO!«, t00=0x005e, t01=0x0046}
0x0932e…09344 Head {h00=0x0012, h01=0x0050, text=»* DWB FOUND * «, t00=0x005e, t01=0x0060}
0x09344…09374 Head {h00=0x002c, h01=0x0050, text=» NGR A4,A2 CALCULATE DISPLACEMENT IN T:A«, t00=0x005e, t01=0x0076}
0x09374…09390 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005e, t01=0x00a6}
0x09390…093aa Head {h00=0x0016, h01=0x0050, text=» AD A4,WATLEN,A12 «, t00=0x005e, t01=0x00c2}
0x093aa…093b6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x00dc}
0x093b6…093d2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005e, t01=0x00e8}
0x093d2…093ec Head {h00=0x0016, h01=0x0050, text=» EL A10,WATLEN,A12«, t00=0x005e, t01=0x0104}
0x093ec…09400 Head {h00=0x0010, h01=0x0050, text=» ADR A4,A10 «, t00=0x005e, t01=0x011e}
0x09400…0940c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0132}
0x0940c…09422 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005e, t01=0x013e}
0x09422…09446 Head {h00=0x0020, h01=0x0050, text=» LDR A6,A4 SAVE TABLE INDEX «, t00=0x005e, t01=0x0154}
0x09446…09458 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x005e, t01=0x0178}
0x09458…0946a Head {h00=0x000e, h01=0x0050, text=» SLL A4,2 «, t00=0x005e, t01=0x018a}
0x0946a…09482 Head {h00=0x0014, h01=0x0050, text=» ADK A4,WATFST+2«, t00=0x005f, t01=0x000c}
0x09482…094b0 Head {h00=0x002a, h01=0x0050, text=» LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS«, t00=0x005f, t01=0x0024}
0x094b0…094cc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005f, t01=0x0052}
0x094cc…09502 Head {h00=0x0032, h01=0x0050, text=» ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A «, t00=0x005f, t01=0x006e}
0x09502…09528 Head {h00=0x0022, h01=0x0050, text=» STR A3,A4 CHANGE W.B.-ADDRESS«, t00=0x005f, t01=0x00a4}
0x09528…09534 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x00ca}
0x09534…09550 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005f, t01=0x00d6}
0x09550…09582 Head {h00=0x002e, h01=0x0050, text=» LD A2,FLAG,A13 REAL DATA-PART PROCESSING?«, t00=0x005f, t01=0x00f2}
0x09582…0959c Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVD50 NO! «, t00=0x005f, t01=0x0124}
0x0959c…095c0 Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x005f, t01=0x013e}
0x095c0…095d4 Head {h00=0x0010, h01=0x0050, text=»MOVD50 EQU *«, t00=0x005f, t01=0x0162}
0x095d4…09606 Head {h00=0x002e, h01=0x0050, text=» ELR A10,A8 A4=POINTER TO W.B.-ADDR IN T:A«, t00=0x005f, t01=0x0176}
0x09606…0961a Head {h00=0x0010, h01=0x0050, text=» ADR A4,A10 «, t00=0x0060, t01=0x0018}
0x0961a…09640 Head {h00=0x0022, h01=0x0050, text=» ESR A3,A4 CHANGE W.B.-ADDRESS«, t00=0x0060, t01=0x002c}
0x09640…0966a Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0060, t01=0x0052}
0x0966a…09676 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x007c}
0x09676…0968c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0060, t01=0x0088}
0x0968c…096a4 Head {h00=0x0014, h01=0x0050, text=» ST A4,WBADD,A13«, t00=0x0060, t01=0x009e}
0x096a4…096d6 Head {h00=0x002e, h01=0x0050, text=» LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? «, t00=0x0060, t01=0x00b6}
0x096d6…096f2 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) MOVD10 YES! «, t00=0x0060, t01=0x00e8}
0x096f2…09710 Head {h00=0x001a, h01=0x0050, text=» CALL MOVDT MOVE D.T. «, t00=0x0060, t01=0x0104}
0x09710…09722 Head {h00=0x000e, h01=0x0050, text=» RB MOVD10«, t00=0x0060, t01=0x0122}
0x09722…09736 Head {h00=0x0010, h01=0x0050, text=»MOVD60 EQU *«, t00=0x0060, t01=0x0134}
0x09736…0975a Head {h00=0x0020, h01=0x0050, text=» LD A6,SAVE05,A13 RESTORE A6«, t00=0x0060, t01=0x0148}
0x0975a…0976a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x016c}
0x0976a…09778 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x017c}
0x09778…09780 Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x018a}
0x09780…09788 (97, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0004}
0x09788…097c0 Head {h00=0x0034, h01=0x0050, text=»** T W B S W B **«, t00=0x0061, t01=0x000c}
0x097c0…097f8 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0061, t01=0x0044}
0x097f8…09830 Head {h00=0x0034, h01=0x0050, text=»** COPY TWB'S AND RESERVE SPACE FOR SWB'S **«, t00=0x0061, t01=0x007c}
0x09830…09868 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0061, t01=0x00b4}
0x09868…098a0 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=ACTUAL T:A-ADDRESS **«, t00=0x0061, t01=0x00ec}
0x098a0…098d8 Head {h00=0x0034, h01=0x0050, text=»** A12=T:D-ADDRESS **«, t00=0x0061, t01=0x0124}
0x098d8…09910 Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS: A1-A4, A11 **«, t00=0x0061, t01=0x015c}
0x09910…09948 (98, 0, 400) Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0062, t01=0x0004}
0x09948…09950 Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x003c}
0x09950…09964 Head {h00=0x0010, h01=0x0050, text=»TWBSWB EQU *«, t00=0x0062, t01=0x0044}
0x09964…09986 Head {h00=0x001e, h01=0x0050, text=» ST A7,SAVE04,A13 SAVE A7 «, t00=0x0062, t01=0x0058}
0x09986…099ac Head {h00=0x0022, h01=0x0050, text=» LD A7,TWBMSK,A12 GET TWB MASK«, t00=0x0062, t01=0x007a}
0x099ac…099c8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0062, t01=0x00a0}
0x099c8…099ee Head {h00=0x0022, h01=0x0050, text=» EL A7,TWBMSK,A12 GET TWB MASK«, t00=0x0062, t01=0x00bc}
0x099ee…099fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x00e2}
0x099fa…09a10 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0062, t01=0x00ee}
0x09a10…09a24 Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x0062, t01=0x0104}
0x09a24…09a4a Head {h00=0x0022, h01=0x0050, text=»TWSW10 RF(Z) TWSW20 ALL DONE! «, t00=0x0062, t01=0x0118}
0x09a4a…09a5e Head {h00=0x0010, h01=0x0050, text=» CALL GETWB «, t00=0x0062, t01=0x013e}
0x09a5e…09a72 Head {h00=0x0010, h01=0x0050, text=» CALL MOVWB «, t00=0x0062, t01=0x0152}
0x09a72…09aa0 Head {h00=0x002a, h01=0x0050, text=» ST A2,NEWAD2,A13 SAVE NEW WB-ADDRESS «, t00=0x0062, t01=0x0166}
0x09aa0…09aca (99, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CALL MOVDWB CHANGE DWB-ADDRESSES «, t00=0x0063, t01=0x0004}
0x09aca…09ade Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x0063, t01=0x002e}
0x09ade…09af0 Head {h00=0x000e, h01=0x0050, text=» RB TWSW10«, t00=0x0063, t01=0x0042}
0x09af0…09b04 Head {h00=0x0010, h01=0x0050, text=»TWSW20 EQU *«, t00=0x0063, t01=0x0054}
0x09b04…09b20 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0063, t01=0x0068}
0x09b20…09b2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x0084}
0x09b2e…09b3a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0063, t01=0x0092}
0x09b3a…09b46 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0063, t01=0x009e}
0x09b46…09b6a Head {h00=0x0020, h01=0x0050, text=»* RESERVE SPACE FOR SWB'S * «, t00=0x0063, t01=0x00aa}
0x09b6a…09b8e Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0063, t01=0x00ce}
0x09b8e…09b9a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x00f2}
0x09b9a…09bb6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x0063, t01=0x00fe}
0x09bb6…09bd0 Head {h00=0x0016, h01=0x0050, text=» LD A7,SWBMSK,A12 «, t00=0x0063, t01=0x011a}
0x09bd0…09bdc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x0134}
0x09bdc…09bf8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x0063, t01=0x0140}
0x09bf8…09c12 Head {h00=0x0016, h01=0x0050, text=» EL A7,SWBMSK,A12 «, t00=0x0063, t01=0x015c}
0x09c12…09c1e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x0176}
0x09c1e…09c3a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0063, t01=0x0182}
0x09c3a…09c4e Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x0064, t01=0x000e}
0x09c4e…09c72 Head {h00=0x0020, h01=0x0050, text=»TWSW30 RF(Z) TARZAN ALL DONE«, t00=0x0064, t01=0x0022}
0x09c72…09c86 Head {h00=0x0010, h01=0x0050, text=» CALL GETWB «, t00=0x0064, t01=0x0046}
0x09c86…09ca8 Head {h00=0x001e, h01=0x0050, text=» CALL MOVWB RESERVE SPACE «, t00=0x0064, t01=0x005a}
0x09ca8…09cd4 Head {h00=0x0028, h01=0x0050, text=» ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS «, t00=0x0064, t01=0x007c}
0x09cd4…09cfe Head {h00=0x0026, h01=0x0050, text=» CALL MOVDWB CHANGE DWB- ADDRESSES«, t00=0x0064, t01=0x00a8}
0x09cfe…09d12 Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x0064, t01=0x00d2}
0x09d12…09d24 Head {h00=0x000e, h01=0x0050, text=» RB TWSW30«, t00=0x0064, t01=0x00e6}
0x09d24…09d38 Head {h00=0x0010, h01=0x0050, text=»TARZAN EQU *«, t00=0x0064, t01=0x00f8}
0x09d38…09d44 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x010c}
0x09d44…09d5a Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0064, t01=0x0118}
0x09d5a…09d7e Head {h00=0x0020, h01=0x0050, text=» LD A7,SAVE04,A13 RESTORE A7«, t00=0x0064, t01=0x012e}
0x09d7e…09d8e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0064, t01=0x0152}
0x09d8e…09d9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x0162}
0x09d9c…09da4 Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x0170}
0x09da4…09dac Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x0178}
0x09dac…09de4 Head {h00=0x0034, h01=0x0050, text=»** A L L B U F **«, t00=0x0064, t01=0x0180}
0x09de4…09e1c Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0065, t01=0x0028}
0x09e1c…09e54 Head {h00=0x0034, h01=0x0050, text=»** ALLOCATE FIXED DATA SET BUFFERS AND **«, t00=0x0065, t01=0x0060}
0x09e54…09e8c Head {h00=0x0034, h01=0x0050, text=»** TERMINAL STACK **«, t00=0x0065, t01=0x0098}
0x09e8c…09ec4 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0065, t01=0x00d0}
0x09ec4…09efc Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=ACTUAL T:A-ADDRESS IN T:ATAB **«, t00=0x0065, t01=0x0108}
0x09efc…09f34 Head {h00=0x0034, h01=0x0050, text=»** A12=T:D-ADDRESS **«, t00=0x0065, t01=0x0140}
0x09f34…09f6c Head {h00=0x0034, h01=0x0050, text=»** CSN (IN T:A)=LENGTH OF DSCB'S **«, t00=0x0065, t01=0x0178}
0x09f6c…09fa4 Head {h00=0x0034, h01=0x0050, text=»** CIA (IN T:A)=DISPL. TO T:A-START **«, t00=0x0066, t01=0x0020}
0x09fa4…09fdc Head {h00=0x0034, h01=0x0050, text=»** CSE (IN T:A)=STACKSIZE **«, t00=0x0066, t01=0x0058}
0x09fdc…0a014 Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS. :A1-A4,A9,A11 **«, t00=0x0066, t01=0x0090}
0x0a014…0a04c Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0066, t01=0x00c8}
0x0a04c…0a054 Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x0100}
0x0a054…0a068 Head {h00=0x0010, h01=0x0050, text=»ALLBUF EQU *«, t00=0x0066, t01=0x0108}
0x0a068…0a084 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0066, t01=0x011c}
0x0a084…0a0b6 Head {h00=0x002e, h01=0x0050, text=» LD A9,FSTADR,A13 GET BUFFER START ADDRESS«, t00=0x0066, t01=0x0138}
0x0a0b6…0a0da Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0066, t01=0x016a}
0x0a0da…0a106 Head {h00=0x0028, h01=0x0050, text=» LD A3,CSN,A1 GET DSCB TOTAL LENGTH «, t00=0x0066, t01=0x018e}
0x0a106…0a126 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ALLB70 NO DSCB'S «, t00=0x0067, t01=0x002a}
0x0a126…0a158 Head {h00=0x002e, h01=0x0050, text=» ADKL A1,T:ASTA CALC START OF DSCB RECORDS«, t00=0x0067, t01=0x004a}
0x0a158…0a17e Head {h00=0x0022, h01=0x0050, text=» LDR A10,A1 SAVE START ADDRESS«, t00=0x0067, t01=0x007c}
0x0a17e…0a18a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x00a2}
0x0a18a…0a1a6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0067, t01=0x00ae}
0x0a1a6…0a1c8 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0067, t01=0x00ca}
0x0a1c8…0a1f4 Head {h00=0x0028, h01=0x0050, text=» EL A3,CSN,A1 GET DSCB TOTAL LENGTH «, t00=0x0067, t01=0x00ec}
0x0a1f4…0a212 Head {h00=0x001a, h01=0x0050, text=» RF(Z) ALLB70 NO DSCB «, t00=0x0067, t01=0x0118}
0x0a212…0a244 Head {h00=0x002e, h01=0x0050, text=» ADKL A1,T:ASTA CALCULATE START OF DSCB'S «, t00=0x0067, t01=0x0136}
0x0a244…0a26a Head {h00=0x0022, h01=0x0050, text=» LDR A10,A1 SAVE START ADDRESS«, t00=0x0067, t01=0x0168}
0x0a26a…0a276 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x018e}
0x0a276…0a28c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0068, t01=0x000a}
0x0a28c…0a29e Head {h00=0x000e, h01=0x0050, text=» SUR A3,A1«, t00=0x0068, t01=0x0020}
0x0a29e…0a2b0 Head {h00=0x000e, h01=0x0050, text=» NGR A3,A3«, t00=0x0068, t01=0x0032}
0x0a2b0…0a2d4 Head {h00=0x0020, h01=0x0050, text=» SUK A3,DSCBL END CONDITION «, t00=0x0068, t01=0x0044}
0x0a2d4…0a312 Head {h00=0x003a, h01=0x0050, text=» ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS «, t00=0x0068, t01=0x0068}
0x0a312…0a350 Head {h00=0x003a, h01=0x0050, text=»ALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD«, t00=0x0068, t01=0x00a6}
0x0a350…0a36e Head {h00=0x001a, h01=0x0050, text=» CW A1,SAVE04,A13 ALL?«, t00=0x0068, t01=0x00e4}
0x0a36e…0a388 Head {h00=0x0016, h01=0x0050, text=» RF(E) ALLB70 YES!«, t00=0x0068, t01=0x0102}
0x0a388…0a3a4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0068, t01=0x011c}
0x0a3a4…0a3ce Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A1 GET FIRST WORD IN ECB «, t00=0x0068, t01=0x0138}
0x0a3ce…0a3ee Head {h00=0x001c, h01=0x0050, text=» SLL A3,1 STATIC BUFFER?«, t00=0x0068, t01=0x0162}
0x0a3ee…0a408 Head {h00=0x0016, h01=0x0050, text=» RB(NN) ALLB10 NO!«, t00=0x0068, t01=0x0182}
0x0a408…0a42a Head {h00=0x001e, h01=0x0050, text=» ST A9,BA,A1 BUFFER START «, t00=0x0069, t01=0x000c}
0x0a42a…0a44c Head {h00=0x001e, h01=0x0050, text=» LD A3,RL,A1 BUFFER LENGTH«, t00=0x0069, t01=0x002e}
0x0a44c…0a460 Head {h00=0x0010, h01=0x0050, text=» ST A3,BL,A1«, t00=0x0069, t01=0x0050}
0x0a460…0a484 Head {h00=0x0020, h01=0x0050, text=» LD A2,EL,A1 SHARED BUFFER? «, t00=0x0069, t01=0x0064}
0x0a484…0a49c Head {h00=0x0014, h01=0x0050, text=» RF(Z) NOTSH NO!«, t00=0x0069, t01=0x0088}
0x0a49c…0a4c6 Head {h00=0x0026, h01=0x0050, text=» LDR A4,A1 RESTORE START OF DSCB'S«, t00=0x0069, t01=0x00a0}
0x0a4c6…0a4d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x00ca}
0x0a4d2…0a4ee Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0069, t01=0x00d6}
0x0a4ee…0a516 Head {h00=0x0024, h01=0x0050, text=» ELR A3,A1 GET FIRST WORD IN ECB«, t00=0x0069, t01=0x00f2}
0x0a516…0a536 Head {h00=0x001c, h01=0x0050, text=» SLL A3,1 STATIC BUFFER?«, t00=0x0069, t01=0x011a}
0x0a536…0a550 Head {h00=0x0016, h01=0x0050, text=» RB(NN) ALLB10 NO!«, t00=0x0069, t01=0x013a}
0x0a550…0a572 Head {h00=0x001e, h01=0x0050, text=» EL A3,RL,A1 BUFFER LENGTH«, t00=0x0069, t01=0x0154}
0x0a572…0a586 Head {h00=0x0010, h01=0x0050, text=» ES A3,BL,A1«, t00=0x0069, t01=0x0176}
0x0a586…0a5aa Head {h00=0x0020, h01=0x0050, text=» EL A2,EL,A1 SHARED BUFFER? «, t00=0x0069, t01=0x018a}
0x0a5aa…0a5c2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) NOTSH NO!«, t00=0x006a, t01=0x001e}
0x0a5c2…0a5ec Head {h00=0x0026, h01=0x0050, text=» LDR A4,A1 RESTORE START OF DSCB'S«, t00=0x006a, t01=0x0036}
0x0a5ec…0a5f8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006a, t01=0x0060}
0x0a5f8…0a60e Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006a, t01=0x006c}
0x0a60e…0a62e Head {h00=0x001c, h01=0x0050, text=» ADK A4,DSCBL FIRST WORD«, t00=0x006a, t01=0x0082}
0x0a62e…0a64e Head {h00=0x001c, h01=0x0050, text=»ALLB20 SUK A2,1 A2=INDEX«, t00=0x006a, t01=0x00a2}
0x0a64e…0a664 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ALLB30«, t00=0x006a, t01=0x00c2}
0x0a664…0a686 Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006a, t01=0x00d8}
0x0a686…0a69a Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006a, t01=0x00fa}
0x0a69a…0a6ae Head {h00=0x0010, h01=0x0050, text=»ALLB30 EQU *«, t00=0x006a, t01=0x010e}
0x0a6ae…0a6ce Head {h00=0x001c, h01=0x0050, text=» RF(Z) ALLB40 ECB FOUND «, t00=0x006a, t01=0x0122}
0x0a6ce…0a702 Head {h00=0x0030, h01=0x0050, text=» ADK A4,DSCBL A4=ADDRESS TO DSCB TO EXAMINE «, t00=0x006a, t01=0x0142}
0x0a702…0a716 Head {h00=0x0010, h01=0x0050, text=» CWR A4,A10 «, t00=0x006a, t01=0x0176}
0x0a716…0a72c Head {h00=0x0012, h01=0x0050, text=» RB(NE) ALLB20«, t00=0x006a, t01=0x018a}
0x0a72c…0a752 Head {h00=0x0022, h01=0x0050, text=» LDK A1,LMP4 BUFFER NOT FOUND «, t00=0x006b, t01=0x0010}
0x0a752…0a766 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006b, t01=0x0036}
0x0a766…0a782 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006b, t01=0x004a}
0x0a782…0a7ae Head {h00=0x0028, h01=0x0050, text=»ALLB40 LD A4,BA,A4 BUFFER ALLOCATED?«, t00=0x006b, t01=0x0066}
0x0a7ae…0a7ca Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ALLB50 YES! «, t00=0x006b, t01=0x0092}
0x0a7ca…0a7ec Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006b, t01=0x00ae}
0x0a7ec…0a800 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006b, t01=0x00d0}
0x0a800…0a814 Head {h00=0x0010, h01=0x0050, text=»ALLB50 EQU *«, t00=0x006b, t01=0x00e4}
0x0a814…0a842 Head {h00=0x002a, h01=0x0050, text=» ST A4,BA,A1 AND STORE IN CURRENT ECB «, t00=0x006b, t01=0x00f8}
0x0a842…0a84e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x0126}
0x0a84e…0a86a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006b, t01=0x0132}
0x0a86a…0a896 Head {h00=0x0028, h01=0x0050, text=»ALLB40 EL A4,BA,A4 BUFFER ALLOCATED?«, t00=0x006b, t01=0x014e}
0x0a896…0a8b2 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ALLB50 YES! «, t00=0x006b, t01=0x017a}
0x0a8b2…0a8d4 Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006c, t01=0x0008}
0x0a8d4…0a8e8 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006c, t01=0x002a}
0x0a8e8…0a8fc Head {h00=0x0010, h01=0x0050, text=»ALLB50 EQU *«, t00=0x006c, t01=0x003e}
0x0a8fc…0a92a Head {h00=0x002a, h01=0x0050, text=» ES A4,BA,A1 AND ESORE IN CURRENT ECB «, t00=0x006c, t01=0x0052}
0x0a92a…0a936 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006c, t01=0x0080}
0x0a936…0a94c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006c, t01=0x008c}
0x0a94c…0a95e Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006c, t01=0x00a2}
0x0a95e…0a966 Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x00b4}
0x0a966…0a982 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006c, t01=0x00bc}
0x0a982…0a9a2 Head {h00=0x001c, h01=0x0050, text=»NOTSH LDR A9,A9 PAGING? «, t00=0x006c, t01=0x00d8}
0x0a9a2…0a9bc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) NOTS10 NO!«, t00=0x006c, t01=0x00f8}
0x0a9bc…0a9ec Head {h00=0x002c, h01=0x0050, text=» CALL MOVING ALLOCATE BUFFER FROM BOTTOM«, t00=0x006c, t01=0x0112}
0x0a9ec…0aa16 Head {h00=0x0026, h01=0x0050, text=» ST A2,BA,A1 STORE BUFFER ADDRESS «, t00=0x006c, t01=0x0142}
0x0aa16…0aa28 Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006c, t01=0x016c}
0x0aa28…0aa5a Head {h00=0x002e, h01=0x0050, text=»NOTS10 ADR A9,A3 ALLOCATE BUFFER FROM TOP «, t00=0x006c, t01=0x017e}
0x0aa5a…0aa6c Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x006d, t01=0x0020}
0x0aa6c…0aa90 Head {h00=0x0020, h01=0x0050, text=» ANKL A9,/FFFE EVEN ADDRESS «, t00=0x006d, t01=0x0032}
0x0aa90…0aaa8 Head {h00=0x0014, h01=0x0050, text=»* CHECK ADDRESS:«, t00=0x006d, t01=0x0056}
0x0aaa8…0aab4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x006d, t01=0x006e}
0x0aab4…0aada Head {h00=0x0022, h01=0x0050, text=» LD A11,LSTADR,A13 DATA START «, t00=0x006d, t01=0x007a}
0x0aada…0aaee Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x006d, t01=0x00a0}
0x0aaee…0ab08 Head {h00=0x0016, h01=0x0050, text=» RF(NL) ALLB60 OK!«, t00=0x006d, t01=0x00b4}
0x0ab08…0ab1e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x006d, t01=0x00ce}
0x0ab1e…0ab32 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006d, t01=0x00e4}
0x0ab32…0ab46 Head {h00=0x0010, h01=0x0050, text=»ALLB60 EQU *«, t00=0x006d, t01=0x00f8}
0x0ab46…0ab78 Head {h00=0x002e, h01=0x0050, text=» ST A9,FSTADR,A13 SAVE BUFFER END ADDRESS «, t00=0x006d, t01=0x010c}
0x0ab78…0ab84 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006d, t01=0x013e}
0x0ab84…0aba0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006d, t01=0x014a}
0x0aba0…0abd8 Head {h00=0x0034, h01=0x0050, text=»NOTSH CALL MOVING ALLOCATE BUFFER FROM 'BOTTOM' «, t00=0x006d, t01=0x0166}
0x0abd8…0ac02 Head {h00=0x0026, h01=0x0050, text=» ES A2,BA,A1 STORE BUFFER ADDRESS «, t00=0x006e, t01=0x000e}
0x0ac02…0ac0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x0038}
0x0ac0e…0ac24 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006e, t01=0x0044}
0x0ac24…0ac36 Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006e, t01=0x005a}
0x0ac36…0ac42 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x006e, t01=0x006c}
0x0ac42…0ac72 Head {h00=0x002c, h01=0x0050, text=»* RESERVE STACK AND SET STACKPOINTERS * «, t00=0x006e, t01=0x0078}
0x0ac72…0ac7a Head {h00=0x0004, h01=0x0050, t00=0x006e, t01=0x00a8}
0x0ac7a…0ac8e Head {h00=0x0010, h01=0x0050, text=»ALLB70 EQU *«, t00=0x006e, t01=0x00b0}
0x0ac8e…0acaa Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006e, t01=0x00c4}
0x0acaa…0acce Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x006e, t01=0x00e0}
0x0acce…0ace8 Head {h00=0x0016, h01=0x0050, text=» LD A4,LSTADR,A13 «, t00=0x006e, t01=0x0104}
0x0ace8…0acfa Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x006e, t01=0x011e}
0x0acfa…0ad1e Head {h00=0x0020, h01=0x0050, text=» LD A3,CSE,A1 GET STACK SIZE«, t00=0x006e, t01=0x0130}
0x0ad1e…0ad34 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) ALLB80«, t00=0x006e, t01=0x0154}
0x0ad34…0ad5c Head {h00=0x0024, h01=0x0050, text=» LDK A3,STKSZ DEFAULT STACKSIZE «, t00=0x006e, t01=0x016a}
0x0ad5c…0ad70 (111, 0, 400) Head {h00=0x0010, h01=0x0050, text=»ALLB80 EQU *«, t00=0x006f, t01=0x0004}
0x0ad70…0ad94 Head {h00=0x0020, h01=0x0050, text=» ST A4,STKB,A1 SET STACKBASE«, t00=0x006f, t01=0x0018}
0x0ad94…0adb4 Head {h00=0x001c, h01=0x0050, text=» STR A4,A1 STACK POINTER«, t00=0x006f, t01=0x003c}
0x0adb4…0add8 Head {h00=0x0020, h01=0x0050, text=» CALL MOVING ALLOCATE STACK «, t00=0x006f, t01=0x005c}
0x0add8…0adfc Head {h00=0x0020, h01=0x0050, text=» ST A2,STKE,A1 SET STACK-END«, t00=0x006f, t01=0x0080}
0x0adfc…0ae08 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006f, t01=0x00a4}
0x0ae08…0ae24 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006f, t01=0x00b0}
0x0ae24…0ae46 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x006f, t01=0x00cc}
0x0ae46…0ae6a Head {h00=0x0020, h01=0x0050, text=» EL A3,CSE,A1 GET STACK SIZE«, t00=0x006f, t01=0x00ee}
0x0ae6a…0ae98 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) ALLB80 USER DEFINED STACK SIZE«, t00=0x006f, t01=0x0112}
0x0ae98…0aec0 Head {h00=0x0024, h01=0x0050, text=» LDK A3,STKSZ DEFAULT STACK SIZE«, t00=0x006f, t01=0x0140}
0x0aec0…0aeec Head {h00=0x0028, h01=0x0050, text=»ALLB80 ES A3,STKB,A1 SAVE STACK SIZE«, t00=0x006f, t01=0x0168}
0x0aeec…0af10 (112, 0, 400) Head {h00=0x0020, h01=0x0050, text=» CALL MOVING ALLOCATE STACK «, t00=0x0070, t01=0x0004}
0x0af10…0af36 Head {h00=0x0022, h01=0x0050, text=» ES A2,STKE,A1 STORE STACK END«, t00=0x0070, t01=0x0028}
0x0af36…0af5c Head {h00=0x0022, h01=0x0050, text=» EL A3,STKB,A1 GET STACK SIZE «, t00=0x0070, t01=0x004e}
0x0af5c…0af82 Head {h00=0x0022, h01=0x0050, text=» ADR A2,A3 COMPUTE STACK BASE «, t00=0x0070, t01=0x0074}
0x0af82…0afaa Head {h00=0x0024, h01=0x0050, text=» ES A2,STKB,A1 STORE STACK BASE «, t00=0x0070, t01=0x009a}
0x0afaa…0afd8 Head {h00=0x002a, h01=0x0050, text=» ESR A2,A1 STORE CURRENT STACK POINTER«, t00=0x0070, t01=0x00c2}
0x0afd8…0afe4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x00f0}
0x0afe4…0affa Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0070, t01=0x00fc}
0x0affa…0b00a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x0112}
0x0b00a…0b018 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x0122}
0x0b018…0b020 Head {h00=0x0004, h01=0x0050, t00=0x0070, t01=0x0130}
0x0b020…0b058 Head {h00=0x0034, h01=0x0050, text=»** M O V T : A **«, t00=0x0070, t01=0x0138}
0x0b058…0b090 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0070, t01=0x0170}
0x0b090…0b0c8 Head {h00=0x0034, h01=0x0050, text=»** MOVE T:A AND UPDATE DATA SET ADDRESSES IN **«, t00=0x0071, t01=0x0018}
0x0b0c8…0b100 Head {h00=0x0034, h01=0x0050, text=»** FORMAT CONTROL BLOCK **«, t00=0x0071, t01=0x0050}
0x0b100…0b138 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0071, t01=0x0088}
0x0b138…0b170 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=T:A-ADDRESS **«, t00=0x0071, t01=0x00c0}
0x0b170…0b1a8 Head {h00=0x0034, h01=0x0050, text=»** A12=T:D-ADDRESS **«, t00=0x0071, t01=0x00f8}
0x0b1a8…0b1e0 Head {h00=0x0034, h01=0x0050, text=»** CIA (IN T:A)=DISL. TO T:A-START **«, t00=0x0071, t01=0x0130}
0x0b1e0…0b218 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A2=NEW T:A-ADDRESS **«, t00=0x0071, t01=0x0168}
0x0b218…0b250 Head {h00=0x0034, h01=0x0050, text=»** WORKREGS: A1-A4 **«, t00=0x0072, t01=0x0010}
0x0b250…0b288 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0072, t01=0x0048}
0x0b288…0b290 Head {h00=0x0004, h01=0x0050, t00=0x0072, t01=0x0080}
0x0b290…0b2a4 Head {h00=0x0010, h01=0x0050, text=»MOVT:A EQU *«, t00=0x0072, t01=0x0088}
0x0b2a4…0b2c0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0072, t01=0x009c}
0x0b2c0…0b2e4 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0072, t01=0x00b8}
0x0b2e4…0b310 Head {h00=0x0028, h01=0x0050, text=» LD A3,WATLEN,A12 GET LENGTH OF WAT «, t00=0x0072, t01=0x00dc}
0x0b310…0b328 Head {h00=0x0014, h01=0x0050, text=» SLL A3,2 BYTES «, t00=0x0072, t01=0x0108}
0x0b328…0b358 Head {h00=0x002c, h01=0x0050, text=» SU A3,CIA,A1 ADD DISPLACEMENT TO START «, t00=0x0072, t01=0x0120}
0x0b358…0b378 Head {h00=0x001c, h01=0x0050, text=» ADK A3,WATFST A3=LENGTH«, t00=0x0072, t01=0x0150}
0x0b378…0b39a Head {h00=0x001e, h01=0x0050, text=» AD A1,CIA,A1 FROM-ADDRESS«, t00=0x0072, t01=0x0170}
0x0b39a…0b3ae (115, 0, 398) Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0073, t01=0x0004}
0x0b3ae…0b3c2 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A8 «, t00=0x0073, t01=0x0018}
0x0b3c2…0b3e8 Head {h00=0x0022, h01=0x0050, text=» SU A2,CIA,A4 NEW T:A-ADDRESS «, t00=0x0073, t01=0x002c}
0x0b3e8…0b410 Head {h00=0x0024, h01=0x0050, text=» SU A1,CIA,A4 'OLD' T:A-ADDRESS «, t00=0x0073, t01=0x0052}
0x0b410…0b418 Head {h00=0x0004, h01=0x0050, t00=0x0073, t01=0x007a}
0x0b418…0b454 Head {h00=0x0038, h01=0x0050, text=»* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * «, t00=0x0073, t01=0x0082}
0x0b454…0b45c Head {h00=0x0004, h01=0x0050, t00=0x0073, t01=0x00be}
0x0b45c…0b47c Head {h00=0x001c, h01=0x0050, text=» LD A3,FCD,A12 ANY FCD? «, t00=0x0073, t01=0x00c6}
0x0b47c…0b496 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT10 NO! «, t00=0x0073, t01=0x00e6}
0x0b496…0b4b6 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A2 START OF FCB «, t00=0x0073, t01=0x0100}
0x0b4b6…0b4da Head {h00=0x0020, h01=0x0050, text=» LDR A4,A2 SAVE T:A-ADDRESS «, t00=0x0073, t01=0x0120}
0x0b4da…0b50e Head {h00=0x0030, h01=0x0050, text=» LD A10,FLAG,A13 REAL TASK DATA PROCESSING? «, t00=0x0073, t01=0x0144}
0x0b50e…0b528 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT05 NO! «, t00=0x0073, t01=0x0178}
0x0b528…0b566 (116, 0, 400) Head {h00=0x003a, h01=0x0050, text=» SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS)«, t00=0x0074, t01=0x0004}
0x0b566…0b57a Head {h00=0x0010, h01=0x0050, text=»MOVT05 EQU *«, t00=0x0074, t01=0x0042}
0x0b57a…0b594 Head {h00=0x0016, h01=0x0050, text=» ADS A4,FCBDD1,A3 «, t00=0x0074, t01=0x0056}
0x0b594…0b5ae Head {h00=0x0016, h01=0x0050, text=» ADS A4,FCBDD2,A3 «, t00=0x0074, t01=0x0070}
0x0b5ae…0b5c4 Head {h00=0x0012, h01=0x0050, text=»MOVT10 RTN A14«, t00=0x0074, t01=0x008a}
0x0b5c4…0b5d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0074, t01=0x00a0}
0x0b5d0…0b5ec Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0074, t01=0x00ac}
0x0b5ec…0b5f4 Head {h00=0x0004, h01=0x0050, t00=0x0074, t01=0x00c8}
0x0b5f4…0b616 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0074, t01=0x00d0}
0x0b616…0b642 Head {h00=0x0028, h01=0x0050, text=» EL A3,WATLEN,A12 GET LENGTH OF WAT «, t00=0x0074, t01=0x00f2}
0x0b642…0b65a Head {h00=0x0014, h01=0x0050, text=» SLL A3,2 BYTES «, t00=0x0074, t01=0x011e}
0x0b65a…0b670 Head {h00=0x0012, h01=0x0050, text=» EL A10,CIA,A1«, t00=0x0074, t01=0x0136}
0x0b670…0b698 Head {h00=0x0024, h01=0x0050, text=» SUR A3,A10 ADD DISPL. TO START «, t00=0x0074, t01=0x014c}
0x0b698…0b6b8 Head {h00=0x001c, h01=0x0050, text=» ADK A3,WATFST A3=LENGTH«, t00=0x0074, t01=0x0174}
0x0b6b8…0b6d8 (117, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ADR A1,A10 FROM-ADDRESS«, t00=0x0075, t01=0x0004}
0x0b6d8…0b6ec Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0075, t01=0x0024}
0x0b6ec…0b6fe Head {h00=0x000e, h01=0x0050, text=» ELR A4,A8«, t00=0x0075, t01=0x0038}
0x0b6fe…0b714 Head {h00=0x0012, h01=0x0050, text=» EL A10,CIA,A4«, t00=0x0075, t01=0x004a}
0x0b714…0b738 Head {h00=0x0020, h01=0x0050, text=» SUR A2,A10 NEW T:A-ADDRESS «, t00=0x0075, t01=0x0060}
0x0b738…0b75e Head {h00=0x0022, h01=0x0050, text=» SUR A1,A10 'OLD' T:A-ADDRESS «, t00=0x0075, t01=0x0084}
0x0b75e…0b79a Head {h00=0x0038, h01=0x0050, text=»* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * «, t00=0x0075, t01=0x00aa}
0x0b79a…0b7a2 Head {h00=0x0004, h01=0x0050, t00=0x0075, t01=0x00e6}
0x0b7a2…0b7c2 Head {h00=0x001c, h01=0x0050, text=» EL A3,FCD,A12 ANY FCD? «, t00=0x0075, t01=0x00ee}
0x0b7c2…0b7dc Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT10 NO! «, t00=0x0075, t01=0x010e}
0x0b7dc…0b7fe Head {h00=0x001e, h01=0x0050, text=» LDR A4,A2 GET T:A-ADDRESS«, t00=0x0075, t01=0x0128}
0x0b7fe…0b832 Head {h00=0x0030, h01=0x0050, text=» LD A10,FLAG,A13 REAL TASK DATA PROCESSING? «, t00=0x0075, t01=0x014a}
0x0b832…0b84c Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT05 NO! «, t00=0x0075, t01=0x017e}
0x0b84c…0b888 Head {h00=0x0038, h01=0x0050, text=» SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.)«, t00=0x0076, t01=0x0008}
0x0b888…0b89c Head {h00=0x0010, h01=0x0050, text=»MOVT05 EQU *«, t00=0x0076, t01=0x0044}
0x0b89c…0b8bc Head {h00=0x001c, h01=0x0050, text=» ADR A3,A2 START OF FCB «, t00=0x0076, t01=0x0058}
0x0b8bc…0b8de Head {h00=0x001e, h01=0x0050, text=» TL* MMTO,13 LOAD TO-TABLE«, t00=0x0076, t01=0x0078}
0x0b8de…0b8f8 Head {h00=0x0016, h01=0x0050, text=» EL A10,FCBDD1,A3 «, t00=0x0076, t01=0x009a}
0x0b8f8…0b90c Head {h00=0x0010, h01=0x0050, text=» ADR A10,A4 «, t00=0x0076, t01=0x00b4}
0x0b90c…0b926 Head {h00=0x0016, h01=0x0050, text=» ES A10,FCBDD1,A3 «, t00=0x0076, t01=0x00c8}
0x0b926…0b940 Head {h00=0x0016, h01=0x0050, text=» EL A10,FCBDD2,A3 «, t00=0x0076, t01=0x00e2}
0x0b940…0b954 Head {h00=0x0010, h01=0x0050, text=» ADR A10,A4 «, t00=0x0076, t01=0x00fc}
0x0b954…0b96e Head {h00=0x0016, h01=0x0050, text=» ES A10,FCBDD2,A3 «, t00=0x0076, t01=0x0110}
0x0b96e…0b998 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0076, t01=0x012a}
0x0b998…0b9ae Head {h00=0x0012, h01=0x0050, text=»MOVT10 RTN A14«, t00=0x0076, t01=0x0154}
0x0b9ae…0b9ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x016a}
0x0b9ba…0b9c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x0176}
0x0b9c8…0b9d0 Head {h00=0x0004, h01=0x0050, t00=0x0076, t01=0x0184}
0x0b9d0…0b9d8 Head {h00=0x0004, h01=0x0050, t00=0x0076, t01=0x018c}
0x0b9d8…0b9e0 (119, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x0004}
0x0b9e0…0ba1a Head {h00=0x0036, h01=0x0050, text=»** C M P A D R **«, t00=0x0077, t01=0x000c}
0x0ba1a…0ba54 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0077, t01=0x0046}
0x0ba54…0ba8e Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0077, t01=0x0080}
0x0ba8e…0bac8 Head {h00=0x0036, h01=0x0050, text=»** COMPARE ADDRESSES. RESULT IN PSW ON RETURN **«, t00=0x0077, t01=0x00ba}
0x0bac8…0bb02 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0077, t01=0x00f4}
0x0bb02…0bb3c Head {h00=0x0036, h01=0x0050, text=»** INPUT : A11 COMPARED TO.. **«, t00=0x0077, t01=0x012e}
0x0bb3c…0bb76 Head {h00=0x0036, h01=0x0050, text=»** A9 **«, t00=0x0077, t01=0x0168}
0x0bb76…0bbb0 Head {h00=0x0036, h01=0x0050, text=»** OUTPUT: RESULT IN A14-STACK **«, t00=0x0078, t01=0x0012}
0x0bbb0…0bbea Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0078, t01=0x004c}
0x0bbea…0bbf6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0078, t01=0x0086}
0x0bbf6…0bc0a Head {h00=0x0010, h01=0x0050, text=»CMPADR EQU *«, t00=0x0078, t01=0x0092}
0x0bc0a…0bc1e Head {h00=0x0010, h01=0x0050, text=» TNM A11,A9 «, t00=0x0078, t01=0x00a6}
0x0bc1e…0bc34 Head {h00=0x0012, h01=0x0050, text=» RF(NN) CMPA10«, t00=0x0078, t01=0x00ba}
0x0bc34…0bc48 Head {h00=0x0010, h01=0x0050, text=» CWR A9,A11 «, t00=0x0078, t01=0x00d0}
0x0bc48…0bc5a Head {h00=0x000e, h01=0x0050, text=» RF CMPA20«, t00=0x0078, t01=0x00e4}
0x0bc5a…0bc74 Head {h00=0x0016, h01=0x0050, text=»CMPA10 CWR A11,A9 «, t00=0x0078, t01=0x00f6}
0x0bc74…0bca6 Head {h00=0x002e, h01=0x0050, text=»CMPA20 CFI A14,PSW,A13 PUT RESULT ON STACK«, t00=0x0078, t01=0x0110}
0x0bca6…0bcb6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0078, t01=0x0142}
0x0bcb6…0bccc Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0078, t01=0x0152}
0x0bccc…0bcda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x0168}
0x0bcda…0bd22 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0078, t01=0x0176}
0x0bd22…0bd6a Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0079, t01=0x002e}
0x0bd6a…0bdb2 Head {h00=0x0044, h01=0x0050, text=»* ICBMVD - INDICATE CURRENT BLOCK MOVED * «, t00=0x0079, t01=0x0076}
0x0bdb2…0bdfa Head {h00=0x0044, h01=0x0050, text=»* ===================================== * «, t00=0x0079, t01=0x00be}
0x0bdfa…0be42 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x0079, t01=0x0106}
0x0be42…0be8a Head {h00=0x0044, h01=0x0050, text=»* REFERENCED IN: MOVCOM * «, t00=0x0079, t01=0x014e}
0x0be8a…0bed2 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007a, t01=0x0008}
0x0bed2…0bf1a Head {h00=0x0044, h01=0x0050, text=»* ENTRY: A8 - FIRST T:A POINTER * «, t00=0x007a, t01=0x0050}
0x0bf1a…0bf62 Head {h00=0x0044, h01=0x0050, text=»* A6 - SECOND T:A POINTER * «, t00=0x007a, t01=0x0098}
0x0bf62…0bfaa Head {h00=0x0044, h01=0x0050, text=»* BIT - BIT NUMBER SET IN CWB- OR UWB-MASK * «, t00=0x007a, t01=0x00e0}
0x0bfaa…0bff2 Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007a, t01=0x0128}
0x0bff2…0c03a Head {h00=0x0044, h01=0x0050, text=»* EXIT: CORRESPONDING BIT IN CURRENT STATCK POINTER * «, t00=0x007a, t01=0x0170}
0x0c03a…0c082 Head {h00=0x0044, h01=0x0050, text=»* IN T:A IS SET * «, t00=0x007b, t01=0x0028}
0x0c082…0c0ca Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007b, t01=0x0070}
0x0c0ca…0c112 Head {h00=0x0044, h01=0x0050, text=»* WORK REGISTERS: A1,A2 * «, t00=0x007b, t01=0x00b8}
0x0c112…0c15a Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007b, t01=0x0100}
0x0c15a…0c1a2 Head {h00=0x0044, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x007b, t01=0x0148}
0x0c1a2…0c1ea Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x007b, t01=0x0190}
0x0c1ea…0c232 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x007c, t01=0x0048}
0x0c232…0c240 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007c, t01=0x0090}
0x0c240…0c254 Head {h00=0x0010, h01=0x0050, text=»ICBMVD EQU *«, t00=0x007c, t01=0x009e}
0x0c254…0c274 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,/8000 SET BIT 0«, t00=0x007c, t01=0x00b2}
0x0c274…0c2ae Head {h00=0x0036, h01=0x0050, text=» LD A2,BIT,A13 GET BIT NUMBER IN CWB- OR UWB-MASK «, t00=0x007c, t01=0x00d2}
0x0c2ae…0c2d4 Head {h00=0x0022, h01=0x0050, text=»IBAM10 RF(Z) IBAM20 BIT FOUND «, t00=0x007c, t01=0x010c}
0x0c2d4…0c2fe Head {h00=0x0026, h01=0x0050, text=» SRL A1,1 SHIFT BIT RIGHT ONE STEP«, t00=0x007c, t01=0x0132}
0x0c2fe…0c326 Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT BIT COUNTER «, t00=0x007c, t01=0x015c}
0x0c326…0c338 Head {h00=0x000e, h01=0x0050, text=» RB IBAM10«, t00=0x007c, t01=0x0184}
0x0c338…0c342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0008}
0x0c342…0c36c Head {h00=0x0026, h01=0x0050, text=»* UPDATE MOVED MASK IN FIRST T:A «, t00=0x007d, t01=0x0012}
0x0c36c…0c376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x003c}
0x0c376…0c382 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x0046}
0x0c382…0c39e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x007d, t01=0x0052}
0x0c39e…0c3c8 Head {h00=0x0026, h01=0x0050, text=»IBAM20 LDR* A2,A8 GET T:A POINTER «, t00=0x007d, t01=0x006e}
0x0c3c8…0c3f0 Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET MOVED BLOCK MASK«, t00=0x007d, t01=0x0098}
0x0c3f0…0c420 Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007d, t01=0x00c0}
0x0c420…0c44e Head {h00=0x002a, h01=0x0050, text=» STR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007d, t01=0x00f0}
0x0c44e…0c458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x011e}
0x0c458…0c482 Head {h00=0x0026, h01=0x0050, text=»* UPDATE MOVED MASK IN SECOND T:A«, t00=0x007d, t01=0x0128}
0x0c482…0c48c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0152}
0x0c48c…0c4b0 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A6 GET T:A POINTER «, t00=0x007d, t01=0x015c}
0x0c4b0…0c4d8 Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET MOVED BLOCK MASK«, t00=0x007d, t01=0x0180}
0x0c4d8…0c508 Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007e, t01=0x0018}
0x0c508…0c536 Head {h00=0x002a, h01=0x0050, text=» STR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007e, t01=0x0048}
0x0c536…0c542 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x0076}
0x0c542…0c55e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x007e, t01=0x0082}
0x0c55e…0c586 Head {h00=0x0024, h01=0x0050, text=»IBAM20 ELR A2,A8 GET T:A POINTER«, t00=0x007e, t01=0x009e}
0x0c586…0c5ae Head {h00=0x0024, h01=0x0050, text=» ELR A3,A2 GET MOVED BLOCK MASK «, t00=0x007e, t01=0x00c6}
0x0c5ae…0c5de Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007e, t01=0x00ee}
0x0c5de…0c60c Head {h00=0x002a, h01=0x0050, text=» ESR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007e, t01=0x011e}
0x0c60c…0c616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x014c}
0x0c616…0c640 Head {h00=0x0026, h01=0x0050, text=»* UPDATE MOVED MASK IN SECOND T:A«, t00=0x007e, t01=0x0156}
0x0c640…0c64a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0180}
0x0c64a…0c66c Head {h00=0x001e, h01=0x0050, text=» ELR A2,A6 GET T:A POINTER«, t00=0x007e, t01=0x018a}
0x0c66c…0c694 Head {h00=0x0024, h01=0x0050, text=» ELR A3,A2 GET MOVED BLOCK MASK «, t00=0x007f, t01=0x001c}
0x0c694…0c6c4 Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007f, t01=0x0044}
0x0c6c4…0c6f2 Head {h00=0x002a, h01=0x0050, text=» ESR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007f, t01=0x0074}
0x0c6f2…0c6fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x00a2}
0x0c6fe…0c714 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x007f, t01=0x00ae}
0x0c714…0c724 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x00c4}
0x0c724…0c732 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x00d4}
0x0c732…0c780 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x007f, t01=0x00e2}
0x0c780…0c7ce Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x007f, t01=0x0130}
0x0c7ce…0c81c Head {h00=0x004a, h01=0x0050, text=»* CHKMVD - CHECK IF BLOCK ALREADY MOVED * «, t00=0x007f, t01=0x017e}
0x0c81c…0c86a Head {h00=0x004a, h01=0x0050, text=»* ===================================== * «, t00=0x0080, t01=0x003c}
0x0c86a…0c8b8 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0080, t01=0x008a}
0x0c8b8…0c906 Head {h00=0x004a, h01=0x0050, text=»* REFERENCED IN: MOVCOM,MOVCLA * «, t00=0x0080, t01=0x00d8}
0x0c906…0c954 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0080, t01=0x0126}
0x0c954…0c9a2 Head {h00=0x004a, h01=0x0050, text=»* ENTRY: A8 - POINTER TO T:A * «, t00=0x0080, t01=0x0174}
0x0c9a2…0c9f0 Head {h00=0x004a, h01=0x0050, text=»* BIT - BIT NUMBER IN CWB- OR UWB-MASK * «, t00=0x0081, t01=0x0032}
0x0c9f0…0ca3e Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0081, t01=0x0080}
0x0ca3e…0ca8c Head {h00=0x004a, h01=0x0050, text=»* EXIT: IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2 * «, t00=0x0081, t01=0x00ce}
0x0ca8c…0cada Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0081, t01=0x011c}
0x0cada…0cb28 Head {h00=0x004a, h01=0x0050, text=»* WORK REGISTER: A1,A2 * «, t00=0x0081, t01=0x016a}
0x0cb28…0cb76 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0082, t01=0x0028}
0x0cb76…0cbc4 Head {h00=0x004a, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0082, t01=0x0076}
0x0cbc4…0cc12 Head {h00=0x004a, h01=0x0050, text=»* * «, t00=0x0082, t01=0x00c4}
0x0cc12…0cc60 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0082, t01=0x0112}
0x0cc60…0cc6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0082, t01=0x0160}
0x0cc6e…0cc82 Head {h00=0x0010, h01=0x0050, text=»CHKMVD EQU *«, t00=0x0082, t01=0x016e}
0x0cc82…0cc9e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0082, t01=0x0182}
0x0cc9e…0ccc2 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A POINTER «, t00=0x0083, t01=0x000e}
0x0ccc2…0ccea Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET MOVED BLOCK MASK«, t00=0x0083, t01=0x0032}
0x0ccea…0ccf6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x005a}
0x0ccf6…0cd12 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0083, t01=0x0066}
0x0cd12…0cd34 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A POINTER«, t00=0x0083, t01=0x0082}
0x0cd34…0cd5c Head {h00=0x0024, h01=0x0050, text=» ELR A1,A1 GET MOVED BLOCK MASK «, t00=0x0083, t01=0x00a4}
0x0cd5c…0cd68 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x00cc}
0x0cd68…0cd7e Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0083, t01=0x00d8}
0x0cd7e…0cdb4 Head {h00=0x0032, h01=0x0050, text=» LD A2,BIT,A13 GET BIT SET IN CWB- OR UWB-MASK«, t00=0x0083, t01=0x00ee}
0x0cdb4…0cdee Head {h00=0x0036, h01=0x0050, text=»CHKM10 RF(Z) CHKM20 BIT IN MOVED BLOCK MASK FOUND «, t00=0x0083, t01=0x0124}
0x0cdee…0ce1c Head {h00=0x002a, h01=0x0050, text=» SLL A1,1 NEXT BIT IN MOVED BLOCK MASK«, t00=0x0083, t01=0x015e}
0x0ce1c…0ce44 Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT BIT COUNTER «, t00=0x0083, t01=0x018c}
0x0ce44…0ce56 Head {h00=0x000e, h01=0x0050, text=» RB CHKM10«, t00=0x0084, t01=0x0024}
0x0ce56…0ce74 Head {h00=0x001a, h01=0x0050, text=»CHKM20 ADK A1,0 SET CR«, t00=0x0084, t01=0x0036}
0x0ce74…0cea2 Head {h00=0x002a, h01=0x0050, text=» CFI A14,PSW,A13 PUT CONDITION IN PSW «, t00=0x0084, t01=0x0054}
0x0cea2…0ceb2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0084, t01=0x0082}
0x0ceb2…0cec0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0084, t01=0x0092}
0x0cec0…0cecc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0084, t01=0x00a0}
0x0cecc…0ced8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0084, t01=0x00ac}
0x0ced8…0cf16 Head {h00=0x003a, h01=0x0050, text=»***** S * U * P * E * R * L * O * O * P ****«, t00=0x0084, t01=0x00b8}
0x0cf16…0cf54 Head {h00=0x003a, h01=0x0050, text=»** **«, t00=0x0084, t01=0x00f6}
0x0cf54…0cf92 Head {h00=0x003a, h01=0x0050, text=»** S H I F T & SKIFTA **«, t00=0x0084, t01=0x0134}
0x0cf92…0cfd0 Head {h00=0x003a, h01=0x0050, text=»** **«, t00=0x0084, t01=0x0172}
0x0cfd0…0d00e Head {h00=0x003a, h01=0x0050, text=»** CALCULATES BIT NUMBER SAT IN MASK-WORD **«, t00=0x0085, t01=0x0020}
0x0d00e…0d04c Head {h00=0x003a, h01=0x0050, text=»** INPUT : A7=MASK WORD **«, t00=0x0085, t01=0x005e}
0x0d04c…0d08a Head {h00=0x003a, h01=0x0050, text=»** OUTPUT: BIT=BIT NUMBER **«, t00=0x0085, t01=0x009c}
0x0d08a…0d0c8 Head {h00=0x003a, h01=0x0050, text=»** CONDITION CODE IN PSW ON RETURN **«, t00=0x0085, t01=0x00da}
0x0d0c8…0d106 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0085, t01=0x0118}
0x0d106…0d112 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0085, t01=0x0156}
0x0d112…0d126 Head {h00=0x0010, h01=0x0050, text=»SHIFT EQU * «, t00=0x0085, t01=0x0162}
0x0d126…0d14c Head {h00=0x0022, h01=0x0050, text=» CM BIT,A13 RESET BIT COUNTER «, t00=0x0085, t01=0x0176}
0x0d14c…0d15e Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0086, t01=0x000c}
0x0d15e…0d170 Head {h00=0x000e, h01=0x0050, text=» RF SHIF20«, t00=0x0086, t01=0x001e}
0x0d170…0d19a Head {h00=0x0026, h01=0x0050, text=»SKIFTA EQU * ENTRY: CONTINUE SHIFT«, t00=0x0086, t01=0x0030}
0x0d19a…0d1b4 Head {h00=0x0016, h01=0x0050, text=»SHIF10 IM BIT,A13 «, t00=0x0086, t01=0x005a}
0x0d1b4…0d1c6 Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x0086, t01=0x0074}
0x0d1c6…0d1da Head {h00=0x0010, h01=0x0050, text=»SHIF20 EQU *«, t00=0x0086, t01=0x0086}
0x0d1da…0d202 Head {h00=0x0024, h01=0x0050, text=» RF(Z) SHIF30 NO MOORE BITS SAT «, t00=0x0086, t01=0x009a}
0x0d202…0d218 Head {h00=0x0012, h01=0x0050, text=» RB(NN) SHIF10«, t00=0x0086, t01=0x00c2}
0x0d218…0d246 Head {h00=0x002a, h01=0x0050, text=»SHIF30 CFI A14,PSW,A13 PUT COND IN PSW«, t00=0x0086, t01=0x00d8}
0x0d246…0d256 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0086, t01=0x0106}
0x0d256…0d262 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0086, t01=0x0116}
0x0d262…0d270 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x0122}
0x0d270…0d27c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0086, t01=0x0130}
0x0d27c…0d288 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0086, t01=0x013c}
0x0d288…0d2c0 Head {h00=0x0034, h01=0x0050, text=»** M U L T **«, t00=0x0086, t01=0x0148}
0x0d2c0…0d2f8 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0086, t01=0x0180}
0x0d2f8…0d330 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0087, t01=0x0028}
0x0d330…0d368 Head {h00=0x0034, h01=0x0050, text=»** MULTIPLICATION (A2) X A3(), A2#0 **«, t00=0x0087, t01=0x0060}
0x0d368…0d3a0 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0087, t01=0x0098}
0x0d3a0…0d3d8 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A3,A2 **«, t00=0x0087, t01=0x00d0}
0x0d3d8…0d410 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A3=RESULT **«, t00=0x0087, t01=0x0108}
0x0d410…0d448 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0087, t01=0x0140}
0x0d448…0d45a Head {h00=0x000e, h01=0x0050, text=»MULT EQU *«, t00=0x0087, t01=0x0178}
0x0d45a…0d470 Head {h00=0x0012, h01=0x0050, text=» ST A3,MUL,A13«, t00=0x0087, t01=0x018a}
0x0d470…0d496 Head {h00=0x0022, h01=0x0050, text=» STR A2,A14 SAVE A2 TEMPORARY «, t00=0x0088, t01=0x0010}
0x0d496…0d4a8 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0088, t01=0x0036}
0x0d4a8…0d4c2 Head {h00=0x0016, h01=0x0050, text=»ADD AD A3,MUL,A13 «, t00=0x0088, t01=0x0048}
0x0d4c2…0d4d4 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0088, t01=0x0062}
0x0d4d4…0d4e8 Head {h00=0x0010, h01=0x0050, text=» RB(NZ) ADD «, t00=0x0088, t01=0x0074}
0x0d4e8…0d4fc Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A14«, t00=0x0088, t01=0x0088}
0x0d4fc…0d50c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0088, t01=0x009c}
0x0d50c…0d514 Head {h00=0x0004, h01=0x0050, t00=0x0088, t01=0x00ac}
0x0d514…0d52a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0088, t01=0x00b4}
0x0d52a…0d538 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0088, t01=0x00ca}
0x0d538…0d540 Head {h00=0x0004, h01=0x0050, t00=0x0088, t01=0x00d8}
0x0d540…0d578 Head {h00=0x0034, h01=0x0050, text=»** M M E N T ** «, t00=0x0088, t01=0x00e0}
0x0d578…0d5b0 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0088, t01=0x0118}
0x0d5b0…0d5e8 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0088, t01=0x0150}
0x0d5e8…0d620 Head {h00=0x0034, h01=0x0050, text=»** FIND LAST USED ENTRY IN MM-TAB. SCAN ** «, t00=0x0088, t01=0x0188}
0x0d620…0d658 Head {h00=0x0034, h01=0x0050, text=»** FROM LOW ADDRESS. NOT USED ENTRY=0. ** «, t00=0x0089, t01=0x0030}
0x0d658…0d690 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0089, t01=0x0068}
0x0d690…0d6c8 Head {h00=0x0034, h01=0x0050, text=»** INPUT :A3=MM-TABLE ADDRESS ** «, t00=0x0089, t01=0x00a0}
0x0d6c8…0d700 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A3=ENTRY ADDRESS ** «, t00=0x0089, t01=0x00d8}
0x0d700…0d738 Head {h00=0x0034, h01=0x0050, text=»** A9=TTAB-ADDRESS ** «, t00=0x0089, t01=0x0110}
0x0d738…0d770 Head {h00=0x0034, h01=0x0050, text=»** LSTPAG IN TTAB=A3 ** «, t00=0x0089, t01=0x0148}
0x0d770…0d7a8 Head {h00=0x0034, h01=0x0050, text=»** A1=CONTENTS OF 1:ST USED ENTRY ** «, t00=0x0089, t01=0x0180}
0x0d7a8…0d7e0 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x008a, t01=0x0028}
0x0d7e0…0d7e8 Head {h00=0x0004, h01=0x0050, t00=0x008a, t01=0x0060}
0x0d7e8…0d7fc Head {h00=0x0010, h01=0x0050, text=»MMENT EQU * «, t00=0x008a, t01=0x0068}
0x0d7fc…0d820 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A3 GET TABLE ADDRESS«, t00=0x008a, t01=0x007c}
0x0d820…0d85a Head {h00=0x0036, h01=0x0050, text=» SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER)«, t00=0x008a, t01=0x00a0}
0x0d85a…0d86c Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x008a, t01=0x00da}
0x0d86c…0d896 Head {h00=0x0026, h01=0x0050, text=»MMEN10 ADK A3,2 INCREMENT ADDRESS «, t00=0x008a, t01=0x00ec}
0x0d896…0d8c2 Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A3 GET CONTENTS OF MM-TABLE«, t00=0x008a, t01=0x0116}
0x0d8c2…0d8d8 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FC00«, t00=0x008a, t01=0x0142}
0x0d8d8…0d8ee Head {h00=0x0012, h01=0x0050, text=» CWK A1,/FC00 «, t00=0x008a, t01=0x0158}
0x0d8ee…0d904 Head {h00=0x0012, h01=0x0050, text=» RB(Z) MMEN10 «, t00=0x008a, t01=0x016e}
0x0d904…0d93a Head {h00=0x0032, h01=0x0050, text=» ST A3,LSTPAG,A9 SAVE FIRST FREE PAGE-ADDRESS «, t00=0x008a, t01=0x0184}
0x0d93a…0d94a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008b, t01=0x002a}
0x0d94a…0d956 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008b, t01=0x003a}
0x0d956…0d96c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x008b, t01=0x0046}
0x0d96c…0d97a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008b, t01=0x005c}
0x0d97a…0d982 Head {h00=0x0004, h01=0x0050, t00=0x008b, t01=0x006a}
0x0d982…0d9b8 Head {h00=0x0032, h01=0x0050, text=»** G E T T A B **«, t00=0x008b, t01=0x0072}
0x0d9b8…0d9ee Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x008b, t01=0x00a8}
0x0d9ee…0da24 Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x008b, t01=0x00de}
0x0da24…0da5a Head {h00=0x0032, h01=0x0050, text=»** FIND TTAB ADDRESS **«, t00=0x008b, t01=0x0114}
0x0da5a…0da90 Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x008b, t01=0x014a}
0x0da90…0dac6 Head {h00=0x0032, h01=0x0050, text=»** INPUT :A8=POINTER TO T:A IN T:ATAB **«, t00=0x008b, t01=0x0180}
0x0dac6…0dafc Head {h00=0x0032, h01=0x0050, text=»** OUTPUT:A2=TTAB-ADDRESS **«, t00=0x008c, t01=0x0026}
0x0dafc…0db32 Head {h00=0x0032, h01=0x0050, text=»** A1=TID **«, t00=0x008c, t01=0x005c}
0x0db32…0db68 Head {h00=0x0032, h01=0x0050, text=»** WORKREGS:A3,A4,A10 **«, t00=0x008c, t01=0x0092}
0x0db68…0db9e Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x008c, t01=0x00c8}
0x0db9e…0dba6 Head {h00=0x0004, h01=0x0050, t00=0x008c, t01=0x00fe}
0x0dba6…0dbba Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x008c, t01=0x0106}
0x0dbba…0dbc6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008c, t01=0x011a}
0x0dbc6…0dbdc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x008c, t01=0x0126}
0x0dbdc…0dbfc Head {h00=0x001c, h01=0x0050, text=» LDR* A10,A8 T:A ADDRESS«, t00=0x008c, t01=0x013c}
0x0dbfc…0dc26 Head {h00=0x0026, h01=0x0050, text=» LD A1,T:ATID,A10 GET TID TO MATCH«, t00=0x008c, t01=0x015c}
0x0dc26…0dc4c Head {h00=0x0022, h01=0x0050, text=» LD A12,T:DAD,A10 T:D-ADDRESS «, t00=0x008c, t01=0x0186}
0x0dc4c…0dc58 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x001c}
0x0dc58…0dc6e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x008d, t01=0x0028}
0x0dc6e…0dc8e Head {h00=0x001c, h01=0x0050, text=» ELR A10,A8 T:A-ADDRESS «, t00=0x008d, t01=0x003e}
0x0dc8e…0dcb0 Head {h00=0x001e, h01=0x0050, text=» EL A1,T:ATID,A10 GET TID «, t00=0x008d, t01=0x005e}
0x0dcb0…0dcca Head {h00=0x0016, h01=0x0050, text=» EL A12,T:DAD,A10 «, t00=0x008d, t01=0x0080}
0x0dcca…0dcd6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x009a}
0x0dcd6…0dd00 Head {h00=0x0026, h01=0x0050, text=»GETTTB EQU * ENTRY. INPUT: A1=TID «, t00=0x008d, t01=0x00a6}
0x0dd00…0dd28 Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTTCT GET TC:TAB ADDRESS«, t00=0x008d, t01=0x00d0}
0x0dd28…0dd48 Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A4 TCTAB LENGTH«, t00=0x008d, t01=0x00f8}
0x0dd48…0dd60 Head {h00=0x0014, h01=0x0050, text=»GETT10 ADK A4,2 «, t00=0x008d, t01=0x0118}
0x0dd60…0dd76 Head {h00=0x0012, h01=0x0050, text=» SUK A3,2 ALL?«, t00=0x008d, t01=0x0130}
0x0dd76…0dd90 Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETT20 NO!«, t00=0x008d, t01=0x0146}
0x0dd90…0ddbe Head {h00=0x002a, h01=0x0050, text=» LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) «, t00=0x008d, t01=0x0160}
0x0ddbe…0dddc Head {h00=0x001a, h01=0x0050, text=» LDK A1,LMP5 TID ERROR«, t00=0x008d, t01=0x018e}
0x0dddc…0ddf0 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x008e, t01=0x001c}
0x0ddf0…0de16 Head {h00=0x0022, h01=0x0050, text=»GETT20 LDR* A2,A4 TTAB-ADDRESS«, t00=0x008e, t01=0x0030}
0x0de16…0de3a Head {h00=0x0020, h01=0x0050, text=» CW A1,TTB:PP,A2 TCL EQUAL? «, t00=0x008e, t01=0x0056}
0x0de3a…0de54 Head {h00=0x0016, h01=0x0050, text=» RB(NE) GETT10 NO!«, t00=0x008e, t01=0x007a}
0x0de54…0de70 Head {h00=0x0018, h01=0x0050, text=» ST A2,TTAB,A13 SAVE«, t00=0x008e, t01=0x0094}
0x0de70…0de80 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008e, t01=0x00b0}
0x0de80…0de96 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x008e, t01=0x00c0}
0x0de96…0dea4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008e, t01=0x00d6}
0x0dea4…0deac Head {h00=0x0004, h01=0x0050, t00=0x008e, t01=0x00e4}
0x0deac…0deb4 Head {h00=0x0004, h01=0x0050, t00=0x008e, t01=0x00ec}
0x0deb4…0def0 Head {h00=0x0038, h01=0x0050, text=»** Q U E J O B ** «, t00=0x008e, t01=0x00f4}
0x0def0…0df2c Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x008e, t01=0x0130}
0x0df2c…0df68 Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x008e, t01=0x016c}
0x0df68…0dfa4 Head {h00=0x0038, h01=0x0050, text=»** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** «, t00=0x008f, t01=0x0018}
0x0dfa4…0dfe0 Head {h00=0x0038, h01=0x0050, text=»** 0, ENB. ** «, t00=0x008f, t01=0x0054}
0x0dfe0…0e01c Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x008f, t01=0x0090}
0x0e01c…0e058 Head {h00=0x0038, h01=0x0050, text=»** INPUT: A10=T:A-ADDRESS ** «, t00=0x008f, t01=0x00cc}
0x0e058…0e094 Head {h00=0x0038, h01=0x0050, text=»** A12=T:D-ADDRESS ** «, t00=0x008f, t01=0x0108}
0x0e094…0e0d0 Head {h00=0x0038, h01=0x0050, text=»** A2=TTAB-ADDRESS ** «, t00=0x008f, t01=0x0144}
0x0e0d0…0e10c Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x008f, t01=0x0180}
0x0e10c…0e114 Head {h00=0x0004, h01=0x0050, t00=0x0090, t01=0x002c}
0x0e114…0e128 Head {h00=0x0010, h01=0x0050, text=»QUEJOB EQU *«, t00=0x0090, t01=0x0034}
0x0e128…0e14c Head {h00=0x0020, h01=0x0050, text=»* QUEUE THIS TASK (THIS TID)«, t00=0x0090, t01=0x0048}
0x0e14c…0e154 Head {h00=0x0004, h01=0x0050, t00=0x0090, t01=0x006c}
0x0e154…0e188 Head {h00=0x0030, h01=0x0050, text=» LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS«, t00=0x0090, t01=0x0074}
0x0e188…0e1a4 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A13 RELOCATE«, t00=0x0090, t01=0x00a8}
0x0e1a4…0e1c4 Head {h00=0x001c, h01=0x0050, text=» STR A3,A15 PUT ON STACK«, t00=0x0090, t01=0x00c4}
0x0e1c4…0e1f2 Head {h00=0x002a, h01=0x0050, text=» LDKL A3,/00C0 SET LEVEL 0 AND ENABLE «, t00=0x0090, t01=0x00e4}
0x0e1f2…0e20a Head {h00=0x0014, h01=0x0050, text=» STR A3,A15 PSW «, t00=0x0090, t01=0x0112}
0x0e20a…0e22c Head {h00=0x001e, h01=0x0050, text=» CF A15,SAVE8 SAVE 8 REGS «, t00=0x0090, t01=0x012a}
0x0e22c…0e254 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 CLEAR ABORT INDICATOR «, t00=0x0090, t01=0x014c}
0x0e254…0e27c Head {h00=0x0024, h01=0x0050, text=» LD A8,SCTLAC GET P:MTAB-ADDRESS«, t00=0x0090, t01=0x0174}
0x0e27c…0e2a0 Head {h00=0x0020, h01=0x0050, text=» LDR A5,A2 GET TTAB-ADDRESS «, t00=0x0091, t01=0x000c}
0x0e2a0…0e2bc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0091, t01=0x0030}
0x0e2bc…0e2ec Head {h00=0x002c, h01=0x0050, text=» LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS«, t00=0x0091, t01=0x004c}
0x0e2ec…0e2fe Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0091, t01=0x007c}
0x0e2fe…0e314 Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FFFE«, t00=0x0091, t01=0x008e}
0x0e314…0e32c Head {h00=0x0014, h01=0x0050, text=» ADK A4,DWBFST+4«, t00=0x0091, t01=0x00a4}
0x0e32c…0e368 Head {h00=0x0038, h01=0x0050, text=» ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS«, t00=0x0091, t01=0x00bc}
0x0e368…0e392 Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A4 NUMBER OF START POINTS«, t00=0x0091, t01=0x00f8}
0x0e392…0e3c4 Head {h00=0x002e, h01=0x0050, text=»GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS«, t00=0x0091, t01=0x0122}
0x0e3c4…0e3de Head {h00=0x0016, h01=0x0050, text=» RF(N) GETT40 ALL!«, t00=0x0091, t01=0x0154}
0x0e3de…0e3fe Head {h00=0x001c, h01=0x0050, text=» LD A1,4,A4 DISP ADDRESS«, t00=0x0091, t01=0x016e}
0x0e3fe…0e420 Head {h00=0x001e, h01=0x0050, text=» LD A3,2,A4 SEGMENT NUMBER«, t00=0x0091, t01=0x018e}
0x0e420…0e450 Head {h00=0x002c, h01=0x0050, text=» LD A2,NTPA,A8 INTERPRETER START ADDRESS«, t00=0x0092, t01=0x0020}
0x0e450…0e45c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0092, t01=0x0050}
0x0e45c…0e478 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0092, t01=0x005c}
0x0e478…0e4a8 Head {h00=0x002c, h01=0x0050, text=» EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS«, t00=0x0092, t01=0x0078}
0x0e4a8…0e4ba Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0092, t01=0x00a8}
0x0e4ba…0e4d0 Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FFFE«, t00=0x0092, t01=0x00ba}
0x0e4d0…0e4e8 Head {h00=0x0014, h01=0x0050, text=» ADK A4,DWBFST+4«, t00=0x0092, t01=0x00d0}
0x0e4e8…0e524 Head {h00=0x0038, h01=0x0050, text=» ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS«, t00=0x0092, t01=0x00e8}
0x0e524…0e54e Head {h00=0x0026, h01=0x0050, text=» ELR A6,A4 NUMBER OF START-POINTS «, t00=0x0092, t01=0x0124}
0x0e54e…0e580 Head {h00=0x002e, h01=0x0050, text=»GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS«, t00=0x0092, t01=0x014e}
0x0e580…0e59a Head {h00=0x0016, h01=0x0050, text=» RF(N) GETT40 ALL!«, t00=0x0092, t01=0x0180}
0x0e59a…0e5ba Head {h00=0x001c, h01=0x0050, text=» EL A1,4,A4 DISP ADDRESS«, t00=0x0093, t01=0x000a}
0x0e5ba…0e5dc Head {h00=0x001e, h01=0x0050, text=» EL A3,2,A4 SEGMENT NUMBER«, t00=0x0093, t01=0x002a}
0x0e5dc…0e60c Head {h00=0x002c, h01=0x0050, text=» EL A2,NTPA,A8 INTERPRETER START ADDRESS«, t00=0x0093, t01=0x004c}
0x0e60c…0e618 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0093, t01=0x007c}
0x0e618…0e62e Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0093, t01=0x0088}
0x0e62e…0e644 Head {h00=0x0012, h01=0x0050, text=» CF A15,ACTOT «, t00=0x0093, t01=0x009e}
0x0e644…0e66c Head {h00=0x0024, h01=0x0050, text=» ADK A4,STPREC NEXT START-POINT «, t00=0x0093, t01=0x00b4}
0x0e66c…0e67e Head {h00=0x000e, h01=0x0050, text=» RB GETT30«, t00=0x0093, t01=0x00dc}
0x0e67e…0e6a6 Head {h00=0x0024, h01=0x0050, text=»GETT40 ABL RETUR8 RELOAD 8 REGS «, t00=0x0093, t01=0x00ee}
0x0e6a6…0e6be Head {h00=0x0014, h01=0x0050, text=»RETUR EQU *-REL «, t00=0x0093, t01=0x0116}
0x0e6be…0e6ce Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0093, t01=0x012e}
0x0e6ce…0e6da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0093, t01=0x013e}
0x0e6da…0e6f0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0093, t01=0x014a}
0x0e6f0…0e6fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0093, t01=0x0160}
0x0e6fe…0e706 Head {h00=0x0004, h01=0x0050, t00=0x0093, t01=0x016e}
0x0e706…0e73e Head {h00=0x0034, h01=0x0050, text=»** M O V M M T ** «, t00=0x0093, t01=0x0176}
0x0e73e…0e776 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0094, t01=0x001e}
0x0e776…0e7ae Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0094, t01=0x0056}
0x0e7ae…0e7e6 Head {h00=0x0034, h01=0x0050, text=»** MOVE MM-TABLE ** «, t00=0x0094, t01=0x008e}
0x0e7e6…0e81e Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x0094, t01=0x00c6}
0x0e81e…0e856 Head {h00=0x0034, h01=0x0050, text=»** INPUT :A2=TTAB-ADDRESS ** «, t00=0x0094, t01=0x00fe}
0x0e856…0e88e Head {h00=0x0034, h01=0x0050, text=»** MMTAB HOLDS TABLE TO MOVE ** «, t00=0x0094, t01=0x0136}
0x0e88e…0e8c6 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT:A2=START OF MM-TABLE IN TTAB ** «, t00=0x0094, t01=0x016e}
0x0e8c6…0e8fe Head {h00=0x0034, h01=0x0050, text=»** A9=TTAB ADDRESS ** «, t00=0x0095, t01=0x0016}
0x0e8fe…0e936 Head {h00=0x0034, h01=0x0050, text=»** WORKREGS:A1,A3 ** «, t00=0x0095, t01=0x004e}
0x0e936…0e96e Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0095, t01=0x0086}
0x0e96e…0e976 Head {h00=0x0004, h01=0x0050, t00=0x0095, t01=0x00be}
0x0e976…0e98a Head {h00=0x0010, h01=0x0050, text=»MOVMMT EQU *«, t00=0x0095, t01=0x00c6}
0x0e98a…0e9b6 Head {h00=0x0028, h01=0x0050, text=» ADKL A2,MMBEG GET TO-TABLE ADDRESS «, t00=0x0095, t01=0x00da}
0x0e9b6…0e9dc Head {h00=0x0022, h01=0x0050, text=» TL MMTAB,A13 LOAD FROM-TABLE «, t00=0x0095, t01=0x0106}
0x0e9dc…0e9f0 Head {h00=0x0010, h01=0x0050, text=» TSR A2 MOVE«, t00=0x0095, t01=0x012c}
0x0e9f0…0ea02 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0095, t01=0x0140}
0x0ea02…0ea2e Head {h00=0x0028, h01=0x0050, text=» CALL MMENT FILL LAST ENTRY ADDRESS «, t00=0x0095, t01=0x0152}
0x0ea2e…0ea52 Head {h00=0x0020, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE«, t00=0x0095, t01=0x017e}
0x0ea52…0ea62 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x0012}
0x0ea62…0ea6e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0096, t01=0x0022}
0x0ea6e…0ea84 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0096, t01=0x002e}
0x0ea84…0ea92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0096, t01=0x0044}
0x0ea92…0ead6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0096, t01=0x0052}
0x0ead6…0eb1a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0096, t01=0x0096}
0x0eb1a…0eb5e Head {h00=0x0040, h01=0x0050, text=»* CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE AREA IN TTAB *«, t00=0x0096, t01=0x00da}
0x0eb5e…0eba2 Head {h00=0x0040, h01=0x0050, text=»* SAVE REAL TID IN AUXILARY TABLE FOR DEBUGGER *«, t00=0x0096, t01=0x011e}
0x0eba2…0ebe6 Head {h00=0x0040, h01=0x0050, text=»* ====================================================== *«, t00=0x0096, t01=0x0162}
0x0ebe6…0ec2a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0097, t01=0x0016}
0x0ec2a…0ec6e Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0097, t01=0x005a}
0x0ec6e…0ecb2 Head {h00=0x0040, h01=0x0050, text=»* REFERENCED IN: SYSLDA PART 2 B. *«, t00=0x0097, t01=0x009e}
0x0ecb2…0ecf6 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0097, t01=0x00e2}
0x0ecf6…0ed3a Head {h00=0x0040, h01=0x0050, text=»* ENTRY: A5 - POINTER TO NUMBER OF COPIES *«, t00=0x0097, t01=0x0126}
0x0ed3a…0ed7e Head {h00=0x0040, h01=0x0050, text=»* A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB *«, t00=0x0097, t01=0x016a}
0x0ed7e…0edc2 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0098, t01=0x001e}
0x0edc2…0ee06 Head {h00=0x0040, h01=0x0050, text=»* EXIT: *«, t00=0x0098, t01=0x0062}
0x0ee06…0ee4a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0098, t01=0x00a6}
0x0ee4a…0ee8e Head {h00=0x0040, h01=0x0050, text=»* WORK REGISTERS: A1,A3,A6,A8 *«, t00=0x0098, t01=0x00ea}
0x0ee8e…0eed2 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0098, t01=0x012e}
0x0eed2…0ef16 Head {h00=0x0040, h01=0x0050, text=»* SUBROUTINES: GETTTB *«, t00=0x0098, t01=0x0172}
0x0ef16…0ef5a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0099, t01=0x0026}
0x0ef5a…0ef9e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0099, t01=0x006a}
0x0ef9e…0efb2 Head {h00=0x0010, h01=0x0050, text=»CHTAID EQU *«, t00=0x0099, t01=0x00ae}
0x0efb2…0efe8 Head {h00=0x0032, h01=0x0050, text=» LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB «, t00=0x0099, t01=0x00c2}
0x0efe8…0f010 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x0099, t01=0x00f8}
0x0f010…0f036 Head {h00=0x0022, h01=0x0050, text=»CHT:10 RF(Z) CHT:90 NO MOORE! «, t00=0x0099, t01=0x0120}
0x0f036…0f068 Head {h00=0x002e, h01=0x0050, text=» SUKL A8,2 LAST USED ENTRY IN REAL T:ATAB «, t00=0x0099, t01=0x0146}
0x0f068…0f084 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0099, t01=0x0178}
0x0f084…0f0b0 (154, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A8 GET POINTER TO REAL T:A «, t00=0x009a, t01=0x0004}
0x0f0b0…0f0d8 Head {h00=0x0024, h01=0x0050, text=» LD A1,T:ATID,A1 GET TCL IN T:A «, t00=0x009a, t01=0x0030}
0x0f0d8…0f10a Head {h00=0x002e, h01=0x0050, text=»CHT:20 CALL GETTTB GET CORRESPONDING TTAB «, t00=0x009a, t01=0x0058}
0x0f10a…0f13a Head {h00=0x002c, h01=0x0050, text=» LD A4,TTBTID,A2 GET REAL TID IN TTAB =3«, t00=0x009a, t01=0x008a}
0x0f13a…0f174 Head {h00=0x0036, h01=0x0050, text=» LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS «, t00=0x009a, t01=0x00ba}
0x0f174…0f1a2 Head {h00=0x002a, h01=0x0050, text=» ST A4,T:ATID,A3 REPLACE TCL IN T:A =3«, t00=0x009a, t01=0x00f4}
0x0f1a2…0f1cc Head {h00=0x0026, h01=0x0050, text=» LDR A3,A8 GET REAL T:ATAB POINTER«, t00=0x009a, t01=0x0122}
0x0f1cc…0f206 Head {h00=0x0036, h01=0x0050, text=» SU* A3,T:ATNW,A13 COMPUTE ENTRY IN AUX. TID TABLE«, t00=0x009a, t01=0x014c}
0x0f206…0f23a Head {h00=0x0030, h01=0x0050, text=» STR A4,A3 SAVE TID FOR DEBUGGER PURPOSE =3 «, t00=0x009a, t01=0x0186}
0x0f23a…0f246 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009b, t01=0x002a}
0x0f246…0f262 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x009b, t01=0x0036}
0x0f262…0f28c Head {h00=0x0026, h01=0x0050, text=» ELR A1,A8 GET POINTER TO REAL T:A«, t00=0x009b, t01=0x0052}
0x0f28c…0f2b4 Head {h00=0x0024, h01=0x0050, text=» EL A1,T:ATID,A1 GET TCL IN T:A «, t00=0x009b, t01=0x007c}
0x0f2b4…0f2e6 Head {h00=0x002e, h01=0x0050, text=»CHT:20 CALL GETTTB GET CORRESPONDING TTAB «, t00=0x009b, t01=0x00a4}
0x0f2e6…0f312 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A2 GET POINTER TO TTAB ENTRY«, t00=0x009b, t01=0x00d6}
0x0f312…0f348 Head {h00=0x0032, h01=0x0050, text=» ADKL A3,MMBEG START OF MM-TABLE FOR THIS TTAB«, t00=0x009b, t01=0x0102}
0x0f348…0f358 Head {h00=0x000c, h01=0x0050, text=» TLR A3 «, t00=0x009b, t01=0x0138}
0x0f358…0f388 Head {h00=0x002c, h01=0x0050, text=» LD A4,TTBTID,A2 GET REAL TID IN TTAB =3«, t00=0x009b, t01=0x0148}
0x0f388…0f3c2 Head {h00=0x0036, h01=0x0050, text=» LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS «, t00=0x009b, t01=0x0178}
0x0f3c2…0f3f0 Head {h00=0x002a, h01=0x0050, text=» ES A4,T:ATID,A3 REPLACE TCL IN T:A =3«, t00=0x009c, t01=0x0022}
0x0f3f0…0f424 Head {h00=0x0030, h01=0x0050, text=» EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB«, t00=0x009c, t01=0x0050}
0x0f424…0f44c Head {h00=0x0024, h01=0x0050, text=» NGR A3,A3 NEGATIVE DISPLACEMENT«, t00=0x009c, t01=0x0084}
0x0f44c…0f47e Head {h00=0x002e, h01=0x0050, text=» ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE«, t00=0x009c, t01=0x00ac}
0x0f47e…0f4b2 Head {h00=0x0030, h01=0x0050, text=» ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE =3 «, t00=0x009c, t01=0x00de}
0x0f4b2…0f4be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009c, t01=0x0112}
0x0f4be…0f4d4 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x009c, t01=0x011e}
0x0f4d4…0f4fe Head {h00=0x0026, h01=0x0050, text=» CM TTB:PP,A2 CLEAR TCL SAVE AREA «, t00=0x009c, t01=0x0134}
0x0f4fe…0f51e Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 DECREMENT TCL «, t00=0x009c, t01=0x015e}
0x0f51e…0f53a Head {h00=0x0018, h01=0x0050, text=» SUKL A8,2 DECREMENT«, t00=0x009c, t01=0x017e}
0x0f53a…0f566 Head {h00=0x0028, h01=0x0050, text=» SUK A6,1 DECREMENT NUMBER OF COPIES«, t00=0x009d, t01=0x000a}
0x0f566…0f586 Head {h00=0x001c, h01=0x0050, text=» RB(P) CHT:20 NEXT COPY «, t00=0x009d, t01=0x0036}
0x0f586…0f59c Head {h00=0x0012, h01=0x0050, text=»CHT:90 RTN A14«, t00=0x009d, t01=0x0056}
0x0f59c…0f5aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009d, t01=0x006c}
0x0f5aa…0f5b2 Head {h00=0x0004, h01=0x0050, t00=0x009d, t01=0x007a}
0x0f5b2…0f5ba Head {h00=0x0004, h01=0x0050, t00=0x009d, t01=0x0082}
0x0f5ba…0f5f2 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009d, t01=0x008a}
0x0f5f2…0f62a Head {h00=0x0034, h01=0x0050, text=»*** ***«, t00=0x009d, t01=0x00c2}
0x0f62a…0f662 Head {h00=0x0034, h01=0x0050, text=»** SYSLOAD PART 2.B **«, t00=0x009d, t01=0x00fa}
0x0f662…0f69a Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x009d, t01=0x0132}
0x0f69a…0f6d2 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009d, t01=0x016a}
0x0f6d2…0f6da Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x0012}
0x0f6da…0f712 Head {h00=0x0034, h01=0x0050, text=»* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO *«, t00=0x009e, t01=0x001a}
0x0f712…0f74a Head {h00=0x0034, h01=0x0050, text=»* SHADOW TABLE *«, t00=0x009e, t01=0x0052}
0x0f74a…0f782 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x009e, t01=0x008a}
0x0f782…0f7ba Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009e, t01=0x00c2}
0x0f7ba…0f7c2 Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x00fa}
0x0f7c2…0f7da Head {h00=0x0014, h01=0x0050, text=»PART2B EQU *-REL«, t00=0x009e, t01=0x0102}
0x0f7da…0f7e2 Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x011a}
0x0f7e2…0f7ea Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x0122}
0x0f7ea…0f7fe Head {h00=0x0010, h01=0x0050, text=»REALTA EQU *«, t00=0x009e, t01=0x012a}
0x0f7fe…0f828 Head {h00=0x0026, h01=0x0050, text=» LD A5,SCTSFA MONITOR END ADDRESS «, t00=0x009e, t01=0x013e}
0x0f828…0f85a Head {h00=0x002e, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB PROTOTYP ADDRESS «, t00=0x009e, t01=0x0168}
0x0f85a…0f888 Head {h00=0x002a, h01=0x0050, text=» LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS «, t00=0x009f, t01=0x000a}
0x0f888…0f89a Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x009f, t01=0x0038}
0x0f89a…0f8bc Head {h00=0x001e, h01=0x0050, text=» ST A8,SAVE03,A13 SAVE A8 «, t00=0x009f, t01=0x004a}
0x0f8bc…0f8e6 Head {h00=0x0026, h01=0x0050, text=»SYA310 LD A8,SAVE03,A13 RESTORE A8«, t00=0x009f, t01=0x006c}
0x0f8e6…0f8f8 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x009f, t01=0x0096}
0x0f8f8…0f916 Head {h00=0x001a, h01=0x0050, text=» CW A8,ENDADD,A13 ALL?«, t00=0x009f, t01=0x00a8}
0x0f916…0f930 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA350 YES!«, t00=0x009f, t01=0x00c6}
0x0f930…0f94e Head {h00=0x001a, h01=0x0050, text=» ST A8,SAVE03,A13 SAVE«, t00=0x009f, t01=0x00e0}
0x0f94e…0f976 Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 A5=SHADOW TAB POINTER «, t00=0x009f, t01=0x00fe}
0x0f976…0f992 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x009f, t01=0x0126}
0x0f992…0f9c8 Head {h00=0x0032, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB AND QUEUE «, t00=0x009f, t01=0x0142}
0x0f9c8…0f9dc Head {h00=0x0010, h01=0x0050, text=» CALL QUEJOB«, t00=0x009f, t01=0x0178}
0x0f9dc…0fa1a Head {h00=0x003a, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13)«, t00=0x009f, t01=0x018c}
0x0fa1a…0fa3e Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A ADDRESS «, t00=0x00a0, t01=0x003a}
0x0fa3e…0fa66 Head {h00=0x0024, h01=0x0050, text=» STR A1,A7 STORE IN REAL T:ATAB «, t00=0x00a0, t01=0x005e}
0x0fa66…0fa78 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00a0, t01=0x0086}
0x0fa78…0faa0 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x00a0, t01=0x0098}
0x0faa0…0faae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a0, t01=0x00c0}
0x0faae…0fac6 Head {h00=0x0014, h01=0x0050, text=»SYA340 SUK A6,1 «, t00=0x00a0, t01=0x00ce}
0x0fac6…0fae6 Head {h00=0x001c, h01=0x0050, text=» RF(P) SYA345 NEXT TASK «, t00=0x00a0, t01=0x00e6}
0x0fae6…0fb1c Head {h00=0x0032, h01=0x0050, text=» CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS «, t00=0x00a0, t01=0x0106}
0x0fb1c…0fb3e Head {h00=0x001e, h01=0x0050, text=» RB SYA310 NEXT TASK-CLASS«, t00=0x00a0, t01=0x013c}
0x0fb3e…0fb6c Head {h00=0x002a, h01=0x0050, text=»SYA345 LD A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x00a0, t01=0x015e}
0x0fb6c…0fb8a Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x00a0, t01=0x018c}
0x0fb8a…0fbaa Head {h00=0x001c, h01=0x0050, text=» IM T:ATID,A2 UPDATE TID«, t00=0x00a1, t01=0x001a}
0x0fbaa…0fbd2 Head {h00=0x0024, h01=0x0050, text=» STR A2,A7 STORE IN REAL T:ATAB «, t00=0x00a1, t01=0x003a}
0x0fbd2…0fbf8 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A7 CHANGE T:A TO COPY «, t00=0x00a1, t01=0x0062}
0x0fbf8…0fc2e Head {h00=0x0032, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB AND QUEUE «, t00=0x00a1, t01=0x0088}
0x0fc2e…0fc52 Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a1, t01=0x00be}
0x0fc52…0fc88 Head {h00=0x0032, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB «, t00=0x00a1, t01=0x00e2}
0x0fc88…0fcb4 Head {h00=0x0028, h01=0x0050, text=» ADK A7,2 NEXT ENTRY IN REAL T:ATAB «, t00=0x00a1, t01=0x0118}
0x0fcb4…0fcea Head {h00=0x0032, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S AND RESERVE FOR SWB'S «, t00=0x00a1, t01=0x0144}
0x0fcea…0fd10 Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x00a1, t01=0x017a}
0x0fd10…0fd1c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a2, t01=0x0010}
0x0fd1c…0fd38 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00a2, t01=0x001c}
0x0fd38…0fd66 Head {h00=0x002a, h01=0x0050, text=»* GET ACTUAL MM-TABLE ADDRESS AND LOAD«, t00=0x00a2, t01=0x0038}
0x0fd66…0fd6e Head {h00=0x0004, h01=0x0050, t00=0x00a2, t01=0x0066}
0x0fd6e…0fd80 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x00a2, t01=0x006e}
0x0fd80…0fdae Head {h00=0x002a, h01=0x0050, text=» AD* A1,SCTSFA ADD SHADOW-TABLE LENGTH«, t00=0x00a2, t01=0x0080}
0x0fdae…0fdd6 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET MM-TABLE ADDRESS«, t00=0x00a2, t01=0x00ae}
0x0fdd6…0fdea Head {h00=0x0010, h01=0x0050, text=» TLR A1 LOAD«, t00=0x00a2, t01=0x00d6}
0x0fdea…0fe10 Head {h00=0x0022, h01=0x0050, text=» ST A1,MMFROM,A13 SAVE ADDRESS«, t00=0x00a2, t01=0x00ea}
0x0fe10…0fe3c Head {h00=0x0028, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB «, t00=0x00a2, t01=0x0110}
0x0fe3c…0fe7a Head {h00=0x003a, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13)«, t00=0x00a2, t01=0x013c}
0x0fe7a…0feae Head {h00=0x0030, h01=0x0050, text=» LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST ENTRY «, t00=0x00a2, t01=0x017a}
0x0feae…0fed2 Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a3, t01=0x001e}
0x0fed2…0ff00 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MMTAB GET WORK TABLE ADDRESS «, t00=0x00a3, t01=0x0042}
0x0ff00…0ff14 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x00a3, t01=0x0070}
0x0ff14…0ff3a Head {h00=0x0022, h01=0x0050, text=» TSR A2 SAVE CLASS-DATA TABLE «, t00=0x00a3, t01=0x0084}
0x0ff3a…0ff6a Head {h00=0x002c, h01=0x0050, text=»* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE «, t00=0x00a3, t01=0x00aa}
0x0ff6a…0ff72 Head {h00=0x0004, h01=0x0050, t00=0x00a3, t01=0x00da}
0x0ff72…0ff92 Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 START OF TABLE«, t00=0x00a3, t01=0x00e2}
0x0ff92…0ffaa Head {h00=0x0014, h01=0x0050, text=» LDKL A12,/FC00 «, t00=0x00a3, t01=0x0102}
0x0ffaa…0ffcc Head {h00=0x001e, h01=0x0050, text=»SYA320 SUK A1,2 NEXT ENTRY«, t00=0x00a3, t01=0x011a}
0x0ffcc…0ffe4 Head {h00=0x0014, h01=0x0050, text=» CWR A1,A2 ALL? «, t00=0x00a3, t01=0x013c}
0x0ffe4…0fffe Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA330 YES!«, t00=0x00a3, t01=0x0154}
0x0fffe…1001e Head {h00=0x001c, h01=0x0050, text=» STR A12,A1 REMOVE ENTRY«, t00=0x00a3, t01=0x016e}
0x1001e…10030 Head {h00=0x000e, h01=0x0050, text=» RB SYA320«, t00=0x00a3, t01=0x018e}
0x10030…10044 Head {h00=0x0010, h01=0x0050, text=»SYA330 EQU *«, t00=0x00a4, t01=0x0010}
0x10044…10066 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A ADDRESS«, t00=0x00a4, t01=0x0024}
0x10066…1008e Head {h00=0x0024, h01=0x0050, text=» ESR A1,A7 STORE IN REAL T:ATAB «, t00=0x00a4, t01=0x0046}
0x1008e…100b6 Head {h00=0x0024, h01=0x0050, text=» EL A12,T:DAD,A1 GET T:D ADDRESS«, t00=0x00a4, t01=0x006e}
0x100b6…100d6 Head {h00=0x001c, h01=0x0050, text=» EL A1,T:ATID,A1 GET TID«, t00=0x00a4, t01=0x0096}
0x100d6…10102 Head {h00=0x0028, h01=0x0050, text=» ADK A7,2 NEXT ENTRY IN REAL T:ATAB «, t00=0x00a4, t01=0x00b6}
0x10102…1012a Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x00a4, t01=0x00e2}
0x1012a…10142 Head {h00=0x0014, h01=0x0050, text=»SYA340 SUK A6,1 «, t00=0x00a4, t01=0x010a}
0x10142…10162 Head {h00=0x001c, h01=0x0050, text=» RF(P) SYA345 NEXT TASK «, t00=0x00a4, t01=0x0122}
0x10162…10198 Head {h00=0x0032, h01=0x0050, text=» CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS «, t00=0x00a4, t01=0x0142}
0x10198…101ba Head {h00=0x001e, h01=0x0050, text=» RB SYA310 NEXT TASK-CLASS«, t00=0x00a4, t01=0x0178}
0x101ba…101de Head {h00=0x0020, h01=0x0050, text=»SYA345 ADK A1,1 NEXT T:A ID «, t00=0x00a5, t01=0x000a}
0x101de…1020a Head {h00=0x0028, h01=0x0050, text=» CALL GETTTB FIND CORRESPONDING TTAB«, t00=0x00a5, t01=0x002e}
0x1020a…1022e Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a5, t01=0x005a}
0x1022e…10258 Head {h00=0x0026, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE TO TTAB«, t00=0x00a5, t01=0x007e}
0x10258…10276 Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x00a5, t01=0x00a8}
0x10276…1029e Head {h00=0x0024, h01=0x0050, text=» ESR A2,A7 STORE IN REAL T:ATAB «, t00=0x00a5, t01=0x00c6}
0x1029e…102e2 Head {h00=0x0040, h01=0x0050, text=» ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS«, t00=0x00a5, t01=0x00ee}
0x102e2…10308 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A7 CHANGE T:A TO COPY «, t00=0x00a5, t01=0x0132}
0x10308…10338 Head {h00=0x002c, h01=0x0050, text=» ADK A7,2 NEXT FREE WORD IN REAL T:ATAB «, t00=0x00a5, t01=0x0158}
0x10338…10352 Head {h00=0x0016, h01=0x0050, text=» A2=NEW ADDRESS «, t00=0x00a5, t01=0x0188}
0x10352…10386 Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x00a6, t01=0x0012}
0x10386…103aa Head {h00=0x0020, h01=0x0050, text=» LD A1,MMTO,A13 GET TO-TABLE«, t00=0x00a6, t01=0x0046}
0x103aa…103dc Head {h00=0x002e, h01=0x0050, text=» ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE«, t00=0x00a6, t01=0x006a}
0x103dc…103ec Head {h00=0x000c, h01=0x0050, text=» TLR A1 «, t00=0x00a6, t01=0x009c}
0x103ec…10412 Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x00a6, t01=0x00ac}
0x10412…1043a Head {h00=0x0024, h01=0x0050, text=» LD A1,TTAB,A13 GET TTAB-ADDRESS«, t00=0x00a6, t01=0x00d2}
0x1043a…10468 Head {h00=0x002a, h01=0x0050, text=» CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB «, t00=0x00a6, t01=0x00fa}
0x10468…10492 Head {h00=0x0026, h01=0x0050, text=» ELR A10,A8 GET T:A-ADDRESS (NEW) «, t00=0x00a6, t01=0x0128}
0x10492…104b4 Head {h00=0x001e, h01=0x0050, text=» EL A1,T:ATID,A10 GET TID «, t00=0x00a6, t01=0x0152}
0x104b4…104d0 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 UPDATE TID«, t00=0x00a6, t01=0x0174}
0x104d0…104f8 Head {h00=0x0024, h01=0x0050, text=» ES A1,T:ATID,A10 RESTORE IN T:A«, t00=0x00a6, t01=0x0190}
0x104f8…10504 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a7, t01=0x0028}
0x10504…1051a Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00a7, t01=0x0034}
0x1051a…1052c Head {h00=0x000e, h01=0x0050, text=» RB SYA340«, t00=0x00a7, t01=0x004a}
0x1052c…10538 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a7, t01=0x005c}
0x10538…10546 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a7, t01=0x0068}
0x10546…1055e Head {h00=0x0014, h01=0x0050, text=»FINISH EQU *-REL«, t00=0x00a7, t01=0x0076}
0x1055e…10566 Head {h00=0x0004, h01=0x0050, t00=0x00a7, t01=0x008e}
0x10566…1058a Head {h00=0x0020, h01=0x0050, text=»* ADJUST START OF FREE AREA «, t00=0x00a7, t01=0x0096}
0x1058a…10592 Head {h00=0x0004, h01=0x0050, t00=0x00a7, t01=0x00ba}
0x10592…105a6 Head {h00=0x0010, h01=0x0050, text=»SYA350 EQU *«, t00=0x00a7, t01=0x00c2}
0x105a6…105bc Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00a7, t01=0x00d6}
0x105bc…105ea Head {h00=0x002a, h01=0x0050, text=» LD A1,LSTADR,A13 GET END OF FREE AREA«, t00=0x00a7, t01=0x00ec}
0x105ea…105f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a7, t01=0x011a}
0x105f6…10612 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00a7, t01=0x0126}
0x10612…10628 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFF «, t00=0x00a7, t01=0x0142}
0x10628…10642 Head {h00=0x0016, h01=0x0050, text=» LD A2,FYSPAG,A13 «, t00=0x00a7, t01=0x0158}
0x10642…10654 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x00a7, t01=0x0172}
0x10654…10666 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x00a7, t01=0x0184}
0x10666…10672 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0008}
0x10672…10688 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x00a8, t01=0x0014}
0x10688…1069e Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTLAC «, t00=0x00a8, t01=0x002a}
0x1069e…106aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0040}
0x106aa…106c6 Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x00a8, t01=0x004c}
0x106c6…106dc Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/03FF«, t00=0x00a8, t01=0x0068}
0x106dc…106ee Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x00a8, t01=0x007e}
0x106ee…106fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0090}
0x106fa…10712 Head {h00=0x0014, h01=0x0050, text=» ST A1,SCTEFA+2 «, t00=0x00a8, t01=0x009c}
0x10712…10728 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00a8, t01=0x00b4}
0x10728…10742 Head {h00=0x0016, h01=0x0050, text=» LD A1,FYSPAG,A13 «, t00=0x00a8, t01=0x00ca}
0x10742…1075e Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x00a8, t01=0x00e4}
0x1075e…10774 Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTLAC «, t00=0x00a8, t01=0x0100}
0x10774…10780 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0116}
0x10780…1079c Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CREDIT=0«, t00=0x00a8, t01=0x0122}
0x1079c…107ae Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00a8, t01=0x013e}
0x107ae…107ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0150}
0x107ba…107cc Head {h00=0x000e, h01=0x0050, text=» SRL A1,14«, t00=0x00a8, t01=0x015c}
0x107cc…107e2 Head {h00=0x0012, h01=0x0050, text=» ST A1,SCTEFA «, t00=0x00a8, t01=0x016e}
0x107e2…107fe Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00a8, t01=0x0184}
0x107fe…1082a Head {h00=0x0028, h01=0x0050, text=» LD A1,FSTADR,A13 START OF FREE AREA«, t00=0x00a9, t01=0x0010}
0x1082a…10840 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA355«, t00=0x00a9, t01=0x003c}
0x10840…1084c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a9, t01=0x0052}
0x1084c…10862 Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTSFA «, t00=0x00a9, t01=0x005e}
0x10862…10880 Head {h00=0x001a, h01=0x0050, text=»SYA355 ST A1,SCTSFA+2 «, t00=0x00a9, t01=0x0074}
0x10880…10892 Head {h00=0x000e, h01=0x0050, text=» CM SCTSFA«, t00=0x00a9, t01=0x0092}
0x10892…108a8 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00a9, t01=0x00a4}
0x108a8…108b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a9, t01=0x00ba}
0x108b6…108fe Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x00a9, t01=0x00c8}
0x108fe…10946 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00a9, t01=0x0110}
0x10946…1098e Head {h00=0x0044, h01=0x003f, text=»* PAGGEN - BUILD PAGE TABLE * «, t00=0x00a9, t01=0x0158}
0x1098e…109d6 Head {h00=0x0044, h01=0x003f, text=»* ========================= * «, t00=0x00aa, t01=0x0010}
0x109d6…10a1e Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00aa, t01=0x0058}
0x10a1e…10a66 Head {h00=0x0044, h01=0x003f, text=»* REFERENCED IN: SYSLDA * «, t00=0x00aa, t01=0x00a0}
0x10a66…10aae Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00aa, t01=0x00e8}
0x10aae…10af6 Head {h00=0x0044, h01=0x003f, text=»* ENTRY: SCTSFA - START OF FREE AREA * «, t00=0x00aa, t01=0x0130}
0x10af6…10b3e Head {h00=0x0044, h01=0x003f, text=»* SCTEFA - END OF FREE AREA * «, t00=0x00aa, t01=0x0178}
0x10b3e…10b86 Head {h00=0x0044, h01=0x003f, text=»* SCTNOS - NUMBER OF SEGMENTS * «, t00=0x00ab, t01=0x0030}
0x10b86…10bce Head {h00=0x0044, h01=0x003f, text=»* SCTNOP - NUMBER OF PAGES * «, t00=0x00ab, t01=0x0078}
0x10bce…10c16 Head {h00=0x0044, h01=0x003f, text=»* SCTPSZ - PAGE SIZE * «, t00=0x00ab, t01=0x00c0}
0x10c16…10c5e Head {h00=0x0044, h01=0x003f, text=»* SAVE22 - PHYSICAL ADDRESS TO FIRST PAGE (16 BITS) * «, t00=0x00ab, t01=0x0108}
0x10c5e…10ca6 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ab, t01=0x0150}
0x10ca6…10cee Head {h00=0x0044, h01=0x003f, text=»* EXIT: PAGQUE - POINTER TO FIRST FREE PAGE BLOCK * «, t00=0x00ac, t01=0x0008}
0x10cee…10d36 Head {h00=0x0044, h01=0x003f, text=»* PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * «, t00=0x00ac, t01=0x0050}
0x10d36…10d7e Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ac, t01=0x0098}
0x10d7e…10dc6 Head {h00=0x0044, h01=0x003f, text=»* WORK REGISTERS: A1-A12 * «, t00=0x00ac, t01=0x00e0}
0x10dc6…10e0e Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ac, t01=0x0128}
0x10e0e…10e56 Head {h00=0x0044, h01=0x003f, text=»* SUBROUTINES: * «, t00=0x00ac, t01=0x0170}
0x10e56…10e9e Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ad, t01=0x0028}
0x10e9e…10ee6 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x00ad, t01=0x0070}
0x10ee6…10f2e Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x00ad, t01=0x00b8}
0x10f2e…10f42 Head {h00=0x0010, h01=0x000c, text=»PAGGEN EQU *«, t00=0x00ad, t01=0x0100}
0x10f42…10f66 Head {h00=0x0020, h01=0x0050, text=» LDKL A2,PAGEX EXIT ADDRESS «, t00=0x00ad, t01=0x0114}
0x10f66…10f82 Head {h00=0x0018, h01=0x0050, text=» ADR A2,A13 RELOCATE«, t00=0x00ad, t01=0x0138}
0x10f82…10fb4 Head {h00=0x002e, h01=0x0050, text=» LD A1,SCTNOS ANY SEGMENTS IN APPLICATION?«, t00=0x00ad, t01=0x0154}
0x10fb4…10fca Head {h00=0x0012, h01=0x0050, text=» ABR(Z) A2 NO!«, t00=0x00ad, t01=0x0186}
0x10fca…10ff0 Head {h00=0x0022, h01=0x001d, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00ae, t01=0x000c}
0x10ff0…1100a Head {h00=0x0016, h01=0x0011, text=» ANK A1,3 PAGING? «, t00=0x00ae, t01=0x0032}
0x1100a…11020 Head {h00=0x0012, h01=0x0050, text=» ABR(Z) A2 NO!«, t00=0x00ae, t01=0x004c}
0x11020…1102a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ae, t01=0x0062}
0x1102a…1107a Head {h00=0x004c, h01=0x0047, text=»* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS «, t00=0x00ae, t01=0x006c}
0x1107a…11084 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ae, t01=0x00bc}
0x11084…110b4 Head {h00=0x002c, h01=0x0027, text=» LD A11,SCTSFA+2 GET START OF FREE AREA «, t00=0x00ae, t01=0x00c6}
0x110b4…110da Head {h00=0x0022, h01=0x001e, text=» ST A11,SCTPAG STORE IN SYSTAB«, t00=0x00ae, t01=0x00f6}
0x110da…11102 Head {h00=0x0024, h01=0x001f, text=» LDR A8,A13 GET RELOCATION BASE «, t00=0x00ae, t01=0x011c}
0x11102…11132 Head {h00=0x002c, h01=0x0050, text=» ADKL A8,PAG:60-REL LIMIT FOR PAGE TABLE«, t00=0x00ae, t01=0x0144}
0x11132…11156 Head {h00=0x0020, h01=0x001c, text=» LDK A7,0 RESET PAGE COUNTER«, t00=0x00ae, t01=0x0174}
0x11156…1116a Head {h00=0x0010, h01=0x000c, text=»PAG:10 EQU *«, t00=0x00af, t01=0x0008}
0x1116a…1119a Head {h00=0x002c, h01=0x0027, text=» CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? «, t00=0x00af, t01=0x001c}
0x1119a…111b4 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:30 YES!«, t00=0x00af, t01=0x004c}
0x111b4…111dc Head {h00=0x0024, h01=0x001f, text=» LDK A1,0 RESET NUMBER OF WORDS «, t00=0x00af, t01=0x0066}
0x111dc…111f0 Head {h00=0x0010, h01=0x000c, text=»PAG:20 EQU *«, t00=0x00af, t01=0x008e}
0x111f0…11216 Head {h00=0x0022, h01=0x001d, text=» ADKL A11,2 INCLUDE NEXT WORD «, t00=0x00af, t01=0x00a2}
0x11216…1124a Head {h00=0x0030, h01=0x002b, text=» RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) «, t00=0x00af, t01=0x00c8}
0x1124a…11272 Head {h00=0x0024, h01=0x0020, text=» ADK A1,1 INCREMENT WORD COUNTER«, t00=0x00af, t01=0x00fc}
0x11272…11296 Head {h00=0x0020, h01=0x001b, text=» CWK A1,4 4 WORDS RESERVED? «, t00=0x00af, t01=0x0124}
0x11296…112b0 Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:25 YES!«, t00=0x00af, t01=0x0148}
0x112b0…112dc Head {h00=0x0028, h01=0x0023, text=» CWR A11,A8 CHECK PROGRAM OVERWRITE «, t00=0x00af, t01=0x0162}
0x112dc…11302 Head {h00=0x0022, h01=0x001e, text=» RF(E) MEMOFL MEMORY OVERFLOW!«, t00=0x00af, t01=0x018e}
0x11302…11314 Head {h00=0x000e, h01=0x000a, text=» RB PAG:20«, t00=0x00b0, t01=0x0024}
0x11314…11348 Head {h00=0x0030, h01=0x002c, text=»PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER«, t00=0x00b0, t01=0x0036}
0x11348…1135a Head {h00=0x000e, h01=0x000a, text=» RB PAG:10«, t00=0x00b0, t01=0x006a}
0x1135a…1136e Head {h00=0x0010, h01=0x000c, text=»PAG:30 EQU *«, t00=0x00b0, t01=0x007c}
0x1136e…11378 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b0, t01=0x0090}
0x11378…113b0 Head {h00=0x0034, h01=0x002f, text=»* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY «, t00=0x00b0, t01=0x009a}
0x113b0…113ea Head {h00=0x0036, h01=0x0032, text=»* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER«, t00=0x00b0, t01=0x00d2}
0x113ea…11404 Head {h00=0x0016, h01=0x0012, text=»* OF PAGE BLOCKS.«, t00=0x00b0, t01=0x010c}
0x11404…1140e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b0, t01=0x0126}
0x1140e…1141a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b0, t01=0x0130}
0x1141a…11436 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00b0, t01=0x013c}
0x11436…11476 Head {h00=0x003c, h01=0x0037, text=» LD A1,SCTEFA GET TWO MOST SIGN BITS OF 18-BITS ADDRESS «, t00=0x00b0, t01=0x0158}
0x11476…114ae Head {h00=0x0034, h01=0x0050, text=» SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS«, t00=0x00b1, t01=0x0008}
0x114ae…114e6 Head {h00=0x0034, h01=0x002f, text=» LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS «, t00=0x00b1, t01=0x0040}
0x114e6…11510 Head {h00=0x0026, h01=0x0021, text=» SRL A2,2 SKIP TWO RIGHTMOST BITS «, t00=0x00b1, t01=0x0078}
0x11510…11540 Head {h00=0x002c, h01=0x0050, text=» ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS«, t00=0x00b1, t01=0x00a2}
0x11540…11558 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x00b1, t01=0x00d2}
0x11558…1157c Head {h00=0x0020, h01=0x001b, text=» LD A2,SCTPSZ GET PAGE SIZE «, t00=0x00b1, t01=0x00ea}
0x1157c…115a6 Head {h00=0x0026, h01=0x0021, text=» SRL A2,2 SKIP TWO RIGHTMOST BITS «, t00=0x00b1, t01=0x010e}
0x115a6…115be Head {h00=0x0014, h01=0x0010, text=» LDR A10,A2 SAVE«, t00=0x00b1, t01=0x0138}
0x115be…115f2 Head {h00=0x0030, h01=0x002c, text=» ANKL A1,/FC00 MAKE EVEN 4K-MULTIPLE ADDRESS«, t00=0x00b1, t01=0x0150}
0x115f2…1161e Head {h00=0x0028, h01=0x0023, text=» ANKL A2,/0300 MODIFY FOR PAGE SIZE «, t00=0x00b1, t01=0x0184}
0x1161e…11640 Head {h00=0x001e, h01=0x0050, text=» ANR A2,A3 EVEN 1-KB LIMIT«, t00=0x00b2, t01=0x0020}
0x11640…1166c Head {h00=0x0028, h01=0x0024, text=» ORR A1,A2 MODIFY PAGE ADDRESS LIMIT«, t00=0x00b2, t01=0x0042}
0x1166c…11678 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b2, t01=0x006e}
0x11678…11694 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00b2, t01=0x007a}
0x11694…116bc Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTEFA+2 END OF FREE AREA«, t00=0x00b2, t01=0x0096}
0x116bc…116dc Head {h00=0x001c, h01=0x0050, text=» LD A10,SCTPSZ PAGE SIZE«, t00=0x00b2, t01=0x00be}
0x116dc…116e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b2, t01=0x00de}
0x116e8…116fe Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00b2, t01=0x00ea}
0x116fe…11722 Head {h00=0x0020, h01=0x001c, text=» LDR A9,A1 INIT PAGE ADDRESS«, t00=0x00b2, t01=0x0100}
0x11722…1173a Head {h00=0x0014, h01=0x000f, text=» LDR A6,A9 SAVE «, t00=0x00b2, t01=0x0124}
0x1173a…1174e Head {h00=0x0010, h01=0x0050, text=»PAG:31 EQU *«, t00=0x00b2, t01=0x013c}
0x1174e…11762 Head {h00=0x0010, h01=0x0050, text=» TNM A6,A10 «, t00=0x00b2, t01=0x0150}
0x11762…11778 Head {h00=0x0012, h01=0x0050, text=» RF(NN) PAG:32«, t00=0x00b2, t01=0x0164}
0x11778…1178c Head {h00=0x0010, h01=0x0050, text=» CWR A10,A6 «, t00=0x00b2, t01=0x017a}
0x1178c…1179e Head {h00=0x000e, h01=0x0050, text=» RF PAG:33«, t00=0x00b2, t01=0x018e}
0x1179e…117b8 Head {h00=0x0016, h01=0x0050, text=»PAG:32 CWR A6,A10 «, t00=0x00b3, t01=0x0010}
0x117b8…117d4 Head {h00=0x0018, h01=0x0050, text=»PAG:33 RF(NG) PAG:40«, t00=0x00b3, t01=0x002a}
0x117d4…11804 Head {h00=0x002c, h01=0x0050, text=» SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE«, t00=0x00b3, t01=0x0046}
0x11804…11828 Head {h00=0x0020, h01=0x001b, text=» LDR A1,A6 GET PAGE ADDRESS «, t00=0x00b3, t01=0x0076}
0x11828…11844 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00b3, t01=0x009a}
0x11844…11872 Head {h00=0x002a, h01=0x0026, text=» ANKL A1,/C000 ADDRESS IN SYSTEM AREA?«, t00=0x00b3, t01=0x00b6}
0x11872…1188e Head {h00=0x0018, h01=0x0013, text=» RF(NZ) PAG:34 NO! «, t00=0x00b3, t01=0x00e4}
0x1188e…118c0 Head {h00=0x002e, h01=0x002a, text=» LDR A1,A6 PHYSICAL ADDRESS IN SYSTEM AREA«, t00=0x00b3, t01=0x0100}
0x118c0…118f2 Head {h00=0x002e, h01=0x0029, text=» SLL A1,2 ABSOLUTE ADDRESS IN SYSTEM AREA «, t00=0x00b3, t01=0x0132}
0x118f2…11904 Head {h00=0x000e, h01=0x000a, text=» RF PAG:36«, t00=0x00b3, t01=0x0164}
0x11904…1192c Head {h00=0x0024, h01=0x0020, text=»PAG:34 LDK A1,0 END OF FREE AREA«, t00=0x00b3, t01=0x0176}
0x1192c…11938 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b4, t01=0x000e}
0x11938…1194e Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00b4, t01=0x001a}
0x1194e…11978 Head {h00=0x0026, h01=0x0022, text=»PAG:36 LDK A2,0 RESET WORD COUNTER«, t00=0x00b4, t01=0x0030}
0x11978…119a6 Head {h00=0x002a, h01=0x0025, text=»PAG:38 ADKL A11,2 RESERV ANOTHER WORD «, t00=0x00b4, t01=0x005a}
0x119a6…119c8 Head {h00=0x001e, h01=0x0019, text=» RF(Z) PAG:40 64 KB LIMIT «, t00=0x00b4, t01=0x0088}
0x119c8…119f0 Head {h00=0x0024, h01=0x0020, text=» ADK A2,1 INCREMENT WORD COUNTER«, t00=0x00b4, t01=0x00aa}
0x119f0…11a12 Head {h00=0x001e, h01=0x0019, text=» CWK A2,4 BLOCK COMPLETE? «, t00=0x00b4, t01=0x00d2}
0x11a12…11a2c Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:45 YES!«, t00=0x00b4, t01=0x00f4}
0x11a2c…11a56 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A1 ADDRESS IN SYSTEM AREA?«, t00=0x00b4, t01=0x010e}
0x11a56…11a70 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PAG:39 NO! «, t00=0x00b4, t01=0x0138}
0x11a70…11a96 Head {h00=0x0022, h01=0x0050, text=» TNM A11,A1 32-KB LIMIT CHECK «, t00=0x00b4, t01=0x0152}
0x11a96…11aac Head {h00=0x0012, h01=0x0050, text=» RF(NN) PAG382«, t00=0x00b4, t01=0x0178}
0x11aac…11ac0 Head {h00=0x0010, h01=0x0050, text=» CWR A11,A1 «, t00=0x00b4, t01=0x018e}
0x11ac0…11ad2 Head {h00=0x000e, h01=0x0050, text=» RF PAG384«, t00=0x00b5, t01=0x0012}
0x11ad2…11aec Head {h00=0x0016, h01=0x0050, text=»PAG382 CWR A1,A11 «, t00=0x00b5, t01=0x0024}
0x11aec…11b24 Head {h00=0x0034, h01=0x0050, text=»PAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! «, t00=0x00b5, t01=0x003e}
0x11b24…11b38 Head {h00=0x0010, h01=0x0050, text=»PAG:39 EQU *«, t00=0x00b5, t01=0x0076}
0x11b38…11b5e Head {h00=0x0022, h01=0x001d, text=» CWR A11,A8 PROGRAM OVERWRITE «, t00=0x00b5, t01=0x008a}
0x11b5e…11b78 Head {h00=0x0016, h01=0x0012, text=» RB(NE) PAG:38 NO!«, t00=0x00b5, t01=0x00b0}
0x11b78…11b8c Head {h00=0x0010, h01=0x000c, text=»PAG:40 EQU *«, t00=0x00b5, t01=0x00ca}
0x11b8c…11bc6 Head {h00=0x0036, h01=0x0031, text=» CW A7,SCTNOP ONLY PAGES FOR CORE RESIDENT PAGES? «, t00=0x00b5, t01=0x00de}
0x11bc6…11be0 Head {h00=0x0016, h01=0x0011, text=» RF(G) PAG:50 NO! «, t00=0x00b5, t01=0x0118}
0x11be0…11c22 Head {h00=0x003e, h01=0x0039, text=» CW A7,SCTNOS ONLY CORE RESIDENT SEGMENTS IN APPLICATION? «, t00=0x00b5, t01=0x0132}
0x11c22…11c3c Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:50 YES!«, t00=0x00b5, t01=0x0174}
0x11c3c…11c58 Head {h00=0x0018, h01=0x0013, text=»MEMOFL LDKL A1,LMP3 «, t00=0x00b5, t01=0x018e}
0x11c58…11c86 Head {h00=0x002a, h01=0x0026, text=» OTR A1,0,SOP INDICATE MEMORY OVERFLOW«, t00=0x00b6, t01=0x001a}
0x11c86…11ca0 Head {h00=0x0016, h01=0x0012, text=» HLT HALT PROGRAM«, t00=0x00b6, t01=0x0048}
0x11ca0…11cd0 Head {h00=0x002c, h01=0x0027, text=»PAG:45 CW A7,SCTNOS MOORE PAGES WANTED? «, t00=0x00b6, t01=0x0062}
0x11cd0…11cea Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:50 YES!«, t00=0x00b6, t01=0x0092}
0x11cea…11d12 Head {h00=0x0024, h01=0x0020, text=» ADK A7,1 INCREMENT PAGE COUNTER«, t00=0x00b6, t01=0x00ac}
0x11d12…11d36 Head {h00=0x0020, h01=0x001c, text=» LDR A9,A6 SAVE PAGE ADDRESS«, t00=0x00b6, t01=0x00d4}
0x11d36…11d48 Head {h00=0x000e, h01=0x0050, text=» RB PAG:31«, t00=0x00b6, t01=0x00f8}
0x11d48…11d5c Head {h00=0x0010, h01=0x000c, text=»PAG:50 EQU *«, t00=0x00b6, t01=0x010a}
0x11d5c…11d82 Head {h00=0x0022, h01=0x001e, text=» ADKL A11,2 START OF FREE AREA«, t00=0x00b6, t01=0x011e}
0x11d82…11da0 Head {h00=0x001a, h01=0x0015, text=» ST A11,SCTSFA+2 SAVE «, t00=0x00b6, t01=0x0144}
0x11da0…11dca Head {h00=0x0026, h01=0x0022, text=» ST A7,SCTNOP SAVE NUMBER OF PAGES«, t00=0x00b6, t01=0x0162}
0x11dca…11df6 Head {h00=0x0028, h01=0x0024, text=» LDR A1,A9 GET ADDRESS TO FIRST PAGE«, t00=0x00b6, t01=0x018c}
0x11df6…11e0e Head {h00=0x0014, h01=0x000f, text=» LDR A2,A1 SAVE «, t00=0x00b7, t01=0x0028}
0x11e0e…11e1a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b7, t01=0x0040}
0x11e1a…11e36 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00b7, t01=0x004c}
0x11e36…11e64 Head {h00=0x002a, h01=0x0050, text=» SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS «, t00=0x00b7, t01=0x0068}
0x11e64…11e7e Head {h00=0x0016, h01=0x0012, text=» ST A1,SCTEFA SAVE«, t00=0x00b7, t01=0x0096}
0x11e7e…11eb0 Head {h00=0x002e, h01=0x002a, text=» SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS«, t00=0x00b7, t01=0x00b0}
0x11eb0…11ebc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b7, t01=0x00e2}
0x11ebc…11ed2 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00b7, t01=0x00ee}
0x11ed2…11eee Head {h00=0x0018, h01=0x0014, text=» ST A2,SCTEFA+2 SAVE«, t00=0x00b7, t01=0x0104}
0x11eee…11ef8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b7, t01=0x0120}
0x11ef8…11f36 Head {h00=0x003a, h01=0x0035, text=»* INITIATE PAGE BLOCK FOR CORE RESIDENT SEGMENTS AND «, t00=0x00b7, t01=0x012a}
0x11f36…11f6c Head {h00=0x0032, h01=0x002d, text=»* STORE PAGE BLOCK ADDRESS IN SEGMENT BLOCKS «, t00=0x00b7, t01=0x0168}
0x11f6c…11f76 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b8, t01=0x000e}
0x11f76…11f88 Head {h00=0x000e, h01=0x0009, text=» LDK A1,0 «, t00=0x00b8, t01=0x0018}
0x11f88…11fcc Head {h00=0x0040, h01=0x003b, text=» LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. «, t00=0x00b8, t01=0x002a}
0x11fcc…11ffa Head {h00=0x002a, h01=0x0025, text=» LD A11,SCTSEG START OF SEGMENT TABLE «, t00=0x00b8, t01=0x006e}
0x11ffa…1202a Head {h00=0x002c, h01=0x0028, text=» LDK A4,0 RESET RESIDENT SEGMENT COUNTER«, t00=0x00b8, t01=0x009c}
0x1202a…12054 Head {h00=0x0026, h01=0x0022, text=» LD A12,SCTPAG START OF PAGE TABLE«, t00=0x00b8, t01=0x00cc}
0x12054…1207c Head {h00=0x0024, h01=0x0020, text=» LD A6,SCTNOS NUMBER OF SEGMENTS«, t00=0x00b8, t01=0x00f6}
0x1207c…12090 Head {h00=0x0010, h01=0x0050, text=»PAG:60 EQU *«, t00=0x00b8, t01=0x011e}
0x12090…120b6 Head {h00=0x0022, h01=0x001e, text=» ADKL A11,8 NEXT SEGMENT BLOCK«, t00=0x00b8, t01=0x0132}
0x120b6…120d6 Head {h00=0x001c, h01=0x0017, text=» LDR* A2,A11 GET STATUS «, t00=0x00b8, t01=0x0158}
0x120d6…12108 Head {h00=0x002e, h01=0x0029, text=» RF(NN) PAG:65 SEGMENT NOT LOADED IN CORE «, t00=0x00b8, t01=0x0178}
0x12108…12136 Head {h00=0x002a, h01=0x0026, text=» ST A12,6,A11 STORE PAGE BLOCK ADDRESS«, t00=0x00b9, t01=0x001a}
0x12136…12166 Head {h00=0x002c, h01=0x0027, text=» STR A1,A12 RESET QUEUE POINTER FORWARD «, t00=0x00b9, t01=0x0048}
0x12166…12198 Head {h00=0x002e, h01=0x0029, text=» ST A1,2,A12 RESET QUEUE POINTER BACKWARD «, t00=0x00b9, t01=0x0078}
0x12198…121c0 Head {h00=0x0024, h01=0x001f, text=» ST A8,4,A12 STORE PAGE ADDRESS «, t00=0x00b9, t01=0x00aa}
0x121c0…121f2 Head {h00=0x002e, h01=0x0029, text=» ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS «, t00=0x00b9, t01=0x00d2}
0x121f2…12226 Head {h00=0x0030, h01=0x002c, text=» ADK A4,1 INCREMENT RESIDENT SEGMENT COUNTER«, t00=0x00b9, t01=0x0104}
0x12226…12250 Head {h00=0x0026, h01=0x0021, text=» ADR A8,A10 ADDRESS TO NEXT PAGE «, t00=0x00b9, t01=0x0138}
0x12250…12274 Head {h00=0x0020, h01=0x001b, text=» ADKL A12,8 NEXT PAGE BLOCK «, t00=0x00b9, t01=0x0162}
0x12274…122ac Head {h00=0x0034, h01=0x002f, text=»PAG:65 SUK A6,1 DECREMENT SEGMENT BLOCK COUNTER «, t00=0x00b9, t01=0x0186}
0x122ac…122c2 Head {h00=0x0012, h01=0x000d, text=» RB(P) PAG:60 «, t00=0x00ba, t01=0x002e}
0x122c2…122cc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ba, t01=0x0044}
0x122cc…1230c Head {h00=0x003c, h01=0x0038, text=»* INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE«, t00=0x00ba, t01=0x004e}
0x1230c…12316 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ba, t01=0x008e}
0x12316…1233a Head {h00=0x0020, h01=0x001b, text=» CWR A4,A7 ANY FREE BLOCKS? «, t00=0x00ba, t01=0x0098}
0x1233a…12354 Head {h00=0x0016, h01=0x0050, text=» RF(E) PAG:90 NO! «, t00=0x00ba, t01=0x00bc}
0x12354…1238c Head {h00=0x0034, h01=0x002f, text=» ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK «, t00=0x00ba, t01=0x00d6}
0x1238c…123b6 Head {h00=0x0026, h01=0x0022, text=» LDKL A11,PAGQUE POINTER TO PAGQUE«, t00=0x00ba, t01=0x010e}
0x123b6…123ea Head {h00=0x0030, h01=0x002c, text=» LDR A1,A12 SAVE ADDRESS TO FIRST PAGE BLOCK«, t00=0x00ba, t01=0x0138}
0x123ea…123fc Head {h00=0x000e, h01=0x0009, text=» LDK A2,0 «, t00=0x00ba, t01=0x016c}
0x123fc…1242e Head {h00=0x002e, h01=0x002a, text=»PAG:70 ST A11,2,A12 STORE BACKWARD POINTER«, t00=0x00ba, t01=0x017e}
0x1242e…12456 Head {h00=0x0024, h01=0x001f, text=» ST A9,4,A12 STORE PAGE ADDRESS «, t00=0x00bb, t01=0x0020}
0x12456…1247e Head {h00=0x0024, h01=0x001f, text=» ST A2,6,A12 INDICATE PAGE FREE «, t00=0x00bb, t01=0x0048}
0x1247e…124ac Head {h00=0x002a, h01=0x0026, text=» ADK A4,1 INCREMENT PAGE BLOCK COUNTER«, t00=0x00bb, t01=0x0070}
0x124ac…124d0 Head {h00=0x0020, h01=0x001b, text=» CWR A4,A7 LAST PAGE BLOCK? «, t00=0x00bb, t01=0x009e}
0x124d0…124ea Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:80 YES!«, t00=0x00bb, t01=0x00c2}
0x124ea…1251a Head {h00=0x002c, h01=0x0027, text=» LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK «, t00=0x00bb, t01=0x00dc}
0x1251a…12546 Head {h00=0x0028, h01=0x0024, text=» ADK A1,8 ADDRESS TO NEXT PAGE BLOCK«, t00=0x00bb, t01=0x010c}
0x12546…12570 Head {h00=0x0026, h01=0x0021, text=» STR A1,A12 STORE FORWARD POINTER «, t00=0x00bb, t01=0x0138}
0x12570…12594 Head {h00=0x0020, h01=0x001b, text=» LDR A12,A1 NEXT PAGE BLOCK «, t00=0x00bb, t01=0x0162}
0x12594…125b2 Head {h00=0x001a, h01=0x0015, text=» ADR A9,A10 NEXT PAGE «, t00=0x00bb, t01=0x0186}
0x125b2…125c4 Head {h00=0x000e, h01=0x000a, text=» RB PAG:70«, t00=0x00bc, t01=0x0014}
0x125c4…125d8 Head {h00=0x0010, h01=0x000c, text=»PAG:80 EQU *«, t00=0x00bc, t01=0x0026}
0x125d8…12602 Head {h00=0x0026, h01=0x0021, text=» LDKL A1,PAGQUE POINTER TO PAGQUE «, t00=0x00bc, t01=0x003a}
0x12602…1262a Head {h00=0x0024, h01=0x001f, text=» STR A1,A12 STORE IN LAST BLOCK «, t00=0x00bc, t01=0x0064}
0x1262a…12654 Head {h00=0x0026, h01=0x0022, text=» ST A12,PAGQUE+2 STORE IN PAGQUE+2«, t00=0x00bc, t01=0x008c}
0x12654…12668 Head {h00=0x0010, h01=0x0050, text=»PAG:90 EQU *«, t00=0x00bc, t01=0x00b6}
0x12668…12680 Head {h00=0x0014, h01=0x0050, text=»PAGEX EQU *-REL «, t00=0x00bc, t01=0x00ca}
0x12680…1268e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bc, t01=0x00e2}
0x1268e…1269a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bc, t01=0x00f0}
0x1269a…126a2 Head {h00=0x0004, h01=0x0050, t00=0x00bc, t01=0x00fc}
0x126a2…126aa Head {h00=0x0004, h01=0x0050, t00=0x00bc, t01=0x0104}
0x126aa…126ca Head {h00=0x001c, h01=0x0050, text=»* START BUGGER (IF ANY) «, t00=0x00bc, t01=0x010c}
0x126ca…126d2 Head {h00=0x0004, h01=0x0050, t00=0x00bc, t01=0x012c}
0x126d2…126da Head {h00=0x0004, h01=0x0050, t00=0x00bc, t01=0x0134}
0x126da…126fa Head {h00=0x001c, h01=0x0050, text=»* GET APPLICATION START «, t00=0x00bc, t01=0x013c}
0x126fa…12710 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x00bc, t01=0x015c}
0x12710…12740 Head {h00=0x002c, h01=0x0050, text=» LD A14,SCTLAC TRUE START OF APPLICATION«, t00=0x00bc, t01=0x0172}
0x12740…1274c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x0012}
0x1274c…12762 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00bd, t01=0x001e}
0x12762…12792 Head {h00=0x002c, h01=0x0050, text=» LD A14,SAVE13,A13 TRUE START OF S:GTAB «, t00=0x00bd, t01=0x0034}
0x12792…1279e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x0064}
0x1279e…127c0 Head {h00=0x001e, h01=0x0050, text=» SUKL A14,8 ADJUST FOR MAP«, t00=0x00bd, t01=0x0070}
0x127c0…127ee Head {h00=0x002a, h01=0x0050, text=» ADKL A13,SYA360 CONTINUATION ADDRESS «, t00=0x00bd, t01=0x0092}
0x127ee…12816 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE SYSLOAD ENDED«, t00=0x00bd, t01=0x00c0}
0x12816…1282c Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x00bd, t01=0x00e8}
0x1282c…12854 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTBUG GET BUGGER ADDRESS«, t00=0x00bd, t01=0x00fe}
0x12854…12868 Head {h00=0x0010, h01=0x0050, text=» ABR(NZ) A1 «, t00=0x00bd, t01=0x0126}
0x12868…12870 Head {h00=0x0004, h01=0x0050, t00=0x00bd, t01=0x013a}
0x12870…12888 Head {h00=0x0014, h01=0x0050, text=»SYA360 EQU *-REL«, t00=0x00bd, t01=0x0142}
0x12888…1289a Head {h00=0x000e, h01=0x0050, text=» LDR A13,P«, t00=0x00bd, t01=0x015a}
0x1289a…128b2 Head {h00=0x0014, h01=0x0050, text=»SYA370 EQU *-REL«, t00=0x00bd, t01=0x016c}
0x128b2…128e6 Head {h00=0x0030, h01=0x0050, text=» SUKL A13,SYA370 RESTORE PROGRAM BASE OINTER«, t00=0x00bd, t01=0x0184}
0x128e6…128f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0028}
0x128f0…1290a Head {h00=0x0016, h01=0x0050, text=»* INIT A15 STACK «, t00=0x00be, t01=0x0032}
0x1290a…12914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x004c}
0x12914…1292a Head {h00=0x0012, h01=0x0050, text=» LD A15,SCTSTB«, t00=0x00be, t01=0x0056}
0x1292a…1293e Head {h00=0x0010, h01=0x0050, text=» SUKL A15,4 «, t00=0x00be, t01=0x006c}
0x1293e…12946 Head {h00=0x0004, h01=0x0050, t00=0x00be, t01=0x0080}
0x12946…12962 Head {h00=0x0018, h01=0x0050, text=»* START APPLICATION «, t00=0x00be, t01=0x0088}
0x12962…1296a Head {h00=0x0004, h01=0x0050, t00=0x00be, t01=0x00a4}
0x1296a…1299c Head {h00=0x002e, h01=0x0050, text=» LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC«, t00=0x00be, t01=0x00ac}
0x1299c…129ba Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVRTC,A13 SAVE«, t00=0x00be, t01=0x00de}
0x129ba…129f2 Head {h00=0x0034, h01=0x0050, text=» LDKL A1,IHRTCO LOAD TEMPORARY INTERRUPT ADDRESS«, t00=0x00be, t01=0x00fc}
0x129f2…12a0e Head {h00=0x0018, h01=0x0050, text=» ADR A1,A13 RELOCATE«, t00=0x00be, t01=0x0134}
0x12a0e…12a3c Head {h00=0x002a, h01=0x0050, text=» ST A1,IHRTC STORE IN INTERRUPT VECTOR«, t00=0x00be, t01=0x0150}
0x12a3c…12a66 Head {h00=0x0026, h01=0x0050, text=» CF A15,PFINIT INITIALIZE DEVICES «, t00=0x00be, t01=0x017e}
0x12a66…12a8a Head {h00=0x0020, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS«, t00=0x00bf, t01=0x0018}
0x12a8a…12a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x003c}
0x12a94…12ade Head {h00=0x0046, h01=0x0050, text=»* WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER «, t00=0x00bf, t01=0x0046}
0x12ade…12ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0090}
0x12ae8…12b0a Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/FFFF SET COUNTER«, t00=0x00bf, t01=0x009a}
0x12b0a…12b22 Head {h00=0x0014, h01=0x0050, text=»DELAY SRC A2,31 «, t00=0x00bf, t01=0x00bc}
0x12b22…12b34 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00bf, t01=0x00d4}
0x12b34…12b4a Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DELAY «, t00=0x00bf, t01=0x00e6}
0x12b4a…12b56 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00bf, t01=0x00fc}
0x12b56…12b82 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,0 GET RTC INTERRUPT ADDRESS«, t00=0x00bf, t01=0x0108}
0x12b82…12b9c Head {h00=0x0016, h01=0x0050, text=»SAVRTC EQU *-REL-2«, t00=0x00bf, t01=0x0134}
0x12b9c…12bb8 Head {h00=0x0018, h01=0x0050, text=» ST A1,IHRTC RESTORE«, t00=0x00bf, t01=0x014e}
0x12bb8…12be0 Head {h00=0x0024, h01=0x0050, text=» ABL TDISP BRANCH TO DISPATCHER «, t00=0x00bf, t01=0x016a}
0x12be0…12bea (192, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x0004}
0x12bea…12c18 Head {h00=0x002a, h01=0x0050, text=»* TEMPORARY INTERRUPT ROUTINE FOR RTC«, t00=0x00c0, t01=0x000e}
0x12c18…12c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x003c}
0x12c22…12c3a Head {h00=0x0014, h01=0x0050, text=»IHRTCO EQU *-REL«, t00=0x00c0, t01=0x0046}
0x12c3a…12c4c Head {h00=0x000e, h01=0x0050, text=» RIT RTCDA«, t00=0x00c0, t01=0x005e}
0x12c4c…12c5c Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x00c0, t01=0x0070}
0x12c5c…12c72 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00c0, t01=0x0080}
0x12c72…12c80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c0, t01=0x0096}
0x12c80…12c8c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c0, t01=0x00a4}
0x12c8c…12cc6 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c0, t01=0x00b0}
0x12cc6…12d00 Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x00c0, t01=0x00ea}
0x12d00…12d3a Head {h00=0x0036, h01=0x0050, text=»** SYSLOAD PART 2.A ** «, t00=0x00c0, t01=0x0124}
0x12d3a…12d74 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c0, t01=0x015e}
0x12d74…12dae Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c1, t01=0x0008}
0x12dae…12db6 Head {h00=0x0004, h01=0x0050, t00=0x00c1, t01=0x0042}
0x12db6…12df0 Head {h00=0x0036, h01=0x0050, text=»* BUILD COMMON AND TASKCLASS DATA AREAS. * «, t00=0x00c1, t01=0x004a}
0x12df0…12e2a Head {h00=0x0036, h01=0x0050, text=»* BUILD TASKDATA PROTOTYPE AREA * «, t00=0x00c1, t01=0x0084}
0x12e2a…12e64 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x00c1, t01=0x00be}
0x12e64…12e9e Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c1, t01=0x00f8}
0x12e9e…12ea6 Head {h00=0x0004, h01=0x0050, t00=0x00c1, t01=0x0132}
0x12ea6…12ebe Head {h00=0x0014, h01=0x0050, text=»PART2A EQU *-REL«, t00=0x00c1, t01=0x013a}
0x12ebe…12ec6 Head {h00=0x0004, h01=0x0050, t00=0x00c1, t01=0x0152}
0x12ec6…12efa Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00c1, t01=0x015a}
0x12efa…12f2e Head {h00=0x0030, h01=0x0050, text=»*** ***«, t00=0x00c1, t01=0x018e}
0x12f2e…12f62 Head {h00=0x0030, h01=0x0050, text=»** S U B R O U T I N E S **«, t00=0x00c2, t01=0x0032}
0x12f62…12f96 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00c2, t01=0x0066}
0x12f96…12f9e Head {h00=0x0004, h01=0x0050, t00=0x00c2, t01=0x009a}
0x12f9e…12faa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c2, t01=0x00a2}
0x12faa…12fe2 Head {h00=0x0034, h01=0x0050, text=»** T : D A D D **«, t00=0x00c2, t01=0x00ae}
0x12fe2…1301a Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00c2, t01=0x00e6}
0x1301a…13052 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00c2, t01=0x011e}
0x13052…1308a Head {h00=0x0034, h01=0x0050, text=»** GET T:D - ADDRESS **«, t00=0x00c2, t01=0x0156}
0x1308a…130c2 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00c2, t01=0x018e}
0x130c2…130fa Head {h00=0x0034, h01=0x0050, text=»** INPUT : A8=POINTER TO T:A (IN T:ATAB) **«, t00=0x00c3, t01=0x0036}
0x130fa…13132 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A12=T:D ADDRESS **«, t00=0x00c3, t01=0x006e}
0x13132…1316a Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00c3, t01=0x00a6}
0x1316a…1317e Head {h00=0x0010, h01=0x0050, text=»T:DADD EQU *«, t00=0x00c3, t01=0x00de}
0x1317e…1319a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00c3, t01=0x00f2}
0x1319a…131ba Head {h00=0x001c, h01=0x0050, text=» LDR* A12,A8 T:A ADDRESS«, t00=0x00c3, t01=0x010e}
0x131ba…131d4 Head {h00=0x0016, h01=0x0050, text=» LD A12,T:DAD,A12 «, t00=0x00c3, t01=0x012e}
0x131d4…131e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c3, t01=0x0148}
0x131e0…131fc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00c3, t01=0x0154}
0x131fc…1321c Head {h00=0x001c, h01=0x0050, text=» ELR A12,A8 T:A ADDRESS «, t00=0x00c3, t01=0x0170}
0x1321c…13236 Head {h00=0x0016, h01=0x0050, text=» EL A12,T:DAD,A12 «, t00=0x00c3, t01=0x0190}
0x13236…13242 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c4, t01=0x001a}
0x13242…13258 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00c4, t01=0x0026}
0x13258…1327c Head {h00=0x0020, h01=0x0050, text=» AD A12,MOVADD,A13 RELOCATE «, t00=0x00c4, t01=0x003c}
0x1327c…1328c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c4, t01=0x0060}
0x1328c…1329a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c4, t01=0x0070}
0x1329a…132a6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c4, t01=0x007e}
0x132a6…132b2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c4, t01=0x008a}
0x132b2…132ec Head {h00=0x0036, h01=0x0050, text=»** M O V C O M ** «, t00=0x00c4, t01=0x0096}
0x132ec…13326 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c4, t01=0x00d0}
0x13326…13360 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c4, t01=0x010a}
0x13360…1339a Head {h00=0x0036, h01=0x0050, text=»** SEARCH T:A'S FOR COMMON WORK BLOCKS THAT ** «, t00=0x00c4, t01=0x0144}
0x1339a…133d4 Head {h00=0x0036, h01=0x0050, text=»** ARE COMMON TO AT LEAST TWO T:A'S, AND MOVE ** «, t00=0x00c4, t01=0x017e}
0x133d4…1340e Head {h00=0x0036, h01=0x0050, text=»** TO COMMON AREA ** «, t00=0x00c5, t01=0x0028}
0x1340e…13448 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00c5, t01=0x0062}
0x13448…13482 Head {h00=0x0036, h01=0x0050, text=»** INPUT : A8=POINTER IN T:ATAB ** «, t00=0x00c5, t01=0x009c}
0x13482…134bc Head {h00=0x0036, h01=0x0050, text=»** BIT=BIT NUMBER, SAT IN MASK ** «, t00=0x00c5, t01=0x00d6}
0x134bc…134f6 Head {h00=0x0036, h01=0x0050, text=»** ENDADD=ENDADDRESS OF T:ATAB ** «, t00=0x00c5, t01=0x0110}
0x134f6…13530 Head {h00=0x0036, h01=0x0050, text=»** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** «, t00=0x00c5, t01=0x014a}
0x13530…1356a Head {h00=0x0036, h01=0x0050, text=»** WORK.REGS: A1-A6,A9,A11,A12 ** «, t00=0x00c5, t01=0x0184}
0x1356a…135a4 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c6, t01=0x002e}
0x135a4…135b0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c6, t01=0x0068}
0x135b0…135c4 Head {h00=0x0010, h01=0x0050, text=»MOVCOM EQU *«, t00=0x00c6, t01=0x0074}
0x135c4…135ee Head {h00=0x0026, h01=0x0050, text=» CALL CHKMVD BLOCK ALREADY MOVED? «, t00=0x00c6, t01=0x0088}
0x135ee…13608 Head {h00=0x0016, h01=0x0050, text=» RF(N) MOVC20 YES!«, t00=0x00c6, t01=0x00b2}
0x13608…13646 Head {h00=0x003a, h01=0x0050, text=» CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL «, t00=0x00c6, t01=0x00cc}
0x13646…13672 Head {h00=0x0028, h01=0x0050, text=» ST A11,SAVE06,A13 SAVE W.B.-ADDRESS«, t00=0x00c6, t01=0x010a}
0x13672…1369e Head {h00=0x0028, h01=0x0050, text=» CM MOVED,A13 CLEAR MOVED INDICATOR «, t00=0x00c6, t01=0x0136}
0x1369e…136b0 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x00c6, t01=0x0162}
0x136b0…136d0 Head {h00=0x001c, h01=0x0050, text=»MOVC10 ADK A6,2 NEXT T:A«, t00=0x00c6, t01=0x0174}
0x136d0…136f4 (199, 0, 400) Head {h00=0x0020, h01=0x0050, text=» CW A6,ENDADD,A13 ALL DONE? «, t00=0x00c7, t01=0x0004}
0x136f4…1370e Head {h00=0x0016, h01=0x0050, text=» RF(NE) MOVC30 NO «, t00=0x00c7, t01=0x0028}
0x1370e…1372a Head {h00=0x0018, h01=0x0050, text=»MOVC20 RTN A14 YES! «, t00=0x00c7, t01=0x0042}
0x1372a…13746 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00c7, t01=0x005e}
0x13746…13760 Head {h00=0x0016, h01=0x0050, text=»MOVC30 LDR* A11,A6«, t00=0x00c7, t01=0x007a}
0x13760…13784 Head {h00=0x0020, h01=0x0050, text=» LD A2,T:DAD,A11 T:D-ADDRESS«, t00=0x00c7, t01=0x0094}
0x13784…137a6 Head {h00=0x001e, h01=0x0050, text=» AD A2,MOVADD,A13 RELOCATE«, t00=0x00c7, t01=0x00b8}
0x137a6…137c4 Head {h00=0x001a, h01=0x0050, text=» ST A2,SAVE03,A13 SAVE«, t00=0x00c7, t01=0x00da}
0x137c4…137f4 Head {h00=0x002c, h01=0x0050, text=» LD A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS «, t00=0x00c7, t01=0x00f8}
0x137f4…13814 Head {h00=0x001c, h01=0x0050, text=» CW A2,BIT,A13 ENOUGHT? «, t00=0x00c7, t01=0x0128}
0x13814…1384e Head {h00=0x0036, h01=0x0050, text=» RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A «, t00=0x00c7, t01=0x0148}
0x1384e…13880 Head {h00=0x002e, h01=0x0050, text=» AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE«, t00=0x00c7, t01=0x0182}
0x13880…13896 Head {h00=0x0012, h01=0x0050, text=» LDR* A11,A11 «, t00=0x00c8, t01=0x0024}
0x13896…138c8 Head {h00=0x002e, h01=0x0050, text=» CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES «, t00=0x00c8, t01=0x003a}
0x138c8…138d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c8, t01=0x006c}
0x138d4…138f0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00c8, t01=0x0078}
0x138f0…1390a Head {h00=0x0016, h01=0x0050, text=»MOVC30 ELR A11,A6 «, t00=0x00c8, t01=0x0094}
0x1390a…1392e Head {h00=0x0020, h01=0x0050, text=» EL A2,T:DAD,A11 T:D-ADDRESS«, t00=0x00c8, t01=0x00ae}
0x1392e…13950 Head {h00=0x001e, h01=0x0050, text=» AD A2,MOVADD,A13 RELOCATE«, t00=0x00c8, t01=0x00d2}
0x13950…13984 Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE03,A13 SAVE T:D-ADDRESS TEMPORARY«, t00=0x00c8, t01=0x00f4}
0x13984…139b4 Head {h00=0x002c, h01=0x0050, text=» EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS «, t00=0x00c8, t01=0x0128}
0x139b4…139d4 Head {h00=0x001c, h01=0x0050, text=» CW A2,BIT,A13 ENOUGHT? «, t00=0x00c8, t01=0x0158}
0x139d4…13a0e Head {h00=0x0036, h01=0x0050, text=» RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A «, t00=0x00c8, t01=0x0178}
0x13a0e…13a40 Head {h00=0x002e, h01=0x0050, text=» AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE«, t00=0x00c9, t01=0x0022}
0x13a40…13a54 Head {h00=0x0010, h01=0x0050, text=» ELR A11,A11«, t00=0x00c9, t01=0x0054}
0x13a54…13a86 Head {h00=0x002e, h01=0x0050, text=» CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES «, t00=0x00c9, t01=0x0068}
0x13a86…13a92 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c9, t01=0x009a}
0x13a92…13aa8 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00c9, t01=0x00a6}
0x13aa8…13ac4 Head {h00=0x0018, h01=0x0050, text=» RB(NE) MOVC10 .NEQ.«, t00=0x00c9, t01=0x00bc}
0x13ac4…13af0 Head {h00=0x0028, h01=0x0050, text=» LD A9,MOVED,A13 W.B. ALREADY MOVED?«, t00=0x00c9, t01=0x00d8}
0x13af0…13b22 Head {h00=0x002e, h01=0x0050, text=» RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY «, t00=0x00c9, t01=0x0104}
0x13b22…13b4c Head {h00=0x0026, h01=0x0050, text=» CALL MOVDT MOVE DESCRIPTOR-TABLE «, t00=0x00c9, t01=0x0136}
0x13b4c…13b76 Head {h00=0x0026, h01=0x0050, text=» ST A2,NEWAD1,A13 SAVE D.T.-ADRESS«, t00=0x00c9, t01=0x0160}
0x13b76…13b98 Head {h00=0x001e, h01=0x0050, text=» CALL MOVWB MOV WORK BLOCK«, t00=0x00c9, t01=0x018a}
0x13b98…13bbc Head {h00=0x0020, h01=0x0050, text=» IM MOVED,A13 INDICATE MOVED«, t00=0x00ca, t01=0x001c}
0x13bbc…13bde Head {h00=0x001e, h01=0x0050, text=» LD A4,UWB,A13 UWB-BLOCKS?«, t00=0x00ca, t01=0x0040}
0x13bde…13bf8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVC40 NO! «, t00=0x00ca, t01=0x0062}
0x13bf8…13c1e Head {h00=0x0022, h01=0x0050, text=» CALL GETPRO CREATE REAL UWB'S«, t00=0x00ca, t01=0x007c}
0x13c1e…13c56 Head {h00=0x0034, h01=0x0050, text=»MOVC40 ST A2,NEWAD2,A13 SAVE NEW ADDRESS TO W.B.«, t00=0x00ca, t01=0x00a2}
0x13c56…13c6a Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00ca, t01=0x00da}
0x13c6a…13c94 Head {h00=0x0026, h01=0x0050, text=»MOVC50 CALL CHADR CHANGE ADDRESSES«, t00=0x00ca, t01=0x00ee}
0x13c94…13cc6 Head {h00=0x002e, h01=0x0050, text=» CALL ICBMVD INDICATE CURRENT BLOCK MOVED «, t00=0x00ca, t01=0x0118}
0x13cc6…13cea Head {h00=0x0020, h01=0x0050, text=» LDR A11,A8 SAVE T:A-POINTER«, t00=0x00ca, t01=0x014a}
0x13cea…13d16 Head {h00=0x0028, h01=0x0050, text=» ST A12,SAVE25,A13 SAVE T:A-ADDRESS «, t00=0x00ca, t01=0x016e}
0x13d16…13d40 Head {h00=0x0026, h01=0x0050, text=» LDR A8,A6 REPLACE POINTER TO T:A «, t00=0x00cb, t01=0x000a}
0x13d40…13d6e Head {h00=0x002a, h01=0x0050, text=» LD A12,SAVE03,A13 REPLACE T:D-ADDRESS«, t00=0x00cb, t01=0x0034}
0x13d6e…13d82 Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00cb, t01=0x0062}
0x13d82…13d96 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A11 «, t00=0x00cb, t01=0x0076}
0x13d96…13dc4 Head {h00=0x002a, h01=0x0050, text=» LD A12,SAVE25,A13 RELOAD T:D-ADDRESS «, t00=0x00cb, t01=0x008a}
0x13dc4…13dd6 Head {h00=0x000e, h01=0x0050, text=» RB MOVC10«, t00=0x00cb, t01=0x00b8}
0x13dd6…13de4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00cb, t01=0x00ca}
0x13de4…13df0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00cb, t01=0x00d8}
0x13df0…13dfc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00cb, t01=0x00e4}
0x13dfc…13e34 Head {h00=0x0034, h01=0x0050, text=»** G E T P R O **«, t00=0x00cb, t01=0x00f0}
0x13e34…13e6c Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00cb, t01=0x0128}
0x13e6c…13ea4 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00cb, t01=0x0160}
0x13ea4…13edc Head {h00=0x0034, h01=0x0050, text=»** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF **«, t00=0x00cc, t01=0x0008}
0x13edc…13f14 Head {h00=0x0034, h01=0x0050, text=»** COPIES. FILL REAL U:BTAB **«, t00=0x00cc, t01=0x0040}
0x13f14…13f4c Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x00cc, t01=0x0078}
0x13f4c…13f84 Head {h00=0x0034, h01=0x0050, text=»** INPUT : A11=PROTOTYPE ADDRESS **«, t00=0x00cc, t01=0x00b0}
0x13f84…13fbc Head {h00=0x0034, h01=0x0050, text=»** A2=LAST W.B. - ADDRESS **«, t00=0x00cc, t01=0x00e8}
0x13fbc…13ff4 Head {h00=0x0034, h01=0x0050, text=»** OUTPUT: A2=NEW ADDRESS **«, t00=0x00cc, t01=0x0120}
0x13ff4…1402c Head {h00=0x0034, h01=0x0050, text=»** WORK-REGS: A1-A5,A9 **«, t00=0x00cc, t01=0x0158}
0x1402c…14064 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00cc, t01=0x0190}
0x14064…14070 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00cd, t01=0x0038}
0x14070…14084 Head {h00=0x0010, h01=0x0050, text=»GETPRO EQU *«, t00=0x00cd, t01=0x0044}
0x14084…140b0 Head {h00=0x0028, h01=0x0050, text=» LD A3,U:BTOD,A13 GET U:BTAB ADDRESS«, t00=0x00cd, t01=0x0058}
0x140b0…140cc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00cd, t01=0x0084}
0x140cc…140e6 Head {h00=0x0016, h01=0x0050, text=» LDR* A4,A3 LENGTH«, t00=0x00cd, t01=0x00a0}
0x140e6…140fa Head {h00=0x0010, h01=0x0050, text=»GETP10 EQU *«, t00=0x00cd, t01=0x00ba}
0x140fa…14134 Head {h00=0x0036, h01=0x0050, text=» SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH «, t00=0x00cd, t01=0x00ce}
0x14134…1414a Head {h00=0x0012, h01=0x0050, text=» RF(NN) GETP20«, t00=0x00cd, t01=0x0108}
0x1414a…1416e Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP6 W.B. NOT FOUND!«, t00=0x00cd, t01=0x011e}
0x1416e…14182 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00cd, t01=0x0142}
0x14182…14196 Head {h00=0x0010, h01=0x0050, text=»GETP20 EQU *«, t00=0x00cd, t01=0x0156}
0x14196…141ba Head {h00=0x0020, h01=0x0050, text=» CW A11,UPADDR,A3 SAME W.B.?«, t00=0x00cd, t01=0x016a}
0x141ba…141ea Head {h00=0x002c, h01=0x0050, text=» RF(E) GETP30 YES! GET NUMBER OF COPIES «, t00=0x00cd, t01=0x018e}
0x141ea…14206 Head {h00=0x0018, h01=0x0050, text=» ADK A3,UP:REC NEXT «, t00=0x00ce, t01=0x002e}
0x14206…14218 Head {h00=0x000e, h01=0x0050, text=» RB GETP10«, t00=0x00ce, t01=0x004a}
0x14218…14224 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00ce, t01=0x005c}
0x14224…14258 Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF COPIES *«, t00=0x00ce, t01=0x0068}
0x14258…1428c Head {h00=0x0030, h01=0x0050, text=»* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *«, t00=0x00ce, t01=0x009c}
0x1428c…14294 Head {h00=0x0004, h01=0x0050, t00=0x00ce, t01=0x00d0}
0x14294…142a8 Head {h00=0x0010, h01=0x0050, text=»GETP30 EQU *«, t00=0x00ce, t01=0x00d8}
0x142a8…142cc Head {h00=0x0020, h01=0x0050, text=» LD A4,WBLEN,A11 W.B.-LENGTH«, t00=0x00ce, t01=0x00ec}
0x142cc…142fa Head {h00=0x002a, h01=0x0050, text=» LC A5,UPNUMB,A3 GET NUMBER OF COPIES «, t00=0x00ce, t01=0x0110}
0x142fa…1430e Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x00ce, t01=0x013e}
0x1430e…1433e Head {h00=0x002c, h01=0x0050, text=» SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT«, t00=0x00ce, t01=0x0152}
0x1433e…14370 Head {h00=0x002e, h01=0x0050, text=» AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS«, t00=0x00ce, t01=0x0182}
0x14370…14382 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x00cf, t01=0x0024}
0x14382…143a8 Head {h00=0x0022, h01=0x0050, text=» ST A4,URLENG,A9 STORE LENGTH «, t00=0x00cf, t01=0x0036}
0x143a8…143d6 Head {h00=0x002a, h01=0x0050, text=» ST A5,URNUMB,A9 STORE IN REAL U:BTAB «, t00=0x00cf, t01=0x005c}
0x143d6…1440a Head {h00=0x0030, h01=0x0050, text=»* COPY NUMBER OF WORKBLOCKS TO COMMON AREA *«, t00=0x00cf, t01=0x008a}
0x1440a…1443e Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00cf, t01=0x00be}
0x1443e…14470 Head {h00=0x002e, h01=0x0050, text=» SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') «, t00=0x00cf, t01=0x00f2}
0x14470…14486 Head {h00=0x0012, h01=0x0050, text=» RF(NP) GETP50«, t00=0x00cf, t01=0x0124}
0x14486…144a0 Head {h00=0x0016, h01=0x0050, text=»GETP40 CALL MOVWB «, t00=0x00cf, t01=0x013a}
0x144a0…144b2 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x00cf, t01=0x0154}
0x144b2…144c8 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) GETP40«, t00=0x00cf, t01=0x0166}
0x144c8…144d4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00cf, t01=0x017c}
0x144d4…144fe Head {h00=0x0026, h01=0x0050, text=»* UPDATE POINTER IN REAL U:BTAB * «, t00=0x00cf, t01=0x0188}
0x144fe…14528 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00d0, t01=0x0022}
0x14528…1453c Head {h00=0x0010, h01=0x0050, text=»GETP50 EQU *«, t00=0x00d0, t01=0x004c}
0x1453c…14576 Head {h00=0x0036, h01=0x0050, text=» ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB «, t00=0x00d0, t01=0x0060}
0x14576…14582 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d0, t01=0x009a}
0x14582…1459e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00d0, t01=0x00a6}
0x1459e…145b8 Head {h00=0x0016, h01=0x0050, text=» ELR A4,A3 LENGTH «, t00=0x00d0, t01=0x00c2}
0x145b8…145cc Head {h00=0x0010, h01=0x0050, text=»GETP10 EQU *«, t00=0x00d0, t01=0x00dc}
0x145cc…14606 Head {h00=0x0036, h01=0x0050, text=» SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH «, t00=0x00d0, t01=0x00f0}
0x14606…1461c Head {h00=0x0012, h01=0x0050, text=» RF(NN) GETP20«, t00=0x00d0, t01=0x012a}
0x1461c…14640 Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP6 W.B. NOT FOUND!«, t00=0x00d0, t01=0x0140}
0x14640…14654 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00d0, t01=0x0164}
0x14654…14668 Head {h00=0x0010, h01=0x0050, text=»GETP20 EQU *«, t00=0x00d0, t01=0x0178}
0x14668…14694 Head {h00=0x0028, h01=0x0050, text=» EL A10,UPADDR,A3 CHECK IF SAME W.B.«, t00=0x00d0, t01=0x018c}
0x14694…146a8 Head {h00=0x0010, h01=0x0050, text=» CWR A11,A10«, t00=0x00d1, t01=0x0028}
0x146a8…146d8 Head {h00=0x002c, h01=0x0050, text=» RF(E) GETP30 YES! GET NUMBER OF COPIES «, t00=0x00d1, t01=0x003c}
0x146d8…146f4 Head {h00=0x0018, h01=0x0050, text=» ADK A3,UP:REC NEXT «, t00=0x00d1, t01=0x006c}
0x146f4…14706 Head {h00=0x000e, h01=0x0050, text=» RB GETP10«, t00=0x00d1, t01=0x0088}
0x14706…14712 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d1, t01=0x009a}
0x14712…14746 Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF COPIES *«, t00=0x00d1, t01=0x00a6}
0x14746…1477a Head {h00=0x0030, h01=0x0050, text=»* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *«, t00=0x00d1, t01=0x00da}
0x1477a…147ae Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d1, t01=0x010e}
0x147ae…147b6 Head {h00=0x0004, h01=0x0050, t00=0x00d1, t01=0x0142}
0x147b6…147ca Head {h00=0x0010, h01=0x0050, text=»GETP30 EQU *«, t00=0x00d1, t01=0x014a}
0x147ca…147ee Head {h00=0x0020, h01=0x0050, text=» EL A4,WBLEN,A11 W.B.-LENGTH«, t00=0x00d1, t01=0x015e}
0x147ee…1481e Head {h00=0x002c, h01=0x0050, text=» EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES «, t00=0x00d1, t01=0x0182}
0x1481e…14832 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x00d2, t01=0x0022}
0x14832…14862 Head {h00=0x002c, h01=0x0050, text=» SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT«, t00=0x00d2, t01=0x0036}
0x14862…14894 Head {h00=0x002e, h01=0x0050, text=» AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS«, t00=0x00d2, t01=0x0066}
0x14894…148a6 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x00d2, t01=0x0098}
0x148a6…148ca Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x00d2, t01=0x00aa}
0x148ca…148f8 Head {h00=0x002a, h01=0x0050, text=» ES A5,URNUMB,A9 ESORE IN REAL U:BTAB «, t00=0x00d2, t01=0x00ce}
0x148f8…1491e Head {h00=0x0022, h01=0x0050, text=» ES A4,URLENG,A9 STORE LENGTH «, t00=0x00d2, t01=0x00fc}
0x1491e…14948 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM TABLE «, t00=0x00d2, t01=0x0122}
0x14948…1497c Head {h00=0x0030, h01=0x0050, text=»* COPY NUMBER OF WORKBLOCKS TO COMMON AREA *«, t00=0x00d2, t01=0x014c}
0x1497c…149b0 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d2, t01=0x0180}
0x149b0…149e2 Head {h00=0x002e, h01=0x0050, text=» SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') «, t00=0x00d3, t01=0x0024}
0x149e2…149f8 Head {h00=0x0012, h01=0x0050, text=» RF(NP) GETP50«, t00=0x00d3, t01=0x0056}
0x149f8…14a12 Head {h00=0x0016, h01=0x0050, text=»GETP40 CALL MOVWB «, t00=0x00d3, t01=0x006c}
0x14a12…14a24 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x00d3, t01=0x0086}
0x14a24…14a3a Head {h00=0x0012, h01=0x0050, text=» RB(NZ) GETP40«, t00=0x00d3, t01=0x0098}
0x14a3a…14a46 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d3, t01=0x00ae}
0x14a46…14a70 Head {h00=0x0026, h01=0x0050, text=»* UPDATE POINTER IN REAL U:BTAB * «, t00=0x00d3, t01=0x00ba}
0x14a70…14a9a Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00d3, t01=0x00e4}
0x14a9a…14aae Head {h00=0x0010, h01=0x0050, text=»GETP50 EQU *«, t00=0x00d3, t01=0x010e}
0x14aae…14ac4 Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00d3, t01=0x0122}
0x14ac4…14afe Head {h00=0x0036, h01=0x0050, text=» ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U:BTAB «, t00=0x00d3, t01=0x0138}
0x14afe…14b16 Head {h00=0x0014, h01=0x0050, text=» TL* MMFROM,A13 «, t00=0x00d3, t01=0x0172}
0x14b16…14b22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d3, t01=0x018a}
0x14b22…14b38 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00d4, t01=0x0008}
0x14b38…14b48 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d4, t01=0x001e}
0x14b48…14b56 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d4, t01=0x002e}
0x14b56…14b62 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d4, t01=0x003c}
0x14b62…14b98 Head {h00=0x0032, h01=0x0050, text=»** M O V C L A ** «, t00=0x00d4, t01=0x0048}
0x14b98…14bce Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x00d4, t01=0x007e}
0x14bce…14c04 Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x00d4, t01=0x00b4}
0x14c04…14c3a Head {h00=0x0032, h01=0x0050, text=»** CHECKS IF W.B. ALREADY MOVED TO COMMON ** «, t00=0x00d4, t01=0x00ea}
0x14c3a…14c70 Head {h00=0x0032, h01=0x0050, text=»** AREA. IF NOT MOVE W.B. & D.T. AND ** «, t00=0x00d4, t01=0x0120}
0x14c70…14ca6 Head {h00=0x0032, h01=0x0050, text=»** CHECK IF ANY DWB'S ** «, t00=0x00d4, t01=0x0156}
0x14ca6…14cdc Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x00d4, t01=0x018c}
0x14cdc…14d12 Head {h00=0x0032, h01=0x0050, text=»** A LOT OF WORKREGS. ** «, t00=0x00d5, t01=0x0032}
0x14d12…14d48 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00d5, t01=0x0068}
0x14d48…14d50 Head {h00=0x0004, h01=0x0050, t00=0x00d5, t01=0x009e}
0x14d50…14d64 Head {h00=0x0010, h01=0x0050, text=»MOVCLA EQU *«, t00=0x00d5, t01=0x00a6}
0x14d64…14d78 Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00d5, t01=0x00ba}
0x14d78…14d8e Head {h00=0x0012, h01=0x0050, text=» RF(Z) MVCL30 «, t00=0x00d5, t01=0x00ce}
0x14d8e…14dbc Head {h00=0x002a, h01=0x0050, text=»MVCL10 CALL GETWB W.B.-ADDRESS TO A11 «, t00=0x00d5, t01=0x00e4}
0x14dbc…14de6 Head {h00=0x0026, h01=0x0050, text=» CALL CHKMVD BLOCK ALREADY MOVED? «, t00=0x00d5, t01=0x0112}
0x14de6…14e00 Head {h00=0x0016, h01=0x0050, text=» RF(NN) MVCL40 NO!«, t00=0x00d5, t01=0x013c}
0x14e00…14e30 Head {h00=0x002c, h01=0x0050, text=»MVCL20 CALL SKIFTA GET NEXT BIT IN MASK «, t00=0x00d5, t01=0x0156}
0x14e30…14e46 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) MVCL10«, t00=0x00d5, t01=0x0186}
0x14e46…14e5c Head {h00=0x0012, h01=0x0050, text=»MVCL30 RTN A14«, t00=0x00d6, t01=0x000c}
0x14e5c…14e76 Head {h00=0x0016, h01=0x0050, text=»MVCL40 CALL MOVDT «, t00=0x00d6, t01=0x0022}
0x14e76…14e8a Head {h00=0x0010, h01=0x0050, text=» CALL MOVWB «, t00=0x00d6, t01=0x003c}
0x14e8a…14eae Head {h00=0x0020, h01=0x0050, text=» LD A4,UWB,A13 UWB-SCANNING «, t00=0x00d6, t01=0x0050}
0x14eae…14ec8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MVCL50 NO! «, t00=0x00d6, t01=0x0074}
0x14ec8…14eec Head {h00=0x0020, h01=0x0050, text=» CALL GETPRO DUPLICATE WB'S «, t00=0x00d6, t01=0x008e}
0x14eec…14f1e Head {h00=0x002e, h01=0x0050, text=»MVCL50 ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS «, t00=0x00d6, t01=0x00b2}
0x14f1e…14f40 Head {h00=0x001e, h01=0x0050, text=» CALL MOVDWB PROCESS DWB'S«, t00=0x00d6, t01=0x00e4}
0x14f40…14f52 Head {h00=0x000e, h01=0x0050, text=» RB MVCL20«, t00=0x00d6, t01=0x0106}
0x14f52…14f60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d6, t01=0x0118}
0x14f60…14f6c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d6, t01=0x0126}
0x14f6c…14f78 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d6, t01=0x0132}
0x14f78…14fb2 Head {h00=0x0036, h01=0x0050, text=»** C H A D R ** «, t00=0x00d6, t01=0x013e}
0x14fb2…14fec Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00d6, t01=0x0178}
0x14fec…15026 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00d7, t01=0x0022}
0x15026…15060 Head {h00=0x0036, h01=0x0050, text=»** CHANGE ADDRESS TO W.B. & D.T. IN T:A, ** «, t00=0x00d7, t01=0x005c}
0x15060…1509a Head {h00=0x0036, h01=0x0050, text=»** BLOCKS ALREDY MOVED ** «, t00=0x00d7, t01=0x0096}
0x1509a…150d4 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x00d7, t01=0x00d0}
0x150d4…1510e Head {h00=0x0036, h01=0x0050, text=»** INPUT : A6=POINTER IN T:ATAB TO T:A ** «, t00=0x00d7, t01=0x010a}
0x1510e…15148 Head {h00=0x0036, h01=0x0050, text=»** NEWADR1=NEW D.T.-ADDRESS ** «, t00=0x00d7, t01=0x0144}
0x15148…15182 Head {h00=0x0036, h01=0x0050, text=»** NEWAD2= NEW W.B.-ADDRESS ** «, t00=0x00d7, t01=0x017e}
0x15182…151bc Head {h00=0x0036, h01=0x0050, text=»** TADISP=DISPLACEMENT TO WB-ADDR ** «, t00=0x00d8, t01=0x0028}
0x151bc…151f6 Head {h00=0x0036, h01=0x0050, text=»** WORK.REGS: A1,A2 ** «, t00=0x00d8, t01=0x0062}
0x151f6…15230 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00d8, t01=0x009c}
0x15230…1523c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00d8, t01=0x00d6}
0x1523c…15250 Head {h00=0x0010, h01=0x0050, text=»CHADR EQU * «, t00=0x00d8, t01=0x00e2}
0x15250…1526c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00d8, t01=0x00f6}
0x1526c…1528c Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 T:A-ADDRESS «, t00=0x00d8, t01=0x0112}
0x1528c…152be Head {h00=0x002e, h01=0x0050, text=» AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS«, t00=0x00d8, t01=0x0132}
0x152be…152d8 Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD2,A13 «, t00=0x00d8, t01=0x0164}
0x152d8…152ea Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x00d8, t01=0x017e}
0x152ea…15314 Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 ADDRESS TO D.T.-ADDRESS «, t00=0x00d8, t01=0x0190}
0x15314…1532e Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD1,A13 «, t00=0x00d9, t01=0x002a}
0x1532e…15340 Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x00d9, t01=0x0044}
0x15340…1534c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d9, t01=0x0056}
0x1534c…15368 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00d9, t01=0x0062}
0x15368…15386 Head {h00=0x001a, h01=0x0050, text=» ELR A1,A6 T:A-ADDRESS«, t00=0x00d9, t01=0x007e}
0x15386…153b8 Head {h00=0x002e, h01=0x0050, text=» AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS«, t00=0x00d9, t01=0x009c}
0x153b8…153d2 Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD2,A13 «, t00=0x00d9, t01=0x00ce}
0x153d2…153e4 Head {h00=0x000e, h01=0x0050, text=» ESR A2,A1«, t00=0x00d9, t01=0x00e8}
0x153e4…1540e Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 ADDRESS TO D.T.-ADDRESS «, t00=0x00d9, t01=0x00fa}
0x1540e…15428 Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD1,A13 «, t00=0x00d9, t01=0x0124}
0x15428…1543a Head {h00=0x000e, h01=0x0050, text=» ESR A2,A1«, t00=0x00d9, t01=0x013e}
0x1543a…15446 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d9, t01=0x0150}
0x15446…1545c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00d9, t01=0x015c}
0x1545c…1546c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d9, t01=0x0172}
0x1546c…15478 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d9, t01=0x0182}
0x15478…15494 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00d9, t01=0x018e}
0x15494…154a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00da, t01=0x001a}
0x154a2…154e8 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00da, t01=0x0028}
0x154e8…1552e Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00da, t01=0x006e}
0x1552e…15574 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00da, t01=0x00b4}
0x15574…155ba Head {h00=0x0042, h01=0x0050, text=»* B:RSWT - BUILD REAL SWB CONTROL TABLE *«, t00=0x00da, t01=0x00fa}
0x155ba…15600 Head {h00=0x0042, h01=0x0050, text=»* ===================================== *«, t00=0x00da, t01=0x0140}
0x15600…15646 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00da, t01=0x0186}
0x15646…1568c Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: SYSLDA *«, t00=0x00db, t01=0x003c}
0x1568c…156d2 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00db, t01=0x0082}
0x156d2…15718 Head {h00=0x0042, h01=0x0050, text=»* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB *«, t00=0x00db, t01=0x00c8}
0x15718…1575e Head {h00=0x0042, h01=0x0050, text=»* A5 - LENGTH OF REAL S:BTAB *«, t00=0x00db, t01=0x010e}
0x1575e…157a4 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00db, t01=0x0154}
0x157a4…157ea Head {h00=0x0042, h01=0x0050, text=»* EXIT: *«, t00=0x00dc, t01=0x000a}
0x157ea…15830 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00dc, t01=0x0050}
0x15830…15876 Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A1-A7 *«, t00=0x00dc, t01=0x0096}
0x15876…158bc Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00dc, t01=0x00dc}
0x158bc…15902 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x00dc, t01=0x0122}
0x15902…15948 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x00dc, t01=0x0168}
0x15948…1598e Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00dd, t01=0x001e}
0x1598e…1599c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00dd, t01=0x0064}
0x1599c…159b0 Head {h00=0x0010, h01=0x0050, text=»B:RSWT EQU *«, t00=0x00dd, t01=0x0072}
0x159b0…159de Head {h00=0x002a, h01=0x0050, text=» LDR A8,A2 SAVE POINTER TO FIRST BLOCK«, t00=0x00dd, t01=0x0086}
0x159de…15a0e Head {h00=0x002c, h01=0x0050, text=» LD A1,SCTSWB POINTER TO SWB BLOCK TABLE«, t00=0x00dd, t01=0x00b4}
0x15a0e…15a3c Head {h00=0x002a, h01=0x0050, text=» RF(Z) RSWBEX NO SWB:S IN APPLICATION «, t00=0x00dd, t01=0x00e4}
0x15a3c…15a60 Head {h00=0x0020, h01=0x0050, text=» LDR* A3,A1 NUMBER OF TYPES «, t00=0x00dd, t01=0x0112}
0x15a60…15a7e Head {h00=0x001a, h01=0x0050, text=» RF(Z) RSWBEX NO MOORE«, t00=0x00dd, t01=0x0136}
0x15a7e…15aa0 Head {h00=0x001e, h01=0x0050, text=» SUK A5,2 SKIP LENGTH WORD«, t00=0x00dd, t01=0x0154}
0x15aa0…15ac2 Head {h00=0x001e, h01=0x0050, text=»RSWB10 ADK A1,2 NEXT TYPE «, t00=0x00dd, t01=0x0176}
0x15ac2…15ae6 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,A1 POINTER TO BLOCK«, t00=0x00de, t01=0x0008}
0x15ae6…15b0a Head {h00=0x0020, h01=0x0050, text=» LDR* A6,A4 NUMBER OF COPIES«, t00=0x00de, t01=0x002c}
0x15b0a…15b32 Head {h00=0x0024, h01=0x0050, text=» LD A7,SWBLEN,A4 LENGTH IN BYTES«, t00=0x00de, t01=0x0050}
0x15b32…15b3e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00de, t01=0x0078}
0x15b3e…15b5a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00de, t01=0x0084}
0x15b5a…15b84 Head {h00=0x0026, h01=0x0050, text=» ES A6,2,A2 STORE NUMBER OF COPIES«, t00=0x00de, t01=0x00a0}
0x15b84…15bb4 Head {h00=0x002c, h01=0x0050, text=» ES A7,4,A2 STORE LENGTH OF SWB IN BYTES«, t00=0x00de, t01=0x00ca}
0x15bb4…15bc0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00de, t01=0x00fa}
0x15bc0…15bdc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00de, t01=0x0106}
0x15bdc…15c06 Head {h00=0x0026, h01=0x0050, text=» ST A6,2,A2 STORE NUMBER OF COPIES«, t00=0x00de, t01=0x0122}
0x15c06…15c36 Head {h00=0x002c, h01=0x0050, text=» ST A7,4,A2 STORE LENGTH OF SWB IN BYTES«, t00=0x00de, t01=0x014c}
0x15c36…15c42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00de, t01=0x017c}
0x15c42…15c5e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00de, t01=0x0188}
0x15c5e…15c88 Head {h00=0x0026, h01=0x0050, text=» SUK A5,6 DECREMENTS S:BTAB LENGTH«, t00=0x00df, t01=0x0014}
0x15c88…15cb4 Head {h00=0x0028, h01=0x0050, text=» ADK A2,6 INCREMENT POINTER IN BLOCK«, t00=0x00df, t01=0x003e}
0x15cb4…15ce0 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT NUMBER OF TYPES «, t00=0x00df, t01=0x006a}
0x15ce0…15cf6 Head {h00=0x0012, h01=0x0050, text=» RB(P) RSWB10 «, t00=0x00df, t01=0x0096}
0x15cf6…15d08 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x00df, t01=0x00ac}
0x15d08…15d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x00be}
0x15d12…15d4a Head {h00=0x0034, h01=0x0050, text=»* INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE«, t00=0x00df, t01=0x00c8}
0x15d4a…15d76 Head {h00=0x0028, h01=0x0050, text=»* AND RESET ALL WORDS IN TID BLOCKS«, t00=0x00df, t01=0x0100}
0x15d76…15d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x012c}
0x15d80…15d94 Head {h00=0x0010, h01=0x0050, text=»RSWB20 EQU *«, t00=0x00df, t01=0x0136}
0x15d94…15dc0 Head {h00=0x0028, h01=0x0050, text=» LDR A6,A2 GET ADDRESS TO TID BLOCK «, t00=0x00df, t01=0x014a}
0x15dc0…15de8 Head {h00=0x0024, h01=0x0050, text=» SUR A6,A8 COMPUTE DISPLACEMENT «, t00=0x00df, t01=0x0176}
0x15de8…15e04 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00e0, t01=0x000e}
0x15e04…15e28 Head {h00=0x0020, h01=0x0050, text=» LD A1,2,A8 NUMBER OF COPIES«, t00=0x00e0, t01=0x002a}
0x15e28…15e48 Head {h00=0x001c, h01=0x0050, text=» RF(Z) RSWB50 NO COPIES!«, t00=0x00e0, t01=0x004e}
0x15e48…15e76 Head {h00=0x002a, h01=0x0050, text=» STR A6,A8 STORE POINTER TO TID BLOCK «, t00=0x00e0, t01=0x006e}
0x15e76…15e98 Head {h00=0x001e, h01=0x0050, text=»RSWB30 STR A3,A2 RESET TID«, t00=0x00e0, t01=0x009c}
0x15e98…15ec8 Head {h00=0x002c, h01=0x0050, text=» ADK A2,2 INCREMENT POINTER IN TID BLOCK«, t00=0x00e0, t01=0x00be}
0x15ec8…15efa Head {h00=0x002e, h01=0x0050, text=» SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB «, t00=0x00e0, t01=0x00ee}
0x15efa…15f22 Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECR. NUMBER OF COPIES«, t00=0x00e0, t01=0x0120}
0x15f22…15f42 Head {h00=0x001c, h01=0x0050, text=» RB(P) RSWB30 NEXT COPY «, t00=0x00e0, t01=0x0148}
0x15f42…15f4e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e0, t01=0x0168}
0x15f4e…15f6a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00e0, t01=0x0174}
0x15f6a…15f92 Head {h00=0x0024, h01=0x0050, text=» EL A1,2,A8 GET NUMBER OF COPIES«, t00=0x00e0, t01=0x0190}
0x15f92…15fb2 Head {h00=0x001c, h01=0x0050, text=» RF(Z) RSWB50 NO COPIES!«, t00=0x00e1, t01=0x0028}
0x15fb2…15fe0 Head {h00=0x002a, h01=0x0050, text=» ESR A6,A8 STORE POINTER TO TID BLOCK «, t00=0x00e1, t01=0x0048}
0x15fe0…16002 Head {h00=0x001e, h01=0x0050, text=»RSWB40 ESR A3,A2 RESET TID«, t00=0x00e1, t01=0x0076}
0x16002…16032 Head {h00=0x002c, h01=0x0050, text=» ADK A2,2 INCREMENT POINTER IN TID BLOCK«, t00=0x00e1, t01=0x0098}
0x16032…16064 Head {h00=0x002e, h01=0x0050, text=» SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB «, t00=0x00e1, t01=0x00c8}
0x16064…16090 Head {h00=0x0028, h01=0x0050, text=» SUK A1,1 DECREMENT NUMBER OF COPIES«, t00=0x00e1, t01=0x00fa}
0x16090…160b0 Head {h00=0x001c, h01=0x0050, text=» RB(P) RSWB40 NEXT COPY «, t00=0x00e1, t01=0x0126}
0x160b0…160bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e1, t01=0x0146}
0x160bc…160d8 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00e1, t01=0x0152}
0x160d8…160f0 Head {h00=0x0014, h01=0x0050, text=»RSWB50 ADKL A8,6«, t00=0x00e1, t01=0x016e}
0x160f0…16102 Head {h00=0x000e, h01=0x0050, text=» CWR A8,A4«, t00=0x00e1, t01=0x0186}
0x16102…16118 Head {h00=0x0012, h01=0x0050, text=» RB(NE) RSWB20«, t00=0x00e2, t01=0x0008}
0x16118…1613e Head {h00=0x0022, h01=0x0050, text=» LDR A5,A5 S:BTAB CONSISTENT? «, t00=0x00e2, t01=0x001e}
0x1613e…16158 Head {h00=0x0016, h01=0x0050, text=» RF(Z) RSWBEX YES «, t00=0x00e2, t01=0x0044}
0x16158…16178 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,LMP6 SWB ERROR!«, t00=0x00e2, t01=0x005e}
0x16178…1618c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00e2, t01=0x007e}
0x1618c…161a2 Head {h00=0x0012, h01=0x0050, text=»RSWBEX RTN A14«, t00=0x00e2, t01=0x0092}
0x161a2…161ae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e2, t01=0x00a8}
0x161ae…161c4 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00e2, t01=0x00b4}
0x161c4…161d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e2, t01=0x00ca}
0x161d2…161da Head {h00=0x0004, h01=0x0050, t00=0x00e2, t01=0x00d8}
0x161da…161fe Head {h00=0x0020, h01=0x0050, text=»* **************************«, t00=0x00e2, t01=0x00e0}
0x161fe…16224 Head {h00=0x0022, h01=0x0050, text=»* START OF PROGRAM PART 2.A * «, t00=0x00e2, t01=0x0104}
0x16224…1624a Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x00e2, t01=0x012a}
0x1624a…16252 Head {h00=0x0004, h01=0x0050, t00=0x00e2, t01=0x0150}
0x16252…16270 Head {h00=0x001a, h01=0x0050, text=»* LOAD BASE ADDRESS * «, t00=0x00e2, t01=0x0158}
0x16270…1628e Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x00e2, t01=0x0176}
0x1628e…162a8 (227, 0, 400) Head {h00=0x0016, h01=0x0050, text=»* A5=START-ADDRESS«, t00=0x00e3, t01=0x0004}
0x162a8…162c4 Head {h00=0x0018, h01=0x0050, text=»* A9=P:MTAB ADDRESS «, t00=0x00e3, t01=0x001e}
0x162c4…162e4 Head {h00=0x001c, h01=0x0050, text=»* SAVE03=DDIV TO-ADDRESS«, t00=0x00e3, t01=0x003a}
0x162e4…16306 Head {h00=0x001e, h01=0x0050, text=»* SAVE04=DDIV FROM ADDRESS«, t00=0x00e3, t01=0x005a}
0x16306…1632c Head {h00=0x0022, h01=0x0050, text=»* SAVE05=LENGTH OF REAL T:ATAB«, t00=0x00e3, t01=0x007c}
0x1632c…16352 Head {h00=0x0022, h01=0x0050, text=»* SAVE06=LENGTH OF REAL U:BTAB«, t00=0x00e3, t01=0x00a2}
0x16352…1635e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00e3, t01=0x00c8}
0x1635e…16376 Head {h00=0x0014, h01=0x0050, text=»START2 EQU *-REL«, t00=0x00e3, t01=0x00d4}
0x16376…1639c Head {h00=0x0022, h01=0x0050, text=» LDR A8,P LOAD TEMP. STACKBASE«, t00=0x00e3, t01=0x00ec}
0x1639c…163c8 Head {h00=0x0028, h01=0x0050, text=» ADK A5,2 ADD FOR RELOCATION ROUTINE«, t00=0x00e3, t01=0x0112}
0x163c8…163da Head {h00=0x000e, h01=0x0050, text=» CFR A8,A5«, t00=0x00e3, t01=0x013e}
0x163da…163f0 Head {h00=0x0012, h01=0x0050, text=»* MOVE DDIV * «, t00=0x00e3, t01=0x0150}
0x163f0…163f8 Head {h00=0x0004, h01=0x0050, t00=0x00e3, t01=0x0166}
0x163f8…16422 Head {h00=0x0026, h01=0x0050, text=» LD A1,SAVE04,A13 GET FROM-ADDRESS«, t00=0x00e3, t01=0x016e}
0x16422…1644a Head {h00=0x0024, h01=0x0050, text=» LD A2,SAVE03,A13 GET TO ADDRESS«, t00=0x00e4, t01=0x0008}
0x1644a…1647c Head {h00=0x002e, h01=0x0050, text=» LDR A3,A9 GET P:MTAB START (=END OF DDIV «, t00=0x00e4, t01=0x0030}
0x1647c…16498 Head {h00=0x0018, h01=0x0050, text=» SUR A3,A1 => LENGTH«, t00=0x00e4, t01=0x0062}
0x16498…164a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e4, t01=0x007e}
0x164a4…164c0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00e4, t01=0x008a}
0x164c0…164f2 Head {h00=0x002e, h01=0x0050, text=» LD A8,SCTNOS ANY SEGMENTS IN APPLICATION?«, t00=0x00e4, t01=0x00a6}
0x164f2…1650c Head {h00=0x0016, h01=0x0050, text=» RF(Z) NOSGMT NO! «, t00=0x00e4, t01=0x00d8}
0x1650c…16538 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,0 RESET FSTADR IF SEGMENTS!«, t00=0x00e4, t01=0x00f2}
0x16538…1654a Head {h00=0x000e, h01=0x0050, text=» RF SEGMTS«, t00=0x00e4, t01=0x011e}
0x1654a…16580 Head {h00=0x0032, h01=0x0050, text=»NOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP «, t00=0x00e4, t01=0x0130}
0x16580…165a6 Head {h00=0x0022, h01=0x0050, text=»SEGMTS ST A8,FSTADR,A13 STORE «, t00=0x00e4, t01=0x0166}
0x165a6…165c8 Head {h00=0x001e, h01=0x0050, text=»MOVNXT LDR* A4,A1 GET WORD«, t00=0x00e4, t01=0x018c}
0x165c8…165e0 Head {h00=0x0014, h01=0x0050, text=» STR A4,A2 STORE«, t00=0x00e5, t01=0x001e}
0x165e0…165f2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00e5, t01=0x0036}
0x165f2…16604 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00e5, t01=0x0048}
0x16604…16620 Head {h00=0x0018, h01=0x0050, text=» SUK A3,2 DEC LENGTH«, t00=0x00e5, t01=0x005a}
0x16620…16636 Head {h00=0x0012, h01=0x0050, text=» RB(NN) MOVNXT«, t00=0x00e5, t01=0x0076}
0x16636…16642 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e5, t01=0x008c}
0x16642…1665e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00e5, t01=0x0098}
0x1665e…16672 Head {h00=0x0010, h01=0x0050, text=» CALL XMOVE «, t00=0x00e5, t01=0x00b4}
0x16672…1669c Head {h00=0x0026, h01=0x0050, text=»* REMOVE DDIV ENTRIES IN MM-TABLE «, t00=0x00e5, t01=0x00c8}
0x1669c…166a4 Head {h00=0x0004, h01=0x0050, t00=0x00e5, t01=0x00f2}
0x166a4…166ca Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET P:MTAB ADDRESS «, t00=0x00e5, t01=0x00fa}
0x166ca…166f2 Head {h00=0x0024, h01=0x0050, text=» SRL A1,11 ADJUST FOR ADDRESSING«, t00=0x00e5, t01=0x0120}
0x166f2…16706 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/1E «, t00=0x00e5, t01=0x0148}
0x16706…16730 Head {h00=0x0026, h01=0x0050, text=» LDK A2,MMTAB-2 GET TABLE ADDRESS «, t00=0x00e5, t01=0x015c}
0x16730…1674c Head {h00=0x0018, h01=0x0050, text=» ADR A2,A13 RELOCATE«, t00=0x00e5, t01=0x0186}
0x1674c…16772 Head {h00=0x0022, h01=0x0050, text=» ADR A1,A2 P:MTAB START ENTRY «, t00=0x00e6, t01=0x0012}
0x16772…16788 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/FC00«, t00=0x00e6, t01=0x0038}
0x16788…167a6 Head {h00=0x001a, h01=0x0050, text=»SYA205 CWR A1,A2 ALL? «, t00=0x00e6, t01=0x004e}
0x167a6…167c0 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA207 YES!«, t00=0x00e6, t01=0x006c}
0x167c0…167f0 Head {h00=0x002c, h01=0x0050, text=» STR A4,A1 REPLACE ENTRY WITH PAGE ERROR«, t00=0x00e6, t01=0x0086}
0x167f0…16802 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x00e6, t01=0x00b6}
0x16802…16814 Head {h00=0x000e, h01=0x0050, text=» RB SYA205«, t00=0x00e6, t01=0x00c8}
0x16814…16828 Head {h00=0x0010, h01=0x0050, text=»SYA207 EQU *«, t00=0x00e6, t01=0x00da}
0x16828…16848 Head {h00=0x001c, h01=0x0050, text=»* CHANGE TABLE-ADDRESSES«, t00=0x00e6, t01=0x00ee}
0x16848…16862 Head {h00=0x0016, h01=0x0050, text=» LD A4,MMFROM,A13 «, t00=0x00e6, t01=0x010e}
0x16862…1687a Head {h00=0x0014, h01=0x0050, text=» LD A5,MMTO,A13 «, t00=0x00e6, t01=0x0128}
0x1687a…16892 Head {h00=0x0014, h01=0x0050, text=» ST A4,MMTO,A13 «, t00=0x00e6, t01=0x0140}
0x16892…168ac Head {h00=0x0016, h01=0x0050, text=» ST A5,MMFROM,A13 «, t00=0x00e6, t01=0x0158}
0x168ac…168b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e6, t01=0x0172}
0x168b8…168ce Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00e6, t01=0x017e}
0x168ce…168f2 (231, 0, 400) Head {h00=0x0020, h01=0x0050, text=» ANKL A9,/FFFE EVEN ADDRESS «, t00=0x00e7, t01=0x0004}
0x168f2…16922 Head {h00=0x002c, h01=0x0050, text=» ST A9,LSTADR,A13 SAVE END OF FREE AREA «, t00=0x00e7, t01=0x0028}
0x16922…1692a Head {h00=0x0004, h01=0x0050, t00=0x00e7, t01=0x0058}
0x1692a…16932 Head {h00=0x0004, h01=0x0050, t00=0x00e7, t01=0x0060}
0x16932…1693e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00e7, t01=0x0068}
0x1693e…16970 Head {h00=0x002e, h01=0x0050, text=»* RESERVE SPACE FOR REAL T:A- AND U:BTAB *«, t00=0x00e7, t01=0x0074}
0x16970…16978 Head {h00=0x0004, h01=0x0050, t00=0x00e7, t01=0x00a6}
0x16978…16994 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00e7, t01=0x00ae}
0x16994…169c0 Head {h00=0x0028, h01=0x0050, text=» LDKL A3,MMTAB GET CURRENT MM-TABLE «, t00=0x00e7, t01=0x00ca}
0x169c0…169d4 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A13 «, t00=0x00e7, t01=0x00f6}
0x169d4…16a04 Head {h00=0x002c, h01=0x0050, text=»* FIND LAST USED ENTRY IN REAL MMUTAB * «, t00=0x00e7, t01=0x010a}
0x16a04…16a0c Head {h00=0x0004, h01=0x0050, t00=0x00e7, t01=0x013a}
0x16a0c…16a20 Head {h00=0x0010, h01=0x0050, text=» CALL MMENT «, t00=0x00e7, t01=0x0142}
0x16a20…16a38 Head {h00=0x0014, h01=0x0050, text=» ST A9,TTAB,A13 «, t00=0x00e7, t01=0x0156}
0x16a38…16a66 Head {h00=0x002a, h01=0x0050, text=» ST A1,FYSPAG,A13 SAVE PHYSICALL PAGE «, t00=0x00e7, t01=0x016e}
0x16a66…16a94 Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE05,A13 GET LENGTH OF T:ATAB«, t00=0x00e8, t01=0x000c}
0x16a94…16aac Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00e8, t01=0x003a}
0x16aac…16ada Head {h00=0x002a, h01=0x0050, text=» CALL MOVING RESERVE SPACE FOR T:ATAB «, t00=0x00e8, t01=0x0052}
0x16ada…16b02 Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 SET CORRECT TABLE «, t00=0x00e8, t01=0x0080}
0x16b02…16b28 Head {h00=0x0022, h01=0x0050, text=» ESR A5,A2 STORE T:ATAB LENGTH«, t00=0x00e8, t01=0x00a8}
0x16b28…16b5a Head {h00=0x002e, h01=0x0050, text=» ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS «, t00=0x00e8, t01=0x00ce}
0x16b5a…16b7c Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 SKIP LENGTH WORD«, t00=0x00e8, t01=0x0100}
0x16b7c…16ba4 Head {h00=0x0024, h01=0x0050, text=» LD A9,SCTLAC GET P:MTAB ADDRESS«, t00=0x00e8, t01=0x0122}
0x16ba4…16bcc Head {h00=0x0024, h01=0x0050, text=» ES A2,T:ATAB,A9 STORE IN P:MTAB«, t00=0x00e8, t01=0x014a}
0x16bcc…16bf4 Head {h00=0x0024, h01=0x0050, text=»* RESERVE PLACE FOR T:AID TABLE «, t00=0x00e8, t01=0x0172}
0x16bf4…16bfc Head {h00=0x0004, h01=0x0050, t00=0x00e9, t01=0x000a}
0x16bfc…16c1a Head {h00=0x001a, h01=0x0050, text=» LDR A3,A5 GET LENGTH «, t00=0x00e9, t01=0x0012}
0x16c1a…16c2e Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00e9, t01=0x0030}
0x16c2e…16c44 Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00e9, t01=0x0044}
0x16c44…16c62 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A9 GET P:MTAB «, t00=0x00e9, t01=0x005a}
0x16c62…16c8c Head {h00=0x0026, h01=0x0050, text=» ADK A3,T:AID ADD TO ADDRESS WORD «, t00=0x00e9, t01=0x0078}
0x16c8c…16cc0 Head {h00=0x0030, h01=0x0050, text=» ESR A5,A2 STORE TABLE LENGTH IN T:TID-TABLE«, t00=0x00e9, t01=0x00a2}
0x16cc0…16ce6 Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 ADJUST TABLE ADDRESS«, t00=0x00e9, t01=0x00d6}
0x16ce6…16d08 Head {h00=0x001e, h01=0x0050, text=» ESR A2,A3 STORE IN P:MTAB«, t00=0x00e9, t01=0x00fc}
0x16d08…16d14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e9, t01=0x011e}
0x16d14…16d2a Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00e9, t01=0x012a}
0x16d2a…16d56 Head {h00=0x0028, h01=0x0050, text=» LD A3,SAVE06,A13 GET U:BTAB LENGTH «, t00=0x00e9, t01=0x0140}
0x16d56…16d6e Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00e9, t01=0x016c}
0x16d6e…16d90 Head {h00=0x001e, h01=0x0050, text=» CALL MOVING RESERVE SPACE«, t00=0x00e9, t01=0x0184}
0x16d90…16dc8 Head {h00=0x0034, h01=0x0050, text=» ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS«, t00=0x00ea, t01=0x0016}
0x16dc8…16de4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ea, t01=0x004e}
0x16de4…16e04 Head {h00=0x001c, h01=0x0050, text=» STR A5,A2 STORE LENGTH «, t00=0x00ea, t01=0x006a}
0x16e04…16e16 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00ea, t01=0x008a}
0x16e16…16e54 Head {h00=0x003a, h01=0x0050, text=» ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB «, t00=0x00ea, t01=0x009c}
0x16e54…16e82 Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE05,A13 GET LENGTH OF T:ATAB«, t00=0x00ea, t01=0x00da}
0x16e82…16e9a Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00ea, t01=0x0108}
0x16e9a…16ec8 Head {h00=0x002a, h01=0x0050, text=» CALL MOVING RESERVE SPACE FOR T:ATAB «, t00=0x00ea, t01=0x0120}
0x16ec8…16eee Head {h00=0x0022, h01=0x0050, text=» STR A5,A2 STORE T:ATAB LENGTH«, t00=0x00ea, t01=0x014e}
0x16eee…16f20 Head {h00=0x002e, h01=0x0050, text=» ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS «, t00=0x00ea, t01=0x0174}
0x16f20…16f32 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00eb, t01=0x0016}
0x16f32…16f5c Head {h00=0x0026, h01=0x0050, text=» ST A2,T:ATAB,A9 SAVE REAL ADDRESS«, t00=0x00eb, t01=0x0028}
0x16f5c…16f7e Head {h00=0x001e, h01=0x0050, text=»* RESERVE FOR T:AID TABLE «, t00=0x00eb, t01=0x0052}
0x16f7e…16f86 Head {h00=0x0004, h01=0x0050, t00=0x00eb, t01=0x0074}
0x16f86…16fa0 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A5 LENGTH «, t00=0x00eb, t01=0x007c}
0x16fa0…16fb4 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00eb, t01=0x0096}
0x16fb4…16fd4 Head {h00=0x001c, h01=0x0050, text=» STR A5,A2 STORE LENGTH «, t00=0x00eb, t01=0x00aa}
0x16fd4…16ffc Head {h00=0x0024, h01=0x0050, text=» ADK A2,2 ADJUST FOR LENGTH-WORD«, t00=0x00eb, t01=0x00ca}
0x16ffc…1702c Head {h00=0x002c, h01=0x0050, text=» ST A2,T:AID,A9 STORE ADDRESS IN P:MTAB «, t00=0x00eb, t01=0x00f2}
0x1702c…17038 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00eb, t01=0x0122}
0x17038…17054 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00eb, t01=0x012e}
0x17054…1707c Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 SET CORRECT TABLE «, t00=0x00eb, t01=0x014a}
0x1707c…1709c Head {h00=0x001c, h01=0x0050, text=» ESR A5,A2 STORE LENGTH «, t00=0x00eb, t01=0x0172}
0x1709c…170be (236, 0, 400) Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 SKIP LENGTH WORD«, t00=0x00ec, t01=0x0004}
0x170be…170e6 Head {h00=0x0024, h01=0x0050, text=» ES A2,U:BTAB,A9 STORE IN P:MTAB«, t00=0x00ec, t01=0x0026}
0x170e6…170f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ec, t01=0x004e}
0x170f2…1710e Head {h00=0x0018, h01=0x0050, text=» IFT SWPBLK+CREDIT=2«, t00=0x00ec, t01=0x005a}
0x1710e…17118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x0076}
0x17118…17146 Head {h00=0x002a, h01=0x0050, text=»* RESERV SPACE FOR REAL S:BTAB TABLE «, t00=0x00ec, t01=0x0080}
0x17146…17150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x00ae}
0x17150…17180 Head {h00=0x002c, h01=0x0050, text=» LD A3,SAVE25,A13 LENGTH OF REAL S:BTAB «, t00=0x00ec, t01=0x00b8}
0x17180…17198 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00ec, t01=0x00e8}
0x17198…171ac Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00ec, t01=0x0100}
0x171ac…171c6 Head {h00=0x0016, h01=0x0050, text=» ST A2,S:BTNW,A13 «, t00=0x00ec, t01=0x0114}
0x171c6…171d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ec, t01=0x012e}
0x171d2…171ee Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00ec, t01=0x013a}
0x171ee…17204 Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00ec, t01=0x0156}
0x17204…17216 Head {h00=0x000e, h01=0x0050, text=» ESR A5,A2«, t00=0x00ec, t01=0x016c}
0x17216…17228 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00ec, t01=0x017e}
0x17228…17240 Head {h00=0x0014, h01=0x0050, text=» ES A2,S:BTAB,A9«, t00=0x00ec, t01=0x0190}
0x17240…17254 Head {h00=0x0010, h01=0x0050, text=» CALL B:RSWT«, t00=0x00ed, t01=0x0018}
0x17254…17260 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ed, t01=0x002c}
0x17260…1727c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00ed, t01=0x0038}
0x1727c…1728e Head {h00=0x000e, h01=0x0050, text=» STR A5,A2«, t00=0x00ed, t01=0x0054}
0x1728e…172a0 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00ed, t01=0x0066}
0x172a0…172b8 Head {h00=0x0014, h01=0x0050, text=» ST A2,S:BTAB,A9«, t00=0x00ed, t01=0x0078}
0x172b8…172cc Head {h00=0x0010, h01=0x0050, text=» CALL B:RSWT«, t00=0x00ed, t01=0x0090}
0x172cc…172d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ed, t01=0x00a4}
0x172d8…172f4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ed, t01=0x00b0}
0x172f4…1731a Head {h00=0x0022, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE «, t00=0x00ed, t01=0x00cc}
0x1731a…17326 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ed, t01=0x00f2}
0x17326…1733c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ed, t01=0x00fe}
0x1733c…1734a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ed, t01=0x0114}
0x1734a…17356 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00ed, t01=0x0122}
0x17356…17378 Head {h00=0x001e, h01=0x0050, text=»* BUILD COMMON DATA AREA *«, t00=0x00ed, t01=0x012e}
0x17378…1739a Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x00ed, t01=0x0150}
0x1739a…173b2 Head {h00=0x0014, h01=0x0050, text=»* SEARCH CWB'S: «, t00=0x00ed, t01=0x0172}
0x173b2…173be Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00ed, t01=0x018a}
0x173be…173ea Head {h00=0x0028, h01=0x0050, text=» LD A8,T:ATOD,A13 GET T:ATAB ADDRESS«, t00=0x00ee, t01=0x0008}
0x173ea…17406 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ee, t01=0x0034}
0x17406…17424 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A8 GET LENGTH«, t00=0x00ee, t01=0x0050}
0x17424…17430 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ee, t01=0x006e}
0x17430…1744c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ee, t01=0x007a}
0x1744c…1746a Head {h00=0x001a, h01=0x0050, text=» ELR A3,A8 GET LENGTH «, t00=0x00ee, t01=0x0096}
0x1746a…17476 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ee, t01=0x00b4}
0x17476…1748c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ee, t01=0x00c0}
0x1748c…1749e Head {h00=0x000e, h01=0x0050, text=» ADR A3,A8«, t00=0x00ee, t01=0x00d6}
0x1749e…174d2 Head {h00=0x0030, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE END OF T:ATAB ADDRESS«, t00=0x00ee, t01=0x00e8}
0x174d2…174e6 Head {h00=0x0010, h01=0x0050, text=»SYA210 EQU *«, t00=0x00ee, t01=0x011c}
0x174e6…17510 Head {h00=0x0026, h01=0x0050, text=» CM UWB,A13 INDICATE CWB-SCANNING «, t00=0x00ee, t01=0x0130}
0x17510…17522 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x00ee, t01=0x015a}
0x17522…17546 Head {h00=0x0020, h01=0x0050, text=» CW A8,ENDADD,A13 ALL DONE? «, t00=0x00ee, t01=0x016c}
0x17546…17560 Head {h00=0x0016, h01=0x0050, text=» RF(E) CLADAT YES!«, t00=0x00ee, t01=0x0190}
0x17560…17588 Head {h00=0x0024, h01=0x0050, text=» CALL T:DADD T:D-ADDRESS TO A12 «, t00=0x00ef, t01=0x001a}
0x17588…175a4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ef, t01=0x0042}
0x175a4…175ca Head {h00=0x0022, h01=0x0050, text=» LD A7,CWBMSK,A12 GET CWB-MASK«, t00=0x00ef, t01=0x005e}
0x175ca…175d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ef, t01=0x0084}
0x175d6…175f2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ef, t01=0x0090}
0x175f2…1760c Head {h00=0x0016, h01=0x0050, text=» EL A7,CWBMSK,A12 «, t00=0x00ef, t01=0x00ac}
0x1760c…17618 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ef, t01=0x00c6}
0x17618…1762e Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ef, t01=0x00d2}
0x1762e…1764e Head {h00=0x001c, h01=0x0050, text=» CALL SHIFT SUPER-LOOPA «, t00=0x00ef, t01=0x00e8}
0x1764e…1766e Head {h00=0x001c, h01=0x0050, text=»SYA220 RF(Z) UWBCOM ALL!«, t00=0x00ef, t01=0x0108}
0x1766e…17682 Head {h00=0x0010, h01=0x0050, text=» CALL MOVCOM«, t00=0x00ef, t01=0x0128}
0x17682…17696 Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x00ef, t01=0x013c}
0x17696…176a8 Head {h00=0x000e, h01=0x0050, text=» RB SYA220«, t00=0x00ef, t01=0x0150}
0x176a8…176b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ef, t01=0x0162}
0x176b6…176c2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00ef, t01=0x0170}
0x176c2…176ce Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00ef, t01=0x017c}
0x176ce…176e2 Head {h00=0x0010, h01=0x0050, text=»UWBCOM EQU *«, t00=0x00ef, t01=0x0188}
0x176e2…176fa Head {h00=0x0014, h01=0x0050, text=»* SEARCH UWB'S: «, t00=0x00f0, t01=0x000c}
0x176fa…17704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x0024}
0x17704…1772e Head {h00=0x0026, h01=0x0050, text=» IM UWB,A13 INDICATE UWB-SCANNING «, t00=0x00f0, t01=0x002e}
0x1772e…1774a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f0, t01=0x0058}
0x1774a…17764 Head {h00=0x0016, h01=0x0050, text=» LD A7,UWBMSK,A12 «, t00=0x00f0, t01=0x0074}
0x17764…17770 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f0, t01=0x008e}
0x17770…1778c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f0, t01=0x009a}
0x1778c…177a6 Head {h00=0x0016, h01=0x0050, text=» EL A7,UWBMSK,A12 «, t00=0x00f0, t01=0x00b6}
0x177a6…177b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f0, t01=0x00d0}
0x177b2…177c8 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f0, t01=0x00dc}
0x177c8…177dc Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00f0, t01=0x00f2}
0x177dc…17802 Head {h00=0x0022, h01=0x0050, text=»SYA230 RB(Z) SYA210 ALL DONE! «, t00=0x00f0, t01=0x0106}
0x17802…1781c Head {h00=0x0016, h01=0x0050, text=»SYA235 CALL MOVCOM«, t00=0x00f0, t01=0x012c}
0x1781c…17836 Head {h00=0x0016, h01=0x0050, text=»SYA240 CALL SKIFTA«, t00=0x00f0, t01=0x0146}
0x17836…17848 Head {h00=0x000e, h01=0x0050, text=» RB SYA230«, t00=0x00f0, t01=0x0160}
0x17848…17856 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f0, t01=0x0172}
0x17856…17862 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f0, t01=0x0180}
0x17862…17890 Head {h00=0x002a, h01=0x0050, text=»* TASK CLASS DATA CONFIGURATION PART *«, t00=0x00f0, t01=0x018c}
0x17890…178be Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x00f1, t01=0x002a}
0x178be…178c6 Head {h00=0x0004, h01=0x0050, t00=0x00f1, t01=0x0058}
0x178c6…178da Head {h00=0x0010, h01=0x0050, text=»CLADAT EQU *«, t00=0x00f1, t01=0x0060}
0x178da…17912 Head {h00=0x0034, h01=0x0050, text=» LD A8,T:ATOD,A13 SET POINTER TO LENGTH INT:ATAB«, t00=0x00f1, t01=0x0074}
0x17912…1792e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f1, t01=0x00ac}
0x1792e…17954 Head {h00=0x0022, h01=0x0050, text=»SYA250 CM UWB,A13 INDICATE CWB«, t00=0x00f1, t01=0x00c8}
0x17954…17980 Head {h00=0x0028, h01=0x0050, text=» ADKL A8,2 STEP TO NEXT T:A ADDRESS «, t00=0x00f1, t01=0x00ee}
0x17980…1799a Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x00f1, t01=0x011a}
0x1799a…179be Head {h00=0x0020, h01=0x0050, text=» RF(E) SYA270 ALL T:A'S DONE«, t00=0x00f1, t01=0x0134}
0x179be…179ea Head {h00=0x0028, h01=0x0050, text=» CALL T:DADD GET T:D ADDRESS TO A12 «, t00=0x00f1, t01=0x0158}
0x179ea…179f2 Head {h00=0x0004, h01=0x0050, t00=0x00f1, t01=0x0184}
0x179f2…17a14 Head {h00=0x001e, h01=0x0050, text=»* CALCULATE LENGTH OF T:D «, t00=0x00f1, t01=0x018c}
0x17a14…17a1c Head {h00=0x0004, h01=0x0050, t00=0x00f2, t01=0x001e}
0x17a1c…17a52 Head {h00=0x0032, h01=0x0050, text=» LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB«, t00=0x00f2, t01=0x0026}
0x17a52…17a64 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00f2, t01=0x005c}
0x17a64…17a88 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE EVEN ADDRESS «, t00=0x00f2, t01=0x006e}
0x17a88…17ab4 Head {h00=0x0028, h01=0x0050, text=» ADK A1,DWBFST+4 ADD DISPL. TO FIRST«, t00=0x00f2, t01=0x0092}
0x17ab4…17ae2 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A1 GET NUMBER OF START-POINTS «, t00=0x00f2, t01=0x00be}
0x17ae2…17b06 Head {h00=0x0020, h01=0x0050, text=» ADR A3,A12 ADD T:D-ADDRESS «, t00=0x00f2, t01=0x00ec}
0x17b06…17b1c Head {h00=0x0012, h01=0x0050, text=» LDR* A3,A3 . «, t00=0x00f2, t01=0x0110}
0x17b1c…17b50 Head {h00=0x0030, h01=0x0050, text=» LDK A2,STPREC GET STARTPOINTS RECORD LENGTH«, t00=0x00f2, t01=0x0126}
0x17b50…17b70 Head {h00=0x001c, h01=0x0050, text=» CALL MULT AND MULTIPLY «, t00=0x00f2, t01=0x015a}
0x17b70…17b90 Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 'NUMBER-WORD' «, t00=0x00f2, t01=0x017a}
0x17b90…17bac Head {h00=0x0018, h01=0x0050, text=» ADR A3,A1 =>LENGTH «, t00=0x00f3, t01=0x000a}
0x17bac…17bcc Head {h00=0x001c, h01=0x0050, text=» LDR A1,A12 FROM-ADDRESS«, t00=0x00f3, t01=0x0026}
0x17bcc…17bea Head {h00=0x001a, h01=0x0050, text=» CALL MOVING MOVE T:D «, t00=0x00f3, t01=0x0046}
0x17bea…17c0e Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A ADDRESS «, t00=0x00f3, t01=0x0064}
0x17c0e…17c3c Head {h00=0x002a, h01=0x0050, text=» ST A2,T:DAD,A1 STORE NEW T:D ADDRESS «, t00=0x00f3, t01=0x0088}
0x17c3c…17c62 Head {h00=0x0022, h01=0x0050, text=» LD A7,CWBMSK,A12 GET CWBMASK «, t00=0x00f3, t01=0x00b6}
0x17c62…17c6e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f3, t01=0x00dc}
0x17c6e…17c8a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f3, t01=0x00e8}
0x17c8a…17cb6 Head {h00=0x0028, h01=0x0050, text=»* INITIATE MM-ADDRESS TABLE POINTER «, t00=0x00f3, t01=0x0104}
0x17cb6…17cbe Head {h00=0x0004, h01=0x0050, t00=0x00f3, t01=0x0130}
0x17cbe…17ce6 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTSFA SHADOW TABLE START«, t00=0x00f3, t01=0x0138}
0x17ce6…17d10 Head {h00=0x0026, h01=0x0050, text=» AD* A1,SCTSFA ADDRESS TABLE START«, t00=0x00f3, t01=0x0160}
0x17d10…17d2e Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE06,A13 SAVE«, t00=0x00f3, t01=0x018a}
0x17d2e…17d54 Head {h00=0x0022, h01=0x0050, text=»SYA250 CM UWB,A13 INDICATE CWB«, t00=0x00f4, t01=0x0018}
0x17d54…17d80 Head {h00=0x0028, h01=0x0050, text=» ADKL A8,2 STEP TO NEXT T:A ADDRESS «, t00=0x00f4, t01=0x003e}
0x17d80…17d9a Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x00f4, t01=0x006a}
0x17d9a…17dc0 Head {h00=0x0022, h01=0x0050, text=» RF(E) SYA270 ALL T:A'S DONE! «, t00=0x00f4, t01=0x0084}
0x17dc0…17de6 Head {h00=0x0022, h01=0x0050, text=» CALL GETTAB GET TTAB-ADDRESS «, t00=0x00f4, t01=0x00aa}
0x17de6…17e08 Head {h00=0x001e, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE«, t00=0x00f4, t01=0x00d0}
0x17e08…17e2e Head {h00=0x0022, h01=0x0050, text=»* FILL MM-TABLE ADDRESS TABLE «, t00=0x00f4, t01=0x00f2}
0x17e2e…17e36 Head {h00=0x0004, h01=0x0050, t00=0x00f4, t01=0x0118}
0x17e36…17e50 Head {h00=0x0016, h01=0x0050, text=» LD A1,SAVE06,A13 «, t00=0x00f4, t01=0x0120}
0x17e50…17e7a Head {h00=0x0026, h01=0x0050, text=» ADK A1,2 INCREMENT TABLE POINTER «, t00=0x00f4, t01=0x013a}
0x17e7a…17e9c Head {h00=0x001e, h01=0x0050, text=» ST A1,SAVE06,A13 RESTORE «, t00=0x00f4, t01=0x0164}
0x17e9c…17eba Head {h00=0x001a, h01=0x0050, text=» STR A2,A1 FILL TABLE «, t00=0x00f4, t01=0x0186}
0x17eba…17ee6 Head {h00=0x0028, h01=0x0050, text=» CALL T:DADD GET T:D ADDRESS TO A12 «, t00=0x00f5, t01=0x0014}
0x17ee6…17f1e Head {h00=0x0034, h01=0x0050, text=» ST A12,T:DSAV,A9 SAVE 'OLD' T:D-ADDRESS IN TTAB«, t00=0x00f5, t01=0x0040}
0x17f1e…17f26 Head {h00=0x0004, h01=0x0050, t00=0x00f5, t01=0x0078}
0x17f26…17f48 Head {h00=0x001e, h01=0x0050, text=»* CALCULATE LENGTH OF T:D «, t00=0x00f5, t01=0x0080}
0x17f48…17f50 Head {h00=0x0004, h01=0x0050, t00=0x00f5, t01=0x00a2}
0x17f50…17f86 Head {h00=0x0032, h01=0x0050, text=» EL A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB«, t00=0x00f5, t01=0x00aa}
0x17f86…17f98 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00f5, t01=0x00e0}
0x17f98…17fbc Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE EVEN ADDRESS «, t00=0x00f5, t01=0x00f2}
0x17fbc…17fe8 Head {h00=0x0028, h01=0x0050, text=» ADK A1,DWBFST+4 ADD DISPL. TO FIRST«, t00=0x00f5, t01=0x0116}
0x17fe8…18018 Head {h00=0x002c, h01=0x0050, text=» LDR A3,A1 GET NUMB. OF START-POINTS... «, t00=0x00f5, t01=0x0142}
0x18018…1802e Head {h00=0x0012, h01=0x0050, text=» ADR A3,A12 . «, t00=0x00f5, t01=0x0172}
0x1802e…18042 Head {h00=0x0010, h01=0x0050, text=» ELR A3,A3 .«, t00=0x00f5, t01=0x0188}
0x18042…18076 Head {h00=0x0030, h01=0x0050, text=» LDK A2,STPREC GET STARTPOINTS RECORD LENGTH«, t00=0x00f6, t01=0x000c}
0x18076…18096 Head {h00=0x001c, h01=0x0050, text=» CALL MULT AND MULTIPLY «, t00=0x00f6, t01=0x0040}
0x18096…180b6 Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 'NUMBER-WORD' «, t00=0x00f6, t01=0x0060}
0x180b6…180d2 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A1 =>LENGTH «, t00=0x00f6, t01=0x0080}
0x180d2…180f2 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A12 FROM-ADDRESS«, t00=0x00f6, t01=0x009c}
0x180f2…18110 Head {h00=0x001a, h01=0x0050, text=» CALL MOVING MOVE T:D «, t00=0x00f6, t01=0x00bc}
0x18110…18132 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A ADDRESS«, t00=0x00f6, t01=0x00da}
0x18132…18160 Head {h00=0x002a, h01=0x0050, text=» ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS «, t00=0x00f6, t01=0x00fc}
0x18160…18186 Head {h00=0x0022, h01=0x0050, text=» EL A7,CWBMSK,A12 GET CWBMASK «, t00=0x00f6, t01=0x012a}
0x18186…18192 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f6, t01=0x0150}
0x18192…181a8 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f6, t01=0x015c}
0x181a8…181bc Head {h00=0x0010, h01=0x0050, text=» CALL MOVCLA«, t00=0x00f6, t01=0x0172}
0x181bc…181ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f6, t01=0x0186}
0x181ca…181d6 (247, 0, 400) Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f7, t01=0x0004}
0x181d6…181e2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f7, t01=0x0010}
0x181e2…18204 Head {h00=0x001e, h01=0x0050, text=»* TASK CLASS DATA UWB'S * «, t00=0x00f7, t01=0x001c}
0x18204…18226 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x00f7, t01=0x003e}
0x18226…18250 Head {h00=0x0026, h01=0x0050, text=» IM UWB,A13 INDICATE UWB SCANNING «, t00=0x00f7, t01=0x0060}
0x18250…1826c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f7, t01=0x008a}
0x1826c…18292 Head {h00=0x0022, h01=0x0050, text=» LD A7,UWBMSK,A12 GET UWBMASK «, t00=0x00f7, t01=0x00a6}
0x18292…1829e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f7, t01=0x00cc}
0x1829e…182ba Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f7, t01=0x00d8}
0x182ba…182d4 Head {h00=0x0016, h01=0x0050, text=» EL A7,UWBMSK,A12 «, t00=0x00f7, t01=0x00f4}
0x182d4…182e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f7, t01=0x010e}
0x182e0…182f6 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f7, t01=0x011a}
0x182f6…1830a Head {h00=0x0010, h01=0x0050, text=» CALL MOVCLA«, t00=0x00f7, t01=0x0130}
0x1830a…18318 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f7, t01=0x0144}
0x18318…18324 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f7, t01=0x0152}
0x18324…18330 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f7, t01=0x015e}
0x18330…18356 Head {h00=0x0022, h01=0x0050, text=»* MOVE DT:S OF SWB'S & TWB'S *«, t00=0x00f7, t01=0x016a}
0x18356…1837c Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x00f7, t01=0x0190}
0x1837c…18384 Head {h00=0x0004, h01=0x0050, t00=0x00f8, t01=0x0026}
0x18384…18398 Head {h00=0x0010, h01=0x0050, text=»SYA260 EQU *«, t00=0x00f8, t01=0x002e}
0x18398…183b4 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f8, t01=0x0042}
0x183b4…183ce Head {h00=0x0016, h01=0x0050, text=» LD A7,SWBMSK,A12 «, t00=0x00f8, t01=0x005e}
0x183ce…183e8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA265 NONE«, t00=0x00f8, t01=0x0078}
0x183e8…183fc Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00f8, t01=0x0092}
0x183fc…1841c Head {h00=0x001c, h01=0x0050, text=»SYA265 LD A7,TWBMSK,A12 «, t00=0x00f8, t01=0x00a6}
0x1841c…18428 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f8, t01=0x00c6}
0x18428…18444 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f8, t01=0x00d2}
0x18444…1845e Head {h00=0x0016, h01=0x0050, text=» EL A7,SWBMSK,A12 «, t00=0x00f8, t01=0x00ee}
0x1845e…18478 Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA265 NONE«, t00=0x00f8, t01=0x0108}
0x18478…1848c Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00f8, t01=0x0122}
0x1848c…184ac Head {h00=0x001c, h01=0x0050, text=»SYA265 EL A7,TWBMSK,A12 «, t00=0x00f8, t01=0x0136}
0x184ac…184b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f8, t01=0x0156}
0x184b8…184ce Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f8, t01=0x0162}
0x184ce…184e4 Head {h00=0x0012, h01=0x0050, text=» RB(Z) SYA250 «, t00=0x00f8, t01=0x0178}
0x184e4…184f8 Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00f8, t01=0x018e}
0x184f8…1850a Head {h00=0x000e, h01=0x0050, text=» RB SYA250«, t00=0x00f9, t01=0x0012}
0x1850a…18516 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f9, t01=0x0024}
0x18516…1852e Head {h00=0x0014, h01=0x0050, text=»SYA270 RF PRODAT«, t00=0x00f9, t01=0x0030}
0x1852e…1853c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f9, t01=0x0048}
0x1853c…18548 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f9, t01=0x0056}
0x18548…18554 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f9, t01=0x0062}
0x18554…1858c Head {h00=0x0034, h01=0x0050, text=»** S K R I T T ** «, t00=0x00f9, t01=0x006e}
0x1858c…185c4 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x00f9, t01=0x00a6}
0x185c4…185fc Head {h00=0x0034, h01=0x0050, text=»** MOVE D.T ** «, t00=0x00f9, t01=0x00de}
0x185fc…18634 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x00f9, t01=0x0116}
0x18634…1866c Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00f9, t01=0x014e}
0x1866c…18680 Head {h00=0x0010, h01=0x0050, text=»SKRITT EQU *«, t00=0x00f9, t01=0x0186}
0x18680…18694 Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00fa, t01=0x000a}
0x18694…186aa Head {h00=0x0012, h01=0x0050, text=»NO RF(NZ) NES «, t00=0x00fa, t01=0x001e}
0x186aa…186ba Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00fa, t01=0x0034}
0x186ba…186d0 Head {h00=0x0012, h01=0x0050, text=»NES CALL GETWB«, t00=0x00fa, t01=0x0044}
0x186d0…186e4 Head {h00=0x0010, h01=0x0050, text=» CALL MOVDT «, t00=0x00fa, t01=0x005a}
0x186e4…18716 Head {h00=0x002e, h01=0x0050, text=» CM NEWAD2,A13 NO NEW W.B.-ADDRESS (YET!) «, t00=0x00fa, t01=0x006e}
0x18716…1872a Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00fa, t01=0x00a0}
0x1872a…1873e Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x00fa, t01=0x00b4}
0x1873e…1874c Head {h00=0x000a, h01=0x0050, text=» RB NO«, t00=0x00fa, t01=0x00c8}
0x1874c…1875a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fa, t01=0x00d6}
0x1875a…18766 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fa, t01=0x00e4}
0x18766…18790 Head {h00=0x0026, h01=0x0050, text=»* BUILD TASKDATA PROTOTYPE AREA * «, t00=0x00fa, t01=0x00f0}
0x18790…187ba Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00fa, t01=0x011a}
0x187ba…187ce Head {h00=0x0010, h01=0x0050, text=»PRODAT EQU *«, t00=0x00fa, t01=0x0144}
0x187ce…187e0 Head {h00=0x000e, h01=0x0050, text=» =00001«, t00=0x00fa, t01=0x0158}
0x187e0…18810 Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE02,A13 BUGGER TASK INCLUDED? «, t00=0x00fa, t01=0x016a}
0x18810…1882a Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA275 NO! «, t00=0x00fb, t01=0x000a}
0x1882a…18860 Head {h00=0x0032, h01=0x0050, text=» CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 «, t00=0x00fb, t01=0x0024}
0x18860…1888a Head {h00=0x0026, h01=0x0050, text=» CM TTB:PP,A2 CLEAR TCL SAVE AREA «, t00=0x00fb, t01=0x005a}
0x1888a…188ae Head {h00=0x0020, h01=0x0050, text=» IFT CREDIT+MMUPAG=2 =00001«, t00=0x00fb, t01=0x0084}
0x188ae…188d0 Head {h00=0x001e, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE«, t00=0x00fb, t01=0x00a8}
0x188d0…188e6 Head {h00=0x0012, h01=0x0050, text=» XIF =00001 «, t00=0x00fb, t01=0x00ca}
0x188e6…18904 Head {h00=0x001a, h01=0x0050, text=» IFF CREDIT=0 =00001 «, t00=0x00fb, t01=0x00e0}
0x18904…18918 Head {h00=0x0010, h01=0x0050, text=»SYA275 EQU *«, t00=0x00fb, t01=0x00fe}
0x18918…1892a Head {h00=0x000e, h01=0x0050, text=» =00001«, t00=0x00fb, t01=0x0112}
0x1892a…1893c Head {h00=0x000e, h01=0x0050, text=» =00001«, t00=0x00fb, t01=0x0124}
0x1893c…18970 Head {h00=0x0030, h01=0x0050, text=» IM SWITCH,A13 INDICATE: -NO MORE D.T. MOVE!«, t00=0x00fb, t01=0x0136}
0x18970…18998 Head {h00=0x0024, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB ADDRESS«, t00=0x00fb, t01=0x016a}
0x18998…189b0 (252, 0, 400) Head {h00=0x0014, h01=0x0050, text=»SYA280 ADKL A8,2«, t00=0x00fc, t01=0x0004}
0x189b0…189ca Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x00fc, t01=0x001c}
0x189ca…189e8 Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA290 ALL DONE«, t00=0x00fc, t01=0x0036}
0x189e8…18a04 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00fc, t01=0x0054}
0x18a04…18a2a Head {h00=0x0022, h01=0x0050, text=» LDR* A12,A8 GET T:D ADDRESS..«, t00=0x00fc, t01=0x0070}
0x18a2a…18a46 Head {h00=0x0018, h01=0x0050, text=» LD A12,T:DAD,A12 . «, t00=0x00fc, t01=0x0096}
0x18a46…18a7a Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x00fc, t01=0x00b2}
0x18a7a…18a86 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fc, t01=0x00e6}
0x18a86…18aac Head {h00=0x0022, h01=0x0050, text=»* CALCULATE LENGTH OF DSCB'S *«, t00=0x00fc, t01=0x00f2}
0x18aac…18ad2 Head {h00=0x0022, h01=0x0050, text=»*** ***«, t00=0x00fc, t01=0x0118}
0x18ad2…18ade Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00fc, t01=0x013e}
0x18ade…18b02 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x00fc, t01=0x014a}
0x18b02…18b2c Head {h00=0x0026, h01=0x0050, text=» LD A3,DATLEN,A12 A12=T:D-ADDRESS «, t00=0x00fc, t01=0x016e}
0x18b2c…18b4e Head {h00=0x001e, h01=0x0050, text=» LDK A2,DSCBL DSCB-LENGTH «, t00=0x00fd, t01=0x0008}
0x18b4e…18b7a Head {h00=0x0028, h01=0x0050, text=» CALL MULT A3() X (A2) RESULT IN A3 «, t00=0x00fd, t01=0x002a}
0x18b7a…18ba4 Head {h00=0x0026, h01=0x0050, text=» ST A3,CSN,A1 SAVE LENG OF DSCB'S «, t00=0x00fd, t01=0x0056}
0x18ba4…18bd0 Head {h00=0x0028, h01=0x0050, text=» LD A2,FCD,A12 GET FCB-DISPLACEMENT «, t00=0x00fd, t01=0x0080}
0x18bd0…18bf2 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SYA285 FCB PRESENT«, t00=0x00fd, t01=0x00ac}
0x18bf2…18c1c Head {h00=0x0026, h01=0x0050, text=» SUR A2,A3 MOVD30E A3(DSCB-LENGTH)«, t00=0x00fd, t01=0x00ce}
0x18c1c…18c4c Head {h00=0x002c, h01=0x0050, text=» ADKL A2,T:ASTA INCREMENT TO FIRST WORD «, t00=0x00fd, t01=0x00f8}
0x18c4c…18c86 Head {h00=0x0036, h01=0x0050, text=»SYA285 ST A2,CIA,A1 SAVE DISPLACEMENT TO T:A-START«, t00=0x00fd, t01=0x0128}
0x18c86…18cac Head {h00=0x0022, h01=0x0050, text=» LD A2,STKB,A1 GET STACK SIZE «, t00=0x00fd, t01=0x0162}
0x18cac…18cd4 Head {h00=0x0024, h01=0x0050, text=» ST A2,CSE,A1 AND SAVE TEMPORARY«, t00=0x00fd, t01=0x0188}
0x18cd4…18d02 Head {h00=0x002a, h01=0x0050, text=» LD A2,SCTLAC GET START OF COMMON PART«, t00=0x00fe, t01=0x0020}
0x18d02…18d24 Head {h00=0x001e, h01=0x0050, text=» LD A2,P:BAS,A2 GET P:BAS «, t00=0x00fe, t01=0x004e}
0x18d24…18d42 Head {h00=0x001a, h01=0x0050, text=» ST A2,CSB,A1 AND SAVE«, t00=0x00fe, t01=0x0070}
0x18d42…18d68 Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x00fe, t01=0x008e}
0x18d68…18d86 Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x00fe, t01=0x00b4}
0x18d86…18db4 Head {h00=0x002a, h01=0x0050, text=» STR A2,A8 STORE NEW ADDRESS IN T:ATAB«, t00=0x00fe, t01=0x00d2}
0x18db4…18dc0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fe, t01=0x0100}
0x18dc0…18ddc Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00fe, t01=0x010c}
0x18ddc…18e0a Head {h00=0x002a, h01=0x0050, text=» CALL GETTAB SET CORRECT TTAB-ADDRESS «, t00=0x00fe, t01=0x0128}
0x18e0a…18e3a Head {h00=0x002c, h01=0x0050, text=» LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS «, t00=0x00fe, t01=0x0156}
0x18e3a…18e42 Head {h00=0x0004, h01=0x0050, t00=0x00fe, t01=0x0186}
0x18e42…18e78 Head {h00=0x0032, h01=0x0050, text=»* GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE «, t00=0x00fe, t01=0x018e}
0x18e78…18e80 Head {h00=0x0004, h01=0x0050, t00=0x00ff, t01=0x0034}
0x18e80…18eac Head {h00=0x0028, h01=0x0050, text=» TL MMBEG,A2 LOAD CLASS LOCAL TABLE «, t00=0x00ff, t01=0x003c}
0x18eac…18eda Head {h00=0x002a, h01=0x0050, text=» LDKL A3,MMTAB GET WORK TABLE ADDRESS «, t00=0x00ff, t01=0x0068}
0x18eda…18eee Head {h00=0x0010, h01=0x0050, text=» ADR A3,A13 «, t00=0x00ff, t01=0x0096}
0x18eee…18f16 Head {h00=0x0024, h01=0x0050, text=» TSR A3 STORE TABLE IN WORK-AREA«, t00=0x00ff, t01=0x00aa}
0x18f16…18f3e Head {h00=0x0024, h01=0x0050, text=» TL MMDDIV,A13 RELOAD DDIV TABLE«, t00=0x00ff, t01=0x00d2}
0x18f3e…18f5c Head {h00=0x001a, h01=0x0050, text=» CALL MMENT GET ENTRY «, t00=0x00ff, t01=0x00fa}
0x18f5c…18f82 Head {h00=0x0022, h01=0x0050, text=» ST A3,T:DSAV,A2 SAVE IN TTAB «, t00=0x00ff, t01=0x0118}
0x18f82…18fb6 Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x00ff, t01=0x013e}
0x18fb6…18fdc Head {h00=0x0022, h01=0x0050, text=»* CALCULATE LENGTH OF DSCB'S *«, t00=0x00ff, t01=0x0172}
0x18fdc…19002 Head {h00=0x0022, h01=0x0050, text=»*** ***«, t00=0x0100, t01=0x0008}
0x19002…1900e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0100, t01=0x002e}
0x1900e…19030 Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0100, t01=0x003a}
0x19030…1905a Head {h00=0x0026, h01=0x0050, text=» EL A3,DATLEN,A12 A12=T:D-ADDRESS «, t00=0x0100, t01=0x005c}
0x1905a…1907c Head {h00=0x001e, h01=0x0050, text=» LDK A2,DSCBL DSCB-LENGTH «, t00=0x0100, t01=0x0086}
0x1907c…190a8 Head {h00=0x0028, h01=0x0050, text=» CALL MULT A3() X (A2) RESULT IN A3 «, t00=0x0100, t01=0x00a8}
0x190a8…190d2 Head {h00=0x0026, h01=0x0050, text=» ES A3,CSN,A1 SAVE LENG OF DSCB'S «, t00=0x0100, t01=0x00d4}
0x190d2…190fe Head {h00=0x0028, h01=0x0050, text=» EL A2,FCD,A12 GET FCB-DISPLACEMENT «, t00=0x0100, t01=0x00fe}
0x190fe…19120 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SYA285 FCB PRESENT«, t00=0x0100, t01=0x012a}
0x19120…1914a Head {h00=0x0026, h01=0x0050, text=» SUR A2,A3 MOVD30E A3(DSCB-LENGTH)«, t00=0x0100, t01=0x014c}
0x1914a…1917a Head {h00=0x002c, h01=0x0050, text=» ADKL A2,T:ASTA INCREMENT TO FIRST WORD «, t00=0x0100, t01=0x0176}
0x1917a…191b4 Head {h00=0x0036, h01=0x0050, text=»SYA285 ES A2,CIA,A1 SAVE DISPLACEMENT TO T:A-ESART«, t00=0x0101, t01=0x0016}
0x191b4…191da Head {h00=0x0022, h01=0x0050, text=» EL A2,STKB,A1 GET STACK SIZE «, t00=0x0101, t01=0x0050}
0x191da…19204 Head {h00=0x0026, h01=0x0050, text=» ES A2,CSE,A1 AND SAVE (TEMPORARY)«, t00=0x0101, t01=0x0076}
0x19204…1922e Head {h00=0x0026, h01=0x0050, text=» LD A2,SCTLAC GET START OF P:MTAB «, t00=0x0101, t01=0x00a0}
0x1922e…19256 Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 LOAD CORRECT TABLE«, t00=0x0101, t01=0x00ca}
0x19256…19278 Head {h00=0x001e, h01=0x0050, text=» EL A2,P:BAS,A2 GET P:BAS «, t00=0x0101, t01=0x00f2}
0x19278…192a2 Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD DDIV TABLE «, t00=0x0101, t01=0x0114}
0x192a2…192c0 Head {h00=0x001a, h01=0x0050, text=» ES A2,CSB,A1 AND SAVE«, t00=0x0101, t01=0x013e}
0x192c0…192e6 Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x0101, t01=0x015c}
0x192e6…19304 Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x0101, t01=0x0182}
0x19304…19332 Head {h00=0x002a, h01=0x0050, text=» ESR A2,A8 STORE NEW ADDRESS IN T:ATAB«, t00=0x0102, t01=0x0010}
0x19332…1933e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0102, t01=0x003e}
0x1933e…19354 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0102, t01=0x004a}
0x19354…1936c Head {h00=0x0014, h01=0x0050, text=» RB SYA280 NEXT «, t00=0x0102, t01=0x0060}
0x1936c…1937a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0102, t01=0x0078}
0x1937a…1938e Head {h00=0x0010, h01=0x0050, text=»SYA290 EQU *«, t00=0x0102, t01=0x0086}
0x1938e…193c6 Head {h00=0x0034, h01=0x0050, text=» IM FLAG,A13 INDICATE REAL DATA-PART PROCESSING «, t00=0x0102, t01=0x009a}
0x193c6…193f6 Head {h00=0x002c, h01=0x0050, text=»* INCLUDE DDIV AND PART 2.A IN FREE AREA«, t00=0x0102, t01=0x00d2}
0x193f6…193fe Head {h00=0x0004, h01=0x0050, t00=0x0102, t01=0x0102}
0x193fe…19430 Head {h00=0x002e, h01=0x0050, text=» LDKL A2,PART2A NEW (RELATIVE) END ADDRESS«, t00=0x0102, t01=0x010a}
0x19430…19450 Head {h00=0x001c, h01=0x0050, text=» ADR A2,A13 ABSOLUT DITO«, t00=0x0102, t01=0x013c}
0x19450…1946c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0102, t01=0x015c}
0x1946c…1947e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0102, t01=0x0178}
0x1947e…19494 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/F000«, t00=0x0102, t01=0x018a}
0x19494…194bc Head {h00=0x0024, h01=0x0050, text=» SRL A3,2 GET NEW PHYSICALL PAGE«, t00=0x0103, t01=0x0010}
0x194bc…194da Head {h00=0x001a, h01=0x0050, text=» ST A3,FSTPAG,A13 SAVE«, t00=0x0103, t01=0x0038}
0x194da…19506 Head {h00=0x0028, h01=0x0050, text=» ANKL A2,/FFF GET NEW PAGE INCREMENT«, t00=0x0103, t01=0x0056}
0x19506…19524 Head {h00=0x001a, h01=0x0050, text=» ST A2,FSTADR,A13 SAVE«, t00=0x0103, t01=0x0082}
0x19524…1953a Head {h00=0x0012, h01=0x0050, text=»* MOVE T:ATAB «, t00=0x0103, t01=0x00a0}
0x1953a…19542 Head {h00=0x0004, h01=0x0050, t00=0x0103, t01=0x00b6}
0x19542…19570 Head {h00=0x002a, h01=0x0050, text=» LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS«, t00=0x0103, t01=0x00be}
0x19570…1957c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0103, t01=0x00ec}
0x1957c…19598 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0103, t01=0x00f8}
0x19598…195c6 Head {h00=0x002a, h01=0x0050, text=» ST A2,DATEND,A13 SAVE NEW END ADDRESS«, t00=0x0103, t01=0x0114}
0x195c6…195dc Head {h00=0x0012, h01=0x0050, text=»* MOVE T:ATAB «, t00=0x0103, t01=0x0142}
0x195dc…195e4 Head {h00=0x0004, h01=0x0050, t00=0x0103, t01=0x0158}
0x195e4…19616 Head {h00=0x002e, h01=0x0050, text=» LD A2,T:ATNW,A13 GET REAL T:A-TAB ADDRESS«, t00=0x0103, t01=0x0160}
0x19616…19636 (260, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A2 REAL LENGTH «, t00=0x0104, t01=0x0004}
0x19636…1965e Head {h00=0x0024, h01=0x0050, text=» ADR A2,A1 END OF TABLE ADDRESS «, t00=0x0104, t01=0x0024}
0x1965e…1967c Head {h00=0x001a, h01=0x0050, text=» ST A2,ENDADD,A13 SAVE«, t00=0x0104, t01=0x004c}
0x1967c…196a6 Head {h00=0x0026, h01=0x0050, text=» LD A1,T:ATOD,A13 GET FROM-ADDRESS«, t00=0x0104, t01=0x006a}
0x196a6…196c6 Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A1 MOVE-LENGTH «, t00=0x0104, t01=0x0094}
0x196c6…196e4 Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x0104, t01=0x00b4}
0x196e4…19702 Head {h00=0x001a, h01=0x0050, text=» ST A2,T:ATOD,A13 SAVE«, t00=0x0104, t01=0x00d2}
0x19702…19714 Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0104, t01=0x00f0}
0x19714…19720 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0104, t01=0x0102}
0x19720…1973c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0104, t01=0x010e}
0x1973c…19764 Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 LOAD CORRECT TABLE«, t00=0x0104, t01=0x012a}
0x19764…1978e Head {h00=0x0026, h01=0x0050, text=» ELR A1,A2 GET REAL T:ATAB LENGTH «, t00=0x0104, t01=0x0152}
0x1978e…197b2 Head {h00=0x0020, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE«, t00=0x0104, t01=0x017c}
0x197b2…197d0 Head {h00=0x001a, h01=0x0050, text=» ADR A2,A1 END ADDRESS«, t00=0x0105, t01=0x0010}
0x197d0…19808 Head {h00=0x0034, h01=0x0050, text=» ST A2,ENDADD,A13 SAVE 'END-OF-T:ATAB-CONDITION'«, t00=0x0105, t01=0x002e}
0x19808…19836 Head {h00=0x002a, h01=0x0050, text=» LD A1,T:ATOD,A13 GET PROTOTYP T:ATAB «, t00=0x0105, t01=0x0066}
0x19836…19854 Head {h00=0x001a, h01=0x0050, text=» ELR A3,A1 GET LENGTH «, t00=0x0105, t01=0x0094}
0x19854…19872 Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x0105, t01=0x00b2}
0x19872…19890 Head {h00=0x001a, h01=0x0050, text=» ST A2,T:ATOD,A13 SAVE«, t00=0x0105, t01=0x00d0}
0x19890…198a4 Head {h00=0x0010, h01=0x0050, text=» CALL XMOVE «, t00=0x0105, t01=0x00ee}
0x198a4…198b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0105, t01=0x0102}
0x198b0…198c6 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0105, t01=0x010e}
0x198c6…198ce Head {h00=0x0004, h01=0x0050, t00=0x0105, t01=0x0124}
0x198ce…198ee Head {h00=0x001c, h01=0x0050, text=»* CONTINUE IN PART 2.B *«, t00=0x0105, t01=0x012c}
0x198ee…198f6 Head {h00=0x0004, h01=0x0050, t00=0x0105, t01=0x014c}
0x198f6…19924 Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PART2B RELATIVE START ADDRESS«, t00=0x0105, t01=0x0154}
0x19924…19948 Head {h00=0x0020, h01=0x0050, text=» ADR A5,A13 ADD BASE ADDRESS«, t00=0x0105, t01=0x0182}
0x19948…19958 Head {h00=0x000c, h01=0x0050, text=» ABR A5 «, t00=0x0106, t01=0x0016}
0x19958…19982 Head {h00=0x0026, h01=0x0050, text=»LENGT2 EQU *-REL LENGTH OF PART 2 «, t00=0x0106, t01=0x0026}
0x19982…19990 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0106, t01=0x0050}
0x19990…1999c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0106, t01=0x005e}
0x1999c…199a8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0106, t01=0x006a}
0x199a8…199de Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0106, t01=0x0076}
0x199de…19a14 Head {h00=0x0032, h01=0x0050, text=»******* ******* «, t00=0x0106, t01=0x00ac}
0x19a14…19a4a Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x0106, t01=0x00e2}
0x19a4a…19a80 Head {h00=0x0032, h01=0x0050, text=»* SYSLOAD PART 1 * «, t00=0x0106, t01=0x0118}
0x19a80…19ab6 Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x0106, t01=0x014e}
0x19ab6…19aec Head {h00=0x0032, h01=0x0050, text=»***** ***** «, t00=0x0106, t01=0x0184}
0x19aec…19b22 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0107, t01=0x002a}
0x19b22…19b2e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0107, t01=0x0060}
0x19b2e…19b64 Head {h00=0x0032, h01=0x0050, text=»* READ CONFIGURATION FILE & BUILD * «, t00=0x0107, t01=0x006c}
0x19b64…19b9a Head {h00=0x0032, h01=0x0050, text=»* SHADOW-TABLES * «, t00=0x0107, t01=0x00a2}
0x19b9a…19bd0 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0107, t01=0x00d8}
0x19bd0…19c06 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0107, t01=0x010e}
0x19c06…19c12 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0107, t01=0x0144}
0x19c12…19c1e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0107, t01=0x0150}
0x19c1e…19c2a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0107, t01=0x015c}
0x19c2a…19c36 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0107, t01=0x0168}
0x19c36…19c64 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0107, t01=0x0174}
0x19c64…19c92 Head {h00=0x002a, h01=0x0050, text=»*** *** «, t00=0x0108, t01=0x0012}
0x19c92…19cc0 Head {h00=0x002a, h01=0x0050, text=»** S U B R O U T I N E S ** «, t00=0x0108, t01=0x0040}
0x19cc0…19cec Head {h00=0x0028, h01=0x0050, text=»** -USED IN THIS PART ONLY *«, t00=0x0108, t01=0x006e}
0x19cec…19d1a Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0108, t01=0x009a}
0x19d1a…19d28 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0108, t01=0x00c8}
0x19d28…19d34 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0108, t01=0x00d6}
0x19d34…19d40 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0108, t01=0x00e2}
0x19d40…19d7a Head {h00=0x0036, h01=0x0050, text=»** C O N V R T **«, t00=0x0108, t01=0x00ee}
0x19d7a…19db4 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0108, t01=0x0128}
0x19db4…19dee Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0108, t01=0x0162}
0x19dee…19e28 Head {h00=0x0036, h01=0x0050, text=»** CONVERSION OF TWO ASCII-DIGITS TO BINARY **«, t00=0x0109, t01=0x000c}
0x19e28…19e62 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x0109, t01=0x0046}
0x19e62…19e9c Head {h00=0x0036, h01=0x0050, text=»** INPUT : A5=ASCII DIGITS **«, t00=0x0109, t01=0x0080}
0x19e9c…19ed6 Head {h00=0x0036, h01=0x0050, text=»** OUTPUT: A1=BINARY RESULT **«, t00=0x0109, t01=0x00ba}
0x19ed6…19f10 Head {h00=0x0036, h01=0x0050, text=»** WORK.REGS: A3,A2 **«, t00=0x0109, t01=0x00f4}
0x19f10…19f4a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0109, t01=0x012e}
0x19f4a…19f56 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0109, t01=0x0168}
0x19f56…19f6a Head {h00=0x0010, h01=0x0050, text=»CONVRT EQU *«, t00=0x0109, t01=0x0174}
0x19f6a…19f8c Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 CLEAR RESULT REG«, t00=0x0109, t01=0x0188}
0x19f8c…19f9e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x010a, t01=0x001a}
0x19f9e…19fba Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 GET TEN'S «, t00=0x010a, t01=0x002c}
0x19fba…19fce Head {h00=0x0010, h01=0x0050, text=» SUK A3,/30 «, t00=0x010a, t01=0x0048}
0x19fce…19fe0 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x010a, t01=0x005c}
0x19fe0…19ffe Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 MULT BY 10 «, t00=0x010a, t01=0x006e}
0x19ffe…1a012 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A1 .«, t00=0x010a, t01=0x008c}
0x1a012…1a026 Head {h00=0x0010, h01=0x0050, text=» SLL A2,3 . «, t00=0x010a, t01=0x00a0}
0x1a026…1a03e Head {h00=0x0014, h01=0x0050, text=» ADR A1,A2 .... «, t00=0x010a, t01=0x00b4}
0x1a03e…1a050 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x010a, t01=0x00cc}
0x1a050…1a06c Head {h00=0x0018, h01=0x0050, text=» ANK A3,/F GET ONE'S«, t00=0x010a, t01=0x00de}
0x1a06c…1a07e Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x010a, t01=0x00fa}
0x1a07e…1a08e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x010a, t01=0x010c}
0x1a08e…1a09c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010a, t01=0x011c}
0x1a09c…1a0a4 Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x012a}
0x1a0a4…1a0de Head {h00=0x0036, h01=0x0050, text=»** N X T B L K **«, t00=0x010a, t01=0x0132}
0x1a0de…1a118 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x010a, t01=0x016c}
0x1a118…1a152 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x010b, t01=0x0016}
0x1a152…1a18c Head {h00=0x0036, h01=0x0050, text=»** SKIP TO NEXT BLOCK IN CONFIGURATION FILE **«, t00=0x010b, t01=0x0050}
0x1a18c…1a1c6 Head {h00=0x0036, h01=0x0050, text=»** **«, t00=0x010b, t01=0x008a}
0x1a1c6…1a200 Head {h00=0x0036, h01=0x0050, text=»** INPUT: A11=ADDRESS TO CURRENT BLOCK-START **«, t00=0x010b, t01=0x00c4}
0x1a200…1a23a Head {h00=0x0036, h01=0x0050, text=»** OUTPUT:A11=ADDRESS TO NEXT BLOCK **«, t00=0x010b, t01=0x00fe}
0x1a23a…1a274 Head {h00=0x0036, h01=0x0050, text=»** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE **«, t00=0x010b, t01=0x0138}
0x1a274…1a2ae Head {h00=0x0036, h01=0x0050, text=»** WORKREGS: A1,A3-A5 **«, t00=0x010b, t01=0x0172}
0x1a2ae…1a2e8 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x010c, t01=0x001c}
0x1a2e8…1a2f0 Head {h00=0x0004, h01=0x0050, t00=0x010c, t01=0x0056}
0x1a2f0…1a304 Head {h00=0x0010, h01=0x0050, text=»NXTBLK EQU *«, t00=0x010c, t01=0x005e}
0x1a304…1a33e Head {h00=0x0036, h01=0x0050, text=» ADKL A11,TDBNC NUMBER OF TERMINAL DEVICE CLASSES «, t00=0x010c, t01=0x0072}
0x1a33e…1a374 Head {h00=0x0032, h01=0x0050, text=»NXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK «, t00=0x010c, t01=0x00ac}
0x1a374…1a388 Head {h00=0x0010, h01=0x0050, text=» LCR A5,A11 «, t00=0x010c, t01=0x00e2}
0x1a388…1a39a Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x010c, t01=0x00f6}
0x1a39a…1a3ae Head {h00=0x0010, h01=0x0050, text=» LC A5,1,A11«, t00=0x010c, t01=0x0108}
0x1a3ae…1a3c2 Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x010c, t01=0x011c}
0x1a3c2…1a3d8 Head {h00=0x0012, h01=0x0050, text=» LDK A2,TDBREC«, t00=0x010c, t01=0x0130}
0x1a3d8…1a3ea Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x010c, t01=0x0146}
0x1a3ea…1a3fc Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x010c, t01=0x0158}
0x1a3fc…1a410 Head {h00=0x0010, h01=0x0050, text=» ADR A11,A3 «, t00=0x010c, t01=0x016a}
0x1a410…1a424 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x010c, t01=0x017e}
0x1a424…1a458 (269, 0, 400) Head {h00=0x0030, h01=0x0050, text=» LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES«, t00=0x010d, t01=0x0004}
0x1a458…1a46a Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x010d, t01=0x0038}
0x1a46a…1a47e Head {h00=0x0010, h01=0x0050, text=» LC A5,1,A11«, t00=0x010d, t01=0x004a}
0x1a47e…1a492 Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x010d, t01=0x005e}
0x1a492…1a4c2 Head {h00=0x002c, h01=0x0050, text=» LDK A2,SDC SPEC. DEV. CL. RECORD LENGTH«, t00=0x010d, t01=0x0072}
0x1a4c2…1a4d4 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x010d, t01=0x00a2}
0x1a4d4…1a4e6 Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x010d, t01=0x00b4}
0x1a4e6…1a508 Head {h00=0x001e, h01=0x0050, text=» ADR A11,A3 A11=NEXT BLOCK«, t00=0x010d, t01=0x00c6}
0x1a508…1a51c Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x010d, t01=0x00e8}
0x1a51c…1a544 Head {h00=0x0024, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCK TYPE «, t00=0x010d, t01=0x00fc}
0x1a544…1a554 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x010d, t01=0x0124}
0x1a554…1a560 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010d, t01=0x0134}
0x1a560…1a56c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010d, t01=0x0140}
0x1a56c…1a5a8 Head {h00=0x0038, h01=0x0050, text=»** G E T N U M **«, t00=0x010d, t01=0x014c}
0x1a5a8…1a5e4 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x010d, t01=0x0188}
0x1a5e4…1a620 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x010e, t01=0x0034}
0x1a620…1a65c Head {h00=0x0038, h01=0x0050, text=»** CONVERT 3 ASCII-DIGITS TO BINARY **«, t00=0x010e, t01=0x0070}
0x1a65c…1a698 Head {h00=0x0038, h01=0x0050, text=»** **«, t00=0x010e, t01=0x00ac}
0x1a698…1a6d4 Head {h00=0x0038, h01=0x0050, text=»** INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER **«, t00=0x010e, t01=0x00e8}
0x1a6d4…1a710 Head {h00=0x0038, h01=0x0050, text=»** OUTPUT: A5=BINARY VALUE **«, t00=0x010e, t01=0x0124}
0x1a710…1a74c Head {h00=0x0038, h01=0x0050, text=»** WORK.REGS: A2,A4 **«, t00=0x010e, t01=0x0160}
0x1a74c…1a788 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x010f, t01=0x000c}
0x1a788…1a794 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x010f, t01=0x0048}
0x1a794…1a7a8 Head {h00=0x0010, h01=0x0050, text=»GETNUM EQU *«, t00=0x010f, t01=0x0054}
0x1a7a8…1a7cc Head {h00=0x0020, h01=0x0050, text=» LDK A4,100 FIRST INCREMENT «, t00=0x010f, t01=0x0068}
0x1a7cc…1a7ee Head {h00=0x001e, h01=0x0050, text=» LDK A5,0 CLEAR RESULT REG«, t00=0x010f, t01=0x008c}
0x1a7ee…1a80c Head {h00=0x001a, h01=0x0050, text=» SUK A6,1 INIT POINTER«, t00=0x010f, t01=0x00ae}
0x1a80c…1a82e Head {h00=0x001e, h01=0x0050, text=»GET030 ADK A6,1 NEXT DIGIT«, t00=0x010f, t01=0x00cc}
0x1a82e…1a84a Head {h00=0x0018, h01=0x0050, text=» LCR A2,A6 GET CHAR «, t00=0x010f, t01=0x00ee}
0x1a84a…1a85c Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x010f, t01=0x010a}
0x1a85c…1a874 Head {h00=0x0014, h01=0x0050, text=»GET050 SUK A2,1 «, t00=0x010f, t01=0x011c}
0x1a874…1a89a Head {h00=0x0022, h01=0x0050, text=» RF(N) GET100 THIS DIGIT READY«, t00=0x010f, t01=0x0134}
0x1a89a…1a8b8 Head {h00=0x001a, h01=0x0050, text=» ADR A5,A4 ACCUMULATE «, t00=0x010f, t01=0x015a}
0x1a8b8…1a8ca Head {h00=0x000e, h01=0x0050, text=» RB GET050«, t00=0x010f, t01=0x0178}
0x1a8ca…1a8fa Head {h00=0x002c, h01=0x0050, text=»GET100 SUK A4,90 NEXT INCREMENT (TEN'S) «, t00=0x010f, t01=0x018a}
0x1a8fa…1a910 Head {h00=0x0012, h01=0x0050, text=» RB(P) GET030 «, t00=0x0110, t01=0x002a}
0x1a910…1a93a Head {h00=0x0026, h01=0x0050, text=» ADK A4,81 NEXT INCREMENT (ONE'S) «, t00=0x0110, t01=0x0040}
0x1a93a…1a95c Head {h00=0x001e, h01=0x0050, text=» RB(P) GET030 THIRD DIGIT «, t00=0x0110, t01=0x006a}
0x1a95c…1a96c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0110, t01=0x008c}
0x1a96c…1a97a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0110, t01=0x009c}
0x1a97a…1a982 Head {h00=0x0004, h01=0x0050, t00=0x0110, t01=0x00aa}
0x1a982…1a9a6 Head {h00=0x0020, h01=0x0050, text=»* START OF PROGRAM PART 1 * «, t00=0x0110, t01=0x00b2}
0x1a9a6…1a9ae Head {h00=0x0004, h01=0x0050, t00=0x0110, t01=0x00d6}
0x1a9ae…1a9e6 Head {h00=0x0034, h01=0x0050, text=»* SAVE02=POINTER TO 1:ST USER TASK TTAB-ADDRESS «, t00=0x0110, t01=0x00de}
0x1a9e6…1aa0e Head {h00=0x0024, h01=0x0050, text=»* SAVE09=EXECUTION START ADDRESS«, t00=0x0110, t01=0x0116}
0x1aa0e…1aa1a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0110, t01=0x013e}
0x1aa1a…1aa40 Head {h00=0x0022, h01=0x0050, text=»SYSLDA EQU *-REL PROGRAM START«, t00=0x0110, t01=0x014a}
0x1aa40…1aa4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x0170}
0x1aa4a…1aa64 Head {h00=0x0016, h01=0x0050, text=»* INIT A15 STACK «, t00=0x0110, t01=0x017a}
0x1aa64…1aa6e (273, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0004}
0x1aa6e…1aa84 Head {h00=0x0012, h01=0x0050, text=» LD A15,SCTSTB«, t00=0x0111, t01=0x000e}
0x1aa84…1aa98 Head {h00=0x0010, h01=0x0050, text=» SUKL A15,4 «, t00=0x0111, t01=0x0024}
0x1aa98…1aaa0 Head {h00=0x0004, h01=0x0050, t00=0x0111, t01=0x0038}
0x1aaa0…1aaca Head {h00=0x0026, h01=0x0050, text=» LD A2,SCTLAC GET S:GTAB (IF ANY) «, t00=0x0111, t01=0x0040}
0x1aaca…1aae0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0111, t01=0x006a}
0x1aae0…1ab12 Head {h00=0x002e, h01=0x0050, text=» LD A2,CREID,A2 GET CREDIT IDENTIFICATION «, t00=0x0111, t01=0x0080}
0x1ab12…1ab1e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0111, t01=0x00b2}
0x1ab1e…1ab34 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0111, t01=0x00be}
0x1ab34…1ab4e Head {h00=0x0016, h01=0x0050, text=» TL MMTAB,A13 %%##«, t00=0x0111, t01=0x00d4}
0x1ab4e…1ab66 Head {h00=0x0014, h01=0x0050, text=» EL A2,CREID,A2 «, t00=0x0111, t01=0x00ee}
0x1ab66…1ab72 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0111, t01=0x0106}
0x1ab72…1aba8 Head {h00=0x0032, h01=0x0050, text=» CM SWITCH,A13 RESET SAVE-AREAS USED IN SYSLDM«, t00=0x0111, t01=0x0112}
0x1aba8…1abbc Head {h00=0x0010, h01=0x0050, text=» CM FLAG,A13«, t00=0x0111, t01=0x0148}
0x1abbc…1abe4 Head {h00=0x0024, h01=0x0050, text=» CWK A2,'CR' CREDIT APPLICATION?«, t00=0x0111, t01=0x015c}
0x1abe4…1ac10 Head {h00=0x0028, h01=0x0050, text=» RF(E) SYA100 YES! START CONFIGURATE«, t00=0x0111, t01=0x0184}
0x1ac10…1ac26 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x0112, t01=0x0020}
0x1ac26…1ac2e Head {h00=0x0004, h01=0x0050, t00=0x0112, t01=0x0036}
0x1ac2e…1ac4e Head {h00=0x001c, h01=0x0050, text=»* ASSEMBLER APPLICATION «, t00=0x0112, t01=0x003e}
0x1ac4e…1ac56 Head {h00=0x0004, h01=0x0050, t00=0x0112, t01=0x005e}
0x1ac56…1ac76 Head {h00=0x001c, h01=0x0050, text=»* SWITCH TO LEVEL 0 ENB «, t00=0x0112, t01=0x0066}
0x1ac76…1ac7e Head {h00=0x0004, h01=0x0050, t00=0x0112, t01=0x0086}
0x1ac7e…1acaa Head {h00=0x0028, h01=0x0050, text=» LDKL A4,SYA103 CONTINUATION ADDRESS«, t00=0x0112, t01=0x008e}
0x1acaa…1acc6 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A13 RELOCATE«, t00=0x0112, t01=0x00ba}
0x1acc6…1ace6 Head {h00=0x001c, h01=0x0050, text=» STR A4,A15 PUT ON STACK«, t00=0x0112, t01=0x00d6}
0x1ace6…1acfc Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/00C0«, t00=0x0112, t01=0x00f6}
0x1acfc…1ad20 Head {h00=0x0020, h01=0x0050, text=» STR A4,A15 PUT PSW ON STACK«, t00=0x0112, t01=0x010c}
0x1ad20…1ad30 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0112, t01=0x0130}
0x1ad30…1ad48 Head {h00=0x0014, h01=0x0050, text=»SYA103 EQU *-REL«, t00=0x0112, t01=0x0140}
0x1ad48…1ad54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0112, t01=0x0158}
0x1ad54…1ad70 Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x0112, t01=0x0164}
0x1ad70…1ad9c Head {h00=0x0028, h01=0x0050, text=» LDKL A4,MMTAB GET MM-TABLE ADDRESS «, t00=0x0112, t01=0x0180}
0x1ad9c…1adb8 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A13 RELOCATE«, t00=0x0113, t01=0x001c}
0x1adb8…1add6 Head {h00=0x001a, h01=0x0050, text=» ST A4,MMFROM,A13 SAVE«, t00=0x0113, t01=0x0038}
0x1add6…1ae02 Head {h00=0x0028, h01=0x0050, text=»* FILL MM-TABLES IN USER TASK TTAB'S«, t00=0x0113, t01=0x0056}
0x1ae02…1ae0a Head {h00=0x0004, h01=0x0050, t00=0x0113, t01=0x0082}
0x1ae0a…1ae36 Head {h00=0x0028, h01=0x0050, text=» LD* A5,SCTTCT GET LENGTH OF TC:TAB «, t00=0x0113, t01=0x008a}
0x1ae36…1ae5e Head {h00=0x0024, h01=0x0050, text=» LD A6,SAVE02,A13 1:ST USER TASK«, t00=0x0113, t01=0x00b6}
0x1ae5e…1ae76 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A6 SAVE «, t00=0x0113, t01=0x00de}
0x1ae76…1aeaa Head {h00=0x0030, h01=0x0050, text=» SU A3,SCTTCT GET DISPLACEMENT TO 1:ST USER «, t00=0x0113, t01=0x00f6}
0x1aeaa…1aed8 Head {h00=0x002a, h01=0x0050, text=» SUR A5,A3 => LENGTH OF TC:TAB TO SCAN«, t00=0x0113, t01=0x012a}
0x1aed8…1aee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x0158}
0x1aee2…1af04 Head {h00=0x001e, h01=0x0050, text=»* INIT UNUSED MMU ENTRIES«, t00=0x0113, t01=0x0162}
0x1af04…1af0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x0184}
0x1af0e…1af24 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FC00«, t00=0x0113, t01=0x018e}
0x1af24…1af3a Head {h00=0x0012, h01=0x0050, text=» LDKL A2,MMTAB«, t00=0x0114, t01=0x0014}
0x1af3a…1af4e Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x0114, t01=0x002a}
0x1af4e…1af68 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A2 =00002«, t00=0x0114, t01=0x003e}
0x1af68…1af7e Head {h00=0x0012, h01=0x0050, text=» SUKL A4,MMBEG«, t00=0x0114, t01=0x0058}
0x1af7e…1af94 Head {h00=0x0012, h01=0x0050, text=» AD A4,SCTMMC «, t00=0x0114, t01=0x006e}
0x1af94…1afac Head {h00=0x0014, h01=0x0050, text=»SYA:10 CWR A4,A2«, t00=0x0114, t01=0x0084}
0x1afac…1afc2 Head {h00=0x0012, h01=0x0050, text=» RF(E) SYA105 «, t00=0x0114, t01=0x009c}
0x1afc2…1afd4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0114, t01=0x00b2}
0x1afd4…1afe6 Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x0114, t01=0x00c4}
0x1afe6…1aff8 Head {h00=0x000e, h01=0x0050, text=» RB SYA:10«, t00=0x0114, t01=0x00d6}
0x1aff8…1b014 Head {h00=0x0018, h01=0x0050, text=»SYA105 SUK A5,2 ALL?«, t00=0x0114, t01=0x00e8}
0x1b014…1b02e Head {h00=0x0016, h01=0x0050, text=» RF(N) SYA107 YES!«, t00=0x0114, t01=0x0104}
0x1b02e…1b04e Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A6 TTAB-ADDRESS«, t00=0x0114, t01=0x011e}
0x1b04e…1b070 Head {h00=0x001e, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE«, t00=0x0114, t01=0x013e}
0x1b070…1b08c Head {h00=0x0018, h01=0x0050, text=» ADK A6,2 NEXT TTAB «, t00=0x0114, t01=0x0160}
0x1b08c…1b09e Head {h00=0x000e, h01=0x0050, text=» RB SYA105«, t00=0x0114, t01=0x017c}
0x1b09e…1b0b2 Head {h00=0x0010, h01=0x0050, text=»SYA107 EQU *«, t00=0x0114, t01=0x018e}
0x1b0b2…1b0be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0115, t01=0x0012}
0x1b0be…1b0d4 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x0115, t01=0x001e}
0x1b0d4…1b10a Head {h00=0x0032, h01=0x0050, text=» LD* A5,SAVE02,A13 1:ST USER TASK TTAB ADDRESS«, t00=0x0115, t01=0x0034}
0x1b10a…1b13c Head {h00=0x002e, h01=0x0050, text=» LD A2,SAVE09,A13 EXECUTION START ADDRESS «, t00=0x0115, t01=0x006a}
0x1b13c…1b168 Head {h00=0x0028, h01=0x0050, text=» AD A2,SCTLAC ADD RELOCATION ADDRESS«, t00=0x0115, t01=0x009c}
0x1b168…1b188 Head {h00=0x001c, h01=0x0050, text=» LDK A3,0 SEGMENT NUMBER«, t00=0x0115, t01=0x00c8}
0x1b188…1b1a8 Head {h00=0x001c, h01=0x0050, text=» CF A15,ACTOT QUEUE TASK«, t00=0x0115, t01=0x00e8}
0x1b1a8…1b1ce Head {h00=0x0022, h01=0x0050, text=» LDKL A1,FINISH END OF SYSLDA «, t00=0x0115, t01=0x0108}
0x1b1ce…1b1e2 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A13 «, t00=0x0115, t01=0x012e}
0x1b1e2…1b1f2 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0115, t01=0x0142}
0x1b1f2…1b1fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0115, t01=0x0152}
0x1b1fe…1b212 Head {h00=0x0010, h01=0x0050, text=»SYA100 EQU *«, t00=0x0115, t01=0x015e}
0x1b212…1b228 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0115, t01=0x0172}
0x1b228…1b236 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0115, t01=0x0188}
0x1b236…1b242 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0116, t01=0x0008}
0x1b242…1b272 Head {h00=0x002c, h01=0x0050, text=»* READ CONFIG FILE AND BUILD SHADOWTABLE«, t00=0x0116, t01=0x0014}
0x1b272…1b27e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0116, t01=0x0044}
0x1b27e…1b2b2 Head {h00=0x0030, h01=0x0050, text=» CM SAVE02,A13 CLEAR 'BUGGER TASK INDICATOR'«, t00=0x0116, t01=0x0050}
0x1b2b2…1b2ce Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0116, t01=0x0084}
0x1b2ce…1b2f8 Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTLAC GET START OF P:MTAB«, t00=0x0116, t01=0x00a0}
0x1b2f8…1b320 Head {h00=0x0024, h01=0x0050, text=» LD A12,T:ATAB,A2 T:ATAB ADDRESS«, t00=0x0116, t01=0x00ca}
0x1b320…1b34a Head {h00=0x0026, h01=0x0050, text=» SUKL A12,2 ADJUST FOR LENGTH-WORD«, t00=0x0116, t01=0x00f2}
0x1b34a…1b36a Head {h00=0x001c, h01=0x0050, text=» ST A12,T:ATOD,A13 SAVE «, t00=0x0116, t01=0x011c}
0x1b36a…1b39a Head {h00=0x002c, h01=0x0050, text=» LD A4,U:BTAB,A2 GET U:BTAB FROM P:MTAB «, t00=0x0116, t01=0x013c}
0x1b39a…1b3c0 Head {h00=0x0022, h01=0x0050, text=» SUK A4,2 INCLUDE LENGTH-WORD «, t00=0x0116, t01=0x016c}
0x1b3c0…1b3e8 (279, 0, 400) Head {h00=0x0024, h01=0x0050, text=» ST A4,U:BTOD,A13 SAVE IN SYSLDA«, t00=0x0117, t01=0x0004}
0x1b3e8…1b3f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0117, t01=0x002c}
0x1b3f4…1b410 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x0117, t01=0x0038}
0x1b410…1b43c Head {h00=0x0028, h01=0x0050, text=» LD A4,S:BTAB,A2 GET S:BTAB ADDRESS «, t00=0x0117, t01=0x0054}
0x1b43c…1b464 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x0117, t01=0x0080}
0x1b464…1b482 Head {h00=0x001a, h01=0x0050, text=» ST A4,S:BTOD,A13 SAVE«, t00=0x0117, t01=0x00a8}
0x1b482…1b48e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0117, t01=0x00c6}
0x1b48e…1b4aa Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0117, t01=0x00d2}
0x1b4aa…1b4c6 Head {h00=0x0018, h01=0x0050, text=»* T:ATAB PROCESSING:«, t00=0x0117, t01=0x00ee}
0x1b4c6…1b4d2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0117, t01=0x010a}
0x1b4d2…1b4f4 Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A12 T:ATAB-LENGTH«, t00=0x0117, t01=0x0116}
0x1b4f4…1b50c Head {h00=0x0014, h01=0x0050, text=» LDR A3,A4 SAVE «, t00=0x0117, t01=0x0138}
0x1b50c…1b53a Head {h00=0x002a, h01=0x0050, text=» AD A3,SCTSFA ADD MONITOR END ADDRESS «, t00=0x0117, t01=0x0150}
0x1b53a…1b554 Head {h00=0x0016, h01=0x0050, text=»* CHECK ADDRESSES «, t00=0x0117, t01=0x017e}
0x1b554…1b55c Head {h00=0x0004, h01=0x0050, t00=0x0118, t01=0x0008}
0x1b55c…1b582 Head {h00=0x0022, h01=0x0050, text=» LDR A11,A3 END OF SHADOW-TAB «, t00=0x0118, t01=0x0010}
0x1b582…1b5a6 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A13 START OF SYSLDA «, t00=0x0118, t01=0x0036}
0x1b5a6…1b5ba Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x0118, t01=0x005a}
0x1b5ba…1b5d4 Head {h00=0x0016, h01=0x0050, text=» RF(L) SYA110 OK! «, t00=0x0118, t01=0x006e}
0x1b5d4…1b5fa Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x0118, t01=0x0088}
0x1b5fa…1b60e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0118, t01=0x00ae}
0x1b60e…1b63a Head {h00=0x0028, h01=0x0050, text=»SYA110 LDR A9,A2 GET P:MTAB ADDRESS «, t00=0x0118, t01=0x00c2}
0x1b63a…1b64c Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0118, t01=0x00ee}
0x1b64c…1b670 Head {h00=0x0020, h01=0x0050, text=»* CLEAR T:ATAB SHADOW-TABLE:«, t00=0x0118, t01=0x0100}
0x1b670…1b67c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0118, t01=0x0124}
0x1b67c…1b696 Head {h00=0x0016, h01=0x0050, text=»ZERO SUK A3,2 NEXT«, t00=0x0118, t01=0x0130}
0x1b696…1b6ae Head {h00=0x0014, h01=0x0050, text=» STR A2,A3 CLEAR«, t00=0x0118, t01=0x014a}
0x1b6ae…1b6c8 Head {h00=0x0016, h01=0x0050, text=» CW A3,SCTSFA ALL?«, t00=0x0118, t01=0x0162}
0x1b6c8…1b6e0 Head {h00=0x0014, h01=0x0050, text=» RB(NE) ZERO NO!«, t00=0x0118, t01=0x017c}
0x1b6e0…1b706 (281, 0, 400) Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 STORE TABLE LENGTH «, t00=0x0119, t01=0x0004}
0x1b706…1b732 Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 GET CONFIG START «, t00=0x0119, t01=0x002a}
0x1b732…1b758 Head {h00=0x0022, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCKTYPE«, t00=0x0119, t01=0x0056}
0x1b758…1b776 Head {h00=0x001a, h01=0x0050, text=» CCK A2,'TT' TASK DEF?«, t00=0x0119, t01=0x007c}
0x1b776…1b790 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA120 OK! «, t00=0x0119, t01=0x009a}
0x1b790…1b7b4 Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP4 NO TASK PRESENT«, t00=0x0119, t01=0x00b4}
0x1b7b4…1b7c8 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0119, t01=0x00d8}
0x1b7c8…1b7f4 Head {h00=0x0028, h01=0x0050, text=»SYA120 LC A2,TDBMC+4,A11 GET TASK ID«, t00=0x0119, t01=0x00ec}
0x1b7f4…1b808 Head {h00=0x0010, h01=0x0050, text=» SLL A2,8 . «, t00=0x0119, t01=0x0118}
0x1b808…1b826 Head {h00=0x001a, h01=0x0050, text=» LC A2,TDBMC+5,A11 ...«, t00=0x0119, t01=0x012c}
0x1b826…1b848 Head {h00=0x001e, h01=0x0050, text=» CWK A2,'TB' BUGGER TASK? «, t00=0x0119, t01=0x014a}
0x1b848…1b862 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYA125 NO!«, t00=0x0119, t01=0x016c}
0x1b862…1b8a0 Head {h00=0x003a, h01=0x0050, text=» ST A2,SAVE02,A13 INDICATE BUGGER TASK PRESENT =00001 «, t00=0x0119, t01=0x0186}
0x1b8a0…1b8c6 Head {h00=0x0022, h01=0x0050, text=» RF SYA136 SKIP TO NEXT BLOCK «, t00=0x011a, t01=0x0034}
0x1b8c6…1b8e4 Head {h00=0x001a, h01=0x0050, text=»SYA125 LDR A8,A12 SAVE«, t00=0x011a, t01=0x005a}
0x1b8e4…1b906 Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A12 T:ATAB LENGTH«, t00=0x011a, t01=0x0078}
0x1b906…1b928 Head {h00=0x001e, h01=0x0050, text=»SYA130 ADKL A8,2 NEXT T:A «, t00=0x011a, t01=0x009a}
0x1b928…1b94c Head {h00=0x0020, h01=0x0050, text=» LDR* A6,A8 GET T:A ADDRESS «, t00=0x011a, t01=0x00bc}
0x1b94c…1b95e Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x011a, t01=0x00e0}
0x1b95e…1b974 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA135«, t00=0x011a, t01=0x00f2}
0x1b974…1b9a8 Head {h00=0x0030, h01=0x0050, text=» LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) «, t00=0x011a, t01=0x0108}
0x1b9a8…1b9bc Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011a, t01=0x013c}
0x1b9bc…1b9d0 Head {h00=0x0010, h01=0x0050, text=»SYA135 EQU *«, t00=0x011a, t01=0x0150}
0x1b9d0…1b9f4 Head {h00=0x0020, h01=0x0050, text=» CW A2,T:ATID,A6 TID EQUAL? «, t00=0x011a, t01=0x0164}
0x1b9f4…1ba0e Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA130 NO!«, t00=0x011a, t01=0x0188}
0x1ba0e…1ba30 Head {h00=0x001e, h01=0x0050, text=» SUR* A4,A12 T:ATAB LENGTH«, t00=0x011b, t01=0x0012}
0x1ba30…1ba3c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011b, t01=0x0034}
0x1ba3c…1ba58 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x011b, t01=0x0040}
0x1ba58…1ba82 Head {h00=0x0026, h01=0x0050, text=» EL* A2,SCTLAC GET START OF P:MTAB«, t00=0x011b, t01=0x005c}
0x1ba82…1baaa Head {h00=0x0024, h01=0x0050, text=» EL A12,T:ATAB,A2 T:ATAB ADDRESS«, t00=0x011b, t01=0x0086}
0x1baaa…1bad2 Head {h00=0x0024, h01=0x0050, text=» SUKL A12,2 INCLUDE LENGTH WORD «, t00=0x011b, t01=0x00ae}
0x1bad2…1bafc Head {h00=0x0026, h01=0x0050, text=» ST A12,T:ATOD,A13 SAVE IN SYSLDA «, t00=0x011b, t01=0x00d6}
0x1bafc…1bb24 Head {h00=0x0024, h01=0x0050, text=» EL A4,U:BTAB,A2 U:BTAB ADDRESS «, t00=0x011b, t01=0x0100}
0x1bb24…1bb4c Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x011b, t01=0x0128}
0x1bb4c…1bb74 Head {h00=0x0024, h01=0x0050, text=» ST A4,U:BTOD,A13 SAVE IN SYSLDA«, t00=0x011b, t01=0x0150}
0x1bb74…1bb80 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011b, t01=0x0178}
0x1bb80…1bb9c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x011b, t01=0x0184}
0x1bb9c…1bbc8 Head {h00=0x0028, h01=0x0050, text=» EL A4,S:BTAB,A2 GET S:BTAB ADDRESS «, t00=0x011c, t01=0x0010}
0x1bbc8…1bbf0 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x011c, t01=0x003c}
0x1bbf0…1bc0e Head {h00=0x001a, h01=0x0050, text=» ST A4,S:BTOD,A13 SAVE«, t00=0x011c, t01=0x0064}
0x1bc0e…1bc1a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011c, t01=0x0082}
0x1bc1a…1bc36 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x011c, t01=0x008e}
0x1bc36…1bc52 Head {h00=0x0018, h01=0x0050, text=»* T:ATAB PROCESSING:«, t00=0x011c, t01=0x00aa}
0x1bc52…1bc5e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011c, t01=0x00c6}
0x1bc5e…1bc80 Head {h00=0x001e, h01=0x0050, text=» ELR A4,A12 T:ATAB-LENGTH «, t00=0x011c, t01=0x00d2}
0x1bc80…1bc98 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A4 SAVE «, t00=0x011c, t01=0x00f4}
0x1bc98…1bccc Head {h00=0x0030, h01=0x0050, text=» SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE«, t00=0x011c, t01=0x010c}
0x1bccc…1bcfa Head {h00=0x002a, h01=0x0050, text=» AD A3,SCTSFA ADD MONITOR END ADDRESS «, t00=0x011c, t01=0x0140}
0x1bcfa…1bd14 Head {h00=0x0016, h01=0x0050, text=»* CHECK ADDRESSES «, t00=0x011c, t01=0x016e}
0x1bd14…1bd1c Head {h00=0x0004, h01=0x0050, t00=0x011c, t01=0x0188}
0x1bd1c…1bd44 Head {h00=0x0024, h01=0x0050, text=» LDR A11,A3 END OF SHADOW-TABLE «, t00=0x011c, t01=0x0190}
0x1bd44…1bd68 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A13 START OF SYSLDA «, t00=0x011d, t01=0x0028}
0x1bd68…1bd7c Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x011d, t01=0x004c}
0x1bd7c…1bd96 Head {h00=0x0016, h01=0x0050, text=» RF(L) SYA110 OK! «, t00=0x011d, t01=0x0060}
0x1bd96…1bdbc Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x011d, t01=0x007a}
0x1bdbc…1bdd0 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011d, t01=0x00a0}
0x1bdd0…1bdfc Head {h00=0x0028, h01=0x0050, text=»SYA110 LDR A9,A2 GET P:MTAB ADDRESS «, t00=0x011d, t01=0x00b4}
0x1bdfc…1be20 Head {h00=0x0020, h01=0x0050, text=»* CLEAR T:ATAB SHADOW-TABLE:«, t00=0x011d, t01=0x00e0}
0x1be20…1be2c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011d, t01=0x0104}
0x1be2c…1be48 Head {h00=0x0018, h01=0x0050, text=»SYA115 SUK A3,2 NEXT«, t00=0x011d, t01=0x0110}
0x1be48…1be5e Head {h00=0x0012, h01=0x0050, text=» CMR A3 CLEAR «, t00=0x011d, t01=0x012c}
0x1be5e…1be78 Head {h00=0x0016, h01=0x0050, text=» CW A3,SCTSFA ALL?«, t00=0x011d, t01=0x0142}
0x1be78…1be92 Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA115 NO!«, t00=0x011d, t01=0x015c}
0x1be92…1beb8 Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 STORE TABLE LENGTH «, t00=0x011d, t01=0x0176}
0x1beb8…1bee4 Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 GET CONFIG START «, t00=0x011e, t01=0x000c}
0x1bee4…1bf0a Head {h00=0x0022, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCKTYPE«, t00=0x011e, t01=0x0038}
0x1bf0a…1bf28 Head {h00=0x001a, h01=0x0050, text=» CCK A2,'TT' TASK DEF?«, t00=0x011e, t01=0x005e}
0x1bf28…1bf42 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA120 OK! «, t00=0x011e, t01=0x007c}
0x1bf42…1bf66 Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP4 NO TASK PRESENT«, t00=0x011e, t01=0x0096}
0x1bf66…1bf7a Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011e, t01=0x00ba}
0x1bf7a…1bfa6 Head {h00=0x0028, h01=0x0050, text=»SYA120 LC A2,TDBMC+4,A11 GET TASK ID«, t00=0x011e, t01=0x00ce}
0x1bfa6…1bfba Head {h00=0x0010, h01=0x0050, text=» SLL A2,8 . «, t00=0x011e, t01=0x00fa}
0x1bfba…1bfd8 Head {h00=0x001a, h01=0x0050, text=» LC A2,TDBMC+5,A11 ...«, t00=0x011e, t01=0x010e}
0x1bfd8…1bffa Head {h00=0x001e, h01=0x0050, text=» CWK A2,'TB' BUGGER TASK? «, t00=0x011e, t01=0x012c}
0x1bffa…1c014 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYA125 NO!«, t00=0x011e, t01=0x014e}
0x1c014…1c04c Head {h00=0x0034, h01=0x0050, text=» ST A2,SAVE02,A13 INDICATE 'BUGGER TASK PRESENT'«, t00=0x011e, t01=0x0168}
0x1c04c…1c06e Head {h00=0x001e, h01=0x0050, text=» RF SYA136 SKIP THIS BLOCK«, t00=0x011f, t01=0x0010}
0x1c06e…1c08c Head {h00=0x001a, h01=0x0050, text=»SYA125 LDR A8,A12 SAVE«, t00=0x011f, t01=0x0032}
0x1c08c…1c0ae Head {h00=0x001e, h01=0x0050, text=» ELR A4,A12 T:ATAB LENGTH «, t00=0x011f, t01=0x0050}
0x1c0ae…1c0d0 Head {h00=0x001e, h01=0x0050, text=»SYA130 ADKL A8,2 NEXT T:A «, t00=0x011f, t01=0x0072}
0x1c0d0…1c0f2 Head {h00=0x001e, h01=0x0050, text=» ELR A6,A8 GET T:A ADDRESS«, t00=0x011f, t01=0x0094}
0x1c0f2…1c104 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x011f, t01=0x00b6}
0x1c104…1c11a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA135«, t00=0x011f, t01=0x00c8}
0x1c11a…1c14a Head {h00=0x002c, h01=0x0050, text=» LDK A1,LMP5 NO PROT. FOUND (TID ERROR) «, t00=0x011f, t01=0x00de}
0x1c14a…1c15e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011f, t01=0x010e}
0x1c15e…1c172 Head {h00=0x0010, h01=0x0050, text=»SYA135 EQU *«, t00=0x011f, t01=0x0122}
0x1c172…1c194 Head {h00=0x001e, h01=0x0050, text=» EL A10,T:ATID,A6 GET TID «, t00=0x011f, t01=0x0136}
0x1c194…1c1b2 Head {h00=0x001a, h01=0x0050, text=» CWR A2,A10 TID EQUAL?«, t00=0x011f, t01=0x0158}
0x1c1b2…1c1cc Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA130 NO!«, t00=0x011f, t01=0x0176}
0x1c1cc…1c1e0 Head {h00=0x0010, h01=0x0050, text=» ELR A10,A12«, t00=0x011f, t01=0x0190}
0x1c1e0…1c202 Head {h00=0x001e, h01=0x0050, text=» SUR A4,A10 T:ATAB LENGTH «, t00=0x0120, t01=0x0014}
0x1c202…1c20e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0120, t01=0x0036}
0x1c20e…1c224 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0120, t01=0x0042}
0x1c224…1c256 Head {h00=0x002e, h01=0x0050, text=» NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB «, t00=0x0120, t01=0x0058}
0x1c256…1c282 Head {h00=0x0028, h01=0x0050, text=» LC A5,TDBNT,A11 GET NUMBER OF TASKS«, t00=0x0120, t01=0x008a}
0x1c282…1c294 Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0120, t01=0x00b6}
0x1c294…1c2ae Head {h00=0x0016, h01=0x0050, text=» LC A5,TDBNT+1,A11«, t00=0x0120, t01=0x00c8}
0x1c2ae…1c2c2 Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x0120, t01=0x00e2}
0x1c2c2…1c2ee Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA START OF SHADOW TABLE «, t00=0x0120, t01=0x00f6}
0x1c2ee…1c300 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0120, t01=0x0122}
0x1c300…1c33a Head {h00=0x0036, h01=0x0050, text=» ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE «, t00=0x0120, t01=0x0134}
0x1c33a…1c346 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0120, t01=0x016e}
0x1c346…1c362 Head {h00=0x0018, h01=0x0050, text=»* SKIP TO NEXT BLOCK«, t00=0x0120, t01=0x017a}
0x1c362…1c36e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0121, t01=0x0008}
0x1c36e…1c388 Head {h00=0x0016, h01=0x0050, text=»SYA136 CALL NXTBLK«, t00=0x0121, t01=0x0014}
0x1c388…1c39c Head {h00=0x0010, h01=0x0050, text=»SYA137 EQU *«, t00=0x0121, t01=0x002e}
0x1c39c…1c3b0 Head {h00=0x0010, h01=0x0050, text=» CCK A2,'TT'«, t00=0x0121, t01=0x0042}
0x1c3b0…1c3da Head {h00=0x0026, h01=0x0050, text=» RB(E) SYA120 NEXT TASK DEF BLOCK «, t00=0x0121, t01=0x0056}
0x1c3da…1c3ee Head {h00=0x0010, h01=0x0050, text=» CCK A2,'CC'«, t00=0x0121, t01=0x0080}
0x1c3ee…1c404 Head {h00=0x0012, h01=0x0050, text=» RF(NE) SYA140«, t00=0x0121, t01=0x0094}
0x1c404…1c432 Head {h00=0x002a, h01=0x0050, text=» ADKL A11,1 STEP TO NUMBER OF COM.DEV.«, t00=0x0121, t01=0x00aa}
0x1c432…1c456 Head {h00=0x0020, h01=0x0050, text=» CALL NXTCOM SKIP COMMON DEF«, t00=0x0121, t01=0x00d8}
0x1c456…1c470 Head {h00=0x0016, h01=0x0050, text=»SYA140 CCK A2,'UU'«, t00=0x0121, t01=0x00fc}
0x1c470…1c490 Head {h00=0x001c, h01=0x0050, text=» RF(NE) SYA141 NO UWB'S «, t00=0x0121, t01=0x0116}
0x1c490…1c4c6 Head {h00=0x0032, h01=0x0050, text=» LD A8,U:BTOD,A13 GET MODIFIED U:BTAB ADDRESS «, t00=0x0121, t01=0x0136}
0x1c4c6…1c500 Head {h00=0x0036, h01=0x0050, text=» CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE «, t00=0x0121, t01=0x016c}
0x1c500…1c514 Head {h00=0x0010, h01=0x0050, text=»SYA141 EQU *«, t00=0x0122, t01=0x0016}
0x1c514…1c520 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0122, t01=0x002a}
0x1c520…1c53c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0122, t01=0x0036}
0x1c53c…1c550 Head {h00=0x0010, h01=0x0050, text=» LCR A2,A11 «, t00=0x0122, t01=0x0052}
0x1c550…1c564 Head {h00=0x0010, h01=0x0050, text=» CCK A2,'SS'«, t00=0x0122, t01=0x0066}
0x1c564…1c57a Head {h00=0x0012, h01=0x0050, text=» RF(NE) SYA152«, t00=0x0122, t01=0x007a}
0x1c57a…1c594 Head {h00=0x0016, h01=0x0050, text=» LD A8,S:BTOD,A13 «, t00=0x0122, t01=0x0090}
0x1c594…1c5a8 Head {h00=0x0010, h01=0x0050, text=» CALL USWBTP«, t00=0x0122, t01=0x00aa}
0x1c5a8…1c5b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0122, t01=0x00be}
0x1c5b4…1c5ca Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0122, t01=0x00ca}
0x1c5ca…1c5dc Head {h00=0x000e, h01=0x0050, text=» RF SYA152«, t00=0x0122, t01=0x00e0}
0x1c5dc…1c5ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0122, t01=0x00f2}
0x1c5ea…1c63a Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0122, t01=0x0100}
0x1c63a…1c68a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0122, t01=0x0150}
0x1c68a…1c6da Head {h00=0x004c, h01=0x0050, text=»* USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE * «, t00=0x0123, t01=0x0010}
0x1c6da…1c72a Head {h00=0x004c, h01=0x0050, text=»* ================================================================= * «, t00=0x0123, t01=0x0060}
0x1c72a…1c77a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0123, t01=0x00b0}
0x1c77a…1c7ca Head {h00=0x004c, h01=0x0050, text=»* REFERENCED IN: SYSLDA * «, t00=0x0123, t01=0x0100}
0x1c7ca…1c81a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0123, t01=0x0150}
0x1c81a…1c86a Head {h00=0x004c, h01=0x0050, text=»* ENTRY: A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE * «, t00=0x0124, t01=0x0010}
0x1c86a…1c8ba Head {h00=0x004c, h01=0x0050, text=»* A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK * «, t00=0x0124, t01=0x0060}
0x1c8ba…1c90a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0124, t01=0x00b0}
0x1c90a…1c95a Head {h00=0x004c, h01=0x0050, text=»* EXIT: * «, t00=0x0124, t01=0x0100}
0x1c95a…1c9aa Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0124, t01=0x0150}
0x1c9aa…1c9fa Head {h00=0x004c, h01=0x0050, text=»* WORK REGISTERS: * «, t00=0x0125, t01=0x0010}
0x1c9fa…1ca4a Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0125, t01=0x0060}
0x1ca4a…1ca9a Head {h00=0x004c, h01=0x0050, text=»* SUBROUTINES: GETNUM,ERROR * «, t00=0x0125, t01=0x00b0}
0x1ca9a…1caea Head {h00=0x004c, h01=0x0050, text=»* * «, t00=0x0125, t01=0x0100}
0x1caea…1cb3a Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0125, t01=0x0150}
0x1cb3a…1cb42 Head {h00=0x0004, h01=0x0050, t00=0x0126, t01=0x0010}
0x1cb42…1cb56 Head {h00=0x0010, h01=0x0050, text=»USWBTP EQU *«, t00=0x0126, t01=0x0018}
0x1cb56…1cb5e Head {h00=0x0004, h01=0x0050, t00=0x0126, t01=0x002c}
0x1cb5e…1cb6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0126, t01=0x0034}
0x1cb6a…1cb86 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0126, t01=0x0040}
0x1cb86…1cb9a Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x0126, t01=0x005c}
0x1cb9a…1cbae Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0126, t01=0x0070}
0x1cbae…1cbdc Head {h00=0x002a, h01=0x0050, text=» CALL GETNUM PACK 3 DIG. RESULT IN A5 «, t00=0x0126, t01=0x0084}
0x1cbdc…1cc04 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A5 SAVE NUMBER OF UWB'S «, t00=0x0126, t01=0x00b2}
0x1cc04…1cc18 Head {h00=0x0010, h01=0x0050, text=»SYA142 EQU *«, t00=0x0126, t01=0x00da}
0x1cc18…1cc2c Head {h00=0x0010, h01=0x0050, text=» LDR A12,A8 «, t00=0x0126, t01=0x00ee}
0x1cc2c…1cc52 Head {h00=0x0022, h01=0x0050, text=» LDR* A3,A12 LENGTH OF U:BTAB «, t00=0x0126, t01=0x0102}
0x1cc52…1cc7e Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UDB RECORD «, t00=0x0126, t01=0x0128}
0x1cc7e…1cc92 Head {h00=0x0010, h01=0x0050, text=»SYA145 EQU *«, t00=0x0126, t01=0x0154}
0x1cc92…1ccc6 Head {h00=0x0030, h01=0x0050, text=» LCR A2,A11 GET FIRST CHARACTER FROM CONFIG «, t00=0x0126, t01=0x0168}
0x1ccc6…1ccd8 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0127, t01=0x000c}
0x1ccd8…1ccfa Head {h00=0x001e, h01=0x0050, text=» LC A2,1,A11 GET 2:ND CHAR«, t00=0x0127, t01=0x001e}
0x1ccfa…1cd34 Head {h00=0x0036, h01=0x0050, text=» CW A2,UPNAME,A12 COMPARE W. 1:ST WORD IN PROTOTYP«, t00=0x0127, t01=0x0040}
0x1cd34…1cd62 Head {h00=0x002a, h01=0x0050, text=» RF(E) FRSTOK FIRST TWO CHARACTERS OK!«, t00=0x0127, t01=0x007a}
0x1cd62…1cd96 Head {h00=0x0030, h01=0x0050, text=»SYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S «, t00=0x0127, t01=0x00a8}
0x1cd96…1cdac Head {h00=0x0012, h01=0x0050, text=» RF(NN) SYA150«, t00=0x0127, t01=0x00dc}
0x1cdac…1cdce Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP6 UWB NOT FOUND«, t00=0x0127, t01=0x00f2}
0x1cdce…1cde2 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0127, t01=0x0114}
0x1cde2…1cdf6 Head {h00=0x0010, h01=0x0050, text=»SYA150 EQU *«, t00=0x0127, t01=0x0128}
0x1cdf6…1ce22 Head {h00=0x0028, h01=0x0050, text=» ADKL A12,UP:REC ADD TO NEXT RECORD «, t00=0x0127, t01=0x013c}
0x1ce22…1ce34 Head {h00=0x000e, h01=0x0050, text=» RB SYA145«, t00=0x0127, t01=0x0168}
0x1ce34…1ce5c Head {h00=0x0024, h01=0x0050, text=»FRSTOK LC A2,2,A11 GET 3:RD CHAR«, t00=0x0127, t01=0x017a}
0x1ce5c…1ce78 Head {h00=0x0018, h01=0x0050, text=» CC A2,UPNAME+2,A12 «, t00=0x0128, t01=0x0012}
0x1ce78…1ce94 Head {h00=0x0018, h01=0x0050, text=» RB(NE) SYA147 .NEQ.«, t00=0x0128, t01=0x002e}
0x1ce94…1cea2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0128, t01=0x004a}
0x1cea2…1ceae Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0128, t01=0x0058}
0x1ceae…1ceca Head {h00=0x0018, h01=0x0050, text=»* PROTOTYPE FOUND * «, t00=0x0128, t01=0x0064}
0x1ceca…1ced6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0128, t01=0x0080}
0x1ced6…1cf12 Head {h00=0x0038, h01=0x0050, text=» ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG«, t00=0x0128, t01=0x008c}
0x1cf12…1cf26 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0128, t01=0x00c8}
0x1cf26…1cf42 Head {h00=0x0018, h01=0x0050, text=» CALL GETNUM CONVERT«, t00=0x0128, t01=0x00dc}
0x1cf42…1cf78 Head {h00=0x0032, h01=0x0050, text=» SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE)«, t00=0x0128, t01=0x00f8}
0x1cf78…1cfaa Head {h00=0x002e, h01=0x0050, text=» SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE «, t00=0x0128, t01=0x012e}
0x1cfaa…1cfc0 Head {h00=0x0012, h01=0x0050, text=» RB(P) SYA142 «, t00=0x0128, t01=0x0160}
0x1cfc0…1cfda Head {h00=0x0016, h01=0x0050, text=» ADKL A11,UDBFST-1«, t00=0x0128, t01=0x0176}
0x1cfda…1cfea Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0128, t01=0x0190}
0x1cfea…1cff6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0129, t01=0x0010}
0x1cff6…1d012 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0129, t01=0x001c}
0x1d012…1d026 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x0129, t01=0x0038}
0x1d026…1d03a Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0129, t01=0x004c}
0x1d03a…1d068 Head {h00=0x002a, h01=0x0050, text=» CALL GETNUM PACK 3 DIG. RESULT IN A5 «, t00=0x0129, t01=0x0060}
0x1d068…1d090 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A5 SAVE NUMBER OF UWB'S «, t00=0x0129, t01=0x008e}
0x1d090…1d0a4 Head {h00=0x0010, h01=0x0050, text=»SYA142 EQU *«, t00=0x0129, t01=0x00b6}
0x1d0a4…1d0c6 Head {h00=0x001e, h01=0x0050, text=» LDR A12,A8 START OF TABLE«, t00=0x0129, t01=0x00ca}
0x1d0c6…1d0ea Head {h00=0x0020, h01=0x0050, text=» ELR A3,A12 LENGTH OF U:BTAB«, t00=0x0129, t01=0x00ec}
0x1d0ea…1d116 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UDB RECORD «, t00=0x0129, t01=0x0110}
0x1d116…1d12a Head {h00=0x0010, h01=0x0050, text=»SYA145 EQU *«, t00=0x0129, t01=0x013c}
0x1d12a…1d15e Head {h00=0x0030, h01=0x0050, text=» LCR A2,A11 GET FIRST CHARACTER FROM CONFIG «, t00=0x0129, t01=0x0150}
0x1d15e…1d170 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0129, t01=0x0184}
0x1d170…1d192 Head {h00=0x001e, h01=0x0050, text=» LC A2,1,A11 GET 2:ND CHAR«, t00=0x012a, t01=0x0008}
0x1d192…1d1c8 Head {h00=0x0032, h01=0x0050, text=» EL A10,UPNAME,A12 GET FIRST WORD IN PROTOTYPE«, t00=0x012a, t01=0x002a}
0x1d1c8…1d1dc Head {h00=0x0010, h01=0x0050, text=» CWR A2,A10 «, t00=0x012a, t01=0x0060}
0x1d1dc…1d200 Head {h00=0x0020, h01=0x0050, text=» RF(E) FRSTOK FIRST WORD OK!«, t00=0x012a, t01=0x0074}
0x1d200…1d234 Head {h00=0x0030, h01=0x0050, text=»SYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S «, t00=0x012a, t01=0x0098}
0x1d234…1d24a Head {h00=0x0012, h01=0x0050, text=» RF(NN) SYA150«, t00=0x012a, t01=0x00cc}
0x1d24a…1d26c Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP6 UWB NOT FOUND«, t00=0x012a, t01=0x00e2}
0x1d26c…1d280 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x012a, t01=0x0104}
0x1d280…1d294 Head {h00=0x0010, h01=0x0050, text=»SYA150 EQU *«, t00=0x012a, t01=0x0118}
0x1d294…1d2c0 Head {h00=0x0028, h01=0x0050, text=» ADKL A12,UP:REC ADD TO NEXT RECORD «, t00=0x012a, t01=0x012c}
0x1d2c0…1d2d2 Head {h00=0x000e, h01=0x0050, text=» RB SYA145«, t00=0x012a, t01=0x0158}
0x1d2d2…1d308 Head {h00=0x0032, h01=0x0050, text=»FRSTOK LC A10,2,A11 GET 3:RD CHAR FROM CONFIG «, t00=0x012a, t01=0x016a}
0x1d308…1d33c Head {h00=0x0030, h01=0x0050, text=» EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY «, t00=0x012b, t01=0x0010}
0x1d33c…1d34e Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x012b, t01=0x0044}
0x1d34e…1d364 Head {h00=0x0012, h01=0x0050, text=» ANKL A10,/FF «, t00=0x012b, t01=0x0056}
0x1d364…1d378 Head {h00=0x0010, h01=0x0050, text=» CWR A10,A2 «, t00=0x012b, t01=0x006c}
0x1d378…1d394 Head {h00=0x0018, h01=0x0050, text=» RB(NE) SYA147 .NEQ.«, t00=0x012b, t01=0x0080}
0x1d394…1d3a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012b, t01=0x009c}
0x1d3a2…1d3ae Head {h00=0x0008, h01=0x0050, text=» «, t00=0x012b, t01=0x00aa}
0x1d3ae…1d3ca Head {h00=0x0018, h01=0x0050, text=»* PROTOTYPE FOUND * «, t00=0x012b, t01=0x00b6}
0x1d3ca…1d3e6 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x012b, t01=0x00d2}
0x1d3e6…1d3f2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x012b, t01=0x00ee}
0x1d3f2…1d42e Head {h00=0x0038, h01=0x0050, text=» ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG«, t00=0x012b, t01=0x00fa}
0x1d42e…1d442 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x012b, t01=0x0136}
0x1d442…1d45e Head {h00=0x0018, h01=0x0050, text=» CALL GETNUM CONVERT«, t00=0x012b, t01=0x014a}
0x1d45e…1d496 Head {h00=0x0034, h01=0x0050, text=» EL A10,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE«, t00=0x012b, t01=0x0166}
0x1d496…1d4ae Head {h00=0x0014, h01=0x0050, text=» ANKL A10,/FF00 «, t00=0x012c, t01=0x000e}
0x1d4ae…1d4c2 Head {h00=0x0010, h01=0x0050, text=» ORR A10,A5 «, t00=0x012c, t01=0x0026}
0x1d4c2…1d4de Head {h00=0x0018, h01=0x0050, text=» ES A10,UPNUMB-1,A12«, t00=0x012c, t01=0x003a}
0x1d4de…1d510 Head {h00=0x002e, h01=0x0050, text=» SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE «, t00=0x012c, t01=0x0056}
0x1d510…1d526 Head {h00=0x0012, h01=0x0050, text=» RB(P) SYA142 «, t00=0x012c, t01=0x0088}
0x1d526…1d540 Head {h00=0x0016, h01=0x0050, text=» ADKL A11,UDBFST-1«, t00=0x012c, t01=0x009e}
0x1d540…1d550 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012c, t01=0x00b8}
0x1d550…1d55c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012c, t01=0x00c8}
0x1d55c…1d572 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x012c, t01=0x00d4}
0x1d572…1d580 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012c, t01=0x00ea}
0x1d580…1d594 Head {h00=0x0010, h01=0x0050, text=»SYA152 EQU *«, t00=0x012c, t01=0x00f8}
0x1d594…1d59c Head {h00=0x0004, h01=0x0050, t00=0x012c, t01=0x010c}
0x1d59c…1d5c6 Head {h00=0x0026, h01=0x0050, text=»* GET START OF SYSLOAD AFTER MOVE «, t00=0x012c, t01=0x0114}
0x1d5c6…1d5d2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x012c, t01=0x013e}
0x1d5d2…1d5de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012c, t01=0x014a}
0x1d5de…1d5fa Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x012c, t01=0x0156}
0x1d5fa…1d62a Head {h00=0x002c, h01=0x0050, text=» LD* A7,T:ATOD,A13 GET LENGTH OF T:ATAB «, t00=0x012c, t01=0x0172}
0x1d62a…1d636 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012d, t01=0x0012}
0x1d636…1d652 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x012d, t01=0x001e}
0x1d652…1d67e Head {h00=0x0028, h01=0x0050, text=» EL* A7,T:ATOD,A13 GET T:ATAB LENGTH«, t00=0x012d, t01=0x003a}
0x1d67e…1d6ac Head {h00=0x002a, h01=0x0050, text=» SLL A7,1 RESERVE FOR MM-ADDRESS-TABLE«, t00=0x012d, t01=0x0066}
0x1d6ac…1d6b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012d, t01=0x0094}
0x1d6b8…1d6ce Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x012d, t01=0x00a0}
0x1d6ce…1d702 Head {h00=0x0030, h01=0x0050, text=» AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE«, t00=0x012d, t01=0x00b6}
0x1d702…1d714 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x012d, t01=0x00ea}
0x1d714…1d738 Head {h00=0x0020, h01=0x0050, text=» ANKL A7,/FFFE EVEN ADDRESS «, t00=0x012d, t01=0x00fc}
0x1d738…1d740 Head {h00=0x0004, h01=0x0050, t00=0x012d, t01=0x0120}
0x1d740…1d75e Head {h00=0x001a, h01=0x0050, text=»* CALCULATE RELOCATION«, t00=0x012d, t01=0x0128}
0x1d75e…1d766 Head {h00=0x0004, h01=0x0050, t00=0x012d, t01=0x0146}
0x1d766…1d77a Head {h00=0x0010, h01=0x0050, text=» LDR A2,A13 «, t00=0x012d, t01=0x014e}
0x1d77a…1d7a2 Head {h00=0x0024, h01=0x0050, text=» SUR A2,A7 MOVE-LENGTH (SYSLDA) «, t00=0x012d, t01=0x0162}
0x1d7a2…1d7b4 Head {h00=0x000e, h01=0x0050, text=» NGR A2,A2«, t00=0x012d, t01=0x018a}
0x1d7b4…1d7ec Head {h00=0x0034, h01=0x0050, text=» ST A2,SAVE04,A13 SAVE NEW RELOCATION TEMPORARY «, t00=0x012e, t01=0x000c}
0x1d7ec…1d808 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x012e, t01=0x0044}
0x1d808…1d832 Head {h00=0x0026, h01=0x0050, text=»* CREATE SYSLDA & DDIV MM-TABLE * «, t00=0x012e, t01=0x0060}
0x1d832…1d83a Head {h00=0x0004, h01=0x0050, t00=0x012e, t01=0x008a}
0x1d83a…1d860 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A7 TO-ADDRESS (SYSLDA)«, t00=0x012e, t01=0x0092}
0x1d860…1d882 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/F000 FIRST PAGE «, t00=0x012e, t01=0x00b8}
0x1d882…1d8ae Head {h00=0x0028, h01=0x0050, text=» ST A2,MMREL1,A13 SAVE PHYSICAL PAGE«, t00=0x012e, t01=0x00da}
0x1d8ae…1d8d4 Head {h00=0x0022, h01=0x0050, text=» SRL A2,2 SHIFT FOR MM-PAGING «, t00=0x012e, t01=0x0106}
0x1d8d4…1d8ec Head {h00=0x0014, h01=0x0050, text=» LDKL A11,MMDDIV«, t00=0x012e, t01=0x012c}
0x1d8ec…1d91e Head {h00=0x002e, h01=0x0050, text=» ADR A11,A13 GET MM-TABLE START ADDRESSS= «, t00=0x012e, t01=0x0144}
0x1d91e…1d93c Head {h00=0x001a, h01=0x0050, text=» LDK A3,16 SET COUNTER«, t00=0x012e, t01=0x0176}
0x1d93c…1d968 (303, 0, 400) Head {h00=0x0028, h01=0x0050, text=»SYA157 STR A2,A11 STORE PAGE-POINTER«, t00=0x012f, t01=0x0004}
0x1d968…1d986 Head {h00=0x001a, h01=0x0050, text=» ADKL A11,2 NEXT ENTRY«, t00=0x012f, t01=0x0030}
0x1d986…1d9aa Head {h00=0x0020, h01=0x0050, text=» ADKL A2,/400 PAGE INCREMENT«, t00=0x012f, t01=0x004e}
0x1d9aa…1d9c0 Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 ALL?«, t00=0x012f, t01=0x0072}
0x1d9c0…1d9da Head {h00=0x0016, h01=0x0050, text=» RB(NZ) SYA157 NO!«, t00=0x012f, t01=0x0088}
0x1d9da…1da06 Head {h00=0x0028, h01=0x0050, text=» ANKL A7,/FFF GET DISPLACEM. IN PAGE«, t00=0x012f, t01=0x00a2}
0x1da06…1da12 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012f, t01=0x00ce}
0x1da12…1da28 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x012f, t01=0x00da}
0x1da28…1da5c Head {h00=0x0030, h01=0x0050, text=» ST A7,SAVE12,A13 SAVE (LOGICAL) TO-ADDRESS «, t00=0x012f, t01=0x00f0}
0x1da5c…1da8e Head {h00=0x002e, h01=0x0050, text=» ADKL A7,LENGT2 ADD LEN. OF SYSLDA TO MOVE«, t00=0x012f, t01=0x0124}
0x1da8e…1dabe Head {h00=0x002c, h01=0x0050, text=» ST A7,SAVE03,A13 SAVE NEW DDIV ADDRESS «, t00=0x012f, t01=0x0156}
0x1dabe…1dad2 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A7 «, t00=0x012f, t01=0x0186}
0x1dad2…1dafa Head {h00=0x0024, h01=0x0050, text=»* CALCULATE DDIV FROM-ADDRESS * «, t00=0x0130, t01=0x000a}
0x1dafa…1db02 Head {h00=0x0004, h01=0x0050, t00=0x0130, t01=0x0032}
0x1db02…1db22 Head {h00=0x001c, h01=0x0050, text=» LD A1,SCTLAC GET S:GTAB«, t00=0x0130, t01=0x003a}
0x1db22…1db50 Head {h00=0x002a, h01=0x0050, text=» ST A1,SAVE13,A13 SAVE S:GTAB ADDRESS «, t00=0x0130, t01=0x005a}
0x1db50…1db7a Head {h00=0x0026, h01=0x0050, text=» ST A9,SCTLAC SAVE START OF P:MTAB«, t00=0x0130, t01=0x0088}
0x1db7a…1db96 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0130, t01=0x00b2}
0x1db96…1dbc2 Head {h00=0x0028, h01=0x0050, text=» LD A3,NUMSEG,A1 NUMBER OF SEGMENTS «, t00=0x0130, t01=0x00ce}
0x1dbc2…1dbce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0130, t01=0x00fa}
0x1dbce…1dbea Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0130, t01=0x0106}
0x1dbea…1dc16 Head {h00=0x0028, h01=0x0050, text=» EL A3,NUMSEG,A1 NUMBER OF SEGMENTS «, t00=0x0130, t01=0x0122}
0x1dc16…1dc22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0130, t01=0x014e}
0x1dc22…1dc38 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0130, t01=0x015a}
0x1dc38…1dc6a Head {h00=0x002e, h01=0x0050, text=» LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH«, t00=0x0130, t01=0x0170}
0x1dc6a…1dc7c Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x0131, t01=0x0012}
0x1dc7c…1dc8e Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0131, t01=0x0024}
0x1dc8e…1dcb8 Head {h00=0x0026, h01=0x0050, text=» ADK A1,NUMSEG+2 => START OF DDIV «, t00=0x0131, t01=0x0036}
0x1dcb8…1dcee Head {h00=0x0032, h01=0x0050, text=» LD A2,SAVE04,A13 GET NEW RELOCATION INCREMENT«, t00=0x0131, t01=0x0060}
0x1dcee…1dd22 Head {h00=0x0030, h01=0x0050, text=» ADS A2,M:REL,A13 AND ADJUST RELOCATION BASE«, t00=0x0131, t01=0x0096}
0x1dd22…1dd3e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0131, t01=0x00ca}
0x1dd3e…1dd46 Head {h00=0x0004, h01=0x0050, t00=0x0131, t01=0x00e6}
0x1dd46…1dd78 Head {h00=0x002e, h01=0x0050, text=» ST A1,SAVE04,A13 SAVE DDIV 'FROM'-ADDRESS«, t00=0x0131, t01=0x00ee}
0x1dd78…1dd84 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0131, t01=0x0120}
0x1dd84…1dda0 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0131, t01=0x012c}
0x1dda0…1ddd0 Head {h00=0x002c, h01=0x0050, text=» ST A1,SAVE04,A13 SAVE DDIV FROM-ADDRESS«, t00=0x0131, t01=0x0148}
0x1ddd0…1dddc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0131, t01=0x0178}
0x1dddc…1ddf2 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0131, t01=0x0184}
0x1ddf2…1de18 Head {h00=0x0022, h01=0x0050, text=» SUR A6,A1 RELOCATION FOR DDIV«, t00=0x0132, t01=0x000a}
0x1de18…1de26 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0132, t01=0x0030}
0x1de26…1de2e Head {h00=0x0004, h01=0x0050, t00=0x0132, t01=0x003e}
0x1de2e…1de3a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0132, t01=0x0046}
0x1de3a…1de46 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0132, t01=0x0052}
0x1de46…1de7a Head {h00=0x0030, h01=0x0050, text=»* RELOCATE ADDRESSES IN T:ATAB AFTER MOVE * «, t00=0x0132, t01=0x005e}
0x1de7a…1deac Head {h00=0x002e, h01=0x0050, text=»* CALCULATE TOTAL (=REAL) LENGTH * «, t00=0x0132, t01=0x0092}
0x1deac…1dede Head {h00=0x002e, h01=0x0050, text=»* REMOVE NOT USED ENTRIES IN T:ATAB * «, t00=0x0132, t01=0x00c4}
0x1dede…1df10 Head {h00=0x002e, h01=0x0050, text=»* A9=P:MTAB A6=MOVE-RELOC * «, t00=0x0132, t01=0x00f6}
0x1df10…1df42 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0132, t01=0x0128}
0x1df42…1df5e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0132, t01=0x015a}
0x1df5e…1df66 Head {h00=0x0004, h01=0x0050, t00=0x0132, t01=0x0176}
0x1df66…1df82 Head {h00=0x0018, h01=0x0050, text=»* INITIATE POINTERS «, t00=0x0132, t01=0x017e}
0x1df82…1df8a Head {h00=0x0004, h01=0x0050, t00=0x0133, t01=0x000a}
0x1df8a…1dfb6 Head {h00=0x0028, h01=0x0050, text=» LD A8,T:ATOD,A13 GET T:ATAB ADDRESS«, t00=0x0133, t01=0x0012}
0x1dfb6…1dfd4 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A8 GET LENGTH«, t00=0x0133, t01=0x003e}
0x1dfd4…1dff4 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A8 END OF T:ATAB«, t00=0x0133, t01=0x005c}
0x1dff4…1e012 Head {h00=0x001a, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE«, t00=0x0133, t01=0x007c}
0x1e012…1e046 Head {h00=0x0030, h01=0x0050, text=» LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB«, t00=0x0133, t01=0x009a}
0x1e046…1e066 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A5 2:ND POINTER «, t00=0x0133, t01=0x00ce}
0x1e066…1e090 Head {h00=0x0026, h01=0x0050, text=» LDR A2,A8 2:ND POINTER IN T:ATAB «, t00=0x0133, t01=0x00ee}
0x1e090…1e0ba Head {h00=0x0026, h01=0x0050, text=» LDK A3,2 SET 'NEW' T:ATAB COUNTER«, t00=0x0133, t01=0x0118}
0x1e0ba…1e0ec Head {h00=0x002e, h01=0x0050, text=» SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR«, t00=0x0133, t01=0x0142}
0x1e0ec…1e0f4 Head {h00=0x0004, h01=0x0050, t00=0x0133, t01=0x0174}
0x1e0f4…1e10a Head {h00=0x0012, h01=0x0050, text=»* SCAN T:ATAB:«, t00=0x0133, t01=0x017c}
0x1e10a…1e112 (308, 0, 398) Head {h00=0x0004, h01=0x0050, t00=0x0134, t01=0x0004}
0x1e112…1e138 Head {h00=0x0022, h01=0x0050, text=»SYA160 ADKL A8,2 TAKE NEXT T:A«, t00=0x0134, t01=0x000c}
0x1e138…1e160 Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 NEXT T:A IN SHADOW-TAB«, t00=0x0134, t01=0x0032}
0x1e160…1e17a Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x0134, t01=0x005a}
0x1e17a…1e198 Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA170 ALL DONE«, t00=0x0134, t01=0x0074}
0x1e198…1e1b4 Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A8 GET T:A «, t00=0x0134, t01=0x0092}
0x1e1b4…1e1e2 Head {h00=0x002a, h01=0x0050, text=» LDR* A7,A5 GET CONTENTS OF SHADOW-TAB«, t00=0x0134, t01=0x00ae}
0x1e1e2…1e212 Head {h00=0x002c, h01=0x0050, text=» RB(Z) SYA160 THIS T:A IS NOT USED!!!!! «, t00=0x0134, t01=0x00dc}
0x1e212…1e238 Head {h00=0x0022, h01=0x0050, text=» ADR A11,A7 ACCUMULATE LENGTH «, t00=0x0134, t01=0x010c}
0x1e238…1e268 Head {h00=0x002c, h01=0x0050, text=» ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH «, t00=0x0134, t01=0x0132}
0x1e268…1e298 Head {h00=0x002c, h01=0x0050, text=» ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS«, t00=0x0134, t01=0x0162}
0x1e298…1e2c4 (309, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS«, t00=0x0135, t01=0x0004}
0x1e2c4…1e300 Head {h00=0x0038, h01=0x0050, text=» STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) «, t00=0x0135, t01=0x0030}
0x1e300…1e324 Head {h00=0x0020, h01=0x0050, text=» LDR* A10,A8 GET T:A-ADDRESS«, t00=0x0135, t01=0x006c}
0x1e324…1e340 Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x0135, t01=0x0090}
0x1e340…1e372 Head {h00=0x002e, h01=0x0050, text=» STR A10,A2 STORE ADDR. (EV. ON NEW PLACE)«, t00=0x0135, t01=0x00ac}
0x1e372…1e394 Head {h00=0x001e, h01=0x0050, text=»* RELOCATE W.B.-ADDRESSES «, t00=0x0135, t01=0x00de}
0x1e394…1e39c Head {h00=0x0004, h01=0x0050, t00=0x0135, t01=0x0100}
0x1e39c…1e3c4 Head {h00=0x0024, h01=0x0050, text=» LD A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x0135, t01=0x0108}
0x1e3c4…1e3ec Head {h00=0x0024, h01=0x0050, text=» LD A7,WATLEN,A12 LENGTH OF WAT «, t00=0x0135, t01=0x0130}
0x1e3ec…1e41e Head {h00=0x002e, h01=0x0050, text=» ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS«, t00=0x0135, t01=0x0158}
0x1e41e…1e442 Head {h00=0x0020, h01=0x0050, text=»SYA165 SUK A7,1 DEC. COUNTER«, t00=0x0135, t01=0x018a}
0x1e442…1e466 Head {h00=0x0020, h01=0x0050, text=» RB(N) SYA160 TAKE NEXT T:A «, t00=0x0136, t01=0x001e}
0x1e466…1e482 Head {h00=0x0018, h01=0x0050, text=» ADRS A6,A1 RELOCATE«, t00=0x0136, t01=0x0042}
0x1e482…1e48e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0136, t01=0x005e}
0x1e48e…1e4aa Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0136, t01=0x006a}
0x1e4aa…1e4b2 Head {h00=0x0004, h01=0x0050, t00=0x0136, t01=0x0086}
0x1e4b2…1e4ce Head {h00=0x0018, h01=0x0050, text=»* INITIATE POINTERS «, t00=0x0136, t01=0x008e}
0x1e4ce…1e4d6 Head {h00=0x0004, h01=0x0050, t00=0x0136, t01=0x00aa}
0x1e4d6…1e4f6 Head {h00=0x001c, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB«, t00=0x0136, t01=0x00b2}
0x1e4f6…1e514 Head {h00=0x001a, h01=0x0050, text=» ELR A3,A8 GET LENGTH «, t00=0x0136, t01=0x00d2}
0x1e514…1e534 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A8 END OF T:ATAB«, t00=0x0136, t01=0x00f0}
0x1e534…1e552 Head {h00=0x001a, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE«, t00=0x0136, t01=0x0110}
0x1e552…1e586 Head {h00=0x0030, h01=0x0050, text=» LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB«, t00=0x0136, t01=0x012e}
0x1e586…1e5a6 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A5 2:ND POINTER «, t00=0x0136, t01=0x0162}
0x1e5a6…1e5d0 Head {h00=0x0026, h01=0x0050, text=» LDR A2,A8 2:ND POINTER IN T:ATAB «, t00=0x0136, t01=0x0182}
0x1e5d0…1e5fa Head {h00=0x0026, h01=0x0050, text=» LDK A3,2 SET 'NEW' T:ATAB COUNTER«, t00=0x0137, t01=0x001c}
0x1e5fa…1e62c Head {h00=0x002e, h01=0x0050, text=» SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR«, t00=0x0137, t01=0x0046}
0x1e62c…1e634 Head {h00=0x0004, h01=0x0050, t00=0x0137, t01=0x0078}
0x1e634…1e64a Head {h00=0x0012, h01=0x0050, text=»* SCAN T:ATAB:«, t00=0x0137, t01=0x0080}
0x1e64a…1e652 Head {h00=0x0004, h01=0x0050, t00=0x0137, t01=0x0096}
0x1e652…1e678 Head {h00=0x0022, h01=0x0050, text=»SYA160 ADKL A8,2 TAKE NEXT T:A«, t00=0x0137, t01=0x009e}
0x1e678…1e6a0 Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 NEXT T:A IN SHADOW-TAB«, t00=0x0137, t01=0x00c4}
0x1e6a0…1e6ba Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x0137, t01=0x00ec}
0x1e6ba…1e6d8 Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA170 ALL DONE«, t00=0x0137, t01=0x0106}
0x1e6d8…1e6f2 Head {h00=0x0016, h01=0x0050, text=» ELR A1,A8 GET T:A«, t00=0x0137, t01=0x0124}
0x1e6f2…1e720 Head {h00=0x002a, h01=0x0050, text=» LDR* A7,A5 GET CONTENTS OF SHADOW-TAB«, t00=0x0137, t01=0x013e}
0x1e720…1e750 Head {h00=0x002c, h01=0x0050, text=» RB(Z) SYA160 THIS T:A IS NOT USED!!!!! «, t00=0x0137, t01=0x016c}
0x1e750…1e776 Head {h00=0x0022, h01=0x0050, text=» ADR A11,A7 ACCUMULATE LENGTH «, t00=0x0138, t01=0x000c}
0x1e776…1e7a6 Head {h00=0x002c, h01=0x0050, text=» ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH «, t00=0x0138, t01=0x0032}
0x1e7a6…1e7d6 Head {h00=0x002c, h01=0x0050, text=» ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS«, t00=0x0138, t01=0x0062}
0x1e7d6…1e802 Head {h00=0x0028, h01=0x0050, text=» ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS«, t00=0x0138, t01=0x0092}
0x1e802…1e83e Head {h00=0x0038, h01=0x0050, text=» STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) «, t00=0x0138, t01=0x00be}
0x1e83e…1e862 Head {h00=0x0020, h01=0x0050, text=» ELR A10,A8 GET T:A-ADDRESS «, t00=0x0138, t01=0x00fa}
0x1e862…1e87e Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x0138, t01=0x011e}
0x1e87e…1e8b0 Head {h00=0x002e, h01=0x0050, text=» ESR A10,A2 STORE ADDR. (EV. ON NEW PLACE)«, t00=0x0138, t01=0x013a}
0x1e8b0…1e8d2 Head {h00=0x001e, h01=0x0050, text=»* RELOCATE W.B.-ADDRESSES «, t00=0x0138, t01=0x016c}
0x1e8d2…1e8da Head {h00=0x0004, h01=0x0050, t00=0x0138, t01=0x018e}
0x1e8da…1e902 Head {h00=0x0024, h01=0x0050, text=» EL A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x0139, t01=0x0008}
0x1e902…1e92a Head {h00=0x0024, h01=0x0050, text=» EL A7,WATLEN,A12 LENGTH OF WAT «, t00=0x0139, t01=0x0030}
0x1e92a…1e95c Head {h00=0x002e, h01=0x0050, text=» ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS«, t00=0x0139, t01=0x0058}
0x1e95c…1e980 Head {h00=0x0020, h01=0x0050, text=»SYA165 SUK A7,1 DEC. COUNTER«, t00=0x0139, t01=0x008a}
0x1e980…1e9a4 Head {h00=0x0020, h01=0x0050, text=» RB(N) SYA160 TAKE NEXT T:A «, t00=0x0139, t01=0x00ae}
0x1e9a4…1e9c4 Head {h00=0x001c, h01=0x0050, text=» ELR A10,A1 GET ADDRESS «, t00=0x0139, t01=0x00d2}
0x1e9c4…1e9e0 Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x0139, t01=0x00f2}
0x1e9e0…1e9f4 Head {h00=0x0010, h01=0x0050, text=» ESR A10,A1 «, t00=0x0139, t01=0x010e}
0x1e9f4…1ea00 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0139, t01=0x0122}
0x1ea00…1ea16 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0139, t01=0x012e}
0x1ea16…1ea32 Head {h00=0x0018, h01=0x0050, text=» ADK A1,4 NEXT W.B. «, t00=0x0139, t01=0x0144}
0x1ea32…1ea44 Head {h00=0x000e, h01=0x0050, text=» RB SYA165«, t00=0x0139, t01=0x0160}
0x1ea44…1ea4c Head {h00=0x0004, h01=0x0050, t00=0x0139, t01=0x0172}
0x1ea4c…1ea60 Head {h00=0x0010, h01=0x0050, text=»SYA170 EQU *«, t00=0x0139, t01=0x017a}
0x1ea60…1ea7e Head {h00=0x001a, h01=0x0050, text=» ST A6,MOVADD,A13 SAVE«, t00=0x0139, t01=0x018e}
0x1ea7e…1eaba Head {h00=0x0038, h01=0x0050, text=» ST* A3,SCTSFA STORE NEW TABLE LENGTH IN SHADOW-TAB «, t00=0x013a, t01=0x001c}
0x1eaba…1ead6 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x013a, t01=0x0058}
0x1ead6…1eafe Head {h00=0x0024, h01=0x0050, text=» ES* A3,T:ATOD,A13 AND IN T:ATAB«, t00=0x013a, t01=0x0074}
0x1eafe…1eb0a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013a, t01=0x009c}
0x1eb0a…1eb26 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x013a, t01=0x00a8}
0x1eb26…1eb4e Head {h00=0x0024, h01=0x0050, text=» ST* A3,T:ATOD,A13 AND IN T:ATAB«, t00=0x013a, t01=0x00c4}
0x1eb4e…1eb5a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013a, t01=0x00ec}
0x1eb5a…1eb70 Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x013a, t01=0x00f8}
0x1eb70…1eba4 Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR «, t00=0x013a, t01=0x010e}
0x1eba4…1ebd0 Head {h00=0x0028, h01=0x0050, text=» SLL A2,1 CALC. REAL LENGTH (BYTES) «, t00=0x013a, t01=0x0142}
0x1ebd0…1ebe2 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x013a, t01=0x016e}
0x1ebe2…1ec16 Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'S «, t00=0x013a, t01=0x0180}
0x1ec16…1ec22 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x013b, t01=0x0024}
0x1ec22…1ec30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013b, t01=0x0030}
0x1ec30…1ec56 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x013b, t01=0x003e}
0x1ec56…1ec7e Head {h00=0x0024, h01=0x0050, text=»* RELOCATE ADDRESSES IN U:BTAB *«, t00=0x013b, t01=0x0064}
0x1ec7e…1eca6 Head {h00=0x0024, h01=0x0050, text=»* (REAL LENGTH=PROTOTYPE LEN.) *«, t00=0x013b, t01=0x008c}
0x1eca6…1ecce Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x013b, t01=0x00b4}
0x1ecce…1ecd6 Head {h00=0x0004, h01=0x0050, t00=0x013b, t01=0x00dc}
0x1ecd6…1ecf2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x013b, t01=0x00e4}
0x1ecf2…1ed1a Head {h00=0x0024, h01=0x0050, text=» LD A5,U:BTOD,A13 U:BTAB ADDRESS«, t00=0x013b, t01=0x0100}
0x1ed1a…1ed34 Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A5 LENGTH«, t00=0x013b, t01=0x0128}
0x1ed34…1ed4e Head {h00=0x0016, h01=0x0050, text=» ST A3,SAVE06,A13 «, t00=0x013b, t01=0x0142}
0x1ed4e…1ed70 Head {h00=0x001e, h01=0x0050, text=» ADK A5,2 SKIP LENGTH WORD«, t00=0x013b, t01=0x015c}
0x1ed70…1ed88 Head {h00=0x0014, h01=0x0050, text=» SUK A3,2 -"- «, t00=0x013b, t01=0x017e}
0x1ed88…1edae Head {h00=0x0022, h01=0x0050, text=»SYA180 RF(Z) SYA185 ALL DONE! «, t00=0x013c, t01=0x0008}
0x1edae…1edca Head {h00=0x0018, h01=0x0050, text=» ADRS A6,A5 RELOCATE«, t00=0x013c, t01=0x002e}
0x1edca…1edd6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013c, t01=0x004a}
0x1edd6…1edf2 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x013c, t01=0x0056}
0x1edf2…1ee1a Head {h00=0x0024, h01=0x0050, text=» LD A5,U:BTOD,A13 U:BTAB ADDRESS«, t00=0x013c, t01=0x0072}
0x1ee1a…1ee3a Head {h00=0x001c, h01=0x0050, text=» ELR A3,A5 TABLE LENGTH «, t00=0x013c, t01=0x009a}
0x1ee3a…1ee6a Head {h00=0x002c, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB «, t00=0x013c, t01=0x00ba}
0x1ee6a…1ee7c Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x013c, t01=0x00ea}
0x1ee7c…1ee9e Head {h00=0x001e, h01=0x0050, text=» SUK A3,2 SUB LENGTH-WORD «, t00=0x013c, t01=0x00fc}
0x1ee9e…1eeba Head {h00=0x0018, h01=0x0050, text=»SYA180 RF(Z) SYA185 «, t00=0x013c, t01=0x011e}
0x1eeba…1eeda Head {h00=0x001c, h01=0x0050, text=» ELR A10,A5 GET ADDRESS «, t00=0x013c, t01=0x013a}
0x1eeda…1eef6 Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x013c, t01=0x015a}
0x1eef6…1ef0a Head {h00=0x0010, h01=0x0050, text=» ESR A10,A5 «, t00=0x013c, t01=0x0176}
0x1ef0a…1ef16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013c, t01=0x018a}
0x1ef16…1ef2c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x013d, t01=0x0008}
0x1ef2c…1ef68 Head {h00=0x0038, h01=0x0050, text=» ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP«, t00=0x013d, t01=0x001e}
0x1ef68…1ef7e Head {h00=0x0012, h01=0x0050, text=» SUK A3,UP:REC«, t00=0x013d, t01=0x005a}
0x1ef7e…1ef90 Head {h00=0x000e, h01=0x0050, text=» RB SYA180«, t00=0x013d, t01=0x0070}
0x1ef90…1ef9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013d, t01=0x0082}
0x1ef9e…1efb2 Head {h00=0x0010, h01=0x0050, text=»SYA185 EQU *«, t00=0x013d, t01=0x0090}
0x1efb2…1efce Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x013d, t01=0x00a4}
0x1efce…1efd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x00c0}
0x1efd8…1f000 Head {h00=0x0024, h01=0x0050, text=»* COMPUTE REAL LENGTH OF S:BTAB«, t00=0x013d, t01=0x00ca}
0x1f000…1f00a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x00f2}
0x1f00a…1f032 Head {h00=0x0024, h01=0x0050, text=» LD A5,S:BTOD,A13 S:BTAB ADDRESS«, t00=0x013d, t01=0x00fc}
0x1f032…1f058 Head {h00=0x0022, h01=0x0050, text=» ELR A3,A5 LENGTH OF PROTOTYPE«, t00=0x013d, t01=0x0124}
0x1f058…1f070 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x013d, t01=0x014a}
0x1f070…1f096 Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 EXCLUDE LENGTH WORD «, t00=0x013d, t01=0x0162}
0x1f096…1f0c6 Head {h00=0x002c, h01=0x0050, text=»SYA190 RF(Z) SYA199 ALL RECORDS SCANNED!«, t00=0x013d, t01=0x0188}
0x1f0c6…1f0ee Head {h00=0x0024, h01=0x0050, text=» EL A4,2,A5 GET PROT. W.B.-ADDR.«, t00=0x013e, t01=0x0028}
0x1f0ee…1f10a Head {h00=0x0018, h01=0x0050, text=» ADR A4,A6 RELOCATE «, t00=0x013e, t01=0x0050}
0x1f10a…1f12c Head {h00=0x001e, h01=0x0050, text=» ES A4,2,A5 STORE IT BACK «, t00=0x013e, t01=0x006c}
0x1f12c…1f15c Head {h00=0x002c, h01=0x0050, text=» EL A4,UPNUMB-1,A5 GET NUMBER OF COPIES «, t00=0x013e, t01=0x008e}
0x1f15c…1f17e Head {h00=0x001e, h01=0x0050, text=» ANK A4,/FF GET RIGHT BYTE«, t00=0x013e, t01=0x00be}
0x1f17e…1f1b0 Head {h00=0x002e, h01=0x0050, text=»SYA192 RF(Z) SYA194 NO MOORE OF THIS TYPE!«, t00=0x013e, t01=0x00e0}
0x1f1b0…1f1d2 Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 INCREMENT LENGTH«, t00=0x013e, t01=0x0112}
0x1f1d2…1f1fe Head {h00=0x0028, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF COPIES«, t00=0x013e, t01=0x0134}
0x1f1fe…1f210 Head {h00=0x000e, h01=0x0050, text=» RB SYA192«, t00=0x013e, t01=0x0160}
0x1f210…1f24c Head {h00=0x0038, h01=0x0050, text=»SYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE«, t00=0x013e, t01=0x0172}
0x1f24c…1f274 Head {h00=0x0024, h01=0x0050, text=» SUK A3,UP:REC DECREMENT LENGTH «, t00=0x013f, t01=0x001e}
0x1f274…1f286 Head {h00=0x000e, h01=0x0050, text=» RB SYA190«, t00=0x013f, t01=0x0046}
0x1f286…1f292 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013f, t01=0x0058}
0x1f292…1f2ae Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x013f, t01=0x0064}
0x1f2ae…1f2d6 Head {h00=0x0024, h01=0x0050, text=» LD A5,S:BTOD,A13 S:BTAB ADDRESS«, t00=0x013f, t01=0x0080}
0x1f2d6…1f304 Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE«, t00=0x013f, t01=0x00a8}
0x1f304…1f31c Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x013f, t01=0x00d6}
0x1f31c…1f342 Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 EXCLUDE LENGTH WORD «, t00=0x013f, t01=0x00ee}
0x1f342…1f372 Head {h00=0x002c, h01=0x0050, text=»SYA195 RF(Z) SYA199 ALL RECORDS SCANNED!«, t00=0x013f, t01=0x0114}
0x1f372…1f39a Head {h00=0x0024, h01=0x0050, text=» LD A4,2,A5 GET PROT. W.B.-ADDR.«, t00=0x013f, t01=0x0144}
0x1f39a…1f3b6 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A6 RELOCATE «, t00=0x013f, t01=0x016c}
0x1f3b6…1f3d8 Head {h00=0x001e, h01=0x0050, text=» ST A4,2,A5 STORE IT BACK «, t00=0x013f, t01=0x0188}
0x1f3d8…1f408 Head {h00=0x002c, h01=0x0050, text=» LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES «, t00=0x0140, t01=0x001a}
0x1f408…1f41c Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0140, t01=0x004a}
0x1f41c…1f44e Head {h00=0x002e, h01=0x0050, text=»SYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE!«, t00=0x0140, t01=0x005e}
0x1f44e…1f470 Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 INCREMENT LENGTH«, t00=0x0140, t01=0x0090}
0x1f470…1f49c Head {h00=0x0028, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF COPIES«, t00=0x0140, t01=0x00b2}
0x1f49c…1f4ae Head {h00=0x000e, h01=0x0050, text=» RB SYA196«, t00=0x0140, t01=0x00de}
0x1f4ae…1f4ea Head {h00=0x0038, h01=0x0050, text=»SYA198 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE«, t00=0x0140, t01=0x00f0}
0x1f4ea…1f512 Head {h00=0x0024, h01=0x0050, text=» SUK A3,UP:REC DECREMENT LENGTH «, t00=0x0140, t01=0x012c}
0x1f512…1f524 Head {h00=0x000e, h01=0x0050, text=» RB SYA195«, t00=0x0140, t01=0x0154}
0x1f524…1f530 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0140, t01=0x0166}
0x1f530…1f54c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0140, t01=0x0172}
0x1f54c…1f580 Head {h00=0x0030, h01=0x0050, text=»SYA199 ST A2,SAVE25,A13 SAVE COMPUTED LENGTH«, t00=0x0140, t01=0x018e}
0x1f580…1f58c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0141, t01=0x0032}
0x1f58c…1f5a2 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0141, t01=0x003e}
0x1f5a2…1f5b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0141, t01=0x0054}
0x1f5b0…1f5b8 Head {h00=0x0004, h01=0x0050, t00=0x0141, t01=0x0062}
0x1f5b8…1f5f2 Head {h00=0x0036, h01=0x0050, text=»* RELOCATE T:ATAB- AND U:BTAB-ADDRESSES IN P:MTAB «, t00=0x0141, t01=0x006a}
0x1f5f2…1f5fe Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0141, t01=0x00a4}
0x1f5fe…1f618 Head {h00=0x0016, h01=0x0050, text=» ADS A6,T:ATOD,A13«, t00=0x0141, t01=0x00b0}
0x1f618…1f632 Head {h00=0x0016, h01=0x0050, text=» ADS A6,U:BTOD,A13«, t00=0x0141, t01=0x00ca}
0x1f632…1f64e Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0141, t01=0x00e4}
0x1f64e…1f668 Head {h00=0x0016, h01=0x0050, text=» ADS A6,S:BTOD,A13«, t00=0x0141, t01=0x0100}
0x1f668…1f674 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0141, t01=0x011a}
0x1f674…1f690 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0141, t01=0x0126}
0x1f690…1f6b0 Head {h00=0x001c, h01=0x0050, text=»* CALCULATE NEW DDIV END«, t00=0x0141, t01=0x0142}
0x1f6b0…1f6b8 Head {h00=0x0004, h01=0x0050, t00=0x0141, t01=0x0162}
0x1f6b8…1f6ca Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x0141, t01=0x016a}
0x1f6ca…1f6ee Head {h00=0x0020, h01=0x0050, text=» SU A5,SAVE04,A13 END-START «, t00=0x0141, t01=0x017c}
0x1f6ee…1f716 Head {h00=0x0024, h01=0x0050, text=» AD A5,SAVE12,A13 ADD NEW START «, t00=0x0142, t01=0x0010}
0x1f716…1f734 Head {h00=0x001a, h01=0x0050, text=» ST A5,DATEND,A13 SAVE«, t00=0x0142, t01=0x0038}
0x1f734…1f740 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0142, t01=0x0056}
0x1f740…1f75c Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0142, t01=0x0062}
0x1f75c…1f764 Head {h00=0x0004, h01=0x0050, t00=0x0142, t01=0x007e}
0x1f764…1f76c Head {h00=0x0004, h01=0x0050, t00=0x0142, t01=0x0086}
0x1f76c…1f78e Head {h00=0x001e, h01=0x0050, text=»* STORE MMTABLE ADDRESSES «, t00=0x0142, t01=0x008e}
0x1f78e…1f796 Head {h00=0x0004, h01=0x0050, t00=0x0142, t01=0x00b0}
0x1f796…1f7ac Head {h00=0x0012, h01=0x0050, text=» LDK A4,MMDDIV«, t00=0x0142, t01=0x00b8}
0x1f7ac…1f7d2 Head {h00=0x0022, h01=0x0050, text=» ADR A4,A13 GET TABLE ADDRESS «, t00=0x0142, t01=0x00ce}
0x1f7d2…1f7fc Head {h00=0x0026, h01=0x0050, text=» LDR A5,A13 CALC. REAL RELOCATION «, t00=0x0142, t01=0x00f4}
0x1f7fc…1f816 Head {h00=0x0016, h01=0x0050, text=» SU A5,SAVE12,A13 «, t00=0x0142, t01=0x011e}
0x1f816…1f830 Head {h00=0x0016, h01=0x0050, text=» SU A5,MMREL1,A13 «, t00=0x0142, t01=0x0138}
0x1f830…1f84c Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 RELOCATE «, t00=0x0142, t01=0x0152}
0x1f84c…1f86c Head {h00=0x001c, h01=0x0050, text=» ST A4,MMTO,A13 AND SAVE«, t00=0x0142, t01=0x016e}
0x1f86c…1f882 Head {h00=0x0012, h01=0x0050, text=» LDK A4,MMTAB «, t00=0x0142, t01=0x018e}
0x1f882…1f8aa Head {h00=0x0024, h01=0x0050, text=» ADR A4,A13 'WORK-TABLE' ADDRESS«, t00=0x0143, t01=0x0014}
0x1f8aa…1f8c6 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 RELOCATE «, t00=0x0143, t01=0x003c}
0x1f8c6…1f8e0 Head {h00=0x0016, h01=0x0050, text=» ST A4,MMFROM,A13 «, t00=0x0143, t01=0x0058}
0x1f8e0…1f8fc Head {h00=0x0018, h01=0x0050, text=»* CALCULATE DDIV END«, t00=0x0143, t01=0x0072}
0x1f8fc…1f904 Head {h00=0x0004, h01=0x0050, t00=0x0143, t01=0x008e}
0x1f904…1f920 Head {h00=0x0018, h01=0x0050, text=» LDR A5,A9 DDIV END «, t00=0x0143, t01=0x0096}
0x1f920…1f944 Head {h00=0x0020, h01=0x0050, text=» SU A5,SAVE04,A13 ENT-START «, t00=0x0143, t01=0x00b2}
0x1f944…1f96c Head {h00=0x0024, h01=0x0050, text=» AD A5,SAVE12,A13 ADD NEW START «, t00=0x0143, t01=0x00d6}
0x1f96c…1f97e Head {h00=0x000e, h01=0x0050, text=» LDR A6,A5«, t00=0x0143, t01=0x00fe}
0x1f97e…1f9b2 Head {h00=0x0030, h01=0x0050, text=» ANKL A6,/F000 GET LOGICALL PAGE (MM-ENTRY) «, t00=0x0143, t01=0x0110}
0x1f9b2…1f9da Head {h00=0x0024, h01=0x0050, text=» SRL A6,11 ADJUST FOR ADDRESSING«, t00=0x0143, t01=0x0144}
0x1f9da…1fa0c Head {h00=0x002e, h01=0x0050, text=» ADK A6,MMDDIV ADD RELATIVE START ADDRESS «, t00=0x0143, t01=0x016c}
0x1fa0c…1fa28 Head {h00=0x0018, h01=0x0050, text=» ADR A6,A13 RELOCATE«, t00=0x0144, t01=0x000e}
0x1fa28…1fa52 Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A6 GET MM-TABLE CONTENTS «, t00=0x0144, t01=0x002a}
0x1fa52…1fa70 Head {h00=0x001a, h01=0x0050, text=» ST A6,FSTPAG,A13 SAVE«, t00=0x0144, t01=0x0054}
0x1fa70…1fa96 Head {h00=0x0022, h01=0x0050, text=» ANKL A5,/FFF GET DISPLACEMENT«, t00=0x0144, t01=0x0072}
0x1fa96…1fab8 Head {h00=0x001e, h01=0x0050, text=» ST A5,FSTADR,A13 AND SAVE«, t00=0x0144, t01=0x0098}
0x1fab8…1fac4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0144, t01=0x00ba}
0x1fac4…1fada Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0144, t01=0x00c6}
0x1fada…1faf8 Head {h00=0x001a, h01=0x0050, text=»* CONTINUE IN PART 2 *«, t00=0x0144, t01=0x00dc}
0x1faf8…1fb04 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0144, t01=0x00fa}
0x1fb04…1fb36 Head {h00=0x002e, h01=0x0050, text=» LD A2,SAVE12,A13 GET TO-ADDRESS (SYSLDA) «, t00=0x0144, t01=0x0106}
0x1fb36…1fb62 Head {h00=0x0028, h01=0x0050, text=» OR A2,MMREL1,A13 PHYSICALL ADDRESS «, t00=0x0144, t01=0x0138}
0x1fb62…1fb7a Head {h00=0x0014, h01=0x0050, text=» LDR A5,A2 SAVE «, t00=0x0144, t01=0x0164}
0x1fb7a…1fbae Head {h00=0x0030, h01=0x0050, text=» LDKL A7,START2 GET EXECUTION START ADDRESS «, t00=0x0144, t01=0x017c}
0x1fbae…1fbc0 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A2«, t00=0x0145, t01=0x0020}
0x1fbc0…1fbe6 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,LENGT2 SYSLDA LENGTH «, t00=0x0145, t01=0x0032}
0x1fbe6…1fc06 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A13 FROM-ADDRESS«, t00=0x0145, t01=0x0058}
0x1fc06…1fc0e Head {h00=0x0004, h01=0x0050, t00=0x0145, t01=0x0078}
0x1fc0e…1fc26 Head {h00=0x0014, h01=0x0050, text=»* MOVE SYSLDA * «, t00=0x0145, t01=0x0080}
0x1fc26…1fc2e Head {h00=0x0004, h01=0x0050, t00=0x0145, t01=0x0098}
0x1fc2e…1fc4a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0145, t01=0x00a0}
0x1fc4a…1fc6c Head {h00=0x001e, h01=0x0050, text=»NXTMOV LDR* A4,A1 GET WORD«, t00=0x0145, t01=0x00bc}
0x1fc6c…1fc8a Head {h00=0x001a, h01=0x0050, text=» STR A4,A2 STORE WORD «, t00=0x0145, t01=0x00de}
0x1fc8a…1fc9c Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0145, t01=0x00fc}
0x1fc9c…1fcae Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0145, t01=0x010e}
0x1fcae…1fccc Head {h00=0x001a, h01=0x0050, text=» SUK A3,2 DEC. LENGTH «, t00=0x0145, t01=0x0120}
0x1fccc…1fce2 Head {h00=0x0012, h01=0x0050, text=» RB(NN) NXTMOV«, t00=0x0145, t01=0x013e}
0x1fce2…1fcee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0145, t01=0x0154}
0x1fcee…1fd0a Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0145, t01=0x0160}
0x1fd0a…1fd1a Head {h00=0x000c, h01=0x0050, text=» MVB A3 «, t00=0x0145, t01=0x017c}
0x1fd1a…1fd26 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0145, t01=0x018c}
0x1fd26…1fd3c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0146, t01=0x0008}
0x1fd3c…1fd44 Head {h00=0x0004, h01=0x0050, t00=0x0146, t01=0x001e}
0x1fd44…1fd72 Head {h00=0x002a, h01=0x0050, text=» ABR A7 HEJ SVEJS! VI SES I PART 2... «, t00=0x0146, t01=0x0026}
0x1fd72…1fd7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0146, t01=0x0054}
0x1fd7e…1fd94 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0146, t01=0x0060}
0x1fd94…1fdaa Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x0146, t01=0x0076}
0x1fdaa…1fdd2 Head {h00=0x0024, h01=0x0050, text=» CALL ERROR INCONSISTENT MONITOR«, t00=0x0146, t01=0x008c}
0x1fdd2…1fdde Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0146, t01=0x00b4}
0x1fdde…1fdf2 Head {h00=0x0010, h01=0x0050, text=»LDAEND EQU *«, t00=0x0146, t01=0x00c0}
0x1fdf2…1fdfe Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0146, t01=0x00d4}
0x1fdfe…1fe02 Head {h00=0x4004, h01=0x0000}
0x1fe02…1fe06 01 46 00 e0 ┆ F ┆
0x1fe06…1fe0e (327, 1, 8) 20 04 00 00 01 47 00 04 ┆ G ┆
0x1fe0e…1fe5e (328, 0, 400) 00 12 00 50 5c 44 41 54 41 5c 30 5c 51 55 45 55 45 20 00 18 00 04 00 18 00 50 5c 44 41 54 41 5c 30 5c 53 45 43 4f 4e 44 20 51 55 45 55 45 00 18 00 1a 00 06 00 50 2a 20 00 18 00 36 00 12 00 50 5c 49 46 54 5c 41 43 4b 4d 55 4c 3d 31 20 00 18 ┆ P DATA 0 QUEUE P DATA 0 SECOND QUEUE P* 6 P IFT ACKMUL=1 ┆
0x1fe5e…1feae 00 40 00 06 00 50 2a 20 00 18 00 56 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4e 41 4b 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 18 00 60 00 24 00 50 5c 44 41 54 41 5c 30 5c 52 45 54 52 2e 20 46 41 55 4c 54 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 20 ┆ @ P* V P DATA 0 NAK-ACKUMULATOR ` $ P DATA 0 RETR. FAULT-ACKUMULATOR ┆
0x1feae…1fefe 00 18 00 80 00 2c 00 50 5c 44 41 54 41 5c 30 5c 55 4e 44 45 46 49 4e 45 44 2d 20 49 4e 54 45 52 52 55 50 54 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 00 18 00 a8 00 28 00 50 5c 44 41 54 41 5c 30 5c 50 52 49 4e 54 45 52 20 54 49 4d 45 4f 55 54 20 ┆ , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ┆
0x1fefe…1ff4e 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 18 00 d8 00 06 00 50 2a 20 00 18 01 04 00 08 00 50 5c 58 49 46 00 18 01 0e 00 06 00 50 2a 20 00 18 01 1a 00 12 00 50 5c 49 46 54 5c 4c 4f 43 48 41 4e 3d 33 20 00 18 01 24 00 06 00 50 2a 20 00 18 01 3a ┆ACKUMULATOR P* P XIF P* P IFT LOCHAN=3 $ P* :┆
0x1ff4e…1ff9e 00 06 00 50 2a 20 00 18 01 44 00 06 00 50 2a 20 00 18 01 4e 00 20 00 50 44 57 41 32 5c 45 51 55 5c 2f 31 33 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 00 18 01 58 00 06 00 50 2a 20 00 18 01 7c 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4c 41 ┆ P* D P* N PDWA2 EQU /13 DEVICE ADDRESS X P* | P DATA 0 LA┆
0x1ff9e…1ffee (329, 0, 400) 53 54 20 4f 55 54 50 55 54 20 44 57 54 20 00 18 01 86 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4c 41 53 54 20 4f 55 54 50 55 54 20 57 4f 52 44 00 19 00 16 00 20 00 50 5c 44 41 54 41 5c 49 4e 54 4c 54 32 5c 49 4e 54 45 52 52 55 50 54 20 54 41 42 ┆ST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TAB┆
0x1ffee…2003e 4c 45 00 19 00 36 00 16 00 50 5c 49 4e 52 5c 41 32 2c 30 2c 44 57 41 32 5c 49 4e 52 00 19 00 5a 00 16 00 50 5c 4f 54 52 5c 41 32 2c 30 2c 44 57 41 32 5c 4f 54 52 00 19 00 74 00 1c 00 50 5c 43 49 4f 5c 41 32 2c 31 2c 44 57 41 32 5c 43 49 4f ┆LE 6 P INR A2,0,DWA2 INR Z P OTR A2,0,DWA2 OTR t P CIO A2,1,DWA2 CIO┆
0x2003e…2008e 2d 53 54 41 52 54 00 19 00 8e 00 22 00 50 5c 44 41 54 41 5c 30 5c 52 45 54 52 41 4e 53 4d 49 53 53 49 4f 4e 20 43 4f 55 4e 54 45 52 00 19 00 ae 00 12 00 50 5c 44 41 54 41 5c 30 5c 51 55 45 55 45 20 00 19 00 d4 00 18 00 50 5c 44 41 54 41 5c ┆-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE P DATA ┆
0x2008e…200de 30 5c 53 45 43 4f 4e 44 20 51 55 45 55 45 00 19 00 ea 00 06 00 50 2a 20 00 19 01 06 00 12 00 50 5c 49 46 54 5c 41 43 4b 4d 55 4c 3d 31 20 00 19 01 10 00 06 00 50 2a 20 00 19 01 26 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4e 41 4b 2d 41 43 4b 55 ┆0 SECOND QUEUE P* P IFT ACKMUL=1 P* & P DATA 0 NAK-ACKU┆
0x200de…2012e 4d 55 4c 41 54 4f 52 20 00 19 01 30 00 24 00 50 5c 44 41 54 41 5c 30 5c 52 45 54 52 2e 20 46 41 55 4c 54 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 19 01 50 00 2c 00 50 5c 44 41 54 41 5c 30 5c 55 4e 44 45 46 49 4e 45 44 2d 20 49 4e 54 45 52 ┆MULATOR 0 $ P DATA 0 RETR. FAULT-ACKUMULATOR P , P DATA 0 UNDEFINED- INTER┆
0x2012e…2017e (330, 0, 400) 52 55 50 54 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 00 19 01 78 00 28 00 50 5c 44 41 54 41 5c 30 5c 50 52 49 4e 54 45 52 20 54 49 4d 45 4f 55 54 20 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 1a 00 18 00 06 00 50 2a 20 00 1a 00 44 00 08 00 50 5c 58 ┆RUPT-ACKUMULATOR x ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* D P X┆
0x2017e…201ce 49 46 00 1a 00 4e 00 06 00 50 2a 20 00 1a 00 5a 00 12 00 50 5c 49 46 54 5c 4c 4f 43 48 41 4e 3d 34 20 00 1a 00 64 00 06 00 50 2a 20 00 1a 00 7a 00 06 00 50 2a 20 00 1a 00 84 00 06 00 50 2a 20 00 1a 00 8e 00 20 00 50 44 57 41 32 5c 45 51 55 ┆IF N P* Z P IFT LOCHAN=4 d P* z P* P* PDWA2 EQU┆
0x201ce…2021e 5c 2f 31 33 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 00 1a 00 98 00 06 00 50 2a 20 00 1a 00 bc 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4c 41 53 54 20 4f 55 54 50 55 54 20 44 57 54 20 00 1a 00 c6 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4c 41 ┆ /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LA┆
0x2021e…2026e 53 54 20 4f 55 54 50 55 54 20 57 4f 52 44 00 1a 00 e6 00 20 00 50 5c 44 41 54 41 5c 49 4e 54 4c 54 32 5c 49 4e 54 45 52 52 55 50 54 20 54 41 42 4c 45 00 1a 01 06 00 16 00 50 5c 49 4e 52 5c 41 32 2c 30 2c 44 57 41 32 5c 49 4e 52 00 1a 01 2a ┆ST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE P INR A2,0,DWA2 INR *┆
0x2026e…202be 00 16 00 50 5c 4f 54 52 5c 41 32 2c 30 2c 44 57 41 32 5c 4f 54 52 00 1a 01 44 00 1c 00 50 5c 43 49 4f 5c 41 32 2c 31 2c 44 57 41 32 5c 43 49 4f 2d 53 54 41 52 54 00 1a 01 5e 00 22 00 50 5c 44 41 54 41 5c 30 5c 52 45 54 52 41 4e 53 4d 49 53 ┆ P OTR A2,0,DWA2 OTR D P CIO A2,1,DWA2 CIO-START ^ " P DATA 0 RETRANSMIS┆
0x202be…2030e (331, 0, 400) 53 49 4f 4e 20 43 4f 55 4e 54 45 52 00 1a 01 7e 00 12 00 50 5c 44 41 54 41 5c 30 5c 51 55 45 55 45 20 00 1b 00 14 00 18 00 50 5c 44 41 54 41 5c 30 5c 53 45 43 4f 4e 44 20 51 55 45 55 45 00 1b 00 2a 00 06 00 50 2a 20 00 1b 00 46 00 12 00 50 ┆SION COUNTER ~ P DATA 0 QUEUE P DATA 0 SECOND QUEUE * P* F P┆
0x2030e…2035e 5c 49 46 54 5c 41 43 4b 4d 55 4c 3d 31 20 00 1b 00 50 00 06 00 50 2a 20 00 1b 00 66 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4e 41 4b 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 1b 00 70 00 24 00 50 5c 44 41 54 41 5c 30 5c 52 45 54 52 2e 20 46 41 ┆ IFT ACKMUL=1 P P* f P DATA 0 NAK-ACKUMULATOR p $ P DATA 0 RETR. FA┆
0x2035e…203ae 55 4c 54 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 1b 00 90 00 2c 00 50 5c 44 41 54 41 5c 30 5c 55 4e 44 45 46 49 4e 45 44 2d 20 49 4e 54 45 52 52 55 50 54 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 00 1b 00 b8 00 28 00 50 5c 44 41 54 41 5c 30 5c ┆ULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 ┆
0x203ae…203fe 50 52 49 4e 54 45 52 20 54 49 4d 45 4f 55 54 20 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 1b 00 e8 00 06 00 50 2a 20 00 1b 01 14 00 08 00 50 5c 58 49 46 00 1b 01 1e 00 06 00 50 2a 20 00 1b 01 2a 00 0a 00 50 5c 45 4a 45 43 54 00 1b 01 34 00 06 ┆PRINTER TIMEOUT ACKUMULATOR P* P XIF P* * P EJECT 4 ┆
0x203fe…2044e 00 50 2a 20 00 1b 01 42 00 06 00 50 2a 20 00 1b 01 4c 00 3a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 1b 01 56 ┆ P* B P* L : P***************************************************** V┆
0x2044e…2049e (332, 0, 400) 00 3a 00 50 2a 20 20 20 20 43 20 57 20 54 20 4c 20 54 20 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 1c 00 04 00 3a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ : P* C W T L T 3 * : P**************┆
0x2049e…204ee 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 1c 00 42 00 06 00 50 2a 20 00 1c 00 80 00 34 00 50 2a 20 20 20 20 43 4f 4e 54 52 4f 4c 20 57 4f 52 4b 20 54 41 42 4c ┆*************************************** B P* 4 P* CONTROL WORK TABL┆
0x204ee…2053e 45 20 46 4f 52 20 4c 4f 43 41 4c 20 43 48 41 4e 4e 45 4c 20 4e 4f 2e 20 33 20 00 1c 00 8a 00 06 00 50 2a 20 00 1c 00 c2 00 10 00 50 43 57 54 4c 54 33 5c 45 51 55 5c 2a 00 1c 00 cc 00 06 00 50 2a 20 00 1c 00 e0 00 12 00 50 5c 49 46 54 5c 4c ┆E FOR LOCAL CHANNEL NO. 3 P* PCWTLT3 EQU * P* P IFT L┆
0x2053e…2058e 4f 43 48 41 4e 3d 33 20 00 1c 00 ea 00 06 00 50 2a 20 00 1c 01 00 00 06 00 50 2a 20 00 1c 01 0a 00 06 00 50 2a 20 00 1c 01 14 00 20 00 50 44 57 41 33 5c 45 51 55 5c 2f 32 33 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 00 1c 01 1e 00 06 ┆OCHAN=3 P* P* P* PDWA3 EQU /23 DEVICE ADDRESS ┆
0x2058e…205de 00 50 2a 20 00 1c 01 42 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4c 41 53 54 20 4f 55 54 50 55 54 20 44 57 54 20 00 1c 01 4c 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4c 41 53 54 20 4f 55 54 50 55 54 20 57 4f 52 44 00 1c 01 6c 00 20 00 50 5c 44 41 54 ┆ P* B P DATA 0 LAST OUTPUT DWT L P DATA 0 LAST OUTPUT WORD l P DAT┆