|
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: 176148 (0x2b014)
Notes: pts_type(SC)
Names: »SYSLDM.SC«
└─⟦7b35573c9⟧ Bits:30009690 Philips computer tape "600402"
└─⟦this⟧ »M:AF/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 1 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 01 SUMR EQU 01 SALCUZ EQU 00 ASCU4Z EQU 00 FT80 EQU 00 PLCL EQU 00 PLCR EQU 00 VIDEO EQU 00 TEDVCL EQU 01 SPDVCL EQU 01 NOEXMB EQU X:K FM EQU 00 DC EQU 00 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 1 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 01 «, t00=0x000d, t01=0x0140}
0x0159a…015ae Head {h00=0x0010, h01=0x0050, text=»SUMR EQU 01 «, t00=0x000d, t01=0x0154}
0x015ae…015c4 Head {h00=0x0012, h01=0x0050, text=»SALCUZ EQU 00 «, t00=0x000d, t01=0x0168}
0x015c4…015da Head {h00=0x0012, h01=0x0050, text=»ASCU4Z EQU 00 «, t00=0x000d, t01=0x017e}
0x015da…015ee (14, 0, 400) Head {h00=0x0010, h01=0x0050, text=»FT80 EQU 00 «, t00=0x000e, t01=0x0004}
0x015ee…01602 Head {h00=0x0010, h01=0x0050, text=»PLCL EQU 00 «, t00=0x000e, t01=0x0018}
0x01602…01616 Head {h00=0x0010, h01=0x0050, text=»PLCR EQU 00 «, t00=0x000e, t01=0x002c}
0x01616…0162a Head {h00=0x0010, h01=0x0050, text=»VIDEO EQU 00«, t00=0x000e, t01=0x0040}
0x0162a…01640 Head {h00=0x0012, h01=0x0050, text=»TEDVCL EQU 01 «, t00=0x000e, t01=0x0054}
0x01640…01656 Head {h00=0x0012, h01=0x0050, text=»SPDVCL EQU 01 «, t00=0x000e, t01=0x006a}
0x01656…0166c Head {h00=0x0012, h01=0x0050, text=»NOEXMB EQU X:K«, t00=0x000e, t01=0x0080}
0x0166c…0167e Head {h00=0x000e, h01=0x0050, text=»FM EQU 00 «, t00=0x000e, t01=0x0096}
0x0167e…01690 Head {h00=0x000e, h01=0x0050, text=»DC EQU 00 «, t00=0x000e, t01=0x00a8}
0x01690…0169e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00ba}
0x0169e…016a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c8}
0x016a8…016d6 Head {h00=0x002a, h01=0x0050, text=»* COMMON DISPLACEMENTS AND CONSTANTS «, t00=0x000e, t01=0x00d2}
0x016d6…016e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0100}
0x016e0…01712 Head {h00=0x002e, h01=0x0050, text=»ACBLEN EQU 26 APPL.CONTROL BLOCK LENGTH =3«, t00=0x000e, t01=0x010a}
0x01712…01746 Head {h00=0x0030, h01=0x0050, text=»APLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE«, t00=0x000e, t01=0x013c}
0x01746…0176e Head {h00=0x0024, h01=0x0050, text=»APPLNO EQU 18 APPLICATION NUMBER«, t00=0x000e, t01=0x0170}
0x0176e…0179a Head {h00=0x0028, h01=0x0050, text=»BUFSIZ EQU 14 TEMPORARY BUFFER SIZE «, t00=0x000f, t01=0x0008}
0x0179a…017cc Head {h00=0x002e, h01=0x0050, text=»CONLEN EQU 0 LENGTH OF CONFIGURATION DATA «, t00=0x000f, t01=0x0034}
0x017cc…017fc Head {h00=0x002c, h01=0x0050, text=»CONSTA EQU 2 START OF CONFIGURATION DATA«, t00=0x000f, t01=0x0066}
0x017fc…01828 Head {h00=0x0028, h01=0x0050, text=»DATEND EQU 34 END OF DDIV PROTOTYPE «, t00=0x000f, t01=0x0096}
0x01828…01866 Head {h00=0x003a, h01=0x0050, text=»FSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER «, t00=0x000f, t01=0x00c2}
0x01866…01894 Head {h00=0x002a, h01=0x0050, text=»FSTPAG EQU 22 1ST FREE PAGE (PHYSICAL)«, t00=0x000f, t01=0x0100}
0x01894…018c4 Head {h00=0x002c, h01=0x0050, text=»FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER «, t00=0x000f, t01=0x012e}
0x018c4…018fe Head {h00=0x0036, h01=0x0050, text=»LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART«, t00=0x000f, t01=0x015e}
0x018fe…0192a Head {h00=0x0028, h01=0x0050, text=»MAPLEN EQU 30 LENGTH OF AREA TO MAP «, t00=0x0010, t01=0x0008}
0x0192a…01958 Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU 36 2ND MMU TABLE WORK AREA «, t00=0x0010, t01=0x0034}
0x01958…01984 Head {h00=0x0028, h01=0x0050, text=»MMTO EQU 38 1:ST MMU TABLE WORK AREA«, t00=0x0010, t01=0x0062}
0x01984…019ac Head {h00=0x0024, h01=0x0050, text=»M:REL EQU 16 RELOCATION CONSTANT«, t00=0x0010, t01=0x008e}
0x019ac…019dc Head {h00=0x002c, h01=0x0050, text=»SYSBUF EQU 28 START OF TEMPORARY BUFFER «, t00=0x0010, t01=0x00b6}
0x019dc…01a12 Head {h00=0x0032, h01=0x0050, text=»SWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) «, t00=0x0010, t01=0x00e6}
0x01a12…01a46 Head {h00=0x0030, h01=0x0050, text=»SWBFSE EQU 8 SWB-FILE END ADDRESS (2 WORDS) «, t00=0x0010, t01=0x011c}
0x01a46…01a72 Head {h00=0x0028, h01=0x0050, text=»TTAB EQU 32 WORK AREA FOR MMU TABLE «, t00=0x0010, t01=0x0150}
0x01a72…01a9a Head {h00=0x0024, h01=0x0050, text=»COM01 EQU 40 COMMON SAVE AREA 1 «, t00=0x0010, t01=0x017c}
0x01a9a…01ac2 Head {h00=0x0024, h01=0x0050, text=»COM02 EQU 42 COMMON SAVE AREA 2 «, t00=0x0011, t01=0x0014}
0x01ac2…01aea Head {h00=0x0024, h01=0x0050, text=»COM03 EQU 44 COMMON SAVE AREA 3 «, t00=0x0011, t01=0x003c}
0x01aea…01b18 Head {h00=0x002a, h01=0x0050, text=»TOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS«, t00=0x0011, t01=0x0064}
0x01b18…01b48 Head {h00=0x002c, h01=0x0050, text=»SWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG«, t00=0x0011, t01=0x0092}
0x01b48…01b70 Head {h00=0x0024, h01=0x0050, text=»COM04 EQU 50 COMMON SAVE AREA 4 «, t00=0x0011, t01=0x00c2}
0x01b70…01b9c Head {h00=0x0028, h01=0x0050, text=»DCBLK EQU 54 START OF DC CONF. DATA «, t00=0x0011, t01=0x00ea}
0x01b9c…01baa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0116}
0x01baa…01bb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0124}
0x01bb4…01be0 Head {h00=0x0028, h01=0x0050, text=»* DISPLACEMENT IN LOCAL STACK AREA «, t00=0x0011, t01=0x012e}
0x01be0…01bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x015a}
0x01bea…01c0e Head {h00=0x0020, h01=0x0050, text=»TCLA EQU 0 ADDRESS TO TCLASS«, t00=0x0011, t01=0x0164}
0x01c0e…01c32 Head {h00=0x0020, h01=0x0050, text=»SCLA EQU 2 ADDRESS TO SCLASS«, t00=0x0011, t01=0x0188}
0x01c32…01c5c Head {h00=0x0026, h01=0x0050, text=»CUTENT EQU 4 FIRST USER TASK ENTRY«, t00=0x0012, t01=0x001c}
0x01c5c…01c88 Head {h00=0x0028, h01=0x0050, text=»FWTSIZ EQU 6 FWT AREA SIZE IN WORDS «, t00=0x0012, t01=0x0046}
0x01c88…01cb8 Head {h00=0x002c, h01=0x0050, text=»APCTAB EQU 8 CURRENT APPL CONTROL BLOCK «, t00=0x0012, t01=0x0072}
0x01cb8…01ce6 Head {h00=0x002a, h01=0x0050, text=»SFASAV EQU 10 SAVE START OF FREE AREA «, t00=0x0012, t01=0x00a2}
0x01ce6…01d14 Head {h00=0x002a, h01=0x0050, text=»NBRTSK EQU 12 NUMBER OF TASKS IN CLASS«, t00=0x0012, t01=0x00d0}
0x01d14…01d3e Head {h00=0x0026, h01=0x0050, text=»TASKID EQU 14 TASK IDENTIFICATION «, t00=0x0012, t01=0x00fe}
0x01d3e…01d5c Head {h00=0x001a, h01=0x0050, text=»FWTFLG EQU 16 FWT FLAG«, t00=0x0012, t01=0x0128}
0x01d5c…01d7c Head {h00=0x001c, h01=0x0050, text=»TCLSAV EQU 18 TASK CLASS«, t00=0x0012, t01=0x0146}
0x01d7c…01d9c Head {h00=0x001c, h01=0x0050, text=»TSKLEV EQU 20 TASK LEVEL«, t00=0x0012, t01=0x0166}
0x01d9c…01dc8 Head {h00=0x0028, h01=0x0050, text=»INTTAB EQU 22 TEMP INTTERRUPT TABLE «, t00=0x0012, t01=0x0186}
0x01dc8…01df0 Head {h00=0x0024, h01=0x0050, text=»FWTSTA EQU 24 START OF FWT AREA «, t00=0x0013, t01=0x0022}
0x01df0…01e20 Head {h00=0x002c, h01=0x0050, text=»LIMIT EQU 26 CURRENT END OF SYSTEM AREA «, t00=0x0013, t01=0x004a}
0x01e20…01e4c Head {h00=0x0028, h01=0x0050, text=»NBRCOM EQU 28 NUMBER OF COMMON TDC:S«, t00=0x0013, t01=0x007a}
0x01e4c…01e6a Head {h00=0x001a, h01=0x0050, text=»CLASID EQU 30 CLASS ID«, t00=0x0013, t01=0x00a6}
0x01e6a…01e90 Head {h00=0x0022, h01=0x0050, text=»CONTYP EQU 32 CONNECTION TYPE «, t00=0x0013, t01=0x00c4}
0x01e90…01ebc Head {h00=0x0028, h01=0x0050, text=»LCNBR EQU 34 LINE CONNECTION NUMBER «, t00=0x0013, t01=0x00ea}
0x01ebc…01ede Head {h00=0x001e, h01=0x0050, text=»CLANBR EQU 36 CLASS NUMBER«, t00=0x0013, t01=0x0116}
0x01ede…01f08 Head {h00=0x0026, h01=0x0050, text=»MAXSGM EQU 38 MAXIMUM SEGMENT SIZE«, t00=0x0013, t01=0x0138}
0x01f08…01f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0162}
0x01f12…01f32 Head {h00=0x001c, h01=0x0050, text=»WRK1 EQU 42 WORK AREA 1 «, t00=0x0013, t01=0x016c}
0x01f32…01f52 Head {h00=0x001c, h01=0x0050, text=»WRK2 EQU 44 WORK AREA 2 «, t00=0x0013, t01=0x018c}
0x01f52…01f72 Head {h00=0x001c, h01=0x0050, text=»WRK3 EQU 46 WORK AREA 3 «, t00=0x0014, t01=0x001c}
0x01f72…01f92 Head {h00=0x001c, h01=0x0050, text=»WRK4 EQU 48 WORK AREA 4 «, t00=0x0014, t01=0x003c}
0x01f92…01fb8 Head {h00=0x0022, h01=0x0050, text=»BRDTAB EQU 50 BOARD CONF TABLE«, t00=0x0014, t01=0x005c}
0x01fb8…01fe8 Head {h00=0x002c, h01=0x0050, text=»LCDSTA EQU 52 CONFIGURATION DATA POINTER«, t00=0x0014, t01=0x0082}
0x01fe8…0201e Head {h00=0x0032, h01=0x0050, text=»NBRSDC EQU 54 NUMBER OF SPECIAL DEVICE CLASSES«, t00=0x0014, t01=0x00b2}
0x0201e…02056 Head {h00=0x0034, h01=0x0050, text=»NBRTDC EQU 56 NUMBER OF TERMINAL DEVICE CLASSES «, t00=0x0014, t01=0x00e8}
0x02056…02080 Head {h00=0x0026, h01=0x0050, text=»APLNO EQU 58 NUMBR OF APPLICATIONS«, t00=0x0014, t01=0x0120}
0x02080…020a8 Head {h00=0x0024, h01=0x0050, text=»ECHTAB EQU 60 ECHO TABLE ADDRESS«, t00=0x0014, t01=0x014a}
0x020a8…020ce Head {h00=0x0022, h01=0x0050, text=»SGMCNT EQU 62 SEGMENT COUNTER «, t00=0x0014, t01=0x0172}
0x020ce…020fc Head {h00=0x002a, h01=0x0050, text=»NUMDTE EQU 64 NUMBER OF DTE:S DEFINED «, t00=0x0015, t01=0x0008}
0x020fc…02126 Head {h00=0x0026, h01=0x0050, text=»DTENAM EQU 66 SDTE IDENTIFICATION «, t00=0x0015, t01=0x0036}
0x02126…0214e Head {h00=0x0024, h01=0x0050, text=»DTETYP EQU 68 TYPE OF CONNECTION«, t00=0x0015, t01=0x0060}
0x0214e…02186 Head {h00=0x0034, h01=0x0050, text=»NASTRT EQU 70 START OF NETW. ADDR. IN CONF. DATA«, t00=0x0015, t01=0x0088}
0x02186…021b4 Head {h00=0x002a, h01=0x0050, text=»NALNG EQU 72 LENGTH OF NETWORK ADDRESS«, t00=0x0015, t01=0x00c0}
0x021b4…021e4 Head {h00=0x002c, h01=0x0050, text=»DTENSA EQU 74 NO OF SUBADDRESSES DEFINED«, t00=0x0015, t01=0x00ee}
0x021e4…0221c Head {h00=0x0034, h01=0x0050, text=»DTECOP EQU 76 NO OF COPIES OF CURRENT DTE BLOCK «, t00=0x0015, t01=0x011e}
0x0221c…0224c Head {h00=0x002c, h01=0x0050, text=»NSAADR EQU 78 START OF SUBADDRESSES(DC) «, t00=0x0015, t01=0x0156}
0x0224c…02288 Head {h00=0x0038, h01=0x0050, text=»APCSTA EQU APCTAB CURRENT APPLICATION CONTROL BLOCK «, t00=0x0015, t01=0x0186}
0x02288…022c0 Head {h00=0x0034, h01=0x0050, text=»SCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK «, t00=0x0016, t01=0x0032}
0x022c0…022f6 Head {h00=0x0032, h01=0x0050, text=»EXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK«, t00=0x0016, t01=0x006a}
0x022f6…02326 Head {h00=0x002c, h01=0x0050, text=»NBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS «, t00=0x0016, t01=0x00a0}
0x02326…02358 Head {h00=0x002e, h01=0x0050, text=»SWBBLK EQU FWTFLG START OF SWB CONF. DATA «, t00=0x0016, t01=0x00d0}
0x02358…02386 Head {h00=0x002a, h01=0x0050, text=»SWBNAM EQU FWTSTA ADDRESS TO SWB NAME «, t00=0x0016, t01=0x0102}
0x02386…023b0 Head {h00=0x0026, h01=0x0050, text=»SWBTBL EQU NBRTSK LENGTH OF S:BTAB«, t00=0x0016, t01=0x0130}
0x023b0…023da Head {h00=0x0026, h01=0x0050, text=»TCTEND EQU NBRTSK LAST TCTAB ENTRY«, t00=0x0016, t01=0x015a}
0x023da…02404 Head {h00=0x0026, h01=0x0050, text=»SWBCNT EQU TASKID NUMBER OF SWB:S «, t00=0x0016, t01=0x0184}
0x02404…02412 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x001e}
0x02412…0241c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x002c}
0x0241c…02450 Head {h00=0x0030, h01=0x0050, text=»* DISPLACEMENT IN APPLICATION CONTROL TABLE«, t00=0x0017, t01=0x0036}
0x02450…0245a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x006a}
0x0245a…0248e Head {h00=0x0030, h01=0x0050, text=»APLREL EQU 18 APPLICATION RELOCATION BASE =6«, t00=0x0017, t01=0x0074}
0x0248e…024be Head {h00=0x002c, h01=0x0050, text=»APLIOE EQU 0 APPLICATION RESTART ADDRESS«, t00=0x0017, t01=0x00a8}
0x024be…024ec Head {h00=0x002a, h01=0x0050, text=»APLLAC EQU 14 APPLICATION LOAD ADDRESS«, t00=0x0017, t01=0x00d8}
0x024ec…02516 Head {h00=0x0026, h01=0x0050, text=»APLLAP EQU 12 LOGICAL PAGE ADDRESS«, t00=0x0017, t01=0x0106}
0x02516…02548 Head {h00=0x002e, h01=0x0050, text=»APLLDA EQU 0 APPL. LOAD ADDRESS (PHYSICAL)«, t00=0x0017, t01=0x0130}
0x02548…02572 Head {h00=0x0026, h01=0x0050, text=»APLMMC EQU 10 APPL MMU START ENTRY«, t00=0x0017, t01=0x0162}
0x02572…0259e Head {h00=0x0028, h01=0x0050, text=»APLMMP EQU 8 SEGMENT START MMU ENTRY«, t00=0x0017, t01=0x018c}
0x0259e…025d0 Head {h00=0x002e, h01=0x0050, text=»APLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT«, t00=0x0018, t01=0x0028}
0x025d0…02602 Head {h00=0x002e, h01=0x0050, text=»APLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU«, t00=0x0018, t01=0x005a}
0x02602…02628 Head {h00=0x0022, h01=0x0050, text=»APLSWB EQU 2 SWB TABLE ADDRESS«, t00=0x0018, t01=0x008c}
0x02628…02658 Head {h00=0x002c, h01=0x0050, text=»APLSTA EQU 16 APPL PROGRAM START ADDRESS«, t00=0x0018, t01=0x00b2}
0x02658…0267e Head {h00=0x0022, h01=0x0050, text=»APLTYP EQU 8 APPLICATION TYPE «, t00=0x0018, t01=0x00e2}
0x0267e…026ba Head {h00=0x0038, h01=0x0050, text=»APLADA EQU 22 APPLICATION DISC ADDRESS (2 WORDS) =3 «, t00=0x0018, t01=0x0108}
0x026ba…026ec Head {h00=0x002e, h01=0x0050, text=»APLPSZ EQU 20 APPLICATION SEGMENT SIZE =3 «, t00=0x0018, t01=0x0144}
0x026ec…026fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0176}
0x026fa…02706 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0018, t01=0x0184}
0x02706…02710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0190}
0x02710…02724 Head {h00=0x0010, h01=0x0050, text=»* CONSTANTS«, t00=0x0019, t01=0x000a}
0x02724…0272e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x001e}
0x0272e…0275c Head {h00=0x002a, h01=0x0050, text=»S:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS«, t00=0x0019, t01=0x0028}
0x0275c…0277e Head {h00=0x001e, h01=0x0050, text=»SWBLEN EQU 4 LENGTH OF SWB«, t00=0x0019, t01=0x0056}
0x0277e…027aa Head {h00=0x0028, h01=0x0050, text=»SWBSEC EQU 6 DISPL. TO SECTOR LENGTH«, t00=0x0019, t01=0x0078}
0x027aa…027de Head {h00=0x0030, h01=0x0050, text=»UP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB«, t00=0x0019, t01=0x00a4}
0x027de…02802 Head {h00=0x0020, h01=0x0050, text=»UPNAME EQU 4 PROTOTYPE NAME «, t00=0x0019, t01=0x00d8}
0x02802…0282a Head {h00=0x0024, h01=0x0050, text=»WBLEN EQU -4 LENGTH OF WORKBLOCK«, t00=0x0019, t01=0x00fc}
0x0282a…02836 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0019, t01=0x0124}
0x02836…02842 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0019, t01=0x0130}
0x02842…0286a Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0019, t01=0x013c}
0x0286a…02896 Head {h00=0x0028, h01=0x0050, text=»* DISPLACEMENT IN CONFIGURATION DATA«, t00=0x0019, t01=0x0164}
0x02896…028be Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0019, t01=0x0190}
0x028be…028ca Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001a, t01=0x0028}
0x028ca…028ea Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x001a, t01=0x0034}
0x028ea…0290c Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x001a, t01=0x0054}
0x0290c…02938 Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x001a, t01=0x0076}
0x02938…02968 Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x001a, t01=0x00a2}
0x02968…02998 Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x001a, t01=0x00d2}
0x02998…029c0 Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x001a, t01=0x0102}
0x029c0…029fe Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x001a, t01=0x012a}
0x029fe…02a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0168}
0x02a08…02a32 Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 FIRST TERM DEF «, t00=0x001a, t01=0x0172}
0x02a32…02a5a Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x001b, t01=0x000c}
0x02a5a…02a7c Head {h00=0x001e, h01=0x0050, text=»TLC EQU 7 LINE CONNECTION «, t00=0x001b, t01=0x0034}
0x02a7c…02aa8 Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x001b, t01=0x0056}
0x02aa8…02ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0082}
0x02ab2…02ae0 Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x001b, t01=0x008c}
0x02ae0…02aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ba}
0x02aea…02b0e Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x001b, t01=0x00c4}
0x02b0e…02b18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00e8}
0x02b18…02b3a Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x001b, t01=0x00f2}
0x02b3a…02b74 Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x001b, t01=0x0114}
0x02b74…02ba0 Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 FIRST SDC-RECORD «, t00=0x001b, t01=0x014e}
0x02ba0…02baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x017a}
0x02baa…02bb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0184}
0x02bb4…02bde Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x001b, t01=0x018e}
0x02bde…02be8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0028}
0x02be8…02c0a Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x001c, t01=0x0032}
0x02c0a…02c3a Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x001c, t01=0x0054}
0x02c3a…02c44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0084}
0x02c44…02c70 Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 FIRST UDB-RECORD «, t00=0x001c, t01=0x008e}
0x02c70…02c90 Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x001c, t01=0x00ba}
0x02c90…02cb6 Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x001c, t01=0x00da}
0x02cb6…02ce8 Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x001c, t01=0x0100}
0x02ce8…02cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0132}
0x02cf2…02d20 Head {h00=0x002a, h01=0x0050, text=»* DATA COMMUNICATION DEFINITION BLOCK«, t00=0x001c, t01=0x013c}
0x02d20…02d2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x016a}
0x02d2a…02d52 Head {h00=0x0024, h01=0x0050, text=»IDLIM EQU 4 ID DELIMITER OFFSET «, t00=0x001c, t01=0x0174}
0x02d52…02d7c Head {h00=0x0026, h01=0x0050, text=»TYPOFS EQU 7 START OF TYPE RECORD «, t00=0x001d, t01=0x000c}
0x02d7c…02dac Head {h00=0x002c, h01=0x0050, text=»NANSA EQU 2 NA-NSA RECORD QUALIFIER POS.«, t00=0x001d, t01=0x0036}
0x02dac…02dd2 Head {h00=0x0022, h01=0x0050, text=»NAOFS EQU 3 START OF NA NUMBER«, t00=0x001d, t01=0x0066}
0x02dd2…02dfa Head {h00=0x0024, h01=0x0050, text=»NSAOFS EQU 4 START OF NSA RECORD«, t00=0x001d, t01=0x008c}
0x02dfa…02e24 Head {h00=0x0026, h01=0x0050, text=»DTEFIX EQU 8 FIX PART OF DTE BLOCK«, t00=0x001d, t01=0x00b4}
0x02e24…02e32 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00de}
0x02e32…02e4a Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x001d, t01=0x00ec}
0x02e4a…02e62 Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x001d, t01=0x0104}
0x02e62…02e7a Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x001d, t01=0x011c}
0x02e7a…02e9c Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x001d, t01=0x0134}
0x02e9c…02ea4 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0156}
0x02ea4…02ed2 Head {h00=0x002a, h01=0x0050, text=»LMP1 EQU /400 SYSLOD RUNS LAMP 1 CODE «, t00=0x001d, t01=0x015e}
0x02ed2…02ef0 Head {h00=0x001a, h01=0x0050, text=»LMP2 EQU /200 NOT USED«, t00=0x001d, t01=0x018c}
0x02ef0…02f16 Head {h00=0x0022, h01=0x0050, text=»LMP3 EQU /100 MEMORY OVERFLOW «, t00=0x001e, t01=0x001a}
0x02f16…02f46 Head {h00=0x002c, h01=0x0050, text=»LMP4 EQU /80 ERROR IN CONFIGURATION DATA«, t00=0x001e, t01=0x0040}
0x02f46…02f64 Head {h00=0x001a, h01=0x0050, text=»LMP5 EQU /40 NOT USED «, t00=0x001e, t01=0x0070}
0x02f64…02f82 Head {h00=0x001a, h01=0x0050, text=»LMP6 EQU /20 NOT USED «, t00=0x001e, t01=0x008e}
0x02f82…02fa0 Head {h00=0x001a, h01=0x0050, text=»LMP7 EQU /10 NOT USED «, t00=0x001e, t01=0x00ac}
0x02fa0…02fbc Head {h00=0x0018, h01=0x0050, text=»LMP8 EQU 8 NOT USED «, t00=0x001e, t01=0x00ca}
0x02fbc…02fd8 Head {h00=0x0018, h01=0x0050, text=»LMP9 EQU 4 NOT USED «, t00=0x001e, t01=0x00e6}
0x02fd8…02ff4 Head {h00=0x0018, h01=0x0050, text=»LMP10 EQU 2 NOT USED«, t00=0x001e, t01=0x0102}
0x02ff4…03010 Head {h00=0x0018, h01=0x0050, text=»LMP11 EQU 1 NOT USED«, t00=0x001e, t01=0x011e}
0x03010…0301c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001e, t01=0x013a}
0x0301c…03066 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x001e, t01=0x0146}
0x03066…030b0 Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x001e, t01=0x0190}
0x030b0…030fa Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x001f, t01=0x004a}
0x030fa…03144 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x001f, t01=0x0094}
0x03144…0318e Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x001f, t01=0x00de}
0x0318e…0319a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x0128}
0x0319a…031a6 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x0134}
0x031a6…031b2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001f, t01=0x0140}
0x031b2…031d0 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x001f, t01=0x014c}
0x031d0…031de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x016a}
0x031de…031e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0178}
0x031e8…03208 Head {h00=0x001c, h01=0x0050, text=»* MXSTAB DISPLACEMENTS «, t00=0x001f, t01=0x0182}
0x03208…03212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0012}
0x03212…0323a Head {h00=0x0024, h01=0x0050, text=»MXSBL EQU 6 SEGMENT BLOCK LENGTH«, t00=0x0020, t01=0x001c}
0x0323a…03260 Head {h00=0x0022, h01=0x0050, text=»MXNOX EQU 6 NUMBER OF EXTENTS «, t00=0x0020, t01=0x0044}
0x03260…0328e Head {h00=0x002a, h01=0x0050, text=»MX:NOS EQU 8 NUMBER OF SEGMENT TABLES «, t00=0x0020, t01=0x006a}
0x0328e…032be Head {h00=0x002c, h01=0x0050, text=»MX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH«, t00=0x0020, t01=0x0098}
0x032be…032ea Head {h00=0x0028, h01=0x0050, text=»MX:LEV EQU /0031 MONITOR TASK LEVEL «, t00=0x0020, t01=0x00c8}
0x032ea…03314 Head {h00=0x0026, h01=0x0050, text=»MX:LEN EQU 4 MONITOR EXTENT LENGTH«, t00=0x0020, t01=0x00f4}
0x03314…03348 Head {h00=0x0030, h01=0x0050, text=»MX:DA1 EQU 2 MONITOR DISC ADDRESS BITS 0-15 «, t00=0x0020, t01=0x011e}
0x03348…03384 Head {h00=0x0038, h01=0x0050, text=»MX:DA2 EQU MX:DA1+2 MONITOR DISC ADDRESS BITS 16-31 «, t00=0x0020, t01=0x0152}
0x03384…033ba Head {h00=0x0032, h01=0x0050, text=»MX:NOX EQU MX:DA2+2 NUMBER OF MONITOR EXTENTS «, t00=0x0020, t01=0x018e}
0x033ba…033ea Head {h00=0x002c, h01=0x0050, text=»MX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH«, t00=0x0021, t01=0x0034}
0x033ea…0341c Head {h00=0x002e, h01=0x0050, text=»MX:STA EQU 2 MONITOR EXTENT START ADDRESS «, t00=0x0021, t01=0x0064}
0x0341c…0342a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0096}
0x0342a…03434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00a4}
0x03434…0345a Head {h00=0x0022, h01=0x0050, text=»* ***********«, t00=0x0021, t01=0x00ae}
0x0345a…03480 Head {h00=0x0022, h01=0x0050, text=»* * PAGTAB *«, t00=0x0021, t01=0x00d4}
0x03480…034a6 Head {h00=0x0022, h01=0x0050, text=»* ***********«, t00=0x0021, t01=0x00fa}
0x034a6…034b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0120}
0x034b0…034da Head {h00=0x0026, h01=0x0050, text=»PAGQF EQU 0 QUEUE POINTER FORWARD «, t00=0x0021, t01=0x012a}
0x034da…03504 Head {h00=0x0026, h01=0x0050, text=»PAGQB EQU 2 QUEUE POINTER BACKWARD«, t00=0x0021, t01=0x0154}
0x03504…03524 Head {h00=0x001c, h01=0x0050, text=»PAGPA EQU 4 PAGE ADDRESS«, t00=0x0021, t01=0x017e}
0x03524…0354e Head {h00=0x0026, h01=0x0050, text=»PAGSB EQU 6 SEGMENT BLOCK ADDRESS «, t00=0x0022, t01=0x000e}
0x0354e…0355c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0038}
0x0355c…03566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0046}
0x03566…03590 Head {h00=0x0026, h01=0x0050, text=»* *************«, t00=0x0022, t01=0x0050}
0x03590…035ba Head {h00=0x0026, h01=0x0050, text=»* * SEGTAB *«, t00=0x0022, t01=0x007a}
0x035ba…035e4 Head {h00=0x0026, h01=0x0050, text=»* *************«, t00=0x0022, t01=0x00a4}
0x035e4…035ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ce}
0x035ee…03612 Head {h00=0x0020, h01=0x0050, text=»SEGPB EQU 6 SEGMENT POINTER «, t00=0x0022, t01=0x00d8}
0x03612…03638 Head {h00=0x0022, h01=0x0050, text=»SEGSB EQU 6 PAGE BLOCK ADDRESS«, t00=0x0022, t01=0x00fc}
0x03638…03640 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0122}
0x03640…0364e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x012a}
0x0364e…03658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0138}
0x03658…03686 Head {h00=0x002a, h01=0x0050, text=»* ******************* «, t00=0x0022, t01=0x0142}
0x03686…036b4 Head {h00=0x002a, h01=0x0050, text=»* * MISCELLANOUES * «, t00=0x0022, t01=0x0170}
0x036b4…036e2 Head {h00=0x002a, h01=0x0050, text=»* ******************* «, t00=0x0023, t01=0x000e}
0x036e2…036ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x003c}
0x036ec…03702 Head {h00=0x0012, h01=0x0050, text=»BUFLEN EQU -4 «, t00=0x0023, t01=0x0046}
0x03702…03718 Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU -2 «, t00=0x0023, t01=0x005c}
0x03718…0372c Head {h00=0x0010, h01=0x0050, text=»DWTLEN EQU 6«, t00=0x0023, t01=0x0072}
0x0372c…03740 Head {h00=0x0010, h01=0x0050, text=»TDCDD1 EQU 5«, t00=0x0023, t01=0x0086}
0x03740…03754 Head {h00=0x0010, h01=0x0050, text=»TDCDD2 EQU 6«, t00=0x0023, t01=0x009a}
0x03754…03780 Head {h00=0x0028, h01=0x0050, text=»TDCLCN EQU 10 DISP. TO LINE CON. NBR«, t00=0x0023, t01=0x00ae}
0x03780…037a8 Head {h00=0x0024, h01=0x0050, text=»SLL0 EQU /3940 SLL A1,0 CONSTANT«, t00=0x0023, t01=0x00da}
0x037a8…037e4 Head {h00=0x0038, h01=0x0050, text=»NBRDPS EQU 12 NUMBER OF DATA PAGES/TASK (BASIC ONLY)«, t00=0x0023, t01=0x0102}
0x037e4…037f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x013e}
0x037f2…03830 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0023, t01=0x014c}
0x03830…0386e Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0023, t01=0x018a}
0x0386e…038ac Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0024, t01=0x0038}
0x038ac…038ea Head {h00=0x003a, h01=0x0050, text=»* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY *«, t00=0x0024, t01=0x0076}
0x038ea…03928 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0024, t01=0x00b4}
0x03928…03966 Head {h00=0x003a, h01=0x0050, text=»* IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING *«, t00=0x0024, t01=0x00f2}
0x03966…039a4 Head {h00=0x003a, h01=0x0050, text=»* PARAMETERS: *«, t00=0x0024, t01=0x0130}
0x039a4…039e2 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0024, t01=0x016e}
0x039e2…03a20 Head {h00=0x003a, h01=0x0050, text=»* A1 - POINTER TO CURRENT LOCATION OF SYSLDX *«, t00=0x0025, t01=0x001c}
0x03a20…03a5e Head {h00=0x003a, h01=0x0050, text=»* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX *«, t00=0x0025, t01=0x005a}
0x03a5e…03a9c Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0025, t01=0x0098}
0x03a9c…03ada Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0025, t01=0x00d6}
0x03ada…03b18 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0025, t01=0x0114}
0x03b18…03b2c Head {h00=0x0010, h01=0x0050, text=»SYSLDM EQU *«, t00=0x0025, t01=0x0152}
0x03b2c…03b50 Head {h00=0x0020, h01=0x0050, text=» LDR A8,P INIT STACK POINTER«, t00=0x0025, t01=0x0166}
0x03b50…03b80 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,REL+2 RELOCATION ROUTINE ENTRY «, t00=0x0025, t01=0x018a}
0x03b80…03bac Head {h00=0x0028, h01=0x0050, text=» AD A1,STKCOM+M:REL RELOCATE ADDRESS«, t00=0x0026, t01=0x002a}
0x03bac…03bbe Head {h00=0x000e, h01=0x0050, text=» CFR A8,A1«, t00=0x0026, t01=0x0056}
0x03bbe…03be6 Head {h00=0x0024, h01=0x0050, text=» LDKL A11,SYSLOD START OF SYSLOD«, t00=0x0026, t01=0x0068}
0x03be6…03c14 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,TCLASS GET ADDRESS TO TCLASS «, t00=0x0026, t01=0x0090}
0x03c14…03c46 Head {h00=0x002e, h01=0x0050, text=» CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? «, t00=0x0026, t01=0x00be}
0x03c46…03c6e Head {h00=0x0024, h01=0x0050, text=» RF(E) NO:TCL YES:DUMMY TCLASS! «, t00=0x0026, t01=0x00f0}
0x03c6e…03c9e Head {h00=0x002c, h01=0x0050, text=» CALL CHPTRS RELOCATE POINTERS IN TCLASS«, t00=0x0026, t01=0x0118}
0x03c9e…03cda Head {h00=0x0038, h01=0x0050, text=» ST A2,STKEND+TCLA SAVE RELOCATED POINTER TO TCLASS «, t00=0x0026, t01=0x0148}
0x03cda…03d0e Head {h00=0x0030, h01=0x0050, text=»NO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS «, t00=0x0026, t01=0x0184}
0x03d0e…03d3e Head {h00=0x002c, h01=0x0050, text=» CALL CHPTRS RELOCATE POINTERS IN SCLASS«, t00=0x0027, t01=0x0028}
0x03d3e…03d72 Head {h00=0x0030, h01=0x0050, text=» ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS «, t00=0x0027, t01=0x0058}
0x03d72…03d84 Head {h00=0x000e, h01=0x0050, text=» RF CLEAR «, t00=0x0027, t01=0x008c}
0x03d84…03d92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x009e}
0x03d92…03dca Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0027, t01=0x00ac}
0x03dca…03e02 Head {h00=0x0034, h01=0x0050, text=»* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * «, t00=0x0027, t01=0x00e4}
0x03e02…03e3a Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0027, t01=0x011c}
0x03e3a…03e44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0154}
0x03e44…03e74 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A2 - POINTER TO TCLASS/SCLASS«, t00=0x0027, t01=0x015e}
0x03e74…03ea0 Head {h00=0x0028, h01=0x0050, text=»* A11 - SYSLOD START ADDRESS«, t00=0x0027, t01=0x018e}
0x03ea0…03ecc Head {h00=0x0028, h01=0x0050, text=»* A12 - RELOCATION CONSTANT «, t00=0x0028, t01=0x002a}
0x03ecc…03ed6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0056}
0x03ed6…03f0c Head {h00=0x0032, h01=0x0050, text=»* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS«, t00=0x0028, t01=0x0060}
0x03f0c…03f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0096}
0x03f16…03f34 Head {h00=0x001a, h01=0x0050, text=»* WORK REGISTER:A1-A7«, t00=0x0028, t01=0x00a0}
0x03f34…03f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00be}
0x03f3e…03f56 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0028, t01=0x00c8}
0x03f56…03f60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00e0}
0x03f60…03f74 Head {h00=0x0010, h01=0x0050, text=»CHPTRS EQU *«, t00=0x0028, t01=0x00ea}
0x03f74…03f98 Head {h00=0x0020, h01=0x0050, text=» ADR A2,A12 RELOCATE POINTER«, t00=0x0028, t01=0x00fe}
0x03f98…03fce Head {h00=0x0032, h01=0x0050, text=» LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS«, t00=0x0028, t01=0x0122}
0x03fce…03ffe Head {h00=0x002c, h01=0x0050, text=» LDR* A4,A3 GET LENGTH OF TCLASS/SCLASS «, t00=0x0028, t01=0x0158}
0x03ffe…04012 Head {h00=0x0010, h01=0x0050, text=»CHPT10 EQU *«, t00=0x0028, t01=0x0188}
0x04012…04044 Head {h00=0x002e, h01=0x0050, text=» SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? «, t00=0x0029, t01=0x000c}
0x04044…0405e Head {h00=0x0016, h01=0x0050, text=» RF(Z) CHPT30 NO! «, t00=0x0029, t01=0x003e}
0x0405e…0407a Head {h00=0x0018, h01=0x0050, text=» ADK A3,2 NEXT ENTRY«, t00=0x0029, t01=0x0058}
0x0407a…040a2 Head {h00=0x0024, h01=0x0050, text=» LDR* A5,A3 GET POINTER TO CLASS«, t00=0x0029, t01=0x0074}
0x040a2…040be Head {h00=0x0018, h01=0x0050, text=» ADR A5,A12 RELOCATE«, t00=0x0029, t01=0x009c}
0x040be…040d6 Head {h00=0x0014, h01=0x0050, text=» STR A5,A3 STORE«, t00=0x0029, t01=0x00b8}
0x040d6…040fe Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET LENGTH OF CLASS «, t00=0x0029, t01=0x00d0}
0x040fe…04112 Head {h00=0x0010, h01=0x0050, text=»CHPT20 EQU *«, t00=0x0029, t01=0x00f8}
0x04112…04140 Head {h00=0x002a, h01=0x0050, text=» SUK A6,4 MOORE DEVICES IN THIS CLASS?«, t00=0x0029, t01=0x010c}
0x04140…0415a Head {h00=0x0016, h01=0x0050, text=» RB(NP) CHPT10 NO!«, t00=0x0029, t01=0x013a}
0x0415a…04178 Head {h00=0x001a, h01=0x0050, text=» ADK A5,4 NEXT DEVICE «, t00=0x0029, t01=0x0154}
0x04178…0419c Head {h00=0x0020, h01=0x0050, text=» LDR* A7,A5 GET DWT-ADDRESS «, t00=0x0029, t01=0x0172}
0x0419c…041be Head {h00=0x001e, h01=0x0050, text=» LDR A9,A7 GET DWT-ADDRESS«, t00=0x002a, t01=0x0008}
0x041be…041e4 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x002a, t01=0x002a}
0x041e4…04208 Head {h00=0x0020, h01=0x0050, text=» RB(G) CHPT20 DWT IN DRIVER!«, t00=0x002a, t01=0x0050}
0x04208…04224 Head {h00=0x0018, h01=0x0050, text=» ADR A7,A12 RELOCATE«, t00=0x002a, t01=0x0074}
0x04224…04252 Head {h00=0x002a, h01=0x0050, text=» STR A7,A5 STORE RELOCATED DW-ADDRESS «, t00=0x002a, t01=0x0090}
0x04252…04278 Head {h00=0x0022, h01=0x0050, text=» LD A8,SCTOPT GET OPTION WORD «, t00=0x002a, t01=0x00be}
0x04278…0429a Head {h00=0x001e, h01=0x0050, text=» ANKL A8,1 MMU IN SYSTEM? «, t00=0x002a, t01=0x00e4}
0x0429a…042b4 Head {h00=0x0016, h01=0x0050, text=» RB(Z) CHPT20 NO! «, t00=0x002a, t01=0x0106}
0x042b4…042e4 Head {h00=0x002c, h01=0x0050, text=» LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS«, t00=0x002a, t01=0x0120}
0x042e4…0430e Head {h00=0x0026, h01=0x0050, text=» LDR A9,A8 GET MONITOR ECB ADDRESS«, t00=0x002a, t01=0x0150}
0x0430e…0433c Head {h00=0x002a, h01=0x0050, text=» ANKL A9,1 ADDRESS ALREADY RELOCATED? «, t00=0x002a, t01=0x017a}
0x0433c…04358 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) CHPT20 YES! «, t00=0x002b, t01=0x0018}
0x04358…04374 Head {h00=0x0018, h01=0x0050, text=» ADR A8,A12 RELOCATE«, t00=0x002b, t01=0x0034}
0x04374…043a6 Head {h00=0x002e, h01=0x0050, text=» ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED «, t00=0x002b, t01=0x0050}
0x043a6…043d6 Head {h00=0x002c, h01=0x0050, text=» ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS«, t00=0x002b, t01=0x0082}
0x043d6…043e8 Head {h00=0x000e, h01=0x0050, text=» RB CHPT20«, t00=0x002b, t01=0x00b2}
0x043e8…043fc Head {h00=0x0010, h01=0x0050, text=»CHPT30 EQU *«, t00=0x002b, t01=0x00c4}
0x043fc…0440c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002b, t01=0x00d8}
0x0440c…0441a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00e8}
0x0441a…0442e Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x002b, t01=0x00f6}
0x0442e…04438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x010a}
0x04438…04462 Head {h00=0x0026, h01=0x0050, text=»* CLEAR ALL WORDS IN SYSTEM AREA «, t00=0x002b, t01=0x0114}
0x04462…0446c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x013e}
0x0446c…04482 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x002b, t01=0x0148}
0x04482…044a8 Head {h00=0x0022, h01=0x0050, text=» LDR A1,P GET PROGRAM COUNTER «, t00=0x002b, t01=0x015e}
0x044a8…044bc Head {h00=0x0010, h01=0x0050, text=»CLRSYS EQU *«, t00=0x002b, t01=0x0184}
0x044bc…044ce Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x002c, t01=0x0008}
0x044ce…044de Head {h00=0x000c, h01=0x0050, text=» CMR A1 «, t00=0x002c, t01=0x001a}
0x044de…044f0 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x002c, t01=0x002a}
0x044f0…04506 Head {h00=0x0012, h01=0x0050, text=» RB(NE) CLRSYS«, t00=0x002c, t01=0x003c}
0x04506…0451e Head {h00=0x0014, h01=0x0050, text=» LDKL A1,CONMON «, t00=0x002c, t01=0x0052}
0x0451e…0453a Head {h00=0x0018, h01=0x0050, text=» AD A1,STKCOM+M:REL «, t00=0x002c, t01=0x006a}
0x0453a…0454a Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x002c, t01=0x0086}
0x0454a…04558 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0096}
0x04558…04592 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x002c, t01=0x00a4}
0x04592…045cc Head {h00=0x0036, h01=0x0050, text=»* B:TCT - BUILD TASK CONTROL TABLE *«, t00=0x002c, t01=0x00de}
0x045cc…04606 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x002c, t01=0x0118}
0x04606…04610 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0152}
0x04610…04630 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: MONCON«, t00=0x002c, t01=0x015c}
0x04630…0463a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x017c}
0x0463a…04644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0186}
0x04644…04656 Head {h00=0x000e, h01=0x0050, text=»* ENTRY: «, t00=0x002c, t01=0x0190}
0x04656…04660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0012}
0x04660…04670 Head {h00=0x000c, h01=0x0050, text=»* EXIT:«, t00=0x002d, t01=0x001c}
0x04670…0467a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x002c}
0x0467a…046a4 Head {h00=0x0026, h01=0x0050, text=»* WORK REGISTERS: A1-A7,A11,A12 «, t00=0x002d, t01=0x0036}
0x046a4…046ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0060}
0x046ae…046c6 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x002d, t01=0x006a}
0x046c6…046d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0082}
0x046d0…04702 Head {h00=0x002e, h01=0x0050, text=»* TASK CONTROL TABLE LAYOUT «, t00=0x002d, t01=0x008c}
0x04702…04734 Head {h00=0x002e, h01=0x0050, text=»* _________________________ «, t00=0x002d, t01=0x00be}
0x04734…04766 Head {h00=0x002e, h01=0x0050, text=»* I LENGTH I«, t00=0x002d, t01=0x00f0}
0x04766…04798 Head {h00=0x002e, h01=0x0050, text=»* _________________________ «, t00=0x002d, t01=0x0122}
0x04798…047ca Head {h00=0x002e, h01=0x0050, text=»* I MONITOR TASKS I«, t00=0x002d, t01=0x0154}
0x047ca…047fc Head {h00=0x002e, h01=0x0050, text=»* _________________________ «, t00=0x002d, t01=0x0186}
0x047fc…0482e Head {h00=0x002e, h01=0x0050, text=»* I USER TASKS I«, t00=0x002e, t01=0x0028}
0x0482e…04860 Head {h00=0x002e, h01=0x0050, text=»* __________________________ «, t00=0x002e, t01=0x005a}
0x04860…0486a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x008c}
0x0486a…04878 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0096}
0x04878…0488c Head {h00=0x0010, h01=0x0050, text=»B:TCT EQU * «, t00=0x002e, t01=0x00a4}
0x0488c…048ba Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x002e, t01=0x00b8}
0x048ba…048e8 Head {h00=0x002a, h01=0x0050, text=» ST A12,SCTTCT STORE ADDRESS TO TCTAB «, t00=0x002e, t01=0x00e6}
0x048e8…04914 Head {h00=0x0028, h01=0x0050, text=» ADKL A12,2 FIRST TTAB ADDRESS ENTRY«, t00=0x002e, t01=0x0114}
0x04914…04926 Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x002e, t01=0x0140}
0x04926…04930 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0152}
0x04930…04966 Head {h00=0x0032, h01=0x0050, text=»* RESERVE ENTRIES IN TCTAB FOR MONITOR EXTENT«, t00=0x002e, t01=0x015c}
0x04966…0498a (47, 0, 400) Head {h00=0x0020, h01=0x0050, text=»* AND MONITOR SEGMENT TASKS«, t00=0x002f, t01=0x0004}
0x0498a…04994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0028}
0x04994…049c0 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x002f, t01=0x0032}
0x049c0…049e2 Head {h00=0x001e, h01=0x0050, text=» RF(Z) BTCT20 NOT PRESENT!«, t00=0x002f, t01=0x005e}
0x049e2…04a14 Head {h00=0x002e, h01=0x0050, text=» CALL MX:TDB GET FIRST MONITOR EXTENT TDB «, t00=0x002f, t01=0x0080}
0x04a14…04a48 Head {h00=0x0030, h01=0x0050, text=»BTCT02 SUK A7,1 DECREMENT NUMBER OF EXTENTS «, t00=0x002f, t01=0x00b2}
0x04a48…04a66 Head {h00=0x001a, h01=0x0050, text=» RF(N) BTCT05 NO MORE!«, t00=0x002f, t01=0x00e6}
0x04a66…04a92 Head {h00=0x0028, h01=0x0050, text=» LDR* A4,A1 GET NUMBER OF TASK ID:S «, t00=0x002f, t01=0x0104}
0x04a92…04ab6 Head {h00=0x0020, h01=0x0050, text=»BTCT04 ADK A1,2 NEXT TASK ID«, t00=0x002f, t01=0x0130}
0x04ab6…04ae6 Head {h00=0x002c, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF TASK ID:S «, t00=0x002f, t01=0x0154}
0x04ae6…04b04 Head {h00=0x001a, h01=0x0050, text=» RB(N) BTCT02 NO MORE!«, t00=0x002f, t01=0x0184}
0x04b04…04b24 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x0030, t01=0x0012}
0x04b24…04b50 Head {h00=0x0028, h01=0x0050, text=» CALL RESTCT RESERVE ENTRY IN TCTAB «, t00=0x0030, t01=0x0032}
0x04b50…04b62 Head {h00=0x000e, h01=0x0050, text=» RB BTCT04«, t00=0x0030, t01=0x005e}
0x04b62…04b9a Head {h00=0x0034, h01=0x0050, text=»BTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB«, t00=0x0030, t01=0x0070}
0x04b9a…04bdc Head {h00=0x003e, h01=0x0050, text=»BTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES«, t00=0x0030, t01=0x00a8}
0x04bdc…04bfa Head {h00=0x001a, h01=0x0050, text=» RF(N) BTCT20 NO MORE!«, t00=0x0030, t01=0x00ea}
0x04bfa…04c26 Head {h00=0x0028, h01=0x0050, text=» LDR* A4,A1 GET NUMBER OF TASK ID:S «, t00=0x0030, t01=0x0108}
0x04c26…04c4a Head {h00=0x0020, h01=0x0050, text=»BTCT08 ADK A1,2 NEXT TASK ID«, t00=0x0030, t01=0x0134}
0x04c4a…04c7a Head {h00=0x002c, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF TASK ID:S «, t00=0x0030, t01=0x0158}
0x04c7a…04c98 Head {h00=0x001a, h01=0x0050, text=» RB(N) BTCT06 NO MORE «, t00=0x0030, t01=0x0188}
0x04c98…04cb8 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x0031, t01=0x0016}
0x04cb8…04ce0 Head {h00=0x0024, h01=0x0050, text=» CALL RESTCT RESERVE ENTRY TCTAB«, t00=0x0031, t01=0x0036}
0x04ce0…04cf2 Head {h00=0x000e, h01=0x0050, text=» RB BTCT08«, t00=0x0031, t01=0x005e}
0x04cf2…04cfe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0070}
0x04cfe…04d0c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x007c}
0x04d0c…04d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x008a}
0x04d16…04d48 Head {h00=0x002e, h01=0x0050, text=»* RESERVE ENTRIES IN TCTAB FOR USER TASKS«, t00=0x0031, t01=0x0094}
0x04d48…04d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00c6}
0x04d52…04d66 Head {h00=0x0010, h01=0x0050, text=»BTCT20 EQU *«, t00=0x0031, t01=0x00d0}
0x04d66…04da0 Head {h00=0x0036, h01=0x0050, text=» ST A12,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY«, t00=0x0031, t01=0x00e4}
0x04da0…04dd0 Head {h00=0x002c, h01=0x0050, text=» LD A7,SYSLOD GET NUMBER OF APPLICATIONS«, t00=0x0031, t01=0x011e}
0x04dd0…04e0a Head {h00=0x0036, h01=0x0050, text=» LDKL A4,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK «, t00=0x0031, t01=0x014e}
0x04e0a…04e34 Head {h00=0x0026, h01=0x0050, text=»BTCT30 SUK A7,1 MORE APPLICATIONS?«, t00=0x0031, t01=0x0188}
0x04e34…04e4e Head {h00=0x0016, h01=0x0050, text=» RF(N) BTCT70 NO! «, t00=0x0032, t01=0x0022}
0x04e4e…04e88 Head {h00=0x0036, h01=0x0050, text=» LD A11,APLMMC,A4 GET START OF CONFIGURATION DATA «, t00=0x0032, t01=0x003c}
0x04e88…04eb6 Head {h00=0x002a, h01=0x0050, text=» AD A11,STKCOM+CONSTA RELOCATE POINTER«, t00=0x0032, t01=0x0076}
0x04eb6…04eec Head {h00=0x0032, h01=0x0050, text=» ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY «, t00=0x0032, t01=0x00a4}
0x04eec…04f0e Head {h00=0x001e, h01=0x0050, text=» LCR A2,A11 GET BLOCK TYPE«, t00=0x0032, t01=0x00da}
0x04f0e…04f3a Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0032, t01=0x00fc}
0x04f3a…04f54 Head {h00=0x0016, h01=0x0050, text=» RF(E) BTCT35 YES «, t00=0x0032, t01=0x0128}
0x04f54…04f76 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR«, t00=0x0032, t01=0x0142}
0x04f76…04f8e Head {h00=0x0014, h01=0x0050, text=» CALL ERROR HALT«, t00=0x0032, t01=0x0164}
0x04f8e…04f9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x017c}
0x04f9c…04fb0 Head {h00=0x0010, h01=0x0050, text=»BTCT35 EQU *«, t00=0x0032, t01=0x018a}
0x04fb0…04fba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x000e}
0x04fba…04fee Head {h00=0x0030, h01=0x0050, text=»* COMPUTE NUMBER OF TASK IN EACH TASK CLASS«, t00=0x0033, t01=0x0018}
0x04fee…04ff8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x004c}
0x04ff8…0500c Head {h00=0x0010, h01=0x0050, text=»BTCT40 EQU *«, t00=0x0033, t01=0x0056}
0x0500c…05034 Head {h00=0x0024, h01=0x0050, text=» CALL GETTSK GET NUMBER OF TASKS«, t00=0x0033, t01=0x006a}
0x05034…05048 Head {h00=0x0010, h01=0x0050, text=»BTCT50 EQU *«, t00=0x0033, t01=0x0092}
0x05048…0507a Head {h00=0x002e, h01=0x0050, text=» ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB«, t00=0x0033, t01=0x00a6}
0x0507a…050a6 Head {h00=0x0028, h01=0x0050, text=» SUK A1,1 MOORE TASKS IN THIS CLASS?«, t00=0x0033, t01=0x00d8}
0x050a6…050c0 Head {h00=0x0016, h01=0x0050, text=» RB(P) BTCT50 YES «, t00=0x0033, t01=0x0104}
0x050c0…050e8 Head {h00=0x0024, h01=0x0050, text=» CALL NXTBLK SKIP TO NEXT BLOCK «, t00=0x0033, t01=0x011e}
0x050e8…05114 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0033, t01=0x0146}
0x05114…0512e Head {h00=0x0016, h01=0x0050, text=» RB(E) BTCT40 YES «, t00=0x0033, t01=0x0172}
0x0512e…05142 Head {h00=0x0010, h01=0x0050, text=»BTCT60 EQU *«, t00=0x0033, t01=0x018c}
0x05142…05172 Head {h00=0x002c, h01=0x0050, text=» ADK A4,ACBLEN NEXT APPL. CONTROL BLOCK «, t00=0x0034, t01=0x0010}
0x05172…05184 Head {h00=0x000e, h01=0x0050, text=» RB BTCT30«, t00=0x0034, t01=0x0040}
0x05184…0518e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0052}
0x0518e…051c6 Head {h00=0x0034, h01=0x0050, text=»* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB«, t00=0x0034, t01=0x005c}
0x051c6…051d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0094}
0x051d0…05204 Head {h00=0x0030, h01=0x0050, text=»BTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA«, t00=0x0034, t01=0x009e}
0x05204…0522a Head {h00=0x0022, h01=0x0050, text=» SU A12,SCTTCT COMPUTE LENGTH «, t00=0x0034, t01=0x00d2}
0x0522a…05248 Head {h00=0x001a, h01=0x0050, text=» ST* A12,SCTTCT STORE «, t00=0x0034, t01=0x00f8}
0x05248…05258 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x0116}
0x05258…0526a Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x0034, t01=0x0126}
0x0526a…05278 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0138}
0x05278…052b6 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0034, t01=0x0146}
0x052b6…052f4 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0034, t01=0x0184}
0x052f4…05332 Head {h00=0x003a, h01=0x0050, text=»* RESTCT - RESERVE ENTRY IN TCTAB * «, t00=0x0035, t01=0x0032}
0x05332…05370 Head {h00=0x003a, h01=0x0050, text=»* =============================== * «, t00=0x0035, t01=0x0070}
0x05370…053ae Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0035, t01=0x00ae}
0x053ae…053ec Head {h00=0x003a, h01=0x0050, text=»* REFERENCED IN: B:TCT * «, t00=0x0035, t01=0x00ec}
0x053ec…0542a Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0035, t01=0x012a}
0x0542a…05468 Head {h00=0x003a, h01=0x0050, text=»* ENTRY: A2 - CURRENT TASK ID * «, t00=0x0035, t01=0x0168}
0x05468…054a6 Head {h00=0x003a, h01=0x0050, text=»* A12 - NEXT FREE ENTRY IN TCTAB * «, t00=0x0036, t01=0x0016}
0x054a6…054e4 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0036, t01=0x0054}
0x054e4…05522 Head {h00=0x003a, h01=0x0050, text=»* EXIT: A12 - NEXT FREE ENTRY IN TCTAB * «, t00=0x0036, t01=0x0092}
0x05522…05560 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0036, t01=0x00d0}
0x05560…0559e Head {h00=0x003a, h01=0x0050, text=»* WORK REGISTERS: A3 * «, t00=0x0036, t01=0x010e}
0x0559e…055dc Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0036, t01=0x014c}
0x055dc…0561a Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0036, t01=0x018a}
0x0561a…05658 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0037, t01=0x0038}
0x05658…05696 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0037, t01=0x0076}
0x05696…056aa Head {h00=0x0010, h01=0x0050, text=»RESTCT EQU *«, t00=0x0037, t01=0x00b4}
0x056aa…056ce Head {h00=0x0020, h01=0x0050, text=» LDR A3,A12 GET END OF TCTAB«, t00=0x0037, t01=0x00c8}
0x056ce…056f0 Head {h00=0x001e, h01=0x0050, text=»REST10 SUK A3,2 NEXT ENTRY«, t00=0x0037, t01=0x00ec}
0x056f0…0571a Head {h00=0x0026, h01=0x0050, text=» CW A3,SCTTCT ALL ENTRIES CHECKED?«, t00=0x0037, t01=0x010e}
0x0571a…05738 Head {h00=0x001a, h01=0x0050, text=» RF(NE) REST30 NOT YET«, t00=0x0037, t01=0x0138}
0x05738…05762 Head {h00=0x0026, h01=0x0050, text=» STR A2,A12 STORE TASK ID IN TCTAB«, t00=0x0037, t01=0x0156}
0x05762…05790 Head {h00=0x002a, h01=0x0050, text=» ADKL A12,2 NEXT FREEE ENTRY IN TCTAB «, t00=0x0037, t01=0x0180}
0x05790…057ae Head {h00=0x001a, h01=0x0050, text=»REST20 RTN A14 RETURN «, t00=0x0038, t01=0x001e}
0x057ae…057de Head {h00=0x002c, h01=0x0050, text=»REST30 CWR* A2,A3 CHECK IF SAME TASK ID «, t00=0x0038, t01=0x003c}
0x057de…05802 Head {h00=0x0020, h01=0x0050, text=» RB(NE) REST10 NOT THE SAME «, t00=0x0038, t01=0x006c}
0x05802…05828 Head {h00=0x0022, h01=0x0050, text=» RB REST20 COINCIDENCE: RETURN«, t00=0x0038, t01=0x0090}
0x05828…05834 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00b6}
0x05834…05846 Head {h00=0x000e, h01=0x0050, text=» IFF FM=0 «, t00=0x0038, t01=0x00c2}
0x05846…05854 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00d4}
0x05854…05890 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0038, t01=0x00e2}
0x05890…058cc Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0038, t01=0x011e}
0x058cc…05908 Head {h00=0x0038, h01=0x0050, text=»* B:FWT - BUILD FILE WORK TABLE * «, t00=0x0038, t01=0x015a}
0x05908…05944 Head {h00=0x0038, h01=0x0050, text=»* ============================= * «, t00=0x0039, t01=0x0008}
0x05944…05980 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0039, t01=0x0044}
0x05980…059bc Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0039, t01=0x0080}
0x059bc…059f8 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0039, t01=0x00bc}
0x059f8…05a34 Head {h00=0x0038, h01=0x0050, text=»* REFERENCED IN: CONMON * «, t00=0x0039, t01=0x00f8}
0x05a34…05a70 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0039, t01=0x0134}
0x05a70…05aac Head {h00=0x0038, h01=0x0050, text=»* ENTRY: SCTNFT - NUMBER OF FM-FILES PER TASK * «, t00=0x0039, t01=0x0170}
0x05aac…05ae8 Head {h00=0x0038, h01=0x0050, text=»* SCTNOF - NUMBER OF GENERAL FM-FILES * «, t00=0x003a, t01=0x001c}
0x05ae8…05b24 Head {h00=0x0038, h01=0x0050, text=»* SCTFWL - FILE WORK TABLE LENGTH IN * «, t00=0x003a, t01=0x0058}
0x05b24…05b60 Head {h00=0x0038, h01=0x0050, text=»* BYTES * «, t00=0x003a, t01=0x0094}
0x05b60…05b9c Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003a, t01=0x00d0}
0x05b9c…05bd8 Head {h00=0x0038, h01=0x0050, text=»* EXIT: SCTFWT - ADDRESS TO FIRST FWT * «, t00=0x003a, t01=0x010c}
0x05bd8…05c14 Head {h00=0x0038, h01=0x0050, text=»* SCTNOF - TOTAL NUMBER OF FM-FILES * «, t00=0x003a, t01=0x0148}
0x05c14…05c50 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003a, t01=0x0184}
0x05c50…05c8c Head {h00=0x0038, h01=0x0050, text=»* WORK REGISTERS: A2,A3 * «, t00=0x003b, t01=0x0030}
0x05c8c…05cc8 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003b, t01=0x006c}
0x05cc8…05d04 Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINES: ERROR,MULT * «, t00=0x003b, t01=0x00a8}
0x05d04…05d40 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003b, t01=0x00e4}
0x05d40…05d7c Head {h00=0x0038, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: * «, t00=0x003b, t01=0x0120}
0x05d7c…05db8 Head {h00=0x0038, h01=0x0050, text=»* THIS SUBROUTINE RESERVES MEMORY AREA FOR * «, t00=0x003b, t01=0x015c}
0x05db8…05df4 Head {h00=0x0038, h01=0x0050, text=»* FILE WORK TABLES. * «, t00=0x003c, t01=0x0008}
0x05df4…05e30 Head {h00=0x0038, h01=0x0050, text=»* SIZE OF THE AREA RESERVED IS GIVEN BY THE * «, t00=0x003c, t01=0x0044}
0x05e30…05e6c Head {h00=0x0038, h01=0x0050, text=»* FORMULA: A=L*(G+N*T) * «, t00=0x003c, t01=0x0080}
0x05e6c…05ea8 Head {h00=0x0038, h01=0x0050, text=»* WHERE A=AREA SIZE IN BYTES * «, t00=0x003c, t01=0x00bc}
0x05ea8…05ee4 Head {h00=0x0038, h01=0x0050, text=»* L= FWT LENGTH IN BYTES * «, t00=0x003c, t01=0x00f8}
0x05ee4…05f20 Head {h00=0x0038, h01=0x0050, text=»* G=NUMBER OF GENERAL FM-FILES * «, t00=0x003c, t01=0x0134}
0x05f20…05f5c Head {h00=0x0038, h01=0x0050, text=»* T=NUMBER OF FM-FILES PER TASK * «, t00=0x003c, t01=0x0170}
0x05f5c…05f98 Head {h00=0x0038, h01=0x0050, text=»* N=NUMBER OF USER TASKS * «, t00=0x003d, t01=0x001c}
0x05f98…05fd4 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003d, t01=0x0058}
0x05fd4…06010 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x003d, t01=0x0094}
0x06010…0601e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00d0}
0x0601e…06032 Head {h00=0x0010, h01=0x0050, text=»B:FWT EQU * «, t00=0x003d, t01=0x00de}
0x06032…0605c Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET LENGTH OF TCTAB«, t00=0x003d, t01=0x00f2}
0x0605c…06086 Head {h00=0x0026, h01=0x0050, text=» AD A2,SCTTCT COMPUTE END OF TCTAB«, t00=0x003d, t01=0x011c}
0x06086…060b6 Head {h00=0x002c, h01=0x0050, text=» SU A2,STKEND+CUTENT LENGTH OF USER PART«, t00=0x003d, t01=0x0146}
0x060b6…060dc Head {h00=0x0022, h01=0x0050, text=» SRL A2,1 NUMBER OF USER TASKS«, t00=0x003d, t01=0x0176}
0x060dc…06112 Head {h00=0x0032, h01=0x0050, text=» LD A3,SCTNFT GET NUMBER OF FM-FILES PER TASK «, t00=0x003e, t01=0x000c}
0x06112…0612e Head {h00=0x0018, h01=0x0050, text=» CALL MULT MULTIPLY «, t00=0x003e, t01=0x0042}
0x0612e…06162 Head {h00=0x0030, h01=0x0050, text=» AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES«, t00=0x003e, t01=0x005e}
0x06162…06196 Head {h00=0x0030, h01=0x0050, text=» ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES«, t00=0x003e, t01=0x0092}
0x06196…061c6 Head {h00=0x002c, h01=0x0050, text=» LD A2,SCTFWL GET FILE WORK TABLE LENGTH«, t00=0x003e, t01=0x00c6}
0x061c6…061e2 Head {h00=0x0018, h01=0x0050, text=» CALL MULT MULTIPLY «, t00=0x003e, t01=0x00f6}
0x061e2…06212 Head {h00=0x002c, h01=0x0050, text=» SRL A3,1 NUMBER OF WORDS TO BE RESERVED«, t00=0x003e, t01=0x0112}
0x06212…06236 Head {h00=0x0020, h01=0x0050, text=» ADK A3,0 ANY FWT:S AT ALL? «, t00=0x003e, t01=0x0142}
0x06236…0624e Head {h00=0x0014, h01=0x0050, text=» RF(Z) FWT70 NO!«, t00=0x003e, t01=0x0166}
0x0624e…06286 Head {h00=0x0034, h01=0x0050, text=» ST A3,STKEND+FWTSIZ SAVE FWT AREA SIZE IN WORDS«, t00=0x003e, t01=0x017e}
0x06286…062b2 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA GET START OF FREE AREA«, t00=0x003f, t01=0x0026}
0x062b2…062e2 Head {h00=0x002c, h01=0x0050, text=» ST A2,SCTFWT STORE ADDRESS TO FIRST FWT«, t00=0x003f, t01=0x0052}
0x062e2…06316 Head {h00=0x0030, h01=0x0050, text=» ST A2,STKEND+FWTSTA SAVE START OF FWT AREA «, t00=0x003f, t01=0x0082}
0x06316…0634a Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x003f, t01=0x00b6}
0x0634a…0637c Head {h00=0x002e, h01=0x0050, text=»FWT50 CW A2,STKEND+LIMIT MEMORY OVERFLOW? «, t00=0x003f, t01=0x00ea}
0x0637c…0639a Head {h00=0x001a, h01=0x0050, text=» RF(NE) FWT60 NOT YET!«, t00=0x003f, t01=0x011c}
0x0639a…063c8 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x003f, t01=0x013a}
0x063c8…063dc Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x003f, t01=0x0168}
0x063dc…06400 Head {h00=0x0020, h01=0x0050, text=»FWT60 CMR A2 CLEAR FWT AREA «, t00=0x003f, t01=0x017c}
0x06400…06426 Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 RESERVE ANOTHER WORD«, t00=0x0040, t01=0x0010}
0x06426…0644e Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 DECREMENT WORD COUNTER«, t00=0x0040, t01=0x0036}
0x0644e…0647c Head {h00=0x002a, h01=0x0050, text=» RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW«, t00=0x0040, t01=0x005e}
0x0647c…064ac Head {h00=0x002c, h01=0x0050, text=» ST A2,SCTSFA UPDATE START OF FREE AREA «, t00=0x0040, t01=0x008c}
0x064ac…064be Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0040, t01=0x00bc}
0x064be…064f2 Head {h00=0x0030, h01=0x0050, text=» ST A2,STKEND+INTTAB SAVE ADDRESS TO T.I.T. «, t00=0x0040, t01=0x00ce}
0x064f2…06508 Head {h00=0x0012, h01=0x0050, text=»FWT70 RTN A14 «, t00=0x0040, t01=0x0102}
0x06508…06514 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0118}
0x06514…06522 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0124}
0x06522…06550 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0040, t01=0x0132}
0x06550…0657e Head {h00=0x002a, h01=0x0050, text=»* MONBLK - GENERATE MONITOR BLOCKS *«, t00=0x0040, t01=0x0160}
0x0657e…065ac Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0040, t01=0x018e}
0x065ac…065b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x002c}
0x065b6…065e2 Head {h00=0x0028, h01=0x0050, text=»* NUMBER OF BLOCKS TO BE GENERATED:«, t00=0x0041, t01=0x0036}
0x065e2…0660e Head {h00=0x0028, h01=0x0050, text=»* 20+N*(NUMBER OF TASKS IN SYSTEM) «, t00=0x0041, t01=0x0062}
0x0660e…06636 Head {h00=0x0024, h01=0x0050, text=»* WHERE N IS A SYSTEM CONSTANT «, t00=0x0041, t01=0x008e}
0x06636…0665e Head {h00=0x0024, h01=0x0050, text=»* DEFINED AT SYSTEM GENERATION «, t00=0x0041, t01=0x00b6}
0x0665e…06668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00de}
0x06668…06672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00e8}
0x06672…06692 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: SYSLOD«, t00=0x0041, t01=0x00f2}
0x06692…0669c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0112}
0x0669c…066ca Head {h00=0x002a, h01=0x0050, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x0041, t01=0x011c}
0x066ca…066f6 Head {h00=0x0028, h01=0x0050, text=»* SCTEFA - END OF FREE AREA«, t00=0x0041, t01=0x014a}
0x066f6…06700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0176}
0x06700…06732 Head {h00=0x002e, h01=0x0050, text=»* EXIT: BLOCKS - POINTER TO FIRST BLOCK«, t00=0x0041, t01=0x0180}
0x06732…0673c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0022}
0x0673c…06764 Head {h00=0x0024, h01=0x0050, text=»* WORK REGISTERS: A1,A2,A7,A12«, t00=0x0042, t01=0x002c}
0x06764…0676e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0054}
0x0676e…0678e Head {h00=0x001c, h01=0x0050, text=»* SUBROUTINES: BLKGEN «, t00=0x0042, t01=0x005e}
0x0678e…06798 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x007e}
0x06798…067a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0088}
0x067a6…067ba Head {h00=0x0010, h01=0x0050, text=»MONBLK EQU *«, t00=0x0042, t01=0x0096}
0x067ba…067cc Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0042, t01=0x00aa}
0x067cc…067f6 Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x0042, t01=0x00bc}
0x067f6…06828 Head {h00=0x002e, h01=0x0050, text=» ST A12,FREQUE SAVE POINTER TO FIRST BLOCK«, t00=0x0042, t01=0x00e6}
0x06828…06832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0118}
0x06832…0685a Head {h00=0x0024, h01=0x0050, text=»* GET NUMBER OF TASKS IN SYSTEM«, t00=0x0042, t01=0x0122}
0x0685a…06864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x014a}
0x06864…06890 Head {h00=0x0028, h01=0x0050, text=» LD* A7,SCTTCT GET LENGTH OF TC:TAB «, t00=0x0042, t01=0x0154}
0x06890…0689a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0180}
0x0689a…068ce Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF BLOCKS PER TASK TO GENERATE«, t00=0x0042, t01=0x018a}
0x068ce…068d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x002e}
0x068d8…068ee Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTBLK «, t00=0x0043, t01=0x0038}
0x068ee…06922 Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0043, t01=0x004e}
0x06922…06936 Head {h00=0x0010, h01=0x0050, text=»MON:10 EQU *«, t00=0x0043, t01=0x0082}
0x06936…06954 Head {h00=0x001a, h01=0x0050, text=» SUK A7,2 MOORE TASKS?«, t00=0x0043, t01=0x0096}
0x06954…0696e Head {h00=0x0016, h01=0x0050, text=» RF(Z) MON:20 NO «, t00=0x0043, t01=0x00b4}
0x0696e…06982 Head {h00=0x0010, h01=0x0050, text=» CALL BLKGEN«, t00=0x0043, t01=0x00ce}
0x06982…06994 Head {h00=0x000e, h01=0x0050, text=» RB MON:10«, t00=0x0043, t01=0x00e2}
0x06994…069a8 Head {h00=0x0010, h01=0x0050, text=»MON:20 EQU *«, t00=0x0043, t01=0x00f4}
0x069a8…069b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0108}
0x069b2…069da Head {h00=0x0024, h01=0x0050, text=»* GENERATE EXTRA MONITOR BLOCKS«, t00=0x0043, t01=0x0112}
0x069da…069e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x013a}
0x069e4…069f6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,19«, t00=0x0043, t01=0x0144}
0x069f6…06a0c Head {h00=0x0012, h01=0x0050, text=» ADK A2,NOEXMB«, t00=0x0043, t01=0x0156}
0x06a0c…06a22 Head {h00=0x0012, h01=0x0050, text=» AD A2,SCTNOF «, t00=0x0043, t01=0x016c}
0x06a22…06a38 Head {h00=0x0012, h01=0x0050, text=» AD A2,SCTNOF «, t00=0x0043, t01=0x0182}
0x06a38…06a4c Head {h00=0x0010, h01=0x0050, text=» CALL BLKGEN«, t00=0x0044, t01=0x0008}
0x06a4c…06a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x001c}
0x06a56…06a74 Head {h00=0x001a, h01=0x0050, text=»* GENERATE END BLOCK «, t00=0x0044, t01=0x0026}
0x06a74…06a7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0044}
0x06a7e…06a92 Head {h00=0x0010, h01=0x0050, text=» STR A1,A12 «, t00=0x0044, t01=0x004e}
0x06a92…06aa6 Head {h00=0x0010, h01=0x0050, text=» ST A1,2,A12«, t00=0x0044, t01=0x0062}
0x06aa6…06aba Head {h00=0x0010, h01=0x0050, text=» ST A1,4,A12«, t00=0x0044, t01=0x0076}
0x06aba…06ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x008a}
0x06ac4…06b0e Head {h00=0x0046, h01=0x0050, text=»* CHECK IF BUFFER GREATER THAN 2 WORDS RESERVED FOR SYSLOD PART A«, t00=0x0044, t01=0x0094}
0x06b0e…06b42 Head {h00=0x0030, h01=0x0050, text=»* IF NOT - USE LAST MONITOR BLOCK AS BUFFER«, t00=0x0044, t01=0x00de}
0x06b42…06b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0112}
0x06b4c…06b78 Head {h00=0x0028, h01=0x0050, text=» LD A1,STKCOM+BUFSIZ GET BUFFER SIZE«, t00=0x0044, t01=0x011c}
0x06b78…06b8e Head {h00=0x0012, h01=0x0050, text=» CWK A1,4 >4? «, t00=0x0044, t01=0x0148}
0x06b8e…06bb6 Head {h00=0x0024, h01=0x0050, text=» RF(NL) MON:30 NOT LESS ANYWAY! «, t00=0x0044, t01=0x015e}
0x06bb6…06bd4 Head {h00=0x001a, h01=0x0050, text=» LDK A1,4 BUFFER SIZE«, t00=0x0044, t01=0x0186}
0x06bd4…06c08 Head {h00=0x0030, h01=0x0050, text=» ST A1,STKCOM+BUFSIZ UPDATE MAX BUFFER SIZE «, t00=0x0045, t01=0x0014}
0x06c08…06c1c Head {h00=0x0010, h01=0x0050, text=» ADKL A12,2 «, t00=0x0045, t01=0x0048}
0x06c1c…06c50 Head {h00=0x0030, h01=0x0050, text=» ST A12,STKCOM+SYSBUF UPDATE BUFFER ADDRESS «, t00=0x0045, t01=0x005c}
0x06c50…06c64 Head {h00=0x0010, h01=0x0050, text=»MON:30 EQU *«, t00=0x0045, t01=0x0090}
0x06c64…06c78 Head {h00=0x0010, h01=0x0050, text=» ADKL A12,6 «, t00=0x0045, t01=0x00a4}
0x06c78…06c80 Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x00b8}
0x06c80…06cae Head {h00=0x002a, h01=0x0050, text=» ST A12,SCTSFA UPDATE END OF FREE AREA«, t00=0x0045, t01=0x00c0}
0x06cae…06cbe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0045, t01=0x00ee}
0x06cbe…06ccc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x00fe}
0x06ccc…06cfa Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0045, t01=0x010c}
0x06cfa…06d28 Head {h00=0x002a, h01=0x0050, text=»* BLKGEN - GENERATE MONITOR BLOCK * «, t00=0x0045, t01=0x013a}
0x06d28…06d56 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0045, t01=0x0168}
0x06d56…06d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0008}
0x06d60…06d82 Head {h00=0x001e, h01=0x0050, text=»* REFERENCED IN: MONBLK «, t00=0x0046, t01=0x0012}
0x06d82…06d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0034}
0x06d8c…06da4 Head {h00=0x0014, h01=0x0050, text=»* ENTRY: A1=0 «, t00=0x0046, t01=0x003e}
0x06da4…06ddc Head {h00=0x0034, h01=0x0050, text=»* A2 - NUMBER OF BLOCKS TO BE GENERATED«, t00=0x0046, t01=0x0056}
0x06ddc…06e04 Head {h00=0x0024, h01=0x0050, text=»* A12 - NEXT FREE ENTRY «, t00=0x0046, t01=0x008e}
0x06e04…06e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00b6}
0x06e0e…06e24 Head {h00=0x0012, h01=0x0050, text=»* EXIT: A1=0«, t00=0x0046, t01=0x00c0}
0x06e24…06e4a Head {h00=0x0022, h01=0x0050, text=»* A12 - NEXT FREE ENTRY«, t00=0x0046, t01=0x00d6}
0x06e4a…06e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00fc}
0x06e54…06e74 Head {h00=0x001c, h01=0x0050, text=»* WORK REGISTES: A3,A4 «, t00=0x0046, t01=0x0106}
0x06e74…06e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0126}
0x06e7e…06e96 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0046, t01=0x0130}
0x06e96…06ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0148}
0x06ea0…06ed4 Head {h00=0x0030, h01=0x0050, text=»* MONITOR BLOCK LAYOUT«, t00=0x0046, t01=0x0152}
0x06ed4…06f08 Head {h00=0x0030, h01=0x0050, text=»* --------------------«, t00=0x0046, t01=0x0186}
0x06f08…06f3c Head {h00=0x0030, h01=0x0050, text=»* I DATA *+6 I«, t00=0x0047, t01=0x002a}
0x06f3c…06f70 Head {h00=0x0030, h01=0x0050, text=»* --------------------«, t00=0x0047, t01=0x005e}
0x06f70…06fa4 Head {h00=0x0030, h01=0x0050, text=»* I DATA 0 I«, t00=0x0047, t01=0x0092}
0x06fa4…06fd8 Head {h00=0x0030, h01=0x0050, text=»* --------------------«, t00=0x0047, t01=0x00c6}
0x06fd8…0700c Head {h00=0x0030, h01=0x0050, text=»* I DATA 0 I«, t00=0x0047, t01=0x00fa}
0x0700c…07040 Head {h00=0x0030, h01=0x0050, text=»* --------------------«, t00=0x0047, t01=0x012e}
0x07040…0704a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0162}
0x0704a…07058 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x016c}
0x07058…0706c Head {h00=0x0010, h01=0x0050, text=»BLKGEN EQU *«, t00=0x0047, t01=0x017a}
0x0706c…07080 Head {h00=0x0010, h01=0x0050, text=» LDR A3,A2 «, t00=0x0047, t01=0x018e}
0x07080…07094 Head {h00=0x0010, h01=0x0050, text=»BLK:10 EQU *«, t00=0x0048, t01=0x0012}
0x07094…070a8 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BLKEX«, t00=0x0048, t01=0x0026}
0x070a8…070d0 Head {h00=0x0024, h01=0x0050, text=» LDK A4,3 NUMBER OF WORDS/BLOCK «, t00=0x0048, t01=0x003a}
0x070d0…07104 Head {h00=0x0030, h01=0x0050, text=»BLK:20 CW A12,STKEND+LIMIT MEMORY OVERFLOW? «, t00=0x0048, t01=0x0062}
0x07104…07124 Head {h00=0x001c, h01=0x0050, text=» RF(NE) BLK:30 NOT YET! «, t00=0x0048, t01=0x0096}
0x07124…07152 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x0048, t01=0x00b6}
0x07152…07166 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0048, t01=0x00e4}
0x07166…07194 Head {h00=0x002a, h01=0x0050, text=»BLK:30 ADKL A12,2 RESERVE ANOTHER WORD«, t00=0x0048, t01=0x00f8}
0x07194…071b8 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 MORE WORDS WANTED?«, t00=0x0048, t01=0x0126}
0x071b8…071d2 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BLK:20 YES«, t00=0x0048, t01=0x014a}
0x071d2…071e8 Head {h00=0x0012, h01=0x0050, text=» ST A12,-6,A12«, t00=0x0048, t01=0x0164}
0x071e8…071fe Head {h00=0x0012, h01=0x0050, text=» ST A1,-4,A12 «, t00=0x0048, t01=0x017a}
0x071fe…07214 Head {h00=0x0012, h01=0x0050, text=» ST A1,-2,A12 «, t00=0x0048, t01=0x0190}
0x07214…07226 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0049, t01=0x0016}
0x07226…07238 Head {h00=0x000e, h01=0x0050, text=» RB BLK:10«, t00=0x0049, t01=0x0028}
0x07238…0724c Head {h00=0x0010, h01=0x0050, text=»BLKEX EQU * «, t00=0x0049, t01=0x003a}
0x0724c…0725c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0049, t01=0x004e}
0x0725c…0726e Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x0049, t01=0x005e}
0x0726e…0727c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0070}
0x0727c…072c8 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0049, t01=0x007e}
0x072c8…07314 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0049, t01=0x00ca}
0x07314…07360 Head {h00=0x0048, h01=0x0050, text=»* B:MXTT - BUILD TTABS FOR MONITOR EXTENT TASKS * «, t00=0x0049, t01=0x0116}
0x07360…073ac Head {h00=0x0048, h01=0x0050, text=»* ============================================= * «, t00=0x0049, t01=0x0162}
0x073ac…073f8 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004a, t01=0x001e}
0x073f8…07444 Head {h00=0x0048, h01=0x0050, text=»* REFERENCED IN: SYSLDM * «, t00=0x004a, t01=0x006a}
0x07444…07490 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004a, t01=0x00b6}
0x07490…074dc Head {h00=0x0048, h01=0x0050, text=»* ENTRY: * «, t00=0x004a, t01=0x0102}
0x074dc…07528 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004a, t01=0x014e}
0x07528…07574 Head {h00=0x0048, h01=0x0050, text=»* EXIT: * «, t00=0x004b, t01=0x000a}
0x07574…075c0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004b, t01=0x0056}
0x075c0…0760c Head {h00=0x0048, h01=0x0050, text=»* WORK REGISTERS: A4 * «, t00=0x004b, t01=0x00a2}
0x0760c…07658 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004b, t01=0x00ee}
0x07658…076a4 Head {h00=0x0048, h01=0x0050, text=»* SUBROUTINES: MX:TDB,MXTTAB * «, t00=0x004b, t01=0x013a}
0x076a4…076f0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004b, t01=0x0186}
0x076f0…0773c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x004c, t01=0x0042}
0x0773c…07750 Head {h00=0x0010, h01=0x0050, text=»B:MXTT EQU *«, t00=0x004c, t01=0x008e}
0x07750…0777c Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x004c, t01=0x00a2}
0x0777c…0779c Head {h00=0x001c, h01=0x0050, text=» RF(Z) BMX99 NOT PRESENT«, t00=0x004c, t01=0x00ce}
0x0779c…077d0 Head {h00=0x0030, h01=0x0050, text=» LDK A4,2 DISPLACEMENT TO FIRST EXTENT TASK «, t00=0x004c, t01=0x00ee}
0x077d0…077f0 Head {h00=0x001c, h01=0x0050, text=» ST* A4,SCTTCT IN TCTAB «, t00=0x004c, t01=0x0122}
0x077f0…07822 Head {h00=0x002e, h01=0x0050, text=» CALL MX:TDB FIND FIRST MONITOR EXTENT TDB«, t00=0x004c, t01=0x0142}
0x07822…0785a Head {h00=0x0034, h01=0x0050, text=» LD A4,SCTMOX GET ADDRESS TO START-ADDRESS TABLE«, t00=0x004c, t01=0x0174}
0x0785a…07880 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) BMX05 ALREADY DEFINED «, t00=0x004d, t01=0x001c}
0x07880…078a8 Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTSFA START OF FREE AREA«, t00=0x004d, t01=0x0042}
0x078a8…078dc Head {h00=0x0030, h01=0x0050, text=» ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE«, t00=0x004d, t01=0x006a}
0x078dc…07914 Head {h00=0x0034, h01=0x0050, text=» LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE «, t00=0x004d, t01=0x009e}
0x07914…0793e Head {h00=0x0026, h01=0x0050, text=» ST* A4,SCTMOX STORE IN FIRST WORD«, t00=0x004d, t01=0x00d6}
0x0793e…07966 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 RESET TASK ID COUNTER «, t00=0x004d, t01=0x0100}
0x07966…0798c Head {h00=0x0022, h01=0x0050, text=» LDR A2,A1 GET POINTER TO TDB «, t00=0x004d, t01=0x0128}
0x0798c…079b4 Head {h00=0x0024, h01=0x0050, text=» LDR A3,A7 GET NUMBER OF EXTENTS«, t00=0x004d, t01=0x014e}
0x079b4…079c6 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x004d, t01=0x0176}
0x079c6…079ea Head {h00=0x0020, h01=0x0050, text=»BMX01 SUK A3,1 MORE EXTENTS?«, t00=0x004d, t01=0x0188}
0x079ea…07a02 Head {h00=0x0014, h01=0x0050, text=» RF(N) BMX03 NO «, t00=0x004e, t01=0x001c}
0x07a02…07a30 Head {h00=0x002a, h01=0x0050, text=» ADK A2,2 ADDRESS NUMBER OF TASK ID:S «, t00=0x004e, t01=0x0034}
0x07a30…07a5c Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A2 GET NUMBER OF TASK ID:S «, t00=0x004e, t01=0x0062}
0x07a5c…07a88 Head {h00=0x0028, h01=0x0050, text=» ADR* A4,A2 ADD NUMBER OF TASK ID:S «, t00=0x004e, t01=0x008e}
0x07a88…07aae Head {h00=0x0022, h01=0x0050, text=»BMX02 SUK A6,1 MORE TASK ID:S?«, t00=0x004e, t01=0x00ba}
0x07aae…07ac6 Head {h00=0x0014, h01=0x0050, text=» RB(N) BMX01 NO «, t00=0x004e, t01=0x00e0}
0x07ac6…07aec Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 ADDRESS NEXT TASK ID«, t00=0x004e, t01=0x00f8}
0x07aec…07afe Head {h00=0x000e, h01=0x0050, text=» RB BMX02 «, t00=0x004e, t01=0x011e}
0x07afe…07b24 Head {h00=0x0022, h01=0x0050, text=»BMX03 SLL A4,2 INCLUDE LENGTH «, t00=0x004e, t01=0x0130}
0x07b24…07b5c Head {h00=0x0034, h01=0x0050, text=» ADK A4,2 INCLUDE LENGTH OF START-ADDRESS TABLE «, t00=0x004e, t01=0x0156}
0x07b5c…07b8c Head {h00=0x002c, h01=0x0050, text=» AD A4,SCTSFA END OF START-ADDRESS TABLE«, t00=0x004e, t01=0x018e}
0x07b8c…07bbc Head {h00=0x002c, h01=0x0050, text=» ST A4,SCTSFA UPDATE START OF FREE AREA «, t00=0x004f, t01=0x002e}
0x07bbc…07bde Head {h00=0x001e, h01=0x0050, text=» LDR A11,A4 GET TABLE END «, t00=0x004f, t01=0x005e}
0x07bde…07c04 Head {h00=0x0022, h01=0x0050, text=» LDR A9,P GET CURRENT LOCATION«, t00=0x004f, t01=0x0080}
0x07c04…07c2a Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x004f, t01=0x00a6}
0x07c2a…07c44 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BMXS05 OK «, t00=0x004f, t01=0x00cc}
0x07c44…07c72 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x004f, t01=0x00e6}
0x07c72…07c86 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004f, t01=0x0114}
0x07c86…07cc0 Head {h00=0x0036, h01=0x0050, text=»BMXS05 ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x004f, t01=0x0128}
0x07cc0…07cd6 Head {h00=0x0012, h01=0x0050, text=»BMX05 SUK A1,2«, t00=0x004f, t01=0x0162}
0x07cd6…07d08 Head {h00=0x002e, h01=0x0050, text=»BMX10 SUK A7,1 DECREMENT NUMBER OF EXTENTS«, t00=0x004f, t01=0x0178}
0x07d08…07d24 Head {h00=0x0018, h01=0x0050, text=» RF(N) BMX99 NO MORE«, t00=0x0050, t01=0x001a}
0x07d24…07d52 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0050, t01=0x0036}
0x07d52…07d8c Head {h00=0x0036, h01=0x0050, text=» ST A12,STKEND+EXCTAB SAVE ADDRESS TO CONTR. BLOCK«, t00=0x0050, t01=0x0064}
0x07d8c…07dc4 Head {h00=0x0034, h01=0x0050, text=» ADKL A12,ACBLEN RESERVE AREA FOR CONTROL BLOCK «, t00=0x0050, t01=0x009e}
0x07dc4…07df4 Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x0050, t01=0x00d6}
0x07df4…07e1a Head {h00=0x0022, h01=0x0050, text=» ADK A1,2 NUMBER OF TASK ID:S «, t00=0x0050, t01=0x0106}
0x07e1a…07e46 Head {h00=0x0028, h01=0x0050, text=» LDR* A4,A1 GET NUMBER OF TASK ID:S «, t00=0x0050, t01=0x012c}
0x07e46…07e7a Head {h00=0x0030, h01=0x0050, text=»BMX20 SUK A4,1 DECREMENT NUMBER OF TASK ID:S«, t00=0x0050, t01=0x0158}
0x07e7a…07e96 Head {h00=0x0018, h01=0x0050, text=» RB(N) BMX10 NO MORE«, t00=0x0050, t01=0x018c}
0x07e96…07eb4 Head {h00=0x001a, h01=0x0050, text=» ADK A1,2 NEXT TASK ID«, t00=0x0051, t01=0x0018}
0x07eb4…07ec8 Head {h00=0x0010, h01=0x0050, text=» CALL MXTTAB«, t00=0x0051, t01=0x0036}
0x07ec8…07eda Head {h00=0x000e, h01=0x0050, text=» RB BMX20 «, t00=0x0051, t01=0x004a}
0x07eda…07ef6 Head {h00=0x0018, h01=0x0050, text=»BMX99 RTN A14 RETURN«, t00=0x0051, t01=0x005c}
0x07ef6…07f04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x0078}
0x07f04…07f50 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0051, t01=0x0086}
0x07f50…07f9c Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0051, t01=0x00d2}
0x07f9c…07fe8 Head {h00=0x0048, h01=0x0050, text=»* MXTTAB - GENERATE TTAB FOR MONITOR EXTENT TASK *«, t00=0x0051, t01=0x011e}
0x07fe8…08034 Head {h00=0x0048, h01=0x0050, text=»* ============================================== *«, t00=0x0051, t01=0x016a}
0x08034…08080 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0052, t01=0x0026}
0x08080…080cc Head {h00=0x0048, h01=0x0050, text=»* ENTRY: A1 -POINTER TO TASK ID IN MXSTAB *«, t00=0x0052, t01=0x0072}
0x080cc…08118 Head {h00=0x0048, h01=0x0050, text=»* A5 - POINTER TO MONITOR EXTENT BLOCK *«, t00=0x0052, t01=0x00be}
0x08118…08164 Head {h00=0x0048, h01=0x0050, text=»* A12 - POINTER TO START OF FREE AREA *«, t00=0x0052, t01=0x010a}
0x08164…081b0 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0052, t01=0x0156}
0x081b0…081fc Head {h00=0x0048, h01=0x0050, text=»* EXIT: A1 - POINTER TO TASK ID IN MXSTAB *«, t00=0x0053, t01=0x0012}
0x081fc…08248 Head {h00=0x0048, h01=0x0050, text=»* A5 - POINTER TO MONITOR EXTENT BLOCK *«, t00=0x0053, t01=0x005e}
0x08248…08294 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0053, t01=0x00aa}
0x08294…082e0 Head {h00=0x0048, h01=0x0050, text=»* WORK REGISTER: A2 *«, t00=0x0053, t01=0x00f6}
0x082e0…0832c Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0053, t01=0x0142}
0x0832c…08378 Head {h00=0x0048, h01=0x0050, text=»* SUBROUTINES: IMXTT,STRMOX,INBIMA *«, t00=0x0053, t01=0x018e}
0x08378…083c4 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0054, t01=0x004a}
0x083c4…08410 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0054, t01=0x0096}
0x08410…0841e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x00e2}
0x0841e…08432 Head {h00=0x0010, h01=0x0050, text=»MXTTAB EQU *«, t00=0x0054, t01=0x00f0}
0x08432…08462 Head {h00=0x002c, h01=0x0050, text=» MSR 4,A15 SAVE REGISTER A1-A4 ON STACK «, t00=0x0054, t01=0x0104}
0x08462…08490 Head {h00=0x002a, h01=0x0050, text=» CALL BMXSTT BUILD MONITOR EXTENT TTAB«, t00=0x0054, t01=0x0134}
0x08490…084b2 Head {h00=0x001e, h01=0x0050, text=» CALL IMXTT INIT MMU TABLE«, t00=0x0054, t01=0x0162}
0x084b2…084d2 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x0054, t01=0x0184}
0x084d2…084f6 Head {h00=0x0020, h01=0x0050, text=» CALL STRMOX STORE IN MOXTAB«, t00=0x0055, t01=0x0014}
0x084f6…08520 Head {h00=0x0026, h01=0x0050, text=» LD A2,MX:STA,A5 GET START ADDRESS«, t00=0x0055, t01=0x0038}
0x08520…08558 Head {h00=0x0034, h01=0x0050, text=» LD A3,STKEND+EXCTAB GET CURRENT EXTENT BLOCK =6«, t00=0x0055, t01=0x0062}
0x08558…08588 Head {h00=0x002c, h01=0x0050, text=» ST A2,APLSTA,A3 STORE START ADDRESS =6 «, t00=0x0055, t01=0x009a}
0x08588…085ac Head {h00=0x0020, h01=0x0050, text=» CALL STRMOX STORE IN MOXTAB«, t00=0x0055, t01=0x00ca}
0x085ac…085d2 Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A5 GET EXTENT ADDRESS«, t00=0x0055, t01=0x00ee}
0x085d2…085f8 Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/3FF GET DISPLACEMENT«, t00=0x0055, t01=0x0114}
0x085f8…0861a Head {h00=0x001e, h01=0x0050, text=» SLL A2,2 MAKE IT 12 BITS «, t00=0x0055, t01=0x013a}
0x0861a…08656 Head {h00=0x0038, h01=0x0050, text=» ST A2,TTB:CB,A12 STORE CURRENT SEGMENT BASE ADDRESS«, t00=0x0055, t01=0x015c}
0x08656…08680 Head {h00=0x0026, h01=0x0050, text=» ADK A2,12 5 WORDS FOR DEBUGGER =9«, t00=0x0056, t01=0x0008}
0x08680…086b4 Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:SA+26,A12 STORE IN A13 SAVE-AREA «, t00=0x0056, t01=0x0032}
0x086b4…086f2 Head {h00=0x003a, h01=0x0050, text=» LD A3,STKEND+EXCTAB GET CURRENT EXTENT CONTROL BLOCK «, t00=0x0056, t01=0x0066}
0x086f2…08708 Head {h00=0x0012, h01=0x0050, text=» SUK A2,2 =10«, t00=0x0056, t01=0x00a4}
0x08708…08744 Head {h00=0x0038, h01=0x0050, text=» ST A2,APLLAC,A3 STORE LOGICAL ADDR. TO COMMON PART «, t00=0x0056, t01=0x00ba}
0x08744…08776 Head {h00=0x002e, h01=0x0050, text=» ST A2,APLREL,A3 STORE RELOCATION BASE =6 «, t00=0x0056, t01=0x00f6}
0x08776…087a4 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,TTB:MT DISPL. TO COMMON PART «, t00=0x0056, t01=0x0128}
0x087a4…087da Head {h00=0x0032, h01=0x0050, text=» ST A2,APLMMC,A3 STORE IN EXTENT CONTROL BLOCK«, t00=0x0056, t01=0x0156}
0x087da…08816 Head {h00=0x0038, h01=0x0050, text=» ST A3,TTB:AP,A12 STORE EXTENT CONTROL BLOCK ADDRESS«, t00=0x0056, t01=0x018c}
0x08816…0883c Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0057, t01=0x0038}
0x0883c…08854 Head {h00=0x0014, h01=0x0050, text=» ANK A2,/20 EMM?«, t00=0x0057, t01=0x005e}
0x08854…0886c Head {h00=0x0014, h01=0x0050, text=» RF(Z) MXTT20 NO«, t00=0x0057, t01=0x0076}
0x0886c…08896 Head {h00=0x0026, h01=0x0050, text=» LD A2,MX:LEN,A5 GET EXTENT LENGTH«, t00=0x0057, t01=0x008e}
0x08896…088b4 Head {h00=0x001a, h01=0x0050, text=» ST A2,MAPLEN,A13 SAVE«, t00=0x0057, t01=0x00b8}
0x088b4…088de Head {h00=0x0026, h01=0x0050, text=» ST A12,TTAB,A13 SAVE TTAB ADDRESS«, t00=0x0057, t01=0x00d6}
0x088de…08900 Head {h00=0x001e, h01=0x0050, text=» CALL INBIMA INIT BIP MAP «, t00=0x0057, t01=0x0100}
0x08900…0892a Head {h00=0x0026, h01=0x0050, text=»MXTT20 MLR 4,A15 RESTORE REGISTERS«, t00=0x0057, t01=0x0122}
0x0892a…08942 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0057, t01=0x014c}
0x08942…08950 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0164}
0x08950…08986 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0057, t01=0x0172}
0x08986…089bc Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0058, t01=0x0018}
0x089bc…089f2 Head {h00=0x0032, h01=0x0050, text=»* STRMOX - STORE START ADDRRESS IN MOXTAB * «, t00=0x0058, t01=0x004e}
0x089f2…08a28 Head {h00=0x0032, h01=0x0050, text=»* ======================================= * «, t00=0x0058, t01=0x0084}
0x08a28…08a5e Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0058, t01=0x00ba}
0x08a5e…08a94 Head {h00=0x0032, h01=0x0050, text=»* REFERENCED IN: MXTTAB * «, t00=0x0058, t01=0x00f0}
0x08a94…08aca Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0058, t01=0x0126}
0x08aca…08b00 Head {h00=0x0032, h01=0x0050, text=»* ENTRY: A2 - VALUE TO STORE * «, t00=0x0058, t01=0x015c}
0x08b00…08b36 (89, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0059, t01=0x0004}
0x08b36…08b6c Head {h00=0x0032, h01=0x0050, text=»* EXIT: * «, t00=0x0059, t01=0x003a}
0x08b6c…08ba2 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0059, t01=0x0070}
0x08ba2…08bd8 Head {h00=0x0032, h01=0x0050, text=»* WORK REGISTERS: * «, t00=0x0059, t01=0x00a6}
0x08bd8…08c0e Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0059, t01=0x00dc}
0x08c0e…08c44 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0059, t01=0x0112}
0x08c44…08c7a Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0059, t01=0x0148}
0x08c7a…08cb0 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0059, t01=0x017e}
0x08cb0…08cc4 Head {h00=0x0010, h01=0x0050, text=»STRMOX EQU *«, t00=0x005a, t01=0x0024}
0x08cc4…08cee Head {h00=0x0026, h01=0x0050, text=» LD* A3,SCTMOX GET CURRENT LENGTH «, t00=0x005a, t01=0x0038}
0x08cee…08d1e Head {h00=0x002c, h01=0x0050, text=» AD A3,SCTMOX ADDRESS TO NEXT FREE ENTRY«, t00=0x005a, t01=0x0062}
0x08d1e…08d44 Head {h00=0x0022, h01=0x0050, text=» STR A2,A3 STORE START ADDRESS«, t00=0x005a, t01=0x0092}
0x08d44…08d68 Head {h00=0x0020, h01=0x0050, text=» IM* SCTMOX INCREMENT LENGTH«, t00=0x005a, t01=0x00b8}
0x08d68…08d82 Head {h00=0x0016, h01=0x0050, text=» IM* SCTMOX TWICE «, t00=0x005a, t01=0x00dc}
0x08d82…08d9a Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x005a, t01=0x00f6}
0x08d9a…08da8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x010e}
0x08da8…08de4 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x005a, t01=0x011c}
0x08de4…08e20 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005a, t01=0x0158}
0x08e20…08e5c (91, 0, 400) Head {h00=0x0038, h01=0x0050, text=»* IMXTT - INIT MMU TABLE FOR MONITOR EXTENT TASK *«, t00=0x005b, t01=0x0004}
0x08e5c…08e98 Head {h00=0x0038, h01=0x0050, text=»* ============================================== *«, t00=0x005b, t01=0x0040}
0x08e98…08ed4 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005b, t01=0x007c}
0x08ed4…08f10 Head {h00=0x0038, h01=0x0050, text=»* REFERENCED IN: MXTTAB *«, t00=0x005b, t01=0x00b8}
0x08f10…08f4c Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005b, t01=0x00f4}
0x08f4c…08f88 Head {h00=0x0038, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PHYSICAL ADDRESS *«, t00=0x005b, t01=0x0130}
0x08f88…08fc4 Head {h00=0x0038, h01=0x0050, text=»* A12 - TTAB ENTRY POINTER *«, t00=0x005b, t01=0x016c}
0x08fc4…09000 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005c, t01=0x0018}
0x09000…0903c Head {h00=0x0038, h01=0x0050, text=»* EXIT: *«, t00=0x005c, t01=0x0054}
0x0903c…09078 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005c, t01=0x0090}
0x09078…090b4 Head {h00=0x0038, h01=0x0050, text=»* WORK REGISTERS: A2,A3,A4,A9,A11 *«, t00=0x005c, t01=0x00cc}
0x090b4…090f0 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005c, t01=0x0108}
0x090f0…0912c Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINES: CMPADR *«, t00=0x005c, t01=0x0144}
0x0912c…09168 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005c, t01=0x0180}
0x09168…091a4 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x005d, t01=0x002c}
0x091a4…091b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005d, t01=0x0068}
0x091b2…091c6 Head {h00=0x0010, h01=0x0050, text=»IMXTT EQU * «, t00=0x005d, t01=0x0076}
0x091c6…091e8 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A12 GET TTAB ENTRY«, t00=0x005d, t01=0x008a}
0x091e8…09216 Head {h00=0x002a, h01=0x0050, text=» ADKL A2,TTB:MT GET START OF MMU TABLE«, t00=0x005d, t01=0x00ac}
0x09216…09248 Head {h00=0x002e, h01=0x0050, text=» LDR* A3,A5 GET PHYSICAL ADDRESS TO EXTENT«, t00=0x005d, t01=0x00da}
0x09248…09260 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A3 SAVE «, t00=0x005d, t01=0x010c}
0x09260…0928c Head {h00=0x0028, h01=0x0050, text=» ANKL A3,/FC00 PHYSICAL PAGE ADDRESS«, t00=0x005d, t01=0x0124}
0x0928c…092ae Head {h00=0x001e, h01=0x0050, text=» ANKL A4,/3FF DISPLACEMENT«, t00=0x005d, t01=0x0150}
0x092ae…092d0 Head {h00=0x001e, h01=0x0050, text=» SLL A4,2 MAKE IT 12 BITS «, t00=0x005d, t01=0x0172}
0x092d0…092fa (94, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LDKL A9,/1000 PHYSICAL PAGE SIZE «, t00=0x005e, t01=0x0004}
0x092fa…09312 Head {h00=0x0014, h01=0x0050, text=» SUR A9,A4 SAVE «, t00=0x005e, t01=0x002e}
0x09312…0933e Head {h00=0x0028, h01=0x0050, text=» LD A11,MX:LEN,A5 GET EXTENT LENGTH «, t00=0x005e, t01=0x0046}
0x0933e…09372 Head {h00=0x0030, h01=0x0050, text=» CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? «, t00=0x005e, t01=0x0072}
0x09372…0938a Head {h00=0x0014, h01=0x0050, text=» RF(G) IMX10 NO!«, t00=0x005e, t01=0x00a6}
0x0938a…093b4 Head {h00=0x0026, h01=0x0050, text=» XRR A11,A11 INDICATE SINGLE ENTRY«, t00=0x005e, t01=0x00be}
0x093b4…093c6 Head {h00=0x000e, h01=0x0050, text=» RF IMX20 «, t00=0x005e, t01=0x00e8}
0x093c6…09406 Head {h00=0x003c, h01=0x0050, text=»IMX10 SUR A11,A9 SUBTRACT REMAINING AREA IN CURRENT PAGE«, t00=0x005e, t01=0x00fa}
0x09406…09430 Head {h00=0x0026, h01=0x0050, text=»IMX20 STR A3,A2 STORE PAGE ADDRESS«, t00=0x005e, t01=0x013a}
0x09430…0945c Head {h00=0x0028, h01=0x0050, text=» ADKL A3,/400 INCREMENT PAGE ADDRESS«, t00=0x005e, t01=0x0164}
0x0945c…09486 Head {h00=0x0026, h01=0x0050, text=» ADK A2,2 INCREMENT ENTRY POINTER «, t00=0x005e, t01=0x0190}
0x09486…094ac Head {h00=0x0022, h01=0x0050, text=» ADKL A11,0 ONE ENTRY ENOUGTH?«, t00=0x005f, t01=0x002a}
0x094ac…094c6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) IMX99 YES! «, t00=0x005f, t01=0x0050}
0x094c6…094e2 Head {h00=0x0018, h01=0x0050, text=» RF(NN) IMX30 <32KB «, t00=0x005f, t01=0x006a}
0x094e2…0950a Head {h00=0x0024, h01=0x0050, text=» SUKL A11,/1000 DECREMENT LENGTH«, t00=0x005f, t01=0x0086}
0x0950a…0951c Head {h00=0x000e, h01=0x0050, text=» RB IMX20 «, t00=0x005f, t01=0x00ae}
0x0951c…09546 Head {h00=0x0026, h01=0x0050, text=»IMX30 STR A3,A2 STORE PAGE ADDRESS«, t00=0x005f, t01=0x00c0}
0x09546…09572 Head {h00=0x0028, h01=0x0050, text=» ADKL A3,/400 INCREMENT PAGE ADDRESS«, t00=0x005f, t01=0x00ea}
0x09572…0959c Head {h00=0x0026, h01=0x0050, text=» ADK A2,2 INCREMENT ENTRY POINTER «, t00=0x005f, t01=0x0116}
0x0959c…095c4 Head {h00=0x0024, h01=0x0050, text=» SUKL A11,/1000 DECREMENT LENGTH«, t00=0x005f, t01=0x0140}
0x095c4…095d8 Head {h00=0x0010, h01=0x0050, text=» RB(P) IMX30«, t00=0x005f, t01=0x0168}
0x095d8…095f0 Head {h00=0x0014, h01=0x0050, text=»IMX99 EQU * =6 «, t00=0x005f, t01=0x017c}
0x095f0…09616 (96, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LDR A4,A12 GET TTAB ENTRY =6 «, t00=0x0060, t01=0x0004}
0x09616…09648 Head {h00=0x002e, h01=0x0050, text=» ADKL A4,TTB:MT+32 GET END OF MMU-TABLE =6«, t00=0x0060, t01=0x002a}
0x09648…09662 Head {h00=0x0016, h01=0x0050, text=» LDKL A3,/FC00 =6«, t00=0x0060, t01=0x005c}
0x09662…0967a Head {h00=0x0014, h01=0x0050, text=»IMX100 EQU * =6 «, t00=0x0060, t01=0x0076}
0x0967a…096aa Head {h00=0x002c, h01=0x0050, text=» CWR A4,A2 ENTRIES LEFT IN MMU-TABLE? =6«, t00=0x0060, t01=0x008e}
0x096aa…096c6 Head {h00=0x0018, h01=0x0050, text=» RF(E) IMX110 NO! =6«, t00=0x0060, t01=0x00be}
0x096c6…096fa Head {h00=0x0030, h01=0x0050, text=» STR A3,A2 STORE PAGE ERROR IN MMU-ENTRY =6 «, t00=0x0060, t01=0x00da}
0x096fa…0971e Head {h00=0x0020, h01=0x0050, text=» ADK A2,2 NEXT MMU-ENTRY =6 «, t00=0x0060, t01=0x010e}
0x0971e…09734 Head {h00=0x0012, h01=0x0050, text=» RB IMX100 =6«, t00=0x0060, t01=0x0132}
0x09734…0974c Head {h00=0x0014, h01=0x0050, text=»IMX110 EQU * =6«, t00=0x0060, t01=0x0148}
0x0974c…09760 Head {h00=0x0010, h01=0x0050, text=» RTN A14 =6«, t00=0x0060, t01=0x0160}
0x09760…0976e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x0174}
0x0976e…097ae Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0060, t01=0x0182}
0x097ae…097ee Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0061, t01=0x0032}
0x097ee…0982e Head {h00=0x003c, h01=0x0050, text=»* B:MSEG - BUILD MONITOR TASK SEGMENT TABLES & TTABS *«, t00=0x0061, t01=0x0072}
0x0982e…0986e Head {h00=0x003c, h01=0x0050, text=»* ================================================== *«, t00=0x0061, t01=0x00b2}
0x0986e…098ae Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0061, t01=0x00f2}
0x098ae…098ee Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: SYSLDM *«, t00=0x0061, t01=0x0132}
0x098ee…0992e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0061, t01=0x0172}
0x0992e…0996e Head {h00=0x003c, h01=0x0050, text=»* ENTRY: *«, t00=0x0062, t01=0x0022}
0x0996e…099ae Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0062, t01=0x0062}
0x099ae…099ee Head {h00=0x003c, h01=0x0050, text=»* EXIT: *«, t00=0x0062, t01=0x00a2}
0x099ee…09a2e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0062, t01=0x00e2}
0x09a2e…09a6e Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTERS: A1-A12 *«, t00=0x0062, t01=0x0122}
0x09a6e…09aae Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0062, t01=0x0162}
0x09aae…09aee Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: MX:MST,MX:STD,BMSTAB,CHKTAD,BMXSTT *«, t00=0x0063, t01=0x0012}
0x09aee…09b2e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0063, t01=0x0052}
0x09b2e…09b6e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0063, t01=0x0092}
0x09b6e…09b7c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x00d2}
0x09b7c…09b90 Head {h00=0x0010, h01=0x0050, text=»B:MSEG EQU *«, t00=0x0063, t01=0x00e0}
0x09b90…09bc6 Head {h00=0x0032, h01=0x0050, text=» CALL MX:MST FIND FIRST MONITOR SEGMENT TABLE «, t00=0x0063, t01=0x00f4}
0x09bc6…09bfa Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0063, t01=0x012a}
0x09bfa…09c2e Head {h00=0x0030, h01=0x0050, text=» LDR A4,A5 SAVE POINTER TO NUMBER OF SEGTABS«, t00=0x0063, t01=0x015e}
0x09c2e…09c6c (100, 0, 400) Head {h00=0x003a, h01=0x0050, text=» LDR A8,A1 SAVE POINTER TO FIRST MONITOR SEGMENT TABLE«, t00=0x0064, t01=0x0004}
0x09c6c…09ca6 Head {h00=0x0036, h01=0x0050, text=» CALL MX:STD FIND FIRST MONITOR SEGMENT TABLE TASK«, t00=0x0064, t01=0x0042}
0x09ca6…09cc2 Head {h00=0x0018, h01=0x0050, text=» DEFINITION BLOCK «, t00=0x0064, t01=0x007c}
0x09cc2…09d04 Head {h00=0x003e, h01=0x0050, text=»BMSG10 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES«, t00=0x0064, t01=0x0098}
0x09d04…09d22 Head {h00=0x001a, h01=0x0050, text=» RF(N) BMSG99 NO MORE!«, t00=0x0064, t01=0x00da}
0x09d22…09d62 Head {h00=0x003c, h01=0x0050, text=» CM STKEND+SCBTAB CLEAR ADDRESS TO SEGMENT CONTROL BLOCK«, t00=0x0064, t01=0x00f8}
0x09d62…09d96 Head {h00=0x0030, h01=0x0050, text=» CM STKEND+MAXSGM CLEAR MAXIMUM SEGMENT SIZE«, t00=0x0064, t01=0x0138}
0x09d96…09dd0 Head {h00=0x0036, h01=0x0050, text=» ADK A4,2 INCREMENT POINTER TO NUMBER OF SEGMENTS «, t00=0x0064, t01=0x016c}
0x09dd0…09e00 Head {h00=0x002c, h01=0x0050, text=» CALL BMSTAB BUILD MONITOR SEGMENT TABLE«, t00=0x0065, t01=0x0016}
0x09e00…09e32 Head {h00=0x002e, h01=0x0050, text=» LDR* A7,A1 GET NUMBER OF TASKS IN SEGTAB «, t00=0x0065, t01=0x0046}
0x09e32…09e56 Head {h00=0x0020, h01=0x0050, text=»BMSG20 ADK A1,2 NEXT TASK ID«, t00=0x0065, t01=0x0078}
0x09e56…09e86 Head {h00=0x002c, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF TASK ID:S «, t00=0x0065, t01=0x009c}
0x09e86…09ea4 Head {h00=0x001a, h01=0x0050, text=» RB(N) BMSG10 NO MORE!«, t00=0x0065, t01=0x00cc}
0x09ea4…09ed6 Head {h00=0x002e, h01=0x0050, text=» CALL CHKTAD CHECK IF TASK ALREADY DEFINED«, t00=0x0065, t01=0x00ea}
0x09ed6…09f02 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) BMSG30 TASK ALREADY DEFINED!«, t00=0x0065, t01=0x011c}
0x09f02…09f3a Head {h00=0x0034, h01=0x0050, text=» CALL BMXSTT BUILD TTAB FOR MONITOR SEGMENT TASK«, t00=0x0065, t01=0x0148}
0x09f3a…09f72 Head {h00=0x0034, h01=0x0050, text=» LD A10,STKEND+SCBTAB GET SEGMENT CONTROL BLOCK «, t00=0x0065, t01=0x0180}
0x09f72…09fa8 Head {h00=0x0032, h01=0x0050, text=» RF(NZ) BMSG25 SEGMENT CONTROL BLOCK GENERATED«, t00=0x0066, t01=0x0028}
0x09fa8…09fd6 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0066, t01=0x005e}
0x09fd6…09ff0 Head {h00=0x0016, h01=0x0050, text=» LDR A10,A12 SAVE «, t00=0x0066, t01=0x008c}
0x09ff0…0a02a Head {h00=0x0036, h01=0x0050, text=» ADKL A12,ACBLEN RESERVE FOR SEGMENT CONTROL BLOCK«, t00=0x0066, t01=0x00a6}
0x0a02a…0a05a Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x0066, t01=0x00e0}
0x0a05a…0a0a2 Head {h00=0x0044, h01=0x0050, text=»BMSG25 ST A10,TTB:AP,A12 STORE ADDRESS TO SEGMENT CONTROL BLOCK «, t00=0x0066, t01=0x0110}
0x0a0a2…0a0de Head {h00=0x0038, h01=0x0050, text=»BMSG30 ST A5,TTB:SP,A12 STORE SEGMENT TABLE POINTER «, t00=0x0066, t01=0x0158}
0x0a0de…0a11e (103, 0, 400) Head {h00=0x003c, h01=0x0050, text=» LD A10,TTB:AP,A12 GET ADDRESS TO SEGMENT CONTROL BLOCK «, t00=0x0067, t01=0x0004}
0x0a11e…0a154 Head {h00=0x0032, h01=0x0050, text=» LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE «, t00=0x0067, t01=0x0044}
0x0a154…0a182 Head {h00=0x002a, h01=0x0050, text=» ADKL A3,/FFFF NUMBER OF 4K-MULTIPLES «, t00=0x0067, t01=0x007a}
0x0a182…0a1b8 Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/F000 ISOLATE NUMBER OF 4K-MULTIPLES «, t00=0x0067, t01=0x00a8}
0x0a1b8…0a1e4 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/F000 END OF LOGICAL MEMORY«, t00=0x0067, t01=0x00de}
0x0a1e4…0a214 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A3 COMPUTE LOGICAL PAGE ADDRESS «, t00=0x0067, t01=0x010a}
0x0a214…0a24a Head {h00=0x0032, h01=0x0050, text=» LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE «, t00=0x0067, t01=0x013a}
0x0a24a…0a272 Head {h00=0x0024, h01=0x0050, text=» ANKL A3,/FFF EVEN 4K-MULTIPLE? «, t00=0x0067, t01=0x0170}
0x0a272…0a28c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BMSG40 NO!«, t00=0x0068, t01=0x0008}
0x0a28c…0a2b6 Head {h00=0x0026, h01=0x0050, text=» ADKL A2,/1000 SAVE ONE MMU ENTRY «, t00=0x0068, t01=0x0022}
0x0a2b6…0a2f4 Head {h00=0x003a, h01=0x0050, text=»BMSG40 ST A2,APLLAP,A10 STORE IN SEGMENT CONTROL TABLE«, t00=0x0068, t01=0x004c}
0x0a2f4…0a316 Head {h00=0x001e, h01=0x0050, text=» SRL A2,12 MMU TABLE ENTRY«, t00=0x0068, t01=0x008a}
0x0a316…0a33e Head {h00=0x0024, h01=0x0050, text=» LDK A3,16 NUMBER OF MMU ENTRIES«, t00=0x0068, t01=0x00ac}
0x0a33e…0a370 Head {h00=0x002e, h01=0x0050, text=» SUR A3,A2 COMPUTE NUMBER OF PAGE ENTRIES «, t00=0x0068, t01=0x00d4}
0x0a370…0a3a8 Head {h00=0x0034, h01=0x0050, text=» ST A3,APLNPE,A10 STORE IN SEGMENT CONTROL TABLE«, t00=0x0068, t01=0x0106}
0x0a3a8…0a3ca Head {h00=0x001e, h01=0x0050, text=» SLL A3,1 MULTIPLY BY TWO «, t00=0x0068, t01=0x013e}
0x0a3ca…0a3f8 Head {h00=0x002a, h01=0x0050, text=» NGR A3,A3 MAKE NEGATIVE DISPLACEMENT «, t00=0x0068, t01=0x0160}
0x0a3f8…0a42a Head {h00=0x002e, h01=0x0050, text=» ADKL A3,TTB:CB DISPL TO END OF MMU TABLE «, t00=0x0068, t01=0x018e}
0x0a42a…0a462 Head {h00=0x0034, h01=0x0050, text=» ST A3,APLMMP,A10 STORE IN SEGMENT CONTROL TABLE«, t00=0x0069, t01=0x0030}
0x0a462…0a498 Head {h00=0x0032, h01=0x0050, text=» LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE «, t00=0x0069, t01=0x0068}
0x0a498…0a4cc Head {h00=0x0030, h01=0x0050, text=» ADKL A3,/3FF COMPUTE NUMBER OF 1K-MULTIPLES«, t00=0x0069, t01=0x009e}
0x0a4cc…0a502 Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/FC00 ISOLATE NUMBER OF 1K-MULTIPLES «, t00=0x0069, t01=0x00d2}
0x0a502…0a52e Head {h00=0x0028, h01=0x0050, text=» LDR A11,A3 GET CURRENT SEGMENT SIZE«, t00=0x0069, t01=0x0108}
0x0a52e…0a558 Head {h00=0x0026, h01=0x0050, text=» LD A9,SCTPSZ GET MAX SEGMENT SIZE«, t00=0x0069, t01=0x0134}
0x0a558…0a586 Head {h00=0x002a, h01=0x0050, text=» CALL CMPADR CURRENT SEGMENT GREATER? «, t00=0x0069, t01=0x015e}
0x0a586…0a59e Head {h00=0x0014, h01=0x0050, text=» RB(L) BMSG20 NO«, t00=0x0069, t01=0x018c}
0x0a59e…0a5cc Head {h00=0x002a, h01=0x0050, text=» ST A3,SCTPSZ UPDATE MAX SEGMENT SIZE «, t00=0x006a, t01=0x0014}
0x0a5cc…0a5de Head {h00=0x000e, h01=0x0050, text=» RB BMSG20«, t00=0x006a, t01=0x0042}
0x0a5de…0a5fc Head {h00=0x001a, h01=0x0050, text=»BMSG99 RTN A14 RETURN «, t00=0x006a, t01=0x0054}
0x0a5fc…0a60a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x0072}
0x0a60a…0a64c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006a, t01=0x0080}
0x0a64c…0a68e Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006a, t01=0x00c2}
0x0a68e…0a6d0 Head {h00=0x003e, h01=0x0050, text=»* BMSTAB - BUILD MONITOR SEGMENT TABLE *«, t00=0x006a, t01=0x0104}
0x0a6d0…0a712 Head {h00=0x003e, h01=0x0050, text=»* ==================================== *«, t00=0x006a, t01=0x0146}
0x0a712…0a754 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006a, t01=0x0188}
0x0a754…0a796 Head {h00=0x003e, h01=0x0050, text=»* REFERENCED IN: B:MSEG *«, t00=0x006b, t01=0x003a}
0x0a796…0a7d8 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006b, t01=0x007c}
0x0a7d8…0a81a Head {h00=0x003e, h01=0x0050, text=»* ENTRY: A4 - POINTER TO NUMBER OF SEGMENTS *«, t00=0x006b, t01=0x00be}
0x0a81a…0a85c Head {h00=0x003e, h01=0x0050, text=»* A8 - POINTER TO SEGMENT CLUSTER IN MXSTAB *«, t00=0x006b, t01=0x0100}
0x0a85c…0a89e Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006b, t01=0x0142}
0x0a89e…0a8e0 Head {h00=0x003e, h01=0x0050, text=»* EXIT: A5 - SEGMENT TABLE ADDRESS *«, t00=0x006b, t01=0x0184}
0x0a8e0…0a922 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006c, t01=0x0036}
0x0a922…0a964 Head {h00=0x003e, h01=0x0050, text=»* WORK REGISTERS: A2,A3,A9,A11 *«, t00=0x006c, t01=0x0078}
0x0a964…0a9a6 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006c, t01=0x00ba}
0x0a9a6…0a9e8 Head {h00=0x003e, h01=0x0050, text=»* SUBROUTINES: CMPADR,ERROR *«, t00=0x006c, t01=0x00fc}
0x0a9e8…0aa2a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006c, t01=0x013e}
0x0aa2a…0aa6c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006c, t01=0x0180}
0x0aa6c…0aa7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x0032}
0x0aa7a…0aa8e Head {h00=0x0010, h01=0x0050, text=»BMSTAB EQU *«, t00=0x006d, t01=0x0040}
0x0aa8e…0aabc Head {h00=0x002a, h01=0x0050, text=» STR A1,A15 SAVE REGISTER A1 ON STACK «, t00=0x006d, t01=0x0054}
0x0aabc…0aae8 Head {h00=0x0028, h01=0x0050, text=» LD A5,SCTSFA GET START OF FREE AREA«, t00=0x006d, t01=0x0082}
0x0aae8…0ab16 Head {h00=0x002a, h01=0x0050, text=» LD A2,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x006d, t01=0x00ae}
0x0ab16…0ab40 Head {h00=0x0026, h01=0x0050, text=» STR A2,A5 STORE IN SEGMENT TABLE «, t00=0x006d, t01=0x00dc}
0x0ab40…0ab6e Head {h00=0x002a, h01=0x0050, text=» ADK A5,2 NEXT ENTRY IN SEGMENT TABLE «, t00=0x006d, t01=0x0106}
0x0ab6e…0ab98 Head {h00=0x0026, h01=0x0050, text=» LDR* A9,A4 GET NUMBER OF SEGMENTS«, t00=0x006d, t01=0x0134}
0x0ab98…0abb0 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A9 SAVE «, t00=0x006d, t01=0x015e}
0x0abb0…0abda Head {h00=0x0026, h01=0x0050, text=» STR A9,A5 STORE IN SEGMENT TABLE «, t00=0x006d, t01=0x0176}
0x0abda…0ac1a Head {h00=0x003c, h01=0x0050, text=» ADS A9,STKCOM+TOTSGM INCREMENT TOTAL NUMBER OF SEGMENTS«, t00=0x006e, t01=0x0010}
0x0ac1a…0ac40 Head {h00=0x0022, h01=0x0050, text=» ADK A5,2 SEGMENT TABLE ENTRY «, t00=0x006e, t01=0x0050}
0x0ac40…0ac58 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A5 SAVE «, t00=0x006e, t01=0x0076}
0x0ac58…0ac62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x008e}
0x0ac62…0ac82 Head {h00=0x001c, h01=0x0050, text=»* BUILD SEGMENT BLOCK 0«, t00=0x006e, t01=0x0098}
0x0ac82…0ac8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00b8}
0x0ac8c…0acb8 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/8400 STATUS FOR SEGMENT 0 «, t00=0x006e, t01=0x00c2}
0x0acb8…0ace4 Head {h00=0x0028, h01=0x0050, text=» STR A2,A3 STORE IN SEGMENT BLOCK 0 «, t00=0x006e, t01=0x00ee}
0x0ace4…0ad1e Head {h00=0x0036, h01=0x0050, text=»BMST20 ST A1,STKEND+SGMCNT SAVE NUMBER OF SEGMENTS«, t00=0x006e, t01=0x011a}
0x0ad1e…0ad42 Head {h00=0x0020, h01=0x0050, text=» ADK A3,8 NEXT SEGMENT BLOCK«, t00=0x006e, t01=0x0154}
0x0ad42…0ad74 Head {h00=0x002e, h01=0x0050, text=» LD A9,STKEND+LIMIT GET END OF SYSTEM AREA«, t00=0x006e, t01=0x0178}
0x0ad74…0ada2 Head {h00=0x002a, h01=0x0050, text=» LDR A11,A3 GET END OF SEGMENT BLOCKS «, t00=0x006f, t01=0x001a}
0x0ada2…0adc8 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x006f, t01=0x0048}
0x0adc8…0ade2 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BMST25 OK «, t00=0x006f, t01=0x006e}
0x0ade2…0ae10 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x006f, t01=0x0088}
0x0ae10…0ae24 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006f, t01=0x00b6}
0x0ae24…0ae4e Head {h00=0x0026, h01=0x0050, text=»BMST25 LDR* A2,A8 GET SEGMENT TYPE«, t00=0x006f, t01=0x00ca}
0x0ae4e…0ae68 Head {h00=0x0016, h01=0x0050, text=» SRL A2,8 ISOLATE «, t00=0x006f, t01=0x00f4}
0x0ae68…0ae94 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'RR' CORE RESIDENT SEGMENT? «, t00=0x006f, t01=0x010e}
0x0ae94…0aeae Head {h00=0x0016, h01=0x0050, text=» RF(E) BMST40 YES!«, t00=0x006f, t01=0x013a}
0x0aeae…0aed4 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x006f, t01=0x0154}
0x0aed4…0aef2 Head {h00=0x001a, h01=0x0050, text=» ANK A2,2 DISC PAGING?«, t00=0x006f, t01=0x017a}
0x0aef2…0af0c Head {h00=0x0016, h01=0x0050, text=» RF(Z) BMST40 NO! «, t00=0x0070, t01=0x0008}
0x0af0c…0af16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0022}
0x0af16…0af44 Head {h00=0x002a, h01=0x0050, text=»* DISC PAGING & DISC RESIDENT SEGMENT«, t00=0x0070, t01=0x002c}
0x0af44…0af4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x005a}
0x0af4e…0af7a Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x0070, t01=0x0064}
0x0af7a…0afae Head {h00=0x0030, h01=0x0050, text=» LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31«, t00=0x0070, t01=0x0090}
0x0afae…0afe2 Head {h00=0x0030, h01=0x0050, text=» LD A1,MX:DA1,A1 GET DISC ADDRESS BITS 0-15 «, t00=0x0070, t01=0x00c4}
0x0afe2…0b00a Head {h00=0x0024, h01=0x0050, text=» LD A10,2,A8 GET RELOCATION BASE«, t00=0x0070, t01=0x00f8}
0x0b00a…0b034 Head {h00=0x0026, h01=0x0050, text=» ADR A2,A10 RELOCATE DISC ADDRESS «, t00=0x0070, t01=0x0120}
0x0b034…0b054 Head {h00=0x001c, h01=0x0050, text=» RF(P) BMST30 NO CARRY! «, t00=0x0070, t01=0x014a}
0x0b054…0b076 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/7FFF CLEAR BIT 0«, t00=0x0070, t01=0x016a}
0x0b076…0b092 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADD CARRY «, t00=0x0070, t01=0x018c}
0x0b092…0b0b4 Head {h00=0x001e, h01=0x0050, text=» RF(P) BMST30 NOT OVERFLOW«, t00=0x0071, t01=0x0018}
0x0b0b4…0b0e0 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP10 DISC ADDRESS OVERFLOW«, t00=0x0071, t01=0x003a}
0x0b0e0…0b0f4 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0071, t01=0x0066}
0x0b0f4…0b12c Head {h00=0x0034, h01=0x0050, text=»BMST30 ORKL A1,/4000 INDICATE ASSEMBLER SEGMENT «, t00=0x0071, t01=0x007a}
0x0b12c…0b164 Head {h00=0x0034, h01=0x0050, text=» STR A1,A3 STORE SEGMENT DISC ADDRESS BITS 0-15 «, t00=0x0071, t01=0x00b2}
0x0b164…0b19e Head {h00=0x0036, h01=0x0050, text=» ST A2,2,A3 STORE SEGMENT DISC ADDRESS BITS 16-31 «, t00=0x0071, t01=0x00ea}
0x0b19e…0b1b0 Head {h00=0x000e, h01=0x0050, text=» RF BMST50«, t00=0x0071, t01=0x0124}
0x0b1b0…0b1ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0136}
0x0b1ba…0b1ec Head {h00=0x002e, h01=0x0050, text=»* DISC RESIDENT SEGMENT OR NO DISC PAGING«, t00=0x0071, t01=0x0140}
0x0b1ec…0b1f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0172}
0x0b1f6…0b234 Head {h00=0x003a, h01=0x0050, text=»BMST40 LDKL A2,/8800 STATUS FOR DISC RESIDENT SEGMENT «, t00=0x0071, t01=0x017c}
0x0b234…0b25e Head {h00=0x0026, h01=0x0050, text=» STR A2,A3 STORE IN SEGMENT BLOCK «, t00=0x0072, t01=0x002a}
0x0b25e…0b28a Head {h00=0x0028, h01=0x0050, text=»BMST50 LD A9,4,A8 GET SEGMENT LENGTH«, t00=0x0072, t01=0x0054}
0x0b28a…0b2c2 Head {h00=0x0034, h01=0x0050, text=» LD A11,STKEND+MAXSGM GET MAXIMUM SEGMENT LENGTH«, t00=0x0072, t01=0x0080}
0x0b2c2…0b2d6 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x0072, t01=0x00b8}
0x0b2d6…0b308 Head {h00=0x002e, h01=0x0050, text=» RF(NL) BMST55 CURRENT SEGMENT NOT GREATER«, t00=0x0072, t01=0x00cc}
0x0b308…0b342 Head {h00=0x0036, h01=0x0050, text=» ST A9,STKEND+MAXSGM UPDATE MAXIMUM SEGMENT LENGTH«, t00=0x0072, t01=0x00fe}
0x0b342…0b382 Head {h00=0x003c, h01=0x0050, text=»BMST55 ST A9,4,A3 STORE SEGMENT LENGTH IN SEGMENT BLOCK «, t00=0x0072, t01=0x0138}
0x0b382…0b3b0 Head {h00=0x002a, h01=0x0050, text=» ADKL A8,6 INCREMENT POINTER IN MXSTAB«, t00=0x0072, t01=0x0178}
0x0b3b0…0b3e4 Head {h00=0x0030, h01=0x0050, text=» LD A1,STKEND+SGMCNT GET NUMBER OF SEGMENTS «, t00=0x0073, t01=0x0016}
0x0b3e4…0b3f6 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0073, t01=0x004a}
0x0b3f6…0b41a Head {h00=0x0020, h01=0x0050, text=» RB(NZ) BMST20 MORE SEGMENTS«, t00=0x0073, t01=0x005c}
0x0b41a…0b440 Head {h00=0x0022, h01=0x0050, text=» ADK A3,8 END OF SEGMENT TABLE«, t00=0x0073, t01=0x0080}
0x0b440…0b476 Head {h00=0x0032, h01=0x0050, text=»BMST60 ST A3,SCTSFA UPDATE START OF FREE AREA «, t00=0x0073, t01=0x00a6}
0x0b476…0b49e Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A15 RESTORE REGISTER A1«, t00=0x0073, t01=0x00dc}
0x0b49e…0b4ae Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0073, t01=0x0104}
0x0b4ae…0b4bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x0114}
0x0b4bc…0b500 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0073, t01=0x0122}
0x0b500…0b544 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0073, t01=0x0166}
0x0b544…0b588 Head {h00=0x0040, h01=0x0050, text=»* CHKTAD - CHECK IF TASK ALREADY DEFINED *«, t00=0x0074, t01=0x001a}
0x0b588…0b5cc Head {h00=0x0040, h01=0x0050, text=»* ====================================== *«, t00=0x0074, t01=0x005e}
0x0b5cc…0b610 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0074, t01=0x00a2}
0x0b610…0b654 Head {h00=0x0040, h01=0x0050, text=»* REFERENCED IN: B:MSEG *«, t00=0x0074, t01=0x00e6}
0x0b654…0b698 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0074, t01=0x012a}
0x0b698…0b6dc Head {h00=0x0040, h01=0x0050, text=»* ENTRY: A1 - POINTER TO TASK ID *«, t00=0x0074, t01=0x016e}
0x0b6dc…0b720 Head {h00=0x0040, h01=0x0050, text=»* FOR MONITOR SEGMENT TASK *«, t00=0x0075, t01=0x0022}
0x0b720…0b764 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0075, t01=0x0066}
0x0b764…0b7a8 Head {h00=0x0040, h01=0x0050, text=»* EXIT: A12 - TTAB ADDRESS IF TASK ALREADY DEFINED *«, t00=0x0075, t01=0x00aa}
0x0b7a8…0b7ec Head {h00=0x0040, h01=0x0050, text=»* A12 = 0 IF TASK NOT DEFINED *«, t00=0x0075, t01=0x00ee}
0x0b7ec…0b830 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0075, t01=0x0132}
0x0b830…0b874 Head {h00=0x0040, h01=0x0050, text=»* WORK REGISTERS: A2,A3 *«, t00=0x0075, t01=0x0176}
0x0b874…0b8b8 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0076, t01=0x002a}
0x0b8b8…0b8fc Head {h00=0x0040, h01=0x0050, text=»* SUBROUTINES: PSW *«, t00=0x0076, t01=0x006e}
0x0b8fc…0b940 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0076, t01=0x00b2}
0x0b940…0b984 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0076, t01=0x00f6}
0x0b984…0b992 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x013a}
0x0b992…0b9a6 Head {h00=0x0010, h01=0x0050, text=»CHKTAD EQU *«, t00=0x0076, t01=0x0148}
0x0b9a6…0b9d0 Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET LENGTH OF TCTAB«, t00=0x0076, t01=0x015c}
0x0b9d0…0b9f2 Head {h00=0x001e, h01=0x0050, text=» AD A2,SCTTCT END OF TCTAB«, t00=0x0076, t01=0x0186}
0x0b9f2…0ba24 Head {h00=0x002e, h01=0x0050, text=»CHKT20 SUK A2,2 DECREMENT POINTER IN TCTAB«, t00=0x0077, t01=0x0018}
0x0ba24…0ba4a Head {h00=0x0022, h01=0x0050, text=» CW A2,SCTTCT START OF TCTAB? «, t00=0x0077, t01=0x004a}
0x0ba4a…0ba78 Head {h00=0x002a, h01=0x0050, text=» RF(E) CHKT30 YES: ALL TASKS CHECKED! «, t00=0x0077, t01=0x0070}
0x0ba78…0baa0 Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET POINTER TO TTAB «, t00=0x0077, t01=0x009e}
0x0baa0…0bac4 Head {h00=0x0020, h01=0x0050, text=» LD A3,TTB:ID,A3 GET TASK ID«, t00=0x0077, t01=0x00c6}
0x0bac4…0baf0 Head {h00=0x0028, h01=0x0050, text=» CWR* A3,A1 EQUAL TO CURRENT TASKS? «, t00=0x0077, t01=0x00ea}
0x0baf0…0bb0a Head {h00=0x0016, h01=0x0050, text=» RB(NE) CHKT20 NO «, t00=0x0077, t01=0x0116}
0x0bb0a…0bb30 Head {h00=0x0022, h01=0x0050, text=» LDR* A12,A2 GET TTAB POINTER «, t00=0x0077, t01=0x0130}
0x0bb30…0bb42 Head {h00=0x000e, h01=0x0050, text=» RF CHKT50«, t00=0x0077, t01=0x0156}
0x0bb42…0bb74 Head {h00=0x002e, h01=0x0050, text=»CHKT30 LDKL A12,0 INDICATE TASK NOT FOUND «, t00=0x0077, t01=0x0168}
0x0bb74…0bba6 Head {h00=0x002e, h01=0x0050, text=»CHKT50 CFI A14,PSW,A13 STORE PSW ON STACK «, t00=0x0078, t01=0x000a}
0x0bba6…0bbb6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0078, t01=0x003c}
0x0bbb6…0bbc4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x004c}
0x0bbc4…0bc10 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0078, t01=0x005a}
0x0bc10…0bc5c Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0078, t01=0x00a6}
0x0bc5c…0bca8 Head {h00=0x0048, h01=0x0050, text=»* BMXSTT - BUILD MONITOR EXTENT & SEGMENT TTABS * «, t00=0x0078, t01=0x00f2}
0x0bca8…0bcf4 Head {h00=0x0048, h01=0x0050, text=»* ============================================= * «, t00=0x0078, t01=0x013e}
0x0bcf4…0bd40 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0078, t01=0x018a}
0x0bd40…0bd8c Head {h00=0x0048, h01=0x0050, text=»* REFERENCED IN: MXTTAB,B:MSEG * «, t00=0x0079, t01=0x0046}
0x0bd8c…0bdd8 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0079, t01=0x0092}
0x0bdd8…0be24 Head {h00=0x0048, h01=0x0050, text=»* ENTRY: * «, t00=0x0079, t01=0x00de}
0x0be24…0be70 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0079, t01=0x012a}
0x0be70…0bebc Head {h00=0x0048, h01=0x0050, text=»* EXIT: A12 - TTAB ADDRESS * «, t00=0x0079, t01=0x0176}
0x0bebc…0bf08 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x007a, t01=0x0032}
0x0bf08…0bf54 Head {h00=0x0048, h01=0x0050, text=»* WORK REGISTERS: A2,A9,A10,A11 * «, t00=0x007a, t01=0x007e}
0x0bf54…0bfa0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x007a, t01=0x00ca}
0x0bfa0…0bfec Head {h00=0x0048, h01=0x0050, text=»* SUBROUTINES: CMPADR,ERROR * «, t00=0x007a, t01=0x0116}
0x0bfec…0c038 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x007a, t01=0x0162}
0x0c038…0c084 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x007b, t01=0x001e}
0x0c084…0c098 Head {h00=0x0010, h01=0x0050, text=»BMXSTT EQU *«, t00=0x007b, t01=0x006a}
0x0c098…0c0c6 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x007b, t01=0x007e}
0x0c0c6…0c0f6 Head {h00=0x002c, h01=0x0050, text=» LDKL A10,TTB:TD+2 STANDARD TTAB LENGTH «, t00=0x007b, t01=0x00ac}
0x0c0f6…0c11c Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x007b, t01=0x00dc}
0x0c11c…0c134 Head {h00=0x0014, h01=0x0050, text=» ANK A2,/21 EMM?«, t00=0x007b, t01=0x0102}
0x0c134…0c148 Head {h00=0x0010, h01=0x0050, text=» XRK A2,/21 «, t00=0x007b, t01=0x011a}
0x0c148…0c15e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) BMXS20«, t00=0x007b, t01=0x012e}
0x0c15e…0c196 Head {h00=0x0034, h01=0x0050, text=» SUKL A12,TTB:AM INCLUDE MMU ALLOCATION BIT MAP «, t00=0x007b, t01=0x0144}
0x0c196…0c1be Head {h00=0x0024, h01=0x0050, text=» SUKL A10,TTB:AM INCLUDE LENGTH «, t00=0x007b, t01=0x017c}
0x0c1be…0c1d0 Head {h00=0x000e, h01=0x0050, text=» RF BMXS40«, t00=0x007c, t01=0x0014}
0x0c1d0…0c1fc Head {h00=0x0028, h01=0x0050, text=»BMXS20 LD A2,SCTOPT GET OPTION WORD «, t00=0x007c, t01=0x0026}
0x0c1fc…0c21a Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 MMU OPTION? «, t00=0x007c, t01=0x0052}
0x0c21a…0c234 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BMXS30 NO! «, t00=0x007c, t01=0x0070}
0x0c234…0c266 Head {h00=0x002e, h01=0x0050, text=» SUKL A12,TTB:MT INCLUDE MMU TABLE IN TTAB«, t00=0x007c, t01=0x008a}
0x0c266…0c28e Head {h00=0x0024, h01=0x0050, text=» SUKL A10,TTB:MT INCLUDE LENGTH «, t00=0x007c, t01=0x00bc}
0x0c28e…0c2a0 Head {h00=0x000e, h01=0x0050, text=» RF BMXS40«, t00=0x007c, t01=0x00e4}
0x0c2a0…0c2cc Head {h00=0x0028, h01=0x0050, text=»BMXS30 LD A2,SCTOPT GET OPTION WORD «, t00=0x007c, t01=0x00f6}
0x0c2cc…0c2ea Head {h00=0x001a, h01=0x0050, text=» ANK A2,2 DISC PAGING?«, t00=0x007c, t01=0x0122}
0x0c2ea…0c300 Head {h00=0x0012, h01=0x0050, text=» RF(Z) BMXS40 «, t00=0x007c, t01=0x0140}
0x0c300…0c338 Head {h00=0x0034, h01=0x0050, text=» SUKL A12,TTB:CB INCLUDE 3 WORDS FOR DISC PAGING«, t00=0x007c, t01=0x0156}
0x0c338…0c362 Head {h00=0x0026, h01=0x0050, text=» SUKL A10,TTB:CB INCLUDE IN LENGTH«, t00=0x007c, t01=0x018e}
0x0c362…0c39a Head {h00=0x0034, h01=0x0050, text=»BMXS40 AD A10,SCTSFA COMPUTE START OF FREE AREA «, t00=0x007d, t01=0x0028}
0x0c39a…0c3b2 Head {h00=0x0014, h01=0x0050, text=» LDR A9,A10 SAVE«, t00=0x007d, t01=0x0060}
0x0c3b2…0c3e6 Head {h00=0x0030, h01=0x0050, text=» LD A11,STKEND+LIMIT GET END OF SYSTEM AREA «, t00=0x007d, t01=0x0078}
0x0c3e6…0c40c Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x007d, t01=0x00ac}
0x0c40c…0c426 Head {h00=0x0016, h01=0x0050, text=» RF(NL) BMXS50 NO!«, t00=0x007d, t01=0x00d2}
0x0c426…0c43c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x007d, t01=0x00ec}
0x0c43c…0c468 Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x007d, t01=0x0102}
0x0c468…0c49e Head {h00=0x0032, h01=0x0050, text=»BMXS50 ST A10,SCTSFA UPDATE START OF FREE AREA«, t00=0x007d, t01=0x012e}
0x0c49e…0c4c8 Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET CURRENT LENGTH «, t00=0x007d, t01=0x0164}
0x0c4c8…0c4f6 Head {h00=0x002a, h01=0x0050, text=» AD A2,SCTTCT COMPUTE NEXT FREE ENTRY «, t00=0x007d, t01=0x018e}
0x0c4f6…0c51c Head {h00=0x0022, h01=0x0050, text=» STR A12,A2 STORE TTAB ADDRESS«, t00=0x007e, t01=0x002c}
0x0c51c…0c548 Head {h00=0x0028, h01=0x0050, text=» IM* SCTTCT INCREMENT CURRENT LENGTH«, t00=0x007e, t01=0x0052}
0x0c548…0c562 Head {h00=0x0016, h01=0x0050, text=» IM* SCTTCT TWICE «, t00=0x007e, t01=0x007e}
0x0c562…0c582 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x007e, t01=0x0098}
0x0c582…0c5aa Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:ID,A12 STORE IN TTAB «, t00=0x007e, t01=0x00b8}
0x0c5aa…0c5d8 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MX:LEV GET MONITOR TASK LEVEL«, t00=0x007e, t01=0x00e0}
0x0c5d8…0c600 Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:ST,A12 STORE IN TTAB «, t00=0x007e, t01=0x010e}
0x0c600…0c612 Head {h00=0x000e, h01=0x0050, text=» SLL A2,10«, t00=0x007e, t01=0x0136}
0x0c612…0c638 Head {h00=0x0022, h01=0x0050, text=» ORKL A2,/00C1 PROGRAM STATUS «, t00=0x007e, t01=0x0148}
0x0c638…0c66c Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:PW,A12 STORE PROGRAM STATUS WORD «, t00=0x007e, t01=0x016e}
0x0c66c…0c6aa Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+EXCTAB GET EXTENT CONTROL BLOCK ADDRESS «, t00=0x007f, t01=0x0012}
0x0c6aa…0c6d2 Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:AP,A12 STORE IN TTAB «, t00=0x007f, t01=0x0050}
0x0c6d2…0c6e4 Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x007f, t01=0x0078}
0x0c6e4…0c718 Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:TD,A12 STORE DEVICE TABLE LENGTH «, t00=0x007f, t01=0x008a}
0x0c718…0c730 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x007f, t01=0x00be}
0x0c730…0c73e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x00d6}
0x0c73e…0c784 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x007f, t01=0x00e4}
0x0c784…0c7ca Head {h00=0x0042, h01=0x0050, text=»* MX:MEB - FIND FIRST MONITOR EXTENT BLOCK *«, t00=0x007f, t01=0x012a}
0x0c7ca…0c810 Head {h00=0x0042, h01=0x0050, text=»* ======================================== *«, t00=0x007f, t01=0x0170}
0x0c810…0c856 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0080, t01=0x0026}
0x0c856…0c89c Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: MX:MST *«, t00=0x0080, t01=0x006c}
0x0c89c…0c8e2 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0080, t01=0x00b2}
0x0c8e2…0c928 Head {h00=0x0042, h01=0x0050, text=»* ENTRY: SCTMXS - ADDRESS TO MONITOR EXTENT TABLE *«, t00=0x0080, t01=0x00f8}
0x0c928…0c96e Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0080, t01=0x013e}
0x0c96e…0c9b4 Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR EXTENT BLOCK *«, t00=0x0080, t01=0x0184}
0x0c9b4…0c9fa Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO NUMBER OF SEGTABS *«, t00=0x0081, t01=0x003a}
0x0c9fa…0ca40 Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES *«, t00=0x0081, t01=0x0080}
0x0ca40…0ca86 Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS *«, t00=0x0081, t01=0x00c6}
0x0ca86…0cacc Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0081, t01=0x010c}
0x0cacc…0cb12 Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2 *«, t00=0x0081, t01=0x0152}
0x0cb12…0cb58 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0082, t01=0x0008}
0x0cb58…0cb9e Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x0082, t01=0x004e}
0x0cb9e…0cbe4 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0082, t01=0x0094}
0x0cbe4…0cc2a Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0082, t01=0x00da}
0x0cc2a…0cc38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0082, t01=0x0120}
0x0cc38…0cc4c Head {h00=0x0010, h01=0x0050, text=»MX:MEB EQU *«, t00=0x0082, t01=0x012e}
0x0cc4c…0cc78 Head {h00=0x0028, h01=0x0050, text=» LD A7,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x0082, t01=0x0142}
0x0cc78…0cc90 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A7 SAVE «, t00=0x0082, t01=0x016e}
0x0cc90…0ccb0 Head {h00=0x001c, h01=0x0050, text=» RF(Z) MEB99 NOT PRESENT«, t00=0x0082, t01=0x0186}
0x0ccb0…0ccde Head {h00=0x002a, h01=0x0050, text=» LD A2,MX:NOS,A7 GET NUMBER OF SEGTABS«, t00=0x0083, t01=0x0016}
0x0ccde…0ccf6 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A2 SAVE «, t00=0x0083, t01=0x0044}
0x0ccf6…0cd20 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A7 SAVE ADDRESS TO MXSTAB «, t00=0x0083, t01=0x005c}
0x0cd20…0cd4e Head {h00=0x002a, h01=0x0050, text=» LD A7,MX:NOX,A7 GET NUMBER OF EXTENTS«, t00=0x0083, t01=0x0086}
0x0cd4e…0cd7e Head {h00=0x002c, h01=0x0050, text=» ADK A1,MX:NOS ADDRESS NUMBER OF SEGTABS«, t00=0x0083, t01=0x00b4}
0x0cd7e…0cd96 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A1 SAVE «, t00=0x0083, t01=0x00e4}
0x0cd96…0cdc8 Head {h00=0x002e, h01=0x0050, text=»MEB10 ADK A1,2 ADDRESS NUMBER OF SEGMENTS «, t00=0x0083, t01=0x00fc}
0x0cdc8…0cde8 Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 MORE SEGTABS? «, t00=0x0083, t01=0x012e}
0x0cde8…0ce02 Head {h00=0x0016, h01=0x0050, text=» RB(NN) MEB10 YES «, t00=0x0083, t01=0x014e}
0x0ce02…0ce1e Head {h00=0x0018, h01=0x0050, text=»MEB99 RTN A14 RETURN«, t00=0x0083, t01=0x0168}
0x0ce1e…0ce2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x0184}
0x0ce2c…0ce72 (132, 0, 400) Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0084, t01=0x0004}
0x0ce72…0ceb8 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0084, t01=0x004a}
0x0ceb8…0cefe Head {h00=0x0042, h01=0x0050, text=»* MX:MST - GET FIRST MONITOR SEGMENT TABLE *«, t00=0x0084, t01=0x0090}
0x0cefe…0cf44 Head {h00=0x0042, h01=0x0050, text=»* ======================================== *«, t00=0x0084, t01=0x00d6}
0x0cf44…0cf8a Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0084, t01=0x011c}
0x0cf8a…0cfd0 Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: B:MSEG *«, t00=0x0084, t01=0x0162}
0x0cfd0…0d016 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0085, t01=0x0018}
0x0d016…0d05c Head {h00=0x0042, h01=0x0050, text=»* ENTRY: SCTMXS - ADDRESS TO MXSTAB *«, t00=0x0085, t01=0x005e}
0x0d05c…0d0a2 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0085, t01=0x00a4}
0x0d0a2…0d0e8 Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TABLE *«, t00=0x0085, t01=0x00ea}
0x0d0e8…0d12e Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO NUMBER OF SEGTABS *«, t00=0x0085, t01=0x0130}
0x0d12e…0d174 Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES *«, t00=0x0085, t01=0x0176}
0x0d174…0d1ba Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS *«, t00=0x0086, t01=0x002c}
0x0d1ba…0d200 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0086, t01=0x0072}
0x0d200…0d246 Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2 *«, t00=0x0086, t01=0x00b8}
0x0d246…0d28c Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0086, t01=0x00fe}
0x0d28c…0d2d2 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: MX:MEB *«, t00=0x0086, t01=0x0144}
0x0d2d2…0d318 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0086, t01=0x018a}
0x0d318…0d35e Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0087, t01=0x0040}
0x0d35e…0d36c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0087, t01=0x0086}
0x0d36c…0d380 Head {h00=0x0010, h01=0x0050, text=»MX:MST EQU *«, t00=0x0087, t01=0x0094}
0x0d380…0d3be Head {h00=0x003a, h01=0x0050, text=» CALL MX:MEB GET POINTER TO FIRST MONITOR EXTENT BLOCK«, t00=0x0087, t01=0x00a8}
0x0d3be…0d3f4 Head {h00=0x0032, h01=0x0050, text=» LDR A2,A7 GET NUMBER OF MONITOR EXTENT BLOCKS«, t00=0x0087, t01=0x00e6}
0x0d3f4…0d434 Head {h00=0x003c, h01=0x0050, text=»MST10 SUK A2,1 DECREMENT NUMBER OF MONITOR EXTENT BLOCKS«, t00=0x0087, t01=0x011c}
0x0d434…0d460 Head {h00=0x0028, h01=0x0050, text=» RF(N) MST99 NO MORE MONITOR EXTENTS«, t00=0x0087, t01=0x015c}
0x0d460…0d498 Head {h00=0x0034, h01=0x0050, text=» ADK A1,MX:EBL ADDRESS NEXT MONITOR EXTENT BLOCK«, t00=0x0087, t01=0x0188}
0x0d498…0d4aa Head {h00=0x000e, h01=0x0050, text=» RB MST10 «, t00=0x0088, t01=0x0030}
0x0d4aa…0d4c6 Head {h00=0x0018, h01=0x0050, text=»MST99 RTN A14 RETURN«, t00=0x0088, t01=0x0042}
0x0d4c6…0d4d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0088, t01=0x005e}
0x0d4d4…0d51a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0088, t01=0x006c}
0x0d51a…0d560 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0088, t01=0x00b2}
0x0d560…0d5a6 Head {h00=0x0042, h01=0x0050, text=»* MX:TDB - GET FIRST MONITOR EXTENT TASK DEFINITION BLOCK * «, t00=0x0088, t01=0x00f8}
0x0d5a6…0d5ec Head {h00=0x0042, h01=0x0050, text=»* ======================================================= * «, t00=0x0088, t01=0x013e}
0x0d5ec…0d632 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0088, t01=0x0184}
0x0d632…0d678 Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: MX:STD * «, t00=0x0089, t01=0x003a}
0x0d678…0d6be Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0089, t01=0x0080}
0x0d6be…0d704 Head {h00=0x0042, h01=0x0050, text=»* ENTRY: SCTMXS - ADDRESS TO MXSTAB * «, t00=0x0089, t01=0x00c6}
0x0d704…0d74a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0089, t01=0x010c}
0x0d74a…0d790 Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR EXTENT TASK * «, t00=0x0089, t01=0x0152}
0x0d790…0d7d6 Head {h00=0x0042, h01=0x0050, text=»* DEFINITION BLOCK * «, t00=0x008a, t01=0x0008}
0x0d7d6…0d81c Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * «, t00=0x008a, t01=0x004e}
0x0d81c…0d862 Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES * «, t00=0x008a, t01=0x0094}
0x0d862…0d8a8 Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS * «, t00=0x008a, t01=0x00da}
0x0d8a8…0d8ee Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x008a, t01=0x0120}
0x0d8ee…0d934 Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2,A3 * «, t00=0x008a, t01=0x0166}
0x0d934…0d97a Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x008b, t01=0x001c}
0x0d97a…0d9c0 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: MX:MST * «, t00=0x008b, t01=0x0062}
0x0d9c0…0da06 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x008b, t01=0x00a8}
0x0da06…0da4c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x008b, t01=0x00ee}
0x0da4c…0da5a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008b, t01=0x0134}
0x0da5a…0da6e Head {h00=0x0010, h01=0x0050, text=»MX:TDB EQU *«, t00=0x008b, t01=0x0142}
0x0da6e…0daa2 Head {h00=0x0030, h01=0x0050, text=» CALL MX:MST GET FIRST MONITOR SEGMENT TABLE«, t00=0x008b, t01=0x0156}
0x0daa2…0dad2 Head {h00=0x002c, h01=0x0050, text=» LDR A2,A6 GET NUMBER OF SEGMENT TABLES «, t00=0x008b, t01=0x018a}
0x0dad2…0db04 Head {h00=0x002e, h01=0x0050, text=»TDB10 ADK A5,2 ADDRESS NUMBER OF SEGMENTS «, t00=0x008c, t01=0x002a}
0x0db04…0db32 Head {h00=0x002a, h01=0x0050, text=» SUK A2,1 DECREMENT NUMBER OF SEGTABS «, t00=0x008c, t01=0x005c}
0x0db32…0db56 Head {h00=0x0020, h01=0x0050, text=» RF(N) TDB99 NO MORE SEGTABS«, t00=0x008c, t01=0x008a}
0x0db56…0db80 Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A5 GET NUMBER OF SEGMENTS«, t00=0x008c, t01=0x00ae}
0x0db80…0dbb4 Head {h00=0x0030, h01=0x0050, text=»TDB20 SUK A3,1 DECREMENT NUMBER OF SEGMENTS «, t00=0x008c, t01=0x00d8}
0x0dbb4…0dbda Head {h00=0x0022, h01=0x0050, text=» RB(N) TDB10 NO MORE SEGMENTS «, t00=0x008c, t01=0x010c}
0x0dbda…0dc10 Head {h00=0x0032, h01=0x0050, text=» ADK A1,MX:SBL INCREMENT SEGMENT BLOCK POINTER«, t00=0x008c, t01=0x0132}
0x0dc10…0dc22 Head {h00=0x000e, h01=0x0050, text=» RB TDB20 «, t00=0x008c, t01=0x0168}
0x0dc22…0dc3e Head {h00=0x0018, h01=0x0050, text=»TDB99 RTN A14 RETURN«, t00=0x008c, t01=0x017a}
0x0dc3e…0dc4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008d, t01=0x0008}
0x0dc4c…0dc92 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x008d, t01=0x0016}
0x0dc92…0dcd8 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008d, t01=0x005c}
0x0dcd8…0dd1e Head {h00=0x0042, h01=0x0050, text=»* MS:STD - GET FIRST MONITOR SEGMENT TASK DEFINITION BLOCK *«, t00=0x008d, t01=0x00a2}
0x0dd1e…0dd64 Head {h00=0x0042, h01=0x0050, text=»* ======================================================== *«, t00=0x008d, t01=0x00e8}
0x0dd64…0ddaa Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008d, t01=0x012e}
0x0ddaa…0ddf0 Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: B:MXST *«, t00=0x008d, t01=0x0174}
0x0ddf0…0de36 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008e, t01=0x002a}
0x0de36…0de7c Head {h00=0x0042, h01=0x0050, text=»* ENTRY: *«, t00=0x008e, t01=0x0070}
0x0de7c…0dec2 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008e, t01=0x00b6}
0x0dec2…0df08 Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TASK *«, t00=0x008e, t01=0x00fc}
0x0df08…0df4e Head {h00=0x0042, h01=0x0050, text=»* DEFINITION BLOCK *«, t00=0x008e, t01=0x0142}
0x0df4e…0df94 Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK *«, t00=0x008e, t01=0x0188}
0x0df94…0dfda Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES *«, t00=0x008f, t01=0x003e}
0x0dfda…0e020 Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS *«, t00=0x008f, t01=0x0084}
0x0e020…0e066 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008f, t01=0x00ca}
0x0e066…0e0ac Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2,A3 *«, t00=0x008f, t01=0x0110}
0x0e0ac…0e0f2 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008f, t01=0x0156}
0x0e0f2…0e138 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: MX:TDB *«, t00=0x0090, t01=0x000c}
0x0e138…0e17e Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0090, t01=0x0052}
0x0e17e…0e1c4 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0090, t01=0x0098}
0x0e1c4…0e1d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0090, t01=0x00de}
0x0e1d2…0e1e6 Head {h00=0x0010, h01=0x0050, text=»MX:STD EQU *«, t00=0x0090, t01=0x00ec}
0x0e1e6…0e21c Head {h00=0x0032, h01=0x0050, text=» CALL MX:TDB GET FIRST MONITOR TASK DEF. BLOCK«, t00=0x0090, t01=0x0100}
0x0e21c…0e24c Head {h00=0x002c, h01=0x0050, text=» LDR A2,A7 GET NUMBER OF MONITOR EXTENTS«, t00=0x0090, t01=0x0136}
0x0e24c…0e286 Head {h00=0x0036, h01=0x0050, text=»STD10 SUK A2,1 DECREMENT NUMBER OF MONITOR EXTENTS«, t00=0x0090, t01=0x0166}
0x0e286…0e2aa Head {h00=0x0020, h01=0x0050, text=» RF(N) STD99 NO MORE EXTENTS«, t00=0x0091, t01=0x0010}
0x0e2aa…0e2dc Head {h00=0x002e, h01=0x0050, text=» LDR* A3,A1 GET NUMBER OF TASKS IN EXTENT «, t00=0x0091, t01=0x0034}
0x0e2dc…0e302 Head {h00=0x0022, h01=0x0050, text=»STD20 ADK A1,2 ADDRESS TASK ID«, t00=0x0091, t01=0x0066}
0x0e302…0e32e Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT NUMBER OF TASKS «, t00=0x0091, t01=0x008c}
0x0e32e…0e34e Head {h00=0x001c, h01=0x0050, text=» RB(NN) STD20 MORE TASKS«, t00=0x0091, t01=0x00b8}
0x0e34e…0e36c Head {h00=0x001a, h01=0x0050, text=» RB STD10 NEXT EXTENT «, t00=0x0091, t01=0x00d8}
0x0e36c…0e388 Head {h00=0x0018, h01=0x0050, text=»STD99 RTN A14 RETURN«, t00=0x0091, t01=0x00f6}
0x0e388…0e394 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0091, t01=0x0112}
0x0e394…0e3a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0091, t01=0x011e}
0x0e3a2…0e3c8 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0091, t01=0x012c}
0x0e3c8…0e3ee Head {h00=0x0022, h01=0x0050, text=»* B:TT - BUILD TASK TABLES *«, t00=0x0091, t01=0x0152}
0x0e3ee…0e414 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0091, t01=0x0178}
0x0e414…0e41e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x000e}
0x0e41e…0e43e Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: SYSLDM«, t00=0x0092, t01=0x0018}
0x0e43e…0e448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0038}
0x0e448…0e45a Head {h00=0x000e, h01=0x0050, text=»* ENTRY: «, t00=0x0092, t01=0x0042}
0x0e45a…0e464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0054}
0x0e464…0e4a0 Head {h00=0x0038, h01=0x0050, text=»* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES«, t00=0x0092, t01=0x005e}
0x0e4a0…0e4aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x009a}
0x0e4aa…0e4cc Head {h00=0x001e, h01=0x0050, text=»* WORK REGISERS: A1-A12 «, t00=0x0092, t01=0x00a4}
0x0e4cc…0e4d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x00c6}
0x0e4d6…0e512 Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC «, t00=0x0092, t01=0x00d0}
0x0e512…0e51c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x010c}
0x0e51c…0e548 Head {h00=0x0028, h01=0x0050, text=»* TASK TABLE LAYOUT «, t00=0x0092, t01=0x0116}
0x0e548…0e552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0142}
0x0e552…0e580 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0092, t01=0x014c}
0x0e580…0e5ae Head {h00=0x002a, h01=0x0050, text=»* TTB:AM I MMU ALLOCATION I«, t00=0x0092, t01=0x017a}
0x0e5ae…0e5dc Head {h00=0x002a, h01=0x0050, text=»* I BIT MAP (4 WORDS) I«, t00=0x0093, t01=0x0018}
0x0e5dc…0e60a Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0093, t01=0x0046}
0x0e60a…0e638 Head {h00=0x002a, h01=0x0050, text=»* TTB:MT I MMU I«, t00=0x0093, t01=0x0074}
0x0e638…0e666 Head {h00=0x002a, h01=0x0050, text=»* I TABLE I«, t00=0x0093, t01=0x00a2}
0x0e666…0e694 Head {h00=0x002a, h01=0x0050, text=»* I 16 I«, t00=0x0093, t01=0x00d0}
0x0e694…0e6c2 Head {h00=0x002a, h01=0x0050, text=»* I WORDS I«, t00=0x0093, t01=0x00fe}
0x0e6c2…0e6f0 Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0093, t01=0x012c}
0x0e6f0…0e71e Head {h00=0x002a, h01=0x0050, text=»* TTB:CB I CSB POINTER I«, t00=0x0093, t01=0x015a}
0x0e71e…0e74c Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0093, t01=0x0188}
0x0e74c…0e77a Head {h00=0x002a, h01=0x0050, text=»* TTB:SP I SEGTAB POINTER I«, t00=0x0094, t01=0x0026}
0x0e77a…0e7a8 Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0094, t01=0x0054}
0x0e7a8…0e7d6 Head {h00=0x002a, h01=0x0050, text=»* TTB:SB I SEGM. BLOCK POINTER I«, t00=0x0094, t01=0x0082}
0x0e7d6…0e804 Head {h00=0x002a, h01=0x0050, text=»* I----------------------I«, t00=0x0094, t01=0x00b0}
0x0e804…0e832 Head {h00=0x002a, h01=0x0050, text=»* TTB:AP I ACB POINTER I«, t00=0x0094, t01=0x00de}
0x0e832…0e860 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0094, t01=0x010c}
0x0e860…0e88e Head {h00=0x002a, h01=0x0050, text=»* TASK ENTRY I QUEUE I«, t00=0x0094, t01=0x013a}
0x0e88e…0e8bc Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0094, t01=0x0168}
0x0e8bc…0e8ea Head {h00=0x002a, h01=0x0050, text=»* TTB:ID I TASK IDENTIFICATION I«, t00=0x0095, t01=0x0008}
0x0e8ea…0e918 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0095, t01=0x0036}
0x0e918…0e946 Head {h00=0x002a, h01=0x0050, text=»* TTB:ST I STATUS/LEVEL I«, t00=0x0095, t01=0x0064}
0x0e946…0e974 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0095, t01=0x0092}
0x0e974…0e9a2 Head {h00=0x002a, h01=0x0050, text=»* TTB:PP I PENDING QUEUE I«, t00=0x0095, t01=0x00c0}
0x0e9a2…0e9d0 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0095, t01=0x00ee}
0x0e9d0…0e9fe Head {h00=0x002a, h01=0x0050, text=»* TTB:PW I PROGRAM STATUS WORD I«, t00=0x0095, t01=0x011c}
0x0e9fe…0ea2c Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0095, t01=0x014a}
0x0ea2c…0ea5a Head {h00=0x002a, h01=0x0050, text=»* TTB:SA I DISPATCH ADDRESS I«, t00=0x0095, t01=0x0178}
0x0ea5a…0ea88 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0096, t01=0x0016}
0x0ea88…0eab6 Head {h00=0x002a, h01=0x0050, text=»* I REGISTER I«, t00=0x0096, t01=0x0044}
0x0eab6…0eae4 Head {h00=0x002a, h01=0x0050, text=»* I SAVE I«, t00=0x0096, t01=0x0072}
0x0eae4…0eb12 Head {h00=0x002a, h01=0x0050, text=»* I AREA I«, t00=0x0096, t01=0x00a0}
0x0eb12…0eb40 Head {h00=0x002a, h01=0x0050, text=»* I 14 I«, t00=0x0096, t01=0x00ce}
0x0eb40…0eb6e Head {h00=0x002a, h01=0x0050, text=»* I WORDS I«, t00=0x0096, t01=0x00fc}
0x0eb6e…0eb9c Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0096, t01=0x012a}
0x0eb9c…0ebca Head {h00=0x002a, h01=0x0050, text=»* TTB:TD I TASK I«, t00=0x0096, t01=0x0158}
0x0ebca…0ebf8 Head {h00=0x002a, h01=0x0050, text=»* I SAVE01URATION I«, t00=0x0096, t01=0x0186}
0x0ebf8…0ec26 Head {h00=0x002a, h01=0x0050, text=»* I TABLE I«, t00=0x0097, t01=0x0024}
0x0ec26…0ec54 Head {h00=0x002a, h01=0x0050, text=»* : :«, t00=0x0097, t01=0x0052}
0x0ec54…0ec82 Head {h00=0x002a, h01=0x0050, text=»* : :«, t00=0x0097, t01=0x0080}
0x0ec82…0ecb0 Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0097, t01=0x00ae}
0x0ecb0…0ece6 Head {h00=0x0032, h01=0x0050, text=»* TASK SAVE01URATION TABLE LAYOUT «, t00=0x0097, t01=0x00dc}
0x0ece6…0ed1a Head {h00=0x0030, h01=0x0050, text=»* ______________________________«, t00=0x0097, t01=0x0112}
0x0ed1a…0ed4e Head {h00=0x0030, h01=0x0050, text=»* I LENGTH I«, t00=0x0097, t01=0x0146}
0x0ed4e…0ed82 Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0097, t01=0x017a}
0x0ed82…0edb6 Head {h00=0x0030, h01=0x0050, text=»* I INDEX/FILCODE I«, t00=0x0098, t01=0x001e}
0x0edb6…0edea Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0098, t01=0x0052}
0x0edea…0ee1e Head {h00=0x0030, h01=0x0050, text=»* I DWT-ADDRESS I«, t00=0x0098, t01=0x0086}
0x0ee1e…0ee52 Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0098, t01=0x00ba}
0x0ee52…0ee86 Head {h00=0x0030, h01=0x0050, text=»* : :«, t00=0x0098, t01=0x00ee}
0x0ee86…0eeba Head {h00=0x0030, h01=0x0050, text=»* : :«, t00=0x0098, t01=0x0122}
0x0eeba…0eeee Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0098, t01=0x0156}
0x0eeee…0ef22 Head {h00=0x0030, h01=0x0050, text=»* I INDEX/FILECODE I«, t00=0x0098, t01=0x018a}
0x0ef22…0ef56 Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0099, t01=0x002e}
0x0ef56…0ef8a Head {h00=0x0030, h01=0x0050, text=»* I DWT-ADDRESS I«, t00=0x0099, t01=0x0062}
0x0ef8a…0efbe Head {h00=0x0030, h01=0x0050, text=»* ------------------------------«, t00=0x0099, t01=0x0096}
0x0efbe…0efcc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x00ca}
0x0efcc…0efde Head {h00=0x000e, h01=0x0050, text=»B:TT EQU *«, t00=0x0099, t01=0x00d8}
0x0efde…0f008 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x0099, t01=0x00ea}
0x0f008…0f036 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0099, t01=0x0114}
0x0f036…0f058 Head {h00=0x001e, h01=0x0050, text=» ST A12,STKEND+SFASAV SAVE«, t00=0x0099, t01=0x0142}
0x0f058…0f08c Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0099, t01=0x0164}
0x0f08c…0f0ba Head {h00=0x002a, h01=0x0050, text=» ST P,STKEND+WRK1 SAVE PROGRAM COUNTER«, t00=0x009a, t01=0x0008}
0x0f0ba…0f0f8 Head {h00=0x003a, h01=0x0050, text=» ST A11,STKEND+LCDSTA SAVE CONFIGURATION DATA POINTER «, t00=0x009a, t01=0x0036}
0x0f0f8…0f126 Head {h00=0x002a, h01=0x0050, text=» ST P,STKEND+WRK2 SAVE PROGRAM COUNTER«, t00=0x009a, t01=0x0074}
0x0f126…0f130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00a2}
0x0f130…0f15c Head {h00=0x0028, h01=0x0050, text=»* GET NUMBER OF TASKS IN THIS CLASS«, t00=0x009a, t01=0x00ac}
0x0f15c…0f166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00d8}
0x0f166…0f17a Head {h00=0x0010, h01=0x0050, text=» CALL GETTSK«, t00=0x009a, t01=0x00e2}
0x0f17a…0f1ac Head {h00=0x002e, h01=0x0050, text=» ST A1,STKEND+NBRTSK SAVE NUMBER OF TASKS «, t00=0x009a, t01=0x00f6}
0x0f1ac…0f1b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0128}
0x0f1b6…0f1d8 Head {h00=0x001e, h01=0x0050, text=»* GET TASK ID START VALUE«, t00=0x009a, t01=0x0132}
0x0f1d8…0f1e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0154}
0x0f1e2…0f20e Head {h00=0x0028, h01=0x0050, text=» LC A5,TDBID+4,A11 GET FIRST ID CHAR«, t00=0x009a, t01=0x015e}
0x0f20e…0f232 Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x009a, t01=0x018a}
0x0f232…0f260 Head {h00=0x002a, h01=0x0050, text=» LC A5,TDBID+5,A11 GET SECOND ID DIGIT«, t00=0x009b, t01=0x001e}
0x0f260…0f296 Head {h00=0x0032, h01=0x0050, text=» ST A5,STKEND+TASKID SAVE TASK ID START VALUE «, t00=0x009b, t01=0x004c}
0x0f296…0f2a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0082}
0x0f2a0…0f2c6 Head {h00=0x0022, h01=0x0050, text=»* CHECK IF CREDIT APPLICATION«, t00=0x009b, t01=0x008c}
0x0f2c6…0f2d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x00b2}
0x0f2d0…0f30a Head {h00=0x0036, h01=0x0050, text=» LD A5,STKEND+APCSTA GET APPLICATION CONTROL BLOCK«, t00=0x009b, t01=0x00bc}
0x0f30a…0f338 Head {h00=0x002a, h01=0x0050, text=» LD A5,APLTYP,A5 GET APPLICATION TYPE «, t00=0x009b, t01=0x00f6}
0x0f338…0f360 Head {h00=0x0024, h01=0x0050, text=» CWK A5,'CR' CREDIT APPLICATION?«, t00=0x009b, t01=0x0124}
0x0f360…0f376 Head {h00=0x0012, h01=0x0050, text=» RF(NE) BTT21 «, t00=0x009b, t01=0x014c}
0x0f376…0f384 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009b, t01=0x0162}
0x0f384…0f38e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0170}
0x0f38e…0f3b6 Head {h00=0x0024, h01=0x0050, text=»* GET TASK CLASS TO MATCH VALUE«, t00=0x009b, t01=0x017a}
0x0f3b6…0f3c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0012}
0x0f3c0…0f3f0 Head {h00=0x002c, h01=0x0050, text=» LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL«, t00=0x009c, t01=0x001c}
0x0f3f0…0f414 Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x009c, t01=0x004c}
0x0f414…0f446 Head {h00=0x002e, h01=0x0050, text=» LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL «, t00=0x009c, t01=0x0070}
0x0f446…0f46e Head {h00=0x0024, h01=0x0050, text=» CALL GETTCL GET TCL START VALUE«, t00=0x009c, t01=0x00a2}
0x0f46e…0f490 Head {h00=0x001e, h01=0x0050, text=» ST A5,STKEND+TCLSAV SAVE «, t00=0x009c, t01=0x00ca}
0x0f490…0f4a4 Head {h00=0x0010, h01=0x0050, text=»BTT21 EQU * «, t00=0x009c, t01=0x00ec}
0x0f4a4…0f4b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009c, t01=0x0100}
0x0f4b2…0f4bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x010e}
0x0f4bc…0f4d6 Head {h00=0x0016, h01=0x0050, text=»* GET TASK LEVEL «, t00=0x009c, t01=0x0118}
0x0f4d6…0f4e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0132}
0x0f4e0…0f514 Head {h00=0x0030, h01=0x0050, text=» LC A5,TDBTL+4,A11 GET FIRST DIGIT IN LEVEL «, t00=0x009c, t01=0x013c}
0x0f514…0f538 Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x009c, t01=0x0170}
0x0f538…0f56c (157, 0, 398) Head {h00=0x0030, h01=0x0050, text=» LC A5,TDBTL+5,A11 GET SECOND DIGIT IN LEVEL«, t00=0x009d, t01=0x0004}
0x0f56c…0f592 Head {h00=0x0022, h01=0x0050, text=» CALL CONVRT CONVERT TO BINARY«, t00=0x009d, t01=0x0038}
0x0f592…0f5b4 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+TSKLEV SAVE «, t00=0x009d, t01=0x005e}
0x0f5b4…0f5c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009d, t01=0x0080}
0x0f5c2…0f5cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x008e}
0x0f5cc…0f612 Head {h00=0x0042, h01=0x0050, text=»* COMPUTE SIZE OF CONFIGURATION DEPENDENT PART OF TASK TABLE «, t00=0x009d, t01=0x0098}
0x0f612…0f61c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x00de}
0x0f61c…0f646 Head {h00=0x0026, h01=0x0050, text=» LDKL A10,TTB:TD+4 STANDARD LENGTH«, t00=0x009d, t01=0x00e8}
0x0f646…0f66c Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x009d, t01=0x0112}
0x0f66c…0f6a4 Head {h00=0x0034, h01=0x0050, text=» ANK A5,/21 CHECK IF EMM AND MMU PAGING INCLUDED«, t00=0x009d, t01=0x0138}
0x0f6a4…0f6c6 Head {h00=0x001e, h01=0x0050, text=» XRK A5,/21 BOTH INCLUDED?«, t00=0x009d, t01=0x0170}
0x0f6c6…0f6e0 (158, 0, 398) Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BTT22 NO! «, t00=0x009e, t01=0x0004}
0x0f6e0…0f714 Head {h00=0x0030, h01=0x0050, text=» SUKL A10,TTB:AM+2 INCLUDE BIT MAP IN LENGTH«, t00=0x009e, t01=0x001e}
0x0f714…0f746 Head {h00=0x002e, h01=0x0050, text=» SUKL A12,TTB:AM RESERV SPACE FOR BIT MAP «, t00=0x009e, t01=0x0052}
0x0f746…0f758 Head {h00=0x000e, h01=0x0050, text=» RF BTT30 «, t00=0x009e, t01=0x0084}
0x0f758…0f772 Head {h00=0x0016, h01=0x0050, text=»BTT22 LD A5,SCTOPT«, t00=0x009e, t01=0x0096}
0x0f772…0f790 Head {h00=0x001a, h01=0x0050, text=» SRC A5,1 MMU PAGING? «, t00=0x009e, t01=0x00b0}
0x0f790…0f7a8 Head {h00=0x0014, h01=0x0050, text=» RF(NN) BTT25 NO«, t00=0x009e, t01=0x00ce}
0x0f7a8…0f7da Head {h00=0x002e, h01=0x0050, text=» SUKL A10,TTB:MT+2 16+2 WORD EXTRA IF MMU «, t00=0x009e, t01=0x00e6}
0x0f7da…0f810 Head {h00=0x0032, h01=0x0050, text=» SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS «, t00=0x009e, t01=0x0118}
0x0f810…0f822 Head {h00=0x000e, h01=0x0050, text=» RF BTT30 «, t00=0x009e, t01=0x014e}
0x0f822…0f836 Head {h00=0x0010, h01=0x0050, text=»BTT25 EQU * «, t00=0x009e, t01=0x0160}
0x0f836…0f854 Head {h00=0x001a, h01=0x0050, text=» SRC A5,1 DISC PAGING?«, t00=0x009e, t01=0x0174}
0x0f854…0f86e (159, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(NN) BTT30 NO! «, t00=0x009f, t01=0x0004}
0x0f86e…0f8a8 Head {h00=0x0036, h01=0x0050, text=» SUKL A10,TTB:CB+2 FOUR WORD EXTRA IF DISC PAGING «, t00=0x009f, t01=0x001e}
0x0f8a8…0f8dc Head {h00=0x0030, h01=0x0050, text=» SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD«, t00=0x009f, t01=0x0058}
0x0f8dc…0f8f0 Head {h00=0x0010, h01=0x0050, text=»BTT30 EQU * «, t00=0x009f, t01=0x008c}
0x0f8f0…0f8fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009f, t01=0x00a0}
0x0f8fe…0f908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x00ae}
0x0f908…0f948 Head {h00=0x003c, h01=0x0050, text=»* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART «, t00=0x009f, t01=0x00b8}
0x0f948…0f96e Head {h00=0x0022, h01=0x0050, text=»* OF TASK CONFIGURATION TABLE«, t00=0x009f, t01=0x00f8}
0x0f96e…0f978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x011e}
0x0f978…0f996 Head {h00=0x001a, h01=0x0050, text=» LDK A6,0 RESET LENGTH«, t00=0x009f, t01=0x0128}
0x0f996…0f9d4 Head {h00=0x003a, h01=0x0050, text=» LDR A9,A11 INIT SUB-POINTER IN TASK DEFINITION BLOCK «, t00=0x009f, t01=0x0146}
0x0f9d4…0fa0c Head {h00=0x0034, h01=0x0050, text=» ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION«, t00=0x009f, t01=0x0184}
0x0fa0c…0fa34 Head {h00=0x0024, h01=0x0050, text=» CALL GETTDC GET NUMBER OF TDC:S«, t00=0x00a0, t01=0x002c}
0x0fa34…0fa4c Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 SAVE «, t00=0x00a0, t01=0x0054}
0x0fa4c…0fa60 Head {h00=0x0010, h01=0x0050, text=»BTT35 EQU * «, t00=0x00a0, t01=0x006c}
0x0fa60…0fa74 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BTT40«, t00=0x00a0, t01=0x0080}
0x0fa74…0faa0 Head {h00=0x0028, h01=0x0050, text=» CALL GETCLN GET CLASS NUMBER (1-99)«, t00=0x00a0, t01=0x0094}
0x0faa0…0faca Head {h00=0x0026, h01=0x0050, text=» ADR A1,A1 2*(BINARY CLASS NUMBER)«, t00=0x00a0, t01=0x00c0}
0x0faca…0fafa Head {h00=0x002c, h01=0x0050, text=» LD A8,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x00a0, t01=0x00ea}
0x0fafa…0fb0e Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x00a0, t01=0x011a}
0x0fb0e…0fb20 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00a0, t01=0x012e}
0x0fb20…0fb32 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x00a0, t01=0x0140}
0x0fb32…0fb48 Head {h00=0x0012, h01=0x0050, text=» RF(NG) BTT37 «, t00=0x00a0, t01=0x0152}
0x0fb48…0fb5e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x00a0, t01=0x0168}
0x0fb5e…0fb88 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE FORMAT ERROR «, t00=0x00a0, t01=0x017e}
0x0fb88…0fb9c Head {h00=0x0010, h01=0x0050, text=»BTT37 EQU * «, t00=0x00a1, t01=0x0018}
0x0fb9c…0fbc2 Head {h00=0x0022, h01=0x0050, text=» ADR A8,A1 GET ENTRY IN TCLASS«, t00=0x00a1, t01=0x002c}
0x0fbc2…0fbea Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x00a1, t01=0x0052}
0x0fbea…0fc12 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x00a1, t01=0x007a}
0x0fc12…0fc38 Head {h00=0x0022, h01=0x0050, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x00a1, t01=0x00a2}
0x0fc38…0fc64 Head {h00=0x0028, h01=0x0050, text=» ADR A10,A8 ADD TO TOTAL TTAB LENGTH«, t00=0x00a1, t01=0x00c8}
0x0fc64…0fc96 Head {h00=0x002e, h01=0x0050, text=» ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH «, t00=0x00a1, t01=0x00f4}
0x0fc96…0fcba Head {h00=0x0020, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT CLASS «, t00=0x00a1, t01=0x0126}
0x0fcba…0fce6 Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF TDC:S «, t00=0x00a1, t01=0x014a}
0x0fce6…0fcf8 Head {h00=0x000e, h01=0x0050, text=» RB BTT35 «, t00=0x00a1, t01=0x0176}
0x0fcf8…0fd06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a1, t01=0x0188}
0x0fd06…0fd1a Head {h00=0x0010, h01=0x0050, text=»BTT40 EQU * «, t00=0x00a2, t01=0x0008}
0x0fd1a…0fd24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x001c}
0x0fd24…0fd66 Head {h00=0x003e, h01=0x0050, text=»* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF «, t00=0x00a2, t01=0x0026}
0x0fd66…0fd8a Head {h00=0x0020, h01=0x0050, text=»* TASK CONFIGURATION TABLE «, t00=0x00a2, t01=0x0068}
0x0fd8a…0fd94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x008c}
0x0fd94…0fdce Head {h00=0x0036, h01=0x0050, text=» CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x00a2, t01=0x0096}
0x0fdce…0fdf2 Head {h00=0x0020, h01=0x0050, text=» ADKL A9,2 FIRST SDC RECORD «, t00=0x00a2, t01=0x00d0}
0x0fdf2…0fe0a Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 SAVE «, t00=0x00a2, t01=0x00f4}
0x0fe0a…0fe1e Head {h00=0x0010, h01=0x0050, text=»BTT50 EQU * «, t00=0x00a2, t01=0x010c}
0x0fe1e…0fe42 Head {h00=0x0020, h01=0x0050, text=» RF(Z) BTT55 NO MOORE SDC:S «, t00=0x00a2, t01=0x0120}
0x0fe42…0fe6e Head {h00=0x0028, h01=0x0050, text=» CALL GETCLN GET CLASS NUMBER (1-99)«, t00=0x00a2, t01=0x0144}
0x0fe6e…0fe98 Head {h00=0x0026, h01=0x0050, text=» ADR A1,A1 2*(BINARY CLASS NUMBER)«, t00=0x00a2, t01=0x0170}
0x0fe98…0fec8 Head {h00=0x002c, h01=0x0050, text=» LD A8,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00a3, t01=0x000a}
0x0fec8…0fedc Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x00a3, t01=0x003a}
0x0fedc…0feee Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00a3, t01=0x004e}
0x0feee…0ff00 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x00a3, t01=0x0060}
0x0ff00…0ff16 Head {h00=0x0012, h01=0x0050, text=» RF(NG) BTT52 «, t00=0x00a3, t01=0x0072}
0x0ff16…0ff2c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x00a3, t01=0x0088}
0x0ff2c…0ff56 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE FORMAT ERROR «, t00=0x00a3, t01=0x009e}
0x0ff56…0ff6a Head {h00=0x0010, h01=0x0050, text=»BTT52 EQU * «, t00=0x00a3, t01=0x00c8}
0x0ff6a…0ff90 Head {h00=0x0022, h01=0x0050, text=» ADR A8,A1 GET ENTRY IN SCLASS«, t00=0x00a3, t01=0x00dc}
0x0ff90…0ffb8 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x00a3, t01=0x0102}
0x0ffb8…0ffe0 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x00a3, t01=0x012a}
0x0ffe0…10006 Head {h00=0x0022, h01=0x0050, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x00a3, t01=0x0152}
0x10006…10032 Head {h00=0x0028, h01=0x0050, text=» ADR A10,A8 ADD TO TOTAL TTAB LENGTH«, t00=0x00a3, t01=0x0178}
0x10032…10064 Head {h00=0x002e, h01=0x0050, text=» ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH «, t00=0x00a4, t01=0x0014}
0x10064…10084 Head {h00=0x001c, h01=0x0050, text=» ADKL A9,SDC NEXT CLASS «, t00=0x00a4, t01=0x0046}
0x10084…100b0 Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF SDC:S «, t00=0x00a4, t01=0x0066}
0x100b0…100c2 Head {h00=0x000e, h01=0x0050, text=» RB BTT50 «, t00=0x00a4, t01=0x0092}
0x100c2…100d6 Head {h00=0x0010, h01=0x0050, text=»BTT55 EQU * «, t00=0x00a4, t01=0x00a4}
0x100d6…100e8 Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x00a4, t01=0x00b8}
0x100e8…10112 Head {h00=0x0026, h01=0x0050, text=» ADKL A10,14 7 EXTRA WORDS FOR EDM«, t00=0x00a4, t01=0x00ca}
0x10112…1011e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a4, t01=0x00f4}
0x1011e…10144 Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 INCLUDE LENGTH WORD «, t00=0x00a4, t01=0x0100}
0x10144…1017c Head {h00=0x0034, h01=0x0050, text=» LD A7,STKEND+CUTENT GET CURRENT ENTRY IN TC:TAB«, t00=0x00a4, t01=0x0126}
0x1017c…101ba Head {h00=0x003a, h01=0x0050, text=» LD A8,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS«, t00=0x00a4, t01=0x015e}
0x101ba…101ce Head {h00=0x0010, h01=0x0050, text=»BTT60 EQU * «, t00=0x00a5, t01=0x000c}
0x101ce…101e2 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BTT70«, t00=0x00a5, t01=0x0020}
0x101e2…10204 Head {h00=0x001e, h01=0x0050, text=» ST A9,STKEND+WRK3 SAVE A9«, t00=0x00a5, t01=0x0034}
0x10204…10228 Head {h00=0x0020, h01=0x0050, text=» ST A11,STKEND+WRK4 SAVE A11«, t00=0x00a5, t01=0x0056}
0x10228…1024c Head {h00=0x0020, h01=0x0050, text=» LDR A9,A10 GET TTAB LENGTH «, t00=0x00a5, t01=0x007a}
0x1024c…10284 Head {h00=0x0034, h01=0x0050, text=» AD A9,STKEND+SFASAV COMPUTE END OF FREE AREA =2«, t00=0x00a5, t01=0x009e}
0x10284…102a4 Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+SFASAV =2«, t00=0x00a5, t01=0x00d6}
0x102a4…102d8 Head {h00=0x0030, h01=0x0050, text=» LD A11,STKEND+LIMIT GET END OF SYSTEM AREA «, t00=0x00a5, t01=0x00f6}
0x102d8…10306 Head {h00=0x002a, h01=0x0050, text=» CALL CMPADR CHECK IF MEMORY OVERFLOW «, t00=0x00a5, t01=0x012a}
0x10306…10324 Head {h00=0x001a, h01=0x0050, text=» RF(NL) BTT61 NOT YET «, t00=0x00a5, t01=0x0158}
0x10324…10352 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00a5, t01=0x0176}
0x10352…10366 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00a6, t01=0x0014}
0x10366…10390 Head {h00=0x0026, h01=0x0050, text=»BTT61 LD A9,STKEND+WRK3 RESTORE A9«, t00=0x00a6, t01=0x0028}
0x10390…103b8 Head {h00=0x0024, h01=0x0050, text=» LD A11,STKEND+WRK4 RESTORE A11 «, t00=0x00a6, t01=0x0052}
0x103b8…103c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x007a}
0x103c2…103fe Head {h00=0x0038, h01=0x0050, text=»* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB «, t00=0x00a6, t01=0x0084}
0x103fe…10408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x00c0}
0x10408…10422 Head {h00=0x0016, h01=0x0050, text=» ST A6,TTB:TD,A12 «, t00=0x00a6, t01=0x00ca}
0x10422…1042c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x00e4}
0x1042c…1046a Head {h00=0x003a, h01=0x0050, text=»* STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD«, t00=0x00a6, t01=0x00ee}
0x1046a…10474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x012c}
0x10474…104a0 Head {h00=0x0028, h01=0x0050, text=» LD A5,STKEND+TSKLEV GET TASK LEVEL «, t00=0x00a6, t01=0x0136}
0x104a0…104c8 Head {h00=0x0024, h01=0x0050, text=» ST A5,TTB:ST,A12 STORE IN TTAB «, t00=0x00a6, t01=0x0162}
0x104c8…104d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x018a}
0x104d2…10512 (167, 0, 400) Head {h00=0x003c, h01=0x0050, text=»* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD «, t00=0x00a7, t01=0x0004}
0x10512…1051c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0044}
0x1051c…10546 Head {h00=0x0026, h01=0x0050, text=» SLL A5,10 MOVE LEVEL TO LEFT BYTE«, t00=0x00a7, t01=0x004e}
0x10546…1055c Head {h00=0x0012, h01=0x0050, text=» ORKL A5,/00C0«, t00=0x00a7, t01=0x0078}
0x1055c…10582 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x00a7, t01=0x008e}
0x10582…105a0 Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 MMU OPTION? «, t00=0x00a7, t01=0x00b4}
0x105a0…105c4 Head {h00=0x0020, h01=0x0050, text=» ORR A5,A2 SET BIT 15 IF MMU«, t00=0x00a7, t01=0x00d2}
0x105c4…105ec Head {h00=0x0024, h01=0x0050, text=» ST A5,TTB:PW,A12 STORE IN TTAB «, t00=0x00a7, t01=0x00f6}
0x105ec…10602 Head {h00=0x0012, h01=0x0050, text=» IFF MMUPAG=0 «, t00=0x00a7, t01=0x011e}
0x10602…1062c Head {h00=0x0026, h01=0x0050, text=» CALL MMUINI INITIALIZE MMU TABLE «, t00=0x00a7, t01=0x0134}
0x1062c…10638 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a7, t01=0x015e}
0x10638…10642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x016a}
0x10642…1066e Head {h00=0x0028, h01=0x0050, text=»* STORE TASK IDENTIFICATION IN TTAB«, t00=0x00a7, t01=0x0174}
0x1066e…10678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x0010}
0x10678…106a6 Head {h00=0x002a, h01=0x0050, text=»BTT62 LD A5,STKEND+TASKID GET TASK ID «, t00=0x00a8, t01=0x001a}
0x106a6…106ce Head {h00=0x0024, h01=0x0050, text=» ST A5,TTB:ID,A12 STORE IN TTAB «, t00=0x00a8, t01=0x0048}
0x106ce…106f2 Head {h00=0x0020, h01=0x0050, text=» ADK A5,1 INCREMENT TASK ID «, t00=0x00a8, t01=0x0070}
0x106f2…1072e Head {h00=0x0038, h01=0x0050, text=» ST A5,STKEND+TASKID SAVE TO NEXT TASK IN SAME CLASS«, t00=0x00a8, t01=0x0094}
0x1072e…10762 Head {h00=0x0030, h01=0x0050, text=» LD A5,STKEND+APCSTA GET APPL. CONTROL BLOCK«, t00=0x00a8, t01=0x00d0}
0x10762…10792 Head {h00=0x002c, h01=0x0050, text=» ST A5,TTB:AP,A12 STORE ADDRESS IN TTAB «, t00=0x00a8, t01=0x0104}
0x10792…107ba Head {h00=0x0024, h01=0x0050, text=» LD A5,APLTYP,A5 GET APPL. TYPE «, t00=0x00a8, t01=0x0134}
0x107ba…107d6 Head {h00=0x0018, h01=0x0050, text=» CWK A5,'CR' CREDIT?«, t00=0x00a8, t01=0x015c}
0x107d6…107ee Head {h00=0x0014, h01=0x0050, text=» RF(NE) BTT65 NO«, t00=0x00a8, t01=0x0178}
0x107ee…107f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x0190}
0x107f8…10824 Head {h00=0x0028, h01=0x0050, text=»* STORE TASK CLASS TO MATCH IN TTAB«, t00=0x00a9, t01=0x000a}
0x10824…1082e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x0036}
0x1082e…1085e Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+TCLSAV GET TCL START VALUE«, t00=0x00a9, t01=0x0040}
0x1085e…10884 Head {h00=0x0022, h01=0x0050, text=» ST A5,TTB:PP,A12 SAVE IN TTAB«, t00=0x00a9, t01=0x0070}
0x10884…108a4 Head {h00=0x001c, h01=0x0050, text=» ADK A5,1 INCREMENT TCL«, t00=0x00a9, t01=0x0096}
0x108a4…108c6 Head {h00=0x001e, h01=0x0050, text=» ST A5,STKEND+TCLSAV SAVE «, t00=0x00a9, t01=0x00b6}
0x108c6…108da Head {h00=0x0010, h01=0x0050, text=»BTT65 EQU * «, t00=0x00a9, t01=0x00d8}
0x108da…1090a Head {h00=0x002c, h01=0x0050, text=» STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB «, t00=0x00a9, t01=0x00ec}
0x1090a…10930 Head {h00=0x0022, h01=0x0050, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x00a9, t01=0x011c}
0x10930…1096a Head {h00=0x0036, h01=0x0050, text=» ST A7,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY «, t00=0x00a9, t01=0x0142}
0x1096a…109a2 Head {h00=0x0034, h01=0x0050, text=» ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS «, t00=0x00a9, t01=0x017c}
0x109a2…109dc Head {h00=0x0036, h01=0x0050, text=» SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS«, t00=0x00aa, t01=0x0024}
0x109dc…109ee Head {h00=0x000e, h01=0x0050, text=» RB BTT60 «, t00=0x00aa, t01=0x005e}
0x109ee…109fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00aa, t01=0x0070}
0x109fc…10a10 Head {h00=0x0010, h01=0x0050, text=»BTT70 EQU * «, t00=0x00aa, t01=0x007e}
0x10a10…10a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0092}
0x10a1a…10a48 Head {h00=0x002a, h01=0x0050, text=»* RESET POINTER TO START OF FREE AREA«, t00=0x00aa, t01=0x009c}
0x10a48…10a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x00ca}
0x10a52…10a70 Head {h00=0x001a, h01=0x0050, text=» LD A12,STKEND+SFASAV «, t00=0x00aa, t01=0x00d4}
0x10a70…10a84 Head {h00=0x0010, h01=0x0050, text=»BTT90 EQU * «, t00=0x00aa, t01=0x00f2}
0x10a84…10aa8 Head {h00=0x0020, h01=0x0050, text=» CALL NXTBLK GET NEXT BLOCK «, t00=0x00aa, t01=0x0106}
0x10aa8…10ad4 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00aa, t01=0x012a}
0x10ad4…10aea Head {h00=0x0012, h01=0x0050, text=» RF(NE) BTT95 «, t00=0x00aa, t01=0x0156}
0x10aea…10b04 Head {h00=0x0016, h01=0x0050, text=» LD P,STKEND+WRK2 «, t00=0x00aa, t01=0x016c}
0x10b04…10b18 Head {h00=0x0010, h01=0x0050, text=»BTT95 EQU * «, t00=0x00aa, t01=0x0186}
0x10b18…10b3e Head {h00=0x0022, h01=0x0050, text=» CALL NXTAPL NEXT APPLICATION «, t00=0x00ab, t01=0x000a}
0x10b3e…10b52 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BTT98«, t00=0x00ab, t01=0x0030}
0x10b52…10b6c Head {h00=0x0016, h01=0x0050, text=» LD P,STKEND+WRK1 «, t00=0x00ab, t01=0x0044}
0x10b6c…10ba0 Head {h00=0x0030, h01=0x0050, text=»BTT98 ST A12,SCTSFA SAVE START OF FREE AREA «, t00=0x00ab, t01=0x005e}
0x10ba0…10bc4 Head {h00=0x0020, h01=0x0050, text=» SU A7,SCTTCT COMPUTE LENGTH«, t00=0x00ab, t01=0x0092}
0x10bc4…10be0 Head {h00=0x0018, h01=0x0050, text=» ST* A7,SCTTCT STORE«, t00=0x00ab, t01=0x00b6}
0x10be0…10bf8 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00ab, t01=0x00d2}
0x10bf8…10c0e Head {h00=0x0012, h01=0x0050, text=» IFF SWPBLK=0 «, t00=0x00ab, t01=0x00ea}
0x10c0e…10c1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ab, t01=0x0100}
0x10c1c…10c30 Head {h00=0x0010, h01=0x0050, text=»B:SWBT EQU *«, t00=0x00ab, t01=0x010e}
0x10c30…10c58 Head {h00=0x0024, h01=0x0050, text=» CALL PUSH SAVE REGISTER A1-A14 «, t00=0x00ab, t01=0x0122}
0x10c58…10c7e Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00ab, t01=0x014a}
0x10c7e…10ca4 Head {h00=0x0022, h01=0x0050, text=» ANK A1,8 SWB OPTION INCLUDED «, t00=0x00ab, t01=0x0170}
0x10ca4…10cbc Head {h00=0x0014, h01=0x0050, text=» RF(Z) BSWT42 NO«, t00=0x00ac, t01=0x0008}
0x10cbc…10cf0 Head {h00=0x0030, h01=0x0050, text=» CM STKCOM+APPLNO RESET APPLICATION COUNTER «, t00=0x00ac, t01=0x0020}
0x10cf0…10d20 Head {h00=0x002c, h01=0x0050, text=» ST P,STKEND+LIMIT SAVE LOCATION COUNTER«, t00=0x00ac, t01=0x0054}
0x10d20…10d54 Head {h00=0x0030, h01=0x0050, text=»BSWT05 LDKL A1,'CR' APPLICATION TYPE=CREDIT «, t00=0x00ac, t01=0x0084}
0x10d54…10d84 Head {h00=0x002c, h01=0x0050, text=» CALL GETAPP GET NEXT CREDIT APPLICATION«, t00=0x00ac, t01=0x00b8}
0x10d84…10dae Head {h00=0x0026, h01=0x0050, text=» RF(Z) BSWT42 NO MORE APPLICATIONS«, t00=0x00ac, t01=0x00e8}
0x10dae…10dd2 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A1 GET ACB ADDRESS «, t00=0x00ac, t01=0x0112}
0x10dd2…10df4 Head {h00=0x001e, h01=0x0050, text=» ST A10,STKEND+APCSTA SAVE«, t00=0x00ac, t01=0x0136}
0x10df4…10e1e Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x00ac, t01=0x0158}
0x10e1e…10e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x0182}
0x10e28…10e66 Head {h00=0x003a, h01=0x0050, text=»* SEARCH FOR SWB TYPE DEFINITION BLOCK IN CONF. FILE «, t00=0x00ac, t01=0x018c}
0x10e66…10e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x003a}
0x10e70…10e9a Head {h00=0x0026, h01=0x0050, text=»BSWT10 CALL NXTBLK GET NEXT BLOCK «, t00=0x00ad, t01=0x0044}
0x10e9a…10ec6 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00ad, t01=0x006e}
0x10ec6…10ee0 Head {h00=0x0016, h01=0x0050, text=» RB(E) BSWT10 YES!«, t00=0x00ad, t01=0x009a}
0x10ee0…10f14 Head {h00=0x0030, h01=0x0050, text=» CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK?«, t00=0x00ad, t01=0x00b4}
0x10f14…10f2e Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT20 NO!«, t00=0x00ad, t01=0x00e8}
0x10f2e…10f42 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x00ad, t01=0x0102}
0x10f42…10f68 Head {h00=0x0022, h01=0x0050, text=» CALL NXTCOM SKIP COMMON BLOCK«, t00=0x00ad, t01=0x0116}
0x10f68…10f9e Head {h00=0x0032, h01=0x0050, text=»BSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? «, t00=0x00ad, t01=0x013c}
0x10f9e…10fb8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT40 NO!«, t00=0x00ad, t01=0x0172}
0x10fb8…10fdc Head {h00=0x0020, h01=0x0050, text=» ADKL A11,1 NUMBER OF TYPES «, t00=0x00ad, t01=0x018c}
0x10fdc…10ff0 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x00ae, t01=0x0020}
0x10ff0…1101a Head {h00=0x0026, h01=0x0050, text=» CALL GETNUM NUMBER OF UWB RECORDS«, t00=0x00ae, t01=0x0034}
0x1101a…11032 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A5 SAVE «, t00=0x00ae, t01=0x005e}
0x11032…1105a Head {h00=0x0024, h01=0x0050, text=» RF(Z) SWBERR ILLEGAL NUMBER!!! «, t00=0x00ae, t01=0x0076}
0x1105a…11086 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UWB RECORD «, t00=0x00ae, t01=0x009e}
0x11086…110b2 Head {h00=0x0028, h01=0x0050, text=»BSWT30 ADKL A11,6 BYPASS UWB RECORD «, t00=0x00ae, t01=0x00ca}
0x110b2…110da Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECR. NUMBER OF TYPES «, t00=0x00ae, t01=0x00f6}
0x110da…110fa Head {h00=0x001c, h01=0x0050, text=» RB(P) BSWT30 MOORE LEFT«, t00=0x00ae, t01=0x011e}
0x110fa…1112a Head {h00=0x002c, h01=0x0050, text=» LCR A2,A11 GET NEXT CHAR. IN CONF.FILE «, t00=0x00ae, t01=0x013e}
0x1112a…1115e Head {h00=0x0030, h01=0x0050, text=»BSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK«, t00=0x00ae, t01=0x016e}
0x1115e…11178 Head {h00=0x0016, h01=0x0050, text=» RF(E) BSWT44 YES!«, t00=0x00af, t01=0x0012}
0x11178…111a4 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,0 NO SWB DEFINITION BLOCK! «, t00=0x00af, t01=0x002c}
0x111a4…111d0 Head {h00=0x0028, h01=0x0050, text=» ST A1,APLSWB,A10 CLEAR SWB POINTER «, t00=0x00af, t01=0x0058}
0x111d0…1120e Head {h00=0x003a, h01=0x0050, text=» LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION =2 «, t00=0x00af, t01=0x0084}
0x1120e…11238 Head {h00=0x0026, h01=0x0050, text=»BSWT42 CALL POB RESTORE REGISTERS «, t00=0x00af, t01=0x00c2}
0x11238…11248 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00af, t01=0x00ec}
0x11248…11272 Head {h00=0x0026, h01=0x0050, text=»BSWT44 ADKL A11,1 NUMBER OF TYPES «, t00=0x00af, t01=0x00fc}
0x11272…112a4 Head {h00=0x002e, h01=0x0050, text=» ST A11,STKEND+SWBBLK START OF CONF. DATA «, t00=0x00af, t01=0x0126}
0x112a4…112b8 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x00af, t01=0x0158}
0x112b8…112da Head {h00=0x001e, h01=0x0050, text=» CALL GETNUM GET 3 DIGITS «, t00=0x00af, t01=0x016c}
0x112da…112f2 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A5 ZERO?«, t00=0x00af, t01=0x018e}
0x112f2…1131a Head {h00=0x0024, h01=0x0050, text=» RF(Z) SWBERR ILLEGAL NUMBER!!! «, t00=0x00b0, t01=0x0016}
0x1131a…1134e Head {h00=0x0030, h01=0x0050, text=» ST A5,STKEND+NBRSWB SAVE NUMBER OF RECORDS «, t00=0x00b0, t01=0x003e}
0x1134e…1136e Head {h00=0x001c, h01=0x0050, text=» ST A5,STKEND+WRK1 SAVE «, t00=0x00b0, t01=0x0072}
0x1136e…113a0 Head {h00=0x002e, h01=0x0050, text=» LD A8,STKCOM+SWBFLG GET ADDRESS TO $SWAPP«, t00=0x00b0, t01=0x0092}
0x113a0…113c4 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) BSWT48 FILE CREATED «, t00=0x00b0, t01=0x00c4}
0x113c4…113ea Head {h00=0x0022, h01=0x0050, text=»SWBERR LDKL A1,LMP6 SWB ERROR!«, t00=0x00b0, t01=0x00e8}
0x113ea…113fe Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00b0, t01=0x010e}
0x113fe…1143c Head {h00=0x003a, h01=0x0050, text=»BSWT48 ST A12,APLSWB,A10 SAVE ADDRESS TO ADDRESS TABLE«, t00=0x00b0, t01=0x0122}
0x1143c…1146e Head {h00=0x002e, h01=0x0050, text=» CM STKCOM+SWBCNT RESET SWP-BLOCK COUNTER «, t00=0x00b0, t01=0x0160}
0x1146e…11490 (177, 0, 398) Head {h00=0x001e, h01=0x0050, text=» ADKL A12,2 FIRST POINTER «, t00=0x00b1, t01=0x0004}
0x11490…114aa Head {h00=0x0016, h01=0x0050, text=» LDR A10,A12 SAVE «, t00=0x00b1, t01=0x0026}
0x114aa…114d2 Head {h00=0x0024, h01=0x0050, text=»BSWT50 ADKL A10,2 BYPASS POINTER«, t00=0x00b1, t01=0x0040}
0x114d2…114fe Head {h00=0x0028, h01=0x0050, text=» SUK A5,1 DECREMENT NUMBER OF TYPES «, t00=0x00b1, t01=0x0068}
0x114fe…11514 Head {h00=0x0012, h01=0x0050, text=» RB(P) BSWT50 «, t00=0x00b1, t01=0x0094}
0x11514…1151e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x00aa}
0x1151e…11548 Head {h00=0x0026, h01=0x0050, text=»* GET ADDRESS TO S:BTAB PROTOTYPE«, t00=0x00b1, t01=0x00b4}
0x11548…11552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x00de}
0x11552…11582 Head {h00=0x002c, h01=0x0050, text=» LD A2,STKEND+APCSTA GET ADDRESS TO ACB «, t00=0x00b1, t01=0x00e8}
0x11582…115ac Head {h00=0x0026, h01=0x0050, text=» LD* A1,APLMMC,A2 GET TTAB ADDRESS«, t00=0x00b1, t01=0x0118}
0x115ac…115d4 Head {h00=0x0024, h01=0x0050, text=» TL TTB:MT,A1 LOAD MMU REGISTERS«, t00=0x00b1, t01=0x0142}
0x115d4…11600 Head {h00=0x0028, h01=0x0050, text=» LD A2,APLLAC,A2 GET P:MTAB ADDRESS «, t00=0x00b1, t01=0x016a}
0x11600…11628 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET P:MTAB ADDRESS «, t00=0x00b2, t01=0x0008}
0x11628…11640 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00b2, t01=0x0030}
0x11640…11670 Head {h00=0x002c, h01=0x0050, text=» ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS«, t00=0x00b2, t01=0x0048}
0x11670…11698 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET S:BTAB ADDRESS «, t00=0x00b2, t01=0x0078}
0x11698…116c6 Head {h00=0x002a, h01=0x0050, text=» LDR A2,A1 GET ADDRESS TO PROT. S:BTAB«, t00=0x00b2, t01=0x00a0}
0x116c6…116f4 Head {h00=0x002a, h01=0x0050, text=» RB(Z) SWBERR NO SWB:S IN APPLICATION!«, t00=0x00b2, t01=0x00ce}
0x116f4…11716 Head {h00=0x001e, h01=0x0050, text=» ADK A1,2 ADDRESS TO NAME «, t00=0x00b2, t01=0x00fc}
0x11716…11738 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+SWBNAM SAVE «, t00=0x00b2, t01=0x011e}
0x11738…1176c Head {h00=0x0030, h01=0x0050, text=» SUK A2,2 ADDRESS TO LENGTH OF PROT. S:BTAB «, t00=0x00b2, t01=0x0140}
0x1176c…1179c Head {h00=0x002c, h01=0x0050, text=» CALL GETCON GET LENGTH OF PROT. S:BTAB «, t00=0x00b2, t01=0x0174}
0x1179c…117b4 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A1 SAVE «, t00=0x00b3, t01=0x0014}
0x117b4…117be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x002c}
0x117be…117f4 Head {h00=0x0032, h01=0x0050, text=»* CHECK IF ENOUGTH MEMORY IN FIRST PARTITION «, t00=0x00b3, t01=0x0036}
0x117f4…117fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b3, t01=0x006c}
0x117fe…1181e Head {h00=0x001c, h01=0x0050, text=» XRR A2,A2 RESET COUNTER«, t00=0x00b3, t01=0x0076}
0x1181e…11846 Head {h00=0x0024, h01=0x0050, text=»BSWT52 SUK A1,6 DECREMENT LENGTH«, t00=0x00b3, t01=0x0096}
0x11846…1186e Head {h00=0x0024, h01=0x0050, text=» RF(N) BSWT55 NO MORE SWB-BLOCKS«, t00=0x00b3, t01=0x00be}
0x1186e…11894 Head {h00=0x0022, h01=0x0050, text=» ADK A2,1 INCR. BLOCK COUNTER «, t00=0x00b3, t01=0x00e6}
0x11894…118a6 Head {h00=0x000e, h01=0x0050, text=» RB BSWT52«, t00=0x00b3, t01=0x010c}
0x118a6…118cc Head {h00=0x0022, h01=0x0050, text=»BSWT55 SLL A2,3 MULTIPLY BY 8 «, t00=0x00b3, t01=0x011e}
0x118cc…118f4 Head {h00=0x0024, h01=0x0050, text=» LDR A9,A10 GET START OF BLOCKS «, t00=0x00b3, t01=0x0144}
0x118f4…11912 Head {h00=0x001a, h01=0x0050, text=» ADR A9,A2 ADD LENGTH «, t00=0x00b3, t01=0x016c}
0x11912…11940 Head {h00=0x002a, h01=0x0050, text=» LD A11,STKEND+LIMIT GET CURRENT LIMIT«, t00=0x00b3, t01=0x018a}
0x11940…11966 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x00b4, t01=0x0028}
0x11966…11980 Head {h00=0x0016, h01=0x0050, text=» RF(NL) BSWT57 NO!«, t00=0x00b4, t01=0x004e}
0x11980…119ae Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00b4, t01=0x0068}
0x119ae…119c2 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00b4, t01=0x0096}
0x119c2…119ea Head {h00=0x0024, h01=0x0050, text=»BSWT57 SUK A4,2 SKIP LENGTH WORD«, t00=0x00b4, t01=0x00aa}
0x119ea…11a10 Head {h00=0x0022, h01=0x0050, text=» LDKL A9,0 RESET BLOCK COUNTER«, t00=0x00b4, t01=0x00d2}
0x11a10…11a40 Head {h00=0x002c, h01=0x0050, text=»BSWT60 STR A10,A12 SAVE POINTER TO BLOCK«, t00=0x00b4, t01=0x00f8}
0x11a40…11a62 Head {h00=0x001e, h01=0x0050, text=» ST A4,STKEND+SWBTBL SAVE «, t00=0x00b4, t01=0x0128}
0x11a62…11a94 Head {h00=0x002e, h01=0x0050, text=» LD A11,STKEND+SWBBLK START OF CONF. DATA «, t00=0x00b4, t01=0x014a}
0x11a94…11ac6 Head {h00=0x002e, h01=0x0050, text=» LD A7,STKEND+NBRSWB NUMBER OF SWB RECORDS«, t00=0x00b4, t01=0x017c}
0x11ac6…11afe Head {h00=0x0034, h01=0x0050, text=»BSWT65 LD A2,STKEND+SWBNAM NAME RECORD IN PROT. «, t00=0x00b5, t01=0x001e}
0x11afe…11b26 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET TWO FIRST CHAR.«, t00=0x00b5, t01=0x0056}
0x11b26…11b52 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,NAMUWB NAME IN CONF. FILE «, t00=0x00b5, t01=0x007e}
0x11b52…11b76 Head {h00=0x0020, h01=0x0050, text=» LCR A3,A11 GET FIRST CHAR. «, t00=0x00b5, t01=0x00aa}
0x11b76…11b9a Head {h00=0x0020, h01=0x0050, text=» SLL A3,8 MOVE TO LEFT BYTE «, t00=0x00b5, t01=0x00ce}
0x11b9a…11bc0 Head {h00=0x0022, h01=0x0050, text=» LC A3,1,A11 GET SECOND CHAR. «, t00=0x00b5, t01=0x00f2}
0x11bc0…11bea Head {h00=0x0026, h01=0x0050, text=» CWR A1,A3 TWO FIRST CHAR. EQUAL? «, t00=0x00b5, t01=0x0118}
0x11bea…11c04 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT70 NO!«, t00=0x00b5, t01=0x0142}
0x11c04…11c2a Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 NEXT CHAR. IN PROT. «, t00=0x00b5, t01=0x015c}
0x11c2a…11c4e Head {h00=0x0020, h01=0x0050, text=» CALL GETCON GET THIRD CHAR.«, t00=0x00b5, t01=0x0182}
0x11c4e…11c6e Head {h00=0x001c, h01=0x0050, text=» SRL A1,8 ISOLATE CHAR. «, t00=0x00b6, t01=0x0016}
0x11c6e…11ca2 Head {h00=0x0030, h01=0x0050, text=» LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE«, t00=0x00b6, t01=0x0036}
0x11ca2…11cc4 Head {h00=0x001e, h01=0x0050, text=» ANK A3,/FF ISOLATE CHAR. «, t00=0x00b6, t01=0x006a}
0x11cc4…11cea Head {h00=0x0022, h01=0x0050, text=» CWR A1,A3 THIRD CHAR. EQUAL? «, t00=0x00b6, t01=0x008c}
0x11cea…11d04 Head {h00=0x0016, h01=0x0050, text=» RF(E) BSWT75 YES!«, t00=0x00b6, t01=0x00b2}
0x11d04…11d2c Head {h00=0x0024, h01=0x0050, text=»BSWT70 ADKL A11,NAMUWB SKIP NAME«, t00=0x00b6, t01=0x00cc}
0x11d2c…11d58 Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF TYPES «, t00=0x00b6, t01=0x00f4}
0x11d58…11d78 Head {h00=0x001c, h01=0x0050, text=» RB(P) BSWT65 NEXT TYPE «, t00=0x00b6, t01=0x0120}
0x11d78…11d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0140}
0x11d82…11dd4 Head {h00=0x004e, h01=0x0050, text=»* NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK «, t00=0x00b6, t01=0x014a}
0x11dd4…11dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x000c}
0x11dde…11dfc Head {h00=0x001a, h01=0x0050, text=» STR A7,A10 1:ST WORD «, t00=0x00b7, t01=0x0016}
0x11dfc…11e1a Head {h00=0x001a, h01=0x0050, text=» ST A7,2,A10 2:ND WORD«, t00=0x00b7, t01=0x0034}
0x11e1a…11e38 Head {h00=0x001a, h01=0x0050, text=» ST A7,4,A10 3:RD WORD«, t00=0x00b7, t01=0x0052}
0x11e38…11e56 Head {h00=0x001a, h01=0x0050, text=» ST A7,6,A10 4:TH WORD«, t00=0x00b7, t01=0x0070}
0x11e56…11e68 Head {h00=0x000e, h01=0x0050, text=» RF BSWT95«, t00=0x00b7, t01=0x008e}
0x11e68…11e7c Head {h00=0x0010, h01=0x0050, text=»BSWT75 EQU *«, t00=0x00b7, t01=0x00a0}
0x11e7c…11e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x00b4}
0x11e86…11ea4 Head {h00=0x001a, h01=0x0050, text=»* MATCHING NAME FOUND«, t00=0x00b7, t01=0x00be}
0x11ea4…11eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x00dc}
0x11eae…11ee0 Head {h00=0x002e, h01=0x0050, text=» LD A3,STKEND+WRK1 GET NUMBER OF SWB TYPES«, t00=0x00b7, t01=0x00e6}
0x11ee0…11efc Head {h00=0x0018, h01=0x0050, text=» SUK A3,1 DECREMENT «, t00=0x00b7, t01=0x0118}
0x11efc…11f1c Head {h00=0x001c, h01=0x0050, text=» ST A3,STKEND+WRK1 SAVE «, t00=0x00b7, t01=0x0134}
0x11f1c…11f46 Head {h00=0x0026, h01=0x0050, text=» ADKL A11,NAMUWB NUMBER OF COPIES «, t00=0x00b7, t01=0x0154}
0x11f46…11f5a Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x00b7, t01=0x017e}
0x11f5a…11f7a (184, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LDR A3,A2 SAVE POINTER «, t00=0x00b8, t01=0x0004}
0x11f7a…11fa4 Head {h00=0x0026, h01=0x0050, text=» CALL GETNUM GET NUMBER OF COPIES «, t00=0x00b8, t01=0x0024}
0x11fa4…11fd4 Head {h00=0x002c, h01=0x0050, text=» SLL A5,8 NUMBER OF COPIES IN LEFT BYTE «, t00=0x00b8, t01=0x004e}
0x11fd4…12016 Head {h00=0x003e, h01=0x0050, text=» OR A5,STKCOM+SWBFSA+2 DISC ADDRESS BITS 0-7 IN RIGHT BYTE«, t00=0x00b8, t01=0x007e}
0x12016…1203c Head {h00=0x0022, h01=0x0050, text=» STR A5,A10 STORE IN SWB BLOCK«, t00=0x00b8, t01=0x00c0}
0x1203c…1206c Head {h00=0x002c, h01=0x0050, text=» SRL A5,8 NUMBER OF COPIES TO RIGHT BYTE«, t00=0x00b8, t01=0x00e6}
0x1206c…120a4 Head {h00=0x0034, h01=0x0050, text=» LD A8,STKCOM+SWBFSA GET DISC ADDRESS BITS 8-22 «, t00=0x00b8, t01=0x0116}
0x120a4…120be Head {h00=0x0016, h01=0x0050, text=» ST A8,2,A10 SAVE «, t00=0x00b8, t01=0x014e}
0x120be…120e0 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A3 RESTORE POINTER«, t00=0x00b8, t01=0x0168}
0x120e0…12108 Head {h00=0x0024, h01=0x0050, text=» SUK A2,UPNAME PROTOTYPE ADDRESS«, t00=0x00b8, t01=0x018a}
0x12108…12132 Head {h00=0x0026, h01=0x0050, text=» CALL GETCON GET PROTOTYPE ADDRESS«, t00=0x00b9, t01=0x0022}
0x12132…1214a Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00b9, t01=0x004c}
0x1214a…12174 Head {h00=0x0026, h01=0x0050, text=» SUK A2,UPNAME LENGTH OF WORKBLOCK«, t00=0x00b9, t01=0x0064}
0x12174…12188 Head {h00=0x0010, h01=0x0050, text=» CALL GETCON«, t00=0x00b9, t01=0x008e}
0x12188…121b6 Head {h00=0x002a, h01=0x0050, text=» ST A1,SWBLEN,A10 STORE LENGTH OF SWB «, t00=0x00b9, t01=0x00a2}
0x121b6…121ea Head {h00=0x0030, h01=0x0050, text=»BSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK «, t00=0x00b9, t01=0x00d0}
0x121ea…12210 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 RESET SECTOR COUNTER«, t00=0x00b9, t01=0x0104}
0x12210…12248 Head {h00=0x0034, h01=0x0050, text=»BSWT86 IM STKCOM+SWBFSA INCREMENT SECTOR ADDRESS«, t00=0x00b9, t01=0x012a}
0x12248…1225e Head {h00=0x0012, h01=0x0050, text=» RF(O) BSWT88 «, t00=0x00b9, t01=0x0162}
0x1225e…12270 Head {h00=0x000e, h01=0x0050, text=» RF BSWT90«, t00=0x00b9, t01=0x0178}
0x12270…12292 Head {h00=0x001e, h01=0x0050, text=»BSWT88 IM STKCOM+SWBFSA+2 «, t00=0x00b9, t01=0x018a}
0x12292…122ac Head {h00=0x0016, h01=0x0050, text=» CM STKCOM+SWBFSA «, t00=0x00ba, t01=0x001c}
0x122ac…122c0 Head {h00=0x0010, h01=0x0050, text=»BSWT90 EQU *«, t00=0x00ba, t01=0x0036}
0x122c0…122ea Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT SECTOR COUNTER«, t00=0x00ba, t01=0x004a}
0x122ea…12310 Head {h00=0x0022, h01=0x0050, text=» SUKL A3,256 DECREMENT LENGTH «, t00=0x00ba, t01=0x0074}
0x12310…12334 Head {h00=0x0020, h01=0x0050, text=» RB(P) BSWT86 MOORE SECTORS?«, t00=0x00ba, t01=0x009a}
0x12334…12354 Head {h00=0x001c, h01=0x0050, text=» SUK A5,1 MOORE COPIES? «, t00=0x00ba, t01=0x00be}
0x12354…1236e Head {h00=0x0016, h01=0x0050, text=» RB(P) BSWT85 YES!«, t00=0x00ba, t01=0x00de}
0x1236e…1239c Head {h00=0x002a, h01=0x0050, text=» ST A1,SWBSEC,A10 STORE SECTOR LENGTH «, t00=0x00ba, t01=0x00f8}
0x1239c…123d2 Head {h00=0x0032, h01=0x0050, text=» IM STKCOM+SWBCNT INCREMENT SWP-BLOCK COUNTER «, t00=0x00ba, t01=0x0126}
0x123d2…123f0 Head {h00=0x001a, h01=0x0050, text=» LD A8,STKCOM+SWBFSA+2«, t00=0x00ba, t01=0x015c}
0x123f0…1240e Head {h00=0x001a, h01=0x0050, text=» CW A8,STKCOM+SWBFSE+2«, t00=0x00ba, t01=0x017a}
0x1240e…1243a Head {h00=0x0028, h01=0x0050, text=» RF(G) BSWT98 $SWAP-FILE TOO SMALL! «, t00=0x00bb, t01=0x0008}
0x1243a…12450 Head {h00=0x0012, h01=0x0050, text=» RF(L) BSWT95 «, t00=0x00bb, t01=0x0034}
0x12450…1246c Head {h00=0x0018, h01=0x0050, text=» LD A8,STKCOM+SWBFSA«, t00=0x00bb, t01=0x004a}
0x1246c…12488 Head {h00=0x0018, h01=0x0050, text=» CW A8,STKCOM+SWBFSE«, t00=0x00bb, t01=0x0066}
0x12488…124b4 Head {h00=0x0028, h01=0x0050, text=» RF(G) BSWT98 SWAPP-FILE TOO SMALL! «, t00=0x00bb, t01=0x0082}
0x124b4…124e2 Head {h00=0x002a, h01=0x0050, text=»BSWT95 ADKL A10,8 START OF NEXT BLOCK «, t00=0x00bb, t01=0x00ae}
0x124e2…12502 Head {h00=0x001c, h01=0x0050, text=» ADKL A12,2 NEXT POINTER«, t00=0x00bb, t01=0x00dc}
0x12502…1252c Head {h00=0x0026, h01=0x0050, text=» ADKL A9,1 INCREMENT BLOCK COUNTER«, t00=0x00bb, t01=0x00fc}
0x1252c…12568 Head {h00=0x0038, h01=0x0050, text=» LD A2,STKEND+SWBNAM CURRENT RECORD IN PROT. S:BTAB «, t00=0x00bb, t01=0x0126}
0x12568…1259a Head {h00=0x002e, h01=0x0050, text=» ADK A2,UP:REC NEXT RECORD IN PROT. S:BTAB«, t00=0x00bb, t01=0x0162}
0x1259a…125bc (188, 0, 400) Head {h00=0x001e, h01=0x0050, text=» ST A2,STKEND+SWBNAM SAVE «, t00=0x00bc, t01=0x0004}
0x125bc…125f4 Head {h00=0x0034, h01=0x0050, text=» LD A4,STKEND+SWBTBL GET LENGTH OF PROT. S:BTAB «, t00=0x00bc, t01=0x0026}
0x125f4…12614 Head {h00=0x001c, h01=0x0050, text=» SUK A4,UP:REC DECREMENT«, t00=0x00bc, t01=0x005e}
0x12614…12636 Head {h00=0x001e, h01=0x0050, text=» RB(P) BSWT60 MOORE TYPES «, t00=0x00bc, t01=0x007e}
0x12636…12668 Head {h00=0x002e, h01=0x0050, text=» LD A8,STKCOM+SWBCNT ANY BLOCKS GENERATED?«, t00=0x00bc, t01=0x00a0}
0x12668…12682 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BSWT98 NO! «, t00=0x00bc, t01=0x00d2}
0x12682…126b4 Head {h00=0x002e, h01=0x0050, text=» LD A8,STKEND+WRK1 ALL SWB TYPES MATCHED? «, t00=0x00bc, t01=0x00ec}
0x126b4…126d0 Head {h00=0x0018, h01=0x0050, text=» RF(NP) BSWT99 YES! «, t00=0x00bc, t01=0x011e}
0x126d0…126ec Head {h00=0x0018, h01=0x0050, text=»BSWT98 LDKL A1,LMP6 «, t00=0x00bc, t01=0x013a}
0x126ec…1270a Head {h00=0x001a, h01=0x0050, text=» CALL ERROR SWB ERROR!«, t00=0x00bc, t01=0x0156}
0x1270a…12740 Head {h00=0x0032, h01=0x0050, text=»BSWT99 ST A10,SCTSFA UPDATE START OF FREE AREA«, t00=0x00bc, t01=0x0174}
0x12740…12776 Head {h00=0x0032, h01=0x0050, text=» LD A10,STKEND+APCSTA GET CURRENT ACB ADDRESS «, t00=0x00bd, t01=0x001a}
0x12776…127a4 Head {h00=0x002a, h01=0x0050, text=» ST* A9,APLSWB,A10 NUMBER OF SWB TYPES«, t00=0x00bd, t01=0x0050}
0x127a4…127de Head {h00=0x0036, h01=0x0050, text=» LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION«, t00=0x00bd, t01=0x007e}
0x127de…127ea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x00b8}
0x127ea…12806 Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x00bd, t01=0x00c4}
0x12806…12814 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bd, t01=0x00e0}
0x12814…12850 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00bd, t01=0x00ee}
0x12850…1288c Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bd, t01=0x012a}
0x1288c…128c8 Head {h00=0x0038, h01=0x0050, text=»* B:STAB - BUILD SEGMENT TABLES * «, t00=0x00bd, t01=0x0166}
0x128c8…12904 Head {h00=0x0038, h01=0x0050, text=»* ============================= * «, t00=0x00be, t01=0x0012}
0x12904…12940 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00be, t01=0x004e}
0x12940…1297c Head {h00=0x0038, h01=0x0050, text=»* REFERENCED IN: SYSLDM * «, t00=0x00be, t01=0x008a}
0x1297c…129b8 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00be, t01=0x00c6}
0x129b8…129f4 Head {h00=0x0038, h01=0x0050, text=»* ENTRY: * «, t00=0x00be, t01=0x0102}
0x129f4…12a30 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00be, t01=0x013e}
0x12a30…12a6c Head {h00=0x0038, h01=0x0050, text=»* EXIT: * «, t00=0x00be, t01=0x017a}
0x12a6c…12aa8 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bf, t01=0x0026}
0x12aa8…12ae4 Head {h00=0x0038, h01=0x0050, text=»* WORK REGISTERS: A1-A14 (THEIR ORIGINAL * «, t00=0x00bf, t01=0x0062}
0x12ae4…12b20 Head {h00=0x0038, h01=0x0050, text=»* CONTENTS ARE SAVED ON STACK * «, t00=0x00bf, t01=0x009e}
0x12b20…12b5c Head {h00=0x0038, h01=0x0050, text=»* AND RESTORED BEFORE EXIT) * «, t00=0x00bf, t01=0x00da}
0x12b5c…12b98 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bf, t01=0x0116}
0x12b98…12bd4 Head {h00=0x0038, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: * «, t00=0x00bf, t01=0x0152}
0x12bd4…12c10 Head {h00=0x0038, h01=0x0050, text=»* FOR BASIC ONE SEGMENT TABLE AREA/TASK IS * «, t00=0x00bf, t01=0x018e}
0x12c10…12c4c Head {h00=0x0038, h01=0x0050, text=»* RESERVED. THE FIFTH WORD IN EACH SEGMENT TABLE * «, t00=0x00c0, t01=0x003a}
0x12c4c…12c88 Head {h00=0x0038, h01=0x0050, text=»* CONTAINS A POINTER TO THE FIFTH WORD IN NEXT * «, t00=0x00c0, t01=0x0076}
0x12c88…12cc4 Head {h00=0x0038, h01=0x0050, text=»* EXCEPT THE LAST CONTAINS A PONTER TO THE FIFTH * «, t00=0x00c0, t01=0x00b2}
0x12cc4…12d00 Head {h00=0x0038, h01=0x0050, text=»* WORD IN THE NEXT SEGMENT TABLE. ALL OTHER LO- * «, t00=0x00c0, t01=0x00ee}
0x12d00…12d3c Head {h00=0x0038, h01=0x0050, text=»* CATIONS CONTAIN ZERO. * «, t00=0x00c0, t01=0x012a}
0x12d3c…12d78 Head {h00=0x0038, h01=0x0050, text=»* FOR COBOL AND CREDIT APPLICATIONS ONE SEGMENT * «, t00=0x00c0, t01=0x0166}
0x12d78…12db4 Head {h00=0x0038, h01=0x0050, text=»* TABLE PER APPLICATION IS GENERATED. STATUS, * «, t00=0x00c1, t01=0x0012}
0x12db4…12df0 Head {h00=0x0038, h01=0x0050, text=»* DISK ADDRESS AND LENGTH FOR EACH SEGMENT IS * «, t00=0x00c1, t01=0x004e}
0x12df0…12e2c Head {h00=0x0038, h01=0x0050, text=»* WRITTEN IN CORRESPONDING SEGBLK. THE SEGMENT * «, t00=0x00c1, t01=0x008a}
0x12e2c…12e68 Head {h00=0x0038, h01=0x0050, text=»* TABLE ADDRESS IS STORED IN THE TTAB FOR EACH * «, t00=0x00c1, t01=0x00c6}
0x12e68…12ea4 Head {h00=0x0038, h01=0x0050, text=»* TASK IN THE APPLICATION. * «, t00=0x00c1, t01=0x0102}
0x12ea4…12ee0 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00c1, t01=0x013e}
0x12ee0…12f1c Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00c1, t01=0x017a}
0x12f1c…12f2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c2, t01=0x0026}
0x12f2a…12f3e Head {h00=0x0010, h01=0x0050, text=»B:STAB EQU *«, t00=0x00c2, t01=0x0034}
0x12f3e…12f66 Head {h00=0x0024, h01=0x0050, text=» CALL PUSH SAVE A1-A14 ON STACK «, t00=0x00c2, t01=0x0048}
0x12f66…12f90 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00c2, t01=0x0070}
0x12f90…12fb6 Head {h00=0x0022, h01=0x0050, text=» LDR A9,P GET LIMIT FOR WRITE «, t00=0x00c2, t01=0x009a}
0x12fb6…12ff6 Head {h00=0x003c, h01=0x0050, text=»BST010 LD A10,STKEND+APCSTA SAVE POINTER TO CURRENT ACB «, t00=0x00c2, t01=0x00c0}
0x12ff6…13028 Head {h00=0x002e, h01=0x0050, text=» CALL NXTAPL GET NEXT APPL. CONTROL BLOCK «, t00=0x00c2, t01=0x0100}
0x13028…1304c Head {h00=0x0020, h01=0x0050, text=» RF(NZ) BST020 NOT LAST YET «, t00=0x00c2, t01=0x0132}
0x1304c…13076 Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET LENGTH OF TCTAB«, t00=0x00c2, t01=0x0156}
0x13076…13098 Head {h00=0x001e, h01=0x0050, text=» AD A2,SCTTCT END OF TCTAB«, t00=0x00c2, t01=0x0180}
0x13098…130aa Head {h00=0x000e, h01=0x0050, text=» RF BST040«, t00=0x00c3, t01=0x0012}
0x130aa…130e2 Head {h00=0x0034, h01=0x0050, text=»BST020 LD A2,APLMMC,A2 GET END OF TCTAB ENTRIES «, t00=0x00c3, t01=0x0024}
0x130e2…1310a Head {h00=0x0024, h01=0x0050, text=»BST040 ST A2,STKEND+TCTEND SAVE «, t00=0x00c3, t01=0x005c}
0x1310a…1311c Head {h00=0x000e, h01=0x0050, text=» LDR A8,P «, t00=0x00c3, t01=0x0084}
0x1311c…13158 Head {h00=0x0038, h01=0x0050, text=»BST045 ADKL A8,BST400-BST045 RELOCATE BRANCH ADDRESS«, t00=0x00c3, t01=0x0096}
0x13158…1318e Head {h00=0x0032, h01=0x0050, text=» LD A5,APLMMP,A10 GET CURRENT APPLICATION TYPE«, t00=0x00c3, t01=0x00d2}
0x1318e…131ba Head {h00=0x0028, h01=0x0050, text=» CWK A5,'AS' ASSEMBLER APPLICATION? «, t00=0x00c3, t01=0x0108}
0x131ba…131f0 Head {h00=0x0032, h01=0x0050, text=» ABR(E) A8 YES; DON'T GENERATE SEGMENT TABLE! «, t00=0x00c3, t01=0x0134}
0x131f0…13220 Head {h00=0x002c, h01=0x0050, text=» LD A8,APLMMC,A10 GET FIRST TCTAB ENTRY «, t00=0x00c3, t01=0x016a}
0x13220…1323c Head {h00=0x0018, h01=0x0050, text=» CWK A5,'BA' BASIC? «, t00=0x00c4, t01=0x000a}
0x1323c…13256 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BST050 NO «, t00=0x00c4, t01=0x0026}
0x13256…1327a Head {h00=0x0020, h01=0x0050, text=» SUR A2,A8 2*NUMBER OF TASKS«, t00=0x00c4, t01=0x0040}
0x1327a…1329c Head {h00=0x001e, h01=0x0050, text=» SRL A2,1 NUMBER OF TASKS «, t00=0x00c4, t01=0x0064}
0x1329c…132bc Head {h00=0x001c, h01=0x0050, text=» ST A2,STKEND+WRK1 SAVE «, t00=0x00c4, t01=0x0086}
0x132bc…132da Head {h00=0x001a, h01=0x0050, text=» ST A2,APLNPE,A10 SAVE«, t00=0x00c4, t01=0x00a6}
0x132da…1330c Head {h00=0x002e, h01=0x0050, text=» LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK «, t00=0x00c4, t01=0x00c4}
0x1330c…1332c Head {h00=0x001c, h01=0x0050, text=» SLL A3,3 MULTIPLY BY 8 «, t00=0x00c4, t01=0x00f6}
0x1332c…13354 Head {h00=0x0024, h01=0x0050, text=» ADK A3,12 INCLUDE 6 FIRST WORDS«, t00=0x00c4, t01=0x0116}
0x13354…13372 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A3 SAVE LENGTH«, t00=0x00c4, t01=0x013e}
0x13372…133aa Head {h00=0x0034, h01=0x0050, text=» CALL MULT COMPUTE LENGTH OF SEGMENT TABLE AREA «, t00=0x00c4, t01=0x015c}
0x133aa…133bc (197, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF BST090«, t00=0x00c5, t01=0x0004}
0x133bc…133ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c5, t01=0x0016}
0x133ca…133f6 Head {h00=0x0028, h01=0x0050, text=»BST050 LD A2,SCTOPT GET OPTION WORD «, t00=0x00c5, t01=0x0024}
0x133f6…1340c Head {h00=0x0012, h01=0x0050, text=» ANK A2,1 MMU?«, t00=0x00c5, t01=0x0050}
0x1340c…13424 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BST070 NO«, t00=0x00c5, t01=0x0066}
0x13424…13448 Head {h00=0x0020, h01=0x0050, text=» LDR* A7,A8 GET TTAB ADDRESS«, t00=0x00c5, t01=0x007e}
0x13448…1346c Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x00c5, t01=0x00a2}
0x1346c…1349a Head {h00=0x002a, h01=0x0050, text=»BST070 LD A2,APLLAC,A10 ADDRESS S:GTAB«, t00=0x00c5, t01=0x00c6}
0x1349a…134c8 Head {h00=0x002a, h01=0x0050, text=» ADK A2,10 ADDRESS NUMBER OF SEGMENTS «, t00=0x00c5, t01=0x00f4}
0x134c8…134f4 Head {h00=0x0028, h01=0x0050, text=» CALL GETCON GET NUMBER OF SEGMENTS «, t00=0x00c5, t01=0x0122}
0x134f4…1350c Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x00c5, t01=0x014e}
0x1350c…13524 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x00c5, t01=0x0166}
0x13524…13544 Head {h00=0x001c, h01=0x0050, text=» SLL A3,3 MULTIPLY BY 8 «, t00=0x00c5, t01=0x017e}
0x13544…1356c Head {h00=0x0024, h01=0x0050, text=» ADK A3,12 INCLUDE 6 FIRST WORDS«, t00=0x00c6, t01=0x000e}
0x1356c…135a0 Head {h00=0x0030, h01=0x0050, text=»BST090 LD A12,SCTSFA GET START OF FREE AREA «, t00=0x00c6, t01=0x0036}
0x135a0…135cc Head {h00=0x0028, h01=0x0050, text=» LDR A2,A11 SAVE CONF. DATA POINTER «, t00=0x00c6, t01=0x006a}
0x135cc…135e6 Head {h00=0x0016, h01=0x0050, text=» LDR A11,A12 SAVE «, t00=0x00c6, t01=0x0096}
0x135e6…13614 Head {h00=0x002a, h01=0x0050, text=» ADR A11,A3 END OF SEGMENT TABLE AREA «, t00=0x00c6, t01=0x00b0}
0x13614…1363a Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x00c6, t01=0x00de}
0x1363a…13654 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BST100 NO «, t00=0x00c6, t01=0x0104}
0x13654…13682 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00c6, t01=0x011e}
0x13682…13696 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00c6, t01=0x014c}
0x13696…136ce Head {h00=0x0034, h01=0x0050, text=»BST100 ST A11,SCTSFA INDICATE START OF FREE AREA«, t00=0x00c6, t01=0x0160}
0x136ce…136fc Head {h00=0x002a, h01=0x0050, text=» LDR A11,A2 RESTORE CONF. DATA POINTER«, t00=0x00c7, t01=0x0008}
0x136fc…13718 Head {h00=0x0018, h01=0x0050, text=» CWK A5,'BA' BASIC? «, t00=0x00c7, t01=0x0036}
0x13718…13732 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BST200 NO «, t00=0x00c7, t01=0x0052}
0x13732…13760 Head {h00=0x002a, h01=0x0050, text=» LD A2,STKEND+WRK1 GET NUMBER OF TASKS«, t00=0x00c7, t01=0x006c}
0x13760…13792 Head {h00=0x002e, h01=0x0050, text=» LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK «, t00=0x00c7, t01=0x009a}
0x13792…137c6 Head {h00=0x0030, h01=0x0050, text=» ADK A3,NBRDPS ADD NUMBER OF DATA PAGES/TASK«, t00=0x00c7, t01=0x00cc}
0x137c6…137e2 Head {h00=0x0018, h01=0x0050, text=» CALL MULT MULTIPLY «, t00=0x00c7, t01=0x0100}
0x137e2…13810 Head {h00=0x002a, h01=0x0050, text=» LDR A2,A3 GET MAX NUMBER OF SEGMENTS «, t00=0x00c7, t01=0x011c}
0x13810…1384e Head {h00=0x003a, h01=0x0050, text=» ADS A2,STKCOM+TOTSGM UPDATE TOTAL NUMBER OF SEGMENTS «, t00=0x00c7, t01=0x014a}
0x1384e…1388c Head {h00=0x003a, h01=0x0050, text=» ST A12,APLSEG,A10 STORE ADDRESS TO SEGMENT TABLE POOL«, t00=0x00c7, t01=0x0188}
0x1388c…1389a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c8, t01=0x0036}
0x1389a…138a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x0044}
0x138a4…138c8 Head {h00=0x0020, h01=0x0050, text=»* CLEAR SEGMENT TABLE AREA «, t00=0x00c8, t01=0x004e}
0x138c8…138d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c8, t01=0x0072}
0x138d2…13906 Head {h00=0x0030, h01=0x0050, text=» LD A2,SCTSFA GET END OF SEGMENT TABLE AREA «, t00=0x00c8, t01=0x007c}
0x13906…13930 Head {h00=0x0026, h01=0x0050, text=»BST110 SUK A2,2 DECREMENT POINTER «, t00=0x00c8, t01=0x00b0}
0x13930…13946 Head {h00=0x0012, h01=0x0050, text=» CMR A2 CLEAR «, t00=0x00c8, t01=0x00da}
0x13946…13976 Head {h00=0x002c, h01=0x0050, text=» CWR A2,A12 START OF SEGMENT TABLE AREA?«, t00=0x00c8, t01=0x00f0}
0x13976…13994 Head {h00=0x001a, h01=0x0050, text=» RB(NE) BST110 NOT YET«, t00=0x00c8, t01=0x0120}
0x13994…139c6 Head {h00=0x002e, h01=0x0050, text=»BST120 ADR A2,A4 ADD SEGMENT TABLE LENGTH «, t00=0x00c8, t01=0x013e}
0x139c6…139f6 Head {h00=0x002c, h01=0x0050, text=» CW A2,SCTSFA END OF SEGMENT TABLE AREA?«, t00=0x00c8, t01=0x0170}
0x139f6…13a10 Head {h00=0x0016, h01=0x0050, text=» RF(E) BST400 YES «, t00=0x00c9, t01=0x0010}
0x13a10…13a46 Head {h00=0x0032, h01=0x0050, text=» ADK A2,8 ADDRESS FIFTH WORD IN SEGMENT TABLE «, t00=0x00c9, t01=0x002a}
0x13a46…13a7c Head {h00=0x0032, h01=0x0050, text=» ST A2,8,A12 STORE IN PRECEDING SEGMENT TABLE «, t00=0x00c9, t01=0x0060}
0x13a7c…13aac Head {h00=0x002c, h01=0x0050, text=» ADR A12,A4 START OF NEXT SEGMENT TABLE «, t00=0x00c9, t01=0x0096}
0x13aac…13ac4 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A12 SAVE«, t00=0x00c9, t01=0x00c6}
0x13ac4…13ad6 Head {h00=0x000e, h01=0x0050, text=» RB BST120«, t00=0x00c9, t01=0x00de}
0x13ad6…13b0a Head {h00=0x0030, h01=0x0050, text=»BST200 ST A6,2,A12 STORE NUMBER OF SEGMENTS «, t00=0x00c9, t01=0x00f0}
0x13b0a…13b34 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A6 GET NUMBER OF SEGMENTS «, t00=0x00c9, t01=0x0124}
0x13b34…13b72 Head {h00=0x003a, h01=0x0050, text=» ADS A3,STKCOM+TOTSGM UPDATE TOTAL NUMBER OF SEGMENTS «, t00=0x00c9, t01=0x014e}
0x13b72…13ba6 Head {h00=0x0030, h01=0x0050, text=» LD A3,SCTIPL GET FILE-CODE FOR LOAD DEVICE «, t00=0x00c9, t01=0x018c}
0x13ba6…13bc0 Head {h00=0x0016, h01=0x0050, text=» STR A3,A12 STORE «, t00=0x00ca, t01=0x0030}
0x13bc0…13bec Head {h00=0x0028, h01=0x0050, text=» ADKL A12,4 ADDRESS SEGMENT BLOCK 0 «, t00=0x00ca, t01=0x004a}
0x13bec…13c04 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A12 SAVE«, t00=0x00ca, t01=0x0076}
0x13c04…13c36 Head {h00=0x002e, h01=0x0050, text=»BST210 LDKL A2,/8400 STATUS FOR SEGMENT 0 «, t00=0x00ca, t01=0x008e}
0x13c36…13c5c Head {h00=0x0022, h01=0x0050, text=» STR A2,A12 STORE IN SEGBLK 0 «, t00=0x00ca, t01=0x00c0}
0x13c5c…13c8a Head {h00=0x002a, h01=0x0050, text=» LD A2,APLLAC,A10 GET START OF S:GTAB «, t00=0x00ca, t01=0x00e6}
0x13c8a…13cb4 Head {h00=0x0026, h01=0x0050, text=» CALL GETCON GET ADDRESS TO P:MTAB«, t00=0x00ca, t01=0x0114}
0x13cb4…13ccc Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00ca, t01=0x013e}
0x13ccc…13cee Head {h00=0x001e, h01=0x0050, text=» ADK A2,6 ADDRESS TO P:BAS«, t00=0x00ca, t01=0x0156}
0x13cee…13d0c Head {h00=0x001a, h01=0x0050, text=» CALL GETCON GET P:BAS«, t00=0x00ca, t01=0x0178}
0x13d0c…13d32 Head {h00=0x0022, h01=0x0050, text=» ST A1,2,A12 STORE IN SEGBLK 0«, t00=0x00cb, t01=0x0008}
0x13d32…13d60 Head {h00=0x002a, h01=0x0050, text=» LD A2,APLLAC,A10 GET START OF S:GTAB «, t00=0x00cb, t01=0x002e}
0x13d60…13d8e Head {h00=0x002a, h01=0x0050, text=» ADK A2,10 ADDRESS NUMBER OF SEGMENTS «, t00=0x00cb, t01=0x005c}
0x13d8e…13dba Head {h00=0x0028, h01=0x0050, text=»BST220 ADKL A12,8 NEXT SEGMENT BLOCK«, t00=0x00cb, t01=0x008a}
0x13dba…13dde Head {h00=0x0020, h01=0x0050, text=» SUK A6,1 ANY MORE SEGMENTS?«, t00=0x00cb, t01=0x00b6}
0x13dde…13df6 Head {h00=0x0014, h01=0x0050, text=» RF(N) BST300 NO«, t00=0x00cb, t01=0x00da}
0x13df6…13e18 Head {h00=0x001e, h01=0x0050, text=» LDK A7,0 INIT STATUS BYTE«, t00=0x00cb, t01=0x00f2}
0x13e18…13e4e Head {h00=0x0032, h01=0x0050, text=» ADK A2,2 ADDRESS FIRST ENTRY IN SEGMENT BLOCK«, t00=0x00cb, t01=0x0114}
0x13e4e…13e80 Head {h00=0x002e, h01=0x0050, text=» CALL GETCON GET SEGMENT TYPE/DISC ADDRESS«, t00=0x00cb, t01=0x014a}
0x13e80…13e98 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x00cb, t01=0x017c}
0x13e98…13ec0 (204, 0, 400) Head {h00=0x0024, h01=0x0050, text=» ANK A3,/FF ISOLATE DISC ADDRESS«, t00=0x00cc, t01=0x0004}
0x13ec0…13ee6 Head {h00=0x0022, h01=0x0050, text=» SRL A1,8 ISOLATE SEGMENT TYPE«, t00=0x00cc, t01=0x002c}
0x13ee6…13f12 Head {h00=0x0028, h01=0x0050, text=» CCK A1,'RR' CORE RESIDENT SEGMENT? «, t00=0x00cc, t01=0x0052}
0x13f12…13f2c Head {h00=0x0016, h01=0x0050, text=» RF(E) BST230 YES «, t00=0x00cc, t01=0x007e}
0x13f2c…13f52 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00cc, t01=0x0098}
0x13f52…13f70 Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00cc, t01=0x00be}
0x13f70…13f8a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BST240 YES«, t00=0x00cc, t01=0x00dc}
0x13f8a…13fb0 Head {h00=0x0022, h01=0x0050, text=» XRR A3,A3 CLEAR DISC ADDRESS «, t00=0x00cc, t01=0x00f6}
0x13fb0…13fe8 Head {h00=0x0034, h01=0x0050, text=» LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED«, t00=0x00cc, t01=0x011c}
0x13fe8…14020 Head {h00=0x0034, h01=0x0050, text=» ADK A2,2 ADDRESS SEGMENT DISC ADDRESS BIT 8-23 «, t00=0x00cc, t01=0x0154}
0x14020…14032 Head {h00=0x000e, h01=0x0050, text=» RF BST270«, t00=0x00cc, t01=0x018c}
0x14032…14070 Head {h00=0x003a, h01=0x0050, text=»BST230 LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED«, t00=0x00cd, t01=0x000e}
0x14070…1409e Head {h00=0x002a, h01=0x0050, text=»BST240 ADK A2,2 DISC ADDRESS BIT 8-23 «, t00=0x00cd, t01=0x004c}
0x1409e…140cc Head {h00=0x002a, h01=0x0050, text=» CALL GETCON GET SEGMENT DISC ADDRESS «, t00=0x00cd, t01=0x007a}
0x140cc…14100 Head {h00=0x0030, h01=0x0050, text=» AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A.«, t00=0x00cd, t01=0x00a8}
0x14100…1411c Head {h00=0x0018, h01=0x0050, text=» RF(O) BST250 CARRY «, t00=0x00cd, t01=0x00dc}
0x1411c…1412e Head {h00=0x000e, h01=0x0050, text=» RF BST260«, t00=0x00cd, t01=0x00f8}
0x1412e…1415c Head {h00=0x002a, h01=0x0050, text=»BST250 ADK A3,1 INCR. PART 1 OF D. A. «, t00=0x00cd, t01=0x010a}
0x1415c…1418e Head {h00=0x002e, h01=0x0050, text=» ANKL A1,/7FFF RESET OVERFLOW BIT (BIT 0) «, t00=0x00cd, t01=0x0138}
0x1418e…141c6 Head {h00=0x0034, h01=0x0050, text=»BST260 AD A3,APLADA,A10 RELOCATE PART 1 OF D. A.«, t00=0x00cd, t01=0x016a}
0x141c6…141f8 Head {h00=0x002e, h01=0x0050, text=» CWK A3,255 OVERFLOW IN PART 1 OF D. A. ? «, t00=0x00ce, t01=0x0012}
0x141f8…14212 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BST270 NO!«, t00=0x00ce, t01=0x0044}
0x14212…1423e Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP10 INDICATE DEVICE ERROR«, t00=0x00ce, t01=0x005e}
0x1423e…14252 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00ce, t01=0x008a}
0x14252…14288 Head {h00=0x0032, h01=0x0050, text=»BST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS«, t00=0x00ce, t01=0x009e}
0x14288…142a2 Head {h00=0x0016, h01=0x0050, text=» STR A7,A12 STORE «, t00=0x00ce, t01=0x00d4}
0x142a2…142d2 Head {h00=0x002c, h01=0x0050, text=» ST A1,2,A12 STORE DISC ADDRESS BIT 8-23«, t00=0x00ce, t01=0x00ee}
0x142d2…142fa Head {h00=0x0024, h01=0x0050, text=» ADK A2,2 ADDRESS SEGMENT LENGTH«, t00=0x00ce, t01=0x011e}
0x142fa…14322 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET SEGMENT LENGTH«, t00=0x00ce, t01=0x0146}
0x14322…14346 Head {h00=0x0020, h01=0x0050, text=» ST A1,4,A12 STORE IN SEGTAB«, t00=0x00ce, t01=0x016e}
0x14346…14370 (207, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CM 6,A12 CLEAR PAGEBLOCK POINTER «, t00=0x00cf, t01=0x0004}
0x14370…14382 Head {h00=0x000e, h01=0x0050, text=» RB BST220«, t00=0x00cf, t01=0x002e}
0x14382…143b6 Head {h00=0x0030, h01=0x0050, text=»BST300 CW A8,STKEND+TCTEND LAST TCTAB ENTRY?«, t00=0x00cf, t01=0x0040}
0x143b6…143d0 Head {h00=0x0016, h01=0x0050, text=» RF(E) BST400 YES «, t00=0x00cf, t01=0x0074}
0x143d0…143f4 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A8 GET TTAB ADDRESS«, t00=0x00cf, t01=0x008e}
0x143f4…14428 Head {h00=0x0030, h01=0x0050, text=» ST A4,TTB:SP,A2 STORE SEGMENT TABLE POINTER«, t00=0x00cf, t01=0x00b2}
0x14428…14456 Head {h00=0x002a, h01=0x0050, text=» ADKL A8,2 INCREMENT POINTER IN TCTAB «, t00=0x00cf, t01=0x00e6}
0x14456…14468 Head {h00=0x000e, h01=0x0050, text=» RB BST300«, t00=0x00cf, t01=0x0114}
0x14468…144a4 Head {h00=0x0038, h01=0x0050, text=»BST400 LD A1,STKEND+APLNO GET NUMBER OF APPLICATIONS«, t00=0x00cf, t01=0x0126}
0x144a4…144ce Head {h00=0x0026, h01=0x0050, text=» RF(Z) BST410 NO MORE APPLICATIONS«, t00=0x00cf, t01=0x0162}
0x144ce…144ee Head {h00=0x001c, h01=0x0050, text=» ABR A9 NEXT APPLICATION«, t00=0x00cf, t01=0x018c}
0x144ee…14502 Head {h00=0x0010, h01=0x0050, text=»BST410 EQU *«, t00=0x00d0, t01=0x001c}
0x14502…14526 Head {h00=0x0020, h01=0x0050, text=» CALL POB RESTORE REGISTERS «, t00=0x00d0, t01=0x0030}
0x14526…1453e Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00d0, t01=0x0054}
0x1453e…1454a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d0, t01=0x006c}
0x1454a…14566 Head {h00=0x0018, h01=0x0050, text=» IFF SPDVCL+TEDVCL=0«, t00=0x00d0, t01=0x0078}
0x14566…14574 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d0, t01=0x0094}
0x14574…145c4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00d0, t01=0x00a2}
0x145c4…14612 Head {h00=0x004a, h01=0x0050, text=»* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES«, t00=0x00d0, t01=0x00f2}
0x14612…14662 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00d0, t01=0x0140}
0x14662…1466c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x0190}
0x1466c…1468c Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: MONCON«, t00=0x00d1, t01=0x000a}
0x1468c…14696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x002a}
0x14696…146c6 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: SCTSFA - START OF FREE ARE (X)«, t00=0x00d1, t01=0x0034}
0x146c6…146fc Head {h00=0x0032, h01=0x0050, text=»* CONSTA - START OF CONFIGURATION DATA«, t00=0x00d1, t01=0x0064}
0x146fc…14728 Head {h00=0x0028, h01=0x0050, text=»* SCTEFA - END OF FREE AREA «, t00=0x00d1, t01=0x009a}
0x14728…14732 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x00c6}
0x14732…14742 Head {h00=0x000c, h01=0x0050, text=»* EXIT:«, t00=0x00d1, t01=0x00d0}
0x14742…1474c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x00e0}
0x1474c…1476e Head {h00=0x001e, h01=0x0050, text=»* WORK REGISTERS: A1-A12«, t00=0x00d1, t01=0x00ea}
0x1476e…14778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x010c}
0x14778…147b8 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR«, t00=0x00d1, t01=0x0116}
0x147b8…147c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0156}
0x147c2…147d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d1, t01=0x0160}
0x147d0…147e4 Head {h00=0x0010, h01=0x0050, text=»B:DWTS EQU *«, t00=0x00d1, t01=0x016e}
0x147e4…147ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0182}
0x147ee…14818 Head {h00=0x0026, h01=0x0050, text=»* GET START OF CONFIGURATION FILE«, t00=0x00d1, t01=0x018c}
0x14818…14822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x0026}
0x14822…1484c Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x00d2, t01=0x0030}
0x1484c…14856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x005a}
0x14856…14890 Head {h00=0x0036, h01=0x0050, text=»* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK«, t00=0x00d2, t01=0x0064}
0x14890…1489a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x009e}
0x1489a…148c4 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00d2, t01=0x00a8}
0x148c4…148f8 Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x00d2, t01=0x00d2}
0x148f8…14928 Head {h00=0x002c, h01=0x0050, text=» ST P,STKEND+ECHTAB START OF ECHO TABLE «, t00=0x00d2, t01=0x0106}
0x14928…14932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x0136}
0x14932…14952 Head {h00=0x001c, h01=0x0050, text=»* GET ADDRESS TO TC:TAB«, t00=0x00d2, t01=0x0140}
0x14952…1495c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x0160}
0x1495c…14990 Head {h00=0x0030, h01=0x0050, text=»DWTS05 LD A7,APLMMC,A2 GET FIRST TCTAB ENTRY«, t00=0x00d2, t01=0x016a}
0x14990…149a2 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x00d3, t01=0x000e}
0x149a2…149b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d3, t01=0x0020}
0x149b0…149c4 Head {h00=0x0010, h01=0x0050, text=»DWTS10 EQU *«, t00=0x00d3, t01=0x002e}
0x149c4…149ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x0042}
0x149ce…14a00 Head {h00=0x002e, h01=0x0050, text=»* GET NUMBER OF TASKS IN THIS TASK CLASS «, t00=0x00d3, t01=0x004c}
0x14a00…14a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x007e}
0x14a0a…14a1e Head {h00=0x0010, h01=0x0050, text=» CALL GETTSK«, t00=0x00d3, t01=0x0088}
0x14a1e…14a32 Head {h00=0x0010, h01=0x0050, text=»DWTS20 EQU *«, t00=0x00d3, t01=0x009c}
0x14a32…14a54 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+NBRTSK SAVE «, t00=0x00d3, t01=0x00b0}
0x14a54…14a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x00d2}
0x14a5e…14a8c Head {h00=0x002a, h01=0x0050, text=»* GET CORRESPONDING TASK TABLE (TTAB)«, t00=0x00d3, t01=0x00dc}
0x14a8c…14a96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x010a}
0x14a96…14aaa Head {h00=0x0010, h01=0x0050, text=»DWTS25 EQU *«, t00=0x00d3, t01=0x0114}
0x14aaa…14ad0 Head {h00=0x0022, h01=0x0050, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x00d3, t01=0x0128}
0x14ad0…14af6 Head {h00=0x0022, h01=0x0050, text=» LDR* A10,A7 GET TTAB ADDRESS «, t00=0x00d3, t01=0x014e}
0x14af6…14b28 Head {h00=0x002e, h01=0x0050, text=» ADKL A10,TTB:TD+2 TASK DEVICE TABLE ENTRY«, t00=0x00d3, t01=0x0174}
0x14b28…14b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x0016}
0x14b32…14b66 Head {h00=0x0030, h01=0x0050, text=»* INIT SUB-POINTER IN TASK DEFINITION BLOCK«, t00=0x00d4, t01=0x0020}
0x14b66…14b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x0054}
0x14b70…14ba2 Head {h00=0x002e, h01=0x0050, text=» LDR A9,A11 START OF TASK DEFINITION BLOCK«, t00=0x00d4, t01=0x005e}
0x14ba2…14bd2 Head {h00=0x002c, h01=0x0050, text=» ADKL A9,TDBFST START OF TDC DEFINITION «, t00=0x00d4, t01=0x0090}
0x14bd2…14be0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d4, t01=0x00c0}
0x14be0…14bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x00ce}
0x14bea…14c22 Head {h00=0x0034, h01=0x0050, text=»* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS «, t00=0x00d4, t01=0x00d8}
0x14c22…14c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x0110}
0x14c2c…14c40 Head {h00=0x0010, h01=0x0050, text=» CALL GETTDC«, t00=0x00d4, t01=0x011a}
0x14c40…14c52 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x00d4, t01=0x012e}
0x14c52…14c66 Head {h00=0x0010, h01=0x0050, text=»DWTS30 EQU *«, t00=0x00d4, t01=0x0140}
0x14c66…14c7c Head {h00=0x0012, h01=0x0050, text=» RF(Z) DWTS40 «, t00=0x00d4, t01=0x0154}
0x14c7c…14c9c Head {h00=0x001c, h01=0x0050, text=» CALL GETCLN GET TDC ID «, t00=0x00d4, t01=0x016a}
0x14c9c…14cae Head {h00=0x000e, h01=0x0050, text=» ADR A1,A1«, t00=0x00d4, t01=0x018a}
0x14cae…14cde Head {h00=0x002c, h01=0x0050, text=» LD A8,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x00d5, t01=0x000c}
0x14cde…14d00 Head {h00=0x001e, h01=0x0050, text=» ADR A8,A1 GET CLASS ENTRY«, t00=0x00d5, t01=0x003c}
0x14d00…14d28 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x00d5, t01=0x005e}
0x14d28…14d50 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x00d5, t01=0x0086}
0x14d50…14d76 Head {h00=0x0022, h01=0x0050, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x00d5, t01=0x00ae}
0x14d76…14da4 Head {h00=0x002a, h01=0x0050, text=» ADR A10,A8 INCREMENT POINTER IN TTAB «, t00=0x00d5, t01=0x00d4}
0x14da4…14dd8 Head {h00=0x0030, h01=0x0050, text=» ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD «, t00=0x00d5, t01=0x0102}
0x14dd8…14e04 Head {h00=0x0028, h01=0x0050, text=» SUK A6,1 DECREMENT NUMBER OF TDC:S «, t00=0x00d5, t01=0x0136}
0x14e04…14e16 Head {h00=0x000e, h01=0x0050, text=» RB DWTS30«, t00=0x00d5, t01=0x0162}
0x14e16…14e2a Head {h00=0x0010, h01=0x0050, text=»DWTS40 EQU *«, t00=0x00d5, t01=0x0174}
0x14e2a…14e34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x0188}
0x14e34…14e64 (214, 0, 400) Head {h00=0x002c, h01=0x0050, text=»* GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x00d6, t01=0x0004}
0x14e64…14e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0034}
0x14e6e…14e82 Head {h00=0x0010, h01=0x0050, text=» CALL GETSDC«, t00=0x00d6, t01=0x003e}
0x14e82…14ea0 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,SDCFST-CDBNC «, t00=0x00d6, t01=0x0052}
0x14ea0…14eb2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x00d6, t01=0x0070}
0x14eb2…14ec6 Head {h00=0x0010, h01=0x0050, text=»DWTS50 EQU *«, t00=0x00d6, t01=0x0082}
0x14ec6…14edc Head {h00=0x0012, h01=0x0050, text=» RF(Z) DWTS90 «, t00=0x00d6, t01=0x0096}
0x14edc…14efe Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+NBRSDC SAVE «, t00=0x00d6, t01=0x00ac}
0x14efe…14f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x00ce}
0x14f08…14f32 Head {h00=0x0026, h01=0x0050, text=»* GET SPECIAL DEVICE CLASS NUMBER«, t00=0x00d6, t01=0x00d8}
0x14f32…14f3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0102}
0x14f3c…14f50 Head {h00=0x0010, h01=0x0050, text=» CALL GETCLN«, t00=0x00d6, t01=0x010c}
0x14f50…14f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0120}
0x14f5a…14f96 Head {h00=0x0038, h01=0x0050, text=»* GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS «, t00=0x00d6, t01=0x012a}
0x14f96…14fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0166}
0x14fa0…14fb2 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A1«, t00=0x00d6, t01=0x0170}
0x14fb2…14fde Head {h00=0x0028, h01=0x0050, text=» LD A6,STKEND+SCLA POINTER TO SCLASS«, t00=0x00d6, t01=0x0182}
0x14fde…14ffe Head {h00=0x001c, h01=0x0050, text=» ADR A6,A1 SELECT ENTRY «, t00=0x00d7, t01=0x001e}
0x14ffe…15026 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO CLASS«, t00=0x00d7, t01=0x003e}
0x15026…1503e Head {h00=0x0014, h01=0x0050, text=» LDR A5,A6 SAVE «, t00=0x00d7, t01=0x0066}
0x1503e…1505c Head {h00=0x001a, h01=0x0050, text=» LDR* A6,A6 GET LENGTH«, t00=0x00d7, t01=0x007e}
0x1505c…15082 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00d7, t01=0x009c}
0x15082…15096 Head {h00=0x0010, h01=0x0050, text=»DWTS60 EQU *«, t00=0x00d7, t01=0x00c2}
0x15096…150b2 Head {h00=0x0018, h01=0x0050, text=» ADK A5,4 GET DEVICE«, t00=0x00d7, t01=0x00d6}
0x150b2…150de Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A5 GET ADDRESS TO TYPE DWT «, t00=0x00d7, t01=0x00f2}
0x150de…1510a Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTLEN,A1 GENERATION OF DWT? «, t00=0x00d7, t01=0x011e}
0x1510a…15122 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWTS70 NO«, t00=0x00d7, t01=0x014a}
0x15122…1512c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x0162}
0x1512c…15140 Head {h00=0x0010, h01=0x0050, text=»* COPY DWT «, t00=0x00d7, t01=0x016c}
0x15140…1514a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x0180}
0x1514a…15168 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A12 TO-ADDRESS«, t00=0x00d7, t01=0x018a}
0x15168…15198 Head {h00=0x002c, h01=0x0050, text=» ADR A12,A3 UPDATE POINTER TO FREE AREA «, t00=0x00d8, t01=0x0018}
0x15198…151b6 Head {h00=0x001a, h01=0x0050, text=» CALL CHKMOV COPY DWT «, t00=0x00d8, t01=0x0048}
0x151b6…151c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d8, t01=0x0066}
0x151c4…151ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x0074}
0x151ce…15206 Head {h00=0x0034, h01=0x0050, text=»* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM«, t00=0x00d8, t01=0x007e}
0x15206…15210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x00b6}
0x15210…15236 Head {h00=0x0022, h01=0x0050, text=» LD A3,SCTOPT GET OPTION WORD «, t00=0x00d8, t01=0x00c0}
0x15236…15256 Head {h00=0x001c, h01=0x0050, text=» ANK A3,1 MMU IN SYSTEM?«, t00=0x00d8, t01=0x00e6}
0x15256…15270 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DWTS65 NO! «, t00=0x00d8, t01=0x0106}
0x15270…1529c Head {h00=0x0028, h01=0x0050, text=» LDR A3,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x00d8, t01=0x0120}
0x1529c…152ca Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 COMPUTE RELOCATION CONSTANT«, t00=0x00d8, t01=0x014c}
0x152ca…152fa Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x00d8, t01=0x017a}
0x152fa…15316 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A3 RELOCATE «, t00=0x00d9, t01=0x001a}
0x15316…1533e Head {h00=0x0024, h01=0x0050, text=» ANKL A4,/FFFE MAKE EVEN ADDRESS«, t00=0x00d9, t01=0x0036}
0x1533e…15364 Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTMEC,A2 STORE IT BACK«, t00=0x00d9, t01=0x005e}
0x15364…15378 Head {h00=0x0010, h01=0x0050, text=»DWTS65 EQU *«, t00=0x00d9, t01=0x0084}
0x15378…153a0 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A2 DT-ADDRESS TO BE USED«, t00=0x00d9, t01=0x0098}
0x153a0…153b4 Head {h00=0x0010, h01=0x0050, text=»DWTS70 EQU *«, t00=0x00d9, t01=0x00c0}
0x153b4…153be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x00d4}
0x153be…153f0 Head {h00=0x002e, h01=0x0050, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x00d9, t01=0x00de}
0x153f0…153fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x0110}
0x153fa…15420 Head {h00=0x0022, h01=0x0050, text=» ST A1,2,A10 STORE DWT-ADDRESS«, t00=0x00d9, t01=0x011a}
0x15420…15448 Head {h00=0x0024, h01=0x0050, text=» LD A1,-2,A5 GET INDEX/FILECODE «, t00=0x00d9, t01=0x0140}
0x15448…15468 Head {h00=0x001c, h01=0x0050, text=» STR A1,A10 SAVE IN TTAB«, t00=0x00d9, t01=0x0168}
0x15468…1549e Head {h00=0x0032, h01=0x0050, text=» ADKL A10,4 UPDATE TASK CONFIGURATION POINTER «, t00=0x00d9, t01=0x0188}
0x1549e…154b2 Head {h00=0x0010, h01=0x0050, text=»DWTS80 EQU *«, t00=0x00da, t01=0x002e}
0x154b2…154e0 Head {h00=0x002a, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF DEVICES «, t00=0x00da, t01=0x0042}
0x154e0…15502 Head {h00=0x001e, h01=0x0050, text=» RB(P) DWTS60 NEXT DEVICE «, t00=0x00da, t01=0x0070}
0x15502…15510 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00da, t01=0x0092}
0x15510…1551a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x00a0}
0x1551a…15552 Head {h00=0x0034, h01=0x0050, text=»* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS «, t00=0x00da, t01=0x00aa}
0x15552…1555c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x00e2}
0x1555c…15572 Head {h00=0x0012, h01=0x0050, text=» ADKL A9,SDC «, t00=0x00da, t01=0x00ec}
0x15572…1558e Head {h00=0x0018, h01=0x0050, text=» LD A1,STKEND+NBRSDC«, t00=0x00da, t01=0x0102}
0x1558e…155a0 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00da, t01=0x011e}
0x155a0…155b2 Head {h00=0x000e, h01=0x0050, text=» RB DWTS50«, t00=0x00da, t01=0x0130}
0x155b2…155c6 Head {h00=0x0010, h01=0x0050, text=»DWTS90 EQU *«, t00=0x00da, t01=0x0142}
0x155c6…155d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0156}
0x155d0…1560c Head {h00=0x0038, h01=0x0050, text=»* CHECK IF MOORE TASKS WITH THE SAME CONFIGURATION «, t00=0x00da, t01=0x0160}
0x1560c…15616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x000c}
0x15616…15632 Head {h00=0x0018, h01=0x0050, text=» LD A1,STKEND+NBRTSK«, t00=0x00db, t01=0x0016}
0x15632…15644 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00db, t01=0x0032}
0x15644…1565a Head {h00=0x0012, h01=0x0050, text=» RB(P) DWTS20 «, t00=0x00db, t01=0x0044}
0x1565a…15664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x005a}
0x15664…15694 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF MOORE TASK DEFINITION BLOCKS«, t00=0x00db, t01=0x0064}
0x15694…1569e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x0094}
0x1569e…156b2 Head {h00=0x0010, h01=0x0050, text=» CALL NXTBLK«, t00=0x00db, t01=0x009e}
0x156b2…156de Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00db, t01=0x00b2}
0x156de…156f8 Head {h00=0x0016, h01=0x0050, text=» RB(E) DWTS10 YES «, t00=0x00db, t01=0x00de}
0x156f8…15722 Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00db, t01=0x00f8}
0x15722…15750 Head {h00=0x002a, h01=0x0050, text=» RB(P) DWTS05 PROCESS NEXT APPLICATION«, t00=0x00db, t01=0x0122}
0x15750…15766 Head {h00=0x0012, h01=0x0050, text=» ST A12,SCTSFA«, t00=0x00db, t01=0x0150}
0x15766…15770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x0166}
0x15770…157a6 Head {h00=0x0032, h01=0x0050, text=»* CLEAR WORK AREA TO BE USED FOR ECHO DEVICE «, t00=0x00db, t01=0x0170}
0x157a6…157d0 Head {h00=0x0026, h01=0x0050, text=»* AND TEMPORARY INTERRUPT TABLES «, t00=0x00dc, t01=0x0016}
0x157d0…157da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x0040}
0x157da…15804 Head {h00=0x0026, h01=0x0050, text=» LDR A1,P GET LOCATION COUNTER =4 «, t00=0x00dc, t01=0x004a}
0x15804…15838 Head {h00=0x0030, h01=0x0050, text=»DWTS95 SUK A1,2 DECREMENT MEMORY ADDRESS =4 «, t00=0x00dc, t01=0x0074}
0x15838…1585c Head {h00=0x0020, h01=0x0050, text=» CMR A1 CLEAR MEMORY AREA =4«, t00=0x00dc, t01=0x00a8}
0x1585c…15888 Head {h00=0x0028, h01=0x0050, text=» CW A1,SCTSFA ALL WORDS CLEARED? =4 «, t00=0x00dc, t01=0x00cc}
0x15888…158a6 Head {h00=0x001a, h01=0x0050, text=» RB(NE) DWTS95 NO! =4 «, t00=0x00dc, t01=0x00f8}
0x158a6…158be Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00dc, t01=0x0116}
0x158be…158ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00dc, t01=0x012e}
0x158ca…158e0 Head {h00=0x0012, h01=0x0050, text=» IFF TEDVCL=0 «, t00=0x00dc, t01=0x013a}
0x158e0…158ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00dc, t01=0x0150}
0x158ee…15926 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00dc, t01=0x015e}
0x15926…1595e Head {h00=0x0034, h01=0x0050, text=»* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES *«, t00=0x00dd, t01=0x0008}
0x1595e…15996 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00dd, t01=0x0040}
0x15996…159ce Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00dd, t01=0x0078}
0x159ce…159d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x00b0}
0x159d8…159f8 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: MONCON«, t00=0x00dd, t01=0x00ba}
0x159f8…15a02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x00da}
0x15a02…15a14 Head {h00=0x000e, h01=0x0050, text=»* ENTRY: «, t00=0x00dd, t01=0x00e4}
0x15a14…15a1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x00f6}
0x15a1e…15a2e Head {h00=0x000c, h01=0x0050, text=»* EXIT:«, t00=0x00dd, t01=0x0100}
0x15a2e…15a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x0110}
0x15a38…15a5a Head {h00=0x001e, h01=0x0050, text=»* WORK REGISTERS: A1-A12 «, t00=0x00dd, t01=0x011a}
0x15a5a…15a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x013c}
0x15a64…15aac Head {h00=0x0044, h01=0x0050, text=»* SUBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK«, t00=0x00dd, t01=0x0146}
0x15aac…15ab6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x018e}
0x15ab6…15ac4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00de, t01=0x0008}
0x15ac4…15ad8 Head {h00=0x0010, h01=0x0050, text=»B:DWTT EQU *«, t00=0x00de, t01=0x0016}
0x15ad8…15b00 Head {h00=0x0024, h01=0x0050, text=» CM STKEND+FWTFLG CLEAR FWT FLAG«, t00=0x00de, t01=0x002a}
0x15b00…15b28 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTFWT START OF FWT AREA «, t00=0x00de, t01=0x0052}
0x15b28…15b50 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) BDWT15 FWT AREA RESERVED«, t00=0x00de, t01=0x007a}
0x15b50…15b6c Head {h00=0x0018, h01=0x0050, text=» LD A1,STKEND+LIMIT «, t00=0x00de, t01=0x00a2}
0x15b6c…15ba8 Head {h00=0x0038, h01=0x0050, text=» ST A1,STKEND+INTTAB START OF T.I.T. IF NO FWT AREA «, t00=0x00de, t01=0x00be}
0x15ba8…15bcc Head {h00=0x0020, h01=0x0050, text=» IM STKEND+FWTFLG INCREMENT «, t00=0x00de, t01=0x00fa}
0x15bcc…15be0 Head {h00=0x0010, h01=0x0050, text=»BDWT15 EQU *«, t00=0x00de, t01=0x011e}
0x15be0…15bee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00de, t01=0x0132}
0x15bee…15bf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x0140}
0x15bf8…15c22 Head {h00=0x0026, h01=0x0050, text=»* INIT CONFIGURATION DATA POINTER«, t00=0x00de, t01=0x014a}
0x15c22…15c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x0174}
0x15c2c…15c56 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00de, t01=0x017e}
0x15c56…15c84 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x00df, t01=0x0018}
0x15c84…15c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x0046}
0x15c8e…15cd4 Head {h00=0x0042, h01=0x0050, text=»* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY«, t00=0x00df, t01=0x0050}
0x15cd4…15cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x0096}
0x15cde…15d10 Head {h00=0x002e, h01=0x0050, text=» LD A5,APLMMC,A2 GET FIRST USER TASK ENTRY«, t00=0x00df, t01=0x00a0}
0x15d10…15d4e Head {h00=0x003a, h01=0x0050, text=» ST A5,STKEND+CUTENT STORE IN CURRENT USER TASK ENTRY «, t00=0x00df, t01=0x00d2}
0x15d4e…15d62 Head {h00=0x0010, h01=0x0050, text=»BDWT40 EQU *«, t00=0x00df, t01=0x0110}
0x15d62…15d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x0124}
0x15d6c…15d9e Head {h00=0x002e, h01=0x0050, text=»* GET NUMBER OF TASKS IN THIS TASK CLASS «, t00=0x00df, t01=0x012e}
0x15d9e…15da8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x0160}
0x15da8…15dd0 Head {h00=0x0024, h01=0x0050, text=» CALL GETTSK GET NUMBER OF TASKS«, t00=0x00df, t01=0x016a}
0x15dd0…15de4 (224, 0, 400) Head {h00=0x0010, h01=0x0050, text=»BDWT50 EQU *«, t00=0x00e0, t01=0x0004}
0x15de4…15e12 Head {h00=0x002a, h01=0x0050, text=» ST A1,STKEND+NBRTSK SAVE BINARY VALUE«, t00=0x00e0, t01=0x0018}
0x15e12…15e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x0046}
0x15e1c…15e60 Head {h00=0x0040, h01=0x0050, text=»* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS «, t00=0x00e0, t01=0x0050}
0x15e60…15e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x0094}
0x15e6a…15e7e Head {h00=0x0010, h01=0x0050, text=» CALL GETTDC«, t00=0x00e0, t01=0x009e}
0x15e7e…15e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x00b2}
0x15e88…15eb0 Head {h00=0x0024, h01=0x0050, text=»* CHECK IF TASK WITHOUT DEVICES«, t00=0x00e0, t01=0x00bc}
0x15eb0…15eba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x00e4}
0x15eba…15ee2 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 ANY TERMINAL DEVICES?«, t00=0x00e0, t01=0x00ee}
0x15ee2…15efa Head {h00=0x0014, h01=0x0050, text=» RF(Z) BDW100 NO«, t00=0x00e0, t01=0x0116}
0x15efa…15f38 Head {h00=0x003a, h01=0x0050, text=» ST A1,STKEND+NBRTDC SAVE NUMBER OF TERMINAL DEVICESS «, t00=0x00e0, t01=0x012e}
0x15f38…15f68 Head {h00=0x002c, h01=0x0050, text=» LD* A10,STKEND+CUTENT GET TTAB ADDRESS «, t00=0x00e0, t01=0x016c}
0x15f68…15fa2 Head {h00=0x0036, h01=0x0050, text=» ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE «, t00=0x00e1, t01=0x000c}
0x15fa2…15fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0046}
0x15fac…15fd8 Head {h00=0x0028, h01=0x0050, text=»* GET TERMINAL DEVICE CLASS NUMBER «, t00=0x00e1, t01=0x0050}
0x15fd8…15fe2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x007c}
0x15fe2…16014 Head {h00=0x002e, h01=0x0050, text=» LDR A9,A11 START OF TASK DEFINITION BLOCK«, t00=0x00e1, t01=0x0086}
0x16014…1604c Head {h00=0x0034, h01=0x0050, text=» ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION«, t00=0x00e1, t01=0x00b8}
0x1604c…16060 Head {h00=0x0010, h01=0x0050, text=»BDWT55 EQU *«, t00=0x00e1, t01=0x00f0}
0x16060…16086 Head {h00=0x0022, h01=0x0050, text=» CALL GETCLN GET CLASS NUMBER «, t00=0x00e1, t01=0x0104}
0x16086…160b4 Head {h00=0x002a, h01=0x0050, text=» ST A1,STKEND+CLANBR SAVE BINARY VALUE«, t00=0x00e1, t01=0x012a}
0x160b4…160be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0158}
0x160be…160fc Head {h00=0x003a, h01=0x0050, text=»* FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS «, t00=0x00e1, t01=0x0162}
0x160fc…16106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0010}
0x16106…16140 Head {h00=0x0036, h01=0x0050, text=» LD A2,STKEND+CLANBR GET BINARY VALUE OF CLASS ID «, t00=0x00e2, t01=0x001a}
0x16140…16158 Head {h00=0x0014, h01=0x0050, text=» ADR A2,A2 2*ID «, t00=0x00e2, t01=0x0054}
0x16158…16184 Head {h00=0x0028, h01=0x0050, text=» LD A7,STKEND+TCLA POINTER TO TCLASS«, t00=0x00e2, t01=0x006c}
0x16184…161a0 Head {h00=0x0018, h01=0x0050, text=» ADR A7,A2 GET ENTRY«, t00=0x00e2, t01=0x0098}
0x161a0…161c8 Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET POINTER TO CLASS«, t00=0x00e2, t01=0x00b4}
0x161c8…161d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x00dc}
0x161d2…16216 Head {h00=0x0040, h01=0x0050, text=»* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS«, t00=0x00e2, t01=0x00e6}
0x16216…1622e Head {h00=0x0014, h01=0x0050, text=»* IN THIS TASK «, t00=0x00e2, t01=0x012a}
0x1622e…16238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0142}
0x16238…16268 Head {h00=0x002c, h01=0x0050, text=» CALL GETLCN GET LINE CONNECTION NUMBER «, t00=0x00e2, t01=0x014c}
0x16268…1628c Head {h00=0x0020, h01=0x0050, text=» LDR A6,A1 SAVE BINARY VALUE«, t00=0x00e2, t01=0x017c}
0x1628c…162bc Head {h00=0x002c, h01=0x0050, text=» LC A4,TDC+6,A9 GET LINE CONNECTION TYPE«, t00=0x00e3, t01=0x0010}
0x162bc…162e4 Head {h00=0x0024, h01=0x0050, text=» CCK A4,'AA' ASCU4Z CONNECTION? «, t00=0x00e3, t01=0x0040}
0x162e4…162fe Head {h00=0x0016, h01=0x0050, text=» RF(NE) BDWT58 NO!«, t00=0x00e3, t01=0x0068}
0x162fe…16330 Head {h00=0x002e, h01=0x0050, text=» LDR* A8,A7 YES! GET LENGTH OF THIS CLASS «, t00=0x00e3, t01=0x0082}
0x16330…16358 Head {h00=0x0024, h01=0x0050, text=» SUKL A8,2 EXCLUSIVE LENGTH WORD«, t00=0x00e3, t01=0x00b4}
0x16358…16376 Head {h00=0x001a, h01=0x0050, text=» CWK A8,4 ONE DEVICE? «, t00=0x00e3, t01=0x00dc}
0x16376…16390 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BDWT57 NO!«, t00=0x00e3, t01=0x00fa}
0x16390…163bc Head {h00=0x0028, h01=0x0050, text=» LD A8,4,A7 GET ADDRESS TO PROT.DWT «, t00=0x00e3, t01=0x0114}
0x163bc…163e0 Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTTAB,A8 GET DEVICE «, t00=0x00e3, t01=0x0140}
0x163e0…163fe Head {h00=0x001a, h01=0x0050, text=» CWK A4,/C459 /C459 ? «, t00=0x00e3, t01=0x0164}
0x163fe…16418 Head {h00=0x0016, h01=0x0050, text=» RF(E) BDWT58 YES!«, t00=0x00e3, t01=0x0182}
0x16418…1642c Head {h00=0x0010, h01=0x0050, text=»BDWT57 EQU *«, t00=0x00e4, t01=0x000c}
0x1642c…1645e Head {h00=0x002e, h01=0x0050, text=» ADK A1,1 INCREMENT LINE CONNECTION NUMBER«, t00=0x00e4, t01=0x0020}
0x1645e…16472 Head {h00=0x0010, h01=0x0050, text=»BDWT58 EQU *«, t00=0x00e4, t01=0x0052}
0x16472…164a4 Head {h00=0x002e, h01=0x0050, text=» ADK A1,1 INCREMENT LINE CONNECTION NUMBER«, t00=0x00e4, t01=0x0066}
0x164a4…164dc Head {h00=0x0034, h01=0x0050, text=» CALL BINASC CONVERT INCREMENTED VALUE TO ASCII «, t00=0x00e4, t01=0x0098}
0x164dc…16508 Head {h00=0x0028, h01=0x0050, text=» SC A1,TDC+5,A9 STORE ASCII DIGIT =2«, t00=0x00e4, t01=0x00d0}
0x16508…16532 Head {h00=0x0026, h01=0x0050, text=» SRL A1,8 MOVE LEFT ASCII DIGIT =2«, t00=0x00e4, t01=0x00fc}
0x16532…1655e Head {h00=0x0028, h01=0x0050, text=» SC A1,TDC+4,A9 STORE ASCII DIGIT =2«, t00=0x00e4, t01=0x0126}
0x1655e…16590 Head {h00=0x002e, h01=0x0050, text=» SC A5,TDC+3,A9 STORE ASCII DIGIT DIGIT =2«, t00=0x00e4, t01=0x0152}
0x16590…1659e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e4, t01=0x0184}
0x1659e…165a8 (229, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x0004}
0x165a8…165d0 Head {h00=0x0024, h01=0x0050, text=»* GENERATE DWT:S FOR THIS CLASS«, t00=0x00e5, t01=0x000e}
0x165d0…16606 Head {h00=0x0032, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER (BINARY VALUE) «, t00=0x00e5, t01=0x0036}
0x16606…16636 Head {h00=0x002c, h01=0x0050, text=»* A7 - POINTER TO TERMINAL DEVICE CLASS«, t00=0x00e5, t01=0x006c}
0x16636…16640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x009c}
0x16640…16672 Head {h00=0x002e, h01=0x0050, text=»* THE ENTRY IN TEMPORARY INTERRUPT TABLE «, t00=0x00e5, t01=0x00a6}
0x16672…166a4 Head {h00=0x002e, h01=0x0050, text=»* IS DERIVED FROM LINE CONNECTION NUMBER,«, t00=0x00e5, t01=0x00d8}
0x166a4…166e2 Head {h00=0x003a, h01=0x0050, text=»* DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT)«, t00=0x00e5, t01=0x010a}
0x166e2…166ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e5, t01=0x0148}
0x166ec…16700 Head {h00=0x0010, h01=0x0050, text=» CALL DWTGEN«, t00=0x00e5, t01=0x0152}
0x16700…16714 Head {h00=0x0010, h01=0x0050, text=»BDWT90 EQU *«, t00=0x00e5, t01=0x0166}
0x16714…16756 Head {h00=0x003e, h01=0x0050, text=» LD A1,STKEND+NBRTDC GET NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x00e5, t01=0x017a}
0x16756…16786 Head {h00=0x002c, h01=0x0050, text=» SUK A1,1 ANY MOORE IN THIS TASK CLASS? «, t00=0x00e6, t01=0x002c}
0x16786…1679e Head {h00=0x0014, h01=0x0050, text=» RF(Z) BDW100 NO«, t00=0x00e6, t01=0x005c}
0x1679e…167d0 Head {h00=0x002e, h01=0x0050, text=» ST A1,STKEND+NBRTDC SAVE REMAINING NUMBER«, t00=0x00e6, t01=0x0074}
0x167d0…167f8 Head {h00=0x0024, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT TDC RECORD«, t00=0x00e6, t01=0x00a6}
0x167f8…1680a Head {h00=0x000e, h01=0x0050, text=» RB BDWT55«, t00=0x00e6, t01=0x00ce}
0x1680a…1681e Head {h00=0x0010, h01=0x0050, text=»BDW100 EQU *«, t00=0x00e6, t01=0x00e0}
0x1681e…16844 Head {h00=0x0022, h01=0x0050, text=» CALL ECHO INIT ECHO POINTERS «, t00=0x00e6, t01=0x00f4}
0x16844…1687c Head {h00=0x0034, h01=0x0050, text=» LD A1,STKEND+CUTENT GET CURRENT ENTRY IN TC:TAB«, t00=0x00e6, t01=0x011a}
0x1687c…168a6 Head {h00=0x0026, h01=0x0050, text=» ADK A1,2 INCREMENT ENTRY POINTER «, t00=0x00e6, t01=0x0152}
0x168a6…168c8 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+CUTENT SAVE «, t00=0x00e6, t01=0x017c}
0x168c8…16906 Head {h00=0x003a, h01=0x0050, text=» LD A1,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS«, t00=0x00e7, t01=0x000e}
0x16906…1692c Head {h00=0x0022, h01=0x0050, text=» SUK A1,1 ANY MOORE TASKS LEFT«, t00=0x00e7, t01=0x004c}
0x1692c…16946 Head {h00=0x0016, h01=0x0050, text=» RB(P) BDWT50 YES «, t00=0x00e7, t01=0x0072}
0x16946…16976 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF MOORE TASK DEFINITION BLOCKS«, t00=0x00e7, t01=0x008c}
0x16976…16980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x00bc}
0x16980…169a8 Head {h00=0x0024, h01=0x0050, text=» CALL NXTBLK SKIP TO NEXT BLOCK «, t00=0x00e7, t01=0x00c6}
0x169a8…169d4 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00e7, t01=0x00ee}
0x169d4…169ee Head {h00=0x0016, h01=0x0050, text=» RB(E) BDWT40 YES «, t00=0x00e7, t01=0x011a}
0x169ee…169fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e7, t01=0x0134}
0x169fc…16a26 Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00e7, t01=0x0142}
0x16a26…16a3c Head {h00=0x0012, h01=0x0050, text=» RB(P) BDWT40 «, t00=0x00e7, t01=0x016c}
0x16a3c…16a6c Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x00e7, t01=0x0182}
0x16a6c…16a84 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00e8, t01=0x0022}
0x16a84…16a90 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e8, t01=0x003a}
0x16a90…16aa0 Head {h00=0x000c, h01=0x0050, text=» EJECT «, t00=0x00e8, t01=0x0046}
0x16aa0…16ad0 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x00e8, t01=0x0056}
0x16ad0…16b00 Head {h00=0x002c, h01=0x0050, text=»* B:CDT - BUILD COMMON DEVICE TABLE *«, t00=0x00e8, t01=0x0086}
0x16b00…16b30 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x00e8, t01=0x00b6}
0x16b30…16b3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00e6}
0x16b3a…16b5c Head {h00=0x001e, h01=0x0050, text=»* REFERENCED IN: SYSLDM «, t00=0x00e8, t01=0x00f0}
0x16b5c…16b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x0112}
0x16b66…16b94 Head {h00=0x002a, h01=0x0050, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x00e8, t01=0x011c}
0x16b94…16bcc Head {h00=0x0034, h01=0x0050, text=»* CONSTA - START OF CONFIGURATION DATA «, t00=0x00e8, t01=0x014a}
0x16bcc…16bf8 Head {h00=0x0028, h01=0x0050, text=»* SCTEFA - END OF FREE AREA«, t00=0x00e8, t01=0x0182}
0x16bf8…16c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x001e}
0x16c02…16c3a Head {h00=0x0034, h01=0x0050, text=»* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE«, t00=0x00e9, t01=0x0028}
0x16c3a…16c44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0060}
0x16c44…16c66 Head {h00=0x001e, h01=0x0050, text=»* WORK REGISTERS: A1-A12 «, t00=0x00e9, t01=0x006a}
0x16c66…16c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x008c}
0x16c70…16cb0 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE«, t00=0x00e9, t01=0x0096}
0x16cb0…16cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x00d6}
0x16cba…16cc8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e9, t01=0x00e0}
0x16cc8…16cdc Head {h00=0x0010, h01=0x0050, text=»B:CDT EQU * «, t00=0x00e9, t01=0x00ee}
0x16cdc…16d06 Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x00e9, t01=0x0102}
0x16d06…16d24 Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 RESET LENGTH«, t00=0x00e9, t01=0x012c}
0x16d24…16d4e Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00e9, t01=0x014a}
0x16d4e…16d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0174}
0x16d58…16d86 Head {h00=0x002a, h01=0x0050, text=»* GET COMMON DEVICE DEFINITION BLOCK «, t00=0x00e9, t01=0x017e}
0x16d86…16d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x001c}
0x16d90…16da4 Head {h00=0x0010, h01=0x0050, text=»CDG:10 EQU *«, t00=0x00ea, t01=0x0026}
0x16da4…16db8 Head {h00=0x0010, h01=0x0050, text=» CALL NXTBLK«, t00=0x00ea, t01=0x003a}
0x16db8…16de4 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00ea, t01=0x004e}
0x16de4…16dfe Head {h00=0x0016, h01=0x0050, text=» RB(E) CDG:10 YES «, t00=0x00ea, t01=0x007a}
0x16dfe…16e2a Head {h00=0x0028, h01=0x0050, text=» CCK A2,'CC' COMMON DEV. DEF. BLOCK?«, t00=0x00ea, t01=0x0094}
0x16e2a…16e44 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BCDTEX NO «, t00=0x00ea, t01=0x00c0}
0x16e44…16e52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ea, t01=0x00da}
0x16e52…16e5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x00e8}
0x16e5c…16e9a Head {h00=0x003a, h01=0x0050, text=»* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x00ea, t01=0x00f2}
0x16e9a…16ed6 Head {h00=0x0038, h01=0x0050, text=»* AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES«, t00=0x00ea, t01=0x0130}
0x16ed6…16ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x016c}
0x16ee0…16f14 Head {h00=0x0030, h01=0x0050, text=» LDR A9,A11 START OF COMMON DEFINITION BLOCK«, t00=0x00ea, t01=0x0176}
0x16f14…16f4e Head {h00=0x0036, h01=0x0050, text=» ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES «, t00=0x00eb, t01=0x001a}
0x16f4e…16f78 Head {h00=0x0026, h01=0x0050, text=» CALL GETCTC GET NUMBER OF C.T.C. «, t00=0x00eb, t01=0x0054}
0x16f78…16f90 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x00eb, t01=0x007e}
0x16f90…16fb6 Head {h00=0x0022, h01=0x0050, text=»B:CT10 RF(Z) B:CT30 NO MOORE! «, t00=0x00eb, t01=0x0096}
0x16fb6…16fe8 Head {h00=0x002e, h01=0x0050, text=» CALL GETCLN GET CLASS IDENT NUMBER (1-99)«, t00=0x00eb, t01=0x00bc}
0x16fe8…17018 Head {h00=0x002c, h01=0x0050, text=» ADR A1,A1 DISPLACEMENT TO CLASS POINTER«, t00=0x00eb, t01=0x00ee}
0x17018…17048 Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x00eb, t01=0x011e}
0x17048…17070 Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A5 GET LENGTH OF TCLASS«, t00=0x00eb, t01=0x014e}
0x17070…17090 Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 EXCLUDE LENGTH«, t00=0x00eb, t01=0x0176}
0x17090…170ba Head {h00=0x0026, h01=0x0050, text=» CWR A1,A2 MAKE SURE CLASS EXISTS «, t00=0x00ec, t01=0x0008}
0x170ba…170d4 Head {h00=0x0016, h01=0x0050, text=» RF(NG) B:CT20 OK!«, t00=0x00ec, t01=0x0032}
0x170d4…170f8 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR! «, t00=0x00ec, t01=0x004c}
0x170f8…1710c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00ec, t01=0x0070}
0x1710c…1713c Head {h00=0x002c, h01=0x0050, text=»B:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS «, t00=0x00ec, t01=0x0084}
0x1713c…17164 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET POINTER TO CLASS«, t00=0x00ec, t01=0x00b4}
0x17164…1718c Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET LENGTH OF CLASS «, t00=0x00ec, t01=0x00dc}
0x1718c…171b2 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x00ec, t01=0x0104}
0x171b2…171dc Head {h00=0x0026, h01=0x0050, text=» ADR A7,A1 INCREMENT CDTAB LENGTH «, t00=0x00ec, t01=0x012a}
0x171dc…1720e Head {h00=0x002e, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE«, t00=0x00ec, t01=0x0154}
0x1720e…17234 Head {h00=0x0022, h01=0x0050, text=» SUK A6,1 DECR. NBR OF C.T.C. «, t00=0x00ec, t01=0x0186}
0x17234…17246 Head {h00=0x000e, h01=0x0050, text=» RB B:CT10«, t00=0x00ed, t01=0x001c}
0x17246…17254 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ed, t01=0x002e}
0x17254…17268 Head {h00=0x0010, h01=0x0050, text=»B:CT30 EQU *«, t00=0x00ed, t01=0x003c}
0x17268…17272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0050}
0x17272…172b0 Head {h00=0x003a, h01=0x0050, text=»* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x00ed, t01=0x005a}
0x172b0…172ec Head {h00=0x0038, h01=0x0050, text=»* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES «, t00=0x00ed, t01=0x0098}
0x172ec…172f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x00d4}
0x172f6…1730a Head {h00=0x0010, h01=0x0050, text=» CALL GETSDC«, t00=0x00ed, t01=0x00de}
0x1730a…17328 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,SDCFST-CDBNC «, t00=0x00ed, t01=0x00f2}
0x17328…1733a Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x00ed, t01=0x0110}
0x1733a…1734e Head {h00=0x0010, h01=0x0050, text=»BCDT10 EQU *«, t00=0x00ed, t01=0x0122}
0x1734e…17364 Head {h00=0x0012, h01=0x0050, text=» RF(Z) BCDTEX «, t00=0x00ed, t01=0x0136}
0x17364…17378 Head {h00=0x0010, h01=0x0050, text=» CALL GETCLN«, t00=0x00ed, t01=0x014c}
0x17378…1738a Head {h00=0x000e, h01=0x0050, text=» ADR A1,A1«, t00=0x00ed, t01=0x0160}
0x1738a…173ba Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00ed, t01=0x0172}
0x173ba…173ce Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A5 «, t00=0x00ee, t01=0x0012}
0x173ce…173e0 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00ee, t01=0x0026}
0x173e0…173f2 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x00ee, t01=0x0038}
0x173f2…17408 Head {h00=0x0012, h01=0x0050, text=» RF(NG) BCDT15«, t00=0x00ee, t01=0x004a}
0x17408…1741e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x00ee, t01=0x0060}
0x1741e…17432 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00ee, t01=0x0076}
0x17432…17446 Head {h00=0x0010, h01=0x0050, text=»BCDT15 EQU *«, t00=0x00ee, t01=0x008a}
0x17446…17466 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A5 SELECT ENTRY «, t00=0x00ee, t01=0x009e}
0x17466…1748e Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET POINTER TO CLASS«, t00=0x00ee, t01=0x00be}
0x1748e…174ac Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A1 GET LENGTH«, t00=0x00ee, t01=0x00e6}
0x174ac…174be Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x00ee, t01=0x0104}
0x174be…174d2 Head {h00=0x0010, h01=0x0050, text=» ADKL A9,SDC«, t00=0x00ee, t01=0x0116}
0x174d2…174e4 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A1«, t00=0x00ee, t01=0x012a}
0x174e4…174f6 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x00ee, t01=0x013c}
0x174f6…17508 Head {h00=0x000e, h01=0x0050, text=» RB BCDT10«, t00=0x00ee, t01=0x014e}
0x17508…1751c Head {h00=0x0010, h01=0x0050, text=»BCDTEX EQU *«, t00=0x00ee, t01=0x0160}
0x1751c…17546 Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00ee, t01=0x0174}
0x17546…1756e Head {h00=0x0024, h01=0x0050, text=» RB(P) CDG:10 MORE APPLICATIONS?«, t00=0x00ef, t01=0x000e}
0x1756e…17598 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00ef, t01=0x0036}
0x17598…175c2 Head {h00=0x0026, h01=0x0050, text=»B:CT35 CALL NXTBLK GET NEXT BLOCK «, t00=0x00ef, t01=0x0060}
0x175c2…175ee Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00ef, t01=0x008a}
0x175ee…17608 Head {h00=0x0016, h01=0x0050, text=» RB(E) B:CT35 YES «, t00=0x00ef, t01=0x00b6}
0x17608…17616 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ef, t01=0x00d0}
0x17616…17620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x00de}
0x17620…17660 Head {h00=0x003c, h01=0x0050, text=»* RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x00ef, t01=0x00e8}
0x17660…1769a Head {h00=0x0036, h01=0x0050, text=»* AND DWT-ADDRESSES USED FOR PHYSICAL I/O ON DISC«, t00=0x00ef, t01=0x0128}
0x1769a…176a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0162}
0x176a4…176de Head {h00=0x0036, h01=0x0050, text=»* ALSO RESERVE ENTRIES IN COMMON DEVICE TABLE FOR«, t00=0x00ef, t01=0x016c}
0x176de…17722 Head {h00=0x0040, h01=0x0050, text=»* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION «, t00=0x00f0, t01=0x0016}
0x17722…1772c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x005a}
0x1772c…1777a Head {h00=0x004a, h01=0x0050, text=»* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS«, t00=0x00f0, t01=0x0064}
0x1777a…17784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x00b2}
0x17784…177ae Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTDCT DATA COMMUNICATION? «, t00=0x00f0, t01=0x00bc}
0x177ae…177d4 Head {h00=0x0022, h01=0x0050, text=» LD A6,SCTDMT DATA MANAGEMENT «, t00=0x00f0, t01=0x00e6}
0x177d4…177f0 Head {h00=0x0018, h01=0x0050, text=» ORR A6,A1 DM OR DC?«, t00=0x00f0, t01=0x010c}
0x177f0…17816 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00f0, t01=0x0128}
0x17816…1783e Head {h00=0x0024, h01=0x0050, text=» ANK A1,/E DISC PAGING OR SWB:S?«, t00=0x00f0, t01=0x014e}
0x1783e…1786e Head {h00=0x002c, h01=0x0050, text=» ORR A6,A1 COPY LAST SCLASS IF NOT ZERO «, t00=0x00f0, t01=0x0176}
0x1786e…17888 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:12 NO! «, t00=0x00f1, t01=0x0016}
0x17888…178b8 Head {h00=0x002c, h01=0x0050, text=» LD A6,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00f1, t01=0x0030}
0x178b8…178e0 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A6 GET LENGTH OF SCLASS«, t00=0x00f1, t01=0x0060}
0x178e0…17906 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x00f1, t01=0x0088}
0x17906…1792e Head {h00=0x0024, h01=0x0050, text=» ADR A6,A1 LAST ENTRY IN SCLASS «, t00=0x00f1, t01=0x00ae}
0x1792e…1795c Head {h00=0x002a, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO LAST CLASS «, t00=0x00f1, t01=0x00d6}
0x1795c…17988 Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A6 GET LENGTH OF LAST CLASS«, t00=0x00f1, t01=0x0104}
0x17988…179ae Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00f1, t01=0x0130}
0x179ae…179d8 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A6 ADD TO LENGTH OF CD:TAB«, t00=0x00f1, t01=0x0156}
0x179d8…179ec Head {h00=0x0010, h01=0x0050, text=»CDG:12 EQU *«, t00=0x00f1, t01=0x0180}
0x179ec…179fe (242, 0, 398) Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00f2, t01=0x0004}
0x179fe…17a12 Head {h00=0x0010, h01=0x0050, text=» STR A7,A12 «, t00=0x00f2, t01=0x0016}
0x17a12…17a28 Head {h00=0x0012, h01=0x0050, text=» ST A12,SCTCDT«, t00=0x00f2, t01=0x002a}
0x17a28…17a3c Head {h00=0x0010, h01=0x0050, text=» ADR A12,A7 «, t00=0x00f2, t01=0x0040}
0x17a3c…17a60 Head {h00=0x0020, h01=0x0050, text=» ST A11,STKEND+WRK1 SAVE A11«, t00=0x00f2, t01=0x0054}
0x17a60…17a86 Head {h00=0x0022, h01=0x0050, text=» LDR A11,A12 GET END OF CDTAB «, t00=0x00f2, t01=0x0078}
0x17a86…17ab8 Head {h00=0x002e, h01=0x0050, text=» LD A9,STKEND+LIMIT GET END OF SYSTEM AREA«, t00=0x00f2, t01=0x009e}
0x17ab8…17ae6 Head {h00=0x002a, h01=0x0050, text=» CALL CMPADR CHECK IF MEMORY OVERFLOW «, t00=0x00f2, t01=0x00d0}
0x17ae6…17b00 Head {h00=0x0016, h01=0x0050, text=» RF(NG) CDG:13 OK «, t00=0x00f2, t01=0x00fe}
0x17b00…17b2e Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00f2, t01=0x0118}
0x17b2e…17b42 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00f2, t01=0x0146}
0x17b42…17b70 Head {h00=0x002a, h01=0x0050, text=»CDG:13 LD A11,STKEND+WRK1 RESTORE A11 «, t00=0x00f2, t01=0x015a}
0x17b70…17b7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f2, t01=0x0188}
0x17b7e…17b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x0008}
0x17b88…17bc2 Head {h00=0x0036, h01=0x0050, text=»* INIT POINTER TO START OF FREE AREA AND TO CDTAB «, t00=0x00f3, t01=0x0012}
0x17bc2…17bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x004c}
0x17bcc…17bf8 Head {h00=0x0028, h01=0x0050, text=» LD A10,SCTCDT FIRST ENTRY IN SCTCDT«, t00=0x00f3, t01=0x0056}
0x17bf8…17c26 Head {h00=0x002a, h01=0x0050, text=»CDG:15 LCR A2,A11 GET FIRST CHARACTER «, t00=0x00f3, t01=0x0082}
0x17c26…17c58 Head {h00=0x002e, h01=0x0050, text=»CDG:16 CCK A2,'TT' TASK DEFINITION BLOCK/ «, t00=0x00f3, t01=0x00b0}
0x17c58…17c72 Head {h00=0x0016, h01=0x0050, text=» RF(NE) CDG:17 NO!«, t00=0x00f3, t01=0x00e2}
0x17c72…17c94 Head {h00=0x001e, h01=0x0050, text=» CALL NXTBLK GET NEXT BLCK«, t00=0x00f3, t01=0x00fc}
0x17c94…17ca6 Head {h00=0x000e, h01=0x0050, text=» RB CDG:16«, t00=0x00f3, t01=0x011e}
0x17ca6…17cd4 Head {h00=0x002a, h01=0x0050, text=»CDG:17 CCK A2,'CC' COMMON DEF. BLOCK? «, t00=0x00f3, t01=0x0130}
0x17cd4…17cee Head {h00=0x0016, h01=0x0050, text=» RF(E) CDG:19 YES!«, t00=0x00f3, t01=0x015e}
0x17cee…17d20 Head {h00=0x002e, h01=0x0050, text=» SUR A8,A8 INDICATE NO COMMON WORK BLOCKS «, t00=0x00f3, t01=0x0178}
0x17d20…17d4c Head {h00=0x0028, h01=0x0050, text=»CDG:18 RF(N) CDG:EX CDTAB COMPLETE! «, t00=0x00f4, t01=0x001a}
0x17d4c…17d76 Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00f4, t01=0x0046}
0x17d76…17d9e Head {h00=0x0024, h01=0x0050, text=» RB(P) CDG:15 MORE APPLICATIONS «, t00=0x00f4, t01=0x0070}
0x17d9e…17dc4 Head {h00=0x0022, h01=0x0050, text=» RF CDGEX NO MORE APPLICATIONS«, t00=0x00f4, t01=0x0098}
0x17dc4…17dd8 Head {h00=0x0010, h01=0x0050, text=»CDG:19 EQU *«, t00=0x00f4, t01=0x00be}
0x17dd8…17de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x00d2}
0x17de2…17e24 Head {h00=0x003e, h01=0x0050, text=»* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES«, t00=0x00f4, t01=0x00dc}
0x17e24…17e2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x011e}
0x17e2e…17e5c Head {h00=0x002a, h01=0x0050, text=» LDR A9,A11 START OF COMMON DEF. BLOCK«, t00=0x00f4, t01=0x0128}
0x17e5c…17e96 Head {h00=0x0036, h01=0x0050, text=» ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES «, t00=0x00f4, t01=0x0156}
0x17e96…17ec0 Head {h00=0x0026, h01=0x0050, text=» CALL GETCTC GET NUMBER OF C.T.C. «, t00=0x00f4, t01=0x0190}
0x17ec0…17ef0 Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 ANY COMMON TERMINAL CLASSES? «, t00=0x00f5, t01=0x002a}
0x17ef0…17f10 Head {h00=0x001c, h01=0x0050, text=»B:CT40 RF(Z) B:CT50 NO! «, t00=0x00f5, t01=0x005a}
0x17f10…17f32 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+NBRCOM SAVE «, t00=0x00f5, t01=0x007a}
0x17f32…17f5e Head {h00=0x0028, h01=0x0050, text=» CALL GETCLN GET CLASS IDENT NUMBER «, t00=0x00f5, t01=0x009c}
0x17f5e…17f80 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+CLASID SAVE «, t00=0x00f5, t01=0x00c8}
0x17f80…17fb0 Head {h00=0x002c, h01=0x0050, text=» CALL GETLCN GET LINE CONNECTION NUMBER «, t00=0x00f5, t01=0x00ea}
0x17fb0…17fc8 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x00f5, t01=0x011a}
0x17fc8…17ffc Head {h00=0x0030, h01=0x0050, text=» LD A2,STKEND+CLASID GET CLASS IDENT NUMBER «, t00=0x00f5, t01=0x0132}
0x17ffc…18026 Head {h00=0x0026, h01=0x0050, text=» ADR A2,A2 CONVERT TO DISPLACEMENT«, t00=0x00f5, t01=0x0166}
0x18026…18056 Head {h00=0x002c, h01=0x0050, text=» LD A7,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x00f5, t01=0x0190}
0x18056…18080 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A2 SELECT ENTRY IN TCLASS «, t00=0x00f6, t01=0x0030}
0x18080…180a8 Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET POINTER TO CLASS«, t00=0x00f6, t01=0x005a}
0x180a8…180da Head {h00=0x002e, h01=0x0050, text=» CALL DWTGEN GENERATE DWT:S FOR THIS CLASS«, t00=0x00f6, t01=0x0082}
0x180da…1810c Head {h00=0x002e, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE«, t00=0x00f6, t01=0x00b4}
0x1810c…1813e Head {h00=0x002e, h01=0x0050, text=» LD A1,STKEND+NBRCOM GET NUMBER OF C.T.C. «, t00=0x00f6, t01=0x00e6}
0x1813e…18162 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 DECREMENT COUNTER «, t00=0x00f6, t01=0x0118}
0x18162…18174 Head {h00=0x000e, h01=0x0050, text=» RB B:CT40«, t00=0x00f6, t01=0x013c}
0x18174…1818c Head {h00=0x0014, h01=0x0050, text=»B:CT50 CALL ECHO«, t00=0x00f6, t01=0x014e}
0x1818c…1819a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f6, t01=0x0166}
0x1819a…181a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x0174}
0x181a4…181d4 Head {h00=0x002c, h01=0x0050, text=»* GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x00f6, t01=0x017e}
0x181d4…181de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x001e}
0x181de…181f2 Head {h00=0x0010, h01=0x0050, text=» CALL GETSDC«, t00=0x00f7, t01=0x0028}
0x181f2…18210 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,SDCFST-CDBNC «, t00=0x00f7, t01=0x003c}
0x18210…18222 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x00f7, t01=0x005a}
0x18222…18236 Head {h00=0x0010, h01=0x0050, text=»CDG:20 EQU *«, t00=0x00f7, t01=0x006c}
0x18236…1824c Head {h00=0x0012, h01=0x0050, text=» RB(NP) CDG:18«, t00=0x00f7, t01=0x0080}
0x1824c…18256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x0096}
0x18256…18280 Head {h00=0x0026, h01=0x0050, text=»* GET SPECIAL DEVICE CLASS NUMBER«, t00=0x00f7, t01=0x00a0}
0x18280…1828a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x00ca}
0x1828a…1829e Head {h00=0x0010, h01=0x0050, text=» CALL GETCLN«, t00=0x00f7, t01=0x00d4}
0x1829e…182a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x00e8}
0x182a8…182dc Head {h00=0x0030, h01=0x0050, text=»* GET CORRESPONDING DEVICE CLASS IN SCLASS «, t00=0x00f7, t01=0x00f2}
0x182dc…182e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x0126}
0x182e6…182fc Head {h00=0x0012, h01=0x0050, text=» ADR A1,A1 T «, t00=0x00f7, t01=0x0130}
0x182fc…1832c Head {h00=0x002c, h01=0x0050, text=» LD A6,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00f7, t01=0x0146}
0x1832c…1834c Head {h00=0x001c, h01=0x0050, text=» ADR A6,A1 SELECT CLASS «, t00=0x00f7, t01=0x0176}
0x1834c…18376 Head {h00=0x0026, h01=0x0050, text=» LDR* A5,A6 SAVE POINTER TO CLASS «, t00=0x00f8, t01=0x0008}
0x18376…1839e Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO CLASS«, t00=0x00f8, t01=0x0032}
0x1839e…183c6 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET LENGTH OF CLASS «, t00=0x00f8, t01=0x005a}
0x183c6…183ec Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00f8, t01=0x0082}
0x183ec…18400 Head {h00=0x0010, h01=0x0050, text=»CDG:30 EQU *«, t00=0x00f8, t01=0x00a8}
0x18400…1841e Head {h00=0x001a, h01=0x0050, text=» ADK A5,4 NEXT DEVICE «, t00=0x00f8, t01=0x00bc}
0x1841e…18442 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A5 GET DWT-ADDRESS «, t00=0x00f8, t01=0x00da}
0x18442…1846e Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTLEN,A1 GENERATION OF DWT? «, t00=0x00f8, t01=0x00fe}
0x1846e…18486 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CDG:40 NO«, t00=0x00f8, t01=0x012a}
0x18486…18490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x0142}
0x18490…184a4 Head {h00=0x0010, h01=0x0050, text=»* COPY DWT «, t00=0x00f8, t01=0x014c}
0x184a4…184ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x0160}
0x184ae…184cc Head {h00=0x001a, h01=0x0050, text=» LDR A2,A12 TO-ADDRESS«, t00=0x00f8, t01=0x016a}
0x184cc…184fc Head {h00=0x002c, h01=0x0050, text=» ADR A12,A3 UPDATE POINTER TO FREE AREA «, t00=0x00f8, t01=0x0188}
0x184fc…1851a Head {h00=0x001a, h01=0x0050, text=» CALL CHKMOV COPY DWT «, t00=0x00f9, t01=0x0028}
0x1851a…18524 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0046}
0x18524…1855c Head {h00=0x0034, h01=0x0050, text=»* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM«, t00=0x00f9, t01=0x0050}
0x1855c…18566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0088}
0x18566…1858c Head {h00=0x0022, h01=0x0050, text=» LD A3,SCTOPT GET OPTION WORD «, t00=0x00f9, t01=0x0092}
0x1858c…185ac Head {h00=0x001c, h01=0x0050, text=» ANK A3,1 MMU IN SYSTEM?«, t00=0x00f9, t01=0x00b8}
0x185ac…185c6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:35 NO! «, t00=0x00f9, t01=0x00d8}
0x185c6…185f2 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x00f9, t01=0x00f2}
0x185f2…18620 Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 COMPUTE RELOCATION CONSTANT«, t00=0x00f9, t01=0x011e}
0x18620…18650 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x00f9, t01=0x014c}
0x18650…18674 Head {h00=0x0020, h01=0x0050, text=» ANKL A4,/FFFE MAKE IT EVEN!«, t00=0x00f9, t01=0x017c}
0x18674…18690 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A3 RELOCATE «, t00=0x00fa, t01=0x0010}
0x18690…186b6 Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTMEC,A2 STORE IT BACK«, t00=0x00fa, t01=0x002c}
0x186b6…186ca Head {h00=0x0010, h01=0x0050, text=»CDG:35 EQU *«, t00=0x00fa, t01=0x0052}
0x186ca…186f0 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 DWT-ADDRESS TO USE «, t00=0x00fa, t01=0x0066}
0x186f0…18704 Head {h00=0x0010, h01=0x0050, text=»CDG:40 EQU *«, t00=0x00fa, t01=0x008c}
0x18704…1870e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x00a0}
0x1870e…18740 Head {h00=0x002e, h01=0x0050, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x00fa, t01=0x00aa}
0x18740…1874a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x00dc}
0x1874a…18770 Head {h00=0x0022, h01=0x0050, text=» ST A1,4,A10 STORE DWT-ADDRESS«, t00=0x00fa, t01=0x00e6}
0x18770…18792 Head {h00=0x001e, h01=0x0050, text=» LD A1,-2,A5 GET FILE CODE«, t00=0x00fa, t01=0x010c}
0x18792…187b4 Head {h00=0x001e, h01=0x0050, text=» ST A1,2,A10 STORE IN TTAB«, t00=0x00fa, t01=0x012e}
0x187b4…187dc Head {h00=0x0024, h01=0x0050, text=» ADKL A10,4 NEXT ENTRY IN CD:TAB«, t00=0x00fa, t01=0x0150}
0x187dc…18806 Head {h00=0x0026, h01=0x0050, text=» SUK A6,4 DECREMENT DEVICE COUNTER«, t00=0x00fa, t01=0x0178}
0x18806…18828 Head {h00=0x001e, h01=0x0050, text=» RB(P) CDG:30 NEXT DEVICE «, t00=0x00fb, t01=0x0012}
0x18828…18836 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fb, t01=0x0034}
0x18836…18840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0042}
0x18840…18870 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF MOORE SPECIAL DEVICE CLASSES«, t00=0x00fb, t01=0x004c}
0x18870…1887a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x007c}
0x1887a…1888e Head {h00=0x0010, h01=0x0050, text=» ADKL A9,SDC«, t00=0x00fb, t01=0x0086}
0x1888e…188a0 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x00fb, t01=0x009a}
0x188a0…188b2 Head {h00=0x000e, h01=0x0050, text=» RB CDG:20«, t00=0x00fb, t01=0x00ac}
0x188b2…188c6 Head {h00=0x0010, h01=0x0050, text=»CDGEX EQU * «, t00=0x00fb, t01=0x00be}
0x188c6…188ec Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTDMT DATA MANAGEMENT «, t00=0x00fb, t01=0x00d2}
0x188ec…18914 Head {h00=0x0024, h01=0x0050, text=» LD A5,SCTDCT DATA COMMUNICATION«, t00=0x00fb, t01=0x00f8}
0x18914…18930 Head {h00=0x0018, h01=0x0050, text=» ORR A1,A5 DM OR DC?«, t00=0x00fb, t01=0x0120}
0x18930…18956 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x00fb, t01=0x013c}
0x18956…1897e Head {h00=0x0024, h01=0x0050, text=» ANK A5,/E DISC PAGING OR SWB:S?«, t00=0x00fb, t01=0x0162}
0x1897e…189ae Head {h00=0x002c, h01=0x0050, text=» ORR A1,A5 COPY LAST SCLASS IF NOT ZERO «, t00=0x00fb, t01=0x018a}
0x189ae…189c8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:EX NO! «, t00=0x00fc, t01=0x002a}
0x189c8…189f8 Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00fc, t01=0x0044}
0x189f8…18a20 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A5 GET LENGTH OF SCLASS«, t00=0x00fc, t01=0x0074}
0x18a20…18a46 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x00fc, t01=0x009c}
0x18a46…18a68 Head {h00=0x001e, h01=0x0050, text=» ADR A5,A1 GET LAST ENTRY «, t00=0x00fc, t01=0x00c2}
0x18a68…18a96 Head {h00=0x002a, h01=0x0050, text=» LDR* A5,A5 GET POINTER TO LAST CLASS «, t00=0x00fc, t01=0x00e4}
0x18a96…18ac2 Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A5 GET LENGTH OF LAST CLASS«, t00=0x00fc, t01=0x0112}
0x18ac2…18ae8 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00fc, t01=0x013e}
0x18ae8…18afa Head {h00=0x000e, h01=0x0050, text=» RB CDG:30«, t00=0x00fc, t01=0x0164}
0x18afa…18b0e Head {h00=0x0010, h01=0x0050, text=»CDG:EX EQU *«, t00=0x00fc, t01=0x0176}
0x18b0e…18b3e Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x00fc, t01=0x018a}
0x18b3e…18b56 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00fd, t01=0x002a}
0x18b56…18b64 Head {h00=0x000a, h01=0x0050, text=» =6«, t00=0x00fd, t01=0x0042}
0x18b64…18b72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fd, t01=0x0050}
0x18b72…18bc0 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x00fd, t01=0x005e}
0x18bc0…18c0c Head {h00=0x0048, h01=0x0050, text=»* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS «, t00=0x00fd, t01=0x00ac}
0x18c0c…18c5a Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x00fd, t01=0x00f8}
0x18c5a…18c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x0146}
0x18c64…18c9c Head {h00=0x0034, h01=0x0050, text=»* ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) «, t00=0x00fd, t01=0x0150}
0x18c9c…18cde Head {h00=0x003e, h01=0x0050, text=»* A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS«, t00=0x00fd, t01=0x0188}
0x18cde…18d0c Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x00fe, t01=0x003a}
0x18d0c…18d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0068}
0x18d16…18d26 Head {h00=0x000c, h01=0x0050, text=»* EXIT:«, t00=0x00fe, t01=0x0072}
0x18d26…18d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0082}
0x18d30…18d50 Head {h00=0x001c, h01=0x0050, text=»* WORK REGISTERS: A1-A8«, t00=0x00fe, t01=0x008c}
0x18d50…18d5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x00ac}
0x18d5a…18d7c Head {h00=0x001e, h01=0x0050, text=»* SUBROUTINES: I:CHP,MOVE«, t00=0x00fe, t01=0x00b6}
0x18d7c…18d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x00d8}
0x18d86…18d94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fe, t01=0x00e2}
0x18d94…18da8 Head {h00=0x0010, h01=0x0050, text=»DWTGEN EQU *«, t00=0x00fe, t01=0x00f0}
0x18da8…18de0 Head {h00=0x0034, h01=0x0050, text=» ST A6,STKEND+LCNBR SAVE LINE CONNECTION NUMBER «, t00=0x00fe, t01=0x0104}
0x18de0…18e0c Head {h00=0x0028, h01=0x0050, text=» LDR* A8,A7 GET LENGTH OF THIS CLASS«, t00=0x00fe, t01=0x013c}
0x18e0c…18e34 Head {h00=0x0024, h01=0x0050, text=» SUKL A8,2 EXCLUSIVE LENGTH WORD«, t00=0x00fe, t01=0x0168}
0x18e34…18e54 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 FIRST FILECODE«, t00=0x00fe, t01=0x0190}
0x18e54…18e68 Head {h00=0x0010, h01=0x0050, text=»DWT05 EQU * «, t00=0x00ff, t01=0x0020}
0x18e68…18e9a Head {h00=0x002e, h01=0x0050, text=» LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT «, t00=0x00ff, t01=0x0034}
0x18e9a…18ed0 Head {h00=0x0032, h01=0x0050, text=» LD A6,STKEND+LCNBR GET LINE CONNECTION NUMBER«, t00=0x00ff, t01=0x0066}
0x18ed0…18eda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ff, t01=0x009c}
0x18eda…18efa Head {h00=0x001c, h01=0x0050, text=»* CHECK CONNECTION TYPE«, t00=0x00ff, t01=0x00a6}
0x18efa…18f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ff, t01=0x00c6}
0x18f04…18f34 Head {h00=0x002c, h01=0x0050, text=» LC A4,TDC+6,A9 GET LINE CONNECTION TYPE«, t00=0x00ff, t01=0x00d0}
0x18f34…18f5c Head {h00=0x0024, h01=0x0050, text=» CCK A4,'SS' SALCUZ CONNECTION? «, t00=0x00ff, t01=0x0100}
0x18f5c…18f76 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT10 NO! «, t00=0x00ff, t01=0x0128}
0x18f76…18faa Head {h00=0x0030, h01=0x0050, text=» CALL I:CHSZ INIT CHANNEL PARAMETERS SALCUZ «, t00=0x00ff, t01=0x0142}
0x18faa…18fbc Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x00ff, t01=0x0176}
0x18fbc…18fe8 Head {h00=0x0028, h01=0x0050, text=»DWT10 CCK A4,'AA' ASCU4Z CONNECTION?«, t00=0x00ff, t01=0x0188}
0x18fe8…19002 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT07 NO! «, t00=0x0100, t01=0x0024}
0x19002…19034 Head {h00=0x002e, h01=0x0050, text=» CALL I:CHAZ INIT CHANEL PARAMETERS ASCU4Z«, t00=0x0100, t01=0x003e}
0x19034…19046 Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x0100, t01=0x0070}
0x19046…19074 Head {h00=0x002a, h01=0x0050, text=»DWT07 CCK A4,'VV' VCCU1/4 CONNECTION? «, t00=0x0100, t01=0x0082}
0x19074…1908a Head {h00=0x0012, h01=0x0050, text=» RF(NE) DWT11 «, t00=0x0100, t01=0x00b0}
0x1908a…190be Head {h00=0x0030, h01=0x0050, text=» CALL I:CHVC INIT CHANNEL PARAMETERS VCCU1/4«, t00=0x0100, t01=0x00c6}
0x190be…190d0 Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x0100, t01=0x00fa}
0x190d0…190fa Head {h00=0x0026, h01=0x0050, text=»DWT11 CCK A4,'PP' PLC CONNECTION? «, t00=0x0100, t01=0x010c}
0x190fa…19114 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT12 NO! «, t00=0x0100, t01=0x0136}
0x19114…19146 Head {h00=0x002e, h01=0x0050, text=» CALL I:CHPC INIT CHANNEL PARAMETERS LWSI «, t00=0x0100, t01=0x0150}
0x19146…19158 Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x0100, t01=0x0182}
0x19158…19180 (257, 0, 400) Head {h00=0x0024, h01=0x0050, text=»DWT12 CCK A4,'LL' LT CONNECTION?«, t00=0x0101, t01=0x0004}
0x19180…1919a Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT08 NO! «, t00=0x0101, t01=0x002c}
0x1919a…191ca Head {h00=0x002c, h01=0x0050, text=» CALL I:CHLT INIT CHANNEL PARAMETERS LT «, t00=0x0101, t01=0x0046}
0x191ca…191dc Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x0101, t01=0x0076}
0x191dc…19204 Head {h00=0x0024, h01=0x0050, text=»DWT08 CCK A4,'RR' RT CONNECTION?«, t00=0x0101, t01=0x0088}
0x19204…19220 Head {h00=0x0018, h01=0x0050, text=» RF(NE) DWT09 NO! =8«, t00=0x0101, t01=0x00b0}
0x19220…19252 Head {h00=0x002e, h01=0x0050, text=» CALL I:CHRT INIT CHANNEL PARAMETERS RT =8«, t00=0x0101, t01=0x00cc}
0x19252…19268 Head {h00=0x0012, h01=0x0050, text=» RF DWT31 =8 «, t00=0x0101, t01=0x00fe}
0x19268…19296 Head {h00=0x002a, h01=0x0050, text=»DWT09 CCK A4,'QQ' RWSI CONNECTION? =8 «, t00=0x0101, t01=0x0114}
0x19296…192b2 Head {h00=0x0018, h01=0x0050, text=» RF(E) DWT06 YES! =8«, t00=0x0101, t01=0x0142}
0x192b2…192de Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP4 INDICATE FORMAT ERROR «, t00=0x0101, t01=0x015e}
0x192de…192f2 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0101, t01=0x018a}
0x192f2…1932c Head {h00=0x0036, h01=0x0050, text=»DWT06 CALL I:CHRI INIT CHANNEL PARAMETERS RWSI =8 «, t00=0x0102, t01=0x000e}
0x1932c…19340 Head {h00=0x0010, h01=0x0050, text=»DWT31 EQU * «, t00=0x0102, t01=0x0048}
0x19340…19362 Head {h00=0x001e, h01=0x0050, text=» ST A3,STKEND+CONTYP SAVE «, t00=0x0102, t01=0x005c}
0x19362…19382 Head {h00=0x001c, h01=0x0050, text=» ST A5,STKEND+WRK3 SAVE «, t00=0x0102, t01=0x007e}
0x19382…193a2 Head {h00=0x001c, h01=0x0050, text=» ST A6,STKEND+WRK4 SAVE «, t00=0x0102, t01=0x009e}
0x193a2…193ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x00be}
0x193ac…193e2 Head {h00=0x0032, h01=0x0050, text=»* CHECK IF DWT ALREADY GENERATED ON THIS LINE«, t00=0x0102, t01=0x00c8}
0x193e2…193ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x00fe}
0x193ec…1941c Head {h00=0x002c, h01=0x0050, text=» LD A4,STKEND+INTTAB GET START OF T.I.T.«, t00=0x0102, t01=0x0108}
0x1941c…19444 Head {h00=0x0024, h01=0x0050, text=» LDR* A5,A4 GET NUMBER OF BLOCKS«, t00=0x0102, t01=0x0138}
0x19444…19456 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0102, t01=0x0160}
0x19456…19468 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A5«, t00=0x0102, t01=0x0172}
0x19468…1947c Head {h00=0x0010, h01=0x0050, text=»DWT13 EQU * «, t00=0x0102, t01=0x0184}
0x1947c…19490 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DWT32«, t00=0x0103, t01=0x0008}
0x19490…194ca Head {h00=0x0036, h01=0x0050, text=» LD A3,STKEND+CONTYP GET LINE AND CONNECTION TYPE «, t00=0x0103, t01=0x001c}
0x194ca…194e6 Head {h00=0x0018, h01=0x0050, text=» CW A3,-4,A4 EQUAL? «, t00=0x0103, t01=0x0056}
0x194e6…19500 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DWT15 YES! «, t00=0x0103, t01=0x0072}
0x19500…19514 Head {h00=0x0010, h01=0x0050, text=»DWT14 EQU * «, t00=0x0103, t01=0x008c}
0x19514…1953a Head {h00=0x0022, h01=0x0050, text=» LDR* A4,A4 GET NEXT BLOCK =7 «, t00=0x0103, t01=0x00a0}
0x1953a…19566 Head {h00=0x0028, h01=0x0050, text=» SUK A5,1 DECREMENT NUMBER OF BLOCKS«, t00=0x0103, t01=0x00c6}
0x19566…19578 Head {h00=0x000e, h01=0x0050, text=» RB DWT13 «, t00=0x0103, t01=0x00f2}
0x19578…1958c Head {h00=0x0010, h01=0x0050, text=»DWT15 EQU * «, t00=0x0103, t01=0x0104}
0x1958c…195ba Head {h00=0x002a, h01=0x0050, text=» LD A2,-2,A4 GET RUN-TIME DWT-ADDRESS «, t00=0x0103, t01=0x0118}
0x195ba…195ea Head {h00=0x002c, h01=0x0050, text=» LD A6,DWTCP2,A2 GET CHANNEL PARAMETER-2«, t00=0x0103, t01=0x0146}
0x195ea…19612 Head {h00=0x0024, h01=0x0050, text=» ANK A6,/003F GET DEVICE ADDRESS«, t00=0x0103, t01=0x0176}
0x19612…19644 Head {h00=0x002e, h01=0x0050, text=» LD A3,STKEND+WRK3 GET CHANNEL PARAMETER-2«, t00=0x0104, t01=0x000e}
0x19644…1966c Head {h00=0x0024, h01=0x0050, text=» ANK A3,/003F GET DEVICE ADDRESS«, t00=0x0104, t01=0x0040}
0x1966c…19686 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A6 EQUAL? «, t00=0x0104, t01=0x0068}
0x19686…196a0 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT14 NO! «, t00=0x0104, t01=0x0082}
0x196a0…196ca Head {h00=0x0026, h01=0x0050, text=» LD A6,DWTST,A2 GET DEVICE STATUS «, t00=0x0104, t01=0x009c}
0x196ca…196f0 Head {h00=0x0022, h01=0x0050, text=» ANK A6,/00C0 GET BITS 8 AND 9«, t00=0x0104, t01=0x00c6}
0x196f0…1971a Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTST,A1 GET DEVICE STATUS «, t00=0x0104, t01=0x00ec}
0x1971a…19740 Head {h00=0x0022, h01=0x0050, text=» ANK A3,/00C0 GET BITS 8 AND 9«, t00=0x0104, t01=0x0116}
0x19740…1975a Head {h00=0x0016, h01=0x0050, text=» SUR A3,A6 EQUAL? «, t00=0x0104, t01=0x013c}
0x1975a…19770 Head {h00=0x0012, h01=0x0050, text=» RB(NE) DWT14 «, t00=0x0104, t01=0x0156}
0x19770…19798 Head {h00=0x0024, h01=0x0050, text=» LD A6,DWTTAB,A2 GET DEVICE TYPE«, t00=0x0104, t01=0x016c}
0x19798…197c0 (261, 0, 400) Head {h00=0x0024, h01=0x0050, text=» ANKL A6,/8000 ISOLATE ECHO BIT «, t00=0x0105, t01=0x0004}
0x197c0…197e8 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTTAB,A1 GET DEVICE TYPE«, t00=0x0105, t01=0x002c}
0x197e8…19810 Head {h00=0x0024, h01=0x0050, text=» ANKL A3,/8000 ISOLATE ECHO BIT «, t00=0x0105, t01=0x0054}
0x19810…1982a Head {h00=0x0016, h01=0x0050, text=» SUR A3,A6 EQUAL? «, t00=0x0105, t01=0x007c}
0x1982a…19844 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT14 NO! «, t00=0x0105, t01=0x0096}
0x19844…19858 Head {h00=0x0010, h01=0x0050, text=» CALL DWT50 «, t00=0x0105, t01=0x00b0}
0x19858…1986e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,DWT70«, t00=0x0105, t01=0x00c4}
0x1986e…1988a Head {h00=0x0018, h01=0x0050, text=» AD A1,STKCOM+M:REL «, t00=0x0105, t01=0x00da}
0x1988a…1989a Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0105, t01=0x00f6}
0x1989a…198ae Head {h00=0x0010, h01=0x0050, text=»DWT32 EQU * «, t00=0x0105, t01=0x0106}
0x198ae…198da Head {h00=0x0028, h01=0x0050, text=» LDR A5,A12 GET RUN TIME DWT-ADDRESS«, t00=0x0105, t01=0x011a}
0x198da…19908 Head {h00=0x002a, h01=0x0050, text=» CALL B:TTAB BUILD ONE BLOCK IN T.I.T.«, t00=0x0105, t01=0x0146}
0x19908…19912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0174}
0x19912…19932 Head {h00=0x001c, h01=0x0050, text=»* COPY DEVICE TYPE DWT «, t00=0x0105, t01=0x017e}
0x19932…1993c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x000e}
0x1993c…1995a Head {h00=0x001a, h01=0x0050, text=» LDR A2,A12 TO-ADDRESS«, t00=0x0106, t01=0x0018}
0x1995a…19978 Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTOR,A1 LENGTH«, t00=0x0106, t01=0x0036}
0x19978…1999c Head {h00=0x0020, h01=0x0050, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x0106, t01=0x0054}
0x1999c…199b0 Head {h00=0x0010, h01=0x0050, text=» CALL CHKMOV«, t00=0x0106, t01=0x0078}
0x199b0…199be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0106, t01=0x008c}
0x199be…199c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x009a}
0x199c8…199f0 Head {h00=0x0024, h01=0x0050, text=»* A1 - ADDRESS TO PROTOTYPE DWT«, t00=0x0106, t01=0x00a4}
0x199f0…19a14 Head {h00=0x0020, h01=0x0050, text=»* A2 - ADDRESS TO REAL DWT «, t00=0x0106, t01=0x00cc}
0x19a14…19a1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x00f0}
0x19a1e…19a38 Head {h00=0x0016, h01=0x0050, text=» LD A6,STKEND+WRK4«, t00=0x0106, t01=0x00fa}
0x19a38…19a52 Head {h00=0x0016, h01=0x0050, text=» LD A5,STKEND+WRK3«, t00=0x0106, t01=0x0114}
0x19a52…19a80 Head {h00=0x002a, h01=0x0050, text=» STR A6,A2 STORE CHANNEL PARAMETERS -1«, t00=0x0106, t01=0x012e}
0x19a80…19ab4 Head {h00=0x0030, h01=0x0050, text=» ST A5,DWTCP2,A2 STORE CHANNEL PARAMETERS -2«, t00=0x0106, t01=0x015c}
0x19ab4…19abe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x0190}
0x19abe…19ade Head {h00=0x001c, h01=0x0050, text=»* CHECK IF INPUT DEVICE«, t00=0x0107, t01=0x000a}
0x19ade…19ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x002a}
0x19ae8…19b0a Head {h00=0x001e, h01=0x0050, text=» LD A3,2,A1 GET DWT STATUS«, t00=0x0107, t01=0x0034}
0x19b0a…19b2e Head {h00=0x0020, h01=0x0050, text=» ANK A3,/0040 INPUT DEVICE? «, t00=0x0107, t01=0x0056}
0x19b2e…19b46 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT45 NO «, t00=0x0107, t01=0x007a}
0x19b46…19b50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x0092}
0x19b50…19b68 Head {h00=0x0014, h01=0x0050, text=»* INPUT DEVICE:«, t00=0x0107, t01=0x009c}
0x19b68…19b84 Head {h00=0x0018, h01=0x0050, text=»* CHECK IF KEYBOARD«, t00=0x0107, t01=0x00b4}
0x19b84…19b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x00d0}
0x19b8e…19ba8 Head {h00=0x0016, h01=0x0050, text=» LD A3,DWTADR,A1 «, t00=0x0107, t01=0x00da}
0x19ba8…19bc0 Head {h00=0x0014, h01=0x0050, text=» LD A3,DEVIND,A3«, t00=0x0107, t01=0x00f4}
0x19bc0…19bd2 Head {h00=0x000e, h01=0x0050, text=» CWK A3,6 «, t00=0x0107, t01=0x010c}
0x19bd2…19bf4 Head {h00=0x001e, h01=0x0050, text=» RF(NE) DWT60 NOT KEYBOARD«, t00=0x0107, t01=0x011e}
0x19bf4…19bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x0140}
0x19bfe…19c20 Head {h00=0x001e, h01=0x0050, text=»* INPUT DEVICE = KEYBOARD«, t00=0x0107, t01=0x014a}
0x19c20…19c34 Head {h00=0x0010, h01=0x0050, text=»* IF ECHO: «, t00=0x0107, t01=0x016c}
0x19c34…19c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x0180}
0x19c3e…19c6e Head {h00=0x002c, h01=0x0050, text=»* STORE ADDRESS OF KEYBOARD RUNTIME-DWT«, t00=0x0107, t01=0x018a}
0x19c6e…19cac Head {h00=0x003a, h01=0x0050, text=»* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE «, t00=0x0108, t01=0x002a}
0x19cac…19cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x0068}
0x19cb6…19cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x0072}
0x19cc0…19cde Head {h00=0x001a, h01=0x0050, text=» LD A5,DWTECH,A1 ECHO?«, t00=0x0108, t01=0x007c}
0x19cde…19cf6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT40 NO «, t00=0x0108, t01=0x009a}
0x19cf6…19d12 Head {h00=0x0018, h01=0x0050, text=» AD A5,STKCOM+M:REL «, t00=0x0108, t01=0x00b2}
0x19d12…19d50 Head {h00=0x003a, h01=0x0050, text=» LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE «, t00=0x0108, t01=0x00ce}
0x19d50…19d7c Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DWT392 NOT FIRST ECHO DEVICE«, t00=0x0108, t01=0x010c}
0x19d7c…19db2 Head {h00=0x0032, h01=0x0050, text=» ADK A3,2 INCLUDE LENGTH OF ECHO DEVICE TABLE «, t00=0x0108, t01=0x0138}
0x19db2…19dd6 Head {h00=0x0020, h01=0x0050, text=»DWT392 LDR A4,A3 SAVE LENGTH«, t00=0x0108, t01=0x016e}
0x19dd6…19e02 (265, 0, 400) Head {h00=0x0028, h01=0x0050, text=» AD A4,STKEND+ECHTAB NEXT FREE ENTRY«, t00=0x0109, t01=0x0004}
0x19e02…19e3e Head {h00=0x0038, h01=0x0050, text=» STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE«, t00=0x0109, t01=0x0030}
0x19e3e…19e7e Head {h00=0x003c, h01=0x0050, text=» ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE«, t00=0x0109, t01=0x006c}
0x19e7e…19e9e Head {h00=0x001c, h01=0x0050, text=» ADK A3,4 UPDATE LENGTH «, t00=0x0109, t01=0x00ac}
0x19e9e…19ecc Head {h00=0x002a, h01=0x0050, text=» ST* A3,STKEND+ECHTAB SAVE NEW LENGTH «, t00=0x0109, t01=0x00cc}
0x19ecc…19eda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0109, t01=0x00fa}
0x19eda…19eee Head {h00=0x0010, h01=0x0050, text=»DWT40 EQU * «, t00=0x0109, t01=0x0108}
0x19eee…19ef8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x011c}
0x19ef8…19f2e Head {h00=0x0032, h01=0x0050, text=»* RELOCATE POINTERS TO CIRCULAR INPUT BUFFER «, t00=0x0109, t01=0x0126}
0x19f2e…19f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x015c}
0x19f38…19f5a Head {h00=0x001e, h01=0x0050, text=» LDR A5,A2 GET DWT-ADDRESS«, t00=0x0109, t01=0x0166}
0x19f5a…19f90 Head {h00=0x0032, h01=0x0050, text=» ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER«, t00=0x0109, t01=0x0188}
0x19f90…19fb8 Head {h00=0x0024, h01=0x0050, text=» ST A5,DWTSQ-4,A2 STORE POINTER «, t00=0x010a, t01=0x002e}
0x19fb8…19fe0 Head {h00=0x0024, h01=0x0050, text=» ST A5,DWTSQ-2,A2 STORE POINTER «, t00=0x010a, t01=0x0056}
0x19fe0…19fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x007e}
0x19fea…1a008 Head {h00=0x001a, h01=0x0050, text=»* IF DOUBLE KEYBOARD:«, t00=0x010a, t01=0x0088}
0x1a008…1a050 Head {h00=0x0044, h01=0x0050, text=»* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE«, t00=0x010a, t01=0x00a6}
0x1a050…1a08a Head {h00=0x0036, h01=0x0050, text=»* IN ENTRY CORRESPONDING TO SECOND DEVICE ADDRESS«, t00=0x010a, t01=0x00ee}
0x1a08a…1a094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0128}
0x1a094…1a0ca Head {h00=0x0032, h01=0x0050, text=» LD A3,DWTDEV,A1 GET DEVICE STATUS OF TYPE DWT«, t00=0x010a, t01=0x0132}
0x1a0ca…1a0f6 Head {h00=0x0028, h01=0x0050, text=» ANK A3,/FF GET EIGTH RIGHTMOST BITS«, t00=0x010a, t01=0x0168}
0x1a0f6…1a11e (267, 0, 400) Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT60 NOT DOUBLE KEYBOARD«, t00=0x010b, t01=0x0004}
0x1a11e…1a146 Head {h00=0x0024, h01=0x0050, text=» LDR A5,A2 GET REAL DWT-ADDRESS «, t00=0x010b, t01=0x002c}
0x1a146…1a160 Head {h00=0x0016, h01=0x0050, text=» ADK A5,1 ADD ONE «, t00=0x010b, t01=0x0054}
0x1a160…1a18e Head {h00=0x002a, h01=0x0050, text=» CALL B:TTAB BUILD ONE BLOCK IN T.I.T.«, t00=0x010b, t01=0x006e}
0x1a18e…1a1a0 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x010b, t01=0x009c}
0x1a1a0…1a1c8 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A5 GET REAL DWT-ADDRESS «, t00=0x010b, t01=0x00ae}
0x1a1c8…1a1da Head {h00=0x000e, h01=0x0050, text=» RF DWT60 «, t00=0x010b, t01=0x00d6}
0x1a1da…1a1e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010b, t01=0x00e8}
0x1a1e8…1a200 Head {h00=0x0014, h01=0x0050, text=»DWT45 CALL DWT50«, t00=0x010b, t01=0x00f6}
0x1a200…1a212 Head {h00=0x000e, h01=0x0050, text=» RF DWT60 «, t00=0x010b, t01=0x010e}
0x1a212…1a226 Head {h00=0x0010, h01=0x0050, text=»DWT50 EQU * «, t00=0x010b, t01=0x0120}
0x1a226…1a230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x0134}
0x1a230…1a24a Head {h00=0x0016, h01=0x0050, text=»* OUTPUT DEVICE* «, t00=0x010b, t01=0x013e}
0x1a24a…1a27a Head {h00=0x002c, h01=0x0050, text=»* IF BIT 0 IN SIXTH WORD IN DWT IS SET «, t00=0x010b, t01=0x0158}
0x1a27a…1a2ae Head {h00=0x0030, h01=0x0050, text=»* THE DEVICE IS TO BE USED FOR ECHOING ON. «, t00=0x010b, t01=0x0188}
0x1a2ae…1a2e8 Head {h00=0x0036, h01=0x0050, text=»* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT«, t00=0x010c, t01=0x002c}
0x1a2e8…1a31c Head {h00=0x0030, h01=0x0050, text=»* IS THEN STORED IN THE ECHO DEVICE TABLE. «, t00=0x010c, t01=0x0066}
0x1a31c…1a326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x009a}
0x1a326…1a35a Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS «, t00=0x010c, t01=0x00a4}
0x1a35a…1a38a Head {h00=0x002c, h01=0x0050, text=» RF(NN) DWT59 NO ECHOING ON THIS DEVICE «, t00=0x010c, t01=0x00d8}
0x1a38a…1a3c8 Head {h00=0x003a, h01=0x0050, text=» LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE «, t00=0x010c, t01=0x0108}
0x1a3c8…1a3f2 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DWT55 ALREADY INITIALIZED!«, t00=0x010c, t01=0x0146}
0x1a3f2…1a412 Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 INCLUDE LENGTH«, t00=0x010c, t01=0x0170}
0x1a412…1a436 Head {h00=0x0020, h01=0x0050, text=»DWT55 LDR A4,A3 SAVE LENGTH «, t00=0x010c, t01=0x0190}
0x1a436…1a462 Head {h00=0x0028, h01=0x0050, text=» AD A4,STKEND+ECHTAB NEXT FREE ENTRY«, t00=0x010d, t01=0x0024}
0x1a462…1a494 Head {h00=0x002e, h01=0x0050, text=» STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT «, t00=0x010d, t01=0x0050}
0x1a494…1a4c4 Head {h00=0x002c, h01=0x0050, text=» ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT«, t00=0x010d, t01=0x0082}
0x1a4c4…1a4e4 Head {h00=0x001c, h01=0x0050, text=» ADK A3,4 UPDATE LENGTH «, t00=0x010d, t01=0x00b2}
0x1a4e4…1a512 Head {h00=0x002a, h01=0x0050, text=» ST* A3,STKEND+ECHTAB STORE NEW LENGTH«, t00=0x010d, t01=0x00d2}
0x1a512…1a528 Head {h00=0x0012, h01=0x0050, text=»DWT59 RTN A14 «, t00=0x010d, t01=0x0100}
0x1a528…1a53c Head {h00=0x0010, h01=0x0050, text=»DWT60 EQU * «, t00=0x010d, t01=0x0116}
0x1a53c…1a546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x012a}
0x1a546…1a560 Head {h00=0x0016, h01=0x0050, text=»* CHECK IF PAGING«, t00=0x010d, t01=0x0134}
0x1a560…1a56a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x014e}
0x1a56a…1a590 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x010d, t01=0x0158}
0x1a590…1a5ae Head {h00=0x001a, h01=0x0050, text=» ANK A5,1 MMU PAGING? «, t00=0x010d, t01=0x017e}
0x1a5ae…1a5c2 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DWT70«, t00=0x010e, t01=0x000c}
0x1a5c2…1a5d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x0020}
0x1a5d0…1a600 Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS«, t00=0x010e, t01=0x002e}
0x1a600…1a62c Head {h00=0x0028, h01=0x0050, text=» LDR A4,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x010e, t01=0x005e}
0x1a62c…1a65a Head {h00=0x002a, h01=0x0050, text=» SUR A4,A2 COMPUTE RELOCATION CONSTANT«, t00=0x010e, t01=0x008a}
0x1a65a…1a68a Head {h00=0x002c, h01=0x0050, text=» SUR A5,A4 RELOCATE MONITOR ECB ADDRESS «, t00=0x010e, t01=0x00b8}
0x1a68a…1a6b2 Head {h00=0x0024, h01=0x0050, text=» ANKL A5,/FFFE MAKE EVEN ADDRESS«, t00=0x010e, t01=0x00e8}
0x1a6b2…1a6d8 Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTMEC,A2 STORE IT BACK«, t00=0x010e, t01=0x0110}
0x1a6d8…1a6e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x0136}
0x1a6e2…1a722 Head {h00=0x003c, h01=0x0050, text=»* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED «, t00=0x010e, t01=0x0140}
0x1a722…1a72c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x0180}
0x1a72c…1a756 Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTADR,A2 GET ADDRESS BLOCK«, t00=0x010e, t01=0x018a}
0x1a756…1a78c Head {h00=0x0032, h01=0x0050, text=» LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER«, t00=0x010f, t01=0x0024}
0x1a78c…1a7b4 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT70 ALLOCATE NO BUFFER!«, t00=0x010f, t01=0x005a}
0x1a7b4…1a7be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x0082}
0x1a7be…1a80e Head {h00=0x004c, h01=0x0050, text=»* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL«, t00=0x010f, t01=0x008c}
0x1a80e…1a818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x00dc}
0x1a818…1a848 Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x010f, t01=0x00e6}
0x1a848…1a874 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A12 INTERNAL BUFFER ADDRESS «, t00=0x010f, t01=0x0116}
0x1a874…1a888 Head {h00=0x0010, h01=0x0050, text=» ADK A3,1 «, t00=0x010f, t01=0x0142}
0x1a888…1a8b8 Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS«, t00=0x010f, t01=0x0156}
0x1a8b8…1a8d2 Head {h00=0x0016, h01=0x0050, text=» ST A3,2,A5 SAVE «, t00=0x010f, t01=0x0186}
0x1a8d2…1a8f0 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A4 GET LENGTH «, t00=0x0110, t01=0x0010}
0x1a8f0…1a91a Head {h00=0x0026, h01=0x0050, text=» ADK A3,3 ADD BO FERMS CONSTANT+1 «, t00=0x0110, t01=0x002e}
0x1a91a…1a94a Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH «, t00=0x0110, t01=0x0058}
0x1a94a…1a958 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0110, t01=0x0088}
0x1a958…1a962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x0096}
0x1a962…1a99a Head {h00=0x0034, h01=0x0050, text=»* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN«, t00=0x0110, t01=0x00a0}
0x1a99a…1a9d4 Head {h00=0x0036, h01=0x0050, text=»* THE SIZE OF BUFFER RESERVED FOR SYSLOD PART A. «, t00=0x0110, t01=0x00d8}
0x1a9d4…1aa0c Head {h00=0x0034, h01=0x0050, text=»* IF YES,THAN STORE THE ADDRESS AND SIZE OF THE«, t00=0x0110, t01=0x0112}
0x1aa0c…1aa3c Head {h00=0x002c, h01=0x0050, text=»* INTERNAL BUFFER IN SYSBUF AND BUFSIZ.«, t00=0x0110, t01=0x014a}
0x1aa3c…1aa46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x017a}
0x1aa46…1aa64 Head {h00=0x001a, h01=0x0050, text=» CW A3,STKCOM+BUFSIZ «, t00=0x0110, t01=0x0184}
0x1aa64…1aa7a Head {h00=0x0012, h01=0x0050, text=» RF(NG) DWT65 «, t00=0x0111, t01=0x0012}
0x1aa7a…1aa96 Head {h00=0x0018, h01=0x0050, text=» ST A3,STKCOM+BUFSIZ«, t00=0x0111, t01=0x0028}
0x1aa96…1aab4 Head {h00=0x001a, h01=0x0050, text=» ST A12,STKCOM+SYSBUF «, t00=0x0111, t01=0x0044}
0x1aab4…1aac8 Head {h00=0x0010, h01=0x0050, text=»DWT65 EQU * «, t00=0x0111, t01=0x0062}
0x1aac8…1aaec Head {h00=0x0020, h01=0x0050, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x0111, t01=0x0076}
0x1aaec…1aafa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0111, t01=0x009a}
0x1aafa…1ab0e Head {h00=0x0010, h01=0x0050, text=»DWT70 EQU * «, t00=0x0111, t01=0x00a8}
0x1ab0e…1ab18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x00bc}
0x1ab18…1ab4a Head {h00=0x002e, h01=0x0050, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x0111, t01=0x00c6}
0x1ab4a…1ab54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x00f8}
0x1ab54…1ab7a Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x0111, t01=0x0102}
0x1ab7a…1aba0 Head {h00=0x0022, h01=0x0050, text=» LDR* A5,A7 GET INDEX/FILECODE«, t00=0x0111, t01=0x0128}
0x1aba0…1abce Head {h00=0x002a, h01=0x0050, text=» STR A5,A10 STORE IN TASK CONF. TABLE «, t00=0x0111, t01=0x014e}
0x1abce…1abf4 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x0111, t01=0x017c}
0x1abf4…1ac1a Head {h00=0x0022, h01=0x0050, text=» STR A2,A10 STORE DWT-ADDRESS «, t00=0x0112, t01=0x0012}
0x1ac1a…1ac24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x0038}
0x1ac24…1ac54 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF MOORE DEVICES IN THIS CLASS «, t00=0x0112, t01=0x0042}
0x1ac54…1ac5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x0072}
0x1ac5e…1ac70 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,4«, t00=0x0112, t01=0x007c}
0x1ac70…1ac84 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DWTEX«, t00=0x0112, t01=0x008e}
0x1ac84…1aca2 Head {h00=0x001a, h01=0x0050, text=» ADK A7,4 NEXT DEVICE «, t00=0x0112, t01=0x00a2}
0x1aca2…1acb8 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,DWT05«, t00=0x0112, t01=0x00c0}
0x1acb8…1acd4 Head {h00=0x0018, h01=0x0050, text=» AD A1,STKCOM+M:REL «, t00=0x0112, t01=0x00d6}
0x1acd4…1ace4 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0112, t01=0x00f2}
0x1ace4…1acf8 Head {h00=0x0010, h01=0x0050, text=»DWTEX EQU * «, t00=0x0112, t01=0x0102}
0x1acf8…1ad08 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0112, t01=0x0116}
0x1ad08…1ad16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0112, t01=0x0126}
0x1ad16…1ad20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x0134}
0x1ad20…1ad5a Head {h00=0x0036, h01=0x0050, text=»* SCAN ECHO DEVICE TABLE - FOR EVERY COINCIDENCE «, t00=0x0112, t01=0x013e}
0x1ad5a…1ad92 Head {h00=0x0034, h01=0x0050, text=»* BETWEEN THE FIRST POINTER IN ONE POINTER-SET «, t00=0x0112, t01=0x0178}
0x1ad92…1adca Head {h00=0x0034, h01=0x0050, text=»* AND SECOND POINTER IN THE OTHER POINTER-SET: «, t00=0x0113, t01=0x0020}
0x1adca…1adfe Head {h00=0x0030, h01=0x0050, text=»* STORE SECOND POINTER OF FIRST POINTER-SET«, t00=0x0113, t01=0x0058}
0x1adfe…1ae34 Head {h00=0x0032, h01=0x0050, text=»* IN RUNTIME-DWT POINTED AT BY FIRST POINTER «, t00=0x0113, t01=0x008c}
0x1ae34…1ae6a Head {h00=0x0032, h01=0x0050, text=»* OF SECOND POINTER-SET AND CLEAR POINTERS OF«, t00=0x0113, t01=0x00c2}
0x1ae6a…1ae88 Head {h00=0x001a, h01=0x0050, text=»* SECOND POINTER-SET.«, t00=0x0113, t01=0x00f8}
0x1ae88…1aec4 Head {h00=0x0038, h01=0x0050, text=»* WHEN ALL POINTER-SET HAS BEEN SCANNED,THE LENGTH «, t00=0x0113, t01=0x0116}
0x1aec4…1aef0 Head {h00=0x0028, h01=0x0050, text=»* OF ECHO DEVICE TABLE IS CLEARED. «, t00=0x0113, t01=0x0152}
0x1aef0…1aefa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x017e}
0x1aefa…1af3c Head {h00=0x003e, h01=0x0050, text=»ECHO LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE «, t00=0x0113, t01=0x0188}
0x1af3c…1af62 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DWT160 NO ECHO DEVICES!«, t00=0x0114, t01=0x003a}
0x1af62…1afa0 Head {h00=0x003a, h01=0x0050, text=» AD A3,STKEND+ECHTAB COMPUTE END OF ECHO DEVICE TABLE «, t00=0x0114, t01=0x0060}
0x1afa0…1afdc Head {h00=0x0038, h01=0x0050, text=» LD A1,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE «, t00=0x0114, t01=0x009e}
0x1afdc…1affc Head {h00=0x001c, h01=0x0050, text=» ADK A1,2 BYPASS LENGTH «, t00=0x0114, t01=0x00da}
0x1affc…1b03c Head {h00=0x003c, h01=0x0050, text=»DWT90 LD A2,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE«, t00=0x0114, t01=0x00fa}
0x1b03c…1b05c Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 BYPASS LENGTH «, t00=0x0114, t01=0x013a}
0x1b05c…1b096 Head {h00=0x0036, h01=0x0050, text=»DWT100 LD A4,2,A1 GET SECOND POINTER IN FIRST SET «, t00=0x0114, t01=0x015a}
0x1b096…1b0d8 (277, 0, 400) Head {h00=0x003e, h01=0x0050, text=»DWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET«, t00=0x0115, t01=0x0004}
0x1b0d8…1b0fa Head {h00=0x001e, h01=0x0050, text=» RF(E) DWT130 COINCIDENCE!«, t00=0x0115, t01=0x0046}
0x1b0fa…1b11c Head {h00=0x001e, h01=0x0050, text=» ADK A2,4 NEXT POINTER-SET«, t00=0x0115, t01=0x0068}
0x1b11c…1b148 Head {h00=0x0028, h01=0x0050, text=» CWR A2,A3 END OF ECHO DEVICE TABLE «, t00=0x0115, t01=0x008a}
0x1b148…1b170 Head {h00=0x0024, h01=0x0050, text=» RB(NE) DWT110 NO:CHECK NEXT SET«, t00=0x0115, t01=0x00b6}
0x1b170…1b182 Head {h00=0x000e, h01=0x0050, text=» RF DWT140«, t00=0x0115, t01=0x00de}
0x1b182…1b1c0 Head {h00=0x003a, h01=0x0050, text=»DWT130 LD A4,2,A2 ADDRESS TO OUTPUT DEVICE RUNTIME-DWT«, t00=0x0115, t01=0x00f0}
0x1b1c0…1b1f8 Head {h00=0x0034, h01=0x0050, text=» LDR* A2,A1 ADDRESS TO INPUT DEVICE RUNTIME-DWT «, t00=0x0115, t01=0x012e}
0x1b1f8…1b234 Head {h00=0x0038, h01=0x0050, text=» ST A4,DWTECH,A2 STORE DEVICE-ADDRESS TO ECHO-DEVICE«, t00=0x0115, t01=0x0166}
0x1b234…1b258 Head {h00=0x0020, h01=0x0050, text=» CMR A1 CLEAR FIRST POINTER «, t00=0x0116, t01=0x0012}
0x1b258…1b27e Head {h00=0x0022, h01=0x0050, text=» CM 2,A1 CLEAR SECOND POINTER «, t00=0x0116, t01=0x0036}
0x1b27e…1b2a6 Head {h00=0x0024, h01=0x0050, text=»DWT140 ADK A1,4 NEXT POINTER-SET«, t00=0x0116, t01=0x005c}
0x1b2a6…1b2d2 Head {h00=0x0028, h01=0x0050, text=» CWR A1,A3 END OF ECHO DEVICE TABLE «, t00=0x0116, t01=0x0084}
0x1b2d2…1b2ec Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT90 NO! «, t00=0x0116, t01=0x00b0}
0x1b2ec…1b31a Head {h00=0x002a, h01=0x0050, text=»DWT150 CM* STKEND+ECHTAB CLEAR LENGTH «, t00=0x0116, t01=0x00ca}
0x1b31a…1b338 Head {h00=0x001a, h01=0x0050, text=»DWT160 RTN A14 RETURN «, t00=0x0116, t01=0x00f8}
0x1b338…1b346 Head {h00=0x000a, h01=0x0050, text=» =6«, t00=0x0116, t01=0x0116}
0x1b346…1b35c Head {h00=0x0012, h01=0x0050, text=» IFF TEDVCL=0 «, t00=0x0116, t01=0x0124}
0x1b35c…1b36a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0116, t01=0x013a}
0x1b36a…1b3a0 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0116, t01=0x0148}
0x1b3a0…1b3d6 Head {h00=0x0032, h01=0x0050, text=»* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE *«, t00=0x0116, t01=0x017e}
0x1b3d6…1b40c Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0117, t01=0x0024}
0x1b40c…1b416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x005a}
0x1b416…1b438 Head {h00=0x001e, h01=0x0050, text=»* REFERENCED IN: DWTGEN «, t00=0x0117, t01=0x0064}
0x1b438…1b442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0086}
0x1b442…1b470 Head {h00=0x002a, h01=0x0050, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x0117, t01=0x0090}
0x1b470…1b47a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x00be}
0x1b47a…1b4aa Head {h00=0x002c, h01=0x0050, text=»* EXIT: REAL TIME INTERRUPT TABLES FOR«, t00=0x0117, t01=0x00c8}
0x1b4aa…1b4e0 Head {h00=0x0032, h01=0x0050, text=»* LT,RT,PLC,VCCU1/4,SALCUZ AND ASCU4Z «, t00=0x0117, t01=0x00f8}
0x1b4e0…1b4ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x012e}
0x1b4ea…1b500 Head {h00=0x0012, h01=0x0050, text=»* SUBROUTINES«, t00=0x0117, t01=0x0138}
0x1b500…1b50a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x014e}
0x1b50a…1b518 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0117, t01=0x0158}
0x1b518…1b54e Head {h00=0x0032, h01=0x0050, text=»B:ITAB EQU * BUILD REAL-TIME INTERRUPT TABLES «, t00=0x0117, t01=0x0166}
0x1b54e…1b582 Head {h00=0x0030, h01=0x0050, text=» LD A1,STKEND+FWTFLG T.I.T. IN FREE AREA? =7«, t00=0x0118, t01=0x000c}
0x1b582…1b5a0 Head {h00=0x001a, h01=0x0050, text=» RF(P) B:ITLT YES? =7 «, t00=0x0118, t01=0x0040}
0x1b5a0…1b5d8 Head {h00=0x0034, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA =7 «, t00=0x0118, t01=0x005e}
0x1b5d8…1b5ee Head {h00=0x0012, h01=0x0050, text=» LDR A1,P =7 «, t00=0x0118, t01=0x0096}
0x1b5ee…1b606 Head {h00=0x0014, h01=0x0050, text=»BIT05 EQU * =7 «, t00=0x0118, t01=0x00ac}
0x1b606…1b634 Head {h00=0x002a, h01=0x0050, text=» SUK A1,2 DECREMENT MEMORY ADDRESS =7 «, t00=0x0118, t01=0x00c4}
0x1b634…1b658 Head {h00=0x0020, h01=0x0050, text=» CMR A1 CLEAR MEMORY AREA =7«, t00=0x0118, t01=0x00f2}
0x1b658…1b684 Head {h00=0x0028, h01=0x0050, text=» CW A1,SCTSFA ALL WORDS CLEARED? =7 «, t00=0x0118, t01=0x0116}
0x1b684…1b6a0 Head {h00=0x0018, h01=0x0050, text=» RB(NE) BIT05 NO! =7«, t00=0x0118, t01=0x0142}
0x1b6a0…1b6aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0118, t01=0x015e}
0x1b6aa…1b6dc Head {h00=0x002e, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR LT «, t00=0x0118, t01=0x0168}
0x1b6dc…1b6e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x000a}
0x1b6e6…1b6f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0119, t01=0x0014}
0x1b6f2…1b706 Head {h00=0x0010, h01=0x0050, text=»B:ITLT EQU *«, t00=0x0119, t01=0x0020}
0x1b706…1b71a Head {h00=0x0010, h01=0x0050, text=» IFF SUML=0 «, t00=0x0119, t01=0x0034}
0x1b71a…1b742 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,0 CONNECTION TYPE = LT «, t00=0x0119, t01=0x0048}
0x1b742…1b760 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,7 1:ST BOARD «, t00=0x0119, t01=0x0070}
0x1b760…1b792 Head {h00=0x002e, h01=0x0050, text=» LDK A1,16 MAX.LENGTH OF BOARD CONF. TABLE«, t00=0x0119, t01=0x008e}
0x1b792…1b7b2 Head {h00=0x001c, h01=0x0050, text=» ST A1,STKEND+WRK4 SAVE «, t00=0x0119, t01=0x00c0}
0x1b7b2…1b7d0 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0119, t01=0x00e0}
0x1b7d0…1b7ee Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0119, t01=0x00fe}
0x1b7ee…1b80c Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0119, t01=0x011c}
0x1b80c…1b820 Head {h00=0x0010, h01=0x0050, text=»BIT10 EQU * «, t00=0x0119, t01=0x013a}
0x1b820…1b834 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0119, t01=0x014e}
0x1b834…1b848 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0119, t01=0x0162}
0x1b848…1b876 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0119, t01=0x0176}
0x1b876…1b89c Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x011a, t01=0x0014}
0x1b89c…1b8b4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BIT15 NO!«, t00=0x011a, t01=0x003a}
0x1b8b4…1b8d2 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x011a, t01=0x0052}
0x1b8d2…1b910 Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x011a, t01=0x0070}
0x1b910…1b92e Head {h00=0x001a, h01=0x0050, text=» ST A2,INTLT1,A1 SAVE «, t00=0x011a, t01=0x00ae}
0x1b92e…1b942 Head {h00=0x0010, h01=0x0050, text=»BIT15 EQU * «, t00=0x011a, t01=0x00cc}
0x1b942…1b954 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x011a, t01=0x00e0}
0x1b954…1b97e Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x011a, t01=0x00f2}
0x1b97e…1b990 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x011a, t01=0x011c}
0x1b990…1b9b0 Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+WRK1 STORE«, t00=0x011a, t01=0x012e}
0x1b9b0…1b9ce Head {h00=0x001a, h01=0x0050, text=» ADKL A9,7 NEXT BOARD «, t00=0x011a, t01=0x014e}
0x1b9ce…1b9ec Head {h00=0x001a, h01=0x0050, text=» CWK A9,31 LAST BOARD?«, t00=0x011a, t01=0x016c}
0x1b9ec…1ba06 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITRT YES!«, t00=0x011a, t01=0x018a}
0x1ba06…1ba18 Head {h00=0x000e, h01=0x0050, text=» RB BIT10 «, t00=0x011b, t01=0x0014}
0x1ba18…1ba24 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011b, t01=0x0026}
0x1ba24…1ba32 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011b, t01=0x0032}
0x1ba32…1ba3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x0040}
0x1ba3c…1ba6e Head {h00=0x002e, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR RT «, t00=0x011b, t01=0x004a}
0x1ba6e…1ba78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x007c}
0x1ba78…1ba8c Head {h00=0x0010, h01=0x0050, text=»B:ITRT EQU *«, t00=0x011b, t01=0x0086}
0x1ba8c…1baa0 Head {h00=0x0010, h01=0x0050, text=» IFF SUMR=0 «, t00=0x011b, t01=0x009a}
0x1baa0…1bac8 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,1 CONNECTION TYPE = RT «, t00=0x011b, t01=0x00ae}
0x1bac8…1bae6 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,3 1:ST BOARD «, t00=0x011b, t01=0x00d6}
0x1bae6…1bb18 Head {h00=0x002e, h01=0x0050, text=» LDK A1,8 MAX.LENGTH OF BOARD CONF. TABLE «, t00=0x011b, t01=0x00f4}
0x1bb18…1bb38 Head {h00=0x001c, h01=0x0050, text=» ST A1,STKEND+WRK4 SAVE «, t00=0x011b, t01=0x0126}
0x1bb38…1bb56 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x011b, t01=0x0146}
0x1bb56…1bb74 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x011b, t01=0x0164}
0x1bb74…1bb92 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x011b, t01=0x0182}
0x1bb92…1bba6 Head {h00=0x0010, h01=0x0050, text=»BRT10 EQU * «, t00=0x011c, t01=0x0010}
0x1bba6…1bbba Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x011c, t01=0x0024}
0x1bbba…1bbce Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x011c, t01=0x0038}
0x1bbce…1bbfc Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x011c, t01=0x004c}
0x1bbfc…1bc22 Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x011c, t01=0x007a}
0x1bc22…1bc3a Head {h00=0x0014, h01=0x0050, text=» RF(Z) BRT15 NO!«, t00=0x011c, t01=0x00a0}
0x1bc3a…1bc58 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x011c, t01=0x00b8}
0x1bc58…1bc96 Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x011c, t01=0x00d6}
0x1bc96…1bcb4 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTRT1,A1 SAVE «, t00=0x011c, t01=0x0114}
0x1bcb4…1bcc8 Head {h00=0x0010, h01=0x0050, text=»BRT15 EQU * «, t00=0x011c, t01=0x0132}
0x1bcc8…1bcda Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x011c, t01=0x0146}
0x1bcda…1bd04 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x011c, t01=0x0158}
0x1bd04…1bd16 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x011c, t01=0x0182}
0x1bd16…1bd36 (285, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+WRK1 STORE«, t00=0x011d, t01=0x0004}
0x1bd36…1bd54 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,3 NEXT BOARD «, t00=0x011d, t01=0x0024}
0x1bd54…1bd72 Head {h00=0x001a, h01=0x0050, text=» CWK A9,15 LAST BOARD?«, t00=0x011d, t01=0x0042}
0x1bd72…1bd8c Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITPC YES!«, t00=0x011d, t01=0x0060}
0x1bd8c…1bd9e Head {h00=0x000e, h01=0x0050, text=» RB BRT10 «, t00=0x011d, t01=0x007a}
0x1bd9e…1bdaa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011d, t01=0x008c}
0x1bdaa…1bdb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011d, t01=0x0098}
0x1bdb8…1bdc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x00a6}
0x1bdc2…1bdfa Head {h00=0x0034, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR PLC-LOCAL«, t00=0x011d, t01=0x00b0}
0x1bdfa…1be04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x00e8}
0x1be04…1be18 Head {h00=0x0010, h01=0x0050, text=»B:ITPC EQU *«, t00=0x011d, t01=0x00f2}
0x1be18…1be2c Head {h00=0x0010, h01=0x0050, text=» IFF PLCL=0 «, t00=0x011d, t01=0x0106}
0x1be2c…1be54 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,5 CONNECTION TYPE = PLC«, t00=0x011d, t01=0x011a}
0x1be54…1be72 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,32 1:ST BOARD«, t00=0x011d, t01=0x0142}
0x1be72…1bea6 Head {h00=0x0030, h01=0x0050, text=» LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2«, t00=0x011d, t01=0x0160}
0x1bea6…1bec0 (286, 0, 400) Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x011e, t01=0x0004}
0x1bec0…1bed6 Head {h00=0x0012, h01=0x0050, text=» LDK A1,1 =2 «, t00=0x011e, t01=0x001e}
0x1bed6…1bef4 Head {h00=0x001a, h01=0x0050, text=» ST A1,STKEND+WRK1 =2«, t00=0x011e, t01=0x0034}
0x1bef4…1bf12 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x011e, t01=0x0052}
0x1bf12…1bf30 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x011e, t01=0x0070}
0x1bf30…1bf44 Head {h00=0x0010, h01=0x0050, text=»BPC10 EQU * «, t00=0x011e, t01=0x008e}
0x1bf44…1bf58 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x011e, t01=0x00a2}
0x1bf58…1bf6c Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x011e, t01=0x00b6}
0x1bf6c…1bf9a Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x011e, t01=0x00ca}
0x1bf9a…1bfc0 Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x011e, t01=0x00f8}
0x1bfc0…1bfd8 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BPC15 NO!«, t00=0x011e, t01=0x011e}
0x1bfd8…1bff0 Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x011e, t01=0x0136}
0x1bff0…1c036 Head {h00=0x0042, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE «, t00=0x011e, t01=0x014e}
0x1c036…1c054 (287, 0, 400) Head {h00=0x001a, h01=0x0050, text=» ST A2,INTPL1,A1 SAVE «, t00=0x011f, t01=0x0004}
0x1c054…1c068 Head {h00=0x0010, h01=0x0050, text=»BPC15 EQU * «, t00=0x011f, t01=0x0022}
0x1c068…1c07a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x011f, t01=0x0036}
0x1c07a…1c0a4 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x011f, t01=0x0048}
0x1c0a4…1c0b6 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x011f, t01=0x0072}
0x1c0b6…1c0d0 Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x011f, t01=0x0084}
0x1c0d0…1c0ee Head {h00=0x001a, h01=0x0050, text=» ADKL A9,31 NEXT BOARD«, t00=0x011f, t01=0x009e}
0x1c0ee…1c10e Head {h00=0x001c, h01=0x0050, text=» CWK A9,128 LAST BOARD? «, t00=0x011f, t01=0x00bc}
0x1c10e…1c12c Head {h00=0x001a, h01=0x0050, text=» RF(G) B:ITPR YES! =8 «, t00=0x011f, t01=0x00dc}
0x1c12c…1c13e Head {h00=0x000e, h01=0x0050, text=» RB BPC10 «, t00=0x011f, t01=0x00fa}
0x1c13e…1c14a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011f, t01=0x010c}
0x1c14a…1c158 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011f, t01=0x0118}
0x1c158…1c162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x0126}
0x1c162…1c19e Head {h00=0x0038, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR PLC-REMOTE =8«, t00=0x011f, t01=0x0130}
0x1c19e…1c1a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x016c}
0x1c1a8…1c1bc Head {h00=0x0010, h01=0x0050, text=»B:ITPR EQU *«, t00=0x011f, t01=0x0176}
0x1c1bc…1c1d0 Head {h00=0x0010, h01=0x0050, text=» IFF PLCR=0 «, t00=0x011f, t01=0x018a}
0x1c1d0…1c1fe Head {h00=0x002a, h01=0x0050, text=» LDKL A8,6 CONNECTION TYPE=PLC-REMOTE «, t00=0x0120, t01=0x000e}
0x1c1fe…1c21c Head {h00=0x001a, h01=0x0050, text=» LDKL A9,32 1:ST BOARD«, t00=0x0120, t01=0x003c}
0x1c21c…1c250 Head {h00=0x0030, h01=0x0050, text=» LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2«, t00=0x0120, t01=0x005a}
0x1c250…1c26a Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x0120, t01=0x008e}
0x1c26a…1c280 Head {h00=0x0012, h01=0x0050, text=» LDK A1,1 =2 «, t00=0x0120, t01=0x00a8}
0x1c280…1c29e Head {h00=0x001a, h01=0x0050, text=» ST A1,STKEND+WRK1 =2«, t00=0x0120, t01=0x00be}
0x1c29e…1c2bc Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0120, t01=0x00dc}
0x1c2bc…1c2da Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0120, t01=0x00fa}
0x1c2da…1c2ee Head {h00=0x0010, h01=0x0050, text=»BPR10 EQU * «, t00=0x0120, t01=0x0118}
0x1c2ee…1c302 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0120, t01=0x012c}
0x1c302…1c316 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0120, t01=0x0140}
0x1c316…1c344 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0120, t01=0x0154}
0x1c344…1c36a Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x0120, t01=0x0182}
0x1c36a…1c382 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BPR15 NO!«, t00=0x0121, t01=0x0018}
0x1c382…1c39a Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x0121, t01=0x0030}
0x1c39a…1c3e0 Head {h00=0x0042, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE «, t00=0x0121, t01=0x0048}
0x1c3e0…1c3fe Head {h00=0x001a, h01=0x0050, text=» ST A2,INTPR1,A1 SAVE «, t00=0x0121, t01=0x008e}
0x1c3fe…1c412 Head {h00=0x0010, h01=0x0050, text=»BPR15 EQU * «, t00=0x0121, t01=0x00ac}
0x1c412…1c424 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0121, t01=0x00c0}
0x1c424…1c44e Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0121, t01=0x00d2}
0x1c44e…1c460 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0121, t01=0x00fc}
0x1c460…1c47a Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x0121, t01=0x010e}
0x1c47a…1c498 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,31 NEXT BOARD«, t00=0x0121, t01=0x0128}
0x1c498…1c4b8 Head {h00=0x001c, h01=0x0050, text=» CWK A9,128 LAST BOARD? «, t00=0x0121, t01=0x0146}
0x1c4b8…1c4d2 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITVU YES!«, t00=0x0121, t01=0x0166}
0x1c4d2…1c4e4 Head {h00=0x000e, h01=0x0050, text=» RB BPR10 «, t00=0x0121, t01=0x0180}
0x1c4e4…1c4f0 (290, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0122, t01=0x0004}
0x1c4f0…1c4fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0122, t01=0x0010}
0x1c4fe…1c506 Head {h00=0x0004, h01=0x0050, t00=0x0122, t01=0x001e}
0x1c506…1c510 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x0026}
0x1c510…1c546 Head {h00=0x0032, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR VCCU1/4«, t00=0x0122, t01=0x0030}
0x1c546…1c550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x0066}
0x1c550…1c564 Head {h00=0x0010, h01=0x0050, text=»B:ITVU EQU *«, t00=0x0122, t01=0x0070}
0x1c564…1c578 Head {h00=0x0010, h01=0x0050, text=» IFF VIDEO=0«, t00=0x0122, t01=0x0084}
0x1c578…1c5a4 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,7 CONNECTION TYPE = VCCU1/4«, t00=0x0122, t01=0x0098}
0x1c5a4…1c5c2 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,3 1:ST BOARD «, t00=0x0122, t01=0x00c4}
0x1c5c2…1c5f4 Head {h00=0x002e, h01=0x0050, text=» LDK A1,8 MAX.LENGTH OF BOARD CONF. TABLE «, t00=0x0122, t01=0x00e2}
0x1c5f4…1c614 Head {h00=0x001c, h01=0x0050, text=» ST A1,STKEND+WRK4 SAVE «, t00=0x0122, t01=0x0114}
0x1c614…1c632 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0122, t01=0x0134}
0x1c632…1c650 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0122, t01=0x0152}
0x1c650…1c66e Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0122, t01=0x0170}
0x1c66e…1c682 Head {h00=0x0010, h01=0x0050, text=»BVU10 EQU * «, t00=0x0122, t01=0x018e}
0x1c682…1c696 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0123, t01=0x0012}
0x1c696…1c6aa Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0123, t01=0x0026}
0x1c6aa…1c6d8 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0123, t01=0x003a}
0x1c6d8…1c6fe Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x0123, t01=0x0068}
0x1c6fe…1c716 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BVU15 NO!«, t00=0x0123, t01=0x008e}
0x1c716…1c734 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0123, t01=0x00a6}
0x1c734…1c772 Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x0123, t01=0x00c4}
0x1c772…1c790 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTVU1,A1 SAVE «, t00=0x0123, t01=0x0102}
0x1c790…1c7a4 Head {h00=0x0010, h01=0x0050, text=»BVU15 EQU * «, t00=0x0123, t01=0x0120}
0x1c7a4…1c7b6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0123, t01=0x0134}
0x1c7b6…1c7e0 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0123, t01=0x0146}
0x1c7e0…1c7f2 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0123, t01=0x0170}
0x1c7f2…1c812 Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+WRK1 STORE«, t00=0x0123, t01=0x0182}
0x1c812…1c830 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,3 NEXT BOARD «, t00=0x0124, t01=0x0012}
0x1c830…1c84e Head {h00=0x001a, h01=0x0050, text=» CWK A9,31 LAST BOARD?«, t00=0x0124, t01=0x0030}
0x1c84e…1c868 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITSZ YES!«, t00=0x0124, t01=0x004e}
0x1c868…1c87a Head {h00=0x000e, h01=0x0050, text=» RB BVU10 «, t00=0x0124, t01=0x0068}
0x1c87a…1c886 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0124, t01=0x007a}
0x1c886…1c88e Head {h00=0x0004, h01=0x0050, t00=0x0124, t01=0x0086}
0x1c88e…1c89c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0124, t01=0x008e}
0x1c89c…1c8a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x009c}
0x1c8a6…1c8dc Head {h00=0x0032, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR SALCUZ «, t00=0x0124, t01=0x00a6}
0x1c8dc…1c8e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x00dc}
0x1c8e6…1c8fa Head {h00=0x0010, h01=0x0050, text=»B:ITSZ EQU *«, t00=0x0124, t01=0x00e6}
0x1c8fa…1c910 Head {h00=0x0012, h01=0x0050, text=» IFF SALCUZ=0 «, t00=0x0124, t01=0x00fa}
0x1c910…1c93c Head {h00=0x0028, h01=0x0050, text=» LDKL A8,2 CONNECTION TYPE = SALCUZ «, t00=0x0124, t01=0x0110}
0x1c93c…1c95a Head {h00=0x001a, h01=0x0050, text=» LDKL A9,0 1:ST BOARD «, t00=0x0124, t01=0x013c}
0x1c95a…1c98c Head {h00=0x002e, h01=0x0050, text=» LDK A1,2 MAX. LENGTH OF BOARD CONF.TABLE «, t00=0x0124, t01=0x015a}
0x1c98c…1c9a6 Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x0124, t01=0x018c}
0x1c9a6…1c9c4 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0125, t01=0x0016}
0x1c9c4…1c9e2 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0125, t01=0x0034}
0x1c9e2…1ca00 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0125, t01=0x0052}
0x1ca00…1ca14 Head {h00=0x0010, h01=0x0050, text=»BSZ10 EQU * «, t00=0x0125, t01=0x0070}
0x1ca14…1ca28 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0125, t01=0x0084}
0x1ca28…1ca3c Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0125, t01=0x0098}
0x1ca3c…1ca6a Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0125, t01=0x00ac}
0x1ca6a…1ca90 Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x0125, t01=0x00da}
0x1ca90…1caa4 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BSZ15«, t00=0x0125, t01=0x0100}
0x1caa4…1cabc Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x0125, t01=0x0114}
0x1cabc…1cafa Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x0125, t01=0x012c}
0x1cafa…1cb18 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTSL1,A1 SAVE «, t00=0x0125, t01=0x016a}
0x1cb18…1cb2c Head {h00=0x0010, h01=0x0050, text=»BSZ15 EQU * «, t00=0x0125, t01=0x0188}
0x1cb2c…1cb3e Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0126, t01=0x000c}
0x1cb3e…1cb68 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0126, t01=0x001e}
0x1cb68…1cb7a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0126, t01=0x0048}
0x1cb7a…1cb94 Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x0126, t01=0x005a}
0x1cb94…1cbb2 Head {h00=0x001a, h01=0x0050, text=» CWK A9,7 LAST BOARD? «, t00=0x0126, t01=0x0074}
0x1cbb2…1cbcc Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITAZ YES!«, t00=0x0126, t01=0x0092}
0x1cbcc…1cbde Head {h00=0x000e, h01=0x0050, text=» RB BSZ10 «, t00=0x0126, t01=0x00ac}
0x1cbde…1cbea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0126, t01=0x00be}
0x1cbea…1cbf8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0126, t01=0x00ca}
0x1cbf8…1cc02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x00d8}
0x1cc02…1cc38 Head {h00=0x0032, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR ASCU4Z «, t00=0x0126, t01=0x00e2}
0x1cc38…1cc42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x0118}
0x1cc42…1cc56 Head {h00=0x0010, h01=0x0050, text=»B:ITAZ EQU *«, t00=0x0126, t01=0x0122}
0x1cc56…1cc6c Head {h00=0x0012, h01=0x0050, text=» IFF ASCU4Z=0 «, t00=0x0126, t01=0x0136}
0x1cc6c…1cc98 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,3 CONNECTION TYPE = ASCU4Z «, t00=0x0126, t01=0x014c}
0x1cc98…1ccb6 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,3 1:ST BOARD «, t00=0x0126, t01=0x0178}
0x1ccb6…1cce8 Head {h00=0x002e, h01=0x0050, text=» LDK A1,8 MAX. LENGTH OF BOARD CONF.TABLE «, t00=0x0127, t01=0x0008}
0x1cce8…1cd02 Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x0127, t01=0x003a}
0x1cd02…1cd20 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0127, t01=0x0054}
0x1cd20…1cd3e Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0127, t01=0x0072}
0x1cd3e…1cd5c Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0127, t01=0x0090}
0x1cd5c…1cd70 Head {h00=0x0010, h01=0x0050, text=»BAZ10 EQU * «, t00=0x0127, t01=0x00ae}
0x1cd70…1cd84 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0127, t01=0x00c2}
0x1cd84…1cd98 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0127, t01=0x00d6}
0x1cd98…1cdc6 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0127, t01=0x00ea}
0x1cdc6…1cdea Head {h00=0x0020, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES«, t00=0x0127, t01=0x0118}
0x1cdea…1cdfe Head {h00=0x0010, h01=0x0050, text=» RF(Z) BAZ15«, t00=0x0127, t01=0x013c}
0x1cdfe…1ce16 Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x0127, t01=0x0150}
0x1ce16…1ce5c Head {h00=0x0042, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE «, t00=0x0127, t01=0x0168}
0x1ce5c…1ce7a Head {h00=0x001a, h01=0x0050, text=» ST A2,INTAS1,A1 SAVE «, t00=0x0128, t01=0x001e}
0x1ce7a…1ce8e Head {h00=0x0010, h01=0x0050, text=»BAZ15 EQU * «, t00=0x0128, t01=0x003c}
0x1ce8e…1cea0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0128, t01=0x0050}
0x1cea0…1ceca Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0128, t01=0x0062}
0x1ceca…1cedc Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0128, t01=0x008c}
0x1cedc…1cef6 Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x0128, t01=0x009e}
0x1cef6…1cf14 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,3 NEXT BOARD «, t00=0x0128, t01=0x00b8}
0x1cf14…1cf32 Head {h00=0x001a, h01=0x0050, text=» CWK A9,31 LAST BOARD?«, t00=0x0128, t01=0x00d6}
0x1cf32…1cf4c Head {h00=0x0016, h01=0x0050, text=» RF(G) BAZ20 YES! «, t00=0x0128, t01=0x00f4}
0x1cf4c…1cf5e Head {h00=0x000e, h01=0x0050, text=» RB BAZ10 «, t00=0x0128, t01=0x010e}
0x1cf5e…1cf72 Head {h00=0x0010, h01=0x0050, text=»BAZ20 EQU * «, t00=0x0128, t01=0x0120}
0x1cf72…1cf7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0128, t01=0x0134}
0x1cf7e…1cf8e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0128, t01=0x0140}
0x1cf8e…1cf9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0128, t01=0x0150}
0x1cf9c…1cfd2 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0128, t01=0x015e}
0x1cfd2…1d008 (297, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* I:CHSZ - INIT CHANNEL PARAMETERS SALCUZ * «, t00=0x0129, t01=0x0004}
0x1d008…1d03e Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0129, t01=0x003a}
0x1d03e…1d048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x0070}
0x1d048…1d068 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0129, t01=0x007a}
0x1d068…1d072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x009a}
0x1d072…1d0a2 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0129, t01=0x00a4}
0x1d0a2…1d0ce Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0129, t01=0x00d4}
0x1d0ce…1d0fc Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0129, t01=0x0100}
0x1d0fc…1d106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x012e}
0x1d106…1d134 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0129, t01=0x0138}
0x1d134…1d162 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0129, t01=0x0166}
0x1d162…1d194 (298, 0, 400) Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x012a, t01=0x0004}
0x1d194…1d1c2 Head {h00=0x002a, h01=0x0050, text=»* BITS 4 -11 LINE NUMBER«, t00=0x012a, t01=0x0036}
0x1d1c2…1d1dc Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x012a, t01=0x0064}
0x1d1dc…1d1e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x007e}
0x1d1e6…1d1fe Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x012a, t01=0x0088}
0x1d1fe…1d208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x00a0}
0x1d208…1d21c Head {h00=0x0010, h01=0x0050, text=»I:CHSZ EQU *«, t00=0x012a, t01=0x00aa}
0x1d21c…1d232 Head {h00=0x0012, h01=0x0050, text=» IFF SALCUZ=0 «, t00=0x012a, t01=0x00be}
0x1d232…1d25a Head {h00=0x0024, h01=0x0050, text=» CWK A6,8 CONNECTION NUMBER <=8?«, t00=0x012a, t01=0x00d4}
0x1d25a…1d274 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x012a, t01=0x00fc}
0x1d274…1d29c Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x012a, t01=0x0116}
0x1d29c…1d2b6 Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x012a, t01=0x013e}
0x1d2b6…1d2e6 Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x012a, t01=0x0158}
0x1d2e6…1d31a Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x012a, t01=0x0188}
0x1d31a…1d342 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x012b, t01=0x002c}
0x1d342…1d376 Head {h00=0x0030, h01=0x0050, text=» LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER«, t00=0x012b, t01=0x0054}
0x1d376…1d39c Head {h00=0x0022, h01=0x0050, text=» SLL A3,4 MOVE TO BITS 4 - 11 «, t00=0x012b, t01=0x0088}
0x1d39c…1d3c8 Head {h00=0x0028, h01=0x0050, text=» ADK A3,2 ADD CONNECTION TYPE SALCUZ«, t00=0x012b, t01=0x00ae}
0x1d3c8…1d3fa Head {h00=0x002e, h01=0x0050, text=» ADKL A6,/0200 ADD CONNECTION TYPE SALCUZ «, t00=0x012b, t01=0x00da}
0x1d3fa…1d412 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x012b, t01=0x010c}
0x1d412…1d41e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012b, t01=0x0124}
0x1d41e…1d434 Head {h00=0x0012, h01=0x0050, text=» IFT SALCUZ=0 «, t00=0x012b, t01=0x0130}
0x1d434…1d44a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x012b, t01=0x0146}
0x1d44a…1d45e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x012b, t01=0x015c}
0x1d45e…1d46a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012b, t01=0x0170}
0x1d46a…1d478 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012b, t01=0x017c}
0x1d478…1d4b6 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x012b, t01=0x018a}
0x1d4b6…1d4ec Head {h00=0x0032, h01=0x0050, text=»* I:CHAZ - INIT CHANNEL PARAMETERS ASCU4Z * «, t00=0x012c, t01=0x0038}
0x1d4ec…1d52a Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x012c, t01=0x006e}
0x1d52a…1d534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x00ac}
0x1d534…1d554 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x012c, t01=0x00b6}
0x1d554…1d55e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x00d6}
0x1d55e…1d58e Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x012c, t01=0x00e0}
0x1d58e…1d5ba Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x012c, t01=0x0110}
0x1d5ba…1d5e6 Head {h00=0x0028, h01=0x0050, text=»* A4 - LINE CONNECTION TYPE«, t00=0x012c, t01=0x013c}
0x1d5e6…1d614 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x012c, t01=0x0168}
0x1d614…1d61e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x0008}
0x1d61e…1d64c Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x012d, t01=0x0012}
0x1d64c…1d67a Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x012d, t01=0x0040}
0x1d67a…1d6ac Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x012d, t01=0x006e}
0x1d6ac…1d6da Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x012d, t01=0x00a0}
0x1d6da…1d6e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x00ce}
0x1d6e4…1d6fe Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x012d, t01=0x00d8}
0x1d6fe…1d708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x00f2}
0x1d708…1d720 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x012d, t01=0x00fc}
0x1d720…1d72a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x0114}
0x1d72a…1d73e Head {h00=0x0010, h01=0x0050, text=»I:CHAZ EQU *«, t00=0x012d, t01=0x011e}
0x1d73e…1d754 Head {h00=0x0012, h01=0x0050, text=» IFF ASCU4Z=0 «, t00=0x012d, t01=0x0132}
0x1d754…1d77e Head {h00=0x0026, h01=0x0050, text=» CWK A6,32 CONNECTION NUMBER <=32?«, t00=0x012d, t01=0x0148}
0x1d77e…1d798 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x012d, t01=0x0172}
0x1d798…1d7c0 Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x012d, t01=0x018c}
0x1d7c0…1d7da Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x012e, t01=0x0024}
0x1d7da…1d80a Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x012e, t01=0x003e}
0x1d80a…1d83e Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x012e, t01=0x006e}
0x1d83e…1d866 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x012e, t01=0x00a2}
0x1d866…1d89a Head {h00=0x0030, h01=0x0050, text=» LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER«, t00=0x012e, t01=0x00ca}
0x1d89a…1d8ba Head {h00=0x001c, h01=0x0050, text=» ANK A3,3 GET BITS 14-15«, t00=0x012e, t01=0x00fe}
0x1d8ba…1d8e4 Head {h00=0x0026, h01=0x0050, text=» SLL A3,8 MOVE TO BITS TO BITS 6-7«, t00=0x012e, t01=0x011e}
0x1d8e4…1d90e Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x012e, t01=0x0148}
0x1d90e…1d944 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x012e, t01=0x0172}
0x1d944…1d956 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x012f, t01=0x0018}
0x1d956…1d986 Head {h00=0x002c, h01=0x0050, text=» ANK A6,/1C GET BITS 11-13 BOARD NUMBER «, t00=0x012f, t01=0x002a}
0x1d986…1d9aa Head {h00=0x0020, h01=0x0050, text=» SRL A6,2 MOVE TO BITS 12-15«, t00=0x012f, t01=0x005a}
0x1d9aa…1d9d6 Head {h00=0x0028, h01=0x0050, text=» ADK A3,3 ADD CONNECTION TYPE ASCU4Z«, t00=0x012f, t01=0x007e}
0x1d9d6…1da08 Head {h00=0x002e, h01=0x0050, text=» ADKL A6,/0300 ADD CONNECTION TYPE ASCU4Z «, t00=0x012f, t01=0x00aa}
0x1da08…1da18 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012f, t01=0x00dc}
0x1da18…1da24 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012f, t01=0x00ec}
0x1da24…1da3a Head {h00=0x0012, h01=0x0050, text=» IFT ASCU4Z=0 «, t00=0x012f, t01=0x00f8}
0x1da3a…1da50 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x012f, t01=0x010e}
0x1da50…1da64 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x012f, t01=0x0124}
0x1da64…1da70 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012f, t01=0x0138}
0x1da70…1da7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012f, t01=0x0144}
0x1da7e…1dabc Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x012f, t01=0x0152}
0x1dabc…1daf2 Head {h00=0x0032, h01=0x0050, text=»* I:CHAZ - INIT CHANNEL PARAMETERS VCCU1/4 *«, t00=0x012f, t01=0x0190}
0x1daf2…1db30 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0130, t01=0x0036}
0x1db30…1db3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x0074}
0x1db3a…1db5a Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0130, t01=0x007e}
0x1db5a…1db64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x009e}
0x1db64…1db94 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0130, t01=0x00a8}
0x1db94…1dbc0 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0130, t01=0x00d8}
0x1dbc0…1dbec Head {h00=0x0028, h01=0x0050, text=»* A4 - LINE CONNECTION TYPE«, t00=0x0130, t01=0x0104}
0x1dbec…1dc1a Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0130, t01=0x0130}
0x1dc1a…1dc24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x015e}
0x1dc24…1dc52 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0130, t01=0x0168}
0x1dc52…1dc80 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0131, t01=0x0008}
0x1dc80…1dcb2 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0131, t01=0x0036}
0x1dcb2…1dce0 Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x0131, t01=0x0068}
0x1dce0…1dcea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x0096}
0x1dcea…1dd04 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0131, t01=0x00a0}
0x1dd04…1dd0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x00ba}
0x1dd0e…1dd26 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0131, t01=0x00c4}
0x1dd26…1dd30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x00dc}
0x1dd30…1dd44 Head {h00=0x0010, h01=0x0050, text=»I:CHVC EQU *«, t00=0x0131, t01=0x00e6}
0x1dd44…1dd58 Head {h00=0x0010, h01=0x0050, text=» IFF VIDEO=0«, t00=0x0131, t01=0x00fa}
0x1dd58…1dd82 Head {h00=0x0026, h01=0x0050, text=» CWK A6,32 CONNECTION NUMBER <=32?«, t00=0x0131, t01=0x010e}
0x1dd82…1dd9c Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0131, t01=0x0138}
0x1dd9c…1ddc4 Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x0131, t01=0x0152}
0x1ddc4…1ddde Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0131, t01=0x017a}
0x1ddde…1de0e (306, 0, 400) Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x0132, t01=0x0004}
0x1de0e…1de42 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0132, t01=0x0034}
0x1de42…1de6a Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x0132, t01=0x0068}
0x1de6a…1de9e Head {h00=0x0030, h01=0x0050, text=» LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER«, t00=0x0132, t01=0x0090}
0x1de9e…1debe Head {h00=0x001c, h01=0x0050, text=» ANK A3,3 GET BITS 14-15«, t00=0x0132, t01=0x00c4}
0x1debe…1dee8 Head {h00=0x0026, h01=0x0050, text=» SLL A3,8 MOVE TO BITS TO BITS 6-7«, t00=0x0132, t01=0x00e4}
0x1dee8…1df12 Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0132, t01=0x010e}
0x1df12…1df48 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0132, t01=0x0138}
0x1df48…1df5a Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0132, t01=0x016e}
0x1df5a…1df8a Head {h00=0x002c, h01=0x0050, text=» ANK A6,/1C GET BITS 11-13 BOARD NUMBER «, t00=0x0132, t01=0x0180}
0x1df8a…1dfae Head {h00=0x0020, h01=0x0050, text=» SRL A6,2 MOVE TO BITS 12-15«, t00=0x0133, t01=0x0020}
0x1dfae…1dfdc Head {h00=0x002a, h01=0x0050, text=» ADK A3,7 ADD CONNECTION TYPE VCCU1/4 «, t00=0x0133, t01=0x0044}
0x1dfdc…1e00e Head {h00=0x002e, h01=0x0050, text=» ADKL A6,/0700 ADD CONNECTION TYPE VCCU1/4«, t00=0x0133, t01=0x0072}
0x1e00e…1e01e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0133, t01=0x00a4}
0x1e01e…1e02a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0133, t01=0x00b4}
0x1e02a…1e03e Head {h00=0x0010, h01=0x0050, text=» IFT VIDEO=0«, t00=0x0133, t01=0x00c0}
0x1e03e…1e054 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0133, t01=0x00d4}
0x1e054…1e068 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0133, t01=0x00ea}
0x1e068…1e074 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0133, t01=0x00fe}
0x1e074…1e082 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0133, t01=0x010a}
0x1e082…1e0b4 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0133, t01=0x0118}
0x1e0b4…1e0e8 Head {h00=0x0030, h01=0x0050, text=»* I:CHPC - INIT CHANNEL PARAMETERS LWSI * «, t00=0x0133, t01=0x014a}
0x1e0e8…1e11a Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0133, t01=0x017e}
0x1e11a…1e124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x0020}
0x1e124…1e144 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0134, t01=0x002a}
0x1e144…1e14e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x004a}
0x1e14e…1e17e Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0134, t01=0x0054}
0x1e17e…1e1aa Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0134, t01=0x0084}
0x1e1aa…1e1d8 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0134, t01=0x00b0}
0x1e1d8…1e1e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x00de}
0x1e1e2…1e210 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0134, t01=0x00e8}
0x1e210…1e23e Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0134, t01=0x0116}
0x1e23e…1e270 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0134, t01=0x0144}
0x1e270…1e29e Head {h00=0x002a, h01=0x0050, text=»* BITS 4 -11 LINE NUMBER«, t00=0x0134, t01=0x0176}
0x1e29e…1e2a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x0014}
0x1e2a8…1e2c2 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0135, t01=0x001e}
0x1e2c2…1e2da Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0135, t01=0x0038}
0x1e2da…1e2e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x0050}
0x1e2e4…1e2f8 Head {h00=0x0010, h01=0x0050, text=»I:CHPC EQU *«, t00=0x0135, t01=0x005a}
0x1e2f8…1e30c Head {h00=0x0010, h01=0x0050, text=» IFF PLCL=0 «, t00=0x0135, t01=0x006e}
0x1e30c…1e338 Head {h00=0x0028, h01=0x0050, text=» CWK A6,128 CONNECTION NUMBER <=128?«, t00=0x0135, t01=0x0082}
0x1e338…1e352 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0135, t01=0x00ae}
0x1e352…1e37a Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x0135, t01=0x00c8}
0x1e37a…1e394 Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0135, t01=0x00f0}
0x1e394…1e3a6 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0135, t01=0x010a}
0x1e3a6…1e3da Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0135, t01=0x011c}
0x1e3da…1e402 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x0135, t01=0x0150}
0x1e402…1e430 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x0135, t01=0x0178}
0x1e430…1e454 Head {h00=0x0020, h01=0x0050, text=» ANK A3,/1F GET BITS 11 - 15«, t00=0x0136, t01=0x0016}
0x1e454…1e466 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0136, t01=0x003a}
0x1e466…1e48a Head {h00=0x0020, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 2 - 7«, t00=0x0136, t01=0x004c}
0x1e48a…1e4b4 Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0136, t01=0x0070}
0x1e4b4…1e4e2 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x0136, t01=0x009a}
0x1e4e2…1e4f4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0136, t01=0x00c8}
0x1e4f4…1e51a Head {h00=0x0022, h01=0x0050, text=» SLL A3,4 MOVE TO BITS 4 - 11 «, t00=0x0136, t01=0x00da}
0x1e51a…1e544 Head {h00=0x0026, h01=0x0050, text=» ADK A3,5 ADD CONNECTION TYPE PLC «, t00=0x0136, t01=0x0100}
0x1e544…1e574 Head {h00=0x002c, h01=0x0050, text=» ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER«, t00=0x0136, t01=0x012a}
0x1e574…1e59a Head {h00=0x0022, h01=0x0050, text=» SRL A6,5 MOVE TO BITS 12 - 15«, t00=0x0136, t01=0x015a}
0x1e59a…1e5c8 Head {h00=0x002a, h01=0x0050, text=» ADKL A6,/0500 ADD CONNECTION TYPE PLC«, t00=0x0136, t01=0x0180}
0x1e5c8…1e5d8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0137, t01=0x001e}
0x1e5d8…1e5e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0137, t01=0x002e}
0x1e5e4…1e5f8 Head {h00=0x0010, h01=0x0050, text=» IFT PLCL=0 «, t00=0x0137, t01=0x003a}
0x1e5f8…1e60e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0137, t01=0x004e}
0x1e60e…1e622 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0137, t01=0x0064}
0x1e622…1e62e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0137, t01=0x0078}
0x1e62e…1e63c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0137, t01=0x0084}
0x1e63c…1e66e Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0137, t01=0x0092}
0x1e66e…1e6a4 Head {h00=0x0032, h01=0x0050, text=»* I:CHPC - INIT CHANNEL PARAMETERS RWSI * =8«, t00=0x0137, t01=0x00c4}
0x1e6a4…1e6d6 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0137, t01=0x00fa}
0x1e6d6…1e6e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0137, t01=0x012c}
0x1e6e0…1e700 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0137, t01=0x0136}
0x1e700…1e70a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0137, t01=0x0156}
0x1e70a…1e73a Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0137, t01=0x0160}
0x1e73a…1e766 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0137, t01=0x0190}
0x1e766…1e794 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0138, t01=0x002c}
0x1e794…1e79e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x005a}
0x1e79e…1e7cc Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0138, t01=0x0064}
0x1e7cc…1e7fa Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0138, t01=0x0092}
0x1e7fa…1e82c Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0138, t01=0x00c0}
0x1e82c…1e85a Head {h00=0x002a, h01=0x0050, text=»* BITS 4 -11 LINE NUMBER«, t00=0x0138, t01=0x00f2}
0x1e85a…1e864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x0120}
0x1e864…1e87e Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0138, t01=0x012a}
0x1e87e…1e896 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0138, t01=0x0144}
0x1e896…1e8a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x015c}
0x1e8a0…1e8b4 Head {h00=0x0010, h01=0x0050, text=»I:CHRI EQU *«, t00=0x0138, t01=0x0166}
0x1e8b4…1e8c8 Head {h00=0x0010, h01=0x0050, text=» IFF PLCR=0 «, t00=0x0138, t01=0x017a}
0x1e8c8…1e8f4 Head {h00=0x0028, h01=0x0050, text=» CWK A6,128 CONNECTION NUMBER <=128?«, t00=0x0138, t01=0x018e}
0x1e8f4…1e90e Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0139, t01=0x002a}
0x1e90e…1e936 Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x0139, t01=0x0044}
0x1e936…1e950 Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0139, t01=0x006c}
0x1e950…1e962 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0139, t01=0x0086}
0x1e962…1e996 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0139, t01=0x0098}
0x1e996…1e9be Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x0139, t01=0x00cc}
0x1e9be…1e9ec Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x0139, t01=0x00f4}
0x1e9ec…1ea10 Head {h00=0x0020, h01=0x0050, text=» ANK A3,/1F GET BITS 11 - 15«, t00=0x0139, t01=0x0122}
0x1ea10…1ea22 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0139, t01=0x0146}
0x1ea22…1ea46 Head {h00=0x0020, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 2 - 7«, t00=0x0139, t01=0x0158}
0x1ea46…1ea70 Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0139, t01=0x017c}
0x1ea70…1ea9e Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x013a, t01=0x0016}
0x1ea9e…1eab0 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x013a, t01=0x0044}
0x1eab0…1ead6 Head {h00=0x0022, h01=0x0050, text=» SLL A3,4 MOVE TO BITS 4 - 11 «, t00=0x013a, t01=0x0056}
0x1ead6…1eb06 Head {h00=0x002c, h01=0x0050, text=» ADK A3,6 ADD CONNECTION TYPE PLC-REMOTE«, t00=0x013a, t01=0x007c}
0x1eb06…1eb36 Head {h00=0x002c, h01=0x0050, text=» ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER«, t00=0x013a, t01=0x00ac}
0x1eb36…1eb5c Head {h00=0x0022, h01=0x0050, text=» SRL A6,5 MOVE TO BITS 12 - 15«, t00=0x013a, t01=0x00dc}
0x1eb5c…1eb92 Head {h00=0x0032, h01=0x0050, text=» ADKL A6,/0600 ADD CONNECTION TYPE PLC-REMOTE «, t00=0x013a, t01=0x0102}
0x1eb92…1eba2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x013a, t01=0x0138}
0x1eba2…1ebae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013a, t01=0x0148}
0x1ebae…1ebc2 Head {h00=0x0010, h01=0x0050, text=»NUMERR EQU *«, t00=0x013a, t01=0x0154}
0x1ebc2…1ebee Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP4 INDICATE FORMAT ERROR «, t00=0x013a, t01=0x0168}
0x1ebee…1ec02 (315, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x013b, t01=0x0004}
0x1ec02…1ec10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013b, t01=0x0018}
0x1ec10…1ec3e Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x013b, t01=0x0026}
0x1ec3e…1ec70 Head {h00=0x002e, h01=0x0050, text=»* I:CHLT - INIT CHANNEL PARAMETERS LT * «, t00=0x013b, t01=0x0054}
0x1ec70…1ec9e Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x013b, t01=0x0086}
0x1ec9e…1eca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x00b4}
0x1eca8…1ecc8 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x013b, t01=0x00be}
0x1ecc8…1ecd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x00de}
0x1ecd2…1ed02 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x013b, t01=0x00e8}
0x1ed02…1ed2e Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x013b, t01=0x0118}
0x1ed2e…1ed5c Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x013b, t01=0x0144}
0x1ed5c…1ed66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x0172}
0x1ed66…1ed94 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETERS -1 «, t00=0x013b, t01=0x017c}
0x1ed94…1edc2 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETERS -2 «, t00=0x013c, t01=0x001a}
0x1edc2…1edf4 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x013c, t01=0x0048}
0x1edf4…1ee22 Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x013c, t01=0x007a}
0x1ee22…1ee2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x00a8}
0x1ee2c…1ee46 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x013c, t01=0x00b2}
0x1ee46…1ee50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x00cc}
0x1ee50…1ee68 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x013c, t01=0x00d6}
0x1ee68…1ee72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x00ee}
0x1ee72…1ee80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013c, t01=0x00f8}
0x1ee80…1ee94 Head {h00=0x0010, h01=0x0050, text=»I:CHLT EQU *«, t00=0x013c, t01=0x0106}
0x1ee94…1eea8 Head {h00=0x0010, h01=0x0050, text=» IFF SUML=0 «, t00=0x013c, t01=0x011a}
0x1eea8…1eed6 Head {h00=0x002a, h01=0x0050, text=» CWK A6,0032 CONNECTION NUMBER <= 32? «, t00=0x013c, t01=0x012e}
0x1eed6…1eef2 Head {h00=0x0018, h01=0x0050, text=» RB(G) NUMERR NO =8!«, t00=0x013c, t01=0x015c}
0x1eef2…1ef1e Head {h00=0x0028, h01=0x0050, text=» CWK A6,0001 CONNECTION NUMBER >=01?«, t00=0x013c, t01=0x0178}
0x1ef1e…1ef3a Head {h00=0x0018, h01=0x0050, text=» RB(L) NUMERR NO =8!«, t00=0x013d, t01=0x0014}
0x1ef3a…1ef6a Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x013d, t01=0x0030}
0x1ef6a…1ef9e Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x013d, t01=0x0060}
0x1ef9e…1efca Head {h00=0x0028, h01=0x0050, text=» ANKL A5,/003F CLEAR BITS TO MODIFY «, t00=0x013d, t01=0x0094}
0x1efca…1f000 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x013d, t01=0x00c0}
0x1f000…1f020 Head {h00=0x001c, h01=0x0050, text=» ANK A3,7 GET BITS 13-15«, t00=0x013d, t01=0x00f6}
0x1f020…1f042 Head {h00=0x001e, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 5-7«, t00=0x013d, t01=0x0116}
0x1f042…1f06c Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x013d, t01=0x0138}
0x1f06c…1f0a2 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x013d, t01=0x0162}
0x1f0a2…1f0b4 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x013e, t01=0x0008}
0x1f0b4…1f0d6 Head {h00=0x001e, h01=0x0050, text=» ANK A6,/18 GET BITS 11-12«, t00=0x013e, t01=0x001a}
0x1f0d6…1f0fa Head {h00=0x0020, h01=0x0050, text=» SRL A6,3 MOVE TO BITS 14-15«, t00=0x013e, t01=0x003c}
0x1f0fa…1f10a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x013e, t01=0x0060}
0x1f10a…1f116 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013e, t01=0x0070}
0x1f116…1f12a Head {h00=0x0010, h01=0x0050, text=» IFT SUML=0 «, t00=0x013e, t01=0x007c}
0x1f12a…1f140 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x013e, t01=0x0090}
0x1f140…1f154 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x013e, t01=0x00a6}
0x1f154…1f160 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013e, t01=0x00ba}
0x1f160…1f16e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013e, t01=0x00c6}
0x1f16e…1f1a0 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013e, t01=0x00d4}
0x1f1a0…1f1d2 Head {h00=0x002e, h01=0x0050, text=»* I:CHRT - INIT CHANNEL PARAMETERS RT * «, t00=0x013e, t01=0x0106}
0x1f1d2…1f204 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013e, t01=0x0138}
0x1f204…1f20e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x016a}
0x1f20e…1f22e Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x013e, t01=0x0174}
0x1f22e…1f238 (319, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0004}
0x1f238…1f268 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x013f, t01=0x000e}
0x1f268…1f294 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x013f, t01=0x003e}
0x1f294…1f2c2 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x013f, t01=0x006a}
0x1f2c2…1f2cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0098}
0x1f2cc…1f2fa Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETERS - 1«, t00=0x013f, t01=0x00a2}
0x1f2fa…1f328 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETERS - 2«, t00=0x013f, t01=0x00d0}
0x1f328…1f35a Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x013f, t01=0x00fe}
0x1f35a…1f388 Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x013f, t01=0x0130}
0x1f388…1f392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x015e}
0x1f392…1f3ac Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x013f, t01=0x0168}
0x1f3ac…1f3b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0182}
0x1f3b6…1f3ce Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x013f, t01=0x018c}
0x1f3ce…1f3d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x0014}
0x1f3d8…1f3e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0140, t01=0x001e}
0x1f3e6…1f3fa Head {h00=0x0010, h01=0x0050, text=»I:CHRT EQU *«, t00=0x0140, t01=0x002c}
0x1f3fa…1f40e Head {h00=0x0010, h01=0x0050, text=» IFF SUMR=0 «, t00=0x0140, t01=0x0040}
0x1f40e…1f43c Head {h00=0x002a, h01=0x0050, text=» CWK A6,0016 CONNECTION NUMBER <= 16? «, t00=0x0140, t01=0x0054}
0x1f43c…1f458 Head {h00=0x0018, h01=0x0050, text=» RB(G) NUMERR NO =8!«, t00=0x0140, t01=0x0082}
0x1f458…1f484 Head {h00=0x0028, h01=0x0050, text=» CWK A6,0001 CONNECTION NUMBER >=1? «, t00=0x0140, t01=0x009e}
0x1f484…1f4a0 Head {h00=0x0018, h01=0x0050, text=» RB(L) NUMERR NO =8!«, t00=0x0140, t01=0x00ca}
0x1f4a0…1f4d0 Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x0140, t01=0x00e6}
0x1f4d0…1f504 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0140, t01=0x0116}
0x1f504…1f530 Head {h00=0x0028, h01=0x0050, text=» ANKL A5,/003F CLEAR BITS TO MODIFY «, t00=0x0140, t01=0x014a}
0x1f530…1f566 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0140, t01=0x0176}
0x1f566…1f586 Head {h00=0x001c, h01=0x0050, text=» ANK A3,3 GET BITS 14-15«, t00=0x0141, t01=0x001c}
0x1f586…1f5a8 Head {h00=0x001e, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 6-7«, t00=0x0141, t01=0x003c}
0x1f5a8…1f5d2 Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0141, t01=0x005e}
0x1f5d2…1f608 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0141, t01=0x0088}
0x1f608…1f61a Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0141, t01=0x00be}
0x1f61a…1f642 Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 ADD CONNECTION TYPE RT«, t00=0x0141, t01=0x00d0}
0x1f642…1f664 Head {h00=0x001e, h01=0x0050, text=» ANK A6,/C GET BITS 12-13 «, t00=0x0141, t01=0x00f8}
0x1f664…1f688 Head {h00=0x0020, h01=0x0050, text=» SRL A6,2 MOVE TO BITS 14-15«, t00=0x0141, t01=0x011a}
0x1f688…1f6b6 Head {h00=0x002a, h01=0x0050, text=» ADKL A6,/0100 ADD CONNECTION TYPE RT «, t00=0x0141, t01=0x013e}
0x1f6b6…1f6c6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0141, t01=0x016c}
0x1f6c6…1f6d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0141, t01=0x017c}
0x1f6d2…1f6e8 Head {h00=0x0012, h01=0x0050, text=» IFT SUMR=0 =8«, t00=0x0141, t01=0x0188}
0x1f6e8…1f6fe Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0142, t01=0x000e}
0x1f6fe…1f712 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0142, t01=0x0024}
0x1f712…1f722 Head {h00=0x000c, h01=0x0050, text=» XIF =8«, t00=0x0142, t01=0x0038}
0x1f722…1f734 Head {h00=0x000e, h01=0x0050, text=» IFT DC=1 «, t00=0x0142, t01=0x0048}
0x1f734…1f742 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0142, t01=0x005a}
0x1f742…1f782 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0142, t01=0x0068}
0x1f782…1f7c2 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0142, t01=0x00a8}
0x1f7c2…1f802 Head {h00=0x003c, h01=0x0050, text=»* B:CNA BUILD COMPUTER NETWORK ARCHITECTURE * «, t00=0x0142, t01=0x00e8}
0x1f802…1f842 Head {h00=0x003c, h01=0x0050, text=»* ========================================== * «, t00=0x0142, t01=0x0128}
0x1f842…1f882 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0142, t01=0x0168}
0x1f882…1f8c2 Head {h00=0x003c, h01=0x0050, text=»* SCANS POSSIBLE D-BLOCK IN CONFIGURATION DATA * «, t00=0x0143, t01=0x0018}
0x1f8c2…1f902 Head {h00=0x003c, h01=0x0050, text=»* AND BUILDS DATA COMMUNICATION TABLE IN MEMORY. * «, t00=0x0143, t01=0x0058}
0x1f902…1f942 Head {h00=0x003c, h01=0x0050, text=»* TABLE START IS DEFINED BY THE POINTER SCTDCT * «, t00=0x0143, t01=0x0098}
0x1f942…1f982 Head {h00=0x003c, h01=0x0050, text=»* IN SYSTAB. * «, t00=0x0143, t01=0x00d8}
0x1f982…1f9c2 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: SCTDCT = RELATIVE POSITION OF THE * «, t00=0x0143, t01=0x0118}
0x1f9c2…1fa02 Head {h00=0x003c, h01=0x0050, text=»* D-BLOCK IN CONF. DATA (SET BY SYSLOD) * «, t00=0x0143, t01=0x0158}
0x1fa02…1fa42 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0144, t01=0x0008}
0x1fa42…1fa82 Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: CONMON * «, t00=0x0144, t01=0x0048}
0x1fa82…1fac2 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES CALLED: GETDTE, P:DTE * «, t00=0x0144, t01=0x0088}
0x1fac2…1fb02 Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTERS: A1-A12 * «, t00=0x0144, t01=0x00c8}
0x1fb02…1fb42 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0144, t01=0x0108}
0x1fb42…1fb82 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0144, t01=0x0148}
0x1fb82…1fb8e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0144, t01=0x0188}
0x1fb8e…1fb9a (325, 0, 400) Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0145, t01=0x0004}
0x1fb9a…1fbae Head {h00=0x0010, h01=0x0050, text=»B:CNA EQU * «, t00=0x0145, t01=0x0010}
0x1fbae…1fbca Head {h00=0x0018, h01=0x0050, text=» LD A11,DCBLK+STKCOM«, t00=0x0145, t01=0x0024}
0x1fbca…1fbf8 Head {h00=0x002a, h01=0x0050, text=» RF(Z) B:CN20 NO DATA COMMUNICATION =1«, t00=0x0145, t01=0x0040}
0x1fbf8…1fc02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0145, t01=0x006e}
0x1fc02…1fc42 Head {h00=0x003c, h01=0x0050, text=» AD A11,CONSTA+STKCOM GET D BLOCK ADDRESS IN CONF. DATA «, t00=0x0145, t01=0x0078}
0x1fc42…1fc70 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0145, t01=0x00b8}
0x1fc70…1fc9c Head {h00=0x0028, h01=0x0050, text=» ST A12,SCTDCT UPDATE SYSTAB POINTER«, t00=0x0145, t01=0x00e6}
0x1fc9c…1fcd0 Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0145, t01=0x0112}
0x1fcd0…1fcfc Head {h00=0x0028, h01=0x0050, text=» CALL GETDTE GET NO OF DTE:S DEFINED«, t00=0x0145, t01=0x0146}
0x1fcfc…1fd30 Head {h00=0x0030, h01=0x0050, text=» ADKL A11,2 ADVANCE TO START OF SDTE RECORD «, t00=0x0145, t01=0x0172}
0x1fd30…1fd44 Head {h00=0x0010, h01=0x0050, text=»B:CN00 EQU *«, t00=0x0146, t01=0x0016}
0x1fd44…1fd56 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0146, t01=0x002a}
0x1fd56…1fd8c Head {h00=0x0032, h01=0x0050, text=» RF(N) B:CN10 NO DTE BLOCKS LEFT IN CONF. DATA«, t00=0x0146, t01=0x003c}
0x1fd8c…1fd96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x0072}
0x1fd96…1fdc8 Head {h00=0x002e, h01=0x0050, text=» ST A1,NUMDTE+STKEND SAVE NO OF DTE:S LEFT«, t00=0x0146, t01=0x007c}
0x1fdc8…1fdf8 Head {h00=0x002c, h01=0x0050, text=» ADKL A11,5 ADVANCE TO 1ST CHAR. IN NAME«, t00=0x0146, t01=0x00ae}
0x1fdf8…1fe22 Head {h00=0x0026, h01=0x0050, text=» CALL P:DTE PROCESS THIS DTE BLOCK«, t00=0x0146, t01=0x00de}
0x1fe22…1fe58 Head {h00=0x0032, h01=0x0050, text=» LD A1,NUMDTE+STKEND GET REMAINING DTE BLOCKS «, t00=0x0146, t01=0x0108}
0x1fe58…1fe86 Head {h00=0x002a, h01=0x0050, text=» LDR* A12,A12 GET ADDRESS TO NEXT DTE «, t00=0x0146, t01=0x013e}
0x1fe86…1fe98 Head {h00=0x000e, h01=0x0050, text=» RB B:CN00«, t00=0x0146, t01=0x016c}
0x1fe98…1fea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x017e}
0x1fea2…1feb6 Head {h00=0x0010, h01=0x0050, text=»B:CN10 EQU *«, t00=0x0146, t01=0x0188}
0x1feb6…1fed4 Head {h00=0x001a, h01=0x0050, text=» CM 0,A12 AND RESET IT«, t00=0x0147, t01=0x000c}
0x1fed4…1fee8 Head {h00=0x0010, h01=0x0050, text=» ADKL A12,2 «, t00=0x0147, t01=0x002a}
0x1fee8…1ff18 Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x0147, t01=0x003e}
0x1ff18…1ff32 Head {h00=0x0016, h01=0x0050, text=»B:CN20 EQU * =1 «, t00=0x0147, t01=0x006e}
0x1ff32…1ff42 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0147, t01=0x0088}
0x1ff42…1ff50 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0147, t01=0x0098}
0x1ff50…1ff90 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0147, t01=0x00a6}
0x1ff90…1ffd0 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0147, t01=0x00e6}
0x1ffd0…20010 Head {h00=0x003c, h01=0x0050, text=»* P:DTE PROCESS DTE BLOCK IN CONFIGURATION DATA * «, t00=0x0147, t01=0x0126}
0x20010…20050 Head {h00=0x003c, h01=0x0050, text=»* ============================================== * «, t00=0x0147, t01=0x0166}
0x20050…20090 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0148, t01=0x0016}
0x20090…200d0 Head {h00=0x003c, h01=0x0050, text=»* SCANS DTE BLOCK IN CONF. DATA AND BUILDS CORRE- * «, t00=0x0148, t01=0x0056}
0x200d0…20110 Head {h00=0x003c, h01=0x0050, text=»* SPONDING DTE-BLOCK IN SCTDCT. IF MULTIPLE COPIES * «, t00=0x0148, t01=0x0096}
0x20110…20150 Head {h00=0x003c, h01=0x0050, text=»* ARE DEFINED CURRENT DTE IS DUPLICATED THE NO OF * «, t00=0x0148, t01=0x00d6}
0x20150…20190 Head {h00=0x003c, h01=0x0050, text=»* TIMES SPECIFIED. * «, t00=0x0148, t01=0x0116}
0x20190…201d0 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0148, t01=0x0156}
0x201d0…20210 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN * «, t00=0x0149, t01=0x0008}
0x20210…20250 Head {h00=0x003c, h01=0x0050, text=»* SDTE NAME IN CONF. DATA * «, t00=0x0149, t01=0x0048}
0x20250…20290 Head {h00=0x003c, h01=0x0050, text=»* A12 POINTER TO START OF CURRENT * «, t00=0x0149, t01=0x0088}
0x20290…202d0 Head {h00=0x003c, h01=0x0050, text=»* DTE BLOCK IN SCTDCT TABLE * «, t00=0x0149, t01=0x00c8}
0x202d0…20310 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0149, t01=0x0108}
0x20310…20350 Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A11 ADDRESS TO LAST CHARACTER IN * «, t00=0x0149, t01=0x0148}
0x20350…20390 Head {h00=0x003c, h01=0x0050, text=»* PROCESSED DTE-BLOCK IN CONF. DATA * «, t00=0x0149, t01=0x0188}
0x20390…203d0 Head {h00=0x003c, h01=0x0050, text=»* A12 POINTER TO LAST DEFINED DTE-BLOCK * «, t00=0x014a, t01=0x0038}
0x203d0…20410 Head {h00=0x003c, h01=0x0050, text=»* DEFINED IN SCTDCT TABLE * «, t00=0x014a, t01=0x0078}
0x20410…20450 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x014a, t01=0x00b8}
0x20450…20490 Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: B:CNA * «, t00=0x014a, t01=0x00f8}
0x20490…204d0 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES REFERENCED: GETCOP,GETNSA,P:NA,HEXCPY * «, t00=0x014a, t01=0x0138}
0x204d0…20510 Head {h00=0x003c, h01=0x0050, text=»* AND MOVE * «, t00=0x014a, t01=0x0178}
0x20510…20550 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x014b, t01=0x0028}
0x20550…20590 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x014b, t01=0x0068}
0x20590…2059c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x014b, t01=0x00a8}
0x2059c…205a8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x014b, t01=0x00b4}
0x205a8…205bc Head {h00=0x0010, h01=0x0050, text=»P:DTE EQU * «, t00=0x014b, t01=0x00c0}
0x205bc…205ea Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/3000 INITIALIZE NAME FILLER «, t00=0x014b, t01=0x00d4}
0x205ea…2061a Head {h00=0x002c, h01=0x0050, text=» LC A1,1,A11 GET 1ST CHAR. IN SDTE NAME «, t00=0x014b, t01=0x0102}
0x2061a…2064c Head {h00=0x002e, h01=0x0050, text=» LC A2,IDLIM,A11 GET NA-NSA QUALIFIER (=T)«, t00=0x014b, t01=0x0132}
0x2064c…20660 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x014b, t01=0x0164}
0x20660…2068a Head {h00=0x0026, h01=0x0050, text=» CCK A2,'TT' START OF TYPE RECORD?«, t00=0x014b, t01=0x0178}
0x2068a…206a4 Head {h00=0x0016, h01=0x0050, text=» RF(E) PDTE00 YES!«, t00=0x014c, t01=0x0012}
0x206a4…206ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014c, t01=0x002c}
0x206ae…206d8 Head {h00=0x0026, h01=0x0050, text=» SLL A1,8 NO LEFT ADJUST CHAR. AND«, t00=0x014c, t01=0x0036}
0x206d8…20700 Head {h00=0x0024, h01=0x0050, text=» LC A1,1,A11 GET NEXT CHARACTER «, t00=0x014c, t01=0x0060}
0x20700…20714 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x014c, t01=0x0088}
0x20714…20728 Head {h00=0x0010, h01=0x0050, text=»PDTE00 EQU *«, t00=0x014c, t01=0x009c}
0x20728…20758 Head {h00=0x002c, h01=0x0050, text=» ST A1,DTENAM+STKEND SAVE NAME IN STACK «, t00=0x014c, t01=0x00b0}
0x20758…2077e Head {h00=0x0022, h01=0x0050, text=» CALL GETCOP GET NO OF COPIES «, t00=0x014c, t01=0x00e0}
0x2077e…207a4 Head {h00=0x0022, h01=0x0050, text=» ST A1,DTECOP+STKEND AND SAVE «, t00=0x014c, t01=0x0106}
0x207a4…207d8 Head {h00=0x0030, h01=0x0050, text=» ADKL A11,TYPOFS ADVANCE TO TYPE IDENTIFIER «, t00=0x014c, t01=0x012c}
0x207d8…207ec Head {h00=0x0010, h01=0x0050, text=» LC A1,1,A11«, t00=0x014c, t01=0x0160}
0x207ec…20812 Head {h00=0x0022, h01=0x0050, text=» SLL A1,8 FORM TYPE IDENTIFIER«, t00=0x014c, t01=0x0174}
0x20812…20826 Head {h00=0x0010, h01=0x0050, text=» LC A1,2,A11«, t00=0x014d, t01=0x000a}
0x20826…20850 Head {h00=0x0026, h01=0x0050, text=» ST A1,DTETYP+STKEND SAVE IN STACK«, t00=0x014d, t01=0x001e}
0x20850…20864 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x014d, t01=0x0048}
0x20864…20890 Head {h00=0x0028, h01=0x0050, text=» LDK A2,0 RESET NETWORK ADDR. LENGTH«, t00=0x014d, t01=0x005c}
0x20890…208b4 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x014d, t01=0x0088}
0x208b4…208c6 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x014d, t01=0x00ac}
0x208c6…208e0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE05 YES!«, t00=0x014d, t01=0x00be}
0x208e0…208ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x00d8}
0x208ea…2091c Head {h00=0x002e, h01=0x0050, text=» LC A7,NANSA,A11 GET NA-NSA-SDTE QUALIFIER«, t00=0x014d, t01=0x00e2}
0x2091c…20930 Head {h00=0x0010, h01=0x0050, text=» CCK A7,'AA'«, t00=0x014d, t01=0x0114}
0x20930…2095a Head {h00=0x0026, h01=0x0050, text=» RF(NE) PDTE05 NSA OR SDTE RECORD «, t00=0x014d, t01=0x0128}
0x2095a…20964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x0152}
0x20964…20996 Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NAOFS ADVANCE TO 1ST DIGIT IN NA«, t00=0x014d, t01=0x015c}
0x20996…209c0 Head {h00=0x0026, h01=0x0050, text=» ST A11,NASTRT+STKEND SAVE ADDRESS«, t00=0x014d, t01=0x018e}
0x209c0…209ea Head {h00=0x0026, h01=0x0050, text=» CALL P:NA PROCESS NETWORK ADDRESS«, t00=0x014e, t01=0x0028}
0x209ea…209fe Head {h00=0x0010, h01=0x0050, text=» LC A7,2,A11«, t00=0x014e, t01=0x0052}
0x209fe…20a12 Head {h00=0x0010, h01=0x0050, text=»PDTE05 EQU *«, t00=0x014e, t01=0x0066}
0x20a12…20a40 Head {h00=0x002a, h01=0x0050, text=» ST A2,NALNG+STKEND SAVE LENGTH OF NA «, t00=0x014e, t01=0x007a}
0x20a40…20a52 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x014e, t01=0x00a8}
0x20a52…20a76 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x014e, t01=0x00ba}
0x20a76…20a88 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x014e, t01=0x00de}
0x20a88…20aa2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE07 YES!«, t00=0x014e, t01=0x00f0}
0x20aa2…20aac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x010a}
0x20aac…20ac0 Head {h00=0x0010, h01=0x0050, text=» CCK A7,'SS'«, t00=0x014e, t01=0x0114}
0x20ac0…20ae4 Head {h00=0x0020, h01=0x0050, text=» RF(NE) PDTE07 NO NSA RECORD«, t00=0x014e, t01=0x0128}
0x20ae4…20aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x014c}
0x20aee…20b20 Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NSAOFS ADVANCE TO NO OF SUBADDR.«, t00=0x014e, t01=0x0156}
0x20b20…20b34 Head {h00=0x0010, h01=0x0050, text=» CALL GETNSA«, t00=0x014e, t01=0x0188}
0x20b34…20b62 Head {h00=0x002a, h01=0x0050, text=» ADKL A11,2 SKIP NSA NR IN CONF. DATA «, t00=0x014f, t01=0x000c}
0x20b62…20b76 Head {h00=0x0010, h01=0x0050, text=»PDTE07 EQU *«, t00=0x014f, t01=0x003a}
0x20b76…20bac Head {h00=0x0032, h01=0x0050, text=» ST A1,DTENSA+STKEND SAVE NO OF SUBADDR. DEF. «, t00=0x014f, t01=0x004e}
0x20bac…20bd4 Head {h00=0x0024, h01=0x0050, text=» CWK A1,/FF LOOK IF LEGAL NUMBER«, t00=0x014f, t01=0x0084}
0x20bd4…20bf0 Head {h00=0x0018, h01=0x0050, text=» RF(NG) PDTE10 YES! «, t00=0x014f, t01=0x00ac}
0x20bf0…20bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x00c8}
0x20bfa…20c0e Head {h00=0x0010, h01=0x0050, text=»NSAERR EQU *«, t00=0x014f, t01=0x00d2}
0x20c0e…20c3c Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP4 NO, ERROR IN CONF. FILE «, t00=0x014f, t01=0x00e6}
0x20c3c…20c50 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x014f, t01=0x0114}
0x20c50…20c64 Head {h00=0x0010, h01=0x0050, text=»PDTE10 EQU *«, t00=0x014f, t01=0x0128}
0x20c64…20c76 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x014f, t01=0x013c}
0x20c76…20c9c Head {h00=0x0022, h01=0x0050, text=» RF(Z) PDTE15 NO SUBADDRESSES «, t00=0x014f, t01=0x014e}
0x20c9c…20ca6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x0174}
0x20ca6…20cde Head {h00=0x0034, h01=0x0050, text=» ST A11,NSAADR+STKEND SAVE ADDR. OF 1ST SUBADDR.«, t00=0x014f, t01=0x017e}
0x20cde…20cf0 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0150, t01=0x0026}
0x20cf0…20d22 Head {h00=0x002e, h01=0x0050, text=» ADR A11,A1 CALCULATE STAT OF NEXT RECORD «, t00=0x0150, t01=0x0038}
0x20d22…20d36 Head {h00=0x0010, h01=0x0050, text=»PDTE15 EQU *«, t00=0x0150, t01=0x006a}
0x20d36…20d6c Head {h00=0x0032, h01=0x0050, text=» CALL DTESIZ CALCULATE SIZE OF THIS DTE BLOCK «, t00=0x0150, t01=0x007e}
0x20d6c…20d98 Head {h00=0x0028, h01=0x0050, text=» CALL UPDDTE UPDATE DTE BLOCK IN DCT«, t00=0x0150, t01=0x00b4}
0x20d98…20dc6 Head {h00=0x002a, h01=0x0050, text=» LD A7,DTECOP+STKEND GET NO OF COPIES «, t00=0x0150, t01=0x00e0}
0x20dc6…20dda Head {h00=0x0010, h01=0x0050, text=»PDTE20 EQU *«, t00=0x0150, t01=0x010e}
0x20dda…20dec Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0150, t01=0x0122}
0x20dec…20e1c Head {h00=0x002c, h01=0x0050, text=» RF(Z) PDTE40 NO COPIES LEFT TO PROCESS «, t00=0x0150, t01=0x0134}
0x20e1c…20e4c Head {h00=0x002c, h01=0x0050, text=» LDK A5,1 INITIALIZE INCREMENT CONSTANT «, t00=0x0150, t01=0x0164}
0x20e4c…20e7a (337, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LD A4,DTENAM+STKEND GET PREVIOUS NAME«, t00=0x0151, t01=0x0004}
0x20e7a…20e8c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0151, t01=0x0032}
0x20e8c…20eba Head {h00=0x002a, h01=0x0050, text=» ANK A3,/FF ISOLATE RIGHT BYTE OF NAME«, t00=0x0151, t01=0x0044}
0x20eba…20ede Head {h00=0x0020, h01=0x0050, text=» CWK A3,/5F UPPER BOUNDARY? «, t00=0x0151, t01=0x0072}
0x20ede…20ef8 Head {h00=0x0016, h01=0x0050, text=» RF(L) PDTE25 NO! «, t00=0x0151, t01=0x0096}
0x20ef8…20f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x00b0}
0x20f02…20f32 Head {h00=0x002c, h01=0x0050, text=» LC A4,/30 RESET RIGHT BYTE TO ASCII '0'«, t00=0x0151, t01=0x00ba}
0x20f32…20f5c Head {h00=0x0026, h01=0x0050, text=» SLL A5,8 LEFT BYTE INCREMENTATION«, t00=0x0151, t01=0x00ea}
0x20f5c…20f70 Head {h00=0x0010, h01=0x0050, text=»PDTE25 EQU *«, t00=0x0151, t01=0x0114}
0x20f70…20f9a Head {h00=0x0026, h01=0x0050, text=» ADR A4,A5 INCREMENT SYMBOLIC NAME«, t00=0x0151, t01=0x0128}
0x20f9a…20fb6 Head {h00=0x0018, h01=0x0050, text=» ST A4,DTENAM+STKEND«, t00=0x0151, t01=0x0152}
0x20fb6…20fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x016e}
0x20fc0…20fe4 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x0151, t01=0x0178}
0x20fe4…20ff6 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0152, t01=0x000c}
0x20ff6…21010 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE35 YES!«, t00=0x0152, t01=0x001e}
0x21010…2101a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x0038}
0x2101a…2104c Head {h00=0x002e, h01=0x0050, text=» LC A1,2,A11 GET 2ND CHAR. IN NEXT RECORD «, t00=0x0152, t01=0x0042}
0x2104c…21080 Head {h00=0x0030, h01=0x0050, text=» CCK A1,'DD' IF A SDTE-RECORD USE OLD ADDR. «, t00=0x0152, t01=0x0074}
0x21080…21096 Head {h00=0x0012, h01=0x0050, text=» RF(E) PDTE35 «, t00=0x0152, t01=0x00a8}
0x21096…210a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x00be}
0x210a0…210c2 Head {h00=0x001e, h01=0x0050, text=» CCK A1,'SS' IF NSA RECORD«, t00=0x0152, t01=0x00c8}
0x210c2…210f0 Head {h00=0x002a, h01=0x0050, text=» RF(E) PDTE30 USE OLD NETWORK ADDRESS «, t00=0x0152, t01=0x00ea}
0x210f0…210fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x0118}
0x210fa…2112c Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NAOFS ADVANCE TO 1ST DIGIT IN NA«, t00=0x0152, t01=0x0122}
0x2112c…2114a Head {h00=0x001a, h01=0x0050, text=» ST A11,NASTRT+STKEND «, t00=0x0152, t01=0x0154}
0x2114a…21174 Head {h00=0x0026, h01=0x0050, text=» CALL P:NA PROCESS NETWORK ADDRESS«, t00=0x0152, t01=0x0172}
0x21174…211a2 Head {h00=0x002a, h01=0x0050, text=» ST A2,NALNG+STKEND SAVE LENGTH OF NA «, t00=0x0153, t01=0x000c}
0x211a2…211ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x003a}
0x211ac…211d0 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x0153, t01=0x0044}
0x211d0…211e2 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0153, t01=0x0068}
0x211e2…211fc Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE35 YES!«, t00=0x0153, t01=0x007a}
0x211fc…21206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x0094}
0x21206…2121a Head {h00=0x0010, h01=0x0050, text=» LC A1,2,A11«, t00=0x0153, t01=0x009e}
0x2121a…2122e Head {h00=0x0010, h01=0x0050, text=» CCK A1,'SS'«, t00=0x0153, t01=0x00b2}
0x2122e…2125a Head {h00=0x0028, h01=0x0050, text=» RF(NE) PDTE35 NO NSA RECORD PRESENT«, t00=0x0153, t01=0x00c6}
0x2125a…21264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x00f2}
0x21264…21278 Head {h00=0x0010, h01=0x0050, text=»PDTE30 EQU *«, t00=0x0153, t01=0x00fc}
0x21278…212aa Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NSAOFS ADVANCE TO NO OF SUBADDR.«, t00=0x0153, t01=0x0110}
0x212aa…212be Head {h00=0x0010, h01=0x0050, text=» CALL GETNSA«, t00=0x0153, t01=0x0142}
0x212be…212ee Head {h00=0x002c, h01=0x0050, text=» ST A1,DTENSA+STKEND SAVE NO OF SUBADDR.«, t00=0x0153, t01=0x0156}
0x212ee…21302 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x0153, t01=0x0186}
0x21302…21314 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0154, t01=0x000a}
0x21314…21338 Head {h00=0x0020, h01=0x0050, text=» RF(Z) PDTE35 NO SUBADDRESSE«, t00=0x0154, t01=0x001c}
0x21338…21342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x0040}
0x21342…21356 Head {h00=0x0010, h01=0x0050, text=» CWK A1,/FF «, t00=0x0154, t01=0x004a}
0x21356…21386 Head {h00=0x002c, h01=0x0050, text=» RB(G) NSAERR TOO MANY SUBADDR. DEFINED «, t00=0x0154, t01=0x005e}
0x21386…21390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x008e}
0x21390…213c8 Head {h00=0x0034, h01=0x0050, text=» ST A11,NSAADR+STKEND SAVE START OF 1ST SUBADDR.«, t00=0x0154, t01=0x0098}
0x213c8…213da Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0154, t01=0x00d0}
0x213da…2140c Head {h00=0x002e, h01=0x0050, text=» ADR A11,A1 CALCULATE START OF NEXT RECORD«, t00=0x0154, t01=0x00e2}
0x2140c…21420 Head {h00=0x0010, h01=0x0050, text=»PDTE35 EQU *«, t00=0x0154, t01=0x0114}
0x21420…21452 Head {h00=0x002e, h01=0x0050, text=» LDR* A12,A12 GET START OF NEXT DTE BLOCK «, t00=0x0154, t01=0x0128}
0x21452…2148a Head {h00=0x0034, h01=0x0050, text=» CALL DTESIZ CALCULATE LENGTH OF THIS DTE BLOCK «, t00=0x0154, t01=0x015a}
0x2148a…2149e (341, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CALL UPDDTE«, t00=0x0155, t01=0x0004}
0x2149e…214b0 Head {h00=0x000e, h01=0x0050, text=» RB PDTE20«, t00=0x0155, t01=0x0018}
0x214b0…214ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x002a}
0x214ba…214ce Head {h00=0x0010, h01=0x0050, text=»PDTE40 EQU *«, t00=0x0155, t01=0x0034}
0x214ce…214de Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0155, t01=0x0048}
0x214de…214ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0155, t01=0x0058}
0x214ec…2152c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0155, t01=0x0066}
0x2152c…2156c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0155, t01=0x00a6}
0x2156c…215ac Head {h00=0x003c, h01=0x0050, text=»* DTESIZ CALCULATES THE LENGTH OF A DTE BLOCK *«, t00=0x0155, t01=0x00e6}
0x215ac…215ec Head {h00=0x003c, h01=0x0050, text=»* ============================================ *«, t00=0x0155, t01=0x0126}
0x215ec…2162c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0155, t01=0x0166}
0x2162c…2166c Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A12 START OF CURRENT DTE BLOCK *«, t00=0x0156, t01=0x0016}
0x2166c…216ac Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0156, t01=0x0056}
0x216ac…216ec Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTER: A1,A9 *«, t00=0x0156, t01=0x0096}
0x216ec…2172c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0156, t01=0x00d6}
0x2172c…2176c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0156, t01=0x0116}
0x2176c…21774 Head {h00=0x0004, h01=0x0050, t00=0x0156, t01=0x0156}
0x21774…2177c Head {h00=0x0004, h01=0x0050, t00=0x0156, t01=0x015e}
0x2177c…21790 Head {h00=0x0010, h01=0x0050, text=»DTESIZ EQU *«, t00=0x0156, t01=0x0166}
0x21790…217ac Head {h00=0x0018, h01=0x0050, text=» ST A11,WRK1+STKEND «, t00=0x0156, t01=0x017a}
0x217ac…217e6 Head {h00=0x0036, h01=0x0050, text=» LD A1,NALNG+STKEND GET LENGTH OF NETWORK ADDRESS «, t00=0x0157, t01=0x0008}
0x217e6…217f8 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0157, t01=0x0042}
0x217f8…21820 Head {h00=0x0024, h01=0x0050, text=» SRL A1,1 2 DIGITS IN EACH BYTE «, t00=0x0157, t01=0x0054}
0x21820…21850 Head {h00=0x002c, h01=0x0050, text=» AD A1,DTENSA+STKEND ADD NO OF SUBADDR. «, t00=0x0157, t01=0x007c}
0x21850…21882 Head {h00=0x002e, h01=0x0050, text=» ADK A1,DTEFIX+1 AND LENGTH OF FIX PART+1 «, t00=0x0157, t01=0x00ac}
0x21882…218a2 Head {h00=0x001c, h01=0x0050, text=» ANKL A1,/FFFE MAKE EVEN«, t00=0x0157, t01=0x00de}
0x218a2…218ce Head {h00=0x0028, h01=0x0050, text=» ADR A1,A12 START OF NEXT DTE BLOCK «, t00=0x0157, t01=0x00fe}
0x218ce…218f8 Head {h00=0x0026, h01=0x0050, text=» STR A1,A12 UPDATE DTE BLOCK LINK «, t00=0x0157, t01=0x012a}
0x218f8…2190a Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x0157, t01=0x0154}
0x2190a…2192e Head {h00=0x0020, h01=0x0050, text=» ST A11,WRK1+STKEND SAVE A11«, t00=0x0157, t01=0x0166}
0x2192e…21962 Head {h00=0x0030, h01=0x0050, text=» LD A11,LIMIT+STKEND GET END OF SYSTEM AREA «, t00=0x0157, t01=0x018a}
0x21962…21988 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x0158, t01=0x002e}
0x21988…219a2 Head {h00=0x0016, h01=0x0050, text=» RF(NL) DTSIZ0 NO!«, t00=0x0158, t01=0x0054}
0x219a2…219ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x006e}
0x219ac…219c6 Head {h00=0x0016, h01=0x0050, text=» LDKL A1,LMP3 YES!«, t00=0x0158, t01=0x0078}
0x219c6…219da Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0158, t01=0x0092}
0x219da…219e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x00a6}
0x219e4…219f8 Head {h00=0x0010, h01=0x0050, text=»DTSIZ0 EQU *«, t00=0x0158, t01=0x00b0}
0x219f8…21a32 Head {h00=0x0036, h01=0x0050, text=» LD A11,WRK1+STKEND RESTORE POSITION IN CONF. DATA«, t00=0x0158, t01=0x00c4}
0x21a32…21a42 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0158, t01=0x00fe}
0x21a42…21a50 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0158, t01=0x010e}
0x21a50…21a90 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0158, t01=0x011c}
0x21a90…21ad0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0158, t01=0x015c}
0x21ad0…21b10 Head {h00=0x003c, h01=0x0050, text=»* UPDDTE UPDATES CURRENT DTE BLOCK WITH ITS: *«, t00=0x0159, t01=0x000c}
0x21b10…21b50 Head {h00=0x003c, h01=0x0050, text=»* ====== *«, t00=0x0159, t01=0x004c}
0x21b50…21b90 Head {h00=0x003c, h01=0x0050, text=»* NAME *«, t00=0x0159, t01=0x008c}
0x21b90…21bd0 Head {h00=0x003c, h01=0x0050, text=»* TYPE *«, t00=0x0159, t01=0x00cc}
0x21bd0…21c10 Head {h00=0x003c, h01=0x0050, text=»* NETWORK ADDRES *«, t00=0x0159, t01=0x010c}
0x21c10…21c50 Head {h00=0x003c, h01=0x0050, text=»* SUBADDRESSES *«, t00=0x0159, t01=0x014c}
0x21c50…21c90 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0159, t01=0x018c}
0x21c90…21cd0 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x015a, t01=0x003c}
0x21cd0…21cd8 Head {h00=0x0004, h01=0x0050, t00=0x015a, t01=0x007c}
0x21cd8…21ce0 Head {h00=0x0004, h01=0x0050, t00=0x015a, t01=0x0084}
0x21ce0…21cf4 Head {h00=0x0010, h01=0x0050, text=»UPDDTE EQU *«, t00=0x015a, t01=0x008c}
0x21cf4…21d2c Head {h00=0x0034, h01=0x0050, text=» LDR A6,A12 GET START OF CURRENT DTE BLOCK ENTRY«, t00=0x015a, t01=0x00a0}
0x21d2c…21d4e Head {h00=0x001e, h01=0x0050, text=» ADK A6,2 SKIP LINK ENTRY «, t00=0x015a, t01=0x00d8}
0x21d4e…21d7e Head {h00=0x002c, h01=0x0050, text=» LD A1,DTENAM+STKEND GET NAME FROM STACK«, t00=0x015a, t01=0x00fa}
0x21d7e…21d9c Head {h00=0x001a, h01=0x0050, text=» STR A1,A6 SAVE IN DCT«, t00=0x015a, t01=0x012a}
0x21d9c…21db8 Head {h00=0x0018, h01=0x0050, text=» ADK A6,2 NEXT ENTRY«, t00=0x015a, t01=0x0148}
0x21db8…21de8 Head {h00=0x002c, h01=0x0050, text=» LD A1,DTETYP+STKEND GET TYPE FROM STACK«, t00=0x015a, t01=0x0164}
0x21de8…21e0a (347, 0, 400) Head {h00=0x001e, h01=0x0050, text=» STR A1,A6 AND SAVE IN DCT«, t00=0x015b, t01=0x0004}
0x21e0a…21e1c Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x015b, t01=0x0026}
0x21e1c…21e3e Head {h00=0x001e, h01=0x0050, text=» LDK A5,4 GET NO OF SHIFTS«, t00=0x015b, t01=0x0038}
0x21e3e…21e70 Head {h00=0x002e, h01=0x0050, text=» ORKL A5,SLL0 AND CONFIG. SLL A1,8 INSTR. «, t00=0x015b, t01=0x005a}
0x21e70…21ea8 Head {h00=0x0034, h01=0x0050, text=» LD A2,NALNG+STKEND GET LENGTH OF NETWORK ADDR. «, t00=0x015b, t01=0x008c}
0x21ea8…21ed0 Head {h00=0x0024, h01=0x0050, text=» LDR A3,A2 SAVE NO OF CHARACTERS«, t00=0x015b, t01=0x00c4}
0x21ed0…21eee Head {h00=0x001a, h01=0x0050, text=» SLL A2,8 LEFT ADJUST «, t00=0x015b, t01=0x00ec}
0x21eee…21f1e Head {h00=0x002c, h01=0x0050, text=» RF(Z) UPDTE0 NO NETWORK ADDRESS DEFINED«, t00=0x015b, t01=0x010a}
0x21f1e…21f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x013a}
0x21f28…21f60 Head {h00=0x0034, h01=0x0050, text=» LD A4,NASTRT+STKEND GET START OF NETWORK ADDR. «, t00=0x015b, t01=0x0144}
0x21f60…21f8c Head {h00=0x0028, h01=0x0050, text=» CALL HEXCPY COPY AND PACK NA TO DCT«, t00=0x015b, t01=0x017c}
0x21f8c…21fb4 Head {h00=0x0024, h01=0x0050, text=» ANKL A5,/1F ISOLATE SHIFT COUNT«, t00=0x015c, t01=0x0018}
0x21fb4…21fde Head {h00=0x0026, h01=0x0050, text=» CWK A5,4 LESS THAN ONE BYTE LEFT?«, t00=0x015c, t01=0x0040}
0x21fde…21ffa Head {h00=0x0018, h01=0x0050, text=» RF(NG) UPDTE2 YES! «, t00=0x015c, t01=0x006a}
0x21ffa…2200e Head {h00=0x0010, h01=0x0050, text=»UPDTE0 EQU *«, t00=0x015c, t01=0x0086}
0x2200e…22030 Head {h00=0x001e, h01=0x0050, text=» LDK A5,0 SET NO OF SHIFTS«, t00=0x015c, t01=0x009a}
0x22030…22042 Head {h00=0x000e, h01=0x0050, text=» RF UPDTE4«, t00=0x015c, t01=0x00bc}
0x22042…2204c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x00ce}
0x2204c…22060 Head {h00=0x0010, h01=0x0050, text=»UPDTE2 EQU *«, t00=0x015c, t01=0x00d8}
0x22060…22084 Head {h00=0x0020, h01=0x0050, text=» STR A2,A6 STORE WORD IN DCT«, t00=0x015c, t01=0x00ec}
0x22084…220a6 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 CLEAR TABLE WORD«, t00=0x015c, t01=0x0110}
0x220a6…220ce Head {h00=0x0024, h01=0x0050, text=» ADK A6,2 ADVANCE TO NEXT ENTRY «, t00=0x015c, t01=0x0132}
0x220ce…220f0 Head {h00=0x001e, h01=0x0050, text=» LDK A5,8 GET NO OF SHIFTS«, t00=0x015c, t01=0x015a}
0x220f0…22104 Head {h00=0x0010, h01=0x0050, text=»UPDTE4 EQU *«, t00=0x015c, t01=0x017c}
0x22104…22134 Head {h00=0x002c, h01=0x0050, text=» ORKL A5,SLL0 CONFIGURE SSL A1,N INSTR. «, t00=0x015c, t01=0x0190}
0x22134…2216c Head {h00=0x0034, h01=0x0050, text=» LD A1,DTENSA+STKEND GET NO OF SUBADDR. DEFINED «, t00=0x015d, t01=0x0030}
0x2216c…22196 Head {h00=0x0026, h01=0x0050, text=» RF(Z) UPDTE8 NO SUBADDR. DEFINED «, t00=0x015d, t01=0x0068}
0x22196…221a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015d, t01=0x0092}
0x221a0…221d8 Head {h00=0x0034, h01=0x0050, text=» LD A4,NSAADR+STKEND GET ADDRESS TO 1ST SUBADDR.«, t00=0x015d, t01=0x009c}
0x221d8…221ea Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x015d, t01=0x00d4}
0x221ea…22218 Head {h00=0x002a, h01=0x0050, text=» SLL A3,1 2 DIGITS FOR EACH SUDADDRESS«, t00=0x015d, t01=0x00e6}
0x22218…2222e Head {h00=0x0012, h01=0x0050, text=» EXR A5 SHIFT «, t00=0x015d, t01=0x0114}
0x2222e…22258 Head {h00=0x0026, h01=0x0050, text=» ORR A2,A1 AND CONFIGURE DCT WORD «, t00=0x015d, t01=0x012a}
0x22258…22278 Head {h00=0x001c, h01=0x0050, text=» CWK A5,SLL0 FULL WORD? «, t00=0x015d, t01=0x0154}
0x22278…22292 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UPDTE6 NO!«, t00=0x015d, t01=0x0174}
0x22292…2229c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015d, t01=0x018e}
0x2229c…222c0 Head {h00=0x0020, h01=0x0050, text=» STR A2,A6 YES! SAVE IN DCT «, t00=0x015e, t01=0x0008}
0x222c0…222e2 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 CLEAR TABLE WORD«, t00=0x015e, t01=0x002c}
0x222e2…22308 Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 ADVANCE DCT POINTER «, t00=0x015e, t01=0x004e}
0x22308…22328 Head {h00=0x001c, h01=0x0050, text=» LDK A5,16 NO OF SHIFTS «, t00=0x015e, t01=0x0074}
0x22328…22358 Head {h00=0x002c, h01=0x0050, text=» ORKL A5,SLL0 CONFIGURE SLL A1,12 INSTR.«, t00=0x015e, t01=0x0094}
0x22358…2236c Head {h00=0x0010, h01=0x0050, text=»UPDTE6 EQU *«, t00=0x015e, t01=0x00c4}
0x2236c…2238a Head {h00=0x001a, h01=0x0050, text=» SUK A5,4 NEXT NIBBLE «, t00=0x015e, t01=0x00d8}
0x2238a…223b6 Head {h00=0x0028, h01=0x0050, text=» CALL HEXCPY COPY AND PACK INTO DCT «, t00=0x015e, t01=0x00f6}
0x223b6…223ca Head {h00=0x0010, h01=0x0050, text=»UPDTE8 EQU *«, t00=0x015e, t01=0x0122}
0x223ca…223dc Head {h00=0x000e, h01=0x0050, text=» STR A2,A6«, t00=0x015e, t01=0x0136}
0x223dc…223ec Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x015e, t01=0x0148}
0x223ec…223fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015e, t01=0x0158}
0x223fa…2243a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x015e, t01=0x0166}
0x2243a…2247a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x015f, t01=0x0016}
0x2247a…224ba Head {h00=0x003c, h01=0x0050, text=»* HEXCPY COPIES AND PACKS 4 HEXADECIMAL DIGITS *«, t00=0x015f, t01=0x0056}
0x224ba…224fa Head {h00=0x003c, h01=0x0050, text=»* IN ONE WORD. *«, t00=0x015f, t01=0x0096}
0x224fa…2253a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x015f, t01=0x00d6}
0x2253a…2257a Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A2 WORD TO PACK *«, t00=0x015f, t01=0x0116}
0x2257a…225ba Head {h00=0x003c, h01=0x0050, text=»* A3 NO OF CHARACTERS TO PROCESS *«, t00=0x015f, t01=0x0156}
0x225ba…225fa Head {h00=0x003c, h01=0x0050, text=»* A4 ADDRESS TO FIRST ASCII DIGIT *«, t00=0x0160, t01=0x0008}
0x225fa…2263a Head {h00=0x003c, h01=0x0050, text=»* A5 PACKING INSTR. (SLL A1,N TIMES) *«, t00=0x0160, t01=0x0048}
0x2263a…2267a Head {h00=0x003c, h01=0x0050, text=»* A6 POINTER WHERE TO STORE PACKED WORD *«, t00=0x0160, t01=0x0088}
0x2267a…226ba Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0160, t01=0x00c8}
0x226ba…226fa Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A2 LAST PACKED, BUT NOT STORED WORD *«, t00=0x0160, t01=0x0108}
0x226fa…2273a Head {h00=0x003c, h01=0x0050, text=»* A4 ADDRESS TO CHAR. FOLLOWING LAST *«, t00=0x0160, t01=0x0148}
0x2273a…2277a Head {h00=0x003c, h01=0x0050, text=»* PROCESSED DIGIT *«, t00=0x0160, t01=0x0188}
0x2277a…227ba Head {h00=0x003c, h01=0x0050, text=»* A5 PACKING INSTR. (SLL A1,N TIMES) *«, t00=0x0161, t01=0x0038}
0x227ba…227fa Head {h00=0x003c, h01=0x0050, text=»* A6 POINTER WHERE TO STORE NEXT WORD *«, t00=0x0161, t01=0x0078}
0x227fa…2283a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0161, t01=0x00b8}
0x2283a…2287a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0161, t01=0x00f8}
0x2287a…22886 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0161, t01=0x0138}
0x22886…22892 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0161, t01=0x0144}
0x22892…228a6 Head {h00=0x0010, h01=0x0050, text=»HEXCPY EQU *«, t00=0x0161, t01=0x0150}
0x228a6…228b8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0161, t01=0x0164}
0x228b8…228da Head {h00=0x001e, h01=0x0050, text=» LC A1,1,A4 GET CHARACTER «, t00=0x0161, t01=0x0176}
0x228da…228fe Head {h00=0x0020, h01=0x0050, text=» CALL HEXCNV CONVERT TO HEX «, t00=0x0162, t01=0x0008}
0x228fe…22914 Head {h00=0x0012, h01=0x0050, text=» EXR A5 SHIFT «, t00=0x0162, t01=0x002c}
0x22914…2293a Head {h00=0x0022, h01=0x0050, text=» ORR A2,A1 CONFIGURE DCT WORD «, t00=0x0162, t01=0x0042}
0x2293a…22966 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT NO OF CHARACTERS«, t00=0x0162, t01=0x0068}
0x22966…2298e Head {h00=0x0024, h01=0x0050, text=» RF(Z) HXCPY8 WHOLE NA PROCESSED«, t00=0x0162, t01=0x0094}
0x2298e…22998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x00bc}
0x22998…229b8 Head {h00=0x001c, h01=0x0050, text=» CWK A5,SLL0 FULL WORD? «, t00=0x0162, t01=0x00c6}
0x229b8…229d2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) HXCPY6 NO!«, t00=0x0162, t01=0x00e6}
0x229d2…229dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x0100}
0x229dc…22a00 Head {h00=0x0020, h01=0x0050, text=» STR A2,A6 YES! SAVE IN DCT «, t00=0x0162, t01=0x010a}
0x22a00…22a22 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 CLEAR TABLE WORD«, t00=0x0162, t01=0x012e}
0x22a22…22a4a Head {h00=0x0024, h01=0x0050, text=» ADK A6,2 ADVANCE TO NEXT ENTRY «, t00=0x0162, t01=0x0150}
0x22a4a…22a6a Head {h00=0x001c, h01=0x0050, text=» LDK A5,16 NO OF SHIFTS «, t00=0x0162, t01=0x0178}
0x22a6a…22a9a Head {h00=0x002c, h01=0x0050, text=» ORKL A5,SLL0 CONFIGURE SSL A1,16 INSTR.«, t00=0x0163, t01=0x0008}
0x22a9a…22aae Head {h00=0x0010, h01=0x0050, text=»HXCPY6 EQU *«, t00=0x0163, t01=0x0038}
0x22aae…22acc Head {h00=0x001a, h01=0x0050, text=» SUK A5,4 NEXT NIBBLE «, t00=0x0163, t01=0x004c}
0x22acc…22afa Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 NEXT CHARACTER IN CONF. DATA«, t00=0x0163, t01=0x006a}
0x22afa…22b0c Head {h00=0x000e, h01=0x0050, text=» RB HEXCPY«, t00=0x0163, t01=0x0098}
0x22b0c…22b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0163, t01=0x00aa}
0x22b16…22b2a Head {h00=0x0010, h01=0x0050, text=»HXCPY8 EQU *«, t00=0x0163, t01=0x00b4}
0x22b2a…22b3a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0163, t01=0x00c8}
0x22b3a…22b48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0163, t01=0x00d8}
0x22b48…22b88 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0163, t01=0x00e6}
0x22b88…22bc8 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0163, t01=0x0126}
0x22bc8…22c08 Head {h00=0x003c, h01=0x0050, text=»* HEXCNV CONVERTS A HEXADECIMAL DIGIT IN ASCII CODE *«, t00=0x0163, t01=0x0166}
0x22c08…22c48 Head {h00=0x003c, h01=0x0050, text=»* TO CORRESPONDING HEXADECIMAL VALUE *«, t00=0x0164, t01=0x0016}
0x22c48…22c88 Head {h00=0x003c, h01=0x0050, text=»* (4 BITS BINARY CODE) *«, t00=0x0164, t01=0x0056}
0x22c88…22cc8 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0164, t01=0x0096}
0x22cc8…22d08 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A1 CHARACTER TO CONVERT *«, t00=0x0164, t01=0x00d6}
0x22d08…22d48 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0164, t01=0x0116}
0x22d48…22d88 Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A1 CONVERTED CARACTER *«, t00=0x0164, t01=0x0156}
0x22d88…22dc8 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0165, t01=0x0008}
0x22dc8…22e08 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0165, t01=0x0048}
0x22e08…22e14 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0165, t01=0x0088}
0x22e14…22e20 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0165, t01=0x0094}
0x22e20…22e34 Head {h00=0x0010, h01=0x0050, text=»HEXCNV EQU *«, t00=0x0165, t01=0x00a0}
0x22e34…22e5a Head {h00=0x0022, h01=0x0050, text=» ANK A1,/FF ISOLATE CHARACTER «, t00=0x0165, t01=0x00b4}
0x22e5a…22e6e Head {h00=0x0010, h01=0x0050, text=» CWK A1,/29 «, t00=0x0165, t01=0x00da}
0x22e6e…22e92 Head {h00=0x0020, h01=0x0050, text=» RF(L) TYPERR ERRANEOUS TYPE«, t00=0x0165, t01=0x00ee}
0x22e92…22e9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x0112}
0x22e9c…22ec2 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/40 DIGIT BETWEEN 0-9?«, t00=0x0165, t01=0x011c}
0x22ec2…22edc Head {h00=0x0016, h01=0x0050, text=» RF(L) HXCN00 YES!«, t00=0x0165, t01=0x0142}
0x22edc…22f06 Head {h00=0x0026, h01=0x0050, text=» RF(E) TYPERR NO NEXADECIMAL DIGIT«, t00=0x0165, t01=0x015c}
0x22f06…22f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x0186}
0x22f10…22f36 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/46 DIGIT BETWEEN A-F?«, t00=0x0165, t01=0x0190}
0x22f36…22f4e Head {h00=0x0014, h01=0x0050, text=» RF(G) TYPERR NO«, t00=0x0166, t01=0x0026}
0x22f4e…22f58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x003e}
0x22f58…22f6e Head {h00=0x0012, h01=0x0050, text=» ADK A1,9 YES!«, t00=0x0166, t01=0x0048}
0x22f6e…22f82 Head {h00=0x0010, h01=0x0050, text=»HXCN00 EQU *«, t00=0x0166, t01=0x005e}
0x22f82…22fa8 Head {h00=0x0022, h01=0x0050, text=» ANK A1,/F ISOLATE HEX NUMBER «, t00=0x0166, t01=0x0072}
0x22fa8…22fb8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0166, t01=0x0098}
0x22fb8…22fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x00a8}
0x22fc2…22fd6 Head {h00=0x0010, h01=0x0050, text=»TYPERR EQU *«, t00=0x0166, t01=0x00b2}
0x22fd6…22ffc Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP4 CONF. DATA ERROR«, t00=0x0166, t01=0x00c6}
0x22ffc…23010 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0166, t01=0x00ec}
0x23010…2301e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0166, t01=0x0100}
0x2301e…2305e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0166, t01=0x010e}
0x2305e…2309e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0166, t01=0x014e}
0x2309e…230de Head {h00=0x003c, h01=0x0050, text=»* P:NA PROCESS NETWORK ADDRESS *«, t00=0x0166, t01=0x018e}
0x230de…2311e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0167, t01=0x003e}
0x2311e…2315e Head {h00=0x003c, h01=0x0050, text=»* SCANS THE NETWORK ADDRESS RECORD (NA=..) IN CONF. *«, t00=0x0167, t01=0x007e}
0x2315e…2319e Head {h00=0x003c, h01=0x0050, text=»* DATA AND REPACKS THE RECORD, OVERWRITING POSSIBLE *«, t00=0x0167, t01=0x00be}
0x2319e…231de Head {h00=0x003c, h01=0x0050, text=»* CONTINUATION DEFINITIONS (C=..), SO THAT THE *«, t00=0x0167, t01=0x00fe}
0x231de…2321e Head {h00=0x003c, h01=0x0050, text=»* WHOLE NETWORK ADDRESS WILL BE IN CONTIGOUSE LOCA- *«, t00=0x0167, t01=0x013e}
0x2321e…2325e Head {h00=0x003c, h01=0x0050, text=»* TIONS. *«, t00=0x0167, t01=0x017e}
0x2325e…2329e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0168, t01=0x002e}
0x2329e…232de Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN NETWORK *«, t00=0x0168, t01=0x006e}
0x232de…2331e Head {h00=0x003c, h01=0x0050, text=»* ADDRESS. *«, t00=0x0168, t01=0x00ae}
0x2331e…2335e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0168, t01=0x00ee}
0x2335e…2339e Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A2 LENGTH OF NETWORK ADDRESS *«, t00=0x0168, t01=0x012e}
0x2339e…233de Head {h00=0x003c, h01=0x0050, text=»* A11 START OF NSA RECORD IN CONF. DATA *«, t00=0x0168, t01=0x016e}
0x233de…2341e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0169, t01=0x001e}
0x2341e…2345e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0169, t01=0x005e}
0x2345e…2346a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0169, t01=0x009e}
0x2346a…23476 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0169, t01=0x00aa}
0x23476…23488 Head {h00=0x000e, h01=0x0050, text=»P:NA EQU *«, t00=0x0169, t01=0x00b6}
0x23488…234b0 Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 RESET PACKING CONSTANT«, t00=0x0169, t01=0x00c8}
0x234b0…234d6 Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 RESET ADDRESS LENGTH«, t00=0x0169, t01=0x00f0}
0x234d6…234ea Head {h00=0x0010, h01=0x0050, text=»P:NA00 EQU *«, t00=0x0169, t01=0x0116}
0x234ea…234fc Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0169, t01=0x012a}
0x234fc…2351e Head {h00=0x001e, h01=0x0050, text=» LC A1,1,A11 GET CHARACTER«, t00=0x0169, t01=0x013c}
0x2351e…23548 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A1 SET CONDITION REGISTER «, t00=0x0169, t01=0x015e}
0x23548…23570 Head {h00=0x0024, h01=0x0050, text=» RF(Z) P:NA06 END OF CONF. DATA «, t00=0x0169, t01=0x0188}
0x23570…2357a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x0020}
0x2357a…2359e Head {h00=0x0020, h01=0x0050, text=» CCK A1,/FF END OF D-BLOCK? «, t00=0x016a, t01=0x002a}
0x2359e…235b8 Head {h00=0x0016, h01=0x0050, text=» RF(E) P:NA05 YES!«, t00=0x016a, t01=0x004e}
0x235b8…235c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x0068}
0x235c2…235ec Head {h00=0x0026, h01=0x0050, text=» CCK A1,'==' CONTINUATION RECORD? «, t00=0x016a, t01=0x0072}
0x235ec…23606 Head {h00=0x0016, h01=0x0050, text=» RF(E) P:NA04 YES!«, t00=0x016a, t01=0x009c}
0x23606…23610 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x00b6}
0x23610…23642 Head {h00=0x002e, h01=0x0050, text=» CCK A1,'NN' NO! START OF NA OR NSA RECORD«, t00=0x016a, t01=0x00c0}
0x23642…23664 Head {h00=0x001e, h01=0x0050, text=» RF(E) P:NA06 YES! RETURN «, t00=0x016a, t01=0x00f2}
0x23664…2366e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x0114}
0x2366e…23698 Head {h00=0x0026, h01=0x0050, text=» CCK A1,'SS' START OF SDTE RECORD?«, t00=0x016a, t01=0x011e}
0x23698…236b2 Head {h00=0x0016, h01=0x0050, text=» RF(E) P:NA06 YES!«, t00=0x016a, t01=0x0148}
0x236b2…236bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x0162}
0x236bc…236ea Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 INCREMENT NA ADDRESS LENGTH «, t00=0x016a, t01=0x016c}
0x236ea…2370e Head {h00=0x0020, h01=0x0050, text=» CWK A2,/FF TOO MANY DIGITS?«, t00=0x016b, t01=0x000a}
0x2370e…23728 Head {h00=0x0016, h01=0x0050, text=» RF(NG) P:NA02 NO!«, t00=0x016b, t01=0x002e}
0x23728…23732 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016b, t01=0x0048}
0x23732…23760 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP4 YES! ERROR IN CONF. DATA«, t00=0x016b, t01=0x0052}
0x23760…23774 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x016b, t01=0x0080}
0x23774…23788 Head {h00=0x0010, h01=0x0050, text=»P:NA02 EQU *«, t00=0x016b, t01=0x0094}
0x23788…2379a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x016b, t01=0x00a8}
0x2379a…237c0 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A11 REPACKING ADDRESS «, t00=0x016b, t01=0x00ba}
0x237c0…237ee Head {h00=0x002a, h01=0x0050, text=» SCR A1,A3 PUT CHARACTER BACK IN FILE «, t00=0x016b, t01=0x00e0}
0x237ee…23814 Head {h00=0x0022, h01=0x0050, text=» ADKL A11,1 GET NEXT CHARACTER«, t00=0x016b, t01=0x010e}
0x23814…23826 Head {h00=0x000e, h01=0x0050, text=» RB P:NA00«, t00=0x016b, t01=0x0134}
0x23826…23830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016b, t01=0x0146}
0x23830…23844 Head {h00=0x0010, h01=0x0050, text=»P:NA04 EQU *«, t00=0x016b, t01=0x0150}
0x23844…2387a Head {h00=0x0032, h01=0x0050, text=» SUK A2,1 DON'T COUNT CONT. RECORD IDENTIFIER «, t00=0x016b, t01=0x0164}
0x2387a…238a2 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 SET REPACKING CONSTANT«, t00=0x016c, t01=0x000a}
0x238a2…238d0 Head {h00=0x002a, h01=0x0050, text=» ADKL A11,1 ADVANCE TO NEXT CHARACTER «, t00=0x016c, t01=0x0032}
0x238d0…238e2 Head {h00=0x000e, h01=0x0050, text=» RB P:NA00«, t00=0x016c, t01=0x0060}
0x238e2…238ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016c, t01=0x0072}
0x238ec…23900 Head {h00=0x0010, h01=0x0050, text=»P:NA05 EQU *«, t00=0x016c, t01=0x007c}
0x23900…23926 Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 DECREMENT NA LENGTH «, t00=0x016c, t01=0x0090}
0x23926…23954 Head {h00=0x002a, h01=0x0050, text=» SUKL A11,1 AND POSITION IN CONF. DATA«, t00=0x016c, t01=0x00b6}
0x23954…2395e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016c, t01=0x00e4}
0x2395e…23972 Head {h00=0x0010, h01=0x0050, text=»P:NA06 EQU *«, t00=0x016c, t01=0x00ee}
0x23972…23982 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x016c, t01=0x0102}
0x23982…23990 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x016c, t01=0x0112}
0x23990…23998 Head {h00=0x0004, h01=0x0050, t00=0x016c, t01=0x0120}
0x23998…239d8 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x016c, t01=0x0128}
0x239d8…23a18 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x016c, t01=0x0168}
0x23a18…23a58 Head {h00=0x003c, h01=0x0050, text=»* ENDBLK LOOKS FOR END OF DATA COMMUNICATION BLOCK *«, t00=0x016d, t01=0x0018}
0x23a58…23a98 Head {h00=0x003c, h01=0x0050, text=»* ================================================= *«, t00=0x016d, t01=0x0058}
0x23a98…23ad8 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x016d, t01=0x0098}
0x23ad8…23b18 Head {h00=0x003c, h01=0x0050, text=»* END OF BLOCK IS DEFINED BY A RECORD BEGINNING *«, t00=0x016d, t01=0x00d8}
0x23b18…23b58 Head {h00=0x003c, h01=0x0050, text=»* WITH 'A' AS IN APPLICATION DEFINITION BLOCK OR *«, t00=0x016d, t01=0x0118}
0x23b58…23b98 Head {h00=0x003c, h01=0x0050, text=»* BY A CHARACTER = 0 (BINARY) MEANING END OF *«, t00=0x016d, t01=0x0158}
0x23b98…23bd8 Head {h00=0x003c, h01=0x0050, text=»* CONFIGURATION DATA. *«, t00=0x016e, t01=0x0008}
0x23bd8…23c18 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x016e, t01=0x0048}
0x23c18…23c58 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A11 CURRENT POSITION IN CONF. DATA *«, t00=0x016e, t01=0x0088}
0x23c58…23c98 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x016e, t01=0x00c8}
0x23c98…23cd8 Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A8 = 0 IF END OF BLOCK *«, t00=0x016e, t01=0x0108}
0x23cd8…23d18 Head {h00=0x003c, h01=0x0050, text=»* A8 NOT ZERO OTHERVISE *«, t00=0x016e, t01=0x0148}
0x23d18…23d58 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x016e, t01=0x0188}
0x23d58…23d98 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x016f, t01=0x0038}
0x23d98…23da0 Head {h00=0x0004, h01=0x0050, t00=0x016f, t01=0x0078}
0x23da0…23da8 Head {h00=0x0004, h01=0x0050, t00=0x016f, t01=0x0080}
0x23da8…23dbc Head {h00=0x0010, h01=0x0050, text=»ENDBLK EQU *«, t00=0x016f, t01=0x0088}
0x23dbc…23de4 Head {h00=0x0024, h01=0x0050, text=» LC A8,1,A11 GET NEXT CHARACTER «, t00=0x016f, t01=0x009c}
0x23de4…23e0a Head {h00=0x0022, h01=0x0050, text=» CCK A8,/00 END OF CONF. DATA?«, t00=0x016f, t01=0x00c4}
0x23e0a…23e24 Head {h00=0x0016, h01=0x0050, text=» RF(E) ENDBL0 YES!«, t00=0x016f, t01=0x00ea}
0x23e24…23e2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016f, t01=0x0104}
0x23e2e…23e5e Head {h00=0x002c, h01=0x0050, text=» CCK A8,'AA' START OF APPL. DEF. BLOCK? «, t00=0x016f, t01=0x010e}
0x23e5e…23e8c Head {h00=0x002a, h01=0x0050, text=» RF(NE) ENDBL2 NO! NOT END OF D-BLOCK «, t00=0x016f, t01=0x013e}
0x23e8c…23e96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016f, t01=0x016c}
0x23e96…23eaa Head {h00=0x0010, h01=0x0050, text=»ENDBL0 EQU *«, t00=0x016f, t01=0x0176}
0x23eaa…23ed6 Head {h00=0x0028, h01=0x0050, text=» SUR A8,A8 SET END OF D-BLOCK COND. «, t00=0x016f, t01=0x018a}
0x23ed6…23eea Head {h00=0x0010, h01=0x0050, text=»ENDBL2 EQU *«, t00=0x0170, t01=0x0026}
0x23eea…23efa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0170, t01=0x003a}
0x23efa…23f06 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0170, t01=0x004a}
0x23f06…23f14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0170, t01=0x0056}
0x23f14…23f18 Head {h00=0x0054, h01=0x0050}
0x23f18…23f1c Head {h00=0x2a3d, h01=0x2a3d}
0x23f1c…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 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 01 70 00 64 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 20 20 ┆*=*=*=*=*=*=*=*=*=*=*=*= p d 6 P* GENERAL SUBROUTINES ┆
0x23fa0…23ff0 2a 20 01 70 00 bc 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 2a 3d ┆* p T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=┆
0x23ff0…24040 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 01 70 00 f6 00 04 00 50 01 70 01 4e 00 04 00 50 01 70 01 56 00 04 00 50 01 70 01 5e 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 ┆*=*=*=*=*= p P p N P p V P p ^ 8 P**************************************┆
0x24040…24044 2a 2a 2a 2a ┆****┆
0x24044…24094 (369, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 70 01 66 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 20 20 20 2a 01 71 00 12 00 06 00 50 2a 20 ┆********** p f 8 P* GETTSK - GET NUMBER OF TASKS IN A TASK-CLASS * q P* ┆
0x24094…240e4 01 71 00 4e 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 58 00 06 00 50 2a 20 01 71 00 92 00 38 00 50 2a 2a 2a 2a ┆ q N 6 P* GETCTC - GET NUMBER OF COMMON TERMINAL CLASSES q X P* q 8 P****┆
0x240e4…24134 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 9c 00 06 00 50 2a 20 01 71 00 d8 00 22 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 ┆************************************************ q P* q " P* REFERENCED ┆
0x24134…24184 49 4e 3a 20 20 42 3a 54 43 54 2c 42 3a 43 44 54 01 71 00 e2 00 06 00 50 2a 20 01 71 01 08 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 ┆IN: B:TCT,B:CDT q P* q > P* ENTRY: A11 - POINTER TO START OF TASK DEFI┆
0x24184…241d4 4e 49 54 49 4f 4e 20 42 4c 4f 43 4b 01 71 01 12 00 06 00 50 2a 20 01 71 01 54 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 54 48 45 20 54 41 53 4b 20 43 4c 41 53 53 ┆NITION BLOCK q P* q T F P* EXIT: A1 - NUMBER OF TASKS IN THE TASK CLASS┆
0x241d4…24224 (370, 0, 400) 20 28 42 49 4e 41 52 59 20 56 41 4c 55 45 29 20 01 71 01 5e 00 06 00 50 2a 20 01 72 00 18 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 22 00 06 00 50 2a 20 01 72 00 40 00 1c 00 50 2a 20 20 53 55 42 ┆ (BINARY VALUE) q ^ P* r P* WORK REGISTERS: A5 r " P* r @ P* SUB┆
0x24224…24274 52 4f 55 54 49 4e 45 53 3a 20 20 43 4f 4e 56 52 54 20 01 72 00 4a 00 06 00 50 2a 20 01 72 00 6a 00 10 00 50 47 45 54 54 53 4b 5c 45 51 55 5c 2a 01 72 00 74 00 10 00 50 47 45 54 43 54 43 5c 45 51 55 5c 2a 01 72 00 88 00 2e 00 50 47 45 54 44 ┆ROUTINES: CONVRT r J P* r j PGETTSK EQU * r t PGETCTC EQU * r . PGETD┆
0x24274…242c4 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 9c 00 2e 00 50 47 45 54 43 4f 50 5c 45 51 55 5c 2a 5c 47 45 54 20 4e 4f 20 4f 46 20 43 4f 50 49 45 53 20 4f 46 20 4c ┆TE EQU * GET NO OF DTE BLOCKS DEFINED r . PGETCOP EQU * GET NO OF COPIES OF L┆
0x242c4…24314 41 53 54 20 44 54 45 20 01 72 00 ce 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 00 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 42 4e 54 ┆AST DTE r 0 PGETNSA EQU * GET NO OF SUBADDRESSES DEFINED r P LC A5,TDBNT┆
0x24314…24364 2c 41 31 31 01 72 01 34 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 01 72 01 4c 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 5e 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 01 72 01 78 00 0c 00 50 5c 52 54 4e ┆,A11 r 4 P SLL A5,8 r L P LC A5,TDBNT+1,A11 r ^ P CALL CONVRT r x P RTN┆
0x24364…243b4 (371, 0, 398) 5c 41 31 34 01 72 01 8c 00 0a 00 50 5c 45 4a 45 43 54 01 73 00 0c 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 73 ┆ A14 r P EJECT s 8 P**************************************************** s┆
0x243b4…24404 00 1a 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 56 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 8 P* GETTDC - GET NUMBER OF TERMINAL DEVICE CLASSES * s V 8 P**************┆
0x24404…24454 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 92 00 06 00 50 2a 20 01 73 00 ce 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 ┆************************************** s P* s P* REFERENCED IN: B:TT ┆
0x24454…244a4 01 73 00 d8 00 06 00 50 2a 20 01 73 00 f8 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 54 49 4f 4e 20 42 4c 4f 43 4b 01 73 01 02 ┆ s P* s > P* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK s ┆
0x244a4…244f2 00 06 00 50 2a 20 01 73 01 44 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 42 49 4e 52 59 20 56 41 4c 55 45 29 ┆ P* s D D P* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (BINRY VALUE)┆
0x244f2…24542 (372, 0, 400) 01 73 01 4e 00 06 00 50 2a 20 01 74 00 08 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 12 00 06 00 50 2a 20 01 74 00 30 00 1a 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 43 4f 4e 56 52 54 ┆ s N P* t P* WORK REGISTERS: A5 t P* t 0 P* SUBROUTINES: CONVRT┆
0x24542…24592 01 74 00 3a 00 06 00 50 2a 20 01 74 00 58 00 10 00 50 47 45 54 54 44 43 5c 45 51 55 5c 2a 01 74 00 62 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 42 4e 43 2c 41 31 31 01 74 00 76 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 01 74 00 8e 00 16 00 50 ┆ t : P* t X PGETTDC EQU * t b P LC A5,TDBNC,A11 t v P SLL A5,8 t P┆
0x24592…245e2 5c 4c 43 5c 41 35 2c 54 44 42 4e 43 2b 31 2c 41 31 31 01 74 00 a0 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 01 74 00 ba 00 0c 00 50 5c 52 54 4e 5c 41 31 34 01 74 00 ce 00 0a 00 50 5c 45 4a 45 43 54 01 74 00 de 00 38 00 50 2a 2a 2a 2a ┆ LC A5,TDBNC+1,A11 t P CALL CONVRT t P RTN A14 t P EJECT t 8 P****┆
0x245e2…24632 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 ec 00 38 00 50 2a 20 20 47 45 54 53 44 43 20 2d 20 47 45 54 20 4e 55 4d 42 45 52 20 4f ┆*********************************************** t 8 P* GETSDC - GET NUMBER O┆
0x24632…24682 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 28 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 ┆F SPECIAL DEVICE CLASSES * t ( 8 P********************************************┆
0x24682…246d2 (373, 0, 400) 2a 2a 2a 2a 2a 2a 2a 20 01 74 01 64 00 06 00 50 2a 20 01 75 00 10 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 1a 00 06 00 50 2a 20 01 75 00 3a 00 34 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 41 ┆******* t d P* u P* REFERENCED IN: B:TT u P* u : 4 P* ENTRY: A┆
0x246d2…24722 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 44 00 06 00 50 2a 20 01 75 00 7c 00 44 00 50 2a 20 20 45 58 49 54 3a 20 20 20 41 31 20 2d 20 4e 55 4d 42 45 52 20 4f 46 20 ┆9 - POINTER TO NUMBER OF SDC RECORD u D P* u | D P* EXIT: A1 - NUMBER OF ┆
0x24722…24772 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 86 00 06 00 50 2a 20 01 75 00 ce 00 1a 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 41 35 20 01 75 ┆SPECIAL DEVICE CLASSES (BINARY VALUE) u P* u P* WORK REGISTERS: A5 u┆
0x24772…247c2 00 d8 00 06 00 50 2a 20 01 75 00 f6 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 00 00 06 00 50 2a 20 01 75 01 20 00 10 00 50 47 45 54 53 44 43 5c 45 51 55 5c 2a 01 75 01 2a 00 0e 00 50 5c 4c ┆ P* u P* SUBROUTINES: CONVRT u P* u PGETSDC EQU * u * P L┆
0x247c2…24812 43 52 5c 41 35 2c 41 39 01 75 01 3e 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 01 75 01 50 00 10 00 50 5c 4c 43 5c 41 35 2c 31 2c 41 39 20 01 75 01 62 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 01 75 01 76 00 0c 00 50 5c 52 54 4e 5c 41 ┆CR A5,A9 u > P SLL A5,8 u P P LC A5,1,A9 u b P CALL CONVRT u v P RTN A┆
0x24812…24862 (374, 0, 400) 31 34 01 75 01 8a 00 0a 00 50 5c 45 4a 45 43 54 01 76 00 0a 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 2a 2a 2a 2a 01 76 00 18 00 32 00 50 2a 20 ┆14 u P EJECT v 2 P********************************************** v 2 P* ┆
0x24862…248b2 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 4e 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 ┆ GETCLN - GET CLASS IDENTIFICATION NUMBER * v N 2 P****************************┆
0x248b2…24902 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 76 00 84 00 06 00 50 2a 20 01 76 00 ba 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 c4 00 06 00 50 2a 20 01 76 00 e4 00 36 00 50 2a 20 ┆****************** v P* v P* REFERENCED IN: B:TT v P* v 6 P* ┆
0x24902…24952 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 ee 00 06 00 50 2a 20 01 76 01 28 00 3e 00 50 2a 20 20 45 58 49 54 3a 20 20 20 41 31 20 ┆ ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD v P* v ( > P* EXIT: A1 ┆
0x24952…249a2 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 32 00 06 00 50 2a 20 01 76 01 74 00 1a 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a ┆- CLASS IDENTIFICATION NUMBER (BINARY VALUE) v 2 P* v t P* WORK REGISTERS:┆
0x249a2…249f2 (375, 0, 398) 20 20 41 35 01 76 01 7e 00 06 00 50 2a 20 01 77 00 0c 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 16 00 06 00 50 2a 20 01 77 00 36 00 10 00 50 47 45 54 43 4c 4e 5c 45 51 55 5c 2a 01 77 00 40 ┆ A5 v ~ P* w P* SUBROUTINES: CONVRT w P* w 6 PGETCLN EQU * w @┆
0x249f2…24a42 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 43 44 44 31 2c 41 39 01 77 00 54 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 01 77 00 6c 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 43 44 44 32 2c 41 39 01 77 00 7e 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 ┆ P LC A5,TDCDD1,A9 w T P SLL A5,8 w l P LC A5,TDCDD2,A9 w ~ P CALL CONV┆
0x24a42…24a92 52 54 01 77 00 96 00 14 00 50 5c 52 54 4e 5c 41 31 34 5c 52 45 54 55 52 4e 20 01 77 00 aa 00 0a 00 50 5c 45 4a 45 43 54 01 77 00 c2 00 2e 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 ┆RT w P RTN A14 RETURN w P EJECT w . P********************************┆
0x24a92…24ae2 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 77 00 d0 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 02 00 2e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********* w . P* GETLCN - GET LINE CONNECTION NUMBER * w . P************┆
0x24ae2…24b30 2a 2a 2a 2a 2a 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 34 00 06 00 50 2a 20 01 77 01 66 00 1e 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 44 57 54 54 20 01 77 01 70 ┆***************************** w 4 P* w f P* REFERENCED IN: B:DWTT w p┆
0x24b30…24b80 (376, 0, 400) 00 06 00 50 2a 20 01 78 00 04 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 00 0e 00 06 00 50 2a 20 01 78 00 4a ┆ P* x 8 P* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD x P* x J┆
0x24b80…24bd0 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 54 00 06 00 50 2a 20 01 78 00 92 00 1a 00 50 2a 20 20 57 ┆ : P* EXIT: A1 - LINE CONNECTION NUMBER (BINARY VALUE) x T P* x P* W┆
0x24bd0…24c20 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 35 01 78 00 9c 00 06 00 50 2a 20 01 78 00 ba 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 c4 00 06 00 50 2a 20 01 78 00 e4 00 10 00 50 47 45 ┆ORK REGISTERS: A5 x P* x P* SUBROUTINES: CONVRT x P* x PGE┆
0x24c20…24c70 54 4c 43 4e 5c 45 51 55 5c 2a 01 78 00 ee 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 02 00 2a 00 50 5c 53 54 52 5c 41 36 2c 41 31 35 5c 53 41 56 45 ┆TLCN EQU * x * P STR A4,A15 SAVE REGISTER A4 ON STACK x * P STR A6,A15 SAVE┆
0x24c70…24cc0 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 30 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 5e 00 32 00 50 5c 41 44 4b 5c 41 36 2c ┆ REGISTER A6 ON STACK x 0 & P LDR A6,A9 GET START OF TDC RECORD x ^ 2 P ADK A6,┆
0x24cc0…24d10 (377, 0, 400) 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 78 01 88 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 43 4f 4e 4e 45 43 54 49 4f 4e 20 4e ┆TDCLCN ADDRESS LINE CONNECTION NUMBER x , P CALL GETNUM GET LINE CONNECTION N┆
0x24d10…24d60 55 4d 42 45 52 20 01 79 00 2e 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 5e 00 30 00 50 5c 4c 44 52 2a 5c 41 36 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 52 45 47 49 53 54 45 52 20 ┆UMBER y . P LDR A1,A5 SAVE BINARY VALUE y ^ 0 P LDR* A6,A15 RESTORE REGISTER ┆
0x24d60…24db0 41 36 20 46 52 4f 4d 20 53 54 41 43 4b 20 01 79 00 82 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 00 b6 00 0c 00 50 5c 52 54 4e 5c 41 ┆A6 FROM STACK y 0 P LDR* A4,A15 RESTORE REGISTER A4 FROM STACK y P RTN A┆
0x24db0…24e00 31 34 01 79 00 ea 00 0a 00 50 5c 45 4a 45 43 54 01 79 00 fa 00 3a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 79 ┆14 y P EJECT y : P***************************************************** y┆
0x24e00…24e50 01 08 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 46 00 3a 00 50 2a 20 20 47 45 54 54 43 4c 20 2d 20 ┆ : P* * y F : P* GETTCL - ┆
0x24e50…24ea0 (378, 0, 400) 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 84 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 3d 3d ┆GET TASK CLASS TO MATCH * y : P* ===========================┆
0x24ea0…24ef0 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 32 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 ┆===== * z 2 : P* ┆
0x24ef0…24f1c 20 20 20 20 2a 20 01 7a 00 70 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 : P* REFERENCED IN: B:TT ┆
0x24f1c…2a014 […elided…]
0x2a014…2a030 4e 4f 55 47 54 48 20 4d 45 4d 4f 52 59 20 4c 45 46 54 3f 20 01 ae 00 88 00 14 00 50 ┆NOUGTH MEMORY LEFT? P┆
0x2a030…2a080 5c 52 46 28 4c 29 5c 43 48 4b 32 30 5c 59 45 53 01 ae 00 b2 00 30 00 50 43 48 4b 31 30 5c 4c 44 4b 4c 5c 41 31 2c 4c 4d 50 33 5c 49 4e 44 49 43 41 54 45 20 4d 45 4d 4f 52 59 20 4f 56 45 52 46 4c 4f 57 20 01 ae 00 ca 00 10 00 50 5c 43 41 4c ┆ RF(L) CHK20 YES 0 PCHK10 LDKL A1,LMP3 INDICATE MEMORY OVERFLOW P CAL┆
0x2a080…2a0d0 4c 5c 45 52 52 4f 52 20 01 ae 00 fe 00 24 00 50 43 48 4b 32 30 5c 41 44 52 5c 41 31 31 2c 41 32 5c 45 4e 44 20 4f 46 20 54 4f 2d 41 52 45 41 20 01 ae 01 12 00 2e 00 50 5c 4c 44 5c 41 39 2c 53 54 4b 45 4e 44 2b 4c 49 4d 49 54 5c 47 45 54 20 ┆L ERROR $ PCHK20 ADR A11,A2 END OF TO-AREA . P LD A9,STKEND+LIMIT GET ┆
0x2a0d0…2a10c 45 4e 44 20 4f 46 20 53 59 53 54 45 4d 20 41 52 45 41 01 ae 01 3a 00 22 00 50 5c 43 41 4c 4c 5c 43 4d 50 41 44 52 5c 43 4f 4d 50 41 52 45 20 41 44 44 52 45 53 53 45 53 01 ae 01 6c ┆END OF SYSTEM AREA : " P CALL CMPADR COMPARE ADDRESSES l┆
0x2a10c…2a15c (431, 0, 398) 00 26 00 50 5c 52 42 28 47 29 5c 43 48 4b 31 30 5c 53 59 53 54 45 4d 20 41 52 45 41 20 4f 56 45 52 46 4c 4f 57 21 01 af 00 04 00 18 00 50 5c 43 41 4c 4c 5c 4d 4f 56 45 5c 4d 4f 56 45 20 41 52 45 41 01 af 00 2e 00 1e 00 50 5c 4c 44 52 2a 5c ┆ & P RB(G) CHK10 SYSTEM AREA OVERFLOW! P CALL MOVE MOVE AREA . P LDR* ┆
0x2a15c…2a1ac 41 31 31 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 41 31 31 20 01 af 00 4a 00 1c 00 50 5c 4c 44 52 2a 5c 41 39 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 41 39 20 01 af 00 6c 00 0c 00 50 5c 52 54 4e 5c 41 31 34 01 af 00 8c 00 0a 00 50 5c 45 4a 45 ┆A11,A15 RESTORE A11 J P LDR* A9,A15 RESTORE A9 l P RTN A14 P EJE┆
0x2a1ac…2a1fc 43 54 01 af 00 9c 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 af 00 aa 00 44 ┆CT D P**************************************************************** D┆
0x2a1fc…2a24c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 52 54 20 4d 4f 4e 49 54 4f 52 20 53 41 56 45 30 31 55 52 41 54 49 4f 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 01 af 00 f2 00 44 00 50 2a 2a 2a 2a 2a 2a ┆ P* START MONITOR SAVE01URATION * D P******┆
0x2a24c…2a29a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 af 01 3a 00 10 00 50 43 4f 4e 4d 4f 4e 5c 45 51 55 5c 2a ┆********************************************************** : PCONMON EQU *┆
0x2a29a…2a2ea (432, 0, 400) 01 af 01 82 00 28 00 50 5c 43 41 4c 4c 5c 42 3a 54 43 54 5c 42 55 49 4c 44 20 54 41 53 4b 20 43 4f 4e 54 52 4f 4c 20 54 41 42 4c 45 01 b0 00 08 00 0e 00 50 5c 49 46 46 5c 46 4d 3d 30 20 01 b0 00 34 00 26 00 50 5c 43 41 4c 4c 5c 42 3a 46 57 ┆ ( P CALL B:TCT BUILD TASK CONTROL TABLE P IFF FM=0 4 & P CALL B:FW┆
0x2a2ea…2a33a 54 5c 42 55 49 4c 44 20 46 49 4c 45 20 57 4f 52 4b 20 54 41 42 4c 45 53 01 b0 00 46 00 08 00 50 5c 58 49 46 01 b0 00 70 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 ┆T BUILD FILE WORK TABLES F P XIF p ( P CALL MONBLK GENERATE MONITOR BLOCKS┆
0x2a33a…2a38a 01 b0 00 7c 00 0e 00 50 5c 49 46 46 5c 45 44 4d 3d 30 01 b0 00 a8 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 ba 00 36 00 50 ┆ | P IFF EDM=0 2 P CALL B:MXTT BUILD MONITOR EXTENT TASK TABLES 6 P┆
0x2a38a…2a3da 5c 43 41 4c 4c 5c 42 3a 4d 53 45 47 5c 42 55 49 4c 44 20 4d 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 00 f0 00 08 00 50 5c 58 49 46 01 b0 01 2a 00 26 00 50 5c 43 41 4c 4c 5c 42 3a 54 54 ┆ CALL B:MSEG BUILD MONITOR SEGMENT TABLES & TTAB:S P XIF * & P CALL B:TT┆
0x2a3da…2a42a 5c 42 55 49 4c 44 20 55 53 45 52 20 54 41 53 4b 20 54 41 42 4c 45 53 20 01 b0 01 36 00 12 00 50 5c 49 46 46 5c 53 57 50 42 4c 4b 3d 30 20 01 b0 01 60 00 32 00 50 5c 43 41 4c 4c 5c 42 3a 53 57 42 54 5c 42 55 49 4c 44 20 53 57 41 50 50 41 42 ┆ BUILD USER TASK TABLES 6 P IFF SWPBLK=0 ` 2 P CALL B:SWBT BUILD SWAPPAB┆
0x2a42a…2a47a (433, 0, 400) 4c 45 20 57 4f 52 4b 20 42 4c 4f 43 4b 20 54 41 42 4c 45 20 01 b0 01 76 00 08 00 50 5c 58 49 46 01 b1 00 1c 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 28 00 28 00 50 5c 43 41 4c 4c 5c 42 3a 53 54 41 42 ┆LE WORK BLOCK TABLE v P XIF P IFF MMUPAG+DSKPAG=0 ( ( P CALL B:STAB┆
0x2a47a…2a4ca 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 44 00 08 00 50 5c 58 49 46 01 b1 00 70 00 18 00 50 5c 49 46 46 5c 53 50 44 56 43 4c 2b 54 45 44 56 43 4c 3d 30 01 b1 00 7c 00 32 00 50 5c 43 41 4c 4c 5c 42 3a ┆ BUILD SEGMENT TABLE(S) D P XIF p P IFF SPDVCL+TEDVCL=0 | 2 P CALL B:┆
0x2a4ca…2a51a 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 98 00 08 00 50 5c 58 49 46 01 b1 00 ce 00 12 00 50 5c 49 46 46 5c 54 45 44 56 43 4c 3d 30 20 01 b1 00 da 00 32 00 50 ┆DWTS BUILD SPECIAL DEVICE WORK TABLES P XIF P IFF TEDVCL=0 2 P┆
0x2a51a…2a56a 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 00 f0 00 08 00 50 5c 58 49 46 01 b1 01 26 00 2a 00 50 5c 43 41 4c 4c 5c 42 3a 43 44 54 5c 42 55 ┆ CALL B:DWTT BUILD TERMINAL DEVICE WORK TABLES P XIF & * P CALL B:CDT BU┆
0x2a56a…2a5ba 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 32 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 60 00 2a 00 50 5c 43 41 4c 4c 5c 42 3a 49 54 41 42 5c 42 55 49 4c 44 20 49 4e 54 ┆ILD COMMON DEVICE TABLES 2 P IFF TEDVCL=0 =7 ` * P CALL B:ITAB BUILD INT┆
0x2a5ba…2a60a (434, 0, 400) 45 52 52 55 50 54 20 54 41 42 4c 45 5c 3d 37 20 01 b1 01 7a 00 08 00 50 5c 58 49 46 01 b2 00 18 00 12 00 50 5c 49 46 54 5c 44 43 3d 31 5c 5c 3d 37 20 01 b2 00 24 00 36 00 50 5c 43 41 4c 4c 5c 42 3a 43 4e 41 5c 42 55 49 4c 44 20 43 4f 4d 50 ┆ERRUPT TABLE =7 z P XIF P IFT DC=1 =7 $ 6 P CALL B:CNA BUILD COMP┆
0x2a60a…2a65a 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 3a 00 08 00 50 5c 58 49 46 01 b2 00 74 00 0a 00 50 5c 45 4a 45 43 54 01 b2 00 80 00 46 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆UTER NETWORK ARCHITECTURE =7 : P XIF t P EJECT F P******************┆
0x2a65a…2a6aa 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 8e 00 46 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 4f 46 20 4d 4f ┆*********************************************** F P* END OF MO┆
0x2a6aa…2a6fa 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 d8 00 46 00 50 2a 20 20 20 20 20 20 20 2d 43 4f 4e 54 49 4e 55 45 20 57 49 54 48 20 41 50 50 4c 49 43 41 ┆NITOR SAVE01URATION PART * F P* -CONTINUE WITH APPLICA┆
0x2a6fa…2a74a 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 22 00 46 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 ┆TION SAVE01URATION PART * " F P************************************┆
0x2a74a…2a780 (435, 2, 54) 2a 2a 2a 2a 2a 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 6c 00 08 00 50 5c 45 4e 44 01 b3 00 26 40 04 00 00 01 b3 00 32 ┆***************************** l P END &@ 2┆
0x2a780…2a7bc (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┆
0x2a7bc…2a7c4 (437, 1, 8) 20 04 00 00 01 b5 00 04 ┆ ┆
0x2a7c4…2a814 (438, 0, 400) 45 20 41 31 31 20 4f 4e 20 53 54 41 43 4b 01 ad 01 80 00 1a 00 50 5c 4c 44 52 5c 41 31 31 2c 41 33 5c 47 45 54 20 4c 45 4e 47 54 48 01 ae 00 16 00 2e 00 50 5c 58 52 52 5c 41 39 2c 41 39 5c 50 48 59 53 49 43 41 4c 20 45 4e 44 20 4f 46 20 46 ┆E A11 ON STACK P LDR A11,A3 GET LENGTH . P XRR A9,A9 PHYSICAL END OF F┆
0x2a814…2a864 49 52 53 54 20 50 41 52 54 49 54 49 4f 4e 01 ae 00 34 00 30 00 50 5c 53 55 52 5c 41 39 2c 41 32 5c 43 4f 4d 50 55 54 45 20 41 52 45 41 20 4c 45 46 54 20 49 4e 20 46 49 52 53 54 20 50 41 52 54 2e 20 01 ae 00 66 00 26 00 50 5c 43 41 4c 4c 5c ┆IRST PARTITION 4 0 P SUR A9,A2 COMPUTE AREA LEFT IN FIRST PART. f & P CALL ┆
0x2a864…2a8b4 43 4d 50 41 44 52 5c 45 4e 4f 55 47 54 48 20 4d 45 4d 4f 52 59 20 4c 45 46 54 3f 20 01 ae 00 9a 00 14 00 50 5c 52 46 28 4c 29 5c 43 48 4b 32 30 5c 59 45 53 01 ae 00 c4 00 30 00 50 43 48 4b 31 30 5c 4c 44 4b 4c 5c 41 31 2c 4c 4d 50 33 5c 49 ┆CMPADR ENOUGTH MEMORY LEFT? P RF(L) CHK20 YES 0 PCHK10 LDKL A1,LMP3 I┆
0x2a8b4…2a904 4e 44 49 43 41 54 45 20 4d 45 4d 4f 52 59 20 4f 56 45 52 46 4c 4f 57 20 01 ae 00 dc 00 10 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 20 01 ae 01 10 00 24 00 50 43 48 4b 32 30 5c 41 44 52 5c 41 31 31 2c 41 32 5c 45 4e 44 20 4f 46 20 54 4f 2d 41 ┆NDICATE MEMORY OVERFLOW P CALL ERROR $ PCHK20 ADR A11,A2 END OF TO-A┆
0x2a904…2a954 52 45 41 20 01 ae 01 24 00 2e 00 50 5c 4c 44 5c 41 39 2c 53 54 4b 45 4e 44 2b 4c 49 4d 49 54 5c 47 45 54 20 45 4e 44 20 4f 46 20 53 59 53 54 45 4d 20 41 52 45 41 01 ae 01 4c 00 22 00 50 5c 43 41 4c 4c 5c 43 4d 50 41 44 52 5c 43 4f 4d 50 41 ┆REA $ . P LD A9,STKEND+LIMIT GET END OF SYSTEM AREA L " P CALL CMPADR COMPA┆
0x2a954…2a9a4 (439, 0, 398) 52 45 20 41 44 44 52 45 53 53 45 53 01 ae 01 7e 00 26 00 50 5c 52 42 28 47 29 5c 43 48 4b 31 30 5c 53 59 53 54 45 4d 20 41 52 45 41 20 4f 56 45 52 46 4c 4f 57 21 01 af 00 14 00 18 00 50 5c 43 41 4c 4c 5c 4d 4f 56 45 5c 4d 4f 56 45 20 41 52 ┆RE ADDRESSES ~ & P RB(G) CHK10 SYSTEM AREA OVERFLOW! P CALL MOVE MOVE AR┆
0x2a9a4…2a9f4 45 41 01 af 00 3e 00 1e 00 50 5c 4c 44 52 2a 5c 41 31 31 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 41 31 31 20 01 af 00 5a 00 1c 00 50 5c 4c 44 52 2a 5c 41 39 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 41 39 20 01 af 00 7c 00 0c 00 50 5c 52 54 4e ┆EA > P LDR* A11,A15 RESTORE A11 Z P LDR* A9,A15 RESTORE A9 | P RTN┆
0x2a9f4…2aa44 5c 41 31 34 01 af 00 9c 00 0a 00 50 5c 45 4a 45 43 54 01 af 00 ac 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ A14 P EJECT D P******************************************************┆
0x2aa44…2aa94 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 af 00 ba 00 44 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 52 54 20 4d 4f 4e 49 54 4f 52 20 53 41 56 45 30 31 55 52 41 54 49 4f 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆********** D P* START MONITOR SAVE01URATION ┆
0x2aa94…2aae2 20 2a 01 af 01 02 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 af 01 4a ┆ * D P**************************************************************** J┆
0x2aae2…2ab32 (440, 0, 400) 00 10 00 50 43 4f 4e 4d 4f 4e 5c 45 51 55 5c 2a 01 b0 00 04 00 28 00 50 5c 43 41 4c 4c 5c 42 3a 54 43 54 5c 42 55 49 4c 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 ┆ PCONMON EQU * ( P CALL B:TCT BUILD TASK CONTROL TABLE P IFF FM=0 ┆
0x2ab32…2ab82 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 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 ┆ D & P CALL B:FWT BUILD FILE WORK TABLES V P XIF ( P CALL MONBLK GENERAT┆
0x2ab82…2abd2 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 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 ┆E MONITOR BLOCKS P IFF EDM=0 2 P CALL B:MXTT BUILD MONITOR EXTENT TASK┆
0x2abd2…2ac22 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 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 ┆ TABLES 6 P CALL B:MSEG BUILD MONITOR SEGMENT TABLES & TTAB:S P XIF ┆
0x2ac22…2ac72 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 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 ┆ : & P CALL B:TT BUILD USER TASK TABLES F P IFF SWPBLK=0 p 2 P CALL B:SW┆
0x2ac72…2acc2 (441, 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┆
0x2acc2…2ad12 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┆
0x2ad12…2ad62 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┆
0x2ad62…2adb2 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 *┆
0x2adb2…2ae02 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 ┆
0x2ae02…2ae52 (442, 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 ┆
0x2ae52…2aea2 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**┆
0x2aea2…2aef2 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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* ┆
0x2aef2…2af42 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┆
0x2af42…2af92 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********************┆
0x2af92…2afd8 (443, 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┆
0x2afd8…2b014 (444, 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┆