|
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: 132588 (0x205ec)
Notes: pts_type(SC)
Names: »SYSLCO.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/SYSLCO.SC«
IDENT SYSLCO REL 11.0 81-01-26 870105041100 =3,CHANGE OF CONDITIONAL ASSEMBLY PRR 11.0 80-12-23 =2,A CALLED COBOL PROGRAM CAN CALL AN ASSEMBLER PROGRAM,AND FNDTGC USES MONITOR BLOCKS AS STACK PRR 11.0 80-12-03 =1,APPLICATION CONTROL BLOCK IS EXTENDED WITH 1 WORD PRR 11.0 80-11-19 ********************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * SYSLCO = SYSTEM LOAD - COBOL APPLICATION CONFIGURATION PART * * COBOL APPLICATION CONFIGURATION * ********************************************************** * * COBOL APPLICATION: * SYSLCO READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD * WORK-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS & * ITCT ADDRESS & MM-TAB ADDRESS & TID & DYNAMIC-CORE ADDRESSES). * SYSLCO THEN MOVES ITSELF TO 'TOP' (LOVEST FREE ADDRESS) AND * WILL ALSO MOVE DDIV-PROTOTYPE. * * APPLICATION TABLES ARE NOW * BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. * DYNAMIC-CORE * IS, IN CASE OF MMU AND/OR PAGING IN SYSTEM, ALSO ALLOCATED AT * 'BOTTOM' OF MEMORY; ELSE, DYNAMIC-CORE AREAS ARE ALLOCATED * AFTER MONITOR 'OVER' SYSLCO. * * ALL USER TASKS ARE QUEUED VIA A C T O T EJECT *************************** * * * ENTRIES AND EXTERNALS * * * *************************** * LABEL ENTRIES ENTRY SYSLCO * EXTERNAL SUBROUTINES EXTRN MOVE EXTRN MOVING EXTRN XMOVE MOVE BLOCKS INSIDE MEMORY VIA MMU EXTRN MMENT FIND LAST USED ENTRY IN MM-TAB EXTRN MOVMMT MOVE MM-TABLE EXTRN MMRST RESET MM-TAB ENTRIES EXTRN MULT EXTRN ERROR EXTRN CMPADR COMPARE ADDRESSES EXTRN NXTBLK SKIP TO NEXT CONFIGURATION BLOCK EXTRN NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK EXTRN CONVRT CONVERSION ASCII-BINARY EXTRN GETNUM CONVERT 3 ASCII-DIGITS TO BINARY EXTRN GETAPP FIND APPLICATION AND ITS CONF.DATA EXTRN PUSH STORE REGISTER ON A15-STACK EXTRN POB LOAD REGISTER FROM A15-STACK * SAVE AND WORK AREA EXTERNALS EXTRN MMTAB WORK-TABLE 1 (MMU EXTRN TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 EXTRN MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 EXTRN MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' EXTRN LDALEN LENGTH OF SYSLCO MODULE EXTRN APPTYP APPLICATION TYPE EXTRN PSW EXTRN INILEN LENGTH OF SYSINI EXTRN LSTPAG DISPL. TO 'ENTRY-POINTER' EXTRN MMBEG EJECT * SYSTEM CONTROL TABLE EXTERNALS EXTRN SCTSFA START OF FREE AREA EXTRN SCTTCT TC:TAB ADDRESS EXTRN SCTSTB A15 STACK-BASE EXTRN SCTEFA END OF FREE AREA EXTRN SCTNOP NUMBER OF PAGES EXTRN SCTPSZ PAGE SIZE EXTRN SCTMMC =00002 EXTRN SCTOPT SYSTEM OPTION EXTRN SCTPAG PAGE TABLE ADDRESS EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE EXTRN SCTBUG BUGGER ADDRESS EXTRN STKEND START OF SCRATCH-PAD AREA EXTRN STKMOV START OF MOVE-ROUTINE IN STACK EXTRN STKCOM START OF COMMON-PAD AREA * EXTERNAL LABELS EXTRN SYSLDM START OF MONITOR CONFIGURATION PART EXTRN PAGQUE PAGE QUEUE POINTER EXTRN FREQUE START OF MONITOR BLOCKS EXTRN REL * EXTERNAL SUBROUTINES EXTRN ACTOT QUEUE TASK EXTRN PFINIT EXTRN SAVE8 SAVE 8 REGS EXTRN RETUR8 RELOAD 8 REGS EXTRN TDISP DISPATCHER ENTRY * EXTRN TTB:SA START OF SAVE AREA IN TTAB EXTRN TTB:CB POINTER TO CSEG BASE ADDRESS EXTRN TTB:MT START OF MMU-TABLE IN TTAB EJECT *************************************** * CONDITIONAL ASSEMBLY * *************************************** MMUPAG EQU 0 0 = NO MMU DSKPAG EQU 0 0=NO DISC PAGING TEST EQU 0 1=TEST (DEBUG STARTS AT SYSLDX ENTRY) TESTMM EQU MMUPAG+TEST ********************************************* * * * APCTAB DISPLACEMENTS * * ==================== * * * ********************************************* APLADA EQU 22 APPL.REL.BASE (2 WORDS) =1 APLREL EQU 18 NUMBER OF RESIDENT SEGMENTS APLIOE EQU 0 APPLICATION RESTART ADDRESS APLDAD EQU 0 APPLICATION FILE DISC ADDR. (BIT 0-15) APLLAC EQU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.) APLLAP EQU 12 LOGICAL PAGE ADDRESS APLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.) APLMMC EQU 10 APPLICATION MMU START ENTRY APLMMP EQU 8 SEGMENT START MMU ENTRY APLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT APLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU APLSWB EQU 2 APPLICATION SWB APLSTA EQU 16 APPL. PGM START ADDRESS APLTYP EQU 8 APPLICATION TYPE APLPSZ EQU 20 APPLICATION SEGMENT SIZE =1 EJECT PROGRAM STRUCTURE: * !-----------------------------------------------------! * ! SUBROUTINES ! PART 1 * ENTRY ->! * SYSLCO ENTRY * ! * ! READ CONFIGURATION DATA AND GENERATE: ! * ! SHTAB1, SHTAB2, SHTAB3, TIDTAB AND DYNTAB ! * ! ! * ! SHTAB1: ! * ! -A TABLE OF "NUMBER OF COPIES OF THIS TCL" ! * ! IS BUILT AT THE END OF MONITOR ! * ! ! * ! SHTAB2: ! * ! -A TABLE OF "ITCT PROTOTYPE ADDRESSES" ! * ! IS BUILT AT THE END OF SHTAB1 ! * ! ! * ! SHTAB3: ! * ! -A TABLE OF "MM-TABLE ADDRESSES" ! * ! IS BUILT AT THE END OF SHTAB2 ! * ! ! * ! TIDTAB: ! * ! -A TABLE OF "TASK-ID'S IN RUNTIME SYSTEM" ! * ! IS BUILT AT THE END OF SHTAB3 ! * ! ! * ! DYNTAB: ! * ! -A TABLE OF "DYNAMIC-CORE ADDRESSES" ! * ! IS BUILT AT THE END OF TIDTAB ! * ! ! * ! -RELOCATE ITCT ADDRESSES ! * ! -RELOCATE TCLBLK ADDRESSES ! * ! -RELOCATE TCLTAB ADDRESS ! * ! -RELOCATE APPTAB ADDRESS ! * ! -RELOCATE SHTAB2 ADDRESSES ! * ! -MOVE SYSLCO (NOT PART 1) AND SYSINI ! * ! TO FOLLOW DYNTAB ! * ! -CONTINUE IN PART 2 ! * !-----------------------------------------------------! * ! SUBROUTINES ! PART 2 * ! -MOVE DDIV PROTOTYPE TO FOLLOW SYSLCO ! * ! ! * ! BUILD COMMON DATA AREA ! * ! -PGTG-DATA ! * ! ! * ! BUILD CLASS DATA AREAS ! * ! -ICB-PLTGC'S ! * ! ! * ! BUILD TASK LOCAL DATA AREAS, ONE PER TCL ! * ! -UPDATE ITCT ! * ! -STACK-SIZE ! * ! -PGTL-DATA-LENGTH-USED ! * ! -MOVE ITCT ! * ! -MOVE PGTL-DATA AREA ! * ! -MOVE STATIC-ZERO AREA ! * ! -ALLOCATE DYNAMIC-CORE (INITIATE IF MMU-CASE) ! * ! -INCLUDE DDIV PROTOTYPE IN FREE AREA ! * ! -CONTINUE IN PART 3 ! * !-----------------------------------------------------! * ! SUBROUTINES ! PART 3 * ! R E A L T A ! * ! BUILD REAL TASK-LOCAL DATA AREAS ! * ! -FILL MM-TABLE IN TTAB ! * ! -COPY ITCT'S ACCORDING TO SHADOW-TABLE ! * ! -UPDATE TID IN ITCT ! * ! -COPY PGTL-DATA ! * ! -COPY STATIC-ZERO ! * ! -ALLOCATE DYNAMIC-CORE (INITIATE IF MMU-CASE) ! * ! -CONTINUE IN SYSINI ! * !-----------------------------------------------------! EJECT **************************** * COMMON DISPLACEMENTS * **************************** APLTAB EQU 12 ADDRESS TO APPL.CONTROL TABLE APPLNO EQU 18 APPLICATION NUMBER BUFSIZ EQU 14 TEMPORARY BUFFER SIZE CONLEN EQU 0 LENGTH OF CONFIGURATION DATA CONSTA EQU 2 START OF CONFIGURATION DATA DATEND EQU 34 END OF DDIV PROTOTYPE DYNSTA EQU 52 START OF DYNTAB:S FSTADR EQU 20 1:ST FREE ADDRESS WHEN ALLOCATING BUFFER FSTPAG EQU 22 1:ST FREE PAGE (PHYSICAL) FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART MAPLEN EQU 30 LENGTH OF AREA TO MAP MMFROM EQU 36 2:ND MMU TABLE WORK AREA MMTO EQU 38 1:ST MMU TABLE WORK AREA M:REL EQU 16 RELOCATIN CONSTANT SYSBUF EQU 28 START OF TEMPORARY BUFFER SWBFSA EQU 4 SWB-FILE START ADDRESS SWBFSE EQU 8 SWB-FILE END ADDRESS TTAB EQU 32 WORK AREA FOR MMU-TABLE TOTSGM EQU 46 NUMBER OF SEGMENTS SWBFLG EQU 48 SWAPPABLE WORK BLOCK FLAG COM01 EQU 40 COMMON WORK AREA 1 COM02 EQU 42 COMMON WORK AREA 2 COM03 EQU 44 COMMON WORK AREA 3 COM04 EQU 50 COMMON WORK AREA 4 EJECT ************************** * TABLEN DISPLACEMENTS * ************************** SEGTAD EQU 0 SEGTAB ADDRESS ITCTAD EQU 2 ITCT ADDRESS SHADOW EQU 4 SHADOW TABLE START ADDRESS DDIVFR EQU 6 PROT.DDIV FROM ADDRESS PLTGCE EQU 8 END OF ICB-PLTGC PLTGCL EQU 10 LENGTH OF ICB-PLTGC PLTGCS EQU 12 START OF ICB-PLTGC DYNTAD EQU 14 DYNTAB ADDRESS APCTAB EQU 16 APLTAB BLOCK ADDRESS PDDIVL EQU 18 LENGTH LEFT OF PROT.DDIV EJECT ******************************* * SCRATCH-PAD DISPLACEMENTS * ******************************* ACOSTA EQU 120 CONF.START FOR AN APPLICATION ALICOU EQU 112 SAVE AREA FOR APPLICATION COUNTER APLTAD EQU 122 APLTAB BLOCK ADDRESS BASADR EQU 80 BASE ADDRESS FOR DEBUG PURPOSE DDIVTO EQU 124 PROT.DDIV TO ADDRESS DYNDIS EQU 60 DYN.CORE DISPLACEMENT PDDIV EQU 114 FLAG : 1=BUILD DDIV TO NEXT APPL. 0=BUILD DDIV TO START OF FREE AREA INTENT EQU 62 INTERPRETER ENTRY LCOTO EQU 64 ADR. WHERE TO MOVE SYSLCO TO MMREL1 EQU 66 MONEND EQU 84 MONITOR END ADDRESS MOVLE1 EQU 86 LENGTH TO MOVE MOVLEN EQU 68 LENGTTH TO MOVE NOCOPS EQU 70 NUMBER OF RUNNING COBOL TASKS IN RUNTIME FOR AN APPLICATION RELOCA EQU 72 TEMPORARY SAVE AREA FOR RELOCATION VALUE SAEFA1 EQU 116 SCTEFA BIT 0-5 PAGE SAEFA2 EQU 118 SCTEFA BIT 4-15 DISP. IN PAGE SAVE01 EQU 88 TEMP. SAVE AREA SAVE02 EQU 96 TEMP. SAVE AREA OUTSIDE SUBRUTINES SAVE03 EQU 126 TEMP. SAVE AREA OUTSIDE SUBRUTINES SAVE05 EQU 106 TEMP. SAVE AREA INSIDE LOKAL SUBRUTINES SAVE06 EQU 108 TEMP. SAVE AREA INSIDE LOKAL SUBRUTINES SAVE07 EQU 110 TEMP. SAVE AREA INSIDE LOKAL SUBRUTINES SAVITC EQU 94 SAVE AREA FOR ITCT ADDRESS SAVTID EQU 104 SAVE AREA FOR TASK ID SHADST EQU 74 START OF SHADOW TABLES FOR CURRENT APPL. SHTLEN EQU 76 SHTAB1-3 LENGTH STASK EQU 82 NZ=ONLY ONE TASK IN THE SYSTEM TCLPNT EQU 78 ADR. TO TCLBLK POINTER TCLCOU EQU 100 SAVE AREA FOR TCL COUNTER TCLITC EQU 102 SAVE AREA FOR TCL ITCT ADDRESS TGCREL EQU 90 ICB-PLTGC RELOCATION PGTGAD EQU 92 PGTG DATA ADDRESS LSTENT EQU 98 LAST USED ENTRY IN MMTAB,UPTO COMMON DAT EJECT ***************** ***************** ** ** ** CONSTANTS ** ***************** ***************** ******************************* * CONFIGURATION FILE (CONFIG) * ******************************* * TASK DEFINITION BLOCK: TDBBT EQU 0 1A BLOCK TYPE TDBNT EQU TDBBT+1 2N NUMBER OF TASKS TDBID EQU TDBNT+2 6A TASK ID START VALUE TDBMC EQU TDBID+6 6A MATCHING TASK CLASS TDBTL EQU TDBMC+6 6A TASK LEVEL TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES * TDBFST EQU TDBNC+2 FIRST TERM DEF TDC EQU 7 TERMINAL DEVICE CLASS TLC EQU 7 LINE CONNECTION TDBREC EQU TDC+TLC TDB-RECORD LENGTH * SDC EQU 7 SPECIAL DEVICE CLASS-RECORD * * COMMON DEVICE DEF. BLOCK: CDBBT EQU 0 1A BLOCK TYPE CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES SDCFST EQU CDBNC+2 FIRST SDC-RECORD * * * USER WORK BLOCK TYPE DEF. BLOCK UDBBT EQU 0 1A BLOCK TYPE UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES * UDBFST EQU UDBNU+3 FIRST UDB-RECORD NAMUWB EQU 3 NAME OF UWB NUMUBL EQU 3 NUMBER OF BLOCKS UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH EJECT *************************************** ** ** ** THE FOLLOWING EQUATES ARE ** ** DISPLACEMENTS WITHIN EACH ** ** TABLE ** ** ** *************************************** *************** ** ** ** SEGTAB ** ** ** *************** SGAPPT EQU 0 APPTAB POINTER SGPGMT EQU 2 PROGRAM TYPE 'CO' SGCOML EQU 6 COMMON LENGTH SGPAGL EQU 8 PAGE LENGTH SGNOSG EQU 10 NUMBER OF SEGMENTS *************** ** ** ** APPTAB ** ** ** *************** APPTCL EQU 0 TCLTAB POINTER APPINT EQU 2 INTERPRETER ENTRY APPTGL EQU 4 PGTG-DATA-AREA LENGTH APPCOM EQU 6 COMMON PSEG PNTR I:RSTE EQU 8 DISPL IN APPTAB, INT REENTER ADR *************** ** ** ** TCLTAB ** ** ** *************** TCLCNT EQU 0 NUMBER OF TCLBLK'S TCLTAB EQU 2 TABLE OF TCLBLK POINTERS TCLNAM EQU 0 TCL NAME TCLBLK EQU 4 TCLBLK POINTER *************** ** ** ** TCLBLK ** ** ** *************** TCLSTK EQU 0 STACK-SIZE TCLTGC EQU 2 ICB-PLTGC-MAIN POINTER TCLTCT EQU 4 ITCT POINTER TCLTLD EQU 6 PGTL-DATA-LENGTH-USED *************** ** ** ** ICB-PLTGC ** ** ** *************** TGCSZD EQU 4 STATIC-ZERO DISP IN TLTAB TGCSZL EQU 6 STATIC-ZERO LENGTH TGCCAL EQU 8 CALL-BASE-ADR TAB TGCCTS EQU 0 NBR OF ENTRIES IN CALL TABLE TGCCTE EQU 2 CALL TABLE ENTRY *************** ** ** ** ITCT ** ** ** *************** ITCCOM EQU 0 PGTG-DATA-ADR ITCTGC EQU 2 ICB-PLTGC-PNTR ITCGLL EQU 4 PGTL-DATA-LENGTH ITCGLA EQU 6 PGTL-DATA-ADR ITCCSB EQU 10 CURRENT SEGMENT BASE ITCTID EQU 12 TASK-ID ITCDCB EQU 14 DYNAMIC-CORE,BASE-PNTR ITCDCC EQU 16 " ,CURRENT-EXTENT ITCNEP EQU 18 " ,NEXT PARAMETER ITCDCD EQU 22 " ,DDI-POOL-BASE ITCSPL EQU 26 SPL-PBS-PNTR ITCTLT EQU 34 TLTAB ITCTLS EQU 0 NBR OF ENTRIES IN TLTAB ITCTLE EQU 2 TLTAB ENTRY *************** ** ** ** SPL-PBS ** ** ** *************** SPLTCD EQU 0 DIAGNOSTIC,TERM-CODE SPLSTU EQU 2 " ,STACK-USED SPLSTS EQU 4 " ,STACK-SIZE SPLPRN EQU 6 " ,PROCEDURE-NAME SPLCPB EQU 12 CURRENT-PROCEDURE-BLOCK SPLDIS EQU 14 DISPLAY(16 POINTERS) SPLG1S EQU 46 GLOBAL1-SAVE SPLG2S EQU 48 GLOBAL2-SAVE SPLG3S EQU 50 GLOBAL3-SAVE SPLSTB EQU 52 STACK-BASE SPLENT EQU 54 ENTRY-FINI SPLLTS EQU 56 LAST-TS SPLRWA EQU 58 RUNTIME-WORK-AREA(30 BYTES) SPLSTA EQU 88 STACK-AREA EJECT **************** * 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 NOBLK EQU /B NO BLOCKS =2 ********************* * OTHER CONSTANTS * ********************* STKMAX EQU 500 DEFAULT SPL STACK-SIZE IN BYTES ENTFIN EQU /FFFF PROGRAMMER DEFINED ENTRY POINT SPLSIZ EQU SPLSTA+STKMAX DEFAULT SPL STACK-SIZE + PBS-BLOCK SIZE COBID EQU 2 COBOL IDENTIFICATION SEGREC EQU 6 RECORD LENGTH IN SEGTAB NUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN SEGTAB TTBTID EQU 2 TID IN TTAB TTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB NTPA EQU 4 INTERPRETER START ADDRESS IHRTC EQU 4 RTC INTERRUPT ADDRESS RTCDA EQU /1B RTC DEVICE ADDRESS TABLEN EQU 20 LENGTH OF EACH APL.TABLE IN SCRATCH-PAD ACBLEN EQU 26 APPL.CONTROL BLOCK LENGTH =1 EJECT ***************************************************************** * CALL-FORMAT, PERFORMS: CFR A14,A13 * * DATA [REL-ADDRESS] * * * ***************************************************************** CALL FORM 16=/F697,16 IFT MMUPAG=1 EJECT ********************************************* ******* ******* ** ** * SYSLOAD PART 1 * ** ** ***** ***** ********************************************* * READ CONFIGURATION FILE & BUILD * * SHADOW-TABLES * * * ********************************************* LCOSTA EQU * LDKL A1,START1 GET START OF SYSLCO AD A1,M:REL+STKCOM ADD RELOCATION BASE ABR A1 GO TO START OF SYSLCO ************************************* *** *** ** S U B R O U T I N E S ** ** -USED IN THIS PART ONLY ** ************************************* EJECT * B U I L D T * * * * BUILD ONE PART OF TIDTAB FOR CURRENT * * TASK DEFINITION BLOCK IN CONF.FILE * * * * INPUT : A1=ITCT ADDRESS * * A3=TID * * A4=NUMBER OF COPIES * * A6=POINTER IN SHTAB1 * * A8=LENGTH OF SHTAB1 * * SHADST=START OF SHADOW TABLES FOR * * CURRENT APPLICATION * * * * OUTPUT: A7=FIRST FREE ENTRY AFTER TIDTAB * * SHADST=START OF SHADOW TABLES FOR * * CURRENT APPLICATION * * * * WORK REGISTERS : A1-A8 * * * * SUBRUTINS : ERROR * * * ********************************************** BUILDT EQU * LDR* A2,A6 HAVE TASKS ALREADY BEEN CONF FOR THIS TCL RF(NZ) BUI100 YES! ES A3,ITCTID,A1 SAVE TID IN ITCT * COUNT NUMBER OF TASKS IN TIDTAB WHICH ARE GOING TO * LIE BEFORE CURRENT TASKS BUI100 EQU * SUR A2,A2 CLEAR TASK COUNTER LDR A5,A6 GET POINTER TO CURRENT ENTRY IN SHATB1 BUI200 EQU * ADR* A2,A5 ADD NUMBER OF TASKS SUK A5,2 DECREASE SHTAB1 POINTER CW A5,SHADST+STKEND ALL TASKS COUNTED? RB(NE) BUI200 NO! * LOAD REGISTER A5 WITH POINTER TO START-ENTRY OF * CURRENT TASKS IN TIDTAB AND ADD NUMBER OF CURRENT * TASKS IN FIRST ENTRY OF TIDTAB ADR A5,A8 ADD SHTAB1 LENGTH ADR A5,A8 ADD SHTAB2 LENGTH ADR A5,A8 ADD SHTAB3 LENGTH ADRS A4,A5 UPDATE NUMBER OF TASKS IN TIDTAB ADK A5,2 POINT AT FIRST TID IN TIDTAB SLL A2,1 2*(NUMBER OF TASKS) ADR A5,A2 ADD DISPLACEMENT IN TIDTAB * COUNT NUMBER OF TASKS IN TIDTAB WHICH ARE GOING * TO LIE AFTER CURRENT TASKS LDR A1,A6 GET POINTER TO SHTAB1 ENTRY OF CURRENT TCL ADK A1,2 ENTRY IN SHTAB1 AFTER CURRENT TCL SUR A2,A2 CLEAR TASK COUNTER LDR A7,A8 GET SHTAB1 LENGTH SUR A7,A1 AD A7,SHADST+STKEND LENGTH OF SHTAB1 IN BYTES AFTER CURRENT TCL RF(Z) BUI350 BUI300 EQU * ADR* A2,A1 ADD NUMBER OF TASKS ADK A1,2 INCREASE SHTAB1 POINTER SUK A7,2 ALL TASKS COUNTED? RB(NZ) BUI300 NO! * MAKE SPACE IN TIDTAB FOR CURRENT TASKS BUI350 EQU * LDR A7,A5 LOAD START-ENTRY OF CURRENT TASKS IN TIDTAB ADR A7,A2 ADD 2*(NUMBER OF TASKS AFTER ADR A7,A2 CURRENT TASKS) SUK A7,2 POINTER TO LAST TASK ID IN TIDTAB SLL A4,1 2*(NUMBER OF CURRENT TASKS) CWR A7,A5 ARE CURRENT TASKS LAST IN TIDTAB RF(L) BUI500 YES! BUI400 EQU * LDR* A1,A7 GET TASK ID IN TIDTAB ADR A7,A4 NEW ENTRY IN TIDTAB FOR TASK ID STR A1,A7 STORE TASK ID IN NEW ENTRY SUR A7,A4 GET OLD ENTRY IN TIDTAB SUK A7,2 NEXT ENTRY IN TIDTAB CWR A7,A5 ALL TASK ID MOVED? RB(NL) BUI400 NO! * LOAD REGISTER A7 WITH FIRST FREE ENTRY AFTER TIDTAB * AND ADD NUMBER OF CURRENT TASKS IN CURRENT ENTRY OF SHTAB1 BUI500 EQU * LDR A7,A5 LOAD START ENTRY OF CURRENT TASKS IN TIDTAB ADR A7,A2 ADD NUMBER OF BYTES AFTER CURRENT ADR A7,A2 TASKNAMES IN TIDTAB ADR A7,A4 FIRST FREE ENTRY AFTER TIDTAB SRL A4,1 (2*(NUMBER OF TASKS))/2 ADRS A4,A6 ADD NUMBER OF CURRENT TASKS,FOR CURRENT TCL IN SHTAB1 * PUT CURRENT TASK ID:S IN TIDTAB LD A1,SHADST+STKEND GET MONITOR END ADDRESS ADR A1,A8 ADD SHTAB1 LENGTH ADR A1,A8 ADD SHTAB2 LENGTH ADR A1,A8 TIDTAB START ADDRESS ADK A1,2 FIRST TID IN TIDTAB BUI600 EQU * LDR A6,A1 GET TIDTAB START ADDRESS BUI700 EQU * CWR A6,A5 ALL TID:S OF UPPER PART IN TIDTAB SHECKED? RF(NE) BUI800 NO! ADR A6,A4 FIRST TIDTAB ENTRY OF ADR A6,A4 LOWER PART BUI800 EQU * CWR A6,A7 ALL TID:S OF LOWER PART IN TIDTAB SHECKED? RF(E) BUI950 YES! CWR* A3,A6 TID ALREADY CONFIGURATED? RF(NE) BUI900 NO! LDKL A1,LMP4 YES! FORMAT ERROR CALL ERROR BUI900 EQU * ADK A6,2 NEXT ENTRY IN TIDTAB RB BUI700 BUI950 EQU * STR A3,A5 PUT TID IN TIDTAB ADK A5,2 ADJUST UPPER PART END ADDRESS ADK A3,1 GENERATE NEXT TID SUK A4,1 HAVE ALL CURRENT TID:S BEEN CONF. RB(NZ) BUI600 NO! RTN A14 EJECT * L I M T G C * * * * FIND START-ADR, END-ADR, LENGTH OF * * ICB-PLTGC BLOCK * * * * INPUT:A10=POINTER TO CURRENT APPL * * SAVE AREA IN SCHRATCH-PAD * * SHADOW=START OF SHADOW TABLES * * FOR CURRENT APPL. * * OUTPUT:PLTGCS= START ADR OF ICB-PLTGC * * PLTGCE= END ADR OF ICB-PLTGC * * PLTGCL= LENGTH OF ICB-PLTGC * * WORKREGS: A1-A7,A9,A11 * * WORKAREA:USES MONITOR BLOCKS AS STACK * * * ***************************************** LIMTGC EQU * LD A1,SHADOW,A10 SHTAB1 ADDRESS LD A7,FREQUE GET MONITOR BLOCK ADDR. LDR* A2,A1 SHTAB1 LENGTH ADR A1,A2 SHTAB2 ADDRESS LIMTG0 EQU * SUK A2,2 RF(Z) LIMTG5 ALL DONE ADK A1,2 STEP SHTAB2 LDR* A3,A1 ADR TO ITCT EL A3,ITCTGC,A3 ADR TO ICB-PLTGC OF MAIN PROGRAM LIMTG1 EQU * LDK A5,0 SET LEVEL TO 0(ZERO) CALL LIMTG2 UPDATE LIMITS FOR ICB-PLTGC'S RELATED TO THIS CLASS RB LIMTG0 NEXT TCL EJECT * * UPDATE LIMITS FOR ICB-PLTGC'S * RELATED TO ONE TERMINAL-CLASS * LIMTG2 EQU * CALL LIMUPD UPDATE LIMITS ELR A4,A3 GET FIRST WORD IN ICB-PLTGC ADKL A4,/100 INDICATE LIMIT-CONTROL-INIT ESR A4,A3 SET INDICATION EL A4,TGCCAL,A3 GET NBR OF CALL-TABLE ENTRIES LIMTG3 EQU * RF(Z) LIMTG4 NO ENTRIES (LEFT) ST A4,2,A7 SAVE NBR.OF ENTRIES ON STACK ST A3,4,A7 SAVE ENTRY ADDRESS ON STACK LDR* A7,A7 ADJUST STACK POINTER =2 RF(NZ) LIMT35 MORE BLOCKS AVILABLE =2 LDKL A1,NOBLK NO BLOCKS AVILABLE =2 CALL ERROR =2 LIMT35 EQU * =2 ADK A5,1 ADJUST LEVEL SLL A4,1 *2 TABLE LENGTH ADR A4,A3 ADD BASE ADK A4,TGCCAL ADD CALL-TABLE DISPLACEMENT ELR A3,A4 GET ICB-PLTGC ADDRESS CALLED ELR A4,A3 GET THAT FIRST WORD CONTENT SRL A4,8 ONLY FIRST BYTE VALID SUK A4,/60 FIRST TIME ? RB(Z) LIMTG2 YES LD A4,-4,A7 GET NBR OF ENTRIES LEFT LIMTG4 EQU * SUK A4,1 COUNT NBR OF ENTRIES LEFT RB(P) LIMTG3 ENTRIES LEFT SUK A5,1 ADJUST LEVEL RF(N) LIMTGX END OF THIS TERMINAL CLASS SUK A7,6 ADJUST STACK-POINTER LD A4,2,A7 NBR.OF ENTRIES LEFT LD A3,4,A7 ENTRY ADDRESS RB LIMTG4 CONTINUE LIMTG5 EQU * LD A3,PLTGCE,A10 PNTR TO LAST ICB-PLTGC EL A4,8,A3 NBR OF CALL-TAB ENTRIES SLL A4,1 NBR OF BYTES ADR A4,A3 ADD BASE ADK A4,10 ADD TABLE DISPL ST A4,PLTGCE,A10 SAVE END ADR SU A4,PLTGCS,A10 -(MINUS) START ADR ST A4,PLTGCL,A10 SAVE LENGTH LIMTGX EQU * RTN A14 EJECT * * UPDATE ICB-PLTGC LIMITS * * INPUT: A3=ICB-PLTGC ADR * LIMUPD EQU * LDR A11,A3 ICB-PLTGC ADR LD A9,PLTGCS,A10 GET CURRENT START ADR CALL CMPADR CHECK ADDRESSES RF(NL) LIMUP1 OLD START ADR VALID ST A3,PLTGCS,A10 SET NEW START ADR LIMUP1 EQU * LD A9,PLTGCE,A10 GET CURRENT END ADR CALL CMPADR CHECK ADDRESSES RF(L) LIMUP2 OLD END ADR VALID ST A3,PLTGCE,A10 SET NEW END ADR LIMUP2 EQU * RTN A14 EJECT * R E L O C * * * * RELOCATE AN ADDRESS * * * * INPUT: A3 ADDRESS POINTER * * A6 RELOCATION INCREMENT * * WORK: A10 * *********************************** RELOC EQU * ST A10,SAVE05+STKEND SAVE REGISTER ELR A10,A3 GET ADDRESS ADR A10,A6 RELOCATE IT ESR A10,A3 RESTORE NEW ADDRESS LD A10,SAVE05+STKEND RELOAD REGISTER RTN A14 EJECT * L E N C O U * * * * COUNT LENGTH OF SHTAB1,AND COUNT NUMBER OF * * TASKS * * * * INPUT : A11=CONFIGURATION START * * SHADST=START OF SHADOW TABLES FOR * * CURRENT APPLICATION * * * * OUTPUT: A6=TOTAL NUMBER OF TASKS * * A7=SHTAB1 LENGTH IN BYTES * * SHADST=START OF SHADOW TABLES FOR * * CURRENT APPLICATION * * * * WORK REGISTERS: A1,A3-A5 * * * * WORK TABLE: TEMPORARY TABLE WITH TCL * * NAMES AFTER START OF FREE * * AREA * * * * SUBRUTINES: NXTBLK * * * ********************************************** LENCOU EQU * LDK A7,2 TABLE LENGTH-WORD LENGTH LDK A6,0 TOTAL NBR OF TASKS CM* SHADST+STKEND CLEAR FIRST ENTRY OF TEMPORARY TABLE * SHECK IF CURRENT TCL NAME ALREADY HAS APEARED IN * CONFIGURATION FILE , AND IF SO DON'T INCREMENT * SHTAB1 LENGTH AND PUT CURRENT TCL NAME IN TEMPO- * RARY TABLE LEN100 EQU * LC A3,TDBMC+4,A11 SLL A3,8 LC A3,TDBMC+5,A11 TCL NAME OF CURRENT TASK TASK DEF. BLOCK LD A1,SHADST+STKEND ADDRESS TO FIRST ENTRY IN TEMPORARY TABLE LDR* A4,A1 FIRST ENTRY=0? RF(Z) LEN300 YES! LEN200 EQU * CWR A4,A3 TCL NAME IN TEMPORARY TABLE RF(E) LEN400 YES! ADK A1,2 NEXT ENTRY IN TEMPORARY TABLE LDR* A4,A1 ENTRY=0? RB(NZ) LEN200 NO! LEN300 EQU * ADK A7,2 COUNT NUMBER OF BYTES IN SHTAB1 STR A3,A1 PUT CURRENT TCL NAME IN TEMPORARY TABLE ADK A1,2 NEXT ENTRY IN TEMPORARY TABLE CMR A1 CLEAR IT * COUNT TOTAL NUMBER OF TASKS AND GET START OF NEXT * TASK DEF. BLOCK LEN400 EQU * LC A4,TDBNT+1,A11 NBR OF COPIES /2 SRC A4,4 LC A4,TDBNT,A11 NBR OF COPIES /1 SLC A4,12 SRL A4,8 BINARY VALUE (NBR OF COPIES) LDR A4,A4 NBR OF COPIES RF(Z) LEN500 NO COPY , TRY NEXT BLOCK ADR A6,A4 COUNT TOTAL NBR OF TASKS LEN500 EQU * CALL NXTBLK NEXT CONFIG.-BLOCK CCK A2,'TT' TASK DEF. BLOCK? RB(E) LEN100 NEXT TASK DEF. BLOCK RTN A14 EJECT * S Y S L C O * * * * ENTRY FOR COBOL APPLICATION CONFIG * * * ****************************************** START1 EQU * SYSLCO EQU * * * INIT A15 STACK * LD A15,SCTSTB SUKL A15,4 XIF IFT TESTMM=2 ****************************** * * TEST VERSION (DEBUG) * LD A2,SCTBUG DEBUGGER ADDRESS LD A13,M:REL+STKCOM ADKL A13,TEST1 SET RETURN ADDRESS ABR(NZ) A2 JUMP IF DEBUG IN SYSTEM TEST1 EQU * LDR A8,P GET PROGRAM-POINTER LDKL A5,REL+2 GET START OF RELOCATION ROUTINE AD A5,M:REL+STKCOM ADD RELOCATION BASE CFR A8,A5 * * ****************************** XIF IFT MMUPAG=1 * * CLEAR SCRATCH-PAD AREA * LDKL A1,STKEND A1=START OF SCRATCH-PAD AREA LDKL A2,STKMOV SUK A2,2 A2=END OF SCRATCH-PAD AREA SYA10 EQU * CMR A1 CLEAR MEMORY WORD CWR A1,A2 ALL WORDS CLEARED? RF(E) SYA20 YES! ADK A1,2 NO! NEXT WORD RB SYA10 * * INITIATE REGISTERS AND VARIABLES * SYA20 EQU * LD A1,FYSPAG+STKCOM GET END OF FREE AREA PAGE ST A1,SAEFA1+STKEND INIT SAEFA1 LD A1,LSTADR+STKCOM GET END OF FREE AREA DISP. ST A1,SAEFA2+STKEND INIT SAEFA2 CM APPLNO+STKCOM CLEAR APPL.NUMBER COUNTER LDKL A10,STKEND START OF 1:ST APPL. SAVE AREA IN SCRATCH-PAD LD A1,SCTSFA START ADR.TO SHTAB'S OF 1:ST APPL. ST A1,SHADST+STKEND SAVE START OF 1:ST SHADOW-TABLE CM PDDIV+STKEND CLEAR FLAG * * GET APPLICATION * SYA100 EQU * LDKL A1,'CO' LOAD INPUT TO GETAPP,CO=COBOL APPL. CALL GETAPP FIND APPL AND ITS CONF DATA RF(NZ) SYA105 MORE APPL OF THIS TYPE LD A2,APPLNO+STKCOM ANY COBOL APPL. TO CONFIG.? RF(NZ) SYA102 YES! LDKL A1,LCOEND SYSLCO END ADDR. AD A1,M:REL+STKCOM RELOCATE ABR A1 LEAVE SYSLCO SYA102 EQU * LDKL A2,SYA178 NO MORE APPL OF THIS TYPE AD A2,M:REL+STKCOM ABR A2 SYA105 EQU * ST A11,ACOSTA+STKEND SAVE CONF.START FOR THIS APPL ST A1,APCTAB,A10 SAVE APLTAB BLOCK ADDRESS LD A2,APLLAC,A1 GET SEGTAB ADDRESS ST A2,SEGTAD,A10 SAVE EJECT * READ CONFIG FILE AND BUILD SHADOWTABLE EL* A3,APLLAC,A1 APPTAB ADR EL A2,I:RSTE,A3 GET INTERPRETER RESTART ADDRESS ST A2,APLIOE,A1 STORE IT IN APLTAB ELR A2,A3 TCLTAB ADR ELR A12,A2 NBR OF TCL'S LDR A4,A2 ADKL A4,4 ADR TO TCLBLK PNTR ST A4,TCLPNT+STKEND SAVE LC A2,TDBBT,A11 BLOCK TYPE CCK A2,'TT' TASK DEFINITION BLOCK RF(NE) SYA120 NO CALL LENCOU LDR A5,A7 SHTAB1 LENGTH * 1 ADR A5,A7 * 2 ADR A5,A7 * 3 SHTAB1-3 TOTAL LENGTH ST A5,SHTLEN+STKEND SHTAB1-3 LENGTH LDR A6,A6 RF(Z) SYA120 NOTHING TO CONFIGURATE ST A6,NOCOPS+STKEND SAVE NBR OF RUNNING TASKS/RUNTIME * LD A11,SHADST+STKEND MONITOR END ADR ADR A11,A5 ADR A11,A6 ADR A11,A6 ADKL A11,2 NEW START OF FREE AREA LDKL A9,LCOSTA SYSLCO START AD A9,M:REL+STKCOM SYSLCO START * CHECK ADDRESSES CALL CMPADR RF(L) SYA115 OK ! LDKL A1,LMP3 MEMORY OVERFLOW CALL ERROR SYA115 EQU * SUR A8,A8 ZERO EQU * SUKL A11,2 NEXT STR A8,A11 CLEAR WORD CW A11,SHADST+STKEND ALL DONE ? RB(NE) ZERO NO ST* A7,SHADST+STKEND STORE LENGTH IN TABLE LENGTH WORD LDR A8,A7 SHTAB1 LENGTH LD A11,ACOSTA+STKEND CONFIG START LC A3,TDBBT,A11 GET BLOCK TYPE FROM CONF. CCK A3,'TT' TASK DEFINITION BLOCK ? RF(E) SYA125 YES SYA120 EQU * LDK A1,LMP4 NO CALL ERROR SYA125 EQU * LD A2,TCLPNT+STKEND ADR. TO TCLBLK POINTER LC A3,TDBMC+4,A11 TCL-ID SLL A3,8 LC A3,TDBMC+5,A11 TCL-ID LDR A7,A12 NBR OF TCL'S * * CHECK IF TCL-ID FROM CONF. IS IN APPL * SYA130 EQU * SUK A7,1 COUNT NBR OF TCL'S RF(NN) SYA135 N=END OF TCLBLK'S LDK A1,LMP5 TID IN CONF NOT IN APPL CALL ERROR SYA135 EQU * EL A6,-2,A2 TCL-ID IN TCLBLK CWR A3,A6 FOUND ? RF(E) SYA140 YES ADK A2,4 POINT AT NEXT TCLBLK RB SYA130 TRY IN NEXT TCLBLK SYA140 EQU * LD A6,SHADST+STKEND ADR A6,A8 START OF SHTAB2 ADR A6,A8 START OF SHTAB3 SYA145 EQU * SUK A6,2 STEP SHTAB2 LD A3,SHADST+STKEND ADR A3,A8 CWR A6,A3 END OF SHTAB2 ? RF(E) SYA150 YES LDR* A1,A6 ITCT ADR IN SHTAB2 ELR A3,A2 GET TCLBLK-ADR EL A3,TCLTCT,A3 ITCT ADR IN TCLBLK CWR A1,A3 FOUND ? RB(NE) SYA145 NO RF SYA155 YES SYA150 EQU * ADK A6,2 NEXT ENTRY IN SHTAB2 LDR* A3,A6 RB(NZ) SYA150 ENTRY NOT FREE ELR A3,A2 GET TCLBLK-ADR EL A1,TCLTCT,A3 ITCT ADR IN TCLBLK STR A1,A6 STORE ITCT ADR IN SHTAB2 SYA155 EQU * SUR A6,A8 POINT AT ENTRY IN SHTAB1 LC A4,TDBNT+1,A11 NBR OF COPIES / 2 SRC A4,4 LC A4,TDBNT,A11 NBR OF COPIES / 1 SLC A4,12 SRL A4,8 BINARY VALUE (NBR OF COPIES) LDR A4,A4 NBR OF COPIES RF(Z) SYA170 SYA160 EQU * LC A3,TDBID+4,A11 TID SLL A3,8 LC A3,TDBID+5,A11 TID CALL BUILDT BUILD TIDTAB PART FOR ONE TCL SYA170 EQU * CALL NXTBLK NEXT CONFIG-BLOCK CCK A2,'TT' TASK DEF BLOCK ? RB(E) SYA125 YES LD A1,NOCOPS+STKEND TOTAL NBR OF RUNNING TASKS SLL A1,1 NBR OF BYTES USED ADK A1,2 ADD LENGTH WORD STR A1,A7 STORE LENGTH IN TABLE ST A7,DYNTAD,A10 SAVE TABLE START ADR A7,A1 UPDATE "FIRST FREE WORD" SUK A1,4 RF(NZ) SYA175 MORE THAN ONE TASK IN THE SYSTEM IM STASK+STKEND INDICATE SINGLE TASK APPLICATION * * PREPARE FOR NEXT APPLICATION * SYA175 EQU * LD A2,SHADST+STKEND GET START OF SHADOW TABLES ST A2,SHADOW,A10 SAVE IN APPL.SAVE AREA ADKL A10,TABLEN UPDATE SAVE AREA POINTER ST A7,SHADST+STKEND SAVE START OF SHTAB1 LDKL A2,SYA100 AD A2,M:REL+STKCOM ABSOLUTE BRANCH ADDRESS ABR A2 CHECK IF MORE APPLICATIONS SYA178 EQU * EJECT * GET START OF SYSLCO AFTER MOVE ADK A7,1 TO-ADDRESS (AFTER SHADOW-TABLES) ANKL A7,/FFFE EVEN ADDRESS * CALCULATE RELOCATION LDKL A2,PART2 GET START OF PART2 AD A2,M:REL+STKCOM ADD RELOCATION BASE SUR A2,A7 MOVE-LENGTH (SYSLCO) NGR A2,A2 ST A2,RELOCA+STKEND SAVE NEW RELOCATION TEMPORARY * CREATE SYSLCO,SYSINI & DDIV MM-TABLE * LDR A2,A7 TO-ADDRESS (SYSLCO) ANKL A2,/F000 FIRST PAGE ST A2,MMREL1+STKEND 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 SYA179 STR A2,A11 STORE PAGE-POINTER ADKL A11,2 NEXT ENTRY ADKL A2,/400 PAGE INCREMENT SUK A3,1 ALL? RB(NZ) SYA179 NO! ANKL A7,/FFF GET DISPLACEM. IN PAGE ST A7,LCOTO+STKEND SAVE (LOGICAL) TO-ADDRESS LDKL A3,PART2 GET START OF PART2 AD A3,M:REL+STKCOM ADD RELOCATION BASE LDR A2,A13 A13=START OF SYSINI SUR A2,A3 LENGTH ADKL A2,INILEN ADKLD LENGTH OF SYSINI ST A2,MOVLE1+STKEND SAVE LENGTH TO MOVE ADR A7,A2 START OF DDIV AFTER MOVE ST A7,DDIVTO+STKEND SAVE NEW DDIV ADDRESS * CALCULATE DDIV FROM-ADDRESS * CM APPLNO+STKCOM RESET NBR OF APPL. LDKL A10,STKEND START OF 1:ST APPL.SAVE AREA SYA180 EQU * LDKL A1,'CO' COBOL APPL. CALL GETAPP ANY APPLICATION LEFT? RF(Z) OUT01 NO! LD A2,APLLAC,A1 GET SEGTAB ELR A9,A2 APPTAB ADR EL A9,APPCOM,A9 COMMON-PSEG-PNTR EL A3,SGNOSG,A2 NUMBER OF SEGMENTS LDR A1,A2 SAVE SEGTAB ADDR. LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH CALL MULT ADR A1,A3 ADK A1,SGNOSG+2 => START OF DDIV ST A1,DDIVFR,A10 SAVE DDIV 'FROM'-ADDRESS LD A6,DDIVTO+STKEND GET DDIV TO ADDR. SUR A6,A1 RELOCATION FOR DDIV ST A6,SAVE01+STKEND SAVE RELOCATION INCREMENT LDKL A6,/FFFF ST A6,PLTGCS,A10 INIT. START OF PLTGC'S CALL LIMTGC FIND ICB-PLTGC LIMITS LD A6,SAVE01+STKEND GET RELOCATION INCREMENT EJECT * * RELOCATE ITCT'S * RELITC EQU * LD A1,DDIVFR,A10 ADR TO APPTAB ELR A1,A1 ADR TO TCLTAB ELR A2,A1 NBR OF TCL'S RELIT1 EQU * SUK A2,1 ADJUST NBR OF TCL'S RF(N) RELITX ALL ITCT'S RELOCATED ADK A1,4 TCLBLK ADR POINTER ELR A3,A1 TCLBLK ADR ADK A3,TCLTCT ADR TO ITCT POINTER ELR A3,A3 ITCT ADR CALL RELOC RELOCATE PGTG-DATA ADDRESS ADK A3,ITCGLA CALL RELOC RELOCATE PGTL-DATA-ADR ADK A3,ITCTLT-ITCGLA TLTAB ADR ELR A4,A3 NBR OF ENTRIES IN TLTAB RELIT2 EQU * SUK A4,1 ADJUST LOOP-COUNTER RB(N) RELIT1 ALL ENTRIES RELOCATED ADK A3,ITCTLE POINT AT NEXT ENTRY ELR A5,A3 ENTRY CONTENT RB(Z) RELIT2 FREE ENTRY CALL RELOC RELOCATE ENTRY RB RELIT2 NEXT ITCT RELITX EQU * * * RELOCATE TCLBLK'S * RELTCB EQU * LD A1,DDIVFR,A10 APPTAB ADR ELR A1,A1 TCLTAB ADR ELR A2,A1 NBR OF TCL'S RELTB1 EQU * SUK A2,1 ADJUST NBR OF TCL'S RF(N) RELTBX RELOCATION OF TCLBLK'S DONE ADK A1,4 TCLBLK ADR POINTER ELR A3,A1 TCLBLK ADR ADK A3,TCLTGC CALL RELOC RELOCATE ICB-PLTGC-MAIN POINTER ADK A3,TCLTCT-TCLTGC CALL RELOC RELOCATE ITCT POINTER RB RELTB1 NEXT TCLBLK RELTBX EQU * * * RELOCATE TCLTAB * RELTCT EQU * LD A1,DDIVFR,A10 APPTAB ADR ELR A3,A1 TCLTAB ADR ELR A2,A3 NBR OF TCL'S RELTC1 EQU * SUK A2,1 COUNT NBR OF TCL'S RF(N) RELTCX RELOCATION OF TCLTAB DONE ADK A3,4 TCLBLK ADR POINTER CALL RELOC RELOCATE TCLBLK POINTER RB RELTC1 NEXT TCLBLK POINTER RELTCX EQU * * * RELOCATE APPTAB * RELAPP EQU * LD A3,DDIVFR,A10 APPTAB ADR CALL RELOC RELOCATE TCLTAB-PNTR RELAPX EQU * * * RELOCATE SHADOW-TABLE2 (ITCT ADDRESSES) * RELSHT EQU * LD* A1,SHADOW,A10 SHTAB LENGTH LDR A2,A1 SAVE SHTAB2 LENGTH AD A1,SHADOW,A10 SHTAB2 ADR RELSH1 EQU * SUK A2,2 ADJUST SHTAB2 LENGTH RF(Z) RELSHX RELOCATION OF SHTAB2 DONE ADK A1,2 POINT AT ITCT ADR ADRS A6,A1 RELOCATE ITCT ADR RB RELSH1 NEXT RELSHX EQU * ADKL A10,TABLEN NEXT APPL. SAVE AREA RB SYA180 CHECK IF MORE APPL. OUT01 EQU * LD A5,RELOCA+STKEND GET NEW RELOCATION INCREMENT ADS A5,M:REL+STKCOM AND ADJUST RELOCATION BASE * CONTINUE IN PART 2 * LD A2,LCOTO+STKEND GET TO-ADDRESS (SYSLCO) OR A2,MMREL1+STKEND PHYSICALL ADDRESS LDR A5,A2 SAVE AD A5,MOVLE1+STKEND SUKL A5,INILEN A5=SYSINI START LDKL A7,START2 GET EXECUTION START ADDRESS AD A7,M:REL+STKCOM ADD RELOCATION BASE LD A3,MOVLE1+STKEND SYSLCO+SYSINI LENGTH LDKL A1,PART2 GET START OF PART2 AD A1,M:REL+STKCOM ADD RELOCATION BASE SU A1,RELOCA+STKEND FROM ADDRESS * * JUMP TO ROUTINE IN SYSTEM-STACK WHICH * MOVES SYSLCO, AND THEN CONTINUE IN PART2 * INPUT TO ROUTINE IN STACK IS * A1 = FROM ADDR. * A2 = TO ADDR. * A3 = LENGTH * A7 = RESTART ADDR. * ABL STKMOV JUMP TO MOVE-ROUTINE EJECT ************************************************* *** *** ** SYSLOAD PART 2 ** ** ** ************************************************* * BUILD COMMON AND TASKCLASS DATA AREAS. * * BUILD TASKDATA PROTOTYPE AREA * * * ************************************************* PART2 EQU * ******************************************** *** *** ** S U B R O U T I N E S ** ******************************************** EJECT * M O V C O M * * * * MOVE ICB-PGTG AND PGTG-DATA * * * *************************************** MOVCOM EQU * CALL FNDCOM ICB-PGTG ADR LD A3,DDIVTO+STKEND APPTAB ADR EL A3,APPTGL,A3 PGTG-DATA LENGTH CALL CALLMO ALLOCATE AND MOVE PGTG-DATA ST A2,PGTGAD+STKEND SAVE PGTG-DATA NEW ADDRESS LD A1,DDIVTO+STKEND LD A3,DDIVFR,A10 RTN A14 EJECT * F N D C O M * * * * FIND PGTG-DATA * * * * EXIT : A1 PGTG-DATA ADR * ******************************** FNDCOM EQU * EL* A1,DDIVTO+STKEND ADR TO TCLTAB EL A1,4,A1 ADR TO TCLBLK EL A1,TCLTCT,A1 ADR TO ITCT ELR A1,A1 ADR TO PGTG-DATA RTN A14 EJECT * * * R E L T G C * * * * RELOCATE ICB-PLTGC CALL-TAB * * * * INPUT: PLTGCS= ICB-PLTGC BLOCK * * START ADDRESS * * PLTGCL= ICB-PLTGC BLOCK * * LENGTH * * A6 = RELOCATION INCREMENT * * A10 = APPL.SAVE AREA POINTER* * * ***************************************** RELTGC EQU * LD A3,PLTGCS,A10 ICB-PLTGC START ADR LD A2,PLTGCL,A10 ICB-PLTGC LENGTH ADR A2,A3 ICB-PLTGC END ADR RELTG1 EQU * LDR A1,A3 LDR A11,A1 GET ADR FOR COMPARE LDR A9,A2 GET ADR FOR COMPARE CALL CMPADR ALL ICB-PLTGC'S RELOCATED ? RF(NL) RELTGX YES ELR A3,A1 GET FIRST WORD IN ICB-PLTGC SRC A3,8 GET FIRST BYTE CCK A3,/6161 HANDLED BY LIMTGC ? RF(NE) RELTG2 NO XRK A3,1 CLEAR BIT 15 SLC A3,8 NEW FIRST WORD VALUE ESR A3,A1 RESTORE IT RELTG2 EQU * EL A3,TGCCAL,A1 NBR OF ENTRIES SLL A3,1 *2 NBR OF BYTES ADR A3,A1 ADD BASE ADK A3,10 POINTER TO 1:ST WORD AFTER LAST ENTRY LDR A4,A1 GET BASE ADK A4,10 1:ST ENTRY LDR A9,A3 RELTG3 EQU * LDR A11,A4 CALL CMPADR END OF THIS ICB-PLTGC ? RB(NL) RELTG1 YES,CONTINUE WITH NEXT ICB-PLTGC ELR A11,A4 GET ADR TO RELOCATE ADR A11,A6 RELOCATE ELR A1,A11 SRL A1,8 SUK A1,/60 ICB-PLTGC ? RF(N) RELTG4 NO, ASM-SUBROUTINE SUK A1,1 RF(P) RELTG4 NO, ASM-SUBROUTINE ESR A11,A4 RESTORE RELOCATED ADR RELTG4 EQU * ADK A4,2 STEP CALL-TAB POINTER RB RELTG3 NEXT CALL-TAB-ENTRY RELTGX EQU * RTN A14 EJECT * F N D B L K * * * * FIND A TCLBLK CORRESPONDING * * TO AN ITCT ADDRESS * * * * INPUT : A7 ITCT ADR * * DDIVTO APPTAB ADR * * EXIT : A1 TCLBLK-PNTR ADR * * IN TLCTAB * * A3 TCLBLK ADR * * WORK : A2,A5 * ********************************** FNDBLK EQU * LD A1,DDIVTO+STKEND TCLTAB ADR ELR A1,A1 ELR A2,A1 NBR OF TCLBLK'S FNDBL0 EQU * SUK A2,1 COUNT NBR OF TCLBLK'S RF(NN) FNDBL1 BLOCKS LEFT LDK A1,LMP4 CALL ERROR FNDBL1 EQU * ADK A1,4 TCLBLK-PNTR ADR ELR A3,A1 TCLBLK-PNTR EL A5,TCLTCT,A3 ITCT FOUND ? CWR A7,A5 RB(NE) FNDBL0 NO,TRY NEXT TCLBLK RTN A14 YES,RETURN EJECT ***************************** * START OF PROGRAM PART 2 * ***************************** * LOAD BASE ADDRESS * ********************* * A5=START-ADDRESS * SAVE01=RELOCATION INCREMENT * SAVE03=DDIV TO-ADDRESS * SAVE04=DDIV FROM ADDRESS * SAVE05=LENGTH OF REAL ITCTTAB START2 EQU * LDR A8,P LOAD TEMP. STACKBASE ADK A5,2 ADD FOR RELOCATION ROUTINE CFR A8,A5 * * INITIATE REGISTERS AND VARIABLES * LDKL A10,STKEND START OF 1:ST APPL. SAVE AREA LD A1,APCTAB,A10 FIRST APLTAB BLOCK ADDR. LD A2,APPLNO+STKCOM GET NUMBER OF APPLICATIONS ST A2,ALICOU+STKEND INIT. ALICOU RF PRT200 * * UPDATE VALUES FOR NEXT APPLICATION * NXTAPP EQU * ADKL A10,TABLEN NEXT APPL. SAVE AREA LD A1,APCTAB,A10 NEXT APLTAB BLOCK LD A2,ALICOU+STKEND GET APPL.COUNTER SUK A2,1 DECREMENT APPL.COUNTER ST A2,ALICOU+STKEND SAVE APPL.COUNTER RF(NZ) PRT200 IF ANY APPL IS LEFT DON'T LEAVE SYSLCO YET LD A2,SAEFA1+STKEND GET END OF FREE AREA PAGE ST A2,FYSPAG+STKCOM SET FYSPAG TO THAT PAGE LD A2,SAEFA2+STKEND GET END OF FREE AREA DISPL. ST A2,LSTADR+STKCOM SET LSTADR TO THAT DISPL. LDKL A2,LCOEND GET SYSLCO END ADDRESS AD A2,M:REL+STKCOM ADD RELOCATION BASE ABR A2 LEAVE SYSLCO PRT200 EQU * * * GET MMU-TABLE FROM TTAB OF CURRENT TASK * LD* A2,APLMMC,A1 GET TCTAB ENTRY FOR CURRENT TASK ADKL A2,TTB:MT ADDR. TO 1:ST MMU-TABLE ENTRY TLR A2 LOAD MMU-TABLE TS MMTAB,A13 STORE MMU-TABLE IN MMTAB * * CHECK IF END OF FREE AREA STARTS WHERE * PROT. DDIV FOR THIS APPLICATION STARTS * AND IF SO RESET FLAG * LD A2,APLLAC,A1 GET SEGTAB ADDR. ELR A9,A2 APPTAB ADDR. EL A3,APPINT,A9 INTERPRETER ACTIV ADDR. ST A3,INTENT+STKEND SAVE IT EL A9,APPCOM,A9 START OF APPL. ST A9,APLLAC,A1 STORE NEW APLLAC LDR A3,A2 SEGTAB ADDR. SRL A3,11 MMU-ENTRY NUMBER ADKL A3,MMTAB MMU-ENTRY ADDR. ADR A3,A13 RELOCATE LDR* A3,A3 GET CONTENTS IN MMU-ENTRY ANKL A3,/FC00 CW A3,SAEFA1+STKEND SAME PAGE? RF(NE) PRT205 NO! LDR A3,A2 SEGTAB ADDR. ANKL A3,/FFF DISPLACEMENT CM PDDIV+STKEND RESET FLAG CW A3,SAEFA2+STKEND SAME DISPLACEMENT IN PAGE? RF(E) PRT220 YES! * * CALCULATE LENGTH OF PROT. DDIV+SEGTAB * PRT205 EQU * LDR A3,A2 SEGTAB ADDR. ANKL A3,/FFF DISPLACEMENT IN PAGE SUKL A3,/800 MORE THAN 2K BYTE TO BUILD IN RF(NP) PRT210 YES! LDR A3,A2 SEGTAB ADDR. ADKL A2,/1000 NEW PAGE ANKL A2,/F000 DISPLACEMENT IN PAGE = 0 CWR A2,A9 HIGHER ADDR.THEN START OF APPL.? RF(NG) PRT210 NO! LDR A2,A3 SEGTAB ADDR. PRT210 EQU * LDR A3,A9 APPLICATION START ADDR. SUR A3,A2 LENGTH OF SEGTAB+PROT.DDIV ST A3,PDDIVL,A10 SAVE IM PDDIV+STKEND SET FLAG PRT220 EQU * * * STORE MMTABLE ADDRESSES * LDKL A1,MMDDIV GET MMU-TABLE ADDR. ADR A1,A13 RELOCATE ST A1,MMTO+STKCOM SAVE LDKL A1,MMTAB GET MMU-TABLE ADDR. ADR A1,A13 RELOCATE ST A1,MMFROM+STKCOM SAVE * * MOVE DDIV * LD A1,DDIVFR,A10 GET FROM-ADDRESS LD A2,DDIVTO+STKEND GET TO ADDRESS LDR A3,A9 GET APPLICATION START (=END OF DDIV SUR A3,A1 => LENGTH CALL XMOVE * UPDATE FSTPAG AND FSTADR LD A1,APCTAB,A10 GET APLTAB BLOCK ADDR. LD A5,APLLAC,A1 DDIV END ADDR. SU A5,DDIVFR,A10 END-START=DDIV LENGTH AD A5,DDIVTO+STKEND NEW DDIV END LDR A6,A5 ANKL A6,/F000 GET LOGICAL PAGE (MM-ENTRY) SRL A6,11 ADJUST FOR ADDRESSING ADKL A6,MMDDIV ADD RELATIVE START ADDRESS ADR A6,A13 RELOCATE LDR* A6,A6 GET MM-TABLE CONTENTS ST A6,FSTPAG+STKCOM SAVE ANKL A5,/FFF GET DISPLACEMENT ST A5,FSTADR+STKCOM AND SAVE SUKL A9,10 RESERVE 5 WORDS FOR DEBUGGER * CHECK IF MEMORY OVERFLOW LDR A1,A9 SAVE LDR A9,A6 LD A11,SAEFA1+STKEND CALL CMPADR RF(G) SYA202 OK! RF(L) SYA201 NOT OK! LDR A9,A5 LD A11,SAEFA2+STKEND CALL CMPADR MEMORY OVERFLOW? RF(NL) SYA202 NO! SYA201 EQU * LDKL A1,LMP3 CALL ERROR SYA202 EQU * LDR A9,A1 RELOAD * REMOVE DDIV ENTRIES IN MM-TABLE SRL A1,11 ADJUST FOR ADDRESSING ANK A1,/1E LDKL A2,MMTAB-2 GET TABLE ADDRESS ADR A2,A13 RELOCATE ADR A1,A2 APPTAB 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+STKCOM LD A5,MMTO+STKCOM ST A4,MMTO+STKCOM ST A5,MMFROM+STKCOM ANKL A9,/FFFE EVEN ADDRESS ST A9,LSTADR+STKCOM SAVE END OF FREE AREA LDKL A3,MMTAB CURRENT MM-TAB ADR A3,A13 CALL MMENT ST A9,TTAB+STKCOM ST A1,FYSPAG+STKCOM SAVE PHYSICAL PAGE CALL MOVCOM ALLOC/MOVE PGTG-DATA AD A1,PLTGCS,A10 SUR A1,A3 ICB-PLTGCS NEW START ADDRESS LD A3,PLTGCL,A10 ICB-PLTGC LENGTH LD A6,LSTADR+STKCOM LAST FREE ADR SU A6,PLTGCE,A10 GET DISPL FOR RELOCATION CALL CALLMO MOVE TL* MMTO+STKCOM ST A2,PLTGCS,A10 ICB-PLTGCS NEW (FINAL) START ADR CALL RELTGC RELOCATE ICB-PLTGC CALL TABLE ST A6,TGCREL+STKEND ICB-PLTGC RELOCATION LD A4,SHADOW,A10 SHTAB1 ADR LDR* A5,A4 SHTAB1 LENGTH LDR A6,A4 SHTAB1 ADR ADR A4,A5 SHTAB2 ADR SUK A5,2 ADJUST FOR TABLE LENGTH WORD LDKL A3,MMTAB CURRENT MM-TAB ADR A3,A13 CALL MMENT FIND LAST USED ENTRY ST A3,LSTENT+STKEND SAVE LAST USED ENTRY * * GENERATE TASK CLASS DATA * TCLLOP EQU * LDKL A8,MMTAB SUKL A8,MMBEG ADR A8,A13 ST A8,TTAB+STKCOM LD A7,LSTENT+STKEND LAST USED MM-ENTRY FOR COMMON DATA ST A7,LSTPAG,A8 SAVE FOR MOVING ST A5,TCLCOU+STKEND ADK A4,2 SHTAB2 ENTRY LDR A8,A4 GET SHTAB2 POINTER TL* MMFROM+STKCOM LDR* A7,A8 ITCT ADR CALL FNDBLK FIND TCLBLK EL A5,TCLTLD,A3 PGTL-DATA-LENGTH-USED ELR A1,A3 STACK-SIZE ES A1,ITCNEP,A7 SAVE IN ITCT ES A5,ITCGLL,A7 SAVE IN ITCT LD A5,TCLCOU+STKEND NBR OF ITCT'S LEFT RF(Z) TCLEXT NONE LD A1,TGCREL+STKEND EL A3,ITCTGC,A7 ADR A3,A1 LDR A1,A7 ES A3,ITCTGC,A1 RELOCATE ICB-PLTGC-MAIN IN ITCT LD A3,PGTGAD+STKEND PGTG-DATA ADDRESS ES A3,ITCCOM,A1 UPDATE POINTER IN ITCT LD A3,DDIVTO+STKEND APPTAB ADDRESS EL A3,APPCOM,A3 COMMON PROGRAM SEGM ES A3,ITCCSB,A1 SAVE IN CURRENT SEGMENT BASE EL A3,ITCTLT,A7 NBR OF ENTRIES IN TLTAB SLL A3,1 NBR OF BYTES IN TLTAB ADK A3,2 ADJUST FOR TLTAB LENGTH WORD ADK A3,ITCTLT ITCT LENGTH CALL CALLMO ALLOCATE AND MOVE ITCT STR A2,A4 NEW ITCT ADR IN SHTAB2 ST A2,SAVITC+STKEND SAVE NEW ITCT ADR CALL MVPGTL ALLOCATE AND MOVE PGTL-DATA ST A10,SAVE01+STKEND SAVE APPL SAVE AREA POINTER CALL MVSTAT ALLOCATE AND MOVE STATIC-ZERO LD A10,SAVE01+STKEND GET APPL SAVE AREA POINTER LDK A2,2 ST A2,DYNDIS+STKEND INIT.DYN.CORE TABLE DISPL. CALL ALLDYN ALLOCATE DYNAMIC-CORE LDR A8,A4 GET ITCT ADDRESS POINTER CALL INIDYN INITIATE DYNAMIC CORE ST A10,SAVE01+STKEND SAVE APPL SAVE AREA POINTER CALL GETTAB GET TTAB ADDRESS CALL MOVMMT MOVE MMTAB TO TTAB LD A10,SAVE01+STKEND GET APPL SAVE AREA POINTER CM LSTPAG,A9 CLEAR SEGMENT BLOCK POINTER LD* A1,SHADOW,A10 SHTAB1 LENGTH LDR A4,A8 GET SHTAB2 POINTER ADR A1,A4 SHTAB3 ENTRY STR A2,A1 MM-TAB ADDRESS LD A1,LSTENT+STKEND GET LAST USED ENTRY,UPTO COMMON DATA CALL MMRST RESET UNUSED MM-ENTRIES LD A5,TCLCOU+STKEND SUK A5,2 COUNT NBR OF ITCT'S RB(P) TCLLOP ITCT'S LEFT TCLEXT EQU * EJECT SYA200 EQU * * INCLUDE MOVED PROT.DDIV IN FREE AREA LD A5,DDIVTO+STKEND GET START OF MOVED PROT.DDIV LDR A8,A5 SAVE ANKL A5,/F000 SRL A5,11 ADKL A5,MMDDIV MMU-TABLE ADDRESS ADR A5,A13 RELOCATE LDR* A5,A5 GET PAGE FROM MMU-TABLE ST A5,FSTPAG+STKCOM SET FSTPAG TO THAT PAGE ANKL A8,/FFF GET DISPL. IN PAGE ST A8,FSTADR+STKCOM SET FSTADR TO THAT DISPL. * CONTINUE IN PART 3 * LDKL A5,START3 RELATIVE START ADDRESS AD A5,M:REL+STKCOM ADD RELOCATION BASE ABR A5 EJECT ************************************************ *** *** ** SYSLCO PART 3 ** ** ** ************************************************ * BUILD REAL ITCT'S. COPY ITCT'S ACCORDING TO* * SHADOW TABLE * * * ************************************************ PART3 EQU * EJECT ***************************** * START OF PROGRAM PART 3 * ***************************** ** G E T T A B ** ** ** ** ** ** FIND TTAB ADDRESS ** ** ** ** INPUT :A8=POINTER TO ITCT ADR ** ** OUTPUT:A2=TTAB-ADDRESS ** ** A1=TID ** ** WORKREGS:A3,A4,A10 ** ********************************************** GETTAB EQU * LDR* A10,A8 ITCT-ADDRESS EL A1,ITCTID,A10 GET TID 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,TTBTID,A2 TID EQUAL ? RB(NE) GETT10 NO! CM TTB:PP,A2 RESET PENDING POINTER IN TTAB ST A2,TTAB+STKCOM SAVE EL A3,ITCSPL,A10 GET SPL-PBS.PROGRAM-DATA ADDRESS ST A3,TTB:SA+20,A2 SAVE IN TTAB ADKL A3,SPLSIZ-SPLCPB-2 POINT AT SPL-PBS STACK-BASE ST A3,TTB:SA+28,A2 SAVE IN TTAB RTN A14 EJECT ** Q U E J O B ** ** ** ** ** ** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** ** 0, ENB. ** ** ** ** INPUT: A10=ITCT-ADDRESS ** ** A2=TTAB-ADDRESS ** *************************************************** QUEJOB EQU * * QUEUE THIS TASK (THIS TID) LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS AD A3,M:REL+STKCOM 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 LDR A5,A2 GET TTAB-ADDRESS LD A2,INTENT+STKEND INTERPRETER ENTRY CF A15,ACTOT GETT40 ABL RETUR8 RELOAD 8 REGS RETUR EQU * RTN A14 EJECT * G E N C O P * * * *************************** GENCOP EQU * LDR A3,A1 SAVE A1 LD A1,LSTENT+STKEND LAST USED MM-ENTRY FOR COMMON DATA LDKL A2,MMTAB SUKL A2,MMBEG ADR A2,A13 ST A2,TTAB+STKCOM ST A1,LSTPAG,A2 SAVE LAST USED ENTRY FOR MOVING CALL MMRST RESET MMTAB UNUSED ENTRIES LDR A1,A3 RESTORE A1 ST A5,SAVE05+STKEND SAVE A5 ST A6,SAVE06+STKEND SAVE A6 CALL FNDTID FIND TID LD A1,TCLITC+STKEND TCL ITCT ADDRESS LDK A3,ITCTLT TLTAB START DISPL EL A2,ITCTLT,A1 NBR OF ENTRIES IN TLTAB SLL A2,1 NBR OF BYTES IN TLTAB ADK A2,2 ADJUST FOR TLTAB COUNTER ADR A3,A2 ITCT LENGTH CALL CALLMO COPY ITCT TL* MMTO+STKCOM ST A2,SAVITC+STKEND SAVE ITCT ADR LD A3,SAVTID+STKEND GET NEW TID ES A3,ITCTID,A2 STORE IN ITCT LDR A3,A2 ITCT ADR CALL MVPGTL ALLOCATE AND MOVE PGTL-DATA LD A3,SAVITC+STKEND ITCT ADR CALL MVSTAT ALLOCATE AND MOVE STATIC-ZERO LD A3,SAVITC+STKEND ITCT ADR LD A10,SAVE01+STKEND GET APPL.SAVE AREA POINTER CALL ALLDYN ALLOCATE DYNAMIC CORE CALL INIDYN INITIATE DYNAMIC CORE LD A1,SAVTID+STKEND TID LDR A10,A7 ITCT ADDRESS CALL GETTTB FIND TTAB ADR CALL QUEJOB QUEUE THIS TASK LD A10,SAVITC+STKEND ITCT ADR LDR A5,A10 ITCT ADDRESS ADK A5,22 ST A5,TTB:SA+26,A2 SAVE ITCT ADR IN TTAB(SAVE-A13) ADKL A5,ITCCSB-ITCDCD POINT AT CSB IN ITCT ST A5,TTB:CB,A2 SAVE IN TTAB LD A5,SAVE05+STKEND RESTORE A5 LD A6,SAVE06+STKEND RESTORE A6 CALL MOVMMT MOVE MM-TABLE TO TTAB CM LSTPAG,A9 CLEAR SEGMENT BLOCK POINTER LD A1,SAVTID+STKEND NEXT TID RTN A14 EJECT * F N D T I D * * * * FIND TID FOLLOWING "A1" * * IN SHTAB4 * * * * INPUT : A1=TID * * EXIT : A1=NEW TID * * WORK : A2,A3 * ***************************** FNDTID EQU * LD A2,SHADOW,A10 SHTAB1 ADR LD* A3,SHADOW,A10 SHTAB1 LEN ADR A2,A3 SHTAB2 ADR ADR A2,A3 SHTAB3 ADR ADR A2,A3 SHTAB4 ADR LDR* A3,A2 SHTAB4 LEN FNDTI0 EQU * SUK A3,1 FINISHED ? RF(NN) FNDTI1 NO LDK A1,LMP5 YES,TID ERROR CALL ERROR FNDTI1 EQU * ADK A2,2 ADJUST POINTER CWR* A1,A2 TID FOUND ? RB(NE) FNDTI0 NO,TRY NEXT LD A1,2,A2 YES,LOAD NEXT TID ST A1,SAVTID+STKEND SAVE IT RTN A14 EJECT * I N I D Y N * * * * INPUT : A3 = SPL-PBS ADDRESS * * * * WORK : A1 - A5 * * * **************************************** INIDYN EQU * LDR A1,A3 SPL-PBS ADDRESS LDKL A2,PBSTAB CONSTANT-TABLE ADDRESS AD A2,M:REL+STKCOM INID10 EQU * LDR* A5,A2 NBR OF COPIES OF THIS WORD CWK A5,/FFFF END OF CONSTANT-TABLE ? RF(E) INID30 YES LD A4,2,A2 WORD TO COPY ADK A2,4 STEP CONSTANT-TABLE POINTER INID20 EQU * SUK A5,1 STEP NBR OF COPIES RB(N) INID10 NEXT WORD ESR A4,A1 STORE WORD IN SPL-PBS ADK A1,2 STEP SPL-PBS POINTER RB INID20 NEXT COPY INID30 EQU * LDKL A5,STKMAX STACK-SIZE ES A5,SPLSTS,A3 STORE IN SPL-PBS.STACK-SIZE LDKL A1,ENTFIN ENTRY FINI (ADDRESS) ES A1,SPLENT,A3 STORE IN SPL-PBS.ENTRY FINI LDR A2,A3 SPL-PBS ADDRESS ADK A2,SPLSTA START OF SPL-STACK AREA ADR A5,A2 + STACK-AREA ADDRESS ES A5,SPLSTB,A3 STORE IN SPL-PBS.STACK-BASE RTN A14 EJECT *********************************************** ** ** ** EACH WORD IN THIS TABLE CONSISTS OF : ** ** WORD1=COUNTER, NBR OF COPIES OF NEXT WORD ** ** WORD1=WORD ** ** ** ** BYTE1 (COUNTER) = /FF MEANS END OF TABLE ** ** ** *********************************************** PBSTAB EQU * DATA 1 TERMINATION-CODE DATA 0 DATA 1 STACK-USED DATA /6 DATA 1 STACK-SIZE DATA 0 DATA 3 PROCEDURE-NAME DATA /2020 DATA 20 PGM-DATA UNTIL STACK-BASE DATA 0 DATA 1 STACK-BASE DATA 0 DATA 1 ENTRY-FINI DATA 0 DATA 16 LAST-TS,RUNTIME-WORK-AREA DATA 0 DATA /FFFF E N D O F T A B L E EJECT * A L L D Y N * * * * ALLOCATE DYNAMIC-CORE * * * * INPUT : A3 ITCT ADDRESS * * A10 APPL.SAVE AREA * * POINTER * * EXIT : ITCT IS UPDATED * * WITH DYNAMIC-CORE * * POINTERS * * WORK : A1-A3,A7 * ******************************** ALLDYN EQU * TL* MMTO+STKCOM LDR A7,A3 ITCT ADR EL A3,ITCNEP,A3 STACK-SIZE REQUIRED CALL CALLMO ALLOCATE FROM BOTTOM TL* MMTO+STKCOM EL A3,ITCNEP,A7 STACK-SIZE MOVED ES A2,ITCDCB,A7 SAVE BASE PNTR ES A2,ITCDCC,A7 SAVE CURRENT EXTENT ADR A3,A2 + BASE-PNTR SUKL A3,SPLSIZ - SPL-STACK-SIZE ES A3,ITCDCD,A7 SAVE DDI-POOL-BASE ADK A3,SPLCPB POINT AT SPL-PBS-PNTR ES A3,ITCSPL,A7 SAVE SPL-PBS-PNTR LD A1,DYNTAD,A10 TABLE ADR LD A2,DYNDIS+STKEND GET DYN.CORE TABLE DISPL ADR A1,A2 NEXT TABLE ENTRY TO USE ADK A2,2 COUNT DISPL ST* A2,DYNTAD,A10 COUNT LENGTH WORD IN TABLE ST A2,DYNDIS+STKEND STEP DISPL SUK A3,SPLCPB POINT AT SPL-PBS START STR A3,A1 STORE SPL-PBS ADR IN TABLE RTN A14 EJECT * M V S T A T * * * * ALLOCATE AND MOVE STATIC- * * CORE * * * * INPUT : A3 ITCT ADDRESS * * EXIT : A6 -1 * * A3 ITCT ADDRESS * * WORK : A1-A2,A7-A8,A10 * ******************************** MVSTAT EQU * STR A4,A14 SAVE SHTAB2 POINTER ON STACK SUKL A14,2 ADJUST STACK-POINTER LDR A7,A3 ITCT ADR ADK A3,ITCTGC POINT AT ICB-PLTGC-MAIN ADDRESS ST A3,SAVE07+STKEND SAVE POINTER ADK A7,ITCTLT TLTAB ADR LDR A12,A7 SAVE TLTAB-BASE ELR A6,A7 NBR OF ENTRIES IN TLTAB MVSTA1 EQU * SUK A6,1 COUNT RF(NN) MVSTA2 STATIC-ZERO AREAS LEFT LD A3,SAVE07+STKEND LOAD ICB-PLTGC-MAIN ADR POINTER SUK A3,ITCTGC MAKE IT ITCT POINTER ADKL A14,2 ADJUST STACK-POINTER LDR* A4,A14 GET SHTAB2 POINTER FROM STACK RTN A14 MVSTA2 EQU * ADK A7,2 POINT AT STATIC-ZERO ADR ELR A8,A7 STATIC-ZERO ADR RB(Z) MVSTA1 EMPTY ENTRY EL* A3,SAVE07+STKEND LOAD ICB-PLTGC-MAIN ADDRESS SUR A10,A10 LEVEL LDK A1,0 RESET INDICATOR LD A2,FREQUE GET MONITOR BLOCK ADR. =2 CALL FNDTGC FIND STATIC-ZERO ADR+LENGTH LD A10,SAVE01+STKEND GET APPL.SAVE AREA POINTER CALL CALLMO ALLOCATE AND MOVE STATIC-ZERO TL* MMTO+STKCOM ESR A2,A7 UPDATE TLTAB ENTRY RB MVSTA1 EJECT * F N D T G C * * * * FIND STATIC-ZERO ADR+LENGTH * * FOR ONE PROGRAM * * * * INPUT : A3 ICB-PLTGC ADR * * A8 STATIC-ZERO ADR * * WANTED * * A10 0 (ZERO) * * A12 TLTAB BASE * * A2 MONITIR BLOCK ADR * =2 * EXIT : A1 STATIC-ZERO ADR * * A2 MONITOR BLOCK ADR * =2 * A3 STATIC-ZERO LENGTH * * WORK : A2,A4,A5,A9,A11 * * WORKAREA: USES MONITOR BLOCKS * =2 * AS STACK * =2 ********************************** FNDTGC EQU * ELR A1,A3 =2 SRL A1,8 =2 SUK A1,/60 COBOL PROGRAM? =2 RF(Z) FNDT00 YES! =2 LDK A1,0 INDICATE NOT FOUND =2 RF FNDTG0 RETURN =2 FNDT00 EQU * =2 EL A1,TGCSZD,A3 GET DISPL IN TLTAB ADR A1,A12 POINT AT TLTAB-ENTRY ADK A1,2 ADJUST FOR TLTAB LENGTH-WORD ELR A1,A1 STATIC-ZERO-ADR CWR A1,A8 WANTED ? RF(NE) FNDTG1 NO ADK A3,TGCSZL YES,POINT AT LENGTH WORD ELR A3,A3 STATIC-ZERO-LENGTH FNDTG0 EQU * RTN A14 FNDTG1 EQU * LDK A1,0 INDICATE NOT FOUND EL A5,8,A3 NBR OF ENTRIES IN PLTGC CALL TAB SLL A5,1 *2 = TABLE LENGTH ADR A5,A3 BASE ADK A5,10 DISPL TO TABLE START LDR A4,A3 ICB-PLTGC ADR ADK A4,TGCCAL+TGCCTE ADR TO FIRST ENTRY IN CALL TAB FNDTG2 EQU * LDR A9,A4 TABLE START ADR LDR A11,A5 TABLE END ADR CALL CMPADR END OF CALL-TABLE ? RB(NG) FNDTG0 YES! =2 FNDTG3 EQU * ST A4,2,A2 SAVE ON STACK =2 ST A5,4,A2 SAVE ON STACK =2 LDR* A2,A2 ADJUST STACK POINTER =2 RF(NZ) FNDTG4 MORE BLOCKS AVILABLE =2 LDKL A1,NOBLK NO BLOCKS AVILABLE =2 CALL ERROR =2 FNDTG4 EQU * =2 ELR A3,A4 NEXT LINK ADKL A10,1 ADJUST LEVEL CALL FNDTGC NEXT LEVEL SUK A2,6 ADJUST STACK POINTER =2 LDR A1,A1 STATIC-ZERO FOUND RB(NZ) FNDTG0 YES SUKL A10,1 ADJUST LEVEL LD A4,2,A2 TABLE POINTER FROM STACK =2 LD A5,4,A2 TABLE END POINTER FROM STACK =2 ADK A4,TGCCTE POINT TO NEXT TABLE-ENTRY RB FNDTG2 EJECT * M V P G T L * * * * ALLOCATE AND MOVE PGTL-DATA * * * * INPUT : A2 ITCT ADR * * EXIT : A1 OLD PGTL-DATA ADR * * A2 NEW PGTL-DATA ADR * * A3 ITCT ADR * *********************************** MVPGTL EQU * TL* MMTO+STKCOM EL A1,ITCGLA,A2 PGTL-DATA ADR EL A3,ITCGLL,A2 PGTL-DATA LENGTH CALL CALLMO ALLOCATE AND MOVE PGTL-DATA TL* MMTO+STKCOM LD A3,SAVITC+STKEND ITCT ADR ES A2,ITCGLA,A3 NEW PGTL-DATA ADR RTN A14 EJECT ************************************************ * * * C A L L M O * * * * CALLMO CHECKS WHERE TO BUILD DATA BEFORE * * CALLING MOVING * * * * INPUT: A3=LENGTH TO MOVE * * A10=APPL.SAVE AREA POINTER * * PDDIV=FLAG THAT INDICATES IF DDIV IS * * GOING TO BEE BUILT IN PROT.DDIV * * PDDIVL=LENGTH LEFT IN PROT.DDIV * * SCTEFA=END OF FREE AREA * * * * OUTPUT: A3=-1 * * PDDIV=1 IF DDIV IS BUILT IN PROT. * * DDIV ELSE PDDIV=0 * * PDDIVL=NEW PDDIVL * * LSTADR=NEW LAST FREE ADDR. * * FYSPAG=NEW LAST FREE PAGE * * * * WORK REG:A2 * * * ************************************************ CALLMO EQU * LD A2,PDDIV+STKEND BUILD DDIV IN PROT.DDIV? RF(Z) CAL200 NO! LD A2,PDDIVL,A10 GET LENGTH LEFT IN PROT.DDIV SUR A2,A3 ENOUGH SPACE LEFT IN PROT.DDIV RF(NN) CAL100 YES! * * RESET FLAG AND CHANGE FYSPAG AND LSTADR * TO POINT AT END OF FREE AREA * CM PDDIV+STKEND RESET FLAG LD A2,SAEFA1+STKEND GET END OF FREE AREA PAGE ST A2,FYSPAG+STKCOM SET FYSPAG TO THAT PAGE LD A2,SAEFA2+STKEND END OF FREE AREA (LOGICAL ADDR.) ST A2,LSTADR+STKCOM STORE NEW LSTADR CAL100 EQU * ST A2,PDDIVL,A10 LENGTH LEFT IN PROT.DDIV CAL200 EQU * CALL MOVING RTN A14 EJECT START3 EQU * REALTA EQU * LD* A8,SHADOW,A10 SHTAB LENGTH LD A5,SHADOW,A10 SHTAB1 ADR ADR A8,A5 SHTAB2 ADR ST A8,SAVE03+STKEND SAVE SHTAB2 ADR AD* A8,SHADOW,A10 SHTAB3 ADR ST A8,SAVE02+STKEND SHTAB3 ADR SYA300 EQU * LD A8,SAVE03+STKEND SHTAB2 POINTER ADKL A8,2 NEXT CW A8,SAVE02+STKEND ALL TCL'S DONE ? RF(E) SYA310 YES ST A8,SAVE03+STKEND SAVE SHTAB2 POINTER ADK A5,2 SHTAB1 POINTER LDR* A4,A5 NBR OF COPIES RB(Z) SYA300 NONE LDR A4,A8 GET SHTAB2 POINTER AD* A4,SHADOW,A10 MAKE IT SHTAB3 POINTER LDR* A4,A4 TLR A4 LOAD MM-TABLE INDICATED IN SHTAB3 ST A4,MMFROM+STKCOM SAVE MM-TABLE ADDRESS ST A10,SAVE01+STKEND SAVE APPL.SAVE AREA POINTER CALL GETTAB FIND TTAB ADR ST A10,SAVITC+STKEND SAVE ITCT ADR ST A10,TCLITC+STKEND SAVE TCL ITCT ADDRESS CALL QUEJOB QUEUE TASK LDR A6,A10 ITCT ADR ADK A6,22 MAKE IT INT-USABLE ST A6,TTB:SA+26,A2 SAVE ITCT ADR IN TTAB(SAVE-A13) ADKL A6,ITCCSB-ITCDCD POINT AT CSB IN ITCT ST A6,TTB:CB,A2 SAVE IN TTAB LD A1,TTAB+STKCOM TTAB ADDRESS LD A1,TTBTID,A1 GET TASK-ID LDR* A6,A5 NBR OF COPIES SYA305 EQU * LD A10,SAVE01+STKEND GET APPL.SAVE AREA POINTER SUK A6,1 COUNT NBR OF COPIES RB(NP) SYA300 NEXT TCL CALL GENCOP GENERATE ONE COPY RB SYA305 NEXT EJECT * ADJUST END OF FREE AREA SYA310 EQU * LD A1,PDDIV+STKEND UPDATE END OF FREE AREA? RF(NZ) SYA315 NO! LD A1,LSTADR+STKCOM GET END OF FREE AREA ANKL A1,/FFF LD A2,FYSPAG+STKCOM SLL A2,2 ORR A1,A2 ST A1,SCTEFA+2 LD A1,FYSPAG+STKCOM SRL A1,14 ST A1,SCTEFA LD A1,LSTADR+STKCOM GET END OF FREE AREA ANKL A1,/FFF ST A1,SAEFA2+STKEND UPDATE SAEFA2 LD A1,FYSPAG+STKCOM GET PAGE ST A1,SAEFA1+STKEND UPDATE SAEFA1 SYA315 EQU * * * JUMP TO LABEL NXTAPP IN PART2 TO SEE IF * THERE ARE MORE APPLICATIONS LEFT * LD A10,SAVE01+STKEND GET APPL.SAVE AREA POINTER LDKL A1,NXTAPP GET JUMP ADDRESS AD A1,M:REL+STKCOM ADD RELOCATION BASE ABR A1 CHECK IF MORE APPLICATIONS XIF IFT MMUPAG=0 EJECT ********************************************* ******* ******* ** ** * SYSLOAD PART 1 * ** ** ***** ***** ********************************************* * READ CONFIGURATION FILE & BUILD * * SHADOW-TABLES * * * ********************************************* LCOSTA EQU * LDKL A1,START1 GET START OF SYSLCO AD A1,M:REL+STKCOM ADD RELOCATION BASE ABR A1 GO TO START OF SYSLCO ************************************* *** *** ** S U B R O U T I N E S ** ** -USED IN THIS PART ONLY ** ************************************* EJECT * B U I L D T * * * * BUILD ONE PART OF TIDTAB FOR CURRENT * * TASK DEFINITION BLOCK IN CONF.FILE * * * * INPUT : A1=ITCT ADDRESS * * A3=TID * * A4=NUMBER OF COPIES * * A6=POINTER IN SHTAB1 * * A8=LENGTH OF SHTAB1 * * SHADST=START OFSHADOW TABLES FOR * * CURRENT APPLICATION * * * * OUTPUT: A7=FIRST FREE ENTRY AFTER TIDTAB * * SHADST=START OFSHADOW TABLES FOR * * CURRENT APPLICATION * * * * WORK REGISTERS : A1-A8 * * * * SUBRUTINS : ERROR * * * ********************************************** BUILDT EQU * LDR* A2,A6 HAVE TASKS ALREADY BEEN CONF FOR THIS TCL RF(NZ) BUI100 YES! ST A3,ITCTID,A1 SAVE TID IN ITCT * COUNT NUMBER OF TASKS IN TIDTAB WHICH ARE GOING TO * LIE BEFORE CURRENT TASKS BUI100 EQU * SUR A2,A2 CLEAR TASK COUNTER LDR A5,A6 GET POINTER TO CURRENT ENTRY IN SHATB1 BUI200 EQU * ADR* A2,A5 ADD NUMBER OF TASKS SUK A5,2 DECREASE SHTAB1 POINTER CW A5,SHADST+STKEND ALL TASKS COUNTED? RB(NE) BUI200 NO! * LOAD REGISTER A5 WITH POINTER TO START-ENTRY OF * CURRENT TASKS IN TIDTAB AND ADD NUMBER OF CURRENT * TASKS IN FIRST ENTRY OF TIDTAB ADR A5,A8 ADD SHTAB1 LENGTH ADR A5,A8 ADD SHTAB2 LENGTH ADR A5,A8 ADD SHTAB3 LENGTH ADRS A4,A5 UPDATE NUMBER OF TASKS IN TIDTAB ADK A5,2 NEXT TIDTAB ENTRY SLL A2,1 2*(NUMBER OF TASKS) ADR A5,A2 ADD DISPLACEMENT IN TIDTAB * COUNT NUMBER OF TASKS IN TIDTAB WHICH ARE GOING * TO LIE AFTER CURRENT TASKS LDR A1,A6 GET POINTER TO SHTAB1 ENTRY OF CURRENT TCL ADK A1,2 ENTRY IN SHTAB1 AFTER CURRENT TCL SUR A2,A2 CLEAR TASK COUNTER LDR A7,A8 GET SHTAB1 LENGTH SUR A7,A1 AD A7,SHADST+STKEND LENGTH OF SHTAB1 IN BYTES AFTER CURRENT TCL RF(Z) BUI350 JUMP IF NO TASKS TO COUNT BUI300 EQU * ADR* A2,A1 ADD NUMBER OF TASKS ADK A1,2 INCREASE SHTAB1 POINTER SUK A7,2 ALL TASKS COUNTED? RB(Z) BUI300 NO! * MAKE SPACE IN TIDTAB FOR CURRENT TASKS BUI350 EQU * LDR A7,A5 LOAD START-ENTRY OF CURRENT TASKS IN TIDTAB ADR A7,A2 ADD 2*(NUMBER OF TASKS AFTER ADR A7,A2 CURRENT TASKS) SUK A7,2 POINTER TO LAST TASK ID IN TIDTAB SLL A4,1 2*(NUMBER OF CURRENT TASKS) CWR A7,A5 ARE CURRENT TASKS LAST IN TIDTAB RF(L) BUI500 YES! BUI400 EQU * LDR* A1,A7 GET TASK ID IN TIDTAB ADR A7,A4 NEW ENTRY IN TIDTAB FOR TASK ID STR A1,A7 STORE TASK ID IN NEW ENTRY SUR A7,A4 GET OLD ENTRY IN TIDTAB SUK A7,2 NEXT ENTRY IN TIDTAB CWR A7,A5 ALL TASK ID MOVED? RB(NL) BUI400 NO! * LOAD REGISTER A7 WITH FIRST FREE ENTRY AFTER TIDTAB * AND ADD NUMBER OF CURRENT TASKS IN CURRENT ENTRY OF SHTAB1 BUI500 EQU * LDR A7,A5 LOAD START ENTRY OF CURRENT TASKS IN TIDTAB ADR A7,A2 ADD NUMBER OF ADR A7,A2 BYTES IN TIDTAB AFTER CURRENT TASKS ADR A7,A4 FIRST FREE ENTRY AFTER TIDTAB SRL A4,1 (2*(NUMBER OF TASKS))/2 ADRS A4,A6 ADD NUMBER OF CURRENT TASKS,FOR CURRENT TCL IN SHTAB1 * PUT CURRENT TASK ID:S IN TIDTAB LD A1,SHADST+STKEND GET SHTAB1 START ADDRESS ADR A1,A8 ADD SHTAB1 LENGTH ADR A1,A8 ADD SHTAB2 LENGTH ADR A1,A8 TIDTAB START ADDRESS ADK A1,2 FIRST TID IN TIDTAB BUI600 EQU * LDR A6,A1 GET TIDTAB START ADDRESS BUI700 EQU * CWR A6,A5 ALL TID:S IN UPPER PART IN TIDTAB SHECKED? RF(NE) BUI800 NO! ADR A6,A4 FIRST TIDTAB ENTRY OF ADR A6,A4 LOWER PART BUI800 EQU * CWR A6,A7 ALL TID:S OF LOWER PART IN TIDTAB SHECKED? RF(E) BUI950 YES! CWR* A3,A6 TID ALREADY CONFIGURATED? RF(NE) BUI900 NO! LDKL A1,LMP4 YES! FORMAT ERROR CALL ERROR BUI900 EQU * ADK A6,2 NEXT ENTRY IN TIDTAB RB BUI700 BUI950 EQU * STR A3,A5 PUT TID IN TIDTAB ADK A5,2 ADJUST UPPER PART END ADDRESS ADK A3,1 GENERATE NEXT TID SUK A4,1 HAVE ALL CURRENT TID:S BEEN CONF. RB(NZ) BUI600 NO! RTN A14 EJECT * L I M T G C * * * * FIND START-ADR, END-ADR, LENGTH OF * * ICB-PLTGC BLOCK * * * * INPUT:A10=POINTER TO CURRENT APPL. * * SAVE AREA IN SCRATCH-PAD * * SHADOW=START OF SHADOW TABLES * * FOR CURRENT APPLICATION * * OUTPUT:PLTGCS= START ADR OF ICB-PLTGC * * PLTGCE= END ADR OF ICB-PLTGC * * PLTGCL= LENGTH OF ICB-PLTGC * * WORKREGS: A1-A7,A9,A11 * * WORKAREA:USES MONITOR BLOCKS AS STACK * * * ***************************************** LIMTGC EQU * LD A1,SHADOW,A10 SHTAB1 ADDRESS LD A7,FREQUE GET MONITOR BLOCK ADDR. LDR* A2,A1 SHTAB1 LENGTH ADR A1,A2 SHTAB2 ADDRESS LIMTG0 EQU * SUK A2,2 RF(Z) LIMTG5 ALL DONE ADK A1,2 STEP SHTAB2 LDR* A3,A1 ADR TO TCLBLK LD A3,ITCTGC,A3 ADR TO ICB-PLTGC OF MAIN PROGRAM LIMTG1 EQU * LDK A5,0 SET LEVEL TO 0(ZERO) CALL LIMTG2 UPDATE LIMITS FOR ICB-PLTGC'S RELATED TO THIS CLASS RB LIMTG0 NEXT TCL EJECT * * UPDATE LIMITS FOR ICB-PLTGC'S * RELATED TO ONE TERMINAL-CLASS * LIMTG2 EQU * CALL LIMUPD UPDATE LIMITS LDR* A4,A3 GET FIRST WORD IN ICB-PLTGC ADKL A4,/100 INDICATE LIMIT-CONTROL-INIT STR A4,A3 SET INDICATION LD A4,TGCCAL,A3 GET NBR OF CALL-TABLE ENTRIES LIMTG3 EQU * RF(Z) LIMTG4 NO ENTRIES (LEFT) ST A4,2,A7 SAVE NBR.OF ENTRIES ON STACK ST A3,4,A7 SAVE ENTRY ADDRES ON STACK LDR* A7,A7 ADJUST STACK-POINTER =2 RF(NZ) LIMT35 MORE BLOCKS AVILABLE =2 LDKL A1,NOBLK NO BLOCKS AVILABLE =2 CALL ERROR =2 LIMT35 EQU * =2 ADK A5,1 ADJUST LEVEL SLL A4,1 *2 TABLE LENGTH ADR A4,A3 ADD BASE ADK A4,TGCCAL ADD CALL-TABLE DISPLACEMENT LDR* A3,A4 GET ICB-PLTGC ADDRESS CALLED LDR* A4,A3 GET THAT FIRST WORD CONTENT SRL A4,8 ONLY FIRST BYTE VALID SUK A4,/60 FIRST TIME ? RB(Z) LIMTG2 YES LD A4,-4,A7 GET NBR OF ENTRIES LEFT LIMTG4 EQU * SUK A4,1 COUNT NBR OF ENTRIES LEFT RB(P) LIMTG3 ENTRIES LEFT SUK A5,1 ADJUST LEVEL RF(N) LIMTGX END OF THIS TERMINAL CLASS SUK A7,6 ADJUST STACK-POINTER LD A4,2,A7 NBR.OF ENTRIES LEFT LD A3,4,A7 ENTRY ADDRESS RB LIMTG4 CONTINUE LIMTG5 EQU * LD A3,PLTGCE,A10 PNTR TO LAST ICB-PLTGC LD A4,8,A3 NBR OF CALL-TAB ENTRIES SLL A4,1 NBR OF BYTES ADR A4,A3 ADD BASE ADK A4,10 ADD TABLE DISPL ST A4,PLTGCE,A10 SAVE END ADR SU A4,PLTGCS,A10 -(MINUS) START ADR ST A4,PLTGCL,A10 SAVE LENGTH LIMTGX EQU * RTN A14 EJECT * * UPDATE ICB-PLTGC LIMITS * * INPUT: A3=ICB-PLTGC ADR * LIMUPD EQU * LDR A11,A3 ICB-PLTGC ADR LD A9,PLTGCS,A10 GET CURRENT START ADR CALL CMPADR CHECK ADDRESSES RF(NL) LIMUP1 OLD START ADR VALID ST A3,PLTGCS,A10 SET NEW START ADR LIMUP1 EQU * LD A9,PLTGCE,A10 GET CURRENT END ADR CALL CMPADR CHECK ADDRESSES RF(L) LIMUP2 OLD END ADR VALID ST A3,PLTGCE,A10 SET NEW END ADR LIMUP2 EQU * RTN A14 EJECT * L E N C O U * * * * COUNT LENGTH OF SHTAB1,AND COUNT NUMBER OF * * TASKS * * * * INPUT : A11=CONFIGURATION START * * A10=POINTER TO CURRENT APLTAB BLK. * * * * OUTPUT: A6=TOTAL NUMBER OF TASKS * * A7=SHTAB1 LENGTH IN BYTES * * A10=POINTER TO CURRENT APLTAB BLK. * * * * WORK REGISTERS: A1,A3-A5 * * * * WORK TABLE: TEMPORARY TABLE WITH TCL * * NAMES AFTER START OF FREE * * AREA * * * * SUBRUTINES: NXTBLK * * * ********************************************** LENCOU EQU * LDK A7,2 TABLE LENGTH-WORD LENGTH LDK A6,0 TOTAL NBR OF TASKS CM* SHADST+STKEND CLEAR FIRST ENTRY OF TEMPORARY TABLE * SHECK IF CURRENT TCL NAME ALREADY HAS APEARED IN * CONFIGURATION FILE , AND IF SO DON'T INCREMENT * SHTAB1 LENGTH AND PUT CURRENT TCL NAME IN TEMPO- * RARY TABLE LEN100 EQU * LC A3,TDBMC+4,A11 SLL A3,8 LC A3,TDBMC+5,A11 TCL NAME OF CURRENT TASK TASK DEF. BLOCK LD A1,SHADST+STKEND ADDRESS TO FIRST ENTRY IN TEMPORARY TABLE LDR* A4,A1 FIRST ENTRY=0? RF(Z) LEN300 YES! LEN200 EQU * CWR A4,A3 TCL NAME IN TEMPORARY TABLE RF(E) LEN400 YES! ADK A1,2 NEXT ENTRY IN TEMPORARY TABLE LDR* A4,A1 ENTRY=0? RB(NZ) LEN200 NO! LEN300 EQU * ADK A7,2 COUNT NUMBER OF BYTES IN SHTAB1 STR A3,A1 PUT CURRENT TCL NAME IN TEMPORARY TABLE ADK A1,2 NEXT ENTRY IN TEMPORARY TABLE CMR A1 CLEAR IT * COUNT TOTAL NUMBER OF TASKS AND GET START OF NEXT * TASK DEF. BLOCK LEN400 EQU * LC A4,TDBNT+1,A11 NBR OF COPIES /2 SRC A4,4 LC A4,TDBNT,A11 NBR OF COPIES /1 SLC A4,12 SRL A4,8 BINARY VALUE (NBR OF COPIES) LDR A4,A4 NBR OF COPIES RF(Z) LEN500 NO COPY , TRY NEXT BLOCK ADR A6,A4 COUNT TOTAL NBR OF TASKS LEN500 EQU * CALL NXTBLK NEXT CONFIG.-BLOCK CCK A2,'TT' TASK DEF. BLOCK? RB(E) LEN100 NEXT TASK DEF. BLOCK RTN A14 EJECT * S Y S L C O * * * * ENTRY FOR COBOL APPLICATION CONFIG * * * ****************************************** START1 EQU * SYSLCO EQU * * * INIT A15 STACK * LD A15,SCTSTB SUKL A15,4 XIF IFT TEST-MMUPAG=1 =3 ****************************** * * TEST VERSION (DEBUG) * LD A2,SCTBUG DEBUGGER ADDRESS LD A13,M:REL+STKCOM ADKL A13,TEST1 SET RETURN ADDRESS ABR(NZ) A2 JUMP IF DEBUG IN SYSTEM TEST1 EQU * LDR A8,P GET PROGRAM-POINTER LDKL A5,REL+2 GET START OF RELOCATION ROUTINE AD A5,M:REL+STKCOM ADD RELOCATION BASE CFR A8,A5 * * ****************************** XIF IFT MMUPAG=0 * * CLEAR SCRATCH-PAD AREA * LDKL A1,STKEND A1=START OF SCRATCH-PAD AREA LDKL A2,STKMOV SUK A2,2 A2=END OF SCRATCH-PAD AREA SYA10 EQU * CMR A1 CLEAR MEMORY WORD CWR A1,A2 ALL WORDS CLEARED? RF(E) SYA20 YES! ADK A1,2 NO! NEXT WORD RB SYA10 * * INITIATE REGISTERS AND VARIABLES * SYA20 EQU * CM APPLNO+STKCOM CLEAR APPL.NUMBER COUNTER LDKL A10,STKEND START OF 1:ST APPL. SAVE AREA IN SCRATCH-PAD LD A1,SCTSFA START ADR.TO SHTAB'S OF 1:ST APPL. ST A1,SHADST+STKEND SAVE START OF 1:ST SHADOW-TABLE CM PDDIV+STKEND CLEAR FLAG * * GET APPLICATION * SYA100 EQU * LDKL A1,'CO' LOAD INPUT TO GETAPP,CO=COBOL APPL. CALL GETAPP FIND APPL AND ITS CONF DATA RF(NZ) SYA105 MORE APPL OF THIS TYPE LD A2,APPLNO+STKCOM ANY COBOL APPL. TO CONFIG.? RF(NZ) SYA102 YES! LDKL A1,LCOEND SYSLCO START ADDR. AD A1,M:REL+STKCOM RELOCATE ABR A1 LEAVE SYSLCO SYA102 EQU * LDKL A2,SYA178 NO MORE APPL OF THIS TYPE AD A2,M:REL+STKCOM ABR A2 SYA105 EQU * ST A11,ACOSTA+STKEND SAVE CONF.START FOR THIS APPL ST A1,APCTAB,A10 SAVE APLTAB BLOCK ADDRESS LD A2,APLLAC,A1 GET SEGTAB ADDRESS ST A2,SEGTAD,A10 SAVE EJECT * READ CONFIG FILE AND BUILD SHADOWTABLE LD* A3,APLLAC,A1 APPTAB ADR LD A2,I:RSTE,A3 GET INTERPRETER RESTART ADDRESS ST A2,APLIOE,A1 STORE IT IN APLTAB LDR* A2,A3 TCLTAB ADR LDR* A12,A2 NBR OF TCL'S LDR A4,A2 ADKL A4,4 ADR TO TCLBLK PNTR ST A4,TCLPNT+STKEND SAVE LC A2,TDBBT,A11 BLOCK TYPE CCK A2,'TT' TASK DEFINITION BLOCK RF(NE) SYA120 NO CALL LENCOU LDR A5,A7 SHTAB1 LENGTH * 1 ADR A5,A7 * 2 ADR A5,A7 * 3 SHTAB1-3 TOTAL LENGTH ST A5,SHTLEN+STKCOM SHTAB1-3 LENGTH LDR A6,A6 RF(Z) SYA120 NOTHING TO CONFIGURATE ST A6,NOCOPS+STKEND SAVE NBR OF RUNNING TASKS/RUNTIME * LD A11,SHADST+STKEND START OF SHTAB1 ADR A11,A5 ADR A11,A6 ADR A11,A6 ADKL A11,2 NEW START OF FREE AREA LDKL A9,LCOSTA AD A9,M:REL+STKCOM SYSLCO START * CHECK ADDRESSES CALL CMPADR RF(L) SYA115 OK ! LDKL A1,LMP3 MEMORY OVERFLOW CALL ERROR SYA115 EQU * SUR A8,A8 ZERO EQU * SUKL A11,2 NEXT STR A8,A11 CLEAR WORD CW A11,SHADST+STKEND ALL DONE ? RB(NE) ZERO NO ST* A7,SHADST+STKEND STORE LENGTH IN TABLE LENGTH WORD LDR A8,A7 SHTAB1 LENGTH LD A11,ACOSTA+STKEND CONFIG START LC A3,TDBBT,A11 GET BLOCK TYPE FROM CONF CCK A3,'TT' TASK DEFINITION BLOCK ? RF(E) SYA125 YES SYA120 EQU * LDK A1,LMP4 NO CALL ERROR SYA125 EQU * LD A2,TCLPNT+STKEND ADDR TO TCLBLK POINTER LC A3,TDBMC+4,A11 TCL-ID SLL A3,8 LC A3,TDBMC+5,A11 TCL-ID LDR A7,A12 NBR OF TCL'S * * CHECK IF TCL-ID FROM CONF IS IN APPLICATON * SYA130 EQU * SUK A7,1 COUNT NBR OF TCL'S RF(NN) SYA135 N=END OF TCLBLK'S LDK A1,LMP5 TID IN CONF NOT IN APPL CALL ERROR SYA135 EQU * CW A3,-2,A2 TCL-ID FOUND ? RF(E) SYA140 YES ADK A2,4 POINT AT NEXT TCLBLK RB SYA130 TRY IN NEXT TCLBLK SYA140 EQU * LD A6,SHADST+STKEND ADR A6,A8 START OF SHTAB2 ADR A6,A8 START OF SHTAB3 SYA145 EQU * SUK A6,2 STEP SHTAB2 LD A3,SHADST+STKEND ADR A3,A8 CWR A6,A3 END OF SHTAB2 ? RF(E) SYA150 YES LDR* A1,A6 ITCT ADR IN SHTAB2 LDR* A3,A2 GET TCLBLK-ADR CW A1,TCLTCT,A3 FOUND ITCT ADR ? RB(NE) SYA145 NO RF SYA155 YES SYA150 EQU * ADK A6,2 NEXT ENTRY IN SHTAB2 LDR* A3,A6 RB(NZ) SYA150 ENTRY NOT FREE LDR* A3,A2 GET TCLBLK-ADR LD A1,TCLTCT,A3 ITCT ADR IN TCLBLK STR A1,A6 STORE ITCT ADR IN SHTAB2 SYA155 EQU * SUR A6,A8 POINT AT ENTRY IN SHTAB1 LC A4,TDBNT+1,A11 NBR OF COPIES / 2 SRC A4,4 LC A4,TDBNT,A11 NBR OF COPIES / 1 SLC A4,12 SRL A4,8 BINARY VALUE (NBR OF COPIES) LDR A4,A4 NBR OF COPIES RF(Z) SYA170 SYA160 EQU * LC A3,TDBID+4,A11 TID SLL A3,8 LC A3,TDBID+5,A11 TID CALL BUILDT BUILD TIDTAB PART FOR ONE TCL SYA170 EQU * CALL NXTBLK NEXT CONFIG-BLOCK CCK A2,'TT' TASK DEF BLOCK ? RB(E) SYA125 YES LD A1,NOCOPS+STKEND TOTAL NBR OF RUNNING TASKS SLL A1,1 NBR OF BYTES USED ADK A1,2 ADD LENGTH WORD STR A1,A7 STORE LENGTH IN TABLE ST A7,DYNTAD,A10 SAVE TABLE START ADR A7,A1 UPDATE "FIRST FREE WORD" SUK A1,4 RF(NZ) SYA175 MORE THAN ONE TASK IN THE SYSTEM IM STASK+STKEND INDICATE SINGLE TASK APPLICATION * * PREPARE FOR NEXT APPLICATION * SYA175 EQU * LD A2,SHADST+STKEND GET START OF SHADOW TABLES ST A2,SHADOW,A10 SAVE IN APPL.SAVE AREA ADKL A10,TABLEN UPDATE SAVE AREA POINTER ST A7,SHADST+STKEND SAVE START OF SHTAB1 LDKL A2,SYA100 AD A2,M:REL+STKCOM ABSOLUTE BRANCH ADDRESS ABR A2 CHECK IF MORE APPLICATIONS SYA178 EQU * EJECT * SAVE MONITOR END ADDRESS LD A2,SCTSFA ST A2,MONEND+STKEND * GET START OF SYSLCO AFTER MOVE ADK A7,1 TO-ADDRESS (AFTER SHADOW-TABLES) ANKL A7,/FFFE EVEN ADDRESS * CALCULATE RELOCATION LDKL A2,PART2 GET START OF PART2 AD A2,M:REL+STKCOM ADD RELOCATION BASE LDR A3,A2 SUR A2,A7 LENGTH TO MOVE (SYSLCO+SYSINI) NGR A2,A2 ST A2,RELOCA+STKEND SAVE NEW RELOCATION TEMPORARY ST A7,LCOTO+STKEND SAVE (LOGICAL) TO-ADDRESS LDR A2,A13 A13=START OF SYSINI SUR A2,A3 SYSLCO LENGTH ADKL A2,INILEN ADD LENGTH OF SYSINI ST A2,MOVLE1+STKEND SAVE LENGTH TO MOVE ADR A7,A2 NEW DDIV ADDRESS ST A7,DDIVTO+STKEND SAVE NEW DDIV ADDRESS * CALCULATE DDIV FROM-ADDRESS * CM APPLNO+STKCOM RESET NBR OF APPL. LDKL A10,STKEND START OF 1:ST APPL SAVE AREA SYA180 EQU * LDKL A1,'CO' COBOL APPLICATION CALL GETAPP ANY COBOL APPL LEFT? RF(Z) OUT01 NO! LD A2,APLLAC,A1 GET SEGTAB LD* A9,APLLAC,A1 APPTAB ADR LD A9,APPCOM,A9 COMMON-PSEG-PNTR LD A3,SGNOSG,A2 NUMBER OF SEGMENTS LDR A1,A2 SAVE SEGTAB ADDRESS LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH CALL MULT ADR A1,A3 ADK A1,SGNOSG+2 => START OF DDIV ST A1,DDIVFR,A10 SAVE DDIV FROM-ADDRESS LD A6,DDIVTO+STKEND GET DDIV TO ADDR. SUR A6,A1 RELOCATION FOR DDIV ST A6,SAVE01+STKEND SAVE RELOCATION INCREMENT LDKL A6,/FFFF ST A6,PLTGCS,A10 INIT. START OF PLTGC'S CALL LIMTGC RELOCATE ICB-PLTGC LD A6,SAVE01+STKEND GET RELOCATION INCREMENT EJECT * * RELOCATE ITCT'S * RELITC EQU * LD A1,DDIVFR,A10 ADR TO APPTAB LDR* A1,A1 ADR TO TCLTAB LDR* A2,A1 NBR OF TCL'S RELIT1 EQU * SUK A2,1 ADJUST NBR OF TCL'S RF(N) RELITX ALL ITCT'S RELOCATED ADK A1,4 TCLBLK ADR POINTER LDR* A3,A1 TCLBLK ADR ADK A3,TCLTCT ADR TO ITCT POINTER LDR* A3,A3 ITCT ADR ADS A6,ITCGLA,A3 RELOCATE PGTL-DATA-ADR ADS A6,ITCCOM,A3 RELOCATE PGTG-DATA-ADR ADK A3,ITCTLT TLTAB ADR LDR* A4,A3 NBR OF ENTRIES IN TLTAB RELIT2 EQU * SUK A4,1 ADJUST LOOP-COUNTER RB(N) RELIT1 ALL ENTRIES RELOCATED ADK A3,ITCTLE POINT AT NEXT ENTRY LDR* A5,A3 ENTRY CONTENT RB(Z) RELIT2 FREE ENTRY ADRS A6,A3 RELOCATE ENTRY RB RELIT2 NEXT ITCT RELITX EQU * * * RELOCATE TCLBLK'S * RELTCB EQU * LD A1,DDIVFR,A10 APPTAB ADR LDR* A1,A1 TCLTAB ADR LDR* A2,A1 NBR OF TCL'S RELTB1 EQU * SUK A2,1 ADJUST NBR OF TCL'S RF(N) RELTBX RELOCATION OF TCLBLK'S DONE ADK A1,4 TCLBLK ADR POINTER LDR* A3,A1 TCLBLK ADR ADS A6,TCLTGC,A3 RELOCATE ICB-PLTGC-MAIN POINTER ADS A6,TCLTCT,A3 RELOCATE ITCT POINTER RB RELTB1 NEXT TCLBLK RELTBX EQU * * * RELOCATE TCLTAB * RELTCT EQU * LD A1,DDIVFR,A10 APPTAB ADR LDR* A1,A1 TCLTAB ADR LDR* A2,A1 NBR OF TCL'S RELTC1 EQU * SUK A2,1 COUNT NBR OF TCL'S RF(N) RELTCX RELOCATION OF TCLTAB DONE ADK A1,4 TCLBLK ADR POINTER ADRS A6,A1 RELOCATE TCLBLK POINTER RB RELTC1 NEXT TCLBLK POINTER RELTCX EQU * * * RELOCATE APPTAB * RELAPP EQU * LD A1,DDIVFR,A10 APPTAB ADR ADRS A6,A1 RELOCATE TCLTAB-PNTR RELAPX EQU * * * RELOCATE SHADOW-TABLE2 (ITCT ADDRESSES) * RELSHT EQU * LD* A1,SHADOW,A10 SHTAB LENGTH LDR A2,A1 SAVE SHTAB2 LENGTH AD A1,SHADOW,A10 SHTAB2 ADR RELSH1 EQU * SUK A2,2 ADJUST SHTAB2 LENGTH RF(Z) RELSHX RELOCATION OF SHTAB2 DONE ADK A1,2 POINT AT ITCT ADR ADRS A6,A1 RELOCATE ITCT ADR RB RELSH1 NEXT RELSHX EQU * ADKL A10,TABLEN NEXT APPL.SAVE AREA RB SYA180 CHECK IF MORE APPL. OUT01 EQU * LD A5,RELOCA+STKEND GET NEW RELOCATION INCREMENT ADS A5,M:REL+STKCOM AND ADJUST RELOCATION BASE * CONTINUE IN PART 2 * LD A2,LCOTO+STKEND GET TO-ADDRESS (SYSLCO) LDR A5,A2 AD A5,MOVLE1+STKEND SUKL A5,INILEN A5=SYSINI START LDKL A7,START2 GET EXECUTION START ADDRESS AD A7,M:REL+STKCOM ADD RELOCATION BASE LD A3,MOVLE1+STKEND SYSLCO+SYSINI LENGTH LDKL A1,PART2 AD A1,M:REL+STKCOM SU A1,RELOCA+STKEND FROM ADR. * * JUMP TO ROUTINE IN SYSTEM-STACK WHICH * MOVES SYSLCO, AND THEN CONTINUE IN PART2 * INPUT TO ROUTINE IN STACK IS * A1 = FROM ADDR. * A2 = TO ADDR. * A3 = LENGTH * A7 = RESTART ADDR. * ABL STKMOV JUMP TO MOVE-ROUTINE IN STACK EJECT ************************************************* *** *** ** SYSLOAD PART 2 ** ** ** ************************************************* * BUILD COMMON AND TASKCLASS DATA AREAS. * * BUILD TASKDATA PROTOTYPE AREA * * * ************************************************* PART2 EQU * ******************************************** *** *** ** S U B R O U T I N E S ** ******************************************** EJECT * M O V C O M * * * * MOVE ICB-PGTG AND PGTG-DATA * * * *************************************** MOVCOM EQU * CALL FNDCOM ICB-PGTG ADR LD A3,DDIVTO+STKEND APPTAB ADDRESS LD A3,APPTGL,A3 PGTG-DATA ADR LD A6,LSTADR+STKCOM LAST FREE ADDRESS SUR A6,A3 PGTG START ADR CALL CALLMO ALLOCATE AND MOVE PGTG-DATA ST A6,PGTGAD+STKEND SAVE ICB-PGTG NEW ADDRESS RTN A14 EJECT * F N D C O M * * * * FIND PGTG-DATA * * * * EXIT : A1 PGTG-DATA ADR * ******************************** FNDCOM EQU * LD* A1,DDIVTO+STKEND ADR TO TCLTAB LD A1,4,A1 ADR TO TCLBLK LD* A1,TCLTCT,A1 ADR TO PGTG-DATA RTN A14 EJECT * * * R E L T G C * * * * RELOCATE ICB-PLTGC CALL-TAB * * * * INPUT: PLTGCS= ICB-PLTGC BLOCK * * START ADDRESS * * PLTGCL= ICB-PLTGC BLOCK * * LENGTH * * A6 = RELOCATION INCREMENT * * * ***************************************** RELTGC EQU * LD A3,PLTGCS,A10 ICB-PLTGC START ADR LD A2,PLTGCL,A10 ICB-PLTGC LENGTH ADR A2,A3 ICB-PLTGC END ADR RELTG1 EQU * LDR A1,A3 LDR A11,A1 GET ADR FOR COMPARE LDR A9,A2 GET ADR FOR COMPARE CALL CMPADR ALL ICB-PLTGC'S RELOCATED ? RF(NL) RELTGX YES LCR A3,A1 GET ICB-PLTGC CONTROL-BYTE CCK A3,/6161 HANDLED BY LIMTGC ? RF(NE) RELTG2 NO ANK A3,/F0 NEW CONTROL-BYTE VALUE SCR A3,A1 RESTORE IT RELTG2 EQU * LD A3,TGCCAL,A1 NBR OF ENTRIES SLL A3,1 *2 NBR OF BYTES ADR A3,A1 ADD BASE ADK A3,10 POINTER TO 1:ST WORD AFTER LAST ENTRY LDR A4,A1 GET BASE ADK A4,10 1:ST ENTRY LDR A9,A3 RELTG3 EQU * LDR A11,A4 CALL CMPADR END OF THIS ICB-PLTGC ? RB(NL) RELTG1 YES,CONTINUE WITH NEXT ICB-PLTGC LDR* A11,A4 GET ADDRESS TO RELOCATE ADR A11,A6 RELOCATE ADDRESS LDR* A1,A11 SRL A1,8 SUK A1,/60 ICB-PLTGC ? RF(N) RELTG4 NO, ASM-SUBROUTINE SUK A1,1 RF(P) RELTG4 NO, ASM-SUBROUTINE ADRS A6,A4 RELOCATE CALL ADDRESS RELTG4 EQU * ADK A4,2 STEP CALL-TAB POINTER RB RELTG3 NEXT CALL-TAB-ENTRY RELTGX EQU * RTN A14 EJECT * F N D B L K * * * * FIND A TCLBLK CORRESPONDING * * TO AN ITCT ADDRESS * * * * INPUT : A7 ITCT ADR * * DDIVTO APPTAB ADR * * EXIT : A1 TCLBLK-PNTR ADR * * IN TLCTAB * * A3 TCLBLK ADR * * WORK : A2 * ********************************** FNDBLK EQU * LD* A1,DDIVTO+STKEND TCLTAB ADR LDR* A2,A1 NBR OF TCLBLK'S FNDBL0 EQU * SUK A2,1 COUNT NBR OF TCLBLK'S RF(NN) FNDBL1 BLOCKS LEFT LDK A1,LMP4 CALL ERROR FNDBL1 EQU * ADK A1,4 TCLBLK-PNTR ADR LDR* A3,A1 TCLBLK-PNTR CW A7,TCLTCT,A3 ITCT FOUND ? RB(NE) FNDBL0 NO,TRY NEXT TCLBLK RTN A14 YES,RETURN EJECT ***************************** * START OF PROGRAM PART 2 * ***************************** * LOAD BASE ADDRESS * ********************* * A5=START-ADDRESS * SAVE01=RELOCATION INCREMENT * SAVE03=DDIV TO-ADDRESS * SAVE04=DDIV FROM ADDRESS * SAVE05=LENGTH OF REAL ITCTTAB START2 EQU * LDR A8,P LOAD TEMP. STACKBASE ADK A5,2 ADD FOR RELOCATION ROUTINE CFR A8,A5 * * INITIATE REGISTERS AND VARIABLES * LDKL A10,STKEND START OF 1:ST APPL. SAVE AREA LD A1,APCTAB,A10 FIRST APLTAB BLOCK ADDR. LD A2,APPLNO+STKCOM GET NUMBER OF APPLICATIONS ST A2,ALICOU+STKEND SAVE RF PRT200 * * UPDATE VALUES FOR NEXT APPLICATION * NXTAPP EQU * ADKL A10,TABLEN NEXT APPL. SAVE AREA LD A1,APCTAB,A10 NEXT APLTAB BLOCK LD A2,ALICOU+STKEND GET APPL.COUNTER SUK A2,1 DECREMENT APPL.COUNTER ST A2,ALICOU+STKEND SAVE APPL.COUNTER RF(NZ) PRT200 IF ANY APPL IS LEFT DON'T LEAVE SYSLCO YET LD A2,SCTEFA+2 GET END OF FREE AREA ST A2,LSTADR+STKCOM LAST ADDR.:=END OF FREE AREA LDKL A2,SYA320 GET SYSLCO END ADDRESS AD A2,M:REL+STKCOM ADD RELOCATION BASE ABR A2 START TO MOVE DYNTAB:S PRT200 EQU * LD* A9,APLLAC,A1 APPTAB START ADDR. LD A2,APPINT,A9 INTERPRETER ACTIV ADDR. ST A2,INTENT+STKEND SAVE IT LD A9,APPCOM,A9 GET APPL. START ADDR. LDR A2,A9 APPL. START ADDR. * * CALCULATE DDIV+SEGTAB LENGTH * LD A4,APLLAC,A1 SEGTAB ADDR. ST A9,APLLAC,A1 STORE START OF APPL. SUR A2,A4 DDIV+SEGTAB LENGTH * * SET FLAG BIT15=1 => BUILD DDIV IN PROT. DDIV * IM PDDIV+STKEND SET FLAG * * INITIATE PROT. DDIV LENGTH * LD A3,SCTEFA+2 GET END OF FREE AREA CWR A3,A4 START OF SEGTAB=SCTEFA? RF(NE) SAVLEN NO! CM PDDIV+STKEND RESET FLAG SAVLEN EQU * ST A2,PDDIVL,A10 INIT.PROT.DDIV LENGTH * * MOVE DDIV * LD A1,DDIVFR,A10 GET FROM-ADDRESS LD A2,DDIVTO+STKEND GET TO ADDRESS LDR A3,A9 GET APPLICATION START (=END OF DDIV SUR A3,A1 => LENGTH OF DDIV ST A2,DATEND+STKCOM ADS A3,DATEND+STKCOM LD A8,TOTSGM+STKCOM ANY SEGMENTS IN APPLICATION? RF(Z) NOSGMT NO! SUR A8,A8 RESET FSTADR IF SEGMENTS RF SEGMTS NOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP SEGMTS ST A8,FSTADR+STKCOM 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 * CHECK IF MEMORY OVERFLOW LDR A1,A9 SAVE LDR A11,A2 LD A9,SCTEFA+2 CALL CMPADR MEMORY OVERFLOW? RF(NG) SYA202 NO! LDKL A1,LMP3 CALL ERROR SYA202 EQU * LDR A9,A1 RELOAD SUKL A9,10 RESERVE 5 WORDS FOR DEBUGGER ANKL A9,/FFFE EVEN ADDRESS ST A9,LSTADR+STKCOM SAVE END OF FREE AREA CALL MOVCOM ALLOC/MOVE PGTG-DATA LD A1,DDIVTO+STKEND PROT. NEW START ADR AD A1,PLTGCS,A10 SU A1,DDIVFR,A10 ICB-PLTGCS NEW START ADR LD A3,PLTGCL,A10 ICB-PLTGC LENGTH LD A6,LSTADR+STKCOM LAST FREE ADR SU A6,PLTGCE,A10 GET DISPL FOR RELOCATION CALL CALLMO MOVE ST A2,PLTGCS,A10 ICB-PLTGCS NEW (FINAL) START ADR CALL RELTGC RELOCATE ICB-PLTGC CALL TABLE ST A6,TGCREL+STKEND ICB-PLTGC RELOCATION LD A4,SHADOW,A10 SHTAB1 ADR LDR* A5,A4 SHTAB1 LENGTH LDR A6,A4 SHTAB1 ADR ADR A4,A5 SHTAB2 ADR SUK A5,2 ADJUST FOR TABLE LENGTH WORD TCLLOP EQU * ADK A4,2 SHTAB2 ENTRY LDR* A7,A4 ITCT ADR CALL FNDBLK FIND TCLBLK LDR* A1,A3 STACK-SIZE ST A1,ITCNEP,A7 SAVE IN ITCT LD A1,TCLTLD,A3 PGTL-DATA-LENGTH-USED ST A1,ITCGLL,A7 SAVE IN ITCT LDR A3,A5 NBR OF ITCT'S LEFT RF(Z) TCLEXT NONE LDR A1,A7 ITCT ADR LD A3,TGCREL+STKEND GET ICB-PLTGC RELOCATION ADS A3,ITCTGC,A1 RELOCATE ICB-PLTGC-MAIN IN ITCT LD A3,PGTGAD+STKEND PGTG-DATA ADDRESS ST A3,ITCCOM,A1 UPDATE POINTER IN ITCT LD A3,DDIVFR,A10 APPTAB ADDRESS LD A3,APPCOM,A3 COMMON PROGRAM SEGM ST A3,ITCCSB,A1 SAVE IN CURRENT SEGMENT BASE LD A3,ITCTLT,A7 NBR OF ENTRIES IN TLTAB SLL A3,1 NBR OF BYTES IN TLTAB ADK A3,2 ADJUST FOR TLTAB LENGTH WORD ADK A3,ITCTLT ITCT LENGTH ST A4,SAVE01+STKEND SAVE SHTAB2 POINTER CALL CALLMO ALLOCATE AND MOVE ITCT LD A4,SAVE01+STKEND GET SHTAB2 POINTER STR A2,A4 NEW ITCT ADR IN SHTAB2 ST A2,SAVITC+STKEND SAVE NEW ITCT ADR CALL MVPGTL ALLOCATE AND MOVE PGTL-DATA CALL MVSTAT ALLOCATE AND MOVE STATIC-ZERO LDK A2,2 ST A2,DYNDIS+STKEND INIT.DYN.CORE TABLE DISPL. CALL ALLDYN ALLOCATE DYNAMIC-CORE LDR* A3,A4 ITCT ADR SUK A5,2 COUNT NBR OF ITCT'S RB(P) TCLLOP ITCT'S LEFT TCLEXT EQU * EJECT SYA200 EQU * * INCLUDE MOVED PROT.DDIV IN FREE AREA LD A5,DDIVTO+STKEND ST A5,DATEND+STKCOM * CONTINUE IN PART 3 * LDKL A5,START3 RELATIVE START ADDRESS AD A5,M:REL+STKCOM ADD RELOCATION BASE ABR A5 EJECT ************************************************ *** *** ** SYSLCO PART 3 ** ** ** ************************************************ * BUILD REAL ITCT'S. COPY ITCT'S ACCORDING TO* * SHADOW TABLE * * * ************************************************ PART3 EQU * EJECT ***************************** * START OF PROGRAM PART 3 * ***************************** ** G E T T A B ** ** ** ** FIND TTAB ADDRESS ** ** ** ** INPUT :A8=POINTER TO ITCT ADR ** ** OUTPUT:A2=TTAB-ADDRESS ** ** A1=TID ** ** WORKREGS:A3,A4,A10 ** ********************************************** GETTAB EQU * LDR* A10,A8 ITCT ADDRESS LD A1,ITCTID,A10 GET TID TO MATCH 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,TTBTID,A2 TID EQUAL ? RB(NE) GETT10 NO! CM TTB:PP,A2 RESET PENDING POINTER IN TTAB ST A2,TTAB+STKCOM SAVE LD A3,ITCSPL,A10 GET SPL-PBS.PROGRAM-DATA ADDRESS ST A3,TTB:SA+20,A2 SAVE IN TTAB ADKL A3,SPLSIZ-SPLCPB-2 POINT AT SPL-PBS STACK-BASE ST A3,TTB:SA+28,A2 SAVE IN TTAB RTN A14 EJECT ** Q U E J O B ** ** ** ** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** ** 0, ENB. ** ** ** ** INPUT: A10=ITCT-ADDRESS ** ** A2=TTAB-ADDRESS ** *************************************************** QUEJOB EQU * * QUEUE THIS TASK (THIS TID) LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS AD A3,M:REL+STKCOM 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 LDR A5,A2 GET TTAB-ADDRESS LD A1,SAVITC+STKEND ITCT ADR LDR* A3,A1 ANK A3,/FF SEGMENT NBR TO ACTIVATE LD A1,2,A1 DISPL IN SEGMENT LD A2,INTENT+STKEND INTERPRETER ENTRY CF A15,ACTOT GETT40 ABL RETUR8 RELOAD 8 REGS RETUR EQU * RTN A14 EJECT * G E N C O P * * * *************************** GENCOP EQU * ST A5,SAVE05+STKEND SAVE A5 ST A6,SAVE06+STKEND SAVE A6 CALL FNDTID FIND TID LD A10,SAVITC+STKEND GET ITCT ADDRESS LDR A1,A10 ITCT ADR LDK A3,ITCTLT TLTAB START DISPL LD A2,ITCTLT,A1 NBR OF ENTRIES IN TLTAB SLL A2,1 NBR OF BYTES IN TLTAB ADK A2,2 ADJUST FOR TLTAB COUNTER ADR A3,A2 ITCT LENGTH CALL CALLMO COPY ITCT ST A2,SAVITC+STKEND SAVE ITCT ADR LD A3,SAVTID+STKEND GET NEW TID ST A3,ITCTID,A2 STORE IN ITCT LDR A3,A2 ITCT ADR CALL MVPGTL ALLOCATE AND MOVE PGTL-DATA LD A3,SAVITC+STKEND ITCT ADR CALL MVSTAT ALLOCATE AND MOVE STATIC-ZERO LD A3,SAVITC+STKEND ITCT ADR LD A10,SAVE01+STKEND GET APPL.SAVE AREA CALL ALLDYN ALLOCATE DYNAMIC CORE LD A1,SAVTID+STKEND TID LDR A10,A7 ITCT ADDRESS CALL GETTTB FIND TTAB ADR CALL QUEJOB QUEUE THIS TASK LD A10,SAVITC+STKEND ITCT ADR LDR A5,A10 ITCT ADDRESS ADK A5,22 ST A5,TTB:SA+26,A2 SAVE ITCT ADR IN TTAB(SAVE-A13) IFT DSKPAG=1 ADKL A5,ITCCSB-ITCDCD POINT AT CSB IN ITCT ST A5,TTB:CB,A2 SAVE POINTER IN TTAB XIF IFT MMUPAG=0 LD A5,SAVE05+STKEND RESTORE A5 LD A6,SAVE06+STKEND RESTORE A6 RTN A14 EJECT * F N D T I D * * * * FIND TID FOLLOWING "A1" * * IN SHTAB4 * * * * INPUT : A1=TID * * EXIT : A1=NEW TID * * WORK : A2,A3 * ***************************** FNDTID EQU * LD A2,SHADOW,A10 SHTAB1 ADR LD* A3,SHADOW,A10 SHTAB1 LEN ADR A2,A3 SHTAB2 ADR ADR A2,A3 SHTAB3 ADR ADR A2,A3 SHTAB4 ADR LDR* A3,A2 SHTAB4 LEN FNDTI0 EQU * SUK A3,1 FINISHED ? RF(NN) FNDTI1 NO LDK A1,LMP5 YES,TID ERROR CALL ERROR FNDTI1 EQU * ADK A2,2 ADJUST POINTER CWR* A1,A2 TID FOUND ? RB(NE) FNDTI0 NO,TRY NEXT LD A1,2,A2 YES,LOAD NEXT TID ST A1,SAVTID+STKEND SAVE IT RTN A14 EJECT * A L L D Y N * * * * ALLOCATE DYNAMIC-CORE * * * * INPUT : A3 ITCT ADDRESS * * EXIT : ITCT IS UPDATED * * WITH DYNAMIC-CORE * * POINTERS * * WORK : A1-A3,A9,A11 * ******************************** ALLDYN EQU * LDR A7,A3 ITCT ADR LD A3,ITCNEP,A3 STACK-SIZE REQUIRED LD A9,FSTADR+STKCOM SEGMENTED APPLICATION? RF(NZ) ALLDY1 NO!! CALL CALLMO ALLOCATE FROM BOTTOM LD A3,ITCNEP,A7 DYN. CORE SIZE ALLDY0 EQU * ST A2,ITCDCB,A7 SAVE BASE PNTR ST A2,ITCDCC,A7 SAVE CURRENT EXTENT ADR A3,A2 + BASE-PNTR SUKL A3,SPLSIZ - SPL-STACK-SIZE ST A3,ITCDCD,A7 SAVE DDI-POOL-BASE ADK A3,SPLCPB POINT AT SPL-PBS-PNTR ST A3,ITCSPL,A7 SAVE SPL-PBS-PNTR LD A1,DYNTAD,A10 TABLE ADR LD A2,DYNDIS+STKEND GET DYN.CORE TABLE DISPL ADR A1,A2 NEXT TABLE ENTRY TO USE ADK A2,2 COUNT DISPL ST* A2,DYNTAD,A10 COUNT LENGTH WORD IN TABLE ST A2,DYNDIS+STKEND STEP DISPL SUK A3,SPLCPB POINT AT SPL-PBS START STR A3,A1 STORE SPL-PBS ADR IN TABLE RTN A14 ALLDY1 EQU * LDR A2,A9 SAVE START-ADR ADR A9,A3 ADD LENGTH ADKL A9,1 ANKL A9,/FFFE EVEN ADR * CHECK ADDRESS LD A11,LSTADR+STKCOM END OF FREE AREA CALL CMPADR RF(NL) ALLDY2 OK ! LDKL A1,LMP3 MEMORY OVERFLOW CALL ERROR ALLDY2 EQU * ST A9,FSTADR+STKCOM NEW START OF FREE AREA RB ALLDY0 UPDATE ITCT EJECT * M V S T A T * * * * ALLOCATE AND MOVE STATIC- * * CORE * * * * INPUT : A3 ITCT ADDRESS * * EXIT : A6 -1 * * A3 ITCT ADDRESS * * WORK : A1-A2,A7-A8,A10 * ******************************** MVSTAT EQU * CALL PUSH SAVE REGISTERS LDR A7,A3 ITCT ADR ADK A3,ITCTGC POINT AT ICB-PLTGC-MAIN ADDRESS ST A3,SAVE07+STKEND SAVE POINTER ADK A7,ITCTLT TLTAB ADR LDR A12,A7 SAVE TLTAB-BASE LDR* A6,A7 NBR OF ENTRIES IN TLTAB MVSTA1 EQU * SUK A6,1 COUNT RF(NN) MVSTA2 STATIC-ZERO AREAS LEFT CALL POB RELOAD REGISTERS LD A3,SAVE07+STKEND LOAD ICB-PLTGC-MAIN ADR POINTER SUK A3,ITCTGC MAKE IT ITCT POINTER LDKL A6,-1 GIVE A6 ITS OUTPUT VALUE RTN A14 MVSTA2 EQU * ADK A7,2 POINT AT STATIC-ZERO ADR LDR* A8,A7 STATIC-ZERO ADR RB(Z) MVSTA1 EMPTY ENTRY LD* A3,SAVE07+STKEND LOAD ICB-PLTGC-MAIN ADDRESS SUR A10,A10 LEVEL LDK A1,0 RESET INDICATOR LD A2,FREQUE GET MONITOR BLOCK ADR =2 CALL FNDTGC FIND STATIC-ZERO ADR+LENGTH CALL CALLMO ALLOCATE AND MOVE STATIC-ZERO STR A2,A7 UPDATE TLTAB ENTRY RB MVSTA1 EJECT * F N D T G C * * * * FIND STATIC-ZERO ADR+LENGTH * * FOR ONE PROGRAM * * * * INPUT : A3 ICB-PLTGC ADR * * A8 STATIC-ZERO ADR * * WANTED * * A10 0 (ZERO) * * A12 TLTAB BASE * * A2 MONITOR BLOCK ADR * =2 * EXIT : A1 STATIC-ZERO ADR * * A2 MONITOR BLOCK ADR * =2 * A3 STATIC-ZERO LENGTH * * WORK : A2,A4,A5,A9,A11 * * WORKAREA: USES MONITOR BLOCKS * =2 * AS STACK AREA * =2 ********************************** FNDTGC EQU * LDR* A1,A3 =2 SRL A1,8 =2 SUK A1,/60 COBOL PROGRAM? =2 RF(Z) FNDT00 YES! =2 LDK A1,0 INDICATE NOT FOUND =2 RF FNDTG0 RETURN =2 FNDT00 EQU * =2 LD A1,TGCSZD,A3 GET DISPL IN TLTAB ADR A1,A12 POINT AT TLTAB-ENTRY ADK A1,2 ADJUST FOR TLTAB LENGTH-WORD LDR* A1,A1 STATIC-ZERO-ADR CWR A1,A8 WANTED ? RF(NE) FNDTG1 NO ADK A3,TGCSZL YES,POINT AT LENGTH WORD LDR* A3,A3 STATIC-ZERO-LENGTH FNDTG0 EQU * RTN A14 FNDTG1 EQU * LDK A1,0 INDICATE NOT FOUND LD A5,8,A3 NBR OF ENTRIES IN PLTGC CALL TAB SLL A5,1 *2 = TABLE LENGTH ADR A5,A3 BASE ADK A5,10 DISPL TO TABLE START LDR A4,A3 ICB-PLTGC ADR ADK A4,TGCCAL+TGCCTE ADR TO FIRST ENTRY IN CALL TAB FNDTG2 EQU * LDR A9,A4 TABLE START ADR LDR A11,A5 TABLE END ADR CALL CMPADR END OF CALL-TABLE? =2 RB(NG) FNDTG0 YES! =2 FNDTG3 EQU * ST A4,2,A2 SAVE ON STACK =2 ST A5,4,A2 SAVE ON STACK =2 LDR* A2,A2 ADJUST STACK POINTER =2 RF(NZ) FNDTG4 MORE BLOCKS AVILABLE =2 LDKL A1,NOBLK NO BLOCKS AVILABLE =2 CALL ERROR =2 FNDTG4 EQU * =2 LDR* A3,A4 NEXT LINK ADKL A10,1 ADJUST LEVEL CALL FNDTGC NEXT LEVEL SUK A2,6 ADJUST STACK POINTER =2 LDR A1,A1 STATIC-ZERO FOUND RB(NZ) FNDTG0 YES SUKL A10,1 ADJUST LEVEL LD A4,2,A2 TABLE POINTER FROM STACK =2 LD A5,4,A2 TABLE END POINTER FROM STACK =2 ADK A4,TGCCTE POINT TO NEXT TABLE-ENTRY RB FNDTG2 EJECT * M V P G T L * * * * ALLOCATE AND MOVE PGTL-DATA * * * * INPUT : A2 ITCT ADR * * EXIT : A1 OLD PGTL-DATA ADR * * A2 NEW PGTL-DATA ADR * * A3 ITCT ADR * *********************************** MVPGTL EQU * LD A1,ITCGLA,A2 PGTL-DATA ADR LD A3,ITCGLL,A2 PGTL-DATA LENGTH CALL CALLMO ALLOCATE AND MOVE PGTL-DATA LD A3,SAVITC+STKEND ITCT ADR ST A2,ITCGLA,A3 NEW PGTL-DATA ADR RTN A14 EJECT ************************************************ * * * C A L L M O * * * * * * INPUT: A3=LENGTH TO MOVE * * PDDIV=FLAG THAT INDICATES IF DDIV IS * * GOING TO BEE BUILT IN PROT.DDIV * * PDDIVL=LENGTH LEFT IN PROT.DDIV * * SCTEFA=END OF FREE AREA * * * * OUTPUT: A3=-1 * * PDDIV=1 IF DDIV IS BUILT IN PROT. * * DDIV ELSE PDDIV=0 * * PDDIVL=NEW PDDIVL * * LSTADR=NEW LAST FREE ADDR. * * * * WORK REG:A2 * * * ************************************************ CALLMO EQU * LD A2,PDDIV+STKEND BUILD DDIV IN PROT.DDIV? RF(Z) CAL200 NO! LD A2,PDDIVL,A10 GET LENGTH LEFT IN PROT.DDIV SUR A2,A3 ENOUGH SPACE LEFT IN PROT.DDIV RF(NN) CAL100 YES! * * RESET FLAG AND CHANGE LSTADR TO POINT AT * END OF FREE AREA * CM PDDIV+STKEND RESET FLAG LD A2,SCTEFA+2 GET END OF FREE AREA ST A2,LSTADR+STKCOM STORE NEW LSTADR CAL100 EQU * ST A2,PDDIVL,A10 LENGTH LEFT IN PROT.DDIV CAL200 EQU * CALL MOVING RTN A14 EJECT START3 EQU * REALTA EQU * LD* A8,SHADOW,A10 SHTAB LENGTH LD A5,SHADOW,A10 SHTAB1 ADR ST A10,SAVE01+STKEND SAVE APPL.SAVE AREA POINTER ADR A8,A5 SHTAB2 ADR ST A8,SAVE03+STKEND SAVE SHTAB2 ADR AD* A8,SCTSFA SHTAB3 ADR ST A8,SAVE02+STKEND SHTAB3 ADR SYA300 EQU * LD A8,SAVE03+STKEND SHTAB2 POINTER ADKL A8,2 NEXT CW A8,SAVE02+STKEND ALL TCL'S DONE ? RF(E) SYA310 YES ST A8,SAVE03+STKEND SAVE SHTAB2 POINTER ADK A5,2 SHTAB1 POINTER LDR* A10,A5 NBR OF COPIES RB(Z) SYA300 NONE CALL GETTAB FIND TTAB ADR ST A10,SAVITC+STKEND SAVE ITCT ADR CALL QUEJOB QUEUE TASK LDR A6,A10 ITCT ADR ADK A6,22 MAKE IT INT-USABLE ST A6,TTB:SA+26,A2 SAVE ITCT ADR IN TTAB(SAVE-A13) IFT DSKPAG=1 ADKL A6,ITCCSB-ITCDCD POINT AT CSB IN ITCT ST A6,TTB:CB,A2 SAVE IN TTAB XIF IFT MMUPAG=0 LDR* A6,A5 NBR OF COPIES SYA305 EQU * LD A10,SAVE01+STKEND GET APPL.SAVE AREA POINTER SUK A6,1 COUNT NBR OF COPIES RB(NP) SYA300 NEXT TCL CALL GENCOP GENERATE ONE COPY RB SYA305 NEXT EJECT * ADJUST START OF FREE AREA SYA310 EQU * LD A1,PDDIV+STKEND UPDATE SCTEFA? RF(NZ) SYA312 NO! LD A1,LSTADR+STKCOM GET END OF FREE AREA ST A1,SCTEFA+2 SYA312 EQU * LD A1,FSTADR+STKCOM START OF FREE AREA RF(Z) SYA315 ST A1,SCTSFA STORE START OF FREE AREA SYA315 EQU * LDKL A1,NXTAPP AD A1,M:REL+STKCOM ABR A1 CHECK IF MORE APPLICATIONS * * MOVE DYNTAB:S AND SAVE IN ONE WORD * NUMBER OF DYNTAB:S * SYA320 EQU * LDKL A10,STKEND START OF 1:ST APPL.SAVE AREA LD A1,APPLNO+STKCOM GET NUMBER OF DYNTAB:S LD A4,SHADOW,A10 GET START OF AREA WHERE TO PUT DYNTAB:S AND NUMBER OF DYNTAB:S ST A4,DYNSTA+STKCOM SAVE START OF DYNTAB:S STR A1,A4 SAVE NUMBER OF DYNTAB:S ADK A4,2 INCREMENT TO-ADDR SYA330 EQU * LD A2,DYNTAD,A10 GET DYNTAB FROM ADDR LDR* A3,A2 GET LENGTH OF DYNTAB SYA340 EQU * LDR* A5,A2 GET DYNTAB WORD STR A5,A4 STORE ADK A4,2 INCREMENT TO-ADDR ADK A2,2 INCREMENT FROM-ADDR SUK A3,2 ALL WORDS MOVED ? RB(NZ) SYA340 NO! ADKL A10,TABLEN NEXT APPL.SAVE AREA SUK A1,1 ALL DYNTAB:S MOVED? RB(NZ) SYA330 NO! XIF LCOEND EQU * SYSLCO END END
0x00000…00036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT SYSLCO REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…0006a Head {h00=0x0028, h01=0x0050, text=» =3,CHANGE OF CONDITIONAL ASSEMBLY«, t00=0x0000, t01=0x0042}
0x0006a…0008a Head {h00=0x001c, h01=0x0050, text=» PRR 11.0 80-12-23 «, t00=0x0000, t01=0x006e}
0x0008a…000ba Head {h00=0x002c, h01=0x0050, text=» =2,A CALLED COBOL PROGRAM CAN CALL AN«, t00=0x0000, t01=0x008e}
0x000ba…000ea Head {h00=0x002c, h01=0x0050, text=» ASSEMBLER PROGRAM,AND FNDTGC USES «, t00=0x0000, t01=0x00be}
0x000ea…00110 Head {h00=0x0022, h01=0x0050, text=» MONITOR BLOCKS AS STACK «, t00=0x0000, t01=0x00ee}
0x00110…00130 Head {h00=0x001c, h01=0x0050, text=» PRR 11.0 80-12-03 «, t00=0x0000, t01=0x0114}
0x00130…00164 Head {h00=0x0030, h01=0x0050, text=» =1,APPLICATION CONTROL BLOCK IS EXTENDED «, t00=0x0000, t01=0x0134}
0x00164…0017e Head {h00=0x0016, h01=0x0050, text=» WITH 1 WORD «, t00=0x0000, t01=0x0168}
0x0017e…0019e Head {h00=0x001c, h01=0x0050, text=» PRR 11.0 80-11-19 «, t00=0x0000, t01=0x0182}
0x0019e…001aa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0001, t01=0x0012}
0x001aa…001ec Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0001, t01=0x001e}
0x001ec…001f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0060}
0x001f6…0021e Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0001, t01=0x006a}
0x0021e…00228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0092}
0x00228…00270 Head {h00=0x0044, h01=0x0050, text=»* SYSLCO = SYSTEM LOAD - COBOL APPLICATION CONFIGURATION PART «, t00=0x0001, t01=0x009c}
0x00270…0027a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e4}
0x0027a…002a6 Head {h00=0x0028, h01=0x0050, text=»* COBOL APPLICATION CONFIGURATION «, t00=0x0001, t01=0x00ee}
0x002a6…002b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011a}
0x002b0…002f2 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0001, t01=0x0124}
0x002f2…002fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0166}
0x002fc…0031a Head {h00=0x001a, h01=0x0050, text=»* COBOL APPLICATION:«, t00=0x0001, t01=0x0170}
0x0031a…00364 Head {h00=0x0046, h01=0x0050, text=»* SYSLCO READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD«, t00=0x0001, t01=0x018e}
0x00364…003a8 Head {h00=0x0040, h01=0x0050, text=»* WORK-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS &«, t00=0x0002, t01=0x0048}
0x003a8…003f6 Head {h00=0x004a, h01=0x0050, text=»* ITCT ADDRESS & MM-TAB ADDRESS & TID & DYNAMIC-CORE ADDRESSES). «, t00=0x0002, t01=0x008c}
0x003f6…00440 Head {h00=0x0046, h01=0x0050, text=»* SYSLCO THEN MOVES ITSELF TO 'TOP' (LOVEST FREE ADDRESS) AND«, t00=0x0002, t01=0x00da}
0x00440…0046e Head {h00=0x002a, h01=0x0050, text=»* WILL ALSO MOVE DDIV-PROTOTYPE. «, t00=0x0002, t01=0x0124}
0x0046e…00478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0152}
0x00478…004a2 Head {h00=0x0026, h01=0x0050, text=»* APPLICATION TABLES ARE NOW «, t00=0x0002, t01=0x015c}
0x004a2…004e6 Head {h00=0x0040, h01=0x0050, text=»* BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY.«, t00=0x0002, t01=0x0186}
0x004e6…00502 Head {h00=0x0018, h01=0x0050, text=»* DYNAMIC-CORE «, t00=0x0003, t01=0x003a}
0x00502…0054e Head {h00=0x0048, h01=0x0050, text=»* IS, IN CASE OF MMU AND/OR PAGING IN SYSTEM, ALSO ALLOCATED AT«, t00=0x0003, t01=0x0056}
0x0054e…00598 Head {h00=0x0046, h01=0x0050, text=»* 'BOTTOM' OF MEMORY; ELSE, DYNAMIC-CORE AREAS ARE ALLOCATED «, t00=0x0003, t01=0x00a2}
0x00598…005c4 Head {h00=0x0028, h01=0x0050, text=»* AFTER MONITOR 'OVER' SYSLCO. «, t00=0x0003, t01=0x00ec}
0x005c4…005ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0118}
0x005ce…00606 Head {h00=0x0034, h01=0x0050, text=»* ALL USER TASKS ARE QUEUED VIA A C T O T «, t00=0x0003, t01=0x0122}
0x00606…00614 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x015a}
0x00614…00620 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0003, t01=0x0168}
0x00620…00644 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0003, t01=0x0174}
0x00644…00668 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0004, t01=0x0008}
0x00668…0068c Head {h00=0x0020, h01=0x0050, text=»* ENTRIES AND EXTERNALS * «, t00=0x0004, t01=0x002c}
0x0068c…006b0 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0004, t01=0x0050}
0x006b0…006d4 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0004, t01=0x0074}
0x006d4…006e0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0004, t01=0x0098}
0x006e0…006f8 Head {h00=0x0014, h01=0x0050, text=»* LABEL ENTRIES «, t00=0x0004, t01=0x00a4}
0x006f8…0070e Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLCO «, t00=0x0004, t01=0x00bc}
0x0070e…00716 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00d2}
0x00716…00734 Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL SUBROUTINES«, t00=0x0004, t01=0x00da}
0x00734…00748 Head {h00=0x0010, h01=0x0050, text=» EXTRN MOVE «, t00=0x0004, t01=0x00f8}
0x00748…0075e Head {h00=0x0012, h01=0x0050, text=» EXTRN MOVING «, t00=0x0004, t01=0x010c}
0x0075e…00794 Head {h00=0x0032, h01=0x0050, text=» EXTRN XMOVE MOVE BLOCKS INSIDE MEMORY VIA MMU«, t00=0x0004, t01=0x0122}
0x00794…007c8 Head {h00=0x0030, h01=0x0050, text=» EXTRN MMENT FIND LAST USED ENTRY IN MM-TAB «, t00=0x0004, t01=0x0158}
0x007c8…007ec Head {h00=0x0020, h01=0x0050, text=» EXTRN MOVMMT MOVE MM-TABLE «, t00=0x0004, t01=0x018c}
0x007ec…00816 Head {h00=0x0026, h01=0x0050, text=» EXTRN MMRST RESET MM-TAB ENTRIES «, t00=0x0005, t01=0x0020}
0x00816…0082a Head {h00=0x0010, h01=0x0050, text=» EXTRN MULT «, t00=0x0005, t01=0x004a}
0x0082a…0083e Head {h00=0x0010, h01=0x0050, text=» EXTRN ERROR«, t00=0x0005, t01=0x005e}
0x0083e…00866 Head {h00=0x0024, h01=0x0050, text=» EXTRN CMPADR COMPARE ADDRESSES «, t00=0x0005, t01=0x0072}
0x00866…0089c Head {h00=0x0032, h01=0x0050, text=» EXTRN NXTBLK SKIP TO NEXT CONFIGURATION BLOCK«, t00=0x0005, t01=0x009a}
0x0089c…008d4 Head {h00=0x0034, h01=0x0050, text=» EXTRN NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK«, t00=0x0005, t01=0x00d0}
0x008d4…00902 Head {h00=0x002a, h01=0x0050, text=» EXTRN CONVRT CONVERSION ASCII-BINARY «, t00=0x0005, t01=0x0108}
0x00902…00938 Head {h00=0x0032, h01=0x0050, text=» EXTRN GETNUM CONVERT 3 ASCII-DIGITS TO BINARY«, t00=0x0005, t01=0x0136}
0x00938…00970 Head {h00=0x0034, h01=0x0050, text=» EXTRN GETAPP FIND APPLICATION AND ITS CONF.DATA«, t00=0x0005, t01=0x016c}
0x00970…009a0 Head {h00=0x002c, h01=0x0050, text=» EXTRN PUSH STORE REGISTER ON A15-STACK «, t00=0x0006, t01=0x0014}
0x009a0…009d0 Head {h00=0x002c, h01=0x0050, text=» EXTRN POB LOAD REGISTER FROM A15-STACK «, t00=0x0006, t01=0x0044}
0x009d0…009d8 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0074}
0x009d8…009fe Head {h00=0x0022, h01=0x0050, text=»* SAVE AND WORK AREA EXTERNALS«, t00=0x0006, t01=0x007c}
0x009fe…00a24 Head {h00=0x0022, h01=0x0050, text=» EXTRN MMTAB WORK-TABLE 1 (MMU«, t00=0x0006, t01=0x00a2}
0x00a24…00a5e Head {h00=0x0036, h01=0x0050, text=» EXTRN TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 «, t00=0x0006, t01=0x00c8}
0x00a5e…00a96 Head {h00=0x0034, h01=0x0050, text=» EXTRN MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 «, t00=0x0006, t01=0x0102}
0x00a96…00acc Head {h00=0x0032, h01=0x0050, text=» EXTRN MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL'«, t00=0x0006, t01=0x013a}
0x00acc…00afa Head {h00=0x002a, h01=0x0050, text=» EXTRN LDALEN LENGTH OF SYSLCO MODULE «, t00=0x0006, t01=0x0170}
0x00afa…00b20 Head {h00=0x0022, h01=0x0050, text=» EXTRN APPTYP APPLICATION TYPE«, t00=0x0007, t01=0x000e}
0x00b20…00b32 Head {h00=0x000e, h01=0x0050, text=» EXTRN PSW«, t00=0x0007, t01=0x0034}
0x00b32…00b58 Head {h00=0x0022, h01=0x0050, text=» EXTRN INILEN LENGTH OF SYSINI«, t00=0x0007, t01=0x0046}
0x00b58…00b88 Head {h00=0x002c, h01=0x0050, text=» EXTRN LSTPAG DISPL. TO 'ENTRY-POINTER' «, t00=0x0007, t01=0x006c}
0x00b88…00b9c Head {h00=0x0010, h01=0x0050, text=» EXTRN MMBEG«, t00=0x0007, t01=0x009c}
0x00b9c…00baa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00b0}
0x00baa…00bb2 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00be}
0x00bb2…00bda Head {h00=0x0024, h01=0x0050, text=»* SYSTEM CONTROL TABLE EXTERNALS«, t00=0x0007, t01=0x00c6}
0x00bda…00c02 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTSFA START OF FREE AREA«, t00=0x0007, t01=0x00ee}
0x00c02…00c26 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTTCT TC:TAB ADDRESS«, t00=0x0007, t01=0x0116}
0x00c26…00c4a Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTSTB A15 STACK-BASE«, t00=0x0007, t01=0x013a}
0x00c4a…00c70 Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTEFA END OF FREE AREA«, t00=0x0007, t01=0x015e}
0x00c70…00c96 Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTNOP NUMBER OF PAGES «, t00=0x0007, t01=0x0184}
0x00c96…00cb6 Head {h00=0x001c, h01=0x0050, text=» EXTRN SCTPSZ PAGE SIZE «, t00=0x0008, t01=0x001a}
0x00cb6…00cd4 Head {h00=0x001a, h01=0x0050, text=» EXTRN SCTMMC =00002 «, t00=0x0008, t01=0x003a}
0x00cd4…00cf8 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTOPT SYSTEM OPTION «, t00=0x0008, t01=0x0058}
0x00cf8…00d20 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTPAG PAGE TABLE ADDRESS«, t00=0x0008, t01=0x007c}
0x00d20…00d58 Head {h00=0x0034, h01=0x0050, text=» EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE«, t00=0x0008, t01=0x00a4}
0x00d58…00d7c Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTBUG BUGGER ADDRESS«, t00=0x0008, t01=0x00dc}
0x00d7c…00dac Head {h00=0x002c, h01=0x0050, text=» EXTRN STKEND START OF SCRATCH-PAD AREA «, t00=0x0008, t01=0x0100}
0x00dac…00de0 Head {h00=0x0030, h01=0x0050, text=» EXTRN STKMOV START OF MOVE-ROUTINE IN STACK«, t00=0x0008, t01=0x0130}
0x00de0…00e0e Head {h00=0x002a, h01=0x0050, text=» EXTRN STKCOM START OF COMMON-PAD AREA«, t00=0x0008, t01=0x0164}
0x00e0e…00e16 (9, 0, 398) Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0004}
0x00e16…00e30 Head {h00=0x0016, h01=0x0050, text=»* EXTERNAL LABELS «, t00=0x0009, t01=0x000c}
0x00e30…00e6a Head {h00=0x0036, h01=0x0050, text=» EXTRN SYSLDM START OF MONITOR CONFIGURATION PART «, t00=0x0009, t01=0x0026}
0x00e6a…00e92 Head {h00=0x0024, h01=0x0050, text=» EXTRN PAGQUE PAGE QUEUE POINTER«, t00=0x0009, t01=0x0060}
0x00e92…00ec0 Head {h00=0x002a, h01=0x0050, text=» EXTRN FREQUE START OF MONITOR BLOCKS «, t00=0x0009, t01=0x0088}
0x00ec0…00ed2 Head {h00=0x000e, h01=0x0050, text=» EXTRN REL«, t00=0x0009, t01=0x00b6}
0x00ed2…00eda Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00c8}
0x00eda…00ef8 Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL SUBROUTINES«, t00=0x0009, t01=0x00d0}
0x00ef8…00f18 Head {h00=0x001c, h01=0x0050, text=» EXTRN ACTOT QUEUE TASK «, t00=0x0009, t01=0x00ee}
0x00f18…00f2e Head {h00=0x0012, h01=0x0050, text=» EXTRN PFINIT «, t00=0x0009, t01=0x010e}
0x00f2e…00f4e Head {h00=0x001c, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGS«, t00=0x0009, t01=0x0124}
0x00f4e…00f72 Head {h00=0x0020, h01=0x0050, text=» EXTRN RETUR8 RELOAD 8 REGS «, t00=0x0009, t01=0x0144}
0x00f72…00f98 Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x0009, t01=0x0168}
0x00f98…00fa0 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x018e}
0x00fa0…00faa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0008}
0x00faa…00fda Head {h00=0x002c, h01=0x0050, text=» EXTRN TTB:SA START OF SAVE AREA IN TTAB«, t00=0x000a, t01=0x0012}
0x00fda…0100c Head {h00=0x002e, h01=0x0050, text=» EXTRN TTB:CB POINTER TO CSEG BASE ADDRESS«, t00=0x000a, t01=0x0042}
0x0100c…0103c Head {h00=0x002c, h01=0x0050, text=» EXTRN TTB:MT START OF MMU-TABLE IN TTAB«, t00=0x000a, t01=0x0074}
0x0103c…0104a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00a4}
0x0104a…01052 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00b2}
0x01052…0105a Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00ba}
0x0105a…0108a Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000a, t01=0x00c2}
0x0108a…010ba Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000a, t01=0x00f2}
0x010ba…010ea Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000a, t01=0x0122}
0x010ea…010f2 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0152}
0x010f2…01112 Head {h00=0x001c, h01=0x0050, text=»MMUPAG EQU 0 0 = NO MMU «, t00=0x000a, t01=0x015a}
0x01112…01138 Head {h00=0x0022, h01=0x0050, text=»DSKPAG EQU 0 0=NO DISC PAGING «, t00=0x000a, t01=0x017a}
0x01138…01170 Head {h00=0x0034, h01=0x0050, text=»TEST EQU 0 1=TEST (DEBUG STARTS AT SYSLDX ENTRY)«, t00=0x000b, t01=0x0010}
0x01170…0118e Head {h00=0x001a, h01=0x0050, text=»TESTMM EQU MMUPAG+TEST«, t00=0x000b, t01=0x0048}
0x0118e…01196 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0066}
0x01196…011cc Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000b, t01=0x006e}
0x011cc…01202 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x000b, t01=0x00a4}
0x01202…01238 Head {h00=0x0032, h01=0x0050, text=»* APCTAB DISPLACEMENTS * «, t00=0x000b, t01=0x00da}
0x01238…0126e Head {h00=0x0032, h01=0x0050, text=»* ==================== * «, t00=0x000b, t01=0x0110}
0x0126e…012a4 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x000b, t01=0x0146}
0x012a4…012da Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000b, t01=0x017c}
0x012da…012e2 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0022}
0x012e2…012ea Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x002a}
0x012ea…0131a Head {h00=0x002c, h01=0x0050, text=»APLADA EQU 22 APPL.REL.BASE (2 WORDS) =1«, t00=0x000c, t01=0x0032}
0x0131a…0134c Head {h00=0x002e, h01=0x0050, text=»APLREL EQU 18 NUMBER OF RESIDENT SEGMENTS «, t00=0x000c, t01=0x0062}
0x0134c…0137c Head {h00=0x002c, h01=0x0050, text=»APLIOE EQU 0 APPLICATION RESTART ADDRESS«, t00=0x000c, t01=0x0094}
0x0137c…013b8 Head {h00=0x0038, h01=0x0050, text=»APLDAD EQU 0 APPLICATION FILE DISC ADDR. (BIT 0-15) «, t00=0x000c, t01=0x00c4}
0x013b8…013f4 Head {h00=0x0038, h01=0x0050, text=»APLLAC EQU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.)«, t00=0x000c, t01=0x0100}
0x013f4…0141e Head {h00=0x0026, h01=0x0050, text=»APLLAP EQU 12 LOGICAL PAGE ADDRESS«, t00=0x000c, t01=0x013c}
0x0141e…0145a Head {h00=0x0038, h01=0x0050, text=»APLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.)«, t00=0x000c, t01=0x0166}
0x0145a…0148c Head {h00=0x002e, h01=0x0050, text=»APLMMC EQU 10 APPLICATION MMU START ENTRY «, t00=0x000d, t01=0x0012}
0x0148c…014b8 Head {h00=0x0028, h01=0x0050, text=»APLMMP EQU 8 SEGMENT START MMU ENTRY«, t00=0x000d, t01=0x0044}
0x014b8…014ea Head {h00=0x002e, h01=0x0050, text=»APLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT«, t00=0x000d, t01=0x0070}
0x014ea…0151c Head {h00=0x002e, h01=0x0050, text=»APLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU«, t00=0x000d, t01=0x00a2}
0x0151c…01540 Head {h00=0x0020, h01=0x0050, text=»APLSWB EQU 2 APPLICATION SWB«, t00=0x000d, t01=0x00d4}
0x01540…0156e Head {h00=0x002a, h01=0x0050, text=»APLSTA EQU 16 APPL. PGM START ADDRESS «, t00=0x000d, t01=0x00f8}
0x0156e…01594 Head {h00=0x0022, h01=0x0050, text=»APLTYP EQU 8 APPLICATION TYPE «, t00=0x000d, t01=0x0126}
0x01594…015c6 Head {h00=0x002e, h01=0x0050, text=»APLPSZ EQU 20 APPLICATION SEGMENT SIZE =1 «, t00=0x000d, t01=0x014c}
0x015c6…015d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x017e}
0x015d4…015f2 Head {h00=0x001a, h01=0x0050, text=» PROGRAM STRUCTURE: «, t00=0x000d, t01=0x018c}
0x015f2…0163c Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x000e, t01=0x001a}
0x0163c…0168e Head {h00=0x004e, h01=0x0050, text=»* ! SUBROUTINES ! PART 1 «, t00=0x000e, t01=0x0064}
0x0168e…016d8 Head {h00=0x0046, h01=0x0050, text=»* ENTRY ->! * SYSLCO ENTRY * !«, t00=0x000e, t01=0x00b6}
0x016d8…01722 Head {h00=0x0046, h01=0x0050, text=»* ! READ CONFIGURATION DATA AND GENERATE: !«, t00=0x000e, t01=0x0100}
0x01722…0176c Head {h00=0x0046, h01=0x0050, text=»* ! SHTAB1, SHTAB2, SHTAB3, TIDTAB AND DYNTAB !«, t00=0x000e, t01=0x014a}
0x0176c…017b6 (15, 0, 400) Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x000f, t01=0x0004}
0x017b6…01800 Head {h00=0x0046, h01=0x0050, text=»* ! SHTAB1: !«, t00=0x000f, t01=0x004e}
0x01800…0184a Head {h00=0x0046, h01=0x0050, text=»* ! -A TABLE OF "NUMBER OF COPIES OF THIS TCL" !«, t00=0x000f, t01=0x0098}
0x0184a…01894 Head {h00=0x0046, h01=0x0050, text=»* ! IS BUILT AT THE END OF MONITOR !«, t00=0x000f, t01=0x00e2}
0x01894…018de Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x000f, t01=0x012c}
0x018de…01928 Head {h00=0x0046, h01=0x0050, text=»* ! SHTAB2: !«, t00=0x000f, t01=0x0176}
0x01928…01972 Head {h00=0x0046, h01=0x0050, text=»* ! -A TABLE OF "ITCT PROTOTYPE ADDRESSES" !«, t00=0x0010, t01=0x0030}
0x01972…019bc Head {h00=0x0046, h01=0x0050, text=»* ! IS BUILT AT THE END OF SHTAB1 !«, t00=0x0010, t01=0x007a}
0x019bc…01a06 Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0010, t01=0x00c4}
0x01a06…01a50 Head {h00=0x0046, h01=0x0050, text=»* ! SHTAB3: !«, t00=0x0010, t01=0x010e}
0x01a50…01a9a Head {h00=0x0046, h01=0x0050, text=»* ! -A TABLE OF "MM-TABLE ADDRESSES" !«, t00=0x0010, t01=0x0158}
0x01a9a…01ae4 Head {h00=0x0046, h01=0x0050, text=»* ! IS BUILT AT THE END OF SHTAB2 !«, t00=0x0011, t01=0x0012}
0x01ae4…01b2e Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0011, t01=0x005c}
0x01b2e…01b78 Head {h00=0x0046, h01=0x0050, text=»* ! TIDTAB: !«, t00=0x0011, t01=0x00a6}
0x01b78…01bc2 Head {h00=0x0046, h01=0x0050, text=»* ! -A TABLE OF "TASK-ID'S IN RUNTIME SYSTEM" !«, t00=0x0011, t01=0x00f0}
0x01bc2…01c0c Head {h00=0x0046, h01=0x0050, text=»* ! IS BUILT AT THE END OF SHTAB3 !«, t00=0x0011, t01=0x013a}
0x01c0c…01c56 Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0011, t01=0x0184}
0x01c56…01ca0 Head {h00=0x0046, h01=0x0050, text=»* ! DYNTAB: !«, t00=0x0012, t01=0x003e}
0x01ca0…01cea Head {h00=0x0046, h01=0x0050, text=»* ! -A TABLE OF "DYNAMIC-CORE ADDRESSES" !«, t00=0x0012, t01=0x0088}
0x01cea…01d34 Head {h00=0x0046, h01=0x0050, text=»* ! IS BUILT AT THE END OF TIDTAB !«, t00=0x0012, t01=0x00d2}
0x01d34…01d7e Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0012, t01=0x011c}
0x01d7e…01dc8 Head {h00=0x0046, h01=0x0050, text=»* ! -RELOCATE ITCT ADDRESSES !«, t00=0x0012, t01=0x0166}
0x01dc8…01e12 Head {h00=0x0046, h01=0x0050, text=»* ! -RELOCATE TCLBLK ADDRESSES !«, t00=0x0013, t01=0x0020}
0x01e12…01e5c Head {h00=0x0046, h01=0x0050, text=»* ! -RELOCATE TCLTAB ADDRESS !«, t00=0x0013, t01=0x006a}
0x01e5c…01ea6 Head {h00=0x0046, h01=0x0050, text=»* ! -RELOCATE APPTAB ADDRESS !«, t00=0x0013, t01=0x00b4}
0x01ea6…01ef0 Head {h00=0x0046, h01=0x0050, text=»* ! -RELOCATE SHTAB2 ADDRESSES !«, t00=0x0013, t01=0x00fe}
0x01ef0…01f3a Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE SYSLCO (NOT PART 1) AND SYSINI !«, t00=0x0013, t01=0x0148}
0x01f3a…01f84 (20, 0, 400) Head {h00=0x0046, h01=0x0050, text=»* ! TO FOLLOW DYNTAB !«, t00=0x0014, t01=0x0004}
0x01f84…01fce Head {h00=0x0046, h01=0x0050, text=»* ! -CONTINUE IN PART 2 !«, t00=0x0014, t01=0x004e}
0x01fce…02018 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x0014, t01=0x0098}
0x02018…0206a Head {h00=0x004e, h01=0x0050, text=»* ! SUBROUTINES ! PART 2 «, t00=0x0014, t01=0x00e2}
0x0206a…020b4 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE DDIV PROTOTYPE TO FOLLOW SYSLCO !«, t00=0x0014, t01=0x0134}
0x020b4…020fe Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0014, t01=0x017e}
0x020fe…02148 Head {h00=0x0046, h01=0x0050, text=»* ! BUILD COMMON DATA AREA !«, t00=0x0015, t01=0x0038}
0x02148…02192 Head {h00=0x0046, h01=0x0050, text=»* ! -PGTG-DATA !«, t00=0x0015, t01=0x0082}
0x02192…021dc Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0015, t01=0x00cc}
0x021dc…02226 Head {h00=0x0046, h01=0x0050, text=»* ! BUILD CLASS DATA AREAS !«, t00=0x0015, t01=0x0116}
0x02226…02270 Head {h00=0x0046, h01=0x0050, text=»* ! -ICB-PLTGC'S !«, t00=0x0015, t01=0x0160}
0x02270…022ba Head {h00=0x0046, h01=0x0050, text=»* ! !«, t00=0x0016, t01=0x001a}
0x022ba…02304 Head {h00=0x0046, h01=0x0050, text=»* ! BUILD TASK LOCAL DATA AREAS, ONE PER TCL !«, t00=0x0016, t01=0x0064}
0x02304…0234e Head {h00=0x0046, h01=0x0050, text=»* ! -UPDATE ITCT !«, t00=0x0016, t01=0x00ae}
0x0234e…02398 Head {h00=0x0046, h01=0x0050, text=»* ! -STACK-SIZE !«, t00=0x0016, t01=0x00f8}
0x02398…023e2 Head {h00=0x0046, h01=0x0050, text=»* ! -PGTL-DATA-LENGTH-USED !«, t00=0x0016, t01=0x0142}
0x023e2…0242c Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE ITCT !«, t00=0x0016, t01=0x018c}
0x0242c…02476 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE PGTL-DATA AREA !«, t00=0x0017, t01=0x0046}
0x02476…024c0 Head {h00=0x0046, h01=0x0050, text=»* ! -MOVE STATIC-ZERO AREA !«, t00=0x0017, t01=0x0090}
0x024c0…0250a Head {h00=0x0046, h01=0x0050, text=»* ! -ALLOCATE DYNAMIC-CORE (INITIATE IF MMU-CASE) !«, t00=0x0017, t01=0x00da}
0x0250a…02554 Head {h00=0x0046, h01=0x0050, text=»* ! -INCLUDE DDIV PROTOTYPE IN FREE AREA ! «, t00=0x0017, t01=0x0124}
0x02554…0259e Head {h00=0x0046, h01=0x0050, text=»* ! -CONTINUE IN PART 3 !«, t00=0x0017, t01=0x016e}
0x0259e…025e8 Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x0018, t01=0x0028}
0x025e8…0263a Head {h00=0x004e, h01=0x0050, text=»* ! SUBROUTINES ! PART 3 «, t00=0x0018, t01=0x0072}
0x0263a…02684 Head {h00=0x0046, h01=0x0050, text=»* ! R E A L T A !«, t00=0x0018, t01=0x00c4}
0x02684…026ce Head {h00=0x0046, h01=0x0050, text=»* ! BUILD REAL TASK-LOCAL DATA AREAS !«, t00=0x0018, t01=0x010e}
0x026ce…02718 Head {h00=0x0046, h01=0x0050, text=»* ! -FILL MM-TABLE IN TTAB !«, t00=0x0018, t01=0x0158}
0x02718…02762 Head {h00=0x0046, h01=0x0050, text=»* ! -COPY ITCT'S ACCORDING TO SHADOW-TABLE !«, t00=0x0019, t01=0x0012}
0x02762…027ac Head {h00=0x0046, h01=0x0050, text=»* ! -UPDATE TID IN ITCT !«, t00=0x0019, t01=0x005c}
0x027ac…027f6 Head {h00=0x0046, h01=0x0050, text=»* ! -COPY PGTL-DATA !«, t00=0x0019, t01=0x00a6}
0x027f6…02840 Head {h00=0x0046, h01=0x0050, text=»* ! -COPY STATIC-ZERO !«, t00=0x0019, t01=0x00f0}
0x02840…0288a Head {h00=0x0046, h01=0x0050, text=»* ! -ALLOCATE DYNAMIC-CORE (INITIATE IF MMU-CASE) !«, t00=0x0019, t01=0x013a}
0x0288a…028d4 Head {h00=0x0046, h01=0x0050, text=»* ! -CONTINUE IN SYSINI !«, t00=0x0019, t01=0x0184}
0x028d4…0291e Head {h00=0x0046, h01=0x0050, text=»* !-----------------------------------------------------!«, t00=0x001a, t01=0x003e}
0x0291e…0292c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0088}
0x0292c…02950 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x001a, t01=0x0096}
0x02950…02974 Head {h00=0x0020, h01=0x0050, text=»* COMMON DISPLACEMENTS *«, t00=0x001a, t01=0x00ba}
0x02974…02998 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x001a, t01=0x00de}
0x02998…029cc Head {h00=0x0030, h01=0x0050, text=»APLTAB EQU 12 ADDRESS TO APPL.CONTROL TABLE «, t00=0x001a, t01=0x0102}
0x029cc…029f4 Head {h00=0x0024, h01=0x0050, text=»APPLNO EQU 18 APPLICATION NUMBER«, t00=0x001a, t01=0x0136}
0x029f4…02a20 Head {h00=0x0028, h01=0x0050, text=»BUFSIZ EQU 14 TEMPORARY BUFFER SIZE «, t00=0x001a, t01=0x015e}
0x02a20…02a52 Head {h00=0x002e, h01=0x0050, text=»CONLEN EQU 0 LENGTH OF CONFIGURATION DATA «, t00=0x001a, t01=0x018a}
0x02a52…02a82 Head {h00=0x002c, h01=0x0050, text=»CONSTA EQU 2 START OF CONFIGURATION DATA«, t00=0x001b, t01=0x002c}
0x02a82…02aae Head {h00=0x0028, h01=0x0050, text=»DATEND EQU 34 END OF DDIV PROTOTYPE «, t00=0x001b, t01=0x005c}
0x02aae…02ad6 Head {h00=0x0024, h01=0x0050, text=»DYNSTA EQU 52 START OF DYNTAB:S «, t00=0x001b, t01=0x0088}
0x02ad6…02b14 Head {h00=0x003a, h01=0x0050, text=»FSTADR EQU 20 1:ST FREE ADDRESS WHEN ALLOCATING BUFFER«, t00=0x001b, t01=0x00b0}
0x02b14…02b44 Head {h00=0x002c, h01=0x0050, text=»FSTPAG EQU 22 1:ST FREE PAGE (PHYSICAL) «, t00=0x001b, t01=0x00ee}
0x02b44…02b74 Head {h00=0x002c, h01=0x0050, text=»FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER «, t00=0x001b, t01=0x011e}
0x02b74…02bae Head {h00=0x0036, h01=0x0050, text=»LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART«, t00=0x001b, t01=0x014e}
0x02bae…02bda Head {h00=0x0028, h01=0x0050, text=»MAPLEN EQU 30 LENGTH OF AREA TO MAP «, t00=0x001b, t01=0x0188}
0x02bda…02c08 Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU 36 2:ND MMU TABLE WORK AREA«, t00=0x001c, t01=0x0024}
0x02c08…02c34 Head {h00=0x0028, h01=0x0050, text=»MMTO EQU 38 1:ST MMU TABLE WORK AREA«, t00=0x001c, t01=0x0052}
0x02c34…02c5c Head {h00=0x0024, h01=0x0050, text=»M:REL EQU 16 RELOCATIN CONSTANT «, t00=0x001c, t01=0x007e}
0x02c5c…02c8c Head {h00=0x002c, h01=0x0050, text=»SYSBUF EQU 28 START OF TEMPORARY BUFFER «, t00=0x001c, t01=0x00a6}
0x02c8c…02cb8 Head {h00=0x0028, h01=0x0050, text=»SWBFSA EQU 4 SWB-FILE START ADDRESS «, t00=0x001c, t01=0x00d6}
0x02cb8…02ce2 Head {h00=0x0026, h01=0x0050, text=»SWBFSE EQU 8 SWB-FILE END ADDRESS «, t00=0x001c, t01=0x0102}
0x02ce2…02d0e Head {h00=0x0028, h01=0x0050, text=»TTAB EQU 32 WORK AREA FOR MMU-TABLE «, t00=0x001c, t01=0x012c}
0x02d0e…02d36 Head {h00=0x0024, h01=0x0050, text=»TOTSGM EQU 46 NUMBER OF SEGMENTS«, t00=0x001c, t01=0x0158}
0x02d36…02d66 Head {h00=0x002c, h01=0x0050, text=»SWBFLG EQU 48 SWAPPABLE WORK BLOCK FLAG «, t00=0x001c, t01=0x0180}
0x02d66…02d8e Head {h00=0x0024, h01=0x0050, text=»COM01 EQU 40 COMMON WORK AREA 1 «, t00=0x001d, t01=0x0020}
0x02d8e…02db6 Head {h00=0x0024, h01=0x0050, text=»COM02 EQU 42 COMMON WORK AREA 2 «, t00=0x001d, t01=0x0048}
0x02db6…02dde Head {h00=0x0024, h01=0x0050, text=»COM03 EQU 44 COMMON WORK AREA 3 «, t00=0x001d, t01=0x0070}
0x02dde…02e06 Head {h00=0x0024, h01=0x0050, text=»COM04 EQU 50 COMMON WORK AREA 4 «, t00=0x001d, t01=0x0098}
0x02e06…02e14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00c0}
0x02e14…02e36 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x001d, t01=0x00ce}
0x02e36…02e58 Head {h00=0x001e, h01=0x0050, text=»* TABLEN DISPLACEMENTS *«, t00=0x001d, t01=0x00f0}
0x02e58…02e7a Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x001d, t01=0x0112}
0x02e7a…02e9e Head {h00=0x0020, h01=0x0050, text=»SEGTAD EQU 0 SEGTAB ADDRESS «, t00=0x001d, t01=0x0134}
0x02e9e…02ec0 Head {h00=0x001e, h01=0x0050, text=»ITCTAD EQU 2 ITCT ADDRESS «, t00=0x001d, t01=0x0158}
0x02ec0…02ef0 Head {h00=0x002c, h01=0x0050, text=»SHADOW EQU 4 SHADOW TABLE START ADDRESS «, t00=0x001d, t01=0x017a}
0x02ef0…02f1c Head {h00=0x0028, h01=0x0050, text=»DDIVFR EQU 6 PROT.DDIV FROM ADDRESS «, t00=0x001e, t01=0x001a}
0x02f1c…02f42 Head {h00=0x0022, h01=0x0050, text=»PLTGCE EQU 8 END OF ICB-PLTGC «, t00=0x001e, t01=0x0046}
0x02f42…02f6c Head {h00=0x0026, h01=0x0050, text=»PLTGCL EQU 10 LENGTH OF ICB-PLTGC «, t00=0x001e, t01=0x006c}
0x02f6c…02f94 Head {h00=0x0024, h01=0x0050, text=»PLTGCS EQU 12 START OF ICB-PLTGC«, t00=0x001e, t01=0x0096}
0x02f94…02fb8 Head {h00=0x0020, h01=0x0050, text=»DYNTAD EQU 14 DYNTAB ADDRESS«, t00=0x001e, t01=0x00be}
0x02fb8…02fe2 Head {h00=0x0026, h01=0x0050, text=»APCTAB EQU 16 APLTAB BLOCK ADDRESS«, t00=0x001e, t01=0x00e2}
0x02fe2…03010 Head {h00=0x002a, h01=0x0050, text=»PDDIVL EQU 18 LENGTH LEFT OF PROT.DDIV«, t00=0x001e, t01=0x010c}
0x03010…0301e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x013a}
0x0301e…03046 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001e, t01=0x0148}
0x03046…0306e Head {h00=0x0024, h01=0x0050, text=»* SCRATCH-PAD DISPLACEMENTS * «, t00=0x001e, t01=0x0170}
0x0306e…03096 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001f, t01=0x0008}
0x03096…030ca Head {h00=0x0030, h01=0x0050, text=»ACOSTA EQU 120 CONF.START FOR AN APPLICATION«, t00=0x001f, t01=0x0030}
0x030ca…03102 Head {h00=0x0034, h01=0x0050, text=»ALICOU EQU 112 SAVE AREA FOR APPLICATION COUNTER«, t00=0x001f, t01=0x0064}
0x03102…0312e Head {h00=0x0028, h01=0x0050, text=»APLTAD EQU 122 APLTAB BLOCK ADDRESS «, t00=0x001f, t01=0x009c}
0x0312e…03162 Head {h00=0x0030, h01=0x0050, text=»BASADR EQU 80 BASE ADDRESS FOR DEBUG PURPOSE«, t00=0x001f, t01=0x00c8}
0x03162…0318e Head {h00=0x0028, h01=0x0050, text=»DDIVTO EQU 124 PROT.DDIV TO ADDRESS «, t00=0x001f, t01=0x00fc}
0x0318e…031ba Head {h00=0x0028, h01=0x0050, text=»DYNDIS EQU 60 DYN.CORE DISPLACEMENT «, t00=0x001f, t01=0x0128}
0x031ba…031f2 Head {h00=0x0034, h01=0x0050, text=»PDDIV EQU 114 FLAG : 1=BUILD DDIV TO NEXT APPL. «, t00=0x001f, t01=0x0154}
0x031f2…03226 Head {h00=0x0030, h01=0x0050, text=» 0=BUILD DDIV TO START OF FREE AREA«, t00=0x001f, t01=0x018c}
0x03226…0324e Head {h00=0x0024, h01=0x0050, text=»INTENT EQU 62 INTERPRETER ENTRY «, t00=0x0020, t01=0x0030}
0x0324e…03280 Head {h00=0x002e, h01=0x0050, text=»LCOTO EQU 64 ADR. WHERE TO MOVE SYSLCO TO «, t00=0x0020, t01=0x0058}
0x03280…03296 Head {h00=0x0012, h01=0x0050, text=»MMREL1 EQU 66 «, t00=0x0020, t01=0x008a}
0x03296…032c0 Head {h00=0x0026, h01=0x0050, text=»MONEND EQU 84 MONITOR END ADDRESS «, t00=0x0020, t01=0x00a0}
0x032c0…032e4 Head {h00=0x0020, h01=0x0050, text=»MOVLE1 EQU 86 LENGTH TO MOVE«, t00=0x0020, t01=0x00ca}
0x032e4…0330a Head {h00=0x0022, h01=0x0050, text=»MOVLEN EQU 68 LENGTTH TO MOVE «, t00=0x0020, t01=0x00ee}
0x0330a…03340 Head {h00=0x0032, h01=0x0050, text=»NOCOPS EQU 70 NUMBER OF RUNNING COBOL TASKS IN«, t00=0x0020, t01=0x0114}
0x03340…03366 Head {h00=0x0022, h01=0x0050, text=» RUNTIME FOR AN APPLICATION «, t00=0x0020, t01=0x014a}
0x03366…033a4 Head {h00=0x003a, h01=0x0050, text=»RELOCA EQU 72 TEMPORARY SAVE AREA FOR RELOCATION VALUE«, t00=0x0020, t01=0x0170}
0x033a4…033ce Head {h00=0x0026, h01=0x0050, text=»SAEFA1 EQU 116 SCTEFA BIT 0-5 PAGE«, t00=0x0021, t01=0x001e}
0x033ce…03402 Head {h00=0x0030, h01=0x0050, text=»SAEFA2 EQU 118 SCTEFA BIT 4-15 DISP. IN PAGE«, t00=0x0021, t01=0x0048}
0x03402…03428 Head {h00=0x0022, h01=0x0050, text=»SAVE01 EQU 88 TEMP. SAVE AREA «, t00=0x0021, t01=0x007c}
0x03428…03460 Head {h00=0x0034, h01=0x0050, text=»SAVE02 EQU 96 TEMP. SAVE AREA OUTSIDE SUBRUTINES«, t00=0x0021, t01=0x00a2}
0x03460…0349a Head {h00=0x0036, h01=0x0050, text=»SAVE03 EQU 126 TEMP. SAVE AREA OUTSIDE SUBRUTINES «, t00=0x0021, t01=0x00da}
0x0349a…034d8 Head {h00=0x003a, h01=0x0050, text=»SAVE05 EQU 106 TEMP. SAVE AREA INSIDE LOKAL SUBRUTINES«, t00=0x0021, t01=0x0114}
0x034d8…03516 Head {h00=0x003a, h01=0x0050, text=»SAVE06 EQU 108 TEMP. SAVE AREA INSIDE LOKAL SUBRUTINES«, t00=0x0021, t01=0x0152}
0x03516…03554 Head {h00=0x003a, h01=0x0050, text=»SAVE07 EQU 110 TEMP. SAVE AREA INSIDE LOKAL SUBRUTINES«, t00=0x0021, t01=0x0190}
0x03554…03584 Head {h00=0x002c, h01=0x0050, text=»SAVITC EQU 94 SAVE AREA FOR ITCT ADDRESS«, t00=0x0022, t01=0x003e}
0x03584…035b0 Head {h00=0x0028, h01=0x0050, text=»SAVTID EQU 104 SAVE AREA FOR TASK ID«, t00=0x0022, t01=0x006e}
0x035b0…035ee Head {h00=0x003a, h01=0x0050, text=»SHADST EQU 74 START OF SHADOW TABLES FOR CURRENT APPL.«, t00=0x0022, t01=0x009a}
0x035ee…03614 Head {h00=0x0022, h01=0x0050, text=»SHTLEN EQU 76 SHTAB1-3 LENGTH «, t00=0x0022, t01=0x00d8}
0x03614…03648 Head {h00=0x0030, h01=0x0050, text=»STASK EQU 82 NZ=ONLY ONE TASK IN THE SYSTEM «, t00=0x0022, t01=0x00fe}
0x03648…03674 Head {h00=0x0028, h01=0x0050, text=»TCLPNT EQU 78 ADR. TO TCLBLK POINTER«, t00=0x0022, t01=0x0132}
0x03674…036a4 Head {h00=0x002c, h01=0x0050, text=»TCLCOU EQU 100 SAVE AREA FOR TCL COUNTER«, t00=0x0022, t01=0x015e}
0x036a4…036da Head {h00=0x0032, h01=0x0050, text=»TCLITC EQU 102 SAVE AREA FOR TCL ITCT ADDRESS «, t00=0x0022, t01=0x018e}
0x036da…03704 Head {h00=0x0026, h01=0x0050, text=»TGCREL EQU 90 ICB-PLTGC RELOCATION«, t00=0x0023, t01=0x0034}
0x03704…0372c Head {h00=0x0024, h01=0x0050, text=»PGTGAD EQU 92 PGTG DATA ADDRESS «, t00=0x0023, t01=0x005e}
0x0372c…0376a Head {h00=0x003a, h01=0x0050, text=»LSTENT EQU 98 LAST USED ENTRY IN MMTAB,UPTO COMMON DAT«, t00=0x0023, t01=0x0086}
0x0376a…03778 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00c4}
0x03778…03794 Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0023, t01=0x00d2}
0x03794…037b0 Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0023, t01=0x00ee}
0x037b0…037cc Head {h00=0x0018, h01=0x0050, text=» ** ** «, t00=0x0023, t01=0x010a}
0x037cc…037e8 Head {h00=0x0018, h01=0x0050, text=» ** CONSTANTS ** «, t00=0x0023, t01=0x0126}
0x037e8…03804 Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0023, t01=0x0142}
0x03804…03820 Head {h00=0x0018, h01=0x0050, text=» ***************** «, t00=0x0023, t01=0x015e}
0x03820…0382c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0023, t01=0x017a}
0x0382c…03854 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0023, t01=0x0186}
0x03854…0387c Head {h00=0x0024, h01=0x0050, text=»* CONFIGURATION FILE (CONFIG) * «, t00=0x0024, t01=0x001e}
0x0387c…038a4 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0024, t01=0x0046}
0x038a4…038b0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0024, t01=0x006e}
0x038b0…038d0 Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x0024, t01=0x007a}
0x038d0…038f2 Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x0024, t01=0x009a}
0x038f2…0391e Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x0024, t01=0x00bc}
0x0391e…0394e Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x0024, t01=0x00e8}
0x0394e…0397e Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x0024, t01=0x0118}
0x0397e…039a6 Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x0024, t01=0x0148}
0x039a6…039e4 Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x0024, t01=0x0170}
0x039e4…039ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x001e}
0x039ee…03a18 Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 FIRST TERM DEF «, t00=0x0025, t01=0x0028}
0x03a18…03a40 Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x0025, t01=0x0052}
0x03a40…03a62 Head {h00=0x001e, h01=0x0050, text=»TLC EQU 7 LINE CONNECTION «, t00=0x0025, t01=0x007a}
0x03a62…03a8e Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x0025, t01=0x009c}
0x03a8e…03a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00c8}
0x03a98…03ac6 Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x0025, t01=0x00d2}
0x03ac6…03ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0100}
0x03ad0…03af4 Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x0025, t01=0x010a}
0x03af4…03b16 Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x0025, t01=0x012e}
0x03b16…03b50 Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x0025, t01=0x0150}
0x03b50…03b7c Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 FIRST SDC-RECORD «, t00=0x0025, t01=0x018a}
0x03b7c…03b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0026}
0x03b86…03b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0030}
0x03b90…03bba Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x0026, t01=0x003a}
0x03bba…03bdc Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x0026, t01=0x0064}
0x03bdc…03c0c Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x0026, t01=0x0086}
0x03c0c…03c16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b6}
0x03c16…03c42 Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 FIRST UDB-RECORD «, t00=0x0026, t01=0x00c0}
0x03c42…03c62 Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x0026, t01=0x00ec}
0x03c62…03c88 Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x0026, t01=0x010c}
0x03c88…03cba Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x0026, t01=0x0132}
0x03cba…03cc8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0164}
0x03cc8…03cd4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0026, t01=0x0172}
0x03cd4…03ce0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0026, t01=0x017e}
0x03ce0…03d10 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0026, t01=0x018a}
0x03d10…03d40 Head {h00=0x002c, h01=0x0050, text=»** ** «, t00=0x0027, t01=0x002a}
0x03d40…03d70 Head {h00=0x002c, h01=0x0050, text=»** THE FOLLOWING EQUATES ARE ** «, t00=0x0027, t01=0x005a}
0x03d70…03da0 Head {h00=0x002c, h01=0x0050, text=»** DISPLACEMENTS WITHIN EACH ** «, t00=0x0027, t01=0x008a}
0x03da0…03dd0 Head {h00=0x002c, h01=0x0050, text=»** TABLE ** «, t00=0x0027, t01=0x00ba}
0x03dd0…03e00 Head {h00=0x002c, h01=0x0050, text=»** ** «, t00=0x0027, t01=0x00ea}
0x03e00…03e30 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0027, t01=0x011a}
0x03e30…03e38 Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x014a}
0x03e38…03e50 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0027, t01=0x0152}
0x03e50…03e68 Head {h00=0x0014, h01=0x0050, text=»** ** «, t00=0x0027, t01=0x016a}
0x03e68…03e80 Head {h00=0x0014, h01=0x0050, text=»** SEGTAB ** «, t00=0x0027, t01=0x0182}
0x03e80…03e98 Head {h00=0x0014, h01=0x0050, text=»** ** «, t00=0x0028, t01=0x000a}
0x03e98…03eb0 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0028, t01=0x0022}
0x03eb0…03eb8 Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x003a}
0x03eb8…03edc Head {h00=0x0020, h01=0x0050, text=»SGAPPT EQU 0 APPTAB POINTER «, t00=0x0028, t01=0x0042}
0x03edc…03f02 Head {h00=0x0022, h01=0x0050, text=»SGPGMT EQU 2 PROGRAM TYPE 'CO'«, t00=0x0028, t01=0x0066}
0x03f02…03f24 Head {h00=0x001e, h01=0x0050, text=»SGCOML EQU 6 COMMON LENGTH«, t00=0x0028, t01=0x008c}
0x03f24…03f44 Head {h00=0x001c, h01=0x0050, text=»SGPAGL EQU 8 PAGE LENGTH«, t00=0x0028, t01=0x00ae}
0x03f44…03f6c Head {h00=0x0024, h01=0x0050, text=»SGNOSG EQU 10 NUMBER OF SEGMENTS«, t00=0x0028, t01=0x00ce}
0x03f6c…03f74 Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x00f6}
0x03f74…03f8c Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0028, t01=0x00fe}
0x03f8c…03fa4 Head {h00=0x0014, h01=0x0050, text=»** ** «, t00=0x0028, t01=0x0116}
0x03fa4…03fbc Head {h00=0x0014, h01=0x0050, text=»** APPTAB ** «, t00=0x0028, t01=0x012e}
0x03fbc…03fd4 Head {h00=0x0014, h01=0x0050, text=»** ** «, t00=0x0028, t01=0x0146}
0x03fd4…03fec Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0028, t01=0x015e}
0x03fec…03ff4 Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x0176}
0x03ff4…04018 Head {h00=0x0020, h01=0x0050, text=»APPTCL EQU 0 TCLTAB POINTER «, t00=0x0028, t01=0x017e}
0x04018…0403e Head {h00=0x0022, h01=0x0050, text=»APPINT EQU 2 INTERPRETER ENTRY«, t00=0x0029, t01=0x0012}
0x0403e…04068 Head {h00=0x0026, h01=0x0050, text=»APPTGL EQU 4 PGTG-DATA-AREA LENGTH«, t00=0x0029, t01=0x0038}
0x04068…0408e Head {h00=0x0022, h01=0x0050, text=»APPCOM EQU 6 COMMON PSEG PNTR «, t00=0x0029, t01=0x0062}
0x0408e…040c4 Head {h00=0x0032, h01=0x0050, text=»I:RSTE EQU 8 DISPL IN APPTAB, INT REENTER ADR «, t00=0x0029, t01=0x0088}
0x040c4…040cc Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x00be}
0x040cc…040e4 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0029, t01=0x00c6}
0x040e4…040fc Head {h00=0x0014, h01=0x0050, text=»** ** «, t00=0x0029, t01=0x00de}
0x040fc…04114 Head {h00=0x0014, h01=0x0050, text=»** TCLTAB ** «, t00=0x0029, t01=0x00f6}
0x04114…0412c Head {h00=0x0014, h01=0x0050, text=»** ** «, t00=0x0029, t01=0x010e}
0x0412c…04144 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0029, t01=0x0126}
0x04144…0414c Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x013e}
0x0414c…04174 Head {h00=0x0024, h01=0x0050, text=»TCLCNT EQU 0 NUMBER OF TCLBLK'S «, t00=0x0029, t01=0x0146}
0x04174…041a2 Head {h00=0x002a, h01=0x0050, text=»TCLTAB EQU 2 TABLE OF TCLBLK POINTERS «, t00=0x0029, t01=0x016e}
0x041a2…041c0 Head {h00=0x001a, h01=0x0050, text=»TCLNAM EQU 0 TCL NAME «, t00=0x002a, t01=0x000c}
0x041c0…041e4 Head {h00=0x0020, h01=0x0050, text=»TCLBLK EQU 4 TCLBLK POINTER «, t00=0x002a, t01=0x002a}
0x041e4…041ec Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x004e}
0x041ec…04204 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x002a, t01=0x0056}
0x04204…0421c Head {h00=0x0014, h01=0x0050, text=»** ** «, t00=0x002a, t01=0x006e}
0x0421c…04234 Head {h00=0x0014, h01=0x0050, text=»** TCLBLK ** «, t00=0x002a, t01=0x0086}
0x04234…0424c Head {h00=0x0014, h01=0x0050, text=»** ** «, t00=0x002a, t01=0x009e}
0x0424c…04264 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x002a, t01=0x00b6}
0x04264…0426c Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00ce}
0x0426c…0428c Head {h00=0x001c, h01=0x0050, text=»TCLSTK EQU 0 STACK-SIZE «, t00=0x002a, t01=0x00d6}
0x0428c…042b8 Head {h00=0x0028, h01=0x0050, text=»TCLTGC EQU 2 ICB-PLTGC-MAIN POINTER «, t00=0x002a, t01=0x00f6}
0x042b8…042da Head {h00=0x001e, h01=0x0050, text=»TCLTCT EQU 4 ITCT POINTER «, t00=0x002a, t01=0x0122}
0x042da…04304 Head {h00=0x0026, h01=0x0050, text=»TCLTLD EQU 6 PGTL-DATA-LENGTH-USED«, t00=0x002a, t01=0x0144}
0x04304…0430c Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x016e}
0x0430c…04324 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x002a, t01=0x0176}
0x04324…0433c Head {h00=0x0014, h01=0x0050, text=»** ** «, t00=0x002a, t01=0x018e}
0x0433c…04354 Head {h00=0x0014, h01=0x0050, text=»** ICB-PLTGC ** «, t00=0x002b, t01=0x0016}
0x04354…0436c Head {h00=0x0014, h01=0x0050, text=»** ** «, t00=0x002b, t01=0x002e}
0x0436c…04384 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x002b, t01=0x0046}
0x04384…0438c Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x005e}
0x0438c…043ba Head {h00=0x002a, h01=0x0050, text=»TGCSZD EQU 4 STATIC-ZERO DISP IN TLTAB«, t00=0x002b, t01=0x0066}
0x043ba…043e2 Head {h00=0x0024, h01=0x0050, text=»TGCSZL EQU 6 STATIC-ZERO LENGTH «, t00=0x002b, t01=0x0094}
0x043e2…04408 Head {h00=0x0022, h01=0x0050, text=»TGCCAL EQU 8 CALL-BASE-ADR TAB«, t00=0x002b, t01=0x00bc}
0x04408…0443a Head {h00=0x002e, h01=0x0050, text=»TGCCTS EQU 0 NBR OF ENTRIES IN CALL TABLE «, t00=0x002b, t01=0x00e2}
0x0443a…04460 Head {h00=0x0022, h01=0x0050, text=»TGCCTE EQU 2 CALL TABLE ENTRY «, t00=0x002b, t01=0x0114}
0x04460…04468 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x013a}
0x04468…04480 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x002b, t01=0x0142}
0x04480…04498 Head {h00=0x0014, h01=0x0050, text=»** ** «, t00=0x002b, t01=0x015a}
0x04498…044b0 Head {h00=0x0014, h01=0x0050, text=»** ITCT ** «, t00=0x002b, t01=0x0172}
0x044b0…044c8 Head {h00=0x0014, h01=0x0050, text=»** ** «, t00=0x002b, t01=0x018a}
0x044c8…044e0 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x002c, t01=0x0012}
0x044e0…044e8 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x002a}
0x044e8…0450a Head {h00=0x001e, h01=0x0050, text=»ITCCOM EQU 0 PGTG-DATA-ADR«, t00=0x002c, t01=0x0032}
0x0450a…0452e Head {h00=0x0020, h01=0x0050, text=»ITCTGC EQU 2 ICB-PLTGC-PNTR «, t00=0x002c, t01=0x0054}
0x0452e…04554 Head {h00=0x0022, h01=0x0050, text=»ITCGLL EQU 4 PGTL-DATA-LENGTH «, t00=0x002c, t01=0x0078}
0x04554…04576 Head {h00=0x001e, h01=0x0050, text=»ITCGLA EQU 6 PGTL-DATA-ADR«, t00=0x002c, t01=0x009e}
0x04576…045a0 Head {h00=0x0026, h01=0x0050, text=»ITCCSB EQU 10 CURRENT SEGMENT BASE«, t00=0x002c, t01=0x00c0}
0x045a0…045be Head {h00=0x001a, h01=0x0050, text=»ITCTID EQU 12 TASK-ID «, t00=0x002c, t01=0x00ea}
0x045be…045ea Head {h00=0x0028, h01=0x0050, text=»ITCDCB EQU 14 DYNAMIC-CORE,BASE-PNTR«, t00=0x002c, t01=0x0108}
0x045ea…0461c Head {h00=0x002e, h01=0x0050, text=»ITCDCC EQU 16 " ,CURRENT-EXTENT «, t00=0x002c, t01=0x0134}
0x0461c…0464e Head {h00=0x002e, h01=0x0050, text=»ITCNEP EQU 18 " ,NEXT PARAMETER «, t00=0x002c, t01=0x0166}
0x0464e…0467e Head {h00=0x002c, h01=0x0050, text=»ITCDCD EQU 22 " ,DDI-POOL-BASE«, t00=0x002d, t01=0x0008}
0x0467e…046a0 Head {h00=0x001e, h01=0x0050, text=»ITCSPL EQU 26 SPL-PBS-PNTR«, t00=0x002d, t01=0x0038}
0x046a0…046bc Head {h00=0x0018, h01=0x0050, text=»ITCTLT EQU 34 TLTAB «, t00=0x002d, t01=0x005a}
0x046bc…046e8 Head {h00=0x0028, h01=0x0050, text=»ITCTLS EQU 0 NBR OF ENTRIES IN TLTAB«, t00=0x002d, t01=0x0076}
0x046e8…04708 Head {h00=0x001c, h01=0x0050, text=»ITCTLE EQU 2 TLTAB ENTRY«, t00=0x002d, t01=0x00a2}
0x04708…04710 Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x00c2}
0x04710…04728 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x002d, t01=0x00ca}
0x04728…04740 Head {h00=0x0014, h01=0x0050, text=»** ** «, t00=0x002d, t01=0x00e2}
0x04740…04758 Head {h00=0x0014, h01=0x0050, text=»** SPL-PBS ** «, t00=0x002d, t01=0x00fa}
0x04758…04770 Head {h00=0x0014, h01=0x0050, text=»** ** «, t00=0x002d, t01=0x0112}
0x04770…04788 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x002d, t01=0x012a}
0x04788…04790 Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x0142}
0x04790…047ba Head {h00=0x0026, h01=0x0050, text=»SPLTCD EQU 0 DIAGNOSTIC,TERM-CODE «, t00=0x002d, t01=0x014a}
0x047ba…047e4 Head {h00=0x0026, h01=0x0050, text=»SPLSTU EQU 2 " ,STACK-USED«, t00=0x002d, t01=0x0174}
0x047e4…0480e Head {h00=0x0026, h01=0x0050, text=»SPLSTS EQU 4 " ,STACK-SIZE«, t00=0x002e, t01=0x000e}
0x0480e…0483c Head {h00=0x002a, h01=0x0050, text=»SPLPRN EQU 6 " ,PROCEDURE-NAME«, t00=0x002e, t01=0x0038}
0x0483c…0486a Head {h00=0x002a, h01=0x0050, text=»SPLCPB EQU 12 CURRENT-PROCEDURE-BLOCK «, t00=0x002e, t01=0x0066}
0x0486a…04894 Head {h00=0x0026, h01=0x0050, text=»SPLDIS EQU 14 DISPLAY(16 POINTERS)«, t00=0x002e, t01=0x0094}
0x04894…048b6 Head {h00=0x001e, h01=0x0050, text=»SPLG1S EQU 46 GLOBAL1-SAVE«, t00=0x002e, t01=0x00be}
0x048b6…048d8 Head {h00=0x001e, h01=0x0050, text=»SPLG2S EQU 48 GLOBAL2-SAVE«, t00=0x002e, t01=0x00e0}
0x048d8…048fa Head {h00=0x001e, h01=0x0050, text=»SPLG3S EQU 50 GLOBAL3-SAVE«, t00=0x002e, t01=0x0102}
0x048fa…0491a Head {h00=0x001c, h01=0x0050, text=»SPLSTB EQU 52 STACK-BASE«, t00=0x002e, t01=0x0124}
0x0491a…0493a Head {h00=0x001c, h01=0x0050, text=»SPLENT EQU 54 ENTRY-FINI«, t00=0x002e, t01=0x0144}
0x0493a…04958 Head {h00=0x001a, h01=0x0050, text=»SPLLTS EQU 56 LAST-TS «, t00=0x002e, t01=0x0164}
0x04958…0498a Head {h00=0x002e, h01=0x0050, text=»SPLRWA EQU 58 RUNTIME-WORK-AREA(30 BYTES) «, t00=0x002e, t01=0x0182}
0x0498a…049aa Head {h00=0x001c, h01=0x0050, text=»SPLSTA EQU 88 STACK-AREA«, t00=0x002f, t01=0x0024}
0x049aa…049b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0044}
0x049b8…049d0 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x002f, t01=0x0052}
0x049d0…049e8 Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x002f, t01=0x006a}
0x049e8…04a00 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x002f, t01=0x0082}
0x04a00…04a22 Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x002f, t01=0x009a}
0x04a22…04a2a Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x00bc}
0x04a2a…04a48 Head {h00=0x001a, h01=0x0050, text=» LAMP CODE MEANING «, t00=0x002f, t01=0x00c4}
0x04a48…04a66 Head {h00=0x001a, h01=0x0050, text=» --------- ------- «, t00=0x002f, t01=0x00e2}
0x04a66…04a88 Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 SYSLOAD RUNS«, t00=0x002f, t01=0x0100}
0x04a88…04aa8 Head {h00=0x001c, h01=0x0050, text=»LMP2 EQU /200 READ ERROR«, t00=0x002f, t01=0x0122}
0x04aa8…04ace Head {h00=0x0022, h01=0x0050, text=»LMP3 EQU /100 MEMORY OVERFLOW «, t00=0x002f, t01=0x0142}
0x04ace…04af8 Head {h00=0x0026, h01=0x0050, text=»LMP4 EQU /80 FORMAT ERROR (CONFIG)«, t00=0x002f, t01=0x0168}
0x04af8…04b16 (48, 0, 400) Head {h00=0x001a, h01=0x0050, text=»LMP5 EQU /40 TID ERROR«, t00=0x0030, t01=0x0004}
0x04b16…04b3c Head {h00=0x0022, h01=0x0050, text=»LMP6 EQU /20 UWB OR SWB ERROR «, t00=0x0030, t01=0x0022}
0x04b3c…04b62 Head {h00=0x0022, h01=0x0050, text=»LMP7 EQU /10 MM-TABLE OVERFLOW«, t00=0x0030, t01=0x0048}
0x04b62…04b74 Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x0030, t01=0x006e}
0x04b74…04b86 Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x0030, t01=0x0080}
0x04b86…04b9a Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x0030, t01=0x0092}
0x04b9a…04bae Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x0030, t01=0x00a6}
0x04bae…04bd0 Head {h00=0x001e, h01=0x0050, text=»NOBLK EQU /B NO BLOCKS =2 «, t00=0x0030, t01=0x00ba}
0x04bd0…04bd8 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x00dc}
0x04bd8…04be0 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x00e4}
0x04be0…04bfe Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0030, t01=0x00ec}
0x04bfe…04c1c Head {h00=0x001a, h01=0x0050, text=»* OTHER CONSTANTS * «, t00=0x0030, t01=0x010a}
0x04c1c…04c3a Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0030, t01=0x0128}
0x04c3a…04c46 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0030, t01=0x0146}
0x04c46…04c7c Head {h00=0x0032, h01=0x0050, text=»STKMAX EQU 500 DEFAULT SPL STACK-SIZE IN BYTES«, t00=0x0030, t01=0x0152}
0x04c7c…04cb4 Head {h00=0x0034, h01=0x0050, text=»ENTFIN EQU /FFFF PROGRAMMER DEFINED ENTRY POINT «, t00=0x0030, t01=0x0188}
0x04cb4…04cfc Head {h00=0x0044, h01=0x0050, text=»SPLSIZ EQU SPLSTA+STKMAX DEFAULT SPL STACK-SIZE + PBS-BLOCK SIZE«, t00=0x0031, t01=0x0030}
0x04cfc…04d24 Head {h00=0x0024, h01=0x0050, text=»COBID EQU 2 COBOL IDENTIFICATION«, t00=0x0031, t01=0x0078}
0x04d24…04d50 Head {h00=0x0028, h01=0x0050, text=»SEGREC EQU 6 RECORD LENGTH IN SEGTAB«, t00=0x0031, t01=0x00a0}
0x04d50…04d8c Head {h00=0x0038, h01=0x0050, text=»NUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN SEGTAB«, t00=0x0031, t01=0x00cc}
0x04d8c…04dac Head {h00=0x001c, h01=0x0050, text=»TTBTID EQU 2 TID IN TTAB«, t00=0x0031, t01=0x0108}
0x04dac…04dda Head {h00=0x002a, h01=0x0050, text=»TTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB«, t00=0x0031, t01=0x0128}
0x04dda…04e06 Head {h00=0x0028, h01=0x0050, text=»NTPA EQU 4 INTERPRETER START ADDRESS«, t00=0x0031, t01=0x0156}
0x04e06…04e30 Head {h00=0x0026, h01=0x0050, text=»IHRTC EQU 4 RTC INTERRUPT ADDRESS «, t00=0x0031, t01=0x0182}
0x04e30…04e58 Head {h00=0x0024, h01=0x0050, text=»RTCDA EQU /1B RTC DEVICE ADDRESS«, t00=0x0032, t01=0x001c}
0x04e58…04e96 Head {h00=0x003a, h01=0x0050, text=»TABLEN EQU 20 LENGTH OF EACH APL.TABLE IN SCRATCH-PAD «, t00=0x0032, t01=0x0044}
0x04e96…04ec8 Head {h00=0x002e, h01=0x0050, text=»ACBLEN EQU 26 APPL.CONTROL BLOCK LENGTH =1«, t00=0x0032, t01=0x0082}
0x04ec8…04ed6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00b4}
0x04ed6…04f20 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0032, t01=0x00c2}
0x04f20…04f6a Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x0032, t01=0x010c}
0x04f6a…04fb4 Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x0032, t01=0x0156}
0x04fb4…04ffe Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x0033, t01=0x0010}
0x04ffe…05048 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0033, t01=0x005a}
0x05048…05054 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0033, t01=0x00a4}
0x05054…05060 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0033, t01=0x00b0}
0x05060…0506c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0033, t01=0x00bc}
0x0506c…0508a Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x0033, t01=0x00c8}
0x0508a…050a0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0033, t01=0x00e6}
0x050a0…050ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x00fc}
0x050ae…050ba Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0033, t01=0x010a}
0x050ba…050c6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0033, t01=0x0116}
0x050c6…050fc Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0033, t01=0x0122}
0x050fc…05132 Head {h00=0x0032, h01=0x0050, text=»******* ******* «, t00=0x0033, t01=0x0158}
0x05132…05168 Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x0033, t01=0x018e}
0x05168…0519e Head {h00=0x0032, h01=0x0050, text=»* SYSLOAD PART 1 * «, t00=0x0034, t01=0x0034}
0x0519e…051d4 Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x0034, t01=0x006a}
0x051d4…0520a Head {h00=0x0032, h01=0x0050, text=»***** ***** «, t00=0x0034, t01=0x00a0}
0x0520a…05240 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0034, t01=0x00d6}
0x05240…0524c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0034, t01=0x010c}
0x0524c…05282 Head {h00=0x0032, h01=0x0050, text=»* READ CONFIGURATION FILE & BUILD * «, t00=0x0034, t01=0x0118}
0x05282…052b8 Head {h00=0x0032, h01=0x0050, text=»* SHADOW-TABLES * «, t00=0x0034, t01=0x014e}
0x052b8…052ee Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0034, t01=0x0184}
0x052ee…05324 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0035, t01=0x002a}
0x05324…05330 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0035, t01=0x0060}
0x05330…05344 Head {h00=0x0010, h01=0x0050, text=»LCOSTA EQU *«, t00=0x0035, t01=0x006c}
0x05344…05370 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,START1 GET START OF SYSLCO «, t00=0x0035, t01=0x0080}
0x05370…053a0 Head {h00=0x002c, h01=0x0050, text=» AD A1,M:REL+STKCOM ADD RELOCATION BASE «, t00=0x0035, t01=0x00ac}
0x053a0…053c6 Head {h00=0x0022, h01=0x0050, text=» ABR A1 GO TO START OF SYSLCO «, t00=0x0035, t01=0x00dc}
0x053c6…053d2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0035, t01=0x0102}
0x053d2…05400 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0035, t01=0x010e}
0x05400…0542e Head {h00=0x002a, h01=0x0050, text=»*** *** «, t00=0x0035, t01=0x013c}
0x0542e…0545c Head {h00=0x002a, h01=0x0050, text=»** S U B R O U T I N E S ** «, t00=0x0035, t01=0x016a}
0x0545c…0548a Head {h00=0x002a, h01=0x0050, text=»** -USED IN THIS PART ONLY ** «, t00=0x0036, t01=0x0008}
0x0548a…054b8 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0036, t01=0x0036}
0x054b8…054c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0064}
0x054c6…054fc Head {h00=0x0032, h01=0x0050, text=»* B U I L D T *«, t00=0x0036, t01=0x0072}
0x054fc…05532 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x0036, t01=0x00a8}
0x05532…05568 Head {h00=0x0032, h01=0x0050, text=»* BUILD ONE PART OF TIDTAB FOR CURRENT *«, t00=0x0036, t01=0x00de}
0x05568…0559e Head {h00=0x0032, h01=0x0050, text=»* TASK DEFINITION BLOCK IN CONF.FILE *«, t00=0x0036, t01=0x0114}
0x0559e…055d4 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x0036, t01=0x014a}
0x055d4…0560a Head {h00=0x0032, h01=0x0050, text=»* INPUT : A1=ITCT ADDRESS *«, t00=0x0036, t01=0x0180}
0x0560a…05640 Head {h00=0x0032, h01=0x0050, text=»* A3=TID *«, t00=0x0037, t01=0x0026}
0x05640…05676 Head {h00=0x0032, h01=0x0050, text=»* A4=NUMBER OF COPIES *«, t00=0x0037, t01=0x005c}
0x05676…056ac Head {h00=0x0032, h01=0x0050, text=»* A6=POINTER IN SHTAB1 *«, t00=0x0037, t01=0x0092}
0x056ac…056e2 Head {h00=0x0032, h01=0x0050, text=»* A8=LENGTH OF SHTAB1 *«, t00=0x0037, t01=0x00c8}
0x056e2…05718 Head {h00=0x0032, h01=0x0050, text=»* SHADST=START OF SHADOW TABLES FOR *«, t00=0x0037, t01=0x00fe}
0x05718…0574e Head {h00=0x0032, h01=0x0050, text=»* CURRENT APPLICATION *«, t00=0x0037, t01=0x0134}
0x0574e…05784 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x0037, t01=0x016a}
0x05784…057ba Head {h00=0x0032, h01=0x0050, text=»* OUTPUT: A7=FIRST FREE ENTRY AFTER TIDTAB *«, t00=0x0038, t01=0x0010}
0x057ba…057f0 Head {h00=0x0032, h01=0x0050, text=»* SHADST=START OF SHADOW TABLES FOR *«, t00=0x0038, t01=0x0046}
0x057f0…05826 Head {h00=0x0032, h01=0x0050, text=»* CURRENT APPLICATION *«, t00=0x0038, t01=0x007c}
0x05826…0585c Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x0038, t01=0x00b2}
0x0585c…05892 Head {h00=0x0032, h01=0x0050, text=»* WORK REGISTERS : A1-A8 *«, t00=0x0038, t01=0x00e8}
0x05892…058c8 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x0038, t01=0x011e}
0x058c8…058fe Head {h00=0x0032, h01=0x0050, text=»* SUBRUTINS : ERROR *«, t00=0x0038, t01=0x0154}
0x058fe…05934 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x0038, t01=0x018a}
0x05934…0596a Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0039, t01=0x0030}
0x0596a…0597e Head {h00=0x0010, h01=0x0050, text=»BUILDT EQU *«, t00=0x0039, t01=0x0066}
0x0597e…059b8 Head {h00=0x0036, h01=0x0050, text=» LDR* A2,A6 HAVE TASKS ALREADY BEEN CONF FOR THIS «, t00=0x0039, t01=0x007a}
0x059b8…059c6 Head {h00=0x000a, h01=0x0050, text=» TCL«, t00=0x0039, t01=0x00b4}
0x059c6…059e2 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) BUI100 YES! «, t00=0x0039, t01=0x00c2}
0x059e2…05a0c Head {h00=0x0026, h01=0x0050, text=» ES A3,ITCTID,A1 SAVE TID IN ITCT «, t00=0x0039, t01=0x00de}
0x05a0c…05a48 Head {h00=0x0038, h01=0x0050, text=»* COUNT NUMBER OF TASKS IN TIDTAB WHICH ARE GOING TO«, t00=0x0039, t01=0x0108}
0x05a48…05a6a Head {h00=0x001e, h01=0x0050, text=»* LIE BEFORE CURRENT TASKS«, t00=0x0039, t01=0x0144}
0x05a6a…05a7e Head {h00=0x0010, h01=0x0050, text=»BUI100 EQU *«, t00=0x0039, t01=0x0166}
0x05a7e…05aa4 Head {h00=0x0022, h01=0x0050, text=» SUR A2,A2 CLEAR TASK COUNTER «, t00=0x0039, t01=0x017a}
0x05aa4…05ade Head {h00=0x0036, h01=0x0050, text=» LDR A5,A6 GET POINTER TO CURRENT ENTRY IN SHATB1 «, t00=0x003a, t01=0x0010}
0x05ade…05af2 Head {h00=0x0010, h01=0x0050, text=»BUI200 EQU *«, t00=0x003a, t01=0x004a}
0x05af2…05b1a Head {h00=0x0024, h01=0x0050, text=» ADR* A2,A5 ADD NUMBER OF TASKS «, t00=0x003a, t01=0x005e}
0x05b1a…05b44 Head {h00=0x0026, h01=0x0050, text=» SUK A5,2 DECREASE SHTAB1 POINTER «, t00=0x003a, t01=0x0086}
0x05b44…05b74 Head {h00=0x002c, h01=0x0050, text=» CW A5,SHADST+STKEND ALL TASKS COUNTED? «, t00=0x003a, t01=0x00b0}
0x05b74…05b8e Head {h00=0x0016, h01=0x0050, text=» RB(NE) BUI200 NO!«, t00=0x003a, t01=0x00e0}
0x05b8e…05bc8 Head {h00=0x0036, h01=0x0050, text=»* LOAD REGISTER A5 WITH POINTER TO START-ENTRY OF «, t00=0x003a, t01=0x00fa}
0x05bc8…05c04 Head {h00=0x0038, h01=0x0050, text=»* CURRENT TASKS IN TIDTAB AND ADD NUMBER OF CURRENT «, t00=0x003a, t01=0x0134}
0x05c04…05c2c Head {h00=0x0024, h01=0x0050, text=»* TASKS IN FIRST ENTRY OF TIDTAB«, t00=0x003a, t01=0x0170}
0x05c2c…05c50 Head {h00=0x0020, h01=0x0050, text=» ADR A5,A8 ADD SHTAB1 LENGTH«, t00=0x003b, t01=0x0008}
0x05c50…05c74 Head {h00=0x0020, h01=0x0050, text=» ADR A5,A8 ADD SHTAB2 LENGTH«, t00=0x003b, t01=0x002c}
0x05c74…05c98 Head {h00=0x0020, h01=0x0050, text=» ADR A5,A8 ADD SHTAB3 LENGTH«, t00=0x003b, t01=0x0050}
0x05c98…05ccc Head {h00=0x0030, h01=0x0050, text=» ADRS A4,A5 UPDATE NUMBER OF TASKS IN TIDTAB«, t00=0x003b, t01=0x0074}
0x05ccc…05cfa Head {h00=0x002a, h01=0x0050, text=» ADK A5,2 POINT AT FIRST TID IN TIDTAB«, t00=0x003b, t01=0x00a8}
0x05cfa…05d20 Head {h00=0x0022, h01=0x0050, text=» SLL A2,1 2*(NUMBER OF TASKS) «, t00=0x003b, t01=0x00d6}
0x05d20…05d4e Head {h00=0x002a, h01=0x0050, text=» ADR A5,A2 ADD DISPLACEMENT IN TIDTAB «, t00=0x003b, t01=0x00fc}
0x05d4e…05d88 Head {h00=0x0036, h01=0x0050, text=»* COUNT NUMBER OF TASKS IN TIDTAB WHICH ARE GOING «, t00=0x003b, t01=0x012a}
0x05d88…05dac Head {h00=0x0020, h01=0x0050, text=»* TO LIE AFTER CURRENT TASKS«, t00=0x003b, t01=0x0164}
0x05dac…05de6 Head {h00=0x0036, h01=0x0050, text=» LDR A1,A6 GET POINTER TO SHTAB1 ENTRY OF CURRENT «, t00=0x003b, t01=0x0188}
0x05de6…05df4 Head {h00=0x000a, h01=0x0050, text=» TCL«, t00=0x003c, t01=0x0032}
0x05df4…05e28 Head {h00=0x0030, h01=0x0050, text=» ADK A1,2 ENTRY IN SHTAB1 AFTER CURRENT TCL «, t00=0x003c, t01=0x0040}
0x05e28…05e4e Head {h00=0x0022, h01=0x0050, text=» SUR A2,A2 CLEAR TASK COUNTER «, t00=0x003c, t01=0x0074}
0x05e4e…05e72 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A8 GET SHTAB1 LENGTH«, t00=0x003c, t01=0x009a}
0x05e72…05e84 Head {h00=0x000e, h01=0x0050, text=» SUR A7,A1«, t00=0x003c, t01=0x00be}
0x05e84…05ec8 Head {h00=0x0040, h01=0x0050, text=» AD A7,SHADST+STKEND LENGTH OF SHTAB1 IN BYTES AFTER CURRENT«, t00=0x003c, t01=0x00d0}
0x05ec8…05ed6 Head {h00=0x000a, h01=0x0050, text=» TCL«, t00=0x003c, t01=0x0114}
0x05ed6…05eec Head {h00=0x0012, h01=0x0050, text=» RF(Z) BUI350 «, t00=0x003c, t01=0x0122}
0x05eec…05f00 Head {h00=0x0010, h01=0x0050, text=»BUI300 EQU *«, t00=0x003c, t01=0x0138}
0x05f00…05f28 Head {h00=0x0024, h01=0x0050, text=» ADR* A2,A1 ADD NUMBER OF TASKS «, t00=0x003c, t01=0x014c}
0x05f28…05f52 Head {h00=0x0026, h01=0x0050, text=» ADK A1,2 INCREASE SHTAB1 POINTER «, t00=0x003c, t01=0x0174}
0x05f52…05f76 Head {h00=0x0020, h01=0x0050, text=» SUK A7,2 ALL TASKS COUNTED?«, t00=0x003d, t01=0x000e}
0x05f76…05f90 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BUI300 NO!«, t00=0x003d, t01=0x0032}
0x05f90…05fc0 Head {h00=0x002c, h01=0x0050, text=»* MAKE SPACE IN TIDTAB FOR CURRENT TASKS«, t00=0x003d, t01=0x004c}
0x05fc0…05fd4 Head {h00=0x0010, h01=0x0050, text=»BUI350 EQU *«, t00=0x003d, t01=0x007c}
0x05fd4…0600c Head {h00=0x0034, h01=0x0050, text=» LDR A7,A5 LOAD START-ENTRY OF CURRENT TASKS IN «, t00=0x003d, t01=0x0090}
0x0600c…0601e Head {h00=0x000e, h01=0x0050, text=» TIDTAB «, t00=0x003d, t01=0x00c8}
0x0601e…0604e Head {h00=0x002c, h01=0x0050, text=» ADR A7,A2 ADD 2*(NUMBER OF TASKS AFTER «, t00=0x003d, t01=0x00da}
0x0604e…06070 Head {h00=0x001e, h01=0x0050, text=» ADR A7,A2 CURRENT TASKS) «, t00=0x003d, t01=0x010a}
0x06070…060a4 Head {h00=0x0030, h01=0x0050, text=» SUK A7,2 POINTER TO LAST TASK ID IN TIDTAB «, t00=0x003d, t01=0x012c}
0x060a4…060d2 Head {h00=0x002a, h01=0x0050, text=» SLL A4,1 2*(NUMBER OF CURRENT TASKS) «, t00=0x003d, t01=0x0160}
0x060d2…06106 Head {h00=0x0030, h01=0x0050, text=» CWR A7,A5 ARE CURRENT TASKS LAST IN TIDTAB «, t00=0x003d, t01=0x018e}
0x06106…06120 Head {h00=0x0016, h01=0x0050, text=» RF(L) BUI500 YES!«, t00=0x003e, t01=0x0032}
0x06120…06134 Head {h00=0x0010, h01=0x0050, text=»BUI400 EQU *«, t00=0x003e, t01=0x004c}
0x06134…0615e Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A7 GET TASK ID IN TIDTAB «, t00=0x003e, t01=0x0060}
0x0615e…06190 Head {h00=0x002e, h01=0x0050, text=» ADR A7,A4 NEW ENTRY IN TIDTAB FOR TASK ID«, t00=0x003e, t01=0x008a}
0x06190…061be Head {h00=0x002a, h01=0x0050, text=» STR A1,A7 STORE TASK ID IN NEW ENTRY «, t00=0x003e, t01=0x00bc}
0x061be…061e8 Head {h00=0x0026, h01=0x0050, text=» SUR A7,A4 GET OLD ENTRY IN TIDTAB«, t00=0x003e, t01=0x00ea}
0x061e8…0620e Head {h00=0x0022, h01=0x0050, text=» SUK A7,2 NEXT ENTRY IN TIDTAB«, t00=0x003e, t01=0x0114}
0x0620e…06234 Head {h00=0x0022, h01=0x0050, text=» CWR A7,A5 ALL TASK ID MOVED? «, t00=0x003e, t01=0x013a}
0x06234…0624e Head {h00=0x0016, h01=0x0050, text=» RB(NL) BUI400 NO!«, t00=0x003e, t01=0x0160}
0x0624e…0628c Head {h00=0x003a, h01=0x0050, text=»* LOAD REGISTER A7 WITH FIRST FREE ENTRY AFTER TIDTAB «, t00=0x003e, t01=0x017a}
0x0628c…062d0 Head {h00=0x0040, h01=0x0050, text=»* AND ADD NUMBER OF CURRENT TASKS IN CURRENT ENTRY OF SHTAB1«, t00=0x003f, t01=0x0028}
0x062d0…062e4 Head {h00=0x0010, h01=0x0050, text=»BUI500 EQU *«, t00=0x003f, t01=0x006c}
0x062e4…0631c Head {h00=0x0034, h01=0x0050, text=» LDR A7,A5 LOAD START ENTRY OF CURRENT TASKS IN «, t00=0x003f, t01=0x0080}
0x0631c…0632e Head {h00=0x000e, h01=0x0050, text=» TIDTAB «, t00=0x003f, t01=0x00b8}
0x0632e…06362 Head {h00=0x0030, h01=0x0050, text=» ADR A7,A2 ADD NUMBER OF BYTES AFTER CURRENT«, t00=0x003f, t01=0x00ca}
0x06362…06388 Head {h00=0x0022, h01=0x0050, text=» ADR A7,A2 TASKNAMES IN TIDTAB«, t00=0x003f, t01=0x00fe}
0x06388…063b8 Head {h00=0x002c, h01=0x0050, text=» ADR A7,A4 FIRST FREE ENTRY AFTER TIDTAB«, t00=0x003f, t01=0x0124}
0x063b8…063e2 Head {h00=0x0026, h01=0x0050, text=» SRL A4,1 (2*(NUMBER OF TASKS))/2 «, t00=0x003f, t01=0x0154}
0x063e2…06416 Head {h00=0x0030, h01=0x0050, text=» ADRS A4,A6 ADD NUMBER OF CURRENT TASKS,FOR «, t00=0x003f, t01=0x017e}
0x06416…06436 Head {h00=0x001c, h01=0x0050, text=» CURRENT TCL IN SHTAB1«, t00=0x0040, t01=0x0022}
0x06436…06460 Head {h00=0x0026, h01=0x0050, text=»* PUT CURRENT TASK ID:S IN TIDTAB «, t00=0x0040, t01=0x0042}
0x06460…06494 Head {h00=0x0030, h01=0x0050, text=» LD A1,SHADST+STKEND GET MONITOR END ADDRESS«, t00=0x0040, t01=0x006c}
0x06494…064b8 Head {h00=0x0020, h01=0x0050, text=» ADR A1,A8 ADD SHTAB1 LENGTH«, t00=0x0040, t01=0x00a0}
0x064b8…064dc Head {h00=0x0020, h01=0x0050, text=» ADR A1,A8 ADD SHTAB2 LENGTH«, t00=0x0040, t01=0x00c4}
0x064dc…06504 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A8 TIDTAB START ADDRESS «, t00=0x0040, t01=0x00e8}
0x06504…0652a Head {h00=0x0022, h01=0x0050, text=» ADK A1,2 FIRST TID IN TIDTAB «, t00=0x0040, t01=0x0110}
0x0652a…0653e Head {h00=0x0010, h01=0x0050, text=»BUI600 EQU *«, t00=0x0040, t01=0x0136}
0x0653e…0656a Head {h00=0x0028, h01=0x0050, text=» LDR A6,A1 GET TIDTAB START ADDRESS «, t00=0x0040, t01=0x014a}
0x0656a…0657e Head {h00=0x0010, h01=0x0050, text=»BUI700 EQU *«, t00=0x0040, t01=0x0176}
0x0657e…065b2 Head {h00=0x0030, h01=0x0050, text=» CWR A6,A5 ALL TID:S OF UPPER PART IN TIDTAB«, t00=0x0040, t01=0x018a}
0x065b2…065c6 Head {h00=0x0010, h01=0x0050, text=» SHECKED? «, t00=0x0041, t01=0x002e}
0x065c6…065e0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BUI800 NO!«, t00=0x0041, t01=0x0042}
0x065e0…06608 Head {h00=0x0024, h01=0x0050, text=» ADR A6,A4 FIRST TIDTAB ENTRY OF«, t00=0x0041, t01=0x005c}
0x06608…06626 Head {h00=0x001a, h01=0x0050, text=» ADR A6,A4 LOWER PART «, t00=0x0041, t01=0x0084}
0x06626…0663a Head {h00=0x0010, h01=0x0050, text=»BUI800 EQU *«, t00=0x0041, t01=0x00a2}
0x0663a…0666e Head {h00=0x0030, h01=0x0050, text=» CWR A6,A7 ALL TID:S OF LOWER PART IN TIDTAB«, t00=0x0041, t01=0x00b6}
0x0666e…06682 Head {h00=0x0010, h01=0x0050, text=» SHECKED? «, t00=0x0041, t01=0x00ea}
0x06682…0669c Head {h00=0x0016, h01=0x0050, text=» RF(E) BUI950 YES!«, t00=0x0041, t01=0x00fe}
0x0669c…066ca Head {h00=0x002a, h01=0x0050, text=» CWR* A3,A6 TID ALREADY CONFIGURATED? «, t00=0x0041, t01=0x0118}
0x066ca…066e4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BUI900 NO!«, t00=0x0041, t01=0x0146}
0x066e4…0670c Head {h00=0x0024, h01=0x0050, text=» LDKL A1,LMP4 YES! FORMAT ERROR «, t00=0x0041, t01=0x0160}
0x0670c…06720 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0041, t01=0x0188}
0x06720…06734 Head {h00=0x0010, h01=0x0050, text=»BUI900 EQU *«, t00=0x0042, t01=0x000c}
0x06734…0675a Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 NEXT ENTRY IN TIDTAB«, t00=0x0042, t01=0x0020}
0x0675a…0676c Head {h00=0x000e, h01=0x0050, text=» RB BUI700«, t00=0x0042, t01=0x0046}
0x0676c…06780 Head {h00=0x0010, h01=0x0050, text=»BUI950 EQU *«, t00=0x0042, t01=0x0058}
0x06780…067a4 Head {h00=0x0020, h01=0x0050, text=» STR A3,A5 PUT TID IN TIDTAB«, t00=0x0042, t01=0x006c}
0x067a4…067d4 Head {h00=0x002c, h01=0x0050, text=» ADK A5,2 ADJUST UPPER PART END ADDRESS «, t00=0x0042, t01=0x0090}
0x067d4…067f8 Head {h00=0x0020, h01=0x0050, text=» ADK A3,1 GENERATE NEXT TID «, t00=0x0042, t01=0x00c0}
0x067f8…0682c Head {h00=0x0030, h01=0x0050, text=» SUK A4,1 HAVE ALL CURRENT TID:S BEEN CONF. «, t00=0x0042, t01=0x00e4}
0x0682c…06846 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BUI600 NO!«, t00=0x0042, t01=0x0118}
0x06846…06856 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0042, t01=0x0132}
0x06856…06864 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0142}
0x06864…06896 Head {h00=0x002e, h01=0x0050, text=»* L I M T G C * «, t00=0x0042, t01=0x0150}
0x06896…068c8 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0042, t01=0x0182}
0x068c8…068fa Head {h00=0x002e, h01=0x0050, text=»* FIND START-ADR, END-ADR, LENGTH OF * «, t00=0x0043, t01=0x0024}
0x068fa…0692c Head {h00=0x002e, h01=0x0050, text=»* ICB-PLTGC BLOCK * «, t00=0x0043, t01=0x0056}
0x0692c…0695e Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0043, t01=0x0088}
0x0695e…06990 Head {h00=0x002e, h01=0x0050, text=»* INPUT:A10=POINTER TO CURRENT APPL * «, t00=0x0043, t01=0x00ba}
0x06990…069c2 Head {h00=0x002e, h01=0x0050, text=»* SAVE AREA IN SCHRATCH-PAD * «, t00=0x0043, t01=0x00ec}
0x069c2…069f4 Head {h00=0x002e, h01=0x0050, text=»* SHADOW=START OF SHADOW TABLES * «, t00=0x0043, t01=0x011e}
0x069f4…06a26 Head {h00=0x002e, h01=0x0050, text=»* FOR CURRENT APPL. * «, t00=0x0043, t01=0x0150}
0x06a26…06a58 Head {h00=0x002e, h01=0x0050, text=»* OUTPUT:PLTGCS= START ADR OF ICB-PLTGC * «, t00=0x0043, t01=0x0182}
0x06a58…06a8a Head {h00=0x002e, h01=0x0050, text=»* PLTGCE= END ADR OF ICB-PLTGC * «, t00=0x0044, t01=0x0024}
0x06a8a…06abc Head {h00=0x002e, h01=0x0050, text=»* PLTGCL= LENGTH OF ICB-PLTGC * «, t00=0x0044, t01=0x0056}
0x06abc…06aee Head {h00=0x002e, h01=0x0050, text=»* WORKREGS: A1-A7,A9,A11 * «, t00=0x0044, t01=0x0088}
0x06aee…06b20 Head {h00=0x002e, h01=0x0050, text=»* WORKAREA:USES MONITOR BLOCKS AS STACK * «, t00=0x0044, t01=0x00ba}
0x06b20…06b52 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0044, t01=0x00ec}
0x06b52…06b84 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0044, t01=0x011e}
0x06b84…06b8c Head {h00=0x0004, h01=0x0050, t00=0x0044, t01=0x0150}
0x06b8c…06ba0 Head {h00=0x0010, h01=0x0050, text=»LIMTGC EQU *«, t00=0x0044, t01=0x0158}
0x06ba0…06bc8 Head {h00=0x0024, h01=0x0050, text=» LD A1,SHADOW,A10 SHTAB1 ADDRESS«, t00=0x0044, t01=0x016c}
0x06bc8…06bf6 (69, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LD A7,FREQUE GET MONITOR BLOCK ADDR. «, t00=0x0045, t01=0x0004}
0x06bf6…06c18 Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A1 SHTAB1 LENGTH «, t00=0x0045, t01=0x0032}
0x06c18…06c3a Head {h00=0x001e, h01=0x0050, text=» ADR A1,A2 SHTAB2 ADDRESS «, t00=0x0045, t01=0x0054}
0x06c3a…06c4e Head {h00=0x0010, h01=0x0050, text=»LIMTG0 EQU *«, t00=0x0045, t01=0x0076}
0x06c4e…06c60 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0045, t01=0x008a}
0x06c60…06c7e Head {h00=0x001a, h01=0x0050, text=» RF(Z) LIMTG5 ALL DONE«, t00=0x0045, t01=0x009c}
0x06c7e…06c9c Head {h00=0x001a, h01=0x0050, text=» ADK A1,2 STEP SHTAB2 «, t00=0x0045, t01=0x00ba}
0x06c9c…06cbc Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A1 ADR TO ITCT «, t00=0x0045, t01=0x00d8}
0x06cbc…06cf6 Head {h00=0x0036, h01=0x0050, text=» EL A3,ITCTGC,A3 ADR TO ICB-PLTGC OF MAIN PROGRAM «, t00=0x0045, t01=0x00f8}
0x06cf6…06d0a Head {h00=0x0010, h01=0x0050, text=»LIMTG1 EQU *«, t00=0x0045, t01=0x0132}
0x06d0a…06d30 Head {h00=0x0022, h01=0x0050, text=» LDK A5,0 SET LEVEL TO 0(ZERO)«, t00=0x0045, t01=0x0146}
0x06d30…06d6a Head {h00=0x0036, h01=0x0050, text=» CALL LIMTG2 UPDATE LIMITS FOR ICB-PLTGC'S RELATED«, t00=0x0045, t01=0x016c}
0x06d6a…06d82 Head {h00=0x0014, h01=0x0050, text=» TO THIS CLASS«, t00=0x0046, t01=0x0016}
0x06d82…06d9e Head {h00=0x0018, h01=0x0050, text=» RB LIMTG0 NEXT TCL «, t00=0x0046, t01=0x002e}
0x06d9e…06dac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x004a}
0x06dac…06db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0058}
0x06db6…06dde Head {h00=0x0024, h01=0x0050, text=»* UPDATE LIMITS FOR ICB-PLTGC'S «, t00=0x0046, t01=0x0062}
0x06dde…06e06 Head {h00=0x0024, h01=0x0050, text=»* RELATED TO ONE TERMINAL-CLASS «, t00=0x0046, t01=0x008a}
0x06e06…06e10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00b2}
0x06e10…06e24 Head {h00=0x0010, h01=0x0050, text=»LIMTG2 EQU *«, t00=0x0046, t01=0x00bc}
0x06e24…06e46 Head {h00=0x001e, h01=0x0050, text=» CALL LIMUPD UPDATE LIMITS«, t00=0x0046, t01=0x00d0}
0x06e46…06e74 Head {h00=0x002a, h01=0x0050, text=» ELR A4,A3 GET FIRST WORD IN ICB-PLTGC«, t00=0x0046, t01=0x00f2}
0x06e74…06ea6 Head {h00=0x002e, h01=0x0050, text=» ADKL A4,/100 INDICATE LIMIT-CONTROL-INIT «, t00=0x0046, t01=0x0120}
0x06ea6…06ec8 Head {h00=0x001e, h01=0x0050, text=» ESR A4,A3 SET INDICATION «, t00=0x0046, t01=0x0152}
0x06ec8…06efe Head {h00=0x0032, h01=0x0050, text=» EL A4,TGCCAL,A3 GET NBR OF CALL-TABLE ENTRIES«, t00=0x0046, t01=0x0174}
0x06efe…06f12 Head {h00=0x0010, h01=0x0050, text=»LIMTG3 EQU *«, t00=0x0047, t01=0x001a}
0x06f12…06f3a Head {h00=0x0024, h01=0x0050, text=» RF(Z) LIMTG4 NO ENTRIES (LEFT) «, t00=0x0047, t01=0x002e}
0x06f3a…06f6a Head {h00=0x002c, h01=0x0050, text=» ST A4,2,A7 SAVE NBR.OF ENTRIES ON STACK«, t00=0x0047, t01=0x0056}
0x06f6a…06f9a Head {h00=0x002c, h01=0x0050, text=» ST A3,4,A7 SAVE ENTRY ADDRESS ON STACK «, t00=0x0047, t01=0x0086}
0x06f9a…06fc6 Head {h00=0x0028, h01=0x0050, text=» LDR* A7,A7 ADJUST STACK POINTER =2 «, t00=0x0047, t01=0x00b6}
0x06fc6…06ff4 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) LIMT35 MORE BLOCKS AVILABLE =2«, t00=0x0047, t01=0x00e2}
0x06ff4…07020 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,NOBLK NO BLOCKS AVILABLE =2«, t00=0x0047, t01=0x0110}
0x07020…07038 Head {h00=0x0014, h01=0x0050, text=» CALL ERROR =2 «, t00=0x0047, t01=0x013c}
0x07038…07050 Head {h00=0x0014, h01=0x0050, text=»LIMT35 EQU * =2«, t00=0x0047, t01=0x0154}
0x07050…0706e Head {h00=0x001a, h01=0x0050, text=» ADK A5,1 ADJUST LEVEL«, t00=0x0047, t01=0x016c}
0x0706e…07090 Head {h00=0x001e, h01=0x0050, text=» SLL A4,1 *2 TABLE LENGTH «, t00=0x0047, t01=0x018a}
0x07090…070ac Head {h00=0x0018, h01=0x0050, text=» ADR A4,A3 ADD BASE «, t00=0x0048, t01=0x001c}
0x070ac…070de Head {h00=0x002e, h01=0x0050, text=» ADK A4,TGCCAL ADD CALL-TABLE DISPLACEMENT«, t00=0x0048, t01=0x0038}
0x070de…0710e Head {h00=0x002c, h01=0x0050, text=» ELR A3,A4 GET ICB-PLTGC ADDRESS CALLED «, t00=0x0048, t01=0x006a}
0x0710e…0713c Head {h00=0x002a, h01=0x0050, text=» ELR A4,A3 GET THAT FIRST WORD CONTENT«, t00=0x0048, t01=0x009a}
0x0713c…07164 Head {h00=0x0024, h01=0x0050, text=» SRL A4,8 ONLY FIRST BYTE VALID «, t00=0x0048, t01=0x00c8}
0x07164…07184 Head {h00=0x001c, h01=0x0050, text=» SUK A4,/60 FIRST TIME ?«, t00=0x0048, t01=0x00f0}
0x07184…0719e Head {h00=0x0016, h01=0x0050, text=» RB(Z) LIMTG2 YES «, t00=0x0048, t01=0x0110}
0x0719e…071ca Head {h00=0x0028, h01=0x0050, text=» LD A4,-4,A7 GET NBR OF ENTRIES LEFT«, t00=0x0048, t01=0x012a}
0x071ca…071de Head {h00=0x0010, h01=0x0050, text=»LIMTG4 EQU *«, t00=0x0048, t01=0x0156}
0x071de…0720a Head {h00=0x0028, h01=0x0050, text=» SUK A4,1 COUNT NBR OF ENTRIES LEFT «, t00=0x0048, t01=0x016a}
0x0720a…0722c Head {h00=0x001e, h01=0x0050, text=» RB(P) LIMTG3 ENTRIES LEFT«, t00=0x0049, t01=0x0008}
0x0722c…0724a Head {h00=0x001a, h01=0x0050, text=» SUK A5,1 ADJUST LEVEL«, t00=0x0049, t01=0x002a}
0x0724a…0727a Head {h00=0x002c, h01=0x0050, text=» RF(N) LIMTGX END OF THIS TERMINAL CLASS«, t00=0x0049, t01=0x0048}
0x0727a…072a0 Head {h00=0x0022, h01=0x0050, text=» SUK A7,6 ADJUST STACK-POINTER«, t00=0x0049, t01=0x0078}
0x072a0…072c8 Head {h00=0x0024, h01=0x0050, text=» LD A4,2,A7 NBR.OF ENTRIES LEFT «, t00=0x0049, t01=0x009e}
0x072c8…072ea Head {h00=0x001e, h01=0x0050, text=» LD A3,4,A7 ENTRY ADDRESS «, t00=0x0049, t01=0x00c6}
0x072ea…07306 Head {h00=0x0018, h01=0x0050, text=» RB LIMTG4 CONTINUE «, t00=0x0049, t01=0x00e8}
0x07306…0731a Head {h00=0x0010, h01=0x0050, text=»LIMTG5 EQU *«, t00=0x0049, t01=0x0104}
0x0731a…0734a Head {h00=0x002c, h01=0x0050, text=» LD A3,PLTGCE,A10 PNTR TO LAST ICB-PLTGC«, t00=0x0049, t01=0x0118}
0x0734a…07376 Head {h00=0x0028, h01=0x0050, text=» EL A4,8,A3 NBR OF CALL-TAB ENTRIES «, t00=0x0049, t01=0x0148}
0x07376…07394 Head {h00=0x001a, h01=0x0050, text=» SLL A4,1 NBR OF BYTES«, t00=0x0049, t01=0x0174}
0x07394…073b0 (74, 0, 400) Head {h00=0x0018, h01=0x0050, text=» ADR A4,A3 ADD BASE «, t00=0x004a, t01=0x0004}
0x073b0…073d2 Head {h00=0x001e, h01=0x0050, text=» ADK A4,10 ADD TABLE DISPL«, t00=0x004a, t01=0x0020}
0x073d2…073f8 Head {h00=0x0022, h01=0x0050, text=» ST A4,PLTGCE,A10 SAVE END ADR«, t00=0x004a, t01=0x0042}
0x073f8…07424 Head {h00=0x0028, h01=0x0050, text=» SU A4,PLTGCS,A10 -(MINUS) START ADR«, t00=0x004a, t01=0x0068}
0x07424…0744a Head {h00=0x0022, h01=0x0050, text=» ST A4,PLTGCL,A10 SAVE LENGTH «, t00=0x004a, t01=0x0094}
0x0744a…0745e Head {h00=0x0010, h01=0x0050, text=»LIMTGX EQU *«, t00=0x004a, t01=0x00ba}
0x0745e…0746e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004a, t01=0x00ce}
0x0746e…0747c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x00de}
0x0747c…07486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00ec}
0x07486…074a8 Head {h00=0x001e, h01=0x0050, text=»* UPDATE ICB-PLTGC LIMITS «, t00=0x004a, t01=0x00f6}
0x074a8…074b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0118}
0x074b2…074d4 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A3=ICB-PLTGC ADR «, t00=0x004a, t01=0x0122}
0x074d4…074de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0144}
0x074de…074f2 Head {h00=0x0010, h01=0x0050, text=»LIMUPD EQU *«, t00=0x004a, t01=0x014e}
0x074f2…07514 Head {h00=0x001e, h01=0x0050, text=» LDR A11,A3 ICB-PLTGC ADR «, t00=0x004a, t01=0x0162}
0x07514…07544 Head {h00=0x002c, h01=0x0050, text=» LD A9,PLTGCS,A10 GET CURRENT START ADR «, t00=0x004a, t01=0x0184}
0x07544…07568 Head {h00=0x0020, h01=0x0050, text=» CALL CMPADR CHECK ADDRESSES«, t00=0x004b, t01=0x0024}
0x07568…07592 Head {h00=0x0026, h01=0x0050, text=» RF(NL) LIMUP1 OLD START ADR VALID«, t00=0x004b, t01=0x0048}
0x07592…075be Head {h00=0x0028, h01=0x0050, text=» ST A3,PLTGCS,A10 SET NEW START ADR «, t00=0x004b, t01=0x0072}
0x075be…075d2 Head {h00=0x0010, h01=0x0050, text=»LIMUP1 EQU *«, t00=0x004b, t01=0x009e}
0x075d2…07600 Head {h00=0x002a, h01=0x0050, text=» LD A9,PLTGCE,A10 GET CURRENT END ADR «, t00=0x004b, t01=0x00b2}
0x07600…07624 Head {h00=0x0020, h01=0x0050, text=» CALL CMPADR CHECK ADDRESSES«, t00=0x004b, t01=0x00e0}
0x07624…0764c Head {h00=0x0024, h01=0x0050, text=» RF(L) LIMUP2 OLD END ADR VALID «, t00=0x004b, t01=0x0104}
0x0764c…07676 Head {h00=0x0026, h01=0x0050, text=» ST A3,PLTGCE,A10 SET NEW END ADR «, t00=0x004b, t01=0x012c}
0x07676…0768a Head {h00=0x0010, h01=0x0050, text=»LIMUP2 EQU *«, t00=0x004b, t01=0x0156}
0x0768a…0769a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004b, t01=0x016a}
0x0769a…076a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x017a}
0x076a8…076d4 Head {h00=0x0028, h01=0x0050, text=»* R E L O C * «, t00=0x004b, t01=0x0188}
0x076d4…07700 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x004c, t01=0x0024}
0x07700…0772c Head {h00=0x0028, h01=0x0050, text=»* RELOCATE AN ADDRESS * «, t00=0x004c, t01=0x0050}
0x0772c…07758 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x004c, t01=0x007c}
0x07758…07784 Head {h00=0x0028, h01=0x0050, text=»* INPUT: A3 ADDRESS POINTER * «, t00=0x004c, t01=0x00a8}
0x07784…077b0 Head {h00=0x0028, h01=0x0050, text=»* A6 RELOCATION INCREMENT * «, t00=0x004c, t01=0x00d4}
0x077b0…077dc Head {h00=0x0028, h01=0x0050, text=»* WORK: A10 * «, t00=0x004c, t01=0x0100}
0x077dc…07808 Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x004c, t01=0x012c}
0x07808…07810 Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x0158}
0x07810…07824 Head {h00=0x0010, h01=0x0050, text=»RELOC EQU * «, t00=0x004c, t01=0x0160}
0x07824…07850 Head {h00=0x0028, h01=0x0050, text=» ST A10,SAVE05+STKEND SAVE REGISTER «, t00=0x004c, t01=0x0174}
0x07850…07870 Head {h00=0x001c, h01=0x0050, text=» ELR A10,A3 GET ADDRESS «, t00=0x004d, t01=0x0010}
0x07870…07890 Head {h00=0x001c, h01=0x0050, text=» ADR A10,A6 RELOCATE IT «, t00=0x004d, t01=0x0030}
0x07890…078b8 Head {h00=0x0024, h01=0x0050, text=» ESR A10,A3 RESTORE NEW ADDRESS «, t00=0x004d, t01=0x0050}
0x078b8…078e6 Head {h00=0x002a, h01=0x0050, text=» LD A10,SAVE05+STKEND RELOAD REGISTER «, t00=0x004d, t01=0x0078}
0x078e6…078f6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004d, t01=0x00a6}
0x078f6…07904 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x00b6}
0x07904…0793a Head {h00=0x0032, h01=0x0050, text=»* L E N C O U *«, t00=0x004d, t01=0x00c4}
0x0793a…07970 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x004d, t01=0x00fa}
0x07970…079a6 Head {h00=0x0032, h01=0x0050, text=»* COUNT LENGTH OF SHTAB1,AND COUNT NUMBER OF *«, t00=0x004d, t01=0x0130}
0x079a6…079dc Head {h00=0x0032, h01=0x0050, text=»* TASKS *«, t00=0x004d, t01=0x0166}
0x079dc…07a12 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x004e, t01=0x000c}
0x07a12…07a48 Head {h00=0x0032, h01=0x0050, text=»* INPUT : A11=CONFIGURATION START *«, t00=0x004e, t01=0x0042}
0x07a48…07a7e Head {h00=0x0032, h01=0x0050, text=»* SHADST=START OF SHADOW TABLES FOR *«, t00=0x004e, t01=0x0078}
0x07a7e…07ab4 Head {h00=0x0032, h01=0x0050, text=»* CURRENT APPLICATION *«, t00=0x004e, t01=0x00ae}
0x07ab4…07aea Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x004e, t01=0x00e4}
0x07aea…07b20 Head {h00=0x0032, h01=0x0050, text=»* OUTPUT: A6=TOTAL NUMBER OF TASKS *«, t00=0x004e, t01=0x011a}
0x07b20…07b56 Head {h00=0x0032, h01=0x0050, text=»* A7=SHTAB1 LENGTH IN BYTES *«, t00=0x004e, t01=0x0150}
0x07b56…07b8c Head {h00=0x0032, h01=0x0050, text=»* SHADST=START OF SHADOW TABLES FOR *«, t00=0x004e, t01=0x0186}
0x07b8c…07bc2 Head {h00=0x0032, h01=0x0050, text=»* CURRENT APPLICATION *«, t00=0x004f, t01=0x002c}
0x07bc2…07bf8 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x004f, t01=0x0062}
0x07bf8…07c2e Head {h00=0x0032, h01=0x0050, text=»* WORK REGISTERS: A1,A3-A5 *«, t00=0x004f, t01=0x0098}
0x07c2e…07c64 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x004f, t01=0x00ce}
0x07c64…07c9a Head {h00=0x0032, h01=0x0050, text=»* WORK TABLE: TEMPORARY TABLE WITH TCL *«, t00=0x004f, t01=0x0104}
0x07c9a…07cd0 Head {h00=0x0032, h01=0x0050, text=»* NAMES AFTER START OF FREE *«, t00=0x004f, t01=0x013a}
0x07cd0…07d06 Head {h00=0x0032, h01=0x0050, text=»* AREA *«, t00=0x004f, t01=0x0170}
0x07d06…07d3c Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x0050, t01=0x0016}
0x07d3c…07d72 Head {h00=0x0032, h01=0x0050, text=»* SUBRUTINES: NXTBLK *«, t00=0x0050, t01=0x004c}
0x07d72…07da8 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x0050, t01=0x0082}
0x07da8…07dde Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0050, t01=0x00b8}
0x07dde…07df2 Head {h00=0x0010, h01=0x0050, text=»LENCOU EQU *«, t00=0x0050, t01=0x00ee}
0x07df2…07e1c Head {h00=0x0026, h01=0x0050, text=» LDK A7,2 TABLE LENGTH-WORD LENGTH«, t00=0x0050, t01=0x0102}
0x07e1c…07e40 Head {h00=0x0020, h01=0x0050, text=» LDK A6,0 TOTAL NBR OF TASKS«, t00=0x0050, t01=0x012c}
0x07e40…07e7a Head {h00=0x0036, h01=0x0050, text=» CM* SHADST+STKEND CLEAR FIRST ENTRY OF TEMPORARY «, t00=0x0050, t01=0x0150}
0x07e7a…07e8a Head {h00=0x000c, h01=0x0050, text=» TABLE«, t00=0x0050, t01=0x018a}
0x07e8a…07ec4 Head {h00=0x0036, h01=0x0050, text=»* SHECK IF CURRENT TCL NAME ALREADY HAS APEARED IN«, t00=0x0051, t01=0x000a}
0x07ec4…07efc Head {h00=0x0034, h01=0x0050, text=»* CONFIGURATION FILE , AND IF SO DON'T INCREMENT«, t00=0x0051, t01=0x0044}
0x07efc…07f36 Head {h00=0x0036, h01=0x0050, text=»* SHTAB1 LENGTH AND PUT CURRENT TCL NAME IN TEMPO-«, t00=0x0051, t01=0x007c}
0x07f36…07f4a Head {h00=0x0010, h01=0x0050, text=»* RARY TABLE«, t00=0x0051, t01=0x00b6}
0x07f4a…07f5e Head {h00=0x0010, h01=0x0050, text=»LEN100 EQU *«, t00=0x0051, t01=0x00ca}
0x07f5e…07f78 Head {h00=0x0016, h01=0x0050, text=» LC A3,TDBMC+4,A11«, t00=0x0051, t01=0x00de}
0x07f78…07f8a Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x0051, t01=0x00f8}
0x07f8a…07fbe Head {h00=0x0030, h01=0x0050, text=» LC A3,TDBMC+5,A11 TCL NAME OF CURRENT TASK «, t00=0x0051, t01=0x010a}
0x07fbe…07fd8 Head {h00=0x0016, h01=0x0050, text=» TASK DEF. BLOCK«, t00=0x0051, t01=0x013e}
0x07fd8…0800e Head {h00=0x0032, h01=0x0050, text=» LD A1,SHADST+STKEND ADDRESS TO FIRST ENTRY IN«, t00=0x0051, t01=0x0158}
0x0800e…08028 Head {h00=0x0016, h01=0x0050, text=» TEMPORARY TABLE«, t00=0x0051, t01=0x018e}
0x08028…0804a Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A1 FIRST ENTRY=0?«, t00=0x0052, t01=0x0018}
0x0804a…08064 Head {h00=0x0016, h01=0x0050, text=» RF(Z) LEN300 YES!«, t00=0x0052, t01=0x003a}
0x08064…08078 Head {h00=0x0010, h01=0x0050, text=»LEN200 EQU *«, t00=0x0052, t01=0x0054}
0x08078…080a6 Head {h00=0x002a, h01=0x0050, text=» CWR A4,A3 TCL NAME IN TEMPORARY TABLE«, t00=0x0052, t01=0x0068}
0x080a6…080c0 Head {h00=0x0016, h01=0x0050, text=» RF(E) LEN400 YES!«, t00=0x0052, t01=0x0096}
0x080c0…080f0 Head {h00=0x002c, h01=0x0050, text=» ADK A1,2 NEXT ENTRY IN TEMPORARY TABLE «, t00=0x0052, t01=0x00b0}
0x080f0…0810c Head {h00=0x0018, h01=0x0050, text=» LDR* A4,A1 ENTRY=0?«, t00=0x0052, t01=0x00e0}
0x0810c…08126 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) LEN200 NO!«, t00=0x0052, t01=0x00fc}
0x08126…0813a Head {h00=0x0010, h01=0x0050, text=»LEN300 EQU *«, t00=0x0052, t01=0x0116}
0x0813a…0816c Head {h00=0x002e, h01=0x0050, text=» ADK A7,2 COUNT NUMBER OF BYTES IN SHTAB1 «, t00=0x0052, t01=0x012a}
0x0816c…08196 Head {h00=0x0026, h01=0x0050, text=» STR A3,A1 PUT CURRENT TCL NAME IN«, t00=0x0052, t01=0x015c}
0x08196…081b0 Head {h00=0x0016, h01=0x0050, text=» TEMPORARY TABLE«, t00=0x0052, t01=0x0186}
0x081b0…081e0 Head {h00=0x002c, h01=0x0050, text=» ADK A1,2 NEXT ENTRY IN TEMPORARY TABLE «, t00=0x0053, t01=0x0010}
0x081e0…081f8 Head {h00=0x0014, h01=0x0050, text=» CMR A1 CLEAR IT«, t00=0x0053, t01=0x0040}
0x081f8…08234 Head {h00=0x0038, h01=0x0050, text=»* COUNT TOTAL NUMBER OF TASKS AND GET START OF NEXT «, t00=0x0053, t01=0x0058}
0x08234…0824e Head {h00=0x0016, h01=0x0050, text=»* TASK DEF. BLOCK «, t00=0x0053, t01=0x0094}
0x0824e…08262 Head {h00=0x0010, h01=0x0050, text=»LEN400 EQU *«, t00=0x0053, t01=0x00ae}
0x08262…0828e Head {h00=0x0028, h01=0x0050, text=» LC A4,TDBNT+1,A11 NBR OF COPIES /2 «, t00=0x0053, t01=0x00c2}
0x0828e…082a0 Head {h00=0x000e, h01=0x0050, text=» SRC A4,4 «, t00=0x0053, t01=0x00ee}
0x082a0…082ca Head {h00=0x0026, h01=0x0050, text=» LC A4,TDBNT,A11 NBR OF COPIES /1 «, t00=0x0053, t01=0x0100}
0x082ca…082dc Head {h00=0x000e, h01=0x0050, text=» SLC A4,12«, t00=0x0053, t01=0x012a}
0x082dc…0830a Head {h00=0x002a, h01=0x0050, text=» SRL A4,8 BINARY VALUE (NBR OF COPIES)«, t00=0x0053, t01=0x013c}
0x0830a…0832a Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 NBR OF COPIES«, t00=0x0053, t01=0x016a}
0x0832a…08358 Head {h00=0x002a, h01=0x0050, text=» RF(Z) LEN500 NO COPY , TRY NEXT BLOCK«, t00=0x0053, t01=0x018a}
0x08358…08384 Head {h00=0x0028, h01=0x0050, text=» ADR A6,A4 COUNT TOTAL NBR OF TASKS «, t00=0x0054, t01=0x0028}
0x08384…08398 Head {h00=0x0010, h01=0x0050, text=»LEN500 EQU *«, t00=0x0054, t01=0x0054}
0x08398…083c0 Head {h00=0x0024, h01=0x0050, text=» CALL NXTBLK NEXT CONFIG.-BLOCK «, t00=0x0054, t01=0x0068}
0x083c0…083e6 Head {h00=0x0022, h01=0x0050, text=» CCK A2,'TT' TASK DEF. BLOCK? «, t00=0x0054, t01=0x0090}
0x083e6…08410 Head {h00=0x0026, h01=0x0050, text=» RB(E) LEN100 NEXT TASK DEF. BLOCK«, t00=0x0054, t01=0x00b6}
0x08410…08420 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0054, t01=0x00e0}
0x08420…0842e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x00f0}
0x0842e…08436 Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x00fe}
0x08436…08468 Head {h00=0x002e, h01=0x0050, text=»* S Y S L C O *«, t00=0x0054, t01=0x0106}
0x08468…0849a Head {h00=0x002e, h01=0x0050, text=»* *«, t00=0x0054, t01=0x0138}
0x0849a…084cc Head {h00=0x002e, h01=0x0050, text=»* ENTRY FOR COBOL APPLICATION CONFIG *«, t00=0x0054, t01=0x016a}
0x084cc…084fe Head {h00=0x002e, h01=0x0050, text=»* *«, t00=0x0055, t01=0x000c}
0x084fe…08530 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0055, t01=0x003e}
0x08530…08538 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0070}
0x08538…08544 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0055, t01=0x0078}
0x08544…08550 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0055, t01=0x0084}
0x08550…08564 Head {h00=0x0010, h01=0x0050, text=»START1 EQU *«, t00=0x0055, t01=0x0090}
0x08564…08578 Head {h00=0x0010, h01=0x0050, text=»SYSLCO EQU *«, t00=0x0055, t01=0x00a4}
0x08578…08582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00b8}
0x08582…0859c Head {h00=0x0016, h01=0x0050, text=»* INIT A15 STACK «, t00=0x0055, t01=0x00c2}
0x0859c…085a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00dc}
0x085a6…085bc Head {h00=0x0012, h01=0x0050, text=» LD A15,SCTSTB«, t00=0x0055, t01=0x00e6}
0x085bc…085d0 Head {h00=0x0010, h01=0x0050, text=» SUKL A15,4 «, t00=0x0055, t01=0x00fc}
0x085d0…085d8 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x0110}
0x085d8…085e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x0118}
0x085e4…085fa Head {h00=0x0012, h01=0x0050, text=» IFT TESTMM=2 «, t00=0x0055, t01=0x0124}
0x085fa…08620 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0055, t01=0x013a}
0x08620…0862a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0160}
0x0862a…08648 Head {h00=0x001a, h01=0x0050, text=»* TEST VERSION (DEBUG)«, t00=0x0055, t01=0x016a}
0x08648…08652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0188}
0x08652…0865a (86, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0004}
0x0865a…08680 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTBUG DEBUGGER ADDRESS«, t00=0x0056, t01=0x000c}
0x08680…0869c Head {h00=0x0018, h01=0x0050, text=» LD A13,M:REL+STKCOM«, t00=0x0056, t01=0x0032}
0x0869c…086c6 Head {h00=0x0026, h01=0x0050, text=» ADKL A13,TEST1 SET RETURN ADDRESS«, t00=0x0056, t01=0x004e}
0x086c6…086f2 Head {h00=0x0028, h01=0x0050, text=» ABR(NZ) A2 JUMP IF DEBUG IN SYSTEM «, t00=0x0056, t01=0x0078}
0x086f2…086fa Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00a4}
0x086fa…0870e Head {h00=0x0010, h01=0x0050, text=»TEST1 EQU * «, t00=0x0056, t01=0x00ac}
0x0870e…08734 Head {h00=0x0022, h01=0x0050, text=» LDR A8,P GET PROGRAM-POINTER «, t00=0x0056, t01=0x00c0}
0x08734…08762 Head {h00=0x002a, h01=0x0050, text=» LDKL A5,REL+2 GET START OF RELOCATION«, t00=0x0056, t01=0x00e6}
0x08762…08774 Head {h00=0x000e, h01=0x0050, text=» ROUTINE«, t00=0x0056, t01=0x0114}
0x08774…087a4 Head {h00=0x002c, h01=0x0050, text=» AD A5,M:REL+STKCOM ADD RELOCATION BASE «, t00=0x0056, t01=0x0126}
0x087a4…087b6 Head {h00=0x000e, h01=0x0050, text=» CFR A8,A5«, t00=0x0056, t01=0x0156}
0x087b6…087be Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0168}
0x087be…087c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0170}
0x087c8…087d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x017a}
0x087d2…087f8 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0056, t01=0x0184}
0x087f8…08800 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x001a}
0x08800…0880c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0022}
0x0880c…08822 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0057, t01=0x002e}
0x08822…0882a Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x0044}
0x0882a…08834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x004c}
0x08834…0885c Head {h00=0x0024, h01=0x0050, text=»* CLEAR SCRATCH-PAD AREA «, t00=0x0057, t01=0x0056}
0x0885c…08866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x007e}
0x08866…0889a Head {h00=0x0030, h01=0x0050, text=» LDKL A1,STKEND A1=START OF SCRATCH-PAD AREA«, t00=0x0057, t01=0x0088}
0x0889a…088b2 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,STKMOV «, t00=0x0057, t01=0x00bc}
0x088b2…088de Head {h00=0x0028, h01=0x0050, text=» SUK A2,2 A2=END OF SCRATCH-PAD AREA«, t00=0x0057, t01=0x00d4}
0x088de…088f2 Head {h00=0x0010, h01=0x0050, text=»SYA10 EQU * «, t00=0x0057, t01=0x0100}
0x088f2…08914 Head {h00=0x001e, h01=0x0050, text=» CMR A1 CLEAR MEMORY WORD «, t00=0x0057, t01=0x0114}
0x08914…0893a Head {h00=0x0022, h01=0x0050, text=» CWR A1,A2 ALL WORDS CLEARED? «, t00=0x0057, t01=0x0136}
0x0893a…08954 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA20 YES! «, t00=0x0057, t01=0x015c}
0x08954…08974 Head {h00=0x001c, h01=0x0050, text=» ADK A1,2 NO! NEXT WORD «, t00=0x0057, t01=0x0176}
0x08974…08986 Head {h00=0x000e, h01=0x0050, text=» RB SYA10 «, t00=0x0058, t01=0x0008}
0x08986…08990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x001a}
0x08990…089c2 Head {h00=0x002e, h01=0x0050, text=»* INITIATE REGISTERS AND VARIABLES «, t00=0x0058, t01=0x0024}
0x089c2…089cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0056}
0x089cc…089e0 Head {h00=0x0010, h01=0x0050, text=»SYA20 EQU * «, t00=0x0058, t01=0x0060}
0x089e0…08a16 Head {h00=0x0032, h01=0x0050, text=» LD A1,FYSPAG+STKCOM GET END OF FREE AREA PAGE«, t00=0x0058, t01=0x0074}
0x08a16…08a3e Head {h00=0x0024, h01=0x0050, text=» ST A1,SAEFA1+STKEND INIT SAEFA1«, t00=0x0058, t01=0x00aa}
0x08a3e…08a76 Head {h00=0x0034, h01=0x0050, text=» LD A1,LSTADR+STKCOM GET END OF FREE AREA DISP. «, t00=0x0058, t01=0x00d2}
0x08a76…08a9e Head {h00=0x0024, h01=0x0050, text=» ST A1,SAEFA2+STKEND INIT SAEFA2«, t00=0x0058, t01=0x010a}
0x08a9e…08ad2 Head {h00=0x0030, h01=0x0050, text=» CM APPLNO+STKCOM CLEAR APPL.NUMBER COUNTER «, t00=0x0058, t01=0x0132}
0x08ad2…08b08 Head {h00=0x0032, h01=0x0050, text=» LDKL A10,STKEND START OF 1:ST APPL. SAVE AREA«, t00=0x0058, t01=0x0166}
0x08b08…08b22 Head {h00=0x0016, h01=0x0050, text=» IN SCRATCH-PAD «, t00=0x0059, t01=0x000c}
0x08b22…08b5a Head {h00=0x0034, h01=0x0050, text=» LD A1,SCTSFA START ADR.TO SHTAB'S OF 1:ST APPL.«, t00=0x0059, t01=0x0026}
0x08b5a…08b96 Head {h00=0x0038, h01=0x0050, text=» ST A1,SHADST+STKEND SAVE START OF 1:ST SHADOW-TABLE«, t00=0x0059, t01=0x005e}
0x08b96…08bba Head {h00=0x0020, h01=0x0050, text=» CM PDDIV+STKEND CLEAR FLAG «, t00=0x0059, t01=0x009a}
0x08bba…08bc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00be}
0x08bc4…08be4 Head {h00=0x001c, h01=0x0050, text=»* GET APPLICATION«, t00=0x0059, t01=0x00c8}
0x08be4…08bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00e8}
0x08bee…08c02 Head {h00=0x0010, h01=0x0050, text=»SYA100 EQU *«, t00=0x0059, t01=0x00f2}
0x08c02…08c3c Head {h00=0x0036, h01=0x0050, text=» LDKL A1,'CO' LOAD INPUT TO GETAPP,CO=COBOL APPL. «, t00=0x0059, t01=0x0106}
0x08c3c…08c6c Head {h00=0x002c, h01=0x0050, text=» CALL GETAPP FIND APPL AND ITS CONF DATA«, t00=0x0059, t01=0x0140}
0x08c6c…08c9a Head {h00=0x002a, h01=0x0050, text=» RF(NZ) SYA105 MORE APPL OF THIS TYPE «, t00=0x0059, t01=0x0170}
0x08c9a…08cd2 Head {h00=0x0034, h01=0x0050, text=» LD A2,APPLNO+STKCOM ANY COBOL APPL. TO CONFIG.?«, t00=0x005a, t01=0x000e}
0x08cd2…08cee Head {h00=0x0018, h01=0x0050, text=» RF(NZ) SYA102 YES! «, t00=0x005a, t01=0x0046}
0x08cee…08d16 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,LCOEND SYSLCO END ADDR.«, t00=0x005a, t01=0x0062}
0x08d16…08d3a Head {h00=0x0020, h01=0x0050, text=» AD A1,M:REL+STKCOM RELOCATE«, t00=0x005a, t01=0x008a}
0x08d3a…08d56 Head {h00=0x0018, h01=0x0050, text=» ABR A1 LEAVE SYSLCO«, t00=0x005a, t01=0x00ae}
0x08d56…08d6a Head {h00=0x0010, h01=0x0050, text=»SYA102 EQU *«, t00=0x005a, t01=0x00ca}
0x08d6a…08d9c Head {h00=0x002e, h01=0x0050, text=» LDKL A2,SYA178 NO MORE APPL OF THIS TYPE «, t00=0x005a, t01=0x00de}
0x08d9c…08db8 Head {h00=0x0018, h01=0x0050, text=» AD A2,M:REL+STKCOM «, t00=0x005a, t01=0x0110}
0x08db8…08dc8 Head {h00=0x000c, h01=0x0050, text=» ABR A2 «, t00=0x005a, t01=0x012c}
0x08dc8…08ddc Head {h00=0x0010, h01=0x0050, text=»SYA105 EQU *«, t00=0x005a, t01=0x013c}
0x08ddc…08e18 Head {h00=0x0038, h01=0x0050, text=» ST A11,ACOSTA+STKEND SAVE CONF.START FOR THIS APPL «, t00=0x005a, t01=0x0150}
0x08e18…08e4c Head {h00=0x0030, h01=0x0050, text=» ST A1,APCTAB,A10 SAVE APLTAB BLOCK ADDRESS «, t00=0x005a, t01=0x018c}
0x08e4c…08e78 Head {h00=0x0028, h01=0x0050, text=» LD A2,APLLAC,A1 GET SEGTAB ADDRESS «, t00=0x005b, t01=0x0030}
0x08e78…08e96 Head {h00=0x001a, h01=0x0050, text=» ST A2,SEGTAD,A10 SAVE«, t00=0x005b, t01=0x005c}
0x08e96…08ea4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005b, t01=0x007a}
0x08ea4…08eb0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x005b, t01=0x0088}
0x08eb0…08ee0 Head {h00=0x002c, h01=0x0050, text=»* READ CONFIG FILE AND BUILD SHADOWTABLE«, t00=0x005b, t01=0x0094}
0x08ee0…08eec Head {h00=0x0008, h01=0x0050, text=» «, t00=0x005b, t01=0x00c4}
0x08eec…08f10 Head {h00=0x0020, h01=0x0050, text=» EL* A3,APLLAC,A1 APPTAB ADR«, t00=0x005b, t01=0x00d0}
0x08f10…08f48 Head {h00=0x0034, h01=0x0050, text=» EL A2,I:RSTE,A3 GET INTERPRETER RESTART ADDRESS«, t00=0x005b, t01=0x00f4}
0x08f48…08f74 Head {h00=0x0028, h01=0x0050, text=» ST A2,APLIOE,A1 STORE IT IN APLTAB «, t00=0x005b, t01=0x012c}
0x08f74…08f92 Head {h00=0x001a, h01=0x0050, text=» ELR A2,A3 TCLTAB ADR «, t00=0x005b, t01=0x0158}
0x08f92…08fb2 Head {h00=0x001c, h01=0x0050, text=» ELR A12,A2 NBR OF TCL'S«, t00=0x005b, t01=0x0176}
0x08fb2…08fc4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x005c, t01=0x0008}
0x08fc4…08fea Head {h00=0x0022, h01=0x0050, text=» ADKL A4,4 ADR TO TCLBLK PNTR «, t00=0x005c, t01=0x001a}
0x08fea…0900c Head {h00=0x001e, h01=0x0050, text=» ST A4,TCLPNT+STKEND SAVE «, t00=0x005c, t01=0x0040}
0x0900c…09030 Head {h00=0x0020, h01=0x0050, text=» LC A2,TDBBT,A11 BLOCK TYPE «, t00=0x005c, t01=0x0062}
0x09030…0905a Head {h00=0x0026, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK«, t00=0x005c, t01=0x0086}
0x0905a…09074 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYA120 NO «, t00=0x005c, t01=0x00b0}
0x09074…09088 Head {h00=0x0010, h01=0x0050, text=» CALL LENCOU«, t00=0x005c, t01=0x00ca}
0x09088…090ac Head {h00=0x0020, h01=0x0050, text=» LDR A5,A7 SHTAB1 LENGTH * 1«, t00=0x005c, t01=0x00de}
0x090ac…090c2 Head {h00=0x0012, h01=0x0050, text=» ADR A5,A7 * 2«, t00=0x005c, t01=0x0102}
0x090c2…090f0 Head {h00=0x002a, h01=0x0050, text=» ADR A5,A7 * 3 SHTAB1-3 TOTAL LENGTH «, t00=0x005c, t01=0x0118}
0x090f0…0911c Head {h00=0x0028, h01=0x0050, text=» ST A5,SHTLEN+STKEND SHTAB1-3 LENGTH«, t00=0x005c, t01=0x0146}
0x0911c…0912e Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x005c, t01=0x0172}
0x0912e…0915a Head {h00=0x0028, h01=0x0050, text=» RF(Z) SYA120 NOTHING TO CONFIGURATE«, t00=0x005c, t01=0x0184}
0x0915a…09198 Head {h00=0x003a, h01=0x0050, text=» ST A6,NOCOPS+STKEND SAVE NBR OF RUNNING TASKS/RUNTIME«, t00=0x005d, t01=0x0020}
0x09198…091a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x005e}
0x091a2…091d0 Head {h00=0x002a, h01=0x0050, text=» LD A11,SHADST+STKEND MONITOR END ADR «, t00=0x005d, t01=0x0068}
0x091d0…091e4 Head {h00=0x0010, h01=0x0050, text=» ADR A11,A5 «, t00=0x005d, t01=0x0096}
0x091e4…091f8 Head {h00=0x0010, h01=0x0050, text=» ADR A11,A6 «, t00=0x005d, t01=0x00aa}
0x091f8…0920c Head {h00=0x0010, h01=0x0050, text=» ADR A11,A6 «, t00=0x005d, t01=0x00be}
0x0920c…09236 Head {h00=0x0026, h01=0x0050, text=» ADKL A11,2 NEW START OF FREE AREA«, t00=0x005d, t01=0x00d2}
0x09236…0925a Head {h00=0x0020, h01=0x0050, text=» LDKL A9,LCOSTA SYSLCO START«, t00=0x005d, t01=0x00fc}
0x0925a…09282 Head {h00=0x0024, h01=0x0050, text=» AD A9,M:REL+STKCOM SYSLCO START«, t00=0x005d, t01=0x0120}
0x09282…0929c Head {h00=0x0016, h01=0x0050, text=»* CHECK ADDRESSES «, t00=0x005d, t01=0x0148}
0x0929c…092b0 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x005d, t01=0x0162}
0x092b0…092ca Head {h00=0x0016, h01=0x0050, text=» RF(L) SYA115 OK !«, t00=0x005d, t01=0x0176}
0x092ca…092f0 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x005d, t01=0x0190}
0x092f0…09304 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x005e, t01=0x0026}
0x09304…09318 Head {h00=0x0010, h01=0x0050, text=»SYA115 EQU *«, t00=0x005e, t01=0x003a}
0x09318…0932a Head {h00=0x000e, h01=0x0050, text=» SUR A8,A8«, t00=0x005e, t01=0x004e}
0x0932a…0933c Head {h00=0x000e, h01=0x0050, text=»ZERO EQU *«, t00=0x005e, t01=0x0060}
0x0933c…09354 Head {h00=0x0014, h01=0x0050, text=» SUKL A11,2 NEXT«, t00=0x005e, t01=0x0072}
0x09354…09372 Head {h00=0x001a, h01=0x0050, text=» STR A8,A11 CLEAR WORD«, t00=0x005e, t01=0x008a}
0x09372…0939a Head {h00=0x0024, h01=0x0050, text=» CW A11,SHADST+STKEND ALL DONE ?«, t00=0x005e, t01=0x00a8}
0x0939a…093b2 Head {h00=0x0014, h01=0x0050, text=» RB(NE) ZERO NO «, t00=0x005e, t01=0x00d0}
0x093b2…093f2 Head {h00=0x003c, h01=0x0050, text=» ST* A7,SHADST+STKEND STORE LENGTH IN TABLE LENGTH WORD «, t00=0x005e, t01=0x00e8}
0x093f2…09412 Head {h00=0x001c, h01=0x0050, text=» LDR A8,A7 SHTAB1 LENGTH«, t00=0x005e, t01=0x0128}
0x09412…0943c Head {h00=0x0026, h01=0x0050, text=» LD A11,ACOSTA+STKEND CONFIG START«, t00=0x005e, t01=0x0148}
0x0943c…0946e Head {h00=0x002e, h01=0x0050, text=» LC A3,TDBBT,A11 GET BLOCK TYPE FROM CONF.«, t00=0x005e, t01=0x0172}
0x0946e…0949a Head {h00=0x0028, h01=0x0050, text=» CCK A3,'TT' TASK DEFINITION BLOCK ?«, t00=0x005f, t01=0x0014}
0x0949a…094b4 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA125 YES «, t00=0x005f, t01=0x0040}
0x094b4…094c8 Head {h00=0x0010, h01=0x0050, text=»SYA120 EQU *«, t00=0x005f, t01=0x005a}
0x094c8…094e0 Head {h00=0x0014, h01=0x0050, text=» LDK A1,LMP4 NO «, t00=0x005f, t01=0x006e}
0x094e0…094f4 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x005f, t01=0x0086}
0x094f4…09508 Head {h00=0x0010, h01=0x0050, text=»SYA125 EQU *«, t00=0x005f, t01=0x009a}
0x09508…0953c Head {h00=0x0030, h01=0x0050, text=» LD A2,TCLPNT+STKEND ADR. TO TCLBLK POINTER «, t00=0x005f, t01=0x00ae}
0x0953c…0955e Head {h00=0x001e, h01=0x0050, text=» LC A3,TDBMC+4,A11 TCL-ID «, t00=0x005f, t01=0x00e2}
0x0955e…09570 Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x005f, t01=0x0104}
0x09570…09592 Head {h00=0x001e, h01=0x0050, text=» LC A3,TDBMC+5,A11 TCL-ID «, t00=0x005f, t01=0x0116}
0x09592…095b2 Head {h00=0x001c, h01=0x0050, text=» LDR A7,A12 NBR OF TCL'S«, t00=0x005f, t01=0x0138}
0x095b2…095bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0158}
0x095bc…095f2 Head {h00=0x0032, h01=0x0050, text=»* CHECK IF TCL-ID FROM CONF. IS IN APPL«, t00=0x005f, t01=0x0162}
0x095f2…095fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0008}
0x095fc…09610 Head {h00=0x0010, h01=0x0050, text=»SYA130 EQU *«, t00=0x0060, t01=0x0012}
0x09610…09634 Head {h00=0x0020, h01=0x0050, text=» SUK A7,1 COUNT NBR OF TCL'S«, t00=0x0060, t01=0x0026}
0x09634…0965c Head {h00=0x0024, h01=0x0050, text=» RF(NN) SYA135 N=END OF TCLBLK'S«, t00=0x0060, t01=0x004a}
0x0965c…09688 Head {h00=0x0028, h01=0x0050, text=» LDK A1,LMP5 TID IN CONF NOT IN APPL«, t00=0x0060, t01=0x0072}
0x09688…0969c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0060, t01=0x009e}
0x0969c…096b0 Head {h00=0x0010, h01=0x0050, text=»SYA135 EQU *«, t00=0x0060, t01=0x00b2}
0x096b0…096d6 Head {h00=0x0022, h01=0x0050, text=» EL A6,-2,A2 TCL-ID IN TCLBLK «, t00=0x0060, t01=0x00c6}
0x096d6…096f0 Head {h00=0x0016, h01=0x0050, text=» CWR A3,A6 FOUND ?«, t00=0x0060, t01=0x00ec}
0x096f0…0970a Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA140 YES «, t00=0x0060, t01=0x0106}
0x0970a…09730 Head {h00=0x0022, h01=0x0050, text=» ADK A2,4 POINT AT NEXT TCLBLK«, t00=0x0060, t01=0x0120}
0x09730…09756 Head {h00=0x0022, h01=0x0050, text=» RB SYA130 TRY IN NEXT TCLBLK «, t00=0x0060, t01=0x0146}
0x09756…0976a Head {h00=0x0010, h01=0x0050, text=»SYA140 EQU *«, t00=0x0060, t01=0x016c}
0x0976a…09786 Head {h00=0x0018, h01=0x0050, text=» LD A6,SHADST+STKEND«, t00=0x0060, t01=0x0180}
0x09786…097a8 Head {h00=0x001e, h01=0x0050, text=» ADR A6,A8 START OF SHTAB2«, t00=0x0061, t01=0x000c}
0x097a8…097ca Head {h00=0x001e, h01=0x0050, text=» ADR A6,A8 START OF SHTAB3«, t00=0x0061, t01=0x002e}
0x097ca…097de Head {h00=0x0010, h01=0x0050, text=»SYA145 EQU *«, t00=0x0061, t01=0x0050}
0x097de…097fc Head {h00=0x001a, h01=0x0050, text=» SUK A6,2 STEP SHTAB2 «, t00=0x0061, t01=0x0064}
0x097fc…09818 Head {h00=0x0018, h01=0x0050, text=» LD A3,SHADST+STKEND«, t00=0x0061, t01=0x0082}
0x09818…0982a Head {h00=0x000e, h01=0x0050, text=» ADR A3,A8«, t00=0x0061, t01=0x009e}
0x0982a…0984c Head {h00=0x001e, h01=0x0050, text=» CWR A6,A3 END OF SHTAB2 ?«, t00=0x0061, t01=0x00b0}
0x0984c…09866 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA150 YES «, t00=0x0061, t01=0x00d2}
0x09866…0988c Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 ITCT ADR IN SHTAB2«, t00=0x0061, t01=0x00ec}
0x0988c…098ae Head {h00=0x001e, h01=0x0050, text=» ELR A3,A2 GET TCLBLK-ADR «, t00=0x0061, t01=0x0112}
0x098ae…098da Head {h00=0x0028, h01=0x0050, text=» EL A3,TCLTCT,A3 ITCT ADR IN TCLBLK «, t00=0x0061, t01=0x0134}
0x098da…098f4 Head {h00=0x0016, h01=0x0050, text=» CWR A1,A3 FOUND ?«, t00=0x0061, t01=0x0160}
0x098f4…0990e Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA145 NO «, t00=0x0061, t01=0x017a}
0x0990e…09924 (98, 0, 400) Head {h00=0x0012, h01=0x0050, text=» RF SYA155 YES«, t00=0x0062, t01=0x0004}
0x09924…09938 Head {h00=0x0010, h01=0x0050, text=»SYA150 EQU *«, t00=0x0062, t01=0x001a}
0x09938…0995e Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 NEXT ENTRY IN SHTAB2«, t00=0x0062, t01=0x002e}
0x0995e…09972 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A6 «, t00=0x0062, t01=0x0054}
0x09972…09998 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) SYA150 ENTRY NOT FREE «, t00=0x0062, t01=0x0068}
0x09998…099ba Head {h00=0x001e, h01=0x0050, text=» ELR A3,A2 GET TCLBLK-ADR «, t00=0x0062, t01=0x008e}
0x099ba…099e6 Head {h00=0x0028, h01=0x0050, text=» EL A1,TCLTCT,A3 ITCT ADR IN TCLBLK «, t00=0x0062, t01=0x00b0}
0x099e6…09a12 Head {h00=0x0028, h01=0x0050, text=» STR A1,A6 STORE ITCT ADR IN SHTAB2 «, t00=0x0062, t01=0x00dc}
0x09a12…09a26 Head {h00=0x0010, h01=0x0050, text=»SYA155 EQU *«, t00=0x0062, t01=0x0108}
0x09a26…09a52 Head {h00=0x0028, h01=0x0050, text=» SUR A6,A8 POINT AT ENTRY IN SHTAB1 «, t00=0x0062, t01=0x011c}
0x09a52…09a7e Head {h00=0x0028, h01=0x0050, text=» LC A4,TDBNT+1,A11 NBR OF COPIES / 2«, t00=0x0062, t01=0x0148}
0x09a7e…09a90 Head {h00=0x000e, h01=0x0050, text=» SRC A4,4 «, t00=0x0062, t01=0x0174}
0x09a90…09aba Head {h00=0x0026, h01=0x0050, text=» LC A4,TDBNT,A11 NBR OF COPIES / 1«, t00=0x0062, t01=0x0186}
0x09aba…09acc Head {h00=0x000e, h01=0x0050, text=» SLC A4,12«, t00=0x0063, t01=0x0020}
0x09acc…09afa Head {h00=0x002a, h01=0x0050, text=» SRL A4,8 BINARY VALUE (NBR OF COPIES)«, t00=0x0063, t01=0x0032}
0x09afa…09b1a Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 NBR OF COPIES«, t00=0x0063, t01=0x0060}
0x09b1a…09b30 Head {h00=0x0012, h01=0x0050, text=» RF(Z) SYA170 «, t00=0x0063, t01=0x0080}
0x09b30…09b44 Head {h00=0x0010, h01=0x0050, text=»SYA160 EQU *«, t00=0x0063, t01=0x0096}
0x09b44…09b62 Head {h00=0x001a, h01=0x0050, text=» LC A3,TDBID+4,A11 TID«, t00=0x0063, t01=0x00aa}
0x09b62…09b74 Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x0063, t01=0x00c8}
0x09b74…09b92 Head {h00=0x001a, h01=0x0050, text=» LC A3,TDBID+5,A11 TID«, t00=0x0063, t01=0x00da}
0x09b92…09bc4 Head {h00=0x002e, h01=0x0050, text=» CALL BUILDT BUILD TIDTAB PART FOR ONE TCL«, t00=0x0063, t01=0x00f8}
0x09bc4…09bd8 Head {h00=0x0010, h01=0x0050, text=»SYA170 EQU *«, t00=0x0063, t01=0x012a}
0x09bd8…09bfe Head {h00=0x0022, h01=0x0050, text=» CALL NXTBLK NEXT CONFIG-BLOCK«, t00=0x0063, t01=0x013e}
0x09bfe…09c24 Head {h00=0x0022, h01=0x0050, text=» CCK A2,'TT' TASK DEF BLOCK ? «, t00=0x0063, t01=0x0164}
0x09c24…09c3e Head {h00=0x0016, h01=0x0050, text=» RB(E) SYA125 YES «, t00=0x0063, t01=0x018a}
0x09c3e…09c76 Head {h00=0x0034, h01=0x0050, text=» LD A1,NOCOPS+STKEND TOTAL NBR OF RUNNING TASKS «, t00=0x0064, t01=0x0014}
0x09c76…09c9a Head {h00=0x0020, h01=0x0050, text=» SLL A1,1 NBR OF BYTES USED «, t00=0x0064, t01=0x004c}
0x09c9a…09cbc Head {h00=0x001e, h01=0x0050, text=» ADK A1,2 ADD LENGTH WORD «, t00=0x0064, t01=0x0070}
0x09cbc…09ce4 Head {h00=0x0024, h01=0x0050, text=» STR A1,A7 STORE LENGTH IN TABLE«, t00=0x0064, t01=0x0092}
0x09ce4…09d0e Head {h00=0x0026, h01=0x0050, text=» ST A7,DYNTAD,A10 SAVE TABLE START«, t00=0x0064, t01=0x00ba}
0x09d0e…09d3a Head {h00=0x0028, h01=0x0050, text=» ADR A7,A1 UPDATE "FIRST FREE WORD" «, t00=0x0064, t01=0x00e4}
0x09d3a…09d4c Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0064, t01=0x0110}
0x09d4c…09d84 Head {h00=0x0034, h01=0x0050, text=» RF(NZ) SYA175 MORE THAN ONE TASK IN THE SYSTEM «, t00=0x0064, t01=0x0122}
0x09d84…09dbe Head {h00=0x0036, h01=0x0050, text=» IM STASK+STKEND INDICATE SINGLE TASK APPLICATION «, t00=0x0064, t01=0x015a}
0x09dbe…09dc8 (101, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0004}
0x09dc8…09df6 Head {h00=0x002a, h01=0x0050, text=»* PREPARE FOR NEXT APPLICATION «, t00=0x0065, t01=0x000e}
0x09df6…09e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x003c}
0x09e00…09e14 Head {h00=0x0010, h01=0x0050, text=»SYA175 EQU *«, t00=0x0065, t01=0x0046}
0x09e14…09e4c Head {h00=0x0034, h01=0x0050, text=» LD A2,SHADST+STKEND GET START OF SHADOW TABLES «, t00=0x0065, t01=0x005a}
0x09e4c…09e7c Head {h00=0x002c, h01=0x0050, text=» ST A2,SHADOW,A10 SAVE IN APPL.SAVE AREA«, t00=0x0065, t01=0x0092}
0x09e7c…09eae Head {h00=0x002e, h01=0x0050, text=» ADKL A10,TABLEN UPDATE SAVE AREA POINTER «, t00=0x0065, t01=0x00c2}
0x09eae…09ee0 Head {h00=0x002e, h01=0x0050, text=» ST A7,SHADST+STKEND SAVE START OF SHTAB1 «, t00=0x0065, t01=0x00f4}
0x09ee0…09ef8 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SYA100 «, t00=0x0065, t01=0x0126}
0x09ef8…09f2c Head {h00=0x0030, h01=0x0050, text=» AD A2,M:REL+STKCOM ABSOLUTE BRANCH ADDRESS «, t00=0x0065, t01=0x013e}
0x09f2c…09f56 Head {h00=0x0026, h01=0x0050, text=» ABR A2 CHECK IF MORE APPLICATIONS«, t00=0x0065, t01=0x0172}
0x09f56…09f6a Head {h00=0x0010, h01=0x0050, text=»SYA178 EQU *«, t00=0x0066, t01=0x000c}
0x09f6a…09f78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x0020}
0x09f78…09f80 Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x002e}
0x09f80…09fa8 Head {h00=0x0024, h01=0x0050, text=»* GET START OF SYSLCO AFTER MOVE«, t00=0x0066, t01=0x0036}
0x09fa8…09fb4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0066, t01=0x005e}
0x09fb4…09fe6 Head {h00=0x002e, h01=0x0050, text=» ADK A7,1 TO-ADDRESS (AFTER SHADOW-TABLES)«, t00=0x0066, t01=0x006a}
0x09fe6…0a00a Head {h00=0x0020, h01=0x0050, text=» ANKL A7,/FFFE EVEN ADDRESS «, t00=0x0066, t01=0x009c}
0x0a00a…0a012 Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x00c0}
0x0a012…0a030 Head {h00=0x001a, h01=0x0050, text=»* CALCULATE RELOCATION«, t00=0x0066, t01=0x00c8}
0x0a030…0a038 Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x00e6}
0x0a038…0a062 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,PART2 GET START OF PART2 «, t00=0x0066, t01=0x00ee}
0x0a062…0a092 Head {h00=0x002c, h01=0x0050, text=» AD A2,M:REL+STKCOM ADD RELOCATION BASE «, t00=0x0066, t01=0x0118}
0x0a092…0a0ba Head {h00=0x0024, h01=0x0050, text=» SUR A2,A7 MOVE-LENGTH (SYSLCO) «, t00=0x0066, t01=0x0148}
0x0a0ba…0a0cc Head {h00=0x000e, h01=0x0050, text=» NGR A2,A2«, t00=0x0066, t01=0x0170}
0x0a0cc…0a106 Head {h00=0x0036, h01=0x0050, text=» ST A2,RELOCA+STKEND SAVE NEW RELOCATION TEMPORARY«, t00=0x0066, t01=0x0182}
0x0a106…0a136 Head {h00=0x002c, h01=0x0050, text=»* CREATE SYSLCO,SYSINI & DDIV MM-TABLE *«, t00=0x0067, t01=0x002c}
0x0a136…0a13e Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x005c}
0x0a13e…0a164 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A7 TO-ADDRESS (SYSLCO)«, t00=0x0067, t01=0x0064}
0x0a164…0a186 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/F000 FIRST PAGE «, t00=0x0067, t01=0x008a}
0x0a186…0a1b6 Head {h00=0x002c, h01=0x0050, text=» ST A2,MMREL1+STKEND SAVE PHYSICAL PAGE «, t00=0x0067, t01=0x00ac}
0x0a1b6…0a1dc Head {h00=0x0022, h01=0x0050, text=» SRL A2,2 SHIFT FOR MM-PAGING «, t00=0x0067, t01=0x00dc}
0x0a1dc…0a1f4 Head {h00=0x0014, h01=0x0050, text=» LDKL A11,MMDDIV«, t00=0x0067, t01=0x0102}
0x0a1f4…0a226 Head {h00=0x002e, h01=0x0050, text=» ADR A11,A13 GET MM-TABLE START ADDRESSS= «, t00=0x0067, t01=0x011a}
0x0a226…0a244 Head {h00=0x001a, h01=0x0050, text=» LDK A3,16 SET COUNTER«, t00=0x0067, t01=0x014c}
0x0a244…0a270 Head {h00=0x0028, h01=0x0050, text=»SYA179 STR A2,A11 STORE PAGE-POINTER«, t00=0x0067, t01=0x016a}
0x0a270…0a28e Head {h00=0x001a, h01=0x0050, text=» ADKL A11,2 NEXT ENTRY«, t00=0x0068, t01=0x0008}
0x0a28e…0a2b2 Head {h00=0x0020, h01=0x0050, text=» ADKL A2,/400 PAGE INCREMENT«, t00=0x0068, t01=0x0026}
0x0a2b2…0a2c8 Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 ALL?«, t00=0x0068, t01=0x004a}
0x0a2c8…0a2e2 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) SYA179 NO!«, t00=0x0068, t01=0x0060}
0x0a2e2…0a30e Head {h00=0x0028, h01=0x0050, text=» ANKL A7,/FFF GET DISPLACEM. IN PAGE«, t00=0x0068, t01=0x007a}
0x0a30e…0a344 Head {h00=0x0032, h01=0x0050, text=» ST A7,LCOTO+STKEND SAVE (LOGICAL) TO-ADDRESS «, t00=0x0068, t01=0x00a6}
0x0a344…0a36e Head {h00=0x0026, h01=0x0050, text=» LDKL A3,PART2 GET START OF PART2 «, t00=0x0068, t01=0x00dc}
0x0a36e…0a39e Head {h00=0x002c, h01=0x0050, text=» AD A3,M:REL+STKCOM ADD RELOCATION BASE «, t00=0x0068, t01=0x0106}
0x0a39e…0a3c6 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A13 A13=START OF SYSINI «, t00=0x0068, t01=0x0136}
0x0a3c6…0a3e0 Head {h00=0x0016, h01=0x0050, text=» SUR A2,A3 LENGTH «, t00=0x0068, t01=0x015e}
0x0a3e0…0a40e Head {h00=0x002a, h01=0x0050, text=» ADKL A2,INILEN ADKLD LENGTH OF SYSINI«, t00=0x0068, t01=0x0178}
0x0a40e…0a43e Head {h00=0x002c, h01=0x0050, text=» ST A2,MOVLE1+STKEND SAVE LENGTH TO MOVE«, t00=0x0069, t01=0x0016}
0x0a43e…0a46a Head {h00=0x0028, h01=0x0050, text=» ADR A7,A2 START OF DDIV AFTER MOVE «, t00=0x0069, t01=0x0046}
0x0a46a…0a49c Head {h00=0x002e, h01=0x0050, text=» ST A7,DDIVTO+STKEND SAVE NEW DDIV ADDRESS«, t00=0x0069, t01=0x0072}
0x0a49c…0a4c4 Head {h00=0x0024, h01=0x0050, text=»* CALCULATE DDIV FROM-ADDRESS * «, t00=0x0069, t01=0x00a4}
0x0a4c4…0a4f0 Head {h00=0x0028, h01=0x0050, text=» CM APPLNO+STKCOM RESET NBR OF APPL.«, t00=0x0069, t01=0x00cc}
0x0a4f0…0a526 Head {h00=0x0032, h01=0x0050, text=» LDKL A10,STKEND START OF 1:ST APPL.SAVE AREA «, t00=0x0069, t01=0x00f8}
0x0a526…0a53a Head {h00=0x0010, h01=0x0050, text=»SYA180 EQU *«, t00=0x0069, t01=0x012e}
0x0a53a…0a55c Head {h00=0x001e, h01=0x0050, text=» LDKL A1,'CO' COBOL APPL. «, t00=0x0069, t01=0x0142}
0x0a55c…0a586 Head {h00=0x0026, h01=0x0050, text=» CALL GETAPP ANY APPLICATION LEFT?«, t00=0x0069, t01=0x0164}
0x0a586…0a59e Head {h00=0x0014, h01=0x0050, text=» RF(Z) OUT01 NO!«, t00=0x0069, t01=0x018e}
0x0a59e…0a5a6 Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x0016}
0x0a5a6…0a5ca Head {h00=0x0020, h01=0x0050, text=» LD A2,APLLAC,A1 GET SEGTAB «, t00=0x006a, t01=0x001e}
0x0a5ca…0a5e8 Head {h00=0x001a, h01=0x0050, text=» ELR A9,A2 APPTAB ADR «, t00=0x006a, t01=0x0042}
0x0a5e8…0a612 Head {h00=0x0026, h01=0x0050, text=» EL A9,APPCOM,A9 COMMON-PSEG-PNTR «, t00=0x006a, t01=0x0060}
0x0a612…0a63e Head {h00=0x0028, h01=0x0050, text=» EL A3,SGNOSG,A2 NUMBER OF SEGMENTS «, t00=0x006a, t01=0x008a}
0x0a63e…0a662 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A2 SAVE SEGTAB ADDR.«, t00=0x006a, t01=0x00b6}
0x0a662…0a694 Head {h00=0x002e, h01=0x0050, text=» LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH«, t00=0x006a, t01=0x00da}
0x0a694…0a6a6 Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x006a, t01=0x010c}
0x0a6a6…0a6b8 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x006a, t01=0x011e}
0x0a6b8…0a6e2 Head {h00=0x0026, h01=0x0050, text=» ADK A1,SGNOSG+2 => START OF DDIV «, t00=0x006a, t01=0x0130}
0x0a6e2…0a6ea Head {h00=0x0004, h01=0x0050, t00=0x006a, t01=0x015a}
0x0a6ea…0a71c Head {h00=0x002e, h01=0x0050, text=» ST A1,DDIVFR,A10 SAVE DDIV 'FROM'-ADDRESS«, t00=0x006a, t01=0x0162}
0x0a71c…0a74a (107, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LD A6,DDIVTO+STKEND GET DDIV TO ADDR.«, t00=0x006b, t01=0x0004}
0x0a74a…0a770 Head {h00=0x0022, h01=0x0050, text=» SUR A6,A1 RELOCATION FOR DDIV«, t00=0x006b, t01=0x0032}
0x0a770…0a7a6 Head {h00=0x0032, h01=0x0050, text=» ST A6,SAVE01+STKEND SAVE RELOCATION INCREMENT«, t00=0x006b, t01=0x0058}
0x0a7a6…0a7bc Head {h00=0x0012, h01=0x0050, text=» LDKL A6,/FFFF«, t00=0x006b, t01=0x008e}
0x0a7bc…0a7ec Head {h00=0x002c, h01=0x0050, text=» ST A6,PLTGCS,A10 INIT. START OF PLTGC'S«, t00=0x006b, t01=0x00a4}
0x0a7ec…0a816 Head {h00=0x0026, h01=0x0050, text=» CALL LIMTGC FIND ICB-PLTGC LIMITS«, t00=0x006b, t01=0x00d4}
0x0a816…0a84c Head {h00=0x0032, h01=0x0050, text=» LD A6,SAVE01+STKEND GET RELOCATION INCREMENT «, t00=0x006b, t01=0x00fe}
0x0a84c…0a85a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x0134}
0x0a85a…0a864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0142}
0x0a864…0a87e Head {h00=0x0016, h01=0x0050, text=»* RELOCATE ITCT'S «, t00=0x006b, t01=0x014c}
0x0a87e…0a888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0166}
0x0a888…0a89c Head {h00=0x0010, h01=0x0050, text=»RELITC EQU *«, t00=0x006b, t01=0x0170}
0x0a89c…0a8c4 Head {h00=0x0024, h01=0x0050, text=» LD A1,DDIVFR,A10 ADR TO APPTAB «, t00=0x006b, t01=0x0184}
0x0a8c4…0a8e4 Head {h00=0x001c, h01=0x0050, text=» ELR A1,A1 ADR TO TCLTAB«, t00=0x006c, t01=0x001c}
0x0a8e4…0a904 Head {h00=0x001c, h01=0x0050, text=» ELR A2,A1 NBR OF TCL'S «, t00=0x006c, t01=0x003c}
0x0a904…0a918 Head {h00=0x0010, h01=0x0050, text=»RELIT1 EQU *«, t00=0x006c, t01=0x005c}
0x0a918…0a93e Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 ADJUST NBR OF TCL'S «, t00=0x006c, t01=0x0070}
0x0a93e…0a968 Head {h00=0x0026, h01=0x0050, text=» RF(N) RELITX ALL ITCT'S RELOCATED«, t00=0x006c, t01=0x0096}
0x0a968…0a98c Head {h00=0x0020, h01=0x0050, text=» ADK A1,4 TCLBLK ADR POINTER«, t00=0x006c, t01=0x00c0}
0x0a98c…0a9aa Head {h00=0x001a, h01=0x0050, text=» ELR A3,A1 TCLBLK ADR «, t00=0x006c, t01=0x00e4}
0x0a9aa…0a9d4 Head {h00=0x0026, h01=0x0050, text=» ADK A3,TCLTCT ADR TO ITCT POINTER«, t00=0x006c, t01=0x0102}
0x0a9d4…0a9f0 Head {h00=0x0018, h01=0x0050, text=» ELR A3,A3 ITCT ADR «, t00=0x006c, t01=0x012c}
0x0a9f0…0aa1e Head {h00=0x002a, h01=0x0050, text=» CALL RELOC RELOCATE PGTG-DATA ADDRESS«, t00=0x006c, t01=0x0148}
0x0aa1e…0aa34 Head {h00=0x0012, h01=0x0050, text=» ADK A3,ITCGLA«, t00=0x006c, t01=0x0176}
0x0aa34…0aa5e Head {h00=0x0026, h01=0x0050, text=» CALL RELOC RELOCATE PGTL-DATA-ADR«, t00=0x006c, t01=0x018c}
0x0aa5e…0aa86 Head {h00=0x0024, h01=0x0050, text=» ADK A3,ITCTLT-ITCGLA TLTAB ADR «, t00=0x006d, t01=0x0026}
0x0aa86…0aab0 Head {h00=0x0026, h01=0x0050, text=» ELR A4,A3 NBR OF ENTRIES IN TLTAB«, t00=0x006d, t01=0x004e}
0x0aab0…0aac4 Head {h00=0x0010, h01=0x0050, text=»RELIT2 EQU *«, t00=0x006d, t01=0x0078}
0x0aac4…0aaea Head {h00=0x0022, h01=0x0050, text=» SUK A4,1 ADJUST LOOP-COUNTER «, t00=0x006d, t01=0x008c}
0x0aaea…0ab16 Head {h00=0x0028, h01=0x0050, text=» RB(N) RELIT1 ALL ENTRIES RELOCATED «, t00=0x006d, t01=0x00b2}
0x0ab16…0ab40 Head {h00=0x0026, h01=0x0050, text=» ADK A3,ITCTLE POINT AT NEXT ENTRY«, t00=0x006d, t01=0x00de}
0x0ab40…0ab60 Head {h00=0x001c, h01=0x0050, text=» ELR A5,A3 ENTRY CONTENT«, t00=0x006d, t01=0x0108}
0x0ab60…0ab80 Head {h00=0x001c, h01=0x0050, text=» RB(Z) RELIT2 FREE ENTRY«, t00=0x006d, t01=0x0128}
0x0ab80…0aba2 Head {h00=0x001e, h01=0x0050, text=» CALL RELOC RELOCATE ENTRY«, t00=0x006d, t01=0x0148}
0x0aba2…0abbe Head {h00=0x0018, h01=0x0050, text=» RB RELIT2 NEXT ITCT«, t00=0x006d, t01=0x016a}
0x0abbe…0abd2 Head {h00=0x0010, h01=0x0050, text=»RELITX EQU *«, t00=0x006d, t01=0x0186}
0x0abd2…0abdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x000a}
0x0abdc…0abf8 Head {h00=0x0018, h01=0x0050, text=»* RELOCATE TCLBLK'S «, t00=0x006e, t01=0x0014}
0x0abf8…0ac02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0030}
0x0ac02…0ac16 Head {h00=0x0010, h01=0x0050, text=»RELTCB EQU *«, t00=0x006e, t01=0x003a}
0x0ac16…0ac3a Head {h00=0x0020, h01=0x0050, text=» LD A1,DDIVFR,A10 APPTAB ADR«, t00=0x006e, t01=0x004e}
0x0ac3a…0ac58 Head {h00=0x001a, h01=0x0050, text=» ELR A1,A1 TCLTAB ADR «, t00=0x006e, t01=0x0072}
0x0ac58…0ac78 Head {h00=0x001c, h01=0x0050, text=» ELR A2,A1 NBR OF TCL'S «, t00=0x006e, t01=0x0090}
0x0ac78…0ac8c Head {h00=0x0010, h01=0x0050, text=»RELTB1 EQU *«, t00=0x006e, t01=0x00b0}
0x0ac8c…0acb2 Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 ADJUST NBR OF TCL'S «, t00=0x006e, t01=0x00c4}
0x0acb2…0ace4 Head {h00=0x002e, h01=0x0050, text=» RF(N) RELTBX RELOCATION OF TCLBLK'S DONE «, t00=0x006e, t01=0x00ea}
0x0ace4…0ad08 Head {h00=0x0020, h01=0x0050, text=» ADK A1,4 TCLBLK ADR POINTER«, t00=0x006e, t01=0x011c}
0x0ad08…0ad26 Head {h00=0x001a, h01=0x0050, text=» ELR A3,A1 TCLBLK ADR «, t00=0x006e, t01=0x0140}
0x0ad26…0ad3c Head {h00=0x0012, h01=0x0050, text=» ADK A3,TCLTGC«, t00=0x006e, t01=0x015e}
0x0ad3c…0ad70 Head {h00=0x0030, h01=0x0050, text=» CALL RELOC RELOCATE ICB-PLTGC-MAIN POINTER «, t00=0x006e, t01=0x0174}
0x0ad70…0ad8e Head {h00=0x001a, h01=0x0050, text=» ADK A3,TCLTCT-TCLTGC «, t00=0x006f, t01=0x0018}
0x0ad8e…0adb8 Head {h00=0x0026, h01=0x0050, text=» CALL RELOC RELOCATE ITCT POINTER «, t00=0x006f, t01=0x0036}
0x0adb8…0add6 Head {h00=0x001a, h01=0x0050, text=» RB RELTB1 NEXT TCLBLK«, t00=0x006f, t01=0x0060}
0x0add6…0adea Head {h00=0x0010, h01=0x0050, text=»RELTBX EQU *«, t00=0x006f, t01=0x007e}
0x0adea…0adf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0092}
0x0adf4…0ae0e Head {h00=0x0016, h01=0x0050, text=»* RELOCATE TCLTAB «, t00=0x006f, t01=0x009c}
0x0ae0e…0ae18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00b6}
0x0ae18…0ae2c Head {h00=0x0010, h01=0x0050, text=»RELTCT EQU *«, t00=0x006f, t01=0x00c0}
0x0ae2c…0ae50 Head {h00=0x0020, h01=0x0050, text=» LD A1,DDIVFR,A10 APPTAB ADR«, t00=0x006f, t01=0x00d4}
0x0ae50…0ae6e Head {h00=0x001a, h01=0x0050, text=» ELR A3,A1 TCLTAB ADR «, t00=0x006f, t01=0x00f8}
0x0ae6e…0ae8e Head {h00=0x001c, h01=0x0050, text=» ELR A2,A3 NBR OF TCL'S «, t00=0x006f, t01=0x0116}
0x0ae8e…0aea2 Head {h00=0x0010, h01=0x0050, text=»RELTC1 EQU *«, t00=0x006f, t01=0x0136}
0x0aea2…0aec6 Head {h00=0x0020, h01=0x0050, text=» SUK A2,1 COUNT NBR OF TCL'S«, t00=0x006f, t01=0x014a}
0x0aec6…0aef6 Head {h00=0x002c, h01=0x0050, text=» RF(N) RELTCX RELOCATION OF TCLTAB DONE «, t00=0x006f, t01=0x016e}
0x0aef6…0af1a Head {h00=0x0020, h01=0x0050, text=» ADK A3,4 TCLBLK ADR POINTER«, t00=0x0070, t01=0x000e}
0x0af1a…0af46 Head {h00=0x0028, h01=0x0050, text=» CALL RELOC RELOCATE TCLBLK POINTER «, t00=0x0070, t01=0x0032}
0x0af46…0af6c Head {h00=0x0022, h01=0x0050, text=» RB RELTC1 NEXT TCLBLK POINTER«, t00=0x0070, t01=0x005e}
0x0af6c…0af80 Head {h00=0x0010, h01=0x0050, text=»RELTCX EQU *«, t00=0x0070, t01=0x0084}
0x0af80…0af8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0098}
0x0af8a…0afa4 Head {h00=0x0016, h01=0x0050, text=»* RELOCATE APPTAB «, t00=0x0070, t01=0x00a2}
0x0afa4…0afae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00bc}
0x0afae…0afc2 Head {h00=0x0010, h01=0x0050, text=»RELAPP EQU *«, t00=0x0070, t01=0x00c6}
0x0afc2…0afe6 Head {h00=0x0020, h01=0x0050, text=» LD A3,DDIVFR,A10 APPTAB ADR«, t00=0x0070, t01=0x00da}
0x0afe6…0b00e Head {h00=0x0024, h01=0x0050, text=» CALL RELOC RELOCATE TCLTAB-PNTR«, t00=0x0070, t01=0x00fe}
0x0b00e…0b022 Head {h00=0x0010, h01=0x0050, text=»RELAPX EQU *«, t00=0x0070, t01=0x0126}
0x0b022…0b02c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x013a}
0x0b02c…0b05e Head {h00=0x002e, h01=0x0050, text=»* RELOCATE SHADOW-TABLE2 (ITCT ADDRESSES) «, t00=0x0070, t01=0x0144}
0x0b05e…0b068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0176}
0x0b068…0b07c Head {h00=0x0010, h01=0x0050, text=»RELSHT EQU *«, t00=0x0070, t01=0x0180}
0x0b07c…0b0a4 (113, 0, 400) Head {h00=0x0024, h01=0x0050, text=» LD* A1,SHADOW,A10 SHTAB LENGTH «, t00=0x0071, t01=0x0004}
0x0b0a4…0b0ca Head {h00=0x0022, h01=0x0050, text=» LDR A2,A1 SAVE SHTAB2 LENGTH «, t00=0x0071, t01=0x002c}
0x0b0ca…0b0ee Head {h00=0x0020, h01=0x0050, text=» AD A1,SHADOW,A10 SHTAB2 ADR«, t00=0x0071, t01=0x0052}
0x0b0ee…0b102 Head {h00=0x0010, h01=0x0050, text=»RELSH1 EQU *«, t00=0x0071, t01=0x0076}
0x0b102…0b128 Head {h00=0x0022, h01=0x0050, text=» SUK A2,2 ADJUST SHTAB2 LENGTH«, t00=0x0071, t01=0x008a}
0x0b128…0b158 Head {h00=0x002c, h01=0x0050, text=» RF(Z) RELSHX RELOCATION OF SHTAB2 DONE «, t00=0x0071, t01=0x00b0}
0x0b158…0b17c Head {h00=0x0020, h01=0x0050, text=» ADK A1,2 POINT AT ITCT ADR «, t00=0x0071, t01=0x00e0}
0x0b17c…0b1a2 Head {h00=0x0022, h01=0x0050, text=» ADRS A6,A1 RELOCATE ITCT ADR «, t00=0x0071, t01=0x0104}
0x0b1a2…0b1ba Head {h00=0x0014, h01=0x0050, text=» RB RELSH1 NEXT «, t00=0x0071, t01=0x012a}
0x0b1ba…0b1ce Head {h00=0x0010, h01=0x0050, text=»RELSHX EQU *«, t00=0x0071, t01=0x0142}
0x0b1ce…0b1fc Head {h00=0x002a, h01=0x0050, text=» ADKL A10,TABLEN NEXT APPL. SAVE AREA «, t00=0x0071, t01=0x0156}
0x0b1fc…0b222 Head {h00=0x0022, h01=0x0050, text=» RB SYA180 CHECK IF MORE APPL.«, t00=0x0071, t01=0x0184}
0x0b222…0b236 Head {h00=0x0010, h01=0x0050, text=»OUT01 EQU * «, t00=0x0072, t01=0x001a}
0x0b236…0b23e Head {h00=0x0004, h01=0x0050, t00=0x0072, t01=0x002e}
0x0b23e…0b278 Head {h00=0x0036, h01=0x0050, text=» LD A5,RELOCA+STKEND GET NEW RELOCATION INCREMENT «, t00=0x0072, t01=0x0036}
0x0b278…0b2b0 Head {h00=0x0034, h01=0x0050, text=» ADS A5,M:REL+STKCOM AND ADJUST RELOCATION BASE «, t00=0x0072, t01=0x0070}
0x0b2b0…0b2b8 Head {h00=0x0004, h01=0x0050, t00=0x0072, t01=0x00a8}
0x0b2b8…0b2d6 Head {h00=0x001a, h01=0x0050, text=»* CONTINUE IN PART 2 *«, t00=0x0072, t01=0x00b0}
0x0b2d6…0b2e2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0072, t01=0x00ce}
0x0b2e2…0b316 Head {h00=0x0030, h01=0x0050, text=» LD A2,LCOTO+STKEND GET TO-ADDRESS (SYSLCO) «, t00=0x0072, t01=0x00da}
0x0b316…0b344 Head {h00=0x002a, h01=0x0050, text=» OR A2,MMREL1+STKEND PHYSICALL ADDRESS«, t00=0x0072, t01=0x010e}
0x0b344…0b35c Head {h00=0x0014, h01=0x0050, text=» LDR A5,A2 SAVE «, t00=0x0072, t01=0x013c}
0x0b35c…0b378 Head {h00=0x0018, h01=0x0050, text=» AD A5,MOVLE1+STKEND«, t00=0x0072, t01=0x0154}
0x0b378…0b3a0 Head {h00=0x0024, h01=0x0050, text=» SUKL A5,INILEN A5=SYSINI START «, t00=0x0072, t01=0x0170}
0x0b3a0…0b3d4 Head {h00=0x0030, h01=0x0050, text=» LDKL A7,START2 GET EXECUTION START ADDRESS «, t00=0x0073, t01=0x0008}
0x0b3d4…0b404 Head {h00=0x002c, h01=0x0050, text=» AD A7,M:REL+STKCOM ADD RELOCATION BASE «, t00=0x0073, t01=0x003c}
0x0b404…0b436 Head {h00=0x002e, h01=0x0050, text=» LD A3,MOVLE1+STKEND SYSLCO+SYSINI LENGTH «, t00=0x0073, t01=0x006c}
0x0b436…0b460 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,PART2 GET START OF PART2 «, t00=0x0073, t01=0x009e}
0x0b460…0b490 Head {h00=0x002c, h01=0x0050, text=» AD A1,M:REL+STKCOM ADD RELOCATION BASE «, t00=0x0073, t01=0x00c8}
0x0b490…0b4ba Head {h00=0x0026, h01=0x0050, text=» SU A1,RELOCA+STKEND FROM ADDRESS «, t00=0x0073, t01=0x00f8}
0x0b4ba…0b4c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0122}
0x0b4c4…0b4f4 Head {h00=0x002c, h01=0x0050, text=»* JUMP TO ROUTINE IN SYSTEM-STACK WHICH «, t00=0x0073, t01=0x012c}
0x0b4f4…0b526 Head {h00=0x002e, h01=0x0050, text=»* MOVES SYSLCO, AND THEN CONTINUE IN PART2«, t00=0x0073, t01=0x015c}
0x0b526…0b54c Head {h00=0x0022, h01=0x0050, text=»* INPUT TO ROUTINE IN STACK IS«, t00=0x0073, t01=0x018e}
0x0b54c…0b566 Head {h00=0x0016, h01=0x0050, text=»* A1 = FROM ADDR. «, t00=0x0074, t01=0x0024}
0x0b566…0b57e Head {h00=0x0014, h01=0x0050, text=»* A2 = TO ADDR. «, t00=0x0074, t01=0x003e}
0x0b57e…0b594 Head {h00=0x0012, h01=0x0050, text=»* A3 = LENGTH «, t00=0x0074, t01=0x0056}
0x0b594…0b5b0 Head {h00=0x0018, h01=0x0050, text=»* A7 = RESTART ADDR.«, t00=0x0074, t01=0x006c}
0x0b5b0…0b5ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0088}
0x0b5ba…0b5e2 Head {h00=0x0024, h01=0x0050, text=» ABL STKMOV JUMP TO MOVE-ROUTINE«, t00=0x0074, t01=0x0092}
0x0b5e2…0b5f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0074, t01=0x00ba}
0x0b5f0…0b5fc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0074, t01=0x00c8}
0x0b5fc…0b636 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0074, t01=0x00d4}
0x0b636…0b670 Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x0074, t01=0x010e}
0x0b670…0b6aa Head {h00=0x0036, h01=0x0050, text=»** SYSLOAD PART 2 ** «, t00=0x0074, t01=0x0148}
0x0b6aa…0b6e4 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x0074, t01=0x0182}
0x0b6e4…0b71e Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0075, t01=0x002c}
0x0b71e…0b726 Head {h00=0x0004, h01=0x0050, t00=0x0075, t01=0x0066}
0x0b726…0b760 Head {h00=0x0036, h01=0x0050, text=»* BUILD COMMON AND TASKCLASS DATA AREAS. * «, t00=0x0075, t01=0x006e}
0x0b760…0b79a Head {h00=0x0036, h01=0x0050, text=»* BUILD TASKDATA PROTOTYPE AREA * «, t00=0x0075, t01=0x00a8}
0x0b79a…0b7d4 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0075, t01=0x00e2}
0x0b7d4…0b80e Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0075, t01=0x011c}
0x0b80e…0b816 Head {h00=0x0004, h01=0x0050, t00=0x0075, t01=0x0156}
0x0b816…0b82a Head {h00=0x0010, h01=0x0050, text=»PART2 EQU *«, t00=0x0075, t01=0x015e}
0x0b82a…0b832 Head {h00=0x0004, h01=0x0050, t00=0x0075, t01=0x0172}
0x0b832…0b866 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0075, t01=0x017a}
0x0b866…0b89a Head {h00=0x0030, h01=0x0050, text=»*** ***«, t00=0x0076, t01=0x001e}
0x0b89a…0b8ce Head {h00=0x0030, h01=0x0050, text=»** S U B R O U T I N E S **«, t00=0x0076, t01=0x0052}
0x0b8ce…0b902 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0076, t01=0x0086}
0x0b902…0b90a Head {h00=0x0004, h01=0x0050, t00=0x0076, t01=0x00ba}
0x0b90a…0b916 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0076, t01=0x00c2}
0x0b916…0b924 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x00ce}
0x0b924…0b954 Head {h00=0x002c, h01=0x0050, text=»* M O V C O M * «, t00=0x0076, t01=0x00dc}
0x0b954…0b984 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x0076, t01=0x010c}
0x0b984…0b9b4 Head {h00=0x002c, h01=0x0050, text=»* MOVE ICB-PGTG AND PGTG-DATA * «, t00=0x0076, t01=0x013c}
0x0b9b4…0b9e4 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x0076, t01=0x016c}
0x0b9e4…0ba14 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0077, t01=0x000c}
0x0ba14…0ba1c Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x003c}
0x0ba1c…0ba30 Head {h00=0x0010, h01=0x0050, text=»MOVCOM EQU *«, t00=0x0077, t01=0x0044}
0x0ba30…0ba52 Head {h00=0x001e, h01=0x0050, text=» CALL FNDCOM ICB-PGTG ADR «, t00=0x0077, t01=0x0058}
0x0ba52…0ba7a Head {h00=0x0024, h01=0x0050, text=» LD A3,DDIVTO+STKEND APPTAB ADR «, t00=0x0077, t01=0x007a}
0x0ba7a…0baa4 Head {h00=0x0026, h01=0x0050, text=» EL A3,APPTGL,A3 PGTG-DATA LENGTH «, t00=0x0077, t01=0x00a2}
0x0baa4…0bad4 Head {h00=0x002c, h01=0x0050, text=» CALL CALLMO ALLOCATE AND MOVE PGTG-DATA«, t00=0x0077, t01=0x00cc}
0x0bad4…0bb0c Head {h00=0x0034, h01=0x0050, text=» ST A2,PGTGAD+STKEND SAVE PGTG-DATA NEW ADDRESS «, t00=0x0077, t01=0x00fc}
0x0bb0c…0bb28 Head {h00=0x0018, h01=0x0050, text=» LD A1,DDIVTO+STKEND«, t00=0x0077, t01=0x0134}
0x0bb28…0bb42 Head {h00=0x0016, h01=0x0050, text=» LD A3,DDIVFR,A10 «, t00=0x0077, t01=0x0150}
0x0bb42…0bb52 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0077, t01=0x016a}
0x0bb52…0bb60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0077, t01=0x017a}
0x0bb60…0bb88 Head {h00=0x0024, h01=0x0050, text=»* F N D C O M *«, t00=0x0077, t01=0x0188}
0x0bb88…0bbb0 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x0078, t01=0x0020}
0x0bbb0…0bbd8 Head {h00=0x0024, h01=0x0050, text=»* FIND PGTG-DATA *«, t00=0x0078, t01=0x0048}
0x0bbd8…0bc00 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x0078, t01=0x0070}
0x0bc00…0bc28 Head {h00=0x0024, h01=0x0050, text=»* EXIT : A1 PGTG-DATA ADR *«, t00=0x0078, t01=0x0098}
0x0bc28…0bc50 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0078, t01=0x00c0}
0x0bc50…0bc58 Head {h00=0x0004, h01=0x0050, t00=0x0078, t01=0x00e8}
0x0bc58…0bc6c Head {h00=0x0010, h01=0x0050, text=»FNDCOM EQU *«, t00=0x0078, t01=0x00f0}
0x0bc6c…0bc98 Head {h00=0x0028, h01=0x0050, text=» EL* A1,DDIVTO+STKEND ADR TO TCLTAB «, t00=0x0078, t01=0x0104}
0x0bc98…0bcba Head {h00=0x001e, h01=0x0050, text=» EL A1,4,A1 ADR TO TCLBLK «, t00=0x0078, t01=0x0130}
0x0bcba…0bcde Head {h00=0x0020, h01=0x0050, text=» EL A1,TCLTCT,A1 ADR TO ITCT«, t00=0x0078, t01=0x0152}
0x0bcde…0bd02 Head {h00=0x0020, h01=0x0050, text=» ELR A1,A1 ADR TO PGTG-DATA «, t00=0x0078, t01=0x0176}
0x0bd02…0bd12 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x000a}
0x0bd12…0bd20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x001a}
0x0bd20…0bd52 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0079, t01=0x0028}
0x0bd52…0bd84 Head {h00=0x002e, h01=0x0050, text=»* R E L T G C * «, t00=0x0079, t01=0x005a}
0x0bd84…0bdb6 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0079, t01=0x008c}
0x0bdb6…0bde8 Head {h00=0x002e, h01=0x0050, text=»* RELOCATE ICB-PLTGC CALL-TAB * «, t00=0x0079, t01=0x00be}
0x0bde8…0be1a Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0079, t01=0x00f0}
0x0be1a…0be4c Head {h00=0x002e, h01=0x0050, text=»* INPUT: PLTGCS= ICB-PLTGC BLOCK * «, t00=0x0079, t01=0x0122}
0x0be4c…0be7e Head {h00=0x002e, h01=0x0050, text=»* START ADDRESS * «, t00=0x0079, t01=0x0154}
0x0be7e…0beb0 Head {h00=0x002e, h01=0x0050, text=»* PLTGCL= ICB-PLTGC BLOCK * «, t00=0x0079, t01=0x0186}
0x0beb0…0bee2 Head {h00=0x002e, h01=0x0050, text=»* LENGTH * «, t00=0x007a, t01=0x0028}
0x0bee2…0bf14 Head {h00=0x002e, h01=0x0050, text=»* A6 = RELOCATION INCREMENT * «, t00=0x007a, t01=0x005a}
0x0bf14…0bf46 Head {h00=0x002e, h01=0x0050, text=»* A10 = APPL.SAVE AREA POINTER* «, t00=0x007a, t01=0x008c}
0x0bf46…0bf78 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x007a, t01=0x00be}
0x0bf78…0bfaa Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x007a, t01=0x00f0}
0x0bfaa…0bfb2 Head {h00=0x0004, h01=0x0050, t00=0x007a, t01=0x0122}
0x0bfb2…0bfc6 Head {h00=0x0010, h01=0x0050, text=»RELTGC EQU *«, t00=0x007a, t01=0x012a}
0x0bfc6…0bff4 Head {h00=0x002a, h01=0x0050, text=» LD A3,PLTGCS,A10 ICB-PLTGC START ADR «, t00=0x007a, t01=0x013e}
0x0bff4…0c01e Head {h00=0x0026, h01=0x0050, text=» LD A2,PLTGCL,A10 ICB-PLTGC LENGTH«, t00=0x007a, t01=0x016c}
0x0c01e…0c042 Head {h00=0x0020, h01=0x0050, text=» ADR A2,A3 ICB-PLTGC END ADR«, t00=0x007b, t01=0x0008}
0x0c042…0c056 Head {h00=0x0010, h01=0x0050, text=»RELTG1 EQU *«, t00=0x007b, t01=0x002c}
0x0c056…0c068 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x007b, t01=0x0040}
0x0c068…0c090 Head {h00=0x0024, h01=0x0050, text=» LDR A11,A1 GET ADR FOR COMPARE «, t00=0x007b, t01=0x0052}
0x0c090…0c0b6 Head {h00=0x0022, h01=0x0050, text=» LDR A9,A2 GET ADR FOR COMPARE«, t00=0x007b, t01=0x007a}
0x0c0b6…0c0e6 Head {h00=0x002c, h01=0x0050, text=» CALL CMPADR ALL ICB-PLTGC'S RELOCATED ?«, t00=0x007b, t01=0x00a0}
0x0c0e6…0c100 Head {h00=0x0016, h01=0x0050, text=» RF(NL) RELTGX YES«, t00=0x007b, t01=0x00d0}
0x0c100…0c12e Head {h00=0x002a, h01=0x0050, text=» ELR A3,A1 GET FIRST WORD IN ICB-PLTGC«, t00=0x007b, t01=0x00ea}
0x0c12e…0c14e Head {h00=0x001c, h01=0x0050, text=» SRC A3,8 GET FIRST BYTE«, t00=0x007b, t01=0x0118}
0x0c14e…0c178 Head {h00=0x0026, h01=0x0050, text=» CCK A3,/6161 HANDLED BY LIMTGC ? «, t00=0x007b, t01=0x0138}
0x0c178…0c192 Head {h00=0x0016, h01=0x0050, text=» RF(NE) RELTG2 NO «, t00=0x007b, t01=0x0162}
0x0c192…0c1b0 Head {h00=0x001a, h01=0x0050, text=» XRK A3,1 CLEAR BIT 15«, t00=0x007b, t01=0x017c}
0x0c1b0…0c1d6 Head {h00=0x0022, h01=0x0050, text=» SLC A3,8 NEW FIRST WORD VALUE«, t00=0x007c, t01=0x000a}
0x0c1d6…0c1f4 Head {h00=0x001a, h01=0x0050, text=» ESR A3,A1 RESTORE IT «, t00=0x007c, t01=0x0030}
0x0c1f4…0c208 Head {h00=0x0010, h01=0x0050, text=»RELTG2 EQU *«, t00=0x007c, t01=0x004e}
0x0c208…0c230 Head {h00=0x0024, h01=0x0050, text=» EL A3,TGCCAL,A1 NBR OF ENTRIES «, t00=0x007c, t01=0x0062}
0x0c230…0c252 Head {h00=0x001e, h01=0x0050, text=» SLL A3,1 *2 NBR OF BYTES «, t00=0x007c, t01=0x008a}
0x0c252…0c26e Head {h00=0x0018, h01=0x0050, text=» ADR A3,A1 ADD BASE «, t00=0x007c, t01=0x00ac}
0x0c26e…0c2a6 Head {h00=0x0034, h01=0x0050, text=» ADK A3,10 POINTER TO 1:ST WORD AFTER LAST ENTRY«, t00=0x007c, t01=0x00c8}
0x0c2a6…0c2c2 Head {h00=0x0018, h01=0x0050, text=» LDR A4,A1 GET BASE «, t00=0x007c, t01=0x0100}
0x0c2c2…0c2e0 Head {h00=0x001a, h01=0x0050, text=» ADK A4,10 1:ST ENTRY «, t00=0x007c, t01=0x011c}
0x0c2e0…0c2f2 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x007c, t01=0x013a}
0x0c2f2…0c306 Head {h00=0x0010, h01=0x0050, text=»RELTG3 EQU *«, t00=0x007c, t01=0x014c}
0x0c306…0c31a Head {h00=0x0010, h01=0x0050, text=» LDR A11,A4 «, t00=0x007c, t01=0x0160}
0x0c31a…0c346 Head {h00=0x0028, h01=0x0050, text=» CALL CMPADR END OF THIS ICB-PLTGC ?«, t00=0x007c, t01=0x0174}
0x0c346…0c37e Head {h00=0x0034, h01=0x0050, text=» RB(NL) RELTG1 YES,CONTINUE WITH NEXT ICB-PLTGC «, t00=0x007d, t01=0x0010}
0x0c37e…0c3a6 Head {h00=0x0024, h01=0x0050, text=» ELR A11,A4 GET ADR TO RELOCATE «, t00=0x007d, t01=0x0048}
0x0c3a6…0c3c2 Head {h00=0x0018, h01=0x0050, text=» ADR A11,A6 RELOCATE«, t00=0x007d, t01=0x0070}
0x0c3c2…0c3d6 Head {h00=0x0010, h01=0x0050, text=» ELR A1,A11 «, t00=0x007d, t01=0x008c}
0x0c3d6…0c3e8 Head {h00=0x000e, h01=0x0050, text=» SRL A1,8 «, t00=0x007d, t01=0x00a0}
0x0c3e8…0c408 Head {h00=0x001c, h01=0x0050, text=» SUK A1,/60 ICB-PLTGC ? «, t00=0x007d, t01=0x00b2}
0x0c408…0c430 Head {h00=0x0024, h01=0x0050, text=» RF(N) RELTG4 NO, ASM-SUBROUTINE«, t00=0x007d, t01=0x00d2}
0x0c430…0c442 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x007d, t01=0x00fa}
0x0c442…0c46a Head {h00=0x0024, h01=0x0050, text=» RF(P) RELTG4 NO, ASM-SUBROUTINE«, t00=0x007d, t01=0x010c}
0x0c46a…0c494 Head {h00=0x0026, h01=0x0050, text=» ESR A11,A4 RESTORE RELOCATED ADR «, t00=0x007d, t01=0x0134}
0x0c494…0c4a8 Head {h00=0x0010, h01=0x0050, text=»RELTG4 EQU *«, t00=0x007d, t01=0x015e}
0x0c4a8…0c4d0 Head {h00=0x0024, h01=0x0050, text=» ADK A4,2 STEP CALL-TAB POINTER «, t00=0x007d, t01=0x0172}
0x0c4d0…0c4f6 Head {h00=0x0022, h01=0x0050, text=» RB RELTG3 NEXT CALL-TAB-ENTRY«, t00=0x007e, t01=0x000a}
0x0c4f6…0c50a Head {h00=0x0010, h01=0x0050, text=»RELTGX EQU *«, t00=0x007e, t01=0x0030}
0x0c50a…0c51a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007e, t01=0x0044}
0x0c51a…0c528 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007e, t01=0x0054}
0x0c528…0c552 Head {h00=0x0026, h01=0x0050, text=»* F N D B L K *«, t00=0x007e, t01=0x0062}
0x0c552…0c57c Head {h00=0x0026, h01=0x0050, text=»* *«, t00=0x007e, t01=0x008c}
0x0c57c…0c5a6 Head {h00=0x0026, h01=0x0050, text=»* FIND A TCLBLK CORRESPONDING *«, t00=0x007e, t01=0x00b6}
0x0c5a6…0c5d0 Head {h00=0x0026, h01=0x0050, text=»* TO AN ITCT ADDRESS *«, t00=0x007e, t01=0x00e0}
0x0c5d0…0c5fa Head {h00=0x0026, h01=0x0050, text=»* *«, t00=0x007e, t01=0x010a}
0x0c5fa…0c624 Head {h00=0x0026, h01=0x0050, text=»* INPUT : A7 ITCT ADR *«, t00=0x007e, t01=0x0134}
0x0c624…0c64e Head {h00=0x0026, h01=0x0050, text=»* DDIVTO APPTAB ADR *«, t00=0x007e, t01=0x015e}
0x0c64e…0c678 Head {h00=0x0026, h01=0x0050, text=»* EXIT : A1 TCLBLK-PNTR ADR *«, t00=0x007e, t01=0x0188}
0x0c678…0c6a2 Head {h00=0x0026, h01=0x0050, text=»* IN TLCTAB *«, t00=0x007f, t01=0x0022}
0x0c6a2…0c6cc Head {h00=0x0026, h01=0x0050, text=»* A3 TCLBLK ADR *«, t00=0x007f, t01=0x004c}
0x0c6cc…0c6f6 Head {h00=0x0026, h01=0x0050, text=»* WORK : A2,A5 *«, t00=0x007f, t01=0x0076}
0x0c6f6…0c720 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x007f, t01=0x00a0}
0x0c720…0c728 Head {h00=0x0004, h01=0x0050, t00=0x007f, t01=0x00ca}
0x0c728…0c73c Head {h00=0x0010, h01=0x0050, text=»FNDBLK EQU *«, t00=0x007f, t01=0x00d2}
0x0c73c…0c764 Head {h00=0x0024, h01=0x0050, text=» LD A1,DDIVTO+STKEND TCLTAB ADR «, t00=0x007f, t01=0x00e6}
0x0c764…0c776 Head {h00=0x000e, h01=0x0050, text=» ELR A1,A1«, t00=0x007f, t01=0x010e}
0x0c776…0c798 Head {h00=0x001e, h01=0x0050, text=» ELR A2,A1 NBR OF TCLBLK'S«, t00=0x007f, t01=0x0120}
0x0c798…0c7ac Head {h00=0x0010, h01=0x0050, text=»FNDBL0 EQU *«, t00=0x007f, t01=0x0142}
0x0c7ac…0c7d4 Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 COUNT NBR OF TCLBLK'S «, t00=0x007f, t01=0x0156}
0x0c7d4…0c7f6 Head {h00=0x001e, h01=0x0050, text=» RF(NN) FNDBL1 BLOCKS LEFT«, t00=0x007f, t01=0x017e}
0x0c7f6…0c80a Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP4«, t00=0x0080, t01=0x0010}
0x0c80a…0c81e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0080, t01=0x0024}
0x0c81e…0c832 Head {h00=0x0010, h01=0x0050, text=»FNDBL1 EQU *«, t00=0x0080, t01=0x0038}
0x0c832…0c854 Head {h00=0x001e, h01=0x0050, text=» ADK A1,4 TCLBLK-PNTR ADR «, t00=0x0080, t01=0x004c}
0x0c854…0c872 Head {h00=0x001a, h01=0x0050, text=» ELR A3,A1 TCLBLK-PNTR«, t00=0x0080, t01=0x006e}
0x0c872…0c898 Head {h00=0x0022, h01=0x0050, text=» EL A5,TCLTCT,A3 ITCT FOUND ? «, t00=0x0080, t01=0x008c}
0x0c898…0c8aa Head {h00=0x000e, h01=0x0050, text=» CWR A7,A5«, t00=0x0080, t01=0x00b2}
0x0c8aa…0c8d4 Head {h00=0x0026, h01=0x0050, text=» RB(NE) FNDBL0 NO,TRY NEXT TCLBLK «, t00=0x0080, t01=0x00c4}
0x0c8d4…0c8f0 Head {h00=0x0018, h01=0x0050, text=» RTN A14 YES,RETURN «, t00=0x0080, t01=0x00ee}
0x0c8f0…0c8fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x010a}
0x0c8fe…0c906 Head {h00=0x0004, h01=0x0050, t00=0x0080, t01=0x0118}
0x0c906…0c92c Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0080, t01=0x0120}
0x0c92c…0c952 Head {h00=0x0022, h01=0x0050, text=»* START OF PROGRAM PART 2 * «, t00=0x0080, t01=0x0146}
0x0c952…0c978 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0080, t01=0x016c}
0x0c978…0c980 (129, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0081, t01=0x0004}
0x0c980…0c99e Head {h00=0x001a, h01=0x0050, text=»* LOAD BASE ADDRESS * «, t00=0x0081, t01=0x000c}
0x0c99e…0c9bc Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0081, t01=0x002a}
0x0c9bc…0c9d6 Head {h00=0x0016, h01=0x0050, text=»* A5=START-ADDRESS«, t00=0x0081, t01=0x0048}
0x0c9d6…0c9fc Head {h00=0x0022, h01=0x0050, text=»* SAVE01=RELOCATION INCREMENT «, t00=0x0081, t01=0x0062}
0x0c9fc…0ca1c Head {h00=0x001c, h01=0x0050, text=»* SAVE03=DDIV TO-ADDRESS«, t00=0x0081, t01=0x0088}
0x0ca1c…0ca3e Head {h00=0x001e, h01=0x0050, text=»* SAVE04=DDIV FROM ADDRESS«, t00=0x0081, t01=0x00a8}
0x0ca3e…0ca66 Head {h00=0x0024, h01=0x0050, text=»* SAVE05=LENGTH OF REAL ITCTTAB «, t00=0x0081, t01=0x00ca}
0x0ca66…0ca72 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0081, t01=0x00f2}
0x0ca72…0ca86 Head {h00=0x0010, h01=0x0050, text=»START2 EQU *«, t00=0x0081, t01=0x00fe}
0x0ca86…0caac Head {h00=0x0022, h01=0x0050, text=» LDR A8,P LOAD TEMP. STACKBASE«, t00=0x0081, t01=0x0112}
0x0caac…0cad8 Head {h00=0x0028, h01=0x0050, text=» ADK A5,2 ADD FOR RELOCATION ROUTINE«, t00=0x0081, t01=0x0138}
0x0cad8…0caea Head {h00=0x000e, h01=0x0050, text=» CFR A8,A5«, t00=0x0081, t01=0x0164}
0x0caea…0caf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0176}
0x0caf4…0cb26 Head {h00=0x002e, h01=0x0050, text=»* INITIATE REGISTERS AND VARIABLES «, t00=0x0081, t01=0x0180}
0x0cb26…0cb30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0022}
0x0cb30…0cb66 Head {h00=0x0032, h01=0x0050, text=» LDKL A10,STKEND START OF 1:ST APPL. SAVE AREA«, t00=0x0082, t01=0x002c}
0x0cb66…0cb98 Head {h00=0x002e, h01=0x0050, text=» LD A1,APCTAB,A10 FIRST APLTAB BLOCK ADDR.«, t00=0x0082, t01=0x0062}
0x0cb98…0cbd0 Head {h00=0x0034, h01=0x0050, text=» LD A2,APPLNO+STKCOM GET NUMBER OF APPLICATIONS «, t00=0x0082, t01=0x0094}
0x0cbd0…0cbfa Head {h00=0x0026, h01=0x0050, text=» ST A2,ALICOU+STKEND INIT. ALICOU «, t00=0x0082, t01=0x00cc}
0x0cbfa…0cc0c Head {h00=0x000e, h01=0x0050, text=» RF PRT200«, t00=0x0082, t01=0x00f6}
0x0cc0c…0cc16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0108}
0x0cc16…0cc4a Head {h00=0x0030, h01=0x0050, text=»* UPDATE VALUES FOR NEXT APPLICATION «, t00=0x0082, t01=0x0112}
0x0cc4a…0cc54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0146}
0x0cc54…0cc68 Head {h00=0x0010, h01=0x0050, text=»NXTAPP EQU *«, t00=0x0082, t01=0x0150}
0x0cc68…0cc96 Head {h00=0x002a, h01=0x0050, text=» ADKL A10,TABLEN NEXT APPL. SAVE AREA «, t00=0x0082, t01=0x0164}
0x0cc96…0ccc2 (131, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LD A1,APCTAB,A10 NEXT APLTAB BLOCK «, t00=0x0083, t01=0x0004}
0x0ccc2…0ccf0 Head {h00=0x002a, h01=0x0050, text=» LD A2,ALICOU+STKEND GET APPL.COUNTER «, t00=0x0083, t01=0x0030}
0x0ccf0…0cd18 Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT APPL.COUNTER«, t00=0x0083, t01=0x005e}
0x0cd18…0cd46 Head {h00=0x002a, h01=0x0050, text=» ST A2,ALICOU+STKEND SAVE APPL.COUNTER«, t00=0x0083, t01=0x0086}
0x0cd46…0cd70 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) PRT200 IF ANY APPL IS LEFT«, t00=0x0083, t01=0x00b4}
0x0cd70…0cd92 Head {h00=0x001e, h01=0x0050, text=» DON'T LEAVE SYSLCO YET «, t00=0x0083, t01=0x00de}
0x0cd92…0cdc8 Head {h00=0x0032, h01=0x0050, text=» LD A2,SAEFA1+STKEND GET END OF FREE AREA PAGE«, t00=0x0083, t01=0x0100}
0x0cdc8…0cdfc Head {h00=0x0030, h01=0x0050, text=» ST A2,FYSPAG+STKCOM SET FYSPAG TO THAT PAGE«, t00=0x0083, t01=0x0136}
0x0cdfc…0ce34 Head {h00=0x0034, h01=0x0050, text=» LD A2,SAEFA2+STKEND GET END OF FREE AREA DISPL.«, t00=0x0083, t01=0x016a}
0x0ce34…0ce6a Head {h00=0x0032, h01=0x0050, text=» ST A2,LSTADR+STKCOM SET LSTADR TO THAT DISPL.«, t00=0x0084, t01=0x0012}
0x0ce6a…0ce98 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,LCOEND GET SYSLCO END ADDRESS«, t00=0x0084, t01=0x0048}
0x0ce98…0cec8 Head {h00=0x002c, h01=0x0050, text=» AD A2,M:REL+STKCOM ADD RELOCATION BASE «, t00=0x0084, t01=0x0076}
0x0cec8…0cee4 Head {h00=0x0018, h01=0x0050, text=» ABR A2 LEAVE SYSLCO«, t00=0x0084, t01=0x00a6}
0x0cee4…0ceec Head {h00=0x0004, h01=0x0050, t00=0x0084, t01=0x00c2}
0x0ceec…0cf00 Head {h00=0x0010, h01=0x0050, text=»PRT200 EQU *«, t00=0x0084, t01=0x00ca}
0x0cf00…0cf0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00de}
0x0cf0a…0cf3c Head {h00=0x002e, h01=0x0050, text=»* GET MMU-TABLE FROM TTAB OF CURRENT TASK «, t00=0x0084, t01=0x00e8}
0x0cf3c…0cf46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x011a}
0x0cf46…0cf80 Head {h00=0x0036, h01=0x0050, text=» LD* A2,APLMMC,A1 GET TCTAB ENTRY FOR CURRENT TASK«, t00=0x0084, t01=0x0124}
0x0cf80…0cfb6 Head {h00=0x0032, h01=0x0050, text=» ADKL A2,TTB:MT ADDR. TO 1:ST MMU-TABLE ENTRY «, t00=0x0084, t01=0x015e}
0x0cfb6…0cfd4 (133, 0, 400) Head {h00=0x001a, h01=0x0050, text=» TLR A2 LOAD MMU-TABLE«, t00=0x0085, t01=0x0004}
0x0cfd4…0d002 Head {h00=0x002a, h01=0x0050, text=» TS MMTAB,A13 STORE MMU-TABLE IN MMTAB«, t00=0x0085, t01=0x0022}
0x0d002…0d00c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0050}
0x0d00c…0d044 Head {h00=0x0034, h01=0x0050, text=»* CHECK IF END OF FREE AREA STARTS WHERE «, t00=0x0085, t01=0x005a}
0x0d044…0d07c Head {h00=0x0034, h01=0x0050, text=»* PROT. DDIV FOR THIS APPLICATION STARTS «, t00=0x0085, t01=0x0092}
0x0d07c…0d0a2 Head {h00=0x0022, h01=0x0050, text=»* AND IF SO RESET FLAG «, t00=0x0085, t01=0x00ca}
0x0d0a2…0d0ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00f0}
0x0d0ac…0d0d6 Head {h00=0x0026, h01=0x0050, text=» LD A2,APLLAC,A1 GET SEGTAB ADDR. «, t00=0x0085, t01=0x00fa}
0x0d0d6…0d0f6 Head {h00=0x001c, h01=0x0050, text=» ELR A9,A2 APPTAB ADDR. «, t00=0x0085, t01=0x0124}
0x0d0f6…0d126 Head {h00=0x002c, h01=0x0050, text=» EL A3,APPINT,A9 INTERPRETER ACTIV ADDR.«, t00=0x0085, t01=0x0144}
0x0d126…0d14a Head {h00=0x0020, h01=0x0050, text=» ST A3,INTENT+STKEND SAVE IT«, t00=0x0085, t01=0x0174}
0x0d14a…0d172 Head {h00=0x0024, h01=0x0050, text=» EL A9,APPCOM,A9 START OF APPL. «, t00=0x0086, t01=0x0008}
0x0d172…0d19c Head {h00=0x0026, h01=0x0050, text=» ST A9,APLLAC,A1 STORE NEW APLLAC «, t00=0x0086, t01=0x0030}
0x0d19c…0d1bc Head {h00=0x001c, h01=0x0050, text=» LDR A3,A2 SEGTAB ADDR. «, t00=0x0086, t01=0x005a}
0x0d1bc…0d1e0 Head {h00=0x0020, h01=0x0050, text=» SRL A3,11 MMU-ENTRY NUMBER «, t00=0x0086, t01=0x007a}
0x0d1e0…0d206 Head {h00=0x0022, h01=0x0050, text=» ADKL A3,MMTAB MMU-ENTRY ADDR.«, t00=0x0086, t01=0x009e}
0x0d206…0d222 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A13 RELOCATE«, t00=0x0086, t01=0x00c4}
0x0d222…0d250 Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A3 GET CONTENTS IN MMU-ENTRY «, t00=0x0086, t01=0x00e0}
0x0d250…0d266 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FC00«, t00=0x0086, t01=0x010e}
0x0d266…0d28e Head {h00=0x0024, h01=0x0050, text=» CW A3,SAEFA1+STKEND SAME PAGE? «, t00=0x0086, t01=0x0124}
0x0d28e…0d2a8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) PRT205 NO!«, t00=0x0086, t01=0x014c}
0x0d2a8…0d2c8 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A2 SEGTAB ADDR. «, t00=0x0086, t01=0x0166}
0x0d2c8…0d2ea Head {h00=0x001e, h01=0x0050, text=» ANKL A3,/FFF DISPLACEMENT«, t00=0x0086, t01=0x0186}
0x0d2ea…0d30e Head {h00=0x0020, h01=0x0050, text=» CM PDDIV+STKEND RESET FLAG «, t00=0x0087, t01=0x0018}
0x0d30e…0d346 Head {h00=0x0034, h01=0x0050, text=» CW A3,SAEFA2+STKEND SAME DISPLACEMENT IN PAGE? «, t00=0x0087, t01=0x003c}
0x0d346…0d360 Head {h00=0x0016, h01=0x0050, text=» RF(E) PRT220 YES!«, t00=0x0087, t01=0x0074}
0x0d360…0d36a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x008e}
0x0d36a…0d3a0 Head {h00=0x0032, h01=0x0050, text=»* CALCULATE LENGTH OF PROT. DDIV+SEGTAB«, t00=0x0087, t01=0x0098}
0x0d3a0…0d3aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x00ce}
0x0d3aa…0d3be Head {h00=0x0010, h01=0x0050, text=»PRT205 EQU *«, t00=0x0087, t01=0x00d8}
0x0d3be…0d3de Head {h00=0x001c, h01=0x0050, text=» LDR A3,A2 SEGTAB ADDR. «, t00=0x0087, t01=0x00ec}
0x0d3de…0d408 Head {h00=0x0026, h01=0x0050, text=» ANKL A3,/FFF DISPLACEMENT IN PAGE«, t00=0x0087, t01=0x010c}
0x0d408…0d43c Head {h00=0x0030, h01=0x0050, text=» SUKL A3,/800 MORE THAN 2K BYTE TO BUILD IN «, t00=0x0087, t01=0x0136}
0x0d43c…0d458 Head {h00=0x0018, h01=0x0050, text=» RF(NP) PRT210 YES! «, t00=0x0087, t01=0x016a}
0x0d458…0d478 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A2 SEGTAB ADDR. «, t00=0x0087, t01=0x0186}
0x0d478…0d498 Head {h00=0x001c, h01=0x0050, text=» ADKL A2,/1000 NEW PAGE «, t00=0x0088, t01=0x0016}
0x0d498…0d4c8 Head {h00=0x002c, h01=0x0050, text=» ANKL A2,/F000 DISPLACEMENT IN PAGE = 0 «, t00=0x0088, t01=0x0036}
0x0d4c8…0d4fc Head {h00=0x0030, h01=0x0050, text=» CWR A2,A9 HIGHER ADDR.THEN START OF APPL.? «, t00=0x0088, t01=0x0066}
0x0d4fc…0d516 Head {h00=0x0016, h01=0x0050, text=» RF(NG) PRT210 NO!«, t00=0x0088, t01=0x009a}
0x0d516…0d536 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A3 SEGTAB ADDR. «, t00=0x0088, t01=0x00b4}
0x0d536…0d54a Head {h00=0x0010, h01=0x0050, text=»PRT210 EQU *«, t00=0x0088, t01=0x00d4}
0x0d54a…0d574 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A9 APPLICATION START ADDR.«, t00=0x0088, t01=0x00e8}
0x0d574…0d5a2 Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 LENGTH OF SEGTAB+PROT.DDIV «, t00=0x0088, t01=0x0112}
0x0d5a2…0d5c0 Head {h00=0x001a, h01=0x0050, text=» ST A3,PDDIVL,A10 SAVE«, t00=0x0088, t01=0x0140}
0x0d5c0…0d5e2 Head {h00=0x001e, h01=0x0050, text=» IM PDDIV+STKEND SET FLAG «, t00=0x0088, t01=0x015e}
0x0d5e2…0d5f6 Head {h00=0x0010, h01=0x0050, text=»PRT220 EQU *«, t00=0x0088, t01=0x0180}
0x0d5f6…0d600 (137, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0004}
0x0d600…0d622 Head {h00=0x001e, h01=0x0050, text=»* STORE MMTABLE ADDRESSES «, t00=0x0089, t01=0x000e}
0x0d622…0d62c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0030}
0x0d62c…0d658 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,MMDDIV GET MMU-TABLE ADDR. «, t00=0x0089, t01=0x003a}
0x0d658…0d674 Head {h00=0x0018, h01=0x0050, text=» ADR A1,A13 RELOCATE«, t00=0x0089, t01=0x0066}
0x0d674…0d694 Head {h00=0x001c, h01=0x0050, text=» ST A1,MMTO+STKCOM SAVE «, t00=0x0089, t01=0x0082}
0x0d694…0d6be Head {h00=0x0026, h01=0x0050, text=» LDKL A1,MMTAB GET MMU-TABLE ADDR.«, t00=0x0089, t01=0x00a2}
0x0d6be…0d6da Head {h00=0x0018, h01=0x0050, text=» ADR A1,A13 RELOCATE«, t00=0x0089, t01=0x00cc}
0x0d6da…0d6fc Head {h00=0x001e, h01=0x0050, text=» ST A1,MMFROM+STKCOM SAVE «, t00=0x0089, t01=0x00e8}
0x0d6fc…0d706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x010a}
0x0d706…0d71a Head {h00=0x0010, h01=0x0050, text=»* MOVE DDIV «, t00=0x0089, t01=0x0114}
0x0d71a…0d724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0128}
0x0d724…0d74e Head {h00=0x0026, h01=0x0050, text=» LD A1,DDIVFR,A10 GET FROM-ADDRESS«, t00=0x0089, t01=0x0132}
0x0d74e…0d77a Head {h00=0x0028, h01=0x0050, text=» LD A2,DDIVTO+STKEND GET TO ADDRESS «, t00=0x0089, t01=0x015c}
0x0d77a…0d7b0 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A9 GET APPLICATION START (=END OF DDIV«, t00=0x0089, t01=0x0188}
0x0d7b0…0d7cc Head {h00=0x0018, h01=0x0050, text=» SUR A3,A1 => LENGTH«, t00=0x008a, t01=0x002e}
0x0d7cc…0d7e0 Head {h00=0x0010, h01=0x0050, text=» CALL XMOVE «, t00=0x008a, t01=0x004a}
0x0d7e0…0d802 Head {h00=0x001e, h01=0x0050, text=»* UPDATE FSTPAG AND FSTADR«, t00=0x008a, t01=0x005e}
0x0d802…0d832 Head {h00=0x002c, h01=0x0050, text=» LD A1,APCTAB,A10 GET APLTAB BLOCK ADDR.«, t00=0x008a, t01=0x0080}
0x0d832…0d85a Head {h00=0x0024, h01=0x0050, text=» LD A5,APLLAC,A1 DDIV END ADDR. «, t00=0x008a, t01=0x00b0}
0x0d85a…0d88a Head {h00=0x002c, h01=0x0050, text=» SU A5,DDIVFR,A10 END-START=DDIV LENGTH «, t00=0x008a, t01=0x00d8}
0x0d88a…0d8b4 Head {h00=0x0026, h01=0x0050, text=» AD A5,DDIVTO+STKEND NEW DDIV END «, t00=0x008a, t01=0x0108}
0x0d8b4…0d8c6 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A5«, t00=0x008a, t01=0x0132}
0x0d8c6…0d8f8 Head {h00=0x002e, h01=0x0050, text=» ANKL A6,/F000 GET LOGICAL PAGE (MM-ENTRY)«, t00=0x008a, t01=0x0144}
0x0d8f8…0d920 Head {h00=0x0024, h01=0x0050, text=» SRL A6,11 ADJUST FOR ADDRESSING«, t00=0x008a, t01=0x0176}
0x0d920…0d952 Head {h00=0x002e, h01=0x0050, text=» ADKL A6,MMDDIV ADD RELATIVE START ADDRESS«, t00=0x008b, t01=0x000e}
0x0d952…0d96e Head {h00=0x0018, h01=0x0050, text=» ADR A6,A13 RELOCATE«, t00=0x008b, t01=0x0040}
0x0d96e…0d998 Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A6 GET MM-TABLE CONTENTS «, t00=0x008b, t01=0x005c}
0x0d998…0d9ba Head {h00=0x001e, h01=0x0050, text=» ST A6,FSTPAG+STKCOM SAVE «, t00=0x008b, t01=0x0086}
0x0d9ba…0d9e0 Head {h00=0x0022, h01=0x0050, text=» ANKL A5,/FFF GET DISPLACEMENT«, t00=0x008b, t01=0x00a8}
0x0d9e0…0da06 Head {h00=0x0022, h01=0x0050, text=» ST A5,FSTADR+STKCOM AND SAVE «, t00=0x008b, t01=0x00ce}
0x0da06…0da36 Head {h00=0x002c, h01=0x0050, text=» SUKL A9,10 RESERVE 5 WORDS FOR DEBUGGER«, t00=0x008b, t01=0x00f4}
0x0da36…0da58 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF MEMORY OVERFLOW«, t00=0x008b, t01=0x0124}
0x0da58…0da70 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A9 SAVE «, t00=0x008b, t01=0x0146}
0x0da70…0da82 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A6«, t00=0x008b, t01=0x015e}
0x0da82…0daa0 Head {h00=0x001a, h01=0x0050, text=» LD A11,SAEFA1+STKEND «, t00=0x008b, t01=0x0170}
0x0daa0…0dab4 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x008b, t01=0x018e}
0x0dab4…0dace Head {h00=0x0016, h01=0x0050, text=» RF(G) SYA202 OK! «, t00=0x008c, t01=0x0012}
0x0dace…0daec Head {h00=0x001a, h01=0x0050, text=» RF(L) SYA201 NOT OK! «, t00=0x008c, t01=0x002c}
0x0daec…0dafe Head {h00=0x000e, h01=0x0050, text=» LDR A9,A5«, t00=0x008c, t01=0x004a}
0x0dafe…0db1c Head {h00=0x001a, h01=0x0050, text=» LD A11,SAEFA2+STKEND «, t00=0x008c, t01=0x005c}
0x0db1c…0db42 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x008c, t01=0x007a}
0x0db42…0db5c Head {h00=0x0016, h01=0x0050, text=» RF(NL) SYA202 NO!«, t00=0x008c, t01=0x00a0}
0x0db5c…0db70 Head {h00=0x0010, h01=0x0050, text=»SYA201 EQU *«, t00=0x008c, t01=0x00ba}
0x0db70…0db86 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x008c, t01=0x00ce}
0x0db86…0db9a Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x008c, t01=0x00e4}
0x0db9a…0dbae Head {h00=0x0010, h01=0x0050, text=»SYA202 EQU *«, t00=0x008c, t01=0x00f8}
0x0dbae…0dbc8 Head {h00=0x0016, h01=0x0050, text=» LDR A9,A1 RELOAD «, t00=0x008c, t01=0x010c}
0x0dbc8…0dbf2 Head {h00=0x0026, h01=0x0050, text=»* REMOVE DDIV ENTRIES IN MM-TABLE «, t00=0x008c, t01=0x0126}
0x0dbf2…0dbfa Head {h00=0x0004, h01=0x0050, t00=0x008c, t01=0x0150}
0x0dbfa…0dc22 Head {h00=0x0024, h01=0x0050, text=» SRL A1,11 ADJUST FOR ADDRESSING«, t00=0x008c, t01=0x0158}
0x0dc22…0dc36 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/1E «, t00=0x008c, t01=0x0180}
0x0dc36…0dc60 (141, 0, 398) Head {h00=0x0026, h01=0x0050, text=» LDKL A2,MMTAB-2 GET TABLE ADDRESS«, t00=0x008d, t01=0x0004}
0x0dc60…0dc7c Head {h00=0x0018, h01=0x0050, text=» ADR A2,A13 RELOCATE«, t00=0x008d, t01=0x002e}
0x0dc7c…0dca2 Head {h00=0x0022, h01=0x0050, text=» ADR A1,A2 APPTAB START ENTRY «, t00=0x008d, t01=0x004a}
0x0dca2…0dcb8 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/FC00«, t00=0x008d, t01=0x0070}
0x0dcb8…0dcd6 Head {h00=0x001a, h01=0x0050, text=»SYA205 CWR A1,A2 ALL? «, t00=0x008d, t01=0x0086}
0x0dcd6…0dcf0 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA207 YES!«, t00=0x008d, t01=0x00a4}
0x0dcf0…0dd20 Head {h00=0x002c, h01=0x0050, text=» STR A4,A1 REPLACE ENTRY WITH PAGE ERROR«, t00=0x008d, t01=0x00be}
0x0dd20…0dd32 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x008d, t01=0x00ee}
0x0dd32…0dd44 Head {h00=0x000e, h01=0x0050, text=» RB SYA205«, t00=0x008d, t01=0x0100}
0x0dd44…0dd58 Head {h00=0x0010, h01=0x0050, text=»SYA207 EQU *«, t00=0x008d, t01=0x0112}
0x0dd58…0dd78 Head {h00=0x001c, h01=0x0050, text=»* CHANGE TABLE-ADDRESSES«, t00=0x008d, t01=0x0126}
0x0dd78…0dd94 Head {h00=0x0018, h01=0x0050, text=» LD A4,MMFROM+STKCOM«, t00=0x008d, t01=0x0146}
0x0dd94…0ddae Head {h00=0x0016, h01=0x0050, text=» LD A5,MMTO+STKCOM«, t00=0x008d, t01=0x0162}
0x0ddae…0ddc8 Head {h00=0x0016, h01=0x0050, text=» ST A4,MMTO+STKCOM«, t00=0x008d, t01=0x017c}
0x0ddc8…0dde4 Head {h00=0x0018, h01=0x0050, text=» ST A5,MMFROM+STKCOM«, t00=0x008e, t01=0x0008}
0x0dde4…0de08 Head {h00=0x0020, h01=0x0050, text=» ANKL A9,/FFFE EVEN ADDRESS «, t00=0x008e, t01=0x0024}
0x0de08…0de3a Head {h00=0x002e, h01=0x0050, text=» ST A9,LSTADR+STKCOM SAVE END OF FREE AREA«, t00=0x008e, t01=0x0048}
0x0de3a…0de60 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,MMTAB CURRENT MM-TAB «, t00=0x008e, t01=0x007a}
0x0de60…0de74 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A13 «, t00=0x008e, t01=0x00a0}
0x0de74…0de88 Head {h00=0x0010, h01=0x0050, text=» CALL MMENT «, t00=0x008e, t01=0x00b4}
0x0de88…0dea2 Head {h00=0x0016, h01=0x0050, text=» ST A9,TTAB+STKCOM«, t00=0x008e, t01=0x00c8}
0x0dea2…0ded2 Head {h00=0x002c, h01=0x0050, text=» ST A1,FYSPAG+STKCOM SAVE PHYSICAL PAGE «, t00=0x008e, t01=0x00e2}
0x0ded2…0defc Head {h00=0x0026, h01=0x0050, text=» CALL MOVCOM ALLOC/MOVE PGTG-DATA «, t00=0x008e, t01=0x0112}
0x0defc…0df16 Head {h00=0x0016, h01=0x0050, text=» AD A1,PLTGCS,A10 «, t00=0x008e, t01=0x013c}
0x0df16…0df46 Head {h00=0x002c, h01=0x0050, text=» SUR A1,A3 ICB-PLTGCS NEW START ADDRESS «, t00=0x008e, t01=0x0156}
0x0df46…0df70 Head {h00=0x0026, h01=0x0050, text=» LD A3,PLTGCL,A10 ICB-PLTGC LENGTH«, t00=0x008e, t01=0x0186}
0x0df70…0df9a Head {h00=0x0026, h01=0x0050, text=» LD A6,LSTADR+STKCOM LAST FREE ADR«, t00=0x008f, t01=0x0020}
0x0df9a…0dfcc Head {h00=0x002e, h01=0x0050, text=» SU A6,PLTGCE,A10 GET DISPL FOR RELOCATION«, t00=0x008f, t01=0x004a}
0x0dfcc…0dfe6 Head {h00=0x0016, h01=0x0050, text=» CALL CALLMO MOVE «, t00=0x008f, t01=0x007c}
0x0dfe6…0dffe Head {h00=0x0014, h01=0x0050, text=» TL* MMTO+STKCOM«, t00=0x008f, t01=0x0096}
0x0dffe…0e038 Head {h00=0x0036, h01=0x0050, text=» ST A2,PLTGCS,A10 ICB-PLTGCS NEW (FINAL) START ADR«, t00=0x008f, t01=0x00ae}
0x0e038…0e06a Head {h00=0x002e, h01=0x0050, text=» CALL RELTGC RELOCATE ICB-PLTGC CALL TABLE«, t00=0x008f, t01=0x00e8}
0x0e06a…0e09c Head {h00=0x002e, h01=0x0050, text=» ST A6,TGCREL+STKEND ICB-PLTGC RELOCATION «, t00=0x008f, t01=0x011a}
0x0e09c…0e0c0 Head {h00=0x0020, h01=0x0050, text=» LD A4,SHADOW,A10 SHTAB1 ADR«, t00=0x008f, t01=0x014c}
0x0e0c0…0e0e2 Head {h00=0x001e, h01=0x0050, text=» LDR* A5,A4 SHTAB1 LENGTH «, t00=0x008f, t01=0x0170}
0x0e0e2…0e100 (144, 0, 400) Head {h00=0x001a, h01=0x0050, text=» LDR A6,A4 SHTAB1 ADR «, t00=0x0090, t01=0x0004}
0x0e100…0e11e Head {h00=0x001a, h01=0x0050, text=» ADR A4,A5 SHTAB2 ADR «, t00=0x0090, t01=0x0022}
0x0e11e…0e14c Head {h00=0x002a, h01=0x0050, text=» SUK A5,2 ADJUST FOR TABLE LENGTH WORD«, t00=0x0090, t01=0x0040}
0x0e14c…0e172 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,MMTAB CURRENT MM-TAB «, t00=0x0090, t01=0x006e}
0x0e172…0e186 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A13 «, t00=0x0090, t01=0x0094}
0x0e186…0e1ae Head {h00=0x0024, h01=0x0050, text=» CALL MMENT FIND LAST USED ENTRY«, t00=0x0090, t01=0x00a8}
0x0e1ae…0e1e0 Head {h00=0x002e, h01=0x0050, text=» ST A3,LSTENT+STKEND SAVE LAST USED ENTRY «, t00=0x0090, t01=0x00d0}
0x0e1e0…0e1ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0102}
0x0e1ea…0e20e Head {h00=0x0020, h01=0x0050, text=»* GENERATE TASK CLASS DATA «, t00=0x0090, t01=0x010c}
0x0e20e…0e218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0130}
0x0e218…0e22c Head {h00=0x0010, h01=0x0050, text=»TCLLOP EQU *«, t00=0x0090, t01=0x013a}
0x0e22c…0e242 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,MMTAB«, t00=0x0090, t01=0x014e}
0x0e242…0e258 Head {h00=0x0012, h01=0x0050, text=» SUKL A8,MMBEG«, t00=0x0090, t01=0x0164}
0x0e258…0e26c Head {h00=0x0010, h01=0x0050, text=» ADR A8,A13 «, t00=0x0090, t01=0x017a}
0x0e26c…0e286 Head {h00=0x0016, h01=0x0050, text=» ST A8,TTAB+STKCOM«, t00=0x0090, t01=0x018e}
0x0e286…0e2c6 Head {h00=0x003c, h01=0x0050, text=» LD A7,LSTENT+STKEND LAST USED MM-ENTRY FOR COMMON DATA «, t00=0x0091, t01=0x0018}
0x0e2c6…0e2ee Head {h00=0x0024, h01=0x0050, text=» ST A7,LSTPAG,A8 SAVE FOR MOVING«, t00=0x0091, t01=0x0058}
0x0e2ee…0e30a Head {h00=0x0018, h01=0x0050, text=» ST A5,TCLCOU+STKEND«, t00=0x0091, t01=0x0080}
0x0e30a…0e328 Head {h00=0x001a, h01=0x0050, text=» ADK A4,2 SHTAB2 ENTRY«, t00=0x0091, t01=0x009c}
0x0e328…0e34e Head {h00=0x0022, h01=0x0050, text=» LDR A8,A4 GET SHTAB2 POINTER «, t00=0x0091, t01=0x00ba}
0x0e34e…0e368 Head {h00=0x0016, h01=0x0050, text=» TL* MMFROM+STKCOM«, t00=0x0091, t01=0x00e0}
0x0e368…0e384 Head {h00=0x0018, h01=0x0050, text=» LDR* A7,A8 ITCT ADR«, t00=0x0091, t01=0x00fa}
0x0e384…0e3a4 Head {h00=0x001c, h01=0x0050, text=» CALL FNDBLK FIND TCLBLK«, t00=0x0091, t01=0x0116}
0x0e3a4…0e3d2 Head {h00=0x002a, h01=0x0050, text=» EL A5,TCLTLD,A3 PGTL-DATA-LENGTH-USED«, t00=0x0091, t01=0x0136}
0x0e3d2…0e3f0 Head {h00=0x001a, h01=0x0050, text=» ELR A1,A3 STACK-SIZE «, t00=0x0091, t01=0x0164}
0x0e3f0…0e416 Head {h00=0x0022, h01=0x0050, text=» ES A1,ITCNEP,A7 SAVE IN ITCT «, t00=0x0091, t01=0x0182}
0x0e416…0e43c Head {h00=0x0022, h01=0x0050, text=» ES A5,ITCGLL,A7 SAVE IN ITCT «, t00=0x0092, t01=0x0018}
0x0e43c…0e46c Head {h00=0x002c, h01=0x0050, text=» LD A5,TCLCOU+STKEND NBR OF ITCT'S LEFT «, t00=0x0092, t01=0x003e}
0x0e46c…0e486 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TCLEXT NONE«, t00=0x0092, t01=0x006e}
0x0e486…0e4a2 Head {h00=0x0018, h01=0x0050, text=» LD A1,TGCREL+STKEND«, t00=0x0092, t01=0x0088}
0x0e4a2…0e4ba Head {h00=0x0014, h01=0x0050, text=» EL A3,ITCTGC,A7«, t00=0x0092, t01=0x00a4}
0x0e4ba…0e4cc Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0092, t01=0x00bc}
0x0e4cc…0e4de Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0092, t01=0x00ce}
0x0e4de…0e516 Head {h00=0x0034, h01=0x0050, text=» ES A3,ITCTGC,A1 RELOCATE ICB-PLTGC-MAIN IN ITCT«, t00=0x0092, t01=0x00e0}
0x0e516…0e544 Head {h00=0x002a, h01=0x0050, text=» LD A3,PGTGAD+STKEND PGTG-DATA ADDRESS«, t00=0x0092, t01=0x0118}
0x0e544…0e574 Head {h00=0x002c, h01=0x0050, text=» ES A3,ITCCOM,A1 UPDATE POINTER IN ITCT «, t00=0x0092, t01=0x0146}
0x0e574…0e5a0 Head {h00=0x0028, h01=0x0050, text=» LD A3,DDIVTO+STKEND APPTAB ADDRESS «, t00=0x0092, t01=0x0176}
0x0e5a0…0e5cc Head {h00=0x0028, h01=0x0050, text=» EL A3,APPCOM,A3 COMMON PROGRAM SEGM«, t00=0x0093, t01=0x0012}
0x0e5cc…0e602 Head {h00=0x0032, h01=0x0050, text=» ES A3,ITCCSB,A1 SAVE IN CURRENT SEGMENT BASE «, t00=0x0093, t01=0x003e}
0x0e602…0e632 Head {h00=0x002c, h01=0x0050, text=» EL A3,ITCTLT,A7 NBR OF ENTRIES IN TLTAB«, t00=0x0093, t01=0x0074}
0x0e632…0e65c Head {h00=0x0026, h01=0x0050, text=» SLL A3,1 NBR OF BYTES IN TLTAB «, t00=0x0093, t01=0x00a4}
0x0e65c…0e68a Head {h00=0x002a, h01=0x0050, text=» ADK A3,2 ADJUST FOR TLTAB LENGTH WORD«, t00=0x0093, t01=0x00ce}
0x0e68a…0e6ac Head {h00=0x001e, h01=0x0050, text=» ADK A3,ITCTLT ITCT LENGTH«, t00=0x0093, t01=0x00fc}
0x0e6ac…0e6d8 Head {h00=0x0028, h01=0x0050, text=» CALL CALLMO ALLOCATE AND MOVE ITCT «, t00=0x0093, t01=0x011e}
0x0e6d8…0e702 Head {h00=0x0026, h01=0x0050, text=» STR A2,A4 NEW ITCT ADR IN SHTAB2 «, t00=0x0093, t01=0x014a}
0x0e702…0e730 Head {h00=0x002a, h01=0x0050, text=» ST A2,SAVITC+STKEND SAVE NEW ITCT ADR«, t00=0x0093, t01=0x0174}
0x0e730…0e760 Head {h00=0x002c, h01=0x0050, text=» CALL MVPGTL ALLOCATE AND MOVE PGTL-DATA«, t00=0x0094, t01=0x0012}
0x0e760…0e79a Head {h00=0x0036, h01=0x0050, text=» ST A10,SAVE01+STKEND SAVE APPL SAVE AREA POINTER «, t00=0x0094, t01=0x0042}
0x0e79a…0e7cc Head {h00=0x002e, h01=0x0050, text=» CALL MVSTAT ALLOCATE AND MOVE STATIC-ZERO«, t00=0x0094, t01=0x007c}
0x0e7cc…0e804 Head {h00=0x0034, h01=0x0050, text=» LD A10,SAVE01+STKEND GET APPL SAVE AREA POINTER«, t00=0x0094, t01=0x00ae}
0x0e804…0e816 Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x0094, t01=0x00e6}
0x0e816…0e84e Head {h00=0x0034, h01=0x0050, text=» ST A2,DYNDIS+STKEND INIT.DYN.CORE TABLE DISPL. «, t00=0x0094, t01=0x00f8}
0x0e84e…0e878 Head {h00=0x0026, h01=0x0050, text=» CALL ALLDYN ALLOCATE DYNAMIC-CORE«, t00=0x0094, t01=0x0130}
0x0e878…0e8a4 Head {h00=0x0028, h01=0x0050, text=» LDR A8,A4 GET ITCT ADDRESS POINTER «, t00=0x0094, t01=0x015a}
0x0e8a4…0e8ce Head {h00=0x0026, h01=0x0050, text=» CALL INIDYN INITIATE DYNAMIC CORE«, t00=0x0094, t01=0x0186}
0x0e8ce…0e908 Head {h00=0x0036, h01=0x0050, text=» ST A10,SAVE01+STKEND SAVE APPL SAVE AREA POINTER «, t00=0x0095, t01=0x0020}
0x0e908…0e92e Head {h00=0x0022, h01=0x0050, text=» CALL GETTAB GET TTAB ADDRESS «, t00=0x0095, t01=0x005a}
0x0e92e…0e956 Head {h00=0x0024, h01=0x0050, text=» CALL MOVMMT MOVE MMTAB TO TTAB «, t00=0x0095, t01=0x0080}
0x0e956…0e98e Head {h00=0x0034, h01=0x0050, text=» LD A10,SAVE01+STKEND GET APPL SAVE AREA POINTER«, t00=0x0095, t01=0x00a8}
0x0e98e…0e9c0 Head {h00=0x002e, h01=0x0050, text=» CM LSTPAG,A9 CLEAR SEGMENT BLOCK POINTER «, t00=0x0095, t01=0x00e0}
0x0e9c0…0e9e8 Head {h00=0x0024, h01=0x0050, text=» LD* A1,SHADOW,A10 SHTAB1 LENGTH«, t00=0x0095, t01=0x0112}
0x0e9e8…0ea0e Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET SHTAB2 POINTER «, t00=0x0095, t01=0x013a}
0x0ea0e…0ea2e Head {h00=0x001c, h01=0x0050, text=» ADR A1,A4 SHTAB3 ENTRY «, t00=0x0095, t01=0x0160}
0x0ea2e…0ea50 Head {h00=0x001e, h01=0x0050, text=» STR A2,A1 MM-TAB ADDRESS «, t00=0x0095, t01=0x0180}
0x0ea50…0ea92 Head {h00=0x003e, h01=0x0050, text=» LD A1,LSTENT+STKEND GET LAST USED ENTRY,UPTO COMMON DATA «, t00=0x0096, t01=0x0012}
0x0ea92…0eabe Head {h00=0x0028, h01=0x0050, text=» CALL MMRST RESET UNUSED MM-ENTRIES «, t00=0x0096, t01=0x0054}
0x0eabe…0eada Head {h00=0x0018, h01=0x0050, text=» LD A5,TCLCOU+STKEND«, t00=0x0096, t01=0x0080}
0x0eada…0eb00 Head {h00=0x0022, h01=0x0050, text=» SUK A5,2 COUNT NBR OF ITCT'S «, t00=0x0096, t01=0x009c}
0x0eb00…0eb22 Head {h00=0x001e, h01=0x0050, text=» RB(P) TCLLOP ITCT'S LEFT «, t00=0x0096, t01=0x00c2}
0x0eb22…0eb36 Head {h00=0x0010, h01=0x0050, text=»TCLEXT EQU *«, t00=0x0096, t01=0x00e4}
0x0eb36…0eb44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0096, t01=0x00f8}
0x0eb44…0eb58 Head {h00=0x0010, h01=0x0050, text=»SYA200 EQU *«, t00=0x0096, t01=0x0106}
0x0eb58…0eb60 Head {h00=0x0004, h01=0x0050, t00=0x0096, t01=0x011a}
0x0eb60…0eb8e Head {h00=0x002a, h01=0x0050, text=»* INCLUDE MOVED PROT.DDIV IN FREE AREA«, t00=0x0096, t01=0x0122}
0x0eb8e…0ebc8 Head {h00=0x0036, h01=0x0050, text=» LD A5,DDIVTO+STKEND GET START OF MOVED PROT.DDIV «, t00=0x0096, t01=0x0150}
0x0ebc8…0ebe0 Head {h00=0x0014, h01=0x0050, text=» LDR A8,A5 SAVE «, t00=0x0096, t01=0x018a}
0x0ebe0…0ebf6 Head {h00=0x0012, h01=0x0050, text=» ANKL A5,/F000«, t00=0x0097, t01=0x0012}
0x0ebf6…0ec08 Head {h00=0x000e, h01=0x0050, text=» SRL A5,11«, t00=0x0097, t01=0x0028}
0x0ec08…0ec32 Head {h00=0x0026, h01=0x0050, text=» ADKL A5,MMDDIV MMU-TABLE ADDRESS «, t00=0x0097, t01=0x003a}
0x0ec32…0ec4e Head {h00=0x0018, h01=0x0050, text=» ADR A5,A13 RELOCATE«, t00=0x0097, t01=0x0064}
0x0ec4e…0ec7a Head {h00=0x0028, h01=0x0050, text=» LDR* A5,A5 GET PAGE FROM MMU-TABLE «, t00=0x0097, t01=0x0080}
0x0ec7a…0ecae Head {h00=0x0030, h01=0x0050, text=» ST A5,FSTPAG+STKCOM SET FSTPAG TO THAT PAGE«, t00=0x0097, t01=0x00ac}
0x0ecae…0ecd6 Head {h00=0x0024, h01=0x0050, text=» ANKL A8,/FFF GET DISPL. IN PAGE«, t00=0x0097, t01=0x00e0}
0x0ecd6…0ed0c Head {h00=0x0032, h01=0x0050, text=» ST A8,FSTADR+STKCOM SET FSTADR TO THAT DISPL.«, t00=0x0097, t01=0x0108}
0x0ed0c…0ed2a Head {h00=0x001a, h01=0x0050, text=»* CONTINUE IN PART 3 *«, t00=0x0097, t01=0x013e}
0x0ed2a…0ed32 Head {h00=0x0004, h01=0x0050, t00=0x0097, t01=0x015c}
0x0ed32…0ed60 Head {h00=0x002a, h01=0x0050, text=» LDKL A5,START3 RELATIVE START ADDRESS«, t00=0x0097, t01=0x0164}
0x0ed60…0ed90 (152, 0, 400) Head {h00=0x002c, h01=0x0050, text=» AD A5,M:REL+STKCOM ADD RELOCATION BASE «, t00=0x0098, t01=0x0004}
0x0ed90…0eda0 Head {h00=0x000c, h01=0x0050, text=» ABR A5 «, t00=0x0098, t01=0x0034}
0x0eda0…0edae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x0044}
0x0edae…0edb6 Head {h00=0x0004, h01=0x0050, t00=0x0098, t01=0x0052}
0x0edb6…0edbe Head {h00=0x0004, h01=0x0050, t00=0x0098, t01=0x005a}
0x0edbe…0edf6 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0098, t01=0x0062}
0x0edf6…0ee2e Head {h00=0x0034, h01=0x0050, text=»*** ***«, t00=0x0098, t01=0x009a}
0x0ee2e…0ee66 Head {h00=0x0034, h01=0x0050, text=»** SYSLCO PART 3 **«, t00=0x0098, t01=0x00d2}
0x0ee66…0ee9e Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x0098, t01=0x010a}
0x0ee9e…0eed6 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0098, t01=0x0142}
0x0eed6…0eede Head {h00=0x0004, h01=0x0050, t00=0x0098, t01=0x017a}
0x0eede…0ef16 Head {h00=0x0034, h01=0x0050, text=»* BUILD REAL ITCT'S. COPY ITCT'S ACCORDING TO*«, t00=0x0098, t01=0x0182}
0x0ef16…0ef4e Head {h00=0x0034, h01=0x0050, text=»* SHADOW TABLE *«, t00=0x0099, t01=0x002a}
0x0ef4e…0ef86 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x0099, t01=0x0062}
0x0ef86…0efbe Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0099, t01=0x009a}
0x0efbe…0efc6 Head {h00=0x0004, h01=0x0050, t00=0x0099, t01=0x00d2}
0x0efc6…0efda Head {h00=0x0010, h01=0x0050, text=»PART3 EQU * «, t00=0x0099, t01=0x00da}
0x0efda…0efe2 Head {h00=0x0004, h01=0x0050, t00=0x0099, t01=0x00ee}
0x0efe2…0eff0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x00f6}
0x0eff0…0f016 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0099, t01=0x0104}
0x0f016…0f03c Head {h00=0x0022, h01=0x0050, text=»* START OF PROGRAM PART 3 * «, t00=0x0099, t01=0x012a}
0x0f03c…0f062 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0099, t01=0x0150}
0x0f062…0f06a Head {h00=0x0004, h01=0x0050, t00=0x0099, t01=0x0176}
0x0f06a…0f0a0 Head {h00=0x0032, h01=0x0050, text=»** G E T T A B **«, t00=0x0099, t01=0x017e}
0x0f0a0…0f0d6 Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x009a, t01=0x0024}
0x0f0d6…0f10c Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x009a, t01=0x005a}
0x0f10c…0f142 Head {h00=0x0032, h01=0x0050, text=»** FIND TTAB ADDRESS **«, t00=0x009a, t01=0x0090}
0x0f142…0f178 Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x009a, t01=0x00c6}
0x0f178…0f1ae Head {h00=0x0032, h01=0x0050, text=»** INPUT :A8=POINTER TO ITCT ADR **«, t00=0x009a, t01=0x00fc}
0x0f1ae…0f1e4 Head {h00=0x0032, h01=0x0050, text=»** OUTPUT:A2=TTAB-ADDRESS **«, t00=0x009a, t01=0x0132}
0x0f1e4…0f21a Head {h00=0x0032, h01=0x0050, text=»** A1=TID **«, t00=0x009a, t01=0x0168}
0x0f21a…0f250 Head {h00=0x0032, h01=0x0050, text=»** WORKREGS:A3,A4,A10 **«, t00=0x009b, t01=0x000e}
0x0f250…0f286 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x009b, t01=0x0044}
0x0f286…0f28e Head {h00=0x0004, h01=0x0050, t00=0x009b, t01=0x007a}
0x0f28e…0f2a2 Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x009b, t01=0x0082}
0x0f2a2…0f2c4 Head {h00=0x001e, h01=0x0050, text=» LDR* A10,A8 ITCT-ADDRESS «, t00=0x009b, t01=0x0096}
0x0f2c4…0f2e6 Head {h00=0x001e, h01=0x0050, text=» EL A1,ITCTID,A10 GET TID «, t00=0x009b, t01=0x00b8}
0x0f2e6…0f310 Head {h00=0x0026, h01=0x0050, text=»GETTTB EQU * ENTRY. INPUT: A1=TID «, t00=0x009b, t01=0x00da}
0x0f310…0f338 Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTTCT GET TC:TAB ADDRESS«, t00=0x009b, t01=0x0104}
0x0f338…0f358 Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A4 TCTAB LENGTH«, t00=0x009b, t01=0x012c}
0x0f358…0f370 Head {h00=0x0014, h01=0x0050, text=»GETT10 ADK A4,2 «, t00=0x009b, t01=0x014c}
0x0f370…0f386 Head {h00=0x0012, h01=0x0050, text=» SUK A3,2 ALL?«, t00=0x009b, t01=0x0164}
0x0f386…0f3a0 Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETT20 NO!«, t00=0x009b, t01=0x017a}
0x0f3a0…0f3ce (156, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) «, t00=0x009c, t01=0x0004}
0x0f3ce…0f3ec Head {h00=0x001a, h01=0x0050, text=» LDK A1,LMP5 TID ERROR«, t00=0x009c, t01=0x0032}
0x0f3ec…0f400 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x009c, t01=0x0050}
0x0f400…0f426 Head {h00=0x0022, h01=0x0050, text=»GETT20 LDR* A2,A4 TTAB-ADDRESS«, t00=0x009c, t01=0x0064}
0x0f426…0f44a Head {h00=0x0020, h01=0x0050, text=» CW A1,TTBTID,A2 TID EQUAL ?«, t00=0x009c, t01=0x008a}
0x0f44a…0f464 Head {h00=0x0016, h01=0x0050, text=» RB(NE) GETT10 NO!«, t00=0x009c, t01=0x00ae}
0x0f464…0f498 Head {h00=0x0030, h01=0x0050, text=» CM TTB:PP,A2 RESET PENDING POINTER IN TTAB «, t00=0x009c, t01=0x00c8}
0x0f498…0f4b8 Head {h00=0x001c, h01=0x0050, text=» ST A2,TTAB+STKCOM SAVE «, t00=0x009c, t01=0x00fc}
0x0f4b8…0f4f2 Head {h00=0x0036, h01=0x0050, text=» EL A3,ITCSPL,A10 GET SPL-PBS.PROGRAM-DATA ADDRESS«, t00=0x009c, t01=0x011c}
0x0f4f2…0f51a Head {h00=0x0024, h01=0x0050, text=» ST A3,TTB:SA+20,A2 SAVE IN TTAB«, t00=0x009c, t01=0x0156}
0x0f51a…0f556 Head {h00=0x0038, h01=0x0050, text=» ADKL A3,SPLSIZ-SPLCPB-2 POINT AT SPL-PBS STACK-BASE«, t00=0x009c, t01=0x017e}
0x0f556…0f57e Head {h00=0x0024, h01=0x0050, text=» ST A3,TTB:SA+28,A2 SAVE IN TTAB«, t00=0x009d, t01=0x002a}
0x0f57e…0f58e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009d, t01=0x0052}
0x0f58e…0f59c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009d, t01=0x0062}
0x0f59c…0f5a4 Head {h00=0x0004, h01=0x0050, t00=0x009d, t01=0x0070}
0x0f5a4…0f5ac Head {h00=0x0004, h01=0x0050, t00=0x009d, t01=0x0078}
0x0f5ac…0f5e8 Head {h00=0x0038, h01=0x0050, text=»** Q U E J O B ** «, t00=0x009d, t01=0x0080}
0x0f5e8…0f624 Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x009d, t01=0x00bc}
0x0f624…0f660 Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x009d, t01=0x00f8}
0x0f660…0f69c Head {h00=0x0038, h01=0x0050, text=»** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** «, t00=0x009d, t01=0x0134}
0x0f69c…0f6d8 Head {h00=0x0038, h01=0x0050, text=»** 0, ENB. ** «, t00=0x009d, t01=0x0170}
0x0f6d8…0f714 Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x009e, t01=0x001c}
0x0f714…0f750 Head {h00=0x0038, h01=0x0050, text=»** INPUT: A10=ITCT-ADDRESS ** «, t00=0x009e, t01=0x0058}
0x0f750…0f78c Head {h00=0x0038, h01=0x0050, text=»** A2=TTAB-ADDRESS ** «, t00=0x009e, t01=0x0094}
0x0f78c…0f7c8 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x009e, t01=0x00d0}
0x0f7c8…0f7d0 Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x010c}
0x0f7d0…0f7e4 Head {h00=0x0010, h01=0x0050, text=»QUEJOB EQU *«, t00=0x009e, t01=0x0114}
0x0f7e4…0f808 Head {h00=0x0020, h01=0x0050, text=»* QUEUE THIS TASK (THIS TID)«, t00=0x009e, t01=0x0128}
0x0f808…0f810 Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x014c}
0x0f810…0f844 Head {h00=0x0030, h01=0x0050, text=» LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS«, t00=0x009e, t01=0x0154}
0x0f844…0f868 Head {h00=0x0020, h01=0x0050, text=» AD A3,M:REL+STKCOM RELOCATE«, t00=0x009e, t01=0x0188}
0x0f868…0f888 Head {h00=0x001c, h01=0x0050, text=» STR A3,A15 PUT ON STACK«, t00=0x009f, t01=0x001c}
0x0f888…0f8b6 Head {h00=0x002a, h01=0x0050, text=» LDKL A3,/00C0 SET LEVEL 0 AND ENABLE «, t00=0x009f, t01=0x003c}
0x0f8b6…0f8ce Head {h00=0x0014, h01=0x0050, text=» STR A3,A15 PSW «, t00=0x009f, t01=0x006a}
0x0f8ce…0f8f0 Head {h00=0x001e, h01=0x0050, text=» CF A15,SAVE8 SAVE 8 REGS «, t00=0x009f, t01=0x0082}
0x0f8f0…0f918 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 CLEAR ABORT INDICATOR «, t00=0x009f, t01=0x00a4}
0x0f918…0f93c Head {h00=0x0020, h01=0x0050, text=» LDR A5,A2 GET TTAB-ADDRESS «, t00=0x009f, t01=0x00cc}
0x0f93c…0f96a Head {h00=0x002a, h01=0x0050, text=» LD A2,INTENT+STKEND INTERPRETER ENTRY«, t00=0x009f, t01=0x00f0}
0x0f96a…0f980 Head {h00=0x0012, h01=0x0050, text=» CF A15,ACTOT «, t00=0x009f, t01=0x011e}
0x0f980…0f9a8 Head {h00=0x0024, h01=0x0050, text=»GETT40 ABL RETUR8 RELOAD 8 REGS «, t00=0x009f, t01=0x0134}
0x0f9a8…0f9bc Head {h00=0x0010, h01=0x0050, text=»RETUR EQU * «, t00=0x009f, t01=0x015c}
0x0f9bc…0f9cc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009f, t01=0x0170}
0x0f9cc…0f9da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009f, t01=0x0180}
0x0f9da…0f9fe Head {h00=0x0020, h01=0x0050, text=»* G E N C O P * «, t00=0x009f, t01=0x018e}
0x0f9fe…0fa22 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x00a0, t01=0x0022}
0x0fa22…0fa46 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x00a0, t01=0x0046}
0x0fa46…0fa5a Head {h00=0x0010, h01=0x0050, text=»GENCOP EQU *«, t00=0x00a0, t01=0x006a}
0x0fa5a…0fa74 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A1 SAVE A1«, t00=0x00a0, t01=0x007e}
0x0fa74…0fab4 Head {h00=0x003c, h01=0x0050, text=» LD A1,LSTENT+STKEND LAST USED MM-ENTRY FOR COMMON DATA «, t00=0x00a0, t01=0x0098}
0x0fab4…0faca Head {h00=0x0012, h01=0x0050, text=» LDKL A2,MMTAB«, t00=0x00a0, t01=0x00d8}
0x0faca…0fae0 Head {h00=0x0012, h01=0x0050, text=» SUKL A2,MMBEG«, t00=0x00a0, t01=0x00ee}
0x0fae0…0faf4 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x00a0, t01=0x0104}
0x0faf4…0fb0e Head {h00=0x0016, h01=0x0050, text=» ST A2,TTAB+STKCOM«, t00=0x00a0, t01=0x0118}
0x0fb0e…0fb46 Head {h00=0x0034, h01=0x0050, text=» ST A1,LSTPAG,A2 SAVE LAST USED ENTRY FOR MOVING«, t00=0x00a0, t01=0x0132}
0x0fb46…0fb74 Head {h00=0x002a, h01=0x0050, text=» CALL MMRST RESET MMTAB UNUSED ENTRIES«, t00=0x00a0, t01=0x016a}
0x0fb74…0fb92 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 RESTORE A1 «, t00=0x00a1, t01=0x0008}
0x0fb92…0fbb6 Head {h00=0x0020, h01=0x0050, text=» ST A5,SAVE05+STKEND SAVE A5«, t00=0x00a1, t01=0x0026}
0x0fbb6…0fbda Head {h00=0x0020, h01=0x0050, text=» ST A6,SAVE06+STKEND SAVE A6«, t00=0x00a1, t01=0x004a}
0x0fbda…0fbf8 Head {h00=0x001a, h01=0x0050, text=» CALL FNDTID FIND TID «, t00=0x00a1, t01=0x006e}
0x0fbf8…0fc26 Head {h00=0x002a, h01=0x0050, text=» LD A1,TCLITC+STKEND TCL ITCT ADDRESS«, t00=0x00a1, t01=0x008c}
0x0fc26…0fc4e Head {h00=0x0024, h01=0x0050, text=» LDK A3,ITCTLT TLTAB START DISPL«, t00=0x00a1, t01=0x00ba}
0x0fc4e…0fc7e Head {h00=0x002c, h01=0x0050, text=» EL A2,ITCTLT,A1 NBR OF ENTRIES IN TLTAB«, t00=0x00a1, t01=0x00e2}
0x0fc7e…0fca8 Head {h00=0x0026, h01=0x0050, text=» SLL A2,1 NBR OF BYTES IN TLTAB «, t00=0x00a1, t01=0x0112}
0x0fca8…0fcd2 Head {h00=0x0026, h01=0x0050, text=» ADK A2,2 ADJUST FOR TLTAB COUNTER«, t00=0x00a1, t01=0x013c}
0x0fcd2…0fcf0 Head {h00=0x001a, h01=0x0050, text=» ADR A3,A2 ITCT LENGTH«, t00=0x00a1, t01=0x0166}
0x0fcf0…0fd0e Head {h00=0x001a, h01=0x0050, text=» CALL CALLMO COPY ITCT«, t00=0x00a1, t01=0x0184}
0x0fd0e…0fd26 Head {h00=0x0014, h01=0x0050, text=» TL* MMTO+STKCOM«, t00=0x00a2, t01=0x0012}
0x0fd26…0fd50 Head {h00=0x0026, h01=0x0050, text=» ST A2,SAVITC+STKEND SAVE ITCT ADR«, t00=0x00a2, t01=0x002a}
0x0fd50…0fd78 Head {h00=0x0024, h01=0x0050, text=» LD A3,SAVTID+STKEND GET NEW TID«, t00=0x00a2, t01=0x0054}
0x0fd78…0fd9e Head {h00=0x0022, h01=0x0050, text=» ES A3,ITCTID,A2 STORE IN ITCT«, t00=0x00a2, t01=0x007c}
0x0fd9e…0fdba Head {h00=0x0018, h01=0x0050, text=» LDR A3,A2 ITCT ADR «, t00=0x00a2, t01=0x00a2}
0x0fdba…0fdea Head {h00=0x002c, h01=0x0050, text=» CALL MVPGTL ALLOCATE AND MOVE PGTL-DATA«, t00=0x00a2, t01=0x00be}
0x0fdea…0fe10 Head {h00=0x0022, h01=0x0050, text=» LD A3,SAVITC+STKEND ITCT ADR «, t00=0x00a2, t01=0x00ee}
0x0fe10…0fe42 Head {h00=0x002e, h01=0x0050, text=» CALL MVSTAT ALLOCATE AND MOVE STATIC-ZERO«, t00=0x00a2, t01=0x0114}
0x0fe42…0fe68 Head {h00=0x0022, h01=0x0050, text=» LD A3,SAVITC+STKEND ITCT ADR «, t00=0x00a2, t01=0x0146}
0x0fe68…0fea0 Head {h00=0x0034, h01=0x0050, text=» LD A10,SAVE01+STKEND GET APPL.SAVE AREA POINTER«, t00=0x00a2, t01=0x016c}
0x0fea0…0feca Head {h00=0x0026, h01=0x0050, text=» CALL ALLDYN ALLOCATE DYNAMIC CORE«, t00=0x00a3, t01=0x0014}
0x0feca…0fef4 Head {h00=0x0026, h01=0x0050, text=» CALL INIDYN INITIATE DYNAMIC CORE«, t00=0x00a3, t01=0x003e}
0x0fef4…0ff14 Head {h00=0x001c, h01=0x0050, text=» LD A1,SAVTID+STKEND TID«, t00=0x00a3, t01=0x0068}
0x0ff14…0ff34 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A7 ITCT ADDRESS«, t00=0x00a3, t01=0x0088}
0x0ff34…0ff56 Head {h00=0x001e, h01=0x0050, text=» CALL GETTTB FIND TTAB ADR«, t00=0x00a3, t01=0x00a8}
0x0ff56…0ff7a Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a3, t01=0x00ca}
0x0ff7a…0ffa0 Head {h00=0x0022, h01=0x0050, text=» LD A10,SAVITC+STKEND ITCT ADR«, t00=0x00a3, t01=0x00ee}
0x0ffa0…0ffc0 Head {h00=0x001c, h01=0x0050, text=» LDR A5,A10 ITCT ADDRESS«, t00=0x00a3, t01=0x0114}
0x0ffc0…0ffd2 Head {h00=0x000e, h01=0x0050, text=» ADK A5,22«, t00=0x00a3, t01=0x0134}
0x0ffd2…1000e Head {h00=0x0038, h01=0x0050, text=» ST A5,TTB:SA+26,A2 SAVE ITCT ADR IN TTAB(SAVE-A13) «, t00=0x00a3, t01=0x0146}
0x1000e…10042 Head {h00=0x0030, h01=0x0050, text=» ADKL A5,ITCCSB-ITCDCD POINT AT CSB IN ITCT «, t00=0x00a3, t01=0x0182}
0x10042…10068 Head {h00=0x0022, h01=0x0050, text=» ST A5,TTB:CB,A2 SAVE IN TTAB «, t00=0x00a4, t01=0x0026}
0x10068…10090 Head {h00=0x0024, h01=0x0050, text=» LD A5,SAVE05+STKEND RESTORE A5 «, t00=0x00a4, t01=0x004c}
0x10090…100b8 Head {h00=0x0024, h01=0x0050, text=» LD A6,SAVE06+STKEND RESTORE A6 «, t00=0x00a4, t01=0x0074}
0x100b8…100e2 Head {h00=0x0026, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE TO TTAB«, t00=0x00a4, t01=0x009c}
0x100e2…10114 Head {h00=0x002e, h01=0x0050, text=» CM LSTPAG,A9 CLEAR SEGMENT BLOCK POINTER «, t00=0x00a4, t01=0x00c6}
0x10114…1013a Head {h00=0x0022, h01=0x0050, text=» LD A1,SAVTID+STKEND NEXT TID «, t00=0x00a4, t01=0x00f8}
0x1013a…1014a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a4, t01=0x011e}
0x1014a…10158 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a4, t01=0x012e}
0x10158…1017e Head {h00=0x0022, h01=0x0050, text=»* F N D T I D * «, t00=0x00a4, t01=0x013c}
0x1017e…101a4 Head {h00=0x0022, h01=0x0050, text=»* * «, t00=0x00a4, t01=0x0162}
0x101a4…101ca Head {h00=0x0022, h01=0x0050, text=»* FIND TID FOLLOWING "A1" * «, t00=0x00a4, t01=0x0188}
0x101ca…101f0 Head {h00=0x0022, h01=0x0050, text=»* IN SHTAB4 * «, t00=0x00a5, t01=0x001e}
0x101f0…10216 Head {h00=0x0022, h01=0x0050, text=»* * «, t00=0x00a5, t01=0x0044}
0x10216…1023c Head {h00=0x0022, h01=0x0050, text=»* INPUT : A1=TID * «, t00=0x00a5, t01=0x006a}
0x1023c…10262 Head {h00=0x0022, h01=0x0050, text=»* EXIT : A1=NEW TID * «, t00=0x00a5, t01=0x0090}
0x10262…10288 Head {h00=0x0022, h01=0x0050, text=»* WORK : A2,A3 * «, t00=0x00a5, t01=0x00b6}
0x10288…102ae Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x00a5, t01=0x00dc}
0x102ae…102b6 Head {h00=0x0004, h01=0x0050, t00=0x00a5, t01=0x0102}
0x102b6…102ca Head {h00=0x0010, h01=0x0050, text=»FNDTID EQU *«, t00=0x00a5, t01=0x010a}
0x102ca…102ee Head {h00=0x0020, h01=0x0050, text=» LD A2,SHADOW,A10 SHTAB1 ADR«, t00=0x00a5, t01=0x011e}
0x102ee…10314 Head {h00=0x0022, h01=0x0050, text=» LD* A3,SHADOW,A10 SHTAB1 LEN «, t00=0x00a5, t01=0x0142}
0x10314…10332 Head {h00=0x001a, h01=0x0050, text=» ADR A2,A3 SHTAB2 ADR «, t00=0x00a5, t01=0x0168}
0x10332…10350 Head {h00=0x001a, h01=0x0050, text=» ADR A2,A3 SHTAB3 ADR «, t00=0x00a5, t01=0x0186}
0x10350…1036e Head {h00=0x001a, h01=0x0050, text=» ADR A2,A3 SHTAB4 ADR «, t00=0x00a6, t01=0x0014}
0x1036e…1038c Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A2 SHTAB4 LEN«, t00=0x00a6, t01=0x0032}
0x1038c…103a0 Head {h00=0x0010, h01=0x0050, text=»FNDTI0 EQU *«, t00=0x00a6, t01=0x0050}
0x103a0…103bc Head {h00=0x0018, h01=0x0050, text=» SUK A3,1 FINISHED ?«, t00=0x00a6, t01=0x0064}
0x103bc…103d6 Head {h00=0x0016, h01=0x0050, text=» RF(NN) FNDTI1 NO «, t00=0x00a6, t01=0x0080}
0x103d6…103f8 Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP5 YES,TID ERROR«, t00=0x00a6, t01=0x009a}
0x103f8…1040c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00a6, t01=0x00bc}
0x1040c…10420 Head {h00=0x0010, h01=0x0050, text=»FNDTI1 EQU *«, t00=0x00a6, t01=0x00d0}
0x10420…10440 Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 ADJUST POINTER«, t00=0x00a6, t01=0x00e4}
0x10440…10460 Head {h00=0x001c, h01=0x0050, text=» CWR* A1,A2 TID FOUND ? «, t00=0x00a6, t01=0x0104}
0x10460…10482 Head {h00=0x001e, h01=0x0050, text=» RB(NE) FNDTI0 NO,TRY NEXT«, t00=0x00a6, t01=0x0124}
0x10482…104a8 Head {h00=0x0022, h01=0x0050, text=» LD A1,2,A2 YES,LOAD NEXT TID «, t00=0x00a6, t01=0x0146}
0x104a8…104cc Head {h00=0x0020, h01=0x0050, text=» ST A1,SAVTID+STKEND SAVE IT«, t00=0x00a6, t01=0x016c}
0x104cc…104dc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00a6, t01=0x0190}
0x104dc…104ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a7, t01=0x0010}
0x104ea…104f2 Head {h00=0x0004, h01=0x0050, t00=0x00a7, t01=0x001e}
0x104f2…10522 Head {h00=0x002c, h01=0x0050, text=»* I N I D Y N *«, t00=0x00a7, t01=0x0026}
0x10522…10552 Head {h00=0x002c, h01=0x0050, text=»* *«, t00=0x00a7, t01=0x0056}
0x10552…10582 Head {h00=0x002c, h01=0x0050, text=»* INPUT : A3 = SPL-PBS ADDRESS *«, t00=0x00a7, t01=0x0086}
0x10582…105b2 Head {h00=0x002c, h01=0x0050, text=»* *«, t00=0x00a7, t01=0x00b6}
0x105b2…105e2 Head {h00=0x002c, h01=0x0050, text=»* WORK : A1 - A5 *«, t00=0x00a7, t01=0x00e6}
0x105e2…10612 Head {h00=0x002c, h01=0x0050, text=»* *«, t00=0x00a7, t01=0x0116}
0x10612…10642 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x00a7, t01=0x0146}
0x10642…1064a Head {h00=0x0004, h01=0x0050, t00=0x00a7, t01=0x0176}
0x1064a…1065e Head {h00=0x0010, h01=0x0050, text=»INIDYN EQU *«, t00=0x00a7, t01=0x017e}
0x1065e…10680 (168, 0, 400) Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 SPL-PBS ADDRESS«, t00=0x00a8, t01=0x0004}
0x10680…106ae Head {h00=0x002a, h01=0x0050, text=» LDKL A2,PBSTAB CONSTANT-TABLE ADDRESS«, t00=0x00a8, t01=0x0026}
0x106ae…106ca Head {h00=0x0018, h01=0x0050, text=» AD A2,M:REL+STKCOM «, t00=0x00a8, t01=0x0054}
0x106ca…106de Head {h00=0x0010, h01=0x0050, text=»INID10 EQU *«, t00=0x00a8, t01=0x0070}
0x106de…1070c Head {h00=0x002a, h01=0x0050, text=» LDR* A5,A2 NBR OF COPIES OF THIS WORD«, t00=0x00a8, t01=0x0084}
0x1070c…1073a Head {h00=0x002a, h01=0x0050, text=» CWK A5,/FFFF END OF CONSTANT-TABLE ? «, t00=0x00a8, t01=0x00b2}
0x1073a…10754 Head {h00=0x0016, h01=0x0050, text=» RF(E) INID30 YES «, t00=0x00a8, t01=0x00e0}
0x10754…10774 Head {h00=0x001c, h01=0x0050, text=» LD A4,2,A2 WORD TO COPY«, t00=0x00a8, t01=0x00fa}
0x10774…107a2 Head {h00=0x002a, h01=0x0050, text=» ADK A2,4 STEP CONSTANT-TABLE POINTER «, t00=0x00a8, t01=0x011a}
0x107a2…107b6 Head {h00=0x0010, h01=0x0050, text=»INID20 EQU *«, t00=0x00a8, t01=0x0148}
0x107b6…107da Head {h00=0x0020, h01=0x0050, text=» SUK A5,1 STEP NBR OF COPIES«, t00=0x00a8, t01=0x015c}
0x107da…107fa Head {h00=0x001c, h01=0x0050, text=» RB(N) INID10 NEXT WORD «, t00=0x00a8, t01=0x0180}
0x107fa…10822 Head {h00=0x0024, h01=0x0050, text=» ESR A4,A1 STORE WORD IN SPL-PBS«, t00=0x00a9, t01=0x0010}
0x10822…10848 Head {h00=0x0022, h01=0x0050, text=» ADK A1,2 STEP SPL-PBS POINTER«, t00=0x00a9, t01=0x0038}
0x10848…10864 Head {h00=0x0018, h01=0x0050, text=» RB INID20 NEXT COPY«, t00=0x00a9, t01=0x005e}
0x10864…10878 Head {h00=0x0010, h01=0x0050, text=»INID30 EQU *«, t00=0x00a9, t01=0x007a}
0x10878…1089a Head {h00=0x001e, h01=0x0050, text=» LDKL A5,STKMAX STACK-SIZE«, t00=0x00a9, t01=0x008e}
0x1089a…108ce Head {h00=0x0030, h01=0x0050, text=» ES A5,SPLSTS,A3 STORE IN SPL-PBS.STACK-SIZE«, t00=0x00a9, t01=0x00b0}
0x108ce…108fa Head {h00=0x0028, h01=0x0050, text=» LDKL A1,ENTFIN ENTRY FINI (ADDRESS)«, t00=0x00a9, t01=0x00e4}
0x108fa…1092e Head {h00=0x0030, h01=0x0050, text=» ES A1,SPLENT,A3 STORE IN SPL-PBS.ENTRY FINI«, t00=0x00a9, t01=0x0110}
0x1092e…10950 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A3 SPL-PBS ADDRESS«, t00=0x00a9, t01=0x0144}
0x10950…1097e Head {h00=0x002a, h01=0x0050, text=» ADK A2,SPLSTA START OF SPL-STACK AREA«, t00=0x00a9, t01=0x0166}
0x1097e…109a6 (170, 0, 400) Head {h00=0x0024, h01=0x0050, text=» ADR A5,A2 + STACK-AREA ADDRESS «, t00=0x00aa, t01=0x0004}
0x109a6…109da Head {h00=0x0030, h01=0x0050, text=» ES A5,SPLSTB,A3 STORE IN SPL-PBS.STACK-BASE«, t00=0x00aa, t01=0x002c}
0x109da…109ea Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00aa, t01=0x0060}
0x109ea…109f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00aa, t01=0x0070}
0x109f8…10a00 Head {h00=0x0004, h01=0x0050, t00=0x00aa, t01=0x007e}
0x10a00…10a38 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00aa, t01=0x0086}
0x10a38…10a70 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x00aa, t01=0x00be}
0x10a70…10aa8 Head {h00=0x0034, h01=0x0050, text=»** EACH WORD IN THIS TABLE CONSISTS OF : ** «, t00=0x00aa, t01=0x00f6}
0x10aa8…10ae0 Head {h00=0x0034, h01=0x0050, text=»** WORD1=COUNTER, NBR OF COPIES OF NEXT WORD ** «, t00=0x00aa, t01=0x012e}
0x10ae0…10b18 Head {h00=0x0034, h01=0x0050, text=»** WORD1=WORD ** «, t00=0x00aa, t01=0x0166}
0x10b18…10b50 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x00ab, t01=0x000e}
0x10b50…10b88 Head {h00=0x0034, h01=0x0050, text=»** BYTE1 (COUNTER) = /FF MEANS END OF TABLE ** «, t00=0x00ab, t01=0x0046}
0x10b88…10bc0 Head {h00=0x0034, h01=0x0050, text=»** ** «, t00=0x00ab, t01=0x007e}
0x10bc0…10bf8 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00ab, t01=0x00b6}
0x10bf8…10c00 Head {h00=0x0004, h01=0x0050, t00=0x00ab, t01=0x00ee}
0x10c00…10c14 Head {h00=0x0010, h01=0x0050, text=»PBSTAB EQU *«, t00=0x00ab, t01=0x00f6}
0x10c14…10c34 Head {h00=0x001c, h01=0x0050, text=» DATA 1 TERMINATION-CODE«, t00=0x00ab, t01=0x010a}
0x10c34…10c44 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x00ab, t01=0x012a}
0x10c44…10c5e Head {h00=0x0016, h01=0x0050, text=» DATA 1 STACK-USED«, t00=0x00ab, t01=0x013a}
0x10c5e…10c6e Head {h00=0x000c, h01=0x0050, text=» DATA /6«, t00=0x00ab, t01=0x0154}
0x10c6e…10c88 Head {h00=0x0016, h01=0x0050, text=» DATA 1 STACK-SIZE«, t00=0x00ab, t01=0x0164}
0x10c88…10c98 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x00ab, t01=0x017e}
0x10c98…10cb6 Head {h00=0x001a, h01=0x0050, text=» DATA 3 PROCEDURE-NAME«, t00=0x00ab, t01=0x018e}
0x10cb6…10cca Head {h00=0x0010, h01=0x0050, text=» DATA /2020 «, t00=0x00ac, t01=0x001c}
0x10cca…10cf4 Head {h00=0x0026, h01=0x0050, text=» DATA 20 PGM-DATA UNTIL STACK-BASE«, t00=0x00ac, t01=0x0030}
0x10cf4…10d04 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x00ac, t01=0x005a}
0x10d04…10d1e Head {h00=0x0016, h01=0x0050, text=» DATA 1 STACK-BASE«, t00=0x00ac, t01=0x006a}
0x10d1e…10d2e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x00ac, t01=0x0084}
0x10d2e…10d48 Head {h00=0x0016, h01=0x0050, text=» DATA 1 ENTRY-FINI«, t00=0x00ac, t01=0x0094}
0x10d48…10d58 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x00ac, t01=0x00ae}
0x10d58…10d82 Head {h00=0x0026, h01=0x0050, text=» DATA 16 LAST-TS,RUNTIME-WORK-AREA«, t00=0x00ac, t01=0x00be}
0x10d82…10d92 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x00ac, t01=0x00e8}
0x10d92…10dbe Head {h00=0x0028, h01=0x0050, text=» DATA /FFFF E N D O F T A B L E «, t00=0x00ac, t01=0x00f8}
0x10dbe…10dc6 Head {h00=0x0004, h01=0x0050, t00=0x00ac, t01=0x0124}
0x10dc6…10dd4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ac, t01=0x012c}
0x10dd4…10dfc Head {h00=0x0024, h01=0x0050, text=»* A L L D Y N *«, t00=0x00ac, t01=0x013a}
0x10dfc…10e24 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x00ac, t01=0x0162}
0x10e24…10e4c Head {h00=0x0024, h01=0x0050, text=»* ALLOCATE DYNAMIC-CORE *«, t00=0x00ac, t01=0x018a}
0x10e4c…10e74 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x00ad, t01=0x0022}
0x10e74…10e9c Head {h00=0x0024, h01=0x0050, text=»* INPUT : A3 ITCT ADDRESS *«, t00=0x00ad, t01=0x004a}
0x10e9c…10ec4 Head {h00=0x0024, h01=0x0050, text=»* A10 APPL.SAVE AREA * «, t00=0x00ad, t01=0x0072}
0x10ec4…10eec Head {h00=0x0024, h01=0x0050, text=»* POINTER * «, t00=0x00ad, t01=0x009a}
0x10eec…10f14 Head {h00=0x0024, h01=0x0050, text=»* EXIT : ITCT IS UPDATED *«, t00=0x00ad, t01=0x00c2}
0x10f14…10f3c Head {h00=0x0024, h01=0x0050, text=»* WITH DYNAMIC-CORE *«, t00=0x00ad, t01=0x00ea}
0x10f3c…10f64 Head {h00=0x0024, h01=0x0050, text=»* POINTERS *«, t00=0x00ad, t01=0x0112}
0x10f64…10f8c Head {h00=0x0024, h01=0x0050, text=»* WORK : A1-A3,A7 *«, t00=0x00ad, t01=0x013a}
0x10f8c…10fb4 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x00ad, t01=0x0162}
0x10fb4…10fbc Head {h00=0x0004, h01=0x0050, t00=0x00ad, t01=0x018a}
0x10fbc…10fd0 (174, 0, 400) Head {h00=0x0010, h01=0x0050, text=»ALLDYN EQU *«, t00=0x00ae, t01=0x0004}
0x10fd0…10fe8 Head {h00=0x0014, h01=0x0050, text=» TL* MMTO+STKCOM«, t00=0x00ae, t01=0x0018}
0x10fe8…11004 Head {h00=0x0018, h01=0x0050, text=» LDR A7,A3 ITCT ADR «, t00=0x00ae, t01=0x0030}
0x11004…11030 Head {h00=0x0028, h01=0x0050, text=» EL A3,ITCNEP,A3 STACK-SIZE REQUIRED«, t00=0x00ae, t01=0x004c}
0x11030…1105a Head {h00=0x0026, h01=0x0050, text=» CALL CALLMO ALLOCATE FROM BOTTOM «, t00=0x00ae, t01=0x0078}
0x1105a…11072 Head {h00=0x0014, h01=0x0050, text=» TL* MMTO+STKCOM«, t00=0x00ae, t01=0x00a2}
0x11072…1109c Head {h00=0x0026, h01=0x0050, text=» EL A3,ITCNEP,A7 STACK-SIZE MOVED «, t00=0x00ae, t01=0x00ba}
0x1109c…110c4 Head {h00=0x0024, h01=0x0050, text=» ES A2,ITCDCB,A7 SAVE BASE PNTR «, t00=0x00ae, t01=0x00e4}
0x110c4…110f0 Head {h00=0x0028, h01=0x0050, text=» ES A2,ITCDCC,A7 SAVE CURRENT EXTENT«, t00=0x00ae, t01=0x010c}
0x110f0…1110e Head {h00=0x001a, h01=0x0050, text=» ADR A3,A2 + BASE-PNTR«, t00=0x00ae, t01=0x0138}
0x1110e…11136 Head {h00=0x0024, h01=0x0050, text=» SUKL A3,SPLSIZ - SPL-STACK-SIZE«, t00=0x00ae, t01=0x0156}
0x11136…11162 Head {h00=0x0028, h01=0x0050, text=» ES A3,ITCDCD,A7 SAVE DDI-POOL-BASE «, t00=0x00ae, t01=0x017e}
0x11162…1118e Head {h00=0x0028, h01=0x0050, text=» ADK A3,SPLCPB POINT AT SPL-PBS-PNTR«, t00=0x00af, t01=0x001a}
0x1118e…111b8 Head {h00=0x0026, h01=0x0050, text=» ES A3,ITCSPL,A7 SAVE SPL-PBS-PNTR«, t00=0x00af, t01=0x0046}
0x111b8…111dc Head {h00=0x0020, h01=0x0050, text=» LD A1,DYNTAD,A10 TABLE ADR «, t00=0x00af, t01=0x0070}
0x111dc…11212 Head {h00=0x0032, h01=0x0050, text=» LD A2,DYNDIS+STKEND GET DYN.CORE TABLE DISPL «, t00=0x00af, t01=0x0094}
0x11212…1123c Head {h00=0x0026, h01=0x0050, text=» ADR A1,A2 NEXT TABLE ENTRY TO USE«, t00=0x00af, t01=0x00ca}
0x1123c…1125a Head {h00=0x001a, h01=0x0050, text=» ADK A2,2 COUNT DISPL «, t00=0x00af, t01=0x00f4}
0x1125a…11290 Head {h00=0x0032, h01=0x0050, text=» ST* A2,DYNTAD,A10 COUNT LENGTH WORD IN TABLE «, t00=0x00af, t01=0x0112}
0x11290…112b8 Head {h00=0x0024, h01=0x0050, text=» ST A2,DYNDIS+STKEND STEP DISPL «, t00=0x00af, t01=0x0148}
0x112b8…112e6 Head {h00=0x002a, h01=0x0050, text=» SUK A3,SPLCPB POINT AT SPL-PBS START «, t00=0x00af, t01=0x0170}
0x112e6…11314 Head {h00=0x002a, h01=0x0050, text=» STR A3,A1 STORE SPL-PBS ADR IN TABLE «, t00=0x00b0, t01=0x000e}
0x11314…11324 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00b0, t01=0x003c}
0x11324…11332 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b0, t01=0x004c}
0x11332…1135a Head {h00=0x0024, h01=0x0050, text=»* M V S T A T *«, t00=0x00b0, t01=0x005a}
0x1135a…11382 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x00b0, t01=0x0082}
0x11382…113aa Head {h00=0x0024, h01=0x0050, text=»* ALLOCATE AND MOVE STATIC- *«, t00=0x00b0, t01=0x00aa}
0x113aa…113d2 Head {h00=0x0024, h01=0x0050, text=»* CORE *«, t00=0x00b0, t01=0x00d2}
0x113d2…113fa Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x00b0, t01=0x00fa}
0x113fa…11422 Head {h00=0x0024, h01=0x0050, text=»* INPUT : A3 ITCT ADDRESS *«, t00=0x00b0, t01=0x0122}
0x11422…1144a Head {h00=0x0024, h01=0x0050, text=»* EXIT : A6 -1 *«, t00=0x00b0, t01=0x014a}
0x1144a…11472 Head {h00=0x0024, h01=0x0050, text=»* A3 ITCT ADDRESS *«, t00=0x00b0, t01=0x0172}
0x11472…1149a Head {h00=0x0024, h01=0x0050, text=»* WORK : A1-A2,A7-A8,A10 *«, t00=0x00b1, t01=0x000a}
0x1149a…114c2 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x00b1, t01=0x0032}
0x114c2…114ca Head {h00=0x0004, h01=0x0050, t00=0x00b1, t01=0x005a}
0x114ca…114de Head {h00=0x0010, h01=0x0050, text=»MVSTAT EQU *«, t00=0x00b1, t01=0x0062}
0x114de…1150e Head {h00=0x002c, h01=0x0050, text=» STR A4,A14 SAVE SHTAB2 POINTER ON STACK«, t00=0x00b1, t01=0x0076}
0x1150e…11536 Head {h00=0x0024, h01=0x0050, text=» SUKL A14,2 ADJUST STACK-POINTER«, t00=0x00b1, t01=0x00a6}
0x11536…11552 Head {h00=0x0018, h01=0x0050, text=» LDR A7,A3 ITCT ADR «, t00=0x00b1, t01=0x00ce}
0x11552…11588 Head {h00=0x0032, h01=0x0050, text=» ADK A3,ITCTGC POINT AT ICB-PLTGC-MAIN ADDRESS«, t00=0x00b1, t01=0x00ea}
0x11588…115b2 Head {h00=0x0026, h01=0x0050, text=» ST A3,SAVE07+STKEND SAVE POINTER «, t00=0x00b1, t01=0x0120}
0x115b2…115d2 Head {h00=0x001c, h01=0x0050, text=» ADK A7,ITCTLT TLTAB ADR«, t00=0x00b1, t01=0x014a}
0x115d2…115f6 Head {h00=0x0020, h01=0x0050, text=» LDR A12,A7 SAVE TLTAB-BASE «, t00=0x00b1, t01=0x016a}
0x115f6…11620 Head {h00=0x0026, h01=0x0050, text=» ELR A6,A7 NBR OF ENTRIES IN TLTAB«, t00=0x00b1, t01=0x018e}
0x11620…11634 Head {h00=0x0010, h01=0x0050, text=»MVSTA1 EQU *«, t00=0x00b2, t01=0x0028}
0x11634…1164c Head {h00=0x0014, h01=0x0050, text=» SUK A6,1 COUNT «, t00=0x00b2, t01=0x003c}
0x1164c…1167a Head {h00=0x002a, h01=0x0050, text=» RF(NN) MVSTA2 STATIC-ZERO AREAS LEFT «, t00=0x00b2, t01=0x0054}
0x1167a…116b6 Head {h00=0x0038, h01=0x0050, text=» LD A3,SAVE07+STKEND LOAD ICB-PLTGC-MAIN ADR POINTER«, t00=0x00b2, t01=0x0082}
0x116b6…116e2 Head {h00=0x0028, h01=0x0050, text=» SUK A3,ITCTGC MAKE IT ITCT POINTER «, t00=0x00b2, t01=0x00be}
0x116e2…1170a Head {h00=0x0024, h01=0x0050, text=» ADKL A14,2 ADJUST STACK-POINTER«, t00=0x00b2, t01=0x00ea}
0x1170a…1173c Head {h00=0x002e, h01=0x0050, text=» LDR* A4,A14 GET SHTAB2 POINTER FROM STACK«, t00=0x00b2, t01=0x0112}
0x1173c…1174c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00b2, t01=0x0144}
0x1174c…11760 Head {h00=0x0010, h01=0x0050, text=»MVSTA2 EQU *«, t00=0x00b2, t01=0x0154}
0x11760…1178a Head {h00=0x0026, h01=0x0050, text=» ADK A7,2 POINT AT STATIC-ZERO ADR«, t00=0x00b2, t01=0x0168}
0x1178a…117ac (179, 0, 400) Head {h00=0x001e, h01=0x0050, text=» ELR A8,A7 STATIC-ZERO ADR«, t00=0x00b3, t01=0x0004}
0x117ac…117ce Head {h00=0x001e, h01=0x0050, text=» RB(Z) MVSTA1 EMPTY ENTRY «, t00=0x00b3, t01=0x0026}
0x117ce…11808 Head {h00=0x0036, h01=0x0050, text=» EL* A3,SAVE07+STKEND LOAD ICB-PLTGC-MAIN ADDRESS «, t00=0x00b3, t01=0x0048}
0x11808…11822 Head {h00=0x0016, h01=0x0050, text=» SUR A10,A10 LEVEL«, t00=0x00b3, t01=0x0082}
0x11822…11844 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 RESET INDICATOR «, t00=0x00b3, t01=0x009c}
0x11844…11874 Head {h00=0x002c, h01=0x0050, text=» LD A2,FREQUE GET MONITOR BLOCK ADR. =2 «, t00=0x00b3, t01=0x00be}
0x11874…118a4 Head {h00=0x002c, h01=0x0050, text=» CALL FNDTGC FIND STATIC-ZERO ADR+LENGTH«, t00=0x00b3, t01=0x00ee}
0x118a4…118dc Head {h00=0x0034, h01=0x0050, text=» LD A10,SAVE01+STKEND GET APPL.SAVE AREA POINTER«, t00=0x00b3, t01=0x011e}
0x118dc…1190e Head {h00=0x002e, h01=0x0050, text=» CALL CALLMO ALLOCATE AND MOVE STATIC-ZERO«, t00=0x00b3, t01=0x0156}
0x1190e…11926 Head {h00=0x0014, h01=0x0050, text=» TL* MMTO+STKCOM«, t00=0x00b3, t01=0x0188}
0x11926…1194c Head {h00=0x0022, h01=0x0050, text=» ESR A2,A7 UPDATE TLTAB ENTRY «, t00=0x00b4, t01=0x0010}
0x1194c…1195e Head {h00=0x000e, h01=0x0050, text=» RB MVSTA1«, t00=0x00b4, t01=0x0036}
0x1195e…1196c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b4, t01=0x0048}
0x1196c…11996 Head {h00=0x0026, h01=0x0050, text=»* F N D T G C *«, t00=0x00b4, t01=0x0056}
0x11996…119c0 Head {h00=0x0026, h01=0x0050, text=»* *«, t00=0x00b4, t01=0x0080}
0x119c0…119ea Head {h00=0x0026, h01=0x0050, text=»* FIND STATIC-ZERO ADR+LENGTH *«, t00=0x00b4, t01=0x00aa}
0x119ea…11a14 Head {h00=0x0026, h01=0x0050, text=»* FOR ONE PROGRAM *«, t00=0x00b4, t01=0x00d4}
0x11a14…11a3e Head {h00=0x0026, h01=0x0050, text=»* *«, t00=0x00b4, t01=0x00fe}
0x11a3e…11a68 Head {h00=0x0026, h01=0x0050, text=»* INPUT : A3 ICB-PLTGC ADR *«, t00=0x00b4, t01=0x0128}
0x11a68…11a92 Head {h00=0x0026, h01=0x0050, text=»* A8 STATIC-ZERO ADR *«, t00=0x00b4, t01=0x0152}
0x11a92…11abc Head {h00=0x0026, h01=0x0050, text=»* WANTED *«, t00=0x00b4, t01=0x017c}
0x11abc…11ae6 Head {h00=0x0026, h01=0x0050, text=»* A10 0 (ZERO) *«, t00=0x00b5, t01=0x0016}
0x11ae6…11b10 Head {h00=0x0026, h01=0x0050, text=»* A12 TLTAB BASE *«, t00=0x00b5, t01=0x0040}
0x11b10…11b3e Head {h00=0x002a, h01=0x0050, text=»* A2 MONITIR BLOCK ADR * =2«, t00=0x00b5, t01=0x006a}
0x11b3e…11b68 Head {h00=0x0026, h01=0x0050, text=»* EXIT : A1 STATIC-ZERO ADR *«, t00=0x00b5, t01=0x0098}
0x11b68…11b96 Head {h00=0x002a, h01=0x0050, text=»* A2 MONITOR BLOCK ADR * =2«, t00=0x00b5, t01=0x00c2}
0x11b96…11bc0 Head {h00=0x0026, h01=0x0050, text=»* A3 STATIC-ZERO LENGTH *«, t00=0x00b5, t01=0x00f0}
0x11bc0…11bea Head {h00=0x0026, h01=0x0050, text=»* WORK : A2,A4,A5,A9,A11 *«, t00=0x00b5, t01=0x011a}
0x11bea…11c18 Head {h00=0x002a, h01=0x0050, text=»* WORKAREA: USES MONITOR BLOCKS * =2«, t00=0x00b5, t01=0x0144}
0x11c18…11c46 Head {h00=0x002a, h01=0x0050, text=»* AS STACK * =2«, t00=0x00b5, t01=0x0172}
0x11c46…11c70 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x00b6, t01=0x0010}
0x11c70…11c78 Head {h00=0x0004, h01=0x0050, t00=0x00b6, t01=0x003a}
0x11c78…11c8c Head {h00=0x0010, h01=0x0050, text=»FNDTGC EQU *«, t00=0x00b6, t01=0x0042}
0x11c8c…11ca2 Head {h00=0x0012, h01=0x0050, text=» ELR A1,A3 =2«, t00=0x00b6, t01=0x0056}
0x11ca2…11cb8 Head {h00=0x0012, h01=0x0050, text=» SRL A1,8 =2 «, t00=0x00b6, t01=0x006c}
0x11cb8…11cde Head {h00=0x0022, h01=0x0050, text=» SUK A1,/60 COBOL PROGRAM? =2 «, t00=0x00b6, t01=0x0082}
0x11cde…11cfc Head {h00=0x001a, h01=0x0050, text=» RF(Z) FNDT00 YES! =2 «, t00=0x00b6, t01=0x00a8}
0x11cfc…11d24 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE NOT FOUND =2 «, t00=0x00b6, t01=0x00c6}
0x11d24…11d40 Head {h00=0x0018, h01=0x0050, text=» RF FNDTG0 RETURN =2«, t00=0x00b6, t01=0x00ee}
0x11d40…11d58 Head {h00=0x0014, h01=0x0050, text=»FNDT00 EQU * =2«, t00=0x00b6, t01=0x010a}
0x11d58…11d84 Head {h00=0x0028, h01=0x0050, text=» EL A1,TGCSZD,A3 GET DISPL IN TLTAB «, t00=0x00b6, t01=0x0122}
0x11d84…11dac Head {h00=0x0024, h01=0x0050, text=» ADR A1,A12 POINT AT TLTAB-ENTRY«, t00=0x00b6, t01=0x014e}
0x11dac…11dda Head {h00=0x002a, h01=0x0050, text=» ADK A1,2 ADJUST FOR TLTAB LENGTH-WORD«, t00=0x00b6, t01=0x0176}
0x11dda…11dfc Head {h00=0x001e, h01=0x0050, text=» ELR A1,A1 STATIC-ZERO-ADR«, t00=0x00b7, t01=0x0014}
0x11dfc…11e18 Head {h00=0x0018, h01=0x0050, text=» CWR A1,A8 WANTED ? «, t00=0x00b7, t01=0x0036}
0x11e18…11e32 Head {h00=0x0016, h01=0x0050, text=» RF(NE) FNDTG1 NO «, t00=0x00b7, t01=0x0052}
0x11e32…11e62 Head {h00=0x002c, h01=0x0050, text=» ADK A3,TGCSZL YES,POINT AT LENGTH WORD «, t00=0x00b7, t01=0x006c}
0x11e62…11e88 Head {h00=0x0022, h01=0x0050, text=» ELR A3,A3 STATIC-ZERO-LENGTH «, t00=0x00b7, t01=0x009c}
0x11e88…11e9c Head {h00=0x0010, h01=0x0050, text=»FNDTG0 EQU *«, t00=0x00b7, t01=0x00c2}
0x11e9c…11eac Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00b7, t01=0x00d6}
0x11eac…11ec0 Head {h00=0x0010, h01=0x0050, text=»FNDTG1 EQU *«, t00=0x00b7, t01=0x00e6}
0x11ec0…11ee4 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 INDICATE NOT FOUND«, t00=0x00b7, t01=0x00fa}
0x11ee4…11f18 Head {h00=0x0030, h01=0x0050, text=» EL A5,8,A3 NBR OF ENTRIES IN PLTGC CALL TAB«, t00=0x00b7, t01=0x011e}
0x11f18…11f3c Head {h00=0x0020, h01=0x0050, text=» SLL A5,1 *2 = TABLE LENGTH «, t00=0x00b7, t01=0x0152}
0x11f3c…11f54 Head {h00=0x0014, h01=0x0050, text=» ADR A5,A3 BASE «, t00=0x00b7, t01=0x0176}
0x11f54…11f7c Head {h00=0x0024, h01=0x0050, text=» ADK A5,10 DISPL TO TABLE START «, t00=0x00b7, t01=0x018e}
0x11f7c…11f9c Head {h00=0x001c, h01=0x0050, text=» LDR A4,A3 ICB-PLTGC ADR«, t00=0x00b8, t01=0x0026}
0x11f9c…11fd8 Head {h00=0x0038, h01=0x0050, text=» ADK A4,TGCCAL+TGCCTE ADR TO FIRST ENTRY IN CALL TAB«, t00=0x00b8, t01=0x0046}
0x11fd8…11fec Head {h00=0x0010, h01=0x0050, text=»FNDTG2 EQU *«, t00=0x00b8, t01=0x0082}
0x11fec…1200e Head {h00=0x001e, h01=0x0050, text=» LDR A9,A4 TABLE START ADR«, t00=0x00b8, t01=0x0096}
0x1200e…12030 Head {h00=0x001e, h01=0x0050, text=» LDR A11,A5 TABLE END ADR «, t00=0x00b8, t01=0x00b8}
0x12030…12058 Head {h00=0x0024, h01=0x0050, text=» CALL CMPADR END OF CALL-TABLE ?«, t00=0x00b8, t01=0x00da}
0x12058…12076 Head {h00=0x001a, h01=0x0050, text=» RB(NG) FNDTG0 YES! =2«, t00=0x00b8, t01=0x0102}
0x12076…1208a Head {h00=0x0010, h01=0x0050, text=»FNDTG3 EQU *«, t00=0x00b8, t01=0x0120}
0x1208a…120ae Head {h00=0x0020, h01=0x0050, text=» ST A4,2,A2 SAVE ON STACK =2«, t00=0x00b8, t01=0x0134}
0x120ae…120d2 Head {h00=0x0020, h01=0x0050, text=» ST A5,4,A2 SAVE ON STACK =2«, t00=0x00b8, t01=0x0158}
0x120d2…120fe Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A2 ADJUST STACK POINTER =2 «, t00=0x00b8, t01=0x017c}
0x120fe…1212c Head {h00=0x002a, h01=0x0050, text=» RF(NZ) FNDTG4 MORE BLOCKS AVILABLE =2«, t00=0x00b9, t01=0x0018}
0x1212c…12158 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,NOBLK NO BLOCKS AVILABLE =2«, t00=0x00b9, t01=0x0046}
0x12158…12170 Head {h00=0x0014, h01=0x0050, text=» CALL ERROR =2 «, t00=0x00b9, t01=0x0072}
0x12170…12188 Head {h00=0x0014, h01=0x0050, text=»FNDTG4 EQU * =2«, t00=0x00b9, t01=0x008a}
0x12188…121a4 Head {h00=0x0018, h01=0x0050, text=» ELR A3,A4 NEXT LINK«, t00=0x00b9, t01=0x00a2}
0x121a4…121c4 Head {h00=0x001c, h01=0x0050, text=» ADKL A10,1 ADJUST LEVEL«, t00=0x00b9, t01=0x00be}
0x121c4…121e4 Head {h00=0x001c, h01=0x0050, text=» CALL FNDTGC NEXT LEVEL «, t00=0x00b9, t01=0x00de}
0x121e4…1220e Head {h00=0x0026, h01=0x0050, text=» SUK A2,6 ADJUST STACK POINTER =2 «, t00=0x00b9, t01=0x00fe}
0x1220e…12232 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 STATIC-ZERO FOUND«, t00=0x00b9, t01=0x0128}
0x12232…1224c Head {h00=0x0016, h01=0x0050, text=» RB(NZ) FNDTG0 YES«, t00=0x00b9, t01=0x014c}
0x1224c…1226c Head {h00=0x001c, h01=0x0050, text=» SUKL A10,1 ADJUST LEVEL«, t00=0x00b9, t01=0x0166}
0x1226c…1229c Head {h00=0x002c, h01=0x0050, text=» LD A4,2,A2 TABLE POINTER FROM STACK =2 «, t00=0x00b9, t01=0x0186}
0x1229c…122d0 Head {h00=0x0030, h01=0x0050, text=» LD A5,4,A2 TABLE END POINTER FROM STACK =2 «, t00=0x00ba, t01=0x0026}
0x122d0…12300 Head {h00=0x002c, h01=0x0050, text=» ADK A4,TGCCTE POINT TO NEXT TABLE-ENTRY«, t00=0x00ba, t01=0x005a}
0x12300…12312 Head {h00=0x000e, h01=0x0050, text=» RB FNDTG2«, t00=0x00ba, t01=0x008a}
0x12312…12320 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ba, t01=0x009c}
0x12320…1234c Head {h00=0x0028, h01=0x0050, text=»* M V P G T L * «, t00=0x00ba, t01=0x00aa}
0x1234c…12378 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00ba, t01=0x00d6}
0x12378…123a4 Head {h00=0x0028, h01=0x0050, text=»* ALLOCATE AND MOVE PGTL-DATA * «, t00=0x00ba, t01=0x0102}
0x123a4…123d0 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x00ba, t01=0x012e}
0x123d0…123fc Head {h00=0x0028, h01=0x0050, text=»* INPUT : A2 ITCT ADR * «, t00=0x00ba, t01=0x015a}
0x123fc…12428 Head {h00=0x0028, h01=0x0050, text=»* EXIT : A1 OLD PGTL-DATA ADR * «, t00=0x00ba, t01=0x0186}
0x12428…12454 Head {h00=0x0028, h01=0x0050, text=»* A2 NEW PGTL-DATA ADR * «, t00=0x00bb, t01=0x0022}
0x12454…12480 Head {h00=0x0028, h01=0x0050, text=»* A3 ITCT ADR * «, t00=0x00bb, t01=0x004e}
0x12480…124ac Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00bb, t01=0x007a}
0x124ac…124b4 Head {h00=0x0004, h01=0x0050, t00=0x00bb, t01=0x00a6}
0x124b4…124c8 Head {h00=0x0010, h01=0x0050, text=»MVPGTL EQU *«, t00=0x00bb, t01=0x00ae}
0x124c8…124e0 Head {h00=0x0014, h01=0x0050, text=» TL* MMTO+STKCOM«, t00=0x00bb, t01=0x00c2}
0x124e0…12506 Head {h00=0x0022, h01=0x0050, text=» EL A1,ITCGLA,A2 PGTL-DATA ADR«, t00=0x00bb, t01=0x00da}
0x12506…12530 Head {h00=0x0026, h01=0x0050, text=» EL A3,ITCGLL,A2 PGTL-DATA LENGTH «, t00=0x00bb, t01=0x0100}
0x12530…12560 Head {h00=0x002c, h01=0x0050, text=» CALL CALLMO ALLOCATE AND MOVE PGTL-DATA«, t00=0x00bb, t01=0x012a}
0x12560…12578 Head {h00=0x0014, h01=0x0050, text=» TL* MMTO+STKCOM«, t00=0x00bb, t01=0x015a}
0x12578…1259e Head {h00=0x0022, h01=0x0050, text=» LD A3,SAVITC+STKEND ITCT ADR «, t00=0x00bb, t01=0x0172}
0x1259e…125c8 Head {h00=0x0026, h01=0x0050, text=» ES A2,ITCGLA,A3 NEW PGTL-DATA ADR«, t00=0x00bc, t01=0x0008}
0x125c8…125d8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00bc, t01=0x0032}
0x125d8…125e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bc, t01=0x0042}
0x125e6…1261e Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00bc, t01=0x0050}
0x1261e…12656 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x00bc, t01=0x0088}
0x12656…1268e Head {h00=0x0034, h01=0x0050, text=»* C A L L M O *«, t00=0x00bc, t01=0x00c0}
0x1268e…126c6 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x00bc, t01=0x00f8}
0x126c6…126fe Head {h00=0x0034, h01=0x0050, text=»* CALLMO CHECKS WHERE TO BUILD DATA BEFORE *«, t00=0x00bc, t01=0x0130}
0x126fe…12736 Head {h00=0x0034, h01=0x0050, text=»* CALLING MOVING *«, t00=0x00bc, t01=0x0168}
0x12736…1276e Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x00bd, t01=0x0010}
0x1276e…127a6 Head {h00=0x0034, h01=0x0050, text=»* INPUT: A3=LENGTH TO MOVE *«, t00=0x00bd, t01=0x0048}
0x127a6…127de Head {h00=0x0034, h01=0x0050, text=»* A10=APPL.SAVE AREA POINTER *«, t00=0x00bd, t01=0x0080}
0x127de…12816 Head {h00=0x0034, h01=0x0050, text=»* PDDIV=FLAG THAT INDICATES IF DDIV IS *«, t00=0x00bd, t01=0x00b8}
0x12816…1284e Head {h00=0x0034, h01=0x0050, text=»* GOING TO BEE BUILT IN PROT.DDIV *«, t00=0x00bd, t01=0x00f0}
0x1284e…12886 Head {h00=0x0034, h01=0x0050, text=»* PDDIVL=LENGTH LEFT IN PROT.DDIV *«, t00=0x00bd, t01=0x0128}
0x12886…128be Head {h00=0x0034, h01=0x0050, text=»* SCTEFA=END OF FREE AREA *«, t00=0x00bd, t01=0x0160}
0x128be…128f6 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x00be, t01=0x0008}
0x128f6…1292e Head {h00=0x0034, h01=0x0050, text=»* OUTPUT: A3=-1 *«, t00=0x00be, t01=0x0040}
0x1292e…12966 Head {h00=0x0034, h01=0x0050, text=»* PDDIV=1 IF DDIV IS BUILT IN PROT. *«, t00=0x00be, t01=0x0078}
0x12966…1299e Head {h00=0x0034, h01=0x0050, text=»* DDIV ELSE PDDIV=0 *«, t00=0x00be, t01=0x00b0}
0x1299e…129d6 Head {h00=0x0034, h01=0x0050, text=»* PDDIVL=NEW PDDIVL *«, t00=0x00be, t01=0x00e8}
0x129d6…12a0e Head {h00=0x0034, h01=0x0050, text=»* LSTADR=NEW LAST FREE ADDR. *«, t00=0x00be, t01=0x0120}
0x12a0e…12a46 Head {h00=0x0034, h01=0x0050, text=»* FYSPAG=NEW LAST FREE PAGE *«, t00=0x00be, t01=0x0158}
0x12a46…12a7e Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x00be, t01=0x0190}
0x12a7e…12ab6 Head {h00=0x0034, h01=0x0050, text=»* WORK REG:A2 *«, t00=0x00bf, t01=0x0038}
0x12ab6…12aee Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x00bf, t01=0x0070}
0x12aee…12b26 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00bf, t01=0x00a8}
0x12b26…12b3a Head {h00=0x0010, h01=0x0050, text=»CALLMO EQU *«, t00=0x00bf, t01=0x00e0}
0x12b3a…12b6e Head {h00=0x0030, h01=0x0050, text=» LD A2,PDDIV+STKEND BUILD DDIV IN PROT.DDIV?«, t00=0x00bf, t01=0x00f4}
0x12b6e…12b88 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CAL200 NO! «, t00=0x00bf, t01=0x0128}
0x12b88…12bbe Head {h00=0x0032, h01=0x0050, text=» LD A2,PDDIVL,A10 GET LENGTH LEFT IN PROT.DDIV«, t00=0x00bf, t01=0x0142}
0x12bbe…12bf0 Head {h00=0x002e, h01=0x0050, text=» SUR A2,A3 ENOUGH SPACE LEFT IN PROT.DDIV «, t00=0x00bf, t01=0x0178}
0x12bf0…12c0c Head {h00=0x0018, h01=0x0050, text=» RF(NN) CAL100 YES! «, t00=0x00c0, t01=0x001a}
0x12c0c…12c16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x0036}
0x12c16…12c48 Head {h00=0x002e, h01=0x0050, text=»* RESET FLAG AND CHANGE FYSPAG AND LSTADR «, t00=0x00c0, t01=0x0040}
0x12c48…12c6e Head {h00=0x0022, h01=0x0050, text=»* TO POINT AT END OF FREE AREA«, t00=0x00c0, t01=0x0072}
0x12c6e…12c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x0098}
0x12c78…12c9c Head {h00=0x0020, h01=0x0050, text=» CM PDDIV+STKEND RESET FLAG «, t00=0x00c0, t01=0x00a2}
0x12c9c…12cd2 Head {h00=0x0032, h01=0x0050, text=» LD A2,SAEFA1+STKEND GET END OF FREE AREA PAGE«, t00=0x00c0, t01=0x00c6}
0x12cd2…12d06 Head {h00=0x0030, h01=0x0050, text=» ST A2,FYSPAG+STKCOM SET FYSPAG TO THAT PAGE«, t00=0x00c0, t01=0x00fc}
0x12d06…12d44 Head {h00=0x003a, h01=0x0050, text=» LD A2,SAEFA2+STKEND END OF FREE AREA (LOGICAL ADDR.) «, t00=0x00c0, t01=0x0130}
0x12d44…12d72 Head {h00=0x002a, h01=0x0050, text=» ST A2,LSTADR+STKCOM STORE NEW LSTADR «, t00=0x00c0, t01=0x016e}
0x12d72…12d86 Head {h00=0x0010, h01=0x0050, text=»CAL100 EQU *«, t00=0x00c1, t01=0x000c}
0x12d86…12db8 Head {h00=0x002e, h01=0x0050, text=» ST A2,PDDIVL,A10 LENGTH LEFT IN PROT.DDIV«, t00=0x00c1, t01=0x0020}
0x12db8…12dcc Head {h00=0x0010, h01=0x0050, text=»CAL200 EQU *«, t00=0x00c1, t01=0x0052}
0x12dcc…12de0 Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00c1, t01=0x0066}
0x12de0…12df0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c1, t01=0x007a}
0x12df0…12dfe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c1, t01=0x008a}
0x12dfe…12e06 Head {h00=0x0004, h01=0x0050, t00=0x00c1, t01=0x0098}
0x12e06…12e0e Head {h00=0x0004, h01=0x0050, t00=0x00c1, t01=0x00a0}
0x12e0e…12e22 Head {h00=0x0010, h01=0x0050, text=»START3 EQU *«, t00=0x00c1, t01=0x00a8}
0x12e22…12e2a Head {h00=0x0004, h01=0x0050, t00=0x00c1, t01=0x00bc}
0x12e2a…12e32 Head {h00=0x0004, h01=0x0050, t00=0x00c1, t01=0x00c4}
0x12e32…12e46 Head {h00=0x0010, h01=0x0050, text=»REALTA EQU *«, t00=0x00c1, t01=0x00cc}
0x12e46…12e6e Head {h00=0x0024, h01=0x0050, text=» LD* A8,SHADOW,A10 SHTAB LENGTH «, t00=0x00c1, t01=0x00e0}
0x12e6e…12e92 Head {h00=0x0020, h01=0x0050, text=» LD A5,SHADOW,A10 SHTAB1 ADR«, t00=0x00c1, t01=0x0108}
0x12e92…12eb0 Head {h00=0x001a, h01=0x0050, text=» ADR A8,A5 SHTAB2 ADR «, t00=0x00c1, t01=0x012c}
0x12eb0…12edc Head {h00=0x0028, h01=0x0050, text=» ST A8,SAVE03+STKEND SAVE SHTAB2 ADR«, t00=0x00c1, t01=0x014a}
0x12edc…12f02 Head {h00=0x0022, h01=0x0050, text=» AD* A8,SHADOW,A10 SHTAB3 ADR «, t00=0x00c1, t01=0x0176}
0x12f02…12f2a Head {h00=0x0024, h01=0x0050, text=» ST A8,SAVE02+STKEND SHTAB3 ADR «, t00=0x00c2, t01=0x000c}
0x12f2a…12f3e Head {h00=0x0010, h01=0x0050, text=»SYA300 EQU *«, t00=0x00c2, t01=0x0034}
0x12f3e…12f6a Head {h00=0x0028, h01=0x0050, text=» LD A8,SAVE03+STKEND SHTAB2 POINTER «, t00=0x00c2, t01=0x0048}
0x12f6a…12f82 Head {h00=0x0014, h01=0x0050, text=» ADKL A8,2 NEXT «, t00=0x00c2, t01=0x0074}
0x12f82…12fb0 Head {h00=0x002a, h01=0x0050, text=» CW A8,SAVE02+STKEND ALL TCL'S DONE ? «, t00=0x00c2, t01=0x008c}
0x12fb0…12fca Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA310 YES «, t00=0x00c2, t01=0x00ba}
0x12fca…12ffa Head {h00=0x002c, h01=0x0050, text=» ST A8,SAVE03+STKEND SAVE SHTAB2 POINTER«, t00=0x00c2, t01=0x00d4}
0x12ffa…1301a Head {h00=0x001c, h01=0x0050, text=» ADK A5,2 SHTAB1 POINTER«, t00=0x00c2, t01=0x0104}
0x1301a…1303c Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A5 NBR OF COPIES «, t00=0x00c2, t01=0x0124}
0x1303c…13056 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SYA300 NONE«, t00=0x00c2, t01=0x0146}
0x13056…1307c Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET SHTAB2 POINTER «, t00=0x00c2, t01=0x0160}
0x1307c…130ae Head {h00=0x002e, h01=0x0050, text=» AD* A4,SHADOW,A10 MAKE IT SHTAB3 POINTER «, t00=0x00c2, t01=0x0186}
0x130ae…130c2 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A4 «, t00=0x00c3, t01=0x0028}
0x130c2…130f4 Head {h00=0x002e, h01=0x0050, text=» TLR A4 LOAD MM-TABLE INDICATED IN SHTAB3 «, t00=0x00c3, t01=0x003c}
0x130f4…13126 Head {h00=0x002e, h01=0x0050, text=» ST A4,MMFROM+STKCOM SAVE MM-TABLE ADDRESS«, t00=0x00c3, t01=0x006e}
0x13126…13160 Head {h00=0x0036, h01=0x0050, text=» ST A10,SAVE01+STKEND SAVE APPL.SAVE AREA POINTER «, t00=0x00c3, t01=0x00a0}
0x13160…13182 Head {h00=0x001e, h01=0x0050, text=» CALL GETTAB FIND TTAB ADR«, t00=0x00c3, t01=0x00da}
0x13182…131ae Head {h00=0x0028, h01=0x0050, text=» ST A10,SAVITC+STKEND SAVE ITCT ADR «, t00=0x00c3, t01=0x00fc}
0x131ae…131e2 Head {h00=0x0030, h01=0x0050, text=» ST A10,TCLITC+STKEND SAVE TCL ITCT ADDRESS«, t00=0x00c3, t01=0x0128}
0x131e2…13202 Head {h00=0x001c, h01=0x0050, text=» CALL QUEJOB QUEUE TASK «, t00=0x00c3, t01=0x015c}
0x13202…1321e Head {h00=0x0018, h01=0x0050, text=» LDR A6,A10 ITCT ADR«, t00=0x00c3, t01=0x017c}
0x1321e…13244 Head {h00=0x0022, h01=0x0050, text=» ADK A6,22 MAKE IT INT-USABLE «, t00=0x00c4, t01=0x0008}
0x13244…13280 Head {h00=0x0038, h01=0x0050, text=» ST A6,TTB:SA+26,A2 SAVE ITCT ADR IN TTAB(SAVE-A13) «, t00=0x00c4, t01=0x002e}
0x13280…132b4 Head {h00=0x0030, h01=0x0050, text=» ADKL A6,ITCCSB-ITCDCD POINT AT CSB IN ITCT «, t00=0x00c4, t01=0x006a}
0x132b4…132da Head {h00=0x0022, h01=0x0050, text=» ST A6,TTB:CB,A2 SAVE IN TTAB «, t00=0x00c4, t01=0x009e}
0x132da…13302 Head {h00=0x0024, h01=0x0050, text=» LD A1,TTAB+STKCOM TTAB ADDRESS «, t00=0x00c4, t01=0x00c4}
0x13302…13326 Head {h00=0x0020, h01=0x0050, text=» LD A1,TTBTID,A1 GET TASK-ID«, t00=0x00c4, t01=0x00ec}
0x13326…13348 Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A5 NBR OF COPIES «, t00=0x00c4, t01=0x0110}
0x13348…1335c Head {h00=0x0010, h01=0x0050, text=»SYA305 EQU *«, t00=0x00c4, t01=0x0132}
0x1335c…13394 Head {h00=0x0034, h01=0x0050, text=» LD A10,SAVE01+STKEND GET APPL.SAVE AREA POINTER«, t00=0x00c4, t01=0x0146}
0x13394…133ba Head {h00=0x0022, h01=0x0050, text=» SUK A6,1 COUNT NBR OF COPIES «, t00=0x00c4, t01=0x017e}
0x133ba…133da Head {h00=0x001c, h01=0x0050, text=» RB(NP) SYA300 NEXT TCL «, t00=0x00c5, t01=0x0014}
0x133da…13400 Head {h00=0x0022, h01=0x0050, text=» CALL GENCOP GENERATE ONE COPY«, t00=0x00c5, t01=0x0034}
0x13400…13418 Head {h00=0x0014, h01=0x0050, text=» RB SYA305 NEXT «, t00=0x00c5, t01=0x005a}
0x13418…13426 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c5, t01=0x0072}
0x13426…1342e Head {h00=0x0004, h01=0x0050, t00=0x00c5, t01=0x0080}
0x1342e…13450 Head {h00=0x001e, h01=0x0050, text=»* ADJUST END OF FREE AREA «, t00=0x00c5, t01=0x0088}
0x13450…13458 Head {h00=0x0004, h01=0x0050, t00=0x00c5, t01=0x00aa}
0x13458…1346c Head {h00=0x0010, h01=0x0050, text=»SYA310 EQU *«, t00=0x00c5, t01=0x00b2}
0x1346c…134a0 Head {h00=0x0030, h01=0x0050, text=» LD A1,PDDIV+STKEND UPDATE END OF FREE AREA?«, t00=0x00c5, t01=0x00c6}
0x134a0…134ba Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SYA315 NO!«, t00=0x00c5, t01=0x00fa}
0x134ba…134ec Head {h00=0x002e, h01=0x0050, text=» LD A1,LSTADR+STKCOM GET END OF FREE AREA «, t00=0x00c5, t01=0x0114}
0x134ec…13502 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFF «, t00=0x00c5, t01=0x0146}
0x13502…1351e Head {h00=0x0018, h01=0x0050, text=» LD A2,FYSPAG+STKCOM«, t00=0x00c5, t01=0x015c}
0x1351e…13530 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x00c5, t01=0x0178}
0x13530…13542 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x00c5, t01=0x018a}
0x13542…1355a Head {h00=0x0014, h01=0x0050, text=» ST A1,SCTEFA+2 «, t00=0x00c6, t01=0x000c}
0x1355a…13576 Head {h00=0x0018, h01=0x0050, text=» LD A1,FYSPAG+STKCOM«, t00=0x00c6, t01=0x0024}
0x13576…13588 Head {h00=0x000e, h01=0x0050, text=» SRL A1,14«, t00=0x00c6, t01=0x0040}
0x13588…1359e Head {h00=0x0012, h01=0x0050, text=» ST A1,SCTEFA «, t00=0x00c6, t01=0x0052}
0x1359e…135d0 Head {h00=0x002e, h01=0x0050, text=» LD A1,LSTADR+STKCOM GET END OF FREE AREA «, t00=0x00c6, t01=0x0068}
0x135d0…135e6 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFF «, t00=0x00c6, t01=0x009a}
0x135e6…13610 Head {h00=0x0026, h01=0x0050, text=» ST A1,SAEFA2+STKEND UPDATE SAEFA2«, t00=0x00c6, t01=0x00b0}
0x13610…13636 Head {h00=0x0022, h01=0x0050, text=» LD A1,FYSPAG+STKCOM GET PAGE «, t00=0x00c6, t01=0x00da}
0x13636…13660 Head {h00=0x0026, h01=0x0050, text=» ST A1,SAEFA1+STKEND UPDATE SAEFA1«, t00=0x00c6, t01=0x0100}
0x13660…13674 Head {h00=0x0010, h01=0x0050, text=»SYA315 EQU *«, t00=0x00c6, t01=0x012a}
0x13674…1367e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c6, t01=0x013e}
0x1367e…136b6 Head {h00=0x0034, h01=0x0050, text=»* JUMP TO LABEL NXTAPP IN PART2 TO SEE IF«, t00=0x00c6, t01=0x0148}
0x136b6…136e8 Head {h00=0x002e, h01=0x0050, text=»* THERE ARE MORE APPLICATIONS LEFT «, t00=0x00c6, t01=0x0180}
0x136e8…136f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x0022}
0x136f2…1372a Head {h00=0x0034, h01=0x0050, text=» LD A10,SAVE01+STKEND GET APPL.SAVE AREA POINTER«, t00=0x00c7, t01=0x002c}
0x1372a…13752 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,NXTAPP GET JUMP ADDRESS«, t00=0x00c7, t01=0x0064}
0x13752…13782 Head {h00=0x002c, h01=0x0050, text=» AD A1,M:REL+STKCOM ADD RELOCATION BASE «, t00=0x00c7, t01=0x008c}
0x13782…137ac Head {h00=0x0026, h01=0x0050, text=» ABR A1 CHECK IF MORE APPLICATIONS«, t00=0x00c7, t01=0x00bc}
0x137ac…137b4 Head {h00=0x0004, h01=0x0050, t00=0x00c7, t01=0x00e6}
0x137b4…137bc Head {h00=0x0004, h01=0x0050, t00=0x00c7, t01=0x00ee}
0x137bc…137c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c7, t01=0x00f6}
0x137c8…137de Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x00c7, t01=0x0102}
0x137de…137ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c7, t01=0x0118}
0x137ec…137f8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c7, t01=0x0126}
0x137f8…13804 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c7, t01=0x0132}
0x13804…1383a Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00c7, t01=0x013e}
0x1383a…13870 Head {h00=0x0032, h01=0x0050, text=»******* ******* «, t00=0x00c7, t01=0x0174}
0x13870…138a6 Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x00c8, t01=0x001a}
0x138a6…138dc Head {h00=0x0032, h01=0x0050, text=»* SYSLOAD PART 1 * «, t00=0x00c8, t01=0x0050}
0x138dc…13912 Head {h00=0x0032, h01=0x0050, text=»** ** «, t00=0x00c8, t01=0x0086}
0x13912…13948 Head {h00=0x0032, h01=0x0050, text=»***** ***** «, t00=0x00c8, t01=0x00bc}
0x13948…1397e Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00c8, t01=0x00f2}
0x1397e…1398a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c8, t01=0x0128}
0x1398a…139c0 Head {h00=0x0032, h01=0x0050, text=»* READ CONFIGURATION FILE & BUILD * «, t00=0x00c8, t01=0x0134}
0x139c0…139f6 Head {h00=0x0032, h01=0x0050, text=»* SHADOW-TABLES * «, t00=0x00c8, t01=0x016a}
0x139f6…13a2c Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x00c9, t01=0x0010}
0x13a2c…13a62 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00c9, t01=0x0046}
0x13a62…13a6e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c9, t01=0x007c}
0x13a6e…13a82 Head {h00=0x0010, h01=0x0050, text=»LCOSTA EQU *«, t00=0x00c9, t01=0x0088}
0x13a82…13aae Head {h00=0x0028, h01=0x0050, text=» LDKL A1,START1 GET START OF SYSLCO «, t00=0x00c9, t01=0x009c}
0x13aae…13ade Head {h00=0x002c, h01=0x0050, text=» AD A1,M:REL+STKCOM ADD RELOCATION BASE «, t00=0x00c9, t01=0x00c8}
0x13ade…13b04 Head {h00=0x0022, h01=0x0050, text=» ABR A1 GO TO START OF SYSLCO «, t00=0x00c9, t01=0x00f8}
0x13b04…13b10 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c9, t01=0x011e}
0x13b10…13b1c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00c9, t01=0x012a}
0x13b1c…13b4a Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x00c9, t01=0x0136}
0x13b4a…13b78 Head {h00=0x002a, h01=0x0050, text=»*** *** «, t00=0x00c9, t01=0x0164}
0x13b78…13ba6 (202, 0, 400) Head {h00=0x002a, h01=0x0050, text=»** S U B R O U T I N E S ** «, t00=0x00ca, t01=0x0004}
0x13ba6…13bd4 Head {h00=0x002a, h01=0x0050, text=»** -USED IN THIS PART ONLY ** «, t00=0x00ca, t01=0x0032}
0x13bd4…13c02 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x00ca, t01=0x0060}
0x13c02…13c10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ca, t01=0x008e}
0x13c10…13c46 Head {h00=0x0032, h01=0x0050, text=»* B U I L D T *«, t00=0x00ca, t01=0x009c}
0x13c46…13c7c Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x00ca, t01=0x00d2}
0x13c7c…13cb2 Head {h00=0x0032, h01=0x0050, text=»* BUILD ONE PART OF TIDTAB FOR CURRENT *«, t00=0x00ca, t01=0x0108}
0x13cb2…13ce8 Head {h00=0x0032, h01=0x0050, text=»* TASK DEFINITION BLOCK IN CONF.FILE *«, t00=0x00ca, t01=0x013e}
0x13ce8…13d1e Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x00ca, t01=0x0174}
0x13d1e…13d54 Head {h00=0x0032, h01=0x0050, text=»* INPUT : A1=ITCT ADDRESS *«, t00=0x00cb, t01=0x001a}
0x13d54…13d8a Head {h00=0x0032, h01=0x0050, text=»* A3=TID *«, t00=0x00cb, t01=0x0050}
0x13d8a…13dc0 Head {h00=0x0032, h01=0x0050, text=»* A4=NUMBER OF COPIES *«, t00=0x00cb, t01=0x0086}
0x13dc0…13df6 Head {h00=0x0032, h01=0x0050, text=»* A6=POINTER IN SHTAB1 *«, t00=0x00cb, t01=0x00bc}
0x13df6…13e2c Head {h00=0x0032, h01=0x0050, text=»* A8=LENGTH OF SHTAB1 *«, t00=0x00cb, t01=0x00f2}
0x13e2c…13e62 Head {h00=0x0032, h01=0x0050, text=»* SHADST=START OFSHADOW TABLES FOR *«, t00=0x00cb, t01=0x0128}
0x13e62…13e9a Head {h00=0x0034, h01=0x0050, text=»* CURRENT APPLICATION * «, t00=0x00cb, t01=0x015e}
0x13e9a…13ed0 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x00cc, t01=0x0008}
0x13ed0…13f06 Head {h00=0x0032, h01=0x0050, text=»* OUTPUT: A7=FIRST FREE ENTRY AFTER TIDTAB *«, t00=0x00cc, t01=0x003e}
0x13f06…13f3c Head {h00=0x0032, h01=0x0050, text=»* SHADST=START OFSHADOW TABLES FOR *«, t00=0x00cc, t01=0x0074}
0x13f3c…13f74 Head {h00=0x0034, h01=0x0050, text=»* CURRENT APPLICATION * «, t00=0x00cc, t01=0x00aa}
0x13f74…13faa Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x00cc, t01=0x00e2}
0x13faa…13fe0 Head {h00=0x0032, h01=0x0050, text=»* WORK REGISTERS : A1-A8 *«, t00=0x00cc, t01=0x0118}
0x13fe0…14016 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x00cc, t01=0x014e}
0x14016…1404c Head {h00=0x0032, h01=0x0050, text=»* SUBRUTINS : ERROR *«, t00=0x00cc, t01=0x0184}
0x1404c…14082 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x00cd, t01=0x002a}
0x14082…140b8 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x00cd, t01=0x0060}
0x140b8…140cc Head {h00=0x0010, h01=0x0050, text=»BUILDT EQU *«, t00=0x00cd, t01=0x0096}
0x140cc…14106 Head {h00=0x0036, h01=0x0050, text=» LDR* A2,A6 HAVE TASKS ALREADY BEEN CONF FOR THIS «, t00=0x00cd, t01=0x00aa}
0x14106…14114 Head {h00=0x000a, h01=0x0050, text=» TCL«, t00=0x00cd, t01=0x00e4}
0x14114…14130 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) BUI100 YES! «, t00=0x00cd, t01=0x00f2}
0x14130…1415a Head {h00=0x0026, h01=0x0050, text=» ST A3,ITCTID,A1 SAVE TID IN ITCT «, t00=0x00cd, t01=0x010e}
0x1415a…14196 Head {h00=0x0038, h01=0x0050, text=»* COUNT NUMBER OF TASKS IN TIDTAB WHICH ARE GOING TO«, t00=0x00cd, t01=0x0138}
0x14196…141b8 Head {h00=0x001e, h01=0x0050, text=»* LIE BEFORE CURRENT TASKS«, t00=0x00cd, t01=0x0174}
0x141b8…141cc Head {h00=0x0010, h01=0x0050, text=»BUI100 EQU *«, t00=0x00ce, t01=0x0008}
0x141cc…141f2 Head {h00=0x0022, h01=0x0050, text=» SUR A2,A2 CLEAR TASK COUNTER «, t00=0x00ce, t01=0x001c}
0x141f2…1422c Head {h00=0x0036, h01=0x0050, text=» LDR A5,A6 GET POINTER TO CURRENT ENTRY IN SHATB1 «, t00=0x00ce, t01=0x0042}
0x1422c…14240 Head {h00=0x0010, h01=0x0050, text=»BUI200 EQU *«, t00=0x00ce, t01=0x007c}
0x14240…14268 Head {h00=0x0024, h01=0x0050, text=» ADR* A2,A5 ADD NUMBER OF TASKS «, t00=0x00ce, t01=0x0090}
0x14268…14292 Head {h00=0x0026, h01=0x0050, text=» SUK A5,2 DECREASE SHTAB1 POINTER «, t00=0x00ce, t01=0x00b8}
0x14292…142c2 Head {h00=0x002c, h01=0x0050, text=» CW A5,SHADST+STKEND ALL TASKS COUNTED? «, t00=0x00ce, t01=0x00e2}
0x142c2…142dc Head {h00=0x0016, h01=0x0050, text=» RB(NE) BUI200 NO!«, t00=0x00ce, t01=0x0112}
0x142dc…14316 Head {h00=0x0036, h01=0x0050, text=»* LOAD REGISTER A5 WITH POINTER TO START-ENTRY OF «, t00=0x00ce, t01=0x012c}
0x14316…14352 Head {h00=0x0038, h01=0x0050, text=»* CURRENT TASKS IN TIDTAB AND ADD NUMBER OF CURRENT «, t00=0x00ce, t01=0x0166}
0x14352…1437a Head {h00=0x0024, h01=0x0050, text=»* TASKS IN FIRST ENTRY OF TIDTAB«, t00=0x00cf, t01=0x0012}
0x1437a…1439e Head {h00=0x0020, h01=0x0050, text=» ADR A5,A8 ADD SHTAB1 LENGTH«, t00=0x00cf, t01=0x003a}
0x1439e…143c2 Head {h00=0x0020, h01=0x0050, text=» ADR A5,A8 ADD SHTAB2 LENGTH«, t00=0x00cf, t01=0x005e}
0x143c2…143e6 Head {h00=0x0020, h01=0x0050, text=» ADR A5,A8 ADD SHTAB3 LENGTH«, t00=0x00cf, t01=0x0082}
0x143e6…1441a Head {h00=0x0030, h01=0x0050, text=» ADRS A4,A5 UPDATE NUMBER OF TASKS IN TIDTAB«, t00=0x00cf, t01=0x00a6}
0x1441a…1443e Head {h00=0x0020, h01=0x0050, text=» ADK A5,2 NEXT TIDTAB ENTRY «, t00=0x00cf, t01=0x00da}
0x1443e…14464 Head {h00=0x0022, h01=0x0050, text=» SLL A2,1 2*(NUMBER OF TASKS) «, t00=0x00cf, t01=0x00fe}
0x14464…14492 Head {h00=0x002a, h01=0x0050, text=» ADR A5,A2 ADD DISPLACEMENT IN TIDTAB «, t00=0x00cf, t01=0x0124}
0x14492…144cc Head {h00=0x0036, h01=0x0050, text=»* COUNT NUMBER OF TASKS IN TIDTAB WHICH ARE GOING «, t00=0x00cf, t01=0x0152}
0x144cc…144f0 Head {h00=0x0020, h01=0x0050, text=»* TO LIE AFTER CURRENT TASKS«, t00=0x00cf, t01=0x018c}
0x144f0…1452a Head {h00=0x0036, h01=0x0050, text=» LDR A1,A6 GET POINTER TO SHTAB1 ENTRY OF CURRENT «, t00=0x00d0, t01=0x0020}
0x1452a…14538 Head {h00=0x000a, h01=0x0050, text=» TCL«, t00=0x00d0, t01=0x005a}
0x14538…1456c Head {h00=0x0030, h01=0x0050, text=» ADK A1,2 ENTRY IN SHTAB1 AFTER CURRENT TCL «, t00=0x00d0, t01=0x0068}
0x1456c…14592 Head {h00=0x0022, h01=0x0050, text=» SUR A2,A2 CLEAR TASK COUNTER «, t00=0x00d0, t01=0x009c}
0x14592…145b6 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A8 GET SHTAB1 LENGTH«, t00=0x00d0, t01=0x00c2}
0x145b6…145c8 Head {h00=0x000e, h01=0x0050, text=» SUR A7,A1«, t00=0x00d0, t01=0x00e6}
0x145c8…1460c Head {h00=0x0040, h01=0x0050, text=» AD A7,SHADST+STKEND LENGTH OF SHTAB1 IN BYTES AFTER CURRENT«, t00=0x00d0, t01=0x00f8}
0x1460c…1461a Head {h00=0x000a, h01=0x0050, text=» TCL«, t00=0x00d0, t01=0x013c}
0x1461a…1464a Head {h00=0x002c, h01=0x0050, text=» RF(Z) BUI350 JUMP IF NO TASKS TO COUNT «, t00=0x00d0, t01=0x014a}
0x1464a…1465e Head {h00=0x0010, h01=0x0050, text=»BUI300 EQU *«, t00=0x00d0, t01=0x017a}
0x1465e…14686 Head {h00=0x0024, h01=0x0050, text=» ADR* A2,A1 ADD NUMBER OF TASKS «, t00=0x00d0, t01=0x018e}
0x14686…146b0 Head {h00=0x0026, h01=0x0050, text=» ADK A1,2 INCREASE SHTAB1 POINTER «, t00=0x00d1, t01=0x0026}
0x146b0…146d4 Head {h00=0x0020, h01=0x0050, text=» SUK A7,2 ALL TASKS COUNTED?«, t00=0x00d1, t01=0x0050}
0x146d4…146ee Head {h00=0x0016, h01=0x0050, text=» RB(Z) BUI300 NO! «, t00=0x00d1, t01=0x0074}
0x146ee…1471e Head {h00=0x002c, h01=0x0050, text=»* MAKE SPACE IN TIDTAB FOR CURRENT TASKS«, t00=0x00d1, t01=0x008e}
0x1471e…14732 Head {h00=0x0010, h01=0x0050, text=»BUI350 EQU *«, t00=0x00d1, t01=0x00be}
0x14732…1476a Head {h00=0x0034, h01=0x0050, text=» LDR A7,A5 LOAD START-ENTRY OF CURRENT TASKS IN «, t00=0x00d1, t01=0x00d2}
0x1476a…1477c Head {h00=0x000e, h01=0x0050, text=» TIDTAB «, t00=0x00d1, t01=0x010a}
0x1477c…147ac Head {h00=0x002c, h01=0x0050, text=» ADR A7,A2 ADD 2*(NUMBER OF TASKS AFTER «, t00=0x00d1, t01=0x011c}
0x147ac…147ce Head {h00=0x001e, h01=0x0050, text=» ADR A7,A2 CURRENT TASKS) «, t00=0x00d1, t01=0x014c}
0x147ce…14802 Head {h00=0x0030, h01=0x0050, text=» SUK A7,2 POINTER TO LAST TASK ID IN TIDTAB «, t00=0x00d1, t01=0x016e}
0x14802…14830 Head {h00=0x002a, h01=0x0050, text=» SLL A4,1 2*(NUMBER OF CURRENT TASKS) «, t00=0x00d2, t01=0x0012}
0x14830…14864 Head {h00=0x0030, h01=0x0050, text=» CWR A7,A5 ARE CURRENT TASKS LAST IN TIDTAB «, t00=0x00d2, t01=0x0040}
0x14864…1487e Head {h00=0x0016, h01=0x0050, text=» RF(L) BUI500 YES!«, t00=0x00d2, t01=0x0074}
0x1487e…14892 Head {h00=0x0010, h01=0x0050, text=»BUI400 EQU *«, t00=0x00d2, t01=0x008e}
0x14892…148bc Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A7 GET TASK ID IN TIDTAB «, t00=0x00d2, t01=0x00a2}
0x148bc…148ee Head {h00=0x002e, h01=0x0050, text=» ADR A7,A4 NEW ENTRY IN TIDTAB FOR TASK ID«, t00=0x00d2, t01=0x00cc}
0x148ee…1491c Head {h00=0x002a, h01=0x0050, text=» STR A1,A7 STORE TASK ID IN NEW ENTRY «, t00=0x00d2, t01=0x00fe}
0x1491c…14946 Head {h00=0x0026, h01=0x0050, text=» SUR A7,A4 GET OLD ENTRY IN TIDTAB«, t00=0x00d2, t01=0x012c}
0x14946…1496c Head {h00=0x0022, h01=0x0050, text=» SUK A7,2 NEXT ENTRY IN TIDTAB«, t00=0x00d2, t01=0x0156}
0x1496c…14992 Head {h00=0x0022, h01=0x0050, text=» CWR A7,A5 ALL TASK ID MOVED? «, t00=0x00d2, t01=0x017c}
0x14992…149ac Head {h00=0x0016, h01=0x0050, text=» RB(NL) BUI400 NO!«, t00=0x00d3, t01=0x0012}
0x149ac…149ea Head {h00=0x003a, h01=0x0050, text=»* LOAD REGISTER A7 WITH FIRST FREE ENTRY AFTER TIDTAB «, t00=0x00d3, t01=0x002c}
0x149ea…14a2e Head {h00=0x0040, h01=0x0050, text=»* AND ADD NUMBER OF CURRENT TASKS IN CURRENT ENTRY OF SHTAB1«, t00=0x00d3, t01=0x006a}
0x14a2e…14a42 Head {h00=0x0010, h01=0x0050, text=»BUI500 EQU *«, t00=0x00d3, t01=0x00ae}
0x14a42…14a7a Head {h00=0x0034, h01=0x0050, text=» LDR A7,A5 LOAD START ENTRY OF CURRENT TASKS IN «, t00=0x00d3, t01=0x00c2}
0x14a7a…14a8c Head {h00=0x000e, h01=0x0050, text=» TIDTAB «, t00=0x00d3, t01=0x00fa}
0x14a8c…14aac Head {h00=0x001c, h01=0x0050, text=» ADR A7,A2 ADD NUMBER OF«, t00=0x00d3, t01=0x010c}
0x14aac…14ae2 Head {h00=0x0032, h01=0x0050, text=» ADR A7,A2 BYTES IN TIDTAB AFTER CURRENT TASKS«, t00=0x00d3, t01=0x012c}
0x14ae2…14b12 Head {h00=0x002c, h01=0x0050, text=» ADR A7,A4 FIRST FREE ENTRY AFTER TIDTAB«, t00=0x00d3, t01=0x0162}
0x14b12…14b3c (212, 0, 400) Head {h00=0x0026, h01=0x0050, text=» SRL A4,1 (2*(NUMBER OF TASKS))/2 «, t00=0x00d4, t01=0x0004}
0x14b3c…14b70 Head {h00=0x0030, h01=0x0050, text=» ADRS A4,A6 ADD NUMBER OF CURRENT TASKS,FOR «, t00=0x00d4, t01=0x002e}
0x14b70…14b90 Head {h00=0x001c, h01=0x0050, text=» CURRENT TCL IN SHTAB1«, t00=0x00d4, t01=0x0062}
0x14b90…14bba Head {h00=0x0026, h01=0x0050, text=»* PUT CURRENT TASK ID:S IN TIDTAB «, t00=0x00d4, t01=0x0082}
0x14bba…14bf0 Head {h00=0x0032, h01=0x0050, text=» LD A1,SHADST+STKEND GET SHTAB1 START ADDRESS «, t00=0x00d4, t01=0x00ac}
0x14bf0…14c14 Head {h00=0x0020, h01=0x0050, text=» ADR A1,A8 ADD SHTAB1 LENGTH«, t00=0x00d4, t01=0x00e2}
0x14c14…14c38 Head {h00=0x0020, h01=0x0050, text=» ADR A1,A8 ADD SHTAB2 LENGTH«, t00=0x00d4, t01=0x0106}
0x14c38…14c60 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A8 TIDTAB START ADDRESS «, t00=0x00d4, t01=0x012a}
0x14c60…14c86 Head {h00=0x0022, h01=0x0050, text=» ADK A1,2 FIRST TID IN TIDTAB «, t00=0x00d4, t01=0x0152}
0x14c86…14c9a Head {h00=0x0010, h01=0x0050, text=»BUI600 EQU *«, t00=0x00d4, t01=0x0178}
0x14c9a…14cc6 Head {h00=0x0028, h01=0x0050, text=» LDR A6,A1 GET TIDTAB START ADDRESS «, t00=0x00d4, t01=0x018c}
0x14cc6…14cda Head {h00=0x0010, h01=0x0050, text=»BUI700 EQU *«, t00=0x00d5, t01=0x0028}
0x14cda…14d0e Head {h00=0x0030, h01=0x0050, text=» CWR A6,A5 ALL TID:S IN UPPER PART IN TIDTAB«, t00=0x00d5, t01=0x003c}
0x14d0e…14d22 Head {h00=0x0010, h01=0x0050, text=» SHECKED? «, t00=0x00d5, t01=0x0070}
0x14d22…14d3c Head {h00=0x0016, h01=0x0050, text=» RF(NE) BUI800 NO!«, t00=0x00d5, t01=0x0084}
0x14d3c…14d64 Head {h00=0x0024, h01=0x0050, text=» ADR A6,A4 FIRST TIDTAB ENTRY OF«, t00=0x00d5, t01=0x009e}
0x14d64…14d82 Head {h00=0x001a, h01=0x0050, text=» ADR A6,A4 LOWER PART «, t00=0x00d5, t01=0x00c6}
0x14d82…14d96 Head {h00=0x0010, h01=0x0050, text=»BUI800 EQU *«, t00=0x00d5, t01=0x00e4}
0x14d96…14dca Head {h00=0x0030, h01=0x0050, text=» CWR A6,A7 ALL TID:S OF LOWER PART IN TIDTAB«, t00=0x00d5, t01=0x00f8}
0x14dca…14dde Head {h00=0x0010, h01=0x0050, text=» SHECKED? «, t00=0x00d5, t01=0x012c}
0x14dde…14df8 Head {h00=0x0016, h01=0x0050, text=» RF(E) BUI950 YES!«, t00=0x00d5, t01=0x0140}
0x14df8…14e26 Head {h00=0x002a, h01=0x0050, text=» CWR* A3,A6 TID ALREADY CONFIGURATED? «, t00=0x00d5, t01=0x015a}
0x14e26…14e40 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BUI900 NO!«, t00=0x00d5, t01=0x0188}
0x14e40…14e68 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,LMP4 YES! FORMAT ERROR «, t00=0x00d6, t01=0x0012}
0x14e68…14e7c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00d6, t01=0x003a}
0x14e7c…14e90 Head {h00=0x0010, h01=0x0050, text=»BUI900 EQU *«, t00=0x00d6, t01=0x004e}
0x14e90…14eb6 Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 NEXT ENTRY IN TIDTAB«, t00=0x00d6, t01=0x0062}
0x14eb6…14ec8 Head {h00=0x000e, h01=0x0050, text=» RB BUI700«, t00=0x00d6, t01=0x0088}
0x14ec8…14edc Head {h00=0x0010, h01=0x0050, text=»BUI950 EQU *«, t00=0x00d6, t01=0x009a}
0x14edc…14f00 Head {h00=0x0020, h01=0x0050, text=» STR A3,A5 PUT TID IN TIDTAB«, t00=0x00d6, t01=0x00ae}
0x14f00…14f30 Head {h00=0x002c, h01=0x0050, text=» ADK A5,2 ADJUST UPPER PART END ADDRESS «, t00=0x00d6, t01=0x00d2}
0x14f30…14f54 Head {h00=0x0020, h01=0x0050, text=» ADK A3,1 GENERATE NEXT TID «, t00=0x00d6, t01=0x0102}
0x14f54…14f88 Head {h00=0x0030, h01=0x0050, text=» SUK A4,1 HAVE ALL CURRENT TID:S BEEN CONF. «, t00=0x00d6, t01=0x0126}
0x14f88…14fa2 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BUI600 NO!«, t00=0x00d6, t01=0x015a}
0x14fa2…14fb2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d6, t01=0x0174}
0x14fb2…14fc0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d6, t01=0x0184}
0x14fc0…14ff2 (215, 0, 400) Head {h00=0x002e, h01=0x0050, text=»* L I M T G C * «, t00=0x00d7, t01=0x0004}
0x14ff2…15024 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x00d7, t01=0x0036}
0x15024…15056 Head {h00=0x002e, h01=0x0050, text=»* FIND START-ADR, END-ADR, LENGTH OF * «, t00=0x00d7, t01=0x0068}
0x15056…15088 Head {h00=0x002e, h01=0x0050, text=»* ICB-PLTGC BLOCK * «, t00=0x00d7, t01=0x009a}
0x15088…150ba Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x00d7, t01=0x00cc}
0x150ba…150ec Head {h00=0x002e, h01=0x0050, text=»* INPUT:A10=POINTER TO CURRENT APPL. * «, t00=0x00d7, t01=0x00fe}
0x150ec…1511e Head {h00=0x002e, h01=0x0050, text=»* SAVE AREA IN SCRATCH-PAD * «, t00=0x00d7, t01=0x0130}
0x1511e…15150 Head {h00=0x002e, h01=0x0050, text=»* SHADOW=START OF SHADOW TABLES * «, t00=0x00d7, t01=0x0162}
0x15150…15182 (216, 0, 400) Head {h00=0x002e, h01=0x0050, text=»* FOR CURRENT APPLICATION * «, t00=0x00d8, t01=0x0004}
0x15182…151b4 Head {h00=0x002e, h01=0x0050, text=»* OUTPUT:PLTGCS= START ADR OF ICB-PLTGC * «, t00=0x00d8, t01=0x0036}
0x151b4…151e6 Head {h00=0x002e, h01=0x0050, text=»* PLTGCE= END ADR OF ICB-PLTGC * «, t00=0x00d8, t01=0x0068}
0x151e6…15218 Head {h00=0x002e, h01=0x0050, text=»* PLTGCL= LENGTH OF ICB-PLTGC * «, t00=0x00d8, t01=0x009a}
0x15218…1524a Head {h00=0x002e, h01=0x0050, text=»* WORKREGS: A1-A7,A9,A11 * «, t00=0x00d8, t01=0x00cc}
0x1524a…1527c Head {h00=0x002e, h01=0x0050, text=»* WORKAREA:USES MONITOR BLOCKS AS STACK * «, t00=0x00d8, t01=0x00fe}
0x1527c…152ae Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x00d8, t01=0x0130}
0x152ae…152e0 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x00d8, t01=0x0162}
0x152e0…152e8 (217, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x00d9, t01=0x0004}
0x152e8…152fc Head {h00=0x0010, h01=0x0050, text=»LIMTGC EQU *«, t00=0x00d9, t01=0x000c}
0x152fc…15324 Head {h00=0x0024, h01=0x0050, text=» LD A1,SHADOW,A10 SHTAB1 ADDRESS«, t00=0x00d9, t01=0x0020}
0x15324…15352 Head {h00=0x002a, h01=0x0050, text=» LD A7,FREQUE GET MONITOR BLOCK ADDR. «, t00=0x00d9, t01=0x0048}
0x15352…15374 Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A1 SHTAB1 LENGTH «, t00=0x00d9, t01=0x0076}
0x15374…15396 Head {h00=0x001e, h01=0x0050, text=» ADR A1,A2 SHTAB2 ADDRESS «, t00=0x00d9, t01=0x0098}
0x15396…153aa Head {h00=0x0010, h01=0x0050, text=»LIMTG0 EQU *«, t00=0x00d9, t01=0x00ba}
0x153aa…153bc Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00d9, t01=0x00ce}
0x153bc…153da Head {h00=0x001a, h01=0x0050, text=» RF(Z) LIMTG5 ALL DONE«, t00=0x00d9, t01=0x00e0}
0x153da…153f8 Head {h00=0x001a, h01=0x0050, text=» ADK A1,2 STEP SHTAB2 «, t00=0x00d9, t01=0x00fe}
0x153f8…1541a Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A1 ADR TO TCLBLK «, t00=0x00d9, t01=0x011c}
0x1541a…15454 Head {h00=0x0036, h01=0x0050, text=» LD A3,ITCTGC,A3 ADR TO ICB-PLTGC OF MAIN PROGRAM «, t00=0x00d9, t01=0x013e}
0x15454…15468 Head {h00=0x0010, h01=0x0050, text=»LIMTG1 EQU *«, t00=0x00d9, t01=0x0178}
0x15468…1548e Head {h00=0x0022, h01=0x0050, text=» LDK A5,0 SET LEVEL TO 0(ZERO)«, t00=0x00d9, t01=0x018c}
0x1548e…154c8 Head {h00=0x0036, h01=0x0050, text=» CALL LIMTG2 UPDATE LIMITS FOR ICB-PLTGC'S RELATED«, t00=0x00da, t01=0x0022}
0x154c8…154e0 Head {h00=0x0014, h01=0x0050, text=» TO THIS CLASS«, t00=0x00da, t01=0x005c}
0x154e0…154fc Head {h00=0x0018, h01=0x0050, text=» RB LIMTG0 NEXT TCL «, t00=0x00da, t01=0x0074}
0x154fc…1550a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00da, t01=0x0090}
0x1550a…15514 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x009e}
0x15514…1553c Head {h00=0x0024, h01=0x0050, text=»* UPDATE LIMITS FOR ICB-PLTGC'S «, t00=0x00da, t01=0x00a8}
0x1553c…15564 Head {h00=0x0024, h01=0x0050, text=»* RELATED TO ONE TERMINAL-CLASS «, t00=0x00da, t01=0x00d0}
0x15564…1556e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x00f8}
0x1556e…15582 Head {h00=0x0010, h01=0x0050, text=»LIMTG2 EQU *«, t00=0x00da, t01=0x0102}
0x15582…155a4 Head {h00=0x001e, h01=0x0050, text=» CALL LIMUPD UPDATE LIMITS«, t00=0x00da, t01=0x0116}
0x155a4…155d4 Head {h00=0x002c, h01=0x0050, text=» LDR* A4,A3 GET FIRST WORD IN ICB-PLTGC «, t00=0x00da, t01=0x0138}
0x155d4…15606 Head {h00=0x002e, h01=0x0050, text=» ADKL A4,/100 INDICATE LIMIT-CONTROL-INIT «, t00=0x00da, t01=0x0168}
0x15606…15628 Head {h00=0x001e, h01=0x0050, text=» STR A4,A3 SET INDICATION «, t00=0x00db, t01=0x000a}
0x15628…1565e Head {h00=0x0032, h01=0x0050, text=» LD A4,TGCCAL,A3 GET NBR OF CALL-TABLE ENTRIES«, t00=0x00db, t01=0x002c}
0x1565e…15672 Head {h00=0x0010, h01=0x0050, text=»LIMTG3 EQU *«, t00=0x00db, t01=0x0062}
0x15672…1569a Head {h00=0x0024, h01=0x0050, text=» RF(Z) LIMTG4 NO ENTRIES (LEFT) «, t00=0x00db, t01=0x0076}
0x1569a…156ca Head {h00=0x002c, h01=0x0050, text=» ST A4,2,A7 SAVE NBR.OF ENTRIES ON STACK«, t00=0x00db, t01=0x009e}
0x156ca…156f8 Head {h00=0x002a, h01=0x0050, text=» ST A3,4,A7 SAVE ENTRY ADDRES ON STACK«, t00=0x00db, t01=0x00ce}
0x156f8…15724 Head {h00=0x0028, h01=0x0050, text=» LDR* A7,A7 ADJUST STACK-POINTER =2 «, t00=0x00db, t01=0x00fc}
0x15724…15752 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) LIMT35 MORE BLOCKS AVILABLE =2«, t00=0x00db, t01=0x0128}
0x15752…1577e Head {h00=0x0028, h01=0x0050, text=» LDKL A1,NOBLK NO BLOCKS AVILABLE =2«, t00=0x00db, t01=0x0156}
0x1577e…15796 Head {h00=0x0014, h01=0x0050, text=» CALL ERROR =2 «, t00=0x00db, t01=0x0182}
0x15796…157ae Head {h00=0x0014, h01=0x0050, text=»LIMT35 EQU * =2«, t00=0x00dc, t01=0x000a}
0x157ae…157cc Head {h00=0x001a, h01=0x0050, text=» ADK A5,1 ADJUST LEVEL«, t00=0x00dc, t01=0x0022}
0x157cc…157ee Head {h00=0x001e, h01=0x0050, text=» SLL A4,1 *2 TABLE LENGTH «, t00=0x00dc, t01=0x0040}
0x157ee…1580a Head {h00=0x0018, h01=0x0050, text=» ADR A4,A3 ADD BASE «, t00=0x00dc, t01=0x0062}
0x1580a…1583c Head {h00=0x002e, h01=0x0050, text=» ADK A4,TGCCAL ADD CALL-TABLE DISPLACEMENT«, t00=0x00dc, t01=0x007e}
0x1583c…1586c Head {h00=0x002c, h01=0x0050, text=» LDR* A3,A4 GET ICB-PLTGC ADDRESS CALLED«, t00=0x00dc, t01=0x00b0}
0x1586c…1589c Head {h00=0x002c, h01=0x0050, text=» LDR* A4,A3 GET THAT FIRST WORD CONTENT «, t00=0x00dc, t01=0x00e0}
0x1589c…158c4 Head {h00=0x0024, h01=0x0050, text=» SRL A4,8 ONLY FIRST BYTE VALID «, t00=0x00dc, t01=0x0110}
0x158c4…158e4 Head {h00=0x001c, h01=0x0050, text=» SUK A4,/60 FIRST TIME ?«, t00=0x00dc, t01=0x0138}
0x158e4…158fe Head {h00=0x0016, h01=0x0050, text=» RB(Z) LIMTG2 YES «, t00=0x00dc, t01=0x0158}
0x158fe…1592a Head {h00=0x0028, h01=0x0050, text=» LD A4,-4,A7 GET NBR OF ENTRIES LEFT«, t00=0x00dc, t01=0x0172}
0x1592a…1593e Head {h00=0x0010, h01=0x0050, text=»LIMTG4 EQU *«, t00=0x00dd, t01=0x000e}
0x1593e…1596a Head {h00=0x0028, h01=0x0050, text=» SUK A4,1 COUNT NBR OF ENTRIES LEFT «, t00=0x00dd, t01=0x0022}
0x1596a…1598c Head {h00=0x001e, h01=0x0050, text=» RB(P) LIMTG3 ENTRIES LEFT«, t00=0x00dd, t01=0x004e}
0x1598c…159aa Head {h00=0x001a, h01=0x0050, text=» SUK A5,1 ADJUST LEVEL«, t00=0x00dd, t01=0x0070}
0x159aa…159da Head {h00=0x002c, h01=0x0050, text=» RF(N) LIMTGX END OF THIS TERMINAL CLASS«, t00=0x00dd, t01=0x008e}
0x159da…15a00 Head {h00=0x0022, h01=0x0050, text=» SUK A7,6 ADJUST STACK-POINTER«, t00=0x00dd, t01=0x00be}
0x15a00…15a28 Head {h00=0x0024, h01=0x0050, text=» LD A4,2,A7 NBR.OF ENTRIES LEFT «, t00=0x00dd, t01=0x00e4}
0x15a28…15a4a Head {h00=0x001e, h01=0x0050, text=» LD A3,4,A7 ENTRY ADDRESS «, t00=0x00dd, t01=0x010c}
0x15a4a…15a66 Head {h00=0x0018, h01=0x0050, text=» RB LIMTG4 CONTINUE «, t00=0x00dd, t01=0x012e}
0x15a66…15a7a Head {h00=0x0010, h01=0x0050, text=»LIMTG5 EQU *«, t00=0x00dd, t01=0x014a}
0x15a7a…15aaa Head {h00=0x002c, h01=0x0050, text=» LD A3,PLTGCE,A10 PNTR TO LAST ICB-PLTGC«, t00=0x00dd, t01=0x015e}
0x15aaa…15ad6 Head {h00=0x0028, h01=0x0050, text=» LD A4,8,A3 NBR OF CALL-TAB ENTRIES «, t00=0x00dd, t01=0x018e}
0x15ad6…15af4 Head {h00=0x001a, h01=0x0050, text=» SLL A4,1 NBR OF BYTES«, t00=0x00de, t01=0x002a}
0x15af4…15b10 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A3 ADD BASE «, t00=0x00de, t01=0x0048}
0x15b10…15b32 Head {h00=0x001e, h01=0x0050, text=» ADK A4,10 ADD TABLE DISPL«, t00=0x00de, t01=0x0064}
0x15b32…15b58 Head {h00=0x0022, h01=0x0050, text=» ST A4,PLTGCE,A10 SAVE END ADR«, t00=0x00de, t01=0x0086}
0x15b58…15b84 Head {h00=0x0028, h01=0x0050, text=» SU A4,PLTGCS,A10 -(MINUS) START ADR«, t00=0x00de, t01=0x00ac}
0x15b84…15baa Head {h00=0x0022, h01=0x0050, text=» ST A4,PLTGCL,A10 SAVE LENGTH «, t00=0x00de, t01=0x00d8}
0x15baa…15bbe Head {h00=0x0010, h01=0x0050, text=»LIMTGX EQU *«, t00=0x00de, t01=0x00fe}
0x15bbe…15bce Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00de, t01=0x0112}
0x15bce…15bdc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00de, t01=0x0122}
0x15bdc…15be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x0130}
0x15be6…15c08 Head {h00=0x001e, h01=0x0050, text=»* UPDATE ICB-PLTGC LIMITS «, t00=0x00de, t01=0x013a}
0x15c08…15c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x015c}
0x15c12…15c34 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A3=ICB-PLTGC ADR «, t00=0x00de, t01=0x0166}
0x15c34…15c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x0188}
0x15c3e…15c52 (223, 0, 400) Head {h00=0x0010, h01=0x0050, text=»LIMUPD EQU *«, t00=0x00df, t01=0x0004}
0x15c52…15c74 Head {h00=0x001e, h01=0x0050, text=» LDR A11,A3 ICB-PLTGC ADR «, t00=0x00df, t01=0x0018}
0x15c74…15ca4 Head {h00=0x002c, h01=0x0050, text=» LD A9,PLTGCS,A10 GET CURRENT START ADR «, t00=0x00df, t01=0x003a}
0x15ca4…15cc8 Head {h00=0x0020, h01=0x0050, text=» CALL CMPADR CHECK ADDRESSES«, t00=0x00df, t01=0x006a}
0x15cc8…15cf2 Head {h00=0x0026, h01=0x0050, text=» RF(NL) LIMUP1 OLD START ADR VALID«, t00=0x00df, t01=0x008e}
0x15cf2…15d1e Head {h00=0x0028, h01=0x0050, text=» ST A3,PLTGCS,A10 SET NEW START ADR «, t00=0x00df, t01=0x00b8}
0x15d1e…15d32 Head {h00=0x0010, h01=0x0050, text=»LIMUP1 EQU *«, t00=0x00df, t01=0x00e4}
0x15d32…15d60 Head {h00=0x002a, h01=0x0050, text=» LD A9,PLTGCE,A10 GET CURRENT END ADR «, t00=0x00df, t01=0x00f8}
0x15d60…15d84 Head {h00=0x0020, h01=0x0050, text=» CALL CMPADR CHECK ADDRESSES«, t00=0x00df, t01=0x0126}
0x15d84…15dac Head {h00=0x0024, h01=0x0050, text=» RF(L) LIMUP2 OLD END ADR VALID «, t00=0x00df, t01=0x014a}
0x15dac…15dd6 Head {h00=0x0026, h01=0x0050, text=» ST A3,PLTGCE,A10 SET NEW END ADR «, t00=0x00df, t01=0x0172}
0x15dd6…15dea Head {h00=0x0010, h01=0x0050, text=»LIMUP2 EQU *«, t00=0x00e0, t01=0x000c}
0x15dea…15dfa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00e0, t01=0x0020}
0x15dfa…15e08 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e0, t01=0x0030}
0x15e08…15e3e Head {h00=0x0032, h01=0x0050, text=»* L E N C O U *«, t00=0x00e0, t01=0x003e}
0x15e3e…15e74 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x00e0, t01=0x0074}
0x15e74…15eaa Head {h00=0x0032, h01=0x0050, text=»* COUNT LENGTH OF SHTAB1,AND COUNT NUMBER OF *«, t00=0x00e0, t01=0x00aa}
0x15eaa…15ee0 Head {h00=0x0032, h01=0x0050, text=»* TASKS *«, t00=0x00e0, t01=0x00e0}
0x15ee0…15f16 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x00e0, t01=0x0116}
0x15f16…15f4c Head {h00=0x0032, h01=0x0050, text=»* INPUT : A11=CONFIGURATION START *«, t00=0x00e0, t01=0x014c}
0x15f4c…15f82 Head {h00=0x0032, h01=0x0050, text=»* A10=POINTER TO CURRENT APLTAB BLK. *«, t00=0x00e0, t01=0x0182}
0x15f82…15fb8 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x00e1, t01=0x0028}
0x15fb8…15fee Head {h00=0x0032, h01=0x0050, text=»* OUTPUT: A6=TOTAL NUMBER OF TASKS *«, t00=0x00e1, t01=0x005e}
0x15fee…16024 Head {h00=0x0032, h01=0x0050, text=»* A7=SHTAB1 LENGTH IN BYTES *«, t00=0x00e1, t01=0x0094}
0x16024…1605a Head {h00=0x0032, h01=0x0050, text=»* A10=POINTER TO CURRENT APLTAB BLK. *«, t00=0x00e1, t01=0x00ca}
0x1605a…16090 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x00e1, t01=0x0100}
0x16090…160c6 Head {h00=0x0032, h01=0x0050, text=»* WORK REGISTERS: A1,A3-A5 *«, t00=0x00e1, t01=0x0136}
0x160c6…160fc Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x00e1, t01=0x016c}
0x160fc…16132 Head {h00=0x0032, h01=0x0050, text=»* WORK TABLE: TEMPORARY TABLE WITH TCL *«, t00=0x00e2, t01=0x0012}
0x16132…16168 Head {h00=0x0032, h01=0x0050, text=»* NAMES AFTER START OF FREE *«, t00=0x00e2, t01=0x0048}
0x16168…1619e Head {h00=0x0032, h01=0x0050, text=»* AREA *«, t00=0x00e2, t01=0x007e}
0x1619e…161d4 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x00e2, t01=0x00b4}
0x161d4…1620a Head {h00=0x0032, h01=0x0050, text=»* SUBRUTINES: NXTBLK *«, t00=0x00e2, t01=0x00ea}
0x1620a…16240 Head {h00=0x0032, h01=0x0050, text=»* *«, t00=0x00e2, t01=0x0120}
0x16240…16276 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x00e2, t01=0x0156}
0x16276…1628a Head {h00=0x0010, h01=0x0050, text=»LENCOU EQU *«, t00=0x00e2, t01=0x018c}
0x1628a…162b4 Head {h00=0x0026, h01=0x0050, text=» LDK A7,2 TABLE LENGTH-WORD LENGTH«, t00=0x00e3, t01=0x0010}
0x162b4…162d8 Head {h00=0x0020, h01=0x0050, text=» LDK A6,0 TOTAL NBR OF TASKS«, t00=0x00e3, t01=0x003a}
0x162d8…16312 Head {h00=0x0036, h01=0x0050, text=» CM* SHADST+STKEND CLEAR FIRST ENTRY OF TEMPORARY «, t00=0x00e3, t01=0x005e}
0x16312…16322 Head {h00=0x000c, h01=0x0050, text=» TABLE«, t00=0x00e3, t01=0x0098}
0x16322…1635c Head {h00=0x0036, h01=0x0050, text=»* SHECK IF CURRENT TCL NAME ALREADY HAS APEARED IN«, t00=0x00e3, t01=0x00a8}
0x1635c…16394 Head {h00=0x0034, h01=0x0050, text=»* CONFIGURATION FILE , AND IF SO DON'T INCREMENT«, t00=0x00e3, t01=0x00e2}
0x16394…163ce Head {h00=0x0036, h01=0x0050, text=»* SHTAB1 LENGTH AND PUT CURRENT TCL NAME IN TEMPO-«, t00=0x00e3, t01=0x011a}
0x163ce…163e2 Head {h00=0x0010, h01=0x0050, text=»* RARY TABLE«, t00=0x00e3, t01=0x0154}
0x163e2…163f6 Head {h00=0x0010, h01=0x0050, text=»LEN100 EQU *«, t00=0x00e3, t01=0x0168}
0x163f6…16410 Head {h00=0x0016, h01=0x0050, text=» LC A3,TDBMC+4,A11«, t00=0x00e3, t01=0x017c}
0x16410…16422 Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x00e4, t01=0x0008}
0x16422…16456 Head {h00=0x0030, h01=0x0050, text=» LC A3,TDBMC+5,A11 TCL NAME OF CURRENT TASK «, t00=0x00e4, t01=0x001a}
0x16456…16470 Head {h00=0x0016, h01=0x0050, text=» TASK DEF. BLOCK«, t00=0x00e4, t01=0x004e}
0x16470…164a6 Head {h00=0x0032, h01=0x0050, text=» LD A1,SHADST+STKEND ADDRESS TO FIRST ENTRY IN«, t00=0x00e4, t01=0x0068}
0x164a6…164c0 Head {h00=0x0016, h01=0x0050, text=» TEMPORARY TABLE«, t00=0x00e4, t01=0x009e}
0x164c0…164e2 Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A1 FIRST ENTRY=0?«, t00=0x00e4, t01=0x00b8}
0x164e2…164fc Head {h00=0x0016, h01=0x0050, text=» RF(Z) LEN300 YES!«, t00=0x00e4, t01=0x00da}
0x164fc…16510 Head {h00=0x0010, h01=0x0050, text=»LEN200 EQU *«, t00=0x00e4, t01=0x00f4}
0x16510…1653e Head {h00=0x002a, h01=0x0050, text=» CWR A4,A3 TCL NAME IN TEMPORARY TABLE«, t00=0x00e4, t01=0x0108}
0x1653e…16558 Head {h00=0x0016, h01=0x0050, text=» RF(E) LEN400 YES!«, t00=0x00e4, t01=0x0136}
0x16558…16588 Head {h00=0x002c, h01=0x0050, text=» ADK A1,2 NEXT ENTRY IN TEMPORARY TABLE «, t00=0x00e4, t01=0x0150}
0x16588…165a4 Head {h00=0x0018, h01=0x0050, text=» LDR* A4,A1 ENTRY=0?«, t00=0x00e4, t01=0x0180}
0x165a4…165be Head {h00=0x0016, h01=0x0050, text=» RB(NZ) LEN200 NO!«, t00=0x00e5, t01=0x000c}
0x165be…165d2 Head {h00=0x0010, h01=0x0050, text=»LEN300 EQU *«, t00=0x00e5, t01=0x0026}
0x165d2…16604 Head {h00=0x002e, h01=0x0050, text=» ADK A7,2 COUNT NUMBER OF BYTES IN SHTAB1 «, t00=0x00e5, t01=0x003a}
0x16604…1662e Head {h00=0x0026, h01=0x0050, text=» STR A3,A1 PUT CURRENT TCL NAME IN«, t00=0x00e5, t01=0x006c}
0x1662e…16648 Head {h00=0x0016, h01=0x0050, text=» TEMPORARY TABLE«, t00=0x00e5, t01=0x0096}
0x16648…16678 Head {h00=0x002c, h01=0x0050, text=» ADK A1,2 NEXT ENTRY IN TEMPORARY TABLE «, t00=0x00e5, t01=0x00b0}
0x16678…16690 Head {h00=0x0014, h01=0x0050, text=» CMR A1 CLEAR IT«, t00=0x00e5, t01=0x00e0}
0x16690…166cc Head {h00=0x0038, h01=0x0050, text=»* COUNT TOTAL NUMBER OF TASKS AND GET START OF NEXT «, t00=0x00e5, t01=0x00f8}
0x166cc…166e6 Head {h00=0x0016, h01=0x0050, text=»* TASK DEF. BLOCK «, t00=0x00e5, t01=0x0134}
0x166e6…166fa Head {h00=0x0010, h01=0x0050, text=»LEN400 EQU *«, t00=0x00e5, t01=0x014e}
0x166fa…16726 Head {h00=0x0028, h01=0x0050, text=» LC A4,TDBNT+1,A11 NBR OF COPIES /2 «, t00=0x00e5, t01=0x0162}
0x16726…16738 Head {h00=0x000e, h01=0x0050, text=» SRC A4,4 «, t00=0x00e5, t01=0x018e}
0x16738…16762 Head {h00=0x0026, h01=0x0050, text=» LC A4,TDBNT,A11 NBR OF COPIES /1 «, t00=0x00e6, t01=0x0010}
0x16762…16774 Head {h00=0x000e, h01=0x0050, text=» SLC A4,12«, t00=0x00e6, t01=0x003a}
0x16774…167a2 Head {h00=0x002a, h01=0x0050, text=» SRL A4,8 BINARY VALUE (NBR OF COPIES)«, t00=0x00e6, t01=0x004c}
0x167a2…167c2 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 NBR OF COPIES«, t00=0x00e6, t01=0x007a}
0x167c2…167f0 Head {h00=0x002a, h01=0x0050, text=» RF(Z) LEN500 NO COPY , TRY NEXT BLOCK«, t00=0x00e6, t01=0x009a}
0x167f0…1681c Head {h00=0x0028, h01=0x0050, text=» ADR A6,A4 COUNT TOTAL NBR OF TASKS «, t00=0x00e6, t01=0x00c8}
0x1681c…16830 Head {h00=0x0010, h01=0x0050, text=»LEN500 EQU *«, t00=0x00e6, t01=0x00f4}
0x16830…16858 Head {h00=0x0024, h01=0x0050, text=» CALL NXTBLK NEXT CONFIG.-BLOCK «, t00=0x00e6, t01=0x0108}
0x16858…1687e Head {h00=0x0022, h01=0x0050, text=» CCK A2,'TT' TASK DEF. BLOCK? «, t00=0x00e6, t01=0x0130}
0x1687e…168a8 Head {h00=0x0026, h01=0x0050, text=» RB(E) LEN100 NEXT TASK DEF. BLOCK«, t00=0x00e6, t01=0x0156}
0x168a8…168b8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00e6, t01=0x0180}
0x168b8…168c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e6, t01=0x0190}
0x168c6…168ce Head {h00=0x0004, h01=0x0050, t00=0x00e7, t01=0x000e}
0x168ce…16900 Head {h00=0x002e, h01=0x0050, text=»* S Y S L C O *«, t00=0x00e7, t01=0x0016}
0x16900…16932 Head {h00=0x002e, h01=0x0050, text=»* *«, t00=0x00e7, t01=0x0048}
0x16932…16964 Head {h00=0x002e, h01=0x0050, text=»* ENTRY FOR COBOL APPLICATION CONFIG *«, t00=0x00e7, t01=0x007a}
0x16964…16996 Head {h00=0x002e, h01=0x0050, text=»* *«, t00=0x00e7, t01=0x00ac}
0x16996…169c8 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x00e7, t01=0x00de}
0x169c8…169d0 Head {h00=0x0004, h01=0x0050, t00=0x00e7, t01=0x0110}
0x169d0…169dc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00e7, t01=0x0118}
0x169dc…169e8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00e7, t01=0x0124}
0x169e8…169fc Head {h00=0x0010, h01=0x0050, text=»START1 EQU *«, t00=0x00e7, t01=0x0130}
0x169fc…16a10 Head {h00=0x0010, h01=0x0050, text=»SYSLCO EQU *«, t00=0x00e7, t01=0x0144}
0x16a10…16a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0158}
0x16a1a…16a34 Head {h00=0x0016, h01=0x0050, text=»* INIT A15 STACK «, t00=0x00e7, t01=0x0162}
0x16a34…16a3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x017c}
0x16a3e…16a54 Head {h00=0x0012, h01=0x0050, text=» LD A15,SCTSTB«, t00=0x00e7, t01=0x0186}
0x16a54…16a68 Head {h00=0x0010, h01=0x0050, text=» SUKL A15,4 «, t00=0x00e8, t01=0x000c}
0x16a68…16a70 Head {h00=0x0004, h01=0x0050, t00=0x00e8, t01=0x0020}
0x16a70…16a7c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e8, t01=0x0028}
0x16a7c…16a9a Head {h00=0x001a, h01=0x0050, text=» IFT TEST-MMUPAG=1 =3«, t00=0x00e8, t01=0x0034}
0x16a9a…16ac0 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x00e8, t01=0x0052}
0x16ac0…16aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x0078}
0x16aca…16ae8 Head {h00=0x001a, h01=0x0050, text=»* TEST VERSION (DEBUG)«, t00=0x00e8, t01=0x0082}
0x16ae8…16af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00a0}
0x16af2…16afa Head {h00=0x0004, h01=0x0050, t00=0x00e8, t01=0x00aa}
0x16afa…16b20 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTBUG DEBUGGER ADDRESS«, t00=0x00e8, t01=0x00b2}
0x16b20…16b3c Head {h00=0x0018, h01=0x0050, text=» LD A13,M:REL+STKCOM«, t00=0x00e8, t01=0x00d8}
0x16b3c…16b66 Head {h00=0x0026, h01=0x0050, text=» ADKL A13,TEST1 SET RETURN ADDRESS«, t00=0x00e8, t01=0x00f4}
0x16b66…16b92 Head {h00=0x0028, h01=0x0050, text=» ABR(NZ) A2 JUMP IF DEBUG IN SYSTEM «, t00=0x00e8, t01=0x011e}
0x16b92…16b9a Head {h00=0x0004, h01=0x0050, t00=0x00e8, t01=0x014a}
0x16b9a…16bae Head {h00=0x0010, h01=0x0050, text=»TEST1 EQU * «, t00=0x00e8, t01=0x0152}
0x16bae…16bd4 Head {h00=0x0022, h01=0x0050, text=» LDR A8,P GET PROGRAM-POINTER «, t00=0x00e8, t01=0x0166}
0x16bd4…16c02 Head {h00=0x002a, h01=0x0050, text=» LDKL A5,REL+2 GET START OF RELOCATION«, t00=0x00e8, t01=0x018c}
0x16c02…16c14 Head {h00=0x000e, h01=0x0050, text=» ROUTINE«, t00=0x00e9, t01=0x002a}
0x16c14…16c44 Head {h00=0x002c, h01=0x0050, text=» AD A5,M:REL+STKCOM ADD RELOCATION BASE «, t00=0x00e9, t01=0x003c}
0x16c44…16c56 Head {h00=0x000e, h01=0x0050, text=» CFR A8,A5«, t00=0x00e9, t01=0x006c}
0x16c56…16c5e Head {h00=0x0004, h01=0x0050, t00=0x00e9, t01=0x007e}
0x16c5e…16c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0086}
0x16c68…16c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0090}
0x16c72…16c98 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x00e9, t01=0x009a}
0x16c98…16ca0 Head {h00=0x0004, h01=0x0050, t00=0x00e9, t01=0x00c0}
0x16ca0…16cac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e9, t01=0x00c8}
0x16cac…16cc2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x00e9, t01=0x00d4}
0x16cc2…16cca Head {h00=0x0004, h01=0x0050, t00=0x00e9, t01=0x00ea}
0x16cca…16cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x00f2}
0x16cd4…16cfc Head {h00=0x0024, h01=0x0050, text=»* CLEAR SCRATCH-PAD AREA «, t00=0x00e9, t01=0x00fc}
0x16cfc…16d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0124}
0x16d06…16d3a Head {h00=0x0030, h01=0x0050, text=» LDKL A1,STKEND A1=START OF SCRATCH-PAD AREA«, t00=0x00e9, t01=0x012e}
0x16d3a…16d52 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,STKMOV «, t00=0x00e9, t01=0x0162}
0x16d52…16d7e Head {h00=0x0028, h01=0x0050, text=» SUK A2,2 A2=END OF SCRATCH-PAD AREA«, t00=0x00e9, t01=0x017a}
0x16d7e…16d92 Head {h00=0x0010, h01=0x0050, text=»SYA10 EQU * «, t00=0x00ea, t01=0x0016}
0x16d92…16db4 Head {h00=0x001e, h01=0x0050, text=» CMR A1 CLEAR MEMORY WORD «, t00=0x00ea, t01=0x002a}
0x16db4…16dda Head {h00=0x0022, h01=0x0050, text=» CWR A1,A2 ALL WORDS CLEARED? «, t00=0x00ea, t01=0x004c}
0x16dda…16df4 Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA20 YES! «, t00=0x00ea, t01=0x0072}
0x16df4…16e14 Head {h00=0x001c, h01=0x0050, text=» ADK A1,2 NO! NEXT WORD «, t00=0x00ea, t01=0x008c}
0x16e14…16e26 Head {h00=0x000e, h01=0x0050, text=» RB SYA10 «, t00=0x00ea, t01=0x00ac}
0x16e26…16e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x00be}
0x16e30…16e62 Head {h00=0x002e, h01=0x0050, text=»* INITIATE REGISTERS AND VARIABLES «, t00=0x00ea, t01=0x00c8}
0x16e62…16e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x00fa}
0x16e6c…16e80 Head {h00=0x0010, h01=0x0050, text=»SYA20 EQU * «, t00=0x00ea, t01=0x0104}
0x16e80…16eb4 Head {h00=0x0030, h01=0x0050, text=» CM APPLNO+STKCOM CLEAR APPL.NUMBER COUNTER «, t00=0x00ea, t01=0x0118}
0x16eb4…16eea Head {h00=0x0032, h01=0x0050, text=» LDKL A10,STKEND START OF 1:ST APPL. SAVE AREA«, t00=0x00ea, t01=0x014c}
0x16eea…16f04 Head {h00=0x0016, h01=0x0050, text=» IN SCRATCH-PAD «, t00=0x00ea, t01=0x0182}
0x16f04…16f3c Head {h00=0x0034, h01=0x0050, text=» LD A1,SCTSFA START ADR.TO SHTAB'S OF 1:ST APPL.«, t00=0x00eb, t01=0x000c}
0x16f3c…16f78 Head {h00=0x0038, h01=0x0050, text=» ST A1,SHADST+STKEND SAVE START OF 1:ST SHADOW-TABLE«, t00=0x00eb, t01=0x0044}
0x16f78…16f9c Head {h00=0x0020, h01=0x0050, text=» CM PDDIV+STKEND CLEAR FLAG «, t00=0x00eb, t01=0x0080}
0x16f9c…16fa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x00a4}
0x16fa6…16fc6 Head {h00=0x001c, h01=0x0050, text=»* GET APPLICATION«, t00=0x00eb, t01=0x00ae}
0x16fc6…16fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x00ce}
0x16fd0…16fe4 Head {h00=0x0010, h01=0x0050, text=»SYA100 EQU *«, t00=0x00eb, t01=0x00d8}
0x16fe4…1701e Head {h00=0x0036, h01=0x0050, text=» LDKL A1,'CO' LOAD INPUT TO GETAPP,CO=COBOL APPL. «, t00=0x00eb, t01=0x00ec}
0x1701e…1704e Head {h00=0x002c, h01=0x0050, text=» CALL GETAPP FIND APPL AND ITS CONF DATA«, t00=0x00eb, t01=0x0126}
0x1704e…1707c Head {h00=0x002a, h01=0x0050, text=» RF(NZ) SYA105 MORE APPL OF THIS TYPE «, t00=0x00eb, t01=0x0156}
0x1707c…170b4 Head {h00=0x0034, h01=0x0050, text=» LD A2,APPLNO+STKCOM ANY COBOL APPL. TO CONFIG.?«, t00=0x00eb, t01=0x0184}
0x170b4…170d0 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) SYA102 YES! «, t00=0x00ec, t01=0x002c}
0x170d0…170fa Head {h00=0x0026, h01=0x0050, text=» LDKL A1,LCOEND SYSLCO START ADDR.«, t00=0x00ec, t01=0x0048}
0x170fa…1711e Head {h00=0x0020, h01=0x0050, text=» AD A1,M:REL+STKCOM RELOCATE«, t00=0x00ec, t01=0x0072}
0x1711e…1713a Head {h00=0x0018, h01=0x0050, text=» ABR A1 LEAVE SYSLCO«, t00=0x00ec, t01=0x0096}
0x1713a…1714e Head {h00=0x0010, h01=0x0050, text=»SYA102 EQU *«, t00=0x00ec, t01=0x00b2}
0x1714e…17180 Head {h00=0x002e, h01=0x0050, text=» LDKL A2,SYA178 NO MORE APPL OF THIS TYPE «, t00=0x00ec, t01=0x00c6}
0x17180…1719c Head {h00=0x0018, h01=0x0050, text=» AD A2,M:REL+STKCOM «, t00=0x00ec, t01=0x00f8}
0x1719c…171ac Head {h00=0x000c, h01=0x0050, text=» ABR A2 «, t00=0x00ec, t01=0x0114}
0x171ac…171c0 Head {h00=0x0010, h01=0x0050, text=»SYA105 EQU *«, t00=0x00ec, t01=0x0124}
0x171c0…171fc Head {h00=0x0038, h01=0x0050, text=» ST A11,ACOSTA+STKEND SAVE CONF.START FOR THIS APPL «, t00=0x00ec, t01=0x0138}
0x171fc…17230 Head {h00=0x0030, h01=0x0050, text=» ST A1,APCTAB,A10 SAVE APLTAB BLOCK ADDRESS «, t00=0x00ec, t01=0x0174}
0x17230…1725c Head {h00=0x0028, h01=0x0050, text=» LD A2,APLLAC,A1 GET SEGTAB ADDRESS «, t00=0x00ed, t01=0x0018}
0x1725c…1727a Head {h00=0x001a, h01=0x0050, text=» ST A2,SEGTAD,A10 SAVE«, t00=0x00ed, t01=0x0044}
0x1727a…17288 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ed, t01=0x0062}
0x17288…17294 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00ed, t01=0x0070}
0x17294…172c4 Head {h00=0x002c, h01=0x0050, text=»* READ CONFIG FILE AND BUILD SHADOWTABLE«, t00=0x00ed, t01=0x007c}
0x172c4…172d0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00ed, t01=0x00ac}
0x172d0…172f4 Head {h00=0x0020, h01=0x0050, text=» LD* A3,APLLAC,A1 APPTAB ADR«, t00=0x00ed, t01=0x00b8}
0x172f4…1732c Head {h00=0x0034, h01=0x0050, text=» LD A2,I:RSTE,A3 GET INTERPRETER RESTART ADDRESS«, t00=0x00ed, t01=0x00dc}
0x1732c…17358 Head {h00=0x0028, h01=0x0050, text=» ST A2,APLIOE,A1 STORE IT IN APLTAB «, t00=0x00ed, t01=0x0114}
0x17358…17376 Head {h00=0x001a, h01=0x0050, text=» LDR* A2,A3 TCLTAB ADR«, t00=0x00ed, t01=0x0140}
0x17376…17398 Head {h00=0x001e, h01=0x0050, text=» LDR* A12,A2 NBR OF TCL'S «, t00=0x00ed, t01=0x015e}
0x17398…173aa Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x00ed, t01=0x0180}
0x173aa…173d0 (238, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ADKL A4,4 ADR TO TCLBLK PNTR «, t00=0x00ee, t01=0x0004}
0x173d0…173f2 Head {h00=0x001e, h01=0x0050, text=» ST A4,TCLPNT+STKEND SAVE «, t00=0x00ee, t01=0x002a}
0x173f2…17416 Head {h00=0x0020, h01=0x0050, text=» LC A2,TDBBT,A11 BLOCK TYPE «, t00=0x00ee, t01=0x004c}
0x17416…17440 Head {h00=0x0026, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK«, t00=0x00ee, t01=0x0070}
0x17440…1745a Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYA120 NO «, t00=0x00ee, t01=0x009a}
0x1745a…1746e Head {h00=0x0010, h01=0x0050, text=» CALL LENCOU«, t00=0x00ee, t01=0x00b4}
0x1746e…17492 Head {h00=0x0020, h01=0x0050, text=» LDR A5,A7 SHTAB1 LENGTH * 1«, t00=0x00ee, t01=0x00c8}
0x17492…174a8 Head {h00=0x0012, h01=0x0050, text=» ADR A5,A7 * 2«, t00=0x00ee, t01=0x00ec}
0x174a8…174d6 Head {h00=0x002a, h01=0x0050, text=» ADR A5,A7 * 3 SHTAB1-3 TOTAL LENGTH «, t00=0x00ee, t01=0x0102}
0x174d6…17502 Head {h00=0x0028, h01=0x0050, text=» ST A5,SHTLEN+STKCOM SHTAB1-3 LENGTH«, t00=0x00ee, t01=0x0130}
0x17502…17514 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x00ee, t01=0x015c}
0x17514…17540 Head {h00=0x0028, h01=0x0050, text=» RF(Z) SYA120 NOTHING TO CONFIGURATE«, t00=0x00ee, t01=0x016e}
0x17540…1757e Head {h00=0x003a, h01=0x0050, text=» ST A6,NOCOPS+STKEND SAVE NBR OF RUNNING TASKS/RUNTIME«, t00=0x00ef, t01=0x000a}
0x1757e…17588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0048}
0x17588…175b6 Head {h00=0x002a, h01=0x0050, text=» LD A11,SHADST+STKEND START OF SHTAB1 «, t00=0x00ef, t01=0x0052}
0x175b6…175ca Head {h00=0x0010, h01=0x0050, text=» ADR A11,A5 «, t00=0x00ef, t01=0x0080}
0x175ca…175de Head {h00=0x0010, h01=0x0050, text=» ADR A11,A6 «, t00=0x00ef, t01=0x0094}
0x175de…175f2 Head {h00=0x0010, h01=0x0050, text=» ADR A11,A6 «, t00=0x00ef, t01=0x00a8}
0x175f2…1761c Head {h00=0x0026, h01=0x0050, text=» ADKL A11,2 NEW START OF FREE AREA«, t00=0x00ef, t01=0x00bc}
0x1761c…17634 Head {h00=0x0014, h01=0x0050, text=» LDKL A9,LCOSTA «, t00=0x00ef, t01=0x00e6}
0x17634…1765c Head {h00=0x0024, h01=0x0050, text=» AD A9,M:REL+STKCOM SYSLCO START«, t00=0x00ef, t01=0x00fe}
0x1765c…17676 Head {h00=0x0016, h01=0x0050, text=»* CHECK ADDRESSES «, t00=0x00ef, t01=0x0126}
0x17676…1768a Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x00ef, t01=0x0140}
0x1768a…176a4 Head {h00=0x0016, h01=0x0050, text=» RF(L) SYA115 OK !«, t00=0x00ef, t01=0x0154}
0x176a4…176ca Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x00ef, t01=0x016e}
0x176ca…176de (240, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00f0, t01=0x0004}
0x176de…176f2 Head {h00=0x0010, h01=0x0050, text=»SYA115 EQU *«, t00=0x00f0, t01=0x0018}
0x176f2…17704 Head {h00=0x000e, h01=0x0050, text=» SUR A8,A8«, t00=0x00f0, t01=0x002c}
0x17704…17716 Head {h00=0x000e, h01=0x0050, text=»ZERO EQU *«, t00=0x00f0, t01=0x003e}
0x17716…1772e Head {h00=0x0014, h01=0x0050, text=» SUKL A11,2 NEXT«, t00=0x00f0, t01=0x0050}
0x1772e…1774c Head {h00=0x001a, h01=0x0050, text=» STR A8,A11 CLEAR WORD«, t00=0x00f0, t01=0x0068}
0x1774c…17774 Head {h00=0x0024, h01=0x0050, text=» CW A11,SHADST+STKEND ALL DONE ?«, t00=0x00f0, t01=0x0086}
0x17774…1778c Head {h00=0x0014, h01=0x0050, text=» RB(NE) ZERO NO «, t00=0x00f0, t01=0x00ae}
0x1778c…177cc Head {h00=0x003c, h01=0x0050, text=» ST* A7,SHADST+STKEND STORE LENGTH IN TABLE LENGTH WORD «, t00=0x00f0, t01=0x00c6}
0x177cc…177ec Head {h00=0x001c, h01=0x0050, text=» LDR A8,A7 SHTAB1 LENGTH«, t00=0x00f0, t01=0x0106}
0x177ec…17816 Head {h00=0x0026, h01=0x0050, text=» LD A11,ACOSTA+STKEND CONFIG START«, t00=0x00f0, t01=0x0126}
0x17816…17848 Head {h00=0x002e, h01=0x0050, text=» LC A3,TDBBT,A11 GET BLOCK TYPE FROM CONF «, t00=0x00f0, t01=0x0150}
0x17848…17874 Head {h00=0x0028, h01=0x0050, text=» CCK A3,'TT' TASK DEFINITION BLOCK ?«, t00=0x00f0, t01=0x0182}
0x17874…1788e Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA125 YES «, t00=0x00f1, t01=0x001e}
0x1788e…178a2 Head {h00=0x0010, h01=0x0050, text=»SYA120 EQU *«, t00=0x00f1, t01=0x0038}
0x178a2…178ba Head {h00=0x0014, h01=0x0050, text=» LDK A1,LMP4 NO «, t00=0x00f1, t01=0x004c}
0x178ba…178ce Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00f1, t01=0x0064}
0x178ce…178e2 Head {h00=0x0010, h01=0x0050, text=»SYA125 EQU *«, t00=0x00f1, t01=0x0078}
0x178e2…17916 Head {h00=0x0030, h01=0x0050, text=» LD A2,TCLPNT+STKEND ADDR TO TCLBLK POINTER «, t00=0x00f1, t01=0x008c}
0x17916…17938 Head {h00=0x001e, h01=0x0050, text=» LC A3,TDBMC+4,A11 TCL-ID «, t00=0x00f1, t01=0x00c0}
0x17938…1794a Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x00f1, t01=0x00e2}
0x1794a…1796c Head {h00=0x001e, h01=0x0050, text=» LC A3,TDBMC+5,A11 TCL-ID «, t00=0x00f1, t01=0x00f4}
0x1796c…1798c Head {h00=0x001c, h01=0x0050, text=» LDR A7,A12 NBR OF TCL'S«, t00=0x00f1, t01=0x0116}
0x1798c…17996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x0136}
0x17996…179d2 Head {h00=0x0038, h01=0x0050, text=»* CHECK IF TCL-ID FROM CONF IS IN APPLICATON «, t00=0x00f1, t01=0x0140}
0x179d2…179dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x017c}
0x179dc…179f0 Head {h00=0x0010, h01=0x0050, text=»SYA130 EQU *«, t00=0x00f1, t01=0x0186}
0x179f0…17a14 Head {h00=0x0020, h01=0x0050, text=» SUK A7,1 COUNT NBR OF TCL'S«, t00=0x00f2, t01=0x000a}
0x17a14…17a3c Head {h00=0x0024, h01=0x0050, text=» RF(NN) SYA135 N=END OF TCLBLK'S«, t00=0x00f2, t01=0x002e}
0x17a3c…17a68 Head {h00=0x0028, h01=0x0050, text=» LDK A1,LMP5 TID IN CONF NOT IN APPL«, t00=0x00f2, t01=0x0056}
0x17a68…17a7c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00f2, t01=0x0082}
0x17a7c…17a90 Head {h00=0x0010, h01=0x0050, text=»SYA135 EQU *«, t00=0x00f2, t01=0x0096}
0x17a90…17ab4 Head {h00=0x0020, h01=0x0050, text=» CW A3,-2,A2 TCL-ID FOUND ? «, t00=0x00f2, t01=0x00aa}
0x17ab4…17ace Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA140 YES «, t00=0x00f2, t01=0x00ce}
0x17ace…17af4 Head {h00=0x0022, h01=0x0050, text=» ADK A2,4 POINT AT NEXT TCLBLK«, t00=0x00f2, t01=0x00e8}
0x17af4…17b1a Head {h00=0x0022, h01=0x0050, text=» RB SYA130 TRY IN NEXT TCLBLK «, t00=0x00f2, t01=0x010e}
0x17b1a…17b2e Head {h00=0x0010, h01=0x0050, text=»SYA140 EQU *«, t00=0x00f2, t01=0x0134}
0x17b2e…17b4a Head {h00=0x0018, h01=0x0050, text=» LD A6,SHADST+STKEND«, t00=0x00f2, t01=0x0148}
0x17b4a…17b6c Head {h00=0x001e, h01=0x0050, text=» ADR A6,A8 START OF SHTAB2«, t00=0x00f2, t01=0x0164}
0x17b6c…17b8e Head {h00=0x001e, h01=0x0050, text=» ADR A6,A8 START OF SHTAB3«, t00=0x00f2, t01=0x0186}
0x17b8e…17ba2 Head {h00=0x0010, h01=0x0050, text=»SYA145 EQU *«, t00=0x00f3, t01=0x0018}
0x17ba2…17bc0 Head {h00=0x001a, h01=0x0050, text=» SUK A6,2 STEP SHTAB2 «, t00=0x00f3, t01=0x002c}
0x17bc0…17bdc Head {h00=0x0018, h01=0x0050, text=» LD A3,SHADST+STKEND«, t00=0x00f3, t01=0x004a}
0x17bdc…17bee Head {h00=0x000e, h01=0x0050, text=» ADR A3,A8«, t00=0x00f3, t01=0x0066}
0x17bee…17c10 Head {h00=0x001e, h01=0x0050, text=» CWR A6,A3 END OF SHTAB2 ?«, t00=0x00f3, t01=0x0078}
0x17c10…17c2a Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA150 YES «, t00=0x00f3, t01=0x009a}
0x17c2a…17c50 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 ITCT ADR IN SHTAB2«, t00=0x00f3, t01=0x00b4}
0x17c50…17c72 Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A2 GET TCLBLK-ADR«, t00=0x00f3, t01=0x00da}
0x17c72…17c9c Head {h00=0x0026, h01=0x0050, text=» CW A1,TCLTCT,A3 FOUND ITCT ADR ? «, t00=0x00f3, t01=0x00fc}
0x17c9c…17cb6 Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA145 NO «, t00=0x00f3, t01=0x0126}
0x17cb6…17ccc Head {h00=0x0012, h01=0x0050, text=» RF SYA155 YES«, t00=0x00f3, t01=0x0140}
0x17ccc…17ce0 Head {h00=0x0010, h01=0x0050, text=»SYA150 EQU *«, t00=0x00f3, t01=0x0156}
0x17ce0…17d06 Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 NEXT ENTRY IN SHTAB2«, t00=0x00f3, t01=0x016a}
0x17d06…17d1a Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A6 «, t00=0x00f3, t01=0x0190}
0x17d1a…17d40 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) SYA150 ENTRY NOT FREE «, t00=0x00f4, t01=0x0014}
0x17d40…17d62 Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A2 GET TCLBLK-ADR«, t00=0x00f4, t01=0x003a}
0x17d62…17d8e Head {h00=0x0028, h01=0x0050, text=» LD A1,TCLTCT,A3 ITCT ADR IN TCLBLK «, t00=0x00f4, t01=0x005c}
0x17d8e…17dba Head {h00=0x0028, h01=0x0050, text=» STR A1,A6 STORE ITCT ADR IN SHTAB2 «, t00=0x00f4, t01=0x0088}
0x17dba…17dce Head {h00=0x0010, h01=0x0050, text=»SYA155 EQU *«, t00=0x00f4, t01=0x00b4}
0x17dce…17dfa Head {h00=0x0028, h01=0x0050, text=» SUR A6,A8 POINT AT ENTRY IN SHTAB1 «, t00=0x00f4, t01=0x00c8}
0x17dfa…17e26 Head {h00=0x0028, h01=0x0050, text=» LC A4,TDBNT+1,A11 NBR OF COPIES / 2«, t00=0x00f4, t01=0x00f4}
0x17e26…17e38 Head {h00=0x000e, h01=0x0050, text=» SRC A4,4 «, t00=0x00f4, t01=0x0120}
0x17e38…17e62 Head {h00=0x0026, h01=0x0050, text=» LC A4,TDBNT,A11 NBR OF COPIES / 1«, t00=0x00f4, t01=0x0132}
0x17e62…17e74 Head {h00=0x000e, h01=0x0050, text=» SLC A4,12«, t00=0x00f4, t01=0x015c}
0x17e74…17ea2 Head {h00=0x002a, h01=0x0050, text=» SRL A4,8 BINARY VALUE (NBR OF COPIES)«, t00=0x00f4, t01=0x016e}
0x17ea2…17ec2 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 NBR OF COPIES«, t00=0x00f5, t01=0x000c}
0x17ec2…17ed8 Head {h00=0x0012, h01=0x0050, text=» RF(Z) SYA170 «, t00=0x00f5, t01=0x002c}
0x17ed8…17eec Head {h00=0x0010, h01=0x0050, text=»SYA160 EQU *«, t00=0x00f5, t01=0x0042}
0x17eec…17f0a Head {h00=0x001a, h01=0x0050, text=» LC A3,TDBID+4,A11 TID«, t00=0x00f5, t01=0x0056}
0x17f0a…17f1c Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x00f5, t01=0x0074}
0x17f1c…17f3a Head {h00=0x001a, h01=0x0050, text=» LC A3,TDBID+5,A11 TID«, t00=0x00f5, t01=0x0086}
0x17f3a…17f6c Head {h00=0x002e, h01=0x0050, text=» CALL BUILDT BUILD TIDTAB PART FOR ONE TCL«, t00=0x00f5, t01=0x00a4}
0x17f6c…17f80 Head {h00=0x0010, h01=0x0050, text=»SYA170 EQU *«, t00=0x00f5, t01=0x00d6}
0x17f80…17fa6 Head {h00=0x0022, h01=0x0050, text=» CALL NXTBLK NEXT CONFIG-BLOCK«, t00=0x00f5, t01=0x00ea}
0x17fa6…17fcc Head {h00=0x0022, h01=0x0050, text=» CCK A2,'TT' TASK DEF BLOCK ? «, t00=0x00f5, t01=0x0110}
0x17fcc…17fe6 Head {h00=0x0016, h01=0x0050, text=» RB(E) SYA125 YES «, t00=0x00f5, t01=0x0136}
0x17fe6…1801e Head {h00=0x0034, h01=0x0050, text=» LD A1,NOCOPS+STKEND TOTAL NBR OF RUNNING TASKS «, t00=0x00f5, t01=0x0150}
0x1801e…18042 Head {h00=0x0020, h01=0x0050, text=» SLL A1,1 NBR OF BYTES USED «, t00=0x00f5, t01=0x0188}
0x18042…18064 Head {h00=0x001e, h01=0x0050, text=» ADK A1,2 ADD LENGTH WORD «, t00=0x00f6, t01=0x001c}
0x18064…1808c Head {h00=0x0024, h01=0x0050, text=» STR A1,A7 STORE LENGTH IN TABLE«, t00=0x00f6, t01=0x003e}
0x1808c…180b6 Head {h00=0x0026, h01=0x0050, text=» ST A7,DYNTAD,A10 SAVE TABLE START«, t00=0x00f6, t01=0x0066}
0x180b6…180e2 Head {h00=0x0028, h01=0x0050, text=» ADR A7,A1 UPDATE "FIRST FREE WORD" «, t00=0x00f6, t01=0x0090}
0x180e2…180f4 Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x00f6, t01=0x00bc}
0x180f4…1812c Head {h00=0x0034, h01=0x0050, text=» RF(NZ) SYA175 MORE THAN ONE TASK IN THE SYSTEM «, t00=0x00f6, t01=0x00ce}
0x1812c…18166 Head {h00=0x0036, h01=0x0050, text=» IM STASK+STKEND INDICATE SINGLE TASK APPLICATION «, t00=0x00f6, t01=0x0106}
0x18166…18170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x0140}
0x18170…1819e Head {h00=0x002a, h01=0x0050, text=»* PREPARE FOR NEXT APPLICATION «, t00=0x00f6, t01=0x014a}
0x1819e…181a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x0178}
0x181a8…181bc Head {h00=0x0010, h01=0x0050, text=»SYA175 EQU *«, t00=0x00f6, t01=0x0182}
0x181bc…181f4 Head {h00=0x0034, h01=0x0050, text=» LD A2,SHADST+STKEND GET START OF SHADOW TABLES «, t00=0x00f7, t01=0x0008}
0x181f4…18224 Head {h00=0x002c, h01=0x0050, text=» ST A2,SHADOW,A10 SAVE IN APPL.SAVE AREA«, t00=0x00f7, t01=0x0040}
0x18224…18256 Head {h00=0x002e, h01=0x0050, text=» ADKL A10,TABLEN UPDATE SAVE AREA POINTER «, t00=0x00f7, t01=0x0070}
0x18256…18288 Head {h00=0x002e, h01=0x0050, text=» ST A7,SHADST+STKEND SAVE START OF SHTAB1 «, t00=0x00f7, t01=0x00a2}
0x18288…182a0 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SYA100 «, t00=0x00f7, t01=0x00d4}
0x182a0…182d4 Head {h00=0x0030, h01=0x0050, text=» AD A2,M:REL+STKCOM ABSOLUTE BRANCH ADDRESS «, t00=0x00f7, t01=0x00ec}
0x182d4…182fe Head {h00=0x0026, h01=0x0050, text=» ABR A2 CHECK IF MORE APPLICATIONS«, t00=0x00f7, t01=0x0120}
0x182fe…18312 Head {h00=0x0010, h01=0x0050, text=»SYA178 EQU *«, t00=0x00f7, t01=0x014a}
0x18312…18320 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f7, t01=0x015e}
0x18320…18342 Head {h00=0x001e, h01=0x0050, text=»* SAVE MONITOR END ADDRESS«, t00=0x00f7, t01=0x016c}
0x18342…18358 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x00f7, t01=0x018e}
0x18358…18374 Head {h00=0x0018, h01=0x0050, text=» ST A2,MONEND+STKEND«, t00=0x00f8, t01=0x0014}
0x18374…1837c Head {h00=0x0004, h01=0x0050, t00=0x00f8, t01=0x0030}
0x1837c…183a4 Head {h00=0x0024, h01=0x0050, text=»* GET START OF SYSLCO AFTER MOVE«, t00=0x00f8, t01=0x0038}
0x183a4…183b0 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x00f8, t01=0x0060}
0x183b0…183e2 Head {h00=0x002e, h01=0x0050, text=» ADK A7,1 TO-ADDRESS (AFTER SHADOW-TABLES)«, t00=0x00f8, t01=0x006c}
0x183e2…18406 Head {h00=0x0020, h01=0x0050, text=» ANKL A7,/FFFE EVEN ADDRESS «, t00=0x00f8, t01=0x009e}
0x18406…1840e Head {h00=0x0004, h01=0x0050, t00=0x00f8, t01=0x00c2}
0x1840e…1842c Head {h00=0x001a, h01=0x0050, text=»* CALCULATE RELOCATION«, t00=0x00f8, t01=0x00ca}
0x1842c…18456 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,PART2 GET START OF PART2 «, t00=0x00f8, t01=0x00e8}
0x18456…18486 Head {h00=0x002c, h01=0x0050, text=» AD A2,M:REL+STKCOM ADD RELOCATION BASE «, t00=0x00f8, t01=0x0112}
0x18486…1849a Head {h00=0x0010, h01=0x0050, text=» LDR A3,A2 «, t00=0x00f8, t01=0x0142}
0x1849a…184cc Head {h00=0x002e, h01=0x0050, text=» SUR A2,A7 LENGTH TO MOVE (SYSLCO+SYSINI) «, t00=0x00f8, t01=0x0156}
0x184cc…184de Head {h00=0x000e, h01=0x0050, text=» NGR A2,A2«, t00=0x00f8, t01=0x0188}
0x184de…18518 Head {h00=0x0036, h01=0x0050, text=» ST A2,RELOCA+STKEND SAVE NEW RELOCATION TEMPORARY«, t00=0x00f9, t01=0x000a}
0x18518…1854e Head {h00=0x0032, h01=0x0050, text=» ST A7,LCOTO+STKEND SAVE (LOGICAL) TO-ADDRESS «, t00=0x00f9, t01=0x0044}
0x1854e…18576 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A13 A13=START OF SYSINI «, t00=0x00f9, t01=0x007a}
0x18576…18596 Head {h00=0x001c, h01=0x0050, text=» SUR A2,A3 SYSLCO LENGTH«, t00=0x00f9, t01=0x00a2}
0x18596…185c2 Head {h00=0x0028, h01=0x0050, text=» ADKL A2,INILEN ADD LENGTH OF SYSINI«, t00=0x00f9, t01=0x00c2}
0x185c2…185f2 Head {h00=0x002c, h01=0x0050, text=» ST A2,MOVLE1+STKEND SAVE LENGTH TO MOVE«, t00=0x00f9, t01=0x00ee}
0x185f2…18616 Head {h00=0x0020, h01=0x0050, text=» ADR A7,A2 NEW DDIV ADDRESS «, t00=0x00f9, t01=0x011e}
0x18616…18648 Head {h00=0x002e, h01=0x0050, text=» ST A7,DDIVTO+STKEND SAVE NEW DDIV ADDRESS«, t00=0x00f9, t01=0x0142}
0x18648…18670 Head {h00=0x0024, h01=0x0050, text=»* CALCULATE DDIV FROM-ADDRESS * «, t00=0x00f9, t01=0x0174}
0x18670…1869c Head {h00=0x0028, h01=0x0050, text=» CM APPLNO+STKCOM RESET NBR OF APPL.«, t00=0x00fa, t01=0x000c}
0x1869c…186d2 Head {h00=0x0032, h01=0x0050, text=» LDKL A10,STKEND START OF 1:ST APPL SAVE AREA «, t00=0x00fa, t01=0x0038}
0x186d2…186e6 Head {h00=0x0010, h01=0x0050, text=»SYA180 EQU *«, t00=0x00fa, t01=0x006e}
0x186e6…1870e Head {h00=0x0024, h01=0x0050, text=» LDKL A1,'CO' COBOL APPLICATION «, t00=0x00fa, t01=0x0082}
0x1870e…18738 Head {h00=0x0026, h01=0x0050, text=» CALL GETAPP ANY COBOL APPL LEFT? «, t00=0x00fa, t01=0x00aa}
0x18738…18750 Head {h00=0x0014, h01=0x0050, text=» RF(Z) OUT01 NO!«, t00=0x00fa, t01=0x00d4}
0x18750…18758 Head {h00=0x0004, h01=0x0050, t00=0x00fa, t01=0x00ec}
0x18758…1877c Head {h00=0x0020, h01=0x0050, text=» LD A2,APLLAC,A1 GET SEGTAB «, t00=0x00fa, t01=0x00f4}
0x1877c…187a0 Head {h00=0x0020, h01=0x0050, text=» LD* A9,APLLAC,A1 APPTAB ADR«, t00=0x00fa, t01=0x0118}
0x187a0…187ca Head {h00=0x0026, h01=0x0050, text=» LD A9,APPCOM,A9 COMMON-PSEG-PNTR «, t00=0x00fa, t01=0x013c}
0x187ca…187f6 Head {h00=0x0028, h01=0x0050, text=» LD A3,SGNOSG,A2 NUMBER OF SEGMENTS «, t00=0x00fa, t01=0x0166}
0x187f6…1881c (251, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 SAVE SEGTAB ADDRESS«, t00=0x00fb, t01=0x0004}
0x1881c…1884e Head {h00=0x002e, h01=0x0050, text=» LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH«, t00=0x00fb, t01=0x002a}
0x1884e…18860 Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x00fb, t01=0x005c}
0x18860…18872 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x00fb, t01=0x006e}
0x18872…1889c Head {h00=0x0026, h01=0x0050, text=» ADK A1,SGNOSG+2 => START OF DDIV «, t00=0x00fb, t01=0x0080}
0x1889c…188cc Head {h00=0x002c, h01=0x0050, text=» ST A1,DDIVFR,A10 SAVE DDIV FROM-ADDRESS«, t00=0x00fb, t01=0x00aa}
0x188cc…188fa Head {h00=0x002a, h01=0x0050, text=» LD A6,DDIVTO+STKEND GET DDIV TO ADDR.«, t00=0x00fb, t01=0x00da}
0x188fa…18920 Head {h00=0x0022, h01=0x0050, text=» SUR A6,A1 RELOCATION FOR DDIV«, t00=0x00fb, t01=0x0108}
0x18920…18956 Head {h00=0x0032, h01=0x0050, text=» ST A6,SAVE01+STKEND SAVE RELOCATION INCREMENT«, t00=0x00fb, t01=0x012e}
0x18956…1896c Head {h00=0x0012, h01=0x0050, text=» LDKL A6,/FFFF«, t00=0x00fb, t01=0x0164}
0x1896c…1899c Head {h00=0x002c, h01=0x0050, text=» ST A6,PLTGCS,A10 INIT. START OF PLTGC'S«, t00=0x00fb, t01=0x017a}
0x1899c…189c4 Head {h00=0x0024, h01=0x0050, text=» CALL LIMTGC RELOCATE ICB-PLTGC «, t00=0x00fc, t01=0x001a}
0x189c4…189fa Head {h00=0x0032, h01=0x0050, text=» LD A6,SAVE01+STKEND GET RELOCATION INCREMENT «, t00=0x00fc, t01=0x0042}
0x189fa…18a08 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fc, t01=0x0078}
0x18a08…18a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fc, t01=0x0086}
0x18a12…18a2c Head {h00=0x0016, h01=0x0050, text=»* RELOCATE ITCT'S «, t00=0x00fc, t01=0x0090}
0x18a2c…18a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fc, t01=0x00aa}
0x18a36…18a4a Head {h00=0x0010, h01=0x0050, text=»RELITC EQU *«, t00=0x00fc, t01=0x00b4}
0x18a4a…18a72 Head {h00=0x0024, h01=0x0050, text=» LD A1,DDIVFR,A10 ADR TO APPTAB «, t00=0x00fc, t01=0x00c8}
0x18a72…18a94 Head {h00=0x001e, h01=0x0050, text=» LDR* A1,A1 ADR TO TCLTAB «, t00=0x00fc, t01=0x00f0}
0x18a94…18ab4 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 NBR OF TCL'S«, t00=0x00fc, t01=0x0112}
0x18ab4…18ac8 Head {h00=0x0010, h01=0x0050, text=»RELIT1 EQU *«, t00=0x00fc, t01=0x0132}
0x18ac8…18aee Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 ADJUST NBR OF TCL'S «, t00=0x00fc, t01=0x0146}
0x18aee…18b18 Head {h00=0x0026, h01=0x0050, text=» RF(N) RELITX ALL ITCT'S RELOCATED«, t00=0x00fc, t01=0x016c}
0x18b18…18b3c Head {h00=0x0020, h01=0x0050, text=» ADK A1,4 TCLBLK ADR POINTER«, t00=0x00fd, t01=0x0008}
0x18b3c…18b5a Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A1 TCLBLK ADR«, t00=0x00fd, t01=0x002c}
0x18b5a…18b84 Head {h00=0x0026, h01=0x0050, text=» ADK A3,TCLTCT ADR TO ITCT POINTER«, t00=0x00fd, t01=0x004a}
0x18b84…18ba0 Head {h00=0x0018, h01=0x0050, text=» LDR* A3,A3 ITCT ADR«, t00=0x00fd, t01=0x0074}
0x18ba0…18bd0 Head {h00=0x002c, h01=0x0050, text=» ADS A6,ITCGLA,A3 RELOCATE PGTL-DATA-ADR«, t00=0x00fd, t01=0x0090}
0x18bd0…18c00 Head {h00=0x002c, h01=0x0050, text=» ADS A6,ITCCOM,A3 RELOCATE PGTG-DATA-ADR«, t00=0x00fd, t01=0x00c0}
0x18c00…18c20 Head {h00=0x001c, h01=0x0050, text=» ADK A3,ITCTLT TLTAB ADR«, t00=0x00fd, t01=0x00f0}
0x18c20…18c4c Head {h00=0x0028, h01=0x0050, text=» LDR* A4,A3 NBR OF ENTRIES IN TLTAB «, t00=0x00fd, t01=0x0110}
0x18c4c…18c60 Head {h00=0x0010, h01=0x0050, text=»RELIT2 EQU *«, t00=0x00fd, t01=0x013c}
0x18c60…18c86 Head {h00=0x0022, h01=0x0050, text=» SUK A4,1 ADJUST LOOP-COUNTER «, t00=0x00fd, t01=0x0150}
0x18c86…18cb2 Head {h00=0x0028, h01=0x0050, text=» RB(N) RELIT1 ALL ENTRIES RELOCATED «, t00=0x00fd, t01=0x0176}
0x18cb2…18cdc Head {h00=0x0026, h01=0x0050, text=» ADK A3,ITCTLE POINT AT NEXT ENTRY«, t00=0x00fe, t01=0x0012}
0x18cdc…18cfe Head {h00=0x001e, h01=0x0050, text=» LDR* A5,A3 ENTRY CONTENT «, t00=0x00fe, t01=0x003c}
0x18cfe…18d1e Head {h00=0x001c, h01=0x0050, text=» RB(Z) RELIT2 FREE ENTRY«, t00=0x00fe, t01=0x005e}
0x18d1e…18d40 Head {h00=0x001e, h01=0x0050, text=» ADRS A6,A3 RELOCATE ENTRY«, t00=0x00fe, t01=0x007e}
0x18d40…18d5c Head {h00=0x0018, h01=0x0050, text=» RB RELIT2 NEXT ITCT«, t00=0x00fe, t01=0x00a0}
0x18d5c…18d70 Head {h00=0x0010, h01=0x0050, text=»RELITX EQU *«, t00=0x00fe, t01=0x00bc}
0x18d70…18d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x00d0}
0x18d7a…18d96 Head {h00=0x0018, h01=0x0050, text=»* RELOCATE TCLBLK'S «, t00=0x00fe, t01=0x00da}
0x18d96…18da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x00f6}
0x18da0…18db4 Head {h00=0x0010, h01=0x0050, text=»RELTCB EQU *«, t00=0x00fe, t01=0x0100}
0x18db4…18dd8 Head {h00=0x0020, h01=0x0050, text=» LD A1,DDIVFR,A10 APPTAB ADR«, t00=0x00fe, t01=0x0114}
0x18dd8…18df6 Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A1 TCLTAB ADR«, t00=0x00fe, t01=0x0138}
0x18df6…18e16 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 NBR OF TCL'S«, t00=0x00fe, t01=0x0156}
0x18e16…18e2a Head {h00=0x0010, h01=0x0050, text=»RELTB1 EQU *«, t00=0x00fe, t01=0x0176}
0x18e2a…18e50 Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 ADJUST NBR OF TCL'S «, t00=0x00fe, t01=0x018a}
0x18e50…18e82 Head {h00=0x002e, h01=0x0050, text=» RF(N) RELTBX RELOCATION OF TCLBLK'S DONE «, t00=0x00ff, t01=0x0020}
0x18e82…18ea6 Head {h00=0x0020, h01=0x0050, text=» ADK A1,4 TCLBLK ADR POINTER«, t00=0x00ff, t01=0x0052}
0x18ea6…18ec4 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A1 TCLBLK ADR«, t00=0x00ff, t01=0x0076}
0x18ec4…18efe Head {h00=0x0036, h01=0x0050, text=» ADS A6,TCLTGC,A3 RELOCATE ICB-PLTGC-MAIN POINTER «, t00=0x00ff, t01=0x0094}
0x18efe…18f2e Head {h00=0x002c, h01=0x0050, text=» ADS A6,TCLTCT,A3 RELOCATE ITCT POINTER «, t00=0x00ff, t01=0x00ce}
0x18f2e…18f4c Head {h00=0x001a, h01=0x0050, text=» RB RELTB1 NEXT TCLBLK«, t00=0x00ff, t01=0x00fe}
0x18f4c…18f60 Head {h00=0x0010, h01=0x0050, text=»RELTBX EQU *«, t00=0x00ff, t01=0x011c}
0x18f60…18f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ff, t01=0x0130}
0x18f6a…18f84 Head {h00=0x0016, h01=0x0050, text=»* RELOCATE TCLTAB «, t00=0x00ff, t01=0x013a}
0x18f84…18f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ff, t01=0x0154}
0x18f8e…18fa2 Head {h00=0x0010, h01=0x0050, text=»RELTCT EQU *«, t00=0x00ff, t01=0x015e}
0x18fa2…18fc6 Head {h00=0x0020, h01=0x0050, text=» LD A1,DDIVFR,A10 APPTAB ADR«, t00=0x00ff, t01=0x0172}
0x18fc6…18fe4 Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A1 TCLTAB ADR«, t00=0x0100, t01=0x0008}
0x18fe4…19004 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 NBR OF TCL'S«, t00=0x0100, t01=0x0026}
0x19004…19018 Head {h00=0x0010, h01=0x0050, text=»RELTC1 EQU *«, t00=0x0100, t01=0x0046}
0x19018…1903c Head {h00=0x0020, h01=0x0050, text=» SUK A2,1 COUNT NBR OF TCL'S«, t00=0x0100, t01=0x005a}
0x1903c…1906c Head {h00=0x002c, h01=0x0050, text=» RF(N) RELTCX RELOCATION OF TCLTAB DONE «, t00=0x0100, t01=0x007e}
0x1906c…19090 Head {h00=0x0020, h01=0x0050, text=» ADK A1,4 TCLBLK ADR POINTER«, t00=0x0100, t01=0x00ae}
0x19090…190bc Head {h00=0x0028, h01=0x0050, text=» ADRS A6,A1 RELOCATE TCLBLK POINTER «, t00=0x0100, t01=0x00d2}
0x190bc…190e2 Head {h00=0x0022, h01=0x0050, text=» RB RELTC1 NEXT TCLBLK POINTER«, t00=0x0100, t01=0x00fe}
0x190e2…190f6 Head {h00=0x0010, h01=0x0050, text=»RELTCX EQU *«, t00=0x0100, t01=0x0124}
0x190f6…19100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x0138}
0x19100…1911a Head {h00=0x0016, h01=0x0050, text=»* RELOCATE APPTAB «, t00=0x0100, t01=0x0142}
0x1911a…19124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0100, t01=0x015c}
0x19124…19138 Head {h00=0x0010, h01=0x0050, text=»RELAPP EQU *«, t00=0x0100, t01=0x0166}
0x19138…1915c Head {h00=0x0020, h01=0x0050, text=» LD A1,DDIVFR,A10 APPTAB ADR«, t00=0x0100, t01=0x017a}
0x1915c…19184 Head {h00=0x0024, h01=0x0050, text=» ADRS A6,A1 RELOCATE TCLTAB-PNTR«, t00=0x0101, t01=0x000e}
0x19184…19198 Head {h00=0x0010, h01=0x0050, text=»RELAPX EQU *«, t00=0x0101, t01=0x0036}
0x19198…191a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x004a}
0x191a2…191d4 Head {h00=0x002e, h01=0x0050, text=»* RELOCATE SHADOW-TABLE2 (ITCT ADDRESSES) «, t00=0x0101, t01=0x0054}
0x191d4…191de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0101, t01=0x0086}
0x191de…191f2 Head {h00=0x0010, h01=0x0050, text=»RELSHT EQU *«, t00=0x0101, t01=0x0090}
0x191f2…1921a Head {h00=0x0024, h01=0x0050, text=» LD* A1,SHADOW,A10 SHTAB LENGTH «, t00=0x0101, t01=0x00a4}
0x1921a…19240 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A1 SAVE SHTAB2 LENGTH «, t00=0x0101, t01=0x00cc}
0x19240…19264 Head {h00=0x0020, h01=0x0050, text=» AD A1,SHADOW,A10 SHTAB2 ADR«, t00=0x0101, t01=0x00f2}
0x19264…19278 Head {h00=0x0010, h01=0x0050, text=»RELSH1 EQU *«, t00=0x0101, t01=0x0116}
0x19278…1929e Head {h00=0x0022, h01=0x0050, text=» SUK A2,2 ADJUST SHTAB2 LENGTH«, t00=0x0101, t01=0x012a}
0x1929e…192ce Head {h00=0x002c, h01=0x0050, text=» RF(Z) RELSHX RELOCATION OF SHTAB2 DONE «, t00=0x0101, t01=0x0150}
0x192ce…192f2 Head {h00=0x0020, h01=0x0050, text=» ADK A1,2 POINT AT ITCT ADR «, t00=0x0101, t01=0x0180}
0x192f2…19318 Head {h00=0x0022, h01=0x0050, text=» ADRS A6,A1 RELOCATE ITCT ADR «, t00=0x0102, t01=0x0014}
0x19318…19330 Head {h00=0x0014, h01=0x0050, text=» RB RELSH1 NEXT «, t00=0x0102, t01=0x003a}
0x19330…19344 Head {h00=0x0010, h01=0x0050, text=»RELSHX EQU *«, t00=0x0102, t01=0x0052}
0x19344…19370 Head {h00=0x0028, h01=0x0050, text=» ADKL A10,TABLEN NEXT APPL.SAVE AREA«, t00=0x0102, t01=0x0066}
0x19370…19396 Head {h00=0x0022, h01=0x0050, text=» RB SYA180 CHECK IF MORE APPL.«, t00=0x0102, t01=0x0092}
0x19396…193aa Head {h00=0x0010, h01=0x0050, text=»OUT01 EQU * «, t00=0x0102, t01=0x00b8}
0x193aa…193e4 Head {h00=0x0036, h01=0x0050, text=» LD A5,RELOCA+STKEND GET NEW RELOCATION INCREMENT «, t00=0x0102, t01=0x00cc}
0x193e4…1941c Head {h00=0x0034, h01=0x0050, text=» ADS A5,M:REL+STKCOM AND ADJUST RELOCATION BASE «, t00=0x0102, t01=0x0106}
0x1941c…1943a Head {h00=0x001a, h01=0x0050, text=»* CONTINUE IN PART 2 *«, t00=0x0102, t01=0x013e}
0x1943a…19446 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0102, t01=0x015c}
0x19446…1947a Head {h00=0x0030, h01=0x0050, text=» LD A2,LCOTO+STKEND GET TO-ADDRESS (SYSLCO) «, t00=0x0102, t01=0x0168}
0x1947a…1948c Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0103, t01=0x000c}
0x1948c…194a8 Head {h00=0x0018, h01=0x0050, text=» AD A5,MOVLE1+STKEND«, t00=0x0103, t01=0x001e}
0x194a8…194d0 Head {h00=0x0024, h01=0x0050, text=» SUKL A5,INILEN A5=SYSINI START «, t00=0x0103, t01=0x003a}
0x194d0…19504 Head {h00=0x0030, h01=0x0050, text=» LDKL A7,START2 GET EXECUTION START ADDRESS «, t00=0x0103, t01=0x0062}
0x19504…19534 Head {h00=0x002c, h01=0x0050, text=» AD A7,M:REL+STKCOM ADD RELOCATION BASE «, t00=0x0103, t01=0x0096}
0x19534…19566 Head {h00=0x002e, h01=0x0050, text=» LD A3,MOVLE1+STKEND SYSLCO+SYSINI LENGTH «, t00=0x0103, t01=0x00c6}
0x19566…1957c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,PART2«, t00=0x0103, t01=0x00f8}
0x1957c…19598 Head {h00=0x0018, h01=0x0050, text=» AD A1,M:REL+STKCOM «, t00=0x0103, t01=0x010e}
0x19598…195be Head {h00=0x0022, h01=0x0050, text=» SU A1,RELOCA+STKEND FROM ADR.«, t00=0x0103, t01=0x012a}
0x195be…195c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x0150}
0x195c8…195f8 Head {h00=0x002c, h01=0x0050, text=»* JUMP TO ROUTINE IN SYSTEM-STACK WHICH «, t00=0x0103, t01=0x015a}
0x195f8…1962a Head {h00=0x002e, h01=0x0050, text=»* MOVES SYSLCO, AND THEN CONTINUE IN PART2«, t00=0x0103, t01=0x018a}
0x1962a…19650 Head {h00=0x0022, h01=0x0050, text=»* INPUT TO ROUTINE IN STACK IS«, t00=0x0104, t01=0x002c}
0x19650…1966a Head {h00=0x0016, h01=0x0050, text=»* A1 = FROM ADDR. «, t00=0x0104, t01=0x0052}
0x1966a…19682 Head {h00=0x0014, h01=0x0050, text=»* A2 = TO ADDR. «, t00=0x0104, t01=0x006c}
0x19682…19698 Head {h00=0x0012, h01=0x0050, text=»* A3 = LENGTH «, t00=0x0104, t01=0x0084}
0x19698…196b4 Head {h00=0x0018, h01=0x0050, text=»* A7 = RESTART ADDR.«, t00=0x0104, t01=0x009a}
0x196b4…196be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0104, t01=0x00b6}
0x196be…196f0 Head {h00=0x002e, h01=0x0050, text=» ABL STKMOV JUMP TO MOVE-ROUTINE IN STACK «, t00=0x0104, t01=0x00c0}
0x196f0…196fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0104, t01=0x00f2}
0x196fe…1970a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0104, t01=0x0100}
0x1970a…19744 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0104, t01=0x010c}
0x19744…1977e Head {h00=0x0036, h01=0x0050, text=»*** *** «, t00=0x0104, t01=0x0146}
0x1977e…197b8 Head {h00=0x0036, h01=0x0050, text=»** SYSLOAD PART 2 ** «, t00=0x0104, t01=0x0180}
0x197b8…197f2 Head {h00=0x0036, h01=0x0050, text=»** ** «, t00=0x0105, t01=0x002a}
0x197f2…1982c Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0105, t01=0x0064}
0x1982c…19834 Head {h00=0x0004, h01=0x0050, t00=0x0105, t01=0x009e}
0x19834…1986e Head {h00=0x0036, h01=0x0050, text=»* BUILD COMMON AND TASKCLASS DATA AREAS. * «, t00=0x0105, t01=0x00a6}
0x1986e…198a8 Head {h00=0x0036, h01=0x0050, text=»* BUILD TASKDATA PROTOTYPE AREA * «, t00=0x0105, t01=0x00e0}
0x198a8…198e2 Head {h00=0x0036, h01=0x0050, text=»* * «, t00=0x0105, t01=0x011a}
0x198e2…1991c Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0105, t01=0x0154}
0x1991c…19924 Head {h00=0x0004, h01=0x0050, t00=0x0105, t01=0x018e}
0x19924…19938 Head {h00=0x0010, h01=0x0050, text=»PART2 EQU *«, t00=0x0106, t01=0x0008}
0x19938…19940 Head {h00=0x0004, h01=0x0050, t00=0x0106, t01=0x001c}
0x19940…19974 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0106, t01=0x0024}
0x19974…199a8 Head {h00=0x0030, h01=0x0050, text=»*** ***«, t00=0x0106, t01=0x0058}
0x199a8…199dc Head {h00=0x0030, h01=0x0050, text=»** S U B R O U T I N E S **«, t00=0x0106, t01=0x008c}
0x199dc…19a10 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0106, t01=0x00c0}
0x19a10…19a18 Head {h00=0x0004, h01=0x0050, t00=0x0106, t01=0x00f4}
0x19a18…19a24 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0106, t01=0x00fc}
0x19a24…19a32 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0106, t01=0x0108}
0x19a32…19a62 Head {h00=0x002c, h01=0x0050, text=»* M O V C O M * «, t00=0x0106, t01=0x0116}
0x19a62…19a92 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x0106, t01=0x0146}
0x19a92…19ac2 Head {h00=0x002c, h01=0x0050, text=»* MOVE ICB-PGTG AND PGTG-DATA * «, t00=0x0106, t01=0x0176}
0x19ac2…19af2 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x0107, t01=0x0016}
0x19af2…19b22 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0107, t01=0x0046}
0x19b22…19b2a Head {h00=0x0004, h01=0x0050, t00=0x0107, t01=0x0076}
0x19b2a…19b3e Head {h00=0x0010, h01=0x0050, text=»MOVCOM EQU *«, t00=0x0107, t01=0x007e}
0x19b3e…19b60 Head {h00=0x001e, h01=0x0050, text=» CALL FNDCOM ICB-PGTG ADR «, t00=0x0107, t01=0x0092}
0x19b60…19b8c Head {h00=0x0028, h01=0x0050, text=» LD A3,DDIVTO+STKEND APPTAB ADDRESS «, t00=0x0107, t01=0x00b4}
0x19b8c…19bb2 Head {h00=0x0022, h01=0x0050, text=» LD A3,APPTGL,A3 PGTG-DATA ADR«, t00=0x0107, t01=0x00e0}
0x19bb2…19be0 Head {h00=0x002a, h01=0x0050, text=» LD A6,LSTADR+STKCOM LAST FREE ADDRESS«, t00=0x0107, t01=0x0106}
0x19be0…19c02 Head {h00=0x001e, h01=0x0050, text=» SUR A6,A3 PGTG START ADR «, t00=0x0107, t01=0x0134}
0x19c02…19c32 Head {h00=0x002c, h01=0x0050, text=» CALL CALLMO ALLOCATE AND MOVE PGTG-DATA«, t00=0x0107, t01=0x0156}
0x19c32…19c68 Head {h00=0x0032, h01=0x0050, text=» ST A6,PGTGAD+STKEND SAVE ICB-PGTG NEW ADDRESS«, t00=0x0107, t01=0x0186}
0x19c68…19c78 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0108, t01=0x002c}
0x19c78…19c86 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0108, t01=0x003c}
0x19c86…19cae Head {h00=0x0024, h01=0x0050, text=»* F N D C O M *«, t00=0x0108, t01=0x004a}
0x19cae…19cd6 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x0108, t01=0x0072}
0x19cd6…19cfe Head {h00=0x0024, h01=0x0050, text=»* FIND PGTG-DATA *«, t00=0x0108, t01=0x009a}
0x19cfe…19d26 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x0108, t01=0x00c2}
0x19d26…19d4e Head {h00=0x0024, h01=0x0050, text=»* EXIT : A1 PGTG-DATA ADR *«, t00=0x0108, t01=0x00ea}
0x19d4e…19d76 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0108, t01=0x0112}
0x19d76…19d7e Head {h00=0x0004, h01=0x0050, t00=0x0108, t01=0x013a}
0x19d7e…19d92 Head {h00=0x0010, h01=0x0050, text=»FNDCOM EQU *«, t00=0x0108, t01=0x0142}
0x19d92…19dbe Head {h00=0x0028, h01=0x0050, text=» LD* A1,DDIVTO+STKEND ADR TO TCLTAB «, t00=0x0108, t01=0x0156}
0x19dbe…19de0 Head {h00=0x001e, h01=0x0050, text=» LD A1,4,A1 ADR TO TCLBLK «, t00=0x0108, t01=0x0182}
0x19de0…19e0a Head {h00=0x0026, h01=0x0050, text=» LD* A1,TCLTCT,A1 ADR TO PGTG-DATA«, t00=0x0109, t01=0x0014}
0x19e0a…19e1a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0109, t01=0x003e}
0x19e1a…19e28 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0109, t01=0x004e}
0x19e28…19e5a Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0109, t01=0x005c}
0x19e5a…19e8c Head {h00=0x002e, h01=0x0050, text=»* R E L T G C * «, t00=0x0109, t01=0x008e}
0x19e8c…19ebe Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0109, t01=0x00c0}
0x19ebe…19ef0 Head {h00=0x002e, h01=0x0050, text=»* RELOCATE ICB-PLTGC CALL-TAB * «, t00=0x0109, t01=0x00f2}
0x19ef0…19f22 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0109, t01=0x0124}
0x19f22…19f54 Head {h00=0x002e, h01=0x0050, text=»* INPUT: PLTGCS= ICB-PLTGC BLOCK * «, t00=0x0109, t01=0x0156}
0x19f54…19f86 Head {h00=0x002e, h01=0x0050, text=»* START ADDRESS * «, t00=0x0109, t01=0x0188}
0x19f86…19fb8 Head {h00=0x002e, h01=0x0050, text=»* PLTGCL= ICB-PLTGC BLOCK * «, t00=0x010a, t01=0x002a}
0x19fb8…19fea Head {h00=0x002e, h01=0x0050, text=»* LENGTH * «, t00=0x010a, t01=0x005c}
0x19fea…1a01c Head {h00=0x002e, h01=0x0050, text=»* A6 = RELOCATION INCREMENT * «, t00=0x010a, t01=0x008e}
0x1a01c…1a04e Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x010a, t01=0x00c0}
0x1a04e…1a080 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x010a, t01=0x00f2}
0x1a080…1a088 Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x0124}
0x1a088…1a09c Head {h00=0x0010, h01=0x0050, text=»RELTGC EQU *«, t00=0x010a, t01=0x012c}
0x1a09c…1a0ca Head {h00=0x002a, h01=0x0050, text=» LD A3,PLTGCS,A10 ICB-PLTGC START ADR «, t00=0x010a, t01=0x0140}
0x1a0ca…1a0f4 Head {h00=0x0026, h01=0x0050, text=» LD A2,PLTGCL,A10 ICB-PLTGC LENGTH«, t00=0x010a, t01=0x016e}
0x1a0f4…1a118 Head {h00=0x0020, h01=0x0050, text=» ADR A2,A3 ICB-PLTGC END ADR«, t00=0x010b, t01=0x0008}
0x1a118…1a12c Head {h00=0x0010, h01=0x0050, text=»RELTG1 EQU *«, t00=0x010b, t01=0x002c}
0x1a12c…1a13e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x010b, t01=0x0040}
0x1a13e…1a166 Head {h00=0x0024, h01=0x0050, text=» LDR A11,A1 GET ADR FOR COMPARE «, t00=0x010b, t01=0x0052}
0x1a166…1a18c Head {h00=0x0022, h01=0x0050, text=» LDR A9,A2 GET ADR FOR COMPARE«, t00=0x010b, t01=0x007a}
0x1a18c…1a1bc Head {h00=0x002c, h01=0x0050, text=» CALL CMPADR ALL ICB-PLTGC'S RELOCATED ?«, t00=0x010b, t01=0x00a0}
0x1a1bc…1a1d6 Head {h00=0x0016, h01=0x0050, text=» RF(NL) RELTGX YES«, t00=0x010b, t01=0x00d0}
0x1a1d6…1a204 Head {h00=0x002a, h01=0x0050, text=» LCR A3,A1 GET ICB-PLTGC CONTROL-BYTE «, t00=0x010b, t01=0x00ea}
0x1a204…1a22e Head {h00=0x0026, h01=0x0050, text=» CCK A3,/6161 HANDLED BY LIMTGC ? «, t00=0x010b, t01=0x0118}
0x1a22e…1a248 Head {h00=0x0016, h01=0x0050, text=» RF(NE) RELTG2 NO «, t00=0x010b, t01=0x0142}
0x1a248…1a272 Head {h00=0x0026, h01=0x0050, text=» ANK A3,/F0 NEW CONTROL-BYTE VALUE«, t00=0x010b, t01=0x015c}
0x1a272…1a290 Head {h00=0x001a, h01=0x0050, text=» SCR A3,A1 RESTORE IT «, t00=0x010b, t01=0x0186}
0x1a290…1a2a4 Head {h00=0x0010, h01=0x0050, text=»RELTG2 EQU *«, t00=0x010c, t01=0x0014}
0x1a2a4…1a2cc Head {h00=0x0024, h01=0x0050, text=» LD A3,TGCCAL,A1 NBR OF ENTRIES «, t00=0x010c, t01=0x0028}
0x1a2cc…1a2ee Head {h00=0x001e, h01=0x0050, text=» SLL A3,1 *2 NBR OF BYTES «, t00=0x010c, t01=0x0050}
0x1a2ee…1a30a Head {h00=0x0018, h01=0x0050, text=» ADR A3,A1 ADD BASE «, t00=0x010c, t01=0x0072}
0x1a30a…1a342 Head {h00=0x0034, h01=0x0050, text=» ADK A3,10 POINTER TO 1:ST WORD AFTER LAST ENTRY«, t00=0x010c, t01=0x008e}
0x1a342…1a35e Head {h00=0x0018, h01=0x0050, text=» LDR A4,A1 GET BASE «, t00=0x010c, t01=0x00c6}
0x1a35e…1a37c Head {h00=0x001a, h01=0x0050, text=» ADK A4,10 1:ST ENTRY «, t00=0x010c, t01=0x00e2}
0x1a37c…1a38e Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x010c, t01=0x0100}
0x1a38e…1a3a2 Head {h00=0x0010, h01=0x0050, text=»RELTG3 EQU *«, t00=0x010c, t01=0x0112}
0x1a3a2…1a3b6 Head {h00=0x0010, h01=0x0050, text=» LDR A11,A4 «, t00=0x010c, t01=0x0126}
0x1a3b6…1a3e2 Head {h00=0x0028, h01=0x0050, text=» CALL CMPADR END OF THIS ICB-PLTGC ?«, t00=0x010c, t01=0x013a}
0x1a3e2…1a41a Head {h00=0x0034, h01=0x0050, text=» RB(NL) RELTG1 YES,CONTINUE WITH NEXT ICB-PLTGC «, t00=0x010c, t01=0x0166}
0x1a41a…1a446 Head {h00=0x0028, h01=0x0050, text=» LDR* A11,A4 GET ADDRESS TO RELOCATE«, t00=0x010d, t01=0x000e}
0x1a446…1a46a Head {h00=0x0020, h01=0x0050, text=» ADR A11,A6 RELOCATE ADDRESS«, t00=0x010d, t01=0x003a}
0x1a46a…1a47e Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A11«, t00=0x010d, t01=0x005e}
0x1a47e…1a490 Head {h00=0x000e, h01=0x0050, text=» SRL A1,8 «, t00=0x010d, t01=0x0072}
0x1a490…1a4b0 Head {h00=0x001c, h01=0x0050, text=» SUK A1,/60 ICB-PLTGC ? «, t00=0x010d, t01=0x0084}
0x1a4b0…1a4d8 Head {h00=0x0024, h01=0x0050, text=» RF(N) RELTG4 NO, ASM-SUBROUTINE«, t00=0x010d, t01=0x00a4}
0x1a4d8…1a4ea Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x010d, t01=0x00cc}
0x1a4ea…1a512 Head {h00=0x0024, h01=0x0050, text=» RF(P) RELTG4 NO, ASM-SUBROUTINE«, t00=0x010d, t01=0x00de}
0x1a512…1a53c Head {h00=0x0026, h01=0x0050, text=» ADRS A6,A4 RELOCATE CALL ADDRESS «, t00=0x010d, t01=0x0106}
0x1a53c…1a550 Head {h00=0x0010, h01=0x0050, text=»RELTG4 EQU *«, t00=0x010d, t01=0x0130}
0x1a550…1a578 Head {h00=0x0024, h01=0x0050, text=» ADK A4,2 STEP CALL-TAB POINTER «, t00=0x010d, t01=0x0144}
0x1a578…1a59e Head {h00=0x0022, h01=0x0050, text=» RB RELTG3 NEXT CALL-TAB-ENTRY«, t00=0x010d, t01=0x016c}
0x1a59e…1a5b2 (270, 0, 400) Head {h00=0x0010, h01=0x0050, text=»RELTGX EQU *«, t00=0x010e, t01=0x0004}
0x1a5b2…1a5c2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x010e, t01=0x0018}
0x1a5c2…1a5d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x0028}
0x1a5d0…1a5fa Head {h00=0x0026, h01=0x0050, text=»* F N D B L K *«, t00=0x010e, t01=0x0036}
0x1a5fa…1a624 Head {h00=0x0026, h01=0x0050, text=»* *«, t00=0x010e, t01=0x0060}
0x1a624…1a64e Head {h00=0x0026, h01=0x0050, text=»* FIND A TCLBLK CORRESPONDING *«, t00=0x010e, t01=0x008a}
0x1a64e…1a678 Head {h00=0x0026, h01=0x0050, text=»* TO AN ITCT ADDRESS *«, t00=0x010e, t01=0x00b4}
0x1a678…1a6a2 Head {h00=0x0026, h01=0x0050, text=»* *«, t00=0x010e, t01=0x00de}
0x1a6a2…1a6cc Head {h00=0x0026, h01=0x0050, text=»* INPUT : A7 ITCT ADR *«, t00=0x010e, t01=0x0108}
0x1a6cc…1a6f6 Head {h00=0x0026, h01=0x0050, text=»* DDIVTO APPTAB ADR *«, t00=0x010e, t01=0x0132}
0x1a6f6…1a720 Head {h00=0x0026, h01=0x0050, text=»* EXIT : A1 TCLBLK-PNTR ADR *«, t00=0x010e, t01=0x015c}
0x1a720…1a74a Head {h00=0x0026, h01=0x0050, text=»* IN TLCTAB *«, t00=0x010e, t01=0x0186}
0x1a74a…1a774 Head {h00=0x0026, h01=0x0050, text=»* A3 TCLBLK ADR *«, t00=0x010f, t01=0x0020}
0x1a774…1a79e Head {h00=0x0026, h01=0x0050, text=»* WORK : A2 *«, t00=0x010f, t01=0x004a}
0x1a79e…1a7c8 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x010f, t01=0x0074}
0x1a7c8…1a7d0 Head {h00=0x0004, h01=0x0050, t00=0x010f, t01=0x009e}
0x1a7d0…1a7e4 Head {h00=0x0010, h01=0x0050, text=»FNDBLK EQU *«, t00=0x010f, t01=0x00a6}
0x1a7e4…1a80c Head {h00=0x0024, h01=0x0050, text=» LD* A1,DDIVTO+STKEND TCLTAB ADR«, t00=0x010f, t01=0x00ba}
0x1a80c…1a830 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A1 NBR OF TCLBLK'S «, t00=0x010f, t01=0x00e2}
0x1a830…1a844 Head {h00=0x0010, h01=0x0050, text=»FNDBL0 EQU *«, t00=0x010f, t01=0x0106}
0x1a844…1a86c Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 COUNT NBR OF TCLBLK'S «, t00=0x010f, t01=0x011a}
0x1a86c…1a88e Head {h00=0x001e, h01=0x0050, text=» RF(NN) FNDBL1 BLOCKS LEFT«, t00=0x010f, t01=0x0142}
0x1a88e…1a8a2 Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP4«, t00=0x010f, t01=0x0164}
0x1a8a2…1a8b6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x010f, t01=0x0178}
0x1a8b6…1a8ca Head {h00=0x0010, h01=0x0050, text=»FNDBL1 EQU *«, t00=0x010f, t01=0x018c}
0x1a8ca…1a8ec Head {h00=0x001e, h01=0x0050, text=» ADK A1,4 TCLBLK-PNTR ADR «, t00=0x0110, t01=0x0010}
0x1a8ec…1a90c Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A1 TCLBLK-PNTR «, t00=0x0110, t01=0x0032}
0x1a90c…1a932 Head {h00=0x0022, h01=0x0050, text=» CW A7,TCLTCT,A3 ITCT FOUND ? «, t00=0x0110, t01=0x0052}
0x1a932…1a95c Head {h00=0x0026, h01=0x0050, text=» RB(NE) FNDBL0 NO,TRY NEXT TCLBLK «, t00=0x0110, t01=0x0078}
0x1a95c…1a978 Head {h00=0x0018, h01=0x0050, text=» RTN A14 YES,RETURN «, t00=0x0110, t01=0x00a2}
0x1a978…1a986 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0110, t01=0x00be}
0x1a986…1a98e Head {h00=0x0004, h01=0x0050, t00=0x0110, t01=0x00cc}
0x1a98e…1a9b4 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0110, t01=0x00d4}
0x1a9b4…1a9da Head {h00=0x0022, h01=0x0050, text=»* START OF PROGRAM PART 2 * «, t00=0x0110, t01=0x00fa}
0x1a9da…1aa00 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0110, t01=0x0120}
0x1aa00…1aa08 Head {h00=0x0004, h01=0x0050, t00=0x0110, t01=0x0146}
0x1aa08…1aa26 Head {h00=0x001a, h01=0x0050, text=»* LOAD BASE ADDRESS * «, t00=0x0110, t01=0x014e}
0x1aa26…1aa44 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0110, t01=0x016c}
0x1aa44…1aa5e Head {h00=0x0016, h01=0x0050, text=»* A5=START-ADDRESS«, t00=0x0110, t01=0x018a}
0x1aa5e…1aa84 Head {h00=0x0022, h01=0x0050, text=»* SAVE01=RELOCATION INCREMENT «, t00=0x0111, t01=0x0014}
0x1aa84…1aaa4 Head {h00=0x001c, h01=0x0050, text=»* SAVE03=DDIV TO-ADDRESS«, t00=0x0111, t01=0x003a}
0x1aaa4…1aac6 Head {h00=0x001e, h01=0x0050, text=»* SAVE04=DDIV FROM ADDRESS«, t00=0x0111, t01=0x005a}
0x1aac6…1aaee Head {h00=0x0024, h01=0x0050, text=»* SAVE05=LENGTH OF REAL ITCTTAB «, t00=0x0111, t01=0x007c}
0x1aaee…1aafa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0111, t01=0x00a4}
0x1aafa…1ab0e Head {h00=0x0010, h01=0x0050, text=»START2 EQU *«, t00=0x0111, t01=0x00b0}
0x1ab0e…1ab34 Head {h00=0x0022, h01=0x0050, text=» LDR A8,P LOAD TEMP. STACKBASE«, t00=0x0111, t01=0x00c4}
0x1ab34…1ab60 Head {h00=0x0028, h01=0x0050, text=» ADK A5,2 ADD FOR RELOCATION ROUTINE«, t00=0x0111, t01=0x00ea}
0x1ab60…1ab72 Head {h00=0x000e, h01=0x0050, text=» CFR A8,A5«, t00=0x0111, t01=0x0116}
0x1ab72…1ab7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0128}
0x1ab7c…1abae Head {h00=0x002e, h01=0x0050, text=»* INITIATE REGISTERS AND VARIABLES «, t00=0x0111, t01=0x0132}
0x1abae…1abb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0164}
0x1abb8…1abee Head {h00=0x0032, h01=0x0050, text=» LDKL A10,STKEND START OF 1:ST APPL. SAVE AREA«, t00=0x0111, t01=0x016e}
0x1abee…1ac20 Head {h00=0x002e, h01=0x0050, text=» LD A1,APCTAB,A10 FIRST APLTAB BLOCK ADDR.«, t00=0x0112, t01=0x0014}
0x1ac20…1ac58 Head {h00=0x0034, h01=0x0050, text=» LD A2,APPLNO+STKCOM GET NUMBER OF APPLICATIONS «, t00=0x0112, t01=0x0046}
0x1ac58…1ac7a Head {h00=0x001e, h01=0x0050, text=» ST A2,ALICOU+STKEND SAVE «, t00=0x0112, t01=0x007e}
0x1ac7a…1ac8c Head {h00=0x000e, h01=0x0050, text=» RF PRT200«, t00=0x0112, t01=0x00a0}
0x1ac8c…1ac96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x00b2}
0x1ac96…1acca Head {h00=0x0030, h01=0x0050, text=»* UPDATE VALUES FOR NEXT APPLICATION «, t00=0x0112, t01=0x00bc}
0x1acca…1acd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x00f0}
0x1acd4…1ace8 Head {h00=0x0010, h01=0x0050, text=»NXTAPP EQU *«, t00=0x0112, t01=0x00fa}
0x1ace8…1ad16 Head {h00=0x002a, h01=0x0050, text=» ADKL A10,TABLEN NEXT APPL. SAVE AREA «, t00=0x0112, t01=0x010e}
0x1ad16…1ad42 Head {h00=0x0028, h01=0x0050, text=» LD A1,APCTAB,A10 NEXT APLTAB BLOCK «, t00=0x0112, t01=0x013c}
0x1ad42…1ad70 Head {h00=0x002a, h01=0x0050, text=» LD A2,ALICOU+STKEND GET APPL.COUNTER «, t00=0x0112, t01=0x0168}
0x1ad70…1ad98 Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT APPL.COUNTER«, t00=0x0113, t01=0x0008}
0x1ad98…1adc6 Head {h00=0x002a, h01=0x0050, text=» ST A2,ALICOU+STKEND SAVE APPL.COUNTER«, t00=0x0113, t01=0x0030}
0x1adc6…1adf0 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) PRT200 IF ANY APPL IS LEFT«, t00=0x0113, t01=0x005e}
0x1adf0…1ae12 Head {h00=0x001e, h01=0x0050, text=» DON'T LEAVE SYSLCO YET «, t00=0x0113, t01=0x0088}
0x1ae12…1ae3e Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTEFA+2 GET END OF FREE AREA«, t00=0x0113, t01=0x00aa}
0x1ae3e…1ae78 Head {h00=0x0036, h01=0x0050, text=» ST A2,LSTADR+STKCOM LAST ADDR.:=END OF FREE AREA «, t00=0x0113, t01=0x00d6}
0x1ae78…1aea6 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,SYA320 GET SYSLCO END ADDRESS«, t00=0x0113, t01=0x0110}
0x1aea6…1aed6 Head {h00=0x002c, h01=0x0050, text=» AD A2,M:REL+STKCOM ADD RELOCATION BASE «, t00=0x0113, t01=0x013e}
0x1aed6…1aefc Head {h00=0x0022, h01=0x0050, text=» ABR A2 START TO MOVE DYNTAB:S«, t00=0x0113, t01=0x016e}
0x1aefc…1af04 (276, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0114, t01=0x0004}
0x1af04…1af18 Head {h00=0x0010, h01=0x0050, text=»PRT200 EQU *«, t00=0x0114, t01=0x000c}
0x1af18…1af44 Head {h00=0x0028, h01=0x0050, text=» LD* A9,APLLAC,A1 APPTAB START ADDR.«, t00=0x0114, t01=0x0020}
0x1af44…1af74 Head {h00=0x002c, h01=0x0050, text=» LD A2,APPINT,A9 INTERPRETER ACTIV ADDR.«, t00=0x0114, t01=0x004c}
0x1af74…1af98 Head {h00=0x0020, h01=0x0050, text=» ST A2,INTENT+STKEND SAVE IT«, t00=0x0114, t01=0x007c}
0x1af98…1afc6 Head {h00=0x002a, h01=0x0050, text=» LD A9,APPCOM,A9 GET APPL. START ADDR.«, t00=0x0114, t01=0x00a0}
0x1afc6…1afea Head {h00=0x0020, h01=0x0050, text=» LDR A2,A9 APPL. START ADDR.«, t00=0x0114, t01=0x00ce}
0x1afea…1aff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0114, t01=0x00f2}
0x1aff4…1b022 Head {h00=0x002a, h01=0x0050, text=»* CALCULATE DDIV+SEGTAB LENGTH «, t00=0x0114, t01=0x00fc}
0x1b022…1b02c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0114, t01=0x012a}
0x1b02c…1b052 Head {h00=0x0022, h01=0x0050, text=» LD A4,APLLAC,A1 SEGTAB ADDR. «, t00=0x0114, t01=0x0134}
0x1b052…1b080 Head {h00=0x002a, h01=0x0050, text=» ST A9,APLLAC,A1 STORE START OF APPL. «, t00=0x0114, t01=0x015a}
0x1b080…1b0a6 Head {h00=0x0022, h01=0x0050, text=» SUR A2,A4 DDIV+SEGTAB LENGTH «, t00=0x0114, t01=0x0188}
0x1b0a6…1b0b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x001e}
0x1b0b0…1b0ee Head {h00=0x003a, h01=0x0050, text=»* SET FLAG BIT15=1 => BUILD DDIV IN PROT. DDIV «, t00=0x0115, t01=0x0028}
0x1b0ee…1b0f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x0066}
0x1b0f8…1b11a Head {h00=0x001e, h01=0x0050, text=» IM PDDIV+STKEND SET FLAG «, t00=0x0115, t01=0x0070}
0x1b11a…1b124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x0092}
0x1b124…1b150 Head {h00=0x0028, h01=0x0050, text=»* INITIATE PROT. DDIV LENGTH «, t00=0x0115, t01=0x009c}
0x1b150…1b15a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x00c8}
0x1b15a…1b186 Head {h00=0x0028, h01=0x0050, text=» LD A3,SCTEFA+2 GET END OF FREE AREA«, t00=0x0115, t01=0x00d2}
0x1b186…1b1b0 Head {h00=0x0026, h01=0x0050, text=» CWR A3,A4 START OF SEGTAB=SCTEFA?«, t00=0x0115, t01=0x00fe}
0x1b1b0…1b1ca Head {h00=0x0016, h01=0x0050, text=» RF(NE) SAVLEN NO!«, t00=0x0115, t01=0x0128}
0x1b1ca…1b1ee Head {h00=0x0020, h01=0x0050, text=» CM PDDIV+STKEND RESET FLAG «, t00=0x0115, t01=0x0142}
0x1b1ee…1b202 Head {h00=0x0010, h01=0x0050, text=»SAVLEN EQU *«, t00=0x0115, t01=0x0166}
0x1b202…1b232 Head {h00=0x002c, h01=0x0050, text=» ST A2,PDDIVL,A10 INIT.PROT.DDIV LENGTH «, t00=0x0115, t01=0x017a}
0x1b232…1b23c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x001a}
0x1b23c…1b250 Head {h00=0x0010, h01=0x0050, text=»* MOVE DDIV «, t00=0x0116, t01=0x0024}
0x1b250…1b25a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x0038}
0x1b25a…1b284 Head {h00=0x0026, h01=0x0050, text=» LD A1,DDIVFR,A10 GET FROM-ADDRESS«, t00=0x0116, t01=0x0042}
0x1b284…1b2b0 Head {h00=0x0028, h01=0x0050, text=» LD A2,DDIVTO+STKEND GET TO ADDRESS «, t00=0x0116, t01=0x006c}
0x1b2b0…1b2e6 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A9 GET APPLICATION START (=END OF DDIV«, t00=0x0116, t01=0x0098}
0x1b2e6…1b30a Head {h00=0x0020, h01=0x0050, text=» SUR A3,A1 => LENGTH OF DDIV«, t00=0x0116, t01=0x00ce}
0x1b30a…1b326 Head {h00=0x0018, h01=0x0050, text=» ST A2,DATEND+STKCOM«, t00=0x0116, t01=0x00f2}
0x1b326…1b344 Head {h00=0x001a, h01=0x0050, text=» ADS A3,DATEND+STKCOM «, t00=0x0116, t01=0x010e}
0x1b344…1b37e Head {h00=0x0036, h01=0x0050, text=» LD A8,TOTSGM+STKCOM ANY SEGMENTS IN APPLICATION? «, t00=0x0116, t01=0x012c}
0x1b37e…1b398 Head {h00=0x0016, h01=0x0050, text=» RF(Z) NOSGMT NO! «, t00=0x0116, t01=0x0166}
0x1b398…1b3c4 Head {h00=0x0028, h01=0x0050, text=» SUR A8,A8 RESET FSTADR IF SEGMENTS «, t00=0x0116, t01=0x0180}
0x1b3c4…1b3d6 Head {h00=0x000e, h01=0x0050, text=» RF SEGMTS«, t00=0x0117, t01=0x001c}
0x1b3d6…1b40c Head {h00=0x0032, h01=0x0050, text=»NOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP «, t00=0x0117, t01=0x002e}
0x1b40c…1b434 Head {h00=0x0024, h01=0x0050, text=»SEGMTS ST A8,FSTADR+STKCOM STORE«, t00=0x0117, t01=0x0064}
0x1b434…1b456 Head {h00=0x001e, h01=0x0050, text=»MOVNXT LDR* A4,A1 GET WORD«, t00=0x0117, t01=0x008c}
0x1b456…1b46e Head {h00=0x0014, h01=0x0050, text=» STR A4,A2 STORE«, t00=0x0117, t01=0x00ae}
0x1b46e…1b480 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0117, t01=0x00c6}
0x1b480…1b492 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0117, t01=0x00d8}
0x1b492…1b4ae Head {h00=0x0018, h01=0x0050, text=» SUK A3,2 DEC LENGTH«, t00=0x0117, t01=0x00ea}
0x1b4ae…1b4c4 Head {h00=0x0012, h01=0x0050, text=» RB(NN) MOVNXT«, t00=0x0117, t01=0x0106}
0x1b4c4…1b4e6 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF MEMORY OVERFLOW«, t00=0x0117, t01=0x011c}
0x1b4e6…1b4fe Head {h00=0x0014, h01=0x0050, text=» LDR A1,A9 SAVE «, t00=0x0117, t01=0x013e}
0x1b4fe…1b512 Head {h00=0x0010, h01=0x0050, text=» LDR A11,A2 «, t00=0x0117, t01=0x0156}
0x1b512…1b52a Head {h00=0x0014, h01=0x0050, text=» LD A9,SCTEFA+2 «, t00=0x0117, t01=0x016a}
0x1b52a…1b550 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x0117, t01=0x0182}
0x1b550…1b56a Head {h00=0x0016, h01=0x0050, text=» RF(NG) SYA202 NO!«, t00=0x0118, t01=0x0018}
0x1b56a…1b580 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x0118, t01=0x0032}
0x1b580…1b594 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0118, t01=0x0048}
0x1b594…1b5a8 Head {h00=0x0010, h01=0x0050, text=»SYA202 EQU *«, t00=0x0118, t01=0x005c}
0x1b5a8…1b5c2 Head {h00=0x0016, h01=0x0050, text=» LDR A9,A1 RELOAD «, t00=0x0118, t01=0x0070}
0x1b5c2…1b5f2 Head {h00=0x002c, h01=0x0050, text=» SUKL A9,10 RESERVE 5 WORDS FOR DEBUGGER«, t00=0x0118, t01=0x008a}
0x1b5f2…1b616 Head {h00=0x0020, h01=0x0050, text=» ANKL A9,/FFFE EVEN ADDRESS «, t00=0x0118, t01=0x00ba}
0x1b616…1b648 Head {h00=0x002e, h01=0x0050, text=» ST A9,LSTADR+STKCOM SAVE END OF FREE AREA«, t00=0x0118, t01=0x00de}
0x1b648…1b672 Head {h00=0x0026, h01=0x0050, text=» CALL MOVCOM ALLOC/MOVE PGTG-DATA «, t00=0x0118, t01=0x0110}
0x1b672…1b67a Head {h00=0x0004, h01=0x0050, t00=0x0118, t01=0x013a}
0x1b67a…1b686 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0118, t01=0x0142}
0x1b686…1b6b6 Head {h00=0x002c, h01=0x0050, text=» LD A1,DDIVTO+STKEND PROT. NEW START ADR«, t00=0x0118, t01=0x014e}
0x1b6b6…1b6d0 Head {h00=0x0016, h01=0x0050, text=» AD A1,PLTGCS,A10 «, t00=0x0118, t01=0x017e}
0x1b6d0…1b702 Head {h00=0x002e, h01=0x0050, text=» SU A1,DDIVFR,A10 ICB-PLTGCS NEW START ADR«, t00=0x0119, t01=0x0008}
0x1b702…1b72c Head {h00=0x0026, h01=0x0050, text=» LD A3,PLTGCL,A10 ICB-PLTGC LENGTH«, t00=0x0119, t01=0x003a}
0x1b72c…1b756 Head {h00=0x0026, h01=0x0050, text=» LD A6,LSTADR+STKCOM LAST FREE ADR«, t00=0x0119, t01=0x0064}
0x1b756…1b788 Head {h00=0x002e, h01=0x0050, text=» SU A6,PLTGCE,A10 GET DISPL FOR RELOCATION«, t00=0x0119, t01=0x008e}
0x1b788…1b7a2 Head {h00=0x0016, h01=0x0050, text=» CALL CALLMO MOVE «, t00=0x0119, t01=0x00c0}
0x1b7a2…1b7dc Head {h00=0x0036, h01=0x0050, text=» ST A2,PLTGCS,A10 ICB-PLTGCS NEW (FINAL) START ADR«, t00=0x0119, t01=0x00da}
0x1b7dc…1b80e Head {h00=0x002e, h01=0x0050, text=» CALL RELTGC RELOCATE ICB-PLTGC CALL TABLE«, t00=0x0119, t01=0x0114}
0x1b80e…1b840 Head {h00=0x002e, h01=0x0050, text=» ST A6,TGCREL+STKEND ICB-PLTGC RELOCATION «, t00=0x0119, t01=0x0146}
0x1b840…1b864 Head {h00=0x0020, h01=0x0050, text=» LD A4,SHADOW,A10 SHTAB1 ADR«, t00=0x0119, t01=0x0178}
0x1b864…1b886 Head {h00=0x001e, h01=0x0050, text=» LDR* A5,A4 SHTAB1 LENGTH «, t00=0x011a, t01=0x000c}
0x1b886…1b8a4 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A4 SHTAB1 ADR «, t00=0x011a, t01=0x002e}
0x1b8a4…1b8c2 Head {h00=0x001a, h01=0x0050, text=» ADR A4,A5 SHTAB2 ADR «, t00=0x011a, t01=0x004c}
0x1b8c2…1b8f0 Head {h00=0x002a, h01=0x0050, text=» SUK A5,2 ADJUST FOR TABLE LENGTH WORD«, t00=0x011a, t01=0x006a}
0x1b8f0…1b904 Head {h00=0x0010, h01=0x0050, text=»TCLLOP EQU *«, t00=0x011a, t01=0x0098}
0x1b904…1b922 Head {h00=0x001a, h01=0x0050, text=» ADK A4,2 SHTAB2 ENTRY«, t00=0x011a, t01=0x00ac}
0x1b922…1b93e Head {h00=0x0018, h01=0x0050, text=» LDR* A7,A4 ITCT ADR«, t00=0x011a, t01=0x00ca}
0x1b93e…1b95e Head {h00=0x001c, h01=0x0050, text=» CALL FNDBLK FIND TCLBLK«, t00=0x011a, t01=0x00e6}
0x1b95e…1b97c Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A3 STACK-SIZE«, t00=0x011a, t01=0x0106}
0x1b97c…1b9a2 Head {h00=0x0022, h01=0x0050, text=» ST A1,ITCNEP,A7 SAVE IN ITCT «, t00=0x011a, t01=0x0124}
0x1b9a2…1b9d0 Head {h00=0x002a, h01=0x0050, text=» LD A1,TCLTLD,A3 PGTL-DATA-LENGTH-USED«, t00=0x011a, t01=0x014a}
0x1b9d0…1b9f6 Head {h00=0x0022, h01=0x0050, text=» ST A1,ITCGLL,A7 SAVE IN ITCT «, t00=0x011a, t01=0x0178}
0x1b9f6…1ba1c Head {h00=0x0022, h01=0x0050, text=» LDR A3,A5 NBR OF ITCT'S LEFT «, t00=0x011b, t01=0x000e}
0x1ba1c…1ba36 Head {h00=0x0016, h01=0x0050, text=» RF(Z) TCLEXT NONE«, t00=0x011b, t01=0x0034}
0x1ba36…1ba52 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A7 ITCT ADR «, t00=0x011b, t01=0x004e}
0x1ba52…1ba88 Head {h00=0x0032, h01=0x0050, text=» LD A3,TGCREL+STKEND GET ICB-PLTGC RELOCATION «, t00=0x011b, t01=0x006a}
0x1ba88…1bac2 Head {h00=0x0036, h01=0x0050, text=» ADS A3,ITCTGC,A1 RELOCATE ICB-PLTGC-MAIN IN ITCT «, t00=0x011b, t01=0x00a0}
0x1bac2…1baf0 Head {h00=0x002a, h01=0x0050, text=» LD A3,PGTGAD+STKEND PGTG-DATA ADDRESS«, t00=0x011b, t01=0x00da}
0x1baf0…1bb20 Head {h00=0x002c, h01=0x0050, text=» ST A3,ITCCOM,A1 UPDATE POINTER IN ITCT «, t00=0x011b, t01=0x0108}
0x1bb20…1bb48 Head {h00=0x0024, h01=0x0050, text=» LD A3,DDIVFR,A10 APPTAB ADDRESS«, t00=0x011b, t01=0x0138}
0x1bb48…1bb74 Head {h00=0x0028, h01=0x0050, text=» LD A3,APPCOM,A3 COMMON PROGRAM SEGM«, t00=0x011b, t01=0x0160}
0x1bb74…1bbaa Head {h00=0x0032, h01=0x0050, text=» ST A3,ITCCSB,A1 SAVE IN CURRENT SEGMENT BASE «, t00=0x011b, t01=0x018c}
0x1bbaa…1bbda Head {h00=0x002c, h01=0x0050, text=» LD A3,ITCTLT,A7 NBR OF ENTRIES IN TLTAB«, t00=0x011c, t01=0x0032}
0x1bbda…1bc04 Head {h00=0x0026, h01=0x0050, text=» SLL A3,1 NBR OF BYTES IN TLTAB «, t00=0x011c, t01=0x0062}
0x1bc04…1bc32 Head {h00=0x002a, h01=0x0050, text=» ADK A3,2 ADJUST FOR TLTAB LENGTH WORD«, t00=0x011c, t01=0x008c}
0x1bc32…1bc54 Head {h00=0x001e, h01=0x0050, text=» ADK A3,ITCTLT ITCT LENGTH«, t00=0x011c, t01=0x00ba}
0x1bc54…1bc84 Head {h00=0x002c, h01=0x0050, text=» ST A4,SAVE01+STKEND SAVE SHTAB2 POINTER«, t00=0x011c, t01=0x00dc}
0x1bc84…1bcb0 Head {h00=0x0028, h01=0x0050, text=» CALL CALLMO ALLOCATE AND MOVE ITCT «, t00=0x011c, t01=0x010c}
0x1bcb0…1bce0 Head {h00=0x002c, h01=0x0050, text=» LD A4,SAVE01+STKEND GET SHTAB2 POINTER «, t00=0x011c, t01=0x0138}
0x1bce0…1bd0a Head {h00=0x0026, h01=0x0050, text=» STR A2,A4 NEW ITCT ADR IN SHTAB2 «, t00=0x011c, t01=0x0168}
0x1bd0a…1bd38 (285, 0, 400) Head {h00=0x002a, h01=0x0050, text=» ST A2,SAVITC+STKEND SAVE NEW ITCT ADR«, t00=0x011d, t01=0x0004}
0x1bd38…1bd68 Head {h00=0x002c, h01=0x0050, text=» CALL MVPGTL ALLOCATE AND MOVE PGTL-DATA«, t00=0x011d, t01=0x0032}
0x1bd68…1bd9a Head {h00=0x002e, h01=0x0050, text=» CALL MVSTAT ALLOCATE AND MOVE STATIC-ZERO«, t00=0x011d, t01=0x0062}
0x1bd9a…1bdac Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x011d, t01=0x0094}
0x1bdac…1bde4 Head {h00=0x0034, h01=0x0050, text=» ST A2,DYNDIS+STKEND INIT.DYN.CORE TABLE DISPL. «, t00=0x011d, t01=0x00a6}
0x1bde4…1be0e Head {h00=0x0026, h01=0x0050, text=» CALL ALLDYN ALLOCATE DYNAMIC-CORE«, t00=0x011d, t01=0x00de}
0x1be0e…1be2a Head {h00=0x0018, h01=0x0050, text=» LDR* A3,A4 ITCT ADR«, t00=0x011d, t01=0x0108}
0x1be2a…1be50 Head {h00=0x0022, h01=0x0050, text=» SUK A5,2 COUNT NBR OF ITCT'S «, t00=0x011d, t01=0x0124}
0x1be50…1be72 Head {h00=0x001e, h01=0x0050, text=» RB(P) TCLLOP ITCT'S LEFT «, t00=0x011d, t01=0x014a}
0x1be72…1be86 Head {h00=0x0010, h01=0x0050, text=»TCLEXT EQU *«, t00=0x011d, t01=0x016c}
0x1be86…1be94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011d, t01=0x0180}
0x1be94…1bea8 Head {h00=0x0010, h01=0x0050, text=»SYA200 EQU *«, t00=0x011d, t01=0x018e}
0x1bea8…1bed6 Head {h00=0x002a, h01=0x0050, text=»* INCLUDE MOVED PROT.DDIV IN FREE AREA«, t00=0x011e, t01=0x0012}
0x1bed6…1bef2 Head {h00=0x0018, h01=0x0050, text=» LD A5,DDIVTO+STKEND«, t00=0x011e, t01=0x0040}
0x1bef2…1bf0e Head {h00=0x0018, h01=0x0050, text=» ST A5,DATEND+STKCOM«, t00=0x011e, t01=0x005c}
0x1bf0e…1bf16 Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x0078}
0x1bf16…1bf34 Head {h00=0x001a, h01=0x0050, text=»* CONTINUE IN PART 3 *«, t00=0x011e, t01=0x0080}
0x1bf34…1bf3c Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x009e}
0x1bf3c…1bf6a Head {h00=0x002a, h01=0x0050, text=» LDKL A5,START3 RELATIVE START ADDRESS«, t00=0x011e, t01=0x00a6}
0x1bf6a…1bf9a Head {h00=0x002c, h01=0x0050, text=» AD A5,M:REL+STKCOM ADD RELOCATION BASE «, t00=0x011e, t01=0x00d4}
0x1bf9a…1bfaa Head {h00=0x000c, h01=0x0050, text=» ABR A5 «, t00=0x011e, t01=0x0104}
0x1bfaa…1bfb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011e, t01=0x0114}
0x1bfb8…1bfc0 Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x0122}
0x1bfc0…1bfc8 Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x012a}
0x1bfc8…1c000 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x011e, t01=0x0132}
0x1c000…1c038 Head {h00=0x0034, h01=0x0050, text=»*** ***«, t00=0x011e, t01=0x016a}
0x1c038…1c070 Head {h00=0x0034, h01=0x0050, text=»** SYSLCO PART 3 **«, t00=0x011f, t01=0x0012}
0x1c070…1c0a8 Head {h00=0x0034, h01=0x0050, text=»** **«, t00=0x011f, t01=0x004a}
0x1c0a8…1c0e0 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x011f, t01=0x0082}
0x1c0e0…1c0e8 Head {h00=0x0004, h01=0x0050, t00=0x011f, t01=0x00ba}
0x1c0e8…1c120 Head {h00=0x0034, h01=0x0050, text=»* BUILD REAL ITCT'S. COPY ITCT'S ACCORDING TO*«, t00=0x011f, t01=0x00c2}
0x1c120…1c158 Head {h00=0x0034, h01=0x0050, text=»* SHADOW TABLE *«, t00=0x011f, t01=0x00fa}
0x1c158…1c190 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x011f, t01=0x0132}
0x1c190…1c1c8 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x011f, t01=0x016a}
0x1c1c8…1c1d0 Head {h00=0x0004, h01=0x0050, t00=0x0120, t01=0x0012}
0x1c1d0…1c1e4 Head {h00=0x0010, h01=0x0050, text=»PART3 EQU * «, t00=0x0120, t01=0x001a}
0x1c1e4…1c1ec Head {h00=0x0004, h01=0x0050, t00=0x0120, t01=0x002e}
0x1c1ec…1c1fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0120, t01=0x0036}
0x1c1fa…1c220 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0120, t01=0x0044}
0x1c220…1c246 Head {h00=0x0022, h01=0x0050, text=»* START OF PROGRAM PART 3 * «, t00=0x0120, t01=0x006a}
0x1c246…1c26c Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0120, t01=0x0090}
0x1c26c…1c274 Head {h00=0x0004, h01=0x0050, t00=0x0120, t01=0x00b6}
0x1c274…1c2aa Head {h00=0x0032, h01=0x0050, text=»** G E T T A B **«, t00=0x0120, t01=0x00be}
0x1c2aa…1c2e0 Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x0120, t01=0x00f4}
0x1c2e0…1c316 Head {h00=0x0032, h01=0x0050, text=»** FIND TTAB ADDRESS **«, t00=0x0120, t01=0x012a}
0x1c316…1c34c Head {h00=0x0032, h01=0x0050, text=»** **«, t00=0x0120, t01=0x0160}
0x1c34c…1c382 Head {h00=0x0032, h01=0x0050, text=»** INPUT :A8=POINTER TO ITCT ADR **«, t00=0x0121, t01=0x0008}
0x1c382…1c3b8 Head {h00=0x0032, h01=0x0050, text=»** OUTPUT:A2=TTAB-ADDRESS **«, t00=0x0121, t01=0x003e}
0x1c3b8…1c3ee Head {h00=0x0032, h01=0x0050, text=»** A1=TID **«, t00=0x0121, t01=0x0074}
0x1c3ee…1c424 Head {h00=0x0032, h01=0x0050, text=»** WORKREGS:A3,A4,A10 **«, t00=0x0121, t01=0x00aa}
0x1c424…1c45a Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0121, t01=0x00e0}
0x1c45a…1c462 Head {h00=0x0004, h01=0x0050, t00=0x0121, t01=0x0116}
0x1c462…1c476 Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x0121, t01=0x011e}
0x1c476…1c498 Head {h00=0x001e, h01=0x0050, text=» LDR* A10,A8 ITCT ADDRESS «, t00=0x0121, t01=0x0132}
0x1c498…1c4c2 Head {h00=0x0026, h01=0x0050, text=» LD A1,ITCTID,A10 GET TID TO MATCH«, t00=0x0121, t01=0x0154}
0x1c4c2…1c4ec Head {h00=0x0026, h01=0x0050, text=»GETTTB EQU * ENTRY. INPUT: A1=TID «, t00=0x0121, t01=0x017e}
0x1c4ec…1c514 Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTTCT GET TC:TAB ADDRESS«, t00=0x0122, t01=0x0018}
0x1c514…1c534 Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A4 TCTAB LENGTH«, t00=0x0122, t01=0x0040}
0x1c534…1c54c Head {h00=0x0014, h01=0x0050, text=»GETT10 ADK A4,2 «, t00=0x0122, t01=0x0060}
0x1c54c…1c562 Head {h00=0x0012, h01=0x0050, text=» SUK A3,2 ALL?«, t00=0x0122, t01=0x0078}
0x1c562…1c57c Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETT20 NO!«, t00=0x0122, t01=0x008e}
0x1c57c…1c5aa Head {h00=0x002a, h01=0x0050, text=» LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) «, t00=0x0122, t01=0x00a8}
0x1c5aa…1c5c8 Head {h00=0x001a, h01=0x0050, text=» LDK A1,LMP5 TID ERROR«, t00=0x0122, t01=0x00d6}
0x1c5c8…1c5dc Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0122, t01=0x00f4}
0x1c5dc…1c602 Head {h00=0x0022, h01=0x0050, text=»GETT20 LDR* A2,A4 TTAB-ADDRESS«, t00=0x0122, t01=0x0108}
0x1c602…1c626 Head {h00=0x0020, h01=0x0050, text=» CW A1,TTBTID,A2 TID EQUAL ?«, t00=0x0122, t01=0x012e}
0x1c626…1c640 Head {h00=0x0016, h01=0x0050, text=» RB(NE) GETT10 NO!«, t00=0x0122, t01=0x0152}
0x1c640…1c674 Head {h00=0x0030, h01=0x0050, text=» CM TTB:PP,A2 RESET PENDING POINTER IN TTAB «, t00=0x0122, t01=0x016c}
0x1c674…1c694 Head {h00=0x001c, h01=0x0050, text=» ST A2,TTAB+STKCOM SAVE «, t00=0x0123, t01=0x0010}
0x1c694…1c6ce Head {h00=0x0036, h01=0x0050, text=» LD A3,ITCSPL,A10 GET SPL-PBS.PROGRAM-DATA ADDRESS«, t00=0x0123, t01=0x0030}
0x1c6ce…1c6f6 Head {h00=0x0024, h01=0x0050, text=» ST A3,TTB:SA+20,A2 SAVE IN TTAB«, t00=0x0123, t01=0x006a}
0x1c6f6…1c732 Head {h00=0x0038, h01=0x0050, text=» ADKL A3,SPLSIZ-SPLCPB-2 POINT AT SPL-PBS STACK-BASE«, t00=0x0123, t01=0x0092}
0x1c732…1c75a Head {h00=0x0024, h01=0x0050, text=» ST A3,TTB:SA+28,A2 SAVE IN TTAB«, t00=0x0123, t01=0x00ce}
0x1c75a…1c76a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0123, t01=0x00f6}
0x1c76a…1c778 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0123, t01=0x0106}
0x1c778…1c780 Head {h00=0x0004, h01=0x0050, t00=0x0123, t01=0x0114}
0x1c780…1c788 Head {h00=0x0004, h01=0x0050, t00=0x0123, t01=0x011c}
0x1c788…1c7c4 Head {h00=0x0038, h01=0x0050, text=»** Q U E J O B ** «, t00=0x0123, t01=0x0124}
0x1c7c4…1c800 Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x0123, t01=0x0160}
0x1c800…1c83c Head {h00=0x0038, h01=0x0050, text=»** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** «, t00=0x0124, t01=0x000c}
0x1c83c…1c878 Head {h00=0x0038, h01=0x0050, text=»** 0, ENB. ** «, t00=0x0124, t01=0x0048}
0x1c878…1c8b4 Head {h00=0x0038, h01=0x0050, text=»** ** «, t00=0x0124, t01=0x0084}
0x1c8b4…1c8f0 Head {h00=0x0038, h01=0x0050, text=»** INPUT: A10=ITCT-ADDRESS ** «, t00=0x0124, t01=0x00c0}
0x1c8f0…1c92c Head {h00=0x0038, h01=0x0050, text=»** A2=TTAB-ADDRESS ** «, t00=0x0124, t01=0x00fc}
0x1c92c…1c968 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0124, t01=0x0138}
0x1c968…1c970 Head {h00=0x0004, h01=0x0050, t00=0x0124, t01=0x0174}
0x1c970…1c984 Head {h00=0x0010, h01=0x0050, text=»QUEJOB EQU *«, t00=0x0124, t01=0x017c}
0x1c984…1c9a8 Head {h00=0x0020, h01=0x0050, text=»* QUEUE THIS TASK (THIS TID)«, t00=0x0124, t01=0x0190}
0x1c9a8…1c9b0 Head {h00=0x0004, h01=0x0050, t00=0x0125, t01=0x0024}
0x1c9b0…1c9e4 Head {h00=0x0030, h01=0x0050, text=» LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS«, t00=0x0125, t01=0x002c}
0x1c9e4…1ca00 Head {h00=0x0018, h01=0x0050, text=» AD A3,M:REL+STKCOM «, t00=0x0125, t01=0x0060}
0x1ca00…1ca20 Head {h00=0x001c, h01=0x0050, text=» STR A3,A15 PUT ON STACK«, t00=0x0125, t01=0x007c}
0x1ca20…1ca4e Head {h00=0x002a, h01=0x0050, text=» LDKL A3,/00C0 SET LEVEL 0 AND ENABLE «, t00=0x0125, t01=0x009c}
0x1ca4e…1ca66 Head {h00=0x0014, h01=0x0050, text=» STR A3,A15 PSW «, t00=0x0125, t01=0x00ca}
0x1ca66…1ca88 Head {h00=0x001e, h01=0x0050, text=» CF A15,SAVE8 SAVE 8 REGS «, t00=0x0125, t01=0x00e2}
0x1ca88…1cab0 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 CLEAR ABORT INDICATOR «, t00=0x0125, t01=0x0104}
0x1cab0…1cad4 Head {h00=0x0020, h01=0x0050, text=» LDR A5,A2 GET TTAB-ADDRESS «, t00=0x0125, t01=0x012c}
0x1cad4…1cafa Head {h00=0x0022, h01=0x0050, text=» LD A1,SAVITC+STKEND ITCT ADR «, t00=0x0125, t01=0x0150}
0x1cafa…1cb0e Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A1 «, t00=0x0125, t01=0x0176}
0x1cb0e…1cb3a Head {h00=0x0028, h01=0x0050, text=» ANK A3,/FF SEGMENT NBR TO ACTIVATE «, t00=0x0125, t01=0x018a}
0x1cb3a…1cb5e Head {h00=0x0020, h01=0x0050, text=» LD A1,2,A1 DISPL IN SEGMENT«, t00=0x0126, t01=0x0026}
0x1cb5e…1cb8c Head {h00=0x002a, h01=0x0050, text=» LD A2,INTENT+STKEND INTERPRETER ENTRY«, t00=0x0126, t01=0x004a}
0x1cb8c…1cba2 Head {h00=0x0012, h01=0x0050, text=» CF A15,ACTOT «, t00=0x0126, t01=0x0078}
0x1cba2…1cbca Head {h00=0x0024, h01=0x0050, text=»GETT40 ABL RETUR8 RELOAD 8 REGS «, t00=0x0126, t01=0x008e}
0x1cbca…1cbde Head {h00=0x0010, h01=0x0050, text=»RETUR EQU * «, t00=0x0126, t01=0x00b6}
0x1cbde…1cbee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0126, t01=0x00ca}
0x1cbee…1cbfc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0126, t01=0x00da}
0x1cbfc…1cc20 Head {h00=0x0020, h01=0x0050, text=»* G E N C O P * «, t00=0x0126, t01=0x00e8}
0x1cc20…1cc44 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0126, t01=0x010c}
0x1cc44…1cc68 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0126, t01=0x0130}
0x1cc68…1cc7c Head {h00=0x0010, h01=0x0050, text=»GENCOP EQU *«, t00=0x0126, t01=0x0154}
0x1cc7c…1cca0 Head {h00=0x0020, h01=0x0050, text=» ST A5,SAVE05+STKEND SAVE A5«, t00=0x0126, t01=0x0168}
0x1cca0…1ccc4 Head {h00=0x0020, h01=0x0050, text=» ST A6,SAVE06+STKEND SAVE A6«, t00=0x0126, t01=0x018c}
0x1ccc4…1cce2 Head {h00=0x001a, h01=0x0050, text=» CALL FNDTID FIND TID «, t00=0x0127, t01=0x0020}
0x1cce2…1cd10 Head {h00=0x002a, h01=0x0050, text=» LD A10,SAVITC+STKEND GET ITCT ADDRESS«, t00=0x0127, t01=0x003e}
0x1cd10…1cd2c Head {h00=0x0018, h01=0x0050, text=» LDR A1,A10 ITCT ADR«, t00=0x0127, t01=0x006c}
0x1cd2c…1cd54 Head {h00=0x0024, h01=0x0050, text=» LDK A3,ITCTLT TLTAB START DISPL«, t00=0x0127, t01=0x0088}
0x1cd54…1cd84 Head {h00=0x002c, h01=0x0050, text=» LD A2,ITCTLT,A1 NBR OF ENTRIES IN TLTAB«, t00=0x0127, t01=0x00b0}
0x1cd84…1cdae Head {h00=0x0026, h01=0x0050, text=» SLL A2,1 NBR OF BYTES IN TLTAB «, t00=0x0127, t01=0x00e0}
0x1cdae…1cdd8 Head {h00=0x0026, h01=0x0050, text=» ADK A2,2 ADJUST FOR TLTAB COUNTER«, t00=0x0127, t01=0x010a}
0x1cdd8…1cdf6 Head {h00=0x001a, h01=0x0050, text=» ADR A3,A2 ITCT LENGTH«, t00=0x0127, t01=0x0134}
0x1cdf6…1ce14 Head {h00=0x001a, h01=0x0050, text=» CALL CALLMO COPY ITCT«, t00=0x0127, t01=0x0152}
0x1ce14…1ce3e Head {h00=0x0026, h01=0x0050, text=» ST A2,SAVITC+STKEND SAVE ITCT ADR«, t00=0x0127, t01=0x0170}
0x1ce3e…1ce66 Head {h00=0x0024, h01=0x0050, text=» LD A3,SAVTID+STKEND GET NEW TID«, t00=0x0128, t01=0x000a}
0x1ce66…1ce8c Head {h00=0x0022, h01=0x0050, text=» ST A3,ITCTID,A2 STORE IN ITCT«, t00=0x0128, t01=0x0032}
0x1ce8c…1cea8 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A2 ITCT ADR «, t00=0x0128, t01=0x0058}
0x1cea8…1ced8 Head {h00=0x002c, h01=0x0050, text=» CALL MVPGTL ALLOCATE AND MOVE PGTL-DATA«, t00=0x0128, t01=0x0074}
0x1ced8…1cefe Head {h00=0x0022, h01=0x0050, text=» LD A3,SAVITC+STKEND ITCT ADR «, t00=0x0128, t01=0x00a4}
0x1cefe…1cf30 Head {h00=0x002e, h01=0x0050, text=» CALL MVSTAT ALLOCATE AND MOVE STATIC-ZERO«, t00=0x0128, t01=0x00ca}
0x1cf30…1cf56 Head {h00=0x0022, h01=0x0050, text=» LD A3,SAVITC+STKEND ITCT ADR «, t00=0x0128, t01=0x00fc}
0x1cf56…1cf86 Head {h00=0x002c, h01=0x0050, text=» LD A10,SAVE01+STKEND GET APPL.SAVE AREA«, t00=0x0128, t01=0x0122}
0x1cf86…1cfb0 Head {h00=0x0026, h01=0x0050, text=» CALL ALLDYN ALLOCATE DYNAMIC CORE«, t00=0x0128, t01=0x0152}
0x1cfb0…1cfd0 Head {h00=0x001c, h01=0x0050, text=» LD A1,SAVTID+STKEND TID«, t00=0x0128, t01=0x017c}
0x1cfd0…1cff0 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A7 ITCT ADDRESS«, t00=0x0129, t01=0x000c}
0x1cff0…1d012 Head {h00=0x001e, h01=0x0050, text=» CALL GETTTB FIND TTAB ADR«, t00=0x0129, t01=0x002c}
0x1d012…1d036 Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x0129, t01=0x004e}
0x1d036…1d05c Head {h00=0x0022, h01=0x0050, text=» LD A10,SAVITC+STKEND ITCT ADR«, t00=0x0129, t01=0x0072}
0x1d05c…1d07c Head {h00=0x001c, h01=0x0050, text=» LDR A5,A10 ITCT ADDRESS«, t00=0x0129, t01=0x0098}
0x1d07c…1d08e Head {h00=0x000e, h01=0x0050, text=» ADK A5,22«, t00=0x0129, t01=0x00b8}
0x1d08e…1d0ca Head {h00=0x0038, h01=0x0050, text=» ST A5,TTB:SA+26,A2 SAVE ITCT ADR IN TTAB(SAVE-A13) «, t00=0x0129, t01=0x00ca}
0x1d0ca…1d0e0 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x0129, t01=0x0106}
0x1d0e0…1d114 Head {h00=0x0030, h01=0x0050, text=» ADKL A5,ITCCSB-ITCDCD POINT AT CSB IN ITCT «, t00=0x0129, t01=0x011c}
0x1d114…1d142 Head {h00=0x002a, h01=0x0050, text=» ST A5,TTB:CB,A2 SAVE POINTER IN TTAB «, t00=0x0129, t01=0x0150}
0x1d142…1d14e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0129, t01=0x017e}
0x1d14e…1d164 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0129, t01=0x018a}
0x1d164…1d18c Head {h00=0x0024, h01=0x0050, text=» LD A5,SAVE05+STKEND RESTORE A5 «, t00=0x012a, t01=0x0010}
0x1d18c…1d1b4 Head {h00=0x0024, h01=0x0050, text=» LD A6,SAVE06+STKEND RESTORE A6 «, t00=0x012a, t01=0x0038}
0x1d1b4…1d1c4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012a, t01=0x0060}
0x1d1c4…1d1d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012a, t01=0x0070}
0x1d1d2…1d1f8 Head {h00=0x0022, h01=0x0050, text=»* F N D T I D * «, t00=0x012a, t01=0x007e}
0x1d1f8…1d21e Head {h00=0x0022, h01=0x0050, text=»* * «, t00=0x012a, t01=0x00a4}
0x1d21e…1d244 Head {h00=0x0022, h01=0x0050, text=»* FIND TID FOLLOWING "A1" * «, t00=0x012a, t01=0x00ca}
0x1d244…1d26a Head {h00=0x0022, h01=0x0050, text=»* IN SHTAB4 * «, t00=0x012a, t01=0x00f0}
0x1d26a…1d290 Head {h00=0x0022, h01=0x0050, text=»* * «, t00=0x012a, t01=0x0116}
0x1d290…1d2b6 Head {h00=0x0022, h01=0x0050, text=»* INPUT : A1=TID * «, t00=0x012a, t01=0x013c}
0x1d2b6…1d2dc Head {h00=0x0022, h01=0x0050, text=»* EXIT : A1=NEW TID * «, t00=0x012a, t01=0x0162}
0x1d2dc…1d302 Head {h00=0x0022, h01=0x0050, text=»* WORK : A2,A3 * «, t00=0x012a, t01=0x0188}
0x1d302…1d328 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x012b, t01=0x001e}
0x1d328…1d330 Head {h00=0x0004, h01=0x0050, t00=0x012b, t01=0x0044}
0x1d330…1d344 Head {h00=0x0010, h01=0x0050, text=»FNDTID EQU *«, t00=0x012b, t01=0x004c}
0x1d344…1d368 Head {h00=0x0020, h01=0x0050, text=» LD A2,SHADOW,A10 SHTAB1 ADR«, t00=0x012b, t01=0x0060}
0x1d368…1d38e Head {h00=0x0022, h01=0x0050, text=» LD* A3,SHADOW,A10 SHTAB1 LEN «, t00=0x012b, t01=0x0084}
0x1d38e…1d3ac Head {h00=0x001a, h01=0x0050, text=» ADR A2,A3 SHTAB2 ADR «, t00=0x012b, t01=0x00aa}
0x1d3ac…1d3ca Head {h00=0x001a, h01=0x0050, text=» ADR A2,A3 SHTAB3 ADR «, t00=0x012b, t01=0x00c8}
0x1d3ca…1d3e8 Head {h00=0x001a, h01=0x0050, text=» ADR A2,A3 SHTAB4 ADR «, t00=0x012b, t01=0x00e6}
0x1d3e8…1d406 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A2 SHTAB4 LEN«, t00=0x012b, t01=0x0104}
0x1d406…1d41a Head {h00=0x0010, h01=0x0050, text=»FNDTI0 EQU *«, t00=0x012b, t01=0x0122}
0x1d41a…1d436 Head {h00=0x0018, h01=0x0050, text=» SUK A3,1 FINISHED ?«, t00=0x012b, t01=0x0136}
0x1d436…1d450 Head {h00=0x0016, h01=0x0050, text=» RF(NN) FNDTI1 NO «, t00=0x012b, t01=0x0152}
0x1d450…1d472 Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP5 YES,TID ERROR«, t00=0x012b, t01=0x016c}
0x1d472…1d486 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x012b, t01=0x018e}
0x1d486…1d49a Head {h00=0x0010, h01=0x0050, text=»FNDTI1 EQU *«, t00=0x012c, t01=0x0012}
0x1d49a…1d4ba Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 ADJUST POINTER«, t00=0x012c, t01=0x0026}
0x1d4ba…1d4da Head {h00=0x001c, h01=0x0050, text=» CWR* A1,A2 TID FOUND ? «, t00=0x012c, t01=0x0046}
0x1d4da…1d4fc Head {h00=0x001e, h01=0x0050, text=» RB(NE) FNDTI0 NO,TRY NEXT«, t00=0x012c, t01=0x0066}
0x1d4fc…1d522 Head {h00=0x0022, h01=0x0050, text=» LD A1,2,A2 YES,LOAD NEXT TID «, t00=0x012c, t01=0x0088}
0x1d522…1d546 Head {h00=0x0020, h01=0x0050, text=» ST A1,SAVTID+STKEND SAVE IT«, t00=0x012c, t01=0x00ae}
0x1d546…1d556 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012c, t01=0x00d2}
0x1d556…1d564 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012c, t01=0x00e2}
0x1d564…1d58c Head {h00=0x0024, h01=0x0050, text=»* A L L D Y N *«, t00=0x012c, t01=0x00f0}
0x1d58c…1d5b4 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x012c, t01=0x0118}
0x1d5b4…1d5dc Head {h00=0x0024, h01=0x0050, text=»* ALLOCATE DYNAMIC-CORE *«, t00=0x012c, t01=0x0140}
0x1d5dc…1d604 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x012c, t01=0x0168}
0x1d604…1d62c Head {h00=0x0024, h01=0x0050, text=»* INPUT : A3 ITCT ADDRESS *«, t00=0x012c, t01=0x0190}
0x1d62c…1d654 Head {h00=0x0024, h01=0x0050, text=»* EXIT : ITCT IS UPDATED *«, t00=0x012d, t01=0x0028}
0x1d654…1d67c Head {h00=0x0024, h01=0x0050, text=»* WITH DYNAMIC-CORE *«, t00=0x012d, t01=0x0050}
0x1d67c…1d6a4 Head {h00=0x0024, h01=0x0050, text=»* POINTERS *«, t00=0x012d, t01=0x0078}
0x1d6a4…1d6cc Head {h00=0x0024, h01=0x0050, text=»* WORK : A1-A3,A9,A11 *«, t00=0x012d, t01=0x00a0}
0x1d6cc…1d6f4 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x012d, t01=0x00c8}
0x1d6f4…1d6fc Head {h00=0x0004, h01=0x0050, t00=0x012d, t01=0x00f0}
0x1d6fc…1d710 Head {h00=0x0010, h01=0x0050, text=»ALLDYN EQU *«, t00=0x012d, t01=0x00f8}
0x1d710…1d72c Head {h00=0x0018, h01=0x0050, text=» LDR A7,A3 ITCT ADR «, t00=0x012d, t01=0x010c}
0x1d72c…1d758 Head {h00=0x0028, h01=0x0050, text=» LD A3,ITCNEP,A3 STACK-SIZE REQUIRED«, t00=0x012d, t01=0x0128}
0x1d758…1d78c Head {h00=0x0030, h01=0x0050, text=» LD A9,FSTADR+STKCOM SEGMENTED APPLICATION? «, t00=0x012d, t01=0x0154}
0x1d78c…1d7a8 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ALLDY1 NO!! «, t00=0x012d, t01=0x0188}
0x1d7a8…1d7d2 Head {h00=0x0026, h01=0x0050, text=» CALL CALLMO ALLOCATE FROM BOTTOM «, t00=0x012e, t01=0x0014}
0x1d7d2…1d7fa Head {h00=0x0024, h01=0x0050, text=» LD A3,ITCNEP,A7 DYN. CORE SIZE «, t00=0x012e, t01=0x003e}
0x1d7fa…1d80e Head {h00=0x0010, h01=0x0050, text=»ALLDY0 EQU *«, t00=0x012e, t01=0x0066}
0x1d80e…1d836 Head {h00=0x0024, h01=0x0050, text=» ST A2,ITCDCB,A7 SAVE BASE PNTR «, t00=0x012e, t01=0x007a}
0x1d836…1d862 Head {h00=0x0028, h01=0x0050, text=» ST A2,ITCDCC,A7 SAVE CURRENT EXTENT«, t00=0x012e, t01=0x00a2}
0x1d862…1d880 Head {h00=0x001a, h01=0x0050, text=» ADR A3,A2 + BASE-PNTR«, t00=0x012e, t01=0x00ce}
0x1d880…1d8a8 Head {h00=0x0024, h01=0x0050, text=» SUKL A3,SPLSIZ - SPL-STACK-SIZE«, t00=0x012e, t01=0x00ec}
0x1d8a8…1d8d4 Head {h00=0x0028, h01=0x0050, text=» ST A3,ITCDCD,A7 SAVE DDI-POOL-BASE «, t00=0x012e, t01=0x0114}
0x1d8d4…1d900 Head {h00=0x0028, h01=0x0050, text=» ADK A3,SPLCPB POINT AT SPL-PBS-PNTR«, t00=0x012e, t01=0x0140}
0x1d900…1d92a Head {h00=0x0026, h01=0x0050, text=» ST A3,ITCSPL,A7 SAVE SPL-PBS-PNTR«, t00=0x012e, t01=0x016c}
0x1d92a…1d94e Head {h00=0x0020, h01=0x0050, text=» LD A1,DYNTAD,A10 TABLE ADR «, t00=0x012f, t01=0x0008}
0x1d94e…1d984 Head {h00=0x0032, h01=0x0050, text=» LD A2,DYNDIS+STKEND GET DYN.CORE TABLE DISPL «, t00=0x012f, t01=0x002c}
0x1d984…1d9ae Head {h00=0x0026, h01=0x0050, text=» ADR A1,A2 NEXT TABLE ENTRY TO USE«, t00=0x012f, t01=0x0062}
0x1d9ae…1d9cc Head {h00=0x001a, h01=0x0050, text=» ADK A2,2 COUNT DISPL «, t00=0x012f, t01=0x008c}
0x1d9cc…1da02 Head {h00=0x0032, h01=0x0050, text=» ST* A2,DYNTAD,A10 COUNT LENGTH WORD IN TABLE «, t00=0x012f, t01=0x00aa}
0x1da02…1da2a Head {h00=0x0024, h01=0x0050, text=» ST A2,DYNDIS+STKEND STEP DISPL «, t00=0x012f, t01=0x00e0}
0x1da2a…1da58 Head {h00=0x002a, h01=0x0050, text=» SUK A3,SPLCPB POINT AT SPL-PBS START «, t00=0x012f, t01=0x0108}
0x1da58…1da86 Head {h00=0x002a, h01=0x0050, text=» STR A3,A1 STORE SPL-PBS ADR IN TABLE «, t00=0x012f, t01=0x0136}
0x1da86…1da96 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012f, t01=0x0164}
0x1da96…1daaa Head {h00=0x0010, h01=0x0050, text=»ALLDY1 EQU *«, t00=0x012f, t01=0x0174}
0x1daaa…1dacc Head {h00=0x001e, h01=0x0050, text=» LDR A2,A9 SAVE START-ADR «, t00=0x012f, t01=0x0188}
0x1dacc…1daea Head {h00=0x001a, h01=0x0050, text=» ADR A9,A3 ADD LENGTH «, t00=0x0130, t01=0x001a}
0x1daea…1dafc Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0130, t01=0x0038}
0x1dafc…1db1c Head {h00=0x001c, h01=0x0050, text=» ANKL A9,/FFFE EVEN ADR «, t00=0x0130, t01=0x004a}
0x1db1c…1db24 Head {h00=0x0004, h01=0x0050, t00=0x0130, t01=0x006a}
0x1db24…1db3c Head {h00=0x0014, h01=0x0050, text=»* CHECK ADDRESS «, t00=0x0130, t01=0x0072}
0x1db3c…1db44 Head {h00=0x0004, h01=0x0050, t00=0x0130, t01=0x008a}
0x1db44…1db72 Head {h00=0x002a, h01=0x0050, text=» LD A11,LSTADR+STKCOM END OF FREE AREA«, t00=0x0130, t01=0x0092}
0x1db72…1db86 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x0130, t01=0x00c0}
0x1db86…1dba2 Head {h00=0x0018, h01=0x0050, text=» RF(NL) ALLDY2 OK ! «, t00=0x0130, t01=0x00d4}
0x1dba2…1dbc8 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x0130, t01=0x00f0}
0x1dbc8…1dbdc Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0130, t01=0x0116}
0x1dbdc…1dbf0 Head {h00=0x0010, h01=0x0050, text=»ALLDY2 EQU *«, t00=0x0130, t01=0x012a}
0x1dbf0…1dc24 Head {h00=0x0030, h01=0x0050, text=» ST A9,FSTADR+STKCOM NEW START OF FREE AREA «, t00=0x0130, t01=0x013e}
0x1dc24…1dc42 Head {h00=0x001a, h01=0x0050, text=» RB ALLDY0 UPDATE ITCT«, t00=0x0130, t01=0x0172}
0x1dc42…1dc50 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0130, t01=0x0190}
0x1dc50…1dc78 Head {h00=0x0024, h01=0x0050, text=»* M V S T A T *«, t00=0x0131, t01=0x000e}
0x1dc78…1dca0 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x0131, t01=0x0036}
0x1dca0…1dcc8 Head {h00=0x0024, h01=0x0050, text=»* ALLOCATE AND MOVE STATIC- *«, t00=0x0131, t01=0x005e}
0x1dcc8…1dcf0 Head {h00=0x0024, h01=0x0050, text=»* CORE *«, t00=0x0131, t01=0x0086}
0x1dcf0…1dd18 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x0131, t01=0x00ae}
0x1dd18…1dd40 Head {h00=0x0024, h01=0x0050, text=»* INPUT : A3 ITCT ADDRESS *«, t00=0x0131, t01=0x00d6}
0x1dd40…1dd68 Head {h00=0x0024, h01=0x0050, text=»* EXIT : A6 -1 *«, t00=0x0131, t01=0x00fe}
0x1dd68…1dd90 Head {h00=0x0024, h01=0x0050, text=»* A3 ITCT ADDRESS *«, t00=0x0131, t01=0x0126}
0x1dd90…1ddb8 Head {h00=0x0024, h01=0x0050, text=»* WORK : A1-A2,A7-A8,A10 *«, t00=0x0131, t01=0x014e}
0x1ddb8…1dde0 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0131, t01=0x0176}
0x1dde0…1dde8 Head {h00=0x0004, h01=0x0050, t00=0x0132, t01=0x000e}
0x1dde8…1ddfc Head {h00=0x0010, h01=0x0050, text=»MVSTAT EQU *«, t00=0x0132, t01=0x0016}
0x1ddfc…1de1e Head {h00=0x001e, h01=0x0050, text=» CALL PUSH SAVE REGISTERS «, t00=0x0132, t01=0x002a}
0x1de1e…1de3a Head {h00=0x0018, h01=0x0050, text=» LDR A7,A3 ITCT ADR «, t00=0x0132, t01=0x004c}
0x1de3a…1de70 Head {h00=0x0032, h01=0x0050, text=» ADK A3,ITCTGC POINT AT ICB-PLTGC-MAIN ADDRESS«, t00=0x0132, t01=0x0068}
0x1de70…1de9a Head {h00=0x0026, h01=0x0050, text=» ST A3,SAVE07+STKEND SAVE POINTER «, t00=0x0132, t01=0x009e}
0x1de9a…1deba Head {h00=0x001c, h01=0x0050, text=» ADK A7,ITCTLT TLTAB ADR«, t00=0x0132, t01=0x00c8}
0x1deba…1dede Head {h00=0x0020, h01=0x0050, text=» LDR A12,A7 SAVE TLTAB-BASE «, t00=0x0132, t01=0x00e8}
0x1dede…1df0a Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A7 NBR OF ENTRIES IN TLTAB «, t00=0x0132, t01=0x010c}
0x1df0a…1df1e Head {h00=0x0010, h01=0x0050, text=»MVSTA1 EQU *«, t00=0x0132, t01=0x0138}
0x1df1e…1df36 Head {h00=0x0014, h01=0x0050, text=» SUK A6,1 COUNT «, t00=0x0132, t01=0x014c}
0x1df36…1df64 Head {h00=0x002a, h01=0x0050, text=» RF(NN) MVSTA2 STATIC-ZERO AREAS LEFT «, t00=0x0132, t01=0x0164}
0x1df64…1df86 (307, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CALL POB RELOAD REGISTERS«, t00=0x0133, t01=0x0004}
0x1df86…1dfc2 Head {h00=0x0038, h01=0x0050, text=» LD A3,SAVE07+STKEND LOAD ICB-PLTGC-MAIN ADR POINTER«, t00=0x0133, t01=0x0026}
0x1dfc2…1dfee Head {h00=0x0028, h01=0x0050, text=» SUK A3,ITCTGC MAKE IT ITCT POINTER «, t00=0x0133, t01=0x0062}
0x1dfee…1e01a Head {h00=0x0028, h01=0x0050, text=» LDKL A6,-1 GIVE A6 ITS OUTPUT VALUE«, t00=0x0133, t01=0x008e}
0x1e01a…1e02a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0133, t01=0x00ba}
0x1e02a…1e03e Head {h00=0x0010, h01=0x0050, text=»MVSTA2 EQU *«, t00=0x0133, t01=0x00ca}
0x1e03e…1e068 Head {h00=0x0026, h01=0x0050, text=» ADK A7,2 POINT AT STATIC-ZERO ADR«, t00=0x0133, t01=0x00de}
0x1e068…1e08c Head {h00=0x0020, h01=0x0050, text=» LDR* A8,A7 STATIC-ZERO ADR «, t00=0x0133, t01=0x0108}
0x1e08c…1e0ae Head {h00=0x001e, h01=0x0050, text=» RB(Z) MVSTA1 EMPTY ENTRY «, t00=0x0133, t01=0x012c}
0x1e0ae…1e0e8 Head {h00=0x0036, h01=0x0050, text=» LD* A3,SAVE07+STKEND LOAD ICB-PLTGC-MAIN ADDRESS «, t00=0x0133, t01=0x014e}
0x1e0e8…1e102 Head {h00=0x0016, h01=0x0050, text=» SUR A10,A10 LEVEL«, t00=0x0133, t01=0x0188}
0x1e102…1e124 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 RESET INDICATOR «, t00=0x0134, t01=0x0012}
0x1e124…1e152 Head {h00=0x002a, h01=0x0050, text=» LD A2,FREQUE GET MONITOR BLOCK ADR =2«, t00=0x0134, t01=0x0034}
0x1e152…1e182 Head {h00=0x002c, h01=0x0050, text=» CALL FNDTGC FIND STATIC-ZERO ADR+LENGTH«, t00=0x0134, t01=0x0062}
0x1e182…1e1b4 Head {h00=0x002e, h01=0x0050, text=» CALL CALLMO ALLOCATE AND MOVE STATIC-ZERO«, t00=0x0134, t01=0x0092}
0x1e1b4…1e1da Head {h00=0x0022, h01=0x0050, text=» STR A2,A7 UPDATE TLTAB ENTRY «, t00=0x0134, t01=0x00c4}
0x1e1da…1e1ec Head {h00=0x000e, h01=0x0050, text=» RB MVSTA1«, t00=0x0134, t01=0x00ea}
0x1e1ec…1e1fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0134, t01=0x00fc}
0x1e1fa…1e224 Head {h00=0x0026, h01=0x0050, text=»* F N D T G C *«, t00=0x0134, t01=0x010a}
0x1e224…1e24e Head {h00=0x0026, h01=0x0050, text=»* *«, t00=0x0134, t01=0x0134}
0x1e24e…1e278 Head {h00=0x0026, h01=0x0050, text=»* FIND STATIC-ZERO ADR+LENGTH *«, t00=0x0134, t01=0x015e}
0x1e278…1e2a2 Head {h00=0x0026, h01=0x0050, text=»* FOR ONE PROGRAM *«, t00=0x0134, t01=0x0188}
0x1e2a2…1e2cc Head {h00=0x0026, h01=0x0050, text=»* *«, t00=0x0135, t01=0x0022}
0x1e2cc…1e2f6 Head {h00=0x0026, h01=0x0050, text=»* INPUT : A3 ICB-PLTGC ADR *«, t00=0x0135, t01=0x004c}
0x1e2f6…1e320 Head {h00=0x0026, h01=0x0050, text=»* A8 STATIC-ZERO ADR *«, t00=0x0135, t01=0x0076}
0x1e320…1e34a Head {h00=0x0026, h01=0x0050, text=»* WANTED *«, t00=0x0135, t01=0x00a0}
0x1e34a…1e374 Head {h00=0x0026, h01=0x0050, text=»* A10 0 (ZERO) *«, t00=0x0135, t01=0x00ca}
0x1e374…1e39e Head {h00=0x0026, h01=0x0050, text=»* A12 TLTAB BASE *«, t00=0x0135, t01=0x00f4}
0x1e39e…1e3cc Head {h00=0x002a, h01=0x0050, text=»* A2 MONITOR BLOCK ADR * =2«, t00=0x0135, t01=0x011e}
0x1e3cc…1e3f6 Head {h00=0x0026, h01=0x0050, text=»* EXIT : A1 STATIC-ZERO ADR *«, t00=0x0135, t01=0x014c}
0x1e3f6…1e424 Head {h00=0x002a, h01=0x0050, text=»* A2 MONITOR BLOCK ADR * =2«, t00=0x0135, t01=0x0176}
0x1e424…1e44e Head {h00=0x0026, h01=0x0050, text=»* A3 STATIC-ZERO LENGTH *«, t00=0x0136, t01=0x0014}
0x1e44e…1e478 Head {h00=0x0026, h01=0x0050, text=»* WORK : A2,A4,A5,A9,A11 *«, t00=0x0136, t01=0x003e}
0x1e478…1e4a6 Head {h00=0x002a, h01=0x0050, text=»* WORKAREA: USES MONITOR BLOCKS * =2«, t00=0x0136, t01=0x0068}
0x1e4a6…1e4d4 Head {h00=0x002a, h01=0x0050, text=»* AS STACK AREA * =2«, t00=0x0136, t01=0x0096}
0x1e4d4…1e4fe Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0136, t01=0x00c4}
0x1e4fe…1e506 Head {h00=0x0004, h01=0x0050, t00=0x0136, t01=0x00ee}
0x1e506…1e51a Head {h00=0x0010, h01=0x0050, text=»FNDTGC EQU *«, t00=0x0136, t01=0x00f6}
0x1e51a…1e532 Head {h00=0x0014, h01=0x0050, text=» LDR* A1,A3 =2 «, t00=0x0136, t01=0x010a}
0x1e532…1e548 Head {h00=0x0012, h01=0x0050, text=» SRL A1,8 =2 «, t00=0x0136, t01=0x0122}
0x1e548…1e56e Head {h00=0x0022, h01=0x0050, text=» SUK A1,/60 COBOL PROGRAM? =2 «, t00=0x0136, t01=0x0138}
0x1e56e…1e58c Head {h00=0x001a, h01=0x0050, text=» RF(Z) FNDT00 YES! =2 «, t00=0x0136, t01=0x015e}
0x1e58c…1e5b4 Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE NOT FOUND =2 «, t00=0x0136, t01=0x017c}
0x1e5b4…1e5d0 Head {h00=0x0018, h01=0x0050, text=» RF FNDTG0 RETURN =2«, t00=0x0137, t01=0x0014}
0x1e5d0…1e5e8 Head {h00=0x0014, h01=0x0050, text=»FNDT00 EQU * =2«, t00=0x0137, t01=0x0030}
0x1e5e8…1e614 Head {h00=0x0028, h01=0x0050, text=» LD A1,TGCSZD,A3 GET DISPL IN TLTAB «, t00=0x0137, t01=0x0048}
0x1e614…1e63c Head {h00=0x0024, h01=0x0050, text=» ADR A1,A12 POINT AT TLTAB-ENTRY«, t00=0x0137, t01=0x0074}
0x1e63c…1e66a Head {h00=0x002a, h01=0x0050, text=» ADK A1,2 ADJUST FOR TLTAB LENGTH-WORD«, t00=0x0137, t01=0x009c}
0x1e66a…1e68e Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A1 STATIC-ZERO-ADR «, t00=0x0137, t01=0x00ca}
0x1e68e…1e6aa Head {h00=0x0018, h01=0x0050, text=» CWR A1,A8 WANTED ? «, t00=0x0137, t01=0x00ee}
0x1e6aa…1e6c4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) FNDTG1 NO «, t00=0x0137, t01=0x010a}
0x1e6c4…1e6f4 Head {h00=0x002c, h01=0x0050, text=» ADK A3,TGCSZL YES,POINT AT LENGTH WORD «, t00=0x0137, t01=0x0124}
0x1e6f4…1e71a Head {h00=0x0022, h01=0x0050, text=» LDR* A3,A3 STATIC-ZERO-LENGTH«, t00=0x0137, t01=0x0154}
0x1e71a…1e72e Head {h00=0x0010, h01=0x0050, text=»FNDTG0 EQU *«, t00=0x0137, t01=0x017a}
0x1e72e…1e73e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0137, t01=0x018e}
0x1e73e…1e752 Head {h00=0x0010, h01=0x0050, text=»FNDTG1 EQU *«, t00=0x0138, t01=0x000e}
0x1e752…1e776 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 INDICATE NOT FOUND«, t00=0x0138, t01=0x0022}
0x1e776…1e7aa Head {h00=0x0030, h01=0x0050, text=» LD A5,8,A3 NBR OF ENTRIES IN PLTGC CALL TAB«, t00=0x0138, t01=0x0046}
0x1e7aa…1e7ce Head {h00=0x0020, h01=0x0050, text=» SLL A5,1 *2 = TABLE LENGTH «, t00=0x0138, t01=0x007a}
0x1e7ce…1e7e6 Head {h00=0x0014, h01=0x0050, text=» ADR A5,A3 BASE «, t00=0x0138, t01=0x009e}
0x1e7e6…1e80e Head {h00=0x0024, h01=0x0050, text=» ADK A5,10 DISPL TO TABLE START «, t00=0x0138, t01=0x00b6}
0x1e80e…1e82e Head {h00=0x001c, h01=0x0050, text=» LDR A4,A3 ICB-PLTGC ADR«, t00=0x0138, t01=0x00de}
0x1e82e…1e86a Head {h00=0x0038, h01=0x0050, text=» ADK A4,TGCCAL+TGCCTE ADR TO FIRST ENTRY IN CALL TAB«, t00=0x0138, t01=0x00fe}
0x1e86a…1e87e Head {h00=0x0010, h01=0x0050, text=»FNDTG2 EQU *«, t00=0x0138, t01=0x013a}
0x1e87e…1e8a0 Head {h00=0x001e, h01=0x0050, text=» LDR A9,A4 TABLE START ADR«, t00=0x0138, t01=0x014e}
0x1e8a0…1e8c2 Head {h00=0x001e, h01=0x0050, text=» LDR A11,A5 TABLE END ADR «, t00=0x0138, t01=0x0170}
0x1e8c2…1e8ec (313, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CALL CMPADR END OF CALL-TABLE? =2«, t00=0x0139, t01=0x0004}
0x1e8ec…1e90a Head {h00=0x001a, h01=0x0050, text=» RB(NG) FNDTG0 YES! =2«, t00=0x0139, t01=0x002e}
0x1e90a…1e91e Head {h00=0x0010, h01=0x0050, text=»FNDTG3 EQU *«, t00=0x0139, t01=0x004c}
0x1e91e…1e942 Head {h00=0x0020, h01=0x0050, text=» ST A4,2,A2 SAVE ON STACK =2«, t00=0x0139, t01=0x0060}
0x1e942…1e966 Head {h00=0x0020, h01=0x0050, text=» ST A5,4,A2 SAVE ON STACK =2«, t00=0x0139, t01=0x0084}
0x1e966…1e992 Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A2 ADJUST STACK POINTER =2 «, t00=0x0139, t01=0x00a8}
0x1e992…1e9c0 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) FNDTG4 MORE BLOCKS AVILABLE =2«, t00=0x0139, t01=0x00d4}
0x1e9c0…1e9ec Head {h00=0x0028, h01=0x0050, text=» LDKL A1,NOBLK NO BLOCKS AVILABLE =2«, t00=0x0139, t01=0x0102}
0x1e9ec…1ea04 Head {h00=0x0014, h01=0x0050, text=» CALL ERROR =2 «, t00=0x0139, t01=0x012e}
0x1ea04…1ea1c Head {h00=0x0014, h01=0x0050, text=»FNDTG4 EQU * =2«, t00=0x0139, t01=0x0146}
0x1ea1c…1ea3a Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A4 NEXT LINK «, t00=0x0139, t01=0x015e}
0x1ea3a…1ea5a Head {h00=0x001c, h01=0x0050, text=» ADKL A10,1 ADJUST LEVEL«, t00=0x0139, t01=0x017c}
0x1ea5a…1ea7a Head {h00=0x001c, h01=0x0050, text=» CALL FNDTGC NEXT LEVEL «, t00=0x013a, t01=0x000c}
0x1ea7a…1eaa4 Head {h00=0x0026, h01=0x0050, text=» SUK A2,6 ADJUST STACK POINTER =2 «, t00=0x013a, t01=0x002c}
0x1eaa4…1eac8 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 STATIC-ZERO FOUND«, t00=0x013a, t01=0x0056}
0x1eac8…1eae2 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) FNDTG0 YES«, t00=0x013a, t01=0x007a}
0x1eae2…1eb02 Head {h00=0x001c, h01=0x0050, text=» SUKL A10,1 ADJUST LEVEL«, t00=0x013a, t01=0x0094}
0x1eb02…1eb32 Head {h00=0x002c, h01=0x0050, text=» LD A4,2,A2 TABLE POINTER FROM STACK =2 «, t00=0x013a, t01=0x00b4}
0x1eb32…1eb66 Head {h00=0x0030, h01=0x0050, text=» LD A5,4,A2 TABLE END POINTER FROM STACK =2 «, t00=0x013a, t01=0x00e4}
0x1eb66…1eb96 Head {h00=0x002c, h01=0x0050, text=» ADK A4,TGCCTE POINT TO NEXT TABLE-ENTRY«, t00=0x013a, t01=0x0118}
0x1eb96…1eba8 Head {h00=0x000e, h01=0x0050, text=» RB FNDTG2«, t00=0x013a, t01=0x0148}
0x1eba8…1ebb6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013a, t01=0x015a}
0x1ebb6…1ebe2 Head {h00=0x0028, h01=0x0050, text=»* M V P G T L * «, t00=0x013a, t01=0x0168}
0x1ebe2…1ec0e (315, 0, 400) Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x013b, t01=0x0004}
0x1ec0e…1ec3a Head {h00=0x0028, h01=0x0050, text=»* ALLOCATE AND MOVE PGTL-DATA * «, t00=0x013b, t01=0x0030}
0x1ec3a…1ec66 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x013b, t01=0x005c}
0x1ec66…1ec92 Head {h00=0x0028, h01=0x0050, text=»* INPUT : A2 ITCT ADR * «, t00=0x013b, t01=0x0088}
0x1ec92…1ecbe Head {h00=0x0028, h01=0x0050, text=»* EXIT : A1 OLD PGTL-DATA ADR * «, t00=0x013b, t01=0x00b4}
0x1ecbe…1ecea Head {h00=0x0028, h01=0x0050, text=»* A2 NEW PGTL-DATA ADR * «, t00=0x013b, t01=0x00e0}
0x1ecea…1ed16 Head {h00=0x0028, h01=0x0050, text=»* A3 ITCT ADR * «, t00=0x013b, t01=0x010c}
0x1ed16…1ed42 Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x013b, t01=0x0138}
0x1ed42…1ed4a Head {h00=0x0004, h01=0x0050, t00=0x013b, t01=0x0164}
0x1ed4a…1ed5e Head {h00=0x0010, h01=0x0050, text=»MVPGTL EQU *«, t00=0x013b, t01=0x016c}
0x1ed5e…1ed84 Head {h00=0x0022, h01=0x0050, text=» LD A1,ITCGLA,A2 PGTL-DATA ADR«, t00=0x013b, t01=0x0180}
0x1ed84…1edae Head {h00=0x0026, h01=0x0050, text=» LD A3,ITCGLL,A2 PGTL-DATA LENGTH «, t00=0x013c, t01=0x0016}
0x1edae…1edde Head {h00=0x002c, h01=0x0050, text=» CALL CALLMO ALLOCATE AND MOVE PGTL-DATA«, t00=0x013c, t01=0x0040}
0x1edde…1ee04 Head {h00=0x0022, h01=0x0050, text=» LD A3,SAVITC+STKEND ITCT ADR «, t00=0x013c, t01=0x0070}
0x1ee04…1ee2e Head {h00=0x0026, h01=0x0050, text=» ST A2,ITCGLA,A3 NEW PGTL-DATA ADR«, t00=0x013c, t01=0x0096}
0x1ee2e…1ee3e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x013c, t01=0x00c0}
0x1ee3e…1ee4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013c, t01=0x00d0}
0x1ee4c…1ee84 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x013c, t01=0x00de}
0x1ee84…1eebc Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x013c, t01=0x0116}
0x1eebc…1eef4 Head {h00=0x0034, h01=0x0050, text=»* C A L L M O *«, t00=0x013c, t01=0x014e}
0x1eef4…1ef2c Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x013c, t01=0x0186}
0x1ef2c…1ef64 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x013d, t01=0x002e}
0x1ef64…1ef9c Head {h00=0x0034, h01=0x0050, text=»* INPUT: A3=LENGTH TO MOVE *«, t00=0x013d, t01=0x0066}
0x1ef9c…1efd4 Head {h00=0x0034, h01=0x0050, text=»* PDDIV=FLAG THAT INDICATES IF DDIV IS *«, t00=0x013d, t01=0x009e}
0x1efd4…1f00c Head {h00=0x0034, h01=0x0050, text=»* GOING TO BEE BUILT IN PROT.DDIV *«, t00=0x013d, t01=0x00d6}
0x1f00c…1f044 Head {h00=0x0034, h01=0x0050, text=»* PDDIVL=LENGTH LEFT IN PROT.DDIV *«, t00=0x013d, t01=0x010e}
0x1f044…1f07c Head {h00=0x0034, h01=0x0050, text=»* SCTEFA=END OF FREE AREA *«, t00=0x013d, t01=0x0146}
0x1f07c…1f0b4 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x013d, t01=0x017e}
0x1f0b4…1f0ec Head {h00=0x0034, h01=0x0050, text=»* OUTPUT: A3=-1 *«, t00=0x013e, t01=0x0026}
0x1f0ec…1f124 Head {h00=0x0034, h01=0x0050, text=»* PDDIV=1 IF DDIV IS BUILT IN PROT. *«, t00=0x013e, t01=0x005e}
0x1f124…1f15c Head {h00=0x0034, h01=0x0050, text=»* DDIV ELSE PDDIV=0 *«, t00=0x013e, t01=0x0096}
0x1f15c…1f194 Head {h00=0x0034, h01=0x0050, text=»* PDDIVL=NEW PDDIVL *«, t00=0x013e, t01=0x00ce}
0x1f194…1f1cc Head {h00=0x0034, h01=0x0050, text=»* LSTADR=NEW LAST FREE ADDR. *«, t00=0x013e, t01=0x0106}
0x1f1cc…1f204 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x013e, t01=0x013e}
0x1f204…1f23c Head {h00=0x0034, h01=0x0050, text=»* WORK REG:A2 *«, t00=0x013e, t01=0x0176}
0x1f23c…1f274 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x013f, t01=0x001e}
0x1f274…1f2ac Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x013f, t01=0x0056}
0x1f2ac…1f2c0 Head {h00=0x0010, h01=0x0050, text=»CALLMO EQU *«, t00=0x013f, t01=0x008e}
0x1f2c0…1f2f4 Head {h00=0x0030, h01=0x0050, text=» LD A2,PDDIV+STKEND BUILD DDIV IN PROT.DDIV?«, t00=0x013f, t01=0x00a2}
0x1f2f4…1f30e Head {h00=0x0016, h01=0x0050, text=» RF(Z) CAL200 NO! «, t00=0x013f, t01=0x00d6}
0x1f30e…1f344 Head {h00=0x0032, h01=0x0050, text=» LD A2,PDDIVL,A10 GET LENGTH LEFT IN PROT.DDIV«, t00=0x013f, t01=0x00f0}
0x1f344…1f376 Head {h00=0x002e, h01=0x0050, text=» SUR A2,A3 ENOUGH SPACE LEFT IN PROT.DDIV «, t00=0x013f, t01=0x0126}
0x1f376…1f392 Head {h00=0x0018, h01=0x0050, text=» RF(NN) CAL100 YES! «, t00=0x013f, t01=0x0158}
0x1f392…1f39c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0174}
0x1f39c…1f3d6 Head {h00=0x0036, h01=0x0050, text=»* RESET FLAG AND CHANGE LSTADR TO POINT AT «, t00=0x013f, t01=0x017e}
0x1f3d6…1f3f8 Head {h00=0x001e, h01=0x0050, text=»* END OF FREE AREA «, t00=0x0140, t01=0x0028}
0x1f3f8…1f402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x004a}
0x1f402…1f426 Head {h00=0x0020, h01=0x0050, text=» CM PDDIV+STKEND RESET FLAG «, t00=0x0140, t01=0x0054}
0x1f426…1f452 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTEFA+2 GET END OF FREE AREA«, t00=0x0140, t01=0x0078}
0x1f452…1f480 Head {h00=0x002a, h01=0x0050, text=» ST A2,LSTADR+STKCOM STORE NEW LSTADR «, t00=0x0140, t01=0x00a4}
0x1f480…1f494 Head {h00=0x0010, h01=0x0050, text=»CAL100 EQU *«, t00=0x0140, t01=0x00d2}
0x1f494…1f4c6 Head {h00=0x002e, h01=0x0050, text=» ST A2,PDDIVL,A10 LENGTH LEFT IN PROT.DDIV«, t00=0x0140, t01=0x00e6}
0x1f4c6…1f4da Head {h00=0x0010, h01=0x0050, text=»CAL200 EQU *«, t00=0x0140, t01=0x0118}
0x1f4da…1f4ee Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0140, t01=0x012c}
0x1f4ee…1f4fe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0140, t01=0x0140}
0x1f4fe…1f50c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0140, t01=0x0150}
0x1f50c…1f514 Head {h00=0x0004, h01=0x0050, t00=0x0140, t01=0x015e}
0x1f514…1f51c Head {h00=0x0004, h01=0x0050, t00=0x0140, t01=0x0166}
0x1f51c…1f530 Head {h00=0x0010, h01=0x0050, text=»START3 EQU *«, t00=0x0140, t01=0x016e}
0x1f530…1f538 Head {h00=0x0004, h01=0x0050, t00=0x0140, t01=0x0182}
0x1f538…1f540 Head {h00=0x0004, h01=0x0050, t00=0x0140, t01=0x018a}
0x1f540…1f554 (321, 0, 400) Head {h00=0x0010, h01=0x0050, text=»REALTA EQU *«, t00=0x0141, t01=0x0004}
0x1f554…1f57c Head {h00=0x0024, h01=0x0050, text=» LD* A8,SHADOW,A10 SHTAB LENGTH «, t00=0x0141, t01=0x0018}
0x1f57c…1f5a0 Head {h00=0x0020, h01=0x0050, text=» LD A5,SHADOW,A10 SHTAB1 ADR«, t00=0x0141, t01=0x0040}
0x1f5a0…1f5da Head {h00=0x0036, h01=0x0050, text=» ST A10,SAVE01+STKEND SAVE APPL.SAVE AREA POINTER «, t00=0x0141, t01=0x0064}
0x1f5da…1f5f8 Head {h00=0x001a, h01=0x0050, text=» ADR A8,A5 SHTAB2 ADR «, t00=0x0141, t01=0x009e}
0x1f5f8…1f624 Head {h00=0x0028, h01=0x0050, text=» ST A8,SAVE03+STKEND SAVE SHTAB2 ADR«, t00=0x0141, t01=0x00bc}
0x1f624…1f646 Head {h00=0x001e, h01=0x0050, text=» AD* A8,SCTSFA SHTAB3 ADR «, t00=0x0141, t01=0x00e8}
0x1f646…1f66e Head {h00=0x0024, h01=0x0050, text=» ST A8,SAVE02+STKEND SHTAB3 ADR «, t00=0x0141, t01=0x010a}
0x1f66e…1f682 Head {h00=0x0010, h01=0x0050, text=»SYA300 EQU *«, t00=0x0141, t01=0x0132}
0x1f682…1f6ae Head {h00=0x0028, h01=0x0050, text=» LD A8,SAVE03+STKEND SHTAB2 POINTER «, t00=0x0141, t01=0x0146}
0x1f6ae…1f6c6 Head {h00=0x0014, h01=0x0050, text=» ADKL A8,2 NEXT «, t00=0x0141, t01=0x0172}
0x1f6c6…1f6f4 Head {h00=0x002a, h01=0x0050, text=» CW A8,SAVE02+STKEND ALL TCL'S DONE ? «, t00=0x0141, t01=0x018a}
0x1f6f4…1f70e Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA310 YES «, t00=0x0142, t01=0x0028}
0x1f70e…1f73e Head {h00=0x002c, h01=0x0050, text=» ST A8,SAVE03+STKEND SAVE SHTAB2 POINTER«, t00=0x0142, t01=0x0042}
0x1f73e…1f75e Head {h00=0x001c, h01=0x0050, text=» ADK A5,2 SHTAB1 POINTER«, t00=0x0142, t01=0x0072}
0x1f75e…1f780 Head {h00=0x001e, h01=0x0050, text=» LDR* A10,A5 NBR OF COPIES«, t00=0x0142, t01=0x0092}
0x1f780…1f79a Head {h00=0x0016, h01=0x0050, text=» RB(Z) SYA300 NONE«, t00=0x0142, t01=0x00b4}
0x1f79a…1f7bc Head {h00=0x001e, h01=0x0050, text=» CALL GETTAB FIND TTAB ADR«, t00=0x0142, t01=0x00ce}
0x1f7bc…1f7e8 Head {h00=0x0028, h01=0x0050, text=» ST A10,SAVITC+STKEND SAVE ITCT ADR «, t00=0x0142, t01=0x00f0}
0x1f7e8…1f808 Head {h00=0x001c, h01=0x0050, text=» CALL QUEJOB QUEUE TASK «, t00=0x0142, t01=0x011c}
0x1f808…1f824 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A10 ITCT ADR«, t00=0x0142, t01=0x013c}
0x1f824…1f84a Head {h00=0x0022, h01=0x0050, text=» ADK A6,22 MAKE IT INT-USABLE «, t00=0x0142, t01=0x0158}
0x1f84a…1f886 Head {h00=0x0038, h01=0x0050, text=» ST A6,TTB:SA+26,A2 SAVE ITCT ADR IN TTAB(SAVE-A13) «, t00=0x0142, t01=0x017e}
0x1f886…1f89c Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x0143, t01=0x002a}
0x1f89c…1f8d0 Head {h00=0x0030, h01=0x0050, text=» ADKL A6,ITCCSB-ITCDCD POINT AT CSB IN ITCT «, t00=0x0143, t01=0x0040}
0x1f8d0…1f8f6 Head {h00=0x0022, h01=0x0050, text=» ST A6,TTB:CB,A2 SAVE IN TTAB «, t00=0x0143, t01=0x0074}
0x1f8f6…1f902 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0143, t01=0x009a}
0x1f902…1f918 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0143, t01=0x00a6}
0x1f918…1f93a Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A5 NBR OF COPIES «, t00=0x0143, t01=0x00bc}
0x1f93a…1f94e Head {h00=0x0010, h01=0x0050, text=»SYA305 EQU *«, t00=0x0143, t01=0x00de}
0x1f94e…1f986 Head {h00=0x0034, h01=0x0050, text=» LD A10,SAVE01+STKEND GET APPL.SAVE AREA POINTER«, t00=0x0143, t01=0x00f2}
0x1f986…1f9ac Head {h00=0x0022, h01=0x0050, text=» SUK A6,1 COUNT NBR OF COPIES «, t00=0x0143, t01=0x012a}
0x1f9ac…1f9cc Head {h00=0x001c, h01=0x0050, text=» RB(NP) SYA300 NEXT TCL «, t00=0x0143, t01=0x0150}
0x1f9cc…1f9f2 Head {h00=0x0022, h01=0x0050, text=» CALL GENCOP GENERATE ONE COPY«, t00=0x0143, t01=0x0170}
0x1f9f2…1fa0a Head {h00=0x0014, h01=0x0050, text=» RB SYA305 NEXT «, t00=0x0144, t01=0x0008}
0x1fa0a…1fa18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0144, t01=0x0020}
0x1fa18…1fa20 Head {h00=0x0004, h01=0x0050, t00=0x0144, t01=0x002e}
0x1fa20…1fa44 Head {h00=0x0020, h01=0x0050, text=»* ADJUST START OF FREE AREA «, t00=0x0144, t01=0x0036}
0x1fa44…1fa4c Head {h00=0x0004, h01=0x0050, t00=0x0144, t01=0x005a}
0x1fa4c…1fa60 Head {h00=0x0010, h01=0x0050, text=»SYA310 EQU *«, t00=0x0144, t01=0x0062}
0x1fa60…1fa8a Head {h00=0x0026, h01=0x0050, text=» LD A1,PDDIV+STKEND UPDATE SCTEFA?«, t00=0x0144, t01=0x0076}
0x1fa8a…1faa4 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SYA312 NO!«, t00=0x0144, t01=0x00a0}
0x1faa4…1fad6 Head {h00=0x002e, h01=0x0050, text=» LD A1,LSTADR+STKCOM GET END OF FREE AREA «, t00=0x0144, t01=0x00ba}
0x1fad6…1faee Head {h00=0x0014, h01=0x0050, text=» ST A1,SCTEFA+2 «, t00=0x0144, t01=0x00ec}
0x1faee…1fb02 Head {h00=0x0010, h01=0x0050, text=»SYA312 EQU *«, t00=0x0144, t01=0x0104}
0x1fb02…1fb32 Head {h00=0x002c, h01=0x0050, text=» LD A1,FSTADR+STKCOM START OF FREE AREA «, t00=0x0144, t01=0x0118}
0x1fb32…1fb48 Head {h00=0x0012, h01=0x0050, text=» RF(Z) SYA315 «, t00=0x0144, t01=0x0148}
0x1fb48…1fb76 Head {h00=0x002a, h01=0x0050, text=» ST A1,SCTSFA STORE START OF FREE AREA«, t00=0x0144, t01=0x015e}
0x1fb76…1fb8a Head {h00=0x0010, h01=0x0050, text=»SYA315 EQU *«, t00=0x0144, t01=0x018c}
0x1fb8a…1fba2 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,NXTAPP «, t00=0x0145, t01=0x0010}
0x1fba2…1fbbe Head {h00=0x0018, h01=0x0050, text=» AD A1,M:REL+STKCOM «, t00=0x0145, t01=0x0028}
0x1fbbe…1fbe8 Head {h00=0x0026, h01=0x0050, text=» ABR A1 CHECK IF MORE APPLICATIONS«, t00=0x0145, t01=0x0044}
0x1fbe8…1fbf0 Head {h00=0x0004, h01=0x0050, t00=0x0145, t01=0x006e}
0x1fbf0…1fbf8 Head {h00=0x0004, h01=0x0050, t00=0x0145, t01=0x0076}
0x1fbf8…1fc02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0145, t01=0x007e}
0x1fc02…1fc2e Head {h00=0x0028, h01=0x0050, text=»* MOVE DYNTAB:S AND SAVE IN ONE WORD«, t00=0x0145, t01=0x0088}
0x1fc2e…1fc4a Head {h00=0x0018, h01=0x0050, text=»* NUMBER OF DYNTAB:S«, t00=0x0145, t01=0x00b4}
0x1fc4a…1fc54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0145, t01=0x00d0}
0x1fc54…1fc68 Head {h00=0x0010, h01=0x0050, text=»SYA320 EQU *«, t00=0x0145, t01=0x00da}
0x1fc68…1fc9e Head {h00=0x0032, h01=0x0050, text=» LDKL A10,STKEND START OF 1:ST APPL.SAVE AREA «, t00=0x0145, t01=0x00ee}
0x1fc9e…1fcd2 Head {h00=0x0030, h01=0x0050, text=» LD A1,APPLNO+STKCOM GET NUMBER OF DYNTAB:S «, t00=0x0145, t01=0x0124}
0x1fcd2…1fd0a Head {h00=0x0034, h01=0x0050, text=» LD A4,SHADOW,A10 GET START OF AREA WHERE TO PUT«, t00=0x0145, t01=0x0158}
0x1fd0a…1fd34 Head {h00=0x0026, h01=0x0050, text=» DYNTAB:S AND NUMBER OF DYNTAB:S«, t00=0x0145, t01=0x0190}
0x1fd34…1fd68 Head {h00=0x0030, h01=0x0050, text=» ST A4,DYNSTA+STKCOM SAVE START OF DYNTAB:S «, t00=0x0146, t01=0x002a}
0x1fd68…1fd92 Head {h00=0x0026, h01=0x0050, text=» STR A1,A4 SAVE NUMBER OF DYNTAB:S«, t00=0x0146, t01=0x005e}
0x1fd92…1fdb6 Head {h00=0x0020, h01=0x0050, text=» ADK A4,2 INCREMENT TO-ADDR «, t00=0x0146, t01=0x0088}
0x1fdb6…1fdca Head {h00=0x0010, h01=0x0050, text=»SYA330 EQU *«, t00=0x0146, t01=0x00ac}
0x1fdca…1fdf8 Head {h00=0x002a, h01=0x0050, text=» LD A2,DYNTAD,A10 GET DYNTAB FROM ADDR«, t00=0x0146, t01=0x00c0}
0x1fdf8…1fe20 Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET LENGTH OF DYNTAB«, t00=0x0146, t01=0x00ee}
0x1fe20…1fe34 Head {h00=0x0010, h01=0x0050, text=»SYA340 EQU *«, t00=0x0146, t01=0x0116}
0x1fe34…1fe58 Head {h00=0x0020, h01=0x0050, text=» LDR* A5,A2 GET DYNTAB WORD «, t00=0x0146, t01=0x012a}
0x1fe58…1fe70 Head {h00=0x0014, h01=0x0050, text=» STR A5,A4 STORE«, t00=0x0146, t01=0x014e}
0x1fe70…1fe94 Head {h00=0x0020, h01=0x0050, text=» ADK A4,2 INCREMENT TO-ADDR «, t00=0x0146, t01=0x0166}
0x1fe94…1feba Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 INCREMENT FROM-ADDR «, t00=0x0146, t01=0x018a}
0x1feba…1fede Head {h00=0x0020, h01=0x0050, text=» SUK A3,2 ALL WORDS MOVED ? «, t00=0x0147, t01=0x0020}
0x1fede…1fef8 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) SYA340 NO!«, t00=0x0147, t01=0x0044}
0x1fef8…1ff24 Head {h00=0x0028, h01=0x0050, text=» ADKL A10,TABLEN NEXT APPL.SAVE AREA«, t00=0x0147, t01=0x005e}
0x1ff24…1ff4a Head {h00=0x0022, h01=0x0050, text=» SUK A1,1 ALL DYNTAB:S MOVED? «, t00=0x0147, t01=0x008a}
0x1ff4a…1ff64 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) SYA330 NO!«, t00=0x0147, t01=0x00b0}
0x1ff64…1ff70 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0147, t01=0x00ca}
0x1ff70…1ff90 Head {h00=0x001c, h01=0x0050, text=»LCOEND EQU * SYSLCO END «, t00=0x0147, t01=0x00d6}
0x1ff90…1ff9c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0147, t01=0x00f6}
0x1ff9c…1ffa0 Head {h00=0x4004, h01=0x0000}
0x1ffa0…1ffa4 01 47 01 02 ┆ G ┆
0x1ffa4…1ffac (328, 1, 8) 20 04 00 00 01 48 00 04 ┆ H ┆
0x1ffac…1fffc (329, 0, 400) 0e 77 00 00 82 3e 82 3e f7 a1 00 00 88 08 82 5f 00 00 14 08 87 51 ff f8 82 5c 00 00 1a 08 51 00 22 00 82 51 00 0d 01 8c 00 2c 00 28 03 13 00 00 0e 97 00 00 ff fc 8f 3e 87 3f 87 50 ff f8 1c 08 f7 a1 00 00 87 3e 97 a0 00 02 80 3e 20 bf 81 50 ┆ w > > _ Q Q " Q , ( > ? P > > P┆
0x1fffc…2004c ff fc 82 50 00 0e 00 2c 00 2c 00 28 03 13 00 00 0e b7 00 00 ff fe 99 08 19 01 52 00 90 51 ff fe 92 10 e2 28 22 ff 57 00 20 bf 81 50 ff fe e9 50 ff fc 56 00 00 0e 00 5c 00 2c 00 28 03 13 00 00 0e d7 00 00 90 51 ff fe 91 10 e2 25 01 00 57 00 ┆ P , , ( R Q (" W P P V , ( Q % W ┆
0x2004c…2009c 81 20 ff ff 97 a0 00 04 8f 3e 02 03 ea 54 00 4e 51 00 83 54 00 0e 00 8c 00 2c 00 28 03 13 00 00 0e f7 00 00 00 52 e2 4c 00 00 84 08 24 0f 54 00 e3 4c 00 02 84 0c 24 01 54 00 03 06 22 80 50 00 03 04 57 00 00 0e 00 bc 00 2c 00 28 03 13 00 00 ┆ > T NQ T , ( R L $ T L $ T " P W , ( ┆
0x2009c…200ec 0f 17 00 00 84 0c 23 02 54 00 03 08 57 00 03 0a 24 04 50 00 03 0c 57 00 03 02 1c 01 50 00 03 00 97 a0 00 02 00 0e 00 ec 00 2c 00 28 03 13 00 00 0f 37 04 00 80 3e 81 3f 87 3f 84 18 94 20 00 00 00 0e 87 14 17 16 f7 a1 00 00 87 1c 54 00 87 14 ┆ # T W $ P W P , ( 7 > ? ? T ┆
0x200ec…2013c 97 20 00 18 00 0e 01 1c 00 2c 00 28 03 13 00 00 0f 55 00 00 f7 a1 00 00 82 1c 87 3e 81 3e 97 a0 00 02 80 3e 81 3c 81 31 84 3d 57 00 81 1c 87 3c 5c 06 84 25 00 0e 01 4c 00 2c 00 28 03 13 00 00 0f 75 00 00 a0 31 57 00 81 1c 87 3c 50 00 ec 1c ┆ , ( U > > > < 1 =W < % L , ( u 1W <P ┆
0x2013c…2018c (330, 0, 400) 5c 0a 87 3c 87 25 07 01 97 a0 00 02 80 3e 20 bf 84 5c 00 04 00 0e 01 7c 00 2c 00 28 03 13 00 00 0f 95 00 00 50 00 81 3f 81 30 81 5d 00 04 81 3e 97 a0 00 04 84 10 8f 3e 20 bf 81 3f 81 5c 00 04 81 31 84 5d 00 0f 00 1c 00 2c 00 28 03 13 00 00 ┆ < % > | , ( P ? 0 ] > > ? 1 ] , ( ┆
0x2018c…201dc 0f b5 00 00 00 04 81 3e 97 a0 00 04 8f 3e 81 3f 01 00 57 00 81 3f 81 5c 00 04 82 3f 83 3f 84 3f 82 1c 12 04 00 0f 00 4c 00 2c 00 28 03 13 00 00 0f d5 00 00 83 10 93 5c 00 08 9b 5c 00 06 ec 0c 51 00 84 29 82 10 94 5c 00 06 5f 0e 81 29 84 3e ┆ > > ? W ? ? ? ? L , ( Q ) _ ) >┆
0x201dc…2022c 83 3e 82 3e 00 0f 00 7c 00 14 00 10 03 07 00 00 0f f5 00 00 81 3e 97 a0 00 02 80 3e 00 0f 00 ac 00 48 00 44 04 21 ff ff 00 01 00 26 00 11 00 18 00 13 00 18 00 15 00 18 00 17 00 18 04 65 07 30 04 6b 07 38 04 71 07 40 04 77 07 54 04 7d 07 54 ┆ > > | > > H D ! & e 0 k 8 q @ w T } T┆
0x2022c…2027c 04 83 07 ba 04 87 07 d6 04 89 07 d6 04 8b 07 e2 04 8d 08 24 04 8f 07 f4 00 0f 00 c4 00 48 00 44 04 21 ff a4 04 91 08 4c 04 93 07 d6 04 95 07 78 04 97 07 7c 04 99 07 78 04 9b 07 7c 04 9d 07 88 04 9f 07 78 04 a1 07 9a 04 a9 50 0c 04 ad 0e ae ┆ $ H D ! L x | x | x P ┆
0x2027c…202cc 04 b1 52 04 04 b5 57 20 04 c5 0a dc 04 d9 50 04 04 dd 57 04 00 0f 01 10 00 48 00 44 04 21 c8 91 04 ef 0d 6a 04 fb 0e 4a 04 fd 54 82 05 09 54 2e 05 0d 0d 88 05 11 50 26 05 19 54 64 05 1d 52 1a 05 2b 0a e6 05 37 54 48 05 3f 51 0c 05 45 0e 76 ┆ R W P W H D ! j J T T. P& Td R + 7TH ?Q E v┆
0x202cc…2031c (331, 0, 400) 05 47 54 28 05 4b 57 10 05 51 51 2c 05 57 0e 76 00 0f 01 5c 00 48 00 44 04 21 65 d1 05 59 54 16 05 67 0f 6c 05 6b 0a e6 05 6f 54 10 05 8f 50 1a 05 93 0e ca 05 97 54 0a 05 a5 0e 9a 05 bb 0d 6a 05 c9 0e 4a 05 cb 54 9e 05 d5 0c c2 05 dd 54 8c ┆ GT( KW QQ, W v H D !e YT g l k oT P T j J T T ┆
0x2031c…2036c 05 f9 54 06 05 ff 50 08 06 03 0d f2 00 10 00 18 00 48 00 44 04 21 75 06 06 07 57 0e 06 0b 0d f6 06 0f 0d d4 06 2d 0e 4a 06 2f 54 36 06 33 0d 12 06 35 54 34 06 39 0a e6 06 3f 54 22 06 49 50 04 06 4d 57 14 06 53 50 0e 06 57 50 0a 06 61 0a e6 ┆ T P H D !u W - J /T6 3 5T4 9 ?T" IP MW SP WP a ┆
0x2036c…203bc 06 71 0e 9a 06 87 57 00 00 10 00 64 00 48 00 44 04 21 1b cf 06 97 50 14 06 9d 50 56 06 a3 50 1c 06 a7 0d 3e 06 b7 0c f8 06 d9 50 08 06 dd 0d 3e 06 e9 0c 18 06 ef 0e 16 06 f3 0a e6 07 0d 52 16 07 1b 50 04 07 1f 0d 3e 07 2b 0d 3e 07 2f 0a e6 ┆ q W d H D ! P PV P > P > R P > + > / ┆
0x203bc…2040c 07 37 0a 1a 00 10 00 b0 00 48 00 44 04 21 b7 f7 07 3f 0a 62 07 47 54 08 07 4d 0e 16 07 53 0a c4 07 57 54 1c 07 61 0e 16 07 7b 0a e6 07 7f 0e 9a 07 91 0f 78 07 99 0a e6 07 a3 0f 78 07 b9 0a e6 07 bd 54 1c 07 c1 0e ec 07 d9 0e 9a 07 e1 0a e6 ┆ 7 H D ! ? b GT M S WT a { x x T ┆
0x2040c…2045c 00 10 00 fc 00 48 00 44 04 21 df ff 07 e5 0d 52 07 eb 0d b0 07 f3 57 0c 07 f7 0d 52 07 fd 0d 9c 08 07 0e 9a 08 13 0a e6 08 27 0d 52 08 2d 0d b0 08 4b 0a e6 08 4f 0d 52 08 59 0e 9a 08 67 0a e6 08 71 0c c0 08 7f 0f 64 08 8d 0d f6 00 10 01 48 ┆ H D ! R W R ' R - K O R Y g q d H┆
0x2045c…204ac (332, 0, 400) 00 48 00 44 04 21 53 d5 08 b1 50 34 08 b5 0e 5a 08 b7 54 2e 08 bb 0d 12 08 bd 54 2c 08 c9 50 0e 08 db 0f 38 08 e5 0a e6 08 ef 0f 78 08 f7 0a e6 08 fd 54 0c 09 05 09 0c 09 15 52 0c 09 1f 09 26 09 43 50 0a 09 47 0f 78 00 11 00 04 00 48 00 44 ┆ H D !S P4 Z T. T, P 8 x T R & CP G x H D┆
0x204ac…204fc 04 21 79 33 09 55 50 0a 09 59 0f 78 09 6d 0f be 09 7b 0f be 09 89 0f be 09 8f 52 3e 09 ad 52 1e 09 b3 0d 52 09 d3 50 08 09 db 57 0e 09 e3 09 ee 0a 0f 0d 12 0a 11 54 c6 0a 1d 54 ba 0a 27 0c c0 0a 5b 0d 12 00 11 00 50 00 48 00 44 04 21 46 b4 ┆ !y3 UP Y x m { R> R R P W T T ' [ P H D !F ┆
0x204fc…2054c 0a 5d 54 7a 0a 61 0a e6 0a 65 54 72 0a 6d 55 10 0a 87 52 4c 0a 97 0c c0 0a bd 0d 12 0a bf 54 18 0a c3 0a e6 0a c7 54 10 0a d7 0a e6 0a df 0d 6a 0a ed 50 3c 0a f5 0e ae 0a f9 52 14 0b 13 54 04 00 11 00 9c 00 48 00 44 04 21 f2 8a 0b 1f 0e 9a ┆ ]Tz a eTr mU RL T T j P< R T H D ! ┆
0x2054c…2059c 0b 23 0d 7c 0b 29 0c 40 0b 3f 0b a6 0b 45 50 0e 0b 4b 54 08 0b 53 0c f8 0b 59 50 0e 0b 61 0e 76 0b 63 50 04 0b 67 57 12 0b 6d 50 22 0b 75 0e 76 0b 77 50 18 0b 83 0f 78 0b 95 54 0c 00 11 00 e8 00 48 00 44 04 21 d7 79 0b 9d 0e 76 0b a1 0c 9c ┆ # | ) @ ? EP KT S YP a v cP gW mP" u v wP x T H D ! y v ┆
0x2059c…205ec 0b c1 52 4e 0b c7 0d 52 0b df 50 0a 0b f9 0f 78 0b ff 0d 04 0c 07 0f 38 0c 31 54 02 0c 43 0c c0 0c 51 0f 64 0c 57 0d f6 0c 75 0e 4a 0c 77 50 06 0c 7d 57 10 0c 81 0d c4 00 11 01 34 00 48 00 44 04 21 b8 d0 0c 8b 0d 12 0c 8d 50 0a 0c 93 0f 78 ┆ RN R P x 8 1T C Q d W u J wP }W 4 H D ! P x┆