|
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: 176812 (0x2b2ac)
Notes: pts_type(SC)
Names: »SYSLDM.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PTMON/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 00 SUMR EQU 00 SALCUZ EQU 00 ASCU4Z EQU 00 FT80 EQU 00 PLCL EQU 01 PLCR EQU 01 VIDEO EQU 00 TEDVCL EQU 01 SPDVCL EQU 01 NOEXMB EQU X:K FM EQU 00 DC EQU 01 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 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 00 «, t00=0x000d, t01=0x0140}
0x0159a…015ae Head {h00=0x0010, h01=0x0050, text=»SUMR EQU 00 «, 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 01 «, t00=0x000e, t01=0x0018}
0x01602…01616 Head {h00=0x0010, h01=0x0050, text=»PLCR EQU 01 «, 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 01 «, 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…17d48 Head {h00=0x0024, h01=0x0050, text=»CDG:18 RF CDG:EX CDTAB COMPLETE!«, t00=0x00f4, t01=0x001a}
0x17d48…17d72 Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00f4, t01=0x0042}
0x17d72…17d9a Head {h00=0x0024, h01=0x0050, text=» RB(P) CDG:15 MORE APPLICATIONS «, t00=0x00f4, t01=0x006c}
0x17d9a…17dc0 Head {h00=0x0022, h01=0x0050, text=» RF CDGEX NO MORE APPLICATIONS«, t00=0x00f4, t01=0x0094}
0x17dc0…17dd4 Head {h00=0x0010, h01=0x0050, text=»CDG:19 EQU *«, t00=0x00f4, t01=0x00ba}
0x17dd4…17dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x00ce}
0x17dde…17e20 Head {h00=0x003e, h01=0x0050, text=»* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES«, t00=0x00f4, t01=0x00d8}
0x17e20…17e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f4, t01=0x011a}
0x17e2a…17e58 Head {h00=0x002a, h01=0x0050, text=» LDR A9,A11 START OF COMMON DEF. BLOCK«, t00=0x00f4, t01=0x0124}
0x17e58…17e92 Head {h00=0x0036, h01=0x0050, text=» ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES «, t00=0x00f4, t01=0x0152}
0x17e92…17ebc Head {h00=0x0026, h01=0x0050, text=» CALL GETCTC GET NUMBER OF C.T.C. «, t00=0x00f4, t01=0x018c}
0x17ebc…17eec Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 ANY COMMON TERMINAL CLASSES? «, t00=0x00f5, t01=0x0026}
0x17eec…17f0c Head {h00=0x001c, h01=0x0050, text=»B:CT40 RF(Z) B:CT50 NO! «, t00=0x00f5, t01=0x0056}
0x17f0c…17f2e Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+NBRCOM SAVE «, t00=0x00f5, t01=0x0076}
0x17f2e…17f5a Head {h00=0x0028, h01=0x0050, text=» CALL GETCLN GET CLASS IDENT NUMBER «, t00=0x00f5, t01=0x0098}
0x17f5a…17f7c Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+CLASID SAVE «, t00=0x00f5, t01=0x00c4}
0x17f7c…17fac Head {h00=0x002c, h01=0x0050, text=» CALL GETLCN GET LINE CONNECTION NUMBER «, t00=0x00f5, t01=0x00e6}
0x17fac…17fc4 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x00f5, t01=0x0116}
0x17fc4…17ff8 Head {h00=0x0030, h01=0x0050, text=» LD A2,STKEND+CLASID GET CLASS IDENT NUMBER «, t00=0x00f5, t01=0x012e}
0x17ff8…18022 Head {h00=0x0026, h01=0x0050, text=» ADR A2,A2 CONVERT TO DISPLACEMENT«, t00=0x00f5, t01=0x0162}
0x18022…18052 Head {h00=0x002c, h01=0x0050, text=» LD A7,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x00f5, t01=0x018c}
0x18052…1807c Head {h00=0x0026, h01=0x0050, text=» ADR A7,A2 SELECT ENTRY IN TCLASS «, t00=0x00f6, t01=0x002c}
0x1807c…180a4 Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET POINTER TO CLASS«, t00=0x00f6, t01=0x0056}
0x180a4…180d6 Head {h00=0x002e, h01=0x0050, text=» CALL DWTGEN GENERATE DWT:S FOR THIS CLASS«, t00=0x00f6, t01=0x007e}
0x180d6…18108 Head {h00=0x002e, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE«, t00=0x00f6, t01=0x00b0}
0x18108…1813a Head {h00=0x002e, h01=0x0050, text=» LD A1,STKEND+NBRCOM GET NUMBER OF C.T.C. «, t00=0x00f6, t01=0x00e2}
0x1813a…1815e Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 DECREMENT COUNTER «, t00=0x00f6, t01=0x0114}
0x1815e…18170 Head {h00=0x000e, h01=0x0050, text=» RB B:CT40«, t00=0x00f6, t01=0x0138}
0x18170…18188 Head {h00=0x0014, h01=0x0050, text=»B:CT50 CALL ECHO«, t00=0x00f6, t01=0x014a}
0x18188…18196 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f6, t01=0x0162}
0x18196…181a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x0170}
0x181a0…181d0 Head {h00=0x002c, h01=0x0050, text=»* GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x00f6, t01=0x017a}
0x181d0…181da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x001a}
0x181da…181ee Head {h00=0x0010, h01=0x0050, text=» CALL GETSDC«, t00=0x00f7, t01=0x0024}
0x181ee…1820c Head {h00=0x001a, h01=0x0050, text=» ADKL A9,SDCFST-CDBNC «, t00=0x00f7, t01=0x0038}
0x1820c…1821e Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x00f7, t01=0x0056}
0x1821e…18232 Head {h00=0x0010, h01=0x0050, text=»CDG:20 EQU *«, t00=0x00f7, t01=0x0068}
0x18232…18248 Head {h00=0x0012, h01=0x0050, text=» RB(NP) CDG:18«, t00=0x00f7, t01=0x007c}
0x18248…18252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x0092}
0x18252…1827c Head {h00=0x0026, h01=0x0050, text=»* GET SPECIAL DEVICE CLASS NUMBER«, t00=0x00f7, t01=0x009c}
0x1827c…18286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x00c6}
0x18286…1829a Head {h00=0x0010, h01=0x0050, text=» CALL GETCLN«, t00=0x00f7, t01=0x00d0}
0x1829a…182a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x00e4}
0x182a4…182d8 Head {h00=0x0030, h01=0x0050, text=»* GET CORRESPONDING DEVICE CLASS IN SCLASS «, t00=0x00f7, t01=0x00ee}
0x182d8…182e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f7, t01=0x0122}
0x182e2…182f8 Head {h00=0x0012, h01=0x0050, text=» ADR A1,A1 T «, t00=0x00f7, t01=0x012c}
0x182f8…18328 Head {h00=0x002c, h01=0x0050, text=» LD A6,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00f7, t01=0x0142}
0x18328…18348 Head {h00=0x001c, h01=0x0050, text=» ADR A6,A1 SELECT CLASS «, t00=0x00f7, t01=0x0172}
0x18348…18372 (248, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LDR* A5,A6 SAVE POINTER TO CLASS «, t00=0x00f8, t01=0x0004}
0x18372…1839a Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO CLASS«, t00=0x00f8, t01=0x002e}
0x1839a…183c2 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET LENGTH OF CLASS «, t00=0x00f8, t01=0x0056}
0x183c2…183e8 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00f8, t01=0x007e}
0x183e8…183fc Head {h00=0x0010, h01=0x0050, text=»CDG:30 EQU *«, t00=0x00f8, t01=0x00a4}
0x183fc…1841a Head {h00=0x001a, h01=0x0050, text=» ADK A5,4 NEXT DEVICE «, t00=0x00f8, t01=0x00b8}
0x1841a…1843e Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A5 GET DWT-ADDRESS «, t00=0x00f8, t01=0x00d6}
0x1843e…1846a Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTLEN,A1 GENERATION OF DWT? «, t00=0x00f8, t01=0x00fa}
0x1846a…18482 Head {h00=0x0014, h01=0x0050, text=» RF(Z) CDG:40 NO«, t00=0x00f8, t01=0x0126}
0x18482…1848c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x013e}
0x1848c…184a0 Head {h00=0x0010, h01=0x0050, text=»* COPY DWT «, t00=0x00f8, t01=0x0148}
0x184a0…184aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x015c}
0x184aa…184c8 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A12 TO-ADDRESS«, t00=0x00f8, t01=0x0166}
0x184c8…184f8 Head {h00=0x002c, h01=0x0050, text=» ADR A12,A3 UPDATE POINTER TO FREE AREA «, t00=0x00f8, t01=0x0184}
0x184f8…18516 Head {h00=0x001a, h01=0x0050, text=» CALL CHKMOV COPY DWT «, t00=0x00f9, t01=0x0024}
0x18516…18520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0042}
0x18520…18558 Head {h00=0x0034, h01=0x0050, text=»* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM«, t00=0x00f9, t01=0x004c}
0x18558…18562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0084}
0x18562…18588 Head {h00=0x0022, h01=0x0050, text=» LD A3,SCTOPT GET OPTION WORD «, t00=0x00f9, t01=0x008e}
0x18588…185a8 Head {h00=0x001c, h01=0x0050, text=» ANK A3,1 MMU IN SYSTEM?«, t00=0x00f9, t01=0x00b4}
0x185a8…185c2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:35 NO! «, t00=0x00f9, t01=0x00d4}
0x185c2…185ee Head {h00=0x0028, h01=0x0050, text=» LDR A3,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x00f9, t01=0x00ee}
0x185ee…1861c Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 COMPUTE RELOCATION CONSTANT«, t00=0x00f9, t01=0x011a}
0x1861c…1864c Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x00f9, t01=0x0148}
0x1864c…18670 Head {h00=0x0020, h01=0x0050, text=» ANKL A4,/FFFE MAKE IT EVEN!«, t00=0x00f9, t01=0x0178}
0x18670…1868c Head {h00=0x0018, h01=0x0050, text=» SUR A4,A3 RELOCATE «, t00=0x00fa, t01=0x000c}
0x1868c…186b2 Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTMEC,A2 STORE IT BACK«, t00=0x00fa, t01=0x0028}
0x186b2…186c6 Head {h00=0x0010, h01=0x0050, text=»CDG:35 EQU *«, t00=0x00fa, t01=0x004e}
0x186c6…186ec Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 DWT-ADDRESS TO USE «, t00=0x00fa, t01=0x0062}
0x186ec…18700 Head {h00=0x0010, h01=0x0050, text=»CDG:40 EQU *«, t00=0x00fa, t01=0x0088}
0x18700…1870a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x009c}
0x1870a…1873c Head {h00=0x002e, h01=0x0050, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x00fa, t01=0x00a6}
0x1873c…18746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x00d8}
0x18746…1876c Head {h00=0x0022, h01=0x0050, text=» ST A1,4,A10 STORE DWT-ADDRESS«, t00=0x00fa, t01=0x00e2}
0x1876c…1878e Head {h00=0x001e, h01=0x0050, text=» LD A1,-2,A5 GET FILE CODE«, t00=0x00fa, t01=0x0108}
0x1878e…187b0 Head {h00=0x001e, h01=0x0050, text=» ST A1,2,A10 STORE IN TTAB«, t00=0x00fa, t01=0x012a}
0x187b0…187d8 Head {h00=0x0024, h01=0x0050, text=» ADKL A10,4 NEXT ENTRY IN CD:TAB«, t00=0x00fa, t01=0x014c}
0x187d8…18802 Head {h00=0x0026, h01=0x0050, text=» SUK A6,4 DECREMENT DEVICE COUNTER«, t00=0x00fa, t01=0x0174}
0x18802…18824 Head {h00=0x001e, h01=0x0050, text=» RB(P) CDG:30 NEXT DEVICE «, t00=0x00fb, t01=0x000e}
0x18824…18832 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fb, t01=0x0030}
0x18832…1883c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x003e}
0x1883c…1886c Head {h00=0x002c, h01=0x0050, text=»* CHECK IF MOORE SPECIAL DEVICE CLASSES«, t00=0x00fb, t01=0x0048}
0x1886c…18876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fb, t01=0x0078}
0x18876…1888a Head {h00=0x0010, h01=0x0050, text=» ADKL A9,SDC«, t00=0x00fb, t01=0x0082}
0x1888a…1889c Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x00fb, t01=0x0096}
0x1889c…188ae Head {h00=0x000e, h01=0x0050, text=» RB CDG:20«, t00=0x00fb, t01=0x00a8}
0x188ae…188c2 Head {h00=0x0010, h01=0x0050, text=»CDGEX EQU * «, t00=0x00fb, t01=0x00ba}
0x188c2…188e8 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTDMT DATA MANAGEMENT «, t00=0x00fb, t01=0x00ce}
0x188e8…18910 Head {h00=0x0024, h01=0x0050, text=» LD A5,SCTDCT DATA COMMUNICATION«, t00=0x00fb, t01=0x00f4}
0x18910…1892c Head {h00=0x0018, h01=0x0050, text=» ORR A1,A5 DM OR DC?«, t00=0x00fb, t01=0x011c}
0x1892c…18952 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x00fb, t01=0x0138}
0x18952…1897a Head {h00=0x0024, h01=0x0050, text=» ANK A5,/E DISC PAGING OR SWB:S?«, t00=0x00fb, t01=0x015e}
0x1897a…189aa Head {h00=0x002c, h01=0x0050, text=» ORR A1,A5 COPY LAST SCLASS IF NOT ZERO «, t00=0x00fb, t01=0x0186}
0x189aa…189c4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:EX NO! «, t00=0x00fc, t01=0x0026}
0x189c4…189f4 Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00fc, t01=0x0040}
0x189f4…18a1c Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A5 GET LENGTH OF SCLASS«, t00=0x00fc, t01=0x0070}
0x18a1c…18a42 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x00fc, t01=0x0098}
0x18a42…18a64 Head {h00=0x001e, h01=0x0050, text=» ADR A5,A1 GET LAST ENTRY «, t00=0x00fc, t01=0x00be}
0x18a64…18a92 Head {h00=0x002a, h01=0x0050, text=» LDR* A5,A5 GET POINTER TO LAST CLASS «, t00=0x00fc, t01=0x00e0}
0x18a92…18abe Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A5 GET LENGTH OF LAST CLASS«, t00=0x00fc, t01=0x010e}
0x18abe…18ae4 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00fc, t01=0x013a}
0x18ae4…18af6 Head {h00=0x000e, h01=0x0050, text=» RB CDG:30«, t00=0x00fc, t01=0x0160}
0x18af6…18b0a Head {h00=0x0010, h01=0x0050, text=»CDG:EX EQU *«, t00=0x00fc, t01=0x0172}
0x18b0a…18b3a Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x00fc, t01=0x0186}
0x18b3a…18b52 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00fd, t01=0x0026}
0x18b52…18b60 Head {h00=0x000a, h01=0x0050, text=» =6«, t00=0x00fd, t01=0x003e}
0x18b60…18b6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fd, t01=0x004c}
0x18b6e…18bbc Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x00fd, t01=0x005a}
0x18bbc…18c08 Head {h00=0x0048, h01=0x0050, text=»* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS «, t00=0x00fd, t01=0x00a8}
0x18c08…18c56 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x00fd, t01=0x00f4}
0x18c56…18c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x0142}
0x18c60…18c98 Head {h00=0x0034, h01=0x0050, text=»* ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) «, t00=0x00fd, t01=0x014c}
0x18c98…18cda Head {h00=0x003e, h01=0x0050, text=»* A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS«, t00=0x00fd, t01=0x0184}
0x18cda…18d08 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x00fe, t01=0x0036}
0x18d08…18d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0064}
0x18d12…18d22 Head {h00=0x000c, h01=0x0050, text=»* EXIT:«, t00=0x00fe, t01=0x006e}
0x18d22…18d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x007e}
0x18d2c…18d4c Head {h00=0x001c, h01=0x0050, text=»* WORK REGISTERS: A1-A8«, t00=0x00fe, t01=0x0088}
0x18d4c…18d56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x00a8}
0x18d56…18d78 Head {h00=0x001e, h01=0x0050, text=»* SUBROUTINES: I:CHP,MOVE«, t00=0x00fe, t01=0x00b2}
0x18d78…18d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x00d4}
0x18d82…18d90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fe, t01=0x00de}
0x18d90…18da4 Head {h00=0x0010, h01=0x0050, text=»DWTGEN EQU *«, t00=0x00fe, t01=0x00ec}
0x18da4…18ddc Head {h00=0x0034, h01=0x0050, text=» ST A6,STKEND+LCNBR SAVE LINE CONNECTION NUMBER «, t00=0x00fe, t01=0x0100}
0x18ddc…18e08 Head {h00=0x0028, h01=0x0050, text=» LDR* A8,A7 GET LENGTH OF THIS CLASS«, t00=0x00fe, t01=0x0138}
0x18e08…18e30 Head {h00=0x0024, h01=0x0050, text=» SUKL A8,2 EXCLUSIVE LENGTH WORD«, t00=0x00fe, t01=0x0164}
0x18e30…18e50 Head {h00=0x001c, h01=0x0050, text=» ADK A7,2 FIRST FILECODE«, t00=0x00fe, t01=0x018c}
0x18e50…18e64 Head {h00=0x0010, h01=0x0050, text=»DWT05 EQU * «, t00=0x00ff, t01=0x001c}
0x18e64…18e96 Head {h00=0x002e, h01=0x0050, text=» LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT «, t00=0x00ff, t01=0x0030}
0x18e96…18ecc Head {h00=0x0032, h01=0x0050, text=» LD A6,STKEND+LCNBR GET LINE CONNECTION NUMBER«, t00=0x00ff, t01=0x0062}
0x18ecc…18ed6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ff, t01=0x0098}
0x18ed6…18ef6 Head {h00=0x001c, h01=0x0050, text=»* CHECK CONNECTION TYPE«, t00=0x00ff, t01=0x00a2}
0x18ef6…18f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ff, t01=0x00c2}
0x18f00…18f30 Head {h00=0x002c, h01=0x0050, text=» LC A4,TDC+6,A9 GET LINE CONNECTION TYPE«, t00=0x00ff, t01=0x00cc}
0x18f30…18f58 Head {h00=0x0024, h01=0x0050, text=» CCK A4,'SS' SALCUZ CONNECTION? «, t00=0x00ff, t01=0x00fc}
0x18f58…18f72 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT10 NO! «, t00=0x00ff, t01=0x0124}
0x18f72…18fa6 Head {h00=0x0030, h01=0x0050, text=» CALL I:CHSZ INIT CHANNEL PARAMETERS SALCUZ «, t00=0x00ff, t01=0x013e}
0x18fa6…18fb8 Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x00ff, t01=0x0172}
0x18fb8…18fe4 Head {h00=0x0028, h01=0x0050, text=»DWT10 CCK A4,'AA' ASCU4Z CONNECTION?«, t00=0x00ff, t01=0x0184}
0x18fe4…18ffe Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT07 NO! «, t00=0x0100, t01=0x0020}
0x18ffe…19030 Head {h00=0x002e, h01=0x0050, text=» CALL I:CHAZ INIT CHANEL PARAMETERS ASCU4Z«, t00=0x0100, t01=0x003a}
0x19030…19042 Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x0100, t01=0x006c}
0x19042…19070 Head {h00=0x002a, h01=0x0050, text=»DWT07 CCK A4,'VV' VCCU1/4 CONNECTION? «, t00=0x0100, t01=0x007e}
0x19070…19086 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DWT11 «, t00=0x0100, t01=0x00ac}
0x19086…190ba Head {h00=0x0030, h01=0x0050, text=» CALL I:CHVC INIT CHANNEL PARAMETERS VCCU1/4«, t00=0x0100, t01=0x00c2}
0x190ba…190cc Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x0100, t01=0x00f6}
0x190cc…190f6 Head {h00=0x0026, h01=0x0050, text=»DWT11 CCK A4,'PP' PLC CONNECTION? «, t00=0x0100, t01=0x0108}
0x190f6…19110 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT12 NO! «, t00=0x0100, t01=0x0132}
0x19110…19142 Head {h00=0x002e, h01=0x0050, text=» CALL I:CHPC INIT CHANNEL PARAMETERS LWSI «, t00=0x0100, t01=0x014c}
0x19142…19154 Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x0100, t01=0x017e}
0x19154…1917c Head {h00=0x0024, h01=0x0050, text=»DWT12 CCK A4,'LL' LT CONNECTION?«, t00=0x0100, t01=0x0190}
0x1917c…19196 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT08 NO! «, t00=0x0101, t01=0x0028}
0x19196…191c6 Head {h00=0x002c, h01=0x0050, text=» CALL I:CHLT INIT CHANNEL PARAMETERS LT «, t00=0x0101, t01=0x0042}
0x191c6…191d8 Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x0101, t01=0x0072}
0x191d8…19200 Head {h00=0x0024, h01=0x0050, text=»DWT08 CCK A4,'RR' RT CONNECTION?«, t00=0x0101, t01=0x0084}
0x19200…1921c Head {h00=0x0018, h01=0x0050, text=» RF(NE) DWT09 NO! =8«, t00=0x0101, t01=0x00ac}
0x1921c…1924e Head {h00=0x002e, h01=0x0050, text=» CALL I:CHRT INIT CHANNEL PARAMETERS RT =8«, t00=0x0101, t01=0x00c8}
0x1924e…19264 Head {h00=0x0012, h01=0x0050, text=» RF DWT31 =8 «, t00=0x0101, t01=0x00fa}
0x19264…19292 Head {h00=0x002a, h01=0x0050, text=»DWT09 CCK A4,'QQ' RWSI CONNECTION? =8 «, t00=0x0101, t01=0x0110}
0x19292…192ae Head {h00=0x0018, h01=0x0050, text=» RF(E) DWT06 YES! =8«, t00=0x0101, t01=0x013e}
0x192ae…192da Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP4 INDICATE FORMAT ERROR «, t00=0x0101, t01=0x015a}
0x192da…192ee Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0101, t01=0x0186}
0x192ee…19328 Head {h00=0x0036, h01=0x0050, text=»DWT06 CALL I:CHRI INIT CHANNEL PARAMETERS RWSI =8 «, t00=0x0102, t01=0x000a}
0x19328…1933c Head {h00=0x0010, h01=0x0050, text=»DWT31 EQU * «, t00=0x0102, t01=0x0044}
0x1933c…1935e Head {h00=0x001e, h01=0x0050, text=» ST A3,STKEND+CONTYP SAVE «, t00=0x0102, t01=0x0058}
0x1935e…1937e Head {h00=0x001c, h01=0x0050, text=» ST A5,STKEND+WRK3 SAVE «, t00=0x0102, t01=0x007a}
0x1937e…1939e Head {h00=0x001c, h01=0x0050, text=» ST A6,STKEND+WRK4 SAVE «, t00=0x0102, t01=0x009a}
0x1939e…193a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x00ba}
0x193a8…193de Head {h00=0x0032, h01=0x0050, text=»* CHECK IF DWT ALREADY GENERATED ON THIS LINE«, t00=0x0102, t01=0x00c4}
0x193de…193e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x00fa}
0x193e8…19418 Head {h00=0x002c, h01=0x0050, text=» LD A4,STKEND+INTTAB GET START OF T.I.T.«, t00=0x0102, t01=0x0104}
0x19418…19440 Head {h00=0x0024, h01=0x0050, text=» LDR* A5,A4 GET NUMBER OF BLOCKS«, t00=0x0102, t01=0x0134}
0x19440…19452 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0102, t01=0x015c}
0x19452…19464 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A5«, t00=0x0102, t01=0x016e}
0x19464…19478 Head {h00=0x0010, h01=0x0050, text=»DWT13 EQU * «, t00=0x0102, t01=0x0180}
0x19478…1948c (259, 0, 400) Head {h00=0x0010, h01=0x0050, text=» RF(Z) DWT32«, t00=0x0103, t01=0x0004}
0x1948c…194c6 Head {h00=0x0036, h01=0x0050, text=» LD A3,STKEND+CONTYP GET LINE AND CONNECTION TYPE «, t00=0x0103, t01=0x0018}
0x194c6…194e2 Head {h00=0x0018, h01=0x0050, text=» CW A3,-4,A4 EQUAL? «, t00=0x0103, t01=0x0052}
0x194e2…194fc Head {h00=0x0016, h01=0x0050, text=» RF(Z) DWT15 YES! «, t00=0x0103, t01=0x006e}
0x194fc…19510 Head {h00=0x0010, h01=0x0050, text=»DWT14 EQU * «, t00=0x0103, t01=0x0088}
0x19510…19536 Head {h00=0x0022, h01=0x0050, text=» LDR* A4,A4 GET NEXT BLOCK =7 «, t00=0x0103, t01=0x009c}
0x19536…19562 Head {h00=0x0028, h01=0x0050, text=» SUK A5,1 DECREMENT NUMBER OF BLOCKS«, t00=0x0103, t01=0x00c2}
0x19562…19574 Head {h00=0x000e, h01=0x0050, text=» RB DWT13 «, t00=0x0103, t01=0x00ee}
0x19574…19588 Head {h00=0x0010, h01=0x0050, text=»DWT15 EQU * «, t00=0x0103, t01=0x0100}
0x19588…195b6 Head {h00=0x002a, h01=0x0050, text=» LD A2,-2,A4 GET RUN-TIME DWT-ADDRESS «, t00=0x0103, t01=0x0114}
0x195b6…195e6 Head {h00=0x002c, h01=0x0050, text=» LD A6,DWTCP2,A2 GET CHANNEL PARAMETER-2«, t00=0x0103, t01=0x0142}
0x195e6…1960e Head {h00=0x0024, h01=0x0050, text=» ANK A6,/003F GET DEVICE ADDRESS«, t00=0x0103, t01=0x0172}
0x1960e…19640 Head {h00=0x002e, h01=0x0050, text=» LD A3,STKEND+WRK3 GET CHANNEL PARAMETER-2«, t00=0x0104, t01=0x000a}
0x19640…19668 Head {h00=0x0024, h01=0x0050, text=» ANK A3,/003F GET DEVICE ADDRESS«, t00=0x0104, t01=0x003c}
0x19668…19682 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A6 EQUAL? «, t00=0x0104, t01=0x0064}
0x19682…1969c Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT14 NO! «, t00=0x0104, t01=0x007e}
0x1969c…196c6 Head {h00=0x0026, h01=0x0050, text=» LD A6,DWTST,A2 GET DEVICE STATUS «, t00=0x0104, t01=0x0098}
0x196c6…196ec Head {h00=0x0022, h01=0x0050, text=» ANK A6,/00C0 GET BITS 8 AND 9«, t00=0x0104, t01=0x00c2}
0x196ec…19716 Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTST,A1 GET DEVICE STATUS «, t00=0x0104, t01=0x00e8}
0x19716…1973c Head {h00=0x0022, h01=0x0050, text=» ANK A3,/00C0 GET BITS 8 AND 9«, t00=0x0104, t01=0x0112}
0x1973c…19756 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A6 EQUAL? «, t00=0x0104, t01=0x0138}
0x19756…1976c Head {h00=0x0012, h01=0x0050, text=» RB(NE) DWT14 «, t00=0x0104, t01=0x0152}
0x1976c…19794 Head {h00=0x0024, h01=0x0050, text=» LD A6,DWTTAB,A2 GET DEVICE TYPE«, t00=0x0104, t01=0x0168}
0x19794…197bc Head {h00=0x0024, h01=0x0050, text=» ANKL A6,/8000 ISOLATE ECHO BIT «, t00=0x0104, t01=0x0190}
0x197bc…197e4 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTTAB,A1 GET DEVICE TYPE«, t00=0x0105, t01=0x0028}
0x197e4…1980c Head {h00=0x0024, h01=0x0050, text=» ANKL A3,/8000 ISOLATE ECHO BIT «, t00=0x0105, t01=0x0050}
0x1980c…19826 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A6 EQUAL? «, t00=0x0105, t01=0x0078}
0x19826…19840 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT14 NO! «, t00=0x0105, t01=0x0092}
0x19840…19854 Head {h00=0x0010, h01=0x0050, text=» CALL DWT50 «, t00=0x0105, t01=0x00ac}
0x19854…1986a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,DWT70«, t00=0x0105, t01=0x00c0}
0x1986a…19886 Head {h00=0x0018, h01=0x0050, text=» AD A1,STKCOM+M:REL «, t00=0x0105, t01=0x00d6}
0x19886…19896 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0105, t01=0x00f2}
0x19896…198aa Head {h00=0x0010, h01=0x0050, text=»DWT32 EQU * «, t00=0x0105, t01=0x0102}
0x198aa…198d6 Head {h00=0x0028, h01=0x0050, text=» LDR A5,A12 GET RUN TIME DWT-ADDRESS«, t00=0x0105, t01=0x0116}
0x198d6…19904 Head {h00=0x002a, h01=0x0050, text=» CALL B:TTAB BUILD ONE BLOCK IN T.I.T.«, t00=0x0105, t01=0x0142}
0x19904…1990e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0170}
0x1990e…1992e Head {h00=0x001c, h01=0x0050, text=»* COPY DEVICE TYPE DWT «, t00=0x0105, t01=0x017a}
0x1992e…19938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x000a}
0x19938…19956 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A12 TO-ADDRESS«, t00=0x0106, t01=0x0014}
0x19956…19974 Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTOR,A1 LENGTH«, t00=0x0106, t01=0x0032}
0x19974…19998 Head {h00=0x0020, h01=0x0050, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x0106, t01=0x0050}
0x19998…199ac Head {h00=0x0010, h01=0x0050, text=» CALL CHKMOV«, t00=0x0106, t01=0x0074}
0x199ac…199ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0106, t01=0x0088}
0x199ba…199c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x0096}
0x199c4…199ec Head {h00=0x0024, h01=0x0050, text=»* A1 - ADDRESS TO PROTOTYPE DWT«, t00=0x0106, t01=0x00a0}
0x199ec…19a10 Head {h00=0x0020, h01=0x0050, text=»* A2 - ADDRESS TO REAL DWT «, t00=0x0106, t01=0x00c8}
0x19a10…19a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x00ec}
0x19a1a…19a34 Head {h00=0x0016, h01=0x0050, text=» LD A6,STKEND+WRK4«, t00=0x0106, t01=0x00f6}
0x19a34…19a4e Head {h00=0x0016, h01=0x0050, text=» LD A5,STKEND+WRK3«, t00=0x0106, t01=0x0110}
0x19a4e…19a7c Head {h00=0x002a, h01=0x0050, text=» STR A6,A2 STORE CHANNEL PARAMETERS -1«, t00=0x0106, t01=0x012a}
0x19a7c…19ab0 Head {h00=0x0030, h01=0x0050, text=» ST A5,DWTCP2,A2 STORE CHANNEL PARAMETERS -2«, t00=0x0106, t01=0x0158}
0x19ab0…19aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x018c}
0x19aba…19ada Head {h00=0x001c, h01=0x0050, text=»* CHECK IF INPUT DEVICE«, t00=0x0107, t01=0x0008}
0x19ada…19ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x0028}
0x19ae4…19b06 Head {h00=0x001e, h01=0x0050, text=» LD A3,2,A1 GET DWT STATUS«, t00=0x0107, t01=0x0032}
0x19b06…19b2a Head {h00=0x0020, h01=0x0050, text=» ANK A3,/0040 INPUT DEVICE? «, t00=0x0107, t01=0x0054}
0x19b2a…19b42 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT45 NO «, t00=0x0107, t01=0x0078}
0x19b42…19b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x0090}
0x19b4c…19b64 Head {h00=0x0014, h01=0x0050, text=»* INPUT DEVICE:«, t00=0x0107, t01=0x009a}
0x19b64…19b80 Head {h00=0x0018, h01=0x0050, text=»* CHECK IF KEYBOARD«, t00=0x0107, t01=0x00b2}
0x19b80…19b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x00ce}
0x19b8a…19ba4 Head {h00=0x0016, h01=0x0050, text=» LD A3,DWTADR,A1 «, t00=0x0107, t01=0x00d8}
0x19ba4…19bbc Head {h00=0x0014, h01=0x0050, text=» LD A3,DEVIND,A3«, t00=0x0107, t01=0x00f2}
0x19bbc…19bce Head {h00=0x000e, h01=0x0050, text=» CWK A3,6 «, t00=0x0107, t01=0x010a}
0x19bce…19bf0 Head {h00=0x001e, h01=0x0050, text=» RF(NE) DWT60 NOT KEYBOARD«, t00=0x0107, t01=0x011c}
0x19bf0…19bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x013e}
0x19bfa…19c1c Head {h00=0x001e, h01=0x0050, text=»* INPUT DEVICE = KEYBOARD«, t00=0x0107, t01=0x0148}
0x19c1c…19c30 Head {h00=0x0010, h01=0x0050, text=»* IF ECHO: «, t00=0x0107, t01=0x016a}
0x19c30…19c3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x017e}
0x19c3a…19c6a Head {h00=0x002c, h01=0x0050, text=»* STORE ADDRESS OF KEYBOARD RUNTIME-DWT«, t00=0x0107, t01=0x0188}
0x19c6a…19ca8 Head {h00=0x003a, h01=0x0050, text=»* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE «, t00=0x0108, t01=0x0028}
0x19ca8…19cb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x0066}
0x19cb2…19cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x0070}
0x19cbc…19cda Head {h00=0x001a, h01=0x0050, text=» LD A5,DWTECH,A1 ECHO?«, t00=0x0108, t01=0x007a}
0x19cda…19cf2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT40 NO «, t00=0x0108, t01=0x0098}
0x19cf2…19d0e Head {h00=0x0018, h01=0x0050, text=» AD A5,STKCOM+M:REL «, t00=0x0108, t01=0x00b0}
0x19d0e…19d4c Head {h00=0x003a, h01=0x0050, text=» LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE «, t00=0x0108, t01=0x00cc}
0x19d4c…19d78 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DWT392 NOT FIRST ECHO DEVICE«, t00=0x0108, t01=0x010a}
0x19d78…19dae Head {h00=0x0032, h01=0x0050, text=» ADK A3,2 INCLUDE LENGTH OF ECHO DEVICE TABLE «, t00=0x0108, t01=0x0136}
0x19dae…19dd2 Head {h00=0x0020, h01=0x0050, text=»DWT392 LDR A4,A3 SAVE LENGTH«, t00=0x0108, t01=0x016c}
0x19dd2…19dfe Head {h00=0x0028, h01=0x0050, text=» AD A4,STKEND+ECHTAB NEXT FREE ENTRY«, t00=0x0108, t01=0x0190}
0x19dfe…19e3a Head {h00=0x0038, h01=0x0050, text=» STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE«, t00=0x0109, t01=0x002c}
0x19e3a…19e7a Head {h00=0x003c, h01=0x0050, text=» ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE«, t00=0x0109, t01=0x0068}
0x19e7a…19e9a Head {h00=0x001c, h01=0x0050, text=» ADK A3,4 UPDATE LENGTH «, t00=0x0109, t01=0x00a8}
0x19e9a…19ec8 Head {h00=0x002a, h01=0x0050, text=» ST* A3,STKEND+ECHTAB SAVE NEW LENGTH «, t00=0x0109, t01=0x00c8}
0x19ec8…19ed6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0109, t01=0x00f6}
0x19ed6…19eea Head {h00=0x0010, h01=0x0050, text=»DWT40 EQU * «, t00=0x0109, t01=0x0104}
0x19eea…19ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x0118}
0x19ef4…19f2a Head {h00=0x0032, h01=0x0050, text=»* RELOCATE POINTERS TO CIRCULAR INPUT BUFFER «, t00=0x0109, t01=0x0122}
0x19f2a…19f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x0158}
0x19f34…19f56 Head {h00=0x001e, h01=0x0050, text=» LDR A5,A2 GET DWT-ADDRESS«, t00=0x0109, t01=0x0162}
0x19f56…19f8c Head {h00=0x0032, h01=0x0050, text=» ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER«, t00=0x0109, t01=0x0184}
0x19f8c…19fb4 Head {h00=0x0024, h01=0x0050, text=» ST A5,DWTSQ-4,A2 STORE POINTER «, t00=0x010a, t01=0x002a}
0x19fb4…19fdc Head {h00=0x0024, h01=0x0050, text=» ST A5,DWTSQ-2,A2 STORE POINTER «, t00=0x010a, t01=0x0052}
0x19fdc…19fe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x007a}
0x19fe6…1a004 Head {h00=0x001a, h01=0x0050, text=»* IF DOUBLE KEYBOARD:«, t00=0x010a, t01=0x0084}
0x1a004…1a04c Head {h00=0x0044, h01=0x0050, text=»* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE«, t00=0x010a, t01=0x00a2}
0x1a04c…1a086 Head {h00=0x0036, h01=0x0050, text=»* IN ENTRY CORRESPONDING TO SECOND DEVICE ADDRESS«, t00=0x010a, t01=0x00ea}
0x1a086…1a090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0124}
0x1a090…1a0c6 Head {h00=0x0032, h01=0x0050, text=» LD A3,DWTDEV,A1 GET DEVICE STATUS OF TYPE DWT«, t00=0x010a, t01=0x012e}
0x1a0c6…1a0f2 Head {h00=0x0028, h01=0x0050, text=» ANK A3,/FF GET EIGTH RIGHTMOST BITS«, t00=0x010a, t01=0x0164}
0x1a0f2…1a11a Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT60 NOT DOUBLE KEYBOARD«, t00=0x010a, t01=0x0190}
0x1a11a…1a142 Head {h00=0x0024, h01=0x0050, text=» LDR A5,A2 GET REAL DWT-ADDRESS «, t00=0x010b, t01=0x0028}
0x1a142…1a15c Head {h00=0x0016, h01=0x0050, text=» ADK A5,1 ADD ONE «, t00=0x010b, t01=0x0050}
0x1a15c…1a18a Head {h00=0x002a, h01=0x0050, text=» CALL B:TTAB BUILD ONE BLOCK IN T.I.T.«, t00=0x010b, t01=0x006a}
0x1a18a…1a19c Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x010b, t01=0x0098}
0x1a19c…1a1c4 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A5 GET REAL DWT-ADDRESS «, t00=0x010b, t01=0x00aa}
0x1a1c4…1a1d6 Head {h00=0x000e, h01=0x0050, text=» RF DWT60 «, t00=0x010b, t01=0x00d2}
0x1a1d6…1a1e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010b, t01=0x00e4}
0x1a1e4…1a1fc Head {h00=0x0014, h01=0x0050, text=»DWT45 CALL DWT50«, t00=0x010b, t01=0x00f2}
0x1a1fc…1a20e Head {h00=0x000e, h01=0x0050, text=» RF DWT60 «, t00=0x010b, t01=0x010a}
0x1a20e…1a222 Head {h00=0x0010, h01=0x0050, text=»DWT50 EQU * «, t00=0x010b, t01=0x011c}
0x1a222…1a22c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x0130}
0x1a22c…1a246 Head {h00=0x0016, h01=0x0050, text=»* OUTPUT DEVICE* «, t00=0x010b, t01=0x013a}
0x1a246…1a276 Head {h00=0x002c, h01=0x0050, text=»* IF BIT 0 IN SIXTH WORD IN DWT IS SET «, t00=0x010b, t01=0x0154}
0x1a276…1a2aa Head {h00=0x0030, h01=0x0050, text=»* THE DEVICE IS TO BE USED FOR ECHOING ON. «, t00=0x010b, t01=0x0184}
0x1a2aa…1a2e4 Head {h00=0x0036, h01=0x0050, text=»* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT«, t00=0x010c, t01=0x0028}
0x1a2e4…1a318 Head {h00=0x0030, h01=0x0050, text=»* IS THEN STORED IN THE ECHO DEVICE TABLE. «, t00=0x010c, t01=0x0062}
0x1a318…1a322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x0096}
0x1a322…1a356 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS «, t00=0x010c, t01=0x00a0}
0x1a356…1a386 Head {h00=0x002c, h01=0x0050, text=» RF(NN) DWT59 NO ECHOING ON THIS DEVICE «, t00=0x010c, t01=0x00d4}
0x1a386…1a3c4 Head {h00=0x003a, h01=0x0050, text=» LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE «, t00=0x010c, t01=0x0104}
0x1a3c4…1a3ee Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DWT55 ALREADY INITIALIZED!«, t00=0x010c, t01=0x0142}
0x1a3ee…1a40e Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 INCLUDE LENGTH«, t00=0x010c, t01=0x016c}
0x1a40e…1a432 Head {h00=0x0020, h01=0x0050, text=»DWT55 LDR A4,A3 SAVE LENGTH «, t00=0x010c, t01=0x018c}
0x1a432…1a45e Head {h00=0x0028, h01=0x0050, text=» AD A4,STKEND+ECHTAB NEXT FREE ENTRY«, t00=0x010d, t01=0x0020}
0x1a45e…1a490 Head {h00=0x002e, h01=0x0050, text=» STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT «, t00=0x010d, t01=0x004c}
0x1a490…1a4c0 Head {h00=0x002c, h01=0x0050, text=» ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT«, t00=0x010d, t01=0x007e}
0x1a4c0…1a4e0 Head {h00=0x001c, h01=0x0050, text=» ADK A3,4 UPDATE LENGTH «, t00=0x010d, t01=0x00ae}
0x1a4e0…1a50e Head {h00=0x002a, h01=0x0050, text=» ST* A3,STKEND+ECHTAB STORE NEW LENGTH«, t00=0x010d, t01=0x00ce}
0x1a50e…1a524 Head {h00=0x0012, h01=0x0050, text=»DWT59 RTN A14 «, t00=0x010d, t01=0x00fc}
0x1a524…1a538 Head {h00=0x0010, h01=0x0050, text=»DWT60 EQU * «, t00=0x010d, t01=0x0112}
0x1a538…1a542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0126}
0x1a542…1a55c Head {h00=0x0016, h01=0x0050, text=»* CHECK IF PAGING«, t00=0x010d, t01=0x0130}
0x1a55c…1a566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x014a}
0x1a566…1a58c Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x010d, t01=0x0154}
0x1a58c…1a5aa Head {h00=0x001a, h01=0x0050, text=» ANK A5,1 MMU PAGING? «, t00=0x010d, t01=0x017a}
0x1a5aa…1a5be Head {h00=0x0010, h01=0x0050, text=» RF(Z) DWT70«, t00=0x010e, t01=0x0008}
0x1a5be…1a5cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x001c}
0x1a5cc…1a5fc Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS«, t00=0x010e, t01=0x002a}
0x1a5fc…1a628 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x010e, t01=0x005a}
0x1a628…1a656 Head {h00=0x002a, h01=0x0050, text=» SUR A4,A2 COMPUTE RELOCATION CONSTANT«, t00=0x010e, t01=0x0086}
0x1a656…1a686 Head {h00=0x002c, h01=0x0050, text=» SUR A5,A4 RELOCATE MONITOR ECB ADDRESS «, t00=0x010e, t01=0x00b4}
0x1a686…1a6ae Head {h00=0x0024, h01=0x0050, text=» ANKL A5,/FFFE MAKE EVEN ADDRESS«, t00=0x010e, t01=0x00e4}
0x1a6ae…1a6d4 Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTMEC,A2 STORE IT BACK«, t00=0x010e, t01=0x010c}
0x1a6d4…1a6de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x0132}
0x1a6de…1a71e Head {h00=0x003c, h01=0x0050, text=»* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED «, t00=0x010e, t01=0x013c}
0x1a71e…1a728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x017c}
0x1a728…1a752 Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTADR,A2 GET ADDRESS BLOCK«, t00=0x010e, t01=0x0186}
0x1a752…1a788 Head {h00=0x0032, h01=0x0050, text=» LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER«, t00=0x010f, t01=0x0020}
0x1a788…1a7b0 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT70 ALLOCATE NO BUFFER!«, t00=0x010f, t01=0x0056}
0x1a7b0…1a7ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x007e}
0x1a7ba…1a80a Head {h00=0x004c, h01=0x0050, text=»* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL«, t00=0x010f, t01=0x0088}
0x1a80a…1a814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x00d8}
0x1a814…1a844 Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x010f, t01=0x00e2}
0x1a844…1a870 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A12 INTERNAL BUFFER ADDRESS «, t00=0x010f, t01=0x0112}
0x1a870…1a884 Head {h00=0x0010, h01=0x0050, text=» ADK A3,1 «, t00=0x010f, t01=0x013e}
0x1a884…1a8b4 Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS«, t00=0x010f, t01=0x0152}
0x1a8b4…1a8ce Head {h00=0x0016, h01=0x0050, text=» ST A3,2,A5 SAVE «, t00=0x010f, t01=0x0182}
0x1a8ce…1a8ec Head {h00=0x001a, h01=0x0050, text=» LDR A3,A4 GET LENGTH «, t00=0x0110, t01=0x000c}
0x1a8ec…1a916 Head {h00=0x0026, h01=0x0050, text=» ADK A3,3 ADD BO FERMS CONSTANT+1 «, t00=0x0110, t01=0x002a}
0x1a916…1a946 Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH «, t00=0x0110, t01=0x0054}
0x1a946…1a954 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0110, t01=0x0084}
0x1a954…1a95e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x0092}
0x1a95e…1a996 Head {h00=0x0034, h01=0x0050, text=»* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN«, t00=0x0110, t01=0x009c}
0x1a996…1a9d0 Head {h00=0x0036, h01=0x0050, text=»* THE SIZE OF BUFFER RESERVED FOR SYSLOD PART A. «, t00=0x0110, t01=0x00d4}
0x1a9d0…1aa08 Head {h00=0x0034, h01=0x0050, text=»* IF YES,THAN STORE THE ADDRESS AND SIZE OF THE«, t00=0x0110, t01=0x010e}
0x1aa08…1aa38 Head {h00=0x002c, h01=0x0050, text=»* INTERNAL BUFFER IN SYSBUF AND BUFSIZ.«, t00=0x0110, t01=0x0146}
0x1aa38…1aa42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x0176}
0x1aa42…1aa60 Head {h00=0x001a, h01=0x0050, text=» CW A3,STKCOM+BUFSIZ «, t00=0x0110, t01=0x0180}
0x1aa60…1aa76 Head {h00=0x0012, h01=0x0050, text=» RF(NG) DWT65 «, t00=0x0111, t01=0x000e}
0x1aa76…1aa92 Head {h00=0x0018, h01=0x0050, text=» ST A3,STKCOM+BUFSIZ«, t00=0x0111, t01=0x0024}
0x1aa92…1aab0 Head {h00=0x001a, h01=0x0050, text=» ST A12,STKCOM+SYSBUF «, t00=0x0111, t01=0x0040}
0x1aab0…1aac4 Head {h00=0x0010, h01=0x0050, text=»DWT65 EQU * «, t00=0x0111, t01=0x005e}
0x1aac4…1aae8 Head {h00=0x0020, h01=0x0050, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x0111, t01=0x0072}
0x1aae8…1aaf6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0111, t01=0x0096}
0x1aaf6…1ab0a Head {h00=0x0010, h01=0x0050, text=»DWT70 EQU * «, t00=0x0111, t01=0x00a4}
0x1ab0a…1ab14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x00b8}
0x1ab14…1ab46 Head {h00=0x002e, h01=0x0050, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x0111, t01=0x00c2}
0x1ab46…1ab50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x00f4}
0x1ab50…1ab76 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x0111, t01=0x00fe}
0x1ab76…1ab9c Head {h00=0x0022, h01=0x0050, text=» LDR* A5,A7 GET INDEX/FILECODE«, t00=0x0111, t01=0x0124}
0x1ab9c…1abca Head {h00=0x002a, h01=0x0050, text=» STR A5,A10 STORE IN TASK CONF. TABLE «, t00=0x0111, t01=0x014a}
0x1abca…1abf0 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x0111, t01=0x0178}
0x1abf0…1ac16 Head {h00=0x0022, h01=0x0050, text=» STR A2,A10 STORE DWT-ADDRESS «, t00=0x0112, t01=0x000e}
0x1ac16…1ac20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x0034}
0x1ac20…1ac50 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF MOORE DEVICES IN THIS CLASS «, t00=0x0112, t01=0x003e}
0x1ac50…1ac5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x006e}
0x1ac5a…1ac6c Head {h00=0x000e, h01=0x0050, text=» SUKL A8,4«, t00=0x0112, t01=0x0078}
0x1ac6c…1ac80 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DWTEX«, t00=0x0112, t01=0x008a}
0x1ac80…1ac9e Head {h00=0x001a, h01=0x0050, text=» ADK A7,4 NEXT DEVICE «, t00=0x0112, t01=0x009e}
0x1ac9e…1acb4 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,DWT05«, t00=0x0112, t01=0x00bc}
0x1acb4…1acd0 Head {h00=0x0018, h01=0x0050, text=» AD A1,STKCOM+M:REL «, t00=0x0112, t01=0x00d2}
0x1acd0…1ace0 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0112, t01=0x00ee}
0x1ace0…1acf4 Head {h00=0x0010, h01=0x0050, text=»DWTEX EQU * «, t00=0x0112, t01=0x00fe}
0x1acf4…1ad04 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0112, t01=0x0112}
0x1ad04…1ad12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0112, t01=0x0122}
0x1ad12…1ad1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x0130}
0x1ad1c…1ad56 Head {h00=0x0036, h01=0x0050, text=»* SCAN ECHO DEVICE TABLE - FOR EVERY COINCIDENCE «, t00=0x0112, t01=0x013a}
0x1ad56…1ad8e Head {h00=0x0034, h01=0x0050, text=»* BETWEEN THE FIRST POINTER IN ONE POINTER-SET «, t00=0x0112, t01=0x0174}
0x1ad8e…1adc6 Head {h00=0x0034, h01=0x0050, text=»* AND SECOND POINTER IN THE OTHER POINTER-SET: «, t00=0x0113, t01=0x001c}
0x1adc6…1adfa Head {h00=0x0030, h01=0x0050, text=»* STORE SECOND POINTER OF FIRST POINTER-SET«, t00=0x0113, t01=0x0054}
0x1adfa…1ae30 Head {h00=0x0032, h01=0x0050, text=»* IN RUNTIME-DWT POINTED AT BY FIRST POINTER «, t00=0x0113, t01=0x0088}
0x1ae30…1ae66 Head {h00=0x0032, h01=0x0050, text=»* OF SECOND POINTER-SET AND CLEAR POINTERS OF«, t00=0x0113, t01=0x00be}
0x1ae66…1ae84 Head {h00=0x001a, h01=0x0050, text=»* SECOND POINTER-SET.«, t00=0x0113, t01=0x00f4}
0x1ae84…1aec0 Head {h00=0x0038, h01=0x0050, text=»* WHEN ALL POINTER-SET HAS BEEN SCANNED,THE LENGTH «, t00=0x0113, t01=0x0112}
0x1aec0…1aeec Head {h00=0x0028, h01=0x0050, text=»* OF ECHO DEVICE TABLE IS CLEARED. «, t00=0x0113, t01=0x014e}
0x1aeec…1aef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x017a}
0x1aef6…1af38 Head {h00=0x003e, h01=0x0050, text=»ECHO LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE «, t00=0x0113, t01=0x0184}
0x1af38…1af5e Head {h00=0x0022, h01=0x0050, text=» RF(Z) DWT160 NO ECHO DEVICES!«, t00=0x0114, t01=0x0036}
0x1af5e…1af9c Head {h00=0x003a, h01=0x0050, text=» AD A3,STKEND+ECHTAB COMPUTE END OF ECHO DEVICE TABLE «, t00=0x0114, t01=0x005c}
0x1af9c…1afd8 Head {h00=0x0038, h01=0x0050, text=» LD A1,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE «, t00=0x0114, t01=0x009a}
0x1afd8…1aff8 Head {h00=0x001c, h01=0x0050, text=» ADK A1,2 BYPASS LENGTH «, t00=0x0114, t01=0x00d6}
0x1aff8…1b038 Head {h00=0x003c, h01=0x0050, text=»DWT90 LD A2,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE«, t00=0x0114, t01=0x00f6}
0x1b038…1b058 Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 BYPASS LENGTH «, t00=0x0114, t01=0x0136}
0x1b058…1b092 Head {h00=0x0036, h01=0x0050, text=»DWT100 LD A4,2,A1 GET SECOND POINTER IN FIRST SET «, t00=0x0114, t01=0x0156}
0x1b092…1b0d4 Head {h00=0x003e, h01=0x0050, text=»DWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET«, t00=0x0114, t01=0x0190}
0x1b0d4…1b0f6 Head {h00=0x001e, h01=0x0050, text=» RF(E) DWT130 COINCIDENCE!«, t00=0x0115, t01=0x0042}
0x1b0f6…1b118 Head {h00=0x001e, h01=0x0050, text=» ADK A2,4 NEXT POINTER-SET«, t00=0x0115, t01=0x0064}
0x1b118…1b144 Head {h00=0x0028, h01=0x0050, text=» CWR A2,A3 END OF ECHO DEVICE TABLE «, t00=0x0115, t01=0x0086}
0x1b144…1b16c Head {h00=0x0024, h01=0x0050, text=» RB(NE) DWT110 NO:CHECK NEXT SET«, t00=0x0115, t01=0x00b2}
0x1b16c…1b17e Head {h00=0x000e, h01=0x0050, text=» RF DWT140«, t00=0x0115, t01=0x00da}
0x1b17e…1b1bc Head {h00=0x003a, h01=0x0050, text=»DWT130 LD A4,2,A2 ADDRESS TO OUTPUT DEVICE RUNTIME-DWT«, t00=0x0115, t01=0x00ec}
0x1b1bc…1b1f4 Head {h00=0x0034, h01=0x0050, text=» LDR* A2,A1 ADDRESS TO INPUT DEVICE RUNTIME-DWT «, t00=0x0115, t01=0x012a}
0x1b1f4…1b230 Head {h00=0x0038, h01=0x0050, text=» ST A4,DWTECH,A2 STORE DEVICE-ADDRESS TO ECHO-DEVICE«, t00=0x0115, t01=0x0162}
0x1b230…1b254 Head {h00=0x0020, h01=0x0050, text=» CMR A1 CLEAR FIRST POINTER «, t00=0x0116, t01=0x000e}
0x1b254…1b27a Head {h00=0x0022, h01=0x0050, text=» CM 2,A1 CLEAR SECOND POINTER «, t00=0x0116, t01=0x0032}
0x1b27a…1b2a2 Head {h00=0x0024, h01=0x0050, text=»DWT140 ADK A1,4 NEXT POINTER-SET«, t00=0x0116, t01=0x0058}
0x1b2a2…1b2ce Head {h00=0x0028, h01=0x0050, text=» CWR A1,A3 END OF ECHO DEVICE TABLE «, t00=0x0116, t01=0x0080}
0x1b2ce…1b2e8 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT90 NO! «, t00=0x0116, t01=0x00ac}
0x1b2e8…1b316 Head {h00=0x002a, h01=0x0050, text=»DWT150 CM* STKEND+ECHTAB CLEAR LENGTH «, t00=0x0116, t01=0x00c6}
0x1b316…1b334 Head {h00=0x001a, h01=0x0050, text=»DWT160 RTN A14 RETURN «, t00=0x0116, t01=0x00f4}
0x1b334…1b342 Head {h00=0x000a, h01=0x0050, text=» =6«, t00=0x0116, t01=0x0112}
0x1b342…1b358 Head {h00=0x0012, h01=0x0050, text=» IFF TEDVCL=0 «, t00=0x0116, t01=0x0120}
0x1b358…1b366 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0116, t01=0x0136}
0x1b366…1b39c Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0116, t01=0x0144}
0x1b39c…1b3d2 Head {h00=0x0032, h01=0x0050, text=»* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE *«, t00=0x0116, t01=0x017a}
0x1b3d2…1b408 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0117, t01=0x0020}
0x1b408…1b412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0056}
0x1b412…1b434 Head {h00=0x001e, h01=0x0050, text=»* REFERENCED IN: DWTGEN «, t00=0x0117, t01=0x0060}
0x1b434…1b43e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0082}
0x1b43e…1b46c Head {h00=0x002a, h01=0x0050, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x0117, t01=0x008c}
0x1b46c…1b476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x00ba}
0x1b476…1b4a6 Head {h00=0x002c, h01=0x0050, text=»* EXIT: REAL TIME INTERRUPT TABLES FOR«, t00=0x0117, t01=0x00c4}
0x1b4a6…1b4dc Head {h00=0x0032, h01=0x0050, text=»* LT,RT,PLC,VCCU1/4,SALCUZ AND ASCU4Z «, t00=0x0117, t01=0x00f4}
0x1b4dc…1b4e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x012a}
0x1b4e6…1b4fc Head {h00=0x0012, h01=0x0050, text=»* SUBROUTINES«, t00=0x0117, t01=0x0134}
0x1b4fc…1b506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x014a}
0x1b506…1b514 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0117, t01=0x0154}
0x1b514…1b54a Head {h00=0x0032, h01=0x0050, text=»B:ITAB EQU * BUILD REAL-TIME INTERRUPT TABLES «, t00=0x0117, t01=0x0162}
0x1b54a…1b57e Head {h00=0x0030, h01=0x0050, text=» LD A1,STKEND+FWTFLG T.I.T. IN FREE AREA? =7«, t00=0x0118, t01=0x0008}
0x1b57e…1b59c Head {h00=0x001a, h01=0x0050, text=» RF(P) B:ITLT YES? =7 «, t00=0x0118, t01=0x003c}
0x1b59c…1b5d4 Head {h00=0x0034, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA =7 «, t00=0x0118, t01=0x005a}
0x1b5d4…1b5ea Head {h00=0x0012, h01=0x0050, text=» LDR A1,P =7 «, t00=0x0118, t01=0x0092}
0x1b5ea…1b602 Head {h00=0x0014, h01=0x0050, text=»BIT05 EQU * =7 «, t00=0x0118, t01=0x00a8}
0x1b602…1b630 Head {h00=0x002a, h01=0x0050, text=» SUK A1,2 DECREMENT MEMORY ADDRESS =7 «, t00=0x0118, t01=0x00c0}
0x1b630…1b654 Head {h00=0x0020, h01=0x0050, text=» CMR A1 CLEAR MEMORY AREA =7«, t00=0x0118, t01=0x00ee}
0x1b654…1b680 Head {h00=0x0028, h01=0x0050, text=» CW A1,SCTSFA ALL WORDS CLEARED? =7 «, t00=0x0118, t01=0x0112}
0x1b680…1b69c Head {h00=0x0018, h01=0x0050, text=» RB(NE) BIT05 NO! =7«, t00=0x0118, t01=0x013e}
0x1b69c…1b6a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0118, t01=0x015a}
0x1b6a6…1b6d8 Head {h00=0x002e, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR LT «, t00=0x0118, t01=0x0164}
0x1b6d8…1b6e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x0008}
0x1b6e2…1b6ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0119, t01=0x0012}
0x1b6ee…1b702 Head {h00=0x0010, h01=0x0050, text=»B:ITLT EQU *«, t00=0x0119, t01=0x001e}
0x1b702…1b716 Head {h00=0x0010, h01=0x0050, text=» IFF SUML=0 «, t00=0x0119, t01=0x0032}
0x1b716…1b73e Head {h00=0x0024, h01=0x0050, text=» LDKL A8,0 CONNECTION TYPE = LT «, t00=0x0119, t01=0x0046}
0x1b73e…1b75c Head {h00=0x001a, h01=0x0050, text=» LDKL A9,7 1:ST BOARD «, t00=0x0119, t01=0x006e}
0x1b75c…1b78e Head {h00=0x002e, h01=0x0050, text=» LDK A1,16 MAX.LENGTH OF BOARD CONF. TABLE«, t00=0x0119, t01=0x008c}
0x1b78e…1b7ae Head {h00=0x001c, h01=0x0050, text=» ST A1,STKEND+WRK4 SAVE «, t00=0x0119, t01=0x00be}
0x1b7ae…1b7cc Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0119, t01=0x00de}
0x1b7cc…1b7ea Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0119, t01=0x00fc}
0x1b7ea…1b808 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0119, t01=0x011a}
0x1b808…1b81c Head {h00=0x0010, h01=0x0050, text=»BIT10 EQU * «, t00=0x0119, t01=0x0138}
0x1b81c…1b830 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0119, t01=0x014c}
0x1b830…1b844 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0119, t01=0x0160}
0x1b844…1b872 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0119, t01=0x0174}
0x1b872…1b898 Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x011a, t01=0x0012}
0x1b898…1b8b0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BIT15 NO!«, t00=0x011a, t01=0x0038}
0x1b8b0…1b8ce Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x011a, t01=0x0050}
0x1b8ce…1b90c Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x011a, t01=0x006e}
0x1b90c…1b92a Head {h00=0x001a, h01=0x0050, text=» ST A2,INTLT1,A1 SAVE «, t00=0x011a, t01=0x00ac}
0x1b92a…1b93e Head {h00=0x0010, h01=0x0050, text=»BIT15 EQU * «, t00=0x011a, t01=0x00ca}
0x1b93e…1b950 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x011a, t01=0x00de}
0x1b950…1b97a Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x011a, t01=0x00f0}
0x1b97a…1b98c Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x011a, t01=0x011a}
0x1b98c…1b9ac Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+WRK1 STORE«, t00=0x011a, t01=0x012c}
0x1b9ac…1b9ca Head {h00=0x001a, h01=0x0050, text=» ADKL A9,7 NEXT BOARD «, t00=0x011a, t01=0x014c}
0x1b9ca…1b9e8 Head {h00=0x001a, h01=0x0050, text=» CWK A9,31 LAST BOARD?«, t00=0x011a, t01=0x016a}
0x1b9e8…1ba02 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITRT YES!«, t00=0x011a, t01=0x0188}
0x1ba02…1ba14 Head {h00=0x000e, h01=0x0050, text=» RB BIT10 «, t00=0x011b, t01=0x0012}
0x1ba14…1ba20 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011b, t01=0x0024}
0x1ba20…1ba2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011b, t01=0x0030}
0x1ba2e…1ba38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x003e}
0x1ba38…1ba6a Head {h00=0x002e, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR RT «, t00=0x011b, t01=0x0048}
0x1ba6a…1ba74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x007a}
0x1ba74…1ba88 Head {h00=0x0010, h01=0x0050, text=»B:ITRT EQU *«, t00=0x011b, t01=0x0084}
0x1ba88…1ba9c Head {h00=0x0010, h01=0x0050, text=» IFF SUMR=0 «, t00=0x011b, t01=0x0098}
0x1ba9c…1bac4 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,1 CONNECTION TYPE = RT «, t00=0x011b, t01=0x00ac}
0x1bac4…1bae2 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,3 1:ST BOARD «, t00=0x011b, t01=0x00d4}
0x1bae2…1bb14 Head {h00=0x002e, h01=0x0050, text=» LDK A1,8 MAX.LENGTH OF BOARD CONF. TABLE «, t00=0x011b, t01=0x00f2}
0x1bb14…1bb34 Head {h00=0x001c, h01=0x0050, text=» ST A1,STKEND+WRK4 SAVE «, t00=0x011b, t01=0x0124}
0x1bb34…1bb52 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x011b, t01=0x0144}
0x1bb52…1bb70 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x011b, t01=0x0162}
0x1bb70…1bb8e Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x011b, t01=0x0180}
0x1bb8e…1bba2 Head {h00=0x0010, h01=0x0050, text=»BRT10 EQU * «, t00=0x011c, t01=0x000e}
0x1bba2…1bbb6 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x011c, t01=0x0022}
0x1bbb6…1bbca Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x011c, t01=0x0036}
0x1bbca…1bbf8 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x011c, t01=0x004a}
0x1bbf8…1bc1e Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x011c, t01=0x0078}
0x1bc1e…1bc36 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BRT15 NO!«, t00=0x011c, t01=0x009e}
0x1bc36…1bc54 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x011c, t01=0x00b6}
0x1bc54…1bc92 Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x011c, t01=0x00d4}
0x1bc92…1bcb0 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTRT1,A1 SAVE «, t00=0x011c, t01=0x0112}
0x1bcb0…1bcc4 Head {h00=0x0010, h01=0x0050, text=»BRT15 EQU * «, t00=0x011c, t01=0x0130}
0x1bcc4…1bcd6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x011c, t01=0x0144}
0x1bcd6…1bd00 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x011c, t01=0x0156}
0x1bd00…1bd12 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x011c, t01=0x0180}
0x1bd12…1bd32 (285, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+WRK1 STORE«, t00=0x011d, t01=0x0004}
0x1bd32…1bd50 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,3 NEXT BOARD «, t00=0x011d, t01=0x0024}
0x1bd50…1bd6e Head {h00=0x001a, h01=0x0050, text=» CWK A9,15 LAST BOARD?«, t00=0x011d, t01=0x0042}
0x1bd6e…1bd88 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITPC YES!«, t00=0x011d, t01=0x0060}
0x1bd88…1bd9a Head {h00=0x000e, h01=0x0050, text=» RB BRT10 «, t00=0x011d, t01=0x007a}
0x1bd9a…1bda6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011d, t01=0x008c}
0x1bda6…1bdb4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011d, t01=0x0098}
0x1bdb4…1bdbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x00a6}
0x1bdbe…1bdf6 Head {h00=0x0034, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR PLC-LOCAL«, t00=0x011d, t01=0x00b0}
0x1bdf6…1be00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x00e8}
0x1be00…1be14 Head {h00=0x0010, h01=0x0050, text=»B:ITPC EQU *«, t00=0x011d, t01=0x00f2}
0x1be14…1be28 Head {h00=0x0010, h01=0x0050, text=» IFF PLCL=0 «, t00=0x011d, t01=0x0106}
0x1be28…1be50 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,5 CONNECTION TYPE = PLC«, t00=0x011d, t01=0x011a}
0x1be50…1be6e Head {h00=0x001a, h01=0x0050, text=» LDKL A9,32 1:ST BOARD«, t00=0x011d, t01=0x0142}
0x1be6e…1bea2 Head {h00=0x0030, h01=0x0050, text=» LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2«, t00=0x011d, t01=0x0160}
0x1bea2…1bebc (286, 0, 400) Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x011e, t01=0x0004}
0x1bebc…1bed2 Head {h00=0x0012, h01=0x0050, text=» LDK A1,1 =2 «, t00=0x011e, t01=0x001e}
0x1bed2…1bef0 Head {h00=0x001a, h01=0x0050, text=» ST A1,STKEND+WRK1 =2«, t00=0x011e, t01=0x0034}
0x1bef0…1bf0e Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x011e, t01=0x0052}
0x1bf0e…1bf2c Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x011e, t01=0x0070}
0x1bf2c…1bf40 Head {h00=0x0010, h01=0x0050, text=»BPC10 EQU * «, t00=0x011e, t01=0x008e}
0x1bf40…1bf54 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x011e, t01=0x00a2}
0x1bf54…1bf68 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x011e, t01=0x00b6}
0x1bf68…1bf96 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x011e, t01=0x00ca}
0x1bf96…1bfbc Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x011e, t01=0x00f8}
0x1bfbc…1bfd4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BPC15 NO!«, t00=0x011e, t01=0x011e}
0x1bfd4…1bfec Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x011e, t01=0x0136}
0x1bfec…1c032 Head {h00=0x0042, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE «, t00=0x011e, t01=0x014e}
0x1c032…1c050 (287, 0, 400) Head {h00=0x001a, h01=0x0050, text=» ST A2,INTPL1,A1 SAVE «, t00=0x011f, t01=0x0004}
0x1c050…1c064 Head {h00=0x0010, h01=0x0050, text=»BPC15 EQU * «, t00=0x011f, t01=0x0022}
0x1c064…1c076 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x011f, t01=0x0036}
0x1c076…1c0a0 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x011f, t01=0x0048}
0x1c0a0…1c0b2 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x011f, t01=0x0072}
0x1c0b2…1c0cc Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x011f, t01=0x0084}
0x1c0cc…1c0ea Head {h00=0x001a, h01=0x0050, text=» ADKL A9,31 NEXT BOARD«, t00=0x011f, t01=0x009e}
0x1c0ea…1c10a Head {h00=0x001c, h01=0x0050, text=» CWK A9,128 LAST BOARD? «, t00=0x011f, t01=0x00bc}
0x1c10a…1c128 Head {h00=0x001a, h01=0x0050, text=» RF(G) B:ITPR YES! =8 «, t00=0x011f, t01=0x00dc}
0x1c128…1c13a Head {h00=0x000e, h01=0x0050, text=» RB BPC10 «, t00=0x011f, t01=0x00fa}
0x1c13a…1c146 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011f, t01=0x010c}
0x1c146…1c154 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011f, t01=0x0118}
0x1c154…1c15e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x0126}
0x1c15e…1c19a Head {h00=0x0038, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR PLC-REMOTE =8«, t00=0x011f, t01=0x0130}
0x1c19a…1c1a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x016c}
0x1c1a4…1c1b8 Head {h00=0x0010, h01=0x0050, text=»B:ITPR EQU *«, t00=0x011f, t01=0x0176}
0x1c1b8…1c1cc Head {h00=0x0010, h01=0x0050, text=» IFF PLCR=0 «, t00=0x011f, t01=0x018a}
0x1c1cc…1c1fa Head {h00=0x002a, h01=0x0050, text=» LDKL A8,6 CONNECTION TYPE=PLC-REMOTE «, t00=0x0120, t01=0x000e}
0x1c1fa…1c218 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,32 1:ST BOARD«, t00=0x0120, t01=0x003c}
0x1c218…1c24c Head {h00=0x0030, h01=0x0050, text=» LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2«, t00=0x0120, t01=0x005a}
0x1c24c…1c266 Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x0120, t01=0x008e}
0x1c266…1c27c Head {h00=0x0012, h01=0x0050, text=» LDK A1,1 =2 «, t00=0x0120, t01=0x00a8}
0x1c27c…1c29a Head {h00=0x001a, h01=0x0050, text=» ST A1,STKEND+WRK1 =2«, t00=0x0120, t01=0x00be}
0x1c29a…1c2b8 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0120, t01=0x00dc}
0x1c2b8…1c2d6 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0120, t01=0x00fa}
0x1c2d6…1c2ea Head {h00=0x0010, h01=0x0050, text=»BPR10 EQU * «, t00=0x0120, t01=0x0118}
0x1c2ea…1c2fe Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0120, t01=0x012c}
0x1c2fe…1c312 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0120, t01=0x0140}
0x1c312…1c340 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0120, t01=0x0154}
0x1c340…1c366 Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x0120, t01=0x0182}
0x1c366…1c37e Head {h00=0x0014, h01=0x0050, text=» RF(Z) BPR15 NO!«, t00=0x0121, t01=0x0018}
0x1c37e…1c396 Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x0121, t01=0x0030}
0x1c396…1c3dc Head {h00=0x0042, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE «, t00=0x0121, t01=0x0048}
0x1c3dc…1c3fa Head {h00=0x001a, h01=0x0050, text=» ST A2,INTPR1,A1 SAVE «, t00=0x0121, t01=0x008e}
0x1c3fa…1c40e Head {h00=0x0010, h01=0x0050, text=»BPR15 EQU * «, t00=0x0121, t01=0x00ac}
0x1c40e…1c420 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0121, t01=0x00c0}
0x1c420…1c44a Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0121, t01=0x00d2}
0x1c44a…1c45c Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0121, t01=0x00fc}
0x1c45c…1c476 Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x0121, t01=0x010e}
0x1c476…1c494 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,31 NEXT BOARD«, t00=0x0121, t01=0x0128}
0x1c494…1c4b4 Head {h00=0x001c, h01=0x0050, text=» CWK A9,128 LAST BOARD? «, t00=0x0121, t01=0x0146}
0x1c4b4…1c4ce Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITVU YES!«, t00=0x0121, t01=0x0166}
0x1c4ce…1c4e0 Head {h00=0x000e, h01=0x0050, text=» RB BPR10 «, t00=0x0121, t01=0x0180}
0x1c4e0…1c4ec (290, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0122, t01=0x0004}
0x1c4ec…1c4fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0122, t01=0x0010}
0x1c4fa…1c502 Head {h00=0x0004, h01=0x0050, t00=0x0122, t01=0x001e}
0x1c502…1c50c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x0026}
0x1c50c…1c542 Head {h00=0x0032, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR VCCU1/4«, t00=0x0122, t01=0x0030}
0x1c542…1c54c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x0066}
0x1c54c…1c560 Head {h00=0x0010, h01=0x0050, text=»B:ITVU EQU *«, t00=0x0122, t01=0x0070}
0x1c560…1c574 Head {h00=0x0010, h01=0x0050, text=» IFF VIDEO=0«, t00=0x0122, t01=0x0084}
0x1c574…1c5a0 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,7 CONNECTION TYPE = VCCU1/4«, t00=0x0122, t01=0x0098}
0x1c5a0…1c5be Head {h00=0x001a, h01=0x0050, text=» LDKL A9,3 1:ST BOARD «, t00=0x0122, t01=0x00c4}
0x1c5be…1c5f0 Head {h00=0x002e, h01=0x0050, text=» LDK A1,8 MAX.LENGTH OF BOARD CONF. TABLE «, t00=0x0122, t01=0x00e2}
0x1c5f0…1c610 Head {h00=0x001c, h01=0x0050, text=» ST A1,STKEND+WRK4 SAVE «, t00=0x0122, t01=0x0114}
0x1c610…1c62e Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0122, t01=0x0134}
0x1c62e…1c64c Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0122, t01=0x0152}
0x1c64c…1c66a Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0122, t01=0x0170}
0x1c66a…1c67e Head {h00=0x0010, h01=0x0050, text=»BVU10 EQU * «, t00=0x0122, t01=0x018e}
0x1c67e…1c692 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0123, t01=0x0012}
0x1c692…1c6a6 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0123, t01=0x0026}
0x1c6a6…1c6d4 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0123, t01=0x003a}
0x1c6d4…1c6fa Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x0123, t01=0x0068}
0x1c6fa…1c712 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BVU15 NO!«, t00=0x0123, t01=0x008e}
0x1c712…1c730 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0123, t01=0x00a6}
0x1c730…1c76e Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x0123, t01=0x00c4}
0x1c76e…1c78c Head {h00=0x001a, h01=0x0050, text=» ST A2,INTVU1,A1 SAVE «, t00=0x0123, t01=0x0102}
0x1c78c…1c7a0 Head {h00=0x0010, h01=0x0050, text=»BVU15 EQU * «, t00=0x0123, t01=0x0120}
0x1c7a0…1c7b2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0123, t01=0x0134}
0x1c7b2…1c7dc Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0123, t01=0x0146}
0x1c7dc…1c7ee Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0123, t01=0x0170}
0x1c7ee…1c80e Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+WRK1 STORE«, t00=0x0123, t01=0x0182}
0x1c80e…1c82c Head {h00=0x001a, h01=0x0050, text=» ADKL A9,3 NEXT BOARD «, t00=0x0124, t01=0x0012}
0x1c82c…1c84a Head {h00=0x001a, h01=0x0050, text=» CWK A9,31 LAST BOARD?«, t00=0x0124, t01=0x0030}
0x1c84a…1c864 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITSZ YES!«, t00=0x0124, t01=0x004e}
0x1c864…1c876 Head {h00=0x000e, h01=0x0050, text=» RB BVU10 «, t00=0x0124, t01=0x0068}
0x1c876…1c882 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0124, t01=0x007a}
0x1c882…1c88a Head {h00=0x0004, h01=0x0050, t00=0x0124, t01=0x0086}
0x1c88a…1c898 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0124, t01=0x008e}
0x1c898…1c8a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x009c}
0x1c8a2…1c8d8 Head {h00=0x0032, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR SALCUZ «, t00=0x0124, t01=0x00a6}
0x1c8d8…1c8e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x00dc}
0x1c8e2…1c8f6 Head {h00=0x0010, h01=0x0050, text=»B:ITSZ EQU *«, t00=0x0124, t01=0x00e6}
0x1c8f6…1c90c Head {h00=0x0012, h01=0x0050, text=» IFF SALCUZ=0 «, t00=0x0124, t01=0x00fa}
0x1c90c…1c938 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,2 CONNECTION TYPE = SALCUZ «, t00=0x0124, t01=0x0110}
0x1c938…1c956 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,0 1:ST BOARD «, t00=0x0124, t01=0x013c}
0x1c956…1c988 Head {h00=0x002e, h01=0x0050, text=» LDK A1,2 MAX. LENGTH OF BOARD CONF.TABLE «, t00=0x0124, t01=0x015a}
0x1c988…1c9a2 Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x0124, t01=0x018c}
0x1c9a2…1c9c0 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0125, t01=0x0016}
0x1c9c0…1c9de Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0125, t01=0x0034}
0x1c9de…1c9fc Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0125, t01=0x0052}
0x1c9fc…1ca10 Head {h00=0x0010, h01=0x0050, text=»BSZ10 EQU * «, t00=0x0125, t01=0x0070}
0x1ca10…1ca24 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0125, t01=0x0084}
0x1ca24…1ca38 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0125, t01=0x0098}
0x1ca38…1ca66 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0125, t01=0x00ac}
0x1ca66…1ca8c Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x0125, t01=0x00da}
0x1ca8c…1caa0 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BSZ15«, t00=0x0125, t01=0x0100}
0x1caa0…1cab8 Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x0125, t01=0x0114}
0x1cab8…1caf6 Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x0125, t01=0x012c}
0x1caf6…1cb14 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTSL1,A1 SAVE «, t00=0x0125, t01=0x016a}
0x1cb14…1cb28 Head {h00=0x0010, h01=0x0050, text=»BSZ15 EQU * «, t00=0x0125, t01=0x0188}
0x1cb28…1cb3a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0126, t01=0x000c}
0x1cb3a…1cb64 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0126, t01=0x001e}
0x1cb64…1cb76 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0126, t01=0x0048}
0x1cb76…1cb90 Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x0126, t01=0x005a}
0x1cb90…1cbae Head {h00=0x001a, h01=0x0050, text=» CWK A9,7 LAST BOARD? «, t00=0x0126, t01=0x0074}
0x1cbae…1cbc8 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITAZ YES!«, t00=0x0126, t01=0x0092}
0x1cbc8…1cbda Head {h00=0x000e, h01=0x0050, text=» RB BSZ10 «, t00=0x0126, t01=0x00ac}
0x1cbda…1cbe6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0126, t01=0x00be}
0x1cbe6…1cbf4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0126, t01=0x00ca}
0x1cbf4…1cbfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x00d8}
0x1cbfe…1cc34 Head {h00=0x0032, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR ASCU4Z «, t00=0x0126, t01=0x00e2}
0x1cc34…1cc3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x0118}
0x1cc3e…1cc52 Head {h00=0x0010, h01=0x0050, text=»B:ITAZ EQU *«, t00=0x0126, t01=0x0122}
0x1cc52…1cc68 Head {h00=0x0012, h01=0x0050, text=» IFF ASCU4Z=0 «, t00=0x0126, t01=0x0136}
0x1cc68…1cc94 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,3 CONNECTION TYPE = ASCU4Z «, t00=0x0126, t01=0x014c}
0x1cc94…1ccb2 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,3 1:ST BOARD «, t00=0x0126, t01=0x0178}
0x1ccb2…1cce4 Head {h00=0x002e, h01=0x0050, text=» LDK A1,8 MAX. LENGTH OF BOARD CONF.TABLE «, t00=0x0127, t01=0x0008}
0x1cce4…1ccfe Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x0127, t01=0x003a}
0x1ccfe…1cd1c Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0127, t01=0x0054}
0x1cd1c…1cd3a Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0127, t01=0x0072}
0x1cd3a…1cd58 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0127, t01=0x0090}
0x1cd58…1cd6c Head {h00=0x0010, h01=0x0050, text=»BAZ10 EQU * «, t00=0x0127, t01=0x00ae}
0x1cd6c…1cd80 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0127, t01=0x00c2}
0x1cd80…1cd94 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0127, t01=0x00d6}
0x1cd94…1cdc2 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0127, t01=0x00ea}
0x1cdc2…1cde6 Head {h00=0x0020, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES«, t00=0x0127, t01=0x0118}
0x1cde6…1cdfa Head {h00=0x0010, h01=0x0050, text=» RF(Z) BAZ15«, t00=0x0127, t01=0x013c}
0x1cdfa…1ce12 Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x0127, t01=0x0150}
0x1ce12…1ce58 Head {h00=0x0042, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE «, t00=0x0127, t01=0x0168}
0x1ce58…1ce76 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTAS1,A1 SAVE «, t00=0x0128, t01=0x001e}
0x1ce76…1ce8a Head {h00=0x0010, h01=0x0050, text=»BAZ15 EQU * «, t00=0x0128, t01=0x003c}
0x1ce8a…1ce9c Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0128, t01=0x0050}
0x1ce9c…1cec6 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0128, t01=0x0062}
0x1cec6…1ced8 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0128, t01=0x008c}
0x1ced8…1cef2 Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x0128, t01=0x009e}
0x1cef2…1cf10 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,3 NEXT BOARD «, t00=0x0128, t01=0x00b8}
0x1cf10…1cf2e Head {h00=0x001a, h01=0x0050, text=» CWK A9,31 LAST BOARD?«, t00=0x0128, t01=0x00d6}
0x1cf2e…1cf48 Head {h00=0x0016, h01=0x0050, text=» RF(G) BAZ20 YES! «, t00=0x0128, t01=0x00f4}
0x1cf48…1cf5a Head {h00=0x000e, h01=0x0050, text=» RB BAZ10 «, t00=0x0128, t01=0x010e}
0x1cf5a…1cf6e Head {h00=0x0010, h01=0x0050, text=»BAZ20 EQU * «, t00=0x0128, t01=0x0120}
0x1cf6e…1cf7a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0128, t01=0x0134}
0x1cf7a…1cf8a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0128, t01=0x0140}
0x1cf8a…1cf98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0128, t01=0x0150}
0x1cf98…1cfce Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0128, t01=0x015e}
0x1cfce…1d004 (297, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* I:CHSZ - INIT CHANNEL PARAMETERS SALCUZ * «, t00=0x0129, t01=0x0004}
0x1d004…1d03a Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0129, t01=0x003a}
0x1d03a…1d044 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x0070}
0x1d044…1d064 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0129, t01=0x007a}
0x1d064…1d06e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x009a}
0x1d06e…1d09e Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0129, t01=0x00a4}
0x1d09e…1d0ca Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0129, t01=0x00d4}
0x1d0ca…1d0f8 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0129, t01=0x0100}
0x1d0f8…1d102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x012e}
0x1d102…1d130 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0129, t01=0x0138}
0x1d130…1d15e Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0129, t01=0x0166}
0x1d15e…1d190 (298, 0, 400) Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x012a, t01=0x0004}
0x1d190…1d1be Head {h00=0x002a, h01=0x0050, text=»* BITS 4 -11 LINE NUMBER«, t00=0x012a, t01=0x0036}
0x1d1be…1d1d8 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x012a, t01=0x0064}
0x1d1d8…1d1e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x007e}
0x1d1e2…1d1fa Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x012a, t01=0x0088}
0x1d1fa…1d204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x00a0}
0x1d204…1d218 Head {h00=0x0010, h01=0x0050, text=»I:CHSZ EQU *«, t00=0x012a, t01=0x00aa}
0x1d218…1d22e Head {h00=0x0012, h01=0x0050, text=» IFF SALCUZ=0 «, t00=0x012a, t01=0x00be}
0x1d22e…1d256 Head {h00=0x0024, h01=0x0050, text=» CWK A6,8 CONNECTION NUMBER <=8?«, t00=0x012a, t01=0x00d4}
0x1d256…1d270 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x012a, t01=0x00fc}
0x1d270…1d298 Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x012a, t01=0x0116}
0x1d298…1d2b2 Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x012a, t01=0x013e}
0x1d2b2…1d2e2 Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x012a, t01=0x0158}
0x1d2e2…1d316 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x012a, t01=0x0188}
0x1d316…1d33e Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x012b, t01=0x002c}
0x1d33e…1d372 Head {h00=0x0030, h01=0x0050, text=» LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER«, t00=0x012b, t01=0x0054}
0x1d372…1d398 Head {h00=0x0022, h01=0x0050, text=» SLL A3,4 MOVE TO BITS 4 - 11 «, t00=0x012b, t01=0x0088}
0x1d398…1d3c4 Head {h00=0x0028, h01=0x0050, text=» ADK A3,2 ADD CONNECTION TYPE SALCUZ«, t00=0x012b, t01=0x00ae}
0x1d3c4…1d3f6 Head {h00=0x002e, h01=0x0050, text=» ADKL A6,/0200 ADD CONNECTION TYPE SALCUZ «, t00=0x012b, t01=0x00da}
0x1d3f6…1d40e Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x012b, t01=0x010c}
0x1d40e…1d41a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012b, t01=0x0124}
0x1d41a…1d430 Head {h00=0x0012, h01=0x0050, text=» IFT SALCUZ=0 «, t00=0x012b, t01=0x0130}
0x1d430…1d446 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x012b, t01=0x0146}
0x1d446…1d45a Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x012b, t01=0x015c}
0x1d45a…1d466 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012b, t01=0x0170}
0x1d466…1d474 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012b, t01=0x017c}
0x1d474…1d4b2 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x012b, t01=0x018a}
0x1d4b2…1d4e8 Head {h00=0x0032, h01=0x0050, text=»* I:CHAZ - INIT CHANNEL PARAMETERS ASCU4Z * «, t00=0x012c, t01=0x0038}
0x1d4e8…1d526 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x012c, t01=0x006e}
0x1d526…1d530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x00ac}
0x1d530…1d550 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x012c, t01=0x00b6}
0x1d550…1d55a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x00d6}
0x1d55a…1d58a Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x012c, t01=0x00e0}
0x1d58a…1d5b6 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x012c, t01=0x0110}
0x1d5b6…1d5e2 Head {h00=0x0028, h01=0x0050, text=»* A4 - LINE CONNECTION TYPE«, t00=0x012c, t01=0x013c}
0x1d5e2…1d610 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x012c, t01=0x0168}
0x1d610…1d61a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x0008}
0x1d61a…1d648 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x012d, t01=0x0012}
0x1d648…1d676 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x012d, t01=0x0040}
0x1d676…1d6a8 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x012d, t01=0x006e}
0x1d6a8…1d6d6 Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x012d, t01=0x00a0}
0x1d6d6…1d6e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x00ce}
0x1d6e0…1d6fa Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x012d, t01=0x00d8}
0x1d6fa…1d704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x00f2}
0x1d704…1d71c Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x012d, t01=0x00fc}
0x1d71c…1d726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x0114}
0x1d726…1d73a Head {h00=0x0010, h01=0x0050, text=»I:CHAZ EQU *«, t00=0x012d, t01=0x011e}
0x1d73a…1d750 Head {h00=0x0012, h01=0x0050, text=» IFF ASCU4Z=0 «, t00=0x012d, t01=0x0132}
0x1d750…1d77a Head {h00=0x0026, h01=0x0050, text=» CWK A6,32 CONNECTION NUMBER <=32?«, t00=0x012d, t01=0x0148}
0x1d77a…1d794 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x012d, t01=0x0172}
0x1d794…1d7bc Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x012d, t01=0x018c}
0x1d7bc…1d7d6 Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x012e, t01=0x0024}
0x1d7d6…1d806 Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x012e, t01=0x003e}
0x1d806…1d83a Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x012e, t01=0x006e}
0x1d83a…1d862 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x012e, t01=0x00a2}
0x1d862…1d896 Head {h00=0x0030, h01=0x0050, text=» LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER«, t00=0x012e, t01=0x00ca}
0x1d896…1d8b6 Head {h00=0x001c, h01=0x0050, text=» ANK A3,3 GET BITS 14-15«, t00=0x012e, t01=0x00fe}
0x1d8b6…1d8e0 Head {h00=0x0026, h01=0x0050, text=» SLL A3,8 MOVE TO BITS TO BITS 6-7«, t00=0x012e, t01=0x011e}
0x1d8e0…1d90a Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x012e, t01=0x0148}
0x1d90a…1d940 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x012e, t01=0x0172}
0x1d940…1d952 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x012f, t01=0x0018}
0x1d952…1d982 Head {h00=0x002c, h01=0x0050, text=» ANK A6,/1C GET BITS 11-13 BOARD NUMBER «, t00=0x012f, t01=0x002a}
0x1d982…1d9a6 Head {h00=0x0020, h01=0x0050, text=» SRL A6,2 MOVE TO BITS 12-15«, t00=0x012f, t01=0x005a}
0x1d9a6…1d9d2 Head {h00=0x0028, h01=0x0050, text=» ADK A3,3 ADD CONNECTION TYPE ASCU4Z«, t00=0x012f, t01=0x007e}
0x1d9d2…1da04 Head {h00=0x002e, h01=0x0050, text=» ADKL A6,/0300 ADD CONNECTION TYPE ASCU4Z «, t00=0x012f, t01=0x00aa}
0x1da04…1da14 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012f, t01=0x00dc}
0x1da14…1da20 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012f, t01=0x00ec}
0x1da20…1da36 Head {h00=0x0012, h01=0x0050, text=» IFT ASCU4Z=0 «, t00=0x012f, t01=0x00f8}
0x1da36…1da4c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x012f, t01=0x010e}
0x1da4c…1da60 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x012f, t01=0x0124}
0x1da60…1da6c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012f, t01=0x0138}
0x1da6c…1da7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012f, t01=0x0144}
0x1da7a…1dab8 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x012f, t01=0x0152}
0x1dab8…1daee Head {h00=0x0032, h01=0x0050, text=»* I:CHAZ - INIT CHANNEL PARAMETERS VCCU1/4 *«, t00=0x012f, t01=0x0190}
0x1daee…1db2c Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0130, t01=0x0036}
0x1db2c…1db36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x0074}
0x1db36…1db56 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0130, t01=0x007e}
0x1db56…1db60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x009e}
0x1db60…1db90 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0130, t01=0x00a8}
0x1db90…1dbbc Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0130, t01=0x00d8}
0x1dbbc…1dbe8 Head {h00=0x0028, h01=0x0050, text=»* A4 - LINE CONNECTION TYPE«, t00=0x0130, t01=0x0104}
0x1dbe8…1dc16 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0130, t01=0x0130}
0x1dc16…1dc20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x015e}
0x1dc20…1dc4e Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0130, t01=0x0168}
0x1dc4e…1dc7c Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0131, t01=0x0008}
0x1dc7c…1dcae Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0131, t01=0x0036}
0x1dcae…1dcdc Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x0131, t01=0x0068}
0x1dcdc…1dce6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x0096}
0x1dce6…1dd00 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0131, t01=0x00a0}
0x1dd00…1dd0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x00ba}
0x1dd0a…1dd22 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0131, t01=0x00c4}
0x1dd22…1dd2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0131, t01=0x00dc}
0x1dd2c…1dd40 Head {h00=0x0010, h01=0x0050, text=»I:CHVC EQU *«, t00=0x0131, t01=0x00e6}
0x1dd40…1dd54 Head {h00=0x0010, h01=0x0050, text=» IFF VIDEO=0«, t00=0x0131, t01=0x00fa}
0x1dd54…1dd7e Head {h00=0x0026, h01=0x0050, text=» CWK A6,32 CONNECTION NUMBER <=32?«, t00=0x0131, t01=0x010e}
0x1dd7e…1dd98 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0131, t01=0x0138}
0x1dd98…1ddc0 Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x0131, t01=0x0152}
0x1ddc0…1ddda Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0131, t01=0x017a}
0x1ddda…1de0a (306, 0, 400) Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x0132, t01=0x0004}
0x1de0a…1de3e Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0132, t01=0x0034}
0x1de3e…1de66 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x0132, t01=0x0068}
0x1de66…1de9a Head {h00=0x0030, h01=0x0050, text=» LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER«, t00=0x0132, t01=0x0090}
0x1de9a…1deba Head {h00=0x001c, h01=0x0050, text=» ANK A3,3 GET BITS 14-15«, t00=0x0132, t01=0x00c4}
0x1deba…1dee4 Head {h00=0x0026, h01=0x0050, text=» SLL A3,8 MOVE TO BITS TO BITS 6-7«, t00=0x0132, t01=0x00e4}
0x1dee4…1df0e Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0132, t01=0x010e}
0x1df0e…1df44 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0132, t01=0x0138}
0x1df44…1df56 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0132, t01=0x016e}
0x1df56…1df86 Head {h00=0x002c, h01=0x0050, text=» ANK A6,/1C GET BITS 11-13 BOARD NUMBER «, t00=0x0132, t01=0x0180}
0x1df86…1dfaa Head {h00=0x0020, h01=0x0050, text=» SRL A6,2 MOVE TO BITS 12-15«, t00=0x0133, t01=0x0020}
0x1dfaa…1dfd8 Head {h00=0x002a, h01=0x0050, text=» ADK A3,7 ADD CONNECTION TYPE VCCU1/4 «, t00=0x0133, t01=0x0044}
0x1dfd8…1e00a Head {h00=0x002e, h01=0x0050, text=» ADKL A6,/0700 ADD CONNECTION TYPE VCCU1/4«, t00=0x0133, t01=0x0072}
0x1e00a…1e01a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0133, t01=0x00a4}
0x1e01a…1e026 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0133, t01=0x00b4}
0x1e026…1e03a Head {h00=0x0010, h01=0x0050, text=» IFT VIDEO=0«, t00=0x0133, t01=0x00c0}
0x1e03a…1e050 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0133, t01=0x00d4}
0x1e050…1e064 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0133, t01=0x00ea}
0x1e064…1e070 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0133, t01=0x00fe}
0x1e070…1e07e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0133, t01=0x010a}
0x1e07e…1e0b0 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0133, t01=0x0118}
0x1e0b0…1e0e4 Head {h00=0x0030, h01=0x0050, text=»* I:CHPC - INIT CHANNEL PARAMETERS LWSI * «, t00=0x0133, t01=0x014a}
0x1e0e4…1e116 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0133, t01=0x017e}
0x1e116…1e120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x0020}
0x1e120…1e140 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0134, t01=0x002a}
0x1e140…1e14a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x004a}
0x1e14a…1e17a Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0134, t01=0x0054}
0x1e17a…1e1a6 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0134, t01=0x0084}
0x1e1a6…1e1d4 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0134, t01=0x00b0}
0x1e1d4…1e1de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x00de}
0x1e1de…1e20c Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0134, t01=0x00e8}
0x1e20c…1e23a Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0134, t01=0x0116}
0x1e23a…1e26c Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0134, t01=0x0144}
0x1e26c…1e29a Head {h00=0x002a, h01=0x0050, text=»* BITS 4 -11 LINE NUMBER«, t00=0x0134, t01=0x0176}
0x1e29a…1e2a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x0014}
0x1e2a4…1e2be Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0135, t01=0x001e}
0x1e2be…1e2d6 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0135, t01=0x0038}
0x1e2d6…1e2e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x0050}
0x1e2e0…1e2f4 Head {h00=0x0010, h01=0x0050, text=»I:CHPC EQU *«, t00=0x0135, t01=0x005a}
0x1e2f4…1e308 Head {h00=0x0010, h01=0x0050, text=» IFF PLCL=0 «, t00=0x0135, t01=0x006e}
0x1e308…1e334 Head {h00=0x0028, h01=0x0050, text=» CWK A6,128 CONNECTION NUMBER <=128?«, t00=0x0135, t01=0x0082}
0x1e334…1e34e Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0135, t01=0x00ae}
0x1e34e…1e376 Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x0135, t01=0x00c8}
0x1e376…1e390 Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0135, t01=0x00f0}
0x1e390…1e3a2 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0135, t01=0x010a}
0x1e3a2…1e3d6 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0135, t01=0x011c}
0x1e3d6…1e3fe Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x0135, t01=0x0150}
0x1e3fe…1e42c Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x0135, t01=0x0178}
0x1e42c…1e450 Head {h00=0x0020, h01=0x0050, text=» ANK A3,/1F GET BITS 11 - 15«, t00=0x0136, t01=0x0016}
0x1e450…1e462 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0136, t01=0x003a}
0x1e462…1e486 Head {h00=0x0020, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 2 - 7«, t00=0x0136, t01=0x004c}
0x1e486…1e4b0 Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0136, t01=0x0070}
0x1e4b0…1e4de Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x0136, t01=0x009a}
0x1e4de…1e4f0 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0136, t01=0x00c8}
0x1e4f0…1e516 Head {h00=0x0022, h01=0x0050, text=» SLL A3,4 MOVE TO BITS 4 - 11 «, t00=0x0136, t01=0x00da}
0x1e516…1e540 Head {h00=0x0026, h01=0x0050, text=» ADK A3,5 ADD CONNECTION TYPE PLC «, t00=0x0136, t01=0x0100}
0x1e540…1e570 Head {h00=0x002c, h01=0x0050, text=» ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER«, t00=0x0136, t01=0x012a}
0x1e570…1e596 Head {h00=0x0022, h01=0x0050, text=» SRL A6,5 MOVE TO BITS 12 - 15«, t00=0x0136, t01=0x015a}
0x1e596…1e5c4 Head {h00=0x002a, h01=0x0050, text=» ADKL A6,/0500 ADD CONNECTION TYPE PLC«, t00=0x0136, t01=0x0180}
0x1e5c4…1e5d4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0137, t01=0x001e}
0x1e5d4…1e5e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0137, t01=0x002e}
0x1e5e0…1e5f4 Head {h00=0x0010, h01=0x0050, text=» IFT PLCL=0 «, t00=0x0137, t01=0x003a}
0x1e5f4…1e60a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0137, t01=0x004e}
0x1e60a…1e61e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0137, t01=0x0064}
0x1e61e…1e62a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0137, t01=0x0078}
0x1e62a…1e638 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0137, t01=0x0084}
0x1e638…1e66a Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0137, t01=0x0092}
0x1e66a…1e6a0 Head {h00=0x0032, h01=0x0050, text=»* I:CHPC - INIT CHANNEL PARAMETERS RWSI * =8«, t00=0x0137, t01=0x00c4}
0x1e6a0…1e6d2 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0137, t01=0x00fa}
0x1e6d2…1e6dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0137, t01=0x012c}
0x1e6dc…1e6fc Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0137, t01=0x0136}
0x1e6fc…1e706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0137, t01=0x0156}
0x1e706…1e736 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0137, t01=0x0160}
0x1e736…1e762 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0137, t01=0x0190}
0x1e762…1e790 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0138, t01=0x002c}
0x1e790…1e79a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x005a}
0x1e79a…1e7c8 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0138, t01=0x0064}
0x1e7c8…1e7f6 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0138, t01=0x0092}
0x1e7f6…1e828 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0138, t01=0x00c0}
0x1e828…1e856 Head {h00=0x002a, h01=0x0050, text=»* BITS 4 -11 LINE NUMBER«, t00=0x0138, t01=0x00f2}
0x1e856…1e860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x0120}
0x1e860…1e87a Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0138, t01=0x012a}
0x1e87a…1e892 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0138, t01=0x0144}
0x1e892…1e89c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x015c}
0x1e89c…1e8b0 Head {h00=0x0010, h01=0x0050, text=»I:CHRI EQU *«, t00=0x0138, t01=0x0166}
0x1e8b0…1e8c4 Head {h00=0x0010, h01=0x0050, text=» IFF PLCR=0 «, t00=0x0138, t01=0x017a}
0x1e8c4…1e8f0 Head {h00=0x0028, h01=0x0050, text=» CWK A6,128 CONNECTION NUMBER <=128?«, t00=0x0138, t01=0x018e}
0x1e8f0…1e90a Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0139, t01=0x002a}
0x1e90a…1e932 Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x0139, t01=0x0044}
0x1e932…1e94c Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0139, t01=0x006c}
0x1e94c…1e95e Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0139, t01=0x0086}
0x1e95e…1e992 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0139, t01=0x0098}
0x1e992…1e9ba Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x0139, t01=0x00cc}
0x1e9ba…1e9e8 Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x0139, t01=0x00f4}
0x1e9e8…1ea0c Head {h00=0x0020, h01=0x0050, text=» ANK A3,/1F GET BITS 11 - 15«, t00=0x0139, t01=0x0122}
0x1ea0c…1ea1e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0139, t01=0x0146}
0x1ea1e…1ea42 Head {h00=0x0020, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 2 - 7«, t00=0x0139, t01=0x0158}
0x1ea42…1ea6c Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0139, t01=0x017c}
0x1ea6c…1ea9a Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x013a, t01=0x0016}
0x1ea9a…1eaac Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x013a, t01=0x0044}
0x1eaac…1ead2 Head {h00=0x0022, h01=0x0050, text=» SLL A3,4 MOVE TO BITS 4 - 11 «, t00=0x013a, t01=0x0056}
0x1ead2…1eb02 Head {h00=0x002c, h01=0x0050, text=» ADK A3,6 ADD CONNECTION TYPE PLC-REMOTE«, t00=0x013a, t01=0x007c}
0x1eb02…1eb32 Head {h00=0x002c, h01=0x0050, text=» ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER«, t00=0x013a, t01=0x00ac}
0x1eb32…1eb58 Head {h00=0x0022, h01=0x0050, text=» SRL A6,5 MOVE TO BITS 12 - 15«, t00=0x013a, t01=0x00dc}
0x1eb58…1eb8e Head {h00=0x0032, h01=0x0050, text=» ADKL A6,/0600 ADD CONNECTION TYPE PLC-REMOTE «, t00=0x013a, t01=0x0102}
0x1eb8e…1eb9e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x013a, t01=0x0138}
0x1eb9e…1ebaa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013a, t01=0x0148}
0x1ebaa…1ebbe Head {h00=0x0010, h01=0x0050, text=»NUMERR EQU *«, t00=0x013a, t01=0x0154}
0x1ebbe…1ebea Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP4 INDICATE FORMAT ERROR «, t00=0x013a, t01=0x0168}
0x1ebea…1ebfe (315, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x013b, t01=0x0004}
0x1ebfe…1ec0c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013b, t01=0x0018}
0x1ec0c…1ec3a Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x013b, t01=0x0026}
0x1ec3a…1ec6c Head {h00=0x002e, h01=0x0050, text=»* I:CHLT - INIT CHANNEL PARAMETERS LT * «, t00=0x013b, t01=0x0054}
0x1ec6c…1ec9a Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x013b, t01=0x0086}
0x1ec9a…1eca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x00b4}
0x1eca4…1ecc4 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x013b, t01=0x00be}
0x1ecc4…1ecce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x00de}
0x1ecce…1ecfe Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x013b, t01=0x00e8}
0x1ecfe…1ed2a Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x013b, t01=0x0118}
0x1ed2a…1ed58 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x013b, t01=0x0144}
0x1ed58…1ed62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x0172}
0x1ed62…1ed90 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETERS -1 «, t00=0x013b, t01=0x017c}
0x1ed90…1edbe Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETERS -2 «, t00=0x013c, t01=0x001a}
0x1edbe…1edf0 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x013c, t01=0x0048}
0x1edf0…1ee1e Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x013c, t01=0x007a}
0x1ee1e…1ee28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x00a8}
0x1ee28…1ee42 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x013c, t01=0x00b2}
0x1ee42…1ee4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x00cc}
0x1ee4c…1ee64 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x013c, t01=0x00d6}
0x1ee64…1ee6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x00ee}
0x1ee6e…1ee7c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013c, t01=0x00f8}
0x1ee7c…1ee90 Head {h00=0x0010, h01=0x0050, text=»I:CHLT EQU *«, t00=0x013c, t01=0x0106}
0x1ee90…1eea4 Head {h00=0x0010, h01=0x0050, text=» IFF SUML=0 «, t00=0x013c, t01=0x011a}
0x1eea4…1eed2 Head {h00=0x002a, h01=0x0050, text=» CWK A6,0032 CONNECTION NUMBER <= 32? «, t00=0x013c, t01=0x012e}
0x1eed2…1eeee Head {h00=0x0018, h01=0x0050, text=» RB(G) NUMERR NO =8!«, t00=0x013c, t01=0x015c}
0x1eeee…1ef1a Head {h00=0x0028, h01=0x0050, text=» CWK A6,0001 CONNECTION NUMBER >=01?«, t00=0x013c, t01=0x0178}
0x1ef1a…1ef36 Head {h00=0x0018, h01=0x0050, text=» RB(L) NUMERR NO =8!«, t00=0x013d, t01=0x0014}
0x1ef36…1ef66 Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x013d, t01=0x0030}
0x1ef66…1ef9a Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x013d, t01=0x0060}
0x1ef9a…1efc6 Head {h00=0x0028, h01=0x0050, text=» ANKL A5,/003F CLEAR BITS TO MODIFY «, t00=0x013d, t01=0x0094}
0x1efc6…1effc Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x013d, t01=0x00c0}
0x1effc…1f01c Head {h00=0x001c, h01=0x0050, text=» ANK A3,7 GET BITS 13-15«, t00=0x013d, t01=0x00f6}
0x1f01c…1f03e Head {h00=0x001e, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 5-7«, t00=0x013d, t01=0x0116}
0x1f03e…1f068 Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x013d, t01=0x0138}
0x1f068…1f09e Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x013d, t01=0x0162}
0x1f09e…1f0b0 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x013e, t01=0x0008}
0x1f0b0…1f0d2 Head {h00=0x001e, h01=0x0050, text=» ANK A6,/18 GET BITS 11-12«, t00=0x013e, t01=0x001a}
0x1f0d2…1f0f6 Head {h00=0x0020, h01=0x0050, text=» SRL A6,3 MOVE TO BITS 14-15«, t00=0x013e, t01=0x003c}
0x1f0f6…1f106 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x013e, t01=0x0060}
0x1f106…1f112 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013e, t01=0x0070}
0x1f112…1f126 Head {h00=0x0010, h01=0x0050, text=» IFT SUML=0 «, t00=0x013e, t01=0x007c}
0x1f126…1f13c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x013e, t01=0x0090}
0x1f13c…1f150 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x013e, t01=0x00a6}
0x1f150…1f15c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013e, t01=0x00ba}
0x1f15c…1f16a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013e, t01=0x00c6}
0x1f16a…1f19c Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013e, t01=0x00d4}
0x1f19c…1f1ce Head {h00=0x002e, h01=0x0050, text=»* I:CHRT - INIT CHANNEL PARAMETERS RT * «, t00=0x013e, t01=0x0106}
0x1f1ce…1f200 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013e, t01=0x0138}
0x1f200…1f20a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x016a}
0x1f20a…1f22a Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x013e, t01=0x0174}
0x1f22a…1f234 (319, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0004}
0x1f234…1f264 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x013f, t01=0x000e}
0x1f264…1f290 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x013f, t01=0x003e}
0x1f290…1f2be Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x013f, t01=0x006a}
0x1f2be…1f2c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0098}
0x1f2c8…1f2f6 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETERS - 1«, t00=0x013f, t01=0x00a2}
0x1f2f6…1f324 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETERS - 2«, t00=0x013f, t01=0x00d0}
0x1f324…1f356 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x013f, t01=0x00fe}
0x1f356…1f384 Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x013f, t01=0x0130}
0x1f384…1f38e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x015e}
0x1f38e…1f3a8 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x013f, t01=0x0168}
0x1f3a8…1f3b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0182}
0x1f3b2…1f3ca Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x013f, t01=0x018c}
0x1f3ca…1f3d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x0014}
0x1f3d4…1f3e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0140, t01=0x001e}
0x1f3e2…1f3f6 Head {h00=0x0010, h01=0x0050, text=»I:CHRT EQU *«, t00=0x0140, t01=0x002c}
0x1f3f6…1f40a Head {h00=0x0010, h01=0x0050, text=» IFF SUMR=0 «, t00=0x0140, t01=0x0040}
0x1f40a…1f438 Head {h00=0x002a, h01=0x0050, text=» CWK A6,0016 CONNECTION NUMBER <= 16? «, t00=0x0140, t01=0x0054}
0x1f438…1f454 Head {h00=0x0018, h01=0x0050, text=» RB(G) NUMERR NO =8!«, t00=0x0140, t01=0x0082}
0x1f454…1f480 Head {h00=0x0028, h01=0x0050, text=» CWK A6,0001 CONNECTION NUMBER >=1? «, t00=0x0140, t01=0x009e}
0x1f480…1f49c Head {h00=0x0018, h01=0x0050, text=» RB(L) NUMERR NO =8!«, t00=0x0140, t01=0x00ca}
0x1f49c…1f4cc Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x0140, t01=0x00e6}
0x1f4cc…1f500 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0140, t01=0x0116}
0x1f500…1f52c Head {h00=0x0028, h01=0x0050, text=» ANKL A5,/003F CLEAR BITS TO MODIFY «, t00=0x0140, t01=0x014a}
0x1f52c…1f562 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0140, t01=0x0176}
0x1f562…1f582 Head {h00=0x001c, h01=0x0050, text=» ANK A3,3 GET BITS 14-15«, t00=0x0141, t01=0x001c}
0x1f582…1f5a4 Head {h00=0x001e, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 6-7«, t00=0x0141, t01=0x003c}
0x1f5a4…1f5ce Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0141, t01=0x005e}
0x1f5ce…1f604 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0141, t01=0x0088}
0x1f604…1f616 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0141, t01=0x00be}
0x1f616…1f63e Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 ADD CONNECTION TYPE RT«, t00=0x0141, t01=0x00d0}
0x1f63e…1f660 Head {h00=0x001e, h01=0x0050, text=» ANK A6,/C GET BITS 12-13 «, t00=0x0141, t01=0x00f8}
0x1f660…1f684 Head {h00=0x0020, h01=0x0050, text=» SRL A6,2 MOVE TO BITS 14-15«, t00=0x0141, t01=0x011a}
0x1f684…1f6b2 Head {h00=0x002a, h01=0x0050, text=» ADKL A6,/0100 ADD CONNECTION TYPE RT «, t00=0x0141, t01=0x013e}
0x1f6b2…1f6c2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0141, t01=0x016c}
0x1f6c2…1f6ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0141, t01=0x017c}
0x1f6ce…1f6e4 Head {h00=0x0012, h01=0x0050, text=» IFT SUMR=0 =8«, t00=0x0141, t01=0x0188}
0x1f6e4…1f6fa Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0142, t01=0x000e}
0x1f6fa…1f70e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0142, t01=0x0024}
0x1f70e…1f71e Head {h00=0x000c, h01=0x0050, text=» XIF =8«, t00=0x0142, t01=0x0038}
0x1f71e…1f730 Head {h00=0x000e, h01=0x0050, text=» IFT DC=1 «, t00=0x0142, t01=0x0048}
0x1f730…1f73e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0142, t01=0x005a}
0x1f73e…1f77e Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0142, t01=0x0068}
0x1f77e…1f7be Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0142, t01=0x00a8}
0x1f7be…1f7fe Head {h00=0x003c, h01=0x0050, text=»* B:CNA BUILD COMPUTER NETWORK ARCHITECTURE * «, t00=0x0142, t01=0x00e8}
0x1f7fe…1f83e Head {h00=0x003c, h01=0x0050, text=»* ========================================== * «, t00=0x0142, t01=0x0128}
0x1f83e…1f87e Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0142, t01=0x0168}
0x1f87e…1f8be Head {h00=0x003c, h01=0x0050, text=»* SCANS POSSIBLE D-BLOCK IN CONFIGURATION DATA * «, t00=0x0143, t01=0x0018}
0x1f8be…1f8fe Head {h00=0x003c, h01=0x0050, text=»* AND BUILDS DATA COMMUNICATION TABLE IN MEMORY. * «, t00=0x0143, t01=0x0058}
0x1f8fe…1f93e Head {h00=0x003c, h01=0x0050, text=»* TABLE START IS DEFINED BY THE POINTER SCTDCT * «, t00=0x0143, t01=0x0098}
0x1f93e…1f97e Head {h00=0x003c, h01=0x0050, text=»* IN SYSTAB. * «, t00=0x0143, t01=0x00d8}
0x1f97e…1f9be Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: SCTDCT = RELATIVE POSITION OF THE * «, t00=0x0143, t01=0x0118}
0x1f9be…1f9fe Head {h00=0x003c, h01=0x0050, text=»* D-BLOCK IN CONF. DATA (SET BY SYSLOD) * «, t00=0x0143, t01=0x0158}
0x1f9fe…1fa3e Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0144, t01=0x0008}
0x1fa3e…1fa7e Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: CONMON * «, t00=0x0144, t01=0x0048}
0x1fa7e…1fabe Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES CALLED: GETDTE, P:DTE * «, t00=0x0144, t01=0x0088}
0x1fabe…1fafe Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTERS: A1-A12 * «, t00=0x0144, t01=0x00c8}
0x1fafe…1fb3e Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0144, t01=0x0108}
0x1fb3e…1fb7e Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0144, t01=0x0148}
0x1fb7e…1fb8a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0144, t01=0x0188}
0x1fb8a…1fb96 (325, 0, 400) Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0145, t01=0x0004}
0x1fb96…1fbaa Head {h00=0x0010, h01=0x0050, text=»B:CNA EQU * «, t00=0x0145, t01=0x0010}
0x1fbaa…1fbc6 Head {h00=0x0018, h01=0x0050, text=» LD A11,DCBLK+STKCOM«, t00=0x0145, t01=0x0024}
0x1fbc6…1fbf4 Head {h00=0x002a, h01=0x0050, text=» RF(Z) B:CN20 NO DATA COMMUNICATION =1«, t00=0x0145, t01=0x0040}
0x1fbf4…1fbfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0145, t01=0x006e}
0x1fbfe…1fc3e Head {h00=0x003c, h01=0x0050, text=» AD A11,CONSTA+STKCOM GET D BLOCK ADDRESS IN CONF. DATA «, t00=0x0145, t01=0x0078}
0x1fc3e…1fc6c Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0145, t01=0x00b8}
0x1fc6c…1fc98 Head {h00=0x0028, h01=0x0050, text=» ST A12,SCTDCT UPDATE SYSTAB POINTER«, t00=0x0145, t01=0x00e6}
0x1fc98…1fccc Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0145, t01=0x0112}
0x1fccc…1fcf8 Head {h00=0x0028, h01=0x0050, text=» CALL GETDTE GET NO OF DTE:S DEFINED«, t00=0x0145, t01=0x0146}
0x1fcf8…1fd2c Head {h00=0x0030, h01=0x0050, text=» ADKL A11,2 ADVANCE TO START OF SDTE RECORD «, t00=0x0145, t01=0x0172}
0x1fd2c…1fd40 Head {h00=0x0010, h01=0x0050, text=»B:CN00 EQU *«, t00=0x0146, t01=0x0016}
0x1fd40…1fd52 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0146, t01=0x002a}
0x1fd52…1fd88 Head {h00=0x0032, h01=0x0050, text=» RF(N) B:CN10 NO DTE BLOCKS LEFT IN CONF. DATA«, t00=0x0146, t01=0x003c}
0x1fd88…1fd92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x0072}
0x1fd92…1fdc4 Head {h00=0x002e, h01=0x0050, text=» ST A1,NUMDTE+STKEND SAVE NO OF DTE:S LEFT«, t00=0x0146, t01=0x007c}
0x1fdc4…1fdf4 Head {h00=0x002c, h01=0x0050, text=» ADKL A11,5 ADVANCE TO 1ST CHAR. IN NAME«, t00=0x0146, t01=0x00ae}
0x1fdf4…1fe1e Head {h00=0x0026, h01=0x0050, text=» CALL P:DTE PROCESS THIS DTE BLOCK«, t00=0x0146, t01=0x00de}
0x1fe1e…1fe54 Head {h00=0x0032, h01=0x0050, text=» LD A1,NUMDTE+STKEND GET REMAINING DTE BLOCKS «, t00=0x0146, t01=0x0108}
0x1fe54…1fe82 Head {h00=0x002a, h01=0x0050, text=» LDR* A12,A12 GET ADDRESS TO NEXT DTE «, t00=0x0146, t01=0x013e}
0x1fe82…1fe94 Head {h00=0x000e, h01=0x0050, text=» RB B:CN00«, t00=0x0146, t01=0x016c}
0x1fe94…1fe9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x017e}
0x1fe9e…1feb2 Head {h00=0x0010, h01=0x0050, text=»B:CN10 EQU *«, t00=0x0146, t01=0x0188}
0x1feb2…1fed0 Head {h00=0x001a, h01=0x0050, text=» CM 0,A12 AND RESET IT«, t00=0x0147, t01=0x000c}
0x1fed0…1fee4 Head {h00=0x0010, h01=0x0050, text=» ADKL A12,2 «, t00=0x0147, t01=0x002a}
0x1fee4…1ff14 Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x0147, t01=0x003e}
0x1ff14…1ff2e Head {h00=0x0016, h01=0x0050, text=»B:CN20 EQU * =1 «, t00=0x0147, t01=0x006e}
0x1ff2e…1ff3e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0147, t01=0x0088}
0x1ff3e…1ff4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0147, t01=0x0098}
0x1ff4c…1ff8c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0147, t01=0x00a6}
0x1ff8c…1ffcc Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0147, t01=0x00e6}
0x1ffcc…2000c Head {h00=0x003c, h01=0x0050, text=»* P:DTE PROCESS DTE BLOCK IN CONFIGURATION DATA * «, t00=0x0147, t01=0x0126}
0x2000c…2004c Head {h00=0x003c, h01=0x0050, text=»* ============================================== * «, t00=0x0147, t01=0x0166}
0x2004c…2008c Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0148, t01=0x0016}
0x2008c…200cc Head {h00=0x003c, h01=0x0050, text=»* SCANS DTE BLOCK IN CONF. DATA AND BUILDS CORRE- * «, t00=0x0148, t01=0x0056}
0x200cc…2010c Head {h00=0x003c, h01=0x0050, text=»* SPONDING DTE-BLOCK IN SCTDCT. IF MULTIPLE COPIES * «, t00=0x0148, t01=0x0096}
0x2010c…2014c Head {h00=0x003c, h01=0x0050, text=»* ARE DEFINED CURRENT DTE IS DUPLICATED THE NO OF * «, t00=0x0148, t01=0x00d6}
0x2014c…2018c Head {h00=0x003c, h01=0x0050, text=»* TIMES SPECIFIED. * «, t00=0x0148, t01=0x0116}
0x2018c…201cc Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0148, t01=0x0156}
0x201cc…2020c Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN * «, t00=0x0149, t01=0x0008}
0x2020c…2024c Head {h00=0x003c, h01=0x0050, text=»* SDTE NAME IN CONF. DATA * «, t00=0x0149, t01=0x0048}
0x2024c…2028c Head {h00=0x003c, h01=0x0050, text=»* A12 POINTER TO START OF CURRENT * «, t00=0x0149, t01=0x0088}
0x2028c…202cc Head {h00=0x003c, h01=0x0050, text=»* DTE BLOCK IN SCTDCT TABLE * «, t00=0x0149, t01=0x00c8}
0x202cc…2030c Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0149, t01=0x0108}
0x2030c…2034c Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A11 ADDRESS TO LAST CHARACTER IN * «, t00=0x0149, t01=0x0148}
0x2034c…2038c Head {h00=0x003c, h01=0x0050, text=»* PROCESSED DTE-BLOCK IN CONF. DATA * «, t00=0x0149, t01=0x0188}
0x2038c…203cc Head {h00=0x003c, h01=0x0050, text=»* A12 POINTER TO LAST DEFINED DTE-BLOCK * «, t00=0x014a, t01=0x0038}
0x203cc…2040c Head {h00=0x003c, h01=0x0050, text=»* DEFINED IN SCTDCT TABLE * «, t00=0x014a, t01=0x0078}
0x2040c…2044c Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x014a, t01=0x00b8}
0x2044c…2048c Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: B:CNA * «, t00=0x014a, t01=0x00f8}
0x2048c…204cc Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES REFERENCED: GETCOP,GETNSA,P:NA,HEXCPY * «, t00=0x014a, t01=0x0138}
0x204cc…2050c Head {h00=0x003c, h01=0x0050, text=»* AND MOVE * «, t00=0x014a, t01=0x0178}
0x2050c…2054c Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x014b, t01=0x0028}
0x2054c…2058c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x014b, t01=0x0068}
0x2058c…20598 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x014b, t01=0x00a8}
0x20598…205a4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x014b, t01=0x00b4}
0x205a4…205b8 Head {h00=0x0010, h01=0x0050, text=»P:DTE EQU * «, t00=0x014b, t01=0x00c0}
0x205b8…205e6 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/3000 INITIALIZE NAME FILLER «, t00=0x014b, t01=0x00d4}
0x205e6…20616 Head {h00=0x002c, h01=0x0050, text=» LC A1,1,A11 GET 1ST CHAR. IN SDTE NAME «, t00=0x014b, t01=0x0102}
0x20616…20648 Head {h00=0x002e, h01=0x0050, text=» LC A2,IDLIM,A11 GET NA-NSA QUALIFIER (=T)«, t00=0x014b, t01=0x0132}
0x20648…2065c Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x014b, t01=0x0164}
0x2065c…20686 Head {h00=0x0026, h01=0x0050, text=» CCK A2,'TT' START OF TYPE RECORD?«, t00=0x014b, t01=0x0178}
0x20686…206a0 Head {h00=0x0016, h01=0x0050, text=» RF(E) PDTE00 YES!«, t00=0x014c, t01=0x0012}
0x206a0…206aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014c, t01=0x002c}
0x206aa…206d4 Head {h00=0x0026, h01=0x0050, text=» SLL A1,8 NO LEFT ADJUST CHAR. AND«, t00=0x014c, t01=0x0036}
0x206d4…206fc Head {h00=0x0024, h01=0x0050, text=» LC A1,1,A11 GET NEXT CHARACTER «, t00=0x014c, t01=0x0060}
0x206fc…20710 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x014c, t01=0x0088}
0x20710…20724 Head {h00=0x0010, h01=0x0050, text=»PDTE00 EQU *«, t00=0x014c, t01=0x009c}
0x20724…20754 Head {h00=0x002c, h01=0x0050, text=» ST A1,DTENAM+STKEND SAVE NAME IN STACK «, t00=0x014c, t01=0x00b0}
0x20754…2077a Head {h00=0x0022, h01=0x0050, text=» CALL GETCOP GET NO OF COPIES «, t00=0x014c, t01=0x00e0}
0x2077a…207a0 Head {h00=0x0022, h01=0x0050, text=» ST A1,DTECOP+STKEND AND SAVE «, t00=0x014c, t01=0x0106}
0x207a0…207d4 Head {h00=0x0030, h01=0x0050, text=» ADKL A11,TYPOFS ADVANCE TO TYPE IDENTIFIER «, t00=0x014c, t01=0x012c}
0x207d4…207e8 Head {h00=0x0010, h01=0x0050, text=» LC A1,1,A11«, t00=0x014c, t01=0x0160}
0x207e8…2080e Head {h00=0x0022, h01=0x0050, text=» SLL A1,8 FORM TYPE IDENTIFIER«, t00=0x014c, t01=0x0174}
0x2080e…20822 Head {h00=0x0010, h01=0x0050, text=» LC A1,2,A11«, t00=0x014d, t01=0x000a}
0x20822…2084c Head {h00=0x0026, h01=0x0050, text=» ST A1,DTETYP+STKEND SAVE IN STACK«, t00=0x014d, t01=0x001e}
0x2084c…20860 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x014d, t01=0x0048}
0x20860…2088c Head {h00=0x0028, h01=0x0050, text=» LDK A2,0 RESET NETWORK ADDR. LENGTH«, t00=0x014d, t01=0x005c}
0x2088c…208b0 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x014d, t01=0x0088}
0x208b0…208c2 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x014d, t01=0x00ac}
0x208c2…208dc Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE05 YES!«, t00=0x014d, t01=0x00be}
0x208dc…208e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x00d8}
0x208e6…20918 Head {h00=0x002e, h01=0x0050, text=» LC A7,NANSA,A11 GET NA-NSA-SDTE QUALIFIER«, t00=0x014d, t01=0x00e2}
0x20918…2092c Head {h00=0x0010, h01=0x0050, text=» CCK A7,'AA'«, t00=0x014d, t01=0x0114}
0x2092c…20956 Head {h00=0x0026, h01=0x0050, text=» RF(NE) PDTE05 NSA OR SDTE RECORD «, t00=0x014d, t01=0x0128}
0x20956…20960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x0152}
0x20960…20992 Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NAOFS ADVANCE TO 1ST DIGIT IN NA«, t00=0x014d, t01=0x015c}
0x20992…209bc Head {h00=0x0026, h01=0x0050, text=» ST A11,NASTRT+STKEND SAVE ADDRESS«, t00=0x014d, t01=0x018e}
0x209bc…209e6 Head {h00=0x0026, h01=0x0050, text=» CALL P:NA PROCESS NETWORK ADDRESS«, t00=0x014e, t01=0x0028}
0x209e6…209fa Head {h00=0x0010, h01=0x0050, text=» LC A7,2,A11«, t00=0x014e, t01=0x0052}
0x209fa…20a0e Head {h00=0x0010, h01=0x0050, text=»PDTE05 EQU *«, t00=0x014e, t01=0x0066}
0x20a0e…20a3c Head {h00=0x002a, h01=0x0050, text=» ST A2,NALNG+STKEND SAVE LENGTH OF NA «, t00=0x014e, t01=0x007a}
0x20a3c…20a4e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x014e, t01=0x00a8}
0x20a4e…20a72 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x014e, t01=0x00ba}
0x20a72…20a84 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x014e, t01=0x00de}
0x20a84…20a9e Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE07 YES!«, t00=0x014e, t01=0x00f0}
0x20a9e…20aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x010a}
0x20aa8…20abc Head {h00=0x0010, h01=0x0050, text=» CCK A7,'SS'«, t00=0x014e, t01=0x0114}
0x20abc…20ae0 Head {h00=0x0020, h01=0x0050, text=» RF(NE) PDTE07 NO NSA RECORD«, t00=0x014e, t01=0x0128}
0x20ae0…20aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x014c}
0x20aea…20b1c Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NSAOFS ADVANCE TO NO OF SUBADDR.«, t00=0x014e, t01=0x0156}
0x20b1c…20b30 Head {h00=0x0010, h01=0x0050, text=» CALL GETNSA«, t00=0x014e, t01=0x0188}
0x20b30…20b5e Head {h00=0x002a, h01=0x0050, text=» ADKL A11,2 SKIP NSA NR IN CONF. DATA «, t00=0x014f, t01=0x000c}
0x20b5e…20b72 Head {h00=0x0010, h01=0x0050, text=»PDTE07 EQU *«, t00=0x014f, t01=0x003a}
0x20b72…20ba8 Head {h00=0x0032, h01=0x0050, text=» ST A1,DTENSA+STKEND SAVE NO OF SUBADDR. DEF. «, t00=0x014f, t01=0x004e}
0x20ba8…20bd0 Head {h00=0x0024, h01=0x0050, text=» CWK A1,/FF LOOK IF LEGAL NUMBER«, t00=0x014f, t01=0x0084}
0x20bd0…20bec Head {h00=0x0018, h01=0x0050, text=» RF(NG) PDTE10 YES! «, t00=0x014f, t01=0x00ac}
0x20bec…20bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x00c8}
0x20bf6…20c0a Head {h00=0x0010, h01=0x0050, text=»NSAERR EQU *«, t00=0x014f, t01=0x00d2}
0x20c0a…20c38 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP4 NO, ERROR IN CONF. FILE «, t00=0x014f, t01=0x00e6}
0x20c38…20c4c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x014f, t01=0x0114}
0x20c4c…20c60 Head {h00=0x0010, h01=0x0050, text=»PDTE10 EQU *«, t00=0x014f, t01=0x0128}
0x20c60…20c72 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x014f, t01=0x013c}
0x20c72…20c98 Head {h00=0x0022, h01=0x0050, text=» RF(Z) PDTE15 NO SUBADDRESSES «, t00=0x014f, t01=0x014e}
0x20c98…20ca2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x0174}
0x20ca2…20cda Head {h00=0x0034, h01=0x0050, text=» ST A11,NSAADR+STKEND SAVE ADDR. OF 1ST SUBADDR.«, t00=0x014f, t01=0x017e}
0x20cda…20cec Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0150, t01=0x0026}
0x20cec…20d1e Head {h00=0x002e, h01=0x0050, text=» ADR A11,A1 CALCULATE STAT OF NEXT RECORD «, t00=0x0150, t01=0x0038}
0x20d1e…20d32 Head {h00=0x0010, h01=0x0050, text=»PDTE15 EQU *«, t00=0x0150, t01=0x006a}
0x20d32…20d68 Head {h00=0x0032, h01=0x0050, text=» CALL DTESIZ CALCULATE SIZE OF THIS DTE BLOCK «, t00=0x0150, t01=0x007e}
0x20d68…20d94 Head {h00=0x0028, h01=0x0050, text=» CALL UPDDTE UPDATE DTE BLOCK IN DCT«, t00=0x0150, t01=0x00b4}
0x20d94…20dc2 Head {h00=0x002a, h01=0x0050, text=» LD A7,DTECOP+STKEND GET NO OF COPIES «, t00=0x0150, t01=0x00e0}
0x20dc2…20dd6 Head {h00=0x0010, h01=0x0050, text=»PDTE20 EQU *«, t00=0x0150, t01=0x010e}
0x20dd6…20de8 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0150, t01=0x0122}
0x20de8…20e18 Head {h00=0x002c, h01=0x0050, text=» RF(Z) PDTE40 NO COPIES LEFT TO PROCESS «, t00=0x0150, t01=0x0134}
0x20e18…20e48 Head {h00=0x002c, h01=0x0050, text=» LDK A5,1 INITIALIZE INCREMENT CONSTANT «, t00=0x0150, t01=0x0164}
0x20e48…20e76 (337, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LD A4,DTENAM+STKEND GET PREVIOUS NAME«, t00=0x0151, t01=0x0004}
0x20e76…20e88 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0151, t01=0x0032}
0x20e88…20eb6 Head {h00=0x002a, h01=0x0050, text=» ANK A3,/FF ISOLATE RIGHT BYTE OF NAME«, t00=0x0151, t01=0x0044}
0x20eb6…20eda Head {h00=0x0020, h01=0x0050, text=» CWK A3,/5F UPPER BOUNDARY? «, t00=0x0151, t01=0x0072}
0x20eda…20ef4 Head {h00=0x0016, h01=0x0050, text=» RF(L) PDTE25 NO! «, t00=0x0151, t01=0x0096}
0x20ef4…20efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x00b0}
0x20efe…20f2e Head {h00=0x002c, h01=0x0050, text=» LC A4,/30 RESET RIGHT BYTE TO ASCII '0'«, t00=0x0151, t01=0x00ba}
0x20f2e…20f58 Head {h00=0x0026, h01=0x0050, text=» SLL A5,8 LEFT BYTE INCREMENTATION«, t00=0x0151, t01=0x00ea}
0x20f58…20f6c Head {h00=0x0010, h01=0x0050, text=»PDTE25 EQU *«, t00=0x0151, t01=0x0114}
0x20f6c…20f96 Head {h00=0x0026, h01=0x0050, text=» ADR A4,A5 INCREMENT SYMBOLIC NAME«, t00=0x0151, t01=0x0128}
0x20f96…20fb2 Head {h00=0x0018, h01=0x0050, text=» ST A4,DTENAM+STKEND«, t00=0x0151, t01=0x0152}
0x20fb2…20fbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x016e}
0x20fbc…20fe0 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x0151, t01=0x0178}
0x20fe0…20ff2 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0152, t01=0x000c}
0x20ff2…2100c Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE35 YES!«, t00=0x0152, t01=0x001e}
0x2100c…21016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x0038}
0x21016…21048 Head {h00=0x002e, h01=0x0050, text=» LC A1,2,A11 GET 2ND CHAR. IN NEXT RECORD «, t00=0x0152, t01=0x0042}
0x21048…2107c Head {h00=0x0030, h01=0x0050, text=» CCK A1,'DD' IF A SDTE-RECORD USE OLD ADDR. «, t00=0x0152, t01=0x0074}
0x2107c…21092 Head {h00=0x0012, h01=0x0050, text=» RF(E) PDTE35 «, t00=0x0152, t01=0x00a8}
0x21092…2109c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x00be}
0x2109c…210be Head {h00=0x001e, h01=0x0050, text=» CCK A1,'SS' IF NSA RECORD«, t00=0x0152, t01=0x00c8}
0x210be…210ec Head {h00=0x002a, h01=0x0050, text=» RF(E) PDTE30 USE OLD NETWORK ADDRESS «, t00=0x0152, t01=0x00ea}
0x210ec…210f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x0118}
0x210f6…21128 Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NAOFS ADVANCE TO 1ST DIGIT IN NA«, t00=0x0152, t01=0x0122}
0x21128…21146 Head {h00=0x001a, h01=0x0050, text=» ST A11,NASTRT+STKEND «, t00=0x0152, t01=0x0154}
0x21146…21170 Head {h00=0x0026, h01=0x0050, text=» CALL P:NA PROCESS NETWORK ADDRESS«, t00=0x0152, t01=0x0172}
0x21170…2119e Head {h00=0x002a, h01=0x0050, text=» ST A2,NALNG+STKEND SAVE LENGTH OF NA «, t00=0x0153, t01=0x000c}
0x2119e…211a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x003a}
0x211a8…211cc Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x0153, t01=0x0044}
0x211cc…211de Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0153, t01=0x0068}
0x211de…211f8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE35 YES!«, t00=0x0153, t01=0x007a}
0x211f8…21202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x0094}
0x21202…21216 Head {h00=0x0010, h01=0x0050, text=» LC A1,2,A11«, t00=0x0153, t01=0x009e}
0x21216…2122a Head {h00=0x0010, h01=0x0050, text=» CCK A1,'SS'«, t00=0x0153, t01=0x00b2}
0x2122a…21256 Head {h00=0x0028, h01=0x0050, text=» RF(NE) PDTE35 NO NSA RECORD PRESENT«, t00=0x0153, t01=0x00c6}
0x21256…21260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x00f2}
0x21260…21274 Head {h00=0x0010, h01=0x0050, text=»PDTE30 EQU *«, t00=0x0153, t01=0x00fc}
0x21274…212a6 Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NSAOFS ADVANCE TO NO OF SUBADDR.«, t00=0x0153, t01=0x0110}
0x212a6…212ba Head {h00=0x0010, h01=0x0050, text=» CALL GETNSA«, t00=0x0153, t01=0x0142}
0x212ba…212ea Head {h00=0x002c, h01=0x0050, text=» ST A1,DTENSA+STKEND SAVE NO OF SUBADDR.«, t00=0x0153, t01=0x0156}
0x212ea…212fe Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x0153, t01=0x0186}
0x212fe…21310 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0154, t01=0x000a}
0x21310…21334 Head {h00=0x0020, h01=0x0050, text=» RF(Z) PDTE35 NO SUBADDRESSE«, t00=0x0154, t01=0x001c}
0x21334…2133e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x0040}
0x2133e…21352 Head {h00=0x0010, h01=0x0050, text=» CWK A1,/FF «, t00=0x0154, t01=0x004a}
0x21352…21382 Head {h00=0x002c, h01=0x0050, text=» RB(G) NSAERR TOO MANY SUBADDR. DEFINED «, t00=0x0154, t01=0x005e}
0x21382…2138c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x008e}
0x2138c…213c4 Head {h00=0x0034, h01=0x0050, text=» ST A11,NSAADR+STKEND SAVE START OF 1ST SUBADDR.«, t00=0x0154, t01=0x0098}
0x213c4…213d6 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0154, t01=0x00d0}
0x213d6…21408 Head {h00=0x002e, h01=0x0050, text=» ADR A11,A1 CALCULATE START OF NEXT RECORD«, t00=0x0154, t01=0x00e2}
0x21408…2141c Head {h00=0x0010, h01=0x0050, text=»PDTE35 EQU *«, t00=0x0154, t01=0x0114}
0x2141c…2144e Head {h00=0x002e, h01=0x0050, text=» LDR* A12,A12 GET START OF NEXT DTE BLOCK «, t00=0x0154, t01=0x0128}
0x2144e…21486 Head {h00=0x0034, h01=0x0050, text=» CALL DTESIZ CALCULATE LENGTH OF THIS DTE BLOCK «, t00=0x0154, t01=0x015a}
0x21486…2149a (341, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CALL UPDDTE«, t00=0x0155, t01=0x0004}
0x2149a…214ac Head {h00=0x000e, h01=0x0050, text=» RB PDTE20«, t00=0x0155, t01=0x0018}
0x214ac…214b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x002a}
0x214b6…214ca Head {h00=0x0010, h01=0x0050, text=»PDTE40 EQU *«, t00=0x0155, t01=0x0034}
0x214ca…214da Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0155, t01=0x0048}
0x214da…214e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0155, t01=0x0058}
0x214e8…21528 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0155, t01=0x0066}
0x21528…21568 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0155, t01=0x00a6}
0x21568…215a8 Head {h00=0x003c, h01=0x0050, text=»* DTESIZ CALCULATES THE LENGTH OF A DTE BLOCK *«, t00=0x0155, t01=0x00e6}
0x215a8…215e8 Head {h00=0x003c, h01=0x0050, text=»* ============================================ *«, t00=0x0155, t01=0x0126}
0x215e8…21628 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0155, t01=0x0166}
0x21628…21668 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A12 START OF CURRENT DTE BLOCK *«, t00=0x0156, t01=0x0016}
0x21668…216a8 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0156, t01=0x0056}
0x216a8…216e8 Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTER: A1,A9 *«, t00=0x0156, t01=0x0096}
0x216e8…21728 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0156, t01=0x00d6}
0x21728…21768 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0156, t01=0x0116}
0x21768…21770 Head {h00=0x0004, h01=0x0050, t00=0x0156, t01=0x0156}
0x21770…21778 Head {h00=0x0004, h01=0x0050, t00=0x0156, t01=0x015e}
0x21778…2178c Head {h00=0x0010, h01=0x0050, text=»DTESIZ EQU *«, t00=0x0156, t01=0x0166}
0x2178c…217a8 Head {h00=0x0018, h01=0x0050, text=» ST A11,WRK1+STKEND «, t00=0x0156, t01=0x017a}
0x217a8…217e2 Head {h00=0x0036, h01=0x0050, text=» LD A1,NALNG+STKEND GET LENGTH OF NETWORK ADDRESS «, t00=0x0157, t01=0x0008}
0x217e2…217f4 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0157, t01=0x0042}
0x217f4…2181c Head {h00=0x0024, h01=0x0050, text=» SRL A1,1 2 DIGITS IN EACH BYTE «, t00=0x0157, t01=0x0054}
0x2181c…2184c Head {h00=0x002c, h01=0x0050, text=» AD A1,DTENSA+STKEND ADD NO OF SUBADDR. «, t00=0x0157, t01=0x007c}
0x2184c…2187e Head {h00=0x002e, h01=0x0050, text=» ADK A1,DTEFIX+1 AND LENGTH OF FIX PART+1 «, t00=0x0157, t01=0x00ac}
0x2187e…2189e Head {h00=0x001c, h01=0x0050, text=» ANKL A1,/FFFE MAKE EVEN«, t00=0x0157, t01=0x00de}
0x2189e…218ca Head {h00=0x0028, h01=0x0050, text=» ADR A1,A12 START OF NEXT DTE BLOCK «, t00=0x0157, t01=0x00fe}
0x218ca…218f4 Head {h00=0x0026, h01=0x0050, text=» STR A1,A12 UPDATE DTE BLOCK LINK «, t00=0x0157, t01=0x012a}
0x218f4…21906 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x0157, t01=0x0154}
0x21906…2192a Head {h00=0x0020, h01=0x0050, text=» ST A11,WRK1+STKEND SAVE A11«, t00=0x0157, t01=0x0166}
0x2192a…2195e Head {h00=0x0030, h01=0x0050, text=» LD A11,LIMIT+STKEND GET END OF SYSTEM AREA «, t00=0x0157, t01=0x018a}
0x2195e…21984 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x0158, t01=0x002e}
0x21984…2199e Head {h00=0x0016, h01=0x0050, text=» RF(NL) DTSIZ0 NO!«, t00=0x0158, t01=0x0054}
0x2199e…219a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x006e}
0x219a8…219c2 Head {h00=0x0016, h01=0x0050, text=» LDKL A1,LMP3 YES!«, t00=0x0158, t01=0x0078}
0x219c2…219d6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0158, t01=0x0092}
0x219d6…219e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x00a6}
0x219e0…219f4 Head {h00=0x0010, h01=0x0050, text=»DTSIZ0 EQU *«, t00=0x0158, t01=0x00b0}
0x219f4…21a2e Head {h00=0x0036, h01=0x0050, text=» LD A11,WRK1+STKEND RESTORE POSITION IN CONF. DATA«, t00=0x0158, t01=0x00c4}
0x21a2e…21a3e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0158, t01=0x00fe}
0x21a3e…21a4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0158, t01=0x010e}
0x21a4c…21a8c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0158, t01=0x011c}
0x21a8c…21acc Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0158, t01=0x015c}
0x21acc…21b0c Head {h00=0x003c, h01=0x0050, text=»* UPDDTE UPDATES CURRENT DTE BLOCK WITH ITS: *«, t00=0x0159, t01=0x000c}
0x21b0c…21b4c Head {h00=0x003c, h01=0x0050, text=»* ====== *«, t00=0x0159, t01=0x004c}
0x21b4c…21b8c Head {h00=0x003c, h01=0x0050, text=»* NAME *«, t00=0x0159, t01=0x008c}
0x21b8c…21bcc Head {h00=0x003c, h01=0x0050, text=»* TYPE *«, t00=0x0159, t01=0x00cc}
0x21bcc…21c0c Head {h00=0x003c, h01=0x0050, text=»* NETWORK ADDRES *«, t00=0x0159, t01=0x010c}
0x21c0c…21c4c Head {h00=0x003c, h01=0x0050, text=»* SUBADDRESSES *«, t00=0x0159, t01=0x014c}
0x21c4c…21c8c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0159, t01=0x018c}
0x21c8c…21ccc Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x015a, t01=0x003c}
0x21ccc…21cd4 Head {h00=0x0004, h01=0x0050, t00=0x015a, t01=0x007c}
0x21cd4…21cdc Head {h00=0x0004, h01=0x0050, t00=0x015a, t01=0x0084}
0x21cdc…21cf0 Head {h00=0x0010, h01=0x0050, text=»UPDDTE EQU *«, t00=0x015a, t01=0x008c}
0x21cf0…21d28 Head {h00=0x0034, h01=0x0050, text=» LDR A6,A12 GET START OF CURRENT DTE BLOCK ENTRY«, t00=0x015a, t01=0x00a0}
0x21d28…21d4a Head {h00=0x001e, h01=0x0050, text=» ADK A6,2 SKIP LINK ENTRY «, t00=0x015a, t01=0x00d8}
0x21d4a…21d7a Head {h00=0x002c, h01=0x0050, text=» LD A1,DTENAM+STKEND GET NAME FROM STACK«, t00=0x015a, t01=0x00fa}
0x21d7a…21d98 Head {h00=0x001a, h01=0x0050, text=» STR A1,A6 SAVE IN DCT«, t00=0x015a, t01=0x012a}
0x21d98…21db4 Head {h00=0x0018, h01=0x0050, text=» ADK A6,2 NEXT ENTRY«, t00=0x015a, t01=0x0148}
0x21db4…21de4 Head {h00=0x002c, h01=0x0050, text=» LD A1,DTETYP+STKEND GET TYPE FROM STACK«, t00=0x015a, t01=0x0164}
0x21de4…21e06 (347, 0, 400) Head {h00=0x001e, h01=0x0050, text=» STR A1,A6 AND SAVE IN DCT«, t00=0x015b, t01=0x0004}
0x21e06…21e18 Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x015b, t01=0x0026}
0x21e18…21e3a Head {h00=0x001e, h01=0x0050, text=» LDK A5,4 GET NO OF SHIFTS«, t00=0x015b, t01=0x0038}
0x21e3a…21e6c Head {h00=0x002e, h01=0x0050, text=» ORKL A5,SLL0 AND CONFIG. SLL A1,8 INSTR. «, t00=0x015b, t01=0x005a}
0x21e6c…21ea4 Head {h00=0x0034, h01=0x0050, text=» LD A2,NALNG+STKEND GET LENGTH OF NETWORK ADDR. «, t00=0x015b, t01=0x008c}
0x21ea4…21ecc Head {h00=0x0024, h01=0x0050, text=» LDR A3,A2 SAVE NO OF CHARACTERS«, t00=0x015b, t01=0x00c4}
0x21ecc…21eea Head {h00=0x001a, h01=0x0050, text=» SLL A2,8 LEFT ADJUST «, t00=0x015b, t01=0x00ec}
0x21eea…21f1a Head {h00=0x002c, h01=0x0050, text=» RF(Z) UPDTE0 NO NETWORK ADDRESS DEFINED«, t00=0x015b, t01=0x010a}
0x21f1a…21f24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x013a}
0x21f24…21f5c Head {h00=0x0034, h01=0x0050, text=» LD A4,NASTRT+STKEND GET START OF NETWORK ADDR. «, t00=0x015b, t01=0x0144}
0x21f5c…21f88 Head {h00=0x0028, h01=0x0050, text=» CALL HEXCPY COPY AND PACK NA TO DCT«, t00=0x015b, t01=0x017c}
0x21f88…21fb0 Head {h00=0x0024, h01=0x0050, text=» ANKL A5,/1F ISOLATE SHIFT COUNT«, t00=0x015c, t01=0x0018}
0x21fb0…21fda Head {h00=0x0026, h01=0x0050, text=» CWK A5,4 LESS THAN ONE BYTE LEFT?«, t00=0x015c, t01=0x0040}
0x21fda…21ff6 Head {h00=0x0018, h01=0x0050, text=» RF(NG) UPDTE2 YES! «, t00=0x015c, t01=0x006a}
0x21ff6…2200a Head {h00=0x0010, h01=0x0050, text=»UPDTE0 EQU *«, t00=0x015c, t01=0x0086}
0x2200a…2202c Head {h00=0x001e, h01=0x0050, text=» LDK A5,0 SET NO OF SHIFTS«, t00=0x015c, t01=0x009a}
0x2202c…2203e Head {h00=0x000e, h01=0x0050, text=» RF UPDTE4«, t00=0x015c, t01=0x00bc}
0x2203e…22048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x00ce}
0x22048…2205c Head {h00=0x0010, h01=0x0050, text=»UPDTE2 EQU *«, t00=0x015c, t01=0x00d8}
0x2205c…22080 Head {h00=0x0020, h01=0x0050, text=» STR A2,A6 STORE WORD IN DCT«, t00=0x015c, t01=0x00ec}
0x22080…220a2 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 CLEAR TABLE WORD«, t00=0x015c, t01=0x0110}
0x220a2…220ca Head {h00=0x0024, h01=0x0050, text=» ADK A6,2 ADVANCE TO NEXT ENTRY «, t00=0x015c, t01=0x0132}
0x220ca…220ec Head {h00=0x001e, h01=0x0050, text=» LDK A5,8 GET NO OF SHIFTS«, t00=0x015c, t01=0x015a}
0x220ec…22100 Head {h00=0x0010, h01=0x0050, text=»UPDTE4 EQU *«, t00=0x015c, t01=0x017c}
0x22100…22130 Head {h00=0x002c, h01=0x0050, text=» ORKL A5,SLL0 CONFIGURE SSL A1,N INSTR. «, t00=0x015c, t01=0x0190}
0x22130…22168 Head {h00=0x0034, h01=0x0050, text=» LD A1,DTENSA+STKEND GET NO OF SUBADDR. DEFINED «, t00=0x015d, t01=0x0030}
0x22168…22192 Head {h00=0x0026, h01=0x0050, text=» RF(Z) UPDTE8 NO SUBADDR. DEFINED «, t00=0x015d, t01=0x0068}
0x22192…2219c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015d, t01=0x0092}
0x2219c…221d4 Head {h00=0x0034, h01=0x0050, text=» LD A4,NSAADR+STKEND GET ADDRESS TO 1ST SUBADDR.«, t00=0x015d, t01=0x009c}
0x221d4…221e6 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x015d, t01=0x00d4}
0x221e6…22214 Head {h00=0x002a, h01=0x0050, text=» SLL A3,1 2 DIGITS FOR EACH SUDADDRESS«, t00=0x015d, t01=0x00e6}
0x22214…2222a Head {h00=0x0012, h01=0x0050, text=» EXR A5 SHIFT «, t00=0x015d, t01=0x0114}
0x2222a…22254 Head {h00=0x0026, h01=0x0050, text=» ORR A2,A1 AND CONFIGURE DCT WORD «, t00=0x015d, t01=0x012a}
0x22254…22274 Head {h00=0x001c, h01=0x0050, text=» CWK A5,SLL0 FULL WORD? «, t00=0x015d, t01=0x0154}
0x22274…2228e Head {h00=0x0016, h01=0x0050, text=» RF(NE) UPDTE6 NO!«, t00=0x015d, t01=0x0174}
0x2228e…22298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015d, t01=0x018e}
0x22298…222bc Head {h00=0x0020, h01=0x0050, text=» STR A2,A6 YES! SAVE IN DCT «, t00=0x015e, t01=0x0008}
0x222bc…222de Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 CLEAR TABLE WORD«, t00=0x015e, t01=0x002c}
0x222de…22304 Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 ADVANCE DCT POINTER «, t00=0x015e, t01=0x004e}
0x22304…22324 Head {h00=0x001c, h01=0x0050, text=» LDK A5,16 NO OF SHIFTS «, t00=0x015e, t01=0x0074}
0x22324…22354 Head {h00=0x002c, h01=0x0050, text=» ORKL A5,SLL0 CONFIGURE SLL A1,12 INSTR.«, t00=0x015e, t01=0x0094}
0x22354…22368 Head {h00=0x0010, h01=0x0050, text=»UPDTE6 EQU *«, t00=0x015e, t01=0x00c4}
0x22368…22386 Head {h00=0x001a, h01=0x0050, text=» SUK A5,4 NEXT NIBBLE «, t00=0x015e, t01=0x00d8}
0x22386…223b2 Head {h00=0x0028, h01=0x0050, text=» CALL HEXCPY COPY AND PACK INTO DCT «, t00=0x015e, t01=0x00f6}
0x223b2…223c6 Head {h00=0x0010, h01=0x0050, text=»UPDTE8 EQU *«, t00=0x015e, t01=0x0122}
0x223c6…223d8 Head {h00=0x000e, h01=0x0050, text=» STR A2,A6«, t00=0x015e, t01=0x0136}
0x223d8…223e8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x015e, t01=0x0148}
0x223e8…223f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015e, t01=0x0158}
0x223f6…22436 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x015e, t01=0x0166}
0x22436…22476 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x015f, t01=0x0016}
0x22476…224b6 Head {h00=0x003c, h01=0x0050, text=»* HEXCPY COPIES AND PACKS 4 HEXADECIMAL DIGITS *«, t00=0x015f, t01=0x0056}
0x224b6…224f6 Head {h00=0x003c, h01=0x0050, text=»* IN ONE WORD. *«, t00=0x015f, t01=0x0096}
0x224f6…22536 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x015f, t01=0x00d6}
0x22536…22576 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A2 WORD TO PACK *«, t00=0x015f, t01=0x0116}
0x22576…225b6 Head {h00=0x003c, h01=0x0050, text=»* A3 NO OF CHARACTERS TO PROCESS *«, t00=0x015f, t01=0x0156}
0x225b6…225f6 Head {h00=0x003c, h01=0x0050, text=»* A4 ADDRESS TO FIRST ASCII DIGIT *«, t00=0x0160, t01=0x0008}
0x225f6…22636 Head {h00=0x003c, h01=0x0050, text=»* A5 PACKING INSTR. (SLL A1,N TIMES) *«, t00=0x0160, t01=0x0048}
0x22636…22676 Head {h00=0x003c, h01=0x0050, text=»* A6 POINTER WHERE TO STORE PACKED WORD *«, t00=0x0160, t01=0x0088}
0x22676…226b6 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0160, t01=0x00c8}
0x226b6…226f6 Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A2 LAST PACKED, BUT NOT STORED WORD *«, t00=0x0160, t01=0x0108}
0x226f6…22736 Head {h00=0x003c, h01=0x0050, text=»* A4 ADDRESS TO CHAR. FOLLOWING LAST *«, t00=0x0160, t01=0x0148}
0x22736…22776 Head {h00=0x003c, h01=0x0050, text=»* PROCESSED DIGIT *«, t00=0x0160, t01=0x0188}
0x22776…227b6 Head {h00=0x003c, h01=0x0050, text=»* A5 PACKING INSTR. (SLL A1,N TIMES) *«, t00=0x0161, t01=0x0038}
0x227b6…227f6 Head {h00=0x003c, h01=0x0050, text=»* A6 POINTER WHERE TO STORE NEXT WORD *«, t00=0x0161, t01=0x0078}
0x227f6…22836 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0161, t01=0x00b8}
0x22836…22876 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0161, t01=0x00f8}
0x22876…22882 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0161, t01=0x0138}
0x22882…2288e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0161, t01=0x0144}
0x2288e…228a2 Head {h00=0x0010, h01=0x0050, text=»HEXCPY EQU *«, t00=0x0161, t01=0x0150}
0x228a2…228b4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0161, t01=0x0164}
0x228b4…228d6 Head {h00=0x001e, h01=0x0050, text=» LC A1,1,A4 GET CHARACTER «, t00=0x0161, t01=0x0176}
0x228d6…228fa Head {h00=0x0020, h01=0x0050, text=» CALL HEXCNV CONVERT TO HEX «, t00=0x0162, t01=0x0008}
0x228fa…22910 Head {h00=0x0012, h01=0x0050, text=» EXR A5 SHIFT «, t00=0x0162, t01=0x002c}
0x22910…22936 Head {h00=0x0022, h01=0x0050, text=» ORR A2,A1 CONFIGURE DCT WORD «, t00=0x0162, t01=0x0042}
0x22936…22962 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT NO OF CHARACTERS«, t00=0x0162, t01=0x0068}
0x22962…2298a Head {h00=0x0024, h01=0x0050, text=» RF(Z) HXCPY8 WHOLE NA PROCESSED«, t00=0x0162, t01=0x0094}
0x2298a…22994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x00bc}
0x22994…229b4 Head {h00=0x001c, h01=0x0050, text=» CWK A5,SLL0 FULL WORD? «, t00=0x0162, t01=0x00c6}
0x229b4…229ce Head {h00=0x0016, h01=0x0050, text=» RF(NE) HXCPY6 NO!«, t00=0x0162, t01=0x00e6}
0x229ce…229d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0162, t01=0x0100}
0x229d8…229fc Head {h00=0x0020, h01=0x0050, text=» STR A2,A6 YES! SAVE IN DCT «, t00=0x0162, t01=0x010a}
0x229fc…22a1e Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 CLEAR TABLE WORD«, t00=0x0162, t01=0x012e}
0x22a1e…22a46 Head {h00=0x0024, h01=0x0050, text=» ADK A6,2 ADVANCE TO NEXT ENTRY «, t00=0x0162, t01=0x0150}
0x22a46…22a66 Head {h00=0x001c, h01=0x0050, text=» LDK A5,16 NO OF SHIFTS «, t00=0x0162, t01=0x0178}
0x22a66…22a96 Head {h00=0x002c, h01=0x0050, text=» ORKL A5,SLL0 CONFIGURE SSL A1,16 INSTR.«, t00=0x0163, t01=0x0008}
0x22a96…22aaa Head {h00=0x0010, h01=0x0050, text=»HXCPY6 EQU *«, t00=0x0163, t01=0x0038}
0x22aaa…22ac8 Head {h00=0x001a, h01=0x0050, text=» SUK A5,4 NEXT NIBBLE «, t00=0x0163, t01=0x004c}
0x22ac8…22af6 Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 NEXT CHARACTER IN CONF. DATA«, t00=0x0163, t01=0x006a}
0x22af6…22b08 Head {h00=0x000e, h01=0x0050, text=» RB HEXCPY«, t00=0x0163, t01=0x0098}
0x22b08…22b12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0163, t01=0x00aa}
0x22b12…22b26 Head {h00=0x0010, h01=0x0050, text=»HXCPY8 EQU *«, t00=0x0163, t01=0x00b4}
0x22b26…22b36 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0163, t01=0x00c8}
0x22b36…22b44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0163, t01=0x00d8}
0x22b44…22b84 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0163, t01=0x00e6}
0x22b84…22bc4 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0163, t01=0x0126}
0x22bc4…22c04 Head {h00=0x003c, h01=0x0050, text=»* HEXCNV CONVERTS A HEXADECIMAL DIGIT IN ASCII CODE *«, t00=0x0163, t01=0x0166}
0x22c04…22c44 Head {h00=0x003c, h01=0x0050, text=»* TO CORRESPONDING HEXADECIMAL VALUE *«, t00=0x0164, t01=0x0016}
0x22c44…22c84 Head {h00=0x003c, h01=0x0050, text=»* (4 BITS BINARY CODE) *«, t00=0x0164, t01=0x0056}
0x22c84…22cc4 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0164, t01=0x0096}
0x22cc4…22d04 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A1 CHARACTER TO CONVERT *«, t00=0x0164, t01=0x00d6}
0x22d04…22d44 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0164, t01=0x0116}
0x22d44…22d84 Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A1 CONVERTED CARACTER *«, t00=0x0164, t01=0x0156}
0x22d84…22dc4 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0165, t01=0x0008}
0x22dc4…22e04 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0165, t01=0x0048}
0x22e04…22e10 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0165, t01=0x0088}
0x22e10…22e1c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0165, t01=0x0094}
0x22e1c…22e30 Head {h00=0x0010, h01=0x0050, text=»HEXCNV EQU *«, t00=0x0165, t01=0x00a0}
0x22e30…22e56 Head {h00=0x0022, h01=0x0050, text=» ANK A1,/FF ISOLATE CHARACTER «, t00=0x0165, t01=0x00b4}
0x22e56…22e6a Head {h00=0x0010, h01=0x0050, text=» CWK A1,/29 «, t00=0x0165, t01=0x00da}
0x22e6a…22e8e Head {h00=0x0020, h01=0x0050, text=» RF(L) TYPERR ERRANEOUS TYPE«, t00=0x0165, t01=0x00ee}
0x22e8e…22e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x0112}
0x22e98…22ebe Head {h00=0x0022, h01=0x0050, text=» CWK A1,/40 DIGIT BETWEEN 0-9?«, t00=0x0165, t01=0x011c}
0x22ebe…22ed8 Head {h00=0x0016, h01=0x0050, text=» RF(L) HXCN00 YES!«, t00=0x0165, t01=0x0142}
0x22ed8…22f02 Head {h00=0x0026, h01=0x0050, text=» RF(E) TYPERR NO NEXADECIMAL DIGIT«, t00=0x0165, t01=0x015c}
0x22f02…22f0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x0186}
0x22f0c…22f32 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/46 DIGIT BETWEEN A-F?«, t00=0x0165, t01=0x0190}
0x22f32…22f4a Head {h00=0x0014, h01=0x0050, text=» RF(G) TYPERR NO«, t00=0x0166, t01=0x0026}
0x22f4a…22f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x003e}
0x22f54…22f6a Head {h00=0x0012, h01=0x0050, text=» ADK A1,9 YES!«, t00=0x0166, t01=0x0048}
0x22f6a…22f7e Head {h00=0x0010, h01=0x0050, text=»HXCN00 EQU *«, t00=0x0166, t01=0x005e}
0x22f7e…22fa4 Head {h00=0x0022, h01=0x0050, text=» ANK A1,/F ISOLATE HEX NUMBER «, t00=0x0166, t01=0x0072}
0x22fa4…22fb4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0166, t01=0x0098}
0x22fb4…22fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0166, t01=0x00a8}
0x22fbe…22fd2 Head {h00=0x0010, h01=0x0050, text=»TYPERR EQU *«, t00=0x0166, t01=0x00b2}
0x22fd2…22ff8 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP4 CONF. DATA ERROR«, t00=0x0166, t01=0x00c6}
0x22ff8…2300c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0166, t01=0x00ec}
0x2300c…2301a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0166, t01=0x0100}
0x2301a…2305a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0166, t01=0x010e}
0x2305a…2309a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0166, t01=0x014e}
0x2309a…230da Head {h00=0x003c, h01=0x0050, text=»* P:NA PROCESS NETWORK ADDRESS *«, t00=0x0166, t01=0x018e}
0x230da…2311a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0167, t01=0x003e}
0x2311a…2315a Head {h00=0x003c, h01=0x0050, text=»* SCANS THE NETWORK ADDRESS RECORD (NA=..) IN CONF. *«, t00=0x0167, t01=0x007e}
0x2315a…2319a Head {h00=0x003c, h01=0x0050, text=»* DATA AND REPACKS THE RECORD, OVERWRITING POSSIBLE *«, t00=0x0167, t01=0x00be}
0x2319a…231da Head {h00=0x003c, h01=0x0050, text=»* CONTINUATION DEFINITIONS (C=..), SO THAT THE *«, t00=0x0167, t01=0x00fe}
0x231da…2321a Head {h00=0x003c, h01=0x0050, text=»* WHOLE NETWORK ADDRESS WILL BE IN CONTIGOUSE LOCA- *«, t00=0x0167, t01=0x013e}
0x2321a…2325a Head {h00=0x003c, h01=0x0050, text=»* TIONS. *«, t00=0x0167, t01=0x017e}
0x2325a…2329a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0168, t01=0x002e}
0x2329a…232da Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN NETWORK *«, t00=0x0168, t01=0x006e}
0x232da…2331a Head {h00=0x003c, h01=0x0050, text=»* ADDRESS. *«, t00=0x0168, t01=0x00ae}
0x2331a…2335a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0168, t01=0x00ee}
0x2335a…2339a Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A2 LENGTH OF NETWORK ADDRESS *«, t00=0x0168, t01=0x012e}
0x2339a…233da Head {h00=0x003c, h01=0x0050, text=»* A11 START OF NSA RECORD IN CONF. DATA *«, t00=0x0168, t01=0x016e}
0x233da…2341a Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0169, t01=0x001e}
0x2341a…2345a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0169, t01=0x005e}
0x2345a…23466 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0169, t01=0x009e}
0x23466…23472 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0169, t01=0x00aa}
0x23472…23484 Head {h00=0x000e, h01=0x0050, text=»P:NA EQU *«, t00=0x0169, t01=0x00b6}
0x23484…234ac Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 RESET PACKING CONSTANT«, t00=0x0169, t01=0x00c8}
0x234ac…234d2 Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 RESET ADDRESS LENGTH«, t00=0x0169, t01=0x00f0}
0x234d2…234e6 Head {h00=0x0010, h01=0x0050, text=»P:NA00 EQU *«, t00=0x0169, t01=0x0116}
0x234e6…234f8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0169, t01=0x012a}
0x234f8…2351a Head {h00=0x001e, h01=0x0050, text=» LC A1,1,A11 GET CHARACTER«, t00=0x0169, t01=0x013c}
0x2351a…23544 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A1 SET CONDITION REGISTER «, t00=0x0169, t01=0x015e}
0x23544…2356c Head {h00=0x0024, h01=0x0050, text=» RF(Z) P:NA06 END OF CONF. DATA «, t00=0x0169, t01=0x0188}
0x2356c…23576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x0020}
0x23576…2359a Head {h00=0x0020, h01=0x0050, text=» CCK A1,/FF END OF D-BLOCK? «, t00=0x016a, t01=0x002a}
0x2359a…235b4 Head {h00=0x0016, h01=0x0050, text=» RF(E) P:NA05 YES!«, t00=0x016a, t01=0x004e}
0x235b4…235be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x0068}
0x235be…235e8 Head {h00=0x0026, h01=0x0050, text=» CCK A1,'==' CONTINUATION RECORD? «, t00=0x016a, t01=0x0072}
0x235e8…23602 Head {h00=0x0016, h01=0x0050, text=» RF(E) P:NA04 YES!«, t00=0x016a, t01=0x009c}
0x23602…2360c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x00b6}
0x2360c…2363e Head {h00=0x002e, h01=0x0050, text=» CCK A1,'NN' NO! START OF NA OR NSA RECORD«, t00=0x016a, t01=0x00c0}
0x2363e…23660 Head {h00=0x001e, h01=0x0050, text=» RF(E) P:NA06 YES! RETURN «, t00=0x016a, t01=0x00f2}
0x23660…2366a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x0114}
0x2366a…23694 Head {h00=0x0026, h01=0x0050, text=» CCK A1,'SS' START OF SDTE RECORD?«, t00=0x016a, t01=0x011e}
0x23694…236ae Head {h00=0x0016, h01=0x0050, text=» RF(E) P:NA06 YES!«, t00=0x016a, t01=0x0148}
0x236ae…236b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016a, t01=0x0162}
0x236b8…236e6 Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 INCREMENT NA ADDRESS LENGTH «, t00=0x016a, t01=0x016c}
0x236e6…2370a Head {h00=0x0020, h01=0x0050, text=» CWK A2,/FF TOO MANY DIGITS?«, t00=0x016b, t01=0x000a}
0x2370a…23724 Head {h00=0x0016, h01=0x0050, text=» RF(NG) P:NA02 NO!«, t00=0x016b, t01=0x002e}
0x23724…2372e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016b, t01=0x0048}
0x2372e…2375c Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP4 YES! ERROR IN CONF. DATA«, t00=0x016b, t01=0x0052}
0x2375c…23770 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x016b, t01=0x0080}
0x23770…23784 Head {h00=0x0010, h01=0x0050, text=»P:NA02 EQU *«, t00=0x016b, t01=0x0094}
0x23784…23796 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x016b, t01=0x00a8}
0x23796…237bc Head {h00=0x0022, h01=0x0050, text=» ADR A3,A11 REPACKING ADDRESS «, t00=0x016b, t01=0x00ba}
0x237bc…237ea Head {h00=0x002a, h01=0x0050, text=» SCR A1,A3 PUT CHARACTER BACK IN FILE «, t00=0x016b, t01=0x00e0}
0x237ea…23810 Head {h00=0x0022, h01=0x0050, text=» ADKL A11,1 GET NEXT CHARACTER«, t00=0x016b, t01=0x010e}
0x23810…23822 Head {h00=0x000e, h01=0x0050, text=» RB P:NA00«, t00=0x016b, t01=0x0134}
0x23822…2382c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016b, t01=0x0146}
0x2382c…23840 Head {h00=0x0010, h01=0x0050, text=»P:NA04 EQU *«, t00=0x016b, t01=0x0150}
0x23840…23876 Head {h00=0x0032, h01=0x0050, text=» SUK A2,1 DON'T COUNT CONT. RECORD IDENTIFIER «, t00=0x016b, t01=0x0164}
0x23876…2389e Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 SET REPACKING CONSTANT«, t00=0x016c, t01=0x000a}
0x2389e…238cc Head {h00=0x002a, h01=0x0050, text=» ADKL A11,1 ADVANCE TO NEXT CHARACTER «, t00=0x016c, t01=0x0032}
0x238cc…238de Head {h00=0x000e, h01=0x0050, text=» RB P:NA00«, t00=0x016c, t01=0x0060}
0x238de…238e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016c, t01=0x0072}
0x238e8…238fc Head {h00=0x0010, h01=0x0050, text=»P:NA05 EQU *«, t00=0x016c, t01=0x007c}
0x238fc…23922 Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 DECREMENT NA LENGTH «, t00=0x016c, t01=0x0090}
0x23922…23950 Head {h00=0x002a, h01=0x0050, text=» SUKL A11,1 AND POSITION IN CONF. DATA«, t00=0x016c, t01=0x00b6}
0x23950…2395a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016c, t01=0x00e4}
0x2395a…2396e Head {h00=0x0010, h01=0x0050, text=»P:NA06 EQU *«, t00=0x016c, t01=0x00ee}
0x2396e…2397e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x016c, t01=0x0102}
0x2397e…2398c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x016c, t01=0x0112}
0x2398c…23994 Head {h00=0x0004, h01=0x0050, t00=0x016c, t01=0x0120}
0x23994…239d4 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x016c, t01=0x0128}
0x239d4…23a14 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x016c, t01=0x0168}
0x23a14…23a54 Head {h00=0x003c, h01=0x0050, text=»* ENDBLK LOOKS FOR END OF DATA COMMUNICATION BLOCK *«, t00=0x016d, t01=0x0018}
0x23a54…23a94 Head {h00=0x003c, h01=0x0050, text=»* ================================================= *«, t00=0x016d, t01=0x0058}
0x23a94…23ad4 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x016d, t01=0x0098}
0x23ad4…23b14 Head {h00=0x003c, h01=0x0050, text=»* END OF BLOCK IS DEFINED BY A RECORD BEGINNING *«, t00=0x016d, t01=0x00d8}
0x23b14…23b54 Head {h00=0x003c, h01=0x0050, text=»* WITH 'A' AS IN APPLICATION DEFINITION BLOCK OR *«, t00=0x016d, t01=0x0118}
0x23b54…23b94 Head {h00=0x003c, h01=0x0050, text=»* BY A CHARACTER = 0 (BINARY) MEANING END OF *«, t00=0x016d, t01=0x0158}
0x23b94…23bd4 Head {h00=0x003c, h01=0x0050, text=»* CONFIGURATION DATA. *«, t00=0x016e, t01=0x0008}
0x23bd4…23c14 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x016e, t01=0x0048}
0x23c14…23c54 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A11 CURRENT POSITION IN CONF. DATA *«, t00=0x016e, t01=0x0088}
0x23c54…23c94 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x016e, t01=0x00c8}
0x23c94…23cd4 Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A8 = 0 IF END OF BLOCK *«, t00=0x016e, t01=0x0108}
0x23cd4…23d14 Head {h00=0x003c, h01=0x0050, text=»* A8 NOT ZERO OTHERVISE *«, t00=0x016e, t01=0x0148}
0x23d14…23d54 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x016e, t01=0x0188}
0x23d54…23d94 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x016f, t01=0x0038}
0x23d94…23d9c Head {h00=0x0004, h01=0x0050, t00=0x016f, t01=0x0078}
0x23d9c…23da4 Head {h00=0x0004, h01=0x0050, t00=0x016f, t01=0x0080}
0x23da4…23db8 Head {h00=0x0010, h01=0x0050, text=»ENDBLK EQU *«, t00=0x016f, t01=0x0088}
0x23db8…23de0 Head {h00=0x0024, h01=0x0050, text=» LC A8,1,A11 GET NEXT CHARACTER «, t00=0x016f, t01=0x009c}
0x23de0…23e06 Head {h00=0x0022, h01=0x0050, text=» CCK A8,/00 END OF CONF. DATA?«, t00=0x016f, t01=0x00c4}
0x23e06…23e20 Head {h00=0x0016, h01=0x0050, text=» RF(E) ENDBL0 YES!«, t00=0x016f, t01=0x00ea}
0x23e20…23e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016f, t01=0x0104}
0x23e2a…23e5a Head {h00=0x002c, h01=0x0050, text=» CCK A8,'AA' START OF APPL. DEF. BLOCK? «, t00=0x016f, t01=0x010e}
0x23e5a…23e88 Head {h00=0x002a, h01=0x0050, text=» RF(NE) ENDBL2 NO! NOT END OF D-BLOCK «, t00=0x016f, t01=0x013e}
0x23e88…23e92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x016f, t01=0x016c}
0x23e92…23ea6 Head {h00=0x0010, h01=0x0050, text=»ENDBL0 EQU *«, t00=0x016f, t01=0x0176}
0x23ea6…23ed2 Head {h00=0x0028, h01=0x0050, text=» SUR A8,A8 SET END OF D-BLOCK COND. «, t00=0x016f, t01=0x018a}
0x23ed2…23ee6 Head {h00=0x0010, h01=0x0050, text=»ENDBL2 EQU *«, t00=0x0170, t01=0x0026}
0x23ee6…23ef6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0170, t01=0x003a}
0x23ef6…23f02 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0170, t01=0x004a}
0x23f02…23f10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0170, t01=0x0056}
0x23f10…23f14 Head {h00=0x0054, h01=0x0050}
0x23f14…23f18 Head {h00=0x2a3d, h01=0x2a3d}
0x23f18…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 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 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 2a 20 01 70 ┆*=*=*=*=*=*=*=*=*=*= p d 6 P* GENERAL SUBROUTINES * p┆
0x23fa0…23ff0 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 2a 3d 2a 3d ┆ T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=┆
0x23ff0…24040 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 2a 2a 2a 2a ┆*=*=*= p P p N P p V P p ^ 8 P******************************************┆
0x24040…24090 (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* ┆
0x24090…240e0 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****┆
0x240e0…24130 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 ┆
0x24130…24180 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┆
0x24180…241d0 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┆
0x241d0…24220 (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┆
0x24220…24270 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┆
0x24270…242c0 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┆
0x242c0…24310 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┆
0x24310…24360 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┆
0x24360…243b0 (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┆
0x243b0…24400 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**************┆
0x24400…24450 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 ┆
0x24450…244a0 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 ┆
0x244a0…244ee 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)┆
0x244ee…2453e (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┆
0x2453e…2458e 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┆
0x2458e…245de 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****┆
0x245de…2462e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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┆
0x2462e…2467e 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********************************************┆
0x2467e…246ce (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┆
0x246ce…2471e 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 ┆
0x2471e…2476e 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┆
0x2476e…247be 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┆
0x247be…2480e 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┆
0x2480e…2485e (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* ┆
0x2485e…248ae 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****************************┆
0x248ae…248fe 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* ┆
0x248fe…2494e 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 ┆
0x2494e…2499e 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:┆
0x2499e…249ee (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 @┆
0x249ee…24a3e 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┆
0x24a3e…24a8e 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********************************┆
0x24a8e…24ade 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************┆
0x24ade…24b2c 2a 2a 2a 2a 2a 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┆
0x24b2c…24b7c (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┆
0x24b7c…24bcc 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┆
0x24bcc…24c1c 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┆
0x24c1c…24c6c 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┆
0x24c6c…24cbc 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,┆
0x24cbc…24d0c (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┆
0x24d0c…24d5c 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 ┆
0x24d5c…24dac 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┆
0x24dac…24dfc 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┆
0x24dfc…24e4c 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 - ┆
0x24e4c…24e50 (378, 0, 400) 47 45 54 20 ┆GET ┆
0x24e50…24ea0 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 3d 3d 3d 3d ┆TASK CLASS TO MATCH * y : P* ===============================┆
0x24ea0…24ef0 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 20 20 20 20 ┆= * z 2 : P* ┆
0x24ef0…24f18 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 ┆
0x24f18…2a2ac […elided…]
0x2a2ac…2a2b0 49 4c 44 20 ┆ILD ┆
0x2a2b0…2a300 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 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 ┆TASK CONTROL TABLE P IFF FM=0 4 & P CALL B:FWT BUILD FILE WORK TABLES ┆
0x2a300…2a350 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 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 ┆ F P XIF p ( P CALL MONBLK GENERATE MONITOR BLOCKS | P IFF EDM=0 2 P┆
0x2a350…2a3a0 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 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 ┆ CALL B:MXTT BUILD MONITOR EXTENT TASK TABLES 6 P CALL B:MSEG BUILD MONITOR┆
0x2a3a0…2a3f0 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 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 ┆ SEGMENT TABLES & TTAB:S P XIF * & P CALL B:TT BUILD USER TASK TABLES ┆
0x2a3f0…2a426 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 ┆ 6 P IFF SWPBLK=0 ` 2 P CALL B:SWBT BUILD SWAPPAB┆
0x2a426…2a476 (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┆
0x2a476…2a4c6 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:┆
0x2a4c6…2a516 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┆
0x2a516…2a566 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┆
0x2a566…2a5b6 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┆
0x2a5b6…2a606 (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┆
0x2a606…2a656 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******************┆
0x2a656…2a6a6 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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┆
0x2a6a6…2a6f6 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┆
0x2a6f6…2a746 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************************************┆
0x2a746…2a77c (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┆
0x2a77c…2a7b8 (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┆
0x2a7b8…2a7c0 (437, 1, 8) 20 04 00 00 01 b5 00 04 ┆ ┆
0x2a7c0…2a810 (438, 0, 400) 5c 43 57 52 5c 41 33 2c 41 31 5c 41 54 54 52 49 42 55 54 45 20 42 45 46 4f 52 20 45 4e 44 20 4f 46 20 4c 49 4e 45 3f 20 00 7d 01 90 00 16 00 50 5c 52 46 28 4e 47 29 5c 44 45 4c 32 30 30 5c 4e 4f 20 00 7e 00 30 00 0e 00 50 5c 4c 44 52 5c 41 ┆ CWR A3,A1 ATTRIBUTE BEFOR END OF LINE? } P RF(NG) DEL200 NO ~ 0 P LDR A┆
0x2a810…2a860 33 2c 41 31 00 7e 00 4a 00 10 00 50 44 45 4c 32 30 30 5c 45 51 55 5c 2a 00 7e 00 5c 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 34 00 7e 00 70 00 10 00 50 44 45 4c 33 30 30 5c 45 51 55 5c 2a 00 7e 00 82 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 31 20 ┆3,A1 ~ J PDEL200 EQU * ~ P LDR A1,A4 ~ p PDEL300 EQU * ~ P ADK A1,1 ┆
0x2a860…2a8b0 00 7e 00 96 00 2c 00 50 5c 43 46 5c 41 31 34 2c 47 45 54 56 44 55 5c 47 45 54 20 43 48 41 52 2e 20 49 4e 20 20 56 44 55 20 42 55 46 46 45 52 20 00 7e 00 a8 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 31 20 00 7e 00 d8 00 2c 00 50 5c 43 46 5c 41 31 ┆ ~ , P CF A14,GETVDU GET CHAR. IN VDU BUFFER ~ P SUK A1,1 ~ , P CF A1┆
0x2a8b0…2a900 34 2c 53 54 4f 56 44 55 5c 53 54 4f 52 45 20 43 48 41 52 2e 20 49 4e 20 56 44 55 20 42 55 46 46 45 52 00 7e 00 ea 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 31 20 00 7e 01 1a 00 1c 00 50 5c 43 57 52 5c 41 31 2c 41 33 5c 41 4c 4c 20 53 48 49 46 54 ┆4,STOVDU STORE CHAR. IN VDU BUFFER ~ P ADK A1,1 ~ P CWR A1,A3 ALL SHIFT┆
0x2a900…2a950 45 44 3f 20 00 7e 01 2c 00 16 00 50 5c 52 42 28 4e 45 29 5c 44 45 4c 33 30 30 5c 4e 4f 20 00 7e 01 4c 00 20 00 50 5c 4c 44 4b 5c 41 37 2c 4e 55 4c 4c 5c 47 45 54 20 4e 55 4c 4c 20 43 48 41 52 2e 20 00 7e 01 66 00 30 00 50 5c 43 46 5c 41 31 ┆ED? ~ , P RB(NE) DEL300 NO ~ L P LDK A7,NULL GET NULL CHAR. ~ f 0 P CF A1┆
0x2a950…2a9a0 (439, 0, 398) 34 2c 53 54 4f 56 44 55 5c 53 54 4f 52 45 20 4e 55 4c 4c 20 43 48 41 52 20 49 4e 20 56 44 55 20 42 55 46 46 45 52 00 7e 01 8a 00 12 00 50 5c 43 46 5c 41 31 34 2c 53 41 56 45 31 20 00 7f 00 2e 00 12 00 50 5c 4c 44 4b 5c 41 35 2c 4c 4c 49 4e ┆4,STOVDU STORE NULL CHAR IN VDU BUFFER ~ P CF A14,SAVE1 . P LDK A5,LLIN┆
0x2a9a0…2a9f0 45 20 00 7f 00 44 00 10 00 50 5c 4c 44 52 5c 41 36 2c 41 31 31 20 00 7f 00 5a 00 10 00 50 5c 53 55 52 5c 41 31 30 2c 41 31 30 00 7f 00 6e 00 1e 00 50 5c 43 46 5c 41 31 34 2c 4c 49 4e 45 5c 47 45 54 20 4c 49 4e 45 20 46 4c 41 47 00 7f 00 82 ┆E D P LDR A6,A11 Z P SUR A10,A10 n P CF A14,LINE GET LINE FLAG ┆
0x2a9f0…2aa40 00 14 00 50 5c 4c 43 5c 41 31 2c 4c 49 4e 46 4c 47 2c 41 36 00 7f 00 a4 00 0e 00 50 5c 4f 52 4b 5c 41 31 2c 31 20 00 7f 00 bc 00 14 00 50 5c 53 43 5c 41 31 2c 4c 49 4e 46 4c 47 2c 41 36 00 7f 00 ce 00 12 00 50 5c 43 46 5c 41 31 34 2c 52 45 ┆ P LC A1,LINFLG,A6 P ORK A1,1 P SC A1,LINFLG,A6 P CF A14,RE┆
0x2aa40…2aa90 53 54 31 20 00 7f 00 e6 00 28 00 50 5c 43 46 5c 41 31 34 2c 44 49 53 4d 4f 44 5c 44 49 53 50 4c 41 59 20 4d 4f 44 49 46 49 45 44 20 4c 49 4e 45 00 7f 00 fc 00 0e 00 50 5c 52 46 5c 44 45 4c 39 30 30 00 7f 01 28 00 10 00 50 44 45 4c 37 30 30 ┆ST1 ( P CF A14,DISMOD DISPLAY MODIFIED LINE P RF DEL900 ( PDEL700┆
0x2aa90…2aade 5c 45 51 55 5c 2a 00 7f 01 3a 00 20 00 50 5c 43 46 5c 41 31 34 2c 45 52 52 4f 52 5c 49 4e 44 49 43 41 54 45 20 45 52 52 4f 52 00 7f 01 4e 00 10 00 50 44 45 4c 39 30 30 5c 45 51 55 5c 2a 00 7f 01 72 00 0c 00 50 5c 52 54 4e 5c 41 31 34 ┆ EQU * : P CF A14,ERROR INDICATE ERROR N PDEL900 EQU * r P RTN A14┆
0x2aade…2ab2e (440, 0, 400) 00 7f 01 86 00 08 00 50 5c 58 49 46 00 80 00 08 00 0a 00 50 5c 45 4a 45 43 54 00 80 00 14 00 3c 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 ┆ P XIF P EJECT < P**********************************************┆
0x2ab2e…2ab7e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 80 00 22 00 3c 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 20 20 20 2a 00 80 00 62 00 3c ┆********** " < P* * b <┆
0x2ab7e…2abce 00 50 2a 20 20 20 20 20 20 20 20 52 45 53 45 54 20 20 20 20 20 20 20 52 45 53 45 54 20 4b 45 59 20 48 41 4e 44 4c 49 4e 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 80 00 a2 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P* RESET RESET KEY HANDLING * < P* ┆
0x2abce…2ac1e 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 00 80 00 e2 00 3c 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 ┆ * < P******************************┆
0x2ac1e…2ac6e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 80 01 22 00 10 00 50 2a 5c 5c 52 45 47 49 53 54 45 52 53 00 80 01 62 00 06 00 50 2a 20 00 80 01 76 00 1c 00 50 2a 5c 41 31 31 3d 20 43 52 45 44 49 54 20 57 4f ┆************************** " P* REGISTERS b P* v P* A11= CREDIT WO┆
0x2ac6e…2acbe (441, 0, 400) 52 4b 20 41 52 45 41 20 00 80 01 80 00 14 00 50 2a 5c 41 31 33 3d 20 52 45 53 45 52 56 45 44 20 00 81 00 10 00 06 00 50 2a 20 00 81 00 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 ┆RK AREA P* A13= RESERVED P* ( 8 P******************************┆
0x2acbe…2ad0e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 81 00 32 00 10 00 50 52 45 53 45 54 5c 45 51 55 5c 2a 20 00 81 00 6e 00 22 00 50 5c 43 4d 5c 4d 4f 44 45 2c 41 31 31 5c 52 45 53 45 54 20 49 4e 53 45 52 54 20 4d 4f 44 45 ┆********************** 2 PRESET EQU * n " P CM MODE,A11 RESET INSERT MODE┆
0x2ad0e…2ad5e 00 81 00 82 00 2a 00 50 5c 43 46 5c 41 31 34 2c 4c 4d 50 36 4f 46 5c 54 55 52 4e 20 4f 46 46 20 22 49 4e 53 45 52 54 22 20 4c 41 4d 50 20 00 81 00 a8 00 24 00 50 5c 43 4d 5c 4b 42 49 4e 48 2c 41 31 31 5c 52 45 53 53 54 4f 52 45 20 4b 45 59 ┆ * P CF A14,LMP6OF TURN OFF "INSERT" LAMP $ P CM KBINH,A11 RESSTORE KEY┆
0x2ad5e…2adae 42 4f 41 52 44 20 00 81 00 d6 00 28 00 50 5c 43 46 5c 41 31 34 2c 4c 4d 50 34 4f 46 5c 54 55 52 4e 20 4f 46 46 20 27 45 52 52 4f 52 27 20 4c 41 4d 50 00 81 00 fe 00 34 00 50 5c 43 46 5c 41 31 34 2c 4c 4d 50 33 4f 46 5c 54 55 52 4e 20 4f 46 ┆BOARD ( P CF A14,LMP4OF TURN OFF 'ERROR' LAMP 4 P CF A14,LMP3OF TURN OF┆
0x2adae…2adfe 46 20 27 4b 45 59 42 4f 41 52 44 20 49 4e 48 49 42 49 54 27 20 4c 41 4d 50 20 00 81 01 2a 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 81 01 62 00 0a 00 50 5c 45 4a 45 43 54 00 81 01 72 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆F 'KEYBOARD INHIBIT' LAMP * P RTN A14 b P EJECT r @ P****************┆
0x2adfe…2ae4e (442, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 81 01 80 00 40 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 ┆******************************************* @ P* ┆
0x2ae4e…2ae9e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 82 00 34 00 40 00 50 2a 20 20 20 20 20 20 20 20 44 55 50 20 20 20 20 20 20 20 44 55 50 4c 49 43 41 54 45 20 4b 45 59 20 20 20 20 20 20 20 20 ┆ * 4 @ P* DUP DUPLICATE KEY ┆
0x2ae9e…2aeee 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 82 00 78 00 40 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 ┆ * x @ P* ┆
0x2aeee…2af3e 20 20 20 20 20 20 2a 20 00 82 00 bc 00 40 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 20 00 82 01 00 ┆ * @ P*********************************************************** ┆
0x2af3e…2af8e 00 10 00 50 2a 5c 5c 52 45 47 49 53 54 45 52 53 00 82 01 44 00 06 00 50 2a 20 00 82 01 58 00 12 00 50 2a 5c 41 32 3d 20 4b 45 59 2d 43 48 41 52 00 82 01 62 00 14 00 50 2a 5c 41 31 31 3d 20 52 45 53 45 52 56 45 44 20 00 82 01 78 00 14 00 50 ┆ P* REGISTERS D P* X P* A2= KEY-CHAR b P* A11= RESERVED x P┆
0x2af8e…2afde (443, 0, 400) 2a 5c 41 31 33 3d 20 52 45 53 45 52 56 45 44 20 00 82 01 90 00 06 00 50 2a 20 00 83 00 18 00 40 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 ┆* A13= RESERVED P* @ P**********************************************┆
0x2afde…2b02e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 83 00 22 00 0e 00 50 44 55 50 5c 45 51 55 5c 2a 20 00 83 00 66 00 20 00 50 5c 4c 44 4b 5c 41 32 2c 44 55 50 43 48 5c 47 45 54 20 44 55 50 20 43 48 41 52 2e 20 00 83 00 78 00 10 00 50 5c 43 46 5c ┆************** " PDUP EQU * f P LDK A2,DUPCH GET DUP CHAR. x P CF ┆
0x2b02e…2b07e 41 31 34 2c 4e 55 4d 20 00 83 00 9c 00 10 00 50 5c 43 46 5c 41 31 34 2c 54 41 42 20 00 83 00 b0 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 83 00 c4 00 0a 00 50 5c 45 4a 45 43 54 00 83 00 d4 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆A14,NUM P CF A14,TAB P RTN A14 P EJECT @ P**************┆
0x2b07e…2b0ce 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 83 00 e2 00 40 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 ┆********************************************* @ P* ┆
0x2b0ce…2b11e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 83 01 26 00 40 00 50 2a 20 20 20 20 20 20 20 20 46 4c 44 4d 52 4b 20 20 20 20 20 20 20 46 49 45 4c 44 20 4d 41 52 4b 20 4b 45 59 20 20 ┆ * & @ P* FLDMRK FIELD MARK KEY ┆
0x2b11e…2b16e (444, 0, 398) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 83 01 6a 00 40 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 ┆ * j @ P* ┆
0x2b16e…2b1be 20 20 20 20 20 20 20 20 2a 20 00 84 00 1e 00 40 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 20 00 84 ┆ * @ P*********************************************************** ┆
0x2b1be…2b20e 00 62 00 10 00 50 2a 5c 5c 52 45 47 49 53 54 45 52 53 00 84 00 a6 00 06 00 50 2a 20 00 84 00 ba 00 12 00 50 2a 5c 41 32 3d 20 4b 45 59 2d 43 48 41 52 00 84 00 c4 00 14 00 50 2a 5c 41 31 31 3d 20 52 45 53 45 52 56 45 44 20 00 84 00 da 00 14 ┆ b P* REGISTERS P* P* A2= KEY-CHAR P* A11= RESERVED ┆
0x2b20e…2b25e 00 50 2a 5c 41 31 33 3d 20 52 45 53 45 52 56 45 44 20 00 84 00 f2 00 06 00 50 2a 20 00 84 01 0a 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P* A13= RESERVED P* @ P********************************************┆
0x2b25e…2b2ac 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 84 01 14 00 10 00 50 46 4c 44 4d 52 4b 5c 45 51 55 5c 2a 00 84 01 58 00 26 00 50 5c 4c 44 4b 5c 41 32 2c 46 4d 43 48 5c 47 45 54 20 46 49 45 4c 44 20 4d 41 52 4b 20 43 48 41 52 2e 20 ┆*************** PFLDMRK EQU * X & P LDK A2,FMCH GET FIELD MARK CHAR. ┆