|
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: 170384 (0x29990)
Notes: pts_type(SC)
Names: »SYSLDM.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »SYSLDM/SYSLDM.SC«
IDENT SYSLDM REL 11.0 81-02-16 870105041100 =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 GENERAL CONNECTION EXTRN INTAS1 ASYNCHRONOUS CONNECTION EXTRN INTSL1 SYNCHRONOUS CONNECTION * * MISCELLANOEUS EXTERNALS * EXTRN REL RELOCATION BASE IN SYSINI EXTRN SCLASS SPECIAL DEVICE CLASS TABLE EXTRN TCLASS TERMINAL DEVICE CLASS TABLE EXTRN SYSLOD START OF SYSLOD EXTRN STKCOM COMMON STACK AREA BASE EXTRN STKEND LOCAL STACK AREA BASE * * EXTERNAL SUBROUTINES * EXTRN ERROR ERROR HANDLING EXTRN MOVE MOVE AREAS IN MEMORY EXTRN MULT MULTIPLY EXTRN PSW STORE PROGRAM STATUS WORD EXTRN CMPADR COMPARE ADDRESSES EXTRN CONVRT CONVERT FROM ASCII TO BINARY EXTRN NXTBLK GET NEXT TASK DEF. BLOCK EXTRN NXTCOM GET NEXT COMMON DEFINITION BLOCK EXTRN GETNUM GET NUMBER EXTRN INBIMA INIT MMU ALLOCATION BIT MAP EXTRN PUSH SAVE REGISTER A1-A14 ON STACK EXTRN POB RESTORE REGISTER A1-A14 FROM STACK EXTRN GETAPP GET NEXT APPLICATION OF SPECIFIED TYPE EJECT * * TTAB DISPLACEMENTS * EXTRN TTB:AM MMU ALLOCATION BIT MAP EXTRN TTB:MT MMU TABLE EXTRN TTB:AP APPLICATION CONTROL BLOCK EXTRN TTB:CB CURRENT SEGMENT BASE POINTER EXTRN TTB:SP SEGMENT TABLE POINTER EXTRN TTB:SB SEGMENT BLOCK POINTER EXTRN TTB:ID TASK ID EXTRN TTB:ST STATUS EXTRN TTB:PP PENDING POINTER EXTRN TTB:PW PROGRAM STATUS WORD EXTRN TTB:SA DISPATCH ADDRESS EXTRN TTB:TD DEVICE TABLE LENGTH * * DWT PARAMETERS * EXTRN DWTCHP CHANNEL PARAMETER-1 EXTRN DWTST STATUS EXTRN DWTECB ECB ADDRESS EXTRN DWTOR ORDER EXTRN DWTADR ADDRESS BLOCK EXTRN DWTTAB TTAB ADDRESS EXTRN DWTWAT WAIT/ACTIVATE INDICATOR EXTRN DWTTQ TERMINAL QUEUE EXTRN DWTUEC USER ECB ADDRESS EXTRN DWTMEC MONITOR ECB ADDRESS EXTRN DWTCP2 CHANNEL PARAMETER-2 EXTRN DWTDEV DEVICE STATUS EXTRN DWTECH ECHO DEVICE EXTRN DWTSQ START OF QUEUE EJECT *************************************** * CONDITIONAL ASSEMBLY * *************************************** MMUPAG EQU 0 1 - MEMORY MANAGEMENT UNIT DSKPAG EQU 0 1 - DISC PAGING SWPBLK EQU 0 1 - SWAPPABLE WORK BLOCK HANDLING EDM EQU 0 1 - EXTENDED DATA MANAGEMENT X:A EQU 1 X:B EQU 1 X:C EQU 1 X:D EQU 1 X:E EQU 1 X:F EQU 1 X:G EQU 1 X:H EQU 1 X:I EQU 1 X:J EQU 1 X:K EQU 0 X:L EQU 1 X:M EQU 0 * SUML EQU X:A SUMR EQU X:B SALCUZ EQU X:C ASCU4Z EQU X:D FT80 EQU X:E PLCL EQU X:F PLCR EQU X:G VIDEO EQU X:H TEDVCL EQU X:I SPDVCL EQU X:J NOEXMB EQU X:K FM EQU X:L DC EQU X:M EJECT * * COMMON DISPLACEMENTS AND CONSTANTS * ACBLEN EQU 26 APPL.CONTROL BLOCK LENGTH =3 APLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE APPLNO EQU 18 APPLICATION NUMBER BUFSIZ EQU 14 TEMPORARY BUFFER SIZE CONLEN EQU 0 LENGTH OF CONFIGURATION DATA CONSTA EQU 2 START OF CONFIGURATION DATA DATEND EQU 34 END OF DDIV PROTOTYPE FSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER FSTPAG EQU 22 1ST FREE PAGE (PHYSICAL) FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART MAPLEN EQU 30 LENGTH OF AREA TO MAP MMFROM EQU 36 2ND MMU TABLE WORK AREA MMTO EQU 38 1:ST MMU TABLE WORK AREA M:REL EQU 16 RELOCATION CONSTANT SYSBUF EQU 28 START OF TEMPORARY BUFFER SWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) SWBFSE EQU 8 SWB-FILE END ADDRESS (2 WORDS) TTAB EQU 32 WORK AREA FOR MMU TABLE COM01 EQU 40 COMMON SAVE AREA 1 COM02 EQU 42 COMMON SAVE AREA 2 COM03 EQU 44 COMMON SAVE AREA 3 TOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS SWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG COM04 EQU 50 COMMON SAVE AREA 4 DCBLK EQU 54 START OF DC CONF. DATA EJECT * * DISPLACEMENT IN LOCAL STACK AREA * TCLA EQU 0 ADDRESS TO TCLASS SCLA EQU 2 ADDRESS TO SCLASS CUTENT EQU 4 FIRST USER TASK ENTRY FWTSIZ EQU 6 FWT AREA SIZE IN WORDS APCTAB EQU 8 CURRENT APPL CONTROL BLOCK SFASAV EQU 10 SAVE START OF FREE AREA NBRTSK EQU 12 NUMBER OF TASKS IN CLASS TASKID EQU 14 TASK IDENTIFICATION FWTFLG EQU 16 FWT FLAG TCLSAV EQU 18 TASK CLASS TSKLEV EQU 20 TASK LEVEL INTTAB EQU 22 TEMP INTTERRUPT TABLE FWTSTA EQU 24 START OF FWT AREA LIMIT EQU 26 CURRENT END OF SYSTEM AREA NBRCOM EQU 28 NUMBER OF COMMON TDC:S CLASID EQU 30 CLASS ID CONTYP EQU 32 CONNECTION TYPE LCNBR EQU 34 LINE CONNECTION NUMBER CLANBR EQU 36 CLASS NUMBER MAXSGM EQU 38 MAXIMUM SEGMENT SIZE * WRK1 EQU 42 WORK AREA 1 WRK2 EQU 44 WORK AREA 2 WRK3 EQU 46 WORK AREA 3 WRK4 EQU 48 WORK AREA 4 BRDTAB EQU 50 BOARD CONF TABLE LCDSTA EQU 52 CONFIGURATION DATA POINTER NBRSDC EQU 54 NUMBER OF SPECIAL DEVICE CLASSES NBRTDC EQU 56 NUMBER OF TERMINAL DEVICE CLASSES APLNO EQU 58 NUMBR OF APPLICATIONS ECHTAB EQU 60 ECHO TABLE ADDRESS SGMCNT EQU 62 SEGMENT COUNTER NUMDTE EQU 64 NUMBER OF DTE:S DEFINED DTENAM EQU 66 SDTE IDENTIFICATION DTETYP EQU 68 TYPE OF CONNECTION NASTRT EQU 70 START OF NETW. ADDR. IN CONF. DATA NALNG EQU 72 LENGTH OF NETWORK ADDRESS DTENSA EQU 74 NO OF SUBADDRESSES DEFINED DTECOP EQU 76 NO OF COPIES OF CURRENT DTE BLOCK NSAADR EQU 78 START OF SUBADDRESSES(DC) APCSTA EQU APCTAB CURRENT APPLICATION CONTROL BLOCK SCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK EXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK NBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS SWBBLK EQU FWTFLG START OF SWB CONF. DATA SWBNAM EQU FWTSTA ADDRESS TO SWB NAME SWBTBL EQU NBRTSK LENGTH OF S:BTAB TCTEND EQU NBRTSK LAST TCTAB ENTRY SWBCNT EQU TASKID NUMBER OF SWB:S EJECT * * DISPLACEMENT IN APPLICATION CONTROL TABLE * APLREL EQU 18 APPLICATION RELOCATION BASE =6 APLIOE EQU 0 APPLICATION RESTART ADDRESS APLLAC EQU 14 APPLICATION LOAD ADDRESS APLLAP EQU 12 LOGICAL PAGE ADDRESS APLLDA EQU 0 APPL. LOAD ADDRESS (PHYSICAL) APLMMC EQU 10 APPL MMU START ENTRY APLMMP EQU 8 SEGMENT START MMU ENTRY APLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT APLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU APLSWB EQU 2 SWB TABLE ADDRESS APLSTA EQU 16 APPL PROGRAM START ADDRESS APLTYP EQU 8 APPLICATION TYPE APLADA EQU 22 APPLICATION DISC ADDRESS (2 WORDS) =3 APLPSZ EQU 20 APPLICATION SEGMENT SIZE =3 EJECT * * CONSTANTS * S:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS SWBLEN EQU 4 LENGTH OF SWB SWBSEC EQU 6 DISPL. TO SECTOR LENGTH UP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB UPNAME EQU 4 PROTOTYPE NAME WBLEN EQU -4 LENGTH OF WORKBLOCK ******************************* * DISPLACEMENT IN CONFIGURATION DATA ******************************* * TASK DEFINITION BLOCK: TDBBT EQU 0 1A BLOCK TYPE TDBNT EQU TDBBT+1 2N NUMBER OF TASKS TDBID EQU TDBNT+2 6A TASK ID START VALUE TDBMC EQU TDBID+6 6A MATCHING TASK CLASS TDBTL EQU TDBMC+6 6A TASK LEVEL TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES * TDBFST EQU TDBNC+2 FIRST TERM DEF TDC EQU 7 TERMINAL DEVICE CLASS TLC EQU 7 LINE CONNECTION TDBREC EQU TDC+TLC TDB-RECORD LENGTH * SDC EQU 7 SPECIAL DEVICE CLASS-RECORD * * COMMON DEVICE DEF. BLOCK: * CDBBT EQU 0 1A BLOCK TYPE CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES SDCFST EQU CDBNC+2 FIRST SDC-RECORD * * * USER WORK BLOCK TYPE DEF. BLOCK * UDBBT EQU 0 1A BLOCK TYPE UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES * UDBFST EQU UDBNU+3 FIRST UDB-RECORD NAMUWB EQU 3 NAME OF UWB NUMUBL EQU 3 NUMBER OF BLOCKS UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH * * DATA COMMUNICATION DEFINITION BLOCK * IDLIM EQU 4 ID DELIMITER OFFSET TYPOFS EQU 7 START OF TYPE RECORD NANSA EQU 2 NA-NSA RECORD QUALIFIER POS. NAOFS EQU 3 START OF NA NUMBER NSAOFS EQU 4 START OF NSA RECORD DTEFIX EQU 8 FIX PART OF DTE BLOCK EJECT **************** * SOP-HANDLING * **************** SOP EQU /2E DEVICE ADDRESS LMP1 EQU /400 SYSLOD RUNS LAMP 1 CODE LMP2 EQU /200 NOT USED LMP3 EQU /100 MEMORY OVERFLOW LMP4 EQU /80 ERROR IN CONFIGURATION DATA LMP5 EQU /40 NOT USED LMP6 EQU /20 NOT USED LMP7 EQU /10 NOT USED LMP8 EQU 8 NOT USED LMP9 EQU 4 NOT USED LMP10 EQU 2 NOT USED LMP11 EQU 1 NOT USED ***************************************************************** * CALL-FORMAT, PERFORMS: CFR A14,A13 * * DATA [REL-ADDRESS] * * * ***************************************************************** CALL FORM 16=/F697,16 EJECT * * MXSTAB DISPLACEMENTS * MXSBL EQU 6 SEGMENT BLOCK LENGTH MXNOX EQU 6 NUMBER OF EXTENTS MX:NOS EQU 8 NUMBER OF SEGMENT TABLES MX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH MX:LEV EQU /0031 MONITOR TASK LEVEL MX:LEN EQU 4 MONITOR EXTENT LENGTH MX:DA1 EQU 2 MONITOR DISC ADDRESS BITS 0-15 MX:DA2 EQU MX:DA1+2 MONITOR DISC ADDRESS BITS 16-31 MX:NOX EQU MX:DA2+2 NUMBER OF MONITOR EXTENTS MX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH MX:STA EQU 2 MONITOR EXTENT START ADDRESS EJECT * * *********** * * PAGTAB * * *********** * PAGQF EQU 0 QUEUE POINTER FORWARD PAGQB EQU 2 QUEUE POINTER BACKWARD PAGPA EQU 4 PAGE ADDRESS PAGSB EQU 6 SEGMENT BLOCK ADDRESS EJECT * * ************* * * SEGTAB * * ************* * SEGPB EQU 6 SEGMENT POINTER SEGSB EQU 6 PAGE BLOCK ADDRESS EJECT * * ******************* * * MISCELLANOUES * * ******************* * BUFLEN EQU -4 DEVIND EQU -2 DWTLEN EQU 6 TDCDD1 EQU 5 TDCDD2 EQU 6 TDCLCN EQU 10 DISP. TO LINE CON. NBR SLL0 EQU /3940 SLL A1,0 CONSTANT NBRDPS EQU 12 NUMBER OF DATA PAGES/TASK (BASIC ONLY) EJECT ****************************************************** * * * * * THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * * * * IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING * * PARAMETERS: * * * * A1 - POINTER TO CURRENT LOCATION OF SYSLDX * * A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * * * * * ****************************************************** SYSLDM EQU * LDR A8,P INIT STACK POINTER LDKL A1,REL+2 RELOCATION ROUTINE ENTRY AD A1,STKCOM+M:REL RELOCATE ADDRESS CFR A8,A1 LDKL A11,SYSLOD START OF SYSLOD LDKL A2,TCLASS GET ADDRESS TO TCLASS CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? RF(E) NO:TCL YES:DUMMY TCLASS! CALL CHPTRS RELOCATE POINTERS IN TCLASS ST A2,STKEND+TCLA SAVE RELOCATED POINTER TO TCLASS NO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS CALL CHPTRS RELOCATE POINTERS IN SCLASS ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS RF CLEAR EJECT *********************************************** * CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * *********************************************** * * ENTRY: A2 - POINTER TO TCLASS/SCLASS * A11 - SYSLOD START ADDRESS * A12 - RELOCATION CONSTANT * * EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS * * WORK REGISTER:A1-A7 * * SUBROUTINES: * CHPTRS EQU * ADR A2,A12 RELOCATE POINTER LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS LDR* A4,A3 GET LENGTH OF TCLASS/SCLASS CHPT10 EQU * SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? RF(Z) CHPT30 NO! ADK A3,2 NEXT ENTRY LDR* A5,A3 GET POINTER TO CLASS ADR A5,A12 RELOCATE STR A5,A3 STORE LDR* A6,A5 GET LENGTH OF CLASS CHPT20 EQU * SUK A6,4 MOORE DEVICES IN THIS CLASS? RB(NP) CHPT10 NO! ADK A5,4 NEXT DEVICE LDR* A7,A5 GET DWT-ADDRESS LDR A9,A7 GET DWT-ADDRESS CALL CMPADR COMPARE ADDRESSES RB(G) CHPT20 DWT IN DRIVER! ADR A7,A12 RELOCATE STR A7,A5 STORE RELOCATED DW-ADDRESS LD A8,SCTOPT GET OPTION WORD ANKL A8,1 MMU IN SYSTEM? RB(Z) CHPT20 NO! LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS LDR A9,A8 GET MONITOR ECB ADDRESS ANKL A9,1 ADDRESS ALREADY RELOCATED? RB(NZ) CHPT20 YES! ADR A8,A12 RELOCATE ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS RB CHPT20 CHPT30 EQU * RTN A14 EJECT CLEAR EQU * * * CLEAR ALL WORDS IN SYSTEM AREA * LD A2,SCTSFA LDR A1,P GET PROGRAM COUNTER CLRSYS EQU * SUK A1,2 CMR A1 CWR A1,A2 RB(NE) CLRSYS LDKL A1,CONMON AD A1,STKCOM+M:REL ABR A1 EJECT ************************************************** * B:TCT - BUILD TASK CONTROL TABLE * ************************************************** * * REFERENCED IN: MONCON * * * ENTRY: * * EXIT: * * WORK REGISTERS: A1-A7,A11,A12 * * SUBROUTINES: * * TASK CONTROL TABLE LAYOUT * _________________________ * I LENGTH I * _________________________ * I MONITOR TASKS I * _________________________ * I USER TASKS I * __________________________ * EJECT B:TCT EQU * LD A12,SCTSFA GET START OF FREE AREA ST A12,SCTTCT STORE ADDRESS TO TCTAB ADKL A12,2 FIRST TTAB ADDRESS ENTRY IFF EDM=0 * * RESERVE ENTRIES IN TCTAB FOR MONITOR EXTENT * AND MONITOR SEGMENT TASKS * LD A2,SCTMXS GET ADDRESS TO MXSTAB RF(Z) BTCT20 NOT PRESENT! CALL MX:TDB GET FIRST MONITOR EXTENT TDB BTCT02 SUK A7,1 DECREMENT NUMBER OF EXTENTS RF(N) BTCT05 NO MORE! LDR* A4,A1 GET NUMBER OF TASK ID:S BTCT04 ADK A1,2 NEXT TASK ID SUK A4,1 DECREMENT NUMBER OF TASK ID:S RB(N) BTCT02 NO MORE! LDR* A2,A1 GET TASK ID CALL RESTCT RESERVE ENTRY IN TCTAB RB BTCT04 BTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB BTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES RF(N) BTCT20 NO MORE! LDR* A4,A1 GET NUMBER OF TASK ID:S BTCT08 ADK A1,2 NEXT TASK ID SUK A4,1 DECREMENT NUMBER OF TASK ID:S RB(N) BTCT06 NO MORE LDR* A2,A1 GET TASK ID CALL RESTCT RESERVE ENTRY TCTAB RB BTCT08 XIF EJECT * * RESERVE ENTRIES IN TCTAB FOR USER TASKS * BTCT20 EQU * ST A12,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY LD A7,SYSLOD GET NUMBER OF APPLICATIONS LDKL A4,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK BTCT30 SUK A7,1 MORE APPLICATIONS? RF(N) BTCT70 NO! LD A11,APLMMC,A4 GET START OF CONFIGURATION DATA AD A11,STKCOM+CONSTA RELOCATE POINTER ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY LCR A2,A11 GET BLOCK TYPE CCK A2,'TT' TASK DEFINITION BLOCK? RF(E) BTCT35 YES LDKL A1,LMP4 FORMAT ERROR CALL ERROR HALT EJECT BTCT35 EQU * * * COMPUTE NUMBER OF TASK IN EACH TASK CLASS * BTCT40 EQU * CALL GETTSK GET NUMBER OF TASKS BTCT50 EQU * ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB SUK A1,1 MOORE TASKS IN THIS CLASS? RB(P) BTCT50 YES CALL NXTBLK SKIP TO NEXT BLOCK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) BTCT40 YES BTCT60 EQU * ADK A4,ACBLEN NEXT APPL. CONTROL BLOCK RB BTCT30 * * ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB * BTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA SU A12,SCTTCT COMPUTE LENGTH ST* A12,SCTTCT STORE RTN A14 IFF EDM=0 EJECT ***************************************************** * * * RESTCT - RESERVE ENTRY IN TCTAB * * =============================== * * * * REFERENCED IN: B:TCT * * * * ENTRY: A2 - CURRENT TASK ID * * A12 - NEXT FREE ENTRY IN TCTAB * * * * EXIT: A12 - NEXT FREE ENTRY IN TCTAB * * * * WORK REGISTERS: A3 * * * * SUBROUTINES: * * * ***************************************************** RESTCT EQU * LDR A3,A12 GET END OF TCTAB REST10 SUK A3,2 NEXT ENTRY CW A3,SCTTCT ALL ENTRIES CHECKED? RF(NE) REST30 NOT YET STR A2,A12 STORE TASK ID IN TCTAB ADKL A12,2 NEXT FREEE ENTRY IN TCTAB REST20 RTN A14 RETURN REST30 CWR* A2,A3 CHECK IF SAME TASK ID RB(NE) REST10 NOT THE SAME RB REST20 COINCIDENCE: RETURN XIF IFF FM=0 EJECT *************************************************** * * * B:FWT - BUILD FILE WORK TABLE * * ============================= * * * *************************************************** * * * REFERENCED IN: CONMON * * * * ENTRY: SCTNFT - NUMBER OF FM-FILES PER TASK * * SCTNOF - NUMBER OF GENERAL FM-FILES * * SCTFWL - FILE WORK TABLE LENGTH IN * * BYTES * * * * EXIT: SCTFWT - ADDRESS TO FIRST FWT * * SCTNOF - TOTAL NUMBER OF FM-FILES * * * * WORK REGISTERS: A2,A3 * * * * SUBROUTINES: ERROR,MULT * * * * FUNCTIONAL DESCRIPTION: * * THIS SUBROUTINE RESERVES MEMORY AREA FOR * * FILE WORK TABLES. * * SIZE OF THE AREA RESERVED IS GIVEN BY THE * * FORMULA: A=L*(G+N*T) * * WHERE A=AREA SIZE IN BYTES * * L= FWT LENGTH IN BYTES * * G=NUMBER OF GENERAL FM-FILES * * T=NUMBER OF FM-FILES PER TASK * * N=NUMBER OF USER TASKS * * * *************************************************** EJECT B:FWT EQU * LD* A2,SCTTCT GET LENGTH OF TCTAB AD A2,SCTTCT COMPUTE END OF TCTAB SU A2,STKEND+CUTENT LENGTH OF USER PART SRL A2,1 NUMBER OF USER TASKS LD A3,SCTNFT GET NUMBER OF FM-FILES PER TASK CALL MULT MULTIPLY AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES LD A2,SCTFWL GET FILE WORK TABLE LENGTH CALL MULT MULTIPLY SRL A3,1 NUMBER OF WORDS TO BE RESERVED ADK A3,0 ANY FWT:S AT ALL? RF(Z) FWT70 NO! ST A3,STKEND+FWTSIZ SAVE FWT AREA SIZE IN WORDS LD A2,SCTSFA GET START OF FREE AREA ST A2,SCTFWT STORE ADDRESS TO FIRST FWT ST A2,STKEND+FWTSTA SAVE START OF FWT AREA ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA FWT50 CW A2,STKEND+LIMIT MEMORY OVERFLOW? RF(NE) FWT60 NOT YET! LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR FWT60 CMR A2 CLEAR FWT AREA ADK A2,2 RESERVE ANOTHER WORD SUK A3,1 DECREMENT WORD COUNTER RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW ST A2,SCTSFA UPDATE START OF FREE AREA SUK A2,2 ST A2,STKEND+INTTAB SAVE ADDRESS TO T.I.T. FWT70 RTN A14 XIF EJECT ************************************** * MONBLK - GENERATE MONITOR BLOCKS * ************************************** * * NUMBER OF BLOCKS TO BE GENERATED: * 20+N*(NUMBER OF TASKS IN SYSTEM) * WHERE N IS A SYSTEM CONSTANT * DEFINED AT SYSTEM GENERATION * * * REFERENCED IN: SYSLOD * * ENTRY: SCTSFA - START OF FREE AREA * SCTEFA - END OF FREE AREA * * EXIT: BLOCKS - POINTER TO FIRST BLOCK * * WORK REGISTERS: A1,A2,A7,A12 * * SUBROUTINES: BLKGEN * EJECT MONBLK EQU * LDK A1,0 LD A12,SCTSFA START OF FREE AREA ST A12,FREQUE SAVE POINTER TO FIRST BLOCK * * GET NUMBER OF TASKS IN SYSTEM * LD* A7,SCTTCT GET LENGTH OF TC:TAB * * GET NUMBER OF BLOCKS PER TASK TO GENERATE * LD A2,SCTBLK ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA MON:10 EQU * SUK A7,2 MOORE TASKS? RF(Z) MON:20 NO CALL BLKGEN RB MON:10 MON:20 EQU * * * GENERATE EXTRA MONITOR BLOCKS * LDK A2,19 ADK A2,NOEXMB AD A2,SCTNOF AD A2,SCTNOF CALL BLKGEN * * GENERATE END BLOCK * STR A1,A12 ST A1,2,A12 ST A1,4,A12 * * CHECK IF BUFFER GREATER THAN 2 WORDS RESERVED FOR SYSLOD PART A * IF NOT - USE LAST MONITOR BLOCK AS BUFFER * LD A1,STKCOM+BUFSIZ GET BUFFER SIZE CWK A1,4 >4? RF(NL) MON:30 NOT LESS ANYWAY! LDK A1,4 BUFFER SIZE ST A1,STKCOM+BUFSIZ UPDATE MAX BUFFER SIZE ADKL A12,2 ST A12,STKCOM+SYSBUF UPDATE BUFFER ADDRESS MON:30 EQU * ADKL A12,6 ST A12,SCTSFA UPDATE END OF FREE AREA RTN A14 EJECT ************************************* * BLKGEN - GENERATE MONITOR BLOCK * ************************************* * * REFERENCED IN: MONBLK * * ENTRY: A1=0 * A2 - NUMBER OF BLOCKS TO BE GENERATED * A12 - NEXT FREE ENTRY * * EXIT: A1=0 * A12 - NEXT FREE ENTRY * * WORK REGISTES: A3,A4 * * SUBROUTINES: * * MONITOR BLOCK LAYOUT * -------------------- * I DATA *+6 I * -------------------- * I DATA 0 I * -------------------- * I DATA 0 I * -------------------- * EJECT BLKGEN EQU * LDR A3,A2 BLK:10 EQU * RF(Z) BLKEX LDK A4,3 NUMBER OF WORDS/BLOCK BLK:20 CW A12,STKEND+LIMIT MEMORY OVERFLOW? RF(NE) BLK:30 NOT YET! LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR BLK:30 ADKL A12,2 RESERVE ANOTHER WORD SUK A4,1 MORE WORDS WANTED? RB(NZ) BLK:20 YES ST A12,-6,A12 ST A1,-4,A12 ST A1,-2,A12 SUK A3,1 RB BLK:10 BLKEX EQU * RTN A14 IFF EDM=0 EJECT ******************************************************************* * * * B:MXTT - BUILD TTABS FOR MONITOR EXTENT TASKS * * ============================================= * * * * REFERENCED IN: SYSLDM * * * * ENTRY: * * * * EXIT: * * * * WORK REGISTERS: A4 * * * * SUBROUTINES: MX:TDB,MXTTAB * * * ******************************************************************* B:MXTT EQU * LD A2,SCTMXS GET ADDRESS TO MXSTAB RF(Z) BMX99 NOT PRESENT LDK A4,2 DISPLACEMENT TO FIRST EXTENT TASK ST* A4,SCTTCT IN TCTAB CALL MX:TDB FIND FIRST MONITOR EXTENT TDB LD A4,SCTMOX GET ADDRESS TO START-ADDRESS TABLE RF(NZ) BMX05 ALREADY DEFINED LD A4,SCTSFA START OF FREE AREA ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE ST* A4,SCTMOX STORE IN FIRST WORD SUK A4,2 RESET TASK ID COUNTER LDR A2,A1 GET POINTER TO TDB LDR A3,A7 GET NUMBER OF EXTENTS SUK A2,2 BMX01 SUK A3,1 MORE EXTENTS? RF(N) BMX03 NO ADK A2,2 ADDRESS NUMBER OF TASK ID:S LDR* A6,A2 GET NUMBER OF TASK ID:S ADR* A4,A2 ADD NUMBER OF TASK ID:S BMX02 SUK A6,1 MORE TASK ID:S? RB(N) BMX01 NO ADK A2,2 ADDRESS NEXT TASK ID RB BMX02 BMX03 SLL A4,2 INCLUDE LENGTH ADK A4,2 INCLUDE LENGTH OF START-ADDRESS TABLE AD A4,SCTSFA END OF START-ADDRESS TABLE ST A4,SCTSFA UPDATE START OF FREE AREA LDR A11,A4 GET TABLE END LDR A9,P GET CURRENT LOCATION CALL CMPADR COMPARE ADDRESSES RF(NG) BMXS05 OK LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR BMXS05 ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA BMX05 SUK A1,2 BMX10 SUK A7,1 DECREMENT NUMBER OF EXTENTS RF(N) BMX99 NO MORE LD A12,SCTSFA GET START OF FREE AREA ST A12,STKEND+EXCTAB SAVE ADDRESS TO CONTR. BLOCK ADKL A12,ACBLEN RESERVE AREA FOR CONTROL BLOCK ST A12,SCTSFA UPDATE START OF FREE AREA ADK A1,2 NUMBER OF TASK ID:S LDR* A4,A1 GET NUMBER OF TASK ID:S BMX20 SUK A4,1 DECREMENT NUMBER OF TASK ID:S RB(N) BMX10 NO MORE ADK A1,2 NEXT TASK ID CALL MXTTAB RB BMX20 BMX99 RTN A14 RETURN EJECT ******************************************************************** * * * MXTTAB - GENERATE TTAB FOR MONITOR EXTENT TASK * * ============================================== * * * * ENTRY: A1 -POINTER TO TASK ID IN MXSTAB * * A5 - POINTER TO MONITOR EXTENT BLOCK * * A12 - POINTER TO START OF FREE AREA * * * * EXIT: A1 - POINTER TO TASK ID IN MXSTAB * * A5 - POINTER TO MONITOR EXTENT BLOCK * * * * WORK REGISTER: A2 * * * * SUBROUTINES: IMXTT,STRMOX,INBIMA * * * ******************************************************************** EJECT MXTTAB EQU * MSR 4,A15 SAVE REGISTER A1-A4 ON STACK CALL BMXSTT BUILD MONITOR EXTENT TTAB CALL IMXTT INIT MMU TABLE LDR* A2,A1 GET TASK ID CALL STRMOX STORE IN MOXTAB LD A2,MX:STA,A5 GET START ADDRESS LD A3,STKEND+EXCTAB GET CURRENT EXTENT BLOCK =6 ST A2,APLSTA,A3 STORE START ADDRESS =6 CALL STRMOX STORE IN MOXTAB LDR* A2,A5 GET EXTENT ADDRESS ANKL A2,/3FF GET DISPLACEMENT SLL A2,2 MAKE IT 12 BITS ST A2,TTB:CB,A12 STORE CURRENT SEGMENT BASE ADDRESS ADK A2,12 ST A2,TTB:SA+26,A12 STORE IN A13 SAVE-AREA LD A3,STKEND+EXCTAB GET CURRENT EXTENT CONTROL BLOCK ST A2,APLLAC,A3 STORE LOGICAL ADDR. TO COMMON PART ST A2,APLREL,A3 STORE RELOCATION BASE =6 LDKL A2,TTB:MT DISPL. TO COMMON PART ST A2,APLMMC,A3 STORE IN EXTENT CONTROL BLOCK ST A3,TTB:AP,A12 STORE EXTENT CONTROL BLOCK ADDRESS LD A2,SCTOPT GET OPTION WORD ANK A2,/20 EMM? RF(Z) MXTT20 NO LD A2,MX:LEN,A5 GET EXTENT LENGTH ST A2,MAPLEN,A13 SAVE ST A12,TTAB,A13 SAVE TTAB ADDRESS CALL INBIMA INIT BIP MAP MXTT20 MLR 4,A15 RESTORE REGISTERS RTN A14 RETURN EJECT ********************************************* * * * STRMOX - STORE START ADDRRESS IN MOXTAB * * ======================================= * * * * REFERENCED IN: MXTTAB * * * * ENTRY: A2 - VALUE TO STORE * * * * EXIT: * * * * WORK REGISTERS: * * * * SUBROUTINES: * * * ********************************************* STRMOX EQU * LD* A3,SCTMOX GET CURRENT LENGTH AD A3,SCTMOX ADDRESS TO NEXT FREE ENTRY STR A2,A3 STORE START ADDRESS IM* SCTMOX INCREMENT LENGTH IM* SCTMOX TWICE RTN A14 RETURN EJECT **************************************************** * * * IMXTT - INIT MMU TABLE FOR MONITOR EXTENT TASK * * ============================================== * * * * REFERENCED IN: MXTTAB * * * * ENTRY: A1 - POINTER TO PHYSICAL ADDRESS * * A12 - TTAB ENTRY POINTER * * * * EXIT: * * * * WORK REGISTERS: A2,A3,A4,A9,A11 * * * * SUBROUTINES: CMPADR * * * **************************************************** EJECT IMXTT EQU * LDR A2,A12 GET TTAB ENTRY ADKL A2,TTB:MT GET START OF MMU TABLE LDR* A3,A5 GET PHYSICAL ADDRESS TO EXTENT LDR A4,A3 SAVE ANKL A3,/FC00 PHYSICAL PAGE ADDRESS ANKL A4,/3FF DISPLACEMENT SLL A4,2 MAKE IT 12 BITS LDKL A9,/1000 PHYSICAL PAGE SIZE SUR A9,A4 SAVE LD A11,MX:LEN,A5 GET EXTENT LENGTH CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? RF(G) IMX10 NO! XRR A11,A11 INDICATE SINGLE ENTRY RF IMX20 IMX10 SUR A11,A9 SUBTRACT REMAINING AREA IN CURRENT PAGE IMX20 STR A3,A2 STORE PAGE ADDRESS ADKL A3,/400 INCREMENT PAGE ADDRESS ADK A2,2 INCREMENT ENTRY POINTER ADKL A11,0 ONE ENTRY ENOUGTH? RF(Z) IMX99 YES! RF(NN) IMX30 <32KB SUKL A11,/1000 DECREMENT LENGTH RB IMX20 IMX30 STR A3,A2 STORE PAGE ADDRESS ADKL A3,/400 INCREMENT PAGE ADDRESS ADK A2,2 INCREMENT ENTRY POINTER SUKL A11,/1000 DECREMENT LENGTH RB(P) IMX30 IMX99 EQU * =6 LDR A4,A12 GET TTAB ENTRY =6 ADKL A4,TTB:MT+32 GET END OF MMU-TABLE =6 LDKL A3,/FC00 =6 IMX100 EQU * =6 CWR A4,A2 ENTRIES LEFT IN MMU-TABLE? =6 RF(E) IMX110 NO! =6 STR A3,A2 STORE PAGE ERROR IN MMU-ENTRY =6 ADK A2,2 NEXT MMU-ENTRY =6 RB IMX100 =6 IMX110 EQU * =6 RTN A14 =6 EJECT ******************************************************** * * * B:MSEG - BUILD MONITOR TASK SEGMENT TABLES & TTABS * * ================================================== * * * * REFERENCED IN: SYSLDM * * * * ENTRY: * * * * EXIT: * * * * WORK REGISTERS: A1-A12 * * * * SUBROUTINES: MX:MST,MX:STD,BMSTAB,CHKTAD,BMXSTT * * * ******************************************************** EJECT B:MSEG EQU * CALL MX:MST FIND FIRST MONITOR SEGMENT TABLE ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA LDR A4,A5 SAVE POINTER TO NUMBER OF SEGTABS LDR A8,A1 SAVE POINTER TO FIRST MONITOR SEGMENT TABLE CALL MX:STD FIND FIRST MONITOR SEGMENT TABLE TASK DEFINITION BLOCK BMSG10 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES RF(N) BMSG99 NO MORE! CM STKEND+SCBTAB CLEAR ADDRESS TO SEGMENT CONTROL BLOCK CM STKEND+MAXSGM CLEAR MAXIMUM SEGMENT SIZE ADK A4,2 INCREMENT POINTER TO NUMBER OF SEGMENTS CALL BMSTAB BUILD MONITOR SEGMENT TABLE LDR* A7,A1 GET NUMBER OF TASKS IN SEGTAB BMSG20 ADK A1,2 NEXT TASK ID SUK A7,1 DECREMENT NUMBER OF TASK ID:S RB(N) BMSG10 NO MORE! CALL CHKTAD CHECK IF TASK ALREADY DEFINED RF(NZ) BMSG30 TASK ALREADY DEFINED! CALL BMXSTT BUILD TTAB FOR MONITOR SEGMENT TASK LD A10,STKEND+SCBTAB GET SEGMENT CONTROL BLOCK RF(NZ) BMSG25 SEGMENT CONTROL BLOCK GENERATED LD A12,SCTSFA GET START OF FREE AREA LDR A10,A12 SAVE ADKL A12,ACBLEN RESERVE FOR SEGMENT CONTROL BLOCK ST A12,SCTSFA UPDATE START OF FREE AREA BMSG25 ST A10,TTB:AP,A12 STORE ADDRESS TO SEGMENT CONTROL BLOCK BMSG30 ST A5,TTB:SP,A12 STORE SEGMENT TABLE POINTER LD A10,TTB:AP,A12 GET ADDRESS TO SEGMENT CONTROL BLOCK LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE ADKL A3,/FFFF NUMBER OF 4K-MULTIPLES ANKL A3,/F000 ISOLATE NUMBER OF 4K-MULTIPLES LDKL A2,/F000 END OF LOGICAL MEMORY SUR A2,A3 COMPUTE LOGICAL PAGE ADDRESS LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE ANKL A3,/FFF EVEN 4K-MULTIPLE? RF(NZ) BMSG40 NO! ADKL A2,/1000 SAVE ONE MMU ENTRY BMSG40 ST A2,APLLAP,A10 STORE IN SEGMENT CONTROL TABLE SRL A2,12 MMU TABLE ENTRY LDK A3,16 NUMBER OF MMU ENTRIES SUR A3,A2 COMPUTE NUMBER OF PAGE ENTRIES ST A3,APLNPE,A10 STORE IN SEGMENT CONTROL TABLE SLL A3,1 MULTIPLY BY TWO NGR A3,A3 MAKE NEGATIVE DISPLACEMENT ADKL A3,TTB:CB DISPL TO END OF MMU TABLE ST A3,APLMMP,A10 STORE IN SEGMENT CONTROL TABLE LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE ADKL A3,/3FF COMPUTE NUMBER OF 1K-MULTIPLES ANKL A3,/FC00 ISOLATE NUMBER OF 1K-MULTIPLES LDR A11,A3 GET CURRENT SEGMENT SIZE LD A9,SCTPSZ GET MAX SEGMENT SIZE CALL CMPADR CURRENT SEGMENT GREATER? RB(L) BMSG20 NO ST A3,SCTPSZ UPDATE MAX SEGMENT SIZE RB BMSG20 BMSG99 RTN A14 RETURN EJECT ********************************************************** * * * BMSTAB - BUILD MONITOR SEGMENT TABLE * * ==================================== * * * * REFERENCED IN: B:MSEG * * * * ENTRY: A4 - POINTER TO NUMBER OF SEGMENTS * * A8 - POINTER TO SEGMENT CLUSTER IN MXSTAB * * * * EXIT: A5 - SEGMENT TABLE ADDRESS * * * * WORK REGISTERS: A2,A3,A9,A11 * * * * SUBROUTINES: CMPADR,ERROR * * * ********************************************************** EJECT BMSTAB EQU * STR A1,A15 SAVE REGISTER A1 ON STACK LD A5,SCTSFA GET START OF FREE AREA LD A2,SCTIPL GET PROGRAM LOAD DEVICE STR A2,A5 STORE IN SEGMENT TABLE ADK A5,2 NEXT ENTRY IN SEGMENT TABLE LDR* A9,A4 GET NUMBER OF SEGMENTS LDR A1,A9 SAVE STR A9,A5 STORE IN SEGMENT TABLE ADS A9,STKCOM+TOTSGM INCREMENT TOTAL NUMBER OF SEGMENTS ADK A5,2 SEGMENT TABLE ENTRY LDR A3,A5 SAVE * * BUILD SEGMENT BLOCK 0 * LDKL A2,/8400 STATUS FOR SEGMENT 0 STR A2,A3 STORE IN SEGMENT BLOCK 0 BMST20 ST A1,STKEND+SGMCNT SAVE NUMBER OF SEGMENTS ADK A3,8 NEXT SEGMENT BLOCK LD A9,STKEND+LIMIT GET END OF SYSTEM AREA LDR A11,A3 GET END OF SEGMENT BLOCKS CALL CMPADR COMPARE ADDRESSES RF(NG) BMST25 OK LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR BMST25 LDR* A2,A8 GET SEGMENT TYPE SRL A2,8 ISOLATE CCK A2,'RR' CORE RESIDENT SEGMENT? RF(E) BMST40 YES! LD A2,SCTOPT GET OPTION WORD ANK A2,2 DISC PAGING? RF(Z) BMST40 NO! * * DISC PAGING & DISC RESIDENT SEGMENT * LD A1,SCTMXS GET ADDRESS TO MXSTAB LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31 LD A1,MX:DA1,A1 GET DISC ADDRESS BITS 0-15 LD A10,2,A8 GET RELOCATION BASE ADR A2,A10 RELOCATE DISC ADDRESS RF(P) BMST30 NO CARRY! ANKL A2,/7FFF CLEAR BIT 0 ADK A1,1 ADD CARRY RF(P) BMST30 NOT OVERFLOW LDKL A1,LMP10 DISC ADDRESS OVERFLOW CALL ERROR BMST30 ORKL A1,/4000 INDICATE ASSEMBLER SEGMENT STR A1,A3 STORE SEGMENT DISC ADDRESS BITS 0-15 ST A2,2,A3 STORE SEGMENT DISC ADDRESS BITS 16-31 RF BMST50 * * DISC RESIDENT SEGMENT OR NO DISC PAGING * BMST40 LDKL A2,/8800 STATUS FOR DISC RESIDENT SEGMENT STR A2,A3 STORE IN SEGMENT BLOCK BMST50 LD A9,4,A8 GET SEGMENT LENGTH LD A11,STKEND+MAXSGM GET MAXIMUM SEGMENT LENGTH CALL CMPADR RF(NL) BMST55 CURRENT SEGMENT NOT GREATER ST A9,STKEND+MAXSGM UPDATE MAXIMUM SEGMENT LENGTH BMST55 ST A9,4,A3 STORE SEGMENT LENGTH IN SEGMENT BLOCK ADKL A8,6 INCREMENT POINTER IN MXSTAB LD A1,STKEND+SGMCNT GET NUMBER OF SEGMENTS SUK A1,1 RB(NZ) BMST20 MORE SEGMENTS ADK A3,8 END OF SEGMENT TABLE BMST60 ST A3,SCTSFA UPDATE START OF FREE AREA LDR* A1,A15 RESTORE REGISTER A1 RTN A14 EJECT ************************************************************ * * * CHKTAD - CHECK IF TASK ALREADY DEFINED * * ====================================== * * * * REFERENCED IN: B:MSEG * * * * ENTRY: A1 - POINTER TO TASK ID * * FOR MONITOR SEGMENT TASK * * * * EXIT: A12 - TTAB ADDRESS IF TASK ALREADY DEFINED * * A12 = 0 IF TASK NOT DEFINED * * * * WORK REGISTERS: A2,A3 * * * * SUBROUTINES: PSW * * * ************************************************************ EJECT CHKTAD EQU * LD* A2,SCTTCT GET LENGTH OF TCTAB AD A2,SCTTCT END OF TCTAB CHKT20 SUK A2,2 DECREMENT POINTER IN TCTAB CW A2,SCTTCT START OF TCTAB? RF(E) CHKT30 YES: ALL TASKS CHECKED! LDR* A3,A2 GET POINTER TO TTAB LD A3,TTB:ID,A3 GET TASK ID CWR* A3,A1 EQUAL TO CURRENT TASKS? RB(NE) CHKT20 NO LDR* A12,A2 GET TTAB POINTER RF CHKT50 CHKT30 LDKL A12,0 INDICATE TASK NOT FOUND CHKT50 CFI A14,PSW,A13 STORE PSW ON STACK RTN A14 EJECT ******************************************************************* * * * BMXSTT - BUILD MONITOR EXTENT & SEGMENT TTABS * * ============================================= * * * * REFERENCED IN: MXTTAB,B:MSEG * * * * ENTRY: * * * * EXIT: A12 - TTAB ADDRESS * * * * WORK REGISTERS: A2,A9,A10,A11 * * * * SUBROUTINES: CMPADR,ERROR * * * ******************************************************************* BMXSTT EQU * LD A12,SCTSFA GET START OF FREE AREA LDKL A10,TTB:TD+2 STANDARD TTAB LENGTH LD A2,SCTOPT GET OPTION WORD ANK A2,/21 EMM? XRK A2,/21 RF(NZ) BMXS20 SUKL A12,TTB:AM INCLUDE MMU ALLOCATION BIT MAP SUKL A10,TTB:AM INCLUDE LENGTH RF BMXS40 BMXS20 LD A2,SCTOPT GET OPTION WORD ANK A2,1 MMU OPTION? RF(Z) BMXS30 NO! SUKL A12,TTB:MT INCLUDE MMU TABLE IN TTAB SUKL A10,TTB:MT INCLUDE LENGTH RF BMXS40 BMXS30 LD A2,SCTOPT GET OPTION WORD ANK A2,2 DISC PAGING? RF(Z) BMXS40 SUKL A12,TTB:CB INCLUDE 3 WORDS FOR DISC PAGING SUKL A10,TTB:CB INCLUDE IN LENGTH BMXS40 AD A10,SCTSFA COMPUTE START OF FREE AREA LDR A9,A10 SAVE LD A11,STKEND+LIMIT GET END OF SYSTEM AREA CALL CMPADR MEMORY OVERFLOW? RF(NL) BMXS50 NO! LDKL A1,LMP3 CALL ERROR INDICATE MEMORY OVERFLOW BMXS50 ST A10,SCTSFA UPDATE START OF FREE AREA LD* A2,SCTTCT GET CURRENT LENGTH AD A2,SCTTCT COMPUTE NEXT FREE ENTRY STR A12,A2 STORE TTAB ADDRESS IM* SCTTCT INCREMENT CURRENT LENGTH IM* SCTTCT TWICE LDR* A2,A1 GET TASK ID ST A2,TTB:ID,A12 STORE IN TTAB LDKL A2,MX:LEV GET MONITOR TASK LEVEL ST A2,TTB:ST,A12 STORE IN TTAB SLL A2,10 ORKL A2,/00C1 PROGRAM STATUS ST A2,TTB:PW,A12 STORE PROGRAM STATUS WORD LD A2,STKEND+EXCTAB GET EXTENT CONTROL BLOCK ADDRESS ST A2,TTB:AP,A12 STORE IN TTAB LDK A2,2 ST A2,TTB:TD,A12 STORE DEVICE TABLE LENGTH RTN A14 RETURN EJECT ************************************************************** * MX:MEB - FIND FIRST MONITOR EXTENT BLOCK * * ======================================== * * * * REFERENCED IN: MX:MST * * * * ENTRY: SCTMXS - ADDRESS TO MONITOR EXTENT TABLE * * * * EXIT: A1 - POINTER TO FIRST MONITOR EXTENT BLOCK * * A5 - POINTER TO NUMBER OF SEGTABS * * A6 - NUMBER OF MONITOR SEGMENT TABLES * * A7 - NUMBER OF MONITOR EXTENTS * * * * WORK REGISTERS: A2 * * * * SUBROUTINES: * * * ************************************************************** EJECT MX:MEB EQU * LD A7,SCTMXS GET ADDRESS TO MXSTAB LDR A6,A7 SAVE RF(Z) MEB99 NOT PRESENT LD A2,MX:NOS,A7 GET NUMBER OF SEGTABS LDR A6,A2 SAVE LDR A1,A7 SAVE ADDRESS TO MXSTAB LD A7,MX:NOX,A7 GET NUMBER OF EXTENTS ADK A1,MX:NOS ADDRESS NUMBER OF SEGTABS LDR A5,A1 SAVE MEB10 ADK A1,2 ADDRESS NUMBER OF SEGMENTS SUK A2,1 MORE SEGTABS? RB(NN) MEB10 YES MEB99 RTN A14 RETURN EJECT ************************************************************** * * * MX:MST - GET FIRST MONITOR SEGMENT TABLE * * ======================================== * * * * REFERENCED IN: B:MSEG * * * * ENTRY: SCTMXS - ADDRESS TO MXSTAB * * * * EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TABLE * * A5 - POINTER TO NUMBER OF SEGTABS * * A6 - NUMBER OF MONITOR SEGMENT TABLES * * A7 - NUMBER OF MONITOR EXTENTS * * * * WORK REGISTERS: A2 * * * * SUBROUTINES: MX:MEB * * * ************************************************************** EJECT MX:MST EQU * CALL MX:MEB GET POINTER TO FIRST MONITOR EXTENT BLOCK LDR A2,A7 GET NUMBER OF MONITOR EXTENT BLOCKS MST10 SUK A2,1 DECREMENT NUMBER OF MONITOR EXTENT BLOCKS RF(N) MST99 NO MORE MONITOR EXTENTS ADK A1,MX:EBL ADDRESS NEXT MONITOR EXTENT BLOCK RB MST10 MST99 RTN A14 RETURN EJECT ************************************************************* * * * MX:TDB - GET FIRST MONITOR EXTENT TASK DEFINITION BLOCK * * ======================================================= * * * * REFERENCED IN: MX:STD * * * * ENTRY: SCTMXS - ADDRESS TO MXSTAB * * * * EXIT: A1 - POINTER TO FIRST MONITOR EXTENT TASK * * DEFINITION BLOCK * * A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * * A6 - NUMBER OF MONITOR SEGMENT TABLES * * A7 - NUMBER OF MONITOR EXTENTS * * * * WORK REGISTERS: A2,A3 * * * * SUBROUTINES: MX:MST * * * ************************************************************* EJECT MX:TDB EQU * CALL MX:MST GET FIRST MONITOR SEGMENT TABLE LDR A2,A6 GET NUMBER OF SEGMENT TABLES TDB10 ADK A5,2 ADDRESS NUMBER OF SEGMENTS SUK A2,1 DECREMENT NUMBER OF SEGTABS RF(N) TDB99 NO MORE SEGTABS LDR* A3,A5 GET NUMBER OF SEGMENTS TDB20 SUK A3,1 DECREMENT NUMBER OF SEGMENTS RB(N) TDB10 NO MORE SEGMENTS ADK A1,MX:SBL INCREMENT SEGMENT BLOCK POINTER RB TDB20 TDB99 RTN A14 RETURN EJECT ************************************************************** * * * MS:STD - GET FIRST MONITOR SEGMENT TASK DEFINITION BLOCK * * ======================================================== * * * * REFERENCED IN: B:MXST * * * * ENTRY: * * * * EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TASK * * DEFINITION BLOCK * * A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * * A6 - NUMBER OF MONITOR SEGMENT TABLES * * A7 - NUMBER OF MONITOR EXTENTS * * * * WORK REGISTERS: A2,A3 * * * * SUBROUTINES: MX:TDB * * * ************************************************************** EJECT MX:STD EQU * CALL MX:TDB GET FIRST MONITOR TASK DEF. BLOCK LDR A2,A7 GET NUMBER OF MONITOR EXTENTS STD10 SUK A2,1 DECREMENT NUMBER OF MONITOR EXTENTS RF(N) STD99 NO MORE EXTENTS LDR* A3,A1 GET NUMBER OF TASKS IN EXTENT STD20 ADK A1,2 ADDRESS TASK ID SUK A3,1 DECREMENT NUMBER OF TASKS RB(NN) STD20 MORE TASKS RB STD10 NEXT EXTENT STD99 RTN A14 RETURN XIF EJECT ****************************** * B:TT - BUILD TASK TABLES * ****************************** * * REFERENCED IN: SYSLDM * * ENTRY: * * EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES * * WORK REGISERS: A1-A12 * * SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC * * TASK TABLE LAYOUT * * ------------------------ * TTB:AM I MMU ALLOCATION I * I BIT MAP (4 WORDS) I * I______________________I * TTB:MT I MMU I * I TABLE I * I 16 I * I WORDS I * I______________________I * TTB:CB I CSB POINTER I * I______________________I * TTB:SP I SEGTAB POINTER I * I______________________I * TTB:SB I SEGM. BLOCK POINTER I * I----------------------I * TTB:AP I ACB POINTER I * ------------------------ * TASK ENTRY I QUEUE I * ------------------------ * TTB:ID I TASK IDENTIFICATION I * ------------------------ * TTB:ST I STATUS/LEVEL I * ------------------------ * TTB:PP I PENDING QUEUE I * ------------------------ * TTB:PW I PROGRAM STATUS WORD I * ------------------------ * TTB:SA I DISPATCH ADDRESS I * ------------------------ * I REGISTER I * I SAVE I * I AREA I * I 14 I * I WORDS I * ------------------------ * TTB:TD I TASK I * I SAVE01URATION I * I TABLE I * : : * : : * I______________________I * TASK SAVE01URATION TABLE LAYOUT * ______________________________ * I LENGTH I * ------------------------------ * I INDEX/FILCODE I * ------------------------------ * I DWT-ADDRESS I * ------------------------------ * : : * : : * ------------------------------ * I INDEX/FILECODE I * ------------------------------ * I DWT-ADDRESS I * ------------------------------ EJECT B:TT EQU * CALL FSTAPL GET FIRST APPLICATION LD A12,SCTSFA GET START OF FREE AREA ST A12,STKEND+SFASAV SAVE ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA ST P,STKEND+WRK1 SAVE PROGRAM COUNTER ST A11,STKEND+LCDSTA SAVE CONFIGURATION DATA POINTER ST P,STKEND+WRK2 SAVE PROGRAM COUNTER * * GET NUMBER OF TASKS IN THIS CLASS * CALL GETTSK ST A1,STKEND+NBRTSK SAVE NUMBER OF TASKS * * GET TASK ID START VALUE * LC A5,TDBID+4,A11 GET FIRST ID CHAR SLL A5,8 MOVE TO LEFT BYTE LC A5,TDBID+5,A11 GET SECOND ID DIGIT ST A5,STKEND+TASKID SAVE TASK ID START VALUE * * CHECK IF CREDIT APPLICATION * LD A5,STKEND+APCSTA GET APPLICATION CONTROL BLOCK LD A5,APLTYP,A5 GET APPLICATION TYPE CWK A5,'CR' CREDIT APPLICATION? RF(NE) BTT21 EJECT * * GET TASK CLASS TO MATCH VALUE * LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL SLL A5,8 MOVE TO LEFT BYTE LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL CALL GETTCL GET TCL START VALUE ST A5,STKEND+TCLSAV SAVE BTT21 EQU * EJECT * * GET TASK LEVEL * LC A5,TDBTL+4,A11 GET FIRST DIGIT IN LEVEL SLL A5,8 MOVE TO LEFT BYTE LC A5,TDBTL+5,A11 GET SECOND DIGIT IN LEVEL CALL CONVRT CONVERT TO BINARY ST A1,STKEND+TSKLEV SAVE EJECT * * COMPUTE SIZE OF CONFIGURATION DEPENDENT PART OF TASK TABLE * LDKL A10,TTB:TD+4 STANDARD LENGTH LD A5,SCTOPT GET OPTION WORD ANK A5,/21 CHECK IF EMM AND MMU PAGING INCLUDED XRK A5,/21 BOTH INCLUDED? RF(NZ) BTT22 NO! SUKL A10,TTB:AM+2 INCLUDE BIT MAP IN LENGTH SUKL A12,TTB:AM RESERV SPACE FOR BIT MAP RF BTT30 BTT22 LD A5,SCTOPT SRC A5,1 MMU PAGING? RF(NN) BTT25 NO SUKL A10,TTB:MT+2 16+2 WORD EXTRA IF MMU SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS RF BTT30 BTT25 EQU * SRC A5,1 DISC PAGING? RF(NN) BTT30 NO! SUKL A10,TTB:CB+2 FOUR WORD EXTRA IF DISC PAGING SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD BTT30 EQU * EJECT * * COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART * OF TASK CONFIGURATION TABLE * LDK A6,0 RESET LENGTH LDR A9,A11 INIT SUB-POINTER IN TASK DEFINITION BLOCK ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION CALL GETTDC GET NUMBER OF TDC:S LDR A7,A1 SAVE BTT35 EQU * RF(Z) BTT40 CALL GETCLN GET CLASS NUMBER (1-99) ADR A1,A1 2*(BINARY CLASS NUMBER) LD A8,STKEND+TCLA GET POINTER TO TCLASS LDR* A2,A8 SUK A2,2 CWR A1,A2 RF(NG) BTT37 LDKL A1,LMP4 CALL ERROR INDICATE FORMAT ERROR BTT37 EQU * ADR A8,A1 GET ENTRY IN TCLASS LDR* A8,A8 GET POINTER TO CLASS LDR* A8,A8 GET LENGTH OF CLASS SUKL A8,2 EXCLUDE LENGTH WORD ADR A10,A8 ADD TO TOTAL TTAB LENGTH ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH ADKL A9,TDC+TLC NEXT CLASS SUK A7,1 DECREMENT NUMBER OF TDC:S RB BTT35 EJECT BTT40 EQU * * * COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF * TASK CONFIGURATION TABLE * CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES ADKL A9,2 FIRST SDC RECORD LDR A7,A1 SAVE BTT50 EQU * RF(Z) BTT55 NO MOORE SDC:S CALL GETCLN GET CLASS NUMBER (1-99) ADR A1,A1 2*(BINARY CLASS NUMBER) LD A8,STKEND+SCLA GET POINTER TO SCLASS LDR* A2,A8 SUK A2,2 CWR A1,A2 RF(NG) BTT52 LDKL A1,LMP4 CALL ERROR INDICATE FORMAT ERROR BTT52 EQU * ADR A8,A1 GET ENTRY IN SCLASS LDR* A8,A8 GET POINTER TO CLASS LDR* A8,A8 GET LENGTH OF CLASS SUKL A8,2 EXCLUDE LENGTH WORD ADR A10,A8 ADD TO TOTAL TTAB LENGTH ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH ADKL A9,SDC NEXT CLASS SUK A7,1 DECREMENT NUMBER OF SDC:S RB BTT50 BTT55 EQU * IFF EDM=0 ADKL A10,14 7 EXTRA WORDS FOR EDM XIF ADK A6,2 INCLUDE LENGTH WORD LD A7,STKEND+CUTENT GET CURRENT ENTRY IN TC:TAB LD A8,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS BTT60 EQU * RF(Z) BTT70 ST A9,STKEND+WRK3 SAVE A9 ST A11,STKEND+WRK4 SAVE A11 LDR A9,A10 GET TTAB LENGTH AD A9,STKEND+SFASAV COMPUTE END OF FREE AREA =2 ST A9,STKEND+SFASAV =2 LD A11,STKEND+LIMIT GET END OF SYSTEM AREA CALL CMPADR CHECK IF MEMORY OVERFLOW RF(NL) BTT61 NOT YET LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR BTT61 LD A9,STKEND+WRK3 RESTORE A9 LD A11,STKEND+WRK4 RESTORE A11 * * STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB * ST A6,TTB:TD,A12 * * STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD * LD A5,STKEND+TSKLEV GET TASK LEVEL ST A5,TTB:ST,A12 STORE IN TTAB * * STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD * SLL A5,10 MOVE LEVEL TO LEFT BYTE ORKL A5,/00C0 LD A2,SCTOPT GET OPTION WORD ANK A2,1 MMU OPTION? ORR A5,A2 SET BIT 15 IF MMU ST A5,TTB:PW,A12 STORE IN TTAB IFF MMUPAG=0 CALL MMUINI INITIALIZE MMU TABLE XIF * * STORE TASK IDENTIFICATION IN TTAB * BTT62 LD A5,STKEND+TASKID GET TASK ID ST A5,TTB:ID,A12 STORE IN TTAB ADK A5,1 INCREMENT TASK ID ST A5,STKEND+TASKID SAVE TO NEXT TASK IN SAME CLASS LD A5,STKEND+APCSTA GET APPL. CONTROL BLOCK ST A5,TTB:AP,A12 STORE ADDRESS IN TTAB LD A5,APLTYP,A5 GET APPL. TYPE CWK A5,'CR' CREDIT? RF(NE) BTT65 NO * * STORE TASK CLASS TO MATCH IN TTAB * LD A5,STKEND+TCLSAV GET TCL START VALUE ST A5,TTB:PP,A12 SAVE IN TTAB ADK A5,1 INCREMENT TCL ST A5,STKEND+TCLSAV SAVE BTT65 EQU * STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB ADK A7,2 NEXT ENTRY IN TC:TAB ST A7,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS RB BTT60 EJECT BTT70 EQU * * * RESET POINTER TO START OF FREE AREA * LD A12,STKEND+SFASAV BTT90 EQU * CALL NXTBLK GET NEXT BLOCK CCK A2,'TT' TASK DEFINITION BLOCK? RF(NE) BTT95 LD P,STKEND+WRK2 BTT95 EQU * CALL NXTAPL NEXT APPLICATION RF(Z) BTT98 LD P,STKEND+WRK1 BTT98 ST A12,SCTSFA SAVE START OF FREE AREA SU A7,SCTTCT COMPUTE LENGTH ST* A7,SCTTCT STORE RTN A14 RETURN IFF SWPBLK=0 EJECT B:SWBT EQU * CALL PUSH SAVE REGISTER A1-A14 LD A1,SCTOPT GET OPTION WORD ANK A1,8 SWB OPTION INCLUDED RF(Z) BSWT42 NO CM STKCOM+APPLNO RESET APPLICATION COUNTER ST P,STKEND+LIMIT SAVE LOCATION COUNTER BSWT05 LDKL A1,'CR' APPLICATION TYPE=CREDIT CALL GETAPP GET NEXT CREDIT APPLICATION RF(Z) BSWT42 NO MORE APPLICATIONS LDR A10,A1 GET ACB ADDRESS ST A10,STKEND+APCSTA SAVE LD A12,SCTSFA START OF FREE AREA * * SEARCH FOR SWB TYPE DEFINITION BLOCK IN CONF. FILE * BSWT10 CALL NXTBLK GET NEXT BLOCK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) BSWT10 YES! CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? RF(NE) BSWT20 NO! ADKL A11,1 CALL NXTCOM SKIP COMMON BLOCK BSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? RF(NE) BSWT40 NO! ADKL A11,1 NUMBER OF TYPES LDR A6,A11 CALL GETNUM NUMBER OF UWB RECORDS LDR A1,A5 SAVE RF(Z) SWBERR ILLEGAL NUMBER!!! ADKL A11,UDBFST-1 FIRST UWB RECORD BSWT30 ADKL A11,6 BYPASS UWB RECORD SUK A1,1 DECR. NUMBER OF TYPES RB(P) BSWT30 MOORE LEFT LCR A2,A11 GET NEXT CHAR. IN CONF.FILE BSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK RF(E) BSWT44 YES! LDKL A1,0 NO SWB DEFINITION BLOCK! ST A1,APLSWB,A10 CLEAR SWB POINTER LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION =2 BSWT42 CALL POB RESTORE REGISTERS RTN A14 BSWT44 ADKL A11,1 NUMBER OF TYPES ST A11,STKEND+SWBBLK START OF CONF. DATA LDR A6,A11 CALL GETNUM GET 3 DIGITS LDR A5,A5 ZERO? RF(Z) SWBERR ILLEGAL NUMBER!!! ST A5,STKEND+NBRSWB SAVE NUMBER OF RECORDS ST A5,STKEND+WRK1 SAVE LD A8,STKCOM+SWBFLG GET ADDRESS TO $SWAPP RF(NZ) BSWT48 FILE CREATED SWBERR LDKL A1,LMP6 SWB ERROR! CALL ERROR BSWT48 ST A12,APLSWB,A10 SAVE ADDRESS TO ADDRESS TABLE CM STKCOM+SWBCNT RESET SWP-BLOCK COUNTER ADKL A12,2 FIRST POINTER LDR A10,A12 SAVE BSWT50 ADKL A10,2 BYPASS POINTER SUK A5,1 DECREMENT NUMBER OF TYPES RB(P) BSWT50 * * GET ADDRESS TO S:BTAB PROTOTYPE * LD A2,STKEND+APCSTA GET ADDRESS TO ACB LD* A1,APLMMC,A2 GET TTAB ADDRESS TL TTB:MT,A1 LOAD MMU REGISTERS LD A2,APLLAC,A2 GET P:MTAB ADDRESS CALL GETCON GET P:MTAB ADDRESS LDR A2,A1 SAVE ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS CALL GETCON GET S:BTAB ADDRESS LDR A2,A1 GET ADDRESS TO PROT. S:BTAB RB(Z) SWBERR NO SWB:S IN APPLICATION! ADK A1,2 ADDRESS TO NAME ST A1,STKEND+SWBNAM SAVE SUK A2,2 ADDRESS TO LENGTH OF PROT. S:BTAB CALL GETCON GET LENGTH OF PROT. S:BTAB LDR A4,A1 SAVE * * CHECK IF ENOUGTH MEMORY IN FIRST PARTITION * XRR A2,A2 RESET COUNTER BSWT52 SUK A1,6 DECREMENT LENGTH RF(N) BSWT55 NO MORE SWB-BLOCKS ADK A2,1 INCR. BLOCK COUNTER RB BSWT52 BSWT55 SLL A2,3 MULTIPLY BY 8 LDR A9,A10 GET START OF BLOCKS ADR A9,A2 ADD LENGTH LD A11,STKEND+LIMIT GET CURRENT LIMIT CALL CMPADR MEMORY OVERFLOW? RF(NL) BSWT57 NO! LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR BSWT57 SUK A4,2 SKIP LENGTH WORD LDKL A9,0 RESET BLOCK COUNTER BSWT60 STR A10,A12 SAVE POINTER TO BLOCK ST A4,STKEND+SWBTBL SAVE LD A11,STKEND+SWBBLK START OF CONF. DATA LD A7,STKEND+NBRSWB NUMBER OF SWB RECORDS BSWT65 LD A2,STKEND+SWBNAM NAME RECORD IN PROT. CALL GETCON GET TWO FIRST CHAR. ADKL A11,NAMUWB NAME IN CONF. FILE LCR A3,A11 GET FIRST CHAR. SLL A3,8 MOVE TO LEFT BYTE LC A3,1,A11 GET SECOND CHAR. CWR A1,A3 TWO FIRST CHAR. EQUAL? RF(NE) BSWT70 NO! ADK A2,2 NEXT CHAR. IN PROT. CALL GETCON GET THIRD CHAR. SRL A1,8 ISOLATE CHAR. LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE ANK A3,/FF ISOLATE CHAR. CWR A1,A3 THIRD CHAR. EQUAL? RF(E) BSWT75 YES! BSWT70 ADKL A11,NAMUWB SKIP NAME SUK A7,1 DECREMENT NUMBER OF TYPES RB(P) BSWT65 NEXT TYPE * * NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK * STR A7,A10 1:ST WORD ST A7,2,A10 2:ND WORD ST A7,4,A10 3:RD WORD ST A7,6,A10 4:TH WORD RF BSWT95 BSWT75 EQU * * * MATCHING NAME FOUND * LD A3,STKEND+WRK1 GET NUMBER OF SWB TYPES SUK A3,1 DECREMENT ST A3,STKEND+WRK1 SAVE ADKL A11,NAMUWB NUMBER OF COPIES LDR A6,A11 LDR A3,A2 SAVE POINTER CALL GETNUM GET NUMBER OF COPIES SLL A5,8 NUMBER OF COPIES IN LEFT BYTE OR A5,STKCOM+SWBFSA+2 DISC ADDRESS BITS 0-7 IN RIGHT BYTE STR A5,A10 STORE IN SWB BLOCK SRL A5,8 NUMBER OF COPIES TO RIGHT BYTE LD A8,STKCOM+SWBFSA GET DISC ADDRESS BITS 8-22 ST A8,2,A10 SAVE LDR A2,A3 RESTORE POINTER SUK A2,UPNAME PROTOTYPE ADDRESS CALL GETCON GET PROTOTYPE ADDRESS LDR A2,A1 SAVE SUK A2,UPNAME LENGTH OF WORKBLOCK CALL GETCON ST A1,SWBLEN,A10 STORE LENGTH OF SWB BSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK LDK A1,0 RESET SECTOR COUNTER BSWT86 IM STKCOM+SWBFSA INCREMENT SECTOR ADDRESS RF(O) BSWT88 RF BSWT90 BSWT88 IM STKCOM+SWBFSA+2 CM STKCOM+SWBFSA BSWT90 EQU * ADK A1,1 INCREMENT SECTOR COUNTER SUKL A3,256 DECREMENT LENGTH RB(P) BSWT86 MOORE SECTORS? SUK A5,1 MOORE COPIES? RB(P) BSWT85 YES! ST A1,SWBSEC,A10 STORE SECTOR LENGTH IM STKCOM+SWBCNT INCREMENT SWP-BLOCK COUNTER LD A8,STKCOM+SWBFSA+2 CW A8,STKCOM+SWBFSE+2 RF(G) BSWT98 $SWAP-FILE TOO SMALL! RF(L) BSWT95 LD A8,STKCOM+SWBFSA CW A8,STKCOM+SWBFSE RF(G) BSWT98 SWAPP-FILE TOO SMALL! BSWT95 ADKL A10,8 START OF NEXT BLOCK ADKL A12,2 NEXT POINTER ADKL A9,1 INCREMENT BLOCK COUNTER LD A2,STKEND+SWBNAM CURRENT RECORD IN PROT. S:BTAB ADK A2,UP:REC NEXT RECORD IN PROT. S:BTAB ST A2,STKEND+SWBNAM SAVE LD A4,STKEND+SWBTBL GET LENGTH OF PROT. S:BTAB SUK A4,UP:REC DECREMENT RB(P) BSWT60 MOORE TYPES LD A8,STKCOM+SWBCNT ANY BLOCKS GENERATED? RF(Z) BSWT98 NO! LD A8,STKEND+WRK1 ALL SWB TYPES MATCHED? RF(NP) BSWT99 YES! BSWT98 LDKL A1,LMP6 CALL ERROR SWB ERROR! BSWT99 ST A10,SCTSFA UPDATE START OF FREE AREA LD A10,STKEND+APCSTA GET CURRENT ACB ADDRESS ST* A9,APLSWB,A10 NUMBER OF SWB TYPES LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION XIF IFF MMUPAG+DSKPAG=0 EJECT *************************************************** * * * B:STAB - BUILD SEGMENT TABLES * * ============================= * * * * REFERENCED IN: SYSLDM * * * * ENTRY: * * * * EXIT: * * * * WORK REGISTERS: A1-A14 (THEIR ORIGINAL * * CONTENTS ARE SAVED ON STACK * * AND RESTORED BEFORE EXIT) * * * * FUNCTIONAL DESCRIPTION: * * FOR BASIC ONE SEGMENT TABLE AREA/TASK IS * * RESERVED. THE FIFTH WORD IN EACH SEGMENT TABLE * * CONTAINS A POINTER TO THE FIFTH WORD IN NEXT * * EXCEPT THE LAST CONTAINS A PONTER TO THE FIFTH * * WORD IN THE NEXT SEGMENT TABLE. ALL OTHER LO- * * CATIONS CONTAIN ZERO. * * FOR COBOL AND CREDIT APPLICATIONS ONE SEGMENT * * TABLE PER APPLICATION IS GENERATED. STATUS, * * DISK ADDRESS AND LENGTH FOR EACH SEGMENT IS * * WRITTEN IN CORRESPONDING SEGBLK. THE SEGMENT * * TABLE ADDRESS IS STORED IN THE TTAB FOR EACH * * TASK IN THE APPLICATION. * * * *************************************************** EJECT B:STAB EQU * CALL PUSH SAVE A1-A14 ON STACK CALL FSTAPL GET FIRST APPLICATION LDR A9,P GET LIMIT FOR WRITE BST010 LD A10,STKEND+APCSTA SAVE POINTER TO CURRENT ACB CALL NXTAPL GET NEXT APPL. CONTROL BLOCK RF(NZ) BST020 NOT LAST YET LD* A2,SCTTCT GET LENGTH OF TCTAB AD A2,SCTTCT END OF TCTAB RF BST040 BST020 LD A2,APLMMC,A2 GET END OF TCTAB ENTRIES BST040 ST A2,STKEND+TCTEND SAVE LDR A8,P BST045 ADKL A8,BST400-BST045 RELOCATE BRANCH ADDRESS LD A5,APLMMP,A10 GET CURRENT APPLICATION TYPE CWK A5,'AS' ASSEMBLER APPLICATION? ABR(E) A8 YES; DON'T GENERATE SEGMENT TABLE! LD A8,APLMMC,A10 GET FIRST TCTAB ENTRY CWK A5,'BA' BASIC? RF(NE) BST050 NO SUR A2,A8 2*NUMBER OF TASKS SRL A2,1 NUMBER OF TASKS ST A2,STKEND+WRK1 SAVE ST A2,APLNPE,A10 SAVE LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK SLL A3,3 MULTIPLY BY 8 ADK A3,12 INCLUDE 6 FIRST WORDS LDR A4,A3 SAVE LENGTH CALL MULT COMPUTE LENGTH OF SEGMENT TABLE AREA RF BST090 EJECT BST050 LD A2,SCTOPT GET OPTION WORD ANK A2,1 MMU? RF(Z) BST070 NO LDR* A7,A8 GET TTAB ADDRESS TL TTB:MT,A7 LOAD MMU TABLE BST070 LD A2,APLLAC,A10 ADDRESS S:GTAB ADK A2,10 ADDRESS NUMBER OF SEGMENTS CALL GETCON GET NUMBER OF SEGMENTS LDR A6,A1 SAVE LDR A3,A1 SAVE SLL A3,3 MULTIPLY BY 8 ADK A3,12 INCLUDE 6 FIRST WORDS BST090 LD A12,SCTSFA GET START OF FREE AREA LDR A2,A11 SAVE CONF. DATA POINTER LDR A11,A12 SAVE ADR A11,A3 END OF SEGMENT TABLE AREA CALL CMPADR MEMORY OVERFLOW? RF(NG) BST100 NO LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR BST100 ST A11,SCTSFA INDICATE START OF FREE AREA LDR A11,A2 RESTORE CONF. DATA POINTER CWK A5,'BA' BASIC? RF(NE) BST200 NO LD A2,STKEND+WRK1 GET NUMBER OF TASKS LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK ADK A3,NBRDPS ADD NUMBER OF DATA PAGES/TASK CALL MULT MULTIPLY LDR A2,A3 GET MAX NUMBER OF SEGMENTS ADS A2,STKCOM+TOTSGM UPDATE TOTAL NUMBER OF SEGMENTS ST A12,APLSEG,A10 STORE ADDRESS TO SEGMENT TABLE POOL EJECT * * CLEAR SEGMENT TABLE AREA * LD A2,SCTSFA GET END OF SEGMENT TABLE AREA BST110 SUK A2,2 DECREMENT POINTER CMR A2 CLEAR CWR A2,A12 START OF SEGMENT TABLE AREA? RB(NE) BST110 NOT YET BST120 ADR A2,A4 ADD SEGMENT TABLE LENGTH CW A2,SCTSFA END OF SEGMENT TABLE AREA? RF(E) BST400 YES ADK A2,8 ADDRESS FIFTH WORD IN SEGMENT TABLE ST A2,8,A12 STORE IN PRECEDING SEGMENT TABLE ADR A12,A4 START OF NEXT SEGMENT TABLE LDR A2,A12 SAVE RB BST120 BST200 ST A6,2,A12 STORE NUMBER OF SEGMENTS LDR A3,A6 GET NUMBER OF SEGMENTS ADS A3,STKCOM+TOTSGM UPDATE TOTAL NUMBER OF SEGMENTS LD A3,SCTIPL GET FILE-CODE FOR LOAD DEVICE STR A3,A12 STORE ADKL A12,4 ADDRESS SEGMENT BLOCK 0 LDR A4,A12 SAVE BST210 LDKL A2,/8400 STATUS FOR SEGMENT 0 STR A2,A12 STORE IN SEGBLK 0 LD A2,APLLAC,A10 GET START OF S:GTAB CALL GETCON GET ADDRESS TO P:MTAB LDR A2,A1 SAVE ADK A2,6 ADDRESS TO P:BAS CALL GETCON GET P:BAS ST A1,2,A12 STORE IN SEGBLK 0 LD A2,APLLAC,A10 GET START OF S:GTAB ADK A2,10 ADDRESS NUMBER OF SEGMENTS BST220 ADKL A12,8 NEXT SEGMENT BLOCK SUK A6,1 ANY MORE SEGMENTS? RF(N) BST300 NO LDK A7,0 INIT STATUS BYTE ADK A2,2 ADDRESS FIRST ENTRY IN SEGMENT BLOCK CALL GETCON GET SEGMENT TYPE/DISC ADDRESS LDR A3,A1 SAVE ANK A3,/FF ISOLATE DISC ADDRESS SRL A1,8 ISOLATE SEGMENT TYPE CCK A1,'RR' CORE RESIDENT SEGMENT? RF(E) BST230 YES LD A1,SCTOPT GET OPTION WORD ANK A1,2 DISC PAGING? RF(NZ) BST240 YES XRR A3,A3 CLEAR DISC ADDRESS LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED ADK A2,2 ADDRESS SEGMENT DISC ADDRESS BIT 8-23 RF BST270 BST230 LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED BST240 ADK A2,2 DISC ADDRESS BIT 8-23 CALL GETCON GET SEGMENT DISC ADDRESS AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A. RF(O) BST250 CARRY RF BST260 BST250 ADK A3,1 INCR. PART 1 OF D. A. ANKL A1,/7FFF RESET OVERFLOW BIT (BIT 0) BST260 AD A3,APLADA,A10 RELOCATE PART 1 OF D. A. CWK A3,255 OVERFLOW IN PART 1 OF D. A. ? RF(NG) BST270 NO! LDKL A1,LMP10 INDICATE DEVICE ERROR CALL ERROR BST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS STR A7,A12 STORE ST A1,2,A12 STORE DISC ADDRESS BIT 8-23 ADK A2,2 ADDRESS SEGMENT LENGTH CALL GETCON GET SEGMENT LENGTH ST A1,4,A12 STORE IN SEGTAB CM 6,A12 CLEAR PAGEBLOCK POINTER RB BST220 BST300 CW A8,STKEND+TCTEND LAST TCTAB ENTRY? RF(E) BST400 YES LDR* A2,A8 GET TTAB ADDRESS ST A4,TTB:SP,A2 STORE SEGMENT TABLE POINTER ADKL A8,2 INCREMENT POINTER IN TCTAB RB BST300 BST400 LD A1,STKEND+APLNO GET NUMBER OF APPLICATIONS RF(Z) BST410 NO MORE APPLICATIONS ABR A9 NEXT APPLICATION BST410 EQU * CALL POB RESTORE REGISTERS RTN A14 RETURN XIF IFF SPDVCL+TEDVCL=0 EJECT ************************************************************************ * B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES ************************************************************************ * * REFERENCED IN: MONCON * * ENTRY: SCTSFA - START OF FREE ARE (X) * CONSTA - START OF CONFIGURATION DATA * SCTEFA - END OF FREE AREA * * EXIT: * * WORK REGISTERS: A1-A12 * * SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR * EJECT B:DWTS EQU * * * GET START OF CONFIGURATION FILE * LD A12,SCTSFA START OF FREE AREA * * CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK * CALL FSTAPL GET FIRST APPLICATION ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA ST P,STKEND+ECHTAB START OF ECHO TABLE * * GET ADDRESS TO TC:TAB * DWTS05 LD A7,APLMMC,A2 GET FIRST TCTAB ENTRY SUK A7,2 EJECT DWTS10 EQU * * * GET NUMBER OF TASKS IN THIS TASK CLASS * CALL GETTSK DWTS20 EQU * ST A1,STKEND+NBRTSK SAVE * * GET CORRESPONDING TASK TABLE (TTAB) * DWTS25 EQU * ADK A7,2 NEXT ENTRY IN TC:TAB LDR* A10,A7 GET TTAB ADDRESS ADKL A10,TTB:TD+2 TASK DEVICE TABLE ENTRY * * INIT SUB-POINTER IN TASK DEFINITION BLOCK * LDR A9,A11 START OF TASK DEFINITION BLOCK ADKL A9,TDBFST START OF TDC DEFINITION EJECT * * GET NUMBER OF TERMINAL DEVICES IN THIS CLASS * CALL GETTDC LDR A6,A1 DWTS30 EQU * RF(Z) DWTS40 CALL GETCLN GET TDC ID ADR A1,A1 LD A8,STKEND+TCLA GET POINTER TO TCLASS ADR A8,A1 GET CLASS ENTRY LDR* A8,A8 GET POINTER TO CLASS LDR* A8,A8 GET LENGTH OF CLASS SUKL A8,2 EXCLUDE LENGTH WORD ADR A10,A8 INCREMENT POINTER IN TTAB ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD SUK A6,1 DECREMENT NUMBER OF TDC:S RB DWTS30 DWTS40 EQU * * * GET NUMBER OF SPECIAL DEVICE CLASSES * CALL GETSDC ADKL A9,SDCFST-CDBNC LDR A1,A1 DWTS50 EQU * RF(Z) DWTS90 ST A1,STKEND+NBRSDC SAVE * * GET SPECIAL DEVICE CLASS NUMBER * CALL GETCLN * * GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS * ADR A1,A1 LD A6,STKEND+SCLA POINTER TO SCLASS ADR A6,A1 SELECT ENTRY LDR* A6,A6 GET POINTER TO CLASS LDR A5,A6 SAVE LDR* A6,A6 GET LENGTH SUK A6,2 EXCLUDE LENGTH WORD DWTS60 EQU * ADK A5,4 GET DEVICE LDR* A1,A5 GET ADDRESS TO TYPE DWT LD A3,DWTLEN,A1 GENERATION OF DWT? RF(Z) DWTS70 NO * * COPY DWT * LDR A2,A12 TO-ADDRESS ADR A12,A3 UPDATE POINTER TO FREE AREA CALL CHKMOV COPY DWT EJECT * * RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM * LD A3,SCTOPT GET OPTION WORD ANK A3,1 MMU IN SYSTEM? RF(Z) DWTS65 NO! LDR A3,A1 GET PROTOTYPE DWT-ADDRESS SUR A3,A2 COMPUTE RELOCATION CONSTANT LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS SUR A4,A3 RELOCATE ANKL A4,/FFFE MAKE EVEN ADDRESS ST A4,DWTMEC,A2 STORE IT BACK DWTS65 EQU * LDR A1,A2 DT-ADDRESS TO BE USED DWTS70 EQU * * * STORE FILE-CODE AND DWT-ADDRESS IN TTAB * ST A1,2,A10 STORE DWT-ADDRESS LD A1,-2,A5 GET INDEX/FILECODE STR A1,A10 SAVE IN TTAB ADKL A10,4 UPDATE TASK CONFIGURATION POINTER DWTS80 EQU * SUK A6,4 DECREMENT NUMBER OF DEVICES RB(P) DWTS60 NEXT DEVICE EJECT * * CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS * ADKL A9,SDC LD A1,STKEND+NBRSDC SUK A1,1 RB DWTS50 DWTS90 EQU * * * CHECK IF MOORE TASKS WITH THE SAME CONFIGURATION * LD A1,STKEND+NBRTSK SUK A1,1 RB(P) DWTS20 * * CHECK IF MOORE TASK DEFINITION BLOCKS * CALL NXTBLK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) DWTS10 YES CALL NXTAPL GET NEXT APPLICATION RB(P) DWTS05 PROCESS NEXT APPLICATION ST A12,SCTSFA * * CLEAR WORK AREA TO BE USED FOR ECHO DEVICE * AND TEMPORARY INTERRUPT TABLES * LDR A1,P GET LOCATION COUNTER =4 DWTS95 SUK A1,2 DECREMENT MEMORY ADDRESS =4 CMR A1 CLEAR MEMORY AREA =4 CW A1,SCTSFA ALL WORDS CLEARED? =4 RB(NE) DWTS95 NO! =4 RTN A14 RETURN XIF IFF TEDVCL=0 EJECT ************************************************ * B:DWTT - BUILD TERMINAL DEVICE WORK TABLES * ************************************************ ************************************************ * * REFERENCED IN: MONCON * * ENTRY: * * EXIT: * * WORK REGISTERS: A1-A12 * * SUBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK * EJECT B:DWTT EQU * CM STKEND+FWTFLG CLEAR FWT FLAG LD A1,SCTFWT START OF FWT AREA RF(NZ) BDWT15 FWT AREA RESERVED LD A1,STKEND+LIMIT ST A1,STKEND+INTTAB START OF T.I.T. IF NO FWT AREA IM STKEND+FWTFLG INCREMENT BDWT15 EQU * EJECT * * INIT CONFIGURATION DATA POINTER * CALL FSTAPL GET FIRST APPLICATION LD A12,SCTSFA GET START OF FREE AREA * * INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY * LD A5,APLMMC,A2 GET FIRST USER TASK ENTRY ST A5,STKEND+CUTENT STORE IN CURRENT USER TASK ENTRY BDWT40 EQU * * * GET NUMBER OF TASKS IN THIS TASK CLASS * CALL GETTSK GET NUMBER OF TASKS BDWT50 EQU * ST A1,STKEND+NBRTSK SAVE BINARY VALUE * * GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS * CALL GETTDC * * CHECK IF TASK WITHOUT DEVICES * LDR A1,A1 ANY TERMINAL DEVICES? RF(Z) BDW100 NO ST A1,STKEND+NBRTDC SAVE NUMBER OF TERMINAL DEVICESS LD* A10,STKEND+CUTENT GET TTAB ADDRESS ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE * * GET TERMINAL DEVICE CLASS NUMBER * LDR A9,A11 START OF TASK DEFINITION BLOCK ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION BDWT55 EQU * CALL GETCLN GET CLASS NUMBER ST A1,STKEND+CLANBR SAVE BINARY VALUE * * FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS * LD A2,STKEND+CLANBR GET BINARY VALUE OF CLASS ID ADR A2,A2 2*ID LD A7,STKEND+TCLA POINTER TO TCLASS ADR A7,A2 GET ENTRY LDR* A7,A7 GET POINTER TO CLASS * * GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS * IN THIS TASK * CALL GETLCN GET LINE CONNECTION NUMBER LDR A6,A1 SAVE BINARY VALUE LC A4,TDC+6,A9 GET LINE CONNECTION TYPE CCK A4,'AA' ASCU4Z CONNECTION? RF(NE) BDWT58 NO! LDR* A8,A7 YES! GET LENGTH OF THIS CLASS SUKL A8,2 EXCLUSIVE LENGTH WORD CWK A8,4 ONE DEVICE? RF(NE) BDWT57 NO! LD A8,4,A7 GET ADDRESS TO PROT.DWT LD A4,DWTTAB,A8 GET DEVICE CWK A4,/C459 /C459 ? RF(E) BDWT58 YES! BDWT57 EQU * ADK A1,1 INCREMENT LINE CONNECTION NUMBER BDWT58 EQU * ADK A1,1 INCREMENT LINE CONNECTION NUMBER CALL BINASC CONVERT INCREMENTED VALUE TO ASCII SC A1,TDC+5,A9 STORE ASCII DIGIT =2 SRL A1,8 MOVE LEFT ASCII DIGIT =2 SC A1,TDC+4,A9 STORE ASCII DIGIT =2 SC A5,TDC+3,A9 STORE ASCII DIGIT DIGIT =2 EJECT * * GENERATE DWT:S FOR THIS CLASS * A6 - LINE CONNECTION NUMBER (BINARY VALUE) * A7 - POINTER TO TERMINAL DEVICE CLASS * * THE ENTRY IN TEMPORARY INTERRUPT TABLE * IS DERIVED FROM LINE CONNECTION NUMBER, * DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT) * CALL DWTGEN BDWT90 EQU * LD A1,STKEND+NBRTDC GET NUMBER OF TERMINAL DEVICE CLASSES SUK A1,1 ANY MOORE IN THIS TASK CLASS? RF(Z) BDW100 NO ST A1,STKEND+NBRTDC SAVE REMAINING NUMBER ADKL A9,TDC+TLC NEXT TDC RECORD RB BDWT55 BDW100 EQU * CALL ECHO INIT ECHO POINTERS LD A1,STKEND+CUTENT GET CURRENT ENTRY IN TC:TAB ADK A1,2 INCREMENT ENTRY POINTER ST A1,STKEND+CUTENT SAVE LD A1,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS SUK A1,1 ANY MOORE TASKS LEFT RB(P) BDWT50 YES * CHECK IF MOORE TASK DEFINITION BLOCKS * CALL NXTBLK SKIP TO NEXT BLOCK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) BDWT40 YES EJECT CALL NXTAPL GET NEXT APPLICATION RB(P) BDWT40 ST A12,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN XIF EJECT **************************************** * B:CDT - BUILD COMMON DEVICE TABLE * **************************************** * * REFERENCED IN: SYSLDM * * ENTRY: SCTSFA - START OF FREE AREA * CONSTA - START OF CONFIGURATION DATA * SCTEFA - END OF FREE AREA * * EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE * * WORK REGISTERS: A1-A12 * * SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE * EJECT B:CDT EQU * LD A12,SCTSFA START OF FREE AREA LDK A7,0 RESET LENGTH CALL FSTAPL GET FIRST APPLICATION * * GET COMMON DEVICE DEFINITION BLOCK * CDG:10 EQU * CALL NXTBLK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) CDG:10 YES CCK A2,'CC' COMMON DEV. DEF. BLOCK? RF(NE) BCDTEX NO EJECT * * RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES * AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES * LDR A9,A11 START OF COMMON DEFINITION BLOCK ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES CALL GETCTC GET NUMBER OF C.T.C. LDR A6,A1 SAVE B:CT10 RF(Z) B:CT30 NO MOORE! CALL GETCLN GET CLASS IDENT NUMBER (1-99) ADR A1,A1 DISPLACEMENT TO CLASS POINTER LD A5,STKEND+TCLA GET POINTER TO TCLASS LDR* A2,A5 GET LENGTH OF TCLASS SUK A2,2 EXCLUDE LENGTH CWR A1,A2 MAKE SURE CLASS EXISTS RF(NG) B:CT20 OK! LDKL A1,LMP4 FORMAT ERROR! CALL ERROR B:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS LDR* A1,A1 GET POINTER TO CLASS LDR* A1,A1 GET LENGTH OF CLASS SUK A1,2 EXCLUDE LENGTH WORD ADR A7,A1 INCREMENT CDTAB LENGTH ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE SUK A6,1 DECR. NBR OF C.T.C. RB B:CT10 EJECT B:CT30 EQU * * * RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES * AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES * CALL GETSDC ADKL A9,SDCFST-CDBNC LDR A6,A1 BCDT10 EQU * RF(Z) BCDTEX CALL GETCLN ADR A1,A1 LD A5,STKEND+SCLA GET POINTER TO SCLASS LDR* A2,A5 SUK A2,2 CWR A1,A2 RF(NG) BCDT15 LDKL A1,LMP4 CALL ERROR BCDT15 EQU * ADR A1,A5 SELECT ENTRY LDR* A1,A1 GET POINTER TO CLASS LDR* A1,A1 GET LENGTH SUK A1,2 ADKL A9,SDC ADR A7,A1 SUK A6,1 RB BCDT10 BCDTEX EQU * CALL NXTAPL GET NEXT APPLICATION RB(P) CDG:10 MORE APPLICATIONS? CALL FSTAPL GET FIRST APPLICATION B:CT35 CALL NXTBLK GET NEXT BLOCK CCK A2,'TT' TASK DEFINITION BLOCK? RB(E) B:CT35 YES EJECT * * RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES * AND DWT-ADDRESSES USED FOR PHYSICAL I/O ON DISC * * ALSO RESERVE ENTRIES IN COMMON DEVICE TABLE FOR * FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION * * FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS * LD A1,SCTDCT DATA COMMUNICATION? LD A6,SCTDMT DATA MANAGEMENT ORR A6,A1 DM OR DC? LD A1,SCTOPT GET OPTION WORD ANK A1,/E DISC PAGING OR SWB:S? ORR A6,A1 COPY LAST SCLASS IF NOT ZERO RF(Z) CDG:12 NO! LD A6,STKEND+SCLA GET POINTER TO SCLASS LDR* A1,A6 GET LENGTH OF SCLASS SUK A1,2 EXCLUDE LENGTH WORD ADR A6,A1 LAST ENTRY IN SCLASS LDR* A6,A6 GET POINTER TO LAST CLASS LDR* A6,A6 GET LENGTH OF LAST CLASS SUK A6,2 EXCLUDE LENGTH WORD ADR A7,A6 ADD TO LENGTH OF CD:TAB CDG:12 EQU * ADK A7,2 STR A7,A12 ST A12,SCTCDT ADR A12,A7 ST A11,STKEND+WRK1 SAVE A11 LDR A11,A12 GET END OF CDTAB LD A9,STKEND+LIMIT GET END OF SYSTEM AREA CALL CMPADR CHECK IF MEMORY OVERFLOW RF(NG) CDG:13 OK LDKL A1,LMP3 INDICATE MEMORY OVERFLOW CALL ERROR CDG:13 LD A11,STKEND+WRK1 RESTORE A11 EJECT * * INIT POINTER TO START OF FREE AREA AND TO CDTAB * LD A10,SCTCDT FIRST ENTRY IN SCTCDT CDG:15 LCR A2,A11 GET FIRST CHARACTER CDG:16 CCK A2,'TT' TASK DEFINITION BLOCK/ RF(NE) CDG:17 NO! CALL NXTBLK GET NEXT BLCK RB CDG:16 CDG:17 CCK A2,'CC' COMMON DEF. BLOCK? RF(E) CDG:19 YES! SUR A8,A8 INDICATE NO COMMON WORK BLOCKS CDG:18 RF(N) CDG:EX CDTAB COMPLETE! CALL NXTAPL GET NEXT APPLICATION RB(P) CDG:15 MORE APPLICATIONS RF CDGEX NO MORE APPLICATIONS CDG:19 EQU * * * GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES * LDR A9,A11 START OF COMMON DEF. BLOCK ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES CALL GETCTC GET NUMBER OF C.T.C. LDR A1,A1 ANY COMMON TERMINAL CLASSES? B:CT40 RF(Z) B:CT50 NO! ST A1,STKEND+NBRCOM SAVE CALL GETCLN GET CLASS IDENT NUMBER ST A1,STKEND+CLASID SAVE CALL GETLCN GET LINE CONNECTION NUMBER LDR A6,A1 SAVE LD A2,STKEND+CLASID GET CLASS IDENT NUMBER ADR A2,A2 CONVERT TO DISPLACEMENT LD A7,STKEND+TCLA GET POINTER TO TCLASS ADR A7,A2 SELECT ENTRY IN TCLASS LDR* A7,A7 GET POINTER TO CLASS CALL DWTGEN GENERATE DWT:S FOR THIS CLASS ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE LD A1,STKEND+NBRCOM GET NUMBER OF C.T.C. SUK A1,1 DECREMENT COUNTER RB B:CT40 B:CT50 CALL ECHO EJECT * * GET NUMBER OF SPECIAL DEVICE CLASSES * CALL GETSDC ADKL A9,SDCFST-CDBNC LDR A8,A1 CDG:20 EQU * RB(NP) CDG:18 * * GET SPECIAL DEVICE CLASS NUMBER * CALL GETCLN * * GET CORRESPONDING DEVICE CLASS IN SCLASS * ADR A1,A1 T LD A6,STKEND+SCLA GET POINTER TO SCLASS ADR A6,A1 SELECT CLASS LDR* A5,A6 SAVE POINTER TO CLASS LDR* A6,A6 GET POINTER TO CLASS LDR* A6,A6 GET LENGTH OF CLASS SUK A6,2 EXCLUDE LENGTH WORD CDG:30 EQU * ADK A5,4 NEXT DEVICE LDR* A1,A5 GET DWT-ADDRESS LD A3,DWTLEN,A1 GENERATION OF DWT? RF(Z) CDG:40 NO * * COPY DWT * LDR A2,A12 TO-ADDRESS ADR A12,A3 UPDATE POINTER TO FREE AREA CALL CHKMOV COPY DWT * * RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM * LD A3,SCTOPT GET OPTION WORD ANK A3,1 MMU IN SYSTEM? RF(Z) CDG:35 NO! LDR A3,A1 GET PROTOTYPE DWT-ADDRESS SUR A3,A2 COMPUTE RELOCATION CONSTANT LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS ANKL A4,/FFFE MAKE IT EVEN! SUR A4,A3 RELOCATE ST A4,DWTMEC,A2 STORE IT BACK CDG:35 EQU * LDR A1,A2 DWT-ADDRESS TO USE CDG:40 EQU * * * STORE FILE-CODE AND DWT-ADDRESS IN TTAB * ST A1,4,A10 STORE DWT-ADDRESS LD A1,-2,A5 GET FILE CODE ST A1,2,A10 STORE IN TTAB ADKL A10,4 NEXT ENTRY IN CD:TAB SUK A6,4 DECREMENT DEVICE COUNTER RB(P) CDG:30 NEXT DEVICE EJECT * * CHECK IF MOORE SPECIAL DEVICE CLASSES * ADKL A9,SDC SUKL A8,1 RB CDG:20 CDGEX EQU * LD A1,SCTDMT DATA MANAGEMENT LD A5,SCTDCT DATA COMMUNICATION ORR A1,A5 DM OR DC? LD A5,SCTOPT GET OPTION WORD ANK A5,/E DISC PAGING OR SWB:S? ORR A1,A5 COPY LAST SCLASS IF NOT ZERO RF(Z) CDG:EX NO! LD A5,STKEND+SCLA GET POINTER TO SCLASS LDR* A1,A5 GET LENGTH OF SCLASS SUK A1,2 EXCLUDE LENGTH WORD ADR A5,A1 GET LAST ENTRY LDR* A5,A5 GET POINTER TO LAST CLASS LDR* A6,A5 GET LENGTH OF LAST CLASS SUK A6,2 EXCLUDE LENGTH WORD RB CDG:30 CDG:EX EQU * ST A12,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN =6 EJECT ********************************************************************** * DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS ********************************************************************** * * ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) * A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS * A6 - LINE CONNECTION NUMBER * * EXIT: * * WORK REGISTERS: A1-A8 * * SUBROUTINES: I:CHP,MOVE * EJECT DWTGEN EQU * ST A6,STKEND+LCNBR SAVE LINE CONNECTION NUMBER LDR* A8,A7 GET LENGTH OF THIS CLASS SUKL A8,2 EXCLUSIVE LENGTH WORD ADK A7,2 FIRST FILECODE DWT05 EQU * LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT LD A6,STKEND+LCNBR GET LINE CONNECTION NUMBER * * CHECK CONNECTION TYPE * LC A4,TDC+6,A9 GET LINE CONNECTION TYPE CCK A4,'SS' SALCUZ CONNECTION? RF(NE) DWT10 NO! CALL I:CHSZ INIT CHANNEL PARAMETERS SALCUZ RF DWT31 DWT10 CCK A4,'AA' ASCU4Z CONNECTION? RF(NE) DWT07 NO! CALL I:CHAZ INIT CHANEL PARAMETERS ASCU4Z RF DWT31 DWT07 CCK A4,'VV' VCCU1/4 CONNECTION? RF(NE) DWT11 CALL I:CHVC INIT CHANNEL PARAMETERS VCCU1/4 RF DWT31 DWT11 CCK A4,'PP' PLC CONNECTION? RF(NE) DWT12 NO! CALL I:CHPC INIT CHANNEL PARAMETERS PLC 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(E) DWT09 YES! LDKL A1,LMP4 INDICATE FORMAT ERROR CALL ERROR DWT09 CALL I:CHRT INIT CHANNEL PARAMETERS RT 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 * SUK A4,6 GET NEXT BLOCK 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 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 ********************************************* * 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 PLC * ****************************************** * * 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: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? RF(G) NUMERR NO! CWK A6,0001 CONNECTION NUMBER >=01? RF(L) NUMERR NO! 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? RF(G) NUMERR NO! CWK A6,0001 CONNECTION NUMBER >=1? RF(L) NUMERR NO! 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 NUMERR EQU * LDKL A1,LMP4 INDICATE FORMAT ERROR CALL ERROR 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 * * 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 * 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:ITVU YES! RB BPC10 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
0x00000…00036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT SYSLDM REL 11.0 81-02-16 870105041100 «, t00=0x0000, t01=0x0004}
0x00036…0003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…00074 Head {h00=0x0032, h01=0x0050, text=» =6,INIT UNUSED MMU ENTRIES,AND INIT ACBSTA «, t00=0x0000, t01=0x0042}
0x00074…000a0 Head {h00=0x0028, h01=0x0050, text=» AND ACBREL FOR MONITOR EXTENTS«, t00=0x0000, t01=0x0078}
0x000a0…000c0 Head {h00=0x001c, h01=0x0050, text=» REL 11.0 81-01-26 «, t00=0x0000, t01=0x00a4}
0x000c0…000f2 Head {h00=0x002e, h01=0x0050, text=» =5,CHANGES IN CONDITIONAL ASSEMBLY WHEN«, t00=0x0000, t01=0x00c4}
0x000f2…0011e Head {h00=0x0028, h01=0x0050, text=» BUILDING COMMON DEVICE TABLES «, t00=0x0000, t01=0x00f6}
0x0011e…0013e Head {h00=0x001c, h01=0x0050, text=» PRR 11.0 80-12-11 «, t00=0x0000, t01=0x0122}
0x0013e…00172 Head {h00=0x0030, h01=0x0050, text=» =4,CLEAR WORK AREA FOR ECHO DEVICE TABLE «, t00=0x0000, t01=0x0142}
0x00172…0019e Head {h00=0x0028, h01=0x0050, text=» EVEN IF NO TERMINAL DEVICES «, t00=0x0000, t01=0x0176}
0x0019e…001be Head {h00=0x001c, h01=0x0050, text=» PRR 11.0 80-12-03 «, t00=0x0001, t01=0x0012}
0x001be…001f2 Head {h00=0x0030, h01=0x0050, text=» =3,APPLICATION CONTROL BLOCK IS EXTENDED «, t00=0x0001, t01=0x0032}
0x001f2…0020c Head {h00=0x0016, h01=0x0050, text=» WITH 1 WORD «, t00=0x0001, t01=0x0066}
0x0020c…00228 Head {h00=0x0018, h01=0x0050, text=» PRR 11.0 80-12-01«, t00=0x0001, t01=0x0080}
0x00228…00258 Head {h00=0x002c, h01=0x0050, text=» =2,IF NO S-BLOCK IN CONF.DATA,PROCESS«, t00=0x0001, t01=0x009c}
0x00258…00288 Head {h00=0x002c, h01=0x0050, text=» EVEN NEXT CREDIT APPL. CONVERT A «, t00=0x0001, t01=0x00cc}
0x00288…002b0 Head {h00=0x0024, h01=0x0050, text=» BINARY VALUE >99 TO ASCII «, t00=0x0001, t01=0x00fc}
0x002b0…002e6 Head {h00=0x0032, h01=0x0050, text=» THE FIRST POINTER IN WORK STATION TABLE «, t00=0x0001, t01=0x0124}
0x002e6…00312 Head {h00=0x0028, h01=0x0050, text=» FOR PLC IS FOR WS NUMBER ZERO «, t00=0x0001, t01=0x015a}
0x00312…00346 Head {h00=0x0030, h01=0x0050, text=» CHECK IF MEMORY OVERFLOW WHEN BUILDING«, t00=0x0001, t01=0x0186}
0x00346…00364 Head {h00=0x001a, h01=0x0050, text=» USER TASK TABLES«, t00=0x0002, t01=0x002a}
0x00364…00384 Head {h00=0x001c, h01=0x0050, text=» PRR 11.0 80-11-20 «, t00=0x0002, t01=0x0048}
0x00384…003c0 Head {h00=0x0038, h01=0x0050, text=» =1,IF NO D-BLOCK IN CONF. DATA, SKIP DCT-CREATION«, t00=0x0002, t01=0x0068}
0x003c0…003e0 Head {h00=0x001c, h01=0x0050, text=» PRR 11.0 80-11-19 «, t00=0x0002, t01=0x00a4}
0x003e0…003f6 Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLDM «, t00=0x0002, t01=0x00c4}
0x003f6…00400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00da}
0x00400…00434 Head {h00=0x0030, h01=0x0050, text=»* EXTERNALS DEFINED IN SYSTEM CONTROL TABLE«, t00=0x0002, t01=0x00e4}
0x00434…0043e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0118}
0x0043e…00466 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTANO APPLICATION NUMBER«, t00=0x0002, t01=0x0122}
0x00466…00496 Head {h00=0x002c, h01=0x0050, text=» EXTRN SCTBLK NUMBER OF BLOCKS PER TASK «, t00=0x0002, t01=0x014a}
0x00496…004be Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTBUG DEBUGGER ADDRESS «, t00=0x0002, t01=0x017a}
0x004be…004f0 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCTCDT COMMON DEVICE TABLE ADDRESS «, t00=0x0003, t01=0x0012}
0x004f0…00518 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTDCT DATA COMMUNICATION«, t00=0x0003, t01=0x0044}
0x00518…0054a Head {h00=0x002e, h01=0x0050, text=» EXTRN SCTDMI DM: INDEX BUFFER RECORD SIZE«, t00=0x0003, t01=0x006c}
0x0054a…00576 Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTDMT DATA MANAGEMENT TASKS «, t00=0x0003, t01=0x009e}
0x00576…0059c Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTEFA END OF FREE AREA«, t00=0x0003, t01=0x00ca}
0x0059c…005cc Head {h00=0x002c, h01=0x0050, text=» EXTRN SCTFWL FM: FILE WORK TABLE LENGTH«, t00=0x0003, t01=0x00f0}
0x005cc…005fe Head {h00=0x002e, h01=0x0050, text=» EXTRN SCTFWT FM: FILE WORK TABLE ADDRESS «, t00=0x0003, t01=0x0120}
0x005fe…00636 Head {h00=0x0034, h01=0x0050, text=» EXTRN SCTMOX MONITOR EXTENT START ADDRESS TABLE«, t00=0x0003, t01=0x0152}
0x00636…00668 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCTMXS MONITOR EXTENT&SEGMENT TABLE«, t00=0x0003, t01=0x018a}
0x00668…0069a Head {h00=0x002e, h01=0x0050, text=» EXTRN SCTNFT DM/FM: NUMBER OF FILES/TASK «, t00=0x0004, t01=0x002c}
0x0069a…006c6 Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTNOF DM/FM: NUMBER OF FILES«, t00=0x0004, t01=0x005e}
0x006c6…006ec Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTNOP NUMBER OF PAGES «, t00=0x0004, t01=0x008a}
0x006ec…00726 Head {h00=0x0036, h01=0x0050, text=» EXTRN SCTNOS NUMBER OF SEGMENTS/TASK (BASIC ONLY)«, t00=0x0004, t01=0x00b0}
0x00726…0074a Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTOPT SYSTEM OPTIONS«, t00=0x0004, t01=0x00ea}
0x0074a…00772 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTPAG PAGE TABLE ADDRESS«, t00=0x0004, t01=0x010e}
0x00772…0079e Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTIPL PROGRAM LOADING DEVICE«, t00=0x0004, t01=0x0136}
0x0079e…007be Head {h00=0x001c, h01=0x0050, text=» EXTRN SCTPSZ PAGE SIZE «, t00=0x0004, t01=0x0162}
0x007be…007e6 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTSFA START OF FREE AREA«, t00=0x0004, t01=0x0182}
0x007e6…0080e Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTTCT TASK CONTROL TABLE«, t00=0x0005, t01=0x001a}
0x0080e…0081c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0042}
0x0081c…00826 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0050}
0x00826…0084c Head {h00=0x0022, h01=0x0050, text=»* EXTERNALS DEFINED IN MONTAB«, t00=0x0005, t01=0x005a}
0x0084c…00856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0080}
0x00856…00884 Head {h00=0x002a, h01=0x0050, text=» EXTRN FREQUE FREE PAGES QUEUE ANCHOR «, t00=0x0005, t01=0x008a}
0x00884…008aa Head {h00=0x0022, h01=0x0050, text=» EXTRN INTLT1 LOCAL CONNECTION«, t00=0x0005, t01=0x00b8}
0x008aa…008d2 Head {h00=0x0024, h01=0x0050, text=» EXTRN INTRT1 REMOTE CONNECTION «, t00=0x0005, t01=0x00de}
0x008d2…008f8 Head {h00=0x0022, h01=0x0050, text=» EXTRN INTVU1 VIDEO CONNECTION«, t00=0x0005, t01=0x0106}
0x008f8…00920 Head {h00=0x0024, h01=0x0050, text=» EXTRN INTPL1 GENERAL CONNECTION«, t00=0x0005, t01=0x012c}
0x00920…0094e Head {h00=0x002a, h01=0x0050, text=» EXTRN INTAS1 ASYNCHRONOUS CONNECTION «, t00=0x0005, t01=0x0154}
0x0094e…0097a Head {h00=0x0028, h01=0x0050, text=» EXTRN INTSL1 SYNCHRONOUS CONNECTION«, t00=0x0005, t01=0x0182}
0x0097a…00984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001e}
0x00984…009a6 Head {h00=0x001e, h01=0x0050, text=»* MISCELLANOEUS EXTERNALS«, t00=0x0006, t01=0x0028}
0x009a6…009b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x004a}
0x009b0…009dc Head {h00=0x0028, h01=0x0050, text=» EXTRN REL RELOCATION BASE IN SYSINI«, t00=0x0006, t01=0x0054}
0x009dc…00a0c Head {h00=0x002c, h01=0x0050, text=» EXTRN SCLASS SPECIAL DEVICE CLASS TABLE«, t00=0x0006, t01=0x0080}
0x00a0c…00a3e Head {h00=0x002e, h01=0x0050, text=» EXTRN TCLASS TERMINAL DEVICE CLASS TABLE «, t00=0x0006, t01=0x00b0}
0x00a3e…00a64 Head {h00=0x0022, h01=0x0050, text=» EXTRN SYSLOD START OF SYSLOD «, t00=0x0006, t01=0x00e2}
0x00a64…00a90 Head {h00=0x0028, h01=0x0050, text=» EXTRN STKCOM COMMON STACK AREA BASE«, t00=0x0006, t01=0x0108}
0x00a90…00abc Head {h00=0x0028, h01=0x0050, text=» EXTRN STKEND LOCAL STACK AREA BASE «, t00=0x0006, t01=0x0134}
0x00abc…00ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0160}
0x00ac6…00ae6 Head {h00=0x001c, h01=0x0050, text=»* EXTERNAL SUBROUTINES «, t00=0x0006, t01=0x016a}
0x00ae6…00af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018a}
0x00af0…00b14 (7, 0, 400) Head {h00=0x0020, h01=0x0050, text=» EXTRN ERROR ERROR HANDLING «, t00=0x0007, t01=0x0004}
0x00b14…00b3c Head {h00=0x0024, h01=0x0050, text=» EXTRN MOVE MOVE AREAS IN MEMORY«, t00=0x0007, t01=0x0028}
0x00b3c…00b58 Head {h00=0x0018, h01=0x0050, text=» EXTRN MULT MULTIPLY«, t00=0x0007, t01=0x0050}
0x00b58…00b84 Head {h00=0x0028, h01=0x0050, text=» EXTRN PSW STORE PROGRAM STATUS WORD«, t00=0x0007, t01=0x006c}
0x00b84…00bac Head {h00=0x0024, h01=0x0050, text=» EXTRN CMPADR COMPARE ADDRESSES «, t00=0x0007, t01=0x0098}
0x00bac…00bde Head {h00=0x002e, h01=0x0050, text=» EXTRN CONVRT CONVERT FROM ASCII TO BINARY«, t00=0x0007, t01=0x00c0}
0x00bde…00c0c Head {h00=0x002a, h01=0x0050, text=» EXTRN NXTBLK GET NEXT TASK DEF. BLOCK«, t00=0x0007, t01=0x00f2}
0x00c0c…00c42 Head {h00=0x0032, h01=0x0050, text=» EXTRN NXTCOM GET NEXT COMMON DEFINITION BLOCK«, t00=0x0007, t01=0x0120}
0x00c42…00c62 Head {h00=0x001c, h01=0x0050, text=» EXTRN GETNUM GET NUMBER«, t00=0x0007, t01=0x0156}
0x00c62…00c94 Head {h00=0x002e, h01=0x0050, text=» EXTRN INBIMA INIT MMU ALLOCATION BIT MAP «, t00=0x0007, t01=0x0176}
0x00c94…00cc6 Head {h00=0x002e, h01=0x0050, text=» EXTRN PUSH SAVE REGISTER A1-A14 ON STACK «, t00=0x0008, t01=0x0018}
0x00cc6…00cfc Head {h00=0x0032, h01=0x0050, text=» EXTRN POB RESTORE REGISTER A1-A14 FROM STACK «, t00=0x0008, t01=0x004a}
0x00cfc…00d38 Head {h00=0x0038, h01=0x0050, text=» EXTRN GETAPP GET NEXT APPLICATION OF SPECIFIED TYPE«, t00=0x0008, t01=0x0080}
0x00d38…00d46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00bc}
0x00d46…00d50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ca}
0x00d50…00d6e Head {h00=0x001a, h01=0x0050, text=»* TTAB DISPLACEMENTS «, t00=0x0008, t01=0x00d4}
0x00d6e…00d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f2}
0x00d78…00da4 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:AM MMU ALLOCATION BIT MAP«, t00=0x0008, t01=0x00fc}
0x00da4…00dc4 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0008, t01=0x0128}
0x00dc4…00df4 Head {h00=0x002c, h01=0x0050, text=» EXTRN TTB:AP APPLICATION CONTROL BLOCK «, t00=0x0008, t01=0x0148}
0x00df4…00e26 Head {h00=0x002e, h01=0x0050, text=» EXTRN TTB:CB CURRENT SEGMENT BASE POINTER«, t00=0x0008, t01=0x0178}
0x00e26…00e52 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SP SEGMENT TABLE POINTER «, t00=0x0009, t01=0x001a}
0x00e52…00e7e Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SB SEGMENT BLOCK POINTER «, t00=0x0009, t01=0x0046}
0x00e7e…00e9c Head {h00=0x001a, h01=0x0050, text=» EXTRN TTB:ID TASK ID «, t00=0x0009, t01=0x0072}
0x00e9c…00eb8 Head {h00=0x0018, h01=0x0050, text=» EXTRN TTB:ST STATUS«, t00=0x0009, t01=0x0090}
0x00eb8…00ede Head {h00=0x0022, h01=0x0050, text=» EXTRN TTB:PP PENDING POINTER «, t00=0x0009, t01=0x00ac}
0x00ede…00f08 Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:PW PROGRAM STATUS WORD «, t00=0x0009, t01=0x00d2}
0x00f08…00f2e Head {h00=0x0022, h01=0x0050, text=» EXTRN TTB:SA DISPATCH ADDRESS«, t00=0x0009, t01=0x00fc}
0x00f2e…00f58 Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:TD DEVICE TABLE LENGTH «, t00=0x0009, t01=0x0122}
0x00f58…00f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014c}
0x00f62…00f7a Head {h00=0x0014, h01=0x0050, text=»* DWT PARAMETERS«, t00=0x0009, t01=0x0156}
0x00f7a…00f84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x016e}
0x00f84…00fae Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTCHP CHANNEL PARAMETER-1 «, t00=0x0009, t01=0x0178}
0x00fae…00fca Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000a, t01=0x0012}
0x00fca…00fec Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x000a, t01=0x002e}
0x00fec…01006 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000a, t01=0x0050}
0x01006…0102a Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTADR ADDRESS BLOCK «, t00=0x000a, t01=0x006a}
0x0102a…0104c Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB ADDRESS«, t00=0x000a, t01=0x008e}
0x0104c…0107a Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTWAT WAIT/ACTIVATE INDICATOR «, t00=0x000a, t01=0x00b0}
0x0107a…0109e Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTTQ TERMINAL QUEUE «, t00=0x000a, t01=0x00de}
0x0109e…010c4 Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTUEC USER ECB ADDRESS«, t00=0x000a, t01=0x0102}
0x010c4…010ee Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTMEC MONITOR ECB ADDRESS «, t00=0x000a, t01=0x0128}
0x010ee…01118 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTCP2 CHANNEL PARAMETER-2 «, t00=0x000a, t01=0x0152}
0x01118…0113c Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTDEV DEVICE STATUS «, t00=0x000a, t01=0x017c}
0x0113c…0115e Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECH ECHO DEVICE «, t00=0x000b, t01=0x0010}
0x0115e…01182 Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTSQ START OF QUEUE «, t00=0x000b, t01=0x0032}
0x01182…01190 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0056}
0x01190…01198 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0064}
0x01198…011a0 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x006c}
0x011a0…011d0 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000b, t01=0x0074}
0x011d0…01200 Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000b, t01=0x00a4}
0x01200…01230 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000b, t01=0x00d4}
0x01230…01238 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0104}
0x01238…01268 Head {h00=0x002c, h01=0x0050, text=»MMUPAG EQU 0 1 - MEMORY MANAGEMENT UNIT «, t00=0x000b, t01=0x010c}
0x01268…0128c Head {h00=0x0020, h01=0x0050, text=»DSKPAG EQU 0 1 - DISC PAGING«, t00=0x000b, t01=0x013c}
0x0128c…012c2 Head {h00=0x0032, h01=0x0050, text=»SWPBLK EQU 0 1 - SWAPPABLE WORK BLOCK HANDLING«, t00=0x000b, t01=0x0160}
0x012c2…012f0 Head {h00=0x002a, h01=0x0050, text=»EDM EQU 0 1 - EXTENDED DATA MANAGEMENT«, t00=0x000c, t01=0x0008}
0x012f0…01302 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x000c, t01=0x0036}
0x01302…01314 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000c, t01=0x0048}
0x01314…01326 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x000c, t01=0x005a}
0x01326…01338 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 1 «, t00=0x000c, t01=0x006c}
0x01338…0134a Head {h00=0x000e, h01=0x0050, text=»X:E EQU 1 «, t00=0x000c, t01=0x007e}
0x0134a…0135c Head {h00=0x000e, h01=0x0050, text=»X:F EQU 1 «, t00=0x000c, t01=0x0090}
0x0135c…0136e Head {h00=0x000e, h01=0x0050, text=»X:G EQU 1 «, t00=0x000c, t01=0x00a2}
0x0136e…01380 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 1 «, t00=0x000c, t01=0x00b4}
0x01380…01392 Head {h00=0x000e, h01=0x0050, text=»X:I EQU 1 «, t00=0x000c, t01=0x00c6}
0x01392…013a4 Head {h00=0x000e, h01=0x0050, text=»X:J EQU 1 «, t00=0x000c, t01=0x00d8}
0x013a4…013b6 Head {h00=0x000e, h01=0x0050, text=»X:K EQU 0 «, t00=0x000c, t01=0x00ea}
0x013b6…013c8 Head {h00=0x000e, h01=0x0050, text=»X:L EQU 1 «, t00=0x000c, t01=0x00fc}
0x013c8…013da Head {h00=0x000e, h01=0x0050, text=»X:M EQU 0 «, t00=0x000c, t01=0x010e}
0x013da…013e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0120}
0x013e4…013f8 Head {h00=0x0010, h01=0x0050, text=»SUML EQU X:A«, t00=0x000c, t01=0x012a}
0x013f8…0140c Head {h00=0x0010, h01=0x0050, text=»SUMR EQU X:B«, t00=0x000c, t01=0x013e}
0x0140c…01422 Head {h00=0x0012, h01=0x0050, text=»SALCUZ EQU X:C«, t00=0x000c, t01=0x0152}
0x01422…01438 Head {h00=0x0012, h01=0x0050, text=»ASCU4Z EQU X:D«, t00=0x000c, t01=0x0168}
0x01438…0144c Head {h00=0x0010, h01=0x0050, text=»FT80 EQU X:E«, t00=0x000c, t01=0x017e}
0x0144c…01460 (13, 0, 400) Head {h00=0x0010, h01=0x0050, text=»PLCL EQU X:F«, t00=0x000d, t01=0x0004}
0x01460…01474 Head {h00=0x0010, h01=0x0050, text=»PLCR EQU X:G«, t00=0x000d, t01=0x0018}
0x01474…0148a Head {h00=0x0012, h01=0x0050, text=»VIDEO EQU X:H «, t00=0x000d, t01=0x002c}
0x0148a…014a0 Head {h00=0x0012, h01=0x0050, text=»TEDVCL EQU X:I«, t00=0x000d, t01=0x0042}
0x014a0…014b6 Head {h00=0x0012, h01=0x0050, text=»SPDVCL EQU X:J«, t00=0x000d, t01=0x0058}
0x014b6…014cc Head {h00=0x0012, h01=0x0050, text=»NOEXMB EQU X:K«, t00=0x000d, t01=0x006e}
0x014cc…014de Head {h00=0x000e, h01=0x0050, text=»FM EQU X:L«, t00=0x000d, t01=0x0084}
0x014de…014f0 Head {h00=0x000e, h01=0x0050, text=»DC EQU X:M«, t00=0x000d, t01=0x0096}
0x014f0…014fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00a8}
0x014fe…01508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b6}
0x01508…01536 Head {h00=0x002a, h01=0x0050, text=»* COMMON DISPLACEMENTS AND CONSTANTS «, t00=0x000d, t01=0x00c0}
0x01536…01540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ee}
0x01540…01572 Head {h00=0x002e, h01=0x0050, text=»ACBLEN EQU 26 APPL.CONTROL BLOCK LENGTH =3«, t00=0x000d, t01=0x00f8}
0x01572…015a6 Head {h00=0x0030, h01=0x0050, text=»APLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE«, t00=0x000d, t01=0x012a}
0x015a6…015ce Head {h00=0x0024, h01=0x0050, text=»APPLNO EQU 18 APPLICATION NUMBER«, t00=0x000d, t01=0x015e}
0x015ce…015fa Head {h00=0x0028, h01=0x0050, text=»BUFSIZ EQU 14 TEMPORARY BUFFER SIZE «, t00=0x000d, t01=0x0186}
0x015fa…0162c Head {h00=0x002e, h01=0x0050, text=»CONLEN EQU 0 LENGTH OF CONFIGURATION DATA «, t00=0x000e, t01=0x0022}
0x0162c…0165c Head {h00=0x002c, h01=0x0050, text=»CONSTA EQU 2 START OF CONFIGURATION DATA«, t00=0x000e, t01=0x0054}
0x0165c…01688 Head {h00=0x0028, h01=0x0050, text=»DATEND EQU 34 END OF DDIV PROTOTYPE «, t00=0x000e, t01=0x0084}
0x01688…016c6 Head {h00=0x003a, h01=0x0050, text=»FSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER «, t00=0x000e, t01=0x00b0}
0x016c6…016f4 Head {h00=0x002a, h01=0x0050, text=»FSTPAG EQU 22 1ST FREE PAGE (PHYSICAL)«, t00=0x000e, t01=0x00ee}
0x016f4…01724 Head {h00=0x002c, h01=0x0050, text=»FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER «, t00=0x000e, t01=0x011c}
0x01724…0175e Head {h00=0x0036, h01=0x0050, text=»LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART«, t00=0x000e, t01=0x014c}
0x0175e…0178a Head {h00=0x0028, h01=0x0050, text=»MAPLEN EQU 30 LENGTH OF AREA TO MAP «, t00=0x000e, t01=0x0186}
0x0178a…017b8 Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU 36 2ND MMU TABLE WORK AREA «, t00=0x000f, t01=0x0022}
0x017b8…017e4 Head {h00=0x0028, h01=0x0050, text=»MMTO EQU 38 1:ST MMU TABLE WORK AREA«, t00=0x000f, t01=0x0050}
0x017e4…0180c Head {h00=0x0024, h01=0x0050, text=»M:REL EQU 16 RELOCATION CONSTANT«, t00=0x000f, t01=0x007c}
0x0180c…0183c Head {h00=0x002c, h01=0x0050, text=»SYSBUF EQU 28 START OF TEMPORARY BUFFER «, t00=0x000f, t01=0x00a4}
0x0183c…01872 Head {h00=0x0032, h01=0x0050, text=»SWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) «, t00=0x000f, t01=0x00d4}
0x01872…018a6 Head {h00=0x0030, h01=0x0050, text=»SWBFSE EQU 8 SWB-FILE END ADDRESS (2 WORDS) «, t00=0x000f, t01=0x010a}
0x018a6…018d2 Head {h00=0x0028, h01=0x0050, text=»TTAB EQU 32 WORK AREA FOR MMU TABLE «, t00=0x000f, t01=0x013e}
0x018d2…018fa Head {h00=0x0024, h01=0x0050, text=»COM01 EQU 40 COMMON SAVE AREA 1 «, t00=0x000f, t01=0x016a}
0x018fa…01922 (16, 0, 400) Head {h00=0x0024, h01=0x0050, text=»COM02 EQU 42 COMMON SAVE AREA 2 «, t00=0x0010, t01=0x0004}
0x01922…0194a Head {h00=0x0024, h01=0x0050, text=»COM03 EQU 44 COMMON SAVE AREA 3 «, t00=0x0010, t01=0x002c}
0x0194a…01978 Head {h00=0x002a, h01=0x0050, text=»TOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS«, t00=0x0010, t01=0x0054}
0x01978…019a8 Head {h00=0x002c, h01=0x0050, text=»SWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG«, t00=0x0010, t01=0x0082}
0x019a8…019d0 Head {h00=0x0024, h01=0x0050, text=»COM04 EQU 50 COMMON SAVE AREA 4 «, t00=0x0010, t01=0x00b2}
0x019d0…019fc Head {h00=0x0028, h01=0x0050, text=»DCBLK EQU 54 START OF DC CONF. DATA «, t00=0x0010, t01=0x00da}
0x019fc…01a0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0106}
0x01a0a…01a14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0114}
0x01a14…01a40 Head {h00=0x0028, h01=0x0050, text=»* DISPLACEMENT IN LOCAL STACK AREA «, t00=0x0010, t01=0x011e}
0x01a40…01a4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x014a}
0x01a4a…01a6e Head {h00=0x0020, h01=0x0050, text=»TCLA EQU 0 ADDRESS TO TCLASS«, t00=0x0010, t01=0x0154}
0x01a6e…01a92 Head {h00=0x0020, h01=0x0050, text=»SCLA EQU 2 ADDRESS TO SCLASS«, t00=0x0010, t01=0x0178}
0x01a92…01abc Head {h00=0x0026, h01=0x0050, text=»CUTENT EQU 4 FIRST USER TASK ENTRY«, t00=0x0011, t01=0x000c}
0x01abc…01ae8 Head {h00=0x0028, h01=0x0050, text=»FWTSIZ EQU 6 FWT AREA SIZE IN WORDS «, t00=0x0011, t01=0x0036}
0x01ae8…01b18 Head {h00=0x002c, h01=0x0050, text=»APCTAB EQU 8 CURRENT APPL CONTROL BLOCK «, t00=0x0011, t01=0x0062}
0x01b18…01b46 Head {h00=0x002a, h01=0x0050, text=»SFASAV EQU 10 SAVE START OF FREE AREA «, t00=0x0011, t01=0x0092}
0x01b46…01b74 Head {h00=0x002a, h01=0x0050, text=»NBRTSK EQU 12 NUMBER OF TASKS IN CLASS«, t00=0x0011, t01=0x00c0}
0x01b74…01b9e Head {h00=0x0026, h01=0x0050, text=»TASKID EQU 14 TASK IDENTIFICATION «, t00=0x0011, t01=0x00ee}
0x01b9e…01bbc Head {h00=0x001a, h01=0x0050, text=»FWTFLG EQU 16 FWT FLAG«, t00=0x0011, t01=0x0118}
0x01bbc…01bdc Head {h00=0x001c, h01=0x0050, text=»TCLSAV EQU 18 TASK CLASS«, t00=0x0011, t01=0x0136}
0x01bdc…01bfc Head {h00=0x001c, h01=0x0050, text=»TSKLEV EQU 20 TASK LEVEL«, t00=0x0011, t01=0x0156}
0x01bfc…01c28 Head {h00=0x0028, h01=0x0050, text=»INTTAB EQU 22 TEMP INTTERRUPT TABLE «, t00=0x0011, t01=0x0176}
0x01c28…01c50 Head {h00=0x0024, h01=0x0050, text=»FWTSTA EQU 24 START OF FWT AREA «, t00=0x0012, t01=0x0012}
0x01c50…01c80 Head {h00=0x002c, h01=0x0050, text=»LIMIT EQU 26 CURRENT END OF SYSTEM AREA «, t00=0x0012, t01=0x003a}
0x01c80…01cac Head {h00=0x0028, h01=0x0050, text=»NBRCOM EQU 28 NUMBER OF COMMON TDC:S«, t00=0x0012, t01=0x006a}
0x01cac…01cca Head {h00=0x001a, h01=0x0050, text=»CLASID EQU 30 CLASS ID«, t00=0x0012, t01=0x0096}
0x01cca…01cf0 Head {h00=0x0022, h01=0x0050, text=»CONTYP EQU 32 CONNECTION TYPE «, t00=0x0012, t01=0x00b4}
0x01cf0…01d1c Head {h00=0x0028, h01=0x0050, text=»LCNBR EQU 34 LINE CONNECTION NUMBER «, t00=0x0012, t01=0x00da}
0x01d1c…01d3e Head {h00=0x001e, h01=0x0050, text=»CLANBR EQU 36 CLASS NUMBER«, t00=0x0012, t01=0x0106}
0x01d3e…01d68 Head {h00=0x0026, h01=0x0050, text=»MAXSGM EQU 38 MAXIMUM SEGMENT SIZE«, t00=0x0012, t01=0x0128}
0x01d68…01d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0152}
0x01d72…01d92 Head {h00=0x001c, h01=0x0050, text=»WRK1 EQU 42 WORK AREA 1 «, t00=0x0012, t01=0x015c}
0x01d92…01db2 Head {h00=0x001c, h01=0x0050, text=»WRK2 EQU 44 WORK AREA 2 «, t00=0x0012, t01=0x017c}
0x01db2…01dd2 Head {h00=0x001c, h01=0x0050, text=»WRK3 EQU 46 WORK AREA 3 «, t00=0x0013, t01=0x000c}
0x01dd2…01df2 Head {h00=0x001c, h01=0x0050, text=»WRK4 EQU 48 WORK AREA 4 «, t00=0x0013, t01=0x002c}
0x01df2…01e18 Head {h00=0x0022, h01=0x0050, text=»BRDTAB EQU 50 BOARD CONF TABLE«, t00=0x0013, t01=0x004c}
0x01e18…01e48 Head {h00=0x002c, h01=0x0050, text=»LCDSTA EQU 52 CONFIGURATION DATA POINTER«, t00=0x0013, t01=0x0072}
0x01e48…01e7e Head {h00=0x0032, h01=0x0050, text=»NBRSDC EQU 54 NUMBER OF SPECIAL DEVICE CLASSES«, t00=0x0013, t01=0x00a2}
0x01e7e…01eb6 Head {h00=0x0034, h01=0x0050, text=»NBRTDC EQU 56 NUMBER OF TERMINAL DEVICE CLASSES «, t00=0x0013, t01=0x00d8}
0x01eb6…01ee0 Head {h00=0x0026, h01=0x0050, text=»APLNO EQU 58 NUMBR OF APPLICATIONS«, t00=0x0013, t01=0x0110}
0x01ee0…01f08 Head {h00=0x0024, h01=0x0050, text=»ECHTAB EQU 60 ECHO TABLE ADDRESS«, t00=0x0013, t01=0x013a}
0x01f08…01f2e Head {h00=0x0022, h01=0x0050, text=»SGMCNT EQU 62 SEGMENT COUNTER «, t00=0x0013, t01=0x0162}
0x01f2e…01f5c Head {h00=0x002a, h01=0x0050, text=»NUMDTE EQU 64 NUMBER OF DTE:S DEFINED «, t00=0x0013, t01=0x0188}
0x01f5c…01f86 Head {h00=0x0026, h01=0x0050, text=»DTENAM EQU 66 SDTE IDENTIFICATION «, t00=0x0014, t01=0x0026}
0x01f86…01fae Head {h00=0x0024, h01=0x0050, text=»DTETYP EQU 68 TYPE OF CONNECTION«, t00=0x0014, t01=0x0050}
0x01fae…01fe6 Head {h00=0x0034, h01=0x0050, text=»NASTRT EQU 70 START OF NETW. ADDR. IN CONF. DATA«, t00=0x0014, t01=0x0078}
0x01fe6…02014 Head {h00=0x002a, h01=0x0050, text=»NALNG EQU 72 LENGTH OF NETWORK ADDRESS«, t00=0x0014, t01=0x00b0}
0x02014…02044 Head {h00=0x002c, h01=0x0050, text=»DTENSA EQU 74 NO OF SUBADDRESSES DEFINED«, t00=0x0014, t01=0x00de}
0x02044…0207c Head {h00=0x0034, h01=0x0050, text=»DTECOP EQU 76 NO OF COPIES OF CURRENT DTE BLOCK «, t00=0x0014, t01=0x010e}
0x0207c…020ac Head {h00=0x002c, h01=0x0050, text=»NSAADR EQU 78 START OF SUBADDRESSES(DC) «, t00=0x0014, t01=0x0146}
0x020ac…020e8 Head {h00=0x0038, h01=0x0050, text=»APCSTA EQU APCTAB CURRENT APPLICATION CONTROL BLOCK «, t00=0x0014, t01=0x0176}
0x020e8…02120 Head {h00=0x0034, h01=0x0050, text=»SCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK «, t00=0x0015, t01=0x0022}
0x02120…02156 Head {h00=0x0032, h01=0x0050, text=»EXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK«, t00=0x0015, t01=0x005a}
0x02156…02186 Head {h00=0x002c, h01=0x0050, text=»NBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS «, t00=0x0015, t01=0x0090}
0x02186…021b8 Head {h00=0x002e, h01=0x0050, text=»SWBBLK EQU FWTFLG START OF SWB CONF. DATA «, t00=0x0015, t01=0x00c0}
0x021b8…021e6 Head {h00=0x002a, h01=0x0050, text=»SWBNAM EQU FWTSTA ADDRESS TO SWB NAME «, t00=0x0015, t01=0x00f2}
0x021e6…02210 Head {h00=0x0026, h01=0x0050, text=»SWBTBL EQU NBRTSK LENGTH OF S:BTAB«, t00=0x0015, t01=0x0120}
0x02210…0223a Head {h00=0x0026, h01=0x0050, text=»TCTEND EQU NBRTSK LAST TCTAB ENTRY«, t00=0x0015, t01=0x014a}
0x0223a…02264 Head {h00=0x0026, h01=0x0050, text=»SWBCNT EQU TASKID NUMBER OF SWB:S «, t00=0x0015, t01=0x0174}
0x02264…02272 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x000e}
0x02272…0227c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x001c}
0x0227c…022b0 Head {h00=0x0030, h01=0x0050, text=»* DISPLACEMENT IN APPLICATION CONTROL TABLE«, t00=0x0016, t01=0x0026}
0x022b0…022ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x005a}
0x022ba…022ee Head {h00=0x0030, h01=0x0050, text=»APLREL EQU 18 APPLICATION RELOCATION BASE =6«, t00=0x0016, t01=0x0064}
0x022ee…0231e Head {h00=0x002c, h01=0x0050, text=»APLIOE EQU 0 APPLICATION RESTART ADDRESS«, t00=0x0016, t01=0x0098}
0x0231e…0234c Head {h00=0x002a, h01=0x0050, text=»APLLAC EQU 14 APPLICATION LOAD ADDRESS«, t00=0x0016, t01=0x00c8}
0x0234c…02376 Head {h00=0x0026, h01=0x0050, text=»APLLAP EQU 12 LOGICAL PAGE ADDRESS«, t00=0x0016, t01=0x00f6}
0x02376…023a8 Head {h00=0x002e, h01=0x0050, text=»APLLDA EQU 0 APPL. LOAD ADDRESS (PHYSICAL)«, t00=0x0016, t01=0x0120}
0x023a8…023d2 Head {h00=0x0026, h01=0x0050, text=»APLMMC EQU 10 APPL MMU START ENTRY«, t00=0x0016, t01=0x0152}
0x023d2…023fe Head {h00=0x0028, h01=0x0050, text=»APLMMP EQU 8 SEGMENT START MMU ENTRY«, t00=0x0016, t01=0x017c}
0x023fe…02430 Head {h00=0x002e, h01=0x0050, text=»APLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT«, t00=0x0017, t01=0x0018}
0x02430…02462 Head {h00=0x002e, h01=0x0050, text=»APLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU«, t00=0x0017, t01=0x004a}
0x02462…02488 Head {h00=0x0022, h01=0x0050, text=»APLSWB EQU 2 SWB TABLE ADDRESS«, t00=0x0017, t01=0x007c}
0x02488…024b8 Head {h00=0x002c, h01=0x0050, text=»APLSTA EQU 16 APPL PROGRAM START ADDRESS«, t00=0x0017, t01=0x00a2}
0x024b8…024de Head {h00=0x0022, h01=0x0050, text=»APLTYP EQU 8 APPLICATION TYPE «, t00=0x0017, t01=0x00d2}
0x024de…0251a Head {h00=0x0038, h01=0x0050, text=»APLADA EQU 22 APPLICATION DISC ADDRESS (2 WORDS) =3 «, t00=0x0017, t01=0x00f8}
0x0251a…0254c Head {h00=0x002e, h01=0x0050, text=»APLPSZ EQU 20 APPLICATION SEGMENT SIZE =3 «, t00=0x0017, t01=0x0134}
0x0254c…0255a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0166}
0x0255a…02566 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0017, t01=0x0174}
0x02566…02570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0180}
0x02570…02584 Head {h00=0x0010, h01=0x0050, text=»* CONSTANTS«, t00=0x0017, t01=0x018a}
0x02584…0258e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x000e}
0x0258e…025bc Head {h00=0x002a, h01=0x0050, text=»S:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS«, t00=0x0018, t01=0x0018}
0x025bc…025de Head {h00=0x001e, h01=0x0050, text=»SWBLEN EQU 4 LENGTH OF SWB«, t00=0x0018, t01=0x0046}
0x025de…0260a Head {h00=0x0028, h01=0x0050, text=»SWBSEC EQU 6 DISPL. TO SECTOR LENGTH«, t00=0x0018, t01=0x0068}
0x0260a…0263e Head {h00=0x0030, h01=0x0050, text=»UP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB«, t00=0x0018, t01=0x0094}
0x0263e…02662 Head {h00=0x0020, h01=0x0050, text=»UPNAME EQU 4 PROTOTYPE NAME «, t00=0x0018, t01=0x00c8}
0x02662…0268a Head {h00=0x0024, h01=0x0050, text=»WBLEN EQU -4 LENGTH OF WORKBLOCK«, t00=0x0018, t01=0x00ec}
0x0268a…02696 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0018, t01=0x0114}
0x02696…026a2 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0018, t01=0x0120}
0x026a2…026ca Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0018, t01=0x012c}
0x026ca…026f6 Head {h00=0x0028, h01=0x0050, text=»* DISPLACEMENT IN CONFIGURATION DATA«, t00=0x0018, t01=0x0154}
0x026f6…0271e Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0018, t01=0x0180}
0x0271e…0272a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0019, t01=0x0018}
0x0272a…0274a Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x0019, t01=0x0024}
0x0274a…0276c Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x0019, t01=0x0044}
0x0276c…02798 Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x0019, t01=0x0066}
0x02798…027c8 Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x0019, t01=0x0092}
0x027c8…027f8 Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x0019, t01=0x00c2}
0x027f8…02820 Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x0019, t01=0x00f2}
0x02820…0285e Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x0019, t01=0x011a}
0x0285e…02868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0158}
0x02868…02892 Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 FIRST TERM DEF «, t00=0x0019, t01=0x0162}
0x02892…028ba Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x0019, t01=0x018c}
0x028ba…028dc Head {h00=0x001e, h01=0x0050, text=»TLC EQU 7 LINE CONNECTION «, t00=0x001a, t01=0x0024}
0x028dc…02908 Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x001a, t01=0x0046}
0x02908…02912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0072}
0x02912…02940 Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x001a, t01=0x007c}
0x02940…0294a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00aa}
0x0294a…0296e Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x001a, t01=0x00b4}
0x0296e…02978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d8}
0x02978…0299a Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x001a, t01=0x00e2}
0x0299a…029d4 Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x001a, t01=0x0104}
0x029d4…02a00 Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 FIRST SDC-RECORD «, t00=0x001a, t01=0x013e}
0x02a00…02a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x016a}
0x02a0a…02a14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0174}
0x02a14…02a3e Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x001a, t01=0x017e}
0x02a3e…02a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0018}
0x02a48…02a6a Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x001b, t01=0x0022}
0x02a6a…02a9a Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x001b, t01=0x0044}
0x02a9a…02aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0074}
0x02aa4…02ad0 Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 FIRST UDB-RECORD «, t00=0x001b, t01=0x007e}
0x02ad0…02af0 Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x001b, t01=0x00aa}
0x02af0…02b16 Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x001b, t01=0x00ca}
0x02b16…02b48 Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x001b, t01=0x00f0}
0x02b48…02b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0122}
0x02b52…02b80 Head {h00=0x002a, h01=0x0050, text=»* DATA COMMUNICATION DEFINITION BLOCK«, t00=0x001b, t01=0x012c}
0x02b80…02b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x015a}
0x02b8a…02bb2 Head {h00=0x0024, h01=0x0050, text=»IDLIM EQU 4 ID DELIMITER OFFSET «, t00=0x001b, t01=0x0164}
0x02bb2…02bdc Head {h00=0x0026, h01=0x0050, text=»TYPOFS EQU 7 START OF TYPE RECORD «, t00=0x001b, t01=0x018c}
0x02bdc…02c0c Head {h00=0x002c, h01=0x0050, text=»NANSA EQU 2 NA-NSA RECORD QUALIFIER POS.«, t00=0x001c, t01=0x0026}
0x02c0c…02c32 Head {h00=0x0022, h01=0x0050, text=»NAOFS EQU 3 START OF NA NUMBER«, t00=0x001c, t01=0x0056}
0x02c32…02c5a Head {h00=0x0024, h01=0x0050, text=»NSAOFS EQU 4 START OF NSA RECORD«, t00=0x001c, t01=0x007c}
0x02c5a…02c84 Head {h00=0x0026, h01=0x0050, text=»DTEFIX EQU 8 FIX PART OF DTE BLOCK«, t00=0x001c, t01=0x00a4}
0x02c84…02c92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x00ce}
0x02c92…02caa Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x001c, t01=0x00dc}
0x02caa…02cc2 Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x001c, t01=0x00f4}
0x02cc2…02cda Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x001c, t01=0x010c}
0x02cda…02cfc Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x001c, t01=0x0124}
0x02cfc…02d04 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0146}
0x02d04…02d32 Head {h00=0x002a, h01=0x0050, text=»LMP1 EQU /400 SYSLOD RUNS LAMP 1 CODE «, t00=0x001c, t01=0x014e}
0x02d32…02d50 Head {h00=0x001a, h01=0x0050, text=»LMP2 EQU /200 NOT USED«, t00=0x001c, t01=0x017c}
0x02d50…02d76 Head {h00=0x0022, h01=0x0050, text=»LMP3 EQU /100 MEMORY OVERFLOW «, t00=0x001d, t01=0x000a}
0x02d76…02da6 Head {h00=0x002c, h01=0x0050, text=»LMP4 EQU /80 ERROR IN CONFIGURATION DATA«, t00=0x001d, t01=0x0030}
0x02da6…02dc4 Head {h00=0x001a, h01=0x0050, text=»LMP5 EQU /40 NOT USED «, t00=0x001d, t01=0x0060}
0x02dc4…02de2 Head {h00=0x001a, h01=0x0050, text=»LMP6 EQU /20 NOT USED «, t00=0x001d, t01=0x007e}
0x02de2…02e00 Head {h00=0x001a, h01=0x0050, text=»LMP7 EQU /10 NOT USED «, t00=0x001d, t01=0x009c}
0x02e00…02e1c Head {h00=0x0018, h01=0x0050, text=»LMP8 EQU 8 NOT USED «, t00=0x001d, t01=0x00ba}
0x02e1c…02e38 Head {h00=0x0018, h01=0x0050, text=»LMP9 EQU 4 NOT USED «, t00=0x001d, t01=0x00d6}
0x02e38…02e54 Head {h00=0x0018, h01=0x0050, text=»LMP10 EQU 2 NOT USED«, t00=0x001d, t01=0x00f2}
0x02e54…02e70 Head {h00=0x0018, h01=0x0050, text=»LMP11 EQU 1 NOT USED«, t00=0x001d, t01=0x010e}
0x02e70…02e7c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001d, t01=0x012a}
0x02e7c…02ec6 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x001d, t01=0x0136}
0x02ec6…02f10 Head {h00=0x0046, h01=0x0050, text=»* CALL-FORMAT, PERFORMS: CFR A14,A13 * «, t00=0x001d, t01=0x0180}
0x02f10…02f5a Head {h00=0x0046, h01=0x0050, text=»* DATA [REL-ADDRESS] * «, t00=0x001e, t01=0x003a}
0x02f5a…02fa4 Head {h00=0x0046, h01=0x0050, text=»* * «, t00=0x001e, t01=0x0084}
0x02fa4…02fee Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x001e, t01=0x00ce}
0x02fee…02ffa Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001e, t01=0x0118}
0x02ffa…03006 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001e, t01=0x0124}
0x03006…03012 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x001e, t01=0x0130}
0x03012…03030 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x001e, t01=0x013c}
0x03030…0303e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x015a}
0x0303e…03048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0168}
0x03048…03068 Head {h00=0x001c, h01=0x0050, text=»* MXSTAB DISPLACEMENTS «, t00=0x001e, t01=0x0172}
0x03068…03072 (31, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0004}
0x03072…0309a Head {h00=0x0024, h01=0x0050, text=»MXSBL EQU 6 SEGMENT BLOCK LENGTH«, t00=0x001f, t01=0x000e}
0x0309a…030c0 Head {h00=0x0022, h01=0x0050, text=»MXNOX EQU 6 NUMBER OF EXTENTS «, t00=0x001f, t01=0x0036}
0x030c0…030ee Head {h00=0x002a, h01=0x0050, text=»MX:NOS EQU 8 NUMBER OF SEGMENT TABLES «, t00=0x001f, t01=0x005c}
0x030ee…0311e Head {h00=0x002c, h01=0x0050, text=»MX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH«, t00=0x001f, t01=0x008a}
0x0311e…0314a Head {h00=0x0028, h01=0x0050, text=»MX:LEV EQU /0031 MONITOR TASK LEVEL «, t00=0x001f, t01=0x00ba}
0x0314a…03174 Head {h00=0x0026, h01=0x0050, text=»MX:LEN EQU 4 MONITOR EXTENT LENGTH«, t00=0x001f, t01=0x00e6}
0x03174…031a8 Head {h00=0x0030, h01=0x0050, text=»MX:DA1 EQU 2 MONITOR DISC ADDRESS BITS 0-15 «, t00=0x001f, t01=0x0110}
0x031a8…031e4 Head {h00=0x0038, h01=0x0050, text=»MX:DA2 EQU MX:DA1+2 MONITOR DISC ADDRESS BITS 16-31 «, t00=0x001f, t01=0x0144}
0x031e4…0321a Head {h00=0x0032, h01=0x0050, text=»MX:NOX EQU MX:DA2+2 NUMBER OF MONITOR EXTENTS «, t00=0x001f, t01=0x0180}
0x0321a…0324a Head {h00=0x002c, h01=0x0050, text=»MX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH«, t00=0x0020, t01=0x0026}
0x0324a…0327c Head {h00=0x002e, h01=0x0050, text=»MX:STA EQU 2 MONITOR EXTENT START ADDRESS «, t00=0x0020, t01=0x0056}
0x0327c…0328a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0088}
0x0328a…03294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0096}
0x03294…032ba Head {h00=0x0022, h01=0x0050, text=»* ***********«, t00=0x0020, t01=0x00a0}
0x032ba…032e0 Head {h00=0x0022, h01=0x0050, text=»* * PAGTAB *«, t00=0x0020, t01=0x00c6}
0x032e0…03306 Head {h00=0x0022, h01=0x0050, text=»* ***********«, t00=0x0020, t01=0x00ec}
0x03306…03310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0112}
0x03310…0333a Head {h00=0x0026, h01=0x0050, text=»PAGQF EQU 0 QUEUE POINTER FORWARD «, t00=0x0020, t01=0x011c}
0x0333a…03364 Head {h00=0x0026, h01=0x0050, text=»PAGQB EQU 2 QUEUE POINTER BACKWARD«, t00=0x0020, t01=0x0146}
0x03364…03384 Head {h00=0x001c, h01=0x0050, text=»PAGPA EQU 4 PAGE ADDRESS«, t00=0x0020, t01=0x0170}
0x03384…033ae Head {h00=0x0026, h01=0x0050, text=»PAGSB EQU 6 SEGMENT BLOCK ADDRESS «, t00=0x0020, t01=0x0190}
0x033ae…033bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x002a}
0x033bc…033c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0038}
0x033c6…033f0 Head {h00=0x0026, h01=0x0050, text=»* *************«, t00=0x0021, t01=0x0042}
0x033f0…0341a Head {h00=0x0026, h01=0x0050, text=»* * SEGTAB *«, t00=0x0021, t01=0x006c}
0x0341a…03444 Head {h00=0x0026, h01=0x0050, text=»* *************«, t00=0x0021, t01=0x0096}
0x03444…0344e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00c0}
0x0344e…03472 Head {h00=0x0020, h01=0x0050, text=»SEGPB EQU 6 SEGMENT POINTER «, t00=0x0021, t01=0x00ca}
0x03472…03498 Head {h00=0x0022, h01=0x0050, text=»SEGSB EQU 6 PAGE BLOCK ADDRESS«, t00=0x0021, t01=0x00ee}
0x03498…034a0 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0114}
0x034a0…034ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x011c}
0x034ae…034b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x012a}
0x034b8…034e6 Head {h00=0x002a, h01=0x0050, text=»* ******************* «, t00=0x0021, t01=0x0134}
0x034e6…03514 Head {h00=0x002a, h01=0x0050, text=»* * MISCELLANOUES * «, t00=0x0021, t01=0x0162}
0x03514…03542 Head {h00=0x002a, h01=0x0050, text=»* ******************* «, t00=0x0021, t01=0x0190}
0x03542…0354c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x002e}
0x0354c…03562 Head {h00=0x0012, h01=0x0050, text=»BUFLEN EQU -4 «, t00=0x0022, t01=0x0038}
0x03562…03578 Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU -2 «, t00=0x0022, t01=0x004e}
0x03578…0358c Head {h00=0x0010, h01=0x0050, text=»DWTLEN EQU 6«, t00=0x0022, t01=0x0064}
0x0358c…035a0 Head {h00=0x0010, h01=0x0050, text=»TDCDD1 EQU 5«, t00=0x0022, t01=0x0078}
0x035a0…035b4 Head {h00=0x0010, h01=0x0050, text=»TDCDD2 EQU 6«, t00=0x0022, t01=0x008c}
0x035b4…035e0 Head {h00=0x0028, h01=0x0050, text=»TDCLCN EQU 10 DISP. TO LINE CON. NBR«, t00=0x0022, t01=0x00a0}
0x035e0…03608 Head {h00=0x0024, h01=0x0050, text=»SLL0 EQU /3940 SLL A1,0 CONSTANT«, t00=0x0022, t01=0x00cc}
0x03608…03644 Head {h00=0x0038, h01=0x0050, text=»NBRDPS EQU 12 NUMBER OF DATA PAGES/TASK (BASIC ONLY)«, t00=0x0022, t01=0x00f4}
0x03644…03652 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0130}
0x03652…03690 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0022, t01=0x013e}
0x03690…036ce Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0022, t01=0x017c}
0x036ce…0370c Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0023, t01=0x002a}
0x0370c…0374a Head {h00=0x003a, h01=0x0050, text=»* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY *«, t00=0x0023, t01=0x0068}
0x0374a…03788 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0023, t01=0x00a6}
0x03788…037c6 Head {h00=0x003a, h01=0x0050, text=»* IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING *«, t00=0x0023, t01=0x00e4}
0x037c6…03804 Head {h00=0x003a, h01=0x0050, text=»* PARAMETERS: *«, t00=0x0023, t01=0x0122}
0x03804…03842 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0023, t01=0x0160}
0x03842…03880 Head {h00=0x003a, h01=0x0050, text=»* A1 - POINTER TO CURRENT LOCATION OF SYSLDX *«, t00=0x0024, t01=0x000e}
0x03880…038be Head {h00=0x003a, h01=0x0050, text=»* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX *«, t00=0x0024, t01=0x004c}
0x038be…038fc Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0024, t01=0x008a}
0x038fc…0393a Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0024, t01=0x00c8}
0x0393a…03978 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0024, t01=0x0106}
0x03978…0398c Head {h00=0x0010, h01=0x0050, text=»SYSLDM EQU *«, t00=0x0024, t01=0x0144}
0x0398c…039b0 Head {h00=0x0020, h01=0x0050, text=» LDR A8,P INIT STACK POINTER«, t00=0x0024, t01=0x0158}
0x039b0…039e0 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,REL+2 RELOCATION ROUTINE ENTRY «, t00=0x0024, t01=0x017c}
0x039e0…03a0c Head {h00=0x0028, h01=0x0050, text=» AD A1,STKCOM+M:REL RELOCATE ADDRESS«, t00=0x0025, t01=0x001c}
0x03a0c…03a1e Head {h00=0x000e, h01=0x0050, text=» CFR A8,A1«, t00=0x0025, t01=0x0048}
0x03a1e…03a46 Head {h00=0x0024, h01=0x0050, text=» LDKL A11,SYSLOD START OF SYSLOD«, t00=0x0025, t01=0x005a}
0x03a46…03a74 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,TCLASS GET ADDRESS TO TCLASS «, t00=0x0025, t01=0x0082}
0x03a74…03aa6 Head {h00=0x002e, h01=0x0050, text=» CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? «, t00=0x0025, t01=0x00b0}
0x03aa6…03ace Head {h00=0x0024, h01=0x0050, text=» RF(E) NO:TCL YES:DUMMY TCLASS! «, t00=0x0025, t01=0x00e2}
0x03ace…03afe Head {h00=0x002c, h01=0x0050, text=» CALL CHPTRS RELOCATE POINTERS IN TCLASS«, t00=0x0025, t01=0x010a}
0x03afe…03b3a Head {h00=0x0038, h01=0x0050, text=» ST A2,STKEND+TCLA SAVE RELOCATED POINTER TO TCLASS «, t00=0x0025, t01=0x013a}
0x03b3a…03b6e Head {h00=0x0030, h01=0x0050, text=»NO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS «, t00=0x0025, t01=0x0176}
0x03b6e…03b9e Head {h00=0x002c, h01=0x0050, text=» CALL CHPTRS RELOCATE POINTERS IN SCLASS«, t00=0x0026, t01=0x001a}
0x03b9e…03bd2 Head {h00=0x0030, h01=0x0050, text=» ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS «, t00=0x0026, t01=0x004a}
0x03bd2…03be4 Head {h00=0x000e, h01=0x0050, text=» RF CLEAR «, t00=0x0026, t01=0x007e}
0x03be4…03bf2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0090}
0x03bf2…03c2a Head {h00=0x0034, h01=0x002f, text=»*********************************************** «, t00=0x0026, t01=0x009e}
0x03c2a…03c62 Head {h00=0x0034, h01=0x002f, text=»* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * «, t00=0x0026, t01=0x00d6}
0x03c62…03c9a Head {h00=0x0034, h01=0x002f, text=»*********************************************** «, t00=0x0026, t01=0x010e}
0x03c9a…03ca4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0026, t01=0x0146}
0x03ca4…03cd4 Head {h00=0x002c, h01=0x0028, text=»* ENTRY: A2 - POINTER TO TCLASS/SCLASS«, t00=0x0026, t01=0x0150}
0x03cd4…03d00 Head {h00=0x0028, h01=0x0050, text=»* A11 - SYSLOD START ADDRESS«, t00=0x0026, t01=0x0180}
0x03d00…03d2c Head {h00=0x0028, h01=0x0023, text=»* A12 - RELOCATION CONSTANT «, t00=0x0027, t01=0x001c}
0x03d2c…03d36 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0027, t01=0x0048}
0x03d36…03d6c Head {h00=0x0032, h01=0x002e, text=»* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS«, t00=0x0027, t01=0x0052}
0x03d6c…03d76 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0027, t01=0x0088}
0x03d76…03d94 Head {h00=0x001a, h01=0x0016, text=»* WORK REGISTER:A1-A7«, t00=0x0027, t01=0x0092}
0x03d94…03d9e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0027, t01=0x00b0}
0x03d9e…03db6 Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x0027, t01=0x00ba}
0x03db6…03dc0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0027, t01=0x00d2}
0x03dc0…03dd4 Head {h00=0x0010, h01=0x0050, text=»CHPTRS EQU *«, t00=0x0027, t01=0x00dc}
0x03dd4…03df8 Head {h00=0x0020, h01=0x0050, text=» ADR A2,A12 RELOCATE POINTER«, t00=0x0027, t01=0x00f0}
0x03df8…03e2e Head {h00=0x0032, h01=0x002e, text=» LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS«, t00=0x0027, t01=0x0114}
0x03e2e…03e5e Head {h00=0x002c, h01=0x0027, text=» LDR* A4,A3 GET LENGTH OF TCLASS/SCLASS «, t00=0x0027, t01=0x014a}
0x03e5e…03e72 Head {h00=0x0010, h01=0x000c, text=»CHPT10 EQU *«, t00=0x0027, t01=0x017a}
0x03e72…03ea4 Head {h00=0x002e, h01=0x0029, text=» SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? «, t00=0x0027, t01=0x018e}
0x03ea4…03ebe Head {h00=0x0016, h01=0x0011, text=» RF(Z) CHPT30 NO! «, t00=0x0028, t01=0x0030}
0x03ebe…03eda Head {h00=0x0018, h01=0x0014, text=» ADK A3,2 NEXT ENTRY«, t00=0x0028, t01=0x004a}
0x03eda…03f02 Head {h00=0x0024, h01=0x0021, text=» LDR* A5,A3 GET POINTER TO CLASS«, t00=0x0028, t01=0x0066}
0x03f02…03f1e Head {h00=0x0018, h01=0x0014, text=» ADR A5,A12 RELOCATE«, t00=0x0028, t01=0x008e}
0x03f1e…03f36 Head {h00=0x0014, h01=0x0010, text=» STR A5,A3 STORE«, t00=0x0028, t01=0x00aa}
0x03f36…03f5e Head {h00=0x0024, h01=0x001f, text=» LDR* A6,A5 GET LENGTH OF CLASS «, t00=0x0028, t01=0x00c2}
0x03f5e…03f72 Head {h00=0x0010, h01=0x000c, text=»CHPT20 EQU *«, t00=0x0028, t01=0x00ea}
0x03f72…03fa0 Head {h00=0x002a, h01=0x0026, text=» SUK A6,4 MOORE DEVICES IN THIS CLASS?«, t00=0x0028, t01=0x00fe}
0x03fa0…03fba Head {h00=0x0016, h01=0x0050, text=» RB(NP) CHPT10 NO!«, t00=0x0028, t01=0x012c}
0x03fba…03fd8 Head {h00=0x001a, h01=0x0015, text=» ADK A5,4 NEXT DEVICE «, t00=0x0028, t01=0x0146}
0x03fd8…03ffc Head {h00=0x0020, h01=0x001b, text=» LDR* A7,A5 GET DWT-ADDRESS «, t00=0x0028, t01=0x0164}
0x03ffc…0401e Head {h00=0x001e, h01=0x0050, text=» LDR A9,A7 GET DWT-ADDRESS«, t00=0x0028, t01=0x0188}
0x0401e…04044 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x0029, t01=0x001a}
0x04044…04068 Head {h00=0x0020, h01=0x0050, text=» RB(G) CHPT20 DWT IN DRIVER!«, t00=0x0029, t01=0x0040}
0x04068…04084 Head {h00=0x0018, h01=0x0014, text=» ADR A7,A12 RELOCATE«, t00=0x0029, t01=0x0064}
0x04084…040b2 Head {h00=0x002a, h01=0x0025, text=» STR A7,A5 STORE RELOCATED DW-ADDRESS «, t00=0x0029, t01=0x0080}
0x040b2…040d8 Head {h00=0x0022, h01=0x0050, text=» LD A8,SCTOPT GET OPTION WORD «, t00=0x0029, t01=0x00ae}
0x040d8…040fa Head {h00=0x001e, h01=0x0050, text=» ANKL A8,1 MMU IN SYSTEM? «, t00=0x0029, t01=0x00d4}
0x040fa…04114 Head {h00=0x0016, h01=0x0050, text=» RB(Z) CHPT20 NO! «, t00=0x0029, t01=0x00f6}
0x04114…04144 Head {h00=0x002c, h01=0x0050, text=» LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS«, t00=0x0029, t01=0x0110}
0x04144…0416e Head {h00=0x0026, h01=0x0050, text=» LDR A9,A8 GET MONITOR ECB ADDRESS«, t00=0x0029, t01=0x0140}
0x0416e…0419c Head {h00=0x002a, h01=0x0050, text=» ANKL A9,1 ADDRESS ALREADY RELOCATED? «, t00=0x0029, t01=0x016a}
0x0419c…041b8 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) CHPT20 YES! «, t00=0x002a, t01=0x0008}
0x041b8…041d4 Head {h00=0x0018, h01=0x0050, text=» ADR A8,A12 RELOCATE«, t00=0x002a, t01=0x0024}
0x041d4…04206 Head {h00=0x002e, h01=0x0050, text=» ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED «, t00=0x002a, t01=0x0040}
0x04206…04236 Head {h00=0x002c, h01=0x0050, text=» ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS«, t00=0x002a, t01=0x0072}
0x04236…04248 Head {h00=0x000e, h01=0x000a, text=» RB CHPT20«, t00=0x002a, t01=0x00a2}
0x04248…0425c Head {h00=0x0010, h01=0x000c, text=»CHPT30 EQU *«, t00=0x002a, t01=0x00b4}
0x0425c…0426c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x00c8}
0x0426c…0427a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00d8}
0x0427a…0428e Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x002a, t01=0x00e6}
0x0428e…04298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00fa}
0x04298…042c2 Head {h00=0x0026, h01=0x0050, text=»* CLEAR ALL WORDS IN SYSTEM AREA «, t00=0x002a, t01=0x0104}
0x042c2…042cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x012e}
0x042cc…042e2 Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTSFA «, t00=0x002a, t01=0x0138}
0x042e2…04308 Head {h00=0x0022, h01=0x0050, text=» LDR A1,P GET PROGRAM COUNTER «, t00=0x002a, t01=0x014e}
0x04308…0431c Head {h00=0x0010, h01=0x0050, text=»CLRSYS EQU *«, t00=0x002a, t01=0x0174}
0x0431c…0432e Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x002a, t01=0x0188}
0x0432e…0433e Head {h00=0x000c, h01=0x0050, text=» CMR A1 «, t00=0x002b, t01=0x000a}
0x0433e…04350 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x002b, t01=0x001a}
0x04350…04366 Head {h00=0x0012, h01=0x0050, text=» RB(NE) CLRSYS«, t00=0x002b, t01=0x002c}
0x04366…0437e Head {h00=0x0014, h01=0x0050, text=» LDKL A1,CONMON «, t00=0x002b, t01=0x0042}
0x0437e…0439a Head {h00=0x0018, h01=0x0050, text=» AD A1,STKCOM+M:REL «, t00=0x002b, t01=0x005a}
0x0439a…043aa Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x002b, t01=0x0076}
0x043aa…043b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0086}
0x043b8…043f2 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x002b, t01=0x0094}
0x043f2…0442c Head {h00=0x0036, h01=0x0032, text=»* B:TCT - BUILD TASK CONTROL TABLE *«, t00=0x002b, t01=0x00ce}
0x0442c…04466 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x002b, t01=0x0108}
0x04466…04470 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002b, t01=0x0142}
0x04470…04490 Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x002b, t01=0x014c}
0x04490…0449a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002b, t01=0x016c}
0x0449a…044a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0176}
0x044a4…044b6 Head {h00=0x000e, h01=0x0050, text=»* ENTRY: «, t00=0x002b, t01=0x0180}
0x044b6…044c0 (44, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0004}
0x044c0…044d0 Head {h00=0x000c, h01=0x0050, text=»* EXIT:«, t00=0x002c, t01=0x000e}
0x044d0…044da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x001e}
0x044da…04504 Head {h00=0x0026, h01=0x0050, text=»* WORK REGISTERS: A1-A7,A11,A12 «, t00=0x002c, t01=0x0028}
0x04504…0450e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002c, t01=0x0052}
0x0450e…04526 Head {h00=0x0014, h01=0x0011, text=»* SUBROUTINES: «, t00=0x002c, t01=0x005c}
0x04526…04530 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002c, t01=0x0074}
0x04530…04562 Head {h00=0x002e, h01=0x0029, text=»* TASK CONTROL TABLE LAYOUT «, t00=0x002c, t01=0x007e}
0x04562…04594 Head {h00=0x002e, h01=0x0029, text=»* _________________________ «, t00=0x002c, t01=0x00b0}
0x04594…045c6 Head {h00=0x002e, h01=0x002a, text=»* I LENGTH I«, t00=0x002c, t01=0x00e2}
0x045c6…045f8 Head {h00=0x002e, h01=0x0029, text=»* _________________________ «, t00=0x002c, t01=0x0114}
0x045f8…0462a Head {h00=0x002e, h01=0x002a, text=»* I MONITOR TASKS I«, t00=0x002c, t01=0x0146}
0x0462a…0465c Head {h00=0x002e, h01=0x0029, text=»* _________________________ «, t00=0x002c, t01=0x0178}
0x0465c…0468e Head {h00=0x002e, h01=0x002a, text=»* I USER TASKS I«, t00=0x002d, t01=0x001a}
0x0468e…046c0 Head {h00=0x002e, h01=0x0029, text=»* __________________________ «, t00=0x002d, t01=0x004c}
0x046c0…046ca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002d, t01=0x007e}
0x046ca…046d8 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x002d, t01=0x0088}
0x046d8…046ec Head {h00=0x0010, h01=0x0050, text=»B:TCT EQU * «, t00=0x002d, t01=0x0096}
0x046ec…0471a Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x002d, t01=0x00aa}
0x0471a…04748 Head {h00=0x002a, h01=0x0050, text=» ST A12,SCTTCT STORE ADDRESS TO TCTAB «, t00=0x002d, t01=0x00d8}
0x04748…04774 Head {h00=0x0028, h01=0x0050, text=» ADKL A12,2 FIRST TTAB ADDRESS ENTRY«, t00=0x002d, t01=0x0106}
0x04774…04786 Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x002d, t01=0x0132}
0x04786…04790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0144}
0x04790…047c6 Head {h00=0x0032, h01=0x0050, text=»* RESERVE ENTRIES IN TCTAB FOR MONITOR EXTENT«, t00=0x002d, t01=0x014e}
0x047c6…047ea Head {h00=0x0020, h01=0x0050, text=»* AND MONITOR SEGMENT TASKS«, t00=0x002d, t01=0x0184}
0x047ea…047f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0018}
0x047f4…04820 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x002e, t01=0x0022}
0x04820…04842 Head {h00=0x001e, h01=0x0050, text=» RF(Z) BTCT20 NOT PRESENT!«, t00=0x002e, t01=0x004e}
0x04842…04874 Head {h00=0x002e, h01=0x0050, text=» CALL MX:TDB GET FIRST MONITOR EXTENT TDB «, t00=0x002e, t01=0x0070}
0x04874…048a8 Head {h00=0x0030, h01=0x0050, text=»BTCT02 SUK A7,1 DECREMENT NUMBER OF EXTENTS «, t00=0x002e, t01=0x00a2}
0x048a8…048c6 Head {h00=0x001a, h01=0x0050, text=» RF(N) BTCT05 NO MORE!«, t00=0x002e, t01=0x00d6}
0x048c6…048f2 Head {h00=0x0028, h01=0x0050, text=» LDR* A4,A1 GET NUMBER OF TASK ID:S «, t00=0x002e, t01=0x00f4}
0x048f2…04916 Head {h00=0x0020, h01=0x0050, text=»BTCT04 ADK A1,2 NEXT TASK ID«, t00=0x002e, t01=0x0120}
0x04916…04946 Head {h00=0x002c, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF TASK ID:S «, t00=0x002e, t01=0x0144}
0x04946…04964 Head {h00=0x001a, h01=0x0050, text=» RB(N) BTCT02 NO MORE!«, t00=0x002e, t01=0x0174}
0x04964…04984 (47, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x002f, t01=0x0004}
0x04984…049b0 Head {h00=0x0028, h01=0x0050, text=» CALL RESTCT RESERVE ENTRY IN TCTAB «, t00=0x002f, t01=0x0024}
0x049b0…049c2 Head {h00=0x000e, h01=0x0050, text=» RB BTCT04«, t00=0x002f, t01=0x0050}
0x049c2…049fa Head {h00=0x0034, h01=0x0050, text=»BTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB«, t00=0x002f, t01=0x0062}
0x049fa…04a3c Head {h00=0x003e, h01=0x0050, text=»BTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES«, t00=0x002f, t01=0x009a}
0x04a3c…04a5a Head {h00=0x001a, h01=0x0050, text=» RF(N) BTCT20 NO MORE!«, t00=0x002f, t01=0x00dc}
0x04a5a…04a86 Head {h00=0x0028, h01=0x0050, text=» LDR* A4,A1 GET NUMBER OF TASK ID:S «, t00=0x002f, t01=0x00fa}
0x04a86…04aaa Head {h00=0x0020, h01=0x0050, text=»BTCT08 ADK A1,2 NEXT TASK ID«, t00=0x002f, t01=0x0126}
0x04aaa…04ada Head {h00=0x002c, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF TASK ID:S «, t00=0x002f, t01=0x014a}
0x04ada…04af8 Head {h00=0x001a, h01=0x0050, text=» RB(N) BTCT06 NO MORE «, t00=0x002f, t01=0x017a}
0x04af8…04b18 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x0030, t01=0x0008}
0x04b18…04b40 Head {h00=0x0024, h01=0x0050, text=» CALL RESTCT RESERVE ENTRY TCTAB«, t00=0x0030, t01=0x0028}
0x04b40…04b52 Head {h00=0x000e, h01=0x0050, text=» RB BTCT08«, t00=0x0030, t01=0x0050}
0x04b52…04b5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0062}
0x04b5e…04b6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x006e}
0x04b6c…04b76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x007c}
0x04b76…04ba8 Head {h00=0x002e, h01=0x0050, text=»* RESERVE ENTRIES IN TCTAB FOR USER TASKS«, t00=0x0030, t01=0x0086}
0x04ba8…04bb2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0030, t01=0x00b8}
0x04bb2…04bc6 Head {h00=0x0010, h01=0x0050, text=»BTCT20 EQU *«, t00=0x0030, t01=0x00c2}
0x04bc6…04c00 Head {h00=0x0036, h01=0x0050, text=» ST A12,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY«, t00=0x0030, t01=0x00d6}
0x04c00…04c30 Head {h00=0x002c, h01=0x0050, text=» LD A7,SYSLOD GET NUMBER OF APPLICATIONS«, t00=0x0030, t01=0x0110}
0x04c30…04c6a Head {h00=0x0036, h01=0x0050, text=» LDKL A4,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK «, t00=0x0030, t01=0x0140}
0x04c6a…04c94 Head {h00=0x0026, h01=0x0050, text=»BTCT30 SUK A7,1 MORE APPLICATIONS?«, t00=0x0030, t01=0x017a}
0x04c94…04cae Head {h00=0x0016, h01=0x0050, text=» RF(N) BTCT70 NO! «, t00=0x0031, t01=0x0014}
0x04cae…04ce8 Head {h00=0x0036, h01=0x0050, text=» LD A11,APLMMC,A4 GET START OF CONFIGURATION DATA «, t00=0x0031, t01=0x002e}
0x04ce8…04d16 Head {h00=0x002a, h01=0x0050, text=» AD A11,STKCOM+CONSTA RELOCATE POINTER«, t00=0x0031, t01=0x0068}
0x04d16…04d4c Head {h00=0x0032, h01=0x0050, text=» ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY «, t00=0x0031, t01=0x0096}
0x04d4c…04d6e Head {h00=0x001e, h01=0x001a, text=» LCR A2,A11 GET BLOCK TYPE«, t00=0x0031, t01=0x00cc}
0x04d6e…04d9a Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0031, t01=0x00ee}
0x04d9a…04db4 Head {h00=0x0016, h01=0x0011, text=» RF(E) BTCT35 YES «, t00=0x0031, t01=0x011a}
0x04db4…04dd6 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR«, t00=0x0031, t01=0x0134}
0x04dd6…04dee Head {h00=0x0014, h01=0x0010, text=» CALL ERROR HALT«, t00=0x0031, t01=0x0156}
0x04dee…04dfc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x016e}
0x04dfc…04e10 Head {h00=0x0010, h01=0x0050, text=»BTCT35 EQU *«, t00=0x0031, t01=0x017c}
0x04e10…04e1a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0031, t01=0x0190}
0x04e1a…04e4e Head {h00=0x0030, h01=0x002c, text=»* COMPUTE NUMBER OF TASK IN EACH TASK CLASS«, t00=0x0032, t01=0x000a}
0x04e4e…04e58 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x003e}
0x04e58…04e6c Head {h00=0x0010, h01=0x0050, text=»BTCT40 EQU *«, t00=0x0032, t01=0x0048}
0x04e6c…04e94 Head {h00=0x0024, h01=0x0020, text=» CALL GETTSK GET NUMBER OF TASKS«, t00=0x0032, t01=0x005c}
0x04e94…04ea8 Head {h00=0x0010, h01=0x0050, text=»BTCT50 EQU *«, t00=0x0032, t01=0x0084}
0x04ea8…04eda Head {h00=0x002e, h01=0x0050, text=» ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB«, t00=0x0032, t01=0x0098}
0x04eda…04f06 Head {h00=0x0028, h01=0x0024, text=» SUK A1,1 MOORE TASKS IN THIS CLASS?«, t00=0x0032, t01=0x00ca}
0x04f06…04f20 Head {h00=0x0016, h01=0x0011, text=» RB(P) BTCT50 YES «, t00=0x0032, t01=0x00f6}
0x04f20…04f48 Head {h00=0x0024, h01=0x001f, text=» CALL NXTBLK SKIP TO NEXT BLOCK «, t00=0x0032, t01=0x0110}
0x04f48…04f74 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x0032, t01=0x0138}
0x04f74…04f8e Head {h00=0x0016, h01=0x0011, text=» RB(E) BTCT40 YES «, t00=0x0032, t01=0x0164}
0x04f8e…04fa2 Head {h00=0x0010, h01=0x0050, text=»BTCT60 EQU *«, t00=0x0032, t01=0x017e}
0x04fa2…04fd2 (51, 0, 400) Head {h00=0x002c, h01=0x0050, text=» ADK A4,ACBLEN NEXT APPL. CONTROL BLOCK «, t00=0x0033, t01=0x0004}
0x04fd2…04fe4 Head {h00=0x000e, h01=0x0050, text=» RB BTCT30«, t00=0x0033, t01=0x0034}
0x04fe4…04fee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x0046}
0x04fee…05026 Head {h00=0x0034, h01=0x0030, text=»* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB«, t00=0x0033, t01=0x0050}
0x05026…05030 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x0088}
0x05030…05064 Head {h00=0x0030, h01=0x0050, text=»BTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA«, t00=0x0033, t01=0x0092}
0x05064…0508a Head {h00=0x0022, h01=0x0050, text=» SU A12,SCTTCT COMPUTE LENGTH «, t00=0x0033, t01=0x00c6}
0x0508a…050a8 Head {h00=0x001a, h01=0x0050, text=» ST* A12,SCTTCT STORE «, t00=0x0033, t01=0x00ec}
0x050a8…050b8 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0033, t01=0x010a}
0x050b8…050ca Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x0033, t01=0x011a}
0x050ca…050d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x012c}
0x050d8…05116 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0033, t01=0x013a}
0x05116…05154 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0033, t01=0x0178}
0x05154…05192 Head {h00=0x003a, h01=0x0050, text=»* RESTCT - RESERVE ENTRY IN TCTAB * «, t00=0x0034, t01=0x0026}
0x05192…051d0 Head {h00=0x003a, h01=0x0050, text=»* =============================== * «, t00=0x0034, t01=0x0064}
0x051d0…0520e Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0034, t01=0x00a2}
0x0520e…0524c Head {h00=0x003a, h01=0x0050, text=»* REFERENCED IN: B:TCT * «, t00=0x0034, t01=0x00e0}
0x0524c…0528a Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0034, t01=0x011e}
0x0528a…052c8 Head {h00=0x003a, h01=0x0050, text=»* ENTRY: A2 - CURRENT TASK ID * «, t00=0x0034, t01=0x015c}
0x052c8…05306 Head {h00=0x003a, h01=0x0050, text=»* A12 - NEXT FREE ENTRY IN TCTAB * «, t00=0x0035, t01=0x000a}
0x05306…05344 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0035, t01=0x0048}
0x05344…05382 Head {h00=0x003a, h01=0x0050, text=»* EXIT: A12 - NEXT FREE ENTRY IN TCTAB * «, t00=0x0035, t01=0x0086}
0x05382…053c0 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0035, t01=0x00c4}
0x053c0…053fe Head {h00=0x003a, h01=0x0050, text=»* WORK REGISTERS: A3 * «, t00=0x0035, t01=0x0102}
0x053fe…0543c Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0035, t01=0x0140}
0x0543c…0547a Head {h00=0x003a, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0035, t01=0x017e}
0x0547a…054b8 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0036, t01=0x002c}
0x054b8…054f6 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0036, t01=0x006a}
0x054f6…0550a Head {h00=0x0010, h01=0x0050, text=»RESTCT EQU *«, t00=0x0036, t01=0x00a8}
0x0550a…0552e Head {h00=0x0020, h01=0x0050, text=» LDR A3,A12 GET END OF TCTAB«, t00=0x0036, t01=0x00bc}
0x0552e…05550 Head {h00=0x001e, h01=0x0050, text=»REST10 SUK A3,2 NEXT ENTRY«, t00=0x0036, t01=0x00e0}
0x05550…0557a Head {h00=0x0026, h01=0x0050, text=» CW A3,SCTTCT ALL ENTRIES CHECKED?«, t00=0x0036, t01=0x0102}
0x0557a…05598 Head {h00=0x001a, h01=0x0050, text=» RF(NE) REST30 NOT YET«, t00=0x0036, t01=0x012c}
0x05598…055c2 Head {h00=0x0026, h01=0x0050, text=» STR A2,A12 STORE TASK ID IN TCTAB«, t00=0x0036, t01=0x014a}
0x055c2…055f0 Head {h00=0x002a, h01=0x0050, text=» ADKL A12,2 NEXT FREEE ENTRY IN TCTAB «, t00=0x0036, t01=0x0174}
0x055f0…0560e Head {h00=0x001a, h01=0x0050, text=»REST20 RTN A14 RETURN «, t00=0x0037, t01=0x0012}
0x0560e…0563e Head {h00=0x002c, h01=0x0050, text=»REST30 CWR* A2,A3 CHECK IF SAME TASK ID «, t00=0x0037, t01=0x0030}
0x0563e…05662 Head {h00=0x0020, h01=0x0050, text=» RB(NE) REST10 NOT THE SAME «, t00=0x0037, t01=0x0060}
0x05662…05688 Head {h00=0x0022, h01=0x0050, text=» RB REST20 COINCIDENCE: RETURN«, t00=0x0037, t01=0x0084}
0x05688…05694 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x00aa}
0x05694…056a6 Head {h00=0x000e, h01=0x0050, text=» IFF FM=0 «, t00=0x0037, t01=0x00b6}
0x056a6…056b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x00c8}
0x056b4…056f0 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0037, t01=0x00d6}
0x056f0…0572c Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0037, t01=0x0112}
0x0572c…05768 Head {h00=0x0038, h01=0x0050, text=»* B:FWT - BUILD FILE WORK TABLE * «, t00=0x0037, t01=0x014e}
0x05768…057a4 Head {h00=0x0038, h01=0x0050, text=»* ============================= * «, t00=0x0037, t01=0x018a}
0x057a4…057e0 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0038, t01=0x0036}
0x057e0…0581c Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0038, t01=0x0072}
0x0581c…05858 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0038, t01=0x00ae}
0x05858…05894 Head {h00=0x0038, h01=0x0050, text=»* REFERENCED IN: CONMON * «, t00=0x0038, t01=0x00ea}
0x05894…058d0 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0038, t01=0x0126}
0x058d0…0590c Head {h00=0x0038, h01=0x0050, text=»* ENTRY: SCTNFT - NUMBER OF FM-FILES PER TASK * «, t00=0x0038, t01=0x0162}
0x0590c…05948 Head {h00=0x0038, h01=0x0050, text=»* SCTNOF - NUMBER OF GENERAL FM-FILES * «, t00=0x0039, t01=0x000e}
0x05948…05984 Head {h00=0x0038, h01=0x0050, text=»* SCTFWL - FILE WORK TABLE LENGTH IN * «, t00=0x0039, t01=0x004a}
0x05984…059c0 Head {h00=0x0038, h01=0x0050, text=»* BYTES * «, t00=0x0039, t01=0x0086}
0x059c0…059fc Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0039, t01=0x00c2}
0x059fc…05a38 Head {h00=0x0038, h01=0x0050, text=»* EXIT: SCTFWT - ADDRESS TO FIRST FWT * «, t00=0x0039, t01=0x00fe}
0x05a38…05a74 Head {h00=0x0038, h01=0x0050, text=»* SCTNOF - TOTAL NUMBER OF FM-FILES * «, t00=0x0039, t01=0x013a}
0x05a74…05ab0 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x0039, t01=0x0176}
0x05ab0…05aec Head {h00=0x0038, h01=0x0050, text=»* WORK REGISTERS: A2,A3 * «, t00=0x003a, t01=0x0022}
0x05aec…05b28 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003a, t01=0x005e}
0x05b28…05b64 Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINES: ERROR,MULT * «, t00=0x003a, t01=0x009a}
0x05b64…05ba0 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003a, t01=0x00d6}
0x05ba0…05bdc Head {h00=0x0038, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: * «, t00=0x003a, t01=0x0112}
0x05bdc…05c18 Head {h00=0x0038, h01=0x0050, text=»* THIS SUBROUTINE RESERVES MEMORY AREA FOR * «, t00=0x003a, t01=0x014e}
0x05c18…05c54 Head {h00=0x0038, h01=0x0050, text=»* FILE WORK TABLES. * «, t00=0x003a, t01=0x018a}
0x05c54…05c90 Head {h00=0x0038, h01=0x0050, text=»* SIZE OF THE AREA RESERVED IS GIVEN BY THE * «, t00=0x003b, t01=0x0036}
0x05c90…05ccc Head {h00=0x0038, h01=0x0050, text=»* FORMULA: A=L*(G+N*T) * «, t00=0x003b, t01=0x0072}
0x05ccc…05d08 Head {h00=0x0038, h01=0x0050, text=»* WHERE A=AREA SIZE IN BYTES * «, t00=0x003b, t01=0x00ae}
0x05d08…05d44 Head {h00=0x0038, h01=0x0050, text=»* L= FWT LENGTH IN BYTES * «, t00=0x003b, t01=0x00ea}
0x05d44…05d80 Head {h00=0x0038, h01=0x0050, text=»* G=NUMBER OF GENERAL FM-FILES * «, t00=0x003b, t01=0x0126}
0x05d80…05dbc Head {h00=0x0038, h01=0x0050, text=»* T=NUMBER OF FM-FILES PER TASK * «, t00=0x003b, t01=0x0162}
0x05dbc…05df8 Head {h00=0x0038, h01=0x0050, text=»* N=NUMBER OF USER TASKS * «, t00=0x003c, t01=0x000e}
0x05df8…05e34 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x003c, t01=0x004a}
0x05e34…05e70 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x003c, t01=0x0086}
0x05e70…05e7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x00c2}
0x05e7e…05e92 Head {h00=0x0010, h01=0x0050, text=»B:FWT EQU * «, t00=0x003c, t01=0x00d0}
0x05e92…05ebc Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET LENGTH OF TCTAB«, t00=0x003c, t01=0x00e4}
0x05ebc…05ee6 Head {h00=0x0026, h01=0x0050, text=» AD A2,SCTTCT COMPUTE END OF TCTAB«, t00=0x003c, t01=0x010e}
0x05ee6…05f16 Head {h00=0x002c, h01=0x0050, text=» SU A2,STKEND+CUTENT LENGTH OF USER PART«, t00=0x003c, t01=0x0138}
0x05f16…05f3c Head {h00=0x0022, h01=0x0050, text=» SRL A2,1 NUMBER OF USER TASKS«, t00=0x003c, t01=0x0168}
0x05f3c…05f72 Head {h00=0x0032, h01=0x0050, text=» LD A3,SCTNFT GET NUMBER OF FM-FILES PER TASK «, t00=0x003c, t01=0x018e}
0x05f72…05f8e Head {h00=0x0018, h01=0x0050, text=» CALL MULT MULTIPLY «, t00=0x003d, t01=0x0034}
0x05f8e…05fc2 Head {h00=0x0030, h01=0x0050, text=» AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES«, t00=0x003d, t01=0x0050}
0x05fc2…05ff6 Head {h00=0x0030, h01=0x0050, text=» ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES«, t00=0x003d, t01=0x0084}
0x05ff6…06026 Head {h00=0x002c, h01=0x0050, text=» LD A2,SCTFWL GET FILE WORK TABLE LENGTH«, t00=0x003d, t01=0x00b8}
0x06026…06042 Head {h00=0x0018, h01=0x0050, text=» CALL MULT MULTIPLY «, t00=0x003d, t01=0x00e8}
0x06042…06072 Head {h00=0x002c, h01=0x0050, text=» SRL A3,1 NUMBER OF WORDS TO BE RESERVED«, t00=0x003d, t01=0x0104}
0x06072…06096 Head {h00=0x0020, h01=0x0050, text=» ADK A3,0 ANY FWT:S AT ALL? «, t00=0x003d, t01=0x0134}
0x06096…060ae Head {h00=0x0014, h01=0x0050, text=» RF(Z) FWT70 NO!«, t00=0x003d, t01=0x0158}
0x060ae…060e6 Head {h00=0x0034, h01=0x0050, text=» ST A3,STKEND+FWTSIZ SAVE FWT AREA SIZE IN WORDS«, t00=0x003d, t01=0x0170}
0x060e6…06112 Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA GET START OF FREE AREA«, t00=0x003e, t01=0x0018}
0x06112…06142 Head {h00=0x002c, h01=0x0050, text=» ST A2,SCTFWT STORE ADDRESS TO FIRST FWT«, t00=0x003e, t01=0x0044}
0x06142…06176 Head {h00=0x0030, h01=0x0050, text=» ST A2,STKEND+FWTSTA SAVE START OF FWT AREA «, t00=0x003e, t01=0x0074}
0x06176…061aa Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x003e, t01=0x00a8}
0x061aa…061dc Head {h00=0x002e, h01=0x0050, text=»FWT50 CW A2,STKEND+LIMIT MEMORY OVERFLOW? «, t00=0x003e, t01=0x00dc}
0x061dc…061fa Head {h00=0x001a, h01=0x0050, text=» RF(NE) FWT60 NOT YET!«, t00=0x003e, t01=0x010e}
0x061fa…06228 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x003e, t01=0x012c}
0x06228…0623c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x003e, t01=0x015a}
0x0623c…06260 Head {h00=0x0020, h01=0x0050, text=»FWT60 CMR A2 CLEAR FWT AREA «, t00=0x003e, t01=0x016e}
0x06260…06286 (63, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 RESERVE ANOTHER WORD«, t00=0x003f, t01=0x0004}
0x06286…062ae Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 DECREMENT WORD COUNTER«, t00=0x003f, t01=0x002a}
0x062ae…062dc Head {h00=0x002a, h01=0x0050, text=» RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW«, t00=0x003f, t01=0x0052}
0x062dc…0630c Head {h00=0x002c, h01=0x0050, text=» ST A2,SCTSFA UPDATE START OF FREE AREA «, t00=0x003f, t01=0x0080}
0x0630c…0631e Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x003f, t01=0x00b0}
0x0631e…06352 Head {h00=0x0030, h01=0x0050, text=» ST A2,STKEND+INTTAB SAVE ADDRESS TO T.I.T. «, t00=0x003f, t01=0x00c2}
0x06352…06368 Head {h00=0x0012, h01=0x0050, text=»FWT70 RTN A14 «, t00=0x003f, t01=0x00f6}
0x06368…06374 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x010c}
0x06374…06382 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x003f, t01=0x0118}
0x06382…063b0 Head {h00=0x002a, h01=0x0026, text=»**************************************«, t00=0x003f, t01=0x0126}
0x063b0…063de Head {h00=0x002a, h01=0x0026, text=»* MONBLK - GENERATE MONITOR BLOCKS *«, t00=0x003f, t01=0x0154}
0x063de…0640c Head {h00=0x002a, h01=0x0026, text=»**************************************«, t00=0x003f, t01=0x0182}
0x0640c…06416 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0040, t01=0x0020}
0x06416…06442 Head {h00=0x0028, h01=0x0024, text=»* NUMBER OF BLOCKS TO BE GENERATED:«, t00=0x0040, t01=0x002a}
0x06442…0646e Head {h00=0x0028, h01=0x0050, text=»* 20+N*(NUMBER OF TASKS IN SYSTEM) «, t00=0x0040, t01=0x0056}
0x0646e…06496 Head {h00=0x0024, h01=0x0050, text=»* WHERE N IS A SYSTEM CONSTANT «, t00=0x0040, t01=0x0082}
0x06496…064be Head {h00=0x0024, h01=0x0050, text=»* DEFINED AT SYSTEM GENERATION «, t00=0x0040, t01=0x00aa}
0x064be…064c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d2}
0x064c8…064d2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0040, t01=0x00dc}
0x064d2…064f2 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: SYSLOD«, t00=0x0040, t01=0x00e6}
0x064f2…064fc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0040, t01=0x0106}
0x064fc…0652a Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x0040, t01=0x0110}
0x0652a…06556 Head {h00=0x0028, h01=0x0024, text=»* SCTEFA - END OF FREE AREA«, t00=0x0040, t01=0x013e}
0x06556…06560 Head {h00=0x0006, h01=0x000b, text=»* «, t00=0x0040, t01=0x016a}
0x06560…06592 Head {h00=0x002e, h01=0x002a, text=»* EXIT: BLOCKS - POINTER TO FIRST BLOCK«, t00=0x0040, t01=0x0174}
0x06592…0659c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0041, t01=0x0016}
0x0659c…065c4 Head {h00=0x0024, h01=0x0020, text=»* WORK REGISTERS: A1,A2,A7,A12«, t00=0x0041, t01=0x0020}
0x065c4…065ce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0041, t01=0x0048}
0x065ce…065ee Head {h00=0x001c, h01=0x0017, text=»* SUBROUTINES: BLKGEN «, t00=0x0041, t01=0x0052}
0x065ee…065f8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0041, t01=0x0072}
0x065f8…06606 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0041, t01=0x007c}
0x06606…0661a Head {h00=0x0010, h01=0x0050, text=»MONBLK EQU *«, t00=0x0041, t01=0x008a}
0x0661a…0662c Head {h00=0x000e, h01=0x0009, text=» LDK A1,0 «, t00=0x0041, t01=0x009e}
0x0662c…06656 Head {h00=0x0026, h01=0x0021, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x0041, t01=0x00b0}
0x06656…06688 Head {h00=0x002e, h01=0x0050, text=» ST A12,FREQUE SAVE POINTER TO FIRST BLOCK«, t00=0x0041, t01=0x00da}
0x06688…06692 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0041, t01=0x010c}
0x06692…066ba Head {h00=0x0024, h01=0x0020, text=»* GET NUMBER OF TASKS IN SYSTEM«, t00=0x0041, t01=0x0116}
0x066ba…066c4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0041, t01=0x013e}
0x066c4…066f0 Head {h00=0x0028, h01=0x0050, text=» LD* A7,SCTTCT GET LENGTH OF TC:TAB «, t00=0x0041, t01=0x0148}
0x066f0…066fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0174}
0x066fa…0672e Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF BLOCKS PER TASK TO GENERATE«, t00=0x0041, t01=0x017e}
0x0672e…06738 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0022}
0x06738…0674e Head {h00=0x0012, h01=0x0050, text=» LD A2,SCTBLK «, t00=0x0042, t01=0x002c}
0x0674e…06782 Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0042, t01=0x0042}
0x06782…06796 Head {h00=0x0010, h01=0x0050, text=»MON:10 EQU *«, t00=0x0042, t01=0x0076}
0x06796…067b4 Head {h00=0x001a, h01=0x0016, text=» SUK A7,2 MOORE TASKS?«, t00=0x0042, t01=0x008a}
0x067b4…067ce Head {h00=0x0016, h01=0x0011, text=» RF(Z) MON:20 NO «, t00=0x0042, t01=0x00a8}
0x067ce…067e2 Head {h00=0x0010, h01=0x0050, text=» CALL BLKGEN«, t00=0x0042, t01=0x00c2}
0x067e2…067f4 Head {h00=0x000e, h01=0x000a, text=» RB MON:10«, t00=0x0042, t01=0x00d6}
0x067f4…06808 Head {h00=0x0010, h01=0x0050, text=»MON:20 EQU *«, t00=0x0042, t01=0x00e8}
0x06808…06812 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0042, t01=0x00fc}
0x06812…0683a Head {h00=0x0024, h01=0x0050, text=»* GENERATE EXTRA MONITOR BLOCKS«, t00=0x0042, t01=0x0106}
0x0683a…06844 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x012e}
0x06844…06856 Head {h00=0x000e, h01=0x0050, text=» LDK A2,19«, t00=0x0042, t01=0x0138}
0x06856…0686c Head {h00=0x0012, h01=0x0050, text=» ADK A2,NOEXMB«, t00=0x0042, t01=0x014a}
0x0686c…06882 Head {h00=0x0012, h01=0x0050, text=» AD A2,SCTNOF «, t00=0x0042, t01=0x0160}
0x06882…06898 Head {h00=0x0012, h01=0x0050, text=» AD A2,SCTNOF «, t00=0x0042, t01=0x0176}
0x06898…068ac Head {h00=0x0010, h01=0x0050, text=» CALL BLKGEN«, t00=0x0042, t01=0x018c}
0x068ac…068b6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0043, t01=0x0010}
0x068b6…068d4 Head {h00=0x001a, h01=0x0015, text=»* GENERATE END BLOCK «, t00=0x0043, t01=0x001a}
0x068d4…068de Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0043, t01=0x0038}
0x068de…068f2 Head {h00=0x0010, h01=0x000b, text=» STR A1,A12 «, t00=0x0043, t01=0x0042}
0x068f2…06906 Head {h00=0x0010, h01=0x000c, text=» ST A1,2,A12«, t00=0x0043, t01=0x0056}
0x06906…0691a Head {h00=0x0010, h01=0x000c, text=» ST A1,4,A12«, t00=0x0043, t01=0x006a}
0x0691a…06924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x007e}
0x06924…0696e Head {h00=0x0046, h01=0x0050, text=»* CHECK IF BUFFER GREATER THAN 2 WORDS RESERVED FOR SYSLOD PART A«, t00=0x0043, t01=0x0088}
0x0696e…069a2 Head {h00=0x0030, h01=0x0050, text=»* IF NOT - USE LAST MONITOR BLOCK AS BUFFER«, t00=0x0043, t01=0x00d2}
0x069a2…069ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0106}
0x069ac…069d8 Head {h00=0x0028, h01=0x0050, text=» LD A1,STKCOM+BUFSIZ GET BUFFER SIZE«, t00=0x0043, t01=0x0110}
0x069d8…069ee Head {h00=0x0012, h01=0x0050, text=» CWK A1,4 >4? «, t00=0x0043, t01=0x013c}
0x069ee…06a16 Head {h00=0x0024, h01=0x0050, text=» RF(NL) MON:30 NOT LESS ANYWAY! «, t00=0x0043, t01=0x0152}
0x06a16…06a34 Head {h00=0x001a, h01=0x0050, text=» LDK A1,4 BUFFER SIZE«, t00=0x0043, t01=0x017a}
0x06a34…06a68 Head {h00=0x0030, h01=0x0050, text=» ST A1,STKCOM+BUFSIZ UPDATE MAX BUFFER SIZE «, t00=0x0044, t01=0x0008}
0x06a68…06a7c Head {h00=0x0010, h01=0x0050, text=» ADKL A12,2 «, t00=0x0044, t01=0x003c}
0x06a7c…06ab0 Head {h00=0x0030, h01=0x0050, text=» ST A12,STKCOM+SYSBUF UPDATE BUFFER ADDRESS «, t00=0x0044, t01=0x0050}
0x06ab0…06ac4 Head {h00=0x0010, h01=0x0050, text=»MON:30 EQU *«, t00=0x0044, t01=0x0084}
0x06ac4…06ad8 Head {h00=0x0010, h01=0x0050, text=» ADKL A12,6 «, t00=0x0044, t01=0x0098}
0x06ad8…06ae0 Head {h00=0x0004, h01=0x0050, t00=0x0044, t01=0x00ac}
0x06ae0…06b0e Head {h00=0x002a, h01=0x0026, text=» ST A12,SCTSFA UPDATE END OF FREE AREA«, t00=0x0044, t01=0x00b4}
0x06b0e…06b1e Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0044, t01=0x00e2}
0x06b1e…06b2c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0044, t01=0x00f2}
0x06b2c…06b5a Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x0044, t01=0x0100}
0x06b5a…06b88 Head {h00=0x002a, h01=0x0025, text=»* BLKGEN - GENERATE MONITOR BLOCK * «, t00=0x0044, t01=0x012e}
0x06b88…06bb6 Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x0044, t01=0x015c}
0x06bb6…06bc0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0044, t01=0x018a}
0x06bc0…06be2 (69, 0, 400) Head {h00=0x001e, h01=0x0019, text=»* REFERENCED IN: MONBLK «, t00=0x0045, t01=0x0004}
0x06be2…06bec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0045, t01=0x0026}
0x06bec…06c04 Head {h00=0x0014, h01=0x000f, text=»* ENTRY: A1=0 «, t00=0x0045, t01=0x0030}
0x06c04…06c3c Head {h00=0x0034, h01=0x0030, text=»* A2 - NUMBER OF BLOCKS TO BE GENERATED«, t00=0x0045, t01=0x0048}
0x06c3c…06c64 Head {h00=0x0024, h01=0x001f, text=»* A12 - NEXT FREE ENTRY «, t00=0x0045, t01=0x0080}
0x06c64…06c6e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0045, t01=0x00a8}
0x06c6e…06c84 Head {h00=0x0012, h01=0x000e, text=»* EXIT: A1=0«, t00=0x0045, t01=0x00b2}
0x06c84…06caa Head {h00=0x0022, h01=0x001e, text=»* A12 - NEXT FREE ENTRY«, t00=0x0045, t01=0x00c8}
0x06caa…06cb4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0045, t01=0x00ee}
0x06cb4…06cd4 Head {h00=0x001c, h01=0x0050, text=»* WORK REGISTES: A3,A4 «, t00=0x0045, t01=0x00f8}
0x06cd4…06cde Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0045, t01=0x0118}
0x06cde…06cf6 Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x0045, t01=0x0122}
0x06cf6…06d00 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0045, t01=0x013a}
0x06d00…06d34 Head {h00=0x0030, h01=0x002c, text=»* MONITOR BLOCK LAYOUT«, t00=0x0045, t01=0x0144}
0x06d34…06d68 Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0045, t01=0x0178}
0x06d68…06d9c Head {h00=0x0030, h01=0x002c, text=»* I DATA *+6 I«, t00=0x0046, t01=0x001c}
0x06d9c…06dd0 Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0046, t01=0x0050}
0x06dd0…06e04 Head {h00=0x0030, h01=0x002c, text=»* I DATA 0 I«, t00=0x0046, t01=0x0084}
0x06e04…06e38 Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0046, t01=0x00b8}
0x06e38…06e6c Head {h00=0x0030, h01=0x002c, text=»* I DATA 0 I«, t00=0x0046, t01=0x00ec}
0x06e6c…06ea0 Head {h00=0x0030, h01=0x002c, text=»* --------------------«, t00=0x0046, t01=0x0120}
0x06ea0…06eaa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0046, t01=0x0154}
0x06eaa…06eb8 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0046, t01=0x015e}
0x06eb8…06ecc Head {h00=0x0010, h01=0x0050, text=»BLKGEN EQU *«, t00=0x0046, t01=0x016c}
0x06ecc…06ee0 Head {h00=0x0010, h01=0x000c, text=» LDR A3,A2 «, t00=0x0046, t01=0x0180}
0x06ee0…06ef4 (71, 0, 400) Head {h00=0x0010, h01=0x0050, text=»BLK:10 EQU *«, t00=0x0047, t01=0x0004}
0x06ef4…06f08 Head {h00=0x0010, h01=0x000c, text=» RF(Z) BLKEX«, t00=0x0047, t01=0x0018}
0x06f08…06f30 Head {h00=0x0024, h01=0x0050, text=» LDK A4,3 NUMBER OF WORDS/BLOCK «, t00=0x0047, t01=0x002c}
0x06f30…06f64 Head {h00=0x0030, h01=0x0050, text=»BLK:20 CW A12,STKEND+LIMIT MEMORY OVERFLOW? «, t00=0x0047, t01=0x0054}
0x06f64…06f84 Head {h00=0x001c, h01=0x0050, text=» RF(NE) BLK:30 NOT YET! «, t00=0x0047, t01=0x0088}
0x06f84…06fb2 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x0047, t01=0x00a8}
0x06fb2…06fc6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0047, t01=0x00d6}
0x06fc6…06ff4 Head {h00=0x002a, h01=0x0050, text=»BLK:30 ADKL A12,2 RESERVE ANOTHER WORD«, t00=0x0047, t01=0x00ea}
0x06ff4…07018 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 MORE WORDS WANTED?«, t00=0x0047, t01=0x0118}
0x07018…07032 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) BLK:20 YES«, t00=0x0047, t01=0x013c}
0x07032…07048 Head {h00=0x0012, h01=0x000e, text=» ST A12,-6,A12«, t00=0x0047, t01=0x0156}
0x07048…0705e Head {h00=0x0012, h01=0x0050, text=» ST A1,-4,A12 «, t00=0x0047, t01=0x016c}
0x0705e…07074 Head {h00=0x0012, h01=0x000d, text=» ST A1,-2,A12 «, t00=0x0047, t01=0x0182}
0x07074…07086 Head {h00=0x000e, h01=0x0009, text=» SUK A3,1 «, t00=0x0048, t01=0x0008}
0x07086…07098 Head {h00=0x000e, h01=0x000a, text=» RB BLK:10«, t00=0x0048, t01=0x001a}
0x07098…070ac Head {h00=0x0010, h01=0x0050, text=»BLKEX EQU * «, t00=0x0048, t01=0x002c}
0x070ac…070bc Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0048, t01=0x0040}
0x070bc…070ce Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x0048, t01=0x0050}
0x070ce…070dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0062}
0x070dc…07128 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0048, t01=0x0070}
0x07128…07174 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0048, t01=0x00bc}
0x07174…071c0 Head {h00=0x0048, h01=0x0050, text=»* B:MXTT - BUILD TTABS FOR MONITOR EXTENT TASKS * «, t00=0x0048, t01=0x0108}
0x071c0…0720c Head {h00=0x0048, h01=0x0050, text=»* ============================================= * «, t00=0x0048, t01=0x0154}
0x0720c…07258 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0049, t01=0x0010}
0x07258…072a4 Head {h00=0x0048, h01=0x0050, text=»* REFERENCED IN: SYSLDM * «, t00=0x0049, t01=0x005c}
0x072a4…072f0 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0049, t01=0x00a8}
0x072f0…0733c Head {h00=0x0048, h01=0x0050, text=»* ENTRY: * «, t00=0x0049, t01=0x00f4}
0x0733c…07388 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0049, t01=0x0140}
0x07388…073d4 Head {h00=0x0048, h01=0x0050, text=»* EXIT: * «, t00=0x0049, t01=0x018c}
0x073d4…07420 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004a, t01=0x0048}
0x07420…0746c Head {h00=0x0048, h01=0x0050, text=»* WORK REGISTERS: A4 * «, t00=0x004a, t01=0x0094}
0x0746c…074b8 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004a, t01=0x00e0}
0x074b8…07504 Head {h00=0x0048, h01=0x0050, text=»* SUBROUTINES: MX:TDB,MXTTAB * «, t00=0x004a, t01=0x012c}
0x07504…07550 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x004a, t01=0x0178}
0x07550…0759c Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x004b, t01=0x0034}
0x0759c…075b0 Head {h00=0x0010, h01=0x0050, text=»B:MXTT EQU *«, t00=0x004b, t01=0x0080}
0x075b0…075dc Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x004b, t01=0x0094}
0x075dc…075fc Head {h00=0x001c, h01=0x0050, text=» RF(Z) BMX99 NOT PRESENT«, t00=0x004b, t01=0x00c0}
0x075fc…07630 Head {h00=0x0030, h01=0x0050, text=» LDK A4,2 DISPLACEMENT TO FIRST EXTENT TASK «, t00=0x004b, t01=0x00e0}
0x07630…07650 Head {h00=0x001c, h01=0x0050, text=» ST* A4,SCTTCT IN TCTAB «, t00=0x004b, t01=0x0114}
0x07650…07682 Head {h00=0x002e, h01=0x0050, text=» CALL MX:TDB FIND FIRST MONITOR EXTENT TDB«, t00=0x004b, t01=0x0134}
0x07682…076ba Head {h00=0x0034, h01=0x0050, text=» LD A4,SCTMOX GET ADDRESS TO START-ADDRESS TABLE«, t00=0x004b, t01=0x0166}
0x076ba…076e0 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) BMX05 ALREADY DEFINED «, t00=0x004c, t01=0x000e}
0x076e0…07708 Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTSFA START OF FREE AREA«, t00=0x004c, t01=0x0034}
0x07708…0773c Head {h00=0x0030, h01=0x0050, text=» ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE«, t00=0x004c, t01=0x005c}
0x0773c…07774 Head {h00=0x0034, h01=0x0050, text=» LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE «, t00=0x004c, t01=0x0090}
0x07774…0779e Head {h00=0x0026, h01=0x0050, text=» ST* A4,SCTMOX STORE IN FIRST WORD«, t00=0x004c, t01=0x00c8}
0x0779e…077c6 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 RESET TASK ID COUNTER «, t00=0x004c, t01=0x00f2}
0x077c6…077ec Head {h00=0x0022, h01=0x0050, text=» LDR A2,A1 GET POINTER TO TDB «, t00=0x004c, t01=0x011a}
0x077ec…07814 Head {h00=0x0024, h01=0x0050, text=» LDR A3,A7 GET NUMBER OF EXTENTS«, t00=0x004c, t01=0x0140}
0x07814…07826 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x004c, t01=0x0168}
0x07826…0784a Head {h00=0x0020, h01=0x0050, text=»BMX01 SUK A3,1 MORE EXTENTS?«, t00=0x004c, t01=0x017a}
0x0784a…07862 Head {h00=0x0014, h01=0x0050, text=» RF(N) BMX03 NO «, t00=0x004d, t01=0x000e}
0x07862…07890 Head {h00=0x002a, h01=0x0050, text=» ADK A2,2 ADDRESS NUMBER OF TASK ID:S «, t00=0x004d, t01=0x0026}
0x07890…078bc Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A2 GET NUMBER OF TASK ID:S «, t00=0x004d, t01=0x0054}
0x078bc…078e8 Head {h00=0x0028, h01=0x0050, text=» ADR* A4,A2 ADD NUMBER OF TASK ID:S «, t00=0x004d, t01=0x0080}
0x078e8…0790e Head {h00=0x0022, h01=0x0050, text=»BMX02 SUK A6,1 MORE TASK ID:S?«, t00=0x004d, t01=0x00ac}
0x0790e…07926 Head {h00=0x0014, h01=0x0050, text=» RB(N) BMX01 NO «, t00=0x004d, t01=0x00d2}
0x07926…0794c Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 ADDRESS NEXT TASK ID«, t00=0x004d, t01=0x00ea}
0x0794c…0795e Head {h00=0x000e, h01=0x0050, text=» RB BMX02 «, t00=0x004d, t01=0x0110}
0x0795e…07984 Head {h00=0x0022, h01=0x0050, text=»BMX03 SLL A4,2 INCLUDE LENGTH «, t00=0x004d, t01=0x0122}
0x07984…079bc Head {h00=0x0034, h01=0x0050, text=» ADK A4,2 INCLUDE LENGTH OF START-ADDRESS TABLE «, t00=0x004d, t01=0x0148}
0x079bc…079ec Head {h00=0x002c, h01=0x0050, text=» AD A4,SCTSFA END OF START-ADDRESS TABLE«, t00=0x004d, t01=0x0180}
0x079ec…07a1c Head {h00=0x002c, h01=0x0050, text=» ST A4,SCTSFA UPDATE START OF FREE AREA «, t00=0x004e, t01=0x0020}
0x07a1c…07a3e Head {h00=0x001e, h01=0x0050, text=» LDR A11,A4 GET TABLE END «, t00=0x004e, t01=0x0050}
0x07a3e…07a64 Head {h00=0x0022, h01=0x0050, text=» LDR A9,P GET CURRENT LOCATION«, t00=0x004e, t01=0x0072}
0x07a64…07a8a Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x004e, t01=0x0098}
0x07a8a…07aa4 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BMXS05 OK «, t00=0x004e, t01=0x00be}
0x07aa4…07ad2 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x004e, t01=0x00d8}
0x07ad2…07ae6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004e, t01=0x0106}
0x07ae6…07b20 Head {h00=0x0036, h01=0x0050, text=»BMXS05 ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x004e, t01=0x011a}
0x07b20…07b36 Head {h00=0x0012, h01=0x0050, text=»BMX05 SUK A1,2«, t00=0x004e, t01=0x0154}
0x07b36…07b68 Head {h00=0x002e, h01=0x0050, text=»BMX10 SUK A7,1 DECREMENT NUMBER OF EXTENTS«, t00=0x004e, t01=0x016a}
0x07b68…07b84 Head {h00=0x0018, h01=0x0050, text=» RF(N) BMX99 NO MORE«, t00=0x004f, t01=0x000c}
0x07b84…07bb2 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x004f, t01=0x0028}
0x07bb2…07bec Head {h00=0x0036, h01=0x0050, text=» ST A12,STKEND+EXCTAB SAVE ADDRESS TO CONTR. BLOCK«, t00=0x004f, t01=0x0056}
0x07bec…07c24 Head {h00=0x0034, h01=0x0050, text=» ADKL A12,ACBLEN RESERVE AREA FOR CONTROL BLOCK «, t00=0x004f, t01=0x0090}
0x07c24…07c54 Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x004f, t01=0x00c8}
0x07c54…07c7a Head {h00=0x0022, h01=0x0050, text=» ADK A1,2 NUMBER OF TASK ID:S «, t00=0x004f, t01=0x00f8}
0x07c7a…07ca6 Head {h00=0x0028, h01=0x0050, text=» LDR* A4,A1 GET NUMBER OF TASK ID:S «, t00=0x004f, t01=0x011e}
0x07ca6…07cda Head {h00=0x0030, h01=0x0050, text=»BMX20 SUK A4,1 DECREMENT NUMBER OF TASK ID:S«, t00=0x004f, t01=0x014a}
0x07cda…07cf6 Head {h00=0x0018, h01=0x0050, text=» RB(N) BMX10 NO MORE«, t00=0x004f, t01=0x017e}
0x07cf6…07d14 Head {h00=0x001a, h01=0x0050, text=» ADK A1,2 NEXT TASK ID«, t00=0x0050, t01=0x000a}
0x07d14…07d28 Head {h00=0x0010, h01=0x0050, text=» CALL MXTTAB«, t00=0x0050, t01=0x0028}
0x07d28…07d3a Head {h00=0x000e, h01=0x0050, text=» RB BMX20 «, t00=0x0050, t01=0x003c}
0x07d3a…07d56 Head {h00=0x0018, h01=0x0050, text=»BMX99 RTN A14 RETURN«, t00=0x0050, t01=0x004e}
0x07d56…07d64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x006a}
0x07d64…07db0 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0050, t01=0x0078}
0x07db0…07dfc Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0050, t01=0x00c4}
0x07dfc…07e48 Head {h00=0x0048, h01=0x0050, text=»* MXTTAB - GENERATE TTAB FOR MONITOR EXTENT TASK *«, t00=0x0050, t01=0x0110}
0x07e48…07e94 Head {h00=0x0048, h01=0x0050, text=»* ============================================== *«, t00=0x0050, t01=0x015c}
0x07e94…07ee0 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0051, t01=0x0018}
0x07ee0…07f2c Head {h00=0x0048, h01=0x0050, text=»* ENTRY: A1 -POINTER TO TASK ID IN MXSTAB *«, t00=0x0051, t01=0x0064}
0x07f2c…07f78 Head {h00=0x0048, h01=0x0050, text=»* A5 - POINTER TO MONITOR EXTENT BLOCK *«, t00=0x0051, t01=0x00b0}
0x07f78…07fc4 Head {h00=0x0048, h01=0x0050, text=»* A12 - POINTER TO START OF FREE AREA *«, t00=0x0051, t01=0x00fc}
0x07fc4…08010 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0051, t01=0x0148}
0x08010…0805c (82, 0, 400) Head {h00=0x0048, h01=0x0050, text=»* EXIT: A1 - POINTER TO TASK ID IN MXSTAB *«, t00=0x0052, t01=0x0004}
0x0805c…080a8 Head {h00=0x0048, h01=0x0050, text=»* A5 - POINTER TO MONITOR EXTENT BLOCK *«, t00=0x0052, t01=0x0050}
0x080a8…080f4 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0052, t01=0x009c}
0x080f4…08140 Head {h00=0x0048, h01=0x0050, text=»* WORK REGISTER: A2 *«, t00=0x0052, t01=0x00e8}
0x08140…0818c Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0052, t01=0x0134}
0x0818c…081d8 Head {h00=0x0048, h01=0x0050, text=»* SUBROUTINES: IMXTT,STRMOX,INBIMA *«, t00=0x0052, t01=0x0180}
0x081d8…08224 Head {h00=0x0048, h01=0x0050, text=»* *«, t00=0x0053, t01=0x003c}
0x08224…08270 Head {h00=0x0048, h01=0x0050, text=»********************************************************************«, t00=0x0053, t01=0x0088}
0x08270…0827e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x00d4}
0x0827e…08292 Head {h00=0x0010, h01=0x0050, text=»MXTTAB EQU *«, t00=0x0053, t01=0x00e2}
0x08292…082c2 Head {h00=0x002c, h01=0x0050, text=» MSR 4,A15 SAVE REGISTER A1-A4 ON STACK «, t00=0x0053, t01=0x00f6}
0x082c2…082f0 Head {h00=0x002a, h01=0x0050, text=» CALL BMXSTT BUILD MONITOR EXTENT TTAB«, t00=0x0053, t01=0x0126}
0x082f0…08312 Head {h00=0x001e, h01=0x0050, text=» CALL IMXTT INIT MMU TABLE«, t00=0x0053, t01=0x0154}
0x08312…08332 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x0053, t01=0x0176}
0x08332…08356 Head {h00=0x0020, h01=0x0050, text=» CALL STRMOX STORE IN MOXTAB«, t00=0x0054, t01=0x0008}
0x08356…08380 Head {h00=0x0026, h01=0x0050, text=» LD A2,MX:STA,A5 GET START ADDRESS«, t00=0x0054, t01=0x002c}
0x08380…083b8 Head {h00=0x0034, h01=0x0050, text=» LD A3,STKEND+EXCTAB GET CURRENT EXTENT BLOCK =6«, t00=0x0054, t01=0x0056}
0x083b8…083e8 Head {h00=0x002c, h01=0x0050, text=» ST A2,APLSTA,A3 STORE START ADDRESS =6 «, t00=0x0054, t01=0x008e}
0x083e8…0840c Head {h00=0x0020, h01=0x0050, text=» CALL STRMOX STORE IN MOXTAB«, t00=0x0054, t01=0x00be}
0x0840c…08432 Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A5 GET EXTENT ADDRESS«, t00=0x0054, t01=0x00e2}
0x08432…08458 Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/3FF GET DISPLACEMENT«, t00=0x0054, t01=0x0108}
0x08458…0847a Head {h00=0x001e, h01=0x0050, text=» SLL A2,2 MAKE IT 12 BITS «, t00=0x0054, t01=0x012e}
0x0847a…084b6 Head {h00=0x0038, h01=0x0050, text=» ST A2,TTB:CB,A12 STORE CURRENT SEGMENT BASE ADDRESS«, t00=0x0054, t01=0x0150}
0x084b6…084c8 Head {h00=0x000e, h01=0x0050, text=» ADK A2,12«, t00=0x0054, t01=0x018c}
0x084c8…084fc Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:SA+26,A12 STORE IN A13 SAVE-AREA «, t00=0x0055, t01=0x000e}
0x084fc…0853a Head {h00=0x003a, h01=0x0050, text=» LD A3,STKEND+EXCTAB GET CURRENT EXTENT CONTROL BLOCK «, t00=0x0055, t01=0x0042}
0x0853a…08576 Head {h00=0x0038, h01=0x0050, text=» ST A2,APLLAC,A3 STORE LOGICAL ADDR. TO COMMON PART «, t00=0x0055, t01=0x0080}
0x08576…085a8 Head {h00=0x002e, h01=0x0050, text=» ST A2,APLREL,A3 STORE RELOCATION BASE =6 «, t00=0x0055, t01=0x00bc}
0x085a8…085d6 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,TTB:MT DISPL. TO COMMON PART «, t00=0x0055, t01=0x00ee}
0x085d6…0860c Head {h00=0x0032, h01=0x0050, text=» ST A2,APLMMC,A3 STORE IN EXTENT CONTROL BLOCK«, t00=0x0055, t01=0x011c}
0x0860c…08648 Head {h00=0x0038, h01=0x0050, text=» ST A3,TTB:AP,A12 STORE EXTENT CONTROL BLOCK ADDRESS«, t00=0x0055, t01=0x0152}
0x08648…0866e Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0055, t01=0x018e}
0x0866e…08686 Head {h00=0x0014, h01=0x0050, text=» ANK A2,/20 EMM?«, t00=0x0056, t01=0x0024}
0x08686…0869e Head {h00=0x0014, h01=0x0050, text=» RF(Z) MXTT20 NO«, t00=0x0056, t01=0x003c}
0x0869e…086c8 Head {h00=0x0026, h01=0x0050, text=» LD A2,MX:LEN,A5 GET EXTENT LENGTH«, t00=0x0056, t01=0x0054}
0x086c8…086e6 Head {h00=0x001a, h01=0x0050, text=» ST A2,MAPLEN,A13 SAVE«, t00=0x0056, t01=0x007e}
0x086e6…08710 Head {h00=0x0026, h01=0x0050, text=» ST A12,TTAB,A13 SAVE TTAB ADDRESS«, t00=0x0056, t01=0x009c}
0x08710…08732 Head {h00=0x001e, h01=0x0050, text=» CALL INBIMA INIT BIP MAP «, t00=0x0056, t01=0x00c6}
0x08732…0875c Head {h00=0x0026, h01=0x0050, text=»MXTT20 MLR 4,A15 RESTORE REGISTERS«, t00=0x0056, t01=0x00e8}
0x0875c…08774 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0056, t01=0x0112}
0x08774…08782 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x012a}
0x08782…087b8 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0056, t01=0x0138}
0x087b8…087ee Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0056, t01=0x016e}
0x087ee…08824 Head {h00=0x0032, h01=0x0050, text=»* STRMOX - STORE START ADDRRESS IN MOXTAB * «, t00=0x0057, t01=0x0014}
0x08824…0885a Head {h00=0x0032, h01=0x0050, text=»* ======================================= * «, t00=0x0057, t01=0x004a}
0x0885a…08890 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0057, t01=0x0080}
0x08890…088c6 Head {h00=0x0032, h01=0x0050, text=»* REFERENCED IN: MXTTAB * «, t00=0x0057, t01=0x00b6}
0x088c6…088fc Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0057, t01=0x00ec}
0x088fc…08932 Head {h00=0x0032, h01=0x0050, text=»* ENTRY: A2 - VALUE TO STORE * «, t00=0x0057, t01=0x0122}
0x08932…08968 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0057, t01=0x0158}
0x08968…0899e Head {h00=0x0032, h01=0x0050, text=»* EXIT: * «, t00=0x0057, t01=0x018e}
0x0899e…089d4 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0058, t01=0x0034}
0x089d4…08a0a Head {h00=0x0032, h01=0x0050, text=»* WORK REGISTERS: * «, t00=0x0058, t01=0x006a}
0x08a0a…08a40 Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0058, t01=0x00a0}
0x08a40…08a76 Head {h00=0x0032, h01=0x0050, text=»* SUBROUTINES: * «, t00=0x0058, t01=0x00d6}
0x08a76…08aac Head {h00=0x0032, h01=0x0050, text=»* * «, t00=0x0058, t01=0x010c}
0x08aac…08ae2 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0058, t01=0x0142}
0x08ae2…08af6 Head {h00=0x0010, h01=0x0050, text=»STRMOX EQU *«, t00=0x0058, t01=0x0178}
0x08af6…08b20 Head {h00=0x0026, h01=0x0050, text=» LD* A3,SCTMOX GET CURRENT LENGTH «, t00=0x0058, t01=0x018c}
0x08b20…08b50 Head {h00=0x002c, h01=0x0050, text=» AD A3,SCTMOX ADDRESS TO NEXT FREE ENTRY«, t00=0x0059, t01=0x0026}
0x08b50…08b76 Head {h00=0x0022, h01=0x0050, text=» STR A2,A3 STORE START ADDRESS«, t00=0x0059, t01=0x0056}
0x08b76…08b9a Head {h00=0x0020, h01=0x0050, text=» IM* SCTMOX INCREMENT LENGTH«, t00=0x0059, t01=0x007c}
0x08b9a…08bb4 Head {h00=0x0016, h01=0x0050, text=» IM* SCTMOX TWICE «, t00=0x0059, t01=0x00a0}
0x08bb4…08bcc Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0059, t01=0x00ba}
0x08bcc…08bda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x00d2}
0x08bda…08c16 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0059, t01=0x00e0}
0x08c16…08c52 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x0059, t01=0x011c}
0x08c52…08c8e Head {h00=0x0038, h01=0x0050, text=»* IMXTT - INIT MMU TABLE FOR MONITOR EXTENT TASK *«, t00=0x0059, t01=0x0158}
0x08c8e…08cca (90, 0, 400) Head {h00=0x0038, h01=0x0050, text=»* ============================================== *«, t00=0x005a, t01=0x0004}
0x08cca…08d06 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005a, t01=0x0040}
0x08d06…08d42 Head {h00=0x0038, h01=0x0050, text=»* REFERENCED IN: MXTTAB *«, t00=0x005a, t01=0x007c}
0x08d42…08d7e Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005a, t01=0x00b8}
0x08d7e…08dba Head {h00=0x0038, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PHYSICAL ADDRESS *«, t00=0x005a, t01=0x00f4}
0x08dba…08df6 Head {h00=0x0038, h01=0x0050, text=»* A12 - TTAB ENTRY POINTER *«, t00=0x005a, t01=0x0130}
0x08df6…08e32 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005a, t01=0x016c}
0x08e32…08e6e Head {h00=0x0038, h01=0x0050, text=»* EXIT: *«, t00=0x005b, t01=0x0018}
0x08e6e…08eaa Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005b, t01=0x0054}
0x08eaa…08ee6 Head {h00=0x0038, h01=0x0050, text=»* WORK REGISTERS: A2,A3,A4,A9,A11 *«, t00=0x005b, t01=0x0090}
0x08ee6…08f22 Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005b, t01=0x00cc}
0x08f22…08f5e Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINES: CMPADR *«, t00=0x005b, t01=0x0108}
0x08f5e…08f9a Head {h00=0x0038, h01=0x0050, text=»* *«, t00=0x005b, t01=0x0144}
0x08f9a…08fd6 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x005b, t01=0x0180}
0x08fd6…08fe4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x002c}
0x08fe4…08ff8 Head {h00=0x0010, h01=0x0050, text=»IMXTT EQU * «, t00=0x005c, t01=0x003a}
0x08ff8…0901a Head {h00=0x001e, h01=0x0050, text=» LDR A2,A12 GET TTAB ENTRY«, t00=0x005c, t01=0x004e}
0x0901a…09048 Head {h00=0x002a, h01=0x0050, text=» ADKL A2,TTB:MT GET START OF MMU TABLE«, t00=0x005c, t01=0x0070}
0x09048…0907a Head {h00=0x002e, h01=0x0050, text=» LDR* A3,A5 GET PHYSICAL ADDRESS TO EXTENT«, t00=0x005c, t01=0x009e}
0x0907a…09092 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A3 SAVE «, t00=0x005c, t01=0x00d0}
0x09092…090be Head {h00=0x0028, h01=0x0050, text=» ANKL A3,/FC00 PHYSICAL PAGE ADDRESS«, t00=0x005c, t01=0x00e8}
0x090be…090e0 Head {h00=0x001e, h01=0x0050, text=» ANKL A4,/3FF DISPLACEMENT«, t00=0x005c, t01=0x0114}
0x090e0…09102 Head {h00=0x001e, h01=0x0050, text=» SLL A4,2 MAKE IT 12 BITS «, t00=0x005c, t01=0x0136}
0x09102…0912c Head {h00=0x0026, h01=0x0050, text=» LDKL A9,/1000 PHYSICAL PAGE SIZE «, t00=0x005c, t01=0x0158}
0x0912c…09144 Head {h00=0x0014, h01=0x0050, text=» SUR A9,A4 SAVE «, t00=0x005c, t01=0x0182}
0x09144…09170 Head {h00=0x0028, h01=0x0050, text=» LD A11,MX:LEN,A5 GET EXTENT LENGTH «, t00=0x005d, t01=0x000a}
0x09170…091a4 Head {h00=0x0030, h01=0x0050, text=» CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? «, t00=0x005d, t01=0x0036}
0x091a4…091bc Head {h00=0x0014, h01=0x0050, text=» RF(G) IMX10 NO!«, t00=0x005d, t01=0x006a}
0x091bc…091e6 Head {h00=0x0026, h01=0x0050, text=» XRR A11,A11 INDICATE SINGLE ENTRY«, t00=0x005d, t01=0x0082}
0x091e6…091f8 Head {h00=0x000e, h01=0x0050, text=» RF IMX20 «, t00=0x005d, t01=0x00ac}
0x091f8…09238 Head {h00=0x003c, h01=0x0050, text=»IMX10 SUR A11,A9 SUBTRACT REMAINING AREA IN CURRENT PAGE«, t00=0x005d, t01=0x00be}
0x09238…09262 Head {h00=0x0026, h01=0x0050, text=»IMX20 STR A3,A2 STORE PAGE ADDRESS«, t00=0x005d, t01=0x00fe}
0x09262…0928e Head {h00=0x0028, h01=0x0050, text=» ADKL A3,/400 INCREMENT PAGE ADDRESS«, t00=0x005d, t01=0x0128}
0x0928e…092b8 Head {h00=0x0026, h01=0x0050, text=» ADK A2,2 INCREMENT ENTRY POINTER «, t00=0x005d, t01=0x0154}
0x092b8…092de Head {h00=0x0022, h01=0x0050, text=» ADKL A11,0 ONE ENTRY ENOUGTH?«, t00=0x005d, t01=0x017e}
0x092de…092f8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) IMX99 YES! «, t00=0x005e, t01=0x0014}
0x092f8…09314 Head {h00=0x0018, h01=0x0050, text=» RF(NN) IMX30 <32KB «, t00=0x005e, t01=0x002e}
0x09314…0933c Head {h00=0x0024, h01=0x0050, text=» SUKL A11,/1000 DECREMENT LENGTH«, t00=0x005e, t01=0x004a}
0x0933c…0934e Head {h00=0x000e, h01=0x0050, text=» RB IMX20 «, t00=0x005e, t01=0x0072}
0x0934e…09378 Head {h00=0x0026, h01=0x0050, text=»IMX30 STR A3,A2 STORE PAGE ADDRESS«, t00=0x005e, t01=0x0084}
0x09378…093a4 Head {h00=0x0028, h01=0x0050, text=» ADKL A3,/400 INCREMENT PAGE ADDRESS«, t00=0x005e, t01=0x00ae}
0x093a4…093ce Head {h00=0x0026, h01=0x0050, text=» ADK A2,2 INCREMENT ENTRY POINTER «, t00=0x005e, t01=0x00da}
0x093ce…093f6 Head {h00=0x0024, h01=0x0050, text=» SUKL A11,/1000 DECREMENT LENGTH«, t00=0x005e, t01=0x0104}
0x093f6…0940a Head {h00=0x0010, h01=0x0050, text=» RB(P) IMX30«, t00=0x005e, t01=0x012c}
0x0940a…09422 Head {h00=0x0014, h01=0x0050, text=»IMX99 EQU * =6 «, t00=0x005e, t01=0x0140}
0x09422…09448 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A12 GET TTAB ENTRY =6 «, t00=0x005e, t01=0x0158}
0x09448…0947a Head {h00=0x002e, h01=0x0050, text=» ADKL A4,TTB:MT+32 GET END OF MMU-TABLE =6«, t00=0x005e, t01=0x017e}
0x0947a…09494 Head {h00=0x0016, h01=0x0050, text=» LDKL A3,/FC00 =6«, t00=0x005f, t01=0x0020}
0x09494…094ac Head {h00=0x0014, h01=0x0050, text=»IMX100 EQU * =6 «, t00=0x005f, t01=0x003a}
0x094ac…094dc Head {h00=0x002c, h01=0x0050, text=» CWR A4,A2 ENTRIES LEFT IN MMU-TABLE? =6«, t00=0x005f, t01=0x0052}
0x094dc…094f8 Head {h00=0x0018, h01=0x0050, text=» RF(E) IMX110 NO! =6«, t00=0x005f, t01=0x0082}
0x094f8…0952c Head {h00=0x0030, h01=0x0050, text=» STR A3,A2 STORE PAGE ERROR IN MMU-ENTRY =6 «, t00=0x005f, t01=0x009e}
0x0952c…09550 Head {h00=0x0020, h01=0x0050, text=» ADK A2,2 NEXT MMU-ENTRY =6 «, t00=0x005f, t01=0x00d2}
0x09550…09566 Head {h00=0x0012, h01=0x0050, text=» RB IMX100 =6«, t00=0x005f, t01=0x00f6}
0x09566…0957e Head {h00=0x0014, h01=0x0050, text=»IMX110 EQU * =6«, t00=0x005f, t01=0x010c}
0x0957e…09592 Head {h00=0x0010, h01=0x0050, text=» RTN A14 =6«, t00=0x005f, t01=0x0124}
0x09592…095a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x0138}
0x095a0…095e0 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005f, t01=0x0146}
0x095e0…09620 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x005f, t01=0x0186}
0x09620…09660 Head {h00=0x003c, h01=0x0050, text=»* B:MSEG - BUILD MONITOR TASK SEGMENT TABLES & TTABS *«, t00=0x0060, t01=0x0036}
0x09660…096a0 Head {h00=0x003c, h01=0x0050, text=»* ================================================== *«, t00=0x0060, t01=0x0076}
0x096a0…096e0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0060, t01=0x00b6}
0x096e0…09720 Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: SYSLDM *«, t00=0x0060, t01=0x00f6}
0x09720…09760 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0060, t01=0x0136}
0x09760…097a0 Head {h00=0x003c, h01=0x0050, text=»* ENTRY: *«, t00=0x0060, t01=0x0176}
0x097a0…097e0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0061, t01=0x0026}
0x097e0…09820 Head {h00=0x003c, h01=0x0050, text=»* EXIT: *«, t00=0x0061, t01=0x0066}
0x09820…09860 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0061, t01=0x00a6}
0x09860…098a0 Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTERS: A1-A12 *«, t00=0x0061, t01=0x00e6}
0x098a0…098e0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0061, t01=0x0126}
0x098e0…09920 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: MX:MST,MX:STD,BMSTAB,CHKTAD,BMXSTT *«, t00=0x0061, t01=0x0166}
0x09920…09960 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0062, t01=0x0016}
0x09960…099a0 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0062, t01=0x0056}
0x099a0…099ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x0096}
0x099ae…099c2 Head {h00=0x0010, h01=0x0050, text=»B:MSEG EQU *«, t00=0x0062, t01=0x00a4}
0x099c2…099f8 Head {h00=0x0032, h01=0x0050, text=» CALL MX:MST FIND FIRST MONITOR SEGMENT TABLE «, t00=0x0062, t01=0x00b8}
0x099f8…09a2c Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0062, t01=0x00ee}
0x09a2c…09a60 Head {h00=0x0030, h01=0x0050, text=» LDR A4,A5 SAVE POINTER TO NUMBER OF SEGTABS«, t00=0x0062, t01=0x0122}
0x09a60…09a9e Head {h00=0x003a, h01=0x0050, text=» LDR A8,A1 SAVE POINTER TO FIRST MONITOR SEGMENT TABLE«, t00=0x0062, t01=0x0156}
0x09a9e…09ad8 (99, 0, 400) Head {h00=0x0036, h01=0x0050, text=» CALL MX:STD FIND FIRST MONITOR SEGMENT TABLE TASK«, t00=0x0063, t01=0x0004}
0x09ad8…09af4 Head {h00=0x0018, h01=0x0050, text=» DEFINITION BLOCK «, t00=0x0063, t01=0x003e}
0x09af4…09b36 Head {h00=0x003e, h01=0x0050, text=»BMSG10 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES«, t00=0x0063, t01=0x005a}
0x09b36…09b54 Head {h00=0x001a, h01=0x0050, text=» RF(N) BMSG99 NO MORE!«, t00=0x0063, t01=0x009c}
0x09b54…09b94 Head {h00=0x003c, h01=0x0050, text=» CM STKEND+SCBTAB CLEAR ADDRESS TO SEGMENT CONTROL BLOCK«, t00=0x0063, t01=0x00ba}
0x09b94…09bc8 Head {h00=0x0030, h01=0x0050, text=» CM STKEND+MAXSGM CLEAR MAXIMUM SEGMENT SIZE«, t00=0x0063, t01=0x00fa}
0x09bc8…09c02 Head {h00=0x0036, h01=0x0050, text=» ADK A4,2 INCREMENT POINTER TO NUMBER OF SEGMENTS «, t00=0x0063, t01=0x012e}
0x09c02…09c32 Head {h00=0x002c, h01=0x0050, text=» CALL BMSTAB BUILD MONITOR SEGMENT TABLE«, t00=0x0063, t01=0x0168}
0x09c32…09c64 Head {h00=0x002e, h01=0x0050, text=» LDR* A7,A1 GET NUMBER OF TASKS IN SEGTAB «, t00=0x0064, t01=0x0008}
0x09c64…09c88 Head {h00=0x0020, h01=0x0050, text=»BMSG20 ADK A1,2 NEXT TASK ID«, t00=0x0064, t01=0x003a}
0x09c88…09cb8 Head {h00=0x002c, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF TASK ID:S «, t00=0x0064, t01=0x005e}
0x09cb8…09cd6 Head {h00=0x001a, h01=0x0050, text=» RB(N) BMSG10 NO MORE!«, t00=0x0064, t01=0x008e}
0x09cd6…09d08 Head {h00=0x002e, h01=0x0050, text=» CALL CHKTAD CHECK IF TASK ALREADY DEFINED«, t00=0x0064, t01=0x00ac}
0x09d08…09d34 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) BMSG30 TASK ALREADY DEFINED!«, t00=0x0064, t01=0x00de}
0x09d34…09d6c Head {h00=0x0034, h01=0x0050, text=» CALL BMXSTT BUILD TTAB FOR MONITOR SEGMENT TASK«, t00=0x0064, t01=0x010a}
0x09d6c…09da4 Head {h00=0x0034, h01=0x0050, text=» LD A10,STKEND+SCBTAB GET SEGMENT CONTROL BLOCK «, t00=0x0064, t01=0x0142}
0x09da4…09dda Head {h00=0x0032, h01=0x0050, text=» RF(NZ) BMSG25 SEGMENT CONTROL BLOCK GENERATED«, t00=0x0064, t01=0x017a}
0x09dda…09e08 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0065, t01=0x0020}
0x09e08…09e22 Head {h00=0x0016, h01=0x0050, text=» LDR A10,A12 SAVE «, t00=0x0065, t01=0x004e}
0x09e22…09e5c Head {h00=0x0036, h01=0x0050, text=» ADKL A12,ACBLEN RESERVE FOR SEGMENT CONTROL BLOCK«, t00=0x0065, t01=0x0068}
0x09e5c…09e8c Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x0065, t01=0x00a2}
0x09e8c…09ed4 Head {h00=0x0044, h01=0x0050, text=»BMSG25 ST A10,TTB:AP,A12 STORE ADDRESS TO SEGMENT CONTROL BLOCK «, t00=0x0065, t01=0x00d2}
0x09ed4…09f10 Head {h00=0x0038, h01=0x0050, text=»BMSG30 ST A5,TTB:SP,A12 STORE SEGMENT TABLE POINTER «, t00=0x0065, t01=0x011a}
0x09f10…09f50 Head {h00=0x003c, h01=0x0050, text=» LD A10,TTB:AP,A12 GET ADDRESS TO SEGMENT CONTROL BLOCK «, t00=0x0065, t01=0x0156}
0x09f50…09f86 Head {h00=0x0032, h01=0x0050, text=» LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE «, t00=0x0066, t01=0x0008}
0x09f86…09fb4 Head {h00=0x002a, h01=0x0050, text=» ADKL A3,/FFFF NUMBER OF 4K-MULTIPLES «, t00=0x0066, t01=0x003e}
0x09fb4…09fea Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/F000 ISOLATE NUMBER OF 4K-MULTIPLES «, t00=0x0066, t01=0x006c}
0x09fea…0a016 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/F000 END OF LOGICAL MEMORY«, t00=0x0066, t01=0x00a2}
0x0a016…0a046 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A3 COMPUTE LOGICAL PAGE ADDRESS «, t00=0x0066, t01=0x00ce}
0x0a046…0a07c Head {h00=0x0032, h01=0x0050, text=» LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE «, t00=0x0066, t01=0x00fe}
0x0a07c…0a0a4 Head {h00=0x0024, h01=0x0050, text=» ANKL A3,/FFF EVEN 4K-MULTIPLE? «, t00=0x0066, t01=0x0134}
0x0a0a4…0a0be Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BMSG40 NO!«, t00=0x0066, t01=0x015c}
0x0a0be…0a0e8 Head {h00=0x0026, h01=0x0050, text=» ADKL A2,/1000 SAVE ONE MMU ENTRY «, t00=0x0066, t01=0x0176}
0x0a0e8…0a126 Head {h00=0x003a, h01=0x0050, text=»BMSG40 ST A2,APLLAP,A10 STORE IN SEGMENT CONTROL TABLE«, t00=0x0067, t01=0x0010}
0x0a126…0a148 Head {h00=0x001e, h01=0x0050, text=» SRL A2,12 MMU TABLE ENTRY«, t00=0x0067, t01=0x004e}
0x0a148…0a170 Head {h00=0x0024, h01=0x0050, text=» LDK A3,16 NUMBER OF MMU ENTRIES«, t00=0x0067, t01=0x0070}
0x0a170…0a1a2 Head {h00=0x002e, h01=0x0050, text=» SUR A3,A2 COMPUTE NUMBER OF PAGE ENTRIES «, t00=0x0067, t01=0x0098}
0x0a1a2…0a1da Head {h00=0x0034, h01=0x0050, text=» ST A3,APLNPE,A10 STORE IN SEGMENT CONTROL TABLE«, t00=0x0067, t01=0x00ca}
0x0a1da…0a1fc Head {h00=0x001e, h01=0x0050, text=» SLL A3,1 MULTIPLY BY TWO «, t00=0x0067, t01=0x0102}
0x0a1fc…0a22a Head {h00=0x002a, h01=0x0050, text=» NGR A3,A3 MAKE NEGATIVE DISPLACEMENT «, t00=0x0067, t01=0x0124}
0x0a22a…0a25c Head {h00=0x002e, h01=0x0050, text=» ADKL A3,TTB:CB DISPL TO END OF MMU TABLE «, t00=0x0067, t01=0x0152}
0x0a25c…0a294 Head {h00=0x0034, h01=0x0050, text=» ST A3,APLMMP,A10 STORE IN SEGMENT CONTROL TABLE«, t00=0x0067, t01=0x0184}
0x0a294…0a2ca Head {h00=0x0032, h01=0x0050, text=» LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE «, t00=0x0068, t01=0x002c}
0x0a2ca…0a2fe Head {h00=0x0030, h01=0x0050, text=» ADKL A3,/3FF COMPUTE NUMBER OF 1K-MULTIPLES«, t00=0x0068, t01=0x0062}
0x0a2fe…0a334 Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/FC00 ISOLATE NUMBER OF 1K-MULTIPLES «, t00=0x0068, t01=0x0096}
0x0a334…0a360 Head {h00=0x0028, h01=0x0050, text=» LDR A11,A3 GET CURRENT SEGMENT SIZE«, t00=0x0068, t01=0x00cc}
0x0a360…0a38a Head {h00=0x0026, h01=0x0050, text=» LD A9,SCTPSZ GET MAX SEGMENT SIZE«, t00=0x0068, t01=0x00f8}
0x0a38a…0a3b8 Head {h00=0x002a, h01=0x0050, text=» CALL CMPADR CURRENT SEGMENT GREATER? «, t00=0x0068, t01=0x0122}
0x0a3b8…0a3d0 Head {h00=0x0014, h01=0x0050, text=» RB(L) BMSG20 NO«, t00=0x0068, t01=0x0150}
0x0a3d0…0a3fe Head {h00=0x002a, h01=0x0050, text=» ST A3,SCTPSZ UPDATE MAX SEGMENT SIZE «, t00=0x0068, t01=0x0168}
0x0a3fe…0a410 Head {h00=0x000e, h01=0x0050, text=» RB BMSG20«, t00=0x0069, t01=0x0008}
0x0a410…0a42e Head {h00=0x001a, h01=0x0050, text=»BMSG99 RTN A14 RETURN «, t00=0x0069, t01=0x001a}
0x0a42e…0a43c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x0038}
0x0a43c…0a47e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0069, t01=0x0046}
0x0a47e…0a4c0 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0069, t01=0x0088}
0x0a4c0…0a502 Head {h00=0x003e, h01=0x0050, text=»* BMSTAB - BUILD MONITOR SEGMENT TABLE *«, t00=0x0069, t01=0x00ca}
0x0a502…0a544 Head {h00=0x003e, h01=0x0050, text=»* ==================================== *«, t00=0x0069, t01=0x010c}
0x0a544…0a586 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0069, t01=0x014e}
0x0a586…0a5c8 Head {h00=0x003e, h01=0x0050, text=»* REFERENCED IN: B:MSEG *«, t00=0x0069, t01=0x0190}
0x0a5c8…0a60a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006a, t01=0x0042}
0x0a60a…0a64c Head {h00=0x003e, h01=0x0050, text=»* ENTRY: A4 - POINTER TO NUMBER OF SEGMENTS *«, t00=0x006a, t01=0x0084}
0x0a64c…0a68e Head {h00=0x003e, h01=0x0050, text=»* A8 - POINTER TO SEGMENT CLUSTER IN MXSTAB *«, t00=0x006a, t01=0x00c6}
0x0a68e…0a6d0 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006a, t01=0x0108}
0x0a6d0…0a712 Head {h00=0x003e, h01=0x0050, text=»* EXIT: A5 - SEGMENT TABLE ADDRESS *«, t00=0x006a, t01=0x014a}
0x0a712…0a754 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006a, t01=0x018c}
0x0a754…0a796 Head {h00=0x003e, h01=0x0050, text=»* WORK REGISTERS: A2,A3,A9,A11 *«, t00=0x006b, t01=0x003e}
0x0a796…0a7d8 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006b, t01=0x0080}
0x0a7d8…0a81a Head {h00=0x003e, h01=0x0050, text=»* SUBROUTINES: CMPADR,ERROR *«, t00=0x006b, t01=0x00c2}
0x0a81a…0a85c Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x006b, t01=0x0104}
0x0a85c…0a89e Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x006b, t01=0x0146}
0x0a89e…0a8ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x0188}
0x0a8ac…0a8c0 Head {h00=0x0010, h01=0x0050, text=»BMSTAB EQU *«, t00=0x006c, t01=0x0008}
0x0a8c0…0a8ee Head {h00=0x002a, h01=0x0050, text=» STR A1,A15 SAVE REGISTER A1 ON STACK «, t00=0x006c, t01=0x001c}
0x0a8ee…0a91a Head {h00=0x0028, h01=0x0050, text=» LD A5,SCTSFA GET START OF FREE AREA«, t00=0x006c, t01=0x004a}
0x0a91a…0a948 Head {h00=0x002a, h01=0x0050, text=» LD A2,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x006c, t01=0x0076}
0x0a948…0a972 Head {h00=0x0026, h01=0x0050, text=» STR A2,A5 STORE IN SEGMENT TABLE «, t00=0x006c, t01=0x00a4}
0x0a972…0a9a0 Head {h00=0x002a, h01=0x0050, text=» ADK A5,2 NEXT ENTRY IN SEGMENT TABLE «, t00=0x006c, t01=0x00ce}
0x0a9a0…0a9ca Head {h00=0x0026, h01=0x0050, text=» LDR* A9,A4 GET NUMBER OF SEGMENTS«, t00=0x006c, t01=0x00fc}
0x0a9ca…0a9e2 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A9 SAVE «, t00=0x006c, t01=0x0126}
0x0a9e2…0aa0c Head {h00=0x0026, h01=0x0050, text=» STR A9,A5 STORE IN SEGMENT TABLE «, t00=0x006c, t01=0x013e}
0x0aa0c…0aa4c Head {h00=0x003c, h01=0x0050, text=» ADS A9,STKCOM+TOTSGM INCREMENT TOTAL NUMBER OF SEGMENTS«, t00=0x006c, t01=0x0168}
0x0aa4c…0aa72 Head {h00=0x0022, h01=0x0050, text=» ADK A5,2 SEGMENT TABLE ENTRY «, t00=0x006d, t01=0x0018}
0x0aa72…0aa8a Head {h00=0x0014, h01=0x0050, text=» LDR A3,A5 SAVE «, t00=0x006d, t01=0x003e}
0x0aa8a…0aa94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0056}
0x0aa94…0aab4 Head {h00=0x001c, h01=0x0050, text=»* BUILD SEGMENT BLOCK 0«, t00=0x006d, t01=0x0060}
0x0aab4…0aabe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0080}
0x0aabe…0aaea Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/8400 STATUS FOR SEGMENT 0 «, t00=0x006d, t01=0x008a}
0x0aaea…0ab16 Head {h00=0x0028, h01=0x0050, text=» STR A2,A3 STORE IN SEGMENT BLOCK 0 «, t00=0x006d, t01=0x00b6}
0x0ab16…0ab50 Head {h00=0x0036, h01=0x0050, text=»BMST20 ST A1,STKEND+SGMCNT SAVE NUMBER OF SEGMENTS«, t00=0x006d, t01=0x00e2}
0x0ab50…0ab74 Head {h00=0x0020, h01=0x0050, text=» ADK A3,8 NEXT SEGMENT BLOCK«, t00=0x006d, t01=0x011c}
0x0ab74…0aba6 Head {h00=0x002e, h01=0x0050, text=» LD A9,STKEND+LIMIT GET END OF SYSTEM AREA«, t00=0x006d, t01=0x0140}
0x0aba6…0abd4 Head {h00=0x002a, h01=0x0050, text=» LDR A11,A3 GET END OF SEGMENT BLOCKS «, t00=0x006d, t01=0x0172}
0x0abd4…0abfa Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x006e, t01=0x0010}
0x0abfa…0ac14 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BMST25 OK «, t00=0x006e, t01=0x0036}
0x0ac14…0ac42 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x006e, t01=0x0050}
0x0ac42…0ac56 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006e, t01=0x007e}
0x0ac56…0ac80 Head {h00=0x0026, h01=0x0050, text=»BMST25 LDR* A2,A8 GET SEGMENT TYPE«, t00=0x006e, t01=0x0092}
0x0ac80…0ac9a Head {h00=0x0016, h01=0x0050, text=» SRL A2,8 ISOLATE «, t00=0x006e, t01=0x00bc}
0x0ac9a…0acc6 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'RR' CORE RESIDENT SEGMENT? «, t00=0x006e, t01=0x00d6}
0x0acc6…0ace0 Head {h00=0x0016, h01=0x0050, text=» RF(E) BMST40 YES!«, t00=0x006e, t01=0x0102}
0x0ace0…0ad06 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x006e, t01=0x011c}
0x0ad06…0ad24 Head {h00=0x001a, h01=0x0050, text=» ANK A2,2 DISC PAGING?«, t00=0x006e, t01=0x0142}
0x0ad24…0ad3e Head {h00=0x0016, h01=0x0050, text=» RF(Z) BMST40 NO! «, t00=0x006e, t01=0x0160}
0x0ad3e…0ad48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x017a}
0x0ad48…0ad76 Head {h00=0x002a, h01=0x0050, text=»* DISC PAGING & DISC RESIDENT SEGMENT«, t00=0x006e, t01=0x0184}
0x0ad76…0ad80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0022}
0x0ad80…0adac Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x006f, t01=0x002c}
0x0adac…0ade0 Head {h00=0x0030, h01=0x0050, text=» LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31«, t00=0x006f, t01=0x0058}
0x0ade0…0ae14 Head {h00=0x0030, h01=0x0050, text=» LD A1,MX:DA1,A1 GET DISC ADDRESS BITS 0-15 «, t00=0x006f, t01=0x008c}
0x0ae14…0ae3c Head {h00=0x0024, h01=0x0050, text=» LD A10,2,A8 GET RELOCATION BASE«, t00=0x006f, t01=0x00c0}
0x0ae3c…0ae66 Head {h00=0x0026, h01=0x0050, text=» ADR A2,A10 RELOCATE DISC ADDRESS «, t00=0x006f, t01=0x00e8}
0x0ae66…0ae86 Head {h00=0x001c, h01=0x0050, text=» RF(P) BMST30 NO CARRY! «, t00=0x006f, t01=0x0112}
0x0ae86…0aea8 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/7FFF CLEAR BIT 0«, t00=0x006f, t01=0x0132}
0x0aea8…0aec4 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADD CARRY «, t00=0x006f, t01=0x0154}
0x0aec4…0aee6 Head {h00=0x001e, h01=0x0050, text=» RF(P) BMST30 NOT OVERFLOW«, t00=0x006f, t01=0x0170}
0x0aee6…0af12 (112, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP10 DISC ADDRESS OVERFLOW«, t00=0x0070, t01=0x0004}
0x0af12…0af26 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0070, t01=0x0030}
0x0af26…0af5e Head {h00=0x0034, h01=0x0050, text=»BMST30 ORKL A1,/4000 INDICATE ASSEMBLER SEGMENT «, t00=0x0070, t01=0x0044}
0x0af5e…0af96 Head {h00=0x0034, h01=0x0050, text=» STR A1,A3 STORE SEGMENT DISC ADDRESS BITS 0-15 «, t00=0x0070, t01=0x007c}
0x0af96…0afd0 Head {h00=0x0036, h01=0x0050, text=» ST A2,2,A3 STORE SEGMENT DISC ADDRESS BITS 16-31 «, t00=0x0070, t01=0x00b4}
0x0afd0…0afe2 Head {h00=0x000e, h01=0x0050, text=» RF BMST50«, t00=0x0070, t01=0x00ee}
0x0afe2…0afec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0100}
0x0afec…0b01e Head {h00=0x002e, h01=0x0050, text=»* DISC RESIDENT SEGMENT OR NO DISC PAGING«, t00=0x0070, t01=0x010a}
0x0b01e…0b028 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x013c}
0x0b028…0b066 Head {h00=0x003a, h01=0x0050, text=»BMST40 LDKL A2,/8800 STATUS FOR DISC RESIDENT SEGMENT «, t00=0x0070, t01=0x0146}
0x0b066…0b090 Head {h00=0x0026, h01=0x0050, text=» STR A2,A3 STORE IN SEGMENT BLOCK «, t00=0x0070, t01=0x0184}
0x0b090…0b0bc Head {h00=0x0028, h01=0x0050, text=»BMST50 LD A9,4,A8 GET SEGMENT LENGTH«, t00=0x0071, t01=0x001e}
0x0b0bc…0b0f4 Head {h00=0x0034, h01=0x0050, text=» LD A11,STKEND+MAXSGM GET MAXIMUM SEGMENT LENGTH«, t00=0x0071, t01=0x004a}
0x0b0f4…0b108 Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x0071, t01=0x0082}
0x0b108…0b13a Head {h00=0x002e, h01=0x0050, text=» RF(NL) BMST55 CURRENT SEGMENT NOT GREATER«, t00=0x0071, t01=0x0096}
0x0b13a…0b174 Head {h00=0x0036, h01=0x0050, text=» ST A9,STKEND+MAXSGM UPDATE MAXIMUM SEGMENT LENGTH«, t00=0x0071, t01=0x00c8}
0x0b174…0b1b4 Head {h00=0x003c, h01=0x0050, text=»BMST55 ST A9,4,A3 STORE SEGMENT LENGTH IN SEGMENT BLOCK «, t00=0x0071, t01=0x0102}
0x0b1b4…0b1e2 Head {h00=0x002a, h01=0x0050, text=» ADKL A8,6 INCREMENT POINTER IN MXSTAB«, t00=0x0071, t01=0x0142}
0x0b1e2…0b216 Head {h00=0x0030, h01=0x0050, text=» LD A1,STKEND+SGMCNT GET NUMBER OF SEGMENTS «, t00=0x0071, t01=0x0170}
0x0b216…0b228 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0072, t01=0x0014}
0x0b228…0b24c Head {h00=0x0020, h01=0x0050, text=» RB(NZ) BMST20 MORE SEGMENTS«, t00=0x0072, t01=0x0026}
0x0b24c…0b272 Head {h00=0x0022, h01=0x0050, text=» ADK A3,8 END OF SEGMENT TABLE«, t00=0x0072, t01=0x004a}
0x0b272…0b2a8 Head {h00=0x0032, h01=0x0050, text=»BMST60 ST A3,SCTSFA UPDATE START OF FREE AREA «, t00=0x0072, t01=0x0070}
0x0b2a8…0b2d0 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A15 RESTORE REGISTER A1«, t00=0x0072, t01=0x00a6}
0x0b2d0…0b2e0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0072, t01=0x00ce}
0x0b2e0…0b2ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x00de}
0x0b2ee…0b332 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0072, t01=0x00ec}
0x0b332…0b376 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0072, t01=0x0130}
0x0b376…0b3ba Head {h00=0x0040, h01=0x0050, text=»* CHKTAD - CHECK IF TASK ALREADY DEFINED *«, t00=0x0072, t01=0x0174}
0x0b3ba…0b3fe Head {h00=0x0040, h01=0x0050, text=»* ====================================== *«, t00=0x0073, t01=0x0028}
0x0b3fe…0b442 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0073, t01=0x006c}
0x0b442…0b486 Head {h00=0x0040, h01=0x0050, text=»* REFERENCED IN: B:MSEG *«, t00=0x0073, t01=0x00b0}
0x0b486…0b4ca Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0073, t01=0x00f4}
0x0b4ca…0b50e Head {h00=0x0040, h01=0x0050, text=»* ENTRY: A1 - POINTER TO TASK ID *«, t00=0x0073, t01=0x0138}
0x0b50e…0b552 Head {h00=0x0040, h01=0x0050, text=»* FOR MONITOR SEGMENT TASK *«, t00=0x0073, t01=0x017c}
0x0b552…0b596 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0074, t01=0x0030}
0x0b596…0b5da Head {h00=0x0040, h01=0x0050, text=»* EXIT: A12 - TTAB ADDRESS IF TASK ALREADY DEFINED *«, t00=0x0074, t01=0x0074}
0x0b5da…0b61e Head {h00=0x0040, h01=0x0050, text=»* A12 = 0 IF TASK NOT DEFINED *«, t00=0x0074, t01=0x00b8}
0x0b61e…0b662 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0074, t01=0x00fc}
0x0b662…0b6a6 Head {h00=0x0040, h01=0x0050, text=»* WORK REGISTERS: A2,A3 *«, t00=0x0074, t01=0x0140}
0x0b6a6…0b6ea Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0074, t01=0x0184}
0x0b6ea…0b72e Head {h00=0x0040, h01=0x0050, text=»* SUBROUTINES: PSW *«, t00=0x0075, t01=0x0038}
0x0b72e…0b772 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0075, t01=0x007c}
0x0b772…0b7b6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0075, t01=0x00c0}
0x0b7b6…0b7c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x0104}
0x0b7c4…0b7d8 Head {h00=0x0010, h01=0x0050, text=»CHKTAD EQU *«, t00=0x0075, t01=0x0112}
0x0b7d8…0b802 Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET LENGTH OF TCTAB«, t00=0x0075, t01=0x0126}
0x0b802…0b824 Head {h00=0x001e, h01=0x0050, text=» AD A2,SCTTCT END OF TCTAB«, t00=0x0075, t01=0x0150}
0x0b824…0b856 Head {h00=0x002e, h01=0x0050, text=»CHKT20 SUK A2,2 DECREMENT POINTER IN TCTAB«, t00=0x0075, t01=0x0172}
0x0b856…0b87c Head {h00=0x0022, h01=0x0050, text=» CW A2,SCTTCT START OF TCTAB? «, t00=0x0076, t01=0x0014}
0x0b87c…0b8aa Head {h00=0x002a, h01=0x0050, text=» RF(E) CHKT30 YES: ALL TASKS CHECKED! «, t00=0x0076, t01=0x003a}
0x0b8aa…0b8d2 Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET POINTER TO TTAB «, t00=0x0076, t01=0x0068}
0x0b8d2…0b8f6 Head {h00=0x0020, h01=0x0050, text=» LD A3,TTB:ID,A3 GET TASK ID«, t00=0x0076, t01=0x0090}
0x0b8f6…0b922 Head {h00=0x0028, h01=0x0050, text=» CWR* A3,A1 EQUAL TO CURRENT TASKS? «, t00=0x0076, t01=0x00b4}
0x0b922…0b93c Head {h00=0x0016, h01=0x0050, text=» RB(NE) CHKT20 NO «, t00=0x0076, t01=0x00e0}
0x0b93c…0b962 Head {h00=0x0022, h01=0x0050, text=» LDR* A12,A2 GET TTAB POINTER «, t00=0x0076, t01=0x00fa}
0x0b962…0b974 Head {h00=0x000e, h01=0x0050, text=» RF CHKT50«, t00=0x0076, t01=0x0120}
0x0b974…0b9a6 Head {h00=0x002e, h01=0x0050, text=»CHKT30 LDKL A12,0 INDICATE TASK NOT FOUND «, t00=0x0076, t01=0x0132}
0x0b9a6…0b9d8 Head {h00=0x002e, h01=0x0050, text=»CHKT50 CFI A14,PSW,A13 STORE PSW ON STACK «, t00=0x0076, t01=0x0164}
0x0b9d8…0b9e8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0077, t01=0x0008}
0x0b9e8…0b9f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0077, t01=0x0018}
0x0b9f6…0ba42 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0077, t01=0x0026}
0x0ba42…0ba8e Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0077, t01=0x0072}
0x0ba8e…0bada Head {h00=0x0048, h01=0x0050, text=»* BMXSTT - BUILD MONITOR EXTENT & SEGMENT TTABS * «, t00=0x0077, t01=0x00be}
0x0bada…0bb26 Head {h00=0x0048, h01=0x0050, text=»* ============================================= * «, t00=0x0077, t01=0x010a}
0x0bb26…0bb72 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0077, t01=0x0156}
0x0bb72…0bbbe Head {h00=0x0048, h01=0x0050, text=»* REFERENCED IN: MXTTAB,B:MSEG * «, t00=0x0078, t01=0x0012}
0x0bbbe…0bc0a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0078, t01=0x005e}
0x0bc0a…0bc56 Head {h00=0x0048, h01=0x0050, text=»* ENTRY: * «, t00=0x0078, t01=0x00aa}
0x0bc56…0bca2 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0078, t01=0x00f6}
0x0bca2…0bcee Head {h00=0x0048, h01=0x0050, text=»* EXIT: A12 - TTAB ADDRESS * «, t00=0x0078, t01=0x0142}
0x0bcee…0bd3a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0078, t01=0x018e}
0x0bd3a…0bd86 Head {h00=0x0048, h01=0x0050, text=»* WORK REGISTERS: A2,A9,A10,A11 * «, t00=0x0079, t01=0x004a}
0x0bd86…0bdd2 Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0079, t01=0x0096}
0x0bdd2…0be1e Head {h00=0x0048, h01=0x0050, text=»* SUBROUTINES: CMPADR,ERROR * «, t00=0x0079, t01=0x00e2}
0x0be1e…0be6a Head {h00=0x0048, h01=0x0050, text=»* * «, t00=0x0079, t01=0x012e}
0x0be6a…0beb6 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0079, t01=0x017a}
0x0beb6…0beca Head {h00=0x0010, h01=0x0050, text=»BMXSTT EQU *«, t00=0x007a, t01=0x0036}
0x0beca…0bef8 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x007a, t01=0x004a}
0x0bef8…0bf28 Head {h00=0x002c, h01=0x0050, text=» LDKL A10,TTB:TD+2 STANDARD TTAB LENGTH «, t00=0x007a, t01=0x0078}
0x0bf28…0bf4e Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x007a, t01=0x00a8}
0x0bf4e…0bf66 Head {h00=0x0014, h01=0x0050, text=» ANK A2,/21 EMM?«, t00=0x007a, t01=0x00ce}
0x0bf66…0bf7a Head {h00=0x0010, h01=0x0050, text=» XRK A2,/21 «, t00=0x007a, t01=0x00e6}
0x0bf7a…0bf90 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) BMXS20«, t00=0x007a, t01=0x00fa}
0x0bf90…0bfc8 Head {h00=0x0034, h01=0x0050, text=» SUKL A12,TTB:AM INCLUDE MMU ALLOCATION BIT MAP «, t00=0x007a, t01=0x0110}
0x0bfc8…0bff0 Head {h00=0x0024, h01=0x0050, text=» SUKL A10,TTB:AM INCLUDE LENGTH «, t00=0x007a, t01=0x0148}
0x0bff0…0c002 Head {h00=0x000e, h01=0x0050, text=» RF BMXS40«, t00=0x007a, t01=0x0170}
0x0c002…0c02e Head {h00=0x0028, h01=0x0050, text=»BMXS20 LD A2,SCTOPT GET OPTION WORD «, t00=0x007a, t01=0x0182}
0x0c02e…0c04c Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 MMU OPTION? «, t00=0x007b, t01=0x001e}
0x0c04c…0c066 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BMXS30 NO! «, t00=0x007b, t01=0x003c}
0x0c066…0c098 Head {h00=0x002e, h01=0x0050, text=» SUKL A12,TTB:MT INCLUDE MMU TABLE IN TTAB«, t00=0x007b, t01=0x0056}
0x0c098…0c0c0 Head {h00=0x0024, h01=0x0050, text=» SUKL A10,TTB:MT INCLUDE LENGTH «, t00=0x007b, t01=0x0088}
0x0c0c0…0c0d2 Head {h00=0x000e, h01=0x0050, text=» RF BMXS40«, t00=0x007b, t01=0x00b0}
0x0c0d2…0c0fe Head {h00=0x0028, h01=0x0050, text=»BMXS30 LD A2,SCTOPT GET OPTION WORD «, t00=0x007b, t01=0x00c2}
0x0c0fe…0c11c Head {h00=0x001a, h01=0x0050, text=» ANK A2,2 DISC PAGING?«, t00=0x007b, t01=0x00ee}
0x0c11c…0c132 Head {h00=0x0012, h01=0x0050, text=» RF(Z) BMXS40 «, t00=0x007b, t01=0x010c}
0x0c132…0c16a Head {h00=0x0034, h01=0x0050, text=» SUKL A12,TTB:CB INCLUDE 3 WORDS FOR DISC PAGING«, t00=0x007b, t01=0x0122}
0x0c16a…0c194 Head {h00=0x0026, h01=0x0050, text=» SUKL A10,TTB:CB INCLUDE IN LENGTH«, t00=0x007b, t01=0x015a}
0x0c194…0c1cc Head {h00=0x0034, h01=0x0050, text=»BMXS40 AD A10,SCTSFA COMPUTE START OF FREE AREA «, t00=0x007b, t01=0x0184}
0x0c1cc…0c1e4 Head {h00=0x0014, h01=0x0050, text=» LDR A9,A10 SAVE«, t00=0x007c, t01=0x002c}
0x0c1e4…0c218 Head {h00=0x0030, h01=0x0050, text=» LD A11,STKEND+LIMIT GET END OF SYSTEM AREA «, t00=0x007c, t01=0x0044}
0x0c218…0c23e Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x007c, t01=0x0078}
0x0c23e…0c258 Head {h00=0x0016, h01=0x0050, text=» RF(NL) BMXS50 NO!«, t00=0x007c, t01=0x009e}
0x0c258…0c26e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x007c, t01=0x00b8}
0x0c26e…0c29a Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x007c, t01=0x00ce}
0x0c29a…0c2d0 Head {h00=0x0032, h01=0x0050, text=»BMXS50 ST A10,SCTSFA UPDATE START OF FREE AREA«, t00=0x007c, t01=0x00fa}
0x0c2d0…0c2fa Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET CURRENT LENGTH «, t00=0x007c, t01=0x0130}
0x0c2fa…0c328 Head {h00=0x002a, h01=0x0050, text=» AD A2,SCTTCT COMPUTE NEXT FREE ENTRY «, t00=0x007c, t01=0x015a}
0x0c328…0c34e Head {h00=0x0022, h01=0x0050, text=» STR A12,A2 STORE TTAB ADDRESS«, t00=0x007c, t01=0x0188}
0x0c34e…0c37a Head {h00=0x0028, h01=0x0050, text=» IM* SCTTCT INCREMENT CURRENT LENGTH«, t00=0x007d, t01=0x001e}
0x0c37a…0c394 Head {h00=0x0016, h01=0x0050, text=» IM* SCTTCT TWICE «, t00=0x007d, t01=0x004a}
0x0c394…0c3b4 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A1 GET TASK ID «, t00=0x007d, t01=0x0064}
0x0c3b4…0c3dc Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:ID,A12 STORE IN TTAB «, t00=0x007d, t01=0x0084}
0x0c3dc…0c40a Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MX:LEV GET MONITOR TASK LEVEL«, t00=0x007d, t01=0x00ac}
0x0c40a…0c432 Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:ST,A12 STORE IN TTAB «, t00=0x007d, t01=0x00da}
0x0c432…0c444 Head {h00=0x000e, h01=0x0050, text=» SLL A2,10«, t00=0x007d, t01=0x0102}
0x0c444…0c46a Head {h00=0x0022, h01=0x0050, text=» ORKL A2,/00C1 PROGRAM STATUS «, t00=0x007d, t01=0x0114}
0x0c46a…0c49e Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:PW,A12 STORE PROGRAM STATUS WORD «, t00=0x007d, t01=0x013a}
0x0c49e…0c4dc Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+EXCTAB GET EXTENT CONTROL BLOCK ADDRESS «, t00=0x007d, t01=0x016e}
0x0c4dc…0c504 Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:AP,A12 STORE IN TTAB «, t00=0x007e, t01=0x001c}
0x0c504…0c516 Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x007e, t01=0x0044}
0x0c516…0c54a Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:TD,A12 STORE DEVICE TABLE LENGTH «, t00=0x007e, t01=0x0056}
0x0c54a…0c562 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x007e, t01=0x008a}
0x0c562…0c570 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007e, t01=0x00a2}
0x0c570…0c5b6 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x007e, t01=0x00b0}
0x0c5b6…0c5fc Head {h00=0x0042, h01=0x0050, text=»* MX:MEB - FIND FIRST MONITOR EXTENT BLOCK *«, t00=0x007e, t01=0x00f6}
0x0c5fc…0c642 Head {h00=0x0042, h01=0x0050, text=»* ======================================== *«, t00=0x007e, t01=0x013c}
0x0c642…0c688 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x007e, t01=0x0182}
0x0c688…0c6ce Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: MX:MST *«, t00=0x007f, t01=0x0038}
0x0c6ce…0c714 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x007f, t01=0x007e}
0x0c714…0c75a Head {h00=0x0042, h01=0x0050, text=»* ENTRY: SCTMXS - ADDRESS TO MONITOR EXTENT TABLE *«, t00=0x007f, t01=0x00c4}
0x0c75a…0c7a0 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x007f, t01=0x010a}
0x0c7a0…0c7e6 Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR EXTENT BLOCK *«, t00=0x007f, t01=0x0150}
0x0c7e6…0c82c Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO NUMBER OF SEGTABS *«, t00=0x0080, t01=0x0008}
0x0c82c…0c872 Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES *«, t00=0x0080, t01=0x004e}
0x0c872…0c8b8 Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS *«, t00=0x0080, t01=0x0094}
0x0c8b8…0c8fe Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0080, t01=0x00da}
0x0c8fe…0c944 Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2 *«, t00=0x0080, t01=0x0120}
0x0c944…0c98a Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0080, t01=0x0166}
0x0c98a…0c9d0 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: *«, t00=0x0081, t01=0x001c}
0x0c9d0…0ca16 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0081, t01=0x0062}
0x0ca16…0ca5c Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0081, t01=0x00a8}
0x0ca5c…0ca6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0081, t01=0x00ee}
0x0ca6a…0ca7e Head {h00=0x0010, h01=0x0050, text=»MX:MEB EQU *«, t00=0x0081, t01=0x00fc}
0x0ca7e…0caaa Head {h00=0x0028, h01=0x0050, text=» LD A7,SCTMXS GET ADDRESS TO MXSTAB «, t00=0x0081, t01=0x0110}
0x0caaa…0cac2 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A7 SAVE «, t00=0x0081, t01=0x013c}
0x0cac2…0cae2 Head {h00=0x001c, h01=0x0050, text=» RF(Z) MEB99 NOT PRESENT«, t00=0x0081, t01=0x0154}
0x0cae2…0cb10 Head {h00=0x002a, h01=0x0050, text=» LD A2,MX:NOS,A7 GET NUMBER OF SEGTABS«, t00=0x0081, t01=0x0174}
0x0cb10…0cb28 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A2 SAVE «, t00=0x0082, t01=0x0012}
0x0cb28…0cb52 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A7 SAVE ADDRESS TO MXSTAB «, t00=0x0082, t01=0x002a}
0x0cb52…0cb80 Head {h00=0x002a, h01=0x0050, text=» LD A7,MX:NOX,A7 GET NUMBER OF EXTENTS«, t00=0x0082, t01=0x0054}
0x0cb80…0cbb0 Head {h00=0x002c, h01=0x0050, text=» ADK A1,MX:NOS ADDRESS NUMBER OF SEGTABS«, t00=0x0082, t01=0x0082}
0x0cbb0…0cbc8 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A1 SAVE «, t00=0x0082, t01=0x00b2}
0x0cbc8…0cbfa Head {h00=0x002e, h01=0x0050, text=»MEB10 ADK A1,2 ADDRESS NUMBER OF SEGMENTS «, t00=0x0082, t01=0x00ca}
0x0cbfa…0cc1a Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 MORE SEGTABS? «, t00=0x0082, t01=0x00fc}
0x0cc1a…0cc34 Head {h00=0x0016, h01=0x0050, text=» RB(NN) MEB10 YES «, t00=0x0082, t01=0x011c}
0x0cc34…0cc50 Head {h00=0x0018, h01=0x0050, text=»MEB99 RTN A14 RETURN«, t00=0x0082, t01=0x0136}
0x0cc50…0cc5e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0082, t01=0x0152}
0x0cc5e…0cca4 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0082, t01=0x0160}
0x0cca4…0ccea Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0083, t01=0x0016}
0x0ccea…0cd30 Head {h00=0x0042, h01=0x0050, text=»* MX:MST - GET FIRST MONITOR SEGMENT TABLE *«, t00=0x0083, t01=0x005c}
0x0cd30…0cd76 Head {h00=0x0042, h01=0x0050, text=»* ======================================== *«, t00=0x0083, t01=0x00a2}
0x0cd76…0cdbc Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0083, t01=0x00e8}
0x0cdbc…0ce02 Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: B:MSEG *«, t00=0x0083, t01=0x012e}
0x0ce02…0ce48 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0083, t01=0x0174}
0x0ce48…0ce8e Head {h00=0x0042, h01=0x0050, text=»* ENTRY: SCTMXS - ADDRESS TO MXSTAB *«, t00=0x0084, t01=0x002a}
0x0ce8e…0ced4 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0084, t01=0x0070}
0x0ced4…0cf1a Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TABLE *«, t00=0x0084, t01=0x00b6}
0x0cf1a…0cf60 Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO NUMBER OF SEGTABS *«, t00=0x0084, t01=0x00fc}
0x0cf60…0cfa6 Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES *«, t00=0x0084, t01=0x0142}
0x0cfa6…0cfec Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS *«, t00=0x0084, t01=0x0188}
0x0cfec…0d032 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0085, t01=0x003e}
0x0d032…0d078 Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2 *«, t00=0x0085, t01=0x0084}
0x0d078…0d0be Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0085, t01=0x00ca}
0x0d0be…0d104 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: MX:MEB *«, t00=0x0085, t01=0x0110}
0x0d104…0d14a Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0085, t01=0x0156}
0x0d14a…0d190 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0086, t01=0x000c}
0x0d190…0d19e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x0052}
0x0d19e…0d1b2 Head {h00=0x0010, h01=0x0050, text=»MX:MST EQU *«, t00=0x0086, t01=0x0060}
0x0d1b2…0d1f0 Head {h00=0x003a, h01=0x0050, text=» CALL MX:MEB GET POINTER TO FIRST MONITOR EXTENT BLOCK«, t00=0x0086, t01=0x0074}
0x0d1f0…0d226 Head {h00=0x0032, h01=0x0050, text=» LDR A2,A7 GET NUMBER OF MONITOR EXTENT BLOCKS«, t00=0x0086, t01=0x00b2}
0x0d226…0d266 Head {h00=0x003c, h01=0x0050, text=»MST10 SUK A2,1 DECREMENT NUMBER OF MONITOR EXTENT BLOCKS«, t00=0x0086, t01=0x00e8}
0x0d266…0d292 Head {h00=0x0028, h01=0x0050, text=» RF(N) MST99 NO MORE MONITOR EXTENTS«, t00=0x0086, t01=0x0128}
0x0d292…0d2ca Head {h00=0x0034, h01=0x0050, text=» ADK A1,MX:EBL ADDRESS NEXT MONITOR EXTENT BLOCK«, t00=0x0086, t01=0x0154}
0x0d2ca…0d2dc Head {h00=0x000e, h01=0x0050, text=» RB MST10 «, t00=0x0086, t01=0x018c}
0x0d2dc…0d2f8 Head {h00=0x0018, h01=0x0050, text=»MST99 RTN A14 RETURN«, t00=0x0087, t01=0x000e}
0x0d2f8…0d306 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0087, t01=0x002a}
0x0d306…0d34c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0087, t01=0x0038}
0x0d34c…0d392 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0087, t01=0x007e}
0x0d392…0d3d8 Head {h00=0x0042, h01=0x0050, text=»* MX:TDB - GET FIRST MONITOR EXTENT TASK DEFINITION BLOCK * «, t00=0x0087, t01=0x00c4}
0x0d3d8…0d41e Head {h00=0x0042, h01=0x0050, text=»* ======================================================= * «, t00=0x0087, t01=0x010a}
0x0d41e…0d464 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0087, t01=0x0150}
0x0d464…0d4aa Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: MX:STD * «, t00=0x0088, t01=0x0008}
0x0d4aa…0d4f0 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0088, t01=0x004e}
0x0d4f0…0d536 Head {h00=0x0042, h01=0x0050, text=»* ENTRY: SCTMXS - ADDRESS TO MXSTAB * «, t00=0x0088, t01=0x0094}
0x0d536…0d57c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0088, t01=0x00da}
0x0d57c…0d5c2 Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR EXTENT TASK * «, t00=0x0088, t01=0x0120}
0x0d5c2…0d608 Head {h00=0x0042, h01=0x0050, text=»* DEFINITION BLOCK * «, t00=0x0088, t01=0x0166}
0x0d608…0d64e Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * «, t00=0x0089, t01=0x001c}
0x0d64e…0d694 Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES * «, t00=0x0089, t01=0x0062}
0x0d694…0d6da Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS * «, t00=0x0089, t01=0x00a8}
0x0d6da…0d720 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0089, t01=0x00ee}
0x0d720…0d766 Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2,A3 * «, t00=0x0089, t01=0x0134}
0x0d766…0d7ac Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0089, t01=0x017a}
0x0d7ac…0d7f2 Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: MX:MST * «, t00=0x008a, t01=0x0030}
0x0d7f2…0d838 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x008a, t01=0x0076}
0x0d838…0d87e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x008a, t01=0x00bc}
0x0d87e…0d88c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008a, t01=0x0102}
0x0d88c…0d8a0 Head {h00=0x0010, h01=0x0050, text=»MX:TDB EQU *«, t00=0x008a, t01=0x0110}
0x0d8a0…0d8d4 Head {h00=0x0030, h01=0x0050, text=» CALL MX:MST GET FIRST MONITOR SEGMENT TABLE«, t00=0x008a, t01=0x0124}
0x0d8d4…0d904 Head {h00=0x002c, h01=0x0050, text=» LDR A2,A6 GET NUMBER OF SEGMENT TABLES «, t00=0x008a, t01=0x0158}
0x0d904…0d936 Head {h00=0x002e, h01=0x0050, text=»TDB10 ADK A5,2 ADDRESS NUMBER OF SEGMENTS «, t00=0x008a, t01=0x0188}
0x0d936…0d964 Head {h00=0x002a, h01=0x0050, text=» SUK A2,1 DECREMENT NUMBER OF SEGTABS «, t00=0x008b, t01=0x002a}
0x0d964…0d988 Head {h00=0x0020, h01=0x0050, text=» RF(N) TDB99 NO MORE SEGTABS«, t00=0x008b, t01=0x0058}
0x0d988…0d9b2 Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A5 GET NUMBER OF SEGMENTS«, t00=0x008b, t01=0x007c}
0x0d9b2…0d9e6 Head {h00=0x0030, h01=0x0050, text=»TDB20 SUK A3,1 DECREMENT NUMBER OF SEGMENTS «, t00=0x008b, t01=0x00a6}
0x0d9e6…0da0c Head {h00=0x0022, h01=0x0050, text=» RB(N) TDB10 NO MORE SEGMENTS «, t00=0x008b, t01=0x00da}
0x0da0c…0da42 Head {h00=0x0032, h01=0x0050, text=» ADK A1,MX:SBL INCREMENT SEGMENT BLOCK POINTER«, t00=0x008b, t01=0x0100}
0x0da42…0da54 Head {h00=0x000e, h01=0x0050, text=» RB TDB20 «, t00=0x008b, t01=0x0136}
0x0da54…0da70 Head {h00=0x0018, h01=0x0050, text=»TDB99 RTN A14 RETURN«, t00=0x008b, t01=0x0148}
0x0da70…0da7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008b, t01=0x0164}
0x0da7e…0dac4 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x008b, t01=0x0172}
0x0dac4…0db0a Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008c, t01=0x0028}
0x0db0a…0db50 Head {h00=0x0042, h01=0x0050, text=»* MS:STD - GET FIRST MONITOR SEGMENT TASK DEFINITION BLOCK *«, t00=0x008c, t01=0x006e}
0x0db50…0db96 Head {h00=0x0042, h01=0x0050, text=»* ======================================================== *«, t00=0x008c, t01=0x00b4}
0x0db96…0dbdc Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008c, t01=0x00fa}
0x0dbdc…0dc22 Head {h00=0x0042, h01=0x0050, text=»* REFERENCED IN: B:MXST *«, t00=0x008c, t01=0x0140}
0x0dc22…0dc68 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008c, t01=0x0186}
0x0dc68…0dcae Head {h00=0x0042, h01=0x0050, text=»* ENTRY: *«, t00=0x008d, t01=0x003c}
0x0dcae…0dcf4 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008d, t01=0x0082}
0x0dcf4…0dd3a Head {h00=0x0042, h01=0x0050, text=»* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TASK *«, t00=0x008d, t01=0x00c8}
0x0dd3a…0dd80 Head {h00=0x0042, h01=0x0050, text=»* DEFINITION BLOCK *«, t00=0x008d, t01=0x010e}
0x0dd80…0ddc6 Head {h00=0x0042, h01=0x0050, text=»* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK *«, t00=0x008d, t01=0x0154}
0x0ddc6…0de0c Head {h00=0x0042, h01=0x0050, text=»* A6 - NUMBER OF MONITOR SEGMENT TABLES *«, t00=0x008e, t01=0x000a}
0x0de0c…0de52 Head {h00=0x0042, h01=0x0050, text=»* A7 - NUMBER OF MONITOR EXTENTS *«, t00=0x008e, t01=0x0050}
0x0de52…0de98 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008e, t01=0x0096}
0x0de98…0dede Head {h00=0x0042, h01=0x0050, text=»* WORK REGISTERS: A2,A3 *«, t00=0x008e, t01=0x00dc}
0x0dede…0df24 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008e, t01=0x0122}
0x0df24…0df6a Head {h00=0x0042, h01=0x0050, text=»* SUBROUTINES: MX:TDB *«, t00=0x008e, t01=0x0168}
0x0df6a…0dfb0 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x008f, t01=0x001e}
0x0dfb0…0dff6 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x008f, t01=0x0064}
0x0dff6…0e004 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008f, t01=0x00aa}
0x0e004…0e018 Head {h00=0x0010, h01=0x0050, text=»MX:STD EQU *«, t00=0x008f, t01=0x00b8}
0x0e018…0e04e Head {h00=0x0032, h01=0x0050, text=» CALL MX:TDB GET FIRST MONITOR TASK DEF. BLOCK«, t00=0x008f, t01=0x00cc}
0x0e04e…0e07e Head {h00=0x002c, h01=0x0050, text=» LDR A2,A7 GET NUMBER OF MONITOR EXTENTS«, t00=0x008f, t01=0x0102}
0x0e07e…0e0b8 Head {h00=0x0036, h01=0x0050, text=»STD10 SUK A2,1 DECREMENT NUMBER OF MONITOR EXTENTS«, t00=0x008f, t01=0x0132}
0x0e0b8…0e0dc Head {h00=0x0020, h01=0x0050, text=» RF(N) STD99 NO MORE EXTENTS«, t00=0x008f, t01=0x016c}
0x0e0dc…0e10e Head {h00=0x002e, h01=0x0050, text=» LDR* A3,A1 GET NUMBER OF TASKS IN EXTENT «, t00=0x008f, t01=0x0190}
0x0e10e…0e134 Head {h00=0x0022, h01=0x0050, text=»STD20 ADK A1,2 ADDRESS TASK ID«, t00=0x0090, t01=0x0032}
0x0e134…0e160 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT NUMBER OF TASKS «, t00=0x0090, t01=0x0058}
0x0e160…0e180 Head {h00=0x001c, h01=0x0050, text=» RB(NN) STD20 MORE TASKS«, t00=0x0090, t01=0x0084}
0x0e180…0e19e Head {h00=0x001a, h01=0x0050, text=» RB STD10 NEXT EXTENT «, t00=0x0090, t01=0x00a4}
0x0e19e…0e1ba Head {h00=0x0018, h01=0x0050, text=»STD99 RTN A14 RETURN«, t00=0x0090, t01=0x00c2}
0x0e1ba…0e1c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0090, t01=0x00de}
0x0e1c6…0e1d4 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0090, t01=0x00ea}
0x0e1d4…0e1fa Head {h00=0x0022, h01=0x001e, text=»******************************«, t00=0x0090, t01=0x00f8}
0x0e1fa…0e220 Head {h00=0x0022, h01=0x001e, text=»* B:TT - BUILD TASK TABLES *«, t00=0x0090, t01=0x011e}
0x0e220…0e246 Head {h00=0x0022, h01=0x001e, text=»******************************«, t00=0x0090, t01=0x0144}
0x0e246…0e250 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0090, t01=0x016a}
0x0e250…0e270 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: SYSLDM«, t00=0x0090, t01=0x0174}
0x0e270…0e27a (145, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0091, t01=0x0004}
0x0e27a…0e28c Head {h00=0x000e, h01=0x0050, text=»* ENTRY: «, t00=0x0091, t01=0x000e}
0x0e28c…0e296 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0091, t01=0x0020}
0x0e296…0e2d2 Head {h00=0x0038, h01=0x0034, text=»* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES«, t00=0x0091, t01=0x002a}
0x0e2d2…0e2dc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0091, t01=0x0066}
0x0e2dc…0e2fe Head {h00=0x001e, h01=0x0019, text=»* WORK REGISERS: A1-A12 «, t00=0x0091, t01=0x0070}
0x0e2fe…0e308 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0091, t01=0x0092}
0x0e308…0e344 Head {h00=0x0038, h01=0x0033, text=»* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC «, t00=0x0091, t01=0x009c}
0x0e344…0e34e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0091, t01=0x00d8}
0x0e34e…0e37a Head {h00=0x0028, h01=0x0023, text=»* TASK TABLE LAYOUT «, t00=0x0091, t01=0x00e2}
0x0e37a…0e384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x010e}
0x0e384…0e3b2 Head {h00=0x002a, h01=0x0050, text=»* ------------------------«, t00=0x0091, t01=0x0118}
0x0e3b2…0e3e0 Head {h00=0x002a, h01=0x0050, text=»* TTB:AM I MMU ALLOCATION I«, t00=0x0091, t01=0x0146}
0x0e3e0…0e40e Head {h00=0x002a, h01=0x0050, text=»* I BIT MAP (4 WORDS) I«, t00=0x0091, t01=0x0174}
0x0e40e…0e43c Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0092, t01=0x0012}
0x0e43c…0e46a Head {h00=0x002a, h01=0x0050, text=»* TTB:MT I MMU I«, t00=0x0092, t01=0x0040}
0x0e46a…0e498 Head {h00=0x002a, h01=0x0026, text=»* I TABLE I«, t00=0x0092, t01=0x006e}
0x0e498…0e4c6 Head {h00=0x002a, h01=0x0026, text=»* I 16 I«, t00=0x0092, t01=0x009c}
0x0e4c6…0e4f4 Head {h00=0x002a, h01=0x0026, text=»* I WORDS I«, t00=0x0092, t01=0x00ca}
0x0e4f4…0e522 Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0092, t01=0x00f8}
0x0e522…0e550 Head {h00=0x002a, h01=0x0050, text=»* TTB:CB I CSB POINTER I«, t00=0x0092, t01=0x0126}
0x0e550…0e57e Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0092, t01=0x0154}
0x0e57e…0e5ac Head {h00=0x002a, h01=0x0050, text=»* TTB:SP I SEGTAB POINTER I«, t00=0x0092, t01=0x0182}
0x0e5ac…0e5da Head {h00=0x002a, h01=0x0050, text=»* I______________________I«, t00=0x0093, t01=0x0020}
0x0e5da…0e608 Head {h00=0x002a, h01=0x0050, text=»* TTB:SB I SEGM. BLOCK POINTER I«, t00=0x0093, t01=0x004e}
0x0e608…0e636 Head {h00=0x002a, h01=0x0050, text=»* I----------------------I«, t00=0x0093, t01=0x007c}
0x0e636…0e664 Head {h00=0x002a, h01=0x0050, text=»* TTB:AP I ACB POINTER I«, t00=0x0093, t01=0x00aa}
0x0e664…0e692 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0093, t01=0x00d8}
0x0e692…0e6c0 Head {h00=0x002a, h01=0x0026, text=»* TASK ENTRY I QUEUE I«, t00=0x0093, t01=0x0106}
0x0e6c0…0e6ee Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0093, t01=0x0134}
0x0e6ee…0e71c Head {h00=0x002a, h01=0x0026, text=»* TTB:ID I TASK IDENTIFICATION I«, t00=0x0093, t01=0x0162}
0x0e71c…0e74a Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0093, t01=0x0190}
0x0e74a…0e778 Head {h00=0x002a, h01=0x0026, text=»* TTB:ST I STATUS/LEVEL I«, t00=0x0094, t01=0x002e}
0x0e778…0e7a6 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0094, t01=0x005c}
0x0e7a6…0e7d4 Head {h00=0x002a, h01=0x0026, text=»* TTB:PP I PENDING QUEUE I«, t00=0x0094, t01=0x008a}
0x0e7d4…0e802 Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0094, t01=0x00b8}
0x0e802…0e830 Head {h00=0x002a, h01=0x0026, text=»* TTB:PW I PROGRAM STATUS WORD I«, t00=0x0094, t01=0x00e6}
0x0e830…0e85e Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0094, t01=0x0114}
0x0e85e…0e88c Head {h00=0x002a, h01=0x0026, text=»* TTB:SA I DISPATCH ADDRESS I«, t00=0x0094, t01=0x0142}
0x0e88c…0e8ba Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0094, t01=0x0170}
0x0e8ba…0e8e8 Head {h00=0x002a, h01=0x0026, text=»* I REGISTER I«, t00=0x0095, t01=0x000e}
0x0e8e8…0e916 Head {h00=0x002a, h01=0x0026, text=»* I SAVE I«, t00=0x0095, t01=0x003c}
0x0e916…0e944 Head {h00=0x002a, h01=0x0026, text=»* I AREA I«, t00=0x0095, t01=0x006a}
0x0e944…0e972 Head {h00=0x002a, h01=0x0026, text=»* I 14 I«, t00=0x0095, t01=0x0098}
0x0e972…0e9a0 Head {h00=0x002a, h01=0x0026, text=»* I WORDS I«, t00=0x0095, t01=0x00c6}
0x0e9a0…0e9ce Head {h00=0x002a, h01=0x0026, text=»* ------------------------«, t00=0x0095, t01=0x00f4}
0x0e9ce…0e9fc Head {h00=0x002a, h01=0x0026, text=»* TTB:TD I TASK I«, t00=0x0095, t01=0x0122}
0x0e9fc…0ea2a Head {h00=0x002a, h01=0x0050, text=»* I SAVE01URATION I«, t00=0x0095, t01=0x0150}
0x0ea2a…0ea58 Head {h00=0x002a, h01=0x0026, text=»* I TABLE I«, t00=0x0095, t01=0x017e}
0x0ea58…0ea86 Head {h00=0x002a, h01=0x0026, text=»* : :«, t00=0x0096, t01=0x001c}
0x0ea86…0eab4 Head {h00=0x002a, h01=0x0026, text=»* : :«, t00=0x0096, t01=0x004a}
0x0eab4…0eae2 Head {h00=0x002a, h01=0x0026, text=»* I______________________I«, t00=0x0096, t01=0x0078}
0x0eae2…0eb18 Head {h00=0x0032, h01=0x0050, text=»* TASK SAVE01URATION TABLE LAYOUT «, t00=0x0096, t01=0x00a6}
0x0eb18…0eb4c Head {h00=0x0030, h01=0x002c, text=»* ______________________________«, t00=0x0096, t01=0x00dc}
0x0eb4c…0eb80 Head {h00=0x0030, h01=0x002c, text=»* I LENGTH I«, t00=0x0096, t01=0x0110}
0x0eb80…0ebb4 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x0096, t01=0x0144}
0x0ebb4…0ebe8 Head {h00=0x0030, h01=0x002c, text=»* I INDEX/FILCODE I«, t00=0x0096, t01=0x0178}
0x0ebe8…0ec1c Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x0097, t01=0x001c}
0x0ec1c…0ec50 Head {h00=0x0030, h01=0x002c, text=»* I DWT-ADDRESS I«, t00=0x0097, t01=0x0050}
0x0ec50…0ec84 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x0097, t01=0x0084}
0x0ec84…0ecb8 Head {h00=0x0030, h01=0x002c, text=»* : :«, t00=0x0097, t01=0x00b8}
0x0ecb8…0ecec Head {h00=0x0030, h01=0x002c, text=»* : :«, t00=0x0097, t01=0x00ec}
0x0ecec…0ed20 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x0097, t01=0x0120}
0x0ed20…0ed54 Head {h00=0x0030, h01=0x002c, text=»* I INDEX/FILECODE I«, t00=0x0097, t01=0x0154}
0x0ed54…0ed88 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x0097, t01=0x0188}
0x0ed88…0edbc Head {h00=0x0030, h01=0x002c, text=»* I DWT-ADDRESS I«, t00=0x0098, t01=0x002c}
0x0edbc…0edf0 Head {h00=0x0030, h01=0x002c, text=»* ------------------------------«, t00=0x0098, t01=0x0060}
0x0edf0…0edfe Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0098, t01=0x0094}
0x0edfe…0ee10 Head {h00=0x000e, h01=0x0050, text=»B:TT EQU *«, t00=0x0098, t01=0x00a2}
0x0ee10…0ee3a Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x0098, t01=0x00b4}
0x0ee3a…0ee68 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0098, t01=0x00de}
0x0ee68…0ee8a Head {h00=0x001e, h01=0x0050, text=» ST A12,STKEND+SFASAV SAVE«, t00=0x0098, t01=0x010c}
0x0ee8a…0eebe Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0098, t01=0x012e}
0x0eebe…0eeec Head {h00=0x002a, h01=0x0050, text=» ST P,STKEND+WRK1 SAVE PROGRAM COUNTER«, t00=0x0098, t01=0x0162}
0x0eeec…0ef2a Head {h00=0x003a, h01=0x0050, text=» ST A11,STKEND+LCDSTA SAVE CONFIGURATION DATA POINTER «, t00=0x0098, t01=0x0190}
0x0ef2a…0ef58 Head {h00=0x002a, h01=0x0050, text=» ST P,STKEND+WRK2 SAVE PROGRAM COUNTER«, t00=0x0099, t01=0x003e}
0x0ef58…0ef62 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0099, t01=0x006c}
0x0ef62…0ef8e Head {h00=0x0028, h01=0x0024, text=»* GET NUMBER OF TASKS IN THIS CLASS«, t00=0x0099, t01=0x0076}
0x0ef8e…0ef98 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0099, t01=0x00a2}
0x0ef98…0efac Head {h00=0x0010, h01=0x000c, text=» CALL GETTSK«, t00=0x0099, t01=0x00ac}
0x0efac…0efde Head {h00=0x002e, h01=0x0050, text=» ST A1,STKEND+NBRTSK SAVE NUMBER OF TASKS «, t00=0x0099, t01=0x00c0}
0x0efde…0efe8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0099, t01=0x00f2}
0x0efe8…0f00a Head {h00=0x001e, h01=0x001a, text=»* GET TASK ID START VALUE«, t00=0x0099, t01=0x00fc}
0x0f00a…0f014 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0099, t01=0x011e}
0x0f014…0f040 Head {h00=0x0028, h01=0x0050, text=» LC A5,TDBID+4,A11 GET FIRST ID CHAR«, t00=0x0099, t01=0x0128}
0x0f040…0f064 Head {h00=0x0020, h01=0x001b, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x0099, t01=0x0154}
0x0f064…0f092 Head {h00=0x002a, h01=0x0050, text=» LC A5,TDBID+5,A11 GET SECOND ID DIGIT«, t00=0x0099, t01=0x0178}
0x0f092…0f0c8 Head {h00=0x0032, h01=0x0050, text=» ST A5,STKEND+TASKID SAVE TASK ID START VALUE «, t00=0x009a, t01=0x0016}
0x0f0c8…0f0d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x004c}
0x0f0d2…0f0f8 Head {h00=0x0022, h01=0x0050, text=»* CHECK IF CREDIT APPLICATION«, t00=0x009a, t01=0x0056}
0x0f0f8…0f102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x007c}
0x0f102…0f13c Head {h00=0x0036, h01=0x0050, text=» LD A5,STKEND+APCSTA GET APPLICATION CONTROL BLOCK«, t00=0x009a, t01=0x0086}
0x0f13c…0f16a Head {h00=0x002a, h01=0x0050, text=» LD A5,APLTYP,A5 GET APPLICATION TYPE «, t00=0x009a, t01=0x00c0}
0x0f16a…0f192 Head {h00=0x0024, h01=0x0050, text=» CWK A5,'CR' CREDIT APPLICATION?«, t00=0x009a, t01=0x00ee}
0x0f192…0f1a8 Head {h00=0x0012, h01=0x0050, text=» RF(NE) BTT21 «, t00=0x009a, t01=0x0116}
0x0f1a8…0f1b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009a, t01=0x012c}
0x0f1b6…0f1c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x013a}
0x0f1c0…0f1e8 Head {h00=0x0024, h01=0x0050, text=»* GET TASK CLASS TO MATCH VALUE«, t00=0x009a, t01=0x0144}
0x0f1e8…0f1f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x016c}
0x0f1f2…0f222 Head {h00=0x002c, h01=0x0050, text=» LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL«, t00=0x009a, t01=0x0176}
0x0f222…0f246 Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x009b, t01=0x0016}
0x0f246…0f278 Head {h00=0x002e, h01=0x0050, text=» LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL «, t00=0x009b, t01=0x003a}
0x0f278…0f2a0 Head {h00=0x0024, h01=0x0050, text=» CALL GETTCL GET TCL START VALUE«, t00=0x009b, t01=0x006c}
0x0f2a0…0f2c2 Head {h00=0x001e, h01=0x0050, text=» ST A5,STKEND+TCLSAV SAVE «, t00=0x009b, t01=0x0094}
0x0f2c2…0f2d6 Head {h00=0x0010, h01=0x0050, text=»BTT21 EQU * «, t00=0x009b, t01=0x00b6}
0x0f2d6…0f2e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009b, t01=0x00ca}
0x0f2e4…0f2ee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009b, t01=0x00d8}
0x0f2ee…0f308 Head {h00=0x0016, h01=0x0011, text=»* GET TASK LEVEL «, t00=0x009b, t01=0x00e2}
0x0f308…0f312 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x009b, t01=0x00fc}
0x0f312…0f346 Head {h00=0x0030, h01=0x0050, text=» LC A5,TDBTL+4,A11 GET FIRST DIGIT IN LEVEL «, t00=0x009b, t01=0x0106}
0x0f346…0f36a Head {h00=0x0020, h01=0x001b, text=» SLL A5,8 MOVE TO LEFT BYTE «, t00=0x009b, t01=0x013a}
0x0f36a…0f39e Head {h00=0x0030, h01=0x0050, text=» LC A5,TDBTL+5,A11 GET SECOND DIGIT IN LEVEL«, t00=0x009b, t01=0x015e}
0x0f39e…0f3c4 (156, 0, 400) Head {h00=0x0022, h01=0x001e, text=» CALL CONVRT CONVERT TO BINARY«, t00=0x009c, t01=0x0004}
0x0f3c4…0f3e6 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+TSKLEV SAVE «, t00=0x009c, t01=0x002a}
0x0f3e6…0f3f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009c, t01=0x004c}
0x0f3f4…0f3fe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009c, t01=0x005a}
0x0f3fe…0f444 Head {h00=0x0042, h01=0x0050, text=»* COMPUTE SIZE OF CONFIGURATION DEPENDENT PART OF TASK TABLE «, t00=0x009c, t01=0x0064}
0x0f444…0f44e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009c, t01=0x00aa}
0x0f44e…0f478 Head {h00=0x0026, h01=0x0050, text=» LDKL A10,TTB:TD+4 STANDARD LENGTH«, t00=0x009c, t01=0x00b4}
0x0f478…0f49e Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x009c, t01=0x00de}
0x0f49e…0f4d6 Head {h00=0x0034, h01=0x0050, text=» ANK A5,/21 CHECK IF EMM AND MMU PAGING INCLUDED«, t00=0x009c, t01=0x0104}
0x0f4d6…0f4f8 Head {h00=0x001e, h01=0x0050, text=» XRK A5,/21 BOTH INCLUDED?«, t00=0x009c, t01=0x013c}
0x0f4f8…0f512 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BTT22 NO! «, t00=0x009c, t01=0x015e}
0x0f512…0f546 Head {h00=0x0030, h01=0x0050, text=» SUKL A10,TTB:AM+2 INCLUDE BIT MAP IN LENGTH«, t00=0x009c, t01=0x0178}
0x0f546…0f578 Head {h00=0x002e, h01=0x0050, text=» SUKL A12,TTB:AM RESERV SPACE FOR BIT MAP «, t00=0x009d, t01=0x001c}
0x0f578…0f58a Head {h00=0x000e, h01=0x0050, text=» RF BTT30 «, t00=0x009d, t01=0x004e}
0x0f58a…0f5a4 Head {h00=0x0016, h01=0x0050, text=»BTT22 LD A5,SCTOPT«, t00=0x009d, t01=0x0060}
0x0f5a4…0f5c2 Head {h00=0x001a, h01=0x0050, text=» SRC A5,1 MMU PAGING? «, t00=0x009d, t01=0x007a}
0x0f5c2…0f5da Head {h00=0x0014, h01=0x0050, text=» RF(NN) BTT25 NO«, t00=0x009d, t01=0x0098}
0x0f5da…0f60c Head {h00=0x002e, h01=0x0050, text=» SUKL A10,TTB:MT+2 16+2 WORD EXTRA IF MMU «, t00=0x009d, t01=0x00b0}
0x0f60c…0f642 Head {h00=0x0032, h01=0x002d, text=» SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS «, t00=0x009d, t01=0x00e2}
0x0f642…0f654 Head {h00=0x000e, h01=0x0009, text=» RF BTT30 «, t00=0x009d, t01=0x0118}
0x0f654…0f668 Head {h00=0x0010, h01=0x0050, text=»BTT25 EQU * «, t00=0x009d, t01=0x012a}
0x0f668…0f686 Head {h00=0x001a, h01=0x0050, text=» SRC A5,1 DISC PAGING?«, t00=0x009d, t01=0x013e}
0x0f686…0f6a0 Head {h00=0x0016, h01=0x0050, text=» RF(NN) BTT30 NO! «, t00=0x009d, t01=0x015c}
0x0f6a0…0f6da Head {h00=0x0036, h01=0x0050, text=» SUKL A10,TTB:CB+2 FOUR WORD EXTRA IF DISC PAGING «, t00=0x009d, t01=0x0176}
0x0f6da…0f70e Head {h00=0x0030, h01=0x0050, text=» SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD«, t00=0x009e, t01=0x0020}
0x0f70e…0f722 Head {h00=0x0010, h01=0x0050, text=»BTT30 EQU * «, t00=0x009e, t01=0x0054}
0x0f722…0f730 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009e, t01=0x0068}
0x0f730…0f73a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009e, t01=0x0076}
0x0f73a…0f77a Head {h00=0x003c, h01=0x0037, text=»* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART «, t00=0x009e, t01=0x0080}
0x0f77a…0f7a0 Head {h00=0x0022, h01=0x0050, text=»* OF TASK CONFIGURATION TABLE«, t00=0x009e, t01=0x00c0}
0x0f7a0…0f7aa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x009e, t01=0x00e6}
0x0f7aa…0f7c8 Head {h00=0x001a, h01=0x0016, text=» LDK A6,0 RESET LENGTH«, t00=0x009e, t01=0x00f0}
0x0f7c8…0f806 Head {h00=0x003a, h01=0x0035, text=» LDR A9,A11 INIT SUB-POINTER IN TASK DEFINITION BLOCK «, t00=0x009e, t01=0x010e}
0x0f806…0f83e Head {h00=0x0034, h01=0x0030, text=» ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION«, t00=0x009e, t01=0x014c}
0x0f83e…0f866 Head {h00=0x0024, h01=0x0020, text=» CALL GETTDC GET NUMBER OF TDC:S«, t00=0x009e, t01=0x0184}
0x0f866…0f87e Head {h00=0x0014, h01=0x000f, text=» LDR A7,A1 SAVE «, t00=0x009f, t01=0x001c}
0x0f87e…0f892 Head {h00=0x0010, h01=0x0050, text=»BTT35 EQU * «, t00=0x009f, t01=0x0034}
0x0f892…0f8a6 Head {h00=0x0010, h01=0x000c, text=» RF(Z) BTT40«, t00=0x009f, t01=0x0048}
0x0f8a6…0f8d2 Head {h00=0x0028, h01=0x0024, text=» CALL GETCLN GET CLASS NUMBER (1-99)«, t00=0x009f, t01=0x005c}
0x0f8d2…0f8fc Head {h00=0x0026, h01=0x0022, text=» ADR A1,A1 2*(BINARY CLASS NUMBER)«, t00=0x009f, t01=0x0088}
0x0f8fc…0f92c Head {h00=0x002c, h01=0x0050, text=» LD A8,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x009f, t01=0x00b2}
0x0f92c…0f940 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x009f, t01=0x00e2}
0x0f940…0f952 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x009f, t01=0x00f6}
0x0f952…0f964 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x009f, t01=0x0108}
0x0f964…0f97a Head {h00=0x0012, h01=0x0050, text=» RF(NG) BTT37 «, t00=0x009f, t01=0x011a}
0x0f97a…0f990 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x009f, t01=0x0130}
0x0f990…0f9ba Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE FORMAT ERROR «, t00=0x009f, t01=0x0146}
0x0f9ba…0f9ce Head {h00=0x0010, h01=0x0050, text=»BTT37 EQU * «, t00=0x009f, t01=0x0170}
0x0f9ce…0f9f4 Head {h00=0x0022, h01=0x0050, text=» ADR A8,A1 GET ENTRY IN TCLASS«, t00=0x009f, t01=0x0184}
0x0f9f4…0fa1c Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x00a0, t01=0x001a}
0x0fa1c…0fa44 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x00a0, t01=0x0042}
0x0fa44…0fa6a Head {h00=0x0022, h01=0x001e, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x00a0, t01=0x006a}
0x0fa6a…0fa96 Head {h00=0x0028, h01=0x0024, text=» ADR A10,A8 ADD TO TOTAL TTAB LENGTH«, t00=0x00a0, t01=0x0090}
0x0fa96…0fac8 Head {h00=0x002e, h01=0x0029, text=» ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH «, t00=0x00a0, t01=0x00bc}
0x0fac8…0faec Head {h00=0x0020, h01=0x001b, text=» ADKL A9,TDC+TLC NEXT CLASS «, t00=0x00a0, t01=0x00ee}
0x0faec…0fb18 Head {h00=0x0028, h01=0x0023, text=» SUK A7,1 DECREMENT NUMBER OF TDC:S «, t00=0x00a0, t01=0x0112}
0x0fb18…0fb2a Head {h00=0x000e, h01=0x0009, text=» RB BTT35 «, t00=0x00a0, t01=0x013e}
0x0fb2a…0fb38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a0, t01=0x0150}
0x0fb38…0fb4c Head {h00=0x0010, h01=0x0050, text=»BTT40 EQU * «, t00=0x00a0, t01=0x015e}
0x0fb4c…0fb56 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a0, t01=0x0172}
0x0fb56…0fb98 Head {h00=0x003e, h01=0x003a, text=»* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF «, t00=0x00a0, t01=0x017c}
0x0fb98…0fbbc Head {h00=0x0020, h01=0x0050, text=»* TASK CONFIGURATION TABLE «, t00=0x00a1, t01=0x002e}
0x0fbbc…0fbc6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a1, t01=0x0052}
0x0fbc6…0fc00 Head {h00=0x0036, h01=0x0031, text=» CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x00a1, t01=0x005c}
0x0fc00…0fc24 Head {h00=0x0020, h01=0x0050, text=» ADKL A9,2 FIRST SDC RECORD «, t00=0x00a1, t01=0x0096}
0x0fc24…0fc3c Head {h00=0x0014, h01=0x000f, text=» LDR A7,A1 SAVE «, t00=0x00a1, t01=0x00ba}
0x0fc3c…0fc50 Head {h00=0x0010, h01=0x0050, text=»BTT50 EQU * «, t00=0x00a1, t01=0x00d2}
0x0fc50…0fc74 Head {h00=0x0020, h01=0x001b, text=» RF(Z) BTT55 NO MOORE SDC:S «, t00=0x00a1, t01=0x00e6}
0x0fc74…0fca0 Head {h00=0x0028, h01=0x0024, text=» CALL GETCLN GET CLASS NUMBER (1-99)«, t00=0x00a1, t01=0x010a}
0x0fca0…0fcca Head {h00=0x0026, h01=0x0022, text=» ADR A1,A1 2*(BINARY CLASS NUMBER)«, t00=0x00a1, t01=0x0136}
0x0fcca…0fcfa Head {h00=0x002c, h01=0x0050, text=» LD A8,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00a1, t01=0x0160}
0x0fcfa…0fd0e Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x00a1, t01=0x0190}
0x0fd0e…0fd20 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00a2, t01=0x0014}
0x0fd20…0fd32 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x00a2, t01=0x0026}
0x0fd32…0fd48 Head {h00=0x0012, h01=0x0050, text=» RF(NG) BTT52 «, t00=0x00a2, t01=0x0038}
0x0fd48…0fd5e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x00a2, t01=0x004e}
0x0fd5e…0fd88 Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE FORMAT ERROR «, t00=0x00a2, t01=0x0064}
0x0fd88…0fd9c Head {h00=0x0010, h01=0x0050, text=»BTT52 EQU * «, t00=0x00a2, t01=0x008e}
0x0fd9c…0fdc2 Head {h00=0x0022, h01=0x0050, text=» ADR A8,A1 GET ENTRY IN SCLASS«, t00=0x00a2, t01=0x00a2}
0x0fdc2…0fdea Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x00a2, t01=0x00c8}
0x0fdea…0fe12 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x00a2, t01=0x00f0}
0x0fe12…0fe38 Head {h00=0x0022, h01=0x001e, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x00a2, t01=0x0118}
0x0fe38…0fe64 Head {h00=0x0028, h01=0x0024, text=» ADR A10,A8 ADD TO TOTAL TTAB LENGTH«, t00=0x00a2, t01=0x013e}
0x0fe64…0fe96 Head {h00=0x002e, h01=0x0029, text=» ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH «, t00=0x00a2, t01=0x016a}
0x0fe96…0feb6 Head {h00=0x001c, h01=0x0017, text=» ADKL A9,SDC NEXT CLASS «, t00=0x00a3, t01=0x000c}
0x0feb6…0fee2 Head {h00=0x0028, h01=0x0023, text=» SUK A7,1 DECREMENT NUMBER OF SDC:S «, t00=0x00a3, t01=0x002c}
0x0fee2…0fef4 Head {h00=0x000e, h01=0x0009, text=» RB BTT50 «, t00=0x00a3, t01=0x0058}
0x0fef4…0ff08 Head {h00=0x0010, h01=0x0050, text=»BTT55 EQU * «, t00=0x00a3, t01=0x006a}
0x0ff08…0ff1a Head {h00=0x000e, h01=0x0050, text=» IFF EDM=0«, t00=0x00a3, t01=0x007e}
0x0ff1a…0ff44 Head {h00=0x0026, h01=0x0050, text=» ADKL A10,14 7 EXTRA WORDS FOR EDM«, t00=0x00a3, t01=0x0090}
0x0ff44…0ff50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a3, t01=0x00ba}
0x0ff50…0ff76 Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 INCLUDE LENGTH WORD «, t00=0x00a3, t01=0x00c6}
0x0ff76…0ffae Head {h00=0x0034, h01=0x0050, text=» LD A7,STKEND+CUTENT GET CURRENT ENTRY IN TC:TAB«, t00=0x00a3, t01=0x00ec}
0x0ffae…0ffec Head {h00=0x003a, h01=0x0050, text=» LD A8,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS«, t00=0x00a3, t01=0x0124}
0x0ffec…10000 Head {h00=0x0010, h01=0x0050, text=»BTT60 EQU * «, t00=0x00a3, t01=0x0162}
0x10000…10014 Head {h00=0x0010, h01=0x000c, text=» RF(Z) BTT70«, t00=0x00a3, t01=0x0176}
0x10014…10036 Head {h00=0x001e, h01=0x0050, text=» ST A9,STKEND+WRK3 SAVE A9«, t00=0x00a3, t01=0x018a}
0x10036…1005a Head {h00=0x0020, h01=0x0050, text=» ST A11,STKEND+WRK4 SAVE A11«, t00=0x00a4, t01=0x001c}
0x1005a…1007e Head {h00=0x0020, h01=0x0050, text=» LDR A9,A10 GET TTAB LENGTH «, t00=0x00a4, t01=0x0040}
0x1007e…100b6 Head {h00=0x0034, h01=0x0050, text=» AD A9,STKEND+SFASAV COMPUTE END OF FREE AREA =2«, t00=0x00a4, t01=0x0064}
0x100b6…100d6 Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+SFASAV =2«, t00=0x00a4, t01=0x009c}
0x100d6…1010a Head {h00=0x0030, h01=0x0050, text=» LD A11,STKEND+LIMIT GET END OF SYSTEM AREA «, t00=0x00a4, t01=0x00bc}
0x1010a…10138 Head {h00=0x002a, h01=0x0050, text=» CALL CMPADR CHECK IF MEMORY OVERFLOW «, t00=0x00a4, t01=0x00f0}
0x10138…10156 Head {h00=0x001a, h01=0x0050, text=» RF(NL) BTT61 NOT YET «, t00=0x00a4, t01=0x011e}
0x10156…10184 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00a4, t01=0x013c}
0x10184…10198 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00a4, t01=0x016a}
0x10198…101c2 Head {h00=0x0026, h01=0x0050, text=»BTT61 LD A9,STKEND+WRK3 RESTORE A9«, t00=0x00a4, t01=0x017e}
0x101c2…101ea Head {h00=0x0024, h01=0x0050, text=» LD A11,STKEND+WRK4 RESTORE A11 «, t00=0x00a5, t01=0x0018}
0x101ea…101f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a5, t01=0x0040}
0x101f4…10230 Head {h00=0x0038, h01=0x0050, text=»* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB «, t00=0x00a5, t01=0x004a}
0x10230…1023a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a5, t01=0x0086}
0x1023a…10254 Head {h00=0x0016, h01=0x0050, text=» ST A6,TTB:TD,A12 «, t00=0x00a5, t01=0x0090}
0x10254…1025e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a5, t01=0x00aa}
0x1025e…1029c Head {h00=0x003a, h01=0x0036, text=»* STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD«, t00=0x00a5, t01=0x00b4}
0x1029c…102a6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a5, t01=0x00f2}
0x102a6…102d2 Head {h00=0x0028, h01=0x0050, text=» LD A5,STKEND+TSKLEV GET TASK LEVEL «, t00=0x00a5, t01=0x00fc}
0x102d2…102fa Head {h00=0x0024, h01=0x001f, text=» ST A5,TTB:ST,A12 STORE IN TTAB «, t00=0x00a5, t01=0x0128}
0x102fa…10304 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a5, t01=0x0150}
0x10304…10344 Head {h00=0x003c, h01=0x0037, text=»* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD «, t00=0x00a5, t01=0x015a}
0x10344…1034e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a6, t01=0x000a}
0x1034e…10378 Head {h00=0x0026, h01=0x0050, text=» SLL A5,10 MOVE LEVEL TO LEFT BYTE«, t00=0x00a6, t01=0x0014}
0x10378…1038e Head {h00=0x0012, h01=0x0050, text=» ORKL A5,/00C0«, t00=0x00a6, t01=0x003e}
0x1038e…103b4 Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x00a6, t01=0x0054}
0x103b4…103d2 Head {h00=0x001a, h01=0x0050, text=» ANK A2,1 MMU OPTION? «, t00=0x00a6, t01=0x007a}
0x103d2…103f6 Head {h00=0x0020, h01=0x0050, text=» ORR A5,A2 SET BIT 15 IF MMU«, t00=0x00a6, t01=0x0098}
0x103f6…1041e Head {h00=0x0024, h01=0x001f, text=» ST A5,TTB:PW,A12 STORE IN TTAB «, t00=0x00a6, t01=0x00bc}
0x1041e…10434 Head {h00=0x0012, h01=0x0050, text=» IFF MMUPAG=0 «, t00=0x00a6, t01=0x00e4}
0x10434…1045e Head {h00=0x0026, h01=0x0050, text=» CALL MMUINI INITIALIZE MMU TABLE «, t00=0x00a6, t01=0x00fa}
0x1045e…1046a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a6, t01=0x0124}
0x1046a…10474 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a6, t01=0x0130}
0x10474…104a0 Head {h00=0x0028, h01=0x0024, text=»* STORE TASK IDENTIFICATION IN TTAB«, t00=0x00a6, t01=0x013a}
0x104a0…104aa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a6, t01=0x0166}
0x104aa…104d8 Head {h00=0x002a, h01=0x0050, text=»BTT62 LD A5,STKEND+TASKID GET TASK ID «, t00=0x00a6, t01=0x0170}
0x104d8…10500 Head {h00=0x0024, h01=0x001f, text=» ST A5,TTB:ID,A12 STORE IN TTAB «, t00=0x00a7, t01=0x000e}
0x10500…10524 Head {h00=0x0020, h01=0x001b, text=» ADK A5,1 INCREMENT TASK ID «, t00=0x00a7, t01=0x0036}
0x10524…10560 Head {h00=0x0038, h01=0x0050, text=» ST A5,STKEND+TASKID SAVE TO NEXT TASK IN SAME CLASS«, t00=0x00a7, t01=0x005a}
0x10560…10594 Head {h00=0x0030, h01=0x0050, text=» LD A5,STKEND+APCSTA GET APPL. CONTROL BLOCK«, t00=0x00a7, t01=0x0096}
0x10594…105c4 Head {h00=0x002c, h01=0x0050, text=» ST A5,TTB:AP,A12 STORE ADDRESS IN TTAB «, t00=0x00a7, t01=0x00ca}
0x105c4…105ec Head {h00=0x0024, h01=0x0050, text=» LD A5,APLTYP,A5 GET APPL. TYPE «, t00=0x00a7, t01=0x00fa}
0x105ec…10608 Head {h00=0x0018, h01=0x0050, text=» CWK A5,'CR' CREDIT?«, t00=0x00a7, t01=0x0122}
0x10608…10620 Head {h00=0x0014, h01=0x0050, text=» RF(NE) BTT65 NO«, t00=0x00a7, t01=0x013e}
0x10620…1062a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0156}
0x1062a…10656 Head {h00=0x0028, h01=0x0050, text=»* STORE TASK CLASS TO MATCH IN TTAB«, t00=0x00a7, t01=0x0160}
0x10656…10660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x018c}
0x10660…10690 Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+TCLSAV GET TCL START VALUE«, t00=0x00a8, t01=0x0008}
0x10690…106b6 Head {h00=0x0022, h01=0x0050, text=» ST A5,TTB:PP,A12 SAVE IN TTAB«, t00=0x00a8, t01=0x0038}
0x106b6…106d6 Head {h00=0x001c, h01=0x0050, text=» ADK A5,1 INCREMENT TCL«, t00=0x00a8, t01=0x005e}
0x106d6…106f8 Head {h00=0x001e, h01=0x0050, text=» ST A5,STKEND+TCLSAV SAVE «, t00=0x00a8, t01=0x007e}
0x106f8…1070c Head {h00=0x0010, h01=0x0050, text=»BTT65 EQU * «, t00=0x00a8, t01=0x00a0}
0x1070c…1073c Head {h00=0x002c, h01=0x0027, text=» STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB «, t00=0x00a8, t01=0x00b4}
0x1073c…10762 Head {h00=0x0022, h01=0x001e, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x00a8, t01=0x00e4}
0x10762…1079c Head {h00=0x0036, h01=0x0050, text=» ST A7,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY «, t00=0x00a8, t01=0x010a}
0x1079c…107d4 Head {h00=0x0034, h01=0x002f, text=» ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS «, t00=0x00a8, t01=0x0144}
0x107d4…1080e Head {h00=0x0036, h01=0x0032, text=» SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS«, t00=0x00a8, t01=0x017c}
0x1080e…10820 Head {h00=0x000e, h01=0x0009, text=» RB BTT60 «, t00=0x00a9, t01=0x0026}
0x10820…1082e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a9, t01=0x0038}
0x1082e…10842 Head {h00=0x0010, h01=0x0050, text=»BTT70 EQU * «, t00=0x00a9, t01=0x0046}
0x10842…1084c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a9, t01=0x005a}
0x1084c…1087a Head {h00=0x002a, h01=0x0026, text=»* RESET POINTER TO START OF FREE AREA«, t00=0x00a9, t01=0x0064}
0x1087a…10884 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00a9, t01=0x0092}
0x10884…108a2 Head {h00=0x001a, h01=0x0050, text=» LD A12,STKEND+SFASAV «, t00=0x00a9, t01=0x009c}
0x108a2…108b6 Head {h00=0x0010, h01=0x0050, text=»BTT90 EQU * «, t00=0x00a9, t01=0x00ba}
0x108b6…108da Head {h00=0x0020, h01=0x001b, text=» CALL NXTBLK GET NEXT BLOCK «, t00=0x00a9, t01=0x00ce}
0x108da…10906 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00a9, t01=0x00f2}
0x10906…1091c Head {h00=0x0012, h01=0x0050, text=» RF(NE) BTT95 «, t00=0x00a9, t01=0x011e}
0x1091c…10936 Head {h00=0x0016, h01=0x0050, text=» LD P,STKEND+WRK2 «, t00=0x00a9, t01=0x0134}
0x10936…1094a Head {h00=0x0010, h01=0x0050, text=»BTT95 EQU * «, t00=0x00a9, t01=0x014e}
0x1094a…10970 Head {h00=0x0022, h01=0x0050, text=» CALL NXTAPL NEXT APPLICATION «, t00=0x00a9, t01=0x0162}
0x10970…10984 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BTT98«, t00=0x00a9, t01=0x0188}
0x10984…1099e Head {h00=0x0016, h01=0x0050, text=» LD P,STKEND+WRK1 «, t00=0x00aa, t01=0x000c}
0x1099e…109d2 Head {h00=0x0030, h01=0x0050, text=»BTT98 ST A12,SCTSFA SAVE START OF FREE AREA «, t00=0x00aa, t01=0x0026}
0x109d2…109f6 Head {h00=0x0020, h01=0x0050, text=» SU A7,SCTTCT COMPUTE LENGTH«, t00=0x00aa, t01=0x005a}
0x109f6…10a12 Head {h00=0x0018, h01=0x0050, text=» ST* A7,SCTTCT STORE«, t00=0x00aa, t01=0x007e}
0x10a12…10a2a Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x00aa, t01=0x009a}
0x10a2a…10a40 Head {h00=0x0012, h01=0x0050, text=» IFF SWPBLK=0 «, t00=0x00aa, t01=0x00b2}
0x10a40…10a4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00aa, t01=0x00c8}
0x10a4e…10a62 Head {h00=0x0010, h01=0x0050, text=»B:SWBT EQU *«, t00=0x00aa, t01=0x00d6}
0x10a62…10a8a Head {h00=0x0024, h01=0x0050, text=» CALL PUSH SAVE REGISTER A1-A14 «, t00=0x00aa, t01=0x00ea}
0x10a8a…10ab0 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00aa, t01=0x0112}
0x10ab0…10ad6 Head {h00=0x0022, h01=0x0050, text=» ANK A1,8 SWB OPTION INCLUDED «, t00=0x00aa, t01=0x0138}
0x10ad6…10aee Head {h00=0x0014, h01=0x0050, text=» RF(Z) BSWT42 NO«, t00=0x00aa, t01=0x015e}
0x10aee…10b22 Head {h00=0x0030, h01=0x0050, text=» CM STKCOM+APPLNO RESET APPLICATION COUNTER «, t00=0x00aa, t01=0x0176}
0x10b22…10b52 Head {h00=0x002c, h01=0x0050, text=» ST P,STKEND+LIMIT SAVE LOCATION COUNTER«, t00=0x00ab, t01=0x001a}
0x10b52…10b86 Head {h00=0x0030, h01=0x0050, text=»BSWT05 LDKL A1,'CR' APPLICATION TYPE=CREDIT «, t00=0x00ab, t01=0x004a}
0x10b86…10bb6 Head {h00=0x002c, h01=0x0050, text=» CALL GETAPP GET NEXT CREDIT APPLICATION«, t00=0x00ab, t01=0x007e}
0x10bb6…10be0 Head {h00=0x0026, h01=0x0050, text=» RF(Z) BSWT42 NO MORE APPLICATIONS«, t00=0x00ab, t01=0x00ae}
0x10be0…10c04 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A1 GET ACB ADDRESS «, t00=0x00ab, t01=0x00d8}
0x10c04…10c26 Head {h00=0x001e, h01=0x0050, text=» ST A10,STKEND+APCSTA SAVE«, t00=0x00ab, t01=0x00fc}
0x10c26…10c50 Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x00ab, t01=0x011e}
0x10c50…10c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0148}
0x10c5a…10c98 Head {h00=0x003a, h01=0x0050, text=»* SEARCH FOR SWB TYPE DEFINITION BLOCK IN CONF. FILE «, t00=0x00ab, t01=0x0152}
0x10c98…10ca2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0190}
0x10ca2…10ccc Head {h00=0x0026, h01=0x0050, text=»BSWT10 CALL NXTBLK GET NEXT BLOCK «, t00=0x00ac, t01=0x000a}
0x10ccc…10cf8 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00ac, t01=0x0034}
0x10cf8…10d12 Head {h00=0x0016, h01=0x0050, text=» RB(E) BSWT10 YES!«, t00=0x00ac, t01=0x0060}
0x10d12…10d46 Head {h00=0x0030, h01=0x0050, text=» CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK?«, t00=0x00ac, t01=0x007a}
0x10d46…10d60 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT20 NO!«, t00=0x00ac, t01=0x00ae}
0x10d60…10d74 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x00ac, t01=0x00c8}
0x10d74…10d9a Head {h00=0x0022, h01=0x0050, text=» CALL NXTCOM SKIP COMMON BLOCK«, t00=0x00ac, t01=0x00dc}
0x10d9a…10dd0 Head {h00=0x0032, h01=0x0050, text=»BSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? «, t00=0x00ac, t01=0x0102}
0x10dd0…10dea Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT40 NO!«, t00=0x00ac, t01=0x0138}
0x10dea…10e0e Head {h00=0x0020, h01=0x0050, text=» ADKL A11,1 NUMBER OF TYPES «, t00=0x00ac, t01=0x0152}
0x10e0e…10e22 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x00ac, t01=0x0176}
0x10e22…10e4c Head {h00=0x0026, h01=0x0050, text=» CALL GETNUM NUMBER OF UWB RECORDS«, t00=0x00ac, t01=0x018a}
0x10e4c…10e64 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A5 SAVE «, t00=0x00ad, t01=0x0024}
0x10e64…10e8c Head {h00=0x0024, h01=0x0050, text=» RF(Z) SWBERR ILLEGAL NUMBER!!! «, t00=0x00ad, t01=0x003c}
0x10e8c…10eb8 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UWB RECORD «, t00=0x00ad, t01=0x0064}
0x10eb8…10ee4 Head {h00=0x0028, h01=0x0050, text=»BSWT30 ADKL A11,6 BYPASS UWB RECORD «, t00=0x00ad, t01=0x0090}
0x10ee4…10f0c Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECR. NUMBER OF TYPES «, t00=0x00ad, t01=0x00bc}
0x10f0c…10f2c Head {h00=0x001c, h01=0x0050, text=» RB(P) BSWT30 MOORE LEFT«, t00=0x00ad, t01=0x00e4}
0x10f2c…10f5c Head {h00=0x002c, h01=0x0050, text=» LCR A2,A11 GET NEXT CHAR. IN CONF.FILE «, t00=0x00ad, t01=0x0104}
0x10f5c…10f90 Head {h00=0x0030, h01=0x0050, text=»BSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK«, t00=0x00ad, t01=0x0134}
0x10f90…10faa Head {h00=0x0016, h01=0x0050, text=» RF(E) BSWT44 YES!«, t00=0x00ad, t01=0x0168}
0x10faa…10fd6 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,0 NO SWB DEFINITION BLOCK! «, t00=0x00ad, t01=0x0182}
0x10fd6…11002 Head {h00=0x0028, h01=0x0050, text=» ST A1,APLSWB,A10 CLEAR SWB POINTER «, t00=0x00ae, t01=0x001e}
0x11002…11040 Head {h00=0x003a, h01=0x0050, text=» LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION =2 «, t00=0x00ae, t01=0x004a}
0x11040…1106a Head {h00=0x0026, h01=0x0050, text=»BSWT42 CALL POB RESTORE REGISTERS «, t00=0x00ae, t01=0x0088}
0x1106a…1107a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ae, t01=0x00b2}
0x1107a…110a4 Head {h00=0x0026, h01=0x0050, text=»BSWT44 ADKL A11,1 NUMBER OF TYPES «, t00=0x00ae, t01=0x00c2}
0x110a4…110d6 Head {h00=0x002e, h01=0x0050, text=» ST A11,STKEND+SWBBLK START OF CONF. DATA «, t00=0x00ae, t01=0x00ec}
0x110d6…110ea Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x00ae, t01=0x011e}
0x110ea…1110c Head {h00=0x001e, h01=0x0050, text=» CALL GETNUM GET 3 DIGITS «, t00=0x00ae, t01=0x0132}
0x1110c…11124 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A5 ZERO?«, t00=0x00ae, t01=0x0154}
0x11124…1114c Head {h00=0x0024, h01=0x0050, text=» RF(Z) SWBERR ILLEGAL NUMBER!!! «, t00=0x00ae, t01=0x016c}
0x1114c…11180 (175, 0, 400) Head {h00=0x0030, h01=0x0050, text=» ST A5,STKEND+NBRSWB SAVE NUMBER OF RECORDS «, t00=0x00af, t01=0x0004}
0x11180…111a0 Head {h00=0x001c, h01=0x0050, text=» ST A5,STKEND+WRK1 SAVE «, t00=0x00af, t01=0x0038}
0x111a0…111d2 Head {h00=0x002e, h01=0x0050, text=» LD A8,STKCOM+SWBFLG GET ADDRESS TO $SWAPP«, t00=0x00af, t01=0x0058}
0x111d2…111f6 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) BSWT48 FILE CREATED «, t00=0x00af, t01=0x008a}
0x111f6…1121c Head {h00=0x0022, h01=0x0050, text=»SWBERR LDKL A1,LMP6 SWB ERROR!«, t00=0x00af, t01=0x00ae}
0x1121c…11230 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00af, t01=0x00d4}
0x11230…1126e Head {h00=0x003a, h01=0x0050, text=»BSWT48 ST A12,APLSWB,A10 SAVE ADDRESS TO ADDRESS TABLE«, t00=0x00af, t01=0x00e8}
0x1126e…112a0 Head {h00=0x002e, h01=0x0050, text=» CM STKCOM+SWBCNT RESET SWP-BLOCK COUNTER «, t00=0x00af, t01=0x0126}
0x112a0…112c2 Head {h00=0x001e, h01=0x0050, text=» ADKL A12,2 FIRST POINTER «, t00=0x00af, t01=0x0158}
0x112c2…112dc Head {h00=0x0016, h01=0x0050, text=» LDR A10,A12 SAVE «, t00=0x00af, t01=0x017a}
0x112dc…11304 (176, 0, 400) Head {h00=0x0024, h01=0x0050, text=»BSWT50 ADKL A10,2 BYPASS POINTER«, t00=0x00b0, t01=0x0004}
0x11304…11330 Head {h00=0x0028, h01=0x0050, text=» SUK A5,1 DECREMENT NUMBER OF TYPES «, t00=0x00b0, t01=0x002c}
0x11330…11346 Head {h00=0x0012, h01=0x0050, text=» RB(P) BSWT50 «, t00=0x00b0, t01=0x0058}
0x11346…11350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x006e}
0x11350…1137a Head {h00=0x0026, h01=0x0050, text=»* GET ADDRESS TO S:BTAB PROTOTYPE«, t00=0x00b0, t01=0x0078}
0x1137a…11384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x00a2}
0x11384…113b4 Head {h00=0x002c, h01=0x0050, text=» LD A2,STKEND+APCSTA GET ADDRESS TO ACB «, t00=0x00b0, t01=0x00ac}
0x113b4…113de Head {h00=0x0026, h01=0x0050, text=» LD* A1,APLMMC,A2 GET TTAB ADDRESS«, t00=0x00b0, t01=0x00dc}
0x113de…11406 Head {h00=0x0024, h01=0x0050, text=» TL TTB:MT,A1 LOAD MMU REGISTERS«, t00=0x00b0, t01=0x0106}
0x11406…11432 Head {h00=0x0028, h01=0x0050, text=» LD A2,APLLAC,A2 GET P:MTAB ADDRESS «, t00=0x00b0, t01=0x012e}
0x11432…1145a Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET P:MTAB ADDRESS «, t00=0x00b0, t01=0x015a}
0x1145a…11472 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00b0, t01=0x0182}
0x11472…114a2 Head {h00=0x002c, h01=0x0050, text=» ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS«, t00=0x00b1, t01=0x000a}
0x114a2…114ca Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET S:BTAB ADDRESS «, t00=0x00b1, t01=0x003a}
0x114ca…114f8 Head {h00=0x002a, h01=0x0050, text=» LDR A2,A1 GET ADDRESS TO PROT. S:BTAB«, t00=0x00b1, t01=0x0062}
0x114f8…11526 Head {h00=0x002a, h01=0x0050, text=» RB(Z) SWBERR NO SWB:S IN APPLICATION!«, t00=0x00b1, t01=0x0090}
0x11526…11548 Head {h00=0x001e, h01=0x0050, text=» ADK A1,2 ADDRESS TO NAME «, t00=0x00b1, t01=0x00be}
0x11548…1156a Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+SWBNAM SAVE «, t00=0x00b1, t01=0x00e0}
0x1156a…1159e Head {h00=0x0030, h01=0x0050, text=» SUK A2,2 ADDRESS TO LENGTH OF PROT. S:BTAB «, t00=0x00b1, t01=0x0102}
0x1159e…115ce Head {h00=0x002c, h01=0x0050, text=» CALL GETCON GET LENGTH OF PROT. S:BTAB «, t00=0x00b1, t01=0x0136}
0x115ce…115e6 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A1 SAVE «, t00=0x00b1, t01=0x0166}
0x115e6…115f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x017e}
0x115f0…11626 Head {h00=0x0032, h01=0x0050, text=»* CHECK IF ENOUGTH MEMORY IN FIRST PARTITION «, t00=0x00b1, t01=0x0188}
0x11626…11630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x002e}
0x11630…11650 Head {h00=0x001c, h01=0x0050, text=» XRR A2,A2 RESET COUNTER«, t00=0x00b2, t01=0x0038}
0x11650…11678 Head {h00=0x0024, h01=0x0050, text=»BSWT52 SUK A1,6 DECREMENT LENGTH«, t00=0x00b2, t01=0x0058}
0x11678…116a0 Head {h00=0x0024, h01=0x0050, text=» RF(N) BSWT55 NO MORE SWB-BLOCKS«, t00=0x00b2, t01=0x0080}
0x116a0…116c6 Head {h00=0x0022, h01=0x0050, text=» ADK A2,1 INCR. BLOCK COUNTER «, t00=0x00b2, t01=0x00a8}
0x116c6…116d8 Head {h00=0x000e, h01=0x0050, text=» RB BSWT52«, t00=0x00b2, t01=0x00ce}
0x116d8…116fe Head {h00=0x0022, h01=0x0050, text=»BSWT55 SLL A2,3 MULTIPLY BY 8 «, t00=0x00b2, t01=0x00e0}
0x116fe…11726 Head {h00=0x0024, h01=0x0050, text=» LDR A9,A10 GET START OF BLOCKS «, t00=0x00b2, t01=0x0106}
0x11726…11744 Head {h00=0x001a, h01=0x0050, text=» ADR A9,A2 ADD LENGTH «, t00=0x00b2, t01=0x012e}
0x11744…11772 Head {h00=0x002a, h01=0x0050, text=» LD A11,STKEND+LIMIT GET CURRENT LIMIT«, t00=0x00b2, t01=0x014c}
0x11772…11798 Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x00b2, t01=0x017a}
0x11798…117b2 Head {h00=0x0016, h01=0x0050, text=» RF(NL) BSWT57 NO!«, t00=0x00b3, t01=0x0010}
0x117b2…117e0 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00b3, t01=0x002a}
0x117e0…117f4 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00b3, t01=0x0058}
0x117f4…1181c Head {h00=0x0024, h01=0x0050, text=»BSWT57 SUK A4,2 SKIP LENGTH WORD«, t00=0x00b3, t01=0x006c}
0x1181c…11842 Head {h00=0x0022, h01=0x0050, text=» LDKL A9,0 RESET BLOCK COUNTER«, t00=0x00b3, t01=0x0094}
0x11842…11872 Head {h00=0x002c, h01=0x0050, text=»BSWT60 STR A10,A12 SAVE POINTER TO BLOCK«, t00=0x00b3, t01=0x00ba}
0x11872…11894 Head {h00=0x001e, h01=0x0050, text=» ST A4,STKEND+SWBTBL SAVE «, t00=0x00b3, t01=0x00ea}
0x11894…118c6 Head {h00=0x002e, h01=0x0050, text=» LD A11,STKEND+SWBBLK START OF CONF. DATA «, t00=0x00b3, t01=0x010c}
0x118c6…118f8 Head {h00=0x002e, h01=0x0050, text=» LD A7,STKEND+NBRSWB NUMBER OF SWB RECORDS«, t00=0x00b3, t01=0x013e}
0x118f8…11930 Head {h00=0x0034, h01=0x0050, text=»BSWT65 LD A2,STKEND+SWBNAM NAME RECORD IN PROT. «, t00=0x00b3, t01=0x0170}
0x11930…11958 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET TWO FIRST CHAR.«, t00=0x00b4, t01=0x0018}
0x11958…11984 Head {h00=0x0028, h01=0x0050, text=» ADKL A11,NAMUWB NAME IN CONF. FILE «, t00=0x00b4, t01=0x0040}
0x11984…119a8 Head {h00=0x0020, h01=0x0050, text=» LCR A3,A11 GET FIRST CHAR. «, t00=0x00b4, t01=0x006c}
0x119a8…119cc Head {h00=0x0020, h01=0x0050, text=» SLL A3,8 MOVE TO LEFT BYTE «, t00=0x00b4, t01=0x0090}
0x119cc…119f2 Head {h00=0x0022, h01=0x0050, text=» LC A3,1,A11 GET SECOND CHAR. «, t00=0x00b4, t01=0x00b4}
0x119f2…11a1c Head {h00=0x0026, h01=0x0050, text=» CWR A1,A3 TWO FIRST CHAR. EQUAL? «, t00=0x00b4, t01=0x00da}
0x11a1c…11a36 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BSWT70 NO!«, t00=0x00b4, t01=0x0104}
0x11a36…11a5c Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 NEXT CHAR. IN PROT. «, t00=0x00b4, t01=0x011e}
0x11a5c…11a80 Head {h00=0x0020, h01=0x0050, text=» CALL GETCON GET THIRD CHAR.«, t00=0x00b4, t01=0x0144}
0x11a80…11aa0 Head {h00=0x001c, h01=0x0050, text=» SRL A1,8 ISOLATE CHAR. «, t00=0x00b4, t01=0x0168}
0x11aa0…11ad4 Head {h00=0x0030, h01=0x0050, text=» LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE«, t00=0x00b4, t01=0x0188}
0x11ad4…11af6 Head {h00=0x001e, h01=0x0050, text=» ANK A3,/FF ISOLATE CHAR. «, t00=0x00b5, t01=0x002c}
0x11af6…11b1c Head {h00=0x0022, h01=0x0050, text=» CWR A1,A3 THIRD CHAR. EQUAL? «, t00=0x00b5, t01=0x004e}
0x11b1c…11b36 Head {h00=0x0016, h01=0x0050, text=» RF(E) BSWT75 YES!«, t00=0x00b5, t01=0x0074}
0x11b36…11b5e Head {h00=0x0024, h01=0x0050, text=»BSWT70 ADKL A11,NAMUWB SKIP NAME«, t00=0x00b5, t01=0x008e}
0x11b5e…11b8a Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT NUMBER OF TYPES «, t00=0x00b5, t01=0x00b6}
0x11b8a…11baa Head {h00=0x001c, h01=0x0050, text=» RB(P) BSWT65 NEXT TYPE «, t00=0x00b5, t01=0x00e2}
0x11baa…11bb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x0102}
0x11bb4…11c06 Head {h00=0x004e, h01=0x0050, text=»* NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK «, t00=0x00b5, t01=0x010c}
0x11c06…11c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x015e}
0x11c10…11c2e Head {h00=0x001a, h01=0x0050, text=» STR A7,A10 1:ST WORD «, t00=0x00b5, t01=0x0168}
0x11c2e…11c4c Head {h00=0x001a, h01=0x0050, text=» ST A7,2,A10 2:ND WORD«, t00=0x00b5, t01=0x0186}
0x11c4c…11c6a Head {h00=0x001a, h01=0x0050, text=» ST A7,4,A10 3:RD WORD«, t00=0x00b6, t01=0x0014}
0x11c6a…11c88 Head {h00=0x001a, h01=0x0050, text=» ST A7,6,A10 4:TH WORD«, t00=0x00b6, t01=0x0032}
0x11c88…11c9a Head {h00=0x000e, h01=0x0050, text=» RF BSWT95«, t00=0x00b6, t01=0x0050}
0x11c9a…11cae Head {h00=0x0010, h01=0x0050, text=»BSWT75 EQU *«, t00=0x00b6, t01=0x0062}
0x11cae…11cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0076}
0x11cb8…11cd6 Head {h00=0x001a, h01=0x0050, text=»* MATCHING NAME FOUND«, t00=0x00b6, t01=0x0080}
0x11cd6…11ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x009e}
0x11ce0…11d12 Head {h00=0x002e, h01=0x0050, text=» LD A3,STKEND+WRK1 GET NUMBER OF SWB TYPES«, t00=0x00b6, t01=0x00a8}
0x11d12…11d2e Head {h00=0x0018, h01=0x0050, text=» SUK A3,1 DECREMENT «, t00=0x00b6, t01=0x00da}
0x11d2e…11d4e Head {h00=0x001c, h01=0x0050, text=» ST A3,STKEND+WRK1 SAVE «, t00=0x00b6, t01=0x00f6}
0x11d4e…11d78 Head {h00=0x0026, h01=0x0050, text=» ADKL A11,NAMUWB NUMBER OF COPIES «, t00=0x00b6, t01=0x0116}
0x11d78…11d8c Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x00b6, t01=0x0140}
0x11d8c…11dac Head {h00=0x001c, h01=0x0050, text=» LDR A3,A2 SAVE POINTER «, t00=0x00b6, t01=0x0154}
0x11dac…11dd6 Head {h00=0x0026, h01=0x0050, text=» CALL GETNUM GET NUMBER OF COPIES «, t00=0x00b6, t01=0x0174}
0x11dd6…11e06 Head {h00=0x002c, h01=0x0050, text=» SLL A5,8 NUMBER OF COPIES IN LEFT BYTE «, t00=0x00b7, t01=0x000e}
0x11e06…11e48 Head {h00=0x003e, h01=0x0050, text=» OR A5,STKCOM+SWBFSA+2 DISC ADDRESS BITS 0-7 IN RIGHT BYTE«, t00=0x00b7, t01=0x003e}
0x11e48…11e6e Head {h00=0x0022, h01=0x0050, text=» STR A5,A10 STORE IN SWB BLOCK«, t00=0x00b7, t01=0x0080}
0x11e6e…11e9e Head {h00=0x002c, h01=0x0050, text=» SRL A5,8 NUMBER OF COPIES TO RIGHT BYTE«, t00=0x00b7, t01=0x00a6}
0x11e9e…11ed6 Head {h00=0x0034, h01=0x0050, text=» LD A8,STKCOM+SWBFSA GET DISC ADDRESS BITS 8-22 «, t00=0x00b7, t01=0x00d6}
0x11ed6…11ef0 Head {h00=0x0016, h01=0x0050, text=» ST A8,2,A10 SAVE «, t00=0x00b7, t01=0x010e}
0x11ef0…11f12 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A3 RESTORE POINTER«, t00=0x00b7, t01=0x0128}
0x11f12…11f3a Head {h00=0x0024, h01=0x0050, text=» SUK A2,UPNAME PROTOTYPE ADDRESS«, t00=0x00b7, t01=0x014a}
0x11f3a…11f64 Head {h00=0x0026, h01=0x0050, text=» CALL GETCON GET PROTOTYPE ADDRESS«, t00=0x00b7, t01=0x0172}
0x11f64…11f7c Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00b8, t01=0x000c}
0x11f7c…11fa6 Head {h00=0x0026, h01=0x0050, text=» SUK A2,UPNAME LENGTH OF WORKBLOCK«, t00=0x00b8, t01=0x0024}
0x11fa6…11fba Head {h00=0x0010, h01=0x0050, text=» CALL GETCON«, t00=0x00b8, t01=0x004e}
0x11fba…11fe8 Head {h00=0x002a, h01=0x0050, text=» ST A1,SWBLEN,A10 STORE LENGTH OF SWB «, t00=0x00b8, t01=0x0062}
0x11fe8…1201c Head {h00=0x0030, h01=0x0050, text=»BSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK «, t00=0x00b8, t01=0x0090}
0x1201c…12042 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 RESET SECTOR COUNTER«, t00=0x00b8, t01=0x00c4}
0x12042…1207a Head {h00=0x0034, h01=0x0050, text=»BSWT86 IM STKCOM+SWBFSA INCREMENT SECTOR ADDRESS«, t00=0x00b8, t01=0x00ea}
0x1207a…12090 Head {h00=0x0012, h01=0x0050, text=» RF(O) BSWT88 «, t00=0x00b8, t01=0x0122}
0x12090…120a2 Head {h00=0x000e, h01=0x0050, text=» RF BSWT90«, t00=0x00b8, t01=0x0138}
0x120a2…120c4 Head {h00=0x001e, h01=0x0050, text=»BSWT88 IM STKCOM+SWBFSA+2 «, t00=0x00b8, t01=0x014a}
0x120c4…120de Head {h00=0x0016, h01=0x0050, text=» CM STKCOM+SWBFSA «, t00=0x00b8, t01=0x016c}
0x120de…120f2 Head {h00=0x0010, h01=0x0050, text=»BSWT90 EQU *«, t00=0x00b8, t01=0x0186}
0x120f2…1211c Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT SECTOR COUNTER«, t00=0x00b9, t01=0x000a}
0x1211c…12142 Head {h00=0x0022, h01=0x0050, text=» SUKL A3,256 DECREMENT LENGTH «, t00=0x00b9, t01=0x0034}
0x12142…12166 Head {h00=0x0020, h01=0x0050, text=» RB(P) BSWT86 MOORE SECTORS?«, t00=0x00b9, t01=0x005a}
0x12166…12186 Head {h00=0x001c, h01=0x0050, text=» SUK A5,1 MOORE COPIES? «, t00=0x00b9, t01=0x007e}
0x12186…121a0 Head {h00=0x0016, h01=0x0050, text=» RB(P) BSWT85 YES!«, t00=0x00b9, t01=0x009e}
0x121a0…121ce Head {h00=0x002a, h01=0x0050, text=» ST A1,SWBSEC,A10 STORE SECTOR LENGTH «, t00=0x00b9, t01=0x00b8}
0x121ce…12204 Head {h00=0x0032, h01=0x0050, text=» IM STKCOM+SWBCNT INCREMENT SWP-BLOCK COUNTER «, t00=0x00b9, t01=0x00e6}
0x12204…12222 Head {h00=0x001a, h01=0x0050, text=» LD A8,STKCOM+SWBFSA+2«, t00=0x00b9, t01=0x011c}
0x12222…12240 Head {h00=0x001a, h01=0x0050, text=» CW A8,STKCOM+SWBFSE+2«, t00=0x00b9, t01=0x013a}
0x12240…1226c Head {h00=0x0028, h01=0x0050, text=» RF(G) BSWT98 $SWAP-FILE TOO SMALL! «, t00=0x00b9, t01=0x0158}
0x1226c…12282 Head {h00=0x0012, h01=0x0050, text=» RF(L) BSWT95 «, t00=0x00b9, t01=0x0184}
0x12282…1229e Head {h00=0x0018, h01=0x0050, text=» LD A8,STKCOM+SWBFSA«, t00=0x00ba, t01=0x000a}
0x1229e…122ba Head {h00=0x0018, h01=0x0050, text=» CW A8,STKCOM+SWBFSE«, t00=0x00ba, t01=0x0026}
0x122ba…122e6 Head {h00=0x0028, h01=0x0050, text=» RF(G) BSWT98 SWAPP-FILE TOO SMALL! «, t00=0x00ba, t01=0x0042}
0x122e6…12314 Head {h00=0x002a, h01=0x0050, text=»BSWT95 ADKL A10,8 START OF NEXT BLOCK «, t00=0x00ba, t01=0x006e}
0x12314…12334 Head {h00=0x001c, h01=0x0050, text=» ADKL A12,2 NEXT POINTER«, t00=0x00ba, t01=0x009c}
0x12334…1235e Head {h00=0x0026, h01=0x0050, text=» ADKL A9,1 INCREMENT BLOCK COUNTER«, t00=0x00ba, t01=0x00bc}
0x1235e…1239a Head {h00=0x0038, h01=0x0050, text=» LD A2,STKEND+SWBNAM CURRENT RECORD IN PROT. S:BTAB «, t00=0x00ba, t01=0x00e6}
0x1239a…123cc Head {h00=0x002e, h01=0x0050, text=» ADK A2,UP:REC NEXT RECORD IN PROT. S:BTAB«, t00=0x00ba, t01=0x0122}
0x123cc…123ee Head {h00=0x001e, h01=0x0050, text=» ST A2,STKEND+SWBNAM SAVE «, t00=0x00ba, t01=0x0154}
0x123ee…12426 Head {h00=0x0034, h01=0x0050, text=» LD A4,STKEND+SWBTBL GET LENGTH OF PROT. S:BTAB «, t00=0x00ba, t01=0x0176}
0x12426…12446 Head {h00=0x001c, h01=0x0050, text=» SUK A4,UP:REC DECREMENT«, t00=0x00bb, t01=0x001e}
0x12446…12468 Head {h00=0x001e, h01=0x0050, text=» RB(P) BSWT60 MOORE TYPES «, t00=0x00bb, t01=0x003e}
0x12468…1249a Head {h00=0x002e, h01=0x0050, text=» LD A8,STKCOM+SWBCNT ANY BLOCKS GENERATED?«, t00=0x00bb, t01=0x0060}
0x1249a…124b4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BSWT98 NO! «, t00=0x00bb, t01=0x0092}
0x124b4…124e6 Head {h00=0x002e, h01=0x0050, text=» LD A8,STKEND+WRK1 ALL SWB TYPES MATCHED? «, t00=0x00bb, t01=0x00ac}
0x124e6…12502 Head {h00=0x0018, h01=0x0050, text=» RF(NP) BSWT99 YES! «, t00=0x00bb, t01=0x00de}
0x12502…1251e Head {h00=0x0018, h01=0x0050, text=»BSWT98 LDKL A1,LMP6 «, t00=0x00bb, t01=0x00fa}
0x1251e…1253c Head {h00=0x001a, h01=0x0050, text=» CALL ERROR SWB ERROR!«, t00=0x00bb, t01=0x0116}
0x1253c…12572 Head {h00=0x0032, h01=0x0050, text=»BSWT99 ST A10,SCTSFA UPDATE START OF FREE AREA«, t00=0x00bb, t01=0x0134}
0x12572…125a8 Head {h00=0x0032, h01=0x0050, text=» LD A10,STKEND+APCSTA GET CURRENT ACB ADDRESS «, t00=0x00bb, t01=0x016a}
0x125a8…125d6 Head {h00=0x002a, h01=0x0050, text=» ST* A9,APLSWB,A10 NUMBER OF SWB TYPES«, t00=0x00bc, t01=0x0010}
0x125d6…12610 Head {h00=0x0036, h01=0x0050, text=» LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION«, t00=0x00bc, t01=0x003e}
0x12610…1261c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bc, t01=0x0078}
0x1261c…12638 Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x00bc, t01=0x0084}
0x12638…12646 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bc, t01=0x00a0}
0x12646…12682 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00bc, t01=0x00ae}
0x12682…126be Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bc, t01=0x00ea}
0x126be…126fa Head {h00=0x0038, h01=0x0050, text=»* B:STAB - BUILD SEGMENT TABLES * «, t00=0x00bc, t01=0x0126}
0x126fa…12736 Head {h00=0x0038, h01=0x0050, text=»* ============================= * «, t00=0x00bc, t01=0x0162}
0x12736…12772 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bd, t01=0x000e}
0x12772…127ae Head {h00=0x0038, h01=0x0050, text=»* REFERENCED IN: SYSLDM * «, t00=0x00bd, t01=0x004a}
0x127ae…127ea Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bd, t01=0x0086}
0x127ea…12826 Head {h00=0x0038, h01=0x0050, text=»* ENTRY: * «, t00=0x00bd, t01=0x00c2}
0x12826…12862 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bd, t01=0x00fe}
0x12862…1289e Head {h00=0x0038, h01=0x0050, text=»* EXIT: * «, t00=0x00bd, t01=0x013a}
0x1289e…128da Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00bd, t01=0x0176}
0x128da…12916 Head {h00=0x0038, h01=0x0050, text=»* WORK REGISTERS: A1-A14 (THEIR ORIGINAL * «, t00=0x00be, t01=0x0022}
0x12916…12952 Head {h00=0x0038, h01=0x0050, text=»* CONTENTS ARE SAVED ON STACK * «, t00=0x00be, t01=0x005e}
0x12952…1298e Head {h00=0x0038, h01=0x0050, text=»* AND RESTORED BEFORE EXIT) * «, t00=0x00be, t01=0x009a}
0x1298e…129ca Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00be, t01=0x00d6}
0x129ca…12a06 Head {h00=0x0038, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: * «, t00=0x00be, t01=0x0112}
0x12a06…12a42 Head {h00=0x0038, h01=0x0050, text=»* FOR BASIC ONE SEGMENT TABLE AREA/TASK IS * «, t00=0x00be, t01=0x014e}
0x12a42…12a7e Head {h00=0x0038, h01=0x0050, text=»* RESERVED. THE FIFTH WORD IN EACH SEGMENT TABLE * «, t00=0x00be, t01=0x018a}
0x12a7e…12aba Head {h00=0x0038, h01=0x0050, text=»* CONTAINS A POINTER TO THE FIFTH WORD IN NEXT * «, t00=0x00bf, t01=0x0036}
0x12aba…12af6 Head {h00=0x0038, h01=0x0050, text=»* EXCEPT THE LAST CONTAINS A PONTER TO THE FIFTH * «, t00=0x00bf, t01=0x0072}
0x12af6…12b32 Head {h00=0x0038, h01=0x0050, text=»* WORD IN THE NEXT SEGMENT TABLE. ALL OTHER LO- * «, t00=0x00bf, t01=0x00ae}
0x12b32…12b6e Head {h00=0x0038, h01=0x0050, text=»* CATIONS CONTAIN ZERO. * «, t00=0x00bf, t01=0x00ea}
0x12b6e…12baa Head {h00=0x0038, h01=0x0050, text=»* FOR COBOL AND CREDIT APPLICATIONS ONE SEGMENT * «, t00=0x00bf, t01=0x0126}
0x12baa…12be6 Head {h00=0x0038, h01=0x0050, text=»* TABLE PER APPLICATION IS GENERATED. STATUS, * «, t00=0x00bf, t01=0x0162}
0x12be6…12c22 Head {h00=0x0038, h01=0x0050, text=»* DISK ADDRESS AND LENGTH FOR EACH SEGMENT IS * «, t00=0x00c0, t01=0x000e}
0x12c22…12c5e Head {h00=0x0038, h01=0x0050, text=»* WRITTEN IN CORRESPONDING SEGBLK. THE SEGMENT * «, t00=0x00c0, t01=0x004a}
0x12c5e…12c9a Head {h00=0x0038, h01=0x0050, text=»* TABLE ADDRESS IS STORED IN THE TTAB FOR EACH * «, t00=0x00c0, t01=0x0086}
0x12c9a…12cd6 Head {h00=0x0038, h01=0x0050, text=»* TASK IN THE APPLICATION. * «, t00=0x00c0, t01=0x00c2}
0x12cd6…12d12 Head {h00=0x0038, h01=0x0050, text=»* * «, t00=0x00c0, t01=0x00fe}
0x12d12…12d4e Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x00c0, t01=0x013a}
0x12d4e…12d5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c0, t01=0x0176}
0x12d5c…12d70 Head {h00=0x0010, h01=0x0050, text=»B:STAB EQU *«, t00=0x00c0, t01=0x0184}
0x12d70…12d98 Head {h00=0x0024, h01=0x0050, text=» CALL PUSH SAVE A1-A14 ON STACK «, t00=0x00c1, t01=0x0008}
0x12d98…12dc2 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00c1, t01=0x0030}
0x12dc2…12de8 Head {h00=0x0022, h01=0x0050, text=» LDR A9,P GET LIMIT FOR WRITE «, t00=0x00c1, t01=0x005a}
0x12de8…12e28 Head {h00=0x003c, h01=0x0050, text=»BST010 LD A10,STKEND+APCSTA SAVE POINTER TO CURRENT ACB «, t00=0x00c1, t01=0x0080}
0x12e28…12e5a Head {h00=0x002e, h01=0x0050, text=» CALL NXTAPL GET NEXT APPL. CONTROL BLOCK «, t00=0x00c1, t01=0x00c0}
0x12e5a…12e7e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) BST020 NOT LAST YET «, t00=0x00c1, t01=0x00f2}
0x12e7e…12ea8 Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTTCT GET LENGTH OF TCTAB«, t00=0x00c1, t01=0x0116}
0x12ea8…12eca Head {h00=0x001e, h01=0x0050, text=» AD A2,SCTTCT END OF TCTAB«, t00=0x00c1, t01=0x0140}
0x12eca…12edc Head {h00=0x000e, h01=0x0050, text=» RF BST040«, t00=0x00c1, t01=0x0162}
0x12edc…12f14 Head {h00=0x0034, h01=0x0050, text=»BST020 LD A2,APLMMC,A2 GET END OF TCTAB ENTRIES «, t00=0x00c1, t01=0x0174}
0x12f14…12f3c Head {h00=0x0024, h01=0x0050, text=»BST040 ST A2,STKEND+TCTEND SAVE «, t00=0x00c2, t01=0x001c}
0x12f3c…12f4e Head {h00=0x000e, h01=0x0050, text=» LDR A8,P «, t00=0x00c2, t01=0x0044}
0x12f4e…12f8a Head {h00=0x0038, h01=0x0050, text=»BST045 ADKL A8,BST400-BST045 RELOCATE BRANCH ADDRESS«, t00=0x00c2, t01=0x0056}
0x12f8a…12fc0 Head {h00=0x0032, h01=0x0050, text=» LD A5,APLMMP,A10 GET CURRENT APPLICATION TYPE«, t00=0x00c2, t01=0x0092}
0x12fc0…12fec Head {h00=0x0028, h01=0x0050, text=» CWK A5,'AS' ASSEMBLER APPLICATION? «, t00=0x00c2, t01=0x00c8}
0x12fec…13022 Head {h00=0x0032, h01=0x0050, text=» ABR(E) A8 YES; DON'T GENERATE SEGMENT TABLE! «, t00=0x00c2, t01=0x00f4}
0x13022…13052 Head {h00=0x002c, h01=0x0050, text=» LD A8,APLMMC,A10 GET FIRST TCTAB ENTRY «, t00=0x00c2, t01=0x012a}
0x13052…1306e Head {h00=0x0018, h01=0x0050, text=» CWK A5,'BA' BASIC? «, t00=0x00c2, t01=0x015a}
0x1306e…13088 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BST050 NO «, t00=0x00c2, t01=0x0176}
0x13088…130ac Head {h00=0x0020, h01=0x0050, text=» SUR A2,A8 2*NUMBER OF TASKS«, t00=0x00c2, t01=0x0190}
0x130ac…130ce Head {h00=0x001e, h01=0x0050, text=» SRL A2,1 NUMBER OF TASKS «, t00=0x00c3, t01=0x0024}
0x130ce…130ee Head {h00=0x001c, h01=0x0050, text=» ST A2,STKEND+WRK1 SAVE «, t00=0x00c3, t01=0x0046}
0x130ee…1310c Head {h00=0x001a, h01=0x0050, text=» ST A2,APLNPE,A10 SAVE«, t00=0x00c3, t01=0x0066}
0x1310c…1313e Head {h00=0x002e, h01=0x0050, text=» LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK «, t00=0x00c3, t01=0x0084}
0x1313e…1315e Head {h00=0x001c, h01=0x0050, text=» SLL A3,3 MULTIPLY BY 8 «, t00=0x00c3, t01=0x00b6}
0x1315e…13186 Head {h00=0x0024, h01=0x0050, text=» ADK A3,12 INCLUDE 6 FIRST WORDS«, t00=0x00c3, t01=0x00d6}
0x13186…131a4 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A3 SAVE LENGTH«, t00=0x00c3, t01=0x00fe}
0x131a4…131dc Head {h00=0x0034, h01=0x0050, text=» CALL MULT COMPUTE LENGTH OF SEGMENT TABLE AREA «, t00=0x00c3, t01=0x011c}
0x131dc…131ee Head {h00=0x000e, h01=0x0050, text=» RF BST090«, t00=0x00c3, t01=0x0154}
0x131ee…131fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c3, t01=0x0166}
0x131fc…13228 Head {h00=0x0028, h01=0x0050, text=»BST050 LD A2,SCTOPT GET OPTION WORD «, t00=0x00c3, t01=0x0174}
0x13228…1323e Head {h00=0x0012, h01=0x0050, text=» ANK A2,1 MMU?«, t00=0x00c4, t01=0x0010}
0x1323e…13256 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BST070 NO«, t00=0x00c4, t01=0x0026}
0x13256…1327a Head {h00=0x0020, h01=0x0050, text=» LDR* A7,A8 GET TTAB ADDRESS«, t00=0x00c4, t01=0x003e}
0x1327a…1329e Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x00c4, t01=0x0062}
0x1329e…132cc Head {h00=0x002a, h01=0x0050, text=»BST070 LD A2,APLLAC,A10 ADDRESS S:GTAB«, t00=0x00c4, t01=0x0086}
0x132cc…132fa Head {h00=0x002a, h01=0x0050, text=» ADK A2,10 ADDRESS NUMBER OF SEGMENTS «, t00=0x00c4, t01=0x00b4}
0x132fa…13326 Head {h00=0x0028, h01=0x0050, text=» CALL GETCON GET NUMBER OF SEGMENTS «, t00=0x00c4, t01=0x00e2}
0x13326…1333e Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x00c4, t01=0x010e}
0x1333e…13356 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x00c4, t01=0x0126}
0x13356…13376 Head {h00=0x001c, h01=0x0050, text=» SLL A3,3 MULTIPLY BY 8 «, t00=0x00c4, t01=0x013e}
0x13376…1339e Head {h00=0x0024, h01=0x0050, text=» ADK A3,12 INCLUDE 6 FIRST WORDS«, t00=0x00c4, t01=0x015e}
0x1339e…133d2 Head {h00=0x0030, h01=0x0050, text=»BST090 LD A12,SCTSFA GET START OF FREE AREA «, t00=0x00c4, t01=0x0186}
0x133d2…133fe Head {h00=0x0028, h01=0x0050, text=» LDR A2,A11 SAVE CONF. DATA POINTER «, t00=0x00c5, t01=0x002a}
0x133fe…13418 Head {h00=0x0016, h01=0x0050, text=» LDR A11,A12 SAVE «, t00=0x00c5, t01=0x0056}
0x13418…13446 Head {h00=0x002a, h01=0x0050, text=» ADR A11,A3 END OF SEGMENT TABLE AREA «, t00=0x00c5, t01=0x0070}
0x13446…1346c Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x00c5, t01=0x009e}
0x1346c…13486 Head {h00=0x0016, h01=0x0050, text=» RF(NG) BST100 NO «, t00=0x00c5, t01=0x00c4}
0x13486…134b4 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00c5, t01=0x00de}
0x134b4…134c8 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00c5, t01=0x010c}
0x134c8…13500 Head {h00=0x0034, h01=0x0050, text=»BST100 ST A11,SCTSFA INDICATE START OF FREE AREA«, t00=0x00c5, t01=0x0120}
0x13500…1352e Head {h00=0x002a, h01=0x0050, text=» LDR A11,A2 RESTORE CONF. DATA POINTER«, t00=0x00c5, t01=0x0158}
0x1352e…1354a Head {h00=0x0018, h01=0x0050, text=» CWK A5,'BA' BASIC? «, t00=0x00c5, t01=0x0186}
0x1354a…13564 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BST200 NO «, t00=0x00c6, t01=0x0012}
0x13564…13592 Head {h00=0x002a, h01=0x0050, text=» LD A2,STKEND+WRK1 GET NUMBER OF TASKS«, t00=0x00c6, t01=0x002c}
0x13592…135c4 Head {h00=0x002e, h01=0x0050, text=» LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK «, t00=0x00c6, t01=0x005a}
0x135c4…135f8 Head {h00=0x0030, h01=0x0050, text=» ADK A3,NBRDPS ADD NUMBER OF DATA PAGES/TASK«, t00=0x00c6, t01=0x008c}
0x135f8…13614 Head {h00=0x0018, h01=0x0050, text=» CALL MULT MULTIPLY «, t00=0x00c6, t01=0x00c0}
0x13614…13642 Head {h00=0x002a, h01=0x0050, text=» LDR A2,A3 GET MAX NUMBER OF SEGMENTS «, t00=0x00c6, t01=0x00dc}
0x13642…13680 Head {h00=0x003a, h01=0x0050, text=» ADS A2,STKCOM+TOTSGM UPDATE TOTAL NUMBER OF SEGMENTS «, t00=0x00c6, t01=0x010a}
0x13680…136be Head {h00=0x003a, h01=0x0050, text=» ST A12,APLSEG,A10 STORE ADDRESS TO SEGMENT TABLE POOL«, t00=0x00c6, t01=0x0148}
0x136be…136cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c6, t01=0x0186}
0x136cc…136d6 (199, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x0004}
0x136d6…136fa Head {h00=0x0020, h01=0x0050, text=»* CLEAR SEGMENT TABLE AREA «, t00=0x00c7, t01=0x000e}
0x136fa…13704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c7, t01=0x0032}
0x13704…13738 Head {h00=0x0030, h01=0x0050, text=» LD A2,SCTSFA GET END OF SEGMENT TABLE AREA «, t00=0x00c7, t01=0x003c}
0x13738…13762 Head {h00=0x0026, h01=0x0050, text=»BST110 SUK A2,2 DECREMENT POINTER «, t00=0x00c7, t01=0x0070}
0x13762…13778 Head {h00=0x0012, h01=0x0050, text=» CMR A2 CLEAR «, t00=0x00c7, t01=0x009a}
0x13778…137a8 Head {h00=0x002c, h01=0x0050, text=» CWR A2,A12 START OF SEGMENT TABLE AREA?«, t00=0x00c7, t01=0x00b0}
0x137a8…137c6 Head {h00=0x001a, h01=0x0050, text=» RB(NE) BST110 NOT YET«, t00=0x00c7, t01=0x00e0}
0x137c6…137f8 Head {h00=0x002e, h01=0x0050, text=»BST120 ADR A2,A4 ADD SEGMENT TABLE LENGTH «, t00=0x00c7, t01=0x00fe}
0x137f8…13828 Head {h00=0x002c, h01=0x0050, text=» CW A2,SCTSFA END OF SEGMENT TABLE AREA?«, t00=0x00c7, t01=0x0130}
0x13828…13842 Head {h00=0x0016, h01=0x0050, text=» RF(E) BST400 YES «, t00=0x00c7, t01=0x0160}
0x13842…13878 Head {h00=0x0032, h01=0x0050, text=» ADK A2,8 ADDRESS FIFTH WORD IN SEGMENT TABLE «, t00=0x00c7, t01=0x017a}
0x13878…138ae Head {h00=0x0032, h01=0x0050, text=» ST A2,8,A12 STORE IN PRECEDING SEGMENT TABLE «, t00=0x00c8, t01=0x0020}
0x138ae…138de Head {h00=0x002c, h01=0x0050, text=» ADR A12,A4 START OF NEXT SEGMENT TABLE «, t00=0x00c8, t01=0x0056}
0x138de…138f6 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A12 SAVE«, t00=0x00c8, t01=0x0086}
0x138f6…13908 Head {h00=0x000e, h01=0x0050, text=» RB BST120«, t00=0x00c8, t01=0x009e}
0x13908…1393c Head {h00=0x0030, h01=0x0050, text=»BST200 ST A6,2,A12 STORE NUMBER OF SEGMENTS «, t00=0x00c8, t01=0x00b0}
0x1393c…13966 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A6 GET NUMBER OF SEGMENTS «, t00=0x00c8, t01=0x00e4}
0x13966…139a4 Head {h00=0x003a, h01=0x0050, text=» ADS A3,STKCOM+TOTSGM UPDATE TOTAL NUMBER OF SEGMENTS «, t00=0x00c8, t01=0x010e}
0x139a4…139d8 Head {h00=0x0030, h01=0x0050, text=» LD A3,SCTIPL GET FILE-CODE FOR LOAD DEVICE «, t00=0x00c8, t01=0x014c}
0x139d8…139f2 Head {h00=0x0016, h01=0x0050, text=» STR A3,A12 STORE «, t00=0x00c8, t01=0x0180}
0x139f2…13a1e Head {h00=0x0028, h01=0x0050, text=» ADKL A12,4 ADDRESS SEGMENT BLOCK 0 «, t00=0x00c9, t01=0x000a}
0x13a1e…13a36 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A12 SAVE«, t00=0x00c9, t01=0x0036}
0x13a36…13a68 Head {h00=0x002e, h01=0x0050, text=»BST210 LDKL A2,/8400 STATUS FOR SEGMENT 0 «, t00=0x00c9, t01=0x004e}
0x13a68…13a8e Head {h00=0x0022, h01=0x0050, text=» STR A2,A12 STORE IN SEGBLK 0 «, t00=0x00c9, t01=0x0080}
0x13a8e…13abc Head {h00=0x002a, h01=0x0050, text=» LD A2,APLLAC,A10 GET START OF S:GTAB «, t00=0x00c9, t01=0x00a6}
0x13abc…13ae6 Head {h00=0x0026, h01=0x0050, text=» CALL GETCON GET ADDRESS TO P:MTAB«, t00=0x00c9, t01=0x00d4}
0x13ae6…13afe Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00c9, t01=0x00fe}
0x13afe…13b20 Head {h00=0x001e, h01=0x0050, text=» ADK A2,6 ADDRESS TO P:BAS«, t00=0x00c9, t01=0x0116}
0x13b20…13b3e Head {h00=0x001a, h01=0x0050, text=» CALL GETCON GET P:BAS«, t00=0x00c9, t01=0x0138}
0x13b3e…13b64 Head {h00=0x0022, h01=0x0050, text=» ST A1,2,A12 STORE IN SEGBLK 0«, t00=0x00c9, t01=0x0156}
0x13b64…13b92 Head {h00=0x002a, h01=0x0050, text=» LD A2,APLLAC,A10 GET START OF S:GTAB «, t00=0x00c9, t01=0x017c}
0x13b92…13bc0 Head {h00=0x002a, h01=0x0050, text=» ADK A2,10 ADDRESS NUMBER OF SEGMENTS «, t00=0x00ca, t01=0x001a}
0x13bc0…13bec Head {h00=0x0028, h01=0x0050, text=»BST220 ADKL A12,8 NEXT SEGMENT BLOCK«, t00=0x00ca, t01=0x0048}
0x13bec…13c10 Head {h00=0x0020, h01=0x0050, text=» SUK A6,1 ANY MORE SEGMENTS?«, t00=0x00ca, t01=0x0074}
0x13c10…13c28 Head {h00=0x0014, h01=0x0050, text=» RF(N) BST300 NO«, t00=0x00ca, t01=0x0098}
0x13c28…13c4a Head {h00=0x001e, h01=0x0050, text=» LDK A7,0 INIT STATUS BYTE«, t00=0x00ca, t01=0x00b0}
0x13c4a…13c80 Head {h00=0x0032, h01=0x0050, text=» ADK A2,2 ADDRESS FIRST ENTRY IN SEGMENT BLOCK«, t00=0x00ca, t01=0x00d2}
0x13c80…13cb2 Head {h00=0x002e, h01=0x0050, text=» CALL GETCON GET SEGMENT TYPE/DISC ADDRESS«, t00=0x00ca, t01=0x0108}
0x13cb2…13cca Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x00ca, t01=0x013a}
0x13cca…13cf2 Head {h00=0x0024, h01=0x0050, text=» ANK A3,/FF ISOLATE DISC ADDRESS«, t00=0x00ca, t01=0x0152}
0x13cf2…13d18 Head {h00=0x0022, h01=0x0050, text=» SRL A1,8 ISOLATE SEGMENT TYPE«, t00=0x00ca, t01=0x017a}
0x13d18…13d44 Head {h00=0x0028, h01=0x0050, text=» CCK A1,'RR' CORE RESIDENT SEGMENT? «, t00=0x00cb, t01=0x0010}
0x13d44…13d5e Head {h00=0x0016, h01=0x0050, text=» RF(E) BST230 YES «, t00=0x00cb, t01=0x003c}
0x13d5e…13d84 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00cb, t01=0x0056}
0x13d84…13da2 Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00cb, t01=0x007c}
0x13da2…13dbc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) BST240 YES«, t00=0x00cb, t01=0x009a}
0x13dbc…13de2 Head {h00=0x0022, h01=0x0050, text=» XRR A3,A3 CLEAR DISC ADDRESS «, t00=0x00cb, t01=0x00b4}
0x13de2…13e1a Head {h00=0x0034, h01=0x0050, text=» LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED«, t00=0x00cb, t01=0x00da}
0x13e1a…13e52 Head {h00=0x0034, h01=0x0050, text=» ADK A2,2 ADDRESS SEGMENT DISC ADDRESS BIT 8-23 «, t00=0x00cb, t01=0x0112}
0x13e52…13e64 Head {h00=0x000e, h01=0x0050, text=» RF BST270«, t00=0x00cb, t01=0x014a}
0x13e64…13ea2 Head {h00=0x003a, h01=0x0050, text=»BST230 LDKL A7,/8800 INDICATE CORE RESIDENT AND LOADED«, t00=0x00cb, t01=0x015c}
0x13ea2…13ed0 Head {h00=0x002a, h01=0x0050, text=»BST240 ADK A2,2 DISC ADDRESS BIT 8-23 «, t00=0x00cc, t01=0x000a}
0x13ed0…13efe Head {h00=0x002a, h01=0x0050, text=» CALL GETCON GET SEGMENT DISC ADDRESS «, t00=0x00cc, t01=0x0038}
0x13efe…13f32 Head {h00=0x0030, h01=0x0050, text=» AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A.«, t00=0x00cc, t01=0x0066}
0x13f32…13f4e Head {h00=0x0018, h01=0x0050, text=» RF(O) BST250 CARRY «, t00=0x00cc, t01=0x009a}
0x13f4e…13f60 Head {h00=0x000e, h01=0x0050, text=» RF BST260«, t00=0x00cc, t01=0x00b6}
0x13f60…13f8e Head {h00=0x002a, h01=0x0050, text=»BST250 ADK A3,1 INCR. PART 1 OF D. A. «, t00=0x00cc, t01=0x00c8}
0x13f8e…13fc0 Head {h00=0x002e, h01=0x0050, text=» ANKL A1,/7FFF RESET OVERFLOW BIT (BIT 0) «, t00=0x00cc, t01=0x00f6}
0x13fc0…13ff8 Head {h00=0x0034, h01=0x0050, text=»BST260 AD A3,APLADA,A10 RELOCATE PART 1 OF D. A.«, t00=0x00cc, t01=0x0128}
0x13ff8…1402a Head {h00=0x002e, h01=0x0050, text=» CWK A3,255 OVERFLOW IN PART 1 OF D. A. ? «, t00=0x00cc, t01=0x0160}
0x1402a…14044 (205, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(NG) BST270 NO!«, t00=0x00cd, t01=0x0004}
0x14044…14070 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP10 INDICATE DEVICE ERROR«, t00=0x00cd, t01=0x001e}
0x14070…14084 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00cd, t01=0x004a}
0x14084…140ba Head {h00=0x0032, h01=0x0050, text=»BST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS«, t00=0x00cd, t01=0x005e}
0x140ba…140d4 Head {h00=0x0016, h01=0x0050, text=» STR A7,A12 STORE «, t00=0x00cd, t01=0x0094}
0x140d4…14104 Head {h00=0x002c, h01=0x0050, text=» ST A1,2,A12 STORE DISC ADDRESS BIT 8-23«, t00=0x00cd, t01=0x00ae}
0x14104…1412c Head {h00=0x0024, h01=0x0050, text=» ADK A2,2 ADDRESS SEGMENT LENGTH«, t00=0x00cd, t01=0x00de}
0x1412c…14154 Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET SEGMENT LENGTH«, t00=0x00cd, t01=0x0106}
0x14154…14178 Head {h00=0x0020, h01=0x0050, text=» ST A1,4,A12 STORE IN SEGTAB«, t00=0x00cd, t01=0x012e}
0x14178…141a2 Head {h00=0x0026, h01=0x0050, text=» CM 6,A12 CLEAR PAGEBLOCK POINTER «, t00=0x00cd, t01=0x0152}
0x141a2…141b4 Head {h00=0x000e, h01=0x0050, text=» RB BST220«, t00=0x00cd, t01=0x017c}
0x141b4…141e8 Head {h00=0x0030, h01=0x0050, text=»BST300 CW A8,STKEND+TCTEND LAST TCTAB ENTRY?«, t00=0x00cd, t01=0x018e}
0x141e8…14202 Head {h00=0x0016, h01=0x0050, text=» RF(E) BST400 YES «, t00=0x00ce, t01=0x0032}
0x14202…14226 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A8 GET TTAB ADDRESS«, t00=0x00ce, t01=0x004c}
0x14226…1425a Head {h00=0x0030, h01=0x0050, text=» ST A4,TTB:SP,A2 STORE SEGMENT TABLE POINTER«, t00=0x00ce, t01=0x0070}
0x1425a…14288 Head {h00=0x002a, h01=0x0050, text=» ADKL A8,2 INCREMENT POINTER IN TCTAB «, t00=0x00ce, t01=0x00a4}
0x14288…1429a Head {h00=0x000e, h01=0x0050, text=» RB BST300«, t00=0x00ce, t01=0x00d2}
0x1429a…142d6 Head {h00=0x0038, h01=0x0050, text=»BST400 LD A1,STKEND+APLNO GET NUMBER OF APPLICATIONS«, t00=0x00ce, t01=0x00e4}
0x142d6…14300 Head {h00=0x0026, h01=0x0050, text=» RF(Z) BST410 NO MORE APPLICATIONS«, t00=0x00ce, t01=0x0120}
0x14300…14320 Head {h00=0x001c, h01=0x0050, text=» ABR A9 NEXT APPLICATION«, t00=0x00ce, t01=0x014a}
0x14320…14334 Head {h00=0x0010, h01=0x0050, text=»BST410 EQU *«, t00=0x00ce, t01=0x016a}
0x14334…14358 Head {h00=0x0020, h01=0x0050, text=» CALL POB RESTORE REGISTERS «, t00=0x00ce, t01=0x017e}
0x14358…14370 Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x00cf, t01=0x0012}
0x14370…1437c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cf, t01=0x002a}
0x1437c…14398 Head {h00=0x0018, h01=0x0050, text=» IFF SPDVCL+TEDVCL=0«, t00=0x00cf, t01=0x0036}
0x14398…143a6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00cf, t01=0x0052}
0x143a6…143f6 Head {h00=0x004c, h01=0x004a, text=»************************************************************************«, t00=0x00cf, t01=0x0060}
0x143f6…14444 Head {h00=0x004a, h01=0x004a, text=»* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES«, t00=0x00cf, t01=0x00b0}
0x14444…14494 Head {h00=0x004c, h01=0x004a, text=»************************************************************************«, t00=0x00cf, t01=0x00fe}
0x14494…1449e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00cf, t01=0x014e}
0x1449e…144be Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x00cf, t01=0x0158}
0x144be…144c8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00cf, t01=0x0178}
0x144c8…144f8 Head {h00=0x002c, h01=0x0028, text=»* ENTRY: SCTSFA - START OF FREE ARE (X)«, t00=0x00cf, t01=0x0182}
0x144f8…1452e Head {h00=0x0032, h01=0x0050, text=»* CONSTA - START OF CONFIGURATION DATA«, t00=0x00d0, t01=0x0022}
0x1452e…1455a Head {h00=0x0028, h01=0x0023, text=»* SCTEFA - END OF FREE AREA «, t00=0x00d0, t01=0x0058}
0x1455a…14564 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d0, t01=0x0084}
0x14564…14574 Head {h00=0x000c, h01=0x000a, text=»* EXIT:«, t00=0x00d0, t01=0x008e}
0x14574…1457e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d0, t01=0x009e}
0x1457e…145a0 Head {h00=0x001e, h01=0x001a, text=»* WORK REGISTERS: A1-A12«, t00=0x00d0, t01=0x00a8}
0x145a0…145aa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d0, t01=0x00ca}
0x145aa…145ea Head {h00=0x003c, h01=0x0038, text=»* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR«, t00=0x00d0, t01=0x00d4}
0x145ea…145f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d0, t01=0x0114}
0x145f4…14602 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00d0, t01=0x011e}
0x14602…14616 Head {h00=0x0010, h01=0x0050, text=»B:DWTS EQU *«, t00=0x00d0, t01=0x012c}
0x14616…14620 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d0, t01=0x0140}
0x14620…1464a Head {h00=0x0026, h01=0x0050, text=»* GET START OF CONFIGURATION FILE«, t00=0x00d0, t01=0x014a}
0x1464a…14654 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d0, t01=0x0174}
0x14654…1467e Head {h00=0x0026, h01=0x0021, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x00d0, t01=0x017e}
0x1467e…14688 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d1, t01=0x0018}
0x14688…146c2 Head {h00=0x0036, h01=0x0032, text=»* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK«, t00=0x00d1, t01=0x0022}
0x146c2…146cc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d1, t01=0x005c}
0x146cc…146f6 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00d1, t01=0x0066}
0x146f6…1472a Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x00d1, t01=0x0090}
0x1472a…1475a Head {h00=0x002c, h01=0x0050, text=» ST P,STKEND+ECHTAB START OF ECHO TABLE «, t00=0x00d1, t01=0x00c4}
0x1475a…14764 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d1, t01=0x00f4}
0x14764…14784 Head {h00=0x001c, h01=0x0018, text=»* GET ADDRESS TO TC:TAB«, t00=0x00d1, t01=0x00fe}
0x14784…1478e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d1, t01=0x011e}
0x1478e…147c2 Head {h00=0x0030, h01=0x0050, text=»DWTS05 LD A7,APLMMC,A2 GET FIRST TCTAB ENTRY«, t00=0x00d1, t01=0x0128}
0x147c2…147d4 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x00d1, t01=0x015c}
0x147d4…147e2 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00d1, t01=0x016e}
0x147e2…147f6 Head {h00=0x0010, h01=0x0050, text=»DWTS10 EQU *«, t00=0x00d1, t01=0x017c}
0x147f6…14800 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d1, t01=0x0190}
0x14800…14832 Head {h00=0x002e, h01=0x0029, text=»* GET NUMBER OF TASKS IN THIS TASK CLASS «, t00=0x00d2, t01=0x000a}
0x14832…1483c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d2, t01=0x003c}
0x1483c…14850 Head {h00=0x0010, h01=0x000c, text=» CALL GETTSK«, t00=0x00d2, t01=0x0046}
0x14850…14864 Head {h00=0x0010, h01=0x0050, text=»DWTS20 EQU *«, t00=0x00d2, t01=0x005a}
0x14864…14886 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+NBRTSK SAVE «, t00=0x00d2, t01=0x006e}
0x14886…14890 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d2, t01=0x0090}
0x14890…148be Head {h00=0x002a, h01=0x0026, text=»* GET CORRESPONDING TASK TABLE (TTAB)«, t00=0x00d2, t01=0x009a}
0x148be…148c8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d2, t01=0x00c8}
0x148c8…148dc Head {h00=0x0010, h01=0x0050, text=»DWTS25 EQU *«, t00=0x00d2, t01=0x00d2}
0x148dc…14902 Head {h00=0x0022, h01=0x001e, text=» ADK A7,2 NEXT ENTRY IN TC:TAB«, t00=0x00d2, t01=0x00e6}
0x14902…14928 Head {h00=0x0022, h01=0x001d, text=» LDR* A10,A7 GET TTAB ADDRESS «, t00=0x00d2, t01=0x010c}
0x14928…1495a Head {h00=0x002e, h01=0x0050, text=» ADKL A10,TTB:TD+2 TASK DEVICE TABLE ENTRY«, t00=0x00d2, t01=0x0132}
0x1495a…14964 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d2, t01=0x0164}
0x14964…14998 Head {h00=0x0030, h01=0x002c, text=»* INIT SUB-POINTER IN TASK DEFINITION BLOCK«, t00=0x00d2, t01=0x016e}
0x14998…149a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d3, t01=0x0012}
0x149a2…149d4 Head {h00=0x002e, h01=0x002a, text=» LDR A9,A11 START OF TASK DEFINITION BLOCK«, t00=0x00d3, t01=0x001c}
0x149d4…14a04 Head {h00=0x002c, h01=0x0027, text=» ADKL A9,TDBFST START OF TDC DEFINITION «, t00=0x00d3, t01=0x004e}
0x14a04…14a12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d3, t01=0x007e}
0x14a12…14a1c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d3, t01=0x008c}
0x14a1c…14a54 Head {h00=0x0034, h01=0x002f, text=»* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS «, t00=0x00d3, t01=0x0096}
0x14a54…14a5e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d3, t01=0x00ce}
0x14a5e…14a72 Head {h00=0x0010, h01=0x000c, text=» CALL GETTDC«, t00=0x00d3, t01=0x00d8}
0x14a72…14a84 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x00d3, t01=0x00ec}
0x14a84…14a98 Head {h00=0x0010, h01=0x0050, text=»DWTS30 EQU *«, t00=0x00d3, t01=0x00fe}
0x14a98…14aae Head {h00=0x0012, h01=0x0050, text=» RF(Z) DWTS40 «, t00=0x00d3, t01=0x0112}
0x14aae…14ace Head {h00=0x001c, h01=0x0050, text=» CALL GETCLN GET TDC ID «, t00=0x00d3, t01=0x0128}
0x14ace…14ae0 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A1«, t00=0x00d3, t01=0x0148}
0x14ae0…14b10 Head {h00=0x002c, h01=0x0050, text=» LD A8,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x00d3, t01=0x015a}
0x14b10…14b32 Head {h00=0x001e, h01=0x0050, text=» ADR A8,A1 GET CLASS ENTRY«, t00=0x00d3, t01=0x018a}
0x14b32…14b5a Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET POINTER TO CLASS«, t00=0x00d4, t01=0x001c}
0x14b5a…14b82 Head {h00=0x0024, h01=0x0050, text=» LDR* A8,A8 GET LENGTH OF CLASS «, t00=0x00d4, t01=0x0044}
0x14b82…14ba8 Head {h00=0x0022, h01=0x0050, text=» SUKL A8,2 EXCLUDE LENGTH WORD«, t00=0x00d4, t01=0x006c}
0x14ba8…14bd6 Head {h00=0x002a, h01=0x0050, text=» ADR A10,A8 INCREMENT POINTER IN TTAB «, t00=0x00d4, t01=0x0092}
0x14bd6…14c0a Head {h00=0x0030, h01=0x002b, text=» ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD «, t00=0x00d4, t01=0x00c0}
0x14c0a…14c36 Head {h00=0x0028, h01=0x0050, text=» SUK A6,1 DECREMENT NUMBER OF TDC:S «, t00=0x00d4, t01=0x00f4}
0x14c36…14c48 Head {h00=0x000e, h01=0x0050, text=» RB DWTS30«, t00=0x00d4, t01=0x0120}
0x14c48…14c5c Head {h00=0x0010, h01=0x0050, text=»DWTS40 EQU *«, t00=0x00d4, t01=0x0132}
0x14c5c…14c66 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d4, t01=0x0146}
0x14c66…14c96 Head {h00=0x002c, h01=0x0027, text=»* GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x00d4, t01=0x0150}
0x14c96…14ca0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d4, t01=0x0180}
0x14ca0…14cb4 Head {h00=0x0010, h01=0x000c, text=» CALL GETSDC«, t00=0x00d4, t01=0x018a}
0x14cb4…14cd2 Head {h00=0x001a, h01=0x0015, text=» ADKL A9,SDCFST-CDBNC «, t00=0x00d5, t01=0x000e}
0x14cd2…14ce4 Head {h00=0x000e, h01=0x000a, text=» LDR A1,A1«, t00=0x00d5, t01=0x002c}
0x14ce4…14cf8 Head {h00=0x0010, h01=0x0050, text=»DWTS50 EQU *«, t00=0x00d5, t01=0x003e}
0x14cf8…14d0e Head {h00=0x0012, h01=0x0050, text=» RF(Z) DWTS90 «, t00=0x00d5, t01=0x0052}
0x14d0e…14d30 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+NBRSDC SAVE «, t00=0x00d5, t01=0x0068}
0x14d30…14d3a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d5, t01=0x008a}
0x14d3a…14d64 Head {h00=0x0026, h01=0x0050, text=»* GET SPECIAL DEVICE CLASS NUMBER«, t00=0x00d5, t01=0x0094}
0x14d64…14d6e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d5, t01=0x00be}
0x14d6e…14d82 Head {h00=0x0010, h01=0x000c, text=» CALL GETCLN«, t00=0x00d5, t01=0x00c8}
0x14d82…14d8c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d5, t01=0x00dc}
0x14d8c…14dc8 Head {h00=0x0038, h01=0x0033, text=»* GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS «, t00=0x00d5, t01=0x00e6}
0x14dc8…14dd2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d5, t01=0x0122}
0x14dd2…14de4 Head {h00=0x000e, h01=0x000a, text=» ADR A1,A1«, t00=0x00d5, t01=0x012c}
0x14de4…14e10 Head {h00=0x0028, h01=0x0050, text=» LD A6,STKEND+SCLA POINTER TO SCLASS«, t00=0x00d5, t01=0x013e}
0x14e10…14e30 Head {h00=0x001c, h01=0x0050, text=» ADR A6,A1 SELECT ENTRY «, t00=0x00d5, t01=0x016a}
0x14e30…14e58 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO CLASS«, t00=0x00d5, t01=0x018a}
0x14e58…14e70 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A6 SAVE «, t00=0x00d6, t01=0x0022}
0x14e70…14e8e Head {h00=0x001a, h01=0x0050, text=» LDR* A6,A6 GET LENGTH«, t00=0x00d6, t01=0x003a}
0x14e8e…14eb4 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00d6, t01=0x0058}
0x14eb4…14ec8 Head {h00=0x0010, h01=0x0050, text=»DWTS60 EQU *«, t00=0x00d6, t01=0x007e}
0x14ec8…14ee4 Head {h00=0x0018, h01=0x0014, text=» ADK A5,4 GET DEVICE«, t00=0x00d6, t01=0x0092}
0x14ee4…14f10 Head {h00=0x0028, h01=0x0023, text=» LDR* A1,A5 GET ADDRESS TO TYPE DWT «, t00=0x00d6, t01=0x00ae}
0x14f10…14f3c Head {h00=0x0028, h01=0x0023, text=» LD A3,DWTLEN,A1 GENERATION OF DWT? «, t00=0x00d6, t01=0x00da}
0x14f3c…14f54 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWTS70 NO«, t00=0x00d6, t01=0x0106}
0x14f54…14f5e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d6, t01=0x011e}
0x14f5e…14f72 Head {h00=0x0010, h01=0x000b, text=»* COPY DWT «, t00=0x00d6, t01=0x0128}
0x14f72…14f7c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d6, t01=0x013c}
0x14f7c…14f9a Head {h00=0x001a, h01=0x0016, text=» LDR A2,A12 TO-ADDRESS«, t00=0x00d6, t01=0x0146}
0x14f9a…14fca Head {h00=0x002c, h01=0x0027, text=» ADR A12,A3 UPDATE POINTER TO FREE AREA «, t00=0x00d6, t01=0x0164}
0x14fca…14fe8 (215, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CALL CHKMOV COPY DWT «, t00=0x00d7, t01=0x0004}
0x14fe8…14ff6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d7, t01=0x0022}
0x14ff6…15000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x0030}
0x15000…15038 Head {h00=0x0034, h01=0x0050, text=»* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM«, t00=0x00d7, t01=0x003a}
0x15038…15042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x0072}
0x15042…15068 Head {h00=0x0022, h01=0x0050, text=» LD A3,SCTOPT GET OPTION WORD «, t00=0x00d7, t01=0x007c}
0x15068…15088 Head {h00=0x001c, h01=0x0050, text=» ANK A3,1 MMU IN SYSTEM?«, t00=0x00d7, t01=0x00a2}
0x15088…150a2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DWTS65 NO! «, t00=0x00d7, t01=0x00c2}
0x150a2…150ce Head {h00=0x0028, h01=0x0050, text=» LDR A3,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x00d7, t01=0x00dc}
0x150ce…150fc Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 COMPUTE RELOCATION CONSTANT«, t00=0x00d7, t01=0x0108}
0x150fc…1512c Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x00d7, t01=0x0136}
0x1512c…15148 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A3 RELOCATE «, t00=0x00d7, t01=0x0166}
0x15148…15170 Head {h00=0x0024, h01=0x0050, text=» ANKL A4,/FFFE MAKE EVEN ADDRESS«, t00=0x00d7, t01=0x0182}
0x15170…15196 Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTMEC,A2 STORE IT BACK«, t00=0x00d8, t01=0x001a}
0x15196…151aa Head {h00=0x0010, h01=0x0050, text=»DWTS65 EQU *«, t00=0x00d8, t01=0x0040}
0x151aa…151d2 Head {h00=0x0024, h01=0x0020, text=» LDR A1,A2 DT-ADDRESS TO BE USED«, t00=0x00d8, t01=0x0054}
0x151d2…151e6 Head {h00=0x0010, h01=0x0050, text=»DWTS70 EQU *«, t00=0x00d8, t01=0x007c}
0x151e6…151f0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d8, t01=0x0090}
0x151f0…15222 Head {h00=0x002e, h01=0x002a, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x00d8, t01=0x009a}
0x15222…1522c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d8, t01=0x00cc}
0x1522c…15252 Head {h00=0x0022, h01=0x001e, text=» ST A1,2,A10 STORE DWT-ADDRESS«, t00=0x00d8, t01=0x00d6}
0x15252…1527a Head {h00=0x0024, h01=0x001f, text=» LD A1,-2,A5 GET INDEX/FILECODE «, t00=0x00d8, t01=0x00fc}
0x1527a…1529a Head {h00=0x001c, h01=0x0018, text=» STR A1,A10 SAVE IN TTAB«, t00=0x00d8, t01=0x0124}
0x1529a…152d0 Head {h00=0x0032, h01=0x0050, text=» ADKL A10,4 UPDATE TASK CONFIGURATION POINTER «, t00=0x00d8, t01=0x0144}
0x152d0…152e4 Head {h00=0x0010, h01=0x0050, text=»DWTS80 EQU *«, t00=0x00d8, t01=0x017a}
0x152e4…15312 Head {h00=0x002a, h01=0x0025, text=» SUK A6,4 DECREMENT NUMBER OF DEVICES «, t00=0x00d8, t01=0x018e}
0x15312…15334 Head {h00=0x001e, h01=0x0019, text=» RB(P) DWTS60 NEXT DEVICE «, t00=0x00d9, t01=0x002c}
0x15334…15342 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d9, t01=0x004e}
0x15342…1534c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d9, t01=0x005c}
0x1534c…15384 Head {h00=0x0034, h01=0x002f, text=»* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS «, t00=0x00d9, t01=0x0066}
0x15384…1538e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d9, t01=0x009e}
0x1538e…153a4 Head {h00=0x0012, h01=0x000e, text=» ADKL A9,SDC «, t00=0x00d9, t01=0x00a8}
0x153a4…153c0 Head {h00=0x0018, h01=0x0050, text=» LD A1,STKEND+NBRSDC«, t00=0x00d9, t01=0x00be}
0x153c0…153d2 Head {h00=0x000e, h01=0x0009, text=» SUK A1,1 «, t00=0x00d9, t01=0x00da}
0x153d2…153e4 Head {h00=0x000e, h01=0x000a, text=» RB DWTS50«, t00=0x00d9, t01=0x00ec}
0x153e4…153f8 Head {h00=0x0010, h01=0x0050, text=»DWTS90 EQU *«, t00=0x00d9, t01=0x00fe}
0x153f8…15402 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d9, t01=0x0112}
0x15402…1543e Head {h00=0x0038, h01=0x0050, text=»* CHECK IF MOORE TASKS WITH THE SAME CONFIGURATION «, t00=0x00d9, t01=0x011c}
0x1543e…15448 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00d9, t01=0x0158}
0x15448…15464 Head {h00=0x0018, h01=0x0050, text=» LD A1,STKEND+NBRTSK«, t00=0x00d9, t01=0x0162}
0x15464…15476 Head {h00=0x000e, h01=0x0009, text=» SUK A1,1 «, t00=0x00d9, t01=0x017e}
0x15476…1548c Head {h00=0x0012, h01=0x000d, text=» RB(P) DWTS20 «, t00=0x00d9, t01=0x0190}
0x1548c…15496 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00da, t01=0x0016}
0x15496…154c6 Head {h00=0x002c, h01=0x0028, text=»* CHECK IF MOORE TASK DEFINITION BLOCKS«, t00=0x00da, t01=0x0020}
0x154c6…154d0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00da, t01=0x0050}
0x154d0…154e4 Head {h00=0x0010, h01=0x000c, text=» CALL NXTBLK«, t00=0x00da, t01=0x005a}
0x154e4…15510 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00da, t01=0x006e}
0x15510…1552a Head {h00=0x0016, h01=0x0011, text=» RB(E) DWTS10 YES «, t00=0x00da, t01=0x009a}
0x1552a…15554 Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00da, t01=0x00b4}
0x15554…15582 Head {h00=0x002a, h01=0x0050, text=» RB(P) DWTS05 PROCESS NEXT APPLICATION«, t00=0x00da, t01=0x00de}
0x15582…15598 Head {h00=0x0012, h01=0x000e, text=» ST A12,SCTSFA«, t00=0x00da, t01=0x010c}
0x15598…155a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0122}
0x155a2…155d8 Head {h00=0x0032, h01=0x0050, text=»* CLEAR WORK AREA TO BE USED FOR ECHO DEVICE «, t00=0x00da, t01=0x012c}
0x155d8…15602 Head {h00=0x0026, h01=0x0050, text=»* AND TEMPORARY INTERRUPT TABLES «, t00=0x00da, t01=0x0162}
0x15602…1560c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x018c}
0x1560c…15636 Head {h00=0x0026, h01=0x0050, text=» LDR A1,P GET LOCATION COUNTER =4 «, t00=0x00db, t01=0x0008}
0x15636…1566a Head {h00=0x0030, h01=0x0050, text=»DWTS95 SUK A1,2 DECREMENT MEMORY ADDRESS =4 «, t00=0x00db, t01=0x0032}
0x1566a…1568e Head {h00=0x0020, h01=0x0050, text=» CMR A1 CLEAR MEMORY AREA =4«, t00=0x00db, t01=0x0066}
0x1568e…156ba Head {h00=0x0028, h01=0x0050, text=» CW A1,SCTSFA ALL WORDS CLEARED? =4 «, t00=0x00db, t01=0x008a}
0x156ba…156d8 Head {h00=0x001a, h01=0x0050, text=» RB(NE) DWTS95 NO! =4 «, t00=0x00db, t01=0x00b6}
0x156d8…156f0 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x00db, t01=0x00d4}
0x156f0…156fc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00db, t01=0x00ec}
0x156fc…15712 Head {h00=0x0012, h01=0x0050, text=» IFF TEDVCL=0 «, t00=0x00db, t01=0x00f8}
0x15712…15720 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00db, t01=0x010e}
0x15720…15758 Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x00db, t01=0x011c}
0x15758…15790 Head {h00=0x0034, h01=0x0030, text=»* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES *«, t00=0x00db, t01=0x0154}
0x15790…157c8 Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x00db, t01=0x018c}
0x157c8…15800 Head {h00=0x0034, h01=0x0030, text=»************************************************«, t00=0x00dc, t01=0x0034}
0x15800…1580a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00dc, t01=0x006c}
0x1580a…1582a Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: MONCON«, t00=0x00dc, t01=0x0076}
0x1582a…15834 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00dc, t01=0x0096}
0x15834…15846 Head {h00=0x000e, h01=0x000b, text=»* ENTRY: «, t00=0x00dc, t01=0x00a0}
0x15846…15850 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00dc, t01=0x00b2}
0x15850…15860 Head {h00=0x000c, h01=0x0008, text=»* EXIT:«, t00=0x00dc, t01=0x00bc}
0x15860…1586a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00dc, t01=0x00cc}
0x1586a…1588c Head {h00=0x001e, h01=0x0019, text=»* WORK REGISTERS: A1-A12 «, t00=0x00dc, t01=0x00d6}
0x1588c…15896 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00dc, t01=0x00f8}
0x15896…158de Head {h00=0x0044, h01=0x0040, text=»* SUBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK«, t00=0x00dc, t01=0x0102}
0x158de…158e8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00dc, t01=0x014a}
0x158e8…158f6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00dc, t01=0x0154}
0x158f6…1590a Head {h00=0x0010, h01=0x0050, text=»B:DWTT EQU *«, t00=0x00dc, t01=0x0162}
0x1590a…15932 Head {h00=0x0024, h01=0x0050, text=» CM STKEND+FWTFLG CLEAR FWT FLAG«, t00=0x00dc, t01=0x0176}
0x15932…1595a Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTFWT START OF FWT AREA «, t00=0x00dd, t01=0x000e}
0x1595a…15982 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) BDWT15 FWT AREA RESERVED«, t00=0x00dd, t01=0x0036}
0x15982…1599e Head {h00=0x0018, h01=0x0050, text=» LD A1,STKEND+LIMIT «, t00=0x00dd, t01=0x005e}
0x1599e…159da Head {h00=0x0038, h01=0x0050, text=» ST A1,STKEND+INTTAB START OF T.I.T. IF NO FWT AREA «, t00=0x00dd, t01=0x007a}
0x159da…159fe Head {h00=0x0020, h01=0x0050, text=» IM STKEND+FWTFLG INCREMENT «, t00=0x00dd, t01=0x00b6}
0x159fe…15a12 Head {h00=0x0010, h01=0x0050, text=»BDWT15 EQU *«, t00=0x00dd, t01=0x00da}
0x15a12…15a20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00dd, t01=0x00ee}
0x15a20…15a2a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00dd, t01=0x00fc}
0x15a2a…15a54 Head {h00=0x0026, h01=0x0050, text=»* INIT CONFIGURATION DATA POINTER«, t00=0x00dd, t01=0x0106}
0x15a54…15a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x0130}
0x15a5e…15a88 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00dd, t01=0x013a}
0x15a88…15ab6 Head {h00=0x002a, h01=0x0025, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x00dd, t01=0x0164}
0x15ab6…15ac0 (222, 0, 398) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00de, t01=0x0004}
0x15ac0…15b06 Head {h00=0x0042, h01=0x003e, text=»* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY«, t00=0x00de, t01=0x000e}
0x15b06…15b10 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00de, t01=0x0054}
0x15b10…15b42 Head {h00=0x002e, h01=0x0050, text=» LD A5,APLMMC,A2 GET FIRST USER TASK ENTRY«, t00=0x00de, t01=0x005e}
0x15b42…15b80 Head {h00=0x003a, h01=0x0050, text=» ST A5,STKEND+CUTENT STORE IN CURRENT USER TASK ENTRY «, t00=0x00de, t01=0x0090}
0x15b80…15b94 Head {h00=0x0010, h01=0x0050, text=»BDWT40 EQU *«, t00=0x00de, t01=0x00ce}
0x15b94…15b9e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00de, t01=0x00e2}
0x15b9e…15bd0 Head {h00=0x002e, h01=0x0029, text=»* GET NUMBER OF TASKS IN THIS TASK CLASS «, t00=0x00de, t01=0x00ec}
0x15bd0…15bda Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00de, t01=0x011e}
0x15bda…15c02 Head {h00=0x0024, h01=0x0020, text=» CALL GETTSK GET NUMBER OF TASKS«, t00=0x00de, t01=0x0128}
0x15c02…15c16 Head {h00=0x0010, h01=0x0050, text=»BDWT50 EQU *«, t00=0x00de, t01=0x0150}
0x15c16…15c44 Head {h00=0x002a, h01=0x0050, text=» ST A1,STKEND+NBRTSK SAVE BINARY VALUE«, t00=0x00de, t01=0x0164}
0x15c44…15c4e (223, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00df, t01=0x0004}
0x15c4e…15c92 Head {h00=0x0040, h01=0x003b, text=»* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS «, t00=0x00df, t01=0x000e}
0x15c92…15c9c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00df, t01=0x0052}
0x15c9c…15cb0 Head {h00=0x0010, h01=0x000c, text=» CALL GETTDC«, t00=0x00df, t01=0x005c}
0x15cb0…15cba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00df, t01=0x0070}
0x15cba…15ce2 Head {h00=0x0024, h01=0x0020, text=»* CHECK IF TASK WITHOUT DEVICES«, t00=0x00df, t01=0x007a}
0x15ce2…15cec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00df, t01=0x00a2}
0x15cec…15d14 Head {h00=0x0024, h01=0x0020, text=» LDR A1,A1 ANY TERMINAL DEVICES?«, t00=0x00df, t01=0x00ac}
0x15d14…15d2c Head {h00=0x0014, h01=0x0010, text=» RF(Z) BDW100 NO«, t00=0x00df, t01=0x00d4}
0x15d2c…15d6a Head {h00=0x003a, h01=0x0050, text=» ST A1,STKEND+NBRTDC SAVE NUMBER OF TERMINAL DEVICESS «, t00=0x00df, t01=0x00ec}
0x15d6a…15d9a Head {h00=0x002c, h01=0x0050, text=» LD* A10,STKEND+CUTENT GET TTAB ADDRESS «, t00=0x00df, t01=0x012a}
0x15d9a…15dd4 Head {h00=0x0036, h01=0x0050, text=» ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE «, t00=0x00df, t01=0x015a}
0x15dd4…15dde (224, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e0, t01=0x0004}
0x15dde…15e0a Head {h00=0x0028, h01=0x0023, text=»* GET TERMINAL DEVICE CLASS NUMBER «, t00=0x00e0, t01=0x000e}
0x15e0a…15e14 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e0, t01=0x003a}
0x15e14…15e46 Head {h00=0x002e, h01=0x002a, text=» LDR A9,A11 START OF TASK DEFINITION BLOCK«, t00=0x00e0, t01=0x0044}
0x15e46…15e7e Head {h00=0x0034, h01=0x0030, text=» ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION«, t00=0x00e0, t01=0x0076}
0x15e7e…15e92 Head {h00=0x0010, h01=0x0050, text=»BDWT55 EQU *«, t00=0x00e0, t01=0x00ae}
0x15e92…15eb8 Head {h00=0x0022, h01=0x001d, text=» CALL GETCLN GET CLASS NUMBER «, t00=0x00e0, t01=0x00c2}
0x15eb8…15ee6 Head {h00=0x002a, h01=0x0050, text=» ST A1,STKEND+CLANBR SAVE BINARY VALUE«, t00=0x00e0, t01=0x00e8}
0x15ee6…15ef0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e0, t01=0x0116}
0x15ef0…15f2e Head {h00=0x003a, h01=0x0035, text=»* FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS «, t00=0x00e0, t01=0x0120}
0x15f2e…15f38 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e0, t01=0x015e}
0x15f38…15f72 Head {h00=0x0036, h01=0x0050, text=» LD A2,STKEND+CLANBR GET BINARY VALUE OF CLASS ID «, t00=0x00e0, t01=0x0168}
0x15f72…15f8a Head {h00=0x0014, h01=0x000f, text=» ADR A2,A2 2*ID «, t00=0x00e1, t01=0x0012}
0x15f8a…15fb6 Head {h00=0x0028, h01=0x0050, text=» LD A7,STKEND+TCLA POINTER TO TCLASS«, t00=0x00e1, t01=0x002a}
0x15fb6…15fd2 Head {h00=0x0018, h01=0x0050, text=» ADR A7,A2 GET ENTRY«, t00=0x00e1, t01=0x0056}
0x15fd2…15ffa Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET POINTER TO CLASS«, t00=0x00e1, t01=0x0072}
0x15ffa…16004 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e1, t01=0x009a}
0x16004…16048 Head {h00=0x0040, h01=0x003c, text=»* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS«, t00=0x00e1, t01=0x00a4}
0x16048…16060 Head {h00=0x0014, h01=0x000f, text=»* IN THIS TASK «, t00=0x00e1, t01=0x00e8}
0x16060…1606a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e1, t01=0x0100}
0x1606a…1609a Head {h00=0x002c, h01=0x0027, text=» CALL GETLCN GET LINE CONNECTION NUMBER «, t00=0x00e1, t01=0x010a}
0x1609a…160be Head {h00=0x0020, h01=0x001c, text=» LDR A6,A1 SAVE BINARY VALUE«, t00=0x00e1, t01=0x013a}
0x160be…160ee Head {h00=0x002c, h01=0x0050, text=» LC A4,TDC+6,A9 GET LINE CONNECTION TYPE«, t00=0x00e1, t01=0x015e}
0x160ee…16116 Head {h00=0x0024, h01=0x0050, text=» CCK A4,'AA' ASCU4Z CONNECTION? «, t00=0x00e1, t01=0x018e}
0x16116…16130 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BDWT58 NO!«, t00=0x00e2, t01=0x0026}
0x16130…16162 Head {h00=0x002e, h01=0x0050, text=» LDR* A8,A7 YES! GET LENGTH OF THIS CLASS «, t00=0x00e2, t01=0x0040}
0x16162…1618a Head {h00=0x0024, h01=0x0050, text=» SUKL A8,2 EXCLUSIVE LENGTH WORD«, t00=0x00e2, t01=0x0072}
0x1618a…161a8 Head {h00=0x001a, h01=0x0050, text=» CWK A8,4 ONE DEVICE? «, t00=0x00e2, t01=0x009a}
0x161a8…161c2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BDWT57 NO!«, t00=0x00e2, t01=0x00b8}
0x161c2…161ee Head {h00=0x0028, h01=0x0050, text=» LD A8,4,A7 GET ADDRESS TO PROT.DWT «, t00=0x00e2, t01=0x00d2}
0x161ee…16212 Head {h00=0x0020, h01=0x0050, text=» LD A4,DWTTAB,A8 GET DEVICE «, t00=0x00e2, t01=0x00fe}
0x16212…16230 Head {h00=0x001a, h01=0x0050, text=» CWK A4,/C459 /C459 ? «, t00=0x00e2, t01=0x0122}
0x16230…1624a Head {h00=0x0016, h01=0x0050, text=» RF(E) BDWT58 YES!«, t00=0x00e2, t01=0x0140}
0x1624a…1625e Head {h00=0x0010, h01=0x0050, text=»BDWT57 EQU *«, t00=0x00e2, t01=0x015a}
0x1625e…16290 Head {h00=0x002e, h01=0x0050, text=» ADK A1,1 INCREMENT LINE CONNECTION NUMBER«, t00=0x00e2, t01=0x016e}
0x16290…162a4 Head {h00=0x0010, h01=0x0050, text=»BDWT58 EQU *«, t00=0x00e3, t01=0x0010}
0x162a4…162d6 Head {h00=0x002e, h01=0x002a, text=» ADK A1,1 INCREMENT LINE CONNECTION NUMBER«, t00=0x00e3, t01=0x0024}
0x162d6…1630e Head {h00=0x0034, h01=0x0050, text=» CALL BINASC CONVERT INCREMENTED VALUE TO ASCII «, t00=0x00e3, t01=0x0056}
0x1630e…1633a Head {h00=0x0028, h01=0x0050, text=» SC A1,TDC+5,A9 STORE ASCII DIGIT =2«, t00=0x00e3, t01=0x008e}
0x1633a…16364 Head {h00=0x0026, h01=0x0050, text=» SRL A1,8 MOVE LEFT ASCII DIGIT =2«, t00=0x00e3, t01=0x00ba}
0x16364…16390 Head {h00=0x0028, h01=0x0050, text=» SC A1,TDC+4,A9 STORE ASCII DIGIT =2«, t00=0x00e3, t01=0x00e4}
0x16390…163c2 Head {h00=0x002e, h01=0x0050, text=» SC A5,TDC+3,A9 STORE ASCII DIGIT DIGIT =2«, t00=0x00e3, t01=0x0110}
0x163c2…163d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e3, t01=0x0142}
0x163d0…163da Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e3, t01=0x0150}
0x163da…16402 Head {h00=0x0024, h01=0x0020, text=»* GENERATE DWT:S FOR THIS CLASS«, t00=0x00e3, t01=0x015a}
0x16402…16438 Head {h00=0x0032, h01=0x002d, text=»* A6 - LINE CONNECTION NUMBER (BINARY VALUE) «, t00=0x00e3, t01=0x0182}
0x16438…16468 Head {h00=0x002c, h01=0x0028, text=»* A7 - POINTER TO TERMINAL DEVICE CLASS«, t00=0x00e4, t01=0x0028}
0x16468…16472 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e4, t01=0x0058}
0x16472…164a4 Head {h00=0x002e, h01=0x002a, text=»* THE ENTRY IN TEMPORARY INTERRUPT TABLE «, t00=0x00e4, t01=0x0062}
0x164a4…164d6 Head {h00=0x002e, h01=0x002a, text=»* IS DERIVED FROM LINE CONNECTION NUMBER,«, t00=0x00e4, t01=0x0094}
0x164d6…16514 Head {h00=0x003a, h01=0x0036, text=»* DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT)«, t00=0x00e4, t01=0x00c6}
0x16514…1651e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e4, t01=0x0104}
0x1651e…16532 Head {h00=0x0010, h01=0x000c, text=» CALL DWTGEN«, t00=0x00e4, t01=0x010e}
0x16532…16546 Head {h00=0x0010, h01=0x0050, text=»BDWT90 EQU *«, t00=0x00e4, t01=0x0122}
0x16546…16588 Head {h00=0x003e, h01=0x0050, text=» LD A1,STKEND+NBRTDC GET NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x00e4, t01=0x0136}
0x16588…165b8 Head {h00=0x002c, h01=0x0027, text=» SUK A1,1 ANY MOORE IN THIS TASK CLASS? «, t00=0x00e4, t01=0x0178}
0x165b8…165d0 Head {h00=0x0014, h01=0x0010, text=» RF(Z) BDW100 NO«, t00=0x00e5, t01=0x0018}
0x165d0…16602 Head {h00=0x002e, h01=0x0050, text=» ST A1,STKEND+NBRTDC SAVE REMAINING NUMBER«, t00=0x00e5, t01=0x0030}
0x16602…1662a Head {h00=0x0024, h01=0x0020, text=» ADKL A9,TDC+TLC NEXT TDC RECORD«, t00=0x00e5, t01=0x0062}
0x1662a…1663c Head {h00=0x000e, h01=0x000a, text=» RB BDWT55«, t00=0x00e5, t01=0x008a}
0x1663c…16650 Head {h00=0x0010, h01=0x0050, text=»BDW100 EQU *«, t00=0x00e5, t01=0x009c}
0x16650…16676 Head {h00=0x0022, h01=0x0050, text=» CALL ECHO INIT ECHO POINTERS «, t00=0x00e5, t01=0x00b0}
0x16676…166ae Head {h00=0x0034, h01=0x0050, text=» LD A1,STKEND+CUTENT GET CURRENT ENTRY IN TC:TAB«, t00=0x00e5, t01=0x00d6}
0x166ae…166d8 Head {h00=0x0026, h01=0x0021, text=» ADK A1,2 INCREMENT ENTRY POINTER «, t00=0x00e5, t01=0x010e}
0x166d8…166fa Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+CUTENT SAVE «, t00=0x00e5, t01=0x0138}
0x166fa…16738 Head {h00=0x003a, h01=0x0050, text=» LD A1,STKEND+NBRTSK GET NUMBER OF TASKS IN THIS CLASS«, t00=0x00e5, t01=0x015a}
0x16738…1675e Head {h00=0x0022, h01=0x001e, text=» SUK A1,1 ANY MOORE TASKS LEFT«, t00=0x00e6, t01=0x0008}
0x1675e…16778 Head {h00=0x0016, h01=0x0050, text=» RB(P) BDWT50 YES «, t00=0x00e6, t01=0x002e}
0x16778…167a8 Head {h00=0x002c, h01=0x0028, text=»* CHECK IF MOORE TASK DEFINITION BLOCKS«, t00=0x00e6, t01=0x0048}
0x167a8…167b2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e6, t01=0x0078}
0x167b2…167da Head {h00=0x0024, h01=0x001f, text=» CALL NXTBLK SKIP TO NEXT BLOCK «, t00=0x00e6, t01=0x0082}
0x167da…16806 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00e6, t01=0x00aa}
0x16806…16820 Head {h00=0x0016, h01=0x0011, text=» RB(E) BDWT40 YES «, t00=0x00e6, t01=0x00d6}
0x16820…1682e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e6, t01=0x00f0}
0x1682e…16858 Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00e6, t01=0x00fe}
0x16858…1686e Head {h00=0x0012, h01=0x0050, text=» RB(P) BDWT40 «, t00=0x00e6, t01=0x0128}
0x1686e…1689e Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x00e6, t01=0x013e}
0x1689e…168b6 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x00e6, t01=0x016e}
0x168b6…168c2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e6, t01=0x0186}
0x168c2…168d2 (231, 0, 400) Head {h00=0x000c, h01=0x0007, text=» EJECT «, t00=0x00e7, t01=0x0004}
0x168d2…16902 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x00e7, t01=0x0014}
0x16902…16932 Head {h00=0x002c, h01=0x0050, text=»* B:CDT - BUILD COMMON DEVICE TABLE *«, t00=0x00e7, t01=0x0044}
0x16932…16962 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x00e7, t01=0x0074}
0x16962…1696c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e7, t01=0x00a4}
0x1696c…1698e Head {h00=0x001e, h01=0x0050, text=»* REFERENCED IN: SYSLDM «, t00=0x00e7, t01=0x00ae}
0x1698e…16998 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e7, t01=0x00d0}
0x16998…169c6 Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x00e7, t01=0x00da}
0x169c6…169fe Head {h00=0x0034, h01=0x0050, text=»* CONSTA - START OF CONFIGURATION DATA «, t00=0x00e7, t01=0x0108}
0x169fe…16a2a Head {h00=0x0028, h01=0x0024, text=»* SCTEFA - END OF FREE AREA«, t00=0x00e7, t01=0x0140}
0x16a2a…16a34 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e7, t01=0x016c}
0x16a34…16a6c Head {h00=0x0034, h01=0x0030, text=»* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE«, t00=0x00e7, t01=0x0176}
0x16a6c…16a76 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e8, t01=0x001e}
0x16a76…16a98 Head {h00=0x001e, h01=0x0019, text=»* WORK REGISTERS: A1-A12 «, t00=0x00e8, t01=0x0028}
0x16a98…16aa2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e8, t01=0x004a}
0x16aa2…16ae2 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE«, t00=0x00e8, t01=0x0054}
0x16ae2…16aec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e8, t01=0x0094}
0x16aec…16afa Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00e8, t01=0x009e}
0x16afa…16b0e Head {h00=0x0010, h01=0x0050, text=»B:CDT EQU * «, t00=0x00e8, t01=0x00ac}
0x16b0e…16b38 Head {h00=0x0026, h01=0x0021, text=» LD A12,SCTSFA START OF FREE AREA «, t00=0x00e8, t01=0x00c0}
0x16b38…16b56 Head {h00=0x001a, h01=0x0050, text=» LDK A7,0 RESET LENGTH«, t00=0x00e8, t01=0x00ea}
0x16b56…16b80 Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00e8, t01=0x0108}
0x16b80…16b8a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e8, t01=0x0132}
0x16b8a…16bb8 Head {h00=0x002a, h01=0x0025, text=»* GET COMMON DEVICE DEFINITION BLOCK «, t00=0x00e8, t01=0x013c}
0x16bb8…16bc2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00e8, t01=0x016a}
0x16bc2…16bd6 Head {h00=0x0010, h01=0x0050, text=»CDG:10 EQU *«, t00=0x00e8, t01=0x0174}
0x16bd6…16bea Head {h00=0x0010, h01=0x000c, text=» CALL NXTBLK«, t00=0x00e8, t01=0x0188}
0x16bea…16c16 Head {h00=0x0028, h01=0x0023, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00e9, t01=0x000c}
0x16c16…16c30 Head {h00=0x0016, h01=0x0011, text=» RB(E) CDG:10 YES «, t00=0x00e9, t01=0x0038}
0x16c30…16c5c Head {h00=0x0028, h01=0x0024, text=» CCK A2,'CC' COMMON DEV. DEF. BLOCK?«, t00=0x00e9, t01=0x0052}
0x16c5c…16c76 Head {h00=0x0016, h01=0x0050, text=» RF(NE) BCDTEX NO «, t00=0x00e9, t01=0x007e}
0x16c76…16c84 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e9, t01=0x0098}
0x16c84…16c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x00a6}
0x16c8e…16ccc Head {h00=0x003a, h01=0x0050, text=»* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x00e9, t01=0x00b0}
0x16ccc…16d08 Head {h00=0x0038, h01=0x0050, text=»* AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES«, t00=0x00e9, t01=0x00ee}
0x16d08…16d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x012a}
0x16d12…16d46 Head {h00=0x0030, h01=0x0050, text=» LDR A9,A11 START OF COMMON DEFINITION BLOCK«, t00=0x00e9, t01=0x0134}
0x16d46…16d80 Head {h00=0x0036, h01=0x0050, text=» ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES «, t00=0x00e9, t01=0x0168}
0x16d80…16daa Head {h00=0x0026, h01=0x0050, text=» CALL GETCTC GET NUMBER OF C.T.C. «, t00=0x00ea, t01=0x0012}
0x16daa…16dc2 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x00ea, t01=0x003c}
0x16dc2…16de8 Head {h00=0x0022, h01=0x0050, text=»B:CT10 RF(Z) B:CT30 NO MOORE! «, t00=0x00ea, t01=0x0054}
0x16de8…16e1a Head {h00=0x002e, h01=0x0050, text=» CALL GETCLN GET CLASS IDENT NUMBER (1-99)«, t00=0x00ea, t01=0x007a}
0x16e1a…16e4a Head {h00=0x002c, h01=0x0050, text=» ADR A1,A1 DISPLACEMENT TO CLASS POINTER«, t00=0x00ea, t01=0x00ac}
0x16e4a…16e7a Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x00ea, t01=0x00dc}
0x16e7a…16ea2 Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A5 GET LENGTH OF TCLASS«, t00=0x00ea, t01=0x010c}
0x16ea2…16ec2 Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 EXCLUDE LENGTH«, t00=0x00ea, t01=0x0134}
0x16ec2…16eec Head {h00=0x0026, h01=0x0050, text=» CWR A1,A2 MAKE SURE CLASS EXISTS «, t00=0x00ea, t01=0x0154}
0x16eec…16f06 Head {h00=0x0016, h01=0x0050, text=» RF(NG) B:CT20 OK!«, t00=0x00ea, t01=0x017e}
0x16f06…16f2a Head {h00=0x0020, h01=0x0050, text=» LDKL A1,LMP4 FORMAT ERROR! «, t00=0x00eb, t01=0x0008}
0x16f2a…16f3e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00eb, t01=0x002c}
0x16f3e…16f6e Head {h00=0x002c, h01=0x0050, text=»B:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS «, t00=0x00eb, t01=0x0040}
0x16f6e…16f96 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET POINTER TO CLASS«, t00=0x00eb, t01=0x0070}
0x16f96…16fbe Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET LENGTH OF CLASS «, t00=0x00eb, t01=0x0098}
0x16fbe…16fe4 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x00eb, t01=0x00c0}
0x16fe4…1700e Head {h00=0x0026, h01=0x0050, text=» ADR A7,A1 INCREMENT CDTAB LENGTH «, t00=0x00eb, t01=0x00e6}
0x1700e…17040 Head {h00=0x002e, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE«, t00=0x00eb, t01=0x0110}
0x17040…17066 Head {h00=0x0022, h01=0x0050, text=» SUK A6,1 DECR. NBR OF C.T.C. «, t00=0x00eb, t01=0x0142}
0x17066…17078 Head {h00=0x000e, h01=0x0050, text=» RB B:CT10«, t00=0x00eb, t01=0x0168}
0x17078…17086 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00eb, t01=0x017a}
0x17086…1709a Head {h00=0x0010, h01=0x0050, text=»B:CT30 EQU *«, t00=0x00eb, t01=0x0188}
0x1709a…170a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x000c}
0x170a4…170e2 Head {h00=0x003a, h01=0x0050, text=»* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x00ec, t01=0x0016}
0x170e2…1711e Head {h00=0x0038, h01=0x0050, text=»* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES «, t00=0x00ec, t01=0x0054}
0x1711e…17128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x0090}
0x17128…1713c Head {h00=0x0010, h01=0x000c, text=» CALL GETSDC«, t00=0x00ec, t01=0x009a}
0x1713c…1715a Head {h00=0x001a, h01=0x0015, text=» ADKL A9,SDCFST-CDBNC «, t00=0x00ec, t01=0x00ae}
0x1715a…1716c Head {h00=0x000e, h01=0x000a, text=» LDR A6,A1«, t00=0x00ec, t01=0x00cc}
0x1716c…17180 Head {h00=0x0010, h01=0x0050, text=»BCDT10 EQU *«, t00=0x00ec, t01=0x00de}
0x17180…17196 Head {h00=0x0012, h01=0x000d, text=» RF(Z) BCDTEX «, t00=0x00ec, t01=0x00f2}
0x17196…171aa Head {h00=0x0010, h01=0x000c, text=» CALL GETCLN«, t00=0x00ec, t01=0x0108}
0x171aa…171bc Head {h00=0x000e, h01=0x000a, text=» ADR A1,A1«, t00=0x00ec, t01=0x011c}
0x171bc…171ec Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00ec, t01=0x012e}
0x171ec…17200 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A5 «, t00=0x00ec, t01=0x015e}
0x17200…17212 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00ec, t01=0x0172}
0x17212…17224 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x00ec, t01=0x0184}
0x17224…1723a Head {h00=0x0012, h01=0x0050, text=» RF(NG) BCDT15«, t00=0x00ed, t01=0x0008}
0x1723a…17250 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x00ed, t01=0x001e}
0x17250…17264 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00ed, t01=0x0034}
0x17264…17278 Head {h00=0x0010, h01=0x0050, text=»BCDT15 EQU *«, t00=0x00ed, t01=0x0048}
0x17278…17298 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A5 SELECT ENTRY «, t00=0x00ed, t01=0x005c}
0x17298…172c0 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET POINTER TO CLASS«, t00=0x00ed, t01=0x007c}
0x172c0…172de Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A1 GET LENGTH«, t00=0x00ed, t01=0x00a4}
0x172de…172f0 Head {h00=0x000e, h01=0x0009, text=» SUK A1,2 «, t00=0x00ed, t01=0x00c2}
0x172f0…17304 Head {h00=0x0010, h01=0x000c, text=» ADKL A9,SDC«, t00=0x00ed, t01=0x00d4}
0x17304…17316 Head {h00=0x000e, h01=0x000a, text=» ADR A7,A1«, t00=0x00ed, t01=0x00e8}
0x17316…17328 Head {h00=0x000e, h01=0x0009, text=» SUK A6,1 «, t00=0x00ed, t01=0x00fa}
0x17328…1733a Head {h00=0x000e, h01=0x000a, text=» RB BCDT10«, t00=0x00ed, t01=0x010c}
0x1733a…1734e Head {h00=0x0010, h01=0x0050, text=»BCDTEX EQU *«, t00=0x00ed, t01=0x011e}
0x1734e…17378 Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00ed, t01=0x0132}
0x17378…173a0 Head {h00=0x0024, h01=0x0050, text=» RB(P) CDG:10 MORE APPLICATIONS?«, t00=0x00ed, t01=0x015c}
0x173a0…173ca Head {h00=0x0026, h01=0x0050, text=» CALL FSTAPL GET FIRST APPLICATION«, t00=0x00ed, t01=0x0184}
0x173ca…173f4 Head {h00=0x0026, h01=0x0050, text=»B:CT35 CALL NXTBLK GET NEXT BLOCK «, t00=0x00ee, t01=0x001e}
0x173f4…17420 Head {h00=0x0028, h01=0x0050, text=» CCK A2,'TT' TASK DEFINITION BLOCK? «, t00=0x00ee, t01=0x0048}
0x17420…1743a Head {h00=0x0016, h01=0x0050, text=» RB(E) B:CT35 YES «, t00=0x00ee, t01=0x0074}
0x1743a…17448 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ee, t01=0x008e}
0x17448…17452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x009c}
0x17452…17492 Head {h00=0x003c, h01=0x0050, text=»* RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES «, t00=0x00ee, t01=0x00a6}
0x17492…174cc Head {h00=0x0036, h01=0x0050, text=»* AND DWT-ADDRESSES USED FOR PHYSICAL I/O ON DISC«, t00=0x00ee, t01=0x00e6}
0x174cc…174d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x0120}
0x174d6…17510 Head {h00=0x0036, h01=0x0050, text=»* ALSO RESERVE ENTRIES IN COMMON DEVICE TABLE FOR«, t00=0x00ee, t01=0x012a}
0x17510…17554 Head {h00=0x0040, h01=0x0050, text=»* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION «, t00=0x00ee, t01=0x0164}
0x17554…1755e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0018}
0x1755e…175ac Head {h00=0x004a, h01=0x0050, text=»* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS«, t00=0x00ef, t01=0x0022}
0x175ac…175b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0070}
0x175b6…175e0 Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTDCT DATA COMMUNICATION? «, t00=0x00ef, t01=0x007a}
0x175e0…17606 Head {h00=0x0022, h01=0x0050, text=» LD A6,SCTDMT DATA MANAGEMENT «, t00=0x00ef, t01=0x00a4}
0x17606…17622 Head {h00=0x0018, h01=0x0050, text=» ORR A6,A1 DM OR DC?«, t00=0x00ef, t01=0x00ca}
0x17622…17648 Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00ef, t01=0x00e6}
0x17648…17670 Head {h00=0x0024, h01=0x0050, text=» ANK A1,/E DISC PAGING OR SWB:S?«, t00=0x00ef, t01=0x010c}
0x17670…176a0 Head {h00=0x002c, h01=0x0050, text=» ORR A6,A1 COPY LAST SCLASS IF NOT ZERO «, t00=0x00ef, t01=0x0134}
0x176a0…176ba Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:12 NO! «, t00=0x00ef, t01=0x0164}
0x176ba…176ea Head {h00=0x002c, h01=0x0050, text=» LD A6,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00ef, t01=0x017e}
0x176ea…17712 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A6 GET LENGTH OF SCLASS«, t00=0x00f0, t01=0x001e}
0x17712…17738 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x00f0, t01=0x0046}
0x17738…17760 Head {h00=0x0024, h01=0x0050, text=» ADR A6,A1 LAST ENTRY IN SCLASS «, t00=0x00f0, t01=0x006c}
0x17760…1778e Head {h00=0x002a, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO LAST CLASS «, t00=0x00f0, t01=0x0094}
0x1778e…177ba Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A6 GET LENGTH OF LAST CLASS«, t00=0x00f0, t01=0x00c2}
0x177ba…177e0 Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00f0, t01=0x00ee}
0x177e0…1780a Head {h00=0x0026, h01=0x0050, text=» ADR A7,A6 ADD TO LENGTH OF CD:TAB«, t00=0x00f0, t01=0x0114}
0x1780a…1781e Head {h00=0x0010, h01=0x0050, text=»CDG:12 EQU *«, t00=0x00f0, t01=0x013e}
0x1781e…17830 Head {h00=0x000e, h01=0x0009, text=» ADK A7,2 «, t00=0x00f0, t01=0x0152}
0x17830…17844 Head {h00=0x0010, h01=0x000b, text=» STR A7,A12 «, t00=0x00f0, t01=0x0164}
0x17844…1785a Head {h00=0x0012, h01=0x0050, text=» ST A12,SCTCDT«, t00=0x00f0, t01=0x0178}
0x1785a…1786e Head {h00=0x0010, h01=0x000b, text=» ADR A12,A7 «, t00=0x00f0, t01=0x018e}
0x1786e…17892 Head {h00=0x0020, h01=0x0050, text=» ST A11,STKEND+WRK1 SAVE A11«, t00=0x00f1, t01=0x0012}
0x17892…178b8 Head {h00=0x0022, h01=0x0050, text=» LDR A11,A12 GET END OF CDTAB «, t00=0x00f1, t01=0x0036}
0x178b8…178ea Head {h00=0x002e, h01=0x0050, text=» LD A9,STKEND+LIMIT GET END OF SYSTEM AREA«, t00=0x00f1, t01=0x005c}
0x178ea…17918 Head {h00=0x002a, h01=0x0050, text=» CALL CMPADR CHECK IF MEMORY OVERFLOW «, t00=0x00f1, t01=0x008e}
0x17918…17932 Head {h00=0x0016, h01=0x0050, text=» RF(NG) CDG:13 OK «, t00=0x00f1, t01=0x00bc}
0x17932…17960 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00f1, t01=0x00d6}
0x17960…17974 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00f1, t01=0x0104}
0x17974…179a2 Head {h00=0x002a, h01=0x0050, text=»CDG:13 LD A11,STKEND+WRK1 RESTORE A11 «, t00=0x00f1, t01=0x0118}
0x179a2…179b0 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00f1, t01=0x0146}
0x179b0…179ba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00f1, t01=0x0154}
0x179ba…179f4 Head {h00=0x0036, h01=0x0031, text=»* INIT POINTER TO START OF FREE AREA AND TO CDTAB «, t00=0x00f1, t01=0x015e}
0x179f4…179fe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00f2, t01=0x0008}
0x179fe…17a2a Head {h00=0x0028, h01=0x0050, text=» LD A10,SCTCDT FIRST ENTRY IN SCTCDT«, t00=0x00f2, t01=0x0012}
0x17a2a…17a58 Head {h00=0x002a, h01=0x0050, text=»CDG:15 LCR A2,A11 GET FIRST CHARACTER «, t00=0x00f2, t01=0x003e}
0x17a58…17a8a Head {h00=0x002e, h01=0x0050, text=»CDG:16 CCK A2,'TT' TASK DEFINITION BLOCK/ «, t00=0x00f2, t01=0x006c}
0x17a8a…17aa4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) CDG:17 NO!«, t00=0x00f2, t01=0x009e}
0x17aa4…17ac6 Head {h00=0x001e, h01=0x0050, text=» CALL NXTBLK GET NEXT BLCK«, t00=0x00f2, t01=0x00b8}
0x17ac6…17ad8 Head {h00=0x000e, h01=0x0050, text=» RB CDG:16«, t00=0x00f2, t01=0x00da}
0x17ad8…17b06 Head {h00=0x002a, h01=0x0050, text=»CDG:17 CCK A2,'CC' COMMON DEF. BLOCK? «, t00=0x00f2, t01=0x00ec}
0x17b06…17b20 Head {h00=0x0016, h01=0x0050, text=» RF(E) CDG:19 YES!«, t00=0x00f2, t01=0x011a}
0x17b20…17b52 Head {h00=0x002e, h01=0x0050, text=» SUR A8,A8 INDICATE NO COMMON WORK BLOCKS «, t00=0x00f2, t01=0x0134}
0x17b52…17b7e Head {h00=0x0028, h01=0x0050, text=»CDG:18 RF(N) CDG:EX CDTAB COMPLETE! «, t00=0x00f2, t01=0x0166}
0x17b7e…17ba8 (243, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CALL NXTAPL GET NEXT APPLICATION «, t00=0x00f3, t01=0x0004}
0x17ba8…17bd0 Head {h00=0x0024, h01=0x0050, text=» RB(P) CDG:15 MORE APPLICATIONS «, t00=0x00f3, t01=0x002e}
0x17bd0…17bf6 Head {h00=0x0022, h01=0x0050, text=» RF CDGEX NO MORE APPLICATIONS«, t00=0x00f3, t01=0x0056}
0x17bf6…17c0a Head {h00=0x0010, h01=0x0050, text=»CDG:19 EQU *«, t00=0x00f3, t01=0x007c}
0x17c0a…17c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x0090}
0x17c14…17c56 Head {h00=0x003e, h01=0x0050, text=»* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES«, t00=0x00f3, t01=0x009a}
0x17c56…17c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x00dc}
0x17c60…17c8e Head {h00=0x002a, h01=0x0050, text=» LDR A9,A11 START OF COMMON DEF. BLOCK«, t00=0x00f3, t01=0x00e6}
0x17c8e…17cc8 Head {h00=0x0036, h01=0x0050, text=» ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES «, t00=0x00f3, t01=0x0114}
0x17cc8…17cf2 Head {h00=0x0026, h01=0x0050, text=» CALL GETCTC GET NUMBER OF C.T.C. «, t00=0x00f3, t01=0x014e}
0x17cf2…17d22 Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 ANY COMMON TERMINAL CLASSES? «, t00=0x00f3, t01=0x0178}
0x17d22…17d42 Head {h00=0x001c, h01=0x0050, text=»B:CT40 RF(Z) B:CT50 NO! «, t00=0x00f4, t01=0x0018}
0x17d42…17d64 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+NBRCOM SAVE «, t00=0x00f4, t01=0x0038}
0x17d64…17d90 Head {h00=0x0028, h01=0x0050, text=» CALL GETCLN GET CLASS IDENT NUMBER «, t00=0x00f4, t01=0x005a}
0x17d90…17db2 Head {h00=0x001e, h01=0x0050, text=» ST A1,STKEND+CLASID SAVE «, t00=0x00f4, t01=0x0086}
0x17db2…17de2 Head {h00=0x002c, h01=0x0050, text=» CALL GETLCN GET LINE CONNECTION NUMBER «, t00=0x00f4, t01=0x00a8}
0x17de2…17dfa Head {h00=0x0014, h01=0x0050, text=» LDR A6,A1 SAVE «, t00=0x00f4, t01=0x00d8}
0x17dfa…17e2e Head {h00=0x0030, h01=0x0050, text=» LD A2,STKEND+CLASID GET CLASS IDENT NUMBER «, t00=0x00f4, t01=0x00f0}
0x17e2e…17e58 Head {h00=0x0026, h01=0x0050, text=» ADR A2,A2 CONVERT TO DISPLACEMENT«, t00=0x00f4, t01=0x0124}
0x17e58…17e88 Head {h00=0x002c, h01=0x0050, text=» LD A7,STKEND+TCLA GET POINTER TO TCLASS«, t00=0x00f4, t01=0x014e}
0x17e88…17eb2 Head {h00=0x0026, h01=0x0050, text=» ADR A7,A2 SELECT ENTRY IN TCLASS «, t00=0x00f4, t01=0x017e}
0x17eb2…17eda Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET POINTER TO CLASS«, t00=0x00f5, t01=0x0018}
0x17eda…17f0c Head {h00=0x002e, h01=0x0050, text=» CALL DWTGEN GENERATE DWT:S FOR THIS CLASS«, t00=0x00f5, t01=0x0040}
0x17f0c…17f3e Head {h00=0x002e, h01=0x0050, text=» ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE«, t00=0x00f5, t01=0x0072}
0x17f3e…17f70 Head {h00=0x002e, h01=0x0050, text=» LD A1,STKEND+NBRCOM GET NUMBER OF C.T.C. «, t00=0x00f5, t01=0x00a4}
0x17f70…17f94 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 DECREMENT COUNTER «, t00=0x00f5, t01=0x00d6}
0x17f94…17fa6 Head {h00=0x000e, h01=0x0050, text=» RB B:CT40«, t00=0x00f5, t01=0x00fa}
0x17fa6…17fbe Head {h00=0x0014, h01=0x0050, text=»B:CT50 CALL ECHO«, t00=0x00f5, t01=0x010c}
0x17fbe…17fcc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f5, t01=0x0124}
0x17fcc…17fd6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00f5, t01=0x0132}
0x17fd6…18006 Head {h00=0x002c, h01=0x0027, text=»* GET NUMBER OF SPECIAL DEVICE CLASSES «, t00=0x00f5, t01=0x013c}
0x18006…18010 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00f5, t01=0x016c}
0x18010…18024 Head {h00=0x0010, h01=0x000c, text=» CALL GETSDC«, t00=0x00f5, t01=0x0176}
0x18024…18042 Head {h00=0x001a, h01=0x0015, text=» ADKL A9,SDCFST-CDBNC «, t00=0x00f5, t01=0x018a}
0x18042…18054 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x00f6, t01=0x0018}
0x18054…18068 Head {h00=0x0010, h01=0x0050, text=»CDG:20 EQU *«, t00=0x00f6, t01=0x002a}
0x18068…1807e Head {h00=0x0012, h01=0x0050, text=» RB(NP) CDG:18«, t00=0x00f6, t01=0x003e}
0x1807e…18088 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00f6, t01=0x0054}
0x18088…180b2 Head {h00=0x0026, h01=0x0023, text=»* GET SPECIAL DEVICE CLASS NUMBER«, t00=0x00f6, t01=0x005e}
0x180b2…180bc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00f6, t01=0x0088}
0x180bc…180d0 Head {h00=0x0010, h01=0x000c, text=» CALL GETCLN«, t00=0x00f6, t01=0x0092}
0x180d0…180da Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00f6, t01=0x00a6}
0x180da…1810e Head {h00=0x0030, h01=0x002b, text=»* GET CORRESPONDING DEVICE CLASS IN SCLASS «, t00=0x00f6, t01=0x00b0}
0x1810e…18118 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00f6, t01=0x00e4}
0x18118…1812e Head {h00=0x0012, h01=0x000e, text=» ADR A1,A1 T «, t00=0x00f6, t01=0x00ee}
0x1812e…1815e Head {h00=0x002c, h01=0x0050, text=» LD A6,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00f6, t01=0x0104}
0x1815e…1817e Head {h00=0x001c, h01=0x0050, text=» ADR A6,A1 SELECT CLASS «, t00=0x00f6, t01=0x0134}
0x1817e…181a8 Head {h00=0x0026, h01=0x0050, text=» LDR* A5,A6 SAVE POINTER TO CLASS «, t00=0x00f6, t01=0x0154}
0x181a8…181d0 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET POINTER TO CLASS«, t00=0x00f6, t01=0x017e}
0x181d0…181f8 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 GET LENGTH OF CLASS «, t00=0x00f7, t01=0x0016}
0x181f8…1821e Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00f7, t01=0x003e}
0x1821e…18232 Head {h00=0x0010, h01=0x0050, text=»CDG:30 EQU *«, t00=0x00f7, t01=0x0064}
0x18232…18250 Head {h00=0x001a, h01=0x0015, text=» ADK A5,4 NEXT DEVICE «, t00=0x00f7, t01=0x0078}
0x18250…18274 Head {h00=0x0020, h01=0x001b, text=» LDR* A1,A5 GET DWT-ADDRESS «, t00=0x00f7, t01=0x0096}
0x18274…182a0 Head {h00=0x0028, h01=0x0023, text=» LD A3,DWTLEN,A1 GENERATION OF DWT? «, t00=0x00f7, t01=0x00ba}
0x182a0…182b8 Head {h00=0x0014, h01=0x0010, text=» RF(Z) CDG:40 NO«, t00=0x00f7, t01=0x00e6}
0x182b8…182c2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00f7, t01=0x00fe}
0x182c2…182d6 Head {h00=0x0010, h01=0x000b, text=»* COPY DWT «, t00=0x00f7, t01=0x0108}
0x182d6…182e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00f7, t01=0x011c}
0x182e0…182fe Head {h00=0x001a, h01=0x0016, text=» LDR A2,A12 TO-ADDRESS«, t00=0x00f7, t01=0x0126}
0x182fe…1832e Head {h00=0x002c, h01=0x0027, text=» ADR A12,A3 UPDATE POINTER TO FREE AREA «, t00=0x00f7, t01=0x0144}
0x1832e…1834c Head {h00=0x001a, h01=0x0050, text=» CALL CHKMOV COPY DWT «, t00=0x00f7, t01=0x0174}
0x1834c…18356 (248, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x0004}
0x18356…1838e Head {h00=0x0034, h01=0x0050, text=»* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM«, t00=0x00f8, t01=0x000e}
0x1838e…18398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f8, t01=0x0046}
0x18398…183be Head {h00=0x0022, h01=0x0050, text=» LD A3,SCTOPT GET OPTION WORD «, t00=0x00f8, t01=0x0050}
0x183be…183de Head {h00=0x001c, h01=0x0050, text=» ANK A3,1 MMU IN SYSTEM?«, t00=0x00f8, t01=0x0076}
0x183de…183f8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:35 NO! «, t00=0x00f8, t01=0x0096}
0x183f8…18424 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x00f8, t01=0x00b0}
0x18424…18452 Head {h00=0x002a, h01=0x0050, text=» SUR A3,A2 COMPUTE RELOCATION CONSTANT«, t00=0x00f8, t01=0x00dc}
0x18452…18482 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x00f8, t01=0x010a}
0x18482…184a6 Head {h00=0x0020, h01=0x0050, text=» ANKL A4,/FFFE MAKE IT EVEN!«, t00=0x00f8, t01=0x013a}
0x184a6…184c2 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A3 RELOCATE «, t00=0x00f8, t01=0x015e}
0x184c2…184e8 Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTMEC,A2 STORE IT BACK«, t00=0x00f8, t01=0x017a}
0x184e8…184fc Head {h00=0x0010, h01=0x0050, text=»CDG:35 EQU *«, t00=0x00f9, t01=0x0010}
0x184fc…18522 Head {h00=0x0022, h01=0x001d, text=» LDR A1,A2 DWT-ADDRESS TO USE «, t00=0x00f9, t01=0x0024}
0x18522…18536 Head {h00=0x0010, h01=0x0050, text=»CDG:40 EQU *«, t00=0x00f9, t01=0x004a}
0x18536…18540 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00f9, t01=0x005e}
0x18540…18572 Head {h00=0x002e, h01=0x002a, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x00f9, t01=0x0068}
0x18572…1857c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00f9, t01=0x009a}
0x1857c…185a2 Head {h00=0x0022, h01=0x0050, text=» ST A1,4,A10 STORE DWT-ADDRESS«, t00=0x00f9, t01=0x00a4}
0x185a2…185c4 Head {h00=0x001e, h01=0x001a, text=» LD A1,-2,A5 GET FILE CODE«, t00=0x00f9, t01=0x00ca}
0x185c4…185e6 Head {h00=0x001e, h01=0x0050, text=» ST A1,2,A10 STORE IN TTAB«, t00=0x00f9, t01=0x00ec}
0x185e6…1860e Head {h00=0x0024, h01=0x0020, text=» ADKL A10,4 NEXT ENTRY IN CD:TAB«, t00=0x00f9, t01=0x010e}
0x1860e…18638 Head {h00=0x0026, h01=0x0022, text=» SUK A6,4 DECREMENT DEVICE COUNTER«, t00=0x00f9, t01=0x0136}
0x18638…1865a Head {h00=0x001e, h01=0x0019, text=» RB(P) CDG:30 NEXT DEVICE «, t00=0x00f9, t01=0x0160}
0x1865a…18668 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f9, t01=0x0182}
0x18668…18672 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00f9, t01=0x0190}
0x18672…186a2 Head {h00=0x002c, h01=0x0028, text=»* CHECK IF MOORE SPECIAL DEVICE CLASSES«, t00=0x00fa, t01=0x000a}
0x186a2…186ac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00fa, t01=0x003a}
0x186ac…186c0 Head {h00=0x0010, h01=0x000c, text=» ADKL A9,SDC«, t00=0x00fa, t01=0x0044}
0x186c0…186d2 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x00fa, t01=0x0058}
0x186d2…186e4 Head {h00=0x000e, h01=0x000a, text=» RB CDG:20«, t00=0x00fa, t01=0x006a}
0x186e4…186f8 Head {h00=0x0010, h01=0x0050, text=»CDGEX EQU * «, t00=0x00fa, t01=0x007c}
0x186f8…1871e Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTDMT DATA MANAGEMENT «, t00=0x00fa, t01=0x0090}
0x1871e…18746 Head {h00=0x0024, h01=0x0050, text=» LD A5,SCTDCT DATA COMMUNICATION«, t00=0x00fa, t01=0x00b6}
0x18746…18762 Head {h00=0x0018, h01=0x0050, text=» ORR A1,A5 DM OR DC?«, t00=0x00fa, t01=0x00de}
0x18762…18788 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x00fa, t01=0x00fa}
0x18788…187b0 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/E DISC PAGING OR SWB:S?«, t00=0x00fa, t01=0x0120}
0x187b0…187e0 Head {h00=0x002c, h01=0x0050, text=» ORR A1,A5 COPY LAST SCLASS IF NOT ZERO «, t00=0x00fa, t01=0x0148}
0x187e0…187fa Head {h00=0x0016, h01=0x0050, text=» RF(Z) CDG:EX NO! «, t00=0x00fa, t01=0x0178}
0x187fa…1882a (251, 0, 398) Head {h00=0x002c, h01=0x0050, text=» LD A5,STKEND+SCLA GET POINTER TO SCLASS«, t00=0x00fb, t01=0x0004}
0x1882a…18852 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A5 GET LENGTH OF SCLASS«, t00=0x00fb, t01=0x0034}
0x18852…18878 Head {h00=0x0022, h01=0x0050, text=» SUK A1,2 EXCLUDE LENGTH WORD «, t00=0x00fb, t01=0x005c}
0x18878…1889a Head {h00=0x001e, h01=0x0050, text=» ADR A5,A1 GET LAST ENTRY «, t00=0x00fb, t01=0x0082}
0x1889a…188c8 Head {h00=0x002a, h01=0x0050, text=» LDR* A5,A5 GET POINTER TO LAST CLASS «, t00=0x00fb, t01=0x00a4}
0x188c8…188f4 Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A5 GET LENGTH OF LAST CLASS«, t00=0x00fb, t01=0x00d2}
0x188f4…1891a Head {h00=0x0022, h01=0x0050, text=» SUK A6,2 EXCLUDE LENGTH WORD «, t00=0x00fb, t01=0x00fe}
0x1891a…1892c Head {h00=0x000e, h01=0x0050, text=» RB CDG:30«, t00=0x00fb, t01=0x0124}
0x1892c…18940 Head {h00=0x0010, h01=0x0050, text=»CDG:EX EQU *«, t00=0x00fb, t01=0x0136}
0x18940…18970 Head {h00=0x002c, h01=0x0028, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x00fb, t01=0x014a}
0x18970…18988 Head {h00=0x0014, h01=0x000f, text=» RTN A14 RETURN «, t00=0x00fb, t01=0x017a}
0x18988…18996 (252, 0, 400) Head {h00=0x000a, h01=0x0050, text=» =6«, t00=0x00fc, t01=0x0004}
0x18996…189a4 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00fc, t01=0x0012}
0x189a4…189f2 Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x00fc, t01=0x0020}
0x189f2…18a3e Head {h00=0x0048, h01=0x0043, text=»* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS «, t00=0x00fc, t01=0x006e}
0x18a3e…18a8c Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x00fc, t01=0x00ba}
0x18a8c…18a96 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00fc, t01=0x0108}
0x18a96…18ace Head {h00=0x0034, h01=0x002f, text=»* ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) «, t00=0x00fc, t01=0x0112}
0x18ace…18b10 Head {h00=0x003e, h01=0x003a, text=»* A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS«, t00=0x00fc, t01=0x014a}
0x18b10…18b3e Head {h00=0x002a, h01=0x0026, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x00fc, t01=0x018c}
0x18b3e…18b48 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00fd, t01=0x002a}
0x18b48…18b58 Head {h00=0x000c, h01=0x0008, text=»* EXIT:«, t00=0x00fd, t01=0x0034}
0x18b58…18b62 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00fd, t01=0x0044}
0x18b62…18b82 Head {h00=0x001c, h01=0x0018, text=»* WORK REGISTERS: A1-A8«, t00=0x00fd, t01=0x004e}
0x18b82…18b8c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00fd, t01=0x006e}
0x18b8c…18bae Head {h00=0x001e, h01=0x001a, text=»* SUBROUTINES: I:CHP,MOVE«, t00=0x00fd, t01=0x0078}
0x18bae…18bb8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00fd, t01=0x009a}
0x18bb8…18bc6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x00fd, t01=0x00a4}
0x18bc6…18bda Head {h00=0x0010, h01=0x0050, text=»DWTGEN EQU *«, t00=0x00fd, t01=0x00b2}
0x18bda…18c12 Head {h00=0x0034, h01=0x0050, text=» ST A6,STKEND+LCNBR SAVE LINE CONNECTION NUMBER «, t00=0x00fd, t01=0x00c6}
0x18c12…18c3e Head {h00=0x0028, h01=0x0024, text=» LDR* A8,A7 GET LENGTH OF THIS CLASS«, t00=0x00fd, t01=0x00fe}
0x18c3e…18c66 Head {h00=0x0024, h01=0x0020, text=» SUKL A8,2 EXCLUSIVE LENGTH WORD«, t00=0x00fd, t01=0x012a}
0x18c66…18c86 Head {h00=0x001c, h01=0x0018, text=» ADK A7,2 FIRST FILECODE«, t00=0x00fd, t01=0x0152}
0x18c86…18c9a Head {h00=0x0010, h01=0x0050, text=»DWT05 EQU * «, t00=0x00fd, t01=0x0172}
0x18c9a…18ccc Head {h00=0x002e, h01=0x0029, text=» LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT «, t00=0x00fd, t01=0x0186}
0x18ccc…18d02 Head {h00=0x0032, h01=0x0050, text=» LD A6,STKEND+LCNBR GET LINE CONNECTION NUMBER«, t00=0x00fe, t01=0x0028}
0x18d02…18d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x005e}
0x18d0c…18d2c Head {h00=0x001c, h01=0x0050, text=»* CHECK CONNECTION TYPE«, t00=0x00fe, t01=0x0068}
0x18d2c…18d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0088}
0x18d36…18d66 Head {h00=0x002c, h01=0x0050, text=» LC A4,TDC+6,A9 GET LINE CONNECTION TYPE«, t00=0x00fe, t01=0x0092}
0x18d66…18d8e Head {h00=0x0024, h01=0x0050, text=» CCK A4,'SS' SALCUZ CONNECTION? «, t00=0x00fe, t01=0x00c2}
0x18d8e…18da8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT10 NO! «, t00=0x00fe, t01=0x00ea}
0x18da8…18ddc Head {h00=0x0030, h01=0x0050, text=» CALL I:CHSZ INIT CHANNEL PARAMETERS SALCUZ «, t00=0x00fe, t01=0x0104}
0x18ddc…18dee Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x00fe, t01=0x0138}
0x18dee…18e1a Head {h00=0x0028, h01=0x0050, text=»DWT10 CCK A4,'AA' ASCU4Z CONNECTION?«, t00=0x00fe, t01=0x014a}
0x18e1a…18e34 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT07 NO! «, t00=0x00fe, t01=0x0176}
0x18e34…18e66 Head {h00=0x002e, h01=0x0050, text=» CALL I:CHAZ INIT CHANEL PARAMETERS ASCU4Z«, t00=0x00fe, t01=0x0190}
0x18e66…18e78 Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x00ff, t01=0x0032}
0x18e78…18ea6 Head {h00=0x002a, h01=0x0050, text=»DWT07 CCK A4,'VV' VCCU1/4 CONNECTION? «, t00=0x00ff, t01=0x0044}
0x18ea6…18ebc Head {h00=0x0012, h01=0x0050, text=» RF(NE) DWT11 «, t00=0x00ff, t01=0x0072}
0x18ebc…18ef0 Head {h00=0x0030, h01=0x0050, text=» CALL I:CHVC INIT CHANNEL PARAMETERS VCCU1/4«, t00=0x00ff, t01=0x0088}
0x18ef0…18f02 Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x00ff, t01=0x00bc}
0x18f02…18f2c Head {h00=0x0026, h01=0x0050, text=»DWT11 CCK A4,'PP' PLC CONNECTION? «, t00=0x00ff, t01=0x00ce}
0x18f2c…18f46 Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT12 NO! «, t00=0x00ff, t01=0x00f8}
0x18f46…18f76 Head {h00=0x002c, h01=0x0050, text=» CALL I:CHPC INIT CHANNEL PARAMETERS PLC«, t00=0x00ff, t01=0x0112}
0x18f76…18f88 Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x00ff, t01=0x0142}
0x18f88…18fb0 Head {h00=0x0024, h01=0x0050, text=»DWT12 CCK A4,'LL' LT CONNECTION?«, t00=0x00ff, t01=0x0154}
0x18fb0…18fca Head {h00=0x0016, h01=0x0050, text=» RF(NE) DWT08 NO! «, t00=0x00ff, t01=0x017c}
0x18fca…18ffa Head {h00=0x002c, h01=0x0050, text=» CALL I:CHLT INIT CHANNEL PARAMETERS LT «, t00=0x0100, t01=0x0008}
0x18ffa…1900c Head {h00=0x000e, h01=0x0050, text=» RF DWT31 «, t00=0x0100, t01=0x0038}
0x1900c…19034 Head {h00=0x0024, h01=0x0050, text=»DWT08 CCK A4,'RR' RT CONNECTION?«, t00=0x0100, t01=0x004a}
0x19034…1904e Head {h00=0x0016, h01=0x0050, text=» RF(E) DWT09 YES! «, t00=0x0100, t01=0x0072}
0x1904e…1907a Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP4 INDICATE FORMAT ERROR «, t00=0x0100, t01=0x008c}
0x1907a…1908e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0100, t01=0x00b8}
0x1908e…190c2 Head {h00=0x0030, h01=0x0050, text=»DWT09 CALL I:CHRT INIT CHANNEL PARAMETERS RT«, t00=0x0100, t01=0x00cc}
0x190c2…190d6 Head {h00=0x0010, h01=0x0050, text=»DWT31 EQU * «, t00=0x0100, t01=0x0100}
0x190d6…190f8 Head {h00=0x001e, h01=0x0050, text=» ST A3,STKEND+CONTYP SAVE «, t00=0x0100, t01=0x0114}
0x190f8…19118 Head {h00=0x001c, h01=0x0050, text=» ST A5,STKEND+WRK3 SAVE «, t00=0x0100, t01=0x0136}
0x19118…19138 Head {h00=0x001c, h01=0x0050, text=» ST A6,STKEND+WRK4 SAVE «, t00=0x0100, t01=0x0156}
0x19138…19142 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0100, t01=0x0176}
0x19142…19178 Head {h00=0x0032, h01=0x002e, text=»* CHECK IF DWT ALREADY GENERATED ON THIS LINE«, t00=0x0100, t01=0x0180}
0x19178…19182 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0101, t01=0x0026}
0x19182…191b2 Head {h00=0x002c, h01=0x0050, text=» LD A4,STKEND+INTTAB GET START OF T.I.T.«, t00=0x0101, t01=0x0030}
0x191b2…191da Head {h00=0x0024, h01=0x0050, text=» LDR* A5,A4 GET NUMBER OF BLOCKS«, t00=0x0101, t01=0x0060}
0x191da…191ec Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0101, t01=0x0088}
0x191ec…191fe Head {h00=0x000e, h01=0x0050, text=» LDR A5,A5«, t00=0x0101, t01=0x009a}
0x191fe…19212 Head {h00=0x0010, h01=0x0050, text=»DWT13 EQU * «, t00=0x0101, t01=0x00ac}
0x19212…19226 Head {h00=0x0010, h01=0x0050, text=» RF(Z) DWT32«, t00=0x0101, t01=0x00c0}
0x19226…19260 Head {h00=0x0036, h01=0x0050, text=» LD A3,STKEND+CONTYP GET LINE AND CONNECTION TYPE «, t00=0x0101, t01=0x00d4}
0x19260…1927c Head {h00=0x0018, h01=0x0050, text=» CW A3,-4,A4 EQUAL? «, t00=0x0101, t01=0x010e}
0x1927c…19296 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DWT15 YES! «, t00=0x0101, t01=0x012a}
0x19296…192aa Head {h00=0x0010, h01=0x0050, text=»DWT14 EQU * «, t00=0x0101, t01=0x0144}
0x192aa…192ca Head {h00=0x001c, h01=0x0050, text=» SUK A4,6 GET NEXT BLOCK«, t00=0x0101, t01=0x0158}
0x192ca…192f6 Head {h00=0x0028, h01=0x0050, text=» SUK A5,1 DECREMENT NUMBER OF BLOCKS«, t00=0x0101, t01=0x0178}
0x192f6…19308 Head {h00=0x000e, h01=0x0050, text=» RB DWT13 «, t00=0x0102, t01=0x0014}
0x19308…1931c Head {h00=0x0010, h01=0x0050, text=»DWT15 EQU * «, t00=0x0102, t01=0x0026}
0x1931c…1934a Head {h00=0x002a, h01=0x0050, text=» LD A2,-2,A4 GET RUN-TIME DWT-ADDRESS «, t00=0x0102, t01=0x003a}
0x1934a…1937a Head {h00=0x002c, h01=0x0050, text=» LD A6,DWTCP2,A2 GET CHANNEL PARAMETER-2«, t00=0x0102, t01=0x0068}
0x1937a…193a2 Head {h00=0x0024, h01=0x0050, text=» ANK A6,/003F GET DEVICE ADDRESS«, t00=0x0102, t01=0x0098}
0x193a2…193d4 Head {h00=0x002e, h01=0x0050, text=» LD A3,STKEND+WRK3 GET CHANNEL PARAMETER-2«, t00=0x0102, t01=0x00c0}
0x193d4…193fc Head {h00=0x0024, h01=0x0050, text=» ANK A3,/003F GET DEVICE ADDRESS«, t00=0x0102, t01=0x00f2}
0x193fc…19416 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A6 EQUAL? «, t00=0x0102, t01=0x011a}
0x19416…19430 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT14 NO! «, t00=0x0102, t01=0x0134}
0x19430…1945a Head {h00=0x0026, h01=0x0050, text=» LD A6,DWTST,A2 GET DEVICE STATUS «, t00=0x0102, t01=0x014e}
0x1945a…19480 Head {h00=0x0022, h01=0x0050, text=» ANK A6,/00C0 GET BITS 8 AND 9«, t00=0x0102, t01=0x0178}
0x19480…194aa Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTST,A1 GET DEVICE STATUS «, t00=0x0103, t01=0x000e}
0x194aa…194d0 Head {h00=0x0022, h01=0x0050, text=» ANK A3,/00C0 GET BITS 8 AND 9«, t00=0x0103, t01=0x0038}
0x194d0…194ea Head {h00=0x0016, h01=0x0050, text=» SUR A3,A6 EQUAL? «, t00=0x0103, t01=0x005e}
0x194ea…19500 Head {h00=0x0012, h01=0x0050, text=» RB(NE) DWT14 «, t00=0x0103, t01=0x0078}
0x19500…19528 Head {h00=0x0024, h01=0x0050, text=» LD A6,DWTTAB,A2 GET DEVICE TYPE«, t00=0x0103, t01=0x008e}
0x19528…19550 Head {h00=0x0024, h01=0x0050, text=» ANKL A6,/8000 ISOLATE ECHO BIT «, t00=0x0103, t01=0x00b6}
0x19550…19578 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTTAB,A1 GET DEVICE TYPE«, t00=0x0103, t01=0x00de}
0x19578…195a0 Head {h00=0x0024, h01=0x0050, text=» ANKL A3,/8000 ISOLATE ECHO BIT «, t00=0x0103, t01=0x0106}
0x195a0…195ba Head {h00=0x0016, h01=0x0050, text=» SUR A3,A6 EQUAL? «, t00=0x0103, t01=0x012e}
0x195ba…195d4 Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT14 NO! «, t00=0x0103, t01=0x0148}
0x195d4…195e8 Head {h00=0x0010, h01=0x0050, text=» CALL DWT50 «, t00=0x0103, t01=0x0162}
0x195e8…195fe Head {h00=0x0012, h01=0x0050, text=» LDKL A1,DWT70«, t00=0x0103, t01=0x0176}
0x195fe…1961a Head {h00=0x0018, h01=0x0050, text=» AD A1,STKCOM+M:REL «, t00=0x0103, t01=0x018c}
0x1961a…1962a Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0104, t01=0x0018}
0x1962a…1963e Head {h00=0x0010, h01=0x0050, text=»DWT32 EQU * «, t00=0x0104, t01=0x0028}
0x1963e…1966a Head {h00=0x0028, h01=0x0050, text=» LDR A5,A12 GET RUN TIME DWT-ADDRESS«, t00=0x0104, t01=0x003c}
0x1966a…19698 Head {h00=0x002a, h01=0x0050, text=» CALL B:TTAB BUILD ONE BLOCK IN T.I.T.«, t00=0x0104, t01=0x0068}
0x19698…196a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0104, t01=0x0096}
0x196a2…196c2 Head {h00=0x001c, h01=0x0017, text=»* COPY DEVICE TYPE DWT «, t00=0x0104, t01=0x00a0}
0x196c2…196cc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0104, t01=0x00c0}
0x196cc…196ea Head {h00=0x001a, h01=0x0016, text=» LDR A2,A12 TO-ADDRESS«, t00=0x0104, t01=0x00ca}
0x196ea…19708 Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTOR,A1 LENGTH«, t00=0x0104, t01=0x00e8}
0x19708…1972c Head {h00=0x0020, h01=0x001b, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x0104, t01=0x0106}
0x1972c…19740 Head {h00=0x0010, h01=0x0050, text=» CALL CHKMOV«, t00=0x0104, t01=0x012a}
0x19740…1974e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0104, t01=0x013e}
0x1974e…19758 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0104, t01=0x014c}
0x19758…19780 Head {h00=0x0024, h01=0x0020, text=»* A1 - ADDRESS TO PROTOTYPE DWT«, t00=0x0104, t01=0x0156}
0x19780…197a4 Head {h00=0x0020, h01=0x001b, text=»* A2 - ADDRESS TO REAL DWT «, t00=0x0104, t01=0x017e}
0x197a4…197ae Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0105, t01=0x0012}
0x197ae…197c8 Head {h00=0x0016, h01=0x0050, text=» LD A6,STKEND+WRK4«, t00=0x0105, t01=0x001c}
0x197c8…197e2 Head {h00=0x0016, h01=0x0050, text=» LD A5,STKEND+WRK3«, t00=0x0105, t01=0x0036}
0x197e2…19810 Head {h00=0x002a, h01=0x0050, text=» STR A6,A2 STORE CHANNEL PARAMETERS -1«, t00=0x0105, t01=0x0050}
0x19810…19844 Head {h00=0x0030, h01=0x0050, text=» ST A5,DWTCP2,A2 STORE CHANNEL PARAMETERS -2«, t00=0x0105, t01=0x007e}
0x19844…1984e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0105, t01=0x00b2}
0x1984e…1986e Head {h00=0x001c, h01=0x0018, text=»* CHECK IF INPUT DEVICE«, t00=0x0105, t01=0x00bc}
0x1986e…19878 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0105, t01=0x00dc}
0x19878…1989a Head {h00=0x001e, h01=0x0050, text=» LD A3,2,A1 GET DWT STATUS«, t00=0x0105, t01=0x00e6}
0x1989a…198be Head {h00=0x0020, h01=0x0050, text=» ANK A3,/0040 INPUT DEVICE? «, t00=0x0105, t01=0x0108}
0x198be…198d6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DWT45 NO «, t00=0x0105, t01=0x012c}
0x198d6…198e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0105, t01=0x0144}
0x198e0…198f8 Head {h00=0x0014, h01=0x0010, text=»* INPUT DEVICE:«, t00=0x0105, t01=0x014e}
0x198f8…19914 Head {h00=0x0018, h01=0x0014, text=»* CHECK IF KEYBOARD«, t00=0x0105, t01=0x0166}
0x19914…1991e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0105, t01=0x0182}
0x1991e…19938 Head {h00=0x0016, h01=0x0012, text=» LD A3,DWTADR,A1 «, t00=0x0105, t01=0x018c}
0x19938…19950 Head {h00=0x0014, h01=0x0010, text=» LD A3,DEVIND,A3«, t00=0x0106, t01=0x0016}
0x19950…19962 Head {h00=0x000e, h01=0x0009, text=» CWK A3,6 «, t00=0x0106, t01=0x002e}
0x19962…19984 Head {h00=0x001e, h01=0x001a, text=» RF(NE) DWT60 NOT KEYBOARD«, t00=0x0106, t01=0x0040}
0x19984…1998e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0106, t01=0x0062}
0x1998e…199b0 Head {h00=0x001e, h01=0x001a, text=»* INPUT DEVICE = KEYBOARD«, t00=0x0106, t01=0x006c}
0x199b0…199c4 Head {h00=0x0010, h01=0x000c, text=»* IF ECHO: «, t00=0x0106, t01=0x008e}
0x199c4…199ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x00a2}
0x199ce…199fe Head {h00=0x002c, h01=0x0050, text=»* STORE ADDRESS OF KEYBOARD RUNTIME-DWT«, t00=0x0106, t01=0x00ac}
0x199fe…19a3c Head {h00=0x003a, h01=0x0050, text=»* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE «, t00=0x0106, t01=0x00dc}
0x19a3c…19a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x011a}
0x19a46…19a50 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0106, t01=0x0124}
0x19a50…19a6e Head {h00=0x001a, h01=0x0050, text=» LD A5,DWTECH,A1 ECHO?«, t00=0x0106, t01=0x012e}
0x19a6e…19a86 Head {h00=0x0014, h01=0x000f, text=» RF(Z) DWT40 NO «, t00=0x0106, t01=0x014c}
0x19a86…19aa2 Head {h00=0x0018, h01=0x0050, text=» AD A5,STKCOM+M:REL «, t00=0x0106, t01=0x0164}
0x19aa2…19ae0 Head {h00=0x003a, h01=0x0050, text=» LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE «, t00=0x0106, t01=0x0180}
0x19ae0…19b0c Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DWT392 NOT FIRST ECHO DEVICE«, t00=0x0107, t01=0x002e}
0x19b0c…19b42 Head {h00=0x0032, h01=0x0050, text=» ADK A3,2 INCLUDE LENGTH OF ECHO DEVICE TABLE «, t00=0x0107, t01=0x005a}
0x19b42…19b66 Head {h00=0x0020, h01=0x0050, text=»DWT392 LDR A4,A3 SAVE LENGTH«, t00=0x0107, t01=0x0090}
0x19b66…19b92 Head {h00=0x0028, h01=0x0050, text=» AD A4,STKEND+ECHTAB NEXT FREE ENTRY«, t00=0x0107, t01=0x00b4}
0x19b92…19bce Head {h00=0x0038, h01=0x0050, text=» STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE«, t00=0x0107, t01=0x00e0}
0x19bce…19c0e Head {h00=0x003c, h01=0x0050, text=» ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE«, t00=0x0107, t01=0x011c}
0x19c0e…19c2e Head {h00=0x001c, h01=0x0050, text=» ADK A3,4 UPDATE LENGTH «, t00=0x0107, t01=0x015c}
0x19c2e…19c5c Head {h00=0x002a, h01=0x0050, text=» ST* A3,STKEND+ECHTAB SAVE NEW LENGTH «, t00=0x0107, t01=0x017c}
0x19c5c…19c6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0108, t01=0x001a}
0x19c6a…19c7e Head {h00=0x0010, h01=0x0050, text=»DWT40 EQU * «, t00=0x0108, t01=0x0028}
0x19c7e…19c88 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0108, t01=0x003c}
0x19c88…19cbe Head {h00=0x0032, h01=0x002d, text=»* RELOCATE POINTERS TO CIRCULAR INPUT BUFFER «, t00=0x0108, t01=0x0046}
0x19cbe…19cc8 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0108, t01=0x007c}
0x19cc8…19cea Head {h00=0x001e, h01=0x001a, text=» LDR A5,A2 GET DWT-ADDRESS«, t00=0x0108, t01=0x0086}
0x19cea…19d20 Head {h00=0x0032, h01=0x0050, text=» ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER«, t00=0x0108, t01=0x00a8}
0x19d20…19d48 Head {h00=0x0024, h01=0x001f, text=» ST A5,DWTSQ-4,A2 STORE POINTER «, t00=0x0108, t01=0x00de}
0x19d48…19d70 Head {h00=0x0024, h01=0x001f, text=» ST A5,DWTSQ-2,A2 STORE POINTER «, t00=0x0108, t01=0x0106}
0x19d70…19d7a Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0108, t01=0x012e}
0x19d7a…19d98 Head {h00=0x001a, h01=0x0016, text=»* IF DOUBLE KEYBOARD:«, t00=0x0108, t01=0x0138}
0x19d98…19de0 Head {h00=0x0044, h01=0x0040, text=»* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE«, t00=0x0108, t01=0x0156}
0x19de0…19e1a Head {h00=0x0036, h01=0x0032, text=»* IN ENTRY CORRESPONDING TO SECOND DEVICE ADDRESS«, t00=0x0109, t01=0x000e}
0x19e1a…19e24 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0109, t01=0x0048}
0x19e24…19e5a Head {h00=0x0032, h01=0x0050, text=» LD A3,DWTDEV,A1 GET DEVICE STATUS OF TYPE DWT«, t00=0x0109, t01=0x0052}
0x19e5a…19e86 Head {h00=0x0028, h01=0x0050, text=» ANK A3,/FF GET EIGTH RIGHTMOST BITS«, t00=0x0109, t01=0x0088}
0x19e86…19eae Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT60 NOT DOUBLE KEYBOARD«, t00=0x0109, t01=0x00b4}
0x19eae…19ed6 Head {h00=0x0024, h01=0x0050, text=» LDR A5,A2 GET REAL DWT-ADDRESS «, t00=0x0109, t01=0x00dc}
0x19ed6…19ef0 Head {h00=0x0016, h01=0x0050, text=» ADK A5,1 ADD ONE «, t00=0x0109, t01=0x0104}
0x19ef0…19f1e Head {h00=0x002a, h01=0x0050, text=» CALL B:TTAB BUILD ONE BLOCK IN T.I.T.«, t00=0x0109, t01=0x011e}
0x19f1e…19f30 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0109, t01=0x014c}
0x19f30…19f58 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A5 GET REAL DWT-ADDRESS «, t00=0x0109, t01=0x015e}
0x19f58…19f6a Head {h00=0x000e, h01=0x0050, text=» RF DWT60 «, t00=0x0109, t01=0x0186}
0x19f6a…19f78 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x010a, t01=0x0008}
0x19f78…19f90 Head {h00=0x0014, h01=0x0050, text=»DWT45 CALL DWT50«, t00=0x010a, t01=0x0016}
0x19f90…19fa2 Head {h00=0x000e, h01=0x0050, text=» RF DWT60 «, t00=0x010a, t01=0x002e}
0x19fa2…19fb6 Head {h00=0x0010, h01=0x0050, text=»DWT50 EQU * «, t00=0x010a, t01=0x0040}
0x19fb6…19fc0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x010a, t01=0x0054}
0x19fc0…19fda Head {h00=0x0016, h01=0x0050, text=»* OUTPUT DEVICE* «, t00=0x010a, t01=0x005e}
0x19fda…1a00a Head {h00=0x002c, h01=0x0050, text=»* IF BIT 0 IN SIXTH WORD IN DWT IS SET «, t00=0x010a, t01=0x0078}
0x1a00a…1a03e Head {h00=0x0030, h01=0x0050, text=»* THE DEVICE IS TO BE USED FOR ECHOING ON. «, t00=0x010a, t01=0x00a8}
0x1a03e…1a078 Head {h00=0x0036, h01=0x0050, text=»* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT«, t00=0x010a, t01=0x00dc}
0x1a078…1a0ac Head {h00=0x0030, h01=0x0050, text=»* IS THEN STORED IN THE ECHO DEVICE TABLE. «, t00=0x010a, t01=0x0116}
0x1a0ac…1a0b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x014a}
0x1a0b6…1a0ea Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS «, t00=0x010a, t01=0x0154}
0x1a0ea…1a11a Head {h00=0x002c, h01=0x0050, text=» RF(NN) DWT59 NO ECHOING ON THIS DEVICE «, t00=0x010a, t01=0x0188}
0x1a11a…1a158 Head {h00=0x003a, h01=0x0050, text=» LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE «, t00=0x010b, t01=0x0028}
0x1a158…1a182 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DWT55 ALREADY INITIALIZED!«, t00=0x010b, t01=0x0066}
0x1a182…1a1a2 Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 INCLUDE LENGTH«, t00=0x010b, t01=0x0090}
0x1a1a2…1a1c6 Head {h00=0x0020, h01=0x0050, text=»DWT55 LDR A4,A3 SAVE LENGTH «, t00=0x010b, t01=0x00b0}
0x1a1c6…1a1f2 Head {h00=0x0028, h01=0x0050, text=» AD A4,STKEND+ECHTAB NEXT FREE ENTRY«, t00=0x010b, t01=0x00d4}
0x1a1f2…1a224 Head {h00=0x002e, h01=0x0050, text=» STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT «, t00=0x010b, t01=0x0100}
0x1a224…1a254 Head {h00=0x002c, h01=0x0050, text=» ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT«, t00=0x010b, t01=0x0132}
0x1a254…1a274 Head {h00=0x001c, h01=0x0050, text=» ADK A3,4 UPDATE LENGTH «, t00=0x010b, t01=0x0162}
0x1a274…1a2a2 Head {h00=0x002a, h01=0x0050, text=» ST* A3,STKEND+ECHTAB STORE NEW LENGTH«, t00=0x010b, t01=0x0182}
0x1a2a2…1a2b8 Head {h00=0x0012, h01=0x0050, text=»DWT59 RTN A14 «, t00=0x010c, t01=0x0020}
0x1a2b8…1a2cc Head {h00=0x0010, h01=0x0050, text=»DWT60 EQU * «, t00=0x010c, t01=0x0036}
0x1a2cc…1a2d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x010c, t01=0x004a}
0x1a2d6…1a2f0 Head {h00=0x0016, h01=0x0012, text=»* CHECK IF PAGING«, t00=0x010c, t01=0x0054}
0x1a2f0…1a2fa Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x010c, t01=0x006e}
0x1a2fa…1a320 Head {h00=0x0022, h01=0x0050, text=» LD A5,SCTOPT GET OPTION WORD «, t00=0x010c, t01=0x0078}
0x1a320…1a33e Head {h00=0x001a, h01=0x0050, text=» ANK A5,1 MMU PAGING? «, t00=0x010c, t01=0x009e}
0x1a33e…1a352 Head {h00=0x0010, h01=0x000c, text=» RF(Z) DWT70«, t00=0x010c, t01=0x00bc}
0x1a352…1a360 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010c, t01=0x00d0}
0x1a360…1a390 Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS«, t00=0x010c, t01=0x00de}
0x1a390…1a3bc Head {h00=0x0028, h01=0x0050, text=» LDR A4,A1 GET PROTOTYPE DWT-ADDRESS«, t00=0x010c, t01=0x010e}
0x1a3bc…1a3ea Head {h00=0x002a, h01=0x0050, text=» SUR A4,A2 COMPUTE RELOCATION CONSTANT«, t00=0x010c, t01=0x013a}
0x1a3ea…1a41a Head {h00=0x002c, h01=0x0050, text=» SUR A5,A4 RELOCATE MONITOR ECB ADDRESS «, t00=0x010c, t01=0x0168}
0x1a41a…1a442 Head {h00=0x0024, h01=0x0050, text=» ANKL A5,/FFFE MAKE EVEN ADDRESS«, t00=0x010d, t01=0x0008}
0x1a442…1a468 Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTMEC,A2 STORE IT BACK«, t00=0x010d, t01=0x0030}
0x1a468…1a472 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x010d, t01=0x0056}
0x1a472…1a4b2 Head {h00=0x003c, h01=0x0050, text=»* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED «, t00=0x010d, t01=0x0060}
0x1a4b2…1a4bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x00a0}
0x1a4bc…1a4e6 Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTADR,A2 GET ADDRESS BLOCK«, t00=0x010d, t01=0x00aa}
0x1a4e6…1a51c Head {h00=0x0032, h01=0x0050, text=» LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER«, t00=0x010d, t01=0x00d4}
0x1a51c…1a544 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DWT70 ALLOCATE NO BUFFER!«, t00=0x010d, t01=0x010a}
0x1a544…1a54e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x010d, t01=0x0132}
0x1a54e…1a59e Head {h00=0x004c, h01=0x0050, text=»* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL«, t00=0x010d, t01=0x013c}
0x1a59e…1a5a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x010d, t01=0x018c}
0x1a5a8…1a5d8 Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTMEC,A2 GET MONITOR ECB-ADDRESS«, t00=0x010e, t01=0x0008}
0x1a5d8…1a604 Head {h00=0x0028, h01=0x0023, text=» LDR A3,A12 INTERNAL BUFFER ADDRESS «, t00=0x010e, t01=0x0038}
0x1a604…1a618 Head {h00=0x0010, h01=0x000b, text=» ADK A3,1 «, t00=0x010e, t01=0x0064}
0x1a618…1a648 Head {h00=0x002c, h01=0x0028, text=» ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS«, t00=0x010e, t01=0x0078}
0x1a648…1a662 Head {h00=0x0016, h01=0x0050, text=» ST A3,2,A5 SAVE «, t00=0x010e, t01=0x00a8}
0x1a662…1a680 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A4 GET LENGTH «, t00=0x010e, t01=0x00c2}
0x1a680…1a6aa Head {h00=0x0026, h01=0x0050, text=» ADK A3,3 ADD BO FERMS CONSTANT+1 «, t00=0x010e, t01=0x00e0}
0x1a6aa…1a6da Head {h00=0x002c, h01=0x0050, text=» ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH «, t00=0x010e, t01=0x010a}
0x1a6da…1a6e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x013a}
0x1a6e8…1a6f2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x010e, t01=0x0148}
0x1a6f2…1a72a Head {h00=0x0034, h01=0x0030, text=»* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN«, t00=0x010e, t01=0x0152}
0x1a72a…1a764 Head {h00=0x0036, h01=0x0050, text=»* THE SIZE OF BUFFER RESERVED FOR SYSLOD PART A. «, t00=0x010e, t01=0x018a}
0x1a764…1a79c Head {h00=0x0034, h01=0x0030, text=»* IF YES,THAN STORE THE ADDRESS AND SIZE OF THE«, t00=0x010f, t01=0x0034}
0x1a79c…1a7cc Head {h00=0x002c, h01=0x0050, text=»* INTERNAL BUFFER IN SYSBUF AND BUFSIZ.«, t00=0x010f, t01=0x006c}
0x1a7cc…1a7d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x010f, t01=0x009c}
0x1a7d6…1a7f4 Head {h00=0x001a, h01=0x0050, text=» CW A3,STKCOM+BUFSIZ «, t00=0x010f, t01=0x00a6}
0x1a7f4…1a80a Head {h00=0x0012, h01=0x000d, text=» RF(NG) DWT65 «, t00=0x010f, t01=0x00c4}
0x1a80a…1a826 Head {h00=0x0018, h01=0x0050, text=» ST A3,STKCOM+BUFSIZ«, t00=0x010f, t01=0x00da}
0x1a826…1a844 Head {h00=0x001a, h01=0x0050, text=» ST A12,STKCOM+SYSBUF «, t00=0x010f, t01=0x00f6}
0x1a844…1a858 Head {h00=0x0010, h01=0x0050, text=»DWT65 EQU * «, t00=0x010f, t01=0x0114}
0x1a858…1a87c Head {h00=0x0020, h01=0x001b, text=» ADR A12,A3 NEXT FREE ENTRY «, t00=0x010f, t01=0x0128}
0x1a87c…1a88a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010f, t01=0x014c}
0x1a88a…1a89e Head {h00=0x0010, h01=0x0050, text=»DWT70 EQU * «, t00=0x010f, t01=0x015a}
0x1a89e…1a8a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010f, t01=0x016e}
0x1a8a8…1a8da Head {h00=0x002e, h01=0x0050, text=»* STORE FILE-CODE AND DWT-ADDRESS IN TTAB«, t00=0x010f, t01=0x0178}
0x1a8da…1a8e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x001a}
0x1a8e4…1a90a Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x0110, t01=0x0024}
0x1a90a…1a930 Head {h00=0x0022, h01=0x0050, text=» LDR* A5,A7 GET INDEX/FILECODE«, t00=0x0110, t01=0x004a}
0x1a930…1a95e Head {h00=0x002a, h01=0x0050, text=» STR A5,A10 STORE IN TASK CONF. TABLE «, t00=0x0110, t01=0x0070}
0x1a95e…1a984 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,2 NEXT ENTRY IN TTAB«, t00=0x0110, t01=0x009e}
0x1a984…1a9aa Head {h00=0x0022, h01=0x0050, text=» STR A2,A10 STORE DWT-ADDRESS «, t00=0x0110, t01=0x00c4}
0x1a9aa…1a9b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x00ea}
0x1a9b4…1a9e4 Head {h00=0x002c, h01=0x0027, text=»* CHECK IF MOORE DEVICES IN THIS CLASS «, t00=0x0110, t01=0x00f4}
0x1a9e4…1a9ee Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0110, t01=0x0124}
0x1a9ee…1aa00 Head {h00=0x000e, h01=0x000a, text=» SUKL A8,4«, t00=0x0110, t01=0x012e}
0x1aa00…1aa14 Head {h00=0x0010, h01=0x000c, text=» RF(Z) DWTEX«, t00=0x0110, t01=0x0140}
0x1aa14…1aa32 Head {h00=0x001a, h01=0x0015, text=» ADK A7,4 NEXT DEVICE «, t00=0x0110, t01=0x0154}
0x1aa32…1aa48 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,DWT05«, t00=0x0110, t01=0x0172}
0x1aa48…1aa64 Head {h00=0x0018, h01=0x0050, text=» AD A1,STKCOM+M:REL «, t00=0x0110, t01=0x0188}
0x1aa64…1aa74 Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0111, t01=0x0014}
0x1aa74…1aa88 Head {h00=0x0010, h01=0x0050, text=»DWTEX EQU * «, t00=0x0111, t01=0x0024}
0x1aa88…1aa98 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0111, t01=0x0038}
0x1aa98…1aaa6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0111, t01=0x0048}
0x1aaa6…1aab0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0056}
0x1aab0…1aaea Head {h00=0x0036, h01=0x0050, text=»* SCAN ECHO DEVICE TABLE - FOR EVERY COINCIDENCE «, t00=0x0111, t01=0x0060}
0x1aaea…1ab22 Head {h00=0x0034, h01=0x0050, text=»* BETWEEN THE FIRST POINTER IN ONE POINTER-SET «, t00=0x0111, t01=0x009a}
0x1ab22…1ab5a Head {h00=0x0034, h01=0x0050, text=»* AND SECOND POINTER IN THE OTHER POINTER-SET: «, t00=0x0111, t01=0x00d2}
0x1ab5a…1ab8e Head {h00=0x0030, h01=0x0050, text=»* STORE SECOND POINTER OF FIRST POINTER-SET«, t00=0x0111, t01=0x010a}
0x1ab8e…1abc4 Head {h00=0x0032, h01=0x0050, text=»* IN RUNTIME-DWT POINTED AT BY FIRST POINTER «, t00=0x0111, t01=0x013e}
0x1abc4…1abfa Head {h00=0x0032, h01=0x0050, text=»* OF SECOND POINTER-SET AND CLEAR POINTERS OF«, t00=0x0111, t01=0x0174}
0x1abfa…1ac18 Head {h00=0x001a, h01=0x0050, text=»* SECOND POINTER-SET.«, t00=0x0112, t01=0x001a}
0x1ac18…1ac54 Head {h00=0x0038, h01=0x0050, text=»* WHEN ALL POINTER-SET HAS BEEN SCANNED,THE LENGTH «, t00=0x0112, t01=0x0038}
0x1ac54…1ac80 Head {h00=0x0028, h01=0x0050, text=»* OF ECHO DEVICE TABLE IS CLEARED. «, t00=0x0112, t01=0x0074}
0x1ac80…1ac8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0112, t01=0x00a0}
0x1ac8a…1accc Head {h00=0x003e, h01=0x0050, text=»ECHO LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE «, t00=0x0112, t01=0x00aa}
0x1accc…1acf2 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DWT160 NO ECHO DEVICES!«, t00=0x0112, t01=0x00ec}
0x1acf2…1ad30 Head {h00=0x003a, h01=0x0050, text=» AD A3,STKEND+ECHTAB COMPUTE END OF ECHO DEVICE TABLE «, t00=0x0112, t01=0x0112}
0x1ad30…1ad6c Head {h00=0x0038, h01=0x0050, text=» LD A1,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE «, t00=0x0112, t01=0x0150}
0x1ad6c…1ad8c Head {h00=0x001c, h01=0x0050, text=» ADK A1,2 BYPASS LENGTH «, t00=0x0112, t01=0x018c}
0x1ad8c…1adcc Head {h00=0x003c, h01=0x0050, text=»DWT90 LD A2,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE«, t00=0x0113, t01=0x001c}
0x1adcc…1adec Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 BYPASS LENGTH «, t00=0x0113, t01=0x005c}
0x1adec…1ae26 Head {h00=0x0036, h01=0x0050, text=»DWT100 LD A4,2,A1 GET SECOND POINTER IN FIRST SET «, t00=0x0113, t01=0x007c}
0x1ae26…1ae68 Head {h00=0x003e, h01=0x0050, text=»DWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET«, t00=0x0113, t01=0x00b6}
0x1ae68…1ae8a Head {h00=0x001e, h01=0x0050, text=» RF(E) DWT130 COINCIDENCE!«, t00=0x0113, t01=0x00f8}
0x1ae8a…1aeac Head {h00=0x001e, h01=0x0050, text=» ADK A2,4 NEXT POINTER-SET«, t00=0x0113, t01=0x011a}
0x1aeac…1aed8 Head {h00=0x0028, h01=0x0050, text=» CWR A2,A3 END OF ECHO DEVICE TABLE «, t00=0x0113, t01=0x013c}
0x1aed8…1af00 Head {h00=0x0024, h01=0x0050, text=» RB(NE) DWT110 NO:CHECK NEXT SET«, t00=0x0113, t01=0x0168}
0x1af00…1af12 Head {h00=0x000e, h01=0x0050, text=» RF DWT140«, t00=0x0113, t01=0x0190}
0x1af12…1af50 Head {h00=0x003a, h01=0x0050, text=»DWT130 LD A4,2,A2 ADDRESS TO OUTPUT DEVICE RUNTIME-DWT«, t00=0x0114, t01=0x0012}
0x1af50…1af88 Head {h00=0x0034, h01=0x0050, text=» LDR* A2,A1 ADDRESS TO INPUT DEVICE RUNTIME-DWT «, t00=0x0114, t01=0x0050}
0x1af88…1afc4 Head {h00=0x0038, h01=0x0050, text=» ST A4,DWTECH,A2 STORE DEVICE-ADDRESS TO ECHO-DEVICE«, t00=0x0114, t01=0x0088}
0x1afc4…1afe8 Head {h00=0x0020, h01=0x0050, text=» CMR A1 CLEAR FIRST POINTER «, t00=0x0114, t01=0x00c4}
0x1afe8…1b00e Head {h00=0x0022, h01=0x0050, text=» CM 2,A1 CLEAR SECOND POINTER «, t00=0x0114, t01=0x00e8}
0x1b00e…1b036 Head {h00=0x0024, h01=0x0050, text=»DWT140 ADK A1,4 NEXT POINTER-SET«, t00=0x0114, t01=0x010e}
0x1b036…1b062 Head {h00=0x0028, h01=0x0050, text=» CWR A1,A3 END OF ECHO DEVICE TABLE «, t00=0x0114, t01=0x0136}
0x1b062…1b07c Head {h00=0x0016, h01=0x0050, text=» RB(NE) DWT90 NO! «, t00=0x0114, t01=0x0162}
0x1b07c…1b0aa Head {h00=0x002a, h01=0x0050, text=»DWT150 CM* STKEND+ECHTAB CLEAR LENGTH «, t00=0x0114, t01=0x017c}
0x1b0aa…1b0c8 Head {h00=0x001a, h01=0x0050, text=»DWT160 RTN A14 RETURN «, t00=0x0115, t01=0x001a}
0x1b0c8…1b0d6 Head {h00=0x000a, h01=0x0050, text=» =6«, t00=0x0115, t01=0x0038}
0x1b0d6…1b0e8 Head {h00=0x000e, h01=0x0050, text=» IFT DC=1 «, t00=0x0115, t01=0x0046}
0x1b0e8…1b0f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0115, t01=0x0058}
0x1b0f6…1b136 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0115, t01=0x0066}
0x1b136…1b176 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0115, t01=0x00a6}
0x1b176…1b1b6 Head {h00=0x003c, h01=0x0050, text=»* B:CNA BUILD COMPUTER NETWORK ARCHITECTURE * «, t00=0x0115, t01=0x00e6}
0x1b1b6…1b1f6 Head {h00=0x003c, h01=0x0050, text=»* ========================================== * «, t00=0x0115, t01=0x0126}
0x1b1f6…1b236 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0115, t01=0x0166}
0x1b236…1b276 Head {h00=0x003c, h01=0x0050, text=»* SCANS POSSIBLE D-BLOCK IN CONFIGURATION DATA * «, t00=0x0116, t01=0x0016}
0x1b276…1b2b6 Head {h00=0x003c, h01=0x0050, text=»* AND BUILDS DATA COMMUNICATION TABLE IN MEMORY. * «, t00=0x0116, t01=0x0056}
0x1b2b6…1b2f6 Head {h00=0x003c, h01=0x0050, text=»* TABLE START IS DEFINED BY THE POINTER SCTDCT * «, t00=0x0116, t01=0x0096}
0x1b2f6…1b336 Head {h00=0x003c, h01=0x0050, text=»* IN SYSTAB. * «, t00=0x0116, t01=0x00d6}
0x1b336…1b376 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: SCTDCT = RELATIVE POSITION OF THE * «, t00=0x0116, t01=0x0116}
0x1b376…1b3b6 Head {h00=0x003c, h01=0x0050, text=»* D-BLOCK IN CONF. DATA (SET BY SYSLOD) * «, t00=0x0116, t01=0x0156}
0x1b3b6…1b3f6 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0117, t01=0x0008}
0x1b3f6…1b436 Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: CONMON * «, t00=0x0117, t01=0x0048}
0x1b436…1b476 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES CALLED: GETDTE, P:DTE * «, t00=0x0117, t01=0x0088}
0x1b476…1b4b6 Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTERS: A1-A12 * «, t00=0x0117, t01=0x00c8}
0x1b4b6…1b4f6 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x0117, t01=0x0108}
0x1b4f6…1b536 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0117, t01=0x0148}
0x1b536…1b542 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0117, t01=0x0188}
0x1b542…1b54e (280, 0, 400) Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0118, t01=0x0004}
0x1b54e…1b562 Head {h00=0x0010, h01=0x0050, text=»B:CNA EQU * «, t00=0x0118, t01=0x0010}
0x1b562…1b57e Head {h00=0x0018, h01=0x0050, text=» LD A11,DCBLK+STKCOM«, t00=0x0118, t01=0x0024}
0x1b57e…1b5ac Head {h00=0x002a, h01=0x0050, text=» RF(Z) B:CN20 NO DATA COMMUNICATION =1«, t00=0x0118, t01=0x0040}
0x1b5ac…1b5b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0118, t01=0x006e}
0x1b5b6…1b5f6 Head {h00=0x003c, h01=0x0050, text=» AD A11,CONSTA+STKCOM GET D BLOCK ADDRESS IN CONF. DATA «, t00=0x0118, t01=0x0078}
0x1b5f6…1b624 Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTSFA GET START OF FREE AREA «, t00=0x0118, t01=0x00b8}
0x1b624…1b650 Head {h00=0x0028, h01=0x0050, text=» ST A12,SCTDCT UPDATE SYSTAB POINTER«, t00=0x0118, t01=0x00e6}
0x1b650…1b684 Head {h00=0x0030, h01=0x0050, text=» ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA«, t00=0x0118, t01=0x0112}
0x1b684…1b6b0 Head {h00=0x0028, h01=0x0050, text=» CALL GETDTE GET NO OF DTE:S DEFINED«, t00=0x0118, t01=0x0146}
0x1b6b0…1b6e4 Head {h00=0x0030, h01=0x0050, text=» ADKL A11,2 ADVANCE TO START OF SDTE RECORD «, t00=0x0118, t01=0x0172}
0x1b6e4…1b6f8 Head {h00=0x0010, h01=0x0050, text=»B:CN00 EQU *«, t00=0x0119, t01=0x0016}
0x1b6f8…1b70a Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0119, t01=0x002a}
0x1b70a…1b740 Head {h00=0x0032, h01=0x0050, text=» RF(N) B:CN10 NO DTE BLOCKS LEFT IN CONF. DATA«, t00=0x0119, t01=0x003c}
0x1b740…1b74a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x0072}
0x1b74a…1b77c Head {h00=0x002e, h01=0x0050, text=» ST A1,NUMDTE+STKEND SAVE NO OF DTE:S LEFT«, t00=0x0119, t01=0x007c}
0x1b77c…1b7ac Head {h00=0x002c, h01=0x0050, text=» ADKL A11,5 ADVANCE TO 1ST CHAR. IN NAME«, t00=0x0119, t01=0x00ae}
0x1b7ac…1b7d6 Head {h00=0x0026, h01=0x0050, text=» CALL P:DTE PROCESS THIS DTE BLOCK«, t00=0x0119, t01=0x00de}
0x1b7d6…1b80c Head {h00=0x0032, h01=0x0050, text=» LD A1,NUMDTE+STKEND GET REMAINING DTE BLOCKS «, t00=0x0119, t01=0x0108}
0x1b80c…1b83a Head {h00=0x002a, h01=0x0050, text=» LDR* A12,A12 GET ADDRESS TO NEXT DTE «, t00=0x0119, t01=0x013e}
0x1b83a…1b84c Head {h00=0x000e, h01=0x0050, text=» RB B:CN00«, t00=0x0119, t01=0x016c}
0x1b84c…1b856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x017e}
0x1b856…1b86a Head {h00=0x0010, h01=0x0050, text=»B:CN10 EQU *«, t00=0x0119, t01=0x0188}
0x1b86a…1b888 Head {h00=0x001a, h01=0x0050, text=» CM 0,A12 AND RESET IT«, t00=0x011a, t01=0x000c}
0x1b888…1b89c Head {h00=0x0010, h01=0x0050, text=» ADKL A12,2 «, t00=0x011a, t01=0x002a}
0x1b89c…1b8cc Head {h00=0x002c, h01=0x0050, text=» ST A12,SCTSFA UPDATE START OF FREE AREA«, t00=0x011a, t01=0x003e}
0x1b8cc…1b8e6 Head {h00=0x0016, h01=0x0050, text=»B:CN20 EQU * =1 «, t00=0x011a, t01=0x006e}
0x1b8e6…1b8f6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x011a, t01=0x0088}
0x1b8f6…1b904 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011a, t01=0x0098}
0x1b904…1b944 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x011a, t01=0x00a6}
0x1b944…1b984 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x011a, t01=0x00e6}
0x1b984…1b9c4 Head {h00=0x003c, h01=0x0050, text=»* P:DTE PROCESS DTE BLOCK IN CONFIGURATION DATA * «, t00=0x011a, t01=0x0126}
0x1b9c4…1ba04 Head {h00=0x003c, h01=0x0050, text=»* ============================================== * «, t00=0x011a, t01=0x0166}
0x1ba04…1ba44 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x011b, t01=0x0016}
0x1ba44…1ba84 Head {h00=0x003c, h01=0x0050, text=»* SCANS DTE BLOCK IN CONF. DATA AND BUILDS CORRE- * «, t00=0x011b, t01=0x0056}
0x1ba84…1bac4 Head {h00=0x003c, h01=0x0050, text=»* SPONDING DTE-BLOCK IN SCTDCT. IF MULTIPLE COPIES * «, t00=0x011b, t01=0x0096}
0x1bac4…1bb04 Head {h00=0x003c, h01=0x0050, text=»* ARE DEFINED CURRENT DTE IS DUPLICATED THE NO OF * «, t00=0x011b, t01=0x00d6}
0x1bb04…1bb44 Head {h00=0x003c, h01=0x0050, text=»* TIMES SPECIFIED. * «, t00=0x011b, t01=0x0116}
0x1bb44…1bb84 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x011b, t01=0x0156}
0x1bb84…1bbc4 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN * «, t00=0x011c, t01=0x0008}
0x1bbc4…1bc04 Head {h00=0x003c, h01=0x0050, text=»* SDTE NAME IN CONF. DATA * «, t00=0x011c, t01=0x0048}
0x1bc04…1bc44 Head {h00=0x003c, h01=0x0050, text=»* A12 POINTER TO START OF CURRENT * «, t00=0x011c, t01=0x0088}
0x1bc44…1bc84 Head {h00=0x003c, h01=0x0050, text=»* DTE BLOCK IN SCTDCT TABLE * «, t00=0x011c, t01=0x00c8}
0x1bc84…1bcc4 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x011c, t01=0x0108}
0x1bcc4…1bd04 Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A11 ADDRESS TO LAST CHARACTER IN * «, t00=0x011c, t01=0x0148}
0x1bd04…1bd44 Head {h00=0x003c, h01=0x0050, text=»* PROCESSED DTE-BLOCK IN CONF. DATA * «, t00=0x011c, t01=0x0188}
0x1bd44…1bd84 Head {h00=0x003c, h01=0x0050, text=»* A12 POINTER TO LAST DEFINED DTE-BLOCK * «, t00=0x011d, t01=0x0038}
0x1bd84…1bdc4 Head {h00=0x003c, h01=0x0050, text=»* DEFINED IN SCTDCT TABLE * «, t00=0x011d, t01=0x0078}
0x1bdc4…1be04 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x011d, t01=0x00b8}
0x1be04…1be44 Head {h00=0x003c, h01=0x0050, text=»* REFERENCED IN: B:CNA * «, t00=0x011d, t01=0x00f8}
0x1be44…1be84 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINES REFERENCED: GETCOP,GETNSA,P:NA,HEXCPY * «, t00=0x011d, t01=0x0138}
0x1be84…1bec4 Head {h00=0x003c, h01=0x0050, text=»* AND MOVE * «, t00=0x011d, t01=0x0178}
0x1bec4…1bf04 Head {h00=0x003c, h01=0x0050, text=»* * «, t00=0x011e, t01=0x0028}
0x1bf04…1bf44 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x011e, t01=0x0068}
0x1bf44…1bf50 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011e, t01=0x00a8}
0x1bf50…1bf5c Head {h00=0x0008, h01=0x0050, text=» «, t00=0x011e, t01=0x00b4}
0x1bf5c…1bf70 Head {h00=0x0010, h01=0x0050, text=»P:DTE EQU * «, t00=0x011e, t01=0x00c0}
0x1bf70…1bf9e Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/3000 INITIALIZE NAME FILLER «, t00=0x011e, t01=0x00d4}
0x1bf9e…1bfce Head {h00=0x002c, h01=0x0050, text=» LC A1,1,A11 GET 1ST CHAR. IN SDTE NAME «, t00=0x011e, t01=0x0102}
0x1bfce…1c000 Head {h00=0x002e, h01=0x0050, text=» LC A2,IDLIM,A11 GET NA-NSA QUALIFIER (=T)«, t00=0x011e, t01=0x0132}
0x1c000…1c014 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x011e, t01=0x0164}
0x1c014…1c03e Head {h00=0x0026, h01=0x0050, text=» CCK A2,'TT' START OF TYPE RECORD?«, t00=0x011e, t01=0x0178}
0x1c03e…1c058 Head {h00=0x0016, h01=0x0050, text=» RF(E) PDTE00 YES!«, t00=0x011f, t01=0x0012}
0x1c058…1c062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x002c}
0x1c062…1c08c Head {h00=0x0026, h01=0x0050, text=» SLL A1,8 NO LEFT ADJUST CHAR. AND«, t00=0x011f, t01=0x0036}
0x1c08c…1c0b4 Head {h00=0x0024, h01=0x0050, text=» LC A1,1,A11 GET NEXT CHARACTER «, t00=0x011f, t01=0x0060}
0x1c0b4…1c0c8 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x011f, t01=0x0088}
0x1c0c8…1c0dc Head {h00=0x0010, h01=0x0050, text=»PDTE00 EQU *«, t00=0x011f, t01=0x009c}
0x1c0dc…1c10c Head {h00=0x002c, h01=0x0050, text=» ST A1,DTENAM+STKEND SAVE NAME IN STACK «, t00=0x011f, t01=0x00b0}
0x1c10c…1c132 Head {h00=0x0022, h01=0x0050, text=» CALL GETCOP GET NO OF COPIES «, t00=0x011f, t01=0x00e0}
0x1c132…1c158 Head {h00=0x0022, h01=0x0050, text=» ST A1,DTECOP+STKEND AND SAVE «, t00=0x011f, t01=0x0106}
0x1c158…1c18c Head {h00=0x0030, h01=0x0050, text=» ADKL A11,TYPOFS ADVANCE TO TYPE IDENTIFIER «, t00=0x011f, t01=0x012c}
0x1c18c…1c1a0 Head {h00=0x0010, h01=0x0050, text=» LC A1,1,A11«, t00=0x011f, t01=0x0160}
0x1c1a0…1c1c6 Head {h00=0x0022, h01=0x0050, text=» SLL A1,8 FORM TYPE IDENTIFIER«, t00=0x011f, t01=0x0174}
0x1c1c6…1c1da Head {h00=0x0010, h01=0x0050, text=» LC A1,2,A11«, t00=0x0120, t01=0x000a}
0x1c1da…1c204 Head {h00=0x0026, h01=0x0050, text=» ST A1,DTETYP+STKEND SAVE IN STACK«, t00=0x0120, t01=0x001e}
0x1c204…1c218 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x0120, t01=0x0048}
0x1c218…1c244 Head {h00=0x0028, h01=0x0050, text=» LDK A2,0 RESET NETWORK ADDR. LENGTH«, t00=0x0120, t01=0x005c}
0x1c244…1c268 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x0120, t01=0x0088}
0x1c268…1c27a Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0120, t01=0x00ac}
0x1c27a…1c294 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE05 YES!«, t00=0x0120, t01=0x00be}
0x1c294…1c29e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x00d8}
0x1c29e…1c2d0 Head {h00=0x002e, h01=0x0050, text=» LC A7,NANSA,A11 GET NA-NSA-SDTE QUALIFIER«, t00=0x0120, t01=0x00e2}
0x1c2d0…1c2e4 Head {h00=0x0010, h01=0x0050, text=» CCK A7,'AA'«, t00=0x0120, t01=0x0114}
0x1c2e4…1c30e Head {h00=0x0026, h01=0x0050, text=» RF(NE) PDTE05 NSA OR SDTE RECORD «, t00=0x0120, t01=0x0128}
0x1c30e…1c318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0120, t01=0x0152}
0x1c318…1c34a Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NAOFS ADVANCE TO 1ST DIGIT IN NA«, t00=0x0120, t01=0x015c}
0x1c34a…1c374 Head {h00=0x0026, h01=0x0050, text=» ST A11,NASTRT+STKEND SAVE ADDRESS«, t00=0x0120, t01=0x018e}
0x1c374…1c39e Head {h00=0x0026, h01=0x0050, text=» CALL P:NA PROCESS NETWORK ADDRESS«, t00=0x0121, t01=0x0028}
0x1c39e…1c3b2 Head {h00=0x0010, h01=0x0050, text=» LC A7,2,A11«, t00=0x0121, t01=0x0052}
0x1c3b2…1c3c6 Head {h00=0x0010, h01=0x0050, text=»PDTE05 EQU *«, t00=0x0121, t01=0x0066}
0x1c3c6…1c3f4 Head {h00=0x002a, h01=0x0050, text=» ST A2,NALNG+STKEND SAVE LENGTH OF NA «, t00=0x0121, t01=0x007a}
0x1c3f4…1c406 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0121, t01=0x00a8}
0x1c406…1c42a Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x0121, t01=0x00ba}
0x1c42a…1c43c Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0121, t01=0x00de}
0x1c43c…1c456 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE07 YES!«, t00=0x0121, t01=0x00f0}
0x1c456…1c460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x010a}
0x1c460…1c474 Head {h00=0x0010, h01=0x0050, text=» CCK A7,'SS'«, t00=0x0121, t01=0x0114}
0x1c474…1c498 Head {h00=0x0020, h01=0x0050, text=» RF(NE) PDTE07 NO NSA RECORD«, t00=0x0121, t01=0x0128}
0x1c498…1c4a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x014c}
0x1c4a2…1c4d4 Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NSAOFS ADVANCE TO NO OF SUBADDR.«, t00=0x0121, t01=0x0156}
0x1c4d4…1c4e8 Head {h00=0x0010, h01=0x0050, text=» CALL GETNSA«, t00=0x0121, t01=0x0188}
0x1c4e8…1c516 Head {h00=0x002a, h01=0x0050, text=» ADKL A11,2 SKIP NSA NR IN CONF. DATA «, t00=0x0122, t01=0x000c}
0x1c516…1c52a Head {h00=0x0010, h01=0x0050, text=»PDTE07 EQU *«, t00=0x0122, t01=0x003a}
0x1c52a…1c560 Head {h00=0x0032, h01=0x0050, text=» ST A1,DTENSA+STKEND SAVE NO OF SUBADDR. DEF. «, t00=0x0122, t01=0x004e}
0x1c560…1c588 Head {h00=0x0024, h01=0x0050, text=» CWK A1,/FF LOOK IF LEGAL NUMBER«, t00=0x0122, t01=0x0084}
0x1c588…1c5a4 Head {h00=0x0018, h01=0x0050, text=» RF(NG) PDTE10 YES! «, t00=0x0122, t01=0x00ac}
0x1c5a4…1c5ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x00c8}
0x1c5ae…1c5c2 Head {h00=0x0010, h01=0x0050, text=»NSAERR EQU *«, t00=0x0122, t01=0x00d2}
0x1c5c2…1c5f0 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP4 NO, ERROR IN CONF. FILE «, t00=0x0122, t01=0x00e6}
0x1c5f0…1c604 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0122, t01=0x0114}
0x1c604…1c618 Head {h00=0x0010, h01=0x0050, text=»PDTE10 EQU *«, t00=0x0122, t01=0x0128}
0x1c618…1c62a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0122, t01=0x013c}
0x1c62a…1c650 Head {h00=0x0022, h01=0x0050, text=» RF(Z) PDTE15 NO SUBADDRESSES «, t00=0x0122, t01=0x014e}
0x1c650…1c65a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x0174}
0x1c65a…1c692 Head {h00=0x0034, h01=0x0050, text=» ST A11,NSAADR+STKEND SAVE ADDR. OF 1ST SUBADDR.«, t00=0x0122, t01=0x017e}
0x1c692…1c6a4 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0123, t01=0x0026}
0x1c6a4…1c6d6 Head {h00=0x002e, h01=0x0050, text=» ADR A11,A1 CALCULATE STAT OF NEXT RECORD «, t00=0x0123, t01=0x0038}
0x1c6d6…1c6ea Head {h00=0x0010, h01=0x0050, text=»PDTE15 EQU *«, t00=0x0123, t01=0x006a}
0x1c6ea…1c720 Head {h00=0x0032, h01=0x0050, text=» CALL DTESIZ CALCULATE SIZE OF THIS DTE BLOCK «, t00=0x0123, t01=0x007e}
0x1c720…1c74c Head {h00=0x0028, h01=0x0050, text=» CALL UPDDTE UPDATE DTE BLOCK IN DCT«, t00=0x0123, t01=0x00b4}
0x1c74c…1c77a Head {h00=0x002a, h01=0x0050, text=» LD A7,DTECOP+STKEND GET NO OF COPIES «, t00=0x0123, t01=0x00e0}
0x1c77a…1c78e Head {h00=0x0010, h01=0x0050, text=»PDTE20 EQU *«, t00=0x0123, t01=0x010e}
0x1c78e…1c7a0 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0123, t01=0x0122}
0x1c7a0…1c7d0 Head {h00=0x002c, h01=0x0050, text=» RF(Z) PDTE40 NO COPIES LEFT TO PROCESS «, t00=0x0123, t01=0x0134}
0x1c7d0…1c800 Head {h00=0x002c, h01=0x0050, text=» LDK A5,1 INITIALIZE INCREMENT CONSTANT «, t00=0x0123, t01=0x0164}
0x1c800…1c82e (292, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LD A4,DTENAM+STKEND GET PREVIOUS NAME«, t00=0x0124, t01=0x0004}
0x1c82e…1c840 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0124, t01=0x0032}
0x1c840…1c86e Head {h00=0x002a, h01=0x0050, text=» ANK A3,/FF ISOLATE RIGHT BYTE OF NAME«, t00=0x0124, t01=0x0044}
0x1c86e…1c892 Head {h00=0x0020, h01=0x0050, text=» CWK A3,/5F UPPER BOUNDARY? «, t00=0x0124, t01=0x0072}
0x1c892…1c8ac Head {h00=0x0016, h01=0x0050, text=» RF(L) PDTE25 NO! «, t00=0x0124, t01=0x0096}
0x1c8ac…1c8b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x00b0}
0x1c8b6…1c8e6 Head {h00=0x002c, h01=0x0050, text=» LC A4,/30 RESET RIGHT BYTE TO ASCII '0'«, t00=0x0124, t01=0x00ba}
0x1c8e6…1c910 Head {h00=0x0026, h01=0x0050, text=» SLL A5,8 LEFT BYTE INCREMENTATION«, t00=0x0124, t01=0x00ea}
0x1c910…1c924 Head {h00=0x0010, h01=0x0050, text=»PDTE25 EQU *«, t00=0x0124, t01=0x0114}
0x1c924…1c94e Head {h00=0x0026, h01=0x0050, text=» ADR A4,A5 INCREMENT SYMBOLIC NAME«, t00=0x0124, t01=0x0128}
0x1c94e…1c96a Head {h00=0x0018, h01=0x0050, text=» ST A4,DTENAM+STKEND«, t00=0x0124, t01=0x0152}
0x1c96a…1c974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0124, t01=0x016e}
0x1c974…1c998 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x0124, t01=0x0178}
0x1c998…1c9aa Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0125, t01=0x000c}
0x1c9aa…1c9c4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE35 YES!«, t00=0x0125, t01=0x001e}
0x1c9c4…1c9ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x0038}
0x1c9ce…1ca00 Head {h00=0x002e, h01=0x0050, text=» LC A1,2,A11 GET 2ND CHAR. IN NEXT RECORD «, t00=0x0125, t01=0x0042}
0x1ca00…1ca34 Head {h00=0x0030, h01=0x0050, text=» CCK A1,'DD' IF A SDTE-RECORD USE OLD ADDR. «, t00=0x0125, t01=0x0074}
0x1ca34…1ca4a Head {h00=0x0012, h01=0x0050, text=» RF(E) PDTE35 «, t00=0x0125, t01=0x00a8}
0x1ca4a…1ca54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x00be}
0x1ca54…1ca76 Head {h00=0x001e, h01=0x0050, text=» CCK A1,'SS' IF NSA RECORD«, t00=0x0125, t01=0x00c8}
0x1ca76…1caa4 Head {h00=0x002a, h01=0x0050, text=» RF(E) PDTE30 USE OLD NETWORK ADDRESS «, t00=0x0125, t01=0x00ea}
0x1caa4…1caae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x0118}
0x1caae…1cae0 Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NAOFS ADVANCE TO 1ST DIGIT IN NA«, t00=0x0125, t01=0x0122}
0x1cae0…1cafe Head {h00=0x001a, h01=0x0050, text=» ST A11,NASTRT+STKEND «, t00=0x0125, t01=0x0154}
0x1cafe…1cb28 Head {h00=0x0026, h01=0x0050, text=» CALL P:NA PROCESS NETWORK ADDRESS«, t00=0x0125, t01=0x0172}
0x1cb28…1cb56 Head {h00=0x002a, h01=0x0050, text=» ST A2,NALNG+STKEND SAVE LENGTH OF NA «, t00=0x0126, t01=0x000c}
0x1cb56…1cb60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x003a}
0x1cb60…1cb84 Head {h00=0x0020, h01=0x0050, text=» CALL ENDBLK END OF D-BLOCK?«, t00=0x0126, t01=0x0044}
0x1cb84…1cb96 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0126, t01=0x0068}
0x1cb96…1cbb0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) PDTE35 YES!«, t00=0x0126, t01=0x007a}
0x1cbb0…1cbba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x0094}
0x1cbba…1cbce Head {h00=0x0010, h01=0x0050, text=» LC A1,2,A11«, t00=0x0126, t01=0x009e}
0x1cbce…1cbe2 Head {h00=0x0010, h01=0x0050, text=» CCK A1,'SS'«, t00=0x0126, t01=0x00b2}
0x1cbe2…1cc0e Head {h00=0x0028, h01=0x0050, text=» RF(NE) PDTE35 NO NSA RECORD PRESENT«, t00=0x0126, t01=0x00c6}
0x1cc0e…1cc18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0126, t01=0x00f2}
0x1cc18…1cc2c Head {h00=0x0010, h01=0x0050, text=»PDTE30 EQU *«, t00=0x0126, t01=0x00fc}
0x1cc2c…1cc5e Head {h00=0x002e, h01=0x0050, text=» ADKL A11,NSAOFS ADVANCE TO NO OF SUBADDR.«, t00=0x0126, t01=0x0110}
0x1cc5e…1cc72 Head {h00=0x0010, h01=0x0050, text=» CALL GETNSA«, t00=0x0126, t01=0x0142}
0x1cc72…1cca2 Head {h00=0x002c, h01=0x0050, text=» ST A1,DTENSA+STKEND SAVE NO OF SUBADDR.«, t00=0x0126, t01=0x0156}
0x1cca2…1ccb6 Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x0126, t01=0x0186}
0x1ccb6…1ccc8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0127, t01=0x000a}
0x1ccc8…1ccec Head {h00=0x0020, h01=0x0050, text=» RF(Z) PDTE35 NO SUBADDRESSE«, t00=0x0127, t01=0x001c}
0x1ccec…1ccf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0040}
0x1ccf6…1cd0a Head {h00=0x0010, h01=0x0050, text=» CWK A1,/FF «, t00=0x0127, t01=0x004a}
0x1cd0a…1cd3a Head {h00=0x002c, h01=0x0050, text=» RB(G) NSAERR TOO MANY SUBADDR. DEFINED «, t00=0x0127, t01=0x005e}
0x1cd3a…1cd44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x008e}
0x1cd44…1cd7c Head {h00=0x0034, h01=0x0050, text=» ST A11,NSAADR+STKEND SAVE START OF 1ST SUBADDR.«, t00=0x0127, t01=0x0098}
0x1cd7c…1cd8e Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0127, t01=0x00d0}
0x1cd8e…1cdc0 Head {h00=0x002e, h01=0x0050, text=» ADR A11,A1 CALCULATE START OF NEXT RECORD«, t00=0x0127, t01=0x00e2}
0x1cdc0…1cdd4 Head {h00=0x0010, h01=0x0050, text=»PDTE35 EQU *«, t00=0x0127, t01=0x0114}
0x1cdd4…1ce06 Head {h00=0x002e, h01=0x0050, text=» LDR* A12,A12 GET START OF NEXT DTE BLOCK «, t00=0x0127, t01=0x0128}
0x1ce06…1ce3e Head {h00=0x0034, h01=0x0050, text=» CALL DTESIZ CALCULATE LENGTH OF THIS DTE BLOCK «, t00=0x0127, t01=0x015a}
0x1ce3e…1ce52 (296, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CALL UPDDTE«, t00=0x0128, t01=0x0004}
0x1ce52…1ce64 Head {h00=0x000e, h01=0x0050, text=» RB PDTE20«, t00=0x0128, t01=0x0018}
0x1ce64…1ce6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x002a}
0x1ce6e…1ce82 Head {h00=0x0010, h01=0x0050, text=»PDTE40 EQU *«, t00=0x0128, t01=0x0034}
0x1ce82…1ce92 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0128, t01=0x0048}
0x1ce92…1cea0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0128, t01=0x0058}
0x1cea0…1cee0 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0128, t01=0x0066}
0x1cee0…1cf20 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0128, t01=0x00a6}
0x1cf20…1cf60 Head {h00=0x003c, h01=0x0050, text=»* DTESIZ CALCULATES THE LENGTH OF A DTE BLOCK *«, t00=0x0128, t01=0x00e6}
0x1cf60…1cfa0 Head {h00=0x003c, h01=0x0050, text=»* ============================================ *«, t00=0x0128, t01=0x0126}
0x1cfa0…1cfe0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0128, t01=0x0166}
0x1cfe0…1d020 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A12 START OF CURRENT DTE BLOCK *«, t00=0x0129, t01=0x0016}
0x1d020…1d060 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0129, t01=0x0056}
0x1d060…1d0a0 Head {h00=0x003c, h01=0x0050, text=»* WORK REGISTER: A1,A9 *«, t00=0x0129, t01=0x0096}
0x1d0a0…1d0e0 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0129, t01=0x00d6}
0x1d0e0…1d120 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0129, t01=0x0116}
0x1d120…1d128 Head {h00=0x0004, h01=0x0050, t00=0x0129, t01=0x0156}
0x1d128…1d130 Head {h00=0x0004, h01=0x0050, t00=0x0129, t01=0x015e}
0x1d130…1d144 Head {h00=0x0010, h01=0x0050, text=»DTESIZ EQU *«, t00=0x0129, t01=0x0166}
0x1d144…1d160 Head {h00=0x0018, h01=0x0050, text=» ST A11,WRK1+STKEND «, t00=0x0129, t01=0x017a}
0x1d160…1d19a Head {h00=0x0036, h01=0x0050, text=» LD A1,NALNG+STKEND GET LENGTH OF NETWORK ADDRESS «, t00=0x012a, t01=0x0008}
0x1d19a…1d1ac Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x012a, t01=0x0042}
0x1d1ac…1d1d4 Head {h00=0x0024, h01=0x0050, text=» SRL A1,1 2 DIGITS IN EACH BYTE «, t00=0x012a, t01=0x0054}
0x1d1d4…1d204 Head {h00=0x002c, h01=0x0050, text=» AD A1,DTENSA+STKEND ADD NO OF SUBADDR. «, t00=0x012a, t01=0x007c}
0x1d204…1d236 Head {h00=0x002e, h01=0x0050, text=» ADK A1,DTEFIX+1 AND LENGTH OF FIX PART+1 «, t00=0x012a, t01=0x00ac}
0x1d236…1d256 Head {h00=0x001c, h01=0x0050, text=» ANKL A1,/FFFE MAKE EVEN«, t00=0x012a, t01=0x00de}
0x1d256…1d282 Head {h00=0x0028, h01=0x0050, text=» ADR A1,A12 START OF NEXT DTE BLOCK «, t00=0x012a, t01=0x00fe}
0x1d282…1d2ac Head {h00=0x0026, h01=0x0050, text=» STR A1,A12 UPDATE DTE BLOCK LINK «, t00=0x012a, t01=0x012a}
0x1d2ac…1d2be Head {h00=0x000e, h01=0x0050, text=» LDR A9,A1«, t00=0x012a, t01=0x0154}
0x1d2be…1d2e2 Head {h00=0x0020, h01=0x0050, text=» ST A11,WRK1+STKEND SAVE A11«, t00=0x012a, t01=0x0166}
0x1d2e2…1d316 Head {h00=0x0030, h01=0x0050, text=» LD A11,LIMIT+STKEND GET END OF SYSTEM AREA «, t00=0x012a, t01=0x018a}
0x1d316…1d33c Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR MEMORY OVERFLOW? «, t00=0x012b, t01=0x002e}
0x1d33c…1d356 Head {h00=0x0016, h01=0x0050, text=» RF(NL) DTSIZ0 NO!«, t00=0x012b, t01=0x0054}
0x1d356…1d360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x006e}
0x1d360…1d37a Head {h00=0x0016, h01=0x0050, text=» LDKL A1,LMP3 YES!«, t00=0x012b, t01=0x0078}
0x1d37a…1d38e Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x012b, t01=0x0092}
0x1d38e…1d398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x00a6}
0x1d398…1d3ac Head {h00=0x0010, h01=0x0050, text=»DTSIZ0 EQU *«, t00=0x012b, t01=0x00b0}
0x1d3ac…1d3e6 Head {h00=0x0036, h01=0x0050, text=» LD A11,WRK1+STKEND RESTORE POSITION IN CONF. DATA«, t00=0x012b, t01=0x00c4}
0x1d3e6…1d3f6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012b, t01=0x00fe}
0x1d3f6…1d404 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012b, t01=0x010e}
0x1d404…1d444 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x012b, t01=0x011c}
0x1d444…1d484 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x012b, t01=0x015c}
0x1d484…1d4c4 Head {h00=0x003c, h01=0x0050, text=»* UPDDTE UPDATES CURRENT DTE BLOCK WITH ITS: *«, t00=0x012c, t01=0x000c}
0x1d4c4…1d504 Head {h00=0x003c, h01=0x0050, text=»* ====== *«, t00=0x012c, t01=0x004c}
0x1d504…1d544 Head {h00=0x003c, h01=0x0050, text=»* NAME *«, t00=0x012c, t01=0x008c}
0x1d544…1d584 Head {h00=0x003c, h01=0x0050, text=»* TYPE *«, t00=0x012c, t01=0x00cc}
0x1d584…1d5c4 Head {h00=0x003c, h01=0x0050, text=»* NETWORK ADDRES *«, t00=0x012c, t01=0x010c}
0x1d5c4…1d604 Head {h00=0x003c, h01=0x0050, text=»* SUBADDRESSES *«, t00=0x012c, t01=0x014c}
0x1d604…1d644 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x012c, t01=0x018c}
0x1d644…1d684 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x012d, t01=0x003c}
0x1d684…1d68c Head {h00=0x0004, h01=0x0050, t00=0x012d, t01=0x007c}
0x1d68c…1d694 Head {h00=0x0004, h01=0x0050, t00=0x012d, t01=0x0084}
0x1d694…1d6a8 Head {h00=0x0010, h01=0x0050, text=»UPDDTE EQU *«, t00=0x012d, t01=0x008c}
0x1d6a8…1d6e0 Head {h00=0x0034, h01=0x0050, text=» LDR A6,A12 GET START OF CURRENT DTE BLOCK ENTRY«, t00=0x012d, t01=0x00a0}
0x1d6e0…1d702 Head {h00=0x001e, h01=0x0050, text=» ADK A6,2 SKIP LINK ENTRY «, t00=0x012d, t01=0x00d8}
0x1d702…1d732 Head {h00=0x002c, h01=0x0050, text=» LD A1,DTENAM+STKEND GET NAME FROM STACK«, t00=0x012d, t01=0x00fa}
0x1d732…1d750 Head {h00=0x001a, h01=0x0050, text=» STR A1,A6 SAVE IN DCT«, t00=0x012d, t01=0x012a}
0x1d750…1d76c Head {h00=0x0018, h01=0x0050, text=» ADK A6,2 NEXT ENTRY«, t00=0x012d, t01=0x0148}
0x1d76c…1d79c Head {h00=0x002c, h01=0x0050, text=» LD A1,DTETYP+STKEND GET TYPE FROM STACK«, t00=0x012d, t01=0x0164}
0x1d79c…1d7be (302, 0, 400) Head {h00=0x001e, h01=0x0050, text=» STR A1,A6 AND SAVE IN DCT«, t00=0x012e, t01=0x0004}
0x1d7be…1d7d0 Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x012e, t01=0x0026}
0x1d7d0…1d7f2 Head {h00=0x001e, h01=0x0050, text=» LDK A5,4 GET NO OF SHIFTS«, t00=0x012e, t01=0x0038}
0x1d7f2…1d824 Head {h00=0x002e, h01=0x0050, text=» ORKL A5,SLL0 AND CONFIG. SLL A1,8 INSTR. «, t00=0x012e, t01=0x005a}
0x1d824…1d85c Head {h00=0x0034, h01=0x0050, text=» LD A2,NALNG+STKEND GET LENGTH OF NETWORK ADDR. «, t00=0x012e, t01=0x008c}
0x1d85c…1d884 Head {h00=0x0024, h01=0x0050, text=» LDR A3,A2 SAVE NO OF CHARACTERS«, t00=0x012e, t01=0x00c4}
0x1d884…1d8a2 Head {h00=0x001a, h01=0x0050, text=» SLL A2,8 LEFT ADJUST «, t00=0x012e, t01=0x00ec}
0x1d8a2…1d8d2 Head {h00=0x002c, h01=0x0050, text=» RF(Z) UPDTE0 NO NETWORK ADDRESS DEFINED«, t00=0x012e, t01=0x010a}
0x1d8d2…1d8dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x013a}
0x1d8dc…1d914 Head {h00=0x0034, h01=0x0050, text=» LD A4,NASTRT+STKEND GET START OF NETWORK ADDR. «, t00=0x012e, t01=0x0144}
0x1d914…1d940 Head {h00=0x0028, h01=0x0050, text=» CALL HEXCPY COPY AND PACK NA TO DCT«, t00=0x012e, t01=0x017c}
0x1d940…1d968 Head {h00=0x0024, h01=0x0050, text=» ANKL A5,/1F ISOLATE SHIFT COUNT«, t00=0x012f, t01=0x0018}
0x1d968…1d992 Head {h00=0x0026, h01=0x0050, text=» CWK A5,4 LESS THAN ONE BYTE LEFT?«, t00=0x012f, t01=0x0040}
0x1d992…1d9ae Head {h00=0x0018, h01=0x0050, text=» RF(NG) UPDTE2 YES! «, t00=0x012f, t01=0x006a}
0x1d9ae…1d9c2 Head {h00=0x0010, h01=0x0050, text=»UPDTE0 EQU *«, t00=0x012f, t01=0x0086}
0x1d9c2…1d9e4 Head {h00=0x001e, h01=0x0050, text=» LDK A5,0 SET NO OF SHIFTS«, t00=0x012f, t01=0x009a}
0x1d9e4…1d9f6 Head {h00=0x000e, h01=0x0050, text=» RF UPDTE4«, t00=0x012f, t01=0x00bc}
0x1d9f6…1da00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012f, t01=0x00ce}
0x1da00…1da14 Head {h00=0x0010, h01=0x0050, text=»UPDTE2 EQU *«, t00=0x012f, t01=0x00d8}
0x1da14…1da38 Head {h00=0x0020, h01=0x0050, text=» STR A2,A6 STORE WORD IN DCT«, t00=0x012f, t01=0x00ec}
0x1da38…1da5a Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 CLEAR TABLE WORD«, t00=0x012f, t01=0x0110}
0x1da5a…1da82 Head {h00=0x0024, h01=0x0050, text=» ADK A6,2 ADVANCE TO NEXT ENTRY «, t00=0x012f, t01=0x0132}
0x1da82…1daa4 Head {h00=0x001e, h01=0x0050, text=» LDK A5,8 GET NO OF SHIFTS«, t00=0x012f, t01=0x015a}
0x1daa4…1dab8 Head {h00=0x0010, h01=0x0050, text=»UPDTE4 EQU *«, t00=0x012f, t01=0x017c}
0x1dab8…1dae8 Head {h00=0x002c, h01=0x0050, text=» ORKL A5,SLL0 CONFIGURE SSL A1,N INSTR. «, t00=0x012f, t01=0x0190}
0x1dae8…1db20 Head {h00=0x0034, h01=0x0050, text=» LD A1,DTENSA+STKEND GET NO OF SUBADDR. DEFINED «, t00=0x0130, t01=0x0030}
0x1db20…1db4a Head {h00=0x0026, h01=0x0050, text=» RF(Z) UPDTE8 NO SUBADDR. DEFINED «, t00=0x0130, t01=0x0068}
0x1db4a…1db54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x0092}
0x1db54…1db8c Head {h00=0x0034, h01=0x0050, text=» LD A4,NSAADR+STKEND GET ADDRESS TO 1ST SUBADDR.«, t00=0x0130, t01=0x009c}
0x1db8c…1db9e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0130, t01=0x00d4}
0x1db9e…1dbcc Head {h00=0x002a, h01=0x0050, text=» SLL A3,1 2 DIGITS FOR EACH SUDADDRESS«, t00=0x0130, t01=0x00e6}
0x1dbcc…1dbe2 Head {h00=0x0012, h01=0x0050, text=» EXR A5 SHIFT «, t00=0x0130, t01=0x0114}
0x1dbe2…1dc0c Head {h00=0x0026, h01=0x0050, text=» ORR A2,A1 AND CONFIGURE DCT WORD «, t00=0x0130, t01=0x012a}
0x1dc0c…1dc2c Head {h00=0x001c, h01=0x0050, text=» CWK A5,SLL0 FULL WORD? «, t00=0x0130, t01=0x0154}
0x1dc2c…1dc46 Head {h00=0x0016, h01=0x0050, text=» RF(NE) UPDTE6 NO!«, t00=0x0130, t01=0x0174}
0x1dc46…1dc50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x018e}
0x1dc50…1dc74 Head {h00=0x0020, h01=0x0050, text=» STR A2,A6 YES! SAVE IN DCT «, t00=0x0131, t01=0x0008}
0x1dc74…1dc96 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 CLEAR TABLE WORD«, t00=0x0131, t01=0x002c}
0x1dc96…1dcbc Head {h00=0x0022, h01=0x0050, text=» ADK A6,2 ADVANCE DCT POINTER «, t00=0x0131, t01=0x004e}
0x1dcbc…1dcdc Head {h00=0x001c, h01=0x0050, text=» LDK A5,16 NO OF SHIFTS «, t00=0x0131, t01=0x0074}
0x1dcdc…1dd0c Head {h00=0x002c, h01=0x0050, text=» ORKL A5,SLL0 CONFIGURE SLL A1,12 INSTR.«, t00=0x0131, t01=0x0094}
0x1dd0c…1dd20 Head {h00=0x0010, h01=0x0050, text=»UPDTE6 EQU *«, t00=0x0131, t01=0x00c4}
0x1dd20…1dd3e Head {h00=0x001a, h01=0x0050, text=» SUK A5,4 NEXT NIBBLE «, t00=0x0131, t01=0x00d8}
0x1dd3e…1dd6a Head {h00=0x0028, h01=0x0050, text=» CALL HEXCPY COPY AND PACK INTO DCT «, t00=0x0131, t01=0x00f6}
0x1dd6a…1dd7e Head {h00=0x0010, h01=0x0050, text=»UPDTE8 EQU *«, t00=0x0131, t01=0x0122}
0x1dd7e…1dd90 Head {h00=0x000e, h01=0x0050, text=» STR A2,A6«, t00=0x0131, t01=0x0136}
0x1dd90…1dda0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0131, t01=0x0148}
0x1dda0…1ddae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0131, t01=0x0158}
0x1ddae…1ddee Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0131, t01=0x0166}
0x1ddee…1de2e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0132, t01=0x0016}
0x1de2e…1de6e Head {h00=0x003c, h01=0x0050, text=»* HEXCPY COPIES AND PACKS 4 HEXADECIMAL DIGITS *«, t00=0x0132, t01=0x0056}
0x1de6e…1deae Head {h00=0x003c, h01=0x0050, text=»* IN ONE WORD. *«, t00=0x0132, t01=0x0096}
0x1deae…1deee Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0132, t01=0x00d6}
0x1deee…1df2e Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A2 WORD TO PACK *«, t00=0x0132, t01=0x0116}
0x1df2e…1df6e Head {h00=0x003c, h01=0x0050, text=»* A3 NO OF CHARACTERS TO PROCESS *«, t00=0x0132, t01=0x0156}
0x1df6e…1dfae Head {h00=0x003c, h01=0x0050, text=»* A4 ADDRESS TO FIRST ASCII DIGIT *«, t00=0x0133, t01=0x0008}
0x1dfae…1dfee Head {h00=0x003c, h01=0x0050, text=»* A5 PACKING INSTR. (SLL A1,N TIMES) *«, t00=0x0133, t01=0x0048}
0x1dfee…1e02e Head {h00=0x003c, h01=0x0050, text=»* A6 POINTER WHERE TO STORE PACKED WORD *«, t00=0x0133, t01=0x0088}
0x1e02e…1e06e Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0133, t01=0x00c8}
0x1e06e…1e0ae Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A2 LAST PACKED, BUT NOT STORED WORD *«, t00=0x0133, t01=0x0108}
0x1e0ae…1e0ee Head {h00=0x003c, h01=0x0050, text=»* A4 ADDRESS TO CHAR. FOLLOWING LAST *«, t00=0x0133, t01=0x0148}
0x1e0ee…1e12e Head {h00=0x003c, h01=0x0050, text=»* PROCESSED DIGIT *«, t00=0x0133, t01=0x0188}
0x1e12e…1e16e Head {h00=0x003c, h01=0x0050, text=»* A5 PACKING INSTR. (SLL A1,N TIMES) *«, t00=0x0134, t01=0x0038}
0x1e16e…1e1ae Head {h00=0x003c, h01=0x0050, text=»* A6 POINTER WHERE TO STORE NEXT WORD *«, t00=0x0134, t01=0x0078}
0x1e1ae…1e1ee Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0134, t01=0x00b8}
0x1e1ee…1e22e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0134, t01=0x00f8}
0x1e22e…1e23a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0134, t01=0x0138}
0x1e23a…1e246 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0134, t01=0x0144}
0x1e246…1e25a Head {h00=0x0010, h01=0x0050, text=»HEXCPY EQU *«, t00=0x0134, t01=0x0150}
0x1e25a…1e26c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0134, t01=0x0164}
0x1e26c…1e28e Head {h00=0x001e, h01=0x0050, text=» LC A1,1,A4 GET CHARACTER «, t00=0x0134, t01=0x0176}
0x1e28e…1e2b2 Head {h00=0x0020, h01=0x0050, text=» CALL HEXCNV CONVERT TO HEX «, t00=0x0135, t01=0x0008}
0x1e2b2…1e2c8 Head {h00=0x0012, h01=0x0050, text=» EXR A5 SHIFT «, t00=0x0135, t01=0x002c}
0x1e2c8…1e2ee Head {h00=0x0022, h01=0x0050, text=» ORR A2,A1 CONFIGURE DCT WORD «, t00=0x0135, t01=0x0042}
0x1e2ee…1e31a Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT NO OF CHARACTERS«, t00=0x0135, t01=0x0068}
0x1e31a…1e342 Head {h00=0x0024, h01=0x0050, text=» RF(Z) HXCPY8 WHOLE NA PROCESSED«, t00=0x0135, t01=0x0094}
0x1e342…1e34c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x00bc}
0x1e34c…1e36c Head {h00=0x001c, h01=0x0050, text=» CWK A5,SLL0 FULL WORD? «, t00=0x0135, t01=0x00c6}
0x1e36c…1e386 Head {h00=0x0016, h01=0x0050, text=» RF(NE) HXCPY6 NO!«, t00=0x0135, t01=0x00e6}
0x1e386…1e390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x0100}
0x1e390…1e3b4 Head {h00=0x0020, h01=0x0050, text=» STR A2,A6 YES! SAVE IN DCT «, t00=0x0135, t01=0x010a}
0x1e3b4…1e3d6 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 CLEAR TABLE WORD«, t00=0x0135, t01=0x012e}
0x1e3d6…1e3fe Head {h00=0x0024, h01=0x0050, text=» ADK A6,2 ADVANCE TO NEXT ENTRY «, t00=0x0135, t01=0x0150}
0x1e3fe…1e41e Head {h00=0x001c, h01=0x0050, text=» LDK A5,16 NO OF SHIFTS «, t00=0x0135, t01=0x0178}
0x1e41e…1e44e Head {h00=0x002c, h01=0x0050, text=» ORKL A5,SLL0 CONFIGURE SSL A1,16 INSTR.«, t00=0x0136, t01=0x0008}
0x1e44e…1e462 Head {h00=0x0010, h01=0x0050, text=»HXCPY6 EQU *«, t00=0x0136, t01=0x0038}
0x1e462…1e480 Head {h00=0x001a, h01=0x0050, text=» SUK A5,4 NEXT NIBBLE «, t00=0x0136, t01=0x004c}
0x1e480…1e4ae Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 NEXT CHARACTER IN CONF. DATA«, t00=0x0136, t01=0x006a}
0x1e4ae…1e4c0 Head {h00=0x000e, h01=0x0050, text=» RB HEXCPY«, t00=0x0136, t01=0x0098}
0x1e4c0…1e4ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0136, t01=0x00aa}
0x1e4ca…1e4de Head {h00=0x0010, h01=0x0050, text=»HXCPY8 EQU *«, t00=0x0136, t01=0x00b4}
0x1e4de…1e4ee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0136, t01=0x00c8}
0x1e4ee…1e4fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0136, t01=0x00d8}
0x1e4fc…1e53c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0136, t01=0x00e6}
0x1e53c…1e57c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0136, t01=0x0126}
0x1e57c…1e5bc Head {h00=0x003c, h01=0x0050, text=»* HEXCNV CONVERTS A HEXADECIMAL DIGIT IN ASCII CODE *«, t00=0x0136, t01=0x0166}
0x1e5bc…1e5fc Head {h00=0x003c, h01=0x0050, text=»* TO CORRESPONDING HEXADECIMAL VALUE *«, t00=0x0137, t01=0x0016}
0x1e5fc…1e63c Head {h00=0x003c, h01=0x0050, text=»* (4 BITS BINARY CODE) *«, t00=0x0137, t01=0x0056}
0x1e63c…1e67c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0137, t01=0x0096}
0x1e67c…1e6bc Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A1 CHARACTER TO CONVERT *«, t00=0x0137, t01=0x00d6}
0x1e6bc…1e6fc Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0137, t01=0x0116}
0x1e6fc…1e73c Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A1 CONVERTED CARACTER *«, t00=0x0137, t01=0x0156}
0x1e73c…1e77c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0138, t01=0x0008}
0x1e77c…1e7bc Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0138, t01=0x0048}
0x1e7bc…1e7c8 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0138, t01=0x0088}
0x1e7c8…1e7d4 Head {h00=0x0008, h01=0x0050, text=» «, t00=0x0138, t01=0x0094}
0x1e7d4…1e7e8 Head {h00=0x0010, h01=0x0050, text=»HEXCNV EQU *«, t00=0x0138, t01=0x00a0}
0x1e7e8…1e80e Head {h00=0x0022, h01=0x0050, text=» ANK A1,/FF ISOLATE CHARACTER «, t00=0x0138, t01=0x00b4}
0x1e80e…1e822 Head {h00=0x0010, h01=0x0050, text=» CWK A1,/29 «, t00=0x0138, t01=0x00da}
0x1e822…1e846 Head {h00=0x0020, h01=0x0050, text=» RF(L) TYPERR ERRANEOUS TYPE«, t00=0x0138, t01=0x00ee}
0x1e846…1e850 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x0112}
0x1e850…1e876 Head {h00=0x0022, h01=0x0050, text=» CWK A1,/40 DIGIT BETWEEN 0-9?«, t00=0x0138, t01=0x011c}
0x1e876…1e890 Head {h00=0x0016, h01=0x0050, text=» RF(L) HXCN00 YES!«, t00=0x0138, t01=0x0142}
0x1e890…1e8ba Head {h00=0x0026, h01=0x0050, text=» RF(E) TYPERR NO NEXADECIMAL DIGIT«, t00=0x0138, t01=0x015c}
0x1e8ba…1e8c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0138, t01=0x0186}
0x1e8c4…1e8ea Head {h00=0x0022, h01=0x0050, text=» CWK A1,/46 DIGIT BETWEEN A-F?«, t00=0x0138, t01=0x0190}
0x1e8ea…1e902 Head {h00=0x0014, h01=0x0050, text=» RF(G) TYPERR NO«, t00=0x0139, t01=0x0026}
0x1e902…1e90c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0139, t01=0x003e}
0x1e90c…1e922 Head {h00=0x0012, h01=0x0050, text=» ADK A1,9 YES!«, t00=0x0139, t01=0x0048}
0x1e922…1e936 Head {h00=0x0010, h01=0x0050, text=»HXCN00 EQU *«, t00=0x0139, t01=0x005e}
0x1e936…1e95c Head {h00=0x0022, h01=0x0050, text=» ANK A1,/F ISOLATE HEX NUMBER «, t00=0x0139, t01=0x0072}
0x1e95c…1e96c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0139, t01=0x0098}
0x1e96c…1e976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0139, t01=0x00a8}
0x1e976…1e98a Head {h00=0x0010, h01=0x0050, text=»TYPERR EQU *«, t00=0x0139, t01=0x00b2}
0x1e98a…1e9b0 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP4 CONF. DATA ERROR«, t00=0x0139, t01=0x00c6}
0x1e9b0…1e9c4 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0139, t01=0x00ec}
0x1e9c4…1e9d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0139, t01=0x0100}
0x1e9d2…1ea12 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0139, t01=0x010e}
0x1ea12…1ea52 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0139, t01=0x014e}
0x1ea52…1ea92 Head {h00=0x003c, h01=0x0050, text=»* P:NA PROCESS NETWORK ADDRESS *«, t00=0x0139, t01=0x018e}
0x1ea92…1ead2 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x013a, t01=0x003e}
0x1ead2…1eb12 Head {h00=0x003c, h01=0x0050, text=»* SCANS THE NETWORK ADDRESS RECORD (NA=..) IN CONF. *«, t00=0x013a, t01=0x007e}
0x1eb12…1eb52 Head {h00=0x003c, h01=0x0050, text=»* DATA AND REPACKS THE RECORD, OVERWRITING POSSIBLE *«, t00=0x013a, t01=0x00be}
0x1eb52…1eb92 Head {h00=0x003c, h01=0x0050, text=»* CONTINUATION DEFINITIONS (C=..), SO THAT THE *«, t00=0x013a, t01=0x00fe}
0x1eb92…1ebd2 Head {h00=0x003c, h01=0x0050, text=»* WHOLE NETWORK ADDRESS WILL BE IN CONTIGOUSE LOCA- *«, t00=0x013a, t01=0x013e}
0x1ebd2…1ec12 Head {h00=0x003c, h01=0x0050, text=»* TIONS. *«, t00=0x013a, t01=0x017e}
0x1ec12…1ec52 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x013b, t01=0x002e}
0x1ec52…1ec92 Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN NETWORK *«, t00=0x013b, t01=0x006e}
0x1ec92…1ecd2 Head {h00=0x003c, h01=0x0050, text=»* ADDRESS. *«, t00=0x013b, t01=0x00ae}
0x1ecd2…1ed12 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x013b, t01=0x00ee}
0x1ed12…1ed52 Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A2 LENGTH OF NETWORK ADDRESS *«, t00=0x013b, t01=0x012e}
0x1ed52…1ed92 Head {h00=0x003c, h01=0x0050, text=»* A11 START OF NSA RECORD IN CONF. DATA *«, t00=0x013b, t01=0x016e}
0x1ed92…1edd2 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x013c, t01=0x001e}
0x1edd2…1ee12 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x013c, t01=0x005e}
0x1ee12…1ee1e Head {h00=0x0008, h01=0x0050, text=» «, t00=0x013c, t01=0x009e}
0x1ee1e…1ee2a Head {h00=0x0008, h01=0x0050, text=» «, t00=0x013c, t01=0x00aa}
0x1ee2a…1ee3c Head {h00=0x000e, h01=0x0050, text=»P:NA EQU *«, t00=0x013c, t01=0x00b6}
0x1ee3c…1ee64 Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 RESET PACKING CONSTANT«, t00=0x013c, t01=0x00c8}
0x1ee64…1ee8a Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 RESET ADDRESS LENGTH«, t00=0x013c, t01=0x00f0}
0x1ee8a…1ee9e Head {h00=0x0010, h01=0x0050, text=»P:NA00 EQU *«, t00=0x013c, t01=0x0116}
0x1ee9e…1eeb0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x013c, t01=0x012a}
0x1eeb0…1eed2 Head {h00=0x001e, h01=0x0050, text=» LC A1,1,A11 GET CHARACTER«, t00=0x013c, t01=0x013c}
0x1eed2…1eefc Head {h00=0x0026, h01=0x0050, text=» LDR A1,A1 SET CONDITION REGISTER «, t00=0x013c, t01=0x015e}
0x1eefc…1ef24 Head {h00=0x0024, h01=0x0050, text=» RF(Z) P:NA06 END OF CONF. DATA «, t00=0x013c, t01=0x0188}
0x1ef24…1ef2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x0020}
0x1ef2e…1ef52 Head {h00=0x0020, h01=0x0050, text=» CCK A1,/FF END OF D-BLOCK? «, t00=0x013d, t01=0x002a}
0x1ef52…1ef6c Head {h00=0x0016, h01=0x0050, text=» RF(E) P:NA05 YES!«, t00=0x013d, t01=0x004e}
0x1ef6c…1ef76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x0068}
0x1ef76…1efa0 Head {h00=0x0026, h01=0x0050, text=» CCK A1,'==' CONTINUATION RECORD? «, t00=0x013d, t01=0x0072}
0x1efa0…1efba Head {h00=0x0016, h01=0x0050, text=» RF(E) P:NA04 YES!«, t00=0x013d, t01=0x009c}
0x1efba…1efc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x00b6}
0x1efc4…1eff6 Head {h00=0x002e, h01=0x0050, text=» CCK A1,'NN' NO! START OF NA OR NSA RECORD«, t00=0x013d, t01=0x00c0}
0x1eff6…1f018 Head {h00=0x001e, h01=0x0050, text=» RF(E) P:NA06 YES! RETURN «, t00=0x013d, t01=0x00f2}
0x1f018…1f022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x0114}
0x1f022…1f04c Head {h00=0x0026, h01=0x0050, text=» CCK A1,'SS' START OF SDTE RECORD?«, t00=0x013d, t01=0x011e}
0x1f04c…1f066 Head {h00=0x0016, h01=0x0050, text=» RF(E) P:NA06 YES!«, t00=0x013d, t01=0x0148}
0x1f066…1f070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x0162}
0x1f070…1f09e Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 INCREMENT NA ADDRESS LENGTH «, t00=0x013d, t01=0x016c}
0x1f09e…1f0c2 Head {h00=0x0020, h01=0x0050, text=» CWK A2,/FF TOO MANY DIGITS?«, t00=0x013e, t01=0x000a}
0x1f0c2…1f0dc Head {h00=0x0016, h01=0x0050, text=» RF(NG) P:NA02 NO!«, t00=0x013e, t01=0x002e}
0x1f0dc…1f0e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x0048}
0x1f0e6…1f114 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP4 YES! ERROR IN CONF. DATA«, t00=0x013e, t01=0x0052}
0x1f114…1f128 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x013e, t01=0x0080}
0x1f128…1f13c Head {h00=0x0010, h01=0x0050, text=»P:NA02 EQU *«, t00=0x013e, t01=0x0094}
0x1f13c…1f14e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x013e, t01=0x00a8}
0x1f14e…1f174 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A11 REPACKING ADDRESS «, t00=0x013e, t01=0x00ba}
0x1f174…1f1a2 Head {h00=0x002a, h01=0x0050, text=» SCR A1,A3 PUT CHARACTER BACK IN FILE «, t00=0x013e, t01=0x00e0}
0x1f1a2…1f1c8 Head {h00=0x0022, h01=0x0050, text=» ADKL A11,1 GET NEXT CHARACTER«, t00=0x013e, t01=0x010e}
0x1f1c8…1f1da Head {h00=0x000e, h01=0x0050, text=» RB P:NA00«, t00=0x013e, t01=0x0134}
0x1f1da…1f1e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013e, t01=0x0146}
0x1f1e4…1f1f8 Head {h00=0x0010, h01=0x0050, text=»P:NA04 EQU *«, t00=0x013e, t01=0x0150}
0x1f1f8…1f22e Head {h00=0x0032, h01=0x0050, text=» SUK A2,1 DON'T COUNT CONT. RECORD IDENTIFIER «, t00=0x013e, t01=0x0164}
0x1f22e…1f256 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 SET REPACKING CONSTANT«, t00=0x013f, t01=0x000a}
0x1f256…1f284 Head {h00=0x002a, h01=0x0050, text=» ADKL A11,1 ADVANCE TO NEXT CHARACTER «, t00=0x013f, t01=0x0032}
0x1f284…1f296 Head {h00=0x000e, h01=0x0050, text=» RB P:NA00«, t00=0x013f, t01=0x0060}
0x1f296…1f2a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0072}
0x1f2a0…1f2b4 Head {h00=0x0010, h01=0x0050, text=»P:NA05 EQU *«, t00=0x013f, t01=0x007c}
0x1f2b4…1f2da Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 DECREMENT NA LENGTH «, t00=0x013f, t01=0x0090}
0x1f2da…1f308 Head {h00=0x002a, h01=0x0050, text=» SUKL A11,1 AND POSITION IN CONF. DATA«, t00=0x013f, t01=0x00b6}
0x1f308…1f312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x00e4}
0x1f312…1f326 Head {h00=0x0010, h01=0x0050, text=»P:NA06 EQU *«, t00=0x013f, t01=0x00ee}
0x1f326…1f336 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x013f, t01=0x0102}
0x1f336…1f344 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013f, t01=0x0112}
0x1f344…1f34c Head {h00=0x0004, h01=0x0050, t00=0x013f, t01=0x0120}
0x1f34c…1f38c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x013f, t01=0x0128}
0x1f38c…1f3cc Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x013f, t01=0x0168}
0x1f3cc…1f40c Head {h00=0x003c, h01=0x0050, text=»* ENDBLK LOOKS FOR END OF DATA COMMUNICATION BLOCK *«, t00=0x0140, t01=0x0018}
0x1f40c…1f44c Head {h00=0x003c, h01=0x0050, text=»* ================================================= *«, t00=0x0140, t01=0x0058}
0x1f44c…1f48c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0140, t01=0x0098}
0x1f48c…1f4cc Head {h00=0x003c, h01=0x0050, text=»* END OF BLOCK IS DEFINED BY A RECORD BEGINNING *«, t00=0x0140, t01=0x00d8}
0x1f4cc…1f50c Head {h00=0x003c, h01=0x0050, text=»* WITH 'A' AS IN APPLICATION DEFINITION BLOCK OR *«, t00=0x0140, t01=0x0118}
0x1f50c…1f54c Head {h00=0x003c, h01=0x0050, text=»* BY A CHARACTER = 0 (BINARY) MEANING END OF *«, t00=0x0140, t01=0x0158}
0x1f54c…1f58c Head {h00=0x003c, h01=0x0050, text=»* CONFIGURATION DATA. *«, t00=0x0141, t01=0x0008}
0x1f58c…1f5cc Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0141, t01=0x0048}
0x1f5cc…1f60c Head {h00=0x003c, h01=0x0050, text=»* ON ENTRY: A11 CURRENT POSITION IN CONF. DATA *«, t00=0x0141, t01=0x0088}
0x1f60c…1f64c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0141, t01=0x00c8}
0x1f64c…1f68c Head {h00=0x003c, h01=0x0050, text=»* ON EXIT: A8 = 0 IF END OF BLOCK *«, t00=0x0141, t01=0x0108}
0x1f68c…1f6cc Head {h00=0x003c, h01=0x0050, text=»* A8 NOT ZERO OTHERVISE *«, t00=0x0141, t01=0x0148}
0x1f6cc…1f70c Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0141, t01=0x0188}
0x1f70c…1f74c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0142, t01=0x0038}
0x1f74c…1f754 Head {h00=0x0004, h01=0x0050, t00=0x0142, t01=0x0078}
0x1f754…1f75c Head {h00=0x0004, h01=0x0050, t00=0x0142, t01=0x0080}
0x1f75c…1f770 Head {h00=0x0010, h01=0x0050, text=»ENDBLK EQU *«, t00=0x0142, t01=0x0088}
0x1f770…1f798 Head {h00=0x0024, h01=0x0050, text=» LC A8,1,A11 GET NEXT CHARACTER «, t00=0x0142, t01=0x009c}
0x1f798…1f7be Head {h00=0x0022, h01=0x0050, text=» CCK A8,/00 END OF CONF. DATA?«, t00=0x0142, t01=0x00c4}
0x1f7be…1f7d8 Head {h00=0x0016, h01=0x0050, text=» RF(E) ENDBL0 YES!«, t00=0x0142, t01=0x00ea}
0x1f7d8…1f7e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x0104}
0x1f7e2…1f812 Head {h00=0x002c, h01=0x0050, text=» CCK A8,'AA' START OF APPL. DEF. BLOCK? «, t00=0x0142, t01=0x010e}
0x1f812…1f840 Head {h00=0x002a, h01=0x0050, text=» RF(NE) ENDBL2 NO! NOT END OF D-BLOCK «, t00=0x0142, t01=0x013e}
0x1f840…1f84a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x016c}
0x1f84a…1f85e Head {h00=0x0010, h01=0x0050, text=»ENDBL0 EQU *«, t00=0x0142, t01=0x0176}
0x1f85e…1f88a Head {h00=0x0028, h01=0x0050, text=» SUR A8,A8 SET END OF D-BLOCK COND. «, t00=0x0142, t01=0x018a}
0x1f88a…1f89e Head {h00=0x0010, h01=0x0050, text=»ENDBL2 EQU *«, t00=0x0143, t01=0x0026}
0x1f89e…1f8ae Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0143, t01=0x003a}
0x1f8ae…1f8ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0143, t01=0x004a}
0x1f8ba…1f8c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0143, t01=0x0056}
0x1f8c8…1f8fe Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0143, t01=0x0064}
0x1f8fe…1f934 Head {h00=0x0032, h01=0x0050, text=»* I:CHSZ - INIT CHANNEL PARAMETERS SALCUZ * «, t00=0x0143, t01=0x009a}
0x1f934…1f96a Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0143, t01=0x00d0}
0x1f96a…1f974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x0106}
0x1f974…1f994 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0143, t01=0x0110}
0x1f994…1f99e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x0130}
0x1f99e…1f9ce Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0143, t01=0x013a}
0x1f9ce…1f9fa Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0143, t01=0x016a}
0x1f9fa…1fa28 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0144, t01=0x0008}
0x1fa28…1fa32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x0036}
0x1fa32…1fa60 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0144, t01=0x0040}
0x1fa60…1fa8e Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0144, t01=0x006e}
0x1fa8e…1fac0 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0144, t01=0x009c}
0x1fac0…1faee Head {h00=0x002a, h01=0x0050, text=»* BITS 4 -11 LINE NUMBER«, t00=0x0144, t01=0x00ce}
0x1faee…1fb08 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0144, t01=0x00fc}
0x1fb08…1fb12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x0116}
0x1fb12…1fb2a Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0144, t01=0x0120}
0x1fb2a…1fb34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x0138}
0x1fb34…1fb48 Head {h00=0x0010, h01=0x0050, text=»I:CHSZ EQU *«, t00=0x0144, t01=0x0142}
0x1fb48…1fb5e Head {h00=0x0012, h01=0x0050, text=» IFF SALCUZ=0 «, t00=0x0144, t01=0x0156}
0x1fb5e…1fb86 Head {h00=0x0024, h01=0x0050, text=» CWK A6,8 CONNECTION NUMBER <=8?«, t00=0x0144, t01=0x016c}
0x1fb86…1fba0 (325, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0145, t01=0x0004}
0x1fba0…1fbc8 Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x0145, t01=0x001e}
0x1fbc8…1fbe2 Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0145, t01=0x0046}
0x1fbe2…1fc12 Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x0145, t01=0x0060}
0x1fc12…1fc46 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0145, t01=0x0090}
0x1fc46…1fc6e Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x0145, t01=0x00c4}
0x1fc6e…1fca2 Head {h00=0x0030, h01=0x0050, text=» LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER«, t00=0x0145, t01=0x00ec}
0x1fca2…1fcc8 Head {h00=0x0022, h01=0x0050, text=» SLL A3,4 MOVE TO BITS 4 - 11 «, t00=0x0145, t01=0x0120}
0x1fcc8…1fcf4 Head {h00=0x0028, h01=0x0050, text=» ADK A3,2 ADD CONNECTION TYPE SALCUZ«, t00=0x0145, t01=0x0146}
0x1fcf4…1fd26 Head {h00=0x002e, h01=0x0050, text=» ADKL A6,/0200 ADD CONNECTION TYPE SALCUZ «, t00=0x0145, t01=0x0172}
0x1fd26…1fd3e Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0146, t01=0x0014}
0x1fd3e…1fd4a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0146, t01=0x002c}
0x1fd4a…1fd60 Head {h00=0x0012, h01=0x0050, text=» IFT SALCUZ=0 «, t00=0x0146, t01=0x0038}
0x1fd60…1fd76 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0146, t01=0x004e}
0x1fd76…1fd8a Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0146, t01=0x0064}
0x1fd8a…1fd96 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0146, t01=0x0078}
0x1fd96…1fda4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0146, t01=0x0084}
0x1fda4…1fde2 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0146, t01=0x0092}
0x1fde2…1fe18 Head {h00=0x0032, h01=0x0050, text=»* I:CHAZ - INIT CHANNEL PARAMETERS ASCU4Z * «, t00=0x0146, t01=0x00d0}
0x1fe18…1fe56 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0146, t01=0x0106}
0x1fe56…1fe60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x0144}
0x1fe60…1fe80 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0146, t01=0x014e}
0x1fe80…1fe8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x016e}
0x1fe8a…1feba Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0146, t01=0x0178}
0x1feba…1fee6 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0147, t01=0x0018}
0x1fee6…1ff12 Head {h00=0x0028, h01=0x0050, text=»* A4 - LINE CONNECTION TYPE«, t00=0x0147, t01=0x0044}
0x1ff12…1ff40 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0147, t01=0x0070}
0x1ff40…1ff4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x009e}
0x1ff4a…1ff78 Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x0147, t01=0x00a8}
0x1ff78…1ffa6 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x0147, t01=0x00d6}
0x1ffa6…1ffd8 Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0147, t01=0x0104}
0x1ffd8…20006 Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x0147, t01=0x0136}
0x20006…20010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x0164}
0x20010…2002a Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0147, t01=0x016e}
0x2002a…20034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x0188}
0x20034…2004c (328, 0, 398) Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0148, t01=0x0004}
0x2004c…20056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x001c}
0x20056…2006a Head {h00=0x0010, h01=0x0050, text=»I:CHAZ EQU *«, t00=0x0148, t01=0x0026}
0x2006a…20080 Head {h00=0x0012, h01=0x0050, text=» IFF ASCU4Z=0 «, t00=0x0148, t01=0x003a}
0x20080…200aa Head {h00=0x0026, h01=0x0050, text=» CWK A6,32 CONNECTION NUMBER <=32?«, t00=0x0148, t01=0x0050}
0x200aa…200c4 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0148, t01=0x007a}
0x200c4…200ec Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x0148, t01=0x0094}
0x200ec…20106 Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0148, t01=0x00bc}
0x20106…20136 Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x0148, t01=0x00d6}
0x20136…2016a Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0148, t01=0x0106}
0x2016a…20192 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x0148, t01=0x013a}
0x20192…201c6 Head {h00=0x0030, h01=0x0050, text=» LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER«, t00=0x0148, t01=0x0162}
0x201c6…201e6 Head {h00=0x001c, h01=0x0050, text=» ANK A3,3 GET BITS 14-15«, t00=0x0149, t01=0x0008}
0x201e6…20210 Head {h00=0x0026, h01=0x0050, text=» SLL A3,8 MOVE TO BITS TO BITS 6-7«, t00=0x0149, t01=0x0028}
0x20210…2023a Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0149, t01=0x0052}
0x2023a…20270 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0149, t01=0x007c}
0x20270…20282 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0149, t01=0x00b2}
0x20282…202b2 Head {h00=0x002c, h01=0x0050, text=» ANK A6,/1C GET BITS 11-13 BOARD NUMBER «, t00=0x0149, t01=0x00c4}
0x202b2…202d6 Head {h00=0x0020, h01=0x0050, text=» SRL A6,2 MOVE TO BITS 12-15«, t00=0x0149, t01=0x00f4}
0x202d6…20302 Head {h00=0x0028, h01=0x0050, text=» ADK A3,3 ADD CONNECTION TYPE ASCU4Z«, t00=0x0149, t01=0x0118}
0x20302…20334 Head {h00=0x002e, h01=0x0050, text=» ADKL A6,/0300 ADD CONNECTION TYPE ASCU4Z «, t00=0x0149, t01=0x0144}
0x20334…20344 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0149, t01=0x0176}
0x20344…20350 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0149, t01=0x0186}
0x20350…20366 (330, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT ASCU4Z=0 «, t00=0x014a, t01=0x0004}
0x20366…2037c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x014a, t01=0x001a}
0x2037c…20390 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x014a, t01=0x0030}
0x20390…2039c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014a, t01=0x0044}
0x2039c…203aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x014a, t01=0x0050}
0x203aa…203e8 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x014a, t01=0x005e}
0x203e8…2041e Head {h00=0x0032, h01=0x0050, text=»* I:CHAZ - INIT CHANNEL PARAMETERS VCCU1/4 *«, t00=0x014a, t01=0x009c}
0x2041e…2045c Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x014a, t01=0x00d2}
0x2045c…20466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x0110}
0x20466…20486 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x014a, t01=0x011a}
0x20486…20490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x013a}
0x20490…204c0 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x014a, t01=0x0144}
0x204c0…204ec Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x014a, t01=0x0174}
0x204ec…20518 Head {h00=0x0028, h01=0x0050, text=»* A4 - LINE CONNECTION TYPE«, t00=0x014b, t01=0x0010}
0x20518…20546 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x014b, t01=0x003c}
0x20546…20550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x006a}
0x20550…2057e Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x014b, t01=0x0074}
0x2057e…205ac Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x014b, t01=0x00a2}
0x205ac…205de Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x014b, t01=0x00d0}
0x205de…2060c Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x014b, t01=0x0102}
0x2060c…20616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x0130}
0x20616…20630 Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x014b, t01=0x013a}
0x20630…2063a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x0154}
0x2063a…20652 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x014b, t01=0x015e}
0x20652…2065c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x0176}
0x2065c…20670 Head {h00=0x0010, h01=0x0050, text=»I:CHVC EQU *«, t00=0x014b, t01=0x0180}
0x20670…20684 (332, 0, 400) Head {h00=0x0010, h01=0x0050, text=» IFF VIDEO=0«, t00=0x014c, t01=0x0004}
0x20684…206ae Head {h00=0x0026, h01=0x0050, text=» CWK A6,32 CONNECTION NUMBER <=32?«, t00=0x014c, t01=0x0018}
0x206ae…206c8 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x014c, t01=0x0042}
0x206c8…206f0 Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x014c, t01=0x005c}
0x206f0…2070a Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x014c, t01=0x0084}
0x2070a…2073a Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x014c, t01=0x009e}
0x2073a…2076e Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x014c, t01=0x00ce}
0x2076e…20796 Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x014c, t01=0x0102}
0x20796…207ca Head {h00=0x0030, h01=0x0050, text=» LDR A3,A6 GET MODIFY LINE CONNECTION NUMBER«, t00=0x014c, t01=0x012a}
0x207ca…207ea Head {h00=0x001c, h01=0x0050, text=» ANK A3,3 GET BITS 14-15«, t00=0x014c, t01=0x015e}
0x207ea…20814 Head {h00=0x0026, h01=0x0050, text=» SLL A3,8 MOVE TO BITS TO BITS 6-7«, t00=0x014c, t01=0x017e}
0x20814…2083e Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x014d, t01=0x0018}
0x2083e…20874 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x014d, t01=0x0042}
0x20874…20886 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x014d, t01=0x0078}
0x20886…208b6 Head {h00=0x002c, h01=0x0050, text=» ANK A6,/1C GET BITS 11-13 BOARD NUMBER «, t00=0x014d, t01=0x008a}
0x208b6…208da Head {h00=0x0020, h01=0x0050, text=» SRL A6,2 MOVE TO BITS 12-15«, t00=0x014d, t01=0x00ba}
0x208da…20908 Head {h00=0x002a, h01=0x0050, text=» ADK A3,7 ADD CONNECTION TYPE VCCU1/4 «, t00=0x014d, t01=0x00de}
0x20908…2093a Head {h00=0x002e, h01=0x0050, text=» ADKL A6,/0700 ADD CONNECTION TYPE VCCU1/4«, t00=0x014d, t01=0x010c}
0x2093a…2094a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x014d, t01=0x013e}
0x2094a…20956 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014d, t01=0x014e}
0x20956…2096a Head {h00=0x0010, h01=0x0050, text=» IFT VIDEO=0«, t00=0x014d, t01=0x015a}
0x2096a…20980 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x014d, t01=0x016e}
0x20980…20994 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x014d, t01=0x0184}
0x20994…209a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014e, t01=0x0008}
0x209a0…209ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x014e, t01=0x0014}
0x209ae…209e0 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x014e, t01=0x0022}
0x209e0…20a12 Head {h00=0x002e, h01=0x0050, text=»* I:CHPC - INIT CHANNEL PARAMETERS PLC *«, t00=0x014e, t01=0x0054}
0x20a12…20a44 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x014e, t01=0x0086}
0x20a44…20a4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x00b8}
0x20a4e…20a6e Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x014e, t01=0x00c2}
0x20a6e…20a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x00e2}
0x20a78…20aa8 Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x014e, t01=0x00ec}
0x20aa8…20ad4 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x014e, t01=0x011c}
0x20ad4…20b02 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x014e, t01=0x0148}
0x20b02…20b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x0176}
0x20b0c…20b3a Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETER - 1 «, t00=0x014e, t01=0x0180}
0x20b3a…20b68 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETER - 2 «, t00=0x014f, t01=0x001e}
0x20b68…20b9a Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x014f, t01=0x004c}
0x20b9a…20bc8 Head {h00=0x002a, h01=0x0050, text=»* BITS 4 -11 LINE NUMBER«, t00=0x014f, t01=0x007e}
0x20bc8…20bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x00ac}
0x20bd2…20bec Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x014f, t01=0x00b6}
0x20bec…20c04 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x014f, t01=0x00d0}
0x20c04…20c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x00e8}
0x20c0e…20c22 Head {h00=0x0010, h01=0x0050, text=»I:CHPC EQU *«, t00=0x014f, t01=0x00f2}
0x20c22…20c36 Head {h00=0x0010, h01=0x0050, text=» IFF PLCL=0 «, t00=0x014f, t01=0x0106}
0x20c36…20c62 Head {h00=0x0028, h01=0x0050, text=» CWK A6,128 CONNECTION NUMBER <=128?«, t00=0x014f, t01=0x011a}
0x20c62…20c7c Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x014f, t01=0x0146}
0x20c7c…20ca4 Head {h00=0x0024, h01=0x0050, text=» CWK A6,1 CONNECTION NUMBER >=1?«, t00=0x014f, t01=0x0160}
0x20ca4…20cbe Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x014f, t01=0x0188}
0x20cbe…20cd0 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0150, t01=0x0012}
0x20cd0…20d04 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0150, t01=0x0024}
0x20d04…20d2c Head {h00=0x0024, h01=0x0050, text=» ANK A5,/3F CLEAR BITS TO MODIFY«, t00=0x0150, t01=0x0058}
0x20d2c…20d5a Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x0150, t01=0x0080}
0x20d5a…20d7e Head {h00=0x0020, h01=0x0050, text=» ANK A3,/1F GET BITS 11 - 15«, t00=0x0150, t01=0x00ae}
0x20d7e…20d90 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0150, t01=0x00d2}
0x20d90…20db4 Head {h00=0x0020, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 2 - 7«, t00=0x0150, t01=0x00e4}
0x20db4…20dde Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0150, t01=0x0108}
0x20dde…20e0c Head {h00=0x002a, h01=0x0050, text=» LDR A3,A6 GET LINE CONNECTION NUMBER «, t00=0x0150, t01=0x0132}
0x20e0c…20e1e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0150, t01=0x0160}
0x20e1e…20e44 Head {h00=0x0022, h01=0x0050, text=» SLL A3,4 MOVE TO BITS 4 - 11 «, t00=0x0150, t01=0x0172}
0x20e44…20e6e Head {h00=0x0026, h01=0x0050, text=» ADK A3,5 ADD CONNECTION TYPE PLC «, t00=0x0151, t01=0x0008}
0x20e6e…20e9e Head {h00=0x002c, h01=0x0050, text=» ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER«, t00=0x0151, t01=0x0032}
0x20e9e…20ec4 Head {h00=0x0022, h01=0x0050, text=» SRL A6,5 MOVE TO BITS 12 - 15«, t00=0x0151, t01=0x0062}
0x20ec4…20ef2 Head {h00=0x002a, h01=0x0050, text=» ADKL A6,/0500 ADD CONNECTION TYPE PLC«, t00=0x0151, t01=0x0088}
0x20ef2…20f02 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0151, t01=0x00b6}
0x20f02…20f0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0151, t01=0x00c6}
0x20f0e…20f22 Head {h00=0x0010, h01=0x0050, text=» IFT PLCL=0 «, t00=0x0151, t01=0x00d2}
0x20f22…20f38 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0151, t01=0x00e6}
0x20f38…20f4c Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0151, t01=0x00fc}
0x20f4c…20f58 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0151, t01=0x0110}
0x20f58…20f66 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0151, t01=0x011c}
0x20f66…20f94 Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x0151, t01=0x012a}
0x20f94…20fc6 Head {h00=0x002e, h01=0x0050, text=»* I:CHLT - INIT CHANNEL PARAMETERS LT * «, t00=0x0151, t01=0x0158}
0x20fc6…20ff4 Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x0151, t01=0x018a}
0x20ff4…20ffe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0152, t01=0x0028}
0x20ffe…2101e Head {h00=0x001c, h01=0x0018, text=»* REFERENCED IN: DWTGEN«, t00=0x0152, t01=0x0032}
0x2101e…21028 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0152, t01=0x0052}
0x21028…21058 Head {h00=0x002c, h01=0x0028, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0152, t01=0x005c}
0x21058…21084 Head {h00=0x0028, h01=0x0023, text=»* A2 - POINTER TO REAL DWT «, t00=0x0152, t01=0x008c}
0x21084…210b2 Head {h00=0x002a, h01=0x0026, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0152, t01=0x00b8}
0x210b2…210bc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0152, t01=0x00e6}
0x210bc…210ea Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETERS -1 «, t00=0x0152, t01=0x00f0}
0x210ea…21118 Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETERS -2 «, t00=0x0152, t01=0x011e}
0x21118…2114a Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0152, t01=0x014c}
0x2114a…21178 Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x0152, t01=0x017e}
0x21178…21182 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0153, t01=0x001c}
0x21182…2119c Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0153, t01=0x0026}
0x2119c…211a6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0153, t01=0x0040}
0x211a6…211be Head {h00=0x0014, h01=0x000f, text=»* SUBROUTINES: «, t00=0x0153, t01=0x004a}
0x211be…211c8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0153, t01=0x0062}
0x211c8…211d6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0153, t01=0x006c}
0x211d6…211ea Head {h00=0x0010, h01=0x0050, text=»I:CHLT EQU *«, t00=0x0153, t01=0x007a}
0x211ea…211fe Head {h00=0x0010, h01=0x0050, text=» IFF SUML=0 «, t00=0x0153, t01=0x008e}
0x211fe…2122c Head {h00=0x002a, h01=0x0050, text=» CWK A6,0032 CONNECTION NUMBER <= 32? «, t00=0x0153, t01=0x00a2}
0x2122c…21246 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0153, t01=0x00d0}
0x21246…21272 Head {h00=0x0028, h01=0x0050, text=» CWK A6,0001 CONNECTION NUMBER >=01?«, t00=0x0153, t01=0x00ea}
0x21272…2128c Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0153, t01=0x0116}
0x2128c…212bc Head {h00=0x002c, h01=0x0027, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x0153, t01=0x0130}
0x212bc…212f0 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0153, t01=0x0160}
0x212f0…2131c (340, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ANKL A5,/003F CLEAR BITS TO MODIFY «, t00=0x0154, t01=0x0004}
0x2131c…21352 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0154, t01=0x0030}
0x21352…21372 Head {h00=0x001c, h01=0x0050, text=» ANK A3,7 GET BITS 13-15«, t00=0x0154, t01=0x0066}
0x21372…21394 Head {h00=0x001e, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 5-7«, t00=0x0154, t01=0x0086}
0x21394…213be Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0154, t01=0x00a8}
0x213be…213f4 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0154, t01=0x00d2}
0x213f4…21406 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0154, t01=0x0108}
0x21406…21428 Head {h00=0x001e, h01=0x0050, text=» ANK A6,/18 GET BITS 11-12«, t00=0x0154, t01=0x011a}
0x21428…2144c Head {h00=0x0020, h01=0x0050, text=» SRL A6,3 MOVE TO BITS 14-15«, t00=0x0154, t01=0x013c}
0x2144c…2145c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0154, t01=0x0160}
0x2145c…21468 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0154, t01=0x0170}
0x21468…2147c Head {h00=0x0010, h01=0x0050, text=» IFT SUML=0 «, t00=0x0154, t01=0x017c}
0x2147c…21492 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x0154, t01=0x0190}
0x21492…214a6 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0155, t01=0x0016}
0x214a6…214b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0155, t01=0x002a}
0x214b2…214c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0155, t01=0x0036}
0x214c0…214f2 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0155, t01=0x0044}
0x214f2…21524 Head {h00=0x002e, h01=0x0050, text=»* I:CHRT - INIT CHANNEL PARAMETERS RT * «, t00=0x0155, t01=0x0076}
0x21524…21556 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0155, t01=0x00a8}
0x21556…21560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x00da}
0x21560…21580 Head {h00=0x001c, h01=0x0050, text=»* REFERENCED IN: DWTGEN«, t00=0x0155, t01=0x00e4}
0x21580…2158a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x0104}
0x2158a…215ba Head {h00=0x002c, h01=0x0050, text=»* ENTRY: A1 - POINTER TO PROTOTYPE DWT«, t00=0x0155, t01=0x010e}
0x215ba…215e6 Head {h00=0x0028, h01=0x0050, text=»* A2 - POINTER TO REAL DWT «, t00=0x0155, t01=0x013e}
0x215e6…21614 Head {h00=0x002a, h01=0x0050, text=»* A6 - LINE CONNECTION NUMBER«, t00=0x0155, t01=0x016a}
0x21614…2161e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x0008}
0x2161e…2164c Head {h00=0x002a, h01=0x0050, text=»* EXIT: A6 - CHANNEL PARAMETERS - 1«, t00=0x0156, t01=0x0012}
0x2164c…2167a Head {h00=0x002a, h01=0x0050, text=»* A5 - CHANNEL PARAMETERS - 2«, t00=0x0156, t01=0x0040}
0x2167a…216ac Head {h00=0x002e, h01=0x0050, text=»* A3 - BITS 12-15 CONNECTION TYPE«, t00=0x0156, t01=0x006e}
0x216ac…216da Head {h00=0x002a, h01=0x0050, text=»* BITS 4-11 LINE NUMBER«, t00=0x0156, t01=0x00a0}
0x216da…216e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x00ce}
0x216e4…216fe Head {h00=0x0016, h01=0x0050, text=»* WORK REGISTERS:«, t00=0x0156, t01=0x00d8}
0x216fe…21708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x00f2}
0x21708…21720 Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES: «, t00=0x0156, t01=0x00fc}
0x21720…2172a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0156, t01=0x0114}
0x2172a…21738 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0156, t01=0x011e}
0x21738…2174c Head {h00=0x0010, h01=0x0050, text=»I:CHRT EQU *«, t00=0x0156, t01=0x012c}
0x2174c…21760 Head {h00=0x0010, h01=0x0050, text=» IFF SUMR=0 «, t00=0x0156, t01=0x0140}
0x21760…2178e Head {h00=0x002a, h01=0x0050, text=» CWK A6,0016 CONNECTION NUMBER <= 16? «, t00=0x0156, t01=0x0154}
0x2178e…217a8 Head {h00=0x0016, h01=0x0050, text=» RF(G) NUMERR NO! «, t00=0x0156, t01=0x0182}
0x217a8…217d4 Head {h00=0x0028, h01=0x0050, text=» CWK A6,0001 CONNECTION NUMBER >=1? «, t00=0x0157, t01=0x000c}
0x217d4…217ee Head {h00=0x0016, h01=0x0050, text=» RF(L) NUMERR NO! «, t00=0x0157, t01=0x0038}
0x217ee…2181e Head {h00=0x002c, h01=0x0050, text=» SUK A6,1 MODIFY LINE CONNECTION NUMBER «, t00=0x0157, t01=0x0052}
0x2181e…21852 Head {h00=0x0030, h01=0x0050, text=» LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT«, t00=0x0157, t01=0x0082}
0x21852…2187e Head {h00=0x0028, h01=0x0050, text=» ANKL A5,/003F CLEAR BITS TO MODIFY «, t00=0x0157, t01=0x00b6}
0x2187e…218b4 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0157, t01=0x00e2}
0x218b4…218d4 Head {h00=0x001c, h01=0x0050, text=» ANK A3,3 GET BITS 14-15«, t00=0x0157, t01=0x0118}
0x218d4…218f6 Head {h00=0x001e, h01=0x0050, text=» SLL A3,8 MOVE TO BITS 6-7«, t00=0x0157, t01=0x0138}
0x218f6…21920 Head {h00=0x0026, h01=0x0050, text=» ORR A5,A3 MERGE WITH OLD CONTENTS«, t00=0x0157, t01=0x015a}
0x21920…21956 Head {h00=0x0032, h01=0x0050, text=» LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER«, t00=0x0157, t01=0x0184}
0x21956…21968 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0158, t01=0x002a}
0x21968…21990 Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 ADD CONNECTION TYPE RT«, t00=0x0158, t01=0x003c}
0x21990…219b2 Head {h00=0x001e, h01=0x0050, text=» ANK A6,/C GET BITS 12-13 «, t00=0x0158, t01=0x0064}
0x219b2…219d6 Head {h00=0x0020, h01=0x0050, text=» SRL A6,2 MOVE TO BITS 14-15«, t00=0x0158, t01=0x0086}
0x219d6…21a04 Head {h00=0x002a, h01=0x0050, text=» ADKL A6,/0100 ADD CONNECTION TYPE RT «, t00=0x0158, t01=0x00aa}
0x21a04…21a14 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0158, t01=0x00d8}
0x21a14…21a20 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0158, t01=0x00e8}
0x21a20…21a34 Head {h00=0x0010, h01=0x0050, text=»NUMERR EQU *«, t00=0x0158, t01=0x00f4}
0x21a34…21a60 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,LMP4 INDICATE FORMAT ERROR «, t00=0x0158, t01=0x0108}
0x21a60…21a74 Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0158, t01=0x0134}
0x21a74…21a8a Head {h00=0x0012, h01=0x0050, text=» IFF TEDVCL=0 «, t00=0x0158, t01=0x0148}
0x21a8a…21a98 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0158, t01=0x015e}
0x21a98…21ace Head {h00=0x0032, h01=0x002e, text=»**********************************************«, t00=0x0158, t01=0x016c}
0x21ace…21b04 Head {h00=0x0032, h01=0x002e, text=»* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE *«, t00=0x0159, t01=0x0012}
0x21b04…21b3a Head {h00=0x0032, h01=0x002e, text=»**********************************************«, t00=0x0159, t01=0x0048}
0x21b3a…21b44 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0159, t01=0x007e}
0x21b44…21b66 Head {h00=0x001e, h01=0x0019, text=»* REFERENCED IN: DWTGEN «, t00=0x0159, t01=0x0088}
0x21b66…21b70 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0159, t01=0x00aa}
0x21b70…21b9e Head {h00=0x002a, h01=0x0026, text=»* ENTRY: SCTSFA - START OF FREE AREA«, t00=0x0159, t01=0x00b4}
0x21b9e…21ba8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0159, t01=0x00e2}
0x21ba8…21bd8 Head {h00=0x002c, h01=0x0050, text=»* EXIT: REAL TIME INTERRUPT TABLES FOR«, t00=0x0159, t01=0x00ec}
0x21bd8…21c0e Head {h00=0x0032, h01=0x0050, text=»* LT,RT,PLC,VCCU1/4,SALCUZ AND ASCU4Z «, t00=0x0159, t01=0x011c}
0x21c0e…21c18 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0159, t01=0x0152}
0x21c18…21c2e Head {h00=0x0012, h01=0x000e, text=»* SUBROUTINES«, t00=0x0159, t01=0x015c}
0x21c2e…21c38 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0159, t01=0x0172}
0x21c38…21c46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0159, t01=0x017c}
0x21c46…21c7c Head {h00=0x0032, h01=0x0050, text=»B:ITAB EQU * BUILD REAL-TIME INTERRUPT TABLES «, t00=0x0159, t01=0x018a}
0x21c7c…21c86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x0030}
0x21c86…21cb8 Head {h00=0x002e, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR LT «, t00=0x015a, t01=0x003a}
0x21cb8…21cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x006c}
0x21cc2…21cce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x015a, t01=0x0076}
0x21cce…21ce2 Head {h00=0x0010, h01=0x0050, text=»B:ITLT EQU *«, t00=0x015a, t01=0x0082}
0x21ce2…21cf6 Head {h00=0x0010, h01=0x0050, text=» IFF SUML=0 «, t00=0x015a, t01=0x0096}
0x21cf6…21d1e Head {h00=0x0024, h01=0x0050, text=» LDKL A8,0 CONNECTION TYPE = LT «, t00=0x015a, t01=0x00aa}
0x21d1e…21d3c Head {h00=0x001a, h01=0x0050, text=» LDKL A9,7 1:ST BOARD «, t00=0x015a, t01=0x00d2}
0x21d3c…21d6e Head {h00=0x002e, h01=0x0050, text=» LDK A1,16 MAX.LENGTH OF BOARD CONF. TABLE«, t00=0x015a, t01=0x00f0}
0x21d6e…21d8e Head {h00=0x001c, h01=0x0050, text=» ST A1,STKEND+WRK4 SAVE «, t00=0x015a, t01=0x0122}
0x21d8e…21dac Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x015a, t01=0x0142}
0x21dac…21dca Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x015a, t01=0x0160}
0x21dca…21de8 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x015a, t01=0x017e}
0x21de8…21dfc Head {h00=0x0010, h01=0x0050, text=»BIT10 EQU * «, t00=0x015b, t01=0x000c}
0x21dfc…21e10 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x015b, t01=0x0020}
0x21e10…21e24 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x015b, t01=0x0034}
0x21e24…21e52 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x015b, t01=0x0048}
0x21e52…21e78 Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x015b, t01=0x0076}
0x21e78…21e90 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BIT15 NO!«, t00=0x015b, t01=0x009c}
0x21e90…21eae Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x015b, t01=0x00b4}
0x21eae…21eec Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x015b, t01=0x00d2}
0x21eec…21f0a Head {h00=0x001a, h01=0x0050, text=» ST A2,INTLT1,A1 SAVE «, t00=0x015b, t01=0x0110}
0x21f0a…21f1e Head {h00=0x0010, h01=0x0050, text=»BIT15 EQU * «, t00=0x015b, t01=0x012e}
0x21f1e…21f30 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x015b, t01=0x0142}
0x21f30…21f5a Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x015b, t01=0x0154}
0x21f5a…21f6c Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x015b, t01=0x017e}
0x21f6c…21f8c Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+WRK1 STORE«, t00=0x015b, t01=0x0190}
0x21f8c…21faa Head {h00=0x001a, h01=0x0050, text=» ADKL A9,7 NEXT BOARD «, t00=0x015c, t01=0x0020}
0x21faa…21fc8 Head {h00=0x001a, h01=0x0050, text=» CWK A9,31 LAST BOARD?«, t00=0x015c, t01=0x003e}
0x21fc8…21fe2 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITRT YES!«, t00=0x015c, t01=0x005c}
0x21fe2…21ff4 Head {h00=0x000e, h01=0x0050, text=» RB BIT10 «, t00=0x015c, t01=0x0076}
0x21ff4…22000 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x015c, t01=0x0088}
0x22000…2200e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015c, t01=0x0094}
0x2200e…22018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x00a2}
0x22018…2204a Head {h00=0x002e, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR RT «, t00=0x015c, t01=0x00ac}
0x2204a…22054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x00de}
0x22054…22068 Head {h00=0x0010, h01=0x0050, text=»B:ITRT EQU *«, t00=0x015c, t01=0x00e8}
0x22068…2207c Head {h00=0x0010, h01=0x0050, text=» IFF SUMR=0 «, t00=0x015c, t01=0x00fc}
0x2207c…220a4 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,1 CONNECTION TYPE = RT «, t00=0x015c, t01=0x0110}
0x220a4…220c2 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,3 1:ST BOARD «, t00=0x015c, t01=0x0138}
0x220c2…220f4 Head {h00=0x002e, h01=0x0050, text=» LDK A1,8 MAX.LENGTH OF BOARD CONF. TABLE «, t00=0x015c, t01=0x0156}
0x220f4…22114 Head {h00=0x001c, h01=0x0050, text=» ST A1,STKEND+WRK4 SAVE «, t00=0x015c, t01=0x0188}
0x22114…22132 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x015d, t01=0x0018}
0x22132…22150 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x015d, t01=0x0036}
0x22150…2216e Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x015d, t01=0x0054}
0x2216e…22182 Head {h00=0x0010, h01=0x0050, text=»BRT10 EQU * «, t00=0x015d, t01=0x0072}
0x22182…22196 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x015d, t01=0x0086}
0x22196…221aa Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x015d, t01=0x009a}
0x221aa…221d8 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x015d, t01=0x00ae}
0x221d8…221fe Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x015d, t01=0x00dc}
0x221fe…22216 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BRT15 NO!«, t00=0x015d, t01=0x0102}
0x22216…22234 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x015d, t01=0x011a}
0x22234…22272 Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x015d, t01=0x0138}
0x22272…22290 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTRT1,A1 SAVE «, t00=0x015d, t01=0x0176}
0x22290…222a4 (350, 0, 400) Head {h00=0x0010, h01=0x0050, text=»BRT15 EQU * «, t00=0x015e, t01=0x0004}
0x222a4…222b6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x015e, t01=0x0018}
0x222b6…222e0 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x015e, t01=0x002a}
0x222e0…222f2 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x015e, t01=0x0054}
0x222f2…22312 Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+WRK1 STORE«, t00=0x015e, t01=0x0066}
0x22312…22330 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,3 NEXT BOARD «, t00=0x015e, t01=0x0086}
0x22330…2234e Head {h00=0x001a, h01=0x0050, text=» CWK A9,15 LAST BOARD?«, t00=0x015e, t01=0x00a4}
0x2234e…22368 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITPC YES!«, t00=0x015e, t01=0x00c2}
0x22368…2237a Head {h00=0x000e, h01=0x0050, text=» RB BRT10 «, t00=0x015e, t01=0x00dc}
0x2237a…22386 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x015e, t01=0x00ee}
0x22386…22394 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015e, t01=0x00fa}
0x22394…2239e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x0108}
0x2239e…223d0 Head {h00=0x002e, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR PLC«, t00=0x015e, t01=0x0112}
0x223d0…223da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x0144}
0x223da…223ee Head {h00=0x0010, h01=0x0050, text=»B:ITPC EQU *«, t00=0x015e, t01=0x014e}
0x223ee…22402 Head {h00=0x0010, h01=0x0050, text=» IFF PLCL=0 «, t00=0x015e, t01=0x0162}
0x22402…2242a Head {h00=0x0024, h01=0x0050, text=» LDKL A8,5 CONNECTION TYPE = PLC«, t00=0x015e, t01=0x0176}
0x2242a…22448 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,32 1:ST BOARD«, t00=0x015f, t01=0x000e}
0x22448…2247c Head {h00=0x0030, h01=0x0050, text=» LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2«, t00=0x015f, t01=0x002c}
0x2247c…22496 Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x015f, t01=0x0060}
0x22496…224ac Head {h00=0x0012, h01=0x0050, text=» LDK A1,1 =2 «, t00=0x015f, t01=0x007a}
0x224ac…224ca Head {h00=0x001a, h01=0x0050, text=» ST A1,STKEND+WRK1 =2«, t00=0x015f, t01=0x0090}
0x224ca…224e8 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x015f, t01=0x00ae}
0x224e8…22506 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x015f, t01=0x00cc}
0x22506…2251a Head {h00=0x0010, h01=0x0050, text=»BPC10 EQU * «, t00=0x015f, t01=0x00ea}
0x2251a…2252e Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x015f, t01=0x00fe}
0x2252e…22542 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x015f, t01=0x0112}
0x22542…22570 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x015f, t01=0x0126}
0x22570…22596 Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x015f, t01=0x0154}
0x22596…225ae Head {h00=0x0014, h01=0x0050, text=» RF(Z) BPC15 NO!«, t00=0x015f, t01=0x017a}
0x225ae…225c6 (352, 0, 398) Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x0160, t01=0x0004}
0x225c6…2260c Head {h00=0x0042, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE «, t00=0x0160, t01=0x001c}
0x2260c…2262a Head {h00=0x001a, h01=0x0050, text=» ST A2,INTPL1,A1 SAVE «, t00=0x0160, t01=0x0062}
0x2262a…2263e Head {h00=0x0010, h01=0x0050, text=»BPC15 EQU * «, t00=0x0160, t01=0x0080}
0x2263e…22650 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0160, t01=0x0094}
0x22650…2267a Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0160, t01=0x00a6}
0x2267a…2268c Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0160, t01=0x00d0}
0x2268c…226a6 Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x0160, t01=0x00e2}
0x226a6…226c4 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,31 NEXT BOARD«, t00=0x0160, t01=0x00fc}
0x226c4…226e4 Head {h00=0x001c, h01=0x0050, text=» CWK A9,128 LAST BOARD? «, t00=0x0160, t01=0x011a}
0x226e4…226fe Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITVU YES!«, t00=0x0160, t01=0x013a}
0x226fe…22710 Head {h00=0x000e, h01=0x0050, text=» RB BPC10 «, t00=0x0160, t01=0x0154}
0x22710…2271c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0160, t01=0x0166}
0x2271c…2272a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0160, t01=0x0172}
0x2272a…22732 Head {h00=0x0004, h01=0x0050, t00=0x0160, t01=0x0180}
0x22732…2273c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0160, t01=0x0188}
0x2273c…22772 (353, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR VCCU1/4«, t00=0x0161, t01=0x0004}
0x22772…2277c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0161, t01=0x003a}
0x2277c…22790 Head {h00=0x0010, h01=0x0050, text=»B:ITVU EQU *«, t00=0x0161, t01=0x0044}
0x22790…227a4 Head {h00=0x0010, h01=0x0050, text=» IFF VIDEO=0«, t00=0x0161, t01=0x0058}
0x227a4…227d0 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,7 CONNECTION TYPE = VCCU1/4«, t00=0x0161, t01=0x006c}
0x227d0…227ee Head {h00=0x001a, h01=0x0050, text=» LDKL A9,3 1:ST BOARD «, t00=0x0161, t01=0x0098}
0x227ee…22820 Head {h00=0x002e, h01=0x0050, text=» LDK A1,8 MAX.LENGTH OF BOARD CONF. TABLE «, t00=0x0161, t01=0x00b6}
0x22820…22840 Head {h00=0x001c, h01=0x0050, text=» ST A1,STKEND+WRK4 SAVE «, t00=0x0161, t01=0x00e8}
0x22840…2285e Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0161, t01=0x0108}
0x2285e…2287c Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0161, t01=0x0126}
0x2287c…2289a Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0161, t01=0x0144}
0x2289a…228ae Head {h00=0x0010, h01=0x0050, text=»BVU10 EQU * «, t00=0x0161, t01=0x0162}
0x228ae…228c2 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0161, t01=0x0176}
0x228c2…228d6 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0161, t01=0x018a}
0x228d6…22904 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0162, t01=0x000e}
0x22904…2292a Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x0162, t01=0x003c}
0x2292a…22942 Head {h00=0x0014, h01=0x0050, text=» RF(Z) BVU15 NO!«, t00=0x0162, t01=0x0062}
0x22942…22960 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0162, t01=0x007a}
0x22960…2299e Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x0162, t01=0x0098}
0x2299e…229bc Head {h00=0x001a, h01=0x0050, text=» ST A2,INTVU1,A1 SAVE «, t00=0x0162, t01=0x00d6}
0x229bc…229d0 Head {h00=0x0010, h01=0x0050, text=»BVU15 EQU * «, t00=0x0162, t01=0x00f4}
0x229d0…229e2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0162, t01=0x0108}
0x229e2…22a0c Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0162, t01=0x011a}
0x22a0c…22a1e Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0162, t01=0x0144}
0x22a1e…22a3e Head {h00=0x001c, h01=0x0050, text=» ST A9,STKEND+WRK1 STORE«, t00=0x0162, t01=0x0156}
0x22a3e…22a5c Head {h00=0x001a, h01=0x0050, text=» ADKL A9,3 NEXT BOARD «, t00=0x0162, t01=0x0176}
0x22a5c…22a7a (355, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CWK A9,31 LAST BOARD?«, t00=0x0163, t01=0x0004}
0x22a7a…22a94 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITSZ YES!«, t00=0x0163, t01=0x0022}
0x22a94…22aa6 Head {h00=0x000e, h01=0x0050, text=» RB BVU10 «, t00=0x0163, t01=0x003c}
0x22aa6…22ab2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0163, t01=0x004e}
0x22ab2…22aba Head {h00=0x0004, h01=0x0050, t00=0x0163, t01=0x005a}
0x22aba…22ac8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0163, t01=0x0062}
0x22ac8…22ad2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0163, t01=0x0070}
0x22ad2…22b08 Head {h00=0x0032, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR SALCUZ «, t00=0x0163, t01=0x007a}
0x22b08…22b12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0163, t01=0x00b0}
0x22b12…22b26 Head {h00=0x0010, h01=0x0050, text=»B:ITSZ EQU *«, t00=0x0163, t01=0x00ba}
0x22b26…22b3c Head {h00=0x0012, h01=0x0050, text=» IFF SALCUZ=0 «, t00=0x0163, t01=0x00ce}
0x22b3c…22b68 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,2 CONNECTION TYPE = SALCUZ «, t00=0x0163, t01=0x00e4}
0x22b68…22b86 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,0 1:ST BOARD «, t00=0x0163, t01=0x0110}
0x22b86…22bb8 Head {h00=0x002e, h01=0x0050, text=» LDK A1,2 MAX. LENGTH OF BOARD CONF.TABLE «, t00=0x0163, t01=0x012e}
0x22bb8…22bd2 Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x0163, t01=0x0160}
0x22bd2…22bf0 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0163, t01=0x017a}
0x22bf0…22c0e Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0164, t01=0x0008}
0x22c0e…22c2c Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0164, t01=0x0026}
0x22c2c…22c40 Head {h00=0x0010, h01=0x0050, text=»BSZ10 EQU * «, t00=0x0164, t01=0x0044}
0x22c40…22c54 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0164, t01=0x0058}
0x22c54…22c68 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0164, t01=0x006c}
0x22c68…22c96 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0164, t01=0x0080}
0x22c96…22cbc Head {h00=0x0022, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES? «, t00=0x0164, t01=0x00ae}
0x22cbc…22cd0 Head {h00=0x0010, h01=0x0050, text=» RF(Z) BSZ15«, t00=0x0164, t01=0x00d4}
0x22cd0…22ce8 Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x0164, t01=0x00e8}
0x22ce8…22d26 Head {h00=0x003a, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE «, t00=0x0164, t01=0x0100}
0x22d26…22d44 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTSL1,A1 SAVE «, t00=0x0164, t01=0x013e}
0x22d44…22d58 Head {h00=0x0010, h01=0x0050, text=»BSZ15 EQU * «, t00=0x0164, t01=0x015c}
0x22d58…22d6a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0164, t01=0x0170}
0x22d6a…22d94 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0164, t01=0x0182}
0x22d94…22da6 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0165, t01=0x001c}
0x22da6…22dc0 Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x0165, t01=0x002e}
0x22dc0…22dde Head {h00=0x001a, h01=0x0050, text=» CWK A9,7 LAST BOARD? «, t00=0x0165, t01=0x0048}
0x22dde…22df8 Head {h00=0x0016, h01=0x0050, text=» RF(G) B:ITAZ YES!«, t00=0x0165, t01=0x0066}
0x22df8…22e0a Head {h00=0x000e, h01=0x0050, text=» RB BSZ10 «, t00=0x0165, t01=0x0080}
0x22e0a…22e16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0165, t01=0x0092}
0x22e16…22e24 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0165, t01=0x009e}
0x22e24…22e2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x00ac}
0x22e2e…22e64 Head {h00=0x0032, h01=0x0050, text=»* BUILD REAL-TIME INTERRUPT TABLES FOR ASCU4Z «, t00=0x0165, t01=0x00b6}
0x22e64…22e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0165, t01=0x00ec}
0x22e6e…22e82 Head {h00=0x0010, h01=0x0050, text=»B:ITAZ EQU *«, t00=0x0165, t01=0x00f6}
0x22e82…22e98 Head {h00=0x0012, h01=0x0050, text=» IFF ASCU4Z=0 «, t00=0x0165, t01=0x010a}
0x22e98…22ec4 Head {h00=0x0028, h01=0x0050, text=» LDKL A8,3 CONNECTION TYPE = ASCU4Z «, t00=0x0165, t01=0x0120}
0x22ec4…22ee2 Head {h00=0x001a, h01=0x0050, text=» LDKL A9,3 1:ST BOARD «, t00=0x0165, t01=0x014c}
0x22ee2…22f14 Head {h00=0x002e, h01=0x0050, text=» LDK A1,8 MAX. LENGTH OF BOARD CONF.TABLE «, t00=0x0165, t01=0x016a}
0x22f14…22f2e Head {h00=0x0016, h01=0x0050, text=» ST A1,STKEND+WRK4«, t00=0x0166, t01=0x000c}
0x22f2e…22f4c Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK1 CLEAR «, t00=0x0166, t01=0x0026}
0x22f4c…22f6a Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK2 CLEAR «, t00=0x0166, t01=0x0044}
0x22f6a…22f88 Head {h00=0x001a, h01=0x0050, text=» CM STKEND+WRK3 CLEAR «, t00=0x0166, t01=0x0062}
0x22f88…22f9c Head {h00=0x0010, h01=0x0050, text=»BAZ10 EQU * «, t00=0x0166, t01=0x0080}
0x22f9c…22fb0 Head {h00=0x0010, h01=0x0050, text=» CALL B:BTAB«, t00=0x0166, t01=0x0094}
0x22fb0…22fc4 Head {h00=0x0010, h01=0x0050, text=» CALL B:LTAB«, t00=0x0166, t01=0x00a8}
0x22fc4…22ff2 Head {h00=0x002a, h01=0x0050, text=» LD A1,STKEND+WRK2 GET INDEX IN MONTAB«, t00=0x0166, t01=0x00bc}
0x22ff2…23016 Head {h00=0x0020, h01=0x0050, text=» LD A2,STKEND+WRK3 ANY LINES«, t00=0x0166, t01=0x00ea}
0x23016…2302a Head {h00=0x0010, h01=0x0050, text=» RF(Z) BAZ15«, t00=0x0166, t01=0x010e}
0x2302a…23042 Head {h00=0x0014, h01=0x0050, text=» CM STKEND+WRK3 «, t00=0x0166, t01=0x0122}
0x23042…23088 Head {h00=0x0042, h01=0x0050, text=» LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE «, t00=0x0166, t01=0x013a}
0x23088…230a6 Head {h00=0x001a, h01=0x0050, text=» ST A2,INTAS1,A1 SAVE «, t00=0x0166, t01=0x0180}
0x230a6…230ba Head {h00=0x0010, h01=0x0050, text=»BAZ15 EQU * «, t00=0x0167, t01=0x000e}
0x230ba…230cc Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0167, t01=0x0022}
0x230cc…230f6 Head {h00=0x0026, h01=0x0050, text=» ST A1,STKEND+WRK2 STORE NEW INDEX«, t00=0x0167, t01=0x0034}
0x230f6…23108 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0167, t01=0x005e}
0x23108…23122 Head {h00=0x0016, h01=0x0050, text=» ST A9,STKEND+WRK1«, t00=0x0167, t01=0x0070}
0x23122…23140 Head {h00=0x001a, h01=0x0050, text=» ADKL A9,3 NEXT BOARD «, t00=0x0167, t01=0x008a}
0x23140…2315e Head {h00=0x001a, h01=0x0050, text=» CWK A9,31 LAST BOARD?«, t00=0x0167, t01=0x00a8}
0x2315e…23178 Head {h00=0x0016, h01=0x0050, text=» RF(G) BAZ20 YES! «, t00=0x0167, t01=0x00c6}
0x23178…2318a Head {h00=0x000e, h01=0x0050, text=» RB BAZ10 «, t00=0x0167, t01=0x00e0}
0x2318a…2319e Head {h00=0x0010, h01=0x0050, text=»BAZ20 EQU * «, t00=0x0167, t01=0x00f2}
0x2319e…231aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0167, t01=0x0106}
0x231aa…231ba Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0167, t01=0x0112}
0x231ba…231c8 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0167, t01=0x0122}
0x231c8…231cc Head {h00=0x0054, h01=0x0050}
0x231cc…231d0 Head {h00=0x2a3d, h01=0x2a3d}
0x231d0…231e0 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d 2a 3d ┆*=*=*=*=*=*=*=*=┆
0x231e0…2322c 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 01 67 01 30 00 36 00 31 2a 20 20 20 20 20 20 20 ┆*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= g 0 6 1* ┆
0x2322c…2327c (360, 0, 400) 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 67 01 88 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 ┆ GENERAL SUBROUTINES * g T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=┆
0x2327c…232cc 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 01 68 00 32 00 04 00 03 01 68 00 8a 00 04 00 03 01 68 00 92 00 04 00 03 01 68 00 9a 00 38 ┆*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= h 2 h h h 8┆
0x232cc…2331c 00 34 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 68 00 a2 00 38 00 34 2a 20 20 20 47 45 54 54 53 4b 20 2d 20 47 45 54 20 4e ┆ 4**************************************************** h 8 4* GETTSK - GET N┆
0x2331c…2336c 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 68 00 de 00 06 00 50 2a 20 01 68 01 1a 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 ┆UMBER OF TASKS IN A TASK-CLASS * h P* h 6 P* GETCTC - GET NUMBER OF CO┆
0x2336c…233bc 4d 4d 4f 4e 20 54 45 52 4d 49 4e 41 4c 20 43 4c 41 53 53 45 53 20 01 68 01 24 00 06 00 50 2a 20 01 68 01 5e 00 38 00 34 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆MMON TERMINAL CLASSES h $ P* h ^ 8 4****************************************┆
0x233bc…2340c (361, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 68 01 68 00 06 00 03 2a 20 01 69 00 14 00 22 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 54 43 54 2c 42 3a 43 44 54 01 69 00 1e 00 06 00 03 2a 20 01 69 00 44 00 3e 00 3a 2a 20 ┆************ h h * i " P* REFERENCED IN: B:TCT,B:CDT i * i D > :* ┆
0x2340c…2345c 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 69 00 4e 00 06 00 03 2a 20 01 69 00 90 00 46 00 41 2a 20 20 45 58 49 ┆ ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK i N * i F A* EXI┆
0x2345c…234ac 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 20 28 42 49 4e 41 52 59 20 56 41 4c 55 45 29 20 01 69 00 9a 00 06 00 03 2a 20 01 69 00 e4 00 1a 00 16 2a 20 ┆T: A1 - NUMBER OF TASKS IN THE TASK CLASS (BINARY VALUE) i * i * ┆
0x234ac…234fc 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 35 01 69 00 ee 00 06 00 03 2a 20 01 69 01 0c 00 1c 00 17 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 69 01 16 00 06 00 03 2a 20 01 69 01 36 00 10 00 50 ┆ WORK REGISTERS: A5 i * i * SUBROUTINES: CONVRT i * i 6 P┆
0x234fc…2354c 47 45 54 54 53 4b 5c 45 51 55 5c 2a 01 69 01 40 00 10 00 50 47 45 54 43 54 43 5c 45 51 55 5c 2a 01 69 01 54 00 2e 00 50 47 45 54 44 54 45 5c 45 51 55 5c 2a 5c 47 45 54 20 4e 4f 20 4f 46 20 44 54 45 20 42 4c 4f 43 4b 53 20 44 45 46 49 4e 45 ┆GETTSK EQU * i @ PGETCTC EQU * i T . PGETDTE EQU * GET NO OF DTE BLOCKS DEFINE┆
0x2354c…2359c (362, 0, 400) 44 20 01 69 01 68 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 41 53 54 20 44 54 45 20 01 6a 00 0a 00 30 00 50 47 45 54 4e 53 41 5c 45 51 55 5c 2a 5c 47 45 54 20 4e 4f 20 ┆D i h . PGETCOP EQU * GET NO OF COPIES OF LAST DTE j 0 PGETNSA EQU * GET NO ┆
0x2359c…235ec 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 6a 00 3c 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 42 4e 54 2c 41 31 31 01 6a 00 70 00 0e 00 09 5c 53 4c 4c 5c 41 35 2c 38 20 01 6a 00 88 00 16 00 50 5c 4c 43 5c 41 35 ┆OF SUBADDRESSES DEFINED j < P LC A5,TDBNT,A11 j p SLL A5,8 j P LC A5┆
0x235ec…2363c 2c 54 44 42 4e 54 2b 31 2c 41 31 31 01 6a 00 9a 00 10 00 0c 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 01 6a 00 b4 00 0c 00 08 5c 52 54 4e 5c 41 31 34 01 6a 00 c8 00 0a 00 06 5c 45 4a 45 43 54 01 6a 00 d8 00 38 00 34 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆,TDBNT+1,A11 j CALL CONVRT j RTN A14 j EJECT j 8 4**********┆
0x2363c…2368c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 6a 00 e6 00 38 00 34 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 ┆****************************************** j 8 4* GETTDC - GET NUMBER OF TERM┆
0x2368c…236dc 49 4e 41 4c 20 44 45 56 49 43 45 20 43 4c 41 53 53 45 53 20 20 2a 01 6a 01 22 00 38 00 34 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆INAL DEVICE CLASSES * j " 8 4**************************************************┆
0x236dc…2372c (363, 0, 400) 2a 2a 01 6a 01 5e 00 06 00 03 2a 20 01 6b 00 0a 00 1c 00 17 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 6b 00 14 00 06 00 03 2a 20 01 6b 00 34 00 3e 00 3a 2a 20 20 45 4e 54 52 59 3a 20 20 41 31 31 20 2d 20 50 ┆** j ^ * k * REFERENCED IN: B:TT k * k 4 > :* ENTRY: A11 - P┆
0x2372c…2377c 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 6b 00 3e 00 06 00 03 2a 20 01 6b 00 80 00 44 00 40 2a 20 20 45 58 49 54 3a 20 20 20 20 41 31 20 2d 20 4e 55 4d 42 45 ┆OINTER TO START OF TASK DEFINITION BLOCK k > * k D @* EXIT: A1 - NUMBE┆
0x2377c…237cc 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 01 6b 00 8a 00 06 00 03 2a 20 01 6b 00 d2 00 1a 00 16 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 ┆R OF TERMINAL DEVICE CLASSES (BINRY VALUE) k * k * WORK REGISTERS: ┆
0x237cc…2381c 41 35 01 6b 00 dc 00 06 00 03 2a 20 01 6b 00 fa 00 1a 00 16 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 43 4f 4e 56 52 54 01 6b 01 04 00 06 00 03 2a 20 01 6b 01 22 00 10 00 50 47 45 54 54 44 43 5c 45 51 55 5c 2a 01 6b 01 2c 00 14 00 10 ┆A5 k * k * SUBROUTINES: CONVRT k * k " PGETTDC EQU * k , ┆
0x2381c…2386c 5c 4c 43 5c 41 35 2c 54 44 42 4e 43 2c 41 31 31 01 6b 01 40 00 0e 00 09 5c 53 4c 4c 5c 41 35 2c 38 20 01 6b 01 58 00 16 00 12 5c 4c 43 5c 41 35 2c 54 44 42 4e 43 2b 31 2c 41 31 31 01 6b 01 6a 00 10 00 0c 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 ┆ LC A5,TDBNC,A11 k @ SLL A5,8 k X LC A5,TDBNC+1,A11 k j CALL CONVRT┆
0x2386c…238bc (364, 0, 400) 01 6b 01 84 00 0c 00 08 5c 52 54 4e 5c 41 31 34 01 6c 00 08 00 0a 00 06 5c 45 4a 45 43 54 01 6c 00 18 00 38 00 33 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ k RTN A14 l EJECT l 8 3******************************************┆
0x238bc…2390c 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 6c 00 26 00 38 00 33 2a 20 20 47 45 54 53 44 43 20 2d 20 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 53 50 45 43 49 41 4c 20 44 45 56 49 43 45 20 43 4c 41 53 53 45 53 20 20 2a 20 01 6c 00 62 00 38 00 33 2a 2a ┆********* l & 8 3* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * l b 8 3**┆
0x2390c…2395c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 6c 00 9e 00 06 00 03 2a 20 01 6c 00 da 00 1c 00 17 2a 20 20 52 45 46 45 52 45 4e 43 45 ┆************************************************* l * l * REFERENCE┆
0x2395c…239ac 44 20 49 4e 3a 20 20 42 3a 54 54 20 01 6c 00 e4 00 06 00 03 2a 20 01 6c 01 04 00 34 00 2f 2a 20 20 45 4e 54 52 59 3a 20 20 41 39 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 4e 55 4d 42 45 52 20 4f 46 20 53 44 43 20 52 45 43 4f 52 44 20 01 6c ┆D IN: B:TT l * l 4 /* ENTRY: A9 - POINTER TO NUMBER OF SDC RECORD l┆
0x239ac…239fc 01 0e 00 06 00 03 2a 20 01 6c 01 46 00 44 00 3f 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 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 ┆ * l F D ?* EXIT: A1 - NUMBER OF SPECIAL DEVICE CLASSES (BINARY VALUE) ┆
0x239fc…23a4c (365, 0, 400) 01 6c 01 50 00 06 00 03 2a 20 01 6d 00 08 00 1a 00 15 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 41 35 20 01 6d 00 12 00 06 00 03 2a 20 01 6d 00 30 00 1c 00 17 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 43 4f 4e 56 52 ┆ l P * m * WORK REGISTERS: A5 m * m 0 * SUBROUTINES: CONVR┆
0x23a4c…23a9c 54 20 01 6d 00 3a 00 06 00 03 2a 20 01 6d 00 5a 00 10 00 50 47 45 54 53 44 43 5c 45 51 55 5c 2a 01 6d 00 64 00 0e 00 0a 5c 4c 43 52 5c 41 35 2c 41 39 01 6d 00 78 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 01 6d 00 8a 00 10 00 0b 5c 4c 43 5c ┆T m : * m Z PGETSDC EQU * m d LCR A5,A9 m x P SLL A5,8 m LC ┆
0x23a9c…23aec 41 35 2c 31 2c 41 39 20 01 6d 00 9c 00 10 00 0c 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 01 6d 00 b0 00 0c 00 08 5c 52 54 4e 5c 41 31 34 01 6d 00 c4 00 0a 00 06 5c 45 4a 45 43 54 01 6d 00 d4 00 32 00 2e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆A5,1,A9 m CALL CONVRT m RTN A14 m EJECT m 2 .**************┆
0x23aec…23b3c 2a 2a 2a 2a 2a 2a 2a 2a 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 6d 00 e2 00 32 00 2e 2a 20 20 47 45 54 43 4c 4e 20 2d 20 47 45 54 20 43 4c 41 53 53 20 49 44 45 4e 54 49 46 49 43 41 54 49 4f 4e 20 4e 55 4d ┆******************************** m 2 .* GETCLN - GET CLASS IDENTIFICATION NUM┆
0x23b3c…23b8c 42 45 52 20 20 2a 01 6d 01 18 00 32 00 2e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 6d 01 4e 00 06 00 03 2a 20 01 6d 01 84 00 1c 00 17 2a 20 ┆BER * m 2 .********************************************** m N * m * ┆
0x23b8c…23bdc (366, 0, 400) 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 42 3a 54 54 20 01 6d 01 8e 00 06 00 03 2a 20 01 6e 00 1e 00 36 00 32 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 ┆ REFERENCED IN: B:TT m * n 6 2* ENTRY: A9 - POINTER TO CLASS DEFINIT┆
0x23bdc…23c2c 49 4f 4e 20 52 45 43 4f 52 44 01 6e 00 28 00 06 00 03 2a 20 01 6e 00 62 00 3e 00 3a 2a 20 20 45 58 49 54 3a 20 20 20 41 31 20 2d 20 43 4c 41 53 53 20 49 44 45 4e 54 49 46 49 43 41 54 49 4f 4e 20 4e 55 4d 42 45 52 20 28 42 49 4e 41 52 59 20 ┆ION RECORD n ( * n b > :* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY ┆
0x23c2c…23c7c 56 41 4c 55 45 29 01 6e 00 6c 00 06 00 03 2a 20 01 6e 00 ae 00 1a 00 16 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 35 01 6e 00 b8 00 06 00 03 2a 20 01 6e 00 d6 00 1c 00 17 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 ┆VALUE) n l * n * WORK REGISTERS: A5 n * n * SUBROUTINES: ┆
0x23c7c…23ccc 20 43 4f 4e 56 52 54 20 01 6e 00 e0 00 06 00 03 2a 20 01 6e 01 00 00 10 00 50 47 45 54 43 4c 4e 5c 45 51 55 5c 2a 01 6e 01 0a 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 43 44 44 31 2c 41 39 01 6e 01 1e 00 0e 00 50 5c 53 4c 4c 5c 41 35 2c 38 20 ┆ CONVRT n * n PGETCLN EQU * n P LC A5,TDCDD1,A9 n P SLL A5,8 ┆
0x23ccc…23d1c 01 6e 01 36 00 14 00 50 5c 4c 43 5c 41 35 2c 54 44 43 44 44 32 2c 41 39 01 6e 01 48 00 10 00 50 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 01 6e 01 60 00 14 00 0f 5c 52 54 4e 5c 41 31 34 5c 52 45 54 55 52 4e 20 01 6e 01 74 00 0a 00 50 5c 45 4a 45 ┆ n 6 P LC A5,TDCDD2,A9 n H P CALL CONVRT n ` RTN A14 RETURN n t P EJE┆
0x23d1c…23d6c (367, 0, 400) 43 54 01 6e 01 8c 00 2e 00 29 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 6f 00 0a 00 2e 00 29 2a 20 20 47 45 54 4c 43 4e 20 2d 20 47 45 54 20 4c 49 4e 45 ┆CT n . )***************************************** o . )* GETLCN - GET LINE┆
0x23d6c…23dbc 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 4e 55 4d 42 45 52 20 20 2a 20 01 6f 00 3c 00 2e 00 29 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 6f 00 6e 00 06 00 02 ┆ CONNECTION NUMBER * o < . )***************************************** o n ┆
0x23dbc…23e0c 2a 20 01 6f 00 a0 00 1e 00 19 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 6f 00 aa 00 06 00 03 2a 20 01 6f 00 cc 00 38 00 33 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 ┆* o * REFERENCED IN: B:DWTT o * o 8 3* ENTRY: A9 - POINTER TO┆
0x23e0c…23e5c 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 6f 00 d6 00 06 00 03 2a 20 01 6f 01 12 00 3a 00 35 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 ┆ CLASS DEFINITION RECORD o * o : 5* EXIT: A1 - LINE CONNECTION NUMB┆
0x23e5c…23eac 45 52 20 28 42 49 4e 41 52 59 20 56 41 4c 55 45 29 20 01 6f 01 1c 00 06 00 03 2a 20 01 6f 01 5a 00 1a 00 16 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 35 01 6f 01 64 00 06 00 03 2a 20 01 6f 01 82 00 1c 00 17 2a 20 20 53 ┆ER (BINARY VALUE) o * o Z * WORK REGISTERS: A5 o d * o * S┆
0x23eac…23efc (368, 0, 400) 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 43 4f 4e 56 52 54 20 01 6f 01 8c 00 06 00 03 2a 20 01 70 00 1c 00 10 00 50 47 45 54 4c 43 4e 5c 45 51 55 5c 2a 01 70 00 26 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 ┆UBROUTINES: CONVRT o * p PGETLCN EQU * p & * P STR A4,A15 SAVE REGIS┆
0x23efc…23f4c 54 45 52 20 41 34 20 4f 4e 20 53 54 41 43 4b 20 01 70 00 3a 00 2a 00 50 5c 53 54 52 5c 41 36 2c 41 31 35 5c 53 41 56 45 20 52 45 47 49 53 54 45 52 20 41 36 20 4f 4e 20 53 54 41 43 4b 20 01 70 00 68 00 26 00 50 5c 4c 44 52 5c 41 36 2c 41 39 ┆TER A4 ON STACK p : * P STR A6,A15 SAVE REGISTER A6 ON STACK p h & P LDR A6,A9┆
0x23f4c…23f9c 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 70 00 96 00 32 00 50 5c 41 44 4b 5c 41 36 2c 54 44 43 4c 43 4e 5c 41 44 44 52 45 53 53 20 4c 49 4e 45 20 43 4f 4e 4e 45 43 54 49 4f 4e 20 4e 55 4d 42 45 52 20 01 70 ┆ GET START OF TDC RECORD p 2 P ADK A6,TDCLCN ADDRESS LINE CONNECTION NUMBER p┆
0x23f9c…23fec 00 c0 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 55 4d 42 45 52 20 01 70 00 f6 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 ┆ , P CALL GETNUM GET LINE CONNECTION NUMBER p P LDR A1,A5 SAVE BINARY VAL┆
0x23fec…2403c 55 45 01 70 01 26 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 41 36 20 46 52 4f 4d 20 53 54 41 43 4b 20 01 70 01 4a 00 30 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 31 35 5c 52 45 53 54 4f ┆UE p & 0 P LDR* A6,A15 RESTORE REGISTER A6 FROM STACK p J 0 P LDR* A4,A15 RESTO┆
0x2403c…2408c (369, 0, 400) 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 70 01 7e 00 0c 00 08 5c 52 54 4e 5c 41 31 34 01 71 00 22 00 0a 00 50 5c 45 4a 45 43 54 01 71 00 32 00 3a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RE REGISTER A4 FROM STACK p ~ RTN A14 q " P EJECT q 2 : P****************┆
0x2408c…240dc 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 71 00 40 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 ┆************************************* q @ : P* ┆
0x240dc…2412c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 71 00 7e 00 3a 00 50 2a 20 20 47 45 54 54 43 4c 20 2d 20 47 45 54 20 54 41 53 4b 20 43 4c 41 53 53 20 54 4f 20 4d 41 54 43 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * q ~ : P* GETTCL - GET TASK CLASS TO MATCH ┆
0x2412c…2417c 2a 20 01 71 00 bc 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 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 71 00 fa 00 3a 00 50 2a 20 20 20 20 20 20 20 ┆* q : P* ================================ * q : P* ┆
0x2417c…241cc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 71 01 38 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 ┆ * q 8 : P* REFERENCED IN: B:TT ┆
0x241cc…241d0 (370, 0, 400) 20 20 20 20 ┆ ┆
0x241d0…28990 […elided…]
0x28990…2899e 01 40 00 44 00 50 2a 20 20 20 20 20 20 20 ┆ @ D P* ┆
0x2899e…289ee (416, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 01 9f 01 88 00 44 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 ┆ * D P* WORK REGISTER┆
0x289ee…28a3e 53 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 01 a0 00 40 00 44 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 ┆S: * @ D P* ┆
0x28a3e…28a8e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 01 a0 00 88 00 44 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 ┆ * D P* SUBROUTINES: ERROR ┆
0x28a8e…28ade 20 20 20 20 20 20 20 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 01 a0 00 d0 00 44 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 ┆ * D P* ┆
0x28ade…28b2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 01 a0 01 18 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * D P************************************************┆
0x28b2e…28b7e (417, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 01 a0 01 60 00 1e 00 50 4e 58 54 31 30 5c 41 44 4b 4c 5c 41 31 31 2c 31 5c 4e 45 58 54 20 43 48 41 52 01 a1 00 18 00 28 00 50 4e 58 54 41 44 42 5c 4c 43 52 5c 41 32 2c 41 31 31 5c 47 45 54 20 ┆**************** ` PNXT10 ADKL A11,1 NEXT CHAR ( PNXTADB LCR A2,A11 GET ┆
0x28b7e…28bce 4e 45 58 54 20 43 48 41 52 41 43 54 45 52 01 a1 00 3a 00 24 00 50 5c 43 43 4b 5c 41 32 2c 2f 30 30 30 30 5c 45 4e 44 20 4f 46 20 43 4f 4e 46 20 44 41 54 41 3f 20 01 a1 00 66 00 1a 00 50 5c 52 46 28 4e 45 29 5c 4e 45 58 54 32 30 5c 4e 4f 54 ┆NEXT CHARACTER : $ P CCK A2,/0000 END OF CONF DATA? f P RF(NE) NEXT20 NOT┆
0x28bce…28c1e 20 59 45 54 01 a1 00 8e 00 1e 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4c 4d 50 34 5c 46 4f 52 4d 41 54 20 45 52 52 4f 52 01 a1 00 ac 00 10 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 20 01 a1 00 ce 00 32 00 50 4e 45 58 54 32 30 5c 43 43 4b 5c 41 32 2c ┆ YET P LDKL A1,LMP4 FORMAT ERROR P CALL ERROR 2 PNEXT20 CCK A2,┆
0x28c1e…28c6e 2f 46 46 46 46 5c 41 50 50 4c 20 44 45 46 20 42 4c 4f 43 4b 20 53 45 50 41 52 41 54 4f 52 3f 20 01 a1 00 e2 00 16 00 50 5c 52 42 28 4e 45 29 5c 4e 58 54 31 30 5c 4e 4f 21 20 01 a1 01 18 00 1a 00 50 5c 41 44 4b 4c 5c 41 31 31 2c 31 5c 4e 45 ┆/FFFF APPL DEF BLOCK SEPARATOR? P RB(NE) NXT10 NO! P ADKL A11,1 NE┆
0x28c6e…28cbe 58 54 20 43 48 41 52 20 01 a1 01 32 00 1e 00 50 5c 4c 43 52 5c 41 32 2c 41 31 31 5c 47 45 54 20 4e 45 58 54 20 43 48 41 52 20 01 a1 01 50 00 14 00 50 5c 52 54 4e 5c 41 31 34 5c 52 45 54 55 52 4e 20 01 a1 01 72 00 0a 00 50 5c 45 4a 45 43 54 ┆XT CHAR 2 P LCR A2,A11 GET NEXT CHAR P P RTN A14 RETURN r P EJECT┆
0x28cbe…28d0e (418, 0, 400) 01 a1 01 8a 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 20 01 a2 00 08 00 32 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 P********************************************* 2 P* ┆
0x28d0e…28d5e 20 20 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 a2 00 3e 00 32 00 50 2a 20 20 43 48 4b 4d 4f 56 20 2d 20 43 48 45 43 4b 20 4d 45 4d 4f 52 59 20 4f 56 45 52 46 4c 4f 57 20 41 4e 44 20 4d 4f 56 45 20 20 ┆ * > 2 P* CHKMOV - CHECK MEMORY OVERFLOW AND MOVE ┆
0x28d5e…28dae 2a 20 01 a2 00 74 00 32 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 3d 3d 3d 3d 3d 3d 3d 3d 20 20 2a 20 01 a2 00 aa 00 32 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* t 2 P* ======================================= * 2 P* ┆
0x28dae…28dfe 20 20 20 20 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 a2 00 e0 00 32 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 2 P* REFERENCED IN: ┆
0x28dfe…28e4e 20 20 2a 20 01 a2 01 16 00 32 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 2a 20 01 a2 01 4c 00 32 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 41 31 20 ┆ * 2 P* * L 2 P* ENTRY: A1 ┆
0x28e4e…28e9e (419, 0, 400) 2d 20 46 52 4f 4d 2d 41 44 44 52 45 53 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 a2 01 82 00 32 00 50 2a 20 20 20 20 20 20 20 20 20 20 41 32 20 2d 20 54 4f 2d 41 44 44 52 45 53 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆- FROM-ADDRESS * 2 P* A2 - TO-ADDRESS ┆
0x28e9e…28eee 20 20 20 20 2a 20 01 a3 00 28 00 32 00 50 2a 20 20 20 20 20 20 20 20 20 20 41 33 20 2d 20 4c 45 4e 47 54 48 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 a3 00 5e 00 32 00 50 2a 20 20 20 20 20 20 20 20 20 20 53 ┆ * ( 2 P* A3 - LENGTH * ^ 2 P* S┆
0x28eee…28f3e 54 4b 45 4e 44 2b 4c 49 4d 49 54 20 2d 20 45 4e 44 20 4f 46 20 53 59 53 54 45 4d 20 20 20 20 20 2a 20 01 a3 00 94 00 32 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 41 52 45 41 20 20 20 20 20 20 20 20 ┆TKEND+LIMIT - END OF SYSTEM * 2 P* AREA ┆
0x28f3e…28f8e 20 20 20 20 20 20 2a 20 01 a3 00 ca 00 32 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 2a 20 01 a3 01 00 00 32 00 50 2a 20 20 45 58 49 54 3a 20 20 ┆ * 2 P* * 2 P* EXIT: ┆
0x28f8e…28fde 20 20 20 20 20 20 20 20 20 20 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 a3 01 36 00 32 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 ┆ * 6 2 P* ┆
0x28fde…2902e (420, 0, 400) 20 20 20 20 20 20 20 20 2a 20 01 a3 01 6c 00 32 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 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 a4 00 12 00 32 00 50 2a 20 20 20 20 20 20 20 ┆ * l 2 P* WORK REGISTERS: * 2 P* ┆
0x2902e…2907e 20 20 20 20 20 20 20 20 20 20 20 20 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 a4 00 48 00 32 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 4d 4f 56 45 2c 45 52 52 4f 52 20 20 20 20 20 20 20 20 ┆ * H 2 P* SUBROUTINES: MOVE,ERROR ┆
0x2907e…290ce 20 20 20 20 20 20 20 20 20 20 2a 20 01 a4 00 7e 00 32 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 2a 20 01 a4 00 b4 00 32 00 50 2a 2a 2a 2a 2a 2a ┆ * ~ 2 P* * 2 P******┆
0x290ce…2911e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 a4 00 ea 00 10 00 50 43 48 4b 4d 4f 56 5c 45 51 55 5c 2a 01 a4 01 20 00 20 00 50 5c 53 54 52 5c 41 39 2c 41 31 35 5c ┆*************************************** PCHKMOV EQU * P STR A9,A15 ┆
0x2911e…2916e 53 41 56 45 20 41 39 20 4f 4e 20 53 54 41 43 4b 01 a4 01 34 00 22 00 50 5c 53 54 52 5c 41 31 31 2c 41 31 35 5c 53 41 56 45 20 41 31 31 20 4f 4e 20 53 54 41 43 4b 01 a4 01 58 00 1a 00 50 5c 4c 44 52 5c 41 31 31 2c 41 33 5c 47 45 54 20 4c 45 ┆SAVE A9 ON STACK 4 " P STR A11,A15 SAVE A11 ON STACK X P LDR A11,A3 GET LE┆
0x2916e…291be (421, 0, 400) 4e 47 54 48 01 a4 01 7e 00 2e 00 50 5c 58 52 52 5c 41 39 2c 41 39 5c 50 48 59 53 49 43 41 4c 20 45 4e 44 20 4f 46 20 46 49 52 53 54 20 50 41 52 54 49 54 49 4f 4e 01 a5 00 0c 00 30 00 50 5c 53 55 52 5c 41 39 2c 41 32 5c 43 4f 4d 50 55 54 45 ┆NGTH ~ . P XRR A9,A9 PHYSICAL END OF FIRST PARTITION 0 P SUR A9,A2 COMPUTE┆
0x291be…2920e 20 41 52 45 41 20 4c 45 46 54 20 49 4e 20 46 49 52 53 54 20 50 41 52 54 2e 20 01 a5 00 3e 00 26 00 50 5c 43 41 4c 4c 5c 43 4d 50 41 44 52 5c 45 4e 4f 55 47 54 48 20 4d 45 4d 4f 52 59 20 4c 45 46 54 3f 20 01 a5 00 72 00 14 00 50 5c 52 46 28 ┆ AREA LEFT IN FIRST PART. > & P CALL CMPADR ENOUGTH MEMORY LEFT? r P RF(┆
0x2920e…2925e 4c 29 5c 43 48 4b 32 30 5c 59 45 53 01 a5 00 9c 00 30 00 50 43 48 4b 31 30 5c 4c 44 4b 4c 5c 41 31 2c 4c 4d 50 33 5c 49 4e 44 49 43 41 54 45 20 4d 45 4d 4f 52 59 20 4f 56 45 52 46 4c 4f 57 20 01 a5 00 b4 00 10 00 50 5c 43 41 4c 4c 5c 45 52 ┆L) CHK20 YES 0 PCHK10 LDKL A1,LMP3 INDICATE MEMORY OVERFLOW P CALL ER┆
0x2925e…292ae 52 4f 52 20 01 a5 00 e8 00 24 00 50 43 48 4b 32 30 5c 41 44 52 5c 41 31 31 2c 41 32 5c 45 4e 44 20 4f 46 20 54 4f 2d 41 52 45 41 20 01 a5 00 fc 00 2e 00 50 5c 4c 44 5c 41 39 2c 53 54 4b 45 4e 44 2b 4c 49 4d 49 54 5c 47 45 54 20 45 4e 44 20 ┆ROR $ PCHK20 ADR A11,A2 END OF TO-AREA . P LD A9,STKEND+LIMIT GET END ┆
0x292ae…292fe 4f 46 20 53 59 53 54 45 4d 20 41 52 45 41 01 a5 01 24 00 22 00 50 5c 43 41 4c 4c 5c 43 4d 50 41 44 52 5c 43 4f 4d 50 41 52 45 20 41 44 44 52 45 53 53 45 53 01 a5 01 56 00 26 00 50 5c 52 42 28 47 29 5c 43 48 4b 31 30 5c 53 59 53 54 45 4d 20 ┆OF SYSTEM AREA $ " P CALL CMPADR COMPARE ADDRESSES V & P RB(G) CHK10 SYSTEM ┆
0x292fe…2934e (422, 0, 400) 41 52 45 41 20 4f 56 45 52 46 4c 4f 57 21 01 a5 01 7c 00 18 00 50 5c 43 41 4c 4c 5c 4d 4f 56 45 5c 4d 4f 56 45 20 41 52 45 41 01 a6 00 16 00 1e 00 50 5c 4c 44 52 2a 5c 41 31 31 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 41 31 31 20 01 a6 00 32 ┆AREA OVERFLOW! | P CALL MOVE MOVE AREA P LDR* A11,A15 RESTORE A11 2┆
0x2934e…2939e 00 1c 00 50 5c 4c 44 52 2a 5c 41 39 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 41 39 20 01 a6 00 54 00 0c 00 50 5c 52 54 4e 5c 41 31 34 01 a6 00 74 00 0a 00 50 5c 45 4a 45 43 54 01 a6 00 84 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P LDR* A9,A15 RESTORE A9 T P RTN A14 t P EJECT D P**************┆
0x2939e…293ee 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 a6 00 92 00 44 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 52 ┆************************************************** D P* STAR┆
0x293ee…2943e 54 20 4d 4f 4e 49 54 4f 52 20 53 41 56 45 30 31 55 52 41 54 49 4f 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 01 a6 00 da 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆T MONITOR SAVE01URATION * D P******************************┆
0x2943e…2948e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 a6 01 22 00 10 00 50 43 4f 4e 4d 4f 4e 5c 45 51 55 5c 2a 01 a6 01 6a 00 28 00 50 5c 43 41 4c 4c 5c 42 3a 54 43 54 5c 42 55 49 4c 44 20 ┆********************************** " PCONMON EQU * j ( P CALL B:TCT BUILD ┆
0x2948e…294de (423, 0, 398) 54 41 53 4b 20 43 4f 4e 54 52 4f 4c 20 54 41 42 4c 45 01 a6 01 7e 00 0e 00 50 5c 49 46 46 5c 46 4d 3d 30 20 01 a7 00 1a 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 a7 ┆TASK CONTROL TABLE ~ P IFF FM=0 & P CALL B:FWT BUILD FILE WORK TABLES ┆
0x294de…2952e 00 2c 00 08 00 50 5c 58 49 46 01 a7 00 56 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 a7 00 62 00 0e 00 50 5c 49 46 46 5c 45 44 4d 3d 30 01 a7 00 8e 00 32 00 50 ┆ , P XIF V ( P CALL MONBLK GENERATE MONITOR BLOCKS b P IFF EDM=0 2 P┆
0x2952e…2957e 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 a7 00 a0 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┆
0x2957e…295ce 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 a7 00 d6 00 08 00 50 5c 58 49 46 01 a7 01 10 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 a7 ┆ SEGMENT TABLES & TTAB:S P XIF & P CALL B:TT BUILD USER TASK TABLES ┆
0x295ce…2961c 01 1c 00 12 00 50 5c 49 46 46 5c 53 57 50 42 4c 4b 3d 30 20 01 a7 01 46 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 4c 45 20 57 4f 52 4b 20 42 4c 4f 43 4b 20 54 41 42 4c 45 20 01 a7 01 5c ┆ P IFF SWPBLK=0 F 2 P CALL B:SWBT BUILD SWAPPABLE WORK BLOCK TABLE ┆
0x2961c…2966c (424, 0, 398) 00 08 00 50 5c 58 49 46 01 a8 00 04 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 a8 00 10 00 28 00 50 5c 43 41 4c 4c 5c 42 3a 53 54 41 42 5c 42 55 49 4c 44 20 53 45 47 4d 45 4e 54 20 54 41 42 4c 45 28 53 29 20 ┆ P XIF P IFF MMUPAG+DSKPAG=0 ( P CALL B:STAB BUILD SEGMENT TABLE(S) ┆
0x2966c…296bc 01 a8 00 2c 00 08 00 50 5c 58 49 46 01 a8 00 58 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 a8 00 64 00 32 00 50 5c 43 41 4c 4c 5c 42 3a 44 57 54 53 5c 42 55 49 4c 44 20 53 50 45 43 49 41 4c 20 44 45 56 49 43 ┆ , P XIF X P IFF SPDVCL+TEDVCL=0 d 2 P CALL B:DWTS BUILD SPECIAL DEVIC┆
0x296bc…2970c 45 20 57 4f 52 4b 20 54 41 42 4c 45 53 20 01 a8 00 80 00 08 00 50 5c 58 49 46 01 a8 00 b6 00 12 00 50 5c 49 46 46 5c 54 45 44 56 43 4c 3d 30 20 01 a8 00 c2 00 32 00 50 5c 43 41 4c 4c 5c 42 3a 44 57 54 54 5c 42 55 49 4c 44 20 54 45 52 4d 49 ┆E WORK TABLES P XIF P IFF TEDVCL=0 2 P CALL B:DWTT BUILD TERMI┆
0x2970c…2975c 4e 41 4c 20 44 45 56 49 43 45 20 57 4f 52 4b 20 54 41 42 4c 45 53 01 a8 00 d8 00 08 00 50 5c 58 49 46 01 a8 01 0e 00 2a 00 50 5c 43 41 4c 4c 5c 42 3a 43 44 54 5c 42 55 49 4c 44 20 43 4f 4d 4d 4f 4e 20 44 45 56 49 43 45 20 54 41 42 4c 45 53 ┆NAL DEVICE WORK TABLES P XIF * P CALL B:CDT BUILD COMMON DEVICE TABLES┆
0x2975c…297aa 01 a8 01 1a 00 0e 00 50 5c 49 46 54 5c 44 43 3d 31 20 01 a8 01 48 00 34 00 50 5c 43 41 4c 4c 5c 42 3a 43 4e 41 5c 42 55 49 4c 44 20 43 4f 4d 50 55 54 45 52 20 4e 45 54 57 4f 52 4b 20 41 52 43 48 49 54 45 43 54 55 52 45 20 01 a8 01 5a ┆ P IFT DC=1 H 4 P CALL B:CNA BUILD COMPUTER NETWORK ARCHITECTURE Z┆
0x297aa…297fa (425, 0, 398) 00 08 00 50 5c 58 49 46 01 a9 00 04 00 12 00 50 5c 49 46 46 5c 54 45 44 56 43 4c 3d 30 20 01 a9 00 10 00 26 00 50 5c 43 41 4c 4c 5c 42 3a 49 54 41 42 5c 42 55 49 4c 44 20 49 4e 54 45 52 52 55 50 54 20 54 41 42 4c 45 01 a9 00 26 00 08 00 50 ┆ P XIF P IFF TEDVCL=0 & P CALL B:ITAB BUILD INTERRUPT TABLE & P┆
0x297fa…2984a 5c 58 49 46 01 a9 00 50 00 0a 00 50 5c 45 4a 45 43 54 01 a9 00 5c 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ XIF P P EJECT F P******************************************************┆
0x2984a…2989a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 a9 00 6a 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 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 ┆*********** j F P* END OF MONITOR SAVE01URATION PART ┆
0x2989a…298ea 20 20 20 20 2a 20 01 a9 00 b4 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 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 ┆ * F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * ┆
0x298ea…29938 01 a9 00 fe 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 2a 2a 2a 2a 2a 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 a9 01 48 ┆ F P***************************************************************** H┆
0x29938…2994c (426, 2, 20) 00 08 00 50 5c 45 4e 44 01 aa 00 04 40 04 00 00 01 aa 00 10 ┆ P END @ ┆
0x2994c…29988 (427, 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 ab 00 04 40 04 00 00 01 ab 00 38 ┆ 0 P******************************************** @ 8┆
0x29988…29990 (428, 1, 8) 20 04 00 00 01 ac 00 04 ┆ ┆