|
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: 176820 (0x2b2b4)
Notes: pts_type(SC)
Names: »SYSLDM.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/SYSLDM.SC«
└─⟦a16d9b08d⟧ Bits:30009712 Philips computer tape "TOSS11"
└─⟦this⟧ »UPD1A/SYSLDM.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/SYSLDM.SC«
IDENT SYSLDM REL 11.0 81-08-19 870105041100 =10,CORRECTION =9 NOT CORRECT REL 11.0 81-07-28 =9,FOR MONITOR EXTENTS APLREL AND APLLAC =9,POINTS AT 1 WORD TO HIGH ADDRESS =8,BUILD REAL-TIME INTERRUPT TABLES FOR RWSI REL 11.0 81-03-09 =7,BUILD COMPUTER NETWORK ARCHITECTURE BEFORE BUILDING INTERRUPT TABLE REL 11.0 81-02-16 =6,INIT UNUSED MMU ENTRIES,AND INIT ACBSTA AND ACBREL FOR MONITOR EXTENTS REL 11.0 81-01-26 =5,CHANGES IN CONDITIONAL ASSEMBLY WHEN BUILDING COMMON DEVICE TABLES PRR 11.0 80-12-11 =4,CLEAR WORK AREA FOR ECHO DEVICE TABLE EVEN IF NO TERMINAL DEVICES PRR 11.0 80-12-03 =3,APPLICATION CONTROL BLOCK IS EXTENDED WITH 1 WORD PRR 11.0 80-12-01 =2,IF NO S-BLOCK IN CONF.DATA,PROCESS EVEN NEXT CREDIT APPL. CONVERT A BINARY VALUE >99 TO ASCII THE FIRST POINTER IN WORK STATION TABLE FOR PLC IS FOR WS NUMBER ZERO CHECK IF MEMORY OVERFLOW WHEN BUILDING USER TASK TABLES PRR 11.0 80-11-20 =1,IF NO D-BLOCK IN CONF. DATA, SKIP DCT-CREATION PRR 11.0 80-11-19 ENTRY SYSLDM * * EXTERNALS DEFINED IN SYSTEM CONTROL TABLE * EXTRN SCTANO APPLICATION NUMBER EXTRN SCTBLK NUMBER OF BLOCKS PER TASK EXTRN SCTBUG DEBUGGER ADDRESS EXTRN SCTCDT COMMON DEVICE TABLE ADDRESS EXTRN SCTDCT DATA COMMUNICATION EXTRN SCTDMI DM: INDEX BUFFER RECORD SIZE EXTRN SCTDMT DATA MANAGEMENT TASKS EXTRN SCTEFA END OF FREE AREA EXTRN SCTFWL FM: FILE WORK TABLE LENGTH EXTRN SCTFWT FM: FILE WORK TABLE ADDRESS EXTRN SCTMOX MONITOR EXTENT START ADDRESS TABLE EXTRN SCTMXS MONITOR EXTENT&SEGMENT TABLE EXTRN SCTNFT DM/FM: NUMBER OF FILES/TASK EXTRN SCTNOF DM/FM: NUMBER OF FILES EXTRN SCTNOP NUMBER OF PAGES EXTRN SCTNOS NUMBER OF SEGMENTS/TASK (BASIC ONLY) EXTRN SCTOPT SYSTEM OPTIONS EXTRN SCTPAG PAGE TABLE ADDRESS EXTRN SCTIPL PROGRAM LOADING DEVICE EXTRN SCTPSZ PAGE SIZE EXTRN SCTSFA START OF FREE AREA EXTRN SCTTCT TASK CONTROL TABLE EJECT * * EXTERNALS DEFINED IN MONTAB * EXTRN FREQUE FREE PAGES QUEUE ANCHOR EXTRN INTLT1 LOCAL CONNECTION EXTRN INTRT1 REMOTE CONNECTION EXTRN INTVU1 VIDEO CONNECTION EXTRN INTPL1 LWSI CONNECTION EXTRN INTPR1 RWSI CONNECTION =8 EXTRN INTAS1 ASYNCHRONOUS CONNECTION EXTRN INTSL1 SYNCHRONOUS CONNECTION * * MISCELLANOEUS EXTERNALS * EXTRN REL RELOCATION BASE IN SYSINI EXTRN SCLASS SPECIAL DEVICE CLASS TABLE EXTRN TCLASS TERMINAL DEVICE CLASS TABLE EXTRN SYSLOD START OF SYSLOD EXTRN STKCOM COMMON STACK AREA BASE EXTRN STKEND LOCAL STACK AREA BASE * * EXTERNAL SUBROUTINES * EXTRN ERROR ERROR HANDLING EXTRN MOVE MOVE AREAS IN MEMORY EXTRN MULT MULTIPLY EXTRN PSW STORE PROGRAM STATUS WORD EXTRN CMPADR COMPARE ADDRESSES EXTRN CONVRT CONVERT FROM ASCII TO BINARY EXTRN NXTBLK GET NEXT TASK DEF. BLOCK EXTRN NXTCOM GET NEXT COMMON DEFINITION BLOCK EXTRN GETNUM GET NUMBER EXTRN INBIMA INIT MMU ALLOCATION BIT MAP EXTRN PUSH SAVE REGISTER A1-A14 ON STACK EXTRN POB RESTORE REGISTER A1-A14 FROM STACK EXTRN GETAPP GET NEXT APPLICATION OF SPECIFIED TYPE EJECT * * TTAB DISPLACEMENTS * EXTRN TTB:AM MMU ALLOCATION BIT MAP EXTRN TTB:MT MMU TABLE EXTRN TTB:AP APPLICATION CONTROL BLOCK EXTRN TTB:CB CURRENT SEGMENT BASE POINTER EXTRN TTB:SP SEGMENT TABLE POINTER EXTRN TTB:SB SEGMENT BLOCK POINTER EXTRN TTB:ID TASK ID EXTRN TTB:ST STATUS EXTRN TTB:PP PENDING POINTER EXTRN TTB:PW PROGRAM STATUS WORD EXTRN TTB:SA DISPATCH ADDRESS EXTRN TTB:TD DEVICE TABLE LENGTH * * DWT PARAMETERS * EXTRN DWTCHP CHANNEL PARAMETER-1 EXTRN DWTST STATUS EXTRN DWTECB ECB ADDRESS EXTRN DWTOR ORDER EXTRN DWTADR ADDRESS BLOCK EXTRN DWTTAB TTAB ADDRESS EXTRN DWTWAT WAIT/ACTIVATE INDICATOR EXTRN DWTTQ TERMINAL QUEUE EXTRN DWTUEC USER ECB ADDRESS EXTRN DWTMEC MONITOR ECB ADDRESS EXTRN DWTCP2 CHANNEL PARAMETER-2 EXTRN DWTDEV DEVICE STATUS EXTRN DWTECH ECHO DEVICE EXTRN DWTSQ START OF QUEUE EJECT *************************************** * CONDITIONAL ASSEMBLY * *************************************** MMUPAG EQU 0 1 - MEMORY MANAGEMENT UNIT DSKPAG EQU 0 1 - DISC PAGING SWPBLK EQU 0 1 - SWAPPABLE WORK BLOCK HANDLING EDM EQU 0 1 - EXTENDED DATA MANAGEMENT X:A EQU 1 X:B EQU 1 X:C EQU 1 X:D EQU 1 X:E EQU 1 X:F EQU 1 X:G EQU 1 X:H EQU 1 X:I EQU 1 X:J EQU 1 X:K EQU 0 X:L EQU 1 X:M EQU 0 * SUML EQU X:A SUMR EQU X:B SALCUZ EQU X:C ASCU4Z EQU X:D FT80 EQU X:E PLCL EQU X:F PLCR EQU X:G VIDEO EQU X:H TEDVCL EQU X:I SPDVCL EQU X:J NOEXMB EQU X:K FM EQU X:L DC EQU X:M EJECT * * COMMON DISPLACEMENTS AND CONSTANTS * ACBLEN EQU 26 APPL.CONTROL BLOCK LENGTH =3 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 FSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER FSTPAG EQU 22 1ST 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 2ND MMU TABLE WORK AREA MMTO EQU 38 1:ST MMU TABLE WORK AREA M:REL EQU 16 RELOCATION CONSTANT SYSBUF EQU 28 START OF TEMPORARY BUFFER SWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) SWBFSE EQU 8 SWB-FILE END ADDRESS (2 WORDS) TTAB EQU 32 WORK AREA FOR MMU TABLE COM01 EQU 40 COMMON SAVE AREA 1 COM02 EQU 42 COMMON SAVE AREA 2 COM03 EQU 44 COMMON SAVE AREA 3 TOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS SWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG COM04 EQU 50 COMMON SAVE AREA 4 DCBLK EQU 54 START OF DC CONF. DATA EJECT * * DISPLACEMENT IN LOCAL STACK AREA * TCLA EQU 0 ADDRESS TO TCLASS SCLA EQU 2 ADDRESS TO SCLASS CUTENT EQU 4 FIRST USER TASK ENTRY FWTSIZ EQU 6 FWT AREA SIZE IN WORDS APCTAB EQU 8 CURRENT APPL CONTROL BLOCK SFASAV EQU 10 SAVE START OF FREE AREA NBRTSK EQU 12 NUMBER OF TASKS IN CLASS TASKID EQU 14 TASK IDENTIFICATION FWTFLG EQU 16 FWT FLAG TCLSAV EQU 18 TASK CLASS TSKLEV EQU 20 TASK LEVEL INTTAB EQU 22 TEMP INTTERRUPT TABLE FWTSTA EQU 24 START OF FWT AREA LIMIT EQU 26 CURRENT END OF SYSTEM AREA NBRCOM EQU 28 NUMBER OF COMMON TDC:S CLASID EQU 30 CLASS ID CONTYP EQU 32 CONNECTION TYPE LCNBR EQU 34 LINE CONNECTION NUMBER CLANBR EQU 36 CLASS NUMBER MAXSGM EQU 38 MAXIMUM SEGMENT SIZE * WRK1 EQU 42 WORK AREA 1 WRK2 EQU 44 WORK AREA 2 WRK3 EQU 46 WORK AREA 3 WRK4 EQU 48 WORK AREA 4 BRDTAB EQU 50 BOARD CONF TABLE LCDSTA EQU 52 CONFIGURATION DATA POINTER NBRSDC EQU 54 NUMBER OF SPECIAL DEVICE CLASSES NBRTDC EQU 56 NUMBER OF TERMINAL DEVICE CLASSES APLNO EQU 58 NUMBR OF APPLICATIONS ECHTAB EQU 60 ECHO TABLE ADDRESS SGMCNT EQU 62 SEGMENT COUNTER NUMDTE EQU 64 NUMBER OF DTE:S DEFINED DTENAM EQU 66 SDTE IDENTIFICATION DTETYP EQU 68 TYPE OF CONNECTION NASTRT EQU 70 START OF NETW. ADDR. IN CONF. DATA NALNG EQU 72 LENGTH OF NETWORK ADDRESS DTENSA EQU 74 NO OF SUBADDRESSES DEFINED DTECOP EQU 76 NO OF COPIES OF CURRENT DTE BLOCK NSAADR EQU 78 START OF SUBADDRESSES(DC) APCSTA EQU APCTAB CURRENT APPLICATION CONTROL BLOCK SCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK EXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK NBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS SWBBLK EQU FWTFLG START OF SWB CONF. DATA SWBNAM EQU FWTSTA ADDRESS TO SWB NAME SWBTBL EQU NBRTSK LENGTH OF S:BTAB TCTEND EQU NBRTSK LAST TCTAB ENTRY SWBCNT EQU TASKID NUMBER OF SWB:S EJECT * * DISPLACEMENT IN APPLICATION CONTROL TABLE * APLREL EQU 18 APPLICATION RELOCATION BASE =6 APLIOE EQU 0 APPLICATION RESTART ADDRESS APLLAC EQU 14 APPLICATION LOAD ADDRESS APLLAP EQU 12 LOGICAL PAGE ADDRESS APLLDA EQU 0 APPL. LOAD ADDRESS (PHYSICAL) APLMMC EQU 10 APPL 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 SWB TABLE ADDRESS APLSTA EQU 16 APPL PROGRAM START ADDRESS APLTYP EQU 8 APPLICATION TYPE APLADA EQU 22 APPLICATION DISC ADDRESS (2 WORDS) =3 APLPSZ EQU 20 APPLICATION SEGMENT SIZE =3 EJECT * * CONSTANTS * S:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS SWBLEN EQU 4 LENGTH OF SWB SWBSEC EQU 6 DISPL. TO SECTOR LENGTH UP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB UPNAME EQU 4 PROTOTYPE NAME WBLEN EQU -4 LENGTH OF WORKBLOCK ******************************* * DISPLACEMENT IN CONFIGURATION DATA ******************************* * 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 * * DATA COMMUNICATION DEFINITION BLOCK * IDLIM EQU 4 ID DELIMITER OFFSET TYPOFS EQU 7 START OF TYPE RECORD NANSA EQU 2 NA-NSA RECORD QUALIFIER POS. NAOFS EQU 3 START OF NA NUMBER NSAOFS EQU 4 START OF NSA RECORD DTEFIX EQU 8 FIX PART OF DTE BLOCK EJECT **************** * SOP-HANDLING * **************** SOP EQU /2E DEVICE ADDRESS LMP1 EQU /400 SYSLOD RUNS LAMP 1 CODE LMP2 EQU /200 NOT USED LMP3 EQU /100 MEMORY OVERFLOW LMP4 EQU /80 ERROR IN CONFIGURATION DATA LMP5 EQU /40 NOT USED LMP6 EQU /20 NOT USED LMP7 EQU /10 NOT USED LMP8 EQU 8 NOT USED LMP9 EQU 4 NOT USED LMP10 EQU 2 NOT USED LMP11 EQU 1 NOT USED ***************************************************************** * CALL-FORMAT, PERFORMS: CFR A14,A13 * * DATA [REL-ADDRESS] * * * ***************************************************************** CALL FORM 16=/F697,16 EJECT * * MXSTAB DISPLACEMENTS * MXSBL EQU 6 SEGMENT BLOCK LENGTH MXNOX EQU 6 NUMBER OF EXTENTS MX:NOS EQU 8 NUMBER OF SEGMENT TABLES MX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH MX:LEV EQU /0031 MONITOR TASK LEVEL MX:LEN EQU 4 MONITOR EXTENT LENGTH MX:DA1 EQU 2 MONITOR DISC ADDRESS BITS 0-15 MX:DA2 EQU MX:DA1+2 MONITOR DISC ADDRESS BITS 16-31 MX:NOX EQU MX:DA2+2 NUMBER OF MONITOR EXTENTS MX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH MX:STA EQU 2 MONITOR EXTENT START ADDRESS EJECT * * *********** * * PAGTAB * * *********** * PAGQF EQU 0 QUEUE POINTER FORWARD PAGQB EQU 2 QUEUE POINTER BACKWARD PAGPA EQU 4 PAGE ADDRESS PAGSB EQU 6 SEGMENT BLOCK ADDRESS EJECT * * ************* * * SEGTAB * * ************* * SEGPB EQU 6 SEGMENT POINTER SEGSB EQU 6 PAGE BLOCK ADDRESS EJECT * * ******************* * * MISCELLANOUES * * ******************* * BUFLEN EQU -4 DEVIND EQU -2 DWTLEN EQU 6 TDCDD1 EQU 5 TDCDD2 EQU 6 TDCLCN EQU 10 DISP. TO LINE CON. NBR SLL0 EQU /3940 SLL A1,0 CONSTANT NBRDPS EQU 12 NUMBER OF DATA PAGES/TASK (BASIC ONLY) EJECT ****************************************************** * * * * * THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * * * * IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING * * PARAMETERS: * * * * A1 - POINTER TO CURRENT LOCATION OF SYSLDX * * A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * * * * * ****************************************************** SYSLDM EQU * LDR A8,P INIT STACK POINTER LDKL A1,REL+2 RELOCATION ROUTINE ENTRY AD A1,STKCOM+M:REL RELOCATE ADDRESS CFR A8,A1 LDKL A11,SYSLOD START OF SYSLOD LDKL A2,TCLASS GET ADDRESS TO TCLASS CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? RF(E) NO:TCL YES:DUMMY TCLASS! CALL CHPTRS RELOCATE POINTERS IN TCLASS ST A2,STKEND+TCLA SAVE RELOCATED POINTER TO TCLASS NO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS CALL CHPTRS RELOCATE POINTERS IN SCLASS ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS RF CLEAR EJECT *********************************************** * CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * *********************************************** * * ENTRY: A2 - POINTER TO TCLASS/SCLASS * A11 - SYSLOD START ADDRESS * A12 - RELOCATION CONSTANT * * EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS * * WORK REGISTER:A1-A7 * * SUBROUTINES: * CHPTRS EQU * ADR A2,A12 RELOCATE POINTER LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS LDR* A4,A3 GET LENGTH OF TCLASS/SCLASS CHPT10 EQU * SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? RF(Z) CHPT30 NO! ADK A3,2 NEXT ENTRY LDR* A5,A3 GET POINTER TO CLASS ADR A5,A12 RELOCATE STR A5,A3 STORE LDR* A6,A5 GET LENGTH OF CLASS CHPT20 EQU * SUK A6,4 MOORE DEVICES IN THIS CLASS? RB(NP) CHPT10 NO! ADK A5,4 NEXT DEVICE LDR* A7,A5 GET DWT-ADDRESS LDR A9,A7 GET DWT-ADDRESS CALL CMPADR COMPARE ADDRESSES RB(G) CHPT20 DWT IN DRIVER! ADR A7,A12 RELOCATE STR A7,A5 STORE RELOCATED DW-ADDRESS LD A8,SCTOPT GET OPTION WORD ANKL A8,1 MMU IN SYSTEM? RB(Z) CHPT20 NO! LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS LDR A9,A8 GET MONITOR ECB ADDRESS ANKL A9,1 ADDRESS ALREADY RELOCATED? RB(NZ) CHPT20 YES! ADR A8,A12 RELOCATE ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS RB CHPT20 CHPT30 EQU * RTN A14 EJECT CLEAR EQU * * * CLEAR ALL WORDS IN SYSTEM AREA * LD A2,SCTSFA LDR A1,P GET PROGRAM COUNTER CLRSYS EQU * SUK A1,2 CMR A1 CWR A1,A2 RB(NE) CLRSYS LDKL A1,CONMON AD A1,STKCOM+M:REL ABR A1 EJECT ************************************************** * B:TCT - BUILD TASK CONTROL TABLE * ************************************************** * * REFERENCED IN: MONCON * * * ENTRY: * * EXIT: * * WORK REGISTERS: A1-A7,A11,A12 * * SUBROUTINES: * * TASK CONTROL TABLE LAYOUT * _________________________ * I LENGTH I * _________________________ * I MONITOR TASKS I * _________________________ * I USER TASKS I * __________________________ * EJECT B:TCT EQU * LD A12,SCTSFA GET START OF FREE AREA ST A12,SCTTCT STORE ADDRESS TO TCTAB ADKL A12,2 FIRST TTAB ADDRESS ENTRY IFF EDM=0 * * RESERVE ENTRIES IN TCTAB FOR MONITOR EXTENT * AND MONITOR SEGMENT TASKS * LD A2,SCTMXS GET ADDRESS TO MXSTAB RF(Z) BTCT20 NOT PRESENT! CALL MX:TDB GET FIRST MONITOR EXTENT TDB BTCT02 SUK A7,1 DECREMENT NUMBER OF EXTENTS RF(N) BTCT05 NO MORE! LDR* A4,A1 GET NUMBER OF TASK ID:S BTCT04 ADK A1,2 NEXT TASK ID SUK A4,1 DECREMENT NUMBER OF TASK ID:S RB(N) BTCT02 NO MORE! LDR* A2,A1 GET TASK ID CALL RESTCT RESERVE ENTRY IN TCTAB RB BTCT04 BTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB BTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES RF(N) BTCT20 NO MORE! LDR* A4,A1 GET NUMBER OF TASK ID:S BTCT08 ADK A1,2 NEXT TASK ID SUK A4,1 DECREMENT NUMBER OF TASK ID:S RB(N) BTCT06 NO MORE LDR* A2,A1 GET TASK ID CALL RESTCT RESERVE ENTRY TCTAB RB BTCT08 XIF EJECT * * RESERVE ENTRIES IN TCTAB FOR USER TASKS * BTCT20 EQU * ST A12,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY LD A7,SYSLOD GET NUMBER OF APPLICATIONS LDKL A4,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK BTCT30 SUK A7,1 MORE APPLICATIONS? RF(N) BTCT70 NO! LD A11,APLMMC,A4 GET START OF CONFIGURATION DATA AD A11,STKCOM+CONSTA RELOCATE POINTER ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY LCR A2,A11 GET BLOCK TYPE CCK A2,'TT' TASK DEFINITION BLOCK? RF(E) BTCT35 YES LDKL A1,LMP4 FORMAT ERROR CALL ERROR HALT EJECT BTCT35 EQU * * * COMPUTE NUMBER OF TASK IN EACH TASK CLASS * BTCT40 EQU * CALL GETTSK GET NUMBER OF TASKS BTCT50 EQU * ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB SUK A1,1 MOORE TASKS IN THIS CLASS? RB(P) BTCT50 YES CALL NXTBLK SKIP TO NEXT BLOCK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) BTCT40 YES BTCT60 EQU * ADK A4,ACBLEN NEXT APPL. CONTROL BLOCK RB BTCT30 * * ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB * BTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA SU A12,SCTTCT COMPUTE LENGTH ST* A12,SCTTCT STORE RTN A14 IFF EDM=0 EJECT ***************************************************** * * * RESTCT - RESERVE ENTRY IN TCTAB * * =============================== * * * * REFERENCED IN: B:TCT * * * * ENTRY: A2 - CURRENT TASK ID * * A12 - NEXT FREE ENTRY IN TCTAB * * * * EXIT: A12 - NEXT FREE ENTRY IN TCTAB * * * * WORK REGISTERS: A3 * * * * SUBROUTINES: * * * ***************************************************** RESTCT EQU * LDR A3,A12 GET END OF TCTAB REST10 SUK A3,2 NEXT ENTRY CW A3,SCTTCT ALL ENTRIES CHECKED? RF(NE) REST30 NOT YET STR A2,A12 STORE TASK ID IN TCTAB ADKL A12,2 NEXT FREEE ENTRY IN TCTAB REST20 RTN A14 RETURN REST30 CWR* A2,A3 CHECK IF SAME TASK ID RB(NE) REST10 NOT THE SAME RB REST20 COINCIDENCE: RETURN XIF IFF FM=0 EJECT *************************************************** * * * B:FWT - BUILD FILE WORK TABLE * * ============================= * * * *************************************************** * * * REFERENCED IN: CONMON * * * * ENTRY: SCTNFT - NUMBER OF FM-FILES PER TASK * * SCTNOF - NUMBER OF GENERAL FM-FILES * * SCTFWL - FILE WORK TABLE LENGTH IN * * BYTES * * * * EXIT: SCTFWT - ADDRESS TO FIRST FWT * * SCTNOF - TOTAL NUMBER OF FM-FILES * * * * WORK REGISTERS: A2,A3 * * * * SUBROUTINES: ERROR,MULT * * * * FUNCTIONAL DESCRIPTION: * * THIS SUBROUTINE RESERVES MEMORY AREA FOR * * FILE WORK TABLES. * * SIZE OF THE AREA RESERVED IS GIVEN BY THE * * FORMULA: A=L*(G+N*T) * * WHERE A=AREA SIZE IN BYTES * * L= FWT LENGTH IN BYTES * * G=NUMBER OF GENERAL FM-FILES * * T=NUMBER OF FM-FILES PER TASK * * N=NUMBER OF USER TASKS * * * *************************************************** EJECT B:FWT EQU * LD* A2,SCTTCT GET LENGTH OF TCTAB AD A2,SCTTCT COMPUTE END OF TCTAB SU A2,STKEND+CUTENT LENGTH OF USER PART SRL A2,1 NUMBER OF USER TASKS LD A3,SCTNFT GET NUMBER OF FM-FILES PER TASK CALL MULT MULTIPLY AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES LD A2,SCTFWL GET FILE WORK TABLE LENGTH CALL MULT MULTIPLY SRL A3,1 NUMBER OF WORDS TO BE RESERVED ADK A3,0 ANY FWT:S AT ALL? RF(Z) FWT70 NO! ST A3,STKEND+FWTSIZ SAVE FWT AREA SIZE IN WORDS LD A2,SCTSFA GET START OF FREE AREA ST A2,SCTFWT STORE ADDRESS TO FIRST FWT ST A2,STKEND+FWTSTA SAVE START OF FWT AREA ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA FWT50 CW A2,STKEND+LIMIT MEMORY OVERFLOW? RF(NE) FWT60 NOT YET! LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR FWT60 CMR A2 CLEAR FWT AREA ADK A2,2 RESERVE ANOTHER WORD SUK A3,1 DECREMENT WORD COUNTER RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW ST A2,SCTSFA UPDATE START OF FREE AREA SUK A2,2 ST A2,STKEND+INTTAB SAVE ADDRESS TO T.I.T. FWT70 RTN A14 XIF EJECT ************************************** * MONBLK - GENERATE MONITOR BLOCKS * ************************************** * * NUMBER OF BLOCKS TO BE GENERATED: * 20+N*(NUMBER OF TASKS IN SYSTEM) * WHERE N IS A SYSTEM CONSTANT * DEFINED AT SYSTEM GENERATION * * * REFERENCED IN: SYSLOD * * ENTRY: SCTSFA - START OF FREE AREA * SCTEFA - END OF FREE AREA * * EXIT: BLOCKS - POINTER TO FIRST BLOCK * * WORK REGISTERS: A1,A2,A7,A12 * * SUBROUTINES: BLKGEN * EJECT MONBLK EQU * LDK A1,0 LD A12,SCTSFA START OF FREE AREA ST A12,FREQUE SAVE POINTER TO FIRST BLOCK * * GET NUMBER OF TASKS IN SYSTEM * LD* A7,SCTTCT GET LENGTH OF TC:TAB * * GET NUMBER OF BLOCKS PER TASK TO GENERATE * LD A2,SCTBLK ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA MON:10 EQU * SUK A7,2 MOORE TASKS? RF(Z) MON:20 NO CALL BLKGEN RB MON:10 MON:20 EQU * * * GENERATE EXTRA MONITOR BLOCKS * LDK A2,19 ADK A2,NOEXMB AD A2,SCTNOF AD A2,SCTNOF CALL BLKGEN * * GENERATE END BLOCK * STR A1,A12 ST A1,2,A12 ST A1,4,A12 * * CHECK IF BUFFER GREATER THAN 2 WORDS RESERVED FOR SYSLOD PART A * IF NOT - USE LAST MONITOR BLOCK AS BUFFER * LD A1,STKCOM+BUFSIZ GET BUFFER SIZE CWK A1,4 >4? RF(NL) MON:30 NOT LESS ANYWAY! LDK A1,4 BUFFER SIZE ST A1,STKCOM+BUFSIZ UPDATE MAX BUFFER SIZE ADKL A12,2 ST A12,STKCOM+SYSBUF UPDATE BUFFER ADDRESS MON:30 EQU * ADKL A12,6 ST A12,SCTSFA UPDATE END OF FREE AREA RTN A14 EJECT ************************************* * BLKGEN - GENERATE MONITOR BLOCK * ************************************* * * REFERENCED IN: MONBLK * * ENTRY: A1=0 * A2 - NUMBER OF BLOCKS TO BE GENERATED * A12 - NEXT FREE ENTRY * * EXIT: A1=0 * A12 - NEXT FREE ENTRY * * WORK REGISTES: A3,A4 * * SUBROUTINES: * * MONITOR BLOCK LAYOUT * -------------------- * I DATA *+6 I * -------------------- * I DATA 0 I * -------------------- * I DATA 0 I * -------------------- * EJECT BLKGEN EQU * LDR A3,A2 BLK:10 EQU * RF(Z) BLKEX LDK A4,3 NUMBER OF WORDS/BLOCK BLK:20 CW A12,STKEND+LIMIT MEMORY OVERFLOW? RF(NE) BLK:30 NOT YET! LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR BLK:30 ADKL A12,2 RESERVE ANOTHER WORD SUK A4,1 MORE WORDS WANTED? RB(NZ) BLK:20 YES ST A12,-6,A12 ST A1,-4,A12 ST A1,-2,A12 SUK A3,1 RB BLK:10 BLKEX EQU * RTN A14 IFF EDM=0 EJECT ******************************************************************* * * * B:MXTT - BUILD TTABS FOR MONITOR EXTENT TASKS * * ============================================= * * * * REFERENCED IN: SYSLDM * * * * ENTRY: * * * * EXIT: * * * * WORK REGISTERS: A4 * * * * SUBROUTINES: MX:TDB,MXTTAB * * * ******************************************************************* B:MXTT EQU * LD A2,SCTMXS GET ADDRESS TO MXSTAB RF(Z) BMX99 NOT PRESENT LDK A4,2 DISPLACEMENT TO FIRST EXTENT TASK ST* A4,SCTTCT IN TCTAB CALL MX:TDB FIND FIRST MONITOR EXTENT TDB LD A4,SCTMOX GET ADDRESS TO START-ADDRESS TABLE RF(NZ) BMX05 ALREADY DEFINED LD A4,SCTSFA START OF FREE AREA ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE ST* A4,SCTMOX STORE IN FIRST WORD SUK A4,2 RESET TASK ID COUNTER LDR A2,A1 GET POINTER TO TDB LDR A3,A7 GET NUMBER OF EXTENTS SUK A2,2 BMX01 SUK A3,1 MORE EXTENTS? RF(N) BMX03 NO ADK A2,2 ADDRESS NUMBER OF TASK ID:S LDR* A6,A2 GET NUMBER OF TASK ID:S ADR* A4,A2 ADD NUMBER OF TASK ID:S BMX02 SUK A6,1 MORE TASK ID:S? RB(N) BMX01 NO ADK A2,2 ADDRESS NEXT TASK ID RB BMX02 BMX03 SLL A4,2 INCLUDE LENGTH ADK A4,2 INCLUDE LENGTH OF START-ADDRESS TABLE AD A4,SCTSFA END OF START-ADDRESS TABLE ST A4,SCTSFA UPDATE START OF FREE AREA LDR A11,A4 GET TABLE END LDR A9,P GET CURRENT LOCATION CALL CMPADR COMPARE ADDRESSES RF(NG) BMXS05 OK LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR BMXS05 ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA BMX05 SUK A1,2 BMX10 SUK A7,1 DECREMENT NUMBER OF EXTENTS RF(N) BMX99 NO MORE LD A12,SCTSFA GET START OF FREE AREA ST A12,STKEND+EXCTAB SAVE ADDRESS TO CONTR. BLOCK ADKL A12,ACBLEN RESERVE AREA FOR CONTROL BLOCK ST A12,SCTSFA UPDATE START OF FREE AREA ADK A1,2 NUMBER OF TASK ID:S LDR* A4,A1 GET NUMBER OF TASK ID:S BMX20 SUK A4,1 DECREMENT NUMBER OF TASK ID:S RB(N) BMX10 NO MORE ADK A1,2 NEXT TASK ID CALL MXTTAB RB BMX20 BMX99 RTN A14 RETURN EJECT ******************************************************************** * * * MXTTAB - GENERATE TTAB FOR MONITOR EXTENT TASK * * ============================================== * * * * ENTRY: A1 -POINTER TO TASK ID IN MXSTAB * * A5 - POINTER TO MONITOR EXTENT BLOCK * * A12 - POINTER TO START OF FREE AREA * * * * EXIT: A1 - POINTER TO TASK ID IN MXSTAB * * A5 - POINTER TO MONITOR EXTENT BLOCK * * * * WORK REGISTER: A2 * * * * SUBROUTINES: IMXTT,STRMOX,INBIMA * * * ******************************************************************** EJECT MXTTAB EQU * MSR 4,A15 SAVE REGISTER A1-A4 ON STACK CALL BMXSTT BUILD MONITOR EXTENT TTAB CALL IMXTT INIT MMU TABLE LDR* A2,A1 GET TASK ID CALL STRMOX STORE IN MOXTAB LD A2,MX:STA,A5 GET START ADDRESS LD A3,STKEND+EXCTAB GET CURRENT EXTENT BLOCK =6 ST A2,APLSTA,A3 STORE START ADDRESS =6 CALL STRMOX STORE IN MOXTAB LDR* A2,A5 GET EXTENT ADDRESS ANKL A2,/3FF GET DISPLACEMENT SLL A2,2 MAKE IT 12 BITS ST A2,TTB:CB,A12 STORE CURRENT SEGMENT BASE ADDRESS ADK A2,12 5 WORDS FOR DEBUGGER =9 ST A2,TTB:SA+26,A12 STORE IN A13 SAVE-AREA LD A3,STKEND+EXCTAB GET CURRENT EXTENT CONTROL BLOCK SUK A2,2 =10 ST A2,APLLAC,A3 STORE LOGICAL ADDR. TO COMMON PART ST A2,APLREL,A3 STORE RELOCATION BASE =6 LDKL A2,TTB:MT DISPL. TO COMMON PART ST A2,APLMMC,A3 STORE IN EXTENT CONTROL BLOCK ST A3,TTB:AP,A12 STORE EXTENT CONTROL BLOCK ADDRESS LD A2,SCTOPT GET OPTION WORD ANK A2,/20 EMM? RF(Z) MXTT20 NO LD A2,MX:LEN,A5 GET EXTENT LENGTH ST A2,MAPLEN,A13 SAVE ST A12,TTAB,A13 SAVE TTAB ADDRESS CALL INBIMA INIT BIP MAP MXTT20 MLR 4,A15 RESTORE REGISTERS RTN A14 RETURN EJECT ********************************************* * * * STRMOX - STORE START ADDRRESS IN MOXTAB * * ======================================= * * * * REFERENCED IN: MXTTAB * * * * ENTRY: A2 - VALUE TO STORE * * * * EXIT: * * * * WORK REGISTERS: * * * * SUBROUTINES: * * * ********************************************* STRMOX EQU * LD* A3,SCTMOX GET CURRENT LENGTH AD A3,SCTMOX ADDRESS TO NEXT FREE ENTRY STR A2,A3 STORE START ADDRESS IM* SCTMOX INCREMENT LENGTH IM* SCTMOX TWICE RTN A14 RETURN EJECT **************************************************** * * * IMXTT - INIT MMU TABLE FOR MONITOR EXTENT TASK * * ============================================== * * * * REFERENCED IN: MXTTAB * * * * ENTRY: A1 - POINTER TO PHYSICAL ADDRESS * * A12 - TTAB ENTRY POINTER * * * * EXIT: * * * * WORK REGISTERS: A2,A3,A4,A9,A11 * * * * SUBROUTINES: CMPADR * * * **************************************************** EJECT IMXTT EQU * LDR A2,A12 GET TTAB ENTRY ADKL A2,TTB:MT GET START OF MMU TABLE LDR* A3,A5 GET PHYSICAL ADDRESS TO EXTENT LDR A4,A3 SAVE ANKL A3,/FC00 PHYSICAL PAGE ADDRESS ANKL A4,/3FF DISPLACEMENT SLL A4,2 MAKE IT 12 BITS LDKL A9,/1000 PHYSICAL PAGE SIZE SUR A9,A4 SAVE LD A11,MX:LEN,A5 GET EXTENT LENGTH CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? RF(G) IMX10 NO! XRR A11,A11 INDICATE SINGLE ENTRY RF IMX20 IMX10 SUR A11,A9 SUBTRACT REMAINING AREA IN CURRENT PAGE IMX20 STR A3,A2 STORE PAGE ADDRESS ADKL A3,/400 INCREMENT PAGE ADDRESS ADK A2,2 INCREMENT ENTRY POINTER ADKL A11,0 ONE ENTRY ENOUGTH? RF(Z) IMX99 YES! RF(NN) IMX30 <32KB SUKL A11,/1000 DECREMENT LENGTH RB IMX20 IMX30 STR A3,A2 STORE PAGE ADDRESS ADKL A3,/400 INCREMENT PAGE ADDRESS ADK A2,2 INCREMENT ENTRY POINTER SUKL A11,/1000 DECREMENT LENGTH RB(P) IMX30 IMX99 EQU * =6 LDR A4,A12 GET TTAB ENTRY =6 ADKL A4,TTB:MT+32 GET END OF MMU-TABLE =6 LDKL A3,/FC00 =6 IMX100 EQU * =6 CWR A4,A2 ENTRIES LEFT IN MMU-TABLE? =6 RF(E) IMX110 NO! =6 STR A3,A2 STORE PAGE ERROR IN MMU-ENTRY =6 ADK A2,2 NEXT MMU-ENTRY =6 RB IMX100 =6 IMX110 EQU * =6 RTN A14 =6 EJECT ******************************************************** * * * B:MSEG - BUILD MONITOR TASK SEGMENT TABLES & TTABS * * ================================================== * * * * REFERENCED IN: SYSLDM * * * * ENTRY: * * * * EXIT: * * * * WORK REGISTERS: A1-A12 * * * * SUBROUTINES: MX:MST,MX:STD,BMSTAB,CHKTAD,BMXSTT * * * ******************************************************** EJECT B:MSEG EQU * CALL MX:MST FIND FIRST MONITOR SEGMENT TABLE ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA LDR A4,A5 SAVE POINTER TO NUMBER OF SEGTABS LDR A8,A1 SAVE POINTER TO FIRST MONITOR SEGMENT TABLE CALL MX:STD FIND FIRST MONITOR SEGMENT TABLE TASK DEFINITION BLOCK BMSG10 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES RF(N) BMSG99 NO MORE! CM STKEND+SCBTAB CLEAR ADDRESS TO SEGMENT CONTROL BLOCK CM STKEND+MAXSGM CLEAR MAXIMUM SEGMENT SIZE ADK A4,2 INCREMENT POINTER TO NUMBER OF SEGMENTS CALL BMSTAB BUILD MONITOR SEGMENT TABLE LDR* A7,A1 GET NUMBER OF TASKS IN SEGTAB BMSG20 ADK A1,2 NEXT TASK ID SUK A7,1 DECREMENT NUMBER OF TASK ID:S RB(N) BMSG10 NO MORE! CALL CHKTAD CHECK IF TASK ALREADY DEFINED RF(NZ) BMSG30 TASK ALREADY DEFINED! CALL BMXSTT BUILD TTAB FOR MONITOR SEGMENT TASK LD A10,STKEND+SCBTAB GET SEGMENT CONTROL BLOCK RF(NZ) BMSG25 SEGMENT CONTROL BLOCK GENERATED LD A12,SCTSFA GET START OF FREE AREA LDR A10,A12 SAVE ADKL A12,ACBLEN RESERVE FOR SEGMENT CONTROL BLOCK ST A12,SCTSFA UPDATE START OF FREE AREA BMSG25 ST A10,TTB:AP,A12 STORE ADDRESS TO SEGMENT CONTROL BLOCK BMSG30 ST A5,TTB:SP,A12 STORE SEGMENT TABLE POINTER LD A10,TTB:AP,A12 GET ADDRESS TO SEGMENT CONTROL BLOCK LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE ADKL A3,/FFFF NUMBER OF 4K-MULTIPLES ANKL A3,/F000 ISOLATE NUMBER OF 4K-MULTIPLES LDKL A2,/F000 END OF LOGICAL MEMORY SUR A2,A3 COMPUTE LOGICAL PAGE ADDRESS LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE ANKL A3,/FFF EVEN 4K-MULTIPLE? RF(NZ) BMSG40 NO! ADKL A2,/1000 SAVE ONE MMU ENTRY BMSG40 ST A2,APLLAP,A10 STORE IN SEGMENT CONTROL TABLE SRL A2,12 MMU TABLE ENTRY LDK A3,16 NUMBER OF MMU ENTRIES SUR A3,A2 COMPUTE NUMBER OF PAGE ENTRIES ST A3,APLNPE,A10 STORE IN SEGMENT CONTROL TABLE SLL A3,1 MULTIPLY BY TWO NGR A3,A3 MAKE NEGATIVE DISPLACEMENT ADKL A3,TTB:CB DISPL TO END OF MMU TABLE ST A3,APLMMP,A10 STORE IN SEGMENT CONTROL TABLE LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE ADKL A3,/3FF COMPUTE NUMBER OF 1K-MULTIPLES ANKL A3,/FC00 ISOLATE NUMBER OF 1K-MULTIPLES LDR A11,A3 GET CURRENT SEGMENT SIZE LD A9,SCTPSZ GET MAX SEGMENT SIZE CALL CMPADR CURRENT SEGMENT GREATER? RB(L) BMSG20 NO ST A3,SCTPSZ UPDATE MAX SEGMENT SIZE RB BMSG20 BMSG99 RTN A14 RETURN EJECT ********************************************************** * * * BMSTAB - BUILD MONITOR SEGMENT TABLE * * ==================================== * * * * REFERENCED IN: B:MSEG * * * * ENTRY: A4 - POINTER TO NUMBER OF SEGMENTS * * A8 - POINTER TO SEGMENT CLUSTER IN MXSTAB * * * * EXIT: A5 - SEGMENT TABLE ADDRESS * * * * WORK REGISTERS: A2,A3,A9,A11 * * * * SUBROUTINES: CMPADR,ERROR * * * ********************************************************** EJECT BMSTAB EQU * STR A1,A15 SAVE REGISTER A1 ON STACK LD A5,SCTSFA GET START OF FREE AREA LD A2,SCTIPL GET PROGRAM LOAD DEVICE STR A2,A5 STORE IN SEGMENT TABLE ADK A5,2 NEXT ENTRY IN SEGMENT TABLE LDR* A9,A4 GET NUMBER OF SEGMENTS LDR A1,A9 SAVE STR A9,A5 STORE IN SEGMENT TABLE ADS A9,STKCOM+TOTSGM INCREMENT TOTAL NUMBER OF SEGMENTS ADK A5,2 SEGMENT TABLE ENTRY LDR A3,A5 SAVE * * BUILD SEGMENT BLOCK 0 * LDKL A2,/8400 STATUS FOR SEGMENT 0 STR A2,A3 STORE IN SEGMENT BLOCK 0 BMST20 ST A1,STKEND+SGMCNT SAVE NUMBER OF SEGMENTS ADK A3,8 NEXT SEGMENT BLOCK LD A9,STKEND+LIMIT GET END OF SYSTEM AREA LDR A11,A3 GET END OF SEGMENT BLOCKS CALL CMPADR COMPARE ADDRESSES RF(NG) BMST25 OK LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR BMST25 LDR* A2,A8 GET SEGMENT TYPE SRL A2,8 ISOLATE CCK A2,'RR' CORE RESIDENT SEGMENT? RF(E) BMST40 YES! LD A2,SCTOPT GET OPTION WORD ANK A2,2 DISC PAGING? RF(Z) BMST40 NO! * * DISC PAGING & DISC RESIDENT SEGMENT * LD A1,SCTMXS GET ADDRESS TO MXSTAB LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31 LD A1,MX:DA1,A1 GET DISC ADDRESS BITS 0-15 LD A10,2,A8 GET RELOCATION BASE ADR A2,A10 RELOCATE DISC ADDRESS RF(P) BMST30 NO CARRY! ANKL A2,/7FFF CLEAR BIT 0 ADK A1,1 ADD CARRY RF(P) BMST30 NOT OVERFLOW LDKL A1,LMP10 DISC ADDRESS OVERFLOW CALL ERROR BMST30 ORKL A1,/4000 INDICATE ASSEMBLER SEGMENT STR A1,A3 STORE SEGMENT DISC ADDRESS BITS 0-15 ST A2,2,A3 STORE SEGMENT DISC ADDRESS BITS 16-31 RF BMST50 * * DISC RESIDENT SEGMENT OR NO DISC PAGING * BMST40 LDKL A2,/8800 STATUS FOR DISC RESIDENT SEGMENT STR A2,A3 STORE IN SEGMENT BLOCK BMST50 LD A9,4,A8 GET SEGMENT LENGTH LD A11,STKEND+MAXSGM GET MAXIMUM SEGMENT LENGTH CALL CMPADR RF(NL) BMST55 CURRENT SEGMENT NOT GREATER ST A9,STKEND+MAXSGM UPDATE MAXIMUM SEGMENT LENGTH BMST55 ST A9,4,A3 STORE SEGMENT LENGTH IN SEGMENT BLOCK ADKL A8,6 INCREMENT POINTER IN MXSTAB LD A1,STKEND+SGMCNT GET NUMBER OF SEGMENTS SUK A1,1 RB(NZ) BMST20 MORE SEGMENTS ADK A3,8 END OF SEGMENT TABLE BMST60 ST A3,SCTSFA UPDATE START OF FREE AREA LDR* A1,A15 RESTORE REGISTER A1 RTN A14 EJECT ************************************************************ * * * CHKTAD - CHECK IF TASK ALREADY DEFINED * * ====================================== * * * * REFERENCED IN: B:MSEG * * * * ENTRY: A1 - POINTER TO TASK ID * * FOR MONITOR SEGMENT TASK * * * * EXIT: A12 - TTAB ADDRESS IF TASK ALREADY DEFINED * * A12 = 0 IF TASK NOT DEFINED * * * * WORK REGISTERS: A2,A3 * * * * SUBROUTINES: PSW * * * ************************************************************ EJECT CHKTAD EQU * LD* A2,SCTTCT GET LENGTH OF TCTAB AD A2,SCTTCT END OF TCTAB CHKT20 SUK A2,2 DECREMENT POINTER IN TCTAB CW A2,SCTTCT START OF TCTAB? RF(E) CHKT30 YES: ALL TASKS CHECKED! LDR* A3,A2 GET POINTER TO TTAB LD A3,TTB:ID,A3 GET TASK ID CWR* A3,A1 EQUAL TO CURRENT TASKS? RB(NE) CHKT20 NO LDR* A12,A2 GET TTAB POINTER RF CHKT50 CHKT30 LDKL A12,0 INDICATE TASK NOT FOUND CHKT50 CFI A14,PSW,A13 STORE PSW ON STACK RTN A14 EJECT ******************************************************************* * * * BMXSTT - BUILD MONITOR EXTENT & SEGMENT TTABS * * ============================================= * * * * REFERENCED IN: MXTTAB,B:MSEG * * * * ENTRY: * * * * EXIT: A12 - TTAB ADDRESS * * * * WORK REGISTERS: A2,A9,A10,A11 * * * * SUBROUTINES: CMPADR,ERROR * * * ******************************************************************* BMXSTT EQU * LD A12,SCTSFA GET START OF FREE AREA LDKL A10,TTB:TD+2 STANDARD TTAB LENGTH LD A2,SCTOPT GET OPTION WORD ANK A2,/21 EMM? XRK A2,/21 RF(NZ) BMXS20 SUKL A12,TTB:AM INCLUDE MMU ALLOCATION BIT MAP SUKL A10,TTB:AM INCLUDE LENGTH RF BMXS40 BMXS20 LD A2,SCTOPT GET OPTION WORD ANK A2,1 MMU OPTION? RF(Z) BMXS30 NO! SUKL A12,TTB:MT INCLUDE MMU TABLE IN TTAB SUKL A10,TTB:MT INCLUDE LENGTH RF BMXS40 BMXS30 LD A2,SCTOPT GET OPTION WORD ANK A2,2 DISC PAGING? RF(Z) BMXS40 SUKL A12,TTB:CB INCLUDE 3 WORDS FOR DISC PAGING SUKL A10,TTB:CB INCLUDE IN LENGTH BMXS40 AD A10,SCTSFA COMPUTE START OF FREE AREA LDR A9,A10 SAVE LD A11,STKEND+LIMIT GET END OF SYSTEM AREA CALL CMPADR MEMORY OVERFLOW? RF(NL) BMXS50 NO! LDKL A1,LMP3 CALL ERROR INDICATE MEMORY OVERFLOW BMXS50 ST A10,SCTSFA UPDATE START OF FREE AREA LD* A2,SCTTCT GET CURRENT LENGTH AD A2,SCTTCT COMPUTE NEXT FREE ENTRY STR A12,A2 STORE TTAB ADDRESS IM* SCTTCT INCREMENT CURRENT LENGTH IM* SCTTCT TWICE LDR* A2,A1 GET TASK ID ST A2,TTB:ID,A12 STORE IN TTAB LDKL A2,MX:LEV GET MONITOR TASK LEVEL ST A2,TTB:ST,A12 STORE IN TTAB SLL A2,10 ORKL A2,/00C1 PROGRAM STATUS ST A2,TTB:PW,A12 STORE PROGRAM STATUS WORD LD A2,STKEND+EXCTAB GET EXTENT CONTROL BLOCK ADDRESS ST A2,TTB:AP,A12 STORE IN TTAB LDK A2,2 ST A2,TTB:TD,A12 STORE DEVICE TABLE LENGTH RTN A14 RETURN EJECT ************************************************************** * MX:MEB - FIND FIRST MONITOR EXTENT BLOCK * * ======================================== * * * * REFERENCED IN: MX:MST * * * * ENTRY: SCTMXS - ADDRESS TO MONITOR EXTENT TABLE * * * * EXIT: A1 - POINTER TO FIRST MONITOR EXTENT BLOCK * * A5 - POINTER TO NUMBER OF SEGTABS * * A6 - NUMBER OF MONITOR SEGMENT TABLES * * A7 - NUMBER OF MONITOR EXTENTS * * * * WORK REGISTERS: A2 * * * * SUBROUTINES: * * * ************************************************************** EJECT MX:MEB EQU * LD A7,SCTMXS GET ADDRESS TO MXSTAB LDR A6,A7 SAVE RF(Z) MEB99 NOT PRESENT LD A2,MX:NOS,A7 GET NUMBER OF SEGTABS LDR A6,A2 SAVE LDR A1,A7 SAVE ADDRESS TO MXSTAB LD A7,MX:NOX,A7 GET NUMBER OF EXTENTS ADK A1,MX:NOS ADDRESS NUMBER OF SEGTABS LDR A5,A1 SAVE MEB10 ADK A1,2 ADDRESS NUMBER OF SEGMENTS SUK A2,1 MORE SEGTABS? RB(NN) MEB10 YES MEB99 RTN A14 RETURN EJECT ************************************************************** * * * MX:MST - GET FIRST MONITOR SEGMENT TABLE * * ======================================== * * * * REFERENCED IN: B:MSEG * * * * ENTRY: SCTMXS - ADDRESS TO MXSTAB * * * * EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TABLE * * A5 - POINTER TO NUMBER OF SEGTABS * * A6 - NUMBER OF MONITOR SEGMENT TABLES * * A7 - NUMBER OF MONITOR EXTENTS * * * * WORK REGISTERS: A2 * * * * SUBROUTINES: MX:MEB * * * ************************************************************** EJECT MX:MST EQU * CALL MX:MEB GET POINTER TO FIRST MONITOR EXTENT BLOCK LDR A2,A7 GET NUMBER OF MONITOR EXTENT BLOCKS MST10 SUK A2,1 DECREMENT NUMBER OF MONITOR EXTENT BLOCKS RF(N) MST99 NO MORE MONITOR EXTENTS ADK A1,MX:EBL ADDRESS NEXT MONITOR EXTENT BLOCK RB MST10 MST99 RTN A14 RETURN EJECT ************************************************************* * * * MX:TDB - GET FIRST MONITOR EXTENT TASK DEFINITION BLOCK * * ======================================================= * * * * REFERENCED IN: MX:STD * * * * ENTRY: SCTMXS - ADDRESS TO MXSTAB * * * * EXIT: A1 - POINTER TO FIRST MONITOR EXTENT TASK * * DEFINITION BLOCK * * A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * * A6 - NUMBER OF MONITOR SEGMENT TABLES * * A7 - NUMBER OF MONITOR EXTENTS * * * * WORK REGISTERS: A2,A3 * * * * SUBROUTINES: MX:MST * * * ************************************************************* EJECT MX:TDB EQU * CALL MX:MST GET FIRST MONITOR SEGMENT TABLE LDR A2,A6 GET NUMBER OF SEGMENT TABLES TDB10 ADK A5,2 ADDRESS NUMBER OF SEGMENTS SUK A2,1 DECREMENT NUMBER OF SEGTABS RF(N) TDB99 NO MORE SEGTABS LDR* A3,A5 GET NUMBER OF SEGMENTS TDB20 SUK A3,1 DECREMENT NUMBER OF SEGMENTS RB(N) TDB10 NO MORE SEGMENTS ADK A1,MX:SBL INCREMENT SEGMENT BLOCK POINTER RB TDB20 TDB99 RTN A14 RETURN EJECT ************************************************************** * * * MS:STD - GET FIRST MONITOR SEGMENT TASK DEFINITION BLOCK * * ======================================================== * * * * REFERENCED IN: B:MXST * * * * ENTRY: * * * * EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TASK * * DEFINITION BLOCK * * A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * * A6 - NUMBER OF MONITOR SEGMENT TABLES * * A7 - NUMBER OF MONITOR EXTENTS * * * * WORK REGISTERS: A2,A3 * * * * SUBROUTINES: MX:TDB * * * ************************************************************** EJECT MX:STD EQU * CALL MX:TDB GET FIRST MONITOR TASK DEF. BLOCK LDR A2,A7 GET NUMBER OF MONITOR EXTENTS STD10 SUK A2,1 DECREMENT NUMBER OF MONITOR EXTENTS RF(N) STD99 NO MORE EXTENTS LDR* A3,A1 GET NUMBER OF TASKS IN EXTENT STD20 ADK A1,2 ADDRESS TASK ID SUK A3,1 DECREMENT NUMBER OF TASKS RB(NN) STD20 MORE TASKS RB STD10 NEXT EXTENT STD99 RTN A14 RETURN XIF EJECT ****************************** * B:TT - BUILD TASK TABLES * ****************************** * * REFERENCED IN: SYSLDM * * ENTRY: * * EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES * * WORK REGISERS: A1-A12 * * SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC * * TASK TABLE LAYOUT * * ------------------------ * TTB:AM I MMU ALLOCATION I * I BIT MAP (4 WORDS) I * I______________________I * TTB:MT I MMU I * I TABLE I * I 16 I * I WORDS I * I______________________I * TTB:CB I CSB POINTER I * I______________________I * TTB:SP I SEGTAB POINTER I * I______________________I * TTB:SB I SEGM. BLOCK POINTER I * I----------------------I * TTB:AP I ACB POINTER I * ------------------------ * TASK ENTRY I QUEUE I * ------------------------ * TTB:ID I TASK IDENTIFICATION I * ------------------------ * TTB:ST I STATUS/LEVEL I * ------------------------ * TTB:PP I PENDING QUEUE I * ------------------------ * TTB:PW I PROGRAM STATUS WORD I * ------------------------ * TTB:SA I DISPATCH ADDRESS I * ------------------------ * I REGISTER I * I SAVE I * I AREA I * I 14 I * I WORDS I * ------------------------ * TTB:TD I TASK I * I SAVE01URATION I * I TABLE I * : : * : : * I______________________I * TASK SAVE01URATION TABLE LAYOUT * ______________________________ * I LENGTH I * ------------------------------ * I INDEX/FILCODE I * ------------------------------ * I DWT-ADDRESS I * ------------------------------ * : : * : : * ------------------------------ * I INDEX/FILECODE I * ------------------------------ * I DWT-ADDRESS I * ------------------------------ EJECT B:TT EQU * CALL FSTAPL GET FIRST APPLICATION LD A12,SCTSFA GET START OF FREE AREA ST A12,STKEND+SFASAV SAVE ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA ST P,STKEND+WRK1 SAVE PROGRAM COUNTER ST A11,STKEND+LCDSTA SAVE CONFIGURATION DATA POINTER ST P,STKEND+WRK2 SAVE PROGRAM COUNTER * * GET NUMBER OF TASKS IN THIS CLASS * CALL GETTSK ST A1,STKEND+NBRTSK SAVE NUMBER OF TASKS * * GET TASK ID START VALUE * LC A5,TDBID+4,A11 GET FIRST ID CHAR SLL A5,8 MOVE TO LEFT BYTE LC A5,TDBID+5,A11 GET SECOND ID DIGIT ST A5,STKEND+TASKID SAVE TASK ID START VALUE * * CHECK IF CREDIT APPLICATION * LD A5,STKEND+APCSTA GET APPLICATION CONTROL BLOCK LD A5,APLTYP,A5 GET APPLICATION TYPE CWK A5,'CR' CREDIT APPLICATION? RF(NE) BTT21 EJECT * * GET TASK CLASS TO MATCH VALUE * LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL SLL A5,8 MOVE TO LEFT BYTE LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL CALL GETTCL GET TCL START VALUE ST A5,STKEND+TCLSAV SAVE BTT21 EQU * EJECT * * GET TASK LEVEL * LC A5,TDBTL+4,A11 GET FIRST DIGIT IN LEVEL SLL A5,8 MOVE TO LEFT BYTE LC A5,TDBTL+5,A11 GET SECOND DIGIT IN LEVEL CALL CONVRT CONVERT TO BINARY ST A1,STKEND+TSKLEV SAVE EJECT * * COMPUTE SIZE OF CONFIGURATION DEPENDENT PART OF TASK TABLE * LDKL A10,TTB:TD+4 STANDARD LENGTH LD A5,SCTOPT GET OPTION WORD ANK A5,/21 CHECK IF EMM AND MMU PAGING INCLUDED XRK A5,/21 BOTH INCLUDED? RF(NZ) BTT22 NO! SUKL A10,TTB:AM+2 INCLUDE BIT MAP IN LENGTH SUKL A12,TTB:AM RESERV SPACE FOR BIT MAP RF BTT30 BTT22 LD A5,SCTOPT SRC A5,1 MMU PAGING? RF(NN) BTT25 NO SUKL A10,TTB:MT+2 16+2 WORD EXTRA IF MMU SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS RF BTT30 BTT25 EQU * SRC A5,1 DISC PAGING? RF(NN) BTT30 NO! SUKL A10,TTB:CB+2 FOUR WORD EXTRA IF DISC PAGING SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD BTT30 EQU * EJECT * * COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART * OF TASK CONFIGURATION TABLE * LDK A6,0 RESET LENGTH LDR A9,A11 INIT SUB-POINTER IN TASK DEFINITION BLOCK ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION CALL GETTDC GET NUMBER OF TDC:S LDR A7,A1 SAVE BTT35 EQU * RF(Z) BTT40 CALL GETCLN GET CLASS NUMBER (1-99) ADR A1,A1 2*(BINARY CLASS NUMBER) LD A8,STKEND+TCLA GET POINTER TO TCLASS LDR* A2,A8 SUK A2,2 CWR A1,A2 RF(NG) BTT37 LDKL A1,LMP4 CALL ERROR INDICATE FORMAT ERROR BTT37 EQU * ADR A8,A1 GET ENTRY IN TCLASS LDR* A8,A8 GET POINTER TO CLASS LDR* A8,A8 GET LENGTH OF CLASS SUKL A8,2 EXCLUDE LENGTH WORD ADR A10,A8 ADD TO TOTAL TTAB LENGTH ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH ADKL A9,TDC+TLC NEXT CLASS SUK A7,1 DECREMENT NUMBER OF TDC:S RB BTT35 EJECT BTT40 EQU * * * COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF * TASK CONFIGURATION TABLE * CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES ADKL A9,2 FIRST SDC RECORD LDR A7,A1 SAVE BTT50 EQU * RF(Z) BTT55 NO MOORE SDC:S CALL GETCLN GET CLASS NUMBER (1-99) ADR A1,A1 2*(BINARY CLASS NUMBER) LD A8,STKEND+SCLA GET POINTER TO SCLASS LDR* A2,A8 SUK A2,2 CWR A1,A2 RF(NG) BTT52 LDKL A1,LMP4 CALL ERROR INDICATE FORMAT ERROR BTT52 EQU * ADR A8,A1 GET ENTRY IN SCLASS LDR* A8,A8 GET POINTER TO CLASS LDR* A8,A8 GET LENGTH OF CLASS SUKL A8,2 EXCLUDE LENGTH WORD ADR A10,A8 ADD TO TOTAL TTAB LENGTH ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH ADKL A9,SDC NEXT CLASS SUK A7,1 DECREMENT NUMBER OF SDC:S RB BTT50 BTT55 EQU * IFF EDM=0 ADKL A10,14 7 EXTRA WORDS FOR EDM XIF ADK A6,2 INCLUDE LENGTH WORD LD A7,STKEND+CUTENT GET CURRENT ENTRY IN TC:TAB LD A8,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS BTT60 EQU * RF(Z) BTT70 ST A9,STKEND+WRK3 SAVE A9 ST A11,STKEND+WRK4 SAVE A11 LDR A9,A10 GET TTAB LENGTH AD A9,STKEND+SFASAV COMPUTE END OF FREE AREA =2 ST A9,STKEND+SFASAV =2 LD A11,STKEND+LIMIT GET END OF SYSTEM AREA CALL CMPADR CHECK IF MEMORY OVERFLOW RF(NL) BTT61 NOT YET LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR BTT61 LD A9,STKEND+WRK3 RESTORE A9 LD A11,STKEND+WRK4 RESTORE A11 * * STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB * ST A6,TTB:TD,A12 * * STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD * LD A5,STKEND+TSKLEV GET TASK LEVEL ST A5,TTB:ST,A12 STORE IN TTAB * * STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD * SLL A5,10 MOVE LEVEL TO LEFT BYTE ORKL A5,/00C0 LD A2,SCTOPT GET OPTION WORD ANK A2,1 MMU OPTION? ORR A5,A2 SET BIT 15 IF MMU ST A5,TTB:PW,A12 STORE IN TTAB IFF MMUPAG=0 CALL MMUINI INITIALIZE MMU TABLE XIF * * STORE TASK IDENTIFICATION IN TTAB * BTT62 LD A5,STKEND+TASKID GET TASK ID ST A5,TTB:ID,A12 STORE IN TTAB ADK A5,1 INCREMENT TASK ID ST A5,STKEND+TASKID SAVE TO NEXT TASK IN SAME CLASS LD A5,STKEND+APCSTA GET APPL. CONTROL BLOCK ST A5,TTB:AP,A12 STORE ADDRESS IN TTAB LD A5,APLTYP,A5 GET APPL. TYPE CWK A5,'CR' CREDIT? RF(NE) BTT65 NO * * STORE TASK CLASS TO MATCH IN TTAB * LD A5,STKEND+TCLSAV GET TCL START VALUE ST A5,TTB:PP,A12 SAVE IN TTAB ADK A5,1 INCREMENT TCL ST A5,STKEND+TCLSAV SAVE BTT65 EQU * STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB ADK A7,2 NEXT ENTRY IN TC:TAB ST A7,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS RB BTT60 EJECT BTT70 EQU * * * RESET POINTER TO START OF FREE AREA * LD A12,STKEND+SFASAV BTT90 EQU * CALL NXTBLK GET NEXT BLOCK CCK A2,'TT' TASK DEFINITION BLOCK? RF(NE) BTT95 LD P,STKEND+WRK2 BTT95 EQU * CALL NXTAPL NEXT APPLICATION RF(Z) BTT98 LD P,STKEND+WRK1 BTT98 ST A12,SCTSFA SAVE START OF FREE AREA SU A7,SCTTCT COMPUTE LENGTH ST* A7,SCTTCT STORE RTN A14 RETURN IFF SWPBLK=0 EJECT B:SWBT EQU * CALL PUSH SAVE REGISTER A1-A14 LD A1,SCTOPT GET OPTION WORD ANK A1,8 SWB OPTION INCLUDED RF(Z) BSWT42 NO CM STKCOM+APPLNO RESET APPLICATION COUNTER ST P,STKEND+LIMIT SAVE LOCATION COUNTER BSWT05 LDKL A1,'CR' APPLICATION TYPE=CREDIT CALL GETAPP GET NEXT CREDIT APPLICATION RF(Z) BSWT42 NO MORE APPLICATIONS LDR A10,A1 GET ACB ADDRESS ST A10,STKEND+APCSTA SAVE LD A12,SCTSFA START OF FREE AREA * * SEARCH FOR SWB TYPE DEFINITION BLOCK IN CONF. FILE * BSWT10 CALL NXTBLK GET NEXT BLOCK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) BSWT10 YES! CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? RF(NE) BSWT20 NO! ADKL A11,1 CALL NXTCOM SKIP COMMON BLOCK BSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? RF(NE) BSWT40 NO! ADKL A11,1 NUMBER OF TYPES LDR A6,A11 CALL GETNUM NUMBER OF UWB RECORDS LDR A1,A5 SAVE RF(Z) SWBERR ILLEGAL NUMBER!!! ADKL A11,UDBFST-1 FIRST UWB RECORD BSWT30 ADKL A11,6 BYPASS UWB RECORD SUK A1,1 DECR. NUMBER OF TYPES RB(P) BSWT30 MOORE LEFT LCR A2,A11 GET NEXT CHAR. IN CONF.FILE BSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK RF(E) BSWT44 YES! LDKL A1,0 NO SWB DEFINITION BLOCK! ST A1,APLSWB,A10 CLEAR SWB POINTER LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION =2 BSWT42 CALL POB RESTORE REGISTERS RTN A14 BSWT44 ADKL A11,1 NUMBER OF TYPES ST A11,STKEND+SWBBLK START OF CONF. DATA LDR A6,A11 CALL GETNUM GET 3 DIGITS LDR A5,A5 ZERO? RF(Z) SWBERR ILLEGAL NUMBER!!! ST A5,STKEND+NBRSWB SAVE NUMBER OF RECORDS ST A5,STKEND+WRK1 SAVE LD A8,STKCOM+SWBFLG GET ADDRESS TO $SWAPP RF(NZ) BSWT48 FILE CREATED SWBERR LDKL A1,LMP6 SWB ERROR! CALL ERROR BSWT48 ST A12,APLSWB,A10 SAVE ADDRESS TO ADDRESS TABLE CM STKCOM+SWBCNT RESET SWP-BLOCK COUNTER ADKL A12,2 FIRST POINTER LDR A10,A12 SAVE BSWT50 ADKL A10,2 BYPASS POINTER SUK A5,1 DECREMENT NUMBER OF TYPES RB(P) BSWT50 * * GET ADDRESS TO S:BTAB PROTOTYPE * LD A2,STKEND+APCSTA GET ADDRESS TO ACB LD* A1,APLMMC,A2 GET TTAB ADDRESS TL TTB:MT,A1 LOAD MMU REGISTERS LD A2,APLLAC,A2 GET P:MTAB ADDRESS CALL GETCON GET P:MTAB ADDRESS LDR A2,A1 SAVE ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS CALL GETCON GET S:BTAB ADDRESS LDR A2,A1 GET ADDRESS TO PROT. S:BTAB RB(Z) SWBERR NO SWB:S IN APPLICATION! ADK A1,2 ADDRESS TO NAME ST A1,STKEND+SWBNAM SAVE SUK A2,2 ADDRESS TO LENGTH OF PROT. S:BTAB CALL GETCON GET LENGTH OF PROT. S:BTAB LDR A4,A1 SAVE * * CHECK IF ENOUGTH MEMORY IN FIRST PARTITION * XRR A2,A2 RESET COUNTER BSWT52 SUK A1,6 DECREMENT LENGTH RF(N) BSWT55 NO MORE SWB-BLOCKS ADK A2,1 INCR. BLOCK COUNTER RB BSWT52 BSWT55 SLL A2,3 MULTIPLY BY 8 LDR A9,A10 GET START OF BLOCKS ADR A9,A2 ADD LENGTH LD A11,STKEND+LIMIT GET CURRENT LIMIT CALL CMPADR MEMORY OVERFLOW? RF(NL) BSWT57 NO! LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR BSWT57 SUK A4,2 SKIP LENGTH WORD LDKL A9,0 RESET BLOCK COUNTER BSWT60 STR A10,A12 SAVE POINTER TO BLOCK ST A4,STKEND+SWBTBL SAVE LD A11,STKEND+SWBBLK START OF CONF. DATA LD A7,STKEND+NBRSWB NUMBER OF SWB RECORDS BSWT65 LD A2,STKEND+SWBNAM NAME RECORD IN PROT. CALL GETCON GET TWO FIRST CHAR. ADKL A11,NAMUWB NAME IN CONF. FILE LCR A3,A11 GET FIRST CHAR. SLL A3,8 MOVE TO LEFT BYTE LC A3,1,A11 GET SECOND CHAR. CWR A1,A3 TWO FIRST CHAR. EQUAL? RF(NE) BSWT70 NO! ADK A2,2 NEXT CHAR. IN PROT. CALL GETCON GET THIRD CHAR. SRL A1,8 ISOLATE CHAR. LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE ANK A3,/FF ISOLATE CHAR. CWR A1,A3 THIRD CHAR. EQUAL? RF(E) BSWT75 YES! BSWT70 ADKL A11,NAMUWB SKIP NAME SUK A7,1 DECREMENT NUMBER OF TYPES RB(P) BSWT65 NEXT TYPE * * NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK * STR A7,A10 1:ST WORD ST A7,2,A10 2:ND WORD ST A7,4,A10 3:RD WORD ST A7,6,A10 4:TH WORD RF BSWT95 BSWT75 EQU * * * MATCHING NAME FOUND * LD A3,STKEND+WRK1 GET NUMBER OF SWB TYPES SUK A3,1 DECREMENT ST A3,STKEND+WRK1 SAVE ADKL A11,NAMUWB NUMBER OF COPIES LDR A6,A11 LDR A3,A2 SAVE POINTER CALL GETNUM GET NUMBER OF COPIES SLL A5,8 NUMBER OF COPIES IN LEFT BYTE OR A5,STKCOM+SWBFSA+2 DISC ADDRESS BITS 0-7 IN RIGHT BYTE STR A5,A10 STORE IN SWB BLOCK SRL A5,8 NUMBER OF COPIES TO RIGHT BYTE LD A8,STKCOM+SWBFSA GET DISC ADDRESS BITS 8-22 ST A8,2,A10 SAVE LDR A2,A3 RESTORE POINTER SUK A2,UPNAME PROTOTYPE ADDRESS CALL GETCON GET PROTOTYPE ADDRESS LDR A2,A1 SAVE SUK A2,UPNAME LENGTH OF WORKBLOCK CALL GETCON ST A1,SWBLEN,A10 STORE LENGTH OF SWB BSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK LDK A1,0 RESET SECTOR COUNTER BSWT86 IM STKCOM+SWBFSA INCREMENT SECTOR ADDRESS RF(O) BSWT88 RF BSWT90 BSWT88 IM STKCOM+SWBFSA+2 CM STKCOM+SWBFSA BSWT90 EQU * ADK A1,1 INCREMENT SECTOR COUNTER SUKL A3,256 DECREMENT LENGTH RB(P) BSWT86 MOORE SECTORS? SUK A5,1 MOORE COPIES? RB(P) BSWT85 YES! ST A1,SWBSEC,A10 STORE SECTOR LENGTH IM STKCOM+SWBCNT INCREMENT SWP-BLOCK COUNTER LD A8,STKCOM+SWBFSA+2 CW A8,STKCOM+SWBFSE+2 RF(G) BSWT98 $SWAP-FILE TOO SMALL! RF(L) BSWT95 LD A8,STKCOM+SWBFSA CW A8,STKCOM+SWBFSE RF(G) BSWT98 SWAPP-FILE TOO SMALL! BSWT95 ADKL A10,8 START OF NEXT BLOCK ADKL A12,2 NEXT POINTER ADKL A9,1 INCREMENT BLOCK COUNTER LD A2,STKEND+SWBNAM CURRENT RECORD IN PROT. S:BTAB ADK A2,UP:REC NEXT RECORD IN PROT. S:BTAB ST A2,STKEND+SWBNAM SAVE LD A4,STKEND+SWBTBL GET LENGTH OF PROT. S:BTAB SUK A4,UP:REC DECREMENT RB(P) BSWT60 MOORE TYPES LD A8,STKCOM+SWBCNT ANY BLOCKS GENERATED? RF(Z) BSWT98 NO! LD A8,STKEND+WRK1 ALL SWB TYPES MATCHED? RF(NP) BSWT99 YES! BSWT98 LDKL A1,LMP6 CALL ERROR SWB ERROR! BSWT99 ST A10,SCTSFA UPDATE START OF FREE AREA LD A10,STKEND+APCSTA GET CURRENT ACB ADDRESS ST* A9,APLSWB,A10 NUMBER OF SWB TYPES LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION XIF IFF MMUPAG+DSKPAG=0 EJECT *************************************************** * * * B:STAB - BUILD SEGMENT TABLES * * ============================= * * * * REFERENCED IN: SYSLDM * * * * ENTRY: * * * * EXIT: * * * * WORK REGISTERS: A1-A14 (THEIR ORIGINAL * * CONTENTS ARE SAVED ON STACK * * AND RESTORED BEFORE EXIT) * * * * FUNCTIONAL DESCRIPTION: * * FOR BASIC ONE SEGMENT TABLE AREA/TASK IS * * RESERVED. THE FIFTH WORD IN EACH SEGMENT TABLE * * CONTAINS A POINTER TO THE FIFTH WORD IN NEXT * * EXCEPT THE LAST CONTAINS A PONTER TO THE FIFTH * * WORD IN THE NEXT SEGMENT TABLE. ALL OTHER LO- * * CATIONS CONTAIN ZERO. * * FOR COBOL AND CREDIT APPLICATIONS ONE SEGMENT * * TABLE PER APPLICATION IS GENERATED. STATUS, * * DISK ADDRESS AND LENGTH FOR EACH SEGMENT IS * * WRITTEN IN CORRESPONDING SEGBLK. THE SEGMENT * * TABLE ADDRESS IS STORED IN THE TTAB FOR EACH * * TASK IN THE APPLICATION. * * * *************************************************** EJECT B:STAB EQU * CALL PUSH SAVE A1-A14 ON STACK CALL FSTAPL GET FIRST APPLICATION LDR A9,P GET LIMIT FOR WRITE BST010 LD A10,STKEND+APCSTA SAVE POINTER TO CURRENT ACB CALL NXTAPL GET NEXT APPL. CONTROL BLOCK RF(NZ) BST020 NOT LAST YET LD* A2,SCTTCT GET LENGTH OF TCTAB AD A2,SCTTCT END OF TCTAB RF BST040 BST020 LD A2,APLMMC,A2 GET END OF TCTAB ENTRIES BST040 ST A2,STKEND+TCTEND SAVE LDR A8,P BST045 ADKL A8,BST400-BST045 RELOCATE BRANCH ADDRESS LD A5,APLMMP,A10 GET CURRENT APPLICATION TYPE CWK A5,'AS' ASSEMBLER APPLICATION? ABR(E) A8 YES; DON'T GENERATE SEGMENT TABLE! LD A8,APLMMC,A10 GET FIRST TCTAB ENTRY CWK A5,'BA' BASIC? RF(NE) BST050 NO SUR A2,A8 2*NUMBER OF TASKS SRL A2,1 NUMBER OF TASKS ST A2,STKEND+WRK1 SAVE ST A2,APLNPE,A10 SAVE LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK SLL A3,3 MULTIPLY BY 8 ADK A3,12 INCLUDE 6 FIRST WORDS LDR A4,A3 SAVE LENGTH CALL MULT COMPUTE LENGTH OF SEGMENT TABLE AREA RF BST090 EJECT BST050 LD A2,SCTOPT GET OPTION WORD ANK A2,1 MMU? RF(Z) BST070 NO LDR* A7,A8 GET TTAB ADDRESS TL TTB:MT,A7 LOAD MMU TABLE BST070 LD A2,APLLAC,A10 ADDRESS S:GTAB ADK A2,10 ADDRESS NUMBER OF SEGMENTS CALL GETCON GET NUMBER OF SEGMENTS LDR A6,A1 SAVE LDR A3,A1 SAVE SLL A3,3 MULTIPLY BY 8 ADK A3,12 INCLUDE 6 FIRST WORDS BST090 LD A12,SCTSFA GET START OF FREE AREA LDR A2,A11 SAVE CONF. DATA POINTER LDR A11,A12 SAVE ADR A11,A3 END OF SEGMENT TABLE AREA CALL CMPADR MEMORY OVERFLOW? RF(NG) BST100 NO LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR BST100 ST A11,SCTSFA INDICATE START OF FREE AREA LDR A11,A2 RESTORE CONF. DATA POINTER CWK A5,'BA' BASIC? RF(NE) BST200 NO LD A2,STKEND+WRK1 GET NUMBER OF TASKS LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK ADK A3,NBRDPS ADD NUMBER OF DATA PAGES/TASK CALL MULT MULTIPLY LDR A2,A3 GET MAX NUMBER OF SEGMENTS ADS A2,STKCOM+TOTSGM UPDATE TOTAL NUMBER OF SEGMENTS ST A12,APLSEG,A10 STORE ADDRESS TO SEGMENT TABLE POOL EJECT * * CLEAR SEGMENT TABLE AREA * LD A2,SCTSFA GET END OF SEGMENT TABLE AREA BST110 SUK A2,2 DECREMENT POINTER CMR A2 CLEAR CWR A2,A12 START OF SEGMENT TABLE AREA? RB(NE) BST110 NOT YET BST120 ADR A2,A4 ADD SEGMENT TABLE LENGTH CW A2,SCTSFA END OF SEGMENT TABLE AREA? RF(E) BST400 YES ADK A2,8 ADDRESS FIFTH WORD IN SEGMENT TABLE ST A2,8,A12 STORE IN PRECEDING SEGMENT TABLE ADR A12,A4 START OF NEXT SEGMENT TABLE LDR A2,A12 SAVE RB BST120 BST200 ST A6,2,A12 STORE NUMBER OF SEGMENTS LDR A3,A6 GET NUMBER OF SEGMENTS ADS A3,STKCOM+TOTSGM UPDATE TOTAL NUMBER OF SEGMENTS LD A3,SCTIPL GET FILE-CODE FOR LOAD DEVICE STR A3,A12 STORE ADKL A12,4 ADDRESS SEGMENT BLOCK 0 LDR A4,A12 SAVE BST210 LDKL A2,/8400 STATUS FOR SEGMENT 0 STR A2,A12 STORE IN SEGBLK 0 LD A2,APLLAC,A10 GET START OF S:GTAB CALL GETCON GET ADDRESS TO P:MTAB LDR A2,A1 SAVE ADK A2,6 ADDRESS TO P:BAS CALL GETCON GET P:BAS ST A1,2,A12 STORE IN SEGBLK 0 LD A2,APLLAC,A10 GET START OF S:GTAB ADK A2,10 ADDRESS NUMBER OF SEGMENTS BST220 ADKL A12,8 NEXT SEGMENT BLOCK SUK A6,1 ANY MORE SEGMENTS? RF(N) BST300 NO LDK A7,0 INIT STATUS BYTE ADK A2,2 ADDRESS FIRST ENTRY IN SEGMENT BLOCK CALL GETCON GET SEGMENT TYPE/DISC ADDRESS LDR A3,A1 SAVE ANK A3,/FF ISOLATE DISC ADDRESS SRL A1,8 ISOLATE SEGMENT TYPE CCK A1,'RR' CORE RESIDENT SEGMENT? RF(E) BST230 YES LD A1,SCTOPT GET OPTION WORD ANK A1,2 DISC PAGING? RF(NZ) BST240 YES XRR A3,A3 CLEAR DISC ADDRESS LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED ADK A2,2 ADDRESS SEGMENT DISC ADDRESS BIT 8-23 RF BST270 BST230 LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED BST240 ADK A2,2 DISC ADDRESS BIT 8-23 CALL GETCON GET SEGMENT DISC ADDRESS AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A. RF(O) BST250 CARRY RF BST260 BST250 ADK A3,1 INCR. PART 1 OF D. A. ANKL A1,/7FFF RESET OVERFLOW BIT (BIT 0) BST260 AD A3,APLADA,A10 RELOCATE PART 1 OF D. A. CWK A3,255 OVERFLOW IN PART 1 OF D. A. ? RF(NG) BST270 NO! LDKL A1,LMP10 INDICATE DEVICE ERROR CALL ERROR BST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS STR A7,A12 STORE ST A1,2,A12 STORE DISC ADDRESS BIT 8-23 ADK A2,2 ADDRESS SEGMENT LENGTH CALL GETCON GET SEGMENT LENGTH ST A1,4,A12 STORE IN SEGTAB CM 6,A12 CLEAR PAGEBLOCK POINTER RB BST220 BST300 CW A8,STKEND+TCTEND LAST TCTAB ENTRY? RF(E) BST400 YES LDR* A2,A8 GET TTAB ADDRESS ST A4,TTB:SP,A2 STORE SEGMENT TABLE POINTER ADKL A8,2 INCREMENT POINTER IN TCTAB RB BST300 BST400 LD A1,STKEND+APLNO GET NUMBER OF APPLICATIONS RF(Z) BST410 NO MORE APPLICATIONS ABR A9 NEXT APPLICATION BST410 EQU * CALL POB RESTORE REGISTERS RTN A14 RETURN XIF IFF SPDVCL+TEDVCL=0 EJECT ************************************************************************ * B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES ************************************************************************ * * REFERENCED IN: MONCON * * ENTRY: SCTSFA - START OF FREE ARE (X) * CONSTA - START OF CONFIGURATION DATA * SCTEFA - END OF FREE AREA * * EXIT: * * WORK REGISTERS: A1-A12 * * SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR * EJECT B:DWTS EQU * * * GET START OF CONFIGURATION FILE * LD A12,SCTSFA START OF FREE AREA * * CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK * CALL FSTAPL GET FIRST APPLICATION ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA ST P,STKEND+ECHTAB START OF ECHO TABLE * * GET ADDRESS TO TC:TAB * DWTS05 LD A7,APLMMC,A2 GET FIRST TCTAB ENTRY SUK A7,2 EJECT DWTS10 EQU * * * GET NUMBER OF TASKS IN THIS TASK CLASS * CALL GETTSK DWTS20 EQU * ST A1,STKEND+NBRTSK SAVE * * GET CORRESPONDING TASK TABLE (TTAB) * DWTS25 EQU * ADK A7,2 NEXT ENTRY IN TC:TAB LDR* A10,A7 GET TTAB ADDRESS ADKL A10,TTB:TD+2 TASK DEVICE TABLE ENTRY * * INIT SUB-POINTER IN TASK DEFINITION BLOCK * LDR A9,A11 START OF TASK DEFINITION BLOCK ADKL A9,TDBFST START OF TDC DEFINITION EJECT * * GET NUMBER OF TERMINAL DEVICES IN THIS CLASS * CALL GETTDC LDR A6,A1 DWTS30 EQU * RF(Z) DWTS40 CALL GETCLN GET TDC ID ADR A1,A1 LD A8,STKEND+TCLA GET POINTER TO TCLASS ADR A8,A1 GET CLASS ENTRY LDR* A8,A8 GET POINTER TO CLASS LDR* A8,A8 GET LENGTH OF CLASS SUKL A8,2 EXCLUDE LENGTH WORD ADR A10,A8 INCREMENT POINTER IN TTAB ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD SUK A6,1 DECREMENT NUMBER OF TDC:S RB DWTS30 DWTS40 EQU * * * GET NUMBER OF SPECIAL DEVICE CLASSES * CALL GETSDC ADKL A9,SDCFST-CDBNC LDR A1,A1 DWTS50 EQU * RF(Z) DWTS90 ST A1,STKEND+NBRSDC SAVE * * GET SPECIAL DEVICE CLASS NUMBER * CALL GETCLN * * GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS * ADR A1,A1 LD A6,STKEND+SCLA POINTER TO SCLASS ADR A6,A1 SELECT ENTRY LDR* A6,A6 GET POINTER TO CLASS LDR A5,A6 SAVE LDR* A6,A6 GET LENGTH SUK A6,2 EXCLUDE LENGTH WORD DWTS60 EQU * ADK A5,4 GET DEVICE LDR* A1,A5 GET ADDRESS TO TYPE DWT LD A3,DWTLEN,A1 GENERATION OF DWT? RF(Z) DWTS70 NO * * COPY DWT * LDR A2,A12 TO-ADDRESS ADR A12,A3 UPDATE POINTER TO FREE AREA CALL CHKMOV COPY DWT EJECT * * RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM * LD A3,SCTOPT GET OPTION WORD ANK A3,1 MMU IN SYSTEM? RF(Z) DWTS65 NO! LDR A3,A1 GET PROTOTYPE DWT-ADDRESS SUR A3,A2 COMPUTE RELOCATION CONSTANT LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS SUR A4,A3 RELOCATE ANKL A4,/FFFE MAKE EVEN ADDRESS ST A4,DWTMEC,A2 STORE IT BACK DWTS65 EQU * LDR A1,A2 DT-ADDRESS TO BE USED DWTS70 EQU * * * STORE FILE-CODE AND DWT-ADDRESS IN TTAB * ST A1,2,A10 STORE DWT-ADDRESS LD A1,-2,A5 GET INDEX/FILECODE STR A1,A10 SAVE IN TTAB ADKL A10,4 UPDATE TASK CONFIGURATION POINTER DWTS80 EQU * SUK A6,4 DECREMENT NUMBER OF DEVICES RB(P) DWTS60 NEXT DEVICE EJECT * * CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS * ADKL A9,SDC LD A1,STKEND+NBRSDC SUK A1,1 RB DWTS50 DWTS90 EQU * * * CHECK IF MOORE TASKS WITH THE SAME CONFIGURATION * LD A1,STKEND+NBRTSK SUK A1,1 RB(P) DWTS20 * * CHECK IF MOORE TASK DEFINITION BLOCKS * CALL NXTBLK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) DWTS10 YES CALL NXTAPL GET NEXT APPLICATION RB(P) DWTS05 PROCESS NEXT APPLICATION ST A12,SCTSFA * * CLEAR WORK AREA TO BE USED FOR ECHO DEVICE * AND TEMPORARY INTERRUPT TABLES * LDR A1,P GET LOCATION COUNTER =4 DWTS95 SUK A1,2 DECREMENT MEMORY ADDRESS =4 CMR A1 CLEAR MEMORY AREA =4 CW A1,SCTSFA ALL WORDS CLEARED? =4 RB(NE) DWTS95 NO! =4 RTN A14 RETURN XIF IFF TEDVCL=0 EJECT ************************************************ * B:DWTT - BUILD TERMINAL DEVICE WORK TABLES * ************************************************ ************************************************ * * REFERENCED IN: MONCON * * ENTRY: * * EXIT: * * WORK REGISTERS: A1-A12 * * SUBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK * EJECT B:DWTT EQU * CM STKEND+FWTFLG CLEAR FWT FLAG LD A1,SCTFWT START OF FWT AREA RF(NZ) BDWT15 FWT AREA RESERVED LD A1,STKEND+LIMIT ST A1,STKEND+INTTAB START OF T.I.T. IF NO FWT AREA IM STKEND+FWTFLG INCREMENT BDWT15 EQU * EJECT * * INIT CONFIGURATION DATA POINTER * CALL FSTAPL GET FIRST APPLICATION LD A12,SCTSFA GET START OF FREE AREA * * INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY * LD A5,APLMMC,A2 GET FIRST USER TASK ENTRY ST A5,STKEND+CUTENT STORE IN CURRENT USER TASK ENTRY BDWT40 EQU * * * GET NUMBER OF TASKS IN THIS TASK CLASS * CALL GETTSK GET NUMBER OF TASKS BDWT50 EQU * ST A1,STKEND+NBRTSK SAVE BINARY VALUE * * GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS * CALL GETTDC * * CHECK IF TASK WITHOUT DEVICES * LDR A1,A1 ANY TERMINAL DEVICES? RF(Z) BDW100 NO ST A1,STKEND+NBRTDC SAVE NUMBER OF TERMINAL DEVICESS LD* A10,STKEND+CUTENT GET TTAB ADDRESS ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE * * GET TERMINAL DEVICE CLASS NUMBER * LDR A9,A11 START OF TASK DEFINITION BLOCK ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION BDWT55 EQU * CALL GETCLN GET CLASS NUMBER ST A1,STKEND+CLANBR SAVE BINARY VALUE * * FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS * LD A2,STKEND+CLANBR GET BINARY VALUE OF CLASS ID ADR A2,A2 2*ID LD A7,STKEND+TCLA POINTER TO TCLASS ADR A7,A2 GET ENTRY LDR* A7,A7 GET POINTER TO CLASS * * GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS * IN THIS TASK * CALL GETLCN GET LINE CONNECTION NUMBER LDR A6,A1 SAVE BINARY VALUE LC A4,TDC+6,A9 GET LINE CONNECTION TYPE CCK A4,'AA' ASCU4Z CONNECTION? RF(NE) BDWT58 NO! LDR* A8,A7 YES! GET LENGTH OF THIS CLASS SUKL A8,2 EXCLUSIVE LENGTH WORD CWK A8,4 ONE DEVICE? RF(NE) BDWT57 NO! LD A8,4,A7 GET ADDRESS TO PROT.DWT LD A4,DWTTAB,A8 GET DEVICE CWK A4,/C459 /C459 ? RF(E) BDWT58 YES! BDWT57 EQU * ADK A1,1 INCREMENT LINE CONNECTION NUMBER BDWT58 EQU * ADK A1,1 INCREMENT LINE CONNECTION NUMBER CALL BINASC CONVERT INCREMENTED VALUE TO ASCII SC A1,TDC+5,A9 STORE ASCII DIGIT =2 SRL A1,8 MOVE LEFT ASCII DIGIT =2 SC A1,TDC+4,A9 STORE ASCII DIGIT =2 SC A5,TDC+3,A9 STORE ASCII DIGIT DIGIT =2 EJECT * * GENERATE DWT:S FOR THIS CLASS * A6 - LINE CONNECTION NUMBER (BINARY VALUE) * A7 - POINTER TO TERMINAL DEVICE CLASS * * THE ENTRY IN TEMPORARY INTERRUPT TABLE * IS DERIVED FROM LINE CONNECTION NUMBER, * DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT) * CALL DWTGEN BDWT90 EQU * LD A1,STKEND+NBRTDC GET NUMBER OF TERMINAL DEVICE CLASSES SUK A1,1 ANY MOORE IN THIS TASK CLASS? RF(Z) BDW100 NO ST A1,STKEND+NBRTDC SAVE REMAINING NUMBER ADKL A9,TDC+TLC NEXT TDC RECORD RB BDWT55 BDW100 EQU * CALL ECHO INIT ECHO POINTERS LD A1,STKEND+CUTENT GET CURRENT ENTRY IN TC:TAB ADK A1,2 INCREMENT ENTRY POINTER ST A1,STKEND+CUTENT SAVE LD A1,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS SUK A1,1 ANY MOORE TASKS LEFT RB(P) BDWT50 YES * CHECK IF MOORE TASK DEFINITION BLOCKS * CALL NXTBLK SKIP TO NEXT BLOCK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) BDWT40 YES EJECT CALL NXTAPL GET NEXT APPLICATION RB(P) BDWT40 ST A12,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN XIF EJECT **************************************** * B:CDT - BUILD COMMON DEVICE TABLE * **************************************** * * REFERENCED IN: SYSLDM * * ENTRY: SCTSFA - START OF FREE AREA * CONSTA - START OF CONFIGURATION DATA * SCTEFA - END OF FREE AREA * * EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE * * WORK REGISTERS: A1-A12 * * SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE * EJECT B:CDT EQU * LD A12,SCTSFA START OF FREE AREA LDK A7,0 RESET LENGTH CALL FSTAPL GET FIRST APPLICATION * * GET COMMON DEVICE DEFINITION BLOCK * CDG:10 EQU * CALL NXTBLK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) CDG:10 YES CCK A2,'CC' COMMON DEV. DEF. BLOCK? RF(NE) BCDTEX NO EJECT * * RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES * AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES * LDR A9,A11 START OF COMMON DEFINITION BLOCK ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES CALL GETCTC GET NUMBER OF C.T.C. LDR A6,A1 SAVE B:CT10 RF(Z) B:CT30 NO MOORE! CALL GETCLN GET CLASS IDENT NUMBER (1-99) ADR A1,A1 DISPLACEMENT TO CLASS POINTER LD A5,STKEND+TCLA GET POINTER TO TCLASS LDR* A2,A5 GET LENGTH OF TCLASS SUK A2,2 EXCLUDE LENGTH CWR A1,A2 MAKE SURE CLASS EXISTS RF(NG) B:CT20 OK! LDKL A1,LMP4 FORMAT ERROR! CALL ERROR B:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS LDR* A1,A1 GET POINTER TO CLASS LDR* A1,A1 GET LENGTH OF CLASS SUK A1,2 EXCLUDE LENGTH WORD ADR A7,A1 INCREMENT CDTAB LENGTH ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE SUK A6,1 DECR. NBR OF C.T.C. RB B:CT10 EJECT B:CT30 EQU * * * RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES * AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES * CALL GETSDC ADKL A9,SDCFST-CDBNC LDR A6,A1 BCDT10 EQU * RF(Z) BCDTEX CALL GETCLN ADR A1,A1 LD A5,STKEND+SCLA GET POINTER TO SCLASS LDR* A2,A5 SUK A2,2 CWR A1,A2 RF(NG) BCDT15 LDKL A1,LMP4 CALL ERROR BCDT15 EQU * ADR A1,A5 SELECT ENTRY LDR* A1,A1 GET POINTER TO CLASS LDR* A1,A1 GET LENGTH SUK A1,2 ADKL A9,SDC ADR A7,A1 SUK A6,1 RB BCDT10 BCDTEX EQU * CALL NXTAPL GET NEXT APPLICATION RB(P) CDG:10 MORE APPLICATIONS? CALL FSTAPL GET FIRST APPLICATION B:CT35 CALL NXTBLK GET NEXT BLOCK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) B:CT35 YES EJECT * * RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES * AND DWT-ADDRESSES USED FOR PHYSICAL I/O ON DISC * * ALSO RESERVE ENTRIES IN COMMON DEVICE TABLE FOR * FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION * * FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS * LD A1,SCTDCT DATA COMMUNICATION? LD A6,SCTDMT DATA MANAGEMENT ORR A6,A1 DM OR DC? LD A1,SCTOPT GET OPTION WORD ANK A1,/E DISC PAGING OR SWB:S? ORR A6,A1 COPY LAST SCLASS IF NOT ZERO RF(Z) CDG:12 NO! LD A6,STKEND+SCLA GET POINTER TO SCLASS LDR* A1,A6 GET LENGTH OF SCLASS SUK A1,2 EXCLUDE LENGTH WORD ADR A6,A1 LAST ENTRY IN SCLASS LDR* A6,A6 GET POINTER TO LAST CLASS LDR* A6,A6 GET LENGTH OF LAST CLASS SUK A6,2 EXCLUDE LENGTH WORD ADR A7,A6 ADD TO LENGTH OF CD:TAB CDG:12 EQU * ADK A7,2 STR A7,A12 ST A12,SCTCDT ADR A12,A7 ST A11,STKEND+WRK1 SAVE A11 LDR A11,A12 GET END OF CDTAB LD A9,STKEND+LIMIT GET END OF SYSTEM AREA CALL CMPADR CHECK IF MEMORY OVERFLOW RF(NG) CDG:13 OK LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR CDG:13 LD A11,STKEND+WRK1 RESTORE A11 EJECT * * INIT POINTER TO START OF FREE AREA AND TO CDTAB * LD A10,SCTCDT FIRST ENTRY IN SCTCDT CDG:15 LCR A2,A11 GET FIRST CHARACTER CDG:16 CCK A2,'TT' TASK DEFINITION BLOCK/ RF(NE) CDG:17 NO! CALL NXTBLK GET NEXT BLCK RB CDG:16 CDG:17 CCK A2,'CC' COMMON DEF. BLOCK? RF(E) CDG:19 YES! SUR A8,A8 INDICATE NO COMMON WORK BLOCKS CDG:18 RF(N) CDG:EX CDTAB COMPLETE! CALL NXTAPL GET NEXT APPLICATION RB(P) CDG:15 MORE APPLICATIONS RF CDGEX NO MORE APPLICATIONS CDG:19 EQU * * * GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES * LDR A9,A11 START OF COMMON DEF. BLOCK ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES CALL GETCTC GET NUMBER OF C.T.C. LDR A1,A1 ANY COMMON TERMINAL CLASSES? B:CT40 RF(Z) B:CT50 NO! ST A1,STKEND+NBRCOM SAVE CALL GETCLN GET CLASS IDENT NUMBER ST A1,STKEND+CLASID SAVE CALL GETLCN GET LINE CONNECTION NUMBER LDR A6,A1 SAVE LD A2,STKEND+CLASID GET CLASS IDENT NUMBER ADR A2,A2 CONVERT TO DISPLACEMENT LD A7,STKEND+TCLA GET POINTER TO TCLASS ADR A7,A2 SELECT ENTRY IN TCLASS LDR* A7,A7 GET POINTER TO CLASS CALL DWTGEN GENERATE DWT:S FOR THIS CLASS ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE LD A1,STKEND+NBRCOM GET NUMBER OF C.T.C. SUK A1,1 DECREMENT COUNTER RB B:CT40 B:CT50 CALL ECHO EJECT * * GET NUMBER OF SPECIAL DEVICE CLASSES * CALL GETSDC ADKL A9,SDCFST-CDBNC LDR A8,A1 CDG:20 EQU * RB(NP) CDG:18 * * GET SPECIAL DEVICE CLASS NUMBER * CALL GETCLN * * GET CORRESPONDING DEVICE CLASS IN SCLASS * ADR A1,A1 T LD A6,STKEND+SCLA GET POINTER TO SCLASS ADR A6,A1 SELECT CLASS LDR* A5,A6 SAVE POINTER TO CLASS LDR* A6,A6 GET POINTER TO CLASS LDR* A6,A6 GET LENGTH OF CLASS SUK A6,2 EXCLUDE LENGTH WORD CDG:30 EQU * ADK A5,4 NEXT DEVICE LDR* A1,A5 GET DWT-ADDRESS LD A3,DWTLEN,A1 GENERATION OF DWT? RF(Z) CDG:40 NO * * COPY DWT * LDR A2,A12 TO-ADDRESS ADR A12,A3 UPDATE POINTER TO FREE AREA CALL CHKMOV COPY DWT * * RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM * LD A3,SCTOPT GET OPTION WORD ANK A3,1 MMU IN SYSTEM? RF(Z) CDG:35 NO! LDR A3,A1 GET PROTOTYPE DWT-ADDRESS SUR A3,A2 COMPUTE RELOCATION CONSTANT LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS ANKL A4,/FFFE MAKE IT EVEN! SUR A4,A3 RELOCATE ST A4,DWTMEC,A2 STORE IT BACK CDG:35 EQU * LDR A1,A2 DWT-ADDRESS TO USE CDG:40 EQU * * * STORE FILE-CODE AND DWT-ADDRESS IN TTAB * ST A1,4,A10 STORE DWT-ADDRESS LD A1,-2,A5 GET FILE CODE ST A1,2,A10 STORE IN TTAB ADKL A10,4 NEXT ENTRY IN CD:TAB SUK A6,4 DECREMENT DEVICE COUNTER RB(P) CDG:30 NEXT DEVICE EJECT * * CHECK IF MOORE SPECIAL DEVICE CLASSES * ADKL A9,SDC SUKL A8,1 RB CDG:20 CDGEX EQU * LD A1,SCTDMT DATA MANAGEMENT LD A5,SCTDCT DATA COMMUNICATION ORR A1,A5 DM OR DC? LD A5,SCTOPT GET OPTION WORD ANK A5,/E DISC PAGING OR SWB:S? ORR A1,A5 COPY LAST SCLASS IF NOT ZERO RF(Z) CDG:EX NO! LD A5,STKEND+SCLA GET POINTER TO SCLASS LDR* A1,A5 GET LENGTH OF SCLASS SUK A1,2 EXCLUDE LENGTH WORD ADR A5,A1 GET LAST ENTRY LDR* A5,A5 GET POINTER TO LAST CLASS LDR* A6,A5 GET LENGTH OF LAST CLASS SUK A6,2 EXCLUDE LENGTH WORD RB CDG:30 CDG:EX EQU * ST A12,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN =6 EJECT ********************************************************************** * DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS ********************************************************************** * * ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) * A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS * A6 - LINE CONNECTION NUMBER * * EXIT: * * WORK REGISTERS: A1-A8 * * SUBROUTINES: I:CHP,MOVE * EJECT DWTGEN EQU * ST A6,STKEND+LCNBR SAVE LINE CONNECTION NUMBER LDR* A8,A7 GET LENGTH OF THIS CLASS SUKL A8,2 EXCLUSIVE LENGTH WORD ADK A7,2 FIRST FILECODE DWT05 EQU * LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT LD A6,STKEND+LCNBR GET LINE CONNECTION NUMBER * * CHECK CONNECTION TYPE * LC A4,TDC+6,A9 GET LINE CONNECTION TYPE CCK A4,'SS' SALCUZ CONNECTION? RF(NE) DWT10 NO! CALL I:CHSZ INIT CHANNEL PARAMETERS SALCUZ RF DWT31 DWT10 CCK A4,'AA' ASCU4Z CONNECTION? RF(NE) DWT07 NO! CALL I:CHAZ INIT CHANEL PARAMETERS ASCU4Z RF DWT31 DWT07 CCK A4,'VV' VCCU1/4 CONNECTION? RF(NE) DWT11 CALL I:CHVC INIT CHANNEL PARAMETERS VCCU1/4 RF DWT31 DWT11 CCK A4,'PP' PLC CONNECTION? RF(NE) DWT12 NO! CALL I:CHPC INIT CHANNEL PARAMETERS LWSI RF DWT31 DWT12 CCK A4,'LL' LT CONNECTION? RF(NE) DWT08 NO! CALL I:CHLT INIT CHANNEL PARAMETERS LT RF DWT31 DWT08 CCK A4,'RR' RT CONNECTION? RF(NE) DWT09 NO! =8 CALL I:CHRT INIT CHANNEL PARAMETERS RT =8 RF DWT31 =8 DWT09 CCK A4,'QQ' RWSI CONNECTION? =8 RF(E) DWT06 YES! =8 LDKL A1,LMP4 INDICATE FORMAT ERROR CALL ERROR DWT06 CALL I:CHRI INIT CHANNEL PARAMETERS RWSI =8 DWT31 EQU * ST A3,STKEND+CONTYP SAVE ST A5,STKEND+WRK3 SAVE ST A6,STKEND+WRK4 SAVE * * CHECK IF DWT ALREADY GENERATED ON THIS LINE * LD A4,STKEND+INTTAB GET START OF T.I.T. LDR* A5,A4 GET NUMBER OF BLOCKS SUK A4,2 LDR A5,A5 DWT13 EQU * RF(Z) DWT32 LD A3,STKEND+CONTYP GET LINE AND CONNECTION TYPE CW A3,-4,A4 EQUAL? RF(Z) DWT15 YES! DWT14 EQU * LDR* A4,A4 GET NEXT BLOCK =7 SUK A5,1 DECREMENT NUMBER OF BLOCKS RB DWT13 DWT15 EQU * LD A2,-2,A4 GET RUN-TIME DWT-ADDRESS LD A6,DWTCP2,A2 GET CHANNEL PARAMETER-2 ANK A6,/003F GET DEVICE ADDRESS LD A3,STKEND+WRK3 GET CHANNEL PARAMETER-2 ANK A3,/003F GET DEVICE ADDRESS SUR A3,A6 EQUAL? RB(NE) DWT14 NO! LD A6,DWTST,A2 GET DEVICE STATUS ANK A6,/00C0 GET BITS 8 AND 9 LD A3,DWTST,A1 GET DEVICE STATUS ANK A3,/00C0 GET BITS 8 AND 9 SUR A3,A6 EQUAL? RB(NE) DWT14 LD A6,DWTTAB,A2 GET DEVICE TYPE ANKL A6,/8000 ISOLATE ECHO BIT LD A3,DWTTAB,A1 GET DEVICE TYPE ANKL A3,/8000 ISOLATE ECHO BIT SUR A3,A6 EQUAL? RB(NE) DWT14 NO! CALL DWT50 LDKL A1,DWT70 AD A1,STKCOM+M:REL ABR A1 DWT32 EQU * LDR A5,A12 GET RUN TIME DWT-ADDRESS CALL B:TTAB BUILD ONE BLOCK IN T.I.T. * * COPY DEVICE TYPE DWT * LDR A2,A12 TO-ADDRESS LD A3,DWTOR,A1 LENGTH ADR A12,A3 NEXT FREE ENTRY CALL CHKMOV EJECT * * A1 - ADDRESS TO PROTOTYPE DWT * A2 - ADDRESS TO REAL DWT * LD A6,STKEND+WRK4 LD A5,STKEND+WRK3 STR A6,A2 STORE CHANNEL PARAMETERS -1 ST A5,DWTCP2,A2 STORE CHANNEL PARAMETERS -2 * * CHECK IF INPUT DEVICE * LD A3,2,A1 GET DWT STATUS ANK A3,/0040 INPUT DEVICE? RF(Z) DWT45 NO * * INPUT DEVICE: * CHECK IF KEYBOARD * LD A3,DWTADR,A1 LD A3,DEVIND,A3 CWK A3,6 RF(NE) DWT60 NOT KEYBOARD * * INPUT DEVICE = KEYBOARD * IF ECHO: * * STORE ADDRESS OF KEYBOARD RUNTIME-DWT * AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE * * LD A5,DWTECH,A1 ECHO? RF(Z) DWT40 NO AD A5,STKCOM+M:REL LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE RF(NZ) DWT392 NOT FIRST ECHO DEVICE ADK A3,2 INCLUDE LENGTH OF ECHO DEVICE TABLE DWT392 LDR A4,A3 SAVE LENGTH AD A4,STKEND+ECHTAB NEXT FREE ENTRY STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE ADK A3,4 UPDATE LENGTH ST* A3,STKEND+ECHTAB SAVE NEW LENGTH EJECT DWT40 EQU * * * RELOCATE POINTERS TO CIRCULAR INPUT BUFFER * LDR A5,A2 GET DWT-ADDRESS ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER ST A5,DWTSQ-4,A2 STORE POINTER ST A5,DWTSQ-2,A2 STORE POINTER * * IF DOUBLE KEYBOARD: * ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE * IN ENTRY CORRESPONDING TO SECOND DEVICE ADDRESS * LD A3,DWTDEV,A1 GET DEVICE STATUS OF TYPE DWT ANK A3,/FF GET EIGTH RIGHTMOST BITS RF(Z) DWT60 NOT DOUBLE KEYBOARD LDR A5,A2 GET REAL DWT-ADDRESS ADK A5,1 ADD ONE CALL B:TTAB BUILD ONE BLOCK IN T.I.T. SUK A5,1 LDR A2,A5 GET REAL DWT-ADDRESS RF DWT60 EJECT DWT45 CALL DWT50 RF DWT60 DWT50 EQU * * * OUTPUT DEVICE* * IF BIT 0 IN SIXTH WORD IN DWT IS SET * THE DEVICE IS TO BE USED FOR ECHOING ON. * THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT * IS THEN STORED IN THE ECHO DEVICE TABLE. * LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS RF(NN) DWT59 NO ECHOING ON THIS DEVICE LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE RF(NZ) DWT55 ALREADY INITIALIZED! ADK A3,2 INCLUDE LENGTH DWT55 LDR A4,A3 SAVE LENGTH AD A4,STKEND+ECHTAB NEXT FREE ENTRY STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT ADK A3,4 UPDATE LENGTH ST* A3,STKEND+ECHTAB STORE NEW LENGTH DWT59 RTN A14 DWT60 EQU * * * CHECK IF PAGING * LD A5,SCTOPT GET OPTION WORD ANK A5,1 MMU PAGING? RF(Z) DWT70 EJECT LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS LDR A4,A1 GET PROTOTYPE DWT-ADDRESS SUR A4,A2 COMPUTE RELOCATION CONSTANT SUR A5,A4 RELOCATE MONITOR ECB ADDRESS ANKL A5,/FFFE MAKE EVEN ADDRESS ST A5,DWTMEC,A2 STORE IT BACK * * PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED * LD A5,DWTADR,A2 GET ADDRESS BLOCK LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER RF(Z) DWT70 ALLOCATE NO BUFFER! * * ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL * LD A5,DWTMEC,A2 GET MONITOR ECB-ADDRESS LDR A3,A12 INTERNAL BUFFER ADDRESS ADK A3,1 ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS ST A3,2,A5 SAVE LDR A3,A4 GET LENGTH ADK A3,3 ADD BO FERMS CONSTANT+1 ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH EJECT * * CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN * THE SIZE OF BUFFER RESERVED FOR SYSLOD PART A. * IF YES,THAN STORE THE ADDRESS AND SIZE OF THE * INTERNAL BUFFER IN SYSBUF AND BUFSIZ. * CW A3,STKCOM+BUFSIZ RF(NG) DWT65 ST A3,STKCOM+BUFSIZ ST A12,STKCOM+SYSBUF DWT65 EQU * ADR A12,A3 NEXT FREE ENTRY EJECT DWT70 EQU * * * STORE FILE-CODE AND DWT-ADDRESS IN TTAB * ADKL A10,2 NEXT ENTRY IN TTAB LDR* A5,A7 GET INDEX/FILECODE STR A5,A10 STORE IN TASK CONF. TABLE ADKL A10,2 NEXT ENTRY IN TTAB STR A2,A10 STORE DWT-ADDRESS * * CHECK IF MOORE DEVICES IN THIS CLASS * SUKL A8,4 RF(Z) DWTEX ADK A7,4 NEXT DEVICE LDKL A1,DWT05 AD A1,STKCOM+M:REL ABR A1 DWTEX EQU * RTN A14 EJECT * * SCAN ECHO DEVICE TABLE - FOR EVERY COINCIDENCE * BETWEEN THE FIRST POINTER IN ONE POINTER-SET * AND SECOND POINTER IN THE OTHER POINTER-SET: * STORE SECOND POINTER OF FIRST POINTER-SET * IN RUNTIME-DWT POINTED AT BY FIRST POINTER * OF SECOND POINTER-SET AND CLEAR POINTERS OF * SECOND POINTER-SET. * WHEN ALL POINTER-SET HAS BEEN SCANNED,THE LENGTH * OF ECHO DEVICE TABLE IS CLEARED. * ECHO LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE RF(Z) DWT160 NO ECHO DEVICES! AD A3,STKEND+ECHTAB COMPUTE END OF ECHO DEVICE TABLE LD A1,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE ADK A1,2 BYPASS LENGTH DWT90 LD A2,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE ADK A2,2 BYPASS LENGTH DWT100 LD A4,2,A1 GET SECOND POINTER IN FIRST SET DWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET RF(E) DWT130 COINCIDENCE! ADK A2,4 NEXT POINTER-SET CWR A2,A3 END OF ECHO DEVICE TABLE RB(NE) DWT110 NO:CHECK NEXT SET RF DWT140 DWT130 LD A4,2,A2 ADDRESS TO OUTPUT DEVICE RUNTIME-DWT LDR* A2,A1 ADDRESS TO INPUT DEVICE RUNTIME-DWT ST A4,DWTECH,A2 STORE DEVICE-ADDRESS TO ECHO-DEVICE CMR A1 CLEAR FIRST POINTER CM 2,A1 CLEAR SECOND POINTER DWT140 ADK A1,4 NEXT POINTER-SET CWR A1,A3 END OF ECHO DEVICE TABLE RB(NE) DWT90 NO! DWT150 CM* STKEND+ECHTAB CLEAR LENGTH DWT160 RTN A14 RETURN =6 IFF TEDVCL=0 EJECT ********************************************** * B:ITAB - BUILD REAL-TIME INTERRUPT TABLE * ********************************************** * * REFERENCED IN: DWTGEN * * ENTRY: SCTSFA - START OF FREE AREA * * EXIT: REAL TIME INTERRUPT TABLES FOR * LT,RT,PLC,VCCU1/4,SALCUZ AND ASCU4Z * * SUBROUTINES * EJECT B:ITAB EQU * BUILD REAL-TIME INTERRUPT TABLES LD A1,STKEND+FWTFLG T.I.T. IN FREE AREA? =7 RF(P) B:ITLT YES? =7 ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA =7 LDR A1,P =7 BIT05 EQU * =7 SUK A1,2 DECREMENT MEMORY ADDRESS =7 CMR A1 CLEAR MEMORY AREA =7 CW A1,SCTSFA ALL WORDS CLEARED? =7 RB(NE) BIT05 NO! =7 * * BUILD REAL-TIME INTERRUPT TABLES FOR LT * XIF B:ITLT EQU * IFF SUML=0 LDKL A8,0 CONNECTION TYPE = LT LDKL A9,7 1:ST BOARD LDK A1,16 MAX.LENGTH OF BOARD CONF. TABLE ST A1,STKEND+WRK4 SAVE CM STKEND+WRK1 CLEAR CM STKEND+WRK2 CLEAR CM STKEND+WRK3 CLEAR BIT10 EQU * CALL B:BTAB CALL B:LTAB LD A1,STKEND+WRK2 GET INDEX IN MONTAB LD A2,STKEND+WRK3 ANY LINES? RF(Z) BIT15 NO! CM STKEND+WRK3 CLEAR LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE ST A2,INTLT1,A1 SAVE BIT15 EQU * ADK A1,2 ST A1,STKEND+WRK2 STORE NEW INDEX ADKL A9,1 ST A9,STKEND+WRK1 STORE ADKL A9,7 NEXT BOARD CWK A9,31 LAST BOARD? RF(G) B:ITRT YES! RB BIT10 XIF EJECT * * BUILD REAL-TIME INTERRUPT TABLES FOR RT * B:ITRT EQU * IFF SUMR=0 LDKL A8,1 CONNECTION TYPE = RT LDKL A9,3 1:ST BOARD LDK A1,8 MAX.LENGTH OF BOARD CONF. TABLE ST A1,STKEND+WRK4 SAVE CM STKEND+WRK1 CLEAR CM STKEND+WRK2 CLEAR CM STKEND+WRK3 CLEAR BRT10 EQU * CALL B:BTAB CALL B:LTAB LD A1,STKEND+WRK2 GET INDEX IN MONTAB LD A2,STKEND+WRK3 ANY LINES? RF(Z) BRT15 NO! CM STKEND+WRK3 CLEAR LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE ST A2,INTRT1,A1 SAVE BRT15 EQU * ADK A1,2 ST A1,STKEND+WRK2 STORE NEW INDEX ADKL A9,1 ST A9,STKEND+WRK1 STORE ADKL A9,3 NEXT BOARD CWK A9,15 LAST BOARD? RF(G) B:ITPC YES! RB BRT10 XIF EJECT * * BUILD REAL-TIME INTERRUPT TABLES FOR PLC-LOCAL * B:ITPC EQU * IFF PLCL=0 LDKL A8,5 CONNECTION TYPE = PLC LDKL A9,32 1:ST BOARD LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2 ST A1,STKEND+WRK4 LDK A1,1 =2 ST A1,STKEND+WRK1 =2 CM STKEND+WRK2 CLEAR CM STKEND+WRK3 CLEAR BPC10 EQU * CALL B:BTAB CALL B:LTAB LD A1,STKEND+WRK2 GET INDEX IN MONTAB LD A2,STKEND+WRK3 ANY LINES? RF(Z) BPC15 NO! CM STKEND+WRK3 LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE ST A2,INTPL1,A1 SAVE BPC15 EQU * ADK A1,2 ST A1,STKEND+WRK2 STORE NEW INDEX ADKL A9,1 ST A9,STKEND+WRK1 ADKL A9,31 NEXT BOARD CWK A9,128 LAST BOARD? RF(G) B:ITPR YES! =8 RB BPC10 XIF EJECT * * BUILD REAL-TIME INTERRUPT TABLES FOR PLC-REMOTE =8 * B:ITPR EQU * IFF PLCR=0 LDKL A8,6 CONNECTION TYPE=PLC-REMOTE LDKL A9,32 1:ST BOARD LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2 ST A1,STKEND+WRK4 LDK A1,1 =2 ST A1,STKEND+WRK1 =2 CM STKEND+WRK2 CLEAR CM STKEND+WRK3 CLEAR BPR10 EQU * CALL B:BTAB CALL B:LTAB LD A1,STKEND+WRK2 GET INDEX IN MONTAB LD A2,STKEND+WRK3 ANY LINES? RF(Z) BPR15 NO! CM STKEND+WRK3 LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE ST A2,INTPR1,A1 SAVE BPR15 EQU * ADK A1,2 ST A1,STKEND+WRK2 STORE NEW INDEX ADKL A9,1 ST A9,STKEND+WRK1 ADKL A9,31 NEXT BOARD CWK A9,128 LAST BOARD? RF(G) B:ITVU YES! RB BPR10 XIF EJECT * * BUILD REAL-TIME INTERRUPT TABLES FOR VCCU1/4 * B:ITVU EQU * IFF VIDEO=0 LDKL A8,7 CONNECTION TYPE = VCCU1/4 LDKL A9,3 1:ST BOARD LDK A1,8 MAX.LENGTH OF BOARD CONF. TABLE ST A1,STKEND+WRK4 SAVE CM STKEND+WRK1 CLEAR CM STKEND+WRK2 CLEAR CM STKEND+WRK3 CLEAR BVU10 EQU * CALL B:BTAB CALL B:LTAB LD A1,STKEND+WRK2 GET INDEX IN MONTAB LD A2,STKEND+WRK3 ANY LINES? RF(Z) BVU15 NO! CM STKEND+WRK3 CLEAR LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE ST A2,INTVU1,A1 SAVE BVU15 EQU * ADK A1,2 ST A1,STKEND+WRK2 STORE NEW INDEX ADKL A9,1 ST A9,STKEND+WRK1 STORE ADKL A9,3 NEXT BOARD CWK A9,31 LAST BOARD? RF(G) B:ITSZ YES! RB BVU10 XIF EJECT * * BUILD REAL-TIME INTERRUPT TABLES FOR SALCUZ * B:ITSZ EQU * IFF SALCUZ=0 LDKL A8,2 CONNECTION TYPE = SALCUZ LDKL A9,0 1:ST BOARD LDK A1,2 MAX. LENGTH OF BOARD CONF.TABLE ST A1,STKEND+WRK4 CM STKEND+WRK1 CLEAR CM STKEND+WRK2 CLEAR CM STKEND+WRK3 CLEAR BSZ10 EQU * CALL B:BTAB CALL B:LTAB LD A1,STKEND+WRK2 GET INDEX IN MONTAB LD A2,STKEND+WRK3 ANY LINES? RF(Z) BSZ15 CM STKEND+WRK3 LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE ST A2,INTSL1,A1 SAVE BSZ15 EQU * ADK A1,2 ST A1,STKEND+WRK2 STORE NEW INDEX ADKL A9,1 ST A9,STKEND+WRK1 CWK A9,7 LAST BOARD? RF(G) B:ITAZ YES! RB BSZ10 XIF EJECT * * BUILD REAL-TIME INTERRUPT TABLES FOR ASCU4Z * B:ITAZ EQU * IFF ASCU4Z=0 LDKL A8,3 CONNECTION TYPE = ASCU4Z LDKL A9,3 1:ST BOARD LDK A1,8 MAX. LENGTH OF BOARD CONF.TABLE ST A1,STKEND+WRK4 CM STKEND+WRK1 CLEAR CM STKEND+WRK2 CLEAR CM STKEND+WRK3 CLEAR BAZ10 EQU * CALL B:BTAB CALL B:LTAB LD A1,STKEND+WRK2 GET INDEX IN MONTAB LD A2,STKEND+WRK3 ANY LINES RF(Z) BAZ15 CM STKEND+WRK3 LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE ST A2,INTAS1,A1 SAVE BAZ15 EQU * ADK A1,2 ST A1,STKEND+WRK2 STORE NEW INDEX ADKL A9,1 ST A9,STKEND+WRK1 ADKL A9,3 NEXT BOARD CWK A9,31 LAST BOARD? RF(G) BAZ20 YES! RB BAZ10 BAZ20 EQU * XIF RTN A14 EJECT ********************************************* * I:CHSZ - INIT CHANNEL PARAMETERS SALCUZ * ********************************************* * * REFERENCED IN: DWTGEN * * ENTRY: A1 - POINTER TO PROTOTYPE DWT * A2 - POINTER TO REAL DWT * A6 - LINE CONNECTION NUMBER * * EXIT: A6 - CHANNEL PARAMETER - 1 * A5 - CHANNEL PARAMETER - 2 * A3 - BITS 12-15 CONNECTION TYPE * BITS 4 -11 LINE NUMBER * WORK REGISTERS: * * SUBROUTINES: * I:CHSZ EQU * IFF SALCUZ=0 CWK A6,8 CONNECTION NUMBER <=8? RF(G) NUMERR NO! CWK A6,1 CONNECTION NUMBER >=1? RF(L) NUMERR NO! SUK A6,1 MODIFY LINE CONNECTION NUMBER LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT ANK A5,/3F CLEAR BITS TO MODIFY LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER SLL A3,4 MOVE TO BITS 4 - 11 ADK A3,2 ADD CONNECTION TYPE SALCUZ ADKL A6,/0200 ADD CONNECTION TYPE SALCUZ RTN A14 RETURN XIF IFT SALCUZ=0 LDKL A1,LMP4 CALL ERROR XIF EJECT ***************************************************** * I:CHAZ - INIT CHANNEL PARAMETERS ASCU4Z * ***************************************************** * * REFERENCED IN: DWTGEN * * ENTRY: A1 - POINTER TO PROTOTYPE DWT * A2 - POINTER TO REAL DWT * A4 - LINE CONNECTION TYPE * A6 - LINE CONNECTION NUMBER * * EXIT: A6 - CHANNEL PARAMETER - 1 * A5 - CHANNEL PARAMETER - 2 * A3 - BITS 12-15 CONNECTION TYPE * BITS 4-11 LINE NUMBER * * WORK REGISTERS: * * SUBROUTINES: * I:CHAZ EQU * IFF ASCU4Z=0 CWK A6,32 CONNECTION NUMBER <=32? RF(G) NUMERR NO! CWK A6,1 CONNECTION NUMBER >=1? RF(L) NUMERR NO! SUK A6,1 MODIFY LINE CONNECTION NUMBER LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT ANK A5,/3F CLEAR BITS TO MODIFY LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER ANK A3,3 GET BITS 14-15 SLL A3,8 MOVE TO BITS TO BITS 6-7 ORR A5,A3 MERGE WITH OLD CONTENTS LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER SLL A3,4 ANK A6,/1C GET BITS 11-13 BOARD NUMBER SRL A6,2 MOVE TO BITS 12-15 ADK A3,3 ADD CONNECTION TYPE ASCU4Z ADKL A6,/0300 ADD CONNECTION TYPE ASCU4Z RTN A14 XIF IFT ASCU4Z=0 LDKL A1,LMP4 CALL ERROR XIF EJECT ***************************************************** * I:CHAZ - INIT CHANNEL PARAMETERS VCCU1/4 * ***************************************************** * * REFERENCED IN: DWTGEN * * ENTRY: A1 - POINTER TO PROTOTYPE DWT * A2 - POINTER TO REAL DWT * A4 - LINE CONNECTION TYPE * A6 - LINE CONNECTION NUMBER * * EXIT: A6 - CHANNEL PARAMETER - 1 * A5 - CHANNEL PARAMETER - 2 * A3 - BITS 12-15 CONNECTION TYPE * BITS 4-11 LINE NUMBER * * WORK REGISTERS: * * SUBROUTINES: * I:CHVC EQU * IFF VIDEO=0 CWK A6,32 CONNECTION NUMBER <=32? RF(G) NUMERR NO! CWK A6,1 CONNECTION NUMBER >=1? RF(L) NUMERR NO! SUK A6,1 MODIFY LINE CONNECTION NUMBER LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT ANK A5,/3F CLEAR BITS TO MODIFY LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER ANK A3,3 GET BITS 14-15 SLL A3,8 MOVE TO BITS TO BITS 6-7 ORR A5,A3 MERGE WITH OLD CONTENTS LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER SLL A3,4 ANK A6,/1C GET BITS 11-13 BOARD NUMBER SRL A6,2 MOVE TO BITS 12-15 ADK A3,7 ADD CONNECTION TYPE VCCU1/4 ADKL A6,/0700 ADD CONNECTION TYPE VCCU1/4 RTN A14 XIF IFT VIDEO=0 LDKL A1,LMP4 CALL ERROR XIF EJECT ****************************************** * I:CHPC - INIT CHANNEL PARAMETERS LWSI * ****************************************** * * REFERENCED IN: DWTGEN * * ENTRY: A1 - POINTER TO PROTOTYPE DWT * A2 - POINTER TO REAL DWT * A6 - LINE CONNECTION NUMBER * * EXIT: A6 - CHANNEL PARAMETER - 1 * A5 - CHANNEL PARAMETER - 2 * A3 - BITS 12-15 CONNECTION TYPE * BITS 4 -11 LINE NUMBER * * WORK REGISTERS: * SUBROUTINES: * I:CHPC EQU * IFF PLCL=0 CWK A6,128 CONNECTION NUMBER <=128? RF(G) NUMERR NO! CWK A6,1 CONNECTION NUMBER >=1? RF(L) NUMERR NO! SUK A6,1 LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT ANK A5,/3F CLEAR BITS TO MODIFY LDR A3,A6 GET LINE CONNECTION NUMBER ANK A3,/1F GET BITS 11 - 15 ADK A3,1 SLL A3,8 MOVE TO BITS 2 - 7 ORR A5,A3 MERGE WITH OLD CONTENTS LDR A3,A6 GET LINE CONNECTION NUMBER ADK A3,1 SLL A3,4 MOVE TO BITS 4 - 11 ADK A3,5 ADD CONNECTION TYPE PLC ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER SRL A6,5 MOVE TO BITS 12 - 15 ADKL A6,/0500 ADD CONNECTION TYPE PLC RTN A14 XIF IFT PLCL=0 LDKL A1,LMP4 CALL ERROR XIF EJECT ****************************************** * I:CHPC - INIT CHANNEL PARAMETERS RWSI * =8 ****************************************** * * REFERENCED IN: DWTGEN * * ENTRY: A1 - POINTER TO PROTOTYPE DWT * A2 - POINTER TO REAL DWT * A6 - LINE CONNECTION NUMBER * * EXIT: A6 - CHANNEL PARAMETER - 1 * A5 - CHANNEL PARAMETER - 2 * A3 - BITS 12-15 CONNECTION TYPE * BITS 4 -11 LINE NUMBER * * WORK REGISTERS: * SUBROUTINES: * I:CHRI EQU * IFF PLCR=0 CWK A6,128 CONNECTION NUMBER <=128? RF(G) NUMERR NO! CWK A6,1 CONNECTION NUMBER >=1? RF(L) NUMERR NO! SUK A6,1 LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT ANK A5,/3F CLEAR BITS TO MODIFY LDR A3,A6 GET LINE CONNECTION NUMBER ANK A3,/1F GET BITS 11 - 15 ADK A3,1 SLL A3,8 MOVE TO BITS 2 - 7 ORR A5,A3 MERGE WITH OLD CONTENTS LDR A3,A6 GET LINE CONNECTION NUMBER ADK A3,1 SLL A3,4 MOVE TO BITS 4 - 11 ADK A3,6 ADD CONNECTION TYPE PLC-REMOTE ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER SRL A6,5 MOVE TO BITS 12 - 15 ADKL A6,/0600 ADD CONNECTION TYPE PLC-REMOTE RTN A14 XIF NUMERR EQU * LDKL A1,LMP4 INDICATE FORMAT ERROR CALL ERROR EJECT ************************************* * I:CHLT - INIT CHANNEL PARAMETERS LT * ************************************* * * REFERENCED IN: DWTGEN * * ENTRY: A1 - POINTER TO PROTOTYPE DWT * A2 - POINTER TO REAL DWT * A6 - LINE CONNECTION NUMBER * * EXIT: A6 - CHANNEL PARAMETERS -1 * A5 - CHANNEL PARAMETERS -2 * A3 - BITS 12-15 CONNECTION TYPE * BITS 4-11 LINE NUMBER * * WORK REGISTERS: * * SUBROUTINES: * EJECT I:CHLT EQU * IFF SUML=0 CWK A6,0032 CONNECTION NUMBER <= 32? RB(G) NUMERR NO =8! CWK A6,0001 CONNECTION NUMBER >=01? RB(L) NUMERR NO =8! SUK A6,1 MODIFY LINE CONNECTION NUMBER LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT ANKL A5,/003F CLEAR BITS TO MODIFY LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER ANK A3,7 GET BITS 13-15 SLL A3,8 MOVE TO BITS 5-7 ORR A5,A3 MERGE WITH OLD CONTENTS LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER SLL A3,4 ANK A6,/18 GET BITS 11-12 SRL A6,3 MOVE TO BITS 14-15 RTN A14 XIF IFT SUML=0 LDKL A1,LMP4 CALL ERROR XIF EJECT ***************************************** * I:CHRT - INIT CHANNEL PARAMETERS RT * ***************************************** * * REFERENCED IN: DWTGEN * * ENTRY: A1 - POINTER TO PROTOTYPE DWT * A2 - POINTER TO REAL DWT * A6 - LINE CONNECTION NUMBER * * EXIT: A6 - CHANNEL PARAMETERS - 1 * A5 - CHANNEL PARAMETERS - 2 * A3 - BITS 12-15 CONNECTION TYPE * BITS 4-11 LINE NUMBER * * WORK REGISTERS: * * SUBROUTINES: * EJECT I:CHRT EQU * IFF SUMR=0 CWK A6,0016 CONNECTION NUMBER <= 16? RB(G) NUMERR NO =8! CWK A6,0001 CONNECTION NUMBER >=1? RB(L) NUMERR NO =8! SUK A6,1 MODIFY LINE CONNECTION NUMBER LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT ANKL A5,/003F CLEAR BITS TO MODIFY LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER ANK A3,3 GET BITS 14-15 SLL A3,8 MOVE TO BITS 6-7 ORR A5,A3 MERGE WITH OLD CONTENTS LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER SLL A3,4 ADK A3,1 ADD CONNECTION TYPE RT ANK A6,/C GET BITS 12-13 SRL A6,2 MOVE TO BITS 14-15 ADKL A6,/0100 ADD CONNECTION TYPE RT RTN A14 XIF IFT SUMR=0 =8 LDKL A1,LMP4 CALL ERROR XIF =8 IFT DC=1 EJECT ******************************************************* * * * B:CNA BUILD COMPUTER NETWORK ARCHITECTURE * * ========================================== * * * * SCANS POSSIBLE D-BLOCK IN CONFIGURATION DATA * * AND BUILDS DATA COMMUNICATION TABLE IN MEMORY. * * TABLE START IS DEFINED BY THE POINTER SCTDCT * * IN SYSTAB. * * ON ENTRY: SCTDCT = RELATIVE POSITION OF THE * * D-BLOCK IN CONF. DATA (SET BY SYSLOD) * * * * REFERENCED IN: CONMON * * SUBROUTINES CALLED: GETDTE, P:DTE * * WORK REGISTERS: A1-A12 * * * ******************************************************* B:CNA EQU * LD A11,DCBLK+STKCOM RF(Z) B:CN20 NO DATA COMMUNICATION =1 * AD A11,CONSTA+STKCOM GET D BLOCK ADDRESS IN CONF. DATA LD A12,SCTSFA GET START OF FREE AREA ST A12,SCTDCT UPDATE SYSTAB POINTER ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA CALL GETDTE GET NO OF DTE:S DEFINED ADKL A11,2 ADVANCE TO START OF SDTE RECORD B:CN00 EQU * SUK A1,1 RF(N) B:CN10 NO DTE BLOCKS LEFT IN CONF. DATA * ST A1,NUMDTE+STKEND SAVE NO OF DTE:S LEFT ADKL A11,5 ADVANCE TO 1ST CHAR. IN NAME CALL P:DTE PROCESS THIS DTE BLOCK LD A1,NUMDTE+STKEND GET REMAINING DTE BLOCKS LDR* A12,A12 GET ADDRESS TO NEXT DTE RB B:CN00 * B:CN10 EQU * CM 0,A12 AND RESET IT ADKL A12,2 ST A12,SCTSFA UPDATE START OF FREE AREA B:CN20 EQU * =1 RTN A14 EJECT ******************************************************* * * * P:DTE PROCESS DTE BLOCK IN CONFIGURATION DATA * * ============================================== * * * * SCANS DTE BLOCK IN CONF. DATA AND BUILDS CORRE- * * SPONDING DTE-BLOCK IN SCTDCT. IF MULTIPLE COPIES * * ARE DEFINED CURRENT DTE IS DUPLICATED THE NO OF * * TIMES SPECIFIED. * * * * ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN * * SDTE NAME IN CONF. DATA * * A12 POINTER TO START OF CURRENT * * DTE BLOCK IN SCTDCT TABLE * * * * ON EXIT: A11 ADDRESS TO LAST CHARACTER IN * * PROCESSED DTE-BLOCK IN CONF. DATA * * A12 POINTER TO LAST DEFINED DTE-BLOCK * * DEFINED IN SCTDCT TABLE * * * * REFERENCED IN: B:CNA * * SUBROUTINES REFERENCED: GETCOP,GETNSA,P:NA,HEXCPY * * AND MOVE * * * ******************************************************* P:DTE EQU * LDKL A1,/3000 INITIALIZE NAME FILLER LC A1,1,A11 GET 1ST CHAR. IN SDTE NAME LC A2,IDLIM,A11 GET NA-NSA QUALIFIER (=T) ADKL A11,1 CCK A2,'TT' START OF TYPE RECORD? RF(E) PDTE00 YES! * SLL A1,8 NO LEFT ADJUST CHAR. AND LC A1,1,A11 GET NEXT CHARACTER ADKL A11,1 PDTE00 EQU * ST A1,DTENAM+STKEND SAVE NAME IN STACK CALL GETCOP GET NO OF COPIES ST A1,DTECOP+STKEND AND SAVE ADKL A11,TYPOFS ADVANCE TO TYPE IDENTIFIER LC A1,1,A11 SLL A1,8 FORM TYPE IDENTIFIER LC A1,2,A11 ST A1,DTETYP+STKEND SAVE IN STACK ADKL A11,2 LDK A2,0 RESET NETWORK ADDR. LENGTH CALL ENDBLK END OF D-BLOCK? LDR A8,A8 RF(Z) PDTE05 YES! * LC A7,NANSA,A11 GET NA-NSA-SDTE QUALIFIER CCK A7,'AA' RF(NE) PDTE05 NSA OR SDTE RECORD * ADKL A11,NAOFS ADVANCE TO 1ST DIGIT IN NA ST A11,NASTRT+STKEND SAVE ADDRESS CALL P:NA PROCESS NETWORK ADDRESS LC A7,2,A11 PDTE05 EQU * ST A2,NALNG+STKEND SAVE LENGTH OF NA LDK A1,0 CALL ENDBLK END OF D-BLOCK? LDR A8,A8 RF(Z) PDTE07 YES! * CCK A7,'SS' RF(NE) PDTE07 NO NSA RECORD * ADKL A11,NSAOFS ADVANCE TO NO OF SUBADDR. CALL GETNSA ADKL A11,2 SKIP NSA NR IN CONF. DATA PDTE07 EQU * ST A1,DTENSA+STKEND SAVE NO OF SUBADDR. DEF. CWK A1,/FF LOOK IF LEGAL NUMBER RF(NG) PDTE10 YES! * NSAERR EQU * LDKL A1,LMP4 NO, ERROR IN CONF. FILE CALL ERROR PDTE10 EQU * LDR A1,A1 RF(Z) PDTE15 NO SUBADDRESSES * ST A11,NSAADR+STKEND SAVE ADDR. OF 1ST SUBADDR. SLL A1,1 ADR A11,A1 CALCULATE STAT OF NEXT RECORD PDTE15 EQU * CALL DTESIZ CALCULATE SIZE OF THIS DTE BLOCK CALL UPDDTE UPDATE DTE BLOCK IN DCT LD A7,DTECOP+STKEND GET NO OF COPIES PDTE20 EQU * SUK A7,1 RF(Z) PDTE40 NO COPIES LEFT TO PROCESS LDK A5,1 INITIALIZE INCREMENT CONSTANT LD A4,DTENAM+STKEND GET PREVIOUS NAME LDR A3,A4 ANK A3,/FF ISOLATE RIGHT BYTE OF NAME CWK A3,/5F UPPER BOUNDARY? RF(L) PDTE25 NO! * LC A4,/30 RESET RIGHT BYTE TO ASCII '0' SLL A5,8 LEFT BYTE INCREMENTATION PDTE25 EQU * ADR A4,A5 INCREMENT SYMBOLIC NAME ST A4,DTENAM+STKEND * CALL ENDBLK END OF D-BLOCK? LDR A8,A8 RF(Z) PDTE35 YES! * LC A1,2,A11 GET 2ND CHAR. IN NEXT RECORD CCK A1,'DD' IF A SDTE-RECORD USE OLD ADDR. RF(E) PDTE35 * CCK A1,'SS' IF NSA RECORD RF(E) PDTE30 USE OLD NETWORK ADDRESS * ADKL A11,NAOFS ADVANCE TO 1ST DIGIT IN NA ST A11,NASTRT+STKEND CALL P:NA PROCESS NETWORK ADDRESS ST A2,NALNG+STKEND SAVE LENGTH OF NA * CALL ENDBLK END OF D-BLOCK? LDR A8,A8 RF(Z) PDTE35 YES! * LC A1,2,A11 CCK A1,'SS' RF(NE) PDTE35 NO NSA RECORD PRESENT * PDTE30 EQU * ADKL A11,NSAOFS ADVANCE TO NO OF SUBADDR. CALL GETNSA ST A1,DTENSA+STKEND SAVE NO OF SUBADDR. ADKL A11,2 LDR A1,A1 RF(Z) PDTE35 NO SUBADDRESSE * CWK A1,/FF RB(G) NSAERR TOO MANY SUBADDR. DEFINED * ST A11,NSAADR+STKEND SAVE START OF 1ST SUBADDR. SLL A1,1 ADR A11,A1 CALCULATE START OF NEXT RECORD PDTE35 EQU * LDR* A12,A12 GET START OF NEXT DTE BLOCK CALL DTESIZ CALCULATE LENGTH OF THIS DTE BLOCK CALL UPDDTE RB PDTE20 * PDTE40 EQU * RTN A14 EJECT ******************************************************** * * * DTESIZ CALCULATES THE LENGTH OF A DTE BLOCK * * ============================================ * * * * ON ENTRY: A12 START OF CURRENT DTE BLOCK * * * * WORK REGISTER: A1,A9 * * * ******************************************************** DTESIZ EQU * ST A11,WRK1+STKEND LD A1,NALNG+STKEND GET LENGTH OF NETWORK ADDRESS ADK A1,1 SRL A1,1 2 DIGITS IN EACH BYTE AD A1,DTENSA+STKEND ADD NO OF SUBADDR. ADK A1,DTEFIX+1 AND LENGTH OF FIX PART+1 ANKL A1,/FFFE MAKE EVEN ADR A1,A12 START OF NEXT DTE BLOCK STR A1,A12 UPDATE DTE BLOCK LINK LDR A9,A1 ST A11,WRK1+STKEND SAVE A11 LD A11,LIMIT+STKEND GET END OF SYSTEM AREA CALL CMPADR MEMORY OVERFLOW? RF(NL) DTSIZ0 NO! * LDKL A1,LMP3 YES! CALL ERROR * DTSIZ0 EQU * LD A11,WRK1+STKEND RESTORE POSITION IN CONF. DATA RTN A14 EJECT ******************************************************** * * * UPDDTE UPDATES CURRENT DTE BLOCK WITH ITS: * * ====== * * NAME * * TYPE * * NETWORK ADDRES * * SUBADDRESSES * * * ******************************************************** UPDDTE EQU * LDR A6,A12 GET START OF CURRENT DTE BLOCK ENTRY ADK A6,2 SKIP LINK ENTRY LD A1,DTENAM+STKEND GET NAME FROM STACK STR A1,A6 SAVE IN DCT ADK A6,2 NEXT ENTRY LD A1,DTETYP+STKEND GET TYPE FROM STACK STR A1,A6 AND SAVE IN DCT ADK A6,2 LDK A5,4 GET NO OF SHIFTS ORKL A5,SLL0 AND CONFIG. SLL A1,8 INSTR. LD A2,NALNG+STKEND GET LENGTH OF NETWORK ADDR. LDR A3,A2 SAVE NO OF CHARACTERS SLL A2,8 LEFT ADJUST RF(Z) UPDTE0 NO NETWORK ADDRESS DEFINED * LD A4,NASTRT+STKEND GET START OF NETWORK ADDR. CALL HEXCPY COPY AND PACK NA TO DCT ANKL A5,/1F ISOLATE SHIFT COUNT CWK A5,4 LESS THAN ONE BYTE LEFT? RF(NG) UPDTE2 YES! UPDTE0 EQU * LDK A5,0 SET NO OF SHIFTS RF UPDTE4 * UPDTE2 EQU * STR A2,A6 STORE WORD IN DCT LDK A2,0 CLEAR TABLE WORD ADK A6,2 ADVANCE TO NEXT ENTRY LDK A5,8 GET NO OF SHIFTS UPDTE4 EQU * ORKL A5,SLL0 CONFIGURE SSL A1,N INSTR. LD A1,DTENSA+STKEND GET NO OF SUBADDR. DEFINED RF(Z) UPDTE8 NO SUBADDR. DEFINED * LD A4,NSAADR+STKEND GET ADDRESS TO 1ST SUBADDR. LDR A3,A1 SLL A3,1 2 DIGITS FOR EACH SUDADDRESS EXR A5 SHIFT ORR A2,A1 AND CONFIGURE DCT WORD CWK A5,SLL0 FULL WORD? RF(NE) UPDTE6 NO! * STR A2,A6 YES! SAVE IN DCT LDK A2,0 CLEAR TABLE WORD ADK A6,2 ADVANCE DCT POINTER LDK A5,16 NO OF SHIFTS ORKL A5,SLL0 CONFIGURE SLL A1,12 INSTR. UPDTE6 EQU * SUK A5,4 NEXT NIBBLE CALL HEXCPY COPY AND PACK INTO DCT UPDTE8 EQU * STR A2,A6 RTN A14 EJECT ******************************************************** * * * HEXCPY COPIES AND PACKS 4 HEXADECIMAL DIGITS * * IN ONE WORD. * * * * ON ENTRY: A2 WORD TO PACK * * A3 NO OF CHARACTERS TO PROCESS * * A4 ADDRESS TO FIRST ASCII DIGIT * * A5 PACKING INSTR. (SLL A1,N TIMES) * * A6 POINTER WHERE TO STORE PACKED WORD * * * * ON EXIT: A2 LAST PACKED, BUT NOT STORED WORD * * A4 ADDRESS TO CHAR. FOLLOWING LAST * * PROCESSED DIGIT * * A5 PACKING INSTR. (SLL A1,N TIMES) * * A6 POINTER WHERE TO STORE NEXT WORD * * * ******************************************************** HEXCPY EQU * LDK A1,0 LC A1,1,A4 GET CHARACTER CALL HEXCNV CONVERT TO HEX EXR A5 SHIFT ORR A2,A1 CONFIGURE DCT WORD SUK A3,1 DECREMENT NO OF CHARACTERS RF(Z) HXCPY8 WHOLE NA PROCESSED * CWK A5,SLL0 FULL WORD? RF(NE) HXCPY6 NO! * STR A2,A6 YES! SAVE IN DCT LDK A2,0 CLEAR TABLE WORD ADK A6,2 ADVANCE TO NEXT ENTRY LDK A5,16 NO OF SHIFTS ORKL A5,SLL0 CONFIGURE SSL A1,16 INSTR. HXCPY6 EQU * SUK A5,4 NEXT NIBBLE ADK A4,1 NEXT CHARACTER IN CONF. DATA RB HEXCPY * HXCPY8 EQU * RTN A14 EJECT ******************************************************** * * * HEXCNV CONVERTS A HEXADECIMAL DIGIT IN ASCII CODE * * TO CORRESPONDING HEXADECIMAL VALUE * * (4 BITS BINARY CODE) * * * * ON ENTRY: A1 CHARACTER TO CONVERT * * * * ON EXIT: A1 CONVERTED CARACTER * * * ******************************************************** HEXCNV EQU * ANK A1,/FF ISOLATE CHARACTER CWK A1,/29 RF(L) TYPERR ERRANEOUS TYPE * CWK A1,/40 DIGIT BETWEEN 0-9? RF(L) HXCN00 YES! RF(E) TYPERR NO NEXADECIMAL DIGIT * CWK A1,/46 DIGIT BETWEEN A-F? RF(G) TYPERR NO * ADK A1,9 YES! HXCN00 EQU * ANK A1,/F ISOLATE HEX NUMBER RTN A14 * TYPERR EQU * LDKL A1,LMP4 CONF. DATA ERROR CALL ERROR EJECT ******************************************************** * * * P:NA PROCESS NETWORK ADDRESS * * * * SCANS THE NETWORK ADDRESS RECORD (NA=..) IN CONF. * * DATA AND REPACKS THE RECORD, OVERWRITING POSSIBLE * * CONTINUATION DEFINITIONS (C=..), SO THAT THE * * WHOLE NETWORK ADDRESS WILL BE IN CONTIGOUSE LOCA- * * TIONS. * * * * ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN NETWORK * * ADDRESS. * * * * ON EXIT: A2 LENGTH OF NETWORK ADDRESS * * A11 START OF NSA RECORD IN CONF. DATA * * * ******************************************************** P:NA EQU * LDK A4,1 RESET PACKING CONSTANT LDK A2,0 RESET ADDRESS LENGTH P:NA00 EQU * LDK A1,0 LC A1,1,A11 GET CHARACTER LDR A1,A1 SET CONDITION REGISTER RF(Z) P:NA06 END OF CONF. DATA * CCK A1,/FF END OF D-BLOCK? RF(E) P:NA05 YES! * CCK A1,'==' CONTINUATION RECORD? RF(E) P:NA04 YES! * CCK A1,'NN' NO! START OF NA OR NSA RECORD RF(E) P:NA06 YES! RETURN * CCK A1,'SS' START OF SDTE RECORD? RF(E) P:NA06 YES! * ADK A2,1 INCREMENT NA ADDRESS LENGTH CWK A2,/FF TOO MANY DIGITS? RF(NG) P:NA02 NO! * LDKL A1,LMP4 YES! ERROR IN CONF. DATA CALL ERROR P:NA02 EQU * LDR A3,A4 ADR A3,A11 REPACKING ADDRESS SCR A1,A3 PUT CHARACTER BACK IN FILE ADKL A11,1 GET NEXT CHARACTER RB P:NA00 * P:NA04 EQU * SUK A2,1 DON'T COUNT CONT. RECORD IDENTIFIER SUK A4,2 SET REPACKING CONSTANT ADKL A11,1 ADVANCE TO NEXT CHARACTER RB P:NA00 * P:NA05 EQU * SUK A2,1 DECREMENT NA LENGTH SUKL A11,1 AND POSITION IN CONF. DATA * P:NA06 EQU * RTN A14 EJECT ******************************************************** * * * ENDBLK LOOKS FOR END OF DATA COMMUNICATION BLOCK * * ================================================= * * * * END OF BLOCK IS DEFINED BY A RECORD BEGINNING * * WITH 'A' AS IN APPLICATION DEFINITION BLOCK OR * * BY A CHARACTER = 0 (BINARY) MEANING END OF * * CONFIGURATION DATA. * * * * ON ENTRY: A11 CURRENT POSITION IN CONF. DATA * * * * ON EXIT: A8 = 0 IF END OF BLOCK * * A8 NOT ZERO OTHERVISE * * * ******************************************************** ENDBLK EQU * LC A8,1,A11 GET NEXT CHARACTER CCK A8,/00 END OF CONF. DATA? RF(E) ENDBL0 YES! * CCK A8,'AA' START OF APPL. DEF. BLOCK? RF(NE) ENDBL2 NO! NOT END OF D-BLOCK * ENDBL0 EQU * SUR A8,A8 SET END OF D-BLOCK COND. ENDBL2 EQU * RTN A14 XIF EJECT
0x00000…00036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT SYSLDM REL 11.0 81-08-19 870105041100 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…00066 Head {h00=0x0024, h01=0x0050, text=» =10,CORRECTION =9 NOT CORRECT«, t00=0x0000, t01=0x0042}
0x00066…00082 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-07-28«, t00=0x0000, t01=0x006a}
0x00082…000b6 Head {h00=0x0030, h01=0x0050, text=» =9,FOR MONITOR EXTENTS APLREL AND APLLAC «, t00=0x0000, t01=0x0086}
0x000b6…000e4 Head {h00=0x002a, h01=0x0050, text=» =9,POINTS AT 1 WORD TO HIGH ADDRESS«, t00=0x0000, t01=0x00ba}
0x000e4…00112 Head {h00=0x002a, h01=0x0050, text=» =8,BUILD REAL-TIME INTERRUPT TABLES«, t00=0x0000, t01=0x00e8}
0x00112…00126 Head {h00=0x0010, h01=0x0050, text=» FOR RWSI «, t00=0x0000, t01=0x0116}
0x00126…00142 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-03-09«, t00=0x0000, t01=0x012a}
0x00142…00174 Head {h00=0x002e, h01=0x0050, text=» =7,BUILD COMPUTER NETWORK ARCHITECTURE «, t00=0x0000, t01=0x0146}
0x00174…0019e Head {h00=0x0026, h01=0x0050, text=» BEFORE BUILDING INTERRUPT TABLE«, t00=0x0000, t01=0x0178}
0x0019e…001ba Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-02-16«, t00=0x0001, t01=0x0012}
0x001ba…001f0 Head {h00=0x0032, h01=0x0050, text=» =6,INIT UNUSED MMU ENTRIES,AND INIT ACBSTA «, t00=0x0001, t01=0x002e}
0x001f0…0021c Head {h00=0x0028, h01=0x0050, text=» AND ACBREL FOR MONITOR EXTENTS«, t00=0x0001, t01=0x0064}
0x0021c…0023c Head {h00=0x001c, h01=0x0050, text=» REL 11.0 81-01-26 «, t00=0x0001, t01=0x0090}
0x0023c…0026e Head {h00=0x002e, h01=0x0050, text=» =5,CHANGES IN CONDITIONAL ASSEMBLY WHEN«, t00=0x0001, t01=0x00b0}
0x0026e…0029a Head {h00=0x0028, h01=0x0050, text=» BUILDING COMMON DEVICE TABLES «, t00=0x0001, t01=0x00e2}
0x0029a…002ba Head {h00=0x001c, h01=0x0050, text=» PRR 11.0 80-12-11 «, t00=0x0001, t01=0x010e}
0x002ba…002ee Head {h00=0x0030, h01=0x0050, text=» =4,CLEAR WORK AREA FOR ECHO DEVICE TABLE «, t00=0x0001, t01=0x012e}
0x002ee…0031a Head {h00=0x0028, h01=0x0050, text=» EVEN IF NO TERMINAL DEVICES «, t00=0x0001, t01=0x0162}
0x0031a…0033a Head {h00=0x001c, h01=0x0050, text=» PRR 11.0 80-12-03 «, t00=0x0001, t01=0x018e}
0x0033a…0036e Head {h00=0x0030, h01=0x0050, text=» =3,APPLICATION CONTROL BLOCK IS EXTENDED «, t00=0x0002, t01=0x001e}
0x0036e…00388 Head {h00=0x0016, h01=0x0050, text=» WITH 1 WORD «, t00=0x0002, t01=0x0052}
0x00388…003a4 Head {h00=0x0018, h01=0x0050, text=» PRR 11.0 80-12-01«, t00=0x0002, t01=0x006c}
0x003a4…003d4 Head {h00=0x002c, h01=0x0050, text=» =2,IF NO S-BLOCK IN CONF.DATA,PROCESS«, t00=0x0002, t01=0x0088}
0x003d4…00404 Head {h00=0x002c, h01=0x0050, text=» EVEN NEXT CREDIT APPL. CONVERT A «, t00=0x0002, t01=0x00b8}
0x00404…0042c Head {h00=0x0024, h01=0x0050, text=» BINARY VALUE >99 TO ASCII «, t00=0x0002, t01=0x00e8}
0x0042c…00462 Head {h00=0x0032, h01=0x0050, text=» THE FIRST POINTER IN WORK STATION TABLE «, t00=0x0002, t01=0x0110}
0x00462…0048e Head {h00=0x0028, h01=0x0050, text=» FOR PLC IS FOR WS NUMBER ZERO «, t00=0x0002, t01=0x0146}
0x0048e…004c2 Head {h00=0x0030, h01=0x0050, text=» CHECK IF MEMORY OVERFLOW WHEN BUILDING«, t00=0x0002, t01=0x0172}
0x004c2…004e0 Head {h00=0x001a, h01=0x0050, text=» USER TASK TABLES«, t00=0x0003, t01=0x0016}
0x004e0…00500 Head {h00=0x001c, h01=0x0050, text=» PRR 11.0 80-11-20 «, t00=0x0003, t01=0x0034}
0x00500…0053c Head {h00=0x0038, h01=0x0050, text=» =1,IF NO D-BLOCK IN CONF. DATA, SKIP DCT-CREATION«, t00=0x0003, t01=0x0054}
0x0053c…0055c Head {h00=0x001c, h01=0x0050, text=» PRR 11.0 80-11-19 «, t00=0x0003, t01=0x0090}
0x0055c…00572 Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLDM «, t00=0x0003, t01=0x00b0}
0x00572…0057c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c6}
0x0057c…005b0 Head {h00=0x0030, h01=0x0050, text=»* EXTERNALS DEFINED IN SYSTEM CONTROL TABLE«, t00=0x0003, t01=0x00d0}
0x005b0…005ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0104}
0x005ba…005e2 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTANO APPLICATION NUMBER«, t00=0x0003, t01=0x010e}
0x005e2…00612 Head {h00=0x002c, h01=0x0050, text=» EXTRN SCTBLK NUMBER OF BLOCKS PER TASK «, t00=0x0003, t01=0x0136}
0x00612…0063a Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTBUG DEBUGGER ADDRESS «, t00=0x0003, t01=0x0166}
0x0063a…0066c Head {h00=0x002e, h01=0x0050, text=» EXTRN SCTCDT COMMON DEVICE TABLE ADDRESS «, t00=0x0003, t01=0x018e}
0x0066c…00694 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTDCT DATA COMMUNICATION«, t00=0x0004, t01=0x0030}
0x00694…006c6 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCTDMI DM: INDEX BUFFER RECORD SIZE«, t00=0x0004, t01=0x0058}
0x006c6…006f2 Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTDMT DATA MANAGEMENT TASKS «, t00=0x0004, t01=0x008a}
0x006f2…00718 Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTEFA END OF FREE AREA«, t00=0x0004, t01=0x00b6}
0x00718…00748 Head {h00=0x002c, h01=0x0050, text=» EXTRN SCTFWL FM: FILE WORK TABLE LENGTH«, t00=0x0004, t01=0x00dc}
0x00748…0077a Head {h00=0x002e, h01=0x0050, text=» EXTRN SCTFWT FM: FILE WORK TABLE ADDRESS «, t00=0x0004, t01=0x010c}
0x0077a…007b2 Head {h00=0x0034, h01=0x0050, text=» EXTRN SCTMOX MONITOR EXTENT START ADDRESS TABLE«, t00=0x0004, t01=0x013e}
0x007b2…007e4 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCTMXS MONITOR EXTENT&SEGMENT TABLE«, t00=0x0004, t01=0x0176}
0x007e4…00816 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCTNFT DM/FM: NUMBER OF FILES/TASK «, t00=0x0005, t01=0x0018}
0x00816…00842 Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTNOF DM/FM: NUMBER OF FILES«, t00=0x0005, t01=0x004a}
0x00842…00868 Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTNOP NUMBER OF PAGES «, t00=0x0005, t01=0x0076}
0x00868…008a2 Head {h00=0x0036, h01=0x0050, text=» EXTRN SCTNOS NUMBER OF SEGMENTS/TASK (BASIC ONLY)«, t00=0x0005, t01=0x009c}
0x008a2…008c6 Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTOPT SYSTEM OPTIONS«, t00=0x0005, t01=0x00d6}
0x008c6…008ee Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTPAG PAGE TABLE ADDRESS«, t00=0x0005, t01=0x00fa}
0x008ee…0091a Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTIPL PROGRAM LOADING DEVICE«, t00=0x0005, t01=0x0122}
0x0091a…0093a Head {h00=0x001c, h01=0x0050, text=» EXTRN SCTPSZ PAGE SIZE «, t00=0x0005, t01=0x014e}
0x0093a…00962 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTSFA START OF FREE AREA«, t00=0x0005, t01=0x016e}
0x00962…0098a Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTTCT TASK CONTROL TABLE«, t00=0x0006, t01=0x0008}
0x0098a…00998 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0030}
0x00998…009a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003e}
0x009a2…009c8 Head {h00=0x0022, h01=0x0050, text=»* EXTERNALS DEFINED IN MONTAB«, t00=0x0006, t01=0x0048}
0x009c8…009d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006e}
0x009d2…00a00 Head {h00=0x002a, h01=0x0050, text=» EXTRN FREQUE FREE PAGES QUEUE ANCHOR «, t00=0x0006, t01=0x0078}
0x00a00…00a26 Head {h00=0x0022, h01=0x0050, text=» EXTRN INTLT1 LOCAL CONNECTION«, t00=0x0006, t01=0x00a6}
0x00a26…00a4e Head {h00=0x0024, h01=0x0050, text=» EXTRN INTRT1 REMOTE CONNECTION «, t00=0x0006, t01=0x00cc}
0x00a4e…00a74 Head {h00=0x0022, h01=0x0050, text=» EXTRN INTVU1 VIDEO CONNECTION«, t00=0x0006, t01=0x00f4}
0x00a74…00a9a Head {h00=0x0022, h01=0x0050, text=» EXTRN INTPL1 LWSI CONNECTION «, t00=0x0006, t01=0x011a}
0x00a9a…00ac2 Head {h00=0x0024, h01=0x0050, text=» EXTRN INTPR1 RWSI CONNECTION =8«, t00=0x0006, t01=0x0140}
0x00ac2…00af0 Head {h00=0x002a, h01=0x0050, text=» EXTRN INTAS1 ASYNCHRONOUS CONNECTION «, t00=0x0006, t01=0x0168}
0x00af0…00b1c Head {h00=0x0028, h01=0x0050, text=» EXTRN INTSL1 SYNCHRONOUS CONNECTION«, t00=0x0007, t01=0x0008}
0x00b1c…00b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0034}
0x00b26…00b48 Head {h00=0x001e, h01=0x0050, text=»* MISCELLANOEUS EXTERNALS«, t00=0x0007, t01=0x003e}
0x00b48…00b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0060}
0x00b52…00b7e Head {h00=0x0028, h01=0x0050, text=» EXTRN REL RELOCATION BASE IN SYSINI«, t00=0x0007, t01=0x006a}
0x00b7e…00bae Head {h00=0x002c, h01=0x0050, text=» EXTRN SCLASS SPECIAL DEVICE CLASS TABLE«, t00=0x0007, t01=0x0096}
0x00bae…00be0 Head {h00=0x002e, h01=0x0050, text=» EXTRN TCLASS TERMINAL DEVICE CLASS TABLE «, t00=0x0007, t01=0x00c6}
0x00be0…00c06 Head {h00=0x0022, h01=0x0050, text=» EXTRN SYSLOD START OF SYSLOD «, t00=0x0007, t01=0x00f8}
0x00c06…00c32 Head {h00=0x0028, h01=0x0050, text=» EXTRN STKCOM COMMON STACK AREA BASE«, t00=0x0007, t01=0x011e}
0x00c32…00c5e Head {h00=0x0028, h01=0x0050, text=» EXTRN STKEND LOCAL STACK AREA BASE «, t00=0x0007, t01=0x014a}
0x00c5e…00c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0176}
0x00c68…00c88 Head {h00=0x001c, h01=0x0050, text=»* EXTERNAL SUBROUTINES «, t00=0x0007, t01=0x0180}
0x00c88…00c92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0010}
0x00c92…00cb6 Head {h00=0x0020, h01=0x0050, text=» EXTRN ERROR ERROR HANDLING «, t00=0x0008, t01=0x001a}
0x00cb6…00cde Head {h00=0x0024, h01=0x0050, text=» EXTRN MOVE MOVE AREAS IN MEMORY«, t00=0x0008, t01=0x003e}
0x00cde…00cfa Head {h00=0x0018, h01=0x0050, text=» EXTRN MULT MULTIPLY«, t00=0x0008, t01=0x0066}
0x00cfa…00d26 Head {h00=0x0028, h01=0x0050, text=» EXTRN PSW STORE PROGRAM STATUS WORD«, t00=0x0008, t01=0x0082}
0x00d26…00d4e Head {h00=0x0024, h01=0x0050, text=» EXTRN CMPADR COMPARE ADDRESSES «, t00=0x0008, t01=0x00ae}
0x00d4e…00d80 Head {h00=0x002e, h01=0x0050, text=» EXTRN CONVRT CONVERT FROM ASCII TO BINARY«, t00=0x0008, t01=0x00d6}
0x00d80…00dae Head {h00=0x002a, h01=0x0050, text=» EXTRN NXTBLK GET NEXT TASK DEF. BLOCK«, t00=0x0008, t01=0x0108}
0x00dae…00de4 Head {h00=0x0032, h01=0x0050, text=» EXTRN NXTCOM GET NEXT COMMON DEFINITION BLOCK«, t00=0x0008, t01=0x0136}
0x00de4…00e04 Head {h00=0x001c, h01=0x0050, text=» EXTRN GETNUM GET NUMBER«, t00=0x0008, t01=0x016c}
0x00e04…00e36 Head {h00=0x002e, h01=0x0050, text=» EXTRN INBIMA INIT MMU ALLOCATION BIT MAP «, t00=0x0008, t01=0x018c}
0x00e36…00e68 Head {h00=0x002e, h01=0x0050, text=» EXTRN PUSH SAVE REGISTER A1-A14 ON STACK «, t00=0x0009, t01=0x002e}
0x00e68…00e9e Head {h00=0x0032, h01=0x0050, text=» EXTRN POB RESTORE REGISTER A1-A14 FROM STACK «, t00=0x0009, t01=0x0060}
0x00e9e…00eda Head {h00=0x0038, h01=0x0050, text=» EXTRN GETAPP GET NEXT APPLICATION OF SPECIFIED TYPE«, t00=0x0009, t01=0x0096}
0x00eda…00ee8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00d2}
0x00ee8…00ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e0}
0x00ef2…00f10 Head {h00=0x001a, h01=0x0050, text=»* TTAB DISPLACEMENTS «, t00=0x0009, t01=0x00ea}
0x00f10…00f1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0108}
0x00f1a…00f46 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:AM MMU ALLOCATION BIT MAP«, t00=0x0009, t01=0x0112}
0x00f46…00f66 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0009, t01=0x013e}
0x00f66…00f96 Head {h00=0x002c, h01=0x0050, text=» EXTRN TTB:AP APPLICATION CONTROL BLOCK «, t00=0x0009, t01=0x015e}
0x00f96…00fc8 Head {h00=0x002e, h01=0x0050, text=» EXTRN TTB:CB CURRENT SEGMENT BASE POINTER«, t00=0x0009, t01=0x018e}
0x00fc8…00ff4 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SP SEGMENT TABLE POINTER «, t00=0x000a, t01=0x0030}
0x00ff4…01020 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SB SEGMENT BLOCK POINTER «, t00=0x000a, t01=0x005c}
0x01020…0103e Head {h00=0x001a, h01=0x0050, text=» EXTRN TTB:ID TASK ID «, t00=0x000a, t01=0x0088}
0x0103e…0105a Head {h00=0x0018, h01=0x0050, text=» EXTRN TTB:ST STATUS«, t00=0x000a, t01=0x00a6}
0x0105a…01080 Head {h00=0x0022, h01=0x0050, text=» EXTRN TTB:PP PENDING POINTER «, t00=0x000a, t01=0x00c2}
0x01080…010aa Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:PW PROGRAM STATUS WORD «, t00=0x000a, t01=0x00e8}
0x010aa…010d0 Head {h00=0x0022, h01=0x0050, text=» EXTRN TTB:SA DISPATCH ADDRESS«, t00=0x000a, t01=0x0112}
0x010d0…010fa Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:TD DEVICE TABLE LENGTH «, t00=0x000a, t01=0x0138}
0x010fa…01104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0162}
0x01104…0111c Head {h00=0x0014, h01=0x0050, text=»* DWT PARAMETERS«, t00=0x000a, t01=0x016c}
0x0111c…01126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0184}
0x01126…01150 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTCHP CHANNEL PARAMETER-1 «, t00=0x000a, t01=0x018e}
0x01150…0116c Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000b, t01=0x0028}
0x0116c…0118e Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x000b, t01=0x0044}
0x0118e…011a8 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000b, t01=0x0066}
0x011a8…011cc Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTADR ADDRESS BLOCK «, t00=0x000b, t01=0x0080}
0x011cc…011ee Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB ADDRESS«, t00=0x000b, t01=0x00a4}
0x011ee…0121c Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTWAT WAIT/ACTIVATE INDICATOR «, t00=0x000b, t01=0x00c6}
0x0121c…01240 Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTTQ TERMINAL QUEUE «, t00=0x000b, t01=0x00f4}
0x01240…01266 Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTUEC USER ECB ADDRESS«, t00=0x000b, t01=0x0118}
0x01266…01290 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTMEC MONITOR ECB ADDRESS «, t00=0x000b, t01=0x013e}
0x01290…012ba Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTCP2 CHANNEL PARAMETER-2 «, t00=0x000b, t01=0x0168}
0x012ba…012de (12, 0, 400) Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTDEV DEVICE STATUS «, t00=0x000c, t01=0x0004}
0x012de…01300 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECH ECHO DEVICE «, t00=0x000c, t01=0x0028}
0x01300…01324 Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTSQ START OF QUEUE «, t00=0x000c, t01=0x004a}
0x01324…01332 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x006e}
0x01332…0133a Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x007c}
0x0133a…01342 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0084}
0x01342…01372 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000c, t01=0x008c}
0x01372…013a2 Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000c, t01=0x00bc}
0x013a2…013d2 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000c, t01=0x00ec}
0x013d2…013da Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x011c}
0x013da…0140a Head {h00=0x002c, h01=0x0050, text=»MMUPAG EQU 0 1 - MEMORY MANAGEMENT UNIT «, t00=0x000c, t01=0x0124}
0x0140a…0142e Head {h00=0x0020, h01=0x0050, text=»DSKPAG EQU 0 1 - DISC PAGING«, t00=0x000c, t01=0x0154}
0x0142e…01464 Head {h00=0x0032, h01=0x0050, text=»SWPBLK EQU 0 1 - SWAPPABLE WORK BLOCK HANDLING«, t00=0x000c, t01=0x0178}
0x01464…01492 Head {h00=0x002a, h01=0x0050, text=»EDM EQU 0 1 - EXTENDED DATA MANAGEMENT«, t00=0x000d, t01=0x001e}
0x01492…014a4 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x000d, t01=0x004c}
0x014a4…014b6 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000d, t01=0x005e}
0x014b6…014c8 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x000d, t01=0x0070}
0x014c8…014da Head {h00=0x000e, h01=0x0050, text=»X:D EQU 1 «, t00=0x000d, t01=0x0082}
0x014da…014ec Head {h00=0x000e, h01=0x0050, text=»X:E EQU 1 «, t00=0x000d, t01=0x0094}
0x014ec…014fe Head {h00=0x000e, h01=0x0050, text=»X:F EQU 1 «, t00=0x000d, t01=0x00a6}
0x014fe…01510 Head {h00=0x000e, h01=0x0050, text=»X:G EQU 1 «, t00=0x000d, t01=0x00b8}
0x01510…01522 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 1 «, t00=0x000d, t01=0x00ca}
0x01522…01534 Head {h00=0x000e, h01=0x0050, text=»X:I EQU 1 «, t00=0x000d, t01=0x00dc}
0x01534…01546 Head {h00=0x000e, h01=0x0050, text=»X:J EQU 1 «, t00=0x000d, t01=0x00ee}
0x01546…01558 Head {h00=0x000e, h01=0x0050, text=»X:K EQU 0 «, t00=0x000d, t01=0x0100}
0x01558…0156a Head {h00=0x000e, h01=0x0050, text=»X:L EQU 1 «, t00=0x000d, t01=0x0112}
0x0156a…0157c Head {h00=0x000e, h01=0x0050, text=»X:M EQU 0 «, t00=0x000d, t01=0x0124}
0x0157c…01586 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0136}
0x01586…0159a Head {h00=0x0010, h01=0x0050, text=»SUML EQU X:A«, t00=0x000d, t01=0x0140}
0x0159a…015ae Head {h00=0x0010, h01=0x0050, text=»SUMR EQU X:B«, t00=0x000d, t01=0x0154}
0x015ae…015c4 Head {h00=0x0012, h01=0x0050, text=»SALCUZ EQU X:C«, t00=0x000d, t01=0x0168}
0x015c4…015da Head {h00=0x0012, h01=0x0050, text=»ASCU4Z EQU X:D«, t00=0x000d, t01=0x017e}
0x015da…015ee (14, 0, 400) Head {h00=0x0010, h01=0x0050, text=»FT80 EQU X:E«, t00=0x000e, t01=0x0004}
0x015ee…01602 Head {h00=0x0010, h01=0x0050, text=»PLCL EQU X:F«, t00=0x000e, t01=0x0018}
0x01602…01616 Head {h00=0x0010, h01=0x0050, text=»PLCR EQU X:G«, t00=0x000e, t01=0x002c}
0x01616…0162c Head {h00=0x0012, h01=0x0050, text=»VIDEO EQU X:H «, t00=0x000e, t01=0x0040}
0x0162c…01642 Head {h00=0x0012, h01=0x0050, text=»TEDVCL EQU X:I«, t00=0x000e, t01=0x0056}
0x01642…01658 Head {h00=0x0012, h01=0x0050, text=»SPDVCL EQU X:J«, t00=0x000e, t01=0x006c}
0x01658…0166e Head {h00=0x0012, h01=0x0050, text=»NOEXMB EQU X:K«, t00=0x000e, t01=0x0082}
0x0166e…01680 Head {h00=0x000e, h01=0x0050, text=»FM EQU X:L«, t00=0x000e, t01=0x0098}
0x01680…01692 Head {h00=0x000e, h01=0x0050, text=»DC EQU X:M«, t00=0x000e, t01=0x00aa}
0x01692…016a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00bc}
0x016a0…016aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ca}
0x016aa…016d8 Head {h00=0x002a, h01=0x0050, text=»* COMMON DISPLACEMENTS AND CONSTANTS «, t00=0x000e, t01=0x00d4}
0x016d8…016e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0102}
0x016e2…01714 Head {h00=0x002e, h01=0x0050, text=»ACBLEN EQU 26 APPL.CONTROL BLOCK LENGTH =3«, t00=0x000e, t01=0x010c}
0x01714…01748 Head {h00=0x0030, h01=0x0050, text=»APLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE«, t00=0x000e, t01=0x013e}
0x01748…01770 Head {h00=0x0024, h01=0x0050, text=»APPLNO EQU 18 APPLICATION NUMBER«, t00=0x000e, t01=0x0172}
0x01770…0179c Head {h00=0x0028, h01=0x0050, text=»BUFSIZ EQU 14 TEMPORARY BUFFER SIZE «, t00=0x000f, t01=0x000a}
0x0179c…017ce Head {h00=0x002e, h01=0x0050, text=»CONLEN EQU 0 LENGTH OF CONFIGURATION DATA «, t00=0x000f, t01=0x0036}
0x017ce…017fe Head {h00=0x002c, h01=0x0050, text=»CONSTA EQU 2 START OF CONFIGURATION DATA«, t00=0x000f, t01=0x0068}
0x017fe…0182a Head {h00=0x0028, h01=0x0050, text=»DATEND EQU 34 END OF DDIV PROTOTYPE «, t00=0x000f, t01=0x0098}
0x0182a…01868 Head {h00=0x003a, h01=0x0050, text=»FSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER «, t00=0x000f, t01=0x00c4}
0x01868…01896 Head {h00=0x002a, h01=0x0050, text=»FSTPAG EQU 22 1ST FREE PAGE (PHYSICAL)«, t00=0x000f, t01=0x0102}
0x01896…018c6 Head {h00=0x002c, h01=0x0050, text=»FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER «, t00=0x000f, t01=0x0130}
0x018c6…01900 Head {h00=0x0036, h01=0x0050, text=»LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART«, t00=0x000f, t01=0x0160}
0x01900…0192c Head {h00=0x0028, h01=0x0050, text=»MAPLEN EQU 30 LENGTH OF AREA TO MAP «, t00=0x0010, t01=0x000a}
0x0192c…0195a Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU 36 2ND MMU TABLE WORK AREA «, t00=0x0010, t01=0x0036}
0x0195a…01986 Head {h00=0x0028, h01=0x0050, text=»MMTO EQU 38 1:ST MMU TABLE WORK AREA«, t00=0x0010, t01=0x0064}
0x01986…019ae Head {h00=0x0024, h01=0x0050, text=»M:REL EQU 16 RELOCATION CONSTANT«, t00=0x0010, t01=0x0090}
0x019ae…019de Head {h00=0x002c, h01=0x0050, text=»SYSBUF EQU 28 START OF TEMPORARY BUFFER «, t00=0x0010, t01=0x00b8}
0x019de…01a14 Head {h00=0x0032, h01=0x0050, text=»SWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) «, t00=0x0010, t01=0x00e8}
0x01a14…01a48 Head {h00=0x0030, h01=0x0050, text=»SWBFSE EQU 8 SWB-FILE END ADDRESS (2 WORDS) «, t00=0x0010, t01=0x011e}
0x01a48…01a74 Head {h00=0x0028, h01=0x0050, text=»TTAB EQU 32 WORK AREA FOR MMU TABLE «, t00=0x0010, t01=0x0152}
0x01a74…01a9c Head {h00=0x0024, h01=0x0050, text=»COM01 EQU 40 COMMON SAVE AREA 1 «, t00=0x0010, t01=0x017e}
0x01a9c…01ac4 Head {h00=0x0024, h01=0x0050, text=»COM02 EQU 42 COMMON SAVE AREA 2 «, t00=0x0011, t01=0x0016}
0x01ac4…01aec Head {h00=0x0024, h01=0x0050, text=»COM03 EQU 44 COMMON SAVE AREA 3 «, t00=0x0011, t01=0x003e}
0x01aec…01b1a Head {h00=0x002a, h01=0x0050, text=»TOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS«, t00=0x0011, t01=0x0066}
0x01b1a…01b4a Head {h00=0x002c, h01=0x0050, text=»SWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG«, t00=0x0011, t01=0x0094}
0x01b4a…01b72 Head {h00=0x0024, h01=0x0050, text=»COM04 EQU 50 COMMON SAVE AREA 4 «, t00=0x0011, t01=0x00c4}
0x01b72…01b9e Head {h00=0x0028, h01=0x0050, text=»DCBLK EQU 54 START OF DC CONF. DATA «, t00=0x0011, t01=0x00ec}
0x01b9e…01bac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0118}
0x01bac…01bb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0126}
0x01bb6…01be2 Head {h00=0x0028, h01=0x0050, text=»* DISPLACEMENT IN LOCAL STACK AREA «, t00=0x0011, t01=0x0130}
0x01be2…01bec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x015c}
0x01bec…01c10 Head {h00=0x0020, h01=0x0050, text=»TCLA EQU 0 ADDRESS TO TCLASS«, t00=0x0011, t01=0x0166}
0x01c10…01c34 Head {h00=0x0020, h01=0x0050, text=»SCLA EQU 2 ADDRESS TO SCLASS«, t00=0x0011, t01=0x018a}
0x01c34…01c5e Head {h00=0x0026, h01=0x0050, text=»CUTENT EQU 4 FIRST USER TASK ENTRY«, t00=0x0012, t01=0x001e}
0x01c5e…01c8a Head {h00=0x0028, h01=0x0050, text=»FWTSIZ EQU 6 FWT AREA SIZE IN WORDS «, t00=0x0012, t01=0x0048}
0x01c8a…01cba Head {h00=0x002c, h01=0x0050, text=»APCTAB EQU 8 CURRENT APPL CONTROL BLOCK «, t00=0x0012, t01=0x0074}
0x01cba…01ce8 Head {h00=0x002a, h01=0x0050, text=»SFASAV EQU 10 SAVE START OF FREE AREA «, t00=0x0012, t01=0x00a4}
0x01ce8…01d16 Head {h00=0x002a, h01=0x0050, text=»NBRTSK EQU 12 NUMBER OF TASKS IN CLASS«, t00=0x0012, t01=0x00d2}
0x01d16…01d40 Head {h00=0x0026, h01=0x0050, text=»TASKID EQU 14 TASK IDENTIFICATION «, t00=0x0012, t01=0x0100}
0x01d40…01d5e Head {h00=0x001a, h01=0x0050, text=»FWTFLG EQU 16 FWT FLAG«, t00=0x0012, t01=0x012a}
0x01d5e…01d7e Head {h00=0x001c, h01=0x0050, text=»TCLSAV EQU 18 TASK CLASS«, t00=0x0012, t01=0x0148}
0x01d7e…01d9e Head {h00=0x001c, h01=0x0050, text=»TSKLEV EQU 20 TASK LEVEL«, t00=0x0012, t01=0x0168}
0x01d9e…01dca Head {h00=0x0028, h01=0x0050, text=»INTTAB EQU 22 TEMP INTTERRUPT TABLE «, t00=0x0012, t01=0x0188}
0x01dca…01df2 Head {h00=0x0024, h01=0x0050, text=»FWTSTA EQU 24 START OF FWT AREA «, t00=0x0013, t01=0x0024}
0x01df2…01e22 Head {h00=0x002c, h01=0x0050, text=»LIMIT EQU 26 CURRENT END OF SYSTEM AREA «, t00=0x0013, t01=0x004c}
0x01e22…01e4e Head {h00=0x0028, h01=0x0050, text=»NBRCOM EQU 28 NUMBER OF COMMON TDC:S«, t00=0x0013, t01=0x007c}
0x01e4e…01e6c Head {h00=0x001a, h01=0x0050, text=»CLASID EQU 30 CLASS ID«, t00=0x0013, t01=0x00a8}
0x01e6c…01e92 Head {h00=0x0022, h01=0x0050, text=»CONTYP EQU 32 CONNECTION TYPE «, t00=0x0013, t01=0x00c6}
0x01e92…01ebe Head {h00=0x0028, h01=0x0050, text=»LCNBR EQU 34 LINE CONNECTION NUMBER «, t00=0x0013, t01=0x00ec}
0x01ebe…01ee0 Head {h00=0x001e, h01=0x0050, text=»CLANBR EQU 36 CLASS NUMBER«, t00=0x0013, t01=0x0118}
0x01ee0…01f0a Head {h00=0x0026, h01=0x0050, text=»MAXSGM EQU 38 MAXIMUM SEGMENT SIZE«, t00=0x0013, t01=0x013a}
0x01f0a…01f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0164}
0x01f14…01f34 Head {h00=0x001c, h01=0x0050, text=»WRK1 EQU 42 WORK AREA 1 «, t00=0x0013, t01=0x016e}
0x01f34…01f54 Head {h00=0x001c, h01=0x0050, text=»WRK2 EQU 44 WORK AREA 2 «, t00=0x0013, t01=0x018e}
0x01f54…01f74 Head {h00=0x001c, h01=0x0050, text=»WRK3 EQU 46 WORK AREA 3 «, t00=0x0014, t01=0x001e}
0x01f74…01f94 Head {h00=0x001c, h01=0x0050, text=»WRK4 EQU 48 WORK AREA 4 «, t00=0x0014, t01=0x003e}
0x01f94…01fba Head {h00=0x0022, h01=0x0050, text=»BRDTAB EQU 50 BOARD CONF TABLE«, t00=0x0014, t01=0x005e}
0x01fba…01fea Head {h00=0x002c, h01=0x0050, text=»LCDSTA EQU 52 CONFIGURATION DATA POINTER«, t00=0x0014, t01=0x0084}
0x01fea…02020 Head {h00=0x0032, h01=0x0050, text=»NBRSDC EQU 54 NUMBER OF SPECIAL DEVICE CLASSES«, t00=0x0014, t01=0x00b4}
0x02020…02058 Head {h00=0x0034, h01=0x0050, text=»NBRTDC EQU 56 NUMBER OF TERMINAL DEVICE CLASSES «, t00=0x0014, t01=0x00ea}
0x02058…02082 Head {h00=0x0026, h01=0x0050, text=»APLNO EQU 58 NUMBR OF APPLICATIONS«, t00=0x0014, t01=0x0122}
0x02082…020aa Head {h00=0x0024, h01=0x0050, text=»ECHTAB EQU 60 ECHO TABLE ADDRESS«, t00=0x0014, t01=0x014c}
0x020aa…020d0 Head {h00=0x0022, h01=0x0050, text=»SGMCNT EQU 62 SEGMENT COUNTER «, t00=0x0014, t01=0x0174}
0x020d0…020fe Head {h00=0x002a, h01=0x0050, text=»NUMDTE EQU 64 NUMBER OF DTE:S DEFINED «, t00=0x0015, t01=0x000a}
0x020fe…02128 Head {h00=0x0026, h01=0x0050, text=»DTENAM EQU 66 SDTE IDENTIFICATION «, t00=0x0015, t01=0x0038}
0x02128…02150 Head {h00=0x0024, h01=0x0050, text=»DTETYP EQU 68 TYPE OF CONNECTION«, t00=0x0015, t01=0x0062}
0x02150…02188 Head {h00=0x0034, h01=0x0050, text=»NASTRT EQU 70 START OF NETW. ADDR. IN CONF. DATA«, t00=0x0015, t01=0x008a}
0x02188…021b6 Head {h00=0x002a, h01=0x0050, text=»NALNG EQU 72 LENGTH OF NETWORK ADDRESS«, t00=0x0015, t01=0x00c2}
0x021b6…021e6 Head {h00=0x002c, h01=0x0050, text=»DTENSA EQU 74 NO OF SUBADDRESSES DEFINED«, t00=0x0015, t01=0x00f0}
0x021e6…0221e Head {h00=0x0034, h01=0x0050, text=»DTECOP EQU 76 NO OF COPIES OF CURRENT DTE BLOCK «, t00=0x0015, t01=0x0120}
0x0221e…0224e Head {h00=0x002c, h01=0x0050, text=»NSAADR EQU 78 START OF SUBADDRESSES(DC) «, t00=0x0015, t01=0x0158}
0x0224e…0228a Head {h00=0x0038, h01=0x0050, text=»APCSTA EQU APCTAB CURRENT APPLICATION CONTROL BLOCK «, t00=0x0015, t01=0x0188}
0x0228a…022c2 Head {h00=0x0034, h01=0x0050, text=»SCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK «, t00=0x0016, t01=0x0034}
0x022c2…022f8 Head {h00=0x0032, h01=0x0050, text=»EXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK«, t00=0x0016, t01=0x006c}
0x022f8…02328 Head {h00=0x002c, h01=0x0050, text=»NBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS «, t00=0x0016, t01=0x00a2}
0x02328…0235a Head {h00=0x002e, h01=0x0050, text=»SWBBLK EQU FWTFLG START OF SWB CONF. DATA «, t00=0x0016, t01=0x00d2}
0x0235a…02388 Head {h00=0x002a, h01=0x0050, text=»SWBNAM EQU FWTSTA ADDRESS TO SWB NAME «, t00=0x0016, t01=0x0104}
0x02388…023b2 Head {h00=0x0026, h01=0x0050, text=»SWBTBL EQU NBRTSK LENGTH OF S:BTAB«, t00=0x0016, t01=0x0132}
0x023b2…023dc Head {h00=0x0026, h01=0x0050, text=»TCTEND EQU NBRTSK LAST TCTAB ENTRY«, t00=0x0016, t01=0x015c}
0x023dc…02406 Head {h00=0x0026, h01=0x0050, text=»SWBCNT EQU TASKID NUMBER OF SWB:S «, t00=0x0016, t01=0x0186}
0x02406…02414 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0020}
0x02414…0241e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x002e}
0x0241e…02452 Head {h00=0x0030, h01=0x0050, text=»* DISPLACEMENT IN APPLICATION CONTROL TABLE«, t00=0x0017, t01=0x0038}
0x02452…0245c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x006c}
0x0245c…02490 Head {h00=0x0030, h01=0x0050, text=»APLREL EQU 18 APPLICATION RELOCATION BASE =6«, t00=0x0017, t01=0x0076}
0x02490…024c0 Head {h00=0x002c, h01=0x0050, text=»APLIOE EQU 0 APPLICATION RESTART ADDRESS«, t00=0x0017, t01=0x00aa}
0x024c0…024ee Head {h00=0x002a, h01=0x0050, text=»APLLAC EQU 14 APPLICATION LOAD ADDRESS«, t00=0x0017, t01=0x00da}
0x024ee…02518 Head {h00=0x0026, h01=0x0050, text=»APLLAP EQU 12 LOGICAL PAGE ADDRESS«, t00=0x0017, t01=0x0108}
0x02518…0254a Head {h00=0x002e, h01=0x0050, text=»APLLDA EQU 0 APPL. LOAD ADDRESS (PHYSICAL)«, t00=0x0017, t01=0x0132}
0x0254a…02574 Head {h00=0x0026, h01=0x0050, text=»APLMMC EQU 10 APPL MMU START ENTRY«, t00=0x0017, t01=0x0164}
0x02574…025a0 Head {h00=0x0028, h01=0x0050, text=»APLMMP EQU 8 SEGMENT START MMU ENTRY«, t00=0x0017, t01=0x018e}
0x025a0…025d2 Head {h00=0x002e, h01=0x0050, text=»APLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT«, t00=0x0018, t01=0x002a}
0x025d2…02604 Head {h00=0x002e, h01=0x0050, text=»APLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU«, t00=0x0018, t01=0x005c}
0x02604…0262a Head {h00=0x0022, h01=0x0050, text=»APLSWB EQU 2 SWB TABLE ADDRESS«, t00=0x0018, t01=0x008e}
0x0262a…0265a Head {h00=0x002c, h01=0x0050, text=»APLSTA EQU 16 APPL PROGRAM START ADDRESS«, t00=0x0018, t01=0x00b4}
0x0265a…02680 Head {h00=0x0022, h01=0x0050, text=»APLTYP EQU 8 APPLICATION TYPE «, t00=0x0018, t01=0x00e4}
0x02680…026bc Head {h00=0x0038, h01=0x0050, text=»APLADA EQU 22 APPLICATION DISC ADDRESS (2 WORDS) =3 «, t00=0x0018, t01=0x010a}
0x026bc…026ee Head {h00=0x002e, h01=0x0050, text=»APLPSZ EQU 20 APPLICATION SEGMENT SIZE =3 «, t00=0x0018, t01=0x0146}
0x026ee…026fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0178}
0x026fc…02708 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0018, t01=0x0186}
0x02708…02712 (25, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0004}
0x02712…02726 Head {h00=0x0010, h01=0x0050, text=»* CONSTANTS«, t00=0x0019, t01=0x000e}
0x02726…02730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0022}
0x02730…0275e Head {h00=0x002a, h01=0x0050, text=»S:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS«, t00=0x0019, t01=0x002c}
0x0275e…02780 Head {h00=0x001e, h01=0x0050, text=»SWBLEN EQU 4 LENGTH OF SWB«, t00=0x0019, t01=0x005a}
0x02780…027ac Head {h00=0x0028, h01=0x0050, text=»SWBSEC EQU 6 DISPL. TO SECTOR LENGTH«, t00=0x0019, t01=0x007c}
0x027ac…027e0 Head {h00=0x0030, h01=0x0050, text=»UP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB«, t00=0x0019, t01=0x00a8}
0x027e0…02804 Head {h00=0x0020, h01=0x0050, text=»UPNAME EQU 4 PROTOTYPE NAME «, t00=0x0019, t01=0x00dc}
0x02804…0282c Head {h00=0x0024, h01=0x0050, text=»WBLEN EQU -4 LENGTH OF WORKBLOCK«, t00=0x0019, t01=0x0100}
0x0282c…02838 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0019, t01=0x0128}
0x02838…02844 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0019, t01=0x0134}
0x02844…0286c Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0019, t01=0x0140}
0x0286c…02898 Head {h00=0x0028, h01=0x0050, text=»* DISPLACEMENT IN CONFIGURATION DATA«, t00=0x0019, t01=0x0168}
0x02898…028c0 (26, 0, 400) Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001a, t01=0x0004}
0x028c0…028cc Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001a, t01=0x002c}
0x028cc…028ec Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x001a, t01=0x0038}
0x028ec…0290e Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x001a, t01=0x0058}
0x0290e…0293a Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x001a, t01=0x007a}
0x0293a…0296a Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x001a, t01=0x00a6}
0x0296a…0299a Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x001a, t01=0x00d6}
0x0299a…029c2 Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x001a, t01=0x0106}
0x029c2…02a00 Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x001a, t01=0x012e}
0x02a00…02a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x016c}
0x02a0a…02a34 Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 FIRST TERM DEF «, t00=0x001a, t01=0x0176}
0x02a34…02a5c Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x001b, t01=0x0010}
0x02a5c…02a7e Head {h00=0x001e, h01=0x0050, text=»TLC EQU 7 LINE CONNECTION «, t00=0x001b, t01=0x0038}
0x02a7e…02aaa Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x001b, t01=0x005a}
0x02aaa…02ab4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0086}
0x02ab4…02ae2 Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x001b, t01=0x0090}
0x02ae2…02aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00be}
0x02aec…02b10 Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x001b, t01=0x00c8}
0x02b10…02b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ec}
0x02b1a…02b3c Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x001b, t01=0x00f6}
0x02b3c…02b76 Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x001b, t01=0x0118}
0x02b76…02ba2 Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 FIRST SDC-RECORD «, t00=0x001b, t01=0x0152}
0x02ba2…02bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x017e}
0x02bac…02bb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0188}
0x02bb6…02be0 (28, 0, 400) Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x001c, t01=0x0004}
0x02be0…02bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x002e}
0x02bea…02c0c Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x001c, t01=0x0038}
0x02c0c…02c3c Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x001c, t01=0x005a}
0x02c3c…02c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x008a}
0x02c46…02c72 Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 FIRST UDB-RECORD «, t00=0x001c, t01=0x0094}
0x02c72…02c92 Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x001c, t01=0x00c0}
0x02c92…02cb8 Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x001c, t01=0x00e0}
0x02cb8…02cea Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x001c, t01=0x0106}
0x02cea…02cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0138}
0x02cf4…02d22 Head {h00=0x002a, h01=0x0050, text=»* DATA COMMUNICATION DEFINITION BLOCK«, t00=0x001c, t01=0x0142}
0x02d22…02d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0170}
0x02d2c…02d54 Head {h00=0x0024, h01=0x0050, text=»IDLIM EQU 4 ID DELIMITER OFFSET «, t00=0x001c, t01=0x017a}
0x02d54…02d7e Head {h00=0x0026, h01=0x0050, text=»TYPOFS EQU 7 START OF TYPE RECORD «, t00=0x001d, t01=0x0012}
0x02d7e…02dae Head {h00=0x002c, h01=0x0050, text=»NANSA EQU 2 NA-NSA RECORD QUALIFIER POS.«, t00=0x001d, t01=0x003c}
0x02dae…02dd4 Head {h00=0x0022, h01=0x0050, text=»NAOFS EQU 3 START OF NA NUMBER«, t00=0x001d, t01=0x006c}
0x02dd4…02dfc Head {h00=0x0024, h01=0x0050, text=»NSAOFS EQU 4 START OF NSA RECORD«, t00=0x001d, t01=0x0092}
0x02dfc…02e26 Head {h00=0x0026, h01=0x0050, text=»DTEFIX EQU 8 FIX PART OF DTE BLOCK«, t00=0x001d, t01=0x00ba}
0x02e26…02e34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00e4}
0x02e34…02e4c Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x001d, t01=0x00f2}
0x02e4c…02e64 Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x001d, t01=0x010a}
0x02e64…02e7c Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x001d, t01=0x0122}
0x02e7c…02e9e Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x001d, t01=0x013a}
0x02e9e…02ea6 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x015c}
0x02ea6…02ed4 Head {h00=0x002a, h01=0x0050, text=»LMP1 EQU /400 SYSLOD RUNS LAMP 1 CODE «, t00=0x001d, t01=0x0164}
0x02ed4…02ef2 (30, 0, 400) Head {h00=0x001a, h01=0x0050, text=»LMP2 EQU /200 NOT USED«, t00=0x001e, t01=0x0004}
0x02ef2…02f18 Head {h00=0x0022, h01=0x0050, text=»LMP3 EQU /100 MEMORY OVERFLOW «, t00=0x001e, t01=0x0022}
0x02f18…02f48 Head {h00=0x002c, h01=0x0050, text=»LMP4 EQU /80 ERROR IN CONFIGURATION DATA«, t00=0x001e, t01=0x0048}
0x02f48…02f66 Head {h00=0x001a, h01=0x0050, text=»LMP5 EQU /40 NOT USED «, t00=0x001e, t01=0x0078}
0x02f66…02f84 Head {h00=0x001a, h01=0x0050, text=»LMP6 EQU /20 NOT USED «, t00=0x001e, t01=0x0096}
0x02f84…02fa2 Head {h00=0x001a, h01=0x0050, text=»LMP7 EQU /10 NOT USED «, t00=0x001e, t01=0x00b4}
0x02fa2…02fbe Head {h00=0x0018, h01=0x0050, text=»LMP8 EQU 8 NOT USED «, t00=0x001e, t01=0x00d2}
0x02fbe…02fda Head {h00=0x0018, h01=0x0050, text=»LMP9 EQU 4 NOT USED «, t00=0x001e, t01=0x00ee}
0x02fda…02ff6 Head {h00=0x0018, h01=0x0050, text=»LMP10 EQU 2 NOT USED«, t00=0x001e, t01=0x010a}
0x02ff6…03012 Head {h00=0x0018, h01=0x0050, text=»LMP11 EQU 1 NOT USED«, t00=0x001e, t01=0x0126}
0x03012…0301e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001e, t01=0x0142}
0x0301e…03068 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x001e, t01=0x014e}
0x03068…030b2 Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x001f, t01=0x0008}
0x030b2…030fc Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x001f, t01=0x0052}
0x030fc…03146 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x001f, t01=0x009c}
0x03146…03190 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x001f, t01=0x00e6}
0x03190…0319c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x0130}
0x0319c…031a8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x013c}
0x031a8…031b4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x0148}
0x031b4…031d2 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x001f, t01=0x0154}
0x031d2…031e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0172}
0x031e0…031ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0180}
0x031ea…0320a Head {h00=0x001c, h01=0x0050, text=»* MXSTAB DISPLACEMENTS «, t00=0x001f, t01=0x018a}
0x0320a…03214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x001a}
0x03214…0323c Head {h00=0x0024, h01=0x0050, text=»MXSBL EQU 6 SEGMENT BLOCK LENGTH«, t00=0x0020, t01=0x0024}
0x0323c…03262 Head {h00=0x0022, h01=0x0050, text=»MXNOX EQU 6 NUMBER OF EXTENTS «, t00=0x0020, t01=0x004c}
0x03262…03290 Head {h00=0x002a, h01=0x0050, text=»MX:NOS EQU 8 NUMBER OF SEGMENT TABLES «, t00=0x0020, t01=0x0072}
0x03290…032c0 Head {h00=0x002c, h01=0x0050, text=»MX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH«, t00=0x0020, t01=0x00a0}
0x032c0…032ec Head {h00=0x0028, h01=0x0050, text=»MX:LEV EQU /0031 MONITOR TASK LEVEL «, t00=0x0020, t01=0x00d0}
0x032ec…03316 Head {h00=0x0026, h01=0x0050, text=»MX:LEN EQU 4 MONITOR EXTENT LENGTH«, t00=0x0020, t01=0x00fc}
0x03316…0334a Head {h00=0x0030, h01=0x0050, text=»MX:DA1 EQU 2 MONITOR DISC ADDRESS BITS 0-15 «, t00=0x0020, t01=0x0126}
0x0334a…03386 Head {h00=0x0038, h01=0x0050, text=»MX:DA2 EQU MX:DA1+2 MONITOR DISC ADDRESS BITS 16-31 «, t00=0x0020, t01=0x015a}
0x03386…033bc Head {h00=0x0032, h01=0x0050, text=»MX:NOX EQU MX:DA2+2 NUMBER OF MONITOR EXTENTS «, t00=0x0021, t01=0x0008}
0x033bc…033ec Head {h00=0x002c, h01=0x0050, text=»MX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH«, t00=0x0021, t01=0x003e}
0x033ec…0341e Head {h00=0x002e, h01=0x0050, text=»MX:STA EQU 2 MONITOR EXTENT START ADDRESS «, t00=0x0021, t01=0x006e}
0x0341e…0342c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00a0}
0x0342c…03436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00ae}
0x03436…0345c Head {h00=0x0022, h01=0x0050, text=»* ***********«, t00=0x0021, t01=0x00b8}
0x0345c…03482 Head {h00=0x0022, h01=0x0050, text=»* * PAGTAB *«, t00=0x0021, t01=0x00de}
0x03482…034a8 Head {h00=0x0022, h01=0x0050, text=»* ***********«, t00=0x0021, t01=0x0104}
0x034a8…034b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x012a}
0x034b2…034dc Head {h00=0x0026, h01=0x0050, text=»PAGQF EQU 0 QUEUE POINTER FORWARD «, t00=0x0021, t01=0x0134}
0x034dc…03506 Head {h00=0x0026, h01=0x0050, text=»PAGQB EQU 2 QUEUE POINTER BACKWARD«, t00=0x0021, t01=0x015e}
0x03506…03526 Head {h00=0x001c, h01=0x0050, text=»PAGPA EQU 4 PAGE ADDRESS«, t00=0x0021, t01=0x0188}
0x03526…03550 Head {h00=0x0026, h01=0x0050, text=»PAGSB EQU 6 SEGMENT BLOCK ADDRESS «, t00=0x0022, t01=0x0018}
0x03550…0355e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0042}
0x0355e…03568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0050}
0x03568…03592 Head {h00=0x0026, h01=0x0050, text=»* *************«, t00=0x0022, t01=0x005a}
0x03592…035bc Head {h00=0x0026, h01=0x0050, text=»* * SEGTAB *«, t00=0x0022, t01=0x0084}
0x035bc…035e6 Head {h00=0x0026, h01=0x0050, text=»* *************«, t00=0x0022, t01=0x00ae}
0x035e6…035f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00d8}
0x035f0…03614 Head {h00=0x0020, h01=0x0050, text=»SEGPB EQU 6 SEGMENT POINTER «, t00=0x0022, t01=0x00e2}
0x03614…0363a Head {h00=0x0022, h01=0x0050, text=»SEGSB EQU 6 PAGE BLOCK ADDRESS«, t00=0x0022, t01=0x0106}
0x0363a…03642 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x012c}
0x03642…03650 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0134}
0x03650…0365a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0142}
0x0365a…03688 Head {h00=0x002a, h01=0x0050, text=»* ******************* «, t00=0x0022, t01=0x014c}
0x03688…036b6 Head {h00=0x002a, h01=0x0050, text=»* * MISCELLANOUES * «, t00=0x0022, t01=0x017a}
0x036b6…036e4 Head {h00=0x002a, h01=0x0050, text=»* ******************* «, t00=0x0023, t01=0x0018}
0x036e4…036ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0046}
0x036ee…03704 Head {h00=0x0012, h01=0x0050, text=»BUFLEN EQU -4 «, t00=0x0023, t01=0x0050}
0x03704…0371a Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU -2 «, t00=0x0023, t01=0x0066}
0x0371a…0372e Head {h00=0x0010, h01=0x0050, text=»DWTLEN EQU 6«, t00=0x0023, t01=0x007c}
0x0372e…03742 Head {h00=0x0010, h01=0x0050, text=»TDCDD1 EQU 5«, t00=0x0023, t01=0x0090}
0x03742…03756 Head {h00=0x0010, h01=0x0050, text=»TDCDD2 EQU 6«, t00=0x0023, t01=0x00a4}
0x03756…03782 Head {h00=0x0028, h01=0x0050, text=»TDCLCN EQU 10 DISP. TO LINE CON. NBR«, t00=0x0023, t01=0x00b8}
0x03782…037aa Head {h00=0x0024, h01=0x0050, text=»SLL0 EQU /3940 SLL A1,0 CONSTANT«, t00=0x0023, t01=0x00e4}
0x037aa…037e6 Head {h00=0x0038, h01=0x0050, text=»NBRDPS EQU 12 NUMBER OF DATA PAGES/TASK (BASIC ONLY)«, t00=0x0023, t01=0x010c}
0x037e6…037f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0148}
0x037f4…03832 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0023, t01=0x0156}
0x03832…03870 (36, 0, 400) Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0024, t01=0x0004}
0x03870…038ae Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0024, t01=0x0042}
0x038ae…038ec Head {h00=0x003a, h01=0x0050, text=»* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY *«, t00=0x0024, t01=0x0080}
0x038ec…0392a Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0024, t01=0x00be}
0x0392a…03968 Head {h00=0x003a, h01=0x0050, text=»* IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING *«, t00=0x0024, t01=0x00fc}
0x03968…039a6 Head {h00=0x003a, h01=0x0050, text=»* PARAMETERS: *«, t00=0x0024, t01=0x013a}
0x039a6…039e4 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0024, t01=0x0178}
0x039e4…03a22 Head {h00=0x003a, h01=0x0050, text=»* A1 - POINTER TO CURRENT LOCATION OF SYSLDX *«, t00=0x0025, t01=0x0026}
0x03a22…03a60 Head {h00=0x003a, h01=0x0050, text=»* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX *«, t00=0x0025, t01=0x0064}
0x03a60…03a9e Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0025, t01=0x00a2}
0x03a9e…03adc Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0025, t01=0x00e0}
0x03adc…03b1a Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0025, t01=0x011e}
0x03b1a…03b2e Head {h00=0x0010, h01=0x0050, text=»SYSLDM EQU *«, t00=0x0025, t01=0x015c}
0x03b2e…03b52 Head {h00=0x0020, h01=0x0050, text=» LDR A8,P INIT STACK POINTER«, t00=0x0025, t01=0x0170}
0x03b52…03b82 (38, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LDKL A1,REL+2 RELOCATION ROUTINE ENTRY «, t00=0x0026, t01=0x0004}
0x03b82…03bae Head {h00=0x0028, h01=0x0050, text=» AD A1,STKCOM+M:REL RELOCATE ADDRESS«, t00=0x0026, t01=0x0034}
0x03bae…03bc0 Head {h00=0x000e, h01=0x0050, text=» CFR A8,A1«, t00=0x0026, t01=0x0060}
0x03bc0…03be8 Head {h00=0x0024, h01=0x0050, text=» LDKL A11,SYSLOD START OF SYSLOD«, t00=0x0026, t01=0x0072}
0x03be8…03c16 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,TCLASS GET ADDRESS TO TCLASS «, t00=0x0026, t01=0x009a}
0x03c16…03c48 Head {h00=0x002e, h01=0x0050, text=» CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? «, t00=0x0026, t01=0x00c8}
0x03c48…03c70 Head {h00=0x0024, h01=0x0050, text=» RF(E) NO:TCL YES:DUMMY TCLASS! «, t00=0x0026, t01=0x00fa}
0x03c70…03ca0 Head {h00=0x002c, h01=0x0050, text=» CALL CHPTRS RELOCATE POINTERS IN TCLASS«, t00=0x0026, t01=0x0122}
0x03ca0…03cdc Head {h00=0x0038, h01=0x0050, text=» ST A2,STKEND+TCLA SAVE RELOCATED POINTER TO TCLASS «, t00=0x0026, t01=0x0152}
0x03cdc…03d10 Head {h00=0x0030, h01=0x0050, text=»NO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS «, t00=0x0026, t01=0x018e}
0x03d10…03d40 Head {h00=0x002c, h01=0x0050, text=» CALL CHPTRS RELOCATE POINTERS IN SCLASS«, t00=0x0027, t01=0x0032}
0x03d40…03d74 Head {h00=0x0030, h01=0x0050, text=» ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS «, t00=0x0027, t01=0x0062}
0x03d74…03d86 Head {h00=0x000e, h01=0x0050, text=» RF CLEAR «, t00=0x0027, t01=0x0096}
0x03d86…03d94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00a8}
0x03d94…03dcc Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0027, t01=0x00b6}
0x03dcc…03e04 Head {h00=0x0034, h01=0x0050, text=»* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * «, t00=0x0027, t01=0x00ee}
0x03e04…03e3c Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0027, t01=0x0126}
0x03e3c…03e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x015e}
0x03e46…03e76 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A2 - POINTER TO TCLASS/SCLASS«, t00=0x0027, t01=0x0168}
0x03e76…03ea2 Head {h00=0x0028, h01=0x0050, text=»* A11 - SYSLOD START ADDRESS«, t00=0x0028, t01=0x0008}
0x03ea2…03ece Head {h00=0x0028, h01=0x0050, text=»* A12 - RELOCATION CONSTANT «, t00=0x0028, t01=0x0034}
0x03ece…03ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0060}
0x03ed8…03f0e Head {h00=0x0032, h01=0x0050, text=»* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS«, t00=0x0028, t01=0x006a}
0x03f0e…03f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00a0}
0x03f18…03f36 Head {h00=0x001a, h01=0x0050, text=»* WORK REGISTER:A1-A7«, t00=0x0028, t01=0x00aa}
0x03f36…03f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00c8}
0x03f40…03f58 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0028, t01=0x00d2}
0x03f58…03f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ea}
0x03f62…03f76 Head {h00=0x0010, h01=0x0050, text=»CHPTRS EQU *«, t00=0x0028, t01=0x00f4}
0x03f76…03f9a Head {h00=0x0020, h01=0x0050, text=» ADR A2,A12 RELOCATE POINTER«, t00=0x0028, t01=0x0108}
0x03f9a…03fd0 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS«, t00=0x0028, t01=0x012c}
0x03fd0…04000 Head {h00=0x002c, h01=0x0050, text=» LDR* A4,A3 GET LENGTH OF TCLASS/SCLASS «, t00=0x0028, t01=0x0162}
0x04000…04014 (41, 0, 400) Head {h00=0x0010, h01=0x0050, text=»CHPT10 EQU *«, t00=0x0029, t01=0x0004}
0x04014…04046 Head {h00=0x002e, h01=0x0050, text=» SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? «, t00=0x0029, t01=0x0018}
0x04046…04060 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CHPT30 NO! «, t00=0x0029, t01=0x004a}
0x04060…0407c Head {h00=0x0018, h01=0x0050, text=» ADK A3,2 NEXT ENTRY«, t00=0x0029, t01=0x0064}
0x0407c…040a4 Head {h00=0x0024, h01=0x0050, text=» LDR* A5,A3 GET POINTER TO CLASS«, t00=0x0029, t01=0x0080}
0x040a4…040c0 Head {h00=0x0018, h01=0x0050, text=» ADR A5,A12 RELOCATE«, t00=0x0029, t01=0x00a8}
0x040c0…040d8 Head {h00=0x0014, h01=0x0050, text=» STR A5,A3 STORE«, t00=0x0029, t01=0x00c4}
0x040d8…04100 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET LENGTH OF CLASS «, t00=0x0029, t01=0x00dc}
0x04100…04114 Head {h00=0x0010, h01=0x0050, text=»CHPT20 EQU *«, t00=0x0029, t01=0x0104}
0x04114…04142 Head {h00=0x002a, h01=0x0050, text=» SUK A6,4 MOORE DEVICES IN THIS CLASS?«, t00=0x0029, t01=0x0118}
0x04142…0415c Head {h00=0x0016, h01=0x0050, text=» RB(NP) CHPT10 NO!«, t00=0x0029, t01=0x0146}
0x0415c…0417a Head {h00=0x001a, h01=0x0050, text=» ADK A5,4 NEXT DEVICE «, t00=0x0029, t01=0x0160}
0x0417a…0419e Head {h00=0x0020, h01=0x0050, text=» LDR* A7,A5 GET DWT-ADDRESS «, t00=0x0029, t01=0x017e}
0x0419e…041c0 Head {h00=0x001e, h01=0x0050, text=» LDR A9,A7 GET DWT-ADDRESS«, t00=0x002a, t01=0x0012}
0x041c0…041e6 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x002a, t01=0x0034}
0x041e6…0420a Head {h00=0x0020, h01=0x0050, text=» RB(G) CHPT20 DWT IN DRIVER!«, t00=0x002a, t01=0x005a}
0x0420a…04226 Head {h00=0x0018, h01=0x0050, text=» ADR A7,A12 RELOCATE«, t00=0x002a, t01=0x007e}
0x04226…04254 Head {h00=0x002a, h01=0x0050, text=» STR A7,A5 STORE RELOCATED DW-ADDRESS «, t00=0x002a, t01=0x009a}
0x04254…0427a Head {h00=0x0022, h01=0x0050, text=» LD A8,SCTOPT GET OPTION WORD «, t00=0x002a, t01=0x00c8}
0x0427a…0429c Head {h00=0x001e, h01=0x0050, text=» ANKL A8,1 MMU IN SYSTEM? «, t00=0x002a, t01=0x00ee}
0x0429c…042b6 Head {h00=0x0016, h01=0x0050, text=» RB(Z) CHPT20 NO! «, t00=0x002a, t01=0x0110}
0x042b6…042e6 Head {h00=0x002c, h01=0x0050, text=» LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS«, t00=0x002a, t01=0x012a}
0x042e6…04310 Head {h00=0x0026, h01=0x0050, text=» LDR A9,A8 GET MONITOR ECB ADDRESS«, t00=0x002a, t01=0x015a}
0x04310…0433e Head {h00=0x002a, h01=0x0050, text=» ANKL A9,1 ADDRESS ALREADY RELOCATED? «, t00=0x002a, t01=0x0184}
0x0433e…0435a Head {h00=0x0018, h01=0x0050, text=» RB(NZ) CHPT20 YES! «, t00=0x002b, t01=0x0022}
0x0435a…04376 Head {h00=0x0018, h01=0x0050, text=» ADR A8,A12 RELOCATE«, t00=0x002b, t01=0x003e}
0x04376…043a8 Head {h00=0x002e, h01=0x0050, text=» ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED «, t00=0x002b, t01=0x005a}
0x043a8…043d8 Head {h00=0x002c, h01=0x0050, text=» ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS«, t00=0x002b, t01=0x008c}
0x043d8…043ea Head {h00=0x000e, h01=0x0050, text=» RB CHPT20«, t00=0x002b, t01=0x00bc}
0x043ea…043fe Head {h00=0x0010, h01=0x0050, text=»CHPT30 EQU *«, t00=0x002b, t01=0x00ce}
0x043fe…0440e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002b, t01=0x00e2}
0x0440e…0441c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00f2}
0x0441c…04430 Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x002b, t01=0x0100}
0x04430…0443a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0114}
0x0443a…04464 Head {h00=0x0026, h01=0x0050, text=»* CLEAR ALL WORDS IN SYSTEM AREA «, t00=0x002b, t01=0x011e}
0x04464…0446e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0148}
0x0446e…04484 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x002b, t01=0x0152}
0x04484…044aa Head {h00=0x0022, h01=0x0050, text=» LDR A1,P GET PROGRAM COUNTER «, t00=0x002b, t01=0x0168}
0x044aa…044be Head {h00=0x0010, h01=0x0050, text=»CLRSYS EQU *«, t00=0x002b, t01=0x018e}
0x044be…044d0 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x002c, t01=0x0012}
0x044d0…044e0 Head {h00=0x000c, h01=0x0050, text=» CMR A1 «, t00=0x002c, t01=0x0024}
0x044e0…044f2 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x002c, t01=0x0034}
0x044f2…04508 Head {h00=0x0012, h01=0x0050, text=» RB(NE) CLRSYS«, t00=0x002c, t01=0x0046}
0x04508…04520 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,CONMON «, t00=0x002c, t01=0x005c}
0x04520…0453c Head {h00=0x0018, h01=0x0050, text=» AD A1,STKCOM+M:REL «, t00=0x002c, t01=0x0074}
0x0453c…0454c Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x002c, t01=0x0090}
0x0454c…0455a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x00a0}
0x0455a…04594 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x002c, t01=0x00ae}
0x04594…045ce Head {h00=0x0036, h01=0x0050, text=»* B:TCT - BUILD TASK CONTROL TABLE *«, t00=0x002c, t01=0x00e8}
0x045ce…04608 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x002c, t01=0x0122}
0x04608…04612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x015c}
0x04612…04632 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: MONCON«, t00=0x002c, t01=0x0166}
0x04632…0463c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0186}
0x0463c…04646 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0190}
0x04646…04658 Head {h00=0x000e, h01=0x0050, text=»* ENTRY: «, t00=0x002d, t01=0x000a}
0x04658…04662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x001c}
0x04662…04672 Head {h00=0x000c, h01=0x0050, text=»* EXIT:«, t00=0x002d, t01=0x0026}
0x04672…0467c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0036}
0x0467c…046a6 Head {h00=0x0026, h01=0x0050, text=»* WORK REGISTERS: A1-A7,A11,A12 «, t00=0x002d, t01=0x0040}
0x046a6…046b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x006a}
0x046b0…046c8 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x002d, t01=0x0074}
0x046c8…046d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x008c}
0x046d2…04704 Head {h00=0x002e, h01=0x0050, text=»* TASK CONTROL TABLE LAYOUT «, t00=0x002d, t01=0x0096}
0x04704…04736 Head {h00=0x002e, h01=0x0050, text=»* _________________________ «, t00=0x002d, t01=0x00c8}
0x04736…04768 Head {h00=0x002e, h01=0x0050, text=»* I LENGTH I«, t00=0x002d, t01=0x00fa}
0x04768…0479a Head {h00=0x002e, h01=0x0050, text=»* _________________________ «, t00=0x002d, t01=0x012c}
0x0479a…047cc Head {h00=0x002e, h01=0x0050, text=»* I MONITOR TASKS I«, t00=0x002d, t01=0x015e}
0x047cc…047fe Head {h00=0x002e, h01=0x0050, text=»* _________________________ «, t00=0x002d, t01=0x0190}
0x047fe…04830 Head {h00=0x002e, h01=0x0050, text=»* I USER TASKS I«, t00=0x002e, t01=0x0032}
0x04830…04862 Head {h00=0x002e, h01=0x0050, text=»* __________________________ «, t00=0x002e, t01=0x0064}
0x04862…0486c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0096}
0x0486c…0487a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00a0}
0x0487a…0488e Head {h00=0x0010, h01=0x0050, text=»B:TCT EQU * «, t00=0x002e, t01=0x00ae}
0x0488e…048bc Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x002e, t01=0x00c2}
0x048bc…048ea Head {h00=0x002a, h01=0x0050, text=» ST A12,SCTTCT STORE ADDRESS TO TCTAB «, t00=0x002e, t01=0x00f0}
0x048ea…04916 Head {h00=0x0028, h01=0x0050, text=» ADKL A12,2 FIRST TTAB ADDRESS ENTRY«, t00=0x002e, t01=0x011e}
0x04916…04928 Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x002e, t01=0x014a}
0x04928…04932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x015c}
0x04932…04968 Head {h00=0x0032, h01=0x0050, text=»* RESERVE ENTRIES IN TCTAB FOR MONITOR EXTENT«, t00=0x002e, t01=0x0166}
0x04968…0498c Head {h00=0x0020, h01=0x0050, text=»* AND MONITOR SEGMENT TASKS«, t00=0x002f, t01=0x000c}
0x0498c…04996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0030}
0x04996…049c2 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x002f, t01=0x003a}
0x049c2…049e4 Head {h00=0x001e, h01=0x0050, text=» RF(Z) BTCT20 NOT PRESENT!«, t00=0x002f, t01=0x0066}
0x049e4…04a16 Head {h00=0x002e, h01=0x0050, text=» CALL MX:TDB GET FIRST MONITOR EXTENT TDB «, t00=0x002f, t01=0x0088}
0x04a16…04a4a Head {h00=0x0030, h01=0x0050, text=»BTCT02 SUK A7,1 DECREMENT NUMBER OF EXTENTS «, t00=0x002f, t01=0x00ba}
0x04a4a…04a68 Head {h00=0x001a, h01=0x0050, text=» RF(N) BTCT05 NO MORE!«, t00=0x002f, t01=0x00ee}
0x04a68…04a94 Head {h00=0x0028, h01=0x0050, text=» LDR* A4,A1 GET NUMBER OF TASK ID:S «, t00=0x002f, t01=0x010c}
0x04a94…04ab8 Head {h00=0x0020, h01=0x0050, text=»BTCT04 ADK A1,2 NEXT TASK ID«, t00=0x002f, t01=0x0138}
0x04ab8…04ae8 Head {h00=0x002c, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF TASK ID:S «, t00=0x002f, t01=0x015c}
0x04ae8…04b06 Head {h00=0x001a, h01=0x0050, text=» RB(N) BTCT02 NO MORE!«, t00=0x002f, t01=0x018c}
0x04b06…04b26 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x0030, t01=0x001a}
0x04b26…04b52 Head {h00=0x0028, h01=0x0050, text=» CALL RESTCT RESERVE ENTRY IN TCTAB «, t00=0x0030, t01=0x003a}
0x04b52…04b64 Head {h00=0x000e, h01=0x0050, text=» RB BTCT04«, t00=0x0030, t01=0x0066}
0x04b64…04b9c Head {h00=0x0034, h01=0x0050, text=»BTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB«, t00=0x0030, t01=0x0078}
0x04b9c…04bde Head {h00=0x003e, h01=0x0050, text=»BTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES«, t00=0x0030, t01=0x00b0}
0x04bde…04bfc Head {h00=0x001a, h01=0x0050, text=» RF(N) BTCT20 NO MORE!«, t00=0x0030, t01=0x00f2}
0x04bfc…04c28 Head {h00=0x0028, h01=0x0050, text=» LDR* A4,A1 GET NUMBER OF TASK ID:S «, t00=0x0030, t01=0x0110}
0x04c28…04c4c Head {h00=0x0020, h01=0x0050, text=»BTCT08 ADK A1,2 NEXT TASK ID«, t00=0x0030, t01=0x013c}
0x04c4c…04c7c Head {h00=0x002c, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF TASK ID:S «, t00=0x0030, t01=0x0160}
0x04c7c…04c9a Head {h00=0x001a, h01=0x0050, text=» RB(N) BTCT06 NO MORE «, t00=0x0030, t01=0x0190}
0x04c9a…04cba Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x0031, t01=0x001e}
0x04cba…04ce2 Head {h00=0x0024, h01=0x0050, text=» CALL RESTCT RESERVE ENTRY TCTAB«, t00=0x0031, t01=0x003e}
0x04ce2…04cf4 Head {h00=0x000e, h01=0x0050, text=» RB BTCT08«, t00=0x0031, t01=0x0066}
0x04cf4…04d00 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0078}
0x04d00…04d0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0084}
0x04d0e…04d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0092}
0x04d18…04d4a Head {h00=0x002e, h01=0x0050, text=»* RESERVE ENTRIES IN TCTAB FOR USER TASKS«, t00=0x0031, t01=0x009c}
0x04d4a…04d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ce}
0x04d54…04d68 Head {h00=0x0010, h01=0x0050, text=»BTCT20 EQU *«, t00=0x0031, t01=0x00d8}
0x04d68…04da2 Head {h00=0x0036, h01=0x0050, text=» ST A12,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY«, t00=0x0031, t01=0x00ec}
0x04da2…04dd2 Head {h00=0x002c, h01=0x0050, text=» LD A7,SYSLOD GET NUMBER OF APPLICATIONS«, t00=0x0031, t01=0x0126}
0x04dd2…04e0c Head {h00=0x0036, h01=0x0050, text=» LDKL A4,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK «, t00=0x0031, t01=0x0156}
0x04e0c…04e36 Head {h00=0x0026, h01=0x0050, text=»BTCT30 SUK A7,1 MORE APPLICATIONS?«, t00=0x0031, t01=0x0190}
0x04e36…04e50 Head {h00=0x0016, h01=0x0050, text=» RF(N) BTCT70 NO! «, t00=0x0032, t01=0x002a}
0x04e50…04e8a Head {h00=0x0036, h01=0x0050, text=» LD A11,APLMMC,A4 GET START OF CONFIGURATION DATA «, t00=0x0032, t01=0x0044}
0x04e8a…04eb8 Head {h00=0x002a, h01=0x0050, text=» AD A11,STKCOM+CONSTA RELOCATE POINTER«, t00=0x0032, t01=0x007e}
0x04eb8…04eee Head {h00=0x0032, h01=0x0050, text=» ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY «, t00=0x0032, t01=0x00ac}
0x04eee…04f10 Head {h00=0x001e, h01=0x0050, text=» LCR A2,A11 GET BLOCK TYPE«, t00=0x0032, t01=0x00e2}
0x04f10…04f3c Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0032, t01=0x0104}
0x04f3c…04f56 Head {h00=0x0016, h01=0x0050, text=» RF(E) BTCT35 YES «, t00=0x0032, t01=0x0130}
0x04f56…04f78 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR«, t00=0x0032, t01=0x014a}
0x04f78…04f90 Head {h00=0x0014, h01=0x0050, text=» CALL ERROR HALT«, t00=0x0032, t01=0x016c}
0x04f90…04f9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0184}
0x04f9e…04fb2 (51, 0, 398) Head {h00=0x0010, h01=0x0050, text=»BTCT35 EQU *«, t00=0x0033, t01=0x0004}
0x04fb2…04fbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0018}
0x04fbc…04ff0 Head {h00=0x0030, h01=0x0050, text=»* COMPUTE NUMBER OF TASK IN EACH TASK CLASS«, t00=0x0033, t01=0x0022}
0x04ff0…04ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0056}
0x04ffa…0500e Head {h00=0x0010, h01=0x0050, text=»BTCT40 EQU *«, t00=0x0033, t01=0x0060}
0x0500e…05036 Head {h00=0x0024, h01=0x0050, text=» CALL GETTSK GET NUMBER OF TASKS«, t00=0x0033, t01=0x0074}
0x05036…0504a Head {h00=0x0010, h01=0x0050, text=»BTCT50 EQU *«, t00=0x0033, t01=0x009c}
0x0504a…0507c Head {h00=0x002e, h01=0x0050, text=» ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB«, t00=0x0033, t01=0x00b0}
0x0507c…050a8 Head {h00=0x0028, h01=0x0050, text=» SUK A1,1 MOORE TASKS IN THIS CLASS?«, t00=0x0033, t01=0x00e2}
0x050a8…050c2 Head {h00=0x0016, h01=0x0050, text=» RB(P) BTCT50 YES «, t00=0x0033, t01=0x010e}
0x050c2…050ea Head {h00=0x0024, h01=0x0050, text=» CALL NXTBLK SKIP TO NEXT BLOCK «, t00=0x0033, t01=0x0128}
0x050ea…05116 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0033, t01=0x0150}
0x05116…05130 Head {h00=0x0016, h01=0x0050, text=» RB(E) BTCT40 YES «, t00=0x0033, t01=0x017c}
0x05130…05144 Head {h00=0x0010, h01=0x0050, text=»BTCT60 EQU *«, t00=0x0034, t01=0x0008}
0x05144…05174 Head {h00=0x002c, h01=0x0050, text=» ADK A4,ACBLEN NEXT APPL. CONTROL BLOCK «, t00=0x0034, t01=0x001c}
0x05174…05186 Head {h00=0x000e, h01=0x0050, text=» RB BTCT30«, t00=0x0034, t01=0x004c}
0x05186…05190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x005e}
0x05190…051c8 Head {h00=0x0034, h01=0x0050, text=»* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB«, t00=0x0034, t01=0x0068}
0x051c8…051d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00a0}
0x051d2…05206 Head {h00=0x0030, h01=0x0050, text=»BTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA«, t00=0x0034, t01=0x00aa}
0x05206…0522c Head {h00=0x0022, h01=0x0050, text=» SU A12,SCTTCT COMPUTE LENGTH «, t00=0x0034, t01=0x00de}
0x0522c…0524a Head {h00=0x001a, h01=0x0050, text=» ST* A12,SCTTCT STORE «, t00=0x0034, t01=0x0104}
0x0524a…0525a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x0122}
0x0525a…0526c Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x0034, t01=0x0132}
0x0526c…0527a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0144}
0x0527a…052b8 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0034, t01=0x0152}
0x052b8…052f6 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0034, t01=0x0190}
0x052f6…05334 Head {h00=0x003a, h01=0x0050, text=»* RESTCT - RESERVE ENTRY IN TCTAB * «, t00=0x0035, t01=0x003e}
0x05334…05372 Head {h00=0x003a, h01=0x0050, text=»* =============================== * «, t00=0x0035, t01=0x007c}
0x05372…053b0 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0035, t01=0x00ba}
0x053b0…053ee Head {h00=0x003a, h01=0x0050, text=»* REFERENCED IN: B:TCT * «, t00=0x0035, t01=0x00f8}
0x053ee…0542c Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0035, t01=0x0136}
0x0542c…0546a Head {h00=0x003a, h01=0x0050, text=»* ENTRY: A2 - CURRENT TASK ID * «, t00=0x0035, t01=0x0174}
0x0546a…054a8 Head {h00=0x003a, h01=0x0050, text=»* A12 - NEXT FREE ENTRY IN TCTAB * «, t00=0x0036, t01=0x0022}
0x054a8…054e6 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0036, t01=0x0060}
0x054e6…05524 Head {h00=0x003a, h01=0x0050, text=»* EXIT: A12 - NEXT FREE ENTRY IN TCTAB * «, t00=0x0036, t01=0x009e}
0x05524…05562 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0036, t01=0x00dc}
0x05562…055a0 Head {h00=0x003a, h01=0x0050, text=»* WORK REGISTERS: A3 * «, t00=0x0036, t01=0x011a}
0x055a0…055de Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0036, t01=0x0158}
0x055de…0561c Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0037, t01=0x0008}
0x0561c…0565a Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0037, t01=0x0046}
0x0565a…05698 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0037, t01=0x0084}
0x05698…056ac Head {h00=0x0010, h01=0x0050, text=»RESTCT EQU *«, t00=0x0037, t01=0x00c2}
0x056ac…056d0 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A12 GET END OF TCTAB«, t00=0x0037, t01=0x00d6}
0x056d0…056f2 Head {h00=0x001e, h01=0x0050, text=»REST10 SUK A3,2 NEXT ENTRY«, t00=0x0037, t01=0x00fa}
0x056f2…0571c Head {h00=0x0026, h01=0x0050, text=» CW A3,SCTTCT ALL ENTRIES CHECKED?«, t00=0x0037, t01=0x011c}
0x0571c…0573a Head {h00=0x001a, h01=0x0050, text=» RF(NE) REST30 NOT YET«, t00=0x0037, t01=0x0146}
0x0573a…05764 Head {h00=0x0026, h01=0x0050, text=» STR A2,A12 STORE TASK ID IN TCTAB«, t00=0x0037, t01=0x0164}
0x05764…05792 Head {h00=0x002a, h01=0x0050, text=» ADKL A12,2 NEXT FREEE ENTRY IN TCTAB «, t00=0x0037, t01=0x018e}
0x05792…057b0 Head {h00=0x001a, h01=0x0050, text=»REST20 RTN A14 RETURN «, t00=0x0038, t01=0x002c}
0x057b0…057e0 Head {h00=0x002c, h01=0x0050, text=»REST30 CWR* A2,A3 CHECK IF SAME TASK ID «, t00=0x0038, t01=0x004a}
0x057e0…05804 Head {h00=0x0020, h01=0x0050, text=» RB(NE) REST10 NOT THE SAME «, t00=0x0038, t01=0x007a}
0x05804…0582a Head {h00=0x0022, h01=0x0050, text=» RB REST20 COINCIDENCE: RETURN«, t00=0x0038, t01=0x009e}
0x0582a…05836 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00c4}
0x05836…05848 Head {h00=0x000e, h01=0x0050, text=» IFF FM=0 «, t00=0x0038, t01=0x00d0}
0x05848…05856 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00e2}
0x05856…05892 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0038, t01=0x00f0}
0x05892…058ce Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0038, t01=0x012c}
0x058ce…0590a Head {h00=0x0038, h01=0x0050, text=»* B:FWT - BUILD FILE WORK TABLE * «, t00=0x0038, t01=0x0168}
0x0590a…05946 Head {h00=0x0038, h01=0x0050, text=»* ============================= * «, t00=0x0039, t01=0x0014}
0x05946…05982 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0039, t01=0x0050}
0x05982…059be Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0039, t01=0x008c}
0x059be…059fa Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0039, t01=0x00c8}
0x059fa…05a36 Head {h00=0x0038, h01=0x0050, text=»* REFERENCED IN: CONMON * «, t00=0x0039, t01=0x0104}
0x05a36…05a72 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0039, t01=0x0140}
0x05a72…05aae Head {h00=0x0038, h01=0x0050, text=»* ENTRY: SCTNFT - NUMBER OF FM-FILES PER TASK * «, t00=0x0039, t01=0x017c}
0x05aae…05aea Head {h00=0x0038, h01=0x0050, text=»* SCTNOF - NUMBER OF GENERAL FM-FILES * «, t00=0x003a, t01=0x0028}
0x05aea…05b26 Head {h00=0x0038, h01=0x0050, text=»* SCTFWL - FILE WORK TABLE LENGTH IN * «, t00=0x003a, t01=0x0064}
0x05b26…05b62 Head {h00=0x0038, h01=0x0050, text=»* BYTES * «, t00=0x003a, t01=0x00a0}
0x05b62…05b9e Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003a, t01=0x00dc}
0x05b9e…05bda Head {h00=0x0038, h01=0x0050, text=»* EXIT: SCTFWT - ADDRESS TO FIRST FWT * «, t00=0x003a, t01=0x0118}
0x05bda…05c16 Head {h00=0x0038, h01=0x0050, text=»* SCTNOF - TOTAL NUMBER OF FM-FILES * «, t00=0x003a, t01=0x0154}
0x05c16…05c52 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003a, t01=0x0190}
0x05c52…05c8e Head {h00=0x0038, h01=0x0050, text=»* WORK REGISTERS: A2,A3 * «, t00=0x003b, t01=0x003c}
0x05c8e…05cca Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003b, t01=0x0078}
0x05cca…05d06 Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINES: ERROR,MULT * «, t00=0x003b, t01=0x00b4}
0x05d06…05d42 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003b, t01=0x00f0}
0x05d42…05d7e Head {h00=0x0038, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: * «, t00=0x003b, t01=0x012c}
0x05d7e…05dba Head {h00=0x0038, h01=0x0050, text=»* THIS SUBROUTINE RESERVES MEMORY AREA FOR * «, t00=0x003b, t01=0x0168}
0x05dba…05df6 Head {h00=0x0038, h01=0x0050, text=»* FILE WORK TABLES. * «, t00=0x003c, t01=0x0014}
0x05df6…05e32 Head {h00=0x0038, h01=0x0050, text=»* SIZE OF THE AREA RESERVED IS GIVEN BY THE * «, t00=0x003c, t01=0x0050}
0x05e32…05e6e Head {h00=0x0038, h01=0x0050, text=»* FORMULA: A=L*(G+N*T) * «, t00=0x003c, t01=0x008c}
0x05e6e…05eaa Head {h00=0x0038, h01=0x0050, text=»* WHERE A=AREA SIZE IN BYTES * «, t00=0x003c, t01=0x00c8}
0x05eaa…05ee6 Head {h00=0x0038, h01=0x0050, text=»* L= FWT LENGTH IN BYTES * «, t00=0x003c, t01=0x0104}
0x05ee6…05f22 Head {h00=0x0038, h01=0x0050, text=»* G=NUMBER OF GENERAL FM-FILES * «, t00=0x003c, t01=0x0140}
0x05f22…05f5e Head {h00=0x0038, h01=0x0050, text=»* T=NUMBER OF FM-FILES PER TASK * «, t00=0x003c, t01=0x017c}
0x05f5e…05f9a Head {h00=0x0038, h01=0x0050, text=»* N=NUMBER OF USER TASKS * «, t00=0x003d, t01=0x0028}
0x05f9a…05fd6 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003d, t01=0x0064}
0x05fd6…06012 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x003d, t01=0x00a0}
0x06012…06020 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00dc}
0x06020…06034 Head {h00=0x0010, h01=0x0050, text=»B:FWT EQU * «, t00=0x003d, t01=0x00ea}
0x06034…0605e Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET LENGTH OF TCTAB«, t00=0x003d, t01=0x00fe}
0x0605e…06088 Head {h00=0x0026, h01=0x0050, text=» AD A2,SCTTCT COMPUTE END OF TCTAB«, t00=0x003d, t01=0x0128}
0x06088…060b8 Head {h00=0x002c, h01=0x0050, text=» SU A2,STKEND+CUTENT LENGTH OF USER PART«, t00=0x003d, t01=0x0152}
0x060b8…060de Head {h00=0x0022, h01=0x0050, text=» SRL A2,1 NUMBER OF USER TASKS«, t00=0x003d, t01=0x0182}
0x060de…06114 Head {h00=0x0032, h01=0x0050, text=» LD A3,SCTNFT GET NUMBER OF FM-FILES PER TASK «, t00=0x003e, t01=0x0018}
0x06114…06130 Head {h00=0x0018, h01=0x0050, text=» CALL MULT MULTIPLY «, t00=0x003e, t01=0x004e}
0x06130…06164 Head {h00=0x0030, h01=0x0050, text=» AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES«, t00=0x003e, t01=0x006a}
0x06164…06198 Head {h00=0x0030, h01=0x0050, text=» ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES«, t00=0x003e, t01=0x009e}
0x06198…061c8 Head {h00=0x002c, h01=0x0050, text=» LD A2,SCTFWL GET FILE WORK TABLE LENGTH«, t00=0x003e, t01=0x00d2}
0x061c8…061e4 Head {h00=0x0018, h01=0x0050, text=» CALL MULT MULTIPLY «, t00=0x003e, t01=0x0102}
0x061e4…06214 Head {h00=0x002c, h01=0x0050, text=» SRL A3,1 NUMBER OF WORDS TO BE RESERVED«, t00=0x003e, t01=0x011e}
0x06214…06238 Head {h00=0x0020, h01=0x0050, text=» ADK A3,0 ANY FWT:S AT ALL? «, t00=0x003e, t01=0x014e}
0x06238…06250 Head {h00=0x0014, h01=0x0050, text=» RF(Z) FWT70 NO!«, t00=0x003e, t01=0x0172}
0x06250…06288 Head {h00=0x0034, h01=0x0050, text=» ST A3,STKEND+FWTSIZ SAVE FWT AREA SIZE IN WORDS«, t00=0x003e, t01=0x018a}
0x06288…062b4 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA GET START OF FREE AREA«, t00=0x003f, t01=0x0032}
0x062b4…062e4 Head {h00=0x002c, h01=0x0050, text=» ST A2,SCTFWT STORE ADDRESS TO FIRST FWT«, t00=0x003f, t01=0x005e}
0x062e4…06318 Head {h00=0x0030, h01=0x0050, text=» ST A2,STKEND+FWTSTA SAVE START OF FWT AREA «, t00=0x003f, t01=0x008e}
0x06318…0634c Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x003f, t01=0x00c2}
0x0634c…0637e Head {h00=0x002e, h01=0x0050, text=»FWT50 CW A2,STKEND+LIMIT MEMORY OVERFLOW? «, t00=0x003f, t01=0x00f6}
0x0637e…0639c Head {h00=0x001a, h01=0x0050, text=» RF(NE) FWT60 NOT YET!«, t00=0x003f, t01=0x0128}
0x0639c…063ca Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x003f, t01=0x0146}
0x063ca…063de Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x003f, t01=0x0174}
0x063de…06402 Head {h00=0x0020, h01=0x0050, text=»FWT60 CMR A2 CLEAR FWT AREA «, t00=0x003f, t01=0x0188}
0x06402…06428 Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 RESERVE ANOTHER WORD«, t00=0x0040, t01=0x001c}
0x06428…06450 Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 DECREMENT WORD COUNTER«, t00=0x0040, t01=0x0042}
0x06450…0647e Head {h00=0x002a, h01=0x0050, text=» RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW«, t00=0x0040, t01=0x006a}
0x0647e…064ae Head {h00=0x002c, h01=0x0050, text=» ST A2,SCTSFA UPDATE START OF FREE AREA «, t00=0x0040, t01=0x0098}
0x064ae…064c0 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0040, t01=0x00c8}
0x064c0…064f4 Head {h00=0x0030, h01=0x0050, text=» ST A2,STKEND+INTTAB SAVE ADDRESS TO T.I.T. «, t00=0x0040, t01=0x00da}
0x064f4…0650a Head {h00=0x0012, h01=0x0050, text=»FWT70 RTN A14 «, t00=0x0040, t01=0x010e}
0x0650a…06516 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0124}
0x06516…06524 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0130}
0x06524…06552 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0040, t01=0x013e}
0x06552…06580 Head {h00=0x002a, h01=0x0050, text=»* MONBLK - GENERATE MONITOR BLOCKS *«, t00=0x0040, t01=0x016c}
0x06580…065ae Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0041, t01=0x000a}
0x065ae…065b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0038}
0x065b8…065e4 Head {h00=0x0028, h01=0x0050, text=»* NUMBER OF BLOCKS TO BE GENERATED:«, t00=0x0041, t01=0x0042}
0x065e4…06610 Head {h00=0x0028, h01=0x0050, text=»* 20+N*(NUMBER OF TASKS IN SYSTEM) «, t00=0x0041, t01=0x006e}
0x06610…06638 Head {h00=0x0024, h01=0x0050, text=»* WHERE N IS A SYSTEM CONSTANT «, t00=0x0041, t01=0x009a}
0x06638…06660 Head {h00=0x0024, h01=0x0050, text=»* DEFINED AT SYSTEM GENERATION «, t00=0x0041, t01=0x00c2}
0x06660…0666a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00ea}
0x0666a…06674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00f4}
0x06674…06694 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: SYSLOD«, t00=0x0041, t01=0x00fe}
0x06694…0669e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x011e}
0x0669e…066cc Head {h00=0x002a, h01=0x0050, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x0041, t01=0x0128}
0x066cc…066f8 Head {h00=0x0028, h01=0x0050, text=»* SCTEFA - END OF FREE AREA«, t00=0x0041, t01=0x0156}
0x066f8…06702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0182}
0x06702…06734 Head {h00=0x002e, h01=0x0050, text=»* EXIT: BLOCKS - POINTER TO FIRST BLOCK«, t00=0x0041, t01=0x018c}
0x06734…0673e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x002e}
0x0673e…06766 Head {h00=0x0024, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A7,A12«, t00=0x0042, t01=0x0038}
0x06766…06770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0060}
0x06770…06790 Head {h00=0x001c, h01=0x0050, text=»* SUBROUTINES: BLKGEN «, t00=0x0042, t01=0x006a}
0x06790…0679a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x008a}
0x0679a…067a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0094}
0x067a8…067bc Head {h00=0x0010, h01=0x0050, text=»MONBLK EQU *«, t00=0x0042, t01=0x00a2}
0x067bc…067ce Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0042, t01=0x00b6}
0x067ce…067f8 Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x0042, t01=0x00c8}
0x067f8…0682a Head {h00=0x002e, h01=0x0050, text=» ST A12,FREQUE SAVE POINTER TO FIRST BLOCK«, t00=0x0042, t01=0x00f2}
0x0682a…06834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0124}
0x06834…0685c Head {h00=0x0024, h01=0x0050, text=»* GET NUMBER OF TASKS IN SYSTEM«, t00=0x0042, t01=0x012e}
0x0685c…06866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0156}
0x06866…06892 Head {h00=0x0028, h01=0x0050, text=» LD* A7,SCTTCT GET LENGTH OF TC:TAB «, t00=0x0042, t01=0x0160}
0x06892…0689c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x018c}
0x0689c…068d0 Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF BLOCKS PER TASK TO GENERATE«, t00=0x0043, t01=0x0008}
0x068d0…068da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x003c}
0x068da…068f0 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTBLK «, t00=0x0043, t01=0x0046}
0x068f0…06924 Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0043, t01=0x005c}
0x06924…06938 Head {h00=0x0010, h01=0x0050, text=»MON:10 EQU *«, t00=0x0043, t01=0x0090}
0x06938…06956 Head {h00=0x001a, h01=0x0050, text=» SUK A7,2 MOORE TASKS?«, t00=0x0043, t01=0x00a4}
0x06956…06970 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MON:20 NO «, t00=0x0043, t01=0x00c2}
0x06970…06984 Head {h00=0x0010, h01=0x0050, text=» CALL BLKGEN«, t00=0x0043, t01=0x00dc}
0x06984…06996 Head {h00=0x000e, h01=0x0050, text=» RB MON:10«, t00=0x0043, t01=0x00f0}
0x06996…069aa Head {h00=0x0010, h01=0x0050, text=»MON:20 EQU *«, t00=0x0043, t01=0x0102}
0x069aa…069b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0116}
0x069b4…069dc Head {h00=0x0024, h01=0x0050, text=»* GENERATE EXTRA MONITOR BLOCKS«, t00=0x0043, t01=0x0120}
0x069dc…069e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0148}
0x069e6…069f8 Head {h00=0x000e, h01=0x0050, text=» LDK A2,19«, t00=0x0043, t01=0x0152}
0x069f8…06a0e Head {h00=0x0012, h01=0x0050, text=» ADK A2,NOEXMB«, t00=0x0043, t01=0x0164}
0x06a0e…06a24 Head {h00=0x0012, h01=0x0050, text=» AD A2,SCTNOF «, t00=0x0043, t01=0x017a}
0x06a24…06a3a Head {h00=0x0012, h01=0x0050, text=» AD A2,SCTNOF «, t00=0x0043, t01=0x0190}
0x06a3a…06a4e Head {h00=0x0010, h01=0x0050, text=» CALL BLKGEN«, t00=0x0044, t01=0x0016}
0x06a4e…06a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x002a}
0x06a58…06a76 Head {h00=0x001a, h01=0x0050, text=»* GENERATE END BLOCK «, t00=0x0044, t01=0x0034}
0x06a76…06a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0052}
0x06a80…06a94 Head {h00=0x0010, h01=0x0050, text=» STR A1,A12 «, t00=0x0044, t01=0x005c}
0x06a94…06aa8 Head {h00=0x0010, h01=0x0050, text=» ST A1,2,A12«, t00=0x0044, t01=0x0070}
0x06aa8…06abc Head {h00=0x0010, h01=0x0050, text=» ST A1,4,A12«, t00=0x0044, t01=0x0084}
0x06abc…06ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0098}
0x06ac6…06b10 Head {h00=0x0046, h01=0x0050, text=»* CHECK IF BUFFER GREATER THAN 2 WORDS RESERVED FOR SYSLOD PART A«, t00=0x0044, t01=0x00a2}
0x06b10…06b44 Head {h00=0x0030, h01=0x0050, text=»* IF NOT - USE LAST MONITOR BLOCK AS BUFFER«, t00=0x0044, t01=0x00ec}
0x06b44…06b4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0120}
0x06b4e…06b7a Head {h00=0x0028, h01=0x0050, text=» LD A1,STKCOM+BUFSIZ GET BUFFER SIZE«, t00=0x0044, t01=0x012a}
0x06b7a…06b90 Head {h00=0x0012, h01=0x0050, text=» CWK A1,4 >4? «, t00=0x0044, t01=0x0156}
0x06b90…06bb8 Head {h00=0x0024, h01=0x0050, text=» RF(NL) MON:30 NOT LESS ANYWAY! «, t00=0x0044, t01=0x016c}
0x06bb8…06bd6 (69, 0, 400) Head {h00=0x001a, h01=0x0050, text=» LDK A1,4 BUFFER SIZE«, t00=0x0045, t01=0x0004}
0x06bd6…06c0a Head {h00=0x0030, h01=0x0050, text=» ST A1,STKCOM+BUFSIZ UPDATE MAX BUFFER SIZE «, t00=0x0045, t01=0x0022}
0x06c0a…06c1e Head {h00=0x0010, h01=0x0050, text=» ADKL A12,2 «, t00=0x0045, t01=0x0056}
0x06c1e…06c52 Head {h00=0x0030, h01=0x0050, text=» ST A12,STKCOM+SYSBUF UPDATE BUFFER ADDRESS «, t00=0x0045, t01=0x006a}
0x06c52…06c66 Head {h00=0x0010, h01=0x0050, text=»MON:30 EQU *«, t00=0x0045, t01=0x009e}
0x06c66…06c7a Head {h00=0x0010, h01=0x0050, text=» ADKL A12,6 «, t00=0x0045, t01=0x00b2}
0x06c7a…06c82 Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x00c6}
0x06c82…06cb0 Head {h00=0x002a, h01=0x0050, text=» ST A12,SCTSFA UPDATE END OF FREE AREA«, t00=0x0045, t01=0x00ce}
0x06cb0…06cc0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0045, t01=0x00fc}
0x06cc0…06cce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x010c}
0x06cce…06cfc Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0045, t01=0x011a}
0x06cfc…06d2a Head {h00=0x002a, h01=0x0050, text=»* BLKGEN - GENERATE MONITOR BLOCK * «, t00=0x0045, t01=0x0148}
0x06d2a…06d58 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0045, t01=0x0176}
0x06d58…06d62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0014}
0x06d62…06d84 Head {h00=0x001e, h01=0x0050, text=»* REFERENCED IN: MONBLK «, t00=0x0046, t01=0x001e}
0x06d84…06d8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0040}
0x06d8e…06da6 Head {h00=0x0014, h01=0x0050, text=»* ENTRY: A1=0 «, t00=0x0046, t01=0x004a}
0x06da6…06dde Head {h00=0x0034, h01=0x0050, text=»* A2 - NUMBER OF BLOCKS TO BE GENERATED«, t00=0x0046, t01=0x0062}
0x06dde…06e06 Head {h00=0x0024, h01=0x0050, text=»* A12 - NEXT FREE ENTRY «, t00=0x0046, t01=0x009a}
0x06e06…06e10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00c2}
0x06e10…06e26 Head {h00=0x0012, h01=0x0050, text=»* EXIT: A1=0«, t00=0x0046, t01=0x00cc}
0x06e26…06e4c Head {h00=0x0022, h01=0x0050, text=»* A12 - NEXT FREE ENTRY«, t00=0x0046, t01=0x00e2}
0x06e4c…06e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0108}
0x06e56…06e76 Head {h00=0x001c, h01=0x0050, text=»* WORK REGISTES: A3,A4 «, t00=0x0046, t01=0x0112}
0x06e76…06e80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0132}
0x06e80…06e98 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0046, t01=0x013c}
0x06e98…06ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0154}
0x06ea2…06ed6 Head {h00=0x0030, h01=0x0050, text=»* MONITOR BLOCK LAYOUT«, t00=0x0046, t01=0x015e}
0x06ed6…06f0a (71, 0, 400) Head {h00=0x0030, h01=0x0050, text=»* --------------------«, t00=0x0047, t01=0x0004}
0x06f0a…06f3e Head {h00=0x0030, h01=0x0050, text=»* I DATA *+6 I«, t00=0x0047, t01=0x0038}
0x06f3e…06f72 Head {h00=0x0030, h01=0x0050, text=»* --------------------«, t00=0x0047, t01=0x006c}
0x06f72…06fa6 Head {h00=0x0030, h01=0x0050, text=»* I DATA 0 I«, t00=0x0047, t01=0x00a0}
0x06fa6…06fda Head {h00=0x0030, h01=0x0050, text=»* --------------------«, t00=0x0047, t01=0x00d4}
0x06fda…0700e Head {h00=0x0030, h01=0x0050, text=»* I DATA 0 I«, t00=0x0047, t01=0x0108}
0x0700e…07042 Head {h00=0x0030, h01=0x0050, text=»* --------------------«, t00=0x0047, t01=0x013c}
0x07042…0704c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0170}
0x0704c…0705a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x017a}
0x0705a…0706e Head {h00=0x0010, h01=0x0050, text=»BLKGEN EQU *«, t00=0x0047, t01=0x0188}
0x0706e…07082 Head {h00=0x0010, h01=0x0050, text=» LDR A3,A2 «, t00=0x0048, t01=0x000c}
0x07082…07096 Head {h00=0x0010, h01=0x0050, text=»BLK:10 EQU *«, t00=0x0048, t01=0x0020}
0x07096…070aa Head {h00=0x0010, h01=0x0050, text=» RF(Z) BLKEX«, t00=0x0048, t01=0x0034}
0x070aa…070d2 Head {h00=0x0024, h01=0x0050, text=» LDK A4,3 NUMBER OF WORDS/BLOCK «, t00=0x0048, t01=0x0048}
0x070d2…07106 Head {h00=0x0030, h01=0x0050, text=»BLK:20 CW A12,STKEND+LIMIT MEMORY OVERFLOW? «, t00=0x0048, t01=0x0070}
0x07106…07126 Head {h00=0x001c, h01=0x0050, text=» RF(NE) BLK:30 NOT YET! «, t00=0x0048, t01=0x00a4}
0x07126…07154 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x0048, t01=0x00c4}
0x07154…07168 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0048, t01=0x00f2}
0x07168…07196 Head {h00=0x002a, h01=0x0050, text=»BLK:30 ADKL A12,2 RESERVE ANOTHER WORD«, t00=0x0048, t01=0x0106}
0x07196…071ba Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 MORE WORDS WANTED?«, t00=0x0048, t01=0x0134}
0x071ba…071d4 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BLK:20 YES«, t00=0x0048, t01=0x0158}
0x071d4…071ea Head {h00=0x0012, h01=0x0050, text=» ST A12,-6,A12«, t00=0x0048, t01=0x0172}
0x071ea…07200 Head {h00=0x0012, h01=0x0050, text=» ST A1,-4,A12 «, t00=0x0048, t01=0x0188}
0x07200…07216 Head {h00=0x0012, h01=0x0050, text=» ST A1,-2,A12 «, t00=0x0049, t01=0x000e}
0x07216…07228 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0049, t01=0x0024}
0x07228…0723a Head {h00=0x000e, h01=0x0050, text=» RB BLK:10«, t00=0x0049, t01=0x0036}
0x0723a…0724e Head {h00=0x0010, h01=0x0050, text=»BLKEX EQU * «, t00=0x0049, t01=0x0048}
0x0724e…0725e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0049, t01=0x005c}
0x0725e…07270 Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x0049, t01=0x006c}
0x07270…0727e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x007e}
0x0727e…072ca Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0049, t01=0x008c}
0x072ca…07316 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0049, t01=0x00d8}
0x07316…07362 Head {h00=0x0048, h01=0x0050, text=»* B:MXTT - BUILD TTABS FOR MONITOR EXTENT TASKS * «, t00=0x0049, t01=0x0124}
0x07362…073ae Head {h00=0x0048, h01=0x0050, text=»* ============================================= * «, t00=0x0049, t01=0x0170}
0x073ae…073fa Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004a, t01=0x002c}
0x073fa…07446 Head {h00=0x0048, h01=0x0050, text=»* REFERENCED IN: SYSLDM * «, t00=0x004a, t01=0x0078}
0x07446…07492 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004a, t01=0x00c4}
0x07492…074de Head {h00=0x0048, h01=0x0050, text=»* ENTRY: * «, t00=0x004a, t01=0x0110}
0x074de…0752a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004a, t01=0x015c}
0x0752a…07576 Head {h00=0x0048, h01=0x0050, text=»* EXIT: * «, t00=0x004b, t01=0x0018}
0x07576…075c2 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004b, t01=0x0064}
0x075c2…0760e Head {h00=0x0048, h01=0x0050, text=»* WORK REGISTERS: A4 * «, t00=0x004b, t01=0x00b0}
0x0760e…0765a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004b, t01=0x00fc}
0x0765a…076a6 Head {h00=0x0048, h01=0x0050, text=»* SUBROUTINES: MX:TDB,MXTTAB * «, t00=0x004b, t01=0x0148}
0x076a6…076f2 (76, 0, 400) Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004c, t01=0x0004}
0x076f2…0773e Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x004c, t01=0x0050}
0x0773e…07752 Head {h00=0x0010, h01=0x0050, text=»B:MXTT EQU *«, t00=0x004c, t01=0x009c}
0x07752…0777e Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x004c, t01=0x00b0}
0x0777e…0779e Head {h00=0x001c, h01=0x0050, text=» RF(Z) BMX99 NOT PRESENT«, t00=0x004c, t01=0x00dc}
0x0779e…077d2 Head {h00=0x0030, h01=0x0050, text=» LDK A4,2 DISPLACEMENT TO FIRST EXTENT TASK «, t00=0x004c, t01=0x00fc}
0x077d2…077f2 Head {h00=0x001c, h01=0x0050, text=» ST* A4,SCTTCT IN TCTAB «, t00=0x004c, t01=0x0130}
0x077f2…07824 Head {h00=0x002e, h01=0x0050, text=» CALL MX:TDB FIND FIRST MONITOR EXTENT TDB«, t00=0x004c, t01=0x0150}
0x07824…0785c Head {h00=0x0034, h01=0x0050, text=» LD A4,SCTMOX GET ADDRESS TO START-ADDRESS TABLE«, t00=0x004c, t01=0x0182}
0x0785c…07882 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) BMX05 ALREADY DEFINED «, t00=0x004d, t01=0x002a}
0x07882…078aa Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTSFA START OF FREE AREA«, t00=0x004d, t01=0x0050}
0x078aa…078de Head {h00=0x0030, h01=0x0050, text=» ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE«, t00=0x004d, t01=0x0078}
0x078de…07916 Head {h00=0x0034, h01=0x0050, text=» LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE «, t00=0x004d, t01=0x00ac}
0x07916…07940 Head {h00=0x0026, h01=0x0050, text=» ST* A4,SCTMOX STORE IN FIRST WORD«, t00=0x004d, t01=0x00e4}
0x07940…07968 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 RESET TASK ID COUNTER «, t00=0x004d, t01=0x010e}
0x07968…0798e Head {h00=0x0022, h01=0x0050, text=» LDR A2,A1 GET POINTER TO TDB «, t00=0x004d, t01=0x0136}
0x0798e…079b6 Head {h00=0x0024, h01=0x0050, text=» LDR A3,A7 GET NUMBER OF EXTENTS«, t00=0x004d, t01=0x015c}
0x079b6…079c8 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x004d, t01=0x0184}
0x079c8…079ec Head {h00=0x0020, h01=0x0050, text=»BMX01 SUK A3,1 MORE EXTENTS?«, t00=0x004e, t01=0x0008}
0x079ec…07a04 Head {h00=0x0014, h01=0x0050, text=» RF(N) BMX03 NO «, t00=0x004e, t01=0x002c}
0x07a04…07a32 Head {h00=0x002a, h01=0x0050, text=» ADK A2,2 ADDRESS NUMBER OF TASK ID:S «, t00=0x004e, t01=0x0044}
0x07a32…07a5e Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A2 GET NUMBER OF TASK ID:S «, t00=0x004e, t01=0x0072}
0x07a5e…07a8a Head {h00=0x0028, h01=0x0050, text=» ADR* A4,A2 ADD NUMBER OF TASK ID:S «, t00=0x004e, t01=0x009e}
0x07a8a…07ab0 Head {h00=0x0022, h01=0x0050, text=»BMX02 SUK A6,1 MORE TASK ID:S?«, t00=0x004e, t01=0x00ca}
0x07ab0…07ac8 Head {h00=0x0014, h01=0x0050, text=» RB(N) BMX01 NO «, t00=0x004e, t01=0x00f0}
0x07ac8…07aee Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 ADDRESS NEXT TASK ID«, t00=0x004e, t01=0x0108}
0x07aee…07b00 Head {h00=0x000e, h01=0x0050, text=» RB BMX02 «, t00=0x004e, t01=0x012e}
0x07b00…07b26 Head {h00=0x0022, h01=0x0050, text=»BMX03 SLL A4,2 INCLUDE LENGTH «, t00=0x004e, t01=0x0140}
0x07b26…07b5e Head {h00=0x0034, h01=0x0050, text=» ADK A4,2 INCLUDE LENGTH OF START-ADDRESS TABLE «, t00=0x004e, t01=0x0166}
0x07b5e…07b8e Head {h00=0x002c, h01=0x0050, text=» AD A4,SCTSFA END OF START-ADDRESS TABLE«, t00=0x004f, t01=0x000e}
0x07b8e…07bbe Head {h00=0x002c, h01=0x0050, text=» ST A4,SCTSFA UPDATE START OF FREE AREA «, t00=0x004f, t01=0x003e}
0x07bbe…07be0 Head {h00=0x001e, h01=0x0050, text=» LDR A11,A4 GET TABLE END «, t00=0x004f, t01=0x006e}
0x07be0…07c06 Head {h00=0x0022, h01=0x0050, text=» LDR A9,P GET CURRENT LOCATION«, t00=0x004f, t01=0x0090}
0x07c06…07c2c Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x004f, t01=0x00b6}
0x07c2c…07c46 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BMXS05 OK «, t00=0x004f, t01=0x00dc}
0x07c46…07c74 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x004f, t01=0x00f6}
0x07c74…07c88 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004f, t01=0x0124}
0x07c88…07cc2 Head {h00=0x0036, h01=0x0050, text=»BMXS05 ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x004f, t01=0x0138}
0x07cc2…07cd8 Head {h00=0x0012, h01=0x0050, text=»BMX05 SUK A1,2«, t00=0x004f, t01=0x0172}
0x07cd8…07d0a Head {h00=0x002e, h01=0x0050, text=»BMX10 SUK A7,1 DECREMENT NUMBER OF EXTENTS«, t00=0x004f, t01=0x0188}
0x07d0a…07d26 Head {h00=0x0018, h01=0x0050, text=» RF(N) BMX99 NO MORE«, t00=0x0050, t01=0x002a}
0x07d26…07d54 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0050, t01=0x0046}
0x07d54…07d8e Head {h00=0x0036, h01=0x0050, text=» ST A12,STKEND+EXCTAB SAVE ADDRESS TO CONTR. BLOCK«, t00=0x0050, t01=0x0074}
0x07d8e…07dc6 Head {h00=0x0034, h01=0x0050, text=» ADKL A12,ACBLEN RESERVE AREA FOR CONTROL BLOCK «, t00=0x0050, t01=0x00ae}
0x07dc6…07df6 Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x0050, t01=0x00e6}
0x07df6…07e1c Head {h00=0x0022, h01=0x0050, text=» ADK A1,2 NUMBER OF TASK ID:S «, t00=0x0050, t01=0x0116}
0x07e1c…07e48 Head {h00=0x0028, h01=0x0050, text=» LDR* A4,A1 GET NUMBER OF TASK ID:S «, t00=0x0050, t01=0x013c}
0x07e48…07e7c Head {h00=0x0030, h01=0x0050, text=»BMX20 SUK A4,1 DECREMENT NUMBER OF TASK ID:S«, t00=0x0050, t01=0x0168}
0x07e7c…07e98 Head {h00=0x0018, h01=0x0050, text=» RB(N) BMX10 NO MORE«, t00=0x0051, t01=0x000c}
0x07e98…07eb6 Head {h00=0x001a, h01=0x0050, text=» ADK A1,2 NEXT TASK ID«, t00=0x0051, t01=0x0028}
0x07eb6…07eca Head {h00=0x0010, h01=0x0050, text=» CALL MXTTAB«, t00=0x0051, t01=0x0046}
0x07eca…07edc Head {h00=0x000e, h01=0x0050, text=» RB BMX20 «, t00=0x0051, t01=0x005a}
0x07edc…07ef8 Head {h00=0x0018, h01=0x0050, text=»BMX99 RTN A14 RETURN«, t00=0x0051, t01=0x006c}
0x07ef8…07f06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x0088}
0x07f06…07f52 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0051, t01=0x0096}
0x07f52…07f9e Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0051, t01=0x00e2}
0x07f9e…07fea Head {h00=0x0048, h01=0x0050, text=»* MXTTAB - GENERATE TTAB FOR MONITOR EXTENT TASK *«, t00=0x0051, t01=0x012e}
0x07fea…08036 Head {h00=0x0048, h01=0x0050, text=»* ============================================== *«, t00=0x0051, t01=0x017a}
0x08036…08082 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0052, t01=0x0036}
0x08082…080ce Head {h00=0x0048, h01=0x0050, text=»* ENTRY: A1 -POINTER TO TASK ID IN MXSTAB *«, t00=0x0052, t01=0x0082}
0x080ce…0811a Head {h00=0x0048, h01=0x0050, text=»* A5 - POINTER TO MONITOR EXTENT BLOCK *«, t00=0x0052, t01=0x00ce}
0x0811a…08166 Head {h00=0x0048, h01=0x0050, text=»* A12 - POINTER TO START OF FREE AREA *«, t00=0x0052, t01=0x011a}
0x08166…081b2 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0052, t01=0x0166}
0x081b2…081fe Head {h00=0x0048, h01=0x0050, text=»* EXIT: A1 - POINTER TO TASK ID IN MXSTAB *«, t00=0x0053, t01=0x0022}
0x081fe…0824a Head {h00=0x0048, h01=0x0050, text=»* A5 - POINTER TO MONITOR EXTENT BLOCK *«, t00=0x0053, t01=0x006e}
0x0824a…08296 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0053, t01=0x00ba}
0x08296…082e2 Head {h00=0x0048, h01=0x0050, text=»* WORK REGISTER: A2 *«, t00=0x0053, t01=0x0106}
0x082e2…0832e Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0053, t01=0x0152}
0x0832e…0837a Head {h00=0x0048, h01=0x0050, text=»* SUBROUTINES: IMXTT,STRMOX,INBIMA *«, t00=0x0054, t01=0x000e}
0x0837a…083c6 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0054, t01=0x005a}
0x083c6…08412 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0054, t01=0x00a6}
0x08412…08420 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x00f2}
0x08420…08434 Head {h00=0x0010, h01=0x0050, text=»MXTTAB EQU *«, t00=0x0054, t01=0x0100}
0x08434…08464 Head {h00=0x002c, h01=0x0050, text=» MSR 4,A15 SAVE REGISTER A1-A4 ON STACK «, t00=0x0054, t01=0x0114}
0x08464…08492 Head {h00=0x002a, h01=0x0050, text=» CALL BMXSTT BUILD MONITOR EXTENT TTAB«, t00=0x0054, t01=0x0144}
0x08492…084b4 Head {h00=0x001e, h01=0x0050, text=» CALL IMXTT INIT MMU TABLE«, t00=0x0054, t01=0x0172}
0x084b4…084d4 (85, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x0055, t01=0x0004}
0x084d4…084f8 Head {h00=0x0020, h01=0x0050, text=» CALL STRMOX STORE IN MOXTAB«, t00=0x0055, t01=0x0024}
0x084f8…08522 Head {h00=0x0026, h01=0x0050, text=» LD A2,MX:STA,A5 GET START ADDRESS«, t00=0x0055, t01=0x0048}
0x08522…0855a Head {h00=0x0034, h01=0x0050, text=» LD A3,STKEND+EXCTAB GET CURRENT EXTENT BLOCK =6«, t00=0x0055, t01=0x0072}
0x0855a…0858a Head {h00=0x002c, h01=0x0050, text=» ST A2,APLSTA,A3 STORE START ADDRESS =6 «, t00=0x0055, t01=0x00aa}
0x0858a…085ae Head {h00=0x0020, h01=0x0050, text=» CALL STRMOX STORE IN MOXTAB«, t00=0x0055, t01=0x00da}
0x085ae…085d4 Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A5 GET EXTENT ADDRESS«, t00=0x0055, t01=0x00fe}
0x085d4…085fa Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/3FF GET DISPLACEMENT«, t00=0x0055, t01=0x0124}
0x085fa…0861c Head {h00=0x001e, h01=0x0050, text=» SLL A2,2 MAKE IT 12 BITS «, t00=0x0055, t01=0x014a}
0x0861c…08658 Head {h00=0x0038, h01=0x0050, text=» ST A2,TTB:CB,A12 STORE CURRENT SEGMENT BASE ADDRESS«, t00=0x0055, t01=0x016c}
0x08658…08682 Head {h00=0x0026, h01=0x0050, text=» ADK A2,12 5 WORDS FOR DEBUGGER =9«, t00=0x0056, t01=0x0018}
0x08682…086b6 Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:SA+26,A12 STORE IN A13 SAVE-AREA «, t00=0x0056, t01=0x0042}
0x086b6…086f4 Head {h00=0x003a, h01=0x0050, text=» LD A3,STKEND+EXCTAB GET CURRENT EXTENT CONTROL BLOCK «, t00=0x0056, t01=0x0076}
0x086f4…0870a Head {h00=0x0012, h01=0x0050, text=» SUK A2,2 =10«, t00=0x0056, t01=0x00b4}
0x0870a…08746 Head {h00=0x0038, h01=0x0050, text=» ST A2,APLLAC,A3 STORE LOGICAL ADDR. TO COMMON PART «, t00=0x0056, t01=0x00ca}
0x08746…08778 Head {h00=0x002e, h01=0x0050, text=» ST A2,APLREL,A3 STORE RELOCATION BASE =6 «, t00=0x0056, t01=0x0106}
0x08778…087a6 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,TTB:MT DISPL. TO COMMON PART «, t00=0x0056, t01=0x0138}
0x087a6…087dc Head {h00=0x0032, h01=0x0050, text=» ST A2,APLMMC,A3 STORE IN EXTENT CONTROL BLOCK«, t00=0x0056, t01=0x0166}
0x087dc…08818 Head {h00=0x0038, h01=0x0050, text=» ST A3,TTB:AP,A12 STORE EXTENT CONTROL BLOCK ADDRESS«, t00=0x0057, t01=0x000c}
0x08818…0883e Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0057, t01=0x0048}
0x0883e…08856 Head {h00=0x0014, h01=0x0050, text=» ANK A2,/20 EMM?«, t00=0x0057, t01=0x006e}
0x08856…0886e Head {h00=0x0014, h01=0x0050, text=» RF(Z) MXTT20 NO«, t00=0x0057, t01=0x0086}
0x0886e…08898 Head {h00=0x0026, h01=0x0050, text=» LD A2,MX:LEN,A5 GET EXTENT LENGTH«, t00=0x0057, t01=0x009e}
0x08898…088b6 Head {h00=0x001a, h01=0x0050, text=» ST A2,MAPLEN,A13 SAVE«, t00=0x0057, t01=0x00c8}
0x088b6…088e0 Head {h00=0x0026, h01=0x0050, text=» ST A12,TTAB,A13 SAVE TTAB ADDRESS«, t00=0x0057, t01=0x00e6}
0x088e0…08902 Head {h00=0x001e, h01=0x0050, text=» CALL INBIMA INIT BIP MAP «, t00=0x0057, t01=0x0110}
0x08902…0892c Head {h00=0x0026, h01=0x0050, text=»MXTT20 MLR 4,A15 RESTORE REGISTERS«, t00=0x0057, t01=0x0132}
0x0892c…08944 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0057, t01=0x015c}
0x08944…08952 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0174}
0x08952…08988 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0057, t01=0x0182}
0x08988…089be Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0058, t01=0x0028}
0x089be…089f4 Head {h00=0x0032, h01=0x0050, text=»* STRMOX - STORE START ADDRRESS IN MOXTAB * «, t00=0x0058, t01=0x005e}
0x089f4…08a2a Head {h00=0x0032, h01=0x0050, text=»* ======================================= * «, t00=0x0058, t01=0x0094}
0x08a2a…08a60 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0058, t01=0x00ca}
0x08a60…08a96 Head {h00=0x0032, h01=0x0050, text=»* REFERENCED IN: MXTTAB * «, t00=0x0058, t01=0x0100}
0x08a96…08acc Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0058, t01=0x0136}
0x08acc…08b02 Head {h00=0x0032, h01=0x0050, text=»* ENTRY: A2 - VALUE TO STORE * «, t00=0x0058, t01=0x016c}
0x08b02…08b38 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0059, t01=0x0012}
0x08b38…08b6e Head {h00=0x0032, h01=0x0050, text=»* EXIT: * «, t00=0x0059, t01=0x0048}
0x08b6e…08ba4 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0059, t01=0x007e}
0x08ba4…08bda Head {h00=0x0032, h01=0x0050, text=»* WORK REGISTERS: * «, t00=0x0059, t01=0x00b4}
0x08bda…08c10 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0059, t01=0x00ea}
0x08c10…08c46 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0059, t01=0x0120}
0x08c46…08c7c Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0059, t01=0x0156}
0x08c7c…08cb2 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0059, t01=0x018c}
0x08cb2…08cc6 Head {h00=0x0010, h01=0x0050, text=»STRMOX EQU *«, t00=0x005a, t01=0x0032}
0x08cc6…08cf0 Head {h00=0x0026, h01=0x0050, text=» LD* A3,SCTMOX GET CURRENT LENGTH «, t00=0x005a, t01=0x0046}
0x08cf0…08d20 Head {h00=0x002c, h01=0x0050, text=» AD A3,SCTMOX ADDRESS TO NEXT FREE ENTRY«, t00=0x005a, t01=0x0070}
0x08d20…08d46 Head {h00=0x0022, h01=0x0050, text=» STR A2,A3 STORE START ADDRESS«, t00=0x005a, t01=0x00a0}
0x08d46…08d6a Head {h00=0x0020, h01=0x0050, text=» IM* SCTMOX INCREMENT LENGTH«, t00=0x005a, t01=0x00c6}
0x08d6a…08d84 Head {h00=0x0016, h01=0x0050, text=» IM* SCTMOX TWICE «, t00=0x005a, t01=0x00ea}
0x08d84…08d9c Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x005a, t01=0x0104}
0x08d9c…08daa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x011c}
0x08daa…08de6 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x005a, t01=0x012a}
0x08de6…08e22 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005a, t01=0x0166}
0x08e22…08e5e Head {h00=0x0038, h01=0x0050, text=»* IMXTT - INIT MMU TABLE FOR MONITOR EXTENT TASK *«, t00=0x005b, t01=0x0012}
0x08e5e…08e9a Head {h00=0x0038, h01=0x0050, text=»* ============================================== *«, t00=0x005b, t01=0x004e}
0x08e9a…08ed6 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005b, t01=0x008a}
0x08ed6…08f12 Head {h00=0x0038, h01=0x0050, text=»* REFERENCED IN: MXTTAB *«, t00=0x005b, t01=0x00c6}
0x08f12…08f4e Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005b, t01=0x0102}
0x08f4e…08f8a Head {h00=0x0038, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PHYSICAL ADDRESS *«, t00=0x005b, t01=0x013e}
0x08f8a…08fc6 Head {h00=0x0038, h01=0x0050, text=»* A12 - TTAB ENTRY POINTER *«, t00=0x005b, t01=0x017a}
0x08fc6…09002 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005c, t01=0x0026}
0x09002…0903e Head {h00=0x0038, h01=0x0050, text=»* EXIT: *«, t00=0x005c, t01=0x0062}
0x0903e…0907a Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005c, t01=0x009e}
0x0907a…090b6 Head {h00=0x0038, h01=0x0050, text=»* WORK REGISTERS: A2,A3,A4,A9,A11 *«, t00=0x005c, t01=0x00da}
0x090b6…090f2 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005c, t01=0x0116}
0x090f2…0912e Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINES: CMPADR *«, t00=0x005c, t01=0x0152}
0x0912e…0916a Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005c, t01=0x018e}
0x0916a…091a6 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x005d, t01=0x003a}
0x091a6…091b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005d, t01=0x0076}
0x091b4…091c8 Head {h00=0x0010, h01=0x0050, text=»IMXTT EQU * «, t00=0x005d, t01=0x0084}
0x091c8…091ea Head {h00=0x001e, h01=0x0050, text=» LDR A2,A12 GET TTAB ENTRY«, t00=0x005d, t01=0x0098}
0x091ea…09218 Head {h00=0x002a, h01=0x0050, text=» ADKL A2,TTB:MT GET START OF MMU TABLE«, t00=0x005d, t01=0x00ba}
0x09218…0924a Head {h00=0x002e, h01=0x0050, text=» LDR* A3,A5 GET PHYSICAL ADDRESS TO EXTENT«, t00=0x005d, t01=0x00e8}
0x0924a…09262 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A3 SAVE «, t00=0x005d, t01=0x011a}
0x09262…0928e Head {h00=0x0028, h01=0x0050, text=» ANKL A3,/FC00 PHYSICAL PAGE ADDRESS«, t00=0x005d, t01=0x0132}
0x0928e…092b0 Head {h00=0x001e, h01=0x0050, text=» ANKL A4,/3FF DISPLACEMENT«, t00=0x005d, t01=0x015e}
0x092b0…092d2 Head {h00=0x001e, h01=0x0050, text=» SLL A4,2 MAKE IT 12 BITS «, t00=0x005d, t01=0x0180}
0x092d2…092fc Head {h00=0x0026, h01=0x0050, text=» LDKL A9,/1000 PHYSICAL PAGE SIZE «, t00=0x005e, t01=0x0012}
0x092fc…09314 Head {h00=0x0014, h01=0x0050, text=» SUR A9,A4 SAVE «, t00=0x005e, t01=0x003c}
0x09314…09340 Head {h00=0x0028, h01=0x0050, text=» LD A11,MX:LEN,A5 GET EXTENT LENGTH «, t00=0x005e, t01=0x0054}
0x09340…09374 Head {h00=0x0030, h01=0x0050, text=» CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? «, t00=0x005e, t01=0x0080}
0x09374…0938c Head {h00=0x0014, h01=0x0050, text=» RF(G) IMX10 NO!«, t00=0x005e, t01=0x00b4}
0x0938c…093b6 Head {h00=0x0026, h01=0x0050, text=» XRR A11,A11 INDICATE SINGLE ENTRY«, t00=0x005e, t01=0x00cc}
0x093b6…093c8 Head {h00=0x000e, h01=0x0050, text=» RF IMX20 «, t00=0x005e, t01=0x00f6}
0x093c8…09408 Head {h00=0x003c, h01=0x0050, text=»IMX10 SUR A11,A9 SUBTRACT REMAINING AREA IN CURRENT PAGE«, t00=0x005e, t01=0x0108}
0x09408…09432 Head {h00=0x0026, h01=0x0050, text=»IMX20 STR A3,A2 STORE PAGE ADDRESS«, t00=0x005e, t01=0x0148}
0x09432…0945e Head {h00=0x0028, h01=0x0050, text=» ADKL A3,/400 INCREMENT PAGE ADDRESS«, t00=0x005e, t01=0x0172}
0x0945e…09488 Head {h00=0x0026, h01=0x0050, text=» ADK A2,2 INCREMENT ENTRY POINTER «, t00=0x005f, t01=0x000e}
0x09488…094ae Head {h00=0x0022, h01=0x0050, text=» ADKL A11,0 ONE ENTRY ENOUGTH?«, t00=0x005f, t01=0x0038}
0x094ae…094c8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) IMX99 YES! «, t00=0x005f, t01=0x005e}
0x094c8…094e4 Head {h00=0x0018, h01=0x0050, text=» RF(NN) IMX30 <32KB «, t00=0x005f, t01=0x0078}
0x094e4…0950c Head {h00=0x0024, h01=0x0050, text=» SUKL A11,/1000 DECREMENT LENGTH«, t00=0x005f, t01=0x0094}
0x0950c…0951e Head {h00=0x000e, h01=0x0050, text=» RB IMX20 «, t00=0x005f, t01=0x00bc}
0x0951e…09548 Head {h00=0x0026, h01=0x0050, text=»IMX30 STR A3,A2 STORE PAGE ADDRESS«, t00=0x005f, t01=0x00ce}
0x09548…09574 Head {h00=0x0028, h01=0x0050, text=» ADKL A3,/400 INCREMENT PAGE ADDRESS«, t00=0x005f, t01=0x00f8}
0x09574…0959e Head {h00=0x0026, h01=0x0050, text=» ADK A2,2 INCREMENT ENTRY POINTER «, t00=0x005f, t01=0x0124}
0x0959e…095c6 Head {h00=0x0024, h01=0x0050, text=» SUKL A11,/1000 DECREMENT LENGTH«, t00=0x005f, t01=0x014e}
0x095c6…095da Head {h00=0x0010, h01=0x0050, text=» RB(P) IMX30«, t00=0x005f, t01=0x0176}
0x095da…095f2 Head {h00=0x0014, h01=0x0050, text=»IMX99 EQU * =6 «, t00=0x005f, t01=0x018a}
0x095f2…09618 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A12 GET TTAB ENTRY =6 «, t00=0x0060, t01=0x0012}
0x09618…0964a Head {h00=0x002e, h01=0x0050, text=» ADKL A4,TTB:MT+32 GET END OF MMU-TABLE =6«, t00=0x0060, t01=0x0038}
0x0964a…09664 Head {h00=0x0016, h01=0x0050, text=» LDKL A3,/FC00 =6«, t00=0x0060, t01=0x006a}
0x09664…0967c Head {h00=0x0014, h01=0x0050, text=»IMX100 EQU * =6 «, t00=0x0060, t01=0x0084}
0x0967c…096ac Head {h00=0x002c, h01=0x0050, text=» CWR A4,A2 ENTRIES LEFT IN MMU-TABLE? =6«, t00=0x0060, t01=0x009c}
0x096ac…096c8 Head {h00=0x0018, h01=0x0050, text=» RF(E) IMX110 NO! =6«, t00=0x0060, t01=0x00cc}
0x096c8…096fc Head {h00=0x0030, h01=0x0050, text=» STR A3,A2 STORE PAGE ERROR IN MMU-ENTRY =6 «, t00=0x0060, t01=0x00e8}
0x096fc…09720 Head {h00=0x0020, h01=0x0050, text=» ADK A2,2 NEXT MMU-ENTRY =6 «, t00=0x0060, t01=0x011c}
0x09720…09736 Head {h00=0x0012, h01=0x0050, text=» RB IMX100 =6«, t00=0x0060, t01=0x0140}
0x09736…0974e Head {h00=0x0014, h01=0x0050, text=»IMX110 EQU * =6«, t00=0x0060, t01=0x0156}
0x0974e…09762 Head {h00=0x0010, h01=0x0050, text=» RTN A14 =6«, t00=0x0060, t01=0x016e}
0x09762…09770 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x0182}
0x09770…097b0 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0060, t01=0x0190}
0x097b0…097f0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0061, t01=0x0040}
0x097f0…09830 Head {h00=0x003c, h01=0x0050, text=»* B:MSEG - BUILD MONITOR TASK SEGMENT TABLES & TTABS *«, t00=0x0061, t01=0x0080}
0x09830…09870 Head {h00=0x003c, h01=0x0050, text=»* ================================================== *«, t00=0x0061, t01=0x00c0}
0x09870…098b0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0061, t01=0x0100}
0x098b0…098f0 Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: SYSLDM *«, t00=0x0061, t01=0x0140}
0x098f0…09930 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0061, t01=0x0180}
0x09930…09970 Head {h00=0x003c, h01=0x0050, text=»* ENTRY: *«, t00=0x0062, t01=0x0030}
0x09970…099b0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0062, t01=0x0070}
0x099b0…099f0 Head {h00=0x003c, h01=0x0050, text=»* EXIT: *«, t00=0x0062, t01=0x00b0}
0x099f0…09a30 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0062, t01=0x00f0}
0x09a30…09a70 Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTERS: A1-A12 *«, t00=0x0062, t01=0x0130}
0x09a70…09ab0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0062, t01=0x0170}
0x09ab0…09af0 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: MX:MST,MX:STD,BMSTAB,CHKTAD,BMXSTT *«, t00=0x0063, t01=0x0020}
0x09af0…09b30 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0063, t01=0x0060}
0x09b30…09b70 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0063, t01=0x00a0}
0x09b70…09b7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x00e0}
0x09b7e…09b92 Head {h00=0x0010, h01=0x0050, text=»B:MSEG EQU *«, t00=0x0063, t01=0x00ee}
0x09b92…09bc8 Head {h00=0x0032, h01=0x0050, text=» CALL MX:MST FIND FIRST MONITOR SEGMENT TABLE «, t00=0x0063, t01=0x0102}
0x09bc8…09bfc Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0063, t01=0x0138}
0x09bfc…09c30 Head {h00=0x0030, h01=0x0050, text=» LDR A4,A5 SAVE POINTER TO NUMBER OF SEGTABS«, t00=0x0063, t01=0x016c}
0x09c30…09c6e Head {h00=0x003a, h01=0x0050, text=» LDR A8,A1 SAVE POINTER TO FIRST MONITOR SEGMENT TABLE«, t00=0x0064, t01=0x0010}
0x09c6e…09ca8 Head {h00=0x0036, h01=0x0050, text=» CALL MX:STD FIND FIRST MONITOR SEGMENT TABLE TASK«, t00=0x0064, t01=0x004e}
0x09ca8…09cc4 Head {h00=0x0018, h01=0x0050, text=» DEFINITION BLOCK «, t00=0x0064, t01=0x0088}
0x09cc4…09d06 Head {h00=0x003e, h01=0x0050, text=»BMSG10 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES«, t00=0x0064, t01=0x00a4}
0x09d06…09d24 Head {h00=0x001a, h01=0x0050, text=» RF(N) BMSG99 NO MORE!«, t00=0x0064, t01=0x00e6}
0x09d24…09d64 Head {h00=0x003c, h01=0x0050, text=» CM STKEND+SCBTAB CLEAR ADDRESS TO SEGMENT CONTROL BLOCK«, t00=0x0064, t01=0x0104}
0x09d64…09d98 Head {h00=0x0030, h01=0x0050, text=» CM STKEND+MAXSGM CLEAR MAXIMUM SEGMENT SIZE«, t00=0x0064, t01=0x0144}
0x09d98…09dd2 Head {h00=0x0036, h01=0x0050, text=» ADK A4,2 INCREMENT POINTER TO NUMBER OF SEGMENTS «, t00=0x0064, t01=0x0178}
0x09dd2…09e02 Head {h00=0x002c, h01=0x0050, text=» CALL BMSTAB BUILD MONITOR SEGMENT TABLE«, t00=0x0065, t01=0x0022}
0x09e02…09e34 Head {h00=0x002e, h01=0x0050, text=» LDR* A7,A1 GET NUMBER OF TASKS IN SEGTAB «, t00=0x0065, t01=0x0052}
0x09e34…09e58 Head {h00=0x0020, h01=0x0050, text=»BMSG20 ADK A1,2 NEXT TASK ID«, t00=0x0065, t01=0x0084}
0x09e58…09e88 Head {h00=0x002c, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF TASK ID:S «, t00=0x0065, t01=0x00a8}
0x09e88…09ea6 Head {h00=0x001a, h01=0x0050, text=» RB(N) BMSG10 NO MORE!«, t00=0x0065, t01=0x00d8}
0x09ea6…09ed8 Head {h00=0x002e, h01=0x0050, text=» CALL CHKTAD CHECK IF TASK ALREADY DEFINED«, t00=0x0065, t01=0x00f6}
0x09ed8…09f04 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) BMSG30 TASK ALREADY DEFINED!«, t00=0x0065, t01=0x0128}
0x09f04…09f3c Head {h00=0x0034, h01=0x0050, text=» CALL BMXSTT BUILD TTAB FOR MONITOR SEGMENT TASK«, t00=0x0065, t01=0x0154}
0x09f3c…09f74 Head {h00=0x0034, h01=0x0050, text=» LD A10,STKEND+SCBTAB GET SEGMENT CONTROL BLOCK «, t00=0x0065, t01=0x018c}
0x09f74…09faa Head {h00=0x0032, h01=0x0050, text=» RF(NZ) BMSG25 SEGMENT CONTROL BLOCK GENERATED«, t00=0x0066, t01=0x0034}
0x09faa…09fd8 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0066, t01=0x006a}
0x09fd8…09ff2 Head {h00=0x0016, h01=0x0050, text=» LDR A10,A12 SAVE «, t00=0x0066, t01=0x0098}
0x09ff2…0a02c Head {h00=0x0036, h01=0x0050, text=» ADKL A12,ACBLEN RESERVE FOR SEGMENT CONTROL BLOCK«, t00=0x0066, t01=0x00b2}
0x0a02c…0a05c Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x0066, t01=0x00ec}
0x0a05c…0a0a4 Head {h00=0x0044, h01=0x0050, text=»BMSG25 ST A10,TTB:AP,A12 STORE ADDRESS TO SEGMENT CONTROL BLOCK «, t00=0x0066, t01=0x011c}
0x0a0a4…0a0e0 Head {h00=0x0038, h01=0x0050, text=»BMSG30 ST A5,TTB:SP,A12 STORE SEGMENT TABLE POINTER «, t00=0x0066, t01=0x0164}
0x0a0e0…0a120 Head {h00=0x003c, h01=0x0050, text=» LD A10,TTB:AP,A12 GET ADDRESS TO SEGMENT CONTROL BLOCK «, t00=0x0067, t01=0x0010}
0x0a120…0a156 Head {h00=0x0032, h01=0x0050, text=» LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE «, t00=0x0067, t01=0x0050}
0x0a156…0a184 Head {h00=0x002a, h01=0x0050, text=» ADKL A3,/FFFF NUMBER OF 4K-MULTIPLES «, t00=0x0067, t01=0x0086}
0x0a184…0a1ba Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/F000 ISOLATE NUMBER OF 4K-MULTIPLES «, t00=0x0067, t01=0x00b4}
0x0a1ba…0a1e6 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/F000 END OF LOGICAL MEMORY«, t00=0x0067, t01=0x00ea}
0x0a1e6…0a216 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A3 COMPUTE LOGICAL PAGE ADDRESS «, t00=0x0067, t01=0x0116}
0x0a216…0a24c Head {h00=0x0032, h01=0x0050, text=» LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE «, t00=0x0067, t01=0x0146}
0x0a24c…0a274 Head {h00=0x0024, h01=0x0050, text=» ANKL A3,/FFF EVEN 4K-MULTIPLE? «, t00=0x0067, t01=0x017c}
0x0a274…0a28e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BMSG40 NO!«, t00=0x0068, t01=0x0014}
0x0a28e…0a2b8 Head {h00=0x0026, h01=0x0050, text=» ADKL A2,/1000 SAVE ONE MMU ENTRY «, t00=0x0068, t01=0x002e}
0x0a2b8…0a2f6 Head {h00=0x003a, h01=0x0050, text=»BMSG40 ST A2,APLLAP,A10 STORE IN SEGMENT CONTROL TABLE«, t00=0x0068, t01=0x0058}
0x0a2f6…0a318 Head {h00=0x001e, h01=0x0050, text=» SRL A2,12 MMU TABLE ENTRY«, t00=0x0068, t01=0x0096}
0x0a318…0a340 Head {h00=0x0024, h01=0x0050, text=» LDK A3,16 NUMBER OF MMU ENTRIES«, t00=0x0068, t01=0x00b8}
0x0a340…0a372 Head {h00=0x002e, h01=0x0050, text=» SUR A3,A2 COMPUTE NUMBER OF PAGE ENTRIES «, t00=0x0068, t01=0x00e0}
0x0a372…0a3aa Head {h00=0x0034, h01=0x0050, text=» ST A3,APLNPE,A10 STORE IN SEGMENT CONTROL TABLE«, t00=0x0068, t01=0x0112}
0x0a3aa…0a3cc Head {h00=0x001e, h01=0x0050, text=» SLL A3,1 MULTIPLY BY TWO «, t00=0x0068, t01=0x014a}
0x0a3cc…0a3fa Head {h00=0x002a, h01=0x0050, text=» NGR A3,A3 MAKE NEGATIVE DISPLACEMENT «, t00=0x0068, t01=0x016c}
0x0a3fa…0a42c Head {h00=0x002e, h01=0x0050, text=» ADKL A3,TTB:CB DISPL TO END OF MMU TABLE «, t00=0x0069, t01=0x000a}
0x0a42c…0a464 Head {h00=0x0034, h01=0x0050, text=» ST A3,APLMMP,A10 STORE IN SEGMENT CONTROL TABLE«, t00=0x0069, t01=0x003c}
0x0a464…0a49a Head {h00=0x0032, h01=0x0050, text=» LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE «, t00=0x0069, t01=0x0074}
0x0a49a…0a4ce Head {h00=0x0030, h01=0x0050, text=» ADKL A3,/3FF COMPUTE NUMBER OF 1K-MULTIPLES«, t00=0x0069, t01=0x00aa}
0x0a4ce…0a504 Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/FC00 ISOLATE NUMBER OF 1K-MULTIPLES «, t00=0x0069, t01=0x00de}
0x0a504…0a530 Head {h00=0x0028, h01=0x0050, text=» LDR A11,A3 GET CURRENT SEGMENT SIZE«, t00=0x0069, t01=0x0114}
0x0a530…0a55a Head {h00=0x0026, h01=0x0050, text=» LD A9,SCTPSZ GET MAX SEGMENT SIZE«, t00=0x0069, t01=0x0140}
0x0a55a…0a588 Head {h00=0x002a, h01=0x0050, text=» CALL CMPADR CURRENT SEGMENT GREATER? «, t00=0x0069, t01=0x016a}
0x0a588…0a5a0 Head {h00=0x0014, h01=0x0050, text=» RB(L) BMSG20 NO«, t00=0x006a, t01=0x0008}
0x0a5a0…0a5ce Head {h00=0x002a, h01=0x0050, text=» ST A3,SCTPSZ UPDATE MAX SEGMENT SIZE «, t00=0x006a, t01=0x0020}
0x0a5ce…0a5e0 Head {h00=0x000e, h01=0x0050, text=» RB BMSG20«, t00=0x006a, t01=0x004e}
0x0a5e0…0a5fe Head {h00=0x001a, h01=0x0050, text=»BMSG99 RTN A14 RETURN «, t00=0x006a, t01=0x0060}
0x0a5fe…0a60c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x007e}
0x0a60c…0a64e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x008c}
0x0a64e…0a690 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006a, t01=0x00ce}
0x0a690…0a6d2 Head {h00=0x003e, h01=0x0050, text=»* BMSTAB - BUILD MONITOR SEGMENT TABLE *«, t00=0x006a, t01=0x0110}
0x0a6d2…0a714 Head {h00=0x003e, h01=0x0050, text=»* ==================================== *«, t00=0x006a, t01=0x0152}
0x0a714…0a756 (107, 0, 400) Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006b, t01=0x0004}
0x0a756…0a798 Head {h00=0x003e, h01=0x0050, text=»* REFERENCED IN: B:MSEG *«, t00=0x006b, t01=0x0046}
0x0a798…0a7da Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006b, t01=0x0088}
0x0a7da…0a81c Head {h00=0x003e, h01=0x0050, text=»* ENTRY: A4 - POINTER TO NUMBER OF SEGMENTS *«, t00=0x006b, t01=0x00ca}
0x0a81c…0a85e Head {h00=0x003e, h01=0x0050, text=»* A8 - POINTER TO SEGMENT CLUSTER IN MXSTAB *«, t00=0x006b, t01=0x010c}
0x0a85e…0a8a0 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006b, t01=0x014e}
0x0a8a0…0a8e2 Head {h00=0x003e, h01=0x0050, text=»* EXIT: A5 - SEGMENT TABLE ADDRESS *«, t00=0x006b, t01=0x0190}
0x0a8e2…0a924 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006c, t01=0x0042}
0x0a924…0a966 Head {h00=0x003e, h01=0x0050, text=»* WORK REGISTERS: A2,A3,A9,A11 *«, t00=0x006c, t01=0x0084}
0x0a966…0a9a8 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006c, t01=0x00c6}
0x0a9a8…0a9ea Head {h00=0x003e, h01=0x0050, text=»* SUBROUTINES: CMPADR,ERROR *«, t00=0x006c, t01=0x0108}
0x0a9ea…0aa2c Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006c, t01=0x014a}
0x0aa2c…0aa6e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006c, t01=0x018c}
0x0aa6e…0aa7c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x003e}
0x0aa7c…0aa90 Head {h00=0x0010, h01=0x0050, text=»BMSTAB EQU *«, t00=0x006d, t01=0x004c}
0x0aa90…0aabe Head {h00=0x002a, h01=0x0050, text=» STR A1,A15 SAVE REGISTER A1 ON STACK «, t00=0x006d, t01=0x0060}
0x0aabe…0aaea Head {h00=0x0028, h01=0x0050, text=» LD A5,SCTSFA GET START OF FREE AREA«, t00=0x006d, t01=0x008e}
0x0aaea…0ab18 Head {h00=0x002a, h01=0x0050, text=» LD A2,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x006d, t01=0x00ba}
0x0ab18…0ab42 Head {h00=0x0026, h01=0x0050, text=» STR A2,A5 STORE IN SEGMENT TABLE «, t00=0x006d, t01=0x00e8}
0x0ab42…0ab70 Head {h00=0x002a, h01=0x0050, text=» ADK A5,2 NEXT ENTRY IN SEGMENT TABLE «, t00=0x006d, t01=0x0112}
0x0ab70…0ab9a Head {h00=0x0026, h01=0x0050, text=» LDR* A9,A4 GET NUMBER OF SEGMENTS«, t00=0x006d, t01=0x0140}
0x0ab9a…0abb2 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A9 SAVE «, t00=0x006d, t01=0x016a}
0x0abb2…0abdc Head {h00=0x0026, h01=0x0050, text=» STR A9,A5 STORE IN SEGMENT TABLE «, t00=0x006d, t01=0x0182}
0x0abdc…0ac1c Head {h00=0x003c, h01=0x0050, text=» ADS A9,STKCOM+TOTSGM INCREMENT TOTAL NUMBER OF SEGMENTS«, t00=0x006e, t01=0x001c}
0x0ac1c…0ac42 Head {h00=0x0022, h01=0x0050, text=» ADK A5,2 SEGMENT TABLE ENTRY «, t00=0x006e, t01=0x005c}
0x0ac42…0ac5a Head {h00=0x0014, h01=0x0050, text=» LDR A3,A5 SAVE «, t00=0x006e, t01=0x0082}
0x0ac5a…0ac64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x009a}
0x0ac64…0ac84 Head {h00=0x001c, h01=0x0050, text=»* BUILD SEGMENT BLOCK 0«, t00=0x006e, t01=0x00a4}
0x0ac84…0ac8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00c4}
0x0ac8e…0acba Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/8400 STATUS FOR SEGMENT 0 «, t00=0x006e, t01=0x00ce}
0x0acba…0ace6 Head {h00=0x0028, h01=0x0050, text=» STR A2,A3 STORE IN SEGMENT BLOCK 0 «, t00=0x006e, t01=0x00fa}
0x0ace6…0ad20 Head {h00=0x0036, h01=0x0050, text=»BMST20 ST A1,STKEND+SGMCNT SAVE NUMBER OF SEGMENTS«, t00=0x006e, t01=0x0126}
0x0ad20…0ad44 Head {h00=0x0020, h01=0x0050, text=» ADK A3,8 NEXT SEGMENT BLOCK«, t00=0x006e, t01=0x0160}
0x0ad44…0ad76 Head {h00=0x002e, h01=0x0050, text=» LD A9,STKEND+LIMIT GET END OF SYSTEM AREA«, t00=0x006e, t01=0x0184}
0x0ad76…0ada4 Head {h00=0x002a, h01=0x0050, text=» LDR A11,A3 GET END OF SEGMENT BLOCKS «, t00=0x006f, t01=0x0026}
0x0ada4…0adca Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x006f, t01=0x0054}
0x0adca…0ade4 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BMST25 OK «, t00=0x006f, t01=0x007a}
0x0ade4…0ae12 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x006f, t01=0x0094}
0x0ae12…0ae26 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006f, t01=0x00c2}
0x0ae26…0ae50 Head {h00=0x0026, h01=0x0050, text=»BMST25 LDR* A2,A8 GET SEGMENT TYPE«, t00=0x006f, t01=0x00d6}
0x0ae50…0ae6a Head {h00=0x0016, h01=0x0050, text=» SRL A2,8 ISOLATE «, t00=0x006f, t01=0x0100}
0x0ae6a…0ae96 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'RR' CORE RESIDENT SEGMENT? «, t00=0x006f, t01=0x011a}
0x0ae96…0aeb0 Head {h00=0x0016, h01=0x0050, text=» RF(E) BMST40 YES!«, t00=0x006f, t01=0x0146}
0x0aeb0…0aed6 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x006f, t01=0x0160}
0x0aed6…0aef4 Head {h00=0x001a, h01=0x0050, text=» ANK A2,2 DISC PAGING?«, t00=0x006f, t01=0x0186}
0x0aef4…0af0e Head {h00=0x0016, h01=0x0050, text=» RF(Z) BMST40 NO! «, t00=0x0070, t01=0x0014}
0x0af0e…0af18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x002e}
0x0af18…0af46 Head {h00=0x002a, h01=0x0050, text=»* DISC PAGING & DISC RESIDENT SEGMENT«, t00=0x0070, t01=0x0038}
0x0af46…0af50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0066}
0x0af50…0af7c Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x0070, t01=0x0070}
0x0af7c…0afb0 Head {h00=0x0030, h01=0x0050, text=» LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31«, t00=0x0070, t01=0x009c}
0x0afb0…0afe4 Head {h00=0x0030, h01=0x0050, text=» LD A1,MX:DA1,A1 GET DISC ADDRESS BITS 0-15 «, t00=0x0070, t01=0x00d0}
0x0afe4…0b00c Head {h00=0x0024, h01=0x0050, text=» LD A10,2,A8 GET RELOCATION BASE«, t00=0x0070, t01=0x0104}
0x0b00c…0b036 Head {h00=0x0026, h01=0x0050, text=» ADR A2,A10 RELOCATE DISC ADDRESS «, t00=0x0070, t01=0x012c}
0x0b036…0b056 Head {h00=0x001c, h01=0x0050, text=» RF(P) BMST30 NO CARRY! «, t00=0x0070, t01=0x0156}
0x0b056…0b078 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/7FFF CLEAR BIT 0«, t00=0x0070, t01=0x0176}
0x0b078…0b094 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADD CARRY «, t00=0x0071, t01=0x0008}
0x0b094…0b0b6 Head {h00=0x001e, h01=0x0050, text=» RF(P) BMST30 NOT OVERFLOW«, t00=0x0071, t01=0x0024}
0x0b0b6…0b0e2 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP10 DISC ADDRESS OVERFLOW«, t00=0x0071, t01=0x0046}
0x0b0e2…0b0f6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0071, t01=0x0072}
0x0b0f6…0b12e Head {h00=0x0034, h01=0x0050, text=»BMST30 ORKL A1,/4000 INDICATE ASSEMBLER SEGMENT «, t00=0x0071, t01=0x0086}
0x0b12e…0b166 Head {h00=0x0034, h01=0x0050, text=» STR A1,A3 STORE SEGMENT DISC ADDRESS BITS 0-15 «, t00=0x0071, t01=0x00be}
0x0b166…0b1a0 Head {h00=0x0036, h01=0x0050, text=» ST A2,2,A3 STORE SEGMENT DISC ADDRESS BITS 16-31 «, t00=0x0071, t01=0x00f6}
0x0b1a0…0b1b2 Head {h00=0x000e, h01=0x0050, text=» RF BMST50«, t00=0x0071, t01=0x0130}
0x0b1b2…0b1bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0142}
0x0b1bc…0b1ee Head {h00=0x002e, h01=0x0050, text=»* DISC RESIDENT SEGMENT OR NO DISC PAGING«, t00=0x0071, t01=0x014c}
0x0b1ee…0b1f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x017e}
0x0b1f8…0b236 Head {h00=0x003a, h01=0x0050, text=»BMST40 LDKL A2,/8800 STATUS FOR DISC RESIDENT SEGMENT «, t00=0x0071, t01=0x0188}
0x0b236…0b260 Head {h00=0x0026, h01=0x0050, text=» STR A2,A3 STORE IN SEGMENT BLOCK «, t00=0x0072, t01=0x0036}
0x0b260…0b28c Head {h00=0x0028, h01=0x0050, text=»BMST50 LD A9,4,A8 GET SEGMENT LENGTH«, t00=0x0072, t01=0x0060}
0x0b28c…0b2c4 Head {h00=0x0034, h01=0x0050, text=» LD A11,STKEND+MAXSGM GET MAXIMUM SEGMENT LENGTH«, t00=0x0072, t01=0x008c}
0x0b2c4…0b2d8 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x0072, t01=0x00c4}
0x0b2d8…0b30a Head {h00=0x002e, h01=0x0050, text=» RF(NL) BMST55 CURRENT SEGMENT NOT GREATER«, t00=0x0072, t01=0x00d8}
0x0b30a…0b344 Head {h00=0x0036, h01=0x0050, text=» ST A9,STKEND+MAXSGM UPDATE MAXIMUM SEGMENT LENGTH«, t00=0x0072, t01=0x010a}
0x0b344…0b384 Head {h00=0x003c, h01=0x0050, text=»BMST55 ST A9,4,A3 STORE SEGMENT LENGTH IN SEGMENT BLOCK «, t00=0x0072, t01=0x0144}
0x0b384…0b3b2 Head {h00=0x002a, h01=0x0050, text=» ADKL A8,6 INCREMENT POINTER IN MXSTAB«, t00=0x0072, t01=0x0184}
0x0b3b2…0b3e6 Head {h00=0x0030, h01=0x0050, text=» LD A1,STKEND+SGMCNT GET NUMBER OF SEGMENTS «, t00=0x0073, t01=0x0022}
0x0b3e6…0b3f8 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0073, t01=0x0056}
0x0b3f8…0b41c Head {h00=0x0020, h01=0x0050, text=» RB(NZ) BMST20 MORE SEGMENTS«, t00=0x0073, t01=0x0068}
0x0b41c…0b442 Head {h00=0x0022, h01=0x0050, text=» ADK A3,8 END OF SEGMENT TABLE«, t00=0x0073, t01=0x008c}
0x0b442…0b478 Head {h00=0x0032, h01=0x0050, text=»BMST60 ST A3,SCTSFA UPDATE START OF FREE AREA «, t00=0x0073, t01=0x00b2}
0x0b478…0b4a0 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A15 RESTORE REGISTER A1«, t00=0x0073, t01=0x00e8}
0x0b4a0…0b4b0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0073, t01=0x0110}
0x0b4b0…0b4be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x0120}
0x0b4be…0b502 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0073, t01=0x012e}
0x0b502…0b546 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0073, t01=0x0172}
0x0b546…0b58a Head {h00=0x0040, h01=0x0050, text=»* CHKTAD - CHECK IF TASK ALREADY DEFINED *«, t00=0x0074, t01=0x0026}
0x0b58a…0b5ce Head {h00=0x0040, h01=0x0050, text=»* ====================================== *«, t00=0x0074, t01=0x006a}
0x0b5ce…0b612 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0074, t01=0x00ae}
0x0b612…0b656 Head {h00=0x0040, h01=0x0050, text=»* REFERENCED IN: B:MSEG *«, t00=0x0074, t01=0x00f2}
0x0b656…0b69a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0074, t01=0x0136}
0x0b69a…0b6de Head {h00=0x0040, h01=0x0050, text=»* ENTRY: A1 - POINTER TO TASK ID *«, t00=0x0074, t01=0x017a}
0x0b6de…0b722 Head {h00=0x0040, h01=0x0050, text=»* FOR MONITOR SEGMENT TASK *«, t00=0x0075, t01=0x002e}
0x0b722…0b766 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0075, t01=0x0072}
0x0b766…0b7aa Head {h00=0x0040, h01=0x0050, text=»* EXIT: A12 - TTAB ADDRESS IF TASK ALREADY DEFINED *«, t00=0x0075, t01=0x00b6}
0x0b7aa…0b7ee Head {h00=0x0040, h01=0x0050, text=»* A12 = 0 IF TASK NOT DEFINED *«, t00=0x0075, t01=0x00fa}
0x0b7ee…0b832 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0075, t01=0x013e}
0x0b832…0b876 Head {h00=0x0040, h01=0x0050, text=»* WORK REGISTERS: A2,A3 *«, t00=0x0075, t01=0x0182}
0x0b876…0b8ba Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0076, t01=0x0036}
0x0b8ba…0b8fe Head {h00=0x0040, h01=0x0050, text=»* SUBROUTINES: PSW *«, t00=0x0076, t01=0x007a}
0x0b8fe…0b942 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0076, t01=0x00be}
0x0b942…0b986 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0076, t01=0x0102}
0x0b986…0b994 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x0146}
0x0b994…0b9a8 Head {h00=0x0010, h01=0x0050, text=»CHKTAD EQU *«, t00=0x0076, t01=0x0154}
0x0b9a8…0b9d2 Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET LENGTH OF TCTAB«, t00=0x0076, t01=0x0168}
0x0b9d2…0b9f4 (119, 0, 400) Head {h00=0x001e, h01=0x0050, text=» AD A2,SCTTCT END OF TCTAB«, t00=0x0077, t01=0x0004}
0x0b9f4…0ba26 Head {h00=0x002e, h01=0x0050, text=»CHKT20 SUK A2,2 DECREMENT POINTER IN TCTAB«, t00=0x0077, t01=0x0026}
0x0ba26…0ba4c Head {h00=0x0022, h01=0x0050, text=» CW A2,SCTTCT START OF TCTAB? «, t00=0x0077, t01=0x0058}
0x0ba4c…0ba7a Head {h00=0x002a, h01=0x0050, text=» RF(E) CHKT30 YES: ALL TASKS CHECKED! «, t00=0x0077, t01=0x007e}
0x0ba7a…0baa2 Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET POINTER TO TTAB «, t00=0x0077, t01=0x00ac}
0x0baa2…0bac6 Head {h00=0x0020, h01=0x0050, text=» LD A3,TTB:ID,A3 GET TASK ID«, t00=0x0077, t01=0x00d4}
0x0bac6…0baf2 Head {h00=0x0028, h01=0x0050, text=» CWR* A3,A1 EQUAL TO CURRENT TASKS? «, t00=0x0077, t01=0x00f8}
0x0baf2…0bb0c Head {h00=0x0016, h01=0x0050, text=» RB(NE) CHKT20 NO «, t00=0x0077, t01=0x0124}
0x0bb0c…0bb32 Head {h00=0x0022, h01=0x0050, text=» LDR* A12,A2 GET TTAB POINTER «, t00=0x0077, t01=0x013e}
0x0bb32…0bb44 Head {h00=0x000e, h01=0x0050, text=» RF CHKT50«, t00=0x0077, t01=0x0164}
0x0bb44…0bb76 Head {h00=0x002e, h01=0x0050, text=»CHKT30 LDKL A12,0 INDICATE TASK NOT FOUND «, t00=0x0077, t01=0x0176}
0x0bb76…0bba8 Head {h00=0x002e, h01=0x0050, text=»CHKT50 CFI A14,PSW,A13 STORE PSW ON STACK «, t00=0x0078, t01=0x0018}
0x0bba8…0bbb8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0078, t01=0x004a}
0x0bbb8…0bbc6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x005a}
0x0bbc6…0bc12 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0078, t01=0x0068}
0x0bc12…0bc5e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0078, t01=0x00b4}
0x0bc5e…0bcaa Head {h00=0x0048, h01=0x0050, text=»* BMXSTT - BUILD MONITOR EXTENT & SEGMENT TTABS * «, t00=0x0078, t01=0x0100}
0x0bcaa…0bcf6 Head {h00=0x0048, h01=0x0050, text=»* ============================================= * «, t00=0x0078, t01=0x014c}
0x0bcf6…0bd42 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0079, t01=0x0008}
0x0bd42…0bd8e Head {h00=0x0048, h01=0x0050, text=»* REFERENCED IN: MXTTAB,B:MSEG * «, t00=0x0079, t01=0x0054}
0x0bd8e…0bdda Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0079, t01=0x00a0}
0x0bdda…0be26 Head {h00=0x0048, h01=0x0050, text=»* ENTRY: * «, t00=0x0079, t01=0x00ec}
0x0be26…0be72 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0079, t01=0x0138}
0x0be72…0bebe Head {h00=0x0048, h01=0x0050, text=»* EXIT: A12 - TTAB ADDRESS * «, t00=0x0079, t01=0x0184}
0x0bebe…0bf0a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x007a, t01=0x0040}
0x0bf0a…0bf56 Head {h00=0x0048, h01=0x0050, text=»* WORK REGISTERS: A2,A9,A10,A11 * «, t00=0x007a, t01=0x008c}
0x0bf56…0bfa2 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x007a, t01=0x00d8}
0x0bfa2…0bfee Head {h00=0x0048, h01=0x0050, text=»* SUBROUTINES: CMPADR,ERROR * «, t00=0x007a, t01=0x0124}
0x0bfee…0c03a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x007a, t01=0x0170}
0x0c03a…0c086 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x007b, t01=0x002c}
0x0c086…0c09a Head {h00=0x0010, h01=0x0050, text=»BMXSTT EQU *«, t00=0x007b, t01=0x0078}
0x0c09a…0c0c8 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x007b, t01=0x008c}
0x0c0c8…0c0f8 Head {h00=0x002c, h01=0x0050, text=» LDKL A10,TTB:TD+2 STANDARD TTAB LENGTH «, t00=0x007b, t01=0x00ba}
0x0c0f8…0c11e Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x007b, t01=0x00ea}
0x0c11e…0c136 Head {h00=0x0014, h01=0x0050, text=» ANK A2,/21 EMM?«, t00=0x007b, t01=0x0110}
0x0c136…0c14a Head {h00=0x0010, h01=0x0050, text=» XRK A2,/21 «, t00=0x007b, t01=0x0128}
0x0c14a…0c160 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) BMXS20«, t00=0x007b, t01=0x013c}
0x0c160…0c198 Head {h00=0x0034, h01=0x0050, text=» SUKL A12,TTB:AM INCLUDE MMU ALLOCATION BIT MAP «, t00=0x007b, t01=0x0152}
0x0c198…0c1c0 Head {h00=0x0024, h01=0x0050, text=» SUKL A10,TTB:AM INCLUDE LENGTH «, t00=0x007b, t01=0x018a}
0x0c1c0…0c1d2 Head {h00=0x000e, h01=0x0050, text=» RF BMXS40«, t00=0x007c, t01=0x0022}
0x0c1d2…0c1fe Head {h00=0x0028, h01=0x0050, text=»BMXS20 LD A2,SCTOPT GET OPTION WORD «, t00=0x007c, t01=0x0034}
0x0c1fe…0c21c Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 MMU OPTION? «, t00=0x007c, t01=0x0060}
0x0c21c…0c236 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BMXS30 NO! «, t00=0x007c, t01=0x007e}
0x0c236…0c268 Head {h00=0x002e, h01=0x0050, text=» SUKL A12,TTB:MT INCLUDE MMU TABLE IN TTAB«, t00=0x007c, t01=0x0098}
0x0c268…0c290 Head {h00=0x0024, h01=0x0050, text=» SUKL A10,TTB:MT INCLUDE LENGTH «, t00=0x007c, t01=0x00ca}
0x0c290…0c2a2 Head {h00=0x000e, h01=0x0050, text=» RF BMXS40«, t00=0x007c, t01=0x00f2}
0x0c2a2…0c2ce Head {h00=0x0028, h01=0x0050, text=»BMXS30 LD A2,SCTOPT GET OPTION WORD «, t00=0x007c, t01=0x0104}
0x0c2ce…0c2ec Head {h00=0x001a, h01=0x0050, text=» ANK A2,2 DISC PAGING?«, t00=0x007c, t01=0x0130}
0x0c2ec…0c302 Head {h00=0x0012, h01=0x0050, text=» RF(Z) BMXS40 «, t00=0x007c, t01=0x014e}
0x0c302…0c33a Head {h00=0x0034, h01=0x0050, text=» SUKL A12,TTB:CB INCLUDE 3 WORDS FOR DISC PAGING«, t00=0x007c, t01=0x0164}
0x0c33a…0c364 Head {h00=0x0026, h01=0x0050, text=» SUKL A10,TTB:CB INCLUDE IN LENGTH«, t00=0x007d, t01=0x000c}
0x0c364…0c39c Head {h00=0x0034, h01=0x0050, text=»BMXS40 AD A10,SCTSFA COMPUTE START OF FREE AREA «, t00=0x007d, t01=0x0036}
0x0c39c…0c3b4 Head {h00=0x0014, h01=0x0050, text=» LDR A9,A10 SAVE«, t00=0x007d, t01=0x006e}
0x0c3b4…0c3e8 Head {h00=0x0030, h01=0x0050, text=» LD A11,STKEND+LIMIT GET END OF SYSTEM AREA «, t00=0x007d, t01=0x0086}
0x0c3e8…0c40e Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x007d, t01=0x00ba}
0x0c40e…0c428 Head {h00=0x0016, h01=0x0050, text=» RF(NL) BMXS50 NO!«, t00=0x007d, t01=0x00e0}
0x0c428…0c43e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x007d, t01=0x00fa}
0x0c43e…0c46a Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x007d, t01=0x0110}
0x0c46a…0c4a0 Head {h00=0x0032, h01=0x0050, text=»BMXS50 ST A10,SCTSFA UPDATE START OF FREE AREA«, t00=0x007d, t01=0x013c}
0x0c4a0…0c4ca Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET CURRENT LENGTH «, t00=0x007d, t01=0x0172}
0x0c4ca…0c4f8 Head {h00=0x002a, h01=0x0050, text=» AD A2,SCTTCT COMPUTE NEXT FREE ENTRY «, t00=0x007e, t01=0x000c}
0x0c4f8…0c51e Head {h00=0x0022, h01=0x0050, text=» STR A12,A2 STORE TTAB ADDRESS«, t00=0x007e, t01=0x003a}
0x0c51e…0c54a Head {h00=0x0028, h01=0x0050, text=» IM* SCTTCT INCREMENT CURRENT LENGTH«, t00=0x007e, t01=0x0060}
0x0c54a…0c564 Head {h00=0x0016, h01=0x0050, text=» IM* SCTTCT TWICE «, t00=0x007e, t01=0x008c}
0x0c564…0c584 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x007e, t01=0x00a6}
0x0c584…0c5ac Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:ID,A12 STORE IN TTAB «, t00=0x007e, t01=0x00c6}
0x0c5ac…0c5da Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MX:LEV GET MONITOR TASK LEVEL«, t00=0x007e, t01=0x00ee}
0x0c5da…0c602 Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:ST,A12 STORE IN TTAB «, t00=0x007e, t01=0x011c}
0x0c602…0c614 Head {h00=0x000e, h01=0x0050, text=» SLL A2,10«, t00=0x007e, t01=0x0144}
0x0c614…0c63a Head {h00=0x0022, h01=0x0050, text=» ORKL A2,/00C1 PROGRAM STATUS «, t00=0x007e, t01=0x0156}
0x0c63a…0c66e Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:PW,A12 STORE PROGRAM STATUS WORD «, t00=0x007e, t01=0x017c}
0x0c66e…0c6ac Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+EXCTAB GET EXTENT CONTROL BLOCK ADDRESS «, t00=0x007f, t01=0x0020}
0x0c6ac…0c6d4 Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:AP,A12 STORE IN TTAB «, t00=0x007f, t01=0x005e}
0x0c6d4…0c6e6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x007f, t01=0x0086}
0x0c6e6…0c71a Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:TD,A12 STORE DEVICE TABLE LENGTH «, t00=0x007f, t01=0x0098}
0x0c71a…0c732 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x007f, t01=0x00cc}
0x0c732…0c740 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x00e4}
0x0c740…0c786 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x007f, t01=0x00f2}
0x0c786…0c7cc Head {h00=0x0042, h01=0x0050, text=»* MX:MEB - FIND FIRST MONITOR EXTENT BLOCK *«, t00=0x007f, t01=0x0138}
0x0c7cc…0c812 Head {h00=0x0042, h01=0x0050, text=»* ======================================== *«, t00=0x007f, t01=0x017e}
0x0c812…0c858 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0080, t01=0x0034}
0x0c858…0c89e Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: MX:MST *«, t00=0x0080, t01=0x007a}
0x0c89e…0c8e4 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0080, t01=0x00c0}
0x0c8e4…0c92a Head {h00=0x0042, h01=0x0050, text=»* ENTRY: SCTMXS - ADDRESS TO MONITOR EXTENT TABLE *«, t00=0x0080, t01=0x0106}
0x0c92a…0c970 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0080, t01=0x014c}
0x0c970…0c9b6 (129, 0, 400) Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR EXTENT BLOCK *«, t00=0x0081, t01=0x0004}
0x0c9b6…0c9fc Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO NUMBER OF SEGTABS *«, t00=0x0081, t01=0x004a}
0x0c9fc…0ca42 Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES *«, t00=0x0081, t01=0x0090}
0x0ca42…0ca88 Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS *«, t00=0x0081, t01=0x00d6}
0x0ca88…0cace Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0081, t01=0x011c}
0x0cace…0cb14 Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2 *«, t00=0x0081, t01=0x0162}
0x0cb14…0cb5a Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0082, t01=0x0018}
0x0cb5a…0cba0 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x0082, t01=0x005e}
0x0cba0…0cbe6 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0082, t01=0x00a4}
0x0cbe6…0cc2c Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0082, t01=0x00ea}
0x0cc2c…0cc3a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0082, t01=0x0130}
0x0cc3a…0cc4e Head {h00=0x0010, h01=0x0050, text=»MX:MEB EQU *«, t00=0x0082, t01=0x013e}
0x0cc4e…0cc7a Head {h00=0x0028, h01=0x0050, text=» LD A7,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x0082, t01=0x0152}
0x0cc7a…0cc92 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A7 SAVE «, t00=0x0082, t01=0x017e}
0x0cc92…0ccb2 Head {h00=0x001c, h01=0x0050, text=» RF(Z) MEB99 NOT PRESENT«, t00=0x0083, t01=0x0008}
0x0ccb2…0cce0 Head {h00=0x002a, h01=0x0050, text=» LD A2,MX:NOS,A7 GET NUMBER OF SEGTABS«, t00=0x0083, t01=0x0028}
0x0cce0…0ccf8 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A2 SAVE «, t00=0x0083, t01=0x0056}
0x0ccf8…0cd22 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A7 SAVE ADDRESS TO MXSTAB «, t00=0x0083, t01=0x006e}
0x0cd22…0cd50 Head {h00=0x002a, h01=0x0050, text=» LD A7,MX:NOX,A7 GET NUMBER OF EXTENTS«, t00=0x0083, t01=0x0098}
0x0cd50…0cd80 Head {h00=0x002c, h01=0x0050, text=» ADK A1,MX:NOS ADDRESS NUMBER OF SEGTABS«, t00=0x0083, t01=0x00c6}
0x0cd80…0cd98 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A1 SAVE «, t00=0x0083, t01=0x00f6}
0x0cd98…0cdca Head {h00=0x002e, h01=0x0050, text=»MEB10 ADK A1,2 ADDRESS NUMBER OF SEGMENTS «, t00=0x0083, t01=0x010e}
0x0cdca…0cdea Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 MORE SEGTABS? «, t00=0x0083, t01=0x0140}
0x0cdea…0ce04 Head {h00=0x0016, h01=0x0050, text=» RB(NN) MEB10 YES «, t00=0x0083, t01=0x0160}
0x0ce04…0ce20 Head {h00=0x0018, h01=0x0050, text=»MEB99 RTN A14 RETURN«, t00=0x0083, t01=0x017a}
0x0ce20…0ce2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0084, t01=0x0008}
0x0ce2e…0ce74 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0084, t01=0x0016}
0x0ce74…0ceba Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0084, t01=0x005c}
0x0ceba…0cf00 Head {h00=0x0042, h01=0x0050, text=»* MX:MST - GET FIRST MONITOR SEGMENT TABLE *«, t00=0x0084, t01=0x00a2}
0x0cf00…0cf46 Head {h00=0x0042, h01=0x0050, text=»* ======================================== *«, t00=0x0084, t01=0x00e8}
0x0cf46…0cf8c Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0084, t01=0x012e}
0x0cf8c…0cfd2 Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: B:MSEG *«, t00=0x0084, t01=0x0174}
0x0cfd2…0d018 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0085, t01=0x002a}
0x0d018…0d05e Head {h00=0x0042, h01=0x0050, text=»* ENTRY: SCTMXS - ADDRESS TO MXSTAB *«, t00=0x0085, t01=0x0070}
0x0d05e…0d0a4 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0085, t01=0x00b6}
0x0d0a4…0d0ea Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TABLE *«, t00=0x0085, t01=0x00fc}
0x0d0ea…0d130 Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO NUMBER OF SEGTABS *«, t00=0x0085, t01=0x0142}
0x0d130…0d176 Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES *«, t00=0x0085, t01=0x0188}
0x0d176…0d1bc Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS *«, t00=0x0086, t01=0x003e}
0x0d1bc…0d202 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0086, t01=0x0084}
0x0d202…0d248 Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2 *«, t00=0x0086, t01=0x00ca}
0x0d248…0d28e Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0086, t01=0x0110}
0x0d28e…0d2d4 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: MX:MEB *«, t00=0x0086, t01=0x0156}
0x0d2d4…0d31a Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0087, t01=0x000c}
0x0d31a…0d360 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0087, t01=0x0052}
0x0d360…0d36e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0087, t01=0x0098}
0x0d36e…0d382 Head {h00=0x0010, h01=0x0050, text=»MX:MST EQU *«, t00=0x0087, t01=0x00a6}
0x0d382…0d3c0 Head {h00=0x003a, h01=0x0050, text=» CALL MX:MEB GET POINTER TO FIRST MONITOR EXTENT BLOCK«, t00=0x0087, t01=0x00ba}
0x0d3c0…0d3f6 Head {h00=0x0032, h01=0x0050, text=» LDR A2,A7 GET NUMBER OF MONITOR EXTENT BLOCKS«, t00=0x0087, t01=0x00f8}
0x0d3f6…0d436 Head {h00=0x003c, h01=0x0050, text=»MST10 SUK A2,1 DECREMENT NUMBER OF MONITOR EXTENT BLOCKS«, t00=0x0087, t01=0x012e}
0x0d436…0d462 Head {h00=0x0028, h01=0x0050, text=» RF(N) MST99 NO MORE MONITOR EXTENTS«, t00=0x0087, t01=0x016e}
0x0d462…0d49a Head {h00=0x0034, h01=0x0050, text=» ADK A1,MX:EBL ADDRESS NEXT MONITOR EXTENT BLOCK«, t00=0x0088, t01=0x000a}
0x0d49a…0d4ac Head {h00=0x000e, h01=0x0050, text=» RB MST10 «, t00=0x0088, t01=0x0042}
0x0d4ac…0d4c8 Head {h00=0x0018, h01=0x0050, text=»MST99 RTN A14 RETURN«, t00=0x0088, t01=0x0054}
0x0d4c8…0d4d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0088, t01=0x0070}
0x0d4d6…0d51c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0088, t01=0x007e}
0x0d51c…0d562 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0088, t01=0x00c4}
0x0d562…0d5a8 Head {h00=0x0042, h01=0x0050, text=»* MX:TDB - GET FIRST MONITOR EXTENT TASK DEFINITION BLOCK * «, t00=0x0088, t01=0x010a}
0x0d5a8…0d5ee Head {h00=0x0042, h01=0x0050, text=»* ======================================================= * «, t00=0x0088, t01=0x0150}
0x0d5ee…0d634 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0089, t01=0x0008}
0x0d634…0d67a Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: MX:STD * «, t00=0x0089, t01=0x004e}
0x0d67a…0d6c0 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0089, t01=0x0094}
0x0d6c0…0d706 Head {h00=0x0042, h01=0x0050, text=»* ENTRY: SCTMXS - ADDRESS TO MXSTAB * «, t00=0x0089, t01=0x00da}
0x0d706…0d74c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0089, t01=0x0120}
0x0d74c…0d792 Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR EXTENT TASK * «, t00=0x0089, t01=0x0166}
0x0d792…0d7d8 Head {h00=0x0042, h01=0x0050, text=»* DEFINITION BLOCK * «, t00=0x008a, t01=0x001c}
0x0d7d8…0d81e Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * «, t00=0x008a, t01=0x0062}
0x0d81e…0d864 Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES * «, t00=0x008a, t01=0x00a8}
0x0d864…0d8aa Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS * «, t00=0x008a, t01=0x00ee}
0x0d8aa…0d8f0 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x008a, t01=0x0134}
0x0d8f0…0d936 Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2,A3 * «, t00=0x008a, t01=0x017a}
0x0d936…0d97c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x008b, t01=0x0030}
0x0d97c…0d9c2 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: MX:MST * «, t00=0x008b, t01=0x0076}
0x0d9c2…0da08 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x008b, t01=0x00bc}
0x0da08…0da4e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x008b, t01=0x0102}
0x0da4e…0da5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008b, t01=0x0148}
0x0da5c…0da70 Head {h00=0x0010, h01=0x0050, text=»MX:TDB EQU *«, t00=0x008b, t01=0x0156}
0x0da70…0daa4 Head {h00=0x0030, h01=0x0050, text=» CALL MX:MST GET FIRST MONITOR SEGMENT TABLE«, t00=0x008b, t01=0x016a}
0x0daa4…0dad4 Head {h00=0x002c, h01=0x0050, text=» LDR A2,A6 GET NUMBER OF SEGMENT TABLES «, t00=0x008c, t01=0x000e}
0x0dad4…0db06 Head {h00=0x002e, h01=0x0050, text=»TDB10 ADK A5,2 ADDRESS NUMBER OF SEGMENTS «, t00=0x008c, t01=0x003e}
0x0db06…0db34 Head {h00=0x002a, h01=0x0050, text=» SUK A2,1 DECREMENT NUMBER OF SEGTABS «, t00=0x008c, t01=0x0070}
0x0db34…0db58 Head {h00=0x0020, h01=0x0050, text=» RF(N) TDB99 NO MORE SEGTABS«, t00=0x008c, t01=0x009e}
0x0db58…0db82 Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A5 GET NUMBER OF SEGMENTS«, t00=0x008c, t01=0x00c2}
0x0db82…0dbb6 Head {h00=0x0030, h01=0x0050, text=»TDB20 SUK A3,1 DECREMENT NUMBER OF SEGMENTS «, t00=0x008c, t01=0x00ec}
0x0dbb6…0dbdc Head {h00=0x0022, h01=0x0050, text=» RB(N) TDB10 NO MORE SEGMENTS «, t00=0x008c, t01=0x0120}
0x0dbdc…0dc12 Head {h00=0x0032, h01=0x0050, text=» ADK A1,MX:SBL INCREMENT SEGMENT BLOCK POINTER«, t00=0x008c, t01=0x0146}
0x0dc12…0dc24 Head {h00=0x000e, h01=0x0050, text=» RB TDB20 «, t00=0x008c, t01=0x017c}
0x0dc24…0dc40 Head {h00=0x0018, h01=0x0050, text=»TDB99 RTN A14 RETURN«, t00=0x008c, t01=0x018e}
0x0dc40…0dc4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008d, t01=0x001a}
0x0dc4e…0dc94 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x008d, t01=0x0028}
0x0dc94…0dcda Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008d, t01=0x006e}
0x0dcda…0dd20 Head {h00=0x0042, h01=0x0050, text=»* MS:STD - GET FIRST MONITOR SEGMENT TASK DEFINITION BLOCK *«, t00=0x008d, t01=0x00b4}
0x0dd20…0dd66 Head {h00=0x0042, h01=0x0050, text=»* ======================================================== *«, t00=0x008d, t01=0x00fa}
0x0dd66…0ddac Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008d, t01=0x0140}
0x0ddac…0ddf2 Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: B:MXST *«, t00=0x008d, t01=0x0186}
0x0ddf2…0de38 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008e, t01=0x003c}
0x0de38…0de7e Head {h00=0x0042, h01=0x0050, text=»* ENTRY: *«, t00=0x008e, t01=0x0082}
0x0de7e…0dec4 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008e, t01=0x00c8}
0x0dec4…0df0a Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TASK *«, t00=0x008e, t01=0x010e}
0x0df0a…0df50 Head {h00=0x0042, h01=0x0050, text=»* DEFINITION BLOCK *«, t00=0x008e, t01=0x0154}
0x0df50…0df96 Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK *«, t00=0x008f, t01=0x000a}
0x0df96…0dfdc Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES *«, t00=0x008f, t01=0x0050}
0x0dfdc…0e022 Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS *«, t00=0x008f, t01=0x0096}
0x0e022…0e068 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008f, t01=0x00dc}
0x0e068…0e0ae Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2,A3 *«, t00=0x008f, t01=0x0122}
0x0e0ae…0e0f4 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008f, t01=0x0168}
0x0e0f4…0e13a Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: MX:TDB *«, t00=0x0090, t01=0x001e}
0x0e13a…0e180 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0090, t01=0x0064}
0x0e180…0e1c6 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0090, t01=0x00aa}
0x0e1c6…0e1d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0090, t01=0x00f0}
0x0e1d4…0e1e8 Head {h00=0x0010, h01=0x0050, text=»MX:STD EQU *«, t00=0x0090, t01=0x00fe}
0x0e1e8…0e21e Head {h00=0x0032, h01=0x0050, text=» CALL MX:TDB GET FIRST MONITOR TASK DEF. BLOCK«, t00=0x0090, t01=0x0112}
0x0e21e…0e24e Head {h00=0x002c, h01=0x0050, text=» LDR A2,A7 GET NUMBER OF MONITOR EXTENTS«, t00=0x0090, t01=0x0148}
0x0e24e…0e288 Head {h00=0x0036, h01=0x0050, text=»STD10 SUK A2,1 DECREMENT NUMBER OF MONITOR EXTENTS«, t00=0x0090, t01=0x0178}
0x0e288…0e2ac Head {h00=0x0020, h01=0x0050, text=» RF(N) STD99 NO MORE EXTENTS«, t00=0x0091, t01=0x0022}
0x0e2ac…0e2de Head {h00=0x002e, h01=0x0050, text=» LDR* A3,A1 GET NUMBER OF TASKS IN EXTENT «, t00=0x0091, t01=0x0046}
0x0e2de…0e304 Head {h00=0x0022, h01=0x0050, text=»STD20 ADK A1,2 ADDRESS TASK ID«, t00=0x0091, t01=0x0078}
0x0e304…0e330 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT NUMBER OF TASKS «, t00=0x0091, t01=0x009e}
0x0e330…0e350 Head {h00=0x001c, h01=0x0050, text=» RB(NN) STD20 MORE TASKS«, t00=0x0091, t01=0x00ca}
0x0e350…0e36e Head {h00=0x001a, h01=0x0050, text=» RB STD10 NEXT EXTENT «, t00=0x0091, t01=0x00ea}
0x0e36e…0e38a Head {h00=0x0018, h01=0x0050, text=»STD99 RTN A14 RETURN«, t00=0x0091, t01=0x0108}
0x0e38a…0e396 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0091, t01=0x0124}
0x0e396…0e3a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0091, t01=0x0130}
0x0e3a4…0e3ca Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0091, t01=0x013e}
0x0e3ca…0e3f0 Head {h00=0x0022, h01=0x0050, text=»* B:TT - BUILD TASK TABLES *«, t00=0x0091, t01=0x0164}
0x0e3f0…0e416 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0091, t01=0x018a}
0x0e416…0e420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0020}
0x0e420…0e440 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: SYSLDM«, t00=0x0092, t01=0x002a}
0x0e440…0e44a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x004a}
0x0e44a…0e45c Head {h00=0x000e, h01=0x0050, text=»* ENTRY: «, t00=0x0092, t01=0x0054}
0x0e45c…0e466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0066}
0x0e466…0e4a2 Head {h00=0x0038, h01=0x0050, text=»* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES«, t00=0x0092, t01=0x0070}
0x0e4a2…0e4ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x00ac}
0x0e4ac…0e4ce Head {h00=0x001e, h01=0x0050, text=»* WORK REGISERS: A1-A12 «, t00=0x0092, t01=0x00b6}
0x0e4ce…0e4d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x00d8}
0x0e4d8…0e514 Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC «, t00=0x0092, t01=0x00e2}
0x0e514…0e51e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x011e}
0x0e51e…0e54a Head {h00=0x0028, h01=0x0050, text=»* TASK TABLE LAYOUT «, t00=0x0092, t01=0x0128}
0x0e54a…0e554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0154}
0x0e554…0e582 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0092, t01=0x015e}
0x0e582…0e5b0 Head {h00=0x002a, h01=0x0050, text=»* TTB:AM I MMU ALLOCATION I«, t00=0x0092, t01=0x018c}
0x0e5b0…0e5de Head {h00=0x002a, h01=0x0050, text=»* I BIT MAP (4 WORDS) I«, t00=0x0093, t01=0x002a}
0x0e5de…0e60c Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0093, t01=0x0058}
0x0e60c…0e63a Head {h00=0x002a, h01=0x0050, text=»* TTB:MT I MMU I«, t00=0x0093, t01=0x0086}
0x0e63a…0e668 Head {h00=0x002a, h01=0x0050, text=»* I TABLE I«, t00=0x0093, t01=0x00b4}
0x0e668…0e696 Head {h00=0x002a, h01=0x0050, text=»* I 16 I«, t00=0x0093, t01=0x00e2}
0x0e696…0e6c4 Head {h00=0x002a, h01=0x0050, text=»* I WORDS I«, t00=0x0093, t01=0x0110}
0x0e6c4…0e6f2 Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0093, t01=0x013e}
0x0e6f2…0e720 Head {h00=0x002a, h01=0x0050, text=»* TTB:CB I CSB POINTER I«, t00=0x0093, t01=0x016c}
0x0e720…0e74e Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0094, t01=0x000a}
0x0e74e…0e77c Head {h00=0x002a, h01=0x0050, text=»* TTB:SP I SEGTAB POINTER I«, t00=0x0094, t01=0x0038}
0x0e77c…0e7aa Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0094, t01=0x0066}
0x0e7aa…0e7d8 Head {h00=0x002a, h01=0x0050, text=»* TTB:SB I SEGM. BLOCK POINTER I«, t00=0x0094, t01=0x0094}
0x0e7d8…0e806 Head {h00=0x002a, h01=0x0050, text=»* I----------------------I«, t00=0x0094, t01=0x00c2}
0x0e806…0e834 Head {h00=0x002a, h01=0x0050, text=»* TTB:AP I ACB POINTER I«, t00=0x0094, t01=0x00f0}
0x0e834…0e862 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0094, t01=0x011e}
0x0e862…0e890 Head {h00=0x002a, h01=0x0050, text=»* TASK ENTRY I QUEUE I«, t00=0x0094, t01=0x014c}
0x0e890…0e8be Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0094, t01=0x017a}
0x0e8be…0e8ec Head {h00=0x002a, h01=0x0050, text=»* TTB:ID I TASK IDENTIFICATION I«, t00=0x0095, t01=0x0018}
0x0e8ec…0e91a Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0095, t01=0x0046}
0x0e91a…0e948 Head {h00=0x002a, h01=0x0050, text=»* TTB:ST I STATUS/LEVEL I«, t00=0x0095, t01=0x0074}
0x0e948…0e976 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0095, t01=0x00a2}
0x0e976…0e9a4 Head {h00=0x002a, h01=0x0050, text=»* TTB:PP I PENDING QUEUE I«, t00=0x0095, t01=0x00d0}
0x0e9a4…0e9d2 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0095, t01=0x00fe}
0x0e9d2…0ea00 Head {h00=0x002a, h01=0x0050, text=»* TTB:PW I PROGRAM STATUS WORD I«, t00=0x0095, t01=0x012c}
0x0ea00…0ea2e Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0095, t01=0x015a}
0x0ea2e…0ea5c Head {h00=0x002a, h01=0x0050, text=»* TTB:SA I DISPATCH ADDRESS I«, t00=0x0095, t01=0x0188}
0x0ea5c…0ea8a Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0096, t01=0x0026}
0x0ea8a…0eab8 Head {h00=0x002a, h01=0x0050, text=»* I REGISTER I«, t00=0x0096, t01=0x0054}
0x0eab8…0eae6 Head {h00=0x002a, h01=0x0050, text=»* I SAVE I«, t00=0x0096, t01=0x0082}
0x0eae6…0eb14 Head {h00=0x002a, h01=0x0050, text=»* I AREA I«, t00=0x0096, t01=0x00b0}
0x0eb14…0eb42 Head {h00=0x002a, h01=0x0050, text=»* I 14 I«, t00=0x0096, t01=0x00de}
0x0eb42…0eb70 Head {h00=0x002a, h01=0x0050, text=»* I WORDS I«, t00=0x0096, t01=0x010c}
0x0eb70…0eb9e Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0096, t01=0x013a}
0x0eb9e…0ebcc Head {h00=0x002a, h01=0x0050, text=»* TTB:TD I TASK I«, t00=0x0096, t01=0x0168}
0x0ebcc…0ebfa Head {h00=0x002a, h01=0x0050, text=»* I SAVE01URATION I«, t00=0x0097, t01=0x0008}
0x0ebfa…0ec28 Head {h00=0x002a, h01=0x0050, text=»* I TABLE I«, t00=0x0097, t01=0x0036}
0x0ec28…0ec56 Head {h00=0x002a, h01=0x0050, text=»* : :«, t00=0x0097, t01=0x0064}
0x0ec56…0ec84 Head {h00=0x002a, h01=0x0050, text=»* : :«, t00=0x0097, t01=0x0092}
0x0ec84…0ecb2 Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0097, t01=0x00c0}
0x0ecb2…0ece8 Head {h00=0x0032, h01=0x0050, text=»* TASK SAVE01URATION TABLE LAYOUT «, t00=0x0097, t01=0x00ee}
0x0ece8…0ed1c Head {h00=0x0030, h01=0x0050, text=»* ______________________________«, t00=0x0097, t01=0x0124}
0x0ed1c…0ed50 Head {h00=0x0030, h01=0x0050, text=»* I LENGTH I«, t00=0x0097, t01=0x0158}
0x0ed50…0ed84 Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0097, t01=0x018c}
0x0ed84…0edb8 Head {h00=0x0030, h01=0x0050, text=»* I INDEX/FILCODE I«, t00=0x0098, t01=0x0030}
0x0edb8…0edec Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0098, t01=0x0064}
0x0edec…0ee20 Head {h00=0x0030, h01=0x0050, text=»* I DWT-ADDRESS I«, t00=0x0098, t01=0x0098}
0x0ee20…0ee54 Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0098, t01=0x00cc}
0x0ee54…0ee88 Head {h00=0x0030, h01=0x0050, text=»* : :«, t00=0x0098, t01=0x0100}
0x0ee88…0eebc Head {h00=0x0030, h01=0x0050, text=»* : :«, t00=0x0098, t01=0x0134}
0x0eebc…0eef0 Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0098, t01=0x0168}
0x0eef0…0ef24 Head {h00=0x0030, h01=0x0050, text=»* I INDEX/FILECODE I«, t00=0x0099, t01=0x000c}
0x0ef24…0ef58 Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0099, t01=0x0040}
0x0ef58…0ef8c Head {h00=0x0030, h01=0x0050, text=»* I DWT-ADDRESS I«, t00=0x0099, t01=0x0074}
0x0ef8c…0efc0 Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0099, t01=0x00a8}
0x0efc0…0efce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x00dc}
0x0efce…0efe0 Head {h00=0x000e, h01=0x0050, text=»B:TT EQU *«, t00=0x0099, t01=0x00ea}
0x0efe0…0f00a Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x0099, t01=0x00fc}
0x0f00a…0f038 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0099, t01=0x0126}
0x0f038…0f05a Head {h00=0x001e, h01=0x0050, text=» ST A12,STKEND+SFASAV SAVE«, t00=0x0099, t01=0x0154}
0x0f05a…0f08e Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0099, t01=0x0176}
0x0f08e…0f0bc Head {h00=0x002a, h01=0x0050, text=» ST P,STKEND+WRK1 SAVE PROGRAM COUNTER«, t00=0x009a, t01=0x001a}
0x0f0bc…0f0fa Head {h00=0x003a, h01=0x0050, text=» ST A11,STKEND+LCDSTA SAVE CONFIGURATION DATA POINTER «, t00=0x009a, t01=0x0048}
0x0f0fa…0f128 Head {h00=0x002a, h01=0x0050, text=» ST P,STKEND+WRK2 SAVE PROGRAM COUNTER«, t00=0x009a, t01=0x0086}
0x0f128…0f132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00b4}
0x0f132…0f15e Head {h00=0x0028, h01=0x0050, text=»* GET NUMBER OF TASKS IN THIS CLASS«, t00=0x009a, t01=0x00be}
0x0f15e…0f168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00ea}
0x0f168…0f17c Head {h00=0x0010, h01=0x0050, text=» CALL GETTSK«, t00=0x009a, t01=0x00f4}
0x0f17c…0f1ae Head {h00=0x002e, h01=0x0050, text=» ST A1,STKEND+NBRTSK SAVE NUMBER OF TASKS «, t00=0x009a, t01=0x0108}
0x0f1ae…0f1b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x013a}
0x0f1b8…0f1da Head {h00=0x001e, h01=0x0050, text=»* GET TASK ID START VALUE«, t00=0x009a, t01=0x0144}
0x0f1da…0f1e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0166}
0x0f1e4…0f210 Head {h00=0x0028, h01=0x0050, text=» LC A5,TDBID+4,A11 GET FIRST ID CHAR«, t00=0x009a, t01=0x0170}
0x0f210…0f234 Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x009b, t01=0x000c}
0x0f234…0f262 Head {h00=0x002a, h01=0x0050, text=» LC A5,TDBID+5,A11 GET SECOND ID DIGIT«, t00=0x009b, t01=0x0030}
0x0f262…0f298 Head {h00=0x0032, h01=0x0050, text=» ST A5,STKEND+TASKID SAVE TASK ID START VALUE «, t00=0x009b, t01=0x005e}
0x0f298…0f2a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0094}
0x0f2a2…0f2c8 Head {h00=0x0022, h01=0x0050, text=»* CHECK IF CREDIT APPLICATION«, t00=0x009b, t01=0x009e}
0x0f2c8…0f2d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x00c4}
0x0f2d2…0f30c Head {h00=0x0036, h01=0x0050, text=» LD A5,STKEND+APCSTA GET APPLICATION CONTROL BLOCK«, t00=0x009b, t01=0x00ce}
0x0f30c…0f33a Head {h00=0x002a, h01=0x0050, text=» LD A5,APLTYP,A5 GET APPLICATION TYPE «, t00=0x009b, t01=0x0108}
0x0f33a…0f362 Head {h00=0x0024, h01=0x0050, text=» CWK A5,'CR' CREDIT APPLICATION?«, t00=0x009b, t01=0x0136}
0x0f362…0f378 Head {h00=0x0012, h01=0x0050, text=» RF(NE) BTT21 «, t00=0x009b, t01=0x015e}
0x0f378…0f386 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009b, t01=0x0174}
0x0f386…0f390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0182}
0x0f390…0f3b8 Head {h00=0x0024, h01=0x0050, text=»* GET TASK CLASS TO MATCH VALUE«, t00=0x009b, t01=0x018c}
0x0f3b8…0f3c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0024}
0x0f3c2…0f3f2 Head {h00=0x002c, h01=0x0050, text=» LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL«, t00=0x009c, t01=0x002e}
0x0f3f2…0f416 Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x009c, t01=0x005e}
0x0f416…0f448 Head {h00=0x002e, h01=0x0050, text=» LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL «, t00=0x009c, t01=0x0082}
0x0f448…0f470 Head {h00=0x0024, h01=0x0050, text=» CALL GETTCL GET TCL START VALUE«, t00=0x009c, t01=0x00b4}
0x0f470…0f492 Head {h00=0x001e, h01=0x0050, text=» ST A5,STKEND+TCLSAV SAVE «, t00=0x009c, t01=0x00dc}
0x0f492…0f4a6 Head {h00=0x0010, h01=0x0050, text=»BTT21 EQU * «, t00=0x009c, t01=0x00fe}
0x0f4a6…0f4b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009c, t01=0x0112}
0x0f4b4…0f4be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0120}
0x0f4be…0f4d8 Head {h00=0x0016, h01=0x0050, text=»* GET TASK LEVEL «, t00=0x009c, t01=0x012a}
0x0f4d8…0f4e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0144}
0x0f4e2…0f516 Head {h00=0x0030, h01=0x0050, text=» LC A5,TDBTL+4,A11 GET FIRST DIGIT IN LEVEL «, t00=0x009c, t01=0x014e}
0x0f516…0f53a Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x009c, t01=0x0182}
0x0f53a…0f56e Head {h00=0x0030, h01=0x0050, text=» LC A5,TDBTL+5,A11 GET SECOND DIGIT IN LEVEL«, t00=0x009d, t01=0x0016}
0x0f56e…0f594 Head {h00=0x0022, h01=0x0050, text=» CALL CONVRT CONVERT TO BINARY«, t00=0x009d, t01=0x004a}
0x0f594…0f5b6 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+TSKLEV SAVE «, t00=0x009d, t01=0x0070}
0x0f5b6…0f5c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009d, t01=0x0092}
0x0f5c4…0f5ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x00a0}
0x0f5ce…0f614 Head {h00=0x0042, h01=0x0050, text=»* COMPUTE SIZE OF CONFIGURATION DEPENDENT PART OF TASK TABLE «, t00=0x009d, t01=0x00aa}
0x0f614…0f61e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x00f0}
0x0f61e…0f648 Head {h00=0x0026, h01=0x0050, text=» LDKL A10,TTB:TD+4 STANDARD LENGTH«, t00=0x009d, t01=0x00fa}
0x0f648…0f66e Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x009d, t01=0x0124}
0x0f66e…0f6a6 Head {h00=0x0034, h01=0x0050, text=» ANK A5,/21 CHECK IF EMM AND MMU PAGING INCLUDED«, t00=0x009d, t01=0x014a}
0x0f6a6…0f6c8 Head {h00=0x001e, h01=0x0050, text=» XRK A5,/21 BOTH INCLUDED?«, t00=0x009d, t01=0x0182}
0x0f6c8…0f6e2 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BTT22 NO! «, t00=0x009e, t01=0x0014}
0x0f6e2…0f716 Head {h00=0x0030, h01=0x0050, text=» SUKL A10,TTB:AM+2 INCLUDE BIT MAP IN LENGTH«, t00=0x009e, t01=0x002e}
0x0f716…0f748 Head {h00=0x002e, h01=0x0050, text=» SUKL A12,TTB:AM RESERV SPACE FOR BIT MAP «, t00=0x009e, t01=0x0062}
0x0f748…0f75a Head {h00=0x000e, h01=0x0050, text=» RF BTT30 «, t00=0x009e, t01=0x0094}
0x0f75a…0f774 Head {h00=0x0016, h01=0x0050, text=»BTT22 LD A5,SCTOPT«, t00=0x009e, t01=0x00a6}
0x0f774…0f792 Head {h00=0x001a, h01=0x0050, text=» SRC A5,1 MMU PAGING? «, t00=0x009e, t01=0x00c0}
0x0f792…0f7aa Head {h00=0x0014, h01=0x0050, text=» RF(NN) BTT25 NO«, t00=0x009e, t01=0x00de}
0x0f7aa…0f7dc Head {h00=0x002e, h01=0x0050, text=» SUKL A10,TTB:MT+2 16+2 WORD EXTRA IF MMU «, t00=0x009e, t01=0x00f6}
0x0f7dc…0f812 Head {h00=0x0032, h01=0x0050, text=» SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS «, t00=0x009e, t01=0x0128}
0x0f812…0f824 Head {h00=0x000e, h01=0x0050, text=» RF BTT30 «, t00=0x009e, t01=0x015e}
0x0f824…0f838 Head {h00=0x0010, h01=0x0050, text=»BTT25 EQU * «, t00=0x009e, t01=0x0170}
0x0f838…0f856 Head {h00=0x001a, h01=0x0050, text=» SRC A5,1 DISC PAGING?«, t00=0x009e, t01=0x0184}
0x0f856…0f870 Head {h00=0x0016, h01=0x0050, text=» RF(NN) BTT30 NO! «, t00=0x009f, t01=0x0012}
0x0f870…0f8aa Head {h00=0x0036, h01=0x0050, text=» SUKL A10,TTB:CB+2 FOUR WORD EXTRA IF DISC PAGING «, t00=0x009f, t01=0x002c}
0x0f8aa…0f8de Head {h00=0x0030, h01=0x0050, text=» SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD«, t00=0x009f, t01=0x0066}
0x0f8de…0f8f2 Head {h00=0x0010, h01=0x0050, text=»BTT30 EQU * «, t00=0x009f, t01=0x009a}
0x0f8f2…0f900 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009f, t01=0x00ae}
0x0f900…0f90a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x00bc}
0x0f90a…0f94a Head {h00=0x003c, h01=0x0050, text=»* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART «, t00=0x009f, t01=0x00c6}
0x0f94a…0f970 Head {h00=0x0022, h01=0x0050, text=»* OF TASK CONFIGURATION TABLE«, t00=0x009f, t01=0x0106}
0x0f970…0f97a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x012c}
0x0f97a…0f998 Head {h00=0x001a, h01=0x0050, text=» LDK A6,0 RESET LENGTH«, t00=0x009f, t01=0x0136}
0x0f998…0f9d6 Head {h00=0x003a, h01=0x0050, text=» LDR A9,A11 INIT SUB-POINTER IN TASK DEFINITION BLOCK «, t00=0x009f, t01=0x0154}
0x0f9d6…0fa0e (160, 0, 400) Head {h00=0x0034, h01=0x0050, text=» ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION«, t00=0x00a0, t01=0x0004}
0x0fa0e…0fa36 Head {h00=0x0024, h01=0x0050, text=» CALL GETTDC GET NUMBER OF TDC:S«, t00=0x00a0, t01=0x003c}
0x0fa36…0fa4e Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 SAVE «, t00=0x00a0, t01=0x0064}
0x0fa4e…0fa62 Head {h00=0x0010, h01=0x0050, text=»BTT35 EQU * «, t00=0x00a0, t01=0x007c}
0x0fa62…0fa76 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BTT40«, t00=0x00a0, t01=0x0090}
0x0fa76…0faa2 Head {h00=0x0028, h01=0x0050, text=» CALL GETCLN GET CLASS NUMBER (1-99)«, t00=0x00a0, t01=0x00a4}
0x0faa2…0facc Head {h00=0x0026, h01=0x0050, text=» ADR A1,A1 2*(BINARY CLASS NUMBER)«, t00=0x00a0, t01=0x00d0}
0x0facc…0fafc Head {h00=0x002c, h01=0x0050, text=» LD A8,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x00a0, t01=0x00fa}
0x0fafc…0fb10 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x00a0, t01=0x012a}
0x0fb10…0fb22 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00a0, t01=0x013e}
0x0fb22…0fb34 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x00a0, t01=0x0150}
0x0fb34…0fb4a Head {h00=0x0012, h01=0x0050, text=» RF(NG) BTT37 «, t00=0x00a0, t01=0x0162}
0x0fb4a…0fb60 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x00a0, t01=0x0178}
0x0fb60…0fb8a Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE FORMAT ERROR «, t00=0x00a0, t01=0x018e}
0x0fb8a…0fb9e Head {h00=0x0010, h01=0x0050, text=»BTT37 EQU * «, t00=0x00a1, t01=0x0028}
0x0fb9e…0fbc4 Head {h00=0x0022, h01=0x0050, text=» ADR A8,A1 GET ENTRY IN TCLASS«, t00=0x00a1, t01=0x003c}
0x0fbc4…0fbec Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x00a1, t01=0x0062}
0x0fbec…0fc14 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x00a1, t01=0x008a}
0x0fc14…0fc3a Head {h00=0x0022, h01=0x0050, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x00a1, t01=0x00b2}
0x0fc3a…0fc66 Head {h00=0x0028, h01=0x0050, text=» ADR A10,A8 ADD TO TOTAL TTAB LENGTH«, t00=0x00a1, t01=0x00d8}
0x0fc66…0fc98 Head {h00=0x002e, h01=0x0050, text=» ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH «, t00=0x00a1, t01=0x0104}
0x0fc98…0fcbc Head {h00=0x0020, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT CLASS «, t00=0x00a1, t01=0x0136}
0x0fcbc…0fce8 Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF TDC:S «, t00=0x00a1, t01=0x015a}
0x0fce8…0fcfa Head {h00=0x000e, h01=0x0050, text=» RB BTT35 «, t00=0x00a1, t01=0x0186}
0x0fcfa…0fd08 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a2, t01=0x0008}
0x0fd08…0fd1c Head {h00=0x0010, h01=0x0050, text=»BTT40 EQU * «, t00=0x00a2, t01=0x0016}
0x0fd1c…0fd26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x002a}
0x0fd26…0fd68 Head {h00=0x003e, h01=0x0050, text=»* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF «, t00=0x00a2, t01=0x0034}
0x0fd68…0fd8c Head {h00=0x0020, h01=0x0050, text=»* TASK CONFIGURATION TABLE «, t00=0x00a2, t01=0x0076}
0x0fd8c…0fd96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x009a}
0x0fd96…0fdd0 Head {h00=0x0036, h01=0x0050, text=» CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x00a2, t01=0x00a4}
0x0fdd0…0fdf4 Head {h00=0x0020, h01=0x0050, text=» ADKL A9,2 FIRST SDC RECORD «, t00=0x00a2, t01=0x00de}
0x0fdf4…0fe0c Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 SAVE «, t00=0x00a2, t01=0x0102}
0x0fe0c…0fe20 Head {h00=0x0010, h01=0x0050, text=»BTT50 EQU * «, t00=0x00a2, t01=0x011a}
0x0fe20…0fe44 Head {h00=0x0020, h01=0x0050, text=» RF(Z) BTT55 NO MOORE SDC:S «, t00=0x00a2, t01=0x012e}
0x0fe44…0fe70 Head {h00=0x0028, h01=0x0050, text=» CALL GETCLN GET CLASS NUMBER (1-99)«, t00=0x00a2, t01=0x0152}
0x0fe70…0fe9a Head {h00=0x0026, h01=0x0050, text=» ADR A1,A1 2*(BINARY CLASS NUMBER)«, t00=0x00a2, t01=0x017e}
0x0fe9a…0feca Head {h00=0x002c, h01=0x0050, text=» LD A8,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00a3, t01=0x0018}
0x0feca…0fede Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x00a3, t01=0x0048}
0x0fede…0fef0 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00a3, t01=0x005c}
0x0fef0…0ff02 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x00a3, t01=0x006e}
0x0ff02…0ff18 Head {h00=0x0012, h01=0x0050, text=» RF(NG) BTT52 «, t00=0x00a3, t01=0x0080}
0x0ff18…0ff2e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x00a3, t01=0x0096}
0x0ff2e…0ff58 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE FORMAT ERROR «, t00=0x00a3, t01=0x00ac}
0x0ff58…0ff6c Head {h00=0x0010, h01=0x0050, text=»BTT52 EQU * «, t00=0x00a3, t01=0x00d6}
0x0ff6c…0ff92 Head {h00=0x0022, h01=0x0050, text=» ADR A8,A1 GET ENTRY IN SCLASS«, t00=0x00a3, t01=0x00ea}
0x0ff92…0ffba Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x00a3, t01=0x0110}
0x0ffba…0ffe2 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x00a3, t01=0x0138}
0x0ffe2…10008 Head {h00=0x0022, h01=0x0050, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x00a3, t01=0x0160}
0x10008…10034 Head {h00=0x0028, h01=0x0050, text=» ADR A10,A8 ADD TO TOTAL TTAB LENGTH«, t00=0x00a3, t01=0x0186}
0x10034…10066 Head {h00=0x002e, h01=0x0050, text=» ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH «, t00=0x00a4, t01=0x0022}
0x10066…10086 Head {h00=0x001c, h01=0x0050, text=» ADKL A9,SDC NEXT CLASS «, t00=0x00a4, t01=0x0054}
0x10086…100b2 Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF SDC:S «, t00=0x00a4, t01=0x0074}
0x100b2…100c4 Head {h00=0x000e, h01=0x0050, text=» RB BTT50 «, t00=0x00a4, t01=0x00a0}
0x100c4…100d8 Head {h00=0x0010, h01=0x0050, text=»BTT55 EQU * «, t00=0x00a4, t01=0x00b2}
0x100d8…100ea Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x00a4, t01=0x00c6}
0x100ea…10114 Head {h00=0x0026, h01=0x0050, text=» ADKL A10,14 7 EXTRA WORDS FOR EDM«, t00=0x00a4, t01=0x00d8}
0x10114…10120 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a4, t01=0x0102}
0x10120…10146 Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 INCLUDE LENGTH WORD «, t00=0x00a4, t01=0x010e}
0x10146…1017e Head {h00=0x0034, h01=0x0050, text=» LD A7,STKEND+CUTENT GET CURRENT ENTRY IN TC:TAB«, t00=0x00a4, t01=0x0134}
0x1017e…101bc Head {h00=0x003a, h01=0x0050, text=» LD A8,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS«, t00=0x00a4, t01=0x016c}
0x101bc…101d0 Head {h00=0x0010, h01=0x0050, text=»BTT60 EQU * «, t00=0x00a5, t01=0x001a}
0x101d0…101e4 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BTT70«, t00=0x00a5, t01=0x002e}
0x101e4…10206 Head {h00=0x001e, h01=0x0050, text=» ST A9,STKEND+WRK3 SAVE A9«, t00=0x00a5, t01=0x0042}
0x10206…1022a Head {h00=0x0020, h01=0x0050, text=» ST A11,STKEND+WRK4 SAVE A11«, t00=0x00a5, t01=0x0064}
0x1022a…1024e Head {h00=0x0020, h01=0x0050, text=» LDR A9,A10 GET TTAB LENGTH «, t00=0x00a5, t01=0x0088}
0x1024e…10286 Head {h00=0x0034, h01=0x0050, text=» AD A9,STKEND+SFASAV COMPUTE END OF FREE AREA =2«, t00=0x00a5, t01=0x00ac}
0x10286…102a6 Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+SFASAV =2«, t00=0x00a5, t01=0x00e4}
0x102a6…102da Head {h00=0x0030, h01=0x0050, text=» LD A11,STKEND+LIMIT GET END OF SYSTEM AREA «, t00=0x00a5, t01=0x0104}
0x102da…10308 Head {h00=0x002a, h01=0x0050, text=» CALL CMPADR CHECK IF MEMORY OVERFLOW «, t00=0x00a5, t01=0x0138}
0x10308…10326 Head {h00=0x001a, h01=0x0050, text=» RF(NL) BTT61 NOT YET «, t00=0x00a5, t01=0x0166}
0x10326…10354 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00a5, t01=0x0184}
0x10354…10368 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00a6, t01=0x0022}
0x10368…10392 Head {h00=0x0026, h01=0x0050, text=»BTT61 LD A9,STKEND+WRK3 RESTORE A9«, t00=0x00a6, t01=0x0036}
0x10392…103ba Head {h00=0x0024, h01=0x0050, text=» LD A11,STKEND+WRK4 RESTORE A11 «, t00=0x00a6, t01=0x0060}
0x103ba…103c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0088}
0x103c4…10400 Head {h00=0x0038, h01=0x0050, text=»* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB «, t00=0x00a6, t01=0x0092}
0x10400…1040a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x00ce}
0x1040a…10424 Head {h00=0x0016, h01=0x0050, text=» ST A6,TTB:TD,A12 «, t00=0x00a6, t01=0x00d8}
0x10424…1042e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x00f2}
0x1042e…1046c Head {h00=0x003a, h01=0x0050, text=»* STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD«, t00=0x00a6, t01=0x00fc}
0x1046c…10476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x013a}
0x10476…104a2 Head {h00=0x0028, h01=0x0050, text=» LD A5,STKEND+TSKLEV GET TASK LEVEL «, t00=0x00a6, t01=0x0144}
0x104a2…104ca Head {h00=0x0024, h01=0x0050, text=» ST A5,TTB:ST,A12 STORE IN TTAB «, t00=0x00a6, t01=0x0170}
0x104ca…104d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0008}
0x104d4…10514 Head {h00=0x003c, h01=0x0050, text=»* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD «, t00=0x00a7, t01=0x0012}
0x10514…1051e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0052}
0x1051e…10548 Head {h00=0x0026, h01=0x0050, text=» SLL A5,10 MOVE LEVEL TO LEFT BYTE«, t00=0x00a7, t01=0x005c}
0x10548…1055e Head {h00=0x0012, h01=0x0050, text=» ORKL A5,/00C0«, t00=0x00a7, t01=0x0086}
0x1055e…10584 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x00a7, t01=0x009c}
0x10584…105a2 Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 MMU OPTION? «, t00=0x00a7, t01=0x00c2}
0x105a2…105c6 Head {h00=0x0020, h01=0x0050, text=» ORR A5,A2 SET BIT 15 IF MMU«, t00=0x00a7, t01=0x00e0}
0x105c6…105ee Head {h00=0x0024, h01=0x0050, text=» ST A5,TTB:PW,A12 STORE IN TTAB «, t00=0x00a7, t01=0x0104}
0x105ee…10604 Head {h00=0x0012, h01=0x0050, text=» IFF MMUPAG=0 «, t00=0x00a7, t01=0x012c}
0x10604…1062e Head {h00=0x0026, h01=0x0050, text=» CALL MMUINI INITIALIZE MMU TABLE «, t00=0x00a7, t01=0x0142}
0x1062e…1063a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a7, t01=0x016c}
0x1063a…10644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0178}
0x10644…10670 Head {h00=0x0028, h01=0x0050, text=»* STORE TASK IDENTIFICATION IN TTAB«, t00=0x00a7, t01=0x0182}
0x10670…1067a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x001e}
0x1067a…106a8 Head {h00=0x002a, h01=0x0050, text=»BTT62 LD A5,STKEND+TASKID GET TASK ID «, t00=0x00a8, t01=0x0028}
0x106a8…106d0 Head {h00=0x0024, h01=0x0050, text=» ST A5,TTB:ID,A12 STORE IN TTAB «, t00=0x00a8, t01=0x0056}
0x106d0…106f4 Head {h00=0x0020, h01=0x0050, text=» ADK A5,1 INCREMENT TASK ID «, t00=0x00a8, t01=0x007e}
0x106f4…10730 Head {h00=0x0038, h01=0x0050, text=» ST A5,STKEND+TASKID SAVE TO NEXT TASK IN SAME CLASS«, t00=0x00a8, t01=0x00a2}
0x10730…10764 Head {h00=0x0030, h01=0x0050, text=» LD A5,STKEND+APCSTA GET APPL. CONTROL BLOCK«, t00=0x00a8, t01=0x00de}
0x10764…10794 Head {h00=0x002c, h01=0x0050, text=» ST A5,TTB:AP,A12 STORE ADDRESS IN TTAB «, t00=0x00a8, t01=0x0112}
0x10794…107bc Head {h00=0x0024, h01=0x0050, text=» LD A5,APLTYP,A5 GET APPL. TYPE «, t00=0x00a8, t01=0x0142}
0x107bc…107d8 Head {h00=0x0018, h01=0x0050, text=» CWK A5,'CR' CREDIT?«, t00=0x00a8, t01=0x016a}
0x107d8…107f0 Head {h00=0x0014, h01=0x0050, text=» RF(NE) BTT65 NO«, t00=0x00a8, t01=0x0186}
0x107f0…107fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x000e}
0x107fa…10826 Head {h00=0x0028, h01=0x0050, text=»* STORE TASK CLASS TO MATCH IN TTAB«, t00=0x00a9, t01=0x0018}
0x10826…10830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x0044}
0x10830…10860 Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+TCLSAV GET TCL START VALUE«, t00=0x00a9, t01=0x004e}
0x10860…10886 Head {h00=0x0022, h01=0x0050, text=» ST A5,TTB:PP,A12 SAVE IN TTAB«, t00=0x00a9, t01=0x007e}
0x10886…108a6 Head {h00=0x001c, h01=0x0050, text=» ADK A5,1 INCREMENT TCL«, t00=0x00a9, t01=0x00a4}
0x108a6…108c8 Head {h00=0x001e, h01=0x0050, text=» ST A5,STKEND+TCLSAV SAVE «, t00=0x00a9, t01=0x00c4}
0x108c8…108dc Head {h00=0x0010, h01=0x0050, text=»BTT65 EQU * «, t00=0x00a9, t01=0x00e6}
0x108dc…1090c Head {h00=0x002c, h01=0x0050, text=» STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB «, t00=0x00a9, t01=0x00fa}
0x1090c…10932 Head {h00=0x0022, h01=0x0050, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x00a9, t01=0x012a}
0x10932…1096c Head {h00=0x0036, h01=0x0050, text=» ST A7,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY «, t00=0x00a9, t01=0x0150}
0x1096c…109a4 Head {h00=0x0034, h01=0x0050, text=» ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS «, t00=0x00a9, t01=0x018a}
0x109a4…109de Head {h00=0x0036, h01=0x0050, text=» SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS«, t00=0x00aa, t01=0x0032}
0x109de…109f0 Head {h00=0x000e, h01=0x0050, text=» RB BTT60 «, t00=0x00aa, t01=0x006c}
0x109f0…109fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00aa, t01=0x007e}
0x109fe…10a12 Head {h00=0x0010, h01=0x0050, text=»BTT70 EQU * «, t00=0x00aa, t01=0x008c}
0x10a12…10a1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x00a0}
0x10a1c…10a4a Head {h00=0x002a, h01=0x0050, text=»* RESET POINTER TO START OF FREE AREA«, t00=0x00aa, t01=0x00aa}
0x10a4a…10a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x00d8}
0x10a54…10a72 Head {h00=0x001a, h01=0x0050, text=» LD A12,STKEND+SFASAV «, t00=0x00aa, t01=0x00e2}
0x10a72…10a86 Head {h00=0x0010, h01=0x0050, text=»BTT90 EQU * «, t00=0x00aa, t01=0x0100}
0x10a86…10aaa Head {h00=0x0020, h01=0x0050, text=» CALL NXTBLK GET NEXT BLOCK «, t00=0x00aa, t01=0x0114}
0x10aaa…10ad6 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00aa, t01=0x0138}
0x10ad6…10aec Head {h00=0x0012, h01=0x0050, text=» RF(NE) BTT95 «, t00=0x00aa, t01=0x0164}
0x10aec…10b06 Head {h00=0x0016, h01=0x0050, text=» LD P,STKEND+WRK2 «, t00=0x00aa, t01=0x017a}
0x10b06…10b1a (171, 0, 400) Head {h00=0x0010, h01=0x0050, text=»BTT95 EQU * «, t00=0x00ab, t01=0x0004}
0x10b1a…10b40 Head {h00=0x0022, h01=0x0050, text=» CALL NXTAPL NEXT APPLICATION «, t00=0x00ab, t01=0x0018}
0x10b40…10b54 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BTT98«, t00=0x00ab, t01=0x003e}
0x10b54…10b6e Head {h00=0x0016, h01=0x0050, text=» LD P,STKEND+WRK1 «, t00=0x00ab, t01=0x0052}
0x10b6e…10ba2 Head {h00=0x0030, h01=0x0050, text=»BTT98 ST A12,SCTSFA SAVE START OF FREE AREA «, t00=0x00ab, t01=0x006c}
0x10ba2…10bc6 Head {h00=0x0020, h01=0x0050, text=» SU A7,SCTTCT COMPUTE LENGTH«, t00=0x00ab, t01=0x00a0}
0x10bc6…10be2 Head {h00=0x0018, h01=0x0050, text=» ST* A7,SCTTCT STORE«, t00=0x00ab, t01=0x00c4}
0x10be2…10bfa Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00ab, t01=0x00e0}
0x10bfa…10c10 Head {h00=0x0012, h01=0x0050, text=» IFF SWPBLK=0 «, t00=0x00ab, t01=0x00f8}
0x10c10…10c1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ab, t01=0x010e}
0x10c1e…10c32 Head {h00=0x0010, h01=0x0050, text=»B:SWBT EQU *«, t00=0x00ab, t01=0x011c}
0x10c32…10c5a Head {h00=0x0024, h01=0x0050, text=» CALL PUSH SAVE REGISTER A1-A14 «, t00=0x00ab, t01=0x0130}
0x10c5a…10c80 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00ab, t01=0x0158}
0x10c80…10ca6 Head {h00=0x0022, h01=0x0050, text=» ANK A1,8 SWB OPTION INCLUDED «, t00=0x00ab, t01=0x017e}
0x10ca6…10cbe Head {h00=0x0014, h01=0x0050, text=» RF(Z) BSWT42 NO«, t00=0x00ac, t01=0x0014}
0x10cbe…10cf2 Head {h00=0x0030, h01=0x0050, text=» CM STKCOM+APPLNO RESET APPLICATION COUNTER «, t00=0x00ac, t01=0x002c}
0x10cf2…10d22 Head {h00=0x002c, h01=0x0050, text=» ST P,STKEND+LIMIT SAVE LOCATION COUNTER«, t00=0x00ac, t01=0x0060}
0x10d22…10d56 Head {h00=0x0030, h01=0x0050, text=»BSWT05 LDKL A1,'CR' APPLICATION TYPE=CREDIT «, t00=0x00ac, t01=0x0090}
0x10d56…10d86 Head {h00=0x002c, h01=0x0050, text=» CALL GETAPP GET NEXT CREDIT APPLICATION«, t00=0x00ac, t01=0x00c4}
0x10d86…10db0 Head {h00=0x0026, h01=0x0050, text=» RF(Z) BSWT42 NO MORE APPLICATIONS«, t00=0x00ac, t01=0x00f4}
0x10db0…10dd4 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A1 GET ACB ADDRESS «, t00=0x00ac, t01=0x011e}
0x10dd4…10df6 Head {h00=0x001e, h01=0x0050, text=» ST A10,STKEND+APCSTA SAVE«, t00=0x00ac, t01=0x0142}
0x10df6…10e20 Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x00ac, t01=0x0164}
0x10e20…10e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x018e}
0x10e2a…10e68 Head {h00=0x003a, h01=0x0050, text=»* SEARCH FOR SWB TYPE DEFINITION BLOCK IN CONF. FILE «, t00=0x00ad, t01=0x0008}
0x10e68…10e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x0046}
0x10e72…10e9c Head {h00=0x0026, h01=0x0050, text=»BSWT10 CALL NXTBLK GET NEXT BLOCK «, t00=0x00ad, t01=0x0050}
0x10e9c…10ec8 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00ad, t01=0x007a}
0x10ec8…10ee2 Head {h00=0x0016, h01=0x0050, text=» RB(E) BSWT10 YES!«, t00=0x00ad, t01=0x00a6}
0x10ee2…10f16 Head {h00=0x0030, h01=0x0050, text=» CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK?«, t00=0x00ad, t01=0x00c0}
0x10f16…10f30 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT20 NO!«, t00=0x00ad, t01=0x00f4}
0x10f30…10f44 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x00ad, t01=0x010e}
0x10f44…10f6a Head {h00=0x0022, h01=0x0050, text=» CALL NXTCOM SKIP COMMON BLOCK«, t00=0x00ad, t01=0x0122}
0x10f6a…10fa0 Head {h00=0x0032, h01=0x0050, text=»BSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? «, t00=0x00ad, t01=0x0148}
0x10fa0…10fba Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT40 NO!«, t00=0x00ad, t01=0x017e}
0x10fba…10fde Head {h00=0x0020, h01=0x0050, text=» ADKL A11,1 NUMBER OF TYPES «, t00=0x00ae, t01=0x0008}
0x10fde…10ff2 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x00ae, t01=0x002c}
0x10ff2…1101c Head {h00=0x0026, h01=0x0050, text=» CALL GETNUM NUMBER OF UWB RECORDS«, t00=0x00ae, t01=0x0040}
0x1101c…11034 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A5 SAVE «, t00=0x00ae, t01=0x006a}
0x11034…1105c Head {h00=0x0024, h01=0x0050, text=» RF(Z) SWBERR ILLEGAL NUMBER!!! «, t00=0x00ae, t01=0x0082}
0x1105c…11088 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UWB RECORD «, t00=0x00ae, t01=0x00aa}
0x11088…110b4 Head {h00=0x0028, h01=0x0050, text=»BSWT30 ADKL A11,6 BYPASS UWB RECORD «, t00=0x00ae, t01=0x00d6}
0x110b4…110dc Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECR. NUMBER OF TYPES «, t00=0x00ae, t01=0x0102}
0x110dc…110fc Head {h00=0x001c, h01=0x0050, text=» RB(P) BSWT30 MOORE LEFT«, t00=0x00ae, t01=0x012a}
0x110fc…1112c Head {h00=0x002c, h01=0x0050, text=» LCR A2,A11 GET NEXT CHAR. IN CONF.FILE «, t00=0x00ae, t01=0x014a}
0x1112c…11160 Head {h00=0x0030, h01=0x0050, text=»BSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK«, t00=0x00ae, t01=0x017a}
0x11160…1117a Head {h00=0x0016, h01=0x0050, text=» RF(E) BSWT44 YES!«, t00=0x00af, t01=0x001e}
0x1117a…111a6 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,0 NO SWB DEFINITION BLOCK! «, t00=0x00af, t01=0x0038}
0x111a6…111d2 Head {h00=0x0028, h01=0x0050, text=» ST A1,APLSWB,A10 CLEAR SWB POINTER «, t00=0x00af, t01=0x0064}
0x111d2…11210 Head {h00=0x003a, h01=0x0050, text=» LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION =2 «, t00=0x00af, t01=0x0090}
0x11210…1123a Head {h00=0x0026, h01=0x0050, text=»BSWT42 CALL POB RESTORE REGISTERS «, t00=0x00af, t01=0x00ce}
0x1123a…1124a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00af, t01=0x00f8}
0x1124a…11274 Head {h00=0x0026, h01=0x0050, text=»BSWT44 ADKL A11,1 NUMBER OF TYPES «, t00=0x00af, t01=0x0108}
0x11274…112a6 Head {h00=0x002e, h01=0x0050, text=» ST A11,STKEND+SWBBLK START OF CONF. DATA «, t00=0x00af, t01=0x0132}
0x112a6…112ba Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x00af, t01=0x0164}
0x112ba…112dc Head {h00=0x001e, h01=0x0050, text=» CALL GETNUM GET 3 DIGITS «, t00=0x00af, t01=0x0178}
0x112dc…112f4 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A5 ZERO?«, t00=0x00b0, t01=0x000a}
0x112f4…1131c Head {h00=0x0024, h01=0x0050, text=» RF(Z) SWBERR ILLEGAL NUMBER!!! «, t00=0x00b0, t01=0x0022}
0x1131c…11350 Head {h00=0x0030, h01=0x0050, text=» ST A5,STKEND+NBRSWB SAVE NUMBER OF RECORDS «, t00=0x00b0, t01=0x004a}
0x11350…11370 Head {h00=0x001c, h01=0x0050, text=» ST A5,STKEND+WRK1 SAVE «, t00=0x00b0, t01=0x007e}
0x11370…113a2 Head {h00=0x002e, h01=0x0050, text=» LD A8,STKCOM+SWBFLG GET ADDRESS TO $SWAPP«, t00=0x00b0, t01=0x009e}
0x113a2…113c6 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) BSWT48 FILE CREATED «, t00=0x00b0, t01=0x00d0}
0x113c6…113ec Head {h00=0x0022, h01=0x0050, text=»SWBERR LDKL A1,LMP6 SWB ERROR!«, t00=0x00b0, t01=0x00f4}
0x113ec…11400 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00b0, t01=0x011a}
0x11400…1143e Head {h00=0x003a, h01=0x0050, text=»BSWT48 ST A12,APLSWB,A10 SAVE ADDRESS TO ADDRESS TABLE«, t00=0x00b0, t01=0x012e}
0x1143e…11470 Head {h00=0x002e, h01=0x0050, text=» CM STKCOM+SWBCNT RESET SWP-BLOCK COUNTER «, t00=0x00b0, t01=0x016c}
0x11470…11492 Head {h00=0x001e, h01=0x0050, text=» ADKL A12,2 FIRST POINTER «, t00=0x00b1, t01=0x000e}
0x11492…114ac Head {h00=0x0016, h01=0x0050, text=» LDR A10,A12 SAVE «, t00=0x00b1, t01=0x0030}
0x114ac…114d4 Head {h00=0x0024, h01=0x0050, text=»BSWT50 ADKL A10,2 BYPASS POINTER«, t00=0x00b1, t01=0x004a}
0x114d4…11500 Head {h00=0x0028, h01=0x0050, text=» SUK A5,1 DECREMENT NUMBER OF TYPES «, t00=0x00b1, t01=0x0072}
0x11500…11516 Head {h00=0x0012, h01=0x0050, text=» RB(P) BSWT50 «, t00=0x00b1, t01=0x009e}
0x11516…11520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x00b4}
0x11520…1154a Head {h00=0x0026, h01=0x0050, text=»* GET ADDRESS TO S:BTAB PROTOTYPE«, t00=0x00b1, t01=0x00be}
0x1154a…11554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x00e8}
0x11554…11584 Head {h00=0x002c, h01=0x0050, text=» LD A2,STKEND+APCSTA GET ADDRESS TO ACB «, t00=0x00b1, t01=0x00f2}
0x11584…115ae Head {h00=0x0026, h01=0x0050, text=» LD* A1,APLMMC,A2 GET TTAB ADDRESS«, t00=0x00b1, t01=0x0122}
0x115ae…115d6 Head {h00=0x0024, h01=0x0050, text=» TL TTB:MT,A1 LOAD MMU REGISTERS«, t00=0x00b1, t01=0x014c}
0x115d6…11602 Head {h00=0x0028, h01=0x0050, text=» LD A2,APLLAC,A2 GET P:MTAB ADDRESS «, t00=0x00b1, t01=0x0174}
0x11602…1162a Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET P:MTAB ADDRESS «, t00=0x00b2, t01=0x0010}
0x1162a…11642 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00b2, t01=0x0038}
0x11642…11672 Head {h00=0x002c, h01=0x0050, text=» ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS«, t00=0x00b2, t01=0x0050}
0x11672…1169a Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET S:BTAB ADDRESS «, t00=0x00b2, t01=0x0080}
0x1169a…116c8 Head {h00=0x002a, h01=0x0050, text=» LDR A2,A1 GET ADDRESS TO PROT. S:BTAB«, t00=0x00b2, t01=0x00a8}
0x116c8…116f6 Head {h00=0x002a, h01=0x0050, text=» RB(Z) SWBERR NO SWB:S IN APPLICATION!«, t00=0x00b2, t01=0x00d6}
0x116f6…11718 Head {h00=0x001e, h01=0x0050, text=» ADK A1,2 ADDRESS TO NAME «, t00=0x00b2, t01=0x0104}
0x11718…1173a Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+SWBNAM SAVE «, t00=0x00b2, t01=0x0126}
0x1173a…1176e Head {h00=0x0030, h01=0x0050, text=» SUK A2,2 ADDRESS TO LENGTH OF PROT. S:BTAB «, t00=0x00b2, t01=0x0148}
0x1176e…1179e Head {h00=0x002c, h01=0x0050, text=» CALL GETCON GET LENGTH OF PROT. S:BTAB «, t00=0x00b2, t01=0x017c}
0x1179e…117b6 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A1 SAVE «, t00=0x00b3, t01=0x001c}
0x117b6…117c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x0034}
0x117c0…117f6 Head {h00=0x0032, h01=0x0050, text=»* CHECK IF ENOUGTH MEMORY IN FIRST PARTITION «, t00=0x00b3, t01=0x003e}
0x117f6…11800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x0074}
0x11800…11820 Head {h00=0x001c, h01=0x0050, text=» XRR A2,A2 RESET COUNTER«, t00=0x00b3, t01=0x007e}
0x11820…11848 Head {h00=0x0024, h01=0x0050, text=»BSWT52 SUK A1,6 DECREMENT LENGTH«, t00=0x00b3, t01=0x009e}
0x11848…11870 Head {h00=0x0024, h01=0x0050, text=» RF(N) BSWT55 NO MORE SWB-BLOCKS«, t00=0x00b3, t01=0x00c6}
0x11870…11896 Head {h00=0x0022, h01=0x0050, text=» ADK A2,1 INCR. BLOCK COUNTER «, t00=0x00b3, t01=0x00ee}
0x11896…118a8 Head {h00=0x000e, h01=0x0050, text=» RB BSWT52«, t00=0x00b3, t01=0x0114}
0x118a8…118ce Head {h00=0x0022, h01=0x0050, text=»BSWT55 SLL A2,3 MULTIPLY BY 8 «, t00=0x00b3, t01=0x0126}
0x118ce…118f6 Head {h00=0x0024, h01=0x0050, text=» LDR A9,A10 GET START OF BLOCKS «, t00=0x00b3, t01=0x014c}
0x118f6…11914 Head {h00=0x001a, h01=0x0050, text=» ADR A9,A2 ADD LENGTH «, t00=0x00b3, t01=0x0174}
0x11914…11942 (180, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LD A11,STKEND+LIMIT GET CURRENT LIMIT«, t00=0x00b4, t01=0x0004}
0x11942…11968 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x00b4, t01=0x0032}
0x11968…11982 Head {h00=0x0016, h01=0x0050, text=» RF(NL) BSWT57 NO!«, t00=0x00b4, t01=0x0058}
0x11982…119b0 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00b4, t01=0x0072}
0x119b0…119c4 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00b4, t01=0x00a0}
0x119c4…119ec Head {h00=0x0024, h01=0x0050, text=»BSWT57 SUK A4,2 SKIP LENGTH WORD«, t00=0x00b4, t01=0x00b4}
0x119ec…11a12 Head {h00=0x0022, h01=0x0050, text=» LDKL A9,0 RESET BLOCK COUNTER«, t00=0x00b4, t01=0x00dc}
0x11a12…11a42 Head {h00=0x002c, h01=0x0050, text=»BSWT60 STR A10,A12 SAVE POINTER TO BLOCK«, t00=0x00b4, t01=0x0102}
0x11a42…11a64 Head {h00=0x001e, h01=0x0050, text=» ST A4,STKEND+SWBTBL SAVE «, t00=0x00b4, t01=0x0132}
0x11a64…11a96 Head {h00=0x002e, h01=0x0050, text=» LD A11,STKEND+SWBBLK START OF CONF. DATA «, t00=0x00b4, t01=0x0154}
0x11a96…11ac8 Head {h00=0x002e, h01=0x0050, text=» LD A7,STKEND+NBRSWB NUMBER OF SWB RECORDS«, t00=0x00b4, t01=0x0186}
0x11ac8…11b00 Head {h00=0x0034, h01=0x0050, text=»BSWT65 LD A2,STKEND+SWBNAM NAME RECORD IN PROT. «, t00=0x00b5, t01=0x0028}
0x11b00…11b28 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET TWO FIRST CHAR.«, t00=0x00b5, t01=0x0060}
0x11b28…11b54 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,NAMUWB NAME IN CONF. FILE «, t00=0x00b5, t01=0x0088}
0x11b54…11b78 Head {h00=0x0020, h01=0x0050, text=» LCR A3,A11 GET FIRST CHAR. «, t00=0x00b5, t01=0x00b4}
0x11b78…11b9c Head {h00=0x0020, h01=0x0050, text=» SLL A3,8 MOVE TO LEFT BYTE «, t00=0x00b5, t01=0x00d8}
0x11b9c…11bc2 Head {h00=0x0022, h01=0x0050, text=» LC A3,1,A11 GET SECOND CHAR. «, t00=0x00b5, t01=0x00fc}
0x11bc2…11bec Head {h00=0x0026, h01=0x0050, text=» CWR A1,A3 TWO FIRST CHAR. EQUAL? «, t00=0x00b5, t01=0x0122}
0x11bec…11c06 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT70 NO!«, t00=0x00b5, t01=0x014c}
0x11c06…11c2c Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 NEXT CHAR. IN PROT. «, t00=0x00b5, t01=0x0166}
0x11c2c…11c50 Head {h00=0x0020, h01=0x0050, text=» CALL GETCON GET THIRD CHAR.«, t00=0x00b5, t01=0x018c}
0x11c50…11c70 Head {h00=0x001c, h01=0x0050, text=» SRL A1,8 ISOLATE CHAR. «, t00=0x00b6, t01=0x0020}
0x11c70…11ca4 Head {h00=0x0030, h01=0x0050, text=» LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE«, t00=0x00b6, t01=0x0040}
0x11ca4…11cc6 Head {h00=0x001e, h01=0x0050, text=» ANK A3,/FF ISOLATE CHAR. «, t00=0x00b6, t01=0x0074}
0x11cc6…11cec Head {h00=0x0022, h01=0x0050, text=» CWR A1,A3 THIRD CHAR. EQUAL? «, t00=0x00b6, t01=0x0096}
0x11cec…11d06 Head {h00=0x0016, h01=0x0050, text=» RF(E) BSWT75 YES!«, t00=0x00b6, t01=0x00bc}
0x11d06…11d2e Head {h00=0x0024, h01=0x0050, text=»BSWT70 ADKL A11,NAMUWB SKIP NAME«, t00=0x00b6, t01=0x00d6}
0x11d2e…11d5a Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF TYPES «, t00=0x00b6, t01=0x00fe}
0x11d5a…11d7a Head {h00=0x001c, h01=0x0050, text=» RB(P) BSWT65 NEXT TYPE «, t00=0x00b6, t01=0x012a}
0x11d7a…11d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x014a}
0x11d84…11dd6 Head {h00=0x004e, h01=0x0050, text=»* NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK «, t00=0x00b6, t01=0x0154}
0x11dd6…11de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x0016}
0x11de0…11dfe Head {h00=0x001a, h01=0x0050, text=» STR A7,A10 1:ST WORD «, t00=0x00b7, t01=0x0020}
0x11dfe…11e1c Head {h00=0x001a, h01=0x0050, text=» ST A7,2,A10 2:ND WORD«, t00=0x00b7, t01=0x003e}
0x11e1c…11e3a Head {h00=0x001a, h01=0x0050, text=» ST A7,4,A10 3:RD WORD«, t00=0x00b7, t01=0x005c}
0x11e3a…11e58 Head {h00=0x001a, h01=0x0050, text=» ST A7,6,A10 4:TH WORD«, t00=0x00b7, t01=0x007a}
0x11e58…11e6a Head {h00=0x000e, h01=0x0050, text=» RF BSWT95«, t00=0x00b7, t01=0x0098}
0x11e6a…11e7e Head {h00=0x0010, h01=0x0050, text=»BSWT75 EQU *«, t00=0x00b7, t01=0x00aa}
0x11e7e…11e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x00be}
0x11e88…11ea6 Head {h00=0x001a, h01=0x0050, text=»* MATCHING NAME FOUND«, t00=0x00b7, t01=0x00c8}
0x11ea6…11eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x00e6}
0x11eb0…11ee2 Head {h00=0x002e, h01=0x0050, text=» LD A3,STKEND+WRK1 GET NUMBER OF SWB TYPES«, t00=0x00b7, t01=0x00f0}
0x11ee2…11efe Head {h00=0x0018, h01=0x0050, text=» SUK A3,1 DECREMENT «, t00=0x00b7, t01=0x0122}
0x11efe…11f1e Head {h00=0x001c, h01=0x0050, text=» ST A3,STKEND+WRK1 SAVE «, t00=0x00b7, t01=0x013e}
0x11f1e…11f48 Head {h00=0x0026, h01=0x0050, text=» ADKL A11,NAMUWB NUMBER OF COPIES «, t00=0x00b7, t01=0x015e}
0x11f48…11f5c Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x00b7, t01=0x0188}
0x11f5c…11f7c Head {h00=0x001c, h01=0x0050, text=» LDR A3,A2 SAVE POINTER «, t00=0x00b8, t01=0x000c}
0x11f7c…11fa6 Head {h00=0x0026, h01=0x0050, text=» CALL GETNUM GET NUMBER OF COPIES «, t00=0x00b8, t01=0x002c}
0x11fa6…11fd6 Head {h00=0x002c, h01=0x0050, text=» SLL A5,8 NUMBER OF COPIES IN LEFT BYTE «, t00=0x00b8, t01=0x0056}
0x11fd6…12018 Head {h00=0x003e, h01=0x0050, text=» OR A5,STKCOM+SWBFSA+2 DISC ADDRESS BITS 0-7 IN RIGHT BYTE«, t00=0x00b8, t01=0x0086}
0x12018…1203e Head {h00=0x0022, h01=0x0050, text=» STR A5,A10 STORE IN SWB BLOCK«, t00=0x00b8, t01=0x00c8}
0x1203e…1206e Head {h00=0x002c, h01=0x0050, text=» SRL A5,8 NUMBER OF COPIES TO RIGHT BYTE«, t00=0x00b8, t01=0x00ee}
0x1206e…120a6 Head {h00=0x0034, h01=0x0050, text=» LD A8,STKCOM+SWBFSA GET DISC ADDRESS BITS 8-22 «, t00=0x00b8, t01=0x011e}
0x120a6…120c0 Head {h00=0x0016, h01=0x0050, text=» ST A8,2,A10 SAVE «, t00=0x00b8, t01=0x0156}
0x120c0…120e2 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A3 RESTORE POINTER«, t00=0x00b8, t01=0x0170}
0x120e2…1210a (185, 0, 400) Head {h00=0x0024, h01=0x0050, text=» SUK A2,UPNAME PROTOTYPE ADDRESS«, t00=0x00b9, t01=0x0004}
0x1210a…12134 Head {h00=0x0026, h01=0x0050, text=» CALL GETCON GET PROTOTYPE ADDRESS«, t00=0x00b9, t01=0x002c}
0x12134…1214c Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00b9, t01=0x0056}
0x1214c…12176 Head {h00=0x0026, h01=0x0050, text=» SUK A2,UPNAME LENGTH OF WORKBLOCK«, t00=0x00b9, t01=0x006e}
0x12176…1218a Head {h00=0x0010, h01=0x0050, text=» CALL GETCON«, t00=0x00b9, t01=0x0098}
0x1218a…121b8 Head {h00=0x002a, h01=0x0050, text=» ST A1,SWBLEN,A10 STORE LENGTH OF SWB «, t00=0x00b9, t01=0x00ac}
0x121b8…121ec Head {h00=0x0030, h01=0x0050, text=»BSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK «, t00=0x00b9, t01=0x00da}
0x121ec…12212 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 RESET SECTOR COUNTER«, t00=0x00b9, t01=0x010e}
0x12212…1224a Head {h00=0x0034, h01=0x0050, text=»BSWT86 IM STKCOM+SWBFSA INCREMENT SECTOR ADDRESS«, t00=0x00b9, t01=0x0134}
0x1224a…12260 Head {h00=0x0012, h01=0x0050, text=» RF(O) BSWT88 «, t00=0x00b9, t01=0x016c}
0x12260…12272 Head {h00=0x000e, h01=0x0050, text=» RF BSWT90«, t00=0x00b9, t01=0x0182}
0x12272…12294 (186, 0, 400) Head {h00=0x001e, h01=0x0050, text=»BSWT88 IM STKCOM+SWBFSA+2 «, t00=0x00ba, t01=0x0004}
0x12294…122ae Head {h00=0x0016, h01=0x0050, text=» CM STKCOM+SWBFSA «, t00=0x00ba, t01=0x0026}
0x122ae…122c2 Head {h00=0x0010, h01=0x0050, text=»BSWT90 EQU *«, t00=0x00ba, t01=0x0040}
0x122c2…122ec Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT SECTOR COUNTER«, t00=0x00ba, t01=0x0054}
0x122ec…12312 Head {h00=0x0022, h01=0x0050, text=» SUKL A3,256 DECREMENT LENGTH «, t00=0x00ba, t01=0x007e}
0x12312…12336 Head {h00=0x0020, h01=0x0050, text=» RB(P) BSWT86 MOORE SECTORS?«, t00=0x00ba, t01=0x00a4}
0x12336…12356 Head {h00=0x001c, h01=0x0050, text=» SUK A5,1 MOORE COPIES? «, t00=0x00ba, t01=0x00c8}
0x12356…12370 Head {h00=0x0016, h01=0x0050, text=» RB(P) BSWT85 YES!«, t00=0x00ba, t01=0x00e8}
0x12370…1239e Head {h00=0x002a, h01=0x0050, text=» ST A1,SWBSEC,A10 STORE SECTOR LENGTH «, t00=0x00ba, t01=0x0102}
0x1239e…123d4 Head {h00=0x0032, h01=0x0050, text=» IM STKCOM+SWBCNT INCREMENT SWP-BLOCK COUNTER «, t00=0x00ba, t01=0x0130}
0x123d4…123f2 Head {h00=0x001a, h01=0x0050, text=» LD A8,STKCOM+SWBFSA+2«, t00=0x00ba, t01=0x0166}
0x123f2…12410 Head {h00=0x001a, h01=0x0050, text=» CW A8,STKCOM+SWBFSE+2«, t00=0x00ba, t01=0x0184}
0x12410…1243c Head {h00=0x0028, h01=0x0050, text=» RF(G) BSWT98 $SWAP-FILE TOO SMALL! «, t00=0x00bb, t01=0x0012}
0x1243c…12452 Head {h00=0x0012, h01=0x0050, text=» RF(L) BSWT95 «, t00=0x00bb, t01=0x003e}
0x12452…1246e Head {h00=0x0018, h01=0x0050, text=» LD A8,STKCOM+SWBFSA«, t00=0x00bb, t01=0x0054}
0x1246e…1248a Head {h00=0x0018, h01=0x0050, text=» CW A8,STKCOM+SWBFSE«, t00=0x00bb, t01=0x0070}
0x1248a…124b6 Head {h00=0x0028, h01=0x0050, text=» RF(G) BSWT98 SWAPP-FILE TOO SMALL! «, t00=0x00bb, t01=0x008c}
0x124b6…124e4 Head {h00=0x002a, h01=0x0050, text=»BSWT95 ADKL A10,8 START OF NEXT BLOCK «, t00=0x00bb, t01=0x00b8}
0x124e4…12504 Head {h00=0x001c, h01=0x0050, text=» ADKL A12,2 NEXT POINTER«, t00=0x00bb, t01=0x00e6}
0x12504…1252e Head {h00=0x0026, h01=0x0050, text=» ADKL A9,1 INCREMENT BLOCK COUNTER«, t00=0x00bb, t01=0x0106}
0x1252e…1256a Head {h00=0x0038, h01=0x0050, text=» LD A2,STKEND+SWBNAM CURRENT RECORD IN PROT. S:BTAB «, t00=0x00bb, t01=0x0130}
0x1256a…1259c Head {h00=0x002e, h01=0x0050, text=» ADK A2,UP:REC NEXT RECORD IN PROT. S:BTAB«, t00=0x00bb, t01=0x016c}
0x1259c…125be Head {h00=0x001e, h01=0x0050, text=» ST A2,STKEND+SWBNAM SAVE «, t00=0x00bc, t01=0x000e}
0x125be…125f6 Head {h00=0x0034, h01=0x0050, text=» LD A4,STKEND+SWBTBL GET LENGTH OF PROT. S:BTAB «, t00=0x00bc, t01=0x0030}
0x125f6…12616 Head {h00=0x001c, h01=0x0050, text=» SUK A4,UP:REC DECREMENT«, t00=0x00bc, t01=0x0068}
0x12616…12638 Head {h00=0x001e, h01=0x0050, text=» RB(P) BSWT60 MOORE TYPES «, t00=0x00bc, t01=0x0088}
0x12638…1266a Head {h00=0x002e, h01=0x0050, text=» LD A8,STKCOM+SWBCNT ANY BLOCKS GENERATED?«, t00=0x00bc, t01=0x00aa}
0x1266a…12684 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BSWT98 NO! «, t00=0x00bc, t01=0x00dc}
0x12684…126b6 Head {h00=0x002e, h01=0x0050, text=» LD A8,STKEND+WRK1 ALL SWB TYPES MATCHED? «, t00=0x00bc, t01=0x00f6}
0x126b6…126d2 Head {h00=0x0018, h01=0x0050, text=» RF(NP) BSWT99 YES! «, t00=0x00bc, t01=0x0128}
0x126d2…126ee Head {h00=0x0018, h01=0x0050, text=»BSWT98 LDKL A1,LMP6 «, t00=0x00bc, t01=0x0144}
0x126ee…1270c Head {h00=0x001a, h01=0x0050, text=» CALL ERROR SWB ERROR!«, t00=0x00bc, t01=0x0160}
0x1270c…12742 Head {h00=0x0032, h01=0x0050, text=»BSWT99 ST A10,SCTSFA UPDATE START OF FREE AREA«, t00=0x00bc, t01=0x017e}
0x12742…12778 Head {h00=0x0032, h01=0x0050, text=» LD A10,STKEND+APCSTA GET CURRENT ACB ADDRESS «, t00=0x00bd, t01=0x0024}
0x12778…127a6 Head {h00=0x002a, h01=0x0050, text=» ST* A9,APLSWB,A10 NUMBER OF SWB TYPES«, t00=0x00bd, t01=0x005a}
0x127a6…127e0 Head {h00=0x0036, h01=0x0050, text=» LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION«, t00=0x00bd, t01=0x0088}
0x127e0…127ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x00c2}
0x127ec…12808 Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x00bd, t01=0x00ce}
0x12808…12816 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bd, t01=0x00ea}
0x12816…12852 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00bd, t01=0x00f8}
0x12852…1288e Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bd, t01=0x0134}
0x1288e…128ca Head {h00=0x0038, h01=0x0050, text=»* B:STAB - BUILD SEGMENT TABLES * «, t00=0x00bd, t01=0x0170}
0x128ca…12906 Head {h00=0x0038, h01=0x0050, text=»* ============================= * «, t00=0x00be, t01=0x001c}
0x12906…12942 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00be, t01=0x0058}
0x12942…1297e Head {h00=0x0038, h01=0x0050, text=»* REFERENCED IN: SYSLDM * «, t00=0x00be, t01=0x0094}
0x1297e…129ba Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00be, t01=0x00d0}
0x129ba…129f6 Head {h00=0x0038, h01=0x0050, text=»* ENTRY: * «, t00=0x00be, t01=0x010c}
0x129f6…12a32 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00be, t01=0x0148}
0x12a32…12a6e Head {h00=0x0038, h01=0x0050, text=»* EXIT: * «, t00=0x00be, t01=0x0184}
0x12a6e…12aaa Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bf, t01=0x0030}
0x12aaa…12ae6 Head {h00=0x0038, h01=0x0050, text=»* WORK REGISTERS: A1-A14 (THEIR ORIGINAL * «, t00=0x00bf, t01=0x006c}
0x12ae6…12b22 Head {h00=0x0038, h01=0x0050, text=»* CONTENTS ARE SAVED ON STACK * «, t00=0x00bf, t01=0x00a8}
0x12b22…12b5e Head {h00=0x0038, h01=0x0050, text=»* AND RESTORED BEFORE EXIT) * «, t00=0x00bf, t01=0x00e4}
0x12b5e…12b9a Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bf, t01=0x0120}
0x12b9a…12bd6 Head {h00=0x0038, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: * «, t00=0x00bf, t01=0x015c}
0x12bd6…12c12 Head {h00=0x0038, h01=0x0050, text=»* FOR BASIC ONE SEGMENT TABLE AREA/TASK IS * «, t00=0x00c0, t01=0x0008}
0x12c12…12c4e Head {h00=0x0038, h01=0x0050, text=»* RESERVED. THE FIFTH WORD IN EACH SEGMENT TABLE * «, t00=0x00c0, t01=0x0044}
0x12c4e…12c8a Head {h00=0x0038, h01=0x0050, text=»* CONTAINS A POINTER TO THE FIFTH WORD IN NEXT * «, t00=0x00c0, t01=0x0080}
0x12c8a…12cc6 Head {h00=0x0038, h01=0x0050, text=»* EXCEPT THE LAST CONTAINS A PONTER TO THE FIFTH * «, t00=0x00c0, t01=0x00bc}
0x12cc6…12d02 Head {h00=0x0038, h01=0x0050, text=»* WORD IN THE NEXT SEGMENT TABLE. ALL OTHER LO- * «, t00=0x00c0, t01=0x00f8}
0x12d02…12d3e Head {h00=0x0038, h01=0x0050, text=»* CATIONS CONTAIN ZERO. * «, t00=0x00c0, t01=0x0134}
0x12d3e…12d7a Head {h00=0x0038, h01=0x0050, text=»* FOR COBOL AND CREDIT APPLICATIONS ONE SEGMENT * «, t00=0x00c0, t01=0x0170}
0x12d7a…12db6 Head {h00=0x0038, h01=0x0050, text=»* TABLE PER APPLICATION IS GENERATED. STATUS, * «, t00=0x00c1, t01=0x001c}
0x12db6…12df2 Head {h00=0x0038, h01=0x0050, text=»* DISK ADDRESS AND LENGTH FOR EACH SEGMENT IS * «, t00=0x00c1, t01=0x0058}
0x12df2…12e2e Head {h00=0x0038, h01=0x0050, text=»* WRITTEN IN CORRESPONDING SEGBLK. THE SEGMENT * «, t00=0x00c1, t01=0x0094}
0x12e2e…12e6a Head {h00=0x0038, h01=0x0050, text=»* TABLE ADDRESS IS STORED IN THE TTAB FOR EACH * «, t00=0x00c1, t01=0x00d0}
0x12e6a…12ea6 Head {h00=0x0038, h01=0x0050, text=»* TASK IN THE APPLICATION. * «, t00=0x00c1, t01=0x010c}
0x12ea6…12ee2 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00c1, t01=0x0148}
0x12ee2…12f1e Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00c1, t01=0x0184}
0x12f1e…12f2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c2, t01=0x0030}
0x12f2c…12f40 Head {h00=0x0010, h01=0x0050, text=»B:STAB EQU *«, t00=0x00c2, t01=0x003e}
0x12f40…12f68 Head {h00=0x0024, h01=0x0050, text=» CALL PUSH SAVE A1-A14 ON STACK «, t00=0x00c2, t01=0x0052}
0x12f68…12f92 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00c2, t01=0x007a}
0x12f92…12fb8 Head {h00=0x0022, h01=0x0050, text=» LDR A9,P GET LIMIT FOR WRITE «, t00=0x00c2, t01=0x00a4}
0x12fb8…12ff8 Head {h00=0x003c, h01=0x0050, text=»BST010 LD A10,STKEND+APCSTA SAVE POINTER TO CURRENT ACB «, t00=0x00c2, t01=0x00ca}
0x12ff8…1302a Head {h00=0x002e, h01=0x0050, text=» CALL NXTAPL GET NEXT APPL. CONTROL BLOCK «, t00=0x00c2, t01=0x010a}
0x1302a…1304e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) BST020 NOT LAST YET «, t00=0x00c2, t01=0x013c}
0x1304e…13078 Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET LENGTH OF TCTAB«, t00=0x00c2, t01=0x0160}
0x13078…1309a Head {h00=0x001e, h01=0x0050, text=» AD A2,SCTTCT END OF TCTAB«, t00=0x00c2, t01=0x018a}
0x1309a…130ac Head {h00=0x000e, h01=0x0050, text=» RF BST040«, t00=0x00c3, t01=0x001c}
0x130ac…130e4 Head {h00=0x0034, h01=0x0050, text=»BST020 LD A2,APLMMC,A2 GET END OF TCTAB ENTRIES «, t00=0x00c3, t01=0x002e}
0x130e4…1310c Head {h00=0x0024, h01=0x0050, text=»BST040 ST A2,STKEND+TCTEND SAVE «, t00=0x00c3, t01=0x0066}
0x1310c…1311e Head {h00=0x000e, h01=0x0050, text=» LDR A8,P «, t00=0x00c3, t01=0x008e}
0x1311e…1315a Head {h00=0x0038, h01=0x0050, text=»BST045 ADKL A8,BST400-BST045 RELOCATE BRANCH ADDRESS«, t00=0x00c3, t01=0x00a0}
0x1315a…13190 Head {h00=0x0032, h01=0x0050, text=» LD A5,APLMMP,A10 GET CURRENT APPLICATION TYPE«, t00=0x00c3, t01=0x00dc}
0x13190…131bc Head {h00=0x0028, h01=0x0050, text=» CWK A5,'AS' ASSEMBLER APPLICATION? «, t00=0x00c3, t01=0x0112}
0x131bc…131f2 Head {h00=0x0032, h01=0x0050, text=» ABR(E) A8 YES; DON'T GENERATE SEGMENT TABLE! «, t00=0x00c3, t01=0x013e}
0x131f2…13222 Head {h00=0x002c, h01=0x0050, text=» LD A8,APLMMC,A10 GET FIRST TCTAB ENTRY «, t00=0x00c3, t01=0x0174}
0x13222…1323e Head {h00=0x0018, h01=0x0050, text=» CWK A5,'BA' BASIC? «, t00=0x00c4, t01=0x0014}
0x1323e…13258 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BST050 NO «, t00=0x00c4, t01=0x0030}
0x13258…1327c Head {h00=0x0020, h01=0x0050, text=» SUR A2,A8 2*NUMBER OF TASKS«, t00=0x00c4, t01=0x004a}
0x1327c…1329e Head {h00=0x001e, h01=0x0050, text=» SRL A2,1 NUMBER OF TASKS «, t00=0x00c4, t01=0x006e}
0x1329e…132be Head {h00=0x001c, h01=0x0050, text=» ST A2,STKEND+WRK1 SAVE «, t00=0x00c4, t01=0x0090}
0x132be…132dc Head {h00=0x001a, h01=0x0050, text=» ST A2,APLNPE,A10 SAVE«, t00=0x00c4, t01=0x00b0}
0x132dc…1330e Head {h00=0x002e, h01=0x0050, text=» LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK «, t00=0x00c4, t01=0x00ce}
0x1330e…1332e Head {h00=0x001c, h01=0x0050, text=» SLL A3,3 MULTIPLY BY 8 «, t00=0x00c4, t01=0x0100}
0x1332e…13356 Head {h00=0x0024, h01=0x0050, text=» ADK A3,12 INCLUDE 6 FIRST WORDS«, t00=0x00c4, t01=0x0120}
0x13356…13374 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A3 SAVE LENGTH«, t00=0x00c4, t01=0x0148}
0x13374…133ac Head {h00=0x0034, h01=0x0050, text=» CALL MULT COMPUTE LENGTH OF SEGMENT TABLE AREA «, t00=0x00c4, t01=0x0166}
0x133ac…133be Head {h00=0x000e, h01=0x0050, text=» RF BST090«, t00=0x00c5, t01=0x000e}
0x133be…133cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c5, t01=0x0020}
0x133cc…133f8 Head {h00=0x0028, h01=0x0050, text=»BST050 LD A2,SCTOPT GET OPTION WORD «, t00=0x00c5, t01=0x002e}
0x133f8…1340e Head {h00=0x0012, h01=0x0050, text=» ANK A2,1 MMU?«, t00=0x00c5, t01=0x005a}
0x1340e…13426 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BST070 NO«, t00=0x00c5, t01=0x0070}
0x13426…1344a Head {h00=0x0020, h01=0x0050, text=» LDR* A7,A8 GET TTAB ADDRESS«, t00=0x00c5, t01=0x0088}
0x1344a…1346e Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x00c5, t01=0x00ac}
0x1346e…1349c Head {h00=0x002a, h01=0x0050, text=»BST070 LD A2,APLLAC,A10 ADDRESS S:GTAB«, t00=0x00c5, t01=0x00d0}
0x1349c…134ca Head {h00=0x002a, h01=0x0050, text=» ADK A2,10 ADDRESS NUMBER OF SEGMENTS «, t00=0x00c5, t01=0x00fe}
0x134ca…134f6 Head {h00=0x0028, h01=0x0050, text=» CALL GETCON GET NUMBER OF SEGMENTS «, t00=0x00c5, t01=0x012c}
0x134f6…1350e Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x00c5, t01=0x0158}
0x1350e…13526 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x00c5, t01=0x0170}
0x13526…13546 Head {h00=0x001c, h01=0x0050, text=» SLL A3,3 MULTIPLY BY 8 «, t00=0x00c5, t01=0x0188}
0x13546…1356e Head {h00=0x0024, h01=0x0050, text=» ADK A3,12 INCLUDE 6 FIRST WORDS«, t00=0x00c6, t01=0x0018}
0x1356e…135a2 Head {h00=0x0030, h01=0x0050, text=»BST090 LD A12,SCTSFA GET START OF FREE AREA «, t00=0x00c6, t01=0x0040}
0x135a2…135ce Head {h00=0x0028, h01=0x0050, text=» LDR A2,A11 SAVE CONF. DATA POINTER «, t00=0x00c6, t01=0x0074}
0x135ce…135e8 Head {h00=0x0016, h01=0x0050, text=» LDR A11,A12 SAVE «, t00=0x00c6, t01=0x00a0}
0x135e8…13616 Head {h00=0x002a, h01=0x0050, text=» ADR A11,A3 END OF SEGMENT TABLE AREA «, t00=0x00c6, t01=0x00ba}
0x13616…1363c Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x00c6, t01=0x00e8}
0x1363c…13656 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BST100 NO «, t00=0x00c6, t01=0x010e}
0x13656…13684 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00c6, t01=0x0128}
0x13684…13698 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00c6, t01=0x0156}
0x13698…136d0 Head {h00=0x0034, h01=0x0050, text=»BST100 ST A11,SCTSFA INDICATE START OF FREE AREA«, t00=0x00c6, t01=0x016a}
0x136d0…136fe Head {h00=0x002a, h01=0x0050, text=» LDR A11,A2 RESTORE CONF. DATA POINTER«, t00=0x00c7, t01=0x0012}
0x136fe…1371a Head {h00=0x0018, h01=0x0050, text=» CWK A5,'BA' BASIC? «, t00=0x00c7, t01=0x0040}
0x1371a…13734 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BST200 NO «, t00=0x00c7, t01=0x005c}
0x13734…13762 Head {h00=0x002a, h01=0x0050, text=» LD A2,STKEND+WRK1 GET NUMBER OF TASKS«, t00=0x00c7, t01=0x0076}
0x13762…13794 Head {h00=0x002e, h01=0x0050, text=» LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK «, t00=0x00c7, t01=0x00a4}
0x13794…137c8 Head {h00=0x0030, h01=0x0050, text=» ADK A3,NBRDPS ADD NUMBER OF DATA PAGES/TASK«, t00=0x00c7, t01=0x00d6}
0x137c8…137e4 Head {h00=0x0018, h01=0x0050, text=» CALL MULT MULTIPLY «, t00=0x00c7, t01=0x010a}
0x137e4…13812 Head {h00=0x002a, h01=0x0050, text=» LDR A2,A3 GET MAX NUMBER OF SEGMENTS «, t00=0x00c7, t01=0x0126}
0x13812…13850 Head {h00=0x003a, h01=0x0050, text=» ADS A2,STKCOM+TOTSGM UPDATE TOTAL NUMBER OF SEGMENTS «, t00=0x00c7, t01=0x0154}
0x13850…1388e (200, 0, 400) Head {h00=0x003a, h01=0x0050, text=» ST A12,APLSEG,A10 STORE ADDRESS TO SEGMENT TABLE POOL«, t00=0x00c8, t01=0x0004}
0x1388e…1389c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c8, t01=0x0042}
0x1389c…138a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x0050}
0x138a6…138ca Head {h00=0x0020, h01=0x0050, text=»* CLEAR SEGMENT TABLE AREA «, t00=0x00c8, t01=0x005a}
0x138ca…138d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x007e}
0x138d4…13908 Head {h00=0x0030, h01=0x0050, text=» LD A2,SCTSFA GET END OF SEGMENT TABLE AREA «, t00=0x00c8, t01=0x0088}
0x13908…13932 Head {h00=0x0026, h01=0x0050, text=»BST110 SUK A2,2 DECREMENT POINTER «, t00=0x00c8, t01=0x00bc}
0x13932…13948 Head {h00=0x0012, h01=0x0050, text=» CMR A2 CLEAR «, t00=0x00c8, t01=0x00e6}
0x13948…13978 Head {h00=0x002c, h01=0x0050, text=» CWR A2,A12 START OF SEGMENT TABLE AREA?«, t00=0x00c8, t01=0x00fc}
0x13978…13996 Head {h00=0x001a, h01=0x0050, text=» RB(NE) BST110 NOT YET«, t00=0x00c8, t01=0x012c}
0x13996…139c8 Head {h00=0x002e, h01=0x0050, text=»BST120 ADR A2,A4 ADD SEGMENT TABLE LENGTH «, t00=0x00c8, t01=0x014a}
0x139c8…139f8 Head {h00=0x002c, h01=0x0050, text=» CW A2,SCTSFA END OF SEGMENT TABLE AREA?«, t00=0x00c8, t01=0x017c}
0x139f8…13a12 Head {h00=0x0016, h01=0x0050, text=» RF(E) BST400 YES «, t00=0x00c9, t01=0x001c}
0x13a12…13a48 Head {h00=0x0032, h01=0x0050, text=» ADK A2,8 ADDRESS FIFTH WORD IN SEGMENT TABLE «, t00=0x00c9, t01=0x0036}
0x13a48…13a7e Head {h00=0x0032, h01=0x0050, text=» ST A2,8,A12 STORE IN PRECEDING SEGMENT TABLE «, t00=0x00c9, t01=0x006c}
0x13a7e…13aae Head {h00=0x002c, h01=0x0050, text=» ADR A12,A4 START OF NEXT SEGMENT TABLE «, t00=0x00c9, t01=0x00a2}
0x13aae…13ac6 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A12 SAVE«, t00=0x00c9, t01=0x00d2}
0x13ac6…13ad8 Head {h00=0x000e, h01=0x0050, text=» RB BST120«, t00=0x00c9, t01=0x00ea}
0x13ad8…13b0c Head {h00=0x0030, h01=0x0050, text=»BST200 ST A6,2,A12 STORE NUMBER OF SEGMENTS «, t00=0x00c9, t01=0x00fc}
0x13b0c…13b36 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A6 GET NUMBER OF SEGMENTS «, t00=0x00c9, t01=0x0130}
0x13b36…13b74 Head {h00=0x003a, h01=0x0050, text=» ADS A3,STKCOM+TOTSGM UPDATE TOTAL NUMBER OF SEGMENTS «, t00=0x00c9, t01=0x015a}
0x13b74…13ba8 Head {h00=0x0030, h01=0x0050, text=» LD A3,SCTIPL GET FILE-CODE FOR LOAD DEVICE «, t00=0x00ca, t01=0x0008}
0x13ba8…13bc2 Head {h00=0x0016, h01=0x0050, text=» STR A3,A12 STORE «, t00=0x00ca, t01=0x003c}
0x13bc2…13bee Head {h00=0x0028, h01=0x0050, text=» ADKL A12,4 ADDRESS SEGMENT BLOCK 0 «, t00=0x00ca, t01=0x0056}
0x13bee…13c06 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A12 SAVE«, t00=0x00ca, t01=0x0082}
0x13c06…13c38 Head {h00=0x002e, h01=0x0050, text=»BST210 LDKL A2,/8400 STATUS FOR SEGMENT 0 «, t00=0x00ca, t01=0x009a}
0x13c38…13c5e Head {h00=0x0022, h01=0x0050, text=» STR A2,A12 STORE IN SEGBLK 0 «, t00=0x00ca, t01=0x00cc}
0x13c5e…13c8c Head {h00=0x002a, h01=0x0050, text=» LD A2,APLLAC,A10 GET START OF S:GTAB «, t00=0x00ca, t01=0x00f2}
0x13c8c…13cb6 Head {h00=0x0026, h01=0x0050, text=» CALL GETCON GET ADDRESS TO P:MTAB«, t00=0x00ca, t01=0x0120}
0x13cb6…13cce Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00ca, t01=0x014a}
0x13cce…13cf0 Head {h00=0x001e, h01=0x0050, text=» ADK A2,6 ADDRESS TO P:BAS«, t00=0x00ca, t01=0x0162}
0x13cf0…13d0e Head {h00=0x001a, h01=0x0050, text=» CALL GETCON GET P:BAS«, t00=0x00ca, t01=0x0184}
0x13d0e…13d34 Head {h00=0x0022, h01=0x0050, text=» ST A1,2,A12 STORE IN SEGBLK 0«, t00=0x00cb, t01=0x0012}
0x13d34…13d62 Head {h00=0x002a, h01=0x0050, text=» LD A2,APLLAC,A10 GET START OF S:GTAB «, t00=0x00cb, t01=0x0038}
0x13d62…13d90 Head {h00=0x002a, h01=0x0050, text=» ADK A2,10 ADDRESS NUMBER OF SEGMENTS «, t00=0x00cb, t01=0x0066}
0x13d90…13dbc Head {h00=0x0028, h01=0x0050, text=»BST220 ADKL A12,8 NEXT SEGMENT BLOCK«, t00=0x00cb, t01=0x0094}
0x13dbc…13de0 Head {h00=0x0020, h01=0x0050, text=» SUK A6,1 ANY MORE SEGMENTS?«, t00=0x00cb, t01=0x00c0}
0x13de0…13df8 Head {h00=0x0014, h01=0x0050, text=» RF(N) BST300 NO«, t00=0x00cb, t01=0x00e4}
0x13df8…13e1a Head {h00=0x001e, h01=0x0050, text=» LDK A7,0 INIT STATUS BYTE«, t00=0x00cb, t01=0x00fc}
0x13e1a…13e50 Head {h00=0x0032, h01=0x0050, text=» ADK A2,2 ADDRESS FIRST ENTRY IN SEGMENT BLOCK«, t00=0x00cb, t01=0x011e}
0x13e50…13e82 Head {h00=0x002e, h01=0x0050, text=» CALL GETCON GET SEGMENT TYPE/DISC ADDRESS«, t00=0x00cb, t01=0x0154}
0x13e82…13e9a Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x00cb, t01=0x0186}
0x13e9a…13ec2 Head {h00=0x0024, h01=0x0050, text=» ANK A3,/FF ISOLATE DISC ADDRESS«, t00=0x00cc, t01=0x000e}
0x13ec2…13ee8 Head {h00=0x0022, h01=0x0050, text=» SRL A1,8 ISOLATE SEGMENT TYPE«, t00=0x00cc, t01=0x0036}
0x13ee8…13f14 Head {h00=0x0028, h01=0x0050, text=» CCK A1,'RR' CORE RESIDENT SEGMENT? «, t00=0x00cc, t01=0x005c}
0x13f14…13f2e Head {h00=0x0016, h01=0x0050, text=» RF(E) BST230 YES «, t00=0x00cc, t01=0x0088}
0x13f2e…13f54 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00cc, t01=0x00a2}
0x13f54…13f72 Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00cc, t01=0x00c8}
0x13f72…13f8c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BST240 YES«, t00=0x00cc, t01=0x00e6}
0x13f8c…13fb2 Head {h00=0x0022, h01=0x0050, text=» XRR A3,A3 CLEAR DISC ADDRESS «, t00=0x00cc, t01=0x0100}
0x13fb2…13fea Head {h00=0x0034, h01=0x0050, text=» LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED«, t00=0x00cc, t01=0x0126}
0x13fea…14022 Head {h00=0x0034, h01=0x0050, text=» ADK A2,2 ADDRESS SEGMENT DISC ADDRESS BIT 8-23 «, t00=0x00cc, t01=0x015e}
0x14022…14034 Head {h00=0x000e, h01=0x0050, text=» RF BST270«, t00=0x00cd, t01=0x0008}
0x14034…14072 Head {h00=0x003a, h01=0x0050, text=»BST230 LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED«, t00=0x00cd, t01=0x001a}
0x14072…140a0 Head {h00=0x002a, h01=0x0050, text=»BST240 ADK A2,2 DISC ADDRESS BIT 8-23 «, t00=0x00cd, t01=0x0058}
0x140a0…140ce Head {h00=0x002a, h01=0x0050, text=» CALL GETCON GET SEGMENT DISC ADDRESS «, t00=0x00cd, t01=0x0086}
0x140ce…14102 Head {h00=0x0030, h01=0x0050, text=» AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A.«, t00=0x00cd, t01=0x00b4}
0x14102…1411e Head {h00=0x0018, h01=0x0050, text=» RF(O) BST250 CARRY «, t00=0x00cd, t01=0x00e8}
0x1411e…14130 Head {h00=0x000e, h01=0x0050, text=» RF BST260«, t00=0x00cd, t01=0x0104}
0x14130…1415e Head {h00=0x002a, h01=0x0050, text=»BST250 ADK A3,1 INCR. PART 1 OF D. A. «, t00=0x00cd, t01=0x0116}
0x1415e…14190 Head {h00=0x002e, h01=0x0050, text=» ANKL A1,/7FFF RESET OVERFLOW BIT (BIT 0) «, t00=0x00cd, t01=0x0144}
0x14190…141c8 Head {h00=0x0034, h01=0x0050, text=»BST260 AD A3,APLADA,A10 RELOCATE PART 1 OF D. A.«, t00=0x00cd, t01=0x0176}
0x141c8…141fa Head {h00=0x002e, h01=0x0050, text=» CWK A3,255 OVERFLOW IN PART 1 OF D. A. ? «, t00=0x00ce, t01=0x001e}
0x141fa…14214 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BST270 NO!«, t00=0x00ce, t01=0x0050}
0x14214…14240 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP10 INDICATE DEVICE ERROR«, t00=0x00ce, t01=0x006a}
0x14240…14254 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00ce, t01=0x0096}
0x14254…1428a Head {h00=0x0032, h01=0x0050, text=»BST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS«, t00=0x00ce, t01=0x00aa}
0x1428a…142a4 Head {h00=0x0016, h01=0x0050, text=» STR A7,A12 STORE «, t00=0x00ce, t01=0x00e0}
0x142a4…142d4 Head {h00=0x002c, h01=0x0050, text=» ST A1,2,A12 STORE DISC ADDRESS BIT 8-23«, t00=0x00ce, t01=0x00fa}
0x142d4…142fc Head {h00=0x0024, h01=0x0050, text=» ADK A2,2 ADDRESS SEGMENT LENGTH«, t00=0x00ce, t01=0x012a}
0x142fc…14324 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET SEGMENT LENGTH«, t00=0x00ce, t01=0x0152}
0x14324…14348 Head {h00=0x0020, h01=0x0050, text=» ST A1,4,A12 STORE IN SEGTAB«, t00=0x00ce, t01=0x017a}
0x14348…14372 Head {h00=0x0026, h01=0x0050, text=» CM 6,A12 CLEAR PAGEBLOCK POINTER «, t00=0x00cf, t01=0x000e}
0x14372…14384 Head {h00=0x000e, h01=0x0050, text=» RB BST220«, t00=0x00cf, t01=0x0038}
0x14384…143b8 Head {h00=0x0030, h01=0x0050, text=»BST300 CW A8,STKEND+TCTEND LAST TCTAB ENTRY?«, t00=0x00cf, t01=0x004a}
0x143b8…143d2 Head {h00=0x0016, h01=0x0050, text=» RF(E) BST400 YES «, t00=0x00cf, t01=0x007e}
0x143d2…143f6 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A8 GET TTAB ADDRESS«, t00=0x00cf, t01=0x0098}
0x143f6…1442a Head {h00=0x0030, h01=0x0050, text=» ST A4,TTB:SP,A2 STORE SEGMENT TABLE POINTER«, t00=0x00cf, t01=0x00bc}
0x1442a…14458 Head {h00=0x002a, h01=0x0050, text=» ADKL A8,2 INCREMENT POINTER IN TCTAB «, t00=0x00cf, t01=0x00f0}
0x14458…1446a Head {h00=0x000e, h01=0x0050, text=» RB BST300«, t00=0x00cf, t01=0x011e}
0x1446a…144a6 Head {h00=0x0038, h01=0x0050, text=»BST400 LD A1,STKEND+APLNO GET NUMBER OF APPLICATIONS«, t00=0x00cf, t01=0x0130}
0x144a6…144d0 Head {h00=0x0026, h01=0x0050, text=» RF(Z) BST410 NO MORE APPLICATIONS«, t00=0x00cf, t01=0x016c}
0x144d0…144f0 Head {h00=0x001c, h01=0x0050, text=» ABR A9 NEXT APPLICATION«, t00=0x00d0, t01=0x0008}
0x144f0…14504 Head {h00=0x0010, h01=0x0050, text=»BST410 EQU *«, t00=0x00d0, t01=0x0028}
0x14504…14528 Head {h00=0x0020, h01=0x0050, text=» CALL POB RESTORE REGISTERS «, t00=0x00d0, t01=0x003c}
0x14528…14540 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00d0, t01=0x0060}
0x14540…1454c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d0, t01=0x0078}
0x1454c…14568 Head {h00=0x0018, h01=0x0050, text=» IFF SPDVCL+TEDVCL=0«, t00=0x00d0, t01=0x0084}
0x14568…14576 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d0, t01=0x00a0}
0x14576…145c6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00d0, t01=0x00ae}
0x145c6…14614 Head {h00=0x004a, h01=0x0050, text=»* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES«, t00=0x00d0, t01=0x00fe}
0x14614…14664 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00d0, t01=0x014c}
0x14664…1466e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x000c}
0x1466e…1468e Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: MONCON«, t00=0x00d1, t01=0x0016}
0x1468e…14698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0036}
0x14698…146c8 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: SCTSFA - START OF FREE ARE (X)«, t00=0x00d1, t01=0x0040}
0x146c8…146fe Head {h00=0x0032, h01=0x0050, text=»* CONSTA - START OF CONFIGURATION DATA«, t00=0x00d1, t01=0x0070}
0x146fe…1472a Head {h00=0x0028, h01=0x0050, text=»* SCTEFA - END OF FREE AREA «, t00=0x00d1, t01=0x00a6}
0x1472a…14734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x00d2}
0x14734…14744 Head {h00=0x000c, h01=0x0050, text=»* EXIT:«, t00=0x00d1, t01=0x00dc}
0x14744…1474e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x00ec}
0x1474e…14770 Head {h00=0x001e, h01=0x0050, text=»* WORK REGISTERS: A1-A12«, t00=0x00d1, t01=0x00f6}
0x14770…1477a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0118}
0x1477a…147ba Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR«, t00=0x00d1, t01=0x0122}
0x147ba…147c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0162}
0x147c4…147d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d1, t01=0x016c}
0x147d2…147e6 Head {h00=0x0010, h01=0x0050, text=»B:DWTS EQU *«, t00=0x00d1, t01=0x017a}
0x147e6…147f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x018e}
0x147f0…1481a Head {h00=0x0026, h01=0x0050, text=»* GET START OF CONFIGURATION FILE«, t00=0x00d2, t01=0x0008}
0x1481a…14824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x0032}
0x14824…1484e Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x00d2, t01=0x003c}
0x1484e…14858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x0066}
0x14858…14892 Head {h00=0x0036, h01=0x0050, text=»* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK«, t00=0x00d2, t01=0x0070}
0x14892…1489c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x00aa}
0x1489c…148c6 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00d2, t01=0x00b4}
0x148c6…148fa Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x00d2, t01=0x00de}
0x148fa…1492a Head {h00=0x002c, h01=0x0050, text=» ST P,STKEND+ECHTAB START OF ECHO TABLE «, t00=0x00d2, t01=0x0112}
0x1492a…14934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x0142}
0x14934…14954 Head {h00=0x001c, h01=0x0050, text=»* GET ADDRESS TO TC:TAB«, t00=0x00d2, t01=0x014c}
0x14954…1495e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x016c}
0x1495e…14992 Head {h00=0x0030, h01=0x0050, text=»DWTS05 LD A7,APLMMC,A2 GET FIRST TCTAB ENTRY«, t00=0x00d2, t01=0x0176}
0x14992…149a4 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x00d3, t01=0x001a}
0x149a4…149b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d3, t01=0x002c}
0x149b2…149c6 Head {h00=0x0010, h01=0x0050, text=»DWTS10 EQU *«, t00=0x00d3, t01=0x003a}
0x149c6…149d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x004e}
0x149d0…14a02 Head {h00=0x002e, h01=0x0050, text=»* GET NUMBER OF TASKS IN THIS TASK CLASS «, t00=0x00d3, t01=0x0058}
0x14a02…14a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x008a}
0x14a0c…14a20 Head {h00=0x0010, h01=0x0050, text=» CALL GETTSK«, t00=0x00d3, t01=0x0094}
0x14a20…14a34 Head {h00=0x0010, h01=0x0050, text=»DWTS20 EQU *«, t00=0x00d3, t01=0x00a8}
0x14a34…14a56 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+NBRTSK SAVE «, t00=0x00d3, t01=0x00bc}
0x14a56…14a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x00de}
0x14a60…14a8e Head {h00=0x002a, h01=0x0050, text=»* GET CORRESPONDING TASK TABLE (TTAB)«, t00=0x00d3, t01=0x00e8}
0x14a8e…14a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x0116}
0x14a98…14aac Head {h00=0x0010, h01=0x0050, text=»DWTS25 EQU *«, t00=0x00d3, t01=0x0120}
0x14aac…14ad2 Head {h00=0x0022, h01=0x0050, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x00d3, t01=0x0134}
0x14ad2…14af8 Head {h00=0x0022, h01=0x0050, text=» LDR* A10,A7 GET TTAB ADDRESS «, t00=0x00d3, t01=0x015a}
0x14af8…14b2a Head {h00=0x002e, h01=0x0050, text=» ADKL A10,TTB:TD+2 TASK DEVICE TABLE ENTRY«, t00=0x00d3, t01=0x0180}
0x14b2a…14b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x0022}
0x14b34…14b68 Head {h00=0x0030, h01=0x0050, text=»* INIT SUB-POINTER IN TASK DEFINITION BLOCK«, t00=0x00d4, t01=0x002c}
0x14b68…14b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x0060}
0x14b72…14ba4 Head {h00=0x002e, h01=0x0050, text=» LDR A9,A11 START OF TASK DEFINITION BLOCK«, t00=0x00d4, t01=0x006a}
0x14ba4…14bd4 Head {h00=0x002c, h01=0x0050, text=» ADKL A9,TDBFST START OF TDC DEFINITION «, t00=0x00d4, t01=0x009c}
0x14bd4…14be2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d4, t01=0x00cc}
0x14be2…14bec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x00da}
0x14bec…14c24 Head {h00=0x0034, h01=0x0050, text=»* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS «, t00=0x00d4, t01=0x00e4}
0x14c24…14c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x011c}
0x14c2e…14c42 Head {h00=0x0010, h01=0x0050, text=» CALL GETTDC«, t00=0x00d4, t01=0x0126}
0x14c42…14c54 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x00d4, t01=0x013a}
0x14c54…14c68 Head {h00=0x0010, h01=0x0050, text=»DWTS30 EQU *«, t00=0x00d4, t01=0x014c}
0x14c68…14c7e Head {h00=0x0012, h01=0x0050, text=» RF(Z) DWTS40 «, t00=0x00d4, t01=0x0160}
0x14c7e…14c9e Head {h00=0x001c, h01=0x0050, text=» CALL GETCLN GET TDC ID «, t00=0x00d4, t01=0x0176}
0x14c9e…14cb0 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A1«, t00=0x00d5, t01=0x0008}
0x14cb0…14ce0 Head {h00=0x002c, h01=0x0050, text=» LD A8,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x00d5, t01=0x001a}
0x14ce0…14d02 Head {h00=0x001e, h01=0x0050, text=» ADR A8,A1 GET CLASS ENTRY«, t00=0x00d5, t01=0x004a}
0x14d02…14d2a Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x00d5, t01=0x006c}
0x14d2a…14d52 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x00d5, t01=0x0094}
0x14d52…14d78 Head {h00=0x0022, h01=0x0050, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x00d5, t01=0x00bc}
0x14d78…14da6 Head {h00=0x002a, h01=0x0050, text=» ADR A10,A8 INCREMENT POINTER IN TTAB «, t00=0x00d5, t01=0x00e2}
0x14da6…14dda Head {h00=0x0030, h01=0x0050, text=» ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD «, t00=0x00d5, t01=0x0110}
0x14dda…14e06 Head {h00=0x0028, h01=0x0050, text=» SUK A6,1 DECREMENT NUMBER OF TDC:S «, t00=0x00d5, t01=0x0144}
0x14e06…14e18 Head {h00=0x000e, h01=0x0050, text=» RB DWTS30«, t00=0x00d5, t01=0x0170}
0x14e18…14e2c Head {h00=0x0010, h01=0x0050, text=»DWTS40 EQU *«, t00=0x00d5, t01=0x0182}
0x14e2c…14e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0008}
0x14e36…14e66 Head {h00=0x002c, h01=0x0050, text=»* GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x00d6, t01=0x0012}
0x14e66…14e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0042}
0x14e70…14e84 Head {h00=0x0010, h01=0x0050, text=» CALL GETSDC«, t00=0x00d6, t01=0x004c}
0x14e84…14ea2 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,SDCFST-CDBNC «, t00=0x00d6, t01=0x0060}
0x14ea2…14eb4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x00d6, t01=0x007e}
0x14eb4…14ec8 Head {h00=0x0010, h01=0x0050, text=»DWTS50 EQU *«, t00=0x00d6, t01=0x0090}
0x14ec8…14ede Head {h00=0x0012, h01=0x0050, text=» RF(Z) DWTS90 «, t00=0x00d6, t01=0x00a4}
0x14ede…14f00 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+NBRSDC SAVE «, t00=0x00d6, t01=0x00ba}
0x14f00…14f0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x00dc}
0x14f0a…14f34 Head {h00=0x0026, h01=0x0050, text=»* GET SPECIAL DEVICE CLASS NUMBER«, t00=0x00d6, t01=0x00e6}
0x14f34…14f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0110}
0x14f3e…14f52 Head {h00=0x0010, h01=0x0050, text=» CALL GETCLN«, t00=0x00d6, t01=0x011a}
0x14f52…14f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x012e}
0x14f5c…14f98 Head {h00=0x0038, h01=0x0050, text=»* GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS «, t00=0x00d6, t01=0x0138}
0x14f98…14fa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0174}
0x14fa2…14fb4 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A1«, t00=0x00d6, t01=0x017e}
0x14fb4…14fe0 Head {h00=0x0028, h01=0x0050, text=» LD A6,STKEND+SCLA POINTER TO SCLASS«, t00=0x00d6, t01=0x0190}
0x14fe0…15000 Head {h00=0x001c, h01=0x0050, text=» ADR A6,A1 SELECT ENTRY «, t00=0x00d7, t01=0x002c}
0x15000…15028 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO CLASS«, t00=0x00d7, t01=0x004c}
0x15028…15040 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A6 SAVE «, t00=0x00d7, t01=0x0074}
0x15040…1505e Head {h00=0x001a, h01=0x0050, text=» LDR* A6,A6 GET LENGTH«, t00=0x00d7, t01=0x008c}
0x1505e…15084 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00d7, t01=0x00aa}
0x15084…15098 Head {h00=0x0010, h01=0x0050, text=»DWTS60 EQU *«, t00=0x00d7, t01=0x00d0}
0x15098…150b4 Head {h00=0x0018, h01=0x0050, text=» ADK A5,4 GET DEVICE«, t00=0x00d7, t01=0x00e4}
0x150b4…150e0 Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A5 GET ADDRESS TO TYPE DWT «, t00=0x00d7, t01=0x0100}
0x150e0…1510c Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTLEN,A1 GENERATION OF DWT? «, t00=0x00d7, t01=0x012c}
0x1510c…15124 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWTS70 NO«, t00=0x00d7, t01=0x0158}
0x15124…1512e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x0170}
0x1512e…15142 Head {h00=0x0010, h01=0x0050, text=»* COPY DWT «, t00=0x00d7, t01=0x017a}
0x15142…1514c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x018e}
0x1514c…1516a Head {h00=0x001a, h01=0x0050, text=» LDR A2,A12 TO-ADDRESS«, t00=0x00d8, t01=0x0008}
0x1516a…1519a Head {h00=0x002c, h01=0x0050, text=» ADR A12,A3 UPDATE POINTER TO FREE AREA «, t00=0x00d8, t01=0x0026}
0x1519a…151b8 Head {h00=0x001a, h01=0x0050, text=» CALL CHKMOV COPY DWT «, t00=0x00d8, t01=0x0056}
0x151b8…151c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d8, t01=0x0074}
0x151c6…151d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x0082}
0x151d0…15208 Head {h00=0x0034, h01=0x0050, text=»* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM«, t00=0x00d8, t01=0x008c}
0x15208…15212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x00c4}
0x15212…15238 Head {h00=0x0022, h01=0x0050, text=» LD A3,SCTOPT GET OPTION WORD «, t00=0x00d8, t01=0x00ce}
0x15238…15258 Head {h00=0x001c, h01=0x0050, text=» ANK A3,1 MMU IN SYSTEM?«, t00=0x00d8, t01=0x00f4}
0x15258…15272 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DWTS65 NO! «, t00=0x00d8, t01=0x0114}
0x15272…1529e Head {h00=0x0028, h01=0x0050, text=» LDR A3,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x00d8, t01=0x012e}
0x1529e…152cc Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 COMPUTE RELOCATION CONSTANT«, t00=0x00d8, t01=0x015a}
0x152cc…152fc Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x00d8, t01=0x0188}
0x152fc…15318 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A3 RELOCATE «, t00=0x00d9, t01=0x0028}
0x15318…15340 Head {h00=0x0024, h01=0x0050, text=» ANKL A4,/FFFE MAKE EVEN ADDRESS«, t00=0x00d9, t01=0x0044}
0x15340…15366 Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTMEC,A2 STORE IT BACK«, t00=0x00d9, t01=0x006c}
0x15366…1537a Head {h00=0x0010, h01=0x0050, text=»DWTS65 EQU *«, t00=0x00d9, t01=0x0092}
0x1537a…153a2 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A2 DT-ADDRESS TO BE USED«, t00=0x00d9, t01=0x00a6}
0x153a2…153b6 Head {h00=0x0010, h01=0x0050, text=»DWTS70 EQU *«, t00=0x00d9, t01=0x00ce}
0x153b6…153c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x00e2}
0x153c0…153f2 Head {h00=0x002e, h01=0x0050, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x00d9, t01=0x00ec}
0x153f2…153fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x011e}
0x153fc…15422 Head {h00=0x0022, h01=0x0050, text=» ST A1,2,A10 STORE DWT-ADDRESS«, t00=0x00d9, t01=0x0128}
0x15422…1544a Head {h00=0x0024, h01=0x0050, text=» LD A1,-2,A5 GET INDEX/FILECODE «, t00=0x00d9, t01=0x014e}
0x1544a…1546a Head {h00=0x001c, h01=0x0050, text=» STR A1,A10 SAVE IN TTAB«, t00=0x00d9, t01=0x0176}
0x1546a…154a0 Head {h00=0x0032, h01=0x0050, text=» ADKL A10,4 UPDATE TASK CONFIGURATION POINTER «, t00=0x00da, t01=0x0008}
0x154a0…154b4 Head {h00=0x0010, h01=0x0050, text=»DWTS80 EQU *«, t00=0x00da, t01=0x003e}
0x154b4…154e2 Head {h00=0x002a, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF DEVICES «, t00=0x00da, t01=0x0052}
0x154e2…15504 Head {h00=0x001e, h01=0x0050, text=» RB(P) DWTS60 NEXT DEVICE «, t00=0x00da, t01=0x0080}
0x15504…15512 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00da, t01=0x00a2}
0x15512…1551c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x00b0}
0x1551c…15554 Head {h00=0x0034, h01=0x0050, text=»* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS «, t00=0x00da, t01=0x00ba}
0x15554…1555e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x00f2}
0x1555e…15574 Head {h00=0x0012, h01=0x0050, text=» ADKL A9,SDC «, t00=0x00da, t01=0x00fc}
0x15574…15590 Head {h00=0x0018, h01=0x0050, text=» LD A1,STKEND+NBRSDC«, t00=0x00da, t01=0x0112}
0x15590…155a2 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00da, t01=0x012e}
0x155a2…155b4 Head {h00=0x000e, h01=0x0050, text=» RB DWTS50«, t00=0x00da, t01=0x0140}
0x155b4…155c8 Head {h00=0x0010, h01=0x0050, text=»DWTS90 EQU *«, t00=0x00da, t01=0x0152}
0x155c8…155d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0166}
0x155d2…1560e Head {h00=0x0038, h01=0x0050, text=»* CHECK IF MOORE TASKS WITH THE SAME CONFIGURATION «, t00=0x00da, t01=0x0170}
0x1560e…15618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x001c}
0x15618…15634 Head {h00=0x0018, h01=0x0050, text=» LD A1,STKEND+NBRTSK«, t00=0x00db, t01=0x0026}
0x15634…15646 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00db, t01=0x0042}
0x15646…1565c Head {h00=0x0012, h01=0x0050, text=» RB(P) DWTS20 «, t00=0x00db, t01=0x0054}
0x1565c…15666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x006a}
0x15666…15696 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF MOORE TASK DEFINITION BLOCKS«, t00=0x00db, t01=0x0074}
0x15696…156a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x00a4}
0x156a0…156b4 Head {h00=0x0010, h01=0x0050, text=» CALL NXTBLK«, t00=0x00db, t01=0x00ae}
0x156b4…156e0 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00db, t01=0x00c2}
0x156e0…156fa Head {h00=0x0016, h01=0x0050, text=» RB(E) DWTS10 YES «, t00=0x00db, t01=0x00ee}
0x156fa…15724 Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00db, t01=0x0108}
0x15724…15752 Head {h00=0x002a, h01=0x0050, text=» RB(P) DWTS05 PROCESS NEXT APPLICATION«, t00=0x00db, t01=0x0132}
0x15752…15768 Head {h00=0x0012, h01=0x0050, text=» ST A12,SCTSFA«, t00=0x00db, t01=0x0160}
0x15768…15772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x0176}
0x15772…157a8 Head {h00=0x0032, h01=0x0050, text=»* CLEAR WORK AREA TO BE USED FOR ECHO DEVICE «, t00=0x00db, t01=0x0180}
0x157a8…157d2 Head {h00=0x0026, h01=0x0050, text=»* AND TEMPORARY INTERRUPT TABLES «, t00=0x00dc, t01=0x0026}
0x157d2…157dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x0050}
0x157dc…15806 Head {h00=0x0026, h01=0x0050, text=» LDR A1,P GET LOCATION COUNTER =4 «, t00=0x00dc, t01=0x005a}
0x15806…1583a Head {h00=0x0030, h01=0x0050, text=»DWTS95 SUK A1,2 DECREMENT MEMORY ADDRESS =4 «, t00=0x00dc, t01=0x0084}
0x1583a…1585e Head {h00=0x0020, h01=0x0050, text=» CMR A1 CLEAR MEMORY AREA =4«, t00=0x00dc, t01=0x00b8}
0x1585e…1588a Head {h00=0x0028, h01=0x0050, text=» CW A1,SCTSFA ALL WORDS CLEARED? =4 «, t00=0x00dc, t01=0x00dc}
0x1588a…158a8 Head {h00=0x001a, h01=0x0050, text=» RB(NE) DWTS95 NO! =4 «, t00=0x00dc, t01=0x0108}
0x158a8…158c0 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00dc, t01=0x0126}
0x158c0…158cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00dc, t01=0x013e}
0x158cc…158e2 Head {h00=0x0012, h01=0x0050, text=» IFF TEDVCL=0 «, t00=0x00dc, t01=0x014a}
0x158e2…158f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00dc, t01=0x0160}
0x158f0…15928 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00dc, t01=0x016e}
0x15928…15960 Head {h00=0x0034, h01=0x0050, text=»* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES *«, t00=0x00dd, t01=0x0016}
0x15960…15998 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00dd, t01=0x004e}
0x15998…159d0 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00dd, t01=0x0086}
0x159d0…159da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x00be}
0x159da…159fa Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: MONCON«, t00=0x00dd, t01=0x00c8}
0x159fa…15a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x00e8}
0x15a04…15a16 Head {h00=0x000e, h01=0x0050, text=»* ENTRY: «, t00=0x00dd, t01=0x00f2}
0x15a16…15a20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x0104}
0x15a20…15a30 Head {h00=0x000c, h01=0x0050, text=»* EXIT:«, t00=0x00dd, t01=0x010e}
0x15a30…15a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x011e}
0x15a3a…15a5c Head {h00=0x001e, h01=0x0050, text=»* WORK REGISTERS: A1-A12 «, t00=0x00dd, t01=0x0128}
0x15a5c…15a66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x014a}
0x15a66…15aae Head {h00=0x0044, h01=0x0050, text=»* SUBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK«, t00=0x00dd, t01=0x0154}
0x15aae…15ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x000c}
0x15ab8…15ac6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00de, t01=0x0016}
0x15ac6…15ada Head {h00=0x0010, h01=0x0050, text=»B:DWTT EQU *«, t00=0x00de, t01=0x0024}
0x15ada…15b02 Head {h00=0x0024, h01=0x0050, text=» CM STKEND+FWTFLG CLEAR FWT FLAG«, t00=0x00de, t01=0x0038}
0x15b02…15b2a Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTFWT START OF FWT AREA «, t00=0x00de, t01=0x0060}
0x15b2a…15b52 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) BDWT15 FWT AREA RESERVED«, t00=0x00de, t01=0x0088}
0x15b52…15b6e Head {h00=0x0018, h01=0x0050, text=» LD A1,STKEND+LIMIT «, t00=0x00de, t01=0x00b0}
0x15b6e…15baa Head {h00=0x0038, h01=0x0050, text=» ST A1,STKEND+INTTAB START OF T.I.T. IF NO FWT AREA «, t00=0x00de, t01=0x00cc}
0x15baa…15bce Head {h00=0x0020, h01=0x0050, text=» IM STKEND+FWTFLG INCREMENT «, t00=0x00de, t01=0x0108}
0x15bce…15be2 Head {h00=0x0010, h01=0x0050, text=»BDWT15 EQU *«, t00=0x00de, t01=0x012c}
0x15be2…15bf0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00de, t01=0x0140}
0x15bf0…15bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x014e}
0x15bfa…15c24 Head {h00=0x0026, h01=0x0050, text=»* INIT CONFIGURATION DATA POINTER«, t00=0x00de, t01=0x0158}
0x15c24…15c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x0182}
0x15c2e…15c58 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00de, t01=0x018c}
0x15c58…15c86 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x00df, t01=0x0026}
0x15c86…15c90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x0054}
0x15c90…15cd6 Head {h00=0x0042, h01=0x0050, text=»* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY«, t00=0x00df, t01=0x005e}
0x15cd6…15ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x00a4}
0x15ce0…15d12 Head {h00=0x002e, h01=0x0050, text=» LD A5,APLMMC,A2 GET FIRST USER TASK ENTRY«, t00=0x00df, t01=0x00ae}
0x15d12…15d50 Head {h00=0x003a, h01=0x0050, text=» ST A5,STKEND+CUTENT STORE IN CURRENT USER TASK ENTRY «, t00=0x00df, t01=0x00e0}
0x15d50…15d64 Head {h00=0x0010, h01=0x0050, text=»BDWT40 EQU *«, t00=0x00df, t01=0x011e}
0x15d64…15d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x0132}
0x15d6e…15da0 Head {h00=0x002e, h01=0x0050, text=»* GET NUMBER OF TASKS IN THIS TASK CLASS «, t00=0x00df, t01=0x013c}
0x15da0…15daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x016e}
0x15daa…15dd2 Head {h00=0x0024, h01=0x0050, text=» CALL GETTSK GET NUMBER OF TASKS«, t00=0x00df, t01=0x0178}
0x15dd2…15de6 Head {h00=0x0010, h01=0x0050, text=»BDWT50 EQU *«, t00=0x00e0, t01=0x0010}
0x15de6…15e14 Head {h00=0x002a, h01=0x0050, text=» ST A1,STKEND+NBRTSK SAVE BINARY VALUE«, t00=0x00e0, t01=0x0024}
0x15e14…15e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x0052}
0x15e1e…15e62 Head {h00=0x0040, h01=0x0050, text=»* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS «, t00=0x00e0, t01=0x005c}
0x15e62…15e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x00a0}
0x15e6c…15e80 Head {h00=0x0010, h01=0x0050, text=» CALL GETTDC«, t00=0x00e0, t01=0x00aa}
0x15e80…15e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x00be}
0x15e8a…15eb2 Head {h00=0x0024, h01=0x0050, text=»* CHECK IF TASK WITHOUT DEVICES«, t00=0x00e0, t01=0x00c8}
0x15eb2…15ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x00f0}
0x15ebc…15ee4 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 ANY TERMINAL DEVICES?«, t00=0x00e0, t01=0x00fa}
0x15ee4…15efc Head {h00=0x0014, h01=0x0050, text=» RF(Z) BDW100 NO«, t00=0x00e0, t01=0x0122}
0x15efc…15f3a Head {h00=0x003a, h01=0x0050, text=» ST A1,STKEND+NBRTDC SAVE NUMBER OF TERMINAL DEVICESS «, t00=0x00e0, t01=0x013a}
0x15f3a…15f6a Head {h00=0x002c, h01=0x0050, text=» LD* A10,STKEND+CUTENT GET TTAB ADDRESS «, t00=0x00e0, t01=0x0178}
0x15f6a…15fa4 Head {h00=0x0036, h01=0x0050, text=» ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE «, t00=0x00e1, t01=0x0018}
0x15fa4…15fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0052}
0x15fae…15fda Head {h00=0x0028, h01=0x0050, text=»* GET TERMINAL DEVICE CLASS NUMBER «, t00=0x00e1, t01=0x005c}
0x15fda…15fe4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0088}
0x15fe4…16016 Head {h00=0x002e, h01=0x0050, text=» LDR A9,A11 START OF TASK DEFINITION BLOCK«, t00=0x00e1, t01=0x0092}
0x16016…1604e Head {h00=0x0034, h01=0x0050, text=» ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION«, t00=0x00e1, t01=0x00c4}
0x1604e…16062 Head {h00=0x0010, h01=0x0050, text=»BDWT55 EQU *«, t00=0x00e1, t01=0x00fc}
0x16062…16088 Head {h00=0x0022, h01=0x0050, text=» CALL GETCLN GET CLASS NUMBER «, t00=0x00e1, t01=0x0110}
0x16088…160b6 Head {h00=0x002a, h01=0x0050, text=» ST A1,STKEND+CLANBR SAVE BINARY VALUE«, t00=0x00e1, t01=0x0136}
0x160b6…160c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0164}
0x160c0…160fe Head {h00=0x003a, h01=0x0050, text=»* FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS «, t00=0x00e1, t01=0x016e}
0x160fe…16108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x001c}
0x16108…16142 Head {h00=0x0036, h01=0x0050, text=» LD A2,STKEND+CLANBR GET BINARY VALUE OF CLASS ID «, t00=0x00e2, t01=0x0026}
0x16142…1615a Head {h00=0x0014, h01=0x0050, text=» ADR A2,A2 2*ID «, t00=0x00e2, t01=0x0060}
0x1615a…16186 Head {h00=0x0028, h01=0x0050, text=» LD A7,STKEND+TCLA POINTER TO TCLASS«, t00=0x00e2, t01=0x0078}
0x16186…161a2 Head {h00=0x0018, h01=0x0050, text=» ADR A7,A2 GET ENTRY«, t00=0x00e2, t01=0x00a4}
0x161a2…161ca Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET POINTER TO CLASS«, t00=0x00e2, t01=0x00c0}
0x161ca…161d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x00e8}
0x161d4…16218 Head {h00=0x0040, h01=0x0050, text=»* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS«, t00=0x00e2, t01=0x00f2}
0x16218…16230 Head {h00=0x0014, h01=0x0050, text=»* IN THIS TASK «, t00=0x00e2, t01=0x0136}
0x16230…1623a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x014e}
0x1623a…1626a Head {h00=0x002c, h01=0x0050, text=» CALL GETLCN GET LINE CONNECTION NUMBER «, t00=0x00e2, t01=0x0158}
0x1626a…1628e Head {h00=0x0020, h01=0x0050, text=» LDR A6,A1 SAVE BINARY VALUE«, t00=0x00e2, t01=0x0188}
0x1628e…162be Head {h00=0x002c, h01=0x0050, text=» LC A4,TDC+6,A9 GET LINE CONNECTION TYPE«, t00=0x00e3, t01=0x001c}
0x162be…162e6 Head {h00=0x0024, h01=0x0050, text=» CCK A4,'AA' ASCU4Z CONNECTION? «, t00=0x00e3, t01=0x004c}
0x162e6…16300 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BDWT58 NO!«, t00=0x00e3, t01=0x0074}
0x16300…16332 Head {h00=0x002e, h01=0x0050, text=» LDR* A8,A7 YES! GET LENGTH OF THIS CLASS «, t00=0x00e3, t01=0x008e}
0x16332…1635a Head {h00=0x0024, h01=0x0050, text=» SUKL A8,2 EXCLUSIVE LENGTH WORD«, t00=0x00e3, t01=0x00c0}
0x1635a…16378 Head {h00=0x001a, h01=0x0050, text=» CWK A8,4 ONE DEVICE? «, t00=0x00e3, t01=0x00e8}
0x16378…16392 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BDWT57 NO!«, t00=0x00e3, t01=0x0106}
0x16392…163be Head {h00=0x0028, h01=0x0050, text=» LD A8,4,A7 GET ADDRESS TO PROT.DWT «, t00=0x00e3, t01=0x0120}
0x163be…163e2 Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTTAB,A8 GET DEVICE «, t00=0x00e3, t01=0x014c}
0x163e2…16400 Head {h00=0x001a, h01=0x0050, text=» CWK A4,/C459 /C459 ? «, t00=0x00e3, t01=0x0170}
0x16400…1641a Head {h00=0x0016, h01=0x0050, text=» RF(E) BDWT58 YES!«, t00=0x00e3, t01=0x018e}
0x1641a…1642e Head {h00=0x0010, h01=0x0050, text=»BDWT57 EQU *«, t00=0x00e4, t01=0x0018}
0x1642e…16460 Head {h00=0x002e, h01=0x0050, text=» ADK A1,1 INCREMENT LINE CONNECTION NUMBER«, t00=0x00e4, t01=0x002c}
0x16460…16474 Head {h00=0x0010, h01=0x0050, text=»BDWT58 EQU *«, t00=0x00e4, t01=0x005e}
0x16474…164a6 Head {h00=0x002e, h01=0x0050, text=» ADK A1,1 INCREMENT LINE CONNECTION NUMBER«, t00=0x00e4, t01=0x0072}
0x164a6…164de Head {h00=0x0034, h01=0x0050, text=» CALL BINASC CONVERT INCREMENTED VALUE TO ASCII «, t00=0x00e4, t01=0x00a4}
0x164de…1650a Head {h00=0x0028, h01=0x0050, text=» SC A1,TDC+5,A9 STORE ASCII DIGIT =2«, t00=0x00e4, t01=0x00dc}
0x1650a…16534 Head {h00=0x0026, h01=0x0050, text=» SRL A1,8 MOVE LEFT ASCII DIGIT =2«, t00=0x00e4, t01=0x0108}
0x16534…16560 Head {h00=0x0028, h01=0x0050, text=» SC A1,TDC+4,A9 STORE ASCII DIGIT =2«, t00=0x00e4, t01=0x0132}
0x16560…16592 Head {h00=0x002e, h01=0x0050, text=» SC A5,TDC+3,A9 STORE ASCII DIGIT DIGIT =2«, t00=0x00e4, t01=0x015e}
0x16592…165a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e4, t01=0x0190}
0x165a0…165aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x000e}
0x165aa…165d2 Head {h00=0x0024, h01=0x0050, text=»* GENERATE DWT:S FOR THIS CLASS«, t00=0x00e5, t01=0x0018}
0x165d2…16608 Head {h00=0x0032, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER (BINARY VALUE) «, t00=0x00e5, t01=0x0040}
0x16608…16638 Head {h00=0x002c, h01=0x0050, text=»* A7 - POINTER TO TERMINAL DEVICE CLASS«, t00=0x00e5, t01=0x0076}
0x16638…16642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x00a6}
0x16642…16674 Head {h00=0x002e, h01=0x0050, text=»* THE ENTRY IN TEMPORARY INTERRUPT TABLE «, t00=0x00e5, t01=0x00b0}
0x16674…166a6 Head {h00=0x002e, h01=0x0050, text=»* IS DERIVED FROM LINE CONNECTION NUMBER,«, t00=0x00e5, t01=0x00e2}
0x166a6…166e4 Head {h00=0x003a, h01=0x0050, text=»* DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT)«, t00=0x00e5, t01=0x0114}
0x166e4…166ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x0152}
0x166ee…16702 Head {h00=0x0010, h01=0x0050, text=» CALL DWTGEN«, t00=0x00e5, t01=0x015c}
0x16702…16716 Head {h00=0x0010, h01=0x0050, text=»BDWT90 EQU *«, t00=0x00e5, t01=0x0170}
0x16716…16758 Head {h00=0x003e, h01=0x0050, text=» LD A1,STKEND+NBRTDC GET NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x00e5, t01=0x0184}
0x16758…16788 Head {h00=0x002c, h01=0x0050, text=» SUK A1,1 ANY MOORE IN THIS TASK CLASS? «, t00=0x00e6, t01=0x0036}
0x16788…167a0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BDW100 NO«, t00=0x00e6, t01=0x0066}
0x167a0…167d2 Head {h00=0x002e, h01=0x0050, text=» ST A1,STKEND+NBRTDC SAVE REMAINING NUMBER«, t00=0x00e6, t01=0x007e}
0x167d2…167fa Head {h00=0x0024, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT TDC RECORD«, t00=0x00e6, t01=0x00b0}
0x167fa…1680c Head {h00=0x000e, h01=0x0050, text=» RB BDWT55«, t00=0x00e6, t01=0x00d8}
0x1680c…16820 Head {h00=0x0010, h01=0x0050, text=»BDW100 EQU *«, t00=0x00e6, t01=0x00ea}
0x16820…16846 Head {h00=0x0022, h01=0x0050, text=» CALL ECHO INIT ECHO POINTERS «, t00=0x00e6, t01=0x00fe}
0x16846…1687e Head {h00=0x0034, h01=0x0050, text=» LD A1,STKEND+CUTENT GET CURRENT ENTRY IN TC:TAB«, t00=0x00e6, t01=0x0124}
0x1687e…168a8 Head {h00=0x0026, h01=0x0050, text=» ADK A1,2 INCREMENT ENTRY POINTER «, t00=0x00e6, t01=0x015c}
0x168a8…168ca Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+CUTENT SAVE «, t00=0x00e6, t01=0x0186}
0x168ca…16908 Head {h00=0x003a, h01=0x0050, text=» LD A1,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS«, t00=0x00e7, t01=0x0018}
0x16908…1692e Head {h00=0x0022, h01=0x0050, text=» SUK A1,1 ANY MOORE TASKS LEFT«, t00=0x00e7, t01=0x0056}
0x1692e…16948 Head {h00=0x0016, h01=0x0050, text=» RB(P) BDWT50 YES «, t00=0x00e7, t01=0x007c}
0x16948…16978 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF MOORE TASK DEFINITION BLOCKS«, t00=0x00e7, t01=0x0096}
0x16978…16982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x00c6}
0x16982…169aa Head {h00=0x0024, h01=0x0050, text=» CALL NXTBLK SKIP TO NEXT BLOCK «, t00=0x00e7, t01=0x00d0}
0x169aa…169d6 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00e7, t01=0x00f8}
0x169d6…169f0 Head {h00=0x0016, h01=0x0050, text=» RB(E) BDWT40 YES «, t00=0x00e7, t01=0x0124}
0x169f0…169fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e7, t01=0x013e}
0x169fe…16a28 Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00e7, t01=0x014c}
0x16a28…16a3e Head {h00=0x0012, h01=0x0050, text=» RB(P) BDWT40 «, t00=0x00e7, t01=0x0176}
0x16a3e…16a6e Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x00e7, t01=0x018c}
0x16a6e…16a86 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00e8, t01=0x002c}
0x16a86…16a92 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e8, t01=0x0044}
0x16a92…16aa2 Head {h00=0x000c, h01=0x0050, text=» EJECT «, t00=0x00e8, t01=0x0050}
0x16aa2…16ad2 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x00e8, t01=0x0060}
0x16ad2…16b02 Head {h00=0x002c, h01=0x0050, text=»* B:CDT - BUILD COMMON DEVICE TABLE *«, t00=0x00e8, t01=0x0090}
0x16b02…16b32 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x00e8, t01=0x00c0}
0x16b32…16b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00f0}
0x16b3c…16b5e Head {h00=0x001e, h01=0x0050, text=»* REFERENCED IN: SYSLDM «, t00=0x00e8, t01=0x00fa}
0x16b5e…16b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x011c}
0x16b68…16b96 Head {h00=0x002a, h01=0x0050, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x00e8, t01=0x0126}
0x16b96…16bce Head {h00=0x0034, h01=0x0050, text=»* CONSTA - START OF CONFIGURATION DATA «, t00=0x00e8, t01=0x0154}
0x16bce…16bfa Head {h00=0x0028, h01=0x0050, text=»* SCTEFA - END OF FREE AREA«, t00=0x00e8, t01=0x018c}
0x16bfa…16c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0028}
0x16c04…16c3c Head {h00=0x0034, h01=0x0050, text=»* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE«, t00=0x00e9, t01=0x0032}
0x16c3c…16c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x006a}
0x16c46…16c68 Head {h00=0x001e, h01=0x0050, text=»* WORK REGISTERS: A1-A12 «, t00=0x00e9, t01=0x0074}
0x16c68…16c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0096}
0x16c72…16cb2 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE«, t00=0x00e9, t01=0x00a0}
0x16cb2…16cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x00e0}
0x16cbc…16cca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e9, t01=0x00ea}
0x16cca…16cde Head {h00=0x0010, h01=0x0050, text=»B:CDT EQU * «, t00=0x00e9, t01=0x00f8}
0x16cde…16d08 Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x00e9, t01=0x010c}
0x16d08…16d26 Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 RESET LENGTH«, t00=0x00e9, t01=0x0136}
0x16d26…16d50 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00e9, t01=0x0154}
0x16d50…16d5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x017e}
0x16d5a…16d88 Head {h00=0x002a, h01=0x0050, text=»* GET COMMON DEVICE DEFINITION BLOCK «, t00=0x00e9, t01=0x0188}
0x16d88…16d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x0026}
0x16d92…16da6 Head {h00=0x0010, h01=0x0050, text=»CDG:10 EQU *«, t00=0x00ea, t01=0x0030}
0x16da6…16dba Head {h00=0x0010, h01=0x0050, text=» CALL NXTBLK«, t00=0x00ea, t01=0x0044}
0x16dba…16de6 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00ea, t01=0x0058}
0x16de6…16e00 Head {h00=0x0016, h01=0x0050, text=» RB(E) CDG:10 YES «, t00=0x00ea, t01=0x0084}
0x16e00…16e2c Head {h00=0x0028, h01=0x0050, text=» CCK A2,'CC' COMMON DEV. DEF. BLOCK?«, t00=0x00ea, t01=0x009e}
0x16e2c…16e46 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BCDTEX NO «, t00=0x00ea, t01=0x00ca}
0x16e46…16e54 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ea, t01=0x00e4}
0x16e54…16e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x00f2}
0x16e5e…16e9c Head {h00=0x003a, h01=0x0050, text=»* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x00ea, t01=0x00fc}
0x16e9c…16ed8 Head {h00=0x0038, h01=0x0050, text=»* AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES«, t00=0x00ea, t01=0x013a}
0x16ed8…16ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x0176}
0x16ee2…16f16 Head {h00=0x0030, h01=0x0050, text=» LDR A9,A11 START OF COMMON DEFINITION BLOCK«, t00=0x00ea, t01=0x0180}
0x16f16…16f50 Head {h00=0x0036, h01=0x0050, text=» ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES «, t00=0x00eb, t01=0x0024}
0x16f50…16f7a Head {h00=0x0026, h01=0x0050, text=» CALL GETCTC GET NUMBER OF C.T.C. «, t00=0x00eb, t01=0x005e}
0x16f7a…16f92 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x00eb, t01=0x0088}
0x16f92…16fb8 Head {h00=0x0022, h01=0x0050, text=»B:CT10 RF(Z) B:CT30 NO MOORE! «, t00=0x00eb, t01=0x00a0}
0x16fb8…16fea Head {h00=0x002e, h01=0x0050, text=» CALL GETCLN GET CLASS IDENT NUMBER (1-99)«, t00=0x00eb, t01=0x00c6}
0x16fea…1701a Head {h00=0x002c, h01=0x0050, text=» ADR A1,A1 DISPLACEMENT TO CLASS POINTER«, t00=0x00eb, t01=0x00f8}
0x1701a…1704a Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x00eb, t01=0x0128}
0x1704a…17072 Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A5 GET LENGTH OF TCLASS«, t00=0x00eb, t01=0x0158}
0x17072…17092 Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 EXCLUDE LENGTH«, t00=0x00eb, t01=0x0180}
0x17092…170bc Head {h00=0x0026, h01=0x0050, text=» CWR A1,A2 MAKE SURE CLASS EXISTS «, t00=0x00ec, t01=0x0010}
0x170bc…170d6 Head {h00=0x0016, h01=0x0050, text=» RF(NG) B:CT20 OK!«, t00=0x00ec, t01=0x003a}
0x170d6…170fa Head {h00=0x0020, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR! «, t00=0x00ec, t01=0x0054}
0x170fa…1710e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00ec, t01=0x0078}
0x1710e…1713e Head {h00=0x002c, h01=0x0050, text=»B:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS «, t00=0x00ec, t01=0x008c}
0x1713e…17166 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET POINTER TO CLASS«, t00=0x00ec, t01=0x00bc}
0x17166…1718e Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET LENGTH OF CLASS «, t00=0x00ec, t01=0x00e4}
0x1718e…171b4 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x00ec, t01=0x010c}
0x171b4…171de Head {h00=0x0026, h01=0x0050, text=» ADR A7,A1 INCREMENT CDTAB LENGTH «, t00=0x00ec, t01=0x0132}
0x171de…17210 Head {h00=0x002e, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE«, t00=0x00ec, t01=0x015c}
0x17210…17236 Head {h00=0x0022, h01=0x0050, text=» SUK A6,1 DECR. NBR OF C.T.C. «, t00=0x00ec, t01=0x018e}
0x17236…17248 Head {h00=0x000e, h01=0x0050, text=» RB B:CT10«, t00=0x00ed, t01=0x0024}
0x17248…17256 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ed, t01=0x0036}
0x17256…1726a Head {h00=0x0010, h01=0x0050, text=»B:CT30 EQU *«, t00=0x00ed, t01=0x0044}
0x1726a…17274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0058}
0x17274…172b2 Head {h00=0x003a, h01=0x0050, text=»* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x00ed, t01=0x0062}
0x172b2…172ee Head {h00=0x0038, h01=0x0050, text=»* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES «, t00=0x00ed, t01=0x00a0}
0x172ee…172f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x00dc}
0x172f8…1730c Head {h00=0x0010, h01=0x0050, text=» CALL GETSDC«, t00=0x00ed, t01=0x00e6}
0x1730c…1732a Head {h00=0x001a, h01=0x0050, text=» ADKL A9,SDCFST-CDBNC «, t00=0x00ed, t01=0x00fa}
0x1732a…1733c Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x00ed, t01=0x0118}
0x1733c…17350 Head {h00=0x0010, h01=0x0050, text=»BCDT10 EQU *«, t00=0x00ed, t01=0x012a}
0x17350…17366 Head {h00=0x0012, h01=0x0050, text=» RF(Z) BCDTEX «, t00=0x00ed, t01=0x013e}
0x17366…1737a Head {h00=0x0010, h01=0x0050, text=» CALL GETCLN«, t00=0x00ed, t01=0x0154}
0x1737a…1738c Head {h00=0x000e, h01=0x0050, text=» ADR A1,A1«, t00=0x00ed, t01=0x0168}
0x1738c…173bc Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00ed, t01=0x017a}
0x173bc…173d0 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A5 «, t00=0x00ee, t01=0x001a}
0x173d0…173e2 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00ee, t01=0x002e}
0x173e2…173f4 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x00ee, t01=0x0040}
0x173f4…1740a Head {h00=0x0012, h01=0x0050, text=» RF(NG) BCDT15«, t00=0x00ee, t01=0x0052}
0x1740a…17420 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x00ee, t01=0x0068}
0x17420…17434 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00ee, t01=0x007e}
0x17434…17448 Head {h00=0x0010, h01=0x0050, text=»BCDT15 EQU *«, t00=0x00ee, t01=0x0092}
0x17448…17468 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A5 SELECT ENTRY «, t00=0x00ee, t01=0x00a6}
0x17468…17490 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET POINTER TO CLASS«, t00=0x00ee, t01=0x00c6}
0x17490…174ae Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A1 GET LENGTH«, t00=0x00ee, t01=0x00ee}
0x174ae…174c0 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x00ee, t01=0x010c}
0x174c0…174d4 Head {h00=0x0010, h01=0x0050, text=» ADKL A9,SDC«, t00=0x00ee, t01=0x011e}
0x174d4…174e6 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A1«, t00=0x00ee, t01=0x0132}
0x174e6…174f8 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x00ee, t01=0x0144}
0x174f8…1750a Head {h00=0x000e, h01=0x0050, text=» RB BCDT10«, t00=0x00ee, t01=0x0156}
0x1750a…1751e Head {h00=0x0010, h01=0x0050, text=»BCDTEX EQU *«, t00=0x00ee, t01=0x0168}
0x1751e…17548 Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00ee, t01=0x017c}
0x17548…17570 Head {h00=0x0024, h01=0x0050, text=» RB(P) CDG:10 MORE APPLICATIONS?«, t00=0x00ef, t01=0x0016}
0x17570…1759a Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00ef, t01=0x003e}
0x1759a…175c4 Head {h00=0x0026, h01=0x0050, text=»B:CT35 CALL NXTBLK GET NEXT BLOCK «, t00=0x00ef, t01=0x0068}
0x175c4…175f0 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00ef, t01=0x0092}
0x175f0…1760a Head {h00=0x0016, h01=0x0050, text=» RB(E) B:CT35 YES «, t00=0x00ef, t01=0x00be}
0x1760a…17618 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ef, t01=0x00d8}
0x17618…17622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x00e6}
0x17622…17662 Head {h00=0x003c, h01=0x0050, text=»* RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x00ef, t01=0x00f0}
0x17662…1769c Head {h00=0x0036, h01=0x0050, text=»* AND DWT-ADDRESSES USED FOR PHYSICAL I/O ON DISC«, t00=0x00ef, t01=0x0130}
0x1769c…176a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x016a}
0x176a6…176e0 Head {h00=0x0036, h01=0x0050, text=»* ALSO RESERVE ENTRIES IN COMMON DEVICE TABLE FOR«, t00=0x00ef, t01=0x0174}
0x176e0…17724 Head {h00=0x0040, h01=0x0050, text=»* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION «, t00=0x00f0, t01=0x001e}
0x17724…1772e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x0062}
0x1772e…1777c Head {h00=0x004a, h01=0x0050, text=»* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS«, t00=0x00f0, t01=0x006c}
0x1777c…17786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x00ba}
0x17786…177b0 Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTDCT DATA COMMUNICATION? «, t00=0x00f0, t01=0x00c4}
0x177b0…177d6 Head {h00=0x0022, h01=0x0050, text=» LD A6,SCTDMT DATA MANAGEMENT «, t00=0x00f0, t01=0x00ee}
0x177d6…177f2 Head {h00=0x0018, h01=0x0050, text=» ORR A6,A1 DM OR DC?«, t00=0x00f0, t01=0x0114}
0x177f2…17818 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00f0, t01=0x0130}
0x17818…17840 Head {h00=0x0024, h01=0x0050, text=» ANK A1,/E DISC PAGING OR SWB:S?«, t00=0x00f0, t01=0x0156}
0x17840…17870 Head {h00=0x002c, h01=0x0050, text=» ORR A6,A1 COPY LAST SCLASS IF NOT ZERO «, t00=0x00f0, t01=0x017e}
0x17870…1788a Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:12 NO! «, t00=0x00f1, t01=0x001e}
0x1788a…178ba Head {h00=0x002c, h01=0x0050, text=» LD A6,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00f1, t01=0x0038}
0x178ba…178e2 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A6 GET LENGTH OF SCLASS«, t00=0x00f1, t01=0x0068}
0x178e2…17908 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x00f1, t01=0x0090}
0x17908…17930 Head {h00=0x0024, h01=0x0050, text=» ADR A6,A1 LAST ENTRY IN SCLASS «, t00=0x00f1, t01=0x00b6}
0x17930…1795e Head {h00=0x002a, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO LAST CLASS «, t00=0x00f1, t01=0x00de}
0x1795e…1798a Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A6 GET LENGTH OF LAST CLASS«, t00=0x00f1, t01=0x010c}
0x1798a…179b0 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00f1, t01=0x0138}
0x179b0…179da Head {h00=0x0026, h01=0x0050, text=» ADR A7,A6 ADD TO LENGTH OF CD:TAB«, t00=0x00f1, t01=0x015e}
0x179da…179ee Head {h00=0x0010, h01=0x0050, text=»CDG:12 EQU *«, t00=0x00f1, t01=0x0188}
0x179ee…17a00 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00f2, t01=0x000c}
0x17a00…17a14 Head {h00=0x0010, h01=0x0050, text=» STR A7,A12 «, t00=0x00f2, t01=0x001e}
0x17a14…17a2a Head {h00=0x0012, h01=0x0050, text=» ST A12,SCTCDT«, t00=0x00f2, t01=0x0032}
0x17a2a…17a3e Head {h00=0x0010, h01=0x0050, text=» ADR A12,A7 «, t00=0x00f2, t01=0x0048}
0x17a3e…17a62 Head {h00=0x0020, h01=0x0050, text=» ST A11,STKEND+WRK1 SAVE A11«, t00=0x00f2, t01=0x005c}
0x17a62…17a88 Head {h00=0x0022, h01=0x0050, text=» LDR A11,A12 GET END OF CDTAB «, t00=0x00f2, t01=0x0080}
0x17a88…17aba Head {h00=0x002e, h01=0x0050, text=» LD A9,STKEND+LIMIT GET END OF SYSTEM AREA«, t00=0x00f2, t01=0x00a6}
0x17aba…17ae8 Head {h00=0x002a, h01=0x0050, text=» CALL CMPADR CHECK IF MEMORY OVERFLOW «, t00=0x00f2, t01=0x00d8}
0x17ae8…17b02 Head {h00=0x0016, h01=0x0050, text=» RF(NG) CDG:13 OK «, t00=0x00f2, t01=0x0106}
0x17b02…17b30 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00f2, t01=0x0120}
0x17b30…17b44 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00f2, t01=0x014e}
0x17b44…17b72 Head {h00=0x002a, h01=0x0050, text=»CDG:13 LD A11,STKEND+WRK1 RESTORE A11 «, t00=0x00f2, t01=0x0162}
0x17b72…17b80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f2, t01=0x0190}
0x17b80…17b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x000e}
0x17b8a…17bc4 Head {h00=0x0036, h01=0x0050, text=»* INIT POINTER TO START OF FREE AREA AND TO CDTAB «, t00=0x00f3, t01=0x0018}
0x17bc4…17bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x0052}
0x17bce…17bfa Head {h00=0x0028, h01=0x0050, text=» LD A10,SCTCDT FIRST ENTRY IN SCTCDT«, t00=0x00f3, t01=0x005c}
0x17bfa…17c28 Head {h00=0x002a, h01=0x0050, text=»CDG:15 LCR A2,A11 GET FIRST CHARACTER «, t00=0x00f3, t01=0x0088}
0x17c28…17c5a Head {h00=0x002e, h01=0x0050, text=»CDG:16 CCK A2,'TT' TASK DEFINITION BLOCK/ «, t00=0x00f3, t01=0x00b6}
0x17c5a…17c74 Head {h00=0x0016, h01=0x0050, text=» RF(NE) CDG:17 NO!«, t00=0x00f3, t01=0x00e8}
0x17c74…17c96 Head {h00=0x001e, h01=0x0050, text=» CALL NXTBLK GET NEXT BLCK«, t00=0x00f3, t01=0x0102}
0x17c96…17ca8 Head {h00=0x000e, h01=0x0050, text=» RB CDG:16«, t00=0x00f3, t01=0x0124}
0x17ca8…17cd6 Head {h00=0x002a, h01=0x0050, text=»CDG:17 CCK A2,'CC' COMMON DEF. BLOCK? «, t00=0x00f3, t01=0x0136}
0x17cd6…17cf0 Head {h00=0x0016, h01=0x0050, text=» RF(E) CDG:19 YES!«, t00=0x00f3, t01=0x0164}
0x17cf0…17d22 Head {h00=0x002e, h01=0x0050, text=» SUR A8,A8 INDICATE NO COMMON WORK BLOCKS «, t00=0x00f3, t01=0x017e}
0x17d22…17d4e Head {h00=0x0028, h01=0x0050, text=»CDG:18 RF(N) CDG:EX CDTAB COMPLETE! «, t00=0x00f4, t01=0x0020}
0x17d4e…17d78 Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00f4, t01=0x004c}
0x17d78…17da0 Head {h00=0x0024, h01=0x0050, text=» RB(P) CDG:15 MORE APPLICATIONS «, t00=0x00f4, t01=0x0076}
0x17da0…17dc6 Head {h00=0x0022, h01=0x0050, text=» RF CDGEX NO MORE APPLICATIONS«, t00=0x00f4, t01=0x009e}
0x17dc6…17dda Head {h00=0x0010, h01=0x0050, text=»CDG:19 EQU *«, t00=0x00f4, t01=0x00c4}
0x17dda…17de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x00d8}
0x17de4…17e26 Head {h00=0x003e, h01=0x0050, text=»* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES«, t00=0x00f4, t01=0x00e2}
0x17e26…17e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x0124}
0x17e30…17e5e Head {h00=0x002a, h01=0x0050, text=» LDR A9,A11 START OF COMMON DEF. BLOCK«, t00=0x00f4, t01=0x012e}
0x17e5e…17e98 Head {h00=0x0036, h01=0x0050, text=» ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES «, t00=0x00f4, t01=0x015c}
0x17e98…17ec2 Head {h00=0x0026, h01=0x0050, text=» CALL GETCTC GET NUMBER OF C.T.C. «, t00=0x00f5, t01=0x0008}
0x17ec2…17ef2 Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 ANY COMMON TERMINAL CLASSES? «, t00=0x00f5, t01=0x0032}
0x17ef2…17f12 Head {h00=0x001c, h01=0x0050, text=»B:CT40 RF(Z) B:CT50 NO! «, t00=0x00f5, t01=0x0062}
0x17f12…17f34 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+NBRCOM SAVE «, t00=0x00f5, t01=0x0082}
0x17f34…17f60 Head {h00=0x0028, h01=0x0050, text=» CALL GETCLN GET CLASS IDENT NUMBER «, t00=0x00f5, t01=0x00a4}
0x17f60…17f82 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+CLASID SAVE «, t00=0x00f5, t01=0x00d0}
0x17f82…17fb2 Head {h00=0x002c, h01=0x0050, text=» CALL GETLCN GET LINE CONNECTION NUMBER «, t00=0x00f5, t01=0x00f2}
0x17fb2…17fca Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x00f5, t01=0x0122}
0x17fca…17ffe Head {h00=0x0030, h01=0x0050, text=» LD A2,STKEND+CLASID GET CLASS IDENT NUMBER «, t00=0x00f5, t01=0x013a}
0x17ffe…18028 Head {h00=0x0026, h01=0x0050, text=» ADR A2,A2 CONVERT TO DISPLACEMENT«, t00=0x00f5, t01=0x016e}
0x18028…18058 Head {h00=0x002c, h01=0x0050, text=» LD A7,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x00f6, t01=0x0008}
0x18058…18082 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A2 SELECT ENTRY IN TCLASS «, t00=0x00f6, t01=0x0038}
0x18082…180aa Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET POINTER TO CLASS«, t00=0x00f6, t01=0x0062}
0x180aa…180dc Head {h00=0x002e, h01=0x0050, text=» CALL DWTGEN GENERATE DWT:S FOR THIS CLASS«, t00=0x00f6, t01=0x008a}
0x180dc…1810e Head {h00=0x002e, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE«, t00=0x00f6, t01=0x00bc}
0x1810e…18140 Head {h00=0x002e, h01=0x0050, text=» LD A1,STKEND+NBRCOM GET NUMBER OF C.T.C. «, t00=0x00f6, t01=0x00ee}
0x18140…18164 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 DECREMENT COUNTER «, t00=0x00f6, t01=0x0120}
0x18164…18176 Head {h00=0x000e, h01=0x0050, text=» RB B:CT40«, t00=0x00f6, t01=0x0144}
0x18176…1818e Head {h00=0x0014, h01=0x0050, text=»B:CT50 CALL ECHO«, t00=0x00f6, t01=0x0156}
0x1818e…1819c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f6, t01=0x016e}
0x1819c…181a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x017c}
0x181a6…181d6 Head {h00=0x002c, h01=0x0050, text=»* GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x00f6, t01=0x0186}
0x181d6…181e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x0026}
0x181e0…181f4 Head {h00=0x0010, h01=0x0050, text=» CALL GETSDC«, t00=0x00f7, t01=0x0030}
0x181f4…18212 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,SDCFST-CDBNC «, t00=0x00f7, t01=0x0044}
0x18212…18224 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x00f7, t01=0x0062}
0x18224…18238 Head {h00=0x0010, h01=0x0050, text=»CDG:20 EQU *«, t00=0x00f7, t01=0x0074}
0x18238…1824e Head {h00=0x0012, h01=0x0050, text=» RB(NP) CDG:18«, t00=0x00f7, t01=0x0088}
0x1824e…18258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x009e}
0x18258…18282 Head {h00=0x0026, h01=0x0050, text=»* GET SPECIAL DEVICE CLASS NUMBER«, t00=0x00f7, t01=0x00a8}
0x18282…1828c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x00d2}
0x1828c…182a0 Head {h00=0x0010, h01=0x0050, text=» CALL GETCLN«, t00=0x00f7, t01=0x00dc}
0x182a0…182aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x00f0}
0x182aa…182de Head {h00=0x0030, h01=0x0050, text=»* GET CORRESPONDING DEVICE CLASS IN SCLASS «, t00=0x00f7, t01=0x00fa}
0x182de…182e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x012e}
0x182e8…182fe Head {h00=0x0012, h01=0x0050, text=» ADR A1,A1 T «, t00=0x00f7, t01=0x0138}
0x182fe…1832e Head {h00=0x002c, h01=0x0050, text=» LD A6,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00f7, t01=0x014e}
0x1832e…1834e Head {h00=0x001c, h01=0x0050, text=» ADR A6,A1 SELECT CLASS «, t00=0x00f7, t01=0x017e}
0x1834e…18378 Head {h00=0x0026, h01=0x0050, text=» LDR* A5,A6 SAVE POINTER TO CLASS «, t00=0x00f8, t01=0x000e}
0x18378…183a0 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO CLASS«, t00=0x00f8, t01=0x0038}
0x183a0…183c8 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET LENGTH OF CLASS «, t00=0x00f8, t01=0x0060}
0x183c8…183ee Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00f8, t01=0x0088}
0x183ee…18402 Head {h00=0x0010, h01=0x0050, text=»CDG:30 EQU *«, t00=0x00f8, t01=0x00ae}
0x18402…18420 Head {h00=0x001a, h01=0x0050, text=» ADK A5,4 NEXT DEVICE «, t00=0x00f8, t01=0x00c2}
0x18420…18444 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A5 GET DWT-ADDRESS «, t00=0x00f8, t01=0x00e0}
0x18444…18470 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTLEN,A1 GENERATION OF DWT? «, t00=0x00f8, t01=0x0104}
0x18470…18488 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CDG:40 NO«, t00=0x00f8, t01=0x0130}
0x18488…18492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x0148}
0x18492…184a6 Head {h00=0x0010, h01=0x0050, text=»* COPY DWT «, t00=0x00f8, t01=0x0152}
0x184a6…184b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x0166}
0x184b0…184ce Head {h00=0x001a, h01=0x0050, text=» LDR A2,A12 TO-ADDRESS«, t00=0x00f8, t01=0x0170}
0x184ce…184fe Head {h00=0x002c, h01=0x0050, text=» ADR A12,A3 UPDATE POINTER TO FREE AREA «, t00=0x00f8, t01=0x018e}
0x184fe…1851c Head {h00=0x001a, h01=0x0050, text=» CALL CHKMOV COPY DWT «, t00=0x00f9, t01=0x002e}
0x1851c…18526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x004c}
0x18526…1855e Head {h00=0x0034, h01=0x0050, text=»* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM«, t00=0x00f9, t01=0x0056}
0x1855e…18568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x008e}
0x18568…1858e Head {h00=0x0022, h01=0x0050, text=» LD A3,SCTOPT GET OPTION WORD «, t00=0x00f9, t01=0x0098}
0x1858e…185ae Head {h00=0x001c, h01=0x0050, text=» ANK A3,1 MMU IN SYSTEM?«, t00=0x00f9, t01=0x00be}
0x185ae…185c8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:35 NO! «, t00=0x00f9, t01=0x00de}
0x185c8…185f4 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x00f9, t01=0x00f8}
0x185f4…18622 Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 COMPUTE RELOCATION CONSTANT«, t00=0x00f9, t01=0x0124}
0x18622…18652 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x00f9, t01=0x0152}
0x18652…18676 Head {h00=0x0020, h01=0x0050, text=» ANKL A4,/FFFE MAKE IT EVEN!«, t00=0x00f9, t01=0x0182}
0x18676…18692 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A3 RELOCATE «, t00=0x00fa, t01=0x0016}
0x18692…186b8 Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTMEC,A2 STORE IT BACK«, t00=0x00fa, t01=0x0032}
0x186b8…186cc Head {h00=0x0010, h01=0x0050, text=»CDG:35 EQU *«, t00=0x00fa, t01=0x0058}
0x186cc…186f2 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 DWT-ADDRESS TO USE «, t00=0x00fa, t01=0x006c}
0x186f2…18706 Head {h00=0x0010, h01=0x0050, text=»CDG:40 EQU *«, t00=0x00fa, t01=0x0092}
0x18706…18710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x00a6}
0x18710…18742 Head {h00=0x002e, h01=0x0050, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x00fa, t01=0x00b0}
0x18742…1874c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x00e2}
0x1874c…18772 Head {h00=0x0022, h01=0x0050, text=» ST A1,4,A10 STORE DWT-ADDRESS«, t00=0x00fa, t01=0x00ec}
0x18772…18794 Head {h00=0x001e, h01=0x0050, text=» LD A1,-2,A5 GET FILE CODE«, t00=0x00fa, t01=0x0112}
0x18794…187b6 Head {h00=0x001e, h01=0x0050, text=» ST A1,2,A10 STORE IN TTAB«, t00=0x00fa, t01=0x0134}
0x187b6…187de Head {h00=0x0024, h01=0x0050, text=» ADKL A10,4 NEXT ENTRY IN CD:TAB«, t00=0x00fa, t01=0x0156}
0x187de…18808 Head {h00=0x0026, h01=0x0050, text=» SUK A6,4 DECREMENT DEVICE COUNTER«, t00=0x00fa, t01=0x017e}
0x18808…1882a Head {h00=0x001e, h01=0x0050, text=» RB(P) CDG:30 NEXT DEVICE «, t00=0x00fb, t01=0x0018}
0x1882a…18838 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fb, t01=0x003a}
0x18838…18842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0048}
0x18842…18872 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF MOORE SPECIAL DEVICE CLASSES«, t00=0x00fb, t01=0x0052}
0x18872…1887c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0082}
0x1887c…18890 Head {h00=0x0010, h01=0x0050, text=» ADKL A9,SDC«, t00=0x00fb, t01=0x008c}
0x18890…188a2 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x00fb, t01=0x00a0}
0x188a2…188b4 Head {h00=0x000e, h01=0x0050, text=» RB CDG:20«, t00=0x00fb, t01=0x00b2}
0x188b4…188c8 Head {h00=0x0010, h01=0x0050, text=»CDGEX EQU * «, t00=0x00fb, t01=0x00c4}
0x188c8…188ee Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTDMT DATA MANAGEMENT «, t00=0x00fb, t01=0x00d8}
0x188ee…18916 Head {h00=0x0024, h01=0x0050, text=» LD A5,SCTDCT DATA COMMUNICATION«, t00=0x00fb, t01=0x00fe}
0x18916…18932 Head {h00=0x0018, h01=0x0050, text=» ORR A1,A5 DM OR DC?«, t00=0x00fb, t01=0x0126}
0x18932…18958 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x00fb, t01=0x0142}
0x18958…18980 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/E DISC PAGING OR SWB:S?«, t00=0x00fb, t01=0x0168}
0x18980…189b0 Head {h00=0x002c, h01=0x0050, text=» ORR A1,A5 COPY LAST SCLASS IF NOT ZERO «, t00=0x00fb, t01=0x0190}
0x189b0…189ca Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:EX NO! «, t00=0x00fc, t01=0x0030}
0x189ca…189fa Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00fc, t01=0x004a}
0x189fa…18a22 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A5 GET LENGTH OF SCLASS«, t00=0x00fc, t01=0x007a}
0x18a22…18a48 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x00fc, t01=0x00a2}
0x18a48…18a6a Head {h00=0x001e, h01=0x0050, text=» ADR A5,A1 GET LAST ENTRY «, t00=0x00fc, t01=0x00c8}
0x18a6a…18a98 Head {h00=0x002a, h01=0x0050, text=» LDR* A5,A5 GET POINTER TO LAST CLASS «, t00=0x00fc, t01=0x00ea}
0x18a98…18ac4 Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A5 GET LENGTH OF LAST CLASS«, t00=0x00fc, t01=0x0118}
0x18ac4…18aea Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00fc, t01=0x0144}
0x18aea…18afc Head {h00=0x000e, h01=0x0050, text=» RB CDG:30«, t00=0x00fc, t01=0x016a}
0x18afc…18b10 Head {h00=0x0010, h01=0x0050, text=»CDG:EX EQU *«, t00=0x00fc, t01=0x017c}
0x18b10…18b40 Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x00fc, t01=0x0190}
0x18b40…18b58 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00fd, t01=0x0030}
0x18b58…18b66 Head {h00=0x000a, h01=0x0050, text=» =6«, t00=0x00fd, t01=0x0048}
0x18b66…18b74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fd, t01=0x0056}
0x18b74…18bc2 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x00fd, t01=0x0064}
0x18bc2…18c0e Head {h00=0x0048, h01=0x0050, text=»* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS «, t00=0x00fd, t01=0x00b2}
0x18c0e…18c5c Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x00fd, t01=0x00fe}
0x18c5c…18c66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x014c}
0x18c66…18c9e Head {h00=0x0034, h01=0x0050, text=»* ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) «, t00=0x00fd, t01=0x0156}
0x18c9e…18ce0 Head {h00=0x003e, h01=0x0050, text=»* A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS«, t00=0x00fd, t01=0x018e}
0x18ce0…18d0e Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x00fe, t01=0x0040}
0x18d0e…18d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x006e}
0x18d18…18d28 Head {h00=0x000c, h01=0x0050, text=»* EXIT:«, t00=0x00fe, t01=0x0078}
0x18d28…18d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0088}
0x18d32…18d52 Head {h00=0x001c, h01=0x0050, text=»* WORK REGISTERS: A1-A8«, t00=0x00fe, t01=0x0092}
0x18d52…18d5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x00b2}
0x18d5c…18d7e Head {h00=0x001e, h01=0x0050, text=»* SUBROUTINES: I:CHP,MOVE«, t00=0x00fe, t01=0x00bc}
0x18d7e…18d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x00de}
0x18d88…18d96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fe, t01=0x00e8}
0x18d96…18daa Head {h00=0x0010, h01=0x0050, text=»DWTGEN EQU *«, t00=0x00fe, t01=0x00f6}
0x18daa…18de2 Head {h00=0x0034, h01=0x0050, text=» ST A6,STKEND+LCNBR SAVE LINE CONNECTION NUMBER «, t00=0x00fe, t01=0x010a}
0x18de2…18e0e Head {h00=0x0028, h01=0x0050, text=» LDR* A8,A7 GET LENGTH OF THIS CLASS«, t00=0x00fe, t01=0x0142}
0x18e0e…18e36 Head {h00=0x0024, h01=0x0050, text=» SUKL A8,2 EXCLUSIVE LENGTH WORD«, t00=0x00fe, t01=0x016e}
0x18e36…18e56 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 FIRST FILECODE«, t00=0x00ff, t01=0x0008}
0x18e56…18e6a Head {h00=0x0010, h01=0x0050, text=»DWT05 EQU * «, t00=0x00ff, t01=0x0028}
0x18e6a…18e9c Head {h00=0x002e, h01=0x0050, text=» LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT «, t00=0x00ff, t01=0x003c}
0x18e9c…18ed2 Head {h00=0x0032, h01=0x0050, text=» LD A6,STKEND+LCNBR GET LINE CONNECTION NUMBER«, t00=0x00ff, t01=0x006e}
0x18ed2…18edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ff, t01=0x00a4}
0x18edc…18efc Head {h00=0x001c, h01=0x0050, text=»* CHECK CONNECTION TYPE«, t00=0x00ff, t01=0x00ae}
0x18efc…18f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ff, t01=0x00ce}
0x18f06…18f36 Head {h00=0x002c, h01=0x0050, text=» LC A4,TDC+6,A9 GET LINE CONNECTION TYPE«, t00=0x00ff, t01=0x00d8}
0x18f36…18f5e Head {h00=0x0024, h01=0x0050, text=» CCK A4,'SS' SALCUZ CONNECTION? «, t00=0x00ff, t01=0x0108}
0x18f5e…18f78 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT10 NO! «, t00=0x00ff, t01=0x0130}
0x18f78…18fac Head {h00=0x0030, h01=0x0050, text=» CALL I:CHSZ INIT CHANNEL PARAMETERS SALCUZ «, t00=0x00ff, t01=0x014a}
0x18fac…18fbe Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x00ff, t01=0x017e}
0x18fbe…18fea Head {h00=0x0028, h01=0x0050, text=»DWT10 CCK A4,'AA' ASCU4Z CONNECTION?«, t00=0x00ff, t01=0x0190}
0x18fea…19004 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT07 NO! «, t00=0x0100, t01=0x002c}
0x19004…19036 Head {h00=0x002e, h01=0x0050, text=» CALL I:CHAZ INIT CHANEL PARAMETERS ASCU4Z«, t00=0x0100, t01=0x0046}
0x19036…19048 Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x0100, t01=0x0078}
0x19048…19076 Head {h00=0x002a, h01=0x0050, text=»DWT07 CCK A4,'VV' VCCU1/4 CONNECTION? «, t00=0x0100, t01=0x008a}
0x19076…1908c Head {h00=0x0012, h01=0x0050, text=» RF(NE) DWT11 «, t00=0x0100, t01=0x00b8}
0x1908c…190c0 Head {h00=0x0030, h01=0x0050, text=» CALL I:CHVC INIT CHANNEL PARAMETERS VCCU1/4«, t00=0x0100, t01=0x00ce}
0x190c0…190d2 Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x0100, t01=0x0102}
0x190d2…190fc Head {h00=0x0026, h01=0x0050, text=»DWT11 CCK A4,'PP' PLC CONNECTION? «, t00=0x0100, t01=0x0114}
0x190fc…19116 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT12 NO! «, t00=0x0100, t01=0x013e}
0x19116…19148 Head {h00=0x002e, h01=0x0050, text=» CALL I:CHPC INIT CHANNEL PARAMETERS LWSI «, t00=0x0100, t01=0x0158}
0x19148…1915a Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x0100, t01=0x018a}
0x1915a…19182 Head {h00=0x0024, h01=0x0050, text=»DWT12 CCK A4,'LL' LT CONNECTION?«, t00=0x0101, t01=0x000c}
0x19182…1919c Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT08 NO! «, t00=0x0101, t01=0x0034}
0x1919c…191cc Head {h00=0x002c, h01=0x0050, text=» CALL I:CHLT INIT CHANNEL PARAMETERS LT «, t00=0x0101, t01=0x004e}
0x191cc…191de Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x0101, t01=0x007e}
0x191de…19206 Head {h00=0x0024, h01=0x0050, text=»DWT08 CCK A4,'RR' RT CONNECTION?«, t00=0x0101, t01=0x0090}
0x19206…19222 Head {h00=0x0018, h01=0x0050, text=» RF(NE) DWT09 NO! =8«, t00=0x0101, t01=0x00b8}
0x19222…19254 Head {h00=0x002e, h01=0x0050, text=» CALL I:CHRT INIT CHANNEL PARAMETERS RT =8«, t00=0x0101, t01=0x00d4}
0x19254…1926a Head {h00=0x0012, h01=0x0050, text=» RF DWT31 =8 «, t00=0x0101, t01=0x0106}
0x1926a…19298 Head {h00=0x002a, h01=0x0050, text=»DWT09 CCK A4,'QQ' RWSI CONNECTION? =8 «, t00=0x0101, t01=0x011c}
0x19298…192b4 Head {h00=0x0018, h01=0x0050, text=» RF(E) DWT06 YES! =8«, t00=0x0101, t01=0x014a}
0x192b4…192e0 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP4 INDICATE FORMAT ERROR «, t00=0x0101, t01=0x0166}
0x192e0…192f4 (258, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0102, t01=0x0004}
0x192f4…1932e Head {h00=0x0036, h01=0x0050, text=»DWT06 CALL I:CHRI INIT CHANNEL PARAMETERS RWSI =8 «, t00=0x0102, t01=0x0018}
0x1932e…19342 Head {h00=0x0010, h01=0x0050, text=»DWT31 EQU * «, t00=0x0102, t01=0x0052}
0x19342…19364 Head {h00=0x001e, h01=0x0050, text=» ST A3,STKEND+CONTYP SAVE «, t00=0x0102, t01=0x0066}
0x19364…19384 Head {h00=0x001c, h01=0x0050, text=» ST A5,STKEND+WRK3 SAVE «, t00=0x0102, t01=0x0088}
0x19384…193a4 Head {h00=0x001c, h01=0x0050, text=» ST A6,STKEND+WRK4 SAVE «, t00=0x0102, t01=0x00a8}
0x193a4…193ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x00c8}
0x193ae…193e4 Head {h00=0x0032, h01=0x0050, text=»* CHECK IF DWT ALREADY GENERATED ON THIS LINE«, t00=0x0102, t01=0x00d2}
0x193e4…193ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x0108}
0x193ee…1941e Head {h00=0x002c, h01=0x0050, text=» LD A4,STKEND+INTTAB GET START OF T.I.T.«, t00=0x0102, t01=0x0112}
0x1941e…19446 Head {h00=0x0024, h01=0x0050, text=» LDR* A5,A4 GET NUMBER OF BLOCKS«, t00=0x0102, t01=0x0142}
0x19446…19458 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0102, t01=0x016a}
0x19458…1946a Head {h00=0x000e, h01=0x0050, text=» LDR A5,A5«, t00=0x0102, t01=0x017c}
0x1946a…1947e Head {h00=0x0010, h01=0x0050, text=»DWT13 EQU * «, t00=0x0102, t01=0x018e}
0x1947e…19492 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DWT32«, t00=0x0103, t01=0x0012}
0x19492…194cc Head {h00=0x0036, h01=0x0050, text=» LD A3,STKEND+CONTYP GET LINE AND CONNECTION TYPE «, t00=0x0103, t01=0x0026}
0x194cc…194e8 Head {h00=0x0018, h01=0x0050, text=» CW A3,-4,A4 EQUAL? «, t00=0x0103, t01=0x0060}
0x194e8…19502 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DWT15 YES! «, t00=0x0103, t01=0x007c}
0x19502…19516 Head {h00=0x0010, h01=0x0050, text=»DWT14 EQU * «, t00=0x0103, t01=0x0096}
0x19516…1953c Head {h00=0x0022, h01=0x0050, text=» LDR* A4,A4 GET NEXT BLOCK =7 «, t00=0x0103, t01=0x00aa}
0x1953c…19568 Head {h00=0x0028, h01=0x0050, text=» SUK A5,1 DECREMENT NUMBER OF BLOCKS«, t00=0x0103, t01=0x00d0}
0x19568…1957a Head {h00=0x000e, h01=0x0050, text=» RB DWT13 «, t00=0x0103, t01=0x00fc}
0x1957a…1958e Head {h00=0x0010, h01=0x0050, text=»DWT15 EQU * «, t00=0x0103, t01=0x010e}
0x1958e…195bc Head {h00=0x002a, h01=0x0050, text=» LD A2,-2,A4 GET RUN-TIME DWT-ADDRESS «, t00=0x0103, t01=0x0122}
0x195bc…195ec Head {h00=0x002c, h01=0x0050, text=» LD A6,DWTCP2,A2 GET CHANNEL PARAMETER-2«, t00=0x0103, t01=0x0150}
0x195ec…19614 Head {h00=0x0024, h01=0x0050, text=» ANK A6,/003F GET DEVICE ADDRESS«, t00=0x0103, t01=0x0180}
0x19614…19646 Head {h00=0x002e, h01=0x0050, text=» LD A3,STKEND+WRK3 GET CHANNEL PARAMETER-2«, t00=0x0104, t01=0x0018}
0x19646…1966e Head {h00=0x0024, h01=0x0050, text=» ANK A3,/003F GET DEVICE ADDRESS«, t00=0x0104, t01=0x004a}
0x1966e…19688 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A6 EQUAL? «, t00=0x0104, t01=0x0072}
0x19688…196a2 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT14 NO! «, t00=0x0104, t01=0x008c}
0x196a2…196cc Head {h00=0x0026, h01=0x0050, text=» LD A6,DWTST,A2 GET DEVICE STATUS «, t00=0x0104, t01=0x00a6}
0x196cc…196f2 Head {h00=0x0022, h01=0x0050, text=» ANK A6,/00C0 GET BITS 8 AND 9«, t00=0x0104, t01=0x00d0}
0x196f2…1971c Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTST,A1 GET DEVICE STATUS «, t00=0x0104, t01=0x00f6}
0x1971c…19742 Head {h00=0x0022, h01=0x0050, text=» ANK A3,/00C0 GET BITS 8 AND 9«, t00=0x0104, t01=0x0120}
0x19742…1975c Head {h00=0x0016, h01=0x0050, text=» SUR A3,A6 EQUAL? «, t00=0x0104, t01=0x0146}
0x1975c…19772 Head {h00=0x0012, h01=0x0050, text=» RB(NE) DWT14 «, t00=0x0104, t01=0x0160}
0x19772…1979a Head {h00=0x0024, h01=0x0050, text=» LD A6,DWTTAB,A2 GET DEVICE TYPE«, t00=0x0104, t01=0x0176}
0x1979a…197c2 Head {h00=0x0024, h01=0x0050, text=» ANKL A6,/8000 ISOLATE ECHO BIT «, t00=0x0105, t01=0x000e}
0x197c2…197ea Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTTAB,A1 GET DEVICE TYPE«, t00=0x0105, t01=0x0036}
0x197ea…19812 Head {h00=0x0024, h01=0x0050, text=» ANKL A3,/8000 ISOLATE ECHO BIT «, t00=0x0105, t01=0x005e}
0x19812…1982c Head {h00=0x0016, h01=0x0050, text=» SUR A3,A6 EQUAL? «, t00=0x0105, t01=0x0086}
0x1982c…19846 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT14 NO! «, t00=0x0105, t01=0x00a0}
0x19846…1985a Head {h00=0x0010, h01=0x0050, text=» CALL DWT50 «, t00=0x0105, t01=0x00ba}
0x1985a…19870 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,DWT70«, t00=0x0105, t01=0x00ce}
0x19870…1988c Head {h00=0x0018, h01=0x0050, text=» AD A1,STKCOM+M:REL «, t00=0x0105, t01=0x00e4}
0x1988c…1989c Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0105, t01=0x0100}
0x1989c…198b0 Head {h00=0x0010, h01=0x0050, text=»DWT32 EQU * «, t00=0x0105, t01=0x0110}
0x198b0…198dc Head {h00=0x0028, h01=0x0050, text=» LDR A5,A12 GET RUN TIME DWT-ADDRESS«, t00=0x0105, t01=0x0124}
0x198dc…1990a Head {h00=0x002a, h01=0x0050, text=» CALL B:TTAB BUILD ONE BLOCK IN T.I.T.«, t00=0x0105, t01=0x0150}
0x1990a…19914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x017e}
0x19914…19934 Head {h00=0x001c, h01=0x0050, text=»* COPY DEVICE TYPE DWT «, t00=0x0105, t01=0x0188}
0x19934…1993e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x0018}
0x1993e…1995c Head {h00=0x001a, h01=0x0050, text=» LDR A2,A12 TO-ADDRESS«, t00=0x0106, t01=0x0022}
0x1995c…1997a Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTOR,A1 LENGTH«, t00=0x0106, t01=0x0040}
0x1997a…1999e Head {h00=0x0020, h01=0x0050, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x0106, t01=0x005e}
0x1999e…199b2 Head {h00=0x0010, h01=0x0050, text=» CALL CHKMOV«, t00=0x0106, t01=0x0082}
0x199b2…199c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0106, t01=0x0096}
0x199c0…199ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x00a4}
0x199ca…199f2 Head {h00=0x0024, h01=0x0050, text=»* A1 - ADDRESS TO PROTOTYPE DWT«, t00=0x0106, t01=0x00ae}
0x199f2…19a16 Head {h00=0x0020, h01=0x0050, text=»* A2 - ADDRESS TO REAL DWT «, t00=0x0106, t01=0x00d6}
0x19a16…19a20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x00fa}
0x19a20…19a3a Head {h00=0x0016, h01=0x0050, text=» LD A6,STKEND+WRK4«, t00=0x0106, t01=0x0104}
0x19a3a…19a54 Head {h00=0x0016, h01=0x0050, text=» LD A5,STKEND+WRK3«, t00=0x0106, t01=0x011e}
0x19a54…19a82 Head {h00=0x002a, h01=0x0050, text=» STR A6,A2 STORE CHANNEL PARAMETERS -1«, t00=0x0106, t01=0x0138}
0x19a82…19ab6 Head {h00=0x0030, h01=0x0050, text=» ST A5,DWTCP2,A2 STORE CHANNEL PARAMETERS -2«, t00=0x0106, t01=0x0166}
0x19ab6…19ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x000a}
0x19ac0…19ae0 Head {h00=0x001c, h01=0x0050, text=»* CHECK IF INPUT DEVICE«, t00=0x0107, t01=0x0014}
0x19ae0…19aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x0034}
0x19aea…19b0c Head {h00=0x001e, h01=0x0050, text=» LD A3,2,A1 GET DWT STATUS«, t00=0x0107, t01=0x003e}
0x19b0c…19b30 Head {h00=0x0020, h01=0x0050, text=» ANK A3,/0040 INPUT DEVICE? «, t00=0x0107, t01=0x0060}
0x19b30…19b48 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT45 NO «, t00=0x0107, t01=0x0084}
0x19b48…19b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x009c}
0x19b52…19b6a Head {h00=0x0014, h01=0x0050, text=»* INPUT DEVICE:«, t00=0x0107, t01=0x00a6}
0x19b6a…19b86 Head {h00=0x0018, h01=0x0050, text=»* CHECK IF KEYBOARD«, t00=0x0107, t01=0x00be}
0x19b86…19b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x00da}
0x19b90…19baa Head {h00=0x0016, h01=0x0050, text=» LD A3,DWTADR,A1 «, t00=0x0107, t01=0x00e4}
0x19baa…19bc2 Head {h00=0x0014, h01=0x0050, text=» LD A3,DEVIND,A3«, t00=0x0107, t01=0x00fe}
0x19bc2…19bd4 Head {h00=0x000e, h01=0x0050, text=» CWK A3,6 «, t00=0x0107, t01=0x0116}
0x19bd4…19bf6 Head {h00=0x001e, h01=0x0050, text=» RF(NE) DWT60 NOT KEYBOARD«, t00=0x0107, t01=0x0128}
0x19bf6…19c00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x014a}
0x19c00…19c22 Head {h00=0x001e, h01=0x0050, text=»* INPUT DEVICE = KEYBOARD«, t00=0x0107, t01=0x0154}
0x19c22…19c36 Head {h00=0x0010, h01=0x0050, text=»* IF ECHO: «, t00=0x0107, t01=0x0176}
0x19c36…19c40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x018a}
0x19c40…19c70 (264, 0, 400) Head {h00=0x002c, h01=0x0050, text=»* STORE ADDRESS OF KEYBOARD RUNTIME-DWT«, t00=0x0108, t01=0x0004}
0x19c70…19cae Head {h00=0x003a, h01=0x0050, text=»* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE «, t00=0x0108, t01=0x0034}
0x19cae…19cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x0072}
0x19cb8…19cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x007c}
0x19cc2…19ce0 Head {h00=0x001a, h01=0x0050, text=» LD A5,DWTECH,A1 ECHO?«, t00=0x0108, t01=0x0086}
0x19ce0…19cf8 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT40 NO «, t00=0x0108, t01=0x00a4}
0x19cf8…19d14 Head {h00=0x0018, h01=0x0050, text=» AD A5,STKCOM+M:REL «, t00=0x0108, t01=0x00bc}
0x19d14…19d52 Head {h00=0x003a, h01=0x0050, text=» LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE «, t00=0x0108, t01=0x00d8}
0x19d52…19d7e Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DWT392 NOT FIRST ECHO DEVICE«, t00=0x0108, t01=0x0116}
0x19d7e…19db4 Head {h00=0x0032, h01=0x0050, text=» ADK A3,2 INCLUDE LENGTH OF ECHO DEVICE TABLE «, t00=0x0108, t01=0x0142}
0x19db4…19dd8 Head {h00=0x0020, h01=0x0050, text=»DWT392 LDR A4,A3 SAVE LENGTH«, t00=0x0108, t01=0x0178}
0x19dd8…19e04 Head {h00=0x0028, h01=0x0050, text=» AD A4,STKEND+ECHTAB NEXT FREE ENTRY«, t00=0x0109, t01=0x000c}
0x19e04…19e40 Head {h00=0x0038, h01=0x0050, text=» STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE«, t00=0x0109, t01=0x0038}
0x19e40…19e80 Head {h00=0x003c, h01=0x0050, text=» ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE«, t00=0x0109, t01=0x0074}
0x19e80…19ea0 Head {h00=0x001c, h01=0x0050, text=» ADK A3,4 UPDATE LENGTH «, t00=0x0109, t01=0x00b4}
0x19ea0…19ece Head {h00=0x002a, h01=0x0050, text=» ST* A3,STKEND+ECHTAB SAVE NEW LENGTH «, t00=0x0109, t01=0x00d4}
0x19ece…19edc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0109, t01=0x0102}
0x19edc…19ef0 Head {h00=0x0010, h01=0x0050, text=»DWT40 EQU * «, t00=0x0109, t01=0x0110}
0x19ef0…19efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x0124}
0x19efa…19f30 Head {h00=0x0032, h01=0x0050, text=»* RELOCATE POINTERS TO CIRCULAR INPUT BUFFER «, t00=0x0109, t01=0x012e}
0x19f30…19f3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x0164}
0x19f3a…19f5c Head {h00=0x001e, h01=0x0050, text=» LDR A5,A2 GET DWT-ADDRESS«, t00=0x0109, t01=0x016e}
0x19f5c…19f92 Head {h00=0x0032, h01=0x0050, text=» ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER«, t00=0x0109, t01=0x0190}
0x19f92…19fba Head {h00=0x0024, h01=0x0050, text=» ST A5,DWTSQ-4,A2 STORE POINTER «, t00=0x010a, t01=0x0036}
0x19fba…19fe2 Head {h00=0x0024, h01=0x0050, text=» ST A5,DWTSQ-2,A2 STORE POINTER «, t00=0x010a, t01=0x005e}
0x19fe2…19fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0086}
0x19fec…1a00a Head {h00=0x001a, h01=0x0050, text=»* IF DOUBLE KEYBOARD:«, t00=0x010a, t01=0x0090}
0x1a00a…1a052 Head {h00=0x0044, h01=0x0050, text=»* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE«, t00=0x010a, t01=0x00ae}
0x1a052…1a08c Head {h00=0x0036, h01=0x0050, text=»* IN ENTRY CORRESPONDING TO SECOND DEVICE ADDRESS«, t00=0x010a, t01=0x00f6}
0x1a08c…1a096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0130}
0x1a096…1a0cc Head {h00=0x0032, h01=0x0050, text=» LD A3,DWTDEV,A1 GET DEVICE STATUS OF TYPE DWT«, t00=0x010a, t01=0x013a}
0x1a0cc…1a0f8 Head {h00=0x0028, h01=0x0050, text=» ANK A3,/FF GET EIGTH RIGHTMOST BITS«, t00=0x010a, t01=0x0170}
0x1a0f8…1a120 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT60 NOT DOUBLE KEYBOARD«, t00=0x010b, t01=0x000c}
0x1a120…1a148 Head {h00=0x0024, h01=0x0050, text=» LDR A5,A2 GET REAL DWT-ADDRESS «, t00=0x010b, t01=0x0034}
0x1a148…1a162 Head {h00=0x0016, h01=0x0050, text=» ADK A5,1 ADD ONE «, t00=0x010b, t01=0x005c}
0x1a162…1a190 Head {h00=0x002a, h01=0x0050, text=» CALL B:TTAB BUILD ONE BLOCK IN T.I.T.«, t00=0x010b, t01=0x0076}
0x1a190…1a1a2 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x010b, t01=0x00a4}
0x1a1a2…1a1ca Head {h00=0x0024, h01=0x0050, text=» LDR A2,A5 GET REAL DWT-ADDRESS «, t00=0x010b, t01=0x00b6}
0x1a1ca…1a1dc Head {h00=0x000e, h01=0x0050, text=» RF DWT60 «, t00=0x010b, t01=0x00de}
0x1a1dc…1a1ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010b, t01=0x00f0}
0x1a1ea…1a202 Head {h00=0x0014, h01=0x0050, text=»DWT45 CALL DWT50«, t00=0x010b, t01=0x00fe}
0x1a202…1a214 Head {h00=0x000e, h01=0x0050, text=» RF DWT60 «, t00=0x010b, t01=0x0116}
0x1a214…1a228 Head {h00=0x0010, h01=0x0050, text=»DWT50 EQU * «, t00=0x010b, t01=0x0128}
0x1a228…1a232 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x013c}
0x1a232…1a24c Head {h00=0x0016, h01=0x0050, text=»* OUTPUT DEVICE* «, t00=0x010b, t01=0x0146}
0x1a24c…1a27c Head {h00=0x002c, h01=0x0050, text=»* IF BIT 0 IN SIXTH WORD IN DWT IS SET «, t00=0x010b, t01=0x0160}
0x1a27c…1a2b0 Head {h00=0x0030, h01=0x0050, text=»* THE DEVICE IS TO BE USED FOR ECHOING ON. «, t00=0x010b, t01=0x0190}
0x1a2b0…1a2ea Head {h00=0x0036, h01=0x0050, text=»* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT«, t00=0x010c, t01=0x0034}
0x1a2ea…1a31e Head {h00=0x0030, h01=0x0050, text=»* IS THEN STORED IN THE ECHO DEVICE TABLE. «, t00=0x010c, t01=0x006e}
0x1a31e…1a328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x00a2}
0x1a328…1a35c Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS «, t00=0x010c, t01=0x00ac}
0x1a35c…1a38c Head {h00=0x002c, h01=0x0050, text=» RF(NN) DWT59 NO ECHOING ON THIS DEVICE «, t00=0x010c, t01=0x00e0}
0x1a38c…1a3ca Head {h00=0x003a, h01=0x0050, text=» LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE «, t00=0x010c, t01=0x0110}
0x1a3ca…1a3f4 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DWT55 ALREADY INITIALIZED!«, t00=0x010c, t01=0x014e}
0x1a3f4…1a414 Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 INCLUDE LENGTH«, t00=0x010c, t01=0x0178}
0x1a414…1a438 Head {h00=0x0020, h01=0x0050, text=»DWT55 LDR A4,A3 SAVE LENGTH «, t00=0x010d, t01=0x0008}
0x1a438…1a464 Head {h00=0x0028, h01=0x0050, text=» AD A4,STKEND+ECHTAB NEXT FREE ENTRY«, t00=0x010d, t01=0x002c}
0x1a464…1a496 Head {h00=0x002e, h01=0x0050, text=» STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT «, t00=0x010d, t01=0x0058}
0x1a496…1a4c6 Head {h00=0x002c, h01=0x0050, text=» ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT«, t00=0x010d, t01=0x008a}
0x1a4c6…1a4e6 Head {h00=0x001c, h01=0x0050, text=» ADK A3,4 UPDATE LENGTH «, t00=0x010d, t01=0x00ba}
0x1a4e6…1a514 Head {h00=0x002a, h01=0x0050, text=» ST* A3,STKEND+ECHTAB STORE NEW LENGTH«, t00=0x010d, t01=0x00da}
0x1a514…1a52a Head {h00=0x0012, h01=0x0050, text=»DWT59 RTN A14 «, t00=0x010d, t01=0x0108}
0x1a52a…1a53e Head {h00=0x0010, h01=0x0050, text=»DWT60 EQU * «, t00=0x010d, t01=0x011e}
0x1a53e…1a548 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0132}
0x1a548…1a562 Head {h00=0x0016, h01=0x0050, text=»* CHECK IF PAGING«, t00=0x010d, t01=0x013c}
0x1a562…1a56c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0156}
0x1a56c…1a592 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x010d, t01=0x0160}
0x1a592…1a5b0 Head {h00=0x001a, h01=0x0050, text=» ANK A5,1 MMU PAGING? «, t00=0x010d, t01=0x0186}
0x1a5b0…1a5c4 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DWT70«, t00=0x010e, t01=0x0014}
0x1a5c4…1a5d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x0028}
0x1a5d2…1a602 Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS«, t00=0x010e, t01=0x0036}
0x1a602…1a62e Head {h00=0x0028, h01=0x0050, text=» LDR A4,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x010e, t01=0x0066}
0x1a62e…1a65c Head {h00=0x002a, h01=0x0050, text=» SUR A4,A2 COMPUTE RELOCATION CONSTANT«, t00=0x010e, t01=0x0092}
0x1a65c…1a68c Head {h00=0x002c, h01=0x0050, text=» SUR A5,A4 RELOCATE MONITOR ECB ADDRESS «, t00=0x010e, t01=0x00c0}
0x1a68c…1a6b4 Head {h00=0x0024, h01=0x0050, text=» ANKL A5,/FFFE MAKE EVEN ADDRESS«, t00=0x010e, t01=0x00f0}
0x1a6b4…1a6da Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTMEC,A2 STORE IT BACK«, t00=0x010e, t01=0x0118}
0x1a6da…1a6e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x013e}
0x1a6e4…1a724 Head {h00=0x003c, h01=0x0050, text=»* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED «, t00=0x010e, t01=0x0148}
0x1a724…1a72e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x0188}
0x1a72e…1a758 (271, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTADR,A2 GET ADDRESS BLOCK«, t00=0x010f, t01=0x0004}
0x1a758…1a78e Head {h00=0x0032, h01=0x0050, text=» LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER«, t00=0x010f, t01=0x002e}
0x1a78e…1a7b6 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT70 ALLOCATE NO BUFFER!«, t00=0x010f, t01=0x0064}
0x1a7b6…1a7c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x008c}
0x1a7c0…1a810 Head {h00=0x004c, h01=0x0050, text=»* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL«, t00=0x010f, t01=0x0096}
0x1a810…1a81a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x00e6}
0x1a81a…1a84a Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x010f, t01=0x00f0}
0x1a84a…1a876 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A12 INTERNAL BUFFER ADDRESS «, t00=0x010f, t01=0x0120}
0x1a876…1a88a Head {h00=0x0010, h01=0x0050, text=» ADK A3,1 «, t00=0x010f, t01=0x014c}
0x1a88a…1a8ba Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS«, t00=0x010f, t01=0x0160}
0x1a8ba…1a8d4 Head {h00=0x0016, h01=0x0050, text=» ST A3,2,A5 SAVE «, t00=0x010f, t01=0x0190}
0x1a8d4…1a8f2 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A4 GET LENGTH «, t00=0x0110, t01=0x001a}
0x1a8f2…1a91c Head {h00=0x0026, h01=0x0050, text=» ADK A3,3 ADD BO FERMS CONSTANT+1 «, t00=0x0110, t01=0x0038}
0x1a91c…1a94c Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH «, t00=0x0110, t01=0x0062}
0x1a94c…1a95a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0110, t01=0x0092}
0x1a95a…1a964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x00a0}
0x1a964…1a99c Head {h00=0x0034, h01=0x0050, text=»* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN«, t00=0x0110, t01=0x00aa}
0x1a99c…1a9d6 Head {h00=0x0036, h01=0x0050, text=»* THE SIZE OF BUFFER RESERVED FOR SYSLOD PART A. «, t00=0x0110, t01=0x00e2}
0x1a9d6…1aa0e Head {h00=0x0034, h01=0x0050, text=»* IF YES,THAN STORE THE ADDRESS AND SIZE OF THE«, t00=0x0110, t01=0x011c}
0x1aa0e…1aa3e Head {h00=0x002c, h01=0x0050, text=»* INTERNAL BUFFER IN SYSBUF AND BUFSIZ.«, t00=0x0110, t01=0x0154}
0x1aa3e…1aa48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x0184}
0x1aa48…1aa66 Head {h00=0x001a, h01=0x0050, text=» CW A3,STKCOM+BUFSIZ «, t00=0x0110, t01=0x018e}
0x1aa66…1aa7c Head {h00=0x0012, h01=0x0050, text=» RF(NG) DWT65 «, t00=0x0111, t01=0x001c}
0x1aa7c…1aa98 Head {h00=0x0018, h01=0x0050, text=» ST A3,STKCOM+BUFSIZ«, t00=0x0111, t01=0x0032}
0x1aa98…1aab6 Head {h00=0x001a, h01=0x0050, text=» ST A12,STKCOM+SYSBUF «, t00=0x0111, t01=0x004e}
0x1aab6…1aaca Head {h00=0x0010, h01=0x0050, text=»DWT65 EQU * «, t00=0x0111, t01=0x006c}
0x1aaca…1aaee Head {h00=0x0020, h01=0x0050, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x0111, t01=0x0080}
0x1aaee…1aafc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0111, t01=0x00a4}
0x1aafc…1ab10 Head {h00=0x0010, h01=0x0050, text=»DWT70 EQU * «, t00=0x0111, t01=0x00b2}
0x1ab10…1ab1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x00c6}
0x1ab1a…1ab4c Head {h00=0x002e, h01=0x0050, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x0111, t01=0x00d0}
0x1ab4c…1ab56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0102}
0x1ab56…1ab7c Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x0111, t01=0x010c}
0x1ab7c…1aba2 Head {h00=0x0022, h01=0x0050, text=» LDR* A5,A7 GET INDEX/FILECODE«, t00=0x0111, t01=0x0132}
0x1aba2…1abd0 Head {h00=0x002a, h01=0x0050, text=» STR A5,A10 STORE IN TASK CONF. TABLE «, t00=0x0111, t01=0x0158}
0x1abd0…1abf6 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x0111, t01=0x0186}
0x1abf6…1ac1c Head {h00=0x0022, h01=0x0050, text=» STR A2,A10 STORE DWT-ADDRESS «, t00=0x0112, t01=0x001c}
0x1ac1c…1ac26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x0042}
0x1ac26…1ac56 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF MOORE DEVICES IN THIS CLASS «, t00=0x0112, t01=0x004c}
0x1ac56…1ac60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x007c}
0x1ac60…1ac72 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,4«, t00=0x0112, t01=0x0086}
0x1ac72…1ac86 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DWTEX«, t00=0x0112, t01=0x0098}
0x1ac86…1aca4 Head {h00=0x001a, h01=0x0050, text=» ADK A7,4 NEXT DEVICE «, t00=0x0112, t01=0x00ac}
0x1aca4…1acba Head {h00=0x0012, h01=0x0050, text=» LDKL A1,DWT05«, t00=0x0112, t01=0x00ca}
0x1acba…1acd6 Head {h00=0x0018, h01=0x0050, text=» AD A1,STKCOM+M:REL «, t00=0x0112, t01=0x00e0}
0x1acd6…1ace6 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0112, t01=0x00fc}
0x1ace6…1acfa Head {h00=0x0010, h01=0x0050, text=»DWTEX EQU * «, t00=0x0112, t01=0x010c}
0x1acfa…1ad0a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0112, t01=0x0120}
0x1ad0a…1ad18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0112, t01=0x0130}
0x1ad18…1ad22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x013e}
0x1ad22…1ad5c Head {h00=0x0036, h01=0x0050, text=»* SCAN ECHO DEVICE TABLE - FOR EVERY COINCIDENCE «, t00=0x0112, t01=0x0148}
0x1ad5c…1ad94 Head {h00=0x0034, h01=0x0050, text=»* BETWEEN THE FIRST POINTER IN ONE POINTER-SET «, t00=0x0112, t01=0x0182}
0x1ad94…1adcc Head {h00=0x0034, h01=0x0050, text=»* AND SECOND POINTER IN THE OTHER POINTER-SET: «, t00=0x0113, t01=0x002a}
0x1adcc…1ae00 Head {h00=0x0030, h01=0x0050, text=»* STORE SECOND POINTER OF FIRST POINTER-SET«, t00=0x0113, t01=0x0062}
0x1ae00…1ae36 Head {h00=0x0032, h01=0x0050, text=»* IN RUNTIME-DWT POINTED AT BY FIRST POINTER «, t00=0x0113, t01=0x0096}
0x1ae36…1ae6c Head {h00=0x0032, h01=0x0050, text=»* OF SECOND POINTER-SET AND CLEAR POINTERS OF«, t00=0x0113, t01=0x00cc}
0x1ae6c…1ae8a Head {h00=0x001a, h01=0x0050, text=»* SECOND POINTER-SET.«, t00=0x0113, t01=0x0102}
0x1ae8a…1aec6 Head {h00=0x0038, h01=0x0050, text=»* WHEN ALL POINTER-SET HAS BEEN SCANNED,THE LENGTH «, t00=0x0113, t01=0x0120}
0x1aec6…1aef2 Head {h00=0x0028, h01=0x0050, text=»* OF ECHO DEVICE TABLE IS CLEARED. «, t00=0x0113, t01=0x015c}
0x1aef2…1aefc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x0188}
0x1aefc…1af3e (276, 0, 400) Head {h00=0x003e, h01=0x0050, text=»ECHO LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE «, t00=0x0114, t01=0x0004}
0x1af3e…1af64 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DWT160 NO ECHO DEVICES!«, t00=0x0114, t01=0x0046}
0x1af64…1afa2 Head {h00=0x003a, h01=0x0050, text=» AD A3,STKEND+ECHTAB COMPUTE END OF ECHO DEVICE TABLE «, t00=0x0114, t01=0x006c}
0x1afa2…1afde Head {h00=0x0038, h01=0x0050, text=» LD A1,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE «, t00=0x0114, t01=0x00aa}
0x1afde…1affe Head {h00=0x001c, h01=0x0050, text=» ADK A1,2 BYPASS LENGTH «, t00=0x0114, t01=0x00e6}
0x1affe…1b03e Head {h00=0x003c, h01=0x0050, text=»DWT90 LD A2,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE«, t00=0x0114, t01=0x0106}
0x1b03e…1b05e Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 BYPASS LENGTH «, t00=0x0114, t01=0x0146}
0x1b05e…1b098 Head {h00=0x0036, h01=0x0050, text=»DWT100 LD A4,2,A1 GET SECOND POINTER IN FIRST SET «, t00=0x0114, t01=0x0166}
0x1b098…1b0da Head {h00=0x003e, h01=0x0050, text=»DWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET«, t00=0x0115, t01=0x0010}
0x1b0da…1b0fc Head {h00=0x001e, h01=0x0050, text=» RF(E) DWT130 COINCIDENCE!«, t00=0x0115, t01=0x0052}
0x1b0fc…1b11e Head {h00=0x001e, h01=0x0050, text=» ADK A2,4 NEXT POINTER-SET«, t00=0x0115, t01=0x0074}
0x1b11e…1b14a Head {h00=0x0028, h01=0x0050, text=» CWR A2,A3 END OF ECHO DEVICE TABLE «, t00=0x0115, t01=0x0096}
0x1b14a…1b172 Head {h00=0x0024, h01=0x0050, text=» RB(NE) DWT110 NO:CHECK NEXT SET«, t00=0x0115, t01=0x00c2}
0x1b172…1b184 Head {h00=0x000e, h01=0x0050, text=» RF DWT140«, t00=0x0115, t01=0x00ea}
0x1b184…1b1c2 Head {h00=0x003a, h01=0x0050, text=»DWT130 LD A4,2,A2 ADDRESS TO OUTPUT DEVICE RUNTIME-DWT«, t00=0x0115, t01=0x00fc}
0x1b1c2…1b1fa Head {h00=0x0034, h01=0x0050, text=» LDR* A2,A1 ADDRESS TO INPUT DEVICE RUNTIME-DWT «, t00=0x0115, t01=0x013a}
0x1b1fa…1b236 Head {h00=0x0038, h01=0x0050, text=» ST A4,DWTECH,A2 STORE DEVICE-ADDRESS TO ECHO-DEVICE«, t00=0x0115, t01=0x0172}
0x1b236…1b25a Head {h00=0x0020, h01=0x0050, text=» CMR A1 CLEAR FIRST POINTER «, t00=0x0116, t01=0x001e}
0x1b25a…1b280 Head {h00=0x0022, h01=0x0050, text=» CM 2,A1 CLEAR SECOND POINTER «, t00=0x0116, t01=0x0042}
0x1b280…1b2a8 Head {h00=0x0024, h01=0x0050, text=»DWT140 ADK A1,4 NEXT POINTER-SET«, t00=0x0116, t01=0x0068}
0x1b2a8…1b2d4 Head {h00=0x0028, h01=0x0050, text=» CWR A1,A3 END OF ECHO DEVICE TABLE «, t00=0x0116, t01=0x0090}
0x1b2d4…1b2ee Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT90 NO! «, t00=0x0116, t01=0x00bc}
0x1b2ee…1b31c Head {h00=0x002a, h01=0x0050, text=»DWT150 CM* STKEND+ECHTAB CLEAR LENGTH «, t00=0x0116, t01=0x00d6}
0x1b31c…1b33a Head {h00=0x001a, h01=0x0050, text=»DWT160 RTN A14 RETURN «, t00=0x0116, t01=0x0104}
0x1b33a…1b348 Head {h00=0x000a, h01=0x0050, text=» =6«, t00=0x0116, t01=0x0122}
0x1b348…1b35e Head {h00=0x0012, h01=0x0050, text=» IFF TEDVCL=0 «, t00=0x0116, t01=0x0130}
0x1b35e…1b36c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0116, t01=0x0146}
0x1b36c…1b3a2 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0116, t01=0x0154}
0x1b3a2…1b3d8 Head {h00=0x0032, h01=0x0050, text=»* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE *«, t00=0x0116, t01=0x018a}
0x1b3d8…1b40e Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0117, t01=0x0030}
0x1b40e…1b418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0066}
0x1b418…1b43a Head {h00=0x001e, h01=0x0050, text=»* REFERENCED IN: DWTGEN «, t00=0x0117, t01=0x0070}
0x1b43a…1b444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0092}
0x1b444…1b472 Head {h00=0x002a, h01=0x0050, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x0117, t01=0x009c}
0x1b472…1b47c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x00ca}
0x1b47c…1b4ac Head {h00=0x002c, h01=0x0050, text=»* EXIT: REAL TIME INTERRUPT TABLES FOR«, t00=0x0117, t01=0x00d4}
0x1b4ac…1b4e2 Head {h00=0x0032, h01=0x0050, text=»* LT,RT,PLC,VCCU1/4,SALCUZ AND ASCU4Z «, t00=0x0117, t01=0x0104}
0x1b4e2…1b4ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x013a}
0x1b4ec…1b502 Head {h00=0x0012, h01=0x0050, text=»* SUBROUTINES«, t00=0x0117, t01=0x0144}
0x1b502…1b50c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x015a}
0x1b50c…1b51a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0117, t01=0x0164}
0x1b51a…1b550 Head {h00=0x0032, h01=0x0050, text=»B:ITAB EQU * BUILD REAL-TIME INTERRUPT TABLES «, t00=0x0117, t01=0x0172}
0x1b550…1b584 Head {h00=0x0030, h01=0x0050, text=» LD A1,STKEND+FWTFLG T.I.T. IN FREE AREA? =7«, t00=0x0118, t01=0x0018}
0x1b584…1b5a2 Head {h00=0x001a, h01=0x0050, text=» RF(P) B:ITLT YES? =7 «, t00=0x0118, t01=0x004c}
0x1b5a2…1b5da Head {h00=0x0034, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA =7 «, t00=0x0118, t01=0x006a}
0x1b5da…1b5f0 Head {h00=0x0012, h01=0x0050, text=» LDR A1,P =7 «, t00=0x0118, t01=0x00a2}
0x1b5f0…1b608 Head {h00=0x0014, h01=0x0050, text=»BIT05 EQU * =7 «, t00=0x0118, t01=0x00b8}
0x1b608…1b636 Head {h00=0x002a, h01=0x0050, text=» SUK A1,2 DECREMENT MEMORY ADDRESS =7 «, t00=0x0118, t01=0x00d0}
0x1b636…1b65a Head {h00=0x0020, h01=0x0050, text=» CMR A1 CLEAR MEMORY AREA =7«, t00=0x0118, t01=0x00fe}
0x1b65a…1b686 Head {h00=0x0028, h01=0x0050, text=» CW A1,SCTSFA ALL WORDS CLEARED? =7 «, t00=0x0118, t01=0x0122}
0x1b686…1b6a2 Head {h00=0x0018, h01=0x0050, text=» RB(NE) BIT05 NO! =7«, t00=0x0118, t01=0x014e}
0x1b6a2…1b6ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0118, t01=0x016a}
0x1b6ac…1b6de Head {h00=0x002e, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR LT «, t00=0x0118, t01=0x0174}
0x1b6de…1b6e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x0016}
0x1b6e8…1b6f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0119, t01=0x0020}
0x1b6f4…1b708 Head {h00=0x0010, h01=0x0050, text=»B:ITLT EQU *«, t00=0x0119, t01=0x002c}
0x1b708…1b71c Head {h00=0x0010, h01=0x0050, text=» IFF SUML=0 «, t00=0x0119, t01=0x0040}
0x1b71c…1b744 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,0 CONNECTION TYPE = LT «, t00=0x0119, t01=0x0054}
0x1b744…1b762 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,7 1:ST BOARD «, t00=0x0119, t01=0x007c}
0x1b762…1b794 Head {h00=0x002e, h01=0x0050, text=» LDK A1,16 MAX.LENGTH OF BOARD CONF. TABLE«, t00=0x0119, t01=0x009a}
0x1b794…1b7b4 Head {h00=0x001c, h01=0x0050, text=» ST A1,STKEND+WRK4 SAVE «, t00=0x0119, t01=0x00cc}
0x1b7b4…1b7d2 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0119, t01=0x00ec}
0x1b7d2…1b7f0 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0119, t01=0x010a}
0x1b7f0…1b80e Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0119, t01=0x0128}
0x1b80e…1b822 Head {h00=0x0010, h01=0x0050, text=»BIT10 EQU * «, t00=0x0119, t01=0x0146}
0x1b822…1b836 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0119, t01=0x015a}
0x1b836…1b84a Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0119, t01=0x016e}
0x1b84a…1b878 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0119, t01=0x0182}
0x1b878…1b89e Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x011a, t01=0x0020}
0x1b89e…1b8b6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BIT15 NO!«, t00=0x011a, t01=0x0046}
0x1b8b6…1b8d4 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x011a, t01=0x005e}
0x1b8d4…1b912 Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x011a, t01=0x007c}
0x1b912…1b930 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTLT1,A1 SAVE «, t00=0x011a, t01=0x00ba}
0x1b930…1b944 Head {h00=0x0010, h01=0x0050, text=»BIT15 EQU * «, t00=0x011a, t01=0x00d8}
0x1b944…1b956 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x011a, t01=0x00ec}
0x1b956…1b980 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x011a, t01=0x00fe}
0x1b980…1b992 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x011a, t01=0x0128}
0x1b992…1b9b2 Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+WRK1 STORE«, t00=0x011a, t01=0x013a}
0x1b9b2…1b9d0 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,7 NEXT BOARD «, t00=0x011a, t01=0x015a}
0x1b9d0…1b9ee Head {h00=0x001a, h01=0x0050, text=» CWK A9,31 LAST BOARD?«, t00=0x011a, t01=0x0178}
0x1b9ee…1ba08 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITRT YES!«, t00=0x011b, t01=0x0008}
0x1ba08…1ba1a Head {h00=0x000e, h01=0x0050, text=» RB BIT10 «, t00=0x011b, t01=0x0022}
0x1ba1a…1ba26 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011b, t01=0x0034}
0x1ba26…1ba34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011b, t01=0x0040}
0x1ba34…1ba3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x004e}
0x1ba3e…1ba70 Head {h00=0x002e, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR RT «, t00=0x011b, t01=0x0058}
0x1ba70…1ba7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x008a}
0x1ba7a…1ba8e Head {h00=0x0010, h01=0x0050, text=»B:ITRT EQU *«, t00=0x011b, t01=0x0094}
0x1ba8e…1baa2 Head {h00=0x0010, h01=0x0050, text=» IFF SUMR=0 «, t00=0x011b, t01=0x00a8}
0x1baa2…1baca Head {h00=0x0024, h01=0x0050, text=» LDKL A8,1 CONNECTION TYPE = RT «, t00=0x011b, t01=0x00bc}
0x1baca…1bae8 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,3 1:ST BOARD «, t00=0x011b, t01=0x00e4}
0x1bae8…1bb1a Head {h00=0x002e, h01=0x0050, text=» LDK A1,8 MAX.LENGTH OF BOARD CONF. TABLE «, t00=0x011b, t01=0x0102}
0x1bb1a…1bb3a Head {h00=0x001c, h01=0x0050, text=» ST A1,STKEND+WRK4 SAVE «, t00=0x011b, t01=0x0134}
0x1bb3a…1bb58 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x011b, t01=0x0154}
0x1bb58…1bb76 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x011b, t01=0x0172}
0x1bb76…1bb94 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x011b, t01=0x0190}
0x1bb94…1bba8 Head {h00=0x0010, h01=0x0050, text=»BRT10 EQU * «, t00=0x011c, t01=0x001e}
0x1bba8…1bbbc Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x011c, t01=0x0032}
0x1bbbc…1bbd0 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x011c, t01=0x0046}
0x1bbd0…1bbfe Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x011c, t01=0x005a}
0x1bbfe…1bc24 Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x011c, t01=0x0088}
0x1bc24…1bc3c Head {h00=0x0014, h01=0x0050, text=» RF(Z) BRT15 NO!«, t00=0x011c, t01=0x00ae}
0x1bc3c…1bc5a Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x011c, t01=0x00c6}
0x1bc5a…1bc98 Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x011c, t01=0x00e4}
0x1bc98…1bcb6 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTRT1,A1 SAVE «, t00=0x011c, t01=0x0122}
0x1bcb6…1bcca Head {h00=0x0010, h01=0x0050, text=»BRT15 EQU * «, t00=0x011c, t01=0x0140}
0x1bcca…1bcdc Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x011c, t01=0x0154}
0x1bcdc…1bd06 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x011c, t01=0x0166}
0x1bd06…1bd18 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x011c, t01=0x0190}
0x1bd18…1bd38 Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+WRK1 STORE«, t00=0x011d, t01=0x0012}
0x1bd38…1bd56 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,3 NEXT BOARD «, t00=0x011d, t01=0x0032}
0x1bd56…1bd74 Head {h00=0x001a, h01=0x0050, text=» CWK A9,15 LAST BOARD?«, t00=0x011d, t01=0x0050}
0x1bd74…1bd8e Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITPC YES!«, t00=0x011d, t01=0x006e}
0x1bd8e…1bda0 Head {h00=0x000e, h01=0x0050, text=» RB BRT10 «, t00=0x011d, t01=0x0088}
0x1bda0…1bdac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011d, t01=0x009a}
0x1bdac…1bdba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011d, t01=0x00a6}
0x1bdba…1bdc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x00b4}
0x1bdc4…1bdfc Head {h00=0x0034, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR PLC-LOCAL«, t00=0x011d, t01=0x00be}
0x1bdfc…1be06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x00f6}
0x1be06…1be1a Head {h00=0x0010, h01=0x0050, text=»B:ITPC EQU *«, t00=0x011d, t01=0x0100}
0x1be1a…1be2e Head {h00=0x0010, h01=0x0050, text=» IFF PLCL=0 «, t00=0x011d, t01=0x0114}
0x1be2e…1be56 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,5 CONNECTION TYPE = PLC«, t00=0x011d, t01=0x0128}
0x1be56…1be74 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,32 1:ST BOARD«, t00=0x011d, t01=0x0150}
0x1be74…1bea8 Head {h00=0x0030, h01=0x0050, text=» LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2«, t00=0x011d, t01=0x016e}
0x1bea8…1bec2 Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x011e, t01=0x0012}
0x1bec2…1bed8 Head {h00=0x0012, h01=0x0050, text=» LDK A1,1 =2 «, t00=0x011e, t01=0x002c}
0x1bed8…1bef6 Head {h00=0x001a, h01=0x0050, text=» ST A1,STKEND+WRK1 =2«, t00=0x011e, t01=0x0042}
0x1bef6…1bf14 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x011e, t01=0x0060}
0x1bf14…1bf32 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x011e, t01=0x007e}
0x1bf32…1bf46 Head {h00=0x0010, h01=0x0050, text=»BPC10 EQU * «, t00=0x011e, t01=0x009c}
0x1bf46…1bf5a Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x011e, t01=0x00b0}
0x1bf5a…1bf6e Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x011e, t01=0x00c4}
0x1bf6e…1bf9c Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x011e, t01=0x00d8}
0x1bf9c…1bfc2 Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x011e, t01=0x0106}
0x1bfc2…1bfda Head {h00=0x0014, h01=0x0050, text=» RF(Z) BPC15 NO!«, t00=0x011e, t01=0x012c}
0x1bfda…1bff2 Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x011e, t01=0x0144}
0x1bff2…1c038 Head {h00=0x0042, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE «, t00=0x011e, t01=0x015c}
0x1c038…1c056 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTPL1,A1 SAVE «, t00=0x011f, t01=0x0012}
0x1c056…1c06a Head {h00=0x0010, h01=0x0050, text=»BPC15 EQU * «, t00=0x011f, t01=0x0030}
0x1c06a…1c07c Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x011f, t01=0x0044}
0x1c07c…1c0a6 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x011f, t01=0x0056}
0x1c0a6…1c0b8 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x011f, t01=0x0080}
0x1c0b8…1c0d2 Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x011f, t01=0x0092}
0x1c0d2…1c0f0 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,31 NEXT BOARD«, t00=0x011f, t01=0x00ac}
0x1c0f0…1c110 Head {h00=0x001c, h01=0x0050, text=» CWK A9,128 LAST BOARD? «, t00=0x011f, t01=0x00ca}
0x1c110…1c12e Head {h00=0x001a, h01=0x0050, text=» RF(G) B:ITPR YES! =8 «, t00=0x011f, t01=0x00ea}
0x1c12e…1c140 Head {h00=0x000e, h01=0x0050, text=» RB BPC10 «, t00=0x011f, t01=0x0108}
0x1c140…1c14c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011f, t01=0x011a}
0x1c14c…1c15a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011f, t01=0x0126}
0x1c15a…1c164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x0134}
0x1c164…1c1a0 Head {h00=0x0038, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR PLC-REMOTE =8«, t00=0x011f, t01=0x013e}
0x1c1a0…1c1aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x017a}
0x1c1aa…1c1be Head {h00=0x0010, h01=0x0050, text=»B:ITPR EQU *«, t00=0x011f, t01=0x0184}
0x1c1be…1c1d2 Head {h00=0x0010, h01=0x0050, text=» IFF PLCR=0 «, t00=0x0120, t01=0x0008}
0x1c1d2…1c200 Head {h00=0x002a, h01=0x0050, text=» LDKL A8,6 CONNECTION TYPE=PLC-REMOTE «, t00=0x0120, t01=0x001c}
0x1c200…1c21e Head {h00=0x001a, h01=0x0050, text=» LDKL A9,32 1:ST BOARD«, t00=0x0120, t01=0x004a}
0x1c21e…1c252 Head {h00=0x0030, h01=0x0050, text=» LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2«, t00=0x0120, t01=0x0068}
0x1c252…1c26c Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x0120, t01=0x009c}
0x1c26c…1c282 Head {h00=0x0012, h01=0x0050, text=» LDK A1,1 =2 «, t00=0x0120, t01=0x00b6}
0x1c282…1c2a0 Head {h00=0x001a, h01=0x0050, text=» ST A1,STKEND+WRK1 =2«, t00=0x0120, t01=0x00cc}
0x1c2a0…1c2be Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0120, t01=0x00ea}
0x1c2be…1c2dc Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0120, t01=0x0108}
0x1c2dc…1c2f0 Head {h00=0x0010, h01=0x0050, text=»BPR10 EQU * «, t00=0x0120, t01=0x0126}
0x1c2f0…1c304 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0120, t01=0x013a}
0x1c304…1c318 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0120, t01=0x014e}
0x1c318…1c346 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0120, t01=0x0162}
0x1c346…1c36c Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x0120, t01=0x0190}
0x1c36c…1c384 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BPR15 NO!«, t00=0x0121, t01=0x0026}
0x1c384…1c39c Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x0121, t01=0x003e}
0x1c39c…1c3e2 Head {h00=0x0042, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE «, t00=0x0121, t01=0x0056}
0x1c3e2…1c400 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTPR1,A1 SAVE «, t00=0x0121, t01=0x009c}
0x1c400…1c414 Head {h00=0x0010, h01=0x0050, text=»BPR15 EQU * «, t00=0x0121, t01=0x00ba}
0x1c414…1c426 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0121, t01=0x00ce}
0x1c426…1c450 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0121, t01=0x00e0}
0x1c450…1c462 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0121, t01=0x010a}
0x1c462…1c47c Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x0121, t01=0x011c}
0x1c47c…1c49a Head {h00=0x001a, h01=0x0050, text=» ADKL A9,31 NEXT BOARD«, t00=0x0121, t01=0x0136}
0x1c49a…1c4ba Head {h00=0x001c, h01=0x0050, text=» CWK A9,128 LAST BOARD? «, t00=0x0121, t01=0x0154}
0x1c4ba…1c4d4 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITVU YES!«, t00=0x0121, t01=0x0174}
0x1c4d4…1c4e6 Head {h00=0x000e, h01=0x0050, text=» RB BPR10 «, t00=0x0121, t01=0x018e}
0x1c4e6…1c4f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0122, t01=0x0010}
0x1c4f2…1c500 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0122, t01=0x001c}
0x1c500…1c508 Head {h00=0x0004, h01=0x0050, t00=0x0122, t01=0x002a}
0x1c508…1c512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x0032}
0x1c512…1c548 Head {h00=0x0032, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR VCCU1/4«, t00=0x0122, t01=0x003c}
0x1c548…1c552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x0072}
0x1c552…1c566 Head {h00=0x0010, h01=0x0050, text=»B:ITVU EQU *«, t00=0x0122, t01=0x007c}
0x1c566…1c57a Head {h00=0x0010, h01=0x0050, text=» IFF VIDEO=0«, t00=0x0122, t01=0x0090}
0x1c57a…1c5a6 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,7 CONNECTION TYPE = VCCU1/4«, t00=0x0122, t01=0x00a4}
0x1c5a6…1c5c4 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,3 1:ST BOARD «, t00=0x0122, t01=0x00d0}
0x1c5c4…1c5f6 Head {h00=0x002e, h01=0x0050, text=» LDK A1,8 MAX.LENGTH OF BOARD CONF. TABLE «, t00=0x0122, t01=0x00ee}
0x1c5f6…1c616 Head {h00=0x001c, h01=0x0050, text=» ST A1,STKEND+WRK4 SAVE «, t00=0x0122, t01=0x0120}
0x1c616…1c634 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0122, t01=0x0140}
0x1c634…1c652 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0122, t01=0x015e}
0x1c652…1c670 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0122, t01=0x017c}
0x1c670…1c684 Head {h00=0x0010, h01=0x0050, text=»BVU10 EQU * «, t00=0x0123, t01=0x000a}
0x1c684…1c698 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0123, t01=0x001e}
0x1c698…1c6ac Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0123, t01=0x0032}
0x1c6ac…1c6da Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0123, t01=0x0046}
0x1c6da…1c700 Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x0123, t01=0x0074}
0x1c700…1c718 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BVU15 NO!«, t00=0x0123, t01=0x009a}
0x1c718…1c736 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0123, t01=0x00b2}
0x1c736…1c774 Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x0123, t01=0x00d0}
0x1c774…1c792 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTVU1,A1 SAVE «, t00=0x0123, t01=0x010e}
0x1c792…1c7a6 Head {h00=0x0010, h01=0x0050, text=»BVU15 EQU * «, t00=0x0123, t01=0x012c}
0x1c7a6…1c7b8 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0123, t01=0x0140}
0x1c7b8…1c7e2 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0123, t01=0x0152}
0x1c7e2…1c7f4 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0123, t01=0x017c}
0x1c7f4…1c814 Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+WRK1 STORE«, t00=0x0123, t01=0x018e}
0x1c814…1c832 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,3 NEXT BOARD «, t00=0x0124, t01=0x001e}
0x1c832…1c850 Head {h00=0x001a, h01=0x0050, text=» CWK A9,31 LAST BOARD?«, t00=0x0124, t01=0x003c}
0x1c850…1c86a Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITSZ YES!«, t00=0x0124, t01=0x005a}
0x1c86a…1c87c Head {h00=0x000e, h01=0x0050, text=» RB BVU10 «, t00=0x0124, t01=0x0074}
0x1c87c…1c888 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0124, t01=0x0086}
0x1c888…1c890 Head {h00=0x0004, h01=0x0050, t00=0x0124, t01=0x0092}
0x1c890…1c89e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0124, t01=0x009a}
0x1c89e…1c8a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x00a8}
0x1c8a8…1c8de Head {h00=0x0032, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR SALCUZ «, t00=0x0124, t01=0x00b2}
0x1c8de…1c8e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x00e8}
0x1c8e8…1c8fc Head {h00=0x0010, h01=0x0050, text=»B:ITSZ EQU *«, t00=0x0124, t01=0x00f2}
0x1c8fc…1c912 Head {h00=0x0012, h01=0x0050, text=» IFF SALCUZ=0 «, t00=0x0124, t01=0x0106}
0x1c912…1c93e Head {h00=0x0028, h01=0x0050, text=» LDKL A8,2 CONNECTION TYPE = SALCUZ «, t00=0x0124, t01=0x011c}
0x1c93e…1c95c Head {h00=0x001a, h01=0x0050, text=» LDKL A9,0 1:ST BOARD «, t00=0x0124, t01=0x0148}
0x1c95c…1c98e Head {h00=0x002e, h01=0x0050, text=» LDK A1,2 MAX. LENGTH OF BOARD CONF.TABLE «, t00=0x0124, t01=0x0166}
0x1c98e…1c9a8 Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x0125, t01=0x0008}
0x1c9a8…1c9c6 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0125, t01=0x0022}
0x1c9c6…1c9e4 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0125, t01=0x0040}
0x1c9e4…1ca02 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0125, t01=0x005e}
0x1ca02…1ca16 Head {h00=0x0010, h01=0x0050, text=»BSZ10 EQU * «, t00=0x0125, t01=0x007c}
0x1ca16…1ca2a Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0125, t01=0x0090}
0x1ca2a…1ca3e Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0125, t01=0x00a4}
0x1ca3e…1ca6c Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0125, t01=0x00b8}
0x1ca6c…1ca92 Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x0125, t01=0x00e6}
0x1ca92…1caa6 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BSZ15«, t00=0x0125, t01=0x010c}
0x1caa6…1cabe Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x0125, t01=0x0120}
0x1cabe…1cafc Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x0125, t01=0x0138}
0x1cafc…1cb1a Head {h00=0x001a, h01=0x0050, text=» ST A2,INTSL1,A1 SAVE «, t00=0x0125, t01=0x0176}
0x1cb1a…1cb2e (294, 0, 400) Head {h00=0x0010, h01=0x0050, text=»BSZ15 EQU * «, t00=0x0126, t01=0x0004}
0x1cb2e…1cb40 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0126, t01=0x0018}
0x1cb40…1cb6a Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0126, t01=0x002a}
0x1cb6a…1cb7c Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0126, t01=0x0054}
0x1cb7c…1cb96 Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x0126, t01=0x0066}
0x1cb96…1cbb4 Head {h00=0x001a, h01=0x0050, text=» CWK A9,7 LAST BOARD? «, t00=0x0126, t01=0x0080}
0x1cbb4…1cbce Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITAZ YES!«, t00=0x0126, t01=0x009e}
0x1cbce…1cbe0 Head {h00=0x000e, h01=0x0050, text=» RB BSZ10 «, t00=0x0126, t01=0x00b8}
0x1cbe0…1cbec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0126, t01=0x00ca}
0x1cbec…1cbfa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0126, t01=0x00d6}
0x1cbfa…1cc04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x00e4}
0x1cc04…1cc3a Head {h00=0x0032, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR ASCU4Z «, t00=0x0126, t01=0x00ee}
0x1cc3a…1cc44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x0124}
0x1cc44…1cc58 Head {h00=0x0010, h01=0x0050, text=»B:ITAZ EQU *«, t00=0x0126, t01=0x012e}
0x1cc58…1cc6e Head {h00=0x0012, h01=0x0050, text=» IFF ASCU4Z=0 «, t00=0x0126, t01=0x0142}
0x1cc6e…1cc9a Head {h00=0x0028, h01=0x0050, text=» LDKL A8,3 CONNECTION TYPE = ASCU4Z «, t00=0x0126, t01=0x0158}
0x1cc9a…1ccb8 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,3 1:ST BOARD «, t00=0x0126, t01=0x0184}
0x1ccb8…1ccea Head {h00=0x002e, h01=0x0050, text=» LDK A1,8 MAX. LENGTH OF BOARD CONF.TABLE «, t00=0x0127, t01=0x0012}
0x1ccea…1cd04 Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x0127, t01=0x0044}
0x1cd04…1cd22 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0127, t01=0x005e}
0x1cd22…1cd40 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0127, t01=0x007c}
0x1cd40…1cd5e Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0127, t01=0x009a}
0x1cd5e…1cd72 Head {h00=0x0010, h01=0x0050, text=»BAZ10 EQU * «, t00=0x0127, t01=0x00b8}
0x1cd72…1cd86 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0127, t01=0x00cc}
0x1cd86…1cd9a Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0127, t01=0x00e0}
0x1cd9a…1cdc8 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0127, t01=0x00f4}
0x1cdc8…1cdec Head {h00=0x0020, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES«, t00=0x0127, t01=0x0122}
0x1cdec…1ce00 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BAZ15«, t00=0x0127, t01=0x0146}
0x1ce00…1ce18 Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x0127, t01=0x015a}
0x1ce18…1ce5e Head {h00=0x0042, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE «, t00=0x0127, t01=0x0172}
0x1ce5e…1ce7c Head {h00=0x001a, h01=0x0050, text=» ST A2,INTAS1,A1 SAVE «, t00=0x0128, t01=0x0028}
0x1ce7c…1ce90 Head {h00=0x0010, h01=0x0050, text=»BAZ15 EQU * «, t00=0x0128, t01=0x0046}
0x1ce90…1cea2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0128, t01=0x005a}
0x1cea2…1cecc Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0128, t01=0x006c}
0x1cecc…1cede Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0128, t01=0x0096}
0x1cede…1cef8 Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x0128, t01=0x00a8}
0x1cef8…1cf16 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,3 NEXT BOARD «, t00=0x0128, t01=0x00c2}
0x1cf16…1cf34 Head {h00=0x001a, h01=0x0050, text=» CWK A9,31 LAST BOARD?«, t00=0x0128, t01=0x00e0}
0x1cf34…1cf4e Head {h00=0x0016, h01=0x0050, text=» RF(G) BAZ20 YES! «, t00=0x0128, t01=0x00fe}
0x1cf4e…1cf60 Head {h00=0x000e, h01=0x0050, text=» RB BAZ10 «, t00=0x0128, t01=0x0118}
0x1cf60…1cf74 Head {h00=0x0010, h01=0x0050, text=»BAZ20 EQU * «, t00=0x0128, t01=0x012a}
0x1cf74…1cf80 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0128, t01=0x013e}
0x1cf80…1cf90 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0128, t01=0x014a}
0x1cf90…1cf9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0128, t01=0x015a}
0x1cf9e…1cfd4 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0128, t01=0x0168}
0x1cfd4…1d00a Head {h00=0x0032, h01=0x0050, text=»* I:CHSZ - INIT CHANNEL PARAMETERS SALCUZ * «, t00=0x0129, t01=0x000e}
0x1d00a…1d040 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0129, t01=0x0044}
0x1d040…1d04a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x007a}
0x1d04a…1d06a Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0129, t01=0x0084}
0x1d06a…1d074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x00a4}
0x1d074…1d0a4 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0129, t01=0x00ae}
0x1d0a4…1d0d0 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0129, t01=0x00de}
0x1d0d0…1d0fe Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0129, t01=0x010a}
0x1d0fe…1d108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x0138}
0x1d108…1d136 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0129, t01=0x0142}
0x1d136…1d164 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0129, t01=0x0170}
0x1d164…1d196 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x012a, t01=0x000e}
0x1d196…1d1c4 Head {h00=0x002a, h01=0x0050, text=»* BITS 4 -11 LINE NUMBER«, t00=0x012a, t01=0x0040}
0x1d1c4…1d1de Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x012a, t01=0x006e}
0x1d1de…1d1e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0088}
0x1d1e8…1d200 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x012a, t01=0x0092}
0x1d200…1d20a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x00aa}
0x1d20a…1d21e Head {h00=0x0010, h01=0x0050, text=»I:CHSZ EQU *«, t00=0x012a, t01=0x00b4}
0x1d21e…1d234 Head {h00=0x0012, h01=0x0050, text=» IFF SALCUZ=0 «, t00=0x012a, t01=0x00c8}
0x1d234…1d25c Head {h00=0x0024, h01=0x0050, text=» CWK A6,8 CONNECTION NUMBER <=8?«, t00=0x012a, t01=0x00de}
0x1d25c…1d276 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x012a, t01=0x0106}
0x1d276…1d29e Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x012a, t01=0x0120}
0x1d29e…1d2b8 Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x012a, t01=0x0148}
0x1d2b8…1d2e8 Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x012a, t01=0x0162}
0x1d2e8…1d31c (299, 0, 398) Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x012b, t01=0x0004}
0x1d31c…1d344 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x012b, t01=0x0038}
0x1d344…1d378 Head {h00=0x0030, h01=0x0050, text=» LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER«, t00=0x012b, t01=0x0060}
0x1d378…1d39e Head {h00=0x0022, h01=0x0050, text=» SLL A3,4 MOVE TO BITS 4 - 11 «, t00=0x012b, t01=0x0094}
0x1d39e…1d3ca Head {h00=0x0028, h01=0x0050, text=» ADK A3,2 ADD CONNECTION TYPE SALCUZ«, t00=0x012b, t01=0x00ba}
0x1d3ca…1d3fc Head {h00=0x002e, h01=0x0050, text=» ADKL A6,/0200 ADD CONNECTION TYPE SALCUZ «, t00=0x012b, t01=0x00e6}
0x1d3fc…1d414 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x012b, t01=0x0118}
0x1d414…1d420 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012b, t01=0x0130}
0x1d420…1d436 Head {h00=0x0012, h01=0x0050, text=» IFT SALCUZ=0 «, t00=0x012b, t01=0x013c}
0x1d436…1d44c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x012b, t01=0x0152}
0x1d44c…1d460 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x012b, t01=0x0168}
0x1d460…1d46c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012b, t01=0x017c}
0x1d46c…1d47a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012b, t01=0x0188}
0x1d47a…1d4b8 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x012c, t01=0x0008}
0x1d4b8…1d4ee Head {h00=0x0032, h01=0x0050, text=»* I:CHAZ - INIT CHANNEL PARAMETERS ASCU4Z * «, t00=0x012c, t01=0x0046}
0x1d4ee…1d52c Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x012c, t01=0x007c}
0x1d52c…1d536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x00ba}
0x1d536…1d556 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x012c, t01=0x00c4}
0x1d556…1d560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x00e4}
0x1d560…1d590 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x012c, t01=0x00ee}
0x1d590…1d5bc Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x012c, t01=0x011e}
0x1d5bc…1d5e8 Head {h00=0x0028, h01=0x0050, text=»* A4 - LINE CONNECTION TYPE«, t00=0x012c, t01=0x014a}
0x1d5e8…1d616 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x012c, t01=0x0176}
0x1d616…1d620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x0014}
0x1d620…1d64e Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x012d, t01=0x001e}
0x1d64e…1d67c Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x012d, t01=0x004c}
0x1d67c…1d6ae Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x012d, t01=0x007a}
0x1d6ae…1d6dc Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x012d, t01=0x00ac}
0x1d6dc…1d6e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x00da}
0x1d6e6…1d700 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x012d, t01=0x00e4}
0x1d700…1d70a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x00fe}
0x1d70a…1d722 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x012d, t01=0x0108}
0x1d722…1d72c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x0120}
0x1d72c…1d740 Head {h00=0x0010, h01=0x0050, text=»I:CHAZ EQU *«, t00=0x012d, t01=0x012a}
0x1d740…1d756 Head {h00=0x0012, h01=0x0050, text=» IFF ASCU4Z=0 «, t00=0x012d, t01=0x013e}
0x1d756…1d780 Head {h00=0x0026, h01=0x0050, text=» CWK A6,32 CONNECTION NUMBER <=32?«, t00=0x012d, t01=0x0154}
0x1d780…1d79a Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x012d, t01=0x017e}
0x1d79a…1d7c2 Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x012e, t01=0x0008}
0x1d7c2…1d7dc Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x012e, t01=0x0030}
0x1d7dc…1d80c Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x012e, t01=0x004a}
0x1d80c…1d840 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x012e, t01=0x007a}
0x1d840…1d868 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x012e, t01=0x00ae}
0x1d868…1d89c Head {h00=0x0030, h01=0x0050, text=» LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER«, t00=0x012e, t01=0x00d6}
0x1d89c…1d8bc Head {h00=0x001c, h01=0x0050, text=» ANK A3,3 GET BITS 14-15«, t00=0x012e, t01=0x010a}
0x1d8bc…1d8e6 Head {h00=0x0026, h01=0x0050, text=» SLL A3,8 MOVE TO BITS TO BITS 6-7«, t00=0x012e, t01=0x012a}
0x1d8e6…1d910 Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x012e, t01=0x0154}
0x1d910…1d946 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x012e, t01=0x017e}
0x1d946…1d958 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x012f, t01=0x0024}
0x1d958…1d988 Head {h00=0x002c, h01=0x0050, text=» ANK A6,/1C GET BITS 11-13 BOARD NUMBER «, t00=0x012f, t01=0x0036}
0x1d988…1d9ac Head {h00=0x0020, h01=0x0050, text=» SRL A6,2 MOVE TO BITS 12-15«, t00=0x012f, t01=0x0066}
0x1d9ac…1d9d8 Head {h00=0x0028, h01=0x0050, text=» ADK A3,3 ADD CONNECTION TYPE ASCU4Z«, t00=0x012f, t01=0x008a}
0x1d9d8…1da0a Head {h00=0x002e, h01=0x0050, text=» ADKL A6,/0300 ADD CONNECTION TYPE ASCU4Z «, t00=0x012f, t01=0x00b6}
0x1da0a…1da1a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012f, t01=0x00e8}
0x1da1a…1da26 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012f, t01=0x00f8}
0x1da26…1da3c Head {h00=0x0012, h01=0x0050, text=» IFT ASCU4Z=0 «, t00=0x012f, t01=0x0104}
0x1da3c…1da52 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x012f, t01=0x011a}
0x1da52…1da66 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x012f, t01=0x0130}
0x1da66…1da72 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012f, t01=0x0144}
0x1da72…1da80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012f, t01=0x0150}
0x1da80…1dabe Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x012f, t01=0x015e}
0x1dabe…1daf4 Head {h00=0x0032, h01=0x0050, text=»* I:CHAZ - INIT CHANNEL PARAMETERS VCCU1/4 *«, t00=0x0130, t01=0x000c}
0x1daf4…1db32 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0130, t01=0x0042}
0x1db32…1db3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x0080}
0x1db3c…1db5c Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0130, t01=0x008a}
0x1db5c…1db66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x00aa}
0x1db66…1db96 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0130, t01=0x00b4}
0x1db96…1dbc2 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0130, t01=0x00e4}
0x1dbc2…1dbee Head {h00=0x0028, h01=0x0050, text=»* A4 - LINE CONNECTION TYPE«, t00=0x0130, t01=0x0110}
0x1dbee…1dc1c Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0130, t01=0x013c}
0x1dc1c…1dc26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x016a}
0x1dc26…1dc54 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0130, t01=0x0174}
0x1dc54…1dc82 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0131, t01=0x0012}
0x1dc82…1dcb4 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0131, t01=0x0040}
0x1dcb4…1dce2 Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x0131, t01=0x0072}
0x1dce2…1dcec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x00a0}
0x1dcec…1dd06 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0131, t01=0x00aa}
0x1dd06…1dd10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x00c4}
0x1dd10…1dd28 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0131, t01=0x00ce}
0x1dd28…1dd32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x00e6}
0x1dd32…1dd46 Head {h00=0x0010, h01=0x0050, text=»I:CHVC EQU *«, t00=0x0131, t01=0x00f0}
0x1dd46…1dd5a Head {h00=0x0010, h01=0x0050, text=» IFF VIDEO=0«, t00=0x0131, t01=0x0104}
0x1dd5a…1dd84 Head {h00=0x0026, h01=0x0050, text=» CWK A6,32 CONNECTION NUMBER <=32?«, t00=0x0131, t01=0x0118}
0x1dd84…1dd9e Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0131, t01=0x0142}
0x1dd9e…1ddc6 Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x0131, t01=0x015c}
0x1ddc6…1dde0 Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0131, t01=0x0184}
0x1dde0…1de10 Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x0132, t01=0x000e}
0x1de10…1de44 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0132, t01=0x003e}
0x1de44…1de6c Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x0132, t01=0x0072}
0x1de6c…1dea0 Head {h00=0x0030, h01=0x0050, text=» LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER«, t00=0x0132, t01=0x009a}
0x1dea0…1dec0 Head {h00=0x001c, h01=0x0050, text=» ANK A3,3 GET BITS 14-15«, t00=0x0132, t01=0x00ce}
0x1dec0…1deea Head {h00=0x0026, h01=0x0050, text=» SLL A3,8 MOVE TO BITS TO BITS 6-7«, t00=0x0132, t01=0x00ee}
0x1deea…1df14 Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0132, t01=0x0118}
0x1df14…1df4a Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0132, t01=0x0142}
0x1df4a…1df5c Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0132, t01=0x0178}
0x1df5c…1df8c Head {h00=0x002c, h01=0x0050, text=» ANK A6,/1C GET BITS 11-13 BOARD NUMBER «, t00=0x0132, t01=0x018a}
0x1df8c…1dfb0 Head {h00=0x0020, h01=0x0050, text=» SRL A6,2 MOVE TO BITS 12-15«, t00=0x0133, t01=0x002a}
0x1dfb0…1dfde Head {h00=0x002a, h01=0x0050, text=» ADK A3,7 ADD CONNECTION TYPE VCCU1/4 «, t00=0x0133, t01=0x004e}
0x1dfde…1e010 Head {h00=0x002e, h01=0x0050, text=» ADKL A6,/0700 ADD CONNECTION TYPE VCCU1/4«, t00=0x0133, t01=0x007c}
0x1e010…1e020 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0133, t01=0x00ae}
0x1e020…1e02c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0133, t01=0x00be}
0x1e02c…1e040 Head {h00=0x0010, h01=0x0050, text=» IFT VIDEO=0«, t00=0x0133, t01=0x00ca}
0x1e040…1e056 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0133, t01=0x00de}
0x1e056…1e06a Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0133, t01=0x00f4}
0x1e06a…1e076 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0133, t01=0x0108}
0x1e076…1e084 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0133, t01=0x0114}
0x1e084…1e0b6 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0133, t01=0x0122}
0x1e0b6…1e0ea Head {h00=0x0030, h01=0x0050, text=»* I:CHPC - INIT CHANNEL PARAMETERS LWSI * «, t00=0x0133, t01=0x0154}
0x1e0ea…1e11c Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0133, t01=0x0188}
0x1e11c…1e126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x002a}
0x1e126…1e146 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0134, t01=0x0034}
0x1e146…1e150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x0054}
0x1e150…1e180 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0134, t01=0x005e}
0x1e180…1e1ac Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0134, t01=0x008e}
0x1e1ac…1e1da Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0134, t01=0x00ba}
0x1e1da…1e1e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x00e8}
0x1e1e4…1e212 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0134, t01=0x00f2}
0x1e212…1e240 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0134, t01=0x0120}
0x1e240…1e272 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0134, t01=0x014e}
0x1e272…1e2a0 Head {h00=0x002a, h01=0x0050, text=»* BITS 4 -11 LINE NUMBER«, t00=0x0134, t01=0x0180}
0x1e2a0…1e2aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x001e}
0x1e2aa…1e2c4 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0135, t01=0x0028}
0x1e2c4…1e2dc Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0135, t01=0x0042}
0x1e2dc…1e2e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x005a}
0x1e2e6…1e2fa Head {h00=0x0010, h01=0x0050, text=»I:CHPC EQU *«, t00=0x0135, t01=0x0064}
0x1e2fa…1e30e Head {h00=0x0010, h01=0x0050, text=» IFF PLCL=0 «, t00=0x0135, t01=0x0078}
0x1e30e…1e33a Head {h00=0x0028, h01=0x0050, text=» CWK A6,128 CONNECTION NUMBER <=128?«, t00=0x0135, t01=0x008c}
0x1e33a…1e354 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0135, t01=0x00b8}
0x1e354…1e37c Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x0135, t01=0x00d2}
0x1e37c…1e396 Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0135, t01=0x00fa}
0x1e396…1e3a8 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0135, t01=0x0114}
0x1e3a8…1e3dc Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0135, t01=0x0126}
0x1e3dc…1e404 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x0135, t01=0x015a}
0x1e404…1e432 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x0135, t01=0x0182}
0x1e432…1e456 Head {h00=0x0020, h01=0x0050, text=» ANK A3,/1F GET BITS 11 - 15«, t00=0x0136, t01=0x0020}
0x1e456…1e468 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0136, t01=0x0044}
0x1e468…1e48c Head {h00=0x0020, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 2 - 7«, t00=0x0136, t01=0x0056}
0x1e48c…1e4b6 Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0136, t01=0x007a}
0x1e4b6…1e4e4 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x0136, t01=0x00a4}
0x1e4e4…1e4f6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0136, t01=0x00d2}
0x1e4f6…1e51c Head {h00=0x0022, h01=0x0050, text=» SLL A3,4 MOVE TO BITS 4 - 11 «, t00=0x0136, t01=0x00e4}
0x1e51c…1e546 Head {h00=0x0026, h01=0x0050, text=» ADK A3,5 ADD CONNECTION TYPE PLC «, t00=0x0136, t01=0x010a}
0x1e546…1e576 Head {h00=0x002c, h01=0x0050, text=» ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER«, t00=0x0136, t01=0x0134}
0x1e576…1e59c Head {h00=0x0022, h01=0x0050, text=» SRL A6,5 MOVE TO BITS 12 - 15«, t00=0x0136, t01=0x0164}
0x1e59c…1e5ca Head {h00=0x002a, h01=0x0050, text=» ADKL A6,/0500 ADD CONNECTION TYPE PLC«, t00=0x0136, t01=0x018a}
0x1e5ca…1e5da Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0137, t01=0x0028}
0x1e5da…1e5e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0137, t01=0x0038}
0x1e5e6…1e5fa Head {h00=0x0010, h01=0x0050, text=» IFT PLCL=0 «, t00=0x0137, t01=0x0044}
0x1e5fa…1e610 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0137, t01=0x0058}
0x1e610…1e624 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0137, t01=0x006e}
0x1e624…1e630 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0137, t01=0x0082}
0x1e630…1e63e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0137, t01=0x008e}
0x1e63e…1e670 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0137, t01=0x009c}
0x1e670…1e6a6 Head {h00=0x0032, h01=0x0050, text=»* I:CHPC - INIT CHANNEL PARAMETERS RWSI * =8«, t00=0x0137, t01=0x00ce}
0x1e6a6…1e6d8 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0137, t01=0x0104}
0x1e6d8…1e6e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0137, t01=0x0136}
0x1e6e2…1e702 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0137, t01=0x0140}
0x1e702…1e70c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0137, t01=0x0160}
0x1e70c…1e73c Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0137, t01=0x016a}
0x1e73c…1e768 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0138, t01=0x000a}
0x1e768…1e796 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0138, t01=0x0036}
0x1e796…1e7a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x0064}
0x1e7a0…1e7ce Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0138, t01=0x006e}
0x1e7ce…1e7fc Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0138, t01=0x009c}
0x1e7fc…1e82e Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0138, t01=0x00ca}
0x1e82e…1e85c Head {h00=0x002a, h01=0x0050, text=»* BITS 4 -11 LINE NUMBER«, t00=0x0138, t01=0x00fc}
0x1e85c…1e866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x012a}
0x1e866…1e880 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0138, t01=0x0134}
0x1e880…1e898 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0138, t01=0x014e}
0x1e898…1e8a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x0166}
0x1e8a2…1e8b6 Head {h00=0x0010, h01=0x0050, text=»I:CHRI EQU *«, t00=0x0138, t01=0x0170}
0x1e8b6…1e8ca Head {h00=0x0010, h01=0x0050, text=» IFF PLCR=0 «, t00=0x0138, t01=0x0184}
0x1e8ca…1e8f6 Head {h00=0x0028, h01=0x0050, text=» CWK A6,128 CONNECTION NUMBER <=128?«, t00=0x0139, t01=0x0008}
0x1e8f6…1e910 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0139, t01=0x0034}
0x1e910…1e938 Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x0139, t01=0x004e}
0x1e938…1e952 Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0139, t01=0x0076}
0x1e952…1e964 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0139, t01=0x0090}
0x1e964…1e998 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0139, t01=0x00a2}
0x1e998…1e9c0 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x0139, t01=0x00d6}
0x1e9c0…1e9ee Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x0139, t01=0x00fe}
0x1e9ee…1ea12 Head {h00=0x0020, h01=0x0050, text=» ANK A3,/1F GET BITS 11 - 15«, t00=0x0139, t01=0x012c}
0x1ea12…1ea24 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0139, t01=0x0150}
0x1ea24…1ea48 Head {h00=0x0020, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 2 - 7«, t00=0x0139, t01=0x0162}
0x1ea48…1ea72 Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0139, t01=0x0186}
0x1ea72…1eaa0 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x013a, t01=0x0020}
0x1eaa0…1eab2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x013a, t01=0x004e}
0x1eab2…1ead8 Head {h00=0x0022, h01=0x0050, text=» SLL A3,4 MOVE TO BITS 4 - 11 «, t00=0x013a, t01=0x0060}
0x1ead8…1eb08 Head {h00=0x002c, h01=0x0050, text=» ADK A3,6 ADD CONNECTION TYPE PLC-REMOTE«, t00=0x013a, t01=0x0086}
0x1eb08…1eb38 Head {h00=0x002c, h01=0x0050, text=» ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER«, t00=0x013a, t01=0x00b6}
0x1eb38…1eb5e Head {h00=0x0022, h01=0x0050, text=» SRL A6,5 MOVE TO BITS 12 - 15«, t00=0x013a, t01=0x00e6}
0x1eb5e…1eb94 Head {h00=0x0032, h01=0x0050, text=» ADKL A6,/0600 ADD CONNECTION TYPE PLC-REMOTE «, t00=0x013a, t01=0x010c}
0x1eb94…1eba4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x013a, t01=0x0142}
0x1eba4…1ebb0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013a, t01=0x0152}
0x1ebb0…1ebc4 Head {h00=0x0010, h01=0x0050, text=»NUMERR EQU *«, t00=0x013a, t01=0x015e}
0x1ebc4…1ebf0 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP4 INDICATE FORMAT ERROR «, t00=0x013a, t01=0x0172}
0x1ebf0…1ec04 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x013b, t01=0x000e}
0x1ec04…1ec12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013b, t01=0x0022}
0x1ec12…1ec40 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x013b, t01=0x0030}
0x1ec40…1ec72 Head {h00=0x002e, h01=0x0050, text=»* I:CHLT - INIT CHANNEL PARAMETERS LT * «, t00=0x013b, t01=0x005e}
0x1ec72…1eca0 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x013b, t01=0x0090}
0x1eca0…1ecaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x00be}
0x1ecaa…1ecca Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x013b, t01=0x00c8}
0x1ecca…1ecd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x00e8}
0x1ecd4…1ed04 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x013b, t01=0x00f2}
0x1ed04…1ed30 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x013b, t01=0x0122}
0x1ed30…1ed5e Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x013b, t01=0x014e}
0x1ed5e…1ed68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x017c}
0x1ed68…1ed96 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETERS -1 «, t00=0x013b, t01=0x0186}
0x1ed96…1edc4 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETERS -2 «, t00=0x013c, t01=0x0024}
0x1edc4…1edf6 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x013c, t01=0x0052}
0x1edf6…1ee24 Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x013c, t01=0x0084}
0x1ee24…1ee2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x00b2}
0x1ee2e…1ee48 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x013c, t01=0x00bc}
0x1ee48…1ee52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x00d6}
0x1ee52…1ee6a Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x013c, t01=0x00e0}
0x1ee6a…1ee74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x00f8}
0x1ee74…1ee82 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013c, t01=0x0102}
0x1ee82…1ee96 Head {h00=0x0010, h01=0x0050, text=»I:CHLT EQU *«, t00=0x013c, t01=0x0110}
0x1ee96…1eeaa Head {h00=0x0010, h01=0x0050, text=» IFF SUML=0 «, t00=0x013c, t01=0x0124}
0x1eeaa…1eed8 Head {h00=0x002a, h01=0x0050, text=» CWK A6,0032 CONNECTION NUMBER <= 32? «, t00=0x013c, t01=0x0138}
0x1eed8…1eef4 Head {h00=0x0018, h01=0x0050, text=» RB(G) NUMERR NO =8!«, t00=0x013c, t01=0x0166}
0x1eef4…1ef20 Head {h00=0x0028, h01=0x0050, text=» CWK A6,0001 CONNECTION NUMBER >=01?«, t00=0x013c, t01=0x0182}
0x1ef20…1ef3c Head {h00=0x0018, h01=0x0050, text=» RB(L) NUMERR NO =8!«, t00=0x013d, t01=0x001e}
0x1ef3c…1ef6c Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x013d, t01=0x003a}
0x1ef6c…1efa0 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x013d, t01=0x006a}
0x1efa0…1efcc Head {h00=0x0028, h01=0x0050, text=» ANKL A5,/003F CLEAR BITS TO MODIFY «, t00=0x013d, t01=0x009e}
0x1efcc…1f002 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x013d, t01=0x00ca}
0x1f002…1f022 Head {h00=0x001c, h01=0x0050, text=» ANK A3,7 GET BITS 13-15«, t00=0x013d, t01=0x0100}
0x1f022…1f044 Head {h00=0x001e, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 5-7«, t00=0x013d, t01=0x0120}
0x1f044…1f06e Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x013d, t01=0x0142}
0x1f06e…1f0a4 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x013d, t01=0x016c}
0x1f0a4…1f0b6 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x013e, t01=0x0012}
0x1f0b6…1f0d8 Head {h00=0x001e, h01=0x0050, text=» ANK A6,/18 GET BITS 11-12«, t00=0x013e, t01=0x0024}
0x1f0d8…1f0fc Head {h00=0x0020, h01=0x0050, text=» SRL A6,3 MOVE TO BITS 14-15«, t00=0x013e, t01=0x0046}
0x1f0fc…1f10c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x013e, t01=0x006a}
0x1f10c…1f118 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013e, t01=0x007a}
0x1f118…1f12c Head {h00=0x0010, h01=0x0050, text=» IFT SUML=0 «, t00=0x013e, t01=0x0086}
0x1f12c…1f142 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x013e, t01=0x009a}
0x1f142…1f156 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x013e, t01=0x00b0}
0x1f156…1f162 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013e, t01=0x00c4}
0x1f162…1f170 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013e, t01=0x00d0}
0x1f170…1f1a2 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013e, t01=0x00de}
0x1f1a2…1f1d4 Head {h00=0x002e, h01=0x0050, text=»* I:CHRT - INIT CHANNEL PARAMETERS RT * «, t00=0x013e, t01=0x0110}
0x1f1d4…1f206 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013e, t01=0x0142}
0x1f206…1f210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x0174}
0x1f210…1f230 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x013e, t01=0x017e}
0x1f230…1f23a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x000e}
0x1f23a…1f26a Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x013f, t01=0x0018}
0x1f26a…1f296 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x013f, t01=0x0048}
0x1f296…1f2c4 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x013f, t01=0x0074}
0x1f2c4…1f2ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x00a2}
0x1f2ce…1f2fc Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETERS - 1«, t00=0x013f, t01=0x00ac}
0x1f2fc…1f32a Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETERS - 2«, t00=0x013f, t01=0x00da}
0x1f32a…1f35c Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x013f, t01=0x0108}
0x1f35c…1f38a Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x013f, t01=0x013a}
0x1f38a…1f394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0168}
0x1f394…1f3ae Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x013f, t01=0x0172}
0x1f3ae…1f3b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x018c}
0x1f3b8…1f3d0 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0140, t01=0x0008}
0x1f3d0…1f3da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x0020}
0x1f3da…1f3e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0140, t01=0x002a}
0x1f3e8…1f3fc Head {h00=0x0010, h01=0x0050, text=»I:CHRT EQU *«, t00=0x0140, t01=0x0038}
0x1f3fc…1f410 Head {h00=0x0010, h01=0x0050, text=» IFF SUMR=0 «, t00=0x0140, t01=0x004c}
0x1f410…1f43e Head {h00=0x002a, h01=0x0050, text=» CWK A6,0016 CONNECTION NUMBER <= 16? «, t00=0x0140, t01=0x0060}
0x1f43e…1f45a Head {h00=0x0018, h01=0x0050, text=» RB(G) NUMERR NO =8!«, t00=0x0140, t01=0x008e}
0x1f45a…1f486 Head {h00=0x0028, h01=0x0050, text=» CWK A6,0001 CONNECTION NUMBER >=1? «, t00=0x0140, t01=0x00aa}
0x1f486…1f4a2 Head {h00=0x0018, h01=0x0050, text=» RB(L) NUMERR NO =8!«, t00=0x0140, t01=0x00d6}
0x1f4a2…1f4d2 Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x0140, t01=0x00f2}
0x1f4d2…1f506 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0140, t01=0x0122}
0x1f506…1f532 Head {h00=0x0028, h01=0x0050, text=» ANKL A5,/003F CLEAR BITS TO MODIFY «, t00=0x0140, t01=0x0156}
0x1f532…1f568 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0140, t01=0x0182}
0x1f568…1f588 Head {h00=0x001c, h01=0x0050, text=» ANK A3,3 GET BITS 14-15«, t00=0x0141, t01=0x0028}
0x1f588…1f5aa Head {h00=0x001e, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 6-7«, t00=0x0141, t01=0x0048}
0x1f5aa…1f5d4 Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0141, t01=0x006a}
0x1f5d4…1f60a Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0141, t01=0x0094}
0x1f60a…1f61c Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0141, t01=0x00ca}
0x1f61c…1f644 Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 ADD CONNECTION TYPE RT«, t00=0x0141, t01=0x00dc}
0x1f644…1f666 Head {h00=0x001e, h01=0x0050, text=» ANK A6,/C GET BITS 12-13 «, t00=0x0141, t01=0x0104}
0x1f666…1f68a Head {h00=0x0020, h01=0x0050, text=» SRL A6,2 MOVE TO BITS 14-15«, t00=0x0141, t01=0x0126}
0x1f68a…1f6b8 Head {h00=0x002a, h01=0x0050, text=» ADKL A6,/0100 ADD CONNECTION TYPE RT «, t00=0x0141, t01=0x014a}
0x1f6b8…1f6c8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0141, t01=0x0178}
0x1f6c8…1f6d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0141, t01=0x0188}
0x1f6d4…1f6ea (322, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT SUMR=0 =8«, t00=0x0142, t01=0x0004}
0x1f6ea…1f700 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0142, t01=0x001a}
0x1f700…1f714 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0142, t01=0x0030}
0x1f714…1f724 Head {h00=0x000c, h01=0x0050, text=» XIF =8«, t00=0x0142, t01=0x0044}
0x1f724…1f736 Head {h00=0x000e, h01=0x0050, text=» IFT DC=1 «, t00=0x0142, t01=0x0054}
0x1f736…1f744 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0142, t01=0x0066}
0x1f744…1f784 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0142, t01=0x0074}
0x1f784…1f7c4 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0142, t01=0x00b4}
0x1f7c4…1f804 Head {h00=0x003c, h01=0x0050, text=»* B:CNA BUILD COMPUTER NETWORK ARCHITECTURE * «, t00=0x0142, t01=0x00f4}
0x1f804…1f844 Head {h00=0x003c, h01=0x0050, text=»* ========================================== * «, t00=0x0142, t01=0x0134}
0x1f844…1f884 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0142, t01=0x0174}
0x1f884…1f8c4 Head {h00=0x003c, h01=0x0050, text=»* SCANS POSSIBLE D-BLOCK IN CONFIGURATION DATA * «, t00=0x0143, t01=0x0024}
0x1f8c4…1f904 Head {h00=0x003c, h01=0x0050, text=»* AND BUILDS DATA COMMUNICATION TABLE IN MEMORY. * «, t00=0x0143, t01=0x0064}
0x1f904…1f944 Head {h00=0x003c, h01=0x0050, text=»* TABLE START IS DEFINED BY THE POINTER SCTDCT * «, t00=0x0143, t01=0x00a4}
0x1f944…1f984 Head {h00=0x003c, h01=0x0050, text=»* IN SYSTAB. * «, t00=0x0143, t01=0x00e4}
0x1f984…1f9c4 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: SCTDCT = RELATIVE POSITION OF THE * «, t00=0x0143, t01=0x0124}
0x1f9c4…1fa04 Head {h00=0x003c, h01=0x0050, text=»* D-BLOCK IN CONF. DATA (SET BY SYSLOD) * «, t00=0x0143, t01=0x0164}
0x1fa04…1fa44 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0144, t01=0x0014}
0x1fa44…1fa84 Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: CONMON * «, t00=0x0144, t01=0x0054}
0x1fa84…1fac4 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES CALLED: GETDTE, P:DTE * «, t00=0x0144, t01=0x0094}
0x1fac4…1fb04 Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTERS: A1-A12 * «, t00=0x0144, t01=0x00d4}
0x1fb04…1fb44 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0144, t01=0x0114}
0x1fb44…1fb84 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0144, t01=0x0154}
0x1fb84…1fb90 (325, 0, 400) Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0145, t01=0x0004}
0x1fb90…1fb9c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0145, t01=0x0010}
0x1fb9c…1fbb0 Head {h00=0x0010, h01=0x0050, text=»B:CNA EQU * «, t00=0x0145, t01=0x001c}
0x1fbb0…1fbcc Head {h00=0x0018, h01=0x0050, text=» LD A11,DCBLK+STKCOM«, t00=0x0145, t01=0x0030}
0x1fbcc…1fbfa Head {h00=0x002a, h01=0x0050, text=» RF(Z) B:CN20 NO DATA COMMUNICATION =1«, t00=0x0145, t01=0x004c}
0x1fbfa…1fc04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0145, t01=0x007a}
0x1fc04…1fc44 Head {h00=0x003c, h01=0x0050, text=» AD A11,CONSTA+STKCOM GET D BLOCK ADDRESS IN CONF. DATA «, t00=0x0145, t01=0x0084}
0x1fc44…1fc72 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0145, t01=0x00c4}
0x1fc72…1fc9e Head {h00=0x0028, h01=0x0050, text=» ST A12,SCTDCT UPDATE SYSTAB POINTER«, t00=0x0145, t01=0x00f2}
0x1fc9e…1fcd2 Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0145, t01=0x011e}
0x1fcd2…1fcfe Head {h00=0x0028, h01=0x0050, text=» CALL GETDTE GET NO OF DTE:S DEFINED«, t00=0x0145, t01=0x0152}
0x1fcfe…1fd32 Head {h00=0x0030, h01=0x0050, text=» ADKL A11,2 ADVANCE TO START OF SDTE RECORD «, t00=0x0145, t01=0x017e}
0x1fd32…1fd46 Head {h00=0x0010, h01=0x0050, text=»B:CN00 EQU *«, t00=0x0146, t01=0x0022}
0x1fd46…1fd58 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0146, t01=0x0036}
0x1fd58…1fd8e Head {h00=0x0032, h01=0x0050, text=» RF(N) B:CN10 NO DTE BLOCKS LEFT IN CONF. DATA«, t00=0x0146, t01=0x0048}
0x1fd8e…1fd98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x007e}
0x1fd98…1fdca Head {h00=0x002e, h01=0x0050, text=» ST A1,NUMDTE+STKEND SAVE NO OF DTE:S LEFT«, t00=0x0146, t01=0x0088}
0x1fdca…1fdfa Head {h00=0x002c, h01=0x0050, text=» ADKL A11,5 ADVANCE TO 1ST CHAR. IN NAME«, t00=0x0146, t01=0x00ba}
0x1fdfa…1fe24 Head {h00=0x0026, h01=0x0050, text=» CALL P:DTE PROCESS THIS DTE BLOCK«, t00=0x0146, t01=0x00ea}
0x1fe24…1fe5a Head {h00=0x0032, h01=0x0050, text=» LD A1,NUMDTE+STKEND GET REMAINING DTE BLOCKS «, t00=0x0146, t01=0x0114}
0x1fe5a…1fe88 Head {h00=0x002a, h01=0x0050, text=» LDR* A12,A12 GET ADDRESS TO NEXT DTE «, t00=0x0146, t01=0x014a}
0x1fe88…1fe9a Head {h00=0x000e, h01=0x0050, text=» RB B:CN00«, t00=0x0146, t01=0x0178}
0x1fe9a…1fea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x018a}
0x1fea4…1feb8 (327, 0, 400) Head {h00=0x0010, h01=0x0050, text=»B:CN10 EQU *«, t00=0x0147, t01=0x0004}
0x1feb8…1fed6 Head {h00=0x001a, h01=0x0050, text=» CM 0,A12 AND RESET IT«, t00=0x0147, t01=0x0018}
0x1fed6…1feea Head {h00=0x0010, h01=0x0050, text=» ADKL A12,2 «, t00=0x0147, t01=0x0036}
0x1feea…1ff1a Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x0147, t01=0x004a}
0x1ff1a…1ff34 Head {h00=0x0016, h01=0x0050, text=»B:CN20 EQU * =1 «, t00=0x0147, t01=0x007a}
0x1ff34…1ff44 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0147, t01=0x0094}
0x1ff44…1ff52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0147, t01=0x00a4}
0x1ff52…1ff92 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0147, t01=0x00b2}
0x1ff92…1ffd2 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0147, t01=0x00f2}
0x1ffd2…20012 Head {h00=0x003c, h01=0x0050, text=»* P:DTE PROCESS DTE BLOCK IN CONFIGURATION DATA * «, t00=0x0147, t01=0x0132}
0x20012…20052 Head {h00=0x003c, h01=0x0050, text=»* ============================================== * «, t00=0x0147, t01=0x0172}
0x20052…20092 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0148, t01=0x0022}
0x20092…200d2 Head {h00=0x003c, h01=0x0050, text=»* SCANS DTE BLOCK IN CONF. DATA AND BUILDS CORRE- * «, t00=0x0148, t01=0x0062}
0x200d2…20112 Head {h00=0x003c, h01=0x0050, text=»* SPONDING DTE-BLOCK IN SCTDCT. IF MULTIPLE COPIES * «, t00=0x0148, t01=0x00a2}
0x20112…20152 Head {h00=0x003c, h01=0x0050, text=»* ARE DEFINED CURRENT DTE IS DUPLICATED THE NO OF * «, t00=0x0148, t01=0x00e2}
0x20152…20192 Head {h00=0x003c, h01=0x0050, text=»* TIMES SPECIFIED. * «, t00=0x0148, t01=0x0122}
0x20192…201d2 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0148, t01=0x0162}
0x201d2…20212 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN * «, t00=0x0149, t01=0x0012}
0x20212…20252 Head {h00=0x003c, h01=0x0050, text=»* SDTE NAME IN CONF. DATA * «, t00=0x0149, t01=0x0052}
0x20252…20292 Head {h00=0x003c, h01=0x0050, text=»* A12 POINTER TO START OF CURRENT * «, t00=0x0149, t01=0x0092}
0x20292…202d2 Head {h00=0x003c, h01=0x0050, text=»* DTE BLOCK IN SCTDCT TABLE * «, t00=0x0149, t01=0x00d2}
0x202d2…20312 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0149, t01=0x0112}
0x20312…20352 Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A11 ADDRESS TO LAST CHARACTER IN * «, t00=0x0149, t01=0x0152}
0x20352…20392 (330, 0, 400) Head {h00=0x003c, h01=0x0050, text=»* PROCESSED DTE-BLOCK IN CONF. DATA * «, t00=0x014a, t01=0x0004}
0x20392…203d2 Head {h00=0x003c, h01=0x0050, text=»* A12 POINTER TO LAST DEFINED DTE-BLOCK * «, t00=0x014a, t01=0x0044}
0x203d2…20412 Head {h00=0x003c, h01=0x0050, text=»* DEFINED IN SCTDCT TABLE * «, t00=0x014a, t01=0x0084}
0x20412…20452 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x014a, t01=0x00c4}
0x20452…20492 Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: B:CNA * «, t00=0x014a, t01=0x0104}
0x20492…204d2 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES REFERENCED: GETCOP,GETNSA,P:NA,HEXCPY * «, t00=0x014a, t01=0x0144}
0x204d2…20512 Head {h00=0x003c, h01=0x0050, text=»* AND MOVE * «, t00=0x014a, t01=0x0184}
0x20512…20552 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x014b, t01=0x0034}
0x20552…20592 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x014b, t01=0x0074}
0x20592…2059e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x014b, t01=0x00b4}
0x2059e…205aa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x014b, t01=0x00c0}
0x205aa…205be Head {h00=0x0010, h01=0x0050, text=»P:DTE EQU * «, t00=0x014b, t01=0x00cc}
0x205be…205ec Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/3000 INITIALIZE NAME FILLER «, t00=0x014b, t01=0x00e0}
0x205ec…2061c Head {h00=0x002c, h01=0x0050, text=» LC A1,1,A11 GET 1ST CHAR. IN SDTE NAME «, t00=0x014b, t01=0x010e}
0x2061c…2064e Head {h00=0x002e, h01=0x0050, text=» LC A2,IDLIM,A11 GET NA-NSA QUALIFIER (=T)«, t00=0x014b, t01=0x013e}
0x2064e…20662 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x014b, t01=0x0170}
0x20662…2068c Head {h00=0x0026, h01=0x0050, text=» CCK A2,'TT' START OF TYPE RECORD?«, t00=0x014b, t01=0x0184}
0x2068c…206a6 Head {h00=0x0016, h01=0x0050, text=» RF(E) PDTE00 YES!«, t00=0x014c, t01=0x001e}
0x206a6…206b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014c, t01=0x0038}
0x206b0…206da Head {h00=0x0026, h01=0x0050, text=» SLL A1,8 NO LEFT ADJUST CHAR. AND«, t00=0x014c, t01=0x0042}
0x206da…20702 Head {h00=0x0024, h01=0x0050, text=» LC A1,1,A11 GET NEXT CHARACTER «, t00=0x014c, t01=0x006c}
0x20702…20716 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x014c, t01=0x0094}
0x20716…2072a Head {h00=0x0010, h01=0x0050, text=»PDTE00 EQU *«, t00=0x014c, t01=0x00a8}
0x2072a…2075a Head {h00=0x002c, h01=0x0050, text=» ST A1,DTENAM+STKEND SAVE NAME IN STACK «, t00=0x014c, t01=0x00bc}
0x2075a…20780 Head {h00=0x0022, h01=0x0050, text=» CALL GETCOP GET NO OF COPIES «, t00=0x014c, t01=0x00ec}
0x20780…207a6 Head {h00=0x0022, h01=0x0050, text=» ST A1,DTECOP+STKEND AND SAVE «, t00=0x014c, t01=0x0112}
0x207a6…207da Head {h00=0x0030, h01=0x0050, text=» ADKL A11,TYPOFS ADVANCE TO TYPE IDENTIFIER «, t00=0x014c, t01=0x0138}
0x207da…207ee Head {h00=0x0010, h01=0x0050, text=» LC A1,1,A11«, t00=0x014c, t01=0x016c}
0x207ee…20814 Head {h00=0x0022, h01=0x0050, text=» SLL A1,8 FORM TYPE IDENTIFIER«, t00=0x014c, t01=0x0180}
0x20814…20828 Head {h00=0x0010, h01=0x0050, text=» LC A1,2,A11«, t00=0x014d, t01=0x0016}
0x20828…20852 Head {h00=0x0026, h01=0x0050, text=» ST A1,DTETYP+STKEND SAVE IN STACK«, t00=0x014d, t01=0x002a}
0x20852…20866 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x014d, t01=0x0054}
0x20866…20892 Head {h00=0x0028, h01=0x0050, text=» LDK A2,0 RESET NETWORK ADDR. LENGTH«, t00=0x014d, t01=0x0068}
0x20892…208b6 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x014d, t01=0x0094}
0x208b6…208c8 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x014d, t01=0x00b8}
0x208c8…208e2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE05 YES!«, t00=0x014d, t01=0x00ca}
0x208e2…208ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x00e4}
0x208ec…2091e Head {h00=0x002e, h01=0x0050, text=» LC A7,NANSA,A11 GET NA-NSA-SDTE QUALIFIER«, t00=0x014d, t01=0x00ee}
0x2091e…20932 Head {h00=0x0010, h01=0x0050, text=» CCK A7,'AA'«, t00=0x014d, t01=0x0120}
0x20932…2095c Head {h00=0x0026, h01=0x0050, text=» RF(NE) PDTE05 NSA OR SDTE RECORD «, t00=0x014d, t01=0x0134}
0x2095c…20966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x015e}
0x20966…20998 Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NAOFS ADVANCE TO 1ST DIGIT IN NA«, t00=0x014d, t01=0x0168}
0x20998…209c2 Head {h00=0x0026, h01=0x0050, text=» ST A11,NASTRT+STKEND SAVE ADDRESS«, t00=0x014e, t01=0x000a}
0x209c2…209ec Head {h00=0x0026, h01=0x0050, text=» CALL P:NA PROCESS NETWORK ADDRESS«, t00=0x014e, t01=0x0034}
0x209ec…20a00 Head {h00=0x0010, h01=0x0050, text=» LC A7,2,A11«, t00=0x014e, t01=0x005e}
0x20a00…20a14 Head {h00=0x0010, h01=0x0050, text=»PDTE05 EQU *«, t00=0x014e, t01=0x0072}
0x20a14…20a42 Head {h00=0x002a, h01=0x0050, text=» ST A2,NALNG+STKEND SAVE LENGTH OF NA «, t00=0x014e, t01=0x0086}
0x20a42…20a54 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x014e, t01=0x00b4}
0x20a54…20a78 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x014e, t01=0x00c6}
0x20a78…20a8a Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x014e, t01=0x00ea}
0x20a8a…20aa4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE07 YES!«, t00=0x014e, t01=0x00fc}
0x20aa4…20aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x0116}
0x20aae…20ac2 Head {h00=0x0010, h01=0x0050, text=» CCK A7,'SS'«, t00=0x014e, t01=0x0120}
0x20ac2…20ae6 Head {h00=0x0020, h01=0x0050, text=» RF(NE) PDTE07 NO NSA RECORD«, t00=0x014e, t01=0x0134}
0x20ae6…20af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x0158}
0x20af0…20b22 Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NSAOFS ADVANCE TO NO OF SUBADDR.«, t00=0x014e, t01=0x0162}
0x20b22…20b36 (335, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CALL GETNSA«, t00=0x014f, t01=0x0004}
0x20b36…20b64 Head {h00=0x002a, h01=0x0050, text=» ADKL A11,2 SKIP NSA NR IN CONF. DATA «, t00=0x014f, t01=0x0018}
0x20b64…20b78 Head {h00=0x0010, h01=0x0050, text=»PDTE07 EQU *«, t00=0x014f, t01=0x0046}
0x20b78…20bae Head {h00=0x0032, h01=0x0050, text=» ST A1,DTENSA+STKEND SAVE NO OF SUBADDR. DEF. «, t00=0x014f, t01=0x005a}
0x20bae…20bd6 Head {h00=0x0024, h01=0x0050, text=» CWK A1,/FF LOOK IF LEGAL NUMBER«, t00=0x014f, t01=0x0090}
0x20bd6…20bf2 Head {h00=0x0018, h01=0x0050, text=» RF(NG) PDTE10 YES! «, t00=0x014f, t01=0x00b8}
0x20bf2…20bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x00d4}
0x20bfc…20c10 Head {h00=0x0010, h01=0x0050, text=»NSAERR EQU *«, t00=0x014f, t01=0x00de}
0x20c10…20c3e Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP4 NO, ERROR IN CONF. FILE «, t00=0x014f, t01=0x00f2}
0x20c3e…20c52 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x014f, t01=0x0120}
0x20c52…20c66 Head {h00=0x0010, h01=0x0050, text=»PDTE10 EQU *«, t00=0x014f, t01=0x0134}
0x20c66…20c78 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x014f, t01=0x0148}
0x20c78…20c9e Head {h00=0x0022, h01=0x0050, text=» RF(Z) PDTE15 NO SUBADDRESSES «, t00=0x014f, t01=0x015a}
0x20c9e…20ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x0180}
0x20ca8…20ce0 Head {h00=0x0034, h01=0x0050, text=» ST A11,NSAADR+STKEND SAVE ADDR. OF 1ST SUBADDR.«, t00=0x014f, t01=0x018a}
0x20ce0…20cf2 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0150, t01=0x0032}
0x20cf2…20d24 Head {h00=0x002e, h01=0x0050, text=» ADR A11,A1 CALCULATE STAT OF NEXT RECORD «, t00=0x0150, t01=0x0044}
0x20d24…20d38 Head {h00=0x0010, h01=0x0050, text=»PDTE15 EQU *«, t00=0x0150, t01=0x0076}
0x20d38…20d6e Head {h00=0x0032, h01=0x0050, text=» CALL DTESIZ CALCULATE SIZE OF THIS DTE BLOCK «, t00=0x0150, t01=0x008a}
0x20d6e…20d9a Head {h00=0x0028, h01=0x0050, text=» CALL UPDDTE UPDATE DTE BLOCK IN DCT«, t00=0x0150, t01=0x00c0}
0x20d9a…20dc8 Head {h00=0x002a, h01=0x0050, text=» LD A7,DTECOP+STKEND GET NO OF COPIES «, t00=0x0150, t01=0x00ec}
0x20dc8…20ddc Head {h00=0x0010, h01=0x0050, text=»PDTE20 EQU *«, t00=0x0150, t01=0x011a}
0x20ddc…20dee Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0150, t01=0x012e}
0x20dee…20e1e Head {h00=0x002c, h01=0x0050, text=» RF(Z) PDTE40 NO COPIES LEFT TO PROCESS «, t00=0x0150, t01=0x0140}
0x20e1e…20e4e Head {h00=0x002c, h01=0x0050, text=» LDK A5,1 INITIALIZE INCREMENT CONSTANT «, t00=0x0150, t01=0x0170}
0x20e4e…20e7c Head {h00=0x002a, h01=0x0050, text=» LD A4,DTENAM+STKEND GET PREVIOUS NAME«, t00=0x0151, t01=0x0010}
0x20e7c…20e8e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0151, t01=0x003e}
0x20e8e…20ebc Head {h00=0x002a, h01=0x0050, text=» ANK A3,/FF ISOLATE RIGHT BYTE OF NAME«, t00=0x0151, t01=0x0050}
0x20ebc…20ee0 Head {h00=0x0020, h01=0x0050, text=» CWK A3,/5F UPPER BOUNDARY? «, t00=0x0151, t01=0x007e}
0x20ee0…20efa Head {h00=0x0016, h01=0x0050, text=» RF(L) PDTE25 NO! «, t00=0x0151, t01=0x00a2}
0x20efa…20f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x00bc}
0x20f04…20f34 Head {h00=0x002c, h01=0x0050, text=» LC A4,/30 RESET RIGHT BYTE TO ASCII '0'«, t00=0x0151, t01=0x00c6}
0x20f34…20f5e Head {h00=0x0026, h01=0x0050, text=» SLL A5,8 LEFT BYTE INCREMENTATION«, t00=0x0151, t01=0x00f6}
0x20f5e…20f72 Head {h00=0x0010, h01=0x0050, text=»PDTE25 EQU *«, t00=0x0151, t01=0x0120}
0x20f72…20f9c Head {h00=0x0026, h01=0x0050, text=» ADR A4,A5 INCREMENT SYMBOLIC NAME«, t00=0x0151, t01=0x0134}
0x20f9c…20fb8 Head {h00=0x0018, h01=0x0050, text=» ST A4,DTENAM+STKEND«, t00=0x0151, t01=0x015e}
0x20fb8…20fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x017a}
0x20fc2…20fe6 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x0151, t01=0x0184}
0x20fe6…20ff8 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0152, t01=0x0018}
0x20ff8…21012 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE35 YES!«, t00=0x0152, t01=0x002a}
0x21012…2101c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x0044}
0x2101c…2104e Head {h00=0x002e, h01=0x0050, text=» LC A1,2,A11 GET 2ND CHAR. IN NEXT RECORD «, t00=0x0152, t01=0x004e}
0x2104e…21082 Head {h00=0x0030, h01=0x0050, text=» CCK A1,'DD' IF A SDTE-RECORD USE OLD ADDR. «, t00=0x0152, t01=0x0080}
0x21082…21098 Head {h00=0x0012, h01=0x0050, text=» RF(E) PDTE35 «, t00=0x0152, t01=0x00b4}
0x21098…210a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x00ca}
0x210a2…210c4 Head {h00=0x001e, h01=0x0050, text=» CCK A1,'SS' IF NSA RECORD«, t00=0x0152, t01=0x00d4}
0x210c4…210f2 Head {h00=0x002a, h01=0x0050, text=» RF(E) PDTE30 USE OLD NETWORK ADDRESS «, t00=0x0152, t01=0x00f6}
0x210f2…210fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x0124}
0x210fc…2112e Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NAOFS ADVANCE TO 1ST DIGIT IN NA«, t00=0x0152, t01=0x012e}
0x2112e…2114c Head {h00=0x001a, h01=0x0050, text=» ST A11,NASTRT+STKEND «, t00=0x0152, t01=0x0160}
0x2114c…21176 Head {h00=0x0026, h01=0x0050, text=» CALL P:NA PROCESS NETWORK ADDRESS«, t00=0x0152, t01=0x017e}
0x21176…211a4 Head {h00=0x002a, h01=0x0050, text=» ST A2,NALNG+STKEND SAVE LENGTH OF NA «, t00=0x0153, t01=0x0018}
0x211a4…211ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x0046}
0x211ae…211d2 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x0153, t01=0x0050}
0x211d2…211e4 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0153, t01=0x0074}
0x211e4…211fe Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE35 YES!«, t00=0x0153, t01=0x0086}
0x211fe…21208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x00a0}
0x21208…2121c Head {h00=0x0010, h01=0x0050, text=» LC A1,2,A11«, t00=0x0153, t01=0x00aa}
0x2121c…21230 Head {h00=0x0010, h01=0x0050, text=» CCK A1,'SS'«, t00=0x0153, t01=0x00be}
0x21230…2125c Head {h00=0x0028, h01=0x0050, text=» RF(NE) PDTE35 NO NSA RECORD PRESENT«, t00=0x0153, t01=0x00d2}
0x2125c…21266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x00fe}
0x21266…2127a Head {h00=0x0010, h01=0x0050, text=»PDTE30 EQU *«, t00=0x0153, t01=0x0108}
0x2127a…212ac Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NSAOFS ADVANCE TO NO OF SUBADDR.«, t00=0x0153, t01=0x011c}
0x212ac…212c0 Head {h00=0x0010, h01=0x0050, text=» CALL GETNSA«, t00=0x0153, t01=0x014e}
0x212c0…212f0 Head {h00=0x002c, h01=0x0050, text=» ST A1,DTENSA+STKEND SAVE NO OF SUBADDR.«, t00=0x0153, t01=0x0162}
0x212f0…21304 (340, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x0154, t01=0x0004}
0x21304…21316 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0154, t01=0x0018}
0x21316…2133a Head {h00=0x0020, h01=0x0050, text=» RF(Z) PDTE35 NO SUBADDRESSE«, t00=0x0154, t01=0x002a}
0x2133a…21344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x004e}
0x21344…21358 Head {h00=0x0010, h01=0x0050, text=» CWK A1,/FF «, t00=0x0154, t01=0x0058}
0x21358…21388 Head {h00=0x002c, h01=0x0050, text=» RB(G) NSAERR TOO MANY SUBADDR. DEFINED «, t00=0x0154, t01=0x006c}
0x21388…21392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x009c}
0x21392…213ca Head {h00=0x0034, h01=0x0050, text=» ST A11,NSAADR+STKEND SAVE START OF 1ST SUBADDR.«, t00=0x0154, t01=0x00a6}
0x213ca…213dc Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0154, t01=0x00de}
0x213dc…2140e Head {h00=0x002e, h01=0x0050, text=» ADR A11,A1 CALCULATE START OF NEXT RECORD«, t00=0x0154, t01=0x00f0}
0x2140e…21422 Head {h00=0x0010, h01=0x0050, text=»PDTE35 EQU *«, t00=0x0154, t01=0x0122}
0x21422…21454 Head {h00=0x002e, h01=0x0050, text=» LDR* A12,A12 GET START OF NEXT DTE BLOCK «, t00=0x0154, t01=0x0136}
0x21454…2148c Head {h00=0x0034, h01=0x0050, text=» CALL DTESIZ CALCULATE LENGTH OF THIS DTE BLOCK «, t00=0x0154, t01=0x0168}
0x2148c…214a0 Head {h00=0x0010, h01=0x0050, text=» CALL UPDDTE«, t00=0x0155, t01=0x0010}
0x214a0…214b2 Head {h00=0x000e, h01=0x0050, text=» RB PDTE20«, t00=0x0155, t01=0x0024}
0x214b2…214bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x0036}
0x214bc…214d0 Head {h00=0x0010, h01=0x0050, text=»PDTE40 EQU *«, t00=0x0155, t01=0x0040}
0x214d0…214e0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0155, t01=0x0054}
0x214e0…214ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0155, t01=0x0064}
0x214ee…2152e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0155, t01=0x0072}
0x2152e…2156e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0155, t01=0x00b2}
0x2156e…215ae Head {h00=0x003c, h01=0x0050, text=»* DTESIZ CALCULATES THE LENGTH OF A DTE BLOCK *«, t00=0x0155, t01=0x00f2}
0x215ae…215ee Head {h00=0x003c, h01=0x0050, text=»* ============================================ *«, t00=0x0155, t01=0x0132}
0x215ee…2162e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0155, t01=0x0172}
0x2162e…2166e Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A12 START OF CURRENT DTE BLOCK *«, t00=0x0156, t01=0x0022}
0x2166e…216ae Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0156, t01=0x0062}
0x216ae…216ee Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTER: A1,A9 *«, t00=0x0156, t01=0x00a2}
0x216ee…2172e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0156, t01=0x00e2}
0x2172e…2176e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0156, t01=0x0122}
0x2176e…21776 Head {h00=0x0004, h01=0x0050, t00=0x0156, t01=0x0162}
0x21776…2177e Head {h00=0x0004, h01=0x0050, t00=0x0156, t01=0x016a}
0x2177e…21792 Head {h00=0x0010, h01=0x0050, text=»DTESIZ EQU *«, t00=0x0156, t01=0x0172}
0x21792…217ae Head {h00=0x0018, h01=0x0050, text=» ST A11,WRK1+STKEND «, t00=0x0156, t01=0x0186}
0x217ae…217e8 Head {h00=0x0036, h01=0x0050, text=» LD A1,NALNG+STKEND GET LENGTH OF NETWORK ADDRESS «, t00=0x0157, t01=0x0012}
0x217e8…217fa Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0157, t01=0x004c}
0x217fa…21822 Head {h00=0x0024, h01=0x0050, text=» SRL A1,1 2 DIGITS IN EACH BYTE «, t00=0x0157, t01=0x005e}
0x21822…21852 Head {h00=0x002c, h01=0x0050, text=» AD A1,DTENSA+STKEND ADD NO OF SUBADDR. «, t00=0x0157, t01=0x0086}
0x21852…21884 Head {h00=0x002e, h01=0x0050, text=» ADK A1,DTEFIX+1 AND LENGTH OF FIX PART+1 «, t00=0x0157, t01=0x00b6}
0x21884…218a4 Head {h00=0x001c, h01=0x0050, text=» ANKL A1,/FFFE MAKE EVEN«, t00=0x0157, t01=0x00e8}
0x218a4…218d0 Head {h00=0x0028, h01=0x0050, text=» ADR A1,A12 START OF NEXT DTE BLOCK «, t00=0x0157, t01=0x0108}
0x218d0…218fa Head {h00=0x0026, h01=0x0050, text=» STR A1,A12 UPDATE DTE BLOCK LINK «, t00=0x0157, t01=0x0134}
0x218fa…2190c Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x0157, t01=0x015e}
0x2190c…21930 Head {h00=0x0020, h01=0x0050, text=» ST A11,WRK1+STKEND SAVE A11«, t00=0x0157, t01=0x0170}
0x21930…21964 (344, 0, 400) Head {h00=0x0030, h01=0x0050, text=» LD A11,LIMIT+STKEND GET END OF SYSTEM AREA «, t00=0x0158, t01=0x0004}
0x21964…2198a Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x0158, t01=0x0038}
0x2198a…219a4 Head {h00=0x0016, h01=0x0050, text=» RF(NL) DTSIZ0 NO!«, t00=0x0158, t01=0x005e}
0x219a4…219ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x0078}
0x219ae…219c8 Head {h00=0x0016, h01=0x0050, text=» LDKL A1,LMP3 YES!«, t00=0x0158, t01=0x0082}
0x219c8…219dc Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0158, t01=0x009c}
0x219dc…219e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x00b0}
0x219e6…219fa Head {h00=0x0010, h01=0x0050, text=»DTSIZ0 EQU *«, t00=0x0158, t01=0x00ba}
0x219fa…21a34 Head {h00=0x0036, h01=0x0050, text=» LD A11,WRK1+STKEND RESTORE POSITION IN CONF. DATA«, t00=0x0158, t01=0x00ce}
0x21a34…21a44 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0158, t01=0x0108}
0x21a44…21a52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0158, t01=0x0118}
0x21a52…21a92 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0158, t01=0x0126}
0x21a92…21ad2 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0158, t01=0x0166}
0x21ad2…21b12 Head {h00=0x003c, h01=0x0050, text=»* UPDDTE UPDATES CURRENT DTE BLOCK WITH ITS: *«, t00=0x0159, t01=0x0016}
0x21b12…21b52 Head {h00=0x003c, h01=0x0050, text=»* ====== *«, t00=0x0159, t01=0x0056}
0x21b52…21b92 Head {h00=0x003c, h01=0x0050, text=»* NAME *«, t00=0x0159, t01=0x0096}
0x21b92…21bd2 Head {h00=0x003c, h01=0x0050, text=»* TYPE *«, t00=0x0159, t01=0x00d6}
0x21bd2…21c12 Head {h00=0x003c, h01=0x0050, text=»* NETWORK ADDRES *«, t00=0x0159, t01=0x0116}
0x21c12…21c52 Head {h00=0x003c, h01=0x0050, text=»* SUBADDRESSES *«, t00=0x0159, t01=0x0156}
0x21c52…21c92 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x015a, t01=0x0008}
0x21c92…21cd2 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x015a, t01=0x0048}
0x21cd2…21cda Head {h00=0x0004, h01=0x0050, t00=0x015a, t01=0x0088}
0x21cda…21ce2 Head {h00=0x0004, h01=0x0050, t00=0x015a, t01=0x0090}
0x21ce2…21cf6 Head {h00=0x0010, h01=0x0050, text=»UPDDTE EQU *«, t00=0x015a, t01=0x0098}
0x21cf6…21d2e Head {h00=0x0034, h01=0x0050, text=» LDR A6,A12 GET START OF CURRENT DTE BLOCK ENTRY«, t00=0x015a, t01=0x00ac}
0x21d2e…21d50 Head {h00=0x001e, h01=0x0050, text=» ADK A6,2 SKIP LINK ENTRY «, t00=0x015a, t01=0x00e4}
0x21d50…21d80 Head {h00=0x002c, h01=0x0050, text=» LD A1,DTENAM+STKEND GET NAME FROM STACK«, t00=0x015a, t01=0x0106}
0x21d80…21d9e Head {h00=0x001a, h01=0x0050, text=» STR A1,A6 SAVE IN DCT«, t00=0x015a, t01=0x0136}
0x21d9e…21dba Head {h00=0x0018, h01=0x0050, text=» ADK A6,2 NEXT ENTRY«, t00=0x015a, t01=0x0154}
0x21dba…21dea Head {h00=0x002c, h01=0x0050, text=» LD A1,DTETYP+STKEND GET TYPE FROM STACK«, t00=0x015a, t01=0x0170}
0x21dea…21e0c Head {h00=0x001e, h01=0x0050, text=» STR A1,A6 AND SAVE IN DCT«, t00=0x015b, t01=0x0010}
0x21e0c…21e1e Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x015b, t01=0x0032}
0x21e1e…21e40 Head {h00=0x001e, h01=0x0050, text=» LDK A5,4 GET NO OF SHIFTS«, t00=0x015b, t01=0x0044}
0x21e40…21e72 Head {h00=0x002e, h01=0x0050, text=» ORKL A5,SLL0 AND CONFIG. SLL A1,8 INSTR. «, t00=0x015b, t01=0x0066}
0x21e72…21eaa Head {h00=0x0034, h01=0x0050, text=» LD A2,NALNG+STKEND GET LENGTH OF NETWORK ADDR. «, t00=0x015b, t01=0x0098}
0x21eaa…21ed2 Head {h00=0x0024, h01=0x0050, text=» LDR A3,A2 SAVE NO OF CHARACTERS«, t00=0x015b, t01=0x00d0}
0x21ed2…21ef0 Head {h00=0x001a, h01=0x0050, text=» SLL A2,8 LEFT ADJUST «, t00=0x015b, t01=0x00f8}
0x21ef0…21f20 Head {h00=0x002c, h01=0x0050, text=» RF(Z) UPDTE0 NO NETWORK ADDRESS DEFINED«, t00=0x015b, t01=0x0116}
0x21f20…21f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x0146}
0x21f2a…21f62 Head {h00=0x0034, h01=0x0050, text=» LD A4,NASTRT+STKEND GET START OF NETWORK ADDR. «, t00=0x015b, t01=0x0150}
0x21f62…21f8e Head {h00=0x0028, h01=0x0050, text=» CALL HEXCPY COPY AND PACK NA TO DCT«, t00=0x015b, t01=0x0188}
0x21f8e…21fb6 Head {h00=0x0024, h01=0x0050, text=» ANKL A5,/1F ISOLATE SHIFT COUNT«, t00=0x015c, t01=0x0024}
0x21fb6…21fe0 Head {h00=0x0026, h01=0x0050, text=» CWK A5,4 LESS THAN ONE BYTE LEFT?«, t00=0x015c, t01=0x004c}
0x21fe0…21ffc Head {h00=0x0018, h01=0x0050, text=» RF(NG) UPDTE2 YES! «, t00=0x015c, t01=0x0076}
0x21ffc…22010 Head {h00=0x0010, h01=0x0050, text=»UPDTE0 EQU *«, t00=0x015c, t01=0x0092}
0x22010…22032 Head {h00=0x001e, h01=0x0050, text=» LDK A5,0 SET NO OF SHIFTS«, t00=0x015c, t01=0x00a6}
0x22032…22044 Head {h00=0x000e, h01=0x0050, text=» RF UPDTE4«, t00=0x015c, t01=0x00c8}
0x22044…2204e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x00da}
0x2204e…22062 Head {h00=0x0010, h01=0x0050, text=»UPDTE2 EQU *«, t00=0x015c, t01=0x00e4}
0x22062…22086 Head {h00=0x0020, h01=0x0050, text=» STR A2,A6 STORE WORD IN DCT«, t00=0x015c, t01=0x00f8}
0x22086…220a8 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 CLEAR TABLE WORD«, t00=0x015c, t01=0x011c}
0x220a8…220d0 Head {h00=0x0024, h01=0x0050, text=» ADK A6,2 ADVANCE TO NEXT ENTRY «, t00=0x015c, t01=0x013e}
0x220d0…220f2 Head {h00=0x001e, h01=0x0050, text=» LDK A5,8 GET NO OF SHIFTS«, t00=0x015c, t01=0x0166}
0x220f2…22106 Head {h00=0x0010, h01=0x0050, text=»UPDTE4 EQU *«, t00=0x015c, t01=0x0188}
0x22106…22136 Head {h00=0x002c, h01=0x0050, text=» ORKL A5,SLL0 CONFIGURE SSL A1,N INSTR. «, t00=0x015d, t01=0x000c}
0x22136…2216e Head {h00=0x0034, h01=0x0050, text=» LD A1,DTENSA+STKEND GET NO OF SUBADDR. DEFINED «, t00=0x015d, t01=0x003c}
0x2216e…22198 Head {h00=0x0026, h01=0x0050, text=» RF(Z) UPDTE8 NO SUBADDR. DEFINED «, t00=0x015d, t01=0x0074}
0x22198…221a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015d, t01=0x009e}
0x221a2…221da Head {h00=0x0034, h01=0x0050, text=» LD A4,NSAADR+STKEND GET ADDRESS TO 1ST SUBADDR.«, t00=0x015d, t01=0x00a8}
0x221da…221ec Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x015d, t01=0x00e0}
0x221ec…2221a Head {h00=0x002a, h01=0x0050, text=» SLL A3,1 2 DIGITS FOR EACH SUDADDRESS«, t00=0x015d, t01=0x00f2}
0x2221a…22230 Head {h00=0x0012, h01=0x0050, text=» EXR A5 SHIFT «, t00=0x015d, t01=0x0120}
0x22230…2225a Head {h00=0x0026, h01=0x0050, text=» ORR A2,A1 AND CONFIGURE DCT WORD «, t00=0x015d, t01=0x0136}
0x2225a…2227a Head {h00=0x001c, h01=0x0050, text=» CWK A5,SLL0 FULL WORD? «, t00=0x015d, t01=0x0160}
0x2227a…22294 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UPDTE6 NO!«, t00=0x015d, t01=0x0180}
0x22294…2229e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x000a}
0x2229e…222c2 Head {h00=0x0020, h01=0x0050, text=» STR A2,A6 YES! SAVE IN DCT «, t00=0x015e, t01=0x0014}
0x222c2…222e4 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 CLEAR TABLE WORD«, t00=0x015e, t01=0x0038}
0x222e4…2230a Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 ADVANCE DCT POINTER «, t00=0x015e, t01=0x005a}
0x2230a…2232a Head {h00=0x001c, h01=0x0050, text=» LDK A5,16 NO OF SHIFTS «, t00=0x015e, t01=0x0080}
0x2232a…2235a Head {h00=0x002c, h01=0x0050, text=» ORKL A5,SLL0 CONFIGURE SLL A1,12 INSTR.«, t00=0x015e, t01=0x00a0}
0x2235a…2236e Head {h00=0x0010, h01=0x0050, text=»UPDTE6 EQU *«, t00=0x015e, t01=0x00d0}
0x2236e…2238c Head {h00=0x001a, h01=0x0050, text=» SUK A5,4 NEXT NIBBLE «, t00=0x015e, t01=0x00e4}
0x2238c…223b8 Head {h00=0x0028, h01=0x0050, text=» CALL HEXCPY COPY AND PACK INTO DCT «, t00=0x015e, t01=0x0102}
0x223b8…223cc Head {h00=0x0010, h01=0x0050, text=»UPDTE8 EQU *«, t00=0x015e, t01=0x012e}
0x223cc…223de Head {h00=0x000e, h01=0x0050, text=» STR A2,A6«, t00=0x015e, t01=0x0142}
0x223de…223ee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x015e, t01=0x0154}
0x223ee…223fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015e, t01=0x0164}
0x223fc…2243c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x015e, t01=0x0172}
0x2243c…2247c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x015f, t01=0x0022}
0x2247c…224bc Head {h00=0x003c, h01=0x0050, text=»* HEXCPY COPIES AND PACKS 4 HEXADECIMAL DIGITS *«, t00=0x015f, t01=0x0062}
0x224bc…224fc Head {h00=0x003c, h01=0x0050, text=»* IN ONE WORD. *«, t00=0x015f, t01=0x00a2}
0x224fc…2253c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x015f, t01=0x00e2}
0x2253c…2257c Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A2 WORD TO PACK *«, t00=0x015f, t01=0x0122}
0x2257c…225bc Head {h00=0x003c, h01=0x0050, text=»* A3 NO OF CHARACTERS TO PROCESS *«, t00=0x015f, t01=0x0162}
0x225bc…225fc Head {h00=0x003c, h01=0x0050, text=»* A4 ADDRESS TO FIRST ASCII DIGIT *«, t00=0x0160, t01=0x0012}
0x225fc…2263c Head {h00=0x003c, h01=0x0050, text=»* A5 PACKING INSTR. (SLL A1,N TIMES) *«, t00=0x0160, t01=0x0052}
0x2263c…2267c Head {h00=0x003c, h01=0x0050, text=»* A6 POINTER WHERE TO STORE PACKED WORD *«, t00=0x0160, t01=0x0092}
0x2267c…226bc Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0160, t01=0x00d2}
0x226bc…226fc Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A2 LAST PACKED, BUT NOT STORED WORD *«, t00=0x0160, t01=0x0112}
0x226fc…2273c Head {h00=0x003c, h01=0x0050, text=»* A4 ADDRESS TO CHAR. FOLLOWING LAST *«, t00=0x0160, t01=0x0152}
0x2273c…2277c (353, 0, 400) Head {h00=0x003c, h01=0x0050, text=»* PROCESSED DIGIT *«, t00=0x0161, t01=0x0004}
0x2277c…227bc Head {h00=0x003c, h01=0x0050, text=»* A5 PACKING INSTR. (SLL A1,N TIMES) *«, t00=0x0161, t01=0x0044}
0x227bc…227fc Head {h00=0x003c, h01=0x0050, text=»* A6 POINTER WHERE TO STORE NEXT WORD *«, t00=0x0161, t01=0x0084}
0x227fc…2283c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0161, t01=0x00c4}
0x2283c…2287c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0161, t01=0x0104}
0x2287c…22888 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0161, t01=0x0144}
0x22888…22894 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0161, t01=0x0150}
0x22894…228a8 Head {h00=0x0010, h01=0x0050, text=»HEXCPY EQU *«, t00=0x0161, t01=0x015c}
0x228a8…228ba Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0161, t01=0x0170}
0x228ba…228dc Head {h00=0x001e, h01=0x0050, text=» LC A1,1,A4 GET CHARACTER «, t00=0x0161, t01=0x0182}
0x228dc…22900 Head {h00=0x0020, h01=0x0050, text=» CALL HEXCNV CONVERT TO HEX «, t00=0x0162, t01=0x0014}
0x22900…22916 Head {h00=0x0012, h01=0x0050, text=» EXR A5 SHIFT «, t00=0x0162, t01=0x0038}
0x22916…2293c Head {h00=0x0022, h01=0x0050, text=» ORR A2,A1 CONFIGURE DCT WORD «, t00=0x0162, t01=0x004e}
0x2293c…22968 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT NO OF CHARACTERS«, t00=0x0162, t01=0x0074}
0x22968…22990 Head {h00=0x0024, h01=0x0050, text=» RF(Z) HXCPY8 WHOLE NA PROCESSED«, t00=0x0162, t01=0x00a0}
0x22990…2299a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x00c8}
0x2299a…229ba Head {h00=0x001c, h01=0x0050, text=» CWK A5,SLL0 FULL WORD? «, t00=0x0162, t01=0x00d2}
0x229ba…229d4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) HXCPY6 NO!«, t00=0x0162, t01=0x00f2}
0x229d4…229de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x010c}
0x229de…22a02 Head {h00=0x0020, h01=0x0050, text=» STR A2,A6 YES! SAVE IN DCT «, t00=0x0162, t01=0x0116}
0x22a02…22a24 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 CLEAR TABLE WORD«, t00=0x0162, t01=0x013a}
0x22a24…22a4c Head {h00=0x0024, h01=0x0050, text=» ADK A6,2 ADVANCE TO NEXT ENTRY «, t00=0x0162, t01=0x015c}
0x22a4c…22a6c Head {h00=0x001c, h01=0x0050, text=» LDK A5,16 NO OF SHIFTS «, t00=0x0162, t01=0x0184}
0x22a6c…22a9c Head {h00=0x002c, h01=0x0050, text=» ORKL A5,SLL0 CONFIGURE SSL A1,16 INSTR.«, t00=0x0163, t01=0x0014}
0x22a9c…22ab0 Head {h00=0x0010, h01=0x0050, text=»HXCPY6 EQU *«, t00=0x0163, t01=0x0044}
0x22ab0…22ace Head {h00=0x001a, h01=0x0050, text=» SUK A5,4 NEXT NIBBLE «, t00=0x0163, t01=0x0058}
0x22ace…22afc Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 NEXT CHARACTER IN CONF. DATA«, t00=0x0163, t01=0x0076}
0x22afc…22b0e Head {h00=0x000e, h01=0x0050, text=» RB HEXCPY«, t00=0x0163, t01=0x00a4}
0x22b0e…22b18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0163, t01=0x00b6}
0x22b18…22b2c Head {h00=0x0010, h01=0x0050, text=»HXCPY8 EQU *«, t00=0x0163, t01=0x00c0}
0x22b2c…22b3c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0163, t01=0x00d4}
0x22b3c…22b4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0163, t01=0x00e4}
0x22b4a…22b8a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0163, t01=0x00f2}
0x22b8a…22bca Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0163, t01=0x0132}
0x22bca…22c0a Head {h00=0x003c, h01=0x0050, text=»* HEXCNV CONVERTS A HEXADECIMAL DIGIT IN ASCII CODE *«, t00=0x0163, t01=0x0172}
0x22c0a…22c4a Head {h00=0x003c, h01=0x0050, text=»* TO CORRESPONDING HEXADECIMAL VALUE *«, t00=0x0164, t01=0x0022}
0x22c4a…22c8a Head {h00=0x003c, h01=0x0050, text=»* (4 BITS BINARY CODE) *«, t00=0x0164, t01=0x0062}
0x22c8a…22cca Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0164, t01=0x00a2}
0x22cca…22d0a Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A1 CHARACTER TO CONVERT *«, t00=0x0164, t01=0x00e2}
0x22d0a…22d4a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0164, t01=0x0122}
0x22d4a…22d8a Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A1 CONVERTED CARACTER *«, t00=0x0164, t01=0x0162}
0x22d8a…22dca Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0165, t01=0x0012}
0x22dca…22e0a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0165, t01=0x0052}
0x22e0a…22e16 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0165, t01=0x0092}
0x22e16…22e22 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0165, t01=0x009e}
0x22e22…22e36 Head {h00=0x0010, h01=0x0050, text=»HEXCNV EQU *«, t00=0x0165, t01=0x00aa}
0x22e36…22e5c Head {h00=0x0022, h01=0x0050, text=» ANK A1,/FF ISOLATE CHARACTER «, t00=0x0165, t01=0x00be}
0x22e5c…22e70 Head {h00=0x0010, h01=0x0050, text=» CWK A1,/29 «, t00=0x0165, t01=0x00e4}
0x22e70…22e94 Head {h00=0x0020, h01=0x0050, text=» RF(L) TYPERR ERRANEOUS TYPE«, t00=0x0165, t01=0x00f8}
0x22e94…22e9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x011c}
0x22e9e…22ec4 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/40 DIGIT BETWEEN 0-9?«, t00=0x0165, t01=0x0126}
0x22ec4…22ede Head {h00=0x0016, h01=0x0050, text=» RF(L) HXCN00 YES!«, t00=0x0165, t01=0x014c}
0x22ede…22f08 Head {h00=0x0026, h01=0x0050, text=» RF(E) TYPERR NO NEXADECIMAL DIGIT«, t00=0x0165, t01=0x0166}
0x22f08…22f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x0190}
0x22f12…22f38 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/46 DIGIT BETWEEN A-F?«, t00=0x0166, t01=0x000a}
0x22f38…22f50 Head {h00=0x0014, h01=0x0050, text=» RF(G) TYPERR NO«, t00=0x0166, t01=0x0030}
0x22f50…22f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x0048}
0x22f5a…22f70 Head {h00=0x0012, h01=0x0050, text=» ADK A1,9 YES!«, t00=0x0166, t01=0x0052}
0x22f70…22f84 Head {h00=0x0010, h01=0x0050, text=»HXCN00 EQU *«, t00=0x0166, t01=0x0068}
0x22f84…22faa Head {h00=0x0022, h01=0x0050, text=» ANK A1,/F ISOLATE HEX NUMBER «, t00=0x0166, t01=0x007c}
0x22faa…22fba Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0166, t01=0x00a2}
0x22fba…22fc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x00b2}
0x22fc4…22fd8 Head {h00=0x0010, h01=0x0050, text=»TYPERR EQU *«, t00=0x0166, t01=0x00bc}
0x22fd8…22ffe Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP4 CONF. DATA ERROR«, t00=0x0166, t01=0x00d0}
0x22ffe…23012 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0166, t01=0x00f6}
0x23012…23020 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0166, t01=0x010a}
0x23020…23060 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0166, t01=0x0118}
0x23060…230a0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0166, t01=0x0158}
0x230a0…230e0 Head {h00=0x003c, h01=0x0050, text=»* P:NA PROCESS NETWORK ADDRESS *«, t00=0x0167, t01=0x0008}
0x230e0…23120 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0167, t01=0x0048}
0x23120…23160 Head {h00=0x003c, h01=0x0050, text=»* SCANS THE NETWORK ADDRESS RECORD (NA=..) IN CONF. *«, t00=0x0167, t01=0x0088}
0x23160…231a0 Head {h00=0x003c, h01=0x0050, text=»* DATA AND REPACKS THE RECORD, OVERWRITING POSSIBLE *«, t00=0x0167, t01=0x00c8}
0x231a0…231e0 Head {h00=0x003c, h01=0x0050, text=»* CONTINUATION DEFINITIONS (C=..), SO THAT THE *«, t00=0x0167, t01=0x0108}
0x231e0…23220 Head {h00=0x003c, h01=0x0050, text=»* WHOLE NETWORK ADDRESS WILL BE IN CONTIGOUSE LOCA- *«, t00=0x0167, t01=0x0148}
0x23220…23260 Head {h00=0x003c, h01=0x0050, text=»* TIONS. *«, t00=0x0167, t01=0x0188}
0x23260…232a0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0168, t01=0x0038}
0x232a0…232e0 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN NETWORK *«, t00=0x0168, t01=0x0078}
0x232e0…23320 Head {h00=0x003c, h01=0x0050, text=»* ADDRESS. *«, t00=0x0168, t01=0x00b8}
0x23320…23360 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0168, t01=0x00f8}
0x23360…233a0 Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A2 LENGTH OF NETWORK ADDRESS *«, t00=0x0168, t01=0x0138}
0x233a0…233e0 Head {h00=0x003c, h01=0x0050, text=»* A11 START OF NSA RECORD IN CONF. DATA *«, t00=0x0168, t01=0x0178}
0x233e0…23420 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0169, t01=0x0028}
0x23420…23460 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0169, t01=0x0068}
0x23460…2346c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0169, t01=0x00a8}
0x2346c…23478 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0169, t01=0x00b4}
0x23478…2348a Head {h00=0x000e, h01=0x0050, text=»P:NA EQU *«, t00=0x0169, t01=0x00c0}
0x2348a…234b2 Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 RESET PACKING CONSTANT«, t00=0x0169, t01=0x00d2}
0x234b2…234d8 Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 RESET ADDRESS LENGTH«, t00=0x0169, t01=0x00fa}
0x234d8…234ec Head {h00=0x0010, h01=0x0050, text=»P:NA00 EQU *«, t00=0x0169, t01=0x0120}
0x234ec…234fe Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0169, t01=0x0134}
0x234fe…23520 Head {h00=0x001e, h01=0x0050, text=» LC A1,1,A11 GET CHARACTER«, t00=0x0169, t01=0x0146}
0x23520…2354a Head {h00=0x0026, h01=0x0050, text=» LDR A1,A1 SET CONDITION REGISTER «, t00=0x0169, t01=0x0168}
0x2354a…23572 (362, 0, 400) Head {h00=0x0024, h01=0x0050, text=» RF(Z) P:NA06 END OF CONF. DATA «, t00=0x016a, t01=0x0004}
0x23572…2357c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x002c}
0x2357c…235a0 Head {h00=0x0020, h01=0x0050, text=» CCK A1,/FF END OF D-BLOCK? «, t00=0x016a, t01=0x0036}
0x235a0…235ba Head {h00=0x0016, h01=0x0050, text=» RF(E) P:NA05 YES!«, t00=0x016a, t01=0x005a}
0x235ba…235c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x0074}
0x235c4…235ee Head {h00=0x0026, h01=0x0050, text=» CCK A1,'==' CONTINUATION RECORD? «, t00=0x016a, t01=0x007e}
0x235ee…23608 Head {h00=0x0016, h01=0x0050, text=» RF(E) P:NA04 YES!«, t00=0x016a, t01=0x00a8}
0x23608…23612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x00c2}
0x23612…23644 Head {h00=0x002e, h01=0x0050, text=» CCK A1,'NN' NO! START OF NA OR NSA RECORD«, t00=0x016a, t01=0x00cc}
0x23644…23666 Head {h00=0x001e, h01=0x0050, text=» RF(E) P:NA06 YES! RETURN «, t00=0x016a, t01=0x00fe}
0x23666…23670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x0120}
0x23670…2369a Head {h00=0x0026, h01=0x0050, text=» CCK A1,'SS' START OF SDTE RECORD?«, t00=0x016a, t01=0x012a}
0x2369a…236b4 Head {h00=0x0016, h01=0x0050, text=» RF(E) P:NA06 YES!«, t00=0x016a, t01=0x0154}
0x236b4…236be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x016e}
0x236be…236ec Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 INCREMENT NA ADDRESS LENGTH «, t00=0x016a, t01=0x0178}
0x236ec…23710 Head {h00=0x0020, h01=0x0050, text=» CWK A2,/FF TOO MANY DIGITS?«, t00=0x016b, t01=0x0016}
0x23710…2372a Head {h00=0x0016, h01=0x0050, text=» RF(NG) P:NA02 NO!«, t00=0x016b, t01=0x003a}
0x2372a…23734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016b, t01=0x0054}
0x23734…23762 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP4 YES! ERROR IN CONF. DATA«, t00=0x016b, t01=0x005e}
0x23762…23776 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x016b, t01=0x008c}
0x23776…2378a Head {h00=0x0010, h01=0x0050, text=»P:NA02 EQU *«, t00=0x016b, t01=0x00a0}
0x2378a…2379c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x016b, t01=0x00b4}
0x2379c…237c2 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A11 REPACKING ADDRESS «, t00=0x016b, t01=0x00c6}
0x237c2…237f0 Head {h00=0x002a, h01=0x0050, text=» SCR A1,A3 PUT CHARACTER BACK IN FILE «, t00=0x016b, t01=0x00ec}
0x237f0…23816 Head {h00=0x0022, h01=0x0050, text=» ADKL A11,1 GET NEXT CHARACTER«, t00=0x016b, t01=0x011a}
0x23816…23828 Head {h00=0x000e, h01=0x0050, text=» RB P:NA00«, t00=0x016b, t01=0x0140}
0x23828…23832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016b, t01=0x0152}
0x23832…23846 Head {h00=0x0010, h01=0x0050, text=»P:NA04 EQU *«, t00=0x016b, t01=0x015c}
0x23846…2387c Head {h00=0x0032, h01=0x0050, text=» SUK A2,1 DON'T COUNT CONT. RECORD IDENTIFIER «, t00=0x016b, t01=0x0170}
0x2387c…238a4 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 SET REPACKING CONSTANT«, t00=0x016c, t01=0x0016}
0x238a4…238d2 Head {h00=0x002a, h01=0x0050, text=» ADKL A11,1 ADVANCE TO NEXT CHARACTER «, t00=0x016c, t01=0x003e}
0x238d2…238e4 Head {h00=0x000e, h01=0x0050, text=» RB P:NA00«, t00=0x016c, t01=0x006c}
0x238e4…238ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016c, t01=0x007e}
0x238ee…23902 Head {h00=0x0010, h01=0x0050, text=»P:NA05 EQU *«, t00=0x016c, t01=0x0088}
0x23902…23928 Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 DECREMENT NA LENGTH «, t00=0x016c, t01=0x009c}
0x23928…23956 Head {h00=0x002a, h01=0x0050, text=» SUKL A11,1 AND POSITION IN CONF. DATA«, t00=0x016c, t01=0x00c2}
0x23956…23960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016c, t01=0x00f0}
0x23960…23974 Head {h00=0x0010, h01=0x0050, text=»P:NA06 EQU *«, t00=0x016c, t01=0x00fa}
0x23974…23984 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x016c, t01=0x010e}
0x23984…23992 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x016c, t01=0x011e}
0x23992…2399a Head {h00=0x0004, h01=0x0050, t00=0x016c, t01=0x012c}
0x2399a…239da Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x016c, t01=0x0134}
0x239da…23a1a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x016c, t01=0x0174}
0x23a1a…23a5a Head {h00=0x003c, h01=0x0050, text=»* ENDBLK LOOKS FOR END OF DATA COMMUNICATION BLOCK *«, t00=0x016d, t01=0x0024}
0x23a5a…23a9a Head {h00=0x003c, h01=0x0050, text=»* ================================================= *«, t00=0x016d, t01=0x0064}
0x23a9a…23ada Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x016d, t01=0x00a4}
0x23ada…23b1a Head {h00=0x003c, h01=0x0050, text=»* END OF BLOCK IS DEFINED BY A RECORD BEGINNING *«, t00=0x016d, t01=0x00e4}
0x23b1a…23b5a Head {h00=0x003c, h01=0x0050, text=»* WITH 'A' AS IN APPLICATION DEFINITION BLOCK OR *«, t00=0x016d, t01=0x0124}
0x23b5a…23b9a Head {h00=0x003c, h01=0x0050, text=»* BY A CHARACTER = 0 (BINARY) MEANING END OF *«, t00=0x016d, t01=0x0164}
0x23b9a…23bda Head {h00=0x003c, h01=0x0050, text=»* CONFIGURATION DATA. *«, t00=0x016e, t01=0x0014}
0x23bda…23c1a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x016e, t01=0x0054}
0x23c1a…23c5a Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A11 CURRENT POSITION IN CONF. DATA *«, t00=0x016e, t01=0x0094}
0x23c5a…23c9a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x016e, t01=0x00d4}
0x23c9a…23cda Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A8 = 0 IF END OF BLOCK *«, t00=0x016e, t01=0x0114}
0x23cda…23d1a Head {h00=0x003c, h01=0x0050, text=»* A8 NOT ZERO OTHERVISE *«, t00=0x016e, t01=0x0154}
0x23d1a…23d5a (367, 0, 398) Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x016f, t01=0x0004}
0x23d5a…23d9a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x016f, t01=0x0044}
0x23d9a…23da2 Head {h00=0x0004, h01=0x0050, t00=0x016f, t01=0x0084}
0x23da2…23daa Head {h00=0x0004, h01=0x0050, t00=0x016f, t01=0x008c}
0x23daa…23dbe Head {h00=0x0010, h01=0x0050, text=»ENDBLK EQU *«, t00=0x016f, t01=0x0094}
0x23dbe…23de6 Head {h00=0x0024, h01=0x0050, text=» LC A8,1,A11 GET NEXT CHARACTER «, t00=0x016f, t01=0x00a8}
0x23de6…23e0c Head {h00=0x0022, h01=0x0050, text=» CCK A8,/00 END OF CONF. DATA?«, t00=0x016f, t01=0x00d0}
0x23e0c…23e26 Head {h00=0x0016, h01=0x0050, text=» RF(E) ENDBL0 YES!«, t00=0x016f, t01=0x00f6}
0x23e26…23e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016f, t01=0x0110}
0x23e30…23e60 Head {h00=0x002c, h01=0x0050, text=» CCK A8,'AA' START OF APPL. DEF. BLOCK? «, t00=0x016f, t01=0x011a}
0x23e60…23e8e Head {h00=0x002a, h01=0x0050, text=» RF(NE) ENDBL2 NO! NOT END OF D-BLOCK «, t00=0x016f, t01=0x014a}
0x23e8e…23e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016f, t01=0x0178}
0x23e98…23eac Head {h00=0x0010, h01=0x0050, text=»ENDBL0 EQU *«, t00=0x016f, t01=0x0182}
0x23eac…23ed8 Head {h00=0x0028, h01=0x0050, text=» SUR A8,A8 SET END OF D-BLOCK COND. «, t00=0x0170, t01=0x0008}
0x23ed8…23eec Head {h00=0x0010, h01=0x0050, text=»ENDBL2 EQU *«, t00=0x0170, t01=0x0034}
0x23eec…23efc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0170, t01=0x0048}
0x23efc…23f08 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0170, t01=0x0058}
0x23f08…23f16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0170, t01=0x0064}
0x23f16…23f1a Head {h00=0x0054, h01=0x0050}
0x23f1a…23f1e Head {h00=0x2a3d, h01=0x2a3d}
0x23f1e…23f50 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d ┆*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=┆
0x23f50…23fa0 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 01 70 00 72 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 4e 45 52 41 4c 20 53 55 42 52 4f 55 54 49 4e 45 53 20 20 20 20 20 20 20 20 20 20 20 20 ┆*=*=*=*=*=*=*=*=*=*=*=*=*= p r 6 P* GENERAL SUBROUTINES ┆
0x23fa0…23ff0 20 20 2a 20 01 70 00 ca 00 54 00 50 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d ┆ * p T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=┆
0x23ff0…24038 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 01 70 01 04 00 04 00 50 01 70 01 5c 00 04 00 50 01 70 01 64 00 04 00 50 01 70 01 6c 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆*=*=*=*=*=*= p P p P p d P p l 8 P****************************┆
0x24038…24088 (369, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 70 01 74 00 38 00 50 2a 20 20 20 47 45 54 54 53 4b 20 2d 20 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 54 41 53 4b 53 20 49 4e 20 41 20 54 41 53 4b 2d 43 4c 41 53 53 ┆************************ p t 8 P* GETTSK - GET NUMBER OF TASKS IN A TASK-CLASS┆
0x24088…240d8 20 20 20 2a 01 71 00 20 00 06 00 50 2a 20 01 71 00 5c 00 36 00 50 2a 20 20 47 45 54 43 54 43 20 2d 20 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 43 4f 4d 4d 4f 4e 20 54 45 52 4d 49 4e 41 4c 20 43 4c 41 53 53 45 53 20 01 71 00 66 00 06 00 50 ┆ * q P* q 6 P* GETCTC - GET NUMBER OF COMMON TERMINAL CLASSES q f P┆
0x240d8…24128 2a 20 01 71 00 a0 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 71 00 aa 00 06 00 50 2a 20 01 71 00 e6 00 22 00 50 ┆* q 8 P**************************************************** q P* q " P┆
0x24128…24178 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 54 43 54 2c 42 3a 43 44 54 01 71 00 f0 00 06 00 50 2a 20 01 71 01 16 00 3e 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 41 31 31 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 53 54 41 52 ┆* REFERENCED IN: B:TCT,B:CDT q P* q > P* ENTRY: A11 - POINTER TO STAR┆
0x24178…241c8 54 20 4f 46 20 54 41 53 4b 20 44 45 46 49 4e 49 54 49 4f 4e 20 42 4c 4f 43 4b 01 71 01 20 00 06 00 50 2a 20 01 71 01 62 00 46 00 50 2a 20 20 45 58 49 54 3a 20 20 20 20 41 31 20 2d 20 4e 55 4d 42 45 52 20 4f 46 20 54 41 53 4b 53 20 49 4e 20 ┆T OF TASK DEFINITION BLOCK q P* q b F P* EXIT: A1 - NUMBER OF TASKS IN ┆
0x241c8…24218 (370, 0, 400) 54 48 45 20 54 41 53 4b 20 43 4c 41 53 53 20 28 42 49 4e 41 52 59 20 56 41 4c 55 45 29 20 01 71 01 6c 00 06 00 50 2a 20 01 72 00 26 00 1a 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 35 01 72 00 30 00 06 00 50 2a 20 ┆THE TASK CLASS (BINARY VALUE) q l P* r & P* WORK REGISTERS: A5 r 0 P* ┆
0x24218…24268 01 72 00 4e 00 1c 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 43 4f 4e 56 52 54 20 01 72 00 58 00 06 00 50 2a 20 01 72 00 78 00 10 00 50 47 45 54 54 53 4b 5c 45 51 55 5c 2a 01 72 00 82 00 10 00 50 47 45 54 43 54 43 5c 45 51 55 ┆ r N P* SUBROUTINES: CONVRT r X P* r x PGETTSK EQU * r PGETCTC EQU┆
0x24268…242b8 5c 2a 01 72 00 96 00 2e 00 50 47 45 54 44 54 45 5c 45 51 55 5c 2a 5c 47 45 54 20 4e 4f 20 4f 46 20 44 54 45 20 42 4c 4f 43 4b 53 20 44 45 46 49 4e 45 44 20 01 72 00 aa 00 2e 00 50 47 45 54 43 4f 50 5c 45 51 55 5c 2a 5c 47 45 54 20 4e 4f 20 ┆ * r . PGETDTE EQU * GET NO OF DTE BLOCKS DEFINED r . PGETCOP EQU * GET NO ┆
0x242b8…24308 4f 46 20 43 4f 50 49 45 53 20 4f 46 20 4c 41 53 54 20 44 54 45 20 01 72 00 dc 00 30 00 50 47 45 54 4e 53 41 5c 45 51 55 5c 2a 5c 47 45 54 20 4e 4f 20 4f 46 20 53 55 42 41 44 44 52 45 53 53 45 53 20 44 45 46 49 4e 45 44 20 01 72 01 0e 00 14 ┆OF COPIES OF LAST DTE r 0 PGETNSA EQU * GET NO OF SUBADDRESSES DEFINED r ┆
0x24308…24358 00 50 5c 4c 43 5c 41 35 2c 54 44 42 4e 54 2c 41 31 31 01 72 01 42 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 01 72 01 5a 00 16 00 50 5c 4c 43 5c 41 35 2c 54 44 42 4e 54 2b 31 2c 41 31 31 01 72 01 6c 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 ┆ P LC A5,TDBNT,A11 r B P SLL A5,8 r Z P LC A5,TDBNT+1,A11 r l P CALL CONV┆
0x24358…243a8 (371, 0, 400) 52 54 01 72 01 86 00 0c 00 50 5c 52 54 4e 5c 41 31 34 01 73 00 0a 00 0a 00 50 5c 45 4a 45 43 54 01 73 00 1a 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RT r P RTN A14 s P EJECT s 8 P****************************************┆
0x243a8…243f8 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 73 00 28 00 38 00 50 2a 20 20 47 45 54 54 44 43 20 2d 20 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 54 45 52 4d 49 4e 41 4c 20 44 45 56 49 43 45 20 43 4c 41 53 53 45 53 20 20 2a 01 73 00 64 00 38 00 50 ┆************ s ( 8 P* GETTDC - GET NUMBER OF TERMINAL DEVICE CLASSES * s d 8 P┆
0x243f8…24448 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 73 00 a0 00 06 00 50 2a 20 01 73 00 dc 00 1c 00 50 2a 20 20 52 45 46 45 52 45 4e ┆**************************************************** s P* s P* REFEREN┆
0x24448…24498 43 45 44 20 49 4e 3a 20 20 42 3a 54 54 20 01 73 00 e6 00 06 00 50 2a 20 01 73 01 06 00 3e 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 41 31 31 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 53 54 41 52 54 20 4f 46 20 54 41 53 4b 20 44 45 46 49 4e 49 ┆CED IN: B:TT s P* s > P* ENTRY: A11 - POINTER TO START OF TASK DEFINI┆
0x24498…244e8 54 49 4f 4e 20 42 4c 4f 43 4b 01 73 01 10 00 06 00 50 2a 20 01 73 01 52 00 44 00 50 2a 20 20 45 58 49 54 3a 20 20 20 20 41 31 20 2d 20 4e 55 4d 42 45 52 20 4f 46 20 54 45 52 4d 49 4e 41 4c 20 44 45 56 49 43 45 20 43 4c 41 53 53 45 53 20 28 ┆TION BLOCK s P* s R D P* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (┆
0x244e8…24538 (372, 0, 400) 42 49 4e 52 59 20 56 41 4c 55 45 29 01 73 01 5c 00 06 00 50 2a 20 01 74 00 14 00 1a 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 35 01 74 00 1e 00 06 00 50 2a 20 01 74 00 3c 00 1a 00 50 2a 20 20 53 55 42 52 4f 55 54 ┆BINRY VALUE) s P* t P* WORK REGISTERS: A5 t P* t < P* SUBROUT┆
0x24538…24588 49 4e 45 53 3a 20 43 4f 4e 56 52 54 01 74 00 46 00 06 00 50 2a 20 01 74 00 64 00 10 00 50 47 45 54 54 44 43 5c 45 51 55 5c 2a 01 74 00 6e 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 42 4e 43 2c 41 31 31 01 74 00 82 00 0e 00 50 5c 53 4c 4c 5c 41 ┆INES: CONVRT t F P* t d PGETTDC EQU * t n P LC A5,TDBNC,A11 t P SLL A┆
0x24588…245d8 35 2c 38 20 01 74 00 9a 00 16 00 50 5c 4c 43 5c 41 35 2c 54 44 42 4e 43 2b 31 2c 41 31 31 01 74 00 ac 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 01 74 00 c6 00 0c 00 50 5c 52 54 4e 5c 41 31 34 01 74 00 da 00 0a 00 50 5c 45 4a 45 43 54 ┆5,8 t P LC A5,TDBNC+1,A11 t P CALL CONVRT t P RTN A14 t P EJECT┆
0x245d8…24628 01 74 00 ea 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 74 00 f8 00 38 00 50 2a 20 20 47 45 54 53 44 43 20 2d 20 ┆ t 8 P*************************************************** t 8 P* GETSDC - ┆
0x24628…24678 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 53 50 45 43 49 41 4c 20 44 45 56 49 43 45 20 43 4c 41 53 53 45 53 20 20 2a 20 01 74 01 34 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆GET NUMBER OF SPECIAL DEVICE CLASSES * t 4 8 P********************************┆
0x24678…246c8 (373, 0, 398) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 74 01 70 00 06 00 50 2a 20 01 75 00 1c 00 1c 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 54 54 20 01 75 00 26 00 06 00 50 2a 20 01 75 00 46 00 34 00 50 ┆******************* t p P* u P* REFERENCED IN: B:TT u & P* u F 4 P┆
0x246c8…24718 2a 20 20 45 4e 54 52 59 3a 20 20 41 39 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 4e 55 4d 42 45 52 20 4f 46 20 53 44 43 20 52 45 43 4f 52 44 20 01 75 00 50 00 06 00 50 2a 20 01 75 00 88 00 44 00 50 2a 20 20 45 58 49 54 3a 20 20 20 41 31 20 ┆* ENTRY: A9 - POINTER TO NUMBER OF SDC RECORD u P P* u D P* EXIT: A1 ┆
0x24718…24768 2d 20 4e 55 4d 42 45 52 20 4f 46 20 53 50 45 43 49 41 4c 20 44 45 56 49 43 45 20 43 4c 41 53 53 45 53 20 28 42 49 4e 41 52 59 20 56 41 4c 55 45 29 20 01 75 00 92 00 06 00 50 2a 20 01 75 00 da 00 1a 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 ┆- NUMBER OF SPECIAL DEVICE CLASSES (BINARY VALUE) u P* u P* WORK REGI┆
0x24768…247b8 53 54 45 52 53 3a 20 41 35 20 01 75 00 e4 00 06 00 50 2a 20 01 75 01 02 00 1c 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 43 4f 4e 56 52 54 20 01 75 01 0c 00 06 00 50 2a 20 01 75 01 2c 00 10 00 50 47 45 54 53 44 43 5c 45 51 55 ┆STERS: A5 u P* u P* SUBROUTINES: CONVRT u P* u , PGETSDC EQU┆
0x247b8…24806 5c 2a 01 75 01 36 00 0e 00 50 5c 4c 43 52 5c 41 35 2c 41 39 01 75 01 4a 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 01 75 01 5c 00 10 00 50 5c 4c 43 5c 41 35 2c 31 2c 41 39 20 01 75 01 6e 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 ┆ * u 6 P LCR A5,A9 u J P SLL A5,8 u P LC A5,1,A9 u n P CALL CONVRT┆
0x24806…24856 (374, 0, 400) 01 75 01 82 00 0c 00 50 5c 52 54 4e 5c 41 31 34 01 76 00 08 00 0a 00 50 5c 45 4a 45 43 54 01 76 00 18 00 32 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ u P RTN A14 v P EJECT v 2 P******************************************┆
0x24856…248a6 2a 2a 2a 2a 01 76 00 26 00 32 00 50 2a 20 20 47 45 54 43 4c 4e 20 2d 20 47 45 54 20 43 4c 41 53 53 20 49 44 45 4e 54 49 46 49 43 41 54 49 4f 4e 20 4e 55 4d 42 45 52 20 20 2a 01 76 00 5c 00 32 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆**** v & 2 P* GETCLN - GET CLASS IDENTIFICATION NUMBER * v 2 P**************┆
0x248a6…248f6 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 76 00 92 00 06 00 50 2a 20 01 76 00 c8 00 1c 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 54 54 20 01 76 00 d2 00 06 ┆******************************** v P* v P* REFERENCED IN: B:TT v ┆
0x248f6…24946 00 50 2a 20 01 76 00 f2 00 36 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 41 39 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 43 4c 41 53 53 20 44 45 46 49 4e 49 54 49 4f 4e 20 52 45 43 4f 52 44 01 76 00 fc 00 06 00 50 2a 20 01 76 01 36 00 3e 00 50 ┆ P* v 6 P* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD v P* v 6 > P┆
0x24946…24996 2a 20 20 45 58 49 54 3a 20 20 20 41 31 20 2d 20 43 4c 41 53 53 20 49 44 45 4e 54 49 46 49 43 41 54 49 4f 4e 20 4e 55 4d 42 45 52 20 28 42 49 4e 41 52 59 20 56 41 4c 55 45 29 01 76 01 40 00 06 00 50 2a 20 01 76 01 82 00 1a 00 50 2a 20 20 57 ┆* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE) v @ P* v P* W┆
0x24996…249e6 (375, 0, 400) 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 35 01 76 01 8c 00 06 00 50 2a 20 01 77 00 1a 00 1c 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 43 4f 4e 56 52 54 20 01 77 00 24 00 06 00 50 2a 20 01 77 00 44 00 10 00 50 47 45 ┆ORK REGISTERS: A5 v P* w P* SUBROUTINES: CONVRT w $ P* w D PGE┆
0x249e6…24a36 54 43 4c 4e 5c 45 51 55 5c 2a 01 77 00 4e 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 43 44 44 31 2c 41 39 01 77 00 62 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 01 77 00 7a 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 43 44 44 32 2c 41 39 01 77 00 8c ┆TCLN EQU * w N P LC A5,TDCDD1,A9 w b P SLL A5,8 w z P LC A5,TDCDD2,A9 w ┆
0x24a36…24a86 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 01 77 00 a4 00 14 00 50 5c 52 54 4e 5c 41 31 34 5c 52 45 54 55 52 4e 20 01 77 00 b8 00 0a 00 50 5c 45 4a 45 43 54 01 77 00 d0 00 2e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P CALL CONVRT w P RTN A14 RETURN w P EJECT w . P******************┆
0x24a86…24ad6 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 77 00 de 00 2e 00 50 2a 20 20 47 45 54 4c 43 4e 20 2d 20 47 45 54 20 4c 49 4e 45 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 4e 55 4d 42 45 52 20 20 2a 20 01 77 01 10 00 2e ┆*********************** w . P* GETLCN - GET LINE CONNECTION NUMBER * w .┆
0x24ad6…24b26 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 77 01 42 00 06 00 50 2a 20 01 77 01 74 00 1e 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 ┆ P***************************************** w B P* w t P* REFERENCED IN: ┆
0x24b26…24b76 (376, 0, 400) 20 42 3a 44 57 54 54 20 01 77 01 7e 00 06 00 50 2a 20 01 78 00 10 00 38 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 41 39 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 43 4c 41 53 53 20 44 45 46 49 4e 49 54 49 4f 4e 20 20 52 45 43 4f 52 44 20 01 78 ┆ B:DWTT w ~ P* x 8 P* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD x┆
0x24b76…24bc6 00 1a 00 06 00 50 2a 20 01 78 00 56 00 3a 00 50 2a 20 20 45 58 49 54 3a 20 20 20 41 31 20 2d 20 4c 49 4e 45 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 4e 55 4d 42 45 52 20 28 42 49 4e 41 52 59 20 56 41 4c 55 45 29 20 01 78 00 60 00 06 00 50 2a 20 ┆ P* x V : P* EXIT: A1 - LINE CONNECTION NUMBER (BINARY VALUE) x ` P* ┆
0x24bc6…24c16 01 78 00 9e 00 1a 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 35 01 78 00 a8 00 06 00 50 2a 20 01 78 00 c6 00 1c 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 43 4f 4e 56 52 54 20 01 78 00 d0 00 06 00 50 ┆ x P* WORK REGISTERS: A5 x P* x P* SUBROUTINES: CONVRT x P┆
0x24c16…24c66 2a 20 01 78 00 f0 00 10 00 50 47 45 54 4c 43 4e 5c 45 51 55 5c 2a 01 78 00 fa 00 2a 00 50 5c 53 54 52 5c 41 34 2c 41 31 35 5c 53 41 56 45 20 52 45 47 49 53 54 45 52 20 41 34 20 4f 4e 20 53 54 41 43 4b 20 01 78 01 0e 00 2a 00 50 5c 53 54 52 ┆* x PGETLCN EQU * x * P STR A4,A15 SAVE REGISTER A4 ON STACK x * P STR┆
0x24c66…24cb6 5c 41 36 2c 41 31 35 5c 53 41 56 45 20 52 45 47 49 53 54 45 52 20 41 36 20 4f 4e 20 53 54 41 43 4b 20 01 78 01 3c 00 26 00 50 5c 4c 44 52 5c 41 36 2c 41 39 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 54 44 43 20 52 45 43 4f 52 44 01 78 01 6a ┆ A6,A15 SAVE REGISTER A6 ON STACK x < & P LDR A6,A9 GET START OF TDC RECORD x j┆
0x24cb6…24d06 (377, 0, 400) 00 32 00 50 5c 41 44 4b 5c 41 36 2c 54 44 43 4c 43 4e 5c 41 44 44 52 45 53 53 20 4c 49 4e 45 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 4e 55 4d 42 45 52 20 01 79 00 04 00 2c 00 50 5c 43 41 4c 4c 5c 47 45 54 4e 55 4d 5c 47 45 54 20 4c 49 4e 45 20 ┆ 2 P ADK A6,TDCLCN ADDRESS LINE CONNECTION NUMBER y , P CALL GETNUM GET LINE ┆
0x24d06…24d56 43 4f 4e 4e 45 43 54 49 4f 4e 20 4e 55 4d 42 45 52 20 01 79 00 3a 00 20 00 50 5c 4c 44 52 5c 41 31 2c 41 35 5c 53 41 56 45 20 42 49 4e 41 52 59 20 56 41 4c 55 45 01 79 00 6a 00 30 00 50 5c 4c 44 52 2a 5c 41 36 2c 41 31 35 5c 52 45 53 54 4f ┆CONNECTION NUMBER y : P LDR A1,A5 SAVE BINARY VALUE y j 0 P LDR* A6,A15 RESTO┆
0x24d56…24da6 52 45 20 52 45 47 49 53 54 45 52 20 41 36 20 46 52 4f 4d 20 53 54 41 43 4b 20 01 79 00 8e 00 30 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 52 45 47 49 53 54 45 52 20 41 34 20 46 52 4f 4d 20 53 54 41 43 4b 20 01 79 ┆RE REGISTER A6 FROM STACK y 0 P LDR* A4,A15 RESTORE REGISTER A4 FROM STACK y┆
0x24da6…24df6 00 c2 00 0c 00 50 5c 52 54 4e 5c 41 31 34 01 79 00 f6 00 0a 00 50 5c 45 4a 45 43 54 01 79 01 06 00 3a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P RTN A14 y P EJECT y : P********************************************┆
0x24df6…24e46 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 79 01 14 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 79 01 52 00 3a 00 50 ┆********* y : P* * y R : P┆
0x24e46…24e50 (378, 0, 400) 2a 20 20 47 45 54 54 43 4c 20 ┆* GETTCL ┆
0x24e50…24ea0 2d 20 47 45 54 20 54 41 53 4b 20 43 4c 41 53 53 20 54 4f 20 4d 41 54 43 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 79 01 90 00 3a 00 50 2a 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆- GET TASK CLASS TO MATCH * y : P* =========================┆
0x24ea0…24ef0 3d 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 7a 00 3e 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆======= * z > : P* ┆
0x24ef0…24f1e 20 20 20 20 20 20 2a 20 01 7a 00 7c 00 3a 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 54 54 20 20 20 20 20 20 20 ┆ * z | : P* REFERENCED IN: B:TT ┆
0x24f1e…2a2b4 […elided…]
0x2a2b4…2a300 44 20 54 41 53 4b 20 43 4f 4e 54 52 4f 4c 20 54 41 42 4c 45 01 b0 00 18 00 0e 00 50 5c 49 46 46 5c 46 4d 3d 30 20 01 b0 00 44 00 26 00 50 5c 43 41 4c 4c 5c 42 3a 46 57 54 5c 42 55 49 4c 44 20 46 49 4c 45 20 57 4f 52 4b 20 54 41 ┆D TASK CONTROL TABLE P IFF FM=0 D & P CALL B:FWT BUILD FILE WORK TA┆
0x2a300…2a350 42 4c 45 53 01 b0 00 56 00 08 00 50 5c 58 49 46 01 b0 00 80 00 28 00 50 5c 43 41 4c 4c 5c 4d 4f 4e 42 4c 4b 5c 47 45 4e 45 52 41 54 45 20 4d 4f 4e 49 54 4f 52 20 42 4c 4f 43 4b 53 01 b0 00 8c 00 0e 00 50 5c 49 46 46 5c 45 44 4d 3d 30 01 b0 ┆BLES V P XIF ( P CALL MONBLK GENERATE MONITOR BLOCKS P IFF EDM=0 ┆
0x2a350…2a3a0 00 b8 00 32 00 50 5c 43 41 4c 4c 5c 42 3a 4d 58 54 54 5c 42 55 49 4c 44 20 4d 4f 4e 49 54 4f 52 20 45 58 54 45 4e 54 20 54 41 53 4b 20 54 41 42 4c 45 53 20 01 b0 00 ca 00 36 00 50 5c 43 41 4c 4c 5c 42 3a 4d 53 45 47 5c 42 55 49 4c 44 20 4d ┆ 2 P CALL B:MXTT BUILD MONITOR EXTENT TASK TABLES 6 P CALL B:MSEG BUILD M┆
0x2a3a0…2a3f0 4f 4e 49 54 4f 52 20 53 45 47 4d 45 4e 54 20 54 41 42 4c 45 53 20 26 20 54 54 41 42 3a 53 01 b0 01 00 00 08 00 50 5c 58 49 46 01 b0 01 3a 00 26 00 50 5c 43 41 4c 4c 5c 42 3a 54 54 5c 42 55 49 4c 44 20 55 53 45 52 20 54 41 53 4b 20 54 41 42 ┆ONITOR SEGMENT TABLES & TTAB:S P XIF : & P CALL B:TT BUILD USER TASK TAB┆
0x2a3f0…2a41c 4c 45 53 20 01 b0 01 46 00 12 00 50 5c 49 46 46 5c 53 57 50 42 4c 4b 3d 30 20 01 b0 01 70 00 32 00 50 5c 43 41 4c 4c 5c 42 3a 53 57 ┆LES F P IFF SWPBLK=0 p 2 P CALL B:SW┆
0x2a41c…2a46c (433, 0, 400) 42 54 5c 42 55 49 4c 44 20 53 57 41 50 50 41 42 4c 45 20 57 4f 52 4b 20 42 4c 4f 43 4b 20 54 41 42 4c 45 20 01 b0 01 86 00 08 00 50 5c 58 49 46 01 b1 00 2c 00 18 00 50 5c 49 46 46 5c 4d 4d 55 50 41 47 2b 44 53 4b 50 41 47 3d 30 01 b1 00 38 ┆BT BUILD SWAPPABLE WORK BLOCK TABLE P XIF , P IFF MMUPAG+DSKPAG=0 8┆
0x2a46c…2a4bc 00 28 00 50 5c 43 41 4c 4c 5c 42 3a 53 54 41 42 5c 42 55 49 4c 44 20 53 45 47 4d 45 4e 54 20 54 41 42 4c 45 28 53 29 20 01 b1 00 54 00 08 00 50 5c 58 49 46 01 b1 00 80 00 18 00 50 5c 49 46 46 5c 53 50 44 56 43 4c 2b 54 45 44 56 43 4c 3d 30 ┆ ( P CALL B:STAB BUILD SEGMENT TABLE(S) T P XIF P IFF SPDVCL+TEDVCL=0┆
0x2a4bc…2a50c 01 b1 00 8c 00 32 00 50 5c 43 41 4c 4c 5c 42 3a 44 57 54 53 5c 42 55 49 4c 44 20 53 50 45 43 49 41 4c 20 44 45 56 49 43 45 20 57 4f 52 4b 20 54 41 42 4c 45 53 20 01 b1 00 a8 00 08 00 50 5c 58 49 46 01 b1 00 de 00 12 00 50 5c 49 46 46 5c 54 ┆ 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES P XIF P IFF T┆
0x2a50c…2a55c 45 44 56 43 4c 3d 30 20 01 b1 00 ea 00 32 00 50 5c 43 41 4c 4c 5c 42 3a 44 57 54 54 5c 42 55 49 4c 44 20 54 45 52 4d 49 4e 41 4c 20 44 45 56 49 43 45 20 57 4f 52 4b 20 54 41 42 4c 45 53 01 b1 01 00 00 08 00 50 5c 58 49 46 01 b1 01 36 00 2a ┆EDVCL=0 2 P CALL B:DWTT BUILD TERMINAL DEVICE WORK TABLES P XIF 6 *┆
0x2a55c…2a5ac 00 50 5c 43 41 4c 4c 5c 42 3a 43 44 54 5c 42 55 49 4c 44 20 43 4f 4d 4d 4f 4e 20 44 45 56 49 43 45 20 54 41 42 4c 45 53 01 b1 01 42 00 16 00 50 5c 49 46 46 5c 54 45 44 56 43 4c 3d 30 5c 5c 3d 37 20 01 b1 01 70 00 2a 00 50 5c 43 41 4c 4c 5c ┆ P CALL B:CDT BUILD COMMON DEVICE TABLES B P IFF TEDVCL=0 =7 p * P CALL ┆
0x2a5ac…2a5fc (434, 0, 400) 42 3a 49 54 41 42 5c 42 55 49 4c 44 20 49 4e 54 45 52 52 55 50 54 20 54 41 42 4c 45 5c 3d 37 20 01 b1 01 8a 00 08 00 50 5c 58 49 46 01 b2 00 28 00 12 00 50 5c 49 46 54 5c 44 43 3d 31 5c 5c 3d 37 20 01 b2 00 34 00 36 00 50 5c 43 41 4c 4c 5c ┆B:ITAB BUILD INTERRUPT TABLE =7 P XIF ( P IFT DC=1 =7 4 6 P CALL ┆
0x2a5fc…2a64c 42 3a 43 4e 41 5c 42 55 49 4c 44 20 43 4f 4d 50 55 54 45 52 20 4e 45 54 57 4f 52 4b 20 41 52 43 48 49 54 45 43 54 55 52 45 5c 3d 37 01 b2 00 4a 00 08 00 50 5c 58 49 46 01 b2 00 84 00 0a 00 50 5c 45 4a 45 43 54 01 b2 00 90 00 46 00 50 2a 2a ┆B:CNA BUILD COMPUTER NETWORK ARCHITECTURE =7 J P XIF P EJECT F P**┆
0x2a64c…2a69c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 b2 00 9e 00 46 00 50 2a 20 20 20 20 20 20 20 ┆*************************************************************** F P* ┆
0x2a69c…2a6ec 20 20 20 20 20 20 20 45 4e 44 20 4f 46 20 4d 4f 4e 49 54 4f 52 20 53 41 56 45 30 31 55 52 41 54 49 4f 4e 20 50 41 52 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 b2 00 e8 00 46 00 50 2a 20 20 20 20 20 20 20 2d 43 4f 4e 54 49 ┆ END OF MONITOR SAVE01URATION PART * F P* -CONTI┆
0x2a6ec…2a73c 4e 55 45 20 57 49 54 48 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 53 41 56 45 30 31 55 52 41 54 49 4f 4e 20 50 41 52 54 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 b2 01 32 00 46 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆NUE WITH APPLICATION SAVE01URATION PART * 2 F P********************┆
0x2a73c…2a782 (435, 2, 70) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 b2 01 7c 00 08 00 50 5c 45 4e 44 01 b3 00 36 40 04 00 00 01 b3 00 42 ┆********************************************* | P END 6@ B┆
0x2a782…2a7be (436, 2, 60) 00 30 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 b4 00 04 40 04 00 00 01 b4 00 38 ┆ 0 P******************************************** @ 8┆
0x2a7be…2a7c6 (437, 1, 8) 20 04 00 00 01 b5 00 04 ┆ ┆
0x2a7c6…2a816 (438, 0, 400) 46 44 53 31 2c 41 43 46 44 53 31 2c 41 43 46 44 4f 4b 2c 41 43 46 44 52 53 20 00 ad 01 7c 00 32 00 50 5c 43 41 45 4e 54 34 5c 52 51 2b 53 3a 4d 53 54 53 2c 41 43 46 44 4f 4b 2c 41 43 46 44 52 32 2c 41 43 46 44 52 32 2c 41 43 46 44 52 32 20 ┆FDS1,ACFDS1,ACFDOK,ACFDRS | 2 P CAENT4 RQ+S:MSTS,ACFDOK,ACFDR2,ACFDR2,ACFDR2 ┆
0x2a816…2a866 00 ae 00 22 00 10 00 50 46 44 54 53 45 5c 45 51 55 5c 2a 20 00 ae 00 58 00 2c 00 50 5c 43 41 45 4e 54 34 5c 4d 3a 30 30 2c 41 43 46 44 53 32 2c 41 43 46 44 53 32 2c 41 43 46 44 4f 4b 2c 41 43 46 44 53 32 00 ae 00 6c 00 0a 00 50 5c 45 4a 45 ┆ " PFDTSE EQU * X , P CAENT4 M:00,ACFDS2,ACFDS2,ACFDOK,ACFDS2 l P EJE┆
0x2a866…2a8b6 43 54 00 ae 00 9c 00 06 00 50 2a 20 00 ae 00 aa 00 06 00 50 2a 20 00 ae 00 b4 00 08 00 50 2a 5c 5c 20 00 ae 00 be 00 1a 00 50 2a 5c 46 44 54 41 43 20 2d 20 41 43 54 49 4f 4e 20 54 41 42 4c 45 00 ae 00 ca 00 06 00 50 2a 20 00 ae 00 e8 00 10 ┆CT P* P* P* P* FDTAC - ACTION TABLE P* ┆
0x2a8b6…2a906 00 50 46 44 54 41 43 5c 45 51 55 5c 2a 20 00 ae 00 f2 00 18 00 50 5c 44 41 54 41 5c 48 53 46 44 33 30 5c 41 43 46 44 52 53 20 00 ae 01 06 00 16 00 50 41 43 46 44 52 53 5c 45 51 55 5c 2a 2d 46 44 54 41 43 00 ae 01 22 00 18 00 50 5c 44 41 54 ┆ PFDTAC EQU * P DATA HSFD30 ACFDRS PACFDRS EQU *-FDTAC " P DAT┆
0x2a906…2a956 41 5c 48 53 46 44 33 35 5c 41 43 46 44 50 45 20 00 ae 01 3c 00 16 00 50 41 43 46 44 50 45 5c 45 51 55 5c 2a 2d 46 44 54 41 43 00 ae 01 58 00 18 00 50 5c 44 41 54 41 5c 48 53 46 44 33 38 5c 41 43 46 44 41 43 20 00 ae 01 72 00 16 00 50 41 43 ┆A HSFD35 ACFDPE < PACFDPE EQU *-FDTAC X P DATA HSFD38 ACFDAC r PAC┆
0x2a956…2a9a6 (439, 0, 400) 46 44 41 43 5c 45 51 55 5c 2a 2d 46 44 54 41 43 00 ae 01 8e 00 16 00 50 5c 44 41 54 41 5c 48 53 46 44 34 30 5c 41 43 46 50 52 00 af 00 18 00 16 00 50 41 43 46 44 50 52 5c 45 51 55 5c 2a 2d 46 44 54 41 43 00 af 00 32 00 18 00 50 5c 44 41 54 ┆FDAC EQU *-FDTAC P DATA HSFD40 ACFPR PACFDPR EQU *-FDTAC 2 P DAT┆
0x2a9a6…2a9f6 41 5c 48 53 46 44 39 32 5c 41 43 46 44 4f 4b 20 00 af 00 4c 00 16 00 50 41 43 46 44 4f 4b 5c 45 51 55 5c 2a 2d 46 44 54 41 43 00 af 00 68 00 18 00 50 5c 5c 5c 2e 20 52 45 43 45 49 56 45 20 45 52 52 4f 52 53 20 00 af 00 82 00 18 00 50 5c 44 ┆A HSFD92 ACFDOK L PACFDOK EQU *-FDTAC h P . RECEIVE ERRORS P D┆
0x2a9f6…2aa46 41 54 41 5c 48 53 46 44 38 30 5c 41 43 46 44 52 31 20 00 af 00 9e 00 16 00 50 41 43 46 44 52 31 5c 45 51 55 5c 2a 2d 46 44 54 41 43 00 af 00 ba 00 1e 00 50 5c 44 41 54 41 5c 48 53 46 44 38 31 5c 52 45 43 45 49 56 45 20 45 52 52 4f 52 00 af ┆ATA HSFD80 ACFDR1 PACFDR1 EQU *-FDTAC P DATA HSFD81 RECEIVE ERROR ┆
0x2aa46…2aa96 00 d4 00 16 00 50 41 43 46 44 52 32 5c 45 51 55 5c 2a 2d 46 44 54 41 43 00 af 00 f6 00 14 00 50 5c 5c 5c 2e 20 53 45 4e 44 20 45 52 52 4f 52 53 00 af 01 10 00 18 00 50 5c 44 41 54 41 5c 48 53 46 44 38 32 5c 41 43 46 44 53 31 20 00 af 01 28 ┆ PACFDR2 EQU *-FDTAC P . SEND ERRORS P DATA HSFD82 ACFDS1 (┆
0x2aa96…2aae6 00 16 00 50 41 43 46 44 53 31 5c 45 51 55 5c 2a 2d 46 44 54 41 43 00 af 01 44 00 18 00 50 5c 44 41 54 41 5c 48 53 46 44 38 34 5c 41 43 46 44 53 32 20 00 af 01 5e 00 16 00 50 41 43 46 44 53 32 5c 45 51 55 5c 2a 2d 46 44 54 41 43 00 af 01 7a ┆ PACFDS1 EQU *-FDTAC D P DATA HSFD84 ACFDS2 ^ PACFDS2 EQU *-FDTAC z┆
0x2aae6…2ab36 (440, 0, 400) 00 0a 00 50 5c 45 4a 45 43 54 00 b0 00 04 00 06 00 50 2a 20 00 b0 00 12 00 0e 00 50 2a 5c 41 43 54 49 4f 4e 53 20 00 b0 00 1c 00 06 00 50 2a 20 00 b0 00 2e 00 16 00 50 48 53 46 44 33 30 5c 45 51 55 5c 2a 5c 52 45 53 45 54 00 b0 00 38 00 34 ┆ P EJECT P* P* ACTIONS P* . PHSFD30 EQU * RESET 8 4┆
0x2ab36…2ab86 00 50 5c 43 46 5c 41 31 34 2c 53 53 55 53 35 39 5c 53 41 56 45 20 52 45 47 53 20 46 4f 52 20 53 45 53 53 49 4f 4e 20 41 52 45 41 20 52 45 53 45 54 20 00 b0 00 52 00 32 00 50 5c 43 46 5c 41 31 34 2c 48 53 43 52 53 54 5c 52 45 53 45 54 20 53 ┆ P CF A14,SSUS59 SAVE REGS FOR SESSION AREA RESET R 2 P CF A14,HSCRST RESET S┆
0x2ab86…2abd6 45 53 53 49 4f 4e 20 41 52 45 41 20 2b 52 53 50 28 43 4c 45 41 52 29 20 00 b0 00 8a 00 1c 00 50 5c 43 46 5c 41 31 34 2c 53 53 55 52 35 39 5c 4c 4f 41 44 20 52 45 47 53 00 b0 00 c0 00 20 00 50 5c 4c 44 4b 5c 41 35 2c 53 43 3a 46 52 53 5c 53 ┆ESSION AREA +RSP(CLEAR) P CF A14,SSUR59 LOAD REGS P LDK A5,SC:FRS S┆
0x2abd6…2ac26 54 41 54 55 53 20 52 45 53 45 54 20 00 b0 00 e0 00 10 00 50 5c 52 46 5c 48 53 46 44 39 30 5c 20 00 b0 01 04 00 20 00 50 48 53 46 44 33 35 5c 45 51 55 5c 2a 5c 50 45 4e 44 49 4e 47 20 41 43 54 49 56 45 20 00 b0 01 18 00 28 00 50 5c 4c 44 4b ┆TATUS RESET P RF HSFD90 PHSFD35 EQU * PENDING ACTIVE ( P LDK┆
0x2ac26…2ac76 5c 41 35 2c 53 43 3a 46 50 45 5c 53 54 41 54 55 53 20 50 45 4e 44 49 4e 47 20 41 43 54 49 56 45 00 b0 01 3c 00 0e 00 50 5c 52 46 5c 48 53 46 44 39 30 00 b0 01 68 00 10 00 50 48 53 46 44 33 38 5c 45 51 55 5c 2a 00 b0 01 7a 00 20 00 50 5c 4c ┆ A5,SC:FPE STATUS PENDING ACTIVE < P RF HSFD90 h PHSFD38 EQU * z P L┆
0x2ac76…2acc6 (441, 0, 400) 44 4b 5c 41 35 2c 53 43 3a 46 41 43 5c 53 54 41 54 55 53 20 41 43 54 49 56 45 00 b0 01 8e 00 0e 00 50 5c 52 46 5c 48 53 46 44 39 30 00 b1 00 22 00 1e 00 50 48 53 46 44 34 30 5c 45 51 55 5c 2a 5c 50 45 4e 44 49 4e 47 20 52 45 53 45 54 00 b1 ┆DK A5,SC:FAC STATUS ACTIVE P RF HSFD90 " PHSFD40 EQU * PENDING RESET ┆
0x2acc6…2ad16 00 34 00 28 00 50 5c 4c 44 4b 5c 41 35 2c 53 43 3a 46 50 52 5c 53 54 41 54 55 53 20 50 45 4e 44 49 4e 47 20 52 45 53 45 54 20 00 b1 00 56 00 0e 00 50 5c 52 46 5c 48 53 46 44 39 30 00 b1 00 82 00 06 00 50 2a 20 00 b1 00 94 00 06 00 50 2a 20 ┆ 4 ( P LDK A5,SC:FPR STATUS PENDING RESET V P RF HSFD90 P* P* ┆
0x2ad16…2ad66 00 b1 00 9e 00 1e 00 50 48 53 46 44 38 30 5c 45 51 55 5c 2a 5c 52 45 43 45 49 56 45 20 45 52 52 4f 52 00 b1 00 a8 00 2e 00 50 5c 4c 44 4b 5c 41 31 2c 53 3a 43 4d 44 49 5c 53 4e 43 3d 30 38 30 39 20 4d 4f 44 45 20 49 4e 43 4f 4e 53 49 53 54 ┆ PHSFD80 EQU * RECEIVE ERROR . P LDK A1,S:CMDI SNC=0809 MODE INCONSIST┆
0x2ad66…2adb6 41 4e 43 59 00 b1 00 ca 00 0e 00 50 5c 52 46 5c 48 53 46 44 39 35 00 b1 00 fc 00 1e 00 50 48 53 46 44 38 31 5c 45 51 55 5c 2a 5c 52 45 43 45 49 56 45 20 45 52 52 4f 52 00 b1 01 0e 00 32 00 50 5c 4c 44 4b 5c 41 31 2c 53 3a 43 44 54 4e 5c 53 ┆ANCY P RF HSFD95 PHSFD81 EQU * RECEIVE ERROR 2 P LDK A1,S:CDTN S┆
0x2adb6…2ae06 4e 43 3d 32 30 30 37 20 44 41 54 41 20 54 52 41 46 46 49 43 20 4e 4f 54 20 52 45 53 45 54 00 b1 01 30 00 0e 00 50 5c 52 46 5c 48 53 46 53 39 35 00 b1 01 66 00 1c 00 50 48 53 46 44 38 32 5c 45 51 55 5c 2a 5c 53 45 4e 44 20 45 52 52 4f 52 20 ┆NC=2007 DATA TRAFFIC NOT RESET 0 P RF HSFS95 f PHSFD82 EQU * SEND ERROR ┆
0x2ae06…2ae56 (442, 0, 398) 00 b1 01 78 00 2a 00 50 5c 4c 44 4b 5c 41 31 2c 52 3a 43 4d 44 49 5c 52 43 3d 20 4d 4f 44 45 20 49 4e 43 4f 4e 53 49 53 54 41 4e 43 59 20 00 b2 00 08 00 0e 00 50 5c 52 46 5c 48 53 46 44 39 35 00 b2 00 36 00 1c 00 50 48 53 46 44 38 34 5c 45 ┆ x * P LDK A1,R:CMDI RC= MODE INCONSISTANCY P RF HSFD95 6 PHSFD84 E┆
0x2ae56…2aea6 51 55 5c 2a 5c 53 45 4e 44 20 45 52 52 4f 52 20 00 b2 00 48 00 2a 00 50 5c 4c 44 4b 5c 41 31 2c 52 3a 43 44 54 52 5c 52 43 3d 20 44 41 54 41 20 54 52 41 46 46 49 43 20 52 45 53 45 54 20 00 b2 00 68 00 0e 00 50 5c 52 46 5c 48 53 46 44 39 35 ┆QU * SEND ERROR H * P LDK A1,R:CDTR RC= DATA TRAFFIC RESET h P RF HSFD95┆
0x2aea6…2aef6 00 b2 00 96 00 0a 00 50 5c 45 4a 45 43 54 00 b2 00 a8 00 06 00 50 2a 20 00 b2 00 b6 00 06 00 50 2a 20 00 b2 00 c0 00 14 00 50 2a 5c 55 50 44 41 54 45 20 46 4d 53 20 46 44 54 00 b2 00 ca 00 06 00 50 2a 20 00 b2 00 e2 00 10 00 50 48 53 46 44 ┆ P EJECT P* P* P* UPDATE FMS FDT P* PHSFD┆
0x2aef6…2af46 39 30 5c 45 51 55 5c 2a 00 b2 00 ec 00 2c 00 50 5c 41 4e 4b 4c 5c 41 36 2c 4d 3a 46 46 46 43 5c 43 4c 45 41 4e 20 43 55 52 52 45 4e 54 20 46 44 54 20 53 54 41 54 45 20 00 b2 01 00 00 18 00 50 5c 4f 52 52 5c 41 36 2c 41 35 5c 4e 45 57 20 53 ┆90 EQU * , P ANKL A6,M:FFFC CLEAN CURRENT FDT STATE P ORR A6,A5 NEW S┆
0x2af46…2af94 54 41 54 45 00 b2 01 30 00 10 00 50 48 53 46 44 39 32 5c 45 51 55 5c 2a 00 b2 01 4c 00 1a 00 50 5c 4c 44 4b 5c 41 31 2c 30 5c 43 4f 4e 44 20 52 45 47 20 3d 5a 20 00 b2 01 60 00 10 00 50 48 53 46 44 39 35 5c 45 51 55 5c 2a 00 b2 01 7e ┆TATE 0 PHSFD92 EQU * L P LDK A1,0 COND REG =Z ` PHSFD95 EQU * ~┆
0x2af94…2afe4 (443, 0, 400) 00 14 00 50 5c 41 44 4b 4c 5c 41 31 34 2c 42 59 54 45 34 20 00 b3 00 04 00 18 00 50 5c 53 55 52 5c 41 31 2c 41 31 5c 2b 2b 2b 2b 20 52 45 50 4c 00 b3 00 1c 00 22 00 50 5c 41 42 52 2a 5c 41 31 34 5c 52 45 55 54 52 4e 20 57 49 54 48 20 43 4f ┆ P ADKL A14,BYTE4 P SUR A1,A1 ++++ REPL " P ABR* A14 REUTRN WITH CO┆
0x2afe4…2b034 4e 44 20 53 45 54 00 b3 00 38 00 0a 00 50 5c 45 4a 45 43 54 00 b3 00 5e 00 54 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ND SET 8 P EJECT ^ T P****************************************************┆
0x2b034…2b084 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 b3 00 6c 00 06 00 50 2a 20 00 b3 00 c4 00 16 00 50 2a 5c 4e 41 4d 45 5c 44 45 53 43 52 49 50 54 49 4f 4e 00 b3 00 ce 00 38 00 50 2a 5c 48 53 46 53 54 53 ┆**************************** l P* P* NAME DESCRIPTION 8 P* HSFSTS┆
0x2b084…2b0d4 5c 54 43 20 46 53 4d 20 46 4f 52 20 4d 45 53 53 41 47 45 20 53 45 51 55 45 4e 43 45 20 4e 55 4d 42 45 52 53 20 52 45 53 59 4e 43 20 00 b3 00 e8 00 38 00 50 2a 5c 5c 43 41 4c 4c 45 44 20 46 52 4f 4d 20 48 53 53 43 52 20 41 4e 44 20 48 53 53 ┆ TC FSM FOR MESSAGE SEQUENCE NUMBERS RESYNC 8 P* CALLED FROM HSSCR AND HSS┆
0x2b0d4…2b124 43 53 20 46 4f 52 20 43 48 45 43 4b 20 41 4e 44 20 55 50 44 41 54 45 20 00 b3 01 24 00 06 00 50 2a 20 00 b3 01 60 00 06 00 50 2a 20 00 b3 01 6a 00 54 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆CS FOR CHECK AND UPDATE $ P* ` P* j T P****************************┆
0x2b124…2b174 (444, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 b3 01 74 00 0a 00 50 5c 45 4a 45 43 54 00 b4 00 3c 00 10 00 50 48 53 46 53 54 53 ┆**************************************************** t P EJECT < PHSFSTS┆
0x2b174…2b1c4 5c 45 51 55 5c 2a 00 b4 00 4a 00 12 00 50 5c 5c 5c 2b 2b 2b 2b 2b 2b 20 41 44 44 44 00 b4 00 5e 00 14 00 50 5c 41 44 4b 4c 5c 41 31 34 2c 42 59 54 45 34 20 00 b4 00 74 00 1a 00 50 5c 53 55 52 5c 41 31 2c 41 31 5c 2b 2b 2b 2b 52 45 50 4c 41 ┆ EQU * J P ++++++ ADDD ^ P ADKL A14,BYTE4 t P SUR A1,A1 ++++REPLA┆
0x2b1c4…2b214 43 45 00 b4 00 8c 00 30 00 50 5c 41 42 52 2a 5c 41 31 34 5c 52 45 54 55 52 4e 20 54 4f 20 43 41 4c 4c 45 52 20 57 49 54 48 20 43 4f 4e 44 20 52 45 47 20 53 45 54 00 b4 00 aa 00 0a 00 50 5c 45 4a 45 43 54 00 b4 00 de 00 54 00 50 2a 2a 2a 2a ┆CE 0 P ABR* A14 RETURN TO CALLER WITH COND REG SET P EJECT T P****┆
0x2b214…2b264 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 b4 00 ec ┆**************************************************************************** ┆
0x2b264…2b2b4 00 06 00 50 2a 20 00 b4 01 44 00 16 00 50 2a 5c 4e 41 4d 45 5c 44 45 53 43 52 49 50 54 49 4f 4e 00 b4 01 4e 00 28 00 50 2a 5c 48 53 46 52 51 52 5c 54 43 20 46 53 4d 20 46 4f 52 20 53 45 53 53 49 4f 4e 20 52 45 43 4f 56 45 52 59 00 b4 01 68 ┆ P* D P* NAME DESCRIPTION N ( P* HSFRQR TC FSM FOR SESSION RECOVERY h┆